[
  {
    "path": "README.md",
    "content": "# NASTRAN-95\n\nNASTRAN has been released under the  \n[NASA Open Source Agreement version 1.3](https://github.com/nasa/NASTRAN-95/raw/master/NASA%20Open%20Source%20Agreement-NASTRAN%2095.doc).\n\n\nNASTRAN 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.\n\nNOTE: There is no technical support available for this software.\n"
  },
  {
    "path": "alt/COSDBCL",
    "content": "$        COSDBCL.ALT\r\n$\r\n$        DMAP ALTER PACKAGE FOR\r\n$        DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UNDER\r\n$        IMPACK LOADING: COMPUTATIONAL SIMULATION\r\n$        FROM PAPER OF THE SAME TITLE BY J. E. GRADY et al\r\n$        NASA TECHNICAL MEMORANDUM 100192, 1987, CLEWIS RESEARCH CENTER,\r\n$        AND ALSO A SIMILAR PAPER BY R. A. AIELLO AND J. E. GRADY,\r\n$        NASA CONFERENCE PUBLICATION 3029, 1989 (17TH NASTRAN USERS'S\r\n$        COLLOQUIUM, PP. 187-200)\r\n$\r\n$        VAX AND UNIX USER: MAKE SURE YOUR FILE EXTENSION LIMIT IS SET\r\n$        TO 420 BEFORE RUNNING THIS DEMO PROBLEM.\r\n$\r\n$ ALTER 146     $ 91 COSMIC/NASTRAN RF 9,  FOLLOWING LABEL  P2\r\nINSERT XYTRAN(2),-1 $\r\n$\r\nPARAML   UPV//*TRAILER*/1/V,N,NOCUPV $\r\nCOPY     TIP1/CLUSI/0 $\r\nCOPY     TIP1/BUBLI/0 $\r\nPARAM    //*SUB*/SHIFT/NOCUPV/ 1 $\r\nLABEL    BUBTOP $\r\nFILE     BUBLI=SAVE/CLUSI=SAVE $\r\nPARTN    BUBLI,,BAS1/DUMMY,,,/7 $\r\nMERGE    DUMMY,,,,,TIP1/BUBLJ/7 $\r\nADD      CLUSI,BUBLJ/CLUSJ/ $\r\nSWITCH   BUBLJ,BUBLI//-1 $\r\nSWITCH   CLUSJ,CLUSI//-1 $\r\nREPT     BUBTOP,SHIFT $\r\nPARTN    TIP1,,CLUSJ/,MNTRI,,/7 $\r\nPARTN    BUBLJ,,CLUSJ/,BOOTI,,/7 $\r\nCOPY     MNTRI/MNTRJ/0 $\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/\r\n         LUSET/NOSIMP/0/NOGENL/GENEL $     \r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N,             \r\n         LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/             \r\n         V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $                      \r\nCOND     ERROR5,NOEED $                                                         \r\nPARAM    //*NOP*/V,N,COLNUM=1 $                                                 \r\nLABEL    RAALOOP $\r\nPARAM    //*ADD*/COLNUM/COLNUM/3 $\r\nPARAM    //*LE*/V,N,GETOUT/NOCUPV/COLNUM $\r\nCOND     QUITRAA,GETOUT $\r\nLABEL    CORTOP $\r\nPARTN    MNTRJ,,BOOTI/DUM11,,,/7 $\r\nMERGE    DUM11,,,,,MNTRI/MNTRJ/7 $\r\nREPT     CORTOP, 2  $\r\nPARTN    UPV,MNTRJ,/,,COLUPV,/1  $\r\nDSMG1    CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/                     \r\n         KDGG/DSCOSET $\r\nEQUIV    KDGG,KDNN/MPCF2 $\r\nCOND     LBL2D,MPCF2 $\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $\r\nLABEL    LBL2D $\r\nEQUIV    KDNN,KDFF/SINGLE $\r\nCOND     LBL3D,SINGLE $\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,,,, $\r\nLABEL    LBL3D $\r\nEQUIV    KDFF,KDAA/OMIT $\r\nCOND     LBL5D,OMIT $\r\nSMP2     USET,GO,KDFF/KDAA $\r\nLABEL    LBL5D $\r\nADD      KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $\r\nREAD     KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/           \r\n         S,N,NEIGV/C,N,2 $\r\nCOND     ERROR4,NEIGV $\r\nPARAML   LAMA//*TABLE1*/2/3/V,N,EIGV $\r\nPRTPARM  //0/*EIGV*   $\r\n$ OFP    OEIGS,LAMA,,,,//S,N,CARDNO $\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/,\r\n         OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $\r\n$ OFP    OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $\r\nCOND     P3,JUMPPLOT $\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT,\r\n         OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/\r\n         S,N,PFILE   $        \r\nPRTMSG   PLOTX3// $\r\nLABEL    P3 $\r\nREPT     RAALOOP,1000 $\r\nJUMP     QUITRAA $\r\nLABEL    ERROR5 $ \r\nPRTPARM  //C,N,-3/C,N,BUCKLING $\r\nJUMP     QUITRAA $\r\nLABEL    ERROR4 $ \r\nPRTPARM  //C,N,-4/C,N,BUCKLING $\r\nLABEL    QUITRAA $\r\nJUMP     FINIS $\r\nENDALTER                                                                        \r\n"
  },
  {
    "path": "alt/COSDDAM",
    "content": "$ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM)\r\n$ ALTER    71 $\r\nINSERT READ $\r\nDIAGONAL MI/MIS/*SQUARE*/-0.5 $\r\nSMPYAD   MIS,MI,MIS,,,/MINEW/3 $\r\n$ ALTER    81,86 $\r\nDELETE SDR2,1,SDR2,4 $\r\n$ ALTER    90 $\r\nINSERT PLOT(2),2 $\r\nGENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $\r\nDIAGONAL MI/MID/*SQUARE*/-1.0  $\r\nMPYAD    MGG,PHIG,/MP/0 $\r\nMPYAD    MP,DIRCOS,/PMD/1 $\r\nMPYAD    MID,PMD,/PF/0 $\r\nDDAMAT   PF,PMD/EFFW/C,Y,GG=386.4 $\r\nLAMX,    ,LAMA/LAMB/-1 $\r\nGENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $\r\nPARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $\r\nPARAM    //*GE*/TEST/C,Y,LMODES/NMODES $\r\nCOND     DDAM,TEST $\r\nPARTN    PF,,RPPF/,PFR,,/1 $\r\nEQUIV    PFR,PF $\r\nPARTN    EFFW,,RPPF/,EFFWR,,/1 $\r\nEQUIV    EFFWR,EFFW $\r\nPARTN    MP,CPMP,/,,MPR,/1 $\r\nEQUIV    MPR,MP $\r\nPARTN    PHIG,CPMP,/,,PHIGR,/1 $\r\nEQUIV    PHIGR,PHIG $\r\nLABEL    DDAM $\r\nDESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/\r\n         C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/\r\n         C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $\r\nDDAMAT   PF,MINAC/PVW/1.0 $\r\nDDAMAT   PF,MINOW2/PVOW/1.0 $\r\nDDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $\r\nDDAMPG   MP,PVW/PG/NMODES/NDIR $\r\nCASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $\r\nEQUIV    CASEDD,CASECC $\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/,\r\n         OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $\r\nSDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $\r\nNRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/\r\n         C,Y,SQRSS=0 $\r\nOFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $\r\nCOMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $\r\nCASEGEN  CASECC/CASEEE/1/NDIR/NMODES $\r\nSDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/,\r\n         ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $\r\nOFP      OUGV5,,,,,//S,N,CARDNO $\r\nENDALTER $\r\n"
  },
  {
    "path": "alt/COSDFVA",
    "content": "$ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA)        \r\n$ ALTER    3 $        \r\nINSERT FILE $\r\nFILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $        \r\n$ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX.        \r\nCOND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.        \r\nCOND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.        \r\nPARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $        \r\nCOND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.        \r\nPARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2        \r\nPARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $        \r\nCOND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2        \r\n$ SET DEFAULTS FOR PARAMETERS.        \r\nPARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $        \r\n$ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS.      \r\nPARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $        \r\nPARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $        \r\nPARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $        \r\n$ GENERATE NORPS FLAG IF RPS IS ZERO.        \r\nPARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $        \r\n$ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED.        \r\nPARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $        \r\nCOND     ERRORC2,NOLUMP $        \r\n$ ALTER    21,21 $  ADD SLT TO OUTPUT FOR TRLG.        \r\nDELETE GP3 $\r\nGP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $        \r\n$ ALTER    24 $        \r\nINSERT TA1,2 $\r\n$ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT    \r\n$ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION.        \r\n$ ADD YS NEEDED FOR PSF RECOVERY IN SSG2.        \r\nPARAM    //*MPY*/NSKIP /0/0 $        \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/\r\n         S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/\r\n         S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $        \r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $        \r\n$ SUPORT BULK DATA IS NOT ALLOWED.        \r\nPARAM    //*NOT*/REACDATA /REACT $        \r\nCOND     ERRORC3,REACDATA $        \r\n$ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. \r\nDPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,  \r\n         TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/\r\n         S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $        \r\n$ MUST HAVE EITHER FREQ OR TSTEP BULK DATA.        \r\nPARAM    //*AND*/FTERR /NOFRL /NOTRL $        \r\nCOND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.        \r\n$ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL        \r\nPARAML   CASECC //*TABLE1*/1/14//FREQSET $        \r\nPARAML   CASECC //*TABLE1*/1/38//TIMESET $        \r\nPARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $        \r\nPARAM    //*NOT*/FTERR1 /FREQTIME $        \r\nPARAM    //*LE*/NOFREQ /FREQSET /0 $        \r\nPARAM    //*LE*/NOTIME /TIMESET /0 $        \r\nCOND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.    \r\n$ EPOINT BULK DATA NOT ALLOWED        \r\nPARAM    //*NOT*/EXTRAPTS /NOUE $        \r\nCOND     ERRORC4,EXTRAPTS $        \r\n$ GENERATE DATA FOR CYCT2 MODULE.        \r\nGPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\n$ ALTER    34 $        \r\nINSERT EMA,1 $\r\n$ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED        \r\nPARAM    //*OR*/NOBM1 /NOMGG /NORPS $        \r\nPURGE    B1GG,M1GG /NOBM1 $        \r\nPURGE    M2GG,M2BASEXG /NOMGG $        \r\n$ ALTER    38 $        \r\nINSERT EMA(2),1 $\r\n$ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX.        \r\n$ GENERATE PARAMETERS FKMAX AND NOBASEX.        \r\nFVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,\r\n         PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/\r\n         V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/\r\n         V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $        \r\nPARAML   FRLX //*PRES*////NOFRLX $        \r\nCOND     LBLFRLX,NOFRLX $        \r\nEQUIV    FRLX,FRL $        \r\nLABEL    LBLFRLX $        \r\n$ ALTER    47 $        \r\nINSERT EMA(4),2 $\r\nPARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.        \r\n$ ALTER    58 $        \r\nINSERT GPSTGEN $\r\n$ REDEFINE BGG AND KGG.        \r\nCOND     LBL11A,NOBM1 $        \r\nPARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $        \r\nPARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $        \r\nPARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $        \r\nADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $        \r\nEQUIV    BGG1,BGG $        \r\nADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $        \r\nEQUIV    KGG1,KGG $        \r\nLABEL    LBL11A        \r\n$ ALTER    59,62 $  GP4 HAS BEEN MOVED-UP.        \r\nDELETE GP4,-1,GP4,2 $\r\n$ ALTER    87,87 $  DPD HAS BEEN MOVED-UP.        \r\nDELETE DPD $\r\n$ ALTER    112 $  PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. \r\nINSERT GKAD,-3 $\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $        \r\nCOND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.        \r\n$ ALTER    113 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,-2 $\r\nJUMP     LGKAD2 $        \r\nLABEL    LGKAD1 $        \r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n         KAA,KDD/KDEKA $        \r\nLABEL    LGKAD2 $        \r\n$ ALTER    115,115 $  ADD PARAMETERS GKAD, W3 AND W4 TO GKAD.        \r\nDELETE GKAD $\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/        \r\n         C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/\r\n         SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $        \r\n$ ALTER    116 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,1 $\r\nCOND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.        \r\n$ ALTER    117 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,2 $\r\nJUMP     LGKAD4 $        \r\nLABEL    LGKAD3 $        \r\nEQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $        \r\nLABEL    LGKAD4 $        \r\n$ ALTER    118,122 $        \r\nDELETE FRRD,-2,VDR $\r\n$ NEW SOLUTION LOGIC        \r\n$ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. \r\n$ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.        \r\nCOND     LBLTRL1,NOTIME $        \r\n$ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS.        \r\nPARAM    //*MPY*/REPEATT /1 /-1 $        \r\nPARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.        \r\nLABEL    TRLGLOOP $        \r\nCASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $        \r\nPARAM    //*MPY*/NCOL /0 /1 $        \r\nTRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ \r\n         ,,PDT1,PD1,,TOL/ NOSET/NCOL $        \r\nSDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $        \r\nSDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $        \r\nPARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.        \r\nCOND     TRLGDONE,REPEATT $        \r\nREPT     TRLGLOOP,100 $        \r\nJUMP     ERROR3 $        \r\nLABEL    TRLGDONE $        \r\nFVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/\r\n         V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/\r\n         S,N,NORO2 $        \r\nEQUIV    FRLZ,FRL // FOLZ,FOL $        \r\nJUMP     LBLFRL2 $        \r\nLABEL    LBLTRL1 $        \r\n$ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC.   \r\nFRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /   \r\n         *DIRECT*/FREQY/*FREQ* $        \r\nCOND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.\r\nMPYAD    PPF,PDZERO, / PPFX /0 $        \r\nEQUIV    PPFX,PPF $        \r\nLABEL    LBLFRLX1 $        \r\n$ FORM NEW LOADS.        \r\nCOND     LBLFRL1,NOBASEX $        \r\nMPYAD    M2GG,BASEXG, / M2BASEXG /0 $        \r\nADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $        \r\nEQUIV    PPF1,PPF $        \r\nCOND     LBLBASE1,NOSET $        \r\nSSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $        \r\nEQUIV    PSF1,PSF // PDF1,PDF $        \r\nLABEL    LBLBASE1 $        \r\nLABEL    LBLFRL1 $        \r\nEQUIV    PPF,PDF/NOSET $        \r\n$ LOADS ARE FREQUENCY-DEPENDENT        \r\n$ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1.        \r\nPARAML   PDF //*TRAILER*/1 /PDFCOLS $        \r\n$ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1.        \r\nPARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX        \r\nEQUIV    PDF,PXF/CYCIO $        \r\nCOND     LBLPDONE,CYCIO $        \r\n$ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1.        \r\nPARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS        \r\nCYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/\r\n         NLOAD /S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nJUMP     LBLPDONE $        \r\nLABEL    LBLFRL2 $        \r\n$ LOADS ARE TIME-DEPENDENT        \r\nPARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $        \r\n$ BRANCH DEPENDING ON VALUE OF CYCIO        \r\nCOND     LBLTRL2,NOTCYCIO $        \r\n$ CYCIO=-1        \r\nEQUIV    PD,PDTRZ1/NORO1 $        \r\nCOND     LBLRO1A,NORO1 $        \r\nMPYAD    PD,REORDER1, / PDTRZ1 / 0 $        \r\nLABEL    LBLRO1A $        \r\nCYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/\r\n         S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXTRZ1,PXFZ1/NORO2 $        \r\nCOND     LBLRO2A,NORO2 $        \r\nMPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $        \r\nLABEL    LBLRO2A $        \r\nEQUIV    PXFZ1,PXF1 $        \r\nJUMP     LBLTRL3 $        \r\nLABEL    LBLTRL2 $        \r\n$ CYCIO = +1        \r\nMPYAD    PD,REORDER1, / PDTRZ2 / 0 $        \r\nCYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/\r\n         V,Y,NSEGS/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXTRZ2,PXTR2/NORO2 $        \r\nCOND     LBLRO2B,NORO2 $        \r\nMPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $        \r\nLABEL    LBLRO2B $        \r\nCYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/        \r\n         FLMAX/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXFZ2,PXF1 $        \r\nLABEL    LBLTRL3 $        \r\n$ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND       \r\n$ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX   \r\n$ IN FREQRESP TYPE PROBLEMS.        \r\nCOPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.        \r\nADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $        \r\n$ DEFINE NLOAD FOR CYCT2.        \r\nPARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX        \r\nLABEL    LBLPDONE $        \r\nPARAM    //*ADD*/KINDEX /V,Y,KMIN=0 /0 $  INTITIALIZE KINDEX.        \r\n$        \r\n$ INITIALIZE UXVF IF KMIN IS NOT ZERO.        \r\n$        \r\nPARAM    //*ADD*/KMINL /V,Y,KMIN /-1 $        \r\nCOND     NOKMINL,KMINL $        \r\nPARAM    //*ADD*/KMINV /0 /0 $        \r\nLABEL    KMINLOOP $        \r\nCYCT2    CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/\r\n         S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nADD      PKFZ, / UKVFZ / (0.0,0.0) $        \r\nPRTPARM  //0/*KINDEX* $        \r\nCYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/        \r\n         KMINV/CYCSEQ/NLOAD/S,N,NOGO $        \r\nPRTPARM  //0/*KINDEX* $        \r\nCOND     ERRORC1,NOGO $        \r\nPARAM    //*ADD*/KMINV /KMINV /1 $        \r\nREPT     KMINLOOP,KMINL $        \r\nLABEL    NOKMINL $        \r\nLABEL    TOPCYC $  LOOP ON KINDEX        \r\nCOND     NOKPRT,NOKPRT $        \r\nPRTPARM  //0 /*KINDEX* $        \r\nLABEL    NOKPRT $        \r\nCYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/\r\n         CYCSEQ=-1/NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nCYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/\r\n         CYCSEQ/NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\n$ SOLUTION        \r\nFRRD2    KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $        \r\nCYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/\r\n         NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nPARAM    //*ADD*/KINDEX/KINDEX/1 $  KINDEX = KINDEX + 1        \r\nPARAM    //*SUB*/DONE / V,Y,KMAX / KINDEX $        \r\nCOND     LCYC2,DONE $  IF KINDEX .GT. KMAX THEN EXIT        \r\nREPT     TOPCYC,100 $        \r\nJUMP     ERROR3 $        \r\nLABEL    LCYC2 $        \r\nEQUIV    UXVF,UDVF / CYCIO $        \r\nCOND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\nCYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $        \r\nLABEL    LCYC3 $        \r\nCOND     LBLTRL4,NOTIME $        \r\nEQUIV    PXF,PDF2 / CYCIO $        \r\nCOND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\nCYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $        \r\nLABEL    LCYC4 $        \r\n$ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF.       \r\nSDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $        \r\nSSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $        \r\nEQUIV    PPFZ,PPF // PSFZ,PSF $        \r\nLABEL    LBLTRL4 $        \r\nVDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/        \r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $        \r\n$ ALTER    138,138 $  USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.\r\nDELETE SDR2 $\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, \r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n         S,N,NOSORT2 $        \r\n$ ALTER    160 $  ADD LABEL FOR ERROR3.        \r\nINSERT PLOT(2),4 $\r\nLABEL    ERROR3 $        \r\n$ ALTER    163,166 $  REMOVE ERROR1 AND ERROR2.        \r\nDELETE PLOT(2),7,PLOT(2),10 $\r\n$ ALTER    168 $  FORCED VIBRATION ERRORS        \r\nINSERT END,-3 $\r\nLABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.        \r\nPRTPARM  //-5 /*CYCSTATICS* $        \r\nLABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.        \r\nPRTPARM  //0 /C,Y,COUPMASS $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.        \r\nPRTPARM  //-6 /*CYCSTATICS* $        \r\nLABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.        \r\nPRTPARM  //0 /*NOUE* $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.       \r\nPRTPARM  //0 /*NOFRL* $        \r\nPRTPARM  //0 /*NOTRL* $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.  \r\nPRTPARM  //0 /*NOFREQ* $        \r\nPRTPARM  //0 /*NOTIME* $        \r\nENDALTER $        \r\n"
  },
  {
    "path": "alt/COSHYD1",
    "content": "$ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1)\r\n$ ALTER    1,1 $  COSMIC/NASTRAN RF 3.  REPLACING BEGIN\r\nDELETE BEGIN $\r\nXDMAP    GO,ERR=2 $\r\nBEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $\r\n$ ALTER    3 $  AFTER PRECHK/FILE\r\nINSERT FILE $\r\nCOMPOFF  NEWM,NEWMODE $\r\n$ ALTER    46 $  AFTER OFP/COND/PURGE\r\nINSERT GP4,3 $\r\nFLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,\r\n         DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $\r\nVEC      USETF/PV1/*G*/*X*/*Y* $\r\nPARTN    KGG,PV1,/KXX,,,KYY $\r\nPARTN    MGG,PV1,/MXX,,, $\r\nPARTN    RG,PV1,/RX,,,/1 $\r\nEQUIV    RX,RG $\r\nPARTN    AF,PV1,/,,AXY,AYY $\r\nCOND     DIRECT1,NOGRAV $\r\nPARTN    DKGG,PV1,/DKXX,,,DKYY $\r\nCOND     DIRECT1,NOFREE $\r\nVEC      USETF/PV2/*Y*/*FR*/*COMP* $\r\nPARTN    AYY,,PV2/AFRY,,,/0 $\r\nPARTN    DKYY,PV2,/DKFRFR,,, $\r\nLABEL    DIRECT1 $\r\nCOMPOFF  NOSTRUC,OLDSTR $\r\nCOMPON   2,DIFSTIF $\r\nPARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $\r\nADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $\r\nCOMPOFF  1,DIFSTIF $\r\nEQUIV    KXX,KGG $\r\nEQUIV    MXX,MGG $\r\n$ ALTER    49,50 $  REPLACING MCE1, MCE2\r\nDELETE MCE1,MCE2 $\r\nMCE1     USETS,RG/GM $\r\nMCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $\r\n$ ALTER    54,54 $  REPLACING SCE1\r\nDELETE SCE1 $\r\nSCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n$ ALTER    59,60 $  REPLACING SMP1, SMP2\r\nDELETE SMP1,SMP2 $\r\nSMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\nSMP2     USETS,GO,MFF/MAA $\r\n$ ALTER    61 $  ALTER LABEL LBL5\r\nINSERT SMP2,1 $\r\nLABEL    NOSTRUC $\r\nPURGE    DKAA/NOGRAV $\r\nCOND     DIRECT4,NOGRAV $\r\nEQUIV    DKXX,DKNN/MPCF1 $\r\nCOND     DIRECT2,MPCF2 $\r\nMCE2     USETS,GM,DKXX,,,/DKNN,,, $\r\nLABEL    DIRECT2 $\r\nEQUIV    DKNN,DKFF/SINGLE $\r\nCOND     DIRECT3,SINGLE $\r\nSCE1     USETS,DKNN,,,/DKFF,,,,, $\r\nLABEL    DIRECT3 $\r\nEQUIV    DKFF,DKAA/OMIT $\r\nCOND     DIRECT4,OMIT $\r\nSMP2     USETS,GO,DKFF/DKAA $\r\nLABEL    DIRECT4 $\r\nGFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,\r\n         MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $\r\nEQUIV    KMAT,KAA//MMAT,MAA $\r\n$ ALTER    63,63 $  REPLACING RBMG1\r\nDELETE RBMG1 $\r\nRBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n$ ALTER    67 $  AFTER LABEL LBL6\r\nINSERT DPD,-1 $\r\nLABEL    NEWM $\r\n$ ALTER    68,68 $  REPLACING DPD\r\nDELETE DPD $\r\nDPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/\r\n         LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n$ ALTER    71,71 $  REPLACING READ\r\nDELETE READ $\r\nREAD     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/\r\n         S,N,NEIGV $\r\n$ ALTER    75,75 $  REPLACING SDR1\r\nDELETE SDR1 $\r\nCOND     NOCOMP,COMPTYP $\r\nMPYAD    HC,PHIA,/PHIAC/0/1/0 $\r\nEQUIV    PHIAC,PHIA $\r\nLABEL    NOCOMP $\r\nMPYAD    GIA,PHIA,/PHII/0/1/0 $\r\nEQUIV    PHII,PHIY/NOFREE $\r\nCOND     DIRECT5,NOFREE $\r\nVEC      USETF/PV3/*A*/*COMP*/*FR* $\r\nPARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $\r\nEQUIV    PHIAB,PHIA $\r\nMERGE    PHIFR,PHII,,,,PV2/PHIY/0 $\r\nLABEL    DIRECT5 $\r\nSDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $\r\nMERGE    PHIX,PHIY,,,,PV1/PHIG/0 $\r\nMERGE    QX,,,,,PV1/QG/0 $\r\n$ ALTER    77,77 $  REPLACING EQMCK\r\nDELETE EQMCK $\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $\r\nENDALTER $\r\n"
  },
  {
    "path": "alt/COSHYD2",
    "content": "$ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2)\r\n$ ALTER    1,1 $  COSMIC/NASTRAN RF 3. REPLACING BEGIN\r\nDELETE BEGIN $\r\nXDMAP    GO,ERR=2 $\r\nBEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION\r\n$ ALTER    3 $  AFTER PRECHK/FILE\r\nINSERT FILE $\r\nCOMPOFF  NEW1,NEWMODE $\r\n$ ALTER    46 $  AFTER OFP/COND/PURGE\r\nINSERT GP4,3 $\r\nFLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,\r\n         DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $\r\nVEC      USETF/PV1/*G*/*X*/*Y* $\r\nPARTN    KGG,PV1,/KXX,,,KYY $\r\nPARTN    MGG,PV1,/MXX,,, $\r\nPARTN    RG,PV1,/RX,,,/1 $\r\nEQUIV    RX,RG $\r\nPARTN    AF,PV1,/,,AXY,AYY $\r\nCOND     MODAL1,NOGRAV $\r\nPARTN    DKGG,PV1,/DKXX,,,DKYY $\r\nCOND     MODAL1,NOFREE $\r\nVEC      USETF/PV2/*Y*/*FR*/*COMP* $\r\nPARTN    AYY,,PV2/AFRY,,,/0 $\r\nPARTN    DKYY,PV2,/DKFRFR,,, $\r\nLABEL    MODAL1 $\r\nLABEL    NEW1 $\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/\r\n         LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $\r\nCOND     ERROR2,NOEED $\r\nCOMPOFF  NEW2,NEWMODE $\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\nCOMPOFF  NOSTRUC,OLDSTR $\r\nCOMPON   2,DIFSTIF $\r\nPARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $\r\nADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $\r\nCOMPOFF  1,DIFSTIF $\r\nEQUIV    KXX,KGG $\r\nEQUIV    MXX,MGG $\r\n$ ALTER    49,50 $  REPLACING MCE1, MCE2\r\nDELETE MCE1,MCE2 $\r\nMCE1     USETS,RG/GM $\r\nMCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $\r\n$ ALTER    54,54 $  REPLACING SCE1\r\nDELETE SCE1 $\r\nSCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n$ ALTER    59,60 $  REPLACING SMP1, SMP2\r\nDELETE SMP1,SMP2 $\r\nSMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\nSMP2     USETS,GO,MFF/MAA $\r\n$ ALTER    63,63 $  REPLACING RBMG1\r\nDELETE RBMG1 $\r\nRBMG1    USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n$ ALTER    68,69 $  REPLACING DPD, COND\r\nDELETE DPD,DPD,1 $\r\nCASE     CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $\r\n$ ALTER    71,71 $  REPLACING READ\r\nDELETE READ $\r\nREAD     KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/\r\n         S,N,NEIGV $\r\n$ ALTER    75,77 $  REPLACING SDR1, COND, EQMCK\r\nDELETE SDR1,EQMCK $\r\nSDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $\r\nCOND     NOMPCF,GRDEQ $\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $\r\n$ ALTER    80,80 $  REPLACING SDR2\r\nDELETE SDR2 $\r\nMERGE    PHIG,,,,,PV1/PHIGS/0 $\r\nMERGE    QG,,,,,PV1/QGS/0 $\r\nSDR2     CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/,\r\n         OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $\r\nOFP      OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $\r\nLABEL    NOSTRUC $\r\nPURGE    DKAA/NOGRAV $\r\nCOND     MODAL4,NOGRAV $\r\nEQUIV    DKXX,DKNN/MPCF1 $\r\nCOND     MODAL2,MPCF2 $\r\nMCE2     USETS,GM,DKXX,,,/DKNN,,, $\r\nLABEL    MODAL2 $\r\nEQUIV    DKNN,DKFF/SINGLE $\r\nCOND     MODAL3,SINGLE $\r\nSCE1     USETS,DKNN,,,/DKFF,,,,, $\r\nLABEL    MODAL3 $\r\nEQUIV    DKFF,DKAA/OMIT $\r\nCOND     MODAL4,OMIT $\r\nSMP2     USETS,GO,DKFF/DKAA $\r\nLABEL    MODAL4 $\r\nGFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,\r\n         GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/\r\n         S,Y,LMODES $\r\nJUMP     OLD2 $\r\nLABEL    NEW2 $\r\nPARAM    //*MPY*/REPT/1/1 $\r\nLABEL    OLD2 $\r\nCASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\nREAD     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/\r\n         S,N,NEIGV $\r\nOFP      LAMAT,OEIGH,,,,//S,N,CARDNO $\r\nCOND     FINIS,NEIGV $\r\nMPYAD    GIH,PHIH,/PHII/0/1/0 $\r\nEQUIV    PHIH,PHIZ/NOFREE $\r\nEQUIV    PHII,PHIY/NOFREE $\r\nCOND     MODAL5,NOFREE $\r\nPARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $\r\nMERGE    PHIFR,PHII,,,,PV2/PHIY/0 $\r\nLABEL    MODAL5 $\r\nCOND     ALLMODES,LMODES\r\nTRAILER  PHIG//*STORE*/1/V,Y,LMODES $\r\nTRAILER  QG//*STORE*/1/V,Y,LMODES $\r\nLABEL    ALLMODES $\r\nMPYAD    PHIG,PHIZ,/PHIX/0/1/0 $\r\nMPYAD    QG,PHIZ,/QX/0/1/0 $\r\nMERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $\r\nMERGE    QX,,,,,PV1/QGT/0 $\r\nSDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,\r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $\r\nENDALTER $\r\n"
  },
  {
    "path": "alt/COSMFVA",
    "content": "$ COSMIC ALTERS FOR MODAL FORCED VIBRATION ANALYSIS (COSMFVA)        \r\n$ ALTER    3 $        \r\nINSERT FILE $\r\nFILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $        \r\n$ PERFORM INITIAL ERROR CHECKS ON NSEGS, KMAX, KMIN AND KINDEX.        \r\nCOND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.        \r\nCOND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.        \r\nCOND     ERRORC1,KMIN  $  IF USER HAS SPECIFIED NEGATIVE KMIN.        \r\nPARAM    //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $        \r\nCOND     LBL1KIND,KTEST $        \r\n$ KMIN = KMAX        \r\nPARAM    //*ADD*/KINDEX/V,Y,KMAX/0  $  SET KINDEX = KMAX (= KMIN)       \r\nJUMP     LBL2KIND $        \r\nLABEL    LBL1KIND        \r\n$ KMIN .NE. KMAX        \r\nCOND     ERRORC1,KINDEX  $  IF USER HAS NOT SPECIFIED KINDEX.        \r\nPARAM    //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $        \r\nCOND     ERRORC1,KTEST $        \r\nPARAM    //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $        \r\nCOND     ERRORC1,KTEST $        \r\nLABEL    LBL2KIND $        \r\nPARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $        \r\nCOND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.        \r\nPARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2        \r\nPARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $        \r\nCOND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2        \r\n$ CHECK FOR KINDEX = 0        \r\nPARAM    //*EQ*/KTEST/V,Y,KINDEX/0 $        \r\nCOND     LBL3KIND,KTEST $        \r\n$ CHECK FOR KINDEX = NSEGS/2 (NSEGS EVEN ONLY)        \r\nPARAM    //*ADD*/NSEGS1/V,Y,NSEGS/1 $        \r\nPARAM    //*DIV*/NSEG21/NSEGS1/2 $        \r\nPARAM    //*EQ*/KEVEN/NSEG21/NSEG2 $        \r\nPARAM    //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $        \r\nPARAM    //*EQ*/KTEST/KNSEG2/KEVEN $        \r\nCOND     LBL3KIND,KTEST $        \r\n$ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY)        \r\nPARAM    //*ADD*/KTEST/1/0 $        \r\nLABEL   LBL3KIND $        \r\nPARAM    //*GT*/KFLAG/KTEST/0 $        \r\n$ SET DEFAULTS FOR PARAMETERS.        \r\nPARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $        \r\n$ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS.      \r\nPARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $        \r\nPARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $        \r\nPARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $        \r\n$ GENERATE NORPS FLAG IF RPS IS ZERO.        \r\nPARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $        \r\n$ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED.        \r\nPARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $        \r\nCOND     ERRORC2,NOLUMP $        \r\n$ ALTER    21,21 $  ADD SLT TO OUTPUT FOR TRLG.        \r\nDELETE GP3 $\r\nGP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $        \r\n$ ALTER    24 $        \r\nINSERT TA1,2 $\r\n$ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT    \r\n$ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION.        \r\n$ ADD YS NEEDED FOR PSF RECOVERY IN SSG2.        \r\nPARAM    //*MPY*/NSKIP /0/0 $        \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/   \r\n         S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/   \r\n         S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $ \r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $        \r\n$ SUPORT BULK DATA IS NOT ALLOWED.        \r\nPARAM    //*NOT*/REACDATA /REACT $        \r\nCOND     ERRORC3,REACDATA $        \r\n$ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS. \r\nDPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,  \r\n         TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/\r\n         S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $        \r\n$ CHECK FOR EIGENVALUE EXTRACTION DATA        \r\nCOND     ERRORC7,NOEED $        \r\n$ MUST HAVE EITHER FREQ OR TSTEP BULK DATA.        \r\nPARAM    //*AND*/FTERR /NOFRL /NOTRL $        \r\nCOND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.        \r\n$ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL        \r\nPARAML   CASECC //*TABLE1*/1/14//FREQSET $        \r\nPARAML   CASECC //*TABLE1*/1/38//TIMESET $        \r\nPARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $        \r\nPARAM    //*NOT*/FTERR1 /FREQTIME $        \r\nPARAM    //*LE*/NOFREQ /FREQSET /0 $        \r\nPARAM    //*LE*/NOTIME /TIMESET /0 $        \r\nCOND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.    \r\n$ EPOINT BULK DATA NOT ALLOWED        \r\nPARAM    //*NOT*/EXTRAPTS /NOUE $        \r\nCOND     ERRORC4,EXTRAPTS $        \r\n$ GENERATE DATA FOR CYCT2 MODULE.        \r\nGPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\n$ ALTER    29 $        \r\nINSERT EMG,-1 $\r\nPARAM    //*NOP*/V,Y,KGGIN=-1 $        \r\nCOND     JMPKGGIN,KGGIN $        \r\nPARAM    //*ADD*/NOKGGX/-1/0 $        \r\nINPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $        \r\nEQUIV    KTOTAL,KGGX $        \r\nLABEL    JMPKGGIN $        \r\n$ ALTER    34 $        \r\nINSERT EMA,1 $\r\n$ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED        \r\nPARAM    //*OR*/NOBM1 /NOMGG /NORPS $        \r\nPURGE    B1GG,M1GG /NOBM1 $        \r\nPURGE    M2GG,M2BASEXG /NOMGG $        \r\n$ ALTER    38 $        \r\nINSERT EMA(2),1 $\r\n$ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX.        \r\n$ GENERATE PARAMETERS FKMAX AND NOBASEX.        \r\nFVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,\r\n         PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/\r\n         V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/\r\n         V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $        \r\nPARAML   FRLX //*PRES*////NOFRLX $        \r\nCOND     LBLFRLX,NOFRLX $        \r\nEQUIV    FRLX,FRL $        \r\nLABEL    LBLFRLX $        \r\n$ ALTER    47 $        \r\nINSERT EMA(4),2 $\r\nPARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.        \r\n$ ALTER    58 $        \r\nINSERT GPSTGEN $\r\n$ REDEFINE BGG AND KGG.        \r\nCOND     LBL11A,NOBM1 $        \r\nPARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $        \r\nPARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $        \r\nPARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $        \r\nADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $        \r\nEQUIV    BGG1,BGG $        \r\nADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $        \r\nEQUIV    KGG1,KGG $        \r\nLABEL    LBL11A        \r\n$ ALTER    59,62 $  GP4 HAS BEEN MOVED-UP.        \r\nDELETE GP4,-1,GP4,2 $\r\n$ ALTER    87,87 $  DPD HAS BEEN MOVED-UP.        \r\nDELETE DPD $\r\n$ ALTER    112 $  PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN. \r\nINSERT GKAD,-3 $\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $        \r\nCOND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.        \r\n$ ALTER    113 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,-2 $\r\nJUMP     LGKAD2 $        \r\nLABEL    LGKAD1 $        \r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n         KAA,KDD/KDEKA $        \r\nLABEL    LGKAD2 $        \r\n$ ALTER    115,115 $        \r\nDELETE GKAD $\r\n$ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD.        \r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/        \r\n         C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/\r\n         SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $        \r\n$ ALTER    116 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,1 $\r\nCOND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.        \r\n$ ALTER    117 $  SEE ALTER 112 COMMENT.        \r\nINSERT GKAD,2 $\r\nJUMP     LGKAD4 $        \r\nLABEL    LGKAD3 $        \r\nEQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $        \r\nLABEL    LGKAD4 $        \r\n$ ALTER    118,122 $        \r\nDELETE FRRD,-2,VDR $\r\n$ NEW SOLUTION LOGIC        \r\n$ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL. \r\n$ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.        \r\nCOND     LBLTRL1,NOTIME $        \r\n$ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS.        \r\nPARAM    //*MPY*/REPEATT /1 /-1 $        \r\nPARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.        \r\nLABEL    TRLGLOOP $        \r\nCASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $        \r\nPARAM    //*MPY*/NCOL /0 /1 $        \r\nTRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ \r\n         ,,PDT1,PD1,,TOL/ NOSET/NCOL $        \r\nSDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $        \r\nSDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $        \r\nPARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.        \r\nCOND     TRLGDONE,REPEATT $        \r\nREPT     TRLGLOOP,100 $        \r\nJUMP     ERROR3 $        \r\nLABEL    TRLGDONE $        \r\nFVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/\r\n         V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/\r\n         S,N,NORO2 $        \r\nEQUIV    FRLZ,FRL // FOLZ,FOL $        \r\nJUMP     LBLFRL2 $        \r\nLABEL    LBLTRL1 $        \r\n$ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC.   \r\nFRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /   \r\n         *DIRECT*/FREQY/*FREQ* $        \r\nCOND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.\r\nMPYAD    PPF,PDZERO, / PPFX /0 $        \r\nEQUIV    PPFX,PPF $        \r\nLABEL    LBLFRLX1 $        \r\n$ FORM NEW LOADS.        \r\nCOND     LBLFRL1,NOBASEX $        \r\nMPYAD    M2GG,BASEXG, / M2BASEXG /0 $        \r\nADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $        \r\nEQUIV    PPF1,PPF $        \r\nCOND     LBLBASE1,NOSET $        \r\nSSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $        \r\nEQUIV    PSF1,PSF // PDF1,PDF $        \r\nLABEL    LBLBASE1 $        \r\nLABEL    LBLFRL1 $        \r\nEQUIV    PPF,PDF/NOSET $        \r\n$ LOADS ARE FREQUENCY-DEPENDENT        \r\n$ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1.        \r\nPARAML   PDF //*TRAILER*/1 /PDFCOLS $        \r\n$ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1.        \r\nPARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX        \r\nEQUIV    PDF,PXF/CYCIO $        \r\nCOND     LBLPDONE,CYCIO $        \r\n$ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1.        \r\nPARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS        \r\nCYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/\r\n         NLOAD /S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nJUMP     LBLPDONE $        \r\nLABEL    LBLFRL2 $        \r\n$ LOADS ARE TIME-DEPENDENT        \r\nPARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $        \r\n$ BRANCH DEPENDING ON VALUE OF CYCIO        \r\nCOND     LBLTRL2,NOTCYCIO $        \r\n$ CYCIO=-1        \r\nEQUIV    PD,PDTRZ1/NORO1 $        \r\nCOND     LBLRO1A,NORO1 $        \r\nMPYAD    PD,REORDER1, / PDTRZ1 / 0 $        \r\nLABEL    LBLRO1A $        \r\nCYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/\r\n         S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXTRZ1,PXFZ1/NORO2 $        \r\nCOND     LBLRO2A,NORO2 $        \r\nMPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $        \r\nLABEL    LBLRO2A $        \r\nEQUIV    PXFZ1,PXF1 $        \r\nJUMP     LBLTRL3 $        \r\nLABEL    LBLTRL2 $        \r\n$ CYCIO = +1        \r\nMPYAD    PD,REORDER1, / PDTRZ2 / 0 $        \r\nCYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/\r\n         V,Y,NSEGS/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXTRZ2,PXTR2/NORO2 $        \r\nCOND     LBLRO2B,NORO2 $        \r\nMPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $        \r\nLABEL    LBLRO2B $        \r\nCYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/\r\n         S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    PXFZ2,PXF1 $        \r\nLABEL    LBLTRL3 $        \r\n$ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND       \r\n$ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX   \r\n$ IN FREQRESP TYPE PROBLEMS.        \r\nCOPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.        \r\nADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $        \r\n$ DEFINE NLOAD FOR CYCT2.        \r\nPARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX        \r\nLABEL    LBLPDONE $        \r\n$        \r\n$ INITIALIZE UXVF IF KMIN IS NOT ZERO.        \r\n$        \r\nPARAM    //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $        \r\nCOND     NOKMINL,KMINL $        \r\nPARAM    //*ADD*/KMINV /0 /0 $        \r\nLABEL    KMINLOOP $        \r\nCYCT2    CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/\r\n         S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nADD      PKFZ, / UKVFZ / (0.0,0.0) $        \r\nPRTPARM  //0/*KINDEX* $        \r\nCYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/\r\n         S,N,NOGO $        \r\nPRTPARM  //0/*KINDEX* $        \r\nCOND     ERRORC1,NOGO $        \r\nPARAM    //*ADD*/KMINV /KMINV /1 $        \r\nREPT     KMINLOOP,KMINL $        \r\nLABEL    NOKMINL $        \r\nCOND     NOKPRT,NOKPRT $        \r\nPRTPARM  //0/*KINDEX* $        \r\nLABEL    NOKPRT $        \r\nCYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/\r\n         CYCSEQ/NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nCYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/\r\n         CYCSEQ/NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nCYCT2    CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/       \r\n         CYCSEQ=-1/1/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nREAD     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $        \r\nOFP      OEIGS,,,,,//S,N,CARDNO $        \r\nCOND     FINIS,NEIGV $        \r\nOFP      LAMK,,,,,//S,N,CARDNO $        \r\nCOND     NOPLOT,JUMPPLOT $        \r\nCYCT2    CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/   \r\n         CYCSEQ/1/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $        \r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/    \r\n         ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $        \r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/ \r\n         PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $        \r\nPRTMSG   PLOTXX// $        \r\nLABEL    NOPLOT $        \r\nGKAM     USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM,       \r\n         KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/     \r\n         NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $        \r\nPARAML   PHIKH//*TRAILER*/1/S,N,NMODES $        \r\nSMPYAD   PHIKH,MKKF,PHIKH,,,/MHH/3////1 $        \r\nSMPYAD   PHIKH,KKKF,PHIKH,,,/KHH/3////1 $        \r\nSMPYAD   PHIKH,BKKF,PHIKH,,,/BHH/3////1 $        \r\nMPYAD    PHIKH,PKF,/PHF/1 $        \r\nEQUIV    MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $        \r\nCOND     KLABEL1,KFLAG $        \r\n$ KINDEX IS EITHER 0 OR NSEGS/2 (NSEGS EVEN ONLY)        \r\nAPDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/        \r\n         S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF//        \r\n         NMODES/V,Y,KINDEX $        \r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $        \r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/        \r\n         NOUE/1 $        \r\nJUMP     KLABEL2 $        \r\nLABEL    KLABEL1 $        \r\n$ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY)        \r\nCYCT2    CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/\r\n         V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nAPDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/        \r\n         S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/       \r\n         NMODES/V,Y,KINDEX $        \r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $        \r\nPARTN    PHIAH,PVECT,/PHIAC,,,/1 $        \r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $        \r\nAPDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/        \r\n         S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/\r\n         V,Y,KINDEX $        \r\nPARTN    PHIAH,PVECT,/PHIAS,,,/1 $        \r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $        \r\nADD      QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $        \r\nLABEL    KLABEL2 $        \r\n$ SOLUTION        \r\nFRRD2    KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $        \r\nDDR1     UKVF,PHIKH/UKKVF $        \r\nEQUIV    UKKVF,UKVF $        \r\nCYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/\r\n         NLOAD/S,N,NOGO $        \r\nCOND     ERRORC1,NOGO $        \r\nEQUIV    UXVF,UDVF / CYCIO $        \r\nCOND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\nCYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $        \r\nLABEL    LCYC3 $        \r\nCOND     LBLTRL4,NOTIME $        \r\nEQUIV    PXF,PDF2 / CYCIO $        \r\nCOND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\nCYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $        \r\nLABEL    LCYC4 $        \r\n$ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF.       \r\nSDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $        \r\nSSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $        \r\nEQUIV    PPFZ,PPF // PSFZ,PSF $        \r\nLABEL    LBLTRL4 $        \r\nVDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/        \r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $        \r\n$ ALTER    138,138 $  USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.\r\nDELETE SDR2 $\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, \r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n         S,N,NOSORT2 $        \r\nCURV     OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $        \r\n$ ALTER    140,141 $        \r\nDELETE SDR3(2),SDR3(2),1 $\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2,      \r\n         OESC2,OEFC2,OESC2M $        \r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $        \r\n$ ALTER    152,152 $        \r\nDELETE PLOT(2),-4 $\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $        \r\n$ ALTER    160 $  ADD LABEL FOR ERROR3.        \r\nINSERT PLOT(2),4 $\r\nLABEL    ERROR3 $        \r\n$ ALTER    163,166 $  REMOVE ERROR1 AND ERROR2.        \r\nDELETE PLOT(2),7,PLOT(2),10 $\r\n$ ALTER    168 $  FORCED VIBRATION ERRORS        \r\nINSERT END,-3 $\r\nLABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.        \r\nPRTPARM  //-5 /*CYCSTATICS* $        \r\nLABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.        \r\nPRTPARM  //0 /C,Y,COUPMASS $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.        \r\nPRTPARM  //-6 /*CYCSTATICS* $        \r\nLABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.        \r\nPRTPARM  //0 /*NOUE* $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.       \r\nPRTPARM  //0 /*NOFRL* $        \r\nPRTPARM  //0 /*NOTRL* $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.  \r\nPRTPARM  //0 /*NOFREQ* $        \r\nPRTPARM  //0 /*NOTIME* $        \r\nJUMP     FINIS $        \r\nLABEL    ERRORC7 $  NO EIGENVALUE EXTRACTION DATA        \r\nPRTPARM  //-2/*CYCMODES* $        \r\nENDALTER $        \r\n"
  },
  {
    "path": "bd/dpdcbd.f",
    "content": "      BLOCK DATA DPDCBD\r\nCDPDCBD\r\nC BLOCK DATA PROGRAM FOR THE DYNAMICS POOL DISTRIBUTOR\r\nC*****\r\nC\r\n      INTEGER       GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL\r\n     1             ,DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1\r\n     2             ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3\r\n     3             ,BUF4  ,EQDYN ,SDT   ,EPOINT,SEQEP ,EIGC  ,EIGB\r\n     5             ,LOADS ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF\r\n     6             ,PSD   ,EIGR\r\nC\r\n      DIMENSION BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)\r\n     1         ,NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2)\r\n     2         ,FREQ(2)   ,EIGC(2)      ,EIGB(2)      ,NOLIN(21)\r\n     3         ,TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)\r\n     4         ,MSG(3)    ,EIGR(2)\r\nC\r\n      COMMON/DPDCOM/DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD\r\n     1             ,DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED\r\n     2             ,SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2\r\n     3             ,BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN\r\n     4             ,LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO\r\n     5             ,MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB\r\n     6             ,EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\nC*****\r\nC INPUT FILES\r\nC*****\r\n      DATA    DPOOL/101/  ,GPL/102/     ,SIL/103/     ,USET/104/\r\nC*****\r\nC OUTPUT FILES\r\nC*****\r\n      DATA    GPLD  /201/ ,SILD  /202/  ,USETD /203/  ,TFL   /204/\r\n     1       ,DLT   /205/ ,PSDL  /206/  ,FRL   /207/  ,NLFT  /208/\r\n     2       ,TRL   /209/ ,EED   /210/  ,EQDYN /211/  ,SDT   /212/\r\nC*****\r\nC SCRATCH FILES\r\nC*****\r\n      DATA    SCR1/301/   ,SCR2/302/    ,SCR3/303/    ,SCR4/304/\r\nC*****\r\nC DATA DEFINING INPUT CARDS\r\nC*****\r\n      DATA EPOINT  /   707,     7/\r\n     1    ,SEQEP   /  5707,    57/\r\n     2    ,LOADS   /    27,    17,     0,     0\r\n     3             ,    37,    18,     0,     0\r\n     4             ,    77,    19,     0,     0\r\n     5             ,  5107,    51,     6,     0\r\n     6             ,  5207,    52,     6,     0\r\n     7             ,  7107,    71,     5,     0\r\n     8             ,  7207,    72,    10,     0\r\n     9             ,     0,     0,     0,     0/\r\n     A    ,DLOAD   /    57,     5/\r\n     B    ,FREQ1   /  1007,    10/\r\n     C    ,FREQ    /  1307,    13/\r\n      DATA NOLIN   /  3107,    31,     8\r\n     E             ,  3207,    32,     8\r\n     F             ,  3307,    33,     8\r\n     G             ,  3407,    34,     8\r\n     H             ,  3507,    35,    16\r\n     I             ,  3607,    36,     5\r\n     J             ,  3707,    37,     8/\r\n      DATA TIC     /  6607,    66/\r\n     I    ,TSTEP   /  8307,    83/\r\n     J    ,TF      /  6207,    62/\r\n     K    ,EIGR    /   307,     3/\r\n     L    ,EIGB    /   107,     1/\r\n     M    ,EIGC    /   207,     2/\r\nC*****\r\nC MISC DATA\r\nC*****\r\n      DATA MCB     /   7*0/\r\n     1    ,NAM     /4HDPD ,4H    /\r\n      END\r\n"
  },
  {
    "path": "bd/exiobd.f",
    "content": "      BLOCK DATA EXIOBD\r\nC\r\nC     BLOCK DATA SUBPROGRAM FOR MODULE EXIO.\r\nC\r\n      INTEGER         F1, F2, F3, P1, P2, P3\r\n      COMMON /EXIO2F/ F1(32), F2(35) ,F3(40)\r\n      COMMON /EXIO2P/ NF, P1(50), P2(50), P3(40)\r\n      DATA    NF    / 28 /\r\n      DATA    P1    /\r\n     1        1        ,7        ,0        ,0        ,0        ,\r\n     2        5        ,33       ,0        ,0        ,0        ,\r\n     3        7        ,30       ,0        ,0        ,0        ,\r\n     4        12       ,0        ,0        ,0        ,0        ,\r\n     5        13       ,0        ,0        ,0        ,0        ,\r\n     6        14       ,8        ,0        ,0        ,0        ,\r\n     7        20       ,0        ,0        ,0        ,0        ,\r\n     8        21       ,4        ,0        ,0        ,0        ,\r\n     9        26       ,10       ,0        ,0        ,0        ,\r\n     O        30       ,16       ,0        ,0        ,0              /\r\n      DATA    P2    /\r\n     1        33       ,0        ,0        ,0        ,0        ,\r\n     2        34       ,0        ,0        ,0        ,0        ,\r\n     3        35       ,4        ,0        ,0        ,0        ,\r\n     4        40       ,0        ,0        ,0        ,0        ,\r\n     5        41       ,0        ,0        ,0        ,0        ,\r\n     6        42       ,23       ,0        ,0        ,0        ,\r\n     7        48       ,24       ,0        ,0        ,0        ,\r\n     8        52       ,11       ,0        ,0        ,0        ,\r\n     9        58       ,12       ,0        ,0        ,0        ,\r\n     O        63       ,7        ,0        ,0        ,0              /\r\n      DATA    P3    /\r\n     1        68       ,12       ,0        ,0        ,0        ,\r\n     2        73       ,15       ,0        ,0        ,0        ,\r\n     3        78       ,12       ,0        ,0        ,0        ,\r\n     4        83       ,10       ,0        ,0        ,0        ,\r\n     5        89       ,2        ,0        ,0        ,0        ,\r\n     6        91       ,10       ,0        ,0        ,0        ,\r\n     7        96       ,12       ,0        ,0        ,0        ,\r\n     8        102      ,14       ,0        ,0        ,0              /\r\n      DATA    F1    /\r\n     1        4H(3A4   ,4H,4I8   ,4H,88X   ,4H)      ,\r\n     2        4H(33A   ,4H4)     ,\r\n     3        4H(2A4   ,4H,2I8   ,4H,26A   ,4H4,4X   ,4H)      ,\r\n     4        4H(04)   ,\r\n     5        4H(05)   ,\r\n     6        4H(2(I   ,4H8,1P   ,4H,3E1   ,4H3.6)   ,4H,38X   ,3H)  ,\r\n     7        4H(07)   ,\r\n     8        4H(2I8   ,4H,1P,   ,4H2E13   ,4H.6,9   ,4H0X)    ,\r\n     9        4H(1P,   ,4H10E1   ,4H3.6,   ,4H2X)    ,\r\n     O        4H(16I   ,4H8,4X   ,4H)                                /\r\n      DATA    F2    /\r\n     1        4H(11)   ,\r\n     2        4H(12)   ,\r\n     3        4H(2A4   ,4H,1P,   ,4H2E13   ,4H.6,9   ,4H8X)    ,\r\n     4        4H(14)   ,\r\n     5        4H(15)   ,\r\n     6        4H(2A4   ,4H,3I8   ,4H,6(2   ,4HA4,I   ,4H8),4   ,3HX) ,\r\n     7        4H(8(2   ,4HA4,I   ,4H8),4   ,4HX)     ,\r\n     8        4H(I8,   ,4H5(I8   ,4H,1P,   ,4HE13.   ,4H6),1   ,3H9X),\r\n     9        4H(6(I   ,4H8,1P   ,4H,E13   ,4H.6),   ,4H6X)    ,\r\n     O        4H(2I8   ,4H,1P,   ,4H5E13   ,4H.6,5   ,4H1X)          /\r\n      DATA    F3    /\r\n     1        4H(6(I   ,4H6,1P   ,4H,E13   ,4H.6),   ,4H18X)   ,\r\n     2        4H(5(I   ,4H6,1P   ,4H,D20   ,4H.13)   ,4H,2X)   ,\r\n     3        4H(4(I   ,4H6,1P   ,4H,2E1   ,4H3.6)   ,4H,4X)   ,\r\n     4        4H(2(I   ,4H6,1P   ,4H,2D2   ,4H0.13   ,4H),40   ,3HX) ,\r\n     5        4H(A4,   ,4HI8)    ,\r\n     6        4H(4I8   ,4H,1P,   ,4H6E13   ,4H.6,2   ,4H2X)    ,\r\n     7        4H(2(5   ,4HI8,1   ,4HP,E1   ,4H3.6)   ,4H,26X   ,3H)  ,\r\n     8        4H(2(6   ,4HI8,1   ,4HP,E1   ,4H3.6)   ,4H,10X   ,3H)  /\r\n      END\r\n"
  },
  {
    "path": "bd/ferfbd.f",
    "content": "      SUBROUTINE FERFBD(V1,V2,V3,VB)\r\nC\r\nC  FERFBD is a modification of the old FRBK2 subroutine.  It has been\r\nC  modified to read matrix data from memory until that data is exhausted\r\nC  and then to read the remaining data from the file.\r\nC\r\n      DOUBLE PRECISION  DCORE(1)\r\n      DOUBLE PRECISION  V1(1)     ,V2(1)     ,V3(1)     ,VB(1)  ,\r\n     1                  XL(1)     ,XLJJ      ,V3J       ,V2J\r\n      INTEGER           IBLK(20)  ,SMAPOS\r\n      COMMON / ZZZZZZ / ICORE(1)   \r\n      COMMON / OPINV  / MCBLT(7)  ,MCBSMA(7)\r\n      COMMON / SYSTEM / KSYSTM(65)\r\n      COMMON / FEERIM / NIDSMA    ,NIDLT     ,NIDORV    ,NLTLI   \r\n     1,                 NSMALI    ,IBFSMA    ,IBFLT\r\n     2,                 IBFORV    ,SMAPOS(7) ,LTPOS(7)\r\n      EQUIVALENCE       ( KSYSTM(02),NOUT)\r\n      EQUIVALENCE       ( DCORE(1)  ,ICORE(1), XL )  \r\nC\r\n      NROW    = MCBLT(2)\r\n      DO 10 I = 1,NROW\r\n   10 V2(I) = V1(I)\r\n      ILROW = LTPOS( 1 )\r\n      ICROW = NROW\r\nC      PRINT *,' FERFBD,ILROW,NIDLT=',ILROW,NIDLT\r\nC      PRINT *,' LTPOS=',LTPOS\r\n      IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 1000\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\nC     POSITION FILE TO LAST COLUMN\r\nC\r\n      IF ( NIDLT .EQ. 0 ) GO TO 12\r\n  11  CONTINUE\r\n      CALL DSSPOS ( MCBLT, LTPOS(5), LTPOS(6), LTPOS(7) )\r\n      GO TO 16\r\n  12  IF ( LTPOS( 5 ) .NE. -1 ) GO TO 11\r\n      CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, NROW+1 )\r\n      CALL DSCPOS ( MCBLT, IBLOCK, ICLR, ICBP )\r\n      LTPOS( 5 ) = IBLOCK\r\n      LTPOS( 6 ) = ICLR\r\n      LTPOS( 7 ) = ICBP\r\n  16  CONTINUE\r\n      IBLK( 1 ) = MCBLT( 1 )\r\n      J       = NROW\r\n  15  IBLK(8) = -1\r\n      ICROW   = J\r\n      IF ( J .LE. ILROW ) GO TO 1000\r\n  20  CALL GETSTB(*50,IBLK(1))\r\n      NTMS    = IBLK(6)\r\n      JI      = IBLK(5)\r\n      IK      = IBLK(4)\r\n      IF( IK - NTMS + 1 .NE. J) GO TO 25\r\n      NTMS    = NTMS - 1\r\n      XLJJ    = XL(JI-NTMS)\r\n      IF(NTMS .EQ. 0) GO TO 40\r\n   25 V2J     = V2(J)\r\n      DO 30 II= 1,NTMS\r\n      V2J     = V2J + XL(JI) * V2(IK)\r\n      JI      = JI - 1\r\n      IK      = IK - 1\r\n   30 CONTINUE\r\n      V2(J)   = V2J\r\n   40 CALL ENDGTB(IBLK(1))\r\n      GO TO 20\r\n   50 V2(J)   = V2(J) / XLJJ\r\n      IF(J .EQ. 1) GO TO 2000\r\n      J       = J -1\r\n      GO TO 15\r\nC\r\nC     CONTINUE BACKWARD SUBSTITUTION WITH DATA IN MEMORY\r\nC\r\n1000  CONTINUE\r\n      MEM     = NLTLI\r\nC      PRINT *,' AT 1000,NLTLI=',NLTLI\r\n      NTMS    = ICORE(MEM)\r\nC      PRINT *,' ICORE(NLTLI,-1=',ICORE(NLTLI),ICORE(NLTLI-1)\r\n      MEM     = MEM - 2*NTMS - 3\r\n      J       = ICROW\r\n 1015 ICOL    = ICORE(MEM)\r\nC      PRINT *,' MEM,ICORE(MEM-1,0,+1=',MEM,ICORE(MEM-1),ICORE(MEM),\r\nC     & ICORE(MEM+1)\r\nC      PRINT *,' ICOL,MEM,NTMS,ICROW,J=',ICOL,MEM,NTMS,ICROW,J\r\n      IF ( ICOL .NE. J ) GO TO 1050\r\n      NTMS    = ICORE(MEM+1)\r\nC      PRINT *,' FERFBD,A1015,J,NTMS,ICOL=',J,NTMS,ICOL\r\n      NTMSS   = NTMS\r\n      JI      = MEM/2 + 1 + NTMS\r\n      IK      = ICORE( MEM + 2 + 2*NTMS ) + NTMS - 1\r\nC      PRINT *,' FERFBD,IK=',IK\r\n      IF( IK-NTMS+1 .NE. J) GO TO 1025\r\n      NTMS    = NTMS - 1\r\n      XLJJ    = DCORE(JI-NTMS)\r\nC      PRINT *,' FERFBD,XLJJ=',XLJJ\r\n      IF(NTMS .EQ. 0) GO TO 1040\r\n 1025 V2J     = V2(J)\r\n      DO 1030 II= 1,NTMS\r\n      V2J     = V2J + DCORE(JI) * V2(IK)\r\n      JI      = JI - 1\r\n      IK      = IK - 1\r\n 1030 CONTINUE\r\n      V2(J)   = V2J\r\n 1040 IF ( MEM .EQ. NIDLT ) GO TO 1050\r\n      NTMSNX  = ICORE( MEM-1 )\r\n      MEM     = MEM - 2*NTMSNX - 4\r\n      GO TO 1015\r\n 1050 V2(J)   = V2(J) / XLJJ\r\n      IF(J .EQ. 1) GO TO 2000\r\n      J       = J -1\r\n      GO TO 1015\r\n2000  CONTINUE\r\n      CALL FERLTD(MCBSMA(1),V2(1),V3(1),VB(1) )\r\nC\r\nC BEGIN FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      ICROW = 1\r\n      IF ( NIDLT .EQ. 0 ) GO TO 3005\r\n      MEM=NIDLT\r\n      DO 2120 J = 1, NROW\r\n      ICROW = J\r\n      IF ( J .GT. ILROW ) GO TO 3000\r\n 2080 ICOL  = ICORE(MEM)\r\n      IF( ICOL .NE. J ) GO TO 2120\r\n      JI    = MEM/2 + 2\r\n      NTMS  = ICORE( MEM+1 )\r\n      NTMSS = NTMS\r\n      IK    = ICORE(MEM + 2 + 2*NTMS)\r\n      IF ( IK .NE. J ) GO TO 2085\r\n      NTMS  = NTMS - 1\r\n      V3(J) = V3(J) / DCORE(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n 2085 IF(NTMS .EQ. 0) GO TO 2100\r\n      V3J   = V3(J)\r\n      DO 2090 II = 1,NTMS\r\n      V3(IK)= V3(IK) + DCORE(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n 2090 CONTINUE\r\n 2100 MEM   = MEM + 2*NTMSS + 4\r\n      GO TO 2080\r\n 2120 CONTINUE\r\n      GO TO 7000\r\n 3000 CONTINUE\r\nC\r\nC     CONTINUE FORWARD SWEEP DIRECTLY ON V3\r\nC\r\nC     POSITION FILE TO CONTINUE READING COLUMN DATA NOT IN MEMORY\r\nC\r\n      CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) )\r\n      GO TO 3008\r\n 3005 CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, 1 )\r\n 3008 CONTINUE\r\n      DO 3120 J = ICROW, NROW\r\n      IBLK( 8 ) = -1\r\n 3080 CALL GETSTR( *3120, IBLK )\r\nC      PRINT *,' GETSTR,J,IBLK(12=',J,IBLK(12)\r\n      IK    = IBLK( 4 )\r\n      JI    = IBLK( 5 )\r\n      NTMS  = IBLK( 6 )\r\n      IF ( IK .NE. J) GO TO 3085\r\n      NTMS  = NTMS - 1\r\nC      PRINT *,' IK,JI,XL(JI=',IK,JI,XL(JI)\r\n      V3(J) = V3(J) / XL(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n 3085 IF(NTMS .EQ. 0) GO TO 3100\r\n      V3J   = V3(J)\r\n      DO 3090 II = 1,NTMS\r\n      V3(IK)= V3(IK) + XL(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n 3090 CONTINUE\r\n 3100 CALL ENDGET(IBLK(1))\r\n      GO TO 3080\r\n 3120 CONTINUE\r\n      GO TO 7000\r\n 7000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "bd/flbbd.f",
    "content": "      BLOCK DATA FLBBD\r\nCFLBBD\r\nC     FLBBD - BLOCK DATA FOR MODULE FLBMG\r\nC\r\n      INTEGER         GEOM2    ,ECT      ,BGPDT    ,SIL      ,GEOM3    ,\r\n     1                CSTM     ,USET     ,EQEXIN   ,USETF    ,USETS    ,\r\n     2                AF       ,DKGG     ,FBELM    ,FRELM    ,CONECT   ,\r\n     3                AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\nC\r\nC     GINO FILES\r\nC\r\n      COMMON /FLBFIL/ GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\nC\r\nC     INPUT DATA BLOCKS\r\nC\r\n      DATA            GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN             /\r\n     2                101      ,102      ,103      ,104      ,105      ,\r\n     3                106      ,107      ,108      ,109                /\r\nC\r\nC     OUTPUT DATA BLOCKS\r\nC\r\n      DATA            USETF    ,USETS    ,AF       ,DKGG               /\r\n     1                201      ,202      ,203      ,204                /\r\nC\r\nC     INTERNAL SCRATCH FILES\r\nC\r\n      DATA            FBELM    ,FRELM    ,CONECT   ,AFMAT    ,AFDICT   ,\r\n     1                KGMAT    ,KGDICT                                 /\r\n     2                301      ,302      ,303      ,304      ,305      ,\r\n     3                306      ,307                                    /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/gp3bd.f",
    "content": "      BLOCK DATA GP3BD\r\nCGP3BD\r\nC\r\nC     BLOCK DATA PROGRAM FOR MODULE GP3.\r\nC\r\n      INTEGER         GEOM3 ,EQEXIN,GEOM2 ,SLT   ,GPTT  ,SCR1  ,SCR2   ,\r\n     1                CARDID,BUF   ,CARDDT,STATUS,PLOAD2,TEMP  ,TEMPD  ,\r\n     2                TEMPP1,TEMPP2,TEMPP3,TEMPRB,PLOAD3,TEMPG ,TEMPP4\r\nC\r\n      COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT   ,GPTT  ,SCR1  ,SCR2   ,\r\n     1                BUF1  ,BUF2  ,BUF(50)      ,CARDID(60)   ,IDNO(30)\r\n     2              , CARDDT(60)   ,MASK(60)     ,STATUS(60)   ,NTYPES ,\r\n     3                IPLOAD,IGRAV ,PLOAD2(2)    ,LOAD(2)      ,NOPLD2 ,\r\n     4                TEMP(2)      ,TEMPD(2)     ,TEMPP1(2)    ,\r\n     5                TEMPP2(2)    ,TEMPP3(2)    ,TEMPRB(2)    ,BUF3   ,\r\n     6                PLOAD3(2)    ,IPLD3        ,TEMPG(2)     ,\r\n     7                TEMPP4(2)\r\nC\r\nC     GINO NAMES FOR INPUT, OUTPUT AND SCRATCH FILES.\r\nC\r\n      DATA    GEOM3 , EQEXIN,GEOM2 ,SLT  ,GPTT, SCR1 ,SCR2 /\r\n     1        101   , 102   ,103   ,201  ,202 , 301  ,302  /\r\nC\r\nC     DATA DEFINING LOAD CARDS--\r\nC     CARDID - TWO-WORD RECORD ID DEFINING CARD TYPE.\r\nC     CARDDT - TWO WORDS PER CARD TYPE. 1ST WORD IS NO. OF WORDS PER\r\nC              CARD. 2ND WORD IS POINTER IN MASK TABLE TO ENTRY WHICH\r\nC              DESCRIBES THE NUMBER AND LOCATION OF GRID POINTS ON THE\r\nC              CARD.\r\nC     MASK   - TABLE AS DESCRIBED ABOVE.\r\nC     IDNO   - INTERNAL CARD TYPE ID.\r\nC\r\nC              FORCE1   FORCE2   FORCE    GRAV     RFORCE\r\nC              MOMNT1   MOMNT2   MOMENT   PLOAD    SLOAD\r\nC              PRESAX   QHBDY    QVOL     QBDY1    QBDY2\r\nC              QVECT    PLOAD3   PLOAD1   PLOADX   CEMLOOP\r\nC              SPCFLD   GEMLOOP  REMFLUX  MDIPOLE  PLOAD4\r\nC\r\n      DATA    CARDID/ 4001,40, 4101,41, 4201,42, 4401,44, 5509,55,\r\n     1                4601,46, 4701,47, 4801,48, 5101,51, 5401,54,\r\n     2                5215,52, 4309,43, 5209,52, 4509,45, 4909,49,\r\n     3                5009,50, 7109,71, 6909,69, 7001,70, 3109,31,\r\n     4                3209,32, 3309,33, 3409,34, 3509,35, 6709,67,\r\n     5                0000,00, 0000,00, 0000,00, 0000,00, 0000,00/\r\nC\r\nCWKBR 2/95 SPR94015 DATA    CARDDT/ 5, 3,    7, 7,    7, 1,    6, 0,    8, 1,         \r\n      DATA    CARDDT/ 5, 3,    7, 7,    7, 1,    6, 0,    7, 1,              \r\n     1                5, 3,    7, 7,    7, 1,    6,13,    3, 1,\r\n     2                7,18,    8,21,    3, 0,    3, 0,    6, 0,\r\n     3                6, 0,   39,26,    8, 0,    6,14,   13, 0,\r\n     4                6,28,   49, 0,    6, 0,   10, 0,   12, 0,\r\n     5                0, 0,    0, 0,    0, 0,    0, 0,    0, 0/\r\nC\r\n      DATA    STATUS/ -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0,\r\n     1                -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0,\r\n     2                -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0,\r\n     3                -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0,\r\n     4                -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0,\r\n     5                -1, 0,   -1, 0,   -1, 0,   -1, 0,   -1, 0/\r\nC\r\n      DATA    IDNO  /  3,       5,       1,       8,      10,\r\n     1                 4,       6,       2,       9,       7,\r\n     2                11,      12,      13,      14,      15,\r\n     3                16,      17,      18,      19,      21,\r\n     4                20,      22,      24,      23,      25,\r\n     5                 0,       0,       0,       0,       0/\r\nC\r\n      DATA    MASK  / 1,2,\r\n     1                3,2,4,5,\r\n     2                5,2,4,5,6,7,\r\n     3                4,3,4,5,6,\r\n     4                2,3,4,\r\n     5                4,5,6,7,8,32,-8,1,6,31*0/\r\nC\r\nC     MISCELANEOUS DATA.\r\nC\r\n      DATA    NTYPES/    49/\r\n     1        IGRAV /     7/\r\n     2        IPLOAD/    17/\r\n     3        PLOAD2/  6809,    68/\r\n     4        LOAD  /  4551,    61/\r\n     5        NOPLD2/     0/\r\n     6        TEMP  /  5701,    57/\r\n     7        TEMPD /  5641,    65/\r\n     8        TEMPP1/  8109,    81/\r\n     9        TEMPP2/  8209,    82/\r\n     A        TEMPP3/  8309,    83/\r\n     B        TEMPRB/  8409,    84/\r\n     C        PLOAD3/  7109,    71/\r\n     D        IPLD3 /    33/\r\n     E        TEMPG /  8509,    85/\r\n     F        TEMPP4/  8609,    86/\r\n      END\r\n"
  },
  {
    "path": "bd/gptabd.f",
    "content": "      BLOCK DATA GPTABD\r\nCGPTABD\r\nC     BLOCK DATA PROGRAM FOR ALL MODULES HAVING ANYTHING TO DO WITH THE\r\nC     NASTRAN STRUCTURAL ELEMENTS.\r\nC\r\nC     NOTE. ALL MODULES SHOULD BE WRITTEN TO TAKE ADVANTAGE OF THE\r\nC     FLEXIBLE NATURE OF THIS DATA.\r\nC\r\nC     THE ELEMENTS OF NASTRAN ARE ALL REPRESENTED BELOW.  THEY ARE\r\nC     ARRANGED BY ELEMENT TYPE NUMBER.  EACH ELEMENT ENTRY BELOW\r\nC     CONTAINS -INCR- NUMBER OF VALUES.  -INCR- AT SOME FUTURE DATE MAY\r\nC     GROW LARGER THUS MODULE WRITERS SHOULD ALWAYS INCLUDE -INCR- WHEN\r\nC     COMPUTING INDEXES INTO THIS DATA.\r\nC\r\nC     -NELEM- IS SIMPLY THE CURRENT NUMBER OF ELEMENTS IN NASTRAN.\r\nC\r\nC     -LAST- IS SIMPLY THE NUMBER OF THE FIRST WORD OF THE LAST ELEMENT\r\nC     ENTRY SUCH THAT DO LOOPS MAY HAVE THE FOLLOWING FORM.\r\nC\r\nC              DO 100 I = 1,LAST,INCR\r\nC                     . . .\r\nC                     . . .\r\nC                     . . .\r\nC          100 CONTINUE\r\nC\r\nC     THUS IN THE ABOVE LOOP E(I) POINTS TO THE FIRST WORD OF OF AN\r\nC     ELEMENT ENTRY.\r\nC\r\nC     TERMS OF EACH ELEMENT ENTRY.\r\nC     ============================\r\nC      1. AND 2.  = ELEMENT NAME STORED 2A4\r\nC      3. ELEMENT TYPE NUMBER\r\nC      4. AND 5. ELEMENT-CONNECTION-TABLE RECORD ID AND BIT NUMBER\r\nC      6. NUMBER OF ELEMENT CONNECTION TABLE WORDS FOR THIS ELEMENT\r\nC      7. 8. AND 9. SAME AS 4. 5. AND 6. BUT FOR ELEMENT PROPERTY TABLE\r\nC     10. NUMBER OF GRID POINTS FOR THIS ELEMENT\r\nC     11. SCALAR\r\nC     12. NUMBER OF WORDS IN THE ELEMENT-SUMMARY-TABLE FOR THIS ELEMENT\r\nC     13. POSITION IN ECT OF FIRST GRID POINT\r\nC     14. AND 15. TEMPERATURE TYPE AND COUNT AS USED BY THE SSG MODULE\r\nC     16. TWO LETTER SYMBOL FOR PLOTTING.  ELEMENT WILL BE PLOTTED IF\r\nC         WORD 10 IS 2 TO 42 AND WORD 11 IS ZERO AND WORD 16 .NE. 2HXX\r\nC     17. NUMBER OF ESTA WORDS SDR2 WILL PICK UP FROM PHASE-1 ELEMENT\r\nC         ROUTINES AND PASS TO THE PHASE-2 ELEMENT ROUTINES\r\nC     18. AND 19. THE REAL STRESS WORD AND FORCE WORD COUNTS FOR OUT-\r\nC         PUTS FROM THE SDR2 PHASE-2 ROUTINES TO AN OUTPUT FILE FOR OFP\r\nC     20. AND 21. COMPLEX STRESS AND FORCE POINTERS FOR ORDERING OF\r\nC         COMPLEX STRESS AND FORCE OUTPUTS TO A FILE FOR OFP PROCESSING\r\nC     22. 23. AND 24. SMA1, SMA2, AND DS1 ELEMENT OVERLAY TREE POSITION\r\nC     25. MAXIMUM DEGREES OF FREEDOM DEFINED FOR ELEMENT\r\nC\r\nC\r\n      INTEGER E(2150),\r\n     1        E 1(25),E 2(25),E 3(25),E 4(25),E 5(25),E 6(25),E 7(25),\r\n     2        E 8(25),E 9(25),E10(25),E11(25),E12(25),E13(25),E14(25),\r\n     3        E15(25),E16(25),E17(25),E18(25),E19(25),E20(25),E21(25),\r\n     4        E22(25),E23(25),E24(25),E25(25),E26(25),E27(25),E28(25),\r\n     5        E29(25),E30(25),E31(25),E32(25),E33(25),E34(25),E35(25),\r\n     6        E36(25),E37(25),E38(25),E39(25),E40(25),E41(25),E42(25),\r\n     7        E43(25),E44(25),E45(25),E46(25),E47(25),E48(25),E49(25),\r\n     8        E50(25),E51(25),E52(25),E53(25),E54(25),E55(25),E56(25),\r\n     9        E57(25),E58(25),E59(25),E60(25),E61(25),E62(25),E63(25),\r\n     O        E64(25),E65(25),E66(25),E67(25),E68(25),E69(25),E70(25),\r\n     1        E71(25),E72(25),E73(25),E74(25),E75(25),E76(25),E77(25),\r\n     2        E78(25),E79(25),E80(25),E81(25),E82(25),E83(25),E84(25),\r\n     3        E85(25),E86(25)\r\nC\r\n      INTEGER COMPLX(530),\r\n     1        COMP1(100),COMP2(100),COMP3(100),COMP4(100),COMP5(100),\r\n     2        COMP6( 30)\r\nC\r\n      COMMON /GPTA1 / NELEM,LAST,INCR,E\r\n      COMMON /CLSTRS/ COMPLX\r\nC\r\n      EQUIVALENCE (E 1(1),E(   1)), (E 2(1),E(  26)), (E 3(1),E(  51)),\r\n     1            (E 4(1),E(  76)), (E 5(1),E( 101)), (E 6(1),E( 126)),\r\n     2            (E 7(1),E( 151)), (E 8(1),E( 176)), (E 9(1),E( 201)),\r\n     3            (E10(1),E( 226)), (E11(1),E( 251)), (E12(1),E( 276)),\r\n     4            (E13(1),E( 301)), (E14(1),E( 326)), (E15(1),E( 351)),\r\n     5            (E16(1),E( 376)), (E17(1),E( 401)), (E18(1),E( 426)),\r\n     6            (E19(1),E( 451)), (E20(1),E( 476)), (E21(1),E( 501)),\r\n     7            (E22(1),E( 526)), (E23(1),E( 551)), (E24(1),E( 576)),\r\n     8            (E25(1),E( 601)), (E26(1),E( 626)), (E27(1),E( 651)),\r\nCRPKR THE FOLLOWING TWO LINES WERE REPLACED\r\nCRPKR EQUIVALENCE STATEMENT TOO LONG\r\nCRPKR9            (E28(1),E( 676)), (E29(1),E( 701)), (E30(1),E( 726)),\r\nCRPKRO            (E31(1),E( 751)), (E32(1),E( 776)), (E33(1),E( 801)),\r\n     9            (E28(1),E( 676)), (E29(1),E( 701)), (E30(1),E( 726))\r\n      EQUIVALENCE (E31(1),E( 751)), (E32(1),E( 776)), (E33(1),E( 801)),\r\n     1            (E34(1),E( 826)), (E35(1),E( 851)), (E36(1),E( 876)),\r\n     2            (E37(1),E( 901)), (E38(1),E( 926)), (E39(1),E( 951)),\r\n     3            (E40(1),E( 976)), (E41(1),E(1001)), (E42(1),E(1026)),\r\n     4            (E43(1),E(1051)), (E44(1),E(1076)), (E45(1),E(1101)),\r\n     5            (E46(1),E(1126)), (E47(1),E(1151)), (E48(1),E(1176)),\r\n     6            (E49(1),E(1201)), (E50(1),E(1226)), (E51(1),E(1251)),\r\n     7            (E52(1),E(1276)), (E53(1),E(1301)), (E54(1),E(1326)),\r\n     8            (E55(1),E(1351)), (E56(1),E(1376)), (E57(1),E(1401)),\r\n     9            (E58(1),E(1426)), (E59(1),E(1451)), (E60(1),E(1476))\r\n      EQUIVALENCE (E61(1),E(1501)), (E62(1),E(1526)), (E63(1),E(1551)),\r\n     1            (E64(1),E(1576)), (E65(1),E(1601)), (E66(1),E(1626)),\r\n     2            (E67(1),E(1651)), (E68(1),E(1676)), (E69(1),E(1701)),\r\n     3            (E70(1),E(1726)), (E71(1),E(1751)), (E72(1),E(1776)),\r\n     4            (E73(1),E(1801)), (E74(1),E(1826)), (E75(1),E(1851)),\r\n     5            (E76(1),E(1876)), (E77(1),E(1901)), (E78(1),E(1926)),\r\n     6            (E79(1),E(1951)), (E80(1),E(1976)), (E81(1),E(2001)),\r\n     7            (E82(1),E(2026)), (E83(1),E(2051)), (E84(1),E(2076)),\r\n     8            (E85(1),E(2101)), (E86(1),E(2126))\r\nC\r\n      EQUIVALENCE (COMPLX(  1),COMP1(1)), (COMPLX(101),COMP2(1)),\r\n     1            (COMPLX(201),COMP3(1)), (COMPLX(301),COMP4(1)),\r\n     2            (COMPLX(401),COMP5(1)), (COMPLX(501),COMP6(1))\r\nC\r\n      DATA  NELEM /86/ ,LAST /2150/ ,INCR/25/\r\nC\r\nC     CURRENTLY ECTBIT USES 1 THRU 96, EXCEPT\r\nC        76-77, 82, 88-90, 94-96\r\nC     (50 IS USED BY CONGRUENT ELEMENT, CNGRNT, WITH ECT-ID 5008)\r\nC\r\nC     CURRENTLY EPTBIT USES 1 THRU 96, EXCEPT\r\nC        26-48, 50, 52, 54-55, 57, 59-60, 71-81, 83, 86-94 AND 96\r\nC\r\nC                ------,------,------,------,------,------,------,\r\nC     DATA  Exx/ NAME1 ,NAME2 ,ELTYPE,ECT-ID,ECTBIT,ECTWDS,EPT-ID,\r\nC                EPTBIT,EPTWDS,GRDPTS,SCALAR,ESTWDS,GRID1 ,TEMTYP,\r\nC                TEMCT ,SYMBOL,ESTAWD,STRESS,FORCE ,STRSPT,FORCPT,\r\nC                SMA1OV,SMA2OV,DS1OV ,MAXDOF/\r\nC                ------,------,------,------,------,------,------,\r\n      DATA  E 1/ 4HROD ,4H    ,     1,  3001,    30,     4,   902,\r\n     1                9,     6,     2,     0,    17,     3,     1,\r\n     2                2,2HRD  ,    23,     5,     3,    41,    13,\r\n     3                1,     1,     1,     6/\r\nC\r\nC     NOTE FROM G.CHAN/UNISYS  9/91\r\nC     THE NEXT ELEMENT IS NOT AVAILABLE IN COSMIC/NASTRAN. BUT ELEMENT\r\nC     TYPE 2 IS USED LOCALLY IN DS1 SUBROUTINE. CHECK WITH DS1 FIRST IF\r\nC     BEAM ELEMENT IS TO BE USED. MAKE SURE THERE IS NO CONFLICT ABOUT\r\nC     ELEMENT TYPE 2\r\nC\r\n      DATA  E 2/ 4HBEAM,4H    ,     2,   101,     1,    20,   102,\r\n     1                1,    20,     2,     0,    47,     3,     0,\r\n     2                0,2HBM  ,    88,    14,     9,     0,     0,\r\n     3                1,     1,     1,     6/\r\n      DATA  E 3/ 4HTUBE,4H    ,     3,  3701,    37,     4,  1602,\r\n     1               16,     5,     2,     0,    16,     3,     1,\r\n     2                2,2HTU  ,    23,     5,     3,    41,    13,\r\n     3                1,     1,     1,     6/\r\n      DATA  E 4/ 4HSHEA,4HR   ,     4,  3101,    31,     6,  1002,\r\n     1               10,     4,     4,     0,    25,     3,     2,\r\n     2                7,2HSH  ,    33,     4,    17,    47,   156,\r\n     3                1,     1,     1,     6/\r\n      DATA  E 5/ 4HTWIS,4HT   ,     5,  3801,    38,     6,  1702,\r\n     1               17,     4,     4,     0,    25,     3,     2,\r\n     2                7,2HTW  ,    25,     4,     3,    47,    13,\r\n     3                1,     1,     0,     6/\r\n      DATA  E 6/ 4HTRIA,4H1   ,     6,  3301,    33,     6,  1202,\r\n     1               12,    10,     3,     0,    27,     3,     2,\r\n     2                7,2HT1  ,   137,    17,     6,    73,     1,\r\n     3                1,     1,     2,     6/\r\n      DATA  E 7/ 4HTRBS,4HC   ,     7,  3201,    32,     6,  1102,\r\n     1               11,     8,     3,     0,    25,     3,     2,\r\n     2                7,2HTB  ,   101,    17,     6,    73,     1,\r\n     3                1,     1,     0,     6/\r\n      DATA  E 8/ 4HTRPL,4HT   ,     8,  3601,    36,     6,  1502,\r\n     1               15,     8,     3,     0,    25,     3,     2,\r\n     2                7,2HTP  ,   101,    17,     6,    73,     1,\r\n     3                1,     1,     0,     6/\r\n      DATA  E 9/ 4HTRME,4HM   ,     9,  3501,    35,     6,  1402,\r\n     1               14,     4,     3,     0,    21,     3,     2,\r\n     2                2,2HTM  ,    36,     8,     0,    89,     0,\r\n     3                1,     1,     2,     6/\r\n      DATA  E10/ 4HCONR,4HOD  ,    10,  1601,    16,     8,     0,\r\n     1                0,     0,     2,     0,    17,     2,     1,\r\n     2                2,2HCR  ,    23,     5,     3,    41,    13,\r\n     3                1,     1,     1,     6/\r\n      DATA  E11/ 4HELAS,4H1   ,    11,   601,     6,     6,   302,\r\n     1                3,     4,     2,     1,     8,     3,     0,\r\n     2                0,2H    ,     5,     2,     2,    19,    19,\r\n     3                1,     1,     0,     1/\r\n      DATA  E12/ 4HELAS,4H2   ,    12,   701,     7,     8,     0,\r\n     1                0,     0,     2,     1,     8,     3,     0,\r\n     2                0,2H    ,     5,     2,     2,    19,    19,\r\n     3                1,     1,     0,     1/\r\n      DATA  E13/ 4HELAS,4H3   ,    13,   801,     8,     4,   302,\r\n     1                3,     4,     2,    -1,     6,     3,     0,\r\n     2                0,2H    ,     5,     2,     2,    19,    19,\r\n     3                1,     1,     0,     1/\r\n      DATA  E14/ 4HELAS,4H4   ,    14,   901,     9,     4,     0,\r\n     1                0,     0,     2,    -1,     4,     3,     0,\r\n     2                0,2H    ,     5,     0,     2,    19,    19,\r\n     3                1,     1,     0,     1/\r\n      DATA  E15/ 4HQDPL,4HT   ,    15,  2701,    27,     7,   602,\r\n     1                6,     8,     4,     0,    30,     3,     2,\r\n     2                7,2HQP  ,   131,    17,     6,    73,     1,\r\n     3                1,     1,     0,     6/\r\n      DATA  E16/ 4HQDME,4HM   ,    16,  2601,    26,     7,   502,\r\n     1                5,     4,     4,     0,    26,     3,     2,\r\n     2                2,2HQM  ,    45,     8,     0,    89,     0,\r\n     3                1,     1,     2,     6/\r\n      DATA  E17/ 4HTRIA,4H2   ,    17,  3401,    34,     6,  1302,\r\n     1               13,     4,     3,     0,    21,     3,     2,\r\n     2                7,2HT2  ,   137,    17,     6,    73,     1,\r\n     3                1,     1,     2,     6/\r\n      DATA  E18/ 4HQUAD,4H2   ,    18,  2901,    29,     7,   802,\r\n     1                8,     4,     4,     0,    26,     3,     2,\r\n     2                7,2HQ2  ,   176,    17,     6,    73,     1,\r\n     3                1,     1,     2,     6/\r\n      DATA  E19/ 4HQUAD,4H1   ,    19,  2801,    28,     7,   702,\r\n     1                7,    10,     4,     0,    32,     3,     2,\r\n     2                7,2HQ1  ,   176,    17,     6,    73,     1,\r\n     3                1,     1,     2,     6/\r\n      DATA  E20/ 4HDAMP,4H1   ,    20,   201,     2,     6,   202,\r\n     1                2,     2,     2,     1,     6,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E21/ 4HDAMP,4H2   ,    21,   301,     3,     6,     0,\r\n     1                0,     0,     2,     1,     6,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E22/ 4HDAMP,4H3   ,    22,   401,     4,     4,   202,\r\n     1                2,     2,     2,    -1,     4,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E23/ 4HDAMP,4H4   ,    23,   501,     5,     4,     0,\r\n     1                0,     0,     2,    -1,     4,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E24/ 4HVISC,4H    ,    24,  3901,    39,     4,  1802,\r\n     1               18,     3,     2,     0,    14,     3,     0,\r\n     2                0,2HVS  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E25/ 4HMASS,4H1   ,    25,  1001,    10,     6,   402,\r\n     1                4,     2,     2,     1,     6,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E26/ 4HMASS,4H2   ,    26,  1101,    11,     6,     0,\r\n     1                0,     0,     2,     1,     6,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E27/ 4HMASS,4H3   ,    27,  1201,    12,     4,   402,\r\n     1                4,     2,     2,    -1,     4,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E28/ 4HMASS,4H4   ,    28,  1301,    13,     4,     0,\r\n     1                0,     0,     2,    -1,     4,     3,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E29/ 4HCONM,4H1   ,    29,  1401,    14,    24,     0,\r\n     1                0,     0,     1,     0,    29,     2,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E30/ 4HCONM,4H2   ,    30,  1501,    15,    13,     0,\r\n     1                0,     0,     1,     0,    18,     2,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E31/ 4HPLOT,4HEL  ,    31,  5201,    52,     3,     0,\r\n     1                0,     0,     2,     0,    12,     2,     0,\r\n     2                0,2HPL  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E32/ 4HREAC,4HT   ,    32,  5251,    60,    19,     0,\r\n     1                0,     0,     1,     0,    24,     2,     0,\r\n     2                0,2H    ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E33/ 4HQUAD,4H3   ,    33,  2958,    40,     7,   852,\r\n     1               49,    62,     4,     0,    24,     3,     0,\r\n     2                0,2HQ3  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E34/ 4HBAR ,4H    ,    34,  2408,    24,    16,    52,\r\n     1               20,    19,     2,     0,    42,     3,     1,\r\n     2               15,2HBR  ,   124,    16,     9,    53,    23,\r\n     3                1,     1,     1,     6/\r\n      DATA  E35/ 4HCONE,4HAX  ,    35,  8515,    85,     4,   152,\r\n     1               19,    24,     2,     0,    35,     3,     3,\r\n     2                4,2HCN  ,   118,    18,     7,     0,     0,\r\n     3                2,     2,     2,     6/\r\n      DATA  E36/ 4HTRIA,4HRG  ,    36,  1708,    17,     6,     0,\r\n     1                0,     0,     3,     0,    19,     2,     3,\r\n     2                5,2HTI  ,   126,     5,    10,     0,     0,\r\n     3                2,     2,     0,     6/\r\n      DATA  E37/ 4HTRAP,4HRG  ,    37,  1808,    18,     7,     0,\r\n     1                0,     0,     4,     0,    24,     2,     3,\r\n     2                6,2HTA  ,   394,    21,    13,     0,     0,\r\n     3                2,     2,     0,     6/\r\n      DATA  E38/ 4HTORD,4HRG  ,    38,  1908,    19,     7,  2102,\r\n     1               21,     4,     2,     0,    18,     3,     3,\r\n     2                4,2HTR  ,   358,    16,    13,     0,     0,\r\n     3                2,     2,     0,     6/\r\n      DATA  E39/ 4HTETR,4HA   ,    39,  5508,    55,     6,     0,\r\n     1                0,     0,     4,     0,    23,     3,     3,\r\n     2                6,2HTE  ,    88,     9,     0,    97,     0,\r\n     3                3,     1,     0,     6/\r\n      DATA  E40/ 4HWEDG,4HE   ,    40,  5608,    56,     8,     0,\r\n     1                0,     0,     6,     0,    33,     3,     3,\r\n     2                8,2HWG  ,   128,     9,     0,    97,     0,\r\n     3                3,     1,     0,     6/\r\n      DATA  E41/ 4HHEXA,4H1   ,    41,  5708,    57,    10,     0,\r\n     1                0,     0,     8,     0,    43,     3,     3,\r\n     2               10,2HH1  ,   168,     9,     0,    97,     0,\r\n     3                3,     1,     0,     6/\r\n      DATA  E42/ 4HHEXA,4H2   ,    42,  5808,    58,    10,     0,\r\n     1                0,     0,     8,     0,    43,     3,     3,\r\n     2               10,2HH2  ,   168,     9,     0,    97,     0,\r\n     3                3,     1,     0,     6/\r\n      DATA  E43/ 4HFLUI,4HD2  ,    43,  7815,    78,     6,     0,\r\n     1                0,     0,     2,     0,    15,     2,     0,\r\n     2                0,2HF2  ,     0,     0,     0,     0,     0,\r\n     3                3,     1,     0,     6/\r\n      DATA  E44/ 4HFLUI,4HD3  ,    44,  7915,    79,     7,     0,\r\n     1                0,     0,     3,     0,    20,     2,     0,\r\n     2                0,2HF3  ,     0,     0,     0,     0,     0,\r\n     3                3,     1,     0,     1/\r\n      DATA  E45/ 4HFLUI,4HD4  ,    45,  8015,    80,     8,     0,\r\n     1                0,     0,     4,     0,    25,     2,     0,\r\n     2                0,2HF4  ,     0,     0,     0,     0,     0,\r\n     3                3,     1,     0,     1/\r\n      DATA  E46/ 4HFLMA,4HSS  ,    46,  2508,    25,     5,     0,\r\n     1                0,     0,     2,     0,    14,     2,     0,\r\n     2                0,2HFM  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E47/ 4HAXIF,4H2   ,    47,  2108,    21,     6,     0,\r\n     1                0,     0,     2,     0,    15,     2,     0,\r\n     2                0,2HA2  ,    13,     5,     0,   111,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E48/ 4HAXIF,4H3   ,    48,  2208,    22,     7,     0,\r\n     1                0,     0,     3,     0,    20,     2,     0,\r\n     2                0,2HA3  ,    32,    10,     0,   122,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E49/ 4HAXIF,4H4   ,    49,  2308,    23,     8,     0,\r\n     1                0,     0,     4,     0,    25,     2,     0,\r\n     2                0,2HA4  ,    49,    12,     0,   122,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E50/ 4HSLOT,4H3   ,    50,  4408,    44,     8,     0,\r\n     1                0,     0,     3,     0,    21,     2,     0,\r\n     2                0,2HS3  ,    20,     6,     0,     1,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E51/ 4HSLOT,4H4   ,    51,  4508,    45,     9,     0,\r\n     1                0,     0,     4,     0,    26,     2,     0,\r\n     2                0,2HS4  ,    29,     7,     0,   142,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E52/ 4HHBDY,4H    ,    52,  4208,    42,    15,  2502,\r\n     1               25,     7,     8,     0,    53,     4,     3,\r\n     2               10,2HHB  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E53/ 4HDUM1,4H    ,    53,  6108,    61,     0,  6102,\r\n     1               61,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD1  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E54/ 4HDUM2,4H    ,    54,  6208,    62,     0,  6202,\r\n     1               62,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD2  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E55/ 4HDUM3,4H    ,    55,  6308,    63,     0,  6302,\r\n     1               63,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD3  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E56/ 4HDUM4,4H    ,    56,  6408,    64,     0,  6402,\r\n     1               64,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD4  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E57/ 4HDUM5,4H    ,    57,  6508,    65,     0,  6502,\r\n     1               65,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD5  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E58/ 4HDUM6,4H    ,    58,  6608,    66,     0,  6602,\r\n     1               66,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD6  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E59/ 4HDUM7,4H    ,    59,  6708,    67,     0,  6702,\r\n     1               67,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD7  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E60/ 4HDUM8,4H    ,    60,  6808,    68,     0,  6802,\r\n     1               68,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD8  ,   100,    10,    10,     3,     3,\r\n     3                4,     2,     3,     6/\r\n      DATA  E61/ 4HDUM9,4H    ,    61,  6908,    69,     0,  6902,\r\n     1               69,     0,     0,     0,     0,     3,     3,\r\n     2                0,2HD9  ,   100,    10,    10,     3,     3,\r\n     3                4,     1,     3,     6/\r\n      DATA  E62/ 4HQDME,4HM1  ,    62,  2008,    20,     7,  2202,\r\n     1               22,     4,     4,     0,    26,     3,     2,\r\n     2                2,2HM1  ,    45,     8,     0,    89,     0,\r\n     3                5,     1,     0,     6/\r\n      DATA  E63/ 4HQDME,4HM2  ,    63,  5308,    53,     7,  5302,\r\n     1               53,     4,     4,     0,    26,     3,     2,\r\n     2                5,2HM2  ,   250,     8,    17,    89,   156,\r\n     3                5,     1,     0,     6/\r\n      DATA  E64/ 4HQUAD,4H4   ,    64,  5408,    54,    13,  5802,\r\n     1               58,    17,     4,     0,    45,     3,     2,\r\n     2                7,2HQ4  ,  2395,    17,     9,    73,    23,\r\n     3                1,     1,     2,     6/\r\n      DATA  E65/ 4HIHEX,4H1   ,    65,  7108,    71,    10,  7002,\r\n     1               70,     7,     8,     0,    55,     3,     4,\r\n     2                9,2HXL  ,   649,    22,     0,   191,     0,\r\n     3                6,     1,     4,     6/\r\n      DATA  E66/ 4HIHEX,4H2   ,    66,  7208,    72,    22,  7002,\r\n     1               70,     7,    20,     0,   127,     3,     4,\r\n     2               21,2HXQ  ,   649,    22,     0,   191,     0,\r\n     3                6,     1,     4,     6/\r\n      DATA  E67/ 4HIHEX,4H3   ,    67,  7308,    73,    34,  7002,\r\n     1               70,     7,    32,     0,   199,     3,     4,\r\n     2               33,2HXC  ,   649,    23,     0,   206,     0,\r\n     3                6,     1,     4,     6/\r\n      DATA  E68/ 4HQUAD,4HTS  ,    68,  4108,    41,    23,  2402,\r\n     1               24,     8,     8,     0,    62,     3,     3,\r\n     2               10,2HQS  ,  4276,    41,    49,     0,     0,\r\n     3                2,     2,     0,     6/\r\n      DATA  E69/ 4HTRIA,4HTS  ,    69,  5908,    59,    21,  2302,\r\n     1               23,     8,     6,     0,    52,     3,     3,\r\n     2                8,2HTS  ,  2490,    33,    37,     0,     0,\r\n     3                2,     2,     0,     6/\r\n      DATA  E70/ 4HTRIA,4HAX  ,    70,  7012,    70,     6,  7032,\r\n     1               85,    17,     3,     0,    34,     3,     3,\r\n     2                5,2HTX  ,   250,    11,    14,   231,   252,\r\n     3                2,     2,     0,     6/\r\n      DATA  E71/ 4HTRAP,4HAX  ,    71,  7042,    74,     7,  7052,\r\n     1               95,    17,     4,     0,    39,     3,     3,\r\n     2                6,2HT4  ,   954,    47,    18,   279,   372,\r\n     3                2,     2,     0,     6/\r\n      DATA  E72/ 4HAERO,4H1   ,    72,  3002,    46,     6,     0,\r\n     1                0,     0,     5,     0,     0,     2,     0,\r\n     2                0,2HAE  ,     0,     0,     0,     0,     0,\r\n     3                0,     0,     0,     6/\r\n      DATA  E73/ 4HTRIM,4H6   ,    73,  6101,    81,     9,  6201,\r\n     1               82,     6,     6,     0,    43,     3,     4,\r\n     2                7,2HT6  ,   233,    29,     0,    73,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E74/ 4HTRPL,4HT1  ,    74,  6301,    83,     9,  6401,\r\n     1               84,    16,     6,     0,    48,     3,     2,\r\n     2                7,2HP6  ,   990,    65,    16,    73,     0,\r\n     3                1,     1,     0,     6/\r\n      DATA  E75/ 4HTRSH,4HL   ,    75,  7501,    75,     9,  7601,\r\n     1               76,    20,     6,     0,    52,     3,     2,\r\n     2                7,  2HSL,  1200,    65,    16,    73,     0,\r\n     3                1,     1,     2,     6/\r\n      DATA  E76/ 4HFHEX,4H1   ,    76,  9210,    92,    10,     0,\r\n     1                0,     0,     8,     0,    43,     3,     0,\r\n     2                0,2HFA  ,     0,     0,     0,     0,     0,\r\n     3                0,     0,     0,     1/\r\n      DATA  E77/ 4HFHEX,4H2   ,    77,  9310,    93,    10,     0,\r\n     1                0,     0,     8,     0,    43,     3,     0,\r\n     2                0,2HFB  ,     0,     0,     0,     0,     0,\r\n     3                0,     0,     0,     1/\r\n      DATA  E78/ 4HFTET,4HRA  ,    78,  8610,    86,     6,     0,\r\n     1                0,     0,     4,     0,    23,     3,     0,\r\n     2                0,2HFT  ,     0,     0,     0,     0,     0,\r\n     3                0,     0,     0,     1/\r\n      DATA  E79/ 4HFWED,4HGE  ,    79,  8710,    87,     8,     0,\r\n     1                0,     0,     6,     0,    33,     3,     0,\r\n     2                0,2HFW  ,     0,     0,     0,     0,     0,\r\n     3                0,     0,     0,     1/\r\n      DATA  E80/ 4HIS2D,4H8   ,    80,  2001,    47,    12,  2002,\r\n     1               56,     3,     8,     0,    46,     3,     3,\r\n     2               10,2HD8  ,   215,    43,     0,   411,     0,\r\n     3                7,     7,     6,     6/\r\n      DATA  E81/ 4HELBO,4HW   ,    81,  5101,    51,     8,  5102,\r\n     1               51,    24,     2,     0,    39,     3,     1,\r\n     2               15,2HEB  ,   126,    17,    12,   505,   481,\r\n     3                1,     1,     1,     6/\r\n      DATA  E82/ 4HFTUB,4HE   ,    73,  8408,    84,     4,  8402,\r\n     1               84,     5,     2,     0,    16,     3,     1,\r\n     2                2,2HFT  ,     5,     0,     2,     0,     0,\r\n     3                1,     1,     0,     1/\r\n      DATA  E83/ 4HTRIA,4H3   ,    83,  9108,    91,    11,  5802,\r\n     1               58,    17,     3,     0,    39,     3,     2,\r\n     2                7,2HT3  ,   713,    17,     9,    73,    23,\r\n     3                1,     1,     2,     6/\r\n      DATA  E84/ 4HPSE2,4H    ,    84,  4302,    77,     4,  4303,\r\n     1               43,     5,     2,     0,    16,     3,     0,\r\n     2                0,2HP1  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     1,     6/\r\n      DATA  E85/ 4HPSE3,4H    ,    85,  4802,    48,     5,  4303,\r\n     1               43,     5,     3,     0,    21,     3,     0,\r\n     2                0,2HP2  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     1,     6/\r\n      DATA  E86/ 4HPSE4,4H    ,    86,  4902,    94,     6,  4303,\r\n     1               43,     5,     4,     0,    26,     3,     0,\r\n     2                0,2HP3  ,     0,     0,     0,     0,     0,\r\n     3                1,     1,     1,     6/\r\nC\r\nC\r\nC     COMPLX DESCRIBES THE MANNER IN WHICH THE TWO PARTS OF COMPLEX\r\nC     STRESSES AND FORCES ARE RELATED TO EACH OTHER.  ANY ELEMENT WHICH\r\nC     HAS COMPLEX STRESS OR FORCE OUTPUT POINTS TO  A STRING WITH WORDS\r\nC     20 AND 21 OF ITS ELEMENT ENTRY.  THE COMPLX TABLE IS USED IN SDR2\r\nC     AND DDRMM, WHICH ARE IN LINKS 13 AND 12 RESPECTIVELY\r\nC\r\nC     EACH STRING IS DEFINDED AS FOLLOWS\r\nC      0  TERMINATES THE FORMAT STRING\r\nC     -N  PUT INTO PRINT BUFFER THE REAL PART OF PAIR\r\nC     +N  (AND  N.LE.I)  PUT BOTH REAL AND IMAGINARY PARTS INTO BUFFER\r\nC     +N  (AND  N.GT.I)  PUT IMAGINARY PART ONLY INTO PRINT BUFFER\r\nC         WHERE    I  =  THE LENGTH OF STRING IN WORD 18 (REAL-STRESS)\r\nC                        OR 19 (REAL-FORCE) PLUS 1\r\nC\r\n      DATA COMP1/  1,  -2,  -3,  -4,  -5,  -6,   8,   9,  10,  11\r\n     1         ,  12,   0,   1,  -2,   5,  -3,   6,   0,   1,  -2\r\n     2         ,   4,   0,   1,  -2,  -3,  -4,  -5,  -6,  -7,  -8\r\n     3         ,  -9,  11,  12,  13,  14,  15,  16,  17,  18,   0\r\n     4         ,   1,  -2,   7,  -4,   9,   0,   1,  -2,  -3,   6\r\n     5         ,   7,   0,   1,  -2,  -3,  -4,  -5,  -6,  18,  19\r\n     6         ,  20,  21,  22, -10, -11, -12, -13,  26,  27,  28\r\n     7         ,  29,   0,   1,   2,  -3,  20,  -4,  21,  -5,  22\r\n     8         ,  10, -11,  28, -12,  29, -13,  30,   0,   1,  -2\r\n     9         ,  -3,  -4,  10,  11,  12,   0,   1,  -2,  -3,  -4  /\r\n      DATA COMP2/ -5,  -6,  -7,  11,  12,  13,  14,  15,  16,   0\r\n     1         ,   1,  -2,  -3,  -4,  -5,   7,   8,   9,  10,   0\r\n     2         ,   0,   1,  -2,  -3,  -4,  -5,  -6,  -7,  -8,  -9\r\n     3         , -10,  12,  13,  14,  15,  16,  17,  18,  19,  20\r\n     4         ,   0,   1,  -2,  -3,  -4,  -5,  -6,  -7,   9,  10\r\n     5         ,  11,  12,  13,  14,   0,   1,  -2,  -3,  -4,  -5\r\n     6         ,  -6,  -7,  -8,  -9,  19,  20,  21,  22,  23,  24\r\n     7         ,  25,  26, -10, -11, -12, -13, -14, -15, -16, -17\r\n     8         ,  27,  28,  29,  30,  31,  32,  33,  34,   0,   0\r\n     9         ,   1,   2,  -3, -11, -17,  -4, -12, -18,  25,  33  /\r\n      DATA COMP3/ 39,  26,  34,  40,   0,   1,   2,  -3, -12, -18\r\n     1         ,  -4, -13, -19,  11,  26,  35,  41,  27,  36,  42\r\n     2         ,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0\r\n     3         ,   1,   2,  -3,  -4,  -5,  -6,  -7,  -8,  -9, -10\r\n     4         , -11,  14,  15,  16,  17,  18,  19,  20,  21,  22\r\n     5         ,   0,   1,   2,  -3,  -4,  -5,  -6,  17,  18,  19\r\n     6         ,  20,  -7,  -8,  -9, -10,  21,  22,  23,  24, -11\r\n     7         , -12, -13, -14,  25,  26,  27,  28,   0,   1,   2\r\n     8         ,  -3,  -4,  -5,  -6,  -7,  -8,  -9, -10, -11,  50\r\n     9         ,  51,  52,  53,  54,  55,  56,  57,  58, -12, -13  /\r\n      DATA COMP4/-14, -15, -16, -17, -18, -19, -20,  59,  60,  61\r\n     1         ,  62,  63,  64,  65,  66,  67, -21, -22, -23, -24\r\n     2         , -25, -26, -27, -28, -29,  68,  69,  70,  71,  72\r\n     3         ,  73,  74,  75,  76, -30, -31, -32, -33, -34, -35\r\n     4         , -36, -37, -38,  77,  78,  79,  80,  81,  82,  83\r\n     5         ,  84,  85, -39, -40, -41, -42, -43, -44, -45, -46\r\n     6         , -47,  86,  87,  88,  89,  90,  91,  92,  93,  94\r\n     7         ,   0,   1,   2,  -3,  -4,  -5,  -6,  21,  22,  23\r\n     8         ,  24,  -7,  -8,  -9, -10,  25,  26,  27,  28, -11\r\n     9         , -12, -13, -14,  29,  30,  31,  32, -15, -16, -17  /\r\n      DATA COMP5/-18,  33,  34,  35,  36,   0,   0,   0,   0,   0\r\n     1         ,   1,   2,   3,   4,   5,  -6,  49,  -7,  50,  -8\r\n     2         ,  51,   9,  10, -11,  54, -12,  55, -13,  56,  14\r\n     3         ,  15, -16,  59, -17,  60, -18,  61,  19,  20, -21\r\n     4         ,  64, -22,  65, -23,  66,  24,  25, -26,  69, -27\r\n     5         ,  70, -28,  71,  29,  30, -31,  74, -32,  75, -33\r\n     6         ,  76,  34,  35, -36,  79, -37,  80, -38,  81,  39\r\n     7         ,  40, -41,  84, -42,  85, -43,  86,   0,   0,   0\r\n     8         ,   1,  -2,  -3,  -4,  -5,  -6,  -7,  14,  15,  16\r\n     9         ,  17,  18,  19,  -8,  -9, -10, -11, -12,  20,  21  /\r\n      DATA COMP6/ 22,  23,  24,   0,   1,  -2,  -3,  -4,  -5,  -6\r\n     1         ,  19,  20,  21,  22,  23, -10, -11, -12, -13, -14\r\n     2         ,  27,  28,  29,  30,  31,   0,   0,   0,   0,   0  /\r\n      END\r\n"
  },
  {
    "path": "bd/ifp3bd.f",
    "content": "      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          ,INAME         ,CDTYPE\r\n      INTEGER            AXIC1         ,CCONEX        ,FORCEX\r\n      INTEGER            FORCE         ,GRAV          ,LOAD\r\n      INTEGER            MOMAX         ,MOMENT        ,MPCADD\r\n      INTEGER            MPCAX         ,OMITAX        ,POINTX\r\n      INTEGER            PRESAX        ,RINGAX        ,SECTAX\r\n      INTEGER            SEQGP         ,SPCAX         ,SUPAX\r\n      INTEGER            TEMPAX        ,TEMPD         ,PLOAD\r\n      INTEGER            MPC           ,SPC           ,GRID\r\n      INTEGER            SUPORT        ,NEG111        ,T65535\r\n      INTEGER            TEMP          ,OMIT          ,SPCADD\r\n      INTEGER            ONE           ,ZERO\r\n      INTEGER            CTRIAA        ,CTRAPA\r\n      INTEGER            RFORCE\r\nC\r\n      COMMON /IFP3CM /  FILE(6)        ,INAME(12)     ,CDTYPE(50)\r\n     1                  ,AXIC1(3)      ,CCONEX(3)     ,FORCEX(3)\r\n     2                  ,FORCE(3)      ,GRAV(3)       ,LOAD(3)\r\n     3                  ,MOMAX(3)      ,MOMENT(3)     ,MPCADD(3)\r\n     4                  ,MPCAX(3)      ,OMITAX(3)     ,POINTX(3)\r\n     5                  ,PRESAX(3)     ,RINGAX(3)     ,SECTAX(3)\r\n     6                  ,SEQGP(3)      ,SPCAX(3)      ,SUPAX(3)\r\n     7                  ,TEMPAX(3)     ,TEMPD(3)      ,PLOAD(3)\r\n     8                  ,MPC(3)        ,SPC(3)        ,GRID(3)\r\n     9                  ,SUPORT(3)     ,NEG111(3)     ,T65535(3)\r\n     T                  ,TEMP(3)       ,OMIT(3)       ,SPCADD(3)\r\n     1                  ,ONE           ,ZERO          ,IHEADB(96)\r\n     2                  ,CTRIAA(3)     ,CTRAPA(3)     ,ICONSO\r\n     3                  ,RFORCE(3)\r\nC\r\n      DATA ONE/1/ , ZERO/0/\r\nC\r\n      DATA FILE  ( 1), FILE  ( 2) / 201   , 208    /\r\n      DATA FILE  ( 3), FILE  ( 4) / 209   , 210    /\r\n      DATA FILE  ( 5), FILE  ( 6) / 301   , 215    /\r\nC\r\n      DATA INAME ( 1), INAME ( 2) / 4HGEOM, 4H1    /\r\n      DATA INAME ( 3), INAME ( 4) / 4HGEOM, 4H2    /\r\n      DATA INAME ( 5), INAME ( 6) / 4HGEOM, 4H3    /\r\n      DATA INAME ( 7), INAME ( 8) / 4HGEOM, 4H4    /\r\n      DATA INAME ( 9), INAME (10) / 4HSCRT, 4HCH   /\r\n      DATA INAME (11), INAME (12) / 4HAXIC, 4H     /\r\nC\r\n      DATA CDTYPE( 1), CDTYPE( 2) / 4HAXIC, 4H     /\r\n      DATA CDTYPE( 3), CDTYPE( 4) / 4HCCON, 4HEAX  /\r\n      DATA CDTYPE( 5), CDTYPE( 6) / 4HFORC, 4HEAX  /\r\n      DATA CDTYPE( 7), CDTYPE( 8) / 4HFORC, 4HE    /\r\n      DATA CDTYPE( 9), CDTYPE(10) / 4HGRAV, 4H     /\r\n      DATA CDTYPE(11), CDTYPE(12) / 4HLOAD, 4H     /\r\n      DATA CDTYPE(13), CDTYPE(14) / 4HMOMA, 4HX    /\r\n      DATA CDTYPE(15), CDTYPE(16) / 4HMOME, 4HNT   /\r\n      DATA CDTYPE(17), CDTYPE(18) / 4HMPCA, 4HDD   /\r\n      DATA CDTYPE(19), CDTYPE(20) / 4HMPCA, 4HX    /\r\n      DATA CDTYPE(21), CDTYPE(22) / 4HOMIT, 4HAX   /\r\n      DATA CDTYPE(23), CDTYPE(24) / 4HPOIN, 4HTAX  /\r\n      DATA CDTYPE(25), CDTYPE(26) / 4HPRES, 4HAX   /\r\n      DATA CDTYPE(27), CDTYPE(28) / 4HRING, 4HAX   /\r\n      DATA CDTYPE(29), CDTYPE(30) / 4HSECT, 4HAX   /\r\n      DATA CDTYPE(31), CDTYPE(32) / 4HSEQG, 4HP    /\r\n      DATA CDTYPE(33), CDTYPE(34) / 4HSPCA, 4HDD   /\r\n      DATA CDTYPE(35), CDTYPE(36) / 4HSPCA, 4HX    /\r\n      DATA CDTYPE(37), CDTYPE(38) / 4HSUPA, 4HX    /\r\n      DATA CDTYPE(39), CDTYPE(40) / 4HTEMP, 4HAX   /\r\n      DATA CDTYPE(41), CDTYPE(42) / 4HTEMP, 4HD    /\r\n      DATA CDTYPE(43), CDTYPE(44) / 4HCTRI, 4HAAX  /\r\n      DATA CDTYPE(45), CDTYPE(46) / 4HCTRA, 4HPAX  /\r\n      DATA CDTYPE(47), CDTYPE(48) / 4HRFOR, 4HCE   /\r\nC\r\n      DATA AXIC1  /515     ,5      ,0       /\r\n      DATA CCONEX /8515    ,85     ,0       /\r\n      DATA FORCEX /2115    ,21     ,0       /\r\n      DATA FORCE  /4201    ,42     ,0       /\r\n      DATA GRAV   /4401    ,44     ,0       /\r\n      DATA LOAD   /4551    ,61     ,0       /\r\n      DATA MOMAX  /3815    ,38     ,0       /\r\n      DATA MOMENT /4801    ,48     ,0       /\r\n      DATA MPCADD /4891    ,60     ,0       /\r\n      DATA MPCAX  /4015    ,40     ,0       /\r\n      DATA OMITAX /4315    ,43     ,0       /\r\n      DATA POINTX /4915    ,49     ,0       /\r\n      DATA PRESAX /5215    ,52     ,0       /\r\n      DATA RINGAX /5615    ,56     ,0       /\r\n      DATA SECTAX /6315    ,63     ,0       /\r\n      DATA SEQGP  /5301    ,53     ,0       /\r\n      DATA SPCAX  /6215    ,62     ,0       /\r\n      DATA SUPAX  /6415    ,64     ,0       /\r\n      DATA TEMPAX /6815    ,68     ,0       /\r\n      DATA TEMPD  /5641    ,65     ,0       /\r\n      DATA PLOAD  /5101    ,51     ,0       /\r\n      DATA MPC    /4901    ,49     ,0       /\r\n      DATA SPC    /5501    ,55     ,0       /\r\n      DATA GRID   /4501    ,45     ,0       /\r\n      DATA SUPORT /5601    ,56     ,0       /\r\n      DATA TEMP   /5701    ,57     ,0       /\r\n      DATA OMIT   /5001    ,50     ,0       /\r\n      DATA SPCADD /5491    ,59     ,0       /\r\n      DATA CTRIAA /7012    ,70     ,0       /\r\n      DATA CTRAPA /7042    ,74     ,0       /\r\n      DATA RFORCE /5509    ,55     ,0       /\r\n      DATA ICONSO / 0 /\r\n      DATA NEG111 /-1      ,-1     ,-1      /\r\n      DATA T65535/ 65535, 65535, 65535 /\r\n      DATA IHEADB /\r\n     1                4HI N ,4HP U ,4HT   ,4HD A ,4HT A ,4H  E\r\n     2               ,4HR R ,4HO R ,4HS   ,4HD E ,4HT E ,4HC T\r\n     3               ,4HE D ,4H  B ,4HY   ,4HI F ,4HP 3 ,4H\r\n     4               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     5               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     6               ,4H    ,4H    ,4H    ,4H (AX,4HIS-S,4HYMME\r\n     7               ,4HTRIC,4H CON,4HICAL,4H SHE,4HLL D,4HATA\r\n     8               ,4HPROC,4HESSO,4HR-GE,4HNERA,4HTOR),4H\r\n     9               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     T               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     1               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H ===\r\n     2               ,4H====,4H====,4H====,4H====,4H====,4H====\r\n     3               ,4H====,4H====,4H====,4H====,4H====,4H====\r\n     4               ,4H====,4H    ,4H    ,4H    ,4H    ,4H\r\n     5               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     6               ,4H    ,4H    ,4H    ,4H    ,4H    ,4H      /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx1bd.f",
    "content": "      BLOCK DATA IFX1BD\r\nCIFX1BD\r\nC     DEFINITION OF VARIABLES IN /IFPX1/ AND /IFPX0/\r\nC*****\r\nC\r\nC     COMMON /IFPX1/\r\nC     --------------\r\nC\r\nC     N          = TOTAL NUMBER OF PAIRED ENTRIES IN THE IBD AND\r\nC                  IPR ARRAYS\r\nC                = (TOTAL DIMENSION OF IBD + ACTIVE IPR ARRAYS)/2\r\nC\r\nC     IBD ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF BULK DATA\r\nC                  CARD NAMES\r\nC\r\nC     IPR ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF BULK DATA\r\nC                  PARAMETER NAMES\r\nC\r\nC     CAUTION 1 -- THE TOTAL DIMENSION OF THE IBD AND IPR ARRAYS\r\nC                  MUST BE A MULTIPLE OF 62 (OR, IN OTHER WORDS,\r\nC                  AN EVEN MULTIPLE OF 31)\r\nC\r\nC                  SEE NOTES 1 AND 2 BELOW\r\nC\r\nC     ICC ARRAYS = ARRAYS CONTAINING PAIRED ENTRIES OF CASE CONTROL\r\nC                  FLAG NAMES FOR USE IN RESTART RUNS\r\nC\r\nC     CAUTION 2 -- THE TOTAL DIMENSION OF THE ICC ARRAYS MUST BE A\r\nC                  MULTIPLE OF 62 (OR, IN OTHER WORDS, AN EVEN\r\nC                  MULTIPLE OF 31)\r\nC\r\nC                  SEE NOTE 3 BELOW\r\nC\r\nC     NOTES\r\nC     -----\r\nC\r\nC              1.  IF NEW BULK DATA CARD NAMES ARE TO BE ADDED,\r\nC                  USE THE EXISTING PADDING WORDS (OF THE 4H****\r\nC                  TYPE) IN THE IBD ARRAYS.  IF NECESSARY, EXPAND\r\nC                  THE IBD ARRAYS KEEPING CAUTION 1 IN MIND.\r\nC\r\nC              2.  IF NEW BULK DATA PARAMETER NAMES ARE TO BE ADDED,\r\nC                  USE THE EXISTING PADDING WORDS (OF THE 4H****\r\nC                  TYPE) IN THE IPR ARRAYS.  IF NECESSARY, EXPAND\r\nC                  THE IPR ARRAYS KEEPING CAUTION 1 IN MIND.\r\nC\r\nC              3.  IF NEW CASE CONTROL FLAG NAMES ARE TO BE ADDED,\r\nC                  USE THE EXISTING PADDING WORDS (OF THE 4H****\r\nC                  TYPE) IN THE ICC ARRAYS.  IF NECESSARY, EXPAND\r\nC                  THE ICC ARRAYS KEEPING CAUTION 2 IN MIND.\r\nC\r\nC              4.  THE IBD ARRAYS ARE IN SYSCHRONIZTION WITH THE I ARRAY\r\nC                  IN IFX2BD, IFX3BD, IFX4BD, IFX5BD, AND IFX6BD\r\nC                  (E.G. CONM1 POSITIONS IN IBD2, CONTINUATION 3, THE DA\r\nC                  FOR CONM1 IN IFX2BD IS IN I2, CONTINUATION 3 CARD)\r\nC*****\r\nC\r\nC     COMMON /IFPX0/\r\nC     --------------\r\nC\r\nC     LBDPR      = (TOTAL DIMENSION OF THE IBD AND IPR ARRAYS)/62\r\nC\r\nC     LCC        = (TOTAL DIMENSION OF THE ICC ARRAYS)/62\r\nC\r\nC     IWRDS      = ARRAY WHOSE DIMENSION IS EQUAL TO (LBDPR + LCC).\r\nC                  ALL (LBDPR + LCC) WORDS IN THE ARRAY INITIALLY\r\nC                  SET TO ZERO.\r\nC\r\nC     IPARPT     = POINTER THAT POINTS TO THE PAIRED ENTRY IN THE\r\nC                  IBD AND IPR ARRAYS THAT CONTAINS THE FIRST\r\nC                  BULK DATA PARAMETER NAME.  AS PER THE DIFINITIONS\r\nC                  OF THE VARIABLES IN COMMON /IFPX1/, THIS POINTS\r\nC                  TO THE FIRST WORD OF THE IPR1 ARRAY.  HENCE, WE\r\nC                  HAVE --\r\nC\r\nC                  IPARPT = 1 + (TOTAL DIMENSION OF IBD ARRAYS)/2\r\nC\r\n      COMMON /IFPX0 /    LBDPR    , LCC      , IWRDS(18), IPARPT\r\n      COMMON /IFPX1 / N, IBD1(100), IBD2(100), IBD3(100), IBD4(100),\r\n     1                   IBD5(100), IBD6(100), IBD7(100), IBD8(100),\r\n     2                   IPR1(100), IPR2( 92),\r\n     3                   ICC1(100), ICC2( 24)\r\nC\r\nC*****\r\nC     INITIALIZATION OF VARIABLES IN COMMON /IFPX1/\r\nC*****\r\nC\r\n      DATA N / 496 /\r\nC*****\r\nC     THE IBD ARRAYS CONTAIN PAIRED ENTRIES OF BULK DATA CARD NAMES\r\nC*****\r\n      DATA IBD1 /\r\n     1     4HGRID,4H    , 4HGRDS,4HET  , 4HADUM,4H1   , 4HSEQG,4HP   ,\r\n     *     4HCORD,4H1R  , 4HCORD,4H1C  , 4HCORD,4H1S  , 4HCORD,4H2R  ,\r\n     *     4HCORD,4H2C  , 4HCORD,4H2S  , 4HPLOT,4HEL  , 4HSPC1,4H    ,\r\n     3     4HSPCA,4HDD  , 4HSUPO,4HRT  , 4HOMIT,4H    , 4HSPC ,4H    ,\r\n     *     4HMPC ,4H    , 4HFORC,4HE   , 4HMOME,4HNT  , 4HFORC,4HE1  ,\r\n     *     4HMOME,4HNT1 , 4HFORC,4HE2  , 4HMOME,4HNT2 , 4HPLOA,4HD   ,\r\n     5     4HSLOA,4HD   , 4HGRAV,4H    , 4HTEMP,4H    , 4HGENE,4HL   ,\r\n     *     4HPROD,4H    , 4HPTUB,4HE   , 4HPVIS,4HC   , 4HADUM,4H2   ,\r\n     *     4HPTRI,4HA1  , 4HPTRI,4HA2  , 4HPTRB,4HSC  , 4HPTRP,4HLT  ,\r\n     7     4HPTRM,4HEM  , 4HPQUA,4HD1  , 4HPQUA,4HD2  , 4HPQDP,4HLT  ,\r\n     *     4HPQDM,4HEM  , 4HPSHE,4HAR  , 4HPTWI,4HST  , 4HPMAS,4HS   ,\r\n     *     4HPDAM,4HP   , 4HPELA,4HS   , 4HCONR,4HOD  , 4HCROD,4H    ,\r\n     9     4HCTUB,4HE   , 4HCVIS,4HC   /\r\n      DATA IBD2 /\r\n     1     4HADUM,4H3   , 4HCTRI,4HA1  , 4HCTRI,4HA2  , 4HCTRB,4HSC  ,\r\n     *     4HCTRP,4HLT  , 4HCTRM,4HEM  , 4HCQUA,4HD1  , 4HCQUA,4HD2  ,\r\n     *     4HCQDP,4HLT  , 4HCQDM,4HEM  , 4HCSHE,4HAR  , 4HCTWI,4HST  ,\r\n     3     4HCONM,4H1   , 4HCONM,4H2   , 4HCMAS,4HS1  , 4HCMAS,4HS2  ,\r\n     *     4HCMAS,4HS3  , 4HCMAS,4HS4  , 4HCDAM,4HP1  , 4HCDAM,4HP2  ,\r\n     *     4HCDAM,4HP3  , 4HCDAM,4HP4  , 4HCELA,4HS1  , 4HCELA,4HS2  ,\r\n     5     4HCELA,4HS3  , 4HCELA,4HS4  , 4HMAT1,4H    , 4HMAT2,4H    ,\r\n     *     4HCTRI,4HARG , 4HCTRA,4HPRG , 4HDEFO,4HRM  , 4HPARA,4HM   ,\r\n     *     4HMPCA,4HDD  , 4HLOAD,4H    , 4HEIGR,4H    , 4HEIGB,4H    ,\r\n     7     4HEIGC,4H    , 4HADUM,4H4   , 4H    ,4H    , 4HMATS,4H1   ,\r\n     *     4HMATT,4H1   , 4HOMIT,4H1   , 4HTABL,4HEM1 , 4HTABL,4HEM2 ,\r\n     *     4HTABL,4HEM3 , 4HTABL,4HEM4 , 4HTABL,4HES1 , 4HTEMP,4HD   ,\r\n     9     4HADUM,4H5   , 4HADUM,4H6   /\r\n      DATA IBD3 /\r\n     1     4HADUM,4H7   , 4HMATT,4H2   , 4HADUM,4H8   , 4HCTOR,4HDRG ,\r\n     *     4HSPOI,4HNT  , 4HADUM,4H9   , 4HCDUM,4H1   , 4HCDUM,4H2   ,\r\n     *     4HCDUM,4H3   , 4HCDUM,4H4   , 4HCDUM,4H5   , 4HCDUM,4H6   ,\r\n     3     4HCDUM,4H7   , 4HCDUM,4H8   , 4HCDUM,4H9   , 4HPDUM,4H1   ,\r\n     *     4HPDUM,4H2   , 4HPDUM,4H3   , 4HDMI ,4H    , 4HDMIG,4H    ,\r\n     *     4HPTOR,4HDRG , 4HMAT3,4H    , 4HDLOA,4HD   , 4HEPOI,4HNT  ,\r\n     5     4HFREQ,4H1   , 4HFREQ,4H    , 4HNOLI,4HN1  , 4HNOLI,4HN2  ,\r\n     *     4HNOLI,4HN3  , 4HNOLI,4HN4  , 4HRLOA,4HD1  , 4HRLOA,4HD2  ,\r\n     *     4HTABL,4HED1 , 4HTABL,4HED2 , 4HSEQE,4HP   , 4HTF  ,4H    ,\r\n     7     4HTIC ,4H    , 4HTLOA,4HD1  , 4HTLOA,4HD2  , 4HTABL,4HED3 ,\r\n     *     4HTABL,4HED4 , 4HTSTE,4HP   , 4HDSFA,4HCT  , 4HAXIC,4H    ,\r\n     *     4HRING,4HAX  , 4HCCON,4HEAX , 4HPCON,4HEAX , 4HSPCA,4HX   ,\r\n     9     4HMPCA,4HX   , 4HOMIT,4HAX  /\r\n      DATA IBD4 /\r\n     1     4HSUPA,4HX   , 4HPOIN,4HTAX , 4HSECT,4HAX  , 4HPRES,4HAX  ,\r\n     *     4HTEMP,4HAX  , 4HFORC,4HEAX , 4HMOMA,4HX   , 4HEIGP,4H    ,\r\n     *     4HPDUM,4H4   , 4HPDUM,4H5   , 4HPDUM,4H6   , 4HTABD,4HMP1 ,\r\n     3     4HPDUM,4H7   , 4HPDUM,4H8   , 4HPDUM,4H9   , 4HFREQ,4H2   ,\r\n     *     4HCONC,4HT1  , 4HCONC,4HT   , 4HTRAN,4HS   , 4HRELE,4HS   ,\r\n     *     4HLOAD,4HC   , 4HSPCS,4HD   , 4HSPCS,4H1   , 4HSPCS,4H    ,\r\n     5     4HBDYC,4H    , 4HMPCS,4H    , 4HBDYS,4H    , 4HBDYS,4H1   ,\r\n     *     4HBARO,4HR   , 4HCBAR,4H    , 4HPBAR,4H    , 4HDARE,4HA   ,\r\n     *     4HDELA,4HY   , 4HDPHA,4HSE  , 4HPLFA,4HCT  , 4HGNEW,4H    ,\r\n     7     4HGTRA,4HN   , 4HTABR,4HNDG , 4HMATT,4H3   , 4HRFOR,4HCE  ,\r\n     *     4HTABR,4HND1 , 4HPLOA,4HD4  , 4HUSET,4H    , 4HUSET,4H1   ,\r\n     *     4HRAND,4HPS  , 4HRAND,4HT1  , 4HRAND,4HT2* , 4HPLOA,4HD1  ,\r\n     9     4HPLOA,4HD2  , 4HDTI ,4H    /\r\n      DATA IBD5 /\r\n     1     4HTEMP,4HP1  , 4HTEMP,4HP2  , 4HTEMP,4HP3  , 4HTEMP,4HRB  ,\r\n     *     4HGRID,4HB   , 4HFSLI,4HST  , 4HRING,4HFL  , 4HPRES,4HPT  ,\r\n     *     4HCFLU,4HID2 , 4HCFLU,4HID3 , 4HCFLU,4HID4 , 4HAXIF,4H    ,\r\n     3     4HBDYL,4HIST , 4HFREE,4HPT  , 4HASET,4H    , 4HASET,4H1   ,\r\n     *     4HCTET,4HRA  , 4HCWED,4HGE  , 4HCHEX,4HA1  , 4HCHEX,4HA2  ,\r\n     *     4HDMIA,4HX   , 4HFLSY,4HM   , 4HAXSL,4HOT  , 4HCAXI,4HF2  ,\r\n     5     4HCAXI,4HF3  , 4HCAXI,4HF4  , 4HCSLO,4HT3  , 4HCSLO,4HT4  ,\r\n     *     4HGRID,4HF   , 4HGRID,4HS   , 4HSLBD,4HY   , 4HCHBD,4HY   ,\r\n     *     4HQHBD,4HY   , 4HMAT4,4H    , 4HMAT5,4H    , 4HPHBD,4HY   ,\r\n     7     4HMATT,4H4   , 4HMATT,4H5   , 4HQBDY,4H1   , 4HQBDY,4H2   ,\r\n     *     4HQVEC,4HT   , 4HQVOL,4H    , 4HRADL,4HST  , 4HRADM,4HTX  ,\r\n     *     4HSAME,4H    , 4HNOSA,4HME  , 4HINPU,4HT   , 4HOUTP,4HUT  ,\r\n     9     4HCQDM,4HEM1 , 4HPQDM,4HEM1 /\r\n      DATA IBD6 /\r\n     1     4HCIHE,4HX1  , 4HCIHE,4HX2  , 4HCIHE,4HX3  , 4HPIHE,4HX   ,\r\n     *     4HPLOA,4HD3  , 4HSPCD,4H    , 4HCYJO,4HIN  , 4HCNGR,4HNT  ,\r\n     *     4HCQDM,4HEM2 , 4HPQDM,4HEM2 , 4HCQUA,4HD4  , 4HMAT8,4H    ,\r\n     3     4HCAER,4HO1  , 4HPAER,4HO1  , 4HAERO,4H    , 4HSPLI,4HNE1 ,\r\n     *     4HSPLI,4HNE2 , 4HSET1,4H    , 4HSET2,4H    , 4HMKAE,4HRO2 ,\r\n     *     4HMKAE,4HRO1 , 4HFLUT,4HTER , 4HAEFA,4HCT  , 4HFLFA,4HCT  ,\r\n     5     4HCBAR,4HAO  , 4HPLIM,4HIT  , 4HPOPT,4H    , 4HPLOA,4HDX  ,\r\n     *     4HCRIG,4HD1  , 4HPCOM,4HP   , 4HPCOM,4HP1  , 4HPCOM,4HP2  ,\r\n     *     4HPSHE,4HLL  , 4HCRIG,4HD2  , 4HCTRI,4HAAX , 4HPTRI,4HAAX ,\r\n     7     4HCTRA,4HPAX , 4HPTRA,4HPAX , 4HVIEW,4H    , 4HVARI,4HAN  ,\r\n     *     4HCTRI,4HM6  , 4HPTRI,4HM6  , 4HCTRP,4HLT1 , 4HPTRP,4HLT1 ,\r\n     *     4HTEMP,4HG   , 4HTEMP,4HP4  , 4HCRIG,4HDR  , 4HCRIG,4HD3  ,\r\n     9     4HCTRS,4HHL  , 4HPTRS,4HHL  /\r\n      DATA IBD7 /\r\n     1     4HCAER,4HO2  , 4HCAER,4HO3  , 4HCAER,4HO4  , 4HPAER,4HO2  ,\r\n     *     4HPAER,4HO3  , 4HPAER,4HO4  , 4HSPLI,4HNE3 , 4HGUST,4H    ,\r\n     *     4HCAER,4HO5  , 4HPAER,4HO5  , 4HDARE,4HAS  , 4HDELA,4HYS  ,\r\n     3     4HDPHA,4HSES , 4HTICS,4H    , 4HMATP,4HZ1  , 4HMATP,4HZ2  ,\r\n     *     4HMTTP,4HZ1  , 4HMTTP,4HZ2  , 4HMAT6,4H    , 4HMATT,4H6   ,\r\n     *     4HCEML,4HOOP , 4HSPCF,4HLD  , 4HCIS2,4HD8  , 4HPIS2,4HD8  ,\r\n     5     4HGEML,4HOOP , 4HREMF,4HLUX , 4HBFIE,4HLD  , 4HMDIP,4HOLE ,\r\n     *     4HPROL,4HATE , 4HPERM,4HBDY , 4HCFFR,4HEE  , 4HCFLS,4HTR  ,\r\n     *     4HCFHE,4HX1  , 4HCFHE,4HX2  , 4HCFTE,4HTRA , 4HCFWE,4HDGE ,\r\n     7     4HMATF,4H    , 4HCELB,4HOW  , 4HPELB,4HOW  , 4HNOLI,4HN5  ,\r\n     *     4HNOLI,4HN6  , 4HCFTU,4HBE  , 4HPFTU,4HBE  , 4HNFTU,4HBE  ,\r\n     *     4HSTRE,4HAML1, 4HSTRE,4HAML2, 4HCRRO,4HD   , 4HCRBA,4HR   ,\r\n     9     4HCRTR,4HPLT , 4HCRBE,4H1   /\r\n      DATA IBD8 /\r\n     1     4HCRBE,4H2   , 4HCRBE,4H3   , 4HCRSP,4HLINE, 4HCTRI,4HA3  ,\r\n     *     4HTABL,4HEM5 , 4HCPSE,4H2   , 4HCPSE,4H3   , 4HCPSE,4H4   ,\r\n     *     4HPPSE,4H    , 82*4H****    /\r\nC*****\r\nC     THE IPR ARRAYS CONTAIN PAIRED ENTRIES OF BULK DATA PARAMETER NAMES\r\nC*****\r\n      DATA IPR1 /\r\n     1     4HGRDP,4HNT  , 4HWTMA,4HSS  , 4HIRES,4H    , 4HLFRE,4HQ   ,\r\n     5     4HHFRE,4HQ   , 4HLMOD,4HES  , 4HG   ,4H    , 4HW3  ,4H    ,\r\n     9     4HW4  ,4H    , 4HMODA,4HCC  , 4HCOUP,4HMASS, 4HCPBA,4HR   ,\r\n     3     4HCPRO,4HD   , 4HCPQU,4HAD1 , 4HCPQU,4HAD2 , 4HCPTR,4HIA1 ,\r\n     7     4HCPTR,4HIA2 , 4HCPTU,4HBE  , 4HCPQD,4HPLT , 4HCPTR,4HPLT ,\r\n     1     4HCPTR,4HBSC , 4HMAXI,4HT   , 4HEPSH,4HT   , 4HTABS,4H    ,\r\n     5     4HSIGM,4HA   , 4HBETA,4H    , 4HRADL,4HIN  , 4HBETA,4HD   ,\r\n     9     4HNT  ,4H    , 4HEPSI,4HO   , 4HCTYP,4HE   , 4HNSEQ,4HS   ,\r\n     3     4HNLOA,4HD   , 4HCYCI,4HO   , 4HCYCS,4HEQ  , 4HKMAX,4H    ,\r\n     7     4HKIND,4HEX  , 4HNODJ,4HE   , 4HP1  ,4H    , 4HP2  ,4H    ,\r\n     1     4HP3  ,4H    , 4HVREF,4H    , 4HPRIN,4HT   , 4HISTA,4HRT  ,\r\n     5     4HKDAM,4HP   , 4HGUST,4HAERO, 4HIFTM,4H    , 4HMACH,4H    ,\r\n     9     4HQ   ,4H    , 4HHOPT,4H    /\r\n      DATA IPR2 /\r\n     1     4HGRDE,4HQ   , 4HSTRE,4HSS  , 4HSTRA,4HIN  , 4HNINT,4HPTS ,\r\n     5     4HASET,4HOUT , 4HAUTO,4HSPC , 4HVOLU,4HME  , 4HSURF,4HACE ,\r\n     9     4HKTOU,4HT   , 4HAPRE,4HSS  , 4HATEM,4HP   , 4HSTRE,4HAML ,\r\n     3     4HPGEO,4HM   , 4HSIGN,4H    , 4HZORI,4HGN  , 4HFXCO,4HOR  ,\r\n     7     4HFYCO,4HOR  , 4HFZCO,4HOR  , 4HKGGI,4HN   , 4HIREF,4H    ,\r\n     1     4HMINM,4HACH , 4HMAXM,4HACH , 4HMTYP,4HE   , 4H****,4H****,\r\n     5     44*4H****    /\r\nC*****\r\nC     THE ICC ARRAYS CONTAIN PAIRED ENTRIES OF CASE CONTROL FLAG NAMES\r\nC     FOR USE IN RESTART RUNS\r\nC*****\r\n      DATA ICC1 /\r\n     1     4HMPC$,4H    , 4HSPC$,4H    , 4HLOAD,4H$   , 4HMETH,4HOD$ ,\r\n     5     4HDEFO,4HRM$ , 4HTEMP,4HLD$ , 4HTEMP,4HMT$ , 4HIC$ ,4H    ,\r\n     9     4HAOUT,4H$   , 4HLOOP,4H$   , 4HLOOP,4H1$  , 4HDLOA,4HD$  ,\r\n     3     4HFREQ,4H$   , 4HTF$ ,4H    , 4HPLOT,4H$   , 4HTSTE,4HP$  ,\r\n     7     4HPOUT,4H$   , 4HTEMP,4HMX$ , 4HDSCO,4H$   , 4HK2PP,4H$   ,\r\n     1     4HM2PP,4H$   , 4HB2PP,4H$   , 4HCMET,4HHOD$, 4HSDAM,4HP$  ,\r\n     5     4HPLCO,4H$   , 4HNLFO,4HRCE$, 4HXYOU,4HT$  , 4HFMET,4HHOD$,\r\n     9     4HRAND,4HOM$ , 4HAXYO,4HUT$ , 4HNOLO,4HOP$ , 4HGUST,4H$   ,\r\n     3     4HQOUT,4H$   , 4HBOUT,4H$   ,\r\n     7     32*4H****    /\r\n      DATA ICC2 /\r\n     1     24*4H****    /\r\nC\r\nC*****\r\nC     INITIALIZATION OF VARIABLES IN COMMON /IFPX0/\r\nC*****\r\nC\r\nC     THE VALUES ASSIGNED BELOW TO THE VARIABLES IN COMMON /IFPX0/\r\nC     ARE AS PER THEIR DEFINITIONS GIVEN EARLIER IN THE COMMENTS\r\nC     AND ARE DERIVED FROM THE COMMON /IFPX1/ INFORMATION\r\nC*****\r\n      DATA LBDPR, LCC, IWRDS, IPARPT /16, 2, 18*0, 401/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx2bd.f",
    "content": "      BLOCK DATA IFX2BD\r\nCIFX2BD\r\nC\r\nC     PAIRS OF TWO WORDS\r\nC     SECOND WORD IS APPROACH ACCEPTANCE FLAG, INITIALIZED TO ZERO\r\nC     FIRST  WORD IS GINO OUTPUT FILE DESIGNATION -\r\nC             1   GOES TO GEOM1\r\nC             2   GOES TO EPT\r\nC             3   GOES TO MPT\r\nC             4   GOES TO EDT\r\nC             5   GOES TO DIT\r\nC             6   GOES TO CASECC\r\nC             7   GOES TO DYNAMIC\r\nC             8   GOES TO GEOM2\r\nC             9   GOES TO GEOM3\r\nC            10   GOES TO GEOM4\r\nC            11   GOES TO GEOM5\r\nC           (12   DOES NOT EXIST, USED ONLY BY DMI AND DTI CARDS)\r\nC            13   GOES TO FORCE\r\nC            14   GOES TO MATPOOL\r\nC            15   GOES TO AXIC\r\nC\r\n      COMMON /IFPX2/ I1(100),I2(100),I3(100),I4(100),I5(100),\r\n     1               I6(100),I7(100),I8( 40)\r\n      DATA I1/\r\n     1      1, 0,     1, 0,     1, 0,     1, 0,     1, 0,     1, 0,\r\n     *      1, 0,     1, 0,     1, 0,     1, 0,     8, 0,    10, 0,\r\n     3     10, 0,    10, 0,    10, 0,    10, 0,    10, 0,     9, 0,\r\n     *      9, 0,     9, 0,     9, 0,     9, 0,     9, 0,     9, 0,\r\n     5      9, 0,     9, 0,     9, 0,     8, 0,     2, 0,     2, 0,\r\n     *      2, 0,     1, 0,     2, 0,     2, 0,     2, 0,     2, 0,\r\n     7      2, 0,     2, 0,     2, 0,     2, 0,     2, 0,     2, 0,\r\n     *      2, 0,     2, 0,     2, 0,     2, 0,     8, 0,     8, 0,\r\n     9      8, 0,     8, 0/\r\n      DATA I2/\r\n     1      1, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     *      8, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     3      8, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     *      8, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     5      8, 0,     8, 0,     3, 0,     3, 0,     8, 0,     8, 0,\r\n     *      4, 0,     6, 0,    10, 0,     9, 0,     7, 0,     7, 0,\r\n     7      7, 0,     1, 0,     1, 0,     3, 0,     3, 0,    10, 0,\r\n     *      5, 0,     5, 0,     5, 0,     5, 0,     5, 0,     9, 0,\r\n     9      1, 0,     1, 0/\r\n      DATA I3/\r\n     1      1, 0,     3, 0,     1, 0,     8, 0,     8, 0,     1, 0,\r\n     *      8, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     3      8, 0,     8, 0,     8, 0,     2, 0,     2, 0,     2, 0,\r\n     *     12, 0,    14, 0,     2, 0,     3, 0,     7, 0,     7, 0,\r\n     5      7, 0,     7, 0,     7, 0,     7, 0,     7, 0,     7, 0,\r\n     *      7, 0,     7, 0,     5, 0,     5, 0,     7, 0,     7, 0,\r\n     7      7, 0,     7, 0,     7, 0,     5, 0,     5, 0,     7, 0,\r\n     *      3, 0,    15, 0,    15, 0,    15, 0,     2, 0,    15, 0,\r\n     9     15, 0,    15, 0/\r\n      DATA I4/\r\n     1     15, 0,    15, 0,    15, 0,    15, 0,    15, 0,    15, 0,\r\n     *     15, 0,     7, 0,     2, 0,     2, 0,     2, 0,     5, 0,\r\n     3      2, 0,     2, 0,     2, 0,     7, 0,    10, 0,    10, 0,\r\n     *     10, 0,    10, 0,    10, 0,    10, 0,    10, 0,    10, 0,\r\n     5     10, 0,    10, 0,    10, 0,    10, 0,     8, 0,     8, 0,\r\n     *      2, 0,     7, 0,     7, 0,     7, 0,     3, 0,    10, 0,\r\n     7     10, 0,     5, 0,     3, 0,     9, 0,     5, 0,     9, 0,\r\n     *     10, 0,    10, 0,     7, 0,     7, 0,     7, 0,     9, 0,\r\n     9      9, 0,    12, 0/\r\n      DATA I5/\r\n     1      9, 0,     9, 0,     9, 0,     9, 0,    15, 0,    15, 0,\r\n     *     15, 0,    15, 0,    15, 0,    15, 0,    15, 0,    15, 0,\r\n     3     15, 0,    15, 0,    10, 0,    10, 0,     8, 0,     8, 0,\r\n     *      8, 0,     8, 0,    14, 0,    15, 0,    15, 0,     8, 0,\r\n     5      8, 0,     8, 0,     8, 0,     8, 0,    15, 0,    15, 0,\r\n     *     15, 0,     8, 2,     9, 2,     3, 0,     3, 0,     2, 0,\r\n     7      3, 0,     3, 0,     9, 0,     9, 0,     9, 0,     9, 0,\r\n     *     14, 0,    14, 0,    10, 0,    10, 0,    11, 0,    11, 0,\r\n     9      8, 0,     2, 0/\r\n      DATA I6/\r\n     1      8, 0,     8, 0,     8, 0,     2, 0,     9, 0,    10, 0,\r\n     *     10, 0,     8, 0,     8, 0,     2, 0,     8, 0,     3, 0,\r\n     3      4,-2,     4,-2,     4,-2,     4,-2,     4,-2,     4,-2,\r\n     *      4,-2,     4,-2,     4,-2,     4,-2,     4,-2,     4,-2,\r\n     5      8, 0,     3, 0,     3, 0,     9, 0,    10,-2,     2, 0,\r\n     *      2, 0,     2, 0,     2, 0,    10,-2,    15,-2,     2,-2,\r\n     7     15,-2,     2,-2,     2, 0,     4, 0,     8,-2,     2,-2,\r\n     *      8,-2,     2,-2,     9,-2,     9,-2,    10,-2,    10,-2,\r\n     9      8,-2,     2,-2/\r\n      DATA I7/\r\n     1      4, 0,     4, 0,     4, 0,     4, 0,     4, 0,     4, 0,\r\n     *      4,-2,     5, 0,     4, 0,     4, 0,     7,-2,     7,-2,\r\n     3      7,-2,     7,-2,     3, 0,     3, 0,     3, 0,     3, 0,\r\n     *      3, 0,     3, 0,     9, 0,     9, 0,     8, 0,     2, 0,\r\n     5      9, 0,     9, 0,     1, 0,     9, 0,     1, 0,     1, 0,\r\n     *      8, 0,     8, 0,     8, 0,     8, 0,     8, 0,     8, 0,\r\n     7      3, 0,     8, 0,     2, 0,     7, 0,     7, 0,     8, 0,\r\n     *      2, 0,     7, 0,     4, 0,     4, 0,    10, 0,    10, 0,\r\n     9     10, 0,    10,-2/\r\n      DATA I8/\r\n     1     10, 0,    10, 0,    10, 0,     8, 0,     5, 0,     8, 0,\r\n     *      8, 0,     8, 0,     2, 0,    22* 0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx3bd.f",
    "content": "      BLOCK DATA IFX3BD\r\nCIFX3BD\r\nC     THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE)\r\nC     FIRST  WORD IS USED AS THE CONICAL SHELL FLAG, AND\r\nC     SECOND WORD IS USED INTERNALLY TO STORE THE NUMBER OF WORDS TO\r\nC     BE OUTPUT TO THE GINO OUTPUT FILE\r\nC\r\n      COMMON /IFPX3/ I1(100),I2(100),I3(100),I4(100),I5(100),\r\n     1               I6(100),I7(100),I8( 40)\r\n      DATA I1/\r\n     1     -1, 0,    -1, 0,     0, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     3      1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,     1, 0,\r\n     *      1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     5     -1, 0,     1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,     0, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     7     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     9     -1, 0,    -1, 0/\r\n      DATA I2/\r\n     1      0, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     3     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     5     -1, 0,    -1, 0,     0, 0,     0, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,     0, 0,     1, 0,     1, 0,     0, 0,     0, 0,\r\n     7      0, 0,     0, 0,     0, 0,    -1, 0,     0, 0,    -1, 0,\r\n     *      0, 0,     0, 0,     0, 0,     0, 0,    -1, 0,     1, 0,\r\n     9      0, 0,     0, 0/\r\n      DATA I3/\r\n     1      0, 0,    -1, 0,     0, 0,    -1, 0,    -1, 0,     0, 0,\r\n     *      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     3      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *      0, 0,     0, 0,    -1, 0,     0, 0,     0, 0,     0, 0,\r\n     5      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *      0, 0,     0, 0,     0, 0,     0, 0,    -1, 0,     0, 0,\r\n     7      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     9      0, 0,     0, 0/\r\n      DATA I4/\r\n     1      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     3      0, 0,     0, 0,     0, 0,     0, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     5     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,     0, 0,     0, 0,     0, 0,    -1, 0,    -1, 0,\r\n     7     -1, 0,     0, 0,     0, 0,     1, 0,     0, 0,    -1, 0,\r\n     *      0, 0,     0, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     9     -1, 0,     0, 0/\r\n      DATA I5/\r\n     1     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     3     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,     0, 0,     0, 0,\r\n     5      0, 0,     0, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *      0, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     7     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,     0, 0,     0, 0,    -1, 0,    -1, 0,\r\n     9     -1, 0,    -1, 0/\r\n      DATA I6/\r\n     1     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     3     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     5     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,     0, 0,     0, 0,\r\n     7      0, 0,     0, 0,     0, 0,     0, 0,    -2, 0,    -2, 0,\r\n     *     -2, 0,    -2, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     9     -2, 0,    -2, 0/\r\n      DATA I7/\r\n     1     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     3     -1, 0,    -1, 0,     0, 0,     0, 0,     0, 0,     0, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     5     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     7     -1, 0,    -1, 0,    -1, 0,     0, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     9     -1, 0,    -1, 0/\r\n      DATA I8/\r\n     1      0, 0,    -1, 0,    -1, 0,    -1, 0,     0, 0,    -1, 0,\r\n     5     -1, 0,    -1, 0,    -1, 0,    22* 0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx4bd.f",
    "content": "      BLOCK DATA IFX4BD\r\nCIFX4BD\r\nC     THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE)\r\nC     FIRST AND SECOND WORDS ARE THE MINIMUM AND MAXIMUM NUMBER OF\r\nC     WORDS ALLOWABLE FOR THE CARD TYPE.\r\nC     THE FIRST WORD BEING NEGATIVE IMPLIES THE CARD IS OPEN ENDDED\r\nC\r\n      COMMON /IFPX4/ I1(100),I2(100),I3(100),I4(100),I5(100),\r\n     1               I6(100),I7(100),I8( 40)\r\n      DATA I1/\r\n     1      4,12,     4,12,    -4, 9,     4, 8,     4, 8,     4, 8,\r\n     *      4, 8,    12,16,    12,16,    12,16,     4, 8,    -4, 9,\r\n     3      4, 8,     4, 8,     4, 8,     4, 8,     4, 8,     8,12,\r\n     *      8,12,     8,12,     8,12,     8,12,     8,12,     8,12,\r\n     5      4, 8,     8,12,     4, 8,    -4, 9,     4,12,     4,12,\r\n     *      4, 8,    -4, 9,     4,16,     4, 8,     4,12,     4,12,\r\n     7      4, 8,     4,16,     4, 8,     4,12,     4, 8,     4, 8,\r\n     *      4, 8,     4, 8,     4, 8,     4, 8,     8,12,     4, 8,\r\n     9      4, 8,     4, 8/\r\n      DATA I2/\r\n     1     -4, 9,     8,12,     8,12,     8,12,     8,12,     8,12,\r\n     *      8,12,     8,12,     8,12,     8,12,     8,12,     8,12,\r\n     3      8,28,     8,20,     4,12,     4,12,     4, 8,     4, 8,\r\n     *      4,12,     4,12,     4, 8,     4, 8,     4,12,     4,12,\r\n     5      4, 8,     4, 8,     4,16,     8,24,     8,12,     8,12,\r\n     *      4, 8,    -5,16,     4, 8,     4, 8,     9,18,     9,18,\r\n     7     -4,10,    -4, 9,     8, 8,     4,16,     4,16,    -4, 9,\r\n     *     -4,16,    -4,16,    -4,16,    -4,16,    -4,16,     4,12,\r\n     9     -4, 9,    -4, 9/\r\n      DATA I3/\r\n     1     -4, 9,     4,16,    -4, 9,     4,12,    -4, 9,    -4, 9,\r\n     *      8,24,     8,24,     8,24,     8,24,     8,24,     8,24,\r\n     3      8,24,     8,24,     8,24,     4,24,     4,24,     4,24,\r\n     *     -4,16,    -4,12,     4, 8,     4,16,     4, 8,    -4, 9,\r\n     5      4, 8,     4, 8,     8,12,     8,12,     8,12,     8,12,\r\n     *      8, 8,     8, 8,    -4,16,    -4,16,     4, 8,     8,12,\r\n     7      4,12,     8, 8,     8,16,    -4,16,    -4,16,     4, 8,\r\n     *      4, 8,     4, 8,     4,12,     4, 8,     4,28,     4,12,\r\n     9      4, 8,     4, 8/\r\n      DATA I4/\r\n     1      4, 8,     4, 8,     4,12,     4,12,     4, 8,    -4,13,\r\n     *     -4,13,     4, 8,     4,24,     4,24,     4,24,    -4,16,\r\n     3      4,24,     4,24,     4,24,     4, 8,    -4,20,    -4,12,\r\n     *     12,16,    -4,12,    -8,16,     6, 9,    -4,12,    -4,12,\r\n     5     -8,16,    -8,12,     4,12,    -4,12,     4,12,     8,20,\r\n     *      4,24,     4, 8,     4, 8,     4, 8,     4, 8,     9, 9,\r\n     7      5, 9,     4, 8,     4,16,     8,12,    -4,16,    -4,17,\r\n     *     -4, 9,    -4,10,     4,12,     4, 8,    -4, 8,    10,14,\r\n     9     -4, 9,    -4,16/\r\n      DATA I5/\r\n     1     -4,10,    -4,10,    -4,10,    -4,10,     8,12,    -4,10,\r\n     *      4, 8,     4, 8,     8, 8,     8, 8,     8, 8,    -8,10,\r\n     3     -4,10,     4, 8,     4, 8,    -4, 9,     8, 8,     8, 8,\r\n     *     16,16,    16,16,    -4, 9,     4,10,     8, 8,     8, 8,\r\n     5      8, 8,     8, 8,     8, 8,     8,16,     4, 8,     4, 8,\r\n     *     -4, 8,     9,17,     9, 9,     4, 8,     4, 8,     4, 8,\r\n     7      4, 8,     4, 8,    -4, 9,     4, 8,    -4,16,    -4, 9,\r\n     *     -4,16,    -4, 8,    -4,10,    -4,10,    17,17,    17,17,\r\n     9      8,12,     4, 8/\r\n      DATA I6/\r\n     1     12,16,    24,28,    36,40,     4,12,     8,12,     4, 8,\r\n     *     -4,16,    -4,16,     8,12,     4, 8,     8,20,     8,24,\r\n     3     16,16,     4, 8,     8,12,     8,12,    12,16,    -4,16,\r\n     *      4, 8,     4, 8,    16,16,    10,14,    -4,16,    -4,16,\r\n     5      9,13,    -9,14,     9,13,     8,12,    -3,48,    -8,16,\r\n     *     -8,16,    -8,16,    -8,20,    -4,48,     4, 8,     4,24,\r\n     7      4, 8,     4,24,     4, 8,    -4,16,    12,16,     8,12,\r\n     *     12,16,     8,20,    -8,20,    -8,20,     4, 8,    -3,48,\r\n     9     12,16,    20,24/\r\n      DATA I7/\r\n     1     12,16,    16,16,    16,16,    17,17,     4,24,    -4, 8,\r\n     *     -4,16,     4, 8,    16,16,    -4, 8,    -4, 9,    -4, 9,\r\n     3     -4, 9,    -4, 9,     4,20,     4,56,     4,20,     4,56,\r\n     *      4,36,     4,36,     8,20,    -4, 9,    12,16,     4, 8,\r\n     5     12,65,    -4, 9,    -4, 9,    12,16,    -4,16,    -4,16,\r\n     *      4, 8,    -4, 9,    16,16,    16,16,     8, 8,     8, 8,\r\n     7      4, 8,     8,12,    24,28,    -4, 8,     8,12,     4, 8,\r\n     *      8,12,     8,12,    -4, 9,    12,16,     4, 8,     4, 8,\r\n     9      8,16,    -3,48/\r\n      DATA I8/\r\n     1     -4, 8,    -4, 9,    -4, 8,     8,20,    -4,16,     4, 8,\r\n     *      4, 8,     4, 8,     4, 8,    22* 0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx5bd.f",
    "content": "      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 SPECIFICATION\r\nC     THE SECOND WORD IS THE FIELD-2-UNIQUENESS-CHECK FLAG\r\nC\r\n      COMMON /IFPX5/ I1(100),I2(100),I3(100),I4(100),I5(100),\r\n     1               I6(100),I7(100),I8( 40)\r\n      DATA I1/\r\n     1      1, 1,    13, 2,   537, 0,    37, 0,    37, 0,    37, 0,\r\n     *     37, 0,    45, 1,    45, 1,    45, 1,   505, 0,    -1, 0,\r\n     3     -1, 1,    37, 0,    37, 0,   101, 0,    -1, 0,   109, 0,\r\n     *    109, 0,   121, 0,   121, 0,   133, 0,   133, 0,   145, 0,\r\n     5    157, 0,   165, 1,   157, 0,    -1, 1,   165, 1,   177, 1,\r\n     *    189, 0,   537, 0,   221, 1,   237, 0,   257, 1,   257, 1,\r\n     7    237, 0,   221, 1,   237, 0,   257, 1,   237, 0,   237, 0,\r\n     *    237, 0,   269, 0,   269, 0,   497, 0,   277, 1,    37, 0,\r\n     9     37, 0,    37, 0/\r\n      DATA I2/\r\n     1    537, 0,   313, 1,   313, 1,   313, 1,   313, 1,   313, 1,\r\n     *    325, 1,   325, 1,   325, 1,   325, 1,   337, 1,   337, 1,\r\n     3    349, 1,   377, 1,   337, 1,   397, 1,    37, 0,   409, 0,\r\n     *    337, 1,   397, 1,    37, 0,   409, 0,   337, 1,   417, 1,\r\n     5     37, 0,   409, 0,   429, 1,   445, 1,   738, 1,   737, 1,\r\n     *    157, 0,    -1, 2,    -1, 1,    -1, 1,   469, 1,   469, 1,\r\n     7     -1, 1,   537, 0,    -1, 2,   545, 1,   545, 1,    -1, 0,\r\n     *     -1, 1,    -1, 1,    -1, 1,    -1, 1,    -1, 1,   269, 1,\r\n     9    537, 0,   537, 0/\r\n      DATA I3/\r\n     1    537, 0,   525, 1,   537, 0,   750, 1,   794, 0,   537, 0,\r\n     *    925, 1,   925, 1,   925, 1,   925, 1,   925, 1,   925, 1,\r\n     3    925, 1,   925, 1,   925, 1,   925, 1,   925, 1,   925, 1,\r\n     *     -1, 0,    -1, 0,   237, 0,   445, 1,    -1, 1,   794, 0,\r\n     5    705, 0,    -1, 1,   725, 0,   725, 0,   725, 0,   725, 0,\r\n     *    337, 1,   337, 1,    -1, 1,    -1, 1,    37, 0,    -1, 0,\r\n     7    713, 0,   681, 1,   689, 1,    -1, 1,    -1, 1,    -1, 1,\r\n     *     -1, 1,    93, 0,   245, 1,   645, 1,   653, 1,   485, 0,\r\n     9     -1, 0,   337, 0/\r\n      DATA I4/\r\n     1    337, 0,   517, 1,   177, 1,    61, 0,   237, 0,   109, 0,\r\n     *    109, 0,   561, 0,   925, 1,   925, 1,   925, 1,    -1, 1,\r\n     3    925, 1,   925, 1,   925, 1,   705, 0,    -1, 0,    -1, 0,\r\n     *     45, 1,    -1, 0,    -1, 0,  1080, 0,    -1, 0,    -1, 0,\r\n     5     -1, 1,    -1, 0,    -1, 0,    -1, 0,    25, 2,    73, 1,\r\n     *    621, 1,   101, 0,   101, 0,   101, 0,    -1, 1,  1073, 0,\r\n     7   1073, 0,     1, 0,   525, 1,   109, 0,    -1, 1,    -1, 0,\r\n     *   1065, 0,    -1, 0,   782, 0,   752, 0,    -1, 1,   993, 0,\r\n     9     -1, 0,    -1, 0/\r\n      DATA I5/\r\n     1     -1, 0,    -1, 0,    -1, 0,    -1, 0,     1, 1,    -1, 0,\r\n     *    497, 1,   834, 0,   845, 1,   853, 1,   861, 1,    -1, 0,\r\n     3     -1, 0,   834, 0,    37, 0,    -1, 0,   337, 1,   525, 1,\r\n     *    531, 1,   531, 1,    -1, 0,   826, 0,   869, 1,   877, 1,\r\n     5    877, 1,   877, 1,   877, 1,   877, 1,   885, 1,   893, 1,\r\n     *     -1, 0,   909, 1,   901, 0,   198, 1,   198, 1,   350, 1,\r\n     7     37, 1,    37, 1,    -1, 0,   350, 0,    -1, 0,    -1, 0,\r\n     *     -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,    -1, 0,\r\n     9    325, 1,   237, 0/\r\n      DATA I6/\r\n     1    951, 1,   951, 1,   951, 1,   981, 1,   949, 0,   101, 0,\r\n     *     -1, 0,    -1, 0,   325, 1,   237, 0,  1418, 1,  1434, 1,\r\n     3     39, 1,    37, 1,     2, 0,    42, 1,  1025, 1,    -1, 0,\r\n     *    197, 0,   805, 0,   805, 0,  1005, 1,    -1, 1,    -1, 1,\r\n     5     -1, 1,    -1, 0,  1017, 0,  1037, 0,    -1, 1,    -1, 1,\r\n     *     -1, 1,    -1, 1,    -1, 1,    -1, 1,   313, 1,   349, 1,\r\n     7    325, 1,   349, 1,   326, 1,    -1, 0,   913, 1,   802, 1,\r\n     *    913, 1,  1089, 1,    -1, 0,    -1, 0,    37, 1,    -1, 1,\r\n     9    913, 1,  1105, 1/\r\n      DATA I7/\r\n     1     39, 1,    39, 1,    39, 1,  1129, 1,   801, 1,    -1, 1,\r\n     *     -1, 1,   165, 0,    39, 1,    -1, 1,  1080, 0,  1080, 0,\r\n     3   1080, 0,  1153, 0,  1201, 1,  1201, 1,  1257, 1,  1257, 1,\r\n     *   1201, 1,  1257, 1,  1313, 0,  1329, 0,  1048, 1,  1057, 1,\r\n     5   1361, 0,  1329, 0,  1337, 0,  1345, 0,    -1, 1,    -1, 1,\r\n     *    505, 1,    -1, 1,   531, 1,   531, 1,   337, 1,   525, 1,\r\n     7    198, 1,    73, 1,   802, 1,    -1, 0,   725, 0,    37, 1,\r\n     *    445, 1,    -1, 0,    -1, 1,    45, 1,   545, 1,   545, 1,\r\n     9    545, 1,    -1, 1/\r\n      DATA I8/\r\n     1     -1, 1,    -1, 1,    -1, 1,  1454, 1,    -1, 1,    37, 1,\r\n     *    313, 1,   337, 1,   269, 1,    22* 0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx6bd.f",
    "content": "      BLOCK DATA IFX6BD\r\nCIFX6BD\r\nC\r\nC     THE FIRST  WORD DEFINES A CARD-TYPE IDENTIFICATION CODE, AND\r\nC     THE SECOND WORD DEFINES A BIT POSITION IN A 96-BIT 'TRAILER'\r\nC\r\n      COMMON /IFPX6/ I1(100),I2(100),I3(100),I4(100),I5(100),\r\n     1               I6(100),I7(100),I8( 40)\r\n      DATA I1/\r\n     1   4501,45,     0, 0,     0, 0,  5301,53,  1801,18,  1701,17,\r\n     *   1901,19,  2101,21,  2001,20,  2201,22,  5201,52,  5481,58,\r\n     3   5491,59,  5601,56,  5001,50,  5501,55,  4901,49,  4201,42,\r\n     *   4801,48,  4001,40,  4601,46,  4101,41,  4701,47,  5101,51,\r\n     5   5401,54,  4401,44,  5701,57,  4301,43,   902, 9,  1602,16,\r\n     *   1802,18,     0, 0,  1202,12,  1302,13,  1102,11,  1502,15,\r\n     7   1402,14,   702, 7,   802, 8,   602, 6,   502, 5,  1002,10,\r\n     *   1702,17,   402, 4,   202, 2,   302, 3,  1601,16,  3001,30,\r\n     9   3701,37,  3901,39/\r\n      DATA I2/\r\n     1      0, 0,  3301,33,  3401,34,  3201,32,  3601,36,  3501,35,\r\n     *   2801,28,  2901,29,  2701,27,  2601,26,  3101,31,  3801,38,\r\n     3   1401,14,  1501,15,  1001,10,  1101,11,  1201,12,  1301,13,\r\n     *    201, 2,   301, 3,   401, 4,   501, 5,   601, 6,   701, 7,\r\n     5    801, 8,   901, 9,   103, 1,   203, 2,  1708,17,  1808,18,\r\n     *    104, 1,     0, 0,  4891,60,  4551,61,   307, 3,   107, 1,\r\n     7    207, 2,     0, 0,     0, 0,   503, 5,   703, 7,  4951,63,\r\n     *    105, 1,   205, 2,   305, 3,   405, 4,  3105,31,  5641,65,\r\n     9      0, 0,     0, 0/\r\n      DATA I3/\r\n     1      0, 0,   803, 8,     0, 0,  1908,19,  5551,49,     0, 0,\r\n     *   6108,61,  6208,62,  6308,63,  6408,64,  6508,65,  6608,66,\r\n     3   6708,67,  6808,68,  6908,69,  6102,61,  6202,62,  6302,63,\r\n     *      0, 0,   114, 1,  2102,21,  1403,14,    57, 5,   707, 7,\r\n     5   1007,10,  1307,13,  3107,31,  3207,32,  3307,33,  3407,34,\r\n     *   5107,51,  5207,52,  1105,11,  1205,12,  5707,57,  6207,62,\r\n     7   6607,66,  7107,71,  7207,72,  1305,13,  1405,14,  8307,83,\r\n     *     53,10,   515, 5,  5615,56,  8515,85,   152,19,  6215,62,\r\n     9   4015,40,  4315,43/\r\n      DATA I4/\r\n     1   6415,64,  4915,49,  6315,63,  5215,52,  6815,68,  2115,21,\r\n     *   3815,38,   257, 4,  6402,64,  6502,65,  6602,66,    15,21,\r\n     3   6702,67,  6802,68,  6902,69,  1107,11,   110,41,   210, 2,\r\n     *    310, 3,   410, 4,   500, 5,   610, 6,   710, 7,   810, 8,\r\n     5    910, 9,  1110,11,  1210,12,  1310,13,     0, 0,  2408,24,\r\n     *     52,20,    27,17,    37,18,    77,19,  1103,11,  1410,14,\r\n     7   1510,15,    56,26,  1503,15,  5509,55,    55,25,  6709,67,\r\n     *    110, 1,   210, 2,  2107,21,  2207,22,  2307,23,  6909,69,\r\n     (   6809,68,     0, 0/\r\n      DATA I5/\r\n     1   8109,81,  8209,82,  8309,83,  8409,84,  8115,81,  8215,82,\r\n     *   8315,83,  8415,84,  7815,78,  7915,79,  8015,80,  8815,88,\r\n     3   8915,89,  9015,90,  5561,76,  5571,77,  5508,55,  5608,56,\r\n     *   5708,57,  5808,58,   214, 2,  9115,91,  1115,11,  2108,21,\r\n     5   2208,22,  2308,23,  4408,44,  4508,45,  1215,12,  1315,13,\r\n     *   1415,14,  4208,42,  4309,43,  2103,21,  2203,22,  2502,25,\r\n     7   2303,23,  2403,24,  4509,45,  4909,49,  5009,50,  5209,52,\r\n     *   2014,20,  3014,30,  7810,78,  7910,79,  1310,13,  1410,14,\r\n     9   2008,20,  2202,22/\r\n      DATA I6/\r\n     1   7108,71,  7208,72,  7308,73,  7002,70,  7109,71,  5110,51,\r\n     *   5210,52,  5008,50,  5308,53,  5302,53,  5408,54,   603, 6,\r\n     3   3002,30,  3102,31,  3202,32,  3302,33,  3402,34,  3502,35,\r\n     *   3602,36,  3702,37,  3802,38,  3902,39,  4002,40,  4102,41,\r\n     5   4001,40,   304, 3,   404, 4,  7001,70,  5310,53,  5502,55,\r\n     *   5602,56,  5702,57,  5802,58,  5410,54,  7012,70,  7032,85,\r\n     7   7042,74,  7052,95,  2606,26,  4202,42,  6101,81,  6201,82,\r\n     *   6301,83,  6401,84,  8509,85,  8609,86,  8210,82,  8310,83,\r\n     9   7501,75,  7601,76/\r\n      DATA I7/\r\n     1   4301,43,  4401,44,  4501,45,  4601,46,  4701,47,  4801,48,\r\n     *   4901,49,  1005,10,  5001,50,  5101,51,  9027,90,  9137,91,\r\n     3   9277,92,  9307,93,  1603,16,  1703,17,  1803,18,  1903,19,\r\n     *   2503,25,  2603,26,  3109,31,  3209,32,  2001,47,  2002,56,\r\n     5   3309,33,  3409,34,  3101,31,  3509,35,  4101,41,  4201,42,\r\n     *   4810,48,  7610,76,  9210,92,  9310,93,  8610,86,  8710,87,\r\n     7   5110,51,  5101,51,  5102,51,  3507,35,  3607,36,  8408,84,\r\n     *   8402,84,  3608,36,  3292,92,  3293,93,  6510,65,  6610,66,\r\n     9   6710,67,  6810,68/\r\n      DATA I8/\r\n     1   6910,69,  7010,70,  7110,71,  9108,91,   505, 5,  4302,77,\r\n     *   4802,48,  4902,94,  4303,43,    22* 0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ifx7bd.f",
    "content": "      BLOCK DATA IFX7BD\r\nCIFX7BD\r\nC     EACH ENTRY CONTAINS THE ADMISSIBLE SEQUAENCE OF FORMAT CODES FOR\r\nC     THAT CARD TYPE.  THE POINTER TO EACH ENTRY IS PROVIDED FROM THE\r\nC     FIRST WORD OF /IFPX5/\r\nC\r\nC     INPUT BULK DATA CARD FORMAT CODE STRINGS\r\nC           0 = BLANK        3 = BCD\r\nC           1 = INTEGER      4 = DOUBLE PRECISION\r\nC           2 = REAL         5 = ANYTHING\r\nC\r\nC     IF THE DIMENSION OF /IFPX7/ IS INCREASED HERE, MAKE THE SAME\r\nC     LABEL COMMON IN IFP ROUTINE THE SMAE SIZE TOO\r\nC\r\nC******\r\n      COMMON /IFPX7/ J1(160),J2(160),J3(160), J4(160), J5(160), J6(160),\r\n     1               J7(160),J8 (80),J9 (56),J10( 56),J11( 24),J12(  8),\r\n     2               J13(16),J14(57),J15(52)\r\nC\r\nC*****\r\nC    1       1              5              9             13\r\nC    2      17             21             25             29\r\nC    3      33             37             41             45\r\nC    4      49             53             57             61\r\nC    5      65             69             73             77\r\nC    6      81             85             89             93\r\nC    7      97            101            105            109\r\nC    8     113            117            121            125\r\nC    9     129            133            137            141\r\nC    X     145            149            153            157\r\n      DATA J1 /\r\n     1     1, 1, 2, 2 ,   2, 1, 1, 1 ,   0, 0, 0, 0 ,   0, 1, 0, 0\r\n     2 ,   0, 1, 1, 1 ,   0, 0, 0, 0 ,   0, 1, 0, 0 ,   5, 2, 2, 1\r\n     3 ,   0, 0, 0, 0 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 2, 2\r\n     4 ,   2, 2, 2, 2 ,   2, 2, 2, 0 ,   0, 0, 0, 0 ,   1, 2, 1, 1\r\n     5 ,   2, 2, 0, 0 ,   0, 0, 0, 0 ,   1, 1, 1, 1 ,   5, 2, 2, 1\r\n     6 ,   1, 1, 2, 2 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 1, 0, 0\r\n     7 ,   0, 0, 0, 0 ,   1, 1, 1, 2 ,   1, 1, 2, 0 ,   1, 1, 5, 2\r\n     8 ,   2, 2, 2, 0 ,   0, 0, 0, 0 ,   1, 1, 2, 1 ,   1, 0, 0, 0\r\n     9 ,   0, 0, 0, 0 ,   1, 1, 2, 1 ,   1, 1, 1, 0 ,   0, 0, 0, 0\r\n     X ,   1, 2, 1, 1 ,   1, 1, 0, 0 ,   0, 0, 0, 0 ,   1, 1, 2, 1 /\r\nC\r\nC*****\r\nC    1     161            165            169            173\r\nC    2     177            181            185            189\r\nC    3     193            197            201            205\r\nC    4     209            213            217            221\r\nC    5     225            229            233            237\r\nC    6     241            245            249            253\r\nC    7     257            261            265            269\r\nC    8     273            277            281            285\r\nC    9     289            293            297            301\r\nC    X     305            309            313            317\r\n      DATA J2 /\r\n     1     2, 1, 2, 0 ,   1, 1, 2, 2 ,   2, 2, 1, 1 ,   1, 2, 2, 2\r\n     2 ,   1, 1, 2, 2 ,   2, 0, 0, 0 ,   0, 0, 0, 0 ,   1, 2, 2, 0\r\n     3 ,   1, 2, 2, 0 ,   1, 1, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2\r\n     4 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 1, 2, 1\r\n     5 ,   2, 1, 2, 2 ,   2, 2, 0, 0 ,   0, 0, 0, 0 ,   1, 1, 2, 2\r\n     6 ,   1, 1, 2, 2 ,   1, 0, 2, 2 ,   0, 0, 1, 0 ,   0, 0, 0, 0\r\n     7 ,   1, 1, 2, 1 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 2, 1, 2\r\n     8 ,   1, 2, 1, 2 ,   1, 1, 1, 1 ,   2, 2, 2, 2 ,   0, 0, 0, 0\r\n     9 ,   1, 1, 1, 1 ,   2, 2, 2, 1 ,   1, 1, 2, 2 ,   2, 2, 2, 2\r\n     X ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 1, 1, 1 ,   1, 2, 0, 0 /\r\nC\r\nC*****\r\nC    1     321            325            329            333\r\nC    2     337            341            345            349\r\nC    3     353            357            361            365\r\nC    4     369            373            377            381\r\nC    5     385            389            393            397\r\nC    6     401            405            409            413\r\nC    7     417            421            425            429\r\nC    8     433            437            441            445\r\nC    9     449            453            457            461\r\nC    X     465            469            473            477\r\n      DATA J3 /\r\n     1     0, 0, 0, 0 ,   1, 1, 1, 1 ,   1, 1, 2, 0 ,   0, 0, 0, 0\r\n     2 ,   1, 1, 1, 1 ,   1, 1, 0, 0 ,   0, 0, 0, 0 ,   1, 1, 1, 2\r\n     3 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2\r\n     4 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 1, 1, 2 ,   2, 2, 2, 0\r\n     5 ,   2, 2, 2, 2 ,   2, 2, 0, 0 ,   0, 0, 0, 0 ,   1, 2, 1, 1\r\n     6 ,   1, 1, 0, 0 ,   0, 0, 0, 0 ,   1, 2, 1, 1 ,   1, 2, 1, 1\r\n     7 ,   1, 2, 1, 1 ,   1, 1, 2, 2 ,   0, 0, 0, 0 ,   1, 2, 2, 2\r\n     8 ,   2, 2, 2, 2 ,   2, 2, 2, 1 ,   0, 0, 0, 0 ,   1, 2, 2, 2\r\n     9 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   1, 0, 0, 0\r\n     X ,   0, 0, 0, 0 ,   1, 3, 2, 2 ,   1, 1, 1, 2 ,   3, 1, 1, 0  /\r\nC\r\nC*****\r\nC    1     481            485            489            493\r\nC    2     497            501            505            509\r\nC    3     513            517            521            525\r\nC    4     529            533            537            541\r\nC    5     545            549            553            557\r\nC    6     561            565            569            573\r\nC    7     577            581            585            589\r\nC    8     593            597            601            605\r\nC    9     609            613            617            621\r\nC    X     625            629            633            637\r\n      DATA J4 /\r\n     1     0, 0, 0, 0 ,   1, 1, 1, 1 ,   2, 0, 0, 0 ,   0, 0, 0, 0\r\n     2 ,   1, 2, 2, 2 ,   1, 2, 2, 2 ,   1, 1, 1, 0 ,   1, 1, 1, 0\r\n     3 ,   0, 0, 0, 0 ,   1, 1, 2, 0 ,   0, 0, 0, 0 ,   1, 1, 1, 1\r\n     4 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   5, 0, 0, 0\r\n     5 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 0 ,   0, 0, 0, 0\r\n     6 ,   1, 2, 2, 1 ,   2, 2, 1, 0 ,   0, 0, 0, 0 ,   1, 1, 1, 2\r\n     7 ,   1, 2, 1, 2 ,   0, 0, 0, 0 ,   1, 1, 1, 1 ,   1, 0, 0, 0\r\n     8 ,   0, 0, 0, 0 ,   1, 1, 1, 2 ,   1, 1, 1, 0 ,   2, 2, 2, 2\r\n     9 ,   2, 2, 0, 0 ,   2, 2, 2, 2 ,   2, 2, 0, 0 ,   1, 1, 2, 2\r\n     X ,   2, 2, 2, 1 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 0 /\r\nC\r\nC*****\r\nC    1     641            645            649            653\r\nC    2     657            661            665            669\r\nC    3     673            677            681            685\r\nC    4     689            693            697            701\r\nC    5     705            709            713            717\r\nC    6     721            725            729            733\r\nC    7     737            741            745            749\r\nC    8     753            757            761            765\r\nC    9     769            773            777            781\r\nC    X     785            789            793            797\r\n      DATA J5 /\r\n     1     0, 0, 0, 0 ,   1, 1, 1, 1 ,   0, 0, 0, 0 ,   1, 1, 2, 1\r\n     2 ,   2, 1, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2\r\n     3 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 1, 1, 1 ,   1, 1, 0, 0\r\n     4 ,   1, 1, 1, 1 ,   2, 2, 2, 2 ,   2, 2, 0, 0 ,   0, 0, 0, 0\r\n     5 ,   1, 2, 2, 1 ,   0, 0, 0, 0 ,   1, 1, 1, 2 ,   2, 0, 0, 0\r\n     6 ,   0, 0, 0, 0 ,   1, 1, 1, 2 ,   1, 1, 5, 5 ,   0, 0, 0, 0\r\n     7 ,   1, 1, 1, 1 ,   1, 2, 1, 0 ,   0, 0, 0, 0 ,   0, 1, 1, 1\r\n     8 ,   1, 2, 2, 0 ,   0, 0, 0, 0 ,   0, 1, 1, 2 ,   2, 1, 0, 0\r\n     9 ,   0, 0, 0, 0 ,   0, 1, 2, 1 ,   5, 1, 1, 1 ,   1, 1, 1, 1\r\n     X ,   2, 2, 1, 0 ,   0, 0, 0, 0 ,   0, 1, 5, 1 ,   1, 1, 1, 1 /\r\nC\r\nC*****\r\nC    1     801            805            809            813\r\nC    2     817            821            825            829\r\nC    3     833            837            841            845\r\nC    4     849            853            857            861\r\nC    5     865            869            873            877\r\nC    6     881            885            889            893\r\nC    7     897            901            905            909\r\nC    8     913            917            921            925\r\nC    9     929            933            937            941\r\nC    X     945            949            953            957\r\n      DATA J6 /\r\n     1     1, 1, 1, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2\r\n     2 ,   2, 2, 2, 2 ,   2, 2, 2, 2 ,   2, 1, 3, 3 ,   0, 0, 0, 0\r\n     3 ,   0, 1, 0, 1 ,   2, 1, 2, 1 ,   2,-9,-9,-9 ,   1, 1, 1, 0\r\n     4 ,   0, 2, 2, 0 ,   1, 1, 1, 1 ,   0, 2, 2, 0 ,   1, 1, 1, 1\r\n     5 ,   1, 2, 2, 0 ,   2, 2, 1, 2 ,   1, 0, 0, 0 ,   1, 1, 1, 1\r\n     6 ,   1, 2, 2, 1 ,   1, 2, 2, 0 ,   0, 0, 0, 0 ,   1, 2, 2, 2\r\n     7 ,   1, 0, 0, 0 ,   1, 3, 2, 2 ,   1, 1, 1, 1 ,   1, 1, 3, 1\r\n     8 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   2, 2, 2, 0 ,   1, 1, 5, 5\r\n     9 ,   5, 5, 5, 5 ,   5, 5, 5, 5 ,   5, 5, 5, 5 ,   5, 5, 5, 5\r\n     X ,   5, 5, 5, 5 ,   1, 2, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 1 /\r\nC\r\nC*****\r\nC    1      961            965            969            973\r\nC    2      977            981            985            989\r\nC    3      993            997           1001           1005\r\nC    4     1009           1013           1017           1021\r\nC    5     1025           1029           1033           1037\r\nC    6     1041           1045           1049           1053\r\nC    7     1057           1061           1065           1069\r\nC    8     1073           1077           1081           1085\r\nC    9     1089           1093           1097           1101\r\nC    X     1105           1109           1113           1117\r\n      DATA J7 /\r\n     1     1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 1\r\n     2 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   5, 5, 5, 0 ,   0, 0,-9,-9\r\n     3 ,   1, 1, 3, 3 ,   2, 2, 2, 2 ,   0, 0, 0, 0 ,   1, 3, 1, 1\r\n     4 ,   1, 3, 1, 2 ,   0, 0, 0, 0 ,   1, 2, 2, 1 ,   3, 0, 0, 0\r\n     5 ,   1, 1, 1, 1 ,   1, 2, 2, 1 ,   2, 2, 0, 0 ,   1, 2, 2, 1\r\n     6 ,   1, 1, 0, 0 ,   1, 1, 1, 1 ,   1, 1, 1, 1 ,   1, 1, 1, 1\r\n     7 ,   1, 1, 2, 0 ,   0, 0, 0, 0 ,   3, 1, 1, 1 ,   1, 1, 1, 0\r\n     8 ,   1, 3, 1, 1 ,   1, 1, 1, 1 ,   3, 1, 1, 2 ,   1, 1, 2,-9\r\n     9 ,   1, 1, 2, 2 ,   2, 1, 2, 2 ,   2, 2, 2, 2 ,   2, 2, 2, 2\r\n     X ,   1, 1, 2, 2 ,   2, 1, 2, 2 ,   2, 1, 2, 2 ,   2, 2, 2, 2  /\r\nC\r\nC*****\r\nC    1     1121           1125           1129           1133\r\nC    2     1137           1141           1145           1149\r\nC    3     1153           1157           1161           1165\r\nC    4     1169-1200\r\n      DATA J8 /\r\n     1     2, 2, 2, 2 ,   5, 5, 5, 5 ,   1, 3, 2, 2 ,   1, 1, 1, 1\r\n     2 ,   1, 1, 1, 1 ,   1, 1, 0, 0 ,   0, 0, 0, 0 ,   0, 0, 0, 0\r\n     3 ,   1, 3, 1, 1 ,   2, 2, 0, 0 ,  -9,-9,-9,-9 ,  -9,-9,-9,-9\r\n     4 ,   32*0 /\r\nC\r\nC*****\r\nC    1     1201           1205-1252      1253\r\n      DATA J9 /\r\n     1     1, 2, 2, 2,    48*2,          0, 0, 0, 0                 /\r\nC\r\nC*****\r\nC    1     1257           1261-1308      1309\r\n      DATA J10/\r\n     1     1, 1, 1, 1,    48*1,          0, 0, 0, 0                 /\r\nC\r\nC*****\r\nC    1     1313           1317           1321           1325\r\nC    2     1329           1333\r\n      DATA J11/\r\n     1     1, 2, 1, 2,    2, 2, 2, 2,    2, 2, 2, 2,    1, 0, 0, 0,\r\n     2     1, 1, 2, 2,    2, 1, 5, 1                                /\r\nC\r\nC*****\r\nC    1     1337           1341\r\n      DATA J12/\r\n     1     1, 1, 5, 1,    1, 1, 1, 1                                /\r\nC\r\nC*****\r\nC    1     1345           1349           1353           1357\r\n      DATA J13/\r\n     1     1, 1, 2, 2,    2, 2, 2, 2,    2, 2, 5, 5,    5, 5, 5, 5  /\r\nC\r\nC*****\r\nC    1     1361-1416      1417\r\n      DATA J14/\r\n     1     56*5,          5                                         /\r\nC\r\nC*****\r\nC    1     1418           1422           1426           1430\r\nC    2     1434           1438           1442           1446\r\nC    3     1450           1454           1458           1462\r\nC    4     1466\r\n      DATA J15/\r\n     1     1, 1, 1, 1,    1, 1, 5, 2,    0, 0, 2, 2,    2, 2, 0, 0,\r\n     2     1, 2, 2, 2,    2, 2, 2, 2,    2, 2, 2, 2,    2, 2, 2, 2,\r\n     3     2, 2, 0, 0,    1, 1, 1, 1,    1, 5, 2, 0,    0, 0, 2, 2,\r\n     4     2, 0, 0, 0                                               /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/itembd.f",
    "content": "      BLOCK DATA ITEMBD\r\nCITEMBD\r\nC     ITEMBD BLOCK DATA\r\nC\r\nC     TO ADD NEW ITEMS TO THE SOF THE FOLLOWING CODE CHANGES MUST BE\r\nC     MADE.\r\nC\r\nC        1) INCREASE THE DIMENSION OF ITEM IN THE ITEMDT COMMON BLOCK.\r\nC        2) INCREASE THE DIMENSION OF THE ITEMXX ARRAY AND ADD ANY\r\nC           ADDITIONAL ARRAYS AND EQUIVALENCES IF NECESSARY.\r\nC        3) INCREASE THE VALUE OF NITEM IN THE DATA STATEMENT.\r\nC        4) ADD THE NEW DATA DESCRIBING THE NEW ITEMS.\r\nC        5) SUBROUTINE EXO2 MUST BE CHANGED IF THE NEW ITEM IS A TABLE.\r\nC           THIS ROUTINE PROCESSES THE SOFOUT(EXTERNAL) STATEMENT.\r\nC        6) SUBROUTINE SOFTOC MUST BE CHANGED IF THE NEW ITEMS WILL\r\nC           INCREASE THE NUMBER IF ITEMS TO MORE THEN 27.\r\nC\r\nC     NOTE... IF THE NUMBER OF ITEMS IS DECREASED THE LENGTH OF THE\r\nC             ITEMDT COMMON BLOCK SHOULD NOT BE DECREASED.  SOFS CREATED\r\nC             ON THE OLDER SYSTEM WILL REQUIRE THE EXTRA SPACE WHEN\r\nC             RESTORING THE ITEM STRUCTURE FOR THAT SOF.\r\nC\r\n      INTEGER       ITEM01(7,10)  ,ITEM02(7,10)  ,ITEM03(7,5)\r\nC\r\n      COMMON / ITEMDT /       NITEM    ,ITEM(7,25)\r\nC\r\n      EQUIVALENCE   ( ITEM01(1,1) , ITEM(1, 1) )\r\n     2             ,( ITEM02(1,1) , ITEM(1,11) )\r\n     3             ,( ITEM03(1,1) , ITEM(1,21) )\r\nC\r\nC        NITEM     = NUMBER OF ITEMS\r\nC        ITEM(1,I) = ITEM NAME\r\nC        ITEM(2,I) = ITEM TYPE\r\nC                         LE 0 - TABLE ITEM\r\nC                         GE 1 - MATRIX ITEM\r\nC        ITEM(3,I) = EQUIV DATA FOR GROUP 0 OF ITEMS TO BE COPYIED\r\nC                         X 1000 - WORD WITH NUMBER OF NAMES\r\nC                         X 100  - WORD WITH FIRST NAME\r\nC                         X 1    - NUMBER OF WORDS FOR EACH NAME\r\nC        ITEM(4,I) = IMAGE SUBSTRUCTURE DATA\r\nC                         0 - ITEM IS ONLY A POINTER TO PRIMARY DATA\r\nC                         1 - UNIQUE DATA, RETURN TO FREE BLOCK LIST\r\nC        ITEM(5,I) = SECONDARY SUBSTRUCTURE DATA\r\nC                         0 - ITEM IS ONLY A POINTER TO PRIMARY DATA\r\nC                         1 - UNIQUE DATA, RETURN TO FREE BLOCK LIST\r\nC        ITEM(6,I) = HIGHER LEVEL SUBSTRUCTURE DATA\r\nC                         0 - ITEM DOES NOT PERTAIN TO HIGER LEVEL\r\nC                         1 - ITEM DESCRIBES HIGHER LEVEL\r\nC        ITEM(7,1) = EDIT DATA.  EACH BIT IS SET IF THAT ITEM IS IN\r\nC                    THE COORESPONDING EDIT GROUP.  EXAMPLE - A VALUE\r\nC                    OF 36 WOULD CAUSE THE ITEM TO BE DELETED BY\r\nC                    EDIT(32) OR EDIT(4)\r\nC\r\nC***********************************************************************\r\nC\r\n      DATA NITEM / 25 /\r\nC\r\nC\r\nC          NAME   TYPE     EQUIV     IMAGE    SECONDARY   HIGHER   EDIT\r\nC\r\n      DATA ITEM01 /\r\n     1    4HEQSS   ,0        ,3005002  ,1        ,1        ,0      ,32\r\n     2   ,4HBGSS   ,0        ,0        ,0        ,0        ,0      ,32\r\n     3   ,4HCSTM   ,0        ,0        ,0        ,0        ,0      ,32\r\n     4   ,4HLODS   ,0        ,4005002  ,1        ,1        ,0      ,36\r\n     5   ,4HPLTS   ,0        ,3004014  ,1        ,1        ,0      ,32\r\n     6   ,4HKMTX   ,1        ,0        ,0        ,0        ,0      ,33\r\n     7   ,4HMMTX   ,1        ,0        ,0        ,0        ,0      ,34\r\n     8   ,4HPVEC   ,1        ,0        ,0        ,0        ,0      ,36\r\n     9   ,4HPOVE   ,1        ,0        ,0        ,1        ,1      ,48\r\n     O   ,4HUPRT   ,1        ,0        ,0        ,1        ,1      ,48\r\n     *                                                                 /\r\n      DATA ITEM02 /\r\n     1    4HHORG   ,1        ,0        ,0        ,1        ,1      ,560\r\n     2   ,4HUVEC   ,1        ,0        ,1        ,1        ,0      ,40\r\n     3   ,4HQVEC   ,1        ,0        ,1        ,1        ,0      ,40\r\n     4   ,4HSOLN   ,0        ,0        ,1        ,1        ,0      ,40\r\n     5   ,4HPAPP   ,1        ,0        ,0        ,0        ,0      ,100\r\n     6   ,4HPOAP   ,1        ,0        ,0        ,1        ,1      ,112\r\n     7   ,4HLOAP   ,0        ,4005002  ,1        ,1        ,0      ,100\r\n     8   ,4HLMTX   ,1        ,0        ,0        ,1        ,1      ,48\r\n     9   ,4HGIMS   ,1        ,0        ,0        ,1        ,1      ,48\r\n     O   ,4HPHIS   ,1        ,0        ,0        ,1        ,1      ,288\r\n     *                                                                 /\r\n      DATA ITEM03 /\r\n     1    4HLAMS   ,0        ,0        ,0        ,1        ,1      ,288\r\n     2   ,4HK4MX   ,1        ,0        ,0        ,0        ,0      ,160\r\n     3   ,4HBMTX   ,1        ,0        ,0        ,0        ,0      ,160\r\n     4   ,4HPHIL   ,1        ,0        ,0        ,1        ,1      ,288\r\n     5   ,4HHLFT   ,1        ,0        ,0        ,1        ,1      ,560\r\n     *                                                                 /\r\n      END\r\n"
  },
  {
    "path": "bd/of1pbd.f",
    "content": "      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      COMMON   /OFPB1/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\n      DATA C1  /   75,  0, 55, -1, 18, 19   ,  93,  0, 56, -1, 20, 21\r\n     3          ,  75,  0, 73, -1, 18, 19   , 115,  0, 57, -1, 22, 23\r\n     5          , 115,  0, 58, -1, 22, 24   , 130,  0, 70,389, 27, 28\r\n     7          , 130,  0, 60, -1, 27, 28   , 130,  0, 72, -1, 27, 28\r\n     9          , 152,  0, 59, -1, 25, 26   ,  75,  0, 65, -1, 18, 19\r\n     1          ,  54,  0, 61, -1, 29, 17   ,  54,  0, 62, -1, 29, 17\r\n     3          ,  54,  0, 63, -1, 29, 17   ,   0,  0,  0, -1,  0,  0\r\n     5          , 130,  0, 67, -1, 27, 28   , 152,  0, 66, -1, 25, 26\r\n     7          , 130,  0, 71,389, 27, 28   , 130,  0, 69,389, 27, 28\r\n     9          , 130,  0, 68,389, 27, 28   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,  23,  0, 64, -1, 34, 35\r\n     5          ,1106,  0,204, -1,  0,206   , 163,  0, 74, -1, 75, 76\r\n     7          , 171,  0, 77, -1, 78, 79   , 211,  0, 80, -1, 81, 82\r\n     9          ,1137,  0,221, -1,  0,217   ,1137,  0,223, -1,  0,217 /\r\n      DATA C41 / 1137,  0,225, -1,  0,217   ,1137,  0,227, -1,  0,217\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,1461,  0,231, -1,  0,250   ,1242,  0,232, -1,  0,241\r\n     9          ,4126,  0,233, -1,  0,451   ,  65,  0,234, -1,  0,247\r\n     1          ,1387,  0,235, -1,  0,244   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1242,  0,254, -1,  0,264   ,1242,  0,255, -1,  0,264\r\n     5          ,1242,  0,256, -1,  0,264   ,1242,  0,257, -1,  0,264\r\n     7          ,1242,  0,258, -1,  0,264   ,1242,  0,280, -1,  0,264\r\n     9          ,1242,  0,281, -1,  0,264   ,1242,  0,282, -1,  0,264 /\r\n      DATA C61 / 1242,  0,283, -1,  0,264   , 152,  0,304, -1, 25, 26\r\n     3          , 152,  0,306, -1,323, 26   , 130,  0,308,437,438,439\r\n     5          ,1801,  0,328, -1,329,330   ,1801,  0,328, -1,329,330\r\n     7          ,1869,  0,328, -1,329,330   ,2079,  0,343, -1,344,345\r\n     9          ,2132,  0,346, -1,344,345   ,2176,  0,347, -1,  0,348\r\n     1          ,2201,  0,351, -1,  0,348   ,   0,  0,  0,  0,  0,  0\r\n     3          ,2401,  0,363, -1,364,365   ,2291,  0,358, -1,361,362\r\n     5          ,2291,  0,346, -1,361,362   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,3141,  0,407, -1,408,409 /\r\n      DATA C81  /3634,  0,420, -1, 34, 35   ,   0,  0,  0,  0,  0,  0\r\n     3          , 130,  0,465,437,438,439   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,1949,  0,336, -1,337,338 /\r\n      END\r\n"
  },
  {
    "path": "bd/of2pbd.f",
    "content": "      BLOCK DATA OF2PBD\r\nCOF2PBD\r\nC\r\nC     C ARRAY FOR COMPLEX STRESSES SORT1\r\nC\r\n      INTEGER        C1,C21,C41,C61,C81\r\n      COMMON /OFPB2/ C1(240),C21(240),C41(240),C61(240),C81(240)\r\nC\r\nC                 IX,L1,L2,L3,L4,L5         , IX,L1,L2,L3,L4,L5\r\nC\r\nC                 REAL/IMAG  L3=125         , MAG/PHASE  L3=126\r\nC                     (L1 IS SET FOR FREQ ALWASYS = 104)\r\nC\r\n      DATA C1  /  473,104,136,125,  0,165   , 483,104,136,126,  0,165\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          , 473,104,144,125,  0,165   , 483,104,144,126,  0,165\r\n     4          , 473,104,137,125,  0,166   , 483,104,137,126,  0,166\r\n     5          , 473,104,145,125,  0,166   , 483,104,145,126,  0,166\r\n     6          , 515,104,139,125,  0,168   , 540,104,139,126,  0,168\r\n     7          , 515,104,138,125,  0,168   , 540,104,138,126,  0,168\r\n     8          , 515,104,143,125,  0,168   , 540,104,143,126,  0,168\r\n     9          , 448,104,142,125,  0,169   , 461,104,142,126,  0,169\r\n     O          , 473,104,131,125,  0,165   , 483,104,131,126,  0,165\r\n     1          , 493,104,128,125,  0,171   , 504,104,128,126,  0,171\r\n     2          , 493,104,129,125,  0,171   , 504,104,129,126,  0,171\r\n     3          , 493,104,130,125,  0,171   , 504,104,130,126,  0,171\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          , 515,104,133,125,  0,168   , 540,104,133,126,  0,168\r\n     6          , 448,104,132,125,  0,169   , 461,104,132,126,  0,169\r\n     7          , 515,104,140,125,  0,168   , 540,104,140,126,  0,168\r\n     8          , 515,104,135,125,  0,168   , 540,104,135,126,  0,168\r\n     9          , 515,104,134,125,  0,168   , 540,104,134,126,  0,168\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          , 565,104,127,125,  0,164   , 595,104,127,126,  0,164\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,1162,104,222,125,  0,219   ,1197,104,222,126,  0,219\r\n     O          ,1162,104,224,125,  0,219   ,1197,104,224,126,  0,219 /\r\n      DATA C41 / 1162,104,226,125,  0,219   ,1197,104,226,126,  0,219\r\n     2          ,1162,104,228,125,  0,219   ,1197,104,228,126,  0,219\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,1468,104,236,125,  0,250   ,1480,104,236,126,  0,250\r\n     8          ,1254,104,237,125,  0,241   ,1276,104,237,126,  0,241\r\n     9          ,4154,104,238,125,  0,451   ,4180,104,238,126,  0,451\r\n     O          , 668,104,239,125,  0,247   , 683,104,239,126,  0,247\r\n     1          ,1396,104,240,125,  0,244   ,1412,104,240,126,  0,244\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1254,104,266,125,  0,264   ,1276,104,266,126,  0,264\r\n     4          ,1254,104,267,125,  0,264   ,1276,104,267,126,  0,264\r\n     5          ,1254,104,268,125,  0,264   ,1276,104,268,126,  0,264\r\n     6          ,1254,104,269,125,  0,264   ,1276,104,269,126,  0,264\r\n     7          ,1254,104,270,125,  0,264   ,1276,104,270,126,  0,264\r\n     8          ,1254,104,288,125,  0,264   ,1276,104,288,126,  0,264\r\n     9          ,1254,104,289,125,  0,264   ,1276,104,289,126,  0,264\r\n     O          ,1254,104,290,125,  0,264   ,1276,104,290,126,  0,264  /\r\n      DATA C61 / 1254,104,291,125,  0,264   ,1276,104,291,126,  0,264\r\n     2          , 448,104,305,125,  0,169   , 461,104,305,126,  0,169\r\n     3          , 448,104,307,125,  0,324   , 461,104,307,126,  0,324\r\n     4          , 515,104,448,125,  0,449   , 540,104,448,126,  0,449\r\n     5          ,1852,104,331,125,329,332   ,1852,104,331,126,329,332\r\n     6          ,1852,104,331,125,329,332   ,1852,104,331,126,329,332\r\n     7          ,1921,104,331,125,329,332   ,1921,104,331,126,329,332\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,2657,104,393,125,  0,348   ,2657,104,393,126,  0,348\r\n     1          ,2756,104,395,125,  0,348   ,2756,104,395,126,  0,348\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          , 448,104,454,125,  0,169   , 461,104,454,126,  0,169\r\n     4          , 515,104,456,125,  0,168   , 540,104,456,126,  0,168\r\n     5          , 515,104,458,125,  0,168   , 540,104,458,126,  0,168\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,3313,104,412,125,  0,413   ,3313,104,412,126,  0,413 /\r\n      DATA C81 / 3906,104,426,125,  0,164   ,3601,104,426,126,  0,164\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          , 515,104,466,125,  0,449   , 540,104,466,126,  0,449\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of3pbd.f",
    "content": "      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\n      COMMON   /OFPB3/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\n      DATA C1  /  739,108, 55, -1,  0,182   , 756,108, 56, -1,  0,183\r\n     3          , 739,108, 73, -1,  0,182   , 778,108, 57, -1,  0,184\r\n     5          , 778,108, 58, -1,  0,185   , 791,108, 70, -1,  0,186\r\n     7          , 791,108, 60, -1,  0,186   , 791,108, 72, -1,  0,186\r\n     9          , 813,108, 59, -1,  0,187   , 739,108, 65, -1,  0,182\r\n     1          , 728,108, 61, -1,  0,188   , 728,108, 62, -1,  0,188\r\n     3          , 728,108, 63, -1,  0,188   ,   0,  0,  0, -1,  0,  0\r\n     5          , 791,108, 67, -1,  0,186   , 813,108, 66, -1,  0,187\r\n     7          , 791,108, 71, -1,  0,186   , 791,108, 69, -1,  0,186\r\n     9          , 791,108, 68, -1,  0,186   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   , 825,108, 64, -1,  0,189\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,1149,108,221, -1,  0,218   ,1149,108,223, -1,  0,218 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,1428,108,231, -1,  0,251   ,1493,108,232, -1,  0,242\r\n     9          ,4140,108,233, -1,  0,452   , 719,108,234, -1,  0,248\r\n     1          ,1344,108,235, -1,  0,245   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1493,108,254, -1,  0,276   ,1493,108,255, -1,  0,276\r\n     5          ,1493,108,256, -1,  0,276   ,1493,108,257, -1,  0,276\r\n     7          ,1493,108,258, -1,  0,276   ,1493,108,280, -1,  0,276\r\n     9          ,1493,108,281, -1,  0,276   ,1493,108,282, -1,  0,276 /\r\n      DATA C61 / 1493,108,283, -1,  0,276   , 813,108,304, -1,  0,187\r\n     3          , 813,108,306, -1,  0,325   , 791,108,308, -1,  0,443\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,3024,108,347,  0,  0,401\r\n     1          ,3029,108,351,  0,  0,401   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,3227,108,407, -1,410,411 /\r\n      DATA C81 / 3634,108,420, -1,  0,189   ,   0,  0,  0,  0,  0,  0\r\n     3          , 791,108,465, -1,  0,443   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of3sbd.f",
    "content": "      BLOCK DATA OF3SBD\r\nCOF3SBD\r\nC\r\nC     C ARRAY FOR REAL STRESSES SORT 2 - SUBCASE - STATICS\r\nC\r\n      INTEGER   C1,C21,C41,C61,C81\r\n      COMMON   /OFPB3S/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\nC\r\n      DATA C1  / 1774,108, 55, -1,  0,321   ,2466,108, 56, -1,  0,369\r\n     3          ,1774,108, 73, -1,  0,321   ,1506,108, 57, -1,  0,316\r\n     5          ,2490,108, 58, -1,  0,370   ,2505,108, 70, -1,  0,371\r\n     7          ,2505,108, 60, -1,  0,371   ,2505,108, 72, -1,  0,371\r\n     9          ,1721,108, 59, -1,  0,317   ,1774,108, 65, -1,  0,321\r\n     1          ,2451,108, 61, -1,  0,372   ,2451,108, 62, -1,  0,372\r\n     3          ,2451,108, 63, -1,  0,372   ,   0,  0,  0, -1,  0,  0\r\n     5          ,2505,108, 67, -1,  0,371   ,1721,108, 66, -1,  0,317\r\n     7          ,2505,108, 71, -1,  0,371   ,2505,108, 69, -1,  0,371\r\n     9          ,2505,108, 68, -1,  0,371   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,1731,108, 64, -1,  0,318\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\nCWKBR SPR94001 7/94 \r\nC    7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0          \r\n     7          , 171,  0, 77, -1,471,472   ,   0,  0,  0, -1,  0,  0     \r\n     9          ,2529,108,221, -1,  0,374   ,2529,108,223, -1,  0,374 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,1137,108,227, -1,  0,467\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,1428,108,231, -1,  0,251   ,1493,108,232, -1,  0,242\r\n     9          ,4140,108,233, -1,  0,452   , 719,108,234, -1,  0,248\r\n     1          ,1344,108,235, -1,  0,245   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1493,108,254, -1,  0,276   ,1493,108,255, -1,  0,276\r\n     5          ,1493,108,256, -1,  0,276   ,1493,108,257, -1,  0,276\r\n     7          ,1493,108,258, -1,  0,276   ,1493,108,280, -1,  0,276\r\n     9          ,1493,108,281, -1,  0,276   ,1493,108,282, -1,  0,276 /\r\n      DATA C61 / 1493,108,283, -1,  0,276   ,1721,108,304, -1,  0,317\r\n     3          ,1721,108,306, -1,  0,327   ,2505,108,308, -1,  0,444\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,2176,108,347,  0,  0,397\r\n     1          ,2201,108,351,  0,  0,397   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,3141,108,407, -1,  0,415 /\r\n      DATA C81  /3672,108,420, -1,  0,318   ,   0,  0,  0,  0,  0,  0\r\n     3          ,2505,108,465, -1,  0,444   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of4pbd.f",
    "content": "      BLOCK DATA OF4PBD\r\nCOF4PBD\r\nC\r\nC     C ARRAY FOR COMPLEX STRESSES SORT2 FREQUENCY\r\nC\r\n      INTEGER        C1,C21,C41,C61,C81\r\n      COMMON /OFPB4/ C1(240),C21(240),C41(240),C61(240),C81(240)\r\nC\r\nC                 IX,L1,L2,L3,L4,L5         , IX,L1,L2,L3,L4,L5\r\nC                 REAL/IMAG  L3=125         , MAG/PHASE  L3=126\r\nC                     (L1 IS SET FOR ELEM.ID, ALWAYS = 108)\r\nC\r\n      DATA C1  /  846,108,136,125,  0,195   , 856,108,136,126,  0,195\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          , 846,108,144,125,  0,195   , 856,108,144,126,  0,195\r\n     4          , 846,108,137,125,  0,196   , 856,108,137,126,  0,196\r\n     5          , 846,108,145,125,  0,196   , 856,108,145,126,  0,196\r\n     6          , 964,108,139,125,  0,197   , 990,108,139,126,  0,197\r\n     7          , 964,108,138,125,  0,197   , 990,108,138,126,  0,197\r\n     8          , 964,108,143,125,  0,197   , 990,108,143,126,  0,197\r\n     9          ,1016,108,142,125,  0,198   ,1029,108,142,126,  0,198\r\n     O          , 846,108,131,125,  0,195   , 856,108,131,126,  0,195\r\n     1          , 897,108,128,125,  0,199   , 908,108,128,126,  0,199\r\n     2          , 897,108,129,125,  0,199   , 908,108,129,126,  0,199\r\n     3          , 897,108,130,125,  0,199   , 908,108,130,126,  0,199\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          , 964,108,133,125,  0,197   , 990,108,133,126,  0,197\r\n     6          ,1016,108,132,125,  0,198   ,1029,108,132,126,  0,198\r\n     7          , 964,108,140,125,  0,197   , 990,108,140,126,  0,197\r\n     8          , 964,108,135,125,  0,197   , 990,108,135,126,  0,197\r\n     9          , 964,108,134,125,  0,197   , 990,108,134,126,  0,197\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0  /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,1042,108,127,125,  0,200   ,1074,108,127,126,  0,200\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,1179,108,222,125,  0,220   ,1214,108,222,126,  0,220\r\n     O          ,1179,108,224,125,  0,220   ,1214,108,224,126,  0,220  /\r\n      DATA C41 / 1179,108,226,125,  0,220   ,1214,108,226,126,  0,220\r\n     2          ,1179,108,228,125,  0,220   ,1214,108,228,126,  0,220\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,1435,108,236,125,  0,252   ,1448,108,236,126,  0,252\r\n     8          ,1298,108,237,125,  0,243   ,1321,108,237,126,  0,243\r\n     9          ,3042,108,238,125,  0,453   ,3069,108,238,126,  0,453\r\n     O          , 865,108,239,125,  0,249   , 881,108,239,126,  0,249\r\n     1          ,1353,108,240,125,  0,246   ,1370,108,240,126,  0,246\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1298,108,266,125,  0,278   ,1321,108,266,126,  0,278\r\n     4          ,1298,108,267,125,  0,278   ,1321,108,267,126,  0,278\r\n     5          ,1298,108,268,125,  0,278   ,1321,108,268,126,  0,278\r\n     6          ,1298,108,269,125,  0,278   ,1321,108,269,126,  0,278\r\n     7          ,1298,108,270,125,  0,278   ,1321,108,270,126,  0,278\r\n     8          ,1298,108,288,125,  0,278   ,1321,108,288,126,  0,278\r\n     9          ,1298,108,289,125,  0,278   ,1321,108,289,126,  0,278\r\n     O          ,1298,108,290,125,  0,278   ,1321,108,290,126,  0,278  /\r\n      DATA C61 / 1298,108,291,125,  0,278   ,1321,108,291,126,  0,278\r\n     2          ,1016,108,305,125,  0,198   ,1029,108,305,126,  0,198\r\n     3          ,1016,108,307,125,  0,326   ,1029,108,307,126,  0,326\r\n     4          , 964,108,448,125,  0,450   , 990,108,448,126,  0,450\r\n     5          ,4250,108,331,125,  0,462   ,4250,108,331,126,  0,462\r\n     6          ,4250,108,331,125,  0,462   ,4250,108,331,126,  0,462\r\n     7          ,4268,108,331,125,  0,462   ,4268,108,331,126,  0,462\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,2857,108,393,125,  0,399   ,2857,108,393,126,  0,399\r\n     1          ,2956,108,395,125,  0,399   ,2956,108,395,126,  0,399\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,3447,108,412,125,  0,414   ,3447,108,412,126,  0,414 /\r\n      DATA C81 / 3799,108,426,125,  0,200   ,3766,108,426,126,  0,200\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          , 964,108,466,125,  0,450   , 990,108,466,126,  0,450\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of5pbd.f",
    "content": "      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      COMMON   /OFPB5/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\n      DATA C 1 /   43,  0, 36, -1,  7,  8   ,  11,  0, 37, -1,  9, 10\r\n     3          ,  43,  0, 54, -1,  7,  8   ,1521,  0, 38, -1,  0,312\r\n     5          ,  43,  0, 39, -1, 13, 12   ,  65,  0, 51, -1, 14, 15\r\n     7          ,  65,  0, 40, -1, 14, 15   ,  65,  0, 53, -1, 14, 15\r\n     9          ,   0,  0,  0, -1,  0,  0   ,  43,  0, 46, -1,  7,  8\r\n     1          ,  54,  0, 41, -1, 16, 17   ,  54,  0, 42, -1, 16, 17\r\n     3          ,  54,  0, 43, -1, 16, 17   ,  54,  0, 44, -1, 16, 17\r\n     5          ,  65,  0, 48, -1, 14, 15   ,   0,  0,  0, -1,  0,  0\r\n     7          ,  65,  0, 52, -1, 14, 15   ,  65,  0, 50, -1, 14, 15\r\n     9          ,  65,  0, 49, -1, 14, 15   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,  11,  0, 47, -1,  9, 10\r\n     5          ,1127,  0,205, -1,  0,207   , 236,  0, 83, -1, 84, 85\r\n     7          , 255,  0, 86, -1, 84, 85   , 279,  0, 87, -1, 88, 89\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1242,  0,259, -1,  0,265   ,1242,  0,260, -1,  0,265\r\n     5          ,1242,  0,261, -1,  0,265   ,1242,  0,262, -1,  0,265\r\n     7          ,1242,  0,263, -1,  0,265   ,1242,  0,284, -1,  0,265\r\n     9          ,1242,  0,285, -1,  0,265   ,1242,  0,286, -1,  0,265 /\r\n      DATA C61 / 1242,  0,287, -1,  0,265   ,   0,  0,  0, -1,  0,  0\r\n     3          ,1521,  0,310, -1,  0,312   ,4061,  0,440,441,442,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,1961,  0,339, -1,340,341\r\n     9          ,2028,  0,342, -1,340,341   ,2181,  0,349, -1,  0,350\r\n     1          ,2214,  0,352, -1,  0,350   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,2371,  0,357, -1,359,360\r\n     5          ,2371,  0,342, -1,359,360   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      DATA C81 / 3581,  0,416,417,418,419   ,3939,  0,432, -1,  0,434\r\n     3          ,4061,  0,463,441,442,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,1939,  0,333, -1,334,335 /\r\n      END\r\n"
  },
  {
    "path": "bd/of6pbd.f",
    "content": "      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      COMMON     /OFPB6/ C1(240),C21(240),C41(240),C61(240),C81(240)\r\n      DATA  C1   / 473,104,156,125,  0,167   , 483,104,156,126,  0,167\r\n     2           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3           , 473,104,162,125,  0,167   , 483,104,162,126,  0,167\r\n     4           ,1564,104,157,125,  0,312   ,1643,104,157,126,  0,312\r\n     5           , 473,104,163,125,174,173   , 483,104,163,126,174,173\r\n     6           , 668,104,159,125, 14, 15   , 683,104,159,126, 14, 15\r\n     7           , 668,104,158,125, 14, 15   , 683,104,158,126, 14, 15\r\n     8           , 668,104,161,125, 14, 15   , 683,104,161,126, 14, 15\r\n     9           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O           , 473,104,152,125,  0,167   , 483,104,152,126,  0,167\r\n     1           , 493,104,148,125,  0,170   , 504,104,148,126,  0,170\r\n     2           , 493,104,149,125,  0,170   , 504,104,149,126,  0,170\r\n     3           , 493,104,150,125,  0,170   , 504,104,150,126,  0,170\r\n     4           , 493,104,151,125,  0,170   , 504,104,151,126,  0,170\r\n     5           , 668,104,153,125, 14, 15   , 683,104,153,126, 14, 15\r\n     6           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7           , 668,104,160,125, 14, 15   , 683,104,160,126, 14, 15\r\n     8           , 668,104,155,125, 14, 15   , 683,104,155,126, 14, 15\r\n     9           , 668,104,154,125, 14, 15   , 683,104,154,126, 14, 15\r\n     O           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA  C21  /   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4           , 626,104,146,125,  9, 10   , 647,104,146,126,  9, 10\r\n     5           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA  C41  /   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3           ,1254,104,271,125,  0,265   ,1276,104,271,126,  0,265\r\n     4           ,1254,104,272,125,  0,265   ,1276,104,272,126,  0,265\r\n     5           ,1254,104,273,125,  0,265   ,1276,104,273,126,  0,265\r\n     6           ,1254,104,274,125,  0,265   ,1276,104,274,126,  0,265\r\n     7           ,1254,104,275,125,  0,265   ,1276,104,275,126,  0,265\r\n     8           ,1254,104,292,125,  0,265   ,1276,104,292,126,  0,265\r\n     9           ,1254,104,293,125,  0,265   ,1276,104,293,126,  0,265\r\n     O           ,1254,104,294,125,  0,265   ,1276,104,294,126,  0,265 /\r\n      DATA  C61 / 1254,104,295,125,  0,265   ,1276,104,295,126,  0,265\r\n     2           ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3           ,1564,104,311,126,  0,312   ,1643,104,311,126,  0,312\r\n     4           ,4229,104,460,125,441,442   ,4206,104,460,126,441,442\r\n     5           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O           ,2587,104,392,125,  0,350   ,2622,104,392,126,  0,350\r\n     1           ,2664,104,394,125,  0,350   ,2710,104,394,126,  0,350\r\n     2           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3           , 448,104,455,125,  0,169   , 461,104,455,126,  0,169\r\nC    *           , 515,104,457,125,  0,168   , 540,104,457,126,  0,168\r\nC    *           , 448,104,457,125,  0,169   , 461,104,457,126,  0,169\r\n     4           , 668,104,457,125, 14, 15   , 683,104,457,126, 14, 15\r\n     5           ,   0,104,459,125,  0,  0   ,   0,104,459,126,  0,  0\r\n     6           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      DATA  C81 / 3869,104,424,126,  0,427   ,3832,104,424,125,  0,427\r\n     2           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3           ,4229,104,464,125,441,442   ,4206,104,464,126,441,442\r\n     4           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O           ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of7pbd.f",
    "content": "      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      COMMON   /OFPB7/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\n      DATA C1  /  698,108, 36, -1,  0,176   , 707,108, 37, -1,  0,177\r\n     3          , 698,108, 54, -1,  0,176   ,1542,108, 38, -1,  0,314\r\n     5          , 698,108, 39, -1,  0,179   , 719,108, 51, -1,  0,180\r\n     7          , 719,108, 40, -1,  0,180   , 719,108, 53, -1,  0,180\r\n     9          ,   0,  0,  0, -1,  0,  0   , 698,108, 46, -1,  0,176\r\n     1          , 728,108, 41, -1,  0,181   , 728,108, 42, -1,  0,181\r\n     3          , 728,108, 43, -1,  0,181   , 728,108, 44, -1,  0,181\r\n     5          , 719,108, 48, -1,  0,180   ,   0,  0,  0, -1,  0,  0\r\n     7          , 719,108, 52, -1,  0,180   , 719,108, 50, -1,  0,180\r\n     9          , 719,108, 49, -1,  0,180   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   , 707,108, 47, -1,  0,177\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1493,108,259, -1,  0,277   ,1493,108,260, -1,  0,277\r\n     5          ,1493,108,261, -1,  0,277   ,1493,108,262, -1,  0,277\r\n     7          ,1493,108,263, -1,  0,277   ,1493,108,284, -1,  0,277\r\n     9          ,1493,108,285, -1,  0,277   ,1493,108,286, -1,  0,277 /\r\n      DATA C61 / 1493,108,287, -1,  0,277   ,   0,  0,  0, -1,  0,  0\r\n     3          ,1542,108,310, -1,  0,314   ,4105,108,440,445,446,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,2983,108,349,  0,  0,400\r\n     1          ,3001,108,352,  0,  0,400   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      DATA C81 / 3655,108,416, -1,421,422   ,3945,108,432, -1,  0,433\r\n     3          ,4105,108,463,445,446,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of7sbd.f",
    "content": "      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,C41,C61,C81\r\n      COMMON   /OFPB7S/ C1(120),C21(120),C41(120),C61(120),C81(120)\r\nC\r\n      DATA C1  / 1792,108, 36, -1,  0,322   ,1231,108, 37, -1,  0,320\r\n     3          ,1792,108, 54, -1,  0,322   ,1752,108, 38, -1,  0,319\r\n     5          ,1792,108, 39, -1,  0,366   ,2441,108, 51, -1,  0,367\r\n     7          ,2441,108, 40, -1,  0,367   ,2441,108, 53, -1,  0,367\r\n     9          ,   0,  0,  0, -1,  0,  0   ,1792,108, 46, -1,  0,322\r\n     1          ,2451,108, 41, -1,  0,368   ,2451,108, 42, -1,  0,368\r\n     3          ,2451,108, 43, -1,  0,368   ,2451,108, 44, -1,  0,368\r\n     5          ,2441,108, 48, -1,  0,367   ,   0,  0,  0, -1,  0,  0\r\n     7          ,2441,108, 52, -1,  0,367   ,2441,108, 50, -1,  0,367\r\n     9          ,2441,108, 49, -1,  0,367   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,1231,108, 47, -1,  0,320\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0    \r\nCWKBR 7/94 SPR94001\r\nC    7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0         \r\n     7          , 255,  0, 86, -1,473,474   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1493,108,259, -1,  0,277   ,1493,108,260, -1,  0,277\r\n     5          ,1493,108,261, -1,  0,277   ,1493,108,262, -1,  0,277\r\n     7          ,1493,108,263, -1,  0,277   ,1493,108,284, -1,  0,277\r\n     9          ,1493,108,285, -1,  0,277   ,1493,108,286, -1,  0,277 /\r\n      DATA C61 / 1493,108,287, -1,  0,277   ,   0,  0,  0, -1,  0,  0\r\n     3          ,1752,108,310, -1,  0,319   ,4083,108,440,447,446, -1\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,2181,108,349,  0,  0,396\r\n     1          ,2214,108,352,  0,  0,396   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      DATA C81 / 3674,108,416, -1,421,423   ,   0,  0,  0,  0,  0,  0\r\n     3          ,4083,108,463,447,446, -1   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of8pbd.f",
    "content": "      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,C61,C81\r\n      COMMON   /OFPB8/ C1(240),C21(240),C41(240),C61(240),C81(240)\r\n      DATA C1  /  846,108,156,125,  0,190   , 856,108,156,126,  0,190\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          , 846,108,162,125,  0,190   , 856,108,162,126,  0,190\r\n     4          ,1603,108,157,125,  0,314   ,1681,108,157,126,  0,314\r\n     5          , 846,108,163,125,  0,192   , 856,108,163,126,  0,192\r\n     6          , 865,108,159,125,  0,193   , 881,108,159,126,  0,193\r\n     7          , 865,108,158,125,  0,193   , 881,108,158,126,  0,193\r\n     8          , 865,108,161,125,  0,193   , 881,108,161,126,  0,193\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          , 846,108,152,125,  0,190   , 856,108,152,126,  0,190\r\n     1          , 897,108,148,125,  0,194   , 908,108,148,126,  0,194\r\n     2          , 897,108,149,125,  0,194   , 908,108,149,126,  0,194\r\n     3          , 897,108,150,125,  0,194   , 908,108,150,126,  0,194\r\n     4          , 897,108,151,125,  0,194   , 908,108,151,126,  0,194\r\n     5          , 865,108,153,125,  0,193   , 881,108,153,126,  0,193\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          , 865,108,160,125,  0,193   , 881,108,160,126,  0,193\r\n     8          , 865,108,155,125,  0,193   , 881,108,155,126,  0,193\r\n     9          , 865,108,154,125,  0,193   , 881,108,154,126,  0,193\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C21 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          , 919,108,146,125,  0,201   , 941,108,146,126,  0,201\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0 /\r\n      DATA C41 /    0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     4          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     5          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     6          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     7          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     8          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     9          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     O          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,1298,108,271,125,  0,279   ,1321,108,271,126,  0,279\r\n     4          ,1298,108,272,125,  0,279   ,1321,108,272,126,  0,279\r\n     5          ,1298,108,273,125,  0,279   ,1321,108,273,126,  0,279\r\n     6          ,1298,108,274,125,  0,279   ,1321,108,274,126,  0,279\r\n     7          ,1298,108,275,125,  0,279   ,1321,108,275,126,  0,279\r\n     8          ,1298,108,292,125,  0,279   ,1321,108,292,126,  0,279\r\n     9          ,1298,108,293,125,  0,279   ,1321,108,293,126,  0,279\r\n     O          ,1298,108,294,125,  0,279   ,1321,108,294,126,  0,279 /\r\n      DATA C61 / 1298,108,295,125,  0,279   ,1321,108,295,126,  0,279\r\n     2          ,   0,  0,  0, -1,  0,  0   ,   0,  0,  0, -1,  0,  0\r\n     3          ,1603,108,311,125,  0,313   ,1681,108,311,126,  0,313\r\n     4          ,3120,108,460,125,  0,461   ,3097,108,460,126,  0,461\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,2787,108,392,125,  0,398   ,2822,108,392,126,  0,398\r\n     1          ,2864,108,394,125,  0,398   ,2910,108,394,126,  0,398\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      DATA C81 / 3729,108,424,126,  0,425   ,3692,108,424,125,  0,425\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,3120,108,464,125,  0,461   ,3097,108,464,126,  0,461\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     1          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     2          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     3          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     4          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     5          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     6          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     7          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     8          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     9          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0\r\n     O          ,   0,  0,  0,  0,  0,  0   ,   0,  0,  0,  0,  0,  0 /\r\n      END\r\n"
  },
  {
    "path": "bd/of9pbd.f",
    "content": "      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, C41\r\n      COMMON /OFPB9/ C1(240), C41(240)\r\nC DISPLACEMENT VECTOR REAL SORT 1\r\n      DATA C1  /    1,  0,  1, -1,  0,  2   ,   0,  0,  0, -1,  0,  0\r\nC DISPLACEMENT VECTOR REAL SORT 2\r\n     A           ,311,107,  1, -1,  0,315   , 354,107,  1, -1,  0,112\r\nC DISPLACEMENT VECTOR COMPLEX SORT 1\r\n     B           ,374,104,119,125,  0,  2   , 411,104,119,126,  0,  2\r\nC DISPLACEMENT VECTOR COMPLEX SORT 2\r\n     C           ,392,107,119,125,  0,111   , 429,107,119,126,  0,111\r\nC LOAD VECTOR REAL SORT 1\r\n     D           ,  1,  0, 33, -1,  0,  2   ,   0,  0,  0, -1,  0,  0\r\nC LOAD VECTOR REAL SORT 2\r\n     E           ,311,107, 33, -1,  0,315   , 354,107, 33, -1,  0,112\r\nC LOAD VECTOR COMPLEX SORT 1\r\n     F           ,374,104,123,125,  0,  2   , 411,104,123,126,  0,  2\r\nC LOAD VECTOR COMPLEX SORT 2\r\n     G           ,392,107,123,125,  0,111   , 429,107,123,126,  0,111\r\nC SPCF VECTOR REAL SORT 1\r\n     H           ,  1,  0, 45, -1,  0,  2   ,   0,  0,  0, -1,  0,  0\r\nC SPCF VECTOR REAL SORT 2\r\n     I           ,311,107, 45, -1,  0,315   , 354,107, 45, -1,  0,112\r\nC SPCF VECTOR COMPLEX SORT 1\r\n     J           ,374,104,122,125,  0,  2   , 411,104,122,126,  0,  2\r\nC SPCF VECTOR COMPLEX SORT 2\r\n     K           ,392,107,122,125,  0,111   , 429,107,122,126,  0,111\r\nC VELOCITY VECTOR REAL SORT 1     ACCELERATION VECTOR REAL SORT 1\r\n     L           ,  1,106,113, -1,  0,  2   ,   1,106,114, -1,  0,  2\r\nC VELOCITY REAL SORT 2(LEFT)     ACCELERATION REAL SORT 2 (RIGHT)\r\n     M           ,354,107,113, -1,  0,112   , 354,107,114, -1,  0,112\r\nC NON-LINEAR FORCE REAL SORT 1     NON-LINEAR FORCE REAL SORT 2\r\n     N           ,  1,106,115, -1,  0,  2   , 354,107,115, -1,  0,112\r\nC VELOCITY COMPLEX SORT 1\r\n     O           ,374,104,120,125,  0,  2   , 411,104,120,126,  0,  2\r\nC VELOCITY COMPLEX SORT 2\r\n     P           ,392,107,120,125,  0,111   , 429,107,120,126,  0,111\r\nC ACCELERATION COMPLEX SORT 1\r\n     Q           ,374,104,121,125,  0,  2   , 411,104,121,126,  0,  2\r\nC ACCELERATION COMPLEX SORT 2\r\n     R           ,392,107,121,125,  0,111   , 429,107,121,126,  0,111\r\nC EIGENVALUE SUMMARY REAL SORT 1       EIGENVALUE SUMMARY COMPLEX SORT 1\r\n     S           ,298,  0,  3, -1,  4,  5   , 365,  0,116, -1,117,118 /\r\nC\r\nC EIGENVECTOR COMPLEX SORT 1\r\n      DATA C41 /  374,  0,124,125,  0,  2   , 411,  0,124,126,  0,  2\r\nC VDR-DISPLACEMENT REAL SORT 1     VDR-DISPLACEMENT REAL SORT 2\r\n     A           ,  1,  0,212, -1,  0,  2   , 354,107,212, -1,  0,112\r\nC VDR-DISPLACEMENT VECTOR COMPLEX SORT 1\r\n     B           ,374,104,208,125,  0,  2   , 411,104,208,126,  0,  2\r\nC VDR-DISPLACEMENT VECTOR COMPLEX SORT 2\r\n     C           ,392,107,208,125,  0,111   , 429,107,208,126,  0,111\r\nC VDR-VELOCITY REAL SORT 1     VDR-VELOCITY REAL SORT 2\r\n     D           ,  1,  0,211, -1,  0,  2   , 354,107,211, -1,  0,112\r\nC VDR-VELOCITY VECTOR COMPLEX SORT 1\r\n     E           ,374,104,209,125,  0,  2   , 411,104,209,126,  0,  2\r\nC VDR-VELOCITY VECTOR COMPLEX SORT 2\r\n     F           ,392,107,209,125,  0,111   , 429,107,209,126,  0,111\r\nC VDR-ACCELERATION REAL SORT 1     VDR-ACCELERATION REAL SORT 2\r\n     G           ,  1,  0,213, -1,  0,  2   , 354,107,213, -1,  0,112\r\nC VDR-ACCELERATION VECTOR COMPLEX SORT 1\r\n     H           ,374,104,210,125,  0,  2   , 411,104,210,126,  0,  2\r\nC VDR-ACCELERATION VECTOR COMPLEX SORT 2\r\n     I           ,392,107,210,125,  0,111   , 429,107,210,126,  0,111\r\nC VDR-EIGENVECTOR COMPLEX SORT 1\r\n     J           ,374,104,214,125,  0,  2   , 411,104,214,126,  0,  2\r\nC VDR-EIGENVECTOR COMPLEX SORT 2\r\n     K           ,392,107,214,125,  0,111   , 429,107,214,126,  0,111\r\nC EIGENVALUE ANALYSIS SUMMARY  (4 TYPES)      REAL SORT 1\r\n     L           ,  1,  0,  0, -1, 92, 93   ,   1,  0,  0, -1, 90, 91\r\n     M           ,336,  0, 92, -1, 95, 94   ,   1,  0,  0, -1,215,216\r\nC EIGENVALUE ANYLYSIS SUMMARY COMPLEX SORT 1  (4 TYPES)\r\n     N           ,  1,  0,  0, -1, 96, 98   ,   1,  0,  0, -1,100, 99\r\n     O           ,345,  0, 96, -1, 95, 97   ,   1,  0,  0, -1,100, 99\r\nC EIGENVECTOR REAL SORT 1     GPST REAL SORT 1\r\n     P           ,  1,  0,  6, -1,  0,  2   , 321,  0, 30, -1, 31, 32\r\nC ELEMENT STRAIN ENERGY\r\n     Q          ,2258,  0,353, -1,  0,354   ,   0,  0,  0,  0,  0,  0\r\nC GRID POINT FORCE BALANCE\r\n     R          ,2266,  0,355, -1,  0,356   ,   0,  0,  0,  0,  0,  0\r\nC MPCFORCE VECTOR REAL SORT 1\r\n     S           ,  1,  0,375, -1,  0,  2   ,   0,  0,  0, -1,  0,  0  /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/ofp1bd.f",
    "content": "      BLOCK DATA OFP1BD\r\nCOFP1BD\r\n      INTEGER D1   ,D201 ,D401 ,D601 ,D801 ,D1001,D1201,D1401,D1601,\r\n     1        D1801,D2001,D2201,D2401,D2601,D2801,D3001,D3201,D3401,\r\n     2        D3601,D3801,D4001,D4201\r\n      COMMON /OFPBD1/       D1(200), D201(200), D401(200), D601(200),\r\n     1         D801(200),D1001(200),D1201(200),D1401(200),D1601(200),\r\n     2        D1801(200),D2001(200),D2201(200),D2401(200),D2601(200),\r\n     3        D2801(200),D3001(200),D3201(200),D3401(200),D3601(200),\r\n     4        D3801(200),D4001(200),D4201( 90)\r\nC*****\r\nC     DATA RECORD DEFINITION DATA IS IN THE D-ARRAY...\r\nC*****\r\nC     WHEN ADDING STRINGS REMEMBER THAT\r\nC     FIRST WORD OF EACH STRING = NUMBER OF LINES OF OUTPUT THE FORMAT\r\nC                                 STRING WILL PRODUCE\r\nC*****\r\nC     POINTERS TO THE OFP5BD FORMAT BLOCKS\r\nC     NEGATIVE POINTERS REFER TO ESINGL ARRAYS FOR SPACING OR BCD WORDS\r\nC     POSITIVE POINTERS REFER TO THE E ARRAYS FOR DATA PRINT FORMAT\r\nC     SUMMARY OF FORMAT BLOCKS IN OFP5BD -\r\nC     FORMAT INDEX     FORMAT INDEX     FORMAT INDEX     FORMAT INDEX\r\nC     ------ -----     ------ -----     ------ -----     ------ -----\r\nC     E-ARRAY\r\nC      E15.6    1       F20.4   26         I10   51     '0',I20   76\r\nC      E16.6    2       F16.4   27       I7,1X   52      I10,5X   77\r\nC      E17.6    3       F22.4   28       3X,A4   53               78\r\nC      E18.6    4       E27.6   29     '0',I13   54       I8,2X   79\r\nC      E19.6    5       F12.5   30      1X,I20   55        F8.3   80\r\nC      E20.6    6       E13.5   31    5X,A1,3X   56     '0',I27   81\r\nC      E21.6    7       F13.3   32      1X,I22   57      '0',I5   82\r\nC      E30.6    8       F18.4   33         I12   58      '0',I3   83\r\nC      E26.6    9       F26.4   34      1X,I19   59          I4   84\r\nC      E24.6   10       E14.5   35         I16   60       E11.4   85\r\nC      F11.4   11       F14.3   36          I8   61          A4   86\r\nC      F14.4   12        F5.2   37          I9   62      9E11.3   87\r\nC      E28.6   13       E13.6   38         I11   63       F22.3   88\r\nC      E37.6   14               39         I20   64      /E11.3   89\r\nC      E22.6   15        E9.1   40         I19   65       F19.4   90\r\nC      E14.6   16    6X,A1,3X   41      1X,I23   66        F8.2   91\r\nC      F15.4   17         I15   42         I23   67       E12.5   92\r\nC       F9.4   18       I9,1X   43         I28   68     '0',I12   93\r\nC      F15.3   19      '0',I8   44    /1H ,I18   69       4X,I8   94\r\nC      E23.6   20      1X,I13   45     '0',I15   70               95\r\nC      E35.6   21       1X,I8   46     '0',I14   71               96\r\nC      E25.5   22      '0',I7   47       F22.4   72               97\r\nC      E50.6   23       6X,I8   48       F16.4   73               98\r\nC      F46.4   24      1X,I15   49       F10.4   74               99\r\nC              25      1X,I12   50     '0',I19   75              100\r\nC\r\nC     E-SINGL ARRAY\r\nC          /   -1        /14X  -17        /28X  -33        'ZX'  -49\r\nC        15X   -2         11X  -18        /15X  -34         'C'  -50\r\nC        10X   -3        /24X  -19        /19X  -35        'LZ'  -51\r\nC         5X   -4         '0'  -20        /21X  -36        'CP'  -52\r\nC         1X   -5        ' /'  -21        /11X  -37        'MP'  -53\r\nC       /10X   -6        'EN'  -22        /17X  -38        'C '  -54\r\nC        16X   -7        'DA'  -23          2X  -39          3X  -55\r\nC       '1 '   -8        'DB'  -24         'X'  -40        /30X  -56\r\nC       '2 '   -9        /'0'  -25        'XY'  -41          9X  -57\r\nC       '3 '  -10         23X  -26         'A'  -42        /23X  -58\r\nC       '4 '  -11        /26X  -27        'LX'  -43          6X  -59\r\nC       '5 '  -12         /9X  -28         'Y'  -44         39X  -60\r\nC         7X  -13        /12X  -29        'YZ'  -45         24X  -61\r\nC       /16X  -14        /' '  -30         'B'  -46              -62\r\nC       /13X  -15        /20X  -31        'LY'  -47              -63\r\nC         4X  -16        /32X  -32         'Z'  -48              -64\r\nC*****\r\nC\r\n      DATA D1/  1,   45,   41,    1,    1,    1,    1,    1,    1,    0\r\n     1     ,    1,   50,    3,   16,    1,   16,    1,   16,    1,    1\r\n     2     ,    0,    0,    3,   47,    3,    1,    1,    1,    1,    1\r\n     3     ,    1,   40,   -6,    1,    1,    1,    1,   -2,    1,    1\r\n     4     ,   40,    0,  201,   45,   -4,    1,    1,  -18,   45,   -4\r\n     5     ,    1,    1,    0,  401,   50,    4,   42,    4,   42,    4\r\n     6     ,   42,    4,    0,    0,    1,   49,   15,   15,   15,   15\r\n     7     ,   15,    0,    0,    0,  201,   48,    2,   -5,   40,    2\r\n     8     ,   -5,   40,  -16,   46,    2,   -5,   40,    2,   -5,   40\r\n     9     ,    0,    0,    3,   44,    2,    1,    1,    3,    3,    1\r\n     O     ,   -4,   40,   -1,   -3,    1,    1,    1,   -7,    4,    1\r\n     1     ,   -4,   40,    0,    0,  201,   49,   -4,    1,    1,   -5\r\n     2     ,   40,   42,   -4,    1,    1,   -5,   40,    0,    0,    3\r\n     3     ,   44,    2,    4,    1,    1,   11,    2,    2,    1,  -28\r\n     4     ,    2,    4,    1,    1,   11,    2,    2,    1,    0,    0\r\n     5     ,    0,    1,   46,    6,    1,    1,   12,    5,    1,    1\r\n     6     ,    0,    0,    1,   46,    7,    8,    8,    8,    0,    0\r\n     7     ,    6,   44,  -13,   -8,    9,    9,    9,    9,  -14,   -9\r\n     8     ,    9,    9,    9,    9,  -14,  -10,    9,    9,    9,    9\r\n     9     ,  -14,  -11,    9,    9,    9,    9,  -14,  -12,    9,    9/\r\n      DATA D201/9,    9,    0,    0,    0,    0,    0,    0,    0,    0\r\n     1     ,    4,   44,  -16,   -8,    5,   10,    6,   10,    6,  -15\r\n     2     ,   -9,    5,   10,    6,   10,    6,  -15,  -10,    5,   10\r\n     3     ,    6,   10,    6,    0,    0,    4,   44,   -4,   -8,   13\r\n     4     ,   14,   14,  -17,   -9,   13,   14,   14,  -17,  -10,   13\r\n     5     ,   14,   14,    0,    0,    5,   44,   -4,   -8,   13,   14\r\n     6     ,   14,  -17,   -9,   13,   14,   14,  -17,  -10,   13,   14\r\n     7     ,   14,  -17,  -11,   13,   14,   14,    0,    0,    3,   44\r\n     8     ,   -4,   -8,    5,    4,    4,    4,    4,    4,  -17,   -9\r\n     9     ,    5,    4,    4,    4,    4,    4,    0,    1,   46,   51\r\n     O     ,    6,    6,    6,    6,    6,    0,    0,    0,    0,    0\r\n     1     ,    1,   77,   56,    1,    1,    1,    1,    1,    1,    0\r\n     2     ,    1,   45,   53,   61,   63,   62,   62,   65,   62,   62\r\n     3     ,   65,   62,   62,    0,    0,    1,   55,    5,    5,    5\r\n     4     ,    5,   42,    0,    0,    1,   55,   15,    2,    9,   17\r\n     5     ,   63,    0,    0,    1,    1,   56,    1,    1,    1,    1\r\n     6     ,    1,    1,    0,    0,    1,   57,   58,   15,    3,   15\r\n     7     ,   15,    0,    0,    3,   54,   41,    1,    1,    1,    1\r\n     8     ,    1,    1,  -19,    1,    1,    1,    1,    1,    1,    0\r\n     9     ,    0,    3,  -20,   16,   56,    1,    1,    1,    1,    1/\r\n      DATA D401/1,  -19,    1,    1,    1,    1,    1,    1,    0,    0\r\n     1     ,    3,   54,   41,    1,    1,    1,    1,    1,    1,  -31\r\n     2     ,   17,   17,   17,   17,   17,   17,    0,    0,    3,  -20\r\n     3     ,   16,   56,    1,    1,    1,    1,    1,    1,  -31,   17\r\n     4     ,   17,   17,   17,   17,   17,    0,    0,    1,   59,    4\r\n     5     ,  -21,   16,    4,  -21,   16,    4,  -21,   16,    0,    0\r\n     6     ,    1,   59,    4,  -21,   18,   20,  -21,   18,   20,  -21\r\n     7     ,   18,    0,    1,   66,    8,  -21,   16,    8,  -21,   16\r\n     8     ,    0,    0,    1,   66,    8,  -21,   18,   21,  -21,   18\r\n     9     ,    0,    0,  201,   57,    5,  -21,   16,   67,    5,  -21\r\n     O     ,   16,    0,    0,  201,   57,    5,  -21,   18,   68,    5\r\n     1     ,  -21,   18,    0,    0,    3,   44,    2,    4,  -21,   16\r\n     2     ,    4,  -21,   16,    4,  -21,   16,   -1,   22,    4,  -21\r\n     3     ,   16,    4,  -21,   16,    4,  -21,   16,    0,    0,    3\r\n     4     ,   44,    2,    4,  -21,   18,   20,  -21,   18,   20,  -21\r\n     5     ,   18,   -1,   22,    4,  -21,   18,   20,  -21,   18,   20\r\n     6     ,  -21,   18,    0,    0,    6,   69,   -4,  -22,  -23,   15\r\n     7     ,    1,    1,    1,    6,   -1,   23,    1,    1,    1,    6\r\n     8     ,  -25,  -26,  -22,  -24,   15,    1,    1,    1,   -1,   23\r\n     9     ,    1,    1,    1,    0,    6,   69,   -4,  -22,  -23,   15/\r\n      DATA D601/1,    1,    1,    6,   -1,   24,   17,   17,   17,   26\r\n     1     ,  -25,  -26,  -22,  -24,   15,    1,    1,    1,   -1,   24\r\n     2     ,   17,   17,   17,    0,    0,    3,   71,    1,   16,    1\r\n     3     ,   16,    1,   16,    1,    1,  -17,    2,   16,    1,   16\r\n     4     ,    1,   16,    1,    1,    0,    0,    3,   71,    1,   16\r\n     5     ,    1,   16,    1,   16,    1,    1,  -17,   -5,   11,   12\r\n     6     ,   17,   12,   17,   12,   17,   17,    0,    3,   70,   15\r\n     7     ,   15,   15,   15,   15,  -14,   15,   15,   15,   15,   15\r\n     8     ,    0,    0,    3,   70,   15,   15,   15,   15,   15,  -29\r\n     9     ,   28,   28,   28,   28,   28,    0,    0,  201,    1,    5\r\n     O     ,    1,    9,    5,    1,    0,    0,    1,    1,    1,   16\r\n     1     ,    1,   16,    1,   16,    1,    1,    0,    0,    1,    2\r\n     2     ,   15,   15,   15,   15,   15,    0,    0,  401,    2,    1\r\n     3     ,    4,    1,    4,    1,    4,    1,    0,    0,  201,    1\r\n     4     ,    1,   -5,   40,    2,   -5,   40,   16,    1,   -5,   40\r\n     5     ,    2,   -5,   40,    0,    0,    3,  -20,   16,    2,    1\r\n     6     ,    1,    3,    4,    1,   -4,   40,  -17,    3,    1,    1\r\n     7     ,    3,    4,    1,   -4,   40,    0,    0,  201,    2,    6\r\n     8     ,    1,   -5,   40,    1,    6,    1,   -5,   40,    0,    0\r\n     9     ,    3,  -20,   16,   16,   16,    1,    1,   11,    2,    2/\r\n      DATA D801/1,  -17,    1,   16,    1,    1,   11,    2,    2,    1\r\n     1     ,    0,    0,    1,    1,   16,   16,    1,   11,    6,    1\r\n     2     ,    1,    0,    0,    0,    3,   16,    4,    1,    1,    1\r\n     3     ,    1,    2,    1,   40,  -14,    2,    1,    1,    1,   -2\r\n     4     ,    2,    1,   40,  -30,    0,    1,   10,    8,  -21,   16\r\n     5     ,    8,  -21,   16,    0,    0,    1,   10,    8,  -21,   18\r\n     6     ,   21,  -21,   18,    0,    3,  -20,    1,   15,   15,   15\r\n     7     ,   15,   15,  -14,   15,   15,   15,   15,   15,    0,    0\r\n     8     ,    3,  -20,    1,   15,   15,   15,   15,   15,  -29,   28\r\n     9     ,   28,   28,   28,   28,    0,    0,  201,   20,    5,  -21\r\n     O     ,   16,   20,    5,  -21,   16,    0,    0,  201,   20,    5\r\n     1     ,  -21,   18,   13,    5,  -21,   18,    0,    0,    3,  -20\r\n     2     ,   16,    1,   16,    1,   16,    1,   16,    1,    1,  -17\r\n     3     ,    2,   16,    1,   16,    1,   16,    1,    1,    0,    0\r\n     4     ,    3,  -20,   16,    1,   16,    1,   16,    1,   16,    1\r\n     5     ,    1,  -17,   -5,   11,   12,   17,   12,   17,   12,   17\r\n     6     ,   17,    0,    0,    3,  -20,   16,   16,    4,  -21,   16\r\n     7     ,    4,  -21,   16,    4,  -21,   16,   -1,  -16,   22,    4\r\n     8     ,  -21,   16,    4,  -21,   16,    4,  -21,   16,    0,    3\r\n     9     ,  -20,   16,   16,    4,  -21,   18,   20,  -21,   18,   20/\r\n      DATA D1001/-21,18,   -1,  -16,   22,    4,  -21,   18,   20,  -21\r\n     1     ,   18,   20,  -21,   18,    0,    1,    6,    4,  -21,   16\r\n     2     ,    4,  -21,   16,    4,  -21,   16,    0,    0,    1,    6\r\n     3     ,    4,  -21,   18,   20,  -21,   18,   20,  -21,   18,    0\r\n     4     ,    0,    6,   -1,    5,   -4,  -22,  -23,   15,    1,    1\r\n     5     ,    1,    6,   -1,   23,    1,    1,    1,    6,  -25,  -26\r\n     6     ,  -22,  -24,   15,    1,    1,    1,   -1,   23,    1,    1\r\n     7     ,    1,    0,    0,    6,   -1,    5,   -4,  -22,  -23,   15\r\n     8     ,    1,    1,    1,    6,   -1,   24,   17,   17,   17,   26\r\n     9     ,  -25,  -26,  -22,  -24,   15,    1,    1,    1,   -1,   24\r\n     O     ,   17,   17,   17,    0,    0,    3,   47,   73,   16,   16\r\n     1     ,   16,   16,   74,   16,   16,   16,  -19,   16,   16,   16\r\n     2     ,   16,   74,   16,   16,   16,    0,    1,   46,   72,   15\r\n     3     ,    4,    4,    4,    4,    0,    0,    1,   60,    4,   16\r\n     4     ,   16,   16,   16,   16,   16,   16,    0,    0,    1,    2\r\n     5     ,    4,   16,   16,   16,   16,   16,   16,   16,    0,    0\r\n     6     ,    0,    3,   81,    4,   16,   16,   16,   16,   16,  -32\r\n     7     ,   16,   16,   16,   16,   16,   16,    0,    0,    3,  -20\r\n     8     ,   29,    4,   16,   16,   16,   16,   16,  -32,   16,   16\r\n     9     ,   16,   16,   16,   16,    0,    0,    3,   81,    4,   16/\r\n      DATA D1201/16, 16,   16,   16,  -33,   12,   12,   12,   12,   12\r\n     1     ,   12,    0,    0,    3,  -20,   29,    4,   16,   16,   16\r\n     2     ,   16,   16,  -33,   12,   12,   12,   12,   12,   12,    0\r\n     3     ,    1,   77,    1,   16,    1,   16,    1,   16,    1,    1\r\n     4     ,    0,    1,   42,   31,   31,   31,   31,   31,   31,   31\r\n     5     ,   31,   31,    0,    3,   71,   31,   31,   31,   31,   31\r\n     6     ,   31,   31,   31,   31,  -34,   31,   31,   31,   31,   31\r\n     7     ,   31,   31,   31,   31,    0,    3,   71,   31,   31,   31\r\n     8     ,   31,   31,   31,   31,   31,   31,  -37,   32,   32,   32\r\n     9     ,   32,   32,   32,   32,   32,   32,    0,    3,  -20,   16\r\n     O     ,   31,   31,   31,   31,   31,   31,   31,   31,   31,  -34\r\n     1     ,   31,   31,   31,   31,   31,   31,   31,   31,   31,    0\r\n     2     ,    3,  -20,   16,   31,   31,   31,   31,   31,   31,   31\r\n     3     ,   31,   31,  -37,   32,   32,   32,   32,   32,   32,   32\r\n     4     ,   32,   32,    0,    1,    6,    4,    4,    4,    4,    4\r\n     5     ,    4,    0,    3,  -20,    5,    4,    4,    4,    4,    4\r\n     6     ,    4,  -31,    4,    4,    4,    4,    4,    4,    0,    3\r\n     7     ,  -20,    5,    4,    4,    4,    4,    4,    4,  -14,   33\r\n     8     ,   33,   33,   33,   33,   33,    0,    1,   59,    4,    4\r\n     9     ,    4,    4,    4,    4,    0,    3,   75,    4,    4,    4/\r\n      DATA D1401/4,   4,    4,  -31,    4,    4,    4,    4,    4,    4\r\n     1     ,    0,    3,   75,    4,    4,    4,    4,    4,    4,  -14\r\n     2     ,   33,   33,   33,   33,   33,   33,    0,    1,    7,    9\r\n     3     ,    9,    9,    9,    0,    3,  -20,    6,    9,    9,    9\r\n     4     ,    9,  -36,    9,    9,    9,    9,    0,    3,  -20,    6\r\n     5     ,    9,    9,    9,    9,  -38,   34,   34,   34,   34,    0\r\n     6     ,    1,   55,    9,    9,    9,    9,    0,    3,   76,    9\r\n     7     ,    9,    9,    9,  -36,    9,    9,    9,    9,    0,    3\r\n     8     ,   76,    9,    9,    9,    9,  -38,   34,   34,   34,   34\r\n     9     ,    0,    1,    1,   16,   31,   31,   31,   31,   31,   31\r\n     O     ,   31,   31,   31,    0,    0,  201,   77,    6,    1,   -5\r\n     1     ,   40,   77,    6,    1,   -5,   40,    0,    0,    0,    0\r\n     2     ,    3,   54,   31,   35,   35,   35,   35,   35,   35,   35\r\n     3     ,  -31,   35,   35,   35,   35,   35,   35,   35,   35,    0\r\n     4     ,    0,    3,  -20,   31,   31,   35,   35,   35,   35,   35\r\n     5     ,   35,   35,  -31,   35,   35,   35,   35,   35,   35,   35\r\n     6     ,   35,    0,    0,    5,   45,   31,   35,   35,   35,   35\r\n     7     ,   35,   35,   35,  -15,   35,   35,   35,   35,   35,   35\r\n     8     ,   35,   35,  -31,   35,   35,   35,   35,   35,   35,   35\r\n     9     ,   35,  -31,   35,   35,   35,   35,   35,   35,   35,   35/\r\n      DATA D1601/0,   0,    5,  -20,   31,   31,   35,   35,   35,   35\r\n     1     ,   35,   35,   35,  -15,   35,   35,   35,   35,   35,   35\r\n     2     ,   35,   35,  -31,   35,   35,   35,   35,   35,   35,   35\r\n     3     ,   35,  -31,   35,   35,   35,   35,   35,   35,   35,   35\r\n     4     ,    0,    0,    5,   45,   31,   35,   35,   35,   35,   35\r\n     5     ,   35,   35,  -28,   36,   36,   36,   36,   36,   36,   36\r\n     6     ,   36,  -31,   35,   35,   35,   35,   35,   35,   35,   35\r\n     7     ,  -14,   36,   36,   36,   36,   36,   36,   36,   36,    0\r\n     8     ,    0,    5,  -20,   31,   31,   35,   35,   35,   35,   35\r\n     9     ,   35,   35,  -28,   36,   36,   36,   36,   36,   36,   36\r\n     O     ,   36,  -31,   35,   35,   35,   35,   35,   35,   35,   35\r\n     1     ,  -14,   36,   36,   36,   36,   36,   36,   36,   36,    0\r\n     2     ,    1,   77,   16,   16,    1,   12,    6,    1,    1,    0\r\n     3     ,    3,   77,    3,    1,    1,    1,    1,    2,    1,   40\r\n     4     ,  -14,    2,    1,    1,    1,   -2,    2,    1,   40,  -30\r\n     5     ,    0,    3,  -20,   61,   -4,   31,   35,   35,   35,   35\r\n     6     ,   35,   35,   35,  -31,   35,   35,   35,   35,   35,   35\r\n     7     ,   35,   35,    0,  201,   77,    1,   -5,   40,    2,   -5\r\n     8     ,   40,   62,   -4,    1,   -5,   40,    2,   -5,   40,    0\r\n     9     ,    0,  201,   77,    5,    1,   55,   -4,    5,    1,    0/\r\n      DATA D1801/4,  44,   46,  -39,  -40,   16,  -39,  -41,   16,  -39\r\n     1     ,  -42,   16,  -39,  -43,   -5,   37,   37,   37,    1,    1\r\n     2     ,  -31,  -44,   16,  -39,  -45,   16,  -39,  -46,   16,  -39\r\n     3     ,  -47,   -5,   37,   37,   37,  -31,  -48,   16,  -39,  -49\r\n     4     ,   16,  -39,  -50,   16,  -39,  -51,   -5,   37,   37,   37\r\n     5     ,    0,    3,   44,   46,    1,    3,    3,    3,    3,    3\r\n     6     ,  -35,   16,    3,    3,    3,    3,    3,    0,    4,   44\r\n     7     ,   46,  -39,  -40,   16,  -39,  -41,   16,  -39,  -42,   16\r\n     8     ,  -39,  -43,   -5,   37,   37,   37,    1,    1,   -6,   79\r\n     9     ,  -44,   16,  -39,  -45,   16,  -39,  -46,   16,  -39,  -47\r\n     O     ,   -5,   37,   37,   37,  -31,  -48,   16,  -39,  -49,   16\r\n     1     ,  -39,  -50,   16,  -39,  -51,   -5,   37,   37,   37,    0\r\n     2     ,    3,   44,   46,    1,    3,    3,    3,    3,    3,  -28\r\n     3     ,   79,   16,    3,    3,    3,    3,    3,    0,    1,   50\r\n     4     ,   80,    1,    1,    4,    1,   15,    5,    0,    1,   50\r\n     5     ,   80,    1,   16,   16,   16,    1,    1,   16,   40,    0\r\n     6     ,    9,   44,   -4,  -52,    5,    4,    4,    4,    4,    4\r\n     7     ,  -17,  -52,    5,    4,    4,    4,    4,    4,  -17,  -52\r\n     8     ,    5,    4,    4,    4,    4,    4,  -17,  -52,    5,    4\r\n     9     ,    4,    4,    4,    4,  -17,  -53,    5,    4,    4,    4/\r\n      DATA D2001/4,   4,  -17,  -53,    5,    4,    4,    4,    4,    4\r\n     1     ,  -17,  -53,    5,    4,    4,    4,    4,    4,  -17,  -53\r\n     2     ,    5,    4,    4,    4,    4,    4,    0,    7,   44,   -4\r\n     3     ,  -52,    5,    4,    4,    4,    4,    4,  -17,  -52,    5\r\n     4     ,    4,    4,    4,    4,    4,  -17,  -52,    5,    4,    4\r\n     5     ,    4,    4,    4,  -17,  -53,    5,    4,    4,    4,    4\r\n     6     ,    4,  -17,  -53,    5,    4,    4,    4,    4,    4,  -17\r\n     7     ,  -53,    5,    4,    4,    4,    4,    4,    0,    6,   82\r\n     8     ,  -55,   -8,    1,    1,    1,    1,    1,    1,    1,    1\r\n     9     ,  -28,   -9,    1,    1,    1,    1,    1,    1,    1,    1\r\n     O     ,  -28,  -10,    1,    1,    1,    1,    1,    1,    1,    1\r\n     1     ,  -28,  -11,    1,    1,    1,    1,    1,    1,    1,    1\r\n     2     ,  -28,  -54,    1,    1,    1,    1,    1,    1,    1,    1\r\n     3     ,    0,    5,   82,  -55,  -54,    1,    1,    1,    1,    1\r\n     4     ,    1,    1,    1,  -28,   -8,    1,    1,    1,    1,    1\r\n     5     ,    1,    1,    1,  -28,   -9,    1,    1,    1,    1,    1\r\n     6     ,    1,    1,    1,  -28,  -10,    1,    1,    1,    1,    1\r\n     7     ,    1,    1,    1,    0,    0,    2,   47,   72,   87,    0\r\n     8     ,    4,   47,   72,   15,   15,   15,   15,  -56,   15,   15\r\n     9     ,   15,   15,  -56,   15,   15,   15,   15,    0,    0,    0/\r\n      DATA D2201/6,  47,   72,   87,  -56,   87,  -56,   87,  -56,   87\r\n     1     ,  -56,   87,    0,    5,   47,   72,   15,   15,   15,   15\r\n     2     ,  -56,   15,   15,   15,   15,  -56,   15,   15,   15,   15\r\n     3     ,  -56,   15,   15,   15,   15,    0,    0,    0,    5,   47\r\n     4     ,   72,    8,    8,    8,  -56,    8,    8,    8,  -56,    8\r\n     5     ,    8,    8,  -56,    8,    8,    8,    0,    1,  -26,   57\r\n     6     ,  -16,    4,   -4,   33,    0,    1,   -5,   51,   -5,   50\r\n     7     ,  -16,   86,   86,  -16,    1,    1,    1,    1,    1,    1\r\n     8     ,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0\r\n     9     ,    9,   44,  -16,   -8,    1,    1,   16,   16,    1,   16\r\n     O     ,   16,    1,  -34,    1,    1,   16,   16,    1,   16,   16\r\n     1     ,    1,  -15,  -10,    1,    1,   16,   16,    1,   16,   16\r\n     2     ,    1,  -34,    1,    1,   16,   16,    1,   16,   16,    1\r\n     3     ,  -15,  -12,    1,    1,   16,   16,    1,   16,   16,    1\r\n     4     ,  -34,    1,    1,   16,   16,    1,   16,   16,    1,  -15\r\n     5     ,  -54,    1,    1,   16,   16,    1,   16,   16,    1,  -34\r\n     6     ,    1,    1,   16,   16,    1,   16,   16,    1,    0,    0\r\n     7     ,    4,   54,  -57,   -8,    6,    6,    6,    6,    6,  -58\r\n     8     ,  -10,    6,    6,    6,    6,    6,  -58,  -12,    6,    6\r\n     9     ,    6,    6,    6,    0,    0,    0,    0,    0,    0,    0/\r\n      DATA D2401/5,  44,  -13,   -8,    1,    1,    1,    1,    1,    1\r\n     1     ,    1,  -14,  -10,    1,    1,    1,    1,    1,    1,    1\r\n     2     ,  -14,  -12,    1,    1,    1,    1,    1,    1,    1,  -14\r\n     3     ,  -54,    1,    1,    1,    1,    1,    1,    1,    0,    0\r\n     4     ,    1,   77,   -5,   15,   15,   15,   15,   15,    0,    0\r\n     5     ,  401,   51,  -59,    1,   58,  -59,    1,   58,  -59,    1\r\n     6     ,   58,  -59,    1,    0,    0,    3,  -20,   61,  -55,  -55\r\n     7     ,    2,    1,    1,    3,    4,    1,   -4,   40,  -17,    3\r\n     8     ,    1,    1,    3,    4,    1,   -4,   40,    0,    0,  201\r\n     9     ,   62,  -13,    6,    1,   -5,   40,   61,  -13,    6,    1\r\n     O     ,   -5,   40,    0,    0,    3,  -20,   61,  -55,  -55,   16\r\n     1     ,   16,    1,    1,   11,    2,    2,    1,  -17,    1,   16\r\n     2     ,    1,    1,   11,    2,    2,    1,    0,    0,    1,   62\r\n     3     ,  -13,    4,   16,   16,   16,   16,   16,   16,   16,    0\r\n     4     ,    0,    3,   44,   42,    5,    1,    1,   11,    2,    2\r\n     5     ,    1,  -28,   42,    5,    1,    1,   11,    2,    2,    1\r\n     6     ,    0,    0,    3,   44,   86,  -59,  -59,    4,    1,    1\r\n     7     ,   11,    2,    2,    1,  -28,   86,  -59,  -59,    4,    1\r\n     8     ,    1,   11,    2,    2,    1,    0,    9,   47,   72,   15\r\n     9     ,   15,   15,   15,  -56,   15,   15,   15,   15,   -1,  -56/\r\n      DATA D2601/15, 15,   15,   15,  -56,   15,   15,   15,   15,   -1\r\n     1     ,  -56,   15,   15,   15,   15,  -56,   15,   15,   15,   15\r\n     2     ,    0,    9,   47,   72,   15,   15,   15,   15,  -58,   88\r\n     3     ,   88,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58\r\n     4     ,   88,   88,   88,   88,   -1,  -56,   15,   15,   15,   15\r\n     5     ,  -58,   88,   88,   88,   88,    0,    3,   47,   72,   87\r\n     6     ,  -56,   87,    0,   12,   47,   72,   15,   15,   15,   15\r\n     7     ,  -56,   15,   15,   15,   15,   -1,  -56,   15,   15,   15\r\n     8     ,   15,  -56,   15,   15,   15,   15,   -1,  -56,   15,   15\r\n     9     ,   15,   15,  -56,   15,   15,   15,   15,   -1,  -56,   15\r\n     O     ,   15,   15,   15,  -56,   15,   15,   15,   15,    0,   12\r\n     1     ,   47,   72,   15,   15,   15,   15,  -58,   88,   88,   88\r\n     2     ,   88,   -1,  -56,   15,   15,   15,   15,  -58,   88,   88\r\n     3     ,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58,   88\r\n     4     ,   88,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58\r\n     5     ,   88,   88,   88,   88,    0,   15,   47,   72,   87,  -56\r\n     6     ,   87,   -1,  -56,   87,  -56,   87,   -1,  -56,   87,  -56\r\n     7     ,   87,   -1,  -56,   87,  -56,   87,   -1,  -56,   87,  -56\r\n     8     ,   87,    0,    0,    0,    0,    0,    9,   89,   90,   15\r\n     9     ,   15,   15,   15,  -56,   15,   15,   15,   15,   -1,  -56/\r\n      DATA D2801/15, 15,   15,   15,  -56,   15,   15,   15,   15,   -1\r\n     1     ,  -56,   15,   15,   15,   15,  -56,   15,   15,   15,   15\r\n     2     ,    0,    9,   89,   90,   15,   15,   15,   15,  -58,   88\r\n     3     ,   88,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58\r\n     4     ,   88,   88,   88,   88,   -1,  -56,   15,   15,   15,   15\r\n     5     ,  -58,   88,   88,   88,   88,    0,    3,   89,   90,   87\r\n     6     ,  -56,   87,    0,   12,   89,   90,   15,   15,   15,   15\r\n     7     ,  -56,   15,   15,   15,   15,   -1,  -56,   15,   15,   15\r\n     8     ,   15,  -56,   15,   15,   15,   15,   -1,  -56,   15,   15\r\n     9     ,   15,   15,  -56,   15,   15,   15,   15,   -1,  -56,   15\r\n     O     ,   15,   15,   15,  -56,   15,   15,   15,   15,    0,   12\r\n     1     ,   89,   90,   15,   15,   15,   15,  -58,   88,   88,   88\r\n     2     ,   88,   -1,  -56,   15,   15,   15,   15,  -58,   88,   88\r\n     3     ,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58,   88\r\n     4     ,   88,   88,   88,   -1,  -56,   15,   15,   15,   15,  -58\r\n     5     ,   88,   88,   88,   88,    0,   15,   89,   90,   87,  -56\r\n     6     ,   87,   -1,  -56,   87,  -56,   87,   -1,  -56,   87,  -56\r\n     7     ,   87,   -1,  -56,   87,  -56,   87,   -1,  -56,   87,  -56\r\n     8     ,   87,    0,    4,   89,   90,   15,   15,   15,   15,  -56\r\n     9     ,   15,   15,   15,   15,  -56,   15,   15,   15,   15,    0/\r\n      DATA D3001/5,  89,   90,   15,   15,   15,   15,  -56,   15,   15\r\n     1     ,   15,   15,  -56,   15,   15,   15,   15,  -56,   15,   15\r\n     2     ,   15,   15,    0,    2,   89,   90,   87,    0,    6,   89\r\n     3     ,   90,   87,  -56,   87,  -56,   87,  -56,   87,  -56,   87\r\n     4     ,    0,    3,  -20,   92,   31,   91,   31,   31,   91,   31\r\n     5     ,   91,   31,   91,   31,   91,  -15,   31,   91,   31,   31\r\n     6     ,   91,   31,   91,   31,   91,   31,   91,    0,    3,  -20\r\n     7     ,   92,   31,   91,   31,   31,   91,   31,   91,   31,   91\r\n     8     ,   31,   91,  -28,   32,   91,   32,   32,   91,   32,   91\r\n     9     ,   32,   91,   32,   91,    0,    0,    3,  -20,   92,   16\r\n     O     ,   16,   16,    1,   16,   16,    1,   16,   -1,  -16,  -16\r\n     1     ,   36,   36,   36,   19,   36,   36,   19,   36,    0,    3\r\n     2     ,  -20,   92,   16,   16,   16,    1,   16,   16,    1,   16\r\n     3     ,  -15,   16,   16,   16,    1,   16,   16,    1,   16,    0\r\n     4     ,    8,   46,   -5,   84,  -13,   84,  -55,   61,   46,  -39\r\n     5     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     6     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     7     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     8     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     9     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39/\r\n      DATA D3201/85,-39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     1     ,   85,  -39,   85,  -39,   85,  -15,   -2,   61,   46,  -39\r\n     2     ,   85,  -39,   85,  -39,   85,    0,    8,   85,   -5,   84\r\n     3     ,   -4,   84,  -55,   61,   46,  -39,   85,  -39,   85,  -39\r\n     4     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     5     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     6     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     7     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     8     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     9     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     O     ,   85,  -15,   -2,   61,   46,  -39,   85,  -39,   85,  -39\r\n     1     ,   85,    0,    8,   46,   -5,   84,  -13,   84,  -55,   61\r\n     2     ,   46,  -39,   85,  -21,   85,  -55,   85,  -21,   85,  -55\r\n     3     ,   85,  -21,   85,  -15,   -2,   61,   46,  -39,   85,  -21\r\n     4     ,   85,  -55,   85,  -21,   85,  -55,   85,  -21,   85,  -15\r\n     5     ,   -2,   61,   46,  -39,   85,  -21,   85,  -55,   85,  -21\r\n     6     ,   85,  -55,   85,  -21,   85,  -15,   -2,   61,   46,  -39\r\n     7     ,   85,  -21,   85,  -55,   85,  -21,   85,  -55,   85,  -21\r\n     8     ,   85,  -15,   -2,   61,   46,  -39,   85,  -21,   85,  -55\r\n     9     ,   85,  -21,   85,  -55,   85,  -21,   85,  -15,   -2,   61/\r\n      DATA D3401/46,-39,   85,  -21,   85,  -55,   85,  -21,   85,  -55\r\n     1     ,   85,  -21,   85,  -15,   -2,   61,   46,  -39,   85,  -21\r\n     2     ,   85,  -55,   85,  -21,   85,  -55,   85,  -21,   85,  -15\r\n     3     ,   -2,   61,   46,  -39,   85,  -21,   85,  -55,   85,  -21\r\n     4     ,   85,  -55,   85,  -21,   85,    0,    8,   85,   -5,   84\r\n     5     ,   -4,   84,  -55,   61,   46,  -39,   85,  -21,   85,  -55\r\n     6     ,   85,  -21,   85,  -55,   85,  -21,   85,  -15,   -2,   61\r\n     7     ,   46,  -39,   85,  -21,   85,  -55,   85,  -21,   85,  -55\r\n     8     ,   85,  -21,   85,  -15,   -2,   61,   46,  -39,   85,  -21\r\n     9     ,   85,  -55,   85,  -21,   85,  -55,   85,  -21,   85,  -15\r\n     O     ,   -2,   61,   46,  -39,   85,  -21,   85,  -55,   85,  -21\r\n     1     ,   85,  -55,   85,  -21,   85,  -15,   -2,   61,   46,  -39\r\n     2     ,   85,  -21,   85,  -55,   85,  -21,   85,  -55,   85,  -21\r\n     3     ,   85,  -15,   -2,   61,   46,  -39,   85,  -21,   85,  -55\r\n     4     ,   85,  -21,   85,  -55,   85,  -21,   85,  -15,   -2,   61\r\n     5     ,   46,  -39,   85,  -21,   85,  -55,   85,  -21,   85,  -55\r\n     6     ,   85,  -21,   85,  -15,   -2,   61,   46,  -39,   85,  -21\r\n     7     ,   85,  -55,   85,  -21,   85,  -55,   85,  -21,   85,    0\r\n     8     ,    3,   -1,   50,    4,    1,    4,    1,    4,    4,  -15\r\n     9     ,    4,    1,    4,   -2,    4,    4,    0,    0,    0,    0/\r\n      DATA D3601/6,  -1,   48,   -3,  -22,  -23,   15,    1,    1,    1\r\n     1     ,    6,   -1,   24,   17,   17,   17,   26,   -1,  -61,  -22\r\n     2     ,  -24,   15,    1,    1,    1,    6,   -1,   24,   17,   17\r\n     3     ,   17,   26,    0,    3,   47,    3,    1,    1,    1,    1\r\n     4     ,    1,    1,   40,   -6,    1,    1,    1,    1,    1,    1\r\n     5     ,    1,   40,    0,    0,    3,    1,    1,    1,    4,    1\r\n     6     ,    4,    4,  -15,    4,    1,    4,   -2,    4,    4,  -30\r\n     7     ,    0,    3,   77,    3,    1,    1,    1,    1,    1,    1\r\n     8     ,   40,  -14,    2,    1,    1,    1,    1,    1,    1,   40\r\n     9     ,    0,    6,   -1,    5,   -4,  -22,  -23,    5,    1,    4\r\n     O     ,    1,    4,    1,  -33,    5,    1,    4,    1,    4,    1\r\n     1     ,  -25,  -26,  -22,  -24,    5,    1,    4,   -2,    4,    1\r\n     2     ,  -33,    5,    1,    4,   -2,    4,    1,    0,    6,   -1\r\n     3     ,    5,   -4,  -22,  -23,    5,    1,    4,    1,    4,    1\r\n     4     ,  -33,   17,   17,   33,   17,   33,   17,  -25,  -26,  -22\r\n     5     ,  -24,    5,    1,    4,   -2,    4,    1,  -33,   17,   17\r\n     6     ,   33,   -2,   33,   17,    0,    6,   -1,    5,   -4,  -22\r\n     7     ,  -23,   15,    1,    1,    1,    6,   -1,   23,    1,    1\r\n     8     ,    1,    6,  -25,  -26,  -22,  -24,   15,    1,    1,    1\r\n     9     ,    6,   -1,   23,    1,    1,    1,    6,    0,    6,   -1/\r\n      DATA D3801/5,  -4,  -22,  -23,   15,    1,    1,    1,    6,   -1\r\n     1     ,   24,   17,   17,   17,   26,  -25,  -26,  -22,  -24,   15\r\n     2     ,    1,    1,    1,    6,   -1,   24,   17,   17,   17,   26\r\n     3     ,    0,    6,   -1,   48,   -3,  -22,  -23,    5,    1,    4\r\n     4     ,    1,    4,    1,  -33,    5,    1,    4,    1,    4,    1\r\n     5     ,  -25,  -26,  -22,  -24,    5,    1,    4,   -2,    4,    1\r\n     6     ,  -33,    4,    1,    4,   -2,    4,    1,    0,    6,   -1\r\n     7     ,   48,   -3,  -22,  -23,    5,    1,    4,    1,    4,    1\r\n     8     ,  -33,   17,   17,   33,   17,   33,   17,  -25,  -26,  -22\r\n     9     ,  -24,    5,    1,    4,   -2,    4,    1,  -33,   17,   17\r\n     O     ,   33,   -2,   33,   17,    0,    6,   -1,   48,   -3,  -22\r\n     1     ,  -23,   15,    1,    1,    1,    6,   -1,   23,    1,    1\r\n     2     ,    1,    6,   -1,  -61,  -22,  -24,   15,    1,    1,    1\r\n     3     ,    6,   -1,   23,    1,    1,    1,    6,    0,    1,  -60\r\n     4     ,   42,   -7,    2,    0,    1,  -60,    2,   -7,   16,    0\r\n     5     ,    3,    4,   63,   -4,    4,  -21,   16,    4,  -21,   16\r\n     6     ,    4,  -21,   16,   -1,   64,   -4,    4,  -21,   16,    4\r\n     7     ,  -21,   16,    4,  -21,   16,    0,    3,   44,   63,   -4\r\n     8     ,    4,  -21,   18,   20,  -21,   18,   20,  -21,   18,   -1\r\n     9     ,   64,   -4,    4,  -21,   18,   20,  -21,   18,   20,  -21/\r\n      DATA D4001/18,  0,    3,  -20,   16,   62,   -4,    4,  -21,   16\r\n     1     ,    4,  -21,   16,    4,  -21,   16,   -1,   -2,   62,   -4\r\n     2     ,    4,  -21,   16,    4,  -21,   16,    4,  -21,   16,    0\r\n     3     ,    3,  -20,   16,   62,   -4,    4,  -21,   18,   20,  -21\r\n     4     ,   18,   20,  -21,   18,   -1,   -2,   62,   -4,    4,  -21\r\n     5     ,   18,   20,  -21,   18,   20,  -21,   18,    0,    0,    0\r\n     6     ,    2,  -20,  -16,   61,   -5,   -5,   31,   -5,   31,   -5\r\n     7     ,   31,   -5,   31,   -5,   31,   -5,   31,   -5,   31,   -5\r\n     8     ,   31,    0,    2,  -20,   -5,   61,  -57,   -5,   31,   -5\r\n     9     ,   31,   -5,   31,   -5,   31,   -5,   31,   -5,   31,   -5\r\n     O     ,   31,   -5,   31,    0,    1,   -5,    1,  -55,   -5,   31\r\n     1     ,   -5,   31,   -5,   31,   -5,   31,   -5,   31,   -5,   31\r\n     2     ,   -5,   31,   -5,   31,    0,    1,   50,   31,   91,   31\r\n     3     ,   31,   91,   31,   91,   31,   91,   31,   91,    0,    1\r\n     4     ,   92,   31,   91,   31,   31,   91,   31,   91,   31,   91\r\n     5     ,   31,   91,    0,    3,   93,   31,   91,   31,   31,   91\r\n     6     ,   31,   91,   31,   91,   31,   91,  -15,   31,   91,   31\r\n     7     ,   31,   91,   31,   91,   31,   91,   31,   91,    0,    3\r\n     8     ,   93,   31,   91,   31,   31,   91,   31,   91,   31,   91\r\n     9     ,   31,   91,  -28,   32,   91,   32,   32,   91,   32,   91/\r\n      DATA D4201/32, 91,   32,   91,    0,    3,  -20,   94,   16,   16\r\n     1     ,   16,    1,   16,   16,    1,   16,   -1,  -16,  -16,   36\r\n     2     ,   36,   36,   19,   36,   36,   19,   36,    0,    3,  -20\r\n     3     ,   94,   16,   16,   16,    1,   16,   16,    1,   16,  -15\r\n     4     ,   16,   16,   16,    1,   16,   16,    1,   16,    0,    3\r\n     5     ,  -20,   85,   61,    1,    3,    3,    3,    3,    3,  -36\r\n     6     ,   16,    3,    3,    3,    3,    3,    0,    3,  -20,   85\r\n     7     ,   61,    1,    3,    3,    3,    3,    3,  -37,   79,   16\r\n     8     ,    3,    3,    3,    3,    3,    0,    0,    0,    0,    0/\r\n      END\r\n"
  },
  {
    "path": "bd/ofp5bd.f",
    "content": "      BLOCK DATA OFP5BD\r\nCOFP5BD\r\n      INTEGER ESINGL, E1, E21, E41, E61, E81\r\n      COMMON /OFPBD5/ ESINGL(64),E1(100),E21(100),E41(100),E61(100)\r\n     1               ,E81(100)\r\nC*****\r\nC     SPACING ARRAY - ESINGL\r\nC*****\r\n      DATA    ESINGL( 1) / 4H/    /\r\n      DATA    ESINGL( 2) / 4H15X  /\r\n      DATA    ESINGL( 3) / 4H10X  /\r\n      DATA    ESINGL( 4) / 4H5X   /\r\n      DATA    ESINGL( 5) / 4H1X   /\r\n      DATA    ESINGL( 6) / 4H/10X /\r\n      DATA    ESINGL( 7) / 4H16X  /\r\n      DATA    ESINGL( 8) / 4H2H1  /\r\n      DATA    ESINGL( 9) / 4H2H2  /\r\n      DATA    ESINGL(10) / 4H2H3  /\r\n      DATA    ESINGL(11) / 4H2H4  /\r\n      DATA    ESINGL(12) / 4H2H5  /\r\n      DATA    ESINGL(13) / 4H7X   /\r\n      DATA    ESINGL(14) / 4H/16X /\r\n      DATA    ESINGL(15) / 4H/13X /\r\n      DATA    ESINGL(16) / 4H4X   /\r\n      DATA    ESINGL(17) / 4H/14X /\r\n      DATA    ESINGL(18) / 4H11X  /\r\n      DATA    ESINGL(19) / 4H/24X /\r\n      DATA    ESINGL(20) / 4H1H0  /\r\n      DATA    ESINGL(21) / 4H2H / /\r\n      DATA    ESINGL(22) / 4H2HEN /\r\n      DATA    ESINGL(23) / 4H2HDA /\r\n      DATA    ESINGL(24) / 4H2HDB /\r\n      DATA    ESINGL(25) / 4H/1H0 /\r\n      DATA    ESINGL(26) / 4H23X  /\r\n      DATA    ESINGL(27) / 4H/26X /\r\n      DATA    ESINGL(28) / 4H/9X  /\r\n      DATA    ESINGL(29) / 4H/12X /\r\n      DATA    ESINGL(30) / 4H/1H  /\r\n      DATA    ESINGL(31) / 4H/20X /\r\n      DATA    ESINGL(32) / 4H/32X /\r\n      DATA    ESINGL(33) / 4H/28X /\r\n      DATA    ESINGL(34) / 4H/15X /\r\n      DATA    ESINGL(35) / 4H/19X /\r\n      DATA    ESINGL(36) / 4H/21X /\r\n      DATA    ESINGL(37) / 4H/11X /\r\n      DATA    ESINGL(38) / 4H/17X /\r\n      DATA    ESINGL(39) / 4H2X   /\r\n      DATA    ESINGL(40) / 4H1HX  /\r\n      DATA    ESINGL(41) / 4H2HXY /\r\n      DATA    ESINGL(42) / 4H1HA  /\r\n      DATA    ESINGL(43) / 4H2HLX /\r\n      DATA    ESINGL(44) / 4H1HY  /\r\n      DATA    ESINGL(45) / 4H2HYZ /\r\n      DATA    ESINGL(46) / 4H1HB  /\r\n      DATA    ESINGL(47) / 4H2HLY /\r\n      DATA    ESINGL(48) / 4H1HZ  /\r\n      DATA    ESINGL(49) / 4H2HZX /\r\n      DATA    ESINGL(50) / 4H1HC  /\r\n      DATA    ESINGL(51) / 4H2HLZ /\r\n      DATA    ESINGL(52) / 4H2HCP /\r\n      DATA    ESINGL(53) / 4H2HMP /\r\n      DATA    ESINGL(54) / 4H2HC  /\r\n      DATA    ESINGL(55) / 4H3X   /\r\n      DATA    ESINGL(56) / 4H/30X /\r\n      DATA    ESINGL(57) / 4H9X   /\r\n      DATA    ESINGL(58) / 4H/23X /\r\n      DATA    ESINGL(59) / 4H6X   /\r\n      DATA    ESINGL(60) / 4H39X  /\r\n      DATA    ESINGL(61) / 4H24X  /\r\n      DATA    ESINGL(62) / 4H     /\r\n      DATA    ESINGL(63) / 4H     /\r\n      DATA    ESINGL(64) / 4H     /\r\nC\r\nC\r\nC     FORMAT BUILDING BLOCK E-ARRAY\r\nC\r\nC\r\nC                    -STANDARD-                 -ALTERNATES-\r\nC                 ****************        ***********************\r\n      DATA    E1  / 4H1P,E ,4H15.6        , 4H0P,F ,4H6.1  ,4H,9X\r\n     2            , 4H1P,E ,4H16.6        , 4H0P,F ,4H7.1  ,4H,9X\r\n     3            , 4H1P,E ,4H17.6        , 4H0P,F ,4H8.1  ,4H,9X\r\n     4            , 4H1P,E ,4H18.6        , 4H0P,F ,4H9.1  ,4H,9X\r\n     5            , 4H1P,E ,4H19.6        , 4H0P,F ,4H10.1 ,4H,9X\r\n     6            , 4H1P,E ,4H20.6        , 4H0P,F ,4H11.1 ,4H,9X\r\n     7            , 4H1P,E ,4H21.6        , 4H0P,F ,4H12.1 ,4H,9X\r\n     8            , 4H1P,E ,4H30.6        , 4H0P,F ,4H21.1 ,4H,9X\r\n     9            , 4H1P,E ,4H26.6        , 4H0P,F ,4H17.1 ,4H,9X\r\n     O            , 4H1P,E ,4H24.6        , 4H0P,F ,4H15.1 ,4H,9X\r\n     1            , 4H0P,F ,4H11.4        , 4H0P,F ,4H8.1  ,4H,3X\r\n     2            , 4H0P,F ,4H14.4        , 4H0P,F ,4H11.1 ,4H,3X\r\n     3            , 4H1P,E ,4H28.6        , 4H0P,F ,4H19.1 ,4H,9X\r\n     4            , 4H1P,E ,4H37.6        , 4H0P,F ,4H28.1 ,4H,9X\r\n     5            , 4H1P,E ,4H22.6        , 4H0P,F ,4H17.1 ,4H,5X\r\n     6            , 4H1P,E ,4H14.6        , 4H0P,F ,4H5.1  ,4H,9X\r\n     7            , 4H0P,F ,4H15.4        , 4H0P,F ,4H12.1 ,4H,3X\r\n     8            , 4H0P,F ,4H9.4         , 4H0P,F ,4H6.1  ,4H,3X\r\n     9            , 4H0P,F ,4H15.3        , 4H0P,F ,4H12.1 ,4H 3X\r\n     O            , 4H1P,E ,4H23.6        , 4H0P,F ,4H14.1 ,4H,9X    /\r\n      DATA    E21 / 4H1P,E ,4H35.6        , 4H0P,F ,4H26.1 ,4H,9X\r\n     2            , 4H1P,E ,4H25.6        , 4H0P,F ,4H16.1 ,4H,9X\r\n     3            , 4H1P,E ,4H50.6        , 4H0P,F ,4H41.1 ,4H,9X\r\n     4            , 4H0P,F ,4H46.4        , 4H0P,F ,4H43.1 ,4H,3X\r\n     5            , 4H     ,4H            , 4H0P,F ,4H12.1 ,4H,3X\r\n     6            , 4H0P,F ,4H20.4        , 4H0P,F ,4H17.1 ,4H,3X\r\n     7            , 4H0P,F ,4H16.4        , 4H0P,F ,4H13.1 ,4H,3X\r\n     8            , 4H0P,F ,4H22.4        , 4H0P,F ,4H19.1 ,4H,3X\r\n     9            , 4H1P,E ,4H27.6        , 4H0P,F ,4H18.1 ,4H,9X\r\n     O            , 4H0P,F ,4H12.5        , 4H0P,F ,4H11.1 ,4H,3X\r\n     1            , 4H1P,E ,4H13.5        , 4H0P,F ,4H5.1  ,4H,8X\r\n     2            , 4H0P,F ,4H13.3        , 4H0P,F ,4H9.1  ,4H,4X\r\n     3            , 4H0P,F ,4H18.4        , 4H0P,F ,4H15.1 ,4H,3X\r\n     4            , 4H0P,F ,4H26.4        , 4H0P,F ,4H23.1 ,4H,3X\r\n     5            , 4H1P,E ,4H14.5        , 4H0P,F ,4H6.1  ,4H,8X\r\n     6            , 4H0P,F ,4H14.3        , 4H0P,F ,4H10.1 ,4H,4X\r\n     7            , 4H0P,F ,4H5.2         , 4H0P,F ,4H4.1  ,4H,1X\r\n     8            , 4H1P,E ,4H13.6        , 4H0P,F ,4H4.1  ,4H,9X\r\n     9            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     O            , 4H1P,E ,4H9.1         , 4HA1   ,4H,8X  ,4H      /\r\n      DATA    E41 / 4H6X,A ,4H1,3X        , 4HI7   ,4H,3X  ,4H\r\n     2            , 4HI15  ,4H            , 4H     ,4H     ,4H\r\n     3            , 4HI9,1 ,4HX           , 4H     ,4H     ,4H\r\n     4            , 4H1H0, ,4HI8          , 4H     ,4H     ,4H\r\n     5            , 4H1X,I ,4H13          , 4H     ,4H     ,4H\r\n     6            , 4H1X,I ,4H8           , 4H     ,4H     ,4H\r\n     7            , 4H1H0, ,4HI7          , 4H     ,4H     ,4H\r\n     8            , 4H6X,I ,4H8           , 4H     ,4H     ,4H\r\n     9            , 4H1X,I ,4H15          , 4H     ,4H     ,4H\r\n     O            , 4H1X,I ,4H12          , 4H     ,4H     ,4H\r\n     1            , 4HI10  ,4H            , 4H     ,4H     ,4H\r\n     2            , 4HI7,1 ,4HX           , 4H     ,4H     ,4H\r\n     3            , 4H3X,A ,4H4           , 4H     ,4H     ,4H\r\n     4            , 4H1H0, ,4HI13         , 4H     ,4H     ,4H\r\n     5            , 4H1X,I ,4H20          , 4H     ,4H     ,4H\r\n     6            , 4H5X,A ,4H1,3X        , 4HI5   ,4H,4X  ,4H\r\n     7            , 4H1X,I ,4H22          , 4H     ,4H     ,4H\r\n     8            , 4HI12  ,4H            , 4H     ,4H     ,4H\r\n     9            , 4H1X,I ,4H19          , 4H     ,4H     ,4H\r\n     O            , 4HI16  ,4H            , 4H     ,4H     ,4H      /\r\n      DATA    E61 / 4HI8   ,4H            , 4HA4   ,4H,4X  ,4H\r\n     2            , 4HI9   ,4H            , 4HA4   ,4H,5X  ,4H\r\n     3            , 4HI11  ,4H            , 4HA4   ,4H,7X  ,4H\r\n     4            , 4HI20  ,4H            , 4HA4   ,4H,16X ,4H\r\n     5            , 4HI19  ,4H            , 4HA4   ,4H,15X ,4H\r\n     6            , 4H1X,I ,4H23          , 4H     ,4H     ,4H\r\n     7            , 4HI23  ,4H            , 4H     ,4H     ,4H\r\n     8            , 4HI28  ,4H            , 4H     ,4H     ,4H\r\n     9            , 4H/1H  ,4H,I18        , 4H     ,4H     ,4H\r\n     O            , 4H1H0, ,4HI15         , 4H     ,4H     ,4H\r\n     1            , 4H1H0, ,4HI14         , 4H     ,4H     ,4H\r\n     2            , 4H0P,F ,4H22.4        , 4HI9   ,4H,13X ,4H\r\n     3            , 4H0P,F ,4H16.4        , 4HI5   ,4H,11X ,4H\r\n     4            , 4H0P,F ,4H10.4        , 4H     ,4H     ,4H\r\n     5            , 4H1H0, ,4HI19         , 4H     ,4H     ,4H\r\n     6            , 4H1H0, ,4HI20         , 4H     ,4H     ,4H\r\n     7            , 4HI10, ,4H5X          , 4H     ,4H     ,4H\r\n     8            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     9            , 4HI8,  ,4H2X          , 4H3X,3 ,4HHCEN ,4H,A4\r\n     O            , 4HF8.3 ,4H            , 4H     ,4H     ,4H      /\r\n      DATA    E81 / 4H1H0, ,4HI27         , 4H     ,4H     ,4H\r\n     2            , 4H1H0, ,4HI5          , 4H     ,4H     ,4H\r\n     3            , 4H1H0, ,4HI3          , 4H     ,4H     ,4H\r\n     4            , 4HI4   ,4H            , 4H     ,4H     ,4H\r\n     5            , 4H1P,E ,4H11.4        , 4H0P,F ,4H4.1  ,4H,7X\r\n     6            , 4HA4   ,4H            , 4H     ,4H     ,4H\r\n     7            , 4H1P9E ,4H11.3        , 4H0P9( ,4HF9.3 ,4H,2X)\r\nCAIX 7            , 4H  9E ,4H11.3        , 4H  9( ,4HF9.3 ,4H,2X)\r\n     8            , 4H0P,F ,4H22.3        , 4H0P,F ,4H20.1 ,4H,2X\r\n     9            , 4H/1PE ,4H11.3        , 4H/0PF ,4H7.1  ,4H,4X\r\nCAIX 9            , 4H/, E ,4H11.3        , 4H/0P, ,4HF7.1 ,4H,4X\r\n     O            , 4H0P,F ,4H19.4        , 4HI6   ,4H,13X ,4H\r\n     1            , 4HF8.2 ,4H            , 4H     ,4H     ,4H\r\n     2            , 4H1P,E ,4H12.5        , 4H     ,4H     ,4H\r\n     3            , 4H1H0, ,4HI12         , 4H     ,4H     ,4H\r\n     4            , 4H4X,I ,4H8           , 4H4X,A ,4H4,4X ,4H\r\n     4            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     5            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     6            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     7            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     8            , 4H     ,4H            , 4H     ,4H     ,4H\r\n     O            , 4H     ,4H            , 4H     ,4H     ,4H      /\r\n      END\r\n"
  },
  {
    "path": "bd/ofsnbd.f",
    "content": "      BLOCK DATA OFSNBD\r\nCOFSNBD\r\nC     C ARRAY FOR REAL STRAINS SORT1\r\nC\r\n      INTEGER C1\r\nCWKBR NCL93012 3/94      COMMON /OFSN1/ C1(54)           \r\n      COMMON /OFSN1/ C1(66)     \r\n      DATA C1  / 2563,  0,379,389,383,391   ,2563,  0,380,389,383,391   \r\n     A          ,2563,  0,381,389,383,391   ,2563,  0,382,389,383,391   \r\n     B          ,2542,  0,379,390,385,384   ,2542,  0,380,390,385,384   \r\n     C          ,2542,  0,381,390,385,384   ,2542,  0,382,390,385,384   \r\nCWKBR NCL93012 3/94 D          ,2542,  0,386,390,388,384   /                           \r\n     D          ,2542,  0,386,390,388,384   ,2542,  0,469,437,383,391     \r\n     E          ,2542,  0,470,437,383,391 /\r\n      END\r\n"
  },
  {
    "path": "bd/ofssbd.f",
    "content": "      BLOCK DATA OFSSBD\r\nCOFSSBD\r\nC     C ARRAY FOR REAL STRESSES SORT1 (IN MATERIAL COORDINATES)\r\nC\r\n      INTEGER C1\r\n      COMMON /OFSS1/ C1(30)\r\n      DATA C1  / 2542,  0, 70,390,376,377   ,2542,  0, 71,390,376,377\r\n     A          ,2542,  0, 69,390,376,377   ,2542,  0, 68,390,376,377\r\n     B          ,2542,  0,378,390,387,377   /\r\n      END\r\n"
  },
  {
    "path": "bd/pla4bd.f",
    "content": "      BLOCK DATA PLA4BD\r\nCPLA4BD\r\nC\r\n      INTEGER         CSTM   ,ECPTS  ,GPCT   ,ECPTO  ,OUTRW  ,\r\n     1                EOR    ,CLSRW  ,DIT\r\nC\r\n      COMMON /PLA42C/ NPVT   ,GAMI   ,GAMIP1 ,IPASS  ,ICSTM  ,\r\n     1                NCSTM  ,IGPCT  ,NGPCT  ,IPOINT ,NPOINT ,\r\n     2                I6X6K  ,N6X6K  ,CSTM   ,MPT    ,ECPTS  ,\r\n     3                GPCT   ,DIT    ,KGGNL  ,ECPTO  ,INRW   ,\r\n     4                OUTRW  ,EOR    ,NEOR   ,CLSRW  ,JMAX   ,\r\n     5                FROWIC ,LROWIC ,NROWSC ,NLINKS ,NWORDS(40),\r\n     6                IOVRLY(40)     ,LINK(40)       ,NOGO\r\nC\r\n      DATA    NPVT  , GAMI,GAMIP1,IPASS,ICSTM,NCSTM  / 6*0   /,\r\n     1        IGPCT , NGPCT,IPOINT,NPOINT,I6X6K,N6X6K/ 6*0   /,\r\n     2        CSTM  , MPT,GPCT,DIT, KGGNL,ECPTO, ECPTS       /\r\n     3        101   , 102,104 ,105, 201  ,202  , 301         /,\r\n     4        INRW  , OUTRW , EOR, NEOR, CLSRW / 0,1,1,0,1   /,\r\n     5        JMAX  , FROWIC,LROWIC,NROWSC,NLINKS / 4*0, 1   /,\r\n     6        NWORDS/\r\nC\r\nC    1         ROD       BEAM      TUBE      SHEAR     TWIST\r\nC    2         TRIA1     TRBSC     TRPLT     TRMEM     CONROD\r\nC    3         ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\nC    4         QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\nC    5         DAMP2     DAMP3     DAMP4     VISC      MASS1\r\nC    6         MASS2     MASS3     MASS4     CONM1     CONM2\r\nC    7         PLOTEL    REACT     QUAD3     BAR       CONE\r\nC    8         TRIARG    TRAPRG    TORDRG    CORE      CAP\r\nC\r\n     1         26,       0,        25,       0,        0,\r\n     2         42,       0,        0,        36,       26,\r\n     3         0,        0,        0,        0,        0,\r\n     4         44,       36,       44,       50,       0,\r\n     5         0,        0,        0,        0,        0,\r\n     6         0,        0,        0,        0,        0,\r\n     7         0,        0,        0,        57,       0,\r\n     8         0,        0,        0,        0,        0    /,\r\nC\r\n     7        IOVRLY/ 40*1/,\r\n     8        NOGO  / 0   /\r\n      END\r\n"
  },
  {
    "path": "bd/plotbd.f",
    "content": "      BLOCK DATA PLOTBD\r\nCPLOTBD\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         CHAR1(60,3),CHAR2(60,1),CHR19(2,79),CHRAM(2,88),\r\n     1                CHRNZ(2,84),CHLPQM(2,52),CHRSYM(2,19),\r\n     2                NPENS(20,2),PLTYPE(20,2),PBFSIZ(20,2),EOF(20,2)\r\n      REAL            CHRSCL,CNTR,DATA,D02,D03,EDGE,G,MAXDEF,PAPSIZ,\r\n     1                SCALE,S0S,VANGLE\r\n      COMMON /CHAR94/ CHAR(60,4)\r\n      COMMON /CHRDRW/ LSTCHR,CHRIND(60),CHR(2,350)\r\n      COMMON /XXPARM/ BUFSIZ,\r\nC    1    ... PLOTTING DATA\r\n     1        CAMERA,BFRAMS,PLTMDL(2),TAPDEN,\r\nC    2    ... PEN + PAPER DATA\r\n     2        NOPENS,PAPSIZ(2),PAPTYP(2),PENSIZ(8),PENCLR(8,2),PENPAP,\r\nC    3    ... SCALING DATA\r\n     3        SCALE(2),FSCALE,MAXDEF,DEFMAX,\r\nC    4    ... VIEWING DATA\r\n     4        AXIS(3),DAXIS(3),VANGLE(5),VIEW(4),\r\nC    5    ... VANTAGE POINT,               PROJECTION,OCULAR SEPARATION\r\n     5        FVP,R0,S0L,S0R,T0,D0,D02,D03,PRJECT,    S0S,\r\nC    6    ... ORIGIN DATA\r\n     6        FORG,ORG,NORG,ORIGIN(11),EDGE(11,4),XY(11,3),\r\nC    7    ... CONTOUR PLOTTING DATA\r\n     7        NCNTR,CNTR(50),ICNTVL,WHERE,DIRECT,SUBCAS,FLAG,VALUE,\r\n     7        LASSET,\r\nC    8    ... DATA FOR USER PLOT TITLE CARD\r\n     8        FPLTIT,PLTITL(17),COLOR,LAYER,\r\nC    9    ... OFFSET SCALE (WILL BE SET TO 1 BY PLTSET)\r\n     9        OFFSCL\r\n      COMMON /PLTDAT/ MODEL,PLOTER,XYMIN(2),XYMAX(2),AXYMAX(2),\r\n     1                XYEDGE(11),CHRSCL,PLTDAT(20),DATA(20,2)\r\n      COMMON /SYMBLS/ NSYM,SYMBOL(20,2)\r\n      COMMON /PLTSCR/ NCOR,PLTSC(50)\r\n      COMMON /DRWAXS/ G(12)\r\nC\r\nC ... EQUIV FOR   /CHAR94/...\r\n      EQUIVALENCE (CHAR(1,1),CHAR1(1,1))  , (CHAR(1,4),CHAR2(1,1))\r\nC\r\nC ... EQUIV FOR   /CHRDRW/...\r\n      EQUIVALENCE (CHR(1,  1),CHR19(1,1)) , (CHR(1, 80),CHRAM(1,1)) ,\r\n     1            (CHR(1,168),CHRNZ(1,1)) , (CHR(1,252),CHLPQM(1,1)),\r\n     2            (CHR(1,304),CHRSYM(1,1))\r\nC\r\nC ... EQUIV FOR   /PLTDAT/...\r\n      EQUIVALENCE (DATA( 7,1),NPENS(1,1)) , (DATA(10,1),PLTYPE(1,1)),\r\n     1            (DATA(12,1),PBFSIZ(1,1)), (DATA(13,1),EOF(1,1))\r\nC\r\n      DATA CHAR1 /\r\n     1     1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1HA,1HB,1HC,1HD,1HE,\r\n     2     1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN,1HO,1HP,1HQ,1HR,1HS,1HT,\r\n     3     1HU,1HV,1HW,1HX,1HY,1HZ,1H(,1H),1H+,1H-,1H*,1H/,1H=,1H.,1H,,\r\n     4     1H$,1H-,1H ,12*0,\r\nC\r\nC ... THE FOLLOWING ARE NUMERIC EQUIVALENTS OF 7094 BINARY CHARACTERS.\r\nC\r\nC    5  ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F\r\n     5     00,01,02,03,04,05,06,07,08,09,17,18,19,20,21,22,\r\nC    6  ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V\r\n     6     23,24,25,33,34,35,36,37,38,39,40,41,50,51,52,53,\r\nC    7  ... W, X, Y, Z, (, ),  , -, *, /, =, ., ,, $, -,BLANK\r\n     7     54,55,56,57,60,28,16,32,44,49,11,27,59,43,12,48,\r\nC    8  . EOR,EOF, SPECIAL, FILLER\r\n     8     58, 15, 63,42,26,   7*0,\r\nC\r\nC ... THE FOLLOWING ARE NUMBERIC EQUIVALENTS OF 7094 BCD CHARACTERS.\r\nC\r\nC    9  ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F\r\n     9     10,01,02,03,04,05,06,07,08,09,49,50,51,52,53,54,\r\nC    O  ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V\r\n     O     55,56,57,33,34,35,36,37,38,39,40,41,18,19,20,21,\r\nC   11  ... W, X, Y, Z, (, ),  , -, *, /, =, ., ,, $, -,BLANK\r\n     1     22,23,24,25,28,60,48,32,44,17,11,59,27,43,12,16,\r\nC   12  . EOR,EOF, SPECIAL, FILLER\r\n     2     26, 15, 31,42,58,   7*0/\r\nC\r\nC ... THE FOLLOWING ARE NUMERIC VALUES ON CDC 6600 TO PRODUCE 7094 BCD\r\nC     CHARACTERS.\r\nC\r\n      DATA CHAR2 /\r\nC    1  ... 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F\r\n     1     27,28,29,30,31,32,33,34,35,36,01,02,03,04,05,06,\r\nC    2  ... G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V\r\n     2     07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,\r\nC    3  ... W, X, Y, Z, (, ),  , -, *, /, =, ., ,, $, -,BLANK\r\n     3     23,24,25,26,41,42,37,38,39,40,44,47,46,43,52,45,\r\nC    4  . EOR,EOF, SPECIAL, FILLER\r\n     4      50, 49, 55,54,58,   7*0/\r\nC\r\nC ... DATA FOR DRAWING 6X6 CHARACTERS (8 UNITS WIDE - 16 UNITS HIGH).\r\nC\r\nC\r\nC     THE FOLLOWING ARE INDICES USED TO DRAW CHARACTERS.\r\nC\r\n      DATA LSTCHR,CHRIND /  52,\r\nC    1   0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F\r\n     1  -25,001,006,014,027,031,041,052,055,071,080,086,098,106,113,120,\r\nC    2   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V\r\n     2  126,136,142,148,155,160,163,168,172,181,188,199,208,220,225,231,\r\nC    3   W   X   Y   Z   (   )   +   -   *   /   =   .   ,   $   -  DOT\r\n     3  234,239,243,248,252,256,260,264,266,274,276,280,285,287,302,304,\r\nC    4  CIRCLE SQUARE DIAMOND TRIANGLE END FILLER\r\n     4   -25,   309,    314,    319,   323, 7*0 /\r\nC\r\nC ... DATA FOR DRAWING CHARACTERS 1 TO 9.\r\nC\r\n      DATA CHR19/\r\n     1     2,5, 3,6, 3,0, 2,0, 4,0,\r\n     2     0,5, 1,6, 4,6, 5,5, 5,4, 0,1, 0,0, 5,0,\r\n     3     0,5, 1,6, 4,6, 5,5, 5,4, 4,3, 2,3, 4,3, 5,2, 5,1, 4,0, 1,0,\r\n     3          0,1,\r\n     4     4,0, 4,6, 0,2, 5,2,\r\n     5     5,6, 0,6, 0,3, 1,4, 4,4, 5,3, 5,1, 4,0, 1,0, 0,1,\r\n     6     4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1, 5,2, 4,3, 1,3, 0,2,\r\n     7     0,6, 5,6, 2,0,\r\n     8     4,3, 5,4, 5,5, 4,6, 1,6, 0,5, 0,4, 1,3, 4,3, 5,2, 5,1, 4,0,\r\n     8          1,0, 0,1, 0,2, 1,3,\r\n     9     5,0, 5,5, 4,6, 2,6, 1,5, 1,4, 2,3, 4,3, 5,4/\r\nC\r\nC ... DATA FOR DRAWING CHARACTERS A TO M.\r\nC\r\n      DATA CHRAM /\r\n     A     0,0, 3,6, 5,2, 1,2, 5,2, 6,0,\r\n     B     0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3, 4,3, 5,2, 5,1, 4,0, 0,0,\r\n     C     5,5, 4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1,\r\n     D     5,4, 4,6, 0,6, 0,0, 4,0, 5,2, 5,4,\r\n     E     5,6, 0,6, 0,3, 3,3, 0,3, 0,0, 5,0,\r\n     F     5,6, 0,6, 0,3, 3,3, 0,3, 0,0,\r\n     G     5,5, 4,6, 1,6, 0,5, 0,1, 1,0, 4,0, 5,1, 5,3, 3,3,\r\n     H     0,6, 0,0, 0,3, 5,3, 5,0, 5,6,\r\n     I     2,6, 4,6, 3,6, 3,0, 2,0, 4,0,\r\n     J     3,6, 5,6, 4,6, 4,1, 3,0, 1,0, 0,1,\r\n     K     0,6, 0,0,-5,0, 0,3, 5,6,\r\n     L     0,6, 0,0, 5,0,\r\n     M     0,0, 0,6, 3,0, 6,6, 6,0/\r\nC\r\nC ... DATA FOR DRAWING CHARACTERS N TO Z.\r\nC\r\n      DATA CHRNZ /\r\n     N     0,0, 0,6, 5,0, 5,6,\r\n     O     6,5, 5,6, 1,6, 0,5, 0,1, 1,0, 5,0, 6,1, 6,5,\r\n     P     0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3,\r\n     Q     6,5, 5,6, 1,6, 0,5, 0,1, 1,0, 5,0, 6,1, 6,5,-4,2, 6,0,\r\n     R     0,0, 0,6, 4,6, 5,5, 5,4, 4,3, 0,3, 3,3, 5,0,\r\n     S     5,5, 4,6, 1,6, 0,5, 0,4, 1,3, 4,3, 5,2, 5,1, 4,0, 1,0, 0,1,\r\n     T     0,6, 3,6, 3,0, 3,6, 6,6,\r\n     U     0,6, 0,1, 1,0, 4,0, 5,1, 5,6,\r\n     V     0,6, 3,0, 6,6,\r\n     W     0,6, 1,0, 3,4, 5,0, 6,6,\r\n     X     0,6, 6,0,-6,6, 0,0,\r\n     Y     0,6, 3,3, 3,0, 3,3, 6,6,\r\n     Z     0,6, 6,6, 0,0, 6,0/\r\nC\r\nC ... DATA FOR DRAWING CHARACTERS ( TO -.\r\nC\r\n      DATA CHLPQM /\r\n     (     5,6, 3,4, 3,2, 5,0,\r\n     )     1,6, 3,4, 3,2, 1,0,\r\n     +     3,5, 3,1,-1,3, 5,3,\r\n     -     1,3, 5,3,\r\n     *     1,5, 5,1,-3,5, 3,1,-5,5, 1,1,-5,3, 1,3,\r\n     /     0,0, 6,6,\r\n     =     1,4, 4,4,-1,2, 4,2,\r\n     .     2,0, 2,1, 3,1, 3,0, 2,0,\r\n     ,     1,0, 3,2,\r\n     $     6,5, 5,6, 1,6, 0,5, 0,4, 1,3, 5,3, 6,2, 6,1, 5,0, 3,0, 3,6,\r\n     $          3,0, 1,0, 0,1,\r\n     -     3,6, 3,4/\r\nC\r\nC ... DATA FOR DRAWING DOT, SQUARE, DIAMOND, TRIANGLE.\r\nC\r\n      DATA CHRSYM /\r\n     D     3,4, 2,3, 3,2, 4,3, 3,4,\r\n     S     0,0, 0,6, 6,6, 6,0, 0,0,\r\n     D     3,6, 0,3, 3,0, 6,3, 3,6,\r\n     T     0,0, 3,6, 6,0, 0,0/\r\nC\r\n      DATA BUFSIZ / 0 /,\r\nC    1 ... CAMERA 2,  1 BLANK FRAME,  PLOTTER MODEL --M,1--\r\n     1     CAMERA,BFRAMS,PLTMDL,TAPDEN / 2, 1, 1HM, 1, 0 /,\r\nC    2 ... PAPER = DEFAULT,VELLUM...PEN SIZE = 1, COLOR = BLACK\r\n     2     NOPENS,PAPSIZ,PAPTYP,PENSIZ,PENCLR /\r\n     2     8, 2*0., 4HVELL, 2HUM, 8*1, 8*4HBLAC, 8*1HK /,\r\nC    3 ... FIND THE SCALES, MAX DEFORMATION = 0\r\n     3     SCALE(2),FSCALE,MAXDEF / 1.,1,0. /,\r\nC    4 ... AXES = +X,+Y,+Z, VIEW ANGLES\r\n     4     AXIS,DAXIS,VANGLE / 1,2,3,1,2,3, 0.,-1.E10,34.27,23.17,0./,\r\nC    5 ... FIND VANTAGE POINT, ORTHOGRAPIC PROJECTION, PLANE+OCULAR SEP.\r\n     5     FVP,PRJECT,D02,D03,S0S / 1,1,1.,2.,2.756  /,\r\nC    6 ... LEFT=BOTTOM=0, RIGHT=TOP=1.\r\n     6     NORG,ORG,FORG,EDGE / 10,0,1,22*0.,22*1.   /,\r\nC    7 ... NCNTR=10=NO. CONTOURS, CNTR=LIST CONTOUR VALUES, ICNTVL=\r\nC          MAJOR PRIN. STRESS, WHERE = Z1, DIRECT = COMMON\r\n     7     NCNTR,CNTR,ICNTVL,WHERE,DIRECT,FLAG,LASSET/\r\n     7     10 ,50*0.0,1,     1,    2,     0,   0     /,\r\nC    8 ... DATA FOR USER PLOT TITLE CARD\r\n     8     FPLTIT,PLTITL / 0, 17*4H      /,\r\nC    9 ... OFFSET SCALE (AND ALSO PLOT TAPE MESSAGE CONTROL)\r\n     9     OFFSCL / 0    /\r\nC\r\nC ... PLOTTER DATA.\r\nC\r\n      DATA  MODEL,PLOTER,CHRSCL / -1, 1, 1.0 /\r\nC\r\nC ... 1  NASTRAN GENERAL PURPOSE MICROFILM PLOTTER.\r\nC\r\n      DATA  DATA( 1,1) /1023.0   /,\r\n     2      DATA( 2,1) /1023.0   /,\r\n     3      DATA( 3,1) / 146.1429/,\r\n     4      DATA( 4,1) /   8.0   /,\r\n     5      DATA( 5,1) /  16.0   /,\r\n     6      DATA( 6,1) /1023.0   /,\r\n     8      DATA( 8,1) /   0.0   /,\r\n     9      DATA( 9,1) /   0.0   /,\r\n     1      DATA(11,1) /4HPLT2   /,\r\n     4      DATA(14,1) /1484.761 /,\r\n     5      DATA(15,1) /   0.0   /,\r\n     6      DATA(16,1) /   0.0   /,\r\n     7      DATA(17,1) /   0.0   /,\r\n     8      DATA(18,1) /   0.0   /,\r\n     9      DATA(19,1) /   0.0   /,\r\n     *      DATA(20,1) /   0.0   /\r\nC\r\nC ... 2  NASTRAN GENERAL PURPOSE TABLE OR DRUM PLOTTER\r\nC\r\n      DATA  DATA( 1,2) /3000.0   /,\r\n     2      DATA( 2,2) /3000.0   /,\r\n     3      DATA( 3,2) / 100.0   /,\r\n     4      DATA( 4,2) /   8.0   /,\r\n     5      DATA( 5,2) /  16.0   /,\r\n     6      DATA( 6,2) /3000.0   /,\r\n     8      DATA( 8,2) /   0.0   /,\r\n     9      DATA( 9,2) /   0.0   /,\r\n     1      DATA(11,2) /4HPLT2   /,\r\n     4      DATA(14,2) / 100.0   /,\r\n     5      DATA(15,2) /   0.0   /,\r\n     6      DATA(16,2) /   0.0   /,\r\n     7      DATA(17,2) /   0.0   /,\r\n     8      DATA(18,2) /   0.0   /,\r\n     9      DATA(19,2) /   0.0   /,\r\n     *      DATA(20,2) /   0.0   /\r\nC\r\n      DATA NPENS(1,1),PLTYPE(1,1),PBFSIZ(1,1),EOF(1,1)/ 64,-1,3000,1 /,\r\n     1     NPENS(1,2),PLTYPE(1,2),PBFSIZ(1,2),EOF(1,2)/ 64,-2,3000,1 /\r\nC\r\nC ... SYMBOL DATA.\r\nC\r\n      DATA NSYM,SYMBOL /  9,\r\nC           X, *, +, -, DOT, CIRCLE, SQUARE, DIAMOND, TRIANGLE\r\n     1     34,41,39,40,  48,     49,     50,      51,       52, 11*0,\r\n     2     34,41,39,40,  48,     49,     50,      51,       52, 11*0/\r\nC\r\nC ... PLOTTER SCRATCH AREA\r\nC\r\nC          NCOR = ARRAY LENGTH\r\n      DATA NCOR,PLTSC  / 50,50*0 /\r\nC\r\nC ... DATA FOR DRAWING A X-Y-Z COORDINATE TRIAD IN /DRWAXS/\r\nC     G   - X,Y,Z COORD. POINT DATA AND SYMBOLS\r\nC\r\n      DATA    G     / 9*0.0, 1HX, 1HY, 1HZ /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/readbd.f",
    "content": "      BLOCK DATA READBD\r\nCREADBD\r\n      INTEGER         SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,ORDER,RSTRT,\r\n     1                PHIA,OEIGS\r\n      REAL            LMIN,LMAX\r\n      COMMON /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE,\r\n     1                RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7,\r\n     2                NFOUND,LAMA,IBUCK,NSYM\r\n      COMMON /INVPWX/ IFILK(7),IFILM(7),IFILLM(7),IFILVC(7),\r\n     1                ISCR1,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7,ISCR8,\r\n     2                IDUMP,LMIN,LMAX,NOEST,NDPLUS,NDMNUS,EPS,NOVECT\r\n      COMMON /GIVN  / G1,MO,MD,MR1,M1,M2,M3,M4,G2(8),RSTRT,NCOL,G3(2),\r\n     1                G4(82),ORDER,G5(2),LGAMA,G6(4),OEIGS,PHIA,G7(2),\r\n     2                MAX,X(35)\r\n      DATA    MO    , MD ,MR1,M1 ,M2 ,M3 ,M4 ,LGAMA,OEIGS,PHIA /\r\n     1        301   , 304,202,303,307,308,309,201  ,204  ,305  /\r\n      DATA    ORDER , RSTRT,NCOL,MAX,IM     ,IK     ,IEV             /\r\n     1        -2    , 0    ,0   ,253,102,6*0,101,6*0,302,0,0,2,1,0,0 /\r\n      DATA    SCR1  , SCR2,SCR3,SCR4,SCR5,LAMA,SCR6,SCR7 /\r\n     1        306   , 307 ,303 ,304 ,305 ,301 ,308 ,204  /\r\n      DATA    RMAX  , RMIN,EPSI   ,RMINR      /\r\n     1        100.0 , .01 ,1.0E-11,-.001      /\r\n      DATA    MZ    , NEV,NE,NIT,NEVM,NFOUND  /\r\n     1        0     , 9  ,4 ,30 ,5   ,0       /\r\n      DATA    IFILK , IFILM  ,IFILLM ,IFILVC  /\r\n     1        101,6*0,102,6*0,201,6*0,202,6*0 /\r\n      DATA    ISCR1 ,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7,ISCR8,IDUMP/\r\n     1        301   ,302  ,303  ,304  ,305  ,306  ,307  ,308  ,204  /\r\n      DATA    NOEST ,NDPLUS,NDMNUS,EPS  ,NOVECT,LMIN,LMAX,NSYM      /\r\n     1        5     ,5     ,0     ,.0001,0     ,0.  ,60.  ,0        /\r\n      END\r\n"
  },
  {
    "path": "bd/sdr2bd.f",
    "content": "      BLOCK DATA SDR2BD\r\nCSDR2BD\r\n      IMPLICIT INTEGER (A-Z)\r\nC\r\n      INTEGER         RFMTS(40)\r\nC\r\n      COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM ,IFROUT,\r\n     2                ISLOAD,IDLOAD,ISORC\r\nC\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS ,XYCDB ,\r\n     4                SCR3  ,PCOMPS,OES1L ,OEF1L\r\nC\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM ,\r\n     8                ISOPL8\r\nC\r\n      EQUIVALENCE     (STA(1),RFMTS(1))\r\nC\r\nC*****\r\nC     DATA DEFINING POSITIONS OF PARAMETERS IN A CASE CONTROL RECORD.\r\nC*****\r\n      DATA  IEIGEN/  5/,IELDEF/  6/,ITLOAD/  7/,ISYMFL/ 16/,ILOADS/ 17/,\r\n     1      IDISPL/ 20/,ISTR  / 23/,IELF  / 26/,IACC  / 29/,IVEL  / 32/,\r\n     2      ISPCF / 35/,ITTL  / 39/,ILSYM /200/,IFROUT/145/,ISLOAD/  4/,\r\n     3      IDLOAD/ 13/,ISORC /136/\r\nC*****\r\nC     DATA DEFINING DATA BLOCK FILE NUMBERS.\r\nC*****\r\n      DATA  CASECC/101/,CSTM  /102/,MPT   /103/,DIT   /104/,EQEXIN/105/,\r\n     1      SIL   /106/,GPTT  /107/,EDT   /108/,BGPDT /109/,PG    /110/,\r\n     2      QG    /111/,UGV   /112/,EST   /113/,PHIG  /112/,EIGR  /110/,\r\n     3      OPG1  /201/,OQG1  /202/,OUGV1 /203/,OES1  /204/,OEF1  /205/,\r\n     4      PUGV1 /206/,OEIGR /201/,OPHIG /203/,PPHIG /206/,ESTA  /301/,\r\n     5      GPTTA /302/,HARMS /137/,XYCDB /114/,SCR3  /303/,PCOMPS/116/,\r\n     6      OES1L /207/,OEF1L /208/\r\nC*****\r\nC     DATA DEFINING RIGID FORMATS.\r\nC*****\r\n      DATA  NRIGDS/ 10   /,\r\n     1      RFMTS / 4HSTAT,4HICS ,\r\n     2              4HREIG,4HEN  ,\r\n     3              4HDS0 ,4H    ,\r\n     4              4HDS1 ,4H    ,\r\n     5              4HFREQ,4H    ,\r\n     6              4HTRAN,4HSNT ,\r\n     7              4HBKL0,4H    ,\r\n     8              4HBKL1,4H    ,\r\n     9              4HCEIG,4HEN  ,\r\n     O              4HPLA ,4H    ,\r\n     1              20*0         /\r\nC*****\r\nC     MISC. DATA.\r\nC*****\r\n      DATA   NAM  / 4HSDR2,4H    /, END/4HEND /, DTYPE/2,3,1,5,4,6,7,8/,\r\n     1       MSET / 1001/ ,ISOPL8/  0  /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/semdbd.f",
    "content": "      BLOCK DATA SEMDBD\r\nCSEMDBD\r\nC\r\nC     *****  PRINCIPAL BLOCK DATA PROGRAM FOR NASTRAN  *****\r\nC     (NOTE - MACHINE DEPENDENT CONSTANTS ARE INITIALIZED IN BTSTRP)\r\nC\r\nC     REVISED 7/91 BY G.CHAN/UNISYS\r\nC     MAKE SURE THERE IS NO VARIABLES OR ARRAYS NOT INITIALIZED. GAPS\r\nC     OR MISSING INITIALIZED DATA MAY CAUSE PROBLEMS IN SOME MACHINES.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL     BITPAS, FIRST,  NOTYET, OPNSOF, PASS,  PCT,  STAR\r\n      INTEGER     KSYSTM(100)\r\n      REAL        OSCAR,  OTAPID, TAPID , TIMDTA, TIME,  TOLEL,X\r\n      CHARACTER   UFM*23, UWM*25, UIM*29, SFM*25, SWM*27, SIM*31\r\n      EQUIVALENCE (KSYSTM(1),SYSBUF)\r\nC\r\nC\r\nC     -------------------     /GINOX  /     ----------------------------\r\nC\r\nC     GINOX WORDS USED IN GINO\r\nC     VAX AND UNIX USE 636 WORDS (SEE GINO.MDS)\r\nCDC   CDC USES ONLY 244 WORDS (SEE CDC IO6600). CDC IS CORE THIRSTY AND\r\nCDC   THE 392 WORDS IN OTHERS HERE, AND ON THE DATA LINE BELOW, CAN BE\r\nCDC   COMMENTED OUT TO SAVE CORE SPACE FOR THE CDC MACHINE.\r\nC\r\n      COMMON /GINOX /    CDC(244)\r\n     1,               OTHERS(392)\r\nC            --------------------\r\nC                     TOTAL= 636\r\nC\r\nC     -------------------     /XMSSG  /     ----------------------------\r\nC\r\nC     USER FATAL/WARNING/INFO AND SYSTEM FATAL/WARNING/INFO MESSAGES\r\nC\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM, SIM\r\nC\r\nC     -------------------     /NUMTPX /     ----------------------------\r\nC\r\nC     BCD-LOOK ALIKE FLOATING NUMBERS, USED ONLY BY NUMTYP SUBROUTINE.\r\nC     DATA WILL BE LOADED FROM NASINFO.DOC FILE BY NSINFO\r\nC\r\n      COMMON /NUMTPX/ NBCD, BCD(19)\r\nC\r\nC     -------------------     / BLANK  /     ---------------------------\r\nC\r\nCWKBR COMMON /BLANK / IBLNK(60)\r\n      COMMON /BLANK / IBLNK(100)\r\nC\r\nC     -------------------     / NTIME  /     ---------------------------\r\nC\r\nC     THE NTIME COMMON BLOCK CONTAINS TIMING CONSTANT DATA FOR THE\r\nC     CURRENTLY RUNNING MACHINE CONFIGURATION AS DETERMINED BY THE\r\nC     TMTSIO AND TMTSLP SUBROUTINES\r\nC\r\n      COMMON /NTIME / LNTIME, TIMDTA(23)\r\nC\r\nC     -------------------     / XLINK  /     ---------------------------\r\nC\r\nC     SPECIFIES MODULE LINK RESIDENCE, AND PROVIDES LINK SWITCHING\r\nC     INFORMATION FOR LINK DRIVER SUBROUTINES, XSEMi.\r\nC     LXLINK = NUMBER OF WORDS IN MXLINK.\r\nC     MAXLNK = MAX NUMBER OF LINKS - SEE XGPIBS IF THIS NUMBER IS\r\nC              INCREASED.\r\nC     MXLINK = MODULE LINK SPECIFICATION TABLE - THIS TABLE IS\r\nC              INITIALIZED BY SUBROUTINE XGPIBS.\r\nC\r\n      COMMON /XLINK / LXLINK, MAXLNK, MXLINK(220)\r\nC\r\nC     -------------------     / SEM    /     ---------------------------\r\nC\r\nC     SEM DEFINES DATA FOR THE LINK DRIVERS (XSEMI).\r\nC     MASK   = OSCAR MASK\r\nC     MASK2,MASK3 =  OSCAR MASKS (MACHINE DEPENDENT).\r\nC     NAME   = ARRAY OF LINK NAMES\r\nC\r\nCWKBR COMMON /SEM   / MASK, MASK2, MASK3, NAME(15)\r\n      COMMON /SEM   / MASK, MASK2, MASK3, NAME(30)\r\nC\r\nC     -------------------     / SYSTEM /     ---------------------------\r\nC\r\nC     SYSTEM DEFINES VARIOUS MACHINE DEPENDENT, OPERATING SYSTEM AND\r\nC     NASTRAN PARAMETERS.\r\nC   1-\r\nC     SYSBUF = (MACHINE DEPENDENT) NO. OF WORDS IN A GINO BUFFER.\r\nC     OUTTAP = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR SYSTEM\r\nC              PRINT OUTPUT\r\nC     NOGO   = FLAG DEFINING EXECUTION STATUS DURING -FRONT END-.\r\nC     INTP   = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR SYSTEM\r\nC              INPUT\r\nC     MPC    = MULTI-POINT CONSTRAINT SET ID  FOR CURRENT SUBCASE.\r\nC     SPC    = SINGLE-POINT CONSTRAINT SET ID  FOR CURRENT SUBCASE.\r\nC     LOGFL  = CONSOLE/LOGFILE MESSAGE CONTROL.\r\nC     LOAD   = POINTER TO FIRST RECORD IN CASE CONTROL DATA BLOCK\r\nC              FOR CURRENT SUBCASE.\r\nC     NLPP   = (MACHINE DEPENDENT) NUMBER OF LINES PER PAGE OF PRINTED\r\nC              OUTPUT.\r\nC     MTEMP  = MATERIAL TEMPERATURE SET ID.\r\nC  11-\r\nC     NPAGES = CURRENT  PAGE COUNT.\r\nC     NLINES = CURRENT NUMBER OF LINES ON CURRENT PAGE.\r\nC     TLINES = TOTAL NUMBER OF LINES PRINTED IN JOB.\r\nC     MXLINS = MAXIMUM NO. OF LINES OF PRINTED OUTPUT FOR THE PROBLEM.\r\nC     DATE   = TODAY-S DATE, INTEGERS, 2 DIGITS EACH\r\nC      (3)\r\nC     TIMEZ  = CPU TIME IN SECONDS, WHEN PROBLEM BEGAN. NOT NECESSARY\r\nC              ZERO. TIMEZ IS USED IN TMTOGO\r\nC     ECHOF  = NUMBER INDICATING FORM OF BULK DATA ECHO.\r\nC     PLOTF  = FLAG INDICATING REQUEST FOR STRUCTURAL PLOTS (NON-ZERO=\r\nC              PLOT, SEE PLOTOPT IN SUBROUTINE NASCAR FOR MORE DETAILS)\r\nC  21-\r\nC     APPRCH = APPROACH FLAG (1 = FORCE, 2 = DISPL , 3 = DMAP).\r\nC              APPRCH .LT. 0 MEANS THIS IS A RESTART.\r\nC     LINKNO = CURRENT LINK NO. (IN BCD, E.G. NSXX)  INITIALLY SET TO\r\nC              NS01 IN SUBROUTINE BTSTRP.  SUBSEQUENTLY SET TO THE\r\nC              CORRECT LINK NO. IN SUBROUTINE ENDSYS.\r\nC            = WAS THE MACHINE TYPE, MACH (LEVEL 17 AND EALIDER VERSION)\r\nC     LSYSTM = LENGTH OF SYSTEM COMMON BLOCK.\r\nC     ICFIAT = REPLACING EDTUMF FLAG HERE, WHICH IS NO LONGER USED.\r\nC    (EDTUMF)  ICFIAT IS THE NUMBER OF WORDS PER FIAT ENTRY.\r\nC            . IF ICFIAT=8, DATA BLOCK GINO TRAILER 6 WORDS ARE PACKED\r\nC              INTO 4TH, 5TH, AND 6TH WORDS OF EACH FIAT ENTRY.\r\nC            . IF ICFIAT=11, NO PACKING IN FIAT ENTRY, AND THE TRAILER 6\r\nC              WORDS ARE SAVED IN 4TH THRU 6TH, AND 9TH THRU 11TH WORDS.\r\nC              THE TRAILER WORDS ARE THEREFORE NOT BOUNDED BY SIZE\r\nC              LIMITATION OF 65535 (HALF OF A 32-BIT WORD).\r\nC            . THE FIAT POINTERS IN /XFIST/ MUST BE IN COMPLETE AGREE-\r\nC              MENT WITH THE SELECTION OF ICFIAT=8, OR ICFIAT=11.\r\nC              (SEE THE DATA SETTING OF /XFIST/ BELOW)\r\nC            . THE REST OF NASTRAN .MIS ROUTINES ARE CODED TO HANDLE\r\nC              ICFIAT=8 OR 11 AUTOMATICALLY. THE .MDS ROUTINES ARE NOT\r\nC              AFFECTED SINCE THE 7TH AND 8TH WORDS OF THE FIAT ENTRY\r\nC              REMAIN UNCHANGED.\r\nC            = WAS EDTUMF FLAG, USED IN PRE-1987 NASTRAN VERSION\r\nC     RFFLAG = RIGID FORMAT FLAG\r\nC     CPPGCT = PAGE COUNT USED BY XCHK ROUTINE\r\nC     MN     = NUMBER OF RINGS/NUMBER OF HARMONICS FOR AXISYMMETRIC\r\nC              SHELL.\r\nC     DUMMYI = (UNUSED WORD)\r\nC     MAXFIL = MAXIMUM NUMBER OF UNITS TO BE ALLOCATED TO FIAT.\r\nC     MAXOPN = MAXIMUM NUMBER OF FILES OPEN AT ONE TIME.\r\nC  31-\r\nC     HICORE = HI-CORE LENGTH FOR UNIVAC AND VAX\r\nC     TIMEW  = PROBLEM START TIME (INTEGR SECONDS AFTER MIDNITE)\r\nC     OFPFLG = OFP OPERATE FLAG - SET NON-ZERO WHEN OFP OPERATES\r\nC     NBRCBU = (CDC ONLY) LENGTH OF FET + DUMMY INDEX\r\nC              UNIVAC DRUM FILE ALLOCATION (1 FOR POSITION, 2 FOR TRACK)\r\nC     LPRUS  = (CDC ONLY) NUMBER OF WORDS PER PHYSICAL RECORD UNIT (PRU)\r\nC     NPRUS  = (CDC ONLY) NUMBER OF PRU-S PER GINO RECORD BLOCK\r\nC     KSYS37 = ERROR CONTROL WORD, USED LOCALLY BY QPARMD AND QPARMR.\r\nC              ALSO USED LOCALLY IN LINK1 FOR NASINFO FILE UNIT NO.\r\nC     QQ     = HYDROELASTIC PROBLEM FLAG.\r\nC     NBPC   = (MACHINE DEPENDENT) NO. OF BITS PER CHARACTER.\r\nC     NBPW   = (MACHINE DEPENDENT) NO. OF BITS PER WORD.\r\nC  41-\r\nC     NCPW   = (MACHINE DEPENDENT) NO. OF CHARACTERS PER WORDS.\r\nC     SYSDAT = THREE BCD WORD ARRAY CONTAINING MONTH, ' 19', AND LAST\r\nC      (3)     TWO DIGITS OF YEAR OF SYSTEM GENERATION DATE.\r\nC              THESE CELLS ARE SET BY SUBROUTINE NASCAR.\r\nC     TAPFLG = WORD SET BY NASTRAN CARD TO INDICATE FILES TO BE TAPES\r\nC              WHETHER OR NOT THEY ARE ON DISK.  BITS TURNED ON COUNTING\r\nC              FROM RIGHT REPRESENT THE FILES IN XXFIAT.\r\nC     ADUMEL = NINE WORD ARRAY CONTAINING DATA EXTRACTED FROM THE ADUM-I\r\nC      (9)     CARDS BY IFP.\r\nC  55-\r\nC     IPREC  = PRECISION FLAG, 1=SP, 2=DP.\r\nC     ITHRML = THERMAL ANALYSIS FLAG,  0=STRUCTURAL ANALYSIS,\r\nC                                      1=THERMAL ANALYSIS.\r\nC     MODCOM = NINE WORD ARRAY FOR MODULE COMMUNICATIONS.\r\nC      (9)     SYSTEM(58), PRE-SELECT METHOD FOR MPYAD (1,2,3,DEFAULT=0)\r\nC              SYSTEM(59), PLOT TAPE TRACK SIZE\r\nC  66-\r\nC     HDY    = THREE WORD ARRAY ALA SEW\r\nC      (3)\r\nC     SSCELL = MULTILEVEL SUBSTRUCTURE ANALYSIS COMMUNICATION CELL.\r\nC     TOLEL  = SINGULARITY TOLERANCE FOR SMA1,EMG. RESET BY NASCAR.\r\nC  71-\r\nC     MESDAY = DAYFILE MESSAGE FLAG\r\nC     BITPAS = CDC TAPE PROCESSING BIT - FALSE FOR LINK1 ONLY\r\nC     PASS   = CDC MESSAGE AND TIMING FLAG - FALSE FOR LINK1 ONLY\r\nC     ITIME  = WAS: WALL TIME ELAPSED SINCE PROBLEM START (SECONDS)\r\nC            = IS : PROBLEM START TIME IN SECONDS SINCE JAN-1-1970,\r\nC                   GREENWICH-MEAN-TIME (GMT)\r\nC     CTIME  = WAS: CENTRAL PROCESSOR TIME SINCE PROBLEM START (SECONDS)\r\nC            = IS : PRINT FLAG FOR DMAP SEQUENCE NO. AND NAME, ALL LINKS\r\nC                   (SEE NASTRN OR NAST01.MDS)\r\nC     NOSBE  = (CDC ONLY) FLAG FOR NOS(0) OR NOSBE(1)\r\nC     BANDIT = BANDIT OPTION FLAG (SEE BANDIT FOR MORE DETAILS)\r\nC     PZEL   = PIEZOELECTRIC PROBLEM FLAG (INPUT VIA NASTRAN SYSTEM(78))\r\nC     SWITCH = SENSE SWITCH BITS FOR DIAG CARD AND USED BY SSWTCH\r\nC      (3)\r\nC  82-\r\nC     ICPFLG = CHECKPOINT FLAG (0 = NO CHECKPOINT, 1 = CHECKPOINT)\r\nC     JRUN   = JRUN FOR VARIAN  (HEAT PROBLEM)\r\nC     JMAX   = JMAX FOR VARIAN  (HEAT PROBLEM)\r\nC     LINTC  = MAX. ALLOWABLE LINES OF INTERSECTION USED IN HDPLOT\r\nC     INTRA  = INTERACTIVE REQUEST FLAG FOR PLOT, OUTPUT, AND SCAN\r\nC              (0=NONE, 1=PLOT ONLY, 2=OUTPUT PRINT AND SCAN ONLY,\r\nC               3=BOTH)\r\nC     OSPCNT = BAR OFFSET WARNING MESSAGE IF OFFSET BAR LENGTH EXCEEDS\r\nC              NON-OFFEST LENGTH BY THIS LIMIT (DEFAULT IS 15 PERCENT)\r\nC     K88 90 = 3 WORDS RESERVED FOR USER. WILL NOT BE USED BY COSMIC\r\nC              =========================\r\nC  91-\r\nC     LPCH   = (MACHINE DEPENDENT) FORTRAN LOGICAL UNIT NO. FOR PUNCH\r\nC     LDICT  = FORTRAN LOGICAL UNIT NO. FOR RESTART DICTIONARY PUNCH\r\nC     IAEROT = INTEGER FLAG INDICATING AERODYNAMIC THEORY\r\nC              (SPECIFIED VIA NASTRAN CARD AND USED ONLY IN APDB MODULE\r\nC              0 FOR COMPRESSOR BLADES, THEORY 6, DEFAULT,\r\nC              1 FOR SWEPT TURBOPROP. BLADES, THEORY 7)\r\nC     KSYS94 = FLAG FOR REMOVALS OF MPYDRI(1), MPY4T(10), NEW FBS(100),\r\nC              TRNSPS(1000), AND NEW FBS IN FEER(10000)\r\nC     SPERLK = NASTRAN SUPERLINK FLAG. SET BY SEMDBD OR NASTRN\r\nC              FOR UNIX MACHINE\r\nC     LEFT   = (85 UNUSED WORDS).  KSYS99 USED IN ERRTRC\r\nC\r\nC\r\n      DIMENSION       DATE(3),SYSDAT(3),ADUMEL(9),MODCOM(9),HDY(3),\r\n     1                SWITCH(3),K88 90(3) ,LEFT(56),LEFT2(28)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP,NOGO  ,INTP  ,MPC   ,SPC   ,LOGFL ,\r\n     1                LOAD  ,NLPP  ,MTEMP ,NPAGES,NLINES,TLINES,MXLINS,\r\n     2                DATE  ,TIMEZ ,ECHOF ,PLOTF ,APPRCH,LINKNO,LSYSTM,\r\n     3                ICFIAT,RFFLAG,CPPGCT,MN    ,DUMMYI,MAXFIL,MAXOPN,\r\n     4                HICORE,TIMEW ,OFPFLG,NBRCBU,LPRUS ,NPRUS ,KSYS37,\r\n     5                QQ    ,NBPC  ,NBPW  ,NCPW  ,SYSDAT,TAPFLG,ADUMEL,\r\n     6                IPREC ,ITHRML,MODCOM,HDY   ,SSCELL,TOLEL ,MESDAY,\r\n     7                BITPAS,PASS  ,ITIME ,CTIME ,NOSBE ,BANDIT,PZEL  ,\r\n     8                SWITCH,ICPFLG,JRUN  ,JMAX  ,LINTC ,INTRA ,OSPCNT,\r\n     9    K88 90,LPCH  ,LDICT ,IAEROT,KSYS94,SPERLK,LEFT,LOGLIN,LEFT2\r\nC\r\nC     -------------------     / XFIST  /     ---------------------------\r\nC\r\nC     XFIST IS THE FILE STATUS TABLE (FIST).\r\nC     NFIST  = TOTAL NO. OF ENTRIES IN FIST.\r\nC     LFIST  = NO. OF ENTRIES IN THE CURRENT FIST.\r\nC     FIST   = TABLE OF TWO-WORD ENTRIES.\r\nC              FIRST WORD IS GINO FILE NAME.\r\nC              SECOND WORD POINTS TO XFIAT IF .GT. 0 (I.E. NON-PERMANENT\r\nC              ENTRY), OR POINTS TO XXFIAT IF .LE. 0 (I.E. PERMANENT\r\nC              ENTRY). SIGN BIT MUST BE SET FOR ZERO POINTER ON 7094.\r\nC\r\n      COMMON /XFIST / NFIST, LFIST, FIST(112)\r\nC\r\nC     -------------------     / XPFIST /     ---------------------------\r\nC\r\nC     XPFIST DEFINES THE NO. OF PERMANENT ENTRIES IN THE FIST.\r\nC\r\n      COMMON /XPFIST/ NPFIST\r\nC\r\nC     -------------------     / XXFIAT /     ---------------------------\r\nC\r\nC     XXFIAT IS EXECUTIVE FILE ALLOCATION TABLE.\r\nC\r\n      COMMON /XXFIAT/ XXFIAT(24)\r\nC\r\nC     -------------------     / XFIAT  /     ---------------------------\r\nC\r\nC     XFIAT IS THE MODULE FILE ALLOCATION TABLE (FIAT).\r\nC     MFIAT  = NO. OF UNIQUE FILES IN FIAT.\r\nC     NFIAT  = TOTAL NO. OF ENTRIES IN FIAT.\r\nC     LFIAT  = NO. OF ENTRIES IN CURRENT FIAT.\r\nC     FIAT   = TABLE OF 8 OR 11 WORDS PER ENTRY OF GINO FILES\r\nC              (DEFAULT IS SET BY ICFIAT, THE 24TH WORD OF /SYSTEM/)\r\nC            . 1ST WORD DEFINES THE FILE + PURGE,EQVIV,SETUP,ETC INFO.\r\nC            . 2ND AND 3RD WORDS DEFINE THE DATA BLOCK NAME (IN BCD)\r\nC              WHICH IS ATTACHED TO THE FILE.\r\nC            . SEE ICFIAT (24TH WORD OF /SYSTEM/) FOR THE DESCRIPTION\r\nC              OF 4TH THRU 8TH (OR 11TH) WORDS.\r\nC            . SET FIAT(880) IF 11-WORD/ENTRY TABLE IS USED, AND\r\nC              SET FIAT(640) IF  8-WORD/ENTRY TABLE IS USED\r\nC\r\nCWKBR COMMON /XFIAT / MFIAT, NFIAT, LFIAT, FIAT(880)\r\n      COMMON /XFIAT / MFIAT, NFIAT, LFIAT, FIAT(1100)\r\nC\r\nC     -------------------     / OSCENT /     ---------------------------\r\nC\r\nC     OSCENT DEFINES A STORAGE BLOCK FOR THE CURRENT OSCAR ENTRY.\r\nC\r\n      COMMON /OSCENT/ OSCAR(200)\r\nC\r\nC     -------------------     / OUTPUT /     ---------------------------\r\nC\r\nC     OUTPUT DEFINES A STORAGE BLOCK WHERE PROBLEM TITLE, SUBTITLE\r\nC     AND LABEL ARE STORED.\r\nC\r\n      COMMON /OUTPUT/ OUTPUT(224)\r\nC\r\nC     -------------------     / XDPL   /     ---------------------------\r\nC\r\nC     XDPL DEFINES THE DATA POOL DICTIONARY.\r\nC     MDPL   = POINTER TO NEXT AVAILABLE FILE.\r\nC     NDPL   = TOTAL NO. OF ENTRIES IN DPL.\r\nC     LDPL   = CURRENT NO. OF ENTRIES IN DPL.\r\nC     DPL    = TABLE OF THREE-WORD ENTRIES\r\nC              1ST + 2ND WORDS ARE DATA BLOCK NAME\r\nC              3RD WORD DEFINES EQUIV FLAG, APPROX SIZE OF DATA BLOCK\r\nC              AND FILE NO. IN THE POOL.\r\nC\r\n      COMMON /XDPL  / MDPL, NDPL, LDPL, DPL(240)\r\nC\r\nC     -------------------     / XVPS   /     ---------------------------\r\nC\r\nC     XVPS IS THE VARIABLE PARAMETER STORAGE TABLE.\r\nC     VPS(1) = TOTAL NO. OF WORDS IN VPS.\r\nC     VPS(2) = POINTER TO LAST WORD USED IN VPS.\r\nC     VPS(3) = TABLE FOR STORAGE OF PARAMETERS\r\nC              (VARIABLE NO OF WORDS/ENTRY).\r\nC\r\n      COMMON /XVPS  / VPS(600)\r\nC\r\nC     -------------------     / STAPID /     ---------------------------\r\nC\r\nC     STAPID CONTAINS THE I.D. FOR THE NEW AND OLD PROBLEM TAPES.\r\nC     TAPID  = SIX-WORD I.D. FOR NEW PROBLEM TAPE.\r\nC     OTAPID = SIX-WORD I.D. FOR OLD PROBLEM TAPE.\r\nC     IDUMF  = (OBSOLETE) ID FOR USER-S MASTER FILE.\r\nC\r\n      COMMON /STAPID/ TAPID(6), OTAPID(6), IDUMF\r\nC\r\nC     -------------------     / STIME  /     ---------------------------\r\nC\r\nC     STIME DEFINES USER-S ESTIMATED PROBLEM SOLUTION TIME.\r\nC\r\n      COMMON /STIME / TIME(2)\r\nC\r\nC     -------------------     / XCEITB /     ---------------------------\r\nC\r\nC     XCEITB DEFINES LOOP CONTROL PARAMETERS FOR THE CONTROL ENTRY\r\nC     INTERP.\r\nC     CEI(1) = TOTAL NO. OF WORDS IN TABLE.\r\nC     CEI(2) = POINTER TO LAST WORD USED.\r\nC     CEI(3) = TABLE OF FOUR-WORD ENTRIES.\r\nC\r\n      COMMON /XCEITB/ CEI(42)\r\nC\r\nC     -------------------     / XMDMSK /     ---------------------------\r\nC\r\nC     XMDMSK DEFINES MASK FOR MODIFIED RESTART.\r\nC     NMSKCD = NUMBER OF MASK WORDS FOR CARDS (CURRENTLY SET TO 3)\r\nC     NMSKFL = NUMBER OF MASK WORDS FOR FILES (CURRENTLY SET TO 3)\r\nC     NMSKRF = NUMBER OF MASK WORDS FOR RIGID FORMATS (CURRENTLY 1)\r\nC     MSK    = MASK OF (NMSKCD+NMSKFL+NMSKRF) WORDS (31 BITS/WORD)\r\nC\r\n      COMMON /XMDMSK/ NMSKCD, NMSKFL, NMSKRF, MSK(7)\r\nC\r\nC     -------------------     / MSGX   /     ---------------------------\r\nC\r\nC     MSGX DEFINES A TABLE WHERE MESSAGES ARE QUEUED.\r\nC     NMSG   = NUMBER OF MESSAGES CURRENTLY IN QUEUE.\r\nC     MSGLG  = TOTAL NO. OF ENTRIES IN THE MESSAGE QUEUE.\r\nC     MSG    = TABLE OF FOUR-WORD ENTRIES WHERE MESSAGES ARE STORED.\r\nC\r\n      COMMON /MSGX  / NMSG, MSGLG, MSG(4,40)\r\nC\r\nC     -------------------     / DESCRP /     ---------------------------\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS, 7/1991\r\nC     LABEL COMMON /DESCRP/ APPEARS IN THE FOLLOWING SUBROUTINES. BUT\r\nC     IT IS ACTUALLY NEVER USED.\r\nC        SEMDBD, DECOMP, GENVEC, GFBS,   TRANSP, CDCOMP, CTRNSP, INVTR,\r\nC        MTIMSU, MTMSU1, CDIFBS, INTFBS, MATVC2, MATVEC, ORTCK,  CINFBS,\r\nC        CMTIMU, AND INVFBS\r\nC     IN ADDITION, INTPK IN VAX, IBM, CDC AND UNIVAC, DOES NOT USE THIS\r\nC     /DESCRP/ LABEL COMMON.\r\nC     STARTING IN 1992 VERSION, LABEL COMMON /DESCRP/ IS COMPLETELY\r\nC     REMOVED FROM ALL NASTRAN SUBROUTINES.\r\nC\r\nC     DESCRP IS A STORAGE BLOCK USED BY SUBROUTINE INTPK.\r\nC     LENGTH = TOTAL NO. OF WORDS IN BLOCK.\r\nC\r\nC     COMMON /DESCRP/ LENGTH, BLOCK(50)\r\nC\r\nC     -------------------     / TWO    /     ---------------------------\r\nC\r\nC     TWO DEFINES THE BITS IN A 32-BIT COMPUTER WORD (FROM LEFT TO RT).\r\nC     MZERO = WILL BE SET TO -0.0 (= LSHIFT(1,NBPW-1) = SIGN BIT ON) BY\r\nC             BTSTRP, AND WILL BE USED BY NUMTYP\r\nC\r\n      COMMON /TWO   / TWO(32),MZERO\r\nC\r\nC     -------------------     / NAMES  /     ---------------------------\r\nC\r\nC     NAMES DEFINES VALUES FOR GINO FILE OPTIONS,ARITHMETIC TYPES\r\nC     AND MATRIX FORMS.\r\nC\r\n      COMMON /NAMES /RD    ,RDREW ,WRT   ,WRTREW,REW   ,NOREW ,EOFNRW,\r\n     1               RSP   ,RDP   ,CSP   ,CDP   ,SQUARE,RECT  ,DIAG  ,\r\n     2               LOWER ,UPPER ,SYM   ,ROW   ,IDENT\r\nC\r\nC     -------------------     / TYPE   /     ---------------------------\r\nC\r\nC     TYPE DEFINES PROPERTIES AS A FUNCTION OF ARITHMETIC TYPE.\r\nC     PRC    = PRECISION (1=SP, 2=DP).\r\nC     NWDS   = NO. OF WORDS PER ELEMENT.\r\nC     RC     = ARITHMETIC (1=REAL, 2=COMPLEX).\r\nC     X      = PAD TO DEFINE WORK AREA.\r\nC\r\n      COMMON /TYPE  / PRC(2), NWDS(4), RC(4), X(6)\r\nC\r\nC     -------------------     / BITPOS /     ---------------------------\r\nC\r\nC     BITPOS DEFINES THE BIT POSITIONS FOR THE DEGREES-OF-FREEDOM IN\r\nC     USET, AND HOLLERITH CHARACTERS DESCRIBING DEGREES-OF-FREEDOM.\r\nC\r\n      COMMON /BITPOS/ UM  ,UO  ,UR  ,USG ,USB ,UL  ,UA  ,UF  ,US  ,UN  ,\r\n     1                UG  ,UE  ,UP  ,UNE ,UFE ,UD  ,UPS ,USA ,UK  ,UPA ,\r\n     2                U21 ,U22 ,U23 ,UX  ,UY  ,UFR ,UZ  ,UAB ,UI  ,U30 ,\r\n     3                U31 ,U32 ,\r\n     O                HM  ,HO  ,HR  ,HSG ,HSB ,HL  ,HA  ,HF  ,HS  ,HN  ,\r\n     1                HG  ,HE  ,HP  ,HNE ,HFE ,HD  ,HPS ,HSA ,HK  ,HPA ,\r\n     2                H21 ,H22 ,H23 ,HX  ,HY  ,HFR ,HZ  ,HAB ,HI  ,H30 ,\r\n     3                H31 ,H32\r\nC\r\nC     -------------------     / SOFCOM /     ---------------------------\r\nC\r\nC     SOFCOM DEFINES THE NAMES AND SIZES OF THE SOF FILES AND THE STATE\r\nC     OF THE SOF\r\nC     NFILES = NUMBER OF FILES ALLOCATED TO THE SOF (MAX 10)\r\nC     FILNAM = 4 CHAR. BCD NAMES OF THE SOF FILES\r\nC     FILSIZ = SIZES OF THE SOF FILES EXPRESSED IN AN EVEN NUMBER OF\r\nC              BLOCKS\r\nC     STATUS = SOF STATUS.  0 - SOF IS EMPTY.  1 - SOF IS NOT EMPTY.\r\nC     PSSWRD = BCD PASSWORD FOR THE SOF.  EACH RUN USING THE SAME SOF\r\nC              MUST USE THE SAME PASSWORD.\r\nC     FIRST  = .TRUE. IF SOFINT HAS NOT YET BEEN CALLED TO INITIALIZE\r\nC              THE SOF FOR THIS RUN.  OTHERWISE .FALSE.\r\nC     OPNSOF = .TRUE. IF THE SOF IS OPEN.  .FALSE. IF IT IS CLOSED.\r\nC     ASOFCB = ADDRESS OF SOF CONTROL BLOCKS ON IBM 360/370 COMPUTERS\r\nC\r\n      COMMON /SOFCOM/ NFILES, FILNAM(10), FILSIZ(10), STATUS, PSSWRD(2),\r\n     1                FIRST , OPNSOF    , ASOFCB\r\nC\r\nC     --------------------    / XXREAD /     ---------------------------\r\nC\r\nC     INFLAG AND INSAVE ARE USED IN READFILE COMMAND. IRRX USED IN\r\nC     FFREAD\r\nC\r\n      COMMON /XXREAD/ INFLAG, INSAVE, IXXR(3)\r\nC\r\nC     --------------     /XECHOX/ AND /XREADX/     ---------------------\r\nC\r\nC     IECHO      = USED IN FREE-FIELD INPUT FOR INPUT CARD ECHO CONTROL\r\nC     IXSORT,IWASFF,NCARD = USED LOCALLY AMONG XSORT, XREAD, AND FFREAD\r\nC     NOECHO     = USED IN FFREAD AND XCSA ROUTINES\r\nC\r\nC     SCREEN,PROM= LOGICAL UNIT FOR TERMINAL SCREEN AND PROMPT SYMBOL\r\nC     CONTRL NOTYET,STAR,PCT = FREE-FIELD INPUT FLAGS USED IN XREAD\r\nC     LOOP,KOUNT = LOOP COUNT USED IN XREAD\r\nC     ICONT      = 36 CONTROL WORDS USED IN FREE-FILED INPUT NOT TO BE\r\nC                  DESTROYED\r\nC\r\n      COMMON /XECHOX/ IECHO(4), IXSORT, IWASFF, NCARD(3), NOECHO\r\n      COMMON /XREADX/ SCREEN  , LOOP  , KOUNT , PROM    , NOTYET, STAR,\r\n     1                PCT     , ICONT(36)\r\nC\r\nC     --------------     /MACHIN/ AND /LHPWX/     ---------------------\r\nC\r\nC     6 MACHINE CONSTANTS IN /MACHIN/ AND 7 IN /LHPWX/ WILL BE\r\nC     INITIALZED BY BTSTRP. THESE CONSTANTS NEED TO BE SAVED IN THE ROOT\r\nC     LEVEL OF ALL LINKS\r\nC\r\n      COMMON /MACHIN/ MA(6)\r\n      COMMON /LHPWX / LH(7)\r\nC\r\nC\r\nC     ==================================================================\r\nC\r\nC     -------------------     / GINOX  /     ---------------------------\r\nC\r\n      DATA    CDC   / 244*0   /\r\n      DATA    OTHERS/ 392*0   /\r\nC\r\nC     -------------------     / XMSSG  /     ---------------------------\r\nC                               1         2         3\r\nC                      1234567890123456789012345678901\r\n      DATA    UFM   / '0*** USER FATAL MESSAGE'        /\r\n      DATA    UWM   / '0*** USER WARNING MESSAGE'      /\r\n      DATA    UIM   / '0*** USER INFORMATION MESSAGE'  /\r\n      DATA    SFM   / '0*** SYSTEM FATAL MESSAGE'      /\r\n      DATA    SWM   / '0*** SYSTEM WARNING MESSAGE'    /\r\n      DATA    SIM   / '0*** SYSTEM INFORMATION MESSAGE'/\r\nC\r\nC     -------------------     /NUMTPX  /     --------------------------\r\nC\r\n      DATA    NBCD  /  0      /\r\n      DATA    BCD   /  19*0   /\r\nC\r\nC     -------------------     /BLANK  /     --------------------------\r\nC\r\nCWKBR DATA    IBLNK /  56*0, 4H CEA, 4HSE E, 4HMPIR, 4HE >  /\r\n      DATA    IBLNK /  96*0, 4H CEA, 4HSE E, 4HMPIR, 4HE >  /\r\nC\r\nC     -------------------     / NTIME  /     ---------------------------\r\nC\r\nCWKBR DATA    LNTIME/ 16      /\r\nCWKBR 9/94 SPR94009      DATA    LNTIME/ 23      /      \r\n      DATA    LNTIME/ 16      /      \r\nCWKBR DATA    TIMDTA/ 16*0.   /\r\n      DATA    TIMDTA/ 23*0.   /\r\nC\r\nC     USE A NASTRAN BULKDATA=-3 CARD TO ACTIVATE TIME CONSTANTS COMPUTA-\r\nC     TION AND PRINT OUT FROM SUBROUTINES TMTSIO AND TMTSLP.\r\nC\r\nC     EXAMPLE - THE FOLLOWING CARDS CAN BE USED FOR UNIVAC 1100/82 IN\r\nC     MSFC TO ELIMINATE HARDWARE TIME COMPUTATION IN EVERY NASTRAN RUN.\r\nC\r\nC     DATA    TIMDTA/  0.51, 15.73, 15.00, 11.10, 10.00,  2.20,  2.23,\r\nC    1                 4.00,  5.28, 15.90, 19.40,  4.00,  5.80, 16.45,\r\nC    2                20.16,  0.00/\r\nC\r\nC     SIMILARLY, THE NEXT TABLE FOR VAX 11/780 MACHINE AT COSMIC SITE\r\nC\r\nC     DATA    TIMDTA/ 12.30,  88.0,  76.0, 78.0 ,  76.0, 16.0 , 30.0 ,\r\nC    1                 7.00,  12.0,  20.0, 35.0 ,   8.0, 12.0 , 24.0 ,\r\nC    2                36.00,  14.2/\r\nC\r\nC     SIMILARLY, THE NEXT TABLE FOR MICRO VAX 3600 MACHINE AT COSMIC\r\nC     SITE\r\nC\r\nC     DATA    TIMDTA/ 12.30,  88.0,  76.0, 78.0 ,  76.0, 16.0 , 30.0 ,\r\nC    1                 7.00,  12.0,  20.0, 35.0 ,   8.0, 12.0 , 24.0 ,\r\nC    2                36.00,   0.0/\r\nC\r\nC\r\nC     AND THE NEXT TABLE FOR IBM 3084 MACHINE AT MSFC SITE\r\nC\r\nC     DATA    TIMDTA/  1.12,  5.28,  4.59,  2.04,  1.86,  1.06,  1.10,\r\nC    1                 0.78,  0.82,  2.69,  2.80,  0.78,  0.87,  2.70,\r\nC    2                 2.82,  0.00/\r\nC\r\nC\r\nC     NOTE - STARTING 1991 VERSION, THESE TIMINGS CONSTANTS CAN BE FED\r\nC     ****   DIRECTLY INTO NASTRAN EXECUTABLE VIA THE NASINFO FILE.\r\nC            THUS, EACH COMPUTER CENTER CAN EASILY SUPPLY THE CORRECT\r\nC            TIMING CONSTANTS FOR ITS MACHINE. (SEE THE WRITE-UP IN THE\r\nC            NASINFO FILE)\r\nC            THE 16TH TIMING IS FOR READING STRING BACKWARD. CURRENTLY\r\nC            NOT USED\r\nC\r\nC     -------------------     / XLINK  /     ---------------------------\r\nC\r\n      DATA    LXLINK/ 220 /,  MAXLNK / 15/,  MXLINK / 220*0 /\r\nC\r\nC     -------------------     / SEM    /     ---------------------------\r\nC\r\n      DATA    MASK  / 65535/, MASK2 , MASK3 / 2*0  /,         NAME  /\r\n     1        4HNS01, 4HNS02, 4HNS03, 4HNS04, 4HNS05, 4HNS06, 4HNS07,\r\n     2        4HNS08, 4HNS09, 4HNS10, 4HNS11, 4HNS12, 4HNS13, 4HNS14,\r\n     3        4HNS15, 4HNS16, 4HNS17, 4HNS18, 4HNS19, 4HNS20, 4HNS21,\r\n     4        4HNS22, 4HNS23, 4HNS24, 4HNS25, 4HNS26, 4HNS27, 4HNS28,\r\n     5        4HNS29, 4HNS30 /\r\nC\r\nC     -------------------     / SYSTEM /     ---------------------------\r\nC\r\n      DATA    SYSBUF,OUTTAP,NOGO  ,INTP  ,MPC   ,SPC   ,LOGFL   /\r\n     *        0     ,0     ,0     ,0     ,0     ,0     ,0       /,\r\nC                   USED ONLY IN MSFC, UNIVAC VERSION - LOGFL = 190\r\n     1        LOAD  ,NLPP  ,MTEMP ,NPAGES,NLINES,TLINES,MXLINS  /\r\n     *        1     ,0     ,0     ,0     ,0     ,0     ,20000   /,\r\n     2        DATE  ,TIMEZ ,ECHOF ,PLOTF ,APPRCH,LINKNO,LSYSTM  /\r\n     *        3*0   ,0     ,2     ,0     ,0     ,0     ,180     /,\r\n     3        ICFIAT,RFFLAG,CPPGCT,MN    ,DUMMYI,MAXFIL,MAXOPN  /\r\n     *        11    ,0     ,0     ,0     ,0     ,35    ,16      /,\r\n     4        HICORE,TIMEW ,OFPFLG,NBRCBU,LPRUS ,NPRUS ,KSYS37  /\r\n     *        85000 ,0     ,0     ,15    ,64    ,0     ,0       /,\r\nC        VAX: HICORE IS SET TO 50,000 BY BTSTRP\r\n     5        QQ    ,NBPC  ,NBPW  ,NCPW  ,SYSDAT,TAPFLG,ADUMEL  /\r\n     *        0     ,0     ,0     ,0     ,3*0   ,0     ,9*0     /,\r\n     6        IPREC ,ITHRML,MODCOM,HDY   ,SSCELL,TOLEL ,MESDAY  /\r\n     *        0     ,0     ,9*0   ,3*0   ,0     ,0.01  ,0       /\r\n      DATA    BITPAS,PASS  ,ITIME ,CTIME ,NOSBE ,BANDIT,PZEL    /\r\n     *        2*.FALSE.    ,0     ,0     ,0     ,0     ,0       /,\r\n     8        SWITCH,ICPFLG,JRUN  ,JMAX  ,LINTC ,INTRA ,OSPCNT  /\r\n     *        3*0   ,0     ,0     ,0     ,800   ,0     ,15      /,\r\n     9 K88 90,LPCH  ,LDICT ,IAEROT,KSYS94,SPERLK,LEFT  ,LOGLIN,LEFT2 /\r\n     * 3*0   ,0     ,0     ,0     ,0     ,0     ,56*0  ,0     ,28*0  /\r\nC\r\nC     -------------------     / XFIST  /     ---------------------------\r\nC\r\n      DATA    NFIST / 56 /, LFIST /  56 /,  FIST /\r\n     1        4HPOOL,  0,4HOPTP, -1,4HNPTP, -2,4HUMF , -3,4HNUMF, -4,\r\n     2        4HPLT1, -5,4HPLT2, -6,4HINPT, -7,4HINP1, -8,4HINP2, -9,\r\n     3        4HINP3,-10,4HINP4,-11,4HINP5,-12,4HINP6,-13,4HINP7,-14,\r\n     4        4HINP8,-15,4HINP9,-16,4HXPTD,-17,4HSOF ,-18,4HUT1 ,-19,\r\n     5        4HUT2 ,-20,4HUT3 ,-21,4HUT4 ,-22,4HUT5 ,-23,\r\nC\r\nC     USE VALUES BELOW WHEN ICFIAT (24TH WORD OF /SYSTEM/) IS 8\r\nC    6           201,  3,   202, 11,   203, 19,   204, 27,   205, 35,\r\nC    7        4HCASE, 43,   207, 51,4HPCDB, 59,   208, 67,   209, 75,\r\nC    8           210, 83,   211, 91,   213, 99,   214,107,   215,115,\r\nC    9           216,123,   301,131,   302,  3,   303, 11,   304, 19,\r\nC    O           305, 27,   306, 35,4HXYCD,139,   307, 67,   308, 75,\r\nC    1           309, 83,   310, 91,   311, 99,   312,107,   313,115,\r\nC    2           314,123,   315,147/\r\nC\r\nC     USE VALUES BELOW WHEN ICFIAT (24TH WORD OF /SYSTEM/) IS 11\r\n     6           201,  3,   202, 14,   203, 25,   204, 36,   205, 47,\r\n     7        4HCASE, 58,   207, 69,4HPCDB, 80,   208, 91,   209,102,\r\n     8           210,113,   211,124,   213,135,   214,146,   215,157,\r\n     9           216,168,   301,179,   302,  3,   303, 14,   304, 25,\r\n     O           305, 36,   306, 47,4HXYCD,190,   307, 91,   308,102,\r\n     1           309,113,   310,124,   311,135,   312,146,   313,157,\r\n     2           314,168,   315,201/\r\nC\r\nC     -------------------     / XPFIST /     ---------------------------\r\nC\r\n      DATA    NPFIST/ 24   /\r\nC\r\nC     -------------------     / XXFIAT /     ---------------------------\r\nC\r\n      DATA    XXFIAT/ 24*0 /\r\nC\r\nC     -------------------     / XFIAT  /     ---------------------------\r\nC\r\nC     USE 8*0 EACH INSTEAD OF 5*0 WHEN ICFIAT = 11\r\nC\r\nCWKBR DATA    MFIAT / 0 /, NFIAT / 80 /, LFIAT / 0 /, FIAT /\r\n      DATA    MFIAT / 0 /, NFIAT / 100/, LFIAT / 0 /, FIAT /\r\n     1                0, 4HGEOM, 4H1   , 8*0 ,\r\n     2                0, 4HEPT , 4H    , 8*0 ,\r\n     3                0, 4HMPT , 4H    , 8*0 ,\r\n     4                0, 4HEDT , 4H    , 8*0 ,\r\n     5                0, 4HDIT , 4H    , 8*0 ,\r\n     6                0, 4HCASE, 4HCC  , 3*7 , 2*0 , 3*7 ,\r\n     7                0, 4HDYNA, 4HMICS, 8*0 ,\r\n     8                0, 4HPCDB, 4H    , 8*0 ,\r\n     9                0, 4HGEOM, 4H2   , 8*0 ,\r\n     O                0, 4HGEOM, 4H3   , 8*0 ,\r\n     1                0, 4HGEOM, 4H4   , 8*0 ,\r\n     2                0, 4HGEOM, 4H5   , 8*0 ,\r\n     3                0, 4HFORC, 4HE   , 8*0 ,\r\n     4                0, 4HMATP, 4HOOL , 8*0 ,\r\n     5                0, 4HAXIC, 4H    , 8*0 ,\r\n     6                0, 4HIFPF, 4HILE , 8*0 ,\r\n     7                0, 4HSCRA, 4HTCH1, 8*0 ,\r\n     8                0, 4HXYCD, 4HB   , 8*0 ,\r\nCWKBR9                0, 4HSCRA, 4HTC15, 8*0 , 671*0 /\r\n     9                0, 4HSCRA, 4HTC15, 8*0 , 671*0, 220*0 /\r\nC\r\nC     -------------------     / OSCENT /     ---------------------------\r\nC\r\n      DATA    OSCAR / 200*4H    /\r\nC\r\nC     -------------------     / OUTPUT /     ---------------------------\r\nC\r\n      DATA    OUTPUT/ 224*4H    /\r\nC\r\nC     -------------------     / XDPL   /     ---------------------------\r\nC\r\n      DATA    MDPL  / 1 /,  NDPL / 80 /,  LDPL  / 0 /,  DPL / 240*0 /\r\nC\r\nC     -------------------     / XVPS   /     ---------------------------\r\nC\r\n      DATA    VPS   / 600,  2,   598*0    /\r\nC\r\nC     -------------------     / STAPID /     ---------------------------\r\nC\r\n      DATA    TAPID / 6*0.0 /,   OTAPID  / 6*0.0 /\r\n      DATA    IDUMF /   0   /\r\nC\r\nC     -------------------     / STIME  /     ---------------------------\r\nC\r\n      DATA    TIME  / 2*0.0 /\r\nC\r\nC     -------------------     / XCEITB /     ---------------------------\r\nC\r\n      DATA    CEI   / 42,   2,   40*0  /\r\nC\r\nC     -------------------     / XMDMSK /     ---------------------------\r\nC\r\n      DATA    NMSKCD, NMSKFL, NMSKRF, MSK / 3, 3, 1, 7*0  /\r\nC\r\nC     -------------------     / MSGX   /     ---------------------------\r\nC\r\n      DATA    NMSG  / 0 /,  MSGLG /  40 /,  MSG / 160*0   /\r\nC\r\nC     -------------------     / DESCRP /     ---------------------------\r\nC\r\nC     DATA    LENGTH / 50 /,   BLOCK / 50*0 /\r\nC\r\nC     -------------------     / TWO    /     ---------------------------\r\nC\r\nC     TWO(1)  = LSHIFT(1,31), IS MACHINE DEPENDENT (SET BY BTSTRP)\r\nC     MZERO   = WILL BE SET TO LSHIFT(1,NBPW-1) BY BTSTRP\r\nC\r\n      DATA    TWO   /          0,\r\n     1                1073741824, 536870912, 268435456, 134217728,\r\n     2                  67108864,  33554432,  16777216,   8388608,\r\n     3                   4194304,   2097152,   1048576,    524288,\r\n     4                    262144,    131072,     65536,     32768,\r\n     5                     16384,      8192,      4096,      2048,\r\n     6                      1024,       512,       256,       128,\r\n     7                        64,        32,        16,         8,\r\n     8                         4,         2,         1/\r\n      DATA    MZERO / 0 /\r\nC\r\nC     -------------------     / NAMES  /     ---------------------------\r\nC\r\n      DATA    RD    / 2 /,  RDREW / 0 /,  WRT   / 3 /,  WRTREW/ 1 /,\r\n     1        REW   / 1 /,  NOREW / 2 /,  EOFNRW/ 3 /,  RSP   / 1 /,\r\n     2        RDP   / 2 /,  CSP   / 3 /,  CDP   / 4 /,  SQUARE/ 1 /,\r\n     3        RECT  / 2 /,  DIAG  / 3 /,  LOWER / 4 /,  UPPER / 5 /,\r\n     4        SYM   / 6 /,  ROW   / 7 /,  IDENT / 8 /\r\nC\r\nC     -------------------     / TYPE   /     ---------------------------\r\nC\r\n      DATA    PRC   /     1,     2/      ,\r\n     1        NWDS  /     1,     2,     2,     4/,\r\n     2        RC    /     1,     1,     2,     2/,\r\n     3        X     /     6*0.0   /\r\nC\r\nC     -------------------     / BITPOS /     ---------------------------\r\nC\r\n      DATA    UM  /32/  ,  HM  /2HM /  ,     UPS /16/  ,  HPS /2HPS/  ,\r\n     1        UO  /30/  ,  HO  /2HO /  ,     USA /15/  ,  HSA /2HSA/  ,\r\n     2        UR  /29/  ,  HR  /2HR /  ,     UK  /14/  ,  HK  /2HK /  ,\r\n     3        USG /23/  ,  HSG /2HSG/  ,     UPA /13/  ,  HPA /2HPA/  ,\r\n     4        USB /22/  ,  HSB /2HSB/  ,     U21 /10/  ,  H21 /4HXXXX/,\r\n     5        UL  /24/  ,  HL  /2HL /  ,     U22 /11/  ,  H22 /4HYYYY/,\r\n     6        UA  /25/  ,  HA  /2HA /  ,     U23 /12/  ,  H23 /4HZZZZ/,\r\n     7        UF  /26/  ,  HF  /2HF /  ,     UX  / 9/  ,  HX  /2HX /  ,\r\n     8        US  /31/  ,  HS  /2HS /  ,     UY  / 8/  ,  HY  /2HY /  ,\r\n     9        UN  /27/  ,  HN  /2HN /  ,     UFR / 7/  ,  HFR /2HFR/  ,\r\n     O        UG  /28/  ,  HG  /2HG /  ,     UZ  / 6/  ,  HZ  /2HZ /  ,\r\n     1        UE  /21/  ,  HE  /2HE /  ,     UAB / 5/  ,  HAB /2HAB/  ,\r\n     2        UP  /20/  ,  HP  /2HP /  ,     UI  / 4/  ,  HI  /2HI /  ,\r\n     3        UNE /19/  ,  HNE /2HNE/  ,     U30 / 3/  ,  H30 /2HU3/  ,\r\n     4        UFE /18/  ,  HFE /2HFE/  ,     U31 / 2/  ,  H31 /2HU2/  ,\r\n     5        UD  /17/  ,  HD  /2HD /  ,     U32 / 1/  ,  H32 /2HU1/\r\nC\r\nC     -------------------     / SOFCOM /     ---------------------------\r\nC\r\n      DATA    NFILES/ 1          /\r\n      DATA    FILNAM/ 4HINPT,9*0 /\r\n      DATA    FILSIZ/ 100   ,9*0 /\r\n      DATA    STATUS/ 1          /\r\n      DATA    PSSWRD/ 2*4H       /\r\n      DATA    FIRST / .TRUE.     /\r\n      DATA    OPNSOF/ .FALSE.    /\r\n      DATA    ASOFCB/ 0          /\r\nC\r\nC     --------------------    / XXREAD /     ---------------------------\r\nC\r\n      DATA    INFLAG, INSAVE, IXXR / 5*0 /\r\nC\r\nC     --------------     /XECHOX/ AND /XREADX/     ---------------------\r\nC\r\n      DATA    IECHO , IXSORT, IWASFF, NCARD, NOECHO                /\r\n     1        4*0,    0,      0,      3*0,   0                     /\r\n      DATA    SCREEN, LOOP, KOUNT, PROM, NOTYET, STAR, PCT, ICONT  /\r\n     1        6,      -1,   0,     0,    3*.FALSE.,         36*0   /\r\nC\r\nC     --------------     /MACHIN/ AND /LHPWX/     ---------------------\r\nC\r\n      DATA    MA    / 6*0 /,  LH / 7*0 /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/sma1bd.f",
    "content": "      BLOCK DATA SMA1BD\r\nCSMA1BD\r\nC\r\n      INTEGER           CLSRW    ,CLSNRW   ,EOR      ,OUTRW\r\n      DOUBLE PRECISION  DPDUM(514)\r\n      COMMON  /SMA1IO/  IFCSTM   ,IFMPT    ,IFDIT    ,IDUM1    ,\r\n     1                  IFECPT   ,IGECPT   ,IFGPCT   ,IGGPCT   ,\r\n     2                  IFGEI    ,IGGEI    ,IFKGG    ,IGKGG    ,\r\n     3                  IF4GG    ,IG4GG    ,IFGPST   ,IGGPST   ,\r\n     4                  INRW     ,OUTRW    ,CLSNRW   ,CLSRW    ,\r\n     5                  NEOR     ,EOR      ,MCBKGG(7),MCB4GG(7)\r\nC\r\nC     SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON  /SMA1BK/  ICSTM    ,NCSTM    ,IGPCT    ,NGPCT    ,\r\n     1                  IPOINT   ,NPOINT   ,I6X6K    ,N6X6K    ,\r\n     2                  I6X64    ,N6X64\r\n      COMMON  /SMA1DP/  DPDUM\r\nC\r\nC     SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON  /SMA1CL/  IOPT4    ,K4GGSW   ,NPVT     ,LEFT     ,\r\n     1                  FROWIC   ,LROWIC   ,NROWSC   ,TNROWS   ,\r\n     2                  JMAX     ,NLINKS   ,LINK(10) ,IDETCK   ,\r\n     3                  DODET    ,NOGOO    ,DUMMY(200)\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON  /SMA1ET/  ECPT(200)\r\nC\r\nC\r\n      DATA     NLINKS / 10 /\r\n      DATA     NOGOO  /  0 /\r\n      DATA     IFCSTM,IFMPT,IFECPT,IFGPCT,IFDIT / 101,102,103,104,105 /\r\n      DATA     IFKGG,IF4GG,IFGPST / 201,202,203 /\r\n      DATA     INRW,CLSRW,CLSNRW,EOR,NEOR,OUTRW / 0,1,2,1,0,1 /\r\n      END\r\n"
  },
  {
    "path": "bd/sma2bd.f",
    "content": "      BLOCK DATA SMA2BD\r\nCSMA2BD\r\nC\r\n      INTEGER         CLSRW,  CLSNRW, EOR,   OUTRW\r\n      COMMON /SMA2IO/ IFCSTM, IFMPT,  IFDIT, IDUM1, IFECPT, IGECPT,\r\n     1                IFGPCT, IGGPCT, IDUM2, IDUM3, IFMGG,  IGMGG,\r\n     2                IFBGG,  IGBGG,  IDUM4, IDUM5, INRW,   OUTRW,\r\n     3                CLSNRW, CLSRW,  NEOR,  EOR, MCBMGG(7),MCBBGG(7)\r\nC\r\nC     SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON /SMA2BK/ ICSTM,  NCSTM,  IGPCT, NGPCT, IPOINT, NPOINT,\r\n     1                I6X6M,  N6X6M,  I6X6B, N6X6B\r\nC\r\nC     SMA2 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON /SMA2CL/ IOPT4,  BGGIND, NPVT,  LEFT,  FROWIC, LROWIC,\r\n     1                NROWSC, TNROWS, JMAX,  NLINKS,LINK(10),NOGO,\r\n     2                DUMMY(202)\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /SMA2ET/ ECPT(200)\r\nC\r\n      DATA    NLINKS/ 10 /\r\n      DATA    NOGO  / 0  /\r\n      DATA    IFCSTM, IFMPT,IFECPT,IFGPCT,IFDIT  / 101,102,103,104,105 /\r\n      DATA    IFMGG , IFBGG       /     201,202  /\r\n      DATA    INRW  , CLSRW,CLSNRW,EOR,NEOR,OUTRW/ 0,1,2,1,0,1 /\r\n      END\r\n"
  },
  {
    "path": "bd/ta1abd.f",
    "content": "      BLOCK DATA TA1ABD\r\nCTA1ABD\r\nC\r\nC     /TA1ACM/ SPECIFIES THE OPEN CORE LABELED COMMONS /ZZEMXX/\r\nC              TO BE USED BY EACH ELEMENT TYPE IN LINK8 OVERLAY\r\nC              TREE.\r\nC              THE LABELED COMMONS /ZZEMXX/ ARE USED ONLY IN CDC\r\nC              AND UNIVAC TO COMPUTE (BY EMGSOC) THE OFFSET OF THE\r\nC              OPEN CORE BETWEEN /ZZEMXX/ AND /ZZEMGX/.\r\nC\r\nC              E.G. /ZZEM24/ IS ASSIGNED TO QUAD4 ELEMENT, TYPE 64\r\nC\r\nC\r\n      COMMON /TA1ACM/ IG(90)\r\nC\r\n      DATA    IG    /\r\n     O         1,  0,  1,  3,  4, 14, 14, 14, 14,  1,\r\n     1         2,  2,  2,  2, 14, 14, 14, 14, 14,  2,\r\n     2         2,  2,  2, 11,  2,  2,  2,  2, 11, 11,\r\n     3         0,  0,  0, 12, 28, 18, 19, 20, 17, 17,\r\n     4        17, 17, 17, 17, 17, 17, 17, 17, 17, 17,\r\n     5        17, 13, 21, 21, 21, 21, 21, 21, 21, 21,\r\n     6        21, 15, 16, 24, 22, 22, 22,  0,  0, 25,\r\n     7        26,  0, 48, 48, 48, 48, 48, 48, 48,  8,\r\n     8        23, 13, 27, 29, 29, 29,  0,  0,  0,  0/\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/tabfbd.f",
    "content": "      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      INTEGER HX01(32)\r\n      INTEGER HX02(32)\r\n      INTEGER HX03(32)\r\n      INTEGER HX04(32)\r\n      INTEGER HX05(32)\r\n      INTEGER HX06(32)\r\n      INTEGER HX07(32)\r\n      INTEGER HX08(32)\r\n      INTEGER HX09(32)\r\n      INTEGER HX10(32)\r\n      INTEGER HX11(32)\r\n      INTEGER HX12(32)\r\n      INTEGER HX13(32)\r\n      INTEGER HX14(32)\r\n      INTEGER HX15(32)\r\n      INTEGER HX16(32)\r\n      INTEGER HX17(32)\r\n      INTEGER HX18(32)\r\n      INTEGER HX19(32)\r\n      INTEGER HX20(32)\r\n      INTEGER HX21(32)\r\n      INTEGER HX22(32)\r\nC\r\n      COMMON /TABFTX/ LA,NA(2,21)  ,  HX(32,40)  , RE(21)\r\nC\r\n      EQUIVALENCE (HX01(1),HX(1, 1))\r\n      EQUIVALENCE (HX02(1),HX(1, 2))\r\n      EQUIVALENCE (HX03(1),HX(1, 3))\r\n      EQUIVALENCE (HX04(1),HX(1, 4))\r\n      EQUIVALENCE (HX05(1),HX(1, 5))\r\n      EQUIVALENCE (HX06(1),HX(1, 6))\r\n      EQUIVALENCE (HX07(1),HX(1, 7))\r\n      EQUIVALENCE (HX08(1),HX(1, 8))\r\n      EQUIVALENCE (HX09(1),HX(1, 9))\r\n      EQUIVALENCE (HX10(1),HX(1,10))\r\n      EQUIVALENCE (HX11(1),HX(1,11))\r\n      EQUIVALENCE (HX12(1),HX(1,12))\r\n      EQUIVALENCE (HX13(1),HX(1,13))\r\n      EQUIVALENCE (HX14(1),HX(1,14))\r\n      EQUIVALENCE (HX15(1),HX(1,15))\r\n      EQUIVALENCE (HX16(1),HX(1,16))\r\n      EQUIVALENCE (HX17(1),HX(1,17))\r\n      EQUIVALENCE (HX18(1),HX(1,18))\r\n      EQUIVALENCE (HX19(1),HX(1,19))\r\n      EQUIVALENCE (HX20(1),HX(1,20))\r\n      EQUIVALENCE (HX21(1),HX(1,21))\r\n      EQUIVALENCE (HX22(1),HX(1,22))\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      DATA LA / 9 /\r\n      DATA RE /1,1,1,1,1,1,1,0,1,1\r\n     1        ,1,1,1,1,1,1,1,1,1,1\r\n     2        ,1                    /\r\nC\r\n      DATA NA / 4HBGPD,4HT     ,  4HGPL ,4H      ,  4HCSTM,4H\r\n     4        , 4HGPLD,4H      ,  4HEQEX,4HIN    ,  4HEQDY,4HN\r\n     7        , 4HGPDT,4H      ,  4HGPTT,4H      ,  4HGPCT,4H\r\n     X        , 4H*10*,4H****  ,  4H*11*,4H****  ,  4H*12*,4H****\r\n     3        , 4H*13*,4H****  ,  4H*14*,4H****  ,  4H*15*,4H****\r\n     6        , 4H*16*,4H****  ,  4H*17*,4H****  ,  4H*18*,4H****\r\n     9        , 4H*19*,4H****  ,  4H*20*,4H****  ,  4H*21*,4H****\r\n     Z        /\r\nC\r\nC\r\n      DATA HX01/4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     1         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     2         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX02/4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     1         ,4H    ,4HFORM,4HATTE,4HD LI,4HST O,4HF TA,4HBLE ,4HDATA\r\n     2         ,4H BLO,4HCK  ,4H****,4H****,4H    ,4H( RE,4HCORD,4H****\r\n     3         ,4H  ) ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX03/4H    ,4H    ,4H    ,4H    ,4HINTE,4HRNAL,4H    ,4H COO\r\n     1         ,4HRDIN,4HATE ,4H    ,4H    ,4H    ,4H COO,4HRDIN,4HATES\r\n     2         ,4H IN ,4HBASI,4HC CO,4HORDI,4HNATE,4H SYS,4HTEM ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX04/4H    ,4H    ,4H    ,4H    ,4H   I,4HD   ,4H    ,4H SYS\r\n     1         ,4HTEM ,4HID  ,4H    ,4H    ,4H   X,4H    ,4H    ,4H\r\n     2         ,4H    ,4H   Y,4H    ,4H    ,4H    ,4H    ,4H   Z,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX05/4H    ,4H  IN,4HTERN,4HAL  ,4H    ,4H EXT,4HERNA,4HL GR\r\n     1         ,4HID  ,4H    ,4H EXT,4HERNA,4HL GR,4HID  ,4H    ,4H EXT\r\n     2         ,4HERNA,4HL GR,4HID  ,4H    ,4H EXT,4HERNA,4HL GR,4HID\r\n     3         ,4H    ,4H EXT,4HERNA,4HL GR,4HID  ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX06/4H    ,4H    ,4H ID ,4H    ,4H    ,4H OR ,4HSCAL,4HAR I\r\n     1         ,4HD   ,4H    ,4H OR ,4HSCAL,4HAR I,4HD   ,4H    ,4H OR\r\n     2         ,4HSCAL,4HAR I,4HD   ,4H    ,4H OR ,4HSCAL,4HAR I,4HD\r\n     3         ,4H    ,4H OR ,4HSCAL,4HAR I,4HD   ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX07/4H    ,4H  IN,4HTERN,4HAL  ,4H    ,4H   E,4HXTER,4HNAL\r\n     1         ,4HGRID,4H   S,4HEQUE,4HNCE ,4H    ,4H    ,4HEXTE,4HRNAL\r\n     2         ,4H GRI,4HD   ,4HSEQU,4HENCE,4H    ,4H    ,4H EXT,4HERNA\r\n     3         ,4HL GR,4HID  ,4H SEQ,4HUENC,4HE   ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX08/4H    ,4H    ,4H ID ,4H    ,4H    ,4H   O,4HR SC,4HALAR\r\n     1         ,4H ID ,4H    ,4HNUMB,4HER  ,4H    ,4H    ,4HOR S,4HCALA\r\n     2         ,4HR ID,4H    ,4H NUM,4HBER ,4H    ,4H    ,4H OR ,4HSCAL\r\n     3         ,4HAR I,4HD   ,4H  NU,4HMBER,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX09/4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     1         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     2         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX10/4H    ,4H    ,4H    ,4H  N ,4H    ,4H   I,4HD   ,4H\r\n     1         ,4HTYPE,4H    ,4H    ,4H R(I,4H,1) ,4H    ,4H    ,4H\r\n     2         ,4H R(I,4H,2) ,4H    ,4H    ,4H    ,4H R(I,4H,3) ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4HT(I),4H    ,4H    /\r\nC\r\n      DATA HX11/4H   E,4HXTER,4HNAL ,4H    ,4HEXTE,4HRNAL,4H GRI,4HD\r\n     1         ,4HINTE,4HRNAL,4H    ,4H EXT,4HERNA,4HL GR,4HID  ,4H INT\r\n     2         ,4HERNA,4HL   ,4H  EX,4HTERN,4HAL G,4HRID ,4H  IN,4HTERN\r\n     3         ,4HAL  ,4H   E,4HXTER,4HNAL ,4HGRID,4H   I,4HNTER,4HNAL /\r\nC\r\n      DATA HX12/4H   S,4HORT ,4HID  ,4H    ,4HOR S,4HCALA,4HR ID,4H\r\n     1         ,4H NUM,4HBER ,4H    ,4H OR ,4HSCAL,4HAR I,4HD   ,4H  NU\r\n     2         ,4HMBER,4H    ,4H  OR,4H SCA,4HLAR ,4HID  ,4H   N,4HUMBE\r\n     3         ,4HR   ,4H   O,4HR SC,4HALAR,4H ID ,4H    ,4HNUMB,4HER  /\r\nC\r\n      DATA HX13/4H   I,4HNTER,4HNAL ,4H    ,4H    ,4HCOOR,4HDINA,4HTE\r\n     1         ,4H    ,4H    ,4H COO,4HRDIN,4HATES,4H IN ,4HDEFI,4HNING\r\n     2         ,4H COO,4HRDIN,4HATE ,4HSYST,4HEM  ,4H    ,4H  DI,4HSPLA\r\n     3         ,4HCEME,4HNT C,4HOOR-,4H    ,4HCONS,4HTRAI,4HNT  ,4H    /\r\nC\r\n      DATA HX14/4H    ,4H  ID,4H    ,4H    ,4H    ,4HSYST,4HEM  ,4H\r\n     1         ,4H    ,4H    ,4H  X ,4H    ,4H    ,4H    ,4H    ,4HY\r\n     2         ,4H    ,4H    ,4H    ,4H Z  ,4H    ,4H    ,4H  DI,4HNATE\r\n     3         ,4H SYS,4HTEM ,4HID  ,4H    ,4H   C,4HODE ,4H    ,4H    /\r\nC\r\n      DATA HX15/4H   I,4HTERN,4HAL  ,4H    ,4H   T,4HEMPE,4HRATU,4HRE\r\n     1         ,4H    ,4H    ,4HDEFA,4HULT ,4HTEMP,4HERAT,4HURE ,4H\r\n     2         ,4H    ,4H   R,4HECOR,4HD NU,4HMBER,4H FOR,4H    ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX16/4H    ,4HINDE,4HX   ,4H    ,4H    ,4H SET,4H ID ,4H\r\n     1         ,4H    ,4H    ,4H    ,4H  OR,4H FLA,4HG   ,4H    ,4H\r\n     2         ,4H    ,4H ADD,4HITIO,4HNAL ,4HTEMP,4H. DA,4HTA  ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX17/4H  SU,4HBSEQ,4HUENT,4H REC,4HORDS,4H OF ,4H G P,4H T T\r\n     1         ,4H  TE,4HMPER,4HATUR,4HE DA,4HTA A,4HRE L,4HISTE,4HD UN\r\n     2         ,4HDER ,4HSET ,4HID A,4HND E,4HLEME,4HNT T,4HYPE ,4HBY E\r\n     3         ,4HLEME,4HNT I,4HD   ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX18/4H   R,4HECOR,4HD NU,4HMBER,4H   T,4HEMPE,4HRATU,4HRE S\r\n     1         ,4HET I,4HD   ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     2         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX19/4H    ,4H    ,4H    ,4H  F ,4HO R ,4HM A ,4HT T ,4HE D\r\n     1         ,4H  L ,4HI S ,4HT   ,4HO F ,4H  T ,4HA B ,4HL E ,4H  D\r\n     2         ,4HA T ,4HA   ,4HB L ,4HO C ,4HK   ,4HG P ,4HC T ,4H\r\n     3         ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX20/4H  RE,4HCORD,4H    ,4HPIVO,4HT  C,4HONNE,4HCTIN,4HG\r\n     1         ,4H    ,4H    ,4H    ,4H    ,4H SOR,4HTED ,4HLIST,4H OF\r\n     2         ,4H S I,4H L  ,4HNUMB,4HERS ,4HOF C,4HONNE,4HCTED,4H POI\r\n     3         ,4HNTS ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n      DATA HX21/4H  NU,4HMBER,4H    ,4HS I ,4HL   ,4H NUM,4HBER ,4H\r\n     1         ,4H( 1 ,4H)   ,4H  ( ,4H2 ) ,4H    ,4H( 3 ,4H)   ,4H  (\r\n     2         ,4H4 ) ,4H    ,4H( 5 ,4H)   ,4H  ( ,4H6 ) ,4H    ,4H( 7\r\n     3         ,4H)   ,4H  ( ,4H8 ) ,4H    ,4H( 9 ,4H)   ,4H ( 1,4H0 ) /\r\nC\r\n      DATA HX22/4H   S,4HORT ,4HID  ,4H    ,4HOR S,4HCALA,4HR ID,4H   C\r\n     1         ,4HODED,4H SIL,4H    ,4H OR ,4HSCAL,4HAR I,4HD   ,4HCODE\r\n     2         ,4HD SI,4HL   ,4H  OR,4H SCA,4HLAR ,4HID  ,4H COD,4HED S\r\n     3         ,4HIL  ,4H   O,4HR SC,4HALAR,4H ID ,4H  CO,4HDED ,4HSIL /\r\nC\r\n      END\r\n"
  },
  {
    "path": "bd/vdrbd.f",
    "content": "      BLOCK DATA VDRBD\r\nCVDRBD\r\nC BLOCK DATA FOR THE VECTOR DATA RECOVERY MODULE (VDR).\r\nC*****\r\n      INTEGER USETD,CASECC,EQDYN ,OEIGS ,PP    ,XYCDB ,PNL   ,OUTFLE\r\n     1       ,OPNL1,SCR1  ,SCR2  ,BUF1  ,BUF2  ,BUF3  ,CEI   ,FRQ\r\n     2       ,TRN  ,DIRECT,XSET0 ,BUF\r\nC\r\n      DIMENSION NAM(2)    ,BUF(50)      ,MASKS(6)\r\n     1         ,CEI(2)    ,FRQ( 2)      ,TRN(2)       ,MODAL(2)\r\n     2         ,DIRECT(2)\r\nC\r\n      COMMON/VDRCOM/VDRCOM,IDISP ,IVEL  ,IACC  ,ISPCF ,ILOADS,ISTR\r\n     1             ,IELF  ,IADISP,IAVEL ,IAACC ,IPNL  ,ITTL  ,ILSYM\r\n     2             ,IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS\r\n     3             ,PP    ,XYCDB ,PNL   ,OUTFLE,OPNL1 ,SCR1  ,SCR2\r\n     4             ,BUF1  ,BUF2  ,BUF3  ,NAM   ,BUF   ,MASKS ,CEI\r\n     5             ,FRQ   ,TRN   ,DIRECT,XSET0 ,VDRREQ,MODAL\r\nC\r\nC DATA DEFINING POSITION OF PARAMETERS IN CASE CONTROL RECORD.\r\nC\r\n      DATA   IDISP  / 20/ ,IVEL   / 32/ ,IACC   / 29/ ,ISPCF  / 35/\r\n     1      ,ILOADS / 17/ ,ISTR   / 23/ ,IELF   / 26/ ,IADISP /151/\r\n     2      ,IAVEL  /154/ ,IAACC  /157/ ,IPNL   / 10/ ,ITTL   / 39/\r\n     3      ,ILSYM  /200/ ,IFROUT /145/ ,IDLOAD / 13/\r\nC\r\nC DATA DEFINING GINO FILE NAMES\r\nC\r\n      DATA   CASECC /101/ ,EQDYN  /102/ ,USETD  /103/ ,INFILE /104/\r\n     1      ,OEIGS  /105/ ,PP     /105/ ,XYCDB  /106/ ,PNL    /107/\r\n     2      ,OUTFLE /201/ ,OPNL1  /202/ ,SCR1   /301/ ,SCR2   /302/\r\nC\r\nC MISC DATA\r\nC\r\n      DATA   BUF   /50*0/ ,NAM    /4HVDR ,4H    /\r\n     1      ,MASKS /4,8,16,32,64,128/,XSET0/100000000/\r\nC\r\nC DATA DEFINING RIGID FORMATS AND PROBLEM TYPES\r\nC\r\n      DATA   CEI    /4HCEIG,4HEN  /,FRQ   /4HFREQ,4HRESP/\r\n     1      ,TRN    /4HTRAN,4HRESP/,MODAL /4HMODA,4HL   /\r\n     2      ,DIRECT /4HDIRE,4HCT  /\r\n      END\r\n"
  },
  {
    "path": "bin/NASNAMES.COM",
    "content": "      COMMON / DOSNAM / DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH\r\n     &,                 PLOT,   NPTP , DIC  , OPTP  , RDIC, IN12, OUT11\r\n     &,                 INP1,   INP2 \r\n      CHARACTER * 72    DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH\r\n      CHARACTER * 72    PLOT  , NPTP , DIC  , OPTP  , RDIC, IN12, OUT11\r\n      CHARACTER * 72    INP1,   INP2\r\n      COMMON / DSNAME / DSNAMES(89)\r\n      CHARACTER * 80    DSNAMES\r\n"
  },
  {
    "path": "bin/linknas",
    "content": "#\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 ifx3bd.o ifx4bd.o ifx5bd.o ifx6bd.o \r\nar x nastlib.a ifx7bd.o ifp3bd.o plotbd.o ta1abd.o sma1bd.o \r\nar x nastlib.a sma2bd.o  flbbd.o dpdcbd.o readbd.o  vdrbd.o \r\nar x nastlib.a pla4bd.o sdr2bd.o of1pbd.o of2pbd.o of3pbd.o \r\nar x nastlib.a of3sbd.o of4pbd.o of5pbd.o of6pbd.o of7pbd.o \r\nar x nastlib.a of7sbd.o of8pbd.o of9pbd.o ofp1bd.o ofp5bd.o \r\nar x nastlib.a ofsnbd.o ofssbd.o exiobd.o itembd.o \r\nf77 -fast -dn -o ../bin/nastrn.exe nastrn.o  \\\r\n\tsemdbd.o tabfbd.o gptabd.o  gp3bd.o ifx1bd.o \\\r\n\tifx2bd.o ifx3bd.o ifx4bd.o ifx5bd.o ifx6bd.o \\\r\n\tifx7bd.o ifp3bd.o plotbd.o ta1abd.o sma1bd.o \\\r\n\tsma2bd.o  flbbd.o dpdcbd.o readbd.o  vdrbd.o \\\r\n\tpla4bd.o sdr2bd.o of1pbd.o of2pbd.o of3pbd.o \\\r\n\tof3sbd.o of4pbd.o of5pbd.o of6pbd.o of7pbd.o \\\r\n\tof7sbd.o of8pbd.o of9pbd.o ofp1bd.o ofp5bd.o \\\r\n\tofsnbd.o ofssbd.o exiobd.o itembd.o \\\r\n\tnastlib.a\r\n"
  },
  {
    "path": "bin/nastran",
    "content": "#!/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\nset naschk=/usr/users/bob/nast95/bin/chkfil.exe\r\nset probname = $1\r\necho ' '\r\n  if ( $probname == '' ) then\r\n  echo '                                 NASTRAN'\r\n  echo ' '\r\n  echo -n 'Please give problem id for designation of files ===> '\r\n  set probname = $<\r\n  endif\r\n# set ft01=$probname.pun\r\nset dbmem=12000000\r\nset ocmem=2000000\r\nset ft01=none\r\nset ft04=$probname.dic\r\nset ft03=$probname.log\r\nset ft05=$probname.inp\r\nset ft06=$probname.out\r\nset ft08=none\r\n# set ft11=$probname.out11\r\nset ft11=none\r\nset plt2=none\r\nset script=$probname.cmd\r\nset nasscr=$cwd/temp$$\r\nset ft12=none\r\nset ft15=none\r\nset ft16=none\r\nset sof1=none\r\nset sof2=none\r\nset sft12=\r\nset nptp=$probname.nptp\r\nset optp=none\r\n   if ( ! -e  $ft05 ) then\r\n   set sft05='(#### does not exist ####)'\r\n   else \r\n   set sft05=\r\n   if ( -e nogood1 ) then\r\n   rm nogood1\r\n   endif\r\n   if ( -e nogood2 ) then\r\n   rm nogood2\r\n   endif\r\n   if ( -e nogood3 ) then\r\n   rm nogood3\r\n   endif\r\n   $naschk < $ft05\r\n\tif ( -e nogood1 ) then \r\n\tset ft04=$probname.dic\r\n        rm nogood1\r\n\tendif\r\n\tif ( -e nogood2 ) then\r\n\tset plt2=$probname.plt\r\n        rm nogood2\r\n\tendif\r\n\tif ( -e nogood3) then\r\n\tset ft04=$probname.dic\r\n\tset plt2=$probname.plt\r\n        rm nogood3\r\n\tendif\r\n   endif\r\nset nogo=1\r\nwhile ( $nogo != 0 )\r\nclear \r\necho '                               NASTRAN'\r\necho ' '\r\nset snasexec=\r\nset sft01=\r\nset sft04=\r\nset sft03=\r\nset sft06=\r\nset sft08=\r\nset sft11=\r\nset sft15=\r\nset sft16=\r\nset splt2 =\r\nset snptp=\r\nset soptp=\r\nset sdir=\r\nset sscript=\r\nset ssof1=\r\nset ssof2=\r\nset nogo=1\r\n   if ( $nptp != 'none' ) then \r\n      if ( -e $nptp ) then \r\n      set snptp=' (#### will be replaced ####)'\r\n      endif\r\n      if ( -e \"$ft04\" ) then\r\n      set sft04=' (#### will be replaced ####)'\r\n      endif\r\n   endif \r\n   if ( $sof1 != 'none' ) then\r\n      if( -e $sof1 ) then\r\n      set ssof1=\r\n      else set ssof1='(#### does not exist ####)'\r\n      endif\r\n   endif\r\n   if ( $sof2 != 'none' ) then\r\n      if( -e $sof2 ) then\r\n      set ssof2=\r\n      else set ssof2='(#### does not exist ####)'\r\n      endif\r\n   endif\r\n   if ( -e $plt2 ) then\r\n   set splt2='(#### will be replaced ####)'\r\n   else set splt2=\r\n   endif\r\n   if ( -d $nasscr ) then\r\n   set sdir=' (#### will be recreated ####)'\r\n   endif\r\n   if ( -e  $ft06 ) then\r\n   set sft06=' (#### will be replaced ####)'\r\n   endif\r\n   if ( -e $ft03 ) then \r\n   set sft03=' (#### will be replaced ####)'\r\n   endif\r\n   if ( -e $ft01 ) then \r\n   set sft01=' (#### will be replaced ####)'\r\n   endif\r\n   if ( -e \"$ft11\" ) then \r\n   set sft11=' (#### will be replaced ####)'\r\n   else\r\n   set sft11=\r\n   endif\r\n   if ( -e  $script ) then \r\n   set sscript=' (#### will be replaced ####)'\r\n   endif\r\necho '  (i)  Input file       ===> '$ft05   $sft05      \r\necho '  (o)  Output file      ===> '$ft06   $sft06\r\necho '  (l)  Logfile          ===> '$ft03   $sft03\r\necho '  (s)  Script file      ===> '$script $sscript\r\necho '  (pu) Punch file       ===> '$ft01   $sft01\r\necho '  (pl) Plot file        ===> '$plt2   $splt2\r\necho '  (c)  Checkpoint NPTP  ===> '$nptp   $snptp\r\necho '  (d)  Checkpoint dict. ===> '$ft04   $sft04\r\necho '  (r)  Restart OPTP     ===> '$optp   $soptp\r\necho '  (ou) FTN11 file       ===> '$ft11   $sft11\r\necho '  (in) FTN12 file       ===> '$ft12   $sft12\r\necho '  (s1) SOF1 file        ===> '$sof1   $ssof1\r\necho '  (s2) SOF2 file        ===> '$sof2   $ssof2\r\necho '  (i1) FTN15 file       ===> '$ft15   $sft15\r\necho '  (i2) FTN16 file       ===> '$ft16   $sft16\r\necho ' '\r\necho '  (oc) Memory for Open Core    ===> '$ocmem\r\necho '  (im) In-Memory DB Allocation ===> '$dbmem\r\necho '  (w)  Work Directory ===> '$nasscr $sdir\r\necho '  (g)  To create shell script and execute NASTRAN'\r\necho '  (a)  Abort without building shell script'\r\necho\r\necho -n ' Specify Option ===> ' \r\nset  opt = $<\r\n   switch ($opt) \r\n     case 'im':\r\n     case 'Im':\r\n     case 'iM':\r\n     case 'IM':\r\n        echo -n 'Please give allocation (in words) for in-memory db ===> '\r\n        set dbmem = $<\r\n        breaksw\r\n     case 'oc':\r\n     case 'Oc':\r\n     case 'oC':\r\n     case 'OC':\r\n        echo -n 'Please give allocation (in words) for open core ===> '\r\n        set ocmem = $<\r\n        breaksw\r\n     case 'a':\r\n     case 'A':\r\n     case 'q':\r\n     case 'Q':\r\n\tclear\r\n\texit\r\n\tbreaksw\r\n     case 'i':\r\n     case 'I':\r\n     echo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give input file ===> '\r\n\t   set ft05 = $<\r\n\t      if ( ! -e $ft05 ) then\r\n\t      echo $ft05 'does not exist'\r\n\t      else set ok = i0\r\n                if ( -e nogood1 ) then\r\n                rm nogood1\r\n                endif\r\n                if ( -e nogood2 ) then\r\n                rm nogood2\r\n                endif\r\n                if ( -e nogood3 ) then\r\n                rm nogood3\r\n                endif\r\n\t      $naschk < $ft05\r\n\t      set sft05=\r\n              set nptp=$probname.nptp\r\n              set ft04=none\r\n              set plt2=none\r\n\t         if ( -e nogood1 ) then\r\n\t\t set ft04=$probname.dic\r\n                 rm nogood1\r\n\t\t endif\r\n\t\t if ( -e nogood2 ) then \r\n\t\t set plt2=$probname.plt\r\n                 rm nogood2\r\n\t\t endif\r\n\t\t if ( -e nogood3 ) then \r\n\t\t set ft04=$probname.dic\r\n\t\t set plt2=$probname.plt\r\n                 rm nogood3\r\n\t\t endif\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n       case 'G':\r\n       case 'g':\r\n\t set nogo=0\r\n\t clear\r\n\t    if ( ! -e $ft05 ) then \r\n\t    echo '                ERROR'\r\n\t    echo ' '\r\n\t    echo $ft05 'does not exist--cannot create script'\r\n\t    set  nogo=i1\r\n\t    set  anything =$<\r\n\t    endif\r\n\t    if ( -d $nasscr ) then \r\n\t    echo ' '\r\n\t    echo ' '\r\n\t    echo '                  WARNING'\r\n\t    echo ' '\r\n\t    echo 'Directory '$nasscr ' exists.  It will be recreated.'\r\n\t    echo 'All existing files in this directory will be lost!!!'\r\n\t    echo ' '\r\n\t    echo -n 'Are you sure you want this to happen? (y or n) '\r\n\t    set ans = $<\r\n\t       if (  $ans != 'y' ) then \r\n\t       set nogo=i1\r\n\t       endif\r\n\t    endif\r\n\t  breaksw\r\n     case 'r':\r\n     case 'R':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give restart OPTP file ===> '\r\n\t   set  optp = $<\r\n\t      if ( ! -e $optp ) then \r\n\t      echo $optp '(#### does not exist ####)'\r\n\t      else set ok=i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 's1':\r\n     case 'S1':\r\n\techo ' '\r\n        echo -n 'Please give SOF1 file ===> ' \r\n\tset  sof1 = $<\r\n\t   if ( ! -e $sof1 ) then \r\n\t   set  ssof1='(#### does not exist ####)'\r\n\t   else set ssof1=\r\n\t   endif\r\n\t breaksw\r\n     case 's2':\r\n     case 'S2':\r\n\techo ' '\r\n        echo -n 'Please give SOF2 file ===> ' \r\n\tset  sof2 = $<\r\n\t   if ( ! -e $sof2 ) then \r\n\t   set ssof2='(#### does not exist ####)'\r\n\t   else set ssof2=\r\n\t   endif\r\n\t breaksw\r\n     case 'RD':\r\n     case 'Rd':\r\n     case 'rd':\r\n     case 'rD':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give restart dict ===> '\r\n\t   set ft08 = $<\r\n\t      if ( ! -e $ft08 ) then \r\n\t      echo $ft08='(#### does not exist ####)'\r\n\t      else set ok=i0\r\n\t      set sft08=\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'in':\r\n     case 'IN':\r\n     case 'In':\r\n     case 'iN':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ($ok != i0 )\r\n\t   echo -n 'Please give in12 file ===> '\r\n\t   set ft12 = $<\r\n\t      if ( ! -e $ft12  ) then \r\n              set sft12='(#### does not exist ####)'\r\n              set ok=i0\r\n              else\r\n\t      set sft12=\r\n              set ok=i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'ou':\r\n     case 'OU':\r\n     case 'Ou':\r\n     case 'oU':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ($ok != i0 )\r\n\t   echo -n 'Please give out11 file ===> '\r\n\t   set ft11 = $<\r\n\t      if ( -e  $ft11 ) then \r\n\t      set sft11=\r\n\t      set ok=i0\r\n\t      else set ok=i0\r\n\t      set sft11='**** will be replaced ****'\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'i1':\r\n     case 'I1':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ($ok != i0 )\r\n\t   echo -n 'Please give FT15 file ===> '\r\n\t   set ft15 = $<\r\n\t      if ( -e  $ft15 ) then \r\n\t      set sft15=\r\n\t      set ok=i0\r\n\t      else set ok=i0\r\n\t      set sft15='**** will be replaced ****'\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'i2':\r\n     case 'I2':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ($ok != i0 )\r\n\t   echo -n 'Please give FT16 file ===> '\r\n\t   set ft16 = $<\r\n\t      if ( -e  $ft16 ) then \r\n\t      set sft16=\r\n\t      set ok=i0\r\n\t      else set ok=i0\r\n\t      set sft16='**** will be replaced ****'\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'O':\r\n     case 'o':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give output file ===> '\r\n\t   set  ft06 = $<\r\n\t      if ( -e $ft06 ) then\r\n\t      echo -n $ft06 'exist, do you want to keep it? (y or n) '\r\n\t      set  ans = $<\r\n\t\t if (  $ans == 'n' ) then\r\n\t\t rm $ft06\r\n\t\t set ok=i0\r\n\t\t endif\r\n\t      else set ok=i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'l':\r\n     case 'L':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give log file ===> '\r\n\t   set  ft03 = $<\r\n\t      if ( -e  $ft03 ) then\r\n\t      echo -n $ft03 'exist, do you want to keep it? (y or n) '\r\n\t      set ans = $<\r\n\t\t if ( $ans == 'n' ) then \r\n\t\t rm $ft03\r\n\t\t set ok=i0\r\n\t\t endif\r\n\t      else set ok=i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'd':\r\n     case 'D':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give checkpoint dict. ===> '\r\n\t   set ft04 = $<\r\n\t      if ( -e  $ft04 ) then \r\n\t      echo -n $ft04 'exist, do you want to keep it? (y or n) '\r\n\t      set ans = $<\r\n\t\t if ( $ans == 'n' ) then\r\n\t\t rm $ft04\r\n\t\t set ok = i0\r\n\t\t endif\r\n\t      else set ok = i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'pu':\r\n     case 'Pu':\r\n     case 'pU':\r\n     case 'PU':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give punch file ===> '\r\n\t   set  ft01 =  $<\r\n\t      if ( -e  $ft01 ) then\r\n\t      echo -n $ft01 'exist, do you want to keep it? (y or n) '\r\n\t      set  ans = $<\r\n\t\t if ( $ans == 'n' ) then\r\n\t\t rm $ft01\r\n\t\t set ok = i0\r\n\t\t endif\r\n\t      else set ok = i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 's':\r\n     case 'S':\r\n\techo ' '\r\n\tset ok=i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give script file ===> '\r\n\t   set  script = $<\r\n\t      if ( -e  $script ) then \r\n\t      echo -n $script 'exist, do you want to keep it? (y or n) '\r\n\t      set ans = $<\r\n\t\t if ( $ans == 'n' ) then \r\n\t\t rm $script\r\n\t\t set ok = i0\r\n\t\t endif\r\n\t      else set ok = i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'c':\r\n     case 'C':\r\n\techo ' '\r\n\tset ok = i1\r\n\twhile (  $ok != i0 )\r\n\t   echo -n 'Please give checkpoint NPTP file ===> '\r\n\t   set nptp = $<\r\n\t      if ( -e  $nptp ) then \r\n\t      echo -n $nptp 'exist, do you want to keep it? (y or n) '\r\n\t      set ans = $<\r\n\t\t if ( $ans == 'n' ) then \r\n\t\t rm $nptp\r\n\t\t set ok = i0\r\n\t\t endif\r\n\t      else set ok = i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n     case 'w':\r\n     case 'W':\r\n\techo ' '\r\n\techo -n 'Please give work directory ===> '\r\n\tset  nasscr = $<\r\n\tbreaksw \r\n     case 'pl':\r\n     case 'Pl':\r\n     case 'pL':\r\n     case 'PL':\r\n\techo ' '\r\n\tset ok = i1\r\n\twhile ( $ok != i0 )\r\n\t   echo -n 'Please give plot file ===> '\r\n\t   set plt2 = $<\r\n\t      if ( -e '$plt2' ) then \r\n\t      echo -n $plt2 'exist, do you want to keep it? (y or n) '\r\n\t      set  ans =$<\r\n\t\t if ( $ans == 'n' ) then \r\n\t\t then rm $plt2\r\n\t\t set ok = i0\r\n\t\t endif\r\n\t      else set ok = i0\r\n\t      endif\r\n\t   end\r\n\t breaksw\r\n   endsw\r\nend\r\nif ( -e $script ) then \r\nrm $script\r\nendif\r\necho '#/bin/csh' >> $script\r\necho ' unalias rm ' >> $script\r\necho 'if ( -d ' $nasscr' ) then' >> $script\r\necho 'rm -r '$nasscr >> $script\r\necho 'endif' >> $script\r\necho 'mkdir '$nasscr >> $script\r\necho 'if ( -e '$nptp ' ) then'>> $script\r\necho 'rm '$nptp >> $script\r\necho 'endif' >> $script\r\necho 'if ( -e '$ft03 ' ) then'>> $script\r\necho 'rm '$ft03 >> $script\r\necho 'endif' >> $script\r\necho 'if ( -e '$ft01 ' ) then'>> $script\r\necho 'rm '$ft01 >> $script\r\necho 'endif' >> $script\r\necho 'if ( -e '$ft04 ' ) then'>> $script\r\necho 'rm '$ft04 >> $script\r\necho 'endif' >> $script\r\necho 'if ( -e '$ft06 ' ) then'>> $script\r\necho 'rm '$ft06 >> $script\r\necho 'endif' >> $script\r\necho 'if ( -e '$plt2 ' ) then'>> $script\r\necho 'rm '$plt2 >> $script\r\necho 'endif' >> $script\r\necho 'echo ==== NASTRAN is beginning execution of \"'$probname'\" ====' >> $script\r\necho ' env  NPTPNM='$nptp '\\' >> $script \r\necho '  PLTNM='$plt2 ' DICTNM='$ft04 ' PUNCHNM='$ft01 '\\' >> $script \r\necho '  FTN11='$ft11 ' FTN12='$ft12 ' DIRCTY='$nasscr '\\' >> $script \r\necho '  LOGNM='$ft03 ' OPTPNM='$optp ' RFDIR='$rfdir '\\' >> $script \r\necho '  FTN13=none SOF1='$sof1 ' SOF2='$sof2  '\\' >> $script \r\necho '  FTN14=none FTN17=none FTN18=none FTN19=none FTN20=none \\' >> $script\r\necho '  FTN15='$ft15 ' FTN16='$ft16  '\\' >> $script \r\necho '  FTN21=none FTN22=none FTN23=none \\' >> $script \r\necho '  DBMEM='$dbmem ' OCMEM='$ocmem '\\' >> $script\r\necho    $nasexec' < '$ft05' >'$ft06 >> $script\r\necho 'rm -r '$nasscr >> $script\r\necho 'if ( -e none  ) then'>> $script\r\necho 'rm none' >> $script\r\necho 'endif' >> $script\r\n# echo 'rm COS*' >> $script\r\necho 'echo   ===== NASTRAN has completed problem \"'$probname'\" ====='>> $script\r\nclear \r\necho 'The shell script '$script' was successfully created'\r\necho\r\necho -n 'Do you want to execute this problem now? (y or n) ===> '\r\nchmod +x $script\r\nset ans = $<\r\n   if ( $ans == 'y' ) then\r\n   echo ' '\r\n   echo -n 'Do you want to run in foreground or background? (f or b) ===> '\r\n   set ans = $<\r\n      if ( $ans == 'f' ) then\r\n      $cwd/$script\r\n      else\r\n      $cwd/$script &\r\n      endif\r\n   else echo ' '\r\n   echo 'Type the command \"'$script'\" to execute this problem intereactively'\r\n   echo '                            OR '\r\n   echo '  the command \"'$script' &\"  to execute this problem in batch'\r\n   endif\r\n"
  },
  {
    "path": "bin/nastrn.f",
    "content": "      PROGRAM NASTRN        \r\nC        \r\n      CHARACTER*80    VALUE\r\n      CHARACTER*5     TMP\r\n      INTEGER         SPERLK\r\n      REAL            SYSTM(94)\r\n      COMMON / LSTADD / LASTAD\r\n      COMMON / SYSTEM / ISYSTM(94),SPERLK\r\n      COMMON / SOFDSN / SDSN(10)\r\n      COMMON / LOGOUT / LOUT\r\n      COMMON / RESDIC / IRDICT, IROPEN\r\n      COMMON / ZZZZZZ / IZ(14000000)\r\n      COMMON / DBM    / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP\r\n     &,                 NBLOCK, LENALC, IOCODE, IFILEX, NAME,   MAXALC\r\n     &,                 MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR\r\n     &,                 NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC\r\n      INCLUDE 'NASNAMES.COM'\r\n      CHARACTER*80    SDSN\r\n      EQUIVALENCE    ( ISYSTM, SYSTM )\r\n      LENOPC = 14000000\r\nC        \r\nC     SAVE STARTING CPU TIME AND WALL CLOCK TIME IN /SYSTEM/        \r\nC      \r\n      ISYSTM(18) = 0\r\n      CALL SECOND (SYSTM(18))        \r\n      CALL WALTIM (ISYSTM(32))        \r\nC        \r\nC     EXECUTE NASTRAN SUPER LINK\r\nC        \r\n      LEN = 80\r\n      VALUE = ' '\r\n      CALL BTSTRP\r\n      CALL GETENV ( 'DBMEM', VALUE )\r\n      READ ( VALUE, * ) IDBLEN\r\n      CALL GETENV ( 'OCMEM', VALUE )\r\n      READ ( VALUE, * ) IOCMEM\r\n      IF ( IOCMEM .LE. LENOPC ) GO TO 10\r\n      PRINT *,' LARGEST VALUE FOR OPEN CORE ALLOWED IS:',LENOPC\r\n      CALL MESAGE ( -61, 0, 0 )\r\n10    IF ( IDBLEN .NE. 0 ) IDBLEN = LENOPC - IOCMEM \r\n      LASTAD = LOCFX( IZ( IOCMEM ) )\r\n      IF ( IDBLEN .NE. 0 ) IDBADR = LOCFX( IZ( IOCMEM+1 ) )\r\n      LENOPC = IOCMEM\r\n      CALL DBMINT\r\n      LOUT   = 3\r\n      IRDICT = 4\r\n      SPERLK = 1        \r\n      ISYSTM(11) = 1        \r\n      VALUE = ' '\r\n      CALL GETENV ( 'RFDIR',  RFDIR  )\r\n      VALUE = ' '\r\n      CALL GETENV ( 'DIRCTY', DIRTRY )\r\n      LEN = INDEX( DIRTRY, ' ' ) - 1\r\n      DO 20 I = 1, 90\r\n      IF ( I .LE. 9 ) WRITE ( TMP, 901 ) I\r\n      IF ( I .GT. 9 ) WRITE ( TMP, 902 ) I\r\n901   FORMAT('scr',I1)\r\n902   FORMAT('scr',I2)\r\n      DSNAMES( I ) = DIRTRY(1:LEN)//'/'//TMP\r\n20    CONTINUE\r\n      CALL GETENV ( 'LOGNM', LOG )\r\n      DSNAMES(3) = LOG\r\n      CALL GETENV ( 'OPTPNM', OPTP )\r\n      DSNAMES(7)  = OPTP\r\n      CALL GETENV ( 'NPTPNM', NPTP )\r\n      DSNAMES(8)  = NPTP\r\n      CALL GETENV ( 'FTN11', OUT11 )\r\n      DSNAMES(11) = OUT11\r\n      CALL GETENV ( 'FTN12', IN12 )\r\n      DSNAMES(12) = IN12\r\n      CALL GETENV ( 'FTN13', VALUE )\r\n      DSNAMES(13) = VALUE\r\n      CALL GETENV ( 'FTN14', VALUE )\r\n      DSNAMES(14) = VALUE\r\n      CALL GETENV ( 'FTN15', VALUE )\r\n      DSNAMES(15) = VALUE\r\n      CALL GETENV ( 'FTN16', VALUE )\r\n      DSNAMES(16) = VALUE\r\n      CALL GETENV ( 'FTN17', VALUE )\r\n      DSNAMES(17) = VALUE\r\n      CALL GETENV ( 'FTN18', VALUE )\r\n      DSNAMES(18) = VALUE\r\n      CALL GETENV ( 'FTN19', VALUE )\r\n      DSNAMES(19) = VALUE\r\n      CALL GETENV ( 'FTN20', VALUE )\r\n      DSNAMES(20) = VALUE\r\n      CALL GETENV ( 'FTN21', VALUE )\r\n      DSNAMES(21) = VALUE\r\n      CALL GETENV ( 'PLTNM', PLOT )\r\n      DSNAMES(10) = PLOT\r\n      CALL GETENV ( 'DICTNM', DIC )\r\n      DSNAMES(4) = DIC\r\n      CALL GETENV ( 'PUNCHNM', PUNCH )\r\n      DSNAMES(1) = PUNCH \r\n      CALL GETENV ( 'SOF1', VALUE )\r\n      SDSN(1) = VALUE\r\n      CALL GETENV ( 'SOF2', VALUE )\r\n      SDSN(2) = VALUE\r\n      CALL GETENV ( 'SOF3', VALUE )\r\n      SDSN(3) = VALUE\r\n      CALL GETENV ( 'SOF4', VALUE )\r\n      SDSN(4) = VALUE\r\n      CALL GETENV ( 'SOF5', VALUE )\r\n      SDSN(5) = VALUE\r\n      CALL GETENV ( 'SOF6', VALUE )\r\n      SDSN(6) = VALUE\r\n      CALL GETENV ( 'SOF7', VALUE )\r\n      SDSN(7) = VALUE\r\n      CALL GETENV ( 'SOF8', VALUE )\r\n      SDSN(8) = VALUE\r\n      CALL GETENV ( 'SOF9', VALUE )\r\n      SDSN(9) = VALUE\r\n      CALL GETENV ( 'SOF10', VALUE )\r\n      SDSN(10) = VALUE\r\n      OPEN (  3, FILE=DSNAMES(3) ,STATUS='UNKNOWN')\r\n      IF ( DSNAMES(11) .NE. 'none' )\r\n     & OPEN ( 11, FILE=DSNAMES(11),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(12) .NE. 'none' )\r\n     & OPEN ( 12, FILE=DSNAMES(12),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(10) .NE. 'none' )\r\n     & OPEN ( 10, FILE=DSNAMES(10),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(4) .NE. 'none' )\r\n     & OPEN ( 4, FILE=DSNAMES(4),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(1) .NE. 'none' )\r\n     & OPEN ( 1, FILE=DSNAMES(1),STATUS='UNKNOWN')\r\n      CALL XSEM00       \r\n      STOP\r\n      END        \r\n"
  },
  {
    "path": "demoout/d01000a.out",
    "content": "     NASTRAN TITLEOPT=-1                                                             \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01000A,PRINT RIGID FORMAT                                                \r\n     $=================================================================              \r\n     $     THIS DECK WILL PRINT THE NASTRAN DMAP COMPILE LISTING OF ANY              \r\n     $     RIGID FORMAT BY SPECIFYING THE FOLLOWING SOLUTION NUMBER AND              \r\n     $     APPLICATION.  JOB WILL AUTOMATICALLY STOP                                 \r\n     $                                                                               \r\n     SOL   6                                                                         \r\n     APP   DISP                                                                      \r\n     $=================================================================              \r\n     TIME  2                                                                         \r\n     DIAG  14,20                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TESTING                                                              \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                          \r\n                  3      DISP = ALL                                                                      \r\n                  4      ECHO = NONE                                                                     \r\n                  5      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =     0, INCLUDING   0 COMMENT CARDS)\r\n0*** USER FATAL MESSAGE 204, COLD START NO BULK DATA.\r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1995 $       \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $               \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $                       \r\n\r\n      22  PARAM    //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $                             \r\n\r\n      23  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT,\r\n                   MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS \r\n\r\n      24  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      25  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      26  COND     ERROR4,NOELMT $                                                \r\n\r\n      27  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      28  COND     LBL1,NOSIMP $                                                  \r\n\r\n      29  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      30  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      31  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/                            \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      32  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      33  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      34  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      35  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      36  LABEL    JMPKGG $                                                       \r\n\r\n      37  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      40  LABEL    JMPMGG $                                                       \r\n\r\n      41  COND     LBL1,GRDPNT $                                                  \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  COND     ERROR3,NOMGG $                                                 \r\n\r\n      43  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $         \r\n\r\n      44  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      45  LABEL    LBL1 $                                                         \r\n\r\n      46  PLA1     CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N, \r\n                   KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N,   \r\n                   PLFACT $                                                       \r\n\r\n      47  COND     ERROR1,ECPTNLPG $                                              \r\n\r\n      48  PURGE    ONLES,ESTNL1/NONLSTR $                                         \r\n\r\n      49  PARAM    //*ADD*/ALWAYS/-1/0 $                                          \r\n\r\n      50  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      51  EQUIV    KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $                            \r\n\r\n      52  COND     LBL11,NOGENL $                                                 \r\n\r\n      53  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      54  SMA3     GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $                           \r\n\r\n      55  LABEL    LBL11 $                                                        \r\n\r\n      56  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      57  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      58  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      59  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      60  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      61  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      62  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/    \r\n                   LUSET/1/COMPS $                                                \r\n\r\n      63  EQUIV    PG1,PL/NOSET $                                                 \r\n\r\n      64  PARAM    //*ADD*/PLACOUNT/1/0 $                                         \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  LABEL    LOOPBGN $                                                      \r\n\r\n      69  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      70  COND     LBL2,MPCF1 $                                                   \r\n\r\n      71  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      72  LABEL    LBL2 $                                                         \r\n\r\n      73  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      74  COND     LBL3,SINGLE $                                                  \r\n\r\n      75  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      76  LABEL    LBL3 $                                                         \r\n\r\n      77  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  LABEL    LBL5 $                                                         \r\n\r\n      81  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      82  COND     LBL6,REACT $                                                   \r\n\r\n      83  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      84  LABEL    LBL6 $                                                         \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      85  DECOMP   KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/                       \r\n                   S,N,SINGKLLX $                                                 \r\n\r\n      86  COND     PLALBL4,SINGKLLX $                                             \r\n\r\n      87  COND     LBL7,REACT $                                                   \r\n\r\n      88  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      89  LABEL    LBL7 $                                                         \r\n\r\n      90  ADD      PG1,/PG/PLFACT $                                               \r\n\r\n      91  COND     LBL10,NOSET  $                                                 \r\n\r\n      92  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      93  LABEL    LBL10  $                                                       \r\n\r\n      94  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   PLACOUNT/S,N,EPSI $                                            \r\n\r\n      95  COND     LBL9,IRES   $                                                  \r\n\r\n      96  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      97  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      98  LABEL    LBL9  $                                                        \r\n\r\n      99  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG,      \r\n                   DELTAQG/1/*STATICS* $                                          \r\n\r\n     100  PLA2     DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $          \r\n\r\n     101  EQUIV    ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $                      \r\n\r\n     102  COND     PLALBL2A,NONLSTR $                                             \r\n\r\n     103  PLA3     CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/      \r\n                   PLSETNO $                                                      \r\n\r\n     104  OFP      ONLES,,,,,//S,N,CARDNO $                                       \r\n\r\n     105  LABEL    PLALBL2A $                                                     \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     106  PARAM    //*SUB*/DIFF/NPLALIM/PLACOUNT $                                \r\n\r\n     107  COND     PLALBL5,DIFF $                                                 \r\n\r\n     108  PLA4     CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/  \r\n                   S,N,PLSETNO/S,N,PLFACT $                                       \r\n\r\n     109  EQUIV    KGGNL,KGGSUM/KGGLPG $                                          \r\n\r\n     110  COND     PLALBL3,KGGLPG $                                               \r\n\r\n     111  ADD      KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $                        \r\n\r\n     112  LABEL    PLALBL3 $                                                      \r\n\r\n     113  EQUIV    ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $  \r\n\r\n     114  REPT     LOOPBGN,360 $                                                  \r\n\r\n     115  JUMP     ERROR2 $                                                       \r\n\r\n     116  LABEL    PLALBL4 $                                                      \r\n\r\n     117  PRTPARM  //-5/*PLA* $                                                   \r\n\r\n     118  LABEL     PLALBL5 $                                                     \r\n\r\n     119  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,, \r\n                   PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/       \r\n                   *PLA*////COMPS $                                               \r\n\r\n     120  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     121  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     122  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     123  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     124  COND     P2,JUMPPLOT $                                                  \r\n\r\n     125  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1, \r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n     126  PRTMSG   PLOTX2// $                                                     \r\n1     TESTING                                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     127  LABEL    P2 $                                                           \r\n\r\n     128  JUMP     FINIS $                                                        \r\n\r\n     129  LABEL    ERROR1 $                                                       \r\n\r\n     130  PRTPARM  //-1/*PLA* $                                                   \r\n\r\n     131  LABEL    ERROR2 $                                                       \r\n\r\n     132  PRTPARM  //-2/*PLA* $                                                   \r\n\r\n     133  LABEL    ERROR3 $                                                       \r\n\r\n     134  PRTPARM  //-3/*PLA* $                                                   \r\n\r\n     135  LABEL    ERROR4 $                                                       \r\n\r\n     136  PRTPARM  //-4/*PLA* $                                                   \r\n\r\n     137  LABEL    FINIS $                                                        \r\n\r\n     138  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     139  END      $                                                              \r\n\r\n\r\n *** JOB TERMINATED BY DIAG 20\r\n\r\n\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TESTING                                                            \r\n DATE:  5/17/95\r\n END TIME: 13:59:46\r\n TOTAL WALL CLOCK TIME      0 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01001a.out",
    "content": "     NASTRAN TITLEOPT=-1                                                             \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01001A,PRINT DIAG48                                                      \r\n     APP   DISP                                                                      \r\n     $=================================================                              \r\n     $     THIS JOB WILL PRINT DIAG48 MESSAGES AND STOP                              \r\n     $                                                                               \r\n     DIAG  48,20                                                                     \r\n     $=================================================                              \r\n     SOL   1                                                                         \r\n     TIME  2                                                                         \r\n     CEND                                                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n                                                                                                         \r\n                                                                                                         \r\n                                        DIAG 48 -      NASTRAN RELEASE NEWS                              \r\n                                        ===================================                              \r\n                                                                                                         \r\n                                                                                                         \r\n                         NASTRAN RELEASE NEWS -                                                          \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                         95 RELEASE                                                                      \r\n                         ----------                                                                      \r\n                         NEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD        \r\n                         SUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD.  IN            \r\n                         ADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER           \r\n                         EIGENVALUE ANALYSIS.                                                            \r\n                                                                                                         \r\n                         THE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES:                      \r\n                                                                                                         \r\n                                 DIAG                       DESCRIPTION                                  \r\n                                                                                                         \r\n                                 45              PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION      \r\n                                                 METHOD                                                  \r\n                                 47              PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD             \r\n                                                 SUBSTITUTION METHOD                                     \r\n                                                                                                         \r\n                         DIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW        \r\n                         MATRIX MULTIPLY/ADD METHODS.                                                    \r\n                                                                                                         \r\n                         IN ADDITION, THE \"SYSTEM(58)=\" PARAMETER ON THE \"NASTRAN\" CARD MAY BE           \r\n                         USED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD.  THE OLD METHODS       \r\n                         ARE 1, 2 AND 3 (TRANSPOSE ONLY).  THE NEW METHODS ARE 10, 11, 20, 21, 30,       \r\n                         31, 32, 40 AND 41.  A METHOD IS SELECTED BASED ON THE DENSITY OF THE            \r\n                         MATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX         \r\n                         UNLESS \"SYSTEM(58)\" IS USED.                                                    \r\n                                                                                                         \r\n                         THE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW:                     \r\n                                                                                                         \r\n                            ------------------------------------------------------------------------     \r\n                            METHOD     METHOD OF READING MATRIX    MULTIPLE COLUMNS OF MATRIX STORED     \r\n                                          A        B       C           A         B        D              \r\n                            ------------------------------------------------------------------------     \r\n                            OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED)                            \r\n                              1         INTPK   UNPACK   UNPACK       NO         YES      YES            \r\n                              2T        GETSTR  UNPACK   INTPK        YES        NO       NO             \r\n                              2NT       GETSTR  INTPK    INTPK        YES        NO       NO             \r\n                              3T        UNPACK  GETSTR   INTPK        YES        NO       NO             \r\n                            NEW METHODS                                                                  \r\n                              10        UNPACK  UNPACK   UNPACK       YES        NO       NO             \r\n                              11        UNPACK  GETSTR   UNPACK       YES        NO       NO             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                              20        UNPACK  UNPACK   UNPACK       NO         YES      YES            \r\n                              21        GETSTR  UNPACK   UNPACK       NO         YES      YES            \r\n                              30        GETSTR  UNPACK   UNPACK       YES        NO       NO             \r\n                              31        GETSTR  GETSTR   UNPACK       YES        NO       NO             \r\n                              32        GETSTR  GETSTR   GETSTR       YES        NO       NO             \r\n                              40        UNPACK  GETSTR   UNPACK       NO         YES      YES            \r\n                              41        GETSTR  GETSTR   UNPACK       NO         YES      YES            \r\n                            ------------------------------------------------------------------------     \r\n                                                                                                         \r\n                         AS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES,          \r\n                         USE THE FOLLOWING \"NASTRAN\" CARD:                                               \r\n                                                                                                         \r\n                                         NASTRAN SYSTEM(58)=10                                           \r\n                                                                                                         \r\n                         THE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS:      \r\n                                                                                                         \r\n                                 DIAG                       DESCRIPTION                                  \r\n                                                                                                         \r\n                                 42              OLD FEER METHOD WITHOUT USING IN-MEMORY WORKING         \r\n                                                 MATRICES FOR FINDING SOLUTION                           \r\n                                 43              OLD FEER METHOD WITHOUT USING IN-MEMORY ORTHOGONAL      \r\n                                                 VECTORS                                                 \r\n                                 44              OLD SYMMETRIC DECOMPOSITION METHOD                      \r\n                                 46              OLD FORWARD/BACKWARD SUBSTITUTION METHOD                \r\n                                 49              OLD MATRIX MULTIPLY/ADD METHOD                          \r\n                                                                                                         \r\n                                                                                                         \r\n                         THE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE.       \r\n                         DETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN         \r\n                         MAINTENANCE CONTRACTOR.                                                         \r\n                                                                                                         \r\n                         SPR NO.    MODULE                     DESCRIPTION                               \r\n                         -------    ------    ------------------------------------------------------     \r\n                         93-026     GPTSG     MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT           \r\n                                              PLATFORMS.                                                 \r\n                         93-033     ANISOP    MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR \"MAT6\"       \r\n                                              CARD.                                                      \r\n                         94-001     SDR2      PROVIDE FOR SORT-2 STRESS OUTPUT FOR \"TRAPRG\" ELEMENT.     \r\n                         94-002     EMG       DAMPING COEFFICIENT ON \"MAT1\" CARD WAS BEING IGNORED       \r\n                                              FOR THE \"TRAPRG\" ELEMENT.                                  \r\n                         94-003     TRD       ALLOW FOR TRANSIENT APPEND FEATURE.                        \r\n                         94-004     SDR2      ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR     \r\n                                              THE \"QUAD4\" ELEMENT.                                       \r\n                         94-005     DPD       CORRECT A PROBLEM RELATING TO REFERENCING A                \r\n                                              NON-EXISTING GRID POINT WITH THE \"NOLIN1\" CARD.            \r\n                         94-006     PLOT      CORRECT A PROBLEM USING \"CELAS2\" ELEMENTS IN PLOT          \r\n                                              REQUESTS WHEN USING RIGID FORMAT 12.                       \r\n                         94-007     SDR2      CORRECT PROBLEMS RELATING TO THE PROCESSING OF \"E\"         \r\n                                              POINTS.  ERROR AFFECTED THE CALCULATION OF ELEMENT         \r\n                                              FORCE AND STRESS DATA.                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                         94-008     MPYAD     COSMETIC CHANGE FOR OUTPUT OF DIAG 19.                     \r\n                         94-009     NSINFO    USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN    \r\n                                              TIME CONSTANTS ARE SUPPLIED IN THE \"NASINFO\" FILE TO       \r\n                                              NASTRAN.                                                   \r\n                         94-010     MPYAD     WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE.     \r\n                                              MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES     \r\n                                              REQUIRED.                                                  \r\n                         94-011     DECOMP    SUBROUTINE \"DETFBS\" DID NOT PERFORM THE CORRECT            \r\n                                              FORWARD/BACKWARD SUBSTITUTION WHEN \"DECOMP\" DECOMPOSED     \r\n                                              AN UNSYMMETRIX MATRIX WITH THE PARAMETER \"CBAR\" NON-ZERO.  \r\n                         94-012     DBMMGR    INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE       \r\n                                              IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS        \r\n                                              ISSUED.                                                    \r\n                         94-013     DBMMGR    CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT     \r\n                                              RESULTED IN ERROR MESSAGE 2026 IN MODULE \"SSG1\".           \r\n                         94-015     MCE2      PROBLEM WITH USING THE \"RFORCE\" CARD.                      \r\n                         94-016     OUTPT2    UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER       \r\n                                              THAN 1028.                                                 \r\n                         94-017     SDR2      UNABLE TO GET STRAIN OUTPUT FOR THE \"QUAD4\" ELEMENT        \r\n                                              WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT.         \r\n                         94-018     CDCOMP    FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A            \r\n                                              SINGULAR MATRIX.                                           \r\n                                                                                                         \r\n                         IN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED:              \r\n                                                                                                         \r\n                         NCL NO.    MODULE                     DESCRIPTION                               \r\n                         -------    ------    ------------------------------------------------------     \r\n                         93-002     FBS       OPTIMIZE THE SYMMETRIX FORWARD/BACKWARD SUBSTITUTION       \r\n                                              METHOD.                                                    \r\n                         93-003     SDCOMP    OPTIMIZE THE SYMMETRIX DECOMPOSITION METHOD.               \r\n                         93-004     MPYAD     OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS.                  \r\n                         93-007     FEER      OPTIMIZE THE FEER EIGENVALUE METHOD.                       \r\n                                                                                                         \r\n                                                                                                         \r\n                         AN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS.  THE IN-MEMORY           \r\n                         DATA BASE ELIMINATES I/O TO DISK.  LOGIC EXISTS TO AUTOMATICALLY WRITE          \r\n                         FILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED.  THE COMMON     \r\n                         /ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY           \r\n                         DATA BASE.  THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F            \r\n                         (SEE ARRAY \"IZ\" AND VARIABLE \"LENOPC\").   ALL REMAINING SPACE AFTER             \r\n                         ALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE.  THE USER             \r\n                         CONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU.  THE             \r\n                         USER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE            \r\n                         IN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU.                \r\n                         USERS ARE ENCOURAGED TO RECOMPILE \"NASTRN.F\" WITH A LARGER ALLOCATION           \r\n                         FOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION.      \r\n                         A LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE          \r\n                         IN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN           \r\n                         THE IN-MEMORY DATA BASE.  USERS SHOULD ALWAYS ALLOCATE SUFFICIENT               \r\n                         OPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                         3023).  IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE.  HOWEVER,             \r\n                         THERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY           \r\n                         DATA BASE.                                                                      \r\n                                                                                                         \r\n                         AT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN         \r\n                         SHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT          \r\n                         OF DISK I/O FOR THE NASTRAN EXECUTION.                                          \r\n                                                                                                         \r\n                         THE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES.  THE       \r\n                         FILES ARE IN ASCII, 80 COLUMN FORMAT.  THE USER CAN EXAMINE THESE FILES WITH    \r\n                         A SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED  \r\n                         WITH THIS NASTRAN RELEASE.  THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR   \r\n                         PRINT A PORTION OF THE FILE QUICKLY.  THE ENTIRE MANUAL IS STORED IN THE        \r\n                         FOLLOWING FILES:                                                                \r\n                                                                                                         \r\n                             EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS                               \r\n                             CASE.TXT - THE CASE CONTROL SECTIONS                                        \r\n                             BULK.TXT - INPUT BULK DATA SECTIONS                                         \r\n                             MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES                 \r\n                             PLOT.TXT - NASTRAN PLOTTING                                                 \r\n                             SUBS.TXT - SUBSTRUCTURING SECTIONS                                          \r\n                             INTR.TXT - INTRODUCTION AND GENERAL INFORMATION                             \r\n                             UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT                  \r\n                             DMAP.TXT - NASTRAN DMAPS                                                    \r\n                             DICT.TXT - NASTRAN DICTIONARY                                               \r\n                             RFMT.TXT - NASTRAN RIGID FORMATS                                            \r\n                                                                                                         \r\n                         A UTILITY PROGRAM, \"NASTHELP\", IS PROVIDED TO ALLOW FOR EASY ACCESS TO          \r\n                         THE ABOVE TEXT FILES.  NASTHELP IS USER FRIENDLY AND REQUIRES NO                \r\n                         WRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND                    \r\n                         THE .TXT FILES MUST BE IN THE SAME DIRECTORY.                                   \r\n                                                                                                         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =                                                                     \r\n DATE:  5/17/95\r\n END TIME: 14: 0: 5\r\n TOTAL WALL CLOCK TIME      0 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01002a.out",
    "content": "     NASTRAN  BULKDATA = -3, TITLEOPT = 0                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n0*** NASTRAN SYSTEM MESSAGE. IF THESE  16 NEW TIMING CONSTANTS ARE HARD-CODED INTO THE LABEL COMMON /NTIME/ OF\r\n     SUBROUTINE SEMDBD, COMPILE, AND RE-LINKE LINK 1, THE COMPUTATIONS OF THESE CONSTANTS IN ALL NASTRAN JOBS WILL\r\n     BE ELIMINATED.\r\n     OR TO ACCOMPLISH THE SAME RESULT, EDIT THE TIM-LINE IN THE NASINFO FILE TO INCLUDE THESE  16 NEW\r\n     TIMING CONSTANTS\r\n\r\n        0.321   1.012   0.509   0.674   0.115   0.116   0.001   0.030   0.028\r\n        0.030   0.028   0.029   0.028   0.028   0.039   0.098\r\n\r\n\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =                                                                     \r\n DATE:  5/17/95\r\n END TIME: 14: 0:23\r\n TOTAL WALL CLOCK TIME      0 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01011a.out",
    "content": "     NASTRAN  FILES=NPTP                                                             \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01011A,NASTRAN                                                           \r\n     CHKPNT   YES                                                                    \r\n     DIAG 15                                                                         \r\n     APP      DISPLACEMENT                                                           \r\n     SOL      1,1                                                                    \r\n     TIME     15                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   D01011A ,NASTRAN , 5/17/95,   50446,\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DELTA WING WITH BICONVEX CROSS SECTION                               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                          \r\n                  3      LABEL    = LOAD ON TRAILING EDGE                                                \r\n                  4           SPC = 1                                                                    \r\n                  5          LOAD = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7      $   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n                  8      $   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n                  9      $   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n                 10      $                                                                               \r\n                 11              SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n                 12              SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                    \r\n                 13      $                                                                               \r\n                 14         DISPLACEMENTS = 1                                                            \r\n                 15              SPCFORCE = ALL                                                          \r\n                 16              ELSTRESS = 2                                                            \r\n                 17      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   169, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     34      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM  1       1       11      12      32      31                              \r\n                   38-        CQDMEM  2       1       12      13      33      32                              \r\n                   39-        CQDMEM  3       1       13      14      34      33                              \r\n                   40-        CQDMEM  4       1       14      15      35      34                              \r\n                   41-        CQDMEM  5       1       15      16      36      35                              \r\n                   42-        CQDMEM  6       1       31      32      52      51                              \r\n                   43-        CQDMEM  7       1       32      33      53      52                              \r\n                   44-        CQDMEM  8       1       33      34      54      53                              \r\n                   45-        CQDMEM  9       1       34      35      55      54                              \r\n                   46-        CQDMEM  11      1       51      52      72      71                              \r\n                   47-        CQDMEM  12      1       52      53      73      72                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM  13      1       53      54      74      73                              \r\n                   49-        CQDMEM  15      1       71      72      92      91                              \r\n                   50-        CQDMEM  16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        FORCE   1       16      0       -1.     .0      .0      500.                    \r\n                  103-        FORCE   2       36              -1.0    .0      .0      500.0                   \r\n                  104-        GRDSET                                                  456                     \r\n                  105-        GRID    1               .0      .0      .0                                      \r\n                  106-        GRID    2               10.     .0      .0                                      \r\n                  107-        GRID    3               30.     .0      .0                                      \r\n                  108-        GRID    4               50.     .0      .0                                      \r\n                  109-        GRID    5               70.     .0      .0                                      \r\n                  110-        GRID    6               90.     .0      .0                                      \r\n                  111-        GRID    11              .0      .0      .82                                     \r\n                  112-        GRID    12              10.     .0      .82                                     \r\n                  113-        GRID    13              30.     .0      .82                                     \r\n                  114-        GRID    14              50.     .0      .795                                    \r\n                  115-        GRID    15              70.     .0      .754                                    \r\n                  116-        GRID    16              90.     .0      .67                                     \r\n                  117-        GRID    21              .0      20.     .0                                      \r\n                  118-        GRID    22              10.     20.     .0                                      \r\n                  119-        GRID    23              30.     20.     .0                                      \r\n                  120-        GRID    24              50.     20.     .0                                      \r\n                  121-        GRID    25              70.     20.     .0                                      \r\n                  122-        GRID    26              90.     20.     .0                                      \r\n                  123-        GRID    31              .0      20.     2.02                                    \r\n                  124-        GRID    32              10.     20.     2.02                                    \r\n                  125-        GRID    33              30.     20.     2.02                                    \r\n                  126-        GRID    34              50.     20.     1.795                                   \r\n                  127-        GRID    35              70.     20.     1.42                                    \r\n                  128-        GRID    36              90.     20.     .67                                     \r\n                  129-        GRID    41              .0      40.     .0                                      \r\n                  130-        GRID    42              10.     40.     .0                                      \r\n                  131-        GRID    43              30.     40.     .0                                      \r\n                  132-        GRID    44              50.     40.     .0                                      \r\n                  133-        GRID    45              70.     40.     .0                                      \r\n                  134-        GRID    51              .0      40.     2.42                                    \r\n                  135-        GRID    52              10.     40.     2.42                                    \r\n                  136-        GRID    53              30.     40.     2.42                                    \r\n                  137-        GRID    54              50.     40.     1.795                                   \r\n                  138-        GRID    55              70.     40.     .754                                    \r\n                  139-        GRID    61              .0      60.     .0                                      \r\n                  140-        GRID    62              10.     60.     .0                                      \r\n                  141-        GRID    63              30.     60.     .0                                      \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    64              50.     60.     .0                                      \r\n                  143-        GRID    71              .0      60.     2.02                                    \r\n                  144-        GRID    72              10.     60.     2.02                                    \r\n                  145-        GRID    73              30.     60.     2.02                                    \r\n                  146-        GRID    74              50.     60.     .795                                    \r\n                  147-        GRID    81              .0      80.     .0                                      \r\n                  148-        GRID    82              10.     80.     .0                                      \r\n                  149-        GRID    83              30.     80.     .0                                      \r\n                  150-        GRID    91              .0      80.     .82                                     \r\n                  151-        GRID    92              10.     80.     .82                                     \r\n                  152-        GRID    93              30.     80.     .82                                     \r\n                  153-        MAT1    1       10.4  +64.   +6                                                 \r\n                  154-        MAT1    2       1.04+7  4.+6            .2523-3                                 \r\n                  155-        PARAM   IRES    1                                                               \r\n                  156-        PQDMEM  1       2       .16     .0                                              \r\n                  157-        PROD    5       1       2.1                                                     \r\n                  158-        PROD    6       1       3.5                                                     \r\n                  159-        PROD    7       1       4.91                                                    \r\n                  160-        PROD    8       1       4.2                                                     \r\n                  161-        PROD    9       1       5.6                                                     \r\n                  162-        PSHEAR  2       2       .14     .0                                              \r\n                  163-        PTRMEM  3       2       .16     .0                                              \r\n                  164-        SPC1    1       1       11      31      51      71      91                      \r\n                  165-        SPC1    1       3       13      33      53      73      93                      \r\n                  166-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  167-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  168-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  169-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      5\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE            509\r\n                                        MAX WAVEFRONT       17\r\n                                        AVG WAVEFRONT   10.604\r\n                                        RMS WAVEFRONT   11.331\r\n                                        RMS BANDWIDTH   12.060\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE            486\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   10.125\r\n                                        RMS WAVEFRONT   10.743\r\n                                        RMS BANDWIDTH   10.914\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       19        15\r\n                                        PROFILE (P)                        509       486\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           17        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       10.604    10.125\r\n                                        RMS WAVEFRONT (C-RMS)           11.331    10.743\r\n                                        RMS BANDWITCH (B-RMS)           12.060    10.914\r\n                                        NUMBER OF GRID POINTS (N)                     48\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               113\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          13\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       200\r\n                                        MATRIX DENSITY, PERCENT                   19.444\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  12\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3      11       4      13\r\n                         SEQGP          5       7       6       2      11       3      12       5\r\n                         SEQGP         13      12      14      14      15      10      16       6\r\n                         SEQGP         21      27      22      18      23      24      24      25\r\n                         SEQGP         25      15      26       8      31      16      32      17\r\n                         SEQGP         33      19      34      23      35      20      36       9\r\n                         SEQGP         41      37      42      30      43      32      44      26\r\n                         SEQGP         45      21      51      28      52      29      53      31\r\n                         SEQGP         54      33      55      22      61      44      62      40\r\n                         SEQGP         63      36      64      34      71      38      72      39\r\n                         SEQGP         73      41      74      35      81      48      82      47\r\n                         SEQGP         83      42      91      45      92      46      93      43\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER    12\r\n         3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n         4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n         6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =      9\r\n         7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     10\r\n         8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     11\r\n         9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        10,   REENTER AT DMAP SEQUENCE NUMBER    13\r\n        11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12\r\n        12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        13,   REENTER AT DMAP SEQUENCE NUMBER    14\r\n        14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     13\r\n        15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     14\r\n \r\n        16,   REENTER AT DMAP SEQUENCE NUMBER    15\r\n        17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     15\r\n        18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     16\r\n        19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     17\r\n \r\n        20,   REENTER AT DMAP SEQUENCE NUMBER    16\r\n        21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     18\r\n        22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     19\r\n \r\n        23,   REENTER AT DMAP SEQUENCE NUMBER    18\r\n        24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20\r\n        25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        29,   REENTER AT DMAP SEQUENCE NUMBER    28\r\n        30,   SLT     ,   FLAGS = 0,   REEL =  1,   FILE =     21\r\n        31,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22\r\n        32,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        33,   REENTER AT DMAP SEQUENCE NUMBER    30\r\n        34,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23\r\n        35,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24\r\n        36,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25\r\n        37,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        38,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        39,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n        40,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        41,   REENTER AT DMAP SEQUENCE NUMBER    31\r\n        42,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26\r\n        43,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27\r\n        44,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28\r\n \r\n        45,   REENTER AT DMAP SEQUENCE NUMBER    34\r\n        46,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     29\r\n        47,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        48,   REENTER AT DMAP SEQUENCE NUMBER    35\r\n        49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     30\r\n        50,   OPTP1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        51,   REENTER AT DMAP SEQUENCE NUMBER    39\r\n        52,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     31\r\n        53,   OPTP2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        54,   EST1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SHEAR    ELEMENTS (ELEMENT TYPE   4) STARTING WITH ID       18\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       10\r\n \r\n        55,   REENTER AT DMAP SEQUENCE NUMBER    40\r\n        56,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     32\r\n        57,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     33\r\n        58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34\r\n        59,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        60,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        61,   REENTER AT DMAP SEQUENCE NUMBER    42\r\n        62,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n        63,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36\r\n \r\n        64,   REENTER AT DMAP SEQUENCE NUMBER    44\r\n        65,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37\r\n        66,   MGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        67,   REENTER AT DMAP SEQUENCE NUMBER    54\r\n        68,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        69,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        70,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38\r\n \r\n        71,   REENTER AT DMAP SEQUENCE NUMBER    58\r\n        72,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     39\r\n        73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40\r\n \r\n        74,   REENTER AT DMAP SEQUENCE NUMBER    61\r\n        75,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     41\r\n        76,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     42\r\n        77,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     43\r\n        78,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        79,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        80,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        81,   REENTER AT DMAP SEQUENCE NUMBER    65\r\n        82,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44\r\n        83,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        84,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        85,   QR      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        86,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        87,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        88,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        89,   KOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        90,   LOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        91,   PO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        92,   UOOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        93,   RUOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        94,   PS      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        95,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        96,   KSS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        97,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        98,   REENTER AT DMAP SEQUENCE NUMBER    66\r\n        99,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n       100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45\r\n \r\n       101,   REENTER AT DMAP SEQUENCE NUMBER    71\r\n       102,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46\r\n       103,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       104,   REENTER AT DMAP SEQUENCE NUMBER    73\r\n       105,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     47\r\n       106,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     48\r\n       107,   KSS     ,   FLAGS = 0,   REEL =  1,   FILE =     49\r\n       108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     50\r\n \r\n       109,   REENTER AT DMAP SEQUENCE NUMBER    75\r\n       110,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     47\r\n       111,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     47\r\n       112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51\r\n \r\n       113,   REENTER AT DMAP SEQUENCE NUMBER    79\r\n       114,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     47\r\n       115,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52\r\n \r\n       116,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       117,   LLL     ,   FLAGS = 0,   REEL =  1,   FILE =     53\r\n       118,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     54\r\n \r\n       119,   REENTER AT DMAP SEQUENCE NUMBER    87\r\n       120,   PG      ,   FLAGS = 0,   REEL =  1,   FILE =     55\r\n       121,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56\r\n \r\n       122,   REENTER AT DMAP SEQUENCE NUMBER    88\r\n       123,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     57\r\n       124,   PL      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       125,   REENTER AT DMAP SEQUENCE NUMBER    90\r\n       126,   PS      ,   FLAGS = 0,   REEL =  1,   FILE =     58\r\n       127,   PL      ,   FLAGS = 0,   REEL =  1,   FILE =     59\r\n       128,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.9361567E-12\r\n \r\n       129,   REENTER AT DMAP SEQUENCE NUMBER    92\r\n       130,   ULV     ,   FLAGS = 0,   REEL =  1,   FILE =     61\r\n       131,   RULV    ,   FLAGS = 0,   REEL =  1,   FILE =     62\r\n       132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3 -7.03722E-11        6 T3  1.51408E-09       11 T2 -1.70530E-13       11 T3  3.87956E-11        2 T3  1.45121E-10\r\n            12 T1  7.81597E-13       12 T2  2.04636E-12       12 T3 -3.06954E-11       16 T1  2.11458E-11       16 T2 -3.63798E-11\r\n            16 T3  3.46632E-10        5 T3  5.13410E-10       26 T3 -1.55973E-09       36 T1 -3.63798E-12       36 T2 -1.45519E-11\r\n            36 T3 -1.25812E-09       15 T1 -3.05818E-11       15 T2  2.84217E-12       15 T3 -3.03367E-09        3 T3 -2.85397E-14\r\n            13 T1  7.95808E-12       13 T2  3.34510E-13        4 T3 -1.52158E-09       14 T1  5.79803E-12       14 T2  5.45697E-12\r\n            14 T3 -9.03015E-10       25 T3 -2.40846E-09       31 T2 -4.54747E-13       31 T3  1.05387E-10       32 T1  2.37321E-12\r\n            32 T2  2.27374E-13       32 T3  5.13403E-11       22 T3  1.21645E-11       33 T1 -5.74119E-12       33 T2  1.53477E-12\r\n            35 T1 -4.04441E-11       35 T2  2.66027E-11       35 T3  3.18244E-09       45 T3  1.50906E-09       55 T1  5.91172E-12\r\n            55 T2  2.04636E-11       55 T3 -9.34293E-10       34 T1 -8.18545E-12       34 T2  1.09139E-11       34 T3  2.75008E-10\r\n            23 T3 -3.30520E-13       24 T3 -3.13321E-10       44 T3 -3.72765E-10       21 T3 -2.32831E-10       51 T2  1.70530E-13\r\n            51 T3 -3.15898E-11       52 T1  1.13687E-12       52 T2  2.16005E-12       52 T3  1.33653E-11       42 T3 -3.27418E-11\r\n            53 T1  1.32402E-12       53 T2  2.41585E-13       43 T3  3.48166E-13       54 T1 -9.94049E-12       54 T2  7.44849E-13\r\n            54 T3  4.15166E-11       64 T3  1.45990E-11       74 T1 -3.29692E-12       74 T2  2.78533E-12       74 T3  1.22363E-10\r\n            63 T3  3.01981E-14       71 T2  2.84217E-14       71 T3  1.14238E-11       72 T1  3.69482E-13       72 T2  1.81899E-12\r\n            72 T3 -8.65725E-11       62 T3  2.85638E-11       73 T1 -1.70530E-12       73 T2  1.70530E-13       83 T3  1.42109E-14\r\n            93 T1 -1.36424E-12       93 T2  2.84217E-13       61 T3  5.82077E-11       91 T2  2.27374E-13       91 T3  5.82077E-11\r\n            92 T1 -1.81899E-12       92 T2  4.54747E-13       92 T3  9.42464E-11       82 T3 -2.21689E-11       81 T3  5.82077E-11\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       133,   REENTER AT DMAP SEQUENCE NUMBER    97\r\n       134,   UGV     ,   FLAGS = 0,   REEL =  1,   FILE =     64\r\n       135,   PGG     ,   FLAGS = 0,   REEL =  1,   FILE =     65\r\n       136,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =     66\r\n       137,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     67\r\n \r\n       138,   REENTER AT DMAP SEQUENCE NUMBER   104\r\n       139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68\r\n       140,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       141,   OGPFB1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       142,   REENTER AT DMAP SEQUENCE NUMBER   105\r\n       143,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     69\r\n       144,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       145,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n \r\n       146,   REENTER AT DMAP SEQUENCE NUMBER   111\r\n       147,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =     70\r\n       148,   OUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     71\r\n       149,   OES1    ,   FLAGS = 0,   REEL =  1,   FILE =     72\r\n       150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     73\r\n       151,   OPG1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       152,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       153,   PUGV1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       154,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       155,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       156,   REENTER AT DMAP SEQUENCE NUMBER   115\r\n       157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     74\r\n       158,   OES1M   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       159,   REENTER AT DMAP SEQUENCE NUMBER   121\r\n       160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75\r\n       161,   OES1A   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       162,   REENTER AT DMAP SEQUENCE NUMBER   141\r\n       163,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76\r\n       164,   OUGV2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            6.326195E-04   3.889221E-02   0.0            0.0            0.0                           \r\n            12      G      6.110347E-04   5.786690E-04   3.516638E-02   0.0            0.0            0.0                           \r\n            13      G      2.246047E-03   2.291722E-04   0.0            0.0            0.0            0.0                           \r\n            14      G      4.135543E-03  -5.312650E-04  -8.153134E-02   0.0            0.0            0.0                           \r\n            15      G      6.438577E-03  -2.061774E-03  -2.213399E-01   0.0            0.0            0.0                           \r\n            16      G      7.125177E-03  -4.191895E-03  -4.237940E-01   0.0            0.0            0.0                           \r\n            31      G      0.0            6.583068E-04   3.027513E-02   0.0            0.0            0.0                           \r\n            32      G      1.397886E-03   6.218933E-04   2.684338E-02   0.0            0.0            0.0                           \r\n            33      G      4.495833E-03  -1.921513E-04   0.0            0.0            0.0            0.0                           \r\n            34      G      7.184171E-03  -1.908943E-03  -6.307607E-02   0.0            0.0            0.0                           \r\n            35      G      8.284863E-03  -4.174031E-03  -1.619760E-01   0.0            0.0            0.0                           \r\n            36      G      4.867467E-03  -3.979917E-03  -2.926660E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            3.229334E-04   2.358343E-02   0.0            0.0            0.0                           \r\n            52      G      1.327153E-03   3.639649E-04   2.089395E-02   0.0            0.0            0.0                           \r\n            53      G      3.920446E-03  -3.346661E-04   0.0            0.0            0.0            0.0                           \r\n            54      G      4.837958E-03  -1.793201E-03  -4.258112E-02   0.0            0.0            0.0                           \r\n            55      G      2.893602E-03  -1.783306E-03  -1.044655E-01   0.0            0.0            0.0                           \r\n            71      G      0.0           -2.613379E-05   1.925292E-02   0.0            0.0            0.0                           \r\n            72      G      9.031846E-04   6.687018E-05   1.707610E-02   0.0            0.0            0.0                           \r\n            73      G      2.238884E-03  -1.884281E-04   0.0            0.0            0.0            0.0                           \r\n            74      G      1.161988E-03  -4.283132E-04  -2.486472E-02   0.0            0.0            0.0                           \r\n            91      G      0.0           -2.217726E-04   1.909140E-02   0.0            0.0            0.0                           \r\n            92      G      4.337606E-04  -1.089645E-04   1.644652E-02   0.0            0.0            0.0                           \r\n            93      G      7.280685E-04   6.026249E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.456080E-10   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      9.074130E+01  -3.683558E+01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.913966E+02  -7.238023E+01   0.0            0.0            0.0            0.0                           \r\n             4      G      1.619174E+03   1.084571E+02   0.0            0.0            0.0            0.0                           \r\n             5      G      4.264385E+03  -5.589730E+02   0.0            0.0            0.0            0.0                           \r\n             6      G      3.345866E+03  -2.564445E+03   0.0            0.0            0.0            0.0                           \r\n            11      G     -9.288416E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            2.728490E+01   0.0            0.0            0.0                           \r\n            21      G     -7.994647E+00   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G     -6.603453E+02   3.854870E+02   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.369353E+02   5.911785E+02   0.0            0.0            0.0            0.0                           \r\n            24      G      1.262641E+03   1.446680E+02   0.0            0.0            0.0            0.0                           \r\n            25      G      2.098824E+03  -1.315867E+03   0.0            0.0            0.0            0.0                           \r\n            26      G      1.005600E+03  -2.218446E+03   0.0            0.0            0.0            0.0                           \r\n            31      G     -5.060130E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0            4.848077E+02   0.0            0.0            0.0                           \r\n            41      G     -1.477332E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G     -2.356820E+02   9.478534E+02   0.0            0.0            0.0            0.0                           \r\n            43      G      6.493493E+01   1.322354E+03   0.0            0.0            0.0            0.0                           \r\n            44      G      6.273634E+02  -1.207967E+02   0.0            0.0            0.0            0.0                           \r\n            45      G     -2.655376E+02  -1.498364E+02   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.865197E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            2.645033E+02   0.0            0.0            0.0                           \r\n            61      G     -1.647111E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      4.090248E+02   7.843605E+02   0.0            0.0            0.0            0.0                           \r\n            63      G      6.220519E+02   9.110595E+02   0.0            0.0            0.0            0.0                           \r\n            64      G     -6.780111E+02   7.175596E+02   0.0            0.0            0.0            0.0                           \r\n            71      G     -3.306838E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -9.256940E+01   0.0            0.0            0.0                           \r\n            81      G      6.084520E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      6.376050E+02   2.588298E+02   0.0            0.0            0.0            0.0                           \r\n            83      G      2.409647E+01   8.657728E+02   0.0            0.0            0.0            0.0                           \r\n            91      G     -6.869459E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -1.840265E+02   0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.067032E+03   7.464526E+01  -2.523309E+01       -1.4556       1.067674E+03   7.400409E+01   4.968348E+02          \r\n        2        1.277331E+03   1.558731E+02  -1.844174E+02       -9.1027       1.306879E+03   1.263251E+02   5.902769E+02          \r\n        3        1.464351E+03   2.120861E+02  -5.238947E+02      -19.9599       1.654617E+03   2.181940E+01   8.163989E+02          \r\n        4        1.532354E+03   3.064197E+02  -9.642474E+02      -28.7780       2.061972E+03  -2.231987E+02   1.142586E+03          \r\n        5        8.677583E+02   2.805625E+02  -1.185906E+03      -38.0474       1.795869E+03  -6.475483E+02   1.221709E+03          \r\n        6        1.484669E+03   2.254963E+02  -3.062851E+01       -1.3926       1.485414E+03   2.247518E+02   6.303311E+02          \r\n        7        1.581563E+03   3.394707E+02  -3.112921E+02      -13.3109       1.655212E+03   2.658219E+02   6.946951E+02          \r\n        8        1.609814E+03   4.759346E+02  -7.585593E+02      -26.6130       1.989887E+03   9.586169E+01   9.470127E+02          \r\n        9        1.259379E+03   5.328748E+02  -1.007006E+03      -35.0822       1.966647E+03  -1.743931E+02   1.070520E+03          \r\n       11        1.233078E+03   2.443430E+02   3.874672E+00        0.2245       1.233094E+03   2.443279E+02   4.943829E+02          \r\n       12        1.116186E+03   3.154936E+02  -2.299598E+02      -14.9366       1.177531E+03   2.541488E+02   4.616911E+02          \r\n       13        8.234872E+02   4.113317E+02  -5.510374E+02      -34.7476       1.205721E+03   2.909808E+01   5.883113E+02          \r\n       15        7.362961E+02   1.369492E+02   5.198694E+01        4.9208       7.407720E+02   1.324733E+02   3.041494E+02          \r\n       16        4.751649E+02   1.712104E+02  -5.485458E+00       -1.0336       4.752639E+02   1.711114E+02   1.520762E+02          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        9.765625E-04  -9.765625E-04                       19        6.481470E+01  -6.481470E+01                     \r\n              20        5.004673E+02  -5.004673E+02                       21        6.560859E+02  -6.560859E+02                     \r\n              22        2.389902E+03  -2.389902E+03                       28        2.110498E+01   2.110498E+01                     \r\n              29        1.577919E+02   1.577919E+02                       30        2.752647E+02  -2.133537E+02                     \r\n              31        5.807382E+02  -3.416038E+02                       35        2.441406E-04  -2.441406E-04                     \r\n              36        4.554319E+02  -4.554319E+02                       41        1.273588E+02   7.417298E+01                     \r\n              42        5.678261E+02  -4.817272E+02                       43        5.637499E+02  -4.782690E+02                     \r\n              44        4.438794E+02  -2.585127E+02                       50        1.831746E+03   1.831746E+03                     \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10        9.285977E+02   5.275767E+02  -6.003485E+02      -35.7656       1.361035E+03   9.513947E+01   6.329477E+02          \r\n       14        8.101731E+02   4.935635E+02  -2.993453E+02      -31.0642       9.904950E+02   3.132416E+02   3.386267E+02          \r\n       17        2.965867E+02   2.183271E+02  -5.222508E+01      -26.5787       3.227149E+02   1.921989E+02   6.525797E+01          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DELTA WING WITH BICONVEX CROSS SECTION                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       165,   REENTER AT DMAP SEQUENCE NUMBER   149\r\n       166,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77\r\n       167,   OESF1X  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       168,   OESF1Y  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       169,   REENTER AT DMAP SEQUENCE NUMBER   172\r\n       170,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     78\r\n       171,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DELTA WING WITH BICONVEX CROSS SECTION                             \r\n DATE:  5/17/95\r\n END TIME: 14: 1: 4\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01011b.out",
    "content": "     NASTRAN  FILES = OPTP                                                           \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01011B,RESTART                                                           \r\n     $ INSERT THE RESTART DICTIONARY HERE                                            \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n            ( 173 CARDS READ)\r\n0*** $   END READFILE                                                                \r\n     APP      DISPLACEMENT                                                           \r\n     SOL      1,1                                                                    \r\n     TIME     5                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DELTA WING             RESTART                                       \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                          \r\n                  3      LABEL    = LOAD ON LEADING EDGE                                                 \r\n                  4          LOAD = 2                                                                    \r\n                  5          SPC  = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7      $   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n                  8      $   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n                  9      $   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n                 10      $                                                                               \r\n                 11              SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n                 12              SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n                 13      $                                                                               \r\n                 14         DISPLACEMENTS = 1                                                            \r\n                 15              SPCFORCE = ALL                                                          \r\n                 16              ELSTRESS = 2                                                            \r\n                 17      BEGIN BULK                                                                      \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=      0\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     34      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM  1       1       11      12      32      31                              \r\n                   38-        CQDMEM  2       1       12      13      33      32                              \r\n                   39-        CQDMEM  3       1       13      14      34      33                              \r\n                   40-        CQDMEM  4       1       14      15      35      34                              \r\n                   41-        CQDMEM  5       1       15      16      36      35                              \r\n                   42-        CQDMEM  6       1       31      32      52      51                              \r\n                   43-        CQDMEM  7       1       32      33      53      52                              \r\n                   44-        CQDMEM  8       1       33      34      54      53                              \r\n                   45-        CQDMEM  9       1       34      35      55      54                              \r\n                   46-        CQDMEM  11      1       51      52      72      71                              \r\n                   47-        CQDMEM  12      1       52      53      73      72                              \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM  13      1       53      54      74      73                              \r\n                   49-        CQDMEM  15      1       71      72      92      91                              \r\n                   50-        CQDMEM  16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        FORCE   1       16      0       -1.     .0      .0      500.                    \r\n                  103-        FORCE   2       36              -1.0    .0      .0      500.0                   \r\n                  104-        GRDSET                                                  456                     \r\n                  105-        GRID    1               .0      .0      .0                                      \r\n                  106-        GRID    2               10.     .0      .0                                      \r\n                  107-        GRID    3               30.     .0      .0                                      \r\n                  108-        GRID    4               50.     .0      .0                                      \r\n                  109-        GRID    5               70.     .0      .0                                      \r\n                  110-        GRID    6               90.     .0      .0                                      \r\n                  111-        GRID    11              .0      .0      .82                                     \r\n                  112-        GRID    12              10.     .0      .82                                     \r\n                  113-        GRID    13              30.     .0      .82                                     \r\n                  114-        GRID    14              50.     .0      .795                                    \r\n                  115-        GRID    15              70.     .0      .754                                    \r\n                  116-        GRID    16              90.     .0      .67                                     \r\n                  117-        GRID    21              .0      20.     .0                                      \r\n                  118-        GRID    22              10.     20.     .0                                      \r\n                  119-        GRID    23              30.     20.     .0                                      \r\n                  120-        GRID    24              50.     20.     .0                                      \r\n                  121-        GRID    25              70.     20.     .0                                      \r\n                  122-        GRID    26              90.     20.     .0                                      \r\n                  123-        GRID    31              .0      20.     2.02                                    \r\n                  124-        GRID    32              10.     20.     2.02                                    \r\n                  125-        GRID    33              30.     20.     2.02                                    \r\n                  126-        GRID    34              50.     20.     1.795                                   \r\n                  127-        GRID    35              70.     20.     1.42                                    \r\n                  128-        GRID    36              90.     20.     .67                                     \r\n                  129-        GRID    41              .0      40.     .0                                      \r\n                  130-        GRID    42              10.     40.     .0                                      \r\n                  131-        GRID    43              30.     40.     .0                                      \r\n                  132-        GRID    44              50.     40.     .0                                      \r\n                  133-        GRID    45              70.     40.     .0                                      \r\n                  134-        GRID    51              .0      40.     2.42                                    \r\n                  135-        GRID    52              10.     40.     2.42                                    \r\n                  136-        GRID    53              30.     40.     2.42                                    \r\n                  137-        GRID    54              50.     40.     1.795                                   \r\n                  138-        GRID    55              70.     40.     .754                                    \r\n                  139-        GRID    61              .0      60.     .0                                      \r\n                  140-        GRID    62              10.     60.     .0                                      \r\n                  141-        GRID    63              30.     60.     .0                                      \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    64              50.     60.     .0                                      \r\n                  143-        GRID    71              .0      60.     2.02                                    \r\n                  144-        GRID    72              10.     60.     2.02                                    \r\n                  145-        GRID    73              30.     60.     2.02                                    \r\n                  146-        GRID    74              50.     60.     .795                                    \r\n                  147-        GRID    81              .0      80.     .0                                      \r\n                  148-        GRID    82              10.     80.     .0                                      \r\n                  149-        GRID    83              30.     80.     .0                                      \r\n                  150-        GRID    91              .0      80.     .82                                     \r\n                  151-        GRID    92              10.     80.     .82                                     \r\n                  152-        GRID    93              30.     80.     .82                                     \r\n                  153-        MAT1    1       10.4  +64.   +6                                                 \r\n                  154-        MAT1    2       1.04+7  4.+6            .2523-3                                 \r\n                  155-        PARAM   IRES    1                                                               \r\n                  156-        PQDMEM  1       2       .16     .0                                              \r\n                  157-        PROD    5       1       2.1                                                     \r\n                  158-        PROD    6       1       3.5                                                     \r\n                  159-        PROD    7       1       4.91                                                    \r\n                  160-        PROD    8       1       4.2                                                     \r\n                  161-        PROD    9       1       5.6                                                     \r\n                  162-        PSHEAR  2       2       .14     .0                                              \r\n                  163-        PTRMEM  3       2       .16     .0                                              \r\n                  164-        SPC1    1       1       11      31      51      71      91                      \r\n                  165-        SPC1    1       3       13      33      53      73      93                      \r\n                  166-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  167-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  168-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  169-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   3           LOAD$                  59\r\n                  17           POUT$                  19\r\n                  31           NOLOOP$                31\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n NONE\r\n\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n+  +\r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n+  +\r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n+  *\r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n+  +\r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n+  +\r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n+  +\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n+  +\r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n+  +\r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n+  +\r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n+  *\r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n+  *\r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n+  *\r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n+  *\r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n+  *\r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n+  +\r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n+  +\r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n+  +\r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n+  +\r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n+  +\r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n+  *\r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n+  *\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n+  *\r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n+  *\r\n\r\n      90  LABEL    LBL10 $                                                        \r\n+  +\r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n+  *\r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n+  *\r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n+  *\r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n+  *\r\n\r\n      95  LABEL    LBL9 $                                                         \r\n+  +\r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n+  *\r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n+  *\r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n+  *\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n+  +\r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n+  *\r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n+  *\r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n+  *\r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n+  *\r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n+  +\r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n+  *\r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n+  *\r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n+  *\r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n+  *\r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n+  *\r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n+  *\r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n+  *\r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n+  +\r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n+  +\r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n+  +\r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n+  *\r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n+  *\r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n+  *\r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n+  *\r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n+  *\r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n+  +\r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n+  *\r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     151  LABEL    DPLOT $                                                        \r\n+  +\r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n+  +\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n\r\n      LOAD ON LEADING EDGE                                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n+  +\r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n+  *\r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n+  +\r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n+  +\r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n+  *\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     CSTM      (PURGED)\r\n     GPTT      (PURGED)\r\n     MPTX      (PURGED)\r\n     PCOMPS    (PURGED)\r\n     EPTX      (PURGED)\r\n     OPTP1     (PURGED)\r\n     OPTP2     (PURGED)\r\n     EST1      (PURGED)\r\n     KELM      (PURGED)\r\n     KDICT     (PURGED)\r\n     MGG       (PURGED)\r\n     DM        (PURGED)\r\n     GM        (PURGED)\r\n     GO        (PURGED)\r\n     KOO       (PURGED)\r\n     LOO       (PURGED)\r\n     GPL              1         6\r\n     EQEXIN           1         7\r\n     GPDT             1         8\r\n     BGPDT            1         9\r\n     SIL              1        10\r\n     BGPDP            1        15\r\n     ECT              1        18\r\n     SLT              1        21\r\n     EST              1        23\r\n     GPECT            1        24\r\n     GPST             1        39\r\n     KFF              1        47\r\n     KAA              1        47\r\n     KLL              1        47\r\n     KFS              1        48\r\n     KSS              1        49\r\n     LLL              1        53\r\n     XVPS             1        78\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   6.1515055E-12\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3 -6.95763E-11        6 T3  6.16296E-10       11 T2  1.70530E-13       11 T3  2.10918E-10        2 T3 -5.02780E-11\r\n            12 T1 -1.11378E-12       12 T2  2.72848E-12       12 T3  9.60512E-11       16 T1 -7.73070E-12       16 T2 -1.50067E-11\r\n            16 T3  5.43775E-10        5 T3  2.58819E-09       26 T3  9.83107E-10       36 T1  2.00089E-11       36 T2  7.27596E-12\r\n            36 T3 -6.04552E-09       15 T1 -1.59162E-12       15 T2 -1.37277E-11       15 T3 -9.33122E-10        3 T3  7.41768E-15\r\n            13 T1  7.16227E-12       13 T2 -2.87936E-13        4 T3  1.00050E-09       14 T1  1.35856E-11       14 T2 -5.45697E-12\r\n            14 T3 -1.29640E-09       25 T3 -2.87628E-09       31 T2  5.68434E-14       31 T3  9.06279E-11       32 T1  4.97380E-13\r\n            32 T2 -9.09495E-13       32 T3 -8.64659E-11       22 T3 -7.32712E-11       33 T1 -6.45173E-12       33 T2  1.53477E-12\r\n            35 T1 -9.35074E-12       35 T2 -7.27596E-12       35 T3  3.44293E-09       45 T3 -2.43809E-09       55 T1  6.36646E-12\r\n            55 T2  8.64020E-12       55 T3  1.76433E-09       34 T1 -1.08002E-11       34 T2  9.09495E-13       34 T3  1.12095E-10\r\n            23 T3 -4.59924E-13       24 T3 -3.08091E-10       44 T3 -5.50486E-10       21 T3 -5.82077E-11       51 T2 -1.13687E-13\r\n            51 T3 -1.09983E-11       52 T1  2.84217E-13       52 T2  1.81899E-12       52 T3 -1.23705E-11       42 T3 -5.66729E-11\r\n            53 T1  5.36009E-12       53 T2  8.24230E-13       43 T3  4.40536E-13       54 T1 -4.59721E-12       54 T2 -3.17385E-12\r\n            54 T3  1.82623E-11       64 T3 -1.27191E-10       74 T1  4.30589E-12       74 T2 -1.40687E-12       74 T3  2.89413E-11\r\n            63 T3  2.75335E-14       41 T3 -1.16415E-10       71 T2  3.97904E-13       71 T3  9.31895E-11       72 T1 -1.13687E-12\r\n            72 T2  9.09495E-13       72 T3 -1.42734E-10       62 T3  5.87477E-11       73 T1 -8.12861E-12       73 T2  3.12639E-13\r\n            83 T3  1.42109E-14       93 T1 -4.54747E-13       93 T2 -3.41061E-13       61 T3  5.82077E-11       91 T2  1.13687E-13\r\n            91 T3  1.16415E-10       92 T1 -4.54747E-13       92 T2  4.54747E-13       92 T3 -9.08926E-11       82 T3  2.55227E-11\r\n            81 T3 -1.16415E-10\r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            5.504990E-04   3.530420E-02   0.0            0.0            0.0                           \r\n            12      G      6.107410E-04   4.929025E-04   3.158017E-02   0.0            0.0            0.0                           \r\n            13      G      1.873376E-03   2.850013E-04   0.0            0.0            0.0            0.0                           \r\n            14      G      3.161895E-03   8.439103E-05  -6.274446E-02   0.0            0.0            0.0                           \r\n            15      G      4.411702E-03  -1.702276E-04  -1.625252E-01   0.0            0.0            0.0                           \r\n            16      G      4.745846E-03   4.252517E-05  -2.926660E-01   0.0            0.0            0.0                           \r\n            31      G      0.0            5.442912E-04   2.830364E-02   0.0            0.0            0.0                           \r\n            32      G      1.305697E-03   5.001065E-04   2.510981E-02   0.0            0.0            0.0                           \r\n            33      G      4.089955E-03  -3.986530E-05   0.0            0.0            0.0            0.0                           \r\n            34      G      6.495925E-03  -7.628573E-04  -5.700741E-02   0.0            0.0            0.0                           \r\n            35      G      7.875944E-03  -1.463164E-03  -1.480883E-01   0.0            0.0            0.0                           \r\n            36      G      5.096887E-03  -9.914878E-04  -2.803201E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            2.245659E-04   2.367125E-02   0.0            0.0            0.0                           \r\n            52      G      1.331577E-03   2.509207E-04   2.097496E-02   0.0            0.0            0.0                           \r\n            53      G      4.035364E-03  -2.396090E-04   0.0            0.0            0.0            0.0                           \r\n            54      G      5.250302E-03  -1.264451E-03  -4.560495E-02   0.0            0.0            0.0                           \r\n            55      G      3.479791E-03  -1.510970E-03  -1.177722E-01   0.0            0.0            0.0                           \r\n            71      G      0.0           -1.015693E-04   2.070749E-02   0.0            0.0            0.0                           \r\n            72      G      9.683918E-04  -1.727391E-05   1.836970E-02   0.0            0.0            0.0                           \r\n            73      G      2.533760E-03  -1.852120E-04   0.0            0.0            0.0            0.0                           \r\n            74      G      1.384301E-03  -4.822831E-04  -3.005366E-02   0.0            0.0            0.0                           \r\n            91      G      0.0           -2.647094E-04   2.149453E-02   0.0            0.0            0.0                           \r\n            92      G      4.786263E-04  -1.570201E-04   1.857608E-02   0.0            0.0            0.0                           \r\n            93      G      8.386566E-04   2.826507E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.165042E-10   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.599395E+02  -1.461141E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      4.687872E+02  -4.818484E+02   0.0            0.0            0.0            0.0                           \r\n             4      G      6.671176E+02  -1.392725E+02   0.0            0.0            0.0            0.0                           \r\n             5      G      9.848511E+02   1.650048E+02   0.0            0.0            0.0            0.0                           \r\n             6      G      4.265812E+02   5.084844E+02   0.0            0.0            0.0            0.0                           \r\n            11      G     -9.479640E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0           -1.204342E+02   0.0            0.0            0.0                           \r\n            21      G     -1.071339E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G     -4.583174E+02   6.434440E+01   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.515692E+01  -1.296826E+02   0.0            0.0            0.0            0.0                           \r\n            24      G      8.916004E+02  -1.697035E+02   0.0            0.0            0.0            0.0                           \r\n            25      G      2.732031E+03  -6.619138E+02   0.0            0.0            0.0            0.0                           \r\n            26      G      3.636943E+03  -8.655808E+02   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.741040E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0            3.889736E+02   0.0            0.0            0.0                           \r\n            41      G     -1.543079E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G     -3.514639E+02   6.451864E+02   0.0            0.0            0.0            0.0                           \r\n            43      G      9.565627E+01   8.870487E+02   0.0            0.0            0.0            0.0                           \r\n            44      G      1.457744E+03  -6.072207E+02   0.0            0.0            0.0            0.0                           \r\n            45      G      2.237699E+03  -2.038563E+03   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.894878E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            3.813365E+02   0.0            0.0            0.0                           \r\n            61      G     -1.660231E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      2.722174E+02   7.201207E+02   0.0            0.0            0.0            0.0                           \r\n            63      G      9.084629E+02   8.436291E+02   0.0            0.0            0.0            0.0                           \r\n            64      G     -1.559330E+02   1.987865E+02   0.0            0.0            0.0            0.0                           \r\n            71      G     -3.551513E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0            5.214319E+01   0.0            0.0            0.0                           \r\n            81      G      6.857590E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      7.030408E+02   2.853928E+02   0.0            0.0            0.0            0.0                           \r\n            83      G      8.988521E+01   9.219017E+02   0.0            0.0            0.0            0.0                           \r\n            91      G     -7.635428E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -2.020191E+02   0.0            0.0            0.0                           \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.026162E+03   9.871423E+01  -3.381412E+01       -2.0853       1.027393E+03   9.748303E+01   4.649550E+02          \r\n        2        1.095968E+03   1.459189E+02  -1.235515E+02       -7.2897       1.111772E+03   1.301143E+02   4.908290E+02          \r\n        3        1.185247E+03   1.260328E+02  -1.991666E+02      -10.3048       1.221458E+03   8.982092E+01   5.658187E+02          \r\n        4        1.179686E+03  -2.426147E+00  -2.313605E+02      -10.6886       1.223354E+03  -4.609436E+01   6.347242E+02          \r\n        5        7.152158E+02  -2.652981E+02  -4.286072E+01       -2.4982       7.170858E+02  -2.671681E+02   4.921270E+02          \r\n        6        1.443246E+03   2.395445E+02  -2.453354E+01       -1.1671       1.443746E+03   2.390447E+02   6.023505E+02          \r\n        7        1.522463E+03   3.185712E+02  -1.980511E+02       -9.1061       1.554207E+03   2.868271E+02   6.336901E+02          \r\n        8        1.563812E+03   2.867714E+02  -4.314293E+02      -17.0229       1.695902E+03   1.546819E+02   7.706099E+02          \r\n        9        1.314786E+03  -9.774048E+00  -5.345066E+02      -19.4530       1.503572E+03  -1.985593E+02   8.510654E+02          \r\n       11        1.272889E+03   2.563500E+02   5.946625E+00        0.3352       1.272924E+03   2.563152E+02   5.083043E+02          \r\n       12        1.205905E+03   3.197482E+02  -1.736017E+02      -10.6978       1.238700E+03   2.869526E+02   4.758739E+02          \r\n       13        9.566259E+02   3.041428E+02  -4.758458E+02      -27.7827       1.207327E+03   5.344183E+01   5.769426E+02          \r\n       15        7.959081E+02   1.448627E+02   5.240103E+01        4.5724       8.000988E+02   1.406721E+02   3.297133E+02          \r\n       16        5.553535E+02   1.824994E+02   4.913635E+00        0.7549       5.554182E+02   1.824346E+02   1.864918E+02          \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n \r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        0.0            0.0                                19        2.570995E+02  -2.570995E+02                     \r\n              20        7.774805E+01  -7.774805E+01                       21        3.987627E+02  -3.987627E+02                     \r\n              22        3.046973E+02  -3.046973E+02                       28        2.204395E+01   2.204395E+01                     \r\n              29        2.400233E+02   2.400233E+02                       30        4.157130E+02  -3.222133E+02                     \r\n              31        1.744758E+03  -1.026307E+03                       35        4.882812E-04  -4.882812E-04                     \r\n              36        5.021718E+02  -5.021718E+02                       41        8.478514E+02   4.937835E+02                     \r\n              42        3.013582E+02  -2.556636E+02                       43        4.577146E+02  -3.883118E+02                     \r\n              44        5.432639E+02  -3.163936E+02                       50        3.632051E+02  -3.632051E+02                     \r\n1     DELTA WING             RESTART                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                                                                                   \r\n0     LOAD ON LEADING EDGE                                                                                                          \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10        1.062842E+03  -2.299238E+02  -1.325228E+02       -5.7932       1.076287E+03  -2.433691E+02   6.598279E+02          \r\n       14        1.133046E+03   3.440770E+02  -2.640948E+02      -16.9005       1.213287E+03   2.638362E+02   4.747254E+02          \r\n       17        4.301529E+02   2.400204E+02  -3.866161E+01      -11.0653       4.377137E+02   2.324596E+02   1.026270E+02          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DELTA WING             RESTART                                     \r\n DATE:  5/17/95\r\n END TIME: 14: 1:49\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01011c.out",
    "content": "     NASTRAN  FILES = OPTP                                                           \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01011C,RESTART                                                           \r\n     $ INSERT THE RESTART DICTIONARY HERE                                            \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  D01011A ,NASTRAN , 5/17/95,   50446,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      5               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER    13                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER    14                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER    15                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    16                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    18                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             30,   SLT     ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             31,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n             32,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             33,   REENTER AT DMAP SEQUENCE NUMBER    30                             \r\n             34,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             35,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             36,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             37,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             38,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             39,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             40,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             41,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             42,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             43,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             44,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n             45,   REENTER AT DMAP SEQUENCE NUMBER    34                             \r\n             46,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             47,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             48,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             50,   OPTP1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             51,   REENTER AT DMAP SEQUENCE NUMBER    39                             \r\n             52,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             53,   OPTP2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             54,   EST1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             55,   REENTER AT DMAP SEQUENCE NUMBER    40                             \r\n             56,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             57,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             59,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             60,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             61,   REENTER AT DMAP SEQUENCE NUMBER    42                             \r\n             62,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             63,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             64,   REENTER AT DMAP SEQUENCE NUMBER    44                             \r\n             65,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             66,   MGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             67,   REENTER AT DMAP SEQUENCE NUMBER    54                             \r\n             68,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             69,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             70,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             71,   REENTER AT DMAP SEQUENCE NUMBER    58                             \r\n             72,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             74,   REENTER AT DMAP SEQUENCE NUMBER    61                             \r\n             75,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             76,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             77,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             78,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             79,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             80,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             81,   REENTER AT DMAP SEQUENCE NUMBER    65                             \r\n             82,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             83,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             84,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             85,   QR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             86,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             87,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             88,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             89,   KOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             90,   LOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             91,   PO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             92,   UOOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             93,   RUOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             94,   PS      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             95,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             96,   KSS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             97,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             98,   REENTER AT DMAP SEQUENCE NUMBER    66                             \r\n             99,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n            100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n            101,   REENTER AT DMAP SEQUENCE NUMBER    71                             \r\n            102,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n            103,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            104,   REENTER AT DMAP SEQUENCE NUMBER    73                             \r\n            105,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n            106,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n            107,   KSS     ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n            108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n            109,   REENTER AT DMAP SEQUENCE NUMBER    75                             \r\n            110,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     47               \r\n            111,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     47               \r\n            112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n            113,   REENTER AT DMAP SEQUENCE NUMBER    79                             \r\n            114,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     47               \r\n            115,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n            116,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            117,   LLL     ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n            118,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n            119,   REENTER AT DMAP SEQUENCE NUMBER    87                             \r\n            120,   PG      ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            121,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            122,   REENTER AT DMAP SEQUENCE NUMBER    88                             \r\n            123,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            124,   PL      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            125,   REENTER AT DMAP SEQUENCE NUMBER    90                             \r\n            126,   PS      ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            127,   PL      ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            128,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            129,   REENTER AT DMAP SEQUENCE NUMBER    92                             \r\n            130,   ULV     ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            131,   RULV    ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            133,   REENTER AT DMAP SEQUENCE NUMBER    97                             \r\n            134,   UGV     ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            135,   PGG     ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            136,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            137,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n            138,   REENTER AT DMAP SEQUENCE NUMBER   104                             \r\n            139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            140,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            141,   OGPFB1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            142,   REENTER AT DMAP SEQUENCE NUMBER   105                             \r\n            143,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n            144,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            145,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            146,   REENTER AT DMAP SEQUENCE NUMBER   111                             \r\n            147,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            148,   OUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n            149,   OES1    ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n            150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            151,   OPG1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            152,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            153,   PUGV1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            154,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            155,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            156,   REENTER AT DMAP SEQUENCE NUMBER   115                             \r\n            157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            158,   OES1M   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            159,   REENTER AT DMAP SEQUENCE NUMBER   121                             \r\n            160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            161,   OES1A   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            162,   REENTER AT DMAP SEQUENCE NUMBER   141                             \r\n            163,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            164,   OUGV2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            165,   REENTER AT DMAP SEQUENCE NUMBER   149                             \r\n            166,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            167,   OESF1X  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            168,   OESF1Y  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            169,   REENTER AT DMAP SEQUENCE NUMBER   172                             \r\n            170,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            171,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME  5                                                                         \r\n     SOL   3,1                                                                       \r\n     APP   DISPLACEMENT                                                              \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION =   1, NEW SOLUTION =   3, BIT NUMBER = 187\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                          \r\n                  3      LABEL    = RIGID FORMAT SWITCH FROM 1 TO 3                                      \r\n                  4        SPC    = 1                                                                    \r\n                  5        METHOD = 12                                                                   \r\n                  6      OUTPUT                                                                          \r\n                  7      $   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n                  8      $   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n                  9      $   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n                 10      $                                                                               \r\n                 11              SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n                 12              SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n                 13      $                                                                               \r\n                 14              DISPLACEMENTS = 1                                                       \r\n                 15              SPCFORCE      = ALL                                                     \r\n                 16              ELSTRESS      = 2                                                       \r\n                 17      BEGIN BULK                                                                      \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              EIGR    12      INV     30.0    160.0   1       3       0       1.-4    +EIGR12               \r\n                              +EIGR12 MAX                                                                                   \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=      2\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     34      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM  1       1       11      12      32      31                              \r\n                   38-        CQDMEM  2       1       12      13      33      32                              \r\n                   39-        CQDMEM  3       1       13      14      34      33                              \r\n                   40-        CQDMEM  4       1       14      15      35      34                              \r\n                   41-        CQDMEM  5       1       15      16      36      35                              \r\n                   42-        CQDMEM  6       1       31      32      52      51                              \r\n                   43-        CQDMEM  7       1       32      33      53      52                              \r\n                   44-        CQDMEM  8       1       33      34      54      53                              \r\n                   45-        CQDMEM  9       1       34      35      55      54                              \r\n                   46-        CQDMEM  11      1       51      52      72      71                              \r\n                   47-        CQDMEM  12      1       52      53      73      72                              \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM  13      1       53      54      74      73                              \r\n                   49-        CQDMEM  15      1       71      72      92      91                              \r\n                   50-        CQDMEM  16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        EIGR    12      INV     30.0    160.0   1       3       0       1.-4    +EIGR12 \r\n                  103-        +EIGR12 MAX                                                                     \r\n                  104-        FORCE   1       16      0       -1.     .0      .0      500.                    \r\n                  105-        FORCE   2       36              -1.0    .0      .0      500.0                   \r\n                  106-        GRDSET                                                  456                     \r\n                  107-        GRID    1               .0      .0      .0                                      \r\n                  108-        GRID    2               10.     .0      .0                                      \r\n                  109-        GRID    3               30.     .0      .0                                      \r\n                  110-        GRID    4               50.     .0      .0                                      \r\n                  111-        GRID    5               70.     .0      .0                                      \r\n                  112-        GRID    6               90.     .0      .0                                      \r\n                  113-        GRID    11              .0      .0      .82                                     \r\n                  114-        GRID    12              10.     .0      .82                                     \r\n                  115-        GRID    13              30.     .0      .82                                     \r\n                  116-        GRID    14              50.     .0      .795                                    \r\n                  117-        GRID    15              70.     .0      .754                                    \r\n                  118-        GRID    16              90.     .0      .67                                     \r\n                  119-        GRID    21              .0      20.     .0                                      \r\n                  120-        GRID    22              10.     20.     .0                                      \r\n                  121-        GRID    23              30.     20.     .0                                      \r\n                  122-        GRID    24              50.     20.     .0                                      \r\n                  123-        GRID    25              70.     20.     .0                                      \r\n                  124-        GRID    26              90.     20.     .0                                      \r\n                  125-        GRID    31              .0      20.     2.02                                    \r\n                  126-        GRID    32              10.     20.     2.02                                    \r\n                  127-        GRID    33              30.     20.     2.02                                    \r\n                  128-        GRID    34              50.     20.     1.795                                   \r\n                  129-        GRID    35              70.     20.     1.42                                    \r\n                  130-        GRID    36              90.     20.     .67                                     \r\n                  131-        GRID    41              .0      40.     .0                                      \r\n                  132-        GRID    42              10.     40.     .0                                      \r\n                  133-        GRID    43              30.     40.     .0                                      \r\n                  134-        GRID    44              50.     40.     .0                                      \r\n                  135-        GRID    45              70.     40.     .0                                      \r\n                  136-        GRID    51              .0      40.     2.42                                    \r\n                  137-        GRID    52              10.     40.     2.42                                    \r\n                  138-        GRID    53              30.     40.     2.42                                    \r\n                  139-        GRID    54              50.     40.     1.795                                   \r\n                  140-        GRID    55              70.     40.     .754                                    \r\n                  141-        GRID    61              .0      60.     .0                                      \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    62              10.     60.     .0                                      \r\n                  143-        GRID    63              30.     60.     .0                                      \r\n                  144-        GRID    64              50.     60.     .0                                      \r\n                  145-        GRID    71              .0      60.     2.02                                    \r\n                  146-        GRID    72              10.     60.     2.02                                    \r\n                  147-        GRID    73              30.     60.     2.02                                    \r\n                  148-        GRID    74              50.     60.     .795                                    \r\n                  149-        GRID    81              .0      80.     .0                                      \r\n                  150-        GRID    82              10.     80.     .0                                      \r\n                  151-        GRID    83              30.     80.     .0                                      \r\n                  152-        GRID    91              .0      80.     .82                                     \r\n                  153-        GRID    92              10.     80.     .82                                     \r\n                  154-        GRID    93              30.     80.     .82                                     \r\n                  155-        MAT1    1       10.4  +64.   +6                                                 \r\n                  156-        MAT1    2       1.04+7  4.+6            .2523-3                                 \r\n                  157-        PARAM   IRES    1                                                               \r\n                  158-        PQDMEM  1       2       .16     .0                                              \r\n                  159-        PROD    5       1       2.1                                                     \r\n                  160-        PROD    6       1       3.5                                                     \r\n                  161-        PROD    7       1       4.91                                                    \r\n                  162-        PROD    8       1       4.2                                                     \r\n                  163-        PROD    9       1       5.6                                                     \r\n                  164-        PSHEAR  2       2       .14     .0                                              \r\n                  165-        PTRMEM  3       2       .16     .0                                              \r\n                  166-        SPC1    1       1       11      31      51      71      91                      \r\n                  167-        SPC1    1       3       13      33      53      73      93                      \r\n                  168-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  169-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  170-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  171-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   4           METHOD$                62\r\n                  17           POUT$                  19\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     3\r\n                  23           EIGR                   61\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n+  +\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n+  +\r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n+  +\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n+  *\r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n+  *\r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n+  +\r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n+  *\r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n+  *\r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n+  +\r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n+  +\r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n+  +\r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n+  +\r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n+  +\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n+  +\r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n+  *\r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n+  *\r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n+  *\r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n+  *\r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n+  *\r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n+  *\r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n+  *\r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n+  *\r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n+  *\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n+  *\r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n+  *\r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n+  +\r\n\r\n      93  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n+  *\r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n+  *\r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n+  *\r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n+  *\r\n\r\n     102  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     104  END      $                                                              \r\n+  *\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0*** USER INFORMATION MESSAGE 4147\r\n     NOTE THAT ADDITIONAL DMAP INSTRUCTIONS (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING)\r\n     NEED TO BE FLAGGED FOR EXECUTION IN ORDER TO GENERATE CERTAIN REQUIRED DATA BLOCKS.\r\n     SUCH INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE IDENTIFIED BELOW.\r\n0TO GENERATE DATA BLOCK MAA      - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS\r\n\r\n   59  XEQUIV  \r\n   60  COND    \r\n   62  SMP2    \r\n0TO GENERATE DATA BLOCK MFF      - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS\r\n\r\n   48  XPURGE  \r\n   54  XEQUIV  \r\n   55  COND    \r\n   56  SCE1    \r\n0TO GENERATE DATA BLOCK MNN      - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS\r\n\r\n   49  XEQUIV  \r\n   50  COND    \r\n   52  MCE2    \r\n0TO GENERATE DATA BLOCK MR       - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS\r\n\r\n   64  COND    \r\n   68  RBMG4   \r\n0TO GENERATE DATA BLOCK MLL      - TURN ON THE EXECUTE FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS\r\n\r\n   65  RBMG1   \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     CSTM      (PURGED)\r\n     MPTX      (PURGED)\r\n     PCOMPS    (PURGED)\r\n     EPTX      (PURGED)\r\n     DM        (PURGED)\r\n     GM        (PURGED)\r\n     GO        (PURGED)\r\n     GPL              1         6\r\n     EQEXIN           1         7\r\n     BGPDT            1         9\r\n     SIL              1        10\r\n     BGPDP            1        15\r\n     ECT              1        18\r\n     EST              1        23\r\n     GPECT            1        24\r\n     KGGX             1        35\r\n     KGG              1        35\r\n     KNN              1        35\r\n     USET             1        42\r\n     KFF              1        47\r\n     KAA              1        47\r\n     KLL              1        47\r\n     XVPS             1        78\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SHEAR    ELEMENTS (ELEMENT TYPE   4) STARTING WITH ID       18\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       10\r\n                        1 ROOTS BELOW   5.230891E+05\r\n                        1 ROOTS BELOW   6.600186E+04\r\n                        3 ROOTS BELOW   9.632594E+05\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         3\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         3\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        20\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         6*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.42E-08\r\n0                                                                              . . .         3\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         2\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         3 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         2        6.598684E+04        2.568791E+02        4.088357E+01        2.185341E-02        1.442037E+03             \r\n        2         1        5.246168E+05        7.243043E+02        1.152766E+02        2.045867E-02        1.073296E+04             \r\n        3         3        9.629338E+05        9.812919E+02        1.561774E+02        3.136370E-02        3.020116E+04             \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.659868E+05    (CYCLIC FREQUENCY =  4.088357E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0           -2.102501E-03  -1.408332E-01   0.0            0.0            0.0                           \r\n            12      G     -2.391296E-03  -1.965774E-03  -1.258141E-01   0.0            0.0            0.0                           \r\n            13      G     -7.596468E-03  -8.153818E-04   0.0            0.0            0.0            0.0                           \r\n            14      G     -1.194885E-02   8.515053E-04   2.503304E-01   0.0            0.0            0.0                           \r\n            15      G     -1.424611E-02   2.998794E-03   6.005448E-01   0.0            0.0            0.0                           \r\n            16      G     -1.369162E-02   4.350444E-03   1.000000E+00   0.0            0.0            0.0                           \r\n            31      G      0.0           -2.220163E-03  -1.101347E-01   0.0            0.0            0.0                           \r\n            32      G     -5.061556E-03  -2.097469E-03  -9.745585E-02   0.0            0.0            0.0                           \r\n            33      G     -1.534791E-02   2.707672E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.223564E-02   3.904124E-03   2.104799E-01   0.0            0.0            0.0                           \r\n            35      G     -2.286175E-02   7.140608E-03   5.037311E-01   0.0            0.0            0.0                           \r\n            36      G     -1.273908E-02   5.103707E-03   8.540251E-01   0.0            0.0            0.0                           \r\n            51      G      0.0           -9.409914E-04  -9.024654E-02   0.0            0.0            0.0                           \r\n            52      G     -5.036097E-03  -1.048943E-03  -7.984749E-02   0.0            0.0            0.0                           \r\n            53      G     -1.468509E-02   7.892086E-04   0.0            0.0            0.0            0.0                           \r\n            54      G     -1.757589E-02   4.436963E-03   1.620476E-01   0.0            0.0            0.0                           \r\n            55      G     -1.030689E-02   4.394457E-03   3.907420E-01   0.0            0.0            0.0                           \r\n            71      G      0.0            3.687038E-04  -7.949317E-02   0.0            0.0            0.0                           \r\n            72      G     -3.700143E-03   8.329997E-05  -7.034694E-02   0.0            0.0            0.0                           \r\n            73      G     -9.482673E-03   5.914459E-04   0.0            0.0            0.0            0.0                           \r\n            74      G     -5.128387E-03   1.615846E-03   1.115038E-01   0.0            0.0            0.0                           \r\n            91      G      0.0            9.675905E-04  -8.381639E-02   0.0            0.0            0.0                           \r\n            92      G     -1.866659E-03   6.255514E-04  -7.217357E-02   0.0            0.0            0.0                           \r\n            93      G     -3.252463E-03  -7.931682E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.524617E+06    (CYCLIC FREQUENCY =  1.152766E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            5.135032E-04   1.775022E-01   0.0            0.0            0.0                           \r\n            12      G      5.300051E-03   5.394280E-04   1.407922E-01   0.0            0.0            0.0                           \r\n            13      G      2.743664E-03   1.730578E-03   0.0            0.0            0.0            0.0                           \r\n            14      G     -8.843979E-03   9.706732E-03   1.210502E-01   0.0            0.0            0.0                           \r\n            15      G     -1.567200E-02   2.240467E-02   4.847727E-01   0.0            0.0            0.0                           \r\n            16      G     -1.733692E-02   3.282485E-02   1.000000E+00   0.0            0.0            0.0                           \r\n            31      G      0.0           -9.528617E-04   1.731893E-01   0.0            0.0            0.0                           \r\n            32      G      7.738560E-03  -1.334401E-03   1.511087E-01   0.0            0.0            0.0                           \r\n            33      G      1.368382E-02   3.163889E-03   0.0            0.0            0.0            0.0                           \r\n            34      G      5.799965E-03   2.134482E-02  -1.235244E-01   0.0            0.0            0.0                           \r\n            35      G     -4.136511E-03   4.007968E-02  -1.322538E-01   0.0            0.0            0.0                           \r\n            36      G     -7.136258E-03   3.229832E-02  -1.697965E-02   0.0            0.0            0.0                           \r\n            51      G      0.0           -4.456343E-03   2.257486E-01   0.0            0.0            0.0                           \r\n            52      G      1.187293E-02  -5.139865E-03   1.978265E-01   0.0            0.0            0.0                           \r\n            53      G      2.947840E-02   2.225914E-03   0.0            0.0            0.0            0.0                           \r\n            54      G      2.654484E-02   1.442862E-02  -3.228396E-01   0.0            0.0            0.0                           \r\n            55      G      1.001259E-02   1.444399E-02  -6.529267E-01   0.0            0.0            0.0                           \r\n            71      G      0.0           -7.258318E-03   3.142112E-01   0.0            0.0            0.0                           \r\n            72      G      1.397501E-02  -8.177269E-03   2.736481E-01   0.0            0.0            0.0                           \r\n            73      G      3.451110E-02  -2.128457E-04   0.0            0.0            0.0            0.0                           \r\n            74      G      1.707928E-02  -2.212319E-04  -4.327481E-01   0.0            0.0            0.0                           \r\n            91      G      0.0           -3.969726E-03   4.568899E-01   0.0            0.0            0.0                           \r\n            92      G      9.954733E-03  -5.902444E-03   3.848879E-01   0.0            0.0            0.0                           \r\n            93      G      1.719337E-02  -2.001126E-03   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.962934E+06    (CYCLIC FREQUENCY =  1.561774E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            4.230277E-03   8.864104E-01   0.0            0.0            0.0                           \r\n            12      G      1.874231E-02   1.274455E-02   7.318700E-01   0.0            0.0            0.0                           \r\n            13      G      3.438004E-02  -1.719446E-03   0.0            0.0            0.0            0.0                           \r\n            14      G      1.744488E-02  -2.217432E-02  -7.747614E-01   0.0            0.0            0.0                           \r\n            15      G     -2.376622E-02  -3.245778E-02  -7.396168E-01   0.0            0.0            0.0                           \r\n            16      G     -4.529009E-02  -3.030945E-02   2.982874E-01   0.0            0.0            0.0                           \r\n            31      G      0.0            1.767313E-02   4.730325E-01   0.0            0.0            0.0                           \r\n            32      G      2.045985E-02   2.163626E-02   4.047261E-01   0.0            0.0            0.0                           \r\n            33      G      3.405364E-02  -1.090729E-03   0.0            0.0            0.0            0.0                           \r\n            34      G      1.433066E-03  -3.091902E-02  -2.791575E-01   0.0            0.0            0.0                           \r\n            35      G     -4.594094E-02  -3.689597E-02  -4.486558E-03   0.0            0.0            0.0                           \r\n            36      G     -4.262252E-02  -1.604853E-02   1.000000E+00   0.0            0.0            0.0                           \r\n            51      G      0.0            1.169175E-02   2.424197E-01   0.0            0.0            0.0                           \r\n            52      G      1.207576E-02   1.322448E-02   2.099087E-01   0.0            0.0            0.0                           \r\n            53      G      1.533351E-02   4.943172E-04   0.0            0.0            0.0            0.0                           \r\n            54      G     -1.164069E-02  -9.654127E-03  -2.134284E-02   0.0            0.0            0.0                           \r\n            55      G     -2.065700E-02  -2.147393E-03   3.248957E-01   0.0            0.0            0.0                           \r\n            71      G      0.0            3.817290E-03   1.527063E-01   0.0            0.0            0.0                           \r\n            72      G      6.755241E-03   3.828000E-03   1.303989E-01   0.0            0.0            0.0                           \r\n            73      G      7.822580E-03   8.298224E-04   0.0            0.0            0.0            0.0                           \r\n            74      G     -1.787258E-03   3.708752E-03  -8.180061E-03   0.0            0.0            0.0                           \r\n            91      G      0.0            5.525672E-04   1.483464E-01   0.0            0.0            0.0                           \r\n            92      G      3.388773E-03  -2.154848E-04   1.209423E-01   0.0            0.0            0.0                           \r\n            93      G      5.763541E-03  -7.280858E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.659868E+05    (CYCLIC FREQUENCY =  4.088357E+01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.226779E+02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.245821E+03   7.169926E+01   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.442487E+03   1.069875E+03   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.678205E+03   8.747791E+02   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.338819E+03   9.893872E+02   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.979959E+03   1.363152E+03   0.0            0.0            0.0            0.0                           \r\n            11      G      3.832440E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            1.391729E+02   0.0            0.0            0.0                           \r\n            21      G     -4.202863E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      9.575667E+02  -8.898979E+02   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.762499E+03  -2.650490E+02   0.0            0.0            0.0            0.0                           \r\n            24      G     -7.319156E+03   1.424894E+03   0.0            0.0            0.0            0.0                           \r\n            25      G     -6.247734E+03   2.911707E+03   0.0            0.0            0.0            0.0                           \r\n            26      G     -3.918552E+03   2.591031E+03   0.0            0.0            0.0            0.0                           \r\n            31      G      1.840811E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0           -1.616239E+03   0.0            0.0            0.0                           \r\n            41      G      1.787101E+00   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G      4.604269E+02  -2.403617E+03   0.0            0.0            0.0            0.0                           \r\n            43      G     -2.049379E+03  -3.073031E+03   0.0            0.0            0.0            0.0                           \r\n            44      G     -5.282084E+03   1.613391E+03   0.0            0.0            0.0            0.0                           \r\n            45      G     -4.465621E+03   3.613876E+03   0.0            0.0            0.0            0.0                           \r\n            51      G      1.849612E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0           -1.267135E+03   0.0            0.0            0.0                           \r\n            61      G      3.492579E+00   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G     -1.419333E+03  -2.326725E+03   0.0            0.0            0.0            0.0                           \r\n            63      G     -3.573949E+03  -2.745584E+03   0.0            0.0            0.0            0.0                           \r\n            64      G     -3.756752E+02  -7.121715E+02   0.0            0.0            0.0            0.0                           \r\n            71      G      1.358011E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -1.307832E+02   0.0            0.0            0.0                           \r\n            81      G     -7.302640E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G     -2.800857E+03  -8.847056E+02   0.0            0.0            0.0            0.0                           \r\n            83      G     -4.887055E+02  -3.246603E+03   0.0            0.0            0.0            0.0                           \r\n            91      G      3.054272E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0            7.292501E+02   0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.524617E+06    (CYCLIC FREQUENCY =  1.152766E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.230149E+03   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.317975E+04  -1.318126E+03   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.862584E+02  -9.629183E+03   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.594549E+04   1.338670E+03   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.766231E+04   1.180454E+04   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.445267E+04   1.259536E+04   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.010390E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0           -3.875960E+03   0.0            0.0            0.0                           \r\n            21      G      8.206677E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      1.342847E+04  -6.231700E+03   0.0            0.0            0.0            0.0                           \r\n            23      G      1.859672E+04  -1.641458E+04   0.0            0.0            0.0            0.0                           \r\n            24      G      5.537286E+03   1.341493E+03   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.522250E+03   1.713888E+04   0.0            0.0            0.0            0.0                           \r\n            26      G     -5.999164E+03   1.652391E+04   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.903429E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0           -1.994138E+03   0.0            0.0            0.0                           \r\n            41      G      9.514814E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G      8.500039E+03  -9.344780E+03   0.0            0.0            0.0            0.0                           \r\n            43      G      2.349283E+04  -9.327455E+03   0.0            0.0            0.0            0.0                           \r\n            44      G      2.803610E+04   5.882050E+01   0.0            0.0            0.0            0.0                           \r\n            45      G      1.885751E+04  -1.431345E+03   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.405143E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            3.162395E+03   0.0            0.0            0.0                           \r\n            61      G      1.674261E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      1.108394E+04  -7.809224E+03   0.0            0.0            0.0            0.0                           \r\n            63      G      2.790877E+04   1.810207E+03   0.0            0.0            0.0            0.0                           \r\n            64      G      2.539211E+04  -6.837024E+03   0.0            0.0            0.0            0.0                           \r\n            71      G     -5.224181E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0            2.806153E+03   0.0            0.0            0.0                           \r\n            81      G      3.165337E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      1.822802E+04  -3.378017E+03   0.0            0.0            0.0            0.0                           \r\n            83      G      1.126146E+04   8.153483E+03   0.0            0.0            0.0            0.0                           \r\n            91      G     -1.981611E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -2.816608E+03   0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.962934E+06    (CYCLIC FREQUENCY =  1.561774E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.127444E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.480071E+04   2.376217E+04   0.0            0.0            0.0            0.0                           \r\n             3      G      6.074683E+04   5.522473E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      5.023332E+04  -2.393760E+04   0.0            0.0            0.0            0.0                           \r\n             5      G     -6.022742E+03  -2.716459E+04   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.903550E+04  -2.739457E+03   0.0            0.0            0.0            0.0                           \r\n            11      G     -4.312229E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            1.956349E+03   0.0            0.0            0.0                           \r\n            21      G      4.953240E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      4.269081E+04   3.433327E+04   0.0            0.0            0.0            0.0                           \r\n            23      G      6.380711E+04   6.264981E+03   0.0            0.0            0.0            0.0                           \r\n            24      G      2.669428E+04  -3.282667E+04   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.329118E+04  -1.882091E+04   0.0            0.0            0.0            0.0                           \r\n            26      G     -5.220994E+04   5.554561E+03   0.0            0.0            0.0            0.0                           \r\n            31      G     -7.632305E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0           -4.020193E+03   0.0            0.0            0.0                           \r\n            41      G      2.122581E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G      2.915416E+04   1.132262E+04   0.0            0.0            0.0            0.0                           \r\n            43      G      2.811809E+04  -9.191597E+02   0.0            0.0            0.0            0.0                           \r\n            44      G     -2.486472E+04   2.681631E+02   0.0            0.0            0.0            0.0                           \r\n            45      G     -3.882204E+04   2.121448E+04   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.249709E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0           -8.297095E+03   0.0            0.0            0.0                           \r\n            61      G      1.566975E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      1.785759E+04  -3.716972E+03   0.0            0.0            0.0            0.0                           \r\n            63      G      6.598427E+03  -3.146053E+03   0.0            0.0            0.0            0.0                           \r\n            64      G     -1.348407E+04   1.294912E+04   0.0            0.0            0.0            0.0                           \r\n            71      G     -2.407795E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -5.316716E+03   0.0            0.0            0.0                           \r\n            81      G      1.887778E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      4.498903E+03  -4.468495E+03   0.0            0.0            0.0            0.0                           \r\n            83      G      3.396028E+03  -2.269288E+03   0.0            0.0            0.0            0.0                           \r\n            91      G     -6.976487E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0            1.642125E+02   0.0            0.0            0.0                           \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.659868E+05    (CYCLIC FREQUENCY =  4.088357E+01 HZ)\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -3.977438E+03  -3.398516E+02   1.170234E+02       88.1593      -3.360907E+02  -3.981199E+03   1.822554E+03          \r\n        2       -4.199314E+03  -5.717245E+02   6.481465E+02       80.1680      -4.593975E+02  -4.311641E+03   1.926122E+03          \r\n        3       -3.792539E+03  -5.812240E+02   1.283414E+03       70.6822      -1.313313E+02  -4.242432E+03   2.055550E+03          \r\n        4       -2.439840E+03  -2.183794E+02   1.468806E+03       63.5485       5.123882E+02  -3.170607E+03   1.841498E+03          \r\n        5       -1.036489E+03   1.232119E+02   9.193086E+02       61.1208       6.302629E+02  -1.543540E+03   1.086902E+03          \r\n        6       -5.506396E+03  -8.520551E+02   9.778656E+01       88.7969      -8.500017E+02  -5.508449E+03   2.329224E+03          \r\n        7       -5.531383E+03  -1.160639E+03   8.439049E+02       79.4427      -1.003357E+03  -5.688665E+03   2.342654E+03          \r\n        8       -4.823830E+03  -1.173664E+03   1.734986E+03       68.2249      -4.805920E+02  -5.516901E+03   2.518155E+03          \r\n        9       -2.938745E+03  -4.814429E+02   1.742266E+03       62.5958       4.218245E+02  -3.842012E+03   2.131918E+03          \r\n       11       -4.817619E+03  -9.159136E+02  -2.325232E+01      -89.6586      -9.157749E+02  -4.817757E+03   1.950991E+03          \r\n       12       -4.345221E+03  -1.110081E+03   5.879604E+02       80.0123      -1.006538E+03  -4.448764E+03   1.721113E+03          \r\n       13       -3.021002E+03  -1.039591E+03   1.507886E+03       61.6528      -2.260747E+02  -3.834519E+03   1.804222E+03          \r\n       15       -3.052054E+03  -5.243907E+02  -1.912650E+02      -85.6972      -5.100001E+02  -3.066445E+03   1.278222E+03          \r\n       16       -2.049710E+03  -6.198127E+02  -6.830316E+01      -87.2714      -6.165574E+02  -2.052966E+03   7.182042E+02          \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.659868E+05    (CYCLIC FREQUENCY =  4.088357E+01 HZ)\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        1.752539E+02   1.752539E+02                       19        8.022432E+02   8.022432E+02                     \r\n              20        1.656672E+03   1.656672E+03                       21        2.399188E+03   2.399188E+03                     \r\n              22        1.414242E+03   1.414242E+03                       28        2.552734E+00  -2.552734E+00                     \r\n              29        3.276001E+02  -3.276001E+02                       30        2.415204E+03   1.871990E+03                     \r\n              31        4.717166E+03   2.774748E+03                       35        1.043223E+02   1.043223E+02                     \r\n              36        1.948449E+03   1.948449E+03                       41        1.882533E+03  -1.096376E+03                     \r\n              42        1.142333E+03   9.691221E+02                       43        1.487347E+03   1.261822E+03                     \r\n              44        1.772739E+03   1.032432E+03                       50        9.736875E+02  -9.736875E+02                     \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.659868E+05    (CYCLIC FREQUENCY =  4.088357E+01 HZ)\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10       -1.546113E+03   6.209717E+01   6.187759E+02       71.2105       2.726194E+02  -1.756635E+03   1.014627E+03          \r\n       14       -2.693025E+03  -9.652346E+02   7.231455E+02       70.0341      -7.025179E+02  -2.955741E+03   1.126612E+03          \r\n       17       -1.524119E+03  -8.058734E+02   1.160756E+02       81.0441      -7.875803E+02  -1.542412E+03   3.774156E+02          \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.524617E+06    (CYCLIC FREQUENCY =  1.152766E+02 HZ)\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        7.196124E+03   1.386822E+03  -5.318035E+02       -5.1876       7.244405E+03   1.338540E+03   2.952933E+03          \r\n        2        9.834915E+02   3.412834E+02   1.551257E+02       12.8926       1.018999E+03   3.057760E+02   3.566115E+02          \r\n        3       -5.132907E+03  -1.320997E+03   5.305105E+03       54.8809       2.410140E+03  -8.864043E+03   5.637092E+03          \r\n        4       -5.242602E+03  -2.470790E+03   8.127304E+03       49.8386       4.387927E+03  -1.210132E+04   8.244622E+03          \r\n        5       -3.466732E+03  -1.924302E+03   6.889533E+03       48.1936       4.237047E+03  -9.628081E+03   6.932564E+03          \r\n        6        1.075046E+04   1.841604E+03   4.138260E-01        0.0027       1.075046E+04   1.841604E+03   4.454426E+03          \r\n        7        6.402419E+03   9.307596E+02   2.480935E+03       21.1014       7.359800E+03  -2.662109E+01   3.693210E+03          \r\n        8       -4.834688E+02  -2.186623E+03   6.666984E+03       41.3605       5.386104E+03  -8.056196E+03   6.721150E+03          \r\n        9       -3.917345E+03  -5.139994E+03   8.469404E+03       42.9358       3.962769E+03  -1.302011E+04   8.491438E+03          \r\n       11        1.398842E+04   1.824956E+03   1.636216E+02        0.7706       1.399062E+04   1.822755E+03   6.083931E+03          \r\n       12        1.029846E+04   1.272190E+03   3.188810E+03       17.6218       1.131135E+04   2.593057E+02   5.526021E+03          \r\n       13        3.625574E+03  -1.932961E+03   3.919036E+03       27.3284       5.650801E+03  -3.958188E+03   4.804495E+03          \r\n       15        1.284811E+04   1.348813E+03   3.777407E+02        1.8794       1.286051E+04   1.336418E+03   5.762044E+03          \r\n       16        7.407148E+03   6.190771E+02   2.998597E+03       20.7301       8.542026E+03  -5.158008E+02   4.528914E+03          \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.524617E+06    (CYCLIC FREQUENCY =  1.152766E+02 HZ)\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        1.757359E+03  -1.757359E+03                       19        8.535428E+03  -8.535428E+03                     \r\n              20        9.097041E+03   9.097041E+03                       21        9.435453E+03   9.435453E+03                     \r\n              22        1.032334E+04   1.032334E+04                       28        1.359262E+03  -1.359262E+03                     \r\n              29        5.391825E+03  -5.391825E+03                       30        1.535421E+04  -1.190083E+04                     \r\n              31        2.056158E+04  -1.209480E+04                       35        4.521906E+03  -4.521906E+03                     \r\n              36        1.075905E+04  -1.075905E+04                       41        1.694333E+04   9.867693E+03                     \r\n              42        5.806458E+03   4.926030E+03                       43        2.175311E+03   1.845471E+03                     \r\n              44        7.658165E+03  -4.460068E+03                       50        8.996680E+03  -8.996680E+03                     \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.524617E+06    (CYCLIC FREQUENCY =  1.152766E+02 HZ)\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10       -5.603954E+03  -6.005291E+03   4.408981E+03       43.6970      -1.391077E+03  -1.021817E+04   4.413545E+03          \r\n       14       -1.201363E+03  -5.126070E+03   2.547679E+03       26.1973       5.210352E+01  -6.379537E+03   3.215820E+03          \r\n       17        4.854914E+03   5.135665E+02   1.708198E+03       19.1004       5.446442E+03  -7.796265E+01   2.762203E+03          \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.962934E+06    (CYCLIC FREQUENCY =  1.561774E+02 HZ)\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        2.051402E+04   4.296582E+02  -6.914062E+00       -0.0197       2.051402E+04   4.296562E+02   1.004218E+04          \r\n        2        7.488552E+03  -3.721436E+02  -1.038089E+04      -34.6313       1.465823E+04  -7.541822E+03   1.110003E+04          \r\n        3       -1.156874E+04   8.493081E+02  -1.274859E+04      -57.9839       8.820499E+03  -1.953993E+04   1.418022E+04          \r\n        4       -2.371533E+04   2.248795E+03  -5.427493E+03      -78.6557       3.337683E+03  -2.480422E+04   1.407095E+04          \r\n        5       -1.425655E+04   4.636469E+03   7.569841E+02       87.7092       4.666750E+03  -1.428683E+04   9.476791E+03          \r\n        6        1.662955E+04  -9.632109E+02  -1.424790E+02       -0.4640       1.663071E+04  -9.643652E+02   8.797536E+03          \r\n        7        3.895974E+03  -1.618094E+03  -7.483910E+03      -34.8882       9.114537E+03  -6.836657E+03   7.975597E+03          \r\n        8       -1.397550E+04   1.746652E+03  -8.022918E+03      -67.2081       5.117839E+03  -1.734669E+04   1.123226E+04          \r\n        9       -1.884746E+04   6.049264E+03  -1.732016E+03      -86.0395       6.169179E+03  -1.896738E+04   1.256828E+04          \r\n       11        9.570777E+03  -7.378088E+02  -4.089264E+00       -0.0227       9.570779E+03  -7.378101E+02   5.154294E+03          \r\n       12        5.956442E+02  -1.762933E+03  -2.174930E+03      -30.7663       1.890429E+03  -3.057718E+03   2.474074E+03          \r\n       13       -8.988713E+03   6.839883E+02  -4.440273E+02      -87.3772       7.043286E+02  -9.009053E+03   4.856691E+03          \r\n       15        5.243209E+03  -1.055923E+02   1.082277E+02        1.1587       5.245398E+03  -1.077812E+02   2.676590E+03          \r\n       16        6.094862E+02  -9.515386E+02   6.787256E+02       20.5049       8.633181E+02  -1.205370E+03   1.034344E+03          \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.962934E+06    (CYCLIC FREQUENCY =  1.561774E+02 HZ)\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        1.610634E+04  -1.610634E+04                       19        1.680447E+04  -1.680447E+04                     \r\n              20        2.658611E+04  -2.658611E+04                       21        9.294836E+03  -9.294836E+03                     \r\n              22        1.359678E+04   1.359678E+04                       28        3.032254E+03  -3.032254E+03                     \r\n              29        1.930827E+04  -1.930827E+04                       30        1.046308E+03  -8.109786E+02                     \r\n              31        4.412891E+04   2.595766E+04                       35        2.696826E+03  -2.696826E+03                     \r\n              36        1.865087E+03  -1.865087E+03                       41        9.717242E+03  -5.659262E+03                     \r\n              42        6.353857E+02  -5.390428E+02                       43        1.421937E+03   1.206330E+03                     \r\n              44        2.611896E+03   1.521152E+03                       50        1.956742E+03   1.956742E+03                     \r\n1     DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 1 TO 3                                                                                               \r\n      EIGENVALUE =  0.962934E+06    (CYCLIC FREQUENCY =  1.561774E+02 HZ)\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10       -1.552890E+04   7.693087E+03   8.305713E+01       89.7951       7.693384E+03  -1.552919E+04   1.161129E+04          \r\n       14       -1.323576E+04   2.620068E+03  -9.904803E+01      -89.6421       2.620687E+03  -1.323638E+04   7.928534E+03          \r\n       17       -5.340605E+03  -2.072422E+03   2.744719E+02       85.2326      -2.049531E+03  -5.363496E+03   1.656982E+03          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS          \r\n DATE:  5/17/95\r\n END TIME: 14: 3:19\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01012a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01012A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0     QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                          \r\n                  3      LABEL    = QDMEM1 AND QDMEM2 ELEMENTS                                           \r\n                  4         SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93               \r\n                  5         SET 2 =  1 THRU 22,28 THRU 31,35,36,41 THRU 44,50                            \r\n                  6      DISPLACEMENTS (SORT2) = 1                                                       \r\n                  7               SPCF (SORT2) = ALL                                                     \r\n                  8           ELSTRESS (SORT2) = 2                                                       \r\n                  9                        SPC = 1                                                       \r\n                 10      SUBCASE  1                                                                      \r\n                 11      LOAD = 1                                                                        \r\n                 12      SUBCASE 2                                                                       \r\n                 13      LOAD = 2                                                                        \r\n                 14      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   170, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0     QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     36      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM1 1       1       11      12      32      31                              \r\n                   38-        CQDMEM1 2       1       12      13      33      32                              \r\n                   39-        CQDMEM1 3       1       13      14      34      33                              \r\n                   40-        CQDMEM1 4       1       14      15      35      34                              \r\n                   41-        CQDMEM1 5       1       15      16      36      35                              \r\n                   42-        CQDMEM1 6       1       31      32      52      51                              \r\n                   43-        CQDMEM1 7       1       32      33      53      52                              \r\n                   44-        CQDMEM2 8       1       33      34      54      53                              \r\n                   45-        CQDMEM2 9       1       34      35      55      54                              \r\n                   46-        CQDMEM2 11      1       51      52      72      71                              \r\n                   47-        CQDMEM2 12      1       52      53      73      72                              \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n\r\n      QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM2 13      1       53      54      74      73                              \r\n                   49-        CQDMEM2 15      1       71      72      92      91                              \r\n                   50-        CQDMEM2 16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n\r\n      QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        FORCE   1       16      0       -1.0    .0      .0      500.                    \r\n                  103-        FORCE   2       36              -1.0    .0      .0      500.                    \r\n                  104-        GRDSET                                                  456                     \r\n                  105-        GRID    1               .0      .0      .0                                      \r\n                  106-        GRID    2               10.0    .0      .0                                      \r\n                  107-        GRID    3               30.0    .0      .0                                      \r\n                  108-        GRID    4               50.0    .0      .0                                      \r\n                  109-        GRID    5               70.0    .0      .0                                      \r\n                  110-        GRID    6               90.0    .0      .0                                      \r\n                  111-        GRID    11              .0      .0      .82                                     \r\n                  112-        GRID    12              10.0    .0      .82                                     \r\n                  113-        GRID    13              30.0    .0      .82                                     \r\n                  114-        GRID    14              50.0    .0      .795                                    \r\n                  115-        GRID    15              70.0    .0      .754                                    \r\n                  116-        GRID    16              90.0    .0      .67                                     \r\n                  117-        GRID    21              .0      20.0    .0                                      \r\n                  118-        GRID    22              10.0    20.0    .0                                      \r\n                  119-        GRID    23              30.0    20.0    .0                                      \r\n                  120-        GRID    24              50.0    20.0    .0                                      \r\n                  121-        GRID    25              70.0    20.0    .0                                      \r\n                  122-        GRID    26              90.0    20.0    .0                                      \r\n                  123-        GRID    31              .0      20.0    2.02                                    \r\n                  124-        GRID    32              10.0    20.0    2.02                                    \r\n                  125-        GRID    33              30.0    20.0    2.02                                    \r\n                  126-        GRID    34              50.0    20.0    1.795                                   \r\n                  127-        GRID    35              70.0    20.0    1.42                                    \r\n                  128-        GRID    36              90.0    20.0    .67                                     \r\n                  129-        GRID    41              .0      40.0    .0                                      \r\n                  130-        GRID    42              10.0    40.0    .0                                      \r\n                  131-        GRID    43              30.0    40.0    .0                                      \r\n                  132-        GRID    44              50.0    40.0    .0                                      \r\n                  133-        GRID    45              70.0    40.0    .0                                      \r\n                  134-        GRID    51              .0      40.0    2.42                                    \r\n                  135-        GRID    52              10.0    40.0    2.42                                    \r\n                  136-        GRID    53              30.0    40.0    2.42                                    \r\n                  137-        GRID    54              50.0    40.0    1.795                                   \r\n                  138-        GRID    55              70.0    40.0    .754                                    \r\n                  139-        GRID    61              .0      60.0    .0                                      \r\n                  140-        GRID    62              10.0    60.0    .0                                      \r\n                  141-        GRID    63              30.0    60.0    .0                                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n\r\n      QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    64              50.0    60.0    .0                                      \r\n                  143-        GRID    71              .0      60.0    2.02                                    \r\n                  144-        GRID    72              10.     60.0    2.02                                    \r\n                  145-        GRID    73              30.     60.0    2.02                                    \r\n                  146-        GRID    74              50.     60.0    .795                                    \r\n                  147-        GRID    81              .0      80.0    .0                                      \r\n                  148-        GRID    82              10.     80.0    .0                                      \r\n                  149-        GRID    83              30.     80.0    .0                                      \r\n                  150-        GRID    91              .0      80.0    .82                                     \r\n                  151-        GRID    92              10.     80.0    .82                                     \r\n                  152-        GRID    93              30.     80.0    .82                                     \r\n                  153-        MAT1    1       10.4 +6 4.  +6                                                  \r\n                  154-        MAT1    2       1.04 +7 4.  +6          .2523 -3                                \r\n                  155-        PARAM   IRES    1                                                               \r\n                  156-        PQDMEM1 1       2       .16     .0                                              \r\n                  157-        PQDMEM2 1       2       .16     .0                                              \r\n                  158-        PROD    5       1       2.1                                                     \r\n                  159-        PROD    6       1       3.5                                                     \r\n                  160-        PROD    7       1       4.91                                                    \r\n                  161-        PROD    8       1       4.2                                                     \r\n                  162-        PROD    9       1       5.6                                                     \r\n                  163-        PSHEAR  2       2       .14     .0                                              \r\n                  164-        PTRMEM  3       2       .16     .0                                              \r\n                  165-        SPC1    1       1       11      31      51      71      91                      \r\n                  166-        SPC1    1       3       13      33      53      73      93                      \r\n                  167-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  168-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  169-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  170-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0     QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE            509\r\n                                        MAX WAVEFRONT       17\r\n                                        AVG WAVEFRONT   10.604\r\n                                        RMS WAVEFRONT   11.331\r\n                                        RMS BANDWIDTH   12.060\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           16\r\n                                        PROFILE            459\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT    9.562\r\n                                        RMS WAVEFRONT   10.191\r\n                                        RMS BANDWIDTH   10.707\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       19        16\r\n                                        PROFILE (P)                        509       459\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           17        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       10.604     9.562\r\n                                        RMS WAVEFRONT (C-RMS)           11.331    10.191\r\n                                        RMS BANDWITCH (B-RMS)           12.060    10.707\r\n                                        NUMBER OF GRID POINTS (N)                     48\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               113\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          13\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       201\r\n                                        MATRIX DENSITY, PERCENT                   19.531\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  12\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0     QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       3       3       5       4       7\r\n                         SEQGP          5       9       6      11      11       2      12       4\r\n                         SEQGP         13       6      14       8      15      10      16      12\r\n                         SEQGP         21      27      22      17      23      19      24      21\r\n                         SEQGP         25      13      26      14      31      15      32      16\r\n                         SEQGP         33      18      34      20      35      22      36      23\r\n                         SEQGP         41      37      42      30      43      32      44      26\r\n                         SEQGP         45      24      51      28      52      29      53      31\r\n                         SEQGP         54      33      55      25      61      44      62      40\r\n                         SEQGP         63      36      64      34      71      38      72      39\r\n                         SEQGP         73      41      74      35      81      48      82      47\r\n                         SEQGP         83      42      91      45      92      46      93      43\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1   ELEMENTS (ELEMENT TYPE  62) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2   ELEMENTS (ELEMENT TYPE  63) STARTING WITH ID        8\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SHEAR    ELEMENTS (ELEMENT TYPE   4) STARTING WITH ID       18\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.8001630E-12\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -8.9284491E-12\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0     QDMEM1 AND QDMEM2 ELEMENTS                                                                                                    \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3 -6.32099E-11       11 T3  8.20677E-12        2 T3  2.84558E-10       12 T1 -4.29878E-12       12 T2  2.50111E-12\r\n            12 T3 -1.42689E-10        3 T3  7.72854E-14       13 T1 -2.27374E-12       13 T2 -9.09495E-13        4 T3 -1.13749E-09\r\n            14 T1 -3.63798E-12       14 T2  2.27374E-12       14 T3 -1.48603E-10        5 T3  2.92221E-09       15 T1 -1.90994E-11\r\n            15 T2 -1.47793E-12       15 T3  1.40393E-09        6 T3  4.21574E-09       16 T1 -1.03455E-11       16 T3 -5.06884E-09\r\n            25 T3 -2.25100E-11       26 T3 -8.12474E-09       31 T2 -2.55795E-13       31 T3  1.84186E-10       32 T1  7.10543E-14\r\n            32 T2 -3.15481E-12       32 T3  5.19158E-11       22 T3 -1.28466E-11       33 T1 -3.12639E-12       33 T2  1.16529E-12\r\n            23 T3  1.00024E-13       34 T1  1.50635E-11       34 T2  5.45697E-12       34 T3  7.45786E-11       24 T3 -2.11458E-10\r\n            35 T1 -1.73941E-11       35 T2 -3.64082E-11       35 T3  3.23977E-10       36 T1 -6.30642E-11       36 T2 -3.21325E-11\r\n            36 T3  8.24102E-09       45 T3 -2.92033E-11       55 T1 -9.09495E-13       55 T2 -2.27374E-12       55 T3 -1.80816E-09\r\n            44 T3  5.50997E-10       51 T2  3.41061E-13       51 T3 -1.18755E-10       52 T1  2.24532E-12       52 T2 -1.90425E-12\r\n            52 T3 -3.23319E-12       42 T3 -2.33058E-12       53 T1  1.96258E-12       53 T2  1.20792E-13       43 T3 -2.20268E-13\r\n            54 T1  5.82645E-13       54 T2 -7.20490E-12       54 T3 -8.52794E-10       64 T3  4.85849E-10       74 T1  3.29692E-12\r\n            74 T2 -2.92744E-12       74 T3 -3.54165E-10       63 T3 -2.57572E-14       71 T2 -1.70530E-13       71 T3 -5.23457E-11\r\n            72 T1 -2.04636E-12       72 T2 -4.54747E-13       72 T3 -6.75300E-11       62 T3  9.94191E-11       73 T1 -3.52429E-12\r\n            73 T2 -1.02318E-12       83 T3 -1.42109E-14       93 T1 -1.36424E-12       93 T2  1.13687E-13       91 T2 -5.68434E-14\r\n            91 T3  1.16415E-10       92 T1 -4.54747E-13       92 T2  4.54747E-13       92 T3 -1.16160E-10       82 T3 -1.16160E-10\r\n            81 T3 -2.32831E-10\r\n0COLUMN       2 (      11-T2).\r\n             1 T3  6.95763E-11       11 T2 -3.41061E-13       11 T3  3.93143E-11        2 T3 -1.11612E-10       12 T1 -2.15339E-12\r\n            12 T2  2.85549E-12       12 T3  2.98156E-10        3 T3  1.40797E-13       13 T1  1.13687E-12       13 T2 -2.27374E-13\r\n             4 T3 -1.22100E-10       14 T1 -1.36424E-12       14 T2  4.54747E-12       14 T3  5.10880E-11        5 T3  2.44995E-09\r\n            15 T1 -2.06910E-11       15 T2  8.35598E-12       15 T3  6.52363E-10        6 T3 -1.83331E-09       16 T1 -1.33014E-11\r\n            16 T2  7.27596E-12       16 T3 -1.20508E-11       25 T3 -2.13299E-09       26 T3  3.50440E-09       31 T2 -4.83169E-13\r\n            31 T3  2.54632E-11       32 T1  2.97007E-12       32 T2  2.30216E-12       32 T3  9.92166E-11       22 T3 -8.79936E-11\r\n            33 T1 -1.53477E-12       33 T2  1.08002E-12       23 T3  1.57631E-13       34 T1 -1.08002E-11       34 T2  7.27596E-12\r\n            34 T3  1.27329E-10       24 T3 -4.14389E-10       35 T1  4.54747E-12       35 T2  3.66640E-12       35 T3  2.97279E-09\r\n            36 T1  1.81224E-11       36 T2 -3.17986E-11       36 T3  1.64575E-09       45 T3 -6.79321E-10       55 T1  1.68257E-11\r\n            55 T2 -5.45697E-12       55 T3 -1.24246E-09       44 T3 -5.43068E-10       51 T2  1.27898E-13       51 T3  3.91642E-12\r\n            52 T1  2.00373E-12       52 T2  4.37694E-12       52 T3 -1.85887E-11       42 T3  3.16618E-11       53 T1 -6.54552E-12\r\n            53 T2 -5.47118E-13       43 T3  4.44089E-13       54 T1  5.00222E-12       54 T2  2.74269E-12       54 T3  4.77886E-10\r\n            64 T3 -1.31154E-10       74 T1 -4.50484E-12       74 T2  2.55795E-12       74 T3 -8.32964E-10       63 T3 -8.61533E-14\r\n            41 T3  1.16415E-10       71 T2 -4.54747E-13       71 T3 -6.83897E-11       72 T1  1.30740E-12       72 T2  1.81899E-12\r\n            72 T3  2.12026E-11       62 T3 -4.33715E-11       73 T1  7.67386E-12       73 T2 -5.68434E-13       83 T3 -2.84217E-14\r\n            93 T1 -1.81899E-12       93 T2 -1.37845E-12       61 T3  1.16415E-10       91 T2 -1.13687E-13       91 T3  1.16415E-10\r\n            92 T1 -4.54747E-13       92 T2 -9.09495E-13       92 T3  1.35401E-10       82 T3 -2.13845E-10\r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            6.257729E-04   4.002068E-02   0.0            0.0            0.0                           \r\n         2          G      0.0            5.425497E-04   3.733084E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      6.614148E-04   6.103728E-04   3.598766E-02   0.0            0.0            0.0                           \r\n         2          G      7.075042E-04   5.407654E-04   3.301679E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      2.286083E-03   2.316000E-04   0.0            0.0            0.0            0.0                           \r\n         2          G      1.922652E-03   2.518141E-04   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.013456E-03  -3.404346E-04  -8.052365E-02   0.0            0.0            0.0                           \r\n         2          G      3.250005E-03   1.797014E-04  -6.407114E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      15\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      6.604909E-03  -1.864302E-03  -2.203135E-01   0.0            0.0            0.0                           \r\n         2          G      4.753117E-03  -1.348455E-04  -1.684533E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      6.031278E-03  -3.170522E-03  -4.099651E-01   0.0            0.0            0.0                           \r\n         2          G      4.131411E-03   5.082322E-04  -2.962814E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      31\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            7.059679E-04   3.046147E-02   0.0            0.0            0.0                           \r\n         2          G      0.0            5.826884E-04   2.900738E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      32\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.359699E-03   6.494537E-04   2.713288E-02   0.0            0.0            0.0                           \r\n         2          G      1.289995E-03   5.295654E-04   2.586189E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      33\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.518996E-03  -1.506429E-04   0.0            0.0            0.0            0.0                           \r\n         2          G      4.216993E-03  -1.004235E-05   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      34\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      7.318559E-03  -1.829483E-03  -6.408095E-02   0.0            0.0            0.0                           \r\n         2          G      6.715946E-03  -7.519245E-04  -5.918684E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      35\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      8.301822E-03  -4.006841E-03  -1.637327E-01   0.0            0.0            0.0                           \r\n         2          G      8.279208E-03  -1.296138E-03  -1.544660E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      36\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      5.033897E-03  -3.913850E-03  -2.962814E-01   0.0            0.0            0.0                           \r\n         2          G      5.919242E-03  -6.417101E-04  -2.976550E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            3.042138E-04   2.414064E-02   0.0            0.0            0.0                           \r\n         2          G      0.0            2.148185E-04   2.450509E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      52\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.357335E-03   3.482526E-04   2.139257E-02   0.0            0.0            0.0                           \r\n         2          G      1.364315E-03   2.441110E-04   2.174565E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      53\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.041570E-03  -3.426937E-04   0.0            0.0            0.0            0.0                           \r\n         2          G      4.177101E-03  -2.452348E-04   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      54\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      5.097058E-03  -1.861349E-03  -4.405385E-02   0.0            0.0            0.0                           \r\n         2          G      5.685725E-03  -1.324232E-03  -4.790832E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      2.805925E-03  -1.836757E-03  -1.071679E-01   0.0            0.0            0.0                           \r\n         2          G      3.546698E-03  -1.710757E-03  -1.240632E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      71\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0           -6.700351E-05   2.037128E-02   0.0            0.0            0.0                           \r\n         2          G      0.0           -1.310309E-04   2.205973E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      72\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      9.603109E-04   1.428142E-05   1.805558E-02   0.0            0.0            0.0                           \r\n         2          G      1.022864E-03  -6.170840E-05   1.959186E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      73\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      2.456839E-03  -2.578401E-04   0.0            0.0            0.0            0.0                           \r\n         2          G      2.811356E-03  -2.472551E-04   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      74\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.126683E-03  -5.069801E-04  -2.588153E-02   0.0            0.0            0.0                           \r\n         2          G      1.332496E-03  -5.904329E-04  -3.141499E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      91\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0           -2.540732E-04   2.168750E-02   0.0            0.0            0.0                           \r\n         2          G      0.0           -2.861872E-04   2.443044E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      92\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      5.578290E-04  -2.053996E-04   1.828610E-02   0.0            0.0            0.0                           \r\n         2          G      6.274732E-04  -2.517668E-04   2.060438E-02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      93\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      7.166527E-04   7.655621E-05   0.0            0.0            0.0            0.0                           \r\n         2          G      8.210363E-04   3.674682E-05   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      3.574314E-10   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      3.328751E-10   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       2\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.194901E+01  -4.850588E+00   0.0            0.0            0.0            0.0                           \r\n         2          G      2.635284E+02  -1.069769E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       3\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      7.149580E+02  -1.588556E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      2.674528E+02  -4.752302E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.456335E+03   8.762498E+01   0.0            0.0            0.0            0.0                           \r\n         2          G      2.977713E+02  -1.301986E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       5\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.162244E+03  -7.188979E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.146552E+03  -2.302702E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       6\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      3.408919E+03  -2.224587E+03   0.0            0.0            0.0            0.0                           \r\n         2          G      8.527054E+02   9.419288E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -1.500892E+03   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -1.520571E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            3.062576E+01   0.0            0.0            0.0                           \r\n         2          G      0.0            0.0           -1.079851E+02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      15\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -1.040310E+01   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -1.336108E+01   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      22\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -5.609080E+02   3.439765E+02   0.0            0.0            0.0            0.0                           \r\n         2          G     -4.047155E+02   6.970292E+01   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      23\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.505142E+01   4.625758E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.319108E+02  -1.535788E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      24\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.259721E+03   2.372083E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.082232E+03  -4.971402E+01   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      25\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      2.074747E+03  -1.504029E+03   0.0            0.0            0.0            0.0                           \r\n         2          G      2.606057E+03  -9.971176E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      26\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      1.031446E+03  -1.875451E+03   0.0            0.0            0.0            0.0                           \r\n         2          G      3.552002E+03  -5.629830E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      31\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -4.408292E+03   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -4.301350E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      32\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      33\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            4.615814E+02   0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            3.793285E+02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      34\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      35\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      36\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      41\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -1.583275E+01   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -1.669304E+01   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      42\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -2.721242E+02   8.258669E+02   0.0            0.0            0.0            0.0                           \r\n         2          G     -3.388028E+02   5.496343E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      43\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -6.321099E+01   1.377826E+03   0.0            0.0            0.0            0.0                           \r\n         2          G     -1.217437E+01   9.418869E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      44\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      5.022900E+02   1.820793E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.348876E+03  -3.971450E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      45\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      9.376652E+00  -4.852986E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      2.531648E+03  -2.259555E+03   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -4.727695E+03   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -4.746614E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      52\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      53\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            2.813352E+02   0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            3.662011E+02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      54\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      61\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -1.718850E+01   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -1.794367E+01   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      62\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      3.012740E+02   7.888001E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.528159E+02   7.069849E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      63\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.365099E+02   1.113170E+03   0.0            0.0            0.0            0.0                           \r\n         2          G      7.225114E+02   1.034363E+03   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      64\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -2.832064E+02   4.337498E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      1.217794E+02  -4.765714E+01   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      71\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -3.479487E+03   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -3.684535E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      72\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      73\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0           -8.412318E+01   0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            6.301823E+01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      74\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      81\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      4.092726E-11   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      4.456524E-11   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      82\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      7.679949E+02   3.117603E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      8.228552E+02   3.340304E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      83\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      3.174382E+02   8.073326E+02   0.0            0.0            0.0            0.0                           \r\n         2          G      4.050871E+02   8.318954E+02   0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      91\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G     -1.131014E+03   0.0            0.0            0.0            0.0            0.0                           \r\n         2          G     -1.249025E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      92\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n         2          G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      93\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      SUBCASE     TYPE          T1             T2             T3             R1             R2             R3\r\n         1          G      0.0            0.0           -1.894191E+02   0.0            0.0            0.0                           \r\n         2          G      0.0            0.0           -2.005627E+02   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.070748E+03  6.589691E+01  -3.283481E+01       -1.8696        1.071820E+03   6.482516E+01   5.034973E+02          \r\n         2       1.064582E+03  8.627527E+01  -4.217096E+01       -2.4637        1.066397E+03   8.446082E+01   4.909680E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       2\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.292163E+03  1.611077E+02  -2.031254E+02       -9.8786        1.327536E+03   1.257348E+02   6.009007E+02          \r\n         2       1.123485E+03  1.550892E+02  -1.481783E+02       -8.5078        1.145651E+03   1.329232E+02   5.063637E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       3\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.437977E+03  1.593162E+02  -4.761431E+02      -18.3385        1.595801E+03   1.491882E+00   7.971547E+02          \r\n         2       1.224964E+03  1.213464E+02  -1.860472E+02       -9.3160        1.255484E+03   9.082672E+01   5.823287E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       4\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.556770E+03  2.266946E+02  -9.422385E+02      -27.3927        2.045027E+03  -2.615624E+02   1.153295E+03          \r\n         2       1.328874E+03  3.963416E+01  -2.376794E+02      -10.1198        1.371296E+03  -2.787659E+00   6.870419E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       5\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       4.630386E+02 -1.218049E+02  -9.425277E+02      -36.3817        1.157465E+03  -8.162312E+02   9.868480E+02          \r\n         2       6.768657E+02 -2.769043E+02   1.834729E+02       10.5217        7.109421E+02  -3.109807E+02   5.109615E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       6\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.471693E+03  1.961198E+02  -2.703279E+01       -1.2135        1.472266E+03   1.955471E+02   6.383594E+02          \r\n         2       1.446003E+03  2.192060E+02  -2.094963E+01       -0.9780        1.446361E+03   2.188484E+02   6.137562E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       7\r\n\r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.617482E+03  3.272127E+02  -2.940754E+02      -12.2526        1.681346E+03   2.633487E+02   7.089987E+02          \r\n         2       1.588276E+03  3.197727E+02  -1.946288E+02       -8.5297        1.617466E+03   2.905822E+02   6.634420E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       8\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.717684E+03  4.829316E+02  -7.399637E+02      -25.0803        2.063999E+03   1.366172E+02   9.636906E+02          \r\n         2       1.713714E+03  3.187269E+02  -4.198980E+02      -15.5242        1.830353E+03   2.020881E+02   8.141322E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       9\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.233284E+03  5.160712E+02  -9.865376E+02      -35.0119        1.924370E+03  -1.750153E+02   1.049693E+03          \r\n         2       1.365046E+03 -6.816229E+01  -5.311884E+02      -18.2740        1.540452E+03  -2.435686E+02   8.920105E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      11\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.276126E+03  2.365002E+02   5.616386E+00        0.3095        1.276156E+03   2.364699E+02   5.198431E+02          \r\n         2       1.316148E+03  2.493843E+02   6.485817E+00        0.3483        1.316188E+03   2.493448E+02   5.334214E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      12\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.178878E+03  3.062640E+02  -2.155427E+02      -13.1451        1.229215E+03   2.559268E+02   4.866440E+02          \r\n         2       1.291966E+03  3.187786E+02  -1.555027E+02       -8.8613        1.316209E+03   2.945352E+02   5.108370E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      13\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       8.638300E+02  4.339889E+02  -5.712037E+02      -34.6904        1.259208E+03   3.861066E+01   6.102988E+02          \r\n         2       1.023509E+03  3.166426E+02  -5.125945E+02      -27.7069        1.292706E+03   4.744568E+01   6.226299E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      15\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       8.248431E+02  1.180347E+02   5.425122E+01        4.3637        8.289830E+02   1.138948E+02   3.575441E+02          \r\n         2       8.962290E+02  1.268456E+02   5.663470E+01        4.1875        9.003756E+02   1.226990E+02   3.888383E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      16\r\n\r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n \r\n                    STRESSES IN MATERIAL COORD SYSTEM           PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       4.815739E+02  1.706079E+02   4.758087E+00        0.8764        4.816466E+02   1.705351E+02   1.555558E+02          \r\n         2       5.691362E+02  1.793398E+02   1.287994E+01        1.8905        5.695614E+02   1.789147E+02   1.953233E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      18\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             9.765625E-04  -9.765625E-04                   2             0.0            0.0                               \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      19\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             8.534302E+00  -8.534302E+00                   2             1.882340E+02  -1.882340E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      20\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             5.021479E+02  -5.021479E+02                   2             2.802246E+00  -2.802246E+00                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      21\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             5.380898E+02  -5.380898E+02                   2             2.098916E+02  -2.098916E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      22\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             2.434938E+03  -2.434938E+03                   2             6.090742E+02  -6.090742E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      28\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             2.261768E+01   2.261768E+01                   2             2.384766E+01   2.384766E+01                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      29\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             1.830655E+02   1.830655E+02                   2             2.300782E+02   2.300782E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      30\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             1.859350E+02  -1.441155E+02                   2             2.984656E+02  -2.313365E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      31\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             5.257952E+02  -3.092850E+02                   2             1.766674E+03  -1.039199E+03                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      35\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             0.0            0.0                            2             4.882812E-04  -4.882812E-04                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      36\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             5.485675E+02  -5.485675E+02                   2             5.877533E+02  -5.877533E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      41\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             2.795193E+02   1.627903E+02                   2             8.362063E+02   4.870014E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      42\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             5.317766E+02  -4.511438E+02                   2             2.752463E+02  -2.335110E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      43\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             6.472682E+02  -5.491236E+02                   2             5.307532E+02  -4.502756E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      44\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             6.277762E+02  -3.656130E+02                   2             7.286907E+02  -4.243850E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      50\r\n\r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n \r\n                          MAXIMUM        AVERAGE      SAFETY                          MAXIMUM        AVERAGE      SAFETY\r\n      SUBCASE              SHEAR          SHEAR       MARGIN      SUBCASE              SHEAR          SHEAR       MARGIN\r\n         1             1.588992E+03   1.588992E+03                   2             6.728047E+02  -6.728047E+02                      \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      10\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       1.021298E+03  4.572069E+02  -6.221107E+02      -32.8060        1.422312E+03   5.619202E+01   6.830602E+02          \r\n         2       1.473103E+03 -2.990100E+02  -9.138440E+01       -2.9442        1.477803E+03  -3.037101E+02   8.907563E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      14\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       6.434332E+02  4.265853E+02  -3.473189E+02      -36.3315        8.988584E+02   1.711602E+02   3.638491E+02          \r\n         2       1.025203E+03  2.628444E+02  -3.590580E+02      -21.6441        1.167685E+03   1.203632E+02   5.236607E+02          \r\n1     STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      17\r\n\r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n \r\n                    STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES          MAXIMUM\r\n      SUBCASE      NORMAL-X      NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n         1       2.026129E+02  2.348782E+02  -8.734007E+01      -50.2326        3.075631E+02   1.299281E+02   8.881751E+01          \r\n         2       3.023042E+02  2.386986E+02  -9.004135E+01      -35.2733        3.659941E+02   1.750087E+02   9.549274E+01          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION        \r\n DATE:  5/17/95\r\n END TIME: 14: 4:53\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01013a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01013A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS         \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                          \r\n                  3      LABEL    =      LOAD ON TRAILING EDGE                                           \r\n                  4           SPC = 1                                                                    \r\n                  5          LOAD = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7      $   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n                  8      $   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n                  9      $   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n                 10      $                                                                               \r\n                 11              SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n                 12              SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n                 13      $                                                                               \r\n                 14         DISPLACEMENTS = 1                                                            \r\n                 15              SPCFORCE = ALL                                                          \r\n                 16               GPFORCE = ALL                                                          \r\n                 17                 FORCE = ALL                                                          \r\n                 18              ELSTRESS = 2                                                            \r\n                 19      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   169, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     34      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM1 1       1       11      12      32      31                              \r\n                   38-        CQDMEM1 2       1       12      13      33      32                              \r\n                   39-        CQDMEM1 3       1       13      14      34      33                              \r\n                   40-        CQDMEM1 4       1       14      15      35      34                              \r\n                   41-        CQDMEM1 5       1       15      16      36      35                              \r\n                   42-        CQDMEM1 6       1       31      32      52      51                              \r\n                   43-        CQDMEM1 7       1       32      33      53      52                              \r\n                   44-        CQDMEM1 8       1       33      34      54      53                              \r\n                   45-        CQDMEM1 9       1       34      35      55      54                              \r\n                   46-        CQDMEM1 11      1       51      52      72      71                              \r\n                   47-        CQDMEM1 12      1       52      53      73      72                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n\r\n           LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM1 13      1       53      54      74      73                              \r\n                   49-        CQDMEM1 15      1       71      72      92      91                              \r\n                   50-        CQDMEM1 16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n\r\n           LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        FORCE   1       16      0       -1.     .0      .0      500.                    \r\n                  103-        FORCE   2       36              -1.0    .0      .0      500.0                   \r\n                  104-        GRDSET                                                  456                     \r\n                  105-        GRID    1               .0      .0      .0                                      \r\n                  106-        GRID    2               10.     .0      .0                                      \r\n                  107-        GRID    3               30.     .0      .0                                      \r\n                  108-        GRID    4               50.     .0      .0                                      \r\n                  109-        GRID    5               70.     .0      .0                                      \r\n                  110-        GRID    6               90.     .0      .0                                      \r\n                  111-        GRID    11              .0      .0      .82                                     \r\n                  112-        GRID    12              10.     .0      .82                                     \r\n                  113-        GRID    13              30.     .0      .82                                     \r\n                  114-        GRID    14              50.     .0      .795                                    \r\n                  115-        GRID    15              70.     .0      .754                                    \r\n                  116-        GRID    16              90.     .0      .67                                     \r\n                  117-        GRID    21              .0      20.     .0                                      \r\n                  118-        GRID    22              10.     20.     .0                                      \r\n                  119-        GRID    23              30.     20.     .0                                      \r\n                  120-        GRID    24              50.     20.     .0                                      \r\n                  121-        GRID    25              70.     20.     .0                                      \r\n                  122-        GRID    26              90.     20.     .0                                      \r\n                  123-        GRID    31              .0      20.     2.02                                    \r\n                  124-        GRID    32              10.     20.     2.02                                    \r\n                  125-        GRID    33              30.     20.     2.02                                    \r\n                  126-        GRID    34              50.     20.     1.795                                   \r\n                  127-        GRID    35              70.     20.     1.42                                    \r\n                  128-        GRID    36              90.     20.     .67                                     \r\n                  129-        GRID    41              .0      40.     .0                                      \r\n                  130-        GRID    42              10.     40.     .0                                      \r\n                  131-        GRID    43              30.     40.     .0                                      \r\n                  132-        GRID    44              50.     40.     .0                                      \r\n                  133-        GRID    45              70.     40.     .0                                      \r\n                  134-        GRID    51              .0      40.     2.42                                    \r\n                  135-        GRID    52              10.     40.     2.42                                    \r\n                  136-        GRID    53              30.     40.     2.42                                    \r\n                  137-        GRID    54              50.     40.     1.795                                   \r\n                  138-        GRID    55              70.     40.     .754                                    \r\n                  139-        GRID    61              .0      60.     .0                                      \r\n                  140-        GRID    62              10.     60.     .0                                      \r\n                  141-        GRID    63              30.     60.     .0                                      \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n\r\n           LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    64              50.     60.     .0                                      \r\n                  143-        GRID    71              .0      60.     2.02                                    \r\n                  144-        GRID    72              10.     60.     2.02                                    \r\n                  145-        GRID    73              30.     60.     2.02                                    \r\n                  146-        GRID    74              50.     60.     .795                                    \r\n                  147-        GRID    81              .0      80.     .0                                      \r\n                  148-        GRID    82              10.     80.     .0                                      \r\n                  149-        GRID    83              30.     80.     .0                                      \r\n                  150-        GRID    91              .0      80.     .82                                     \r\n                  151-        GRID    92              10.     80.     .82                                     \r\n                  152-        GRID    93              30.     80.     .82                                     \r\n                  153-        MAT1    1       10.4  +64.   +6                                                 \r\n                  154-        MAT1    2       1.04+7  4.+6            .2523-3                                 \r\n                  155-        PARAM   IRES    1                                                               \r\n                  156-        PQDMEM1 1       2       .16     .0                                              \r\n                  157-        PROD    5       1       2.1                                                     \r\n                  158-        PROD    6       1       3.5                                                     \r\n                  159-        PROD    7       1       4.91                                                    \r\n                  160-        PROD    8       1       4.2                                                     \r\n                  161-        PROD    9       1       5.6                                                     \r\n                  162-        PSHEAR  2       2       .14     .0                                              \r\n                  163-        PTRMEM  3       2       .16     .0                                              \r\n                  164-        SPC1    1       1       11      31      51      71      91                      \r\n                  165-        SPC1    1       3       13      33      53      73      93                      \r\n                  166-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  167-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  168-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  169-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE            509\r\n                                        MAX WAVEFRONT       17\r\n                                        AVG WAVEFRONT   10.604\r\n                                        RMS WAVEFRONT   11.331\r\n                                        RMS BANDWIDTH   12.060\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE            486\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   10.125\r\n                                        RMS WAVEFRONT   10.743\r\n                                        RMS BANDWIDTH   10.914\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       19        15\r\n                                        PROFILE (P)                        509       486\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           17        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       10.604    10.125\r\n                                        RMS WAVEFRONT (C-RMS)           11.331    10.743\r\n                                        RMS BANDWITCH (B-RMS)           12.060    10.914\r\n                                        NUMBER OF GRID POINTS (N)                     48\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               113\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          13\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       200\r\n                                        MATRIX DENSITY, PERCENT                   19.444\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  12\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3      11       4      13\r\n                         SEQGP          5       7       6       2      11       3      12       5\r\n                         SEQGP         13      12      14      14      15      10      16       6\r\n                         SEQGP         21      27      22      18      23      24      24      25\r\n                         SEQGP         25      15      26       8      31      16      32      17\r\n                         SEQGP         33      19      34      23      35      20      36       9\r\n                         SEQGP         41      37      42      30      43      32      44      26\r\n                         SEQGP         45      21      51      28      52      29      53      31\r\n                         SEQGP         54      33      55      22      61      44      62      40\r\n                         SEQGP         63      36      64      34      71      38      72      39\r\n                         SEQGP         73      41      74      35      81      48      82      47\r\n                         SEQGP         83      42      91      45      92      46      93      43\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1   ELEMENTS (ELEMENT TYPE  62) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SHEAR    ELEMENTS (ELEMENT TYPE   4) STARTING WITH ID       18\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.2201008E-12\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3  1.26988E-10        6 T3  1.07570E-09       11 T2  4.54747E-13       11 T3 -1.73294E-10        2 T3  4.08932E-10\r\n            12 T1 -2.79954E-12       12 T2 -5.68434E-14       12 T3 -6.13196E-10       16 T1  1.68257E-11       16 T2 -1.81899E-12\r\n            16 T3 -1.28733E-09        5 T3 -1.76215E-09       26 T3  1.72690E-09       36 T1  2.91038E-11       36 T2 -3.27418E-11\r\n            36 T3 -7.63748E-10       15 T1  6.82121E-13       15 T2 -6.82121E-12       15 T3 -2.13163E-11        3 T3 -1.53495E-13\r\n            13 T1  1.81899E-12       13 T2 -5.45675E-13        4 T3  3.87843E-10       14 T1 -3.83693E-12       14 T2  2.72848E-12\r\n            14 T3  1.02051E-09       25 T3  5.94696E-10       31 T2  1.13687E-13       31 T3 -4.01834E-11       32 T1 -3.97904E-13\r\n            32 T2 -1.62004E-12       32 T3  6.18670E-11       22 T3 -4.30305E-11       33 T1 -2.27374E-13       33 T2 -5.54223E-13\r\n            35 T1  5.55360E-11       35 T2 -1.55893E-11       35 T3  1.18309E-09       45 T3  2.43006E-12       55 T1  2.72848E-12\r\n            55 T2 -3.63798E-12       55 T3  1.34925E-10       34 T1  1.18234E-11       34 T2  7.27596E-12       34 T3  2.14641E-10\r\n            23 T3 -1.89709E-13       24 T3  2.04636E-12       44 T3  1.51914E-10       51 T2 -1.13687E-13       51 T3 -4.54263E-11\r\n            52 T1  2.70006E-13       52 T2 -1.05160E-12       52 T3 -6.39138E-11       42 T3  8.23093E-11       53 T1  6.89222E-12\r\n            53 T2 -1.33582E-12       43 T3 -5.04485E-13       54 T1 -4.66116E-12       54 T2 -3.35376E-12       54 T3  1.14231E-12\r\n            64 T3  1.30763E-10       74 T1 -5.65592E-12       74 T2  1.13687E-12       74 T3 -1.87782E-10       63 T3  5.86198E-14\r\n            71 T2  2.27374E-13       71 T3 -1.09267E-10       72 T1 -3.41061E-13       72 T2 -9.09495E-13       72 T3 -1.20224E-10\r\n            62 T3  1.20281E-10       73 T1  1.64846E-12       73 T2  7.38964E-13       93 T1  2.72848E-12       93 T2 -8.52651E-14\r\n            61 T3  1.16415E-10       91 T2  8.52651E-14       91 T3  1.16415E-10       92 T1 -1.36424E-12       92 T2 -9.09495E-13\r\n            92 T3  5.91172E-11       82 T3  5.91172E-11       81 T3 -1.16415E-10\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n\r\n\r\n0         1                  F-OF-SPC       3.510650E-10   0.0            0.0            0.0            0.0            0.0          \r\n          1            60    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n          1            18    SHEAR         -4.319148E-04   0.0           -3.541702E-05   0.0            0.0            0.0          \r\n          1                  *TOTALS*      -4.319145E-04   0.0           -3.541702E-05   0.0            0.0            0.0          \r\n\r\n\r\n0         2                  F-OF-SPC       1.077696E+01  -4.374804E+00   0.0            0.0            0.0            0.0          \r\n          2            61    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n          2            18    SHEAR         -4.319148E-04   0.0            3.541702E-05   0.0            0.0            0.0          \r\n          2            19    SHEAR         -1.077684E+01   0.0           -4.418503E-01   0.0            0.0            0.0          \r\n          2            37    SHEAR          0.0            4.374889E+00   4.418638E-01   0.0            0.0            0.0          \r\n          2                  *TOTALS*      -3.128052E-04   8.535385E-05   4.890561E-05   0.0            0.0            0.0          \r\n\r\n\r\n0         3                  F-OF-SPC       7.149570E+02  -1.728072E+02   0.0            0.0            0.0            0.0          \r\n          3            62    ROD            0.0            0.0            1.009577E+01   0.0            0.0            0.0          \r\n          3            19    SHEAR         -1.077684E+01   0.0            4.418503E-01   0.0            0.0            0.0          \r\n          3            20    SHEAR         -7.041804E+02   0.0           -2.799117E+01   0.0            0.0            0.0          \r\n          3            41    SHEAR          0.0            1.728072E+02   1.745353E+01   0.0            0.0            0.0          \r\n          3                  *TOTALS*      -2.441406E-04   0.0           -1.525879E-05   0.0            0.0            0.0          \r\n\r\n\r\n0         4                  F-OF-SPC       1.376281E+03   1.184593E+02   0.0            0.0            0.0            0.0          \r\n          4            63    ROD            0.0            0.0            6.959123E+00   0.0            0.0            0.0          \r\n          4            20    SHEAR         -7.041804E+02   0.0            2.887140E+01   0.0            0.0            0.0          \r\n          4            21    SHEAR         -6.721002E+02   0.0           -2.533818E+01   0.0            0.0            0.0          \r\n          4            45    SHEAR          0.0           -1.184595E+02  -1.063174E+01   0.0            0.0            0.0          \r\n          4                  *TOTALS*       6.103516E-05  -1.449585E-04  -1.394014E-01   0.0            0.0            0.0          \r\n\r\n\r\n0         5                  F-OF-SPC       4.059979E+03  -7.698094E+02   0.0            0.0            0.0            0.0          \r\n          5            64    ROD            0.0            0.0            3.280311E+01   0.0            0.0            0.0          \r\n          5            21    SHEAR         -6.721002E+02   0.0            2.671599E+01   0.0            0.0            0.0          \r\n          5            22    SHEAR         -3.387877E+03   0.0           -1.134939E+02   0.0            0.0            0.0          \r\n          5            48    SHEAR          0.0            7.698089E+02   5.465643E+01   0.0            0.0            0.0          \r\n          5                  *TOTALS*       1.220703E-03  -4.882812E-04   6.816330E-01   0.0            0.0            0.0          \r\n\r\n\r\n0         6                  F-OF-SPC       3.387878E+03  -2.247713E+03   0.0            0.0            0.0            0.0          \r\n          6            65    ROD            0.0            0.0           -2.040080E+02   0.0            0.0            0.0          \r\n          6            22    SHEAR         -3.387877E+03   0.0            1.277230E+02   0.0            0.0            0.0          \r\n          6            50    SHEAR          0.0            2.247713E+03   7.529840E+01   0.0            0.0            0.0          \r\n          6                  *TOTALS*       7.324219E-04   7.324219E-04  -9.866257E-01   0.0            0.0            0.0          \r\n\r\n\r\n0        11                  F-OF-SPC      -1.468865E+03   0.0            0.0            0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         11           100    CONROD         2.354155E+01   0.0            0.0            0.0            0.0            0.0          \r\n         11             1    QDMEM1         1.445323E+03  -5.236564E-05  -3.141939E-06   0.0            0.0            0.0          \r\n         11            60    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         11            18    SHEAR          4.319148E-04   0.0           -3.541702E-05   0.0            0.0            0.0          \r\n         11                  *TOTALS*       3.098445E-04  -5.236564E-05  -3.855895E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        12           100    CONROD        -2.354155E+01   0.0            0.0            0.0            0.0            0.0          \r\n         12           101    CONROD         2.897316E+01   0.0            0.0            0.0            0.0            0.0          \r\n         12           119    CONROD         0.0           -1.578761E+01  -9.472566E-01   0.0            0.0            0.0          \r\n         12             1    QDMEM1        -1.496114E+03   1.014889E+02   6.089337E+00   0.0            0.0            0.0          \r\n         12             2    QDMEM1         1.479906E+03  -8.132647E+01  -4.879588E+00   0.0            0.0            0.0          \r\n         12            61    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         12            18    SHEAR          4.319148E-04   0.0            3.541702E-05   0.0            0.0            0.0          \r\n         12            19    SHEAR          1.077684E+01   0.0           -4.418503E-01   0.0            0.0            0.0          \r\n         12            37    SHEAR          0.0           -4.374889E+00   1.793705E-01   0.0            0.0            0.0          \r\n         12                  *TOTALS*       2.918243E-04  -2.670288E-05   4.772842E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        13                  F-OF-SPC       0.0            0.0            2.781781E+01   0.0            0.0            0.0          \r\n         13           101    CONROD        -2.897316E+01   0.0            0.0            0.0            0.0            0.0          \r\n         13           102    CONROD         3.106359E+01   0.0           -3.882945E-02   0.0            0.0            0.0          \r\n         13           123    CONROD         0.0           -1.180692E+01  -7.084155E-01   0.0            0.0            0.0          \r\n         13             2    QDMEM1        -2.115748E+03   5.915482E+02   3.549289E+01   0.0            0.0            0.0          \r\n         13             3    QDMEM1         1.398701E+03  -4.069341E+02  -3.112325E+01   0.0            0.0            0.0          \r\n         13            62    ROD            0.0            0.0           -1.009577E+01   0.0            0.0            0.0          \r\n         13            19    SHEAR          1.077684E+01   0.0            4.418503E-01   0.0            0.0            0.0          \r\n         13            20    SHEAR          7.041804E+02   0.0           -2.887140E+01   0.0            0.0            0.0          \r\n         13            41    SHEAR          0.0           -1.728072E+02   7.085096E+00   0.0            0.0            0.0          \r\n         13                  *TOTALS*       3.051758E-04  -6.103516E-05  -2.288818E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        14           102    CONROD        -3.106359E+01   0.0            3.882945E-02   0.0            0.0            0.0          \r\n         14           103    CONROD         4.850130E+01   0.0           -9.942769E-02   0.0            0.0            0.0          \r\n         14           127    CONROD         0.0           -1.999500E+01  -9.997502E-01   0.0            0.0            0.0          \r\n         14             3    QDMEM1        -2.852916E+03   9.766633E+02   7.154720E+01   0.0            0.0            0.0          \r\n         14             4    QDMEM1         1.459198E+03  -1.075128E+03  -5.995472E+01   0.0            0.0            0.0          \r\n         14            63    ROD            0.0            0.0           -6.959123E+00   0.0            0.0            0.0          \r\n         14            20    SHEAR          7.041804E+02   0.0            2.799117E+01   0.0            0.0            0.0          \r\n         14            21    SHEAR          6.721002E+02   0.0           -2.671599E+01   0.0            0.0            0.0          \r\n         14            45    SHEAR          0.0            1.184595E+02  -4.708765E+00   0.0            0.0            0.0          \r\n         14                  *TOTALS*       6.103516E-05   1.296997E-04   1.394277E-01   0.0            0.0            0.0          \r\n\r\n\r\n0        15           103    CONROD        -4.850130E+01   0.0            9.942769E-02   0.0            0.0            0.0          \r\n         15           104    CONROD         2.939013E+00   0.0           -1.234385E-02   0.0            0.0            0.0          \r\n         15           130    CONROD         0.0           -4.312009E+00  -1.435899E-01   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         15             4    QDMEM1        -4.399813E+03   2.197173E+03   1.372703E+02   0.0            0.0            0.0          \r\n         15             5    QDMEM1         3.853964E+02  -1.423052E+03  -3.172932E+01   0.0            0.0            0.0          \r\n         15            64    ROD            0.0            0.0           -3.280311E+01   0.0            0.0            0.0          \r\n         15            21    SHEAR          6.721002E+02   0.0            2.533818E+01   0.0            0.0            0.0          \r\n         15            22    SHEAR          3.387877E+03   0.0           -1.277230E+02   0.0            0.0            0.0          \r\n         15            48    SHEAR          0.0           -7.698089E+02   2.902180E+01   0.0            0.0            0.0          \r\n         15                  *TOTALS*      -1.708984E-03   6.103516E-05  -6.816635E-01   0.0            0.0            0.0          \r\n\r\n\r\n0        16                  APP-LOAD       0.0            0.0           -5.000000E+02   0.0            0.0            0.0          \r\n         16           104    CONROD        -2.939013E+00   0.0            1.234385E-02   0.0            0.0            0.0          \r\n         16           132    CONROD         0.0           -1.042573E+01   0.0            0.0            0.0            0.0          \r\n         16             5    QDMEM1        -3.384939E+03   2.258139E+03   1.081740E+02   0.0            0.0            0.0          \r\n         16            65    ROD            0.0            0.0            2.040080E+02   0.0            0.0            0.0          \r\n         16            22    SHEAR          3.387877E+03   0.0            1.134939E+02   0.0            0.0            0.0          \r\n         16            50    SHEAR          0.0           -2.247713E+03   7.529840E+01   0.0            0.0            0.0          \r\n         16                  *TOTALS*      -9.765625E-04  -4.882812E-04   9.866180E-01   0.0            0.0            0.0          \r\n\r\n\r\n0        21                  F-OF-SPC      -1.005764E+01   0.0            0.0            0.0            0.0            0.0          \r\n         21            66    ROD            0.0            0.0           -2.047434E+00   0.0            0.0            0.0          \r\n         21            23    SHEAR          1.005741E+01   0.0            2.031597E+00   0.0            0.0            0.0          \r\n         21                  *TOTALS*      -2.288818E-04   0.0           -1.583767E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        22                  F-OF-SPC      -5.475169E+02   3.362216E+02   0.0            0.0            0.0            0.0          \r\n         22            67    ROD            0.0            0.0           -1.087691E+01   0.0            0.0            0.0          \r\n         22            23    SHEAR          1.005741E+01   0.0           -2.031597E+00   0.0            0.0            0.0          \r\n         22            24    SHEAR          5.374593E+02   0.0            5.428339E+01   0.0            0.0            0.0          \r\n         22            37    SHEAR          0.0            4.374889E+00  -1.793705E-01   0.0            0.0            0.0          \r\n         22            38    SHEAR          0.0           -3.405963E+02  -4.121215E+01   0.0            0.0            0.0          \r\n         22                  *TOTALS*      -1.831055E-04   2.441406E-04  -1.664352E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        23                  F-OF-SPC      -4.884057E+01   4.285421E+02   0.0            0.0            0.0            0.0          \r\n         23            68    ROD            0.0            0.0            1.779853E+02   0.0            0.0            0.0          \r\n         23            24    SHEAR          5.374593E+02   0.0           -5.428339E+01   0.0            0.0            0.0          \r\n         23            25    SHEAR         -4.886187E+02   0.0           -4.385353E+01   0.0            0.0            0.0          \r\n         23            41    SHEAR          0.0            1.728072E+02  -7.085096E+00   0.0            0.0            0.0          \r\n         23            42    SHEAR          0.0           -6.013494E+02  -7.276327E+01   0.0            0.0            0.0          \r\n         23                  *TOTALS*       0.0            0.0           -7.629395E-06   0.0            0.0            0.0          \r\n\r\n\r\n0        24                  F-OF-SPC       1.108339E+03   1.962545E+02   0.0            0.0            0.0            0.0          \r\n         24            69    ROD            0.0            0.0           -3.142609E+00   0.0            0.0            0.0          \r\n         24            25    SHEAR         -4.886187E+02   0.0            4.935049E+01   0.0            0.0            0.0          \r\n         24            26    SHEAR         -6.197228E+02   0.0           -4.400032E+01   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         24            45    SHEAR          0.0           -1.184595E+02   4.708765E+00   0.0            0.0            0.0          \r\n         24            46    SHEAR          0.0           -7.779566E+01  -6.982161E+00   0.0            0.0            0.0          \r\n         24                  *TOTALS*      -2.075195E-03  -5.950928E-04  -6.583500E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        25                  F-OF-SPC       2.122156E+03  -1.559540E+03   0.0            0.0            0.0            0.0          \r\n         25            70    ROD            0.0            0.0           -6.111575E+00   0.0            0.0            0.0          \r\n         25            26    SHEAR         -6.197228E+02   0.0            5.562013E+01   0.0            0.0            0.0          \r\n         25            27    SHEAR         -1.502435E+03   0.0           -5.033158E+01   0.0            0.0            0.0          \r\n         25            48    SHEAR          0.0            7.698089E+02  -2.902180E+01   0.0            0.0            0.0          \r\n         25            49    SHEAR          0.0            7.897321E+02   2.977290E+01   0.0            0.0            0.0          \r\n         25                  *TOTALS*      -1.586914E-03   9.155273E-04  -7.192802E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        26                  F-OF-SPC       1.006035E+03  -1.751312E+03   0.0            0.0            0.0            0.0          \r\n         26            71    ROD            0.0            0.0           -1.165760E+01   0.0            0.0            0.0          \r\n         26            27    SHEAR         -1.502435E+03   0.0            1.066729E+02   0.0            0.0            0.0          \r\n         26            50    SHEAR          0.0            2.247713E+03  -7.529840E+01   0.0            0.0            0.0          \r\n         26            51    SHEAR          4.964017E+02  -4.964017E+02  -1.871435E+01   0.0            0.0            0.0          \r\n         26                  *TOTALS*       1.312256E-03  -2.136230E-04   1.002550E+00   0.0            0.0            0.0          \r\n\r\n\r\n0        31                  F-OF-SPC      -4.308599E+03   0.0            0.0            0.0            0.0            0.0          \r\n         31           105    CONROD         1.260784E+02   0.0            0.0            0.0            0.0            0.0          \r\n         31             1    QDMEM1         1.914660E+03  -1.015822E+02  -6.094933E+00   0.0            0.0            0.0          \r\n         31             6    QDMEM1         2.277918E+03   1.015821E+02   2.031643E+00   0.0            0.0            0.0          \r\n         31            66    ROD            0.0            0.0            2.047434E+00   0.0            0.0            0.0          \r\n         31            23    SHEAR         -1.005741E+01   0.0            2.031597E+00   0.0            0.0            0.0          \r\n         31                  *TOTALS*       6.961823E-04  -8.392334E-05   1.574087E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        32           105    CONROD        -1.260784E+02   0.0            0.0            0.0            0.0            0.0          \r\n         32           106    CONROD         1.459535E+02   0.0            0.0            0.0            0.0            0.0          \r\n         32           119    CONROD         0.0            1.578761E+01   9.472566E-01   0.0            0.0            0.0          \r\n         32           120    CONROD         0.0           -2.082605E+01  -4.165210E-01   0.0            0.0            0.0          \r\n         32             1    QDMEM1        -1.863869E+03   9.331572E-02   5.598944E-03   0.0            0.0            0.0          \r\n         32             2    QDMEM1         2.571412E+03  -5.545164E+02  -3.327098E+01   0.0            0.0            0.0          \r\n         32             6    QDMEM1        -2.321133E+03   2.056316E+02   4.112633E+00   0.0            0.0            0.0          \r\n         32             7    QDMEM1         2.141231E+03   1.760845E+01   3.521691E-01   0.0            0.0            0.0          \r\n         32            67    ROD            0.0            0.0            1.087691E+01   0.0            0.0            0.0          \r\n         32            23    SHEAR         -1.005741E+01   0.0           -2.031597E+00   0.0            0.0            0.0          \r\n         32            24    SHEAR         -5.374593E+02   0.0            5.428339E+01   0.0            0.0            0.0          \r\n         32            37    SHEAR          0.0           -4.374889E+00  -4.418638E-01   0.0            0.0            0.0          \r\n         32            38    SHEAR          0.0            3.405963E+02  -3.440022E+01   0.0            0.0            0.0          \r\n         32                  *TOTALS*       1.220703E-04  -9.155273E-05   1.676559E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        33                  F-OF-SPC       0.0            0.0            4.598999E+02   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         33           106    CONROD        -1.459535E+02   0.0            0.0            0.0            0.0            0.0          \r\n         33           107    CONROD         1.580616E+02   0.0           -1.778193E+00   0.0            0.0            0.0          \r\n         33           123    CONROD         0.0            1.180692E+01   7.084155E-01   0.0            0.0            0.0          \r\n         33           124    CONROD         0.0           -1.057252E+01  -2.114505E-01   0.0            0.0            0.0          \r\n         33             2    QDMEM1        -1.935569E+03   4.429469E+01   2.657681E+00   0.0            0.0            0.0          \r\n         33             3    QDMEM1         3.162926E+03  -1.047363E+03  -7.737327E+01   0.0            0.0            0.0          \r\n         33             7    QDMEM1        -3.065891E+03   1.002242E+03   2.004485E+01   0.0            0.0            0.0          \r\n         33             8    QDMEM1         1.875267E+03  -4.289501E+02  -4.413892E+01   0.0            0.0            0.0          \r\n         33            68    ROD            0.0            0.0           -1.779853E+02   0.0            0.0            0.0          \r\n         33            24    SHEAR         -5.374593E+02   0.0           -5.428339E+01   0.0            0.0            0.0          \r\n         33            25    SHEAR          4.886187E+02   0.0           -4.935049E+01   0.0            0.0            0.0          \r\n         33            41    SHEAR          0.0           -1.728072E+02  -1.745353E+01   0.0            0.0            0.0          \r\n         33            42    SHEAR          0.0            6.013494E+02  -6.073628E+01   0.0            0.0            0.0          \r\n         33                  *TOTALS*       2.441406E-04   0.0            2.288818E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        34           107    CONROD        -1.580616E+02   0.0            1.778193E+00   0.0            0.0            0.0          \r\n         34           108    CONROD         9.872572E+01   0.0           -1.851107E+00   0.0            0.0            0.0          \r\n         34           127    CONROD         0.0            1.999500E+01   9.997502E-01   0.0            0.0            0.0          \r\n         34           128    CONROD         0.0           -1.245303E+00   0.0            0.0            0.0            0.0          \r\n         34             3    QDMEM1        -1.708711E+03   4.776343E+02   3.694933E+01   0.0            0.0            0.0          \r\n         34             4    QDMEM1         3.738543E+03  -1.865287E+03  -1.165700E+02   0.0            0.0            0.0          \r\n         34             8    QDMEM1        -4.213132E+03   2.021890E+03   1.097480E+02   0.0            0.0            0.0          \r\n         34             9    QDMEM1         1.134297E+03  -8.492415E+02  -2.601425E+01   0.0            0.0            0.0          \r\n         34            69    ROD            0.0            0.0            3.142609E+00   0.0            0.0            0.0          \r\n         34            25    SHEAR          4.886187E+02   0.0            4.385353E+01   0.0            0.0            0.0          \r\n         34            26    SHEAR          6.197228E+02   0.0           -5.562013E+01   0.0            0.0            0.0          \r\n         34            45    SHEAR          0.0            1.184595E+02   1.063174E+01   0.0            0.0            0.0          \r\n         34            46    SHEAR          0.0            7.779566E+01  -6.982161E+00   0.0            0.0            0.0          \r\n         34                  *TOTALS*       2.441406E-03   6.866455E-04   6.545496E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        35           108    CONROD        -9.872572E+01   0.0            1.851107E+00   0.0            0.0            0.0          \r\n         35           109    CONROD         4.149953E+01   0.0           -1.556232E+00   0.0            0.0            0.0          \r\n         35           130    CONROD         0.0            4.312009E+00   1.435899E-01   0.0            0.0            0.0          \r\n         35           131    CONROD         0.0            4.649729E+00  -1.548360E-01   0.0            0.0            0.0          \r\n         35             4    QDMEM1        -7.979272E+02   7.432421E+02   3.925447E+01   0.0            0.0            0.0          \r\n         35             5    QDMEM1         2.269713E+03  -1.576419E+03  -7.357087E+01   0.0            0.0            0.0          \r\n         35             9    QDMEM1        -4.231526E+03   2.696106E+03   1.049058E+02   0.0            0.0            0.0          \r\n         35            70    ROD            0.0            0.0            6.111575E+00   0.0            0.0            0.0          \r\n         35            26    SHEAR          6.197228E+02   0.0            4.400032E+01   0.0            0.0            0.0          \r\n         35            27    SHEAR          1.502435E+03   0.0           -1.066729E+02   0.0            0.0            0.0          \r\n         35            48    SHEAR          0.0           -7.698089E+02  -5.465643E+01   0.0            0.0            0.0          \r\n         35            49    SHEAR          0.0           -7.897321E+02   5.607097E+01   0.0            0.0            0.0          \r\n         35            10    TRMEM          6.948096E+02  -3.123516E+02  -1.565405E+01   0.0            0.0            0.0          \r\n         35                  *TOTALS*       1.159668E-03  -1.342773E-03   7.256031E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        36           109    CONROD        -4.149953E+01   0.0            1.556232E+00   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         36           132    CONROD         0.0            1.042573E+01   0.0            0.0            0.0            0.0          \r\n         36           135    CONROD        -2.751547E+01   2.751547E+01   1.155650E-01   0.0            0.0            0.0          \r\n         36             5    QDMEM1         7.298301E+02   7.413315E+02  -2.873789E+00   0.0            0.0            0.0          \r\n         36            71    ROD            0.0            0.0            1.165760E+01   0.0            0.0            0.0          \r\n         36            27    SHEAR          1.502435E+03   0.0            5.033158E+01   0.0            0.0            0.0          \r\n         36            50    SHEAR          0.0           -2.247713E+03  -7.529840E+01   0.0            0.0            0.0          \r\n         36            51    SHEAR         -4.964017E+02   4.964017E+02  -1.662946E+01   0.0            0.0            0.0          \r\n         36            10    TRMEM         -1.666849E+03   9.720394E+02   3.013792E+01   0.0            0.0            0.0          \r\n         36                  *TOTALS*      -4.882812E-04   4.272461E-04  -1.002747E+00   0.0            0.0            0.0          \r\n\r\n\r\n0        41                  F-OF-SPC      -1.553812E+01   0.0            0.0            0.0            0.0            0.0          \r\n         41            72    ROD            0.0            0.0           -3.754230E+00   0.0            0.0            0.0          \r\n         41            28    SHEAR          1.553802E+01   0.0            3.760202E+00   0.0            0.0            0.0          \r\n         41                  *TOTALS*      -9.822845E-05   0.0            5.971193E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        42                  F-OF-SPC      -2.677239E+02   8.074630E+02   0.0            0.0            0.0            0.0          \r\n         42            73    ROD            0.0            0.0           -1.399199E+01   0.0            0.0            0.0          \r\n         42            28    SHEAR          1.553802E+01   0.0           -3.760202E+00   0.0            0.0            0.0          \r\n         42            29    SHEAR          2.521856E+02   0.0            3.051446E+01   0.0            0.0            0.0          \r\n         42            38    SHEAR          0.0           -3.405963E+02   3.440022E+01   0.0            0.0            0.0          \r\n         42            39    SHEAR          0.0           -4.668665E+02  -4.715352E+01   0.0            0.0            0.0          \r\n         42                  *TOTALS*      -2.593994E-04   1.831055E-04   8.964539E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        43                  F-OF-SPC      -5.076573E+01   1.368561E+03   0.0            0.0            0.0            0.0          \r\n         43            74    ROD            0.0            0.0            6.534398E+01   0.0            0.0            0.0          \r\n         43            29    SHEAR          2.521856E+02   0.0           -3.051446E+01   0.0            0.0            0.0          \r\n         43            30    SHEAR         -2.014207E+02   0.0           -1.807751E+01   0.0            0.0            0.0          \r\n         43            42    SHEAR          0.0           -6.013494E+02   6.073628E+01   0.0            0.0            0.0          \r\n         43            43    SHEAR          0.0           -7.672112E+02  -7.748833E+01   0.0            0.0            0.0          \r\n         43                  *TOTALS*      -8.392334E-04   6.103516E-05  -3.814697E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        44                  F-OF-SPC       6.062766E+02   1.240258E+02   0.0            0.0            0.0            0.0          \r\n         44            75    ROD            0.0            0.0           -1.426261E+01   0.0            0.0            0.0          \r\n         44            30    SHEAR         -2.014207E+02   0.0            2.437190E+01   0.0            0.0            0.0          \r\n         44            31    SHEAR         -4.048567E+02   0.0           -1.526310E+01   0.0            0.0            0.0          \r\n         44            46    SHEAR          0.0           -7.779566E+01   6.982161E+00   0.0            0.0            0.0          \r\n         44            47    SHEAR          0.0           -4.623029E+01  -1.837654E+00   0.0            0.0            0.0          \r\n         44                  *TOTALS*      -7.629395E-04  -1.373291E-04  -9.295702E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        45                  F-OF-SPC      -1.021908E+02  -2.826833E+02   0.0            0.0            0.0            0.0          \r\n         45            76    ROD            0.0            0.0            3.452959E+00   0.0            0.0            0.0          \r\n         45            31    SHEAR         -4.048567E+02   0.0            3.633588E+01   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         45            49    SHEAR          0.0            7.897321E+02  -5.607097E+01   0.0            0.0            0.0          \r\n         45            51    SHEAR          4.964017E+02  -4.964017E+02   1.662946E+01   0.0            0.0            0.0          \r\n         45            52    SHEAR          1.064676E+01  -1.064676E+01  -4.232087E-01   0.0            0.0            0.0          \r\n         45                  *TOTALS*       9.469986E-04   3.347397E-04  -7.588053E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        51                  F-OF-SPC      -4.541398E+03   0.0            0.0            0.0            0.0            0.0          \r\n         51           110    CONROD         1.502588E+02   0.0            0.0            0.0            0.0            0.0          \r\n         51             6    QDMEM1         2.309709E+03  -1.880113E+02  -3.760226E+00   0.0            0.0            0.0          \r\n         51            11    QDMEM1         2.096969E+03   1.880112E+02  -3.760225E+00   0.0            0.0            0.0          \r\n         51            72    ROD            0.0            0.0            3.754230E+00   0.0            0.0            0.0          \r\n         51            28    SHEAR         -1.553802E+01   0.0            3.760202E+00   0.0            0.0            0.0          \r\n         51                  *TOTALS*       3.070831E-04  -4.577637E-05  -6.019354E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        52           110    CONROD        -1.502588E+02   0.0            0.0            0.0            0.0            0.0          \r\n         52           111    CONROD         1.512179E+02   0.0            0.0            0.0            0.0            0.0          \r\n         52           120    CONROD         0.0            2.082605E+01   4.165210E-01   0.0            0.0            0.0          \r\n         52           121    CONROD         0.0           -1.409322E+01   2.818644E-01   0.0            0.0            0.0          \r\n         52             6    QDMEM1        -2.266494E+03  -1.192024E+02  -2.384049E+00   0.0            0.0            0.0          \r\n         52             7    QDMEM1         2.931548E+03  -9.422684E+02  -1.884537E+01   0.0            0.0            0.0          \r\n         52            11    QDMEM1        -2.086375E+03   1.701444E+02  -3.402889E+00   0.0            0.0            0.0          \r\n         52            12    QDMEM1         1.688085E+03   7.713062E+01  -1.542613E+00   0.0            0.0            0.0          \r\n         52            73    ROD            0.0            0.0            1.399199E+01   0.0            0.0            0.0          \r\n         52            28    SHEAR         -1.553802E+01   0.0           -3.760202E+00   0.0            0.0            0.0          \r\n         52            29    SHEAR         -2.521856E+02   0.0            3.051446E+01   0.0            0.0            0.0          \r\n         52            38    SHEAR          0.0            3.405963E+02   4.121215E+01   0.0            0.0            0.0          \r\n         52            39    SHEAR          0.0            4.668665E+02  -5.649085E+01   0.0            0.0            0.0          \r\n         52                  *TOTALS*       1.373291E-04  -1.831055E-04  -8.987427E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        53                  F-OF-SPC       0.0            0.0            2.908639E+02   0.0            0.0            0.0          \r\n         53           111    CONROD        -1.512179E+02   0.0            0.0            0.0            0.0            0.0          \r\n         53           112    CONROD         1.113180E+02   0.0           -3.478688E+00   0.0            0.0            0.0          \r\n         53           124    CONROD         0.0            1.057252E+01   2.114505E-01   0.0            0.0            0.0          \r\n         53           125    CONROD         0.0            3.710782E+00  -7.421565E-02   0.0            0.0            0.0          \r\n         53             7    QDMEM1        -2.006889E+03  -7.758241E+01  -1.551649E+00   0.0            0.0            0.0          \r\n         53             8    QDMEM1         3.534566E+03  -1.908872E+03  -9.419826E+01   0.0            0.0            0.0          \r\n         53            12    QDMEM1        -2.374597E+03   8.677802E+02  -1.735561E+01   0.0            0.0            0.0          \r\n         53            13    QDMEM1         9.375856E+02  -2.641702E+02  -3.411738E+01   0.0            0.0            0.0          \r\n         53            74    ROD            0.0            0.0           -6.534398E+01   0.0            0.0            0.0          \r\n         53            29    SHEAR         -2.521856E+02   0.0           -3.051446E+01   0.0            0.0            0.0          \r\n         53            30    SHEAR          2.014207E+02   0.0           -2.437190E+01   0.0            0.0            0.0          \r\n         53            42    SHEAR          0.0            6.013494E+02   7.276327E+01   0.0            0.0            0.0          \r\n         53            43    SHEAR          0.0            7.672112E+02  -9.283257E+01   0.0            0.0            0.0          \r\n         53                  *TOTALS*       1.281738E-03  -6.103516E-05  -4.577637E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        54           112    CONROD        -1.113180E+02   0.0            3.478688E+00   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         54           113    CONROD         2.885279E+01   0.0           -1.501788E+00   0.0            0.0            0.0          \r\n         54           128    CONROD         0.0            1.245303E+00   0.0            0.0            0.0            0.0          \r\n         54           129    CONROD         0.0            1.204411E+01  -6.022053E-01   0.0            0.0            0.0          \r\n         54             8    QDMEM1        -1.196700E+03   3.159315E+02   2.858920E+01   0.0            0.0            0.0          \r\n         54             9    QDMEM1         2.929604E+03  -2.248611E+03  -6.626859E+01   0.0            0.0            0.0          \r\n         54            13    QDMEM1        -2.720061E+03   1.703971E+03   6.616381E+01   0.0            0.0            0.0          \r\n         54            75    ROD            0.0            0.0            1.426261E+01   0.0            0.0            0.0          \r\n         54            30    SHEAR          2.014207E+02   0.0            1.807751E+01   0.0            0.0            0.0          \r\n         54            31    SHEAR          4.048567E+02   0.0           -3.633588E+01   0.0            0.0            0.0          \r\n         54            46    SHEAR          0.0            7.779566E+01   6.982161E+00   0.0            0.0            0.0          \r\n         54            47    SHEAR          0.0            4.623029E+01  -4.149168E+00   0.0            0.0            0.0          \r\n         54            14    TRMEM          4.633465E+02   9.139274E+01  -2.868682E+01   0.0            0.0            0.0          \r\n         54                  *TOTALS*       1.586914E-03   2.212524E-04   9.521484E-03   0.0            0.0            0.0          \r\n\r\n\r\n0        55           113    CONROD        -2.885279E+01   0.0            1.501788E+00   0.0            0.0            0.0          \r\n         55           131    CONROD         0.0           -4.649729E+00   1.548360E-01   0.0            0.0            0.0          \r\n         55           134    CONROD        -1.865283E+01   1.865283E+01   3.823830E-02   0.0            0.0            0.0          \r\n         55           135    CONROD         2.751547E+01  -2.751547E+01  -1.155650E-01   0.0            0.0            0.0          \r\n         55             9    QDMEM1         1.676251E+02   4.017465E+02  -1.262300E+01   0.0            0.0            0.0          \r\n         55            76    ROD            0.0            0.0           -3.452959E+00   0.0            0.0            0.0          \r\n         55            31    SHEAR          4.048567E+02   0.0            1.526310E+01   0.0            0.0            0.0          \r\n         55            49    SHEAR          0.0           -7.897321E+02  -2.977290E+01   0.0            0.0            0.0          \r\n         55            51    SHEAR         -4.964017E+02   4.964017E+02   1.871435E+01   0.0            0.0            0.0          \r\n         55            52    SHEAR         -1.064676E+01   1.064676E+01  -4.013829E-01   0.0            0.0            0.0          \r\n         55            10    TRMEM          9.720394E+02  -6.596878E+02  -1.448387E+01   0.0            0.0            0.0          \r\n         55            14    TRMEM         -1.017484E+03   5.541373E+02   2.525317E+01   0.0            0.0            0.0          \r\n         55                  *TOTALS*      -1.281738E-03  -6.103516E-05   7.579231E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        61                  F-OF-SPC      -1.651715E+01   0.0            0.0            0.0            0.0            0.0          \r\n         61            77    ROD            0.0            0.0           -3.356450E+00   0.0            0.0            0.0          \r\n         61            32    SHEAR          1.651729E+01   0.0            3.336492E+00   0.0            0.0            0.0          \r\n         61                  *TOTALS*       1.392365E-04   0.0           -1.995778E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        62                  F-OF-SPC       2.911835E+02   7.740940E+02   0.0            0.0            0.0            0.0          \r\n         62            78    ROD            0.0            0.0           -9.464325E+00   0.0            0.0            0.0          \r\n         62            32    SHEAR          1.651729E+01   0.0           -3.336492E+00   0.0            0.0            0.0          \r\n         62            33    SHEAR         -3.077006E+02   0.0           -3.107776E+01   0.0            0.0            0.0          \r\n         62            39    SHEAR          0.0           -4.668665E+02   5.649085E+01   0.0            0.0            0.0          \r\n         62            40    SHEAR          0.0           -3.072276E+02  -1.259633E+01   0.0            0.0            0.0          \r\n         62                  *TOTALS*       1.831055E-04  -1.220703E-04   1.594734E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        63                  F-OF-SPC       4.126346E+02   1.136875E+03   0.0            0.0            0.0            0.0          \r\n         63            79    ROD            0.0            0.0           -1.045830E+02   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         63            33    SHEAR         -3.077006E+02   0.0            3.107776E+01   0.0            0.0            0.0          \r\n         63            34    SHEAR         -1.049337E+02   0.0           -4.171116E+00   0.0            0.0            0.0          \r\n         63            43    SHEAR          0.0           -7.672112E+02   9.283257E+01   0.0            0.0            0.0          \r\n         63            44    SHEAR          0.0           -3.696637E+02  -1.515621E+01   0.0            0.0            0.0          \r\n         63                  *TOTALS*       2.822876E-04   3.051758E-05   6.675720E-06   0.0            0.0            0.0          \r\n\r\n\r\n0        64                  F-OF-SPC      -2.877000E+02   4.388646E+02   0.0            0.0            0.0            0.0          \r\n         64            80    ROD            0.0            0.0            5.458136E-01   0.0            0.0            0.0          \r\n         64            34    SHEAR         -1.049337E+02   0.0            1.059831E+01   0.0            0.0            0.0          \r\n         64            47    SHEAR          0.0           -4.623029E+01   4.149168E+00   0.0            0.0            0.0          \r\n         64            52    SHEAR          1.064676E+01  -1.064676E+01   4.013829E-01   0.0            0.0            0.0          \r\n         64            53    SHEAR          3.819876E+02  -3.819876E+02  -1.566149E+01   0.0            0.0            0.0          \r\n         64                  *TOTALS*       5.493164E-04  -3.051758E-05   3.318024E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        71                  F-OF-SPC      -3.382342E+03   0.0            0.0            0.0            0.0            0.0          \r\n         71           114    CONROD         8.808218E+01   0.0            0.0            0.0            0.0            0.0          \r\n         71            11    QDMEM1         1.853037E+03  -1.668232E+02   3.336465E+00   0.0            0.0            0.0          \r\n         71            15    QDMEM1         1.457740E+03   1.668232E+02  -1.000939E+01   0.0            0.0            0.0          \r\n         71            77    ROD            0.0            0.0            3.356450E+00   0.0            0.0            0.0          \r\n         71            32    SHEAR         -1.651729E+01   0.0            3.336492E+00   0.0            0.0            0.0          \r\n         71                  *TOTALS*      -7.438660E-05  -4.577637E-05   2.001452E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        72           114    CONROD        -8.808218E+01   0.0            0.0            0.0            0.0            0.0          \r\n         72           115    CONROD         6.938777E+01   0.0            0.0            0.0            0.0            0.0          \r\n         72           121    CONROD         0.0            1.409322E+01  -2.818644E-01   0.0            0.0            0.0          \r\n         72           122    CONROD         0.0           -8.575076E+00   5.145046E-01   0.0            0.0            0.0          \r\n         72            11    QDMEM1        -1.863631E+03  -1.913324E+02   3.826649E+00   0.0            0.0            0.0          \r\n         72            12    QDMEM1         2.015724E+03  -7.636426E+02   1.527286E+01   0.0            0.0            0.0          \r\n         72            15    QDMEM1        -1.374328E+03   1.745317E+00  -1.047190E-01   0.0            0.0            0.0          \r\n         72            16    QDMEM1         9.497464E+02   1.736177E+02  -1.041706E+01   0.0            0.0            0.0          \r\n         72            78    ROD            0.0            0.0            9.464325E+00   0.0            0.0            0.0          \r\n         72            32    SHEAR         -1.651729E+01   0.0           -3.336492E+00   0.0            0.0            0.0          \r\n         72            33    SHEAR          3.077006E+02   0.0           -3.107776E+01   0.0            0.0            0.0          \r\n         72            39    SHEAR          0.0            4.668665E+02   4.715352E+01   0.0            0.0            0.0          \r\n         72            40    SHEAR          0.0            3.072276E+02  -3.102999E+01   0.0            0.0            0.0          \r\n         72                  *TOTALS*      -2.441406E-04   1.831055E-04  -1.602745E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        73                  F-OF-SPC       0.0            0.0           -9.777689E+01   0.0            0.0            0.0          \r\n         73           115    CONROD        -6.938777E+01   0.0            0.0            0.0            0.0            0.0          \r\n         73           116    CONROD         6.610069E+00   0.0           -4.048667E-01   0.0            0.0            0.0          \r\n         73           125    CONROD         0.0           -3.710782E+00   7.421565E-02   0.0            0.0            0.0          \r\n         73           126    CONROD         0.0            1.140558E+01  -6.843346E-01   0.0            0.0            0.0          \r\n         73            12    QDMEM1        -1.329212E+03  -1.812681E+02   3.625363E+00   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         73            13    QDMEM1         1.777886E+03  -1.518926E+03  -2.906481E+01   0.0            0.0            0.0          \r\n         73            16    QDMEM1        -9.233628E+02   3.331114E+02  -1.998668E+01   0.0            0.0            0.0          \r\n         73            79    ROD            0.0            0.0            1.045830E+02   0.0            0.0            0.0          \r\n         73            33    SHEAR          3.077006E+02   0.0            3.107776E+01   0.0            0.0            0.0          \r\n         73            34    SHEAR          1.049337E+02   0.0           -1.059831E+01   0.0            0.0            0.0          \r\n         73            43    SHEAR          0.0            7.672112E+02   7.748833E+01   0.0            0.0            0.0          \r\n         73            44    SHEAR          0.0            3.696637E+02  -3.733604E+01   0.0            0.0            0.0          \r\n         73            17    TRMEM          1.248317E+02   2.225128E+02  -2.099671E+01   0.0            0.0            0.0          \r\n         73                  *TOTALS*      -4.730225E-04   1.220703E-04   2.098083E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        74           116    CONROD        -6.610069E+00   0.0            4.048667E-01   0.0            0.0            0.0          \r\n         74           129    CONROD         0.0           -1.204411E+01   6.022053E-01   0.0            0.0            0.0          \r\n         74           133    CONROD        -6.434346E+00   6.434346E+00   8.042925E-03   0.0            0.0            0.0          \r\n         74           134    CONROD         1.865283E+01  -1.865283E+01  -3.823830E-02   0.0            0.0            0.0          \r\n         74            13    QDMEM1         4.589436E+00   7.912453E+01  -2.981620E+00   0.0            0.0            0.0          \r\n         74            80    ROD            0.0            0.0           -5.458136E-01   0.0            0.0            0.0          \r\n         74            34    SHEAR          1.049337E+02   0.0            4.171116E+00   0.0            0.0            0.0          \r\n         74            47    SHEAR          0.0            4.623029E+01   1.837654E+00   0.0            0.0            0.0          \r\n         74            52    SHEAR         -1.064676E+01   1.064676E+01   4.232087E-01   0.0            0.0            0.0          \r\n         74            53    SHEAR         -3.819876E+02   3.819876E+02  -1.518401E+01   0.0            0.0            0.0          \r\n         74            14    TRMEM          5.541373E+02  -6.455300E+02   3.433655E+00   0.0            0.0            0.0          \r\n         74            17    TRMEM         -2.766351E+02   1.518034E+02   7.835693E+00   0.0            0.0            0.0          \r\n         74                  *TOTALS*      -5.798340E-04   1.525879E-05  -3.323698E-02   0.0            0.0            0.0          \r\n\r\n\r\n0        81                  F-OF-SPC      -7.230483E-11   0.0            0.0            0.0            0.0            0.0          \r\n         81            81    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         81            35    SHEAR         -2.151405E-07   0.0           -1.764153E-08   0.0            0.0            0.0          \r\n         81                  *TOTALS*      -2.152128E-07   0.0           -1.764153E-08   0.0            0.0            0.0          \r\n\r\n\r\n0        82                  F-OF-SPC       7.568285E+02   3.072274E+02   0.0            0.0            0.0            0.0          \r\n         82            82    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         82            35    SHEAR         -2.151405E-07   0.0            1.764153E-08   0.0            0.0            0.0          \r\n         82            36    SHEAR         -7.568283E+02   0.0           -3.102996E+01   0.0            0.0            0.0          \r\n         82            40    SHEAR          0.0           -3.072276E+02   3.102999E+01   0.0            0.0            0.0          \r\n         82                  *TOTALS*       1.831055E-04  -1.525879E-04   2.479553E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        83                  F-OF-SPC       3.748410E+02   7.516512E+02   0.0            0.0            0.0            0.0          \r\n         83            83    ROD            0.0            0.0           -8.355000E+01   0.0            0.0            0.0          \r\n         83            36    SHEAR         -7.568283E+02   0.0            3.102996E+01   0.0            0.0            0.0          \r\n         83            44    SHEAR          0.0           -3.696637E+02   3.733604E+01   0.0            0.0            0.0          \r\n         83            53    SHEAR          3.819876E+02  -3.819876E+02   1.518401E+01   0.0            0.0            0.0          \r\n         83                  *TOTALS*       3.051758E-04  -1.220703E-04   9.536743E-07   0.0            0.0            0.0          \r\n\r\n\r\n0        91                  F-OF-SPC      -1.180112E+03   0.0            0.0            0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n         91           117    CONROD         2.104568E+01   0.0            0.0            0.0            0.0            0.0          \r\n         91            15    QDMEM1         1.159066E+03  -2.176032E-05   1.305619E-06   0.0            0.0            0.0          \r\n         91            81    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         91            35    SHEAR          2.151405E-07   0.0           -1.764153E-08   0.0            0.0            0.0          \r\n         91                  *TOTALS*       2.151405E-07  -2.176032E-05   1.287978E-06   0.0            0.0            0.0          \r\n\r\n\r\n0        92           117    CONROD        -2.104568E+01   0.0            0.0            0.0            0.0            0.0          \r\n         92           118    CONROD         1.745362E+00   0.0            0.0            0.0            0.0            0.0          \r\n         92           122    CONROD         0.0            8.575076E+00  -5.145046E-01   0.0            0.0            0.0          \r\n         92            15    QDMEM1        -1.242478E+03  -1.685685E+02   1.011411E+01   0.0            0.0            0.0          \r\n         92            16    QDMEM1         5.049498E+02  -1.472341E+02   8.834044E+00   0.0            0.0            0.0          \r\n         92            82    ROD            0.0            0.0            0.0            0.0            0.0            0.0          \r\n         92            35    SHEAR          2.151405E-07   0.0            1.764153E-08   0.0            0.0            0.0          \r\n         92            36    SHEAR          7.568283E+02   0.0           -3.102996E+01   0.0            0.0            0.0          \r\n         92            40    SHEAR          0.0            3.072276E+02   1.259633E+01   0.0            0.0            0.0          \r\n         92                  *TOTALS*      -1.831055E-04   9.155273E-05   1.716614E-05   0.0            0.0            0.0          \r\n\r\n\r\n0        93                  F-OF-SPC       0.0            0.0           -1.808047E+02   0.0            0.0            0.0          \r\n         93           118    CONROD        -1.745362E+00   0.0            0.0            0.0            0.0            0.0          \r\n         93           126    CONROD         0.0           -1.140558E+01   6.843346E-01   0.0            0.0            0.0          \r\n         93           133    CONROD         6.434346E+00  -6.434346E+00  -8.042925E-03   0.0            0.0            0.0          \r\n         93            16    QDMEM1        -5.313334E+02  -3.594950E+02   2.156970E+01   0.0            0.0            0.0          \r\n         93            83    ROD            0.0            0.0            8.355000E+01   0.0            0.0            0.0          \r\n         93            36    SHEAR          7.568283E+02   0.0            3.102996E+01   0.0            0.0            0.0          \r\n         93            44    SHEAR          0.0            3.696637E+02   1.515621E+01   0.0            0.0            0.0          \r\n         93            53    SHEAR         -3.819876E+02   3.819876E+02   1.566149E+01   0.0            0.0            0.0          \r\n         93            17    TRMEM          1.518034E+02  -3.743163E+02   1.316102E+01   0.0            0.0            0.0          \r\n         93                  *TOTALS*      -3.204346E-04   6.103516E-05  -1.907349E-06   0.0            0.0            0.0          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n\r\n           LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            6.135969E-04   3.917006E-02   0.0            0.0            0.0                           \r\n            12      G      6.467458E-04   5.996542E-04   3.522649E-02   0.0            0.0            0.0                           \r\n            13      G      2.238678E-03   2.251942E-04   0.0            0.0            0.0            0.0                           \r\n            14      G      3.877422E-03  -3.170676E-04  -7.825613E-02   0.0            0.0            0.0                           \r\n            15      G      6.468575E-03  -1.843353E-03  -2.142392E-01   0.0            0.0            0.0                           \r\n            16      G      5.877850E-03  -3.112766E-03  -3.997459E-01   0.0            0.0            0.0                           \r\n            31      G      0.0            6.920014E-04   2.979821E-02   0.0            0.0            0.0                           \r\n            32      G      1.332189E-03   6.365333E-04   2.653647E-02   0.0            0.0            0.0                           \r\n            33      G      4.416583E-03  -1.371605E-04   0.0            0.0            0.0            0.0                           \r\n            34      G      7.168456E-03  -1.780519E-03  -6.248228E-02   0.0            0.0            0.0                           \r\n            35      G      7.999689E-03  -3.856233E-03  -1.590546E-01   0.0            0.0            0.0                           \r\n            36      G      4.925540E-03  -3.828819E-03  -2.881108E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            3.016151E-04   2.353532E-02   0.0            0.0            0.0                           \r\n            52      G      1.313451E-03   3.497840E-04   2.087687E-02   0.0            0.0            0.0                           \r\n            53      G      3.957121E-03  -3.401942E-04   0.0            0.0            0.0            0.0                           \r\n            54      G      4.901708E-03  -1.810268E-03  -4.275591E-02   0.0            0.0            0.0                           \r\n            55      G      2.708095E-03  -1.831019E-03  -1.039118E-01   0.0            0.0            0.0                           \r\n            71      G      0.0           -6.515467E-05   1.981949E-02   0.0            0.0            0.0                           \r\n            72      G      9.307077E-04   1.309491E-05   1.757465E-02   0.0            0.0            0.0                           \r\n            73      G      2.397060E-03  -2.689327E-04   0.0            0.0            0.0            0.0                           \r\n            74      G      1.064661E-03  -5.144916E-04  -2.496927E-02   0.0            0.0            0.0                           \r\n            91      G      0.0           -2.389716E-04   2.150062E-02   0.0            0.0            0.0                           \r\n            92      G      5.781779E-04  -2.260449E-04   1.797514E-02   0.0            0.0            0.0                           \r\n            93      G      6.740769E-04   8.110458E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.510650E-10   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.077696E+01  -4.374804E+00   0.0            0.0            0.0            0.0                           \r\n             3      G      7.149570E+02  -1.728072E+02   0.0            0.0            0.0            0.0                           \r\n             4      G      1.376281E+03   1.184593E+02   0.0            0.0            0.0            0.0                           \r\n             5      G      4.059979E+03  -7.698094E+02   0.0            0.0            0.0            0.0                           \r\n             6      G      3.387878E+03  -2.247713E+03   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.468865E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            2.781781E+01   0.0            0.0            0.0                           \r\n            21      G     -1.005764E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G     -5.475169E+02   3.362216E+02   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.884057E+01   4.285421E+02   0.0            0.0            0.0            0.0                           \r\n            24      G      1.108339E+03   1.962545E+02   0.0            0.0            0.0            0.0                           \r\n            25      G      2.122156E+03  -1.559540E+03   0.0            0.0            0.0            0.0                           \r\n            26      G      1.006035E+03  -1.751312E+03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.308599E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0            4.598999E+02   0.0            0.0            0.0                           \r\n            41      G     -1.553812E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G     -2.677239E+02   8.074630E+02   0.0            0.0            0.0            0.0                           \r\n            43      G     -5.076573E+01   1.368561E+03   0.0            0.0            0.0            0.0                           \r\n            44      G      6.062766E+02   1.240258E+02   0.0            0.0            0.0            0.0                           \r\n            45      G     -1.021908E+02  -2.826833E+02   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.541398E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            2.908639E+02   0.0            0.0            0.0                           \r\n            61      G     -1.651715E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      2.911835E+02   7.740940E+02   0.0            0.0            0.0            0.0                           \r\n            63      G      4.126346E+02   1.136875E+03   0.0            0.0            0.0            0.0                           \r\n            64      G     -2.877000E+02   4.388646E+02   0.0            0.0            0.0            0.0                           \r\n            71      G     -3.382342E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -9.777689E+01   0.0            0.0            0.0                           \r\n            81      G     -7.230483E-11   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      7.568285E+02   3.072274E+02   0.0            0.0            0.0            0.0                           \r\n            83      G      3.748410E+02   7.516512E+02   0.0            0.0            0.0            0.0                           \r\n            91      G     -1.180112E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -1.808047E+02   0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C O N R O D )\r\n       ELEMENT           AXIAL                                     ELEMENT           AXIAL\r\n         ID.             FORCE          TORQUE                       ID.             FORCE          TORQUE\r\n           100        2.354155E+01   0.0                               101        2.897316E+01   0.0                                \r\n           102        3.106362E+01   0.0                               103        4.850141E+01   0.0                                \r\n           104        2.939040E+00   0.0                               105        1.260784E+02   0.0                                \r\n           106        1.459535E+02   0.0                               107        1.580715E+02   0.0                                \r\n           108        9.874306E+01   0.0                               109        4.152871E+01   0.0                                \r\n           110        1.502587E+02   0.0                               111        1.512179E+02   0.0                                \r\n           112        1.113723E+02   0.0                               113        2.889184E+01   0.0                                \r\n           114        8.808218E+01   0.0                               115        6.938778E+01   0.0                                \r\n           116        6.622462E+00   0.0                               117        2.104568E+01   0.0                                \r\n           118        1.745361E+00   0.0                               119       -1.581600E+01   0.0                                \r\n           120       -2.083021E+01   0.0                               121       -1.409603E+01   0.0                                \r\n           122       -8.590499E+00   0.0                               123       -1.182816E+01   0.0                                \r\n           124       -1.057464E+01   0.0                               125        3.711524E+00   0.0                                \r\n           126        1.142609E+01   0.0                               127       -2.001999E+01   0.0                                \r\n           128       -1.245303E+00   0.0                               129        1.205915E+01   0.0                                \r\n           130       -4.314395E+00   0.0                               131        4.652306E+00   0.0                                \r\n           132       -1.042573E+01   0.0                               133        9.099544E+00   0.0                                \r\n           134        2.637910E+01   0.0                               135        3.891291E+01   0.0                                \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n       ELEMENT           AXIAL                                     ELEMENT           AXIAL\r\n         ID.             FORCE          TORQUE                       ID.             FORCE          TORQUE\r\n            60        0.0            0.0                                61        0.0            0.0                                \r\n            62        1.009577E+01   0.0                                63        6.825000E+00   0.0                                \r\n            64        3.360000E+01   0.0                                65       -2.030000E+02   0.0                                \r\n            66       -2.078125E+00   0.0                                67       -1.081734E+01   0.0                                \r\n            68        1.779853E+02   0.0                                69       -3.150000E+00   0.0                                \r\n            70       -5.600000E+00   0.0                                71       -1.260000E+01   0.0                                \r\n            72       -3.746094E+00   0.0                                73       -1.400117E+01   0.0                                \r\n            74        6.534398E+01   0.0                                75       -1.426250E+01   0.0                                \r\n            76        3.500000E+00   0.0                                77       -3.335938E+00   0.0                                \r\n            78       -9.436406E+00   0.0                                79       -1.045830E+02   0.0                                \r\n            80        5.250000E-01   0.0                                81        0.0            0.0                                \r\n            82        0.0            0.0                                83       -8.355000E+01   0.0                                \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                           F O R C E S   A C T I N G   O N   S H E A R   P A N E L   E L E M E N T S   ( C S H E A R )\r\n \r\n                  ====== POINT  1 ======      ====== POINT  2 ======      ====== POINT  3 ======      ====== POINT  4 ======\r\n       ELEMENT    F-FROM-4      F-FROM-2      F-FROM-1      F-FROM-3      F-FROM-2      F-FROM-4      F-FROM-3      F-FROM-1\r\n         ID               KICK-1       SHEAR-12       KICK-2       SHEAR-23       KICK-3       SHEAR-34       KICK-4       SHEAR-41\r\n0           18 -5.60547E-05  -6.83594E-04   6.83594E-04   5.60547E-05  -5.60547E-05  -6.83594E-04   6.83594E-04   5.60547E-05       \r\n                       0.0          -1.36719E-04   0.0          -1.36719E-04   0.0          -1.36719E-04   0.0          -1.36719E-04\r\n0           19 -4.41837E-01  -1.07765E+01   1.07765E+01   4.41837E-01  -4.41837E-01  -1.07765E+01   1.07765E+01   4.41837E-01       \r\n                       0.0          -1.07765E+00   0.0          -1.07765E+00   0.0          -1.07765E+00   0.0          -1.07765E+00\r\n0           20 -2.88714E+01  -7.04179E+02   7.04179E+02   2.79911E+01  -2.79911E+01  -7.04180E+02   7.04180E+02   2.88714E+01       \r\n                       0.0          -7.04179E+01   0.0          -7.04179E+01   0.0          -7.04179E+01   0.0          -7.04179E+01\r\n0           21 -2.67160E+01  -6.72101E+02   6.72101E+02   2.53382E+01  -2.53382E+01  -6.72103E+02   6.72103E+02   2.67160E+01       \r\n                       0.0          -6.72101E+01   0.0          -6.72101E+01   0.0          -6.72101E+01   0.0          -6.72101E+01\r\n0           22 -1.27723E+02  -3.38787E+03   3.38787E+03   1.13494E+02  -1.13494E+02  -3.38790E+03   3.38790E+03   1.27723E+02       \r\n                       0.0          -3.38787E+02   0.0          -3.38787E+02   0.0          -3.38787E+02   0.0          -3.38787E+02\r\n0           23  2.03159E+00   1.00574E+01  -1.00574E+01  -2.03159E+00   2.03159E+00   1.00574E+01  -1.00574E+01  -2.03159E+00       \r\n                       0.0           2.01147E+00   0.0           2.01147E+00   0.0           2.01147E+00   0.0           2.01147E+00\r\n0           24  5.42833E+01   5.37459E+02  -5.37459E+02  -5.42833E+01   5.42833E+01   5.37459E+02  -5.37459E+02  -5.42833E+01       \r\n                       0.0           5.37459E+01   0.0           5.37459E+01   0.0           5.37459E+01   0.0           5.37459E+01\r\n0           25 -4.38533E+01  -4.88616E+02   4.88616E+02   4.93502E+01  -4.93502E+01  -4.88647E+02   4.88647E+02   4.38533E+01       \r\n                       0.0          -4.88616E+01   0.0          -5.49863E+01   0.0          -4.88616E+01   0.0          -4.34191E+01\r\n0           26 -4.40002E+01  -6.19721E+02   6.19721E+02   5.56200E+01  -5.56200E+01  -6.19830E+02   6.19830E+02   4.40002E+01       \r\n                       0.0          -6.19721E+01   0.0          -7.83380E+01   0.0          -6.19721E+01   0.0          -4.90253E+01\r\n0           27 -5.03318E+01  -1.50244E+03   1.50244E+03   1.06673E+02  -1.06673E+02  -1.50350E+03   1.50350E+03   5.03318E+01       \r\n                       0.0          -1.50244E+02   0.0          -3.18428E+02   0.0          -1.50244E+02   0.0          -7.08898E+01\r\n0           28  3.76022E+00   1.55381E+01  -1.55381E+01  -3.76022E+00   3.76022E+00   1.55381E+01  -1.55381E+01  -3.76022E+00       \r\n                       0.0           3.10762E+00   0.0           3.10762E+00   0.0           3.10762E+00   0.0           3.10762E+00\r\n0           29  3.05145E+01   2.52186E+02  -2.52186E+02  -3.05145E+01   3.05145E+01   2.52186E+02  -2.52186E+02  -3.05145E+01       \r\n                       0.0           2.52186E+01   0.0           2.52186E+01   0.0           2.52186E+01   0.0           2.52186E+01\r\n0           30 -1.80775E+01  -2.01421E+02   2.01421E+02   2.43719E+01  -2.43719E+01  -2.01519E+02   2.01519E+02   1.80775E+01       \r\n                       0.0          -2.01421E+01   0.0          -2.71554E+01   0.0          -2.01421E+01   0.0          -1.49401E+01\r\n0           31 -1.52631E+01  -4.04857E+02   4.04857E+02   3.63359E+01  -3.63359E+01  -4.05405E+02   4.05405E+02   1.52631E+01       \r\n                       0.0          -4.04857E+01   0.0          -9.63817E+01   0.0          -4.04857E+01   0.0          -1.70063E+01\r\n0           32  3.33647E+00   1.65172E+01  -1.65172E+01  -3.33647E+00   3.33647E+00   1.65172E+01  -1.65172E+01  -3.33647E+00       \r\n                       0.0           3.30343E+00   0.0           3.30343E+00   0.0           3.30343E+00   0.0           3.30343E+00\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                           F O R C E S   A C T I N G   O N   S H E A R   P A N E L   E L E M E N T S   ( C S H E A R )\r\n \r\n                  ====== POINT  1 ======      ====== POINT  2 ======      ====== POINT  3 ======      ====== POINT  4 ======\r\n       ELEMENT    F-FROM-4      F-FROM-2      F-FROM-1      F-FROM-3      F-FROM-2      F-FROM-4      F-FROM-3      F-FROM-1\r\n         ID               KICK-1       SHEAR-12       KICK-2       SHEAR-23       KICK-3       SHEAR-34       KICK-4       SHEAR-41\r\n0           33 -3.10777E+01  -3.07700E+02   3.07700E+02   3.10777E+01  -3.10777E+01  -3.07700E+02   3.07700E+02   3.10777E+01       \r\n                       0.0          -3.07700E+01   0.0          -3.07700E+01   0.0          -3.07700E+01   0.0          -3.07700E+01\r\n0           34 -4.17111E+00  -1.04934E+02   1.04934E+02   1.05983E+01  -1.05983E+01  -1.05130E+02   1.05130E+02   4.17111E+00       \r\n                       0.0          -1.04934E+01   0.0          -2.66624E+01   0.0          -1.04934E+01   0.0          -4.12982E+00\r\n0           35 -2.80273E-05  -3.41797E-04   3.41797E-04   2.80273E-05  -2.80273E-05  -3.41797E-04   3.41797E-04   2.80273E-05       \r\n                       0.0          -6.83594E-05   0.0          -6.83594E-05   0.0          -6.83594E-05   0.0          -6.83594E-05\r\n0           36 -3.10299E+01  -7.56828E+02   7.56828E+02   3.10299E+01  -3.10299E+01  -7.56828E+02   7.56828E+02   3.10299E+01       \r\n                       0.0          -7.56828E+01   0.0          -7.56828E+01   0.0          -7.56828E+01   0.0          -7.56828E+01\r\n0           37  4.41840E-01   4.37466E+00  -4.37466E+00  -1.79361E-01   1.79361E-01   4.38253E+00  -4.38253E+00  -4.41840E-01       \r\n                       0.0           4.37466E-01   0.0           1.77585E-01   0.0           4.37466E-01   0.0           1.07766E+00\r\n0           38 -4.12122E+01  -3.40596E+02   3.40596E+02   3.44002E+01  -3.44002E+01  -3.40664E+02   3.40664E+02   4.12122E+01       \r\n                       0.0          -3.40596E+01   0.0          -2.84299E+01   0.0          -3.40596E+01   0.0          -4.08041E+01\r\n0           39 -4.71535E+01  -4.66866E+02   4.66866E+02   5.64908E+01  -5.64908E+01  -4.66960E+02   4.66960E+02   4.71535E+01       \r\n                       0.0          -4.66866E+01   0.0          -5.59315E+01   0.0          -4.66866E+01   0.0          -3.89698E+01\r\n0           40 -1.25963E+01  -3.07228E+02   3.07228E+02   3.10300E+01  -3.10300E+01  -3.07780E+02   3.07780E+02   1.25963E+01       \r\n                       0.0          -3.07228E+01   0.0          -7.56830E+01   0.0          -3.07228E+01   0.0          -1.24716E+01\r\n0           41  1.74535E+01   1.72807E+02  -1.72807E+02  -7.08509E+00   7.08509E+00   1.73118E+02  -1.73118E+02  -1.74535E+01       \r\n                       0.0           1.72807E+01   0.0           7.01494E+00   0.0           1.72807E+01   0.0           4.25696E+01\r\n0           42 -7.27633E+01  -6.01349E+02   6.01349E+02   6.07363E+01  -6.07363E+01  -6.01470E+02   6.01470E+02   7.27633E+01       \r\n                       0.0          -6.01349E+01   0.0          -5.01953E+01   0.0          -6.01349E+01   0.0          -7.20428E+01\r\n0           43 -7.74883E+01  -7.67211E+02   7.67211E+02   9.28326E+01  -9.28326E+01  -7.67365E+02   7.67365E+02   7.74883E+01       \r\n                       0.0          -7.67211E+01   0.0          -9.19134E+01   0.0          -7.67211E+01   0.0          -6.40399E+01\r\n0           44 -1.51562E+01  -3.69664E+02   3.69664E+02   3.73360E+01  -3.73360E+01  -3.70328E+02   3.70328E+02   1.51562E+01       \r\n                       0.0          -3.69664E+01   0.0          -9.10635E+01   0.0          -3.69664E+01   0.0          -1.50061E+01\r\n0           45 -1.06317E+01  -1.18459E+02   1.18459E+02   4.70876E+00  -4.70876E+00  -1.18607E+02   1.18607E+02   1.06317E+01       \r\n                       0.0          -1.18459E+01   0.0          -5.24653E+00   0.0          -1.18459E+01   0.0          -2.67465E+01\r\n0           46 -6.98216E+00  -7.77957E+01   7.77957E+01   6.98216E+00  -6.98216E+00  -7.77957E+01   7.77957E+01   6.98216E+00       \r\n                       0.0          -7.77957E+00   0.0          -7.77957E+00   0.0          -7.77957E+00   0.0          -7.77957E+00\r\n0           47 -1.83766E+00  -4.62304E+01   4.62304E+01   4.14918E+00  -4.14918E+00  -4.62882E+01   4.62882E+01   1.83766E+00       \r\n                       0.0          -4.62304E+00   0.0          -1.04382E+01   0.0          -4.62304E+00   0.0          -2.04753E+00\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                           F O R C E S   A C T I N G   O N   S H E A R   P A N E L   E L E M E N T S   ( C S H E A R )\r\n \r\n                  ====== POINT  1 ======      ====== POINT  2 ======      ====== POINT  3 ======      ====== POINT  4 ======\r\n       ELEMENT    F-FROM-4      F-FROM-2      F-FROM-1      F-FROM-3      F-FROM-2      F-FROM-4      F-FROM-3      F-FROM-1\r\n         ID               KICK-1       SHEAR-12       KICK-2       SHEAR-23       KICK-3       SHEAR-34       KICK-4       SHEAR-41\r\n0           48  5.46566E+01   7.69811E+02  -7.69811E+02  -2.90219E+01   2.90219E+01   7.70238E+02  -7.70238E+02  -5.46566E+01       \r\n                       0.0           7.69811E+01   0.0           4.08759E+01   0.0           7.69811E+01   0.0           1.44978E+02\r\n0           49  2.97729E+01   7.89733E+02  -7.89733E+02  -5.60710E+01   5.60710E+01   7.90170E+02  -7.90170E+02  -2.97729E+01       \r\n                       0.0           7.89733E+01   0.0           1.48729E+02   0.0           7.89733E+01   0.0           4.19337E+01\r\n0           50  7.52983E+01   2.24771E+03  -2.24771E+03  -7.52983E+01   7.52983E+01   2.24771E+03  -2.24771E+03  -7.52983E+01       \r\n                       0.0           2.24771E+02   0.0           2.24771E+02   0.0           2.24771E+02   0.0           2.24771E+02\r\n0           51 -1.66294E+01  -7.02017E+02   7.02017E+02   1.87143E+01  -1.87143E+01  -7.02020E+02   7.02020E+02   1.66294E+01       \r\n                       0.0          -4.96401E+01   0.0          -4.96401E+01   0.0          -4.96401E+01   0.0          -4.96401E+01\r\n0           52 -4.01384E-01  -1.50569E+01   1.50569E+01   4.23210E-01  -4.23210E-01  -1.50569E+01   1.50569E+01   4.01384E-01       \r\n                       0.0          -1.06468E+00   0.0          -1.06468E+00   0.0          -1.06468E+00   0.0          -1.06468E+00\r\n0           53 -1.51840E+01  -5.40212E+02   5.40212E+02   1.56615E+01  -1.56615E+01  -5.40212E+02   5.40212E+02   1.51840E+01       \r\n                       0.0          -3.81988E+01   0.0          -3.81988E+01   0.0          -3.81988E+01   0.0          -3.81988E+01\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.048110E+03   6.354468E+01  -3.174451E+01       -1.8448       1.049132E+03   6.252222E+01   4.933050E+02          \r\n        2        1.263764E+03   1.597311E+02  -1.987009E+02       -9.8983       1.298437E+03   1.250583E+02   5.866891E+02          \r\n        3        1.394126E+03   1.492840E+02  -4.548772E+02      -18.0800       1.542627E+03   7.825928E-01   7.709224E+02          \r\n        4        1.501015E+03   2.295349E+02  -9.194933E+02      -27.6700       1.983145E+03  -2.525951E+02   1.117870E+03          \r\n        5        4.805718E+02  -8.785059E+01  -9.375741E+02      -36.5681       1.176065E+03  -7.833441E+02   9.797047E+02          \r\n        6        1.433347E+03   1.920470E+02  -2.700912E+01       -1.2459       1.433934E+03   1.914596E+02   6.212373E+02          \r\n        7        1.584927E+03   3.187672E+02  -2.889563E+02      -12.2667       1.647753E+03   2.559405E+02   6.959064E+02          \r\n        8        1.617846E+03   4.246919E+02  -7.307952E+02      -25.3869       1.964649E+03   7.788904E+01   9.433801E+02          \r\n        9        1.051537E+03   3.578499E+02  -9.673624E+02      -35.1375       1.732356E+03  -3.229692E+02   1.027662E+03          \r\n       11        1.234130E+03   2.238920E+02   6.621246E+00        0.3755       1.234173E+03   2.238487E+02   5.051623E+02          \r\n       12        1.157209E+03   2.953437E+02  -2.145350E+02      -13.2330       1.207658E+03   2.448947E+02   4.813816E+02          \r\n       13        7.494997E+02   3.507684E+02  -5.560833E+02      -35.1382       1.140875E+03  -4.060724E+01   5.907413E+02          \r\n       15        8.162839E+02   1.055447E+02   5.213225E+01        4.1728       8.200875E+02   1.017412E+02   3.591731E+02          \r\n       16        4.537765E+02   1.586376E+02   8.244919E+00        1.5989       4.540067E+02   1.584075E+02   1.477996E+02          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        9.765625E-04  -9.765625E-04                       19        7.697510E+00  -7.697510E+00                     \r\n              20        5.029854E+02  -5.029854E+02                       21        4.800723E+02  -4.800723E+02                     \r\n              22        2.419910E+03  -2.419910E+03                       28        2.219727E+01   2.219727E+01                     \r\n              29        1.801326E+02   1.801326E+02                       30        1.939668E+02  -1.503409E+02                     \r\n              31        6.884410E+02  -4.049571E+02                       35        4.882812E-04  -4.882812E-04                     \r\n              36        5.405914E+02  -5.405914E+02                       41        3.040684E+02   1.770876E+02                     \r\n              42        5.145917E+02  -4.365647E+02                       43        6.565245E+02  -5.569764E+02                     \r\n              44        6.504534E+02  -3.788201E+02                       50        1.605508E+03   1.605508E+03                     \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n0          LOAD ON TRAILING EDGE                                                                                                    \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10        1.040421E+03   4.122435E+02  -6.070105E+02      -31.3207       1.409790E+03   4.287537E+01   6.834571E+02          \r\n       14        6.342002E+02   4.034127E+02  -3.452886E+02      -35.7603       8.828668E+02   1.547461E+02   3.640604E+02          \r\n       17        1.722195E+02   2.339284E+02  -9.402055E+01      -54.0841       3.020278E+02   1.041201E+02   9.895383E+01          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                                                                                   \r\n\r\n           LOAD ON TRAILING EDGE                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS       \r\n DATE:  5/17/95\r\n END TIME: 14: 5:34\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01014a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01014A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS         \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                          \r\n                  3      LABEL    = LOAD ON TRAILING EDGE                                                \r\n                  4         SPC   = 1                                                                    \r\n                  5          LOAD = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7      $   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n                  8      $   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n                  9      $   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n                 10      $                                                                               \r\n                 11              SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n                 12              SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n                 13      $                                                                               \r\n                 14              DISPLACEMENTS = 1                                                       \r\n                 15              SPCFORCE      = ALL                                                     \r\n                 16              ESE           = ALL                                                     \r\n                 17              ELSTRESS      = 2                                                       \r\n                 18      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   169, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CONROD  100     11      12      1       .035                                    \r\n                    2-        CONROD  101     12      13      1       .035                                    \r\n                    3-        CONROD  102     13      14      1       .0344                                   \r\n                    4-        CONROD  103     14      15      1       .0325                                   \r\n                    5-        CONROD  104     15      16      1       .03                                     \r\n                    6-        CONROD  105     31      32      1       .091                                    \r\n                    7-        CONROD  106     32      33      1       .091                                    \r\n                    8-        CONROD  107     33      34      1       .088                                    \r\n                    9-        CONROD  108     34      35      1       .0719                                   \r\n                   10-        CONROD  109     35      36      1       .0453                                   \r\n                   11-        CONROD  110     51      52      1       .11                                     \r\n                   12-        CONROD  111     52      53      1       .11                                     \r\n                   13-        CONROD  112     53      54      1       .094                                    \r\n                   14-        CONROD  113     54      55      1       .0563                                   \r\n                   15-        CONROD  114     71      72      1       .091                                    \r\n                   16-        CONROD  115     72      73      1       .091                                    \r\n                   17-        CONROD  116     73      74      1       .0649                                   \r\n                   18-        CONROD  117     91      92      1       .035                                    \r\n                   19-        CONROD  118     92      93      1       .035                                    \r\n                   20-        CONROD  119     12      32      1       .063                                    \r\n                   21-        CONROD  120     32      52      1       .1002                                   \r\n                   22-        CONROD  121     52      72      1       .1002                                   \r\n                   23-        CONROD  122     72      92      1       .063                                    \r\n                   24-        CONROD  123     13      33      1       .063                                    \r\n                   25-        CONROD  124     33      53      1       .1002                                   \r\n                   26-        CONROD  125     53      73      1       .1002                                   \r\n                   27-        CONROD  126     73      93      1       .063                                    \r\n                   28-        CONROD  127     14      34      1       .0572                                   \r\n                   29-        CONROD  128     34      54      1       .0805                                   \r\n                   30-        CONROD  129     54      74      1       .0572                                   \r\n                   31-        CONROD  130     15      35      1       .0474                                   \r\n                   32-        CONROD  131     35      55      1       .0474                                   \r\n                   33-        CONROD  132     16      36      1       .028                                    \r\n                   34-        CONROD  133     93      74      1       .0344                                   \r\n                   35-        CONROD  134     74      55      1       .0325                                   \r\n                   36-        CONROD  135     55      36      1       .03                                     \r\n                   37-        CQDMEM2 1       1       11      12      32      31                              \r\n                   38-        CQDMEM2 2       1       12      13      33      32                              \r\n                   39-        CQDMEM2 3       1       13      14      34      33                              \r\n                   40-        CQDMEM2 4       1       14      15      35      34                              \r\n                   41-        CQDMEM2 5       1       15      16      36      35                              \r\n                   42-        CQDMEM2 6       1       31      32      52      51                              \r\n                   43-        CQDMEM2 7       1       32      33      53      52                              \r\n                   44-        CQDMEM2 8       1       33      34      54      53                              \r\n                   45-        CQDMEM2 9       1       34      35      55      54                              \r\n                   46-        CQDMEM2 11      1       51      52      72      71                              \r\n                   47-        CQDMEM2 12      1       52      53      73      72                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM2 13      1       53      54      74      73                              \r\n                   49-        CQDMEM2 15      1       71      72      92      91                              \r\n                   50-        CQDMEM2 16      1       72      73      93      92                              \r\n                   51-        CROD    60      5       1       11      61      6       2       12              \r\n                   52-        CROD    62      8       3       13      63      8       4       14              \r\n                   53-        CROD    64      8       5       15      65      6       6       16              \r\n                   54-        CROD    66      6       21      31      67      7       22      32              \r\n                   55-        CROD    68      9       23      33      69      9       24      34              \r\n                   56-        CROD    70      9       25      35      71      8       26      36              \r\n                   57-        CROD    72      6       41      51      73      7       42      52              \r\n                   58-        CROD    74      9       43      53      75      9       44      54              \r\n                   59-        CROD    76      9       45      55      77      6       61      71              \r\n                   60-        CROD    78      7       62      72      79      9       63      73              \r\n                   61-        CROD    80      9       64      74      81      5       81      91              \r\n                   62-        CROD    82      6       82      92      83      8       83      93              \r\n                   63-        CSHEAR  18      2       1       2       12      11                              \r\n                   64-        CSHEAR  19      2       2       3       13      12                              \r\n                   65-        CSHEAR  20      2       3       4       14      13                              \r\n                   66-        CSHEAR  21      2       4       5       15      14                              \r\n                   67-        CSHEAR  22      2       5       6       16      15                              \r\n                   68-        CSHEAR  23      2       21      22      32      31                              \r\n                   69-        CSHEAR  24      2       22      23      33      32                              \r\n                   70-        CSHEAR  25      2       23      24      34      33                              \r\n                   71-        CSHEAR  26      2       24      25      35      34                              \r\n                   72-        CSHEAR  27      2       25      26      36      35                              \r\n                   73-        CSHEAR  28      2       41      42      52      51                              \r\n                   74-        CSHEAR  29      2       42      43      53      52                              \r\n                   75-        CSHEAR  30      2       43      44      54      53                              \r\n                   76-        CSHEAR  31      2       44      45      55      54                              \r\n                   77-        CSHEAR  32      2       61      62      72      71                              \r\n                   78-        CSHEAR  33      2       62      63      73      72                              \r\n                   79-        CSHEAR  34      2       63      64      74      73                              \r\n                   80-        CSHEAR  35      2       81      82      92      91                              \r\n                   81-        CSHEAR  36      2       82      83      93      92                              \r\n                   82-        CSHEAR  37      2       2       22      32      12                              \r\n                   83-        CSHEAR  38      2       22      42      52      32                              \r\n                   84-        CSHEAR  39      2       42      62      72      52                              \r\n                   85-        CSHEAR  40      2       62      82      92      72                              \r\n                   86-        CSHEAR  41      2       3       23      33      13                              \r\n                   87-        CSHEAR  42      2       23      43      53      33                              \r\n                   88-        CSHEAR  43      2       43      63      73      53                              \r\n                   89-        CSHEAR  44      2       63      83      93      73                              \r\n                   90-        CSHEAR  45      2       4       24      34      14                              \r\n                   91-        CSHEAR  46      2       24      44      54      34                              \r\n                   92-        CSHEAR  47      2       44      64      74      54                              \r\n                   93-        CSHEAR  48      2       5       25      35      15                              \r\n                   94-        CSHEAR  49      2       25      45      55      35                              \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSHEAR  50      2       6       26      36      16                              \r\n                   96-        CSHEAR  51      2       26      45      55      36                              \r\n                   97-        CSHEAR  52      2       45      64      74      55                              \r\n                   98-        CSHEAR  53      2       64      83      93      74                              \r\n                   99-        CTRMEM  10      3       35      36      55                                      \r\n                  100-        CTRMEM  14      3       54      55      74                                      \r\n                  101-        CTRMEM  17      3       73      74      93                                      \r\n                  102-        FORCE   1       16      0       -1.     .0      .0      500.                    \r\n                  103-        FORCE   2       36              -1.0    .0      .0      500.0                   \r\n                  104-        GRDSET                                                  456                     \r\n                  105-        GRID    1               .0      .0      .0                                      \r\n                  106-        GRID    2               10.     .0      .0                                      \r\n                  107-        GRID    3               30.     .0      .0                                      \r\n                  108-        GRID    4               50.     .0      .0                                      \r\n                  109-        GRID    5               70.     .0      .0                                      \r\n                  110-        GRID    6               90.     .0      .0                                      \r\n                  111-        GRID    11              .0      .0      .82                                     \r\n                  112-        GRID    12              10.     .0      .82                                     \r\n                  113-        GRID    13              30.     .0      .82                                     \r\n                  114-        GRID    14              50.     .0      .795                                    \r\n                  115-        GRID    15              70.     .0      .754                                    \r\n                  116-        GRID    16              90.     .0      .67                                     \r\n                  117-        GRID    21              .0      20.     .0                                      \r\n                  118-        GRID    22              10.     20.     .0                                      \r\n                  119-        GRID    23              30.     20.     .0                                      \r\n                  120-        GRID    24              50.     20.     .0                                      \r\n                  121-        GRID    25              70.     20.     .0                                      \r\n                  122-        GRID    26              90.     20.     .0                                      \r\n                  123-        GRID    31              .0      20.     2.02                                    \r\n                  124-        GRID    32              10.     20.     2.02                                    \r\n                  125-        GRID    33              30.     20.     2.02                                    \r\n                  126-        GRID    34              50.     20.     1.795                                   \r\n                  127-        GRID    35              70.     20.     1.42                                    \r\n                  128-        GRID    36              90.     20.     .67                                     \r\n                  129-        GRID    41              .0      40.     .0                                      \r\n                  130-        GRID    42              10.     40.     .0                                      \r\n                  131-        GRID    43              30.     40.     .0                                      \r\n                  132-        GRID    44              50.     40.     .0                                      \r\n                  133-        GRID    45              70.     40.     .0                                      \r\n                  134-        GRID    51              .0      40.     2.42                                    \r\n                  135-        GRID    52              10.     40.     2.42                                    \r\n                  136-        GRID    53              30.     40.     2.42                                    \r\n                  137-        GRID    54              50.     40.     1.795                                   \r\n                  138-        GRID    55              70.     40.     .754                                    \r\n                  139-        GRID    61              .0      60.     .0                                      \r\n                  140-        GRID    62              10.     60.     .0                                      \r\n                  141-        GRID    63              30.     60.     .0                                      \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n\r\n      LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    64              50.     60.     .0                                      \r\n                  143-        GRID    71              .0      60.     2.02                                    \r\n                  144-        GRID    72              10.     60.     2.02                                    \r\n                  145-        GRID    73              30.     60.     2.02                                    \r\n                  146-        GRID    74              50.     60.     .795                                    \r\n                  147-        GRID    81              .0      80.     .0                                      \r\n                  148-        GRID    82              10.     80.     .0                                      \r\n                  149-        GRID    83              30.     80.     .0                                      \r\n                  150-        GRID    91              .0      80.     .82                                     \r\n                  151-        GRID    92              10.     80.     .82                                     \r\n                  152-        GRID    93              30.     80.     .82                                     \r\n                  153-        MAT1    1       10.4  +64.   +6                                                 \r\n                  154-        MAT1    2       1.04+7  4.+6            .2523-3                                 \r\n                  155-        PARAM   IRES    1                                                               \r\n                  156-        PQDMEM2 1       2       .16     .0                                              \r\n                  157-        PROD    5       1       2.1                                                     \r\n                  158-        PROD    6       1       3.5                                                     \r\n                  159-        PROD    7       1       4.91                                                    \r\n                  160-        PROD    8       1       4.2                                                     \r\n                  161-        PROD    9       1       5.6                                                     \r\n                  162-        PSHEAR  2       2       .14     .0                                              \r\n                  163-        PTRMEM  3       2       .16     .0                                              \r\n                  164-        SPC1    1       1       11      31      51      71      91                      \r\n                  165-        SPC1    1       3       13      33      53      73      93                      \r\n                  166-        SPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n                  167-        +SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n                  168-        +SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n                  169-        +SPC-C  82      83                                                              \r\n                              ENDDATA\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE            509\r\n                                        MAX WAVEFRONT       17\r\n                                        AVG WAVEFRONT   10.604\r\n                                        RMS WAVEFRONT   11.331\r\n                                        RMS BANDWIDTH   12.060\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE            486\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   10.125\r\n                                        RMS WAVEFRONT   10.743\r\n                                        RMS BANDWIDTH   10.914\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       19        15\r\n                                        PROFILE (P)                        509       486\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           17        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       10.604    10.125\r\n                                        RMS WAVEFRONT (C-RMS)           11.331    10.743\r\n                                        RMS BANDWITCH (B-RMS)           12.060    10.914\r\n                                        NUMBER OF GRID POINTS (N)                     48\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               113\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          13\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       200\r\n                                        MATRIX DENSITY, PERCENT                   19.444\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  12\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3      11       4      13\r\n                         SEQGP          5       7       6       2      11       3      12       5\r\n                         SEQGP         13      12      14      14      15      10      16       6\r\n                         SEQGP         21      27      22      18      23      24      24      25\r\n                         SEQGP         25      15      26       8      31      16      32      17\r\n                         SEQGP         33      19      34      23      35      20      36       9\r\n                         SEQGP         41      37      42      30      43      32      44      26\r\n                         SEQGP         45      21      51      28      52      29      53      31\r\n                         SEQGP         54      33      55      22      61      44      62      40\r\n                         SEQGP         63      36      64      34      71      38      72      39\r\n                         SEQGP         73      41      74      35      81      48      82      47\r\n                         SEQGP         83      42      91      45      92      46      93      43\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2   ELEMENTS (ELEMENT TYPE  63) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SHEAR    ELEMENTS (ELEMENT TYPE   4) STARTING WITH ID       18\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -8.0193690E-12\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3 -2.94449E-10        6 T3  4.83465E-09       11 T2  2.27374E-13       11 T3  3.61528E-10        2 T3  1.61037E-10\r\n            12 T1  1.63425E-13       12 T2 -4.26326E-14       12 T3 -3.33218E-10       16 T1 -2.81943E-11       16 T2 -2.36469E-11\r\n            16 T3 -3.18065E-09        5 T3  4.57658E-09       26 T3 -3.81249E-10       36 T1 -1.81899E-12       36 T2 -1.45519E-11\r\n            36 T3  6.66262E-10       15 T1  1.93268E-11       15 T2 -5.00222E-12       15 T3 -2.23474E-09        3 T3  5.07580E-14\r\n            13 T1  9.43601E-12       13 T2  1.32971E-12        4 T3  1.23464E-09       14 T1  6.42331E-12       14 T2 -6.36646E-12\r\n            14 T3 -4.40821E-11       25 T3 -1.19519E-09       31 T2 -3.41061E-13       31 T3 -2.50496E-10       32 T1 -2.50111E-12\r\n            32 T2  8.81073E-13       32 T3 -1.30300E-11       22 T3  1.24146E-10       33 T1  1.70530E-13       33 T2  1.98952E-12\r\n            35 T1  6.08225E-12       35 T2 -2.07478E-11       35 T3  2.27926E-09       45 T3  1.13586E-09       55 T1  9.09495E-13\r\n            55 T2 -4.54747E-13       55 T3 -3.41011E-10       34 T1 -6.05382E-12       34 T2 -1.27329E-11       34 T3  3.47654E-10\r\n            23 T3 -2.09888E-13       24 T3 -1.51203E-11       44 T3 -3.33273E-10       51 T2  2.84217E-14       51 T3  9.94276E-11\r\n            52 T1  8.81073E-13       52 T2  8.52651E-13       52 T3  7.03699E-11       42 T3  1.30740E-11       53 T1 -7.29139E-13\r\n            53 T2 -3.12639E-13       43 T3  1.49214E-13       54 T1 -1.57883E-11       54 T2 -7.47491E-12       54 T3  1.75793E-10\r\n            64 T3  2.83924E-10       74 T1  1.16529E-12       74 T2  2.95586E-12       74 T3  7.53442E-11       63 T3 -1.02141E-13\r\n            41 T3 -5.82077E-11       71 T2 -1.13687E-13       71 T3 -2.15046E-11       72 T1 -1.13687E-13       72 T2  3.63798E-12\r\n            72 T3 -2.93312E-11       62 T3 -2.14584E-11       73 T1 -5.68434E-14       73 T2 -6.25278E-13       83 T3  7.10543E-14\r\n            93 T1  1.81899E-12       93 T2  6.11067E-13       91 T2  5.68434E-14       91 T3  1.16415E-10       92 T1  1.36424E-12\r\n            92 T2  2.27374E-12       92 T3  3.94493E-11       82 T3 -3.09797E-10\r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                           E L E M E N T   S T R A I N   E N E R G I E S\r\n \r\n                              ELEMENT-TYPE = CONROD           * TOTAL FOR ALL TYPES =   1.0669881E+02\r\n0                                                                                               *\r\n                                    ELEMENT-ID          STRAIN-ENERGY           PERCENT OF TOTAL\r\n                                           100          7.988407E-03                 0.0075                                         \r\n                                           101          2.409836E-02                 0.0226                                         \r\n                                           102          3.317267E-02                 0.0311                                         \r\n                                           103          6.349654E-02                 0.0595                                         \r\n                                           104          1.417728E-02                 0.0133                                         \r\n                                           105          9.144345E-02                 0.0857                                         \r\n                                           106          2.413033E-01                 0.2262                                         \r\n                                           107          2.883048E-01                 0.2702                                         \r\n                                           108          1.747854E-01                 0.1638                                         \r\n                                           109          2.152781E-02                 0.0202                                         \r\n                                           110          1.064239E-01                 0.0997                                         \r\n                                           111          2.123052E-01                 0.1990                                         \r\n                                           112          1.469294E-01                 0.1377                                         \r\n                                           113          1.666902E-02                 0.0156                                         \r\n                                           114          4.466923E-02                 0.0419                                         \r\n                                           115          5.330126E-02                 0.0500                                         \r\n                                           116          9.557900E-04                 0.0009                                         \r\n                                           117          5.726366E-03                 0.0054                                         \r\n                                           118          2.457197E-04                 0.0002                                         \r\n                                           119          3.711989E-03                 0.0035                                         \r\n                                           120          4.448529E-03                 0.0042                                         \r\n                                           121          1.889404E-03                 0.0018                                         \r\n                                           122          9.093166E-04                 0.0009                                         \r\n                                           123          2.691366E-03                 0.0025                                         \r\n                                           124          9.108512E-04                 0.0009                                         \r\n                                           125          2.005136E-04                 0.0002                                         \r\n                                           126          1.883429E-03                 0.0018                                         \r\n                                           127          5.049681E-03                 0.0047                                         \r\n                                           128          5.204062E-05                 0.0000                                         \r\n                                           129          3.108810E-03                 0.0029                                         \r\n                                           130          2.271276E-03                 0.0021                                         \r\n                                           131          1.749204E-03                 0.0016                                         \r\n                                           132          5.887068E-06                 0.0000                                         \r\n                                           133          3.266075E-03                 0.0031                                         \r\n                                           134          3.249414E-02                 0.0305                                         \r\n                                           135          6.731627E-02                 0.0631                                         \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                           E L E M E N T   S T R A I N   E N E R G I E S\r\n \r\n                              ELEMENT-TYPE = QDMEM2           * TOTAL FOR ALL TYPES =   1.0669881E+02\r\n0                                                                                               *\r\n                                    ELEMENT-ID          STRAIN-ENERGY           PERCENT OF TOTAL\r\n                                             1          1.877714E+00                 1.7598                                         \r\n                                             2          5.519096E+00                 5.1726                                         \r\n                                             3          8.704336E+00                 8.1579                                         \r\n                                             4          1.463803E+01                13.7190                                         \r\n                                             5          1.327264E+01                12.4393                                         \r\n                                             6          3.221649E+00                 3.0194                                         \r\n                                             7          8.364882E+00                 7.8397                                         \r\n                                             8          1.304429E+01                12.2253                                         \r\n                                             9          1.388945E+01                13.0174                                         \r\n                                            11          2.380748E+00                 2.2313                                         \r\n                                            12          4.562165E+00                 4.2757                                         \r\n                                            13          5.533886E+00                 5.1865                                         \r\n                                            15          1.045589E+00                 0.9799                                         \r\n                                            16          9.123661E-01                 0.8551                                         \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                           E L E M E N T   S T R A I N   E N E R G I E S\r\n \r\n                              ELEMENT-TYPE = ROD              * TOTAL FOR ALL TYPES =   1.0669881E+02\r\n0                                                                                               *\r\n                                    ELEMENT-ID          STRAIN-ENERGY           PERCENT OF TOTAL\r\n                                            60          0.0                          0.0                                            \r\n                                            61          0.0                          0.0                                            \r\n                                            62          1.111976E-06                 0.0000                                         \r\n                                            63          1.372487E-06                 0.0000                                         \r\n                                            64          1.134541E-05                 0.0000                                         \r\n                                            65          4.014914E-04                 0.0004                                         \r\n                                            66          1.125337E-07                 0.0000                                         \r\n                                            67          2.653774E-06                 0.0000                                         \r\n                                            68          6.395850E-04                 0.0006                                         \r\n                                            69          3.602195E-09                 0.0000                                         \r\n                                            70          3.319486E-06                 0.0000                                         \r\n                                            71          2.895196E-08                 0.0000                                         \r\n                                            72          4.826075E-07                 0.0000                                         \r\n                                            73          4.930169E-06                 0.0000                                         \r\n                                            74          7.130022E-05                 0.0001                                         \r\n                                            75          9.095766E-06                 0.0000                                         \r\n                                            76          1.562888E-06                 0.0000                                         \r\n                                            77          3.316307E-07                 0.0000                                         \r\n                                            78          1.736600E-06                 0.0000                                         \r\n                                            79          1.984971E-04                 0.0002                                         \r\n                                            80          2.033314E-07                 0.0000                                         \r\n                                            81          0.0                          0.0                                            \r\n                                            82          0.0                          0.0                                            \r\n                                            83          6.973851E-05                 0.0001                                         \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                           E L E M E N T   S T R A I N   E N E R G I E S\r\n \r\n                              ELEMENT-TYPE = SHEAR            * TOTAL FOR ALL TYPES =   1.0669881E+02\r\n0                                                                                               *\r\n                                    ELEMENT-ID          STRAIN-ENERGY           PERCENT OF TOTAL\r\n                                            18          3.264712E-14                 0.0000                                         \r\n                                            19          5.555574E-04                 0.0005                                         \r\n                                            20          7.848595E-02                 0.0736                                         \r\n                                            21          1.396061E-01                 0.1308                                         \r\n                                            22          1.452987E+00                 1.3618                                         \r\n                                            23          7.231098E-05                 0.0001                                         \r\n                                            24          1.236306E-01                 0.1159                                         \r\n                                            25          9.840964E-02                 0.0922                                         \r\n                                            26          1.042789E-01                 0.0977                                         \r\n                                            27          2.791686E-01                 0.2616                                         \r\n                                            28          2.136098E-04                 0.0002                                         \r\n                                            29          2.702962E-02                 0.0253                                         \r\n                                            30          1.151129E-02                 0.0108                                         \r\n                                            31          1.476611E-02                 0.0138                                         \r\n                                            32          2.131561E-04                 0.0002                                         \r\n                                            33          3.900273E-02                 0.0366                                         \r\n                                            34          3.468137E-03                 0.0033                                         \r\n                                            35          4.462504E-15                 0.0000                                         \r\n                                            36          8.715755E-02                 0.0817                                         \r\n                                            37          1.588225E-04                 0.0001                                         \r\n                                            38          5.359860E-02                 0.0502                                         \r\n                                            39          9.389047E-02                 0.0880                                         \r\n                                            40          2.491763E-02                 0.0234                                         \r\n                                            41          6.308967E-03                 0.0059                                         \r\n                                            42          1.656711E-01                 0.1553                                         \r\n                                            43          2.359575E-01                 0.2211                                         \r\n                                            44          3.356045E-02                 0.0315                                         \r\n                                            45          6.654442E-04                 0.0006                                         \r\n                                            46          6.962767E-03                 0.0065                                         \r\n                                            47          3.295067E-05                 0.0000                                         \r\n                                            48          5.229048E-02                 0.0490                                         \r\n                                            49          7.263252E-02                 0.0681                                         \r\n                                            50          7.150434E-01                 0.6702                                         \r\n                                            51          3.951204E-03                 0.0037                                         \r\n                                            52          3.625683E-07                 0.0000                                         \r\n                                            53          4.113988E-02                 0.0386                                         \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                           E L E M E N T   S T R A I N   E N E R G I E S\r\n \r\n                              ELEMENT-TYPE = TRMEM            * TOTAL FOR ALL TYPES =   1.0669881E+02\r\n0                                                                                               *\r\n                                    ELEMENT-ID          STRAIN-ENERGY           PERCENT OF TOTAL\r\n                                            10          2.693934E+00                 2.5248                                         \r\n                                            14          1.257643E+00                 1.1787                                         \r\n                                            17          1.321577E-01                 0.1239                                         \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            6.369039E-04   4.026382E-02   0.0            0.0            0.0                           \r\n            12      G      6.625130E-04   6.035610E-04   3.622411E-02   0.0            0.0            0.0                           \r\n            13      G      2.289834E-03   2.433819E-04   0.0            0.0            0.0            0.0                           \r\n            14      G      4.113281E-03  -4.025157E-04  -8.193040E-02   0.0            0.0            0.0                           \r\n            15      G      6.564544E-03  -1.838500E-03  -2.233857E-01   0.0            0.0            0.0                           \r\n            16      G      7.058426E-03  -3.955205E-03  -4.267952E-01   0.0            0.0            0.0                           \r\n            31      G      0.0            6.929894E-04   3.088420E-02   0.0            0.0            0.0                           \r\n            32      G      1.390125E-03   6.509469E-04   2.747888E-02   0.0            0.0            0.0                           \r\n            33      G      4.583679E-03  -1.630613E-04   0.0            0.0            0.0            0.0                           \r\n            34      G      7.405066E-03  -1.844160E-03  -6.477342E-02   0.0            0.0            0.0                           \r\n            35      G      8.560961E-03  -4.170824E-03  -1.662485E-01   0.0            0.0            0.0                           \r\n            36      G      4.914715E-03  -3.983642E-03  -2.995721E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            3.152463E-04   2.439899E-02   0.0            0.0            0.0                           \r\n            52      G      1.364023E-03   3.544406E-04   2.163669E-02   0.0            0.0            0.0                           \r\n            53      G      4.088589E-03  -3.501009E-04   0.0            0.0            0.0            0.0                           \r\n            54      G      5.152458E-03  -1.894024E-03  -4.447462E-02   0.0            0.0            0.0                           \r\n            55      G      2.889915E-03  -1.870304E-03  -1.084868E-01   0.0            0.0            0.0                           \r\n            71      G      0.0           -6.402508E-05   2.056971E-02   0.0            0.0            0.0                           \r\n            72      G      9.715874E-04   1.684427E-05   1.822609E-02   0.0            0.0            0.0                           \r\n            73      G      2.472521E-03  -2.623439E-04   0.0            0.0            0.0            0.0                           \r\n            74      G      1.121520E-03  -5.099169E-04  -2.595375E-02   0.0            0.0            0.0                           \r\n            91      G      0.0           -2.568779E-04   2.186147E-02   0.0            0.0            0.0                           \r\n            92      G      5.609238E-04  -2.064985E-04   1.844120E-02   0.0            0.0            0.0                           \r\n            93      G      7.252471E-04   7.766333E-05   0.0            0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.583409E-10   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.159551E+01  -2.500412E+01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.993619E+02  -1.575899E+02   0.0            0.0            0.0            0.0                           \r\n             4      G      1.742463E+03   5.360886E+01   0.0            0.0            0.0            0.0                           \r\n             5      G      4.385215E+03  -5.188792E+02   0.0            0.0            0.0            0.0                           \r\n             6      G      3.380518E+03  -2.444683E+03   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.440464E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            2.328759E+01   0.0            0.0            0.0                           \r\n            21      G     -1.001171E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G     -5.954501E+02   3.426589E+02   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.795281E+01   4.888026E+02   0.0            0.0            0.0            0.0                           \r\n            24      G      1.140154E+03   2.009932E+02   0.0            0.0            0.0            0.0                           \r\n            25      G      1.825346E+03  -1.130416E+03   0.0            0.0            0.0            0.0                           \r\n            26      G      1.074440E+03  -2.296445E+03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.576857E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      0.0            0.0            4.822010E+02   0.0            0.0            0.0                           \r\n            41      G     -1.572080E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            42      G     -2.658167E+02   8.542761E+02   0.0            0.0            0.0            0.0                           \r\n            43      G     -7.524690E+01   1.417811E+03   0.0            0.0            0.0            0.0                           \r\n            44      G      4.293880E+02   1.593136E+02   0.0            0.0            0.0            0.0                           \r\n            45      G      1.076619E+02  -4.646599E+02   0.0            0.0            0.0            0.0                           \r\n            51      G     -4.769151E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            2.748912E+02   0.0            0.0            0.0                           \r\n            61      G     -1.718889E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            62      G      3.116368E+02   7.997990E+02   0.0            0.0            0.0            0.0                           \r\n            63      G      4.461806E+02   1.134884E+03   0.0            0.0            0.0            0.0                           \r\n            64      G     -3.304393E+02   4.597235E+02   0.0            0.0            0.0            0.0                           \r\n            71      G     -3.513612E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -8.953587E+01   0.0            0.0            0.0                           \r\n            81      G     -3.165042E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            82      G      7.715068E+02   3.131859E+02   0.0            0.0            0.0            0.0                           \r\n            83      G      3.223515E+02   8.126208E+02   0.0            0.0            0.0            0.0                           \r\n            91      G     -1.139908E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -1.908440E+02   0.0            0.0            0.0                           \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.088894E+03   7.174078E+01  -3.159946E+01       -1.7777       1.089875E+03   7.076007E+01   5.095574E+02          \r\n        2        1.301913E+03   1.616174E+02  -1.971363E+02       -9.5368       1.335032E+03   1.284980E+02   6.032670E+02          \r\n        3        1.495339E+03   2.029335E+02  -4.909373E+02      -18.6124       1.660676E+03   3.759601E+01   8.115400E+02          \r\n        4        1.631106E+03   2.694280E+02  -9.355760E+02      -26.9779       2.107351E+03  -2.068174E+02   1.157084E+03          \r\n        5        9.478574E+02   3.167808E+02  -1.152115E+03      -37.3418       1.826862E+03  -5.622238E+02   1.194543E+03          \r\n        6        1.494905E+03   2.091598E+02  -2.784482E+01       -1.2401       1.495508E+03   2.085571E+02   6.434753E+02          \r\n        7        1.639450E+03   3.357961E+02  -3.021451E+02      -12.4347       1.706073E+03   2.691732E+02   7.184498E+02          \r\n        8        1.731677E+03   4.841033E+02  -7.492800E+02      -25.1111       2.082842E+03   1.329387E+02   9.749516E+02          \r\n        9        1.322923E+03   5.638553E+02  -1.022839E+03      -34.8211       2.034373E+03  -1.475947E+02   1.090984E+03          \r\n       11        1.285619E+03   2.370070E+02   5.191833E+00        0.2837       1.285645E+03   2.369814E+02   5.243318E+02          \r\n       12        1.191724E+03   3.103128E+02  -2.194538E+02      -13.2357       1.243341E+03   2.586960E+02   4.923223E+02          \r\n       13        8.675933E+02   4.397802E+02  -5.826329E+02      -34.9200       1.274345E+03   3.302814E+01   6.206586E+02          \r\n       15        8.324529E+02   1.184902E+02   5.425244E+01        4.3207       8.365519E+02   1.143912E+02   3.610804E+02          \r\n       16        4.846491E+02   1.722750E+02   4.698929E+00        0.8616       4.847198E+02   1.722043E+02   1.562577E+02          \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                                        S T R E S S E S   I N   S H E A R   P A N E L S      ( C S H E A R )\r\n         ELEMENT            MAX            AVG        SAFETY         ELEMENT            MAX            AVG        SAFETY\r\n           ID.             SHEAR          SHEAR       MARGIN           ID.             SHEAR          SHEAR       MARGIN\r\n              18        9.765625E-04   9.765625E-04                       19        4.399683E+01  -4.399683E+01                     \r\n              20        5.269736E+02  -5.269736E+02                       21        7.176406E+02  -7.176406E+02                     \r\n              22        2.414652E+03  -2.414652E+03                       28        2.245850E+01   2.245850E+01                     \r\n              29        1.786398E+02   1.786398E+02                       30        1.683785E+02  -1.305078E+02                     \r\n              31        4.328295E+02  -2.546004E+02                       35        4.882812E-04  -4.882812E-04                     \r\n              36        5.510758E+02  -5.510758E+02                       41        2.772922E+02   1.614933E+02                     \r\n              42        5.531365E+02  -4.692649E+02                       43        6.601245E+02  -5.600304E+02                     \r\n              44        6.395472E+02  -3.724684E+02                       50        1.746203E+03   1.746203E+03                     \r\n1     DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                                                                                   \r\n0     LOAD ON TRAILING EDGE                                                                                                         \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       10        8.375298E+02   4.491918E+02  -6.419191E+02      -36.5852       1.314004E+03  -2.728198E+01   6.706428E+02          \r\n       14        6.884886E+02   4.465347E+02  -3.543126E+02      -35.5740       9.419083E+02   1.931150E+02   3.743966E+02          \r\n       17        1.942242E+02   2.352710E+02  -8.755251E+01      -51.5963       3.046734E+02   1.248218E+02   8.992580E+01          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS       \r\n DATE:  5/17/95\r\n END TIME: 14: 6: 4\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01021a.out",
    "content": "     NASTRAN  FILES=(NPTP,PLT2)                                                      \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01021A,NASTRAN                                                           \r\n     CHKPNT   YES                                                                    \r\n     TIME     15                                                                     \r\n     APP      DISPLACEMENT                                                           \r\n     SOL      1,1                                                                    \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   D01021A ,NASTRAN , 5/17/95,   52113,\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                          \r\n                  3      LOAD = 1                                                                        \r\n                  4      SPC  = 2                                                                        \r\n                  5      OUTPUT                                                                          \r\n                  6      DISP   = ALL                                                                    \r\n                  7      SPCF   = ALL                                                                    \r\n                  8      STRESS = ALL                                                                    \r\n                  9      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                            \r\n                 10      OUTPUT(PLOT)                                                                    \r\n                 11      PLOTTER NASTPLT                                                                 \r\n                 12         MAXIMUM DEFORMATION  6.0                                                     \r\n                 13      $                                                                               \r\n                 14      $ ALL ELEMENTS                                                                  \r\n                 15         SET 1 = ELEMENTS TRIA2                                                       \r\n                 16      $                                                                               \r\n                 17      $ PLOTEL - EDGES AND CENTERLINE                                                 \r\n                 18         SET 2 = PLOTEL                                                               \r\n                 19      $                                                                               \r\n                 20           VIEW 20.0, 30.0, 0.0                                                       \r\n                 21           FIND SCALE  ORIGIN 1 SET 1                                                 \r\n                 22      PTITLE = UNDEFORMED SECTION TRIA2 ELEMENTS                                      \r\n                 23      PLOT LABEL(BOTH), SYMBOLS 6,SHRINK                                              \r\n                 24      PTITLE = SECTION TRIA2 ELEMENTS WITH UNDERLAY                                   \r\n                 25         PLOT STATIC DEFORMATION 0,1, SET 1, ORIGIN 1,SHAPE, LABELS                   \r\n                 26      $                                                                               \r\n                 27      $                                                                               \r\n                 28              PERSPECTIVE PROJECTION                                                  \r\n                 29      $                                                                               \r\n                 30      MAXIMUM DEFORMATION 6.0                                                         \r\n                 31           FIND SCALE, SET 2, ORIGIN 1000                                             \r\n                 32         FIND SCALE,ORIGIN 1000, SET  1,VANT POINT,REGION 0.35,0.1, 0.9, 0.8          \r\n                 33      PTITLE = SECTION PLOTEL ELEMENTS (PERSPECTIVE PROJECTION)                       \r\n                 34      PLOT SET 2,  ORIGIN 1000, LABELS                                                \r\n                 35      PTITLE = FULL MODEL (VIA SYMMETRY) TRIA2 ELEMENTS - PERSPECTIVE                 \r\n                 36      PLOT    SET 1,  ORIGIN 1000, SYMBOLS 9, SHAPE,SHRINK,                           \r\n                 37              SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY X,                     \r\n                 38              SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY Y,                     \r\n                 39              SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY XY                     \r\n                 40      PTITLE = FULL MODEL (VIA SYMMETRY) PLOTEL ELEMENTS - PERSPECTIVE                \r\n                 41      PLOT STATIC DEFORMATION 0,1,                                                    \r\n                 42              SET 2, ORIGIN 1000, SHAPE,                                              \r\n                 43              SET 2, ORIGIN 1000, SHAPE, SYMMETRY X,                                  \r\n                 44              SET 2, ORIGIN 1000, SHAPE, SYMMETRY Y,                                  \r\n                 45              SET 2, ORIGIN 1000, SHAPE, SYMMETRY XY                                  \r\n                 46      BEGIN BULK                                                                      \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    91, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2S  2               .0      .0      .0      .0      .0      1.      +COR1   \r\n                    2-        +COR1   1.000   .000    .000                                                    \r\n                    3-        CTRIA2  1       31      1       6       26      .0                              \r\n                    4-        CTRIA2  2       31      6       11      26      .0                              \r\n                    5-        CTRIA2  3       31      2       7       1       .0                              \r\n                    6-        CTRIA2  4       31      6       1       7       .0                              \r\n                    7-        CTRIA2  5       31      7       12      6       .0                              \r\n                    8-        CTRIA2  6       31      11      6       12      .0                              \r\n                    9-        CTRIA2  7       31      12      16      11      .0                              \r\n                   10-        CTRIA2  8       31      3       8       2       .0                              \r\n                   11-        CTRIA2  9       31      7       2       8       .0                              \r\n                   12-        CTRIA2  10      31      8       13      7       .0                              \r\n                   13-        CTRIA2  11      31      12      7       13      .0                              \r\n                   14-        CTRIA2  12      31      13      17      12      .0                              \r\n                   15-        CTRIA2  13      31      16      12      17      .0                              \r\n                   16-        CTRIA2  14      31      17      20      16      .0                              \r\n                   17-        CTRIA2  15      31      4       9       3       .0                              \r\n                   18-        CTRIA2  16      31      8       3       9       .0                              \r\n                   19-        CTRIA2  17      31      9       14      8       .0                              \r\n                   20-        CTRIA2  18      31      13      8       14      .0                              \r\n                   21-        CTRIA2  19      31      14      18      13      .0                              \r\n                   22-        CTRIA2  20      31      17      13      18      .0                              \r\n                   23-        CTRIA2  21      31      18      21      17      .0                              \r\n                   24-        CTRIA2  22      31      20      17      21      .0                              \r\n                   25-        CTRIA2  23      31      21      23      20      .0                              \r\n                   26-        CTRIA2  24      31      5       10      4       .0                              \r\n                   27-        CTRIA2  25      31      9       4       10      .0                              \r\n                   28-        CTRIA2  26      31      10      15      9       .0                              \r\n                   29-        CTRIA2  27      31      14      9       15      .0                              \r\n                   30-        CTRIA2  28      31      15      19      14      .0                              \r\n                   31-        CTRIA2  29      31      18      14      19      .0                              \r\n                   32-        CTRIA2  30      31      19      22      18      .0                              \r\n                   33-        CTRIA2  31      31      21      18      22      .0                              \r\n                   34-        CTRIA2  32      31      22      24      21      .0                              \r\n                   35-        CTRIA2  33      31      23      21      24      .0                              \r\n                   36-        CTRIA2  34      31      24      25      23      .0                              \r\n                   37-        GRDSET          2                               2                               \r\n                   38-        GRID    1               90.     7.      .0                                      \r\n                   39-        GRID    2               90.     14.0    .0                                      \r\n                   40-        GRID    3               90.     21.0    .0                                      \r\n                   41-        GRID    4               90.     28.0    .0                                      \r\n                   42-        GRID    5               90.     35.0    .0                                      \r\n                   43-        GRID    6               90.     7.0     45.0                                    \r\n                   44-        GRID    7               90.     14.0    30.0                                    \r\n                   45-        GRID    8               90.     21.0    22.5                                    \r\n                   46-        GRID    9               90.     28.0    18.0                                    \r\n                   47-        GRID    10              90.     35.0    15.0                                    \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    11              90.     7.0     90.0                                    \r\n                   49-        GRID    12              90.     14.0    60.0                                    \r\n                   50-        GRID    13              90.     21.0    45.0                                    \r\n                   51-        GRID    14              90.     28.0    36.0                                    \r\n                   52-        GRID    15              90.     35.0    30.0                                    \r\n                   53-        GRID    16              90.     14.0    90.0                                    \r\n                   54-        GRID    17              90.     21.0    67.5                                    \r\n                   55-        GRID    18              90.     28.0    54.0                                    \r\n                   56-        GRID    19              90.     35.0    45.0                                    \r\n                   57-        GRID    20              90.     21.0    90.0                                    \r\n                   58-        GRID    21              90.     28.0    72.0                                    \r\n                   59-        GRID    22              90.     35.0    60.0                                    \r\n                   60-        GRID    23              90.     28.0    90.0                                    \r\n                   61-        GRID    24              90.     35.0    75.0                                    \r\n                   62-        GRID    25              90.     35.0    90.0                                    \r\n                   63-        GRID    26      0       .0      .0      90.0    0                               \r\n                   64-        MAT1    1       3.+6            .1666                                           \r\n                   65-        PLOAD2  1       -1.0    1       2       3       4       5       6               \r\n                   66-        PLOAD2  1       -1.0    7       8       9       10      11      12              \r\n                   67-        PLOAD2  1       -1.0    13      14      15      16      17      18              \r\n                   68-        PLOAD2  1       -1.0    19      20      21      22      23      24              \r\n                   69-        PLOAD2  1       -1.0    25      26      27      28      29      30              \r\n                   70-        PLOAD2  1       -1.0    31      32      33      34                              \r\n                   71-        PLOTEL  50      26      1               51      1       2                       \r\n                   72-        PLOTEL  52      2       3               53      3       4                       \r\n                   73-        PLOTEL  54      4       5               55      5       10                      \r\n                   74-        PLOTEL  56      10      15              57      15      19                      \r\n                   75-        PLOTEL  58      19      22              59      22      24                      \r\n                   76-        PLOTEL  60      24      25              61      25      23                      \r\n                   77-        PLOTEL  62      23      20              63      20      16                      \r\n                   78-        PLOTEL  64      16      11              65      11      26                      \r\n                   79-        PLOTEL  66      3       8               67      8       13                      \r\n                   80-        PLOTEL  68      13      17              69      17      20                      \r\n                   81-        PTRIA2  31      1       3.                                                      \r\n                   82-        SPC     1       26      12456   .0                                              \r\n                   83-        SPC1    1       345     1       2       3       4       11      16      +SPC1-2 \r\n                   84-        +SPC1-2 20      23                                                              \r\n                   85-        SPC1    1       123456  5       10      15      19      22      24      +SPC1-1 \r\n                   86-        +SPC1-1 25                                                                      \r\n                   87-        SPC1    2       2       10      15      19      22      24                      \r\n                   88-        SPC1    2       345     1       2       3       4       11      16      +SPC2-1 \r\n                   89-        +SPC2-1 20      23                                                              \r\n                   90-        SPC1    2       2345    5       25                                              \r\n                   91-        SPC1    2       12456   26                                                      \r\n                              ENDDATA\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      5\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           26\r\n                                        PROFILE            153\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    5.885\r\n                                        RMS WAVEFRONT    6.168\r\n                                        RMS BANDWIDTH    7.382\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            131\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.038\r\n                                        RMS WAVEFRONT    5.302\r\n                                        RMS BANDWIDTH    5.374\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       26         7\r\n                                        PROFILE (P)                        153       131\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         7\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.885     5.038\r\n                                        RMS WAVEFRONT (C-RMS)            6.168     5.302\r\n                                        RMS BANDWITCH (B-RMS)            7.382     5.374\r\n                                        NUMBER OF GRID POINTS (N)                     26\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                34\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        59\r\n                                        MATRIX DENSITY, PERCENT                   21.302\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   7\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       5       2       4       3       3       4       2\r\n                         SEQGP          5       1       6      11       7       9       8       8\r\n                         SEQGP          9       7      10       6      11      16      12      15\r\n                         SEQGP         13      14      14      13      15      12      16      20\r\n                         SEQGP         17      19      18      18      19      17      20      23\r\n                         SEQGP         21      22      22      21      23      25      24      24\r\n                         SEQGP         25      26      26      10\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER    12\r\n         3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n         4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n         6,   CSTM    ,   FLAGS = 0,   REEL =  1,   FILE =      9\r\n         7,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10\r\n         8,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11\r\n         9,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12\r\n \r\n        10,   REENTER AT DMAP SEQUENCE NUMBER    13\r\n        11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13\r\n        12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        13,   REENTER AT DMAP SEQUENCE NUMBER    14\r\n        14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14\r\n        15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15\r\n \r\n        16,   REENTER AT DMAP SEQUENCE NUMBER    15\r\n        17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16\r\n        18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17\r\n        19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18\r\n \r\n        20,   REENTER AT DMAP SEQUENCE NUMBER    16\r\n        21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19\r\n        22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20\r\n \r\n        23,   REENTER AT DMAP SEQUENCE NUMBER    18\r\n        24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21\r\n        25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        29,   REENTER AT DMAP SEQUENCE NUMBER    20\r\n        30,   PLTSETX ,   FLAGS = 0,   REEL =  1,   FILE =     22\r\n        31,   PLTPAR  ,   FLAGS = 0,   REEL =  1,   FILE =     23\r\n        32,   GPSETS  ,   FLAGS = 0,   REEL =  1,   FILE =     24\r\n        33,   ELSETS  ,   FLAGS = 0,   REEL =  1,   FILE =     25\r\n        34,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     26\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        35,   REENTER AT DMAP SEQUENCE NUMBER    25\r\n        36,   PLOTX1  ,   FLAGS = 0,   REEL =  1,   FILE =     27\r\n        37,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  20.00, BETA =  30.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 9.011667E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -9.365200E-01, Y0 =  0.174988E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          PERSPECTIVE  PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =   0.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02                                                                                \r\n          VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03                                          \r\n          PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02                                                                       \r\n                                                                                                                                    \r\n          ORIGIN    1000   -   X0 = -2.619190E+00, Y0 =  0.257952E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN   1000  USED IN THIS PLOT                                                   \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          PERSPECTIVE  PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =   0.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02                                                                                \r\n          VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03                                          \r\n          PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02                                                                       \r\n                                                                                                                                    \r\n          ORIGIN    1000   -   X0 = -2.619190E+00, Y0 =  0.257952E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        3  UNDEFORMED SHAPE                                                    \r\n                                 AN UNRECOGNIZABLE OPTION (SHAPE   ) WAS DETECTED ON A -PLOT- CARD                                  \r\n                                                 ORIGIN   1000  USED IN THIS PLOT                                                   \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        38,   REENTER AT DMAP SEQUENCE NUMBER    28\r\n        39,   SLT     ,   FLAGS = 0,   REEL =  1,   FILE =     29\r\n        40,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     30\r\n        41,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        42,   REENTER AT DMAP SEQUENCE NUMBER    30\r\n        43,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     31\r\n        44,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     32\r\n        45,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33\r\n        46,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        47,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        48,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        49,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        50,   REENTER AT DMAP SEQUENCE NUMBER    31\r\n        51,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     34\r\n        52,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     35\r\n        53,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36\r\n \r\n        54,   REENTER AT DMAP SEQUENCE NUMBER    34\r\n        55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37\r\n        56,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        57,   REENTER AT DMAP SEQUENCE NUMBER    35\r\n        58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38\r\n        59,   OPTP1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        60,   REENTER AT DMAP SEQUENCE NUMBER    39\r\n        61,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39\r\n        62,   OPTP2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        63,   EST1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n \r\n        64,   REENTER AT DMAP SEQUENCE NUMBER    40\r\n        65,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     40\r\n        66,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     41\r\n        67,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42\r\n        68,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        69,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        70,   REENTER AT DMAP SEQUENCE NUMBER    42\r\n        71,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     43\r\n        72,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44\r\n \r\n        73,   REENTER AT DMAP SEQUENCE NUMBER    44\r\n        74,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45\r\n        75,   MGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        76,   REENTER AT DMAP SEQUENCE NUMBER    54\r\n        77,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     43\r\n        78,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     43\r\n        79,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46\r\n \r\n        80,   REENTER AT DMAP SEQUENCE NUMBER    58\r\n        81,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     47\r\n        82,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     48\r\n \r\n        83,   REENTER AT DMAP SEQUENCE NUMBER    61\r\n        84,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     49\r\n        85,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     50\r\n        86,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51\r\n        87,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        88,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        89,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        90,   REENTER AT DMAP SEQUENCE NUMBER    65\r\n        91,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52\r\n        92,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        93,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        94,   QR      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        95,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        96,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        97,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        98,   KOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        99,   LOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       100,   PO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       101,   UOOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       102,   RUOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       103,   PS      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       104,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       105,   KSS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       106,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       107,   REENTER AT DMAP SEQUENCE NUMBER    66\r\n       108,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     43\r\n       109,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53\r\n \r\n       110,   REENTER AT DMAP SEQUENCE NUMBER    71\r\n       111,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     54\r\n       112,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       113,   REENTER AT DMAP SEQUENCE NUMBER    73\r\n       114,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     55\r\n       115,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     56\r\n       116,   KSS     ,   FLAGS = 0,   REEL =  1,   FILE =     57\r\n       117,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58\r\n \r\n       118,   REENTER AT DMAP SEQUENCE NUMBER    75\r\n       119,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     55\r\n       120,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     55\r\n       121,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59\r\n \r\n       122,   REENTER AT DMAP SEQUENCE NUMBER    79\r\n       123,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     55\r\n       124,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60\r\n \r\n       125,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       126,   LLL     ,   FLAGS = 0,   REEL =  1,   FILE =     61\r\n       127,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     62\r\n \r\n       128,   REENTER AT DMAP SEQUENCE NUMBER    87\r\n       129,   PG      ,   FLAGS = 0,   REEL =  1,   FILE =     63\r\n       130,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     64\r\n \r\n       131,   REENTER AT DMAP SEQUENCE NUMBER    88\r\n       132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     65\r\n       133,   PL      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       134,   REENTER AT DMAP SEQUENCE NUMBER    90\r\n       135,   PS      ,   FLAGS = 0,   REEL =  1,   FILE =     66\r\n       136,   PL      ,   FLAGS = 0,   REEL =  1,   FILE =     67\r\n       137,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   3.5496181E-16\r\n \r\n       138,   REENTER AT DMAP SEQUENCE NUMBER    92\r\n       139,   ULV     ,   FLAGS = 0,   REEL =  1,   FILE =     69\r\n       140,   RULV    ,   FLAGS = 0,   REEL =  1,   FILE =     70\r\n       141,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     71\r\n \r\n       142,   REENTER AT DMAP SEQUENCE NUMBER    97\r\n       143,   UGV     ,   FLAGS = 0,   REEL =  1,   FILE =     72\r\n       144,   PGG     ,   FLAGS = 0,   REEL =  1,   FILE =     73\r\n       145,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =     74\r\n       146,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75\r\n \r\n       147,   REENTER AT DMAP SEQUENCE NUMBER   104\r\n       148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76\r\n       149,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       150,   OGPFB1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       151,   REENTER AT DMAP SEQUENCE NUMBER   105\r\n       152,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77\r\n       153,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       154,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n \r\n       155,   REENTER AT DMAP SEQUENCE NUMBER   111\r\n       156,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =     78\r\n       157,   OUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     79\r\n       158,   OES1    ,   FLAGS = 0,   REEL =  1,   FILE =     80\r\n       159,   PUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     81\r\n       160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82\r\n       161,   OPG1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       162,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       163,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       164,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       165,   REENTER AT DMAP SEQUENCE NUMBER   115\r\n       166,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83\r\n       167,   OES1M   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       168,   REENTER AT DMAP SEQUENCE NUMBER   121\r\n       169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     84\r\n       170,   OES1A   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       171,   REENTER AT DMAP SEQUENCE NUMBER   141\r\n       172,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     85\r\n       173,   OUGV2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.696464E-04  -4.166084E-07   0.0            0.0            0.0           -4.656293E-08                  \r\n             2      G     -3.717109E-04  -6.684564E-07   0.0            0.0            0.0            3.333757E-07                  \r\n             3      G     -3.724438E-04  -6.520922E-08   0.0            0.0            0.0           -4.098349E-07                  \r\n             4      G     -3.603437E-04   8.606352E-07   0.0            0.0            0.0           -2.526852E-06                  \r\n             5      G     -3.259649E-04   0.0            0.0            0.0            0.0           -4.807742E-06                  \r\n             6      G     -3.666212E-04  -2.433977E-07  -1.834832E-12   8.686031E-13  -8.537007E-13  -5.214052E-07                  \r\n             7      G     -3.663163E-04  -8.246836E-07  -9.045581E-08   1.460336E-06   5.888064E-07   1.980258E-07                  \r\n             8      G     -3.711736E-04  -1.055792E-06  -7.136131E-07   6.471687E-07   1.857514E-07   3.812305E-07                  \r\n             9      G     -3.742683E-04  -5.839916E-07  -1.916584E-06  -4.917982E-07  -1.215236E-06   4.231427E-07                  \r\n            10      G     -3.725176E-04   0.0           -3.220393E-06  -6.210837E-06  -3.759043E-06   3.581181E-07                  \r\n            11      G     -3.696464E-04  -4.166121E-07   0.0            0.0            0.0           -4.656135E-08                  \r\n            12      G     -3.663163E-04  -8.246860E-07   9.045016E-08  -1.460333E-06  -5.888093E-07   1.980267E-07                  \r\n            13      G     -3.698719E-04  -1.771450E-06  -4.075831E-12  -2.716263E-12   5.925879E-13   8.256123E-07                  \r\n            14      G     -3.837850E-04  -1.807707E-06  -9.372814E-07  -3.520242E-08  -2.236404E-07   1.782096E-06                  \r\n            15      G     -4.037245E-04   0.0           -2.303757E-06  -1.629335E-06  -9.278708E-07   2.287938E-06                  \r\n            16      G     -3.717109E-04  -6.684611E-07   0.0            0.0            0.0            3.333771E-07                  \r\n            17      G     -3.711736E-04  -1.055795E-06   7.136069E-07  -6.471703E-07  -1.857543E-07   3.812284E-07                  \r\n            18      G     -3.837849E-04  -1.807708E-06   9.372708E-07   3.520159E-08   2.236397E-07   1.782099E-06                  \r\n            19      G     -4.090099E-04   0.0           -5.815688E-12  -6.926524E-12  -3.951528E-12   2.367121E-06                  \r\n            20      G     -3.724438E-04  -6.521335E-08   0.0            0.0            0.0           -4.098352E-07                  \r\n            21      G     -3.742683E-04  -5.839948E-07   1.916579E-06   4.918015E-07   1.215234E-06   4.231441E-07                  \r\n            22      G     -4.037246E-04   0.0            2.303744E-06   1.629370E-06   9.278664E-07   2.287958E-06                  \r\n            23      G     -3.603437E-04   8.606328E-07   0.0            0.0            0.0           -2.526853E-06                  \r\n            24      G     -3.725177E-04   0.0            3.220390E-06   6.210808E-06   3.759050E-06   3.581179E-07                  \r\n            25      G     -3.259649E-04   0.0            0.0            0.0            0.0           -4.807744E-06                  \r\n            26      G      0.0            0.0           -3.740307E-04   0.0            0.0            0.0                           \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            4.894094E+02   1.818643E-01  -2.112025E+01   0.0                           \r\n             2      G      0.0            0.0            4.947181E+02   6.833418E-02  -1.412297E+01   0.0                           \r\n             3      G      0.0            0.0            5.034901E+02  -8.246548E-02  -6.633260E+00   0.0                           \r\n             4      G      0.0            0.0            5.048015E+02  -2.052628E-01   1.281466E+01   0.0                           \r\n             5      G      0.0           -2.783340E+02   2.038532E+02   2.047155E+00   3.347041E+01   0.0                           \r\n            10      G      0.0           -6.014798E+02   0.0            0.0            0.0            0.0                           \r\n            11      G      0.0            0.0           -4.894094E+02  -1.818642E-01   2.112024E+01   0.0                           \r\n            15      G      0.0           -6.159268E+02   0.0            0.0            0.0            0.0                           \r\n            16      G      0.0            0.0           -4.947181E+02  -6.833343E-02   1.412294E+01   0.0                           \r\n            19      G      0.0           -6.159152E+02   0.0            0.0            0.0            0.0                           \r\n            20      G      0.0            0.0           -5.034901E+02   8.246557E-02   6.633255E+00   0.0                           \r\n            22      G      0.0           -6.159268E+02   0.0            0.0            0.0            0.0                           \r\n            23      G      0.0            0.0           -5.048015E+02   2.052612E-01  -1.281463E+01   0.0                           \r\n            24      G      0.0           -6.014798E+02   0.0            0.0            0.0            0.0                           \r\n            25      G      0.0           -2.783340E+02  -2.038532E+02  -2.047155E+00  -3.347041E+01   0.0                           \r\n            26      G      2.461045E+02   2.461045E+02   0.0           -1.279847E+01   1.279847E+01  -1.416140E-07                  \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -1.500000E+00     -1.465834E+01  -1.499446E+01  -2.191973E-01   -26.2612   -1.455019E+01   -1.510261E+01   2.762093E-01 \r\n             1.500000E+00     -1.504458E+01  -1.490641E+01   1.006761E-01    62.2293   -1.485339E+01   -1.509759E+01   1.221003E-01 \r\n0       2   -1.500000E+00     -1.465836E+01  -1.499446E+01   2.191857E-01    26.2611   -1.455021E+01   -1.510261E+01   2.761955E-01 \r\n             1.500000E+00     -1.504456E+01  -1.490641E+01  -1.006636E-01   -62.2291   -1.485340E+01   -1.509757E+01   1.220846E-01 \r\n0       3   -1.500000E+00     -1.466739E+01  -1.504355E+01  -6.915784E-02   -10.0943   -1.465508E+01   -1.505586E+01   2.003926E-01 \r\n             1.500000E+00     -1.514168E+01  -1.474049E+01   1.792455E-02    87.4469   -1.473969E+01   -1.514248E+01   2.013922E-01 \r\n0       4   -1.500000E+00     -1.488939E+01  -1.507712E+01  -1.288826E-01   -26.9671   -1.482381E+01   -1.514270E+01   1.594407E-01 \r\n             1.500000E+00     -1.477563E+01  -1.459632E+01   1.698227E-01    58.9160   -1.449394E+01   -1.487801E+01   1.920373E-01 \r\n0       5   -1.500000E+00     -1.535018E+01  -1.513464E+01  -6.689610E-06   -89.9982   -1.513464E+01   -1.535018E+01   1.077685E-01 \r\n             1.500000E+00     -1.414401E+01  -1.455097E+01   7.309524E-06     0.0010   -1.414401E+01   -1.455097E+01   2.034783E-01 \r\n0       6   -1.500000E+00     -1.488944E+01  -1.507711E+01   1.289098E-01    26.9746   -1.482383E+01   -1.514272E+01   1.594439E-01 \r\n             1.500000E+00     -1.477558E+01  -1.459632E+01  -1.698489E-01   -58.9103   -1.449390E+01   -1.487800E+01   1.920470E-01 \r\n0       7   -1.500000E+00     -1.466741E+01  -1.504358E+01   6.914719E-02    10.0926   -1.465510E+01   -1.505588E+01   2.003934E-01 \r\n             1.500000E+00     -1.514166E+01  -1.474047E+01  -1.791223E-02   -87.4487   -1.473967E+01   -1.514246E+01   2.013959E-01 \r\n0       8   -1.500000E+00     -1.489148E+01  -1.450566E+01   2.429343E-01    64.2263   -1.438836E+01   -1.500878E+01   3.102122E-01 \r\n             1.500000E+00     -1.525221E+01  -1.505862E+01  -3.343825E-02   -80.4713   -1.505301E+01   -1.525783E+01   1.024094E-01 \r\n0       9   -1.500000E+00     -1.485539E+01  -1.478216E+01   2.152786E-01    49.8267   -1.460040E+01   -1.503714E+01   2.183707E-01 \r\n             1.500000E+00     -1.493758E+01  -1.490530E+01   7.956702E-02    50.7344   -1.484025E+01   -1.500263E+01   8.118806E-02 \r\n0      10   -1.500000E+00     -1.496865E+01  -1.506268E+01   2.263522E-01    39.1333   -1.478448E+01   -1.524685E+01   2.311830E-01 \r\n             1.500000E+00     -1.460380E+01  -1.470401E+01  -4.940912E-02   -22.2999   -1.458354E+01   -1.472428E+01   7.036822E-02 \r\n0      11   -1.500000E+00     -1.527336E+01  -1.541605E+01  -1.315328E-05    -0.0053   -1.527336E+01   -1.541605E+01   7.134676E-02 \r\n             1.500000E+00     -1.426884E+01  -1.455773E+01   1.160878E-05     0.0023   -1.426884E+01   -1.455773E+01   1.444449E-01 \r\n0      12   -1.500000E+00     -1.496867E+01  -1.506266E+01  -2.263398E-01   -39.1353   -1.478450E+01   -1.524683E+01   2.311668E-01 \r\n             1.500000E+00     -1.460379E+01  -1.470403E+01   4.939753E-02    22.2921   -1.458354E+01   -1.472429E+01   7.037129E-02 \r\n0      13   -1.500000E+00     -1.485537E+01  -1.478214E+01  -2.152734E-01   -49.8263   -1.460039E+01   -1.503712E+01   2.183650E-01 \r\n             1.500000E+00     -1.493760E+01  -1.490531E+01  -7.957027E-02   -50.7348   -1.484026E+01   -1.500264E+01   8.119163E-02 \r\n0      14   -1.500000E+00     -1.489145E+01  -1.450565E+01  -2.429289E-01   -64.2256   -1.438835E+01   -1.500875E+01   3.101997E-01 \r\n             1.500000E+00     -1.525224E+01  -1.505863E+01   3.343241E-02    80.4737   -1.505302E+01   -1.525786E+01   1.024165E-01 \r\n0      15   -1.500000E+00     -1.529440E+01  -1.376634E+01   7.902541E-01    67.0168   -1.343117E+01   -1.562957E+01   1.099204E+00 \r\n             1.500000E+00     -1.488821E+01  -1.536757E+01  -1.557198E-01   -16.5058   -1.484206E+01   -1.541371E+01   2.858239E-01 \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      16   -1.500000E+00     -1.509196E+01  -1.473915E+01   6.150868E-01    53.0014   -1.427567E+01   -1.555544E+01   6.398832E-01 \r\n             1.500000E+00     -1.506609E+01  -1.491132E+01  -1.209733E-01   -61.3032   -1.484510E+01   -1.513231E+01   1.436070E-01 \r\n0      17   -1.500000E+00     -1.476340E+01  -1.516257E+01   6.008678E-01    35.8128   -1.432984E+01   -1.559614E+01   6.331478E-01 \r\n             1.500000E+00     -1.519202E+01  -1.470569E+01  -1.016806E-01   -78.6538   -1.468529E+01   -1.521243E+01   2.635694E-01 \r\n0      18   -1.500000E+00     -1.505334E+01  -1.564749E+01   2.963804E-01    22.4665   -1.493078E+01   -1.577005E+01   4.196368E-01 \r\n             1.500000E+00     -1.461266E+01  -1.468066E+01   3.396784E-02    22.4867   -1.459860E+01   -1.469472E+01   4.806013E-02 \r\n0      19   -1.500000E+00     -1.507482E+01  -1.544136E+01   1.065693E-06     0.0002   -1.507482E+01   -1.544136E+01   1.832690E-01 \r\n             1.500000E+00     -1.489862E+01  -1.457944E+01  -1.178688E-06   -89.9998   -1.457944E+01   -1.489862E+01   1.595922E-01 \r\n0      20   -1.500000E+00     -1.505337E+01  -1.564751E+01  -2.963676E-01   -22.4660   -1.493081E+01   -1.577006E+01   4.196251E-01 \r\n             1.500000E+00     -1.461264E+01  -1.468065E+01  -3.397733E-02   -22.4879   -1.459857E+01   -1.469471E+01   4.807156E-02 \r\n0      21   -1.500000E+00     -1.476339E+01  -1.516255E+01  -6.008668E-01   -35.8130   -1.432982E+01   -1.559611E+01   6.331450E-01 \r\n             1.500000E+00     -1.519203E+01  -1.470572E+01   1.016767E-01    78.6538   -1.468532E+01   -1.521244E+01   2.635583E-01 \r\n0      22   -1.500000E+00     -1.509199E+01  -1.473914E+01  -6.150628E-01   -53.0026   -1.427570E+01   -1.555543E+01   6.398660E-01 \r\n             1.500000E+00     -1.506606E+01  -1.491133E+01   1.209512E-01    61.3017   -1.484512E+01   -1.513227E+01   1.435758E-01 \r\n0      23   -1.500000E+00     -1.529442E+01  -1.376638E+01  -7.902526E-01   -67.0165   -1.343121E+01   -1.562959E+01   1.099193E+00 \r\n             1.500000E+00     -1.488819E+01  -1.536754E+01   1.557139E-01    16.5059   -1.484205E+01   -1.541368E+01   2.858127E-01 \r\n0      24   -1.500000E+00     -1.615719E+01  -1.347047E+01   1.260523E+00    68.4111   -1.297167E+01   -1.665598E+01   1.842155E+00 \r\n             1.500000E+00     -1.329555E+01  -1.503144E+01  -2.420780E-01    -7.7921   -1.326242E+01   -1.506456E+01   9.010729E-01 \r\n0      25   -1.500000E+00     -1.534320E+01  -1.480841E+01   1.088726E+00    51.8994   -1.395472E+01   -1.619688E+01   1.121081E+00 \r\n             1.500000E+00     -1.492063E+01  -1.481295E+01  -7.337141E-01   -47.0984   -1.413110E+01   -1.560247E+01   7.356868E-01 \r\n0      26   -1.500000E+00     -1.432555E+01  -1.519972E+01   7.668653E-01    30.1592   -1.387995E+01   -1.564531E+01   8.826810E-01 \r\n             1.500000E+00     -1.612328E+01  -1.468456E+01  -2.148645E-01   -81.6849   -1.465315E+01   -1.615468E+01   7.507654E-01 \r\n0      27   -1.500000E+00     -1.485065E+01  -1.559625E+01   4.375631E-01    24.7847   -1.464861E+01   -1.579829E+01   5.748389E-01 \r\n             1.500000E+00     -1.522284E+01  -1.498067E+01  -6.056371E-02   -76.7133   -1.496637E+01   -1.523714E+01   1.353851E-01 \r\n0      28   -1.500000E+00     -1.544785E+01  -1.538717E+01   7.644680E-02    55.8233   -1.533526E+01   -1.549975E+01   8.224709E-02 \r\n             1.500000E+00     -1.567000E+01  -1.488676E+01  -2.663583E-03   -89.8052   -1.488675E+01   -1.567000E+01   3.916278E-01 \r\n0      29   -1.500000E+00     -1.508062E+01  -1.560929E+01   1.416555E-05     0.0015   -1.508062E+01   -1.560929E+01   2.643366E-01 \r\n             1.500000E+00     -1.500845E+01  -1.510554E+01  -1.187935E-05    -0.0070   -1.500845E+01   -1.510554E+01   4.854393E-02 \r\n0      30   -1.500000E+00     -1.544784E+01  -1.538715E+01  -7.642962E-02   -55.8262   -1.533526E+01   -1.549973E+01   8.223200E-02 \r\n             1.500000E+00     -1.567002E+01  -1.488678E+01   2.654266E-03    89.8058   -1.488678E+01   -1.567003E+01   3.916253E-01 \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      31   -1.500000E+00     -1.485062E+01  -1.559623E+01  -4.375662E-01   -24.7845   -1.464858E+01   -1.579827E+01   5.748459E-01 \r\n             1.500000E+00     -1.522287E+01  -1.498069E+01   6.056729E-02    76.7136   -1.496639E+01   -1.523718E+01   1.353956E-01 \r\n0      32   -1.500000E+00     -1.432553E+01  -1.519971E+01  -7.668736E-01   -30.1592   -1.387993E+01   -1.564531E+01   8.826901E-01 \r\n             1.500000E+00     -1.612330E+01  -1.468454E+01   2.148690E-01    81.6849   -1.465314E+01   -1.615470E+01   7.507809E-01 \r\n0      33   -1.500000E+00     -1.534322E+01  -1.480841E+01  -1.088734E+00   -51.8996   -1.395472E+01   -1.619691E+01   1.121091E+00 \r\n             1.500000E+00     -1.492060E+01  -1.481295E+01   7.337191E-01    47.0979   -1.413109E+01   -1.560247E+01   7.356908E-01 \r\n0      34   -1.500000E+00     -1.615722E+01  -1.347046E+01  -1.260510E+00   -68.4114   -1.297168E+01   -1.665600E+01   1.842158E+00 \r\n             1.500000E+00     -1.329552E+01  -1.503144E+01   2.420669E-01     7.7917   -1.326240E+01   -1.506456E+01   9.010823E-01 \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       174,   REENTER AT DMAP SEQUENCE NUMBER   149\r\n       175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     86\r\n       176,   OESF1X  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       177,   OESF1Y  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       178,   REENTER AT DMAP SEQUENCE NUMBER   154\r\n       179,   PLOTX2  ,   FLAGS = 0,   REEL =  1,   FILE =     87\r\n       180,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88\r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          PERSPECTIVE  PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  20.00, BETA =  30.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 9.015691E-02                                                                                \r\n          VANTAGE POINT (INCHES) - RO = 2.235258E+02, S0 = 0.257127E+02, T0 = 0.146123E+03                                          \r\n          PROJECTION PLANE SEPARATION (INCHES) = 1.299782E+02                                                                       \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -9.565060E-01, Y0 =  0.316908E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    4   STATIC DEFORM.     1 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          PERSPECTIVE  PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =   0.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.789204E-02                                                                                \r\n          VANTAGE POINT (INCHES) - RO = 1.863494E+02, S0 = 0.257393E+02, T0 = 0.171639E+03                                          \r\n          PROJECTION PLANE SEPARATION (INCHES) = 1.346651E+02                                                                       \r\n                                                                                                                                    \r\n          ORIGIN    1000   -   X0 = -2.619190E+00, Y0 =  0.257952E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    5   STATIC DEFORM.     1 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN   1000  USED IN THIS PLOT                                                   \r\n1     SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       181,   REENTER AT DMAP SEQUENCE NUMBER   172\r\n       182,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89\r\n       183,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY      \r\n DATE:  5/17/95\r\n END TIME: 14:28:58\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01021b.out",
    "content": "     NASTRAN  FILES = OPTP                                                           \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01021B,RESTART                                                           \r\n     $ INSERT THE RESTART DICTIONARY HERE                                            \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  D01021A ,NASTRAN , 5/17/95,   52113,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      5               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              6,   CSTM    ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              7,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              8,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              9,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER    13                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER    14                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER    15                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    16                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    18                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    20                             \r\n             30,   PLTSETX ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n             31,   PLTPAR  ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             32,   GPSETS  ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             33,   ELSETS  ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             34,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n             35,   REENTER AT DMAP SEQUENCE NUMBER    25                             \r\n             36,   PLOTX1  ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             37,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n             38,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             39,   SLT     ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             40,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             41,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             42,   REENTER AT DMAP SEQUENCE NUMBER    30                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             43,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             44,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             45,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             46,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             47,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             48,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             49,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             50,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             51,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             52,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             53,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             54,   REENTER AT DMAP SEQUENCE NUMBER    34                             \r\n             55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             56,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             57,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             59,   OPTP1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             60,   REENTER AT DMAP SEQUENCE NUMBER    39                             \r\n             61,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             62,   OPTP2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             63,   EST1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             64,   REENTER AT DMAP SEQUENCE NUMBER    40                             \r\n             65,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             66,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             67,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             68,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             69,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             70,   REENTER AT DMAP SEQUENCE NUMBER    42                             \r\n             71,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             72,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             73,   REENTER AT DMAP SEQUENCE NUMBER    44                             \r\n             74,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n             75,   MGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             76,   REENTER AT DMAP SEQUENCE NUMBER    54                             \r\n             77,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     43               \r\n             78,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     43               \r\n             79,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n             80,   REENTER AT DMAP SEQUENCE NUMBER    58                             \r\n             81,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n             82,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n             83,   REENTER AT DMAP SEQUENCE NUMBER    61                             \r\n             84,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n             85,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n             86,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n             87,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             88,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             89,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             90,   REENTER AT DMAP SEQUENCE NUMBER    65                             \r\n             91,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n             92,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             93,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             94,   QR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             95,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             96,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             97,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             98,   KOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             99,   LOO     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            100,   PO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            101,   UOOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            102,   RUOV    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            103,   PS      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            104,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            105,   KSS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            106,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            107,   REENTER AT DMAP SEQUENCE NUMBER    66                             \r\n            108,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     43               \r\n            109,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n            110,   REENTER AT DMAP SEQUENCE NUMBER    71                             \r\n            111,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n            112,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            113,   REENTER AT DMAP SEQUENCE NUMBER    73                             \r\n            114,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            115,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            116,   KSS     ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            117,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            118,   REENTER AT DMAP SEQUENCE NUMBER    75                             \r\n            119,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     55               \r\n            120,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     55               \r\n            121,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            122,   REENTER AT DMAP SEQUENCE NUMBER    79                             \r\n            123,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     55               \r\n            124,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            125,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            126,   LLL     ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            127,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            128,   REENTER AT DMAP SEQUENCE NUMBER    87                             \r\n            129,   PG      ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            130,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            131,   REENTER AT DMAP SEQUENCE NUMBER    88                             \r\n            132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            133,   PL      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            134,   REENTER AT DMAP SEQUENCE NUMBER    90                             \r\n            135,   PS      ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n            136,   PL      ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            137,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            138,   REENTER AT DMAP SEQUENCE NUMBER    92                             \r\n            139,   ULV     ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n            140,   RULV    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            141,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n            142,   REENTER AT DMAP SEQUENCE NUMBER    97                             \r\n            143,   UGV     ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n            144,   PGG     ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            145,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            146,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            147,   REENTER AT DMAP SEQUENCE NUMBER   104                             \r\n            148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            149,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            150,   OGPFB1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            151,   REENTER AT DMAP SEQUENCE NUMBER   105                             \r\n            152,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            153,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            154,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            155,   REENTER AT DMAP SEQUENCE NUMBER   111                             \r\n            156,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            157,   OUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     79               \r\n            158,   OES1    ,   FLAGS = 0,   REEL =  1,   FILE =     80               \r\n            159,   PUGV1   ,   FLAGS = 0,   REEL =  1,   FILE =     81               \r\n            160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82               \r\n            161,   OPG1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            162,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            163,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            164,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            165,   REENTER AT DMAP SEQUENCE NUMBER   115                             \r\n            166,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83               \r\n            167,   OES1M   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            168,   REENTER AT DMAP SEQUENCE NUMBER   121                             \r\n            169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     84               \r\n            170,   OES1A   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            171,   REENTER AT DMAP SEQUENCE NUMBER   141                             \r\n            172,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     85               \r\n            173,   OUGV2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            174,   REENTER AT DMAP SEQUENCE NUMBER   149                             \r\n            175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     86               \r\n            176,   OESF1X  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            177,   OESF1Y  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            178,   REENTER AT DMAP SEQUENCE NUMBER   154                             \r\n            179,   PLOTX2  ,   FLAGS = 0,   REEL =  1,   FILE =     87               \r\n            180,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88               \r\n            181,   REENTER AT DMAP SEQUENCE NUMBER   172                             \r\n            182,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89               \r\n            183,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME     5                                                                      \r\n     APP      DISPLACEMENT                                                           \r\n     SOL      1,1                                                                    \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                          \r\n                  3        LOAD   = 1                                                                    \r\n                  4        SPC    = 1                                                                    \r\n                  5      OUTPUT                                                                          \r\n                  6        DISPLACEMENT = ALL                                                            \r\n                  7        SPCFORCE     = ALL                                                            \r\n                  8        ELFORCE      = ALL                                                            \r\n                  9        STRESSES     = ALL                                                            \r\n                 10      BEGIN BULK                                                                      \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=      0\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2S  2               .0      .0      .0      .0      .0      1.      +COR1   \r\n                    2-        +COR1   1.000   .000    .000                                                    \r\n                    3-        CTRIA2  1       31      1       6       26      .0                              \r\n                    4-        CTRIA2  2       31      6       11      26      .0                              \r\n                    5-        CTRIA2  3       31      2       7       1       .0                              \r\n                    6-        CTRIA2  4       31      6       1       7       .0                              \r\n                    7-        CTRIA2  5       31      7       12      6       .0                              \r\n                    8-        CTRIA2  6       31      11      6       12      .0                              \r\n                    9-        CTRIA2  7       31      12      16      11      .0                              \r\n                   10-        CTRIA2  8       31      3       8       2       .0                              \r\n                   11-        CTRIA2  9       31      7       2       8       .0                              \r\n                   12-        CTRIA2  10      31      8       13      7       .0                              \r\n                   13-        CTRIA2  11      31      12      7       13      .0                              \r\n                   14-        CTRIA2  12      31      13      17      12      .0                              \r\n                   15-        CTRIA2  13      31      16      12      17      .0                              \r\n                   16-        CTRIA2  14      31      17      20      16      .0                              \r\n                   17-        CTRIA2  15      31      4       9       3       .0                              \r\n                   18-        CTRIA2  16      31      8       3       9       .0                              \r\n                   19-        CTRIA2  17      31      9       14      8       .0                              \r\n                   20-        CTRIA2  18      31      13      8       14      .0                              \r\n                   21-        CTRIA2  19      31      14      18      13      .0                              \r\n                   22-        CTRIA2  20      31      17      13      18      .0                              \r\n                   23-        CTRIA2  21      31      18      21      17      .0                              \r\n                   24-        CTRIA2  22      31      20      17      21      .0                              \r\n                   25-        CTRIA2  23      31      21      23      20      .0                              \r\n                   26-        CTRIA2  24      31      5       10      4       .0                              \r\n                   27-        CTRIA2  25      31      9       4       10      .0                              \r\n                   28-        CTRIA2  26      31      10      15      9       .0                              \r\n                   29-        CTRIA2  27      31      14      9       15      .0                              \r\n                   30-        CTRIA2  28      31      15      19      14      .0                              \r\n                   31-        CTRIA2  29      31      18      14      19      .0                              \r\n                   32-        CTRIA2  30      31      19      22      18      .0                              \r\n                   33-        CTRIA2  31      31      21      18      22      .0                              \r\n                   34-        CTRIA2  32      31      22      24      21      .0                              \r\n                   35-        CTRIA2  33      31      23      21      24      .0                              \r\n                   36-        CTRIA2  34      31      24      25      23      .0                              \r\n                   37-        GRDSET          2                               2                               \r\n                   38-        GRID    1               90.     7.      .0                                      \r\n                   39-        GRID    2               90.     14.0    .0                                      \r\n                   40-        GRID    3               90.     21.0    .0                                      \r\n                   41-        GRID    4               90.     28.0    .0                                      \r\n                   42-        GRID    5               90.     35.0    .0                                      \r\n                   43-        GRID    6               90.     7.0     45.0                                    \r\n                   44-        GRID    7               90.     14.0    30.0                                    \r\n                   45-        GRID    8               90.     21.0    22.5                                    \r\n                   46-        GRID    9               90.     28.0    18.0                                    \r\n                   47-        GRID    10              90.     35.0    15.0                                    \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    11              90.     7.0     90.0                                    \r\n                   49-        GRID    12              90.     14.0    60.0                                    \r\n                   50-        GRID    13              90.     21.0    45.0                                    \r\n                   51-        GRID    14              90.     28.0    36.0                                    \r\n                   52-        GRID    15              90.     35.0    30.0                                    \r\n                   53-        GRID    16              90.     14.0    90.0                                    \r\n                   54-        GRID    17              90.     21.0    67.5                                    \r\n                   55-        GRID    18              90.     28.0    54.0                                    \r\n                   56-        GRID    19              90.     35.0    45.0                                    \r\n                   57-        GRID    20              90.     21.0    90.0                                    \r\n                   58-        GRID    21              90.     28.0    72.0                                    \r\n                   59-        GRID    22              90.     35.0    60.0                                    \r\n                   60-        GRID    23              90.     28.0    90.0                                    \r\n                   61-        GRID    24              90.     35.0    75.0                                    \r\n                   62-        GRID    25              90.     35.0    90.0                                    \r\n                   63-        GRID    26      0       .0      .0      90.0    0                               \r\n                   64-        MAT1    1       3.+6            .1666                                           \r\n                   65-        PLOAD2  1       -1.0    1       2       3       4       5       6               \r\n                   66-        PLOAD2  1       -1.0    7       8       9       10      11      12              \r\n                   67-        PLOAD2  1       -1.0    13      14      15      16      17      18              \r\n                   68-        PLOAD2  1       -1.0    19      20      21      22      23      24              \r\n                   69-        PLOAD2  1       -1.0    25      26      27      28      29      30              \r\n                   70-        PLOAD2  1       -1.0    31      32      33      34                              \r\n                   71-        PLOTEL  50      26      1               51      1       2                       \r\n                   72-        PLOTEL  52      2       3               53      3       4                       \r\n                   73-        PLOTEL  54      4       5               55      5       10                      \r\n                   74-        PLOTEL  56      10      15              57      15      19                      \r\n                   75-        PLOTEL  58      19      22              59      22      24                      \r\n                   76-        PLOTEL  60      24      25              61      25      23                      \r\n                   77-        PLOTEL  62      23      20              63      20      16                      \r\n                   78-        PLOTEL  64      16      11              65      11      26                      \r\n                   79-        PLOTEL  66      3       8               67      8       13                      \r\n                   80-        PLOTEL  68      13      17              69      17      20                      \r\n                   81-        PTRIA2  31      1       3.                                                      \r\n                   82-        SPC     1       26      12456   .0                                              \r\n                   83-        SPC1    1       345     1       2       3       4       11      16      +SPC1-2 \r\n                   84-        +SPC1-2 20      23                                                              \r\n                   85-        SPC1    1       123456  5       10      15      19      22      24      +SPC1-1 \r\n                   86-        +SPC1-1 25                                                                      \r\n                   87-        SPC1    2       2       10      15      19      22      24                      \r\n                   88-        SPC1    2       345     1       2       3       4       11      16      +SPC2-1 \r\n                   89-        +SPC2-1 20      23                                                              \r\n                   90-        SPC1    2       2345    5       25                                              \r\n                   91-        SPC1    2       12456   26                                                      \r\n                              ENDDATA\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   2           SPC$                   10\r\n                  15           PLOT$                  18\r\n                  17           POUT$                  19\r\n                  31           NOLOOP$                31\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n NONE\r\n\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n+  +\r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n+  +\r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n+  *\r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n+  *\r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n+  *\r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n+  *\r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n+  *\r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n+  *\r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n+  *\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n+  *\r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n+  *\r\n\r\n      26  LABEL    P1 $                                                           \r\n+  +\r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n+  +\r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n+  +\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n+  +\r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n+  +\r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n+  +\r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n+  *\r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n+  *\r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n+  *\r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n+  *\r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n+  *\r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n+  +\r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n+  *\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n+  *\r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n+  *\r\n\r\n      73  LABEL    LBL3 $                                                         \r\n+  +\r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n+  *\r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n+  *\r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n+  *\r\n\r\n      77  LABEL    LBL5 $                                                         \r\n+  +\r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n+  *\r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n+  *\r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n+  *\r\n\r\n      81  LABEL    LBL6 $                                                         \r\n+  +\r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n+  *\r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n+  *\r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n+  *\r\n\r\n      85  LABEL    LBL7 $                                                         \r\n+  +\r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n+  *\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n+  *\r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n+  *\r\n\r\n      90  LABEL    LBL10 $                                                        \r\n+  +\r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n+  *\r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n+  *\r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n+  *\r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n+  *\r\n\r\n      95  LABEL    LBL9 $                                                         \r\n+  +\r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n+  *\r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n+  *\r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n+  *\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n+  +\r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n+  *\r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n+  *\r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n+  *\r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n+  *\r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n+  +\r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n+  *\r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n+  *\r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n+  *\r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n+  *\r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n+  *\r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n+  *\r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n+  *\r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n+  +\r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n+  +\r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n+  +\r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n+  *\r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n+  *\r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n+  *\r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n+  *\r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n+  *\r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n+  +\r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n+  *\r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     151  LABEL    DPLOT $                                                        \r\n+  +\r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n+  *\r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n+  *\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n+  *\r\n\r\n     155  LABEL    P2 $                                                           \r\n+  +\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n+  +\r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n+  *\r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n+  *\r\n\r\n     159  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n+  *\r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n+  +\r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n+  +\r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n+  *\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     GPTT      (PURGED)\r\n     MPTX      (PURGED)\r\n     PCOMPS    (PURGED)\r\n     EPTX      (PURGED)\r\n     OPTP1     (PURGED)\r\n     OPTP2     (PURGED)\r\n     EST1      (PURGED)\r\n     KELM      (PURGED)\r\n     KDICT     (PURGED)\r\n     GM        (PURGED)\r\n     GPL              1         6\r\n     EQEXIN           1         7\r\n     GPDT             1         8\r\n     CSTM             1         9\r\n     BGPDT            1        10\r\n     SIL              1        11\r\n     BGPDP            1        16\r\n     SIP              1        17\r\n     ECT              1        19\r\n     EST              1        31\r\n     GPECT            1        32\r\n     KGGX             1        43\r\n     KGG              1        43\r\n     KNN              1        43\r\n     GPST             1        47\r\n     PG               1        63\r\n     XVPS             1        89\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.5769482E-16\r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.480684E-04   1.919411E-05   0.0            0.0            0.0           -1.786571E-07                  \r\n             2      G     -5.261355E-04   3.683910E-05   0.0            0.0            0.0           -3.821245E-06                  \r\n             3      G     -4.213421E-04   4.607316E-05   0.0            0.0            0.0           -1.503945E-05                  \r\n             4      G     -1.844341E-04   3.363041E-05   0.0            0.0            0.0           -2.690171E-05                  \r\n             5      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -5.446583E-04   1.894586E-05  -8.010631E-13   9.706269E-13  -8.955855E-13  -8.225492E-07                  \r\n             7      G     -5.167566E-04   3.597763E-05   3.338573E-07   1.984027E-06   9.699154E-07  -4.771032E-06                  \r\n             8      G     -4.086168E-04   4.493846E-05   8.302441E-07   3.475891E-06   1.024308E-06  -1.541586E-05                  \r\n             9      G     -1.767535E-04   3.389497E-05   3.588728E-07   8.759924E-06  -3.347110E-07  -2.501015E-05                  \r\n            10      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -5.480684E-04   1.919411E-05   0.0            0.0            0.0           -1.786555E-07                  \r\n            12      G     -5.167567E-04   3.597763E-05  -3.338596E-07  -1.984026E-06  -9.699182E-07  -4.771030E-06                  \r\n            13      G     -4.019238E-04   4.497120E-05  -1.313271E-12  -4.853816E-12   4.966254E-13  -1.521853E-05                  \r\n            14      G     -1.739155E-04   3.380157E-05   1.477445E-07   3.014262E-06  -1.436867E-07  -2.421151E-05                  \r\n            15      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            16      G     -5.261355E-04   3.683910E-05   0.0            0.0            0.0           -3.821243E-06                  \r\n            17      G     -4.086168E-04   4.493846E-05  -8.302458E-07  -3.475893E-06  -1.024311E-06  -1.541586E-05                  \r\n            18      G     -1.739154E-04   3.380155E-05  -1.477457E-07  -3.014247E-06   1.436883E-07  -2.421150E-05                  \r\n            19      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            20      G     -4.213421E-04   4.607316E-05   0.0            0.0            0.0           -1.503946E-05                  \r\n            21      G     -1.767535E-04   3.389498E-05  -3.588742E-07  -8.759933E-06   3.347079E-07  -2.501015E-05                  \r\n            22      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            23      G     -1.844341E-04   3.363042E-05   0.0            0.0            0.0           -2.690171E-05                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0           -5.529767E-04   0.0            0.0            0.0                           \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            5.174022E+02   2.037890E-01  -2.497954E+01   0.0                           \r\n             2      G      0.0            0.0            5.017265E+02  -2.312392E-01  -4.489198E+01   0.0                           \r\n             3      G      0.0            0.0            4.129291E+02  -6.724325E-01  -7.711040E+01   0.0                           \r\n             4      G      0.0            0.0            1.962602E+02   6.025845E-01  -6.132825E+01   0.0                           \r\n             5      G      4.300203E+01  -2.280616E+02  -1.827229E+00  -1.047866E+01   8.151964E+01   2.243964E+02                  \r\n            10      G      8.261316E+01  -4.939240E+02   9.848739E+00   6.742922E+00   7.953281E+01   4.565710E+02                  \r\n            11      G      0.0            0.0           -5.174022E+02  -2.037888E-01   2.497954E+01   0.0                           \r\n            15      G      8.074376E+01  -4.870376E+02   3.213462E+00   2.198295E+00   3.223590E+01   4.434538E+02                  \r\n            16      G      0.0            0.0           -5.017265E+02   2.312396E-01   4.489196E+01   0.0                           \r\n            19      G      8.068778E+01  -4.846935E+02  -1.833121E-05  -5.761797E-06  -1.007727E-05   4.442120E+02                  \r\n            20      G      0.0            0.0           -4.129291E+02   6.724332E-01   7.711041E+01   0.0                           \r\n            22      G      8.074377E+01  -4.870377E+02  -3.213438E+00  -2.198283E+00  -3.223587E+01   4.434537E+02                  \r\n            23      G      0.0            0.0           -1.962603E+02  -6.025877E-01   6.132829E+01   0.0                           \r\n            24      G      8.261316E+01  -4.939240E+02  -9.848740E+00  -6.742932E+00  -7.953275E+01   4.565711E+02                  \r\n            25      G      4.300204E+01  -2.280617E+02   1.827244E+00   1.047867E+01  -8.151970E+01   2.243965E+02                  \r\n            26      G      2.597384E+02   2.597384E+02   0.0           -9.912969E+00   9.912971E+00  -1.545535E-07                  \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 2 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1          4.185772E-01          1.986923E-01         -3.011416E-01          2.558608E-01         -2.197533E-01      \r\n               2          4.185343E-01          1.986923E-01          3.011148E-01         -2.558495E-01         -2.197456E-01      \r\n               3          2.363556E+00          2.906897E+00         -1.327577E-01          1.507044E-01          3.464928E-01      \r\n               4          5.598302E-01          2.012604E+00         -5.302541E-01         -3.588934E-01         -3.864098E-01      \r\n               5          5.593891E-01          3.044006E+00         -1.369496E-05         -1.177101E-05          4.590988E-01      \r\n               6          5.597072E-01          2.012619E+00          5.303126E-01          3.588743E-01         -3.863907E-01      \r\n               7          2.363511E+00          2.906837E+00          1.327330E-01         -1.506929E-01          3.464546E-01      \r\n               8          5.038669E+00          7.921600E+00          2.392047E-01          2.791443E-01          4.559593E-01      \r\n               9          2.812561E+00          6.635864E+00         -5.189347E-01         -2.232857E-01         -3.519287E-01      \r\n              10          3.484224E+00          7.523854E+00          2.719898E-01          3.291059E-02          5.066795E-01      \r\n              11          1.554000E+00          5.873881E+00         -2.763301E-05          1.770727E-05         -4.265156E-01      \r\n              12          3.484192E+00          7.523885E+00         -2.719622E-01         -3.295588E-02          5.066872E-01      \r\n              13          2.812610E+00          6.635900E+00          5.189408E-01          2.232676E-01         -3.519707E-01      \r\n              14          5.038725E+00          7.921627E+00         -2.391962E-01         -2.791319E-01          4.559822E-01      \r\n              15          5.682122E+00          7.785271E+00          6.900254E-01          4.586849E-01         -1.910248E-01      \r\n              16          4.005364E+00          7.165224E+00          4.720891E-02         -1.749034E-01          6.511726E-01      \r\n              17          4.811410E+00          6.603031E+00          5.652848E-01          1.765912E-01         -2.055435E-01      \r\n              18          3.353351E+00          6.008838E+00          1.629866E-01          1.155496E-02          3.259964E-01      \r\n              19          4.706399E+00          6.421966E+00         -7.387168E-06         -1.333331E-05         -2.826748E-01      \r\n              20          3.353328E+00          6.008839E+00         -1.629723E-01         -1.157880E-02          3.260174E-01      \r\n              21          4.811429E+00          6.603067E+00         -5.652763E-01         -1.765904E-01         -2.055244E-01      \r\n              22          4.005297E+00          7.165242E+00         -4.717469E-02          1.749210E-01          6.511955E-01      \r\n              23          5.682114E+00          7.785252E+00         -6.900322E-01         -4.586897E-01         -1.910019E-01      \r\n              24         -2.291738E+00         -1.914076E+01         -8.438914E-01         -5.777880E-01         -3.077005E+00      \r\n              25         -2.896624E-01         -1.206918E+01          1.178883E+00          1.314135E-01          2.868053E+00      \r\n              26         -1.799920E+00         -1.746300E+01         -7.531830E-01         -2.757806E-01         -2.982448E+00      \r\n              27          2.612164E-01         -1.281880E+01          6.957340E-01         -9.183884E-04          2.766027E+00      \r\n              28         -1.517951E+00         -1.642890E+01         -2.628676E-01         -9.626025E-02         -3.047090E+00      \r\n              29          3.463801E-01         -1.308880E+01          9.536743E-07         -4.768372E-06          2.767863E+00      \r\n              30         -1.517932E+00         -1.642889E+01          2.628653E-01          9.626486E-02         -3.047089E+00      \r\n              31          2.612212E-01         -1.281878E+01         -6.957431E-01          9.188652E-04          2.766024E+00      \r\n              32         -1.799925E+00         -1.746300E+01          7.531919E-01          2.757857E-01         -2.982447E+00      \r\n              33         -2.896948E-01         -1.206919E+01         -1.178888E+00         -1.314259E-01          2.868062E+00      \r\n              34         -2.291726E+00         -1.914075E+01          8.438944E-01          5.777926E-01         -3.077008E+00      \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -1.500000E+00     -1.537994E+01  -1.561765E+01  -1.941972E-01   -29.2663   -1.527111E+01   -1.572647E+01   2.276807E-01 \r\n             1.500000E+00     -1.593804E+01  -1.588257E+01   2.073250E-01    48.8101   -1.570113E+01   -1.611948E+01   2.091722E-01 \r\n0       2   -1.500000E+00     -1.537997E+01  -1.561765E+01   1.941795E-01    29.2667   -1.527115E+01   -1.572647E+01   2.276577E-01 \r\n             1.500000E+00     -1.593802E+01  -1.588257E+01  -2.073069E-01   -48.8086   -1.570114E+01   -1.611945E+01   2.091525E-01 \r\n0       3   -1.500000E+00     -1.346805E+01  -1.376185E+01  -3.615104E-03    -0.7049   -1.346800E+01   -1.376189E+01   1.469456E-01 \r\n             1.500000E+00     -1.661945E+01  -1.763771E+01   1.733951E-01     9.4037   -1.659074E+01   -1.766643E+01   5.378455E-01 \r\n0       4   -1.500000E+00     -1.526523E+01  -1.428504E+01  -3.849511E-01   -70.9258   -1.415193E+01   -1.539833E+01   6.231992E-01 \r\n             1.500000E+00     -1.601167E+01  -1.696851E+01   3.220544E-01    16.9734   -1.591337E+01   -1.706681E+01   5.767223E-01 \r\n0       5   -1.500000E+00     -1.482904E+01  -1.366700E+01  -9.086680E-06   -89.9995   -1.366700E+01   -1.482904E+01   5.810175E-01 \r\n             1.500000E+00     -1.557489E+01  -1.772568E+01   9.173271E-06     0.0002   -1.557489E+01   -1.772568E+01   1.075394E+00 \r\n0       6   -1.500000E+00     -1.526531E+01  -1.428503E+01   3.849901E-01    70.9257   -1.415191E+01   -1.539843E+01   6.232616E-01 \r\n             1.500000E+00     -1.601159E+01  -1.696852E+01  -3.220934E-01   -16.9738   -1.591327E+01   -1.706683E+01   5.767797E-01 \r\n0       7   -1.500000E+00     -1.346807E+01  -1.376188E+01   3.598690E-03     0.7016   -1.346803E+01   -1.376193E+01   1.469490E-01 \r\n             1.500000E+00     -1.661942E+01  -1.763767E+01  -1.733787E-01    -9.4030   -1.659071E+01   -1.766638E+01   5.378339E-01 \r\n0       8   -1.500000E+00     -8.936809E+00  -1.037887E+01   6.296102E-01    20.5639   -8.700606E+00   -1.061507E+01   9.572326E-01 \r\n             1.500000E+00     -1.565503E+01  -2.094100E+01   3.106705E-01     3.3520   -1.563684E+01   -2.095920E+01   2.661181E+00 \r\n0       9   -1.500000E+00     -1.309164E+01  -1.081326E+01  -6.620051E-01   -74.9192   -1.063487E+01   -1.327002E+01   1.317575E+00 \r\n             1.500000E+00     -1.684172E+01  -1.966108E+01   2.990788E-02     0.6077   -1.684140E+01   -1.966139E+01   1.409997E+00 \r\n0      10   -1.500000E+00     -1.008639E+01  -1.064912E+01   2.823195E-01    22.5486   -9.969171E+00   -1.076634E+01   3.985846E-01 \r\n             1.500000E+00     -1.473202E+01  -2.068092E+01  -8.033353E-02    -0.7735   -1.473094E+01   -2.068201E+01   2.975535E+00 \r\n0      11   -1.500000E+00     -1.402112E+01  -1.091102E+01  -1.949634E-05   -89.9996   -1.091102E+01   -1.402112E+01   1.555050E+00 \r\n             1.500000E+00     -1.609312E+01  -1.874286E+01   1.734767E-05     0.0004   -1.609312E+01   -1.874286E+01   1.324871E+00 \r\n0      12   -1.500000E+00     -1.008642E+01  -1.064910E+01  -2.823020E-01   -22.5488   -9.969201E+00   -1.076631E+01   3.985567E-01 \r\n             1.500000E+00     -1.473201E+01  -2.068095E+01   8.031425E-02     0.7733   -1.473092E+01   -2.068203E+01   2.975554E+00 \r\n0      13   -1.500000E+00     -1.309160E+01  -1.081323E+01   6.620108E-01    74.9190   -1.063484E+01   -1.326999E+01   1.317574E+00 \r\n             1.500000E+00     -1.684175E+01  -1.966110E+01  -2.991027E-02    -0.6078   -1.684143E+01   -1.966142E+01   1.409993E+00 \r\n0      14   -1.500000E+00     -8.936771E+00  -1.037886E+01  -6.296041E-01   -20.5635   -8.700577E+00   -1.061505E+01   9.572375E-01 \r\n             1.500000E+00     -1.565507E+01  -2.094103E+01  -3.106758E-01    -3.3521   -1.563688E+01   -2.095922E+01   2.661174E+00 \r\n0      15   -1.500000E+00     -2.553598E+00  -9.929503E+00   1.581766E+00    11.6073   -2.228699E+00   -1.025440E+01   4.012852E+00 \r\n             1.500000E+00     -1.012976E+01  -2.030986E+01   6.617323E-01     3.7036   -1.008693E+01   -2.035270E+01   5.132886E+00 \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      16   -1.500000E+00     -9.371593E+00  -9.358008E+00  -8.392524E-01   -45.2319   -8.525521E+00   -1.020408E+01   8.392799E-01 \r\n             1.500000E+00     -1.471208E+01  -1.891164E+01  -9.021977E-01   -11.6257   -1.452646E+01   -1.909726E+01   2.285396E+00 \r\n0      17   -1.500000E+00     -3.102994E+00  -1.084871E+01   1.048301E+00     7.5729   -2.963625E+00   -1.098808E+01   4.012226E+00 \r\n             1.500000E+00     -9.518208E+00  -1.965275E+01   2.945874E-01     1.6636   -9.509651E+00   -1.966131E+01   5.075827E+00 \r\n0      18   -1.500000E+00     -9.784378E+00  -9.322620E+00  -1.699941E-01   -71.8181   -9.266788E+00   -9.840210E+00   2.867107E-01 \r\n             1.500000E+00     -1.425551E+01  -1.733440E+01  -3.873096E-01    -7.0610   -1.420754E+01   -1.738238E+01   1.587419E+00 \r\n0      19   -1.500000E+00     -3.170548E+00  -1.110754E+01  -4.459406E-06     0.0000   -3.170548E+00   -1.110754E+01   3.968494E+00 \r\n             1.500000E+00     -9.445747E+00  -1.967016E+01   5.390151E-06     0.0000   -9.445747E+00   -1.967016E+01   5.112205E+00 \r\n0      20   -1.500000E+00     -9.784395E+00  -9.322623E+00   1.700054E-01    71.8176   -9.266786E+00   -9.840232E+00   2.867231E-01 \r\n             1.500000E+00     -1.425550E+01  -1.733441E+01   3.873017E-01     7.0608   -1.420753E+01   -1.738238E+01   1.587426E+00 \r\n0      21   -1.500000E+00     -3.102981E+00  -1.084869E+01  -1.048296E+00    -7.5729   -2.963614E+00   -1.098806E+01   4.012221E+00 \r\n             1.500000E+00     -9.518219E+00  -1.965278E+01  -2.945946E-01    -1.6636   -9.509663E+00   -1.966133E+01   5.075836E+00 \r\n0      22   -1.500000E+00     -9.371638E+00  -9.357996E+00   8.392751E-01    45.2328   -8.525514E+00   -1.020412E+01   8.393028E-01 \r\n             1.500000E+00     -1.471204E+01  -1.891165E+01   9.021747E-01    11.6253   -1.452643E+01   -1.909726E+01   2.285413E+00 \r\n0      23   -1.500000E+00     -2.553603E+00  -9.929518E+00  -1.581772E+00   -11.6073   -2.228702E+00   -1.025442E+01   4.012858E+00 \r\n             1.500000E+00     -1.012976E+01  -2.030985E+01  -6.617290E-01    -3.7036   -1.008692E+01   -2.035269E+01   5.132883E+00 \r\n0      24   -1.500000E+00     -3.690343E+00  -2.574081E+01   3.117485E-01     0.8098   -3.685937E+00   -2.574522E+01   1.102964E+01 \r\n             1.500000E+00     -6.346928E-01  -2.197981E-01   1.436937E+00    49.1075    1.024589E+00   -1.879080E+00   1.451834E+00 \r\n0      25   -1.500000E+00     -6.110115E+00  -2.061674E+01   7.112551E-02     0.2809   -6.109766E+00   -2.061709E+01   7.253662E+00 \r\n             1.500000E+00     -5.723898E+00  -4.524503E+00  -1.500719E+00   -55.8910   -3.508096E+00   -6.740305E+00   1.616104E+00 \r\n0      26   -1.500000E+00     -3.473177E+00  -2.528684E+01   3.982705E-02     0.1046   -3.473104E+00   -2.528691E+01   1.090690E+01 \r\n             1.500000E+00     -1.073284E+00  -2.002846E+00   1.044071E+00    33.0016   -3.952147E-01   -2.680915E+00   1.142850E+00 \r\n0      27   -1.500000E+00     -5.575346E+00  -2.042859E+01   1.475643E-01     0.5691   -5.573880E+00   -2.043005E+01   7.428086E+00 \r\n             1.500000E+00     -5.923635E+00  -3.336851E+00  -7.800812E-01   -74.4523   -3.119816E+00   -6.140669E+00   1.510427E+00 \r\n0      28   -1.500000E+00     -3.332322E+00  -2.488029E+01   6.699562E-03     0.0178   -3.332319E+00   -2.488029E+01   1.077399E+01 \r\n             1.500000E+00     -1.308386E+00  -2.975090E+00   3.571897E-01    11.6004   -1.235063E+00   -3.048413E+00   9.066751E-01 \r\n0      29   -1.500000E+00     -5.456151E+00  -2.038676E+01   2.066294E-06     0.0000   -5.456151E+00   -2.038676E+01   7.465307E+00 \r\n             1.500000E+00     -5.917991E+00  -2.935028E+00   7.947286E-07    90.0000   -2.935028E+00   -5.917991E+00   1.491481E+00 \r\n0      30   -1.500000E+00     -3.332309E+00  -2.488029E+01  -6.700203E-03    -0.0178   -3.332306E+00   -2.488029E+01   1.077399E+01 \r\n             1.500000E+00     -1.308399E+00  -2.975101E+00  -3.571873E-01   -11.6004   -1.235077E+00   -3.048423E+00   9.066732E-01 \r\n1     SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      31   -1.500000E+00     -5.575344E+00  -2.042857E+01  -1.475722E-01    -0.5692   -5.573878E+00   -2.043004E+01   7.428081E+00 \r\n             1.500000E+00     -5.923639E+00  -3.336866E+00   7.800853E-01    74.4522   -3.119829E+00   -6.140677E+00   1.510424E+00 \r\n0      32   -1.500000E+00     -3.473180E+00  -2.528683E+01  -3.982210E-02    -0.1046   -3.473106E+00   -2.528691E+01   1.090690E+01 \r\n             1.500000E+00     -1.073279E+00  -2.002831E+00  -1.044078E+00   -33.0018   -3.952012E-01   -2.680910E+00   1.142854E+00 \r\n0      33   -1.500000E+00     -6.110137E+00  -2.061675E+01  -7.112855E-02    -0.2809   -6.109787E+00   -2.061710E+01   7.253656E+00 \r\n             1.500000E+00     -5.723876E+00  -4.524496E+00   1.500723E+00    55.8908   -3.508081E+00   -6.740292E+00   1.616105E+00 \r\n0      34   -1.500000E+00     -3.690335E+00  -2.574081E+01  -3.117469E-01    -0.8098   -3.685928E+00   -2.574522E+01   1.102964E+01 \r\n             1.500000E+00     -6.347011E-01  -2.198019E-01  -1.436939E+00   -49.1075    1.024585E+00   -1.879088E+00   1.451837E+00 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY              \r\n DATE:  5/17/95\r\n END TIME: 14:29:53\r\n TOTAL WALL CLOCK TIME      1 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01031a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01031A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING                          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                          \r\n                  3         LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL       \r\n                  4         SPC   = 1                                                                    \r\n                  5         TEMPERATURE = 1                                                              \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n                  8         SET 2 = 1 THRU 26                                                            \r\n                  9         DISPLACEMENTS = 1                                                            \r\n                 10         OLOAD = 2                                                                    \r\n                 11      $      STRESSES FOR POINTS ON PUBLISHED CURVES                                  \r\n                 12         SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n                 13               106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,             \r\n                 14               184,189, 197,202, 210,215, 223,228                                     \r\n                 15         STRESSES = 3                                                                 \r\n                 16      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   595, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n                    2-        +CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n                    3-        +CNG12  209     222                                                             \r\n                    4-        CNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n                    5-        +CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n                    6-        +CNG22  210     223                                                             \r\n                    7-        CNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n                    8-        +CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n                    9-        +CNG32  211     224                                                             \r\n                   10-        CNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n                   11-        +CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n                   12-        +CNG42  212     225                                                             \r\n                   13-        CNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n                   14-        +CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n                   15-        +CNG52  213     226                                                             \r\n                   16-        CNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n                   17-        +CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n                   18-        +CNG62  214     227                                                             \r\n                   19-        CNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n                   20-        +CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n                   21-        +CNG72  215     228                                                             \r\n                   22-        CNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n                   23-        +CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n                   24-        +CNG82  216     229                                                             \r\n                   25-        CNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n                   26-        +CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n                   27-        +CNG92  217     230                                                             \r\n                   28-        CNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n                   29-        +CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n                   30-        +CNG102 218     231                                                             \r\n                   31-        CNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n                   32-        +CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n                   33-        +CNG112 219     232                                                             \r\n                   34-        CNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n                   35-        +CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n                   36-        +CNG122 220     233                                                             \r\n                   37-        CQDMEM  1       21      1       2       15      14      .00                     \r\n                   38-        CQDMEM  2       21      2       3       16      15      .00                     \r\n                   39-        CQDMEM  3       21      3       4       17      16      .00                     \r\n                   40-        CQDMEM  4       21      4       5       18      17      .00                     \r\n                   41-        CQDMEM  5       21      5       6       19      18      .00                     \r\n                   42-        CQDMEM  6       21      6       7       20      19      .00                     \r\n                   43-        CQDMEM  7       21      7       8       21      20      .00                     \r\n                   44-        CQDMEM  8       21      8       9       22      21      .00                     \r\n                   45-        CQDMEM  9       21      9       10      23      22      .00                     \r\n                   46-        CQDMEM  10      21      10      11      24      23      .00                     \r\n                   47-        CQDMEM  11      21      11      12      25      24      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM  12      21      12      13      26      25      .00                     \r\n                   49-        CQDMEM  14      21      14      15      28      27      .00                     \r\n                   50-        CQDMEM  15      21      15      16      29      28      .00                     \r\n                   51-        CQDMEM  16      21      16      17      30      29      .00                     \r\n                   52-        CQDMEM  17      21      17      18      31      30      .00                     \r\n                   53-        CQDMEM  18      21      18      19      32      31      .00                     \r\n                   54-        CQDMEM  19      21      19      20      33      32      .00                     \r\n                   55-        CQDMEM  20      21      20      21      34      33      .00                     \r\n                   56-        CQDMEM  21      21      21      22      35      34      .00                     \r\n                   57-        CQDMEM  22      21      22      23      36      35      .00                     \r\n                   58-        CQDMEM  23      21      23      24      37      36      .00                     \r\n                   59-        CQDMEM  24      21      24      25      38      37      .00                     \r\n                   60-        CQDMEM  25      21      25      26      39      38      .00                     \r\n                   61-        CQDMEM  27      21      27      28      41      40      .00                     \r\n                   62-        CQDMEM  28      21      28      29      42      41      .00                     \r\n                   63-        CQDMEM  29      21      29      30      43      42      .00                     \r\n                   64-        CQDMEM  30      21      30      31      44      43      .00                     \r\n                   65-        CQDMEM  31      21      31      32      45      44      .00                     \r\n                   66-        CQDMEM  32      21      32      33      46      45      .00                     \r\n                   67-        CQDMEM  33      21      33      34      47      46      .00                     \r\n                   68-        CQDMEM  34      21      34      35      48      47      .00                     \r\n                   69-        CQDMEM  35      21      35      36      49      48      .00                     \r\n                   70-        CQDMEM  36      21      36      37      50      49      .00                     \r\n                   71-        CQDMEM  37      21      37      38      51      50      .00                     \r\n                   72-        CQDMEM  38      21      38      39      52      51      .00                     \r\n                   73-        CQDMEM  40      21      40      41      54      53      .00                     \r\n                   74-        CQDMEM  41      21      41      42      55      54      .00                     \r\n                   75-        CQDMEM  42      21      42      43      56      55      .00                     \r\n                   76-        CQDMEM  43      21      43      44      57      56      .00                     \r\n                   77-        CQDMEM  44      21      44      45      58      57      .00                     \r\n                   78-        CQDMEM  45      21      45      46      59      58      .00                     \r\n                   79-        CQDMEM  46      21      46      47      60      59      .00                     \r\n                   80-        CQDMEM  47      21      47      48      61      60      .00                     \r\n                   81-        CQDMEM  48      21      48      49      62      61      .00                     \r\n                   82-        CQDMEM  49      21      49      50      63      62      .00                     \r\n                   83-        CQDMEM  50      21      50      51      64      63      .00                     \r\n                   84-        CQDMEM  51      21      51      52      65      64      .00                     \r\n                   85-        CQDMEM  53      21      53      54      67      66      .00                     \r\n                   86-        CQDMEM  54      21      54      55      68      67      .00                     \r\n                   87-        CQDMEM  55      21      55      56      69      68      .00                     \r\n                   88-        CQDMEM  56      21      56      57      70      69      .00                     \r\n                   89-        CQDMEM  57      21      57      58      71      70      .00                     \r\n                   90-        CQDMEM  58      21      58      59      72      71      .00                     \r\n                   91-        CQDMEM  59      21      59      60      73      72      .00                     \r\n                   92-        CQDMEM  60      21      60      61      74      73      .00                     \r\n                   93-        CQDMEM  61      21      61      62      75      74      .00                     \r\n                   94-        CQDMEM  62      21      62      63      76      75      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQDMEM  63      21      63      64      77      76      .00                     \r\n                   96-        CQDMEM  64      21      64      65      78      77      .00                     \r\n                   97-        CQDMEM  66      21      66      67      80      79      .00                     \r\n                   98-        CQDMEM  67      21      67      68      81      80      .00                     \r\n                   99-        CQDMEM  68      21      68      69      82      81      .00                     \r\n                  100-        CQDMEM  69      21      69      70      83      82      .00                     \r\n                  101-        CQDMEM  70      21      70      71      84      83      .00                     \r\n                  102-        CQDMEM  71      21      71      72      85      84      .00                     \r\n                  103-        CQDMEM  72      21      72      73      86      85      .00                     \r\n                  104-        CQDMEM  73      21      73      74      87      86      .00                     \r\n                  105-        CQDMEM  74      21      74      75      88      87      .00                     \r\n                  106-        CQDMEM  75      21      75      76      89      88      .00                     \r\n                  107-        CQDMEM  76      21      76      77      90      89      .00                     \r\n                  108-        CQDMEM  77      21      77      78      91      90      .00                     \r\n                  109-        CQDMEM  79      21      79      80      93      92      .00                     \r\n                  110-        CQDMEM  80      21      80      81      94      93      .00                     \r\n                  111-        CQDMEM  81      21      81      82      95      94      .00                     \r\n                  112-        CQDMEM  82      21      82      83      96      95      .00                     \r\n                  113-        CQDMEM  83      21      83      84      97      96      .00                     \r\n                  114-        CQDMEM  84      21      84      85      98      97      .00                     \r\n                  115-        CQDMEM  85      21      85      86      99      98      .00                     \r\n                  116-        CQDMEM  86      21      86      87      100     99      .00                     \r\n                  117-        CQDMEM  87      21      87      88      101     100     .00                     \r\n                  118-        CQDMEM  88      21      88      89      102     101     .00                     \r\n                  119-        CQDMEM  89      21      89      90      103     102     .00                     \r\n                  120-        CQDMEM  90      21      90      91      104     103     .00                     \r\n                  121-        CQDMEM  92      21      92      93      106     105     .00                     \r\n                  122-        CQDMEM  93      21      93      94      107     106     .00                     \r\n                  123-        CQDMEM  94      21      94      95      108     107     .00                     \r\n                  124-        CQDMEM  95      21      95      96      109     108     .00                     \r\n                  125-        CQDMEM  96      21      96      97      110     109     .00                     \r\n                  126-        CQDMEM  97      21      97      98      111     110     .00                     \r\n                  127-        CQDMEM  98      21      98      99      112     111     .00                     \r\n                  128-        CQDMEM  99      21      99      100     113     112     .00                     \r\n                  129-        CQDMEM  100     21      100     101     114     113     .00                     \r\n                  130-        CQDMEM  101     21      101     102     115     114     .00                     \r\n                  131-        CQDMEM  102     21      102     103     116     115     .00                     \r\n                  132-        CQDMEM  103     21      103     104     117     116     .00                     \r\n                  133-        CQDMEM  105     21      105     106     119     118     .00                     \r\n                  134-        CQDMEM  106     21      106     107     120     119     .00                     \r\n                  135-        CQDMEM  107     21      107     108     121     120     .00                     \r\n                  136-        CQDMEM  108     21      108     109     122     121     .00                     \r\n                  137-        CQDMEM  109     21      109     110     123     122     .00                     \r\n                  138-        CQDMEM  110     21      110     111     124     123     .00                     \r\n                  139-        CQDMEM  111     21      111     112     125     124     .00                     \r\n                  140-        CQDMEM  112     21      112     113     126     125     .00                     \r\n                  141-        CQDMEM  113     21      113     114     127     126     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQDMEM  114     21      114     115     128     127     .00                     \r\n                  143-        CQDMEM  115     21      115     116     129     128     .00                     \r\n                  144-        CQDMEM  116     21      116     117     130     129     .00                     \r\n                  145-        CQDMEM  118     21      118     119     132     131     .00                     \r\n                  146-        CQDMEM  119     21      119     120     133     132     .00                     \r\n                  147-        CQDMEM  120     21      120     121     134     133     .00                     \r\n                  148-        CQDMEM  121     21      121     122     135     134     .00                     \r\n                  149-        CQDMEM  122     21      122     123     136     135     .00                     \r\n                  150-        CQDMEM  123     21      123     124     137     136     .00                     \r\n                  151-        CQDMEM  124     21      124     125     138     137     .00                     \r\n                  152-        CQDMEM  125     21      125     126     139     138     .00                     \r\n                  153-        CQDMEM  126     21      126     127     140     139     .00                     \r\n                  154-        CQDMEM  127     21      127     128     141     140     .00                     \r\n                  155-        CQDMEM  128     21      128     129     142     141     .00                     \r\n                  156-        CQDMEM  129     21      129     130     143     142     .00                     \r\n                  157-        CQDMEM  131     21      131     132     145     144     .00                     \r\n                  158-        CQDMEM  132     21      132     133     146     145     .00                     \r\n                  159-        CQDMEM  133     21      133     134     147     146     .00                     \r\n                  160-        CQDMEM  134     21      134     135     148     147     .00                     \r\n                  161-        CQDMEM  135     21      135     136     149     148     .00                     \r\n                  162-        CQDMEM  136     21      136     137     150     149     .00                     \r\n                  163-        CQDMEM  137     21      137     138     151     150     .00                     \r\n                  164-        CQDMEM  138     21      138     139     152     151     .00                     \r\n                  165-        CQDMEM  139     21      139     140     153     152     .00                     \r\n                  166-        CQDMEM  140     21      140     141     154     153     .00                     \r\n                  167-        CQDMEM  141     21      141     142     155     154     .00                     \r\n                  168-        CQDMEM  142     21      142     143     156     155     .00                     \r\n                  169-        CQDMEM  144     21      144     145     158     157     .00                     \r\n                  170-        CQDMEM  145     21      145     146     159     158     .00                     \r\n                  171-        CQDMEM  146     21      146     147     160     159     .00                     \r\n                  172-        CQDMEM  147     21      147     148     161     160     .00                     \r\n                  173-        CQDMEM  148     21      148     149     162     161     .00                     \r\n                  174-        CQDMEM  149     21      149     150     163     162     .00                     \r\n                  175-        CQDMEM  150     21      150     151     164     163     .00                     \r\n                  176-        CQDMEM  151     21      151     152     165     164     .00                     \r\n                  177-        CQDMEM  152     21      152     153     166     165     .00                     \r\n                  178-        CQDMEM  153     21      153     154     167     166     .00                     \r\n                  179-        CQDMEM  154     21      154     155     168     167     .00                     \r\n                  180-        CQDMEM  155     21      155     156     169     168     .00                     \r\n                  181-        CQDMEM  157     21      157     158     171     170     .00                     \r\n                  182-        CQDMEM  158     21      158     159     172     171     .00                     \r\n                  183-        CQDMEM  159     21      159     160     173     172     .00                     \r\n                  184-        CQDMEM  160     21      160     161     174     173     .00                     \r\n                  185-        CQDMEM  161     21      161     162     175     174     .00                     \r\n                  186-        CQDMEM  162     21      162     163     176     175     .00                     \r\n                  187-        CQDMEM  163     21      163     164     177     176     .00                     \r\n                  188-        CQDMEM  164     21      164     165     178     177     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQDMEM  165     21      165     166     179     178     .00                     \r\n                  190-        CQDMEM  166     21      166     167     180     179     .00                     \r\n                  191-        CQDMEM  167     21      167     168     181     180     .00                     \r\n                  192-        CQDMEM  168     21      168     169     182     181     .00                     \r\n                  193-        CQDMEM  170     21      170     171     184     183     .00                     \r\n                  194-        CQDMEM  171     21      171     172     185     184     .00                     \r\n                  195-        CQDMEM  172     21      172     173     186     185     .00                     \r\n                  196-        CQDMEM  173     21      173     174     187     186     .00                     \r\n                  197-        CQDMEM  174     21      174     175     188     187     .00                     \r\n                  198-        CQDMEM  175     21      175     176     189     188     .00                     \r\n                  199-        CQDMEM  176     21      176     177     190     189     .00                     \r\n                  200-        CQDMEM  177     21      177     178     191     190     .00                     \r\n                  201-        CQDMEM  178     21      178     179     192     191     .00                     \r\n                  202-        CQDMEM  179     21      179     180     193     192     .00                     \r\n                  203-        CQDMEM  180     21      180     181     194     193     .00                     \r\n                  204-        CQDMEM  181     21      181     182     195     194     .00                     \r\n                  205-        CQDMEM  183     21      183     184     197     196     .00                     \r\n                  206-        CQDMEM  184     21      184     185     198     197     .00                     \r\n                  207-        CQDMEM  185     21      185     186     199     198     .00                     \r\n                  208-        CQDMEM  186     21      186     187     200     199     .00                     \r\n                  209-        CQDMEM  187     21      187     188     201     200     .00                     \r\n                  210-        CQDMEM  188     21      188     189     202     201     .00                     \r\n                  211-        CQDMEM  189     21      189     190     203     202     .00                     \r\n                  212-        CQDMEM  190     21      190     191     204     203     .00                     \r\n                  213-        CQDMEM  191     21      191     192     205     204     .00                     \r\n                  214-        CQDMEM  192     21      192     193     206     205     .00                     \r\n                  215-        CQDMEM  193     21      193     194     207     206     .00                     \r\n                  216-        CQDMEM  194     21      194     195     208     207     .00                     \r\n                  217-        CQDMEM  196     21      196     197     210     209     .00                     \r\n                  218-        CQDMEM  197     21      197     198     211     210     .00                     \r\n                  219-        CQDMEM  198     21      198     199     212     211     .00                     \r\n                  220-        CQDMEM  199     21      199     200     213     212     .00                     \r\n                  221-        CQDMEM  200     21      200     201     214     213     .00                     \r\n                  222-        CQDMEM  201     21      201     202     215     214     .00                     \r\n                  223-        CQDMEM  202     21      202     203     216     215     .00                     \r\n                  224-        CQDMEM  203     21      203     204     217     216     .00                     \r\n                  225-        CQDMEM  204     21      204     205     218     217     .00                     \r\n                  226-        CQDMEM  205     21      205     206     219     218     .00                     \r\n                  227-        CQDMEM  206     21      206     207     220     219     .00                     \r\n                  228-        CQDMEM  207     21      207     208     221     220     .00                     \r\n                  229-        CQDMEM  209     21      209     210     223     222     .00                     \r\n                  230-        CQDMEM  210     21      210     211     224     223     .00                     \r\n                  231-        CQDMEM  211     21      211     212     225     224     .00                     \r\n                  232-        CQDMEM  212     21      212     213     226     225     .00                     \r\n                  233-        CQDMEM  213     21      213     214     227     226     .00                     \r\n                  234-        CQDMEM  214     21      214     215     228     227     .00                     \r\n                  235-        CQDMEM  215     21      215     216     229     228     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQDMEM  216     21      216     217     230     229     .00                     \r\n                  237-        CQDMEM  217     21      217     218     231     230     .00                     \r\n                  238-        CQDMEM  218     21      218     219     232     231     .00                     \r\n                  239-        CQDMEM  219     21      219     220     233     232     .00                     \r\n                  240-        CQDMEM  220     21      220     221     234     233     .00                     \r\n                  241-        CQDMEM  222     21      222     223     236     235     .00                     \r\n                  242-        CQDMEM  223     21      223     224     237     236     .00                     \r\n                  243-        CQDMEM  224     21      224     225     238     237     .00                     \r\n                  244-        CQDMEM  225     21      225     226     239     238     .00                     \r\n                  245-        CQDMEM  226     21      226     227     240     239     .00                     \r\n                  246-        CQDMEM  227     21      227     228     241     240     .00                     \r\n                  247-        CQDMEM  228     21      228     229     242     241     .00                     \r\n                  248-        CQDMEM  229     21      229     230     243     242     .00                     \r\n                  249-        CQDMEM  230     21      230     231     244     243     .00                     \r\n                  250-        CQDMEM  231     21      231     232     245     244     .00                     \r\n                  251-        CQDMEM  232     21      232     233     246     245     .00                     \r\n                  252-        CQDMEM  233     21      233     234     247     246     .00                     \r\n                  253-        GRDSET                                                  3456                    \r\n                  254-        GRID    1               .0      .0      .0                                      \r\n                  255-        GRID    2               1.0     .0      .0                                      \r\n                  256-        GRID    3               2.0     .0      .0                                      \r\n                  257-        GRID    4               3.0     .0      .0                                      \r\n                  258-        GRID    5               4.0     .0      .0                                      \r\n                  259-        GRID    6               5.0     .0      .0                                      \r\n                  260-        GRID    7               6.0     .0      .0                                      \r\n                  261-        GRID    8               7.0     .0      .0                                      \r\n                  262-        GRID    9               8.0     .0      .0                                      \r\n                  263-        GRID    10              9.0     .0      .0                                      \r\n                  264-        GRID    11              10.0    .0      .0                                      \r\n                  265-        GRID    12              11.0    .0      .0                                      \r\n                  266-        GRID    13              12.0    .0      .0                                      \r\n                  267-        GRID    14              .0      1.0     .0                                      \r\n                  268-        GRID    15              1.0     1.0     .0                                      \r\n                  269-        GRID    16              2.0     1.0     .0                                      \r\n                  270-        GRID    17              3.0     1.0     .0                                      \r\n                  271-        GRID    18              4.0     1.0     .0                                      \r\n                  272-        GRID    19              5.0     1.0     .0                                      \r\n                  273-        GRID    20              6.0     1.0     .0                                      \r\n                  274-        GRID    21              7.0     1.0     .0                                      \r\n                  275-        GRID    22              8.0     1.0     .0                                      \r\n                  276-        GRID    23              9.0     1.0     .0                                      \r\n                  277-        GRID    24              10.0    1.0     .0                                      \r\n                  278-        GRID    25              11.0    1.0     .0                                      \r\n                  279-        GRID    26              12.0    1.0     .0                                      \r\n                  280-        GRID    27              .0      2.0     .0                                      \r\n                  281-        GRID    28              1.0     2.0     .0                                      \r\n                  282-        GRID    29              2.0     2.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    30              3.0     2.0     .0                                      \r\n                  284-        GRID    31              4.0     2.0     .0                                      \r\n                  285-        GRID    32              5.0     2.0     .0                                      \r\n                  286-        GRID    33              6.0     2.0     .0                                      \r\n                  287-        GRID    34              7.0     2.0     .0                                      \r\n                  288-        GRID    35              8.0     2.0     .0                                      \r\n                  289-        GRID    36              9.0     2.0     .0                                      \r\n                  290-        GRID    37              10.0    2.0     .0                                      \r\n                  291-        GRID    38              11.0    2.0     .0                                      \r\n                  292-        GRID    39              12.0    2.0     .0                                      \r\n                  293-        GRID    40              .0      3.0     .0                                      \r\n                  294-        GRID    41              1.0     3.0     .0                                      \r\n                  295-        GRID    42              2.0     3.0     .0                                      \r\n                  296-        GRID    43              3.0     3.0     .0                                      \r\n                  297-        GRID    44              4.0     3.0     .0                                      \r\n                  298-        GRID    45              5.0     3.0     .0                                      \r\n                  299-        GRID    46              6.0     3.0     .0                                      \r\n                  300-        GRID    47              7.0     3.0     .0                                      \r\n                  301-        GRID    48              8.0     3.0     .0                                      \r\n                  302-        GRID    49              9.0     3.0     .0                                      \r\n                  303-        GRID    50              10.0    3.0     .0                                      \r\n                  304-        GRID    51              11.0    3.0     .0                                      \r\n                  305-        GRID    52              12.0    3.0     .0                                      \r\n                  306-        GRID    53              .0      4.0     .0                                      \r\n                  307-        GRID    54              1.0     4.0     .0                                      \r\n                  308-        GRID    55              2.0     4.0     .0                                      \r\n                  309-        GRID    56              3.0     4.0     .0                                      \r\n                  310-        GRID    57              4.0     4.0     .0                                      \r\n                  311-        GRID    58              5.0     4.0     .0                                      \r\n                  312-        GRID    59              6.0     4.0     .0                                      \r\n                  313-        GRID    60              7.0     4.0     .0                                      \r\n                  314-        GRID    61              8.0     4.0     .0                                      \r\n                  315-        GRID    62              9.0     4.0     .0                                      \r\n                  316-        GRID    63              10.0    4.0     .0                                      \r\n                  317-        GRID    64              11.0    4.0     .0                                      \r\n                  318-        GRID    65              12.0    4.0     .0                                      \r\n                  319-        GRID    66              .0      5.0     .0                                      \r\n                  320-        GRID    67              1.0     5.0     .0                                      \r\n                  321-        GRID    68              2.0     5.0     .0                                      \r\n                  322-        GRID    69              3.0     5.0     .0                                      \r\n                  323-        GRID    70              4.0     5.0     .0                                      \r\n                  324-        GRID    71              5.0     5.0     .0                                      \r\n                  325-        GRID    72              6.0     5.0     .0                                      \r\n                  326-        GRID    73              7.0     5.0     .0                                      \r\n                  327-        GRID    74              8.0     5.0     .0                                      \r\n                  328-        GRID    75              9.0     5.0     .0                                      \r\n                  329-        GRID    76              10.0    5.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID    77              11.0    5.0     .0                                      \r\n                  331-        GRID    78              12.0    5.0     .0                                      \r\n                  332-        GRID    79              .0      6.0     .0                                      \r\n                  333-        GRID    80              1.0     6.0     .0                                      \r\n                  334-        GRID    81              2.0     6.0     .0                                      \r\n                  335-        GRID    82              3.0     6.0     .0                                      \r\n                  336-        GRID    83              4.0     6.0     .0                                      \r\n                  337-        GRID    84              5.0     6.0     .0                                      \r\n                  338-        GRID    85              6.0     6.0     .0                                      \r\n                  339-        GRID    86              7.0     6.0     .0                                      \r\n                  340-        GRID    87              8.0     6.0     .0                                      \r\n                  341-        GRID    88              9.0     6.0     .0                                      \r\n                  342-        GRID    89              10.0    6.0     .0                                      \r\n                  343-        GRID    90              11.0    6.0     .0                                      \r\n                  344-        GRID    91              12.0    6.0     .0                                      \r\n                  345-        GRID    92              .0      7.0     .0                                      \r\n                  346-        GRID    93              1.0     7.0     .0                                      \r\n                  347-        GRID    94              2.0     7.0     .0                                      \r\n                  348-        GRID    95              3.0     7.0     .0                                      \r\n                  349-        GRID    96              4.0     7.0     .0                                      \r\n                  350-        GRID    97              5.0     7.0     .0                                      \r\n                  351-        GRID    98              6.0     7.0     .0                                      \r\n                  352-        GRID    99              7.0     7.0     .0                                      \r\n                  353-        GRID    100             8.0     7.0     .0                                      \r\n                  354-        GRID    101             9.0     7.0     .0                                      \r\n                  355-        GRID    102             10.0    7.0     .0                                      \r\n                  356-        GRID    103             11.0    7.0     .0                                      \r\n                  357-        GRID    104             12.0    7.0     .0                                      \r\n                  358-        GRID    105             .0      8.0     .0                                      \r\n                  359-        GRID    106             1.0     8.0     .0                                      \r\n                  360-        GRID    107             2.0     8.0     .0                                      \r\n                  361-        GRID    108             3.0     8.0     .0                                      \r\n                  362-        GRID    109             4.0     8.0     .0                                      \r\n                  363-        GRID    110             5.0     8.0     .0                                      \r\n                  364-        GRID    111             6.0     8.0     .0                                      \r\n                  365-        GRID    112             7.0     8.0     .0                                      \r\n                  366-        GRID    113             8.0     8.0     .0                                      \r\n                  367-        GRID    114             9.0     8.0     .0                                      \r\n                  368-        GRID    115             10.0    8.0     .0                                      \r\n                  369-        GRID    116             11.0    8.0     .0                                      \r\n                  370-        GRID    117             12.0    8.0     .0                                      \r\n                  371-        GRID    118             .0      9.0     .0                                      \r\n                  372-        GRID    119             1.0     9.0     .0                                      \r\n                  373-        GRID    120             2.0     9.0     .0                                      \r\n                  374-        GRID    121             3.0     9.0     .0                                      \r\n                  375-        GRID    122             4.0     9.0     .0                                      \r\n                  376-        GRID    123             5.0     9.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    124             6.0     9.0     .0                                      \r\n                  378-        GRID    125             7.0     9.0     .0                                      \r\n                  379-        GRID    126             8.0     9.0     .0                                      \r\n                  380-        GRID    127             9.0     9.0     .0                                      \r\n                  381-        GRID    128             10.0    9.0     .0                                      \r\n                  382-        GRID    129             11.0    9.0     .0                                      \r\n                  383-        GRID    130             12.0    9.0     .0                                      \r\n                  384-        GRID    131             .0      10.0    .0                                      \r\n                  385-        GRID    132             1.0     10.0    .0                                      \r\n                  386-        GRID    133             2.0     10.0    .0                                      \r\n                  387-        GRID    134             3.0     10.0    .0                                      \r\n                  388-        GRID    135             4.0     10.0    .0                                      \r\n                  389-        GRID    136             5.0     10.0    .0                                      \r\n                  390-        GRID    137             6.0     10.0    .0                                      \r\n                  391-        GRID    138             7.0     10.0    .0                                      \r\n                  392-        GRID    139             8.0     10.0    .0                                      \r\n                  393-        GRID    140             9.0     10.0    .0                                      \r\n                  394-        GRID    141             10.0    10.0    .0                                      \r\n                  395-        GRID    142             11.0    10.0    .0                                      \r\n                  396-        GRID    143             12.0    10.0    .0                                      \r\n                  397-        GRID    144             .0      11.0    .0                                      \r\n                  398-        GRID    145             1.0     11.0    .0                                      \r\n                  399-        GRID    146             2.0     11.0    .0                                      \r\n                  400-        GRID    147             3.0     11.0    .0                                      \r\n                  401-        GRID    148             4.0     11.0    .0                                      \r\n                  402-        GRID    149             5.0     11.0    .0                                      \r\n                  403-        GRID    150             6.0     11.0    .0                                      \r\n                  404-        GRID    151             7.0     11.0    .0                                      \r\n                  405-        GRID    152             8.0     11.0    .0                                      \r\n                  406-        GRID    153             9.0     11.0    .0                                      \r\n                  407-        GRID    154             10.0    11.0    .0                                      \r\n                  408-        GRID    155             11.0    11.0    .0                                      \r\n                  409-        GRID    156             12.0    11.0    .0                                      \r\n                  410-        GRID    157             .0      12.0    .0                                      \r\n                  411-        GRID    158             1.0     12.0    .0                                      \r\n                  412-        GRID    159             2.0     12.0    .0                                      \r\n                  413-        GRID    160             3.0     12.0    .0                                      \r\n                  414-        GRID    161             4.0     12.0    .0                                      \r\n                  415-        GRID    162             5.0     12.0    .0                                      \r\n                  416-        GRID    163             6.0     12.0    .0                                      \r\n                  417-        GRID    164             7.0     12.0    .0                                      \r\n                  418-        GRID    165             8.0     12.0    .0                                      \r\n                  419-        GRID    166             9.0     12.0    .0                                      \r\n                  420-        GRID    167             10.0    12.0    .0                                      \r\n                  421-        GRID    168             11.0    12.0    .0                                      \r\n                  422-        GRID    169             12.0    12.0    .0                                      \r\n                  423-        GRID    170             .0      13.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    171             1.0     13.0    .0                                      \r\n                  425-        GRID    172             2.0     13.0    .0                                      \r\n                  426-        GRID    173             3.0     13.0    .0                                      \r\n                  427-        GRID    174             4.0     13.0    .0                                      \r\n                  428-        GRID    175             5.0     13.0    .0                                      \r\n                  429-        GRID    176             6.0     13.0    .0                                      \r\n                  430-        GRID    177             7.0     13.0    .0                                      \r\n                  431-        GRID    178             8.0     13.0    .0                                      \r\n                  432-        GRID    179             9.0     13.0    .0                                      \r\n                  433-        GRID    180             10.0    13.0    .0                                      \r\n                  434-        GRID    181             11.0    13.0    .0                                      \r\n                  435-        GRID    182             12.0    13.0    .0                                      \r\n                  436-        GRID    183             .0      14.0    .0                                      \r\n                  437-        GRID    184             1.0     14.0    .0                                      \r\n                  438-        GRID    185             2.0     14.0    .0                                      \r\n                  439-        GRID    186             3.0     14.0    .0                                      \r\n                  440-        GRID    187             4.0     14.0    .0                                      \r\n                  441-        GRID    188             5.0     14.0    .0                                      \r\n                  442-        GRID    189             6.0     14.0    .0                                      \r\n                  443-        GRID    190             7.0     14.0    .0                                      \r\n                  444-        GRID    191             8.0     14.0    .0                                      \r\n                  445-        GRID    192             9.0     14.0    .0                                      \r\n                  446-        GRID    193             10.0    14.0    .0                                      \r\n                  447-        GRID    194             11.0    14.0    .0                                      \r\n                  448-        GRID    195             12.0    14.0    .0                                      \r\n                  449-        GRID    196             .0      15.0    .0                                      \r\n                  450-        GRID    197             1.0     15.0    .0                                      \r\n                  451-        GRID    198             2.0     15.0    .0                                      \r\n                  452-        GRID    199             3.0     15.0    .0                                      \r\n                  453-        GRID    200             4.0     15.0    .0                                      \r\n                  454-        GRID    201             5.0     15.0    .0                                      \r\n                  455-        GRID    202             6.0     15.0    .0                                      \r\n                  456-        GRID    203             7.0     15.0    .0                                      \r\n                  457-        GRID    204             8.0     15.0    .0                                      \r\n                  458-        GRID    205             9.0     15.0    .0                                      \r\n                  459-        GRID    206             10.0    15.0    .0                                      \r\n                  460-        GRID    207             11.0    15.0    .0                                      \r\n                  461-        GRID    208             12.0    15.0    .0                                      \r\n                  462-        GRID    209             .0      16.0    .0                                      \r\n                  463-        GRID    210             1.0     16.0    .0                                      \r\n                  464-        GRID    211             2.0     16.0    .0                                      \r\n                  465-        GRID    212             3.0     16.0    .0                                      \r\n                  466-        GRID    213             4.0     16.0    .0                                      \r\n                  467-        GRID    214             5.0     16.0    .0                                      \r\n                  468-        GRID    215             6.0     16.0    .0                                      \r\n                  469-        GRID    216             7.0     16.0    .0                                      \r\n                  470-        GRID    217             8.0     16.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        GRID    218             9.0     16.0    .0                                      \r\n                  472-        GRID    219             10.0    16.0    .0                                      \r\n                  473-        GRID    220             11.0    16.0    .0                                      \r\n                  474-        GRID    221             12.0    16.0    .0                                      \r\n                  475-        GRID    222             .0      17.0    .0                                      \r\n                  476-        GRID    223             1.0     17.0    .0                                      \r\n                  477-        GRID    224             2.0     17.0    .0                                      \r\n                  478-        GRID    225             3.0     17.0    .0                                      \r\n                  479-        GRID    226             4.0     17.0    .0                                      \r\n                  480-        GRID    227             5.0     17.0    .0                                      \r\n                  481-        GRID    228             6.0     17.0    .0                                      \r\n                  482-        GRID    229             7.0     17.0    .0                                      \r\n                  483-        GRID    230             8.0     17.0    .0                                      \r\n                  484-        GRID    231             9.0     17.0    .0                                      \r\n                  485-        GRID    232             10.0    17.0    .0                                      \r\n                  486-        GRID    233             11.0    17.0    .0                                      \r\n                  487-        GRID    234             12.0    17.0    .0                                      \r\n                  488-        GRID    235             .0      18.0    .0                                      \r\n                  489-        GRID    236             1.0     18.0    .0                                      \r\n                  490-        GRID    237             2.0     18.0    .0                                      \r\n                  491-        GRID    238             3.0     18.0    .0                                      \r\n                  492-        GRID    239             4.0     18.0    .0                                      \r\n                  493-        GRID    240             5.0     18.0    .0                                      \r\n                  494-        GRID    241             6.0     18.0    .0                                      \r\n                  495-        GRID    242             7.0     18.0    .0                                      \r\n                  496-        GRID    243             8.0     18.0    .0                                      \r\n                  497-        GRID    244             9.0     18.0    .0                                      \r\n                  498-        GRID    245             10.0    18.0    .0                                      \r\n                  499-        GRID    246             11.0    18.0    .0                                      \r\n                  500-        GRID    247             12.0    18.0    .0                                      \r\n                  501-        MAT1    75      10.400+6        .3              12.700-675.                     \r\n                  502-        MATT1   75      100                                                             \r\n                  503-        PARAM   IRES    1                                                               \r\n                  504-        PQDMEM  21      75      .25                                                     \r\n                  505-        SPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n                  506-        +SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n                  507-        +SPC-B  183     196     209     222     235                                     \r\n                  508-        SPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n                  509-        +SPC-C  7       8       9       10      11      12      13                      \r\n                  510-        TABLEM1 100                                                             +TM1    \r\n                  511-        +TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n                  512-        +TM2    300.    9.15+6  ENDT                                                    \r\n                  513-        TEMP    1       1       245.000 2       232.500 3       220.000                 \r\n                  514-        TEMP    1       4       207.500 5       195.000 6       182.500                 \r\n                  515-        TEMP    1       7       170.000 8       157.500 9       145.000                 \r\n                  516-        TEMP    1       10      132.500 11      120.000 12      107.500                 \r\n                  517-        TEMP    1       13      95.000  14      245.000 15      232.500                 \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        TEMP    1       16      220.000 17      207.500 18      195.000                 \r\n                  519-        TEMP    1       19      182.500 20      170.000 21      157.500                 \r\n                  520-        TEMP    1       22      145.000 23      132.500 24      120.000                 \r\n                  521-        TEMP    1       25      107.500 26      95.000  27      245.000                 \r\n                  522-        TEMP    1       28      232.500 29      220.000 30      207.500                 \r\n                  523-        TEMP    1       31      195.000 32      182.500 33      170.000                 \r\n                  524-        TEMP    1       34      157.500 35      145.000 36      132.500                 \r\n                  525-        TEMP    1       37      120.000 38      107.500 39      95.000                  \r\n                  526-        TEMP    1       40      245.000 41      232.500 42      220.000                 \r\n                  527-        TEMP    1       43      207.500 44      195.000 45      182.500                 \r\n                  528-        TEMP    1       46      170.000 47      157.500 48      145.000                 \r\n                  529-        TEMP    1       49      132.500 50      120.000 51      107.500                 \r\n                  530-        TEMP    1       52      95.000  53      245.000 54      232.500                 \r\n                  531-        TEMP    1       55      220.000 56      207.500 57      195.000                 \r\n                  532-        TEMP    1       58      182.500 59      170.000 60      157.500                 \r\n                  533-        TEMP    1       61      145.000 62      132.500 63      120.000                 \r\n                  534-        TEMP    1       64      107.500 65      95.000  66      245.000                 \r\n                  535-        TEMP    1       67      232.500 68      220.000 69      207.500                 \r\n                  536-        TEMP    1       70      195.000 71      182.500 72      170.000                 \r\n                  537-        TEMP    1       73      157.500 74      145.000 75      132.500                 \r\n                  538-        TEMP    1       76      120.000 77      107.500 78      95.000                  \r\n                  539-        TEMP    1       79      245.000 80      232.500 81      220.000                 \r\n                  540-        TEMP    1       82      207.500 83      195.000 84      182.500                 \r\n                  541-        TEMP    1       85      170.000 86      157.500 87      145.000                 \r\n                  542-        TEMP    1       88      132.500 89      120.000 90      107.500                 \r\n                  543-        TEMP    1       91      95.000  92      245.000 93      232.500                 \r\n                  544-        TEMP    1       94      220.000 95      207.500 96      195.000                 \r\n                  545-        TEMP    1       97      182.500 98      170.000 99      157.500                 \r\n                  546-        TEMP    1       100     145.000 101     132.500 102     120.000                 \r\n                  547-        TEMP    1       103     107.500 104     95.000  105     245.000                 \r\n                  548-        TEMP    1       106     232.500 107     220.000 108     207.500                 \r\n                  549-        TEMP    1       109     195.000 110     182.500 111     170.000                 \r\n                  550-        TEMP    1       112     157.500 113     145.000 114     132.500                 \r\n                  551-        TEMP    1       115     120.000 116     107.500 117     95.000                  \r\n                  552-        TEMP    1       118     245.000 119     232.500 120     220.000                 \r\n                  553-        TEMP    1       121     207.500 122     195.000 123     182.500                 \r\n                  554-        TEMP    1       124     170.000 125     157.500 126     145.000                 \r\n                  555-        TEMP    1       127     132.500 128     120.000 129     107.500                 \r\n                  556-        TEMP    1       130     95.000  131     245.000 132     232.500                 \r\n                  557-        TEMP    1       133     220.000 134     207.500 135     195.000                 \r\n                  558-        TEMP    1       136     182.500 137     170.000 138     157.500                 \r\n                  559-        TEMP    1       139     145.000 140     132.500 141     120.000                 \r\n                  560-        TEMP    1       142     107.500 143     95.000  144     245.000                 \r\n                  561-        TEMP    1       145     232.500 146     220.000 147     207.500                 \r\n                  562-        TEMP    1       148     195.000 149     182.500 150     170.000                 \r\n                  563-        TEMP    1       151     157.500 152     145.000 153     132.500                 \r\n                  564-        TEMP    1       154     120.000 155     107.500 156     95.000                  \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        TEMP    1       157     245.000 158     232.500 159     220.000                 \r\n                  566-        TEMP    1       160     207.500 161     195.000 162     182.500                 \r\n                  567-        TEMP    1       163     170.000 164     157.500 165     145.000                 \r\n                  568-        TEMP    1       166     132.500 167     120.000 168     107.500                 \r\n                  569-        TEMP    1       169     95.000  170     245.000 171     232.500                 \r\n                  570-        TEMP    1       172     220.000 173     207.500 174     195.000                 \r\n                  571-        TEMP    1       175     182.500 176     170.000 177     157.500                 \r\n                  572-        TEMP    1       178     145.000 179     132.500 180     120.000                 \r\n                  573-        TEMP    1       181     107.500 182     95.000  183     245.000                 \r\n                  574-        TEMP    1       184     232.500 185     220.000 186     207.500                 \r\n                  575-        TEMP    1       187     195.000 188     182.500 189     170.000                 \r\n                  576-        TEMP    1       190     157.500 191     145.000 192     132.500                 \r\n                  577-        TEMP    1       193     120.000 194     107.500 195     95.000                  \r\n                  578-        TEMP    1       196     245.000 197     232.500 198     220.000                 \r\n                  579-        TEMP    1       199     207.500 200     195.000 201     182.500                 \r\n                  580-        TEMP    1       202     170.000 203     157.500 204     145.000                 \r\n                  581-        TEMP    1       205     132.500 206     120.000 207     107.500                 \r\n                  582-        TEMP    1       208     95.000  209     245.000 210     232.500                 \r\n                  583-        TEMP    1       211     220.000 212     207.500 213     195.000                 \r\n                  584-        TEMP    1       214     182.500 215     170.000 216     157.500                 \r\n                  585-        TEMP    1       217     145.000 218     132.500 219     120.000                 \r\n                  586-        TEMP    1       220     107.500 221     95.000  222     245.000                 \r\n                  587-        TEMP    1       223     232.500 224     220.000 225     207.500                 \r\n                  588-        TEMP    1       226     195.000 227     182.500 228     170.000                 \r\n                  589-        TEMP    1       229     157.500 230     145.000 231     132.500                 \r\n                  590-        TEMP    1       232     120.000 233     107.500 234     95.000                  \r\n                  591-        TEMP    1       235     245.000 236     232.500 237     220.000                 \r\n                  592-        TEMP    1       238     207.500 239     195.000 240     182.500                 \r\n                  593-        TEMP    1       241     170.000 242     157.500 243     145.000                 \r\n                  594-        TEMP    1       244     132.500 245     120.000 246     107.500                 \r\n                  595-        TEMP    1       247     95.000                                                  \r\n                              ENDDATA\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE           3517\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   14.239\r\n                                        RMS WAVEFRONT   14.436\r\n                                        RMS BANDWIDTH   14.534\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE           3622\r\n                                        MAX WAVEFRONT       21\r\n                                        AVG WAVEFRONT   14.664\r\n                                        RMS WAVEFRONT   15.039\r\n                                        RMS BANDWIDTH   15.423\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       15        15\r\n                                        PROFILE (P)                       3517      3517\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           15        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       14.239    14.239\r\n                                        RMS WAVEFRONT (C-RMS)           14.436    14.436\r\n                                        RMS BANDWITCH (B-RMS)           14.534    14.534\r\n                                        NUMBER OF GRID POINTS (N)                    247\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               216\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       894\r\n                                        MATRIX DENSITY, PERCENT                    3.336\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -8.5814750E-16\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       2-T1).\r\n             2 T1  5.68434E-13        3 T1  3.06954E-12        4 T1 -1.70530E-12        5 T1  6.82121E-13        7 T1 -5.68434E-13\r\n             8 T1  2.61480E-12        9 T1 -6.93490E-12       10 T1  2.38742E-12       11 T1  9.72022E-12       12 T1 -1.50067E-11\r\n            13 T1 -1.02318E-12       14 T2  1.02318E-12       15 T1  2.27374E-12       15 T2  9.09495E-13       16 T1  2.27374E-13\r\n            16 T2  2.27374E-12       17 T1  4.32010E-12       17 T2 -9.09495E-13       18 T1 -1.13687E-12       18 T2  3.18323E-12\r\n            19 T1 -4.54747E-13       19 T2  9.09495E-13       20 T1 -1.06866E-11       21 T1 -6.13909E-12       21 T2  1.81899E-12\r\n            22 T1 -1.11413E-11       22 T2  2.72848E-12       23 T1  2.16005E-11       23 T2  9.09495E-13       24 T1 -1.70530E-12\r\n            24 T2  2.72848E-12       25 T1 -3.92220E-11       25 T2  1.81899E-12       26 T1  1.05302E-11       27 T2 -9.09495E-13\r\n            28 T1  4.54747E-13       28 T2 -7.73070E-12       29 T1  5.22959E-12       29 T2 -5.91172E-12       30 T1  1.04592E-11\r\n            30 T2  9.09495E-13       31 T1  1.50067E-11       31 T2 -8.18545E-12       32 T1 -4.32010E-12       32 T2 -1.81899E-12\r\n            33 T1 -2.27374E-12       33 T2 -4.54747E-12       34 T1  7.95808E-12       35 T1  6.59384E-12       35 T2 -3.63798E-12\r\n            36 T1 -1.29603E-11       36 T2  3.63798E-12       37 T1  3.59250E-11       37 T2  3.63798E-12       38 T1 -1.47793E-11\r\n            38 T2  6.36646E-12       39 T1  2.50111E-12       40 T2  3.41061E-13       41 T1 -9.09495E-13       41 T2  1.31877E-11\r\n            42 T1 -2.27374E-12       42 T2  5.00222E-12       43 T1 -6.82121E-12       43 T2 -4.09273E-12       44 T1  3.18323E-12\r\n            44 T2 -1.09139E-11       45 T1  2.72848E-12       45 T2  1.81899E-12       46 T1  5.91172E-12       46 T2  1.81899E-12\r\n            47 T1  1.40972E-11       47 T2 -5.45697E-12       48 T1  3.63798E-12       48 T2  3.63798E-12       49 T1 -2.50111E-12\r\n            49 T2  7.27596E-12       50 T1 -1.02318E-11       50 T2 -8.18545E-12       51 T1  7.50333E-12       51 T2 -9.09495E-13\r\n            52 T1 -1.06013E-11       52 T2  3.63798E-12       53 T2 -6.82121E-13       54 T1  4.54747E-13       54 T2  4.54747E-13\r\n            55 T1  4.09273E-12       55 T2 -1.45519E-11       56 T1 -5.45697E-12       56 T2  1.81899E-12       57 T1  3.18323E-12\r\n            57 T2  2.27374E-12       58 T1 -5.91172E-12       59 T1 -1.09139E-11       59 T2 -5.45697E-12       60 T1  7.73070E-12\r\n            60 T2  1.27329E-11       61 T1 -6.82121E-12       61 T2 -9.09495E-13       62 T1 -2.27374E-12       62 T2  1.00044E-11\r\n            63 T1  1.40972E-11       63 T2  1.36424E-11       64 T1 -1.72804E-11       64 T2 -7.27596E-12       65 T1  1.33866E-11\r\n            65 T2  9.09495E-13       66 T2  8.07177E-12       67 T1  9.09495E-13       67 T2  7.04858E-12       68 T1  4.54747E-13\r\n            68 T2  1.81899E-12       69 T1 -5.00222E-12       69 T2 -1.81899E-12       70 T1  3.63798E-12       70 T2 -6.82121E-12\r\n            71 T1 -5.91172E-12       71 T2  9.09495E-13       72 T1  6.36646E-12       72 T2  4.54747E-12       73 T1 -9.09495E-13\r\n            73 T2 -6.36646E-12       74 T1 -1.59162E-11       74 T2 -5.45697E-12       75 T1 -3.63798E-12       75 T2  5.45697E-12\r\n            76 T1 -9.54969E-12       76 T2 -5.45697E-12       77 T2  2.72848E-12       78 T1 -1.53477E-12       78 T2 -5.45697E-12\r\n            79 T2  5.68434E-13       80 T1 -9.09495E-13       80 T2  3.41061E-12       81 T1 -1.18234E-11       81 T2 -3.18323E-12\r\n            82 T1  1.81899E-12       82 T2 -1.27329E-11       83 T1 -4.54747E-13       83 T2  7.27596E-12       84 T1 -1.36424E-12\r\n            84 T2 -5.45697E-12       85 T1 -1.18234E-11       85 T2  1.90994E-11       86 T1  1.36424E-12       86 T2 -1.45519E-11\r\n            87 T1 -2.50111E-11       87 T2 -9.09495E-13       88 T1 -5.91172E-12       88 T2  1.36424E-11       89 T2  9.09495E-12\r\n            90 T1 -1.90994E-11       90 T2 -2.72848E-12       91 T1 -1.17097E-11       92 T2  1.06866E-11       93 T2 -3.41061E-12\r\n            94 T1 -3.63798E-12       94 T2  1.54614E-11       95 T1  4.54747E-12       95 T2  1.36424E-11       96 T1 -2.72848E-12\r\n            96 T2  5.00222E-12       97 T2 -9.09495E-12       98 T1 -1.18234E-11       98 T2 -1.18234E-11       99 T2  1.00044E-11\r\n           100 T1  3.18323E-12      100 T2 -1.72804E-11      101 T1  9.09495E-13      101 T2  6.36646E-12      102 T1  3.63798E-12\r\n           102 T2 -1.72804E-11      103 T1  2.72848E-12      103 T2 -2.72848E-12      104 T1 -4.03588E-12      104 T2 -1.81899E-12\r\n           105 T2 -1.43245E-11      106 T1 -3.63798E-12      106 T2  1.02318E-11      107 T2 -6.82121E-12      108 T1  5.45697E-12\r\n           108 T2  9.54969E-12      109 T1 -4.54747E-12      109 T2  1.68257E-11      110 T1 -8.18545E-12      110 T2 -4.54747E-12\r\n           111 T1  2.72848E-12      111 T2  1.27329E-11      112 T1 -1.45519E-11      112 T2 -1.81899E-12      113 T1  4.54747E-12\r\n           113 T2 -2.72848E-12      114 T1 -1.63709E-11      114 T2 -1.00044E-11      115 T1 -9.09495E-13      115 T2 -9.09495E-13\r\n           116 T1  8.18545E-12      116 T2  1.36424E-11      117 T1  3.75167E-12      117 T2 -1.81899E-12      118 T2  8.29914E-12\r\n           119 T2  5.22959E-12      120 T2 -4.54747E-13      121 T1 -2.72848E-12      121 T2  2.50111E-11      122 T1  2.72848E-12\r\n           122 T2 -1.13687E-11      123 T1 -5.45697E-12      123 T2  8.18545E-12      124 T1  5.45697E-12      124 T2  1.00044E-11\r\n           125 T1 -9.09495E-13      125 T2  9.09495E-12      126 T1  6.36646E-12      126 T2 -1.18234E-11      127 T1  5.45697E-12\r\n           127 T2  4.54747E-12      128 T1  1.81899E-11      128 T2 -1.81899E-12      129 T1  3.63798E-12      129 T2 -8.18545E-12\r\n           130 T1 -9.49285E-12      130 T2 -7.27596E-12      131 T2 -1.81899E-12      132 T1 -7.27596E-12      132 T2 -4.54747E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n           133 T1  9.09495E-12      133 T2 -1.59162E-11      134 T1 -7.27596E-12      134 T2 -4.54747E-13      135 T1  4.54747E-12\r\n           135 T2 -1.50067E-11      136 T1 -1.81899E-12      137 T1 -7.27596E-12      137 T2  1.00044E-11      138 T1  1.18234E-11\r\n           138 T2 -2.63753E-11      139 T1  9.09495E-13      139 T2  9.09495E-13      140 T1 -3.63798E-12      140 T2 -1.00044E-11\r\n           141 T1 -1.09139E-11      141 T2 -1.81899E-12      142 T1  1.45519E-11      142 T2 -1.81899E-12      143 T1  2.89901E-12\r\n           143 T2 -3.63798E-12      144 T2 -7.73070E-12      146 T2 -2.13731E-11      147 T1 -9.09495E-13      147 T2  2.22826E-11\r\n           148 T1 -1.00044E-11      148 T2  2.68301E-11      149 T1  1.81899E-12      149 T2 -7.27596E-12      150 T2 -2.27374E-11\r\n           151 T1 -1.36424E-11      151 T2  3.63798E-12      152 T1 -9.09495E-12      152 T2 -4.36557E-11      153 T1  8.18545E-12\r\n           153 T2  7.27596E-12      154 T1  1.45519E-11      154 T2 -7.27596E-12      155 T1 -3.63798E-11      155 T2 -4.54747E-12\r\n           156 T1  1.42109E-12      156 T2  3.63798E-12      157 T2  1.81899E-12      158 T1 -1.81899E-12      158 T2 -2.93312E-11\r\n           159 T2  2.72848E-11      160 T2 -2.81943E-11      161 T1 -8.18545E-12      161 T2 -9.09495E-12      162 T1 -9.09495E-12\r\n           162 T2 -1.36424E-11      163 T1 -2.72848E-12      163 T2  1.36424E-11      164 T1  1.81899E-12      164 T2  1.54614E-11\r\n           165 T1  1.09139E-11      165 T2  9.09495E-13      166 T1  1.27329E-11      166 T2  1.18234E-11      167 T1  1.27329E-11\r\n           167 T2 -1.09139E-11      168 T1  9.09495E-12      168 T2  5.45697E-12      169 T1 -3.29692E-12      169 T2  1.81899E-11\r\n           170 T2 -1.58025E-11      171 T1  3.63798E-12      171 T2  2.02363E-11      172 T1  3.63798E-12      172 T2 -1.13687E-11\r\n           173 T1 -5.45697E-12      173 T2  2.45564E-11      174 T1 -5.45697E-12      174 T2 -1.09139E-11      175 T1 -8.18545E-12\r\n           175 T2  3.36513E-11      176 T1  1.72804E-11      176 T2  2.45564E-11      177 T1 -7.27596E-12      177 T2 -1.72804E-11\r\n           178 T1 -4.54747E-12      178 T2 -1.63709E-11      179 T1 -1.09139E-11      179 T2 -4.09273E-11      180 T1 -1.54614E-11\r\n           180 T2  3.45608E-11      181 T1  5.45697E-12      181 T2 -6.36646E-12      182 T1 -1.08571E-11      182 T2  1.09139E-11\r\n           183 T2  1.06866E-11      184 T1  9.09495E-12      184 T2 -7.73070E-12      185 T1  5.45697E-12      185 T2 -1.81899E-12\r\n           186 T1  3.63798E-12      186 T2  1.86446E-11      187 T1 -5.45697E-12      187 T2 -3.63798E-11      188 T1 -3.63798E-12\r\n           188 T2 -3.63798E-12      189 T1 -9.09495E-12      189 T2  2.72848E-12      190 T1  3.63798E-12      190 T2 -2.18279E-11\r\n           191 T1  5.45697E-12      191 T2  1.81899E-12      192 T1 -1.27329E-11      192 T2  2.91038E-11      193 T1 -5.45697E-12\r\n           193 T2 -5.45697E-12      194 T1 -1.54614E-11      194 T2  2.72848E-11      195 T1  7.44649E-12      195 T2  1.09139E-11\r\n           196 T2 -5.00222E-12      197 T1  3.63798E-12      197 T2  5.45697E-12      198 T1 -1.81899E-12      198 T2 -5.09317E-11\r\n           199 T1  1.81899E-12      199 T2  4.09273E-11      200 T1  3.63798E-12      200 T2  8.18545E-11      201 T1  2.18279E-11\r\n           201 T2  2.00089E-11      202 T1 -3.27418E-11      202 T2 -1.45519E-11      203 T1 -1.36424E-11      203 T2  4.54747E-12\r\n           204 T1  7.27596E-12      204 T2 -1.27329E-11      205 T1 -4.00178E-11      205 T2  7.27596E-12      206 T1  1.36424E-11\r\n           206 T2 -2.72848E-12      207 T1  1.81899E-11      207 T2 -9.09495E-12      208 T1 -1.08002E-11      208 T2  1.81899E-11\r\n           209 T2  2.59206E-11      210 T1  1.81899E-12      210 T2  2.50111E-11      211 T1  5.45697E-12      211 T2  3.86535E-11\r\n           212 T1  7.27596E-12      212 T2 -7.27596E-11      213 T1 -9.09495E-12      214 T1 -1.27329E-11      214 T2 -9.09495E-12\r\n           215 T1 -1.27329E-11      215 T2  2.63753E-11      216 T1  1.81899E-11      216 T2  3.63798E-12      217 T1 -1.81899E-11\r\n           217 T2  7.45786E-11      218 T1  2.54659E-11      218 T2  4.18368E-11      219 T1 -1.00044E-11      219 T2  1.63709E-11\r\n           220 T1 -1.90994E-11      220 T2  1.81899E-12      221 T1  1.84741E-11      221 T2 -1.81899E-11      222 T2 -1.27329E-11\r\n           223 T1 -9.09495E-12      223 T2 -1.81899E-11      224 T1 -1.81899E-12      224 T2 -2.22826E-11      225 T1  1.09139E-11\r\n           225 T2  5.00222E-11      226 T1 -5.45697E-12      226 T2 -5.36602E-11      227 T1 -1.81899E-12      227 T2  1.63709E-11\r\n           228 T1  1.09139E-11      228 T2  2.72848E-12      229 T1  1.27329E-11      229 T2 -5.09317E-11      230 T2 -2.72848E-11\r\n           231 T1  1.18234E-11      231 T2 -1.45519E-11      232 T1  1.72804E-11      232 T2  2.00089E-11      233 T1 -2.00089E-11\r\n           234 T1 -4.49063E-12      234 T2  1.45519E-11      235 T2 -7.27596E-12      236 T1  2.04636E-12      236 T2  3.63798E-12\r\n           237 T1  5.45697E-12      237 T2  7.27596E-12      238 T1 -7.95808E-12      238 T2 -4.00178E-11      239 T1  5.22959E-12\r\n           239 T2  2.00089E-11      240 T1  1.68257E-11      240 T2  3.63798E-12      241 T1 -3.97904E-12      241 T2 -2.54659E-11\r\n           242 T1 -6.48015E-12      242 T2 -1.27329E-11      243 T1  1.59162E-12      243 T2 -9.09495E-12      244 T1 -1.93268E-12\r\n           244 T2  2.45564E-11      245 T1  6.93490E-12      245 T2 -3.18323E-11      246 T1 -1.55183E-11      246 T2 -1.45519E-11\r\n           247 T1 -9.09495E-13      247 T2 -1.09139E-11\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.157381E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.116066E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.882128E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      7.460943E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      8.856850E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.007298E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.111097E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      1.197074E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      1.265027E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.314571E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      1.345112E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      1.355845E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      0.0            8.286103E-03   0.0            0.0            0.0            0.0                           \r\n            80      G      2.123252E-03   8.256845E-03   0.0            0.0            0.0            0.0                           \r\n            81      G      4.049665E-03   8.170315E-03   0.0            0.0            0.0            0.0                           \r\n            82      G      5.786915E-03   8.030506E-03   0.0            0.0            0.0            0.0                           \r\n            83      G      7.341697E-03   7.844301E-03   0.0            0.0            0.0            0.0                           \r\n            84      G      8.719338E-03   7.621219E-03   0.0            0.0            0.0            0.0                           \r\n            85      G      9.923656E-03   7.373095E-03   0.0            0.0            0.0            0.0                           \r\n            86      G      1.095676E-02   7.113734E-03   0.0            0.0            0.0            0.0                           \r\n            87      G      1.181894E-02   6.858652E-03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.250852E-02   6.624832E-03   0.0            0.0            0.0            0.0                           \r\n            89      G      1.302202E-02   6.430535E-03   0.0            0.0            0.0            0.0                           \r\n            90      G      1.335381E-02   6.295220E-03   0.0            0.0            0.0            0.0                           \r\n            91      G      1.349584E-02   6.239446E-03   0.0            0.0            0.0            0.0                           \r\n           157      G      0.0            1.754600E-02   0.0            0.0            0.0            0.0                           \r\n           158      G      2.149940E-03   1.745657E-02   0.0            0.0            0.0            0.0                           \r\n           159      G      4.108143E-03   1.719422E-02   0.0            0.0            0.0            0.0                           \r\n           160      G      5.886266E-03   1.677581E-02   0.0            0.0            0.0            0.0                           \r\n           161      G      7.492291E-03   1.622622E-02   0.0            0.0            0.0            0.0                           \r\n           162      G      8.930592E-03   1.557521E-02   0.0            0.0            0.0            0.0                           \r\n           163      G      1.020269E-02   1.485486E-02   0.0            0.0            0.0            0.0                           \r\n           164      G      1.130809E-02   1.409787E-02   0.0            0.0            0.0            0.0                           \r\n           165      G      1.224515E-02   1.333675E-02   0.0            0.0            0.0            0.0                           \r\n           166      G      1.301171E-02   1.260345E-02   0.0            0.0            0.0            0.0                           \r\n           167      G      1.360581E-02   1.192974E-02   0.0            0.0            0.0            0.0                           \r\n           168      G      1.402637E-02   1.134859E-02   0.0            0.0            0.0            0.0                           \r\n           169      G      1.427389E-02   1.089695E-02   0.0            0.0            0.0            0.0                           \r\n           235      G      0.0            2.816095E-02   0.0            0.0            0.0            0.0                           \r\n           236      G      3.106246E-03   2.787872E-02   0.0            0.0            0.0            0.0                           \r\n           237      G      5.946183E-03   2.713641E-02   0.0            0.0            0.0            0.0                           \r\n           238      G      8.493861E-03   2.609289E-02   0.0            0.0            0.0            0.0                           \r\n           239      G      1.074446E-02   2.484037E-02   0.0            0.0            0.0            0.0                           \r\n           240      G      1.270205E-02   2.344462E-02   0.0            0.0            0.0            0.0                           \r\n           241      G      1.437441E-02   2.195764E-02   0.0            0.0            0.0            0.0                           \r\n           242      G      1.577201E-02   2.042312E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           243      G      1.690798E-02   1.887910E-02   0.0            0.0            0.0            0.0                           \r\n           244      G      1.779900E-02   1.735900E-02   0.0            0.0            0.0            0.0                           \r\n           245      G      1.846545E-02   1.589266E-02   0.0            0.0            0.0            0.0                           \r\n           246      G      1.893362E-02   1.450867E-02   0.0            0.0            0.0            0.0                           \r\n           247      G      1.923642E-02   1.325639E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.559223E+03  -3.559223E+03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.433977E+02  -6.875048E+03   0.0            0.0            0.0            0.0                           \r\n             3      G      2.480757E+02  -6.383575E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      2.527524E+02  -5.882747E+03   0.0            0.0            0.0            0.0                           \r\n             5      G      2.585908E+02  -5.371403E+03   0.0            0.0            0.0            0.0                           \r\n             6      G      2.631287E+02  -4.849684E+03   0.0            0.0            0.0            0.0                           \r\n             7      G      2.675220E+02  -4.319033E+03   0.0            0.0            0.0            0.0                           \r\n             8      G      2.719160E+02  -3.779595E+03   0.0            0.0            0.0            0.0                           \r\n             9      G      2.805852E+02  -3.227094E+03   0.0            0.0            0.0            0.0                           \r\n            10      G      2.836848E+02  -2.662824E+03   0.0            0.0            0.0            0.0                           \r\n            11      G      2.862157E+02  -2.092924E+03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.887468E+02  -1.517961E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.146071E+02  -6.146071E+02   0.0            0.0            0.0            0.0                           \r\n            14      G     -7.118446E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      4.867954E+02   4.882812E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.961514E+02   4.882812E-04   0.0            0.0            0.0            0.0                           \r\n            17      G      5.055049E+02   2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            18      G      5.171816E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      5.262573E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            20      G      5.350439E+02   1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            21      G      5.438320E+02  -1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            22      G      5.611704E+02   1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            23      G      5.673696E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            24      G      5.724315E+02   1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      5.774937E+02  -6.103516E-05   0.0            0.0            0.0            0.0                           \r\n            26      G      1.229214E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.488293E+03  -7.426135E+03  -1.071265E+01       -0.1034      -1.488274E+03  -7.426154E+03   2.968940E+03          \r\n        2       -1.445551E+03  -6.018625E+03  -3.169189E+01       -0.3970      -1.445331E+03  -6.018845E+03   2.286757E+03          \r\n        3       -1.361938E+03  -4.650959E+03  -5.123486E+01       -0.8922      -1.361140E+03  -4.651757E+03   1.645309E+03          \r\n        4       -1.241416E+03  -3.318562E+03  -6.829102E+01       -1.8810      -1.239173E+03  -3.320805E+03   1.040816E+03          \r\n        5       -1.090002E+03  -2.012215E+03  -8.187305E+01       -5.0342      -1.082790E+03  -2.019427E+03   4.683187E+02          \r\n        6       -9.155820E+02  -7.214375E+02  -9.108105E+01      -68.4119      -6.853978E+02  -9.516217E+02   1.331119E+02          \r\n        7       -7.277139E+02   5.697432E+02  -9.512500E+01      -85.8290       5.766803E+02  -7.346510E+02   6.556656E+02          \r\n        8       -5.374834E+02   1.880909E+03  -9.332812E+01      -87.7933       1.884505E+03  -5.410797E+02   1.212793E+03          \r\n        9       -3.571318E+02   3.225220E+03  -8.511133E+01      -88.6398       3.227241E+03  -3.591528E+02   1.793197E+03          \r\n       10       -1.999941E+02   4.628673E+03  -7.007227E+01      -89.1688       4.629689E+03  -2.010107E+02   2.415350E+03          \r\n       11       -8.002637E+01   6.118990E+03  -4.795117E+01      -89.5568       6.119361E+03  -8.039722E+01   3.099879E+03          \r\n       12       -1.154346E+01   7.724462E+03  -1.872266E+01      -89.8613       7.724508E+03  -1.158887E+01   3.868048E+03          \r\n       15       -1.454961E+03  -5.978324E+03  -9.530908E+01       -1.2065      -1.452954E+03  -5.980332E+03   2.263689E+03          \r\n       20       -7.327686E+02   5.718818E+02  -2.859502E+02      -78.1648       6.318036E+02  -7.926903E+02   7.122469E+02          \r\n       28       -1.472193E+03  -5.897449E+03  -1.596125E+02       -2.0630      -1.466444E+03  -5.903199E+03   2.218377E+03          \r\n       33       -7.418076E+02   5.761768E+02  -4.783428E+02      -72.0126       7.314833E+02  -8.971142E+02   8.142988E+02          \r\n       41       -1.494023E+03  -5.775473E+03  -2.250210E+02       -3.0003      -1.482229E+03  -5.787267E+03   2.152519E+03          \r\n       46       -7.526748E+02   5.826475E+02  -6.730215E+02      -67.3855       8.629996E+02  -1.033027E+03   9.480133E+02          \r\n       54       -1.515453E+03  -5.611648E+03  -2.919043E+02       -4.0557      -1.494756E+03  -5.632346E+03   2.068795E+03          \r\n       59       -7.619873E+02   5.911924E+02  -8.701318E+02      -63.9338       1.016829E+03  -1.187624E+03   1.102226E+03          \r\n       67       -1.529553E+03  -5.405090E+03  -3.605654E+02       -5.2703      -1.496292E+03  -5.438350E+03   1.971029E+03          \r\n       72       -7.649639E+02   6.015518E+02  -1.069069E+03      -61.2916       1.187053E+03  -1.350465E+03   1.268759E+03          \r\n       80       -1.527146E+03  -5.154805E+03  -4.312373E+02       -6.6869      -1.476588E+03  -5.205363E+03   1.864388E+03          \r\n       85       -7.552686E+02   6.130459E+02  -1.268178E+03      -59.1730       1.369842E+03  -1.512064E+03   1.440953E+03          \r\n       93       -1.496502E+03  -4.859844E+03  -5.040684E+02       -8.3429      -1.422581E+03  -4.933765E+03   1.755592E+03          \r\n       98       -7.247959E+02   6.244619E+02  -1.464492E+03      -57.3668       1.562241E+03  -1.662575E+03   1.612408E+03          \r\n      106       -1.422809E+03  -4.519348E+03  -5.791094E+02      -10.2538      -1.318049E+03  -4.624107E+03   1.653029E+03          \r\n      111       -6.636201E+02   6.336650E+02  -1.653372E+03      -55.7104       1.761079E+03  -1.791034E+03   1.776056E+03          \r\n      118       -1.340590E+03  -5.443752E+03  -2.232520E+02       -3.1052      -1.328479E+03  -5.455863E+03   2.063692E+03          \r\n      119       -1.287480E+03  -4.132812E+03  -6.562520E+02      -12.3815      -1.143416E+03  -4.276877E+03   1.566731E+03          \r\n      120       -1.187596E+03  -2.969047E+03  -1.048727E+03      -24.8287      -7.023782E+02  -3.454264E+03   1.375943E+03          \r\n      121       -1.051994E+03  -1.935428E+03  -1.376873E+03      -36.1066      -4.771887E+01  -2.939703E+03   1.445992E+03          \r\n      122       -8.938379E+02  -1.007662E+03  -1.623105E+03      -43.9959       6.733529E+02  -2.574853E+03   1.624103E+03          \r\n      123       -7.260586E+02  -1.593945E+02  -1.775879E+03      -49.5324       1.355612E+03  -2.241065E+03   1.798339E+03          \r\n      124       -5.599951E+02   6.374658E+02  -1.828169E+03      -54.0669       1.962451E+03  -1.884980E+03   1.923715E+03          \r\n      125       -4.046943E+02   1.409841E+03  -1.775419E+03      -58.5339       2.496375E+03  -1.491229E+03   1.993802E+03          \r\n      126       -2.669678E+02   2.175989E+03  -1.613372E+03      -63.5646       2.978116E+03  -1.069095E+03   2.023605E+03          \r\n      127       -1.519277E+02   2.960170E+03  -1.335913E+03      -69.6765       3.454963E+03  -6.467205E+02   2.050842E+03          \r\n      128       -6.418262E+01   3.785599E+03  -9.318965E+02      -77.0835       3.999314E+03  -2.778979E+02   2.138606E+03          \r\n      129       -1.046924E+01   4.679042E+03  -3.827612E+02      -85.3644       4.710078E+03  -4.150513E+01   2.375792E+03          \r\n      132       -1.067086E+03  -3.700289E+03  -7.351289E+02      -14.5885      -8.757571E+02  -3.891618E+03   1.507930E+03          \r\n      137       -4.009131E+02   6.312900E+02  -1.979678E+03      -52.3059       2.161034E+03  -1.930657E+03   2.045846E+03          \r\n      145       -7.317246E+02  -3.222852E+03  -8.148008E+02      -16.5956      -4.888900E+02  -3.465686E+03   1.488398E+03          \r\n      150       -1.731904E+02   6.092197E+02  -2.095479E+03      -50.2874       2.349698E+03  -1.913669E+03   2.131684E+03          \r\n      158       -2.424102E+02  -2.703547E+03  -8.931445E+02      -17.9860       4.754956E+01  -2.993507E+03   1.520528E+03          \r\n      163        1.343389E+02   5.645322E+02  -2.159001E+03      -47.8447       2.519125E+03  -1.820254E+03   2.169689E+03          \r\n      171        4.532285E+02  -2.149055E+03  -9.654648E+02      -18.2880       7.723005E+02  -2.468127E+03   1.620214E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIA                                                                 \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n      176        5.270498E+02   4.911182E+02  -2.148078E+03      -44.7604       2.657237E+03  -1.639069E+03   2.148153E+03          \r\n      184        1.428041E+03  -1.572961E+03  -1.021488E+03      -17.1228       1.742737E+03  -1.887657E+03   1.815197E+03          \r\n      189        9.989658E+02   3.864150E+02  -2.032856E+03      -40.7161       2.748490E+03  -1.363109E+03   2.055799E+03          \r\n      197        2.786881E+03  -1.002102E+03  -1.037965E+03      -14.3589       3.052591E+03  -1.267811E+03   2.160201E+03          \r\n      202        1.525599E+03   2.561260E+02  -1.772875E+03      -35.1506       2.773938E+03  -9.922139E+02   1.883076E+03          \r\n      210        4.683656E+03  -4.886484E+02  -9.594297E+02      -10.1771       4.855889E+03  -6.608813E+02   2.758385E+03          \r\n      215        2.057185E+03   1.204619E+02  -1.313877E+03      -26.8044       2.720999E+03  -5.433521E+02   1.632175E+03          \r\n      223        7.335062E+03  -1.335234E+02  -6.440117E+02       -4.8925       7.390188E+03  -1.886492E+02   3.789419E+03          \r\n      228        2.516575E+03   1.869629E+01  -5.862578E+02      -12.5728       2.647327E+03  -1.120555E+02   1.379691E+03          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREE RECTANGULAR PLATE WITH THERMAL LOADING                        \r\n DATE:  5/17/95\r\n END TIME: 14:30:44\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01032a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01032A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                          \r\n                  3      LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL          \r\n                  4      SPC   = 1                                                                       \r\n                  5      TEMPERATURE = 1                                                                 \r\n                  6      OUTPUT                                                                          \r\n                  7      SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                       \r\n                  8      SET 2 = 1 THRU 26                                                               \r\n                  9      DISPLACEMENTS = 1                                                               \r\n                 10      OLOAD = 2                                                                       \r\n                 11      $       STRESSES FOR POINTS ON PUBLISHED CURVES                                 \r\n                 12      SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,             \r\n                 13              106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,              \r\n                 14              184,189, 197,202, 210,215, 223,228                                      \r\n                 15      STRESSES = 3                                                                    \r\n                 16      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   595, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n                    2-        +CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n                    3-        +CNG12  209     222                                                             \r\n                    4-        CNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n                    5-        +CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n                    6-        +CNG22  210     223                                                             \r\n                    7-        CNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n                    8-        +CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n                    9-        +CNG32  211     224                                                             \r\n                   10-        CNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n                   11-        +CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n                   12-        +CNG42  212     225                                                             \r\n                   13-        CNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n                   14-        +CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n                   15-        +CNG52  213     226                                                             \r\n                   16-        CNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n                   17-        +CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n                   18-        +CNG62  214     227                                                             \r\n                   19-        CNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n                   20-        +CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n                   21-        +CNG72  215     228                                                             \r\n                   22-        CNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n                   23-        +CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n                   24-        +CNG82  216     229                                                             \r\n                   25-        CNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n                   26-        +CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n                   27-        +CNG92  217     230                                                             \r\n                   28-        CNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n                   29-        +CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n                   30-        +CNG102 218     231                                                             \r\n                   31-        CNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n                   32-        +CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n                   33-        +CNG112 219     232                                                             \r\n                   34-        CNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n                   35-        +CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n                   36-        +CNG122 220     233                                                             \r\n                   37-        CQDMEM1 1       21      1       2       15      14      .00                     \r\n                   38-        CQDMEM1 2       21      2       3       16      15      .00                     \r\n                   39-        CQDMEM1 3       21      3       4       17      16      .00                     \r\n                   40-        CQDMEM1 4       21      4       5       18      17      .00                     \r\n                   41-        CQDMEM1 5       21      5       6       19      18      .00                     \r\n                   42-        CQDMEM1 6       21      6       7       20      19      .00                     \r\n                   43-        CQDMEM1 7       21      7       8       21      20      .00                     \r\n                   44-        CQDMEM1 8       21      8       9       22      21      .00                     \r\n                   45-        CQDMEM1 9       21      9       10      23      22      .00                     \r\n                   46-        CQDMEM1 10      21      10      11      24      23      .00                     \r\n                   47-        CQDMEM1 11      21      11      12      25      24      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM1 12      21      12      13      26      25      .00                     \r\n                   49-        CQDMEM1 14      21      14      15      28      27      .00                     \r\n                   50-        CQDMEM1 15      21      15      16      29      28      .00                     \r\n                   51-        CQDMEM1 16      21      16      17      30      29      .00                     \r\n                   52-        CQDMEM1 17      21      17      18      31      30      .00                     \r\n                   53-        CQDMEM1 18      21      18      19      32      31      .00                     \r\n                   54-        CQDMEM1 19      21      19      20      33      32      .00                     \r\n                   55-        CQDMEM1 20      21      20      21      34      33      .00                     \r\n                   56-        CQDMEM1 21      21      21      22      35      34      .00                     \r\n                   57-        CQDMEM1 22      21      22      23      36      35      .00                     \r\n                   58-        CQDMEM1 23      21      23      24      37      36      .00                     \r\n                   59-        CQDMEM1 24      21      24      25      38      37      .00                     \r\n                   60-        CQDMEM1 25      21      25      26      39      38      .00                     \r\n                   61-        CQDMEM1 27      21      27      28      41      40      .00                     \r\n                   62-        CQDMEM1 28      21      28      29      42      41      .00                     \r\n                   63-        CQDMEM1 29      21      29      30      43      42      .00                     \r\n                   64-        CQDMEM1 30      21      30      31      44      43      .00                     \r\n                   65-        CQDMEM1 31      21      31      32      45      44      .00                     \r\n                   66-        CQDMEM1 32      21      32      33      46      45      .00                     \r\n                   67-        CQDMEM1 33      21      33      34      47      46      .00                     \r\n                   68-        CQDMEM1 34      21      34      35      48      47      .00                     \r\n                   69-        CQDMEM1 35      21      35      36      49      48      .00                     \r\n                   70-        CQDMEM1 36      21      36      37      50      49      .00                     \r\n                   71-        CQDMEM1 37      21      37      38      51      50      .00                     \r\n                   72-        CQDMEM1 38      21      38      39      52      51      .00                     \r\n                   73-        CQDMEM1 40      21      40      41      54      53      .00                     \r\n                   74-        CQDMEM1 41      21      41      42      55      54      .00                     \r\n                   75-        CQDMEM1 42      21      42      43      56      55      .00                     \r\n                   76-        CQDMEM1 43      21      43      44      57      56      .00                     \r\n                   77-        CQDMEM1 44      21      44      45      58      57      .00                     \r\n                   78-        CQDMEM1 45      21      45      46      59      58      .00                     \r\n                   79-        CQDMEM1 46      21      46      47      60      59      .00                     \r\n                   80-        CQDMEM1 47      21      47      48      61      60      .00                     \r\n                   81-        CQDMEM1 48      21      48      49      62      61      .00                     \r\n                   82-        CQDMEM1 49      21      49      50      63      62      .00                     \r\n                   83-        CQDMEM1 50      21      50      51      64      63      .00                     \r\n                   84-        CQDMEM1 51      21      51      52      65      64      .00                     \r\n                   85-        CQDMEM1 53      21      53      54      67      66      .00                     \r\n                   86-        CQDMEM1 54      21      54      55      68      67      .00                     \r\n                   87-        CQDMEM1 55      21      55      56      69      68      .00                     \r\n                   88-        CQDMEM1 56      21      56      57      70      69      .00                     \r\n                   89-        CQDMEM1 57      21      57      58      71      70      .00                     \r\n                   90-        CQDMEM1 58      21      58      59      72      71      .00                     \r\n                   91-        CQDMEM1 59      21      59      60      73      72      .00                     \r\n                   92-        CQDMEM1 60      21      60      61      74      73      .00                     \r\n                   93-        CQDMEM1 61      21      61      62      75      74      .00                     \r\n                   94-        CQDMEM1 62      21      62      63      76      75      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQDMEM1 63      21      63      64      77      76      .00                     \r\n                   96-        CQDMEM1 64      21      64      65      78      77      .00                     \r\n                   97-        CQDMEM1 66      21      66      67      80      79      .00                     \r\n                   98-        CQDMEM1 67      21      67      68      81      80      .00                     \r\n                   99-        CQDMEM1 68      21      68      69      82      81      .00                     \r\n                  100-        CQDMEM1 69      21      69      70      83      82      .00                     \r\n                  101-        CQDMEM1 70      21      70      71      84      83      .00                     \r\n                  102-        CQDMEM1 71      21      71      72      85      84      .00                     \r\n                  103-        CQDMEM1 72      21      72      73      86      85      .00                     \r\n                  104-        CQDMEM1 73      21      73      74      87      86      .00                     \r\n                  105-        CQDMEM1 74      21      74      75      88      87      .00                     \r\n                  106-        CQDMEM1 75      21      75      76      89      88      .00                     \r\n                  107-        CQDMEM1 76      21      76      77      90      89      .00                     \r\n                  108-        CQDMEM1 77      21      77      78      91      90      .00                     \r\n                  109-        CQDMEM1 79      21      79      80      93      92      .00                     \r\n                  110-        CQDMEM1 80      21      80      81      94      93      .00                     \r\n                  111-        CQDMEM1 81      21      81      82      95      94      .00                     \r\n                  112-        CQDMEM1 82      21      82      83      96      95      .00                     \r\n                  113-        CQDMEM1 83      21      83      84      97      96      .00                     \r\n                  114-        CQDMEM1 84      21      84      85      98      97      .00                     \r\n                  115-        CQDMEM1 85      21      85      86      99      98      .00                     \r\n                  116-        CQDMEM1 86      21      86      87      100     99      .00                     \r\n                  117-        CQDMEM1 87      21      87      88      101     100     .00                     \r\n                  118-        CQDMEM1 88      21      88      89      102     101     .00                     \r\n                  119-        CQDMEM1 89      21      89      90      103     102     .00                     \r\n                  120-        CQDMEM1 90      21      90      91      104     103     .00                     \r\n                  121-        CQDMEM1 92      21      92      93      106     105     .00                     \r\n                  122-        CQDMEM1 93      21      93      94      107     106     .00                     \r\n                  123-        CQDMEM1 94      21      94      95      108     107     .00                     \r\n                  124-        CQDMEM1 95      21      95      96      109     108     .00                     \r\n                  125-        CQDMEM1 96      21      96      97      110     109     .00                     \r\n                  126-        CQDMEM1 97      21      97      98      111     110     .00                     \r\n                  127-        CQDMEM1 98      21      98      99      112     111     .00                     \r\n                  128-        CQDMEM1 99      21      99      100     113     112     .00                     \r\n                  129-        CQDMEM1 100     21      100     101     114     113     .00                     \r\n                  130-        CQDMEM1 101     21      101     102     115     114     .00                     \r\n                  131-        CQDMEM1 102     21      102     103     116     115     .00                     \r\n                  132-        CQDMEM1 103     21      103     104     117     116     .00                     \r\n                  133-        CQDMEM1 105     21      105     106     119     118     .00                     \r\n                  134-        CQDMEM1 106     21      106     107     120     119     .00                     \r\n                  135-        CQDMEM1 107     21      107     108     121     120     .00                     \r\n                  136-        CQDMEM1 108     21      108     109     122     121     .00                     \r\n                  137-        CQDMEM1 109     21      109     110     123     122     .00                     \r\n                  138-        CQDMEM1 110     21      110     111     124     123     .00                     \r\n                  139-        CQDMEM1 111     21      111     112     125     124     .00                     \r\n                  140-        CQDMEM1 112     21      112     113     126     125     .00                     \r\n                  141-        CQDMEM1 113     21      113     114     127     126     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQDMEM1 114     21      114     115     128     127     .00                     \r\n                  143-        CQDMEM1 115     21      115     116     129     128     .00                     \r\n                  144-        CQDMEM1 116     21      116     117     130     129     .00                     \r\n                  145-        CQDMEM1 118     21      118     119     132     131     .00                     \r\n                  146-        CQDMEM1 119     21      119     120     133     132     .00                     \r\n                  147-        CQDMEM1 120     21      120     121     134     133     .00                     \r\n                  148-        CQDMEM1 121     21      121     122     135     134     .00                     \r\n                  149-        CQDMEM1 122     21      122     123     136     135     .00                     \r\n                  150-        CQDMEM1 123     21      123     124     137     136     .00                     \r\n                  151-        CQDMEM1 124     21      124     125     138     137     .00                     \r\n                  152-        CQDMEM1 125     21      125     126     139     138     .00                     \r\n                  153-        CQDMEM1 126     21      126     127     140     139     .00                     \r\n                  154-        CQDMEM1 127     21      127     128     141     140     .00                     \r\n                  155-        CQDMEM1 128     21      128     129     142     141     .00                     \r\n                  156-        CQDMEM1 129     21      129     130     143     142     .00                     \r\n                  157-        CQDMEM1 131     21      131     132     145     144     .00                     \r\n                  158-        CQDMEM1 132     21      132     133     146     145     .00                     \r\n                  159-        CQDMEM1 133     21      133     134     147     146     .00                     \r\n                  160-        CQDMEM1 134     21      134     135     148     147     .00                     \r\n                  161-        CQDMEM1 135     21      135     136     149     148     .00                     \r\n                  162-        CQDMEM1 136     21      136     137     150     149     .00                     \r\n                  163-        CQDMEM1 137     21      137     138     151     150     .00                     \r\n                  164-        CQDMEM1 138     21      138     139     152     151     .00                     \r\n                  165-        CQDMEM1 139     21      139     140     153     152     .00                     \r\n                  166-        CQDMEM1 140     21      140     141     154     153     .00                     \r\n                  167-        CQDMEM1 141     21      141     142     155     154     .00                     \r\n                  168-        CQDMEM1 142     21      142     143     156     155     .00                     \r\n                  169-        CQDMEM1 144     21      144     145     158     157     .00                     \r\n                  170-        CQDMEM1 145     21      145     146     159     158     .00                     \r\n                  171-        CQDMEM1 146     21      146     147     160     159     .00                     \r\n                  172-        CQDMEM1 147     21      147     148     161     160     .00                     \r\n                  173-        CQDMEM1 148     21      148     149     162     161     .00                     \r\n                  174-        CQDMEM1 149     21      149     150     163     162     .00                     \r\n                  175-        CQDMEM1 150     21      150     151     164     163     .00                     \r\n                  176-        CQDMEM1 151     21      151     152     165     164     .00                     \r\n                  177-        CQDMEM1 152     21      152     153     166     165     .00                     \r\n                  178-        CQDMEM1 153     21      153     154     167     166     .00                     \r\n                  179-        CQDMEM1 154     21      154     155     168     167     .00                     \r\n                  180-        CQDMEM1 155     21      155     156     169     168     .00                     \r\n                  181-        CQDMEM1 157     21      157     158     171     170     .00                     \r\n                  182-        CQDMEM1 158     21      158     159     172     171     .00                     \r\n                  183-        CQDMEM1 159     21      159     160     173     172     .00                     \r\n                  184-        CQDMEM1 160     21      160     161     174     173     .00                     \r\n                  185-        CQDMEM1 161     21      161     162     175     174     .00                     \r\n                  186-        CQDMEM1 162     21      162     163     176     175     .00                     \r\n                  187-        CQDMEM1 163     21      163     164     177     176     .00                     \r\n                  188-        CQDMEM1 164     21      164     165     178     177     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQDMEM1 165     21      165     166     179     178     .00                     \r\n                  190-        CQDMEM1 166     21      166     167     180     179     .00                     \r\n                  191-        CQDMEM1 167     21      167     168     181     180     .00                     \r\n                  192-        CQDMEM1 168     21      168     169     182     181     .00                     \r\n                  193-        CQDMEM1 170     21      170     171     184     183     .00                     \r\n                  194-        CQDMEM1 171     21      171     172     185     184     .00                     \r\n                  195-        CQDMEM1 172     21      172     173     186     185     .00                     \r\n                  196-        CQDMEM1 173     21      173     174     187     186     .00                     \r\n                  197-        CQDMEM1 174     21      174     175     188     187     .00                     \r\n                  198-        CQDMEM1 175     21      175     176     189     188     .00                     \r\n                  199-        CQDMEM1 176     21      176     177     190     189     .00                     \r\n                  200-        CQDMEM1 177     21      177     178     191     190     .00                     \r\n                  201-        CQDMEM1 178     21      178     179     192     191     .00                     \r\n                  202-        CQDMEM1 179     21      179     180     193     192     .00                     \r\n                  203-        CQDMEM1 180     21      180     181     194     193     .00                     \r\n                  204-        CQDMEM1 181     21      181     182     195     194     .00                     \r\n                  205-        CQDMEM1 183     21      183     184     197     196     .00                     \r\n                  206-        CQDMEM1 184     21      184     185     198     197     .00                     \r\n                  207-        CQDMEM1 185     21      185     186     199     198     .00                     \r\n                  208-        CQDMEM1 186     21      186     187     200     199     .00                     \r\n                  209-        CQDMEM1 187     21      187     188     201     200     .00                     \r\n                  210-        CQDMEM1 188     21      188     189     202     201     .00                     \r\n                  211-        CQDMEM1 189     21      189     190     203     202     .00                     \r\n                  212-        CQDMEM1 190     21      190     191     204     203     .00                     \r\n                  213-        CQDMEM1 191     21      191     192     205     204     .00                     \r\n                  214-        CQDMEM1 192     21      192     193     206     205     .00                     \r\n                  215-        CQDMEM1 193     21      193     194     207     206     .00                     \r\n                  216-        CQDMEM1 194     21      194     195     208     207     .00                     \r\n                  217-        CQDMEM1 196     21      196     197     210     209     .00                     \r\n                  218-        CQDMEM1 197     21      197     198     211     210     .00                     \r\n                  219-        CQDMEM1 198     21      198     199     212     211     .00                     \r\n                  220-        CQDMEM1 199     21      199     200     213     212     .00                     \r\n                  221-        CQDMEM1 200     21      200     201     214     213     .00                     \r\n                  222-        CQDMEM1 201     21      201     202     215     214     .00                     \r\n                  223-        CQDMEM1 202     21      202     203     216     215     .00                     \r\n                  224-        CQDMEM1 203     21      203     204     217     216     .00                     \r\n                  225-        CQDMEM1 204     21      204     205     218     217     .00                     \r\n                  226-        CQDMEM1 205     21      205     206     219     218     .00                     \r\n                  227-        CQDMEM1 206     21      206     207     220     219     .00                     \r\n                  228-        CQDMEM1 207     21      207     208     221     220     .00                     \r\n                  229-        CQDMEM1 209     21      209     210     223     222     .00                     \r\n                  230-        CQDMEM1 210     21      210     211     224     223     .00                     \r\n                  231-        CQDMEM1 211     21      211     212     225     224     .00                     \r\n                  232-        CQDMEM1 212     21      212     213     226     225     .00                     \r\n                  233-        CQDMEM1 213     21      213     214     227     226     .00                     \r\n                  234-        CQDMEM1 214     21      214     215     228     227     .00                     \r\n                  235-        CQDMEM1 215     21      215     216     229     228     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQDMEM1 216     21      216     217     230     229     .00                     \r\n                  237-        CQDMEM1 217     21      217     218     231     230     .00                     \r\n                  238-        CQDMEM1 218     21      218     219     232     231     .00                     \r\n                  239-        CQDMEM1 219     21      219     220     233     232     .00                     \r\n                  240-        CQDMEM1 220     21      220     221     234     233     .00                     \r\n                  241-        CQDMEM1 222     21      222     223     236     235     .00                     \r\n                  242-        CQDMEM1 223     21      223     224     237     236     .00                     \r\n                  243-        CQDMEM1 224     21      224     225     238     237     .00                     \r\n                  244-        CQDMEM1 225     21      225     226     239     238     .00                     \r\n                  245-        CQDMEM1 226     21      226     227     240     239     .00                     \r\n                  246-        CQDMEM1 227     21      227     228     241     240     .00                     \r\n                  247-        CQDMEM1 228     21      228     229     242     241     .00                     \r\n                  248-        CQDMEM1 229     21      229     230     243     242     .00                     \r\n                  249-        CQDMEM1 230     21      230     231     244     243     .00                     \r\n                  250-        CQDMEM1 231     21      231     232     245     244     .00                     \r\n                  251-        CQDMEM1 232     21      232     233     246     245     .00                     \r\n                  252-        CQDMEM1 233     21      233     234     247     246     .00                     \r\n                  253-        GRDSET                                                  3456                    \r\n                  254-        GRID    1               .0      .0      .0                                      \r\n                  255-        GRID    2               1.0     .0      .0                                      \r\n                  256-        GRID    3               2.0     .0      .0                                      \r\n                  257-        GRID    4               3.0     .0      .0                                      \r\n                  258-        GRID    5               4.0     .0      .0                                      \r\n                  259-        GRID    6               5.0     .0      .0                                      \r\n                  260-        GRID    7               6.0     .0      .0                                      \r\n                  261-        GRID    8               7.0     .0      .0                                      \r\n                  262-        GRID    9               8.0     .0      .0                                      \r\n                  263-        GRID    10              9.0     .0      .0                                      \r\n                  264-        GRID    11              10.0    .0      .0                                      \r\n                  265-        GRID    12              11.0    .0      .0                                      \r\n                  266-        GRID    13              12.0    .0      .0                                      \r\n                  267-        GRID    14              .0      1.0     .0                                      \r\n                  268-        GRID    15              1.0     1.0     .0                                      \r\n                  269-        GRID    16              2.0     1.0     .0                                      \r\n                  270-        GRID    17              3.0     1.0     .0                                      \r\n                  271-        GRID    18              4.0     1.0     .0                                      \r\n                  272-        GRID    19              5.0     1.0     .0                                      \r\n                  273-        GRID    20              6.0     1.0     .0                                      \r\n                  274-        GRID    21              7.0     1.0     .0                                      \r\n                  275-        GRID    22              8.0     1.0     .0                                      \r\n                  276-        GRID    23              9.0     1.0     .0                                      \r\n                  277-        GRID    24              10.0    1.0     .0                                      \r\n                  278-        GRID    25              11.0    1.0     .0                                      \r\n                  279-        GRID    26              12.0    1.0     .0                                      \r\n                  280-        GRID    27              .0      2.0     .0                                      \r\n                  281-        GRID    28              1.0     2.0     .0                                      \r\n                  282-        GRID    29              2.0     2.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    30              3.0     2.0     .0                                      \r\n                  284-        GRID    31              4.0     2.0     .0                                      \r\n                  285-        GRID    32              5.0     2.0     .0                                      \r\n                  286-        GRID    33              6.0     2.0     .0                                      \r\n                  287-        GRID    34              7.0     2.0     .0                                      \r\n                  288-        GRID    35              8.0     2.0     .0                                      \r\n                  289-        GRID    36              9.0     2.0     .0                                      \r\n                  290-        GRID    37              10.0    2.0     .0                                      \r\n                  291-        GRID    38              11.0    2.0     .0                                      \r\n                  292-        GRID    39              12.0    2.0     .0                                      \r\n                  293-        GRID    40              .0      3.0     .0                                      \r\n                  294-        GRID    41              1.0     3.0     .0                                      \r\n                  295-        GRID    42              2.0     3.0     .0                                      \r\n                  296-        GRID    43              3.0     3.0     .0                                      \r\n                  297-        GRID    44              4.0     3.0     .0                                      \r\n                  298-        GRID    45              5.0     3.0     .0                                      \r\n                  299-        GRID    46              6.0     3.0     .0                                      \r\n                  300-        GRID    47              7.0     3.0     .0                                      \r\n                  301-        GRID    48              8.0     3.0     .0                                      \r\n                  302-        GRID    49              9.0     3.0     .0                                      \r\n                  303-        GRID    50              10.0    3.0     .0                                      \r\n                  304-        GRID    51              11.0    3.0     .0                                      \r\n                  305-        GRID    52              12.0    3.0     .0                                      \r\n                  306-        GRID    53              .0      4.0     .0                                      \r\n                  307-        GRID    54              1.0     4.0     .0                                      \r\n                  308-        GRID    55              2.0     4.0     .0                                      \r\n                  309-        GRID    56              3.0     4.0     .0                                      \r\n                  310-        GRID    57              4.0     4.0     .0                                      \r\n                  311-        GRID    58              5.0     4.0     .0                                      \r\n                  312-        GRID    59              6.0     4.0     .0                                      \r\n                  313-        GRID    60              7.0     4.0     .0                                      \r\n                  314-        GRID    61              8.0     4.0     .0                                      \r\n                  315-        GRID    62              9.0     4.0     .0                                      \r\n                  316-        GRID    63              10.0    4.0     .0                                      \r\n                  317-        GRID    64              11.0    4.0     .0                                      \r\n                  318-        GRID    65              12.0    4.0     .0                                      \r\n                  319-        GRID    66              .0      5.0     .0                                      \r\n                  320-        GRID    67              1.0     5.0     .0                                      \r\n                  321-        GRID    68              2.0     5.0     .0                                      \r\n                  322-        GRID    69              3.0     5.0     .0                                      \r\n                  323-        GRID    70              4.0     5.0     .0                                      \r\n                  324-        GRID    71              5.0     5.0     .0                                      \r\n                  325-        GRID    72              6.0     5.0     .0                                      \r\n                  326-        GRID    73              7.0     5.0     .0                                      \r\n                  327-        GRID    74              8.0     5.0     .0                                      \r\n                  328-        GRID    75              9.0     5.0     .0                                      \r\n                  329-        GRID    76              10.0    5.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID    77              11.0    5.0     .0                                      \r\n                  331-        GRID    78              12.0    5.0     .0                                      \r\n                  332-        GRID    79              .0      6.0     .0                                      \r\n                  333-        GRID    80              1.0     6.0     .0                                      \r\n                  334-        GRID    81              2.0     6.0     .0                                      \r\n                  335-        GRID    82              3.0     6.0     .0                                      \r\n                  336-        GRID    83              4.0     6.0     .0                                      \r\n                  337-        GRID    84              5.0     6.0     .0                                      \r\n                  338-        GRID    85              6.0     6.0     .0                                      \r\n                  339-        GRID    86              7.0     6.0     .0                                      \r\n                  340-        GRID    87              8.0     6.0     .0                                      \r\n                  341-        GRID    88              9.0     6.0     .0                                      \r\n                  342-        GRID    89              10.0    6.0     .0                                      \r\n                  343-        GRID    90              11.0    6.0     .0                                      \r\n                  344-        GRID    91              12.0    6.0     .0                                      \r\n                  345-        GRID    92              .0      7.0     .0                                      \r\n                  346-        GRID    93              1.0     7.0     .0                                      \r\n                  347-        GRID    94              2.0     7.0     .0                                      \r\n                  348-        GRID    95              3.0     7.0     .0                                      \r\n                  349-        GRID    96              4.0     7.0     .0                                      \r\n                  350-        GRID    97              5.0     7.0     .0                                      \r\n                  351-        GRID    98              6.0     7.0     .0                                      \r\n                  352-        GRID    99              7.0     7.0     .0                                      \r\n                  353-        GRID    100             8.0     7.0     .0                                      \r\n                  354-        GRID    101             9.0     7.0     .0                                      \r\n                  355-        GRID    102             10.0    7.0     .0                                      \r\n                  356-        GRID    103             11.0    7.0     .0                                      \r\n                  357-        GRID    104             12.0    7.0     .0                                      \r\n                  358-        GRID    105             .0      8.0     .0                                      \r\n                  359-        GRID    106             1.0     8.0     .0                                      \r\n                  360-        GRID    107             2.0     8.0     .0                                      \r\n                  361-        GRID    108             3.0     8.0     .0                                      \r\n                  362-        GRID    109             4.0     8.0     .0                                      \r\n                  363-        GRID    110             5.0     8.0     .0                                      \r\n                  364-        GRID    111             6.0     8.0     .0                                      \r\n                  365-        GRID    112             7.0     8.0     .0                                      \r\n                  366-        GRID    113             8.0     8.0     .0                                      \r\n                  367-        GRID    114             9.0     8.0     .0                                      \r\n                  368-        GRID    115             10.0    8.0     .0                                      \r\n                  369-        GRID    116             11.0    8.0     .0                                      \r\n                  370-        GRID    117             12.0    8.0     .0                                      \r\n                  371-        GRID    118             .0      9.0     .0                                      \r\n                  372-        GRID    119             1.0     9.0     .0                                      \r\n                  373-        GRID    120             2.0     9.0     .0                                      \r\n                  374-        GRID    121             3.0     9.0     .0                                      \r\n                  375-        GRID    122             4.0     9.0     .0                                      \r\n                  376-        GRID    123             5.0     9.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    124             6.0     9.0     .0                                      \r\n                  378-        GRID    125             7.0     9.0     .0                                      \r\n                  379-        GRID    126             8.0     9.0     .0                                      \r\n                  380-        GRID    127             9.0     9.0     .0                                      \r\n                  381-        GRID    128             10.0    9.0     .0                                      \r\n                  382-        GRID    129             11.0    9.0     .0                                      \r\n                  383-        GRID    130             12.0    9.0     .0                                      \r\n                  384-        GRID    131             .0      10.0    .0                                      \r\n                  385-        GRID    132             1.0     10.0    .0                                      \r\n                  386-        GRID    133             2.0     10.0    .0                                      \r\n                  387-        GRID    134             3.0     10.0    .0                                      \r\n                  388-        GRID    135             4.0     10.0    .0                                      \r\n                  389-        GRID    136             5.0     10.0    .0                                      \r\n                  390-        GRID    137             6.0     10.0    .0                                      \r\n                  391-        GRID    138             7.0     10.0    .0                                      \r\n                  392-        GRID    139             8.0     10.0    .0                                      \r\n                  393-        GRID    140             9.0     10.0    .0                                      \r\n                  394-        GRID    141             10.0    10.0    .0                                      \r\n                  395-        GRID    142             11.0    10.0    .0                                      \r\n                  396-        GRID    143             12.0    10.0    .0                                      \r\n                  397-        GRID    144             .0      11.0    .0                                      \r\n                  398-        GRID    145             1.0     11.0    .0                                      \r\n                  399-        GRID    146             2.0     11.0    .0                                      \r\n                  400-        GRID    147             3.0     11.0    .0                                      \r\n                  401-        GRID    148             4.0     11.0    .0                                      \r\n                  402-        GRID    149             5.0     11.0    .0                                      \r\n                  403-        GRID    150             6.0     11.0    .0                                      \r\n                  404-        GRID    151             7.0     11.0    .0                                      \r\n                  405-        GRID    152             8.0     11.0    .0                                      \r\n                  406-        GRID    153             9.0     11.0    .0                                      \r\n                  407-        GRID    154             10.0    11.0    .0                                      \r\n                  408-        GRID    155             11.0    11.0    .0                                      \r\n                  409-        GRID    156             12.0    11.0    .0                                      \r\n                  410-        GRID    157             .0      12.0    .0                                      \r\n                  411-        GRID    158             1.0     12.0    .0                                      \r\n                  412-        GRID    159             2.0     12.0    .0                                      \r\n                  413-        GRID    160             3.0     12.0    .0                                      \r\n                  414-        GRID    161             4.0     12.0    .0                                      \r\n                  415-        GRID    162             5.0     12.0    .0                                      \r\n                  416-        GRID    163             6.0     12.0    .0                                      \r\n                  417-        GRID    164             7.0     12.0    .0                                      \r\n                  418-        GRID    165             8.0     12.0    .0                                      \r\n                  419-        GRID    166             9.0     12.0    .0                                      \r\n                  420-        GRID    167             10.0    12.0    .0                                      \r\n                  421-        GRID    168             11.0    12.0    .0                                      \r\n                  422-        GRID    169             12.0    12.0    .0                                      \r\n                  423-        GRID    170             .0      13.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    171             1.0     13.0    .0                                      \r\n                  425-        GRID    172             2.0     13.0    .0                                      \r\n                  426-        GRID    173             3.0     13.0    .0                                      \r\n                  427-        GRID    174             4.0     13.0    .0                                      \r\n                  428-        GRID    175             5.0     13.0    .0                                      \r\n                  429-        GRID    176             6.0     13.0    .0                                      \r\n                  430-        GRID    177             7.0     13.0    .0                                      \r\n                  431-        GRID    178             8.0     13.0    .0                                      \r\n                  432-        GRID    179             9.0     13.0    .0                                      \r\n                  433-        GRID    180             10.0    13.0    .0                                      \r\n                  434-        GRID    181             11.0    13.0    .0                                      \r\n                  435-        GRID    182             12.0    13.0    .0                                      \r\n                  436-        GRID    183             .0      14.0    .0                                      \r\n                  437-        GRID    184             1.0     14.0    .0                                      \r\n                  438-        GRID    185             2.0     14.0    .0                                      \r\n                  439-        GRID    186             3.0     14.0    .0                                      \r\n                  440-        GRID    187             4.0     14.0    .0                                      \r\n                  441-        GRID    188             5.0     14.0    .0                                      \r\n                  442-        GRID    189             6.0     14.0    .0                                      \r\n                  443-        GRID    190             7.0     14.0    .0                                      \r\n                  444-        GRID    191             8.0     14.0    .0                                      \r\n                  445-        GRID    192             9.0     14.0    .0                                      \r\n                  446-        GRID    193             10.0    14.0    .0                                      \r\n                  447-        GRID    194             11.0    14.0    .0                                      \r\n                  448-        GRID    195             12.0    14.0    .0                                      \r\n                  449-        GRID    196             .0      15.0    .0                                      \r\n                  450-        GRID    197             1.0     15.0    .0                                      \r\n                  451-        GRID    198             2.0     15.0    .0                                      \r\n                  452-        GRID    199             3.0     15.0    .0                                      \r\n                  453-        GRID    200             4.0     15.0    .0                                      \r\n                  454-        GRID    201             5.0     15.0    .0                                      \r\n                  455-        GRID    202             6.0     15.0    .0                                      \r\n                  456-        GRID    203             7.0     15.0    .0                                      \r\n                  457-        GRID    204             8.0     15.0    .0                                      \r\n                  458-        GRID    205             9.0     15.0    .0                                      \r\n                  459-        GRID    206             10.0    15.0    .0                                      \r\n                  460-        GRID    207             11.0    15.0    .0                                      \r\n                  461-        GRID    208             12.0    15.0    .0                                      \r\n                  462-        GRID    209             .0      16.0    .0                                      \r\n                  463-        GRID    210             1.0     16.0    .0                                      \r\n                  464-        GRID    211             2.0     16.0    .0                                      \r\n                  465-        GRID    212             3.0     16.0    .0                                      \r\n                  466-        GRID    213             4.0     16.0    .0                                      \r\n                  467-        GRID    214             5.0     16.0    .0                                      \r\n                  468-        GRID    215             6.0     16.0    .0                                      \r\n                  469-        GRID    216             7.0     16.0    .0                                      \r\n                  470-        GRID    217             8.0     16.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        GRID    218             9.0     16.0    .0                                      \r\n                  472-        GRID    219             10.0    16.0    .0                                      \r\n                  473-        GRID    220             11.0    16.0    .0                                      \r\n                  474-        GRID    221             12.0    16.0    .0                                      \r\n                  475-        GRID    222             .0      17.0    .0                                      \r\n                  476-        GRID    223             1.0     17.0    .0                                      \r\n                  477-        GRID    224             2.0     17.0    .0                                      \r\n                  478-        GRID    225             3.0     17.0    .0                                      \r\n                  479-        GRID    226             4.0     17.0    .0                                      \r\n                  480-        GRID    227             5.0     17.0    .0                                      \r\n                  481-        GRID    228             6.0     17.0    .0                                      \r\n                  482-        GRID    229             7.0     17.0    .0                                      \r\n                  483-        GRID    230             8.0     17.0    .0                                      \r\n                  484-        GRID    231             9.0     17.0    .0                                      \r\n                  485-        GRID    232             10.0    17.0    .0                                      \r\n                  486-        GRID    233             11.0    17.0    .0                                      \r\n                  487-        GRID    234             12.0    17.0    .0                                      \r\n                  488-        GRID    235             .0      18.0    .0                                      \r\n                  489-        GRID    236             1.0     18.0    .0                                      \r\n                  490-        GRID    237             2.0     18.0    .0                                      \r\n                  491-        GRID    238             3.0     18.0    .0                                      \r\n                  492-        GRID    239             4.0     18.0    .0                                      \r\n                  493-        GRID    240             5.0     18.0    .0                                      \r\n                  494-        GRID    241             6.0     18.0    .0                                      \r\n                  495-        GRID    242             7.0     18.0    .0                                      \r\n                  496-        GRID    243             8.0     18.0    .0                                      \r\n                  497-        GRID    244             9.0     18.0    .0                                      \r\n                  498-        GRID    245             10.0    18.0    .0                                      \r\n                  499-        GRID    246             11.0    18.0    .0                                      \r\n                  500-        GRID    247             12.0    18.0    .0                                      \r\n                  501-        MAT1    75      10.400+6        .3              12.700-675.                     \r\n                  502-        MATT1   75      100                                                             \r\n                  503-        PARAM   IRES    1                                                               \r\n                  504-        PQDMEM1 21      75      .25                                                     \r\n                  505-        SPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n                  506-        +SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n                  507-        +SPC-B  183     196     209     222     235                                     \r\n                  508-        SPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n                  509-        +SPC-C  7       8       9       10      11      12      13                      \r\n                  510-        TABLEM1 100                                                             +TM1    \r\n                  511-        +TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n                  512-        +TM2    300.    9.15+6  ENDT                                                    \r\n                  513-        TEMP    1       1       245.000 2       232.500 3       220.000                 \r\n                  514-        TEMP    1       4       207.500 5       195.000 6       182.500                 \r\n                  515-        TEMP    1       7       170.000 8       157.500 9       145.000                 \r\n                  516-        TEMP    1       10      132.500 11      120.000 12      107.500                 \r\n                  517-        TEMP    1       13      95.000  14      245.000 15      232.500                 \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        TEMP    1       16      220.000 17      207.500 18      195.000                 \r\n                  519-        TEMP    1       19      182.500 20      170.000 21      157.500                 \r\n                  520-        TEMP    1       22      145.000 23      132.500 24      120.000                 \r\n                  521-        TEMP    1       25      107.500 26      95.000  27      245.000                 \r\n                  522-        TEMP    1       28      232.500 29      220.000 30      207.500                 \r\n                  523-        TEMP    1       31      195.000 32      182.500 33      170.000                 \r\n                  524-        TEMP    1       34      157.500 35      145.000 36      132.500                 \r\n                  525-        TEMP    1       37      120.000 38      107.500 39      95.000                  \r\n                  526-        TEMP    1       40      245.000 41      232.500 42      220.000                 \r\n                  527-        TEMP    1       43      207.500 44      195.000 45      182.500                 \r\n                  528-        TEMP    1       46      170.000 47      157.500 48      145.000                 \r\n                  529-        TEMP    1       49      132.500 50      120.000 51      107.500                 \r\n                  530-        TEMP    1       52      95.000  53      245.000 54      232.500                 \r\n                  531-        TEMP    1       55      220.000 56      207.500 57      195.000                 \r\n                  532-        TEMP    1       58      182.500 59      170.000 60      157.500                 \r\n                  533-        TEMP    1       61      145.000 62      132.500 63      120.000                 \r\n                  534-        TEMP    1       64      107.500 65      95.000  66      245.000                 \r\n                  535-        TEMP    1       67      232.500 68      220.000 69      207.500                 \r\n                  536-        TEMP    1       70      195.000 71      182.500 72      170.000                 \r\n                  537-        TEMP    1       73      157.500 74      145.000 75      132.500                 \r\n                  538-        TEMP    1       76      120.000 77      107.500 78      95.000                  \r\n                  539-        TEMP    1       79      245.000 80      232.500 81      220.000                 \r\n                  540-        TEMP    1       82      207.500 83      195.000 84      182.500                 \r\n                  541-        TEMP    1       85      170.000 86      157.500 87      145.000                 \r\n                  542-        TEMP    1       88      132.500 89      120.000 90      107.500                 \r\n                  543-        TEMP    1       91      95.000  92      245.000 93      232.500                 \r\n                  544-        TEMP    1       94      220.000 95      207.500 96      195.000                 \r\n                  545-        TEMP    1       97      182.500 98      170.000 99      157.500                 \r\n                  546-        TEMP    1       100     145.000 101     132.500 102     120.000                 \r\n                  547-        TEMP    1       103     107.500 104     95.000  105     245.000                 \r\n                  548-        TEMP    1       106     232.500 107     220.000 108     207.500                 \r\n                  549-        TEMP    1       109     195.000 110     182.500 111     170.000                 \r\n                  550-        TEMP    1       112     157.500 113     145.000 114     132.500                 \r\n                  551-        TEMP    1       115     120.000 116     107.500 117     95.000                  \r\n                  552-        TEMP    1       118     245.000 119     232.500 120     220.000                 \r\n                  553-        TEMP    1       121     207.500 122     195.000 123     182.500                 \r\n                  554-        TEMP    1       124     170.000 125     157.500 126     145.000                 \r\n                  555-        TEMP    1       127     132.500 128     120.000 129     107.500                 \r\n                  556-        TEMP    1       130     95.000  131     245.000 132     232.500                 \r\n                  557-        TEMP    1       133     220.000 134     207.500 135     195.000                 \r\n                  558-        TEMP    1       136     182.500 137     170.000 138     157.500                 \r\n                  559-        TEMP    1       139     145.000 140     132.500 141     120.000                 \r\n                  560-        TEMP    1       142     107.500 143     95.000  144     245.000                 \r\n                  561-        TEMP    1       145     232.500 146     220.000 147     207.500                 \r\n                  562-        TEMP    1       148     195.000 149     182.500 150     170.000                 \r\n                  563-        TEMP    1       151     157.500 152     145.000 153     132.500                 \r\n                  564-        TEMP    1       154     120.000 155     107.500 156     95.000                  \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        TEMP    1       157     245.000 158     232.500 159     220.000                 \r\n                  566-        TEMP    1       160     207.500 161     195.000 162     182.500                 \r\n                  567-        TEMP    1       163     170.000 164     157.500 165     145.000                 \r\n                  568-        TEMP    1       166     132.500 167     120.000 168     107.500                 \r\n                  569-        TEMP    1       169     95.000  170     245.000 171     232.500                 \r\n                  570-        TEMP    1       172     220.000 173     207.500 174     195.000                 \r\n                  571-        TEMP    1       175     182.500 176     170.000 177     157.500                 \r\n                  572-        TEMP    1       178     145.000 179     132.500 180     120.000                 \r\n                  573-        TEMP    1       181     107.500 182     95.000  183     245.000                 \r\n                  574-        TEMP    1       184     232.500 185     220.000 186     207.500                 \r\n                  575-        TEMP    1       187     195.000 188     182.500 189     170.000                 \r\n                  576-        TEMP    1       190     157.500 191     145.000 192     132.500                 \r\n                  577-        TEMP    1       193     120.000 194     107.500 195     95.000                  \r\n                  578-        TEMP    1       196     245.000 197     232.500 198     220.000                 \r\n                  579-        TEMP    1       199     207.500 200     195.000 201     182.500                 \r\n                  580-        TEMP    1       202     170.000 203     157.500 204     145.000                 \r\n                  581-        TEMP    1       205     132.500 206     120.000 207     107.500                 \r\n                  582-        TEMP    1       208     95.000  209     245.000 210     232.500                 \r\n                  583-        TEMP    1       211     220.000 212     207.500 213     195.000                 \r\n                  584-        TEMP    1       214     182.500 215     170.000 216     157.500                 \r\n                  585-        TEMP    1       217     145.000 218     132.500 219     120.000                 \r\n                  586-        TEMP    1       220     107.500 221     95.000  222     245.000                 \r\n                  587-        TEMP    1       223     232.500 224     220.000 225     207.500                 \r\n                  588-        TEMP    1       226     195.000 227     182.500 228     170.000                 \r\n                  589-        TEMP    1       229     157.500 230     145.000 231     132.500                 \r\n                  590-        TEMP    1       232     120.000 233     107.500 234     95.000                  \r\n                  591-        TEMP    1       235     245.000 236     232.500 237     220.000                 \r\n                  592-        TEMP    1       238     207.500 239     195.000 240     182.500                 \r\n                  593-        TEMP    1       241     170.000 242     157.500 243     145.000                 \r\n                  594-        TEMP    1       244     132.500 245     120.000 246     107.500                 \r\n                  595-        TEMP    1       247     95.000                                                  \r\n                              ENDDATA\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE           3517\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   14.239\r\n                                        RMS WAVEFRONT   14.436\r\n                                        RMS BANDWIDTH   14.534\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE           3622\r\n                                        MAX WAVEFRONT       21\r\n                                        AVG WAVEFRONT   14.664\r\n                                        RMS WAVEFRONT   15.039\r\n                                        RMS BANDWIDTH   15.423\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       15        15\r\n                                        PROFILE (P)                       3517      3517\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           15        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       14.239    14.239\r\n                                        RMS WAVEFRONT (C-RMS)           14.436    14.436\r\n                                        RMS BANDWITCH (B-RMS)           14.534    14.534\r\n                                        NUMBER OF GRID POINTS (N)                    247\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               216\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       894\r\n                                        MATRIX DENSITY, PERCENT                    3.336\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM1   ELEMENTS (ELEMENT TYPE  62) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   7.1610071E-16\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       2-T1).\r\n             2 T1 -1.25056E-12        4 T1 -1.59162E-12        5 T1 -3.86535E-12        6 T1  3.75167E-12        7 T1 -9.09495E-13\r\n             8 T1  5.57066E-12        9 T1  5.91172E-12       10 T1  5.28644E-12       11 T1  1.02318E-12       12 T1  1.19371E-12\r\n            13 T1  1.56319E-13       14 T2 -2.27374E-13       15 T1 -1.81899E-12       15 T2  4.54747E-13       16 T1 -1.36424E-12\r\n            16 T2  1.59162E-12       17 T2 -9.09495E-13       18 T1 -4.32010E-12       18 T2 -1.13687E-12       19 T1  1.11413E-11\r\n            19 T2 -4.54747E-13       20 T1  6.13909E-12       20 T2  1.13687E-12       21 T1  4.54747E-12       21 T2  9.09495E-13\r\n            22 T1 -3.63798E-12       22 T2 -2.27374E-13       23 T2  4.54747E-13       24 T1  6.70752E-12       24 T2 -2.72848E-12\r\n            25 T1 -2.38742E-12       25 T2  5.68434E-12       26 T1 -2.23110E-12       26 T2 -2.95586E-12       27 T2  9.09495E-13\r\n            28 T1  2.27374E-12       28 T2  1.81899E-12       29 T1 -6.36646E-12       29 T2 -5.45697E-12       30 T1  4.54747E-13\r\n            30 T2 -9.09495E-13       31 T1  1.59162E-12       31 T2  1.36424E-12       32 T1  1.36424E-12       32 T2  2.72848E-12\r\n            33 T1  4.09273E-12       33 T2  2.27374E-12       34 T1  1.36424E-12       34 T2 -4.54747E-12       35 T1  9.77707E-12\r\n            35 T2 -3.18323E-12       36 T1 -1.36424E-12       36 T2  1.36424E-12       37 T1 -6.59384E-12       37 T2  4.54747E-12\r\n            38 T1  7.50333E-12       38 T2  3.18323E-12       39 T1 -3.26850E-13       39 T2 -5.91172E-12       40 T2  1.81899E-12\r\n            41 T1  2.72848E-12       41 T2  4.09273E-12       42 T1 -3.18323E-12       42 T2  1.36424E-12       43 T1 -5.45697E-12\r\n            43 T2  3.18323E-12       44 T1 -6.36646E-12       44 T2 -6.36646E-12       45 T2 -3.18323E-12       46 T1  1.81899E-12\r\n            46 T2  5.91172E-12       47 T1  1.13687E-11       47 T2 -4.54747E-13       48 T2  2.27374E-12       49 T1  4.32010E-12\r\n            49 T2 -3.63798E-12       50 T1 -3.41061E-12       50 T2  4.54747E-13       51 T1  7.50333E-12       51 T2 -4.54747E-13\r\n            52 T1 -7.67386E-13       52 T2  1.81899E-12       53 T2  2.72848E-12       54 T1 -1.36424E-12       54 T2 -3.63798E-12\r\n            55 T1 -4.54747E-13       55 T2  4.54747E-12       56 T1 -3.63798E-12       56 T2  5.45697E-12       57 T1  4.54747E-12\r\n            57 T2  8.18545E-12       58 T1 -4.54747E-13       59 T1 -3.18323E-12       59 T2 -9.09495E-12       60 T1  1.81899E-12\r\n            60 T2 -9.09495E-12       61 T1  7.27596E-12       61 T2  4.54747E-13       62 T1 -6.82121E-12       62 T2 -1.18234E-11\r\n            63 T1  4.09273E-12       63 T2  4.54747E-12       64 T1  1.13687E-11       64 T2  5.91172E-12       65 T1 -1.33582E-12\r\n            66 T2 -9.09495E-13       67 T1  4.54747E-13       67 T2 -9.09495E-12       68 T1  9.09495E-13       68 T2  9.09495E-13\r\n            69 T1  2.72848E-12       69 T2 -1.18234E-11       70 T1  4.54747E-13       71 T1  8.18545E-12       72 T1 -1.36424E-12\r\n            72 T2  4.54747E-12       73 T1  2.41016E-11       73 T2  5.45697E-12       74 T1  1.09139E-11       74 T2 -8.18545E-12\r\n            75 T1 -1.00044E-11       75 T2  1.09139E-11       76 T1  9.09495E-12       76 T2 -2.72848E-12       77 T1  1.22782E-11\r\n            77 T2 -1.00044E-11       78 T1 -8.44125E-12       78 T2 -4.54747E-12       80 T1  4.54747E-12       80 T2  8.18545E-12\r\n            81 T1 -9.09495E-13       81 T2 -1.00044E-11       82 T1 -7.27596E-12       82 T2  1.72804E-11       83 T1 -4.54747E-12\r\n            83 T2 -1.27329E-11       84 T1 -5.00222E-12       84 T2  2.72848E-12       85 T1 -9.09495E-13       85 T2 -4.54747E-12\r\n            86 T1 -1.81899E-11       86 T2  8.18545E-12       87 T1 -2.27374E-12       87 T2 -3.63798E-12       88 T1  1.36424E-12\r\n            88 T2  2.72848E-12       89 T1  1.27329E-11       89 T2 -9.09495E-12       90 T1 -9.09495E-13       90 T2  9.09495E-12\r\n            91 T1 -2.33058E-12       91 T2  1.81899E-12       92 T2  7.27596E-12       93 T2 -2.72848E-12       94 T1  7.27596E-12\r\n            94 T2 -1.81899E-11       95 T1  1.81899E-12       95 T2 -1.09139E-11       96 T1  2.72848E-12       96 T2 -5.45697E-12\r\n            97 T1  8.18545E-12       97 T2  1.81899E-12       98 T1 -1.36424E-11       98 T2 -1.72804E-11       99 T1  6.36646E-12\r\n            99 T2  6.36646E-12      100 T1 -1.18234E-11      100 T2  1.18234E-11      101 T1 -3.18323E-12      101 T2  5.45697E-12\r\n           102 T1 -1.09139E-11      102 T2  7.27596E-12      103 T1  6.36646E-12      103 T2  7.27596E-12      104 T1  5.85487E-12\r\n           105 T2 -3.63798E-12      106 T1 -4.54747E-12      106 T2 -3.63798E-12      107 T1  9.09495E-13      107 T2  1.27329E-11\r\n           108 T1 -2.72848E-12      108 T2  9.09495E-12      109 T1  4.54747E-12      109 T2  9.09495E-12      110 T1 -4.54747E-12\r\n           110 T2 -1.63709E-11      111 T1 -2.72848E-12      111 T2 -3.63798E-12      112 T1  9.09495E-13      112 T2  2.27374E-11\r\n           113 T1  1.54614E-11      113 T2 -2.72848E-12      114 T1 -9.09495E-12      114 T2 -3.63798E-12      115 T1 -1.81899E-12\r\n           115 T2  5.45697E-12      116 T1  9.09495E-13      117 T1 -6.42331E-12      117 T2  5.45697E-12      118 T2  3.63798E-12\r\n           119 T1 -1.81899E-12      119 T2  5.45697E-12      120 T1 -2.72848E-12      120 T2  1.81899E-12      121 T1 -6.36646E-12\r\n           122 T1  7.27596E-12      122 T2 -2.00089E-11      123 T1  9.09495E-13      123 T2  1.09139E-11      124 T1  5.45697E-12\r\n           124 T2 -1.09139E-11      125 T1  1.81899E-12      125 T2 -1.09139E-11      126 T1 -1.81899E-12      127 T1  6.36646E-12\r\n           127 T2  7.27596E-12      128 T1 -1.81899E-12      128 T2  1.18234E-11      129 T1 -1.00044E-11      129 T2 -2.09184E-11\r\n           130 T1 -1.81899E-12      130 T2 -5.45697E-12      132 T1  9.09495E-13      132 T2 -7.27596E-12      133 T1  2.72848E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n           133 T2  1.63709E-11      134 T1 -6.36646E-12      134 T2 -1.81899E-11      135 T1  1.81899E-12      135 T2  1.81899E-11\r\n           136 T1 -1.81899E-12      136 T2 -3.63798E-12      137 T1 -2.72848E-12      137 T2 -1.81899E-12      138 T1 -6.36646E-12\r\n           138 T2  1.09139E-11      139 T1  1.45519E-11      139 T2  9.09495E-12      140 T1 -9.09495E-13      140 T2  7.27596E-12\r\n           141 T1  1.81899E-12      141 T2  3.63798E-12      142 T1  9.09495E-13      142 T2  9.09495E-13      143 T1  9.60654E-12\r\n           143 T2  4.54747E-12      144 T2  1.09139E-11      145 T1  1.81899E-12      145 T2  2.72848E-11      146 T2  3.63798E-12\r\n           147 T1 -4.54747E-12      147 T2 -1.81899E-12      148 T1 -9.09495E-13      148 T2  1.81899E-12      149 T1  1.18234E-11\r\n           149 T2 -9.09495E-12      150 T1 -5.45697E-12      150 T2 -3.63798E-12      151 T1  2.72848E-12      151 T2  1.09139E-11\r\n           152 T1  5.45697E-12      152 T2  5.45697E-12      153 T1 -2.72848E-12      153 T2 -5.45697E-12      154 T1 -5.45697E-12\r\n           154 T2  4.54747E-12      155 T1  1.18234E-11      155 T2 -1.00044E-11      156 T1 -9.72022E-12      157 T2 -1.81899E-11\r\n           158 T1 -1.81899E-12      158 T2  1.63709E-11      159 T2  3.63798E-12      160 T1 -1.81899E-12      160 T2 -2.00089E-11\r\n           161 T1 -2.72848E-12      161 T2 -1.81899E-12      162 T1  1.18234E-11      162 T2  1.81899E-12      163 T1 -1.09139E-11\r\n           163 T2  1.81899E-12      164 T1 -1.81899E-12      164 T2 -1.45519E-11      165 T1 -1.54614E-11      165 T2 -1.45519E-11\r\n           166 T1 -1.81899E-12      166 T2  1.09139E-11      167 T2  1.63709E-11      168 T1  9.09495E-13      168 T2 -1.27329E-11\r\n           169 T1  1.42109E-12      169 T2 -1.81899E-12      170 T2 -5.45697E-12      171 T1  1.81899E-12      171 T2  2.00089E-11\r\n           172 T2 -1.81899E-11      173 T1  1.81899E-12      173 T2  9.09495E-12      174 T1  9.09495E-12      174 T2  2.72848E-11\r\n           175 T1  8.18545E-12      175 T2 -9.09495E-12      176 T1 -3.63798E-12      176 T2 -1.09139E-11      177 T1  2.09184E-11\r\n           177 T2  9.09495E-12      178 T1 -9.09495E-12      178 T2 -5.45697E-12      179 T1  5.45697E-12      179 T2 -1.45519E-11\r\n           180 T1 -1.09139E-11      180 T2 -7.27596E-12      181 T1 -3.63798E-12      181 T2  2.00089E-11      182 T1 -3.35376E-12\r\n           182 T2 -1.27329E-11      183 T2 -1.09139E-11      184 T1 -1.81899E-12      184 T2  1.27329E-11      185 T1 -1.81899E-12\r\n           185 T2 -2.00089E-11      186 T1  1.81899E-12      186 T2 -7.27596E-12      187 T2 -4.54747E-11      188 T2 -1.63709E-11\r\n           189 T1  9.09495E-13      189 T2 -3.63798E-12      190 T1  1.81899E-11      191 T1 -9.09495E-13      191 T2  1.81899E-12\r\n           192 T1  1.00044E-11      192 T2 -1.09139E-11      193 T1  3.18323E-11      193 T2 -9.09495E-12      194 T1  1.36424E-11\r\n           194 T2  1.81899E-12      195 T1  2.72848E-12      195 T2 -3.63798E-12      196 T2 -1.09139E-11      197 T1 -3.63798E-12\r\n           197 T2  1.09139E-11      198 T1 -5.45697E-12      198 T2  1.81899E-12      199 T1 -1.81899E-12      199 T2 -1.09139E-11\r\n           200 T1 -3.63798E-12      200 T2 -5.45697E-12      201 T1  1.45519E-11      201 T2  4.00178E-11      202 T2  2.91038E-11\r\n           203 T1 -4.54747E-12      203 T2  2.72848E-11      204 T1  1.36424E-11      204 T2  1.63709E-11      205 T1  1.81899E-12\r\n           206 T1  5.45697E-12      206 T2 -1.81899E-12      207 T1  1.54614E-11      207 T2 -2.18279E-11      208 T1 -5.11591E-12\r\n           208 T2 -1.81899E-12      209 T2 -3.63798E-12      210 T2  1.09139E-11      211 T2 -3.63798E-12      212 T1  1.81899E-12\r\n           212 T2  5.09317E-11      213 T1  5.45697E-12      213 T2 -3.63798E-12      214 T1  9.09495E-12      214 T2 -2.18279E-11\r\n           215 T2  2.00089E-11      216 T1  3.63798E-12      216 T2 -1.45519E-11      217 T2  3.63798E-12      218 T1  1.45519E-11\r\n           218 T2 -1.81899E-11      219 T1 -3.00133E-11      219 T2 -7.27596E-12      220 T1  2.81943E-11      220 T2  3.63798E-11\r\n           221 T1  1.04592E-11      221 T2  1.81899E-12      222 T2 -7.27596E-12      223 T1  1.81899E-12      223 T2  3.63798E-12\r\n           224 T1 -3.63798E-12      224 T2  1.45519E-11      225 T1  7.27596E-12      225 T2  1.45519E-11      226 T1 -3.63798E-12\r\n           226 T2  2.18279E-11      227 T1 -3.63798E-12      227 T2 -3.63798E-12      228 T1  1.45519E-11      228 T2 -3.45608E-11\r\n           229 T1  1.81899E-12      229 T2 -1.45519E-11      230 T1 -1.00044E-11      231 T1  2.18279E-11      231 T2 -7.27596E-12\r\n           232 T1 -1.54614E-11      232 T2 -3.27418E-11      233 T1  5.45697E-12      233 T2 -3.09228E-11      234 T1 -1.31308E-11\r\n           234 T2 -1.45519E-11      235 T2 -9.09495E-13      236 T1  5.22959E-12      236 T2 -1.81899E-12      237 T1  3.18323E-12\r\n           237 T2 -2.45564E-11      238 T1 -3.41061E-12      238 T2 -2.18279E-11      239 T1  2.95586E-12      239 T2 -2.45564E-11\r\n           240 T1 -5.11591E-12      241 T1 -4.66116E-12      241 T2 -3.63798E-12      242 T1  3.86535E-12      242 T2  3.27418E-11\r\n           243 T1  1.71667E-11      243 T2 -3.18323E-12      244 T1 -1.93268E-12      244 T2  4.09273E-12      245 T1 -4.09273E-12\r\n           245 T2  1.18234E-11      246 T1 -5.40012E-12      246 T2  1.81899E-12      247 T1  3.63798E-12      247 T2 -3.63798E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.156191E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.113756E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.878820E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      7.456814E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      8.852118E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.006788E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.110572E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      1.196552E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      1.264510E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.314043E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      1.344535E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      1.355153E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      0.0            8.292265E-03   0.0            0.0            0.0            0.0                           \r\n            80      G      2.119685E-03   8.262852E-03   0.0            0.0            0.0            0.0                           \r\n            81      G      4.042593E-03   8.175830E-03   0.0            0.0            0.0            0.0                           \r\n            82      G      5.776464E-03   8.035133E-03   0.0            0.0            0.0            0.0                           \r\n            83      G      7.328094E-03   7.847600E-03   0.0            0.0            0.0            0.0                           \r\n            84      G      8.702945E-03   7.622782E-03   0.0            0.0            0.0            0.0                           \r\n            85      G      9.904990E-03   7.372671E-03   0.0            0.0            0.0            0.0                           \r\n            86      G      1.093647E-02   7.111399E-03   0.0            0.0            0.0            0.0                           \r\n            87      G      1.179777E-02   6.854988E-03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.248717E-02   6.621099E-03   0.0            0.0            0.0            0.0                           \r\n            89      G      1.300105E-02   6.428799E-03   0.0            0.0            0.0            0.0                           \r\n            90      G      1.333340E-02   6.298383E-03   0.0            0.0            0.0            0.0                           \r\n            91      G      1.347557E-02   6.251092E-03   0.0            0.0            0.0            0.0                           \r\n           157      G      0.0            1.759259E-02   0.0            0.0            0.0            0.0                           \r\n           158      G      2.143112E-03   1.750282E-02   0.0            0.0            0.0            0.0                           \r\n           159      G      4.094586E-03   1.723894E-02   0.0            0.0            0.0            0.0                           \r\n           160      G      5.866446E-03   1.681674E-02   0.0            0.0            0.0            0.0                           \r\n           161      G      7.467184E-03   1.626055E-02   0.0            0.0            0.0            0.0                           \r\n           162      G      8.901473E-03   1.560021E-02   0.0            0.0            0.0            0.0                           \r\n           163      G      1.017078E-02   1.486834E-02   0.0            0.0            0.0            0.0                           \r\n           164      G      1.127437E-02   1.409833E-02   0.0            0.0            0.0            0.0                           \r\n           165      G      1.221035E-02   1.332334E-02   0.0            0.0            0.0            0.0                           \r\n           166      G      1.297663E-02   1.257614E-02   0.0            0.0            0.0            0.0                           \r\n           167      G      1.357173E-02   1.189008E-02   0.0            0.0            0.0            0.0                           \r\n           168      G      1.399530E-02   1.130128E-02   0.0            0.0            0.0            0.0                           \r\n           169      G      1.424808E-02   1.085224E-02   0.0            0.0            0.0            0.0                           \r\n           235      G      0.0            2.833324E-02   0.0            0.0            0.0            0.0                           \r\n           236      G      3.159611E-03   2.802449E-02   0.0            0.0            0.0            0.0                           \r\n           237      G      6.029882E-03   2.723900E-02   0.0            0.0            0.0            0.0                           \r\n           238      G      8.589569E-03   2.616550E-02   0.0            0.0            0.0            0.0                           \r\n           239      G      1.084542E-02   2.488910E-02   0.0            0.0            0.0            0.0                           \r\n           240      G      1.280617E-02   2.347336E-02   0.0            0.0            0.0            0.0                           \r\n           241      G      1.448137E-02   2.196799E-02   0.0            0.0            0.0            0.0                           \r\n           242      G      1.588242E-02   2.041499E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           243      G      1.702331E-02   1.885053E-02   0.0            0.0            0.0            0.0                           \r\n           244      G      1.792178E-02   1.730498E-02   0.0            0.0            0.0            0.0                           \r\n           245      G      1.859923E-02   1.580316E-02   0.0            0.0            0.0            0.0                           \r\n           246      G      1.908174E-02   1.435449E-02   0.0            0.0            0.0            0.0                           \r\n           247      G      1.939889E-02   1.298967E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.559223E+03  -3.559223E+03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.433977E+02  -6.875048E+03   0.0            0.0            0.0            0.0                           \r\n             3      G      2.480757E+02  -6.383575E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      2.527524E+02  -5.882747E+03   0.0            0.0            0.0            0.0                           \r\n             5      G      2.585908E+02  -5.371403E+03   0.0            0.0            0.0            0.0                           \r\n             6      G      2.631287E+02  -4.849684E+03   0.0            0.0            0.0            0.0                           \r\n             7      G      2.675220E+02  -4.319033E+03   0.0            0.0            0.0            0.0                           \r\n             8      G      2.719160E+02  -3.779595E+03   0.0            0.0            0.0            0.0                           \r\n             9      G      2.805852E+02  -3.227094E+03   0.0            0.0            0.0            0.0                           \r\n            10      G      2.836848E+02  -2.662824E+03   0.0            0.0            0.0            0.0                           \r\n            11      G      2.862157E+02  -2.092923E+03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.887468E+02  -1.517961E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.146071E+02  -6.146071E+02   0.0            0.0            0.0            0.0                           \r\n            14      G     -7.118446E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      4.867954E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.961514E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      5.055049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      5.171816E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      5.262573E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            20      G      5.350439E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G      5.438320E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      5.611704E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      5.673696E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            24      G      5.724314E+02  -1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      5.774937E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      1.229214E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.501230E+03  -7.430041E+03  -1.090356E+01       -0.1054      -1.501210E+03  -7.430061E+03   2.964425E+03          \r\n        2       -1.457992E+03  -6.022748E+03  -3.226196E+01       -0.4049      -1.457764E+03  -6.022976E+03   2.282606E+03          \r\n        3       -1.373389E+03  -4.655514E+03  -5.217676E+01       -0.9105      -1.372559E+03  -4.656343E+03   1.641892E+03          \r\n        4       -1.251393E+03  -3.323727E+03  -6.957715E+01       -1.9208      -1.249059E+03  -3.326060E+03   1.038500E+03          \r\n        5       -1.098053E+03  -2.018029E+03  -8.344629E+01       -5.1411      -1.090545E+03  -2.025537E+03   4.674960E+02          \r\n        6       -9.213984E+02  -7.277109E+02  -9.284082E+01      -68.1045      -6.903976E+02  -9.587118E+02   1.341571E+02          \r\n        7       -7.312178E+02   5.635908E+02  -9.691602E+01      -85.7430       5.708047E+02  -7.384317E+02   6.546182E+02          \r\n        8       -5.389014E+02   1.876038E+03  -9.493555E+01      -87.7522       1.879764E+03  -5.426277E+02   1.211196E+03          \r\n        9       -3.571709E+02   3.223469E+03  -8.629688E+01      -88.6202       3.225547E+03  -3.592495E+02   1.792398E+03          \r\n       10       -1.997676E+02   4.632628E+03  -7.058984E+01      -89.1633       4.633659E+03  -2.007986E+02   2.417229E+03          \r\n       11       -8.107324E+01   6.131918E+03  -4.759766E+01      -89.5611       6.132283E+03  -8.143799E+01   3.106860E+03          \r\n       12       -1.560596E+01   7.750080E+03  -1.742188E+01      -89.8715       7.750119E+03  -1.564502E+01   3.882882E+03          \r\n       15       -1.468428E+03  -5.981062E+03  -9.700732E+01       -1.2309      -1.466343E+03  -5.983147E+03   2.258402E+03          \r\n       20       -7.370615E+02   5.659248E+02  -2.913584E+02      -77.9525       6.281074E+02  -7.992441E+02   7.136757E+02          \r\n       28       -1.487668E+03  -5.897426E+03  -1.624094E+02       -2.1064      -1.481695E+03  -5.903399E+03   2.210852E+03          \r\n       33       -7.476709E+02   5.706494E+02  -4.875381E+02      -71.7560       7.313585E+02  -9.083799E+02   8.198692E+02          \r\n       41       -1.512348E+03  -5.771311E+03  -2.288647E+02       -3.0671      -1.500084E+03  -5.783574E+03   2.141745E+03          \r\n       46       -7.608740E+02   5.778330E+02  -6.862305E+02      -67.1434       8.670964E+02  -1.050137E+03   9.586169E+02          \r\n       54       -1.537299E+03  -5.601988E+03  -2.967061E+02       -4.1530      -1.515755E+03  -5.623532E+03   2.053889E+03          \r\n       59       -7.731904E+02   5.875010E+02  -8.876289E+02      -63.7346       1.025527E+03  -1.211216E+03   1.118372E+03          \r\n       67       -1.555318E+03  -5.388578E+03  -3.662012E+02       -5.4084      -1.520648E+03  -5.423249E+03   1.951300E+03          \r\n       72       -7.797334E+02   5.994658E+02  -1.091112E+03      -61.1468       1.200631E+03  -1.380899E+03   1.290765E+03          \r\n       80       -1.556938E+03  -5.130117E+03  -4.375410E+02       -6.8805      -1.504140E+03  -5.182915E+03   1.839387E+03          \r\n       85       -7.738896E+02   6.131494E+02  -1.294925E+03      -59.0860       1.388575E+03  -1.549315E+03   1.468945E+03          \r\n       93       -1.530066E+03  -4.825652E+03  -5.108398E+02       -8.6121      -1.452699E+03  -4.903020E+03   1.725161E+03          \r\n       98       -7.471748E+02   6.272979E+02  -1.495895E+03      -57.3374       1.586268E+03  -1.706145E+03   1.646206E+03          \r\n      106       -1.459480E+03  -4.474328E+03  -5.861367E+02      -10.6239      -1.349535E+03  -4.584273E+03   1.617369E+03          \r\n      111       -6.889990E+02   6.397080E+02  -1.689050E+03      -55.7356       1.790363E+03  -1.839654E+03   1.815008E+03          \r\n      118       -1.378930E+03  -5.386064E+03  -2.254180E+02       -3.2096      -1.366289E+03  -5.398705E+03   2.016208E+03          \r\n      119       -1.326186E+03  -4.075539E+03  -6.633789E+02      -12.8803      -1.174492E+03  -4.227233E+03   1.526371E+03          \r\n      120       -1.226352E+03  -2.914125E+03  -1.062240E+03      -25.7675      -7.135883E+02  -3.426888E+03   1.356650E+03          \r\n      121       -1.089674E+03  -1.885955E+03  -1.397870E+03      -37.0510      -3.435071E+01  -2.941278E+03   1.453464E+03          \r\n      122       -9.289727E+02  -9.676035E+02  -1.651650E+03      -44.6650       7.034752E+02  -2.600051E+03   1.651763E+03          \r\n      123       -7.574121E+02  -1.327930E+02  -1.810789E+03      -49.8928       1.392421E+03  -2.282626E+03   1.837524E+03          \r\n      124       -5.866865E+02   6.467666E+02  -1.867187E+03      -54.1391       1.996442E+03  -1.936362E+03   1.966402E+03          \r\n      125       -4.260264E+02   1.398310E+03  -1.815149E+03      -58.3405       2.517598E+03  -1.545315E+03   2.031457E+03          \r\n      126       -2.822529E+02   2.140610E+03  -1.648993E+03      -63.1514       2.975333E+03  -1.116975E+03   2.046154E+03          \r\n      127       -1.607715E+02   2.899197E+03  -1.360246E+03      -69.1805       3.416436E+03  -6.780100E+02   2.047223E+03          \r\n      128       -6.774902E+01   3.700368E+03  -9.348584E+02      -76.8048       3.919554E+03  -2.869348E+02   2.103244E+03          \r\n      129       -1.368799E+01   4.576816E+03  -3.519004E+02      -85.6417       4.603635E+03  -4.050732E+01   2.322071E+03          \r\n      132       -1.106301E+03  -3.629117E+03  -7.422891E+02      -15.2376      -9.041025E+02  -3.831315E+03   1.463606E+03          \r\n      137       -4.259561E+02   6.431729E+02  -2.020272E+03      -52.4104       2.198407E+03  -1.981191E+03   2.089799E+03          \r\n      145       -7.694453E+02  -3.135859E+03  -8.221367E+02      -17.3965      -5.118582E+02  -3.393447E+03   1.440794E+03          \r\n      150       -1.921201E+02   6.219502E+02  -2.134736E+03      -50.3976       2.388110E+03  -1.958280E+03   2.173195E+03          \r\n      158       -2.759199E+02  -2.598172E+03  -9.012031E+02      -18.9083       3.277734E+01  -2.906869E+03   1.469823E+03          \r\n      163        1.272393E+02   5.750947E+02  -2.192363E+03      -47.9160       2.554937E+03  -1.852603E+03   2.203770E+03          \r\n      171        4.280781E+02  -2.022055E+03  -9.755469E+02      -19.2655       7.690511E+02  -2.363028E+03   1.566039E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M 1 )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n      176        5.374971E+02   4.958135E+02  -2.168935E+03      -44.7247       2.685690E+03  -1.652379E+03   2.169035E+03          \r\n      184        1.419258E+03  -1.420977E+03  -1.036184E+03      -18.0581       1.757097E+03  -1.758815E+03   1.757956E+03          \r\n      189        1.029976E+03   3.827822E+02  -2.032424E+03      -40.4767       2.764403E+03  -1.351645E+03   2.058024E+03          \r\n      197        2.812936E+03  -8.252656E+02  -1.061332E+03      -15.1305       3.099910E+03  -1.112240E+03   2.106075E+03          \r\n      202        1.574075E+03   2.459697E+02  -1.741709E+03      -34.5650       2.774028E+03  -9.539829E+02   1.864005E+03          \r\n      210        4.800756E+03  -3.076484E+02  -9.865586E+02      -10.5595       4.984664E+03  -4.915564E+02   2.738110E+03          \r\n      215        2.112392E+03   1.118135E+02  -1.246059E+03      -25.6219       2.709989E+03  -4.857837E+02   1.597886E+03          \r\n      223        7.582367E+03  -1.813281E+01  -5.399531E+02       -4.0433       7.620535E+03  -5.630029E+01   3.838417E+03          \r\n      228        2.563356E+03   2.243848E+01  -4.865811E+02      -10.4783       2.653349E+03  -6.755359E+01   1.360451E+03          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)      \r\n DATE:  5/17/95\r\n END TIME: 14:31:24\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01033a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01033A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                          \r\n                  3      LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL          \r\n                  4      SPC   = 1                                                                       \r\n                  5      TEMPERATURE = 1                                                                 \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n                  8         SET 2 = 1 THRU 26                                                            \r\n                  9         OLOAD = 2                                                                    \r\n                 10         DISPLACEMENTS = 1                                                            \r\n                 11      $          STRESSES FOR POINTS ON PUBLISHED CURVES                              \r\n                 12         SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n                 13                 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,           \r\n                 14                 184,189, 197,202, 210,215, 223,228                                   \r\n                 15         STRESSES = 3                                                                 \r\n                 16      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   595, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n                    2-        +CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n                    3-        +CNG12  209     222                                                             \r\n                    4-        CNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n                    5-        +CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n                    6-        +CNG22  210     223                                                             \r\n                    7-        CNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n                    8-        +CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n                    9-        +CNG32  211     224                                                             \r\n                   10-        CNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n                   11-        +CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n                   12-        +CNG42  212     225                                                             \r\n                   13-        CNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n                   14-        +CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n                   15-        +CNG52  213     226                                                             \r\n                   16-        CNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n                   17-        +CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n                   18-        +CNG62  214     227                                                             \r\n                   19-        CNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n                   20-        +CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n                   21-        +CNG72  215     228                                                             \r\n                   22-        CNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n                   23-        +CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n                   24-        +CNG82  216     229                                                             \r\n                   25-        CNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n                   26-        +CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n                   27-        +CNG92  217     230                                                             \r\n                   28-        CNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n                   29-        +CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n                   30-        +CNG102 218     231                                                             \r\n                   31-        CNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n                   32-        +CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n                   33-        +CNG112 219     232                                                             \r\n                   34-        CNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n                   35-        +CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n                   36-        +CNG122 220     233                                                             \r\n                   37-        CQDMEM2 1       21      1       2       15      14      .00                     \r\n                   38-        CQDMEM2 2       21      2       3       16      15      .00                     \r\n                   39-        CQDMEM2 3       21      3       4       17      16      .00                     \r\n                   40-        CQDMEM2 4       21      4       5       18      17      .00                     \r\n                   41-        CQDMEM2 5       21      5       6       19      18      .00                     \r\n                   42-        CQDMEM2 6       21      6       7       20      19      .00                     \r\n                   43-        CQDMEM2 7       21      7       8       21      20      .00                     \r\n                   44-        CQDMEM2 8       21      8       9       22      21      .00                     \r\n                   45-        CQDMEM2 9       21      9       10      23      22      .00                     \r\n                   46-        CQDMEM2 10      21      10      11      24      23      .00                     \r\n                   47-        CQDMEM2 11      21      11      12      25      24      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM2 12      21      12      13      26      25      .00                     \r\n                   49-        CQDMEM2 14      21      14      15      28      27      .00                     \r\n                   50-        CQDMEM2 15      21      15      16      29      28      .00                     \r\n                   51-        CQDMEM2 16      21      16      17      30      29      .00                     \r\n                   52-        CQDMEM2 17      21      17      18      31      30      .00                     \r\n                   53-        CQDMEM2 18      21      18      19      32      31      .00                     \r\n                   54-        CQDMEM2 19      21      19      20      33      32      .00                     \r\n                   55-        CQDMEM2 20      21      20      21      34      33      .00                     \r\n                   56-        CQDMEM2 21      21      21      22      35      34      .00                     \r\n                   57-        CQDMEM2 22      21      22      23      36      35      .00                     \r\n                   58-        CQDMEM2 23      21      23      24      37      36      .00                     \r\n                   59-        CQDMEM2 24      21      24      25      38      37      .00                     \r\n                   60-        CQDMEM2 25      21      25      26      39      38      .00                     \r\n                   61-        CQDMEM2 27      21      27      28      41      40      .00                     \r\n                   62-        CQDMEM2 28      21      28      29      42      41      .00                     \r\n                   63-        CQDMEM2 29      21      29      30      43      42      .00                     \r\n                   64-        CQDMEM2 30      21      30      31      44      43      .00                     \r\n                   65-        CQDMEM2 31      21      31      32      45      44      .00                     \r\n                   66-        CQDMEM2 32      21      32      33      46      45      .00                     \r\n                   67-        CQDMEM2 33      21      33      34      47      46      .00                     \r\n                   68-        CQDMEM2 34      21      34      35      48      47      .00                     \r\n                   69-        CQDMEM2 35      21      35      36      49      48      .00                     \r\n                   70-        CQDMEM2 36      21      36      37      50      49      .00                     \r\n                   71-        CQDMEM2 37      21      37      38      51      50      .00                     \r\n                   72-        CQDMEM2 38      21      38      39      52      51      .00                     \r\n                   73-        CQDMEM2 40      21      40      41      54      53      .00                     \r\n                   74-        CQDMEM2 41      21      41      42      55      54      .00                     \r\n                   75-        CQDMEM2 42      21      42      43      56      55      .00                     \r\n                   76-        CQDMEM2 43      21      43      44      57      56      .00                     \r\n                   77-        CQDMEM2 44      21      44      45      58      57      .00                     \r\n                   78-        CQDMEM2 45      21      45      46      59      58      .00                     \r\n                   79-        CQDMEM2 46      21      46      47      60      59      .00                     \r\n                   80-        CQDMEM2 47      21      47      48      61      60      .00                     \r\n                   81-        CQDMEM2 48      21      48      49      62      61      .00                     \r\n                   82-        CQDMEM2 49      21      49      50      63      62      .00                     \r\n                   83-        CQDMEM2 50      21      50      51      64      63      .00                     \r\n                   84-        CQDMEM2 51      21      51      52      65      64      .00                     \r\n                   85-        CQDMEM2 53      21      53      54      67      66      .00                     \r\n                   86-        CQDMEM2 54      21      54      55      68      67      .00                     \r\n                   87-        CQDMEM2 55      21      55      56      69      68      .00                     \r\n                   88-        CQDMEM2 56      21      56      57      70      69      .00                     \r\n                   89-        CQDMEM2 57      21      57      58      71      70      .00                     \r\n                   90-        CQDMEM2 58      21      58      59      72      71      .00                     \r\n                   91-        CQDMEM2 59      21      59      60      73      72      .00                     \r\n                   92-        CQDMEM2 60      21      60      61      74      73      .00                     \r\n                   93-        CQDMEM2 61      21      61      62      75      74      .00                     \r\n                   94-        CQDMEM2 62      21      62      63      76      75      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQDMEM2 63      21      63      64      77      76      .00                     \r\n                   96-        CQDMEM2 64      21      64      65      78      77      .00                     \r\n                   97-        CQDMEM2 66      21      66      67      80      79      .00                     \r\n                   98-        CQDMEM2 67      21      67      68      81      80      .00                     \r\n                   99-        CQDMEM2 68      21      68      69      82      81      .00                     \r\n                  100-        CQDMEM2 69      21      69      70      83      82      .00                     \r\n                  101-        CQDMEM2 70      21      70      71      84      83      .00                     \r\n                  102-        CQDMEM2 71      21      71      72      85      84      .00                     \r\n                  103-        CQDMEM2 72      21      72      73      86      85      .00                     \r\n                  104-        CQDMEM2 73      21      73      74      87      86      .00                     \r\n                  105-        CQDMEM2 74      21      74      75      88      87      .00                     \r\n                  106-        CQDMEM2 75      21      75      76      89      88      .00                     \r\n                  107-        CQDMEM2 76      21      76      77      90      89      .00                     \r\n                  108-        CQDMEM2 77      21      77      78      91      90      .00                     \r\n                  109-        CQDMEM2 79      21      79      80      93      92      .00                     \r\n                  110-        CQDMEM2 80      21      80      81      94      93      .00                     \r\n                  111-        CQDMEM2 81      21      81      82      95      94      .00                     \r\n                  112-        CQDMEM2 82      21      82      83      96      95      .00                     \r\n                  113-        CQDMEM2 83      21      83      84      97      96      .00                     \r\n                  114-        CQDMEM2 84      21      84      85      98      97      .00                     \r\n                  115-        CQDMEM2 85      21      85      86      99      98      .00                     \r\n                  116-        CQDMEM2 86      21      86      87      100     99      .00                     \r\n                  117-        CQDMEM2 87      21      87      88      101     100     .00                     \r\n                  118-        CQDMEM2 88      21      88      89      102     101     .00                     \r\n                  119-        CQDMEM2 89      21      89      90      103     102     .00                     \r\n                  120-        CQDMEM2 90      21      90      91      104     103     .00                     \r\n                  121-        CQDMEM2 92      21      92      93      106     105     .00                     \r\n                  122-        CQDMEM2 93      21      93      94      107     106     .00                     \r\n                  123-        CQDMEM2 94      21      94      95      108     107     .00                     \r\n                  124-        CQDMEM2 95      21      95      96      109     108     .00                     \r\n                  125-        CQDMEM2 96      21      96      97      110     109     .00                     \r\n                  126-        CQDMEM2 97      21      97      98      111     110     .00                     \r\n                  127-        CQDMEM2 98      21      98      99      112     111     .00                     \r\n                  128-        CQDMEM2 99      21      99      100     113     112     .00                     \r\n                  129-        CQDMEM2 100     21      100     101     114     113     .00                     \r\n                  130-        CQDMEM2 101     21      101     102     115     114     .00                     \r\n                  131-        CQDMEM2 102     21      102     103     116     115     .00                     \r\n                  132-        CQDMEM2 103     21      103     104     117     116     .00                     \r\n                  133-        CQDMEM2 105     21      105     106     119     118     .00                     \r\n                  134-        CQDMEM2 106     21      106     107     120     119     .00                     \r\n                  135-        CQDMEM2 107     21      107     108     121     120     .00                     \r\n                  136-        CQDMEM2 108     21      108     109     122     121     .00                     \r\n                  137-        CQDMEM2 109     21      109     110     123     122     .00                     \r\n                  138-        CQDMEM2 110     21      110     111     124     123     .00                     \r\n                  139-        CQDMEM2 111     21      111     112     125     124     .00                     \r\n                  140-        CQDMEM2 112     21      112     113     126     125     .00                     \r\n                  141-        CQDMEM2 113     21      113     114     127     126     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQDMEM2 114     21      114     115     128     127     .00                     \r\n                  143-        CQDMEM2 115     21      115     116     129     128     .00                     \r\n                  144-        CQDMEM2 116     21      116     117     130     129     .00                     \r\n                  145-        CQDMEM2 118     21      118     119     132     131     .00                     \r\n                  146-        CQDMEM2 119     21      119     120     133     132     .00                     \r\n                  147-        CQDMEM2 120     21      120     121     134     133     .00                     \r\n                  148-        CQDMEM2 121     21      121     122     135     134     .00                     \r\n                  149-        CQDMEM2 122     21      122     123     136     135     .00                     \r\n                  150-        CQDMEM2 123     21      123     124     137     136     .00                     \r\n                  151-        CQDMEM2 124     21      124     125     138     137     .00                     \r\n                  152-        CQDMEM2 125     21      125     126     139     138     .00                     \r\n                  153-        CQDMEM2 126     21      126     127     140     139     .00                     \r\n                  154-        CQDMEM2 127     21      127     128     141     140     .00                     \r\n                  155-        CQDMEM2 128     21      128     129     142     141     .00                     \r\n                  156-        CQDMEM2 129     21      129     130     143     142     .00                     \r\n                  157-        CQDMEM2 131     21      131     132     145     144     .00                     \r\n                  158-        CQDMEM2 132     21      132     133     146     145     .00                     \r\n                  159-        CQDMEM2 133     21      133     134     147     146     .00                     \r\n                  160-        CQDMEM2 134     21      134     135     148     147     .00                     \r\n                  161-        CQDMEM2 135     21      135     136     149     148     .00                     \r\n                  162-        CQDMEM2 136     21      136     137     150     149     .00                     \r\n                  163-        CQDMEM2 137     21      137     138     151     150     .00                     \r\n                  164-        CQDMEM2 138     21      138     139     152     151     .00                     \r\n                  165-        CQDMEM2 139     21      139     140     153     152     .00                     \r\n                  166-        CQDMEM2 140     21      140     141     154     153     .00                     \r\n                  167-        CQDMEM2 141     21      141     142     155     154     .00                     \r\n                  168-        CQDMEM2 142     21      142     143     156     155     .00                     \r\n                  169-        CQDMEM2 144     21      144     145     158     157     .00                     \r\n                  170-        CQDMEM2 145     21      145     146     159     158     .00                     \r\n                  171-        CQDMEM2 146     21      146     147     160     159     .00                     \r\n                  172-        CQDMEM2 147     21      147     148     161     160     .00                     \r\n                  173-        CQDMEM2 148     21      148     149     162     161     .00                     \r\n                  174-        CQDMEM2 149     21      149     150     163     162     .00                     \r\n                  175-        CQDMEM2 150     21      150     151     164     163     .00                     \r\n                  176-        CQDMEM2 151     21      151     152     165     164     .00                     \r\n                  177-        CQDMEM2 152     21      152     153     166     165     .00                     \r\n                  178-        CQDMEM2 153     21      153     154     167     166     .00                     \r\n                  179-        CQDMEM2 154     21      154     155     168     167     .00                     \r\n                  180-        CQDMEM2 155     21      155     156     169     168     .00                     \r\n                  181-        CQDMEM2 157     21      157     158     171     170     .00                     \r\n                  182-        CQDMEM2 158     21      158     159     172     171     .00                     \r\n                  183-        CQDMEM2 159     21      159     160     173     172     .00                     \r\n                  184-        CQDMEM2 160     21      160     161     174     173     .00                     \r\n                  185-        CQDMEM2 161     21      161     162     175     174     .00                     \r\n                  186-        CQDMEM2 162     21      162     163     176     175     .00                     \r\n                  187-        CQDMEM2 163     21      163     164     177     176     .00                     \r\n                  188-        CQDMEM2 164     21      164     165     178     177     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQDMEM2 165     21      165     166     179     178     .00                     \r\n                  190-        CQDMEM2 166     21      166     167     180     179     .00                     \r\n                  191-        CQDMEM2 167     21      167     168     181     180     .00                     \r\n                  192-        CQDMEM2 168     21      168     169     182     181     .00                     \r\n                  193-        CQDMEM2 170     21      170     171     184     183     .00                     \r\n                  194-        CQDMEM2 171     21      171     172     185     184     .00                     \r\n                  195-        CQDMEM2 172     21      172     173     186     185     .00                     \r\n                  196-        CQDMEM2 173     21      173     174     187     186     .00                     \r\n                  197-        CQDMEM2 174     21      174     175     188     187     .00                     \r\n                  198-        CQDMEM2 175     21      175     176     189     188     .00                     \r\n                  199-        CQDMEM2 176     21      176     177     190     189     .00                     \r\n                  200-        CQDMEM2 177     21      177     178     191     190     .00                     \r\n                  201-        CQDMEM2 178     21      178     179     192     191     .00                     \r\n                  202-        CQDMEM2 179     21      179     180     193     192     .00                     \r\n                  203-        CQDMEM2 180     21      180     181     194     193     .00                     \r\n                  204-        CQDMEM2 181     21      181     182     195     194     .00                     \r\n                  205-        CQDMEM2 183     21      183     184     197     196     .00                     \r\n                  206-        CQDMEM2 184     21      184     185     198     197     .00                     \r\n                  207-        CQDMEM2 185     21      185     186     199     198     .00                     \r\n                  208-        CQDMEM2 186     21      186     187     200     199     .00                     \r\n                  209-        CQDMEM2 187     21      187     188     201     200     .00                     \r\n                  210-        CQDMEM2 188     21      188     189     202     201     .00                     \r\n                  211-        CQDMEM2 189     21      189     190     203     202     .00                     \r\n                  212-        CQDMEM2 190     21      190     191     204     203     .00                     \r\n                  213-        CQDMEM2 191     21      191     192     205     204     .00                     \r\n                  214-        CQDMEM2 192     21      192     193     206     205     .00                     \r\n                  215-        CQDMEM2 193     21      193     194     207     206     .00                     \r\n                  216-        CQDMEM2 194     21      194     195     208     207     .00                     \r\n                  217-        CQDMEM2 196     21      196     197     210     209     .00                     \r\n                  218-        CQDMEM2 197     21      197     198     211     210     .00                     \r\n                  219-        CQDMEM2 198     21      198     199     212     211     .00                     \r\n                  220-        CQDMEM2 199     21      199     200     213     212     .00                     \r\n                  221-        CQDMEM2 200     21      200     201     214     213     .00                     \r\n                  222-        CQDMEM2 201     21      201     202     215     214     .00                     \r\n                  223-        CQDMEM2 202     21      202     203     216     215     .00                     \r\n                  224-        CQDMEM2 203     21      203     204     217     216     .00                     \r\n                  225-        CQDMEM2 204     21      204     205     218     217     .00                     \r\n                  226-        CQDMEM2 205     21      205     206     219     218     .00                     \r\n                  227-        CQDMEM2 206     21      206     207     220     219     .00                     \r\n                  228-        CQDMEM2 207     21      207     208     221     220     .00                     \r\n                  229-        CQDMEM2 209     21      209     210     223     222     .00                     \r\n                  230-        CQDMEM2 210     21      210     211     224     223     .00                     \r\n                  231-        CQDMEM2 211     21      211     212     225     224     .00                     \r\n                  232-        CQDMEM2 212     21      212     213     226     225     .00                     \r\n                  233-        CQDMEM2 213     21      213     214     227     226     .00                     \r\n                  234-        CQDMEM2 214     21      214     215     228     227     .00                     \r\n                  235-        CQDMEM2 215     21      215     216     229     228     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQDMEM2 216     21      216     217     230     229     .00                     \r\n                  237-        CQDMEM2 217     21      217     218     231     230     .00                     \r\n                  238-        CQDMEM2 218     21      218     219     232     231     .00                     \r\n                  239-        CQDMEM2 219     21      219     220     233     232     .00                     \r\n                  240-        CQDMEM2 220     21      220     221     234     233     .00                     \r\n                  241-        CQDMEM2 222     21      222     223     236     235     .00                     \r\n                  242-        CQDMEM2 223     21      223     224     237     236     .00                     \r\n                  243-        CQDMEM2 224     21      224     225     238     237     .00                     \r\n                  244-        CQDMEM2 225     21      225     226     239     238     .00                     \r\n                  245-        CQDMEM2 226     21      226     227     240     239     .00                     \r\n                  246-        CQDMEM2 227     21      227     228     241     240     .00                     \r\n                  247-        CQDMEM2 228     21      228     229     242     241     .00                     \r\n                  248-        CQDMEM2 229     21      229     230     243     242     .00                     \r\n                  249-        CQDMEM2 230     21      230     231     244     243     .00                     \r\n                  250-        CQDMEM2 231     21      231     232     245     244     .00                     \r\n                  251-        CQDMEM2 232     21      232     233     246     245     .00                     \r\n                  252-        CQDMEM2 233     21      233     234     247     246     .00                     \r\n                  253-        GRDSET                                                  3456                    \r\n                  254-        GRID    1               .0      .0      .0                                      \r\n                  255-        GRID    2               1.0     .0      .0                                      \r\n                  256-        GRID    3               2.0     .0      .0                                      \r\n                  257-        GRID    4               3.0     .0      .0                                      \r\n                  258-        GRID    5               4.0     .0      .0                                      \r\n                  259-        GRID    6               5.0     .0      .0                                      \r\n                  260-        GRID    7               6.0     .0      .0                                      \r\n                  261-        GRID    8               7.0     .0      .0                                      \r\n                  262-        GRID    9               8.0     .0      .0                                      \r\n                  263-        GRID    10              9.0     .0      .0                                      \r\n                  264-        GRID    11              10.0    .0      .0                                      \r\n                  265-        GRID    12              11.0    .0      .0                                      \r\n                  266-        GRID    13              12.0    .0      .0                                      \r\n                  267-        GRID    14              .0      1.0     .0                                      \r\n                  268-        GRID    15              1.0     1.0     .0                                      \r\n                  269-        GRID    16              2.0     1.0     .0                                      \r\n                  270-        GRID    17              3.0     1.0     .0                                      \r\n                  271-        GRID    18              4.0     1.0     .0                                      \r\n                  272-        GRID    19              5.0     1.0     .0                                      \r\n                  273-        GRID    20              6.0     1.0     .0                                      \r\n                  274-        GRID    21              7.0     1.0     .0                                      \r\n                  275-        GRID    22              8.0     1.0     .0                                      \r\n                  276-        GRID    23              9.0     1.0     .0                                      \r\n                  277-        GRID    24              10.0    1.0     .0                                      \r\n                  278-        GRID    25              11.0    1.0     .0                                      \r\n                  279-        GRID    26              12.0    1.0     .0                                      \r\n                  280-        GRID    27              .0      2.0     .0                                      \r\n                  281-        GRID    28              1.0     2.0     .0                                      \r\n                  282-        GRID    29              2.0     2.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    30              3.0     2.0     .0                                      \r\n                  284-        GRID    31              4.0     2.0     .0                                      \r\n                  285-        GRID    32              5.0     2.0     .0                                      \r\n                  286-        GRID    33              6.0     2.0     .0                                      \r\n                  287-        GRID    34              7.0     2.0     .0                                      \r\n                  288-        GRID    35              8.0     2.0     .0                                      \r\n                  289-        GRID    36              9.0     2.0     .0                                      \r\n                  290-        GRID    37              10.0    2.0     .0                                      \r\n                  291-        GRID    38              11.0    2.0     .0                                      \r\n                  292-        GRID    39              12.0    2.0     .0                                      \r\n                  293-        GRID    40              .0      3.0     .0                                      \r\n                  294-        GRID    41              1.0     3.0     .0                                      \r\n                  295-        GRID    42              2.0     3.0     .0                                      \r\n                  296-        GRID    43              3.0     3.0     .0                                      \r\n                  297-        GRID    44              4.0     3.0     .0                                      \r\n                  298-        GRID    45              5.0     3.0     .0                                      \r\n                  299-        GRID    46              6.0     3.0     .0                                      \r\n                  300-        GRID    47              7.0     3.0     .0                                      \r\n                  301-        GRID    48              8.0     3.0     .0                                      \r\n                  302-        GRID    49              9.0     3.0     .0                                      \r\n                  303-        GRID    50              10.0    3.0     .0                                      \r\n                  304-        GRID    51              11.0    3.0     .0                                      \r\n                  305-        GRID    52              12.0    3.0     .0                                      \r\n                  306-        GRID    53              .0      4.0     .0                                      \r\n                  307-        GRID    54              1.0     4.0     .0                                      \r\n                  308-        GRID    55              2.0     4.0     .0                                      \r\n                  309-        GRID    56              3.0     4.0     .0                                      \r\n                  310-        GRID    57              4.0     4.0     .0                                      \r\n                  311-        GRID    58              5.0     4.0     .0                                      \r\n                  312-        GRID    59              6.0     4.0     .0                                      \r\n                  313-        GRID    60              7.0     4.0     .0                                      \r\n                  314-        GRID    61              8.0     4.0     .0                                      \r\n                  315-        GRID    62              9.0     4.0     .0                                      \r\n                  316-        GRID    63              10.0    4.0     .0                                      \r\n                  317-        GRID    64              11.0    4.0     .0                                      \r\n                  318-        GRID    65              12.0    4.0     .0                                      \r\n                  319-        GRID    66              .0      5.0     .0                                      \r\n                  320-        GRID    67              1.0     5.0     .0                                      \r\n                  321-        GRID    68              2.0     5.0     .0                                      \r\n                  322-        GRID    69              3.0     5.0     .0                                      \r\n                  323-        GRID    70              4.0     5.0     .0                                      \r\n                  324-        GRID    71              5.0     5.0     .0                                      \r\n                  325-        GRID    72              6.0     5.0     .0                                      \r\n                  326-        GRID    73              7.0     5.0     .0                                      \r\n                  327-        GRID    74              8.0     5.0     .0                                      \r\n                  328-        GRID    75              9.0     5.0     .0                                      \r\n                  329-        GRID    76              10.0    5.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID    77              11.0    5.0     .0                                      \r\n                  331-        GRID    78              12.0    5.0     .0                                      \r\n                  332-        GRID    79              .0      6.0     .0                                      \r\n                  333-        GRID    80              1.0     6.0     .0                                      \r\n                  334-        GRID    81              2.0     6.0     .0                                      \r\n                  335-        GRID    82              3.0     6.0     .0                                      \r\n                  336-        GRID    83              4.0     6.0     .0                                      \r\n                  337-        GRID    84              5.0     6.0     .0                                      \r\n                  338-        GRID    85              6.0     6.0     .0                                      \r\n                  339-        GRID    86              7.0     6.0     .0                                      \r\n                  340-        GRID    87              8.0     6.0     .0                                      \r\n                  341-        GRID    88              9.0     6.0     .0                                      \r\n                  342-        GRID    89              10.0    6.0     .0                                      \r\n                  343-        GRID    90              11.0    6.0     .0                                      \r\n                  344-        GRID    91              12.0    6.0     .0                                      \r\n                  345-        GRID    92              .0      7.0     .0                                      \r\n                  346-        GRID    93              1.0     7.0     .0                                      \r\n                  347-        GRID    94              2.0     7.0     .0                                      \r\n                  348-        GRID    95              3.0     7.0     .0                                      \r\n                  349-        GRID    96              4.0     7.0     .0                                      \r\n                  350-        GRID    97              5.0     7.0     .0                                      \r\n                  351-        GRID    98              6.0     7.0     .0                                      \r\n                  352-        GRID    99              7.0     7.0     .0                                      \r\n                  353-        GRID    100             8.0     7.0     .0                                      \r\n                  354-        GRID    101             9.0     7.0     .0                                      \r\n                  355-        GRID    102             10.0    7.0     .0                                      \r\n                  356-        GRID    103             11.0    7.0     .0                                      \r\n                  357-        GRID    104             12.0    7.0     .0                                      \r\n                  358-        GRID    105             .0      8.0     .0                                      \r\n                  359-        GRID    106             1.0     8.0     .0                                      \r\n                  360-        GRID    107             2.0     8.0     .0                                      \r\n                  361-        GRID    108             3.0     8.0     .0                                      \r\n                  362-        GRID    109             4.0     8.0     .0                                      \r\n                  363-        GRID    110             5.0     8.0     .0                                      \r\n                  364-        GRID    111             6.0     8.0     .0                                      \r\n                  365-        GRID    112             7.0     8.0     .0                                      \r\n                  366-        GRID    113             8.0     8.0     .0                                      \r\n                  367-        GRID    114             9.0     8.0     .0                                      \r\n                  368-        GRID    115             10.0    8.0     .0                                      \r\n                  369-        GRID    116             11.0    8.0     .0                                      \r\n                  370-        GRID    117             12.0    8.0     .0                                      \r\n                  371-        GRID    118             .0      9.0     .0                                      \r\n                  372-        GRID    119             1.0     9.0     .0                                      \r\n                  373-        GRID    120             2.0     9.0     .0                                      \r\n                  374-        GRID    121             3.0     9.0     .0                                      \r\n                  375-        GRID    122             4.0     9.0     .0                                      \r\n                  376-        GRID    123             5.0     9.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    124             6.0     9.0     .0                                      \r\n                  378-        GRID    125             7.0     9.0     .0                                      \r\n                  379-        GRID    126             8.0     9.0     .0                                      \r\n                  380-        GRID    127             9.0     9.0     .0                                      \r\n                  381-        GRID    128             10.0    9.0     .0                                      \r\n                  382-        GRID    129             11.0    9.0     .0                                      \r\n                  383-        GRID    130             12.0    9.0     .0                                      \r\n                  384-        GRID    131             .0      10.0    .0                                      \r\n                  385-        GRID    132             1.0     10.0    .0                                      \r\n                  386-        GRID    133             2.0     10.0    .0                                      \r\n                  387-        GRID    134             3.0     10.0    .0                                      \r\n                  388-        GRID    135             4.0     10.0    .0                                      \r\n                  389-        GRID    136             5.0     10.0    .0                                      \r\n                  390-        GRID    137             6.0     10.0    .0                                      \r\n                  391-        GRID    138             7.0     10.0    .0                                      \r\n                  392-        GRID    139             8.0     10.0    .0                                      \r\n                  393-        GRID    140             9.0     10.0    .0                                      \r\n                  394-        GRID    141             10.0    10.0    .0                                      \r\n                  395-        GRID    142             11.0    10.0    .0                                      \r\n                  396-        GRID    143             12.0    10.0    .0                                      \r\n                  397-        GRID    144             .0      11.0    .0                                      \r\n                  398-        GRID    145             1.0     11.0    .0                                      \r\n                  399-        GRID    146             2.0     11.0    .0                                      \r\n                  400-        GRID    147             3.0     11.0    .0                                      \r\n                  401-        GRID    148             4.0     11.0    .0                                      \r\n                  402-        GRID    149             5.0     11.0    .0                                      \r\n                  403-        GRID    150             6.0     11.0    .0                                      \r\n                  404-        GRID    151             7.0     11.0    .0                                      \r\n                  405-        GRID    152             8.0     11.0    .0                                      \r\n                  406-        GRID    153             9.0     11.0    .0                                      \r\n                  407-        GRID    154             10.0    11.0    .0                                      \r\n                  408-        GRID    155             11.0    11.0    .0                                      \r\n                  409-        GRID    156             12.0    11.0    .0                                      \r\n                  410-        GRID    157             .0      12.0    .0                                      \r\n                  411-        GRID    158             1.0     12.0    .0                                      \r\n                  412-        GRID    159             2.0     12.0    .0                                      \r\n                  413-        GRID    160             3.0     12.0    .0                                      \r\n                  414-        GRID    161             4.0     12.0    .0                                      \r\n                  415-        GRID    162             5.0     12.0    .0                                      \r\n                  416-        GRID    163             6.0     12.0    .0                                      \r\n                  417-        GRID    164             7.0     12.0    .0                                      \r\n                  418-        GRID    165             8.0     12.0    .0                                      \r\n                  419-        GRID    166             9.0     12.0    .0                                      \r\n                  420-        GRID    167             10.0    12.0    .0                                      \r\n                  421-        GRID    168             11.0    12.0    .0                                      \r\n                  422-        GRID    169             12.0    12.0    .0                                      \r\n                  423-        GRID    170             .0      13.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    171             1.0     13.0    .0                                      \r\n                  425-        GRID    172             2.0     13.0    .0                                      \r\n                  426-        GRID    173             3.0     13.0    .0                                      \r\n                  427-        GRID    174             4.0     13.0    .0                                      \r\n                  428-        GRID    175             5.0     13.0    .0                                      \r\n                  429-        GRID    176             6.0     13.0    .0                                      \r\n                  430-        GRID    177             7.0     13.0    .0                                      \r\n                  431-        GRID    178             8.0     13.0    .0                                      \r\n                  432-        GRID    179             9.0     13.0    .0                                      \r\n                  433-        GRID    180             10.0    13.0    .0                                      \r\n                  434-        GRID    181             11.0    13.0    .0                                      \r\n                  435-        GRID    182             12.0    13.0    .0                                      \r\n                  436-        GRID    183             .0      14.0    .0                                      \r\n                  437-        GRID    184             1.0     14.0    .0                                      \r\n                  438-        GRID    185             2.0     14.0    .0                                      \r\n                  439-        GRID    186             3.0     14.0    .0                                      \r\n                  440-        GRID    187             4.0     14.0    .0                                      \r\n                  441-        GRID    188             5.0     14.0    .0                                      \r\n                  442-        GRID    189             6.0     14.0    .0                                      \r\n                  443-        GRID    190             7.0     14.0    .0                                      \r\n                  444-        GRID    191             8.0     14.0    .0                                      \r\n                  445-        GRID    192             9.0     14.0    .0                                      \r\n                  446-        GRID    193             10.0    14.0    .0                                      \r\n                  447-        GRID    194             11.0    14.0    .0                                      \r\n                  448-        GRID    195             12.0    14.0    .0                                      \r\n                  449-        GRID    196             .0      15.0    .0                                      \r\n                  450-        GRID    197             1.0     15.0    .0                                      \r\n                  451-        GRID    198             2.0     15.0    .0                                      \r\n                  452-        GRID    199             3.0     15.0    .0                                      \r\n                  453-        GRID    200             4.0     15.0    .0                                      \r\n                  454-        GRID    201             5.0     15.0    .0                                      \r\n                  455-        GRID    202             6.0     15.0    .0                                      \r\n                  456-        GRID    203             7.0     15.0    .0                                      \r\n                  457-        GRID    204             8.0     15.0    .0                                      \r\n                  458-        GRID    205             9.0     15.0    .0                                      \r\n                  459-        GRID    206             10.0    15.0    .0                                      \r\n                  460-        GRID    207             11.0    15.0    .0                                      \r\n                  461-        GRID    208             12.0    15.0    .0                                      \r\n                  462-        GRID    209             .0      16.0    .0                                      \r\n                  463-        GRID    210             1.0     16.0    .0                                      \r\n                  464-        GRID    211             2.0     16.0    .0                                      \r\n                  465-        GRID    212             3.0     16.0    .0                                      \r\n                  466-        GRID    213             4.0     16.0    .0                                      \r\n                  467-        GRID    214             5.0     16.0    .0                                      \r\n                  468-        GRID    215             6.0     16.0    .0                                      \r\n                  469-        GRID    216             7.0     16.0    .0                                      \r\n                  470-        GRID    217             8.0     16.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        GRID    218             9.0     16.0    .0                                      \r\n                  472-        GRID    219             10.0    16.0    .0                                      \r\n                  473-        GRID    220             11.0    16.0    .0                                      \r\n                  474-        GRID    221             12.0    16.0    .0                                      \r\n                  475-        GRID    222             .0      17.0    .0                                      \r\n                  476-        GRID    223             1.0     17.0    .0                                      \r\n                  477-        GRID    224             2.0     17.0    .0                                      \r\n                  478-        GRID    225             3.0     17.0    .0                                      \r\n                  479-        GRID    226             4.0     17.0    .0                                      \r\n                  480-        GRID    227             5.0     17.0    .0                                      \r\n                  481-        GRID    228             6.0     17.0    .0                                      \r\n                  482-        GRID    229             7.0     17.0    .0                                      \r\n                  483-        GRID    230             8.0     17.0    .0                                      \r\n                  484-        GRID    231             9.0     17.0    .0                                      \r\n                  485-        GRID    232             10.0    17.0    .0                                      \r\n                  486-        GRID    233             11.0    17.0    .0                                      \r\n                  487-        GRID    234             12.0    17.0    .0                                      \r\n                  488-        GRID    235             .0      18.0    .0                                      \r\n                  489-        GRID    236             1.0     18.0    .0                                      \r\n                  490-        GRID    237             2.0     18.0    .0                                      \r\n                  491-        GRID    238             3.0     18.0    .0                                      \r\n                  492-        GRID    239             4.0     18.0    .0                                      \r\n                  493-        GRID    240             5.0     18.0    .0                                      \r\n                  494-        GRID    241             6.0     18.0    .0                                      \r\n                  495-        GRID    242             7.0     18.0    .0                                      \r\n                  496-        GRID    243             8.0     18.0    .0                                      \r\n                  497-        GRID    244             9.0     18.0    .0                                      \r\n                  498-        GRID    245             10.0    18.0    .0                                      \r\n                  499-        GRID    246             11.0    18.0    .0                                      \r\n                  500-        GRID    247             12.0    18.0    .0                                      \r\n                  501-        MAT1    75      10.400+6        .3              12.700-675.                     \r\n                  502-        MATT1   75      100                                                             \r\n                  503-        PARAM   IRES    1                                                               \r\n                  504-        PQDMEM2 21      75      .25                                                     \r\n                  505-        SPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n                  506-        +SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n                  507-        +SPC-B  183     196     209     222     235                                     \r\n                  508-        SPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n                  509-        +SPC-C  7       8       9       10      11      12      13                      \r\n                  510-        TABLEM1 100                                                             +TM1    \r\n                  511-        +TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n                  512-        +TM2    300.    9.15+6  ENDT                                                    \r\n                  513-        TEMP    1       1       245.000 2       232.500 3       220.000                 \r\n                  514-        TEMP    1       4       207.500 5       195.000 6       182.500                 \r\n                  515-        TEMP    1       7       170.000 8       157.500 9       145.000                 \r\n                  516-        TEMP    1       10      132.500 11      120.000 12      107.500                 \r\n                  517-        TEMP    1       13      95.000  14      245.000 15      232.500                 \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        TEMP    1       16      220.000 17      207.500 18      195.000                 \r\n                  519-        TEMP    1       19      182.500 20      170.000 21      157.500                 \r\n                  520-        TEMP    1       22      145.000 23      132.500 24      120.000                 \r\n                  521-        TEMP    1       25      107.500 26      95.000  27      245.000                 \r\n                  522-        TEMP    1       28      232.500 29      220.000 30      207.500                 \r\n                  523-        TEMP    1       31      195.000 32      182.500 33      170.000                 \r\n                  524-        TEMP    1       34      157.500 35      145.000 36      132.500                 \r\n                  525-        TEMP    1       37      120.000 38      107.500 39      95.000                  \r\n                  526-        TEMP    1       40      245.000 41      232.500 42      220.000                 \r\n                  527-        TEMP    1       43      207.500 44      195.000 45      182.500                 \r\n                  528-        TEMP    1       46      170.000 47      157.500 48      145.000                 \r\n                  529-        TEMP    1       49      132.500 50      120.000 51      107.500                 \r\n                  530-        TEMP    1       52      95.000  53      245.000 54      232.500                 \r\n                  531-        TEMP    1       55      220.000 56      207.500 57      195.000                 \r\n                  532-        TEMP    1       58      182.500 59      170.000 60      157.500                 \r\n                  533-        TEMP    1       61      145.000 62      132.500 63      120.000                 \r\n                  534-        TEMP    1       64      107.500 65      95.000  66      245.000                 \r\n                  535-        TEMP    1       67      232.500 68      220.000 69      207.500                 \r\n                  536-        TEMP    1       70      195.000 71      182.500 72      170.000                 \r\n                  537-        TEMP    1       73      157.500 74      145.000 75      132.500                 \r\n                  538-        TEMP    1       76      120.000 77      107.500 78      95.000                  \r\n                  539-        TEMP    1       79      245.000 80      232.500 81      220.000                 \r\n                  540-        TEMP    1       82      207.500 83      195.000 84      182.500                 \r\n                  541-        TEMP    1       85      170.000 86      157.500 87      145.000                 \r\n                  542-        TEMP    1       88      132.500 89      120.000 90      107.500                 \r\n                  543-        TEMP    1       91      95.000  92      245.000 93      232.500                 \r\n                  544-        TEMP    1       94      220.000 95      207.500 96      195.000                 \r\n                  545-        TEMP    1       97      182.500 98      170.000 99      157.500                 \r\n                  546-        TEMP    1       100     145.000 101     132.500 102     120.000                 \r\n                  547-        TEMP    1       103     107.500 104     95.000  105     245.000                 \r\n                  548-        TEMP    1       106     232.500 107     220.000 108     207.500                 \r\n                  549-        TEMP    1       109     195.000 110     182.500 111     170.000                 \r\n                  550-        TEMP    1       112     157.500 113     145.000 114     132.500                 \r\n                  551-        TEMP    1       115     120.000 116     107.500 117     95.000                  \r\n                  552-        TEMP    1       118     245.000 119     232.500 120     220.000                 \r\n                  553-        TEMP    1       121     207.500 122     195.000 123     182.500                 \r\n                  554-        TEMP    1       124     170.000 125     157.500 126     145.000                 \r\n                  555-        TEMP    1       127     132.500 128     120.000 129     107.500                 \r\n                  556-        TEMP    1       130     95.000  131     245.000 132     232.500                 \r\n                  557-        TEMP    1       133     220.000 134     207.500 135     195.000                 \r\n                  558-        TEMP    1       136     182.500 137     170.000 138     157.500                 \r\n                  559-        TEMP    1       139     145.000 140     132.500 141     120.000                 \r\n                  560-        TEMP    1       142     107.500 143     95.000  144     245.000                 \r\n                  561-        TEMP    1       145     232.500 146     220.000 147     207.500                 \r\n                  562-        TEMP    1       148     195.000 149     182.500 150     170.000                 \r\n                  563-        TEMP    1       151     157.500 152     145.000 153     132.500                 \r\n                  564-        TEMP    1       154     120.000 155     107.500 156     95.000                  \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        TEMP    1       157     245.000 158     232.500 159     220.000                 \r\n                  566-        TEMP    1       160     207.500 161     195.000 162     182.500                 \r\n                  567-        TEMP    1       163     170.000 164     157.500 165     145.000                 \r\n                  568-        TEMP    1       166     132.500 167     120.000 168     107.500                 \r\n                  569-        TEMP    1       169     95.000  170     245.000 171     232.500                 \r\n                  570-        TEMP    1       172     220.000 173     207.500 174     195.000                 \r\n                  571-        TEMP    1       175     182.500 176     170.000 177     157.500                 \r\n                  572-        TEMP    1       178     145.000 179     132.500 180     120.000                 \r\n                  573-        TEMP    1       181     107.500 182     95.000  183     245.000                 \r\n                  574-        TEMP    1       184     232.500 185     220.000 186     207.500                 \r\n                  575-        TEMP    1       187     195.000 188     182.500 189     170.000                 \r\n                  576-        TEMP    1       190     157.500 191     145.000 192     132.500                 \r\n                  577-        TEMP    1       193     120.000 194     107.500 195     95.000                  \r\n                  578-        TEMP    1       196     245.000 197     232.500 198     220.000                 \r\n                  579-        TEMP    1       199     207.500 200     195.000 201     182.500                 \r\n                  580-        TEMP    1       202     170.000 203     157.500 204     145.000                 \r\n                  581-        TEMP    1       205     132.500 206     120.000 207     107.500                 \r\n                  582-        TEMP    1       208     95.000  209     245.000 210     232.500                 \r\n                  583-        TEMP    1       211     220.000 212     207.500 213     195.000                 \r\n                  584-        TEMP    1       214     182.500 215     170.000 216     157.500                 \r\n                  585-        TEMP    1       217     145.000 218     132.500 219     120.000                 \r\n                  586-        TEMP    1       220     107.500 221     95.000  222     245.000                 \r\n                  587-        TEMP    1       223     232.500 224     220.000 225     207.500                 \r\n                  588-        TEMP    1       226     195.000 227     182.500 228     170.000                 \r\n                  589-        TEMP    1       229     157.500 230     145.000 231     132.500                 \r\n                  590-        TEMP    1       232     120.000 233     107.500 234     95.000                  \r\n                  591-        TEMP    1       235     245.000 236     232.500 237     220.000                 \r\n                  592-        TEMP    1       238     207.500 239     195.000 240     182.500                 \r\n                  593-        TEMP    1       241     170.000 242     157.500 243     145.000                 \r\n                  594-        TEMP    1       244     132.500 245     120.000 246     107.500                 \r\n                  595-        TEMP    1       247     95.000                                                  \r\n                              ENDDATA\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE           3517\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   14.239\r\n                                        RMS WAVEFRONT   14.436\r\n                                        RMS BANDWIDTH   14.534\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE           3622\r\n                                        MAX WAVEFRONT       21\r\n                                        AVG WAVEFRONT   14.664\r\n                                        RMS WAVEFRONT   15.039\r\n                                        RMS BANDWIDTH   15.423\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       15        15\r\n                                        PROFILE (P)                       3517      3517\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           15        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       14.239    14.239\r\n                                        RMS WAVEFRONT (C-RMS)           14.436    14.436\r\n                                        RMS BANDWITCH (B-RMS)           14.534    14.534\r\n                                        NUMBER OF GRID POINTS (N)                    247\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               216\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       894\r\n                                        MATRIX DENSITY, PERCENT                    3.336\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2   ELEMENTS (ELEMENT TYPE  63) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.0646110E-16\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       2-T1).\r\n             2 T1  6.82121E-13        3 T1 -1.25056E-12        4 T1 -1.13687E-13        5 T1  4.88853E-12        6 T1 -3.75167E-12\r\n             7 T1  2.84217E-12        8 T1  3.41061E-13        9 T1 -2.84217E-12       10 T1 -2.44427E-12       11 T1 -4.20641E-12\r\n            12 T1 -5.91172E-12       13 T1 -2.19558E-12       14 T2 -2.27374E-13       15 T1  9.09495E-13       15 T2 -2.04636E-12\r\n            16 T1  1.81899E-12       16 T2 -5.22959E-12       17 T1 -2.95586E-12       17 T2  1.59162E-12       18 T1 -1.13687E-12\r\n            18 T2 -9.09495E-13       19 T1  3.41061E-12       19 T2  4.54747E-12       20 T1 -7.95808E-12       20 T2 -1.36424E-12\r\n            21 T1  8.86757E-12       21 T2 -9.09495E-13       22 T1 -1.09139E-11       22 T2 -2.72848E-12       23 T1  7.27596E-12\r\n            23 T2 -2.95586E-12       24 T1 -1.58025E-11       24 T2 -4.54747E-13       25 T1  3.06954E-12       25 T2 -3.18323E-12\r\n            26 T1  4.43379E-12       26 T2  2.27374E-12       27 T2  3.18323E-12       28 T2  4.54747E-13       29 T1 -5.22959E-12\r\n            29 T2  2.72848E-12       30 T1 -5.22959E-12       30 T2 -5.00222E-12       31 T1 -5.22959E-12       31 T2 -4.09273E-12\r\n            32 T1 -5.68434E-12       32 T2  3.18323E-12       33 T1 -6.82121E-13       33 T2 -4.54747E-12       34 T1  6.59384E-12\r\n            34 T2 -1.40972E-11       35 T1  1.56888E-11       35 T2  3.86535E-12       36 T1 -1.04592E-11       36 T2 -2.27374E-12\r\n            37 T1  2.27374E-12       37 T2 -4.09273E-12       38 T1 -2.27374E-13       38 T2  5.22959E-12       39 T1  1.86162E-12\r\n            39 T2  9.09495E-13       40 T2 -9.09495E-13       41 T1  2.72848E-12       41 T2  2.27374E-12       42 T1 -2.72848E-12\r\n            42 T2 -1.31877E-11       43 T1  9.09495E-13       43 T2 -1.81899E-12       44 T1  9.09495E-12       44 T2 -9.54969E-12\r\n            45 T1 -3.18323E-12       45 T2  2.27374E-12       46 T1  1.36424E-12       46 T2  8.64020E-12       47 T1 -5.45697E-12\r\n            47 T2  1.04592E-11       48 T1  1.31877E-11       48 T2 -3.18323E-12       49 T1 -1.15961E-11       49 T2 -3.18323E-12\r\n            50 T1 -6.36646E-12       50 T2  8.18545E-12       51 T1 -4.54747E-12       52 T1 -5.94014E-12       52 T2 -1.81899E-12\r\n            53 T2 -1.81899E-12       54 T1 -9.09495E-13       54 T2  5.00222E-12       55 T1 -4.54747E-12       55 T2  1.09139E-11\r\n            56 T1  1.36424E-12       56 T2 -8.18545E-12       57 T1 -7.73070E-12       57 T2  1.81899E-12       58 T1 -3.63798E-12\r\n            58 T2  5.91172E-12       59 T1  9.54969E-12       59 T2 -5.00222E-12       60 T1 -1.27329E-11       60 T2 -4.54747E-13\r\n            61 T1 -5.00222E-12       61 T2 -7.73070E-12       62 T1  2.72848E-12       62 T2  5.45697E-12       63 T1  4.09273E-12\r\n            63 T2  8.18545E-12       64 T1  8.64020E-12       64 T2 -8.64020E-12       65 T1 -1.59162E-12       65 T2 -1.81899E-12\r\n            66 T2 -3.63798E-12       67 T1  2.72848E-12       67 T2  9.09495E-13       68 T2  1.18234E-11       69 T1 -3.18323E-12\r\n            69 T2  1.00044E-11       70 T1  4.54747E-12       70 T2 -8.18545E-12       71 T1 -9.54969E-12       71 T2 -1.00044E-11\r\n            72 T1  1.31877E-11       72 T2 -4.54747E-12       73 T1 -8.18545E-12       73 T2  2.27374E-12       74 T1  4.54747E-13\r\n            74 T2  1.40972E-11       75 T1  1.59162E-11       75 T2 -3.18323E-12       76 T1  9.54969E-12       76 T2 -3.18323E-12\r\n            77 T1  1.81899E-12       77 T2 -5.00222E-12       78 T1 -1.36424E-12       78 T2  6.36646E-12       79 T2  5.45697E-12\r\n            80 T1  3.63798E-12       80 T2 -1.36424E-11       81 T1  3.63798E-12       81 T2 -5.45697E-12       82 T1  9.09495E-13\r\n            82 T2 -5.45697E-12       83 T1  5.91172E-12       83 T2 -7.27596E-12       84 T1  7.27596E-12       84 T2 -1.54614E-11\r\n            85 T1 -1.27329E-11       85 T2  4.54747E-12       86 T1 -6.36646E-12       86 T2  7.27596E-12       87 T1  1.63709E-11\r\n            87 T2  3.63798E-12       88 T1 -2.72848E-12       88 T2  5.45697E-12       89 T1  3.18323E-12       89 T2  1.54614E-11\r\n            90 T1 -8.64020E-12       90 T2  1.45519E-11       91 T1  6.70752E-12       91 T2 -9.09495E-13       92 T2 -3.63798E-12\r\n            93 T1  9.09495E-13       93 T2  1.27329E-11       94 T1  1.81899E-12       94 T2 -2.72848E-12       95 T1  6.36646E-12\r\n            96 T1 -4.54747E-12       96 T2  1.27329E-11       97 T2 -9.09495E-12       98 T1  1.18234E-11       98 T2 -1.18234E-11\r\n            99 T1  2.72848E-12       99 T2 -1.09139E-11      100 T1  4.54747E-13      100 T2  7.27596E-12      101 T1 -6.36646E-12\r\n           101 T2 -1.81899E-11      102 T1  3.63798E-12      102 T2 -2.72848E-12      103 T1 -7.73070E-12      103 T2 -1.81899E-12\r\n           104 T1  1.87583E-12      104 T2 -9.09495E-13      105 T2 -2.72848E-12      106 T1 -6.36646E-12      106 T2 -2.72848E-12\r\n           107 T1  2.72848E-12      107 T2 -7.27596E-12      108 T1  5.45697E-12      108 T2  1.63709E-11      109 T1  1.81899E-12\r\n           109 T2  7.27596E-12      110 T1 -1.00044E-11      110 T2  1.27329E-11      111 T1 -8.18545E-12      111 T2 -2.72848E-12\r\n           112 T1  1.27329E-11      112 T2 -1.81899E-12      113 T1  1.81899E-12      113 T2 -5.45697E-12      114 T1 -2.09184E-11\r\n           114 T2  4.54747E-12      115 T1 -1.09139E-11      115 T2  9.09495E-13      116 T1  1.54614E-11      116 T2  1.00044E-11\r\n           117 T1 -1.59162E-11      117 T2  9.09495E-13      118 T2  9.09495E-12      119 T1  2.72848E-12      119 T2 -5.45697E-12\r\n           120 T1  6.36646E-12      120 T2 -4.54747E-12      121 T2 -9.09495E-13      122 T1 -2.72848E-12      122 T2  9.09495E-13\r\n           123 T2 -1.72804E-11      124 T1 -8.18545E-12      125 T1  1.72804E-11      125 T2  7.27596E-12      126 T1  6.36646E-12\r\n           126 T2  3.63798E-12      127 T1 -5.45697E-12      127 T2 -3.63798E-12      128 T1  3.63798E-12      128 T2  5.45697E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n           129 T1  1.45519E-11      129 T2 -1.81899E-12      130 T1 -6.59384E-12      131 T2  5.45697E-12      132 T1 -1.81899E-12\r\n           132 T2 -5.45697E-12      133 T1  6.36646E-12      133 T2 -3.45608E-11      134 T1  1.81899E-12      134 T2  1.27329E-11\r\n           135 T1 -3.63798E-12      135 T2 -1.45519E-11      136 T1 -1.63709E-11      136 T2 -1.00044E-11      137 T1  6.36646E-12\r\n           137 T2 -1.36424E-11      138 T1 -4.54747E-12      138 T2  7.27596E-12      139 T1  2.72848E-12      139 T2  2.27374E-11\r\n           140 T1  7.27596E-12      140 T2  2.27374E-11      141 T1  3.63798E-12      141 T2 -6.36646E-12      142 T1 -1.36424E-11\r\n           142 T2  2.72848E-12      143 T1  1.23919E-11      143 T2 -5.45697E-12      144 T2  1.81899E-12      145 T1 -5.45697E-12\r\n           145 T2  1.45519E-11      146 T1  1.81899E-12      146 T2  1.27329E-11      147 T1  8.18545E-12      147 T2  2.91038E-11\r\n           148 T2 -5.45697E-12      149 T1  2.72848E-12      149 T2  1.45519E-11      150 T1 -6.36646E-12      150 T2 -1.81899E-12\r\n           151 T1  1.00044E-11      151 T2 -5.45697E-12      152 T1 -1.81899E-11      152 T2 -2.00089E-11      153 T1 -8.18545E-12\r\n           153 T2 -8.18545E-12      154 T1 -2.36469E-11      154 T2 -1.00044E-11      155 T1  1.81899E-11      155 T2 -2.63753E-11\r\n           156 T1  2.04636E-12      157 T2 -3.63798E-12      158 T1  3.63798E-12      158 T2  9.09495E-12      159 T1 -1.81899E-12\r\n           159 T2 -5.45697E-12      160 T1  3.63798E-12      160 T2 -1.09139E-11      161 T1 -9.09495E-12      161 T2 -1.27329E-11\r\n           162 T1  5.45697E-12      162 T2 -3.63798E-11      163 T1  6.36646E-12      163 T2  1.81899E-11      164 T1 -1.18234E-11\r\n           164 T2 -5.45697E-12      165 T1  9.09495E-12      165 T2 -6.36646E-12      166 T1  1.72804E-11      166 T2 -1.09139E-11\r\n           167 T1 -9.09495E-13      167 T2 -2.72848E-12      168 T1 -7.27596E-12      168 T2  1.81899E-12      169 T1 -5.05906E-12\r\n           169 T2  1.63709E-11      171 T1  1.81899E-12      171 T2 -3.63798E-12      172 T1  1.81899E-12      172 T2 -1.45519E-11\r\n           173 T1  3.63798E-12      173 T2  1.63709E-11      174 T1  1.09139E-11      174 T2  2.72848E-11      175 T1  8.18545E-12\r\n           175 T2  1.81899E-12      176 T1  3.63798E-12      176 T2  3.63798E-12      177 T1  5.45697E-12      177 T2  2.18279E-11\r\n           178 T1 -7.27596E-12      178 T2  2.91038E-11      179 T2 -9.09495E-12      180 T1  7.27596E-12      180 T2  8.18545E-12\r\n           181 T1 -9.09495E-13      181 T2  6.36646E-12      182 T1 -9.03810E-12      182 T2  1.81899E-12      183 T2  5.45697E-12\r\n           184 T1 -1.81899E-12      184 T2  1.81899E-12      185 T1 -3.63798E-12      185 T2  3.63798E-12      186 T1 -3.63798E-12\r\n           186 T2 -2.00089E-11      187 T1  3.63798E-12      187 T2 -3.81988E-11      188 T1 -1.63709E-11      188 T2  9.09495E-12\r\n           189 T1  1.36424E-11      189 T2 -9.09495E-12      190 T1 -9.09495E-13      190 T2  2.72848E-11      191 T1  7.27596E-12\r\n           191 T2  3.27418E-11      192 T1  1.00044E-11      192 T2 -1.81899E-12      193 T1 -1.00044E-11      193 T2  2.72848E-11\r\n           194 T1  1.54614E-11      194 T2 -5.45697E-12      195 T1 -2.38742E-12      195 T2  7.27596E-12      196 T2  2.18279E-11\r\n           197 T1 -1.81899E-12      197 T2 -2.18279E-11      198 T2  3.63798E-11      199 T1 -7.27596E-12      199 T2 -6.18456E-11\r\n           200 T1  1.09139E-11      200 T2  3.09228E-11      201 T1  1.81899E-12      201 T2  4.36557E-11      202 T1  5.45697E-12\r\n           202 T2 -3.27418E-11      203 T1 -8.18545E-12      203 T2  1.81899E-12      204 T1  1.18234E-11      204 T2 -2.00089E-11\r\n           205 T1 -9.09495E-12      205 T2 -1.81899E-12      206 T1  1.45519E-11      206 T2 -2.72848E-12      207 T1 -1.81899E-11\r\n           207 T2 -2.72848E-12      208 T1 -2.04636E-12      208 T2  1.09139E-11      209 T2 -2.72848E-11      210 T1 -3.63798E-12\r\n           210 T2 -7.27596E-12      211 T1 -7.27596E-12      211 T2 -3.81988E-11      212 T1  1.81899E-12      212 T2  2.00089E-11\r\n           213 T1  1.09139E-11      213 T2  1.45519E-11      214 T1 -1.27329E-11      214 T2  7.27596E-12      215 T2  1.45519E-11\r\n           216 T1  1.81899E-12      216 T2  2.36469E-11      217 T1  1.45519E-11      217 T2  5.45697E-12      218 T1  8.18545E-12\r\n           218 T2 -2.36469E-11      219 T1  6.36646E-12      219 T2  7.27596E-12      220 T1  1.81899E-12      220 T2 -4.54747E-12\r\n           221 T1  3.35376E-12      221 T2 -7.27596E-12      222 T2 -2.36469E-11      223 T1 -1.81899E-12      223 T2  3.63798E-12\r\n           224 T1  1.45519E-11      224 T2  1.63709E-11      225 T1 -5.45697E-12      225 T2  1.45519E-11      226 T1 -1.81899E-12\r\n           226 T2 -1.27329E-11      227 T1 -1.81899E-11      227 T2 -5.45697E-12      228 T1  9.09495E-12      228 T2  1.45519E-11\r\n           229 T1 -1.63709E-11      229 T2  1.45519E-11      230 T1  1.09139E-11      230 T2  5.45697E-12      231 T1 -1.81899E-11\r\n           231 T2  1.81899E-12      232 T1  1.81899E-11      232 T2  3.63798E-12      233 T1 -8.18545E-12      233 T2 -2.27374E-11\r\n           234 T1 -7.38964E-13      234 T2 -1.81899E-12      235 T2  9.54969E-12      236 T1  1.06866E-11      236 T2 -7.73070E-12\r\n           237 T1  6.13909E-12      237 T2 -9.09495E-13      238 T1  6.82121E-13      238 T2 -1.93268E-11      239 T1  5.91172E-12\r\n           239 T2  1.72804E-11      240 T1  1.47793E-12      240 T2 -4.54747E-13      241 T1 -1.93268E-12      241 T2 -4.09273E-12\r\n           242 T1 -5.68434E-12      243 T1  1.93268E-12      243 T2 -3.63798E-12      244 T1 -8.98126E-12      244 T2 -9.09495E-12\r\n           245 T1 -3.29692E-12      245 T2 -1.34150E-11      246 T1  1.19371E-12      246 T2 -7.95808E-12      247 T1  9.09495E-13\r\n           247 T2  3.63798E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.156407E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.114174E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.879417E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      7.457555E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      8.852961E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.006878E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.110664E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      1.196643E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      1.264600E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.314135E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      1.344636E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      1.355276E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      0.0            8.291123E-03   0.0            0.0            0.0            0.0                           \r\n            80      G      2.120345E-03   8.261741E-03   0.0            0.0            0.0            0.0                           \r\n            81      G      4.043902E-03   8.174819E-03   0.0            0.0            0.0            0.0                           \r\n            82      G      5.778396E-03   8.034296E-03   0.0            0.0            0.0            0.0                           \r\n            83      G      7.330607E-03   7.847019E-03   0.0            0.0            0.0            0.0                           \r\n            84      G      8.705972E-03   7.622530E-03   0.0            0.0            0.0            0.0                           \r\n            85      G      9.908432E-03   7.372790E-03   0.0            0.0            0.0            0.0                           \r\n            86      G      1.094021E-02   7.111868E-03   0.0            0.0            0.0            0.0                           \r\n            87      G      1.180166E-02   6.855689E-03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.249108E-02   6.621791E-03   0.0            0.0            0.0            0.0                           \r\n            89      G      1.300488E-02   6.429093E-03   0.0            0.0            0.0            0.0                           \r\n            90      G      1.333713E-02   6.297742E-03   0.0            0.0            0.0            0.0                           \r\n            91      G      1.347928E-02   6.248869E-03   0.0            0.0            0.0            0.0                           \r\n           157      G      0.0            1.758395E-02   0.0            0.0            0.0            0.0                           \r\n           158      G      2.144370E-03   1.749425E-02   0.0            0.0            0.0            0.0                           \r\n           159      G      4.097088E-03   1.723065E-02   0.0            0.0            0.0            0.0                           \r\n           160      G      5.870120E-03   1.680914E-02   0.0            0.0            0.0            0.0                           \r\n           161      G      7.471865E-03   1.625414E-02   0.0            0.0            0.0            0.0                           \r\n           162      G      8.906924E-03   1.559553E-02   0.0            0.0            0.0            0.0                           \r\n           163      G      1.017677E-02   1.486582E-02   0.0            0.0            0.0            0.0                           \r\n           164      G      1.128071E-02   1.409827E-02   0.0            0.0            0.0            0.0                           \r\n           165      G      1.221691E-02   1.332590E-02   0.0            0.0            0.0            0.0                           \r\n           166      G      1.298326E-02   1.258134E-02   0.0            0.0            0.0            0.0                           \r\n           167      G      1.357814E-02   1.189757E-02   0.0            0.0            0.0            0.0                           \r\n           168      G      1.400109E-02   1.131006E-02   0.0            0.0            0.0            0.0                           \r\n           169      G      1.425288E-02   1.086025E-02   0.0            0.0            0.0            0.0                           \r\n           235      G      0.0            2.829840E-02   0.0            0.0            0.0            0.0                           \r\n           236      G      3.147562E-03   2.799658E-02   0.0            0.0            0.0            0.0                           \r\n           237      G      6.012617E-03   2.722094E-02   0.0            0.0            0.0            0.0                           \r\n           238      G      8.571308E-03   2.615281E-02   0.0            0.0            0.0            0.0                           \r\n           239      G      1.082678E-02   2.488063E-02   0.0            0.0            0.0            0.0                           \r\n           240      G      1.278716E-02   2.346832E-02   0.0            0.0            0.0            0.0                           \r\n           241      G      1.446191E-02   2.196615E-02   0.0            0.0            0.0            0.0                           \r\n           242      G      1.586233E-02   2.041638E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           243      G      1.700226E-02   1.885547E-02   0.0            0.0            0.0            0.0                           \r\n           244      G      1.789913E-02   1.731442E-02   0.0            0.0            0.0            0.0                           \r\n           245      G      1.857386E-02   1.581857E-02   0.0            0.0            0.0            0.0                           \r\n           246      G      1.905252E-02   1.438263E-02   0.0            0.0            0.0            0.0                           \r\n           247      G      1.936602E-02   1.304365E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.559223E+03  -3.559223E+03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.433977E+02  -6.875048E+03   0.0            0.0            0.0            0.0                           \r\n             3      G      2.480757E+02  -6.383575E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      2.527524E+02  -5.882747E+03   0.0            0.0            0.0            0.0                           \r\n             5      G      2.585908E+02  -5.371403E+03   0.0            0.0            0.0            0.0                           \r\n             6      G      2.631287E+02  -4.849684E+03   0.0            0.0            0.0            0.0                           \r\n             7      G      2.675220E+02  -4.319033E+03   0.0            0.0            0.0            0.0                           \r\n             8      G      2.719160E+02  -3.779595E+03   0.0            0.0            0.0            0.0                           \r\n             9      G      2.805852E+02  -3.227094E+03   0.0            0.0            0.0            0.0                           \r\n            10      G      2.836848E+02  -2.662824E+03   0.0            0.0            0.0            0.0                           \r\n            11      G      2.862157E+02  -2.092923E+03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.887468E+02  -1.517961E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.146071E+02  -6.146071E+02   0.0            0.0            0.0            0.0                           \r\n            14      G     -7.118446E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      4.867954E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.961514E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      5.055049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      5.171816E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      5.262573E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            20      G      5.350439E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G      5.438320E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      5.611704E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      5.673696E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            24      G      5.724314E+02  -1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      5.774937E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      1.229214E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.498871E+03  -7.429309E+03  -1.086743E+01       -0.1050      -1.498851E+03  -7.429328E+03   2.965239E+03          \r\n        2       -1.455730E+03  -6.021971E+03  -3.215234E+01       -0.4034      -1.455504E+03  -6.022197E+03   2.283346E+03          \r\n        3       -1.371328E+03  -4.654646E+03  -5.199854E+01       -0.9071      -1.370505E+03  -4.655470E+03   1.642482E+03          \r\n        4       -1.249607E+03  -3.322734E+03  -6.933594E+01       -1.9134      -1.247291E+03  -3.325051E+03   1.038880E+03          \r\n        5       -1.096639E+03  -2.016912E+03  -8.314844E+01       -5.1215      -1.089186E+03  -2.024364E+03   4.675890E+02          \r\n        6       -9.203945E+02  -7.265059E+02  -9.250977E+01      -68.1704      -6.894492E+02  -9.574512E+02   1.340010E+02          \r\n        7       -7.306475E+02   5.647627E+02  -9.658594E+01      -85.7593       5.719246E+02  -7.378093E+02   6.548669E+02          \r\n        8       -5.386826E+02   1.876956E+03  -9.464258E+01      -87.7598       1.880658E+03  -5.423849E+02   1.211522E+03          \r\n        9       -3.571982E+02   3.223775E+03  -8.608594E+01      -88.6237       3.225844E+03  -3.592665E+02   1.792555E+03          \r\n       10       -1.998145E+02   4.631841E+03  -7.050195E+01      -89.1642       4.632869E+03  -2.008430E+02   2.416856E+03          \r\n       11       -8.087012E+01   6.129444E+03  -4.766406E+01      -89.5603       6.129810E+03  -8.123584E+01   3.105523E+03          \r\n       12       -1.484033E+01   7.745253E+03  -1.765820E+01      -89.8696       7.745294E+03  -1.488062E+01   3.880087E+03          \r\n       15       -1.465977E+03  -5.980547E+03  -9.668311E+01       -1.2263      -1.463907E+03  -5.982616E+03   2.259355E+03          \r\n       20       -7.363389E+02   5.670596E+02  -2.903594E+02      -77.9925       6.288170E+02  -7.980963E+02   7.134567E+02          \r\n       28       -1.484842E+03  -5.897426E+03  -1.618750E+02       -2.0981      -1.478911E+03  -5.903356E+03   2.212222E+03          \r\n       33       -7.466670E+02   5.717119E+02  -4.858418E+02      -71.8044       7.314077E+02  -9.063627E+02   8.188852E+02          \r\n       41       -1.508990E+03  -5.772090E+03  -2.281289E+02       -3.0544      -1.496817E+03  -5.784263E+03   2.143723E+03          \r\n       46       -7.594365E+02   5.787705E+02  -6.837803E+02      -67.1892       8.663566E+02  -1.047023E+03   9.566896E+02          \r\n       54       -1.533277E+03  -5.603797E+03  -2.957871E+02       -4.1345      -1.511896E+03  -5.625178E+03   2.056641E+03          \r\n       59       -7.711943E+02   5.882334E+02  -8.843877E+02      -63.7724       1.023935E+03  -1.206896E+03   1.115416E+03          \r\n       67       -1.550566E+03  -5.391652E+03  -3.651221E+02       -5.3821      -1.516167E+03  -5.426052E+03   1.954942E+03          \r\n       72       -7.770576E+02   5.998975E+02  -1.087007E+03      -61.1745       1.198116E+03  -1.375276E+03   1.286696E+03          \r\n       80       -1.551434E+03  -5.134723E+03  -4.363340E+02       -6.8436      -1.499067E+03  -5.187089E+03   1.844011E+03          \r\n       85       -7.704834E+02   6.131689E+02  -1.289928E+03      -59.1030       1.385084E+03  -1.542399E+03   1.463741E+03          \r\n       93       -1.523863E+03  -4.832016E+03  -5.095449E+02       -8.5608      -1.447158E+03  -4.908721E+03   1.730781E+03          \r\n       98       -7.430420E+02   6.267979E+02  -1.490000E+03      -57.3436       1.581760E+03  -1.698005E+03   1.639882E+03          \r\n      106       -1.452711E+03  -4.482688E+03  -5.848027E+02      -10.5536      -1.343758E+03  -4.591640E+03   1.623941E+03          \r\n      111       -6.842646E+02   6.385713E+02  -1.682326E+03      -55.7313       1.784830E+03  -1.830523E+03   1.807677E+03          \r\n      118       -1.371869E+03  -5.396775E+03  -2.249980E+02       -3.1897      -1.359331E+03  -5.409314E+03   2.024992E+03          \r\n      119       -1.319049E+03  -4.086172E+03  -6.620293E+02      -12.7855      -1.168816E+03  -4.236405E+03   1.533794E+03          \r\n      120       -1.219176E+03  -2.924336E+03  -1.059721E+03      -25.5911      -7.116453E+02  -3.431866E+03   1.360111E+03          \r\n      121       -1.082631E+03  -1.895205E+03  -1.393975E+03      -36.8754      -3.694189E+01  -2.940894E+03   1.451976E+03          \r\n      122       -9.223438E+02  -9.751387E+02  -1.646320E+03      -44.5407       6.977906E+02  -2.595273E+03   1.646532E+03          \r\n      123       -7.514844E+02  -1.378438E+02  -1.804215E+03      -49.8256       1.385453E+03  -2.274781E+03   1.830117E+03          \r\n      124       -5.816436E+02   6.449814E+02  -1.859793E+03      -54.1256       1.989980E+03  -1.926642E+03   1.958311E+03          \r\n      125       -4.220811E+02   1.400505E+03  -1.807607E+03      -58.3773       2.513539E+03  -1.535115E+03   2.024327E+03          \r\n      126       -2.795576E+02   2.147345E+03  -1.642273E+03      -63.2301       2.975835E+03  -1.108048E+03   2.041941E+03          \r\n      127       -1.593770E+02   2.910732E+03  -1.355799E+03      -69.2741       3.423746E+03  -6.723906E+02   2.048068E+03          \r\n      128       -6.731152E+01   3.716298E+03  -9.345723E+02      -76.8551       3.934552E+03  -2.855662E+02   2.110059E+03          \r\n      129       -1.314111E+01   4.595601E+03  -3.579399E+02      -85.5854       4.623235E+03  -4.077490E+01   2.332005E+03          \r\n      132       -1.099078E+03  -3.642320E+03  -7.409375E+02      -15.1141      -8.989626E+02  -3.842436E+03   1.471737E+03          \r\n      137       -4.211670E+02   6.408564E+02  -2.012548E+03      -52.3903       2.191268E+03  -1.971579E+03   2.081424E+03          \r\n      145       -7.625000E+02  -3.152000E+03  -8.207539E+02      -17.2439      -5.077451E+02  -3.406755E+03   1.449505E+03          \r\n      150       -1.884443E+02   6.194697E+02  -2.127244E+03      -50.3761       2.380772E+03  -1.949747E+03   2.165260E+03          \r\n      158       -2.696934E+02  -2.617750E+03  -8.996797E+02      -18.7318       3.538818E+01  -2.922832E+03   1.479110E+03          \r\n      163        1.286553E+02   5.730635E+02  -2.186064E+03      -47.9020       2.548188E+03  -1.846469E+03   2.197329E+03          \r\n      171        4.329531E+02  -2.045812E+03  -9.736289E+02      -19.0762       7.696487E+02  -2.382508E+03   1.576078E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n      176        5.355361E+02   4.949932E+02  -2.165222E+03      -44.7318       2.680581E+03  -1.650052E+03   2.165317E+03          \r\n      184        1.421537E+03  -1.449914E+03  -1.033297E+03      -17.8714       1.754712E+03  -1.783089E+03   1.768901E+03          \r\n      189        1.024095E+03   3.835713E+02  -2.033112E+03      -40.5241       2.762015E+03  -1.354349E+03   2.058182E+03          \r\n      197        2.809926E+03  -8.600078E+02  -1.056020E+03      -14.9602       3.092099E+03  -1.142181E+03   2.117140E+03          \r\n      202        1.565021E+03   2.479229E+02  -1.748385E+03      -34.6803       2.774769E+03  -9.618259E+02   1.868298E+03          \r\n      210        4.776887E+03  -3.425547E+02  -9.772305E+02      -10.4477       4.957084E+03  -5.227517E+02   2.739918E+03          \r\n      215        2.102251E+03   1.132041E+02  -1.259026E+03      -25.8471       2.712167E+03  -4.967114E+02   1.604439E+03          \r\n      223        7.536414E+03  -3.477344E+01  -5.651758E+02       -4.2457       7.578371E+03  -7.673022E+01   3.827551E+03          \r\n      228        2.554821E+03   2.159473E+01  -5.040801E+02      -10.8507       2.651442E+03  -7.502563E+01   1.363234E+03          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)      \r\n DATE:  5/17/95\r\n END TIME: 14:32:11\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01034a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01034A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                          \r\n                  3      LABEL  = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL         \r\n                  4         SPC = 1                                                                      \r\n                  5         TEMPERATURE = 1                                                              \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n                  8         SET 2 = 1 THRU 26                                                            \r\n                  9         DISPLACEMENTS = 1                                                            \r\n                 10         OLOAD = 2                                                                    \r\n                 11         SCAN (STRESS,CQDMEM2, SHEAR-XY) = 8, SET 1                                   \r\n                 12         SCAN (STRESS,  6,  CQDMEM2) = +1500., -1500., SET 2                          \r\n                 13      $          STRESSES FOR POINTS ON PUBLISHED CURVES                              \r\n                 14         SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n                 15                 106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,           \r\n                 16                 184,189, 197,202, 210,215, 223,228                                   \r\n                 17         STRESSES = 3                                                                 \r\n                 18         SCAN(STRESS, QDMEM2, MAX-SHR) = 10, SET 3                                    \r\n                 19      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   595, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n                    2-        +CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n                    3-        +CNG12  209     222                                                             \r\n                    4-        CNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n                    5-        +CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n                    6-        +CNG22  210     223                                                             \r\n                    7-        CNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n                    8-        +CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n                    9-        +CNG32  211     224                                                             \r\n                   10-        CNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n                   11-        +CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n                   12-        +CNG42  212     225                                                             \r\n                   13-        CNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n                   14-        +CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n                   15-        +CNG52  213     226                                                             \r\n                   16-        CNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n                   17-        +CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n                   18-        +CNG62  214     227                                                             \r\n                   19-        CNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n                   20-        +CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n                   21-        +CNG72  215     228                                                             \r\n                   22-        CNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n                   23-        +CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n                   24-        +CNG82  216     229                                                             \r\n                   25-        CNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n                   26-        +CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n                   27-        +CNG92  217     230                                                             \r\n                   28-        CNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n                   29-        +CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n                   30-        +CNG102 218     231                                                             \r\n                   31-        CNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n                   32-        +CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n                   33-        +CNG112 219     232                                                             \r\n                   34-        CNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n                   35-        +CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n                   36-        +CNG122 220     233                                                             \r\n                   37-        CQDMEM2 1       21      1       2       15      14      .00                     \r\n                   38-        CQDMEM2 2       21      2       3       16      15      .00                     \r\n                   39-        CQDMEM2 3       21      3       4       17      16      .00                     \r\n                   40-        CQDMEM2 4       21      4       5       18      17      .00                     \r\n                   41-        CQDMEM2 5       21      5       6       19      18      .00                     \r\n                   42-        CQDMEM2 6       21      6       7       20      19      .00                     \r\n                   43-        CQDMEM2 7       21      7       8       21      20      .00                     \r\n                   44-        CQDMEM2 8       21      8       9       22      21      .00                     \r\n                   45-        CQDMEM2 9       21      9       10      23      22      .00                     \r\n                   46-        CQDMEM2 10      21      10      11      24      23      .00                     \r\n                   47-        CQDMEM2 11      21      11      12      25      24      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQDMEM2 12      21      12      13      26      25      .00                     \r\n                   49-        CQDMEM2 14      21      14      15      28      27      .00                     \r\n                   50-        CQDMEM2 15      21      15      16      29      28      .00                     \r\n                   51-        CQDMEM2 16      21      16      17      30      29      .00                     \r\n                   52-        CQDMEM2 17      21      17      18      31      30      .00                     \r\n                   53-        CQDMEM2 18      21      18      19      32      31      .00                     \r\n                   54-        CQDMEM2 19      21      19      20      33      32      .00                     \r\n                   55-        CQDMEM2 20      21      20      21      34      33      .00                     \r\n                   56-        CQDMEM2 21      21      21      22      35      34      .00                     \r\n                   57-        CQDMEM2 22      21      22      23      36      35      .00                     \r\n                   58-        CQDMEM2 23      21      23      24      37      36      .00                     \r\n                   59-        CQDMEM2 24      21      24      25      38      37      .00                     \r\n                   60-        CQDMEM2 25      21      25      26      39      38      .00                     \r\n                   61-        CQDMEM2 27      21      27      28      41      40      .00                     \r\n                   62-        CQDMEM2 28      21      28      29      42      41      .00                     \r\n                   63-        CQDMEM2 29      21      29      30      43      42      .00                     \r\n                   64-        CQDMEM2 30      21      30      31      44      43      .00                     \r\n                   65-        CQDMEM2 31      21      31      32      45      44      .00                     \r\n                   66-        CQDMEM2 32      21      32      33      46      45      .00                     \r\n                   67-        CQDMEM2 33      21      33      34      47      46      .00                     \r\n                   68-        CQDMEM2 34      21      34      35      48      47      .00                     \r\n                   69-        CQDMEM2 35      21      35      36      49      48      .00                     \r\n                   70-        CQDMEM2 36      21      36      37      50      49      .00                     \r\n                   71-        CQDMEM2 37      21      37      38      51      50      .00                     \r\n                   72-        CQDMEM2 38      21      38      39      52      51      .00                     \r\n                   73-        CQDMEM2 40      21      40      41      54      53      .00                     \r\n                   74-        CQDMEM2 41      21      41      42      55      54      .00                     \r\n                   75-        CQDMEM2 42      21      42      43      56      55      .00                     \r\n                   76-        CQDMEM2 43      21      43      44      57      56      .00                     \r\n                   77-        CQDMEM2 44      21      44      45      58      57      .00                     \r\n                   78-        CQDMEM2 45      21      45      46      59      58      .00                     \r\n                   79-        CQDMEM2 46      21      46      47      60      59      .00                     \r\n                   80-        CQDMEM2 47      21      47      48      61      60      .00                     \r\n                   81-        CQDMEM2 48      21      48      49      62      61      .00                     \r\n                   82-        CQDMEM2 49      21      49      50      63      62      .00                     \r\n                   83-        CQDMEM2 50      21      50      51      64      63      .00                     \r\n                   84-        CQDMEM2 51      21      51      52      65      64      .00                     \r\n                   85-        CQDMEM2 53      21      53      54      67      66      .00                     \r\n                   86-        CQDMEM2 54      21      54      55      68      67      .00                     \r\n                   87-        CQDMEM2 55      21      55      56      69      68      .00                     \r\n                   88-        CQDMEM2 56      21      56      57      70      69      .00                     \r\n                   89-        CQDMEM2 57      21      57      58      71      70      .00                     \r\n                   90-        CQDMEM2 58      21      58      59      72      71      .00                     \r\n                   91-        CQDMEM2 59      21      59      60      73      72      .00                     \r\n                   92-        CQDMEM2 60      21      60      61      74      73      .00                     \r\n                   93-        CQDMEM2 61      21      61      62      75      74      .00                     \r\n                   94-        CQDMEM2 62      21      62      63      76      75      .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQDMEM2 63      21      63      64      77      76      .00                     \r\n                   96-        CQDMEM2 64      21      64      65      78      77      .00                     \r\n                   97-        CQDMEM2 66      21      66      67      80      79      .00                     \r\n                   98-        CQDMEM2 67      21      67      68      81      80      .00                     \r\n                   99-        CQDMEM2 68      21      68      69      82      81      .00                     \r\n                  100-        CQDMEM2 69      21      69      70      83      82      .00                     \r\n                  101-        CQDMEM2 70      21      70      71      84      83      .00                     \r\n                  102-        CQDMEM2 71      21      71      72      85      84      .00                     \r\n                  103-        CQDMEM2 72      21      72      73      86      85      .00                     \r\n                  104-        CQDMEM2 73      21      73      74      87      86      .00                     \r\n                  105-        CQDMEM2 74      21      74      75      88      87      .00                     \r\n                  106-        CQDMEM2 75      21      75      76      89      88      .00                     \r\n                  107-        CQDMEM2 76      21      76      77      90      89      .00                     \r\n                  108-        CQDMEM2 77      21      77      78      91      90      .00                     \r\n                  109-        CQDMEM2 79      21      79      80      93      92      .00                     \r\n                  110-        CQDMEM2 80      21      80      81      94      93      .00                     \r\n                  111-        CQDMEM2 81      21      81      82      95      94      .00                     \r\n                  112-        CQDMEM2 82      21      82      83      96      95      .00                     \r\n                  113-        CQDMEM2 83      21      83      84      97      96      .00                     \r\n                  114-        CQDMEM2 84      21      84      85      98      97      .00                     \r\n                  115-        CQDMEM2 85      21      85      86      99      98      .00                     \r\n                  116-        CQDMEM2 86      21      86      87      100     99      .00                     \r\n                  117-        CQDMEM2 87      21      87      88      101     100     .00                     \r\n                  118-        CQDMEM2 88      21      88      89      102     101     .00                     \r\n                  119-        CQDMEM2 89      21      89      90      103     102     .00                     \r\n                  120-        CQDMEM2 90      21      90      91      104     103     .00                     \r\n                  121-        CQDMEM2 92      21      92      93      106     105     .00                     \r\n                  122-        CQDMEM2 93      21      93      94      107     106     .00                     \r\n                  123-        CQDMEM2 94      21      94      95      108     107     .00                     \r\n                  124-        CQDMEM2 95      21      95      96      109     108     .00                     \r\n                  125-        CQDMEM2 96      21      96      97      110     109     .00                     \r\n                  126-        CQDMEM2 97      21      97      98      111     110     .00                     \r\n                  127-        CQDMEM2 98      21      98      99      112     111     .00                     \r\n                  128-        CQDMEM2 99      21      99      100     113     112     .00                     \r\n                  129-        CQDMEM2 100     21      100     101     114     113     .00                     \r\n                  130-        CQDMEM2 101     21      101     102     115     114     .00                     \r\n                  131-        CQDMEM2 102     21      102     103     116     115     .00                     \r\n                  132-        CQDMEM2 103     21      103     104     117     116     .00                     \r\n                  133-        CQDMEM2 105     21      105     106     119     118     .00                     \r\n                  134-        CQDMEM2 106     21      106     107     120     119     .00                     \r\n                  135-        CQDMEM2 107     21      107     108     121     120     .00                     \r\n                  136-        CQDMEM2 108     21      108     109     122     121     .00                     \r\n                  137-        CQDMEM2 109     21      109     110     123     122     .00                     \r\n                  138-        CQDMEM2 110     21      110     111     124     123     .00                     \r\n                  139-        CQDMEM2 111     21      111     112     125     124     .00                     \r\n                  140-        CQDMEM2 112     21      112     113     126     125     .00                     \r\n                  141-        CQDMEM2 113     21      113     114     127     126     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQDMEM2 114     21      114     115     128     127     .00                     \r\n                  143-        CQDMEM2 115     21      115     116     129     128     .00                     \r\n                  144-        CQDMEM2 116     21      116     117     130     129     .00                     \r\n                  145-        CQDMEM2 118     21      118     119     132     131     .00                     \r\n                  146-        CQDMEM2 119     21      119     120     133     132     .00                     \r\n                  147-        CQDMEM2 120     21      120     121     134     133     .00                     \r\n                  148-        CQDMEM2 121     21      121     122     135     134     .00                     \r\n                  149-        CQDMEM2 122     21      122     123     136     135     .00                     \r\n                  150-        CQDMEM2 123     21      123     124     137     136     .00                     \r\n                  151-        CQDMEM2 124     21      124     125     138     137     .00                     \r\n                  152-        CQDMEM2 125     21      125     126     139     138     .00                     \r\n                  153-        CQDMEM2 126     21      126     127     140     139     .00                     \r\n                  154-        CQDMEM2 127     21      127     128     141     140     .00                     \r\n                  155-        CQDMEM2 128     21      128     129     142     141     .00                     \r\n                  156-        CQDMEM2 129     21      129     130     143     142     .00                     \r\n                  157-        CQDMEM2 131     21      131     132     145     144     .00                     \r\n                  158-        CQDMEM2 132     21      132     133     146     145     .00                     \r\n                  159-        CQDMEM2 133     21      133     134     147     146     .00                     \r\n                  160-        CQDMEM2 134     21      134     135     148     147     .00                     \r\n                  161-        CQDMEM2 135     21      135     136     149     148     .00                     \r\n                  162-        CQDMEM2 136     21      136     137     150     149     .00                     \r\n                  163-        CQDMEM2 137     21      137     138     151     150     .00                     \r\n                  164-        CQDMEM2 138     21      138     139     152     151     .00                     \r\n                  165-        CQDMEM2 139     21      139     140     153     152     .00                     \r\n                  166-        CQDMEM2 140     21      140     141     154     153     .00                     \r\n                  167-        CQDMEM2 141     21      141     142     155     154     .00                     \r\n                  168-        CQDMEM2 142     21      142     143     156     155     .00                     \r\n                  169-        CQDMEM2 144     21      144     145     158     157     .00                     \r\n                  170-        CQDMEM2 145     21      145     146     159     158     .00                     \r\n                  171-        CQDMEM2 146     21      146     147     160     159     .00                     \r\n                  172-        CQDMEM2 147     21      147     148     161     160     .00                     \r\n                  173-        CQDMEM2 148     21      148     149     162     161     .00                     \r\n                  174-        CQDMEM2 149     21      149     150     163     162     .00                     \r\n                  175-        CQDMEM2 150     21      150     151     164     163     .00                     \r\n                  176-        CQDMEM2 151     21      151     152     165     164     .00                     \r\n                  177-        CQDMEM2 152     21      152     153     166     165     .00                     \r\n                  178-        CQDMEM2 153     21      153     154     167     166     .00                     \r\n                  179-        CQDMEM2 154     21      154     155     168     167     .00                     \r\n                  180-        CQDMEM2 155     21      155     156     169     168     .00                     \r\n                  181-        CQDMEM2 157     21      157     158     171     170     .00                     \r\n                  182-        CQDMEM2 158     21      158     159     172     171     .00                     \r\n                  183-        CQDMEM2 159     21      159     160     173     172     .00                     \r\n                  184-        CQDMEM2 160     21      160     161     174     173     .00                     \r\n                  185-        CQDMEM2 161     21      161     162     175     174     .00                     \r\n                  186-        CQDMEM2 162     21      162     163     176     175     .00                     \r\n                  187-        CQDMEM2 163     21      163     164     177     176     .00                     \r\n                  188-        CQDMEM2 164     21      164     165     178     177     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQDMEM2 165     21      165     166     179     178     .00                     \r\n                  190-        CQDMEM2 166     21      166     167     180     179     .00                     \r\n                  191-        CQDMEM2 167     21      167     168     181     180     .00                     \r\n                  192-        CQDMEM2 168     21      168     169     182     181     .00                     \r\n                  193-        CQDMEM2 170     21      170     171     184     183     .00                     \r\n                  194-        CQDMEM2 171     21      171     172     185     184     .00                     \r\n                  195-        CQDMEM2 172     21      172     173     186     185     .00                     \r\n                  196-        CQDMEM2 173     21      173     174     187     186     .00                     \r\n                  197-        CQDMEM2 174     21      174     175     188     187     .00                     \r\n                  198-        CQDMEM2 175     21      175     176     189     188     .00                     \r\n                  199-        CQDMEM2 176     21      176     177     190     189     .00                     \r\n                  200-        CQDMEM2 177     21      177     178     191     190     .00                     \r\n                  201-        CQDMEM2 178     21      178     179     192     191     .00                     \r\n                  202-        CQDMEM2 179     21      179     180     193     192     .00                     \r\n                  203-        CQDMEM2 180     21      180     181     194     193     .00                     \r\n                  204-        CQDMEM2 181     21      181     182     195     194     .00                     \r\n                  205-        CQDMEM2 183     21      183     184     197     196     .00                     \r\n                  206-        CQDMEM2 184     21      184     185     198     197     .00                     \r\n                  207-        CQDMEM2 185     21      185     186     199     198     .00                     \r\n                  208-        CQDMEM2 186     21      186     187     200     199     .00                     \r\n                  209-        CQDMEM2 187     21      187     188     201     200     .00                     \r\n                  210-        CQDMEM2 188     21      188     189     202     201     .00                     \r\n                  211-        CQDMEM2 189     21      189     190     203     202     .00                     \r\n                  212-        CQDMEM2 190     21      190     191     204     203     .00                     \r\n                  213-        CQDMEM2 191     21      191     192     205     204     .00                     \r\n                  214-        CQDMEM2 192     21      192     193     206     205     .00                     \r\n                  215-        CQDMEM2 193     21      193     194     207     206     .00                     \r\n                  216-        CQDMEM2 194     21      194     195     208     207     .00                     \r\n                  217-        CQDMEM2 196     21      196     197     210     209     .00                     \r\n                  218-        CQDMEM2 197     21      197     198     211     210     .00                     \r\n                  219-        CQDMEM2 198     21      198     199     212     211     .00                     \r\n                  220-        CQDMEM2 199     21      199     200     213     212     .00                     \r\n                  221-        CQDMEM2 200     21      200     201     214     213     .00                     \r\n                  222-        CQDMEM2 201     21      201     202     215     214     .00                     \r\n                  223-        CQDMEM2 202     21      202     203     216     215     .00                     \r\n                  224-        CQDMEM2 203     21      203     204     217     216     .00                     \r\n                  225-        CQDMEM2 204     21      204     205     218     217     .00                     \r\n                  226-        CQDMEM2 205     21      205     206     219     218     .00                     \r\n                  227-        CQDMEM2 206     21      206     207     220     219     .00                     \r\n                  228-        CQDMEM2 207     21      207     208     221     220     .00                     \r\n                  229-        CQDMEM2 209     21      209     210     223     222     .00                     \r\n                  230-        CQDMEM2 210     21      210     211     224     223     .00                     \r\n                  231-        CQDMEM2 211     21      211     212     225     224     .00                     \r\n                  232-        CQDMEM2 212     21      212     213     226     225     .00                     \r\n                  233-        CQDMEM2 213     21      213     214     227     226     .00                     \r\n                  234-        CQDMEM2 214     21      214     215     228     227     .00                     \r\n                  235-        CQDMEM2 215     21      215     216     229     228     .00                     \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQDMEM2 216     21      216     217     230     229     .00                     \r\n                  237-        CQDMEM2 217     21      217     218     231     230     .00                     \r\n                  238-        CQDMEM2 218     21      218     219     232     231     .00                     \r\n                  239-        CQDMEM2 219     21      219     220     233     232     .00                     \r\n                  240-        CQDMEM2 220     21      220     221     234     233     .00                     \r\n                  241-        CQDMEM2 222     21      222     223     236     235     .00                     \r\n                  242-        CQDMEM2 223     21      223     224     237     236     .00                     \r\n                  243-        CQDMEM2 224     21      224     225     238     237     .00                     \r\n                  244-        CQDMEM2 225     21      225     226     239     238     .00                     \r\n                  245-        CQDMEM2 226     21      226     227     240     239     .00                     \r\n                  246-        CQDMEM2 227     21      227     228     241     240     .00                     \r\n                  247-        CQDMEM2 228     21      228     229     242     241     .00                     \r\n                  248-        CQDMEM2 229     21      229     230     243     242     .00                     \r\n                  249-        CQDMEM2 230     21      230     231     244     243     .00                     \r\n                  250-        CQDMEM2 231     21      231     232     245     244     .00                     \r\n                  251-        CQDMEM2 232     21      232     233     246     245     .00                     \r\n                  252-        CQDMEM2 233     21      233     234     247     246     .00                     \r\n                  253-        GRDSET                                                  3456                    \r\n                  254-        GRID    1               .0      .0      .0                                      \r\n                  255-        GRID    2               1.0     .0      .0                                      \r\n                  256-        GRID    3               2.0     .0      .0                                      \r\n                  257-        GRID    4               3.0     .0      .0                                      \r\n                  258-        GRID    5               4.0     .0      .0                                      \r\n                  259-        GRID    6               5.0     .0      .0                                      \r\n                  260-        GRID    7               6.0     .0      .0                                      \r\n                  261-        GRID    8               7.0     .0      .0                                      \r\n                  262-        GRID    9               8.0     .0      .0                                      \r\n                  263-        GRID    10              9.0     .0      .0                                      \r\n                  264-        GRID    11              10.0    .0      .0                                      \r\n                  265-        GRID    12              11.0    .0      .0                                      \r\n                  266-        GRID    13              12.0    .0      .0                                      \r\n                  267-        GRID    14              .0      1.0     .0                                      \r\n                  268-        GRID    15              1.0     1.0     .0                                      \r\n                  269-        GRID    16              2.0     1.0     .0                                      \r\n                  270-        GRID    17              3.0     1.0     .0                                      \r\n                  271-        GRID    18              4.0     1.0     .0                                      \r\n                  272-        GRID    19              5.0     1.0     .0                                      \r\n                  273-        GRID    20              6.0     1.0     .0                                      \r\n                  274-        GRID    21              7.0     1.0     .0                                      \r\n                  275-        GRID    22              8.0     1.0     .0                                      \r\n                  276-        GRID    23              9.0     1.0     .0                                      \r\n                  277-        GRID    24              10.0    1.0     .0                                      \r\n                  278-        GRID    25              11.0    1.0     .0                                      \r\n                  279-        GRID    26              12.0    1.0     .0                                      \r\n                  280-        GRID    27              .0      2.0     .0                                      \r\n                  281-        GRID    28              1.0     2.0     .0                                      \r\n                  282-        GRID    29              2.0     2.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    30              3.0     2.0     .0                                      \r\n                  284-        GRID    31              4.0     2.0     .0                                      \r\n                  285-        GRID    32              5.0     2.0     .0                                      \r\n                  286-        GRID    33              6.0     2.0     .0                                      \r\n                  287-        GRID    34              7.0     2.0     .0                                      \r\n                  288-        GRID    35              8.0     2.0     .0                                      \r\n                  289-        GRID    36              9.0     2.0     .0                                      \r\n                  290-        GRID    37              10.0    2.0     .0                                      \r\n                  291-        GRID    38              11.0    2.0     .0                                      \r\n                  292-        GRID    39              12.0    2.0     .0                                      \r\n                  293-        GRID    40              .0      3.0     .0                                      \r\n                  294-        GRID    41              1.0     3.0     .0                                      \r\n                  295-        GRID    42              2.0     3.0     .0                                      \r\n                  296-        GRID    43              3.0     3.0     .0                                      \r\n                  297-        GRID    44              4.0     3.0     .0                                      \r\n                  298-        GRID    45              5.0     3.0     .0                                      \r\n                  299-        GRID    46              6.0     3.0     .0                                      \r\n                  300-        GRID    47              7.0     3.0     .0                                      \r\n                  301-        GRID    48              8.0     3.0     .0                                      \r\n                  302-        GRID    49              9.0     3.0     .0                                      \r\n                  303-        GRID    50              10.0    3.0     .0                                      \r\n                  304-        GRID    51              11.0    3.0     .0                                      \r\n                  305-        GRID    52              12.0    3.0     .0                                      \r\n                  306-        GRID    53              .0      4.0     .0                                      \r\n                  307-        GRID    54              1.0     4.0     .0                                      \r\n                  308-        GRID    55              2.0     4.0     .0                                      \r\n                  309-        GRID    56              3.0     4.0     .0                                      \r\n                  310-        GRID    57              4.0     4.0     .0                                      \r\n                  311-        GRID    58              5.0     4.0     .0                                      \r\n                  312-        GRID    59              6.0     4.0     .0                                      \r\n                  313-        GRID    60              7.0     4.0     .0                                      \r\n                  314-        GRID    61              8.0     4.0     .0                                      \r\n                  315-        GRID    62              9.0     4.0     .0                                      \r\n                  316-        GRID    63              10.0    4.0     .0                                      \r\n                  317-        GRID    64              11.0    4.0     .0                                      \r\n                  318-        GRID    65              12.0    4.0     .0                                      \r\n                  319-        GRID    66              .0      5.0     .0                                      \r\n                  320-        GRID    67              1.0     5.0     .0                                      \r\n                  321-        GRID    68              2.0     5.0     .0                                      \r\n                  322-        GRID    69              3.0     5.0     .0                                      \r\n                  323-        GRID    70              4.0     5.0     .0                                      \r\n                  324-        GRID    71              5.0     5.0     .0                                      \r\n                  325-        GRID    72              6.0     5.0     .0                                      \r\n                  326-        GRID    73              7.0     5.0     .0                                      \r\n                  327-        GRID    74              8.0     5.0     .0                                      \r\n                  328-        GRID    75              9.0     5.0     .0                                      \r\n                  329-        GRID    76              10.0    5.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID    77              11.0    5.0     .0                                      \r\n                  331-        GRID    78              12.0    5.0     .0                                      \r\n                  332-        GRID    79              .0      6.0     .0                                      \r\n                  333-        GRID    80              1.0     6.0     .0                                      \r\n                  334-        GRID    81              2.0     6.0     .0                                      \r\n                  335-        GRID    82              3.0     6.0     .0                                      \r\n                  336-        GRID    83              4.0     6.0     .0                                      \r\n                  337-        GRID    84              5.0     6.0     .0                                      \r\n                  338-        GRID    85              6.0     6.0     .0                                      \r\n                  339-        GRID    86              7.0     6.0     .0                                      \r\n                  340-        GRID    87              8.0     6.0     .0                                      \r\n                  341-        GRID    88              9.0     6.0     .0                                      \r\n                  342-        GRID    89              10.0    6.0     .0                                      \r\n                  343-        GRID    90              11.0    6.0     .0                                      \r\n                  344-        GRID    91              12.0    6.0     .0                                      \r\n                  345-        GRID    92              .0      7.0     .0                                      \r\n                  346-        GRID    93              1.0     7.0     .0                                      \r\n                  347-        GRID    94              2.0     7.0     .0                                      \r\n                  348-        GRID    95              3.0     7.0     .0                                      \r\n                  349-        GRID    96              4.0     7.0     .0                                      \r\n                  350-        GRID    97              5.0     7.0     .0                                      \r\n                  351-        GRID    98              6.0     7.0     .0                                      \r\n                  352-        GRID    99              7.0     7.0     .0                                      \r\n                  353-        GRID    100             8.0     7.0     .0                                      \r\n                  354-        GRID    101             9.0     7.0     .0                                      \r\n                  355-        GRID    102             10.0    7.0     .0                                      \r\n                  356-        GRID    103             11.0    7.0     .0                                      \r\n                  357-        GRID    104             12.0    7.0     .0                                      \r\n                  358-        GRID    105             .0      8.0     .0                                      \r\n                  359-        GRID    106             1.0     8.0     .0                                      \r\n                  360-        GRID    107             2.0     8.0     .0                                      \r\n                  361-        GRID    108             3.0     8.0     .0                                      \r\n                  362-        GRID    109             4.0     8.0     .0                                      \r\n                  363-        GRID    110             5.0     8.0     .0                                      \r\n                  364-        GRID    111             6.0     8.0     .0                                      \r\n                  365-        GRID    112             7.0     8.0     .0                                      \r\n                  366-        GRID    113             8.0     8.0     .0                                      \r\n                  367-        GRID    114             9.0     8.0     .0                                      \r\n                  368-        GRID    115             10.0    8.0     .0                                      \r\n                  369-        GRID    116             11.0    8.0     .0                                      \r\n                  370-        GRID    117             12.0    8.0     .0                                      \r\n                  371-        GRID    118             .0      9.0     .0                                      \r\n                  372-        GRID    119             1.0     9.0     .0                                      \r\n                  373-        GRID    120             2.0     9.0     .0                                      \r\n                  374-        GRID    121             3.0     9.0     .0                                      \r\n                  375-        GRID    122             4.0     9.0     .0                                      \r\n                  376-        GRID    123             5.0     9.0     .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    124             6.0     9.0     .0                                      \r\n                  378-        GRID    125             7.0     9.0     .0                                      \r\n                  379-        GRID    126             8.0     9.0     .0                                      \r\n                  380-        GRID    127             9.0     9.0     .0                                      \r\n                  381-        GRID    128             10.0    9.0     .0                                      \r\n                  382-        GRID    129             11.0    9.0     .0                                      \r\n                  383-        GRID    130             12.0    9.0     .0                                      \r\n                  384-        GRID    131             .0      10.0    .0                                      \r\n                  385-        GRID    132             1.0     10.0    .0                                      \r\n                  386-        GRID    133             2.0     10.0    .0                                      \r\n                  387-        GRID    134             3.0     10.0    .0                                      \r\n                  388-        GRID    135             4.0     10.0    .0                                      \r\n                  389-        GRID    136             5.0     10.0    .0                                      \r\n                  390-        GRID    137             6.0     10.0    .0                                      \r\n                  391-        GRID    138             7.0     10.0    .0                                      \r\n                  392-        GRID    139             8.0     10.0    .0                                      \r\n                  393-        GRID    140             9.0     10.0    .0                                      \r\n                  394-        GRID    141             10.0    10.0    .0                                      \r\n                  395-        GRID    142             11.0    10.0    .0                                      \r\n                  396-        GRID    143             12.0    10.0    .0                                      \r\n                  397-        GRID    144             .0      11.0    .0                                      \r\n                  398-        GRID    145             1.0     11.0    .0                                      \r\n                  399-        GRID    146             2.0     11.0    .0                                      \r\n                  400-        GRID    147             3.0     11.0    .0                                      \r\n                  401-        GRID    148             4.0     11.0    .0                                      \r\n                  402-        GRID    149             5.0     11.0    .0                                      \r\n                  403-        GRID    150             6.0     11.0    .0                                      \r\n                  404-        GRID    151             7.0     11.0    .0                                      \r\n                  405-        GRID    152             8.0     11.0    .0                                      \r\n                  406-        GRID    153             9.0     11.0    .0                                      \r\n                  407-        GRID    154             10.0    11.0    .0                                      \r\n                  408-        GRID    155             11.0    11.0    .0                                      \r\n                  409-        GRID    156             12.0    11.0    .0                                      \r\n                  410-        GRID    157             .0      12.0    .0                                      \r\n                  411-        GRID    158             1.0     12.0    .0                                      \r\n                  412-        GRID    159             2.0     12.0    .0                                      \r\n                  413-        GRID    160             3.0     12.0    .0                                      \r\n                  414-        GRID    161             4.0     12.0    .0                                      \r\n                  415-        GRID    162             5.0     12.0    .0                                      \r\n                  416-        GRID    163             6.0     12.0    .0                                      \r\n                  417-        GRID    164             7.0     12.0    .0                                      \r\n                  418-        GRID    165             8.0     12.0    .0                                      \r\n                  419-        GRID    166             9.0     12.0    .0                                      \r\n                  420-        GRID    167             10.0    12.0    .0                                      \r\n                  421-        GRID    168             11.0    12.0    .0                                      \r\n                  422-        GRID    169             12.0    12.0    .0                                      \r\n                  423-        GRID    170             .0      13.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    171             1.0     13.0    .0                                      \r\n                  425-        GRID    172             2.0     13.0    .0                                      \r\n                  426-        GRID    173             3.0     13.0    .0                                      \r\n                  427-        GRID    174             4.0     13.0    .0                                      \r\n                  428-        GRID    175             5.0     13.0    .0                                      \r\n                  429-        GRID    176             6.0     13.0    .0                                      \r\n                  430-        GRID    177             7.0     13.0    .0                                      \r\n                  431-        GRID    178             8.0     13.0    .0                                      \r\n                  432-        GRID    179             9.0     13.0    .0                                      \r\n                  433-        GRID    180             10.0    13.0    .0                                      \r\n                  434-        GRID    181             11.0    13.0    .0                                      \r\n                  435-        GRID    182             12.0    13.0    .0                                      \r\n                  436-        GRID    183             .0      14.0    .0                                      \r\n                  437-        GRID    184             1.0     14.0    .0                                      \r\n                  438-        GRID    185             2.0     14.0    .0                                      \r\n                  439-        GRID    186             3.0     14.0    .0                                      \r\n                  440-        GRID    187             4.0     14.0    .0                                      \r\n                  441-        GRID    188             5.0     14.0    .0                                      \r\n                  442-        GRID    189             6.0     14.0    .0                                      \r\n                  443-        GRID    190             7.0     14.0    .0                                      \r\n                  444-        GRID    191             8.0     14.0    .0                                      \r\n                  445-        GRID    192             9.0     14.0    .0                                      \r\n                  446-        GRID    193             10.0    14.0    .0                                      \r\n                  447-        GRID    194             11.0    14.0    .0                                      \r\n                  448-        GRID    195             12.0    14.0    .0                                      \r\n                  449-        GRID    196             .0      15.0    .0                                      \r\n                  450-        GRID    197             1.0     15.0    .0                                      \r\n                  451-        GRID    198             2.0     15.0    .0                                      \r\n                  452-        GRID    199             3.0     15.0    .0                                      \r\n                  453-        GRID    200             4.0     15.0    .0                                      \r\n                  454-        GRID    201             5.0     15.0    .0                                      \r\n                  455-        GRID    202             6.0     15.0    .0                                      \r\n                  456-        GRID    203             7.0     15.0    .0                                      \r\n                  457-        GRID    204             8.0     15.0    .0                                      \r\n                  458-        GRID    205             9.0     15.0    .0                                      \r\n                  459-        GRID    206             10.0    15.0    .0                                      \r\n                  460-        GRID    207             11.0    15.0    .0                                      \r\n                  461-        GRID    208             12.0    15.0    .0                                      \r\n                  462-        GRID    209             .0      16.0    .0                                      \r\n                  463-        GRID    210             1.0     16.0    .0                                      \r\n                  464-        GRID    211             2.0     16.0    .0                                      \r\n                  465-        GRID    212             3.0     16.0    .0                                      \r\n                  466-        GRID    213             4.0     16.0    .0                                      \r\n                  467-        GRID    214             5.0     16.0    .0                                      \r\n                  468-        GRID    215             6.0     16.0    .0                                      \r\n                  469-        GRID    216             7.0     16.0    .0                                      \r\n                  470-        GRID    217             8.0     16.0    .0                                      \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        GRID    218             9.0     16.0    .0                                      \r\n                  472-        GRID    219             10.0    16.0    .0                                      \r\n                  473-        GRID    220             11.0    16.0    .0                                      \r\n                  474-        GRID    221             12.0    16.0    .0                                      \r\n                  475-        GRID    222             .0      17.0    .0                                      \r\n                  476-        GRID    223             1.0     17.0    .0                                      \r\n                  477-        GRID    224             2.0     17.0    .0                                      \r\n                  478-        GRID    225             3.0     17.0    .0                                      \r\n                  479-        GRID    226             4.0     17.0    .0                                      \r\n                  480-        GRID    227             5.0     17.0    .0                                      \r\n                  481-        GRID    228             6.0     17.0    .0                                      \r\n                  482-        GRID    229             7.0     17.0    .0                                      \r\n                  483-        GRID    230             8.0     17.0    .0                                      \r\n                  484-        GRID    231             9.0     17.0    .0                                      \r\n                  485-        GRID    232             10.0    17.0    .0                                      \r\n                  486-        GRID    233             11.0    17.0    .0                                      \r\n                  487-        GRID    234             12.0    17.0    .0                                      \r\n                  488-        GRID    235             .0      18.0    .0                                      \r\n                  489-        GRID    236             1.0     18.0    .0                                      \r\n                  490-        GRID    237             2.0     18.0    .0                                      \r\n                  491-        GRID    238             3.0     18.0    .0                                      \r\n                  492-        GRID    239             4.0     18.0    .0                                      \r\n                  493-        GRID    240             5.0     18.0    .0                                      \r\n                  494-        GRID    241             6.0     18.0    .0                                      \r\n                  495-        GRID    242             7.0     18.0    .0                                      \r\n                  496-        GRID    243             8.0     18.0    .0                                      \r\n                  497-        GRID    244             9.0     18.0    .0                                      \r\n                  498-        GRID    245             10.0    18.0    .0                                      \r\n                  499-        GRID    246             11.0    18.0    .0                                      \r\n                  500-        GRID    247             12.0    18.0    .0                                      \r\n                  501-        MAT1    75      10.400+6        .3              12.700-675.                     \r\n                  502-        MATT1   75      100                                                             \r\n                  503-        PARAM   IRES    1                                                               \r\n                  504-        PQDMEM2 21      75      .25                                                     \r\n                  505-        SPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n                  506-        +SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n                  507-        +SPC-B  183     196     209     222     235                                     \r\n                  508-        SPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n                  509-        +SPC-C  7       8       9       10      11      12      13                      \r\n                  510-        TABLEM1 100                                                             +TM1    \r\n                  511-        +TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n                  512-        +TM2    300.    9.15+6  ENDT                                                    \r\n                  513-        TEMP    1       1       245.000 2       232.500 3       220.000                 \r\n                  514-        TEMP    1       4       207.500 5       195.000 6       182.500                 \r\n                  515-        TEMP    1       7       170.000 8       157.500 9       145.000                 \r\n                  516-        TEMP    1       10      132.500 11      120.000 12      107.500                 \r\n                  517-        TEMP    1       13      95.000  14      245.000 15      232.500                 \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        TEMP    1       16      220.000 17      207.500 18      195.000                 \r\n                  519-        TEMP    1       19      182.500 20      170.000 21      157.500                 \r\n                  520-        TEMP    1       22      145.000 23      132.500 24      120.000                 \r\n                  521-        TEMP    1       25      107.500 26      95.000  27      245.000                 \r\n                  522-        TEMP    1       28      232.500 29      220.000 30      207.500                 \r\n                  523-        TEMP    1       31      195.000 32      182.500 33      170.000                 \r\n                  524-        TEMP    1       34      157.500 35      145.000 36      132.500                 \r\n                  525-        TEMP    1       37      120.000 38      107.500 39      95.000                  \r\n                  526-        TEMP    1       40      245.000 41      232.500 42      220.000                 \r\n                  527-        TEMP    1       43      207.500 44      195.000 45      182.500                 \r\n                  528-        TEMP    1       46      170.000 47      157.500 48      145.000                 \r\n                  529-        TEMP    1       49      132.500 50      120.000 51      107.500                 \r\n                  530-        TEMP    1       52      95.000  53      245.000 54      232.500                 \r\n                  531-        TEMP    1       55      220.000 56      207.500 57      195.000                 \r\n                  532-        TEMP    1       58      182.500 59      170.000 60      157.500                 \r\n                  533-        TEMP    1       61      145.000 62      132.500 63      120.000                 \r\n                  534-        TEMP    1       64      107.500 65      95.000  66      245.000                 \r\n                  535-        TEMP    1       67      232.500 68      220.000 69      207.500                 \r\n                  536-        TEMP    1       70      195.000 71      182.500 72      170.000                 \r\n                  537-        TEMP    1       73      157.500 74      145.000 75      132.500                 \r\n                  538-        TEMP    1       76      120.000 77      107.500 78      95.000                  \r\n                  539-        TEMP    1       79      245.000 80      232.500 81      220.000                 \r\n                  540-        TEMP    1       82      207.500 83      195.000 84      182.500                 \r\n                  541-        TEMP    1       85      170.000 86      157.500 87      145.000                 \r\n                  542-        TEMP    1       88      132.500 89      120.000 90      107.500                 \r\n                  543-        TEMP    1       91      95.000  92      245.000 93      232.500                 \r\n                  544-        TEMP    1       94      220.000 95      207.500 96      195.000                 \r\n                  545-        TEMP    1       97      182.500 98      170.000 99      157.500                 \r\n                  546-        TEMP    1       100     145.000 101     132.500 102     120.000                 \r\n                  547-        TEMP    1       103     107.500 104     95.000  105     245.000                 \r\n                  548-        TEMP    1       106     232.500 107     220.000 108     207.500                 \r\n                  549-        TEMP    1       109     195.000 110     182.500 111     170.000                 \r\n                  550-        TEMP    1       112     157.500 113     145.000 114     132.500                 \r\n                  551-        TEMP    1       115     120.000 116     107.500 117     95.000                  \r\n                  552-        TEMP    1       118     245.000 119     232.500 120     220.000                 \r\n                  553-        TEMP    1       121     207.500 122     195.000 123     182.500                 \r\n                  554-        TEMP    1       124     170.000 125     157.500 126     145.000                 \r\n                  555-        TEMP    1       127     132.500 128     120.000 129     107.500                 \r\n                  556-        TEMP    1       130     95.000  131     245.000 132     232.500                 \r\n                  557-        TEMP    1       133     220.000 134     207.500 135     195.000                 \r\n                  558-        TEMP    1       136     182.500 137     170.000 138     157.500                 \r\n                  559-        TEMP    1       139     145.000 140     132.500 141     120.000                 \r\n                  560-        TEMP    1       142     107.500 143     95.000  144     245.000                 \r\n                  561-        TEMP    1       145     232.500 146     220.000 147     207.500                 \r\n                  562-        TEMP    1       148     195.000 149     182.500 150     170.000                 \r\n                  563-        TEMP    1       151     157.500 152     145.000 153     132.500                 \r\n                  564-        TEMP    1       154     120.000 155     107.500 156     95.000                  \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n\r\n      LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        TEMP    1       157     245.000 158     232.500 159     220.000                 \r\n                  566-        TEMP    1       160     207.500 161     195.000 162     182.500                 \r\n                  567-        TEMP    1       163     170.000 164     157.500 165     145.000                 \r\n                  568-        TEMP    1       166     132.500 167     120.000 168     107.500                 \r\n                  569-        TEMP    1       169     95.000  170     245.000 171     232.500                 \r\n                  570-        TEMP    1       172     220.000 173     207.500 174     195.000                 \r\n                  571-        TEMP    1       175     182.500 176     170.000 177     157.500                 \r\n                  572-        TEMP    1       178     145.000 179     132.500 180     120.000                 \r\n                  573-        TEMP    1       181     107.500 182     95.000  183     245.000                 \r\n                  574-        TEMP    1       184     232.500 185     220.000 186     207.500                 \r\n                  575-        TEMP    1       187     195.000 188     182.500 189     170.000                 \r\n                  576-        TEMP    1       190     157.500 191     145.000 192     132.500                 \r\n                  577-        TEMP    1       193     120.000 194     107.500 195     95.000                  \r\n                  578-        TEMP    1       196     245.000 197     232.500 198     220.000                 \r\n                  579-        TEMP    1       199     207.500 200     195.000 201     182.500                 \r\n                  580-        TEMP    1       202     170.000 203     157.500 204     145.000                 \r\n                  581-        TEMP    1       205     132.500 206     120.000 207     107.500                 \r\n                  582-        TEMP    1       208     95.000  209     245.000 210     232.500                 \r\n                  583-        TEMP    1       211     220.000 212     207.500 213     195.000                 \r\n                  584-        TEMP    1       214     182.500 215     170.000 216     157.500                 \r\n                  585-        TEMP    1       217     145.000 218     132.500 219     120.000                 \r\n                  586-        TEMP    1       220     107.500 221     95.000  222     245.000                 \r\n                  587-        TEMP    1       223     232.500 224     220.000 225     207.500                 \r\n                  588-        TEMP    1       226     195.000 227     182.500 228     170.000                 \r\n                  589-        TEMP    1       229     157.500 230     145.000 231     132.500                 \r\n                  590-        TEMP    1       232     120.000 233     107.500 234     95.000                  \r\n                  591-        TEMP    1       235     245.000 236     232.500 237     220.000                 \r\n                  592-        TEMP    1       238     207.500 239     195.000 240     182.500                 \r\n                  593-        TEMP    1       241     170.000 242     157.500 243     145.000                 \r\n                  594-        TEMP    1       244     132.500 245     120.000 246     107.500                 \r\n                  595-        TEMP    1       247     95.000                                                  \r\n                              ENDDATA\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE           3517\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   14.239\r\n                                        RMS WAVEFRONT   14.436\r\n                                        RMS BANDWIDTH   14.534\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE           3622\r\n                                        MAX WAVEFRONT       21\r\n                                        AVG WAVEFRONT   14.664\r\n                                        RMS WAVEFRONT   15.039\r\n                                        RMS BANDWIDTH   15.423\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       15        15\r\n                                        PROFILE (P)                       3517      3517\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           15        15\r\n                                        AVERAGE WAVEFRONT (C-AVG)       14.239    14.239\r\n                                        RMS WAVEFRONT (C-RMS)           14.436    14.436\r\n                                        RMS BANDWITCH (B-RMS)           14.534    14.534\r\n                                        NUMBER OF GRID POINTS (N)                    247\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               216\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       894\r\n                                        MATRIX DENSITY, PERCENT                    3.336\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM2   ELEMENTS (ELEMENT TYPE  63) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.0646110E-16\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       2-T1).\r\n             2 T1  6.82121E-13        3 T1 -1.25056E-12        4 T1 -1.13687E-13        5 T1  4.88853E-12        6 T1 -3.75167E-12\r\n             7 T1  2.84217E-12        8 T1  3.41061E-13        9 T1 -2.84217E-12       10 T1 -2.44427E-12       11 T1 -4.20641E-12\r\n            12 T1 -5.91172E-12       13 T1 -2.19558E-12       14 T2 -2.27374E-13       15 T1  9.09495E-13       15 T2 -2.04636E-12\r\n            16 T1  1.81899E-12       16 T2 -5.22959E-12       17 T1 -2.95586E-12       17 T2  1.59162E-12       18 T1 -1.13687E-12\r\n            18 T2 -9.09495E-13       19 T1  3.41061E-12       19 T2  4.54747E-12       20 T1 -7.95808E-12       20 T2 -1.36424E-12\r\n            21 T1  8.86757E-12       21 T2 -9.09495E-13       22 T1 -1.09139E-11       22 T2 -2.72848E-12       23 T1  7.27596E-12\r\n            23 T2 -2.95586E-12       24 T1 -1.58025E-11       24 T2 -4.54747E-13       25 T1  3.06954E-12       25 T2 -3.18323E-12\r\n            26 T1  4.43379E-12       26 T2  2.27374E-12       27 T2  3.18323E-12       28 T2  4.54747E-13       29 T1 -5.22959E-12\r\n            29 T2  2.72848E-12       30 T1 -5.22959E-12       30 T2 -5.00222E-12       31 T1 -5.22959E-12       31 T2 -4.09273E-12\r\n            32 T1 -5.68434E-12       32 T2  3.18323E-12       33 T1 -6.82121E-13       33 T2 -4.54747E-12       34 T1  6.59384E-12\r\n            34 T2 -1.40972E-11       35 T1  1.56888E-11       35 T2  3.86535E-12       36 T1 -1.04592E-11       36 T2 -2.27374E-12\r\n            37 T1  2.27374E-12       37 T2 -4.09273E-12       38 T1 -2.27374E-13       38 T2  5.22959E-12       39 T1  1.86162E-12\r\n            39 T2  9.09495E-13       40 T2 -9.09495E-13       41 T1  2.72848E-12       41 T2  2.27374E-12       42 T1 -2.72848E-12\r\n            42 T2 -1.31877E-11       43 T1  9.09495E-13       43 T2 -1.81899E-12       44 T1  9.09495E-12       44 T2 -9.54969E-12\r\n            45 T1 -3.18323E-12       45 T2  2.27374E-12       46 T1  1.36424E-12       46 T2  8.64020E-12       47 T1 -5.45697E-12\r\n            47 T2  1.04592E-11       48 T1  1.31877E-11       48 T2 -3.18323E-12       49 T1 -1.15961E-11       49 T2 -3.18323E-12\r\n            50 T1 -6.36646E-12       50 T2  8.18545E-12       51 T1 -4.54747E-12       52 T1 -5.94014E-12       52 T2 -1.81899E-12\r\n            53 T2 -1.81899E-12       54 T1 -9.09495E-13       54 T2  5.00222E-12       55 T1 -4.54747E-12       55 T2  1.09139E-11\r\n            56 T1  1.36424E-12       56 T2 -8.18545E-12       57 T1 -7.73070E-12       57 T2  1.81899E-12       58 T1 -3.63798E-12\r\n            58 T2  5.91172E-12       59 T1  9.54969E-12       59 T2 -5.00222E-12       60 T1 -1.27329E-11       60 T2 -4.54747E-13\r\n            61 T1 -5.00222E-12       61 T2 -7.73070E-12       62 T1  2.72848E-12       62 T2  5.45697E-12       63 T1  4.09273E-12\r\n            63 T2  8.18545E-12       64 T1  8.64020E-12       64 T2 -8.64020E-12       65 T1 -1.59162E-12       65 T2 -1.81899E-12\r\n            66 T2 -3.63798E-12       67 T1  2.72848E-12       67 T2  9.09495E-13       68 T2  1.18234E-11       69 T1 -3.18323E-12\r\n            69 T2  1.00044E-11       70 T1  4.54747E-12       70 T2 -8.18545E-12       71 T1 -9.54969E-12       71 T2 -1.00044E-11\r\n            72 T1  1.31877E-11       72 T2 -4.54747E-12       73 T1 -8.18545E-12       73 T2  2.27374E-12       74 T1  4.54747E-13\r\n            74 T2  1.40972E-11       75 T1  1.59162E-11       75 T2 -3.18323E-12       76 T1  9.54969E-12       76 T2 -3.18323E-12\r\n            77 T1  1.81899E-12       77 T2 -5.00222E-12       78 T1 -1.36424E-12       78 T2  6.36646E-12       79 T2  5.45697E-12\r\n            80 T1  3.63798E-12       80 T2 -1.36424E-11       81 T1  3.63798E-12       81 T2 -5.45697E-12       82 T1  9.09495E-13\r\n            82 T2 -5.45697E-12       83 T1  5.91172E-12       83 T2 -7.27596E-12       84 T1  7.27596E-12       84 T2 -1.54614E-11\r\n            85 T1 -1.27329E-11       85 T2  4.54747E-12       86 T1 -6.36646E-12       86 T2  7.27596E-12       87 T1  1.63709E-11\r\n            87 T2  3.63798E-12       88 T1 -2.72848E-12       88 T2  5.45697E-12       89 T1  3.18323E-12       89 T2  1.54614E-11\r\n            90 T1 -8.64020E-12       90 T2  1.45519E-11       91 T1  6.70752E-12       91 T2 -9.09495E-13       92 T2 -3.63798E-12\r\n            93 T1  9.09495E-13       93 T2  1.27329E-11       94 T1  1.81899E-12       94 T2 -2.72848E-12       95 T1  6.36646E-12\r\n            96 T1 -4.54747E-12       96 T2  1.27329E-11       97 T2 -9.09495E-12       98 T1  1.18234E-11       98 T2 -1.18234E-11\r\n            99 T1  2.72848E-12       99 T2 -1.09139E-11      100 T1  4.54747E-13      100 T2  7.27596E-12      101 T1 -6.36646E-12\r\n           101 T2 -1.81899E-11      102 T1  3.63798E-12      102 T2 -2.72848E-12      103 T1 -7.73070E-12      103 T2 -1.81899E-12\r\n           104 T1  1.87583E-12      104 T2 -9.09495E-13      105 T2 -2.72848E-12      106 T1 -6.36646E-12      106 T2 -2.72848E-12\r\n           107 T1  2.72848E-12      107 T2 -7.27596E-12      108 T1  5.45697E-12      108 T2  1.63709E-11      109 T1  1.81899E-12\r\n           109 T2  7.27596E-12      110 T1 -1.00044E-11      110 T2  1.27329E-11      111 T1 -8.18545E-12      111 T2 -2.72848E-12\r\n           112 T1  1.27329E-11      112 T2 -1.81899E-12      113 T1  1.81899E-12      113 T2 -5.45697E-12      114 T1 -2.09184E-11\r\n           114 T2  4.54747E-12      115 T1 -1.09139E-11      115 T2  9.09495E-13      116 T1  1.54614E-11      116 T2  1.00044E-11\r\n           117 T1 -1.59162E-11      117 T2  9.09495E-13      118 T2  9.09495E-12      119 T1  2.72848E-12      119 T2 -5.45697E-12\r\n           120 T1  6.36646E-12      120 T2 -4.54747E-12      121 T2 -9.09495E-13      122 T1 -2.72848E-12      122 T2  9.09495E-13\r\n           123 T2 -1.72804E-11      124 T1 -8.18545E-12      125 T1  1.72804E-11      125 T2  7.27596E-12      126 T1  6.36646E-12\r\n           126 T2  3.63798E-12      127 T1 -5.45697E-12      127 T2 -3.63798E-12      128 T1  3.63798E-12      128 T2  5.45697E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n           129 T1  1.45519E-11      129 T2 -1.81899E-12      130 T1 -6.59384E-12      131 T2  5.45697E-12      132 T1 -1.81899E-12\r\n           132 T2 -5.45697E-12      133 T1  6.36646E-12      133 T2 -3.45608E-11      134 T1  1.81899E-12      134 T2  1.27329E-11\r\n           135 T1 -3.63798E-12      135 T2 -1.45519E-11      136 T1 -1.63709E-11      136 T2 -1.00044E-11      137 T1  6.36646E-12\r\n           137 T2 -1.36424E-11      138 T1 -4.54747E-12      138 T2  7.27596E-12      139 T1  2.72848E-12      139 T2  2.27374E-11\r\n           140 T1  7.27596E-12      140 T2  2.27374E-11      141 T1  3.63798E-12      141 T2 -6.36646E-12      142 T1 -1.36424E-11\r\n           142 T2  2.72848E-12      143 T1  1.23919E-11      143 T2 -5.45697E-12      144 T2  1.81899E-12      145 T1 -5.45697E-12\r\n           145 T2  1.45519E-11      146 T1  1.81899E-12      146 T2  1.27329E-11      147 T1  8.18545E-12      147 T2  2.91038E-11\r\n           148 T2 -5.45697E-12      149 T1  2.72848E-12      149 T2  1.45519E-11      150 T1 -6.36646E-12      150 T2 -1.81899E-12\r\n           151 T1  1.00044E-11      151 T2 -5.45697E-12      152 T1 -1.81899E-11      152 T2 -2.00089E-11      153 T1 -8.18545E-12\r\n           153 T2 -8.18545E-12      154 T1 -2.36469E-11      154 T2 -1.00044E-11      155 T1  1.81899E-11      155 T2 -2.63753E-11\r\n           156 T1  2.04636E-12      157 T2 -3.63798E-12      158 T1  3.63798E-12      158 T2  9.09495E-12      159 T1 -1.81899E-12\r\n           159 T2 -5.45697E-12      160 T1  3.63798E-12      160 T2 -1.09139E-11      161 T1 -9.09495E-12      161 T2 -1.27329E-11\r\n           162 T1  5.45697E-12      162 T2 -3.63798E-11      163 T1  6.36646E-12      163 T2  1.81899E-11      164 T1 -1.18234E-11\r\n           164 T2 -5.45697E-12      165 T1  9.09495E-12      165 T2 -6.36646E-12      166 T1  1.72804E-11      166 T2 -1.09139E-11\r\n           167 T1 -9.09495E-13      167 T2 -2.72848E-12      168 T1 -7.27596E-12      168 T2  1.81899E-12      169 T1 -5.05906E-12\r\n           169 T2  1.63709E-11      171 T1  1.81899E-12      171 T2 -3.63798E-12      172 T1  1.81899E-12      172 T2 -1.45519E-11\r\n           173 T1  3.63798E-12      173 T2  1.63709E-11      174 T1  1.09139E-11      174 T2  2.72848E-11      175 T1  8.18545E-12\r\n           175 T2  1.81899E-12      176 T1  3.63798E-12      176 T2  3.63798E-12      177 T1  5.45697E-12      177 T2  2.18279E-11\r\n           178 T1 -7.27596E-12      178 T2  2.91038E-11      179 T2 -9.09495E-12      180 T1  7.27596E-12      180 T2  8.18545E-12\r\n           181 T1 -9.09495E-13      181 T2  6.36646E-12      182 T1 -9.03810E-12      182 T2  1.81899E-12      183 T2  5.45697E-12\r\n           184 T1 -1.81899E-12      184 T2  1.81899E-12      185 T1 -3.63798E-12      185 T2  3.63798E-12      186 T1 -3.63798E-12\r\n           186 T2 -2.00089E-11      187 T1  3.63798E-12      187 T2 -3.81988E-11      188 T1 -1.63709E-11      188 T2  9.09495E-12\r\n           189 T1  1.36424E-11      189 T2 -9.09495E-12      190 T1 -9.09495E-13      190 T2  2.72848E-11      191 T1  7.27596E-12\r\n           191 T2  3.27418E-11      192 T1  1.00044E-11      192 T2 -1.81899E-12      193 T1 -1.00044E-11      193 T2  2.72848E-11\r\n           194 T1  1.54614E-11      194 T2 -5.45697E-12      195 T1 -2.38742E-12      195 T2  7.27596E-12      196 T2  2.18279E-11\r\n           197 T1 -1.81899E-12      197 T2 -2.18279E-11      198 T2  3.63798E-11      199 T1 -7.27596E-12      199 T2 -6.18456E-11\r\n           200 T1  1.09139E-11      200 T2  3.09228E-11      201 T1  1.81899E-12      201 T2  4.36557E-11      202 T1  5.45697E-12\r\n           202 T2 -3.27418E-11      203 T1 -8.18545E-12      203 T2  1.81899E-12      204 T1  1.18234E-11      204 T2 -2.00089E-11\r\n           205 T1 -9.09495E-12      205 T2 -1.81899E-12      206 T1  1.45519E-11      206 T2 -2.72848E-12      207 T1 -1.81899E-11\r\n           207 T2 -2.72848E-12      208 T1 -2.04636E-12      208 T2  1.09139E-11      209 T2 -2.72848E-11      210 T1 -3.63798E-12\r\n           210 T2 -7.27596E-12      211 T1 -7.27596E-12      211 T2 -3.81988E-11      212 T1  1.81899E-12      212 T2  2.00089E-11\r\n           213 T1  1.09139E-11      213 T2  1.45519E-11      214 T1 -1.27329E-11      214 T2  7.27596E-12      215 T2  1.45519E-11\r\n           216 T1  1.81899E-12      216 T2  2.36469E-11      217 T1  1.45519E-11      217 T2  5.45697E-12      218 T1  8.18545E-12\r\n           218 T2 -2.36469E-11      219 T1  6.36646E-12      219 T2  7.27596E-12      220 T1  1.81899E-12      220 T2 -4.54747E-12\r\n           221 T1  3.35376E-12      221 T2 -7.27596E-12      222 T2 -2.36469E-11      223 T1 -1.81899E-12      223 T2  3.63798E-12\r\n           224 T1  1.45519E-11      224 T2  1.63709E-11      225 T1 -5.45697E-12      225 T2  1.45519E-11      226 T1 -1.81899E-12\r\n           226 T2 -1.27329E-11      227 T1 -1.81899E-11      227 T2 -5.45697E-12      228 T1  9.09495E-12      228 T2  1.45519E-11\r\n           229 T1 -1.63709E-11      229 T2  1.45519E-11      230 T1  1.09139E-11      230 T2  5.45697E-12      231 T1 -1.81899E-11\r\n           231 T2  1.81899E-12      232 T1  1.81899E-11      232 T2  3.63798E-12      233 T1 -8.18545E-12      233 T2 -2.27374E-11\r\n           234 T1 -7.38964E-13      234 T2 -1.81899E-12      235 T2  9.54969E-12      236 T1  1.06866E-11      236 T2 -7.73070E-12\r\n           237 T1  6.13909E-12      237 T2 -9.09495E-13      238 T1  6.82121E-13      238 T2 -1.93268E-11      239 T1  5.91172E-12\r\n           239 T2  1.72804E-11      240 T1  1.47793E-12      240 T2 -4.54747E-13      241 T1 -1.93268E-12      241 T2 -4.09273E-12\r\n           242 T1 -5.68434E-12      243 T1  1.93268E-12      243 T2 -3.63798E-12      244 T1 -8.98126E-12      244 T2 -9.09495E-12\r\n           245 T1 -3.29692E-12      245 T2 -1.34150E-11      246 T1  1.19371E-12      246 T2 -7.95808E-12      247 T1  9.09495E-13\r\n           247 T2  3.63798E-12\r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.156407E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.114174E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.879417E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      7.457555E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      8.852961E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.006878E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.110664E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      1.196643E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      1.264600E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.314135E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      1.344636E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      1.355276E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      0.0            8.291123E-03   0.0            0.0            0.0            0.0                           \r\n            80      G      2.120345E-03   8.261741E-03   0.0            0.0            0.0            0.0                           \r\n            81      G      4.043902E-03   8.174819E-03   0.0            0.0            0.0            0.0                           \r\n            82      G      5.778396E-03   8.034296E-03   0.0            0.0            0.0            0.0                           \r\n            83      G      7.330607E-03   7.847019E-03   0.0            0.0            0.0            0.0                           \r\n            84      G      8.705972E-03   7.622530E-03   0.0            0.0            0.0            0.0                           \r\n            85      G      9.908432E-03   7.372790E-03   0.0            0.0            0.0            0.0                           \r\n            86      G      1.094021E-02   7.111868E-03   0.0            0.0            0.0            0.0                           \r\n            87      G      1.180166E-02   6.855689E-03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.249108E-02   6.621791E-03   0.0            0.0            0.0            0.0                           \r\n            89      G      1.300488E-02   6.429093E-03   0.0            0.0            0.0            0.0                           \r\n            90      G      1.333713E-02   6.297742E-03   0.0            0.0            0.0            0.0                           \r\n            91      G      1.347928E-02   6.248869E-03   0.0            0.0            0.0            0.0                           \r\n           157      G      0.0            1.758395E-02   0.0            0.0            0.0            0.0                           \r\n           158      G      2.144370E-03   1.749425E-02   0.0            0.0            0.0            0.0                           \r\n           159      G      4.097088E-03   1.723065E-02   0.0            0.0            0.0            0.0                           \r\n           160      G      5.870120E-03   1.680914E-02   0.0            0.0            0.0            0.0                           \r\n           161      G      7.471865E-03   1.625414E-02   0.0            0.0            0.0            0.0                           \r\n           162      G      8.906924E-03   1.559553E-02   0.0            0.0            0.0            0.0                           \r\n           163      G      1.017677E-02   1.486582E-02   0.0            0.0            0.0            0.0                           \r\n           164      G      1.128071E-02   1.409827E-02   0.0            0.0            0.0            0.0                           \r\n           165      G      1.221691E-02   1.332590E-02   0.0            0.0            0.0            0.0                           \r\n           166      G      1.298326E-02   1.258134E-02   0.0            0.0            0.0            0.0                           \r\n           167      G      1.357814E-02   1.189757E-02   0.0            0.0            0.0            0.0                           \r\n           168      G      1.400109E-02   1.131006E-02   0.0            0.0            0.0            0.0                           \r\n           169      G      1.425288E-02   1.086025E-02   0.0            0.0            0.0            0.0                           \r\n           235      G      0.0            2.829840E-02   0.0            0.0            0.0            0.0                           \r\n           236      G      3.147562E-03   2.799658E-02   0.0            0.0            0.0            0.0                           \r\n           237      G      6.012617E-03   2.722094E-02   0.0            0.0            0.0            0.0                           \r\n           238      G      8.571308E-03   2.615281E-02   0.0            0.0            0.0            0.0                           \r\n           239      G      1.082678E-02   2.488063E-02   0.0            0.0            0.0            0.0                           \r\n           240      G      1.278716E-02   2.346832E-02   0.0            0.0            0.0            0.0                           \r\n           241      G      1.446191E-02   2.196615E-02   0.0            0.0            0.0            0.0                           \r\n           242      G      1.586233E-02   2.041638E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           243      G      1.700226E-02   1.885547E-02   0.0            0.0            0.0            0.0                           \r\n           244      G      1.789913E-02   1.731442E-02   0.0            0.0            0.0            0.0                           \r\n           245      G      1.857386E-02   1.581857E-02   0.0            0.0            0.0            0.0                           \r\n           246      G      1.905252E-02   1.438263E-02   0.0            0.0            0.0            0.0                           \r\n           247      G      1.936602E-02   1.304365E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.559223E+03  -3.559223E+03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.433977E+02  -6.875048E+03   0.0            0.0            0.0            0.0                           \r\n             3      G      2.480757E+02  -6.383575E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      2.527524E+02  -5.882747E+03   0.0            0.0            0.0            0.0                           \r\n             5      G      2.585908E+02  -5.371403E+03   0.0            0.0            0.0            0.0                           \r\n             6      G      2.631287E+02  -4.849684E+03   0.0            0.0            0.0            0.0                           \r\n             7      G      2.675220E+02  -4.319033E+03   0.0            0.0            0.0            0.0                           \r\n             8      G      2.719160E+02  -3.779595E+03   0.0            0.0            0.0            0.0                           \r\n             9      G      2.805852E+02  -3.227094E+03   0.0            0.0            0.0            0.0                           \r\n            10      G      2.836848E+02  -2.662824E+03   0.0            0.0            0.0            0.0                           \r\n            11      G      2.862157E+02  -2.092923E+03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.887468E+02  -1.517961E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.146071E+02  -6.146071E+02   0.0            0.0            0.0            0.0                           \r\n            14      G     -7.118446E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      4.867954E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.961514E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      5.055049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      5.171816E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      5.262573E+02  -2.441406E-04   0.0            0.0            0.0            0.0                           \r\n            20      G      5.350439E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G      5.438320E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      5.611704E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      5.673696E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            24      G      5.724314E+02  -1.220703E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      5.774937E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      1.229214E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.498871E+03  -7.429309E+03  -1.086743E+01       -0.1050      -1.498851E+03  -7.429328E+03   2.965239E+03          \r\n        2       -1.455730E+03  -6.021971E+03  -3.215234E+01       -0.4034      -1.455504E+03  -6.022197E+03   2.283346E+03          \r\n        3       -1.371328E+03  -4.654646E+03  -5.199854E+01       -0.9071      -1.370505E+03  -4.655470E+03   1.642482E+03          \r\n        4       -1.249607E+03  -3.322734E+03  -6.933594E+01       -1.9134      -1.247291E+03  -3.325051E+03   1.038880E+03          \r\n        5       -1.096639E+03  -2.016912E+03  -8.314844E+01       -5.1215      -1.089186E+03  -2.024364E+03   4.675890E+02          \r\n        6       -9.203945E+02  -7.265059E+02  -9.250977E+01      -68.1704      -6.894492E+02  -9.574512E+02   1.340010E+02          \r\n        7       -7.306475E+02   5.647627E+02  -9.658594E+01      -85.7593       5.719246E+02  -7.378093E+02   6.548669E+02          \r\n        8       -5.386826E+02   1.876956E+03  -9.464258E+01      -87.7598       1.880658E+03  -5.423849E+02   1.211522E+03          \r\n        9       -3.571982E+02   3.223775E+03  -8.608594E+01      -88.6237       3.225844E+03  -3.592665E+02   1.792555E+03          \r\n       10       -1.998145E+02   4.631841E+03  -7.050195E+01      -89.1642       4.632869E+03  -2.008430E+02   2.416856E+03          \r\n       11       -8.087012E+01   6.129444E+03  -4.766406E+01      -89.5603       6.129810E+03  -8.123584E+01   3.105523E+03          \r\n       12       -1.484033E+01   7.745253E+03  -1.765820E+01      -89.8696       7.745294E+03  -1.488062E+01   3.880087E+03          \r\n       15       -1.465977E+03  -5.980547E+03  -9.668311E+01       -1.2263      -1.463907E+03  -5.982616E+03   2.259355E+03          \r\n       20       -7.363389E+02   5.670596E+02  -2.903594E+02      -77.9925       6.288170E+02  -7.980963E+02   7.134567E+02          \r\n       28       -1.484842E+03  -5.897426E+03  -1.618750E+02       -2.0981      -1.478911E+03  -5.903356E+03   2.212222E+03          \r\n       33       -7.466670E+02   5.717119E+02  -4.858418E+02      -71.8044       7.314077E+02  -9.063627E+02   8.188852E+02          \r\n       41       -1.508990E+03  -5.772090E+03  -2.281289E+02       -3.0544      -1.496817E+03  -5.784263E+03   2.143723E+03          \r\n       46       -7.594365E+02   5.787705E+02  -6.837803E+02      -67.1892       8.663566E+02  -1.047023E+03   9.566896E+02          \r\n       54       -1.533277E+03  -5.603797E+03  -2.957871E+02       -4.1345      -1.511896E+03  -5.625178E+03   2.056641E+03          \r\n       59       -7.711943E+02   5.882334E+02  -8.843877E+02      -63.7724       1.023935E+03  -1.206896E+03   1.115416E+03          \r\n       67       -1.550566E+03  -5.391652E+03  -3.651221E+02       -5.3821      -1.516167E+03  -5.426052E+03   1.954942E+03          \r\n       72       -7.770576E+02   5.998975E+02  -1.087007E+03      -61.1745       1.198116E+03  -1.375276E+03   1.286696E+03          \r\n       80       -1.551434E+03  -5.134723E+03  -4.363340E+02       -6.8436      -1.499067E+03  -5.187089E+03   1.844011E+03          \r\n       85       -7.704834E+02   6.131689E+02  -1.289928E+03      -59.1030       1.385084E+03  -1.542399E+03   1.463741E+03          \r\n       93       -1.523863E+03  -4.832016E+03  -5.095449E+02       -8.5608      -1.447158E+03  -4.908721E+03   1.730781E+03          \r\n       98       -7.430420E+02   6.267979E+02  -1.490000E+03      -57.3436       1.581760E+03  -1.698005E+03   1.639882E+03          \r\n      106       -1.452711E+03  -4.482688E+03  -5.848027E+02      -10.5536      -1.343758E+03  -4.591640E+03   1.623941E+03          \r\n      111       -6.842646E+02   6.385713E+02  -1.682326E+03      -55.7313       1.784830E+03  -1.830523E+03   1.807677E+03          \r\n      118       -1.371869E+03  -5.396775E+03  -2.249980E+02       -3.1897      -1.359331E+03  -5.409314E+03   2.024992E+03          \r\n      119       -1.319049E+03  -4.086172E+03  -6.620293E+02      -12.7855      -1.168816E+03  -4.236405E+03   1.533794E+03          \r\n      120       -1.219176E+03  -2.924336E+03  -1.059721E+03      -25.5911      -7.116453E+02  -3.431866E+03   1.360111E+03          \r\n      121       -1.082631E+03  -1.895205E+03  -1.393975E+03      -36.8754      -3.694189E+01  -2.940894E+03   1.451976E+03          \r\n      122       -9.223438E+02  -9.751387E+02  -1.646320E+03      -44.5407       6.977906E+02  -2.595273E+03   1.646532E+03          \r\n      123       -7.514844E+02  -1.378438E+02  -1.804215E+03      -49.8256       1.385453E+03  -2.274781E+03   1.830117E+03          \r\n      124       -5.816436E+02   6.449814E+02  -1.859793E+03      -54.1256       1.989980E+03  -1.926642E+03   1.958311E+03          \r\n      125       -4.220811E+02   1.400505E+03  -1.807607E+03      -58.3773       2.513539E+03  -1.535115E+03   2.024327E+03          \r\n      126       -2.795576E+02   2.147345E+03  -1.642273E+03      -63.2301       2.975835E+03  -1.108048E+03   2.041941E+03          \r\n      127       -1.593770E+02   2.910732E+03  -1.355799E+03      -69.2741       3.423746E+03  -6.723906E+02   2.048068E+03          \r\n      128       -6.731152E+01   3.716298E+03  -9.345723E+02      -76.8551       3.934552E+03  -2.855662E+02   2.110059E+03          \r\n      129       -1.314111E+01   4.595601E+03  -3.579399E+02      -85.5854       4.623235E+03  -4.077490E+01   2.332005E+03          \r\n      132       -1.099078E+03  -3.642320E+03  -7.409375E+02      -15.1141      -8.989626E+02  -3.842436E+03   1.471737E+03          \r\n      137       -4.211670E+02   6.408564E+02  -2.012548E+03      -52.3903       2.191268E+03  -1.971579E+03   2.081424E+03          \r\n      145       -7.625000E+02  -3.152000E+03  -8.207539E+02      -17.2439      -5.077451E+02  -3.406755E+03   1.449505E+03          \r\n      150       -1.884443E+02   6.194697E+02  -2.127244E+03      -50.3761       2.380772E+03  -1.949747E+03   2.165260E+03          \r\n      158       -2.696934E+02  -2.617750E+03  -8.996797E+02      -18.7318       3.538818E+01  -2.922832E+03   1.479110E+03          \r\n      163        1.286553E+02   5.730635E+02  -2.186064E+03      -47.9020       2.548188E+03  -1.846469E+03   2.197329E+03          \r\n      171        4.329531E+02  -2.045812E+03  -9.736289E+02      -19.0762       7.696487E+02  -2.382508E+03   1.576078E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0     LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL                                                                \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n      176        5.355361E+02   4.949932E+02  -2.165222E+03      -44.7318       2.680581E+03  -1.650052E+03   2.165317E+03          \r\n      184        1.421537E+03  -1.449914E+03  -1.033297E+03      -17.8714       1.754712E+03  -1.783089E+03   1.768901E+03          \r\n      189        1.024095E+03   3.835713E+02  -2.033112E+03      -40.5241       2.762015E+03  -1.354349E+03   2.058182E+03          \r\n      197        2.809926E+03  -8.600078E+02  -1.056020E+03      -14.9602       3.092099E+03  -1.142181E+03   2.117140E+03          \r\n      202        1.565021E+03   2.479229E+02  -1.748385E+03      -34.6803       2.774769E+03  -9.618259E+02   1.868298E+03          \r\n      210        4.776887E+03  -3.425547E+02  -9.772305E+02      -10.4477       4.957084E+03  -5.227517E+02   2.739918E+03          \r\n      215        2.102251E+03   1.132041E+02  -1.259026E+03      -25.8471       2.712167E+03  -4.967114E+02   1.604439E+03          \r\n      223        7.536414E+03  -3.477344E+01  -5.651758E+02       -4.2457       7.578371E+03  -7.673022E+01   3.827551E+03          \r\n      228        2.554821E+03   2.159473E+01  -5.040801E+02      -10.8507       2.651442E+03  -7.502563E+01   1.363234E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0    SCANNED BY FIELD:  SHEAR-XY                         SET:       1    TOP AND BOTTOM     8 VALUES                         SORT1  \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        9       -3.571982E+02   3.223775E+03  -8.608594E+01      -88.6237       3.225844E+03  -3.592665E+02   1.792555E+03          \r\n        6       -9.203945E+02  -7.265059E+02  -9.250977E+01      -68.1704      -6.894492E+02  -9.574512E+02   1.340010E+02          \r\n        8       -5.386826E+02   1.876956E+03  -9.464258E+01      -87.7598       1.880658E+03  -5.423849E+02   1.211522E+03          \r\n        7       -7.306475E+02   5.647627E+02  -9.658594E+01      -85.7593       5.719246E+02  -7.378093E+02   6.548669E+02          \r\n       80       -1.551434E+03  -5.134723E+03  -4.363340E+02       -6.8436      -1.499067E+03  -5.187089E+03   1.844011E+03          \r\n      158       -2.696934E+02  -2.617750E+03  -8.996797E+02      -18.7318       3.538818E+01  -2.922832E+03   1.479110E+03          \r\n       85       -7.704834E+02   6.131689E+02  -1.289928E+03      -59.1030       1.385084E+03  -1.542399E+03   1.463741E+03          \r\n      163        1.286553E+02   5.730635E+02  -2.186064E+03      -47.9020       2.548188E+03  -1.846469E+03   2.197329E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0    SCANNED BY FIELD:  MAJOR                            SET:       2    EXCLUDING TO  -1500.0  1500.0                       SORT1  \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       12       -1.484033E+01   7.745253E+03  -1.765820E+01      -89.8696       7.745294E+03  -1.488062E+01   3.880087E+03          \r\n       11       -8.087012E+01   6.129444E+03  -4.766406E+01      -89.5603       6.129810E+03  -8.123584E+01   3.105523E+03          \r\n       10       -1.998145E+02   4.631841E+03  -7.050195E+01      -89.1642       4.632869E+03  -2.008430E+02   2.416856E+03          \r\n        9       -3.571982E+02   3.223775E+03  -8.608594E+01      -88.6237       3.225844E+03  -3.592665E+02   1.792555E+03          \r\n        8       -5.386826E+02   1.876956E+03  -9.464258E+01      -87.7598       1.880658E+03  -5.423849E+02   1.211522E+03          \r\n1     FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                                                                                   \r\n0    SCANNED BY FIELD:  MAX-SHR                          SET:       3    TOP AND BOTTOM    10 VALUES                         SORT1  \r\n \r\n                          S T R E S S E S   A C T I N G   I N   Q D M E M 2   E L E M E N T S   (CQDMEM2)\r\n     ELEMENT        STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       12       -1.484033E+01   7.745253E+03  -1.765820E+01      -89.8696       7.745294E+03  -1.488062E+01   3.880087E+03          \r\n      223        7.536414E+03  -3.477344E+01  -5.651758E+02       -4.2457       7.578371E+03  -7.673022E+01   3.827551E+03          \r\n       11       -8.087012E+01   6.129444E+03  -4.766406E+01      -89.5603       6.129810E+03  -8.123584E+01   3.105523E+03          \r\n        1       -1.498871E+03  -7.429309E+03  -1.086743E+01       -0.1050      -1.498851E+03  -7.429328E+03   2.965239E+03          \r\n      210        4.776887E+03  -3.425547E+02  -9.772305E+02      -10.4477       4.957084E+03  -5.227517E+02   2.739918E+03          \r\n       10       -1.998145E+02   4.631841E+03  -7.050195E+01      -89.1642       4.632869E+03  -2.008430E+02   2.416856E+03          \r\n      129       -1.314111E+01   4.595601E+03  -3.579399E+02      -85.5854       4.623235E+03  -4.077490E+01   2.332005E+03          \r\n        2       -1.455730E+03  -6.021971E+03  -3.215234E+01       -0.4034      -1.455504E+03  -6.022197E+03   2.283346E+03          \r\n       15       -1.465977E+03  -5.980547E+03  -9.668311E+01       -1.2263      -1.463907E+03  -5.982616E+03   2.259355E+03          \r\n       28       -1.484842E+03  -5.897426E+03  -1.618750E+02       -2.0981      -1.478911E+03  -5.903356E+03   2.212222E+03          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)      \r\n DATE:  5/17/95\r\n END TIME: 14:32:56\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01041a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01041A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     TIME  30                                                                        \r\n     SOL   1,1                                                                       \r\n     DIAG  14                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM  //C,N,NOP/V,N,TRUE=-1 $                                                  \r\n     INPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1  $                                      \r\n     EQUIV  G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $                            \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                              \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                          \r\n                  3      LABEL    = SPILL CHECK                                                          \r\n                  4          SPC  = 5100                                                                 \r\n                  5          LOAD = 17                                                                   \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1 THRU 5,7,13,19,25,31,37,43                                         \r\n                  8         DISP  = 1                                                                    \r\n                  9        STRESS = 1                                                                    \r\n                 10         OLOAD = ALL                                                                  \r\n                 11      SPCFORCE = ALL                                                                  \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   162, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        FORCE   17      1               1.0                     .9958928                \r\n                    2-        FORCE   17      2               1.0                     1.894301                \r\n                    3-        FORCE   17      3               1.0                     1.610752                \r\n                    4-        FORCE   17      4               1.0                     1.170742                \r\n                    5-        FORCE   17      5               1.0-2                   61.54956                \r\n                    6-        FORCE   17      6               1.0-2                   7.837847                \r\n                    7-        MAT2    1234    4.0+6   2.0+6           6.0+6           3.0+6   1.0     +MATL   \r\n                    8-        +MATL   .5      1.0     .05     10.0    .004    1.+12   2.+12   3.+12           \r\n                    9-        PQUAD1  101                     1234    .0833333                        +PQD    \r\n                   10-        +PQD    .5      -.5                                                             \r\n                   11-        SEQGP   1       1       2       102     3       203     4       304             \r\n                   12-        SEQGP   5       405     6       506     7       2       8       103             \r\n                   13-        SEQGP   9       204     10      305     11      406     12      507             \r\n                   14-        SEQGP   13      3       14      104     15      205     16      306             \r\n                   15-        SEQGP   17      407     18      508     19      4       20      105             \r\n                   16-        SEQGP   21      206     22      307     23      408     24      509             \r\n                   17-        SEQGP   25      5       26      106     27      207     28      308             \r\n                   18-        SEQGP   29      409     30      510     31      6       32      107             \r\n                   19-        SEQGP   33      208     34      309     35      410     36      511             \r\n                   20-        SEQGP   37      7       38      108     39      209     40      310             \r\n                   21-        SEQGP   41      411     42      512     43      8       44      109             \r\n                   22-        SEQGP   45      210     46      311     47      412     48      513             \r\n                   23-        SEQGP   49      9       50      110     51      211     52      312             \r\n                   24-        SEQGP   53      413     54      514     55      10      56      111             \r\n                   25-        SEQGP   57      212     58      313     59      414     60      515             \r\n                   26-        SEQGP   61      11      62      112     63      213     64      314             \r\n                   27-        SEQGP   65      415     66      516     67      12      68      113             \r\n                   28-        SEQGP   69      214     70      315     71      416     72      517             \r\n                   29-        SEQGP   73      13      74      114     75      215     76      316             \r\n                   30-        SEQGP   77      417     78      518     79      14      80      115             \r\n                   31-        SEQGP   81      216     82      317     83      418     84      519             \r\n                   32-        SEQGP   85      15      86      116     87      217     88      318             \r\n                   33-        SEQGP   89      419     90      520     91      16      92      117             \r\n                   34-        SEQGP   93      218     94      319     95      420     96      521             \r\n                   35-        SEQGP   97      17      98      118     99      219     100     320             \r\n                   36-        SEQGP   101     421     102     522     103     18      104     119             \r\n                   37-        SEQGP   105     220     106     321     107     422     108     523             \r\n                   38-        SEQGP   109     19      110     120     111     221     112     322             \r\n                   39-        SEQGP   113     423     114     524     115     20      116     121             \r\n                   40-        SEQGP   117     222     118     323     119     424     120     525             \r\n                   41-        SEQGP   121     21      122     122     123     223     124     324             \r\n                   42-        SEQGP   125     425     126     526     127     22      128     123             \r\n                   43-        SEQGP   129     224     130     325     131     426     132     527             \r\n                   44-        SEQGP   133     23      134     124     135     225     136     326             \r\n                   45-        SEQGP   137     427     138     528     139     24      140     125             \r\n                   46-        SEQGP   141     226     142     327     143     428     144     529             \r\n                   47-        SEQGP   145     25      146     126     147     227     148     328             \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SEQGP   149     429     150     530     151     26      152     127             \r\n                   49-        SEQGP   153     228     154     329     155     430     156     531             \r\n                   50-        SEQGP   157     27      158     128     159     229     160     330             \r\n                   51-        SEQGP   161     431     162     532     163     28      164     129             \r\n                   52-        SEQGP   165     230     166     331     167     432     168     533             \r\n                   53-        SEQGP   169     29      170     130     171     231     172     332             \r\n                   54-        SEQGP   173     433     174     534     175     30      176     131             \r\n                   55-        SEQGP   177     232     178     333     179     434     180     535             \r\n                   56-        SEQGP   181     31      182     132     183     233     184     334             \r\n                   57-        SEQGP   185     435     186     536     187     32      188     133             \r\n                   58-        SEQGP   189     234     190     335     191     436     192     537             \r\n                   59-        SEQGP   193     33      194     134     195     235     196     336             \r\n                   60-        SEQGP   197     437     198     538     199     34      200     135             \r\n                   61-        SEQGP   201     236     202     337     203     438     204     539             \r\n                   62-        SEQGP   205     35      206     136     207     237     208     338             \r\n                   63-        SEQGP   209     439     210     540     211     36      212     137             \r\n                   64-        SEQGP   213     238     214     339     215     440     216     541             \r\n                   65-        SEQGP   217     37      218     138     219     239     220     340             \r\n                   66-        SEQGP   221     441     222     542     223     38      224     139             \r\n                   67-        SEQGP   225     240     226     341     227     442     228     543             \r\n                   68-        SEQGP   229     39      230     140     231     241     232     342             \r\n                   69-        SEQGP   233     443     234     544     235     40      236     141             \r\n                   70-        SEQGP   237     242     238     343     239     444     240     545             \r\n                   71-        SEQGP   241     41      242     142     243     243     244     344             \r\n                   72-        SEQGP   245     445     246     546     247     42      248     143             \r\n                   73-        SEQGP   249     244     250     345     251     446     252     547             \r\n                   74-        SEQGP   253     43      254     144     255     245     256     346             \r\n                   75-        SEQGP   257     447     258     548     259     44      260     145             \r\n                   76-        SEQGP   261     246     262     347     263     448     264     549             \r\n                   77-        SEQGP   265     45      266     146     267     247     268     348             \r\n                   78-        SEQGP   269     449     270     550     271     46      272     147             \r\n                   79-        SEQGP   273     248     274     349     275     450     276     551             \r\n                   80-        SEQGP   277     47      278     148     279     249     280     350             \r\n                   81-        SEQGP   281     451     282     552     283     48      284     149             \r\n                   82-        SEQGP   285     250     286     351     287     452     288     553             \r\n                   83-        SEQGP   289     49      290     150     291     251     292     352             \r\n                   84-        SEQGP   293     453     294     554     295     50      296     151             \r\n                   85-        SEQGP   297     252     298     353     299     454     300     555             \r\n                   86-        SEQGP   301     51      302     152     303     253     304     354             \r\n                   87-        SEQGP   305     455     306     556     307     52      308     153             \r\n                   88-        SEQGP   309     254     310     355     311     456     312     557             \r\n                   89-        SEQGP   313     53      314     154     315     255     316     356             \r\n                   90-        SEQGP   317     457     318     558     319     54      320     155             \r\n                   91-        SEQGP   321     256     322     357     323     458     324     559             \r\n                   92-        SEQGP   325     55      326     156     327     257     328     358             \r\n                   93-        SEQGP   329     459     330     560     331     56      332     157             \r\n                   94-        SEQGP   333     258     334     359     335     460     336     561             \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        SEQGP   337     57      338     158     339     259     340     360             \r\n                   96-        SEQGP   341     461     342     562     343     58      344     159             \r\n                   97-        SEQGP   345     260     346     361     347     462     348     563             \r\n                   98-        SEQGP   349     59      350     160     351     261     352     362             \r\n                   99-        SEQGP   353     463     354     564     355     60      356     161             \r\n                  100-        SEQGP   357     262     358     363     359     464     360     565             \r\n                  101-        SEQGP   361     61      362     162     363     263     364     364             \r\n                  102-        SEQGP   365     465     366     566     367     62      368     163             \r\n                  103-        SEQGP   369     264     370     365     371     466     372     567             \r\n                  104-        SEQGP   373     63      374     164     375     265     376     366             \r\n                  105-        SEQGP   377     467     378     568     379     64      380     165             \r\n                  106-        SEQGP   381     266     382     367     383     468     384     569             \r\n                  107-        SEQGP   385     65      386     166     387     267     388     368             \r\n                  108-        SEQGP   389     469     390     570     391     66      392     167             \r\n                  109-        SEQGP   393     268     394     369     395     470     396     571             \r\n                  110-        SEQGP   397     67      398     168     399     269     400     370             \r\n                  111-        SEQGP   401     471     402     572     403     68      404     169             \r\n                  112-        SEQGP   405     270     406     371     407     472     408     573             \r\n                  113-        SEQGP   409     69      410     170     411     271     412     372             \r\n                  114-        SEQGP   413     473     414     574     415     70      416     171             \r\n                  115-        SEQGP   417     272     418     373     419     474     420     575             \r\n                  116-        SEQGP   421     71      422     172     423     273     424     374             \r\n                  117-        SEQGP   425     475     426     576     427     72      428     173             \r\n                  118-        SEQGP   429     274     430     375     431     476     432     577             \r\n                  119-        SEQGP   433     73      434     174     435     275     436     376             \r\n                  120-        SEQGP   437     477     438     578     439     74      440     175             \r\n                  121-        SEQGP   441     276     442     377     443     478     444     579             \r\n                  122-        SEQGP   445     75      446     176     447     277     448     378             \r\n                  123-        SEQGP   449     479     450     580     451     76      452     177             \r\n                  124-        SEQGP   453     278     454     379     455     480     456     581             \r\n                  125-        SEQGP   457     77      458     178     459     279     460     380             \r\n                  126-        SEQGP   461     481     462     582     463     78      464     179             \r\n                  127-        SEQGP   465     280     466     381     467     482     468     583             \r\n                  128-        SEQGP   469     79      470     180     471     281     472     382             \r\n                  129-        SEQGP   473     483     474     584     475     80      476     181             \r\n                  130-        SEQGP   477     282     478     383     479     484     480     585             \r\n                  131-        SEQGP   481     81      482     182     483     283     484     384             \r\n                  132-        SEQGP   485     485     486     586     487     82      488     183             \r\n                  133-        SEQGP   489     284     490     385     491     486     492     587             \r\n                  134-        SEQGP   493     83      494     184     495     285     496     386             \r\n                  135-        SEQGP   497     487     498     588     499     84      500     185             \r\n                  136-        SEQGP   501     286     502     387     503     488     504     589             \r\n                  137-        SEQGP   505     85      506     186     507     287     508     388             \r\n                  138-        SEQGP   509     489     510     590     511     86      512     187             \r\n                  139-        SEQGP   513     288     514     389     515     490     516     591             \r\n                  140-        SEQGP   517     87      518     188     519     289     520     390             \r\n                  141-        SEQGP   521     491     522     592     523     88      524     189             \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        SEQGP   525     290     526     391     527     492     528     593             \r\n                  143-        SEQGP   529     89      530     190     531     291     532     392             \r\n                  144-        SEQGP   533     493     534     594     535     90      536     191             \r\n                  145-        SEQGP   537     292     538     393     539     494     540     595             \r\n                  146-        SEQGP   541     91      542     192     543     293     544     394             \r\n                  147-        SEQGP   545     495     546     596     547     92      548     193             \r\n                  148-        SEQGP   549     294     550     395     551     496     552     597             \r\n                  149-        SEQGP   553     93      554     194     555     295     556     396             \r\n                  150-        SEQGP   557     497     558     598     559     94      560     195             \r\n                  151-        SEQGP   561     296     562     397     563     498     564     599             \r\n                  152-        SEQGP   565     95      566     196     567     297     568     398             \r\n                  153-        SEQGP   569     499     570     600     571     96      572     197             \r\n                  154-        SEQGP   573     298     574     399     575     500     576     601             \r\n                  155-        SEQGP   577     97      578     198     579     299     580     400             \r\n                  156-        SEQGP   581     501     582     602     583     98      584     199             \r\n                  157-        SEQGP   585     300     586     401     587     502     588     603             \r\n                  158-        SEQGP   589     99      590     200     591     301     592     402             \r\n                  159-        SEQGP   593     503     594     604     595     100     596     201             \r\n                  160-        SEQGP   597     302     598     403     599     504     600     605             \r\n                  161-        SEQGP   601     101     602     202     603     303     604     404             \r\n                  162-        SEQGP   605     505     606     606                                             \r\n                              ENDDATA\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       1  PARAM  //C,N,NOP/V,N,TRUE=-1 $                                          \r\n\r\n       1  INPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1  $                              \r\n\r\n       1  EQUIV  G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $                    \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      95  LABEL    LBL9 $                                                         \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n\r\n      SPILL CHECK                                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                            5     100 2.0E+00 2.0E+00     126 0.0E+00 0.0E+00\r\n                            4       5       0      34       0       0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -4.3674068E-13\r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            3.037262E-04   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            2.888604E-04   0.0            1.475484E-05   0.0                           \r\n             3      G      0.0            0.0            2.457186E-04   0.0            2.806470E-05   0.0                           \r\n             4      G      0.0            0.0            1.785250E-04   0.0            3.862729E-05   0.0                           \r\n             5      G      0.0            0.0            9.385625E-05   0.0            4.540926E-05   0.0                           \r\n             7      G      0.0            0.0            2.939934E-04  -8.977599E-06   0.0            0.0                           \r\n            13      G      0.0            0.0            2.713889E-04  -1.309458E-05   0.0            0.0                           \r\n            19      G      0.0            0.0            2.434646E-04  -1.443695E-05   0.0            0.0                           \r\n            25      G      0.0            0.0            2.144644E-04  -1.426641E-05   0.0            0.0                           \r\n            31      G      0.0            0.0            1.866442E-04  -1.332437E-05   0.0            0.0                           \r\n            37      G      0.0            0.0            1.610988E-04  -1.204011E-05   0.0            0.0                           \r\n            43      G      0.0            0.0            1.382578E-04  -1.065591E-05   0.0            0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            9.958928E-01   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            1.894301E+00   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            1.610752E+00   0.0            0.0            0.0                           \r\n             4      G      0.0            0.0            1.170742E+00   0.0            0.0            0.0                           \r\n             5      G      0.0            0.0            6.154956E-01   0.0            0.0            0.0                           \r\n             6      G      0.0            0.0            7.837847E-02   0.0            0.0            0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.260429E+00  -3.161795E+00   0.0                           \r\n             2      G      0.0            0.0            0.0            8.103666E+00   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            6.893106E+00   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            5.008235E+00   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.633057E+00   0.0            0.0                           \r\n             6      G      0.0            0.0           -1.318083E+00   1.503710E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            0.0           -6.083074E+00   0.0                           \r\n            12      G      0.0            0.0           -1.988982E+00   1.847761E-02   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -5.028289E+00   0.0                           \r\n            18      G      0.0            0.0           -1.175889E+00  -9.037440E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            0.0           -4.179047E+00   0.0                           \r\n            24      G      0.0            0.0           -7.222049E-01  -8.707463E-02   0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0           -3.490331E+00   0.0                           \r\n            30      G      0.0            0.0           -4.424800E-01  -8.324321E-02   0.0            0.0                           \r\n            31      G      0.0            0.0            0.0            0.0           -2.925571E+00   0.0                           \r\n            36      G      0.0            0.0           -2.715906E-01  -7.610597E-02   0.0            0.0                           \r\n            37      G      0.0            0.0            0.0            0.0           -2.458671E+00   0.0                           \r\n            42      G      0.0            0.0           -1.670355E-01  -6.787330E-02   0.0            0.0                           \r\n            43      G      0.0            0.0            0.0            0.0           -2.070276E+00   0.0                           \r\n            48      G      0.0            0.0           -1.030183E-01  -5.955674E-02   0.0            0.0                           \r\n            49      G      0.0            0.0            0.0            0.0           -1.745689E+00   0.0                           \r\n            54      G      0.0            0.0           -6.377681E-02  -5.169515E-02   0.0            0.0                           \r\n            55      G      0.0            0.0            0.0            0.0           -1.473497E+00   0.0                           \r\n            60      G      0.0            0.0           -3.968485E-02  -4.453912E-02   0.0            0.0                           \r\n            61      G      0.0            0.0            0.0            0.0           -1.244669E+00   0.0                           \r\n            66      G      0.0            0.0           -2.486212E-02  -3.817596E-02   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -1.051942E+00   0.0                           \r\n            72      G      0.0            0.0           -1.571565E-02  -3.260330E-02   0.0            0.0                           \r\n            73      G      0.0            0.0            0.0            0.0           -8.894022E-01   0.0                           \r\n            78      G      0.0            0.0           -1.004935E-02  -2.777263E-02   0.0            0.0                           \r\n            79      G      0.0            0.0            0.0            0.0           -7.521883E-01   0.0                           \r\n            84      G      0.0            0.0           -6.520282E-03  -2.361445E-02   0.0            0.0                           \r\n            85      G      0.0            0.0            0.0            0.0           -6.362723E-01   0.0                           \r\n            90      G      0.0            0.0           -4.306674E-03  -2.005262E-02   0.0            0.0                           \r\n            91      G      0.0            0.0            0.0            0.0           -5.382983E-01   0.0                           \r\n            96      G      0.0            0.0           -2.905211E-03  -1.701209E-02   0.0            0.0                           \r\n            97      G      0.0            0.0            0.0            0.0           -4.554586E-01   0.0                           \r\n           102      G      0.0            0.0           -2.007236E-03  -1.442289E-02   0.0            0.0                           \r\n           103      G      0.0            0.0            0.0            0.0           -3.853967E-01   0.0                           \r\n           108      G      0.0            0.0           -1.423142E-03  -1.222186E-02   0.0            0.0                           \r\n           109      G      0.0            0.0            0.0            0.0           -3.261302E-01   0.0                           \r\n           114      G      0.0            0.0           -1.036180E-03  -1.035312E-02   0.0            0.0                           \r\n           115      G      0.0            0.0            0.0            0.0           -2.759886E-01   0.0                           \r\n           120      G      0.0            0.0           -7.742308E-04  -8.767921E-03   0.0            0.0                           \r\n           121      G      0.0            0.0            0.0            0.0           -2.335629E-01   0.0                           \r\n           126      G      0.0            0.0           -5.925495E-04  -7.424098E-03   0.0            0.0                           \r\n           127      G      0.0            0.0            0.0            0.0           -1.976630E-01   0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           132      G      0.0            0.0           -4.632143E-04  -6.285420E-03   0.0            0.0                           \r\n           133      G      0.0            0.0            0.0            0.0           -1.672837E-01   0.0                           \r\n           138      G      0.0            0.0           -3.686657E-04  -5.320890E-03   0.0            0.0                           \r\n           139      G      0.0            0.0            0.0            0.0           -1.415749E-01   0.0                           \r\n           144      G      0.0            0.0           -2.977494E-04  -4.504069E-03   0.0            0.0                           \r\n           145      G      0.0            0.0            0.0            0.0           -1.198181E-01   0.0                           \r\n           150      G      0.0            0.0           -2.432876E-04  -3.812453E-03   0.0            0.0                           \r\n           151      G      0.0            0.0            0.0            0.0           -1.014054E-01   0.0                           \r\n           156      G      0.0            0.0           -2.005871E-04  -3.226925E-03   0.0            0.0                           \r\n           157      G      0.0            0.0            0.0            0.0           -8.582255E-02   0.0                           \r\n           162      G      0.0            0.0           -1.665191E-04  -2.731254E-03   0.0            0.0                           \r\n           163      G      0.0            0.0            0.0            0.0           -7.263451E-02   0.0                           \r\n           168      G      0.0            0.0           -1.389503E-04  -2.311679E-03   0.0            0.0                           \r\n           169      G      0.0            0.0            0.0            0.0           -6.147316E-02   0.0                           \r\n           174      G      0.0            0.0           -1.163896E-04  -1.956533E-03   0.0            0.0                           \r\n           175      G      0.0            0.0            0.0            0.0           -5.202699E-02   0.0                           \r\n           180      G      0.0            0.0           -9.776679E-05  -1.655933E-03   0.0            0.0                           \r\n           181      G      0.0            0.0            0.0            0.0           -4.403240E-02   0.0                           \r\n           186      G      0.0            0.0           -8.229317E-05  -1.401507E-03   0.0            0.0                           \r\n           187      G      0.0            0.0            0.0            0.0           -3.726630E-02   0.0                           \r\n           192      G      0.0            0.0           -6.937282E-05  -1.186167E-03   0.0            0.0                           \r\n           193      G      0.0            0.0            0.0            0.0           -3.153992E-02   0.0                           \r\n           198      G      0.0            0.0           -5.854500E-05  -1.003910E-03   0.0            0.0                           \r\n           199      G      0.0            0.0            0.0            0.0           -2.669347E-02   0.0                           \r\n           204      G      0.0            0.0           -4.944643E-05  -8.496544E-04   0.0            0.0                           \r\n           205      G      0.0            0.0            0.0            0.0           -2.259173E-02   0.0                           \r\n           210      G      0.0            0.0           -4.178589E-05  -7.191000E-04   0.0            0.0                           \r\n           211      G      0.0            0.0            0.0            0.0           -1.912027E-02   0.0                           \r\n           216      G      0.0            0.0           -3.532685E-05  -6.086052E-04   0.0            0.0                           \r\n           217      G      0.0            0.0            0.0            0.0           -1.618225E-02   0.0                           \r\n           222      G      0.0            0.0           -2.987519E-05  -5.150882E-04   0.0            0.0                           \r\n           223      G      0.0            0.0            0.0            0.0           -1.369568E-02   0.0                           \r\n           228      G      0.0            0.0           -2.527033E-05  -4.359405E-04   0.0            0.0                           \r\n           229      G      0.0            0.0            0.0            0.0           -1.159120E-02   0.0                           \r\n           234      G      0.0            0.0           -2.137860E-05  -3.689544E-04   0.0            0.0                           \r\n           235      G      0.0            0.0            0.0            0.0           -9.810094E-03   0.0                           \r\n           240      G      0.0            0.0           -1.808825E-05  -3.122612E-04   0.0            0.0                           \r\n           241      G      0.0            0.0            0.0            0.0           -8.302674E-03   0.0                           \r\n           246      G      0.0            0.0           -1.530557E-05  -2.642793E-04   0.0            0.0                           \r\n           247      G      0.0            0.0            0.0            0.0           -7.026884E-03   0.0                           \r\n           252      G      0.0            0.0           -1.295174E-05  -2.236703E-04   0.0            0.0                           \r\n           253      G      0.0            0.0            0.0            0.0           -5.947133E-03   0.0                           \r\n           258      G      0.0            0.0           -1.096037E-05  -1.893012E-04   0.0            0.0                           \r\n           259      G      0.0            0.0            0.0            0.0           -5.033297E-03   0.0                           \r\n           264      G      0.0            0.0           -9.275462E-06  -1.602132E-04   0.0            0.0                           \r\n           265      G      0.0            0.0            0.0            0.0           -4.259880E-03   0.0                           \r\n           270      G      0.0            0.0           -7.849744E-06  -1.355948E-04   0.0            0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           271      G      0.0            0.0            0.0            0.0           -3.605307E-03   0.0                           \r\n           276      G      0.0            0.0           -6.643278E-06  -1.147594E-04   0.0            0.0                           \r\n           277      G      0.0            0.0            0.0            0.0           -3.051315E-03   0.0                           \r\n           282      G      0.0            0.0           -5.622304E-06  -9.712544E-05   0.0            0.0                           \r\n           283      G      0.0            0.0            0.0            0.0           -2.582450E-03   0.0                           \r\n           288      G      0.0            0.0           -4.758278E-06  -8.220116E-05   0.0            0.0                           \r\n           289      G      0.0            0.0            0.0            0.0           -2.185631E-03   0.0                           \r\n           294      G      0.0            0.0           -4.027059E-06  -6.957013E-05   0.0            0.0                           \r\n           295      G      0.0            0.0            0.0            0.0           -1.849787E-03   0.0                           \r\n           300      G      0.0            0.0           -3.408223E-06  -5.887998E-05   0.0            0.0                           \r\n           301      G      0.0            0.0            0.0            0.0           -1.565549E-03   0.0                           \r\n           306      G      0.0            0.0           -2.884492E-06  -4.983249E-05   0.0            0.0                           \r\n           307      G      0.0            0.0            0.0            0.0           -1.324987E-03   0.0                           \r\n           312      G      0.0            0.0           -2.441247E-06  -4.217523E-05   0.0            0.0                           \r\n           313      G      0.0            0.0            0.0            0.0           -1.121389E-03   0.0                           \r\n           318      G      0.0            0.0           -2.066116E-06  -3.569458E-05   0.0            0.0                           \r\n           319      G      0.0            0.0            0.0            0.0           -9.490766E-04   0.0                           \r\n           324      G      0.0            0.0           -1.748632E-06  -3.020975E-05   0.0            0.0                           \r\n           325      G      0.0            0.0            0.0            0.0           -8.032415E-04   0.0                           \r\n           330      G      0.0            0.0           -1.479934E-06  -2.556772E-05   0.0            0.0                           \r\n           331      G      0.0            0.0            0.0            0.0           -6.798155E-04   0.0                           \r\n           336      G      0.0            0.0           -1.252525E-06  -2.163898E-05   0.0            0.0                           \r\n           337      G      0.0            0.0            0.0            0.0           -5.753551E-04   0.0                           \r\n           342      G      0.0            0.0           -1.060061E-06  -1.831393E-05   0.0            0.0                           \r\n           343      G      0.0            0.0            0.0            0.0           -4.869461E-04   0.0                           \r\n           348      G      0.0            0.0           -8.971717E-07  -1.549981E-05   0.0            0.0                           \r\n           349      G      0.0            0.0            0.0            0.0           -4.121221E-04   0.0                           \r\n           354      G      0.0            0.0           -7.593120E-07  -1.311811E-05   0.0            0.0                           \r\n           355      G      0.0            0.0            0.0            0.0           -3.487955E-04   0.0                           \r\n           360      G      0.0            0.0           -6.426361E-07  -1.110238E-05   0.0            0.0                           \r\n           361      G      0.0            0.0            0.0            0.0           -2.951997E-04   0.0                           \r\n           366      G      0.0            0.0           -5.438887E-07  -9.396381E-06   0.0            0.0                           \r\n           367      G      0.0            0.0            0.0            0.0           -2.498395E-04   0.0                           \r\n           372      G      0.0            0.0           -4.603149E-07  -7.952528E-06   0.0            0.0                           \r\n           373      G      0.0            0.0            0.0            0.0           -2.114494E-04   0.0                           \r\n           378      G      0.0            0.0           -3.895832E-07  -6.730537E-06   0.0            0.0                           \r\n           379      G      0.0            0.0            0.0            0.0           -1.789583E-04   0.0                           \r\n           384      G      0.0            0.0           -3.297203E-07  -5.696315E-06   0.0            0.0                           \r\n           385      G      0.0            0.0            0.0            0.0           -1.514598E-04   0.0                           \r\n           390      G      0.0            0.0           -2.790559E-07  -4.821011E-06   0.0            0.0                           \r\n           391      G      0.0            0.0            0.0            0.0           -1.281868E-04   0.0                           \r\n           396      G      0.0            0.0           -2.361767E-07  -4.080205E-06   0.0            0.0                           \r\n           397      G      0.0            0.0            0.0            0.0           -1.084900E-04   0.0                           \r\n           402      G      0.0            0.0           -1.998865E-07  -3.453229E-06   0.0            0.0                           \r\n           403      G      0.0            0.0            0.0            0.0           -9.181984E-05   0.0                           \r\n           408      G      0.0            0.0           -1.691727E-07  -2.922592E-06   0.0            0.0                           \r\n           409      G      0.0            0.0            0.0            0.0           -7.771132E-05   0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           414      G      0.0            0.0           -1.431786E-07  -2.473490E-06   0.0            0.0                           \r\n           415      G      0.0            0.0            0.0            0.0           -6.577080E-05   0.0                           \r\n           420      G      0.0            0.0           -1.211789E-07  -2.093395E-06   0.0            0.0                           \r\n           421      G      0.0            0.0            0.0            0.0           -5.566517E-05   0.0                           \r\n           426      G      0.0            0.0           -1.025598E-07  -1.771701E-06   0.0            0.0                           \r\n           427      G      0.0            0.0            0.0            0.0           -4.711250E-05   0.0                           \r\n           432      G      0.0            0.0           -8.680202E-08  -1.499435E-06   0.0            0.0                           \r\n           433      G      0.0            0.0            0.0            0.0           -3.987419E-05   0.0                           \r\n           438      G      0.0            0.0           -7.346584E-08  -1.269000E-06   0.0            0.0                           \r\n           439      G      0.0            0.0            0.0            0.0           -3.374829E-05   0.0                           \r\n           444      G      0.0            0.0           -6.217923E-08  -1.073968E-06   0.0            0.0                           \r\n           445      G      0.0            0.0            0.0            0.0           -2.856392E-05   0.0                           \r\n           450      G      0.0            0.0           -5.262729E-08  -9.088980E-07   0.0            0.0                           \r\n           451      G      0.0            0.0            0.0            0.0           -2.417643E-05   0.0                           \r\n           456      G      0.0            0.0           -4.454355E-08  -7.691845E-07   0.0            0.0                           \r\n           457      G      0.0            0.0            0.0            0.0           -2.046341E-05   0.0                           \r\n           462      G      0.0            0.0           -3.770248E-08  -6.509300E-07   0.0            0.0                           \r\n           463      G      0.0            0.0            0.0            0.0           -1.732129E-05   0.0                           \r\n           468      G      0.0            0.0           -3.191320E-08  -5.508352E-07   0.0            0.0                           \r\n           469      G      0.0            0.0            0.0            0.0           -1.466241E-05   0.0                           \r\n           474      G      0.0            0.0           -2.701419E-08  -4.661078E-07   0.0            0.0                           \r\n           475      G      0.0            0.0            0.0            0.0           -1.241258E-05   0.0                           \r\n           480      G      0.0            0.0           -2.286873E-08  -3.943840E-07   0.0            0.0                           \r\n           481      G      0.0            0.0            0.0            0.0           -1.050903E-05   0.0                           \r\n           486      G      0.0            0.0           -1.936111E-08  -3.336628E-07   0.0            0.0                           \r\n           487      G      0.0            0.0            0.0            0.0           -8.898676E-06   0.0                           \r\n           492      G      0.0            0.0           -1.639337E-08  -2.822501E-07   0.0            0.0                           \r\n           493      G      0.0            0.0            0.0            0.0           -7.536575E-06   0.0                           \r\n           498      G      0.0            0.0           -1.388255E-08  -2.387117E-07   0.0            0.0                           \r\n           499      G      0.0            0.0            0.0            0.0           -6.384731E-06   0.0                           \r\n           504      G      0.0            0.0           -1.175833E-08  -2.018330E-07   0.0            0.0                           \r\n           505      G      0.0            0.0            0.0            0.0           -5.411009E-06   0.0                           \r\n           510      G      0.0            0.0           -9.961006E-09  -1.705849E-07   0.0            0.0                           \r\n           511      G      0.0            0.0            0.0            0.0           -4.588244E-06   0.0                           \r\n           516      G      0.0            0.0           -8.439711E-09  -1.440958E-07   0.0            0.0                           \r\n           517      G      0.0            0.0            0.0            0.0           -3.893482E-06   0.0                           \r\n           522      G      0.0            0.0           -7.150808E-09  -1.216265E-07   0.0            0.0                           \r\n           523      G      0.0            0.0            0.0            0.0           -3.307341E-06   0.0                           \r\n           528      G      0.0            0.0           -6.056388E-09  -1.025501E-07   0.0            0.0                           \r\n           529      G      0.0            0.0            0.0            0.0           -2.813465E-06   0.0                           \r\n           534      G      0.0            0.0           -5.122720E-09  -8.633420E-08   0.0            0.0                           \r\n           535      G      0.0            0.0            0.0            0.0           -2.398077E-06   0.0                           \r\n           540      G      0.0            0.0           -4.318514E-09  -7.252614E-08   0.0            0.0                           \r\n           541      G      0.0            0.0            0.0            0.0           -2.049585E-06   0.0                           \r\n           546      G      0.0            0.0           -3.612754E-09  -6.074022E-08   0.0            0.0                           \r\n           547      G      0.0            0.0            0.0            0.0           -1.758263E-06   0.0                           \r\n           552      G      0.0            0.0           -2.971689E-09  -5.064685E-08   0.0            0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           553      G      0.0            0.0            0.0            0.0           -1.515977E-06   0.0                           \r\n           558      G      0.0            0.0           -2.354404E-09  -4.196319E-08   0.0            0.0                           \r\n           559      G      0.0            0.0            0.0            0.0           -1.315957E-06   0.0                           \r\n           564      G      0.0            0.0           -1.705949E-09  -3.444489E-08   0.0            0.0                           \r\n           565      G      0.0            0.0            0.0            0.0           -1.152607E-06   0.0                           \r\n           570      G      0.0            0.0           -9.464320E-10  -2.787880E-08   0.0            0.0                           \r\n           571      G      0.0            0.0            0.0            0.0           -1.021340E-06   0.0                           \r\n           576      G      0.0            0.0            4.657980E-11  -2.207615E-08   0.0            0.0                           \r\n           577      G      0.0            0.0            0.0            0.0           -9.184492E-07   0.0                           \r\n           582      G      0.0            0.0            1.466508E-09  -1.686610E-08   0.0            0.0                           \r\n           583      G      0.0            0.0            0.0            0.0           -8.409891E-07   0.0                           \r\n           588      G      0.0            0.0            3.626697E-09  -1.208528E-08   0.0            0.0                           \r\n           589      G      0.0            0.0            0.0            0.0           -7.866723E-07   0.0                           \r\n           594      G      0.0            0.0            6.996022E-09  -7.629329E-09   0.0            0.0                           \r\n           595      G      0.0            0.0            0.0            0.0           -7.538399E-07   0.0                           \r\n           600      G      0.0            0.0            1.303603E-08  -2.394109E-09   0.0            0.0                           \r\n           601      G      0.0            0.0            0.0            0.0           -3.773022E-07   0.0                           \r\n           606      G      0.0            0.0           -3.685073E-08  -6.026966E-08   0.0            0.0                           \r\n1     5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                                                                                   \r\n0     SPILL CHECK                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1    5.000000E-01      1.889895E+01   2.039686E+01  -3.900606E-01   -76.2446    2.049234E+01    1.880346E+01   8.444400E-01 \r\n            -5.000000E-01     -1.889895E+01  -2.039686E+01   3.900606E-01    13.7554   -1.880346E+01   -2.049234E+01   8.444400E-01 \r\n0       2    5.000000E-01      1.704840E+01   1.839983E+01  -1.132050E+00   -60.4164    1.904250E+01    1.640573E+01   1.318382E+00 \r\n            -5.000000E-01     -1.704840E+01  -1.839983E+01   1.132050E+00    29.5836   -1.640573E+01   -1.904250E+01   1.318382E+00 \r\n0       3    5.000000E-01      1.352950E+01   1.460203E+01  -1.762666E+00   -53.4608    1.590820E+01    1.222333E+01   1.842436E+00 \r\n            -5.000000E-01     -1.352950E+01  -1.460203E+01   1.762666E+00    36.5392   -1.222333E+01   -1.590820E+01   1.842436E+00 \r\n0       4    5.000000E-01      8.686762E+00   9.375266E+00  -2.221185E+00   -49.4050    1.127872E+01    6.783310E+00   2.247704E+00 \r\n            -5.000000E-01     -8.686762E+00  -9.375266E+00   2.221185E+00    40.5950   -6.783310E+00   -1.127872E+01   2.247704E+00 \r\n0       5    5.000000E-01      2.993285E+00   3.230521E+00  -2.462346E+00   -46.3790    5.577105E+00    6.467016E-01   2.465201E+00 \r\n            -5.000000E-01     -2.993285E+00  -3.230521E+00   2.462346E+00    43.6210   -6.467016E-01   -5.577105E+00   2.465201E+00 \r\n0       7    5.000000E-01      1.575741E+01   1.289906E+01  -8.756107E-01   -15.7472    1.600432E+01    1.265215E+01   1.676080E+00 \r\n            -5.000000E-01     -1.575741E+01  -1.289906E+01   8.756107E-01    74.2528   -1.265215E+01   -1.600432E+01   1.676080E+00 \r\n0      13    5.000000E-01      1.319522E+01   8.234562E+00  -1.055054E+00   -11.5217    1.341029E+01    8.019493E+00   2.695398E+00 \r\n            -5.000000E-01     -1.319522E+01  -8.234562E+00   1.055054E+00    78.4783   -8.019493E+00   -1.341029E+01   2.695398E+00 \r\n0      19    5.000000E-01      1.108139E+01   5.332791E+00  -1.085724E+00   -10.3467    1.127962E+01    5.134568E+00   3.072525E+00 \r\n            -5.000000E-01     -1.108139E+01  -5.332791E+00   1.085724E+00    79.6533   -5.134568E+00   -1.127962E+01   3.072525E+00 \r\n0      25    5.000000E-01      9.325995E+00   3.514302E+00  -1.036469E+00    -9.8153    9.505309E+00    3.334989E+00   3.085160E+00 \r\n            -5.000000E-01     -9.325995E+00  -3.514302E+00   1.036469E+00    80.1847   -3.334989E+00   -9.505309E+00   3.085160E+00 \r\n0      31    5.000000E-01      7.860834E+00   2.364410E+00  -9.491504E-01    -9.5267    8.020123E+00    2.205122E+00   2.907500E+00 \r\n            -5.000000E-01     -7.860834E+00  -2.364410E+00   9.491504E-01    80.4733   -2.205122E+00   -8.020123E+00   2.907500E+00 \r\n0      37    5.000000E-01      6.633325E+00   1.628785E+00  -8.470691E-01    -9.3510    6.772812E+00    1.489297E+00   2.641757E+00 \r\n            -5.000000E-01     -6.633325E+00  -1.628785E+00   8.470691E-01    80.6490   -1.489297E+00   -6.772812E+00   2.641757E+00 \r\n0      43    5.000000E-01      5.602075E+00   1.151222E+00  -7.437060E-01    -9.2395    5.723054E+00    1.030242E+00   2.346406E+00 \r\n            -5.000000E-01     -5.602075E+00  -1.151222E+00   7.437060E-01    80.7606   -1.030242E+00   -5.723054E+00   2.346406E+00 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                            \r\n DATE:  5/17/95\r\n END TIME: 14:35:19\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01051a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01051A,NASTRAN                                                           \r\n     TIME  35                                                                        \r\n     APP   DISP                                                                      \r\n     SOL   1,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      $                                                                               \r\n                  2      TITLE    = NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                     \r\n                  3      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                          \r\n                  4          LOAD = 15                                                                   \r\n                  5        AXISYM = COSINE                                                               \r\n                  6      OUTPUT                                                                          \r\n                  7           SET 1 = 5,10,15,20,25,30,35,40,45,50,100,200                               \r\n                  8           SET 2 = 1,6,11,16,21,26,31,36,41,46,50                                     \r\n                  9            DISP = 1                                                                  \r\n                 10         ELFORCE = 2                                                                  \r\n                 11       HARMONICS = ALL                                                                \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   148, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIC    20                                                                      \r\n                    2-        CCONEAX 1       15      100     1                                               \r\n                    3-        CCONEAX 2       15      1       2                                               \r\n                    4-        CCONEAX 3       15      2       3                                               \r\n                    5-        CCONEAX 4       15      3       4                                               \r\n                    6-        CCONEAX 5       15      4       5                                               \r\n                    7-        CCONEAX 6       15      5       6                                               \r\n                    8-        CCONEAX 7       15      6       7                                               \r\n                    9-        CCONEAX 8       15      7       8                                               \r\n                   10-        CCONEAX 9       15      8       9                                               \r\n                   11-        CCONEAX 10      15      9       10                                              \r\n                   12-        CCONEAX 11      15      10      11                                              \r\n                   13-        CCONEAX 12      15      11      12                                              \r\n                   14-        CCONEAX 13      15      12      13                                              \r\n                   15-        CCONEAX 14      15      13      14                                              \r\n                   16-        CCONEAX 15      15      14      15                                              \r\n                   17-        CCONEAX 16      15      15      16                                              \r\n                   18-        CCONEAX 17      15      16      17                                              \r\n                   19-        CCONEAX 18      15      17      18                                              \r\n                   20-        CCONEAX 19      15      18      19                                              \r\n                   21-        CCONEAX 20      15      19      20                                              \r\n                   22-        CCONEAX 21      15      20      21                                              \r\n                   23-        CCONEAX 22      15      21      22                                              \r\n                   24-        CCONEAX 23      15      22      23                                              \r\n                   25-        CCONEAX 24      15      23      24                                              \r\n                   26-        CCONEAX 25      15      24      25                                              \r\n                   27-        CCONEAX 26      15      25      26                                              \r\n                   28-        CCONEAX 27      15      26      27                                              \r\n                   29-        CCONEAX 28      15      27      28                                              \r\n                   30-        CCONEAX 29      15      28      29                                              \r\n                   31-        CCONEAX 30      15      29      30                                              \r\n                   32-        CCONEAX 31      15      30      31                                              \r\n                   33-        CCONEAX 32      15      31      32                                              \r\n                   34-        CCONEAX 33      15      32      33                                              \r\n                   35-        CCONEAX 34      15      33      34                                              \r\n                   36-        CCONEAX 35      15      34      35                                              \r\n                   37-        CCONEAX 36      15      35      36                                              \r\n                   38-        CCONEAX 37      15      36      37                                              \r\n                   39-        CCONEAX 38      15      37      38                                              \r\n                   40-        CCONEAX 39      15      38      39                                              \r\n                   41-        CCONEAX 40      15      39      40                                              \r\n                   42-        CCONEAX 41      15      40      41                                              \r\n                   43-        CCONEAX 42      15      41      42                                              \r\n                   44-        CCONEAX 43      15      42      43                                              \r\n                   45-        CCONEAX 44      15      43      44                                              \r\n                   46-        CCONEAX 45      15      44      45                                              \r\n                   47-        CCONEAX 46      15      45      46                                              \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CCONEAX 47      15      46      47                                              \r\n                   49-        CCONEAX 48      15      47      48                                              \r\n                   50-        CCONEAX 49      15      48      49                                              \r\n                   51-        CCONEAX 50      15      49      50                                              \r\n                   52-        MAT1    15      91.0            .3      .5                                      \r\n                   53-        MOMAX   15      50      0       157.0796        2.0                             \r\n                   54-        MOMAX   15      50      1       157.0796        1.0                             \r\n                   55-        MOMAX   15      50      2       157.0796        1.0                             \r\n                   56-        MOMAX   15      50      3       157.0796        1.0                             \r\n                   57-        MOMAX   15      50      4       157.0796        1.0                             \r\n                   58-        MOMAX   15      50      5       157.0796        1.0                             \r\n                   59-        MOMAX   15      50      6       157.0796        1.0                             \r\n                   60-        MOMAX   15      50      7       157.0796        1.0                             \r\n                   61-        MOMAX   15      50      8       157.0796        1.0                             \r\n                   62-        MOMAX   15      50      9       157.0796        1.0                             \r\n                   63-        MOMAX   15      50      10      157.0796        1.0                             \r\n                   64-        MOMAX   15      50      11      157.0796        1.0                             \r\n                   65-        MOMAX   15      50      12      157.0796        1.0                             \r\n                   66-        MOMAX   15      50      13      157.0796        1.0                             \r\n                   67-        MOMAX   15      50      14      157.0796        1.0                             \r\n                   68-        MOMAX   15      50      15      157.0796        1.0                             \r\n                   69-        MOMAX   15      50      16      157.0796        1.0                             \r\n                   70-        MOMAX   15      50      17      157.0796        1.0                             \r\n                   71-        MOMAX   15      50      18      157.0796        1.0                             \r\n                   72-        MOMAX   15      50      19      157.0796        1.0                             \r\n                   73-        MOMAX   15      50      20      157.0796        1.0                             \r\n                   74-        MOMAX   15      100     0       157.0796        -2.0                            \r\n                   75-        MOMAX   15      100     1       157.0796        -1.0                            \r\n                   76-        MOMAX   15      100     2       157.0796        -1.0                            \r\n                   77-        MOMAX   15      100     3       157.0796        -1.0                            \r\n                   78-        MOMAX   15      100     4       157.0796        -1.0                            \r\n                   79-        MOMAX   15      100     5       157.0796        -1.0                            \r\n                   80-        MOMAX   15      100     6       157.0796        -1.0                            \r\n                   81-        MOMAX   15      100     7       157.0796        -1.0                            \r\n                   82-        MOMAX   15      100     8       157.0796        -1.0                            \r\n                   83-        MOMAX   15      100     9       157.0796        -1.0                            \r\n                   84-        MOMAX   15      100     10      157.0796        -1.0                            \r\n                   85-        MOMAX   15      100     11      157.0796        -1.0                            \r\n                   86-        MOMAX   15      100     12      157.0796        -1.0                            \r\n                   87-        MOMAX   15      100     13      157.0796        -1.0                            \r\n                   88-        MOMAX   15      100     14      157.0796        -1.0                            \r\n                   89-        MOMAX   15      100     15      157.0796        -1.0                            \r\n                   90-        MOMAX   15      100     16      157.0796        -1.0                            \r\n                   91-        MOMAX   15      100     17      157.0796        -1.0                            \r\n                   92-        MOMAX   15      100     18      157.0796        -1.0                            \r\n                   93-        MOMAX   15      100     19      157.0796        -1.0                            \r\n                   94-        MOMAX   15      100     20      157.0796        -1.0                            \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PCONEAX 15      15      1.0     15      .083333315      1.0     .5      +PC     \r\n                   96-        +PC     .0      .5      .0      90.     180.                                    \r\n                   97-        POINTAX 200     100                                                             \r\n                   98-        RINGAX  1               50.0    1.0                     4                       \r\n                   99-        RINGAX  2               50.0    2.0                     4                       \r\n                  100-        RINGAX  3               50.0    3.                      4                       \r\n                  101-        RINGAX  4               50.0    4.                      4                       \r\n                  102-        RINGAX  5               50.0    5.                      4                       \r\n                  103-        RINGAX  6               50.0    6.                      4                       \r\n                  104-        RINGAX  7               50.0    7.                      4                       \r\n                  105-        RINGAX  8               50.0    8.                      4                       \r\n                  106-        RINGAX  9               50.0    9.                      4                       \r\n                  107-        RINGAX  10              50.0    10.                     4                       \r\n                  108-        RINGAX  11              50.0    11.                     4                       \r\n                  109-        RINGAX  12              50.0    12.                     4                       \r\n                  110-        RINGAX  13              50.0    13.                     4                       \r\n                  111-        RINGAX  14              50.0    14.                     4                       \r\n                  112-        RINGAX  15              50.0    15.                     4                       \r\n                  113-        RINGAX  16              50.0    16.                     4                       \r\n                  114-        RINGAX  17              50.0    17.                     4                       \r\n                  115-        RINGAX  18              50.0    18.                     4                       \r\n                  116-        RINGAX  19              50.0    19.                     4                       \r\n                  117-        RINGAX  20              50.0    20.                     4                       \r\n                  118-        RINGAX  21              50.0    21.                     4                       \r\n                  119-        RINGAX  22              50.0    22.                     4                       \r\n                  120-        RINGAX  23              50.0    23.                     4                       \r\n                  121-        RINGAX  24              50.0    24.                     4                       \r\n                  122-        RINGAX  25              50.0    25.                     4                       \r\n                  123-        RINGAX  26              50.0    26.                     4                       \r\n                  124-        RINGAX  27              50.0    27.                     4                       \r\n                  125-        RINGAX  28              50.0    28.                     4                       \r\n                  126-        RINGAX  29              50.0    29.                     4                       \r\n                  127-        RINGAX  30              50.0    30.                     4                       \r\n                  128-        RINGAX  31              50.0    31.                     4                       \r\n                  129-        RINGAX  32              50.0    32.                     4                       \r\n                  130-        RINGAX  33              50.0    33.                     4                       \r\n                  131-        RINGAX  34              50.0    34.                     4                       \r\n                  132-        RINGAX  35              50.0    35.                     4                       \r\n                  133-        RINGAX  36              50.0    36.                     4                       \r\n                  134-        RINGAX  37              50.0    37.                     4                       \r\n                  135-        RINGAX  38              50.0    38.                     4                       \r\n                  136-        RINGAX  39              50.0    39.                     4                       \r\n                  137-        RINGAX  40              50.0    40.                     4                       \r\n                  138-        RINGAX  41              50.0    41.                     4                       \r\n                  139-        RINGAX  42              50.0    42.                     4                       \r\n                  140-        RINGAX  43              50.0    43.                     4                       \r\n                  141-        RINGAX  44              50.0    44.                     4                       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        RINGAX  45              50.0    45.                     4                       \r\n                  143-        RINGAX  46              50.0    46.                     4                       \r\n                  144-        RINGAX  47              50.0    47.                     4                       \r\n                  145-        RINGAX  48              50.0    48.                     4                       \r\n                  146-        RINGAX  49              50.0    49.                     4                       \r\n                  147-        RINGAX  50              50.0    50.                     1234                    \r\n                  148-        RINGAX  100             50.0    .0                      1234                    \r\n                              ENDDATA\r\n0*** USER WARNING MESSAGE, POTENTIAL SYSTEM FATAL ERROR DUE TO LARGE HARMONIC (LARGER THAN 15) ON 32-BIT WORD MACHINE\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC SOLID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      200\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONEAX   ELEMENTS (ELEMENT TYPE  35) STARTING WITH ID     1001\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -3.6379900E-15\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           200             0.0            0.0            0.0            0.0           -5.896880E+00   0.0                           \r\n             5      0     -5.602123E-01   0.0            7.240845E-03   0.0            2.196875E-02   0.0                           \r\n            10      0     -2.665145E-01   0.0            1.460390E-02   0.0            6.418888E-02   0.0                           \r\n            15      0     -2.958295E-02   0.0            1.309108E-02   0.0            2.881903E-02   0.0                           \r\n            20      0      4.592609E-02   0.0            7.069997E-03   0.0            5.624009E-03   0.0                           \r\n            25      0      5.537392E-02   0.0            7.589415E-17   0.0            1.717376E-16   0.0                           \r\n            30      0      4.592609E-02   0.0           -7.069997E-03   0.0           -5.624009E-03   0.0                           \r\n            35      0     -2.958295E-02   0.0           -1.309108E-02   0.0           -2.881903E-02   0.0                           \r\n            40      0     -2.665145E-01   0.0           -1.460390E-02   0.0           -6.418888E-02   0.0                           \r\n            45      0     -5.602123E-01   0.0           -7.240845E-03   0.0           -2.196875E-02   0.0                           \r\n            50      0      0.0            0.0            0.0            0.0            3.307119E-01   0.0                           \r\n           100      0      0.0            0.0            0.0            0.0           -3.307119E-01   0.0                           \r\n             5      1     -5.761585E-01   2.171002E-02   7.646895E-03   0.0            1.891554E-02  -1.094837E-02                  \r\n            10      1     -2.949313E-01   3.104102E-02   1.487839E-02   0.0            6.240648E-02  -5.298858E-03                  \r\n            15      1     -6.327514E-02   3.309046E-02   1.321609E-02   0.0            2.836499E-02  -6.357495E-04                  \r\n            20      1      1.164692E-02   3.310905E-02   7.118431E-03   0.0            5.687605E-03   8.836140E-04                  \r\n            25      1      2.139612E-02   3.301223E-02   1.296706E-16   0.0           -6.201636E-17   1.085787E-03                  \r\n            30      1      1.164692E-02   3.310905E-02  -7.118431E-03   0.0           -5.687605E-03   8.836140E-04                  \r\n            35      1     -6.327514E-02   3.309046E-02  -1.321609E-02   0.0           -2.836499E-02  -6.357495E-04                  \r\n            40      1     -2.949313E-01   3.104102E-02  -1.487839E-02   0.0           -6.240648E-02  -5.298858E-03                  \r\n            45      1     -5.761585E-01   2.171002E-02  -7.646895E-03   0.0           -1.891554E-02  -1.094837E-02                  \r\n            50      1      0.0            0.0            0.0            0.0            3.338717E-01  -2.123022E-03                  \r\n           100      1      0.0            0.0            0.0            0.0           -3.338717E-01  -2.123022E-03                  \r\n             5      2     -6.227801E-01   4.272133E-02   8.879352E-03   0.0            9.913349E-03  -2.376496E-02                  \r\n            10      2     -3.788306E-01   6.161175E-02   1.574957E-02   0.0            5.696727E-02  -1.395023E-02                  \r\n            15      2     -1.638495E-01   6.623182E-02   1.364115E-02   0.0            2.679431E-02  -5.286187E-03                  \r\n            20      2     -9.164616E-02   6.662706E-02   7.291997E-03   0.0            5.730168E-03  -2.354266E-03                  \r\n            25      2     -8.138160E-02   6.654514E-02   3.317659E-16   0.0            2.834104E-16  -1.928851E-03                  \r\n            30      2     -9.164616E-02   6.662706E-02  -7.291997E-03   0.0           -5.730168E-03  -2.354266E-03                  \r\n            35      2     -1.638495E-01   6.623182E-02  -1.364115E-02   0.0           -2.679431E-02  -5.286187E-03                  \r\n            40      2     -3.788306E-01   6.161175E-02  -1.574957E-02   0.0           -5.696727E-02  -1.395023E-02                  \r\n            45      2     -6.227801E-01   4.272133E-02  -8.879352E-03   0.0           -9.913349E-03  -2.376496E-02                  \r\n            50      2      0.0            0.0            0.0            0.0            3.430619E-01  -4.396851E-03                  \r\n           100      2      0.0            0.0            0.0            0.0           -3.430619E-01  -4.396851E-03                  \r\n             5      3     -6.949153E-01   6.187053E-02   1.090705E-02   0.0           -4.277630E-03  -3.999237E-02                  \r\n            10      3     -5.113052E-01   9.031871E-02   1.726137E-02   0.0            4.783854E-02  -2.887978E-02                  \r\n            15      3     -3.259107E-01   9.824070E-02   1.443411E-02   0.0            2.364721E-02  -1.764994E-02                  \r\n            20      3     -2.608269E-01   9.958751E-02   7.631449E-03   0.0            5.384665E-03  -1.367553E-02                  \r\n            25      3     -2.508107E-01   9.970948E-02   1.991679E-16   0.0            6.071532E-17  -1.305145E-02                  \r\n            30      3     -2.608269E-01   9.958751E-02  -7.631449E-03   0.0           -5.384665E-03  -1.367553E-02                  \r\n            35      3     -3.259107E-01   9.824070E-02  -1.443411E-02   0.0           -2.364721E-02  -1.764994E-02                  \r\n            40      3     -5.113052E-01   9.031871E-02  -1.726137E-02   0.0           -4.783854E-02  -2.887978E-02                  \r\n            45      3     -6.949153E-01   6.187053E-02  -1.090705E-02   0.0            4.277630E-03  -3.999237E-02                  \r\n            50      3      0.0            0.0            0.0            0.0            3.571041E-01  -6.941441E-03                  \r\n           100      3      0.0            0.0            0.0            0.0           -3.571041E-01  -6.941441E-03                  \r\n             5      4     -7.774271E-01   7.672203E-02   1.334119E-02   0.0           -2.112866E-02  -5.998836E-02                  \r\n            10      4     -6.682619E-01   1.131085E-01   1.902118E-02   0.0            3.609492E-02  -5.113530E-02                  \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            15      4     -5.228862E-01   1.241799E-01   1.530530E-02   0.0            1.899602E-02  -3.936585E-02                  \r\n            20      4     -4.699032E-01   1.266359E-01   7.980472E-03   0.0            4.471006E-03  -3.503807E-02                  \r\n            25      4     -4.614506E-01   1.270287E-01   1.270143E-16   0.0           -2.705301E-15  -3.433265E-02                  \r\n            30      4     -4.699032E-01   1.266359E-01  -7.980472E-03   0.0           -4.471006E-03  -3.503807E-02                  \r\n            35      4     -5.228862E-01   1.241799E-01  -1.530530E-02   0.0           -1.899602E-02  -3.936585E-02                  \r\n            40      4     -6.682619E-01   1.131085E-01  -1.902118E-02   0.0           -3.609492E-02  -5.113530E-02                  \r\n            45      4     -7.774271E-01   7.672203E-02  -1.334119E-02   0.0            2.112866E-02  -5.998836E-02                  \r\n            50      4      0.0            0.0            0.0            0.0            3.727042E-01  -9.770336E-03                  \r\n           100      4      0.0            0.0            0.0            0.0           -3.727042E-01  -9.770336E-03                  \r\n             5      5     -8.369089E-01   8.328763E-02   1.496641E-02   0.0           -3.466010E-02  -8.111328E-02                  \r\n            10      5     -7.914025E-01   1.222912E-01   1.952992E-02   0.0            2.566624E-02  -7.649974E-02                  \r\n            15      5     -6.817381E-01   1.336280E-01   1.501161E-02   0.0            1.491384E-02  -6.541826E-02                  \r\n            20      5     -6.388470E-01   1.357392E-01   7.646537E-03   0.0            3.820874E-03  -6.105647E-02                  \r\n            25      5     -6.312926E-01   1.359431E-01  -1.239677E-15   0.0            3.014949E-15  -6.027813E-02                  \r\n            30      5     -6.388470E-01   1.357392E-01  -7.646537E-03   0.0           -3.820874E-03  -6.105647E-02                  \r\n            35      5     -6.817381E-01   1.336280E-01  -1.501161E-02   0.0           -1.491384E-02  -6.541826E-02                  \r\n            40      5     -7.914025E-01   1.222912E-01  -1.952992E-02   0.0           -2.566624E-02  -7.649974E-02                  \r\n            45      5     -8.369089E-01   8.328763E-02  -1.496641E-02   0.0            3.466010E-02  -8.111328E-02                  \r\n            50      5      0.0            0.0            0.0            0.0            3.828112E-01  -1.263768E-02                  \r\n           100      5      0.0            0.0            0.0            0.0           -3.828112E-01  -1.263768E-02                  \r\n             5      6     -8.350282E-01   7.923639E-02   1.429522E-02   0.0           -3.776878E-02  -9.745304E-02                  \r\n            10      6     -8.107681E-01   1.126405E-01   1.694013E-02   0.0            2.194637E-02  -9.468113E-02                  \r\n            15      6     -7.104898E-01   1.189940E-01   1.203857E-02   0.0            1.479233E-02  -8.266562E-02                  \r\n            20      6     -6.633447E-01   1.178531E-01   5.798481E-03   0.0            5.014711E-03  -7.701979E-02                  \r\n            25      6     -6.521218E-01   1.169279E-01  -1.589874E-15   0.0            4.479056E-15  -7.567946E-02                  \r\n            30      6     -6.633447E-01   1.178531E-01  -5.798481E-03   0.0           -5.014711E-03  -7.701979E-02                  \r\n            35      6     -7.104898E-01   1.189940E-01  -1.203857E-02   0.0           -1.479233E-02  -8.266562E-02                  \r\n            40      6     -8.107681E-01   1.126405E-01  -1.694013E-02   0.0           -2.194637E-02  -9.468113E-02                  \r\n            45      6     -8.350282E-01   7.923639E-02  -1.429522E-02   0.0            3.776878E-02  -9.745304E-02                  \r\n            50      6      0.0            0.0            0.0            0.0            3.794854E-01  -1.502219E-02                  \r\n           100      6      0.0            0.0            0.0            0.0           -3.794854E-01  -1.502219E-02                  \r\n             5      7     -7.708316E-01   6.817680E-02   1.152903E-02   0.0           -3.022086E-02  -1.051547E-01                  \r\n            10      7     -7.240698E-01   9.068445E-02   1.178754E-02   0.0            2.509840E-02  -9.905618E-02                  \r\n            15      7     -6.067640E-01   8.911392E-02   7.036417E-03   0.0            1.848063E-02  -8.285718E-02                  \r\n            20      7     -5.420821E-01   8.334614E-02   2.869090E-03   0.0            7.828345E-03  -7.393924E-02                  \r\n            25      7     -5.232557E-01   8.089539E-02  -1.195224E-15   0.0            4.123438E-15  -7.135262E-02                  \r\n            30      7     -5.420821E-01   8.334614E-02  -2.869090E-03   0.0           -7.828345E-03  -7.393924E-02                  \r\n            35      7     -6.067640E-01   8.911392E-02  -7.036417E-03   0.0           -1.848063E-02  -8.285718E-02                  \r\n            40      7     -7.240698E-01   9.068445E-02  -1.178754E-02   0.0           -2.509840E-02  -9.905618E-02                  \r\n            45      7     -7.708316E-01   6.817680E-02  -1.152903E-02   0.0            3.022086E-02  -1.051547E-01                  \r\n            50      7      0.0            0.0            0.0            0.0            3.626095E-01  -1.658444E-02                  \r\n           100      7      0.0            0.0            0.0            0.0           -3.626095E-01  -1.658444E-02                  \r\n             5      8     -6.783637E-01   5.592587E-02   8.325203E-03   0.0           -1.835339E-02  -1.058308E-01                  \r\n            10      8     -5.941957E-01   6.788449E-02   6.570717E-03   0.0            2.992040E-02  -9.312271E-02                  \r\n            15      8     -4.564036E-01   5.994575E-02   2.352050E-03   0.0            2.207983E-02  -7.148588E-02                  \r\n            20      8     -3.762371E-01   5.104911E-02   2.479903E-04   0.0            1.013029E-02  -5.890057E-02                  \r\n            25      8     -3.513096E-01   4.766582E-02  -9.016225E-16   0.0            4.406198E-15  -5.499457E-02                  \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            30      8     -3.762371E-01   5.104911E-02  -2.479903E-04   0.0           -1.013029E-02  -5.890057E-02                  \r\n            35      8     -4.564036E-01   5.994575E-02  -2.352050E-03   0.0           -2.207983E-02  -7.148588E-02                  \r\n            40      8     -5.941957E-01   6.788449E-02  -6.570717E-03   0.0           -2.992040E-02  -9.312271E-02                  \r\n            45      8     -6.783637E-01   5.592587E-02  -8.325203E-03   0.0            1.835339E-02  -1.058308E-01                  \r\n            50      8      0.0            0.0            0.0            0.0            3.392798E-01  -1.745022E-02                  \r\n           100      8      0.0            0.0            0.0            0.0           -3.392798E-01  -1.745022E-02                  \r\n             5      9     -5.846092E-01   4.527576E-02   5.745686E-03   0.0           -7.078635E-03  -1.025902E-01                  \r\n            10      9     -4.697757E-01   4.961263E-02   2.779952E-03   0.0            3.271192E-02  -8.293324E-02                  \r\n            15      9     -3.235339E-01   3.855956E-02  -7.113160E-04   0.0            2.313119E-02  -5.713712E-02                  \r\n            20      9     -2.391887E-01   2.891780E-02  -1.330918E-03   0.0            1.070232E-02  -4.224697E-02                  \r\n            25      9     -2.127255E-01   2.546318E-02  -2.102268E-16   0.0            7.095019E-16  -3.757953E-02                  \r\n            30      9     -2.391887E-01   2.891780E-02   1.330918E-03   0.0           -1.070232E-02  -4.224697E-02                  \r\n            35      9     -3.235339E-01   3.855956E-02   7.113160E-04   0.0           -2.313119E-02  -5.713712E-02                  \r\n            40      9     -4.697757E-01   4.961263E-02  -2.779952E-03   0.0           -3.271192E-02  -8.293324E-02                  \r\n            45      9     -5.846092E-01   4.527576E-02  -5.745686E-03   0.0            7.078635E-03  -1.025902E-01                  \r\n            50      9      0.0            0.0            0.0            0.0            3.151578E-01  -1.787481E-02                  \r\n           100      9      0.0            0.0            0.0            0.0           -3.151578E-01  -1.787481E-02                  \r\n             5     10     -4.995883E-01   3.660928E-02   3.932967E-03   0.0            2.019514E-03  -9.735009E-02                  \r\n            10     10     -3.662125E-01   3.612787E-02   4.825634E-04   0.0            3.291020E-02  -7.187898E-02                  \r\n            15     10     -2.244894E-01   2.452488E-02  -2.222282E-03   0.0            2.175411E-02  -4.411321E-02                  \r\n            20     10     -1.461309E-01   1.578673E-02  -1.960435E-03   0.0            9.799447E-03  -2.873741E-02                  \r\n            25     10     -1.219730E-01   1.281759E-02  -5.128276E-17   0.0            3.295975E-17  -2.399868E-02                  \r\n            30     10     -1.461309E-01   1.578673E-02   1.960435E-03   0.0           -9.799447E-03  -2.873741E-02                  \r\n            35     10     -2.244894E-01   2.452488E-02   2.222282E-03   0.0           -2.175411E-02  -4.411321E-02                  \r\n            40     10     -3.662125E-01   3.612787E-02  -4.825634E-04   0.0           -3.291020E-02  -7.187898E-02                  \r\n            45     10     -4.995883E-01   3.660928E-02  -3.932967E-03   0.0           -2.019514E-03  -9.735009E-02                  \r\n            50     10      0.0            0.0            0.0            0.0            2.924661E-01  -1.802015E-02                  \r\n           100     10      0.0            0.0            0.0            0.0           -2.924661E-01  -1.802015E-02                  \r\n             5     11     -4.254043E-01   2.964958E-02   2.700037E-03   0.0            8.875675E-03  -9.109813E-02                  \r\n            10     11     -2.838721E-01   2.634332E-02  -7.518489E-04   0.0            3.124485E-02  -6.130319E-02                  \r\n            15     11     -1.549072E-01   1.561006E-02  -2.707582E-03   0.0            1.899985E-02  -3.351444E-02                  \r\n            20     11     -8.796706E-02   8.473241E-03  -1.998386E-03   0.0            8.157096E-03  -1.905880E-02                  \r\n            25     11     -6.801096E-02   6.183995E-03   9.334981E-17   0.0           -3.027092E-16  -1.474893E-02                  \r\n            30     11     -8.796706E-02   8.473241E-03   1.998386E-03   0.0           -8.157096E-03  -1.905880E-02                  \r\n            35     11     -1.549072E-01   1.561006E-02   2.707582E-03   0.0           -1.899985E-02  -3.351444E-02                  \r\n            40     11     -2.838721E-01   2.634332E-02   7.518489E-04   0.0           -3.124485E-02  -6.130319E-02                  \r\n            45     11     -4.254043E-01   2.964958E-02  -2.700037E-03   0.0           -8.875675E-03  -9.109813E-02                  \r\n            50     11      0.0            0.0            0.0            0.0            2.718119E-01  -1.797635E-02                  \r\n           100     11      0.0            0.0            0.0            0.0           -2.718119E-01  -1.797635E-02                  \r\n             5     12     -3.617761E-01   2.407600E-02   1.852453E-03   0.0            1.381077E-02  -8.441760E-02                  \r\n            10     12     -2.194866E-01   1.924324E-02  -1.336011E-03   0.0            2.854415E-02  -5.170644E-02                  \r\n            15     12     -1.068965E-01   9.966643E-03  -2.640460E-03   0.0            1.579830E-02  -2.524449E-02                  \r\n            20     12     -5.281071E-02   4.506767E-03  -1.753228E-03   0.0            6.368489E-03  -1.249752E-02                  \r\n            25     12     -3.740108E-02   2.867601E-03  -8.733248E-17   0.0            2.281161E-16  -8.864053E-03                  \r\n            30     12     -5.281071E-02   4.506767E-03   1.753228E-03   0.0           -6.368489E-03  -1.249752E-02                  \r\n            35     12     -1.068965E-01   9.966643E-03   2.640460E-03   0.0           -1.579830E-02  -2.524449E-02                  \r\n            40     12     -2.194866E-01   1.924324E-02   1.336011E-03   0.0           -2.854415E-02  -5.170644E-02                  \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            45     12     -3.617761E-01   2.407600E-02  -1.852453E-03   0.0           -1.381077E-02  -8.441760E-02                  \r\n            50     12      0.0            0.0            0.0            0.0            2.532832E-01  -1.780255E-02                  \r\n           100     12      0.0            0.0            0.0            0.0           -2.532832E-01  -1.780255E-02                  \r\n             5     13     -3.077220E-01   1.961650E-02   1.256297E-03   0.0            1.719068E-02  -7.768603E-02                  \r\n            10     13     -1.695399E-01   1.408008E-02  -1.551156E-03   0.0            2.540998E-02  -4.325966E-02                  \r\n            15     13     -7.389521E-02   6.377668E-03  -2.328828E-03   0.0            1.271238E-02  -1.891228E-02                  \r\n            20     13     -3.179632E-02   2.378674E-03  -1.417270E-03   0.0            4.758106E-03  -8.159886E-03                  \r\n            25     13     -2.044057E-02   1.266764E-03   1.718460E-17   0.0            1.279359E-17  -5.257055E-03                  \r\n            30     13     -3.179632E-02   2.378674E-03   1.417270E-03   0.0           -4.758106E-03  -8.159886E-03                  \r\n            35     13     -7.389521E-02   6.377668E-03   2.328828E-03   0.0           -1.271238E-02  -1.891228E-02                  \r\n            40     13     -1.695399E-01   1.408008E-02   1.551156E-03   0.0           -2.540998E-02  -4.325966E-02                  \r\n            45     13     -3.077220E-01   1.961650E-02  -1.256297E-03   0.0           -1.719068E-02  -7.768603E-02                  \r\n            50     13      0.0            0.0            0.0            0.0            2.367824E-01  -1.754095E-02                  \r\n           100     13      0.0            0.0            0.0            0.0           -2.367824E-01  -1.754095E-02                  \r\n             5     14     -2.620454E-01   1.604596E-02   8.281480E-04   0.0            1.934786E-02  -7.114168E-02                  \r\n            10     14     -1.309701E-01   1.031892E-02  -1.567084E-03   0.0            2.221631E-02  -3.597721E-02                  \r\n            15     14     -5.119544E-02   4.083515E-03  -1.943715E-03   0.0            1.000459E-02  -1.411383E-02                  \r\n            20     14     -1.924492E-02   1.242475E-03  -1.089019E-03   0.0            3.447118E-03  -5.323359E-03                  \r\n            25     14     -1.114932E-02   5.195738E-04  -1.317306E-17   0.0            4.336809E-17  -3.093233E-03                  \r\n            30     14     -1.924492E-02   1.242475E-03   1.089019E-03   0.0           -3.447118E-03  -5.323359E-03                  \r\n            35     14     -5.119544E-02   4.083515E-03   1.943715E-03   0.0           -1.000459E-02  -1.411383E-02                  \r\n            40     14     -1.309701E-01   1.031892E-02   1.567084E-03   0.0           -2.221631E-02  -3.597721E-02                  \r\n            45     14     -2.620454E-01   1.604596E-02  -8.281480E-04   0.0           -1.934786E-02  -7.114168E-02                  \r\n            50     14      0.0            0.0            0.0            0.0            2.221310E-01  -1.722130E-02                  \r\n           100     14      0.0            0.0            0.0            0.0           -2.221310E-01  -1.722130E-02                  \r\n             5     15     -2.235372E-01   1.318034E-02   5.162609E-04   0.0            2.056481E-02  -6.492334E-02                  \r\n            10     15     -1.012589E-01   7.574738E-03  -1.481249E-03   0.0            1.917417E-02  -2.979007E-02                  \r\n            15     15     -3.555094E-02   2.611756E-03  -1.568969E-03   0.0            7.753859E-03  -1.050236E-02                  \r\n            20     15     -1.171862E-02   6.382932E-04  -8.089597E-04   0.0            2.443124E-03  -3.475692E-03                  \r\n            25     15     -6.083956E-03   1.849518E-04   1.002887E-17   0.0           -3.068292E-17  -1.811567E-03                  \r\n            30     15     -1.171862E-02   6.382932E-04   8.089597E-04   0.0           -2.443124E-03  -3.475692E-03                  \r\n            35     15     -3.555094E-02   2.611756E-03   1.568969E-03   0.0           -7.753859E-03  -1.050236E-02                  \r\n            40     15     -1.012589E-01   7.574738E-03   1.481249E-03   0.0           -1.917417E-02  -2.979007E-02                  \r\n            45     15     -2.235372E-01   1.318034E-02  -5.162609E-04   0.0           -2.056481E-02  -6.492334E-02                  \r\n            50     15      0.0            0.0            0.0            0.0            2.091212E-01  -1.686388E-02                  \r\n           100     15      0.0            0.0            0.0            0.0           -2.091212E-01  -1.686388E-02                  \r\n             5     16     -1.910795E-01   1.087187E-02   2.874261E-04   0.0            2.107297E-02  -5.910239E-02                  \r\n            10     16     -7.839178E-02   5.569051E-03  -1.348363E-03   0.0            1.639038E-02  -2.458825E-02                  \r\n            15     16     -2.474425E-02   1.665856E-03  -1.239510E-03   0.0            5.944951E-03  -7.797729E-03                  \r\n            20     16     -7.178878E-03   3.190267E-04  -5.868569E-04   0.0            1.704258E-03  -2.272741E-03                  \r\n            25     16     -3.325709E-03   4.409392E-05   2.209062E-18   0.0           -1.067939E-17  -1.058147E-03                  \r\n            30     16     -7.178878E-03   3.190267E-04   5.868569E-04   0.0           -1.704258E-03  -2.272741E-03                  \r\n            35     16     -2.474425E-02   1.665856E-03   1.239510E-03   0.0           -5.944951E-03  -7.797729E-03                  \r\n            40     16     -7.839178E-02   5.569051E-03   1.348363E-03   0.0           -1.639038E-02  -2.458825E-02                  \r\n            45     16     -1.910795E-01   1.087187E-02  -2.874261E-04   0.0           -2.107297E-02  -5.910239E-02                  \r\n            50     16      0.0            0.0            0.0            0.0            1.975463E-01  -1.648227E-02                  \r\n           100     16      0.0            0.0            0.0            0.0           -1.975463E-01  -1.648227E-02                  \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             5     17     -1.636908E-01   9.003812E-03   1.193584E-04   0.0            2.105716E-02  -5.370726E-02                  \r\n            10     17     -6.078759E-02   4.100231E-03  -1.198740E-03   0.0            1.390850E-02  -2.024734E-02                  \r\n            15     17     -1.726177E-02   1.057785E-03  -9.651373E-04   0.0            4.522748E-03  -5.779836E-03                  \r\n            20     17     -4.422826E-03   1.521746E-04  -4.184789E-04   0.0            1.175071E-03  -1.488675E-03                  \r\n            25     17     -1.822442E-03  -8.932097E-06   2.649519E-18   0.0           -8.700722E-18  -6.172227E-04                  \r\n            30     17     -4.422826E-03   1.521746E-04   4.184789E-04   0.0           -1.175071E-03  -1.488675E-03                  \r\n            35     17     -1.726177E-02   1.057785E-03   9.651373E-04   0.0           -4.522748E-03  -5.779836E-03                  \r\n            40     17     -6.078759E-02   4.100231E-03   1.198740E-03   0.0           -1.390850E-02  -2.024734E-02                  \r\n            45     17     -1.636908E-01   9.003812E-03  -1.193584E-04   0.0           -2.105716E-02  -5.370726E-02                  \r\n            50     17      0.0            0.0            0.0            0.0            1.872158E-01  -1.608553E-02                  \r\n           100     17      0.0            0.0            0.0            0.0           -1.872158E-01  -1.608553E-02                  \r\n             5     18     -1.405349E-01   7.484792E-03  -3.512256E-06   0.0            2.066229E-02  -4.874032E-02                  \r\n            10     18     -4.722084E-02   3.022328E-03  -1.048865E-03   0.0            1.173519E-02  -1.664406E-02                  \r\n            15     18     -1.206872E-02   6.673530E-04  -7.439200E-04   0.0            3.421140E-03  -4.278642E-03                  \r\n            20     18     -2.738986E-03   6.660681E-05  -2.946073E-04   0.0            8.032274E-04  -9.767350E-04                  \r\n            25     18     -1.001494E-03  -2.417023E-05   2.236167E-19   0.0           -2.032879E-18  -3.598296E-04                  \r\n            30     18     -2.738986E-03   6.660681E-05   2.946073E-04   0.0           -8.032274E-04  -9.767350E-04                  \r\n            35     18     -1.206872E-02   6.673530E-04   7.439200E-04   0.0           -3.421140E-03  -4.278642E-03                  \r\n            40     18     -4.722084E-02   3.022328E-03   1.048865E-03   0.0           -1.173519E-02  -1.664406E-02                  \r\n            45     18     -1.405349E-01   7.484792E-03   3.512256E-06   0.0           -2.066229E-02  -4.874032E-02                  \r\n            50     18      0.0            0.0            0.0            0.0            1.779618E-01  -1.567976E-02                  \r\n           100     18      0.0            0.0            0.0            0.0           -1.779618E-01  -1.567976E-02                  \r\n             5     19     -1.209118E-01   6.243576E-03  -9.241024E-05   0.0            2.000046E-02  -4.418882E-02                  \r\n            10     19     -3.674946E-02   2.229672E-03  -9.073571E-04   0.0            9.856595E-03  -1.366446E-02                  \r\n            15     19     -8.456136E-03   4.173083E-04  -5.692229E-04   0.0            2.576734E-03  -3.164292E-03                  \r\n            20     19     -1.704113E-03   2.408993E-05  -2.053787E-04   0.0            5.455060E-04  -6.418306E-04                  \r\n            25     19     -5.519878E-04  -2.455087E-05  -1.131636E-18   0.0            3.943785E-18  -2.097680E-04                  \r\n            30     19     -1.704113E-03   2.408993E-05   2.053787E-04   0.0           -5.455060E-04  -6.418306E-04                  \r\n            35     19     -8.456136E-03   4.173083E-04   5.692229E-04   0.0           -2.576734E-03  -3.164292E-03                  \r\n            40     19     -3.674946E-02   2.229672E-03   9.073571E-04   0.0           -9.856595E-03  -1.366446E-02                  \r\n            45     19     -1.209118E-01   6.243576E-03   9.241024E-05   0.0           -2.000046E-02  -4.418882E-02                  \r\n            50     19      0.0            0.0            0.0            0.0            1.696391E-01  -1.526912E-02                  \r\n           100     19      0.0            0.0            0.0            0.0           -1.696391E-01  -1.526912E-02                  \r\n             5     20     -1.042404E-01   5.224598E-03  -1.556100E-04   0.0            1.915754E-02  -4.003173E-02                  \r\n            10     20     -2.865249E-02   1.645662E-03  -7.783295E-04   0.0            8.248383E-03  -1.120737E-02                  \r\n            15     20     -5.937218E-03   2.578173E-04  -4.331797E-04   0.0            1.934342E-03  -2.338477E-03                  \r\n            20     20     -1.064654E-03   4.083483E-06  -1.420841E-04   0.0            3.686680E-04  -4.223336E-04                  \r\n            25     20     -3.051434E-04  -2.012450E-05   3.371191E-19   0.0           -6.166400E-19  -1.223255E-04                  \r\n            30     20     -1.064654E-03   4.083483E-06   1.420841E-04   0.0           -3.686680E-04  -4.223336E-04                  \r\n            35     20     -5.937218E-03   2.578173E-04   4.331797E-04   0.0           -1.934342E-03  -2.338477E-03                  \r\n            40     20     -2.865249E-02   1.645662E-03   7.783295E-04   0.0           -8.248383E-03  -1.120737E-02                  \r\n            45     20     -1.042404E-01   5.224598E-03   1.556100E-04   0.0           -1.915754E-02  -4.003173E-02                  \r\n            50     20      0.0            0.0            0.0            0.0            1.621242E-01  -1.485651E-02                  \r\n           100     20      0.0            0.0            0.0            0.0           -1.621242E-01  -1.485651E-02                  \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n        1        0                       9.071273E-01      2.721384E-01      0.0               1.808777E-01      0.0                \r\n        1        1                       9.084988E-01      2.731012E-01      2.317262E-02      1.804571E-01     -2.421218E-02       \r\n        1        2                       9.125664E-01      2.760531E-01      4.803424E-02      1.792045E-01     -5.075264E-02       \r\n        1        3                       9.190149E-01      2.811075E-01      7.593663E-02      1.771903E-01     -8.146164E-02       \r\n        1        4                       9.265556E-01      2.881004E-01      1.070604E-01      1.747727E-01     -1.165138E-01       \r\n        1        5                       9.318886E-01      2.959521E-01      1.387170E-01      1.729665E-01     -1.520579E-01       \r\n        1        6                       9.310224E-01      3.027056E-01      1.651555E-01      1.734104E-01     -1.800231E-01       \r\n        1        7                       9.238057E-01      3.073471E-01      1.826149E-01      1.771374E-01     -1.952508E-01       \r\n        1        8                       9.136355E-01      3.105246E-01      1.924800E-01      1.838961E-01     -1.998232E-01       \r\n        1        9                       9.029766E-01      3.130297E-01      1.975738E-01      1.929932E-01     -1.977893E-01       \r\n        1       10                       8.924997E-01      3.151410E-01      1.996851E-01      2.038078E-01     -1.917107E-01       \r\n        1       11                       8.822167E-01      3.169009E-01      1.998052E-01      2.158339E-01     -1.830092E-01       \r\n        1       12                       8.720658E-01      3.183288E-01      1.985817E-01      2.286515E-01     -1.726096E-01       \r\n        1       13                       8.620284E-01      3.194592E-01      1.964752E-01      2.419341E-01     -1.611642E-01       \r\n        1       14                       8.521100E-01      3.203344E-01      1.938090E-01      2.554410E-01     -1.491282E-01       \r\n        1       15                       8.423238E-01      3.209918E-01      1.908024E-01      2.690051E-01     -1.368080E-01       \r\n        1       16                       8.326806E-01      3.214617E-01      1.876002E-01      2.825096E-01     -1.244055E-01       \r\n        1       17                       8.231866E-01      3.217669E-01      1.842983E-01      2.958736E-01     -1.120529E-01       \r\n        1       18                       8.138462E-01      3.219258E-01      1.809590E-01      3.090404E-01     -9.983709E-02       \r\n        1       19                       8.046588E-01      3.219519E-01      1.776242E-01      3.219707E-01     -8.781514E-02       \r\n        1       20                       7.956250E-01      3.218566E-01      1.743215E-01      3.346379E-01     -7.602471E-02       \r\n        1                0.0000          1.845033E+01      6.440178E+00      0.0               4.751611E+00      0.0                \r\n        1               90.0000          8.456448E-01      2.962504E-01     -8.654614E-02      2.644415E-01      3.706797E-02       \r\n        1              180.0000          8.491355E-01      2.969619E-01     -7.313687E-09      2.608877E-01     -1.570370E-07       \r\n        6        0                       2.174275E-01      6.522825E-02      0.0               9.202290E-02      0.0                \r\n        6        1                       2.193124E-01      6.741084E-02     -4.021686E-03      9.167290E-02      4.006684E-03       \r\n        6        2                       2.248192E-01      7.453474E-02     -5.991027E-03      9.058094E-02      8.409590E-03       \r\n        6        3                       2.333187E-01      8.811504E-02     -4.099965E-03      8.866501E-02      1.364410E-02       \r\n        6        4                       2.429558E-01      1.095536E-01      2.371728E-03      8.587837E-02      2.013028E-02       \r\n        6        5                       2.495200E-01      1.373235E-01      1.108077E-02      8.236504E-02      2.794671E-02       \r\n        6        6                       2.476348E-01      1.645642E-01      1.613718E-02      7.860374E-02      3.632665E-02       \r\n        6        7                       2.358413E-01      1.840732E-01      1.376793E-02      7.513046E-02      4.398119E-02       \r\n        6        8                       2.174038E-01      1.947746E-01      6.075740E-03      7.212830E-02      5.014372E-02       \r\n        6        9                       1.958688E-01      1.989802E-01     -3.368914E-03      6.949425E-02      5.468297E-02       \r\n        6       10                       1.734016E-01      1.986504E-01     -1.257360E-02      6.704903E-02      5.770111E-02       \r\n        6       11                       1.513120E-01      1.950350E-01     -2.076909E-02      6.463718E-02      5.937970E-02       \r\n        6       12                       1.304335E-01      1.890653E-01     -2.770174E-02      6.215286E-02      5.994129E-02       \r\n        6       13                       1.112503E-01      1.814961E-01     -3.332743E-02      5.954027E-02      5.961084E-02       \r\n        6       14                       9.398319E-02      1.729202E-01     -3.770334E-02      5.679417E-02      5.859423E-02       \r\n        6       15                       7.867259E-02      1.637821E-01     -4.093978E-02      5.393505E-02      5.706227E-02       \r\n        6       16                       6.524979E-02      1.544022E-01     -4.317120E-02      5.099916E-02      5.515486E-02       \r\n        6       17                       5.358577E-02      1.450073E-01     -4.453814E-02      4.802513E-02      5.298269E-02       \r\n        6       18                       4.352294E-02      1.357555E-01     -4.517621E-02      4.505444E-02      5.063307E-02       \r\n        6       19                       3.489655E-02      1.267552E-01     -4.521035E-02      4.211974E-02      4.817510E-02       \r\n        6       20                       2.754398E-02      1.180795E-01     -4.475245E-02      3.925037E-02      4.566264E-02       \r\n        6                0.0000          3.247954E+00      3.065507E+00      0.0               1.416099E+00      0.0                \r\n        6               90.0000          1.176525E-01      8.467839E-02      2.307583E-02      6.434962E-02     -2.301238E-02       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n        6              180.0000          1.207978E-01      8.955002E-02      8.741171E-08      6.492925E-02     -1.353741E-08       \r\n       11        0                      -4.455906E-02     -1.336774E-02      0.0               1.630640E-02      0.0                \r\n       11        1                      -4.204887E-02     -1.190503E-02     -7.074006E-03      1.662683E-02     -8.984730E-04       \r\n       11        2                      -3.446770E-02     -6.453559E-03     -1.299156E-02      1.749516E-02     -1.360551E-03       \r\n       11        3                      -2.183133E-02      5.933970E-03     -1.654045E-02      1.864338E-02     -8.028150E-04       \r\n       11        4                      -4.969776E-03      2.863924E-02     -1.692307E-02      1.969337E-02      1.505673E-03       \r\n       11        5                       1.289251E-02      6.087524E-02     -1.536557E-02      2.030945E-02      5.936027E-03       \r\n       11        6                       2.594665E-02      9.270798E-02     -1.587972E-02      2.039909E-02      1.151037E-02       \r\n       11        7                       3.058806E-02      1.124496E-01     -2.087370E-02      2.001762E-02      1.628244E-02       \r\n       11        8                       2.850944E-02      1.186364E-01     -2.798671E-02      1.917839E-02      1.924169E-02       \r\n       11        9                       2.308977E-02      1.161444E-01     -3.400183E-02      1.789570E-02      2.053583E-02       \r\n       11       10                       1.667348E-02      1.090980E-01     -3.760266E-02      1.628304E-02      2.060103E-02       \r\n       11       11                       1.053397E-02      9.981355E-02     -3.886303E-02      1.449680E-02      1.982003E-02       \r\n       11       12                       5.285218E-03      8.961345E-02     -3.833091E-02      1.266718E-02      1.850039E-02       \r\n       11       13                       1.140714E-03      7.932030E-02     -3.658426E-02      1.089239E-02      1.688337E-02       \r\n       11       14                      -1.918286E-03      6.944638E-02     -3.409472E-02      9.236813E-03      1.514655E-02       \r\n       11       15                      -4.026771E-03      6.028702E-02     -3.121104E-02      7.734060E-03      1.341122E-02       \r\n       11       16                      -5.360521E-03      5.198623E-02     -2.817813E-02      6.401420E-03      1.175421E-02       \r\n       11       17                      -6.094858E-03      4.458847E-02     -2.516130E-02      5.241394E-03      1.021910E-02       \r\n       11       18                      -6.385446E-03      3.807651E-02     -2.226730E-02      4.247189E-03      8.826837E-03       \r\n       11       19                      -6.360620E-03      3.239767E-02     -1.956081E-02      3.406942E-03      7.583842E-03       \r\n       11       20                      -6.122295E-03      2.748124E-02     -1.707678E-02      2.705276E-03      6.487072E-03       \r\n       11                0.0000         -2.948573E-02      1.205769E+00      0.0               2.798779E-01      0.0                \r\n       11               90.0000         -2.706571E-02      1.134258E-04      8.862025E-03      9.290744E-03     -3.618847E-03       \r\n       11              180.0000         -2.525088E-02      5.958887E-03     -1.002244E-09      9.348750E-03      6.719461E-09       \r\n       16        0                      -6.225514E-02     -1.867656E-02      0.0              -6.983310E-03      0.0                \r\n       16        1                      -6.097022E-02     -1.823527E-02     -2.943521E-03     -6.536126E-03     -1.054344E-03       \r\n       16        2                      -5.673656E-02     -1.557159E-02     -5.590694E-03     -5.260468E-03     -1.876198E-03       \r\n       16        3                      -4.855633E-02     -6.843999E-03     -7.451825E-03     -3.357887E-03     -1.980931E-03       \r\n       16        4                      -3.559771E-02      1.276074E-02     -8.028701E-03     -1.166344E-03     -5.509853E-04       \r\n       16        5                      -1.941526E-02      4.324083E-02     -7.915229E-03      9.365082E-04      2.954602E-03       \r\n       16        6                      -5.592078E-03      7.277322E-02     -9.506822E-03      2.664566E-03      7.431030E-03       \r\n       16        7                       1.089469E-03      8.697607E-02     -1.401490E-02      3.812790E-03      1.058865E-02       \r\n       16        8                       1.772493E-03      8.521000E-02     -1.926059E-02      4.257202E-03      1.154387E-02       \r\n       16        9                      -7.390976E-06      7.526027E-02     -2.274129E-02      4.046440E-03      1.096863E-02       \r\n       16       10                      -2.039194E-03      6.312601E-02     -2.373163E-02      3.407478E-03      9.691179E-03       \r\n       16       11                      -3.526941E-03      5.151400E-02     -2.271922E-02      2.598047E-03      8.207738E-03       \r\n       16       12                      -4.346989E-03      4.134335E-02     -2.050427E-02      1.804829E-03      6.760627E-03       \r\n       16       13                      -4.612014E-03      3.280137E-02     -1.776528E-02      1.128316E-03      5.458057E-03       \r\n       16       14                      -4.488487E-03      2.579966E-02     -1.495488E-02      6.026030E-04      4.339367E-03       \r\n       16       15                      -4.128817E-03      2.015376E-02     -1.232940E-02      2.224445E-04      3.408626E-03       \r\n       16       16                      -3.650323E-03      1.565570E-02     -1.000902E-02     -3.403425E-05      2.651870E-03       \r\n       16       17                      -3.134208E-03      1.210545E-02     -8.030545E-03     -1.938045E-04      2.047233E-03       \r\n       16       18                      -2.631681E-03      9.324059E-03     -6.384629E-03     -2.823174E-04      1.570553E-03       \r\n       16       19                      -2.171409E-03      7.158139E-03     -5.039388E-03     -3.209412E-04      1.198679E-03       \r\n       16       20                      -1.766786E-03      5.479849E-03     -3.954296E-03     -3.265738E-04      9.109806E-04       \r\n       16                0.0000         -3.227656E-01      6.013551E-01      0.0               1.019418E-03      0.0                \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n       16               90.0000         -3.435645E-02     -1.367833E-02      2.158837E-03     -3.580096E-03     -1.048574E-03       \r\n       16              180.0000         -3.189934E-02     -6.906177E-03     -1.085947E-08     -3.652155E-03      9.795545E-09       \r\n       21        0                      -2.883520E-02     -8.650560E-03      0.0              -5.781174E-03      0.0                \r\n       21        1                      -2.883300E-02     -8.791633E-03     -5.350758E-04     -5.553991E-03     -3.465498E-04       \r\n       21        2                      -2.824527E-02     -7.790832E-03     -1.093459E-03     -4.893780E-03     -6.326549E-04       \r\n       21        3                      -2.541539E-02     -1.469405E-03     -1.563117E-03     -3.874302E-03     -4.925877E-04       \r\n       21        4                      -1.835778E-02      1.564927E-02     -1.743659E-03     -2.643585E-03      8.804798E-04       \r\n       21        5                      -7.373683E-03      4.395555E-02     -1.871824E-03     -1.394272E-03      4.083276E-03       \r\n       21        6                       2.380535E-03      7.054955E-02     -3.009379E-03     -2.880096E-04      7.928371E-03       \r\n       21        7                       5.823240E-03      7.970589E-02     -5.588800E-03      5.178452E-04      9.981513E-03       \r\n       21        8                       4.207671E-03      7.181197E-02     -8.349150E-03      9.117126E-04      9.576797E-03       \r\n       21        9                       1.328655E-03      5.683737E-02     -9.972155E-03      9.188652E-04      7.829309E-03       \r\n       21       10                      -8.013062E-04      4.195441E-02     -1.016760E-02      6.771088E-04      5.840689E-03       \r\n       21       11                      -1.863737E-03      2.983691E-02     -9.314485E-03      3.511906E-04      4.132092E-03       \r\n       21       12                      -2.155188E-03      2.079872E-02     -7.927872E-03      5.483627E-05      2.832323E-03       \r\n       21       13                      -2.024822E-03      1.434269E-02     -6.407034E-03     -1.621842E-04      1.904011E-03       \r\n       21       14                      -1.717281E-03      9.833449E-03     -4.988074E-03     -2.910495E-04      1.264125E-03       \r\n       21       15                      -1.371160E-03      6.721086E-03     -3.777970E-03     -3.471673E-04      8.322671E-04       \r\n       21       16                      -1.052654E-03      4.586243E-03     -2.802946E-03     -3.521144E-04      5.446039E-04       \r\n       21       17                      -7.864214E-04      3.126659E-03     -2.047056E-03     -3.260076E-04      3.546551E-04       \r\n       21       18                      -5.760142E-04      2.130409E-03     -1.476898E-03     -2.843663E-04      2.299864E-04       \r\n       21       19                      -4.156432E-04      1.450997E-03     -1.055415E-03     -2.377294E-04      1.485599E-04       \r\n       21       20                      -2.964608E-04      9.878844E-04     -7.485328E-04     -1.925174E-04      9.559095E-05       \r\n       21                0.0000         -1.363809E-01      4.475766E-01      0.0              -2.319069E-02      0.0                \r\n       21               90.0000         -1.753027E-02     -1.149350E-02      4.666305E-04     -2.922746E-03     -7.771379E-04       \r\n       21              180.0000         -1.451698E-02     -3.855605E-03     -4.955657E-09     -2.975186E-03      1.229171E-08       \r\n       26        0                      -1.595008E-02     -4.785024E-03      0.0               6.781816E-04      0.0                \r\n       26        1                      -1.634900E-02     -5.069200E-03      2.866425E-05      6.469488E-04     -8.988194E-05       \r\n       26        2                      -1.691572E-02     -4.488793E-03      6.564241E-05      5.548000E-04     -1.690872E-04       \r\n       26        3                      -1.582326E-02      1.193346E-03      1.029745E-04      4.057884E-04      8.995831E-05       \r\n       26        4                      -1.076375E-02      1.760245E-02      1.203567E-04      2.145767E-04      1.483023E-03       \r\n       26        5                      -1.665305E-03      4.521585E-02      1.430809E-04      1.525879E-05      4.615426E-03       \r\n       26        6                       6.473951E-03      7.082117E-02      2.849698E-04     -1.239777E-04      8.271575E-03       \r\n       26        7                       8.547606E-03      7.834256E-02      5.860627E-04     -1.516342E-04      9.983659E-03       \r\n       26        8                       5.902356E-03      6.854293E-02      8.975565E-04     -7.820129E-05      9.167254E-03       \r\n       26        9                       2.426979E-03      5.208583E-02      1.070753E-03      3.528595E-05      7.080913E-03       \r\n       26       10                       5.678274E-05      3.648443E-02      1.077965E-03      1.428127E-04      4.907489E-03       \r\n       26       11                      -1.054971E-03      2.435862E-02      9.679124E-04      2.169609E-04      3.166229E-03       \r\n       26       12                      -1.342183E-03      1.579269E-02      8.027293E-04      2.530813E-04      1.941040E-03       \r\n       26       13                      -1.225941E-03      1.005095E-02      6.288104E-04      2.569556E-04      1.143336E-03       \r\n       26       14                      -9.710653E-04      6.320223E-03      4.721815E-04      2.391040E-04      6.505400E-04       \r\n       26       15                      -7.092968E-04      3.942695E-03      3.433311E-04      2.091825E-04      3.578402E-04       \r\n       26       16                      -4.915470E-04      2.446324E-03      2.434403E-04      1.748353E-04      1.896657E-04       \r\n       26       17                      -3.283007E-04      1.512267E-03      1.691743E-04      1.410060E-04      9.598397E-05       \r\n       26       18                      -2.133578E-04      9.324473E-04      1.156493E-04      1.105461E-04      4.547229E-05       \r\n       26       19                      -1.357631E-04      5.738909E-04      7.798598E-05      8.466840E-05      1.927326E-05       \r\n       26       20                      -8.494901E-05      3.527506E-04      5.198340E-05      6.359722E-05      6.369082E-06       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n       26                0.0000         -6.061681E-02      4.222284E-01      0.0               4.089777E-03      0.0                \r\n       26               90.0000         -1.116074E-02     -1.011738E-02     -3.778302E-05      3.827856E-04     -7.711764E-04       \r\n       26              180.0000         -7.982310E-03     -2.185213E-03      5.433367E-10      3.689351E-04      1.305099E-08       \r\n       31        0                      -3.486022E-02     -1.045807E-02      0.0               6.788373E-03      0.0                \r\n       31        1                      -3.466041E-02     -1.052260E-02      8.161333E-04      6.498024E-03     -4.686052E-04       \r\n       31        2                      -3.350635E-02     -9.299386E-03      1.631652E-03      5.653858E-03     -8.515939E-04       \r\n       31        3                      -2.983131E-02     -2.645824E-03      2.287939E-03      4.349232E-03     -7.646084E-04       \r\n       31        4                      -2.181404E-02      1.483269E-02      2.533212E-03      2.760887E-03      6.033778E-04       \r\n       31        5                      -9.941339E-03      4.347802E-02      2.663970E-03      1.146317E-03      3.843546E-03       \r\n       31        6                       5.567521E-04      7.054527E-02      3.988445E-03     -2.155304E-04      7.781744E-03       \r\n       31        7                       4.621282E-03      8.049001E-02      7.057160E-03     -1.082420E-03      1.000130E-02       \r\n       31        8                       3.468812E-03      7.352583E-02      1.037019E-02     -1.365662E-03      9.799242E-03       \r\n       31        9                       8.505210E-04      5.928721E-02      1.234330E-02     -1.175404E-03      8.221209E-03       \r\n       31       10                      -1.186229E-03      4.477670E-02      1.261473E-02     -7.290840E-04      6.328940E-03       \r\n       31       11                      -2.245102E-03      3.268718E-02      1.162241E-02     -2.317429E-04      4.642457E-03       \r\n       31       12                      -2.556700E-03      2.343766E-02      9.972297E-03      1.862049E-04      3.311083E-03       \r\n       31       13                      -2.434727E-03      1.664308E-02      8.139260E-03      4.752874E-04      2.321422E-03       \r\n       31       14                      -2.113298E-03      1.175376E-02      6.408861E-03      6.362200E-04      1.609564E-03       \r\n       31       15                      -1.733853E-03      8.273603E-03      4.915098E-03      6.943047E-04      1.107294E-03       \r\n       31       16                      -1.370120E-03      5.811299E-03      3.695858E-03      6.813705E-04      7.572472E-04       \r\n       31       17                      -1.054250E-03      4.075290E-03      2.737555E-03      6.255358E-04      5.153548E-04       \r\n       31       18                      -7.953211E-04      2.854140E-03      2.004180E-03      5.483851E-04      3.492460E-04       \r\n       31       19                      -5.909288E-04      1.996571E-03      1.453808E-03      4.647709E-04      2.357764E-04       \r\n       31       20                      -4.338156E-04      1.395146E-03      1.046806E-03      3.838055E-04      1.586070E-04       \r\n       31                0.0000         -1.716306E-01      4.629376E-01      0.0               2.709273E-02      0.0                \r\n       31               90.0000         -2.052164E-02     -1.208597E-02     -6.361841E-04      3.541132E-03     -7.892873E-04       \r\n       31              180.0000         -1.759041E-02     -4.587492E-03      6.258055E-09      3.564924E-03      1.191286E-08       \r\n       36        0                      -6.700876E-02     -2.010262E-02      0.0               5.230308E-03      0.0                \r\n       36        1                      -6.541926E-02     -1.948351E-02      3.728910E-03      4.759550E-03     -1.172348E-03       \r\n       36        2                      -6.033200E-02     -1.632300E-02      7.030161E-03      3.419876E-03     -2.067588E-03       \r\n       36        3                      -5.093929E-02     -6.906852E-03      9.292625E-03      1.433372E-03     -2.173811E-03       \r\n       36        4                      -3.672612E-02      1.335718E-02      9.951591E-03     -8.468628E-04     -6.786585E-04       \r\n       36        5                      -1.957577E-02      4.433903E-02      9.698659E-03     -3.011703E-03      2.936125E-03       \r\n       36        6                      -5.153015E-03      7.452305E-02      1.122743E-02     -4.751205E-03      7.587433E-03       \r\n       36        7                       1.903698E-03      8.994348E-02      1.595595E-02     -5.843163E-03      1.103389E-02       \r\n       36        8                       2.767831E-03      8.974579E-02      2.161008E-02     -6.164551E-03      1.235008E-02       \r\n       36        9                       9.232759E-04      8.115906E-02      2.550504E-02     -5.784988E-03      1.209933E-02       \r\n       36       10                      -1.381114E-03      6.985578E-02      2.680950E-02     -4.940987E-03      1.103640E-02       \r\n       36       11                      -3.240943E-03      5.851232E-02      2.597274E-02     -3.900051E-03      9.643555E-03       \r\n       36       12                      -4.430830E-03      4.816733E-02      2.379353E-02     -2.862930E-03      8.184314E-03       \r\n       36       13                      -5.001858E-03      3.916032E-02      2.096853E-02     -1.944304E-03      6.798506E-03       \r\n       36       14                      -5.097091E-03      3.153459E-02      1.797823E-02     -1.190782E-03      5.555436E-03       \r\n       36       15                      -4.870165E-03      2.520189E-02      1.510913E-02     -6.084442E-04      4.481718E-03       \r\n       36       16                      -4.451774E-03      2.001775E-02      1.250912E-02     -1.813173E-04      3.579110E-03       \r\n       36       17                      -3.940590E-03      1.582029E-02      1.023782E-02      1.159906E-04      2.835326E-03       \r\n       36       18                      -3.404548E-03      1.245099E-02      8.302953E-03      3.098845E-04      2.231576E-03       \r\n       36       19                      -2.886595E-03      9.764994E-03      6.684339E-03      4.250705E-04      1.747128E-03       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n       36       20                      -2.411161E-03      7.635650E-03      5.348629E-03      4.822016E-04      1.361962E-03       \r\n       36                0.0000         -3.406761E-01      6.683735E-01      0.0              -2.585503E-02      0.0                \r\n       36               90.0000         -3.689305E-02     -1.322038E-02     -2.875794E-03      2.810066E-03     -1.235535E-03       \r\n       36              180.0000         -3.458108E-02     -6.648534E-03      1.141980E-08      2.862304E-03      9.186866E-09       \r\n       41        0                      -2.002168E-02     -6.006479E-03      0.0              -2.667999E-02      0.0                \r\n       41        1                      -1.744604E-02     -4.332379E-03      7.591940E-03     -2.689362E-02     -4.728064E-04       \r\n       41        2                      -9.729564E-03      1.669571E-03      1.381838E-02     -2.745056E-02     -4.872978E-04       \r\n       41        3                       2.925456E-03      1.469223E-02      1.731086E-02     -2.810955E-02      5.375743E-04       \r\n       41        4                       1.938829E-02      3.774308E-02      1.724130E-02     -2.853394E-02      3.291309E-03       \r\n       41        5                       3.614223E-02      6.985441E-02      1.501721E-02     -2.846909E-02      8.093834E-03       \r\n       41        6                       4.740936E-02      1.015915E-01      1.501095E-02     -2.792358E-02      1.399863E-02       \r\n       41        7                       4.996631E-02      1.220083E-01      1.990420E-02     -2.706146E-02      1.916420E-02       \r\n       41        8                       4.575652E-02      1.295950E-01      2.736875E-02     -2.589607E-02      2.259254E-02       \r\n       41        9                       3.817335E-02      1.286526E-01      3.409368E-02     -2.438736E-02      2.434659E-02       \r\n       41       10                       2.956250E-02      1.228752E-01      3.862581E-02     -2.257061E-02      2.478421E-02       \r\n       41       11                       2.125743E-02      1.144186E-01      4.089206E-02     -2.054214E-02      2.425361E-02       \r\n       41       12                       1.395164E-02      1.046015E-01      4.131539E-02     -1.841450E-02      2.305907E-02       \r\n       41       13                       7.924661E-03      9.430642E-02      4.039016E-02     -1.627970E-02      2.145469E-02       \r\n       41       14                       3.198162E-03      8.412275E-02      3.854579E-02     -1.421094E-02      1.963770E-02       \r\n       41       15                      -3.457963E-04      7.442077E-02      3.612058E-02     -1.226139E-02      1.774931E-02       \r\n       41       16                      -2.883703E-03      6.541077E-02      3.336909E-02     -1.046491E-02      1.588547E-02       \r\n       41       17                      -4.604362E-03      5.719291E-02      3.047741E-02     -8.840203E-03      1.410648E-02       \r\n       41       18                      -5.683564E-03      4.979548E-02      2.757770E-02     -7.394433E-03      1.244760E-02       \r\n       41       19                      -6.273665E-03      4.320183E-02      2.476081E-02     -6.124735E-03      1.092657E-02       \r\n       41       20                      -6.501205E-03      3.736919E-02      2.208629E-02     -5.023539E-03      9.549573E-03       \r\n       41                0.0000          2.421663E-01      1.443183E+00      0.0              -4.135323E-01      0.0                \r\n       41               90.0000         -1.506707E-02      8.658437E-03     -1.141805E-02     -1.546280E-02     -5.102447E-03       \r\n       41              180.0000         -1.327281E-02      1.435192E-02     -7.718418E-09     -1.559383E-02      5.785056E-09       \r\n       46        0                       3.210647E-01      9.631940E-02      0.0              -1.130009E-01      0.0                \r\n       46        1                       3.226164E-01      9.846723E-02      5.823411E-04     -1.125069E-01      6.039858E-03       \r\n       46        2                       3.271245E-01      1.053777E-01     -9.778142E-04     -1.110039E-01      1.241839E-02       \r\n       46        3                       3.339568E-01      1.182584E-01     -6.520450E-03     -1.084614E-01      1.949924E-02       \r\n       46        4                       3.412386E-01      1.381275E-01     -1.667228E-02     -1.049137E-01      2.761567E-02       \r\n       46        5                       3.447446E-01      1.634140E-01     -2.881506E-02     -1.006985E-01      3.679001E-02       \r\n       46        6                       3.392503E-01      1.880817E-01     -3.667277E-02     -9.651947E-02      4.632533E-02       \r\n       46        7                       3.236912E-01      2.060642E-01     -3.620434E-02     -9.307098E-02      5.510652E-02       \r\n       46        8                       3.016250E-01      2.165584E-01     -2.944505E-02     -9.049416E-02      6.246805E-02       \r\n       46        9                       2.765925E-01      2.214886E-01     -2.000925E-02     -8.855534E-02      6.827021E-02       \r\n       46       10                       2.506241E-01      2.224134E-01     -1.000825E-02     -8.695412E-02      7.256901E-02       \r\n       46       11                       2.249182E-01      2.203165E-01     -3.827214E-04     -8.542442E-02      7.549977E-02       \r\n       46       12                       2.002625E-01      2.159527E-01      8.431882E-03     -8.379555E-02      7.724643E-02       \r\n       46       13                       1.771490E-01      2.099543E-01      1.622957E-02     -8.196163E-02      7.800269E-02       \r\n       46       14                       1.558378E-01      2.028317E-01      2.293700E-02     -7.987881E-02      7.795203E-02       \r\n       46       15                       1.364224E-01      1.949765E-01      2.856451E-02     -7.755327E-02      7.725108E-02       \r\n       46       16                       1.188898E-01      1.866795E-01      3.317207E-02     -7.500696E-02      7.603431E-02       \r\n       46       17                       1.031619E-01      1.781538E-01      3.684586E-02     -7.227945E-02      7.441056E-02       \r\n       46       18                       8.912538E-02      1.695551E-01      3.968273E-02     -6.940866E-02      7.247055E-02       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n             F O R C E S   I N   A X I S - S Y M M E T R I C   C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)\r\n \r\n  ELEMENT     HARMONIC    POINT           BEND-MOMENT       BEND-MOMENT      TWIST-MOMENT           SHEAR            SHEAR\r\n   ID.         NUMBER     ANGLE               V                 U                                     V                U\r\n       46       19                       7.665125E-02      1.609972E-01      4.178111E-02     -6.643796E-02      7.028902E-02       \r\n       46       20                       6.560507E-02      1.525634E-01      4.323551E-02     -6.340480E-02      6.792796E-02       \r\n       46                0.0000          4.830552E+00      3.666552E+00      0.0              -1.861331E+00      0.0                \r\n       46               90.0000          1.867235E-01      1.179412E-01     -2.240466E-02     -8.685108E-02     -3.413220E-02       \r\n       46              180.0000          1.907435E-01      1.223698E-01     -1.158306E-07     -8.743119E-02     -3.073490E-08       \r\n       50        0                       9.071276E-01      2.721382E-01      0.0              -1.808777E-01      0.0                \r\n       50        1                       9.084994E-01      2.731013E-01     -2.317266E-02     -1.804585E-01     -2.421219E-02       \r\n       50        2                       9.125665E-01      2.760533E-01     -4.803396E-02     -1.791921E-01     -5.075265E-02       \r\n       50        3                       9.190161E-01      2.811075E-01     -7.593659E-02     -1.771054E-01     -8.146163E-02       \r\n       50        4                       9.265559E-01      2.881005E-01     -1.070640E-01     -1.745000E-01     -1.165137E-01       \r\n       50        5                       9.318893E-01      2.959521E-01     -1.387316E-01     -1.723862E-01     -1.520578E-01       \r\n       50        6                       9.310226E-01      3.027056E-01     -1.651870E-01     -1.725173E-01     -1.800233E-01       \r\n       50        7                       9.238050E-01      3.073469E-01     -1.826634E-01     -1.760592E-01     -1.952508E-01       \r\n       50        8                       9.136358E-01      3.105244E-01     -1.925415E-01     -1.827598E-01     -1.998231E-01       \r\n       50        9                       9.029758E-01      3.130298E-01     -1.976459E-01     -1.918502E-01     -1.977893E-01       \r\n       50       10                       8.924991E-01      3.151408E-01     -1.997671E-01     -2.026639E-01     -1.917108E-01       \r\n       50       11                       8.822162E-01      3.169008E-01     -1.998972E-01     -2.146859E-01     -1.830093E-01       \r\n       50       12                       8.720655E-01      3.183285E-01     -1.986840E-01     -2.274952E-01     -1.726096E-01       \r\n       50       13                       8.620275E-01      3.194593E-01     -1.965878E-01     -2.407699E-01     -1.611644E-01       \r\n       50       14                       8.521097E-01      3.203344E-01     -1.939318E-01     -2.542703E-01     -1.491284E-01       \r\n       50       15                       8.423240E-01      3.209918E-01     -1.909351E-01     -2.678297E-01     -1.368081E-01       \r\n       50       16                       8.326805E-01      3.214615E-01     -1.877426E-01     -2.813315E-01     -1.244055E-01       \r\n       50       17                       8.231871E-01      3.217670E-01     -1.844500E-01     -2.946949E-01     -1.120529E-01       \r\n       50       18                       8.138458E-01      3.219258E-01     -1.811198E-01     -3.078632E-01     -9.983715E-02       \r\n       50       19                       8.046587E-01      3.219520E-01     -1.777937E-01     -3.207963E-01     -8.781511E-02       \r\n       50       20                       7.956247E-01      3.218564E-01     -1.744995E-01     -3.334675E-01     -7.602471E-02       \r\n       50                0.0000          1.845034E+01      6.440178E+00      0.0              -4.733575E+00      0.0                \r\n       50               90.0000          8.456460E-01      2.962495E-01      8.663784E-02     -2.639249E-01      3.706796E-02       \r\n       50              180.0000          8.491348E-01      2.969609E-01      7.525472E-09     -2.603023E-01     -1.570365E-07       \r\n1     NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                   \r\n DATE:  5/17/95\r\n END TIME: 14:37:26\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01061a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01061A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1,1                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                          \r\n                  3      LABEL    = TRAPEZOIDAL RING ELEMENTS                                            \r\n                  4      SPC = 16                                                                        \r\n                  5      TEMPERATURE(LOAD) = 16                                                          \r\n                  6          OUTPUT                                                                      \r\n                  7             SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26                             \r\n                  8             DISP  = 1                                                                \r\n                  9             ELSTRESS = ALL                                                           \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    50, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRAPRG 1       1       3       4       2       .0      12                      \r\n                    2-        CTRAPRG 2       3       5       6       4       .0      12                      \r\n                    3-        CTRAPRG 3       5       7       8       6       .0      12                      \r\n                    4-        CTRAPRG 4       7       9       10      8       .0      12                      \r\n                    5-        CTRAPRG 5       9       11      12      10      .0      12                      \r\n                    6-        CTRAPRG 6       11      13      14      12      .0      12                      \r\n                    7-        CTRAPRG 7       13      15      16      14      .0      12                      \r\n                    8-        CTRAPRG 8       15      17      18      16      .0      12                      \r\n                    9-        CTRAPRG 9       17      19      20      18      .0      12                      \r\n                   10-        CTRAPRG 10      19      21      22      20      .0      12                      \r\n                   11-        CTRAPRG 11      21      23      24      22      .0      12                      \r\n                   12-        CTRAPRG 12      23      25      26      24      .0      12                      \r\n                   13-        GRDSET                                                  2456                    \r\n                   14-        GRID    1               .0                                                      \r\n                   15-        GRID    2               .0              .01                                     \r\n                   16-        GRID    3               .005                                                    \r\n                   17-        GRID    4               .005            .01                                     \r\n                   18-        GRID    5               .01                                                     \r\n                   19-        GRID    6               .01             .01                                     \r\n                   20-        GRID    7               .015                                                    \r\n                   21-        GRID    8               .015            .01                                     \r\n                   22-        GRID    9               .02                                                     \r\n                   23-        GRID    10              .02             .01                                     \r\n                   24-        GRID    11              .03                                                     \r\n                   25-        GRID    12              .03             .01                                     \r\n                   26-        GRID    13              .04                                                     \r\n                   27-        GRID    14              .04             .01                                     \r\n                   28-        GRID    15              .05                                                     \r\n                   29-        GRID    16              .05             .01                                     \r\n                   30-        GRID    17              .06                                                     \r\n                   31-        GRID    18              .06             .01                                     \r\n                   32-        GRID    19              .07                                                     \r\n                   33-        GRID    20              .07             .01                                     \r\n                   34-        GRID    21              .08                                                     \r\n                   35-        GRID    22              .08             .01                                     \r\n                   36-        GRID    23              .09                                                     \r\n                   37-        GRID    24              .09             .01                                     \r\n                   38-        GRID    25              .10                                                     \r\n                   39-        GRID    26              .10             .01                                     \r\n                   40-        MAT1    12      1.0+7           .3      .2587-3 1.0-7   .0                      \r\n                   41-        SPC     16      1       13      .0      2       1       .0                      \r\n                   42-        TEMP    16      1       100.    2       100.    3       99.75                   \r\n                   43-        TEMP    16      4       99.75   5       99.0    6       99.0                    \r\n                   44-        TEMP    16      7       97.75   8       97.75   9       96.0                    \r\n                   45-        TEMP    16      10      96.0    11      91.0    12      91.0                    \r\n                   46-        TEMP    16      13      84.0    14      84.0    15      75.0                    \r\n                   47-        TEMP    16      16      75.0    17      64.0    18      64.0                    \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n\r\n      TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        TEMP    16      19      51.0    20      51.0    21      36.0                    \r\n                   49-        TEMP    16      22      36.0    23      19.0    24      19.0                    \r\n                   50-        TEMP    16      25      .0      26      .0                                      \r\n                              ENDDATA\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             87\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.346\r\n                                        RMS WAVEFRONT    3.425\r\n                                        RMS BANDWIDTH    3.425\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             87\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.346\r\n                                        RMS WAVEFRONT    3.425\r\n                                        RMS BANDWIDTH    3.425\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        4         4\r\n                                        PROFILE (P)                         87        87\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            4         4\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.346     3.346\r\n                                        RMS WAVEFRONT (C-RMS)            3.425     3.425\r\n                                        RMS BANDWITCH (B-RMS)            3.425     3.425\r\n                                        NUMBER OF GRID POINTS (N)                     26\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                12\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           5\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        61\r\n                                        MATRIX DENSITY, PERCENT                   21.893\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG   ELEMENTS (ELEMENT TYPE  37) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -9.8344422E-16\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.137375E-08   0.0            1.617766E-10   0.0            0.0            0.0                           \r\n             5      G      8.247069E-08   0.0            6.340573E-10   0.0            0.0            0.0                           \r\n             7      G      1.230682E-07   0.0            1.444846E-09   0.0            0.0            0.0                           \r\n             9      G      1.628908E-07   0.0            2.402843E-09   0.0            0.0            0.0                           \r\n            11      G      2.390447E-07   0.0            5.696864E-09   0.0            0.0            0.0                           \r\n            13      G      3.093366E-07   0.0            1.021249E-08   0.0            0.0            0.0                           \r\n            15      G      3.717856E-07   0.0            1.604569E-08   0.0            0.0            0.0                           \r\n            17      G      4.244503E-07   0.0            2.318027E-08   0.0            0.0            0.0                           \r\n            19      G      4.653845E-07   0.0            3.161578E-08   0.0            0.0            0.0                           \r\n            21      G      4.926447E-07   0.0            4.136025E-08   0.0            0.0            0.0                           \r\n            23      G      5.042713E-07   0.0            5.237228E-08   0.0            0.0            0.0                           \r\n            25      G      4.983839E-07   0.0            6.487542E-08   0.0            0.0            0.0                           \r\n            26      G      4.983834E-07   0.0            4.975312E-08   0.0            0.0            0.0                           \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                  S T R E S S E S   F O R   T H E   T R A P E Z O I D A L   R I N G S     ( C T R A P R G )\r\n     EL      STRESS               RADIAL                CIRCUMFERENTIAL                AXIAL                     SHEAR\r\n     ID       POINT                 (X)                     (THETA)                     (Z)                       (ZX)\r\n0       1       1              -2.474039E+01             -2.474039E+01             -2.192230E-01              1.244435E-01          \r\n                2              -2.430206E+01             -2.430206E+01             -2.976990E-02              1.244488E-01          \r\n                3              -2.430200E+01             -2.430200E+01             -2.973938E-02             -1.244354E-01          \r\n                4              -2.474033E+01             -2.474033E+01             -2.191925E-01             -1.244431E-01          \r\n                5              -2.452119E+01             -2.452119E+01             -1.244965E-01              3.814697E-06          \r\n0       2       1              -2.504733E+01             -2.462146E+01             -3.491821E-01              3.632984E-01          \r\n                2              -2.387700E+01             -2.366411E+01              9.443665E-02              3.633709E-01          \r\n                3              -2.387636E+01             -2.366364E+01              9.475708E-02             -3.633118E-01          \r\n                4              -2.504681E+01             -2.462119E+01             -3.489532E-01             -3.633804E-01          \r\n                5              -2.448849E+01             -2.420467E+01             -1.538391E-01             -3.814697E-06          \r\n0       3       1              -2.522168E+01             -2.424036E+01             -4.818726E-01              6.237621E-01          \r\n                2              -2.327759E+01             -2.262338E+01              2.147980E-01              6.236801E-01          \r\n                3              -2.327820E+01             -2.262361E+01              2.145233E-01             -6.237564E-01          \r\n                4              -2.522218E+01             -2.424033E+01             -4.819946E-01             -6.236725E-01          \r\n                5              -2.427440E+01             -2.348918E+01             -1.581879E-01              0.0                   \r\n0       4       1              -2.536394E+01             -2.351753E+01             -6.793671E-01              7.369156E-01          \r\n                2              -2.244048E+01             -2.105571E+01              7.702179E-01              7.369189E-01          \r\n                3              -2.244044E+01             -2.105569E+01              7.702332E-01             -7.369156E-01          \r\n                4              -2.536391E+01             -2.351753E+01             -6.793365E-01             -7.369156E-01          \r\n                5              -2.392694E+01             -2.234435E+01              2.070618E-02              3.814697E-06          \r\n0       5       1              -2.714015E+01             -2.306981E+01             -1.243896E+00              1.266930E+00          \r\n                2              -1.945836E+01             -1.674481E+01              1.370407E+00              1.266830E+00          \r\n                3              -1.945874E+01             -1.674504E+01              1.370193E+00             -1.266918E+00          \r\n                4              -2.714052E+01             -2.306996E+01             -1.244034E+00             -1.266819E+00          \r\n                5              -2.340117E+01             -2.014485E+01             -3.858948E-02              1.907349E-06          \r\n0       6       1              -2.734969E+01             -2.012682E+01             -2.011597E+00              1.736679E+00          \r\n                2              -1.641396E+01             -1.099689E+01              1.977310E+00              1.736687E+00          \r\n                3              -1.641402E+01             -1.099698E+01              1.977295E+00             -1.736675E+00          \r\n                4              -2.734969E+01             -2.012691E+01             -2.011642E+00             -1.736683E+00          \r\n                5              -2.197858E+01             -1.578760E+01             -1.138763E-01              1.907349E-06          \r\n0       7       1              -2.697171E+01             -1.552158E+01             -2.547363E+00              2.243439E+00          \r\n                2              -1.291940E+01             -3.759308E+00              2.531219E+00              2.243369E+00          \r\n                3              -1.291965E+01             -3.759552E+00              2.531067E+00             -2.243446E+00          \r\n                4              -2.697198E+01             -1.552176E+01             -2.547516E+00             -2.243385E+00          \r\n                5              -2.004103E+01             -9.863220E+00             -1.035309E-01             -1.525879E-05          \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                  S T R E S S E S   F O R   T H E   T R A P E Z O I D A L   R I N G S     ( C T R A P R G )\r\n     EL      STRESS               RADIAL                CIRCUMFERENTIAL                AXIAL                     SHEAR\r\n     ID       POINT                 (X)                     (THETA)                     (Z)                       (ZX)\r\n0       8       1              -2.609064E+01             -9.404114E+00             -3.113571E+00              2.743912E+00          \r\n                2              -8.908356E+00              4.996979E+00              3.092590E+00              2.744110E+00          \r\n                3              -8.907654E+00              4.997299E+00              3.092926E+00             -2.743912E+00          \r\n                4              -2.608997E+01             -9.403931E+00             -3.113312E+00             -2.744110E+00          \r\n                5              -1.759395E+01             -2.424667E+00             -1.051636E-01              0.0                   \r\n0       9       1              -2.469951E+01             -1.770630E+00             -3.675034E+00              3.244461E+00          \r\n                2              -4.389656E+00              1.526368E+01              3.656883E+00              3.244522E+00          \r\n                3              -4.389366E+00              1.526380E+01              3.656990E+00             -3.244459E+00          \r\n                4              -2.469925E+01             -1.770493E+00             -3.674927E+00             -3.244526E+00          \r\n                5              -1.463896E+01              6.526123E+00             -1.034851E-01             -9.536743E-06          \r\n0      10       1              -2.279702E+01              7.374870E+00             -4.231956E+00              3.747971E+00          \r\n                2               6.308899E-01              2.703125E+01              4.204369E+00              3.747760E+00          \r\n                3               6.300659E-01              2.703085E+01              4.204033E+00             -3.747963E+00          \r\n                4              -2.279765E+01              7.374596E+00             -4.232201E+00             -3.747763E+00          \r\n                5              -1.117762E+01              1.698296E+01             -1.082077E-01             -2.861023E-06          \r\n0      11       1              -2.041447E+01              1.801181E+01             -4.815056E+00              4.235291E+00          \r\n                2               6.177742E+00              4.033441E+01              4.836357E+00              4.235104E+00          \r\n                3               6.177078E+00              4.033403E+01              4.836037E+00             -4.235292E+00          \r\n                4              -2.041515E+01              1.801149E+01             -4.815300E+00             -4.235102E+00          \r\n                5              -7.212791E+00              2.895321E+01             -8.361816E-02              1.811981E-05          \r\n0      12       1              -1.739876E+01              3.023016E+01             -5.267845E+00              4.808609E+00          \r\n                2               1.210323E+01              5.496916E+01              4.999410E+00              4.808709E+00          \r\n                3               1.210345E+01              5.496924E+01              4.999448E+00             -4.808615E+00          \r\n                4              -1.739862E+01              3.023019E+01             -5.267723E+00             -4.808710E+00          \r\n                5              -2.741669E+00              4.238035E+01             -2.281456E-01             -1.239777E-05          \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                                                                                   \r\n\r\n      TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                      \r\n DATE:  5/17/95\r\n END TIME: 14:55:39\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01062a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01062A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1,1                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)              \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                          \r\n                  3      LABEL = TRAPEZOIDAL RING ELEMENTS                                               \r\n                  4      ECHO  = BOTH                                                                    \r\n                  5      SPC   = 16                                                                      \r\n                  6      TEMPERATURE(LOAD) = 16                                                          \r\n                  7          OUTPUT                                                                      \r\n                  8          SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26                                \r\n                  9          DISP  = 1                                                                   \r\n                 10          ELSTRESS = ALL                                                              \r\n                 11      BEGIN BULK                                                                      \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              -FF-    CTRAPRG, 1,1,3,4,2,.0,12                                                                      \r\n                              -FF-    =(11), *(1) *(2),///, ==                                                                      \r\n                              -FF-    GRDSET, 8)2456                                                                                \r\n                              -FF-    GRID,1,,.0                                                                                    \r\n                              -FF-    =(3),*(2),,*(.005)                                                                            \r\n                              -FF-    GRID,2,,.0,,.01                                                                               \r\n                              -FF-    =(3),*(2),,*(.005),==                                                                         \r\n                              -FF-    GRID,9,,.02                                                                                   \r\n                              -FF-    =(8),*(2),,%(.10)                                                                             \r\n                              -FF-    GRID,10,,.02,,.01                                                                             \r\n                              -FF-    =(8),*(2),,%(.10),==                                                                          \r\n                              -FF-    MAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0                                                            \r\n                              -FF-    SPC,16,1,13,.0,2,1,.0                                                                         \r\n                              -FF-    TEMP,16,1,100.,2,100.,3,99.75                                                                 \r\n                              -FF-    =,=,4,99.75,5,99.0,6,99.0                                                                     \r\n                              -FF-    =,=,7,97.75,8,97.75,9,96.0                                                                    \r\n                              -FF-    =,=,10,96.0,11,91.0,12,91.0                                                                   \r\n                              -FF-    =,=,13,84.0,14,84.0,15,75.0                                                                   \r\n                              -FF-    =,=,16,75.0,17,64.0,18,64.0                                                                   \r\n                              -FF-    =,=,19,51.0,20,51.0,21,36.0                                                                   \r\n                              -FF-    =,=,22,36.0,23,19.0,24,19.0                                                                   \r\n                              -FF-    =,=,25,.0,26,.0                                                                               \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     22\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRAPRG 1       1       3       4       2       .0      12                      \r\n                    2-        CTRAPRG 2       3       5       6       4       .0      12                      \r\n                    3-        CTRAPRG 3       5       7       8       6       .0      12                      \r\n                    4-        CTRAPRG 4       7       9       10      8       .0      12                      \r\n                    5-        CTRAPRG 5       9       11      12      10      .0      12                      \r\n                    6-        CTRAPRG 6       11      13      14      12      .0      12                      \r\n                    7-        CTRAPRG 7       13      15      16      14      .0      12                      \r\n                    8-        CTRAPRG 8       15      17      18      16      .0      12                      \r\n                    9-        CTRAPRG 9       17      19      20      18      .0      12                      \r\n                   10-        CTRAPRG 10      19      21      22      20      .0      12                      \r\n                   11-        CTRAPRG 11      21      23      24      22      .0      12                      \r\n                   12-        CTRAPRG 12      23      25      26      24      .0      12                      \r\n                   13-        GRDSET                                                  2456                    \r\n                   14-        GRID    1               .0                                                      \r\n                   15-        GRID    2               .0              .01                                     \r\n                   16-        GRID    3               .005                                                    \r\n                   17-        GRID    4               .005            .01                                     \r\n                   18-        GRID    5               0.01                                                    \r\n                   19-        GRID    6               0.01            .01                                     \r\n                   20-        GRID    7               0.015                                                   \r\n                   21-        GRID    8               0.015           .01                                     \r\n                   22-        GRID    9               .02                                                     \r\n                   23-        GRID    10              .02             .01                                     \r\n                   24-        GRID    11              0.03                                                    \r\n                   25-        GRID    12              0.03            .01                                     \r\n                   26-        GRID    13              0.04                                                    \r\n                   27-        GRID    14              0.04            .01                                     \r\n                   28-        GRID    15              0.049999                                                \r\n                   29-        GRID    16              0.049999        .01                                     \r\n                   30-        GRID    17              0.059999                                                \r\n                   31-        GRID    18              0.059999        .01                                     \r\n                   32-        GRID    19              0.069999                                                \r\n                   33-        GRID    20              0.069999        .01                                     \r\n                   34-        GRID    21              0.079999                                                \r\n                   35-        GRID    22              0.079999        .01                                     \r\n                   36-        GRID    23              0.089999                                                \r\n                   37-        GRID    24              0.089999        .01                                     \r\n                   38-        GRID    25              .0999999                                                \r\n                   39-        GRID    26              .0999999        .01                                     \r\n                   40-        MAT1    12      1.0+7           .3      .2587-3 1.0-7   .0                      \r\n                   41-        SPC     16      1       13      .0      2       1       .0                      \r\n                   42-        TEMP    16      1       100.    2       100.    3       99.75                   \r\n                   43-        TEMP    16      4       99.75   5       99.0    6       99.0                    \r\n                   44-        TEMP    16      7       97.75   8       97.75   9       96.0                    \r\n                   45-        TEMP    16      10      96.0    11      91.0    12      91.0                    \r\n                   46-        TEMP    16      13      84.0    14      84.0    15      75.0                    \r\n                   47-        TEMP    16      16      75.0    17      64.0    18      64.0                    \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n\r\n      TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        TEMP    16      19      51.0    20      51.0    21      36.0                    \r\n                   49-        TEMP    16      22      36.0    23      19.0    24      19.0                    \r\n                   50-        TEMP    16      25      .0      26      .0                                      \r\n                              ENDDATA\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             87\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.346\r\n                                        RMS WAVEFRONT    3.425\r\n                                        RMS BANDWIDTH    3.425\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             87\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.346\r\n                                        RMS WAVEFRONT    3.425\r\n                                        RMS BANDWIDTH    3.425\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        4         4\r\n                                        PROFILE (P)                         87        87\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            4         4\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.346     3.346\r\n                                        RMS WAVEFRONT (C-RMS)            3.425     3.425\r\n                                        RMS BANDWITCH (B-RMS)            3.425     3.425\r\n                                        NUMBER OF GRID POINTS (N)                     26\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                12\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           5\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        61\r\n                                        MATRIX DENSITY, PERCENT                   21.893\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG   ELEMENTS (ELEMENT TYPE  37) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   3.7422619E-15\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.137360E-08   0.0            1.617717E-10   0.0            0.0            0.0                           \r\n             5      G      8.247039E-08   0.0            6.340413E-10   0.0            0.0            0.0                           \r\n             7      G      1.230677E-07   0.0            1.444813E-09   0.0            0.0            0.0                           \r\n             9      G      1.628901E-07   0.0            2.402780E-09   0.0            0.0            0.0                           \r\n            11      G      2.390438E-07   0.0            5.696757E-09   0.0            0.0            0.0                           \r\n            13      G      3.093353E-07   0.0            1.021218E-08   0.0            0.0            0.0                           \r\n            15      G      3.717776E-07   0.0            1.604540E-08   0.0            0.0            0.0                           \r\n            17      G      4.244424E-07   0.0            2.317959E-08   0.0            0.0            0.0                           \r\n            19      G      4.653766E-07   0.0            3.161614E-08   0.0            0.0            0.0                           \r\n            21      G      4.926359E-07   0.0            4.136072E-08   0.0            0.0            0.0                           \r\n            23      G      5.042610E-07   0.0            5.237185E-08   0.0            0.0            0.0                           \r\n            25      G      4.983738E-07   0.0            6.487632E-08   0.0            0.0            0.0                           \r\n            26      G      4.983734E-07   0.0            4.975213E-08   0.0            0.0            0.0                           \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                  S T R E S S E S   F O R   T H E   T R A P E Z O I D A L   R I N G S     ( C T R A P R G )\r\n     EL      STRESS               RADIAL                CIRCUMFERENTIAL                AXIAL                     SHEAR\r\n     ID       POINT                 (X)                     (THETA)                     (Z)                       (ZX)\r\n0       1       1              -2.474084E+01             -2.474084E+01             -2.192535E-01              1.244398E-01          \r\n                2              -2.430251E+01             -2.430251E+01             -2.983093E-02              1.244507E-01          \r\n                3              -2.430240E+01             -2.430240E+01             -2.975464E-02             -1.244431E-01          \r\n                4              -2.474074E+01             -2.474074E+01             -2.191925E-01             -1.244507E-01          \r\n                5              -2.452162E+01             -2.452162E+01             -1.244965E-01              0.0                   \r\n0       2       1              -2.504778E+01             -2.462190E+01             -3.492126E-01              3.632956E-01          \r\n                2              -2.387746E+01             -2.366457E+01              9.442139E-02              3.633766E-01          \r\n                3              -2.387675E+01             -2.366402E+01              9.480286E-02             -3.633041E-01          \r\n                4              -2.504720E+01             -2.462160E+01             -3.489380E-01             -3.633881E-01          \r\n                5              -2.448892E+01             -2.420509E+01             -1.538544E-01             -7.629395E-06          \r\n0       3       1              -2.522212E+01             -2.424078E+01             -4.818726E-01              6.237602E-01          \r\n                2              -2.327802E+01             -2.262379E+01              2.147827E-01              6.236801E-01          \r\n                3              -2.327855E+01             -2.262399E+01              2.145233E-01             -6.237488E-01          \r\n                4              -2.522252E+01             -2.424072E+01             -4.819794E-01             -6.236725E-01          \r\n                5              -2.427483E+01             -2.348958E+01             -1.581726E-01              3.814697E-06          \r\n0       4       1              -2.536441E+01             -2.351797E+01             -6.793976E-01              7.369118E-01          \r\n                2              -2.244093E+01             -2.105617E+01              7.702179E-01              7.369151E-01          \r\n                3              -2.244093E+01             -2.105614E+01              7.702484E-01             -7.369156E-01          \r\n                4              -2.536433E+01             -2.351794E+01             -6.793365E-01             -7.369156E-01          \r\n                5              -2.392735E+01             -2.234474E+01              2.072144E-02             -3.814697E-06          \r\n0       5       1              -2.714058E+01             -2.307025E+01             -1.243896E+00              1.266930E+00          \r\n                2              -1.945882E+01             -1.674527E+01              1.370346E+00              1.266838E+00          \r\n                3              -1.945917E+01             -1.674548E+01              1.370163E+00             -1.266930E+00          \r\n                4              -2.714093E+01             -2.307036E+01             -1.244003E+00             -1.266838E+00          \r\n                5              -2.340160E+01             -2.014528E+01             -3.860474E-02              0.0                   \r\n0       6       1              -2.735017E+01             -2.012727E+01             -2.011673E+00              1.736618E+00          \r\n                2              -1.641437E+01             -1.099722E+01              1.977554E+00              1.736641E+00          \r\n                3              -1.641426E+01             -1.099725E+01              1.977570E+00             -1.736629E+00          \r\n                4              -2.735011E+01             -2.012733E+01             -2.011673E+00             -1.736652E+00          \r\n                5              -2.197900E+01             -1.578801E+01             -1.137848E-01              1.907349E-06          \r\n0       7       1              -2.697226E+01             -1.552203E+01             -2.547272E+00              2.243713E+00          \r\n                2              -1.292029E+01             -3.759888E+00              2.530609E+00              2.243796E+00          \r\n                3              -1.291992E+01             -3.759750E+00              2.530731E+00             -2.243710E+00          \r\n                4              -2.697200E+01             -1.552194E+01             -2.547134E+00             -2.243801E+00          \r\n                5              -2.004155E+01             -9.863541E+00             -1.036987E-01              9.536743E-06          \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n0     TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n \r\n                  S T R E S S E S   F O R   T H E   T R A P E Z O I D A L   R I N G S     ( C T R A P R G )\r\n     EL      STRESS               RADIAL                CIRCUMFERENTIAL                AXIAL                     SHEAR\r\n     ID       POINT                 (X)                     (THETA)                     (Z)                       (ZX)\r\n0       8       1              -2.609070E+01             -9.404327E+00             -3.113785E+00              2.743942E+00          \r\n                2              -8.908096E+00              4.997101E+00              3.093231E+00              2.743805E+00          \r\n                3              -8.908569E+00              4.996872E+00              3.093002E+00             -2.743942E+00          \r\n                4              -2.609113E+01             -9.404495E+00             -3.113983E+00             -2.743805E+00          \r\n                5              -1.759444E+01             -2.424957E+00             -1.051941E-01              7.629395E-06          \r\n0       9       1              -2.469939E+01             -1.770554E+00             -3.674408E+00              3.244736E+00          \r\n                2              -4.389793E+00              1.526328E+01              3.656456E+00              3.244522E+00          \r\n                3              -4.390526E+00              1.526283E+01              3.656136E+00             -3.244740E+00          \r\n                4              -2.470012E+01             -1.770905E+00             -3.674744E+00             -3.244526E+00          \r\n                5              -1.463948E+01              6.525696E+00             -1.036224E-01              1.335144E-05          \r\n0      10       1              -2.279849E+01              7.373878E+00             -4.232887E+00              3.747604E+00          \r\n                2               6.298294E-01              2.703056E+01              4.204529E+00              3.747757E+00          \r\n                3               6.303558E-01              2.703069E+01              4.204758E+00             -3.747625E+00          \r\n                4              -2.279811E+01              7.373940E+00             -4.232796E+00             -3.747774E+00          \r\n                5              -1.117837E+01              1.698226E+01             -1.084290E-01             -8.583069E-06          \r\n0      11       1              -2.041618E+01              1.801087E+01             -4.815178E+00              4.234894E+00          \r\n                2               6.176689E+00              4.033392E+01              4.837578E+00              4.235077E+00          \r\n                3               6.177483E+00              4.033425E+01              4.837898E+00             -4.234901E+00          \r\n                4              -2.041544E+01              1.801109E+01             -4.814880E+00             -4.235088E+00          \r\n                5              -7.213608E+00              2.895280E+01             -8.286285E-02              9.536743E-06          \r\n0      12       1              -1.739697E+01              3.023093E+01             -5.265419E+00              4.809036E+00          \r\n                2               1.210247E+01              5.496722E+01              4.996686E+00              4.808831E+00          \r\n                3               1.210190E+01              5.496686E+01              4.996335E+00             -4.809010E+00          \r\n                4              -1.739769E+01              3.023065E+01             -5.265694E+00             -4.808800E+00          \r\n                5              -2.741693E+00              4.237949E+01             -2.285347E-01              3.814697E-06          \r\n1     SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                                                                                   \r\n\r\n      TRAPEZOIDAL RING ELEMENTS                                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)         \r\n DATE:  5/17/95\r\n END TIME: 14:57: 7\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01071a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01071A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                           \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                          \r\n                  3      LABEL    = EXTERNAL PRESSURE LOADING                                            \r\n                  4          SPC  = 1                                                                    \r\n                  5          LOAD = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7          DISP = ALL                                                                  \r\n                  8         OLOAD = ALL                                                                  \r\n                  9       ELFORCE = ALL                                                                  \r\n                 10      STRESSES = ALL                                                                  \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    56, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTORDRG 1       1       1       2       .0      2.0                             \r\n                    2-        CTORDRG 2       1       2       3       2.0     4.0                             \r\n                    3-        CTORDRG 3       1       3       4       4.0     6.0                             \r\n                    4-        CTORDRG 4       1       4       5       6.0     8.0                             \r\n                    5-        CTORDRG 5       1       5       6       8.0     10.0                            \r\n                    6-        CTORDRG 6       1       6       7       10.0    15.0                            \r\n                    7-        CTORDRG 7       1       7       8       15.0    20.0                            \r\n                    8-        CTORDRG 8       1       8       9       20.0    25.0                            \r\n                    9-        CTORDRG 9       1       9       10      25.0    27.0                            \r\n                   10-        CTORDRG 10      1       10      11      27.0    29.0                            \r\n                   11-        CTORDRG 11      1       11      12      29.0    31.0                            \r\n                   12-        CTORDRG 12      1       12      13      31.0    33.0                            \r\n                   13-        CTORDRG 13      1       13      14      33.0    35.0                            \r\n                   14-        FORCE   1       1       0       1.0     .0      .0      -8.85885                \r\n                   15-        FORCE   1       2       0       1.0     -2.16381.0      -61.9635                \r\n                   16-        FORCE   1       3       0       1.0     -8.64421.0      -123.618                \r\n                   17-        FORCE   1       4       0       1.0     -19.4063.0      -184.639                \r\n                   18-        FORCE   1       5       0       1.0     -34.4036.0      -244.795                \r\n                   19-        FORCE   1       6       0       1.0     -101.669.0      -576.596                \r\n                   20-        FORCE   1       7       0       1.0     -297.393.0      -1109.89                \r\n                   21-        FORCE   1       8       0       1.0     -519.309.0      -1426.79                \r\n                   22-        FORCE   1       9       0       1.0     -537.246.0      -1153.13                \r\n                   23-        FORCE   1       10      0       1.0     -366.120.0      -718.555                \r\n                   24-        FORCE   1       11      0       1.0     -417.584.0      -753.352                \r\n                   25-        FORCE   1       12      0       1.0     -471.266.0      -784.318                \r\n                   26-        FORCE   1       13      0       1.0     -526.891.0      -811.340                \r\n                   27-        GRDSET                                                  2                       \r\n                   28-        GRID    1       0       .0      .0      90.00                                   \r\n                   29-        GRID    2       0       3.141   .0      89.9451                                 \r\n                   30-        GRID    3       0       6.2784  .0      89.7804                                 \r\n                   31-        GRID    4       0       9.4077  .0      89.5068                                 \r\n                   32-        GRID    5       0       12.5253 .0      89.1243                                 \r\n                   33-        GRID    6       0       15.6285 .0      88.6329                                 \r\n                   34-        GRID    7       0       23.2938 .0      86.9337                                 \r\n                   35-        GRID    8       0       30.7818 .0      84.5721                                 \r\n                   36-        GRID    9       0       38.0358 .0      81.5679                                 \r\n                   37-        GRID    10      0       40.8591 .0      80.1909                                 \r\n                   38-        GRID    11      0       43.6329 .0      78.7158                                 \r\n                   39-        GRID    12      0       46.3536 .0      77.1453                                 \r\n                   40-        GRID    13      0       49.0176 .0      75.4803                                 \r\n                   41-        GRID    14      0       51.6222 .0      73.7235                                 \r\n                   42-        MAT1    12      3.0E6           .1667           12.5 E-6.0              CMAT11  \r\n                   43-        MOMENT  1       2       0       1.0     14.83917.0      -10.1998                \r\n                   44-        MOMENT  1       3       0       1.0     14.79298.0      -20.3822                \r\n                   45-        MOMENT  1       4       0       1.0     14.73849.0      -30.5275                \r\n                   46-        MOMENT  1       5       0       1.0     14.73710.0      -40.6554                \r\n                   47-        MOMENT  1       6       0       1.0     629.9624.0      -503.492                \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n\r\n      EXTERNAL PRESSURE LOADING                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        MOMENT  1       7       0       1.0     223.9160.0      -1180.98                \r\n                   49-        MOMENT  1       8       0       1.0     217.7740.0      -1560.45                \r\n                   50-        MOMENT  1       9       0       1.0     -1125.59.0      -950.370                \r\n                   51-        MOMENT  1       10      0       1.0     13.35776.0      -132.642                \r\n                   52-        MOMENT  1       11      0       1.0     13.01903.0      -141.715                \r\n                   53-        MOMENT  1       12      0       1.0     12.64240.0      -150.533                \r\n                   54-        MOMENT  1       13      0       1.0     12.29669.0      -159.092                \r\n                   55-        PTORDRG 1       12      3.0     3.0                                             \r\n                   56-        SPC     1       1       14      .0      14      134     .0                      \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n\r\n      EXTERNAL PRESSURE LOADING                                                                                                     \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TORDRG   ELEMENTS (ELEMENT TYPE  38) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.2777657E-12\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -5.466944E-04   0.0            1.683363E-06   2.264283E-07                  \r\n             2      G     -1.379353E-05   0.0           -5.465159E-04   9.711449E-09   1.683092E-06  -2.154376E-08                  \r\n             3      G     -2.758300E-05   0.0           -5.460528E-04  -4.874046E-08   1.682592E-06   4.688149E-08                  \r\n             4      G     -4.132202E-05   0.0           -5.448287E-04  -2.965820E-07   1.676809E-06   1.172040E-07                  \r\n             5      G     -5.488748E-05   0.0           -5.421351E-04  -8.169633E-07   1.656756E-06   2.187806E-07                  \r\n             6      G     -6.804022E-05   0.0           -5.369930E-04  -1.700009E-06   1.611340E-06   3.477465E-07                  \r\n             7      G     -9.602270E-05   0.0           -5.049501E-04  -5.982594E-06   1.304370E-06   7.566065E-07                  \r\n             8      G     -1.071690E-04   0.0           -4.272170E-04  -1.345247E-05   4.936754E-07   1.104621E-06                  \r\n             9      G     -8.639758E-05   0.0           -2.889577E-04  -2.183137E-05  -1.014970E-06   8.644736E-07                  \r\n            10      G     -6.754949E-05   0.0           -2.194551E-04  -2.388999E-05  -1.779485E-06   3.991782E-07                  \r\n            11      G     -4.435892E-05   0.0           -1.472862E-04  -2.399925E-05  -2.568128E-06  -3.909324E-07                  \r\n            12      G     -2.046372E-05   0.0           -7.944898E-05  -2.101134E-05  -3.285147E-06  -1.583342E-06                  \r\n            13      G     -2.309796E-06   0.0           -2.593311E-05  -1.352425E-05  -3.788745E-06  -3.284960E-06                  \r\n            14      G      0.0            0.0            0.0            0.0           -3.883259E-06  -5.282909E-06                  \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -8.858850E+00   0.0            0.0            0.0                           \r\n             2      G     -2.163810E+00   0.0           -6.196350E+01   1.483917E+01   0.0           -1.019980E+01                  \r\n             3      G     -8.644210E+00   0.0           -1.236180E+02   1.479298E+01   0.0           -2.038220E+01                  \r\n             4      G     -1.940630E+01   0.0           -1.846390E+02   1.473849E+01   0.0           -3.052750E+01                  \r\n             5      G     -3.440360E+01   0.0           -2.447950E+02   1.473710E+01   0.0           -4.065540E+01                  \r\n             6      G     -1.016690E+02   0.0           -5.765960E+02   6.299624E+02   0.0           -5.034920E+02                  \r\n             7      G     -2.973930E+02   0.0           -1.109890E+03   2.239160E+02   0.0           -1.180980E+03                  \r\n             8      G     -5.193090E+02   0.0           -1.426790E+03   2.177740E+02   0.0           -1.560450E+03                  \r\n             9      G     -5.372460E+02   0.0           -1.153130E+03  -1.125590E+03   0.0           -9.503700E+02                  \r\n            10      G     -3.661200E+02   0.0           -7.185550E+02   1.335776E+01   0.0           -1.326420E+02                  \r\n            11      G     -4.175840E+02   0.0           -7.533520E+02   1.301903E+01   0.0           -1.417150E+02                  \r\n            12      G     -4.712660E+02   0.0           -7.843180E+02   1.264240E+01   0.0           -1.505330E+02                  \r\n            13      G     -5.268910E+02   0.0           -8.113400E+02   1.229669E+01   0.0           -1.590920E+02                  \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n \r\n                       F O R C E S   F O R   T H E   T O R O I D A L   R I N G S     ( C T O R D R G )\r\n     EL    CORNER         RADIAL        CIRCUMFERENTIAL       AXIAL             MOMENT         DIRECT STRAIN       CURVATURE\r\n     ID     POINT           (X)             (THETA)            (Z)               (ZX)              (XI)             (XI,XI)\r\n0       1     1       -1.435260E-02      0.0              -8.857550E+00      6.850548E-01     -7.417463E-04      1.385167E-03       \r\n              2       -9.361709E+02      0.0               8.858372E+00     -1.194810E+01     -1.365885E-02     -2.249861E+00       \r\n0       2     1        9.340080E+02      0.0              -7.081214E+01      2.678206E+01      1.373598E-02     -7.953564E+00       \r\n              2       -1.870660E+03      0.0               7.082641E+01     -4.425937E+01      4.811107E-02     -8.135111E+00       \r\n0       3     1        1.862018E+03      0.0              -1.944009E+02      5.895256E+01     -4.638583E-02     -1.225448E+01       \r\n              2       -2.798947E+03      0.0               1.945020E+02     -1.013341E+02     -6.079648E-03     -1.307026E+01       \r\n0       4     1        2.779536E+03      0.0              -3.791533E+02      1.160077E+02      9.682901E-03     -1.746239E+01       \r\n              2       -3.715845E+03      0.0               3.793006E+02     -1.956308E+02     -3.433111E-01     -1.815808E+01       \r\n0       5     1        3.681427E+03      0.0              -6.242156E+02      2.104531E+02      3.403968E-01     -2.250226E+01       \r\n              2       -4.615107E+03      0.0               6.242530E+02     -3.389402E+02     -6.897379E-01     -2.322445E+01       \r\n0       6     1        4.513437E+03      0.0              -1.200878E+03      9.688644E+02      6.852036E-01     -4.802863E+02       \r\n              2       -6.800861E+03      0.0               1.202774E+03     -1.601000E+03     -2.833398E+00     -5.080294E+02       \r\n0       7     1        6.503458E+03      0.0              -2.312679E+03      1.824949E+03      2.827059E+00     -6.729493E+02       \r\n              2       -8.600890E+03      0.0               2.315741E+03     -2.658186E+03     -6.409254E-01     -7.000667E+02       \r\n0       8     1        8.081584E+03      0.0              -3.742526E+03      2.875959E+03      6.302433E-01     -8.604033E+02       \r\n              2       -9.747442E+03      0.0               3.742836E+03     -2.945964E+03      1.493594E+00     -8.867585E+02       \r\n0       9     1        9.210227E+03      0.0              -4.895938E+03      1.820449E+03     -1.493172E+00     -6.358387E+01       \r\n              2       -9.692967E+03      0.0               4.892215E+03     -1.112938E+03      8.562287E-01     -6.431381E+01       \r\n0      10     1        9.326908E+03      0.0              -5.610593E+03      1.126212E+03     -8.530122E-01     -6.828882E+01       \r\n              2       -9.685742E+03      0.0               5.602792E+03      3.262547E+02      1.366635E+00     -6.908867E+01       \r\n0      11     1        9.268126E+03      0.0              -6.356183E+03     -3.135163E+02     -1.350971E+00     -7.259787E+01       \r\n              2       -9.503368E+03      0.0               6.342287E+03      2.795578E+03      1.920020E+00     -7.216864E+01       \r\n0      12     1        9.032036E+03      0.0              -7.126740E+03     -2.783069E+03     -1.911161E+00     -7.840787E+01       \r\n              2       -9.162020E+03      0.0               7.104391E+03      6.593884E+03      2.235647E+00     -8.788574E+01       \r\n0      13     1        8.635151E+03      0.0              -7.915670E+03     -6.581451E+03     -2.228176E+00     -7.119308E+01       \r\n              2       -8.704317E+03      0.0               7.882500E+03      1.198971E+04      1.802444E-03     -1.855469E-02       \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n \r\n           S T R E S S   R E S U L T A N T S   F O R   T H E   T O R O I D A L   R I N G S     ( C T O R D R G )\r\n     EL   STRESS               MEMBRANE (FORCES)                          FLEXURE (MOMENTS)                       SHEAR\r\n     ID    POINT        TANGENTIAL          CIRCUMFERENTIAL        TANGENTIAL           CIRCUMFERENTIAL          (FORCE)\r\n0       1    1       -4.742393E+01           -4.742393E+01       -1.834143E+00            1.834143E+00        6.117731E+00          \r\n             2       -4.741985E+01           -4.742053E+01        3.893908E-01            7.417586E-02       -2.767995E-01          \r\n             3       -4.742413E+01           -4.742857E+01        1.531547E-01            4.638737E-02        1.319523E+00          \r\n0       2    1       -4.741985E+01           -4.742789E+01        1.531532E-01            4.638781E-02       -3.576809E-01          \r\n             2       -4.742702E+01           -4.743805E+01       -1.498061E-01           -2.513187E-02       -9.881045E-02          \r\n             3       -4.742553E+01           -4.744564E+01       -3.344585E-01           -1.080277E-01       -2.839203E-01          \r\n0       3    1       -4.743420E+01           -4.744713E+01       -3.344583E-01           -1.080281E-01       -1.403322E-01          \r\n             2       -4.743338E+01           -4.744912E+01       -5.580543E-01           -2.167377E-01       -2.157153E-01          \r\n             3       -4.743655E+01           -4.743897E+01       -8.500305E-01           -3.533323E-01       -2.438290E-01          \r\n0       4    1       -4.744117E+01           -4.743970E+01       -8.500276E-01           -3.533307E-01       -2.582688E-01          \r\n             2       -4.743185E+01           -4.740683E+01       -1.196292E+00           -5.151972E-01       -2.975522E-01          \r\n             3       -4.743970E+01           -4.734747E+01       -1.593775E+00           -7.016712E-01       -3.418674E-01          \r\n0       5    1       -4.742383E+01           -4.734471E+01       -1.593736E+00           -7.016601E-01       -3.391230E-01          \r\n             2       -4.741095E+01           -4.724012E+01       -2.041596E+00           -9.122855E-01       -3.801277E-01          \r\n             3       -4.740445E+01           -4.708471E+01       -2.538218E+00           -1.146203E+00       -4.187303E-01          \r\n0       6    1       -4.741298E+01           -4.708613E+01       -2.538366E+00           -1.146230E+00       -4.175308E-01          \r\n             2       -4.726017E+01           -4.634843E+01       -3.961301E+00           -1.822912E+00       -4.957582E-01          \r\n             3       -4.701212E+01           -4.493718E+01       -5.540241E+00           -2.598110E+00       -5.311699E-01          \r\n0       7    1       -4.701073E+01           -4.493687E+01       -5.540196E+00           -2.598095E+00       -5.247869E-01          \r\n             2       -4.657161E+01           -4.256562E+01       -7.056335E+00           -3.404063E+00       -4.792132E-01          \r\n             3       -4.586499E+01           -3.897964E+01       -8.144388E+00           -4.129645E+00       -3.072319E-01          \r\n0       8    1       -4.586560E+01           -3.897993E+01       -8.144615E+00           -4.129735E+00       -2.964945E-01          \r\n             2       -4.490353E+01           -3.402090E+01       -8.247053E+00           -4.608160E+00        6.129110E-02          \r\n             3       -4.359391E+01           -2.771052E+01       -6.603844E+00           -4.612164E+00        6.679063E-01          \r\n0       9    1       -4.359608E+01           -2.771079E+01       -6.604050E+00           -4.612195E+00        6.793578E-01          \r\n             2       -4.296380E+01           -2.487673E+01       -5.239190E+00           -4.416682E+00        1.000867E+00          \r\n             3       -4.229292E+01           -2.192929E+01       -3.375110E+00           -4.079192E+00        1.377905E+00          \r\n0      10    1       -4.228968E+01           -2.192876E+01       -3.374427E+00           -4.079026E+00        1.380139E+00          \r\n             2       -4.157248E+01           -1.892799E+01       -9.345999E-01           -3.576959E+00        1.806204E+00          \r\n             3       -4.080384E+01           -1.595172E+01        2.156033E+00           -2.887666E+00        2.294774E+00          \r\n0      11    1       -4.080479E+01           -1.595191E+01        2.157442E+00           -2.887537E+00        2.268575E+00          \r\n             2       -4.001025E+01           -1.310438E+01        5.966252E+00           -1.989860E+00        2.828775E+00          \r\n             3       -3.918151E+01           -1.050479E+01        1.054323E+01           -8.650403E-01        3.356083E+00          \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n0     EXTERNAL PRESSURE LOADING                                                                                                     \r\n \r\n           S T R E S S   R E S U L T A N T S   F O R   T H E   T O R O I D A L   R I N G S     ( C T O R D R G )\r\n     EL   STRESS               MEMBRANE (FORCES)                          FLEXURE (MOMENTS)                       SHEAR\r\n     ID    POINT        TANGENTIAL          CIRCUMFERENTIAL        TANGENTIAL           CIRCUMFERENTIAL          (FORCE)\r\n0      12    1       -3.918133E+01           -1.050476E+01        1.054335E+01           -8.650696E-01        3.556906E+00          \r\n             2       -3.834824E+01           -8.305113E+00        1.600016E+01            5.156120E-01        3.985400E+00          \r\n             3       -3.751252E+01           -6.677447E+00        2.254027E+01            2.195566E+00        5.073380E+00          \r\n0      13    1       -3.751236E+01           -6.677407E+00        2.253946E+01            2.195416E+00        3.520725E+00          \r\n             2       -3.669323E+01           -5.826451E+00        2.981250E+01            4.122759E+00        5.717581E+00          \r\n             3       -3.594828E+01           -5.992583E+00        3.667900E+01            6.114406E+00        3.136902E+00          \r\n1     SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                                                                                   \r\n\r\n      EXTERNAL PRESSURE LOADING                                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                         \r\n DATE:  5/17/95\r\n END TIME: 14:57:41\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01081a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01081A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,3                                                                       \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                          \r\n                  3      LABEL    = TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                          \r\n                  4           SPC = 10                                                                   \r\n                  5          LOAD = 10                                                                   \r\n                  6      OUTPUT                                                                          \r\n                  7            DISPLACEMENT = ALL                                                        \r\n                  8            SPCFORCE = ALL                                                            \r\n                  9            OLOAD  = ALL                                                              \r\n                 10            STRESS = ALL                                                              \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   217, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHEXA1  1       1       2       1       3       4       12      11      +HEX   1\r\n                    2-        +HEX   113      14                                                              \r\n                    3-        CHEXA1  2       1       4       3       5       6       14      13      +HEX   2\r\n                    4-        +HEX   215      16                                                              \r\n                    5-        CHEXA1  3       1       6       5       7       8       16      15      +HEX   3\r\n                    6-        +HEX   317      18                                                              \r\n                    7-        CHEXA1  4       1       8       7       9       10      18      17      +HEX   4\r\n                    8-        +HEX   419      20                                                              \r\n                    9-        CHEXA1  5       1       12      11      13      14      22      21      +HEX   5\r\n                   10-        +HEX   523      24                                                              \r\n                   11-        CHEXA1  6       1       14      13      15      16      24      23      +HEX   6\r\n                   12-        +HEX   625      26                                                              \r\n                   13-        CHEXA1  7       1       16      15      17      18      26      25      +HEX   7\r\n                   14-        +HEX   727      28                                                              \r\n                   15-        CHEXA1  8       1       18      17      19      20      28      27      +HEX   8\r\n                   16-        +HEX   829      30                                                              \r\n                   17-        CHEXA1  9       1       22      21      23      24      32      31      +HEX   9\r\n                   18-        +HEX   933      34                                                              \r\n                   19-        CHEXA1  10      1       24      23      25      26      34      33      +HEX  10\r\n                   20-        +HEX  1035      36                                                              \r\n                   21-        CHEXA1  11      1       26      25      27      28      36      35      +HEX  11\r\n                   22-        +HEX  1137      38                                                              \r\n                   23-        CHEXA1  12      1       28      27      29      30      38      37      +HEX  12\r\n                   24-        +HEX  1239      40                                                              \r\n                   25-        CHEXA1  13      1       32      31      33      34      42      41      +HEX  13\r\n                   26-        +HEX  1343      44                                                              \r\n                   27-        CHEXA1  14      1       34      33      35      36      44      43      +HEX  14\r\n                   28-        +HEX  1445      46                                                              \r\n                   29-        CHEXA1  15      1       36      35      37      38      46      45      +HEX  15\r\n                   30-        +HEX  1547      48                                                              \r\n                   31-        CHEXA1  16      1       38      37      39      40      48      47      +HEX  16\r\n                   32-        +HEX  1649      50                                                              \r\n                   33-        CHEXA1  17      1       42      41      43      44      52      51      +HEX  17\r\n                   34-        +HEX  1753      54                                                              \r\n                   35-        CHEXA1  18      1       44      43      45      46      54      53      +HEX  18\r\n                   36-        +HEX  1855      56                                                              \r\n                   37-        CHEXA1  19      1       46      45      47      48      56      55      +HEX  19\r\n                   38-        +HEX  1957      58                                                              \r\n                   39-        CHEXA1  20      1       48      47      49      50      58      57      +HEX  20\r\n                   40-        +HEX  2059      60                                                              \r\n                   41-        CHEXA1  21      1       52      51      53      54      62      61      +HEX  21\r\n                   42-        +HEX  2163      64                                                              \r\n                   43-        CHEXA1  22      1       54      53      55      56      64      63      +HEX  22\r\n                   44-        +HEX  2265      66                                                              \r\n                   45-        CHEXA1  23      1       56      55      57      58      66      65      +HEX  23\r\n                   46-        +HEX  2367      68                                                              \r\n                   47-        CHEXA1  24      1       58      57      59      60      68      67      +HEX  24\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +HEX  2469      70                                                              \r\n                   49-        CHEXA1  25      1       62      61      63      64      72      71      +HEX  25\r\n                   50-        +HEX  2573      74                                                              \r\n                   51-        CHEXA1  26      1       64      63      65      66      74      73      +HEX  26\r\n                   52-        +HEX  2675      76                                                              \r\n                   53-        CHEXA1  27      1       66      65      67      68      76      75      +HEX  27\r\n                   54-        +HEX  2777      78                                                              \r\n                   55-        CHEXA1  28      1       68      67      69      70      78      77      +HEX  28\r\n                   56-        +HEX  2879      80                                                              \r\n                   57-        CHEXA1  29      1       72      71      73      74      82      81      +HEX  29\r\n                   58-        +HEX  2983      84                                                              \r\n                   59-        CHEXA1  30      1       74      73      75      76      84      83      +HEX  30\r\n                   60-        +HEX  3085      86                                                              \r\n                   61-        CHEXA1  31      1       76      75      77      78      86      85      +HEX  31\r\n                   62-        +HEX  3187      88                                                              \r\n                   63-        CHEXA1  32      1       78      77      79      80      88      87      +HEX  32\r\n                   64-        +HEX  3289      90                                                              \r\n                   65-        CHEXA1  33      1       82      81      83      84      92      91      +HEX  33\r\n                   66-        +HEX  3393      94                                                              \r\n                   67-        CHEXA1  34      1       84      83      85      86      94      93      +HEX  34\r\n                   68-        +HEX  3495      96                                                              \r\n                   69-        CHEXA1  35      1       86      85      87      88      96      95      +HEX  35\r\n                   70-        +HEX  3597      98                                                              \r\n                   71-        CHEXA1  36      1       88      87      89      90      98      97      +HEX  36\r\n                   72-        +HEX  3699      100                                                             \r\n                   73-        CHEXA1  37      1       92      91      93      94      102     101     +HEX  37\r\n                   74-        +HEX  37103     104                                                             \r\n                   75-        CHEXA1  38      1       94      93      95      96      104     103     +HEX  38\r\n                   76-        +HEX  38105     106                                                             \r\n                   77-        CHEXA1  39      1       96      95      97      98      106     105     +HEX  39\r\n                   78-        +HEX  39107     108                                                             \r\n                   79-        CHEXA1  40      1       98      97      99      100     108     107     +HEX  40\r\n                   80-        +HEX  40109     110                                                             \r\n                   81-        CNGRNT  1       2       THRU    40                                              \r\n                   82-        FORCE   10      103             5.818182-1.0    .0      .0                      \r\n                   83-        FORCE   10      104             5.818182-1.0    .0      .0                      \r\n                   84-        FORCE   10      105             5.818182-2.0    .0      .0                      \r\n                   85-        FORCE   10      106             5.818182-2.0    .0      .0                      \r\n                   86-        FORCE   10      107             5.818182-3.0    .0      .0                      \r\n                   87-        FORCE   10      108             5.818182-3.0    .0      .0                      \r\n                   88-        FORCE   10      109             5.818182-2.0    .0      .0                      \r\n                   89-        FORCE   10      110             5.818182-2.0    .0      .0                      \r\n                   90-        GRID    1               .00     .00     .00             456                     \r\n                   91-        GRID    2               .00     .00     2.00000         456                     \r\n                   92-        GRID    3               .00     2.00000 .00             456                     \r\n                   93-        GRID    4               .00     2.00000 2.00000         456                     \r\n                   94-        GRID    5               .00     4.00000 .00             456                     \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    6               .00     4.00000 2.00000         456                     \r\n                   96-        GRID    7               .00     6.00000 .00             456                     \r\n                   97-        GRID    8               .00     6.00000 2.00000         456                     \r\n                   98-        GRID    9               .00     8.00000 .00             456                     \r\n                   99-        GRID    10              .00     8.00000 2.00000         456                     \r\n                  100-        GRID    11              2.00000 .00     .00             456                     \r\n                  101-        GRID    12              2.00000 .00     2.00000         456                     \r\n                  102-        GRID    13              2.00000 2.00000 .00             456                     \r\n                  103-        GRID    14              2.00000 2.00000 2.00000         456                     \r\n                  104-        GRID    15              2.00000 4.00000 .00             456                     \r\n                  105-        GRID    16              2.00000 4.00000 2.00000         456                     \r\n                  106-        GRID    17              2.00000 6.00000 .00             456                     \r\n                  107-        GRID    18              2.00000 6.00000 2.00000         456                     \r\n                  108-        GRID    19              2.00000 8.00000 .00             456                     \r\n                  109-        GRID    20              2.00000 8.00000 2.00000         456                     \r\n                  110-        GRID    21              4.00000 .00     .00             456                     \r\n                  111-        GRID    22              4.00000 .00     2.00000         456                     \r\n                  112-        GRID    23              4.00000 2.00000 .00             456                     \r\n                  113-        GRID    24              4.00000 2.00000 2.00000         456                     \r\n                  114-        GRID    25              4.00000 4.00000 .00             456                     \r\n                  115-        GRID    26              4.00000 4.00000 2.00000         456                     \r\n                  116-        GRID    27              4.00000 6.00000 .00             456                     \r\n                  117-        GRID    28              4.00000 6.00000 2.00000         456                     \r\n                  118-        GRID    29              4.00000 8.00000 .00             456                     \r\n                  119-        GRID    30              4.00000 8.00000 2.00000         456                     \r\n                  120-        GRID    31              6.00000 .00     .00             456                     \r\n                  121-        GRID    32              6.00000 .00     2.00000         456                     \r\n                  122-        GRID    33              6.00000 2.00000 .00             456                     \r\n                  123-        GRID    34              6.00000 2.00000 2.00000         456                     \r\n                  124-        GRID    35              6.00000 4.00000 .00             456                     \r\n                  125-        GRID    36              6.00000 4.00000 2.00000         456                     \r\n                  126-        GRID    37              6.00000 6.00000 .00             456                     \r\n                  127-        GRID    38              6.00000 6.00000 2.00000         456                     \r\n                  128-        GRID    39              6.00000 8.00000 .00             456                     \r\n                  129-        GRID    40              6.00000 8.00000 2.00000         456                     \r\n                  130-        GRID    41              8.00000 .00     .00             456                     \r\n                  131-        GRID    42              8.00000 .00     2.00000         456                     \r\n                  132-        GRID    43              8.00000 2.00000 .00             456                     \r\n                  133-        GRID    44              8.00000 2.00000 2.00000         456                     \r\n                  134-        GRID    45              8.00000 4.00000 .00             456                     \r\n                  135-        GRID    46              8.00000 4.00000 2.00000         456                     \r\n                  136-        GRID    47              8.00000 6.00000 .00             456                     \r\n                  137-        GRID    48              8.00000 6.00000 2.00000         456                     \r\n                  138-        GRID    49              8.00000 8.00000 .00             456                     \r\n                  139-        GRID    50              8.00000 8.00000 2.00000         456                     \r\n                  140-        GRID    51              10.0000 .00     .00             456                     \r\n                  141-        GRID    52              10.0000 .00     2.00000         456                     \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    53              10.0000 2.00000 .00             456                     \r\n                  143-        GRID    54              10.0000 2.00000 2.00000         456                     \r\n                  144-        GRID    55              10.0000 4.00000 .00             456                     \r\n                  145-        GRID    56              10.0000 4.00000 2.00000         456                     \r\n                  146-        GRID    57              10.0000 6.00000 .00             456                     \r\n                  147-        GRID    58              10.0000 6.00000 2.00000         456                     \r\n                  148-        GRID    59              10.0000 8.00000 .00             456                     \r\n                  149-        GRID    60              10.0000 8.00000 2.00000         456                     \r\n                  150-        GRID    61              12.0000 .00     .00             456                     \r\n                  151-        GRID    62              12.0000 .00     2.00000         456                     \r\n                  152-        GRID    63              12.0000 2.00000 .00             456                     \r\n                  153-        GRID    64              12.0000 2.00000 2.00000         456                     \r\n                  154-        GRID    65              12.0000 4.00000 .00             456                     \r\n                  155-        GRID    66              12.0000 4.00000 2.00000         456                     \r\n                  156-        GRID    67              12.0000 6.00000 .00             456                     \r\n                  157-        GRID    68              12.0000 6.00000 2.00000         456                     \r\n                  158-        GRID    69              12.0000 8.00000 .00             456                     \r\n                  159-        GRID    70              12.0000 8.00000 2.00000         456                     \r\n                  160-        GRID    71              14.0000 .00     .00             456                     \r\n                  161-        GRID    72              14.0000 .00     2.00000         456                     \r\n                  162-        GRID    73              14.0000 2.00000 .00             456                     \r\n                  163-        GRID    74              14.0000 2.00000 2.00000         456                     \r\n                  164-        GRID    75              14.0000 4.00000 .00             456                     \r\n                  165-        GRID    76              14.0000 4.00000 2.00000         456                     \r\n                  166-        GRID    77              14.0000 6.00000 .00             456                     \r\n                  167-        GRID    78              14.0000 6.00000 2.00000         456                     \r\n                  168-        GRID    79              14.0000 8.00000 .00             456                     \r\n                  169-        GRID    80              14.0000 8.00000 2.00000         456                     \r\n                  170-        GRID    81              16.0000 .00     .00             456                     \r\n                  171-        GRID    82              16.0000 .00     2.00000         456                     \r\n                  172-        GRID    83              16.0000 2.00000 .00             456                     \r\n                  173-        GRID    84              16.0000 2.00000 2.00000         456                     \r\n                  174-        GRID    85              16.0000 4.00000 .00             456                     \r\n                  175-        GRID    86              16.0000 4.00000 2.00000         456                     \r\n                  176-        GRID    87              16.0000 6.00000 .00             456                     \r\n                  177-        GRID    88              16.0000 6.00000 2.00000         456                     \r\n                  178-        GRID    89              16.0000 8.00000 .00             456                     \r\n                  179-        GRID    90              16.0000 8.00000 2.00000         456                     \r\n                  180-        GRID    91              18.0000 .00     .00             456                     \r\n                  181-        GRID    92              18.0000 .00     2.00000         456                     \r\n                  182-        GRID    93              18.0000 2.00000 .00             456                     \r\n                  183-        GRID    94              18.0000 2.00000 2.00000         456                     \r\n                  184-        GRID    95              18.0000 4.00000 .00             456                     \r\n                  185-        GRID    96              18.0000 4.00000 2.00000         456                     \r\n                  186-        GRID    97              18.0000 6.00000 .00             456                     \r\n                  187-        GRID    98              18.0000 6.00000 2.00000         456                     \r\n                  188-        GRID    99              18.0000 8.00000 .00             456                     \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    100             18.0000 8.00000 2.00000         456                     \r\n                  190-        GRID    101             20.0000 .00     .00             456                     \r\n                  191-        GRID    102             20.0000 .00     2.00000         456                     \r\n                  192-        GRID    103             20.0000 2.00000 .00             456                     \r\n                  193-        GRID    104             20.0000 2.00000 2.00000         456                     \r\n                  194-        GRID    105             20.0000 4.00000 .00             456                     \r\n                  195-        GRID    106             20.0000 4.00000 2.00000         456                     \r\n                  196-        GRID    107             20.0000 6.00000 .00             456                     \r\n                  197-        GRID    108             20.0000 6.00000 2.00000         456                     \r\n                  198-        GRID    109             20.0000 8.00000 .00             456                     \r\n                  199-        GRID    110             20.0000 8.00000 2.00000         456                     \r\n                  200-        MAT1    1       3.0+6           .2      1.0     .001    10.0            +MAT1   \r\n                  201-        SPC     10      1       123     .0      2       13      .0                      \r\n                  202-        SPC1    10      1       3       4       5       6       7       8       +3      \r\n                  203-        +3      9       10                                                              \r\n                  204-        SPC1    10      3       3       5       7       9                               \r\n                  205-        SPC1    10      3       11      13      15      17      19                      \r\n                  206-        SPC1    10      3       21      23      25      27      29                      \r\n                  207-        SPC1    10      3       31      33      35      37      39                      \r\n                  208-        SPC1    10      3       41      43      45      47      49                      \r\n                  209-        SPC1    10      3       51      53      55      57      59                      \r\n                  210-        SPC1    10      3       61      63      65      67      69                      \r\n                  211-        SPC1    10      3       71      73      75      77      79                      \r\n                  212-        SPC1    10      3       81      83      85      87      89                      \r\n                  213-        SPC1    10      3       91      93      95      97      99                      \r\n                  214-        SPC1    10      3       101     103     105     107     109                     \r\n                  215-        SPC1    10      13      11      12      21      22      31      32      +1      \r\n                  216-        +1      41      42      51      52      61      62      71      72      +2      \r\n                  217-        +2      81      82      91      92      101     102                             \r\n                              ENDDATA\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE           1341\r\n                                        MAX WAVEFRONT       14\r\n                                        AVG WAVEFRONT   12.191\r\n                                        RMS WAVEFRONT   12.468\r\n                                        RMS BANDWIDTH   12.561\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE           1341\r\n                                        MAX WAVEFRONT       14\r\n                                        AVG WAVEFRONT   12.191\r\n                                        RMS WAVEFRONT   12.468\r\n                                        RMS BANDWIDTH   12.561\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       14        14\r\n                                        PROFILE (P)                       1341      1341\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           14        14\r\n                                        AVERAGE WAVEFRONT (C-AVG)       12.191    12.191\r\n                                        RMS WAVEFRONT (C-RMS)           12.468    12.468\r\n                                        RMS BANDWITCH (B-RMS)           12.561    12.561\r\n                                        NUMBER OF GRID POINTS (N)                    110\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                40\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          17\r\n                                        MINIMUM NODAL DEGREE                           7\r\n                                        NUMBER OF UNIQUE EDGES                       751\r\n                                        MATRIX DENSITY, PERCENT                   13.322\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA1    ELEMENTS (ELEMENT TYPE  41) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -7.8471834E-15\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0           -7.236303E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -2.220805E-08   0.0            0.0            0.0            0.0                           \r\n             4      G      0.0           -2.878438E-07   2.802273E-07   0.0            0.0            0.0                           \r\n             5      G      0.0            5.597231E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      0.0            4.899793E-07   7.203020E-07   0.0            0.0            0.0                           \r\n             7      G      0.0            1.508277E-06   0.0            0.0            0.0            0.0                           \r\n             8      G      0.0            1.768772E-06   1.210187E-06   0.0            0.0            0.0                           \r\n             9      G      0.0            2.579086E-06   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0            3.079503E-06   1.240823E-06   0.0            0.0            0.0                           \r\n            11      G      0.0            7.828518E-07   0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            4.831079E-07   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.847828E-06   9.493548E-07   0.0            0.0            0.0            0.0                           \r\n            14      G     -2.220059E-06   7.019580E-07   3.779402E-07   0.0            0.0            0.0                           \r\n            15      G     -3.847553E-06   1.508382E-06   0.0            0.0            0.0            0.0                           \r\n            16      G     -4.186309E-06   1.365887E-06   8.076747E-07   0.0            0.0            0.0                           \r\n            17      G     -5.980957E-06   2.368505E-06   0.0            0.0            0.0            0.0                           \r\n            18      G     -5.892221E-06   2.435727E-06   1.286841E-06   0.0            0.0            0.0                           \r\n            19      G     -9.563634E-06   3.828580E-06   0.0            0.0            0.0            0.0                           \r\n            20      G     -6.211963E-06   3.791745E-06   1.813249E-06   0.0            0.0            0.0                           \r\n            21      G      0.0            3.721138E-06   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0            3.496175E-06   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.840255E-06   3.920522E-06   0.0            0.0            0.0            0.0                           \r\n            24      G     -4.248565E-06   3.713418E-06   4.029023E-07   0.0            0.0            0.0                           \r\n            25      G     -7.868655E-06   4.490614E-06   0.0            0.0            0.0            0.0                           \r\n            26      G     -8.253402E-06   4.322316E-06   8.323428E-07   0.0            0.0            0.0                           \r\n            27      G     -1.221326E-05   5.452979E-06   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.193466E-05   5.342733E-06   1.287832E-06   0.0            0.0            0.0                           \r\n            29      G     -1.798615E-05   6.770431E-06   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.417472E-05   6.658906E-06   1.486481E-06   0.0            0.0            0.0                           \r\n            31      G      0.0            8.738137E-06   0.0            0.0            0.0            0.0                           \r\n            32      G      0.0            8.530267E-06   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.865585E-06   8.949984E-06   0.0            0.0            0.0            0.0                           \r\n            34      G     -6.276462E-06   8.749302E-06   4.060279E-07   0.0            0.0            0.0                           \r\n            35      G     -1.195537E-05   9.545230E-06   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.231907E-05   9.356126E-06   8.375354E-07   0.0            0.0            0.0                           \r\n            37      G     -1.836820E-05   1.050080E-05   0.0            0.0            0.0            0.0                           \r\n            38      G     -1.804433E-05   1.036518E-05   1.273038E-06   0.0            0.0            0.0                           \r\n            39      G     -2.621468E-05   1.179138E-05   0.0            0.0            0.0            0.0                           \r\n            40      G     -2.232071E-05   1.169130E-05   1.394593E-06   0.0            0.0            0.0                           \r\n            41      G      0.0            1.581650E-05   0.0            0.0            0.0            0.0                           \r\n            42      G      0.0            1.561344E-05   0.0            0.0            0.0            0.0                           \r\n            43      G     -7.903643E-06   1.603535E-05   0.0            0.0            0.0            0.0                           \r\n            44      G     -8.311622E-06   1.583155E-05   4.062445E-07   0.0            0.0            0.0                           \r\n            45      G     -1.603938E-05   1.663356E-05   0.0            0.0            0.0            0.0                           \r\n            46      G     -1.639610E-05   1.643881E-05   8.367012E-07   0.0            0.0            0.0                           \r\n            47      G     -2.450196E-05   1.758555E-05   0.0            0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -2.416898E-05   1.744821E-05   1.267842E-06   0.0            0.0            0.0                           \r\n            49      G     -3.440270E-05   1.887117E-05   0.0            0.0            0.0            0.0                           \r\n            50      G     -3.049380E-05   1.877862E-05   1.373055E-06   0.0            0.0            0.0                           \r\n            51      G      0.0            2.494817E-05   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            2.474773E-05   0.0            0.0            0.0            0.0                           \r\n            53      G     -9.941075E-06   2.516834E-05   0.0            0.0            0.0            0.0                           \r\n            54      G     -1.034769E-05   2.496247E-05   4.055171E-07   0.0            0.0            0.0                           \r\n            55      G     -2.011959E-05   2.576441E-05   0.0            0.0            0.0            0.0                           \r\n            56      G     -2.047524E-05   2.556668E-05   8.358465E-07   0.0            0.0            0.0                           \r\n            57      G     -3.063173E-05   2.671282E-05   0.0            0.0            0.0            0.0                           \r\n            58      G     -3.029779E-05   2.657510E-05   1.267082E-06   0.0            0.0            0.0                           \r\n            59      G     -4.258355E-05   2.799574E-05   0.0            0.0            0.0            0.0                           \r\n            60      G     -3.867095E-05   2.790772E-05   1.368984E-06   0.0            0.0            0.0                           \r\n            61      G      0.0            3.613058E-05   0.0            0.0            0.0            0.0                           \r\n            62      G      0.0            3.593479E-05   0.0            0.0            0.0            0.0                           \r\n            63      G     -1.197344E-05   3.635066E-05   0.0            0.0            0.0            0.0                           \r\n            64      G     -1.237863E-05   3.614348E-05   4.040002E-07   0.0            0.0            0.0                           \r\n            65      G     -2.419332E-05   3.694095E-05   0.0            0.0            0.0            0.0                           \r\n            66      G     -2.454928E-05   3.673978E-05   8.346207E-07   0.0            0.0            0.0                           \r\n            67      G     -3.676029E-05   3.788170E-05   0.0            0.0            0.0            0.0                           \r\n            68      G     -3.642750E-05   3.774329E-05   1.267979E-06   0.0            0.0            0.0                           \r\n            69      G     -5.077138E-05   3.916018E-05   0.0            0.0            0.0            0.0                           \r\n            70      G     -4.685427E-05   3.907730E-05   1.370512E-06   0.0            0.0            0.0                           \r\n            71      G      0.0            4.936553E-05   0.0            0.0            0.0            0.0                           \r\n            72      G      0.0            4.917779E-05   0.0            0.0            0.0            0.0                           \r\n            73      G     -1.399455E-05   4.958560E-05   0.0            0.0            0.0            0.0                           \r\n            74      G     -1.439835E-05   4.937762E-05   4.004611E-07   0.0            0.0            0.0                           \r\n            75      G     -2.825233E-05   5.016658E-05   0.0            0.0            0.0            0.0                           \r\n            76      G     -2.860983E-05   4.996204E-05   8.313656E-07   0.0            0.0            0.0                           \r\n            77      G     -4.288674E-05   5.109474E-05   0.0            0.0            0.0            0.0                           \r\n            78      G     -4.255546E-05   5.095637E-05   1.269488E-06   0.0            0.0            0.0                           \r\n            79      G     -5.898596E-05   5.236638E-05   0.0            0.0            0.0            0.0                           \r\n            80      G     -5.505293E-05   5.229194E-05   1.375944E-06   0.0            0.0            0.0                           \r\n            81      G      0.0            6.465213E-05   0.0            0.0            0.0            0.0                           \r\n            82      G      0.0            6.447650E-05   0.0            0.0            0.0            0.0                           \r\n            83      G     -1.599204E-05   6.487409E-05   0.0            0.0            0.0            0.0                           \r\n            84      G     -1.640083E-05   6.466798E-05   3.929152E-07   0.0            0.0            0.0                           \r\n            85      G     -3.228031E-05   6.544771E-05   0.0            0.0            0.0            0.0                           \r\n            86      G     -3.264940E-05   6.523987E-05   8.234044E-07   0.0            0.0            0.0                           \r\n            87      G     -4.900961E-05   6.636985E-05   0.0            0.0            0.0            0.0                           \r\n            88      G     -4.867631E-05   6.622972E-05   1.267805E-06   0.0            0.0            0.0                           \r\n            89      G     -6.727674E-05   6.764138E-05   0.0            0.0            0.0            0.0                           \r\n            90      G     -6.327896E-05   6.756941E-05   1.384972E-06   0.0            0.0            0.0                           \r\n            91      G      0.0            8.196688E-05   0.0            0.0            0.0            0.0                           \r\n            92      G      0.0            8.183186E-05   0.0            0.0            0.0            0.0                           \r\n            93      G     -1.794250E-05   8.219639E-05   0.0            0.0            0.0            0.0                           \r\n            94      G     -1.839103E-05   8.200815E-05   3.930135E-07   0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            95      G     -3.625804E-05   8.280518E-05   0.0            0.0            0.0            0.0                           \r\n            96      G     -3.666116E-05   8.258449E-05   8.181784E-07   0.0            0.0            0.0                           \r\n            97      G     -5.512622E-05   8.378747E-05   0.0            0.0            0.0            0.0                           \r\n            98      G     -5.479647E-05   8.356768E-05   1.243331E-06   0.0            0.0            0.0                           \r\n            99      G     -7.578575E-05   8.516679E-05   0.0            0.0            0.0            0.0                           \r\n           100      G     -7.152418E-05   8.495418E-05   1.372395E-06   0.0            0.0            0.0                           \r\n           101      G      0.0            1.011092E-04   0.0            0.0            0.0            0.0                           \r\n           102      G      0.0            1.013765E-04   0.0            0.0            0.0            0.0                           \r\n           103      G     -1.990230E-05   1.014986E-04   0.0            0.0            0.0            0.0                           \r\n           104      G     -2.037665E-05   1.013609E-04   5.232301E-07   0.0            0.0            0.0                           \r\n           105      G     -4.023005E-05   1.022861E-04   0.0            0.0            0.0            0.0                           \r\n           106      G     -4.064284E-05   1.019533E-04   9.452079E-07   0.0            0.0            0.0                           \r\n           107      G     -6.123682E-05   1.036613E-04   0.0            0.0            0.0            0.0                           \r\n           108      G     -6.085171E-05   1.029487E-04   1.108042E-06   0.0            0.0            0.0                           \r\n           109      G     -8.441132E-05   1.059195E-04   0.0            0.0            0.0            0.0                           \r\n           110      G     -7.993243E-05   1.042387E-04   7.041944E-07   0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           103      G     -5.818182E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           104      G     -5.818182E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           105      G     -1.163636E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           106      G     -1.163636E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           107      G     -1.745455E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           108      G     -1.745455E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           109      G     -1.163636E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           110      G     -1.163636E+01   0.0            0.0            0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.200193E-01  -4.328371E-12   3.076815E-01   0.0            0.0            0.0                           \r\n             2      G      2.355000E-01   0.0            4.435807E-01   0.0            0.0            0.0                           \r\n             3      G      5.076888E+00   0.0            5.005272E-01   0.0            0.0            0.0                           \r\n             4      G      7.243148E+00   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      1.102149E+01   0.0            6.664348E-01   0.0            0.0            0.0                           \r\n             6      G      1.306333E+01   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.721528E+01   0.0            1.560230E-01   0.0            0.0            0.0                           \r\n             8      G      1.747314E+01   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      1.613257E+01   0.0           -1.425851E+00   0.0            0.0            0.0                           \r\n            10      G      6.728694E+00   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -8.547883E-01   0.0           -1.664067E-01   0.0            0.0            0.0                           \r\n            12      G      9.104427E-01   0.0            4.051717E-01   0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            3.330743E-01   0.0            0.0            0.0                           \r\n            15      G      0.0            0.0            9.531790E-02   0.0            0.0            0.0                           \r\n            17      G      0.0            0.0           -6.038411E-01   0.0            0.0            0.0                           \r\n            19      G      0.0            0.0           -9.006622E-01   0.0            0.0            0.0                           \r\n            21      G     -9.155623E-01   0.0           -2.911960E-01   0.0            0.0            0.0                           \r\n            22      G      1.009436E+00   0.0            3.321466E-01   0.0            0.0            0.0                           \r\n            23      G      0.0            0.0           -2.410587E-02   0.0            0.0            0.0                           \r\n            25      G      0.0            0.0           -1.193371E-01   0.0            0.0            0.0                           \r\n            27      G      0.0            0.0           -3.702234E-02   0.0            0.0            0.0                           \r\n            29      G      0.0            0.0           -4.042901E-01   0.0            0.0            0.0                           \r\n            31      G     -9.644368E-01   0.0           -3.186193E-01   0.0            0.0            0.0                           \r\n            32      G      1.001274E+00   0.0            3.225394E-01   0.0            0.0            0.0                           \r\n            33      G      0.0            0.0           -5.361385E-02   0.0            0.0            0.0                           \r\n            35      G      0.0            0.0           -1.145025E-01   0.0            0.0            0.0                           \r\n            37      G      0.0            0.0            1.953256E-01   0.0            0.0            0.0                           \r\n            39      G      0.0            0.0           -2.194339E-01   0.0            0.0            0.0                           \r\n            41      G     -9.878631E-01   0.0           -3.234900E-01   0.0            0.0            0.0                           \r\n            42      G      9.854240E-01   0.0            3.239129E-01   0.0            0.0            0.0                           \r\n            43      G      0.0            0.0           -4.480178E-02   0.0            0.0            0.0                           \r\n            45      G      0.0            0.0           -9.384078E-02   0.0            0.0            0.0                           \r\n            47      G      0.0            0.0            2.601616E-01   0.0            0.0            0.0                           \r\n            49      G      0.0            0.0           -1.721291E-01   0.0            0.0            0.0                           \r\n            51      G     -9.992784E-01   0.0           -3.221905E-01   0.0            0.0            0.0                           \r\n            52      G      9.662942E-01   0.0            3.227056E-01   0.0            0.0            0.0                           \r\n            53      G      0.0            0.0           -3.672881E-02   0.0            0.0            0.0                           \r\n            55      G      0.0            0.0           -8.623786E-02   0.0            0.0            0.0                           \r\n            57      G      0.0            0.0            2.728207E-01   0.0            0.0            0.0                           \r\n            59      G      0.0            0.0           -1.605400E-01   0.0            0.0            0.0                           \r\n            61      G     -1.018168E+00   0.0           -3.201928E-01   0.0            0.0            0.0                           \r\n            62      G      9.349450E-01   0.0            3.179084E-01   0.0            0.0            0.0                           \r\n            63      G      0.0            0.0           -2.760579E-02   0.0            0.0            0.0                           \r\n            65      G      0.0            0.0           -8.333493E-02   0.0            0.0            0.0                           \r\n            67      G      0.0            0.0            2.696600E-01   0.0            0.0            0.0                           \r\n            69      G      0.0            0.0           -1.578923E-01   0.0            0.0            0.0                           \r\n            71      G     -1.050108E+00   0.0           -3.179487E-01   0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            72      G      8.823858E-01   0.0            3.099854E-01   0.0            0.0            0.0                           \r\n            73      G      0.0            0.0           -8.672502E-03   0.0            0.0            0.0                           \r\n            75      G      0.0            0.0           -7.274164E-02   0.0            0.0            0.0                           \r\n            77      G      0.0            0.0            2.596842E-01   0.0            0.0            0.0                           \r\n            79      G      0.0            0.0           -1.692700E-01   0.0            0.0            0.0                           \r\n            81      G     -1.096077E+00   0.0           -3.183673E-01   0.0            0.0            0.0                           \r\n            82      G      8.210829E-01   0.0            3.028427E-01   0.0            0.0            0.0                           \r\n            83      G      0.0            0.0            3.378375E-02   0.0            0.0            0.0                           \r\n            85      G      0.0            0.0           -4.628116E-02   0.0            0.0            0.0                           \r\n            87      G      0.0            0.0            2.737601E-01   0.0            0.0            0.0                           \r\n            89      G      0.0            0.0           -2.570263E-01   0.0            0.0            0.0                           \r\n            91      G     -1.093214E+00   0.0           -3.496839E-01   0.0            0.0            0.0                           \r\n            92      G      8.544708E-01   0.0            2.707089E-01   0.0            0.0            0.0                           \r\n            93      G      0.0            0.0           -1.200761E-02   0.0            0.0            0.0                           \r\n            95      G      0.0            0.0           -1.059262E-01   0.0            0.0            0.0                           \r\n            97      G      0.0            0.0            3.824981E-01   0.0            0.0            0.0                           \r\n            99      G      0.0            0.0            5.936363E-03   0.0            0.0            0.0                           \r\n           101      G     -5.077267E-01   0.0           -4.601036E-01   0.0            0.0            0.0                           \r\n           102      G      3.423530E-01   0.0           -3.337049E-01   0.0            0.0            0.0                           \r\n           103      G      0.0            0.0           -1.268459E+00   0.0            0.0            0.0                           \r\n           105      G      0.0            0.0           -9.431822E-01   0.0            0.0            0.0                           \r\n           107      G      0.0            0.0            1.654901E+00   0.0            0.0            0.0                           \r\n           109      G      0.0            0.0            2.152148E+00   0.0            0.0            0.0                           \r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n \r\n                    S T R E S S E S   I N   S O L I D   H E X A H E D R O N   E L E M E N T S   ( C H E X A 1 )\r\n \r\n                                                                                                           OCTAHEDRAL    PRESSURE\r\n      ELEMENT-ID        SIGMA-XX      SIGMA-YY      SIGMA-ZZ       TAU-YZ        TAU-XZ        TAU-XY        TAU-0          P\r\n               1     -1.576126E+00  2.958350E-02 -5.028161E-02 -1.336058E-01 -2.204831E-01 -1.107740E-02  7.682881E-01  5.322748E-01\r\n               2     -4.543242E+00  3.648633E-02 -8.283961E-02  2.509910E-02 -2.434309E-01 -4.949611E-02  2.141064E+00  1.529865E+00\r\n               3     -7.392510E+00  5.535716E-02  4.060616E-02  1.625120E-01 -1.629294E-01 -6.108123E-02  3.512870E+00  2.432183E+00\r\n               4     -9.955628E+00 -1.071121E-01  1.310855E-01  2.671177E-01  4.647440E-01  1.216547E-01  4.721166E+00  3.310552E+00\r\n               5     -1.614058E+00 -1.360381E-02 -2.959606E-02 -2.806550E-02 -2.868141E-01 -3.302363E-02  7.871940E-01  5.524191E-01\r\n               6     -4.534679E+00 -4.400611E-03 -3.028661E-05  1.496398E-02 -3.943402E-01 -8.965731E-03  2.160795E+00  1.513037E+00\r\n               7     -7.494325E+00 -4.297674E-02  7.008879E-02  9.484351E-02 -2.210109E-01  3.158975E-02  3.545087E+00  2.489071E+00\r\n               8     -9.838358E+00  8.677578E-02  2.116143E-01  5.691540E-02  9.494026E-01  1.039982E-02  4.772072E+00  3.179989E+00\r\n               9     -1.629150E+00 -9.889126E-03 -2.406824E-02 -4.046082E-03 -2.964836E-01 -1.670873E-02  7.977528E-01  5.543692E-01\r\n              10     -4.570040E+00 -2.057052E-02  1.168949E-02  1.659775E-02 -4.123003E-01  1.732588E-03  2.178495E+00  1.526307E+00\r\n              11     -7.469863E+00 -1.516819E-03  8.975640E-02  4.351068E-02 -1.920817E-01  8.438945E-03  3.545976E+00  2.460541E+00\r\n              12     -9.835840E+00  1.328111E-02  6.658131E-02 -2.788568E-02  1.084055E+00  6.535530E-03  4.738986E+00  3.251992E+00\r\n              13     -1.635826E+00 -6.270885E-03 -2.379012E-02 -1.618862E-04 -2.977535E-01 -3.914356E-03  8.018350E-01  5.552958E-01\r\n              14     -4.574477E+00 -1.008272E-02  1.539746E-02  1.164985E-02 -4.086206E-01 -5.950620E-04  2.183370E+00  1.523054E+00\r\n              15     -7.469188E+00 -5.460739E-03  8.519366E-02  3.230429E-02 -1.791415E-01  1.183987E-03  3.543114E+00  2.463152E+00\r\n              16     -9.834611E+00  4.434586E-04  2.182162E-02 -3.874397E-02  1.115780E+00  3.325701E-03  4.730010E+00  3.270782E+00\r\n              17     -1.635057E+00 -4.718781E-03 -2.363586E-02 -3.643036E-04 -2.972760E-01  3.789663E-03  8.017595E-01  5.544707E-01\r\n              18     -4.573621E+00 -1.023674E-02  1.482880E-02  8.808613E-03 -4.068058E-01  4.512072E-04  2.182567E+00  1.523010E+00\r\n              19     -7.469590E+00 -8.566856E-03  8.218201E-02  3.012180E-02 -1.759400E-01 -2.728760E-03  3.541744E+00  2.465325E+00\r\n              20     -9.835216E+00 -2.504349E-03  1.090306E-02 -3.910828E-02  1.122833E+00 -1.512051E-03  4.728192E+00  3.275605E+00\r\n              21     -1.631439E+00 -6.843567E-03 -2.427769E-02 -3.600121E-04 -2.965500E-01  1.356506E-02  7.993981E-01  5.541866E-01\r\n              22     -4.567224E+00 -1.629066E-02  1.332760E-02  6.801605E-03 -4.063549E-01  3.351927E-03  2.177777E+00  1.523396E+00\r\n              23     -7.466712E+00 -1.474380E-02  8.104759E-02  2.894688E-02 -1.761217E-01 -8.238822E-03  3.538694E+00  2.466803E+00\r\n              24     -9.839874E+00 -5.101204E-03  9.043336E-03 -3.794003E-02  1.124380E+00 -8.681178E-03  4.729559E+00  3.278644E+00\r\n              25     -1.623712E+00 -1.071739E-02 -2.565479E-02  2.574921E-04 -2.955208E-01  2.999973E-02  7.947855E-01  5.533614E-01\r\n              26     -4.551358E+00 -2.662277E-02  1.085758E-02  4.893303E-03 -4.065099E-01  9.416103E-03  2.167452E+00  1.522375E+00\r\n              27     -7.457133E+00 -2.575684E-02  8.031261E-02  2.830219E-02 -1.779594E-01 -1.707709E-02  3.531545E+00  2.467526E+00\r\n              28     -9.852229E+00 -1.009560E-02  9.496182E-03 -3.508854E-02  1.125708E+00 -2.233887E-02  4.734452E+00  3.284276E+00\r\n              29     -1.609839E+00 -1.332092E-02 -2.805901E-02  1.757622E-03 -2.951562E-01  5.622578E-02  7.883039E-01  5.504064E-01\r\n              30     -4.520524E+00 -3.636932E-02  6.625652E-03  3.610611E-03 -4.099102E-01  1.980495E-02  2.150327E+00  1.516756E+00\r\n              31     -7.433674E+00 -3.355980E-02  7.936215E-02  2.889347E-02 -1.827412E-01 -2.927661E-02  3.518691E+00  2.462624E+00\r\n              32     -9.878480E+00 -1.687431E-02  9.097576E-03 -3.086185E-02  1.133265E+00 -4.675579E-02  4.746234E+00  3.295419E+00\r\n              33     -1.591774E+00 -8.911133E-03 -2.540112E-02  1.225471E-02 -2.982492E-01  8.828449E-02  7.846181E-01  5.420286E-01\r\n              34     -4.463443E+00 -1.529312E-02  1.390314E-02  6.919861E-03 -4.217277E-01  3.219414E-02  2.131957E+00  1.488278E+00\r\n              35     -7.395667E+00 -2.238846E-02  7.124901E-02  1.391411E-02 -1.976213E-01 -4.557657E-02  3.502012E+00  2.448936E+00\r\n              36     -9.922865E+00  2.910614E-03 -6.815434E-03 -5.610466E-02  1.165877E+00 -7.490349E-02  4.773274E+00  3.308923E+00\r\n              37     -1.575201E+00  4.468918E-02  5.376720E-02  1.180191E-01 -2.816248E-01  8.877182E-02  8.085924E-01  4.922483E-01\r\n              38     -4.399051E+00  1.033859E-01  1.453304E-01  1.848793E-02 -3.961353E-01  3.708935E-02  2.157080E+00  1.383445E+00\r\n              39     -7.320324E+00  9.962082E-02  6.610298E-02 -1.196098E-01 -2.058382E-01 -3.526402E-02  3.495450E+00  2.384867E+00\r\n              40     -1.001950E+01  3.826904E-02 -4.023714E-01 -4.855537E-01  1.083998E+00 -9.059048E-02  4.741730E+00  3.461200E+00\r\n1     1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                                                                                   \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.           \r\n DATE:  5/17/95\r\n END TIME: 14:58:22\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01091a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01091A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1,3                                                                       \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY                                                                                                        \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS.       \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                          \r\n                  3      LABEL    = TWO PLANES OF SYMMETRY                                               \r\n                  4      SPC = 2                                                                         \r\n                  5         OUTPUT                                                                       \r\n                  6              DISPLACEMENTS = ALL                                                     \r\n                  7              OLOAD = ALL                                                             \r\n                  8      SUBCASE 1                                                                       \r\n                  9              LOAD = 20                                                               \r\n                 10              LABEL = UNIFORM STRESS.                                                 \r\n                 11              SPCFORCE = ALL                                                          \r\n                 12              STRESS = ALL                                                            \r\n                 13      SUBCASE 2                                                                       \r\n                 14              TEMPERATURE(LOAD) = 30                                                  \r\n                 15              LABEL = UNIFORM TEMPERATURE LOAD.                                       \r\n                 16      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   206, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY                                                                                                        \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHEXA2  1       1       1       2       5       4       10      11      +HEX   1\r\n                    2-        +HEX   114      13                                                              \r\n                    3-        CHEXA2  2       1       2       3       6       5       11      12      +HEX   2\r\n                    4-        +HEX   215      14                                                              \r\n                    5-        CHEXA2  3       1       4       5       8       7       13      14      +HEX   3\r\n                    6-        +HEX   317      16                                                              \r\n                    7-        CHEXA2  4       1       5       6       9       8       14      15      +HEX   4\r\n                    8-        +HEX   418      17                                                              \r\n                    9-        CHEXA2  5       1       10      11      14      13      19      20      +HEX   5\r\n                   10-        +HEX   523      22                                                              \r\n                   11-        CHEXA2  6       1       11      12      15      14      20      21      +HEX   6\r\n                   12-        +HEX   624      23                                                              \r\n                   13-        CHEXA2  7       1       13      14      17      16      22      23      +HEX   7\r\n                   14-        +HEX   726      25                                                              \r\n                   15-        CHEXA2  8       1       14      15      18      17      23      24      +HEX   8\r\n                   16-        +HEX   827      26                                                              \r\n                   17-        CHEXA2  9       1       19      20      23      22      28      29      +HEX   9\r\n                   18-        +HEX   932      31                                                              \r\n                   19-        CHEXA2  10      1       20      21      24      23      29      30      +HEX  10\r\n                   20-        +HEX  1033      32                                                              \r\n                   21-        CHEXA2  11      1       22      23      26      25      31      32      +HEX  11\r\n                   22-        +HEX  1135      34                                                              \r\n                   23-        CHEXA2  12      1       23      24      27      26      32      33      +HEX  12\r\n                   24-        +HEX  1236      35                                                              \r\n                   25-        CHEXA2  13      1       28      29      32      31      37      38      +HEX  13\r\n                   26-        +HEX  1341      40                                                              \r\n                   27-        CHEXA2  14      1       29      30      33      32      38      39      +HEX  14\r\n                   28-        +HEX  1442      41                                                              \r\n                   29-        CHEXA2  15      1       31      32      35      34      40      41      +HEX  15\r\n                   30-        +HEX  1544      43                                                              \r\n                   31-        CHEXA2  16      1       32      33      36      35      41      42      +HEX  16\r\n                   32-        +HEX  1645      44                                                              \r\n                   33-        CHEXA2  17      1       37      38      41      40      46      47      +HEX  17\r\n                   34-        +HEX  1750      49                                                              \r\n                   35-        CHEXA2  18      1       38      39      42      41      47      48      +HEX  18\r\n                   36-        +HEX  1851      50                                                              \r\n                   37-        CHEXA2  19      1       40      41      44      43      49      50      +HEX  19\r\n                   38-        +HEX  1953      52                                                              \r\n                   39-        CHEXA2  20      1       41      42      45      44      50      51      +HEX  20\r\n                   40-        +HEX  2054      53                                                              \r\n                   41-        CHEXA2  21      1       46      47      50      49      55      56      +HEX  21\r\n                   42-        +HEX  2159      58                                                              \r\n                   43-        CHEXA2  22      1       47      48      51      50      56      57      +HEX  22\r\n                   44-        +HEX  2260      59                                                              \r\n                   45-        CHEXA2  23      1       49      50      53      52      58      59      +HEX  23\r\n                   46-        +HEX  2362      61                                                              \r\n                   47-        CHEXA2  24      1       50      51      54      53      59      60      +HEX  24\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +HEX  2463      62                                                              \r\n                   49-        CHEXA2  25      1       55      56      59      58      64      65      +HEX  25\r\n                   50-        +HEX  2568      67                                                              \r\n                   51-        CHEXA2  26      1       56      57      60      59      65      66      +HEX  26\r\n                   52-        +HEX  2669      68                                                              \r\n                   53-        CHEXA2  27      1       58      59      62      61      67      68      +HEX  27\r\n                   54-        +HEX  2771      70                                                              \r\n                   55-        CHEXA2  28      1       59      60      63      62      68      69      +HEX  28\r\n                   56-        +HEX  2872      71                                                              \r\n                   57-        CHEXA2  29      1       64      65      68      67      73      74      +HEX  29\r\n                   58-        +HEX  2977      76                                                              \r\n                   59-        CHEXA2  30      1       65      66      69      68      74      75      +HEX  30\r\n                   60-        +HEX  3078      77                                                              \r\n                   61-        CHEXA2  31      1       67      68      71      70      76      77      +HEX  31\r\n                   62-        +HEX  3180      79                                                              \r\n                   63-        CHEXA2  32      1       68      69      72      71      77      78      +HEX  32\r\n                   64-        +HEX  3281      80                                                              \r\n                   65-        CHEXA2  33      1       73      74      77      76      82      83      +HEX  33\r\n                   66-        +HEX  3386      85                                                              \r\n                   67-        CHEXA2  34      1       74      75      78      77      83      84      +HEX  34\r\n                   68-        +HEX  3487      86                                                              \r\n                   69-        CHEXA2  35      1       76      77      80      79      85      86      +HEX  35\r\n                   70-        +HEX  3589      88                                                              \r\n                   71-        CHEXA2  36      1       77      78      81      80      86      87      +HEX  36\r\n                   72-        +HEX  3690      89                                                              \r\n                   73-        CHEXA2  37      1       82      83      86      85      91      92      +HEX  37\r\n                   74-        +HEX  3795      94                                                              \r\n                   75-        CHEXA2  38      1       83      84      87      86      92      93      +HEX  38\r\n                   76-        +HEX  3896      95                                                              \r\n                   77-        CHEXA2  39      1       85      86      89      88      94      95      +HEX  39\r\n                   78-        +HEX  3998      97                                                              \r\n                   79-        CHEXA2  40      1       86      87      90      89      95      96      +HEX  40\r\n                   80-        +HEX  4099      98                                                              \r\n                   81-        CNGRNT  1       2       THRU    40                                              \r\n                   82-        FORCE1  20      91      .375+3  82      91                                      \r\n                   83-        FORCE1  20      92      .75+3   83      92                                      \r\n                   84-        FORCE1  20      93      .375+3  84      93                                      \r\n                   85-        FORCE1  20      94      .75+3   85      94                                      \r\n                   86-        FORCE1  20      95      1.5+3   86      95                                      \r\n                   87-        FORCE1  20      96      .75+3   87      96                                      \r\n                   88-        FORCE1  20      97      .375+3  88      97                                      \r\n                   89-        FORCE1  20      98      .75+3   89      98                                      \r\n                   90-        FORCE1  20      99      .375+3  90      99                                      \r\n                   91-        GRID    1               0.0     0.0     0.0             456                     \r\n                   92-        GRID    2               0.0     0.0     1.00000         456                     \r\n                   93-        GRID    3               0.0     0.0     2.00000         456                     \r\n                   94-        GRID    4               0.0     1.00000 0.0             456                     \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    5               0.0     1.00000 1.00000         456                     \r\n                   96-        GRID    6               0.0     1.00000 2.00000         456                     \r\n                   97-        GRID    7               0.0     2.00000 0.0             456                     \r\n                   98-        GRID    8               0.0     2.00000 1.00000         456                     \r\n                   99-        GRID    9               0.0     2.00000 2.00000         456                     \r\n                  100-        GRID    10              -2.000000.0     0.0             456                     \r\n                  101-        GRID    11              -2.000000.0     1.00000         456                     \r\n                  102-        GRID    12              -2.000000.0     2.00000         456                     \r\n                  103-        GRID    13              -2.000001.00000 0.0             456                     \r\n                  104-        GRID    14              -2.000001.00000 1.00000         456                     \r\n                  105-        GRID    15              -2.000001.00000 2.00000         456                     \r\n                  106-        GRID    16              -2.000002.00000 0.0             456                     \r\n                  107-        GRID    17              -2.000002.00000 1.00000         456                     \r\n                  108-        GRID    18              -2.000002.00000 2.00000         456                     \r\n                  109-        GRID    19              -4.000000.0     0.0             456                     \r\n                  110-        GRID    20              -4.000000.0     1.00000         456                     \r\n                  111-        GRID    21              -4.000000.0     2.00000         456                     \r\n                  112-        GRID    22              -4.000001.00000 0.0             456                     \r\n                  113-        GRID    23              -4.000001.00000 1.00000         456                     \r\n                  114-        GRID    24              -4.000001.00000 2.00000         456                     \r\n                  115-        GRID    25              -4.000002.00000 0.0             456                     \r\n                  116-        GRID    26              -4.000002.00000 1.00000         456                     \r\n                  117-        GRID    27              -4.000002.00000 2.00000         456                     \r\n                  118-        GRID    28              -6.000000.0     0.0             456                     \r\n                  119-        GRID    29              -6.000000.0     1.00000         456                     \r\n                  120-        GRID    30              -6.000000.0     2.00000         456                     \r\n                  121-        GRID    31              -6.000001.00000 0.0             456                     \r\n                  122-        GRID    32              -6.000001.00000 1.00000         456                     \r\n                  123-        GRID    33              -6.000001.00000 2.00000         456                     \r\n                  124-        GRID    34              -6.000002.00000 0.0             456                     \r\n                  125-        GRID    35              -6.000002.00000 1.00000         456                     \r\n                  126-        GRID    36              -6.000002.00000 2.00000         456                     \r\n                  127-        GRID    37              -8.000000.0     0.0             456                     \r\n                  128-        GRID    38              -8.000000.0     1.00000         456                     \r\n                  129-        GRID    39              -8.000000.0     2.00000         456                     \r\n                  130-        GRID    40              -8.000001.00000 0.0             456                     \r\n                  131-        GRID    41              -8.000001.00000 1.00000         456                     \r\n                  132-        GRID    42              -8.000001.00000 2.00000         456                     \r\n                  133-        GRID    43              -8.000002.00000 0.0             456                     \r\n                  134-        GRID    44              -8.000002.00000 1.00000         456                     \r\n                  135-        GRID    45              -8.000002.00000 2.00000         456                     \r\n                  136-        GRID    46              -10.00000.0     0.0             456                     \r\n                  137-        GRID    47              -10.00000.0     1.00000         456                     \r\n                  138-        GRID    48              -10.00000.0     2.00000         456                     \r\n                  139-        GRID    49              -10.00001.00000 0.0             456                     \r\n                  140-        GRID    50              -10.00001.00000 1.00000         456                     \r\n                  141-        GRID    51              -10.00001.00000 2.00000         456                     \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    52              -10.00002.00000 0.0             456                     \r\n                  143-        GRID    53              -10.00002.00000 1.00000         456                     \r\n                  144-        GRID    54              -10.00002.00000 2.00000         456                     \r\n                  145-        GRID    55              -12.00000.0     0.0             456                     \r\n                  146-        GRID    56              -12.00000.0     1.00000         456                     \r\n                  147-        GRID    57              -12.00000.0     2.00000         456                     \r\n                  148-        GRID    58              -12.00001.00000 0.0             456                     \r\n                  149-        GRID    59              -12.00001.00000 1.00000         456                     \r\n                  150-        GRID    60              -12.00001.00000 2.00000         456                     \r\n                  151-        GRID    61              -12.00002.00000 0.0             456                     \r\n                  152-        GRID    62              -12.00002.00000 1.00000         456                     \r\n                  153-        GRID    63              -12.00002.00000 2.00000         456                     \r\n                  154-        GRID    64              -14.00000.0     0.0             456                     \r\n                  155-        GRID    65              -14.00000.0     1.00000         456                     \r\n                  156-        GRID    66              -14.00000.0     2.00000         456                     \r\n                  157-        GRID    67              -14.00001.00000 0.0             456                     \r\n                  158-        GRID    68              -14.00001.00000 1.00000         456                     \r\n                  159-        GRID    69              -14.00001.00000 2.00000         456                     \r\n                  160-        GRID    70              -14.00002.00000 0.0             456                     \r\n                  161-        GRID    71              -14.00002.00000 1.00000         456                     \r\n                  162-        GRID    72              -14.00002.00000 2.00000         456                     \r\n                  163-        GRID    73              -16.00000.0     0.0             456                     \r\n                  164-        GRID    74              -16.00000.0     1.00000         456                     \r\n                  165-        GRID    75              -16.00000.0     2.00000         456                     \r\n                  166-        GRID    76              -16.00001.00000 0.0             456                     \r\n                  167-        GRID    77              -16.00001.00000 1.00000         456                     \r\n                  168-        GRID    78              -16.00001.00000 2.00000         456                     \r\n                  169-        GRID    79              -16.00002.00000 0.0             456                     \r\n                  170-        GRID    80              -16.00002.00000 1.00000         456                     \r\n                  171-        GRID    81              -16.00002.00000 2.00000         456                     \r\n                  172-        GRID    82              -18.00000.0     0.0             456                     \r\n                  173-        GRID    83              -18.00000.0     1.00000         456                     \r\n                  174-        GRID    84              -18.00000.0     2.00000         456                     \r\n                  175-        GRID    85              -18.00001.00000 0.0             456                     \r\n                  176-        GRID    86              -18.00001.00000 1.00000         456                     \r\n                  177-        GRID    87              -18.00001.00000 2.00000         456                     \r\n                  178-        GRID    88              -18.00002.00000 0.0             456                     \r\n                  179-        GRID    89              -18.00002.00000 1.00000         456                     \r\n                  180-        GRID    90              -18.00002.00000 2.00000         456                     \r\n                  181-        GRID    91              -20.00000.0     0.0             456                     \r\n                  182-        GRID    92              -20.00000.0     1.00000         456                     \r\n                  183-        GRID    93              -20.00000.0     2.00000         456                     \r\n                  184-        GRID    94              -20.00001.00000 0.0             456                     \r\n                  185-        GRID    95              -20.00001.00000 1.00000         456                     \r\n                  186-        GRID    96              -20.00001.00000 2.00000         456                     \r\n                  187-        GRID    97              -20.00002.00000 0.0             456                     \r\n                  188-        GRID    98              -20.00002.00000 1.00000         456                     \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    99              -20.00002.00000 2.00000         456                     \r\n                  190-        MAT1    1       3.0+6           .2      1.0     .001    10.0            +MAT1   \r\n                  191-        SPC1    100     1       1       2       3       4       5       6               \r\n                  192-        SPC1    100     1       7       8       9                                       \r\n                  193-        SPC1    100     2       1       2       3                                       \r\n                  194-        SPC1    103     3       1       4       7       10      13      16      +1SPC103\r\n                  195-        +1SPC10319      22      25      28      31      34      37      40      +2SPC103\r\n                  196-        +2SPC10343      46      49      52      55      58      61      64      +3SPC103\r\n                  197-        +3SPC10367      70      73      76      79      82      85      88      +4SPC103\r\n                  198-        +4SPC10391      94      97                                                      \r\n                  199-        SPC1    104     2       1       2       3       10      11      12              \r\n                  200-        SPC1    104     2       19      20      21      28      29      30              \r\n                  201-        SPC1    104     2       37      38      39      46      47      48              \r\n                  202-        SPC1    104     2       55      56      57      64      65      66              \r\n                  203-        SPC1    104     2       73      74      75      82      83      84              \r\n                  204-        SPC1    104     2       91      92      93                                      \r\n                  205-        SPCADD  2       100     104     103                                             \r\n                  206-        TEMPD   30      60.0                                                            \r\n                              ENDDATA\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     TWO PLANES OF SYMMETRY                                                                                                        \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE           1173\r\n                                        MAX WAVEFRONT       14\r\n                                        AVG WAVEFRONT   11.848\r\n                                        RMS WAVEFRONT   12.148\r\n                                        RMS BANDWIDTH   12.219\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           15\r\n                                        PROFILE           1206\r\n                                        MAX WAVEFRONT       15\r\n                                        AVG WAVEFRONT   12.182\r\n                                        RMS WAVEFRONT   12.523\r\n                                        RMS BANDWIDTH   12.560\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       14        14\r\n                                        PROFILE (P)                       1173      1173\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           14        14\r\n                                        AVERAGE WAVEFRONT (C-AVG)       11.848    11.848\r\n                                        RMS WAVEFRONT (C-RMS)           12.148    12.148\r\n                                        RMS BANDWITCH (B-RMS)           12.219    12.219\r\n                                        NUMBER OF GRID POINTS (N)                     99\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                40\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          26\r\n                                        MINIMUM NODAL DEGREE                           7\r\n                                        NUMBER OF UNIQUE EDGES                       710\r\n                                        MATRIX DENSITY, PERCENT                   15.498\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA2    ELEMENTS (ELEMENT TYPE  42) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   4.1212456E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   1.0547864E-16\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n             4      G      0.0           -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n             6      G      0.0           -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n             7      G      0.0           -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n             8      G      0.0           -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n             9      G      0.0           -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            10      G     -1.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -1.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            12      G     -1.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            13      G     -1.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            14      G     -1.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            15      G     -1.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            16      G     -1.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            18      G     -1.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            19      G     -2.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G     -2.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            21      G     -2.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            22      G     -2.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            24      G     -2.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            25      G     -2.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            27      G     -2.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            28      G     -3.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G     -3.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            30      G     -3.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            31      G     -3.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            33      G     -3.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            34      G     -3.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            36      G     -3.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            37      G     -4.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            38      G     -4.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            39      G     -4.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            40      G     -4.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            41      G     -4.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            42      G     -4.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            43      G     -4.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            44      G     -4.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            45      G     -4.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            46      G     -5.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            47      G     -5.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -5.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            49      G     -5.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            50      G     -5.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            51      G     -5.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            52      G     -5.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            54      G     -5.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            55      G     -6.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            56      G     -6.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            57      G     -6.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            58      G     -6.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            59      G     -6.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            60      G     -6.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            61      G     -6.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            62      G     -6.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            63      G     -6.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            64      G     -7.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            65      G     -7.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            66      G     -7.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            67      G     -7.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            68      G     -7.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            69      G     -7.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            70      G     -7.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            71      G     -7.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            72      G     -7.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            73      G     -8.000000E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            74      G     -8.000000E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            75      G     -8.000000E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            76      G     -8.000000E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            77      G     -8.000000E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            78      G     -8.000000E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            79      G     -8.000000E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            80      G     -8.000000E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            81      G     -8.000000E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            82      G     -9.000001E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            83      G     -9.000001E-03   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            84      G     -9.000001E-03   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            85      G     -9.000001E-03  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n            86      G     -9.000001E-03  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            87      G     -9.000001E-03  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            88      G     -9.000001E-03  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            89      G     -9.000001E-03  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            90      G     -9.000001E-03  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            91      G     -1.000000E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            92      G     -1.000000E-02   0.0           -1.000000E-04   0.0            0.0            0.0                           \r\n            93      G     -1.000000E-02   0.0           -2.000000E-04   0.0            0.0            0.0                           \r\n            94      G     -1.000000E-02  -1.000000E-04   0.0            0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            95      G     -1.000000E-02  -1.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            96      G     -1.000000E-02  -1.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n            97      G     -1.000000E-02  -2.000000E-04   0.0            0.0            0.0            0.0                           \r\n            98      G     -1.000000E-02  -2.000000E-04  -1.000000E-04   0.0            0.0            0.0                           \r\n            99      G     -1.000000E-02  -2.000000E-04  -2.000000E-04   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            5.000001E-02   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            1.000000E-01   0.0            0.0            0.0                           \r\n             4      G      0.0            5.000001E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            5.000001E-02   5.000001E-02   0.0            0.0            0.0                           \r\n             6      G      0.0            5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n             7      G      0.0            1.000000E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      0.0            1.000000E-01   5.000001E-02   0.0            0.0            0.0                           \r\n             9      G      0.0            1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            10      G     -1.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -1.000000E-01   0.0            5.000001E-02   0.0            0.0            0.0                           \r\n            12      G     -1.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            13      G     -1.000000E-01   5.000001E-02   0.0            0.0            0.0            0.0                           \r\n            14      G     -1.000000E-01   5.000001E-02   5.000001E-02   0.0            0.0            0.0                           \r\n            15      G     -1.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            16      G     -1.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.000000E-01   1.000000E-01   5.000001E-02   0.0            0.0            0.0                           \r\n            18      G     -1.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            19      G     -2.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G     -2.000000E-01   0.0            5.000001E-02   0.0            0.0            0.0                           \r\n            21      G     -2.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            22      G     -2.000000E-01   5.000000E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.000000E-01   5.000000E-02   5.000001E-02   0.0            0.0            0.0                           \r\n            24      G     -2.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            25      G     -2.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.000000E-01   1.000000E-01   5.000000E-02   0.0            0.0            0.0                           \r\n            27      G     -2.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            28      G     -3.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G     -3.000000E-01   0.0            5.000000E-02   0.0            0.0            0.0                           \r\n            30      G     -3.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            31      G     -3.000000E-01   5.000001E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.000000E-01   5.000001E-02   5.000001E-02   0.0            0.0            0.0                           \r\n            33      G     -3.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            34      G     -3.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.000000E-01   1.000000E-01   5.000001E-02   0.0            0.0            0.0                           \r\n            36      G     -3.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            37      G     -4.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            38      G     -4.000000E-01   0.0            5.000001E-02   0.0            0.0            0.0                           \r\n            39      G     -4.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            40      G     -4.000000E-01   5.000000E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -4.000000E-01   5.000000E-02   5.000001E-02   0.0            0.0            0.0                           \r\n            42      G     -4.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            43      G     -4.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            44      G     -4.000000E-01   1.000000E-01   5.000001E-02   0.0            0.0            0.0                           \r\n            45      G     -4.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            46      G     -5.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            47      G     -5.000000E-01   0.0            5.000001E-02   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -5.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            49      G     -5.000000E-01   5.000001E-02   0.0            0.0            0.0            0.0                           \r\n            50      G     -5.000000E-01   5.000001E-02   5.000001E-02   0.0            0.0            0.0                           \r\n            51      G     -5.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            52      G     -5.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.000000E-01   1.000000E-01   5.000001E-02   0.0            0.0            0.0                           \r\n            54      G     -5.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            55      G     -6.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            56      G     -6.000000E-01   0.0            5.000000E-02   0.0            0.0            0.0                           \r\n            57      G     -6.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            58      G     -6.000000E-01   5.000000E-02   0.0            0.0            0.0            0.0                           \r\n            59      G     -6.000000E-01   5.000000E-02   5.000000E-02   0.0            0.0            0.0                           \r\n            60      G     -6.000000E-01   5.000000E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            61      G     -6.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            62      G     -6.000000E-01   1.000000E-01   5.000000E-02   0.0            0.0            0.0                           \r\n            63      G     -6.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            64      G     -7.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            65      G     -7.000000E-01   0.0            5.000000E-02   0.0            0.0            0.0                           \r\n            66      G     -7.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            67      G     -7.000000E-01   5.000000E-02   0.0            0.0            0.0            0.0                           \r\n            68      G     -7.000000E-01   5.000000E-02   5.000000E-02   0.0            0.0            0.0                           \r\n            69      G     -7.000000E-01   5.000000E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            70      G     -7.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            71      G     -7.000000E-01   1.000000E-01   5.000000E-02   0.0            0.0            0.0                           \r\n            72      G     -7.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            73      G     -8.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            74      G     -8.000000E-01   0.0            5.000000E-02   0.0            0.0            0.0                           \r\n            75      G     -8.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            76      G     -8.000000E-01   5.000000E-02   0.0            0.0            0.0            0.0                           \r\n            77      G     -8.000000E-01   5.000000E-02   5.000000E-02   0.0            0.0            0.0                           \r\n            78      G     -8.000000E-01   5.000000E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            79      G     -8.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            80      G     -8.000000E-01   1.000000E-01   5.000000E-02   0.0            0.0            0.0                           \r\n            81      G     -8.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            82      G     -9.000000E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            83      G     -9.000000E-01   0.0            5.000002E-02   0.0            0.0            0.0                           \r\n            84      G     -9.000000E-01   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            85      G     -9.000000E-01   5.000001E-02   0.0            0.0            0.0            0.0                           \r\n            86      G     -9.000000E-01   5.000001E-02   5.000002E-02   0.0            0.0            0.0                           \r\n            87      G     -9.000000E-01   5.000001E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            88      G     -9.000000E-01   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            89      G     -9.000000E-01   1.000000E-01   5.000002E-02   0.0            0.0            0.0                           \r\n            90      G     -9.000000E-01   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n            91      G     -1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n            92      G     -1.000000E+00   0.0            5.000002E-02   0.0            0.0            0.0                           \r\n            93      G     -1.000000E+00   0.0            1.000000E-01   0.0            0.0            0.0                           \r\n            94      G     -1.000000E+00   5.000002E-02   0.0            0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            95      G     -1.000000E+00   5.000002E-02   5.000003E-02   0.0            0.0            0.0                           \r\n            96      G     -1.000000E+00   5.000002E-02   1.000000E-01   0.0            0.0            0.0                           \r\n            97      G     -1.000000E+00   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            98      G     -1.000000E+00   1.000000E-01   5.000002E-02   0.0            0.0            0.0                           \r\n            99      G     -1.000000E+00   1.000000E-01   1.000000E-01   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            91      G     -3.750000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            92      G     -7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            93      G     -3.750000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            94      G     -7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            95      G     -1.500000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            96      G     -7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            97      G     -3.750000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            98      G     -7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            99      G     -3.750000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.250001E+04  -1.250000E+05  -1.250000E+05   0.0            0.0            0.0                           \r\n             2      G      1.250000E+05  -2.500000E+05   3.906250E-03   0.0            0.0            0.0                           \r\n             3      G      6.250001E+04  -1.250000E+05   1.250000E+05   0.0            0.0            0.0                           \r\n             4      G      1.250000E+05   3.906250E-03  -2.500000E+05   0.0            0.0            0.0                           \r\n             5      G      2.500000E+05  -3.906250E-03   3.906250E-03   0.0            0.0            0.0                           \r\n             6      G      1.250000E+05   0.0            2.500000E+05   0.0            0.0            0.0                           \r\n             7      G      6.250001E+04   1.250000E+05  -1.250000E+05   0.0            0.0            0.0                           \r\n             8      G      1.250000E+05   2.500000E+05   0.0            0.0            0.0            0.0                           \r\n             9      G      6.250001E+04   1.250000E+05   1.250000E+05   0.0            0.0            0.0                           \r\n            10      G      0.0           -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            11      G     -1.953125E-03  -5.000000E+05  -3.906250E-03   0.0            0.0            0.0                           \r\n            12      G     -1.953125E-03  -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            13      G     -1.953125E-03  -3.906250E-03  -5.000000E+05   0.0            0.0            0.0                           \r\n            14      G     -2.343750E-02   7.812500E-03  -1.953125E-02   0.0            0.0            0.0                           \r\n            15      G     -3.906250E-03   0.0            5.000001E+05   0.0            0.0            0.0                           \r\n            16      G     -1.953125E-03   2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            17      G     -1.953125E-03   5.000001E+05   0.0            0.0            0.0            0.0                           \r\n            18      G      0.0            2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            19      G      3.906250E-03  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            20      G      0.0           -5.000000E+05   7.812500E-03   0.0            0.0            0.0                           \r\n            21      G      3.906250E-03  -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            22      G      0.0            0.0           -5.000000E+05   0.0            0.0            0.0                           \r\n            23      G     -5.859375E-02   1.562500E-02   3.906250E-02   0.0            0.0            0.0                           \r\n            24      G      7.812500E-03  -7.812500E-03   5.000000E+05   0.0            0.0            0.0                           \r\n            25      G      3.906250E-03   2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            26      G     -1.953125E-03   5.000000E+05  -3.906250E-03   0.0            0.0            0.0                           \r\n            27      G     -1.953125E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            28      G     -7.812500E-03  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            29      G      7.812500E-03  -5.000001E+05  -1.171875E-02   0.0            0.0            0.0                           \r\n            30      G      0.0           -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            31      G      7.812500E-03  -7.812500E-03  -5.000001E+05   0.0            0.0            0.0                           \r\n            32      G      3.906250E-02  -1.562500E-02   1.562500E-02   0.0            0.0            0.0                           \r\n            33      G      5.859375E-03   1.953125E-02   5.000000E+05   0.0            0.0            0.0                           \r\n            34      G      0.0            2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            35      G      9.765625E-03   5.000001E+05   1.171875E-02   0.0            0.0            0.0                           \r\n            36      G      5.859375E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            37      G      3.906250E-03  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            38      G      3.906250E-03  -5.000000E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n            39      G      0.0           -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            40      G      3.906250E-03  -7.812500E-03  -5.000000E+05   0.0            0.0            0.0                           \r\n            41      G      2.734375E-02   1.562500E-02   3.125000E-02   0.0            0.0            0.0                           \r\n            42      G     -1.953125E-03   1.314147E-02   5.000000E+05   0.0            0.0            0.0                           \r\n            43      G      0.0            2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            44      G     -1.953125E-03   5.000000E+05   1.704772E-02   0.0            0.0            0.0                           \r\n            45      G     -5.859375E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            46      G     -1.171875E-02  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            47      G     -9.765625E-03  -5.000001E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -1.953125E-03  -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            49      G     -1.953125E-03  -7.812500E-03  -5.000001E+05   0.0            0.0            0.0                           \r\n            50      G     -2.539062E-02   7.812500E-03   3.906250E-03   0.0            0.0            0.0                           \r\n            51      G     -1.953125E-03   2.483527E-03   5.000001E+05   0.0            0.0            0.0                           \r\n            52      G     -1.953125E-03   2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            53      G     -1.953125E-03   5.000001E+05   6.389777E-03   0.0            0.0            0.0                           \r\n            54      G     -3.906250E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            55      G      1.171875E-02  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            56      G      0.0           -5.000000E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n            57      G      3.906250E-03  -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            58      G      0.0           -7.812500E-03  -5.000000E+05   0.0            0.0            0.0                           \r\n            59      G      2.148438E-02   1.953125E-02  -7.812500E-03   0.0            0.0            0.0                           \r\n            60      G      3.906250E-03  -2.343750E-02   5.000000E+05   0.0            0.0            0.0                           \r\n            61      G      1.171875E-02   2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            62      G     -3.906250E-03   5.000000E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n            63      G     -3.906250E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            64      G     -7.812500E-03  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            65      G      0.0           -5.000001E+05  -1.171875E-02   0.0            0.0            0.0                           \r\n            66      G      0.0           -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            67      G     -7.812500E-03  -7.812500E-03  -5.000001E+05   0.0            0.0            0.0                           \r\n            68      G      3.906250E-02  -3.125000E-02   1.562500E-02   0.0            0.0            0.0                           \r\n            69      G     -1.953125E-03   3.906250E-03   5.000000E+05   0.0            0.0            0.0                           \r\n            70      G      0.0            2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            71      G      1.757812E-02   5.000000E+05  -3.906250E-03   0.0            0.0            0.0                           \r\n            72      G      7.812500E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            73      G      3.906250E-03  -2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            74      G      3.906250E-03  -5.000000E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n            75      G      3.906250E-03  -2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            76      G      3.906250E-03  -7.812500E-03  -5.000000E+05   0.0            0.0            0.0                           \r\n            77      G     -3.906250E-03   7.812500E-03   7.812500E-03   0.0            0.0            0.0                           \r\n            78      G     -9.765625E-03   1.060804E-03   5.000000E+05   0.0            0.0            0.0                           \r\n            79      G      3.906250E-03   2.500000E+05  -2.500000E+05   0.0            0.0            0.0                           \r\n            80      G      0.0            5.000000E+05   1.060804E-03   0.0            0.0            0.0                           \r\n            81      G      0.0            2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            82      G     -1.171875E-02  -2.500000E+05  -2.500001E+05   0.0            0.0            0.0                           \r\n            83      G     -9.765625E-03  -5.000001E+05  -7.812500E-03   0.0            0.0            0.0                           \r\n            84      G      5.859375E-03  -2.500000E+05   2.500001E+05   0.0            0.0            0.0                           \r\n            85      G     -1.953125E-03  -7.812500E-03  -5.000001E+05   0.0            0.0            0.0                           \r\n            86      G      5.859375E-03   7.812500E-03   2.343750E-02   0.0            0.0            0.0                           \r\n            87      G     -9.765625E-03  -3.125000E-02   5.000001E+05   0.0            0.0            0.0                           \r\n            88      G     -1.953125E-03   2.500000E+05  -2.500001E+05   0.0            0.0            0.0                           \r\n            89      G     -1.953125E-03   5.000001E+05   0.0            0.0            0.0            0.0                           \r\n            90      G      1.953125E-03   2.500000E+05   2.500000E+05   0.0            0.0            0.0                           \r\n            91      G     -6.250000E+04  -1.250000E+05  -1.250000E+05   0.0            0.0            0.0                           \r\n            92      G     -1.250000E+05  -2.500000E+05   0.0            0.0            0.0            0.0                           \r\n            93      G     -6.250000E+04  -1.250000E+05   1.250000E+05   0.0            0.0            0.0                           \r\n            94      G     -1.250000E+05   7.812500E-03  -2.500001E+05   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD.                                                                              SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            95      G     -2.500000E+05   1.171875E-02   2.734375E-02   0.0            0.0            0.0                           \r\n            96      G     -1.250000E+05   7.812500E-03   2.500001E+05   0.0            0.0            0.0                           \r\n            97      G     -6.250000E+04   1.250000E+05  -1.250000E+05   0.0            0.0            0.0                           \r\n            98      G     -1.250000E+05   2.500000E+05   0.0            0.0            0.0            0.0                           \r\n            99      G     -6.250001E+04   1.250000E+05   1.250000E+05   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.750000E+02  -4.973799E-14  -1.070255E-13   0.0            0.0            0.0                           \r\n             2      G      7.500000E+02   4.973799E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      3.750000E+02  -3.552714E-14   0.0            0.0            0.0            0.0                           \r\n             4      G      7.500000E+02   0.0           -7.993606E-14   0.0            0.0            0.0                           \r\n             5      G      1.500000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      3.750000E+02   0.0           -1.598721E-13   0.0            0.0            0.0                           \r\n             8      G      7.500000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      3.750000E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      0.0           -1.278977E-13   1.065814E-13   0.0            0.0            0.0                           \r\n            11      G      0.0           -7.105427E-15   0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            1.421085E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0           -1.234568E-13   0.0            0.0            0.0                           \r\n            16      G      0.0            0.0           -5.329071E-14   0.0            0.0            0.0                           \r\n            19      G      0.0           -4.227729E-13  -3.375078E-14   0.0            0.0            0.0                           \r\n            20      G      0.0           -3.836931E-13   0.0            0.0            0.0            0.0                           \r\n            21      G      0.0           -1.945111E-13   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0            0.0           -7.167600E-13   0.0            0.0            0.0                           \r\n            25      G      0.0            0.0           -2.167155E-13   0.0            0.0            0.0                           \r\n            28      G      0.0            2.131628E-13  -1.110223E-13   0.0            0.0            0.0                           \r\n            29      G      0.0           -2.131628E-14   0.0            0.0            0.0            0.0                           \r\n            30      G      0.0           -4.405365E-13   0.0            0.0            0.0            0.0                           \r\n            31      G      0.0            0.0           -8.109069E-13   0.0            0.0            0.0                           \r\n            34      G      0.0            0.0           -6.785683E-13   0.0            0.0            0.0                           \r\n            37      G      0.0            1.421085E-13   1.465494E-14   0.0            0.0            0.0                           \r\n            38      G      0.0           -6.181722E-13   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0            1.874056E-13   0.0            0.0            0.0            0.0                           \r\n            40      G      0.0            0.0           -1.065814E-14   0.0            0.0            0.0                           \r\n            43      G      0.0            0.0           -1.953993E-13   0.0            0.0            0.0                           \r\n            46      G      0.0           -8.029133E-13   4.760636E-13   0.0            0.0            0.0                           \r\n            47      G      0.0           -1.122658E-12   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0           -2.424727E-13   0.0            0.0            0.0            0.0                           \r\n            49      G      0.0            0.0            8.792966E-13   0.0            0.0            0.0                           \r\n            52      G      0.0            0.0            4.014566E-13   0.0            0.0            0.0                           \r\n            55      G      0.0           -1.776357E-13  -2.575717E-14   0.0            0.0            0.0                           \r\n            56      G      0.0            4.760636E-13   0.0            0.0            0.0            0.0                           \r\n            57      G      0.0            8.171241E-14   0.0            0.0            0.0            0.0                           \r\n            58      G      0.0            0.0            1.125322E-12   0.0            0.0            0.0                           \r\n            61      G      0.0            0.0            1.385558E-13   0.0            0.0            0.0                           \r\n            64      G      0.0           -7.212009E-13  -9.912071E-13   0.0            0.0            0.0                           \r\n            65      G      0.0           -5.258016E-13   0.0            0.0            0.0            0.0                           \r\n            66      G      0.0           -1.094236E-12   0.0            0.0            0.0            0.0                           \r\n            67      G      0.0            0.0           -6.998846E-13   0.0            0.0            0.0                           \r\n            70      G      0.0            0.0           -5.684342E-13   0.0            0.0            0.0                           \r\n            73      G      0.0           -3.339551E-13   7.238654E-14   0.0            0.0            0.0                           \r\n            74      G      0.0           -6.892265E-13   0.0            0.0            0.0            0.0                           \r\n            75      G      0.0           -7.034373E-13   0.0            0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            76      G      0.0            0.0           -1.392664E-12   0.0            0.0            0.0                           \r\n            79      G      0.0            0.0           -5.684342E-13   0.0            0.0            0.0                           \r\n            82      G      0.0            6.643575E-13   2.562395E-13   0.0            0.0            0.0                           \r\n            83      G      0.0            1.314504E-12   0.0            0.0            0.0            0.0                           \r\n            84      G      0.0           -5.639933E-13   0.0            0.0            0.0            0.0                           \r\n            85      G      0.0            0.0            6.963319E-13   0.0            0.0            0.0                           \r\n            88      G      0.0            0.0            1.627143E-12   0.0            0.0            0.0                           \r\n            91      G      0.0            6.963319E-13  -9.734435E-13   0.0            0.0            0.0                           \r\n            92      G      0.0            1.577405E-12   0.0            0.0            0.0            0.0                           \r\n            93      G      0.0            4.849454E-13   0.0            0.0            0.0            0.0                           \r\n            94      G      0.0            0.0            9.450218E-13   0.0            0.0            0.0                           \r\n            97      G      0.0            0.0           -6.110668E-13   0.0            0.0            0.0                           \r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n0     UNIFORM STRESS.                                                                                        SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   S O L I D   H E X A H E D R O N   E L E M E N T S   ( C H E X A 2 )\r\n \r\n                                                                                                           OCTAHEDRAL    PRESSURE\r\n      ELEMENT-ID        SIGMA-XX      SIGMA-YY      SIGMA-ZZ       TAU-YZ        TAU-XZ        TAU-XY        TAU-0          P\r\n               1      1.500000E+03  1.907349E-06  0.0           0.0           6.103516E-05  6.103516E-05  7.071069E+02 -5.000001E+02\r\n               2      1.500000E+03 -3.814697E-06  1.525879E-05  0.0           6.103516E-05  6.103516E-05  7.071069E+02 -5.000001E+02\r\n               3      1.500000E+03 -3.814697E-06  1.144409E-05 -7.629395E-06  6.103516E-05  6.103516E-05  7.071069E+02 -5.000001E+02\r\n               4      1.500000E+03 -3.814697E-06  0.0           3.814697E-06  6.103516E-05  6.103516E-05  7.071069E+02 -5.000001E+02\r\n               5      1.500000E+03 -7.629395E-06  0.0           0.0           1.220703E-04  1.220703E-04  7.071069E+02 -5.000001E+02\r\n               6      1.500000E+03 -1.525879E-05  0.0           0.0           6.103516E-05  1.220703E-04  7.071069E+02 -5.000001E+02\r\n               7      1.500000E+03 -1.907349E-05 -1.525879E-05 -7.629395E-06  1.220703E-04  1.220703E-04  7.071069E+02 -5.000001E+02\r\n               8      1.500000E+03 -3.814697E-06  0.0           3.814697E-06  6.103516E-05  1.220703E-04  7.071069E+02 -5.000001E+02\r\n               9      1.500000E+03 -1.068115E-04 -9.155273E-05  0.0           0.0           0.0           7.071069E+02 -5.000000E+02\r\n              10      1.500000E+03 -7.629395E-05 -9.155273E-05  0.0          -1.220703E-04  0.0           7.071069E+02 -4.999999E+02\r\n              11      1.500000E+03  3.051758E-05 -6.103516E-05 -7.629395E-06  0.0          -1.220703E-04  7.071069E+02 -5.000001E+02\r\n              12      1.500000E+03 -4.577637E-05 -3.051758E-05  3.814697E-06 -1.220703E-04 -1.220703E-04  7.071069E+02 -5.000000E+02\r\n              13      1.500000E+03  9.155273E-05  9.155273E-05  0.0           2.441406E-04  2.441406E-04  7.071069E+02 -5.000002E+02\r\n              14      1.500000E+03  6.103516E-05  1.220703E-04  0.0           2.441406E-04  2.441406E-04  7.071070E+02 -5.000002E+02\r\n              15      1.500000E+03  1.220703E-04  3.051758E-05 -7.629395E-06  2.441406E-04  2.441406E-04  7.071070E+02 -5.000002E+02\r\n              16      1.500000E+03 -3.051758E-05 -3.051758E-05  3.814697E-06  2.441406E-04  2.441406E-04  7.071069E+02 -5.000001E+02\r\n              17      1.500001E+03 -3.051758E-05  2.136230E-04  0.0           0.0           0.0           7.071072E+02 -5.000005E+02\r\n              18      1.500000E+03  9.155273E-05  6.103516E-05  0.0          -2.441406E-04  0.0           7.071069E+02 -5.000002E+02\r\n              19      1.500001E+03  9.155273E-05  9.155273E-05 -7.629395E-06  0.0          -2.441406E-04  7.071070E+02 -5.000003E+02\r\n              20      1.500001E+03  3.051758E-05  1.831055E-04  3.814697E-06 -2.441406E-04 -2.441406E-04  7.071072E+02 -5.000003E+02\r\n              21      1.500000E+03 -3.662109E-04 -1.220703E-04  0.0           0.0           0.0           7.071068E+02 -4.999998E+02\r\n              22      1.499999E+03 -1.220703E-04 -1.831055E-04  0.0           0.0           0.0           7.071065E+02 -4.999997E+02\r\n              23      1.500000E+03  6.103516E-05  0.0          -7.629395E-06  0.0           0.0           7.071069E+02 -5.000001E+02\r\n              24      1.500000E+03 -6.103516E-05  0.0           3.814697E-06  0.0           0.0           7.071068E+02 -5.000000E+02\r\n              25      1.500000E+03  6.103516E-05  6.103516E-05  0.0           0.0           0.0           7.071069E+02 -5.000001E+02\r\n              26      1.500001E+03  0.0           3.051758E-04  0.0           0.0           0.0           7.071072E+02 -5.000005E+02\r\n              27      1.500001E+03  6.103516E-05  0.0          -7.629395E-06  0.0           0.0           7.071075E+02 -5.000005E+02\r\n              28      1.500000E+03  1.220703E-04  1.220703E-04  3.814697E-06  0.0           0.0           7.071069E+02 -5.000002E+02\r\n              29      1.500000E+03  6.103516E-05  6.103516E-05  0.0           0.0           0.0           7.071069E+02 -5.000001E+02\r\n              30      1.500000E+03 -6.103516E-05 -6.103516E-05  0.0           4.882812E-04  0.0           7.071068E+02 -5.000000E+02\r\n              31      1.500000E+03  0.0           0.0          -7.629395E-06  0.0           4.882812E-04  7.071069E+02 -5.000001E+02\r\n              32      1.500000E+03  1.220703E-04  1.220703E-04  3.814697E-06  4.882812E-04  4.882812E-04  7.071065E+02 -4.999999E+02\r\n              33      1.500001E+03  6.103516E-05  6.103516E-05  0.0           0.0           0.0           7.071072E+02 -5.000003E+02\r\n              34      1.500000E+03  6.103516E-05  6.103516E-05  0.0           0.0           0.0           7.071070E+02 -5.000002E+02\r\n              35      1.500002E+03  1.220703E-04  3.662109E-04 -7.629395E-06  0.0           0.0           7.071075E+02 -5.000007E+02\r\n              36      1.500000E+03  0.0          -6.103516E-05  3.814697E-06  0.0           0.0           7.071069E+02 -5.000001E+02\r\n              37      1.500001E+03  1.831055E-04  2.441406E-04  0.0           0.0           0.0           7.071071E+02 -5.000005E+02\r\n              38      1.500000E+03  0.0          -1.220703E-04  0.0           0.0           0.0           7.071069E+02 -5.000000E+02\r\n              39      1.500001E+03  1.220703E-04  1.831055E-04 -7.629395E-06  0.0           0.0           7.071072E+02 -5.000004E+02\r\n              40      1.500000E+03  0.0           0.0           3.814697E-06  0.0           0.0           7.071069E+02 -5.000001E+02\r\n1     2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                                                                                   \r\n\r\n      TWO PLANES OF SYMMETRY                                                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS      \r\n DATE:  5/17/95\r\n END TIME: 14:59:20\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01092a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01092A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                          \r\n                  3      SPC  = 1                                                                        \r\n                  4      OUTPUT                                                                          \r\n                  5      DISP =  ALL                                                                     \r\n                  6      SPCFORCE = ALL                                                                  \r\n                  7        STRESS = ALL                                                                  \r\n                  8      SUBCASE 1                                                                       \r\n                  9      LABEL = CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                            \r\n                 10      LOAD  = 20                                                                      \r\n                 11      OLOAD = ALL                                                                     \r\n                 12      SUBCASE 2                                                                       \r\n                 13      LABEL = UNIFORM TEMPERATURE LOAD                                                \r\n                 14      TEMPERATURE(LOAD) = 30                                                          \r\n                 15      SUBCASE  3                                                                      \r\n                 16      LABEL = LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                         \r\n                 17      LOAD  = 40                                                                      \r\n                 18      OLOAD = ALL                                                                     \r\n                 19      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    66, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRIM6  1       80      9       6       3       2       1       5       +TE1    \r\n                    2-        +TE1                                                                            \r\n                    3-        CTRIM6  2       80      1       4       7       8       9       5       +TE2    \r\n                    4-        +TE2                                                                            \r\n                    5-        CTRIM6  3       80      15      12      9       8       7       11      +TE3    \r\n                    6-        +TE3                                                                            \r\n                    7-        CTRIM6  4       80      7       10      13      14      15      11      +TE4    \r\n                    8-        +TE4                                                                            \r\n                    9-        CTRIM6  5       80      21      18      15      14      13      17      +TE5    \r\n                   10-        +TE5                                                                            \r\n                   11-        CTRIM6  6       80      13      16      19      20      21      17      +TE6    \r\n                   12-        +TE6                                                                            \r\n                   13-        CTRIM6  7       80      27      24      21      20      19      23      +TE7    \r\n                   14-        +TE7                                                                            \r\n                   15-        CTRIM6  8       80      19      22      25      26      27      23      +TE8    \r\n                   16-        +TE8                                                                            \r\n                   17-        CTRIM6  9       80      33      30      27      26      25      29      +TE9    \r\n                   18-        +TE9                                                                            \r\n                   19-        CTRIM6  10      80      25      28      31      32      33      29      +TE10   \r\n                   20-        +TE10                                                                           \r\n                   21-        FORCE1  20      31      2.0+3   28      31                                      \r\n                   22-        FORCE1  20      32      8.0+3   29      32                                      \r\n                   23-        FORCE1  20      33      2.0+3   30      33                                      \r\n                   24-        FORCE1  40      31      3.0+3   28      31                                      \r\n                   25-        FORCE1  40      32      6.0+3   29      32                                      \r\n                   26-        FORCE1  40      33      3.0+3   30      33                                      \r\n                   27-        GRDSET                                                  3456                    \r\n                   28-        GRID    1               .0      .0      .0                                      \r\n                   29-        GRID    2               .0      1.      .0                                      \r\n                   30-        GRID    3               .0      2.      .0                                      \r\n                   31-        GRID    4               2.      .0      .0                                      \r\n                   32-        GRID    5               2.      1.      .0                                      \r\n                   33-        GRID    6               2.      2.      .0                                      \r\n                   34-        GRID    7               4.      .0      .0                                      \r\n                   35-        GRID    8               4.      1.      .0                                      \r\n                   36-        GRID    9               4.      2.      .0                                      \r\n                   37-        GRID    10              6.      .0      .0                                      \r\n                   38-        GRID    11              6.      1.      .0                                      \r\n                   39-        GRID    12              6.      2.      .0                                      \r\n                   40-        GRID    13              8.      .0      .0                                      \r\n                   41-        GRID    14              8.      1.      .0                                      \r\n                   42-        GRID    15              8.      2.      .0                                      \r\n                   43-        GRID    16              10.     .0      .0                                      \r\n                   44-        GRID    17              10.     1.      .0                                      \r\n                   45-        GRID    18              10.     2.      .0                                      \r\n                   46-        GRID    19              12.     .0      .0                                      \r\n                   47-        GRID    20              12.     1.      .0                                      \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    21              12.     2.      .0                                      \r\n                   49-        GRID    22              14.     .0      .0                                      \r\n                   50-        GRID    23              14.     1.      .0                                      \r\n                   51-        GRID    24              14.     2.      .0                                      \r\n                   52-        GRID    25              16.     .0      .0                                      \r\n                   53-        GRID    26              16.     1.      .0                                      \r\n                   54-        GRID    27              16.     2.      .0                                      \r\n                   55-        GRID    28              18.     .0      .0                                      \r\n                   56-        GRID    29              18.     1.      .0                                      \r\n                   57-        GRID    30              18.     2.      .0                                      \r\n                   58-        GRID    31              20.     .0      .0                                      \r\n                   59-        GRID    32              20.     1.      .0                                      \r\n                   60-        GRID    33              20.     2.      .0                                      \r\n                   61-        MAT1    90      3.0+6           .2      1.      .001    10.                     \r\n                   62-        PTRIM6  80      90      4.      .0      .0                                      \r\n                   63-        SPC1    1       2       4       7       10      13      16      19      +GJD    \r\n                   64-        +GJD    22      25      28      31                                              \r\n                   65-        SPC1    1       12      1       2       3                                       \r\n                   66-        TEMPD   30      60.                                                             \r\n                              ENDDATA\r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            9\r\n                                        PROFILE            201\r\n                                        MAX WAVEFRONT        9\r\n                                        AVG WAVEFRONT    6.091\r\n                                        RMS WAVEFRONT    6.441\r\n                                        RMS BANDWIDTH    6.441\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            168\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.091\r\n                                        RMS WAVEFRONT    5.269\r\n                                        RMS BANDWIDTH    5.314\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        9         7\r\n                                        PROFILE (P)                        201       168\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            9         7\r\n                                        AVERAGE WAVEFRONT (C-AVG)        6.091     5.091\r\n                                        RMS WAVEFRONT (C-RMS)            6.441     5.269\r\n                                        RMS BANDWITCH (B-RMS)            6.441     5.314\r\n                                        NUMBER OF GRID POINTS (N)                     33\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                10\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          11\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                       123\r\n                                        MATRIX DENSITY, PERCENT                   25.620\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   9\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       4       2       3       3       2       4       7\r\n                         SEQGP          5       5       6       1       7      10       8       8\r\n                         SEQGP          9       6      10      13      11      11      12       9\r\n                         SEQGP         13      16      14      14      15      12      16      19\r\n                         SEQGP         17      17      18      15      19      22      20      20\r\n                         SEQGP         21      18      22      25      23      23      24      21\r\n                         SEQGP         25      28      26      26      27      24      28      31\r\n                         SEQGP         29      30      30      27      31      32      32      33\r\n                         SEQGP         33      29\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIM6    ELEMENTS (ELEMENT TYPE  73) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   4.2381171E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   5.3632856E-18\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =   6.1083637E-15\r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                                                           SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      9.755653E-04   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      9.752495E-04  -8.421802E-05   0.0            0.0            0.0            0.0                           \r\n             6      G      9.940324E-04  -1.738671E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.974339E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.978997E-03  -1.027162E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      1.990489E-03  -2.065741E-04   0.0            0.0            0.0            0.0                           \r\n            10      G      2.980463E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      2.981231E-03  -1.018568E-04   0.0            0.0            0.0            0.0                           \r\n            12      G      2.982456E-03  -2.029182E-04   0.0            0.0            0.0            0.0                           \r\n            13      G      3.981847E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      3.981403E-03  -9.995454E-05   0.0            0.0            0.0            0.0                           \r\n            15      G      3.980520E-03  -1.996578E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.981343E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.981273E-03  -9.986824E-05   0.0            0.0            0.0            0.0                           \r\n            18      G      4.981138E-03  -1.997993E-04   0.0            0.0            0.0            0.0                           \r\n            19      G      5.981221E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G      5.981251E-03  -9.999946E-05   0.0            0.0            0.0            0.0                           \r\n            21      G      5.981305E-03  -2.000194E-04   0.0            0.0            0.0            0.0                           \r\n            22      G      6.981253E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      6.981258E-03  -1.000080E-04   0.0            0.0            0.0            0.0                           \r\n            24      G      6.981267E-03  -2.000121E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      7.981261E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      7.981259E-03  -1.000001E-04   0.0            0.0            0.0            0.0                           \r\n            27      G      7.981257E-03  -1.999989E-04   0.0            0.0            0.0            0.0                           \r\n            28      G      8.981260E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      8.981259E-03  -9.999952E-05   0.0            0.0            0.0            0.0                           \r\n            30      G      8.981259E-03  -1.999993E-04   0.0            0.0            0.0            0.0                           \r\n            31      G      9.981259E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      9.981259E-03  -1.000001E-04   0.0            0.0            0.0            0.0                           \r\n            33      G      9.981260E-03  -2.000004E-04   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD                                                                               SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G     -1.648835E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      4.177203E-03  -8.648645E-03   0.0            0.0            0.0            0.0                           \r\n             6      G      5.917963E-03  -1.965214E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      1.235595E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      3.098183E-03   1.277058E-02   0.0            0.0            0.0            0.0                           \r\n             9      G     -5.333313E-03   3.007017E-02   0.0            0.0            0.0            0.0                           \r\n            10      G     -8.002131E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      3.687791E-03  -4.867714E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      6.185023E-03  -1.397179E-02   0.0            0.0            0.0            0.0                           \r\n            13      G      1.094665E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      2.706160E-03   1.241176E-02   0.0            0.0            0.0            0.0                           \r\n            15      G     -3.578494E-03   2.887344E-02   0.0            0.0            0.0            0.0                           \r\n            16      G     -9.163942E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      3.676186E-03  -5.209250E-03   0.0            0.0            0.0            0.0                           \r\n            18      G      6.387613E-03  -1.449538E-02   0.0            0.0            0.0            0.0                           \r\n            19      G      1.117302E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G      2.709978E-03   1.258350E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.841633E-03   2.916184E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.830325E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      3.576760E-03  -5.147792E-03   0.0            0.0            0.0            0.0                           \r\n            24      G      7.131107E-03  -1.451433E-02   0.0            0.0            0.0            0.0                           \r\n            25      G      8.924786E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      2.953756E-03   1.063461E-02   0.0            0.0            0.0            0.0                           \r\n            27      G     -1.579488E-03   2.642297E-02   0.0            0.0            0.0            0.0                           \r\n            28      G     -6.771333E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      5.124210E-03  -8.241136E-03   0.0            0.0            0.0            0.0                           \r\n            30      G      7.161502E-04  -1.672504E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.225421E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      8.729980E-03   7.510907E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.891717E-02   4.273563E-02   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                                                        SUBCASE  3             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      9.755648E-04   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      9.752495E-04  -8.421810E-05   0.0            0.0            0.0            0.0                           \r\n             6      G      9.940327E-04  -1.738672E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.974338E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.978997E-03  -1.027175E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      1.990490E-03  -2.065759E-04   0.0            0.0            0.0            0.0                           \r\n            10      G      2.980471E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      2.981232E-03  -1.018557E-04   0.0            0.0            0.0            0.0                           \r\n            12      G      2.982449E-03  -2.029163E-04   0.0            0.0            0.0            0.0                           \r\n            13      G      3.981861E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      3.981400E-03  -9.993056E-05   0.0            0.0            0.0            0.0                           \r\n            15      G      3.980505E-03  -1.996252E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      4.981197E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.981257E-03  -9.988573E-05   0.0            0.0            0.0            0.0                           \r\n            18      G      4.981264E-03  -1.998316E-04   0.0            0.0            0.0            0.0                           \r\n            19      G      5.980983E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G      5.981305E-03  -1.004177E-04   0.0            0.0            0.0            0.0                           \r\n            21      G      5.981578E-03  -2.005890E-04   0.0            0.0            0.0            0.0                           \r\n            22      G      6.983388E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      6.981500E-03  -9.985557E-05   0.0            0.0            0.0            0.0                           \r\n            24      G      6.979138E-03  -1.996077E-04   0.0            0.0            0.0            0.0                           \r\n            25      G      7.984206E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      7.980872E-03  -9.349850E-05   0.0            0.0            0.0            0.0                           \r\n            27      G      7.976167E-03  -1.911762E-04   0.0            0.0            0.0            0.0                           \r\n            28      G      8.984848E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      8.982096E-03  -8.974470E-05   0.0            0.0            0.0            0.0                           \r\n            30      G      9.008435E-03  -1.932132E-04   0.0            0.0            0.0            0.0                           \r\n            31      G      1.005263E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      9.936554E-03  -1.383498E-04   0.0            0.0            0.0            0.0                           \r\n            33      G      1.008871E-02  -2.452084E-04   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                                                           SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            31      G      2.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      8.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      2.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                                                        SUBCASE  3             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            31      G      3.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      6.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            33      G      3.000000E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                                                           SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.845380E+03  -7.815339E+02   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.678834E+03   1.868125E+02   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.475786E+03   1.031056E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      0.0           -5.081673E+02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0            1.763216E+01   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0            5.543964E+01   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.630944E+00   0.0            0.0            0.0            0.0                           \r\n            16      G      0.0           -3.847355E+00   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -2.588916E-01   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0            2.330291E-01   0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            1.702238E-02   0.0            0.0            0.0            0.0                           \r\n            28      G      0.0           -1.374118E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      0.0            3.539163E-04   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD                                                                               SUBCASE 2              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.494282E+05   4.566547E+05   0.0            0.0            0.0            0.0                           \r\n             2      G      2.702075E+05  -4.798750E+05   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.207793E+05   5.736829E+04   0.0            0.0            0.0            0.0                           \r\n             4      G      0.0           -1.568861E+05   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0            2.632719E+05   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0           -2.717516E+05   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.618101E+05   0.0            0.0            0.0            0.0                           \r\n            16      G      0.0           -2.614575E+05   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            2.605337E+05   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0           -2.677693E+05   0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            2.670373E+05   0.0            0.0            0.0            0.0                           \r\n            28      G      0.0           -1.842167E+05   0.0            0.0            0.0            0.0                           \r\n            31      G      0.0            5.528037E+04   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                                                        SUBCASE  3             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.845381E+03  -7.815336E+02   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.678833E+03   1.868106E+02   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.475786E+03   1.031055E+03   0.0            0.0            0.0            0.0                           \r\n             4      G      0.0           -5.081661E+02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0            1.765652E+01   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0            5.542770E+01   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.204099E+00   0.0            0.0            0.0            0.0                           \r\n            16      G      0.0           -3.660007E+00   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            6.598501E+00   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0           -2.953044E+00   0.0            0.0            0.0            0.0                           \r\n            25      G      0.0           -6.352297E+01   0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            1.107143E+02   0.0            0.0            0.0            0.0                           \r\n            31      G      0.0           -5.063141E+01   0.0            0.0            0.0            0.0                           \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                                                           SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0       1       1    1.446797E+03  -2.485347E+02   7.062793E+01   2.381455E+00   1.449734E+03  -2.514719E+02   8.506031E+02         \r\n                3    1.551281E+03   3.102562E+02  -1.527794E+02  -6.915974E+00   1.569813E+03   2.917247E+02   6.390441E+02         \r\n                5    1.492585E+03   2.985169E+02  -4.071812E+01  -1.950785E+00   1.493972E+03   2.971299E+02   5.984208E+02         \r\n                C    1.496888E+03   1.200795E+02  -4.095654E+01  -1.702397E+00   1.498105E+03   1.188622E+02   6.896214E+02         \r\n0       2       1    1.465471E+03   9.764728E+01  -1.088379E+01  -4.558646E-01   1.465558E+03   9.756061E+01   6.839986E+02         \r\n                3    1.514875E+03  -3.460907E+00   1.550781E+00   5.852005E-02   1.514877E+03  -3.462524E+00   7.591696E+02         \r\n                5    1.528991E+03  -7.488159E+00  -4.485535E+00  -1.672651E-01   1.529004E+03  -7.501221E+00   7.682526E+02         \r\n                C    1.503112E+03   2.889938E+01  -4.606323E+00  -1.790240E-01   1.503126E+03   2.888507E+01   7.371207E+02         \r\n0       3       1    1.502467E+03   3.986023E+00  -5.117188E+00  -1.956573E-01   1.502484E+03   3.968628E+00   7.492578E+02         \r\n                3    1.479916E+03  -1.730310E+01   2.104565E+01   8.051657E-01   1.480212E+03  -1.759888E+01   7.489055E+02         \r\n                5    1.513428E+03  -3.750122E+00   4.633942E-01   1.749994E-02   1.513428E+03  -3.750244E+00   7.585893E+02         \r\n                C    1.498604E+03  -5.689026E+00   5.463867E+00   2.081051E-01   1.498624E+03  -5.708923E+00   7.521664E+02         \r\n0       4       1    1.510844E+03  -9.485535E+00   2.749512E+00   1.036188E-01   1.510849E+03  -9.490540E+00   7.601697E+02         \r\n                3    1.498408E+03  -5.586243E-01  -2.802734E-01  -1.071304E-02   1.498408E+03  -5.585938E-01   7.494832E+02         \r\n                5    1.494937E+03   2.541504E-01   9.992523E-01   3.830440E-02   1.494937E+03   2.534790E-01   7.473419E+02         \r\n                C    1.501396E+03  -3.263245E+00   1.156006E+00   4.401941E-02   1.501397E+03  -3.264038E+00   7.523304E+02         \r\n0       5       1    1.499889E+03  -1.221313E-01   3.281250E-01   1.253336E-02   1.499889E+03  -1.222534E-01   7.500056E+02         \r\n                3    1.501581E+03   1.583313E+00  -1.442383E+00  -5.509499E-02   1.501582E+03   1.581970E+00   7.500002E+02         \r\n                5    1.498932E+03  -4.541016E-01  -5.892944E-02  -2.251861E-03   1.498932E+03  -4.541016E-01   7.496929E+02         \r\n                C    1.500134E+03   3.356934E-01  -3.911133E-01  -1.494144E-02   1.500134E+03   3.356323E-01   7.498991E+02         \r\n0       6       1    1.499086E+03   6.369019E-01  -2.275391E-01  -8.700346E-03   1.499086E+03   6.367798E-01   7.492248E+02         \r\n                3    1.500114E+03   5.484009E-02   2.221680E-02   8.485855E-04   1.500114E+03   5.480957E-02   7.500297E+02         \r\n                5    1.500401E+03  -1.049805E-02  -8.071899E-02  -3.082392E-03   1.500401E+03  -1.049805E-02   7.502059E+02         \r\n                C    1.499866E+03   2.270508E-01  -9.570312E-02  -3.656470E-03   1.499866E+03   2.270508E-01   7.498196E+02         \r\n0       7       1    1.500006E+03   6.286621E-03  -1.757812E-02  -6.714350E-04   1.500006E+03   6.347656E-03   7.499999E+02         \r\n                3    1.499899E+03  -1.102905E-01   8.618164E-02   3.291877E-03   1.499899E+03  -1.103516E-01   7.500045E+02         \r\n                5    1.500066E+03   4.589844E-02   4.600525E-03   1.757247E-04   1.500066E+03   4.589844E-02   7.500103E+02         \r\n                C    1.499991E+03  -1.953125E-02   2.441406E-02   9.325421E-04   1.499991E+03  -1.953125E-02   7.500051E+02         \r\n0       8       1    1.500059E+03  -3.802490E-02   1.562500E-02   5.967925E-04   1.500059E+03  -3.796387E-02   7.500485E+02         \r\n                3    1.499992E+03  -3.540039E-03  -1.953125E-03  -7.460411E-05   1.499992E+03  -3.540039E-03   7.499976E+02         \r\n                5    1.499975E+03   0.0            6.141663E-03   2.345982E-04   1.499975E+03   0.0            7.499873E+02         \r\n                C    1.500010E+03  -1.391602E-02   5.371094E-03   2.051574E-04   1.500010E+03  -1.391602E-02   7.500118E+02         \r\n0       9       1    1.500000E+03  -3.051758E-04   1.953125E-03   7.460385E-05   1.500000E+03  -3.662109E-04   7.500004E+02         \r\n                3    1.500006E+03   6.469727E-03  -3.906250E-03  -1.492078E-04   1.500006E+03   6.469727E-03   7.499998E+02         \r\n                5    1.499996E+03  -3.417969E-03  -1.350403E-03  -5.158161E-05   1.499996E+03  -3.417969E-03   7.499998E+02         \r\n                C    1.499999E+03   1.220703E-03   0.0            0.0            1.499999E+03   1.220703E-03   7.499989E+02         \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                                                           SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0      10       1    1.499998E+03   2.685547E-03  -1.953125E-03  -7.460412E-05   1.499998E+03   2.685547E-03   7.499976E+02         \r\n                3    1.500002E+03  -1.831055E-04   0.0            0.0            1.500002E+03  -2.441406E-04   7.500011E+02         \r\n                5    1.500002E+03  -4.882812E-04   1.350403E-03   5.158150E-05   1.500002E+03  -4.882812E-04   7.500012E+02         \r\n                C    1.500000E+03   7.324219E-04  -9.765625E-04  -3.730196E-05   1.500000E+03   7.324219E-04   7.499996E+02         \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD                                                                               SUBCASE 2              \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0       1       1   -2.322480E+05  -2.624706E+05   5.710787E+04   3.758932E+01  -1.882859E+05  -3.064327E+05   5.907335E+04         \r\n                3   -1.648397E+05  -1.829680E+05  -3.396211E+04  -3.752835E+01  -1.387530E+05  -2.090547E+05   3.515086E+04         \r\n                5   -1.702796E+05  -1.840559E+05  -2.020774E+04  -3.558871E+01  -1.558183E+05  -1.985172E+05   2.134946E+04         \r\n                C   -1.891224E+05  -2.098315E+05   9.793418E+02   2.701509E+00  -1.890762E+05  -2.098777E+05   1.040074E+04         \r\n0       2       1   -2.225134E+05  -2.914998E+05   2.562089E+04   1.830213E+01  -2.140391E+05  -2.999742E+05   4.296756E+04         \r\n                3   -1.468218E+05  -1.478462E+05  -1.208863E+04  -4.378701E+01  -1.352345E+05  -1.594335E+05   1.209947E+04         \r\n                5   -1.882975E+05  -1.289672E+05   1.675108E+04   7.527389E+01  -1.245645E+05  -1.927002E+05   3.406786E+04         \r\n                C   -1.858776E+05  -1.894377E+05   1.009445E+04   3.999960E+01  -1.774075E+05  -1.979078E+05   1.025020E+04         \r\n0       3       1   -2.401590E+05  -2.977615E+05   7.122938E+04   3.399215E+01  -1.921284E+05  -3.457921E+05   7.683188E+04         \r\n                3   -1.406486E+05  -1.194374E+05  -6.470143E+04  -4.965445E+01  -6.447814E+04  -1.956079E+05   6.556488E+04         \r\n                5   -1.804621E+05  -1.545742E+05  -3.376252E+04  -5.548798E+01  -1.313595E+05  -2.036769E+05   3.615873E+04         \r\n                C   -1.870899E+05  -1.905911E+05  -9.078185E+03  -3.954271E+01  -1.795951E+05  -1.980859E+05   9.245429E+03         \r\n0       4       1   -2.426196E+05  -2.710404E+05   2.029822E+04   2.750244E+01  -2.320519E+05  -2.816081E+05   2.477808E+04         \r\n                3   -1.431983E+05  -1.474792E+05  -1.152301E+04  -3.973843E+01  -1.336187E+05  -1.570589E+05   1.172012E+04         \r\n                5   -1.779125E+05  -1.301226E+05   1.496593E+04   7.397009E+01  -1.258227E+05  -1.822123E+05   2.819479E+04         \r\n                C   -1.879101E+05  -1.828808E+05   7.913716E+03   5.381417E+01  -1.770918E+05  -1.936991E+05   8.303646E+03         \r\n0       5       1   -2.398914E+05  -2.970052E+05   7.033819E+04   3.395156E+01  -1.925342E+05  -3.443625E+05   7.591414E+04         \r\n                3   -1.445962E+05  -1.234594E+05  -6.093457E+04  -4.991972E+01  -7.218352E+04  -1.958720E+05   6.184427E+04         \r\n                5   -1.777714E+05  -1.543939E+05  -3.363940E+04  -5.458046E+01  -1.304703E+05  -2.016949E+05   3.561230E+04         \r\n                C   -1.874197E+05  -1.916195E+05  -8.078594E+03  -3.771465E+01  -1.811725E+05  -1.978666E+05   8.347052E+03         \r\n0       6       1   -2.403735E+05  -2.730730E+05   2.086561E+04   2.595934E+01  -2.302150E+05  -2.832315E+05   2.650826E+04         \r\n                3   -1.432812E+05  -1.468980E+05  -1.177345E+04  -4.063372E+01  -1.331781E+05  -1.570011E+05   1.191153E+04         \r\n                5   -1.790864E+05  -1.300900E+05   1.524606E+04   7.405231E+01  -1.257333E+05  -1.834431E+05   2.885490E+04         \r\n                C   -1.875804E+05  -1.833537E+05   8.112741E+03   5.230044E+01  -1.770835E+05  -1.938505E+05   8.383483E+03         \r\n0       7       1   -2.373092E+05  -2.974039E+05   7.029755E+04   3.342832E+01  -1.909066E+05  -3.438064E+05   7.644991E+04         \r\n                3   -1.433677E+05  -1.229462E+05  -6.073419E+04  -4.977170E+01  -7.157041E+04  -1.947435E+05   6.158653E+04         \r\n                5   -1.799423E+05  -1.542303E+05  -3.308166E+04  -5.561843E+01  -1.315944E+05  -2.025782E+05   3.549189E+04         \r\n                C   -1.868730E+05  -1.915268E+05  -7.839432E+03  -3.673414E+01  -1.810224E+05  -1.973774E+05   8.177469E+03         \r\n0       8       1   -2.410710E+05  -2.687354E+05   2.008289E+04   2.772131E+01  -2.305177E+05  -2.792887E+05   2.438550E+04         \r\n                3   -1.470978E+05  -1.552464E+05  -8.362404E+03  -3.201196E+01  -1.418699E+05  -1.604742E+05   9.302135E+03         \r\n                5   -1.762122E+05  -1.301467E+05   1.496006E+04   7.349788E+01  -1.257148E+05  -1.806442E+05   2.746471E+04         \r\n                C   -1.881270E+05  -1.847095E+05   8.893514E+03   5.043793E+01  -1.773621E+05  -1.954744E+05   9.056178E+03         \r\n0       9       1   -2.776086E+05  -2.960596E+05   6.477316E+04   4.094700E+01  -2.214073E+05  -3.522610E+05   6.542684E+04         \r\n                3   -1.474903E+05  -1.244024E+05  -6.380066E+04  -5.012802E+01  -7.110973E+04  -2.007830E+05   6.483662E+04         \r\n                5   -1.543237E+05  -1.566916E+05  -3.705479E+04  -4.408499E+01  -1.184339E+05  -1.925813E+05   3.707370E+04         \r\n                C   -1.931409E+05  -1.923845E+05  -1.202743E+04  -4.590048E+01  -1.807293E+05  -2.047961E+05   1.203337E+04         \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     UNIFORM TEMPERATURE LOAD                                                                               SUBCASE 2              \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0      10       1   -2.437634E+05  -3.123029E+05   4.023547E+04   2.478899E+01  -2.251814E+05  -3.308849E+05   5.285176E+04         \r\n                3   -1.536569E+05  -1.997694E+05   1.692154E+04   1.813794E+01  -1.481137E+05  -2.053126E+05   2.859944E+04         \r\n                5   -1.481571E+05  -3.238655E+04  -4.869570E+04  -6.996397E+01  -1.462807E+04  -1.659156E+05   7.564374E+04         \r\n                C   -1.818592E+05  -1.814863E+05   2.820434E+03   4.689087E+01  -1.788461E+05  -1.844993E+05   2.826588E+03         \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                                                        SUBCASE  3             \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0       1       1    1.446798E+03  -2.485351E+02   7.062744E+01   2.381438E+00   1.449735E+03  -2.514723E+02   8.506036E+02         \r\n                3    1.551282E+03   3.102564E+02  -1.527790E+02  -6.915954E+00   1.569813E+03   2.917249E+02   6.390443E+02         \r\n                5    1.492584E+03   2.985168E+02  -4.071765E+01  -1.950763E+00   1.493971E+03   2.971300E+02   5.984205E+02         \r\n                C    1.496888E+03   1.200794E+02  -4.095648E+01  -1.702394E+00   1.498105E+03   1.188622E+02   6.896215E+02         \r\n0       2       1    1.465471E+03   9.764941E+01  -1.088330E+01  -4.558450E-01   1.465557E+03   9.756287E+01   6.839973E+02         \r\n                3    1.514873E+03  -3.466553E+00   1.553345E+00   5.861665E-02   1.514875E+03  -3.468140E+00   7.591713E+02         \r\n                5    1.528992E+03  -7.487976E+00  -4.487633E+00  -1.673432E-01   1.529006E+03  -7.501160E+00   7.682534E+02         \r\n                C    1.503112E+03   2.889832E+01  -4.606018E+00  -1.790120E-01   1.503126E+03   2.888397E+01   7.371212E+02         \r\n0       3       1    1.502456E+03   3.991638E+00  -5.110352E+00  -1.953981E-01   1.502473E+03   3.974243E+00   7.492495E+02         \r\n                3    1.479904E+03  -1.730566E+01   2.103931E+01   8.049281E-01   1.480200E+03  -1.760126E+01   7.489005E+02         \r\n                5    1.513441E+03  -3.752808E+00   4.584351E-01   1.731248E-02   1.513442E+03  -3.752930E+00   7.585972E+02         \r\n                C    1.498601E+03  -5.688965E+00   5.462402E+00   2.080497E-01   1.498621E+03  -5.708801E+00   7.521648E+02         \r\n0       4       1    1.510852E+03  -9.526062E+00   2.749023E+00   1.035971E-01   1.510857E+03  -9.531067E+00   7.601940E+02         \r\n                3    1.498435E+03  -4.585876E-01  -3.051758E-01  -1.166546E-02   1.498435E+03  -4.586792E-01   7.494468E+02         \r\n                5    1.494912E+03   2.525635E-01   1.016907E+00   3.898174E-02   1.494913E+03   2.518311E-01   7.473305E+02         \r\n                C    1.501399E+03  -3.244019E+00   1.153076E+00   4.390831E-02   1.501400E+03  -3.244873E+00   7.523226E+02         \r\n0       5       1    1.500093E+03  -2.186890E-01   2.207031E-01   8.428488E-03   1.500093E+03  -2.188110E-01   7.501558E+02         \r\n                3    1.501798E+03   1.629517E+00  -1.346680E+00  -5.143354E-02   1.501799E+03   1.628296E+00   7.500854E+02         \r\n                5    1.498685E+03  -4.086914E-01   5.201721E-02   1.988113E-03   1.498685E+03  -4.086914E-01   7.495466E+02         \r\n                C    1.500192E+03   3.339844E-01  -3.579102E-01  -1.367246E-02   1.500192E+03   3.339233E-01   7.499290E+02         \r\n0       6       1    1.498940E+03   1.356873E+00  -2.236328E-01  -8.555932E-03   1.498940E+03   1.356873E+00   7.487914E+02         \r\n                3    1.499678E+03  -1.687103E+00   4.338379E-01   1.655632E-02   1.499678E+03  -1.687256E+00   7.506825E+02         \r\n                5    1.500806E+03   1.733398E-02  -3.557281E-01  -1.358068E-02   1.500806E+03   1.727295E-02   7.503942E+02         \r\n                C    1.499808E+03  -1.042480E-01  -4.931641E-02  -1.883858E-03   1.499808E+03  -1.042480E-01   7.499562E+02         \r\n0       7       1    1.495435E+03   1.457397E+00   1.320312E+00   5.063546E-02   1.495436E+03   1.456238E+00   7.469901E+02         \r\n                3    1.496574E+03  -8.294067E-01  -1.405273E+00  -5.377051E-02   1.496575E+03  -8.308105E-01   7.487030E+02         \r\n                5    1.504500E+03  -7.231445E-01  -1.804817E+00  -6.869958E-02   1.504502E+03  -7.252808E-01   7.526137E+02         \r\n                C    1.498836E+03  -3.149414E-02  -6.289062E-01  -2.404060E-02   1.498836E+03  -3.173828E-02   7.494340E+02         \r\n0       8       1    1.502419E+03  -1.188513E+01   3.046875E-01   1.152827E-02   1.502419E+03  -1.188513E+01   7.571522E+02         \r\n                3    1.505408E+03   2.685532E+01  -3.311523E+00  -1.283248E-01   1.505416E+03   2.684796E+01   7.392839E+02         \r\n                5    1.495664E+03  -1.689453E-01   1.208138E+00   4.627597E-02   1.495665E+03  -1.699219E-01   7.479175E+02         \r\n                C    1.501165E+03   4.933716E+00  -6.000977E-01  -2.297978E-02   1.501165E+03   4.933472E+00   7.481157E+02         \r\n0       9       1    1.655845E+03  -2.877625E+00   2.275977E+01   7.859730E-01   1.656157E+03  -3.189880E+00   8.296735E+02         \r\n                3    1.513057E+03   3.309448E+00   7.600586E+00   2.884369E-01   1.513095E+03   3.271179E+00   7.549119E+02         \r\n                5    1.421270E+03   1.002734E+01   1.826542E+01   7.414020E-01   1.421506E+03   9.790955E+00   7.058575E+02         \r\n                C    1.530057E+03   3.486084E+00   1.621045E+01   6.083248E-01   1.530229E+03   3.313965E+00   7.634574E+02         \r\n1     2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                                                                                   \r\n0     LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                                                        SUBCASE  3             \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )\r\n0 ELEMENT     POINT       STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)             MAX\r\n    ID.        NO.     NORMAL-X       NORMAL-Y       SHEAR-XY        ANGLE          MAJOR          MINOR          SHEAR\r\n0      10       1    1.475501E+03   1.244442E+02  -2.943164E+01  -1.247351E+00   1.476142E+03   1.238033E+02   6.761694E+02         \r\n                3    1.624542E+03  -1.373778E+02  -3.127290E+02  -9.772092E+00   1.678403E+03  -1.912386E+02   9.348207E+02         \r\n                5    1.309787E+03  -1.138135E+01   2.970793E+02   1.210725E+01   1.373515E+03  -7.510895E+01   7.243118E+02         \r\n                C    1.469942E+03  -8.104980E+00  -1.502881E+01  -5.825041E-01   1.470095E+03  -8.257812E+00   7.391765E+02         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                   \r\n DATE:  5/17/95\r\n END TIME: 14:59:55\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01101a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01101A,NASTRAN                                                           \r\n     SOL   1,0                                                                       \r\n     TIME  9                                                                         \r\n     APP   DISPLACEMENT                                                              \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = THERMAL BENDING OF A BAR.                                            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                          \r\n                  3      TEMPERATURE(LOAD) = 20                                                          \r\n                  4              OUTPUT                                                                  \r\n                  5         DISPLACEMENT = ALL                                                           \r\n                  6             SPCFORCE = ALL                                                           \r\n                  7              OLOAD   = ALL                                                           \r\n                  8              ELFORCE = ALL                                                           \r\n                  9              STRESS  = ALL                                                           \r\n                 10      SUBCASE 1                                                                       \r\n                 11              LABEL =   CONSTRAINTS ARE - FIXED AND FREE ENDS.                        \r\n                 12              SPC = 1                                                                 \r\n                 13      SUBCASE 2                                                                       \r\n                 14              LABEL =   CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.            \r\n                 15              SPC = 2                                                                 \r\n                 16      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    64, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR                                   .0      1.00    .0      1               \r\n                    2-        CBAR    101     10      1       2                                               \r\n                    3-        CBAR    102     10      2       3                                               \r\n                    4-        CBAR    103     10      3       4                                               \r\n                    5-        CBAR    104     10      4       5                                               \r\n                    6-        CBAR    105     10      5       6                                               \r\n                    7-        CBAR    106     10      6       7                                               \r\n                    8-        CBAR    107     10      7       8                                               \r\n                    9-        CBAR    108     10      8       9                                               \r\n                   10-        CBAR    109     10      9       10                                              \r\n                   11-        CBAR    110     10      10      11                                              \r\n                   12-        CBAR    111     10      11      12                                              \r\n                   13-        CBAR    112     10      12      13                                              \r\n                   14-        CBAR    113     10      13      14                                              \r\n                   15-        CBAR    114     10      14      15                                              \r\n                   16-        GRDSET                                                  345                     \r\n                   17-        GRID    1               .0      .0      .0                                      \r\n                   18-        GRID    2               2.4     .0      .0                                      \r\n                   19-        GRID    3               3.7     .0      .0                                      \r\n                   20-        GRID    4               4.7     .0      .0                                      \r\n                   21-        GRID    5               5.5     .0      .0                                      \r\n                   22-        GRID    6               6.2     .0      .0                                      \r\n                   23-        GRID    7               7.2     .0      .0                                      \r\n                   24-        GRID    8               7.8     .0      .0                                      \r\n                   25-        GRID    9               8.3     .0      .0                                      \r\n                   26-        GRID    10              8.7     .0      .0                                      \r\n                   27-        GRID    11              9.0     .0      .0                                      \r\n                   28-        GRID    12              9.3     .0      .0                                      \r\n                   29-        GRID    13              9.6     .0      .0                                      \r\n                   30-        GRID    14              9.8     .0      .0                                      \r\n                   31-        GRID    15              10.0    .0      .0                                      \r\n                   32-        MAT1    10      1.0+7           .3              1.3-5   .0                      \r\n                   33-        PBAR    10      10      .52     .0689333.0337333                        +BAR    \r\n                   34-        +BAR    .0              .3              .5              -0.5                    \r\n                   35-        SPC     1       1       126     .0                                              \r\n                   36-        SPC     2       1       126     .0      15      2       .0                      \r\n                   37-        TEMPRB  20      101     .0      .0      .0      2.35083 .0      .0      +1T     \r\n                   38-        +1T     .0      .0      .0      .0      .0      .373248 1.728   -1.728          \r\n                   39-        TEMPRB  20      102     .0      .0      2.35083 8.61375 .0      .0      +2T     \r\n                   40-        +2T     .0      .373248 1.728   -1.728  .0      1.36763 6.33163 -6.33163        \r\n                   41-        TEMPRB  20      103     .0      .0      8.61375 17.6555 .0      .0      +3T     \r\n                   42-        +3T     .0      1.36763 6.33163 -6.33163.0      2.80322 12.9779 -12.9779        \r\n                   43-        TEMPRB  20      104     .0      .0      17.6555 28.2928 .0      .0      +4T     \r\n                   44-        +4T     .0      2.80322 12.9779 -12.9779.0      4.49213 20.7969 -20.7969        \r\n                   45-        TEMPRB  20      105     .0      .0      28.2928 40.5287 .0      .0      +5T     \r\n                   46-        +5T     .0      4.49213 20.7969 -20.7969.0      6.43486 29.791  -29.791         \r\n                   47-        TEMPRB  20      106     .0      .0      40.5287 63.4724 .0      .0      +6T     \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +6T     .0      6.43486 29.791  -29.791 .0      10.0777 46.656  -46.656         \r\n                   49-        TEMPRB  20      107     .0      .0      63.4724 80.6995 .0      .0      +7T     \r\n                   50-        +7T     .0      10.0777 46.656  -46.656 .0      12.8129 59.319  -59.319         \r\n                   51-        TEMPRB  20      108     .0      .0      80.6995 97.2348 .0      .0      +8T     \r\n                   52-        +8T     .0      12.8129 59.319  -59.319 .0      15.4383 71.4734 -71.4734        \r\n                   53-        TEMPRB  20      109     .0      .0      97.2348 111.981 .0      .0      +9T     \r\n                   54-        +9T     .0      15.4383 71.4734 -71.4734.0      17.7796 82.3129 -82.3129        \r\n                   55-        TEMPRB  20      110     .0      .0      111.981 123.97  .0      .0      +10T    \r\n                   56-        +10T    .0      17.7796 82.3129 -82.3129.0      19.683  91.125  -91.125         \r\n                   57-        TEMPRB  20      111     .0      .0      123.97  136.784 .0      .0      +11T    \r\n                   58-        +11T    .0      19.683  91.125  -91.125 .0      21.7176 100.545 -100.545        \r\n                   59-        TEMPRB  20      112     .0      .0      136.784 150.453 .0      .0      +12T    \r\n                   60-        +12T    .0      21.7176 100.545 -100.545.0      23.8879 110.592 -110.592        \r\n                   61-        TEMPRB  20      113     .0      .0      150.453 160.054 .0      .0      +13T    \r\n                   62-        +13T    .0      23.8879 110.592 -110.592.0      25.4122 117.649 -117.649        \r\n                   63-        TEMPRB  20      114     .0      .0      160.054 170.054 .0      .0      +14T    \r\n                   64-        +14T    .0      25.4122 117.649 -117.649.0      27.0    125.0   -125.0          \r\n                              ENDDATA\r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE             29\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.933\r\n                                        RMS WAVEFRONT    1.949\r\n                                        RMS BANDWIDTH    1.949\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE             29\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.933\r\n                                        RMS WAVEFRONT    1.949\r\n                                        RMS BANDWIDTH    1.949\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        2         2\r\n                                        PROFILE (P)                         29        29\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            2         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        1.933     1.933\r\n                                        RMS WAVEFRONT (C-RMS)            1.949     1.949\r\n                                        RMS BANDWITCH (B-RMS)            1.949     1.949\r\n                                        NUMBER OF GRID POINTS (N)                     15\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                14\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                        14\r\n                                        MATRIX DENSITY, PERCENT                   19.111\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.7497619E-12\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   1.0778023E-13\r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND FREE ENDS.                                                               SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0           -2.933817E-05   0.0            0.0            0.0           -3.667279E-05                  \r\n             3      G      0.0           -1.257693E-04   0.0            0.0            0.0           -1.293234E-04                  \r\n             4      G      0.0           -3.306724E-04   0.0            0.0            0.0           -3.000733E-04                  \r\n             5      G      0.0           -6.589283E-04   0.0            0.0            0.0           -5.390043E-04                  \r\n             6      G      0.0           -1.139334E-03   0.0            0.0            0.0           -8.521419E-04                  \r\n             7      G      0.0           -2.304624E-03   0.0            0.0            0.0           -1.528149E-03                  \r\n             8      G      0.0           -3.383476E-03   0.0            0.0            0.0           -2.090419E-03                  \r\n             9      G      0.0           -4.568779E-03   0.0            0.0            0.0           -2.668706E-03                  \r\n            10      G      0.0           -5.742496E-03   0.0            0.0            0.0           -3.212666E-03                  \r\n            11      G      0.0           -6.774144E-03   0.0            0.0            0.0           -3.672770E-03                  \r\n            12      G      0.0           -7.950997E-03   0.0            0.0            0.0           -4.181241E-03                  \r\n            13      G      0.0           -9.288054E-03   0.0            0.0            0.0           -4.741353E-03                  \r\n            14      G      0.0           -1.027627E-02   0.0            0.0            0.0           -5.145011E-03                  \r\n            15      G      0.0           -1.134775E-02   0.0            0.0            0.0           -5.574150E-03                  \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.                                                   SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            8.726722E-04   0.0            0.0            0.0            6.823210E-04                  \r\n             3      G      0.0            1.917093E-03   0.0            0.0            0.0            8.972513E-04                  \r\n             4      G      0.0            2.840327E-03   0.0            0.0            0.0            9.239523E-04                  \r\n             5      G      0.0            3.546124E-03   0.0            0.0            0.0            8.184709E-04                  \r\n             6      G      0.0            4.051537E-03   0.0            0.0            0.0            6.042290E-04                  \r\n             7      G      0.0            4.401627E-03   0.0            0.0            0.0            4.056478E-05                  \r\n             8      G      0.0            4.279935E-03   0.0            0.0            0.0           -4.706409E-04                  \r\n             9      G      0.0            3.913174E-03   0.0            0.0            0.0           -1.015735E-03                  \r\n            10      G      0.0            3.404911E-03   0.0            0.0            0.0           -1.539269E-03                  \r\n            11      G      0.0            2.877122E-03   0.0            0.0            0.0           -1.987629E-03                  \r\n            12      G      0.0            2.207190E-03   0.0            0.0            0.0           -2.487418E-03                  \r\n            13      G      0.0            1.379200E-03   0.0            0.0            0.0           -3.041913E-03                  \r\n            14      G      0.0            7.310949E-04   0.0            0.0            0.0           -3.443528E-03                  \r\n            15      G      0.0            0.0            0.0            0.0            0.0           -3.871987E-03                  \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND FREE ENDS.                                                               SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -8.777737E+00   0.0            0.0            0.0           -7.629395E-06                  \r\n             2      G      0.0           -3.439463E+01   0.0            0.0            0.0           -2.288818E-05                  \r\n             3      G      0.0           -3.785376E+01   0.0            0.0            0.0           -2.288818E-05                  \r\n             4      G      0.0           -3.812915E+01   0.0            0.0            0.0           -4.577637E-05                  \r\n             5      G      0.0           -3.748755E+01   0.0            0.0            0.0            9.155273E-05                  \r\n             6      G      0.0           -4.896338E+01   0.0            0.0            0.0           -6.103516E-05                  \r\n             7      G      0.0           -5.169019E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n             8      G      0.0           -3.906006E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n             9      G      0.0           -3.400879E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n            10      G      0.0           -2.775781E+01   0.0            0.0            0.0           -1.220703E-04                  \r\n            11      G      0.0           -2.464453E+01   0.0            0.0            0.0           -4.882812E-04                  \r\n            12      G      0.0           -2.554297E+01   0.0            0.0            0.0           -7.324219E-04                  \r\n            13      G      0.0           -2.187305E+01   0.0            0.0            0.0            4.882812E-04                  \r\n            14      G      0.0           -1.788281E+01   0.0            0.0            0.0            1.220703E-03                  \r\n            15      G      0.0            4.480664E+02   0.0            0.0            0.0           -1.523909E+03                  \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.                                                   SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -8.777737E+00   0.0            0.0            0.0           -7.629395E-06                  \r\n             2      G      0.0           -3.439463E+01   0.0            0.0            0.0           -2.288818E-05                  \r\n             3      G      0.0           -3.785376E+01   0.0            0.0            0.0           -2.288818E-05                  \r\n             4      G      0.0           -3.812915E+01   0.0            0.0            0.0           -4.577637E-05                  \r\n             5      G      0.0           -3.748755E+01   0.0            0.0            0.0            9.155273E-05                  \r\n             6      G      0.0           -4.896338E+01   0.0            0.0            0.0           -6.103516E-05                  \r\n             7      G      0.0           -5.169019E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n             8      G      0.0           -3.906006E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n             9      G      0.0           -3.400879E+01   0.0            0.0            0.0           -2.441406E-04                  \r\n            10      G      0.0           -2.775781E+01   0.0            0.0            0.0           -1.220703E-04                  \r\n            11      G      0.0           -2.464453E+01   0.0            0.0            0.0           -4.882812E-04                  \r\n            12      G      0.0           -2.554297E+01   0.0            0.0            0.0           -7.324219E-04                  \r\n            13      G      0.0           -2.187305E+01   0.0            0.0            0.0            4.882812E-04                  \r\n            14      G      0.0           -1.788281E+01   0.0            0.0            0.0            1.220703E-03                  \r\n            15      G      0.0            4.480664E+02   0.0            0.0            0.0           -1.523909E+03                  \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND FREE ENDS.                                                               SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -1.119155E-09   0.0            0.0            0.0           -4.037770E-05                  \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.                                                   SUBCASE 2              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.346715E+01   0.0            0.0            0.0           -2.346715E+02                  \r\n            15      G      0.0            2.346715E+01   0.0            0.0            0.0            0.0                           \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND FREE ENDS.                                                               SUBCASE 1              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n          101     3.890592E-05  0.0            4.348356E-05  0.0           -1.907349E-06  0.0            0.0            0.0         \r\n          102     3.242493E-05  0.0            6.217956E-05  0.0           -2.288818E-05  0.0            0.0            0.0         \r\n          103     4.577637E-05  0.0            2.670288E-04  0.0           -2.212524E-04  0.0            0.0            0.0         \r\n          104    -1.220703E-04  0.0           -1.220701E-05  0.0           -1.373291E-04  0.0            0.0            0.0         \r\n          105     6.866455E-04  0.0           -8.087154E-04  0.0            2.136230E-03  0.0            0.0            0.0         \r\n          106    -5.493164E-04  0.0            1.525879E-04  0.0           -7.019043E-04  0.0            0.0            0.0         \r\n          107     2.441406E-04  0.0           -4.956058E-03  0.0            8.666992E-03  0.0            0.0            0.0         \r\n          108    -5.187988E-03  0.0           -6.408691E-03  0.0            2.441406E-03  0.0            0.0            0.0         \r\n          109     9.277344E-03  0.0            4.492192E-03  0.0            1.196289E-02  0.0            0.0            0.0         \r\n          110    -1.342773E-03  0.0           -1.562500E-03  0.0            7.324219E-04  0.0            0.0            0.0         \r\n          111    -1.464844E-03  0.0            3.881839E-03  0.0           -1.782227E-02  0.0            0.0            0.0         \r\n          112     1.647949E-02  0.0           -4.116214E-02  0.0            1.921387E-01  0.0            0.0            0.0         \r\n          113     8.789062E-03  0.0           -1.541991E-01  0.0            8.149414E-01  0.0            0.0            0.0         \r\n          114    -7.849121E-02  0.0           -6.589357E-02  0.0           -6.298828E-02  0.0            0.0            0.0         \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.                                                   SUBCASE 2              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n          101     2.346715E+02  0.0            1.783503E+02  0.0            2.346717E+01  0.0            0.0            0.0         \r\n          102     1.783505E+02  0.0            1.478437E+02  0.0            2.346679E+01  0.0            0.0            0.0         \r\n          103     1.478440E+02  0.0            1.243761E+02  0.0            2.346792E+01  0.0            0.0            0.0         \r\n          104     1.243749E+02  0.0            1.056023E+02  0.0            2.346568E+01  0.0            0.0            0.0         \r\n          105     1.056037E+02  0.0            8.917683E+01  0.0            2.346698E+01  0.0            0.0            0.0         \r\n          106     8.917719E+01  0.0            6.570914E+01  0.0            2.346805E+01  0.0            0.0            0.0         \r\n          107     6.570728E+01  0.0            5.163488E+01  0.0            2.345398E+01  0.0            0.0            0.0         \r\n          108     5.162762E+01  0.0            3.989984E+01  0.0            2.345557E+01  0.0            0.0            0.0         \r\n          109     3.988428E+01  0.0            3.050450E+01  0.0            2.344946E+01  0.0            0.0            0.0         \r\n          110     3.049866E+01  0.0            2.344843E+01  0.0            2.350073E+01  0.0            0.0            0.0         \r\n          111     2.348291E+01  0.0            1.641950E+01  0.0            2.354468E+01  0.0            0.0            0.0         \r\n          112     1.641492E+01  0.0            9.401021E+00  0.0            2.337964E+01  0.0            0.0            0.0         \r\n          113     9.399414E+00  0.0            4.686430E+00  0.0            2.356494E+01  0.0            0.0            0.0         \r\n          114     4.696899E+00  0.0            3.251553E-03  0.0            2.346826E+01  0.0            0.0            0.0         \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND FREE ENDS.                                                               SUBCASE 1              \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0    101     0.0           -1.693199E-04  -2.821998E-04   2.821998E-04   0.0            2.821998E-04  -2.821998E-04                 \r\n             0.0            4.315995E+01  -7.183636E+01   7.183636E+01                  7.183636E+01  -7.183636E+01                 \r\n0    102     0.0            4.316000E+01  -7.183629E+01   7.183629E+01   0.0            7.183629E+01  -7.183629E+01                 \r\n             0.0            1.581441E+02  -2.632186E+02   2.632186E+02                  2.632186E+02  -2.632186E+02                 \r\n0    103     0.0            1.581442E+02  -2.632185E+02   2.632185E+02   0.0            2.632185E+02  -2.632185E+02                 \r\n             0.0            3.241448E+02  -5.395214E+02   5.395214E+02                  5.395214E+02  -5.395214E+02                 \r\n0    104     0.0            3.241465E+02  -5.395185E+02   5.395185E+02   0.0            5.395185E+02  -5.395185E+02                 \r\n             0.0            5.194424E+02  -8.645649E+02   8.645649E+02                  8.645649E+02  -8.645649E+02                 \r\n0    105     0.0            5.194394E+02  -8.645699E+02   8.645699E+02   0.0            8.645699E+02  -8.645699E+02                 \r\n             0.0            7.440912E+02  -1.238459E+03   1.238459E+03                  1.238459E+03  -1.238459E+03                 \r\n0    106     0.0            7.440900E+02  -1.238460E+03   1.238460E+03   0.0            1.238460E+03  -1.238460E+03                 \r\n             0.0            1.165322E+03  -1.939575E+03   1.939575E+03                  1.939575E+03  -1.939575E+03                 \r\n0    107     0.0            1.165322E+03  -1.939576E+03   1.939576E+03   0.0            1.939576E+03  -1.939576E+03                 \r\n             0.0            1.481625E+03  -2.465967E+03   2.465967E+03                  2.465967E+03  -2.465967E+03                 \r\n0    108     0.0            1.481626E+03  -2.465965E+03   2.465965E+03   0.0            2.465965E+03  -2.465965E+03                 \r\n             0.0            1.785206E+03  -2.971233E+03   2.971233E+03                  2.971233E+03  -2.971233E+03                 \r\n0    109     0.0            1.785138E+03  -2.971347E+03   2.971347E+03   0.0            2.971347E+03  -2.971347E+03                 \r\n             0.0            2.055892E+03  -3.421944E+03   3.421944E+03                  3.421944E+03  -3.421944E+03                 \r\n0    110     0.0            2.055917E+03  -3.421902E+03   3.421902E+03   0.0            3.421902E+03  -3.421902E+03                 \r\n             0.0            2.276047E+03  -3.788189E+03   3.788189E+03                  3.788189E+03  -3.788189E+03                 \r\n0    111     0.0            2.276047E+03  -3.788189E+03   3.788189E+03   0.0            3.788189E+03  -3.788189E+03                 \r\n             0.0            2.511271E+03  -4.179918E+03   4.179918E+03                  4.179918E+03  -4.179918E+03                 \r\n0    112     0.0            2.511217E+03  -4.180010E+03   4.180010E+03   0.0            4.180010E+03  -4.180010E+03                 \r\n             0.0            2.762420E+03  -4.597217E+03   4.597217E+03                  4.597217E+03  -4.597217E+03                 \r\n0    113     0.0            2.762202E+03  -4.597579E+03   4.597579E+03   0.0            4.597579E+03  -4.597579E+03                 \r\n             0.0            2.939191E+03  -4.889742E+03   4.889742E+03                  4.889742E+03  -4.889742E+03                 \r\n0    114     0.0            2.938862E+03  -4.890291E+03   4.890291E+03   0.0            4.890291E+03  -4.890291E+03                 \r\n             0.0            3.122393E+03  -5.196012E+03   5.196012E+03                  5.196012E+03  -5.196012E+03                 \r\n1     THERMAL BENDING OF A BAR.                                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                                                                                   \r\n0       CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.                                                   SUBCASE 2              \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0    101     0.0           -1.021298E+03  -1.702164E+03   1.702164E+03   0.0            1.702164E+03  -1.702164E+03                 \r\n             0.0           -7.330262E+02  -1.365480E+03   1.365480E+03                  1.365480E+03  -1.365480E+03                 \r\n0    102     0.0           -7.330271E+02  -1.365481E+03   1.365481E+03   0.0            1.365481E+03  -1.365481E+03                 \r\n             0.0           -4.852762E+02  -1.335586E+03   1.335586E+03                  1.335586E+03  -1.335586E+03                 \r\n0    103     0.0           -4.852775E+02  -1.335588E+03   1.335588E+03   0.0            1.335588E+03  -1.335588E+03                 \r\n             0.0           -2.171429E+02  -1.441667E+03   1.441667E+03                  1.441667E+03  -1.441667E+03                 \r\n0    104     0.0           -2.171376E+02  -1.441659E+03   1.441659E+03   0.0            1.441659E+03  -1.441659E+03                 \r\n             0.0            5.985757E+01  -1.630540E+03   1.630540E+03                  1.630540E+03  -1.630540E+03                 \r\n0    105     0.0            5.985153E+01  -1.630550E+03   1.630550E+03   0.0            1.630550E+03  -1.630550E+03                 \r\n             0.0            3.559871E+02  -1.885299E+03   1.885299E+03                  1.885299E+03  -1.885299E+03                 \r\n0    106     0.0            3.559856E+02  -1.885301E+03   1.885301E+03   0.0            1.885301E+03  -1.885301E+03                 \r\n             0.0            8.793545E+02  -2.416188E+03   2.416188E+03                  2.416188E+03  -2.416188E+03                 \r\n0    107     0.0            8.793627E+02  -2.416174E+03   2.416174E+03   0.0            2.416174E+03  -2.416174E+03                 \r\n             0.0            1.256887E+03  -2.840530E+03   2.840530E+03                  2.840530E+03  -2.840530E+03                 \r\n0    108     0.0            1.256919E+03  -2.840478E+03   2.840478E+03   0.0            2.840478E+03  -2.840478E+03                 \r\n             0.0            1.611533E+03  -3.260688E+03   3.260688E+03                  3.260688E+03  -3.260688E+03                 \r\n0    109     0.0            1.611601E+03  -3.260575E+03   3.260575E+03   0.0            3.260575E+03  -3.260575E+03                 \r\n             0.0            1.923155E+03  -3.643172E+03   3.643172E+03                  3.643172E+03  -3.643172E+03                 \r\n0    110     0.0            1.923180E+03  -3.643130E+03   3.643130E+03   0.0            3.643130E+03  -3.643130E+03                 \r\n             0.0            2.173992E+03  -3.958281E+03   3.958281E+03                  3.958281E+03  -3.958281E+03                 \r\n0    111     0.0            2.173842E+03  -3.958531E+03   3.958531E+03   0.0            3.958531E+03  -3.958531E+03                 \r\n             0.0            2.439830E+03  -4.298987E+03   4.298987E+03                  4.298987E+03  -4.298987E+03                 \r\n0    112     0.0            2.439850E+03  -4.298954E+03   4.298954E+03   0.0            4.298954E+03  -4.298954E+03                 \r\n             0.0            2.721327E+03  -4.665705E+03   4.665705E+03                  4.665705E+03  -4.665705E+03                 \r\n0    113     0.0            2.721334E+03  -4.665693E+03   4.665693E+03   0.0            4.665693E+03  -4.665693E+03                 \r\n             0.0            2.918125E+03  -4.924853E+03   4.924853E+03                  4.924853E+03  -4.924853E+03                 \r\n0    114     0.0            2.918079E+03  -4.924929E+03   4.924929E+03   0.0            4.924929E+03  -4.924929E+03                 \r\n             0.0            3.122092E+03  -5.196513E+03   5.196513E+03                  5.196513E+03  -5.196513E+03                 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  THERMAL BENDING OF A BAR.                                          \r\n DATE:  5/17/95\r\n END TIME: 15: 0:56\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01111a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01111A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,3                                                                       \r\n     TIME  9                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT           \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                          \r\n                  3             SPC = 1                                                                  \r\n                  4      TEMP(LOAD) = 20                                                                 \r\n                  5         OUTPUT                                                                       \r\n                  6              DISPLACEMENT = ALL                                                      \r\n                  7              SPCFORCE     = ALL                                                      \r\n                  8              ELFORCE      = ALL                                                      \r\n                  9              STRESSES     = ALL                                                      \r\n                 10              STRAIN       = ALL                                                      \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   182, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       2       THRU    59                                              \r\n                    2-        CORD2R  1000            .0      .0      .0      .0      .0      1.0     +COR1   \r\n                    3-        +COR1   1.0     .0      .0                                                      \r\n                    4-        CQUAD1  1       101     1       2       8       7                               \r\n                    5-        CQUAD1  2       101     2       3       9       8                               \r\n                    6-        CQUAD1  3       101     3       4       10      9                               \r\n                    7-        CQUAD1  4       101     4       5       11      10                              \r\n                    8-        CQUAD1  5       101     5       6       12      11                              \r\n                    9-        CQUAD1  7       101     7       8       14      13                              \r\n                   10-        CQUAD1  8       101     8       9       15      14                              \r\n                   11-        CQUAD1  9       101     9       10      16      15                              \r\n                   12-        CQUAD1  10      101     10      11      17      16                              \r\n                   13-        CQUAD1  11      101     11      12      18      17                              \r\n                   14-        CQUAD1  13      101     13      14      20      19                              \r\n                   15-        CQUAD1  14      101     14      15      21      20                              \r\n                   16-        CQUAD1  15      101     15      16      22      21                              \r\n                   17-        CQUAD1  16      101     16      17      23      22                              \r\n                   18-        CQUAD1  17      101     17      18      24      23                              \r\n                   19-        CQUAD1  19      101     19      20      26      25                              \r\n                   20-        CQUAD1  20      101     20      21      27      26                              \r\n                   21-        CQUAD1  21      101     21      22      28      27                              \r\n                   22-        CQUAD1  22      101     22      23      29      28                              \r\n                   23-        CQUAD1  23      101     23      24      30      29                              \r\n                   24-        CQUAD1  25      101     25      26      32      31                              \r\n                   25-        CQUAD1  26      101     26      27      33      32                              \r\n                   26-        CQUAD1  27      101     27      28      34      33                              \r\n                   27-        CQUAD1  28      101     28      29      35      34                              \r\n                   28-        CQUAD1  29      101     29      30      36      35                              \r\n                   29-        CQUAD1  31      101     31      32      38      37                              \r\n                   30-        CQUAD1  32      101     32      33      39      38                              \r\n                   31-        CQUAD1  33      101     33      34      40      39                              \r\n                   32-        CQUAD1  34      101     34      35      41      40                              \r\n                   33-        CQUAD1  35      101     35      36      42      41                              \r\n                   34-        CQUAD1  37      101     37      38      44      43                              \r\n                   35-        CQUAD1  38      101     38      39      45      44                              \r\n                   36-        CQUAD1  39      101     39      40      46      45                              \r\n                   37-        CQUAD1  40      101     40      41      47      46                              \r\n                   38-        CQUAD1  41      101     41      42      48      47                              \r\n                   39-        CQUAD1  43      101     43      44      50      49                              \r\n                   40-        CQUAD1  44      101     44      45      51      50                              \r\n                   41-        CQUAD1  45      101     45      46      52      51                              \r\n                   42-        CQUAD1  46      101     46      47      53      52                              \r\n                   43-        CQUAD1  47      101     47      48      54      53                              \r\n                   44-        CQUAD1  49      101     49      50      56      55                              \r\n                   45-        CQUAD1  50      101     50      51      57      56                              \r\n                   46-        CQUAD1  51      101     51      52      58      57                              \r\n                   47-        CQUAD1  52      101     52      53      59      58                              \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD1  53      101     53      54      60      59                              \r\n                   49-        CQUAD1  55      101     55      56      62      61                              \r\n                   50-        CQUAD1  56      101     56      57      63      62                              \r\n                   51-        CQUAD1  57      101     57      58      64      63                              \r\n                   52-        CQUAD1  58      101     58      59      65      64                              \r\n                   53-        CQUAD1  59      101     59      60      66      65                              \r\n                   54-        GRDSET                                                  6                       \r\n                   55-        GRID    1               .00     .00     .00                                     \r\n                   56-        GRID    2               1.00000 .00     .00                                     \r\n                   57-        GRID    3               2.00000 .00     .00                                     \r\n                   58-        GRID    4               3.00000 .00     .00                                     \r\n                   59-        GRID    5               4.00000 .00     .00                                     \r\n                   60-        GRID    6               5.00000 .00     .00                                     \r\n                   61-        GRID    7               .00     1.00000 .00                                     \r\n                   62-        GRID    8               1.00000 1.00000 .00                                     \r\n                   63-        GRID    9               2.00000 1.00000 .00                                     \r\n                   64-        GRID    10              3.00000 1.00000 .00                                     \r\n                   65-        GRID    11              4.00000 1.00000 .00                                     \r\n                   66-        GRID    12              5.00000 1.00000 .00                                     \r\n                   67-        GRID    13              .00     2.00000 .00                                     \r\n                   68-        GRID    14              1.00000 2.00000 .00                                     \r\n                   69-        GRID    15              2.00000 2.00000 .00                                     \r\n                   70-        GRID    16              3.00000 2.00000 .00                                     \r\n                   71-        GRID    17              4.00000 2.00000 .00                                     \r\n                   72-        GRID    18              5.00000 2.00000 .00                                     \r\n                   73-        GRID    19              .00     3.00000 .00                                     \r\n                   74-        GRID    20              1.00000 3.00000 .00                                     \r\n                   75-        GRID    21              2.00000 3.00000 .00                                     \r\n                   76-        GRID    22              3.00000 3.00000 .00                                     \r\n                   77-        GRID    23              4.00000 3.00000 .00                                     \r\n                   78-        GRID    24              5.00000 3.00000 .00                                     \r\n                   79-        GRID    25              .00     4.00000 .00                                     \r\n                   80-        GRID    26              1.00000 4.00000 .00                                     \r\n                   81-        GRID    27              2.00000 4.00000 .00                                     \r\n                   82-        GRID    28              3.00000 4.00000 .00                                     \r\n                   83-        GRID    29              4.00000 4.00000 .00                                     \r\n                   84-        GRID    30              5.00000 4.00000 .00                                     \r\n                   85-        GRID    31              .00     5.00000 .00                                     \r\n                   86-        GRID    32              1.00000 5.00000 .00                                     \r\n                   87-        GRID    33              2.00000 5.00000 .00                                     \r\n                   88-        GRID    34              3.00000 5.00000 .00                                     \r\n                   89-        GRID    35              4.00000 5.00000 .00                                     \r\n                   90-        GRID    36              5.00000 5.00000 .00                                     \r\n                   91-        GRID    37              .00     6.00000 .00                                     \r\n                   92-        GRID    38              1.00000 6.00000 .00                                     \r\n                   93-        GRID    39              2.00000 6.00000 .00                                     \r\n                   94-        GRID    40              3.00000 6.00000 .00                                     \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    41              4.00000 6.00000 .00                                     \r\n                   96-        GRID    42              5.00000 6.00000 .00                                     \r\n                   97-        GRID    43              .00     7.00000 .00                                     \r\n                   98-        GRID    44              1.00000 7.00000 .00                                     \r\n                   99-        GRID    45              2.00000 7.00000 .00                                     \r\n                  100-        GRID    46              3.00000 7.00000 .00                                     \r\n                  101-        GRID    47              4.00000 7.00000 .00                                     \r\n                  102-        GRID    48              5.00000 7.00000 .00                                     \r\n                  103-        GRID    49              .00     8.00000 .00                                     \r\n                  104-        GRID    50              1.00000 8.00000 .00                                     \r\n                  105-        GRID    51              2.00000 8.00000 .00                                     \r\n                  106-        GRID    52              3.00000 8.00000 .00                                     \r\n                  107-        GRID    53              4.00000 8.00000 .00                                     \r\n                  108-        GRID    54              5.00000 8.00000 .00                                     \r\n                  109-        GRID    55              .00     9.00000 .00                                     \r\n                  110-        GRID    56              1.00000 9.00000 .00                                     \r\n                  111-        GRID    57              2.00000 9.00000 .00                                     \r\n                  112-        GRID    58              3.00000 9.00000 .00                                     \r\n                  113-        GRID    59              4.00000 9.00000 .00                                     \r\n                  114-        GRID    60              5.00000 9.00000 .00                                     \r\n                  115-        GRID    61              .00     10.0000 .00                                     \r\n                  116-        GRID    62              1.00000 10.0000 .00                                     \r\n                  117-        GRID    63              2.00000 10.0000 .00                                     \r\n                  118-        GRID    64              3.00000 10.0000 .00                                     \r\n                  119-        GRID    65              4.00000 10.0000 .00                                     \r\n                  120-        GRID    66              5.00000 10.0000 .00                                     \r\n                  121-        MAT1    1       3.0+5           .3      1.0     .01     .0              +MAT1   \r\n                  122-        +MAT1                           1000                                            \r\n                  123-        PARAM   IRES    1                                                               \r\n                  124-        PARAM   STRESS  0                                                               \r\n                  125-        PQUAD1  101     1       .5      1       .0104167                        +PQUAD1 \r\n                  126-        +PQUAD1 .25     -0.25                                                           \r\n                  127-        SPC1    1       34      6       12      18      24      30      36      +SPC-34 \r\n                  128-        +SPC-34 42      48      54      60      66                                      \r\n                  129-        SPC1    1       35      61      62      63      64      65      66              \r\n                  130-        SPC1    1       124     1       2       3       4       5       6               \r\n                  131-        SPC1    1       125     7       13      19      25      31      37      +SPC-5  \r\n                  132-        +SPC-5  43      49      55      61      1                                       \r\n                  133-        TEMPP1  20      1       .0      5.90786 2.46161 -2.46161                        \r\n                  134-        TEMPP1  20      2       .0      5.32956 2.22065 -2.22065                        \r\n                  135-        TEMPP1  20      3       .0      4.22956 1.76232 -1.76232                        \r\n                  136-        TEMPP1  20      4       .0      2.71555 1.13148 -1.13148                        \r\n                  137-        TEMPP1  20      5       .0      .93571  .38988  -.38988                         \r\n                  138-        TEMPP1  20      7       .0      5.76239 2.40100 -2.40100                        \r\n                  139-        TEMPP1  20      8       .0      5.19833 2.16597 -2.16597                        \r\n                  140-        TEMPP1  20      9       .0      4.12542 1.71892 -1.71892                        \r\n                  141-        TEMPP1  20      10      .0      2.64868 1.10362 -1.10362                        \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        TEMPP1  20      11      .0      .91267  .38028  -.38028                         \r\n                  143-        TEMPP1  20      13      .0      5.47503 2.28126 -2.28126                        \r\n                  144-        TEMPP1  20      14      .0      4.93910 2.05796 -2.05796                        \r\n                  145-        TEMPP1  20      15      .0      3.91969 1.63320 -1.63320                        \r\n                  146-        TEMPP1  20      16      .0      2.51660 1.04858 -1.04858                        \r\n                  147-        TEMPP1  20      17      .0      .86716  .36132  -.36132                         \r\n                  148-        TEMPP1  20      19      .0      5.05286 2.10536 -2.10536                        \r\n                  149-        TEMPP1  20      20      .0      4.55825 1.89927 -1.89927                        \r\n                  150-        TEMPP1  20      21      .0      3.61745 1.50727 -1.50727                        \r\n                  151-        TEMPP1  20      22      .0      2.32254 .96773  -.96773                         \r\n                  152-        TEMPP1  20      23      .0      .80029  .33346  -.33346                         \r\n                  153-        TEMPP1  20      25      .0      4.50626 1.87761 -1.87761                        \r\n                  154-        TEMPP1  20      26      .0      4.06516 1.69382 -1.69382                        \r\n                  155-        TEMPP1  20      27      .0      3.22613 1.34422 -1.34422                        \r\n                  156-        TEMPP1  20      28      .0      2.07130 .86304  -.86304                         \r\n                  157-        TEMPP1  20      29      .0      .71372  .29738  -.29738                         \r\n                  158-        TEMPP1  20      31      .0      3.84871 1.60363 -1.60363                        \r\n                  159-        TEMPP1  20      32      .0      3.47197 1.44666 -1.44666                        \r\n                  160-        TEMPP1  20      33      .0      2.75537 1.14807 -1.14807                        \r\n                  161-        TEMPP1  20      34      .0      1.76906 .73711  -.73711                         \r\n                  162-        TEMPP1  20      35      .0      .60958  .25399  -.25399                         \r\n                  163-        TEMPP1  20      37      .0      3.09639 1.29016 -1.29016                        \r\n                  164-        TEMPP1  20      38      .0      2.79330 1.16387 -1.16387                        \r\n                  165-        TEMPP1  20      39      .0      2.21677 .92366  -.92366                         \r\n                  166-        TEMPP1  20      40      .0      1.42326 .59302  -.59302                         \r\n                  167-        TEMPP1  20      41      .0      .49042  .20434  -.20434                         \r\n                  168-        TEMPP1  20      43      .0      2.26783 .94493  -.94493                         \r\n                  169-        TEMPP1  20      44      .0      2.04584 .85243  -.85243                         \r\n                  170-        TEMPP1  20      45      .0      1.62359 .67650  -.67650                         \r\n                  171-        TEMPP1  20      46      .0      1.04241 .43434  -.43434                         \r\n                  172-        TEMPP1  20      47      .0      .35919  .14966  -.14966                         \r\n                  173-        TEMPP1  20      49      .0      1.38343 .57643  -.57643                         \r\n                  174-        TEMPP1  20      50      .0      1.24801 .52000  -.52000                         \r\n                  175-        TEMPP1  20      51      .0      .99043  .41268  -.41268                         \r\n                  176-        TEMPP1  20      52      .0      .63589  .26496  -.26496                         \r\n                  177-        TEMPP1  20      53      .0      .21911  .09130  -.09130                         \r\n                  178-        TEMPP1  20      55      .0      .46496  .19373  -.19373                         \r\n                  179-        TEMPP1  20      56      .0      .41945  .17477  -.17477                         \r\n                  180-        TEMPP1  20      57      .0      .33287  .13870  -.13870                         \r\n                  181-        TEMPP1  20      58      .0      .21372  .08905  -.08905                         \r\n                  182-        TEMPP1  20      59      .0      .07364  .03068  -.03068                         \r\n                              ENDDATA\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            481\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    7.288\r\n                                        RMS WAVEFRONT    7.438\r\n                                        RMS BANDWIDTH    7.498\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            481\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    7.288\r\n                                        RMS WAVEFRONT    7.438\r\n                                        RMS BANDWIDTH    7.498\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                        481       481\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        7.288     7.288\r\n                                        RMS WAVEFRONT (C-RMS)            7.438     7.438\r\n                                        RMS BANDWITCH (B-RMS)            7.498     7.498\r\n                                        NUMBER OF GRID POINTS (N)                     66\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                50\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       215\r\n                                        MATRIX DENSITY, PERCENT                   11.387\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6240146E-13\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3  1.16529E-12        2 T3  4.09273E-12        2 R2  3.52429E-12        3 T3  1.95541E-11        3 R2  7.67386E-13\r\n             4 T3 -6.82121E-13        4 R2  3.97904E-13        5 T3 -7.73070E-12        5 R2  2.24532E-12        6 R2  7.81597E-13\r\n             7 T3  4.57590E-12        7 R1  5.11591E-12        8 T3  1.77351E-11        8 R1 -3.41061E-13        8 R2  2.62901E-12\r\n             9 T3  9.83391E-12        9 R1 -7.95808E-12        9 R2 -2.72848E-12       10 T3  8.35598E-12       10 R1 -1.93268E-12\r\n            10 R2  7.24754E-12       11 T3  1.58025E-11       11 R1 -3.06954E-12       11 R2 -2.67164E-12       12 R2  3.97904E-13\r\n            13 T3 -2.73133E-11       13 R1  2.10321E-12       14 T3  8.18545E-12       14 R1  5.68434E-12       14 R2  5.96856E-12\r\n            15 T3 -2.08047E-11       15 R1 -8.81073E-12       15 R2 -1.25056E-12       16 T3  1.87583E-12       16 R1 -4.54747E-12\r\n            16 R2 -2.21689E-12       17 T3  1.19940E-11       17 R1 -3.86535E-12       17 R2  1.87583E-12       18 R2  5.96856E-13\r\n            19 T3 -4.83169E-13       19 R1 -2.55795E-13       20 T3  2.00089E-11       20 R1 -6.99174E-12       20 R2  6.93490E-12\r\n            21 T3  1.51203E-11       21 R1 -3.41061E-12       21 R2  3.06954E-12       22 T3  8.29914E-12       22 R1 -6.93490E-12\r\n            22 R2 -4.54747E-13       23 T3 -9.66338E-13       23 R1 -4.03588E-12       23 R2 -2.10321E-12       24 R2 -1.20792E-12\r\n            25 T3 -1.00044E-11       25 R1 -7.95808E-13       26 T3  7.41807E-12       26 R1 -6.42331E-12       26 R2  1.04592E-11\r\n            27 T3 -4.83169E-12       27 R1 -3.18323E-12       27 R2  1.56319E-13       28 T3  1.59730E-11       28 R1 -6.82121E-13\r\n            28 R2  6.30962E-12       29 T3  4.09273E-12       29 R1  6.25278E-13       29 R2  1.19371E-12       30 R2 -6.39488E-14\r\n            31 T3  8.07177E-12       31 R1  3.01270E-12       32 T3 -9.91918E-12       32 R1 -8.15703E-12       32 R2  1.05160E-12\r\n            33 T3  6.02540E-12       33 R1 -3.86535E-12       33 R2  5.91172E-12       34 T3 -6.08225E-12       34 R1 -2.89901E-12\r\n            34 R2  2.45848E-12       35 T3  1.25056E-11       35 R1  3.41061E-13       35 R2  1.63425E-12       36 R2  2.62901E-13\r\n            37 T3 -1.25908E-11       37 R1  8.66862E-13       38 T3  1.03171E-11       38 R1 -2.07478E-12       38 R2  1.54188E-12\r\n            39 T3  1.02318E-12       39 R1 -2.84217E-14       39 R2  1.79057E-12       40 T3 -6.59384E-12       40 R1 -3.18323E-12\r\n            40 R2  1.50635E-12       41 T3  6.25278E-13       41 R1 -7.38964E-13       41 R2  1.79057E-12       42 R2  2.13163E-14\r\n            43 T3  2.21689E-12       43 R1  2.33058E-12       44 T3 -1.89573E-11       44 R1  2.75691E-12       44 R2 -1.27898E-12\r\n            45 T3 -9.26548E-12       45 R1  7.95808E-13       45 R2 -8.31335E-13       46 T3  3.29692E-12       46 R1 -1.76215E-12\r\n            46 R2  1.42819E-12       47 T3  2.41585E-12       47 R1 -3.12639E-13       47 R2 -2.41585E-13       48 R2 -6.00409E-13\r\n            49 T3 -2.61835E-12       49 R1  5.08038E-13       50 T3  1.22213E-11       50 R1 -5.23670E-12       50 R2 -7.28306E-13\r\n            51 T3  6.86384E-12       51 R1 -1.32161E-12       51 R2  3.19744E-14       52 T3 -1.17950E-12       52 R1  3.69482E-13\r\n            52 R2  3.01981E-13       53 T3  5.82645E-13       53 R1  7.67386E-13       53 R2 -3.05533E-13       54 R2 -6.76792E-13\r\n            55 T3 -5.68434E-14       55 R1  1.09424E-12       56 T3 -5.11591E-13       56 R1 -9.94760E-14       56 R2  1.47793E-12\r\n            57 T3 -2.78533E-12       57 R1  2.70006E-13       57 R2  1.33582E-12       58 T3  1.96110E-12       58 R1  6.82121E-13\r\n            58 R2  1.27898E-13       59 T3  4.54747E-13       59 R1  6.82121E-13       59 R2 -3.69482E-13       60 R2 -1.56319E-13\r\n            61 R1 -1.70530E-13       62 R1 -2.80664E-13       63 R1 -4.01457E-13       64 R1  6.48370E-13       65 R1  1.13687E-13\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED\r\n0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            6.289829E-01   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            5.981983E-01   0.0            6.155673E-02   0.0                           \r\n             3      G      0.0            0.0            5.088579E-01   0.0            1.170879E-01   0.0                           \r\n             4      G      0.0            0.0            3.697069E-01   0.0            1.611577E-01   0.0                           \r\n             5      G      0.0            0.0            1.943664E-01   0.0            1.894522E-01   0.0                           \r\n             6      G      0.0            0.0            0.0            0.0            1.992018E-01   0.0                           \r\n             7      G      0.0            0.0            6.212391E-01  -1.547499E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            5.908335E-01  -1.471759E-02   6.079886E-02   0.0                           \r\n             9      G      0.0            0.0            5.025930E-01  -1.251952E-02   1.156463E-01   0.0                           \r\n            10      G      0.0            0.0            3.651552E-01  -9.095970E-03   1.591735E-01   0.0                           \r\n            11      G      0.0            0.0            1.919734E-01  -4.782042E-03   1.871198E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            1.967493E-01   0.0                           \r\n            13      G      0.0            0.0            5.981983E-01  -3.056896E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            5.689204E-01  -2.907280E-02   5.854392E-02   0.0                           \r\n            15      G      0.0            0.0            4.839526E-01  -2.473081E-02   1.113572E-01   0.0                           \r\n            16      G      0.0            0.0            3.516122E-01  -1.796798E-02   1.532701E-01   0.0                           \r\n            17      G      0.0            0.0            1.848534E-01  -9.446317E-03   1.801798E-01   0.0                           \r\n            18      G      0.0            0.0            0.0            0.0            1.894522E-01   0.0                           \r\n            19      G      0.0            0.0            5.604278E-01  -4.491021E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            5.329986E-01  -4.271215E-02   5.484745E-02   0.0                           \r\n            21      G      0.0            0.0            4.533957E-01  -3.633313E-02   1.043261E-01   0.0                           \r\n            22      G      0.0            0.0            3.294112E-01  -2.639757E-02   1.435925E-01   0.0                           \r\n            23      G      0.0            0.0            1.731817E-01  -1.387804E-02   1.688032E-01   0.0                           \r\n            24      G      0.0            0.0            0.0            0.0            1.774901E-01   0.0                           \r\n            25      G      0.0            0.0            5.088578E-01  -5.814566E-02   0.0            0.0                           \r\n            26      G      0.0            0.0            4.839526E-01  -5.529981E-02   4.980044E-02   0.0                           \r\n            27      G      0.0            0.0            4.116746E-01  -4.704082E-02   9.472609E-02   0.0                           \r\n            28      G      0.0            0.0            2.990991E-01  -3.417715E-02   1.303793E-01   0.0                           \r\n            29      G      0.0            0.0            1.572457E-01  -1.796798E-02   1.532700E-01   0.0                           \r\n            30      G      0.0            0.0            0.0            0.0            1.611576E-01   0.0                           \r\n            31      G      0.0            0.0            4.447580E-01  -6.994929E-02   0.0            0.0                           \r\n            32      G      0.0            0.0            4.229900E-01  -6.652573E-02   4.352717E-02   0.0                           \r\n            33      G      0.0            0.0            3.598168E-01  -5.659018E-02   8.279362E-02   0.0                           \r\n            34      G      0.0            0.0            2.614222E-01  -4.111516E-02   1.139557E-01   0.0                           \r\n            35      G      0.0            0.0            1.374378E-01  -2.161550E-02   1.339629E-01   0.0                           \r\n            36      G      0.0            0.0            0.0            0.0            1.408570E-01   0.0                           \r\n            37      G      0.0            0.0            3.697068E-01  -8.003054E-02   0.0            0.0                           \r\n            38      G      0.0            0.0            3.516121E-01  -7.611356E-02   3.618212E-02   0.0                           \r\n            39      G      0.0            0.0            2.990991E-01  -6.474605E-02   6.882253E-02   0.0                           \r\n            40      G      0.0            0.0            2.173082E-01  -4.704076E-02   9.472606E-02   0.0                           \r\n            41      G      0.0            0.0            1.142457E-01  -2.473079E-02   1.113572E-01   0.0                           \r\n            42      G      0.0            0.0            0.0            0.0            1.170879E-01   0.0                           \r\n            43      G      0.0            0.0            2.855522E-01  -8.814117E-02   0.0            0.0                           \r\n            44      G      0.0            0.0            2.715763E-01  -8.382725E-02   2.794615E-02   0.0                           \r\n            45      G      0.0            0.0            2.310166E-01  -7.130771E-02   5.315678E-02   0.0                           \r\n            46      G      0.0            0.0            1.678434E-01  -5.180809E-02   7.316402E-02   0.0                           \r\n            47      G      0.0            0.0            8.824050E-02  -2.723713E-02   8.600949E-02   0.0                           \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G      0.0            0.0            0.0            0.0            9.043574E-02   0.0                           \r\n            49      G      0.0            0.0            1.943664E-01  -9.408151E-02   0.0            0.0                           \r\n            50      G      0.0            0.0            1.848534E-01  -8.947683E-02   1.902207E-02   0.0                           \r\n            51      G      0.0            0.0            1.572457E-01  -7.611354E-02   3.618213E-02   0.0                           \r\n            52      G      0.0            0.0            1.142457E-01  -5.529974E-02   4.980046E-02   0.0                           \r\n            53      G      0.0            0.0            6.006252E-02  -2.907281E-02   5.854395E-02   0.0                           \r\n            54      G      0.0            0.0            0.0            0.0            6.155673E-02   0.0                           \r\n            55      G      0.0            0.0            9.839460E-02  -9.770528E-02   0.0            0.0                           \r\n            56      G      0.0            0.0            9.357884E-02  -9.292324E-02   9.629590E-03   0.0                           \r\n            57      G      0.0            0.0            7.960291E-02  -7.904524E-02   1.831659E-02   0.0                           \r\n            58      G      0.0            0.0            5.783490E-02  -5.742973E-02   2.521062E-02   0.0                           \r\n            59      G      0.0            0.0            3.040560E-02  -3.019259E-02   2.963686E-02   0.0                           \r\n            60      G      0.0            0.0            0.0            0.0            3.116201E-02   0.0                           \r\n            61      G      0.0            0.0            0.0           -9.892321E-02   0.0            0.0                           \r\n            62      G      0.0            0.0            0.0           -9.408157E-02   0.0            0.0                           \r\n            63      G      0.0            0.0            0.0           -8.003056E-02   0.0            0.0                           \r\n            64      G      0.0            0.0            0.0           -5.814559E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            0.0           -3.056894E-02   0.0            0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -7.400122E+01   1.861396E+01   0.0                           \r\n             2      G      0.0            0.0            0.0           -1.407587E+02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -1.197365E+02   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -8.699371E+01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -4.573529E+01   0.0            0.0                           \r\n             6      G      0.0            0.0           -5.925016E+00  -1.750928E+01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            0.0            3.676960E+01   0.0                           \r\n            12      G      0.0            0.0           -1.170411E+01   8.652160E-02   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            3.540588E+01   0.0                           \r\n            18      G      0.0            0.0           -1.127010E+01   1.707948E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            0.0            3.317041E+01   0.0                           \r\n            24      G      0.0            0.0           -1.055845E+01   2.511623E-01   0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            3.011804E+01   0.0                           \r\n            30      G      0.0            0.0           -9.586771E+00   3.250313E-01   0.0            0.0                           \r\n            31      G      0.0            0.0            0.0            0.0            2.632403E+01   0.0                           \r\n            36      G      0.0            0.0           -8.379259E+00   3.909180E-01   0.0            0.0                           \r\n            37      G      0.0            0.0            0.0            0.0            2.188195E+01   0.0                           \r\n            42      G      0.0            0.0           -6.965311E+00   4.474613E-01   0.0            0.0                           \r\n            43      G      0.0            0.0            0.0            0.0            1.690109E+01   0.0                           \r\n            48      G      0.0            0.0           -5.379806E+00   4.926479E-01   0.0            0.0                           \r\n            49      G      0.0            0.0            0.0            0.0            1.150410E+01   0.0                           \r\n            54      G      0.0            0.0           -3.661853E+00   5.260014E-01   0.0            0.0                           \r\n            55      G      0.0            0.0            0.0            0.0            5.823802E+00   0.0                           \r\n            60      G      0.0            0.0           -1.853672E+00   5.461640E-01   0.0            0.0                           \r\n            61      G      0.0            0.0           -1.168273E+01   0.0            1.289775E+01   0.0                           \r\n            62      G      0.0            0.0           -2.222199E+01   0.0           -1.049895E+00   0.0                           \r\n            63      G      0.0            0.0           -1.890310E+01   0.0           -1.997354E+00   0.0                           \r\n            64      G      0.0            0.0           -1.373387E+01   0.0           -2.748788E+00   0.0                           \r\n            65      G      0.0            0.0           -7.220332E+00   0.0           -3.231655E+00   0.0                           \r\n            66      G      0.0            0.0            1.490416E+02   2.764740E-01  -1.698860E+00   0.0                           \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                 F O R C E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S     ( C Q U A D 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1          3.810094E+01          1.488741E+02          9.116211E-01         -1.681641E+00         -1.685547E+00      \r\n               2          3.437134E+01          1.343014E+02          2.645996E+00         -4.884766E+00         -1.519531E+00      \r\n               3          2.727718E+01          1.065821E+02          4.122559E+00         -7.611328E+00         -1.207031E+00      \r\n               4          1.751310E+01          6.843006E+01          5.194580E+00         -9.588867E+00         -7.734375E-01      \r\n               5          6.034527E+00          2.357921E+01          5.758179E+00         -1.063184E+01         -2.675781E-01      \r\n               7          3.716281E+01          1.452083E+02          2.712891E+00         -1.640625E+00         -5.007812E+00      \r\n               8          3.352502E+01          1.309944E+02          7.875000E+00         -4.765625E+00         -4.515625E+00      \r\n               9          2.660574E+01          1.039578E+02          1.226538E+01         -7.422852E+00         -3.583008E+00      \r\n              10          1.708173E+01          6.674492E+01          1.545557E+01         -9.353516E+00         -2.301758E+00      \r\n              11          5.885925E+00          2.299864E+01          1.713293E+01         -1.036987E+01         -7.939453E-01      \r\n              13          3.530957E+01          1.379671E+02          4.447754E+00         -1.560547E+00         -8.207031E+00      \r\n              14          3.185324E+01          1.244620E+02          1.290918E+01         -4.527344E+00         -7.400391E+00      \r\n              15          2.527878E+01          9.877349E+01          2.010693E+01         -7.053711E+00         -5.875977E+00      \r\n              16          1.623011E+01          6.341660E+01          2.533643E+01         -8.886719E+00         -3.771484E+00      \r\n              17          5.592537E+00          2.185180E+01          2.808569E+01         -9.853027E+00         -1.300293E+00      \r\n              19          3.258702E+01          1.273286E+02          6.072998E+00         -1.441406E+00         -1.120117E+01      \r\n              20          2.939702E+01          1.148648E+02          1.762598E+01         -4.176758E+00         -1.010938E+01      \r\n              21          2.332970E+01          9.115733E+01          2.745337E+01         -6.509766E+00         -8.023438E+00      \r\n              22          1.497841E+01          5.852643E+01          3.459338E+01         -8.201172E+00         -5.150391E+00      \r\n              23          5.161152E+00          2.016675E+01          3.834692E+01         -9.093018E+00         -1.775391E+00      \r\n              25          2.906168E+01          1.135548E+02          7.549072E+00         -1.284180E+00         -1.392773E+01      \r\n              26          2.621701E+01          1.024394E+02          2.190845E+01         -3.726562E+00         -1.256445E+01      \r\n              27          2.080591E+01          8.129636E+01          3.412378E+01         -5.805664E+00         -9.970703E+00      \r\n              28          1.335812E+01          5.219539E+01          4.299792E+01         -7.314453E+00         -6.402344E+00      \r\n              29          4.602867E+00          1.798526E+01          4.766394E+01         -8.109375E+00         -2.206543E+00      \r\n              31          2.482106E+01          9.698503E+01          8.839111E+00         -1.095703E+00         -1.630664E+01      \r\n              32          2.239125E+01          8.749140E+01          2.565161E+01         -3.182617E+00         -1.471094E+01      \r\n              33          1.776981E+01          6.943353E+01          3.995312E+01         -4.957031E+00         -1.167578E+01      \r\n              34          1.140897E+01          4.457915E+01          5.034448E+01         -6.248047E+00         -7.496582E+00      \r\n              35          3.931374E+00          1.536104E+01          5.580719E+01         -6.926025E+00         -2.583496E+00      \r\n              37          1.996918E+01          7.802699E+01          9.910645E+00         -8.808594E-01         -1.828516E+01      \r\n              38          1.801458E+01          7.038936E+01          2.876318E+01         -2.560547E+00         -1.649609E+01      \r\n              39          1.429631E+01          5.586108E+01          4.479968E+01         -3.988281E+00         -1.309082E+01      \r\n              40          9.178928E+00          3.586526E+01          5.645105E+01         -5.026855E+00         -8.405273E+00      \r\n              41          3.162741E+00          1.235822E+01          6.257642E+01         -5.572388E+00         -2.896729E+00      \r\n              43          1.462569E+01          5.714783E+01          1.073926E+01         -6.455078E-01         -1.981396E+01      \r\n              44          1.319399E+01          5.155382E+01          3.116638E+01         -1.874512E+00         -1.787402E+01      \r\n              45          1.047088E+01          4.091340E+01          4.854285E+01         -2.920898E+00         -1.418457E+01      \r\n              46          6.722740E+00          2.626803E+01          6.116754E+01         -3.681152E+00         -9.107910E+00      \r\n              47          2.316523E+00          9.051338E+00          6.780478E+01         -4.081116E+00         -3.138672E+00      \r\n              49          8.922112E+00          3.486148E+01          1.130286E+01         -3.930664E-01         -2.085400E+01      \r\n              50          8.048695E+00          3.144896E+01          3.280212E+01         -1.143555E+00         -1.881201E+01      \r\n              51          6.387611E+00          2.495819E+01          5.109064E+01         -1.782227E+00         -1.493018E+01      \r\n              52          4.100914E+00          1.602398E+01          6.437796E+01         -2.245605E+00         -9.585449E+00      \r\n              53          1.413036E+00          5.521420E+00          7.136359E+01         -2.489563E+00         -3.303101E+00      \r\n              55          2.998659E+00          1.171662E+01          1.158815E+01         -1.317444E-01         -2.138025E+01      \r\n              56          2.705261E+00          1.056990E+01          3.363035E+01         -3.840942E-01         -1.928735E+01      \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                 F O R C E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S     ( C Q U A D 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n              57          2.146612E+00          8.388025E+00          5.238049E+01         -5.986786E-01         -1.530640E+01      \r\n              58          1.378399E+00          5.385653E+00          6.600327E+01         -7.545395E-01         -9.827454E+00      \r\n              59          4.748776E-01          1.855652E+00          7.316516E+01         -8.366966E-01         -3.386353E+00      \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1    2.500000E-01     -5.134327E+03  -7.792875E+03  -2.187884E+01    -0.4715   -5.134147E+03   -7.793055E+03   1.329454E+03 \r\n            -2.500000E-01      5.134327E+03   7.792875E+03   2.187884E+01    89.5285    7.793055E+03    5.134147E+03   1.329454E+03 \r\n0       2    2.500000E-01     -4.631738E+03  -7.030051E+03  -6.350370E+01    -1.5157   -4.630058E+03   -7.031731E+03   1.200837E+03 \r\n            -2.500000E-01      4.631738E+03   7.030051E+03   6.350370E+01    88.4843    7.031731E+03    4.630058E+03   1.200837E+03 \r\n0       3    2.500000E-01     -3.675779E+03  -5.579090E+03  -9.894109E+01    -2.9678   -3.670650E+03   -5.584220E+03   9.567849E+02 \r\n            -2.500000E-01      3.675779E+03   5.579090E+03   9.894109E+01    87.0322    5.584220E+03    3.670650E+03   9.567849E+02 \r\n0       4    2.500000E-01     -2.359995E+03  -3.581999E+03  -1.246695E+02    -5.7662   -2.347406E+03   -3.594588E+03   6.235909E+02 \r\n            -2.500000E-01      2.359995E+03   3.581999E+03   1.246695E+02    84.2338    3.594588E+03    2.347406E+03   6.235909E+02 \r\n0       5    2.500000E-01     -8.131960E+02  -1.234267E+03  -1.381958E+02   -16.6405   -7.718917E+02   -1.275571E+03   2.518398E+02 \r\n            -2.500000E-01      8.131960E+02   1.234267E+03   1.381958E+02    73.3595    1.275571E+03    7.718917E+02   2.518398E+02 \r\n0       7    2.500000E-01     -5.007916E+03  -7.601000E+03  -6.510917E+01    -1.4374   -5.006282E+03   -7.602634E+03   1.298176E+03 \r\n            -2.500000E-01      5.007916E+03   7.601000E+03   6.510917E+01    88.5626    7.602634E+03    5.006282E+03   1.298176E+03 \r\n0       8    2.500000E-01     -4.517688E+03  -6.856945E+03  -1.889994E+02    -4.5895   -4.502516E+03   -6.872117E+03   1.184800E+03 \r\n            -2.500000E-01      4.517688E+03   6.856945E+03   1.889994E+02    85.4105    6.872117E+03    4.502516E+03   1.184800E+03 \r\n0       9    2.500000E-01     -3.585243E+03  -5.441688E+03  -2.943682E+02    -8.7977   -3.539685E+03   -5.487246E+03   9.737809E+02 \r\n            -2.500000E-01      3.585243E+03   5.441688E+03   2.943682E+02    81.2023    5.487246E+03    3.539685E+03   9.737809E+02 \r\n0      10    2.500000E-01     -2.301889E+03  -3.493802E+03  -3.709324E+02   -15.9494   -2.195880E+03   -3.599810E+03   7.019650E+02 \r\n            -2.500000E-01      2.301889E+03   3.493802E+03   3.709324E+02    74.0506    3.599810E+03    2.195880E+03   7.019650E+02 \r\n0      11    2.500000E-01     -7.931724E+02  -1.203876E+03  -4.111891E+02   -31.7310   -5.389094E+02   -1.458139E+03   4.596149E+02 \r\n            -2.500000E-01      7.931724E+02   1.203876E+03   4.111891E+02    58.2690    1.458139E+03    5.389094E+02   4.596149E+02 \r\n0      13    2.500000E-01     -4.758152E+03  -7.221924E+03  -1.067458E+02    -2.4762   -4.753536E+03   -7.226540E+03   1.236502E+03 \r\n            -2.500000E-01      4.758152E+03   7.221924E+03   1.067458E+02    87.5238    7.226540E+03    4.753536E+03   1.236502E+03 \r\n0      14    2.500000E-01     -4.292411E+03  -6.515015E+03  -3.098193E+02    -7.7890   -4.250032E+03   -6.557394E+03   1.153681E+03 \r\n            -2.500000E-01      4.292411E+03   6.515015E+03   3.098193E+02    82.2110    6.557394E+03    4.250032E+03   1.153681E+03 \r\n0      15    2.500000E-01     -3.406450E+03  -5.170317E+03  -4.825649E+02   -14.3430   -3.283060E+03   -5.293708E+03   1.005324E+03 \r\n            -2.500000E-01      3.406450E+03   5.170317E+03   4.825649E+02    75.6570    5.293708E+03    3.283060E+03   1.005324E+03 \r\n0      16    2.500000E-01     -2.187079E+03  -3.319551E+03  -6.080723E+02   -23.5202   -1.922427E+03   -3.584203E+03   8.308882E+02 \r\n            -2.500000E-01      2.187079E+03   3.319551E+03   6.080723E+02    66.4798    3.584203E+03    1.922427E+03   8.308882E+02 \r\n0      17    2.500000E-01     -7.536347E+02  -1.143856E+03  -6.740545E+02   -36.9282   -2.470205E+02   -1.650470E+03   7.017247E+02 \r\n            -2.500000E-01      7.536347E+02   1.143856E+03   6.740545E+02    53.0718    1.650470E+03    2.470205E+02   7.017247E+02 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      19    2.500000E-01     -4.391279E+03  -6.665070E+03  -1.457515E+02    -3.6528   -4.381975E+03   -6.674375E+03   1.146200E+03 \r\n            -2.500000E-01      4.391279E+03   6.665070E+03   1.457515E+02    86.3472    6.674375E+03    4.381975E+03   1.146200E+03 \r\n0      20    2.500000E-01     -3.961416E+03  -6.012635E+03  -4.230221E+02   -11.2071   -3.877601E+03   -6.096450E+03   1.109425E+03 \r\n            -2.500000E-01      3.961416E+03   6.012635E+03   4.230221E+02    78.7929    6.096450E+03    3.877601E+03   1.109425E+03 \r\n0      21    2.500000E-01     -3.143800E+03  -4.771658E+03  -6.588788E+02   -19.4952   -2.910542E+03   -5.004917E+03   1.047188E+03 \r\n            -2.500000E-01      3.143800E+03   4.771658E+03   6.588788E+02    70.5048    5.004917E+03    2.910542E+03   1.047188E+03 \r\n0      22    2.500000E-01     -2.018459E+03  -3.063608E+03  -8.302386E+02   -28.9063   -1.560024E+03   -3.522043E+03   9.810099E+02 \r\n            -2.500000E-01      2.018459E+03   3.063608E+03   8.302386E+02    61.0937    3.522043E+03    1.560024E+03   9.810099E+02 \r\n0      23    2.500000E-01     -6.955280E+02  -1.055661E+03  -9.203232E+02   -39.4648    6.217871E+01   -1.813368E+03   9.377733E+02 \r\n            -2.500000E-01      6.955280E+02   1.055661E+03   9.203232E+02    50.5352    1.813368E+03   -6.217871E+01   9.377733E+02 \r\n0      25    2.500000E-01     -3.916242E+03  -5.944071E+03  -1.811772E+02    -5.0656   -3.900182E+03   -5.960131E+03   1.029974E+03 \r\n            -2.500000E-01      3.916242E+03   5.944071E+03   1.811772E+02    84.9343    5.960131E+03    3.900182E+03   1.029974E+03 \r\n0      26    2.500000E-01     -3.532906E+03  -5.362237E+03  -5.258011E+02   -14.9464   -3.392546E+03   -5.502598E+03   1.055026E+03 \r\n            -2.500000E-01      3.532906E+03   5.362237E+03   5.258011E+02    75.0536    5.502598E+03    3.392546E+03   1.055026E+03 \r\n0      27    2.500000E-01     -2.803715E+03  -4.255481E+03  -8.189681E+02   -24.2241   -2.435242E+03   -4.623954E+03   1.094356E+03 \r\n            -2.500000E-01      2.803715E+03   4.255481E+03   8.189681E+02    65.7759    4.623954E+03    2.435242E+03   1.094356E+03 \r\n0      28    2.500000E-01     -1.800087E+03  -2.732178E+03  -1.031947E+03   -32.8476   -1.133828E+03   -3.398437E+03   1.132304E+03 \r\n            -2.500000E-01      1.800087E+03   2.732178E+03   1.031947E+03    57.1524    3.398437E+03    1.133828E+03   1.132304E+03 \r\n0      29    2.500000E-01     -6.202542E+02  -9.414305E+02  -1.143931E+03   -41.0044    3.743055E+02   -1.935990E+03   1.155148E+03 \r\n            -2.500000E-01      6.202542E+02   9.414305E+02   1.143931E+03    48.9956    1.935990E+03   -3.743055E+02   1.155148E+03 \r\n0      31    2.500000E-01     -3.344785E+03  -5.076715E+03  -2.121380E+02    -6.8824   -3.319180E+03   -5.102320E+03   8.915702E+02 \r\n            -2.500000E-01      3.344785E+03   5.076715E+03   2.121380E+02    83.1176    5.102320E+03    3.319180E+03   8.915702E+02 \r\n0      32    2.500000E-01     -3.017392E+03  -4.579791E+03  -6.156367E+02   -19.1202   -2.803965E+03   -4.793217E+03   9.946260E+02 \r\n            -2.500000E-01      3.017392E+03   4.579791E+03   6.156367E+02    70.8798    4.793217E+03    2.803965E+03   9.946260E+02 \r\n0      33    2.500000E-01     -2.394592E+03  -3.634517E+03  -9.588719E+02   -28.5576   -1.872719E+03   -4.156391E+03   1.141836E+03 \r\n            -2.500000E-01      2.394592E+03   3.634517E+03   9.588719E+02    61.4424    4.156391E+03    1.872719E+03   1.141836E+03 \r\n0      34    2.500000E-01     -1.537436E+03  -2.333518E+03  -1.208264E+03   -35.8832   -6.633378E+02   -3.207616E+03   1.272139E+03 \r\n            -2.500000E-01      1.537436E+03   2.333518E+03   1.208264E+03    54.1168    3.207616E+03    6.633378E+02   1.272139E+03 \r\n0      35    2.500000E-01     -5.297598E+02  -8.040709E+02  -1.339368E+03   -42.0766    6.794572E+02   -2.013288E+03   1.346373E+03 \r\n            -2.500000E-01      5.297598E+02   8.040709E+02   1.339368E+03    47.9234    2.013288E+03   -6.794572E+02   1.346373E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      37    2.500000E-01     -2.690955E+03  -4.084338E+03  -2.378547E+02    -9.4251   -2.651471E+03   -4.123822E+03   7.361752E+02 \r\n            -2.500000E-01      2.690955E+03   4.084338E+03   2.378547E+02    80.5749    4.123822E+03    2.651471E+03   7.361752E+02 \r\n0      38    2.500000E-01     -2.427541E+03  -3.684532E+03  -6.903142E+02   -23.8419   -2.122474E+03   -3.989600E+03   9.335631E+02 \r\n            -2.500000E-01      2.427541E+03   3.684532E+03   6.903142E+02    66.1581    3.989600E+03    2.122474E+03   9.335631E+02 \r\n0      39    2.500000E-01     -1.926542E+03  -2.924094E+03  -1.075189E+03   -32.5568   -1.240072E+03   -3.610564E+03   1.185246E+03 \r\n            -2.500000E-01      1.926542E+03   2.924094E+03   1.075189E+03    57.4432    3.610564E+03    1.240072E+03   1.185246E+03 \r\n0      40    2.500000E-01     -1.236886E+03  -1.877356E+03  -1.354821E+03   -38.3506   -1.649684E+02   -2.949274E+03   1.392153E+03 \r\n            -2.500000E-01      1.236886E+03   1.877356E+03   1.354821E+03    51.6494    2.949274E+03    1.649684E+02   1.392153E+03 \r\n0      41    2.500000E-01     -4.261984E+02  -6.468893E+02  -1.501829E+03   -42.8989    9.693336E+02   -2.042421E+03   1.505877E+03 \r\n            -2.500000E-01      4.261984E+02   6.468893E+02   1.501829E+03    47.1011    2.042421E+03   -9.693336E+02   1.505877E+03 \r\n0      43    2.500000E-01     -1.970898E+03  -2.991426E+03  -2.577414E+02   -13.3995   -1.909497E+03   -3.052826E+03   5.716643E+02 \r\n            -2.500000E-01      1.970898E+03   2.991426E+03   2.577414E+02    76.6005    3.052826E+03    1.909497E+03   5.716643E+02 \r\n0      44    2.500000E-01     -1.777955E+03  -2.698587E+03  -7.479908E+02   -29.1958   -1.359988E+03   -3.116554E+03   8.782832E+02 \r\n            -2.500000E-01      1.777955E+03   2.698587E+03   7.479908E+02    60.8042    3.116554E+03    1.359988E+03   8.782832E+02 \r\n0      45    2.500000E-01     -1.411025E+03  -2.141644E+03  -1.165025E+03   -36.2952   -5.553785E+02   -2.997291E+03   1.220956E+03 \r\n            -2.500000E-01      1.411025E+03   2.141644E+03   1.165025E+03    53.7048    2.997291E+03    5.553785E+02   1.220956E+03 \r\n0      46    2.500000E-01     -9.059346E+02  -1.375020E+03  -1.468016E+03   -40.4613    3.461572E+02   -2.627112E+03   1.486635E+03 \r\n            -2.500000E-01      9.059346E+02   1.375020E+03   1.468016E+03    49.5387    2.627112E+03   -3.461572E+02   1.486635E+03 \r\n0      47    2.500000E-01     -3.121500E+02  -4.737850E+02  -1.627310E+03   -43.5784    1.236348E+03   -2.022283E+03   1.629315E+03 \r\n            -2.500000E-01      3.121500E+02   4.737850E+02   1.627310E+03    46.4216    2.022283E+03   -1.236348E+03   1.629315E+03 \r\n0      49    2.500000E-01     -1.202298E+03  -1.824841E+03  -2.712677E+02   -20.5358   -1.100682E+03   -1.926457E+03   4.128875E+02 \r\n            -2.500000E-01      1.202298E+03   1.824841E+03   2.712677E+02    69.4642    1.926457E+03    1.100682E+03   4.128875E+02 \r\n0      50    2.500000E-01     -1.084586E+03  -1.646190E+03  -7.872485E+02   -35.1846   -5.295591E+02   -2.201217E+03   8.358290E+02 \r\n            -2.500000E-01      1.084586E+03   1.646190E+03   7.872485E+02    54.8154    2.201217E+03    5.295591E+02   8.358290E+02 \r\n0      51    2.500000E-01     -8.607558E+02  -1.306448E+03  -1.226171E+03   -39.8497    1.626550E+02   -2.329859E+03   1.246257E+03 \r\n            -2.500000E-01      8.607558E+02   1.306448E+03   1.226171E+03    50.1503    2.329859E+03   -1.626550E+02   1.246257E+03 \r\n0      52    2.500000E-01     -5.526537E+02  -8.388065E+02  -1.545066E+03   -42.3547    8.559465E+02   -2.247407E+03   1.551677E+03 \r\n            -2.500000E-01      5.526537E+02   8.388065E+02   1.545066E+03    47.6453    2.247407E+03   -8.559465E+02   1.551677E+03 \r\n0      53    2.500000E-01     -1.904378E+02  -2.890386E+02  -1.712721E+03   -44.1756    1.473692E+03   -1.953168E+03   1.713430E+03 \r\n            -2.500000E-01      1.904378E+02   2.890386E+02   1.712721E+03    45.8244    1.953168E+03   -1.473692E+03   1.713430E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      55    2.500000E-01     -4.040676E+02  -6.132980E+02  -2.781147E+02   -34.6929   -2.115428E+02   -8.058227E+02   2.971399E+02 \r\n            -2.500000E-01      4.040676E+02   6.132980E+02   2.781147E+02    55.3071    8.058227E+02    2.115428E+02   2.971399E+02 \r\n0      56    2.500000E-01     -3.645296E+02  -5.532803E+02  -8.071258E+02   -41.6654    3.537197E+02   -1.271530E+03   8.126246E+02 \r\n            -2.500000E-01      3.645296E+02   5.532803E+02   8.071258E+02    48.3346    1.271530E+03   -3.537197E+02   8.126246E+02 \r\n0      57    2.500000E-01     -2.893006E+02  -4.390941E+02  -1.257128E+03   -43.2952    8.951595E+02   -1.623554E+03   1.259357E+03 \r\n            -2.500000E-01      2.893006E+02   4.390941E+02   1.257128E+03    46.7048    1.623554E+03   -8.951595E+02   1.259357E+03 \r\n0      58    2.500000E-01     -1.857386E+02  -2.819124E+02  -1.584073E+03   -44.1306    1.350978E+03   -1.818629E+03   1.584803E+03 \r\n            -2.500000E-01      1.857386E+02   2.819124E+02   1.584073E+03    45.8694    1.818629E+03   -1.350978E+03   1.584803E+03 \r\n0      59    2.500000E-01     -6.398275E+01  -9.712123E+01  -1.755958E+03   -44.7297    1.675484E+03   -1.836589E+03   1.756036E+03 \r\n            -2.500000E-01      6.398275E+01   9.712123E+01   1.755958E+03    45.2703    1.836589E+03   -1.675484E+03   1.756036E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1           1000      -5.134327E+03  -7.792875E+03  -2.187884E+01    -0.4715   -5.134147E+03   -7.793055E+03   1.329454E+03 \r\n                       1       5.134327E+03   7.792875E+03   2.187884E+01    89.5285    7.793055E+03    5.134147E+03   1.329454E+03 \r\n0       2           1000      -4.631738E+03  -7.030051E+03  -6.350370E+01    -1.5157   -4.630058E+03   -7.031731E+03   1.200837E+03 \r\n                       1       4.631738E+03   7.030051E+03   6.350370E+01    88.4843    7.031731E+03    4.630058E+03   1.200837E+03 \r\n0       3           1000      -3.675779E+03  -5.579090E+03  -9.894109E+01    -2.9678   -3.670650E+03   -5.584220E+03   9.567849E+02 \r\n                       1       3.675779E+03   5.579090E+03   9.894109E+01    87.0322    5.584220E+03    3.670650E+03   9.567849E+02 \r\n0       4           1000      -2.359995E+03  -3.581999E+03  -1.246695E+02    -5.7662   -2.347406E+03   -3.594588E+03   6.235909E+02 \r\n                       1       2.359995E+03   3.581999E+03   1.246695E+02    84.2338    3.594588E+03    2.347406E+03   6.235909E+02 \r\n0       5           1000      -8.131960E+02  -1.234267E+03  -1.381958E+02   -16.6405   -7.718917E+02   -1.275571E+03   2.518398E+02 \r\n                       1       8.131960E+02   1.234267E+03   1.381958E+02    73.3595    1.275571E+03    7.718917E+02   2.518398E+02 \r\n0       7           1000      -5.007916E+03  -7.601000E+03  -6.510917E+01    -1.4374   -5.006282E+03   -7.602634E+03   1.298176E+03 \r\n                       1       5.007916E+03   7.601000E+03   6.510917E+01    88.5626    7.602634E+03    5.006282E+03   1.298176E+03 \r\n0       8           1000      -4.517688E+03  -6.856945E+03  -1.889994E+02    -4.5895   -4.502516E+03   -6.872117E+03   1.184800E+03 \r\n                       1       4.517688E+03   6.856945E+03   1.889994E+02    85.4105    6.872117E+03    4.502516E+03   1.184800E+03 \r\n0       9           1000      -3.585243E+03  -5.441688E+03  -2.943682E+02    -8.7977   -3.539685E+03   -5.487246E+03   9.737809E+02 \r\n                       1       3.585243E+03   5.441688E+03   2.943682E+02    81.2023    5.487246E+03    3.539685E+03   9.737809E+02 \r\n0      10           1000      -2.301889E+03  -3.493802E+03  -3.709324E+02   -15.9494   -2.195880E+03   -3.599810E+03   7.019650E+02 \r\n                       1       2.301889E+03   3.493802E+03   3.709324E+02    74.0506    3.599810E+03    2.195880E+03   7.019650E+02 \r\n0      11           1000      -7.931724E+02  -1.203876E+03  -4.111891E+02   -31.7310   -5.389094E+02   -1.458139E+03   4.596149E+02 \r\n                       1       7.931724E+02   1.203876E+03   4.111891E+02    58.2690    1.458139E+03    5.389094E+02   4.596149E+02 \r\n0      13           1000      -4.758152E+03  -7.221924E+03  -1.067458E+02    -2.4762   -4.753536E+03   -7.226540E+03   1.236502E+03 \r\n                       1       4.758152E+03   7.221924E+03   1.067458E+02    87.5238    7.226540E+03    4.753536E+03   1.236502E+03 \r\n0      14           1000      -4.292411E+03  -6.515015E+03  -3.098193E+02    -7.7890   -4.250032E+03   -6.557394E+03   1.153681E+03 \r\n                       1       4.292411E+03   6.515015E+03   3.098193E+02    82.2110    6.557394E+03    4.250032E+03   1.153681E+03 \r\n0      15           1000      -3.406450E+03  -5.170317E+03  -4.825649E+02   -14.3430   -3.283060E+03   -5.293708E+03   1.005324E+03 \r\n                       1       3.406450E+03   5.170317E+03   4.825649E+02    75.6570    5.293708E+03    3.283060E+03   1.005324E+03 \r\n0      16           1000      -2.187079E+03  -3.319551E+03  -6.080723E+02   -23.5202   -1.922427E+03   -3.584203E+03   8.308882E+02 \r\n                       1       2.187079E+03   3.319551E+03   6.080723E+02    66.4798    3.584203E+03    1.922427E+03   8.308882E+02 \r\n0      17           1000      -7.536347E+02  -1.143856E+03  -6.740545E+02   -36.9282   -2.470205E+02   -1.650470E+03   7.017247E+02 \r\n                       1       7.536347E+02   1.143856E+03   6.740545E+02    53.0718    1.650470E+03    2.470205E+02   7.017247E+02 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      19           1000      -4.391279E+03  -6.665070E+03  -1.457515E+02    -3.6528   -4.381975E+03   -6.674375E+03   1.146200E+03 \r\n                       1       4.391279E+03   6.665070E+03   1.457515E+02    86.3472    6.674375E+03    4.381975E+03   1.146200E+03 \r\n0      20           1000      -3.961416E+03  -6.012635E+03  -4.230221E+02   -11.2071   -3.877601E+03   -6.096450E+03   1.109425E+03 \r\n                       1       3.961416E+03   6.012635E+03   4.230221E+02    78.7929    6.096450E+03    3.877601E+03   1.109425E+03 \r\n0      21           1000      -3.143800E+03  -4.771658E+03  -6.588788E+02   -19.4952   -2.910542E+03   -5.004917E+03   1.047188E+03 \r\n                       1       3.143800E+03   4.771658E+03   6.588788E+02    70.5048    5.004917E+03    2.910542E+03   1.047188E+03 \r\n0      22           1000      -2.018459E+03  -3.063608E+03  -8.302386E+02   -28.9063   -1.560024E+03   -3.522043E+03   9.810099E+02 \r\n                       1       2.018459E+03   3.063608E+03   8.302386E+02    61.0937    3.522043E+03    1.560024E+03   9.810099E+02 \r\n0      23           1000      -6.955280E+02  -1.055661E+03  -9.203232E+02   -39.4648    6.217871E+01   -1.813368E+03   9.377733E+02 \r\n                       1       6.955280E+02   1.055661E+03   9.203232E+02    50.5352    1.813368E+03   -6.217871E+01   9.377733E+02 \r\n0      25           1000      -3.916242E+03  -5.944071E+03  -1.811772E+02    -5.0656   -3.900182E+03   -5.960131E+03   1.029974E+03 \r\n                       1       3.916242E+03   5.944071E+03   1.811772E+02    84.9343    5.960131E+03    3.900182E+03   1.029974E+03 \r\n0      26           1000      -3.532906E+03  -5.362237E+03  -5.258011E+02   -14.9464   -3.392546E+03   -5.502598E+03   1.055026E+03 \r\n                       1       3.532906E+03   5.362237E+03   5.258011E+02    75.0536    5.502598E+03    3.392546E+03   1.055026E+03 \r\n0      27           1000      -2.803715E+03  -4.255481E+03  -8.189681E+02   -24.2241   -2.435242E+03   -4.623954E+03   1.094356E+03 \r\n                       1       2.803715E+03   4.255481E+03   8.189681E+02    65.7759    4.623954E+03    2.435242E+03   1.094356E+03 \r\n0      28           1000      -1.800087E+03  -2.732178E+03  -1.031947E+03   -32.8476   -1.133828E+03   -3.398437E+03   1.132304E+03 \r\n                       1       1.800087E+03   2.732178E+03   1.031947E+03    57.1524    3.398437E+03    1.133828E+03   1.132304E+03 \r\n0      29           1000      -6.202542E+02  -9.414305E+02  -1.143931E+03   -41.0044    3.743055E+02   -1.935990E+03   1.155148E+03 \r\n                       1       6.202542E+02   9.414305E+02   1.143931E+03    48.9956    1.935990E+03   -3.743055E+02   1.155148E+03 \r\n0      31           1000      -3.344785E+03  -5.076715E+03  -2.121380E+02    -6.8824   -3.319180E+03   -5.102320E+03   8.915702E+02 \r\n                       1       3.344785E+03   5.076715E+03   2.121380E+02    83.1176    5.102320E+03    3.319180E+03   8.915702E+02 \r\n0      32           1000      -3.017392E+03  -4.579791E+03  -6.156367E+02   -19.1202   -2.803965E+03   -4.793217E+03   9.946260E+02 \r\n                       1       3.017392E+03   4.579791E+03   6.156367E+02    70.8798    4.793217E+03    2.803965E+03   9.946260E+02 \r\n0      33           1000      -2.394592E+03  -3.634517E+03  -9.588719E+02   -28.5576   -1.872719E+03   -4.156391E+03   1.141836E+03 \r\n                       1       2.394592E+03   3.634517E+03   9.588719E+02    61.4424    4.156391E+03    1.872719E+03   1.141836E+03 \r\n0      34           1000      -1.537436E+03  -2.333518E+03  -1.208264E+03   -35.8832   -6.633378E+02   -3.207616E+03   1.272139E+03 \r\n                       1       1.537436E+03   2.333518E+03   1.208264E+03    54.1168    3.207616E+03    6.633378E+02   1.272139E+03 \r\n0      35           1000      -5.297598E+02  -8.040709E+02  -1.339368E+03   -42.0766    6.794572E+02   -2.013288E+03   1.346373E+03 \r\n                       1       5.297598E+02   8.040709E+02   1.339368E+03    47.9234    2.013288E+03   -6.794572E+02   1.346373E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      37           1000      -2.690955E+03  -4.084338E+03  -2.378547E+02    -9.4251   -2.651471E+03   -4.123822E+03   7.361752E+02 \r\n                       1       2.690955E+03   4.084338E+03   2.378547E+02    80.5749    4.123822E+03    2.651471E+03   7.361752E+02 \r\n0      38           1000      -2.427541E+03  -3.684532E+03  -6.903142E+02   -23.8419   -2.122474E+03   -3.989600E+03   9.335631E+02 \r\n                       1       2.427541E+03   3.684532E+03   6.903142E+02    66.1581    3.989600E+03    2.122474E+03   9.335631E+02 \r\n0      39           1000      -1.926542E+03  -2.924094E+03  -1.075189E+03   -32.5568   -1.240072E+03   -3.610564E+03   1.185246E+03 \r\n                       1       1.926542E+03   2.924094E+03   1.075189E+03    57.4432    3.610564E+03    1.240072E+03   1.185246E+03 \r\n0      40           1000      -1.236886E+03  -1.877356E+03  -1.354821E+03   -38.3506   -1.649684E+02   -2.949274E+03   1.392153E+03 \r\n                       1       1.236886E+03   1.877356E+03   1.354821E+03    51.6494    2.949274E+03    1.649684E+02   1.392153E+03 \r\n0      41           1000      -4.261984E+02  -6.468893E+02  -1.501829E+03   -42.8989    9.693336E+02   -2.042421E+03   1.505877E+03 \r\n                       1       4.261984E+02   6.468893E+02   1.501829E+03    47.1011    2.042421E+03   -9.693336E+02   1.505877E+03 \r\n0      43           1000      -1.970898E+03  -2.991426E+03  -2.577414E+02   -13.3995   -1.909497E+03   -3.052826E+03   5.716643E+02 \r\n                       1       1.970898E+03   2.991426E+03   2.577414E+02    76.6005    3.052826E+03    1.909497E+03   5.716643E+02 \r\n0      44           1000      -1.777955E+03  -2.698587E+03  -7.479908E+02   -29.1958   -1.359988E+03   -3.116554E+03   8.782832E+02 \r\n                       1       1.777955E+03   2.698587E+03   7.479908E+02    60.8042    3.116554E+03    1.359988E+03   8.782832E+02 \r\n0      45           1000      -1.411025E+03  -2.141644E+03  -1.165025E+03   -36.2952   -5.553785E+02   -2.997291E+03   1.220956E+03 \r\n                       1       1.411025E+03   2.141644E+03   1.165025E+03    53.7048    2.997291E+03    5.553785E+02   1.220956E+03 \r\n0      46           1000      -9.059346E+02  -1.375020E+03  -1.468016E+03   -40.4613    3.461572E+02   -2.627112E+03   1.486635E+03 \r\n                       1       9.059346E+02   1.375020E+03   1.468016E+03    49.5387    2.627112E+03   -3.461572E+02   1.486635E+03 \r\n0      47           1000      -3.121500E+02  -4.737850E+02  -1.627310E+03   -43.5784    1.236348E+03   -2.022283E+03   1.629315E+03 \r\n                       1       3.121500E+02   4.737850E+02   1.627310E+03    46.4216    2.022283E+03   -1.236348E+03   1.629315E+03 \r\n0      49           1000      -1.202298E+03  -1.824841E+03  -2.712677E+02   -20.5358   -1.100682E+03   -1.926457E+03   4.128875E+02 \r\n                       1       1.202298E+03   1.824841E+03   2.712677E+02    69.4642    1.926457E+03    1.100682E+03   4.128875E+02 \r\n0      50           1000      -1.084586E+03  -1.646190E+03  -7.872485E+02   -35.1846   -5.295591E+02   -2.201217E+03   8.358290E+02 \r\n                       1       1.084586E+03   1.646190E+03   7.872485E+02    54.8154    2.201217E+03    5.295591E+02   8.358290E+02 \r\n0      51           1000      -8.607558E+02  -1.306448E+03  -1.226171E+03   -39.8497    1.626550E+02   -2.329859E+03   1.246257E+03 \r\n                       1       8.607558E+02   1.306448E+03   1.226171E+03    50.1503    2.329859E+03   -1.626550E+02   1.246257E+03 \r\n0      52           1000      -5.526537E+02  -8.388065E+02  -1.545066E+03   -42.3547    8.559465E+02   -2.247407E+03   1.551677E+03 \r\n                       1       5.526537E+02   8.388065E+02   1.545066E+03    47.6453    2.247407E+03   -8.559465E+02   1.551677E+03 \r\n0      53           1000      -1.904378E+02  -2.890386E+02  -1.712721E+03   -44.1756    1.473692E+03   -1.953168E+03   1.713430E+03 \r\n                       1       1.904378E+02   2.890386E+02   1.712721E+03    45.8244    1.953168E+03   -1.473692E+03   1.713430E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      55           1000      -4.040676E+02  -6.132980E+02  -2.781147E+02   -34.6929   -2.115428E+02   -8.058227E+02   2.971399E+02 \r\n                       1       4.040676E+02   6.132980E+02   2.781147E+02    55.3071    8.058227E+02    2.115428E+02   2.971399E+02 \r\n0      56           1000      -3.645296E+02  -5.532803E+02  -8.071258E+02   -41.6654    3.537197E+02   -1.271530E+03   8.126246E+02 \r\n                       1       3.645296E+02   5.532803E+02   8.071258E+02    48.3346    1.271530E+03   -3.537197E+02   8.126246E+02 \r\n0      57           1000      -2.893006E+02  -4.390941E+02  -1.257128E+03   -43.2952    8.951595E+02   -1.623554E+03   1.259357E+03 \r\n                       1       2.893006E+02   4.390941E+02   1.257128E+03    46.7048    1.623554E+03   -8.951595E+02   1.259357E+03 \r\n0      58           1000      -1.857386E+02  -2.819124E+02  -1.584073E+03   -44.1306    1.350978E+03   -1.818629E+03   1.584803E+03 \r\n                       1       1.857386E+02   2.819124E+02   1.584073E+03    45.8694    1.818629E+03   -1.350978E+03   1.584803E+03 \r\n0      59           1000      -6.398275E+01  -9.712123E+01  -1.755958E+03   -44.7297    1.675484E+03   -1.836589E+03   1.756036E+03 \r\n                       1       6.398275E+01   9.712123E+01   1.755958E+03    45.2703    1.836589E+03   -1.675484E+03   1.756036E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1           1000      -5.412447E+03  -8.215008E+03   1.159304E+02     2.3647   -5.407660E+03   -8.219795E+03   1.406068E+03 \r\n                     503       5.412447E+03   8.215008E+03  -1.159304E+02   -87.6353    8.219795E+03    5.407660E+03   1.406068E+03 \r\n0       2           1000      -4.975675E+03  -7.552078E+03   1.322150E-02     0.0003   -4.975676E+03   -7.552078E+03   1.288201E+03 \r\n                     503       4.975675E+03   7.552078E+03  -1.322150E-02   -89.9997    7.552078E+03    4.975676E+03   1.288201E+03 \r\n0       3           1000      -4.239363E+03  -6.434500E+03  -3.953982E+00    -0.1032   -4.239355E+03   -6.434507E+03   1.097575E+03 \r\n                     503       4.239363E+03   6.434500E+03   3.953982E+00    89.8968    6.434507E+03    4.239355E+03   1.097575E+03 \r\n0       4           1000      -3.087997E+03  -4.686955E+03  -1.473942E+01    -0.5281   -3.087861E+03   -4.687091E+03   7.996147E+02 \r\n                     503       3.087997E+03   4.686955E+03   1.473942E+01    89.4719    4.687091E+03    3.087861E+03   7.996147E+02 \r\n0       5           1000      -1.609170E+03  -2.442397E+03  -1.440378E+01    -0.9901   -1.608921E+03   -2.442646E+03   4.168622E+02 \r\n                     503       1.609170E+03   2.442397E+03   1.440378E+01    89.0099    2.442646E+03    1.608921E+03   4.168622E+02 \r\n0       6           1000      -2.973753E+02  -4.513539E+02  -8.367082E+01   -23.6907   -2.606625E+02   -4.880666E+02   1.137021E+02 \r\n                     503       2.973753E+02   4.513539E+02   8.367082E+01    66.3093    4.880666E+02    2.606625E+02   1.137021E+02 \r\n0       7           1000      -5.238118E+03  -7.950405E+03   5.388284E+01     1.1377   -5.237048E+03   -7.951476E+03   1.357214E+03 \r\n                     503       5.238118E+03   7.950405E+03  -5.388284E+01   -88.8624    7.951476E+03    5.237048E+03   1.357214E+03 \r\n0       8           1000      -4.875125E+03  -7.399459E+03  -9.774213E+01    -2.2141   -4.871346E+03   -7.403238E+03   1.265946E+03 \r\n                     503       4.875125E+03   7.399459E+03   9.774213E+01    87.7859    7.403238E+03    4.871346E+03   1.265946E+03 \r\n0       9           1000      -4.162800E+03  -6.318296E+03  -1.614362E+02    -4.2595   -4.150776E+03   -6.330320E+03   1.089772E+03 \r\n                     503       4.162800E+03   6.318296E+03   1.614362E+02    85.7405    6.330320E+03    4.150776E+03   1.089772E+03 \r\n0      10           1000      -3.030241E+03  -4.599297E+03  -2.258318E+02    -8.0294   -2.998384E+03   -4.631154E+03   8.163850E+02 \r\n                     503       3.030241E+03   4.599297E+03   2.258318E+02    81.9706    4.631154E+03    2.998384E+03   8.163850E+02 \r\n0      11           1000      -1.548027E+03  -2.349593E+03  -2.552258E+02   -16.2449   -1.473661E+03   -2.423960E+03   4.751495E+02 \r\n                     503       1.548027E+03   2.349593E+03   2.552258E+02    73.7551    2.423960E+03    1.473661E+03   4.751495E+02 \r\n0      12           1000      -2.115782E+02  -3.211316E+02  -3.183424E+02   -40.1184    5.666577E+01   -5.893756E+02   3.230207E+02 \r\n                     503       2.115782E+02   3.211316E+02   3.183424E+02    49.8816    5.893756E+02   -5.666577E+01   3.230207E+02 \r\n0      13           1000      -5.010431E+03  -7.604823E+03   2.322411E+01     0.5128   -5.010223E+03   -7.605031E+03   1.297404E+03 \r\n                     503       5.010431E+03   7.604823E+03  -2.322411E+01   -89.4872    7.605031E+03    5.010223E+03   1.297404E+03 \r\n0      14           1000      -4.704003E+03  -7.139728E+03  -1.760344E+02    -4.1124   -4.691346E+03   -7.152384E+03   1.230519E+03 \r\n                     503       4.704003E+03   7.139728E+03   1.760344E+02    85.8876    7.152384E+03    4.691346E+03   1.230519E+03 \r\n0      15           1000      -4.010997E+03  -6.087896E+03  -3.219900E+02    -8.6135   -3.962223E+03   -6.136670E+03   1.087223E+03 \r\n                     503       4.010997E+03   6.087896E+03   3.219900E+02    81.3865    6.136670E+03    3.962223E+03   1.087223E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      16           1000      -2.921089E+03  -4.433632E+03  -4.466739E+02   -15.2836   -2.799030E+03   -4.555691E+03   8.783304E+02 \r\n                     503       2.921089E+03   4.433632E+03   4.466739E+02    74.7164    4.555691E+03    2.799030E+03   8.783304E+02 \r\n0      17           1000      -1.497415E+03  -2.272773E+03  -5.177765E+02   -26.5882   -1.238266E+03   -2.531923E+03   6.468287E+02 \r\n                     503       1.497415E+03   2.272773E+03   5.177765E+02    63.4118    2.531923E+03    1.238266E+03   6.468287E+02 \r\n0      18           1000      -1.779182E+02  -2.700389E+02  -5.759235E+02   -42.7137    3.537838E+02   -8.017410E+02   5.777624E+02 \r\n                     503       1.779182E+02   2.700389E+02   5.759235E+02    47.2863    8.017410E+02   -3.537838E+02   5.777624E+02 \r\n0      19           1000      -4.681554E+03  -7.105657E+03   1.672077E+00     0.0395   -4.681553E+03   -7.105658E+03   1.212052E+03 \r\n                     503       4.681554E+03   7.105657E+03  -1.672077E+00   -89.9605    7.105658E+03    4.681553E+03   1.212052E+03 \r\n0      20           1000      -4.412221E+03  -6.696860E+03  -2.509875E+02    -6.1960   -4.384973E+03   -6.724108E+03   1.169568E+03 \r\n                     503       4.412221E+03   6.696860E+03   2.509875E+02    83.8040    6.724108E+03    4.384973E+03   1.169568E+03 \r\n0      21           1000      -3.758303E+03  -5.704352E+03  -4.751817E+02   -13.0144   -3.648472E+03   -5.814182E+03   1.082855E+03 \r\n                     503       3.758303E+03   5.704352E+03   4.751817E+02    76.9856    5.814182E+03    3.648472E+03   1.082855E+03 \r\n0      22           1000      -2.737074E+03  -4.154333E+03  -6.558763E+02   -21.3930   -2.480132E+03   -4.411276E+03   9.655722E+02 \r\n                     503       2.737074E+03   4.154333E+03   6.558763E+02    68.6070    4.411276E+03    2.480132E+03   9.655722E+02 \r\n0      23           1000      -1.408172E+03  -2.137314E+03  -7.665382E+02   -32.2819   -9.239246E+02   -2.621562E+03   8.488186E+02 \r\n                     503       1.408172E+03   2.137314E+03   7.665382E+02    57.7181    2.621562E+03    9.239246E+02   8.488186E+02 \r\n0      24           1000      -1.507021E+02  -2.287276E+02  -8.269897E+02   -43.6496    6.381945E+02   -1.017624E+03   8.279094E+02 \r\n                     503       1.507021E+02   2.287276E+02   8.269897E+02    46.3504    1.017624E+03   -6.381945E+02   8.279094E+02 \r\n0      25           1000      -4.248349E+03  -6.448138E+03  -1.547431E+01    -0.4030   -4.248240E+03   -6.448246E+03   1.100003E+03 \r\n                     503       4.248349E+03   6.448138E+03   1.547431E+01    89.5970    6.448246E+03    4.248240E+03   1.100003E+03 \r\n0      26           1000      -4.007302E+03  -6.082276E+03  -3.213080E+02    -8.6038   -3.958687E+03   -6.130892E+03   1.086103E+03 \r\n                     503       4.007302E+03   6.082276E+03   3.213080E+02    81.3962    6.130892E+03    3.958687E+03   1.086103E+03 \r\n0      27           1000      -3.412460E+03  -5.179430E+03  -6.164155E+02   -17.4519   -3.218674E+03   -5.373216E+03   1.077271E+03 \r\n                     503       3.412460E+03   5.179430E+03   6.164155E+02    72.5481    5.373216E+03    3.218674E+03   1.077271E+03 \r\n0      28           1000      -2.484400E+03  -3.770823E+03  -8.484420E+02   -26.4170   -2.062917E+03   -4.192306E+03   1.064694E+03 \r\n                     503       2.484400E+03   3.770823E+03   8.484420E+02    63.5830    4.192306E+03    2.062917E+03   1.064694E+03 \r\n0      29           1000      -1.281956E+03  -1.945751E+03  -9.946729E+02   -35.7737   -5.652692E+02   -2.662439E+03   1.048585E+03 \r\n                     503       1.281956E+03   1.945751E+03   9.946729E+02    54.2263    2.662439E+03    5.652692E+02   1.048585E+03 \r\n0      30           1000      -1.211170E+02  -1.838302E+02  -1.061139E+03   -44.1537    9.091285E+02   -1.214076E+03   1.061602E+03 \r\n                     503       1.211170E+02   1.838302E+02   1.061139E+03    45.8463    1.214076E+03   -9.091285E+02   1.061602E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      31           1000      -3.718076E+03  -5.643295E+03  -2.960088E+01    -0.8807   -3.717621E+03   -5.643750E+03   9.630649E+02 \r\n                     503       3.718076E+03   5.643295E+03   2.960088E+01    89.1193    5.643750E+03    3.717621E+03   9.630649E+02 \r\n0      32           1000      -3.501687E+03  -5.314855E+03  -3.844437E+02   -11.4899   -3.423542E+03   -5.393000E+03   9.847296E+02 \r\n                     503       3.501687E+03   5.314855E+03   3.844437E+02    78.5101    5.393000E+03    3.423542E+03   9.847296E+02 \r\n0      33           1000      -2.983081E+03  -4.527717E+03  -7.422441E+02   -21.9312   -2.684230E+03   -4.826567E+03   1.071168E+03 \r\n                     503       2.983081E+03   4.527717E+03   7.422441E+02    68.0688    4.826567E+03    2.684230E+03   1.071168E+03 \r\n0      34           1000      -2.170286E+03  -3.294063E+03  -1.020220E+03   -30.5781   -1.567456E+03   -3.896893E+03   1.164718E+03 \r\n                     503       2.170286E+03   3.294063E+03   1.020220E+03    59.4219    3.896893E+03    1.567456E+03   1.164718E+03 \r\n0      35           1000      -1.124092E+03  -1.706151E+03  -1.197585E+03   -38.1706   -1.826814E+02   -2.647562E+03   1.232440E+03 \r\n                     503       1.124092E+03   1.706151E+03   1.197585E+03    51.8294    2.647562E+03    1.826814E+02   1.232440E+03 \r\n0      36           1000      -8.655007E+01  -1.313699E+02  -1.271597E+03   -44.4952    1.162834E+03   -1.380754E+03   1.271794E+03 \r\n                     503       8.655007E+01   1.313699E+02   1.271597E+03    45.5048    1.380754E+03   -1.162834E+03   1.271794E+03 \r\n0      37           1000      -3.102701E+03  -4.709281E+03  -4.141850E+01    -1.4758   -3.101634E+03   -4.710348E+03   8.043571E+02 \r\n                     503       3.102701E+03   4.709281E+03   4.141850E+01    88.5242    4.710348E+03    3.101634E+03   8.043571E+02 \r\n0      38           1000      -2.908363E+03  -4.414317E+03  -4.384298E+02   -15.1053   -2.790022E+03   -4.532658E+03   8.713182E+02 \r\n                     503       2.908363E+03   4.414317E+03   4.384298E+02    74.8947    4.532658E+03    2.790022E+03   8.713182E+02 \r\n0      39           1000      -2.480795E+03  -3.765349E+03  -8.496696E+02   -26.4569   -2.057962E+03   -4.188181E+03   1.065109E+03 \r\n                     503       2.480795E+03   3.765349E+03   8.496696E+02    63.5431    4.188181E+03    2.057962E+03   1.065109E+03 \r\n0      40           1000      -1.802366E+03  -2.735630E+03  -1.167071E+03   -34.1034   -1.012097E+03   -3.525899E+03   1.256901E+03 \r\n                     503       1.802366E+03   2.735630E+03   1.167071E+03    55.8966    3.525899E+03    1.012097E+03   1.256901E+03 \r\n0      41           1000      -9.395004E+02  -1.425978E+03  -1.370510E+03   -39.9680    2.091882E+02   -2.574667E+03   1.391928E+03 \r\n                     503       9.395004E+02   1.425978E+03   1.370510E+03    50.0320    2.574667E+03   -2.091882E+02   1.391928E+03 \r\n0      42           1000      -4.526099E+01  -6.870167E+01  -1.452950E+03   -44.7689    1.396016E+03   -1.509979E+03   1.452997E+03 \r\n                     503       4.526099E+01   6.870167E+01   1.452950E+03    45.2311    1.509979E+03   -1.396016E+03   1.452997E+03 \r\n0      43           1000      -2.418063E+03  -3.670136E+03  -5.153229E+01    -2.3529   -2.415946E+03   -3.672253E+03   6.281537E+02 \r\n                     503       2.418063E+03   3.670136E+03   5.153229E+01    87.6471    3.672253E+03    2.415946E+03   6.281537E+02 \r\n0      44           1000      -2.241295E+03  -3.401845E+03  -4.815924E+02   -19.8453   -2.067481E+03   -3.575659E+03   7.540891E+02 \r\n                     503       2.241295E+03   3.401845E+03   4.815924E+02    70.1547    3.575659E+03    2.067481E+03   7.540891E+02 \r\n0      45           1000      -1.917746E+03  -2.910753E+03  -9.360900E+02   -31.0292   -1.354636E+03   -3.473863E+03   1.059613E+03 \r\n                     503       1.917746E+03   2.910753E+03   9.360900E+02    58.9708    3.473863E+03    1.354636E+03   1.059613E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      46           1000      -1.389427E+03  -2.108866E+03  -1.285354E+03   -37.1826   -4.144058E+02   -3.083887E+03   1.334741E+03 \r\n                     503       1.389427E+03   2.108866E+03   1.285354E+03    52.8174    3.083887E+03    4.144058E+02   1.334741E+03 \r\n0      47           1000      -7.338983E+02  -1.113914E+03  -1.508995E+03   -41.4116    5.970037E+02   -2.444816E+03   1.520910E+03 \r\n                     503       7.338983E+02   1.113914E+03   1.508995E+03    48.5884    2.444816E+03   -5.970037E+02   1.520910E+03 \r\n0      48           1000       4.863134E+00   7.375687E+00  -1.601109E+03   -45.0225    1.607229E+03   -1.594991E+03   1.601110E+03 \r\n                     503      -4.863134E+00  -7.375687E+00   1.601109E+03    44.9775    1.594991E+03   -1.607229E+03   1.601110E+03 \r\n0      49           1000      -1.683967E+03  -2.555920E+03  -6.084562E+01    -3.9725   -1.679742E+03   -2.560146E+03   4.402021E+02 \r\n                     503       1.683967E+03   2.555920E+03   6.084562E+01    86.0275    2.560146E+03    1.679742E+03   4.402021E+02 \r\n0      50           1000      -1.513944E+03  -2.297867E+03  -5.121187E+02   -26.2853   -1.261003E+03   -2.550808E+03   6.449025E+02 \r\n                     503       1.513944E+03   2.297867E+03   5.121187E+02    63.7147    2.550808E+03    1.261003E+03   6.449025E+02 \r\n0      51           1000      -1.306063E+03  -1.982343E+03  -9.990259E+02   -35.6503   -5.895033E+02   -2.698902E+03   1.054700E+03 \r\n                     503       1.306063E+03   1.982343E+03   9.990259E+02    54.3497    2.698902E+03    5.895033E+02   1.054700E+03 \r\n0      52           1000      -9.415195E+02  -1.429027E+03  -1.371778E+03   -39.9621    2.079935E+02   -2.578540E+03   1.393267E+03 \r\n                     503       9.415195E+02   1.429027E+03   1.371778E+03    50.0379    2.578540E+03   -2.079935E+02   1.393267E+03 \r\n0      53           1000      -5.147592E+02  -7.812952E+02  -1.608785E+03   -42.6323    9.662677E+02   -2.262322E+03   1.614295E+03 \r\n                     503       5.147592E+02   7.812952E+02   1.608785E+03    47.3677    2.262322E+03   -9.662677E+02   1.614295E+03 \r\n0      54           1000       6.787238E+01   1.030137E+02  -1.713586E+03   -45.2937    1.799119E+03   -1.628233E+03   1.713676E+03 \r\n                     503      -6.787238E+01  -1.030137E+02   1.713586E+03    44.7063    1.628233E+03   -1.799119E+03   1.713676E+03 \r\n0      55           1000      -9.308094E+02  -1.412781E+03  -7.235959E+01    -8.3566   -9.201802E+02   -1.423410E+03   2.516150E+02 \r\n                     503       9.308094E+02   1.412781E+03   7.235959E+01    81.6434    1.423410E+03    9.201802E+02   2.516150E+02 \r\n0      56           1000      -7.462652E+02  -1.132682E+03  -5.294288E+02   -34.9755   -3.758918E+02   -1.503055E+03   5.635817E+02 \r\n                     503       7.462652E+02   1.132682E+03   5.294288E+02    55.0245    1.503055E+03    3.758918E+02   5.635817E+02 \r\n0      57           1000      -6.603292E+02  -1.002245E+03  -1.036352E+03   -40.3164    2.190710E+02   -1.881645E+03   1.050358E+03 \r\n                     503       6.603292E+02   1.002245E+03   1.036352E+03    49.6836    1.881645E+03   -2.190710E+02   1.050358E+03 \r\n0      58           1000      -4.720674E+02  -7.164954E+02  -1.423694E+03   -42.5468    8.346487E+02   -2.023211E+03   1.428930E+03 \r\n                     503       4.720674E+02   7.164954E+02   1.423694E+03    47.4532    2.023211E+03   -8.346487E+02   1.428930E+03 \r\n0      59           1000      -2.858381E+02  -4.338409E+02  -1.667309E+03   -43.7293    1.309111E+03   -2.028790E+03   1.668951E+03 \r\n                     503       2.858381E+02   4.338409E+02   1.667309E+03    46.2707    2.028790E+03   -1.309111E+03   1.668951E+03 \r\n0      60           1000       1.575309E+02   2.390941E+02  -1.791454E+03   -45.6520    1.990231E+03   -1.593606E+03   1.791919E+03 \r\n                     503      -1.575309E+02  -2.390941E+02   1.791454E+03    44.3480    1.593606E+03   -1.990231E+03   1.791919E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      61           1000      -2.446324E+02  -3.713096E+02  -1.017026E+02   -29.0430   -1.881579E+02   -4.277842E+02   1.198131E+02 \r\n                     503       2.446324E+02   3.713096E+02   1.017026E+02    60.9570    4.277842E+02    1.881579E+02   1.198131E+02 \r\n0      62           1000      -4.210839E+01  -6.391433E+01  -5.503413E+02   -44.4325    4.974379E+02   -6.034606E+02   5.504493E+02 \r\n                     503       4.210839E+01   6.391433E+01   5.503413E+02    45.5675    6.034606E+02   -4.974379E+02   5.504493E+02 \r\n0      63           1000      -4.309179E+01  -6.540018E+01  -1.056104E+03   -44.6974    1.001917E+03   -1.110409E+03   1.056163E+03 \r\n                     503       4.309179E+01   6.540018E+01   1.056104E+03    45.3026    1.110409E+03   -1.001917E+03   1.056163E+03 \r\n0      64           1000      -1.158768E+01  -1.758555E+01  -1.449877E+03   -44.9407    1.435293E+03   -1.464467E+03   1.449880E+03 \r\n                     503       1.158768E+01   1.758555E+01   1.449877E+03    45.0593    1.464467E+03   -1.435293E+03   1.449880E+03 \r\n0      65           1000       9.407043E-03   6.347656E-03  -1.701701E+03   -45.0000    1.701709E+03   -1.701693E+03   1.701701E+03 \r\n                     503      -9.407043E-03  -6.347656E-03   1.701701E+03    45.0000    1.701693E+03   -1.701709E+03   1.701701E+03 \r\n0      66           1000       3.389859E+02   5.144959E+02  -1.851078E+03   -46.3571    2.279898E+03   -1.426416E+03   1.853157E+03 \r\n                     503      -3.389859E+02  -5.144959E+02   1.851078E+03    43.6429    1.426416E+03   -2.279898E+03   1.853157E+03 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0       1                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.117778E-02  -1.509628E-02   7.591248E-04    89.5281   -1.509315E-02   -6.118090E-02   4.608775E-02 \r\n0       2                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.518931E-02  -1.361854E-02   2.201796E-03    88.4841   -1.358941E-02   -5.521844E-02   4.162904E-02 \r\n0       3                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.379847E-02  -1.080774E-02   3.430128E-03    87.0321   -1.071882E-02   -4.388739E-02   3.316857E-02 \r\n0       4                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.812038E-02  -6.939002E-03   4.321814E-03    84.2339   -6.720795E-03   -2.833859E-02   2.161779E-02 \r\n0       5                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -9.689569E-03  -2.391021E-03   4.790783E-03    73.3595   -1.675081E-03   -1.040551E-02   8.730429E-03 \r\n0       7                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.967138E-02  -1.472457E-02   2.257586E-03    88.5623   -1.469625E-02   -5.969971E-02   4.500346E-02 \r\n0       8                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.383037E-02  -1.328324E-02   6.552458E-03    85.4101   -1.302022E-02   -5.409338E-02   4.107316E-02 \r\n0       9                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.272002E-02  -1.054164E-02   1.020479E-02    81.2023   -9.751953E-03   -4.350970E-02   3.375775E-02 \r\n0      10                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.742796E-02  -6.768140E-03   1.285911E-02    74.0505   -4.930627E-03   -2.926547E-02   2.433484E-02 \r\n0      11                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -9.450994E-03  -2.332138E-03   1.425445E-02    58.2691    2.075044E-03   -1.385818E-02   1.593322E-02 \r\n0      13                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.669567E-02  -1.399029E-02   3.701210E-03    87.5233   -1.391024E-02   -5.677571E-02   4.286547E-02 \r\n0      14                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.114594E-02  -1.262083E-02   1.074076E-02    82.2108   -1.188620E-02   -5.188056E-02   3.999436E-02 \r\n0      15                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.058964E-02  -1.001595E-02   1.672912E-02    75.6568   -7.877143E-03   -4.272845E-02   3.485131E-02 \r\n0      16                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.606016E-02  -6.430654E-03   2.107990E-02    66.4798   -1.843329E-03   -3.064749E-02   2.880416E-02 \r\n0      17                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -8.979693E-03  -2.215862E-03   2.336723E-02    53.0718    6.565453E-03   -1.776101E-02   2.432646E-02 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      19                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.232393E-02  -1.291154E-02   5.053043E-03    86.3470   -1.275024E-02   -5.248523E-02   3.973499E-02 \r\n0      20                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.720213E-02  -1.164766E-02   1.466465E-02    78.7930   -1.019489E-02   -4.865490E-02   3.846000E-02 \r\n0      21                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.745983E-02  -9.243628E-03   2.284098E-02    70.5049   -5.200529E-03   -4.150293E-02   3.630240E-02 \r\n0      22                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.405068E-02  -5.934753E-03   2.878141E-02    61.0938    2.011377E-03   -3.199681E-02   3.400818E-02 \r\n0      23                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -8.287281E-03  -2.044971E-03   3.190458E-02    50.5352    1.108863E-02   -2.142088E-02   3.250952E-02 \r\n0      25                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.666379E-02  -1.151477E-02   6.280899E-03    84.9343   -1.123638E-02   -4.694217E-02   3.570579E-02 \r\n0      26                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.209603E-02  -1.038763E-02   1.822805E-02    75.0535   -7.954644E-03   -4.452902E-02   3.657437E-02 \r\n0      27                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.340762E-02  -8.243671E-03   2.839112E-02    65.7758   -1.856724E-03   -3.979457E-02   3.793785E-02 \r\n0      28                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.144899E-02  -5.292756E-03   3.577423E-02    57.1524    6.255765E-03   -3.299751E-02   3.925328E-02 \r\n0      29                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -7.390812E-03  -1.823756E-03   3.965628E-02    48.9956    1.541528E-02   -2.462985E-02   4.004513E-02 \r\n0      31                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.985463E-02  -9.834521E-03   7.354259E-03    83.1175   -9.390675E-03   -4.029848E-02   3.090780E-02 \r\n0      32                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.595342E-02  -8.871842E-03   2.134204E-02    70.8798   -5.172458E-03   -3.965280E-02   3.448034E-02 \r\n0      33                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.853277E-02  -7.040728E-03   3.324115E-02    61.4423    2.005180E-03   -3.757868E-02   3.958386E-02 \r\n0      34                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.831919E-02  -4.520444E-03   4.188657E-02    54.1167    1.063063E-02   -3.347027E-02   4.410091E-02 \r\n0      35                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.312374E-03  -1.557647E-03   4.643142E-02    47.9234    1.940211E-02   -2.727213E-02   4.667424E-02 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      37                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.206413E-02  -7.912155E-03   8.245945E-03    80.5746   -7.227720E-03   -3.274857E-02   2.552084E-02 \r\n0      38                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.892550E-02  -7.137667E-03   2.393103E-02    66.1580   -1.849776E-03   -3.421339E-02   3.236362E-02 \r\n0      39                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.295538E-02  -5.664488E-03   3.727329E-02    57.4432    6.234366E-03   -3.485423E-02   4.108860E-02 \r\n0      40                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.473830E-02  -3.636822E-03   4.696703E-02    51.6494    1.494305E-02   -3.331817E-02   4.826121E-02 \r\n0      41                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.078472E-03  -1.253165E-03   5.206341E-02    47.1011    2.293606E-02   -2.926769E-02   5.220375E-02 \r\n0      43                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.348410E-02  -5.794950E-03   8.935213E-03    76.6003   -4.730639E-03   -2.454841E-02   1.981777E-02 \r\n0      44                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.118533E-02  -5.227700E-03   2.593040E-02    60.8041    2.017083E-03   -2.843012E-02   3.044720E-02 \r\n0      45                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.681278E-02  -4.148740E-03   4.038739E-02    53.7048    1.068241E-02   -3.164393E-02   4.232634E-02 \r\n0      46                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.079448E-02  -2.663663E-03   5.089128E-02    49.5387    1.903928E-02   -3.249742E-02   5.153671E-02 \r\n0      47                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.719518E-03  -9.178389E-04   5.641344E-02    46.4216    2.592281E-02   -3.056016E-02   5.648297E-02 \r\n0      49                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.432582E-02  -3.535084E-03   9.404004E-03    69.4641   -1.773721E-03   -1.608719E-02   1.431347E-02 \r\n0      50                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.292352E-02  -3.189050E-03   2.729130E-02    54.8153    6.431423E-03   -2.254400E-02   2.897542E-02 \r\n0      51                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.025618E-02  -2.530843E-03   4.250735E-02    50.1503    1.520832E-02   -2.799534E-02   4.320365E-02 \r\n0      52                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.584862E-03  -1.624880E-03   5.356231E-02    47.6453    2.279087E-02   -3.100061E-02   5.379147E-02 \r\n0      53                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.268968E-03  -5.598860E-04   5.937433E-02    45.8244    2.828503E-02   -3.111389E-02   5.939892E-02 \r\n1     SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      55                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.814792E-03  -1.188125E-03   9.641312E-03    55.3071    2.148969E-03   -8.151887E-03   1.030086E-02 \r\n0      56                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.343497E-03  -1.071822E-03   2.798040E-02    48.3346    1.137785E-02   -1.679317E-02   2.817103E-02 \r\n0      57                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.447015E-03  -8.505806E-04   4.358041E-02    46.7048    1.968004E-02   -2.397764E-02   4.365768E-02 \r\n0      58                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.213120E-03  -5.461071E-04   5.491451E-02    45.8694    2.609029E-02   -2.884951E-02   5.493980E-02 \r\n0      59                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -7.625768E-04  -1.881756E-04   6.087321E-02    45.2703    2.996258E-02   -3.091334E-02   6.087592E-02 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT         \r\n DATE:  5/17/95\r\n END TIME: 15: 1:48\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01112a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01112A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     TIME  9                                                                         \r\n     SOL   1,3                                                                       \r\n     DIAG  14                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT   GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $   QUAD1 ELEMENT                      \r\n     EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                          \r\n                  3              SPC = 5010                                                              \r\n                  4              TEMP(LOAD) = 20                                                         \r\n                  5         OUTPUT                                                                       \r\n                  6              DISPLACEMENT = ALL                                                      \r\n                  7              SPCFORCE     = ALL                                                      \r\n                  8              ELFORCE      = ALL                                                      \r\n                  9              STRESSES     = ALL                                                      \r\n                 10              STRAIN       = ALL                                                      \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    57, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2R  1000            .0      .0      .0      .0      .0      1.0     +COR1   \r\n                    2-        +COR1   1.0     .0      .0                                                      \r\n                    3-        MAT1    1       3.0+5           .3      1.0     .01     .0              +MAT1   \r\n                    4-        +MAT1                           1000                                            \r\n                    5-        PARAM   STRESS  0                                                               \r\n                    6-        PQUAD1  101     1       .5      1       .0104167                        +PQUAD1 \r\n                    7-        +PQUAD1 .25     -0.25                                                           \r\n                    8-        TEMPP1  20      1       .0      5.90786 2.46161 -2.46161                        \r\n                    9-        TEMPP1  20      2       .0      5.32956 2.22065 -2.22065                        \r\n                   10-        TEMPP1  20      3       .0      4.22956 1.76232 -1.76232                        \r\n                   11-        TEMPP1  20      4       .0      2.71555 1.13148 -1.13148                        \r\n                   12-        TEMPP1  20      5       .0      .93571  .38988  -.38988                         \r\n                   13-        TEMPP1  20      7       .0      5.76239 2.40100 -2.40100                        \r\n                   14-        TEMPP1  20      8       .0      5.19833 2.16597 -2.16597                        \r\n                   15-        TEMPP1  20      9       .0      4.12542 1.71892 -1.71892                        \r\n                   16-        TEMPP1  20      10      .0      2.64868 1.10362 -1.10362                        \r\n                   17-        TEMPP1  20      11      .0      .91267  .38028  -.38028                         \r\n                   18-        TEMPP1  20      13      .0      5.47503 2.28126 -2.28126                        \r\n                   19-        TEMPP1  20      14      .0      4.93910 2.05796 -2.05796                        \r\n                   20-        TEMPP1  20      15      .0      3.91969 1.63320 -1.63320                        \r\n                   21-        TEMPP1  20      16      .0      2.51660 1.04858 -1.04858                        \r\n                   22-        TEMPP1  20      17      .0      .86716  .36132  -.36132                         \r\n                   23-        TEMPP1  20      19      .0      5.05286 2.10536 -2.10536                        \r\n                   24-        TEMPP1  20      20      .0      4.55825 1.89927 -1.89927                        \r\n                   25-        TEMPP1  20      21      .0      3.61745 1.50727 -1.50727                        \r\n                   26-        TEMPP1  20      22      .0      2.32254 .96773  -.96773                         \r\n                   27-        TEMPP1  20      23      .0      .80029  .33346  -.33346                         \r\n                   28-        TEMPP1  20      25      .0      4.50626 1.87761 -1.87761                        \r\n                   29-        TEMPP1  20      26      .0      4.06516 1.69382 -1.69382                        \r\n                   30-        TEMPP1  20      27      .0      3.22613 1.34422 -1.34422                        \r\n                   31-        TEMPP1  20      28      .0      2.07130 .86304  -.86304                         \r\n                   32-        TEMPP1  20      29      .0      .71372  .29738  -.29738                         \r\n                   33-        TEMPP1  20      31      .0      3.84871 1.60363 -1.60363                        \r\n                   34-        TEMPP1  20      32      .0      3.47197 1.44666 -1.44666                        \r\n                   35-        TEMPP1  20      33      .0      2.75537 1.14807 -1.14807                        \r\n                   36-        TEMPP1  20      34      .0      1.76906 .73711  -.73711                         \r\n                   37-        TEMPP1  20      35      .0      .60958  .25399  -.25399                         \r\n                   38-        TEMPP1  20      37      .0      3.09639 1.29016 -1.29016                        \r\n                   39-        TEMPP1  20      38      .0      2.79330 1.16387 -1.16387                        \r\n                   40-        TEMPP1  20      39      .0      2.21677 .92366  -.92366                         \r\n                   41-        TEMPP1  20      40      .0      1.42326 .59302  -.59302                         \r\n                   42-        TEMPP1  20      41      .0      .49042  .20434  -.20434                         \r\n                   43-        TEMPP1  20      43      .0      2.26783 .94493  -.94493                         \r\n                   44-        TEMPP1  20      44      .0      2.04584 .85243  -.85243                         \r\n                   45-        TEMPP1  20      45      .0      1.62359 .67650  -.67650                         \r\n                   46-        TEMPP1  20      46      .0      1.04241 .43434  -.43434                         \r\n                   47-        TEMPP1  20      47      .0      .35919  .14966  -.14966                         \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        TEMPP1  20      49      .0      1.38343 .57643  -.57643                         \r\n                   49-        TEMPP1  20      50      .0      1.24801 .52000  -.52000                         \r\n                   50-        TEMPP1  20      51      .0      .99043  .41268  -.41268                         \r\n                   51-        TEMPP1  20      52      .0      .63589  .26496  -.26496                         \r\n                   52-        TEMPP1  20      53      .0      .21911  .09130  -.09130                         \r\n                   53-        TEMPP1  20      55      .0      .46496  .19373  -.19373                         \r\n                   54-        TEMPP1  20      56      .0      .41945  .17477  -.17477                         \r\n                   55-        TEMPP1  20      57      .0      .33287  .13870  -.13870                         \r\n                   56-        TEMPP1  20      58      .0      .21372  .08905  -.08905                         \r\n                   57-        TEMPP1  20      59      .0      .07364  .03068  -.03068                         \r\n                              ENDDATA\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT   GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $   QUAD1 ELEMENT              \r\n\r\n       1  EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                 \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      95  LABEL    LBL9 $                                                         \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE ABSENCE OF GRID CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                            5      10 1.0E+00 1.0E+00       6 0.0E+00 0.0E+00\r\n                          421     125      53      34       0       0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6240146E-13\r\n0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED\r\n0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            6.289829E-01   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            5.981983E-01   0.0            6.155673E-02   0.0                           \r\n             3      G      0.0            0.0            5.088579E-01   0.0            1.170879E-01   0.0                           \r\n             4      G      0.0            0.0            3.697069E-01   0.0            1.611577E-01   0.0                           \r\n             5      G      0.0            0.0            1.943664E-01   0.0            1.894522E-01   0.0                           \r\n             6      G      0.0            0.0            0.0            0.0            1.992018E-01   0.0                           \r\n             7      G      0.0            0.0            6.212391E-01  -1.547499E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            5.908335E-01  -1.471759E-02   6.079886E-02   0.0                           \r\n             9      G      0.0            0.0            5.025930E-01  -1.251952E-02   1.156463E-01   0.0                           \r\n            10      G      0.0            0.0            3.651552E-01  -9.095970E-03   1.591735E-01   0.0                           \r\n            11      G      0.0            0.0            1.919734E-01  -4.782042E-03   1.871198E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            1.967493E-01   0.0                           \r\n            13      G      0.0            0.0            5.981983E-01  -3.056896E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            5.689204E-01  -2.907280E-02   5.854392E-02   0.0                           \r\n            15      G      0.0            0.0            4.839526E-01  -2.473081E-02   1.113572E-01   0.0                           \r\n            16      G      0.0            0.0            3.516122E-01  -1.796798E-02   1.532701E-01   0.0                           \r\n            17      G      0.0            0.0            1.848534E-01  -9.446317E-03   1.801798E-01   0.0                           \r\n            18      G      0.0            0.0            0.0            0.0            1.894522E-01   0.0                           \r\n            19      G      0.0            0.0            5.604278E-01  -4.491021E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            5.329986E-01  -4.271215E-02   5.484745E-02   0.0                           \r\n            21      G      0.0            0.0            4.533957E-01  -3.633313E-02   1.043261E-01   0.0                           \r\n            22      G      0.0            0.0            3.294112E-01  -2.639757E-02   1.435925E-01   0.0                           \r\n            23      G      0.0            0.0            1.731817E-01  -1.387804E-02   1.688032E-01   0.0                           \r\n            24      G      0.0            0.0            0.0            0.0            1.774901E-01   0.0                           \r\n            25      G      0.0            0.0            5.088578E-01  -5.814566E-02   0.0            0.0                           \r\n            26      G      0.0            0.0            4.839526E-01  -5.529981E-02   4.980044E-02   0.0                           \r\n            27      G      0.0            0.0            4.116746E-01  -4.704082E-02   9.472609E-02   0.0                           \r\n            28      G      0.0            0.0            2.990991E-01  -3.417715E-02   1.303793E-01   0.0                           \r\n            29      G      0.0            0.0            1.572457E-01  -1.796798E-02   1.532700E-01   0.0                           \r\n            30      G      0.0            0.0            0.0            0.0            1.611576E-01   0.0                           \r\n            31      G      0.0            0.0            4.447580E-01  -6.994929E-02   0.0            0.0                           \r\n            32      G      0.0            0.0            4.229900E-01  -6.652573E-02   4.352717E-02   0.0                           \r\n            33      G      0.0            0.0            3.598168E-01  -5.659018E-02   8.279362E-02   0.0                           \r\n            34      G      0.0            0.0            2.614222E-01  -4.111516E-02   1.139557E-01   0.0                           \r\n            35      G      0.0            0.0            1.374378E-01  -2.161550E-02   1.339629E-01   0.0                           \r\n            36      G      0.0            0.0            0.0            0.0            1.408570E-01   0.0                           \r\n            37      G      0.0            0.0            3.697068E-01  -8.003054E-02   0.0            0.0                           \r\n            38      G      0.0            0.0            3.516121E-01  -7.611356E-02   3.618212E-02   0.0                           \r\n            39      G      0.0            0.0            2.990991E-01  -6.474605E-02   6.882253E-02   0.0                           \r\n            40      G      0.0            0.0            2.173082E-01  -4.704076E-02   9.472606E-02   0.0                           \r\n            41      G      0.0            0.0            1.142457E-01  -2.473079E-02   1.113572E-01   0.0                           \r\n            42      G      0.0            0.0            0.0            0.0            1.170879E-01   0.0                           \r\n            43      G      0.0            0.0            2.855522E-01  -8.814117E-02   0.0            0.0                           \r\n            44      G      0.0            0.0            2.715763E-01  -8.382725E-02   2.794615E-02   0.0                           \r\n            45      G      0.0            0.0            2.310166E-01  -7.130771E-02   5.315678E-02   0.0                           \r\n            46      G      0.0            0.0            1.678434E-01  -5.180809E-02   7.316402E-02   0.0                           \r\n            47      G      0.0            0.0            8.824050E-02  -2.723713E-02   8.600949E-02   0.0                           \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G      0.0            0.0            0.0            0.0            9.043574E-02   0.0                           \r\n            49      G      0.0            0.0            1.943664E-01  -9.408151E-02   0.0            0.0                           \r\n            50      G      0.0            0.0            1.848534E-01  -8.947683E-02   1.902207E-02   0.0                           \r\n            51      G      0.0            0.0            1.572457E-01  -7.611354E-02   3.618213E-02   0.0                           \r\n            52      G      0.0            0.0            1.142457E-01  -5.529974E-02   4.980046E-02   0.0                           \r\n            53      G      0.0            0.0            6.006252E-02  -2.907281E-02   5.854395E-02   0.0                           \r\n            54      G      0.0            0.0            0.0            0.0            6.155673E-02   0.0                           \r\n            55      G      0.0            0.0            9.839460E-02  -9.770528E-02   0.0            0.0                           \r\n            56      G      0.0            0.0            9.357884E-02  -9.292324E-02   9.629590E-03   0.0                           \r\n            57      G      0.0            0.0            7.960291E-02  -7.904524E-02   1.831659E-02   0.0                           \r\n            58      G      0.0            0.0            5.783490E-02  -5.742973E-02   2.521062E-02   0.0                           \r\n            59      G      0.0            0.0            3.040560E-02  -3.019259E-02   2.963686E-02   0.0                           \r\n            60      G      0.0            0.0            0.0            0.0            3.116201E-02   0.0                           \r\n            61      G      0.0            0.0            0.0           -9.892321E-02   0.0            0.0                           \r\n            62      G      0.0            0.0            0.0           -9.408157E-02   0.0            0.0                           \r\n            63      G      0.0            0.0            0.0           -8.003056E-02   0.0            0.0                           \r\n            64      G      0.0            0.0            0.0           -5.814559E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            0.0           -3.056894E-02   0.0            0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -7.400122E+01   1.861396E+01   0.0                           \r\n             2      G      0.0            0.0            0.0           -1.407587E+02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -1.197365E+02   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -8.699371E+01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -4.573529E+01   0.0            0.0                           \r\n             6      G      0.0            0.0           -5.925016E+00  -1.750928E+01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            0.0            3.676960E+01   0.0                           \r\n            12      G      0.0            0.0           -1.170411E+01   8.652160E-02   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            3.540588E+01   0.0                           \r\n            18      G      0.0            0.0           -1.127010E+01   1.707948E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            0.0            3.317041E+01   0.0                           \r\n            24      G      0.0            0.0           -1.055845E+01   2.511623E-01   0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            3.011804E+01   0.0                           \r\n            30      G      0.0            0.0           -9.586771E+00   3.250313E-01   0.0            0.0                           \r\n            31      G      0.0            0.0            0.0            0.0            2.632403E+01   0.0                           \r\n            36      G      0.0            0.0           -8.379259E+00   3.909180E-01   0.0            0.0                           \r\n            37      G      0.0            0.0            0.0            0.0            2.188195E+01   0.0                           \r\n            42      G      0.0            0.0           -6.965311E+00   4.474613E-01   0.0            0.0                           \r\n            43      G      0.0            0.0            0.0            0.0            1.690109E+01   0.0                           \r\n            48      G      0.0            0.0           -5.379806E+00   4.926479E-01   0.0            0.0                           \r\n            49      G      0.0            0.0            0.0            0.0            1.150410E+01   0.0                           \r\n            54      G      0.0            0.0           -3.661853E+00   5.260014E-01   0.0            0.0                           \r\n            55      G      0.0            0.0            0.0            0.0            5.823802E+00   0.0                           \r\n            60      G      0.0            0.0           -1.853672E+00   5.461640E-01   0.0            0.0                           \r\n            61      G      0.0            0.0           -1.168273E+01   0.0            1.289775E+01   0.0                           \r\n            62      G      0.0            0.0           -2.222199E+01   0.0           -1.049895E+00   0.0                           \r\n            63      G      0.0            0.0           -1.890310E+01   0.0           -1.997354E+00   0.0                           \r\n            64      G      0.0            0.0           -1.373387E+01   0.0           -2.748788E+00   0.0                           \r\n            65      G      0.0            0.0           -7.220332E+00   0.0           -3.231655E+00   0.0                           \r\n            66      G      0.0            0.0            1.490416E+02   2.764740E-01  -1.698860E+00   0.0                           \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                 F O R C E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S     ( C Q U A D 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1          3.810094E+01          1.488741E+02          9.116211E-01         -1.681641E+00         -1.685547E+00      \r\n               2          3.437134E+01          1.343014E+02          2.645996E+00         -4.884766E+00         -1.519531E+00      \r\n               3          2.727718E+01          1.065821E+02          4.122559E+00         -7.611328E+00         -1.207031E+00      \r\n               4          1.751310E+01          6.843006E+01          5.194580E+00         -9.588867E+00         -7.734375E-01      \r\n               5          6.034527E+00          2.357921E+01          5.758179E+00         -1.063184E+01         -2.675781E-01      \r\n               7          3.716281E+01          1.452083E+02          2.712891E+00         -1.640625E+00         -5.007812E+00      \r\n               8          3.352502E+01          1.309944E+02          7.875000E+00         -4.765625E+00         -4.515625E+00      \r\n               9          2.660574E+01          1.039578E+02          1.226538E+01         -7.422852E+00         -3.583008E+00      \r\n              10          1.708173E+01          6.674492E+01          1.545557E+01         -9.353516E+00         -2.301758E+00      \r\n              11          5.885925E+00          2.299864E+01          1.713293E+01         -1.036987E+01         -7.939453E-01      \r\n              13          3.530957E+01          1.379671E+02          4.447754E+00         -1.560547E+00         -8.207031E+00      \r\n              14          3.185324E+01          1.244620E+02          1.290918E+01         -4.527344E+00         -7.400391E+00      \r\n              15          2.527878E+01          9.877349E+01          2.010693E+01         -7.053711E+00         -5.875977E+00      \r\n              16          1.623011E+01          6.341660E+01          2.533643E+01         -8.886719E+00         -3.771484E+00      \r\n              17          5.592537E+00          2.185180E+01          2.808569E+01         -9.853027E+00         -1.300293E+00      \r\n              19          3.258702E+01          1.273286E+02          6.072998E+00         -1.441406E+00         -1.120117E+01      \r\n              20          2.939702E+01          1.148648E+02          1.762598E+01         -4.176758E+00         -1.010938E+01      \r\n              21          2.332970E+01          9.115733E+01          2.745337E+01         -6.509766E+00         -8.023438E+00      \r\n              22          1.497841E+01          5.852643E+01          3.459338E+01         -8.201172E+00         -5.150391E+00      \r\n              23          5.161152E+00          2.016675E+01          3.834692E+01         -9.093018E+00         -1.775391E+00      \r\n              25          2.906168E+01          1.135548E+02          7.549072E+00         -1.284180E+00         -1.392773E+01      \r\n              26          2.621701E+01          1.024394E+02          2.190845E+01         -3.726562E+00         -1.256445E+01      \r\n              27          2.080591E+01          8.129636E+01          3.412378E+01         -5.805664E+00         -9.970703E+00      \r\n              28          1.335812E+01          5.219539E+01          4.299792E+01         -7.314453E+00         -6.402344E+00      \r\n              29          4.602867E+00          1.798526E+01          4.766394E+01         -8.109375E+00         -2.206543E+00      \r\n              31          2.482106E+01          9.698503E+01          8.839111E+00         -1.095703E+00         -1.630664E+01      \r\n              32          2.239125E+01          8.749140E+01          2.565161E+01         -3.182617E+00         -1.471094E+01      \r\n              33          1.776981E+01          6.943353E+01          3.995312E+01         -4.957031E+00         -1.167578E+01      \r\n              34          1.140897E+01          4.457915E+01          5.034448E+01         -6.248047E+00         -7.496582E+00      \r\n              35          3.931374E+00          1.536104E+01          5.580719E+01         -6.926025E+00         -2.583496E+00      \r\n              37          1.996918E+01          7.802699E+01          9.910645E+00         -8.808594E-01         -1.828516E+01      \r\n              38          1.801458E+01          7.038936E+01          2.876318E+01         -2.560547E+00         -1.649609E+01      \r\n              39          1.429631E+01          5.586108E+01          4.479968E+01         -3.988281E+00         -1.309082E+01      \r\n              40          9.178928E+00          3.586526E+01          5.645105E+01         -5.026855E+00         -8.405273E+00      \r\n              41          3.162741E+00          1.235822E+01          6.257642E+01         -5.572388E+00         -2.896729E+00      \r\n              43          1.462569E+01          5.714783E+01          1.073926E+01         -6.455078E-01         -1.981396E+01      \r\n              44          1.319399E+01          5.155382E+01          3.116638E+01         -1.874512E+00         -1.787402E+01      \r\n              45          1.047088E+01          4.091340E+01          4.854285E+01         -2.920898E+00         -1.418457E+01      \r\n              46          6.722740E+00          2.626803E+01          6.116754E+01         -3.681152E+00         -9.107910E+00      \r\n              47          2.316523E+00          9.051338E+00          6.780478E+01         -4.081116E+00         -3.138672E+00      \r\n              49          8.922112E+00          3.486148E+01          1.130286E+01         -3.930664E-01         -2.085400E+01      \r\n              50          8.048695E+00          3.144896E+01          3.280212E+01         -1.143555E+00         -1.881201E+01      \r\n              51          6.387611E+00          2.495819E+01          5.109064E+01         -1.782227E+00         -1.493018E+01      \r\n              52          4.100914E+00          1.602398E+01          6.437796E+01         -2.245605E+00         -9.585449E+00      \r\n              53          1.413036E+00          5.521420E+00          7.136359E+01         -2.489563E+00         -3.303101E+00      \r\n              55          2.998659E+00          1.171662E+01          1.158815E+01         -1.317444E-01         -2.138025E+01      \r\n              56          2.705261E+00          1.056990E+01          3.363035E+01         -3.840942E-01         -1.928735E+01      \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                 F O R C E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S     ( C Q U A D 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n              57          2.146612E+00          8.388025E+00          5.238049E+01         -5.986786E-01         -1.530640E+01      \r\n              58          1.378399E+00          5.385653E+00          6.600327E+01         -7.545395E-01         -9.827454E+00      \r\n              59          4.748776E-01          1.855652E+00          7.316516E+01         -8.366966E-01         -3.386353E+00      \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1    2.500000E-01     -5.134327E+03  -7.792875E+03  -2.187884E+01    -0.4715   -5.134147E+03   -7.793055E+03   1.329454E+03 \r\n            -2.500000E-01      5.134327E+03   7.792875E+03   2.187884E+01    89.5285    7.793055E+03    5.134147E+03   1.329454E+03 \r\n0       2    2.500000E-01     -4.631738E+03  -7.030051E+03  -6.350370E+01    -1.5157   -4.630058E+03   -7.031731E+03   1.200837E+03 \r\n            -2.500000E-01      4.631738E+03   7.030051E+03   6.350370E+01    88.4843    7.031731E+03    4.630058E+03   1.200837E+03 \r\n0       3    2.500000E-01     -3.675779E+03  -5.579090E+03  -9.894109E+01    -2.9678   -3.670650E+03   -5.584220E+03   9.567849E+02 \r\n            -2.500000E-01      3.675779E+03   5.579090E+03   9.894109E+01    87.0322    5.584220E+03    3.670650E+03   9.567849E+02 \r\n0       4    2.500000E-01     -2.359995E+03  -3.581999E+03  -1.246695E+02    -5.7662   -2.347406E+03   -3.594588E+03   6.235909E+02 \r\n            -2.500000E-01      2.359995E+03   3.581999E+03   1.246695E+02    84.2338    3.594588E+03    2.347406E+03   6.235909E+02 \r\n0       5    2.500000E-01     -8.131960E+02  -1.234267E+03  -1.381958E+02   -16.6405   -7.718917E+02   -1.275571E+03   2.518398E+02 \r\n            -2.500000E-01      8.131960E+02   1.234267E+03   1.381958E+02    73.3595    1.275571E+03    7.718917E+02   2.518398E+02 \r\n0       7    2.500000E-01     -5.007916E+03  -7.601000E+03  -6.510917E+01    -1.4374   -5.006282E+03   -7.602634E+03   1.298176E+03 \r\n            -2.500000E-01      5.007916E+03   7.601000E+03   6.510917E+01    88.5626    7.602634E+03    5.006282E+03   1.298176E+03 \r\n0       8    2.500000E-01     -4.517688E+03  -6.856945E+03  -1.889994E+02    -4.5895   -4.502516E+03   -6.872117E+03   1.184800E+03 \r\n            -2.500000E-01      4.517688E+03   6.856945E+03   1.889994E+02    85.4105    6.872117E+03    4.502516E+03   1.184800E+03 \r\n0       9    2.500000E-01     -3.585243E+03  -5.441688E+03  -2.943682E+02    -8.7977   -3.539685E+03   -5.487246E+03   9.737809E+02 \r\n            -2.500000E-01      3.585243E+03   5.441688E+03   2.943682E+02    81.2023    5.487246E+03    3.539685E+03   9.737809E+02 \r\n0      10    2.500000E-01     -2.301889E+03  -3.493802E+03  -3.709324E+02   -15.9494   -2.195880E+03   -3.599810E+03   7.019650E+02 \r\n            -2.500000E-01      2.301889E+03   3.493802E+03   3.709324E+02    74.0506    3.599810E+03    2.195880E+03   7.019650E+02 \r\n0      11    2.500000E-01     -7.931724E+02  -1.203876E+03  -4.111891E+02   -31.7310   -5.389094E+02   -1.458139E+03   4.596149E+02 \r\n            -2.500000E-01      7.931724E+02   1.203876E+03   4.111891E+02    58.2690    1.458139E+03    5.389094E+02   4.596149E+02 \r\n0      13    2.500000E-01     -4.758152E+03  -7.221924E+03  -1.067458E+02    -2.4762   -4.753536E+03   -7.226540E+03   1.236502E+03 \r\n            -2.500000E-01      4.758152E+03   7.221924E+03   1.067458E+02    87.5238    7.226540E+03    4.753536E+03   1.236502E+03 \r\n0      14    2.500000E-01     -4.292411E+03  -6.515015E+03  -3.098193E+02    -7.7890   -4.250032E+03   -6.557394E+03   1.153681E+03 \r\n            -2.500000E-01      4.292411E+03   6.515015E+03   3.098193E+02    82.2110    6.557394E+03    4.250032E+03   1.153681E+03 \r\n0      15    2.500000E-01     -3.406450E+03  -5.170317E+03  -4.825649E+02   -14.3430   -3.283060E+03   -5.293708E+03   1.005324E+03 \r\n            -2.500000E-01      3.406450E+03   5.170317E+03   4.825649E+02    75.6570    5.293708E+03    3.283060E+03   1.005324E+03 \r\n0      16    2.500000E-01     -2.187079E+03  -3.319551E+03  -6.080723E+02   -23.5202   -1.922427E+03   -3.584203E+03   8.308882E+02 \r\n            -2.500000E-01      2.187079E+03   3.319551E+03   6.080723E+02    66.4798    3.584203E+03    1.922427E+03   8.308882E+02 \r\n0      17    2.500000E-01     -7.536347E+02  -1.143856E+03  -6.740545E+02   -36.9282   -2.470205E+02   -1.650470E+03   7.017247E+02 \r\n            -2.500000E-01      7.536347E+02   1.143856E+03   6.740545E+02    53.0718    1.650470E+03    2.470205E+02   7.017247E+02 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      19    2.500000E-01     -4.391279E+03  -6.665070E+03  -1.457515E+02    -3.6528   -4.381975E+03   -6.674375E+03   1.146200E+03 \r\n            -2.500000E-01      4.391279E+03   6.665070E+03   1.457515E+02    86.3472    6.674375E+03    4.381975E+03   1.146200E+03 \r\n0      20    2.500000E-01     -3.961416E+03  -6.012635E+03  -4.230221E+02   -11.2071   -3.877601E+03   -6.096450E+03   1.109425E+03 \r\n            -2.500000E-01      3.961416E+03   6.012635E+03   4.230221E+02    78.7929    6.096450E+03    3.877601E+03   1.109425E+03 \r\n0      21    2.500000E-01     -3.143800E+03  -4.771658E+03  -6.588788E+02   -19.4952   -2.910542E+03   -5.004917E+03   1.047188E+03 \r\n            -2.500000E-01      3.143800E+03   4.771658E+03   6.588788E+02    70.5048    5.004917E+03    2.910542E+03   1.047188E+03 \r\n0      22    2.500000E-01     -2.018459E+03  -3.063608E+03  -8.302386E+02   -28.9063   -1.560024E+03   -3.522043E+03   9.810099E+02 \r\n            -2.500000E-01      2.018459E+03   3.063608E+03   8.302386E+02    61.0937    3.522043E+03    1.560024E+03   9.810099E+02 \r\n0      23    2.500000E-01     -6.955280E+02  -1.055661E+03  -9.203232E+02   -39.4648    6.217871E+01   -1.813368E+03   9.377733E+02 \r\n            -2.500000E-01      6.955280E+02   1.055661E+03   9.203232E+02    50.5352    1.813368E+03   -6.217871E+01   9.377733E+02 \r\n0      25    2.500000E-01     -3.916242E+03  -5.944071E+03  -1.811772E+02    -5.0656   -3.900182E+03   -5.960131E+03   1.029974E+03 \r\n            -2.500000E-01      3.916242E+03   5.944071E+03   1.811772E+02    84.9343    5.960131E+03    3.900182E+03   1.029974E+03 \r\n0      26    2.500000E-01     -3.532906E+03  -5.362237E+03  -5.258011E+02   -14.9464   -3.392546E+03   -5.502598E+03   1.055026E+03 \r\n            -2.500000E-01      3.532906E+03   5.362237E+03   5.258011E+02    75.0536    5.502598E+03    3.392546E+03   1.055026E+03 \r\n0      27    2.500000E-01     -2.803715E+03  -4.255481E+03  -8.189681E+02   -24.2241   -2.435242E+03   -4.623954E+03   1.094356E+03 \r\n            -2.500000E-01      2.803715E+03   4.255481E+03   8.189681E+02    65.7759    4.623954E+03    2.435242E+03   1.094356E+03 \r\n0      28    2.500000E-01     -1.800087E+03  -2.732178E+03  -1.031947E+03   -32.8476   -1.133828E+03   -3.398437E+03   1.132304E+03 \r\n            -2.500000E-01      1.800087E+03   2.732178E+03   1.031947E+03    57.1524    3.398437E+03    1.133828E+03   1.132304E+03 \r\n0      29    2.500000E-01     -6.202542E+02  -9.414305E+02  -1.143931E+03   -41.0044    3.743055E+02   -1.935990E+03   1.155148E+03 \r\n            -2.500000E-01      6.202542E+02   9.414305E+02   1.143931E+03    48.9956    1.935990E+03   -3.743055E+02   1.155148E+03 \r\n0      31    2.500000E-01     -3.344785E+03  -5.076715E+03  -2.121380E+02    -6.8824   -3.319180E+03   -5.102320E+03   8.915702E+02 \r\n            -2.500000E-01      3.344785E+03   5.076715E+03   2.121380E+02    83.1176    5.102320E+03    3.319180E+03   8.915702E+02 \r\n0      32    2.500000E-01     -3.017392E+03  -4.579791E+03  -6.156367E+02   -19.1202   -2.803965E+03   -4.793217E+03   9.946260E+02 \r\n            -2.500000E-01      3.017392E+03   4.579791E+03   6.156367E+02    70.8798    4.793217E+03    2.803965E+03   9.946260E+02 \r\n0      33    2.500000E-01     -2.394592E+03  -3.634517E+03  -9.588719E+02   -28.5576   -1.872719E+03   -4.156391E+03   1.141836E+03 \r\n            -2.500000E-01      2.394592E+03   3.634517E+03   9.588719E+02    61.4424    4.156391E+03    1.872719E+03   1.141836E+03 \r\n0      34    2.500000E-01     -1.537436E+03  -2.333518E+03  -1.208264E+03   -35.8832   -6.633378E+02   -3.207616E+03   1.272139E+03 \r\n            -2.500000E-01      1.537436E+03   2.333518E+03   1.208264E+03    54.1168    3.207616E+03    6.633378E+02   1.272139E+03 \r\n0      35    2.500000E-01     -5.297598E+02  -8.040709E+02  -1.339368E+03   -42.0766    6.794572E+02   -2.013288E+03   1.346373E+03 \r\n            -2.500000E-01      5.297598E+02   8.040709E+02   1.339368E+03    47.9234    2.013288E+03   -6.794572E+02   1.346373E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      37    2.500000E-01     -2.690955E+03  -4.084338E+03  -2.378547E+02    -9.4251   -2.651471E+03   -4.123822E+03   7.361752E+02 \r\n            -2.500000E-01      2.690955E+03   4.084338E+03   2.378547E+02    80.5749    4.123822E+03    2.651471E+03   7.361752E+02 \r\n0      38    2.500000E-01     -2.427541E+03  -3.684532E+03  -6.903142E+02   -23.8419   -2.122474E+03   -3.989600E+03   9.335631E+02 \r\n            -2.500000E-01      2.427541E+03   3.684532E+03   6.903142E+02    66.1581    3.989600E+03    2.122474E+03   9.335631E+02 \r\n0      39    2.500000E-01     -1.926542E+03  -2.924094E+03  -1.075189E+03   -32.5568   -1.240072E+03   -3.610564E+03   1.185246E+03 \r\n            -2.500000E-01      1.926542E+03   2.924094E+03   1.075189E+03    57.4432    3.610564E+03    1.240072E+03   1.185246E+03 \r\n0      40    2.500000E-01     -1.236886E+03  -1.877356E+03  -1.354821E+03   -38.3506   -1.649684E+02   -2.949274E+03   1.392153E+03 \r\n            -2.500000E-01      1.236886E+03   1.877356E+03   1.354821E+03    51.6494    2.949274E+03    1.649684E+02   1.392153E+03 \r\n0      41    2.500000E-01     -4.261984E+02  -6.468893E+02  -1.501829E+03   -42.8989    9.693336E+02   -2.042421E+03   1.505877E+03 \r\n            -2.500000E-01      4.261984E+02   6.468893E+02   1.501829E+03    47.1011    2.042421E+03   -9.693336E+02   1.505877E+03 \r\n0      43    2.500000E-01     -1.970898E+03  -2.991426E+03  -2.577414E+02   -13.3995   -1.909497E+03   -3.052826E+03   5.716643E+02 \r\n            -2.500000E-01      1.970898E+03   2.991426E+03   2.577414E+02    76.6005    3.052826E+03    1.909497E+03   5.716643E+02 \r\n0      44    2.500000E-01     -1.777955E+03  -2.698587E+03  -7.479908E+02   -29.1958   -1.359988E+03   -3.116554E+03   8.782832E+02 \r\n            -2.500000E-01      1.777955E+03   2.698587E+03   7.479908E+02    60.8042    3.116554E+03    1.359988E+03   8.782832E+02 \r\n0      45    2.500000E-01     -1.411025E+03  -2.141644E+03  -1.165025E+03   -36.2952   -5.553785E+02   -2.997291E+03   1.220956E+03 \r\n            -2.500000E-01      1.411025E+03   2.141644E+03   1.165025E+03    53.7048    2.997291E+03    5.553785E+02   1.220956E+03 \r\n0      46    2.500000E-01     -9.059346E+02  -1.375020E+03  -1.468016E+03   -40.4613    3.461572E+02   -2.627112E+03   1.486635E+03 \r\n            -2.500000E-01      9.059346E+02   1.375020E+03   1.468016E+03    49.5387    2.627112E+03   -3.461572E+02   1.486635E+03 \r\n0      47    2.500000E-01     -3.121500E+02  -4.737850E+02  -1.627310E+03   -43.5784    1.236348E+03   -2.022283E+03   1.629315E+03 \r\n            -2.500000E-01      3.121500E+02   4.737850E+02   1.627310E+03    46.4216    2.022283E+03   -1.236348E+03   1.629315E+03 \r\n0      49    2.500000E-01     -1.202298E+03  -1.824841E+03  -2.712677E+02   -20.5358   -1.100682E+03   -1.926457E+03   4.128875E+02 \r\n            -2.500000E-01      1.202298E+03   1.824841E+03   2.712677E+02    69.4642    1.926457E+03    1.100682E+03   4.128875E+02 \r\n0      50    2.500000E-01     -1.084586E+03  -1.646190E+03  -7.872485E+02   -35.1846   -5.295591E+02   -2.201217E+03   8.358290E+02 \r\n            -2.500000E-01      1.084586E+03   1.646190E+03   7.872485E+02    54.8154    2.201217E+03    5.295591E+02   8.358290E+02 \r\n0      51    2.500000E-01     -8.607558E+02  -1.306448E+03  -1.226171E+03   -39.8497    1.626550E+02   -2.329859E+03   1.246257E+03 \r\n            -2.500000E-01      8.607558E+02   1.306448E+03   1.226171E+03    50.1503    2.329859E+03   -1.626550E+02   1.246257E+03 \r\n0      52    2.500000E-01     -5.526537E+02  -8.388065E+02  -1.545066E+03   -42.3547    8.559465E+02   -2.247407E+03   1.551677E+03 \r\n            -2.500000E-01      5.526537E+02   8.388065E+02   1.545066E+03    47.6453    2.247407E+03   -8.559465E+02   1.551677E+03 \r\n0      53    2.500000E-01     -1.904378E+02  -2.890386E+02  -1.712721E+03   -44.1756    1.473692E+03   -1.953168E+03   1.713430E+03 \r\n            -2.500000E-01      1.904378E+02   2.890386E+02   1.712721E+03    45.8244    1.953168E+03   -1.473692E+03   1.713430E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      55    2.500000E-01     -4.040676E+02  -6.132980E+02  -2.781147E+02   -34.6929   -2.115428E+02   -8.058227E+02   2.971399E+02 \r\n            -2.500000E-01      4.040676E+02   6.132980E+02   2.781147E+02    55.3071    8.058227E+02    2.115428E+02   2.971399E+02 \r\n0      56    2.500000E-01     -3.645296E+02  -5.532803E+02  -8.071258E+02   -41.6654    3.537197E+02   -1.271530E+03   8.126246E+02 \r\n            -2.500000E-01      3.645296E+02   5.532803E+02   8.071258E+02    48.3346    1.271530E+03   -3.537197E+02   8.126246E+02 \r\n0      57    2.500000E-01     -2.893006E+02  -4.390941E+02  -1.257128E+03   -43.2952    8.951595E+02   -1.623554E+03   1.259357E+03 \r\n            -2.500000E-01      2.893006E+02   4.390941E+02   1.257128E+03    46.7048    1.623554E+03   -8.951595E+02   1.259357E+03 \r\n0      58    2.500000E-01     -1.857386E+02  -2.819124E+02  -1.584073E+03   -44.1306    1.350978E+03   -1.818629E+03   1.584803E+03 \r\n            -2.500000E-01      1.857386E+02   2.819124E+02   1.584073E+03    45.8694    1.818629E+03   -1.350978E+03   1.584803E+03 \r\n0      59    2.500000E-01     -6.398275E+01  -9.712123E+01  -1.755958E+03   -44.7297    1.675484E+03   -1.836589E+03   1.756036E+03 \r\n            -2.500000E-01      6.398275E+01   9.712123E+01   1.755958E+03    45.2703    1.836589E+03   -1.675484E+03   1.756036E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1           1000      -5.134327E+03  -7.792875E+03  -2.187884E+01    -0.4715   -5.134147E+03   -7.793055E+03   1.329454E+03 \r\n                       1       5.134327E+03   7.792875E+03   2.187884E+01    89.5285    7.793055E+03    5.134147E+03   1.329454E+03 \r\n0       2           1000      -4.631738E+03  -7.030051E+03  -6.350370E+01    -1.5157   -4.630058E+03   -7.031731E+03   1.200837E+03 \r\n                       1       4.631738E+03   7.030051E+03   6.350370E+01    88.4843    7.031731E+03    4.630058E+03   1.200837E+03 \r\n0       3           1000      -3.675779E+03  -5.579090E+03  -9.894109E+01    -2.9678   -3.670650E+03   -5.584220E+03   9.567849E+02 \r\n                       1       3.675779E+03   5.579090E+03   9.894109E+01    87.0322    5.584220E+03    3.670650E+03   9.567849E+02 \r\n0       4           1000      -2.359995E+03  -3.581999E+03  -1.246695E+02    -5.7662   -2.347406E+03   -3.594588E+03   6.235909E+02 \r\n                       1       2.359995E+03   3.581999E+03   1.246695E+02    84.2338    3.594588E+03    2.347406E+03   6.235909E+02 \r\n0       5           1000      -8.131960E+02  -1.234267E+03  -1.381958E+02   -16.6405   -7.718917E+02   -1.275571E+03   2.518398E+02 \r\n                       1       8.131960E+02   1.234267E+03   1.381958E+02    73.3595    1.275571E+03    7.718917E+02   2.518398E+02 \r\n0       7           1000      -5.007916E+03  -7.601000E+03  -6.510917E+01    -1.4374   -5.006282E+03   -7.602634E+03   1.298176E+03 \r\n                       1       5.007916E+03   7.601000E+03   6.510917E+01    88.5626    7.602634E+03    5.006282E+03   1.298176E+03 \r\n0       8           1000      -4.517688E+03  -6.856945E+03  -1.889994E+02    -4.5895   -4.502516E+03   -6.872117E+03   1.184800E+03 \r\n                       1       4.517688E+03   6.856945E+03   1.889994E+02    85.4105    6.872117E+03    4.502516E+03   1.184800E+03 \r\n0       9           1000      -3.585243E+03  -5.441688E+03  -2.943682E+02    -8.7977   -3.539685E+03   -5.487246E+03   9.737809E+02 \r\n                       1       3.585243E+03   5.441688E+03   2.943682E+02    81.2023    5.487246E+03    3.539685E+03   9.737809E+02 \r\n0      10           1000      -2.301889E+03  -3.493802E+03  -3.709324E+02   -15.9494   -2.195880E+03   -3.599810E+03   7.019650E+02 \r\n                       1       2.301889E+03   3.493802E+03   3.709324E+02    74.0506    3.599810E+03    2.195880E+03   7.019650E+02 \r\n0      11           1000      -7.931724E+02  -1.203876E+03  -4.111891E+02   -31.7310   -5.389094E+02   -1.458139E+03   4.596149E+02 \r\n                       1       7.931724E+02   1.203876E+03   4.111891E+02    58.2690    1.458139E+03    5.389094E+02   4.596149E+02 \r\n0      13           1000      -4.758152E+03  -7.221924E+03  -1.067458E+02    -2.4762   -4.753536E+03   -7.226540E+03   1.236502E+03 \r\n                       1       4.758152E+03   7.221924E+03   1.067458E+02    87.5238    7.226540E+03    4.753536E+03   1.236502E+03 \r\n0      14           1000      -4.292411E+03  -6.515015E+03  -3.098193E+02    -7.7890   -4.250032E+03   -6.557394E+03   1.153681E+03 \r\n                       1       4.292411E+03   6.515015E+03   3.098193E+02    82.2110    6.557394E+03    4.250032E+03   1.153681E+03 \r\n0      15           1000      -3.406450E+03  -5.170317E+03  -4.825649E+02   -14.3430   -3.283060E+03   -5.293708E+03   1.005324E+03 \r\n                       1       3.406450E+03   5.170317E+03   4.825649E+02    75.6570    5.293708E+03    3.283060E+03   1.005324E+03 \r\n0      16           1000      -2.187079E+03  -3.319551E+03  -6.080723E+02   -23.5202   -1.922427E+03   -3.584203E+03   8.308882E+02 \r\n                       1       2.187079E+03   3.319551E+03   6.080723E+02    66.4798    3.584203E+03    1.922427E+03   8.308882E+02 \r\n0      17           1000      -7.536347E+02  -1.143856E+03  -6.740545E+02   -36.9282   -2.470205E+02   -1.650470E+03   7.017247E+02 \r\n                       1       7.536347E+02   1.143856E+03   6.740545E+02    53.0718    1.650470E+03    2.470205E+02   7.017247E+02 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      19           1000      -4.391279E+03  -6.665070E+03  -1.457515E+02    -3.6528   -4.381975E+03   -6.674375E+03   1.146200E+03 \r\n                       1       4.391279E+03   6.665070E+03   1.457515E+02    86.3472    6.674375E+03    4.381975E+03   1.146200E+03 \r\n0      20           1000      -3.961416E+03  -6.012635E+03  -4.230221E+02   -11.2071   -3.877601E+03   -6.096450E+03   1.109425E+03 \r\n                       1       3.961416E+03   6.012635E+03   4.230221E+02    78.7929    6.096450E+03    3.877601E+03   1.109425E+03 \r\n0      21           1000      -3.143800E+03  -4.771658E+03  -6.588788E+02   -19.4952   -2.910542E+03   -5.004917E+03   1.047188E+03 \r\n                       1       3.143800E+03   4.771658E+03   6.588788E+02    70.5048    5.004917E+03    2.910542E+03   1.047188E+03 \r\n0      22           1000      -2.018459E+03  -3.063608E+03  -8.302386E+02   -28.9063   -1.560024E+03   -3.522043E+03   9.810099E+02 \r\n                       1       2.018459E+03   3.063608E+03   8.302386E+02    61.0937    3.522043E+03    1.560024E+03   9.810099E+02 \r\n0      23           1000      -6.955280E+02  -1.055661E+03  -9.203232E+02   -39.4648    6.217871E+01   -1.813368E+03   9.377733E+02 \r\n                       1       6.955280E+02   1.055661E+03   9.203232E+02    50.5352    1.813368E+03   -6.217871E+01   9.377733E+02 \r\n0      25           1000      -3.916242E+03  -5.944071E+03  -1.811772E+02    -5.0656   -3.900182E+03   -5.960131E+03   1.029974E+03 \r\n                       1       3.916242E+03   5.944071E+03   1.811772E+02    84.9343    5.960131E+03    3.900182E+03   1.029974E+03 \r\n0      26           1000      -3.532906E+03  -5.362237E+03  -5.258011E+02   -14.9464   -3.392546E+03   -5.502598E+03   1.055026E+03 \r\n                       1       3.532906E+03   5.362237E+03   5.258011E+02    75.0536    5.502598E+03    3.392546E+03   1.055026E+03 \r\n0      27           1000      -2.803715E+03  -4.255481E+03  -8.189681E+02   -24.2241   -2.435242E+03   -4.623954E+03   1.094356E+03 \r\n                       1       2.803715E+03   4.255481E+03   8.189681E+02    65.7759    4.623954E+03    2.435242E+03   1.094356E+03 \r\n0      28           1000      -1.800087E+03  -2.732178E+03  -1.031947E+03   -32.8476   -1.133828E+03   -3.398437E+03   1.132304E+03 \r\n                       1       1.800087E+03   2.732178E+03   1.031947E+03    57.1524    3.398437E+03    1.133828E+03   1.132304E+03 \r\n0      29           1000      -6.202542E+02  -9.414305E+02  -1.143931E+03   -41.0044    3.743055E+02   -1.935990E+03   1.155148E+03 \r\n                       1       6.202542E+02   9.414305E+02   1.143931E+03    48.9956    1.935990E+03   -3.743055E+02   1.155148E+03 \r\n0      31           1000      -3.344785E+03  -5.076715E+03  -2.121380E+02    -6.8824   -3.319180E+03   -5.102320E+03   8.915702E+02 \r\n                       1       3.344785E+03   5.076715E+03   2.121380E+02    83.1176    5.102320E+03    3.319180E+03   8.915702E+02 \r\n0      32           1000      -3.017392E+03  -4.579791E+03  -6.156367E+02   -19.1202   -2.803965E+03   -4.793217E+03   9.946260E+02 \r\n                       1       3.017392E+03   4.579791E+03   6.156367E+02    70.8798    4.793217E+03    2.803965E+03   9.946260E+02 \r\n0      33           1000      -2.394592E+03  -3.634517E+03  -9.588719E+02   -28.5576   -1.872719E+03   -4.156391E+03   1.141836E+03 \r\n                       1       2.394592E+03   3.634517E+03   9.588719E+02    61.4424    4.156391E+03    1.872719E+03   1.141836E+03 \r\n0      34           1000      -1.537436E+03  -2.333518E+03  -1.208264E+03   -35.8832   -6.633378E+02   -3.207616E+03   1.272139E+03 \r\n                       1       1.537436E+03   2.333518E+03   1.208264E+03    54.1168    3.207616E+03    6.633378E+02   1.272139E+03 \r\n0      35           1000      -5.297598E+02  -8.040709E+02  -1.339368E+03   -42.0766    6.794572E+02   -2.013288E+03   1.346373E+03 \r\n                       1       5.297598E+02   8.040709E+02   1.339368E+03    47.9234    2.013288E+03   -6.794572E+02   1.346373E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      37           1000      -2.690955E+03  -4.084338E+03  -2.378547E+02    -9.4251   -2.651471E+03   -4.123822E+03   7.361752E+02 \r\n                       1       2.690955E+03   4.084338E+03   2.378547E+02    80.5749    4.123822E+03    2.651471E+03   7.361752E+02 \r\n0      38           1000      -2.427541E+03  -3.684532E+03  -6.903142E+02   -23.8419   -2.122474E+03   -3.989600E+03   9.335631E+02 \r\n                       1       2.427541E+03   3.684532E+03   6.903142E+02    66.1581    3.989600E+03    2.122474E+03   9.335631E+02 \r\n0      39           1000      -1.926542E+03  -2.924094E+03  -1.075189E+03   -32.5568   -1.240072E+03   -3.610564E+03   1.185246E+03 \r\n                       1       1.926542E+03   2.924094E+03   1.075189E+03    57.4432    3.610564E+03    1.240072E+03   1.185246E+03 \r\n0      40           1000      -1.236886E+03  -1.877356E+03  -1.354821E+03   -38.3506   -1.649684E+02   -2.949274E+03   1.392153E+03 \r\n                       1       1.236886E+03   1.877356E+03   1.354821E+03    51.6494    2.949274E+03    1.649684E+02   1.392153E+03 \r\n0      41           1000      -4.261984E+02  -6.468893E+02  -1.501829E+03   -42.8989    9.693336E+02   -2.042421E+03   1.505877E+03 \r\n                       1       4.261984E+02   6.468893E+02   1.501829E+03    47.1011    2.042421E+03   -9.693336E+02   1.505877E+03 \r\n0      43           1000      -1.970898E+03  -2.991426E+03  -2.577414E+02   -13.3995   -1.909497E+03   -3.052826E+03   5.716643E+02 \r\n                       1       1.970898E+03   2.991426E+03   2.577414E+02    76.6005    3.052826E+03    1.909497E+03   5.716643E+02 \r\n0      44           1000      -1.777955E+03  -2.698587E+03  -7.479908E+02   -29.1958   -1.359988E+03   -3.116554E+03   8.782832E+02 \r\n                       1       1.777955E+03   2.698587E+03   7.479908E+02    60.8042    3.116554E+03    1.359988E+03   8.782832E+02 \r\n0      45           1000      -1.411025E+03  -2.141644E+03  -1.165025E+03   -36.2952   -5.553785E+02   -2.997291E+03   1.220956E+03 \r\n                       1       1.411025E+03   2.141644E+03   1.165025E+03    53.7048    2.997291E+03    5.553785E+02   1.220956E+03 \r\n0      46           1000      -9.059346E+02  -1.375020E+03  -1.468016E+03   -40.4613    3.461572E+02   -2.627112E+03   1.486635E+03 \r\n                       1       9.059346E+02   1.375020E+03   1.468016E+03    49.5387    2.627112E+03   -3.461572E+02   1.486635E+03 \r\n0      47           1000      -3.121500E+02  -4.737850E+02  -1.627310E+03   -43.5784    1.236348E+03   -2.022283E+03   1.629315E+03 \r\n                       1       3.121500E+02   4.737850E+02   1.627310E+03    46.4216    2.022283E+03   -1.236348E+03   1.629315E+03 \r\n0      49           1000      -1.202298E+03  -1.824841E+03  -2.712677E+02   -20.5358   -1.100682E+03   -1.926457E+03   4.128875E+02 \r\n                       1       1.202298E+03   1.824841E+03   2.712677E+02    69.4642    1.926457E+03    1.100682E+03   4.128875E+02 \r\n0      50           1000      -1.084586E+03  -1.646190E+03  -7.872485E+02   -35.1846   -5.295591E+02   -2.201217E+03   8.358290E+02 \r\n                       1       1.084586E+03   1.646190E+03   7.872485E+02    54.8154    2.201217E+03    5.295591E+02   8.358290E+02 \r\n0      51           1000      -8.607558E+02  -1.306448E+03  -1.226171E+03   -39.8497    1.626550E+02   -2.329859E+03   1.246257E+03 \r\n                       1       8.607558E+02   1.306448E+03   1.226171E+03    50.1503    2.329859E+03   -1.626550E+02   1.246257E+03 \r\n0      52           1000      -5.526537E+02  -8.388065E+02  -1.545066E+03   -42.3547    8.559465E+02   -2.247407E+03   1.551677E+03 \r\n                       1       5.526537E+02   8.388065E+02   1.545066E+03    47.6453    2.247407E+03   -8.559465E+02   1.551677E+03 \r\n0      53           1000      -1.904378E+02  -2.890386E+02  -1.712721E+03   -44.1756    1.473692E+03   -1.953168E+03   1.713430E+03 \r\n                       1       1.904378E+02   2.890386E+02   1.712721E+03    45.8244    1.953168E+03   -1.473692E+03   1.713430E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n  ELEMENT    MAT. COORD. SYS.      STRESSES IN MATERIAL COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      55           1000      -4.040676E+02  -6.132980E+02  -2.781147E+02   -34.6929   -2.115428E+02   -8.058227E+02   2.971399E+02 \r\n                       1       4.040676E+02   6.132980E+02   2.781147E+02    55.3071    8.058227E+02    2.115428E+02   2.971399E+02 \r\n0      56           1000      -3.645296E+02  -5.532803E+02  -8.071258E+02   -41.6654    3.537197E+02   -1.271530E+03   8.126246E+02 \r\n                       1       3.645296E+02   5.532803E+02   8.071258E+02    48.3346    1.271530E+03   -3.537197E+02   8.126246E+02 \r\n0      57           1000      -2.893006E+02  -4.390941E+02  -1.257128E+03   -43.2952    8.951595E+02   -1.623554E+03   1.259357E+03 \r\n                       1       2.893006E+02   4.390941E+02   1.257128E+03    46.7048    1.623554E+03   -8.951595E+02   1.259357E+03 \r\n0      58           1000      -1.857386E+02  -2.819124E+02  -1.584073E+03   -44.1306    1.350978E+03   -1.818629E+03   1.584803E+03 \r\n                       1       1.857386E+02   2.819124E+02   1.584073E+03    45.8694    1.818629E+03   -1.350978E+03   1.584803E+03 \r\n0      59           1000      -6.398275E+01  -9.712123E+01  -1.755958E+03   -44.7297    1.675484E+03   -1.836589E+03   1.756036E+03 \r\n                       1       6.398275E+01   9.712123E+01   1.755958E+03    45.2703    1.836589E+03   -1.675484E+03   1.756036E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1           1000      -5.412447E+03  -8.215008E+03   1.159304E+02     2.3647   -5.407660E+03   -8.219795E+03   1.406068E+03 \r\n                     503       5.412447E+03   8.215008E+03  -1.159304E+02   -87.6353    8.219795E+03    5.407660E+03   1.406068E+03 \r\n0       2           1000      -4.975675E+03  -7.552078E+03   1.322150E-02     0.0003   -4.975676E+03   -7.552078E+03   1.288201E+03 \r\n                     503       4.975675E+03   7.552078E+03  -1.322150E-02   -89.9997    7.552078E+03    4.975676E+03   1.288201E+03 \r\n0       3           1000      -4.239363E+03  -6.434500E+03  -3.953982E+00    -0.1032   -4.239355E+03   -6.434507E+03   1.097575E+03 \r\n                     503       4.239363E+03   6.434500E+03   3.953982E+00    89.8968    6.434507E+03    4.239355E+03   1.097575E+03 \r\n0       4           1000      -3.087997E+03  -4.686955E+03  -1.473942E+01    -0.5281   -3.087861E+03   -4.687091E+03   7.996147E+02 \r\n                     503       3.087997E+03   4.686955E+03   1.473942E+01    89.4719    4.687091E+03    3.087861E+03   7.996147E+02 \r\n0       5           1000      -1.609170E+03  -2.442397E+03  -1.440378E+01    -0.9901   -1.608921E+03   -2.442646E+03   4.168622E+02 \r\n                     503       1.609170E+03   2.442397E+03   1.440378E+01    89.0099    2.442646E+03    1.608921E+03   4.168622E+02 \r\n0       6           1000      -2.973753E+02  -4.513539E+02  -8.367082E+01   -23.6907   -2.606625E+02   -4.880666E+02   1.137021E+02 \r\n                     503       2.973753E+02   4.513539E+02   8.367082E+01    66.3093    4.880666E+02    2.606625E+02   1.137021E+02 \r\n0       7           1000      -5.238118E+03  -7.950405E+03   5.388284E+01     1.1377   -5.237048E+03   -7.951476E+03   1.357214E+03 \r\n                     503       5.238118E+03   7.950405E+03  -5.388284E+01   -88.8624    7.951476E+03    5.237048E+03   1.357214E+03 \r\n0       8           1000      -4.875125E+03  -7.399459E+03  -9.774213E+01    -2.2141   -4.871346E+03   -7.403238E+03   1.265946E+03 \r\n                     503       4.875125E+03   7.399459E+03   9.774213E+01    87.7859    7.403238E+03    4.871346E+03   1.265946E+03 \r\n0       9           1000      -4.162800E+03  -6.318296E+03  -1.614362E+02    -4.2595   -4.150776E+03   -6.330320E+03   1.089772E+03 \r\n                     503       4.162800E+03   6.318296E+03   1.614362E+02    85.7405    6.330320E+03    4.150776E+03   1.089772E+03 \r\n0      10           1000      -3.030241E+03  -4.599297E+03  -2.258318E+02    -8.0294   -2.998384E+03   -4.631154E+03   8.163850E+02 \r\n                     503       3.030241E+03   4.599297E+03   2.258318E+02    81.9706    4.631154E+03    2.998384E+03   8.163850E+02 \r\n0      11           1000      -1.548027E+03  -2.349593E+03  -2.552258E+02   -16.2449   -1.473661E+03   -2.423960E+03   4.751495E+02 \r\n                     503       1.548027E+03   2.349593E+03   2.552258E+02    73.7551    2.423960E+03    1.473661E+03   4.751495E+02 \r\n0      12           1000      -2.115782E+02  -3.211316E+02  -3.183424E+02   -40.1184    5.666577E+01   -5.893756E+02   3.230207E+02 \r\n                     503       2.115782E+02   3.211316E+02   3.183424E+02    49.8816    5.893756E+02   -5.666577E+01   3.230207E+02 \r\n0      13           1000      -5.010431E+03  -7.604823E+03   2.322411E+01     0.5128   -5.010223E+03   -7.605031E+03   1.297404E+03 \r\n                     503       5.010431E+03   7.604823E+03  -2.322411E+01   -89.4872    7.605031E+03    5.010223E+03   1.297404E+03 \r\n0      14           1000      -4.704003E+03  -7.139728E+03  -1.760344E+02    -4.1124   -4.691346E+03   -7.152384E+03   1.230519E+03 \r\n                     503       4.704003E+03   7.139728E+03   1.760344E+02    85.8876    7.152384E+03    4.691346E+03   1.230519E+03 \r\n0      15           1000      -4.010997E+03  -6.087896E+03  -3.219900E+02    -8.6135   -3.962223E+03   -6.136670E+03   1.087223E+03 \r\n                     503       4.010997E+03   6.087896E+03   3.219900E+02    81.3865    6.136670E+03    3.962223E+03   1.087223E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      16           1000      -2.921089E+03  -4.433632E+03  -4.466739E+02   -15.2836   -2.799030E+03   -4.555691E+03   8.783304E+02 \r\n                     503       2.921089E+03   4.433632E+03   4.466739E+02    74.7164    4.555691E+03    2.799030E+03   8.783304E+02 \r\n0      17           1000      -1.497415E+03  -2.272773E+03  -5.177765E+02   -26.5882   -1.238266E+03   -2.531923E+03   6.468287E+02 \r\n                     503       1.497415E+03   2.272773E+03   5.177765E+02    63.4118    2.531923E+03    1.238266E+03   6.468287E+02 \r\n0      18           1000      -1.779182E+02  -2.700389E+02  -5.759235E+02   -42.7137    3.537838E+02   -8.017410E+02   5.777624E+02 \r\n                     503       1.779182E+02   2.700389E+02   5.759235E+02    47.2863    8.017410E+02   -3.537838E+02   5.777624E+02 \r\n0      19           1000      -4.681554E+03  -7.105657E+03   1.672077E+00     0.0395   -4.681553E+03   -7.105658E+03   1.212052E+03 \r\n                     503       4.681554E+03   7.105657E+03  -1.672077E+00   -89.9605    7.105658E+03    4.681553E+03   1.212052E+03 \r\n0      20           1000      -4.412221E+03  -6.696860E+03  -2.509875E+02    -6.1960   -4.384973E+03   -6.724108E+03   1.169568E+03 \r\n                     503       4.412221E+03   6.696860E+03   2.509875E+02    83.8040    6.724108E+03    4.384973E+03   1.169568E+03 \r\n0      21           1000      -3.758303E+03  -5.704352E+03  -4.751817E+02   -13.0144   -3.648472E+03   -5.814182E+03   1.082855E+03 \r\n                     503       3.758303E+03   5.704352E+03   4.751817E+02    76.9856    5.814182E+03    3.648472E+03   1.082855E+03 \r\n0      22           1000      -2.737074E+03  -4.154333E+03  -6.558763E+02   -21.3930   -2.480132E+03   -4.411276E+03   9.655722E+02 \r\n                     503       2.737074E+03   4.154333E+03   6.558763E+02    68.6070    4.411276E+03    2.480132E+03   9.655722E+02 \r\n0      23           1000      -1.408172E+03  -2.137314E+03  -7.665382E+02   -32.2819   -9.239246E+02   -2.621562E+03   8.488186E+02 \r\n                     503       1.408172E+03   2.137314E+03   7.665382E+02    57.7181    2.621562E+03    9.239246E+02   8.488186E+02 \r\n0      24           1000      -1.507021E+02  -2.287276E+02  -8.269897E+02   -43.6496    6.381945E+02   -1.017624E+03   8.279094E+02 \r\n                     503       1.507021E+02   2.287276E+02   8.269897E+02    46.3504    1.017624E+03   -6.381945E+02   8.279094E+02 \r\n0      25           1000      -4.248349E+03  -6.448138E+03  -1.547431E+01    -0.4030   -4.248240E+03   -6.448246E+03   1.100003E+03 \r\n                     503       4.248349E+03   6.448138E+03   1.547431E+01    89.5970    6.448246E+03    4.248240E+03   1.100003E+03 \r\n0      26           1000      -4.007302E+03  -6.082276E+03  -3.213080E+02    -8.6038   -3.958687E+03   -6.130892E+03   1.086103E+03 \r\n                     503       4.007302E+03   6.082276E+03   3.213080E+02    81.3962    6.130892E+03    3.958687E+03   1.086103E+03 \r\n0      27           1000      -3.412460E+03  -5.179430E+03  -6.164155E+02   -17.4519   -3.218674E+03   -5.373216E+03   1.077271E+03 \r\n                     503       3.412460E+03   5.179430E+03   6.164155E+02    72.5481    5.373216E+03    3.218674E+03   1.077271E+03 \r\n0      28           1000      -2.484400E+03  -3.770823E+03  -8.484420E+02   -26.4170   -2.062917E+03   -4.192306E+03   1.064694E+03 \r\n                     503       2.484400E+03   3.770823E+03   8.484420E+02    63.5830    4.192306E+03    2.062917E+03   1.064694E+03 \r\n0      29           1000      -1.281956E+03  -1.945751E+03  -9.946729E+02   -35.7737   -5.652692E+02   -2.662439E+03   1.048585E+03 \r\n                     503       1.281956E+03   1.945751E+03   9.946729E+02    54.2263    2.662439E+03    5.652692E+02   1.048585E+03 \r\n0      30           1000      -1.211170E+02  -1.838302E+02  -1.061139E+03   -44.1537    9.091285E+02   -1.214076E+03   1.061602E+03 \r\n                     503       1.211170E+02   1.838302E+02   1.061139E+03    45.8463    1.214076E+03   -9.091285E+02   1.061602E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      31           1000      -3.718076E+03  -5.643295E+03  -2.960088E+01    -0.8807   -3.717621E+03   -5.643750E+03   9.630649E+02 \r\n                     503       3.718076E+03   5.643295E+03   2.960088E+01    89.1193    5.643750E+03    3.717621E+03   9.630649E+02 \r\n0      32           1000      -3.501687E+03  -5.314855E+03  -3.844437E+02   -11.4899   -3.423542E+03   -5.393000E+03   9.847296E+02 \r\n                     503       3.501687E+03   5.314855E+03   3.844437E+02    78.5101    5.393000E+03    3.423542E+03   9.847296E+02 \r\n0      33           1000      -2.983081E+03  -4.527717E+03  -7.422441E+02   -21.9312   -2.684230E+03   -4.826567E+03   1.071168E+03 \r\n                     503       2.983081E+03   4.527717E+03   7.422441E+02    68.0688    4.826567E+03    2.684230E+03   1.071168E+03 \r\n0      34           1000      -2.170286E+03  -3.294063E+03  -1.020220E+03   -30.5781   -1.567456E+03   -3.896893E+03   1.164718E+03 \r\n                     503       2.170286E+03   3.294063E+03   1.020220E+03    59.4219    3.896893E+03    1.567456E+03   1.164718E+03 \r\n0      35           1000      -1.124092E+03  -1.706151E+03  -1.197585E+03   -38.1706   -1.826814E+02   -2.647562E+03   1.232440E+03 \r\n                     503       1.124092E+03   1.706151E+03   1.197585E+03    51.8294    2.647562E+03    1.826814E+02   1.232440E+03 \r\n0      36           1000      -8.655007E+01  -1.313699E+02  -1.271597E+03   -44.4952    1.162834E+03   -1.380754E+03   1.271794E+03 \r\n                     503       8.655007E+01   1.313699E+02   1.271597E+03    45.5048    1.380754E+03   -1.162834E+03   1.271794E+03 \r\n0      37           1000      -3.102701E+03  -4.709281E+03  -4.141850E+01    -1.4758   -3.101634E+03   -4.710348E+03   8.043571E+02 \r\n                     503       3.102701E+03   4.709281E+03   4.141850E+01    88.5242    4.710348E+03    3.101634E+03   8.043571E+02 \r\n0      38           1000      -2.908363E+03  -4.414317E+03  -4.384298E+02   -15.1053   -2.790022E+03   -4.532658E+03   8.713182E+02 \r\n                     503       2.908363E+03   4.414317E+03   4.384298E+02    74.8947    4.532658E+03    2.790022E+03   8.713182E+02 \r\n0      39           1000      -2.480795E+03  -3.765349E+03  -8.496696E+02   -26.4569   -2.057962E+03   -4.188181E+03   1.065109E+03 \r\n                     503       2.480795E+03   3.765349E+03   8.496696E+02    63.5431    4.188181E+03    2.057962E+03   1.065109E+03 \r\n0      40           1000      -1.802366E+03  -2.735630E+03  -1.167071E+03   -34.1034   -1.012097E+03   -3.525899E+03   1.256901E+03 \r\n                     503       1.802366E+03   2.735630E+03   1.167071E+03    55.8966    3.525899E+03    1.012097E+03   1.256901E+03 \r\n0      41           1000      -9.395004E+02  -1.425978E+03  -1.370510E+03   -39.9680    2.091882E+02   -2.574667E+03   1.391928E+03 \r\n                     503       9.395004E+02   1.425978E+03   1.370510E+03    50.0320    2.574667E+03   -2.091882E+02   1.391928E+03 \r\n0      42           1000      -4.526099E+01  -6.870167E+01  -1.452950E+03   -44.7689    1.396016E+03   -1.509979E+03   1.452997E+03 \r\n                     503       4.526099E+01   6.870167E+01   1.452950E+03    45.2311    1.509979E+03   -1.396016E+03   1.452997E+03 \r\n0      43           1000      -2.418063E+03  -3.670136E+03  -5.153229E+01    -2.3529   -2.415946E+03   -3.672253E+03   6.281537E+02 \r\n                     503       2.418063E+03   3.670136E+03   5.153229E+01    87.6471    3.672253E+03    2.415946E+03   6.281537E+02 \r\n0      44           1000      -2.241295E+03  -3.401845E+03  -4.815924E+02   -19.8453   -2.067481E+03   -3.575659E+03   7.540891E+02 \r\n                     503       2.241295E+03   3.401845E+03   4.815924E+02    70.1547    3.575659E+03    2.067481E+03   7.540891E+02 \r\n0      45           1000      -1.917746E+03  -2.910753E+03  -9.360900E+02   -31.0292   -1.354636E+03   -3.473863E+03   1.059613E+03 \r\n                     503       1.917746E+03   2.910753E+03   9.360900E+02    58.9708    3.473863E+03    1.354636E+03   1.059613E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      46           1000      -1.389427E+03  -2.108866E+03  -1.285354E+03   -37.1826   -4.144058E+02   -3.083887E+03   1.334741E+03 \r\n                     503       1.389427E+03   2.108866E+03   1.285354E+03    52.8174    3.083887E+03    4.144058E+02   1.334741E+03 \r\n0      47           1000      -7.338983E+02  -1.113914E+03  -1.508995E+03   -41.4116    5.970037E+02   -2.444816E+03   1.520910E+03 \r\n                     503       7.338983E+02   1.113914E+03   1.508995E+03    48.5884    2.444816E+03   -5.970037E+02   1.520910E+03 \r\n0      48           1000       4.863134E+00   7.375687E+00  -1.601109E+03   -45.0225    1.607229E+03   -1.594991E+03   1.601110E+03 \r\n                     503      -4.863134E+00  -7.375687E+00   1.601109E+03    44.9775    1.594991E+03   -1.607229E+03   1.601110E+03 \r\n0      49           1000      -1.683967E+03  -2.555920E+03  -6.084562E+01    -3.9725   -1.679742E+03   -2.560146E+03   4.402021E+02 \r\n                     503       1.683967E+03   2.555920E+03   6.084562E+01    86.0275    2.560146E+03    1.679742E+03   4.402021E+02 \r\n0      50           1000      -1.513944E+03  -2.297867E+03  -5.121187E+02   -26.2853   -1.261003E+03   -2.550808E+03   6.449025E+02 \r\n                     503       1.513944E+03   2.297867E+03   5.121187E+02    63.7147    2.550808E+03    1.261003E+03   6.449025E+02 \r\n0      51           1000      -1.306063E+03  -1.982343E+03  -9.990259E+02   -35.6503   -5.895033E+02   -2.698902E+03   1.054700E+03 \r\n                     503       1.306063E+03   1.982343E+03   9.990259E+02    54.3497    2.698902E+03    5.895033E+02   1.054700E+03 \r\n0      52           1000      -9.415195E+02  -1.429027E+03  -1.371778E+03   -39.9621    2.079935E+02   -2.578540E+03   1.393267E+03 \r\n                     503       9.415195E+02   1.429027E+03   1.371778E+03    50.0379    2.578540E+03   -2.079935E+02   1.393267E+03 \r\n0      53           1000      -5.147592E+02  -7.812952E+02  -1.608785E+03   -42.6323    9.662677E+02   -2.262322E+03   1.614295E+03 \r\n                     503       5.147592E+02   7.812952E+02   1.608785E+03    47.3677    2.262322E+03   -9.662677E+02   1.614295E+03 \r\n0      54           1000       6.787238E+01   1.030137E+02  -1.713586E+03   -45.2937    1.799119E+03   -1.628233E+03   1.713676E+03 \r\n                     503      -6.787238E+01  -1.030137E+02   1.713586E+03    44.7063    1.628233E+03   -1.799119E+03   1.713676E+03 \r\n0      55           1000      -9.308094E+02  -1.412781E+03  -7.235959E+01    -8.3566   -9.201802E+02   -1.423410E+03   2.516150E+02 \r\n                     503       9.308094E+02   1.412781E+03   7.235959E+01    81.6434    1.423410E+03    9.201802E+02   2.516150E+02 \r\n0      56           1000      -7.462652E+02  -1.132682E+03  -5.294288E+02   -34.9755   -3.758918E+02   -1.503055E+03   5.635817E+02 \r\n                     503       7.462652E+02   1.132682E+03   5.294288E+02    55.0245    1.503055E+03    3.758918E+02   5.635817E+02 \r\n0      57           1000      -6.603292E+02  -1.002245E+03  -1.036352E+03   -40.3164    2.190710E+02   -1.881645E+03   1.050358E+03 \r\n                     503       6.603292E+02   1.002245E+03   1.036352E+03    49.6836    1.881645E+03   -2.190710E+02   1.050358E+03 \r\n0      58           1000      -4.720674E+02  -7.164954E+02  -1.423694E+03   -42.5468    8.346487E+02   -2.023211E+03   1.428930E+03 \r\n                     503       4.720674E+02   7.164954E+02   1.423694E+03    47.4532    2.023211E+03   -8.346487E+02   1.428930E+03 \r\n0      59           1000      -2.858381E+02  -4.338409E+02  -1.667309E+03   -43.7293    1.309111E+03   -2.028790E+03   1.668951E+03 \r\n                     503       2.858381E+02   4.338409E+02   1.667309E+03    46.2707    2.028790E+03   -1.309111E+03   1.668951E+03 \r\n0      60           1000       1.575309E+02   2.390941E+02  -1.791454E+03   -45.6520    1.990231E+03   -1.593606E+03   1.791919E+03 \r\n                     503      -1.575309E+02  -2.390941E+02   1.791454E+03    44.3480    1.593606E+03   -1.990231E+03   1.791919E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                           S T R E S S E S   A T   G R I D   P O I N T S\r\n                                                  (IN MATERIAL COORDINATE SYSTEM)\r\n\r\n   POINT     MAT. COORD. SYS.      STRESSES INMATERIAL COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.      ID./OUTPUT CODE     NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      61           1000      -2.446324E+02  -3.713096E+02  -1.017026E+02   -29.0430   -1.881579E+02   -4.277842E+02   1.198131E+02 \r\n                     503       2.446324E+02   3.713096E+02   1.017026E+02    60.9570    4.277842E+02    1.881579E+02   1.198131E+02 \r\n0      62           1000      -4.210839E+01  -6.391433E+01  -5.503413E+02   -44.4325    4.974379E+02   -6.034606E+02   5.504493E+02 \r\n                     503       4.210839E+01   6.391433E+01   5.503413E+02    45.5675    6.034606E+02   -4.974379E+02   5.504493E+02 \r\n0      63           1000      -4.309179E+01  -6.540018E+01  -1.056104E+03   -44.6974    1.001917E+03   -1.110409E+03   1.056163E+03 \r\n                     503       4.309179E+01   6.540018E+01   1.056104E+03    45.3026    1.110409E+03   -1.001917E+03   1.056163E+03 \r\n0      64           1000      -1.158768E+01  -1.758555E+01  -1.449877E+03   -44.9407    1.435293E+03   -1.464467E+03   1.449880E+03 \r\n                     503       1.158768E+01   1.758555E+01   1.449877E+03    45.0593    1.464467E+03   -1.435293E+03   1.449880E+03 \r\n0      65           1000       9.407043E-03   6.347656E-03  -1.701701E+03   -45.0000    1.701709E+03   -1.701693E+03   1.701701E+03 \r\n                     503      -9.407043E-03  -6.347656E-03   1.701701E+03    45.0000    1.701693E+03   -1.701709E+03   1.701701E+03 \r\n0      66           1000       3.389859E+02   5.144959E+02  -1.851078E+03   -46.3571    2.279898E+03   -1.426416E+03   1.853157E+03 \r\n                     503      -3.389859E+02  -5.144959E+02   1.851078E+03    43.6429    1.426416E+03   -2.279898E+03   1.853157E+03 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0       1                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.117778E-02  -1.509628E-02   7.591248E-04    89.5281   -1.509315E-02   -6.118090E-02   4.608775E-02 \r\n0       2                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.518931E-02  -1.361854E-02   2.201796E-03    88.4841   -1.358941E-02   -5.521844E-02   4.162904E-02 \r\n0       3                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.379847E-02  -1.080774E-02   3.430128E-03    87.0321   -1.071882E-02   -4.388739E-02   3.316857E-02 \r\n0       4                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.812038E-02  -6.939002E-03   4.321814E-03    84.2339   -6.720795E-03   -2.833859E-02   2.161779E-02 \r\n0       5                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -9.689569E-03  -2.391021E-03   4.790783E-03    73.3595   -1.675081E-03   -1.040551E-02   8.730429E-03 \r\n0       7                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.967138E-02  -1.472457E-02   2.257586E-03    88.5623   -1.469625E-02   -5.969971E-02   4.500346E-02 \r\n0       8                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.383037E-02  -1.328324E-02   6.552458E-03    85.4101   -1.302022E-02   -5.409338E-02   4.107316E-02 \r\n0       9                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.272002E-02  -1.054164E-02   1.020479E-02    81.2023   -9.751953E-03   -4.350970E-02   3.375775E-02 \r\n0      10                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.742796E-02  -6.768140E-03   1.285911E-02    74.0505   -4.930627E-03   -2.926547E-02   2.433484E-02 \r\n0      11                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -9.450994E-03  -2.332138E-03   1.425445E-02    58.2691    2.075044E-03   -1.385818E-02   1.593322E-02 \r\n0      13                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.669567E-02  -1.399029E-02   3.701210E-03    87.5233   -1.391024E-02   -5.677571E-02   4.286547E-02 \r\n0      14                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.114594E-02  -1.262083E-02   1.074076E-02    82.2108   -1.188620E-02   -5.188056E-02   3.999436E-02 \r\n0      15                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.058964E-02  -1.001595E-02   1.672912E-02    75.6568   -7.877143E-03   -4.272845E-02   3.485131E-02 \r\n0      16                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.606016E-02  -6.430654E-03   2.107990E-02    66.4798   -1.843329E-03   -3.064749E-02   2.880416E-02 \r\n0      17                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -8.979693E-03  -2.215862E-03   2.336723E-02    53.0718    6.565453E-03   -1.776101E-02   2.432646E-02 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      19                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.232393E-02  -1.291154E-02   5.053043E-03    86.3470   -1.275024E-02   -5.248523E-02   3.973499E-02 \r\n0      20                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.720213E-02  -1.164766E-02   1.466465E-02    78.7930   -1.019489E-02   -4.865490E-02   3.846000E-02 \r\n0      21                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.745983E-02  -9.243628E-03   2.284098E-02    70.5049   -5.200529E-03   -4.150293E-02   3.630240E-02 \r\n0      22                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.405068E-02  -5.934753E-03   2.878141E-02    61.0938    2.011377E-03   -3.199681E-02   3.400818E-02 \r\n0      23                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -8.287281E-03  -2.044971E-03   3.190458E-02    50.5352    1.108863E-02   -2.142088E-02   3.250952E-02 \r\n0      25                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.666379E-02  -1.151477E-02   6.280899E-03    84.9343   -1.123638E-02   -4.694217E-02   3.570579E-02 \r\n0      26                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.209603E-02  -1.038763E-02   1.822805E-02    75.0535   -7.954644E-03   -4.452902E-02   3.657437E-02 \r\n0      27                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.340762E-02  -8.243671E-03   2.839112E-02    65.7758   -1.856724E-03   -3.979457E-02   3.793785E-02 \r\n0      28                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.144899E-02  -5.292756E-03   3.577423E-02    57.1524    6.255765E-03   -3.299751E-02   3.925328E-02 \r\n0      29                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -7.390812E-03  -1.823756E-03   3.965628E-02    48.9956    1.541528E-02   -2.462985E-02   4.004513E-02 \r\n0      31                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.985463E-02  -9.834521E-03   7.354259E-03    83.1175   -9.390675E-03   -4.029848E-02   3.090780E-02 \r\n0      32                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.595342E-02  -8.871842E-03   2.134204E-02    70.8798   -5.172458E-03   -3.965280E-02   3.448034E-02 \r\n0      33                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.853277E-02  -7.040728E-03   3.324115E-02    61.4423    2.005180E-03   -3.757868E-02   3.958386E-02 \r\n0      34                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.831919E-02  -4.520444E-03   4.188657E-02    54.1167    1.063063E-02   -3.347027E-02   4.410091E-02 \r\n0      35                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.312374E-03  -1.557647E-03   4.643142E-02    47.9234    1.940211E-02   -2.727213E-02   4.667424E-02 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      37                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.206413E-02  -7.912155E-03   8.245945E-03    80.5746   -7.227720E-03   -3.274857E-02   2.552084E-02 \r\n0      38                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.892550E-02  -7.137667E-03   2.393103E-02    66.1580   -1.849776E-03   -3.421339E-02   3.236362E-02 \r\n0      39                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.295538E-02  -5.664488E-03   3.727329E-02    57.4432    6.234366E-03   -3.485423E-02   4.108860E-02 \r\n0      40                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.473830E-02  -3.636822E-03   4.696703E-02    51.6494    1.494305E-02   -3.331817E-02   4.826121E-02 \r\n0      41                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -5.078472E-03  -1.253165E-03   5.206341E-02    47.1011    2.293606E-02   -2.926769E-02   5.220375E-02 \r\n0      43                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.348410E-02  -5.794950E-03   8.935213E-03    76.6003   -4.730639E-03   -2.454841E-02   1.981777E-02 \r\n0      44                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.118533E-02  -5.227700E-03   2.593040E-02    60.8041    2.017083E-03   -2.843012E-02   3.044720E-02 \r\n0      45                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.681278E-02  -4.148740E-03   4.038739E-02    53.7048    1.068241E-02   -3.164393E-02   4.232634E-02 \r\n0      46                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.079448E-02  -2.663663E-03   5.089128E-02    49.5387    1.903928E-02   -3.249742E-02   5.153671E-02 \r\n0      47                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.719518E-03  -9.178389E-04   5.641344E-02    46.4216    2.592281E-02   -3.056016E-02   5.648297E-02 \r\n0      49                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.432582E-02  -3.535084E-03   9.404004E-03    69.4641   -1.773721E-03   -1.608719E-02   1.431347E-02 \r\n0      50                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.292352E-02  -3.189050E-03   2.729130E-02    54.8153    6.431423E-03   -2.254400E-02   2.897542E-02 \r\n0      51                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -1.025618E-02  -2.530843E-03   4.250735E-02    50.1503    1.520832E-02   -2.799534E-02   4.320365E-02 \r\n0      52                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -6.584862E-03  -1.624880E-03   5.356231E-02    47.6453    2.279087E-02   -3.100061E-02   5.379147E-02 \r\n0      53                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.268968E-03  -5.598860E-04   5.937433E-02    45.8244    2.828503E-02   -3.111389E-02   5.939892E-02 \r\n1     SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n    S T R A I N S / C U R V A T U R E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT        STRAIN        STRNS./CURVS. IN ELEMENT COORD SYSTEM      PRIN. STRNS./CURVS. (ZERO SHEAR/TWIST)       MAXIMUM\r\n    ID.         CURVATURE       NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR       SHEAR/TWIST\r\n0      55                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.814792E-03  -1.188125E-03   9.641312E-03    55.3071    2.148969E-03   -8.151887E-03   1.030086E-02 \r\n0      56                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -4.343497E-03  -1.071822E-03   2.798040E-02    48.3346    1.137785E-02   -1.679317E-02   2.817103E-02 \r\n0      57                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -3.447015E-03  -8.505806E-04   4.358041E-02    46.7048    1.968004E-02   -2.397764E-02   4.365768E-02 \r\n0      58                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -2.213120E-03  -5.461071E-04   5.491451E-02    45.8694    2.609029E-02   -2.884951E-02   5.493980E-02 \r\n0      59                      0.0            0.0            0.0              0.0       0.0             0.0            0.0          \r\n                              -7.625768E-04  -1.881756E-04   6.087321E-02    45.2703    2.996258E-02   -3.091334E-02   6.087592E-02 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT           \r\n DATE:  5/17/95\r\n END TIME: 15: 2:33\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01121a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01121A,NASTRAN                                                           \r\n     TIME  30                                                                        \r\n     APP   HEAT                                                                      \r\n     SOL   1,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                          \r\n                  3      LABEL    = SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                          \r\n                  4      OLOAD    = ALL                                                                  \r\n                  5      SPCFORCES= ALL                                                                  \r\n                  6      THERMAL(PRINT,PUNCH) = ALL                                                      \r\n                  7      ELFORCE  = ALL                                                                  \r\n                  8      SUBCASE 123                                                                     \r\n                  9      LABEL    = TEMPERATURE SPECIFIED AT OUTER BOUNDARY                              \r\n                 10      SPC  = 351                                                                      \r\n                 11      LOAD = 251                                                                      \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    86, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHBDY   701     702     AREA4   1       12      112     101                     \r\n                    2-        CHEXA1  1       200     1       2       13      12      101     102     +SOL1   \r\n                    3-        +SOL1   113     112                                                             \r\n                    4-        CHEXA2  2       200     2       3       14      13      102     103     +SOL2   \r\n                    5-        +SOL2   114     113                                                             \r\n                    6-        CORD2C  111     0       .0      .0      .0      .0      .0      100.0   +CORD111\r\n                    7-        +CORD111100.0   .0      .0                                                      \r\n                    8-        CTETRA  3       200     104     114     3       103                             \r\n                    9-        CTETRA  4       200     104     15      4       3                               \r\n                   10-        CTETRA  5       200     115     15      104     114                             \r\n                   11-        CTETRA  6       200     15      14      3       114                             \r\n                   12-        CTETRA  7       200     114     104     3       15                              \r\n                   13-        CWEDGE  8       200     4       5       15      104     105     115             \r\n                   14-        CWEDGE  9       200     5       16      15      105     116     115             \r\n                   15-        CWEDGE  10      200     5       6       16      105     106     116             \r\n                   16-        CWEDGE  11      200     6       17      16      106     117     116             \r\n                   17-        CWEDGE  12      200     6       7       17      106     107     117             \r\n                   18-        CWEDGE  13      200     7       18      17      107     118     117             \r\n                   19-        CWEDGE  14      200     7       8       18      107     108     118             \r\n                   20-        CWEDGE  15      200     8       19      18      108     119     118             \r\n                   21-        CWEDGE  16      200     8       9       19      108     109     119             \r\n                   22-        CWEDGE  17      200     9       20      19      109     120     119             \r\n                   23-        CWEDGE  18      200     9       10      20      109     110     120             \r\n                   24-        CWEDGE  19      200     10      21      20      110     121     120             \r\n                   25-        CWEDGE  20      200     10      11      21      110     111     121             \r\n                   26-        CWEDGE  21      200     11      22      21      111     122     121             \r\n                   27-        GRDSET                                          111                             \r\n                   28-        GRID    1       111     1.0     .0      .0                                      \r\n                   29-        GRID    2       111     1.1     .0      .0                                      \r\n                   30-        GRID    3       111     1.2     .0      .0                                      \r\n                   31-        GRID    4       111     1.3     .0      .0                                      \r\n                   32-        GRID    5       111     1.4     .0      .0                                      \r\n                   33-        GRID    6       111     1.5     .0      .0                                      \r\n                   34-        GRID    7       111     1.6     .0      .0                                      \r\n                   35-        GRID    8       111     1.7     .0      .0                                      \r\n                   36-        GRID    9       111     1.8     .0      .0                                      \r\n                   37-        GRID    10      111     1.9     .0      .0                                      \r\n                   38-        GRID    11      111     2.0     .0      .0                                      \r\n                   39-        GRID    12      111     1.0     4.0     .0                                      \r\n                   40-        GRID    13      111     1.1     4.0     .0                                      \r\n                   41-        GRID    14      111     1.2     4.0     .0                                      \r\n                   42-        GRID    15      111     1.3     4.0     .0                                      \r\n                   43-        GRID    16      111     1.4     4.0     .0                                      \r\n                   44-        GRID    17      111     1.5     4.0     .0                                      \r\n                   45-        GRID    18      111     1.6     4.0     .0                                      \r\n                   46-        GRID    19      111     1.7     4.0     .0                                      \r\n                   47-        GRID    20      111     1.8     4.0     .0                                      \r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n\r\n      SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    21      111     1.9     4.0     .0                                      \r\n                   49-        GRID    22      111     2.0     4.0     .0                                      \r\n                   50-        GRID    101     111     1.0     .0      1.0-1                                   \r\n                   51-        GRID    102     111     1.1     .0      1.0-1                                   \r\n                   52-        GRID    103     111     1.2     .0      1.0-1                                   \r\n                   53-        GRID    104     111     1.3     .0      1.0-1                                   \r\n                   54-        GRID    105     111     1.4     .0      1.0-1                                   \r\n                   55-        GRID    106     111     1.5     .0      1.0-1                                   \r\n                   56-        GRID    107     111     1.6     .0      1.0-1                                   \r\n                   57-        GRID    108     111     1.7     .0      1.0-1                                   \r\n                   58-        GRID    109     111     1.8     .0      1.0-1                                   \r\n                   59-        GRID    110     111     1.9     .0      1.0-1                                   \r\n                   60-        GRID    111     111     2.0     .0      1.0-1                                   \r\n                   61-        GRID    112     111     1.0     4.0     1.0-1                                   \r\n                   62-        GRID    113     111     1.1     4.0     1.0-1                                   \r\n                   63-        GRID    114     111     1.2     4.0     1.0-1                                   \r\n                   64-        GRID    115     111     1.3     4.0     1.0-1                                   \r\n                   65-        GRID    116     111     1.4     4.0     1.0-1                                   \r\n                   66-        GRID    117     111     1.5     4.0     1.0-1                                   \r\n                   67-        GRID    118     111     1.6     4.0     1.0-1                                   \r\n                   68-        GRID    119     111     1.7     4.0     1.0-1                                   \r\n                   69-        GRID    120     111     1.8     4.0     1.0-1                                   \r\n                   70-        GRID    121     111     1.9     4.0     1.0-1                                   \r\n                   71-        GRID    122     111     2.0     4.0     1.0-1                                   \r\n                   72-        MAT4    200     1.0                                                             \r\n                   73-        PARAM   IRES    1                                                               \r\n                   74-        PHBDY   702                                                                     \r\n                   75-        QBDY1   251     288.5   701                                                     \r\n                   76-        SEQGP   12      1.1     13      2.1     14      3.1     15      4.1             \r\n                   77-        SEQGP   16      5.1     17      6.1     18      7.1     19      8.1             \r\n                   78-        SEQGP   20      9.1     21      10.1    22      11.1                            \r\n                   79-        SEQGP   101     1.2     102     2.2     103     3.2     104     4.2             \r\n                   80-        SEQGP   105     5.2     106     6.2     107     7.2     108     8.2             \r\n                   81-        SEQGP   109     9.2     110     10.2    111     11.2                            \r\n                   82-        SEQGP   112     1.3     113     2.3     114     3.3     115     4.3             \r\n                   83-        SEQGP   116     5.3     117     6.3     118     7.3     119     8.3             \r\n                   84-        SEQGP   120     9.3     121     10.3    122     11.3                            \r\n                   85-        SPC     351     11      1       .0      22      1       .0                      \r\n                   86-        SPC     351     111     1       .0      122     1       .0                      \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n\r\n      SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                                                                                   \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HBDY     ELEMENTS (ELEMENT TYPE  52) STARTING WITH ID      701\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA1    ELEMENTS (ELEMENT TYPE  41) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA2    ELEMENTS (ELEMENT TYPE  42) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TETRA    ELEMENTS (ELEMENT TYPE  39) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION WEDGE    ELEMENTS (ELEMENT TYPE  40) STARTING WITH ID        8\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -4.4266622E-16\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                                                                                   \r\n0                HRULV                                                                                                              \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- S).\r\n             1  S -3.33067E-16       12  S -4.44089E-16      101  S -8.88178E-16      112  S  2.66454E-15        2  S -6.24500E-15\r\n            13  S -9.71445E-16      102  S  6.66134E-16      113  S  1.55431E-15        3  S -2.22045E-15       14  S  2.44249E-15\r\n           103  S -2.22045E-16      114  S -1.55431E-15        4  S -3.40006E-16       15  S -1.21431E-15      104  S  1.33227E-15\r\n           115  S  1.33227E-15        5  S  1.49837E-15       16  S -7.56339E-16      105  S  4.44089E-16      116  S  1.33227E-15\r\n             6  S  1.45717E-15       17  S  1.67227E-15      106  S  2.44249E-15      117  S -4.44089E-16        7  S  6.38378E-16\r\n            18  S -2.72699E-15      107  S -8.88178E-16      118  S  2.22045E-16        8  S  5.55112E-17       19  S  5.89806E-16\r\n           108  S -4.44089E-16        9  S  3.08781E-16       20  S  1.30798E-15      109  S  5.55112E-17      120  S  3.88578E-16\r\n            10  S -4.99600E-16       21  S  6.66134E-16      110  S -2.22045E-16      121  S -4.44089E-16\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      1.994187E+02   1.718267E+02   1.467834E+02   1.231581E+02   1.027777E+02   8.292779E+01                  \r\n             7      S      6.432259E+01   4.684700E+01   3.037104E+01   1.478588E+01   0.0            2.034128E+02                  \r\n            13      S      1.740188E+02   1.488803E+02   1.248486E+02   1.028775E+02   8.293189E+01   6.432233E+01                  \r\n            19      S      4.684689E+01   3.037100E+01   1.478588E+01   0.0                                                         \r\n           101      S      2.034151E+02   1.740255E+02   1.489236E+02   1.251343E+02   1.028302E+02   8.291599E+01                  \r\n           107      S      6.431886E+01   4.684620E+01   3.037088E+01   1.478585E+01   0.0            1.994211E+02                  \r\n           113      S      1.718352E+02   1.468322E+02   1.235158E+02   1.027420E+02   8.291391E+01   6.431948E+01                  \r\n           119      S      4.684640E+01   3.037092E+01   1.478586E+01   0.0                                                         \r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      5.034252E-01                                                                                             \r\n            12      S      5.034252E-01                                                                                             \r\n           101      S      5.034252E-01                                                                                             \r\n           112      S      5.034252E-01                                                                                             \r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n            11      S     -5.034260E-01                                                                                             \r\n            22      S     -5.034252E-01                                                                                             \r\n           111      S     -5.034248E-01                                                                                             \r\n           122      S     -5.034248E-01                                                                                             \r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n           701    HBDY         0.000000E+00                                       0.000000E+00\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    HEXA1       -2.791185E+02    -9.747375E+00     4.882812E-02     2.791185E+02     9.747375E+00    -4.882812E-02\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    HEXA2       -2.507174E+02    -8.732483E+00     2.664185E-01     2.507174E+02     8.732483E+00    -2.664185E-01\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             3    TETRA       -2.378942E+02    -3.329272E+01     2.140247E+01     2.378942E+02     3.329272E+01    -2.140247E+01\r\n             4    TETRA       -2.362532E+02     1.039120E+01     1.976148E+01     2.362532E+02    -1.039120E+01    -1.976148E+01\r\n             5    TETRA       -2.319188E+02    -2.594576E+01    -1.332739E+01     2.319188E+02     2.594576E+01     1.332739E+01\r\n             6    TETRA       -2.420652E+02     1.659753E+01    -2.048145E+01     2.420652E+02    -1.659753E+01     2.048145E+01\r\n             7    TETRA       -2.181166E+02    -8.975220E+00     1.624939E+00     2.181166E+02     8.975220E+00    -1.624939E+00\r\n1     LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                                                                                   \r\n0     TEMPERATURE SPECIFIED AT OUTER BOUNDARY                                                                SUBCASE 123            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    WEDGE       -2.102163E+02    -5.954407E+00     2.319763E+00     2.102163E+02     5.954407E+00    -2.319763E+00\r\n             9    WEDGE       -2.117557E+02    -7.014702E+00    -4.718903E+00     2.117557E+02     7.014702E+00     4.718903E+00\r\n            10    WEDGE       -1.987133E+02    -6.981262E+00    -3.157349E-01     1.987133E+02     6.981262E+00     3.157349E-01\r\n            11    WEDGE       -1.986737E+02    -6.918308E+00    -5.507812E-01     1.986737E+02     6.918308E+00     5.507812E-01\r\n            12    WEDGE       -1.860250E+02    -6.521973E+00    -1.117554E-01     1.860250E+02     6.521973E+00     1.117554E-01\r\n            13    WEDGE       -1.859946E+02    -6.494610E+00    -8.190918E-02     1.859946E+02     6.494610E+00     8.190918E-02\r\n            14    WEDGE       -1.747461E+02    -6.107910E+00    -2.462769E-02     1.747461E+02     6.107910E+00     2.462769E-02\r\n            15    WEDGE       -1.747388E+02    -6.102112E+00    -1.379395E-02     1.747388E+02     6.102112E+00     1.379395E-02\r\n            16    WEDGE       -1.647576E+02    -5.754456E+00    -4.837036E-03     1.647576E+02     5.754456E+00     4.837036E-03\r\n            17    WEDGE       -1.647562E+02    -5.753418E+00    -2.456665E-03     1.647562E+02     5.753418E+00     2.456665E-03\r\n            18    WEDGE       -1.558512E+02    -5.442581E+00    -9.078979E-04     1.558512E+02     5.442581E+00     9.078979E-04\r\n            19    WEDGE       -1.558509E+02    -5.442414E+00    -4.425049E-04     1.558509E+02     5.442414E+00     4.425049E-04\r\n            20    WEDGE       -1.478587E+02    -5.163376E+00    -1.411438E-04     1.478587E+02     5.163376E+00     1.411438E-04\r\n            21    WEDGE       -1.478586E+02    -5.163278E+00    -4.959106E-05     1.478586E+02     5.163278E+00     4.959106E-05\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER               \r\n DATE:  5/17/95\r\n END TIME: 15: 3:11\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01122a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01122A,NASTRAN                                                           \r\n     APP   HEAT                                                                      \r\n     DIAG  14                                                                        \r\n     SOL   1,0                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                      \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                          \r\n                  3      LABEL    = RING ELEMENTS, FILM HEAT TRANSFER                                    \r\n                  4      OUTPUT                                                                          \r\n                  5      OLOAD    = ALL                                                                  \r\n                  6      SPCFORCE = ALL                                                                  \r\n                  7      THERMAL (PRINT,PUNCH) = ALL                                                     \r\n                  8      ELFORCE  = ALL                                                                  \r\n                  9      SPC = 350                                                                       \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    48, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHBDY   14      100     REV     1       12                              +HBDY14 \r\n                    2-        +HBDY14 23      23                                                              \r\n                    3-        CTRAPRG 7       4       5       16      15      .0      200                     \r\n                    4-        CTRAPRG 8       5       6       17      16      .0      200                     \r\n                    5-        CTRAPRG 9       6       7       18      17      .0      200                     \r\n                    6-        CTRAPRG 10      7       8       19      18      .0      200                     \r\n                    7-        CTRAPRG 11      8       9       20      19      .0      200                     \r\n                    8-        CTRAPRG 12      9       10      21      20      .0      200                     \r\n                    9-        CTRAPRG 13      10      11      22      21      .0      200                     \r\n                   10-        CTRIARG 1       1       13      12      -45.0   200                             \r\n                   11-        CTRIARG 2       1       2       13      .0      200                             \r\n                   12-        CTRIARG 3       2       14      13      -45.0   200                             \r\n                   13-        CTRIARG 4       2       3       14      .0      200                             \r\n                   14-        CTRIARG 5       3       15      14      -45.0   200                             \r\n                   15-        CTRIARG 6       3       4       15      .0      200                             \r\n                   16-        GRID    1               1.0     .0      .0                                      \r\n                   17-        GRID    2               1.1     .0      .0                                      \r\n                   18-        GRID    3               1.2     .0      .0                                      \r\n                   19-        GRID    4               1.3     .0      .0                                      \r\n                   20-        GRID    5               1.4     .0      .0                                      \r\n                   21-        GRID    6               1.5     .0      .0                                      \r\n                   22-        GRID    7               1.6     .0      .0                                      \r\n                   23-        GRID    8               1.7     .0      .0                                      \r\n                   24-        GRID    9               1.8     .0      .0                                      \r\n                   25-        GRID    10              1.9     .0      .0                                      \r\n                   26-        GRID    11              2.0     .0      .0                                      \r\n                   27-        GRID    12              1.0     .0      .1                                      \r\n                   28-        GRID    13              1.1     .0      .1                                      \r\n                   29-        GRID    14              1.2     .0      .1                                      \r\n                   30-        GRID    15              1.3     .0      .1                                      \r\n                   31-        GRID    16              1.4     .0      .1                                      \r\n                   32-        GRID    17              1.5     .0      .1                                      \r\n                   33-        GRID    18              1.6     .0      .1                                      \r\n                   34-        GRID    19              1.7     .0      .1                                      \r\n                   35-        GRID    20              1.8     .0      .1                                      \r\n                   36-        GRID    21              1.9     .0      .1                                      \r\n                   37-        GRID    22              2.0     .0      .1                                      \r\n                   38-        MAT4    200     1.0                                                             \r\n                   39-        MAT4    300     1.0                                                             \r\n                   40-        PHBDY   100     300                                                             \r\n                   41-        SEQGP   12      1.1     13      2.1     14      3.1     15      4.1             \r\n                   42-        SEQGP   16      5.1     17      6.1     18      7.1     19      8.1             \r\n                   43-        SEQGP   20      9.1     21      10.1    22      11.1    23      1.0.5           \r\n                   44-        SPC     352     23              488.5                                           \r\n                   45-        SPC1    351     1       11      22                                              \r\n                   46-        SPCADD  350     351     352                                                     \r\n                   47-        SPOINT  23                                                                      \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        TEMPD   201     .0                                                              \r\n                              ENDDATA\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $          \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $        \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/       \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $                      \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/    \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ \r\n                   HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    HP1 $                                                          \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $                          \r\n\r\n      22  TA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/    \r\n                   HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $                         \r\n\r\n      23  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      24  COND     ERROR4,NOELMT $                                                \r\n\r\n      25  PURGE    HKGGX/NOSIMP $                                                 \r\n\r\n      26  COND     HLBL1,NOSIMP $                                                 \r\n\r\n      27  PARAM    //*ADD*/HNOKGG/1/0 $                                           \r\n\r\n      28  EMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $        \r\n\r\n      29  PURGE    HKGGX/HNOKGG $                                                 \r\n\r\n      30  COND     HLBL1,HNOKGG $                                                 \r\n\r\n      31  EMA      HGPECT,HKDICT,HKELM/HKGGX $                                    \r\n\r\n      32  PURGE    HKDICT,HKELM/MINUS1 $                                          \r\n\r\n      33  LABEL    HLBL1 $                                                        \r\n\r\n      34  EQUIV    HKGGX,HKGG/NOGENL $                                            \r\n\r\n      35  COND     HLBL11A,NOGENL $                                               \r\n\r\n      36  SMA3     HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $                         \r\n\r\n      37  LABEL    HLBL11A $                                                      \r\n\r\n      38  GPSTGEN  HKGG,HSIL/GPST $                                               \r\n\r\n      39  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      40  LABEL    HLBL11 $                                                       \r\n\r\n      41  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET,          \r\n                   HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/    \r\n                   S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/     \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      43  COND     ERROR3,NOL $                                                   \r\n\r\n      44  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      45  PURGE    HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV,      \r\n                   HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $                     \r\n\r\n      46  EQUIV    HKGG,HKNN/MPCF1 $                                              \r\n\r\n      47  COND     HLBL2,MPCF1 $                                                  \r\n\r\n      48  MCE1     HUSET,RG/GM $                                                  \r\n\r\n      49  MCE2     HUSET,GM,HKGG,,,/HKNN,,, $                                     \r\n\r\n      50  LABEL    HLBL2 $                                                        \r\n\r\n      51  EQUIV    HKNN,HKFF/SINGLE $                                             \r\n\r\n      52  COND     HLBL3,SINGLE $                                                 \r\n\r\n      53  SCE1     HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $                              \r\n\r\n      54  LABEL    HLBL3 $                                                        \r\n\r\n      55  EQUIV    HKFF,HKAA/OMIT $                                               \r\n\r\n      56  COND     HLBL5,OMIT $                                                   \r\n\r\n      57  SMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $                        \r\n\r\n      58  LABEL    HLBL5 $                                                        \r\n\r\n      59  EQUIV    HKAA,HKLL/REACT $                                              \r\n\r\n      60  COND     HLBL6,REACT $                                                  \r\n\r\n      61  RBMG1    HUSET,HKAA,/HKLL,HKLR,HKRR,,, $                                \r\n\r\n      62  LABEL    HLBL6 $                                                        \r\n\r\n      63  RBMG2    HKLL/HLLL $                                                    \r\n\r\n      64  COND     HLBL7,REACT $                                                  \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      65  RBMG3    HLLL,HKLR,HKRR/HDM $                                           \r\n\r\n      66  LABEL    HLBL7 $                                                        \r\n\r\n      67  SSG1     HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/           \r\n                   HPG,,,,SCR/HLUSET/NSKIP $                                      \r\n\r\n      68  EQUIV    HPG,HPL/NOSET $                                                \r\n\r\n      69  COND     HLBL10,NOSET $                                                 \r\n\r\n      70  SSG2     HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $                 \r\n\r\n      71  LABEL    HLBL10 $                                                       \r\n\r\n      72  SSG3     HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/       \r\n                   V,Y,IRES=-1/NSKIP/S,N,EPSI $                                   \r\n\r\n      73  COND     HLBL9,IRES $                                                   \r\n\r\n      74  MATGPR   GPL,HUSET,HSIL,HRULV//*L* $                                    \r\n\r\n      75  MATGPR   GPL,HUSET,HSIL,HRUOV//*O* $                                    \r\n\r\n      76  LABEL    HLBL9 $                                                        \r\n\r\n      77  SDR1     HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG,    \r\n                   HQG/NSKIP/*HSTATICS* $                                         \r\n\r\n      78  COND     HLBL8,HREPEAT $                                                \r\n\r\n      79  REPT     HLBL11,100 $                                                   \r\n\r\n      80  JUMP     ERROR1 $                                                       \r\n\r\n      81  PARAM    //*NOT*/HTEST/HREPEAT $                                        \r\n\r\n      82  COND     ERROR2,HTEST $                                                 \r\n\r\n      83  LABEL    HLBL8 $                                                        \r\n\r\n      84  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV,      \r\n                   HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/           \r\n                   *STATICS* $                                                    \r\n\r\n      85  OFP      HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $                       \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  COND     HP2,JUMPPLOT $                                                 \r\n\r\n      87  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1,    \r\n                   HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/                 \r\n                   S,N,PFILE $                                                    \r\n\r\n      88  PRTMSG   PLOTX2// $                                                     \r\n\r\n      89  LABEL    HP2 $                                                          \r\n\r\n      90  JUMP     FINIS $                                                        \r\n\r\n      91  LABEL    ERROR1 $                                                       \r\n\r\n      92  PRTPARM  //-1/*HSTA* $                                                  \r\n\r\n      93  LABEL    ERROR2 $                                                       \r\n\r\n      94  PRTPARM  //-2/*HSTA* $                                                  \r\n\r\n      95  LABEL    ERROR3 $                                                       \r\n\r\n      96  PRTPARM  //-3/*HSTA* $                                                  \r\n\r\n      97  LABEL    ERROR4 $                                                       \r\n\r\n      98  PRTPARM  //-4/*HSTA* $                                                  \r\n\r\n      99  LABEL    FINIS $                                                        \r\n\r\n     100  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     101  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n\r\n      RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HBDY     ELEMENTS (ELEMENT TYPE  52) STARTING WITH ID       14\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG   ELEMENTS (ELEMENT TYPE  37) STARTING WITH ID        7\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIARG   ELEMENTS (ELEMENT TYPE  36) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -9.5293695E-16\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      1.997820E+02   1.724320E+02   1.473660E+02   1.243215E+02   1.029022E+02   8.299373E+01                  \r\n             7      S      6.437527E+01   4.688614E+01   3.039657E+01   1.479833E+01   0.0            2.000835E+02                  \r\n            13      S      1.724639E+02   1.473435E+02   1.242162E+02   1.028848E+02   8.299084E+01   6.437479E+01                  \r\n            19      S      4.688606E+01   3.039655E+01   1.479832E+01   0.0            4.885000E+02                                 \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n            11      S     -9.065610E+01                                                                                             \r\n            22      S     -9.065608E+01   1.813122E+02                                                                              \r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            14    HBDY        -2.885673E+02                                       1.813122E+02\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             7    TRAPRG      -2.137535E+02    -6.135254E-01                      2.137535E+02     6.135254E-01\r\n             8    TRAPRG      -1.990119E+02    -1.015015E-01                      1.990119E+02     1.015015E-01\r\n             9    TRAPRG      -1.861725E+02    -1.681519E-02                      1.861725E+02     1.681519E-02\r\n            10    TRAPRG      -1.748893E+02    -2.807617E-03                      1.748893E+02     2.807617E-03\r\n            11    TRAPRG      -1.648956E+02    -4.730225E-04                      1.648956E+02     4.730225E-04\r\n            12    TRAPRG      -1.559823E+02    -7.629395E-05                      1.559823E+02     7.629395E-05\r\n            13    TRAPRG      -1.479832E+02    -7.629395E-06                      1.479832E+02     7.629395E-06\r\n1     LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                       /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                                                                                   \r\n0     RING ELEMENTS, FILM HEAT TRANSFER                                                                                             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    TRIARG      -1.931675E+02     1.974312E+02                      1.931675E+02    -1.974312E+02\r\n             2    TRIARG      -2.734998E+02     3.195801E-01                      2.734998E+02    -3.195801E-01\r\n             3    TRIARG      -1.774022E+02     1.778540E+02                      1.774022E+02    -1.778540E+02\r\n             4    TRIARG      -2.506598E+02    -2.246094E-01                      2.506598E+02     2.246094E-01\r\n             5    TRIARG      -1.636938E+02     1.633762E+02                      1.636938E+02    -1.633762E+02\r\n             6    TRIARG      -2.304453E+02    -1.052856E+00                      2.304453E+02     1.052856E+00\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                    \r\n DATE:  5/17/95\r\n END TIME: 15: 3:44\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01131a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01131A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                          \r\n                  3      DISP  = ALL                                                                     \r\n                  4      STRESS= ALL                                                                     \r\n                  5      SPC   = 100                                                                     \r\n                  6      SUBCASE   1                                                                     \r\n                  7      LABEL = PRESSURE LOAD                                                           \r\n                  8      LOAD  = 400                                                                     \r\n                  9      SUBCASE   2                                                                     \r\n                 10      LABEL = THERMAL LOAD                                                            \r\n                 11      TEMP(LOAD) = 500                                                                \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   226, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CIHEX1  1       200     1       2       20      19      7       8       +HEX1-1 \r\n                    2-        +HEX1-1 26      25                                                              \r\n                    3-        CIHEX1  2       200     2       3       21      20      8       9       +HEX1-2 \r\n                    4-        +HEX1-2 27      26                                                              \r\n                    5-        CIHEX1  3       200     3       4       22      21      9       10      +HEX1-3 \r\n                    6-        +HEX1-3 28      27                                                              \r\n                    7-        CIHEX1  4       200     4       5       23      22      10      11      +HEX1-4 \r\n                    8-        +HEX1-4 29      28                                                              \r\n                    9-        CIHEX1  5       200     5       6       24      23      11      12      +HEX1-5 \r\n                   10-        +HEX1-5 30      29                                                              \r\n                   11-        CIHEX1  6       200     19      20      38      37      25      26      +HEX1-6 \r\n                   12-        +HEX1-6 44      43                                                              \r\n                   13-        CIHEX1  7       200     20      21      39      38      26      27      +HEX1-7 \r\n                   14-        +HEX1-7 45      44                                                              \r\n                   15-        CIHEX1  8       200     21      22      40      39      27      28      +HEX1-8 \r\n                   16-        +HEX1-8 46      45                                                              \r\n                   17-        CIHEX1  9       200     22      23      41      40      28      29      +HEX1-9 \r\n                   18-        +HEX1-9 47      46                                                              \r\n                   19-        CIHEX1  10      200     23      24      42      41      29      30      +HEX1-10\r\n                   20-        +HEX1-1048      47                                                              \r\n                   21-        CIHEX1  11      200     37      38      56      55      43      44      +HEX1-11\r\n                   22-        +HEX1-1162      61                                                              \r\n                   23-        CIHEX1  12      200     38      39      57      56      44      45      +HEX1-12\r\n                   24-        +HEX1-1263      62                                                              \r\n                   25-        CIHEX1  13      200     39      40      58      57      45      46      +HEX1-13\r\n                   26-        +HEX1-1364      63                                                              \r\n                   27-        CIHEX1  14      200     40      41      59      58      46      47      +HEX1-14\r\n                   28-        +HEX1-1465      64                                                              \r\n                   29-        CIHEX1  15      200     41      42      60      59      47      48      +HEX1-15\r\n                   30-        +HEX1-1566      65                                                              \r\n                   31-        CIHEX1  16      200     55      56      74      73      61      62      +HEX1-16\r\n                   32-        +HEX1-1680      79                                                              \r\n                   33-        CIHEX1  17      200     56      57      75      74      62      63      +HEX1-17\r\n                   34-        +HEX1-1781      80                                                              \r\n                   35-        CIHEX1  18      200     57      58      76      75      63      64      +HEX1-18\r\n                   36-        +HEX1-1882      81                                                              \r\n                   37-        CIHEX1  19      200     58      59      77      76      64      65      +HEX1-19\r\n                   38-        +HEX1-1983      82                                                              \r\n                   39-        CIHEX1  20      200     59      60      78      77      65      66      +HEX1-20\r\n                   40-        +HEX1-2084      83                                                              \r\n                   41-        CIHEX1  21      200     7       8       26      25      13      14      +HEX1-21\r\n                   42-        +HEX1-2132      31                                                              \r\n                   43-        CIHEX1  22      200     8       9       27      26      14      15      +HEX1-22\r\n                   44-        +HEX1-2233      32                                                              \r\n                   45-        CIHEX1  23      200     9       10      28      27      15      16      +HEX1-23\r\n                   46-        +HEX1-2334      33                                                              \r\n                   47-        CIHEX1  24      200     10      11      29      28      16      17      +HEX1-24\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +HEX1-2435      34                                                              \r\n                   49-        CIHEX1  25      200     11      12      30      29      17      18      +HEX1-25\r\n                   50-        +HEX1-2536      35                                                              \r\n                   51-        CIHEX1  26      200     25      26      44      43      31      32      +HEX1-26\r\n                   52-        +HEX1-2650      49                                                              \r\n                   53-        CIHEX1  27      200     26      27      45      44      32      33      +HEX1-27\r\n                   54-        +HEX1-2751      50                                                              \r\n                   55-        CIHEX1  28      200     27      28      46      45      33      34      +HEX1-28\r\n                   56-        +HEX1-2852      51                                                              \r\n                   57-        CIHEX1  29      200     28      29      47      46      34      35      +HEX1-29\r\n                   58-        +HEX1-2953      52                                                              \r\n                   59-        CIHEX1  30      200     29      30      48      47      35      36      +HEX1-30\r\n                   60-        +HEX1-3054      53                                                              \r\n                   61-        CIHEX1  31      200     43      44      62      61      49      50      +HEX1-31\r\n                   62-        +HEX1-3168      67                                                              \r\n                   63-        CIHEX1  32      200     44      45      63      62      50      51      +HEX1-32\r\n                   64-        +HEX1-3269      68                                                              \r\n                   65-        CIHEX1  33      200     45      46      64      63      51      52      +HEX1-33\r\n                   66-        +HEX1-3370      69                                                              \r\n                   67-        CIHEX1  34      200     46      47      65      64      52      53      +HEX1-34\r\n                   68-        +HEX1-3471      70                                                              \r\n                   69-        CIHEX1  35      200     47      48      66      65      53      54      +HEX1-35\r\n                   70-        +HEX1-3572      71                                                              \r\n                   71-        CIHEX1  36      200     61      62      80      79      67      68      +HEX1-36\r\n                   72-        +HEX1-3686      85                                                              \r\n                   73-        CIHEX1  37      200     62      63      81      80      68      69      +HEX1-37\r\n                   74-        +HEX1-3787      86                                                              \r\n                   75-        CIHEX1  38      200     63      64      82      81      69      70      +HEX1-38\r\n                   76-        +HEX1-3888      87                                                              \r\n                   77-        CIHEX1  39      200     64      65      83      82      70      71      +HEX1-39\r\n                   78-        +HEX1-3989      88                                                              \r\n                   79-        CIHEX1  40      200     65      66      84      83      71      72      +HEX1-40\r\n                   80-        +HEX1-4090      89                                                              \r\n                   81-        CNGRNT  1       6       11      16      21      26      31      36              \r\n                   82-        CNGRNT  2       7       12      17      22      27      32      37              \r\n                   83-        CNGRNT  3       8       13      18      23      28      33      38              \r\n                   84-        CNGRNT  4       9       14      19      24      29      34      39              \r\n                   85-        CNGRNT  5       10      15      20      25      30      35      40              \r\n                   86-        CORD2C  1       0       .0      .0      .0      .0      .0      100.0   +CORD2-1\r\n                   87-        +CORD2-1100.0   .0      .0                                                      \r\n                   88-        CORD2C  2               .0      .0      .5      .0      .0      100.0   +CORD2-2\r\n                   89-        +CORD2-2100.0   .0      2.0                                                     \r\n                   90-        CORD2C  3               .0      .0      1.0     .0      .0      100.0   +CORD2-3\r\n                   91-        +CORD2-3100.0   .0      2.0                                                     \r\n                   92-        GRDSET          1                               1       456                     \r\n                   93-        GRID    1               4.0     -14.0                                           \r\n                   94-        GRID    2               4.2     -14.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    3               4.4     -14.0                                           \r\n                   96-        GRID    4               4.6     -14.0                                           \r\n                   97-        GRID    5               4.8     -14.0                                           \r\n                   98-        GRID    6               5.0     -14.0                                           \r\n                   99-        GRID    7       2       4.0     -14.0           2                               \r\n                  100-        GRID    8       2       4.2     -14.0           2                               \r\n                  101-        GRID    9       2       4.4     -14.0           2                               \r\n                  102-        GRID    10      2       4.6     -14.0           2                               \r\n                  103-        GRID    11      2       4.8     -14.0           2                               \r\n                  104-        GRID    12      2       5.0     -14.0           2                               \r\n                  105-        GRID    13      3       4.0     -14.0           3                               \r\n                  106-        GRID    14      3       4.2     -14.0           3                               \r\n                  107-        GRID    15      3       4.4     -14.0           3                               \r\n                  108-        GRID    16      3       4.6     -14.0           3                               \r\n                  109-        GRID    17      3       4.8     -14.0           3                               \r\n                  110-        GRID    18      3       5.0     -14.0           3                               \r\n                  111-        GRID    19              4.0     -7.0                                            \r\n                  112-        GRID    20              4.2     -7.0                                            \r\n                  113-        GRID    21              4.4     -7.0                                            \r\n                  114-        GRID    22              4.6     -7.0                                            \r\n                  115-        GRID    23              4.8     -7.0                                            \r\n                  116-        GRID    24              5.0     -7.0                                            \r\n                  117-        GRID    25      2       4.0     -7.0            2                               \r\n                  118-        GRID    26      2       4.2     -7.0            2                               \r\n                  119-        GRID    27      2       4.4     -7.0            2                               \r\n                  120-        GRID    28      2       4.6     -7.0            2                               \r\n                  121-        GRID    29      2       4.8     -7.0            2                               \r\n                  122-        GRID    30      2       5.0     -7.0            2                               \r\n                  123-        GRID    31      3       4.0     -7.0            3                               \r\n                  124-        GRID    32      3       4.2     -7.0            3                               \r\n                  125-        GRID    33      3       4.4     -7.0            3                               \r\n                  126-        GRID    34      3       4.6     -7.0            3                               \r\n                  127-        GRID    35      3       4.8     -7.0            3                               \r\n                  128-        GRID    36      3       5.0     -7.0            3                               \r\n                  129-        GRID    37              4.0                                                     \r\n                  130-        GRID    38              4.2                                                     \r\n                  131-        GRID    39              4.4                                                     \r\n                  132-        GRID    40              4.6                                                     \r\n                  133-        GRID    41              4.8                                                     \r\n                  134-        GRID    42              5.0                                                     \r\n                  135-        GRID    43      2       4.0                     2                               \r\n                  136-        GRID    44      2       4.2                     2                               \r\n                  137-        GRID    45      2       4.4                     2                               \r\n                  138-        GRID    46      2       4.6                     2                               \r\n                  139-        GRID    47      2       4.8                     2                               \r\n                  140-        GRID    48      2       5.0                     2                               \r\n                  141-        GRID    49      3       4.0                     3                               \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    50      3       4.2                     3                               \r\n                  143-        GRID    51      3       4.4                     3                               \r\n                  144-        GRID    52      3       4.6                     3                               \r\n                  145-        GRID    53      3       4.8                     3                               \r\n                  146-        GRID    54      3       5.0                     3                               \r\n                  147-        GRID    55              4.0     7.0                                             \r\n                  148-        GRID    56              4.2     7.0                                             \r\n                  149-        GRID    57              4.4     7.0                                             \r\n                  150-        GRID    58              4.6     7.0                                             \r\n                  151-        GRID    59              4.8     7.0                                             \r\n                  152-        GRID    60              5.0     7.0                                             \r\n                  153-        GRID    61      2       4.0     7.0             2                               \r\n                  154-        GRID    62      2       4.2     7.0             2                               \r\n                  155-        GRID    63      2       4.4     7.0             2                               \r\n                  156-        GRID    64      2       4.6     7.0             2                               \r\n                  157-        GRID    65      2       4.8     7.0             2                               \r\n                  158-        GRID    66      2       5.0     7.0             2                               \r\n                  159-        GRID    67      3       4.0     7.0             3                               \r\n                  160-        GRID    68      3       4.2     7.0             3                               \r\n                  161-        GRID    69      3       4.4     7.0             3                               \r\n                  162-        GRID    70      3       4.6     7.0             3                               \r\n                  163-        GRID    71      3       4.8     7.0             3                               \r\n                  164-        GRID    72      3       5.0     7.0             3                               \r\n                  165-        GRID    73              4.0     14.0                                            \r\n                  166-        GRID    74              4.2     14.0                                            \r\n                  167-        GRID    75              4.4     14.0                                            \r\n                  168-        GRID    76              4.6     14.0                                            \r\n                  169-        GRID    77              4.8     14.0                                            \r\n                  170-        GRID    78              5.0     14.0                                            \r\n                  171-        GRID    79      2       4.0     14.0            2                               \r\n                  172-        GRID    80      2       4.2     14.0            2                               \r\n                  173-        GRID    81      2       4.4     14.0            2                               \r\n                  174-        GRID    82      2       4.6     14.0            2                               \r\n                  175-        GRID    83      2       4.8     14.0            2                               \r\n                  176-        GRID    84      2       5.0     14.0            2                               \r\n                  177-        GRID    85      3       4.0     14.0            3                               \r\n                  178-        GRID    86      3       4.2     14.0            3                               \r\n                  179-        GRID    87      3       4.4     14.0            3                               \r\n                  180-        GRID    88      3       4.6     14.0            3                               \r\n                  181-        GRID    89      3       4.8     14.0            3                               \r\n                  182-        GRID    90      3       5.0     14.0            3                               \r\n                  183-        MAT1    300     3.+7            .3      7.535-4 1.428-5 .0                      \r\n                  184-        PIHEX   200     300             4       4.5     10.0                            \r\n                  185-        PLOAD3  400     -10.0   1       1       25      21      7       31              \r\n                  186-        PLOAD3  400     -10.0   6       19      43      26      25      49              \r\n                  187-        PLOAD3  400     -10.0   11      37      61      31      43      67              \r\n                  188-        PLOAD3  400     -10.0   16      55      79      36      61      85              \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        SPC1    100     2       1       THRU    18                                      \r\n                  190-        SPC1    100     2       73      THRU    90                                      \r\n                  191-        SPC1    100     3       1       THRU    6                                       \r\n                  192-        SPC1    100     3       13      THRU    18                                      \r\n                  193-        SPC1    100     3       19      THRU    24                                      \r\n                  194-        SPC1    100     3       31      THRU    36                                      \r\n                  195-        SPC1    100     3       37      THRU    42                                      \r\n                  196-        SPC1    100     3       49      THRU    54                                      \r\n                  197-        SPC1    100     3       55      THRU    60                                      \r\n                  198-        SPC1    100     3       67      THRU    72                                      \r\n                  199-        SPC1    100     3       73      THRU    78                                      \r\n                  200-        SPC1    100     3       85      THRU    90                                      \r\n                  201-        TEMP    500     1       100.0   7       100.0   13      100.0                   \r\n                  202-        TEMP    500     2       78.14   8       78.14   14      78.14                   \r\n                  203-        TEMP    500     3       57.29   9       57.29   15      57.29                   \r\n                  204-        TEMP    500     4       37.37   10      37.37   16      37.37                   \r\n                  205-        TEMP    500     5       18.29   11      18.29   17      18.29                   \r\n                  206-        TEMP    500     19      100.0   25      100.0   31      100.0                   \r\n                  207-        TEMP    500     20      78.14   26      78.14   32      78.14                   \r\n                  208-        TEMP    500     21      57.29   27      57.29   33      57.29                   \r\n                  209-        TEMP    500     22      37.37   28      37.37   34      37.37                   \r\n                  210-        TEMP    500     23      18.29   29      18.29   35      18.29                   \r\n                  211-        TEMP    500     37      100.0   43      100.0   49      100.0                   \r\n                  212-        TEMP    500     38      78.14   44      78.14   50      78.14                   \r\n                  213-        TEMP    500     39      57.29   45      57.29   51      57.29                   \r\n                  214-        TEMP    500     40      37.37   46      37.37   52      37.37                   \r\n                  215-        TEMP    500     41      18.29   47      18.29   53      18.29                   \r\n                  216-        TEMP    500     55      100.0   61      100.0   67      100.0                   \r\n                  217-        TEMP    500     56      78.14   62      78.14   68      78.14                   \r\n                  218-        TEMP    500     57      57.29   63      57.29   69      57.29                   \r\n                  219-        TEMP    500     58      37.37   64      37.37   70      37.37                   \r\n                  220-        TEMP    500     59      18.29   65      18.29   71      18.29                   \r\n                  221-        TEMP    500     73      100.0   79      100.0   85      100.0                   \r\n                  222-        TEMP    500     74      78.14   80      78.14   86      78.14                   \r\n                  223-        TEMP    500     75      57.29   81      57.29   87      57.29                   \r\n                  224-        TEMP    500     76      37.37   82      37.37   88      37.37                   \r\n                  225-        TEMP    500     77      18.29   83      18.29   89      18.29                   \r\n                  226-        TEMPD   500     .0                                                              \r\n                              ENDDATA\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           26\r\n                                        PROFILE           1821\r\n                                        MAX WAVEFRONT       26\r\n                                        AVG WAVEFRONT   20.233\r\n                                        RMS WAVEFRONT   21.286\r\n                                        RMS BANDWIDTH   21.665\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           31\r\n                                        PROFILE           1520\r\n                                        MAX WAVEFRONT       24\r\n                                        AVG WAVEFRONT   16.889\r\n                                        RMS WAVEFRONT   17.667\r\n                                        RMS BANDWIDTH   18.966\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       26        31\r\n                                        PROFILE (P)                       1821      1520\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           26        24\r\n                                        AVERAGE WAVEFRONT (C-AVG)       20.233    16.889\r\n                                        RMS WAVEFRONT (C-RMS)           21.286    17.667\r\n                                        RMS BANDWITCH (B-RMS)           21.665    18.966\r\n                                        NUMBER OF GRID POINTS (N)                     90\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                40\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          26\r\n                                        MINIMUM NODAL DEGREE                           7\r\n                                        NUMBER OF UNIQUE EDGES                       683\r\n                                        MATRIX DENSITY, PERCENT                   17.975\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  23\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2      16       3      31       4      55\r\n                         SEQGP          5      79       6      89       7       3       8      18\r\n                         SEQGP          9      33      10      57      11      81      12      87\r\n                         SEQGP         13       7      14      22      15      37      16      61\r\n                         SEQGP         17      73      18      77      19       2      20      17\r\n                         SEQGP         21      32      22      56      23      80      24      90\r\n                         SEQGP         25       4      26      19      27      34      28      58\r\n                         SEQGP         29      82      30      88      31       8      32      23\r\n                         SEQGP         33      38      34      62      35      74      36      78\r\n                         SEQGP         37       5      38      20      39      35      40      59\r\n                         SEQGP         41      83      42      85      43       6      44      21\r\n                         SEQGP         45      36      46      60      47      84      48      86\r\n                         SEQGP         49       9      50      24      51      39      52      63\r\n                         SEQGP         53      75      54      76      55      10      56      25\r\n                         SEQGP         57      40      58      64      59      67      60      70\r\n                         SEQGP         61      11      62      26      63      41      64      65\r\n                         SEQGP         65      68      66      71      67      12      68      27\r\n                         SEQGP         69      42      70      66      71      69      72      72\r\n                         SEQGP         73      13      74      28      75      43      76      46\r\n                         SEQGP         77      49      78      52      79      14      80      29\r\n                         SEQGP         81      44      82      47      83      50      84      53\r\n                         SEQGP         85      15      86      30      87      45      88      48\r\n                         SEQGP         89      51      90      54\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IHEX1    ELEMENTS (ELEMENT TYPE  65) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   3.9791579E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   5.8231368E-15\r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.038542E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      5.871330E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      5.724914E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.596584E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      5.484078E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      5.385500E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      6.038542E-06   0.0           -7.676236E-21   0.0            0.0            0.0                           \r\n             8      G      5.871330E-06   0.0           -1.849576E-21   0.0            0.0            0.0                           \r\n             9      G      5.724914E-06   0.0            7.411538E-22   0.0            0.0            0.0                           \r\n            10      G      5.596584E-06   0.0            1.164670E-21   0.0            0.0            0.0                           \r\n            11      G      5.484078E-06   0.0            1.852885E-21   0.0            0.0            0.0                           \r\n            12      G      5.385500E-06   0.0            4.923379E-21   0.0            0.0            0.0                           \r\n            13      G      6.038542E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      5.871330E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      5.724914E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            16      G      5.596584E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      5.484078E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      5.385500E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      6.038542E-06   8.933220E-13   0.0            0.0            0.0            0.0                           \r\n            20      G      5.871330E-06   4.705834E-13   0.0            0.0            0.0            0.0                           \r\n            21      G      5.724914E-06   2.134534E-13   0.0            0.0            0.0            0.0                           \r\n            22      G      5.596584E-06  -5.668907E-14   0.0            0.0            0.0            0.0                           \r\n            23      G      5.484079E-06  -3.613600E-13   0.0            0.0            0.0            0.0                           \r\n            24      G      5.385500E-06  -4.895789E-13   0.0            0.0            0.0            0.0                           \r\n            25      G      6.038542E-06   8.934489E-13  -6.246868E-21   0.0            0.0            0.0                           \r\n            26      G      5.871330E-06   4.701660E-13  -8.544776E-22   0.0            0.0            0.0                           \r\n            27      G      5.724914E-06   2.134116E-13   1.058791E-21   0.0            0.0            0.0                           \r\n            28      G      5.596584E-06  -5.666530E-14   1.376429E-21   0.0            0.0            0.0                           \r\n            29      G      5.484079E-06  -3.613338E-13   1.545173E-21   0.0            0.0            0.0                           \r\n            30      G      5.385500E-06  -4.895537E-13   2.514629E-21   0.0            0.0            0.0                           \r\n            31      G      6.038542E-06   8.933220E-13   0.0            0.0            0.0            0.0                           \r\n            32      G      5.871330E-06   4.705834E-13   0.0            0.0            0.0            0.0                           \r\n            33      G      5.724914E-06   2.134534E-13   0.0            0.0            0.0            0.0                           \r\n            34      G      5.596584E-06  -5.668907E-14   0.0            0.0            0.0            0.0                           \r\n            35      G      5.484079E-06  -3.613600E-13   0.0            0.0            0.0            0.0                           \r\n            36      G      5.385500E-06  -4.895789E-13   0.0            0.0            0.0            0.0                           \r\n            37      G      6.038543E-06   1.142353E-12   0.0            0.0            0.0            0.0                           \r\n            38      G      5.871331E-06   6.627584E-13   0.0            0.0            0.0            0.0                           \r\n            39      G      5.724915E-06   2.951181E-13   0.0            0.0            0.0            0.0                           \r\n            40      G      5.596585E-06  -6.413380E-14   0.0            0.0            0.0            0.0                           \r\n            41      G      5.484080E-06  -4.356640E-13   0.0            0.0            0.0            0.0                           \r\n            42      G      5.385501E-06  -6.865234E-13   0.0            0.0            0.0            0.0                           \r\n            43      G      6.038543E-06   1.142105E-12  -5.717472E-21   0.0            0.0            0.0                           \r\n            44      G      5.871331E-06   6.646716E-13  -1.301982E-21   0.0            0.0            0.0                           \r\n            45      G      5.724915E-06   2.959968E-13   4.235165E-22   0.0            0.0            0.0                           \r\n            46      G      5.596585E-06  -6.377743E-14   1.482308E-21   0.0            0.0            0.0                           \r\n            47      G      5.484080E-06  -4.355240E-13   1.932294E-21   0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G      5.385501E-06  -6.863851E-13   3.122607E-21   0.0            0.0            0.0                           \r\n            49      G      6.038543E-06   1.142353E-12   0.0            0.0            0.0            0.0                           \r\n            50      G      5.871331E-06   6.627584E-13   0.0            0.0            0.0            0.0                           \r\n            51      G      5.724915E-06   2.951181E-13   0.0            0.0            0.0            0.0                           \r\n            52      G      5.596585E-06  -6.413380E-14   0.0            0.0            0.0            0.0                           \r\n            53      G      5.484080E-06  -4.356640E-13   0.0            0.0            0.0            0.0                           \r\n            54      G      5.385501E-06  -6.865234E-13   0.0            0.0            0.0            0.0                           \r\n            55      G      6.038544E-06   8.827788E-13   0.0            0.0            0.0            0.0                           \r\n            56      G      5.871332E-06   4.700195E-13   0.0            0.0            0.0            0.0                           \r\n            57      G      5.724917E-06   2.149759E-13   0.0            0.0            0.0            0.0                           \r\n            58      G      5.596587E-06  -5.502398E-14   0.0            0.0            0.0            0.0                           \r\n            59      G      5.484081E-06  -3.591216E-13   0.0            0.0            0.0            0.0                           \r\n            60      G      5.385502E-06  -4.844150E-13   0.0            0.0            0.0            0.0                           \r\n            61      G      6.038544E-06   8.829057E-13  -5.432922E-21   0.0            0.0            0.0                           \r\n            62      G      5.871332E-06   4.696021E-13  -8.131185E-22   0.0            0.0            0.0                           \r\n            63      G      5.724917E-06   2.149341E-13   5.293956E-23   0.0            0.0            0.0                           \r\n            64      G      5.596587E-06  -5.500021E-14   4.719065E-22   0.0            0.0            0.0                           \r\n            65      G      5.484081E-06  -3.590954E-13   1.257315E-21   0.0            0.0            0.0                           \r\n            66      G      5.385502E-06  -4.843898E-13   4.446923E-21   0.0            0.0            0.0                           \r\n            67      G      6.038544E-06   8.827788E-13   0.0            0.0            0.0            0.0                           \r\n            68      G      5.871332E-06   4.700195E-13   0.0            0.0            0.0            0.0                           \r\n            69      G      5.724917E-06   2.149759E-13   0.0            0.0            0.0            0.0                           \r\n            70      G      5.596587E-06  -5.502398E-14   0.0            0.0            0.0            0.0                           \r\n            71      G      5.484081E-06  -3.591216E-13   0.0            0.0            0.0            0.0                           \r\n            72      G      5.385502E-06  -4.844150E-13   0.0            0.0            0.0            0.0                           \r\n            73      G      6.038545E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            74      G      5.871333E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G      5.724917E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            76      G      5.596587E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G      5.484081E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G      5.385502E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      6.038545E-06   0.0           -4.325121E-21   0.0            0.0            0.0                           \r\n            80      G      5.871333E-06   0.0           -1.027772E-21   0.0            0.0            0.0                           \r\n            81      G      5.724917E-06   0.0           -9.264423E-22   0.0            0.0            0.0                           \r\n            82      G      5.596587E-06   0.0            3.970467E-23   0.0            0.0            0.0                           \r\n            83      G      5.484081E-06   0.0            1.164670E-21   0.0            0.0            0.0                           \r\n            84      G      5.385502E-06   0.0            2.873625E-21   0.0            0.0            0.0                           \r\n            85      G      6.038545E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            86      G      5.871333E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      5.724917E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            88      G      5.596587E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            89      G      5.484081E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            90      G      5.385502E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.460571E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.852415E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.123968E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      4.286101E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      4.348075E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      4.317869E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      3.460571E-03   0.0            9.636248E-12   0.0            0.0            0.0                           \r\n             8      G      3.852415E-03   0.0            3.352161E-11   0.0            0.0            0.0                           \r\n             9      G      4.123968E-03   0.0            3.124335E-12   0.0            0.0            0.0                           \r\n            10      G      4.286101E-03   0.0           -7.922166E-12   0.0            0.0            0.0                           \r\n            11      G      4.348075E-03   0.0           -8.567314E-12   0.0            0.0            0.0                           \r\n            12      G      4.317869E-03   0.0           -3.409624E-12   0.0            0.0            0.0                           \r\n            13      G      3.460571E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      3.852415E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      4.123968E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            16      G      4.286101E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.348075E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      4.317869E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      3.460571E-03   1.310342E-09   0.0            0.0            0.0            0.0                           \r\n            20      G      3.852415E-03   6.743623E-10   0.0            0.0            0.0            0.0                           \r\n            21      G      4.123969E-03   2.518001E-10   0.0            0.0            0.0            0.0                           \r\n            22      G      4.286101E-03  -1.472132E-10   0.0            0.0            0.0            0.0                           \r\n            23      G      4.348075E-03  -5.234614E-10   0.0            0.0            0.0            0.0                           \r\n            24      G      4.317870E-03  -6.858291E-10   0.0            0.0            0.0            0.0                           \r\n            25      G      3.460571E-03   1.304831E-09  -3.528035E-12   0.0            0.0            0.0                           \r\n            26      G      3.852415E-03   6.579294E-10  -2.039417E-11   0.0            0.0            0.0                           \r\n            27      G      4.123969E-03   2.543372E-10   1.218263E-12   0.0            0.0            0.0                           \r\n            28      G      4.286101E-03  -1.440164E-10   4.139893E-12   0.0            0.0            0.0                           \r\n            29      G      4.348075E-03  -5.171684E-10   2.942866E-12   0.0            0.0            0.0                           \r\n            30      G      4.317870E-03  -6.844953E-10   7.290467E-13   0.0            0.0            0.0                           \r\n            31      G      3.460571E-03   1.315820E-09   0.0            0.0            0.0            0.0                           \r\n            32      G      3.852415E-03   6.790586E-10   0.0            0.0            0.0            0.0                           \r\n            33      G      4.123969E-03   2.553539E-10   0.0            0.0            0.0            0.0                           \r\n            34      G      4.286101E-03  -1.472008E-10   0.0            0.0            0.0            0.0                           \r\n            35      G      4.348075E-03  -5.249863E-10   0.0            0.0            0.0            0.0                           \r\n            36      G      4.317870E-03  -6.875694E-10   0.0            0.0            0.0            0.0                           \r\n            37      G      3.460572E-03   1.651333E-09   0.0            0.0            0.0            0.0                           \r\n            38      G      3.852417E-03   8.375040E-10   0.0            0.0            0.0            0.0                           \r\n            39      G      4.123970E-03   2.555364E-10   0.0            0.0            0.0            0.0                           \r\n            40      G      4.286102E-03  -2.224282E-10   0.0            0.0            0.0            0.0                           \r\n            41      G      4.348076E-03  -6.706875E-10   0.0            0.0            0.0            0.0                           \r\n            42      G      4.317871E-03  -9.375322E-10   0.0            0.0            0.0            0.0                           \r\n            43      G      3.460572E-03   1.654677E-09  -3.176273E-13   0.0            0.0            0.0                           \r\n            44      G      3.852417E-03   8.429065E-10   1.010008E-11   0.0            0.0            0.0                           \r\n            45      G      4.123970E-03   2.516556E-10  -1.724076E-11   0.0            0.0            0.0                           \r\n            46      G      4.286102E-03  -2.294276E-10  -2.901995E-12   0.0            0.0            0.0                           \r\n            47      G      4.348076E-03  -6.730993E-10   1.171669E-12   0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G      4.317871E-03  -9.401189E-10   1.335131E-12   0.0            0.0            0.0                           \r\n            49      G      3.460572E-03   1.649573E-09   0.0            0.0            0.0            0.0                           \r\n            50      G      3.852417E-03   8.361894E-10   0.0            0.0            0.0            0.0                           \r\n            51      G      4.123970E-03   2.524221E-10   0.0            0.0            0.0            0.0                           \r\n            52      G      4.286102E-03  -2.232415E-10   0.0            0.0            0.0            0.0                           \r\n            53      G      4.348076E-03  -6.706648E-10   0.0            0.0            0.0            0.0                           \r\n            54      G      4.317871E-03  -9.375765E-10   0.0            0.0            0.0            0.0                           \r\n            55      G      3.460573E-03   1.231848E-09   0.0            0.0            0.0            0.0                           \r\n            56      G      3.852418E-03   4.993717E-10   0.0            0.0            0.0            0.0                           \r\n            57      G      4.123971E-03   7.140710E-11   0.0            0.0            0.0            0.0                           \r\n            58      G      4.286103E-03  -2.227363E-10   0.0            0.0            0.0            0.0                           \r\n            59      G      4.348077E-03  -5.226497E-10   0.0            0.0            0.0            0.0                           \r\n            60      G      4.317872E-03  -5.963808E-10   0.0            0.0            0.0            0.0                           \r\n            61      G      3.460573E-03   1.232895E-09  -4.830580E-12   0.0            0.0            0.0                           \r\n            62      G      3.852418E-03   4.932141E-10  -2.152754E-11   0.0            0.0            0.0                           \r\n            63      G      4.123971E-03   5.984628E-11   2.511022E-11   0.0            0.0            0.0                           \r\n            64      G      4.286103E-03  -2.204363E-10   2.664355E-12   0.0            0.0            0.0                           \r\n            65      G      4.348077E-03  -5.286154E-10  -7.935603E-13   0.0            0.0            0.0                           \r\n            66      G      4.317872E-03  -5.977581E-10  -1.347183E-12   0.0            0.0            0.0                           \r\n            67      G      3.460573E-03   1.225329E-09   0.0            0.0            0.0            0.0                           \r\n            68      G      3.852418E-03   4.936100E-10   0.0            0.0            0.0            0.0                           \r\n            69      G      4.123971E-03   6.822497E-11   0.0            0.0            0.0            0.0                           \r\n            70      G      4.286103E-03  -2.234101E-10   0.0            0.0            0.0            0.0                           \r\n            71      G      4.348077E-03  -5.217327E-10   0.0            0.0            0.0            0.0                           \r\n            72      G      4.317872E-03  -5.952522E-10   0.0            0.0            0.0            0.0                           \r\n            73      G      3.460574E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            74      G      3.852418E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G      4.123971E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            76      G      4.286103E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G      4.348077E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G      4.317872E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            79      G      3.460574E-03   0.0            1.030910E-11   0.0            0.0            0.0                           \r\n            80      G      3.852418E-03   0.0            3.596011E-11   0.0            0.0            0.0                           \r\n            81      G      4.123971E-03   0.0           -4.681991E-12   0.0            0.0            0.0                           \r\n            82      G      4.286103E-03   0.0           -5.621564E-12   0.0            0.0            0.0                           \r\n            83      G      4.348077E-03   0.0           -7.007497E-12   0.0            0.0            0.0                           \r\n            84      G      4.317872E-03   0.0           -3.354537E-12   0.0            0.0            0.0                           \r\n            85      G      3.460574E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            86      G      3.852418E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      4.123971E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            88      G      4.286103E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            89      G      4.348077E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            90      G      4.317872E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1        1  X -5.261773E+00  XY  1.124047E+01  A  4.650879E+01  LX  0.21 0.98 0.0   -1.681614E+01   2.243197E+01            \r\n                    Y  4.406824E+01  YZ  0.0           B -7.702314E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.164196E+01  ZX  0.0           C  1.164196E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        2  X -7.308180E+00  XY  1.070515E+01  A  4.199724E+01  LX  0.21 0.98 0.0   -1.402473E+01   2.129747E+01            \r\n                    Y  3.967295E+01  YZ  0.0           B -9.632474E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.709419E+00  ZX  0.0           C  9.709420E+00  LZ  0.0  0.0  1.00                                          \r\n0       1       20  X -8.437486E+00  XY  7.762691E+00  A  4.199743E+01  LX  0.15 0.99 0.0   -1.402491E+01   2.129747E+01            \r\n                    Y  4.080264E+01  YZ  0.0           B -9.632278E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.709587E+00  ZX  0.0           C  9.709590E+00  LZ  0.0  0.0  1.00                                          \r\n0       1       19  X -6.447939E+00  XY  8.150827E+00  A  4.650868E+01  LX  0.15 0.99 0.0   -1.681603E+01   2.243199E+01            \r\n                    Y  4.525415E+01  YZ  0.0           B -7.702479E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164188E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        7  X -5.261611E+00  XY  1.124041E+01  A  4.650882E+01  LX  0.21 0.98 0.0   -1.681623E+01   2.243192E+01            \r\n                    Y  4.406830E+01  YZ  0.0           B -7.702134E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.164200E+01  ZX  0.0           C  1.164199E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        8  X -7.308160E+00  XY  1.070516E+01  A  4.199729E+01  LX  0.21 0.98 0.0   -1.402478E+01   2.129748E+01            \r\n                    Y  3.967300E+01  YZ  0.0           B -9.632452E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.709496E+00  ZX  0.0           C  9.709496E+00  LZ  0.0  0.0  1.00                                          \r\n0       1       26  X -8.437604E+00  XY  7.762723E+00  A  4.199728E+01  LX  0.15 0.99 0.0   -1.402478E+01   2.129746E+01            \r\n                    Y  4.080247E+01  YZ  0.0           B -9.632410E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.709468E+00  ZX  0.0           C  9.709472E+00  LZ  0.0  0.0  1.00                                          \r\n0       1       25  X -6.447938E+00  XY  8.150826E+00  A  4.650867E+01  LX  0.15 0.99 0.0   -1.681603E+01   2.243199E+01            \r\n                    Y  4.525414E+01  YZ  0.0           B -7.702477E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        0  X -6.863837E+00  XY  9.464784E+00  A  4.420368E+01  LX  0.18 0.98 0.0   -1.542046E+01   2.182380E+01            \r\n                    Y  4.244949E+01  YZ  0.0           B -8.618028E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067571E+01  ZX  0.0           C  1.067571E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        2  X -3.212638E+00  XY  1.020725E+01  A  4.379931E+01  LX  0.21 0.98 0.0   -1.662721E+01   2.042031E+01            \r\n                    Y  4.158311E+01  YZ  0.0           B -5.428845E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151115E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        3  X -4.986290E+00  XY  9.743332E+00  A  3.988885E+01  LX  0.21 0.98 0.0   -1.420772E+01   1.943130E+01            \r\n                    Y  3.777338E+01  YZ  0.0           B -7.101773E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.836070E+00  ZX  0.0           C  9.836074E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       21  X -6.014593E+00  XY  7.065213E+00  A  3.988871E+01  LX  0.15 0.99 0.0   -1.420757E+01   1.943134E+01            \r\n                    Y  3.880127E+01  YZ  0.0           B -7.102040E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.836025E+00  ZX  0.0           C  9.836030E+00  LZ  0.0  0.0  1.00                                          \r\n0       2       20  X -4.289634E+00  XY  7.401617E+00  A  4.379949E+01  LX  0.15 0.99 0.0   -1.662726E+01   2.042039E+01            \r\n                    Y  4.266027E+01  YZ  0.0           B -5.428847E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.151113E+01  ZX  0.0           C  1.151113E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        8  X -3.212891E+00  XY  1.020729E+01  A  4.379936E+01  LX  0.21 0.98 0.0   -1.662711E+01   2.042043E+01            \r\n                    Y  4.158315E+01  YZ  0.0           B -5.429098E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.151107E+01  ZX  0.0           C  1.151107E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        9  X -4.986540E+00  XY  9.743314E+00  A  3.988867E+01  LX  0.21 0.98 0.0   -1.420757E+01   1.943131E+01            \r\n                    Y  3.777320E+01  YZ  0.0           B -7.102011E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.836053E+00  ZX  0.0           C  9.836054E+00  LZ  0.0  0.0  1.00                                          \r\n0       2       27  X -6.014266E+00  XY  7.065209E+00  A  3.988883E+01  LX  0.15 0.99 0.0   -1.420771E+01   1.943127E+01            \r\n                    Y  3.880138E+01  YZ  0.0           B -7.101717E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.836017E+00  ZX  0.0           C  9.836020E+00  LZ  0.0  0.0  1.00                                          \r\n0       2       26  X -4.289722E+00  XY  7.401639E+00  A  4.379939E+01  LX  0.15 0.99 0.0   -1.662723E+01   2.042037E+01            \r\n                    Y  4.266017E+01  YZ  0.0           B -5.428944E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.151125E+01  ZX  0.0           C  1.151125E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        0  X -4.625822E+00  XY  8.604360E+00  A  4.179921E+01  LX  0.18 0.98 0.0   -1.541742E+01   1.988890E+01            \r\n                    Y  4.020449E+01  YZ  0.0           B -6.220546E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067360E+01  ZX  0.0           C  1.067360E+01  LZ  0.0  0.0  1.00                                          \r\n0       3        3  X -1.424954E+00  XY  9.310253E+00  A  4.145556E+01  LX  0.21 0.98 0.0   -1.647064E+01   1.867814E+01            \r\n                    Y  3.943411E+01  YZ  0.0           B -3.446404E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140277E+01  LZ  0.0  0.0  1.00                                          \r\n0       3        4  X -2.972486E+00  XY  8.905502E+00  A  3.804379E+01  LX  0.21 0.98 0.0   -1.435970E+01   1.781036E+01            \r\n                    Y  3.611021E+01  YZ  0.0           B -4.906059E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.941361E+00  ZX  0.0           C  9.941369E+00  LZ  0.0  0.0  1.00                                          \r\n0       3       22  X -3.912252E+00  XY  6.457644E+00  A  3.804381E+01  LX  0.15 0.99 0.0   -1.435961E+01   1.781043E+01            \r\n                    Y  3.704988E+01  YZ  0.0           B -4.906177E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.941213E+00  ZX  0.0           C  9.941213E+00  LZ  0.0  0.0  1.00                                          \r\n0       3       21  X -2.407589E+00  XY  6.751239E+00  A  4.145550E+01  LX  0.15 0.99 0.0   -1.647046E+01   1.867823E+01            \r\n                    Y  4.041638E+01  YZ  0.0           B -3.446714E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.140259E+01  ZX  0.0           C  1.140260E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       3        9  X -1.425101E+00  XY  9.310243E+00  A  4.145564E+01  LX  0.21 0.98 0.0   -1.647062E+01   1.867822E+01            \r\n                    Y  3.943421E+01  YZ  0.0           B -3.446533E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.140275E+01  ZX  0.0           C  1.140275E+01  LZ  0.0  0.0  1.00                                          \r\n0       3       10  X -2.972355E+00  XY  8.905476E+00  A  3.804376E+01  LX  0.21 0.98 0.0   -1.435969E+01   1.781031E+01            \r\n                    Y  3.611019E+01  YZ  0.0           B -4.905928E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.941252E+00  ZX  0.0           C  9.941251E+00  LZ  0.0  0.0  1.00                                          \r\n0       3       28  X -3.912313E+00  XY  6.457649E+00  A  3.804372E+01  LX  0.15 0.99 0.0   -1.435960E+01   1.781040E+01            \r\n                    Y  3.704980E+01  YZ  0.0           B -4.906239E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.941315E+00  ZX  0.0           C  9.941323E+00  LZ  0.0  0.0  1.00                                          \r\n0       3       27  X -2.407286E+00  XY  6.751226E+00  A  4.145550E+01  LX  0.15 0.99 0.0   -1.647057E+01   1.867813E+01            \r\n                    Y  4.041637E+01  YZ  0.0           B -3.446415E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.140263E+01  ZX  0.0           C  1.140263E+01  LZ  0.0  0.0  1.00                                          \r\n0       3        0  X -2.679292E+00  XY  7.856154E+00  A  3.970870E+01  LX  0.18 0.98 0.0   -1.541512E+01   1.821077E+01            \r\n                    Y  3.825265E+01  YZ  0.0           B -4.135345E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067198E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n0       4        4  X  1.435238E-01  XY  8.526464E+00  A  3.941454E+01  LX  0.21 0.98 0.0   -1.633962E+01   1.716037E+01            \r\n                    Y  3.756329E+01  YZ  0.0           B -1.707732E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.131205E+01  ZX  0.0           C  1.131205E+01  LZ  0.0  0.0  1.00                                          \r\n0       4        5  X -1.214677E+00  XY  8.171254E+00  A  3.641995E+01  LX  0.21 0.98 0.0   -1.448684E+01   1.639440E+01            \r\n                    Y  3.464580E+01  YZ  0.0           B -2.988823E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n0       4       23  X -2.076726E+00  XY  5.925227E+00  A  3.642004E+01  LX  0.15 0.99 0.0   -1.448692E+01   1.639440E+01            \r\n                    Y  3.550806E+01  YZ  0.0           B -2.988707E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.002943E+01  ZX  0.0           C  1.002943E+01  LZ  0.0  0.0  1.00                                          \r\n0       4       22  X -7.559077E-01  XY  6.182885E+00  A  3.941456E+01  LX  0.15 0.99 0.0   -1.633973E+01   1.716031E+01            \r\n                    Y  3.846292E+01  YZ  0.0           B -1.707556E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.131219E+01  ZX  0.0           C  1.131219E+01  LZ  0.0  0.0  1.00                                          \r\n0       4       10  X  1.435371E-01  XY  8.526528E+00  A  3.941443E+01  LX  0.21 0.98 0.0   -1.633955E+01   1.716034E+01            \r\n                    Y  3.756314E+01  YZ  0.0           B -1.707749E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.131198E+01  ZX  0.0           C  1.131198E+01  LZ  0.0  0.0  1.00                                          \r\n0       4       11  X -1.214686E+00  XY  8.171246E+00  A  3.642010E+01  LX  0.21 0.98 0.0   -1.448690E+01   1.639447E+01            \r\n                    Y  3.464597E+01  YZ  0.0           B -2.988826E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.002940E+01  ZX  0.0           C  1.002941E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       4       29  X -2.076760E+00  XY  5.925259E+00  A  3.641998E+01  LX  0.15 0.99 0.0   -1.448687E+01   1.639439E+01            \r\n                    Y  3.550799E+01  YZ  0.0           B -2.988753E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.002937E+01  ZX  0.0           C  1.002937E+01  LZ  0.0  0.0  1.00                                          \r\n0       4       28  X -7.557735E-01  XY  6.182810E+00  A  3.941458E+01  LX  0.15 0.99 0.0   -1.633975E+01   1.716027E+01            \r\n                    Y  3.846295E+01  YZ  0.0           B -1.707402E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.131209E+01  ZX  0.0           C  1.131209E+01  LZ  0.0  0.0  1.00                                          \r\n0       4        0  X -9.759337E-01  XY  7.201459E+00  A  3.787973E+01  LX  0.18 0.98 0.0   -1.541327E+01   1.674685E+01            \r\n                    Y  3.654502E+01  YZ  0.0           B -2.310645E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067074E+01  ZX  0.0           C  1.067073E+01  LZ  0.0  0.0  1.00                                          \r\n0       5        5  X  1.527696E+00  XY  7.837736E+00  A  3.762611E+01  LX  0.21 0.98 0.0   -1.622922E+01   1.583067E+01            \r\n                    Y  3.592436E+01  YZ  0.0           B -1.740426E-01  LY  0.98-0.21 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0       5        6  X  3.292457E-01  XY  7.524264E+00  A  3.498370E+01  LX  0.21 0.98 0.0   -1.459434E+01   1.515105E+01            \r\n                    Y  3.335001E+01  YZ  0.0           B -1.304444E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.010376E+01  ZX  0.0           C  1.010376E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       24  X -4.648218E-01  XY  5.456056E+00  A  3.498370E+01  LX  0.15 0.99 0.0   -1.459428E+01   1.515110E+01            \r\n                    Y  3.414393E+01  YZ  0.0           B -1.304591E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.010373E+01  ZX  0.0           C  1.010373E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       23  X  7.005937E-01  XY  5.683384E+00  A  3.762610E+01  LX  0.15 0.99 0.0   -1.622919E+01   1.583070E+01            \r\n                    Y  3.675134E+01  YZ  0.0           B -1.741619E-01  LY  0.99-0.15 0.0                                           \r\n                    Z  1.123564E+01  ZX  0.0           C  1.123564E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       11  X  1.527790E+00  XY  7.837706E+00  A  3.762616E+01  LX  0.21 0.98 0.0   -1.622929E+01   1.583065E+01            \r\n                    Y  3.592443E+01  YZ  0.0           B -1.739423E-01  LY  0.98-0.21 0.0                                           \r\n                    Z  1.123564E+01  ZX  0.0           C  1.123564E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       12  X  3.291441E-01  XY  7.524170E+00  A  3.498371E+01  LX  0.21 0.98 0.0   -1.459433E+01   1.515107E+01            \r\n                    Y  3.335007E+01  YZ  0.0           B -1.304498E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.010378E+01  ZX  0.0           C  1.010378E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       30  X -4.647097E-01  XY  5.456091E+00  A  3.498365E+01  LX  0.15 0.99 0.0   -1.459431E+01   1.515104E+01            \r\n                    Y  3.414386E+01  YZ  0.0           B -1.304493E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.010379E+01  ZX  0.0           C  1.010378E+01  LZ  0.0  0.0  1.00                                          \r\n0       5       29  X  7.007304E-01  XY  5.683424E+00  A  3.762608E+01  LX  0.15 0.99 0.0   -1.622919E+01   1.583066E+01            \r\n                    Y  3.675130E+01  YZ  0.0           B -1.740424E-01  LY  0.99-0.15 0.0                                           \r\n                    Z  1.123555E+01  ZX  0.0           C  1.123554E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       5        0  X  5.232086E-01  XY  6.625354E+00  A  3.627036E+01  LX  0.18 0.98 0.0   -1.541177E+01   1.546296E+01            \r\n                    Y  3.504242E+01  YZ  0.0           B -7.047326E-01  LY  0.98-0.18 0.0                                           \r\n                    Z  1.066969E+01  ZX  0.0           C  1.066969E+01  LZ  0.0  0.0  1.00                                          \r\n0       6       19  X -7.248496E+00  XY  4.939545E+00  A  4.650864E+01  LX  0.09 1.00 0.0   -1.681605E+01   2.243194E+01            \r\n                    Y  4.605476E+01  YZ  0.0           B -7.702377E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164189E+01  LZ  0.0  0.0  1.00                                          \r\n0       6       20  X -9.200280E+00  XY  4.704335E+00  A  4.199725E+01  LX  0.09 1.00 0.0   -1.402469E+01   2.129750E+01            \r\n                    Y  4.156499E+01  YZ  0.0           B -9.632544E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.709371E+00  ZX  0.0           C  9.709377E+00  LZ  0.0  0.0  1.00                                          \r\n0       6       38  X -9.583983E+00  XY  1.576010E+00  A  4.199737E+01  LX  0.03 1.00 0.0   -1.402493E+01   2.129739E+01            \r\n                    Y  4.194921E+01  YZ  0.0           B -9.632134E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.709567E+00  ZX  0.0           C  9.709569E+00  LZ  0.0  0.0  1.00                                          \r\n0       6       37  X -7.651737E+00  XY  1.654788E+00  A  4.650875E+01  LX  0.03 1.00 0.0   -1.681614E+01   2.243195E+01            \r\n                    Y  4.645818E+01  YZ  0.0           B -7.702299E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.164196E+01  ZX  0.0           C  1.164197E+01  LZ  0.0  0.0  1.00                                          \r\n0       6       25  X -7.248512E+00  XY  4.939534E+00  A  4.650867E+01  LX  0.09 1.00 0.0   -1.681604E+01   2.243195E+01            \r\n                    Y  4.605479E+01  YZ  0.0           B -7.702384E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.164184E+01  ZX  0.0           C  1.164184E+01  LZ  0.0  0.0  1.00                                          \r\n0       6       26  X -9.200150E+00  XY  4.704368E+00  A  4.199732E+01  LX  0.09 1.00 0.0   -1.402482E+01   2.129747E+01            \r\n                    Y  4.156505E+01  YZ  0.0           B -9.632417E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.709568E+00  ZX  0.0           C  9.709570E+00  LZ  0.0  0.0  1.00                                          \r\n0       6       44  X -9.584345E+00  XY  1.575992E+00  A  4.199720E+01  LX  0.03 1.00 0.0   -1.402470E+01   2.129746E+01            \r\n                    Y  4.194905E+01  YZ  0.0           B -9.632498E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.709398E+00  ZX  0.0           C  9.709407E+00  LZ  0.0  0.0  1.00                                          \r\n0       6       43  X -7.651850E+00  XY  1.654799E+00  A  4.650871E+01  LX  0.03 1.00 0.0   -1.681606E+01   2.243198E+01            \r\n                    Y  4.645815E+01  YZ  0.0           B -7.702409E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164187E+01  LZ  0.0  0.0  1.00                                          \r\n0       6        0  X -8.421169E+00  XY  3.218671E+00  A  4.420364E+01  LX  0.06 1.00 0.0   -1.542043E+01   2.182379E+01            \r\n                    Y  4.400677E+01  YZ  0.0           B -8.618032E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067568E+01  ZX  0.0           C  1.067569E+01  LZ  0.0  0.0  1.00                                          \r\n0       7       20  X -5.016896E+00  XY  4.485518E+00  A  4.379942E+01  LX  0.09 1.00 0.0   -1.662717E+01   2.042043E+01            \r\n                    Y  4.338727E+01  YZ  0.0           B -5.429055E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.151113E+01  ZX  0.0           C  1.151114E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       7       21  X -6.708273E+00  XY  4.281663E+00  A  3.988879E+01  LX  0.09 1.00 0.0   -1.420774E+01   1.943125E+01            \r\n                    Y  3.949536E+01  YZ  0.0           B -7.101705E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.836122E+00  ZX  0.0           C  9.836131E+00  LZ  0.0  0.0  1.00                                          \r\n0       7       39  X -7.057993E+00  XY  1.434377E+00  A  3.988883E+01  LX  0.03 1.00 0.0   -1.420769E+01   1.943131E+01            \r\n                    Y  3.984501E+01  YZ  0.0           B -7.101819E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.836050E+00  ZX  0.0           C  9.836055E+00  LZ  0.0  0.0  1.00                                          \r\n0       7       38  X -5.382915E+00  XY  1.502705E+00  A  4.379934E+01  LX  0.03 1.00 0.0   -1.662723E+01   2.042031E+01            \r\n                    Y  4.375343E+01  YZ  0.0           B -5.428827E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.151117E+01  ZX  0.0           C  1.151118E+01  LZ  0.0  0.0  1.00                                          \r\n0       7       26  X -5.016578E+00  XY  4.485517E+00  A  4.379934E+01  LX  0.09 1.00 0.0   -1.662725E+01   2.042028E+01            \r\n                    Y  4.338718E+01  YZ  0.0           B -5.428739E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.151116E+01  ZX  0.0           C  1.151117E+01  LZ  0.0  0.0  1.00                                          \r\n0       7       27  X -6.708583E+00  XY  4.281591E+00  A  3.988881E+01  LX  0.09 1.00 0.0   -1.420763E+01   1.943136E+01            \r\n                    Y  3.949540E+01  YZ  0.0           B -7.101999E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.836085E+00  ZX  0.0           C  9.836091E+00  LZ  0.0  0.0  1.00                                          \r\n0       7       45  X -7.057889E+00  XY  1.434416E+00  A  3.988876E+01  LX  0.03 1.00 0.0   -1.420771E+01   1.943124E+01            \r\n                    Y  3.984493E+01  YZ  0.0           B -7.101716E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.836075E+00  ZX  0.0           C  9.836075E+00  LZ  0.0  0.0  1.00                                          \r\n0       7       44  X -5.382978E+00  XY  1.502699E+00  A  4.379943E+01  LX  0.03 1.00 0.0   -1.662723E+01   2.042037E+01            \r\n                    Y  4.375351E+01  YZ  0.0           B -5.428893E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151116E+01  LZ  0.0  0.0  1.00                                          \r\n0       7        0  X -6.041513E+00  XY  2.926061E+00  A  4.179923E+01  LX  0.06 1.00 0.0   -1.541746E+01   1.988888E+01            \r\n                    Y  4.162026E+01  YZ  0.0           B -6.220479E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067362E+01  ZX  0.0           C  1.067362E+01  LZ  0.0  0.0  1.00                                          \r\n0       8       21  X -3.070649E+00  XY  4.091353E+00  A  4.145561E+01  LX  0.09 1.00 0.0   -1.647057E+01   1.867823E+01            \r\n                    Y  4.107967E+01  YZ  0.0           B -3.446591E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.140269E+01  ZX  0.0           C  1.140268E+01  LZ  0.0  0.0  1.00                                          \r\n0       8       22  X -4.546530E+00  XY  3.913471E+00  A  3.804368E+01  LX  0.09 1.00 0.0   -1.435960E+01   1.781035E+01            \r\n                    Y  3.768408E+01  YZ  0.0           B -4.906124E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.941245E+00  ZX  0.0           C  9.941253E+00  LZ  0.0  0.0  1.00                                          \r\n0       8       40  X -4.866156E+00  XY  1.311064E+00  A  3.804365E+01  LX  0.03 1.00 0.0   -1.435957E+01   1.781037E+01            \r\n                    Y  3.800359E+01  YZ  0.0           B -4.906214E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.941252E+00  ZX  0.0           C  9.941259E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       8       39  X -3.404593E+00  XY  1.370632E+00  A  4.145565E+01  LX  0.03 1.00 0.0   -1.647065E+01   1.867820E+01            \r\n                    Y  4.141378E+01  YZ  0.0           B -3.446472E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.140277E+01  ZX  0.0           C  1.140277E+01  LZ  0.0  0.0  1.00                                          \r\n0       8       27  X -3.070594E+00  XY  4.091346E+00  A  4.145552E+01  LX  0.09 1.00 0.0   -1.647056E+01   1.867817E+01            \r\n                    Y  4.107957E+01  YZ  0.0           B -3.446534E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.140271E+01  ZX  0.0           C  1.140271E+01  LZ  0.0  0.0  1.00                                          \r\n0       8       28  X -4.546695E+00  XY  3.913476E+00  A  3.804368E+01  LX  0.09 1.00 0.0   -1.435954E+01   1.781041E+01            \r\n                    Y  3.768409E+01  YZ  0.0           B -4.906289E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.941232E+00  ZX  0.0           C  9.941237E+00  LZ  0.0  0.0  1.00                                          \r\n0       8       46  X -4.866154E+00  XY  1.311057E+00  A  3.804376E+01  LX  0.03 1.00 0.0   -1.435961E+01   1.781041E+01            \r\n                    Y  3.800370E+01  YZ  0.0           B -4.906210E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.941265E+00  ZX  0.0           C  9.941267E+00  LZ  0.0  0.0  1.00                                          \r\n0       8       45  X -3.404577E+00  XY  1.370662E+00  A  4.145564E+01  LX  0.03 1.00 0.0   -1.647066E+01   1.867819E+01            \r\n                    Y  4.141377E+01  YZ  0.0           B -3.446454E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.140278E+01  ZX  0.0           C  1.140278E+01  LZ  0.0  0.0  1.00                                          \r\n0       8        0  X -3.971994E+00  XY  2.671633E+00  A  3.970869E+01  LX  0.06 1.00 0.0   -1.541509E+01   1.821078E+01            \r\n                    Y  3.954528E+01  YZ  0.0           B -4.135398E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067199E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       22  X -1.363455E+00  XY  3.746936E+00  A  3.941440E+01  LX  0.09 1.00 0.0   -1.633959E+01   1.716031E+01            \r\n                    Y  3.907011E+01  YZ  0.0           B -1.707751E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.131211E+01  ZX  0.0           C  1.131211E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       23  X -2.658633E+00  XY  3.590806E+00  A  3.642015E+01  LX  0.09 1.00 0.0   -1.448702E+01   1.639440E+01            \r\n                    Y  3.609020E+01  YZ  0.0           B -2.988577E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.002947E+01  ZX  0.0           C  1.002947E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       41  X -2.952033E+00  XY  1.202959E+00  A  3.642002E+01  LX  0.03 1.00 0.0   -1.448688E+01   1.639442E+01            \r\n                    Y  3.638327E+01  YZ  0.0           B -2.988789E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       40  X -1.669338E+00  XY  1.255262E+00  A  3.941450E+01  LX  0.03 1.00 0.0   -1.633959E+01   1.716035E+01            \r\n                    Y  3.937615E+01  YZ  0.0           B -1.707692E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.131196E+01  ZX  0.0           C  1.131197E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       28  X -1.363257E+00  XY  3.746925E+00  A  3.941466E+01  LX  0.09 1.00 0.0   -1.633975E+01   1.716035E+01            \r\n                    Y  3.907037E+01  YZ  0.0           B -1.707550E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.131214E+01  ZX  0.0           C  1.131214E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       9       29  X -2.658775E+00  XY  3.590798E+00  A  3.642007E+01  LX  0.09 1.00 0.0   -1.448694E+01   1.639441E+01            \r\n                    Y  3.609013E+01  YZ  0.0           B -2.988718E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.002947E+01  ZX  0.0           C  1.002947E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       47  X -2.951741E+00  XY  1.202923E+00  A  3.642014E+01  LX  0.03 1.00 0.0   -1.448701E+01   1.639437E+01            \r\n                    Y  3.638338E+01  YZ  0.0           B -2.988495E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n0       9       46  X -1.669341E+00  XY  1.255277E+00  A  3.941442E+01  LX  0.03 1.00 0.0   -1.633960E+01   1.716031E+01            \r\n                    Y  3.937608E+01  YZ  0.0           B -1.707695E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.131206E+01  ZX  0.0           C  1.131207E+01  LZ  0.0  0.0  1.00                                          \r\n0       9        0  X -2.160822E+00  XY  2.448986E+00  A  3.787975E+01  LX  0.06 1.00 0.0   -1.541330E+01   1.674684E+01            \r\n                    Y  3.772997E+01  YZ  0.0           B -2.310607E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067075E+01  ZX  0.0           C  1.067076E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       23  X  1.423912E-01  XY  3.444264E+00  A  3.762603E+01  LX  0.09 1.00 0.0   -1.622917E+01   1.583065E+01            \r\n                    Y  3.730954E+01  YZ  0.0           B -1.740919E-01  LY  1.00-0.09 0.0                                           \r\n                    Z  1.123556E+01  ZX  0.0           C  1.123557E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       24  X -1.000876E+00  XY  3.306460E+00  A  3.498368E+01  LX  0.09 1.00 0.0   -1.459424E+01   1.515113E+01            \r\n                    Y  3.467987E+01  YZ  0.0           B -1.304689E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.010373E+01  ZX  0.0           C  1.010374E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       42  X -1.270738E+00  XY  1.107714E+00  A  3.498372E+01  LX  0.03 1.00 0.0   -1.459428E+01   1.515111E+01            \r\n                    Y  3.494987E+01  YZ  0.0           B -1.304583E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.010369E+01  ZX  0.0           C  1.010369E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       41  X -1.388310E-01  XY  1.153863E+00  A  3.762612E+01  LX  0.03 1.00 0.0   -1.622922E+01   1.583069E+01            \r\n                    Y  3.759087E+01  YZ  0.0           B -1.740849E-01  LY  1.00-0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123561E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       29  X  1.426364E-01  XY  3.444250E+00  A  3.762624E+01  LX  0.09 1.00 0.0   -1.622935E+01   1.583065E+01            \r\n                    Y  3.730976E+01  YZ  0.0           B -1.738449E-01  LY  1.00-0.09 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       30  X -1.000798E+00  XY  3.306483E+00  A  3.498369E+01  LX  0.09 1.00 0.0   -1.459427E+01   1.515111E+01            \r\n                    Y  3.467987E+01  YZ  0.0           B -1.304620E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.010372E+01  ZX  0.0           C  1.010373E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       48  X -1.270767E+00  XY  1.107689E+00  A  3.498366E+01  LX  0.03 1.00 0.0   -1.459427E+01   1.515109E+01            \r\n                    Y  3.494982E+01  YZ  0.0           B -1.304614E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.010376E+01  ZX  0.0           C  1.010377E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10       47  X -1.391150E-01  XY  1.153877E+00  A  3.762605E+01  LX  0.03 1.00 0.0   -1.622909E+01   1.583075E+01            \r\n                    Y  3.759079E+01  YZ  0.0           B -1.743724E-01  LY  1.00-0.03 0.0                                           \r\n                    Z  1.123559E+01  ZX  0.0           C  1.123558E+01  LZ  0.0  0.0  1.00                                          \r\n0      10        0  X -5.670121E-01  XY  2.253075E+00  A  3.627036E+01  LX  0.06 1.00 0.0   -1.541174E+01   1.546300E+01            \r\n                    Y  3.613255E+01  YZ  0.0           B -7.048191E-01  LY  1.00-0.06 0.0                                           \r\n                    Z  1.066966E+01  ZX  0.0           C  1.066967E+01  LZ  0.0  0.0  1.00                                          \r\n0      11       37  X -7.651814E+00  XY -1.654801E+00  A  4.650867E+01  LX  0.03 1.00 0.0   -1.681606E+01   2.243195E+01            \r\n                    Y  4.645811E+01  YZ  0.0           B -7.702378E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      11       38  X -9.584056E+00  XY -1.576046E+00  A  4.199729E+01  LX  0.03 1.00 0.0   -1.402484E+01   2.129739E+01            \r\n                    Y  4.194913E+01  YZ  0.0           B -9.632212E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.709447E+00  ZX  0.0           C  9.709450E+00  LZ  0.0  0.0  1.00                                          \r\n0      11       56  X -9.200301E+00  XY -4.704339E+00  A  4.199720E+01  LX  0.09 1.00 0.0   -1.402468E+01   2.129749E+01            \r\n                    Y  4.156494E+01  YZ  0.0           B -9.632565E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.709412E+00  ZX  0.0           C  9.709413E+00  LZ  0.0  0.0  1.00                                          \r\n0      11       55  X -7.248493E+00  XY -4.939536E+00  A  4.650873E+01  LX  0.09 1.00 0.0   -1.681608E+01   2.243197E+01            \r\n                    Y  4.605486E+01  YZ  0.0           B -7.702365E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164188E+01  LZ  0.0  0.0  1.00                                          \r\n0      11       43  X -7.651825E+00  XY -1.654794E+00  A  4.650875E+01  LX  0.03 1.00 0.0   -1.681609E+01   2.243199E+01            \r\n                    Y  4.645819E+01  YZ  0.0           B -7.702390E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      11       44  X -9.584261E+00  XY -1.575992E+00  A  4.199724E+01  LX  0.03 1.00 0.0   -1.402478E+01   2.129744E+01            \r\n                    Y  4.194909E+01  YZ  0.0           B -9.632413E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.709498E+00  ZX  0.0           C  9.709501E+00  LZ  0.0  0.0  1.00                                          \r\n0      11       62  X -9.200224E+00  XY -4.704395E+00  A  4.199726E+01  LX  0.09 1.00 0.0   -1.402474E+01   2.129748E+01            \r\n                    Y  4.156498E+01  YZ  0.0           B -9.632502E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.709466E+00  ZX  0.0           C  9.709473E+00  LZ  0.0  0.0  1.00                                          \r\n0      11       61  X -7.248506E+00  XY -4.939567E+00  A  4.650861E+01  LX  0.09 1.00 0.0   -1.681604E+01   2.243192E+01            \r\n                    Y  4.605473E+01  YZ  0.0           B -7.702387E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      11        0  X -8.421185E+00  XY -3.218684E+00  A  4.420362E+01  LX  0.06 1.00 0.0   -1.542041E+01   2.182379E+01            \r\n                    Y  4.400676E+01  YZ  0.0           B -8.618051E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067567E+01  ZX  0.0           C  1.067568E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      12       38  X -5.382993E+00  XY -1.502676E+00  A  4.379935E+01  LX  0.03 1.00 0.0   -1.662721E+01   2.042034E+01            \r\n                    Y  4.375344E+01  YZ  0.0           B -5.428905E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.151118E+01  ZX  0.0           C  1.151119E+01  LZ  0.0  0.0  1.00                                          \r\n0      12       39  X -7.058012E+00  XY -1.434405E+00  A  3.988879E+01  LX  0.03 1.00 0.0   -1.420768E+01   1.943130E+01            \r\n                    Y  3.984496E+01  YZ  0.0           B -7.101843E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.836076E+00  ZX  0.0           C  9.836083E+00  LZ  0.0  0.0  1.00                                          \r\n0      12       57  X -6.708365E+00  XY -4.281602E+00  A  3.988887E+01  LX  0.09 1.00 0.0   -1.420774E+01   1.943131E+01            \r\n                    Y  3.949546E+01  YZ  0.0           B -7.101781E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.836114E+00  ZX  0.0           C  9.836115E+00  LZ  0.0  0.0  1.00                                          \r\n0      12       56  X -5.016712E+00  XY -4.485510E+00  A  4.379939E+01  LX  0.09 1.00 0.0   -1.662723E+01   2.042035E+01            \r\n                    Y  4.338723E+01  YZ  0.0           B -5.428871E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.151119E+01  ZX  0.0           C  1.151119E+01  LZ  0.0  0.0  1.00                                          \r\n0      12       44  X -5.382915E+00  XY -1.502709E+00  A  4.379931E+01  LX  0.03 1.00 0.0   -1.662720E+01   2.042030E+01            \r\n                    Y  4.375340E+01  YZ  0.0           B -5.428830E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.151112E+01  ZX  0.0           C  1.151112E+01  LZ  0.0  0.0  1.00                                          \r\n0      12       45  X -7.058091E+00  XY -1.434398E+00  A  3.988885E+01  LX  0.03 1.00 0.0   -1.420768E+01   1.943135E+01            \r\n                    Y  3.984503E+01  YZ  0.0           B -7.101920E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.836105E+00  ZX  0.0           C  9.836102E+00  LZ  0.0  0.0  1.00                                          \r\n0      12       63  X -6.708352E+00  XY -4.281596E+00  A  3.988883E+01  LX  0.09 1.00 0.0   -1.420775E+01   1.943128E+01            \r\n                    Y  3.949541E+01  YZ  0.0           B -7.101771E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.836208E+00  ZX  0.0           C  9.836206E+00  LZ  0.0  0.0  1.00                                          \r\n0      12       62  X -5.016639E+00  XY -4.485536E+00  A  4.379939E+01  LX  0.09 1.00 0.0   -1.662724E+01   2.042032E+01            \r\n                    Y  4.338723E+01  YZ  0.0           B -5.428802E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151115E+01  LZ  0.0  0.0  1.00                                          \r\n0      12        0  X -6.041510E+00  XY -2.926054E+00  A  4.179924E+01  LX  0.06 1.00 0.0   -1.541747E+01   1.988888E+01            \r\n                    Y  4.162027E+01  YZ  0.0           B -6.220476E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067364E+01  ZX  0.0           C  1.067365E+01  LZ  0.0  0.0  1.00                                          \r\n0      13       39  X -3.404559E+00  XY -1.370662E+00  A  4.145560E+01  LX  0.03 1.00 0.0   -1.647064E+01   1.867817E+01            \r\n                    Y  4.141372E+01  YZ  0.0           B -3.446439E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140276E+01  LZ  0.0  0.0  1.00                                          \r\n0      13       40  X -4.866085E+00  XY -1.311039E+00  A  3.804374E+01  LX  0.03 1.00 0.0   -1.435961E+01   1.781038E+01            \r\n                    Y  3.800368E+01  YZ  0.0           B -4.906142E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.941235E+00  ZX  0.0           C  9.941233E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      13       58  X -4.546736E+00  XY -3.913499E+00  A  3.804363E+01  LX  0.09 1.00 0.0   -1.435950E+01   1.781041E+01            \r\n                    Y  3.768403E+01  YZ  0.0           B -4.906337E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.941207E+00  ZX  0.0           C  9.941210E+00  LZ  0.0  0.0  1.00                                          \r\n0      13       57  X -3.070618E+00  XY -4.091303E+00  A  4.145561E+01  LX  0.09 1.00 0.0   -1.647057E+01   1.867822E+01            \r\n                    Y  4.107968E+01  YZ  0.0           B -3.446551E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.140266E+01  ZX  0.0           C  1.140267E+01  LZ  0.0  0.0  1.00                                          \r\n0      13       45  X -3.404575E+00  XY -1.370623E+00  A  4.145563E+01  LX  0.03 1.00 0.0   -1.647064E+01   1.867818E+01            \r\n                    Y  4.141375E+01  YZ  0.0           B -3.446455E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140276E+01  LZ  0.0  0.0  1.00                                          \r\n0      13       46  X -4.866205E+00  XY -1.311039E+00  A  3.804379E+01  LX  0.03 1.00 0.0   -1.435963E+01   1.781044E+01            \r\n                    Y  3.800373E+01  YZ  0.0           B -4.906261E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.941342E+00  ZX  0.0           C  9.941350E+00  LZ  0.0  0.0  1.00                                          \r\n0      13       64  X -4.546403E+00  XY -3.913457E+00  A  3.804391E+01  LX  0.09 1.00 0.0   -1.435974E+01   1.781040E+01            \r\n                    Y  3.768432E+01  YZ  0.0           B -4.906000E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.941296E+00  ZX  0.0           C  9.941306E+00  LZ  0.0  0.0  1.00                                          \r\n0      13       63  X -3.070669E+00  XY -4.091335E+00  A  4.145551E+01  LX  0.09 1.00 0.0   -1.647053E+01   1.867819E+01            \r\n                    Y  4.107957E+01  YZ  0.0           B -3.446606E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.140269E+01  ZX  0.0           C  1.140269E+01  LZ  0.0  0.0  1.00                                          \r\n0      13        0  X -3.971981E+00  XY -2.671620E+00  A  3.970871E+01  LX  0.06 1.00 0.0   -1.541511E+01   1.821078E+01            \r\n                    Y  3.954531E+01  YZ  0.0           B -4.135385E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067199E+01  ZX  0.0           C  1.067200E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       40  X -1.669251E+00  XY -1.255260E+00  A  3.941447E+01  LX  0.03 1.00 0.0   -1.633964E+01   1.716030E+01            \r\n                    Y  3.937612E+01  YZ  0.0           B -1.707605E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.131204E+01  ZX  0.0           C  1.131204E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       41  X -2.951932E+00  XY -1.202959E+00  A  3.642012E+01  LX  0.03 1.00 0.0   -1.448697E+01   1.639442E+01            \r\n                    Y  3.638337E+01  YZ  0.0           B -2.988688E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.002946E+01  ZX  0.0           C  1.002947E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       59  X -2.658801E+00  XY -3.590794E+00  A  3.642011E+01  LX  0.09 1.00 0.0   -1.448693E+01   1.639444E+01            \r\n                    Y  3.609017E+01  YZ  0.0           B -2.988745E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.002941E+01  ZX  0.0           C  1.002942E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       58  X -1.363514E+00  XY -3.746939E+00  A  3.941443E+01  LX  0.09 1.00 0.0   -1.633952E+01   1.716036E+01            \r\n                    Y  3.907014E+01  YZ  0.0           B -1.707807E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.131193E+01  ZX  0.0           C  1.131194E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      14       46  X -1.669373E+00  XY -1.255256E+00  A  3.941443E+01  LX  0.03 1.00 0.0   -1.633957E+01   1.716033E+01            \r\n                    Y  3.937608E+01  YZ  0.0           B -1.707723E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.131201E+01  ZX  0.0           C  1.131201E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       47  X -2.951972E+00  XY -1.202963E+00  A  3.642004E+01  LX  0.03 1.00 0.0   -1.448689E+01   1.639441E+01            \r\n                    Y  3.638329E+01  YZ  0.0           B -2.988727E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.002937E+01  ZX  0.0           C  1.002937E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       65  X -2.658952E+00  XY -3.590812E+00  A  3.642009E+01  LX  0.09 1.00 0.0   -1.448688E+01   1.639448E+01            \r\n                    Y  3.609015E+01  YZ  0.0           B -2.988897E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.002943E+01  ZX  0.0           C  1.002944E+01  LZ  0.0  0.0  1.00                                          \r\n0      14       64  X -1.363212E+00  XY -3.746920E+00  A  3.941459E+01  LX  0.09 1.00 0.0   -1.633973E+01   1.716031E+01            \r\n                    Y  3.907030E+01  YZ  0.0           B -1.707505E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.131211E+01  ZX  0.0           C  1.131211E+01  LZ  0.0  0.0  1.00                                          \r\n0      14        0  X -2.160876E+00  XY -2.448988E+00  A  3.787974E+01  LX  0.06 1.00 0.0   -1.541327E+01   1.674686E+01            \r\n                    Y  3.772995E+01  YZ  0.0           B -2.310665E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067072E+01  ZX  0.0           C  1.067072E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       41  X -1.389500E-01  XY -1.153847E+00  A  3.762617E+01  LX  0.03 1.00 0.0   -1.622919E+01   1.583075E+01            \r\n                    Y  3.759092E+01  YZ  0.0           B -1.742062E-01  LY -1.00 0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       42  X -1.270707E+00  XY -1.107705E+00  A  3.498373E+01  LX  0.03 1.00 0.0   -1.459432E+01   1.515109E+01            \r\n                    Y  3.494988E+01  YZ  0.0           B -1.304554E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.010380E+01  ZX  0.0           C  1.010380E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       60  X -1.000982E+00  XY -3.306457E+00  A  3.498371E+01  LX  0.09 1.00 0.0   -1.459419E+01   1.515119E+01            \r\n                    Y  3.467990E+01  YZ  0.0           B -1.304796E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.010367E+01  ZX  0.0           C  1.010366E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       59  X  1.425155E-01  XY -3.444238E+00  A  3.762608E+01  LX  0.09 1.00 0.0   -1.622923E+01   1.583063E+01            \r\n                    Y  3.730960E+01  YZ  0.0           B -1.739643E-01  LY -1.00 0.09 0.0                                           \r\n                    Z  1.123556E+01  ZX  0.0           C  1.123556E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       47  X -1.390444E-01  XY -1.153878E+00  A  3.762612E+01  LX  0.03 1.00 0.0   -1.622914E+01   1.583076E+01            \r\n                    Y  3.759087E+01  YZ  0.0           B -1.743022E-01  LY -1.00 0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       48  X -1.270686E+00  XY -1.107688E+00  A  3.498372E+01  LX  0.03 1.00 0.0   -1.459429E+01   1.515109E+01            \r\n                    Y  3.494987E+01  YZ  0.0           B -1.304530E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.010369E+01  ZX  0.0           C  1.010370E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      15       66  X -1.000765E+00  XY -3.306450E+00  A  3.498368E+01  LX  0.09 1.00 0.0   -1.459431E+01   1.515108E+01            \r\n                    Y  3.467986E+01  YZ  0.0           B -1.304583E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.010383E+01  ZX  0.0           C  1.010383E+01  LZ  0.0  0.0  1.00                                          \r\n0      15       65  X  1.426059E-01  XY -3.444229E+00  A  3.762623E+01  LX  0.09 1.00 0.0   -1.622934E+01   1.583066E+01            \r\n                    Y  3.730975E+01  YZ  0.0           B -1.738749E-01  LY -1.00 0.09 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n0      15        0  X -5.670016E-01  XY -2.253062E+00  A  3.627039E+01  LX  0.06 1.00 0.0   -1.541175E+01   1.546301E+01            \r\n                    Y  3.613258E+01  YZ  0.0           B -7.048067E-01  LY -1.00 0.06 0.0                                           \r\n                    Z  1.066967E+01  ZX  0.0           C  1.066967E+01  LZ  0.0  0.0  1.00                                          \r\n0      16       55  X -6.447991E+00  XY -8.150861E+00  A  4.650864E+01  LX  0.15 0.99 0.0   -1.681602E+01   2.243199E+01            \r\n                    Y  4.525410E+01  YZ  0.0           B -7.702540E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.164194E+01  ZX  0.0           C  1.164194E+01  LZ  0.0  0.0  1.00                                          \r\n0      16       56  X -8.437662E+00  XY -7.762743E+00  A  4.199734E+01  LX  0.15 0.99 0.0   -1.402477E+01   2.129751E+01            \r\n                    Y  4.080252E+01  YZ  0.0           B -9.632472E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.709441E+00  ZX  0.0           C  9.709437E+00  LZ  0.0  0.0  1.00                                          \r\n0      16       74  X -7.308058E+00  XY -1.070514E+01  A  4.199718E+01  LX  0.21 0.98 0.0   -1.402476E+01   2.129740E+01            \r\n                    Y  3.967288E+01  YZ  0.0           B -9.632358E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.709444E+00  ZX  0.0           C  9.709447E+00  LZ  0.0  0.0  1.00                                          \r\n0      16       73  X -5.261737E+00  XY -1.124039E+01  A  4.650871E+01  LX  0.21 0.98 0.0   -1.681612E+01   2.243192E+01            \r\n                    Y  4.406820E+01  YZ  0.0           B -7.702252E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      16       61  X -6.447934E+00  XY -8.150843E+00  A  4.650863E+01  LX  0.15 0.99 0.0   -1.681600E+01   2.243197E+01            \r\n                    Y  4.525409E+01  YZ  0.0           B -7.702472E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.164184E+01  ZX  0.0           C  1.164184E+01  LZ  0.0  0.0  1.00                                          \r\n0      16       62  X -8.437500E+00  XY -7.762682E+00  A  4.199716E+01  LX  0.15 0.99 0.0   -1.402480E+01   2.129736E+01            \r\n                    Y  4.080237E+01  YZ  0.0           B -9.632298E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.709517E+00  ZX  0.0           C  9.709520E+00  LZ  0.0  0.0  1.00                                          \r\n0      16       80  X -7.307952E+00  XY -1.070515E+01  A  4.199731E+01  LX  0.21 0.98 0.0   -1.402485E+01   2.129741E+01            \r\n                    Y  3.967301E+01  YZ  0.0           B -9.632254E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.709495E+00  ZX  0.0           C  9.709496E+00  LZ  0.0  0.0  1.00                                          \r\n0      16       79  X -5.261828E+00  XY -1.124040E+01  A  4.650865E+01  LX  0.21 0.98 0.0   -1.681608E+01   2.243192E+01            \r\n                    Y  4.406814E+01  YZ  0.0           B -7.702345E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.164194E+01  ZX  0.0           C  1.164195E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      16        0  X -6.863833E+00  XY -9.464778E+00  A  4.420361E+01  LX  0.18 0.98 0.0   -1.542043E+01   2.182377E+01            \r\n                    Y  4.244942E+01  YZ  0.0           B -8.618024E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067569E+01  ZX  0.0           C  1.067569E+01  LZ  0.0  0.0  1.00                                          \r\n0      17       56  X -4.289547E+00  XY -7.401642E+00  A  4.379949E+01  LX  0.15 0.99 0.0   -1.662735E+01   2.042035E+01            \r\n                    Y  4.266026E+01  YZ  0.0           B -5.428777E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.151133E+01  ZX  0.0           C  1.151133E+01  LZ  0.0  0.0  1.00                                          \r\n0      17       57  X -6.014280E+00  XY -7.065206E+00  A  3.988877E+01  LX  0.15 0.99 0.0   -1.420772E+01   1.943124E+01            \r\n                    Y  3.880132E+01  YZ  0.0           B -7.101728E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.836125E+00  ZX  0.0           C  9.836129E+00  LZ  0.0  0.0  1.00                                          \r\n0      17       75  X -4.986279E+00  XY -9.743273E+00  A  3.988882E+01  LX  0.21 0.98 0.0   -1.420772E+01   1.943127E+01            \r\n                    Y  3.777337E+01  YZ  0.0           B -7.101737E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.836079E+00  ZX  0.0           C  9.836083E+00  LZ  0.0  0.0  1.00                                          \r\n0      17       74  X -3.212636E+00  XY -1.020727E+01  A  4.379926E+01  LX  0.21 0.98 0.0   -1.662715E+01   2.042029E+01            \r\n                    Y  4.158304E+01  YZ  0.0           B -5.428843E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.151105E+01  ZX  0.0           C  1.151105E+01  LZ  0.0  0.0  1.00                                          \r\n0      17       62  X -4.289447E+00  XY -7.401594E+00  A  4.379947E+01  LX  0.15 0.99 0.0   -1.662736E+01   2.042030E+01            \r\n                    Y  4.266025E+01  YZ  0.0           B -5.428667E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.151128E+01  ZX  0.0           C  1.151128E+01  LZ  0.0  0.0  1.00                                          \r\n0      17       63  X -6.014262E+00  XY -7.065218E+00  A  3.988875E+01  LX  0.15 0.99 0.0   -1.420770E+01   1.943124E+01            \r\n                    Y  3.880130E+01  YZ  0.0           B -7.101717E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.836059E+00  ZX  0.0           C  9.836068E+00  LZ  0.0  0.0  1.00                                          \r\n0      17       81  X -4.986399E+00  XY -9.743288E+00  A  3.988883E+01  LX  0.21 0.98 0.0   -1.420771E+01   1.943132E+01            \r\n                    Y  3.777337E+01  YZ  0.0           B -7.101860E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.836139E+00  ZX  0.0           C  9.836145E+00  LZ  0.0  0.0  1.00                                          \r\n0      17       80  X -3.212860E+00  XY -1.020726E+01  A  4.379925E+01  LX  0.21 0.98 0.0   -1.662708E+01   2.042036E+01            \r\n                    Y  4.158305E+01  YZ  0.0           B -5.429059E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.151105E+01  ZX  0.0           C  1.151106E+01  LZ  0.0  0.0  1.00                                          \r\n0      17        0  X -4.625714E+00  XY -8.604343E+00  A  4.179921E+01  LX  0.18 0.98 0.0   -1.541747E+01   1.988885E+01            \r\n                    Y  4.020450E+01  YZ  0.0           B -6.220437E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067364E+01  ZX  0.0           C  1.067365E+01  LZ  0.0  0.0  1.00                                          \r\n0      18       57  X -2.407416E+00  XY -6.751181E+00  A  4.145557E+01  LX  0.15 0.99 0.0   -1.647060E+01   1.867818E+01            \r\n                    Y  4.041646E+01  YZ  0.0           B -3.446524E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.140275E+01  ZX  0.0           C  1.140275E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      18       58  X -3.912360E+00  XY -6.457686E+00  A  3.804369E+01  LX  0.15 0.99 0.0   -1.435951E+01   1.781042E+01            \r\n                    Y  3.704975E+01  YZ  0.0           B -4.906299E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.941144E+00  ZX  0.0           C  9.941146E+00  LZ  0.0  0.0  1.00                                          \r\n0      18       76  X -2.972674E+00  XY -8.905455E+00  A  3.804382E+01  LX  0.21 0.98 0.0   -1.435964E+01   1.781044E+01            \r\n                    Y  3.611028E+01  YZ  0.0           B -4.906217E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.941318E+00  ZX  0.0           C  9.941320E+00  LZ  0.0  0.0  1.00                                          \r\n0      18       75  X -1.424910E+00  XY -9.310263E+00  A  4.145557E+01  LX  0.21 0.98 0.0   -1.647065E+01   1.867813E+01            \r\n                    Y  3.943411E+01  YZ  0.0           B -3.446368E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.140274E+01  ZX  0.0           C  1.140274E+01  LZ  0.0  0.0  1.00                                          \r\n0      18       63  X -2.407360E+00  XY -6.751261E+00  A  4.145552E+01  LX  0.15 0.99 0.0   -1.647055E+01   1.867817E+01            \r\n                    Y  4.041638E+01  YZ  0.0           B -3.446500E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.140263E+01  ZX  0.0           C  1.140262E+01  LZ  0.0  0.0  1.00                                          \r\n0      18       64  X -3.912142E+00  XY -6.457650E+00  A  3.804378E+01  LX  0.15 0.99 0.0   -1.435967E+01   1.781037E+01            \r\n                    Y  3.704985E+01  YZ  0.0           B -4.906075E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.941298E+00  ZX  0.0           C  9.941304E+00  LZ  0.0  0.0  1.00                                          \r\n0      18       82  X -2.972641E+00  XY -8.905495E+00  A  3.804374E+01  LX  0.21 0.98 0.0   -1.435961E+01   1.781040E+01            \r\n                    Y  3.611017E+01  YZ  0.0           B -4.906206E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.941302E+00  ZX  0.0           C  9.941311E+00  LZ  0.0  0.0  1.00                                          \r\n0      18       81  X -1.425248E+00  XY -9.310236E+00  A  4.145552E+01  LX  0.21 0.98 0.0   -1.647050E+01   1.867822E+01            \r\n                    Y  3.943409E+01  YZ  0.0           B -3.446681E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.140267E+01  ZX  0.0           C  1.140267E+01  LZ  0.0  0.0  1.00                                          \r\n0      18        0  X -2.679344E+00  XY -7.856153E+00  A  3.970869E+01  LX  0.18 0.98 0.0   -1.541509E+01   1.821078E+01            \r\n                    Y  3.825264E+01  YZ  0.0           B -4.135399E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067198E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       58  X -7.559631E-01  XY -6.182885E+00  A  3.941452E+01  LX  0.15 0.99 0.0   -1.633965E+01   1.716032E+01            \r\n                    Y  3.846287E+01  YZ  0.0           B -1.707608E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.131203E+01  ZX  0.0           C  1.131203E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       59  X -2.076752E+00  XY -5.925269E+00  A  3.642009E+01  LX  0.15 0.99 0.0   -1.448693E+01   1.639443E+01            \r\n                    Y  3.550809E+01  YZ  0.0           B -2.988746E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.002946E+01  ZX  0.0           C  1.002946E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       77  X -1.214674E+00  XY -8.171244E+00  A  3.642007E+01  LX  0.21 0.98 0.0   -1.448687E+01   1.639445E+01            \r\n                    Y  3.464593E+01  YZ  0.0           B -2.988816E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.002936E+01  ZX  0.0           C  1.002937E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      19       76  X  1.434554E-01  XY -8.526519E+00  A  3.941451E+01  LX  0.21 0.98 0.0   -1.633958E+01   1.716039E+01            \r\n                    Y  3.756325E+01  YZ  0.0           B -1.707819E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.131204E+01  ZX  0.0           C  1.131205E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       64  X -7.560387E-01  XY -6.182858E+00  A  3.941451E+01  LX  0.15 0.99 0.0   -1.633962E+01   1.716034E+01            \r\n                    Y  3.846287E+01  YZ  0.0           B -1.707673E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.131204E+01  ZX  0.0           C  1.131204E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       65  X -2.076801E+00  XY -5.925259E+00  A  3.642009E+01  LX  0.15 0.99 0.0   -1.448689E+01   1.639445E+01            \r\n                    Y  3.550809E+01  YZ  0.0           B -2.988788E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.002936E+01  ZX  0.0           C  1.002936E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       83  X -1.214617E+00  XY -8.171262E+00  A  3.642010E+01  LX  0.21 0.98 0.0   -1.448692E+01   1.639445E+01            \r\n                    Y  3.464596E+01  YZ  0.0           B -2.988765E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.002942E+01  ZX  0.0           C  1.002942E+01  LZ  0.0  0.0  1.00                                          \r\n0      19       82  X  1.436092E-01  XY -8.526481E+00  A  3.941450E+01  LX  0.21 0.98 0.0   -1.633962E+01   1.716033E+01            \r\n                    Y  3.756324E+01  YZ  0.0           B -1.707659E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.131201E+01  ZX  0.0           C  1.131201E+01  LZ  0.0  0.0  1.00                                          \r\n0      19        0  X -9.759728E-01  XY -7.201473E+00  A  3.787975E+01  LX  0.18 0.98 0.0   -1.541326E+01   1.674687E+01            \r\n                    Y  3.654504E+01  YZ  0.0           B -2.310685E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067072E+01  ZX  0.0           C  1.067071E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       59  X  7.009242E-01  XY -5.683420E+00  A  3.762620E+01  LX  0.15 0.99 0.0   -1.622933E+01   1.583064E+01            \r\n                    Y  3.675143E+01  YZ  0.0           B -1.738502E-01  LY -0.99 0.15 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       60  X -4.648032E-01  XY -5.456080E+00  A  3.498375E+01  LX  0.15 0.99 0.0   -1.459431E+01   1.515111E+01            \r\n                    Y  3.414397E+01  YZ  0.0           B -1.304577E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.010377E+01  ZX  0.0           C  1.010377E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       78  X  3.291521E-01  XY -7.524220E+00  A  3.498374E+01  LX  0.21 0.98 0.0   -1.459434E+01   1.515108E+01            \r\n                    Y  3.335007E+01  YZ  0.0           B -1.304510E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.010379E+01  ZX  0.0           C  1.010380E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       77  X  1.527491E+00  XY -7.837722E+00  A  3.762610E+01  LX  0.21 0.98 0.0   -1.622913E+01   1.583074E+01            \r\n                    Y  3.592437E+01  YZ  0.0           B -1.742332E-01  LY -0.98 0.21 0.0                                           \r\n                    Z  1.123553E+01  ZX  0.0           C  1.123553E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       65  X  7.005276E-01  XY -5.683405E+00  A  3.762613E+01  LX  0.15 0.99 0.0   -1.622916E+01   1.583075E+01            \r\n                    Y  3.675137E+01  YZ  0.0           B -1.742376E-01  LY -0.99 0.15 0.0                                           \r\n                    Z  1.123559E+01  ZX  0.0           C  1.123559E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      20       66  X -4.646621E-01  XY -5.456085E+00  A  3.498379E+01  LX  0.15 0.99 0.0   -1.459440E+01   1.515108E+01            \r\n                    Y  3.414401E+01  YZ  0.0           B -1.304439E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.010385E+01  ZX  0.0           C  1.010385E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       84  X  3.289979E-01  XY -7.524213E+00  A  3.498376E+01  LX  0.21 0.98 0.0   -1.459427E+01   1.515115E+01            \r\n                    Y  3.335011E+01  YZ  0.0           B -1.304654E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.010370E+01  ZX  0.0           C  1.010371E+01  LZ  0.0  0.0  1.00                                          \r\n0      20       83  X  1.527745E+00  XY -7.837724E+00  A  3.762621E+01  LX  0.21 0.98 0.0   -1.622931E+01   1.583068E+01            \r\n                    Y  3.592447E+01  YZ  0.0           B -1.739885E-01  LY -0.98 0.21 0.0                                           \r\n                    Z  1.123570E+01  ZX  0.0           C  1.123570E+01  LZ  0.0  0.0  1.00                                          \r\n0      20        0  X  5.231716E-01  XY -6.625359E+00  A  3.627042E+01  LX  0.18 0.98 0.0   -1.541178E+01   1.546300E+01            \r\n                    Y  3.504248E+01  YZ  0.0           B -7.047694E-01  LY -0.98 0.18 0.0                                           \r\n                    Z  1.066970E+01  ZX  0.0           C  1.066970E+01  LZ  0.0  0.0  1.00                                          \r\n0      21        7  X -5.261773E+00  XY  1.124047E+01  A  4.650879E+01  LX  0.21 0.98 0.0   -1.681615E+01   2.243197E+01            \r\n                    Y  4.406825E+01  YZ  0.0           B -7.702315E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.164196E+01  ZX  0.0           C  1.164197E+01  LZ  0.0  0.0  1.00                                          \r\n0      21        8  X -7.308180E+00  XY  1.070516E+01  A  4.199723E+01  LX  0.21 0.98 0.0   -1.402472E+01   2.129747E+01            \r\n                    Y  3.967293E+01  YZ  0.0           B -9.632483E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.709400E+00  ZX  0.0           C  9.709409E+00  LZ  0.0  0.0  1.00                                          \r\n0      21       26  X -8.437486E+00  XY  7.762687E+00  A  4.199744E+01  LX  0.15 0.99 0.0   -1.402492E+01   2.129747E+01            \r\n                    Y  4.080264E+01  YZ  0.0           B -9.632278E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.709592E+00  ZX  0.0           C  9.709592E+00  LZ  0.0  0.0  1.00                                          \r\n0      21       25  X -6.447939E+00  XY  8.150828E+00  A  4.650868E+01  LX  0.15 0.99 0.0   -1.681602E+01   2.243199E+01            \r\n                    Y  4.525414E+01  YZ  0.0           B -7.702480E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164188E+01  LZ  0.0  0.0  1.00                                          \r\n0      21       13  X -5.261611E+00  XY  1.124042E+01  A  4.650882E+01  LX  0.21 0.98 0.0   -1.681622E+01   2.243192E+01            \r\n                    Y  4.406829E+01  YZ  0.0           B -7.702136E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.164199E+01  ZX  0.0           C  1.164199E+01  LZ  0.0  0.0  1.00                                          \r\n0      21       14  X -7.308160E+00  XY  1.070515E+01  A  4.199729E+01  LX  0.21 0.98 0.0   -1.402478E+01   2.129748E+01            \r\n                    Y  3.967300E+01  YZ  0.0           B -9.632454E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.709500E+00  ZX  0.0           C  9.709498E+00  LZ  0.0  0.0  1.00                                          \r\n0      21       32  X -8.437604E+00  XY  7.762742E+00  A  4.199728E+01  LX  0.15 0.99 0.0   -1.402478E+01   2.129746E+01            \r\n                    Y  4.080247E+01  YZ  0.0           B -9.632417E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.709466E+00  ZX  0.0           C  9.709470E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      21       31  X -6.447938E+00  XY  8.150821E+00  A  4.650867E+01  LX  0.15 0.99 0.0   -1.681603E+01   2.243198E+01            \r\n                    Y  4.525414E+01  YZ  0.0           B -7.702474E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      21        0  X -6.863837E+00  XY  9.464785E+00  A  4.420368E+01  LX  0.18 0.98 0.0   -1.542045E+01   2.182380E+01            \r\n                    Y  4.244949E+01  YZ  0.0           B -8.618029E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067571E+01  ZX  0.0           C  1.067571E+01  LZ  0.0  0.0  1.00                                          \r\n0      22        8  X -3.212638E+00  XY  1.020726E+01  A  4.379932E+01  LX  0.21 0.98 0.0   -1.662721E+01   2.042031E+01            \r\n                    Y  4.158311E+01  YZ  0.0           B -5.428841E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151115E+01  LZ  0.0  0.0  1.00                                          \r\n0      22        9  X -4.986290E+00  XY  9.743331E+00  A  3.988884E+01  LX  0.21 0.98 0.0   -1.420771E+01   1.943130E+01            \r\n                    Y  3.777337E+01  YZ  0.0           B -7.101770E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.836070E+00  ZX  0.0           C  9.836070E+00  LZ  0.0  0.0  1.00                                          \r\n0      22       27  X -6.014593E+00  XY  7.065217E+00  A  3.988871E+01  LX  0.15 0.99 0.0   -1.420757E+01   1.943134E+01            \r\n                    Y  3.880127E+01  YZ  0.0           B -7.102040E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.836025E+00  ZX  0.0           C  9.836030E+00  LZ  0.0  0.0  1.00                                          \r\n0      22       26  X -4.289634E+00  XY  7.401616E+00  A  4.379949E+01  LX  0.15 0.99 0.0   -1.662726E+01   2.042039E+01            \r\n                    Y  4.266027E+01  YZ  0.0           B -5.428847E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.151113E+01  ZX  0.0           C  1.151113E+01  LZ  0.0  0.0  1.00                                          \r\n0      22       14  X -3.212891E+00  XY  1.020729E+01  A  4.379936E+01  LX  0.21 0.98 0.0   -1.662711E+01   2.042043E+01            \r\n                    Y  4.158315E+01  YZ  0.0           B -5.429098E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.151107E+01  ZX  0.0           C  1.151107E+01  LZ  0.0  0.0  1.00                                          \r\n0      22       15  X -4.986540E+00  XY  9.743314E+00  A  3.988868E+01  LX  0.21 0.98 0.0   -1.420757E+01   1.943131E+01            \r\n                    Y  3.777320E+01  YZ  0.0           B -7.102013E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.836053E+00  ZX  0.0           C  9.836055E+00  LZ  0.0  0.0  1.00                                          \r\n0      22       33  X -6.014266E+00  XY  7.065208E+00  A  3.988883E+01  LX  0.15 0.99 0.0   -1.420771E+01   1.943127E+01            \r\n                    Y  3.880138E+01  YZ  0.0           B -7.101716E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.836017E+00  ZX  0.0           C  9.836019E+00  LZ  0.0  0.0  1.00                                          \r\n0      22       32  X -4.289722E+00  XY  7.401639E+00  A  4.379939E+01  LX  0.15 0.99 0.0   -1.662723E+01   2.042037E+01            \r\n                    Y  4.266017E+01  YZ  0.0           B -5.428944E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.151125E+01  ZX  0.0           C  1.151125E+01  LZ  0.0  0.0  1.00                                          \r\n0      22        0  X -4.625822E+00  XY  8.604360E+00  A  4.179921E+01  LX  0.18 0.98 0.0   -1.541742E+01   1.988890E+01            \r\n                    Y  4.020449E+01  YZ  0.0           B -6.220546E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067360E+01  ZX  0.0           C  1.067360E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      23        9  X -1.424954E+00  XY  9.310253E+00  A  4.145556E+01  LX  0.21 0.98 0.0   -1.647064E+01   1.867814E+01            \r\n                    Y  3.943411E+01  YZ  0.0           B -3.446404E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140277E+01  LZ  0.0  0.0  1.00                                          \r\n0      23       10  X -2.972486E+00  XY  8.905501E+00  A  3.804379E+01  LX  0.21 0.98 0.0   -1.435970E+01   1.781036E+01            \r\n                    Y  3.611021E+01  YZ  0.0           B -4.906059E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.941361E+00  ZX  0.0           C  9.941369E+00  LZ  0.0  0.0  1.00                                          \r\n0      23       28  X -3.912252E+00  XY  6.457649E+00  A  3.804381E+01  LX  0.15 0.99 0.0   -1.435962E+01   1.781043E+01            \r\n                    Y  3.704989E+01  YZ  0.0           B -4.906178E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.941213E+00  ZX  0.0           C  9.941214E+00  LZ  0.0  0.0  1.00                                          \r\n0      23       27  X -2.407589E+00  XY  6.751238E+00  A  4.145550E+01  LX  0.15 0.99 0.0   -1.647046E+01   1.867823E+01            \r\n                    Y  4.041638E+01  YZ  0.0           B -3.446714E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.140259E+01  ZX  0.0           C  1.140260E+01  LZ  0.0  0.0  1.00                                          \r\n0      23       15  X -1.425101E+00  XY  9.310243E+00  A  4.145564E+01  LX  0.21 0.98 0.0   -1.647062E+01   1.867822E+01            \r\n                    Y  3.943420E+01  YZ  0.0           B -3.446535E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.140275E+01  ZX  0.0           C  1.140276E+01  LZ  0.0  0.0  1.00                                          \r\n0      23       16  X -2.972355E+00  XY  8.905477E+00  A  3.804378E+01  LX  0.21 0.98 0.0   -1.435970E+01   1.781032E+01            \r\n                    Y  3.611021E+01  YZ  0.0           B -4.905927E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  9.941252E+00  ZX  0.0           C  9.941255E+00  LZ  0.0  0.0  1.00                                          \r\n0      23       34  X -3.912313E+00  XY  6.457647E+00  A  3.804366E+01  LX  0.15 0.99 0.0   -1.435958E+01   1.781038E+01            \r\n                    Y  3.704973E+01  YZ  0.0           B -4.906243E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  9.941315E+00  ZX  0.0           C  9.941319E+00  LZ  0.0  0.0  1.00                                          \r\n0      23       33  X -2.407286E+00  XY  6.751226E+00  A  4.145551E+01  LX  0.15 0.99 0.0   -1.647058E+01   1.867813E+01            \r\n                    Y  4.041639E+01  YZ  0.0           B -3.446417E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.140263E+01  ZX  0.0           C  1.140263E+01  LZ  0.0  0.0  1.00                                          \r\n0      23        0  X -2.679292E+00  XY  7.856154E+00  A  3.970870E+01  LX  0.18 0.98 0.0   -1.541511E+01   1.821077E+01            \r\n                    Y  3.825264E+01  YZ  0.0           B -4.135346E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067198E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       10  X  1.435238E-01  XY  8.526462E+00  A  3.941454E+01  LX  0.21 0.98 0.0   -1.633962E+01   1.716037E+01            \r\n                    Y  3.756329E+01  YZ  0.0           B -1.707729E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.131205E+01  ZX  0.0           C  1.131205E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       11  X -1.214677E+00  XY  8.171263E+00  A  3.641996E+01  LX  0.21 0.98 0.0   -1.448684E+01   1.639440E+01            \r\n                    Y  3.464580E+01  YZ  0.0           B -2.988827E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      24       29  X -2.076726E+00  XY  5.925210E+00  A  3.642004E+01  LX  0.15 0.99 0.0   -1.448692E+01   1.639439E+01            \r\n                    Y  3.550806E+01  YZ  0.0           B -2.988704E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.002943E+01  ZX  0.0           C  1.002943E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       28  X -7.559077E-01  XY  6.182889E+00  A  3.941457E+01  LX  0.15 0.99 0.0   -1.633973E+01   1.716031E+01            \r\n                    Y  3.846292E+01  YZ  0.0           B -1.707557E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.131219E+01  ZX  0.0           C  1.131219E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       16  X  1.435371E-01  XY  8.526529E+00  A  3.941443E+01  LX  0.21 0.98 0.0   -1.633955E+01   1.716034E+01            \r\n                    Y  3.756314E+01  YZ  0.0           B -1.707749E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.131198E+01  ZX  0.0           C  1.131198E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       17  X -1.214686E+00  XY  8.171243E+00  A  3.642010E+01  LX  0.21 0.98 0.0   -1.448690E+01   1.639446E+01            \r\n                    Y  3.464597E+01  YZ  0.0           B -2.988824E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.002940E+01  ZX  0.0           C  1.002941E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       35  X -2.076760E+00  XY  5.925263E+00  A  3.641998E+01  LX  0.15 0.99 0.0   -1.448687E+01   1.639439E+01            \r\n                    Y  3.550799E+01  YZ  0.0           B -2.988754E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.002937E+01  ZX  0.0           C  1.002938E+01  LZ  0.0  0.0  1.00                                          \r\n0      24       34  X -7.557735E-01  XY  6.182809E+00  A  3.941458E+01  LX  0.15 0.99 0.0   -1.633976E+01   1.716027E+01            \r\n                    Y  3.846295E+01  YZ  0.0           B -1.707399E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.131209E+01  ZX  0.0           C  1.131209E+01  LZ  0.0  0.0  1.00                                          \r\n0      24        0  X -9.759337E-01  XY  7.201459E+00  A  3.787973E+01  LX  0.18 0.98 0.0   -1.541327E+01   1.674685E+01            \r\n                    Y  3.654502E+01  YZ  0.0           B -2.310645E+00  LY  0.98-0.18 0.0                                           \r\n                    Z  1.067074E+01  ZX  0.0           C  1.067073E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       11  X  1.527696E+00  XY  7.837735E+00  A  3.762611E+01  LX  0.21 0.98 0.0   -1.622922E+01   1.583067E+01            \r\n                    Y  3.592436E+01  YZ  0.0           B -1.740426E-01  LY  0.98-0.21 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       12  X  3.292457E-01  XY  7.524268E+00  A  3.498370E+01  LX  0.21 0.98 0.0   -1.459434E+01   1.515105E+01            \r\n                    Y  3.335001E+01  YZ  0.0           B -1.304445E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.010376E+01  ZX  0.0           C  1.010377E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       30  X -4.648218E-01  XY  5.456042E+00  A  3.498368E+01  LX  0.15 0.99 0.0   -1.459428E+01   1.515109E+01            \r\n                    Y  3.414391E+01  YZ  0.0           B -1.304586E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.010373E+01  ZX  0.0           C  1.010373E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       29  X  7.005937E-01  XY  5.683388E+00  A  3.762611E+01  LX  0.15 0.99 0.0   -1.622919E+01   1.583071E+01            \r\n                    Y  3.675135E+01  YZ  0.0           B -1.741652E-01  LY  0.99-0.15 0.0                                           \r\n                    Z  1.123564E+01  ZX  0.0           C  1.123563E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      25       17  X  1.527790E+00  XY  7.837706E+00  A  3.762617E+01  LX  0.21 0.98 0.0   -1.622929E+01   1.583066E+01            \r\n                    Y  3.592444E+01  YZ  0.0           B -1.739381E-01  LY  0.98-0.21 0.0                                           \r\n                    Z  1.123564E+01  ZX  0.0           C  1.123564E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       18  X  3.291441E-01  XY  7.524168E+00  A  3.498369E+01  LX  0.21 0.98 0.0   -1.459432E+01   1.515106E+01            \r\n                    Y  3.335005E+01  YZ  0.0           B -1.304499E+00  LY  0.98-0.21 0.0                                           \r\n                    Z  1.010378E+01  ZX  0.0           C  1.010378E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       36  X -4.647096E-01  XY  5.456096E+00  A  3.498372E+01  LX  0.15 0.99 0.0   -1.459434E+01   1.515107E+01            \r\n                    Y  3.414394E+01  YZ  0.0           B -1.304492E+00  LY  0.99-0.15 0.0                                           \r\n                    Z  1.010379E+01  ZX  0.0           C  1.010379E+01  LZ  0.0  0.0  1.00                                          \r\n0      25       35  X  7.007303E-01  XY  5.683423E+00  A  3.762606E+01  LX  0.15 0.99 0.0   -1.622919E+01   1.583065E+01            \r\n                    Y  3.675128E+01  YZ  0.0           B -1.740444E-01  LY  0.99-0.15 0.0                                           \r\n                    Z  1.123555E+01  ZX  0.0           C  1.123555E+01  LZ  0.0  0.0  1.00                                          \r\n0      25        0  X  5.232086E-01  XY  6.625354E+00  A  3.627036E+01  LX  0.18 0.98 0.0   -1.541177E+01   1.546296E+01            \r\n                    Y  3.504242E+01  YZ  0.0           B -7.047337E-01  LY  0.98-0.18 0.0                                           \r\n                    Z  1.066969E+01  ZX  0.0           C  1.066969E+01  LZ  0.0  0.0  1.00                                          \r\n0      26       25  X -7.248496E+00  XY  4.939541E+00  A  4.650864E+01  LX  0.09 1.00 0.0   -1.681605E+01   2.243193E+01            \r\n                    Y  4.605476E+01  YZ  0.0           B -7.702374E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164189E+01  LZ  0.0  0.0  1.00                                          \r\n0      26       26  X -9.200280E+00  XY  4.704349E+00  A  4.199725E+01  LX  0.09 1.00 0.0   -1.402469E+01   2.129750E+01            \r\n                    Y  4.156499E+01  YZ  0.0           B -9.632548E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.709371E+00  ZX  0.0           C  9.709377E+00  LZ  0.0  0.0  1.00                                          \r\n0      26       44  X -9.583983E+00  XY  1.576010E+00  A  4.199737E+01  LX  0.03 1.00 0.0   -1.402493E+01   2.129739E+01            \r\n                    Y  4.194921E+01  YZ  0.0           B -9.632134E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.709567E+00  ZX  0.0           C  9.709569E+00  LZ  0.0  0.0  1.00                                          \r\n0      26       43  X -7.651737E+00  XY  1.654788E+00  A  4.650875E+01  LX  0.03 1.00 0.0   -1.681614E+01   2.243195E+01            \r\n                    Y  4.645818E+01  YZ  0.0           B -7.702299E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.164196E+01  ZX  0.0           C  1.164197E+01  LZ  0.0  0.0  1.00                                          \r\n0      26       31  X -7.248512E+00  XY  4.939535E+00  A  4.650867E+01  LX  0.09 1.00 0.0   -1.681604E+01   2.243195E+01            \r\n                    Y  4.605479E+01  YZ  0.0           B -7.702384E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.164184E+01  ZX  0.0           C  1.164184E+01  LZ  0.0  0.0  1.00                                          \r\n0      26       32  X -9.200150E+00  XY  4.704364E+00  A  4.199732E+01  LX  0.09 1.00 0.0   -1.402482E+01   2.129747E+01            \r\n                    Y  4.156505E+01  YZ  0.0           B -9.632417E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.709568E+00  ZX  0.0           C  9.709570E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      26       50  X -9.584345E+00  XY  1.575992E+00  A  4.199720E+01  LX  0.03 1.00 0.0   -1.402470E+01   2.129746E+01            \r\n                    Y  4.194905E+01  YZ  0.0           B -9.632498E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.709398E+00  ZX  0.0           C  9.709407E+00  LZ  0.0  0.0  1.00                                          \r\n0      26       49  X -7.651850E+00  XY  1.654799E+00  A  4.650871E+01  LX  0.03 1.00 0.0   -1.681606E+01   2.243198E+01            \r\n                    Y  4.645815E+01  YZ  0.0           B -7.702409E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164187E+01  LZ  0.0  0.0  1.00                                          \r\n0      26        0  X -8.421169E+00  XY  3.218672E+00  A  4.420364E+01  LX  0.06 1.00 0.0   -1.542043E+01   2.182379E+01            \r\n                    Y  4.400677E+01  YZ  0.0           B -8.618032E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067568E+01  ZX  0.0           C  1.067568E+01  LZ  0.0  0.0  1.00                                          \r\n0      27       26  X -5.016896E+00  XY  4.485518E+00  A  4.379942E+01  LX  0.09 1.00 0.0   -1.662717E+01   2.042043E+01            \r\n                    Y  4.338727E+01  YZ  0.0           B -5.429055E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.151113E+01  ZX  0.0           C  1.151114E+01  LZ  0.0  0.0  1.00                                          \r\n0      27       27  X -6.708273E+00  XY  4.281661E+00  A  3.988879E+01  LX  0.09 1.00 0.0   -1.420774E+01   1.943124E+01            \r\n                    Y  3.949536E+01  YZ  0.0           B -7.101703E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.836122E+00  ZX  0.0           C  9.836131E+00  LZ  0.0  0.0  1.00                                          \r\n0      27       45  X -7.057993E+00  XY  1.434386E+00  A  3.988884E+01  LX  0.03 1.00 0.0   -1.420769E+01   1.943131E+01            \r\n                    Y  3.984501E+01  YZ  0.0           B -7.101821E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.836050E+00  ZX  0.0           C  9.836053E+00  LZ  0.0  0.0  1.00                                          \r\n0      27       44  X -5.382915E+00  XY  1.502703E+00  A  4.379934E+01  LX  0.03 1.00 0.0   -1.662723E+01   2.042031E+01            \r\n                    Y  4.375343E+01  YZ  0.0           B -5.428827E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.151117E+01  ZX  0.0           C  1.151118E+01  LZ  0.0  0.0  1.00                                          \r\n0      27       32  X -5.016578E+00  XY  4.485515E+00  A  4.379934E+01  LX  0.09 1.00 0.0   -1.662725E+01   2.042028E+01            \r\n                    Y  4.338718E+01  YZ  0.0           B -5.428739E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.151116E+01  ZX  0.0           C  1.151117E+01  LZ  0.0  0.0  1.00                                          \r\n0      27       33  X -6.708583E+00  XY  4.281597E+00  A  3.988881E+01  LX  0.09 1.00 0.0   -1.420763E+01   1.943136E+01            \r\n                    Y  3.949540E+01  YZ  0.0           B -7.102002E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.836085E+00  ZX  0.0           C  9.836090E+00  LZ  0.0  0.0  1.00                                          \r\n0      27       51  X -7.057889E+00  XY  1.434396E+00  A  3.988876E+01  LX  0.03 1.00 0.0   -1.420771E+01   1.943124E+01            \r\n                    Y  3.984493E+01  YZ  0.0           B -7.101720E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.836075E+00  ZX  0.0           C  9.836075E+00  LZ  0.0  0.0  1.00                                          \r\n0      27       50  X -5.382978E+00  XY  1.502705E+00  A  4.379943E+01  LX  0.03 1.00 0.0   -1.662723E+01   2.042037E+01            \r\n                    Y  4.375351E+01  YZ  0.0           B -5.428893E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151114E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      27        0  X -6.041513E+00  XY  2.926060E+00  A  4.179923E+01  LX  0.06 1.00 0.0   -1.541746E+01   1.988888E+01            \r\n                    Y  4.162026E+01  YZ  0.0           B -6.220479E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067362E+01  ZX  0.0           C  1.067362E+01  LZ  0.0  0.0  1.00                                          \r\n0      28       27  X -3.070641E+00  XY  4.091352E+00  A  4.145561E+01  LX  0.09 1.00 0.0   -1.647057E+01   1.867823E+01            \r\n                    Y  4.107967E+01  YZ  0.0           B -3.446578E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.140269E+01  ZX  0.0           C  1.140269E+01  LZ  0.0  0.0  1.00                                          \r\n0      28       28  X -4.546559E+00  XY  3.913479E+00  A  3.804368E+01  LX  0.09 1.00 0.0   -1.435959E+01   1.781036E+01            \r\n                    Y  3.768408E+01  YZ  0.0           B -4.906160E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.941245E+00  ZX  0.0           C  9.941252E+00  LZ  0.0  0.0  1.00                                          \r\n0      28       46  X -4.866148E+00  XY  1.311069E+00  A  3.804366E+01  LX  0.03 1.00 0.0   -1.435957E+01   1.781037E+01            \r\n                    Y  3.800359E+01  YZ  0.0           B -4.906205E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.941252E+00  ZX  0.0           C  9.941250E+00  LZ  0.0  0.0  1.00                                          \r\n0      28       45  X -3.404596E+00  XY  1.370631E+00  A  4.145566E+01  LX  0.03 1.00 0.0   -1.647065E+01   1.867821E+01            \r\n                    Y  4.141378E+01  YZ  0.0           B -3.446477E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.140277E+01  ZX  0.0           C  1.140277E+01  LZ  0.0  0.0  1.00                                          \r\n0      28       33  X -3.070596E+00  XY  4.091346E+00  A  4.145552E+01  LX  0.09 1.00 0.0   -1.647056E+01   1.867817E+01            \r\n                    Y  4.107957E+01  YZ  0.0           B -3.446538E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.140271E+01  ZX  0.0           C  1.140271E+01  LZ  0.0  0.0  1.00                                          \r\n0      28       34  X -4.546688E+00  XY  3.913473E+00  A  3.804369E+01  LX  0.09 1.00 0.0   -1.435954E+01   1.781041E+01            \r\n                    Y  3.768409E+01  YZ  0.0           B -4.906283E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  9.941232E+00  ZX  0.0           C  9.941230E+00  LZ  0.0  0.0  1.00                                          \r\n0      28       52  X -4.866156E+00  XY  1.311056E+00  A  3.804376E+01  LX  0.03 1.00 0.0   -1.435960E+01   1.781042E+01            \r\n                    Y  3.800370E+01  YZ  0.0           B -4.906210E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  9.941265E+00  ZX  0.0           C  9.941266E+00  LZ  0.0  0.0  1.00                                          \r\n0      28       51  X -3.404576E+00  XY  1.370663E+00  A  4.145564E+01  LX  0.03 1.00 0.0   -1.647066E+01   1.867819E+01            \r\n                    Y  4.141377E+01  YZ  0.0           B -3.446453E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.140278E+01  ZX  0.0           C  1.140278E+01  LZ  0.0  0.0  1.00                                          \r\n0      28        0  X -3.971995E+00  XY  2.671634E+00  A  3.970869E+01  LX  0.06 1.00 0.0   -1.541509E+01   1.821078E+01            \r\n                    Y  3.954528E+01  YZ  0.0           B -4.135398E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067199E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       28  X -1.363455E+00  XY  3.746936E+00  A  3.941440E+01  LX  0.09 1.00 0.0   -1.633959E+01   1.716031E+01            \r\n                    Y  3.907011E+01  YZ  0.0           B -1.707753E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.131211E+01  ZX  0.0           C  1.131211E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      29       29  X -2.658633E+00  XY  3.590806E+00  A  3.642014E+01  LX  0.09 1.00 0.0   -1.448701E+01   1.639439E+01            \r\n                    Y  3.609020E+01  YZ  0.0           B -2.988579E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.002945E+01  ZX  0.0           C  1.002945E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       47  X -2.952033E+00  XY  1.202959E+00  A  3.642002E+01  LX  0.03 1.00 0.0   -1.448688E+01   1.639442E+01            \r\n                    Y  3.638327E+01  YZ  0.0           B -2.988786E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       46  X -1.669338E+00  XY  1.255262E+00  A  3.941450E+01  LX  0.03 1.00 0.0   -1.633959E+01   1.716035E+01            \r\n                    Y  3.937615E+01  YZ  0.0           B -1.707690E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.131196E+01  ZX  0.0           C  1.131197E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       34  X -1.363257E+00  XY  3.746926E+00  A  3.941466E+01  LX  0.09 1.00 0.0   -1.633975E+01   1.716036E+01            \r\n                    Y  3.907037E+01  YZ  0.0           B -1.707548E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.131214E+01  ZX  0.0           C  1.131214E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       35  X -2.658775E+00  XY  3.590794E+00  A  3.642007E+01  LX  0.09 1.00 0.0   -1.448694E+01   1.639441E+01            \r\n                    Y  3.609013E+01  YZ  0.0           B -2.988718E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.002948E+01  ZX  0.0           C  1.002947E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       53  X -2.951741E+00  XY  1.202937E+00  A  3.642014E+01  LX  0.03 1.00 0.0   -1.448701E+01   1.639437E+01            \r\n                    Y  3.638338E+01  YZ  0.0           B -2.988497E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.002939E+01  ZX  0.0           C  1.002939E+01  LZ  0.0  0.0  1.00                                          \r\n0      29       52  X -1.669341E+00  XY  1.255273E+00  A  3.941442E+01  LX  0.03 1.00 0.0   -1.633960E+01   1.716031E+01            \r\n                    Y  3.937608E+01  YZ  0.0           B -1.707695E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.131206E+01  ZX  0.0           C  1.131207E+01  LZ  0.0  0.0  1.00                                          \r\n0      29        0  X -2.160822E+00  XY  2.448987E+00  A  3.787975E+01  LX  0.06 1.00 0.0   -1.541330E+01   1.674684E+01            \r\n                    Y  3.772997E+01  YZ  0.0           B -2.310608E+00  LY  1.00-0.06 0.0                                           \r\n                    Z  1.067075E+01  ZX  0.0           C  1.067076E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       29  X  1.423912E-01  XY  3.444263E+00  A  3.762603E+01  LX  0.09 1.00 0.0   -1.622917E+01   1.583065E+01            \r\n                    Y  3.730954E+01  YZ  0.0           B -1.740919E-01  LY  1.00-0.09 0.0                                           \r\n                    Z  1.123556E+01  ZX  0.0           C  1.123557E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       30  X -1.000876E+00  XY  3.306464E+00  A  3.498368E+01  LX  0.09 1.00 0.0   -1.459424E+01   1.515113E+01            \r\n                    Y  3.467987E+01  YZ  0.0           B -1.304691E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.010373E+01  ZX  0.0           C  1.010374E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       48  X -1.270738E+00  XY  1.107717E+00  A  3.498372E+01  LX  0.03 1.00 0.0   -1.459428E+01   1.515111E+01            \r\n                    Y  3.494987E+01  YZ  0.0           B -1.304583E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.010369E+01  ZX  0.0           C  1.010369E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      30       47  X -1.388310E-01  XY  1.153862E+00  A  3.762612E+01  LX  0.03 1.00 0.0   -1.622922E+01   1.583069E+01            \r\n                    Y  3.759087E+01  YZ  0.0           B -1.740849E-01  LY  1.00-0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123561E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       35  X  1.426364E-01  XY  3.444251E+00  A  3.762624E+01  LX  0.09 1.00 0.0   -1.622935E+01   1.583065E+01            \r\n                    Y  3.730976E+01  YZ  0.0           B -1.738449E-01  LY  1.00-0.09 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       36  X -1.000798E+00  XY  3.306479E+00  A  3.498369E+01  LX  0.09 1.00 0.0   -1.459427E+01   1.515111E+01            \r\n                    Y  3.467987E+01  YZ  0.0           B -1.304620E+00  LY  1.00-0.09 0.0                                           \r\n                    Z  1.010372E+01  ZX  0.0           C  1.010373E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       54  X -1.270767E+00  XY  1.107702E+00  A  3.498366E+01  LX  0.03 1.00 0.0   -1.459427E+01   1.515109E+01            \r\n                    Y  3.494982E+01  YZ  0.0           B -1.304610E+00  LY  1.00-0.03 0.0                                           \r\n                    Z  1.010376E+01  ZX  0.0           C  1.010377E+01  LZ  0.0  0.0  1.00                                          \r\n0      30       53  X -1.391151E-01  XY  1.153874E+00  A  3.762605E+01  LX  0.03 1.00 0.0   -1.622909E+01   1.583075E+01            \r\n                    Y  3.759079E+01  YZ  0.0           B -1.743724E-01  LY  1.00-0.03 0.0                                           \r\n                    Z  1.123559E+01  ZX  0.0           C  1.123558E+01  LZ  0.0  0.0  1.00                                          \r\n0      30        0  X -5.670121E-01  XY  2.253077E+00  A  3.627036E+01  LX  0.06 1.00 0.0   -1.541174E+01   1.546300E+01            \r\n                    Y  3.613255E+01  YZ  0.0           B -7.048191E-01  LY  1.00-0.06 0.0                                           \r\n                    Z  1.066966E+01  ZX  0.0           C  1.066967E+01  LZ  0.0  0.0  1.00                                          \r\n0      31       43  X -7.651814E+00  XY -1.654801E+00  A  4.650867E+01  LX  0.03 1.00 0.0   -1.681606E+01   2.243195E+01            \r\n                    Y  4.645811E+01  YZ  0.0           B -7.702378E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      31       44  X -9.584056E+00  XY -1.576043E+00  A  4.199729E+01  LX  0.03 1.00 0.0   -1.402484E+01   2.129739E+01            \r\n                    Y  4.194913E+01  YZ  0.0           B -9.632212E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.709447E+00  ZX  0.0           C  9.709450E+00  LZ  0.0  0.0  1.00                                          \r\n0      31       62  X -9.200301E+00  XY -4.704334E+00  A  4.199720E+01  LX  0.09 1.00 0.0   -1.402468E+01   2.129749E+01            \r\n                    Y  4.156494E+01  YZ  0.0           B -9.632564E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.709412E+00  ZX  0.0           C  9.709413E+00  LZ  0.0  0.0  1.00                                          \r\n0      31       61  X -7.248493E+00  XY -4.939538E+00  A  4.650873E+01  LX  0.09 1.00 0.0   -1.681608E+01   2.243197E+01            \r\n                    Y  4.605486E+01  YZ  0.0           B -7.702373E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.164187E+01  ZX  0.0           C  1.164188E+01  LZ  0.0  0.0  1.00                                          \r\n0      31       49  X -7.651825E+00  XY -1.654794E+00  A  4.650875E+01  LX  0.03 1.00 0.0   -1.681609E+01   2.243199E+01            \r\n                    Y  4.645819E+01  YZ  0.0           B -7.702381E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      31       50  X -9.584261E+00  XY -1.575994E+00  A  4.199724E+01  LX  0.03 1.00 0.0   -1.402478E+01   2.129744E+01            \r\n                    Y  4.194909E+01  YZ  0.0           B -9.632413E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.709498E+00  ZX  0.0           C  9.709501E+00  LZ  0.0  0.0  1.00                                          \r\n0      31       68  X -9.200224E+00  XY -4.704391E+00  A  4.199726E+01  LX  0.09 1.00 0.0   -1.402474E+01   2.129748E+01            \r\n                    Y  4.156498E+01  YZ  0.0           B -9.632502E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.709466E+00  ZX  0.0           C  9.709473E+00  LZ  0.0  0.0  1.00                                          \r\n0      31       67  X -7.248506E+00  XY -4.939567E+00  A  4.650861E+01  LX  0.09 1.00 0.0   -1.681604E+01   2.243192E+01            \r\n                    Y  4.605473E+01  YZ  0.0           B -7.702387E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.164190E+01  ZX  0.0           C  1.164190E+01  LZ  0.0  0.0  1.00                                          \r\n0      31        0  X -8.421185E+00  XY -3.218683E+00  A  4.420362E+01  LX  0.06 1.00 0.0   -1.542041E+01   2.182379E+01            \r\n                    Y  4.400676E+01  YZ  0.0           B -8.618051E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067567E+01  ZX  0.0           C  1.067568E+01  LZ  0.0  0.0  1.00                                          \r\n0      32       44  X -5.382993E+00  XY -1.502677E+00  A  4.379935E+01  LX  0.03 1.00 0.0   -1.662721E+01   2.042034E+01            \r\n                    Y  4.375344E+01  YZ  0.0           B -5.428905E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.151118E+01  ZX  0.0           C  1.151117E+01  LZ  0.0  0.0  1.00                                          \r\n0      32       45  X -7.058012E+00  XY -1.434400E+00  A  3.988879E+01  LX  0.03 1.00 0.0   -1.420767E+01   1.943130E+01            \r\n                    Y  3.984496E+01  YZ  0.0           B -7.101841E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.836070E+00  ZX  0.0           C  9.836069E+00  LZ  0.0  0.0  1.00                                          \r\n0      32       63  X -6.708365E+00  XY -4.281606E+00  A  3.988888E+01  LX  0.09 1.00 0.0   -1.420775E+01   1.943131E+01            \r\n                    Y  3.949546E+01  YZ  0.0           B -7.101781E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.836134E+00  ZX  0.0           C  9.836135E+00  LZ  0.0  0.0  1.00                                          \r\n0      32       62  X -5.016712E+00  XY -4.485508E+00  A  4.379939E+01  LX  0.09 1.00 0.0   -1.662723E+01   2.042034E+01            \r\n                    Y  4.338723E+01  YZ  0.0           B -5.428867E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.151118E+01  ZX  0.0           C  1.151119E+01  LZ  0.0  0.0  1.00                                          \r\n0      32       50  X -5.382915E+00  XY -1.502708E+00  A  4.379932E+01  LX  0.03 1.00 0.0   -1.662720E+01   2.042031E+01            \r\n                    Y  4.375340E+01  YZ  0.0           B -5.428833E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.151112E+01  ZX  0.0           C  1.151112E+01  LZ  0.0  0.0  1.00                                          \r\n0      32       51  X -7.058091E+00  XY -1.434399E+00  A  3.988885E+01  LX  0.03 1.00 0.0   -1.420768E+01   1.943135E+01            \r\n                    Y  3.984503E+01  YZ  0.0           B -7.101917E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.836107E+00  ZX  0.0           C  9.836115E+00  LZ  0.0  0.0  1.00                                          \r\n0      32       69  X -6.708352E+00  XY -4.281595E+00  A  3.988883E+01  LX  0.09 1.00 0.0   -1.420776E+01   1.943128E+01            \r\n                    Y  3.949541E+01  YZ  0.0           B -7.101765E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.836204E+00  ZX  0.0           C  9.836206E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      32       68  X -5.016639E+00  XY -4.485536E+00  A  4.379939E+01  LX  0.09 1.00 0.0   -1.662725E+01   2.042032E+01            \r\n                    Y  4.338723E+01  YZ  0.0           B -5.428799E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.151115E+01  ZX  0.0           C  1.151116E+01  LZ  0.0  0.0  1.00                                          \r\n0      32        0  X -6.041510E+00  XY -2.926054E+00  A  4.179924E+01  LX  0.06 1.00 0.0   -1.541747E+01   1.988888E+01            \r\n                    Y  4.162027E+01  YZ  0.0           B -6.220476E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067364E+01  ZX  0.0           C  1.067365E+01  LZ  0.0  0.0  1.00                                          \r\n0      33       45  X -3.404559E+00  XY -1.370661E+00  A  4.145560E+01  LX  0.03 1.00 0.0   -1.647064E+01   1.867817E+01            \r\n                    Y  4.141372E+01  YZ  0.0           B -3.446439E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140276E+01  LZ  0.0  0.0  1.00                                          \r\n0      33       46  X -4.866085E+00  XY -1.311042E+00  A  3.804374E+01  LX  0.03 1.00 0.0   -1.435961E+01   1.781038E+01            \r\n                    Y  3.800368E+01  YZ  0.0           B -4.906142E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.941235E+00  ZX  0.0           C  9.941232E+00  LZ  0.0  0.0  1.00                                          \r\n0      33       64  X -4.546736E+00  XY -3.913490E+00  A  3.804365E+01  LX  0.09 1.00 0.0   -1.435951E+01   1.781041E+01            \r\n                    Y  3.768405E+01  YZ  0.0           B -4.906334E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.941207E+00  ZX  0.0           C  9.941215E+00  LZ  0.0  0.0  1.00                                          \r\n0      33       63  X -3.070618E+00  XY -4.091306E+00  A  4.145561E+01  LX  0.09 1.00 0.0   -1.647058E+01   1.867822E+01            \r\n                    Y  4.107967E+01  YZ  0.0           B -3.446551E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.140266E+01  ZX  0.0           C  1.140267E+01  LZ  0.0  0.0  1.00                                          \r\n0      33       51  X -3.404575E+00  XY -1.370628E+00  A  4.145563E+01  LX  0.03 1.00 0.0   -1.647064E+01   1.867818E+01            \r\n                    Y  4.141375E+01  YZ  0.0           B -3.446455E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.140276E+01  ZX  0.0           C  1.140276E+01  LZ  0.0  0.0  1.00                                          \r\n0      33       52  X -4.866205E+00  XY -1.311020E+00  A  3.804379E+01  LX  0.03 1.00 0.0   -1.435963E+01   1.781044E+01            \r\n                    Y  3.800373E+01  YZ  0.0           B -4.906259E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  9.941342E+00  ZX  0.0           C  9.941350E+00  LZ  0.0  0.0  1.00                                          \r\n0      33       70  X -4.546403E+00  XY -3.913464E+00  A  3.804390E+01  LX  0.09 1.00 0.0   -1.435974E+01   1.781040E+01            \r\n                    Y  3.768431E+01  YZ  0.0           B -4.905999E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  9.941296E+00  ZX  0.0           C  9.941305E+00  LZ  0.0  0.0  1.00                                          \r\n0      33       69  X -3.070669E+00  XY -4.091333E+00  A  4.145551E+01  LX  0.09 1.00 0.0   -1.647053E+01   1.867819E+01            \r\n                    Y  4.107957E+01  YZ  0.0           B -3.446608E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.140269E+01  ZX  0.0           C  1.140269E+01  LZ  0.0  0.0  1.00                                          \r\n0      33        0  X -3.971981E+00  XY -2.671618E+00  A  3.970872E+01  LX  0.06 1.00 0.0   -1.541511E+01   1.821079E+01            \r\n                    Y  3.954531E+01  YZ  0.0           B -4.135385E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067199E+01  ZX  0.0           C  1.067199E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      34       46  X -1.669251E+00  XY -1.255262E+00  A  3.941447E+01  LX  0.03 1.00 0.0   -1.633964E+01   1.716030E+01            \r\n                    Y  3.937612E+01  YZ  0.0           B -1.707609E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.131205E+01  ZX  0.0           C  1.131205E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       47  X -2.951932E+00  XY -1.202951E+00  A  3.642012E+01  LX  0.03 1.00 0.0   -1.448697E+01   1.639442E+01            \r\n                    Y  3.638337E+01  YZ  0.0           B -2.988687E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.002946E+01  ZX  0.0           C  1.002946E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       65  X -2.658801E+00  XY -3.590790E+00  A  3.642011E+01  LX  0.09 1.00 0.0   -1.448693E+01   1.639444E+01            \r\n                    Y  3.609017E+01  YZ  0.0           B -2.988743E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.002943E+01  ZX  0.0           C  1.002943E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       64  X -1.363514E+00  XY -3.746940E+00  A  3.941443E+01  LX  0.09 1.00 0.0   -1.633952E+01   1.716036E+01            \r\n                    Y  3.907014E+01  YZ  0.0           B -1.707807E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.131192E+01  ZX  0.0           C  1.131192E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       52  X -1.669373E+00  XY -1.255256E+00  A  3.941443E+01  LX  0.03 1.00 0.0   -1.633957E+01   1.716033E+01            \r\n                    Y  3.937608E+01  YZ  0.0           B -1.707730E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.131201E+01  ZX  0.0           C  1.131201E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       53  X -2.951972E+00  XY -1.202965E+00  A  3.642004E+01  LX  0.03 1.00 0.0   -1.448689E+01   1.639441E+01            \r\n                    Y  3.638329E+01  YZ  0.0           B -2.988728E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.002937E+01  ZX  0.0           C  1.002937E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       71  X -2.658952E+00  XY -3.590813E+00  A  3.642009E+01  LX  0.09 1.00 0.0   -1.448687E+01   1.639449E+01            \r\n                    Y  3.609015E+01  YZ  0.0           B -2.988895E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.002943E+01  ZX  0.0           C  1.002943E+01  LZ  0.0  0.0  1.00                                          \r\n0      34       70  X -1.363212E+00  XY -3.746920E+00  A  3.941459E+01  LX  0.09 1.00 0.0   -1.633973E+01   1.716031E+01            \r\n                    Y  3.907030E+01  YZ  0.0           B -1.707503E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.131211E+01  ZX  0.0           C  1.131211E+01  LZ  0.0  0.0  1.00                                          \r\n0      34        0  X -2.160876E+00  XY -2.448987E+00  A  3.787974E+01  LX  0.06 1.00 0.0   -1.541327E+01   1.674686E+01            \r\n                    Y  3.772995E+01  YZ  0.0           B -2.310665E+00  LY -1.00 0.06 0.0                                           \r\n                    Z  1.067072E+01  ZX  0.0           C  1.067072E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       47  X -1.389500E-01  XY -1.153848E+00  A  3.762617E+01  LX  0.03 1.00 0.0   -1.622919E+01   1.583075E+01            \r\n                    Y  3.759092E+01  YZ  0.0           B -1.742062E-01  LY -1.00 0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       48  X -1.270707E+00  XY -1.107702E+00  A  3.498373E+01  LX  0.03 1.00 0.0   -1.459433E+01   1.515109E+01            \r\n                    Y  3.494988E+01  YZ  0.0           B -1.304550E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.010380E+01  ZX  0.0           C  1.010380E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      35       66  X -1.000982E+00  XY -3.306451E+00  A  3.498371E+01  LX  0.09 1.00 0.0   -1.459420E+01   1.515118E+01            \r\n                    Y  3.467990E+01  YZ  0.0           B -1.304796E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.010367E+01  ZX  0.0           C  1.010367E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       65  X  1.425155E-01  XY -3.444240E+00  A  3.762608E+01  LX  0.09 1.00 0.0   -1.622923E+01   1.583063E+01            \r\n                    Y  3.730960E+01  YZ  0.0           B -1.739643E-01  LY -1.00 0.09 0.0                                           \r\n                    Z  1.123556E+01  ZX  0.0           C  1.123556E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       53  X -1.390445E-01  XY -1.153878E+00  A  3.762612E+01  LX  0.03 1.00 0.0   -1.622914E+01   1.583076E+01            \r\n                    Y  3.759087E+01  YZ  0.0           B -1.743022E-01  LY -1.00 0.03 0.0                                           \r\n                    Z  1.123560E+01  ZX  0.0           C  1.123560E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       54  X -1.270686E+00  XY -1.107689E+00  A  3.498372E+01  LX  0.03 1.00 0.0   -1.459429E+01   1.515109E+01            \r\n                    Y  3.494987E+01  YZ  0.0           B -1.304530E+00  LY -1.00 0.03 0.0                                           \r\n                    Z  1.010369E+01  ZX  0.0           C  1.010370E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       72  X -1.000765E+00  XY -3.306452E+00  A  3.498368E+01  LX  0.09 1.00 0.0   -1.459431E+01   1.515108E+01            \r\n                    Y  3.467986E+01  YZ  0.0           B -1.304583E+00  LY -1.00 0.09 0.0                                           \r\n                    Z  1.010383E+01  ZX  0.0           C  1.010383E+01  LZ  0.0  0.0  1.00                                          \r\n0      35       71  X  1.426059E-01  XY -3.444229E+00  A  3.762623E+01  LX  0.09 1.00 0.0   -1.622934E+01   1.583066E+01            \r\n                    Y  3.730975E+01  YZ  0.0           B -1.738749E-01  LY -1.00 0.09 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n0      35        0  X -5.670016E-01  XY -2.253061E+00  A  3.627039E+01  LX  0.06 1.00 0.0   -1.541175E+01   1.546301E+01            \r\n                    Y  3.613258E+01  YZ  0.0           B -7.048067E-01  LY -1.00 0.06 0.0                                           \r\n                    Z  1.066967E+01  ZX  0.0           C  1.066967E+01  LZ  0.0  0.0  1.00                                          \r\n0      36       61  X -6.447991E+00  XY -8.150863E+00  A  4.650866E+01  LX  0.15 0.99 0.0   -1.681602E+01   2.243200E+01            \r\n                    Y  4.525411E+01  YZ  0.0           B -7.702541E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.164194E+01  ZX  0.0           C  1.164195E+01  LZ  0.0  0.0  1.00                                          \r\n0      36       62  X -8.437662E+00  XY -7.762735E+00  A  4.199731E+01  LX  0.15 0.99 0.0   -1.402476E+01   2.129750E+01            \r\n                    Y  4.080250E+01  YZ  0.0           B -9.632473E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.709441E+00  ZX  0.0           C  9.709446E+00  LZ  0.0  0.0  1.00                                          \r\n0      36       80  X -7.308058E+00  XY -1.070514E+01  A  4.199722E+01  LX  0.21 0.98 0.0   -1.402477E+01   2.129741E+01            \r\n                    Y  3.967292E+01  YZ  0.0           B -9.632357E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.709444E+00  ZX  0.0           C  9.709443E+00  LZ  0.0  0.0  1.00                                          \r\n0      36       79  X -5.261737E+00  XY -1.124039E+01  A  4.650869E+01  LX  0.21 0.98 0.0   -1.681611E+01   2.243191E+01            \r\n                    Y  4.406819E+01  YZ  0.0           B -7.702250E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.164189E+01  ZX  0.0           C  1.164189E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      36       67  X -6.447934E+00  XY -8.150842E+00  A  4.650861E+01  LX  0.15 0.99 0.0   -1.681600E+01   2.243196E+01            \r\n                    Y  4.525407E+01  YZ  0.0           B -7.702474E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.164184E+01  ZX  0.0           C  1.164185E+01  LZ  0.0  0.0  1.00                                          \r\n0      36       68  X -8.437500E+00  XY -7.762685E+00  A  4.199722E+01  LX  0.15 0.99 0.0   -1.402481E+01   2.129739E+01            \r\n                    Y  4.080243E+01  YZ  0.0           B -9.632300E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.709517E+00  ZX  0.0           C  9.709521E+00  LZ  0.0  0.0  1.00                                          \r\n0      36       86  X -7.307952E+00  XY -1.070516E+01  A  4.199728E+01  LX  0.21 0.98 0.0   -1.402484E+01   2.129740E+01            \r\n                    Y  3.967299E+01  YZ  0.0           B -9.632257E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.709495E+00  ZX  0.0           C  9.709504E+00  LZ  0.0  0.0  1.00                                          \r\n0      36       85  X -5.261828E+00  XY -1.124040E+01  A  4.650866E+01  LX  0.21 0.98 0.0   -1.681609E+01   2.243193E+01            \r\n                    Y  4.406814E+01  YZ  0.0           B -7.702342E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.164194E+01  ZX  0.0           C  1.164194E+01  LZ  0.0  0.0  1.00                                          \r\n0      36        0  X -6.863833E+00  XY -9.464777E+00  A  4.420361E+01  LX  0.18 0.98 0.0   -1.542043E+01   2.182378E+01            \r\n                    Y  4.244942E+01  YZ  0.0           B -8.618025E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067569E+01  ZX  0.0           C  1.067569E+01  LZ  0.0  0.0  1.00                                          \r\n0      37       62  X -4.289547E+00  XY -7.401645E+00  A  4.379950E+01  LX  0.15 0.99 0.0   -1.662735E+01   2.042035E+01            \r\n                    Y  4.266026E+01  YZ  0.0           B -5.428777E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.151133E+01  ZX  0.0           C  1.151133E+01  LZ  0.0  0.0  1.00                                          \r\n0      37       63  X -6.014280E+00  XY -7.065197E+00  A  3.988875E+01  LX  0.15 0.99 0.0   -1.420772E+01   1.943123E+01            \r\n                    Y  3.880130E+01  YZ  0.0           B -7.101723E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.836125E+00  ZX  0.0           C  9.836125E+00  LZ  0.0  0.0  1.00                                          \r\n0      37       81  X -4.986279E+00  XY -9.743273E+00  A  3.988883E+01  LX  0.21 0.98 0.0   -1.420773E+01   1.943128E+01            \r\n                    Y  3.777337E+01  YZ  0.0           B -7.101737E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.836079E+00  ZX  0.0           C  9.836086E+00  LZ  0.0  0.0  1.00                                          \r\n0      37       80  X -3.212636E+00  XY -1.020727E+01  A  4.379926E+01  LX  0.21 0.98 0.0   -1.662715E+01   2.042029E+01            \r\n                    Y  4.158304E+01  YZ  0.0           B -5.428843E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.151105E+01  ZX  0.0           C  1.151105E+01  LZ  0.0  0.0  1.00                                          \r\n0      37       68  X -4.289447E+00  XY -7.401588E+00  A  4.379945E+01  LX  0.15 0.99 0.0   -1.662736E+01   2.042029E+01            \r\n                    Y  4.266024E+01  YZ  0.0           B -5.428662E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.151128E+01  ZX  0.0           C  1.151128E+01  LZ  0.0  0.0  1.00                                          \r\n0      37       69  X -6.014262E+00  XY -7.065239E+00  A  3.988881E+01  LX  0.15 0.99 0.0   -1.420772E+01   1.943127E+01            \r\n                    Y  3.880136E+01  YZ  0.0           B -7.101719E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.836059E+00  ZX  0.0           C  9.836056E+00  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      37       87  X -4.986399E+00  XY -9.743283E+00  A  3.988881E+01  LX  0.21 0.98 0.0   -1.420770E+01   1.943131E+01            \r\n                    Y  3.777335E+01  YZ  0.0           B -7.101856E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.836139E+00  ZX  0.0           C  9.836143E+00  LZ  0.0  0.0  1.00                                          \r\n0      37       86  X -3.212860E+00  XY -1.020726E+01  A  4.379926E+01  LX  0.21 0.98 0.0   -1.662708E+01   2.042037E+01            \r\n                    Y  4.158306E+01  YZ  0.0           B -5.429060E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.151105E+01  ZX  0.0           C  1.151105E+01  LZ  0.0  0.0  1.00                                          \r\n0      37        0  X -4.625714E+00  XY -8.604344E+00  A  4.179922E+01  LX  0.18 0.98 0.0   -1.541748E+01   1.988885E+01            \r\n                    Y  4.020450E+01  YZ  0.0           B -6.220432E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067364E+01  ZX  0.0           C  1.067365E+01  LZ  0.0  0.0  1.00                                          \r\n0      38       63  X -2.407413E+00  XY -6.751182E+00  A  4.145557E+01  LX  0.15 0.99 0.0   -1.647060E+01   1.867818E+01            \r\n                    Y  4.041646E+01  YZ  0.0           B -3.446524E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.140275E+01  ZX  0.0           C  1.140275E+01  LZ  0.0  0.0  1.00                                          \r\n0      38       64  X -3.912370E+00  XY -6.457681E+00  A  3.804369E+01  LX  0.15 0.99 0.0   -1.435951E+01   1.781043E+01            \r\n                    Y  3.704975E+01  YZ  0.0           B -4.906311E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.941144E+00  ZX  0.0           C  9.941143E+00  LZ  0.0  0.0  1.00                                          \r\n0      38       82  X -2.972635E+00  XY -8.905456E+00  A  3.804383E+01  LX  0.21 0.98 0.0   -1.435966E+01   1.781043E+01            \r\n                    Y  3.611028E+01  YZ  0.0           B -4.906182E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.941318E+00  ZX  0.0           C  9.941324E+00  LZ  0.0  0.0  1.00                                          \r\n0      38       81  X -1.424920E+00  XY -9.310263E+00  A  4.145557E+01  LX  0.21 0.98 0.0   -1.647065E+01   1.867813E+01            \r\n                    Y  3.943411E+01  YZ  0.0           B -3.446374E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.140274E+01  ZX  0.0           C  1.140275E+01  LZ  0.0  0.0  1.00                                          \r\n0      38       69  X -2.407360E+00  XY -6.751261E+00  A  4.145552E+01  LX  0.15 0.99 0.0   -1.647055E+01   1.867816E+01            \r\n                    Y  4.041638E+01  YZ  0.0           B -3.446497E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.140263E+01  ZX  0.0           C  1.140263E+01  LZ  0.0  0.0  1.00                                          \r\n0      38       70  X -3.912139E+00  XY -6.457652E+00  A  3.804378E+01  LX  0.15 0.99 0.0   -1.435967E+01   1.781037E+01            \r\n                    Y  3.704985E+01  YZ  0.0           B -4.906069E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  9.941298E+00  ZX  0.0           C  9.941306E+00  LZ  0.0  0.0  1.00                                          \r\n0      38       88  X -2.972651E+00  XY -8.905495E+00  A  3.804374E+01  LX  0.21 0.98 0.0   -1.435961E+01   1.781040E+01            \r\n                    Y  3.611017E+01  YZ  0.0           B -4.906219E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  9.941302E+00  ZX  0.0           C  9.941306E+00  LZ  0.0  0.0  1.00                                          \r\n0      38       87  X -1.425245E+00  XY -9.310236E+00  A  4.145552E+01  LX  0.21 0.98 0.0   -1.647050E+01   1.867822E+01            \r\n                    Y  3.943409E+01  YZ  0.0           B -3.446675E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.140267E+01  ZX  0.0           C  1.140267E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      38        0  X -2.679342E+00  XY -7.856153E+00  A  3.970869E+01  LX  0.18 0.98 0.0   -1.541509E+01   1.821078E+01            \r\n                    Y  3.825264E+01  YZ  0.0           B -4.135395E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067198E+01  ZX  0.0           C  1.067198E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       64  X -7.559631E-01  XY -6.182886E+00  A  3.941452E+01  LX  0.15 0.99 0.0   -1.633965E+01   1.716032E+01            \r\n                    Y  3.846287E+01  YZ  0.0           B -1.707608E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.131203E+01  ZX  0.0           C  1.131203E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       65  X -2.076752E+00  XY -5.925268E+00  A  3.642008E+01  LX  0.15 0.99 0.0   -1.448694E+01   1.639442E+01            \r\n                    Y  3.550809E+01  YZ  0.0           B -2.988744E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.002946E+01  ZX  0.0           C  1.002947E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       83  X -1.214674E+00  XY -8.171229E+00  A  3.642006E+01  LX  0.21 0.98 0.0   -1.448687E+01   1.639445E+01            \r\n                    Y  3.464593E+01  YZ  0.0           B -2.988809E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.002936E+01  ZX  0.0           C  1.002936E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       82  X  1.434554E-01  XY -8.526523E+00  A  3.941452E+01  LX  0.21 0.98 0.0   -1.633958E+01   1.716040E+01            \r\n                    Y  3.756325E+01  YZ  0.0           B -1.707823E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.131204E+01  ZX  0.0           C  1.131205E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       70  X -7.560387E-01  XY -6.182858E+00  A  3.941451E+01  LX  0.15 0.99 0.0   -1.633962E+01   1.716034E+01            \r\n                    Y  3.846287E+01  YZ  0.0           B -1.707673E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.131204E+01  ZX  0.0           C  1.131204E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       71  X -2.076801E+00  XY -5.925260E+00  A  3.642009E+01  LX  0.15 0.99 0.0   -1.448689E+01   1.639445E+01            \r\n                    Y  3.550809E+01  YZ  0.0           B -2.988788E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.002936E+01  ZX  0.0           C  1.002936E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       89  X -1.214617E+00  XY -8.171266E+00  A  3.642011E+01  LX  0.21 0.98 0.0   -1.448692E+01   1.639445E+01            \r\n                    Y  3.464596E+01  YZ  0.0           B -2.988763E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.002942E+01  ZX  0.0           C  1.002942E+01  LZ  0.0  0.0  1.00                                          \r\n0      39       88  X  1.436092E-01  XY -8.526480E+00  A  3.941450E+01  LX  0.21 0.98 0.0   -1.633962E+01   1.716033E+01            \r\n                    Y  3.756324E+01  YZ  0.0           B -1.707658E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.131201E+01  ZX  0.0           C  1.131201E+01  LZ  0.0  0.0  1.00                                          \r\n0      39        0  X -9.759728E-01  XY -7.201472E+00  A  3.787975E+01  LX  0.18 0.98 0.0   -1.541326E+01   1.674687E+01            \r\n                    Y  3.654504E+01  YZ  0.0           B -2.310685E+00  LY -0.98 0.18 0.0                                           \r\n                    Z  1.067072E+01  ZX  0.0           C  1.067071E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       65  X  7.009261E-01  XY -5.683421E+00  A  3.762620E+01  LX  0.15 0.99 0.0   -1.622933E+01   1.583064E+01            \r\n                    Y  3.675143E+01  YZ  0.0           B -1.738491E-01  LY -0.99 0.15 0.0                                           \r\n                    Z  1.123565E+01  ZX  0.0           C  1.123565E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      40       66  X -4.648107E-01  XY -5.456077E+00  A  3.498374E+01  LX  0.15 0.99 0.0   -1.459431E+01   1.515111E+01            \r\n                    Y  3.414397E+01  YZ  0.0           B -1.304585E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.010377E+01  ZX  0.0           C  1.010378E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       84  X  3.291802E-01  XY -7.524218E+00  A  3.498375E+01  LX  0.21 0.98 0.0   -1.459436E+01   1.515108E+01            \r\n                    Y  3.335009E+01  YZ  0.0           B -1.304482E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.010379E+01  ZX  0.0           C  1.010379E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       83  X  1.527484E+00  XY -7.837723E+00  A  3.762609E+01  LX  0.21 0.98 0.0   -1.622913E+01   1.583074E+01            \r\n                    Y  3.592437E+01  YZ  0.0           B -1.742396E-01  LY -0.98 0.21 0.0                                           \r\n                    Z  1.123553E+01  ZX  0.0           C  1.123554E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       71  X  7.005271E-01  XY -5.683405E+00  A  3.762613E+01  LX  0.15 0.99 0.0   -1.622916E+01   1.583074E+01            \r\n                    Y  3.675136E+01  YZ  0.0           B -1.742354E-01  LY -0.99 0.15 0.0                                           \r\n                    Z  1.123559E+01  ZX  0.0           C  1.123559E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       72  X -4.646601E-01  XY -5.456086E+00  A  3.498381E+01  LX  0.15 0.99 0.0   -1.459441E+01   1.515108E+01            \r\n                    Y  3.414403E+01  YZ  0.0           B -1.304439E+00  LY -0.99 0.15 0.0                                           \r\n                    Z  1.010385E+01  ZX  0.0           C  1.010385E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       90  X  3.289904E-01  XY -7.524214E+00  A  3.498368E+01  LX  0.21 0.98 0.0   -1.459424E+01   1.515112E+01            \r\n                    Y  3.335003E+01  YZ  0.0           B -1.304666E+00  LY -0.98 0.21 0.0                                           \r\n                    Z  1.010370E+01  ZX  0.0           C  1.010371E+01  LZ  0.0  0.0  1.00                                          \r\n0      40       89  X  1.527747E+00  XY -7.837724E+00  A  3.762622E+01  LX  0.21 0.98 0.0   -1.622931E+01   1.583069E+01            \r\n                    Y  3.592449E+01  YZ  0.0           B -1.739854E-01  LY -0.98 0.21 0.0                                           \r\n                    Z  1.123570E+01  ZX  0.0           C  1.123570E+01  LZ  0.0  0.0  1.00                                          \r\n0      40        0  X  5.231730E-01  XY -6.625359E+00  A  3.627041E+01  LX  0.18 0.98 0.0   -1.541178E+01   1.546300E+01            \r\n                    Y  3.504247E+01  YZ  0.0           B -7.047672E-01  LY -0.98 0.18 0.0                                           \r\n                    Z  1.066970E+01  ZX  0.0           C  1.066970E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1        1  X -1.411065E+04  XY -5.242737E+03  A -1.297235E+04  LX  0.98 0.0  0.21   3.647952E+04   1.851045E+04            \r\n                    Y -3.711912E+04  YZ  0.0           B -5.820881E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825740E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        2  X  1.025496E+04  XY -4.993116E+03  A  1.133907E+04  LX  0.98 0.0  0.21   1.176639E+04   1.848011E+04            \r\n                    Y -1.165791E+04  YZ  0.0           B -3.389621E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -3.389621E+04  ZX  0.0           C -1.274201E+04  LZ  0.0  1.00 0.0                                           \r\n0       1       20  X  1.078215E+04  XY -3.620715E+03  A  1.133943E+04  LX  0.99 0.0  0.15   1.176611E+04   1.848016E+04            \r\n                    Y -1.218450E+04  YZ  0.0           B -3.389597E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -3.389597E+04  ZX  0.0           C -1.274179E+04  LZ  0.0  1.00 0.0                                           \r\n0       1       19  X -1.355755E+04  XY -3.801741E+03  A -1.297240E+04  LX  0.99 0.0  0.15   3.647956E+04   1.851042E+04            \r\n                    Y -3.767231E+04  YZ  0.0           B -5.820879E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -5.820881E+04  ZX  0.0           C -3.825748E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        7  X -1.411068E+04  XY -5.242763E+03  A -1.297237E+04  LX  0.98 0.0  0.21   3.647955E+04   1.851044E+04            \r\n                    Y -3.711916E+04  YZ  0.0           B -5.820882E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825745E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        8  X  1.025501E+04  XY -4.993105E+03  A  1.133912E+04  LX  0.98 0.0  0.21   1.176631E+04   1.848009E+04            \r\n                    Y -1.165783E+04  YZ  0.0           B -3.389613E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -3.389612E+04  ZX  0.0           C -1.274193E+04  LZ  0.0  1.00 0.0                                           \r\n0       1       26  X  1.078194E+04  XY -3.620681E+03  A  1.133922E+04  LX  0.99 0.0  0.15   1.176625E+04   1.848012E+04            \r\n                    Y -1.218458E+04  YZ  0.0           B -3.389611E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -3.389611E+04  ZX  0.0           C -1.274186E+04  LZ  0.0  1.00 0.0                                           \r\n0       1       25  X -1.355746E+04  XY -3.801771E+03  A -1.297229E+04  LX  0.99 0.0  0.15   3.647951E+04   1.851047E+04            \r\n                    Y -3.767230E+04  YZ  0.0           B -5.820882E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825743E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        0  X -1.657784E+03  XY -4.414579E+03  A -8.395894E+02  LX  0.98 0.0  0.18   2.412290E+04   1.848288E+04            \r\n                    Y -2.465847E+04  YZ  0.0           B -4.605245E+04  LY -0.18 0.0  0.98                                          \r\n                    Z -4.605245E+04  ZX  0.0           C -2.547666E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        2  X -1.342556E+04  XY -2.111017E+03  A -1.296721E+04  LX  0.98 0.0  0.21   2.680847E+04   1.305464E+04            \r\n                    Y -2.269010E+04  YZ  0.0           B -4.430974E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -4.430975E+04  ZX  0.0           C -2.314845E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        3  X  9.270897E+03  XY -2.015056E+03  A  9.708402E+03  LX  0.98 0.0  0.21   3.978422E+03   1.309943E+04            \r\n                    Y  4.275085E+02  YZ  0.0           B -2.163367E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -2.163367E+04  ZX  0.0           C -9.996917E+00  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       21  X  9.483532E+03  XY -1.461220E+03  A  9.708439E+03  LX  0.99 0.0  0.15   3.978400E+03   1.309944E+04            \r\n                    Y  2.149207E+02  YZ  0.0           B -2.163366E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -2.163366E+04  ZX  0.0           C -9.982727E+00  LZ  0.0  1.00 0.0                                           \r\n0       2       20  X -1.320290E+04  XY -1.530786E+03  A -1.296729E+04  LX  0.99 0.0  0.15   2.680848E+04   1.305463E+04            \r\n                    Y -2.291279E+04  YZ  0.0           B -4.430977E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -4.430976E+04  ZX  0.0           C -2.314838E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        8  X -1.342576E+04  XY -2.111029E+03  A -1.296740E+04  LX  0.98 0.0  0.21   2.680855E+04   1.305459E+04            \r\n                    Y -2.269011E+04  YZ  0.0           B -4.430979E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -4.430979E+04  ZX  0.0           C -2.314847E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        9  X  9.270850E+03  XY -2.015068E+03  A  9.708362E+03  LX  0.98 0.0  0.21   3.978416E+03   1.309938E+04            \r\n                    Y  4.274952E+02  YZ  0.0           B -2.163359E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -2.163360E+04  ZX  0.0           C -1.001622E+01  LZ  0.0  1.00 0.0                                           \r\n0       2       27  X  9.483409E+03  XY -1.461212E+03  A  9.708314E+03  LX  0.99 0.0  0.15   3.978505E+03   1.309942E+04            \r\n                    Y  2.148135E+02  YZ  0.0           B -2.163374E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -2.163374E+04  ZX  0.0           C -1.009205E+01  LZ  0.0  1.00 0.0                                           \r\n0       2       26  X -1.320299E+04  XY -1.530778E+03  A -1.296738E+04  LX  0.99 0.0  0.15   2.680850E+04   1.305458E+04            \r\n                    Y -2.291278E+04  YZ  0.0           B -4.430973E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -4.430973E+04  ZX  0.0           C -2.314839E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        0  X -1.968566E+03  XY -1.779521E+03  A -1.638751E+03  LX  0.98 0.0  0.18   1.539347E+04   1.307423E+04            \r\n                    Y -1.124013E+04  YZ  0.0           B -3.297171E+04  LY -0.18 0.0  0.98                                          \r\n                    Z -3.297171E+04  ZX  0.0           C -1.156995E+04  LZ  0.0  1.00 0.0                                           \r\n0       3        3  X -1.226871E+04  XY  6.067123E+02  A -9.474388E+03  LX  0.21 0.0  0.98   1.766006E+04   9.582011E+03            \r\n                    Y -9.606112E+03  YZ  0.0           B -3.110535E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -3.110535E+04  ZX  0.0           C -1.240043E+04  LZ  0.0  1.00 0.0                                           \r\n0       3        4  X  8.964054E+03  XY  5.803583E+02  A  1.163696E+04  LX  0.21 0.0  0.98  -3.536033E+03   9.545943E+03            \r\n                    Y  1.151095E+04  YZ  0.0           B -9.866905E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z -9.866903E+03  ZX  0.0           C  8.838045E+03  LZ  0.0  1.00 0.0                                           \r\n0       3       22  X  8.902727E+03  XY  4.207940E+02  A  1.163694E+04  LX  0.15 0.0  0.99  -3.535976E+03   9.545954E+03            \r\n                    Y  1.157218E+04  YZ  0.0           B -9.866974E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z -9.866974E+03  ZX  0.0           C  8.837965E+03  LZ  0.0  1.00 0.0                                           \r\n0       3       21  X -1.233290E+04  XY  4.399682E+02  A -9.474515E+03  LX  0.15 0.0  0.99   1.766021E+04   9.582014E+03            \r\n                    Y -9.542223E+03  YZ  0.0           B -3.110550E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -3.110549E+04  ZX  0.0           C -1.240060E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       3        9  X -1.226878E+04  XY  6.066987E+02  A -9.474381E+03  LX  0.21 0.0  0.98   1.766009E+04   9.582030E+03            \r\n                    Y -9.606087E+03  YZ  0.0           B -3.110541E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -3.110541E+04  ZX  0.0           C -1.240048E+04  LZ  0.0  1.00 0.0                                           \r\n0       3       10  X  8.964229E+03  XY  5.803391E+02  A  1.163690E+04  LX  0.21 0.0  0.98  -3.536060E+03   9.545972E+03            \r\n                    Y  1.151089E+04  YZ  0.0           B -9.866936E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z -9.866937E+03  ZX  0.0           C  8.838212E+03  LZ  0.0  1.00 0.0                                           \r\n0       3       28  X  8.902804E+03  XY  4.207957E+02  A  1.163695E+04  LX  0.15 0.0  0.99  -3.536036E+03   9.545935E+03            \r\n                    Y  1.157219E+04  YZ  0.0           B -9.866892E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z -9.866892E+03  ZX  0.0           C  8.838047E+03  LZ  0.0  1.00 0.0                                           \r\n0       3       27  X -1.233276E+04  XY  4.399537E+02  A -9.474472E+03  LX  0.15 0.0  0.99   1.766012E+04   9.582021E+03            \r\n                    Y -9.542176E+03  YZ  0.0           B -3.110544E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -3.110544E+04  ZX  0.0           C -1.240047E+04  LZ  0.0  1.00 0.0                                           \r\n0       3        0  X -1.683667E+03  XY  5.119525E+02  A  1.078586E+03  LX  0.18 0.0  0.98   7.062047E+03   9.563691E+03            \r\n                    Y  9.837013E+02  YZ  0.0           B -2.048618E+04  LY  0.98 0.0 -0.18                                          \r\n                    Z -2.048618E+04  ZX  0.0           C -1.778550E+03  LZ  0.0  1.00 0.0                                           \r\n0       4        4  X -1.075197E+04  XY  2.980323E+03  A  2.974776E+03  LX  0.21 0.0  0.98   8.986930E+03   8.946049E+03            \r\n                    Y  2.327695E+03  YZ  0.0           B -1.853652E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139905E+04  LZ  0.0  1.00 0.0                                           \r\n0       4        5  X  9.207340E+03  XY  2.856187E+03  A  2.236213E+04  LX  0.21 0.0  0.98  -1.079953E+04   8.679779E+03            \r\n                    Y  2.174199E+04  YZ  0.0           B  1.449262E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z  1.449263E+03  ZX  0.0           C  8.587200E+03  LZ  0.0  1.00 0.0                                           \r\n0       4       23  X  8.906044E+03  XY  2.071075E+03  A  2.236209E+04  LX  0.15 0.0  0.99  -1.079955E+04   8.679745E+03            \r\n                    Y  2.204332E+04  YZ  0.0           B  1.449287E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z  1.449289E+03  ZX  0.0           C  8.587274E+03  LZ  0.0  1.00 0.0                                           \r\n0       4       22  X -1.106642E+04  XY  2.161178E+03  A  2.974839E+03  LX  0.15 0.0  0.99   8.986859E+03   8.946021E+03            \r\n                    Y  2.642198E+03  YZ  0.0           B -1.853636E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -1.853636E+04  ZX  0.0           C -1.139906E+04  LZ  0.0  1.00 0.0                                           \r\n0       4       10  X -1.075200E+04  XY  2.980366E+03  A  2.974724E+03  LX  0.21 0.0  0.98   8.986968E+03   8.946032E+03            \r\n                    Y  2.327622E+03  YZ  0.0           B -1.853652E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139910E+04  LZ  0.0  1.00 0.0                                           \r\n0       4       11  X  9.207314E+03  XY  2.856174E+03  A  2.236218E+04  LX  0.21 0.0  0.98  -1.079956E+04   8.679783E+03            \r\n                    Y  2.174205E+04  YZ  0.0           B  1.449310E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z  1.449310E+03  ZX  0.0           C  8.587191E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       4       29  X  8.905957E+03  XY  2.071098E+03  A  2.236212E+04  LX  0.15 0.0  0.99  -1.079950E+04   8.679796E+03            \r\n                    Y  2.204335E+04  YZ  0.0           B  1.449200E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z  1.449200E+03  ZX  0.0           C  8.587188E+03  LZ  0.0  1.00 0.0                                           \r\n0       4       28  X -1.106624E+04  XY  2.161113E+03  A  2.974842E+03  LX  0.15 0.0  0.99   8.986812E+03   8.946021E+03            \r\n                    Y  2.642218E+03  YZ  0.0           B -1.853641E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -1.853641E+04  ZX  0.0           C -1.139887E+04  LZ  0.0  1.00 0.0                                           \r\n0       4        0  X -9.262469E+02  XY  2.517189E+03  A  1.265534E+04  LX  0.18 0.0  0.98  -9.063216E+02   8.805797E+03            \r\n                    Y  1.218881E+04  YZ  0.0           B -8.543595E+03  LY  0.98 0.0 -0.18                                          \r\n                    Z -8.543594E+03  ZX  0.0           C -1.392778E+03  LZ  0.0  1.00 0.0                                           \r\n0       5        5  X -8.937519E+03  XY  5.065114E+03  A  1.439100E+04  LX  0.21 0.98 0.0    7.251395E+02   1.078425E+04            \r\n                    Y  1.329126E+04  YZ  0.0           B -1.003726E+04  LY  0.98-0.21 0.0                                           \r\n                    Z -6.529159E+03  ZX  0.0           C -6.529155E+03  LZ  0.0  0.0  1.00                                          \r\n0       5        6  X  9.876238E+03  XY  4.862515E+03  A  3.227137E+04  LX  0.21 0.98 0.0   -1.780641E+04   1.032799E+04            \r\n                    Y  3.121561E+04  YZ  0.0           B  8.820471E+03  LY  0.98-0.21 0.0                                           \r\n                    Z  1.232739E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n0       5       24  X  9.362969E+03  XY  3.525951E+03  A  3.227144E+04  LX  0.15 0.99 0.0   -1.780638E+04   1.032807E+04            \r\n                    Y  3.172874E+04  YZ  0.0           B  8.820264E+03  LY  0.99-0.15 0.0                                           \r\n                    Z  1.232742E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0       5       23  X -9.471760E+03  XY  3.672837E+03  A  1.439106E+04  LX  0.15 0.99 0.0    7.250480E+02   1.078421E+04            \r\n                    Y  1.382575E+04  YZ  0.0           B -1.003707E+04  LY  0.99-0.15 0.0                                           \r\n                    Z -6.529137E+03  ZX  0.0           C -6.529131E+03  LZ  0.0  0.0  1.00                                          \r\n0       5       11  X -8.937278E+03  XY  5.065062E+03  A  1.439105E+04  LX  0.21 0.98 0.0    7.250344E+02   1.078419E+04            \r\n                    Y  1.329132E+04  YZ  0.0           B -1.003701E+04  LY  0.98-0.21 0.0                                           \r\n                    Z -6.529144E+03  ZX  0.0           C -6.529142E+03  LZ  0.0  0.0  1.00                                          \r\n0       5       12  X  9.876032E+03  XY  4.862482E+03  A  3.227138E+04  LX  0.21 0.98 0.0   -1.780636E+04   1.032804E+04            \r\n                    Y  3.121565E+04  YZ  0.0           B  8.820270E+03  LY  0.98-0.21 0.0                                           \r\n                    Z  1.232741E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0       5       30  X  9.363142E+03  XY  3.525958E+03  A  3.227140E+04  LX  0.15 0.99 0.0   -1.780642E+04   1.032800E+04            \r\n                    Y  3.172870E+04  YZ  0.0           B  8.820449E+03  LY  0.99-0.15 0.0                                           \r\n                    Z  1.232744E+04  ZX  0.0           C  1.232742E+04  LZ  0.0  0.0  1.00                                          \r\n0       5       29  X -9.471812E+03  XY  3.672892E+03  A  1.439098E+04  LX  0.15 0.99 0.0    7.251071E+02   1.078420E+04            \r\n                    Y  1.382566E+04  YZ  0.0           B -1.003714E+04  LY  0.99-0.15 0.0                                           \r\n                    Z -6.529168E+03  ZX  0.0           C -6.529165E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       5        0  X  2.075015E+02  XY  4.281602E+03  A  2.330889E+04  LX  0.18 0.98 0.0   -8.540656E+03   1.053920E+04            \r\n                    Y  2.251534E+04  YZ  0.0           B -5.860502E+02  LY  0.98-0.18 0.0                                           \r\n                    Z  2.899130E+03  ZX  0.0           C  2.899132E+03  LZ  0.0  0.0  1.00                                          \r\n0       6       19  X -1.318405E+04  XY -2.303919E+03  A -1.297236E+04  LX  1.00 0.0  0.09   3.647953E+04   1.851045E+04            \r\n                    Y -3.804573E+04  YZ  0.0           B -5.820883E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825740E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       20  X  1.113774E+04  XY -2.194239E+03  A  1.133936E+04  LX  1.00 0.0  0.09   1.176623E+04   1.848018E+04            \r\n                    Y -1.254033E+04  YZ  0.0           B -3.389609E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -3.389609E+04  ZX  0.0           C -1.274194E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       38  X  1.131672E+04  XY -7.351078E+02  A  1.133918E+04  LX  1.00 0.0  0.03   1.176630E+04   1.848013E+04            \r\n                    Y -1.271948E+04  YZ  0.0           B -3.389615E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -3.389615E+04  ZX  0.0           C -1.274193E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       37  X -1.299606E+04  XY -7.718613E+02  A -1.297249E+04  LX  1.00 0.0  0.03   3.647965E+04   1.851043E+04            \r\n                    Y -3.823402E+04  YZ  0.0           B -5.820889E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -5.820888E+04  ZX  0.0           C -3.825758E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       25  X -1.318404E+04  XY -2.303924E+03  A -1.297234E+04  LX  1.00 0.0  0.09   3.647959E+04   1.851048E+04            \r\n                    Y -3.804588E+04  YZ  0.0           B -5.820888E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -5.820887E+04  ZX  0.0           C -3.825756E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       26  X  1.113752E+04  XY -2.194198E+03  A  1.133914E+04  LX  1.00 0.0  0.09   1.176627E+04   1.848006E+04            \r\n                    Y -1.254030E+04  YZ  0.0           B -3.389604E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -3.389604E+04  ZX  0.0           C -1.274192E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       44  X  1.131681E+04  XY -7.351031E+02  A  1.133927E+04  LX  1.00 0.0  0.03   1.176626E+04   1.848016E+04            \r\n                    Y -1.271945E+04  YZ  0.0           B -3.389615E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -3.389615E+04  ZX  0.0           C -1.274190E+04  LZ  0.0  1.00 0.0                                           \r\n0       6       43  X -1.299594E+04  XY -7.718761E+02  A -1.297236E+04  LX  1.00 0.0  0.03   3.647954E+04   1.851044E+04            \r\n                    Y -3.823390E+04  YZ  0.0           B -5.820878E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825749E+04  LZ  0.0  1.00 0.0                                           \r\n0       6        0  X -9.314135E+02  XY -1.501279E+03  A -8.395925E+02  LX  1.00 0.0  0.06   2.412292E+04   1.848289E+04            \r\n                    Y -2.538489E+04  YZ  0.0           B -4.605247E+04  LY -0.06 0.0  1.00                                          \r\n                    Z -4.605247E+04  ZX  0.0           C -2.547671E+04  LZ  0.0  1.00 0.0                                           \r\n0       7       20  X -1.305249E+04  XY -9.276960E+02  A -1.296726E+04  LX  1.00 0.0  0.09   2.680846E+04   1.305464E+04            \r\n                    Y -2.306314E+04  YZ  0.0           B -4.430976E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -4.430975E+04  ZX  0.0           C -2.314836E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       7       21  X  9.627142E+03  XY -8.854850E+02  A  9.708503E+03  LX  1.00 0.0  0.09   3.978374E+03   1.309945E+04            \r\n                    Y  7.137315E+01  YZ  0.0           B -2.163364E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -2.163364E+04  ZX  0.0           C -9.986910E+00  LZ  0.0  1.00 0.0                                           \r\n0       7       39  X  9.699457E+03  XY -2.966933E+02  A  9.708522E+03  LX  1.00 0.0  0.03   3.978354E+03   1.309946E+04            \r\n                    Y -9.013640E-01  YZ  0.0           B -2.163362E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -2.163362E+04  ZX  0.0           C -9.966269E+00  LZ  0.0  1.00 0.0                                           \r\n0       7       38  X -1.297683E+04  XY -3.107749E+02  A -1.296733E+04  LX  1.00 0.0  0.03   2.680852E+04   1.305460E+04            \r\n                    Y -2.313897E+04  YZ  0.0           B -4.430975E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -4.430976E+04  ZX  0.0           C -2.314848E+04  LZ  0.0  1.00 0.0                                           \r\n0       7       26  X -1.305265E+04  XY -9.276857E+02  A -1.296740E+04  LX  1.00 0.0  0.09   2.680862E+04   1.305462E+04            \r\n                    Y -2.306331E+04  YZ  0.0           B -4.430989E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -4.430989E+04  ZX  0.0           C -2.314855E+04  LZ  0.0  1.00 0.0                                           \r\n0       7       27  X  9.626813E+03  XY -8.855112E+02  A  9.708181E+03  LX  1.00 0.0  0.09   3.978522E+03   1.309934E+04            \r\n                    Y  7.127962E+01  YZ  0.0           B -2.163366E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -2.163366E+04  ZX  0.0           C -1.008266E+01  LZ  0.0  1.00 0.0                                           \r\n0       7       45  X  9.699467E+03  XY -2.966397E+02  A  9.708529E+03  LX  1.00 0.0  0.03   3.978367E+03   1.309947E+04            \r\n                    Y -9.278845E-01  YZ  0.0           B -2.163364E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -2.163364E+04  ZX  0.0           C -9.985622E+00  LZ  0.0  1.00 0.0                                           \r\n0       7       44  X -1.297664E+04  XY -3.108080E+02  A -1.296713E+04  LX  1.00 0.0  0.03   2.680839E+04   1.305463E+04            \r\n                    Y -2.313889E+04  YZ  0.0           B -4.430964E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -4.430965E+04  ZX  0.0           C -2.314841E+04  LZ  0.0  1.00 0.0                                           \r\n0       7        0  X -1.675716E+03  XY -6.051617E+02  A -1.638700E+03  LX  1.00 0.0  0.06   1.539345E+04   1.307424E+04            \r\n                    Y -1.153294E+04  YZ  0.0           B -3.297170E+04  LY -0.06 0.0  1.00                                          \r\n                    Z -3.297170E+04  ZX  0.0           C -1.156995E+04  LZ  0.0  1.00 0.0                                           \r\n0       8       21  X -1.237616E+04  XY  2.666454E+02  A -9.474440E+03  LX  0.09 0.0  1.00   1.766020E+04   9.582029E+03            \r\n                    Y -9.498941E+03  YZ  0.0           B -3.110551E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -3.110550E+04  ZX  0.0           C -1.240065E+04  LZ  0.0  1.00 0.0                                           \r\n0       8       22  X  8.861426E+03  XY  2.550430E+02  A  1.163692E+04  LX  0.09 0.0  1.00  -3.535987E+03   9.545944E+03            \r\n                    Y  1.161349E+04  YZ  0.0           B -9.866952E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z -9.866952E+03  ZX  0.0           C  8.837992E+03  LZ  0.0  1.00 0.0                                           \r\n0       8       40  X  8.840765E+03  XY  8.543445E+01  A  1.163688E+04  LX  0.03 0.0  1.00  -3.536031E+03   9.545965E+03            \r\n                    Y  1.163427E+04  YZ  0.0           B -9.866951E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z -9.866950E+03  ZX  0.0           C  8.838158E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       8       39  X -1.239773E+04  XY  8.931259E+01  A -9.474368E+03  LX  0.03 0.0  1.00   1.766004E+04   9.581993E+03            \r\n                    Y -9.477089E+03  YZ  0.0           B -3.110531E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -3.110531E+04  ZX  0.0           C -1.240045E+04  LZ  0.0  1.00 0.0                                           \r\n0       8       27  X -1.237588E+04  XY  2.666164E+02  A -9.474443E+03  LX  0.09 0.0  1.00   1.766006E+04   9.582012E+03            \r\n                    Y -9.498938E+03  YZ  0.0           B -3.110536E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -3.110536E+04  ZX  0.0           C -1.240037E+04  LZ  0.0  1.00 0.0                                           \r\n0       8       28  X  8.861572E+03  XY  2.550385E+02  A  1.163693E+04  LX  0.09 0.0  1.00  -3.536063E+03   9.545941E+03            \r\n                    Y  1.161350E+04  YZ  0.0           B -9.866881E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z -9.866881E+03  ZX  0.0           C  8.838138E+03  LZ  0.0  1.00 0.0                                           \r\n0       8       46  X  8.840547E+03  XY  8.544410E+01  A  1.163691E+04  LX  0.03 0.0  1.00  -3.535951E+03   9.545954E+03            \r\n                    Y  1.163430E+04  YZ  0.0           B -9.866999E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z -9.866998E+03  ZX  0.0           C  8.837938E+03  LZ  0.0  1.00 0.0                                           \r\n0       8       45  X -1.239773E+04  XY  8.932683E+01  A -9.474391E+03  LX  0.03 0.0  1.00   1.766006E+04   9.582011E+03            \r\n                    Y -9.477106E+03  YZ  0.0           B -3.110536E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -3.110536E+04  ZX  0.0           C -1.240044E+04  LZ  0.0  1.00 0.0                                           \r\n0       8        0  X -1.767899E+03  XY  1.741077E+02  A  1.078586E+03  LX  0.06 0.0  1.00   7.062042E+03   9.563685E+03            \r\n                    Y  1.067936E+03  YZ  0.0           B -2.048616E+04  LY  1.00 0.0 -0.06                                          \r\n                    Z -2.048616E+04  ZX  0.0           C -1.778548E+03  LZ  0.0  1.00 0.0                                           \r\n0       9       22  X -1.127877E+04  XY  1.309701E+03  A  2.974750E+03  LX  0.09 0.0  1.00   8.986944E+03   8.946025E+03            \r\n                    Y  2.854406E+03  YZ  0.0           B -1.853647E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -1.853647E+04  ZX  0.0           C -1.139911E+04  LZ  0.0  1.00 0.0                                           \r\n0       9       23  X  8.702659E+03  XY  1.255127E+03  A  2.236225E+04  LX  0.09 0.0  1.00  -1.079963E+04   8.679802E+03            \r\n                    Y  2.224692E+04  YZ  0.0           B  1.449310E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z  1.449311E+03  ZX  0.0           C  8.587333E+03  LZ  0.0  1.00 0.0                                           \r\n0       9       41  X  8.600021E+03  XY  4.204839E+02  A  2.236212E+04  LX  0.03 0.0  1.00  -1.079950E+04   8.679790E+03            \r\n                    Y  2.234927E+04  YZ  0.0           B  1.449217E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z  1.449218E+03  ZX  0.0           C  8.587174E+03  LZ  0.0  1.00 0.0                                           \r\n0       9       40  X -1.138566E+04  XY  4.387598E+02  A  2.974739E+03  LX  0.03 0.0  1.00   8.986950E+03   8.946034E+03            \r\n                    Y  2.961333E+03  YZ  0.0           B -1.853652E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139907E+04  LZ  0.0  1.00 0.0                                           \r\n0       9       28  X -1.127853E+04  XY  1.309708E+03  A  2.974855E+03  LX  0.09 0.0  1.00   8.986806E+03   8.946027E+03            \r\n                    Y  2.854509E+03  YZ  0.0           B -1.853640E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -1.853640E+04  ZX  0.0           C -1.139887E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       9       29  X  8.702591E+03  XY  1.255115E+03  A  2.236219E+04  LX  0.09 0.0  1.00  -1.079959E+04   8.679776E+03            \r\n                    Y  2.224686E+04  YZ  0.0           B  1.449321E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z  1.449321E+03  ZX  0.0           C  8.587266E+03  LZ  0.0  1.00 0.0                                           \r\n0       9       47  X  8.600112E+03  XY  4.204577E+02  A  2.236219E+04  LX  0.03 0.0  1.00  -1.079958E+04   8.679797E+03            \r\n                    Y  2.234935E+04  YZ  0.0           B  1.449273E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z  1.449273E+03  ZX  0.0           C  8.587265E+03  LZ  0.0  1.00 0.0                                           \r\n0       9       46  X -1.138589E+04  XY  4.387921E+02  A  2.974672E+03  LX  0.03 0.0  1.00   8.987063E+03   8.946042E+03            \r\n                    Y  2.961264E+03  YZ  0.0           B -1.853657E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -1.853656E+04  ZX  0.0           C -1.139930E+04  LZ  0.0  1.00 0.0                                           \r\n0       9        0  X -1.340434E+03  XY  8.560180E+02  A  1.265535E+04  LX  0.06 0.0  1.00  -9.063167E+02   8.805805E+03            \r\n                    Y  1.260299E+04  YZ  0.0           B -8.543604E+03  LY  1.00 0.0 -0.06                                          \r\n                    Z -8.543604E+03  ZX  0.0           C -1.392791E+03  LZ  0.0  1.00 0.0                                           \r\n0      10       23  X -9.832527E+03  XY  2.225827E+03  A  1.439103E+04  LX  0.09 1.00 0.0    7.250740E+02   1.078421E+04            \r\n                    Y  1.418650E+04  YZ  0.0           B -1.003706E+04  LY  1.00-0.09 0.0                                           \r\n                    Z -6.529195E+03  ZX  0.0           C -6.529194E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       24  X  9.016569E+03  XY  2.136790E+03  A  3.227140E+04  LX  0.09 1.00 0.0   -1.780634E+04   1.032807E+04            \r\n                    Y  3.207506E+04  YZ  0.0           B  8.820231E+03  LY  1.00-0.09 0.0                                           \r\n                    Z  1.232739E+04  ZX  0.0           C  1.232738E+04  LZ  0.0  0.0  1.00                                          \r\n0      10       42  X  8.842154E+03  XY  7.158607E+02  A  3.227140E+04  LX  0.03 1.00 0.0   -1.780636E+04   1.032805E+04            \r\n                    Y  3.224954E+04  YZ  0.0           B  8.820294E+03  LY  1.00-0.03 0.0                                           \r\n                    Z  1.232740E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n0      10       41  X -1.001434E+04  XY  7.456534E+02  A  1.439109E+04  LX  0.03 1.00 0.0    7.250488E+02   1.078424E+04            \r\n                    Y  1.436831E+04  YZ  0.0           B -1.003713E+04  LY  1.00-0.03 0.0                                           \r\n                    Z -6.529115E+03  ZX  0.0           C -6.529109E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       29  X -9.832444E+03  XY  2.225818E+03  A  1.439115E+04  LX  0.09 1.00 0.0    7.249626E+02   1.078422E+04            \r\n                    Y  1.418663E+04  YZ  0.0           B -1.003697E+04  LY  1.00-0.09 0.0                                           \r\n                    Z -6.529075E+03  ZX  0.0           C -6.529070E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       30  X  9.016701E+03  XY  2.136791E+03  A  3.227143E+04  LX  0.09 1.00 0.0   -1.780640E+04   1.032804E+04            \r\n                    Y  3.207507E+04  YZ  0.0           B  8.820382E+03  LY  1.00-0.09 0.0                                           \r\n                    Z  1.232742E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n0      10       48  X  8.842233E+03  XY  7.158309E+02  A  3.227144E+04  LX  0.03 1.00 0.0   -1.780640E+04   1.032805E+04            \r\n                    Y  3.224955E+04  YZ  0.0           B  8.820366E+03  LY  1.00-0.03 0.0                                           \r\n                    Z  1.232740E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10       47  X -1.001444E+04  XY  7.457202E+02  A  1.439102E+04  LX  0.03 1.00 0.0    7.251185E+02   1.078424E+04            \r\n                    Y  1.436823E+04  YZ  0.0           B -1.003723E+04  LY  1.00-0.03 0.0                                           \r\n                    Z -6.529146E+03  ZX  0.0           C -6.529144E+03  LZ  0.0  0.0  1.00                                          \r\n0      10        0  X -4.970122E+02  XY  1.456037E+03  A  2.330892E+04  LX  0.06 1.00 0.0   -8.540660E+03   1.053922E+04            \r\n                    Y  2.321986E+04  YZ  0.0           B -5.860701E+02  LY  1.00-0.06 0.0                                           \r\n                    Z  2.899135E+03  ZX  0.0           C  2.899134E+03  LZ  0.0  0.0  1.00                                          \r\n0      11       37  X -1.299608E+04  XY  7.718271E+02  A -1.297250E+04  LX  1.00 0.0  0.03   3.647967E+04   1.851041E+04            \r\n                    Y -3.823407E+04  YZ  0.0           B -5.820886E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -5.820886E+04  ZX  0.0           C -3.825764E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       38  X  1.131685E+04  XY  7.350547E+02  A  1.133931E+04  LX  1.00 0.0  0.03   1.176627E+04   1.848020E+04            \r\n                    Y -1.271948E+04  YZ  0.0           B -3.389620E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -3.389620E+04  ZX  0.0           C -1.274193E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       56  X  1.113761E+04  XY  2.194207E+03  A  1.133922E+04  LX  1.00 0.0  0.09   1.176626E+04   1.848012E+04            \r\n                    Y -1.254033E+04  YZ  0.0           B -3.389607E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -3.389607E+04  ZX  0.0           C -1.274194E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       55  X -1.318394E+04  XY  2.303884E+03  A -1.297223E+04  LX  1.00 0.0  0.09   3.647949E+04   1.851048E+04            \r\n                    Y -3.804575E+04  YZ  0.0           B -5.820876E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825748E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       43  X -1.299605E+04  XY  7.717997E+02  A -1.297247E+04  LX  1.00 0.0  0.03   3.647964E+04   1.851044E+04            \r\n                    Y -3.823398E+04  YZ  0.0           B -5.820891E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -5.820890E+04  ZX  0.0           C -3.825754E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       44  X  1.131661E+04  XY  7.350700E+02  A  1.133907E+04  LX  1.00 0.0  0.03   1.176638E+04   1.848009E+04            \r\n                    Y -1.271957E+04  YZ  0.0           B -3.389616E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -3.389616E+04  ZX  0.0           C -1.274203E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       62  X  1.113770E+04  XY  2.194157E+03  A  1.133930E+04  LX  1.00 0.0  0.09   1.176622E+04   1.848014E+04            \r\n                    Y -1.254030E+04  YZ  0.0           B -3.389606E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -3.389606E+04  ZX  0.0           C -1.274190E+04  LZ  0.0  1.00 0.0                                           \r\n0      11       61  X -1.318408E+04  XY  2.303876E+03  A -1.297239E+04  LX  1.00 0.0  0.09   3.647964E+04   1.851047E+04            \r\n                    Y -3.804593E+04  YZ  0.0           B -5.820889E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -5.820888E+04  ZX  0.0           C -3.825762E+04  LZ  0.0  1.00 0.0                                           \r\n0      11        0  X -9.314234E+02  XY  1.501234E+03  A -8.396038E+02  LX  1.00 0.0  0.06   2.412295E+04   1.848289E+04            \r\n                    Y -2.538493E+04  YZ  0.0           B -4.605249E+04  LY  0.06 0.0 -1.00                                          \r\n                    Z -4.605249E+04  ZX  0.0           C -2.547675E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      12       38  X -1.297670E+04  XY  3.107932E+02  A -1.296719E+04  LX  1.00 0.0  0.03   2.680844E+04   1.305464E+04            \r\n                    Y -2.313892E+04  YZ  0.0           B -4.430971E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -4.430971E+04  ZX  0.0           C -2.314842E+04  LZ  0.0  1.00 0.0                                           \r\n0      12       39  X  9.699403E+03  XY  2.966287E+02  A  9.708466E+03  LX  1.00 0.0  0.03   3.978355E+03   1.309942E+04            \r\n                    Y -8.825329E-01  YZ  0.0           B -2.163359E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -2.163359E+04  ZX  0.0           C -9.942722E+00  LZ  0.0  1.00 0.0                                           \r\n0      12       57  X  9.626986E+03  XY  8.855081E+02  A  9.708352E+03  LX  1.00 0.0  0.09   3.978462E+03   1.309942E+04            \r\n                    Y  7.131857E+01  YZ  0.0           B -2.163370E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -2.163370E+04  ZX  0.0           C -1.004206E+01  LZ  0.0  1.00 0.0                                           \r\n0      12       56  X -1.305261E+04  XY  9.276832E+02  A -1.296736E+04  LX  1.00 0.0  0.09   2.680857E+04   1.305461E+04            \r\n                    Y -2.306329E+04  YZ  0.0           B -4.430981E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -4.430980E+04  ZX  0.0           C -2.314853E+04  LZ  0.0  1.00 0.0                                           \r\n0      12       44  X -1.297662E+04  XY  3.107822E+02  A -1.296711E+04  LX  1.00 0.0  0.03   2.680840E+04   1.305464E+04            \r\n                    Y -2.313892E+04  YZ  0.0           B -4.430966E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -4.430967E+04  ZX  0.0           C -2.314842E+04  LZ  0.0  1.00 0.0                                           \r\n0      12       45  X  9.699536E+03  XY  2.966304E+02  A  9.708598E+03  LX  1.00 0.0  0.03   3.978316E+03   1.309946E+04            \r\n                    Y -9.091188E-01  YZ  0.0           B -2.163358E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -2.163358E+04  ZX  0.0           C -9.969473E+00  LZ  0.0  1.00 0.0                                           \r\n0      12       63  X  9.626957E+03  XY  8.855155E+02  A  9.708326E+03  LX  1.00 0.0  0.09   3.978421E+03   1.309937E+04            \r\n                    Y  7.137288E+01  YZ  0.0           B -2.163360E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -2.163360E+04  ZX  0.0           C -9.990115E+00  LZ  0.0  1.00 0.0                                           \r\n0      12       62  X -1.305255E+04  XY  9.276594E+02  A -1.296732E+04  LX  1.00 0.0  0.09   2.680855E+04   1.305465E+04            \r\n                    Y -2.306325E+04  YZ  0.0           B -4.430985E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -4.430984E+04  ZX  0.0           C -2.314848E+04  LZ  0.0  1.00 0.0                                           \r\n0      12        0  X -1.675700E+03  XY  6.051501E+02  A -1.638690E+03  LX  1.00 0.0  0.06   1.539344E+04   1.307424E+04            \r\n                    Y -1.153294E+04  YZ  0.0           B -3.297169E+04  LY  0.06 0.0 -1.00                                          \r\n                    Z -3.297169E+04  ZX  0.0           C -1.156994E+04  LZ  0.0  1.00 0.0                                           \r\n0      13       39  X -1.239778E+04  XY -8.933924E+01  A -9.474388E+03  LX  0.03 0.0  1.00   1.766009E+04   9.582003E+03            \r\n                    Y -9.477121E+03  YZ  0.0           B -3.110537E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240051E+04  LZ  0.0  1.00 0.0                                           \r\n0      13       40  X  8.840688E+03  XY -8.543847E+01  A  1.163696E+04  LX  0.03 0.0  1.00  -3.536036E+03   9.545963E+03            \r\n                    Y  1.163435E+04  YZ  0.0           B -9.866932E+03  LY -1.00 0.0  0.03                                          \r\n                    Z -9.866932E+03  ZX  0.0           C  8.838080E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      13       58  X  8.861407E+03  XY -2.550578E+02  A  1.163688E+04  LX  0.09 0.0  1.00  -3.535967E+03   9.545930E+03            \r\n                    Y  1.161344E+04  YZ  0.0           B -9.866952E+03  LY -1.00 0.0  0.09                                          \r\n                    Z -9.866951E+03  ZX  0.0           C  8.837970E+03  LZ  0.0  1.00 0.0                                           \r\n0      13       57  X -1.237599E+04  XY -2.666093E+02  A -9.474392E+03  LX  0.09 0.0  1.00   1.766010E+04   9.582024E+03            \r\n                    Y -9.498896E+03  YZ  0.0           B -3.110541E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -3.110541E+04  ZX  0.0           C -1.240050E+04  LZ  0.0  1.00 0.0                                           \r\n0      13       45  X -1.239768E+04  XY -8.932755E+01  A -9.474396E+03  LX  0.03 0.0  1.00   1.766006E+04   9.582019E+03            \r\n                    Y -9.477140E+03  YZ  0.0           B -3.110537E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240042E+04  LZ  0.0  1.00 0.0                                           \r\n0      13       46  X  8.840594E+03  XY -8.543159E+01  A  1.163692E+04  LX  0.03 0.0  1.00  -3.535994E+03   9.545928E+03            \r\n                    Y  1.163431E+04  YZ  0.0           B -9.866921E+03  LY -1.00 0.0  0.03                                          \r\n                    Z -9.866921E+03  ZX  0.0           C  8.837984E+03  LZ  0.0  1.00 0.0                                           \r\n0      13       64  X  8.861588E+03  XY -2.550310E+02  A  1.163701E+04  LX  0.09 0.0  1.00  -3.536085E+03   9.545981E+03            \r\n                    Y  1.161358E+04  YZ  0.0           B -9.866912E+03  LY -1.00 0.0  0.09                                          \r\n                    Z -9.866912E+03  ZX  0.0           C  8.838158E+03  LZ  0.0  1.00 0.0                                           \r\n0      13       63  X -1.237612E+04  XY -2.666077E+02  A -9.474492E+03  LX  0.09 0.0  1.00   1.766019E+04   9.582010E+03            \r\n                    Y -9.498987E+03  YZ  0.0           B -3.110548E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -3.110548E+04  ZX  0.0           C -1.240061E+04  LZ  0.0  1.00 0.0                                           \r\n0      13        0  X -1.767912E+03  XY -1.741053E+02  A  1.078591E+03  LX  0.06 0.0  1.00   7.062045E+03   9.563685E+03            \r\n                    Y  1.067943E+03  YZ  0.0           B -2.048617E+04  LY -1.00 0.0  0.06                                          \r\n                    Z -2.048617E+04  ZX  0.0           C -1.778563E+03  LZ  0.0  1.00 0.0                                           \r\n0      14       40  X -1.138567E+04  XY -4.387800E+02  A  2.974721E+03  LX  0.03 0.0  1.00   8.986952E+03   8.946021E+03            \r\n                    Y  2.961313E+03  YZ  0.0           B -1.853650E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -1.853650E+04  ZX  0.0           C -1.139907E+04  LZ  0.0  1.00 0.0                                           \r\n0      14       41  X  8.599990E+03  XY -4.204848E+02  A  2.236219E+04  LX  0.03 0.0  1.00  -1.079953E+04   8.679807E+03            \r\n                    Y  2.234934E+04  YZ  0.0           B  1.449266E+03  LY -1.00 0.0  0.03                                          \r\n                    Z  1.449266E+03  ZX  0.0           C  8.587148E+03  LZ  0.0  1.00 0.0                                           \r\n0      14       59  X  8.702630E+03  XY -1.255120E+03  A  2.236221E+04  LX  0.09 0.0  1.00  -1.079959E+04   8.679803E+03            \r\n                    Y  2.224688E+04  YZ  0.0           B  1.449265E+03  LY -1.00 0.0  0.09                                          \r\n                    Z  1.449266E+03  ZX  0.0           C  8.587300E+03  LZ  0.0  1.00 0.0                                           \r\n0      14       58  X -1.127882E+04  XY -1.309704E+03  A  2.974726E+03  LX  0.09 0.0  1.00   8.986986E+03   8.946039E+03            \r\n                    Y  2.854383E+03  YZ  0.0           B -1.853653E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -1.853653E+04  ZX  0.0           C -1.139916E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      14       46  X -1.138575E+04  XY -4.387729E+02  A  2.974741E+03  LX  0.03 0.0  1.00   8.986979E+03   8.946042E+03            \r\n                    Y  2.961334E+03  YZ  0.0           B -1.853652E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139916E+04  LZ  0.0  1.00 0.0                                           \r\n0      14       47  X  8.600051E+03  XY -4.204969E+02  A  2.236216E+04  LX  0.03 0.0  1.00  -1.079953E+04   8.679797E+03            \r\n                    Y  2.234931E+04  YZ  0.0           B  1.449240E+03  LY -1.00 0.0  0.03                                          \r\n                    Z  1.449240E+03  ZX  0.0           C  8.587202E+03  LZ  0.0  1.00 0.0                                           \r\n0      14       65  X  8.702371E+03  XY -1.255133E+03  A  2.236220E+04  LX  0.09 0.0  1.00  -1.079952E+04   8.679810E+03            \r\n                    Y  2.224688E+04  YZ  0.0           B  1.449298E+03  LY -1.00 0.0  0.09                                          \r\n                    Z  1.449298E+03  ZX  0.0           C  8.587049E+03  LZ  0.0  1.00 0.0                                           \r\n0      14       64  X -1.127867E+04  XY -1.309708E+03  A  2.974823E+03  LX  0.09 0.0  1.00   8.986885E+03   8.946048E+03            \r\n                    Y  2.854479E+03  YZ  0.0           B -1.853646E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -1.853646E+04  ZX  0.0           C -1.139901E+04  LZ  0.0  1.00 0.0                                           \r\n0      14        0  X -1.340482E+03  XY -8.560250E+02  A  1.265535E+04  LX  0.06 0.0  1.00  -9.062968E+02   8.805814E+03            \r\n                    Y  1.260299E+04  YZ  0.0           B -8.543619E+03  LY -1.00 0.0  0.06                                          \r\n                    Z -8.543618E+03  ZX  0.0           C -1.392837E+03  LZ  0.0  1.00 0.0                                           \r\n0      15       41  X -1.001439E+04  XY -7.456570E+02  A  1.439109E+04  LX  0.03 1.00 0.0    7.250627E+02   1.078425E+04            \r\n                    Y  1.436831E+04  YZ  0.0           B -1.003717E+04  LY -1.00 0.03 0.0                                           \r\n                    Z -6.529109E+03  ZX  0.0           C -6.529107E+03  LZ  0.0  0.0  1.00                                          \r\n0      15       42  X  8.842219E+03  XY -7.158508E+02  A  3.227147E+04  LX  0.03 1.00 0.0   -1.780642E+04   1.032806E+04            \r\n                    Y  3.224960E+04  YZ  0.0           B  8.820354E+03  LY -1.00 0.03 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0      15       60  X  9.016590E+03  XY -2.136773E+03  A  3.227143E+04  LX  0.09 1.00 0.0   -1.780637E+04   1.032807E+04            \r\n                    Y  3.207509E+04  YZ  0.0           B  8.820246E+03  LY -1.00 0.09 0.0                                           \r\n                    Z  1.232744E+04  ZX  0.0           C  1.232745E+04  LZ  0.0  0.0  1.00                                          \r\n0      15       59  X -9.832405E+03  XY -2.225816E+03  A  1.439108E+04  LX  0.09 1.00 0.0    7.250139E+02   1.078420E+04            \r\n                    Y  1.418656E+04  YZ  0.0           B -1.003693E+04  LY -1.00 0.09 0.0                                           \r\n                    Z -6.529194E+03  ZX  0.0           C -6.529196E+03  LZ  0.0  0.0  1.00                                          \r\n0      15       47  X -1.001441E+04  XY -7.456857E+02  A  1.439106E+04  LX  0.03 1.00 0.0    7.250882E+02   1.078425E+04            \r\n                    Y  1.436827E+04  YZ  0.0           B -1.003720E+04  LY -1.00 0.03 0.0                                           \r\n                    Z -6.529131E+03  ZX  0.0           C -6.529126E+03  LZ  0.0  0.0  1.00                                          \r\n0      15       48  X  8.842167E+03  XY -7.158401E+02  A  3.227146E+04  LX  0.03 1.00 0.0   -1.780639E+04   1.032807E+04            \r\n                    Y  3.224959E+04  YZ  0.0           B  8.820284E+03  LY -1.00 0.03 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232744E+04  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      15       66  X  9.016801E+03  XY -2.136769E+03  A  3.227149E+04  LX  0.09 1.00 0.0   -1.780646E+04   1.032803E+04            \r\n                    Y  3.207515E+04  YZ  0.0           B  8.820470E+03  LY -1.00 0.09 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0      15       65  X -9.832506E+03  XY -2.225798E+03  A  1.439115E+04  LX  0.09 1.00 0.0    7.249783E+02   1.078423E+04            \r\n                    Y  1.418663E+04  YZ  0.0           B -1.003703E+04  LY -1.00 0.09 0.0                                           \r\n                    Z -6.529058E+03  ZX  0.0           C -6.529058E+03  LZ  0.0  0.0  1.00                                          \r\n0      15        0  X -4.969918E+02  XY -1.456024E+03  A  2.330896E+04  LX  0.06 1.00 0.0   -8.540689E+03   1.053923E+04            \r\n                    Y  2.321990E+04  YZ  0.0           B -5.860455E+02  LY -1.00 0.06 0.0                                           \r\n                    Z  2.899155E+03  ZX  0.0           C  2.899157E+03  LZ  0.0  0.0  1.00                                          \r\n0      16       55  X -1.355748E+04  XY  3.801698E+03  A -1.297234E+04  LX  0.99 0.0  0.15   3.647958E+04   1.851044E+04            \r\n                    Y -3.767250E+04  YZ  0.0           B -5.820875E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -5.820878E+04  ZX  0.0           C -3.825766E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       56  X  1.078197E+04  XY  3.620653E+03  A  1.133924E+04  LX  0.99 0.0  0.15   1.176622E+04   1.848012E+04            \r\n                    Y -1.218456E+04  YZ  0.0           B -3.389607E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -3.389607E+04  ZX  0.0           C -1.274182E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       74  X  1.025503E+04  XY  4.993123E+03  A  1.133914E+04  LX  0.98 0.0  0.21   1.176638E+04   1.848014E+04            \r\n                    Y -1.165798E+04  YZ  0.0           B -3.389621E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -3.389621E+04  ZX  0.0           C -1.274209E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       73  X -1.411090E+04  XY  5.242798E+03  A -1.297256E+04  LX  0.98 0.0  0.21   3.647973E+04   1.851042E+04            \r\n                    Y -3.711934E+04  YZ  0.0           B -5.820894E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -5.820896E+04  ZX  0.0           C -3.825769E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       61  X -1.355755E+04  XY  3.801710E+03  A -1.297240E+04  LX  0.99 0.0  0.15   3.647961E+04   1.851045E+04            \r\n                    Y -3.767239E+04  YZ  0.0           B -5.820885E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -5.820887E+04  ZX  0.0           C -3.825757E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       62  X  1.078215E+04  XY  3.620678E+03  A  1.133942E+04  LX  0.99 0.0  0.15   1.176622E+04   1.848018E+04            \r\n                    Y -1.218477E+04  YZ  0.0           B -3.389604E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -3.389604E+04  ZX  0.0           C -1.274204E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       80  X  1.025498E+04  XY  4.993116E+03  A  1.133909E+04  LX  0.98 0.0  0.21   1.176637E+04   1.848012E+04            \r\n                    Y -1.165786E+04  YZ  0.0           B -3.389623E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -3.389623E+04  ZX  0.0           C -1.274197E+04  LZ  0.0  1.00 0.0                                           \r\n0      16       79  X -1.411091E+04  XY  5.242798E+03  A -1.297259E+04  LX  0.98 0.0  0.21   3.647974E+04   1.851039E+04            \r\n                    Y -3.711941E+04  YZ  0.0           B -5.820891E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -5.820890E+04  ZX  0.0           C -3.825772E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      16        0  X -1.657839E+03  XY  4.414572E+03  A -8.396480E+02  LX  0.98 0.0  0.18   2.412298E+04   1.848288E+04            \r\n                    Y -2.465860E+04  YZ  0.0           B -4.605251E+04  LY  0.18 0.0 -0.98                                          \r\n                    Z -4.605251E+04  ZX  0.0           C -2.547678E+04  LZ  0.0  1.00 0.0                                           \r\n0      17       56  X -1.320298E+04  XY  1.530755E+03  A -1.296738E+04  LX  0.99 0.0  0.15   2.680851E+04   1.305457E+04            \r\n                    Y -2.291284E+04  YZ  0.0           B -4.430972E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -4.430973E+04  ZX  0.0           C -2.314844E+04  LZ  0.0  1.00 0.0                                           \r\n0      17       57  X  9.483430E+03  XY  1.461181E+03  A  9.708324E+03  LX  0.99 0.0  0.15   3.978511E+03   1.309941E+04            \r\n                    Y  2.147638E+02  YZ  0.0           B -2.163372E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -2.163372E+04  ZX  0.0           C -1.013330E+01  LZ  0.0  1.00 0.0                                           \r\n0      17       75  X  9.271054E+03  XY  2.015120E+03  A  9.708583E+03  LX  0.98 0.0  0.21   3.978317E+03   1.309946E+04            \r\n                    Y  4.275780E+02  YZ  0.0           B -2.163359E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -2.163359E+04  ZX  0.0           C -9.945301E+00  LZ  0.0  1.00 0.0                                           \r\n0      17       74  X -1.342564E+04  XY  2.111030E+03  A -1.296730E+04  LX  0.98 0.0  0.21   2.680855E+04   1.305464E+04            \r\n                    Y -2.269018E+04  YZ  0.0           B -4.430984E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -4.430983E+04  ZX  0.0           C -2.314851E+04  LZ  0.0  1.00 0.0                                           \r\n0      17       62  X -1.320279E+04  XY  1.530779E+03  A -1.296719E+04  LX  0.99 0.0  0.15   2.680845E+04   1.305465E+04            \r\n                    Y -2.291280E+04  YZ  0.0           B -4.430975E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -4.430975E+04  ZX  0.0           C -2.314840E+04  LZ  0.0  1.00 0.0                                           \r\n0      17       63  X  9.483473E+03  XY  1.461188E+03  A  9.708370E+03  LX  0.99 0.0  0.15   3.978458E+03   1.309941E+04            \r\n                    Y  2.148196E+02  YZ  0.0           B -2.163367E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -2.163367E+04  ZX  0.0           C -1.007525E+01  LZ  0.0  1.00 0.0                                           \r\n0      17       81  X  9.270857E+03  XY  2.015079E+03  A  9.708375E+03  LX  0.98 0.0  0.21   3.978417E+03   1.309941E+04            \r\n                    Y  4.275191E+02  YZ  0.0           B -2.163363E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -2.163363E+04  ZX  0.0           C -9.993999E+00  LZ  0.0  1.00 0.0                                           \r\n0      17       80  X -1.342575E+04  XY  2.111012E+03  A -1.296740E+04  LX  0.98 0.0  0.21   2.680859E+04   1.305459E+04            \r\n                    Y -2.269018E+04  YZ  0.0           B -4.430981E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -4.430983E+04  ZX  0.0           C -2.314854E+04  LZ  0.0  1.00 0.0                                           \r\n0      17        0  X -1.968542E+03  XY  1.779518E+03  A -1.638730E+03  LX  0.98 0.0  0.18   1.539348E+04   1.307423E+04            \r\n                    Y -1.124017E+04  YZ  0.0           B -3.297172E+04  LY  0.18 0.0 -0.98                                          \r\n                    Z -3.297172E+04  ZX  0.0           C -1.156998E+04  LZ  0.0  1.00 0.0                                           \r\n0      18       57  X -1.233273E+04  XY -4.399454E+02  A -9.474340E+03  LX  0.15 0.0  0.99   1.766004E+04   9.582020E+03            \r\n                    Y -9.542055E+03  YZ  0.0           B -3.110535E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -3.110534E+04  ZX  0.0           C -1.240045E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      18       58  X  8.902924E+03  XY -4.208455E+02  A  1.163691E+04  LX  0.15 0.0  0.99  -3.536031E+03   9.545976E+03            \r\n                    Y  1.157213E+04  YZ  0.0           B -9.866964E+03  LY -0.99 0.0  0.15                                          \r\n                    Z -9.866964E+03  ZX  0.0           C  8.838147E+03  LZ  0.0  1.00 0.0                                           \r\n0      18       76  X  8.963975E+03  XY -5.803478E+02  A  1.163699E+04  LX  0.21 0.0  0.98  -3.536006E+03   9.545957E+03            \r\n                    Y  1.151099E+04  YZ  0.0           B -9.866945E+03  LY -0.98 0.0  0.21                                          \r\n                    Z -9.866944E+03  ZX  0.0           C  8.837972E+03  LZ  0.0  1.00 0.0                                           \r\n0      18       75  X -1.226881E+04  XY -6.067138E+02  A -9.474447E+03  LX  0.21 0.0  0.98   1.766012E+04   9.581979E+03            \r\n                    Y -9.606183E+03  YZ  0.0           B -3.110536E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240054E+04  LZ  0.0  1.00 0.0                                           \r\n0      18       63  X -1.233284E+04  XY -4.399847E+02  A -9.474521E+03  LX  0.15 0.0  0.99   1.766019E+04   9.582016E+03            \r\n                    Y -9.542246E+03  YZ  0.0           B -3.110549E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -3.110549E+04  ZX  0.0           C -1.240055E+04  LZ  0.0  1.00 0.0                                           \r\n0      18       64  X  8.902749E+03  XY -4.208141E+02  A  1.163696E+04  LX  0.15 0.0  0.99  -3.535998E+03   9.545951E+03            \r\n                    Y  1.157219E+04  YZ  0.0           B -9.866947E+03  LY -0.99 0.0  0.15                                          \r\n                    Z -9.866947E+03  ZX  0.0           C  8.837984E+03  LZ  0.0  1.00 0.0                                           \r\n0      18       82  X  8.963942E+03  XY -5.803636E+02  A  1.163693E+04  LX  0.21 0.0  0.98  -3.535963E+03   9.545951E+03            \r\n                    Y  1.151092E+04  YZ  0.0           B -9.866980E+03  LY -0.98 0.0  0.21                                          \r\n                    Z -9.866980E+03  ZX  0.0           C  8.837936E+03  LZ  0.0  1.00 0.0                                           \r\n0      18       81  X -1.226892E+04  XY -6.067174E+02  A -9.474498E+03  LX  0.21 0.0  0.98   1.766019E+04   9.581975E+03            \r\n                    Y -9.606219E+03  YZ  0.0           B -3.110542E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -3.110542E+04  ZX  0.0           C -1.240064E+04  LZ  0.0  1.00 0.0                                           \r\n0      18        0  X -1.683714E+03  XY -5.119666E+02  A  1.078582E+03  LX  0.18 0.0  0.98   7.062069E+03   9.563684E+03            \r\n                    Y  9.836915E+02  YZ  0.0           B -2.048619E+04  LY -0.98 0.0  0.18                                          \r\n                    Z -2.048618E+04  ZX  0.0           C -1.778604E+03  LZ  0.0  1.00 0.0                                           \r\n0      19       58  X -1.106630E+04  XY -2.161192E+03  A  2.974849E+03  LX  0.15 0.0  0.99   8.986837E+03   8.946036E+03            \r\n                    Y  2.642202E+03  YZ  0.0           B -1.853642E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -1.853642E+04  ZX  0.0           C -1.139895E+04  LZ  0.0  1.00 0.0                                           \r\n0      19       59  X  8.905987E+03  XY -2.071126E+03  A  2.236222E+04  LX  0.15 0.0  0.99  -1.079957E+04   8.679812E+03            \r\n                    Y  2.204344E+04  YZ  0.0           B  1.449274E+03  LY -0.99 0.0  0.15                                          \r\n                    Z  1.449273E+03  ZX  0.0           C  8.587210E+03  LZ  0.0  1.00 0.0                                           \r\n0      19       77  X  9.207343E+03  XY -2.856186E+03  A  2.236220E+04  LX  0.21 0.0  0.98  -1.079955E+04   8.679814E+03            \r\n                    Y  2.174206E+04  YZ  0.0           B  1.449240E+03  LY -0.98 0.0  0.21                                          \r\n                    Z  1.449242E+03  ZX  0.0           C  8.587208E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      19       76  X -1.075202E+04  XY -2.980351E+03  A  2.974787E+03  LX  0.21 0.0  0.98   8.986923E+03   8.946034E+03            \r\n                    Y  2.327696E+03  YZ  0.0           B -1.853645E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -1.853645E+04  ZX  0.0           C -1.139911E+04  LZ  0.0  1.00 0.0                                           \r\n0      19       64  X -1.106642E+04  XY -2.161162E+03  A  2.974770E+03  LX  0.15 0.0  0.99   8.986926E+03   8.946035E+03            \r\n                    Y  2.642133E+03  YZ  0.0           B -1.853648E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -1.853649E+04  ZX  0.0           C -1.139906E+04  LZ  0.0  1.00 0.0                                           \r\n0      19       65  X  8.905895E+03  XY -2.071118E+03  A  2.236220E+04  LX  0.15 0.0  0.99  -1.079953E+04   8.679811E+03            \r\n                    Y  2.204343E+04  YZ  0.0           B  1.449275E+03  LY -0.99 0.0  0.15                                          \r\n                    Z  1.449277E+03  ZX  0.0           C  8.587124E+03  LZ  0.0  1.00 0.0                                           \r\n0      19       83  X  9.207486E+03  XY -2.856167E+03  A  2.236231E+04  LX  0.21 0.0  0.98  -1.079966E+04   8.679823E+03            \r\n                    Y  2.174218E+04  YZ  0.0           B  1.449320E+03  LY -0.98 0.0  0.21                                          \r\n                    Z  1.449322E+03  ZX  0.0           C  8.587361E+03  LZ  0.0  1.00 0.0                                           \r\n0      19       82  X -1.075195E+04  XY -2.980335E+03  A  2.974812E+03  LX  0.21 0.0  0.98   8.986898E+03   8.946047E+03            \r\n                    Y  2.327727E+03  YZ  0.0           B -1.853647E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -1.853647E+04  ZX  0.0           C -1.139904E+04  LZ  0.0  1.00 0.0                                           \r\n0      19        0  X -9.262480E+02  XY -2.517205E+03  A  1.265539E+04  LX  0.18 0.0  0.98  -9.063405E+02   8.805819E+03            \r\n                    Y  1.218886E+04  YZ  0.0           B -8.543588E+03  LY -0.98 0.0  0.18                                          \r\n                    Z -8.543590E+03  ZX  0.0           C -1.392783E+03  LZ  0.0  1.00 0.0                                           \r\n0      20       59  X -9.471438E+03  XY -3.672870E+03  A  1.439120E+04  LX  0.15 0.99 0.0    7.248748E+02   1.078418E+04            \r\n                    Y  1.382588E+04  YZ  0.0           B -1.003676E+04  LY -0.99 0.15 0.0                                           \r\n                    Z -6.529066E+03  ZX  0.0           C -6.529067E+03  LZ  0.0  0.0  1.00                                          \r\n0      20       60  X  9.362906E+03  XY -3.525957E+03  A  3.227148E+04  LX  0.15 0.99 0.0   -1.780638E+04   1.032810E+04            \r\n                    Y  3.172879E+04  YZ  0.0           B  8.820214E+03  LY -0.99 0.15 0.0                                           \r\n                    Z  1.232746E+04  ZX  0.0           C  1.232746E+04  LZ  0.0  0.0  1.00                                          \r\n0      20       78  X  9.876243E+03  XY -4.862483E+03  A  3.227150E+04  LX  0.21 0.98 0.0   -1.780650E+04   1.032802E+04            \r\n                    Y  3.121575E+04  YZ  0.0           B  8.820496E+03  LY -0.98 0.21 0.0                                           \r\n                    Z  1.232750E+04  ZX  0.0           C  1.232750E+04  LZ  0.0  0.0  1.00                                          \r\n0      20       77  X -8.937543E+03  XY -5.065085E+03  A  1.439106E+04  LX  0.21 0.98 0.0    7.251333E+02   1.078429E+04            \r\n                    Y  1.329134E+04  YZ  0.0           B -1.003727E+04  LY -0.98 0.21 0.0                                           \r\n                    Z -6.529196E+03  ZX  0.0           C -6.529196E+03  LZ  0.0  0.0  1.00                                          \r\n0      20       65  X -9.471935E+03  XY -3.672879E+03  A  1.439106E+04  LX  0.15 0.99 0.0    7.251140E+02   1.078427E+04            \r\n                    Y  1.382575E+04  YZ  0.0           B -1.003725E+04  LY -0.99 0.15 0.0                                           \r\n                    Z -6.529155E+03  ZX  0.0           C -6.529154E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      20       66  X  9.363246E+03  XY -3.525954E+03  A  3.227153E+04  LX  0.15 0.99 0.0   -1.780653E+04   1.032802E+04            \r\n                    Y  3.172882E+04  YZ  0.0           B  8.820545E+03  LY -0.99 0.15 0.0                                           \r\n                    Z  1.232751E+04  ZX  0.0           C  1.232751E+04  LZ  0.0  0.0  1.00                                          \r\n0      20       84  X  9.876041E+03  XY -4.862484E+03  A  3.227151E+04  LX  0.21 0.98 0.0   -1.780640E+04   1.032810E+04            \r\n                    Y  3.121577E+04  YZ  0.0           B  8.820292E+03  LY -0.98 0.21 0.0                                           \r\n                    Z  1.232738E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n0      20       83  X -8.937338E+03  XY -5.065090E+03  A  1.439116E+04  LX  0.21 0.98 0.0    7.249865E+02   1.078425E+04            \r\n                    Y  1.329143E+04  YZ  0.0           B -1.003707E+04  LY -0.98 0.21 0.0                                           \r\n                    Z -6.529046E+03  ZX  0.0           C -6.529047E+03  LZ  0.0  0.0  1.00                                          \r\n0      20        0  X  2.075228E+02  XY -4.281601E+03  A  2.330899E+04  LX  0.18 0.98 0.0   -8.540714E+03   1.053923E+04            \r\n                    Y  2.251544E+04  YZ  0.0           B -5.860214E+02  LY -0.98 0.18 0.0                                           \r\n                    Z  2.899173E+03  ZX  0.0           C  2.899171E+03  LZ  0.0  0.0  1.00                                          \r\n0      21        7  X -1.411064E+04  XY -5.242738E+03  A -1.297235E+04  LX  0.98 0.0  0.21   3.647954E+04   1.851044E+04            \r\n                    Y -3.711920E+04  YZ  0.0           B -5.820880E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825748E+04  LZ  0.0  1.00 0.0                                           \r\n0      21        8  X  1.025496E+04  XY -4.993113E+03  A  1.133907E+04  LX  0.98 0.0  0.21   1.176639E+04   1.848011E+04            \r\n                    Y -1.165793E+04  YZ  0.0           B -3.389621E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -3.389621E+04  ZX  0.0           C -1.274203E+04  LZ  0.0  1.00 0.0                                           \r\n0      21       26  X  1.078215E+04  XY -3.620709E+03  A  1.133943E+04  LX  0.99 0.0  0.15   1.176612E+04   1.848017E+04            \r\n                    Y -1.218451E+04  YZ  0.0           B -3.389600E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -3.389600E+04  ZX  0.0           C -1.274179E+04  LZ  0.0  1.00 0.0                                           \r\n0      21       25  X -1.355755E+04  XY -3.801744E+03  A -1.297240E+04  LX  0.99 0.0  0.15   3.647955E+04   1.851042E+04            \r\n                    Y -3.767229E+04  YZ  0.0           B -5.820880E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825743E+04  LZ  0.0  1.00 0.0                                           \r\n0      21       13  X -1.411068E+04  XY -5.242768E+03  A -1.297237E+04  LX  0.98 0.0  0.21   3.647954E+04   1.851045E+04            \r\n                    Y -3.711913E+04  YZ  0.0           B -5.820884E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -5.820882E+04  ZX  0.0           C -3.825742E+04  LZ  0.0  1.00 0.0                                           \r\n0      21       14  X  1.025501E+04  XY -4.993103E+03  A  1.133912E+04  LX  0.98 0.0  0.21   1.176631E+04   1.848009E+04            \r\n                    Y -1.165784E+04  YZ  0.0           B -3.389612E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -3.389612E+04  ZX  0.0           C -1.274194E+04  LZ  0.0  1.00 0.0                                           \r\n0      21       32  X  1.078194E+04  XY -3.620697E+03  A  1.133923E+04  LX  0.99 0.0  0.15   1.176623E+04   1.848012E+04            \r\n                    Y -1.218454E+04  YZ  0.0           B -3.389610E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -3.389610E+04  ZX  0.0           C -1.274182E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      21       31  X -1.355746E+04  XY -3.801750E+03  A -1.297231E+04  LX  0.99 0.0  0.15   3.647952E+04   1.851047E+04            \r\n                    Y -3.767232E+04  YZ  0.0           B -5.820882E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825744E+04  LZ  0.0  1.00 0.0                                           \r\n0      21        0  X -1.657784E+03  XY -4.414578E+03  A -8.395894E+02  LX  0.98 0.0  0.18   2.412290E+04   1.848288E+04            \r\n                    Y -2.465847E+04  YZ  0.0           B -4.605246E+04  LY -0.18 0.0  0.98                                          \r\n                    Z -4.605246E+04  ZX  0.0           C -2.547666E+04  LZ  0.0  1.00 0.0                                           \r\n0      22        8  X -1.342556E+04  XY -2.111012E+03  A -1.296722E+04  LX  0.98 0.0  0.21   2.680847E+04   1.305465E+04            \r\n                    Y -2.269010E+04  YZ  0.0           B -4.430976E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -4.430975E+04  ZX  0.0           C -2.314843E+04  LZ  0.0  1.00 0.0                                           \r\n0      22        9  X  9.270895E+03  XY -2.015075E+03  A  9.708409E+03  LX  0.98 0.0  0.21   3.978414E+03   1.309942E+04            \r\n                    Y  4.275110E+02  YZ  0.0           B -2.163365E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -2.163365E+04  ZX  0.0           C -1.000110E+01  LZ  0.0  1.00 0.0                                           \r\n0      22       27  X  9.483444E+03  XY -1.461203E+03  A  9.708348E+03  LX  0.99 0.0  0.15   3.978467E+03   1.309943E+04            \r\n                    Y  2.148641E+02  YZ  0.0           B -2.163371E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -2.163371E+04  ZX  0.0           C -1.003594E+01  LZ  0.0  1.00 0.0                                           \r\n0      22       26  X -1.320301E+04  XY -1.530790E+03  A -1.296740E+04  LX  0.99 0.0  0.15   2.680855E+04   1.305460E+04            \r\n                    Y -2.291283E+04  YZ  0.0           B -4.430981E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -4.430981E+04  ZX  0.0           C -2.314844E+04  LZ  0.0  1.00 0.0                                           \r\n0      22       14  X -1.342576E+04  XY -2.111031E+03  A -1.296741E+04  LX  0.98 0.0  0.21   2.680854E+04   1.305458E+04            \r\n                    Y -2.269010E+04  YZ  0.0           B -4.430976E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -4.430977E+04  ZX  0.0           C -2.314846E+04  LZ  0.0  1.00 0.0                                           \r\n0      22       15  X  9.270871E+03  XY -2.015060E+03  A  9.708382E+03  LX  0.98 0.0  0.21   3.978433E+03   1.309942E+04            \r\n                    Y  4.274928E+02  YZ  0.0           B -2.163367E+04  LY -0.21 0.0  0.98                                          \r\n                    Z -2.163367E+04  ZX  0.0           C -1.001271E+01  LZ  0.0  1.00 0.0                                           \r\n0      22       33  X  9.483357E+03  XY -1.461227E+03  A  9.708269E+03  LX  0.99 0.0  0.15   3.978514E+03   1.309941E+04            \r\n                    Y  2.148393E+02  YZ  0.0           B -2.163374E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -2.163374E+04  ZX  0.0           C -1.007045E+01  LZ  0.0  1.00 0.0                                           \r\n0      22       32  X -1.320294E+04  XY -1.530776E+03  A -1.296732E+04  LX  0.99 0.0  0.15   2.680849E+04   1.305460E+04            \r\n                    Y -2.291280E+04  YZ  0.0           B -4.430973E+04  LY -0.15 0.0  0.99                                          \r\n                    Z -4.430972E+04  ZX  0.0           C -2.314842E+04  LZ  0.0  1.00 0.0                                           \r\n0      22        0  X -1.968589E+03  XY -1.779522E+03  A -1.638771E+03  LX  0.98 0.0  0.18   1.539349E+04   1.307423E+04            \r\n                    Y -1.124014E+04  YZ  0.0           B -3.297173E+04  LY -0.18 0.0  0.98                                          \r\n                    Z -3.297173E+04  ZX  0.0           C -1.156996E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      23        9  X -1.226870E+04  XY  6.067010E+02  A -9.474375E+03  LX  0.21 0.0  0.98   1.766005E+04   9.582010E+03            \r\n                    Y -9.606109E+03  YZ  0.0           B -3.110534E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -3.110535E+04  ZX  0.0           C -1.240044E+04  LZ  0.0  1.00 0.0                                           \r\n0      23       10  X  8.964049E+03  XY  5.803546E+02  A  1.163696E+04  LX  0.21 0.0  0.98  -3.536032E+03   9.545937E+03            \r\n                    Y  1.151095E+04  YZ  0.0           B -9.866896E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z -9.866896E+03  ZX  0.0           C  8.838035E+03  LZ  0.0  1.00 0.0                                           \r\n0      23       28  X  8.902847E+03  XY  4.207919E+02  A  1.163698E+04  LX  0.15 0.0  0.99  -3.536040E+03   9.545973E+03            \r\n                    Y  1.157222E+04  YZ  0.0           B -9.866941E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z -9.866941E+03  ZX  0.0           C  8.838086E+03  LZ  0.0  1.00 0.0                                           \r\n0      23       27  X -1.233283E+04  XY  4.399509E+02  A -9.474454E+03  LX  0.15 0.0  0.99   1.766015E+04   9.582024E+03            \r\n                    Y -9.542174E+03  YZ  0.0           B -3.110546E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -3.110546E+04  ZX  0.0           C -1.240054E+04  LZ  0.0  1.00 0.0                                           \r\n0      23       15  X -1.226880E+04  XY  6.067067E+02  A -9.474370E+03  LX  0.21 0.0  0.98   1.766010E+04   9.582034E+03            \r\n                    Y -9.606088E+03  YZ  0.0           B -3.110542E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -3.110542E+04  ZX  0.0           C -1.240051E+04  LZ  0.0  1.00 0.0                                           \r\n0      23       16  X  8.964235E+03  XY  5.803387E+02  A  1.163690E+04  LX  0.21 0.0  0.98  -3.536061E+03   9.545979E+03            \r\n                    Y  1.151089E+04  YZ  0.0           B -9.866944E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z -9.866944E+03  ZX  0.0           C  8.838227E+03  LZ  0.0  1.00 0.0                                           \r\n0      23       34  X  8.902752E+03  XY  4.208012E+02  A  1.163694E+04  LX  0.15 0.0  0.99  -3.536009E+03   9.545930E+03            \r\n                    Y  1.157218E+04  YZ  0.0           B -9.866907E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z -9.866907E+03  ZX  0.0           C  8.837993E+03  LZ  0.0  1.00 0.0                                           \r\n0      23       33  X -1.233271E+04  XY  4.399398E+02  A -9.474477E+03  LX  0.15 0.0  0.99   1.766010E+04   9.582016E+03            \r\n                    Y -9.542188E+03  YZ  0.0           B -3.110541E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -3.110541E+04  ZX  0.0           C -1.240042E+04  LZ  0.0  1.00 0.0                                           \r\n0      23        0  X -1.683645E+03  XY  5.119481E+02  A  1.078592E+03  LX  0.18 0.0  0.98   7.062033E+03   9.563691E+03            \r\n                    Y  9.837091E+02  YZ  0.0           B -2.048617E+04  LY  0.98 0.0 -0.18                                          \r\n                    Z -2.048617E+04  ZX  0.0           C -1.778524E+03  LZ  0.0  1.00 0.0                                           \r\n0      24       10  X -1.075197E+04  XY  2.980322E+03  A  2.974776E+03  LX  0.21 0.0  0.98   8.986930E+03   8.946049E+03            \r\n                    Y  2.327695E+03  YZ  0.0           B -1.853652E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139905E+04  LZ  0.0  1.00 0.0                                           \r\n0      24       11  X  9.207339E+03  XY  2.856190E+03  A  2.236213E+04  LX  0.21 0.0  0.98  -1.079953E+04   8.679777E+03            \r\n                    Y  2.174199E+04  YZ  0.0           B  1.449265E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z  1.449265E+03  ZX  0.0           C  8.587201E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      24       29  X  8.906044E+03  XY  2.071079E+03  A  2.236209E+04  LX  0.15 0.0  0.99  -1.079955E+04   8.679747E+03            \r\n                    Y  2.204332E+04  YZ  0.0           B  1.449280E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z  1.449280E+03  ZX  0.0           C  8.587277E+03  LZ  0.0  1.00 0.0                                           \r\n0      24       28  X -1.106642E+04  XY  2.161177E+03  A  2.974838E+03  LX  0.15 0.0  0.99   8.986859E+03   8.946020E+03            \r\n                    Y  2.642197E+03  YZ  0.0           B -1.853636E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -1.853636E+04  ZX  0.0           C -1.139906E+04  LZ  0.0  1.00 0.0                                           \r\n0      24       16  X -1.075200E+04  XY  2.980366E+03  A  2.974725E+03  LX  0.21 0.0  0.98   8.986966E+03   8.946032E+03            \r\n                    Y  2.327623E+03  YZ  0.0           B -1.853652E+04  LY  0.98 0.0 -0.21                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139910E+04  LZ  0.0  1.00 0.0                                           \r\n0      24       17  X  9.207314E+03  XY  2.856173E+03  A  2.236218E+04  LX  0.21 0.0  0.98  -1.079956E+04   8.679783E+03            \r\n                    Y  2.174205E+04  YZ  0.0           B  1.449309E+03  LY  0.98 0.0 -0.21                                          \r\n                    Z  1.449309E+03  ZX  0.0           C  8.587185E+03  LZ  0.0  1.00 0.0                                           \r\n0      24       35  X  8.905957E+03  XY  2.071096E+03  A  2.236212E+04  LX  0.15 0.0  0.99  -1.079950E+04   8.679798E+03            \r\n                    Y  2.204335E+04  YZ  0.0           B  1.449201E+03  LY  0.99 0.0 -0.15                                          \r\n                    Z  1.449202E+03  ZX  0.0           C  8.587184E+03  LZ  0.0  1.00 0.0                                           \r\n0      24       34  X -1.106624E+04  XY  2.161113E+03  A  2.974842E+03  LX  0.15 0.0  0.99   8.986810E+03   8.946021E+03            \r\n                    Y  2.642217E+03  YZ  0.0           B -1.853640E+04  LY  0.99 0.0 -0.15                                          \r\n                    Z -1.853641E+04  ZX  0.0           C -1.139887E+04  LZ  0.0  1.00 0.0                                           \r\n0      24        0  X -9.262469E+02  XY  2.517190E+03  A  1.265534E+04  LX  0.18 0.0  0.98  -9.063216E+02   8.805797E+03            \r\n                    Y  1.218881E+04  YZ  0.0           B -8.543595E+03  LY  0.98 0.0 -0.18                                          \r\n                    Z -8.543594E+03  ZX  0.0           C -1.392778E+03  LZ  0.0  1.00 0.0                                           \r\n0      25       11  X -8.937519E+03  XY  5.065115E+03  A  1.439100E+04  LX  0.21 0.98 0.0    7.251403E+02   1.078425E+04            \r\n                    Y  1.329126E+04  YZ  0.0           B -1.003727E+04  LY  0.98-0.21 0.0                                           \r\n                    Z -6.529159E+03  ZX  0.0           C -6.529156E+03  LZ  0.0  0.0  1.00                                          \r\n0      25       12  X  9.876238E+03  XY  4.862513E+03  A  3.227139E+04  LX  0.21 0.98 0.0   -1.780641E+04   1.032799E+04            \r\n                    Y  3.121562E+04  YZ  0.0           B  8.820473E+03  LY  0.98-0.21 0.0                                           \r\n                    Z  1.232739E+04  ZX  0.0           C  1.232738E+04  LZ  0.0  0.0  1.00                                          \r\n0      25       30  X  9.362969E+03  XY  3.525958E+03  A  3.227144E+04  LX  0.15 0.99 0.0   -1.780638E+04   1.032807E+04            \r\n                    Y  3.172874E+04  YZ  0.0           B  8.820266E+03  LY  0.99-0.15 0.0                                           \r\n                    Z  1.232742E+04  ZX  0.0           C  1.232742E+04  LZ  0.0  0.0  1.00                                          \r\n0      25       29  X -9.471760E+03  XY  3.672830E+03  A  1.439105E+04  LX  0.15 0.99 0.0    7.250488E+02   1.078421E+04            \r\n                    Y  1.382575E+04  YZ  0.0           B -1.003706E+04  LY  0.99-0.15 0.0                                           \r\n                    Z -6.529137E+03  ZX  0.0           C -6.529137E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      25       17  X -8.937280E+03  XY  5.065061E+03  A  1.439105E+04  LX  0.21 0.98 0.0    7.250340E+02   1.078420E+04            \r\n                    Y  1.329132E+04  YZ  0.0           B -1.003701E+04  LY  0.98-0.21 0.0                                           \r\n                    Z -6.529145E+03  ZX  0.0           C -6.529142E+03  LZ  0.0  0.0  1.00                                          \r\n0      25       18  X  9.876032E+03  XY  4.862485E+03  A  3.227139E+04  LX  0.21 0.98 0.0   -1.780636E+04   1.032804E+04            \r\n                    Y  3.121564E+04  YZ  0.0           B  8.820296E+03  LY  0.98-0.21 0.0                                           \r\n                    Z  1.232741E+04  ZX  0.0           C  1.232740E+04  LZ  0.0  0.0  1.00                                          \r\n0      25       36  X  9.363142E+03  XY  3.525947E+03  A  3.227139E+04  LX  0.15 0.99 0.0   -1.780642E+04   1.032800E+04            \r\n                    Y  3.172870E+04  YZ  0.0           B  8.820446E+03  LY  0.99-0.15 0.0                                           \r\n                    Z  1.232744E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0      25       35  X -9.471812E+03  XY  3.672896E+03  A  1.439098E+04  LX  0.15 0.99 0.0    7.251074E+02   1.078420E+04            \r\n                    Y  1.382566E+04  YZ  0.0           B -1.003714E+04  LY  0.99-0.15 0.0                                           \r\n                    Z -6.529169E+03  ZX  0.0           C -6.529166E+03  LZ  0.0  0.0  1.00                                          \r\n0      25        0  X  2.075015E+02  XY  4.281601E+03  A  2.330889E+04  LX  0.18 0.98 0.0   -8.540656E+03   1.053920E+04            \r\n                    Y  2.251534E+04  YZ  0.0           B -5.860502E+02  LY  0.98-0.18 0.0                                           \r\n                    Z  2.899130E+03  ZX  0.0           C  2.899132E+03  LZ  0.0  0.0  1.00                                          \r\n0      26       25  X -1.318405E+04  XY -2.303928E+03  A -1.297236E+04  LX  1.00 0.0  0.09   3.647953E+04   1.851044E+04            \r\n                    Y -3.804575E+04  YZ  0.0           B -5.820880E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825743E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       26  X  1.113774E+04  XY -2.194233E+03  A  1.133936E+04  LX  1.00 0.0  0.09   1.176622E+04   1.848018E+04            \r\n                    Y -1.254032E+04  YZ  0.0           B -3.389610E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -3.389610E+04  ZX  0.0           C -1.274193E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       44  X  1.131672E+04  XY -7.351105E+02  A  1.133918E+04  LX  1.00 0.0  0.03   1.176630E+04   1.848013E+04            \r\n                    Y -1.271948E+04  YZ  0.0           B -3.389615E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -3.389615E+04  ZX  0.0           C -1.274194E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       43  X -1.299606E+04  XY -7.718502E+02  A -1.297247E+04  LX  1.00 0.0  0.03   3.647964E+04   1.851042E+04            \r\n                    Y -3.823398E+04  YZ  0.0           B -5.820887E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -5.820887E+04  ZX  0.0           C -3.825757E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       31  X -1.318404E+04  XY -2.303927E+03  A -1.297234E+04  LX  1.00 0.0  0.09   3.647959E+04   1.851047E+04            \r\n                    Y -3.804588E+04  YZ  0.0           B -5.820885E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -5.820885E+04  ZX  0.0           C -3.825758E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       32  X  1.113752E+04  XY -2.194181E+03  A  1.133913E+04  LX  1.00 0.0  0.09   1.176627E+04   1.848006E+04            \r\n                    Y -1.254030E+04  YZ  0.0           B -3.389604E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -3.389604E+04  ZX  0.0           C -1.274191E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      26       50  X  1.131681E+04  XY -7.351072E+02  A  1.133927E+04  LX  1.00 0.0  0.03   1.176627E+04   1.848016E+04            \r\n                    Y -1.271948E+04  YZ  0.0           B -3.389615E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -3.389615E+04  ZX  0.0           C -1.274194E+04  LZ  0.0  1.00 0.0                                           \r\n0      26       49  X -1.299594E+04  XY -7.718775E+02  A -1.297236E+04  LX  1.00 0.0  0.03   3.647954E+04   1.851046E+04            \r\n                    Y -3.823390E+04  YZ  0.0           B -5.820883E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -5.820880E+04  ZX  0.0           C -3.825745E+04  LZ  0.0  1.00 0.0                                           \r\n0      26        0  X -9.314135E+02  XY -1.501277E+03  A -8.395925E+02  LX  1.00 0.0  0.06   2.412292E+04   1.848289E+04            \r\n                    Y -2.538489E+04  YZ  0.0           B -4.605247E+04  LY -0.06 0.0  1.00                                          \r\n                    Z -4.605247E+04  ZX  0.0           C -2.547671E+04  LZ  0.0  1.00 0.0                                           \r\n0      27       26  X -1.305262E+04  XY -9.276849E+02  A -1.296739E+04  LX  1.00 0.0  0.09   2.680853E+04   1.305459E+04            \r\n                    Y -2.306320E+04  YZ  0.0           B -4.430978E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -4.430977E+04  ZX  0.0           C -2.314843E+04  LZ  0.0  1.00 0.0                                           \r\n0      27       27  X  9.627086E+03  XY -8.854755E+02  A  9.708446E+03  LX  1.00 0.0  0.09   3.978409E+03   1.309945E+04            \r\n                    Y  7.135573E+01  YZ  0.0           B -2.163368E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -2.163368E+04  ZX  0.0           C -9.998855E+00  LZ  0.0  1.00 0.0                                           \r\n0      27       45  X  9.699397E+03  XY -2.966740E+02  A  9.708464E+03  LX  1.00 0.0  0.03   3.978390E+03   1.309944E+04            \r\n                    Y -9.237575E-01  YZ  0.0           B -2.163364E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -2.163364E+04  ZX  0.0           C -9.987878E+00  LZ  0.0  1.00 0.0                                           \r\n0      27       44  X -1.297678E+04  XY -3.107838E+02  A -1.296728E+04  LX  1.00 0.0  0.03   2.680850E+04   1.305461E+04            \r\n                    Y -2.313898E+04  YZ  0.0           B -4.430974E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -4.430975E+04  ZX  0.0           C -2.314848E+04  LZ  0.0  1.00 0.0                                           \r\n0      27       32  X -1.305261E+04  XY -9.276702E+02  A -1.296736E+04  LX  1.00 0.0  0.09   2.680858E+04   1.305463E+04            \r\n                    Y -2.306328E+04  YZ  0.0           B -4.430986E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -4.430986E+04  ZX  0.0           C -2.314852E+04  LZ  0.0  1.00 0.0                                           \r\n0      27       33  X  9.626829E+03  XY -8.855187E+02  A  9.708196E+03  LX  1.00 0.0  0.09   3.978549E+03   1.309937E+04            \r\n                    Y  7.124732E+01  YZ  0.0           B -2.163373E+04  LY -0.09 0.0  1.00                                          \r\n                    Z -2.163373E+04  ZX  0.0           C -1.011751E+01  LZ  0.0  1.00 0.0                                           \r\n0      27       51  X  9.699483E+03  XY -2.966432E+02  A  9.708547E+03  LX  1.00 0.0  0.03   3.978350E+03   1.309946E+04            \r\n                    Y -9.119792E-01  YZ  0.0           B -2.163362E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -2.163362E+04  ZX  0.0           C -9.975940E+00  LZ  0.0  1.00 0.0                                           \r\n0      27       50  X -1.297665E+04  XY -3.108102E+02  A -1.296716E+04  LX  1.00 0.0  0.03   2.680840E+04   1.305463E+04            \r\n                    Y -2.313889E+04  YZ  0.0           B -4.430966E+04  LY -0.03 0.0  1.00                                          \r\n                    Z -4.430966E+04  ZX  0.0           C -2.314838E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      27        0  X -1.675734E+03  XY -6.051576E+02  A -1.638721E+03  LX  1.00 0.0  0.06   1.539347E+04   1.307424E+04            \r\n                    Y -1.153295E+04  YZ  0.0           B -3.297171E+04  LY -0.06 0.0  1.00                                          \r\n                    Z -3.297171E+04  ZX  0.0           C -1.156997E+04  LZ  0.0  1.00 0.0                                           \r\n0      28       27  X -1.237607E+04  XY  2.666460E+02  A -9.474355E+03  LX  0.09 0.0  1.00   1.766013E+04   9.582041E+03            \r\n                    Y -9.498869E+03  YZ  0.0           B -3.110546E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -3.110546E+04  ZX  0.0           C -1.240058E+04  LZ  0.0  1.00 0.0                                           \r\n0      28       28  X  8.861530E+03  XY  2.550224E+02  A  1.163689E+04  LX  0.09 0.0  1.00  -3.536033E+03   9.545928E+03            \r\n                    Y  1.161346E+04  YZ  0.0           B -9.866893E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z -9.866891E+03  ZX  0.0           C  8.838099E+03  LZ  0.0  1.00 0.0                                           \r\n0      28       46  X  8.840712E+03  XY  8.545925E+01  A  1.163693E+04  LX  0.03 0.0  1.00  -3.536018E+03   9.545979E+03            \r\n                    Y  1.163432E+04  YZ  0.0           B -9.866977E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z -9.866977E+03  ZX  0.0           C  8.838102E+03  LZ  0.0  1.00 0.0                                           \r\n0      28       45  X -1.239766E+04  XY  8.932443E+01  A -9.474393E+03  LX  0.03 0.0  1.00   1.766002E+04   9.581986E+03            \r\n                    Y -9.477108E+03  YZ  0.0           B -3.110528E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -3.110528E+04  ZX  0.0           C -1.240038E+04  LZ  0.0  1.00 0.0                                           \r\n0      28       33  X -1.237590E+04  XY  2.666162E+02  A -9.474428E+03  LX  0.09 0.0  1.00   1.766006E+04   9.582020E+03            \r\n                    Y -9.498919E+03  YZ  0.0           B -3.110538E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240039E+04  LZ  0.0  1.00 0.0                                           \r\n0      28       34  X  8.861544E+03  XY  2.550440E+02  A  1.163693E+04  LX  0.09 0.0  1.00  -3.536049E+03   9.545944E+03            \r\n                    Y  1.161349E+04  YZ  0.0           B -9.866897E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z -9.866898E+03  ZX  0.0           C  8.838111E+03  LZ  0.0  1.00 0.0                                           \r\n0      28       52  X  8.840561E+03  XY  8.543741E+01  A  1.163690E+04  LX  0.03 0.0  1.00  -3.535954E+03   9.545949E+03            \r\n                    Y  1.163429E+04  YZ  0.0           B -9.866990E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z -9.866990E+03  ZX  0.0           C  8.837951E+03  LZ  0.0  1.00 0.0                                           \r\n0      28       51  X -1.239775E+04  XY  8.932360E+01  A -9.474382E+03  LX  0.03 0.0  1.00   1.766007E+04   9.582010E+03            \r\n                    Y -9.477110E+03  YZ  0.0           B -3.110536E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240048E+04  LZ  0.0  1.00 0.0                                           \r\n0      28        0  X -1.767879E+03  XY  1.741092E+02  A  1.078594E+03  LX  0.06 0.0  1.00   7.062029E+03   9.563685E+03            \r\n                    Y  1.067944E+03  YZ  0.0           B -2.048615E+04  LY  1.00 0.0 -0.06                                          \r\n                    Z -2.048615E+04  ZX  0.0           C -1.778528E+03  LZ  0.0  1.00 0.0                                           \r\n0      29       28  X -1.127877E+04  XY  1.309699E+03  A  2.974751E+03  LX  0.09 0.0  1.00   8.986944E+03   8.946026E+03            \r\n                    Y  2.854408E+03  YZ  0.0           B -1.853647E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -1.853647E+04  ZX  0.0           C -1.139911E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      29       29  X  8.702659E+03  XY  1.255132E+03  A  2.236224E+04  LX  0.09 0.0  1.00  -1.079963E+04   8.679798E+03            \r\n                    Y  2.224691E+04  YZ  0.0           B  1.449311E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z  1.449311E+03  ZX  0.0           C  8.587331E+03  LZ  0.0  1.00 0.0                                           \r\n0      29       47  X  8.600021E+03  XY  4.204825E+02  A  2.236212E+04  LX  0.03 0.0  1.00  -1.079950E+04   8.679792E+03            \r\n                    Y  2.234927E+04  YZ  0.0           B  1.449216E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z  1.449218E+03  ZX  0.0           C  8.587175E+03  LZ  0.0  1.00 0.0                                           \r\n0      29       46  X -1.138566E+04  XY  4.387602E+02  A  2.974736E+03  LX  0.03 0.0  1.00   8.986949E+03   8.946033E+03            \r\n                    Y  2.961332E+03  YZ  0.0           B -1.853652E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139906E+04  LZ  0.0  1.00 0.0                                           \r\n0      29       34  X -1.127853E+04  XY  1.309709E+03  A  2.974855E+03  LX  0.09 0.0  1.00   8.986805E+03   8.946026E+03            \r\n                    Y  2.854510E+03  YZ  0.0           B -1.853640E+04  LY  1.00 0.0 -0.09                                          \r\n                    Z -1.853640E+04  ZX  0.0           C -1.139887E+04  LZ  0.0  1.00 0.0                                           \r\n0      29       35  X  8.702593E+03  XY  1.255111E+03  A  2.236219E+04  LX  0.09 0.0  1.00  -1.079959E+04   8.679776E+03            \r\n                    Y  2.224686E+04  YZ  0.0           B  1.449320E+03  LY  1.00 0.0 -0.09                                          \r\n                    Z  1.449321E+03  ZX  0.0           C  8.587272E+03  LZ  0.0  1.00 0.0                                           \r\n0      29       53  X  8.600111E+03  XY  4.204669E+02  A  2.236219E+04  LX  0.03 0.0  1.00  -1.079958E+04   8.679795E+03            \r\n                    Y  2.234935E+04  YZ  0.0           B  1.449273E+03  LY  1.00 0.0 -0.03                                          \r\n                    Z  1.449274E+03  ZX  0.0           C  8.587265E+03  LZ  0.0  1.00 0.0                                           \r\n0      29       52  X -1.138589E+04  XY  4.387893E+02  A  2.974672E+03  LX  0.03 0.0  1.00   8.987063E+03   8.946041E+03            \r\n                    Y  2.961266E+03  YZ  0.0           B -1.853656E+04  LY  1.00 0.0 -0.03                                          \r\n                    Z -1.853656E+04  ZX  0.0           C -1.139930E+04  LZ  0.0  1.00 0.0                                           \r\n0      29        0  X -1.340434E+03  XY  8.560188E+02  A  1.265535E+04  LX  0.06 0.0  1.00  -9.063167E+02   8.805805E+03            \r\n                    Y  1.260299E+04  YZ  0.0           B -8.543604E+03  LY  1.00 0.0 -0.06                                          \r\n                    Z -8.543604E+03  ZX  0.0           C -1.392791E+03  LZ  0.0  1.00 0.0                                           \r\n0      30       29  X -9.832526E+03  XY  2.225826E+03  A  1.439103E+04  LX  0.09 1.00 0.0    7.250715E+02   1.078420E+04            \r\n                    Y  1.418650E+04  YZ  0.0           B -1.003705E+04  LY  1.00-0.09 0.0                                           \r\n                    Z -6.529192E+03  ZX  0.0           C -6.529191E+03  LZ  0.0  0.0  1.00                                          \r\n0      30       30  X  9.016568E+03  XY  2.136793E+03  A  3.227140E+04  LX  0.09 1.00 0.0   -1.780634E+04   1.032807E+04            \r\n                    Y  3.207506E+04  YZ  0.0           B  8.820224E+03  LY  1.00-0.09 0.0                                           \r\n                    Z  1.232739E+04  ZX  0.0           C  1.232739E+04  LZ  0.0  0.0  1.00                                          \r\n0      30       48  X  8.842154E+03  XY  7.158658E+02  A  3.227140E+04  LX  0.03 1.00 0.0   -1.780637E+04   1.032805E+04            \r\n                    Y  3.224954E+04  YZ  0.0           B  8.820288E+03  LY  1.00-0.03 0.0                                           \r\n                    Z  1.232741E+04  ZX  0.0           C  1.232741E+04  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      30       47  X -1.001434E+04  XY  7.456522E+02  A  1.439109E+04  LX  0.03 1.00 0.0    7.250554E+02   1.078424E+04            \r\n                    Y  1.436831E+04  YZ  0.0           B -1.003713E+04  LY  1.00-0.03 0.0                                           \r\n                    Z -6.529125E+03  ZX  0.0           C -6.529127E+03  LZ  0.0  0.0  1.00                                          \r\n0      30       35  X -9.832444E+03  XY  2.225817E+03  A  1.439115E+04  LX  0.09 1.00 0.0    7.249648E+02   1.078422E+04            \r\n                    Y  1.418663E+04  YZ  0.0           B -1.003697E+04  LY  1.00-0.09 0.0                                           \r\n                    Z -6.529076E+03  ZX  0.0           C -6.529077E+03  LZ  0.0  0.0  1.00                                          \r\n0      30       36  X  9.016701E+03  XY  2.136798E+03  A  3.227142E+04  LX  0.09 1.00 0.0   -1.780640E+04   1.032804E+04            \r\n                    Y  3.207507E+04  YZ  0.0           B  8.820372E+03  LY  1.00-0.09 0.0                                           \r\n                    Z  1.232742E+04  ZX  0.0           C  1.232740E+04  LZ  0.0  0.0  1.00                                          \r\n0      30       54  X  8.842233E+03  XY  7.158318E+02  A  3.227143E+04  LX  0.03 1.00 0.0   -1.780640E+04   1.032804E+04            \r\n                    Y  3.224955E+04  YZ  0.0           B  8.820366E+03  LY  1.00-0.03 0.0                                           \r\n                    Z  1.232740E+04  ZX  0.0           C  1.232740E+04  LZ  0.0  0.0  1.00                                          \r\n0      30       53  X -1.001444E+04  XY  7.457196E+02  A  1.439102E+04  LX  0.03 1.00 0.0    7.251165E+02   1.078424E+04            \r\n                    Y  1.436823E+04  YZ  0.0           B -1.003723E+04  LY  1.00-0.03 0.0                                           \r\n                    Z -6.529144E+03  ZX  0.0           C -6.529137E+03  LZ  0.0  0.0  1.00                                          \r\n0      30        0  X -4.970123E+02  XY  1.456038E+03  A  2.330892E+04  LX  0.06 1.00 0.0   -8.540661E+03   1.053922E+04            \r\n                    Y  2.321986E+04  YZ  0.0           B -5.860659E+02  LY  1.00-0.06 0.0                                           \r\n                    Z  2.899135E+03  ZX  0.0           C  2.899134E+03  LZ  0.0  0.0  1.00                                          \r\n0      31       43  X -1.299608E+04  XY  7.718275E+02  A -1.297250E+04  LX  1.00 0.0  0.03   3.647967E+04   1.851041E+04            \r\n                    Y -3.823407E+04  YZ  0.0           B -5.820886E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -5.820886E+04  ZX  0.0           C -3.825764E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       44  X  1.131685E+04  XY  7.350535E+02  A  1.133931E+04  LX  1.00 0.0  0.03   1.176628E+04   1.848020E+04            \r\n                    Y -1.271949E+04  YZ  0.0           B -3.389620E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -3.389620E+04  ZX  0.0           C -1.274195E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       62  X  1.113761E+04  XY  2.194211E+03  A  1.133923E+04  LX  1.00 0.0  0.09   1.176625E+04   1.848012E+04            \r\n                    Y -1.254030E+04  YZ  0.0           B -3.389607E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -3.389607E+04  ZX  0.0           C -1.274192E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       61  X -1.318394E+04  XY  2.303883E+03  A -1.297224E+04  LX  1.00 0.0  0.09   3.647950E+04   1.851048E+04            \r\n                    Y -3.804576E+04  YZ  0.0           B -5.820877E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -5.820879E+04  ZX  0.0           C -3.825747E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       49  X -1.299605E+04  XY  7.717997E+02  A -1.297247E+04  LX  1.00 0.0  0.03   3.647964E+04   1.851044E+04            \r\n                    Y -3.823398E+04  YZ  0.0           B -5.820891E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -5.820890E+04  ZX  0.0           C -3.825754E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      31       50  X  1.131661E+04  XY  7.350699E+02  A  1.133907E+04  LX  1.00 0.0  0.03   1.176637E+04   1.848009E+04            \r\n                    Y -1.271957E+04  YZ  0.0           B -3.389616E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -3.389616E+04  ZX  0.0           C -1.274202E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       68  X  1.113770E+04  XY  2.194158E+03  A  1.133930E+04  LX  1.00 0.0  0.09   1.176622E+04   1.848014E+04            \r\n                    Y -1.254030E+04  YZ  0.0           B -3.389607E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -3.389606E+04  ZX  0.0           C -1.274190E+04  LZ  0.0  1.00 0.0                                           \r\n0      31       67  X -1.318408E+04  XY  2.303876E+03  A -1.297239E+04  LX  1.00 0.0  0.09   3.647964E+04   1.851047E+04            \r\n                    Y -3.804593E+04  YZ  0.0           B -5.820889E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -5.820888E+04  ZX  0.0           C -3.825762E+04  LZ  0.0  1.00 0.0                                           \r\n0      31        0  X -9.314234E+02  XY  1.501235E+03  A -8.396038E+02  LX  1.00 0.0  0.06   2.412295E+04   1.848289E+04            \r\n                    Y -2.538493E+04  YZ  0.0           B -4.605249E+04  LY  0.06 0.0 -1.00                                          \r\n                    Z -4.605249E+04  ZX  0.0           C -2.547675E+04  LZ  0.0  1.00 0.0                                           \r\n0      32       44  X -1.297669E+04  XY  3.108042E+02  A -1.296719E+04  LX  1.00 0.0  0.03   2.680844E+04   1.305463E+04            \r\n                    Y -2.313893E+04  YZ  0.0           B -4.430970E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -4.430970E+04  ZX  0.0           C -2.314842E+04  LZ  0.0  1.00 0.0                                           \r\n0      32       45  X  9.699402E+03  XY  2.966404E+02  A  9.708467E+03  LX  1.00 0.0  0.03   3.978356E+03   1.309942E+04            \r\n                    Y -8.855397E-01  YZ  0.0           B -2.163359E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -2.163359E+04  ZX  0.0           C -9.944334E+00  LZ  0.0  1.00 0.0                                           \r\n0      32       63  X  9.627098E+03  XY  8.855173E+02  A  9.708464E+03  LX  1.00 0.0  0.09   3.978399E+03   1.309945E+04            \r\n                    Y  7.136333E+01  YZ  0.0           B -2.163366E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -2.163367E+04  ZX  0.0           C -9.997237E+00  LZ  0.0  1.00 0.0                                           \r\n0      32       62  X -1.305258E+04  XY  9.276847E+02  A -1.296733E+04  LX  1.00 0.0  0.09   2.680853E+04   1.305461E+04            \r\n                    Y -2.306323E+04  YZ  0.0           B -4.430978E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -4.430979E+04  ZX  0.0           C -2.314847E+04  LZ  0.0  1.00 0.0                                           \r\n0      32       50  X -1.297661E+04  XY  3.107767E+02  A -1.296711E+04  LX  1.00 0.0  0.03   2.680840E+04   1.305465E+04            \r\n                    Y -2.313892E+04  YZ  0.0           B -4.430968E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -4.430968E+04  ZX  0.0           C -2.314842E+04  LZ  0.0  1.00 0.0                                           \r\n0      32       51  X  9.699519E+03  XY  2.966135E+02  A  9.708580E+03  LX  1.00 0.0  0.03   3.978324E+03   1.309946E+04            \r\n                    Y -9.080046E-01  YZ  0.0           B -2.163358E+04  LY  0.03 0.0 -1.00                                          \r\n                    Z -2.163358E+04  ZX  0.0           C -9.969153E+00  LZ  0.0  1.00 0.0                                           \r\n0      32       69  X  9.626900E+03  XY  8.855168E+02  A  9.708269E+03  LX  1.00 0.0  0.09   3.978459E+03   1.309936E+04            \r\n                    Y  7.134488E+01  YZ  0.0           B -2.163362E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -2.163362E+04  ZX  0.0           C -1.002172E+01  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      32       68  X -1.305268E+04  XY  9.276516E+02  A -1.296745E+04  LX  1.00 0.0  0.09   2.680862E+04   1.305461E+04            \r\n                    Y -2.306332E+04  YZ  0.0           B -4.430988E+04  LY  0.09 0.0 -1.00                                          \r\n                    Z -4.430987E+04  ZX  0.0           C -2.314854E+04  LZ  0.0  1.00 0.0                                           \r\n0      32        0  X -1.675705E+03  XY  6.051507E+02  A -1.638693E+03  LX  1.00 0.0  0.06   1.539344E+04   1.307423E+04            \r\n                    Y -1.153294E+04  YZ  0.0           B -3.297168E+04  LY  0.06 0.0 -1.00                                          \r\n                    Z -3.297169E+04  ZX  0.0           C -1.156994E+04  LZ  0.0  1.00 0.0                                           \r\n0      33       45  X -1.239778E+04  XY -8.933356E+01  A -9.474401E+03  LX  0.03 0.0  1.00   1.766010E+04   9.582002E+03            \r\n                    Y -9.477130E+03  YZ  0.0           B -3.110537E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -3.110538E+04  ZX  0.0           C -1.240051E+04  LZ  0.0  1.00 0.0                                           \r\n0      33       46  X  8.840686E+03  XY -8.543568E+01  A  1.163697E+04  LX  0.03 0.0  1.00  -3.536038E+03   9.545963E+03            \r\n                    Y  1.163436E+04  YZ  0.0           B -9.866931E+03  LY -1.00 0.0  0.03                                          \r\n                    Z -9.866932E+03  ZX  0.0           C  8.838078E+03  LZ  0.0  1.00 0.0                                           \r\n0      33       64  X  8.861313E+03  XY -2.550598E+02  A  1.163684E+04  LX  0.09 0.0  1.00  -3.535908E+03   9.545919E+03            \r\n                    Y  1.161340E+04  YZ  0.0           B -9.866992E+03  LY -1.00 0.0  0.09                                          \r\n                    Z -9.866992E+03  ZX  0.0           C  8.837874E+03  LZ  0.0  1.00 0.0                                           \r\n0      33       63  X -1.237609E+04  XY -2.666019E+02  A -9.474415E+03  LX  0.09 0.0  1.00   1.766015E+04   9.582013E+03            \r\n                    Y -9.498926E+03  YZ  0.0           B -3.110544E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -3.110545E+04  ZX  0.0           C -1.240060E+04  LZ  0.0  1.00 0.0                                           \r\n0      33       51  X -1.239767E+04  XY -8.932046E+01  A -9.474399E+03  LX  0.03 0.0  1.00   1.766005E+04   9.582019E+03            \r\n                    Y -9.477130E+03  YZ  0.0           B -3.110536E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240040E+04  LZ  0.0  1.00 0.0                                           \r\n0      33       52  X  8.840607E+03  XY -8.543722E+01  A  1.163692E+04  LX  0.03 0.0  1.00  -3.535999E+03   9.545925E+03            \r\n                    Y  1.163430E+04  YZ  0.0           B -9.866912E+03  LY -1.00 0.0  0.03                                          \r\n                    Z -9.866912E+03  ZX  0.0           C  8.837994E+03  LZ  0.0  1.00 0.0                                           \r\n0      33       70  X  8.861652E+03  XY -2.550246E+02  A  1.163708E+04  LX  0.09 0.0  1.00  -3.536132E+03   9.546005E+03            \r\n                    Y  1.161364E+04  YZ  0.0           B -9.866899E+03  LY -1.00 0.0  0.09                                          \r\n                    Z -9.866897E+03  ZX  0.0           C  8.838219E+03  LZ  0.0  1.00 0.0                                           \r\n0      33       69  X -1.237605E+04  XY -2.666200E+02  A -9.474489E+03  LX  0.09 0.0  1.00   1.766015E+04   9.582002E+03            \r\n                    Y -9.498979E+03  YZ  0.0           B -3.110543E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -3.110543E+04  ZX  0.0           C -1.240053E+04  LZ  0.0  1.00 0.0                                           \r\n0      33        0  X -1.767917E+03  XY -1.741042E+02  A  1.078591E+03  LX  0.06 0.0  1.00   7.062047E+03   9.563686E+03            \r\n                    Y  1.067942E+03  YZ  0.0           B -2.048617E+04  LY -1.00 0.0  0.06                                          \r\n                    Z -2.048617E+04  ZX  0.0           C -1.778565E+03  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      34       46  X -1.138567E+04  XY -4.387814E+02  A  2.974732E+03  LX  0.03 0.0  1.00   8.986947E+03   8.946026E+03            \r\n                    Y  2.961324E+03  YZ  0.0           B -1.853650E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -1.853650E+04  ZX  0.0           C -1.139907E+04  LZ  0.0  1.00 0.0                                           \r\n0      34       47  X  8.599990E+03  XY -4.204799E+02  A  2.236219E+04  LX  0.03 0.0  1.00  -1.079953E+04   8.679807E+03            \r\n                    Y  2.234934E+04  YZ  0.0           B  1.449263E+03  LY -1.00 0.0  0.03                                          \r\n                    Z  1.449263E+03  ZX  0.0           C  8.587146E+03  LZ  0.0  1.00 0.0                                           \r\n0      34       65  X  8.702630E+03  XY -1.255120E+03  A  2.236222E+04  LX  0.09 0.0  1.00  -1.079960E+04   8.679807E+03            \r\n                    Y  2.224689E+04  YZ  0.0           B  1.449275E+03  LY -1.00 0.0  0.09                                          \r\n                    Z  1.449276E+03  ZX  0.0           C  8.587302E+03  LZ  0.0  1.00 0.0                                           \r\n0      34       64  X -1.127882E+04  XY -1.309704E+03  A  2.974721E+03  LX  0.09 0.0  1.00   8.986989E+03   8.946039E+03            \r\n                    Y  2.854376E+03  YZ  0.0           B -1.853653E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -1.853653E+04  ZX  0.0           C -1.139916E+04  LZ  0.0  1.00 0.0                                           \r\n0      34       52  X -1.138575E+04  XY -4.387725E+02  A  2.974698E+03  LX  0.03 0.0  1.00   8.986992E+03   8.946023E+03            \r\n                    Y  2.961291E+03  YZ  0.0           B -1.853652E+04  LY -1.00 0.0  0.03                                          \r\n                    Z -1.853652E+04  ZX  0.0           C -1.139916E+04  LZ  0.0  1.00 0.0                                           \r\n0      34       53  X  8.600051E+03  XY -4.204982E+02  A  2.236218E+04  LX  0.03 0.0  1.00  -1.079954E+04   8.679810E+03            \r\n                    Y  2.234933E+04  YZ  0.0           B  1.449240E+03  LY -1.00 0.0  0.03                                          \r\n                    Z  1.449240E+03  ZX  0.0           C  8.587203E+03  LZ  0.0  1.00 0.0                                           \r\n0      34       71  X  8.702371E+03  XY -1.255132E+03  A  2.236216E+04  LX  0.09 0.0  1.00  -1.079950E+04   8.679792E+03            \r\n                    Y  2.224683E+04  YZ  0.0           B  1.449295E+03  LY -1.00 0.0  0.09                                          \r\n                    Z  1.449295E+03  ZX  0.0           C  8.587043E+03  LZ  0.0  1.00 0.0                                           \r\n0      34       70  X -1.127867E+04  XY -1.309708E+03  A  2.974847E+03  LX  0.09 0.0  1.00   8.986876E+03   8.946059E+03            \r\n                    Y  2.854502E+03  YZ  0.0           B -1.853647E+04  LY -1.00 0.0  0.09                                          \r\n                    Z -1.853646E+04  ZX  0.0           C -1.139901E+04  LZ  0.0  1.00 0.0                                           \r\n0      34        0  X -1.340482E+03  XY -8.560247E+02  A  1.265534E+04  LX  0.06 0.0  1.00  -9.062960E+02   8.805813E+03            \r\n                    Y  1.260299E+04  YZ  0.0           B -8.543619E+03  LY -1.00 0.0  0.06                                          \r\n                    Z -8.543618E+03  ZX  0.0           C -1.392838E+03  LZ  0.0  1.00 0.0                                           \r\n0      35       47  X -1.001439E+04  XY -7.456578E+02  A  1.439109E+04  LX  0.03 1.00 0.0    7.250627E+02   1.078425E+04            \r\n                    Y  1.436831E+04  YZ  0.0           B -1.003717E+04  LY -1.00 0.03 0.0                                           \r\n                    Z -6.529109E+03  ZX  0.0           C -6.529107E+03  LZ  0.0  0.0  1.00                                          \r\n0      35       48  X  8.842219E+03  XY -7.158475E+02  A  3.227147E+04  LX  0.03 1.00 0.0   -1.780642E+04   1.032806E+04            \r\n                    Y  3.224960E+04  YZ  0.0           B  8.820354E+03  LY -1.00 0.03 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      35       66  X  9.016589E+03  XY -2.136768E+03  A  3.227143E+04  LX  0.09 1.00 0.0   -1.780637E+04   1.032807E+04            \r\n                    Y  3.207509E+04  YZ  0.0           B  8.820246E+03  LY -1.00 0.09 0.0                                           \r\n                    Z  1.232744E+04  ZX  0.0           C  1.232745E+04  LZ  0.0  0.0  1.00                                          \r\n0      35       65  X -9.832405E+03  XY -2.225817E+03  A  1.439108E+04  LX  0.09 1.00 0.0    7.250139E+02   1.078420E+04            \r\n                    Y  1.418656E+04  YZ  0.0           B -1.003693E+04  LY -1.00 0.09 0.0                                           \r\n                    Z -6.529194E+03  ZX  0.0           C -6.529196E+03  LZ  0.0  0.0  1.00                                          \r\n0      35       53  X -1.001441E+04  XY -7.456854E+02  A  1.439106E+04  LX  0.03 1.00 0.0    7.250882E+02   1.078425E+04            \r\n                    Y  1.436827E+04  YZ  0.0           B -1.003720E+04  LY -1.00 0.03 0.0                                           \r\n                    Z -6.529131E+03  ZX  0.0           C -6.529126E+03  LZ  0.0  0.0  1.00                                          \r\n0      35       54  X  8.842166E+03  XY -7.158408E+02  A  3.227146E+04  LX  0.03 1.00 0.0   -1.780640E+04   1.032807E+04            \r\n                    Y  3.224959E+04  YZ  0.0           B  8.820293E+03  LY -1.00 0.03 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232743E+04  LZ  0.0  0.0  1.00                                          \r\n0      35       72  X  9.016802E+03  XY -2.136771E+03  A  3.227148E+04  LX  0.09 1.00 0.0   -1.780646E+04   1.032803E+04            \r\n                    Y  3.207515E+04  YZ  0.0           B  8.820456E+03  LY -1.00 0.09 0.0                                           \r\n                    Z  1.232743E+04  ZX  0.0           C  1.232744E+04  LZ  0.0  0.0  1.00                                          \r\n0      35       71  X -9.832506E+03  XY -2.225798E+03  A  1.439115E+04  LX  0.09 1.00 0.0    7.249782E+02   1.078423E+04            \r\n                    Y  1.418663E+04  YZ  0.0           B -1.003703E+04  LY -1.00 0.09 0.0                                           \r\n                    Z -6.529057E+03  ZX  0.0           C -6.529058E+03  LZ  0.0  0.0  1.00                                          \r\n0      35        0  X -4.969917E+02  XY -1.456023E+03  A  2.330896E+04  LX  0.06 1.00 0.0   -8.540689E+03   1.053923E+04            \r\n                    Y  2.321990E+04  YZ  0.0           B -5.860455E+02  LY -1.00 0.06 0.0                                           \r\n                    Z  2.899156E+03  ZX  0.0           C  2.899157E+03  LZ  0.0  0.0  1.00                                          \r\n0      36       61  X -1.355748E+04  XY  3.801697E+03  A -1.297234E+04  LX  0.99 0.0  0.15   3.647958E+04   1.851045E+04            \r\n                    Y -3.767250E+04  YZ  0.0           B -5.820877E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -5.820877E+04  ZX  0.0           C -3.825763E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       62  X  1.078197E+04  XY  3.620659E+03  A  1.133924E+04  LX  0.99 0.0  0.15   1.176622E+04   1.848012E+04            \r\n                    Y -1.218457E+04  YZ  0.0           B -3.389607E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -3.389607E+04  ZX  0.0           C -1.274184E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       80  X  1.025503E+04  XY  4.993125E+03  A  1.133914E+04  LX  0.98 0.0  0.21   1.176639E+04   1.848015E+04            \r\n                    Y -1.165798E+04  YZ  0.0           B -3.389624E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -3.389624E+04  ZX  0.0           C -1.274209E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       79  X -1.411090E+04  XY  5.242797E+03  A -1.297259E+04  LX  0.98 0.0  0.21   3.647973E+04   1.851041E+04            \r\n                    Y -3.711933E+04  YZ  0.0           B -5.820896E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -5.820896E+04  ZX  0.0           C -3.825764E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      36       67  X -1.355755E+04  XY  3.801713E+03  A -1.297240E+04  LX  0.99 0.0  0.15   3.647961E+04   1.851045E+04            \r\n                    Y -3.767240E+04  YZ  0.0           B -5.820886E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -5.820886E+04  ZX  0.0           C -3.825755E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       68  X  1.078215E+04  XY  3.620667E+03  A  1.133942E+04  LX  0.99 0.0  0.15   1.176621E+04   1.848019E+04            \r\n                    Y -1.218474E+04  YZ  0.0           B -3.389605E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -3.389605E+04  ZX  0.0           C -1.274200E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       86  X  1.025498E+04  XY  4.993118E+03  A  1.133909E+04  LX  0.98 0.0  0.21   1.176635E+04   1.848010E+04            \r\n                    Y -1.165783E+04  YZ  0.0           B -3.389618E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -3.389618E+04  ZX  0.0           C -1.274195E+04  LZ  0.0  1.00 0.0                                           \r\n0      36       85  X -1.411091E+04  XY  5.242797E+03  A -1.297259E+04  LX  0.98 0.0  0.21   3.647975E+04   1.851040E+04            \r\n                    Y -3.711942E+04  YZ  0.0           B -5.820893E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -5.820892E+04  ZX  0.0           C -3.825773E+04  LZ  0.0  1.00 0.0                                           \r\n0      36        0  X -1.657839E+03  XY  4.414572E+03  A -8.396481E+02  LX  0.98 0.0  0.18   2.412298E+04   1.848288E+04            \r\n                    Y -2.465860E+04  YZ  0.0           B -4.605251E+04  LY  0.18 0.0 -0.98                                          \r\n                    Z -4.605251E+04  ZX  0.0           C -2.547678E+04  LZ  0.0  1.00 0.0                                           \r\n0      37       62  X -1.320287E+04  XY  1.530756E+03  A -1.296727E+04  LX  0.99 0.0  0.15   2.680844E+04   1.305461E+04            \r\n                    Y -2.291276E+04  YZ  0.0           B -4.430971E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -4.430970E+04  ZX  0.0           C -2.314835E+04  LZ  0.0  1.00 0.0                                           \r\n0      37       63  X  9.483492E+03  XY  1.461178E+03  A  9.708384E+03  LX  0.99 0.0  0.15   3.978474E+03   1.309941E+04            \r\n                    Y  2.147612E+02  YZ  0.0           B -2.163367E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -2.163367E+04  ZX  0.0           C -1.013199E+01  LZ  0.0  1.00 0.0                                           \r\n0      37       81  X  9.271018E+03  XY  2.015114E+03  A  9.708546E+03  LX  0.98 0.0  0.21   3.978336E+03   1.309946E+04            \r\n                    Y  4.275937E+02  YZ  0.0           B -2.163362E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -2.163362E+04  ZX  0.0           C -9.935644E+00  LZ  0.0  1.00 0.0                                           \r\n0      37       80  X -1.342559E+04  XY  2.111032E+03  A -1.296725E+04  LX  0.98 0.0  0.21   2.680853E+04   1.305465E+04            \r\n                    Y -2.269020E+04  YZ  0.0           B -4.430981E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -4.430981E+04  ZX  0.0           C -2.314852E+04  LZ  0.0  1.00 0.0                                           \r\n0      37       68  X -1.320293E+04  XY  1.530770E+03  A -1.296732E+04  LX  0.99 0.0  0.15   2.680852E+04   1.305459E+04            \r\n                    Y -2.291289E+04  YZ  0.0           B -4.430973E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -4.430973E+04  ZX  0.0           C -2.314849E+04  LZ  0.0  1.00 0.0                                           \r\n0      37       69  X  9.483416E+03  XY  1.461189E+03  A  9.708316E+03  LX  0.99 0.0  0.15   3.978483E+03   1.309944E+04            \r\n                    Y  2.148896E+02  YZ  0.0           B -2.163375E+04  LY  0.15 0.0 -0.99                                          \r\n                    Z -2.163375E+04  ZX  0.0           C -1.001275E+01  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      37       87  X  9.270896E+03  XY  2.015089E+03  A  9.708418E+03  LX  0.98 0.0  0.21   3.978400E+03   1.309941E+04            \r\n                    Y  4.275045E+02  YZ  0.0           B -2.163361E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -2.163361E+04  ZX  0.0           C -1.001140E+01  LZ  0.0  1.00 0.0                                           \r\n0      37       86  X -1.342580E+04  XY  2.111012E+03  A -1.296746E+04  LX  0.98 0.0  0.21   2.680861E+04   1.305459E+04            \r\n                    Y -2.269019E+04  YZ  0.0           B -4.430984E+04  LY  0.21 0.0 -0.98                                          \r\n                    Z -4.430984E+04  ZX  0.0           C -2.314853E+04  LZ  0.0  1.00 0.0                                           \r\n0      37        0  X -1.968546E+03  XY  1.779518E+03  A -1.638731E+03  LX  0.98 0.0  0.18   1.539348E+04   1.307423E+04            \r\n                    Y -1.124016E+04  YZ  0.0           B -3.297172E+04  LY  0.18 0.0 -0.98                                          \r\n                    Z -3.297172E+04  ZX  0.0           C -1.156998E+04  LZ  0.0  1.00 0.0                                           \r\n0      38       63  X -1.233285E+04  XY -4.399625E+02  A -9.474423E+03  LX  0.15 0.0  0.99   1.766012E+04   9.581982E+03            \r\n                    Y -9.542139E+03  YZ  0.0           B -3.110537E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -3.110537E+04  ZX  0.0           C -1.240056E+04  LZ  0.0  1.00 0.0                                           \r\n0      38       64  X  8.902800E+03  XY -4.208527E+02  A  1.163695E+04  LX  0.15 0.0  0.99  -3.535976E+03   9.546001E+03            \r\n                    Y  1.157217E+04  YZ  0.0           B -9.867043E+03  LY -0.99 0.0  0.15                                          \r\n                    Z -9.867044E+03  ZX  0.0           C  8.838020E+03  LZ  0.0  1.00 0.0                                           \r\n0      38       82  X  8.964024E+03  XY -5.803415E+02  A  1.163699E+04  LX  0.21 0.0  0.98  -3.536035E+03   9.545945E+03            \r\n                    Y  1.151098E+04  YZ  0.0           B -9.866903E+03  LY -0.98 0.0  0.21                                          \r\n                    Z -9.866904E+03  ZX  0.0           C  8.838022E+03  LZ  0.0  1.00 0.0                                           \r\n0      38       81  X -1.226878E+04  XY -6.067255E+02  A -9.474438E+03  LX  0.21 0.0  0.98   1.766012E+04   9.582004E+03            \r\n                    Y -9.606171E+03  YZ  0.0           B -3.110540E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -3.110540E+04  ZX  0.0           C -1.240052E+04  LZ  0.0  1.00 0.0                                           \r\n0      38       69  X -1.233269E+04  XY -4.399666E+02  A -9.474435E+03  LX  0.15 0.0  0.99   1.766011E+04   9.582065E+03            \r\n                    Y -9.542160E+03  YZ  0.0           B -3.110549E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -3.110549E+04  ZX  0.0           C -1.240041E+04  LZ  0.0  1.00 0.0                                           \r\n0      38       70  X  8.902870E+03  XY -4.208072E+02  A  1.163693E+04  LX  0.15 0.0  0.99  -3.536049E+03   9.545938E+03            \r\n                    Y  1.157217E+04  YZ  0.0           B -9.866889E+03  LY -0.99 0.0  0.15                                          \r\n                    Z -9.866889E+03  ZX  0.0           C  8.838104E+03  LZ  0.0  1.00 0.0                                           \r\n0      38       88  X  8.963975E+03  XY -5.803690E+02  A  1.163693E+04  LX  0.21 0.0  0.98  -3.535965E+03   9.545966E+03            \r\n                    Y  1.151092E+04  YZ  0.0           B -9.867002E+03  LY -0.98 0.0  0.21                                          \r\n                    Z -9.867002E+03  ZX  0.0           C  8.837965E+03  LZ  0.0  1.00 0.0                                           \r\n0      38       87  X -1.226897E+04  XY -6.067093E+02  A -9.474479E+03  LX  0.21 0.0  0.98   1.766020E+04   9.581962E+03            \r\n                    Y -9.606204E+03  YZ  0.0           B -3.110541E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -3.110541E+04  ZX  0.0           C -1.240070E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      38        0  X -1.683704E+03  XY -5.119668E+02  A  1.078583E+03  LX  0.18 0.0  0.98   7.062066E+03   9.563687E+03            \r\n                    Y  9.836955E+02  YZ  0.0           B -2.048619E+04  LY -0.98 0.0  0.18                                          \r\n                    Z -2.048619E+04  ZX  0.0           C -1.778593E+03  LZ  0.0  1.00 0.0                                           \r\n0      39       64  X -1.106630E+04  XY -2.161192E+03  A  2.974849E+03  LX  0.15 0.0  0.99   8.986837E+03   8.946036E+03            \r\n                    Y  2.642202E+03  YZ  0.0           B -1.853642E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -1.853642E+04  ZX  0.0           C -1.139895E+04  LZ  0.0  1.00 0.0                                           \r\n0      39       65  X  8.905987E+03  XY -2.071125E+03  A  2.236222E+04  LX  0.15 0.0  0.99  -1.079957E+04   8.679811E+03            \r\n                    Y  2.204344E+04  YZ  0.0           B  1.449277E+03  LY -0.99 0.0  0.15                                          \r\n                    Z  1.449278E+03  ZX  0.0           C  8.587212E+03  LZ  0.0  1.00 0.0                                           \r\n0      39       83  X  9.207343E+03  XY -2.856175E+03  A  2.236219E+04  LX  0.21 0.0  0.98  -1.079954E+04   8.679815E+03            \r\n                    Y  2.174206E+04  YZ  0.0           B  1.449230E+03  LY -0.98 0.0  0.21                                          \r\n                    Z  1.449231E+03  ZX  0.0           C  8.587209E+03  LZ  0.0  1.00 0.0                                           \r\n0      39       82  X -1.075202E+04  XY -2.980354E+03  A  2.974788E+03  LX  0.21 0.0  0.98   8.986923E+03   8.946034E+03            \r\n                    Y  2.327695E+03  YZ  0.0           B -1.853645E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -1.853645E+04  ZX  0.0           C -1.139911E+04  LZ  0.0  1.00 0.0                                           \r\n0      39       70  X -1.106642E+04  XY -2.161162E+03  A  2.974769E+03  LX  0.15 0.0  0.99   8.986923E+03   8.946033E+03            \r\n                    Y  2.642132E+03  YZ  0.0           B -1.853648E+04  LY -0.99 0.0  0.15                                          \r\n                    Z -1.853648E+04  ZX  0.0           C -1.139906E+04  LZ  0.0  1.00 0.0                                           \r\n0      39       71  X  8.905895E+03  XY -2.071118E+03  A  2.236220E+04  LX  0.15 0.0  0.99  -1.079953E+04   8.679813E+03            \r\n                    Y  2.204343E+04  YZ  0.0           B  1.449268E+03  LY -0.99 0.0  0.15                                          \r\n                    Z  1.449266E+03  ZX  0.0           C  8.587120E+03  LZ  0.0  1.00 0.0                                           \r\n0      39       89  X  9.207486E+03  XY -2.856169E+03  A  2.236231E+04  LX  0.21 0.0  0.98  -1.079968E+04   8.679809E+03            \r\n                    Y  2.174218E+04  YZ  0.0           B  1.449361E+03  LY -0.98 0.0  0.21                                          \r\n                    Z  1.449362E+03  ZX  0.0           C  8.587360E+03  LZ  0.0  1.00 0.0                                           \r\n0      39       88  X -1.075195E+04  XY -2.980334E+03  A  2.974813E+03  LX  0.21 0.0  0.98   8.986899E+03   8.946051E+03            \r\n                    Y  2.327728E+03  YZ  0.0           B -1.853648E+04  LY -0.98 0.0  0.21                                          \r\n                    Z -1.853648E+04  ZX  0.0           C -1.139903E+04  LZ  0.0  1.00 0.0                                           \r\n0      39        0  X -9.262480E+02  XY -2.517204E+03  A  1.265539E+04  LX  0.18 0.0  0.98  -9.063411E+02   8.805818E+03            \r\n                    Y  1.218886E+04  YZ  0.0           B -8.543587E+03  LY -0.98 0.0  0.18                                          \r\n                    Z -8.543587E+03  ZX  0.0           C -1.392782E+03  LZ  0.0  1.00 0.0                                           \r\n0      40       65  X -9.471438E+03  XY -3.672868E+03  A  1.439119E+04  LX  0.15 0.99 0.0    7.248784E+02   1.078417E+04            \r\n                    Y  1.382587E+04  YZ  0.0           B -1.003676E+04  LY -0.99 0.15 0.0                                           \r\n                    Z -6.529068E+03  ZX  0.0           C -6.529068E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 1 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      40       66  X  9.362900E+03  XY -3.525966E+03  A  3.227150E+04  LX  0.15 0.99 0.0   -1.780638E+04   1.032811E+04            \r\n                    Y  3.172879E+04  YZ  0.0           B  8.820216E+03  LY -0.99 0.15 0.0                                           \r\n                    Z  1.232747E+04  ZX  0.0           C  1.232744E+04  LZ  0.0  0.0  1.00                                          \r\n0      40       84  X  9.876266E+03  XY -4.862468E+03  A  3.227150E+04  LX  0.21 0.98 0.0   -1.780651E+04   1.032801E+04            \r\n                    Y  3.121575E+04  YZ  0.0           B  8.820533E+03  LY -0.98 0.21 0.0                                           \r\n                    Z  1.232749E+04  ZX  0.0           C  1.232748E+04  LZ  0.0  0.0  1.00                                          \r\n0      40       83  X -8.937549E+03  XY -5.065090E+03  A  1.439107E+04  LX  0.21 0.98 0.0    7.251331E+02   1.078429E+04            \r\n                    Y  1.329134E+04  YZ  0.0           B -1.003728E+04  LY -0.98 0.21 0.0                                           \r\n                    Z -6.529195E+03  ZX  0.0           C -6.529192E+03  LZ  0.0  0.0  1.00                                          \r\n0      40       71  X -9.471935E+03  XY -3.672880E+03  A  1.439110E+04  LX  0.15 0.99 0.0    7.250993E+02   1.078429E+04            \r\n                    Y  1.382579E+04  YZ  0.0           B -1.003724E+04  LY -0.99 0.15 0.0                                           \r\n                    Z -6.529154E+03  ZX  0.0           C -6.529150E+03  LZ  0.0  0.0  1.00                                          \r\n0      40       72  X  9.363248E+03  XY -3.525952E+03  A  3.227151E+04  LX  0.15 0.99 0.0   -1.780652E+04   1.032801E+04            \r\n                    Y  3.172881E+04  YZ  0.0           B  8.820537E+03  LY -0.99 0.15 0.0                                           \r\n                    Z  1.232751E+04  ZX  0.0           C  1.232752E+04  LZ  0.0  0.0  1.00                                          \r\n0      40       90  X  9.876035E+03  XY -4.862489E+03  A  3.227151E+04  LX  0.21 0.98 0.0   -1.780640E+04   1.032810E+04            \r\n                    Y  3.121578E+04  YZ  0.0           B  8.820283E+03  LY -0.98 0.21 0.0                                           \r\n                    Z  1.232738E+04  ZX  0.0           C  1.232740E+04  LZ  0.0  0.0  1.00                                          \r\n0      40       89  X -8.937336E+03  XY -5.065088E+03  A  1.439115E+04  LX  0.21 0.98 0.0    7.249896E+02   1.078424E+04            \r\n                    Y  1.329142E+04  YZ  0.0           B -1.003707E+04  LY -0.98 0.21 0.0                                           \r\n                    Z -6.529047E+03  ZX  0.0           C -6.529048E+03  LZ  0.0  0.0  1.00                                          \r\n0      40        0  X  2.075239E+02  XY -4.281600E+03  A  2.330899E+04  LX  0.18 0.98 0.0   -8.540713E+03   1.053923E+04            \r\n                    Y  2.251545E+04  YZ  0.0           B -5.860234E+02  LY -0.98 0.18 0.0                                           \r\n                    Z  2.899174E+03  ZX  0.0           C  2.899172E+03  LZ  0.0  0.0  1.00                                          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS           \r\n DATE:  5/17/95\r\n END TIME: 15: 5:25\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01132a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01132A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                          \r\n                  3      DISP   = ALL                                                                    \r\n                  4      STRESS = ALL                                                                    \r\n                  5      SPC    = 200                                                                    \r\n                  6      SUBCASE   1                                                                     \r\n                  7      LABEL =  PRESSURE  LOAD                                                         \r\n                  8      LOAD  =  400                                                                    \r\n                  9      SUBCASE   2                                                                     \r\n                 10      LABEL =  THERMAL LOAD                                                           \r\n                 11      TEMP(LOAD) = 500                                                                \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    59, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CIHEX2  1       200     1       2       3       10      15      14      +HEX-1  \r\n                    2-        +HEX-1  13      9       4       5       17      16      6       7       +HEX-11 \r\n                    3-        +HEX-11 8       12      20      19      18      11                              \r\n                    4-        CIHEX2  2       200     13      14      15      22      27      26      +HEX-21 \r\n                    5-        +HEX-21 25      21      16      17      29      28      18      19      +HEX-22 \r\n                    6-        +HEX-22 20      24      32      31      30      23                              \r\n                    7-        CNGRNT  1       2                                                               \r\n                    8-        CORD2C  10      0       .0      .0      .0      .0      .0      100.0   +CRD-1  \r\n                    9-        +CRD-1  100.0   .0      .0                                                      \r\n                   10-        GRDSET          10                              10      456                     \r\n                   11-        GRID    1               4.0     -14.0   .0                                      \r\n                   12-        GRID    2               4.5     -14.0   .0                                      \r\n                   13-        GRID    3               5.0     -14.0   .0                                      \r\n                   14-        GRID    4               4.0     -14.0   .5                                      \r\n                   15-        GRID    5               5.0     -14.0   .5                                      \r\n                   16-        GRID    6               4.0     -14.0   1.0                                     \r\n                   17-        GRID    7               4.5     -14.0   1.0                                     \r\n                   18-        GRID    8               5.0     -14.0   1.0                                     \r\n                   19-        GRID    9               4.0     -7.0    .0                                      \r\n                   20-        GRID    10              5.0     -7.0    .0                                      \r\n                   21-        GRID    11              4.0     -7.0    1.0                                     \r\n                   22-        GRID    12              5.0     -7.0    1.0                                     \r\n                   23-        GRID    13              4.0     .0      .0                                      \r\n                   24-        GRID    14              4.5     .0      .0                                      \r\n                   25-        GRID    15              5.0     .0      .0                                      \r\n                   26-        GRID    16              4.0     .0      .5                                      \r\n                   27-        GRID    17              5.0     .0      .5                                      \r\n                   28-        GRID    18              4.0     .0      1.0                                     \r\n                   29-        GRID    19              4.5     .0      1.0                                     \r\n                   30-        GRID    20              5.0     .0      1.0                                     \r\n                   31-        GRID    21              4.0     7.0     .0                                      \r\n                   32-        GRID    22              5.0     7.0     .0                                      \r\n                   33-        GRID    23              4.0     7.0     1.0                                     \r\n                   34-        GRID    24              5.0     7.0     1.0                                     \r\n                   35-        GRID    25              4.0     14.0    .0                                      \r\n                   36-        GRID    26              4.5     14.0    .0                                      \r\n                   37-        GRID    27              5.0     14.0    .0                                      \r\n                   38-        GRID    28              4.0     14.0    .5                                      \r\n                   39-        GRID    29              5.0     14.0    .5                                      \r\n                   40-        GRID    30              4.0     14.0    1.0                                     \r\n                   41-        GRID    31              4.5     14.0    1.0                                     \r\n                   42-        GRID    32              5.0     14.0    1.0                                     \r\n                   43-        MAT1    300     3.+7            .3      7.535-4 1.428-5 .0                      \r\n                   44-        PIHEX   200     300             4                                               \r\n                   45-        PLOAD3  400     -10.0   1       13      6       2       25      18              \r\n                   46-        SPC1    200     2       1       THRU    8                                       \r\n                   47-        SPC1    200     2       25      THRU    32                                      \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPC1    200     3       1       2       3       9       10      13      +SPC-A3 \r\n                   49-        +SPC-A3 14      15      21      22      25      26      27                      \r\n                   50-        SPC1    200     3       6       7       8       11      12      18      +SPC-A4 \r\n                   51-        +SPC-A4 19      20      23      24      30      31      32                      \r\n                   52-        TEMP    500     1       100.0   4       100.0   6       100.0                   \r\n                   53-        TEMP    500     9       100.0   11      100.0   13      100.0                   \r\n                   54-        TEMP    500     14      47.22   19      47.22   26      47.22                   \r\n                   55-        TEMP    500     16      100.0   18      100.0   21      100.0                   \r\n                   56-        TEMP    500     23      100.0   25      100.0   28      100.0                   \r\n                   57-        TEMP    500     30      100.0   2       47.22   7       47.22                   \r\n                   58-        TEMP    500     31      47.22                                                   \r\n                   59-        TEMPD   500     .0                                                              \r\n                              ENDDATA\r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           20\r\n                                        PROFILE            384\r\n                                        MAX WAVEFRONT       20\r\n                                        AVG WAVEFRONT   12.000\r\n                                        RMS WAVEFRONT   13.153\r\n                                        RMS BANDWIDTH   13.153\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           20\r\n                                        PROFILE            384\r\n                                        MAX WAVEFRONT       20\r\n                                        AVG WAVEFRONT   12.000\r\n                                        RMS WAVEFRONT   13.153\r\n                                        RMS BANDWIDTH   13.153\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       20        20\r\n                                        PROFILE (P)                        384       384\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           20        20\r\n                                        AVERAGE WAVEFRONT (C-AVG)       12.000    12.000\r\n                                        RMS WAVEFRONT (C-RMS)           13.153    13.153\r\n                                        RMS BANDWITCH (B-RMS)           13.153    13.153\r\n                                        NUMBER OF GRID POINTS (N)                     32\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 2\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          31\r\n                                        MINIMUM NODAL DEGREE                          19\r\n                                        NUMBER OF UNIQUE EDGES                       352\r\n                                        MATRIX DENSITY, PERCENT                   71.875\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IHEX2    ELEMENTS (ELEMENT TYPE  66) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -3.6603334E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   4.7536495E-16\r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      PRESSURE  LOAD                                                                                        SUBCASE   1            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.047039E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      5.666053E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      5.392320E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      6.047039E-06   0.0            2.870110E-21   0.0            0.0            0.0                           \r\n             5      G      5.392320E-06   0.0           -1.500092E-21   0.0            0.0            0.0                           \r\n             6      G      6.047039E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      5.666053E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      5.392320E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      6.046814E-06  -2.117252E-13   0.0            0.0            0.0            0.0                           \r\n            10      G      5.392107E-06   1.717601E-13   0.0            0.0            0.0            0.0                           \r\n            11      G      6.046814E-06  -2.117252E-13   0.0            0.0            0.0            0.0                           \r\n            12      G      5.392107E-06   1.717601E-13   0.0            0.0            0.0            0.0                           \r\n            13      G      6.047038E-06  -4.240684E-13   0.0            0.0            0.0            0.0                           \r\n            14      G      5.666052E-06  -6.380181E-14   0.0            0.0            0.0            0.0                           \r\n            15      G      5.392320E-06   3.170519E-13   0.0            0.0            0.0            0.0                           \r\n            16      G      6.047038E-06  -4.230127E-13   1.763549E-21   0.0            0.0            0.0                           \r\n            17      G      5.392320E-06   3.170770E-13   9.926167E-23   0.0            0.0            0.0                           \r\n            18      G      6.047038E-06  -4.240684E-13   0.0            0.0            0.0            0.0                           \r\n            19      G      5.666052E-06  -6.380182E-14   0.0            0.0            0.0            0.0                           \r\n            20      G      5.392320E-06   3.170519E-13   0.0            0.0            0.0            0.0                           \r\n            21      G      6.046813E-06  -2.163572E-13   0.0            0.0            0.0            0.0                           \r\n            22      G      5.392106E-06   1.773487E-13   0.0            0.0            0.0            0.0                           \r\n            23      G      6.046813E-06  -2.163572E-13   0.0            0.0            0.0            0.0                           \r\n            24      G      5.392106E-06   1.773487E-13   0.0            0.0            0.0            0.0                           \r\n            25      G      6.047038E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      5.666052E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      5.392319E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      6.047038E-06   0.0            1.131583E-21   0.0            0.0            0.0                           \r\n            29      G      5.392319E-06   0.0           -1.588187E-22   0.0            0.0            0.0                           \r\n            30      G      6.047038E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G      5.666052E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      5.392319E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      THERMAL LOAD                                                                                          SUBCASE   2            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.438675E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      4.198856E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.297704E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      3.438675E-03   0.0            2.527546E-18   0.0            0.0            0.0                           \r\n             5      G      4.297704E-03   0.0           -1.626303E-18   0.0            0.0            0.0                           \r\n             6      G      3.438675E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      4.198856E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      4.297704E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      3.440342E-03  -3.102146E-10   0.0            0.0            0.0            0.0                           \r\n            10      G      4.299318E-03   1.377486E-10   0.0            0.0            0.0            0.0                           \r\n            11      G      3.440342E-03  -3.102146E-10   0.0            0.0            0.0            0.0                           \r\n            12      G      4.299318E-03   1.377486E-10   0.0            0.0            0.0            0.0                           \r\n            13      G      3.438675E-03  -5.368165E-10   0.0            0.0            0.0            0.0                           \r\n            14      G      4.198856E-03  -4.622748E-11   0.0            0.0            0.0            0.0                           \r\n            15      G      4.297704E-03   3.938078E-10   0.0            0.0            0.0            0.0                           \r\n            16      G      3.438675E-03  -5.344766E-10   5.692061E-19   0.0            0.0            0.0                           \r\n            17      G      4.297704E-03   3.951975E-10   4.065758E-19   0.0            0.0            0.0                           \r\n            18      G      3.438675E-03  -5.368165E-10   0.0            0.0            0.0            0.0                           \r\n            19      G      4.198856E-03  -4.622748E-11   0.0            0.0            0.0            0.0                           \r\n            20      G      4.297704E-03   3.938077E-10   0.0            0.0            0.0            0.0                           \r\n            21      G      3.440341E-03  -3.285747E-10   0.0            0.0            0.0            0.0                           \r\n            22      G      4.299317E-03   3.878982E-10   0.0            0.0            0.0            0.0                           \r\n            23      G      3.440341E-03  -3.285747E-10   0.0            0.0            0.0            0.0                           \r\n            24      G      4.299317E-03   3.878982E-10   0.0            0.0            0.0            0.0                           \r\n            25      G      3.438674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      4.198855E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      4.297703E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      3.438674E-03   0.0           -2.710505E-20   0.0            0.0            0.0                           \r\n            29      G      4.297703E-03   0.0            3.794708E-19   0.0            0.0            0.0                           \r\n            30      G      3.438674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G      4.198855E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      4.297703E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      PRESSURE  LOAD                                                                                        SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1        1  X -6.691342E+00  XY  1.291605E+01  A  4.547615E+01  LX  0.24 0.97 0.0   -1.542102E+01   2.285047E+01            \r\n                    Y  4.227829E+01  YZ  0.0           B -9.889205E+00  LY  0.97-0.24 0.0                                           \r\n                    Z  1.067611E+01  ZX  0.0           C  1.067611E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        2  X -2.259551E+00  XY  1.056923E+01  A  4.043281E+01  LX  0.24 0.97 0.0   -1.540789E+01   1.879863E+01            \r\n                    Y  3.781621E+01  YZ  0.0           B -4.876149E+00  LY  0.97-0.24 0.0                                           \r\n                    Z  1.066700E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        3  X  2.172241E+00  XY  8.222413E+00  A  3.538945E+01  LX  0.24 0.97 0.0   -1.539474E+01   1.477642E+01            \r\n                    Y  3.335412E+01  YZ  0.0           B  1.369058E-01  LY  0.97-0.24 0.0                                           \r\n                    Z  1.065788E+01  ZX  0.0           C  1.065788E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       10  X  1.154503E+00  XY  4.140992E+00  A  3.488017E+01  LX  0.12 0.99 0.0   -1.539470E+01   1.437178E+01            \r\n                    Y  3.437172E+01  YZ  0.0           B  6.460528E-01  LY  0.99-0.12 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065786E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       15  X  1.367655E-01  XY  5.957030E-02  A  3.538942E+01  LX  0.00 1.00 0.0   -1.539464E+01   1.477649E+01            \r\n                    Y  3.538931E+01  YZ  0.0           B  1.366617E-01  LY  1.00 0.00 0.0                                           \r\n                    Z  1.065784E+01  ZX  0.0           C  1.065784E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       14  X -4.875983E+00  XY  7.516288E-02  A  4.043284E+01  LX  0.00 1.00 0.0   -1.540792E+01   1.879862E+01            \r\n                    Y  4.043271E+01  YZ  0.0           B -4.876106E+00  LY  1.00 0.00 0.0                                           \r\n                    Z  1.066702E+01  ZX  0.0           C  1.066702E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       13  X -9.888731E+00  XY  9.075449E-02  A  4.547625E+01  LX  0.00 1.00 0.0   -1.542120E+01   2.285039E+01            \r\n                    Y  4.547610E+01  YZ  0.0           B -9.888878E+00  LY  1.00 0.00 0.0                                           \r\n                    Z  1.067620E+01  ZX  0.0           C  1.067621E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        9  X -8.290037E+00  XY  6.503403E+00  A  4.467573E+01  LX  0.12 0.99 0.0   -1.542111E+01   2.220414E+01            \r\n                    Y  4.387720E+01  YZ  0.0           B -9.088559E+00  LY  0.99-0.12 0.0                                           \r\n                    Z  1.067616E+01  ZX  0.0           C  1.067617E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        4  X -6.691255E+00  XY  1.291605E+01  A  4.547618E+01  LX  0.24 0.97 0.0   -1.542107E+01   2.285045E+01            \r\n                    Y  4.227831E+01  YZ  0.0           B -9.889115E+00  LY  0.97-0.24 0.0                                           \r\n                    Z  1.067613E+01  ZX  0.0           C  1.067613E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        5  X  2.172129E+00  XY  8.222420E+00  A  3.538943E+01  LX  0.24 0.97 0.0   -1.539470E+01   1.477645E+01            \r\n                    Y  3.335411E+01  YZ  0.0           B  1.367964E-01  LY  0.97-0.24 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065787E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       17  X  1.368871E-01  XY  5.955793E-02  A  3.538943E+01  LX  0.00 1.00 0.0   -1.539470E+01   1.477645E+01            \r\n                    Y  3.538934E+01  YZ  0.0           B  1.367873E-01  LY  1.00 0.00 0.0                                           \r\n                    Z  1.065787E+01  ZX  0.0           C  1.065788E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      PRESSURE  LOAD                                                                                        SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1       16  X -9.888877E+00  XY  9.075666E-02  A  4.547623E+01  LX  0.00 1.00 0.0   -1.542112E+01   2.285044E+01            \r\n                    Y  4.547608E+01  YZ  0.0           B -9.889028E+00  LY  1.00 0.00 0.0                                           \r\n                    Z  1.067615E+01  ZX  0.0           C  1.067616E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        6  X -6.691167E+00  XY  1.291605E+01  A  4.547618E+01  LX  0.24 0.97 0.0   -1.542110E+01   2.285043E+01            \r\n                    Y  4.227832E+01  YZ  0.0           B -9.889039E+00  LY  0.97-0.24 0.0                                           \r\n                    Z  1.067615E+01  ZX  0.0           C  1.067616E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        7  X -2.259575E+00  XY  1.056924E+01  A  4.043280E+01  LX  0.24 0.97 0.0   -1.540788E+01   1.879863E+01            \r\n                    Y  3.781621E+01  YZ  0.0           B -4.876173E+00  LY  0.97-0.24 0.0                                           \r\n                    Z  1.066700E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        8  X  2.172018E+00  XY  8.222425E+00  A  3.538941E+01  LX  0.24 0.97 0.0   -1.539465E+01   1.477648E+01            \r\n                    Y  3.335409E+01  YZ  0.0           B  1.366919E-01  LY  0.97-0.24 0.0                                           \r\n                    Z  1.065784E+01  ZX  0.0           C  1.065785E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       12  X  1.154513E+00  XY  4.140985E+00  A  3.488017E+01  LX  0.12 0.99 0.0   -1.539470E+01   1.437177E+01            \r\n                    Y  3.437172E+01  YZ  0.0           B  6.460651E-01  LY  0.99-0.12 0.0                                           \r\n                    Z  1.065787E+01  ZX  0.0           C  1.065788E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       20  X  1.370092E-01  XY  5.954466E-02  A  3.538944E+01  LX  0.00 1.00 0.0   -1.539475E+01   1.477641E+01            \r\n                    Y  3.538935E+01  YZ  0.0           B  1.369065E-01  LY  1.00 0.00 0.0                                           \r\n                    Z  1.065790E+01  ZX  0.0           C  1.065790E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       19  X -4.876007E+00  XY  7.515171E-02  A  4.043282E+01  LX  0.00 1.00 0.0   -1.540790E+01   1.879863E+01            \r\n                    Y  4.043270E+01  YZ  0.0           B -4.876133E+00  LY  1.00 0.00 0.0                                           \r\n                    Z  1.066700E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       18  X -9.889022E+00  XY  9.075779E-02  A  4.547618E+01  LX  0.00 1.00 0.0   -1.542104E+01   2.285048E+01            \r\n                    Y  4.547604E+01  YZ  0.0           B -9.889173E+00  LY  1.00 0.00 0.0                                           \r\n                    Z  1.067611E+01  ZX  0.0           C  1.067610E+01  LZ  0.0  0.0  1.00                                          \r\n0       1       11  X -8.290095E+00  XY  6.503403E+00  A  4.467570E+01  LX  0.12 0.99 0.0   -1.542107E+01   2.220415E+01            \r\n                    Y  4.387718E+01  YZ  0.0           B -9.088618E+00  LY  0.99-0.12 0.0                                           \r\n                    Z  1.067613E+01  ZX  0.0           C  1.067613E+01  LZ  0.0  0.0  1.00                                          \r\n0       1        0  X -3.567779E+00  XY  5.322196E+00  A  3.977794E+01  LX  0.12 0.99 0.0   -1.540789E+01   1.827274E+01            \r\n                    Y  3.912445E+01  YZ  0.0           B -4.221265E+00  LY  0.99-0.12 0.0                                           \r\n                    Z  1.066700E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       13  X -9.888847E+00  XY -9.075878E-02  A  4.547621E+01  LX  0.00 1.00 0.0   -1.542113E+01   2.285042E+01            \r\n                    Y  4.547607E+01  YZ  0.0           B -9.888995E+00  LY -1.00 0.00 0.0                                           \r\n                    Z  1.067617E+01  ZX  0.0           C  1.067617E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      PRESSURE  LOAD                                                                                        SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       14  X -4.876045E+00  XY -7.515997E-02  A  4.043282E+01  LX  0.00 1.00 0.0   -1.540789E+01   1.879864E+01            \r\n                    Y  4.043269E+01  YZ  0.0           B -4.876172E+00  LY -1.00 0.00 0.0                                           \r\n                    Z  1.066701E+01  ZX  0.0           C  1.066701E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       15  X  1.367583E-01  XY -5.956020E-02  A  3.538940E+01  LX  0.00 1.00 0.0   -1.539464E+01   1.477649E+01            \r\n                    Y  3.538931E+01  YZ  0.0           B  1.366543E-01  LY -1.00 0.00 0.0                                           \r\n                    Z  1.065785E+01  ZX  0.0           C  1.065785E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       22  X  1.154518E+00  XY -4.140984E+00  A  3.488018E+01  LX  0.12 0.99 0.0   -1.539470E+01   1.437178E+01            \r\n                    Y  3.437173E+01  YZ  0.0           B  6.460685E-01  LY -0.99 0.12 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065786E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       27  X  2.172278E+00  XY -8.222406E+00  A  3.538948E+01  LX  0.24 0.97 0.0   -1.539477E+01   1.477642E+01            \r\n                    Y  3.335415E+01  YZ  0.0           B  1.369467E-01  LY -0.97 0.24 0.0                                           \r\n                    Z  1.065788E+01  ZX  0.0           C  1.065788E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       26  X -2.259534E+00  XY -1.056924E+01  A  4.043285E+01  LX  0.24 0.97 0.0   -1.540791E+01   1.879864E+01            \r\n                    Y  3.781625E+01  YZ  0.0           B -4.876134E+00  LY -0.97 0.24 0.0                                           \r\n                    Z  1.066699E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       25  X -6.691346E+00  XY -1.291607E+01  A  4.547621E+01  LX  0.24 0.97 0.0   -1.542104E+01   2.285050E+01            \r\n                    Y  4.227834E+01  YZ  0.0           B -9.889211E+00  LY -0.97 0.24 0.0                                           \r\n                    Z  1.067611E+01  ZX  0.0           C  1.067611E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       21  X -8.290097E+00  XY -6.503413E+00  A  4.467573E+01  LX  0.12 0.99 0.0   -1.542109E+01   2.220416E+01            \r\n                    Y  4.387721E+01  YZ  0.0           B -9.088620E+00  LY -0.99 0.12 0.0                                           \r\n                    Z  1.067614E+01  ZX  0.0           C  1.067615E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       16  X -9.888850E+00  XY -9.076250E-02  A  4.547624E+01  LX  0.00 1.00 0.0   -1.542113E+01   2.285044E+01            \r\n                    Y  4.547610E+01  YZ  0.0           B -9.889002E+00  LY -1.00 0.00 0.0                                           \r\n                    Z  1.067616E+01  ZX  0.0           C  1.067616E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       17  X  1.368011E-01  XY -5.956426E-02  A  3.538943E+01  LX  0.00 1.00 0.0   -1.539467E+01   1.477649E+01            \r\n                    Y  3.538933E+01  YZ  0.0           B  1.366997E-01  LY -1.00 0.00 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065786E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       29  X  2.172181E+00  XY -8.222425E+00  A  3.538944E+01  LX  0.24 0.97 0.0   -1.539471E+01   1.477644E+01            \r\n                    Y  3.335410E+01  YZ  0.0           B  1.368441E-01  LY -0.97 0.24 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065786E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       28  X -6.691268E+00  XY -1.291603E+01  A  4.547620E+01  LX  0.24 0.97 0.0   -1.542106E+01   2.285046E+01            \r\n                    Y  4.227834E+01  YZ  0.0           B -9.889123E+00  LY -0.97 0.24 0.0                                           \r\n                    Z  1.067612E+01  ZX  0.0           C  1.067611E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      PRESSURE  LOAD                                                                                        SUBCASE   1            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       18  X -9.888851E+00  XY -9.076518E-02  A  4.547626E+01  LX  0.00 1.00 0.0   -1.542114E+01   2.285045E+01            \r\n                    Y  4.547611E+01  YZ  0.0           B -9.889000E+00  LY -1.00 0.00 0.0                                           \r\n                    Z  1.067615E+01  ZX  0.0           C  1.067616E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       19  X -4.876004E+00  XY -7.516678E-02  A  4.043286E+01  LX  0.00 1.00 0.0   -1.540792E+01   1.879864E+01            \r\n                    Y  4.043274E+01  YZ  0.0           B -4.876126E+00  LY -1.00 0.00 0.0                                           \r\n                    Z  1.066702E+01  ZX  0.0           C  1.066701E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       20  X  1.368446E-01  XY -5.956743E-02  A  3.538944E+01  LX  0.00 1.00 0.0   -1.539469E+01   1.477647E+01            \r\n                    Y  3.538935E+01  YZ  0.0           B  1.367452E-01  LY -1.00 0.00 0.0                                           \r\n                    Z  1.065788E+01  ZX  0.0           C  1.065788E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       24  X  1.154464E+00  XY -4.141006E+00  A  3.488016E+01  LX  0.12 0.99 0.0   -1.539468E+01   1.437178E+01            \r\n                    Y  3.437170E+01  YZ  0.0           B  6.460094E-01  LY -0.99 0.12 0.0                                           \r\n                    Z  1.065786E+01  ZX  0.0           C  1.065787E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       32  X  2.172085E+00  XY -8.222443E+00  A  3.538939E+01  LX  0.24 0.97 0.0   -1.539466E+01   1.477645E+01            \r\n                    Y  3.335404E+01  YZ  0.0           B  1.367415E-01  LY -0.97 0.24 0.0                                           \r\n                    Z  1.065784E+01  ZX  0.0           C  1.065784E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       31  X -2.259552E+00  XY -1.056922E+01  A  4.043279E+01  LX  0.24 0.97 0.0   -1.540788E+01   1.879861E+01            \r\n                    Y  3.781619E+01  YZ  0.0           B -4.876147E+00  LY -0.97 0.24 0.0                                           \r\n                    Z  1.066698E+01  ZX  0.0           C  1.066699E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       30  X -6.691189E+00  XY -1.291599E+01  A  4.547617E+01  LX  0.24 0.97 0.0   -1.542109E+01   2.285042E+01            \r\n                    Y  4.227834E+01  YZ  0.0           B -9.889026E+00  LY -0.97 0.24 0.0                                           \r\n                    Z  1.067613E+01  ZX  0.0           C  1.067614E+01  LZ  0.0  0.0  1.00                                          \r\n0       2       23  X -8.290021E+00  XY -6.503379E+00  A  4.467574E+01  LX  0.12 0.99 0.0   -1.542112E+01   2.220414E+01            \r\n                    Y  4.387723E+01  YZ  0.0           B -9.088536E+00  LY -0.99 0.12 0.0                                           \r\n                    Z  1.067614E+01  ZX  0.0           C  1.067614E+01  LZ  0.0  0.0  1.00                                          \r\n0       2        0  X -3.567784E+00  XY -5.322195E+00  A  3.977795E+01  LX  0.12 0.99 0.0   -1.540790E+01   1.827275E+01            \r\n                    Y  3.912447E+01  YZ  0.0           B -4.221269E+00  LY -0.99 0.12 0.0                                           \r\n                    Z  1.066700E+01  ZX  0.0           C  1.066700E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      THERMAL LOAD                                                                                          SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1        1  X -2.880421E+03  XY -6.926184E+03  A -1.163994E+03  LX  0.97 0.0  0.24   2.787886E+04   2.071345E+04            \r\n                    Y -2.911279E+04  YZ  0.0           B -5.164338E+04  LY -0.24 0.0  0.97                                          \r\n                    Z -5.164338E+04  ZX  0.0           C -3.082921E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        2  X -1.089508E+03  XY  2.731567E+02  A  1.442129E+01  LX  0.24 0.0  0.97   7.370508E+03   9.627364E+03            \r\n                    Y -5.317122E+01  YZ  0.0           B -2.096885E+04  LY  0.97 0.0 -0.24                                          \r\n                    Z -2.096885E+04  ZX  0.0           C -1.157102E+03  LZ  0.0  1.00 0.0                                           \r\n0       1        3  X  7.014052E+02  XY  7.472497E+03  A  3.085805E+04  LX  0.24 0.97 0.0   -1.313784E+04   1.329077E+04            \r\n                    Y  2.900644E+04  YZ  0.0           B -1.150202E+03  LY  0.97-0.24 0.0                                           \r\n                    Z  9.705687E+03  ZX  0.0           C  9.705686E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       10  X -2.244097E+02  XY  3.759441E+03  A  3.039381E+04  LX  0.12 0.99 0.0   -1.313783E+04   1.291830E+04            \r\n                    Y  2.993221E+04  YZ  0.0           B -6.860110E+02  LY  0.99-0.12 0.0                                           \r\n                    Z  9.705675E+03  ZX  0.0           C  9.705672E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       15  X -1.150224E+03  XY  4.638407E+01  A  3.085804E+04  LX  0.00 1.00 0.0   -1.313780E+04   1.329080E+04            \r\n                    Y  3.085797E+04  YZ  0.0           B -1.150292E+03  LY  1.00 0.00 0.0                                           \r\n                    Z  9.705666E+03  ZX  0.0           C  9.705664E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       14  X -1.157072E+03  XY  2.096515E+00  A  1.446751E+01  LX  0.00 0.0  1.00   7.370476E+03   9.627366E+03            \r\n                    Y  1.446161E+01  YZ  0.0           B -2.096882E+04  LY  1.00 0.0  0.00                                          \r\n                    Z -2.096882E+04  ZX  0.0           C -1.157078E+03  LZ  0.0  1.00 0.0                                           \r\n0       1       13  X -1.163920E+03  XY -4.219107E+01  A -1.163863E+03  LX  1.00 0.0  0.00   2.787876E+04   2.071347E+04            \r\n                    Y -3.082905E+04  YZ  0.0           B -5.164329E+04  LY  0.00 0.0  1.00                                          \r\n                    Z -5.164330E+04  ZX  0.0           C -3.082912E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        9  X -2.022171E+03  XY -3.484188E+03  A -1.594363E+03  LX  0.99 0.0  0.12   2.787881E+04   2.050996E+04            \r\n                    Y -2.997092E+04  YZ  0.0           B -5.164336E+04  LY -0.12 0.0  0.99                                          \r\n                    Z -5.164334E+04  ZX  0.0           C -3.039871E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        4  X -2.880374E+03  XY -6.926183E+03  A -1.163953E+03  LX  0.97 0.0  0.24   2.787882E+04   2.071345E+04            \r\n                    Y -2.911275E+04  YZ  0.0           B -5.164334E+04  LY -0.24 0.0  0.97                                          \r\n                    Z -5.164334E+04  ZX  0.0           C -3.082917E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        5  X  7.013417E+02  XY  7.472495E+03  A  3.085805E+04  LX  0.24 0.97 0.0   -1.313782E+04   1.329079E+04            \r\n                    Y  2.900644E+04  YZ  0.0           B -1.150260E+03  LY  0.97-0.24 0.0                                           \r\n                    Z  9.705660E+03  ZX  0.0           C  9.705659E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       17  X -1.150141E+03  XY  4.638845E+01  A  3.085806E+04  LX  0.00 1.00 0.0   -1.313785E+04   1.329078E+04            \r\n                    Y  3.085800E+04  YZ  0.0           B -1.150212E+03  LY  1.00 0.00 0.0                                           \r\n                    Z  9.705690E+03  ZX  0.0           C  9.705695E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      THERMAL LOAD                                                                                          SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       1       16  X -1.164045E+03  XY -4.220688E+01  A -1.163984E+03  LX  1.00 0.0  0.00   2.787884E+04   2.071345E+04            \r\n                    Y -3.082911E+04  YZ  0.0           B -5.164336E+04  LY  0.00 0.0  1.00                                          \r\n                    Z -5.164335E+04  ZX  0.0           C -3.082917E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        6  X -2.880326E+03  XY -6.926183E+03  A -1.163900E+03  LX  0.97 0.0  0.24   2.787878E+04   2.071346E+04            \r\n                    Y -2.911271E+04  YZ  0.0           B -5.164331E+04  LY -0.24 0.0  0.97                                          \r\n                    Z -5.164330E+04  ZX  0.0           C -3.082913E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        7  X -1.089524E+03  XY  2.731552E+02  A  1.445565E+01  LX  0.24 0.0  0.97   7.370499E+03   9.627365E+03            \r\n                    Y -5.313544E+01  YZ  0.0           B -2.096884E+04  LY  0.97 0.0 -0.24                                          \r\n                    Z -2.096884E+04  ZX  0.0           C -1.157114E+03  LZ  0.0  1.00 0.0                                           \r\n0       1        8  X  7.012785E+02  XY  7.472493E+03  A  3.085803E+04  LX  0.24 0.97 0.0   -1.313778E+04   1.329081E+04            \r\n                    Y  2.900644E+04  YZ  0.0           B -1.150320E+03  LY  0.97-0.24 0.0                                           \r\n                    Z  9.705636E+03  ZX  0.0           C  9.705641E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       12  X -2.243900E+02  XY  3.759443E+03  A  3.039383E+04  LX  0.12 0.99 0.0   -1.313784E+04   1.291830E+04            \r\n                    Y  2.993223E+04  YZ  0.0           B -6.859918E+02  LY  0.99-0.12 0.0                                           \r\n                    Z  9.705676E+03  ZX  0.0           C  9.705676E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       20  X -1.150058E+03  XY  4.639257E+01  A  3.085809E+04  LX  0.00 1.00 0.0   -1.313789E+04   1.329075E+04            \r\n                    Y  3.085802E+04  YZ  0.0           B -1.150126E+03  LY  1.00 0.00 0.0                                           \r\n                    Z  9.705719E+03  ZX  0.0           C  9.705720E+03  LZ  0.0  0.0  1.00                                          \r\n0       1       19  X -1.157115E+03  XY  2.085050E+00  A  1.443191E+01  LX  0.00 0.0  1.00   7.370510E+03   9.627362E+03            \r\n                    Y  1.442414E+01  YZ  0.0           B -2.096884E+04  LY  1.00 0.0  0.00                                          \r\n                    Z -2.096884E+04  ZX  0.0           C -1.157119E+03  LZ  0.0  1.00 0.0                                           \r\n0       1       18  X -1.164171E+03  XY -4.222250E+01  A -1.164115E+03  LX  1.00 0.0  0.00   2.787892E+04   2.071341E+04            \r\n                    Y -3.082917E+04  YZ  0.0           B -5.164341E+04  LY  0.00 0.0  1.00                                          \r\n                    Z -5.164340E+04  ZX  0.0           C -3.082923E+04  LZ  0.0  1.00 0.0                                           \r\n0       1       11  X -2.022249E+03  XY -3.484203E+03  A -1.594444E+03  LX  0.99 0.0  0.12   2.787885E+04   2.050993E+04            \r\n                    Y -2.997094E+04  YZ  0.0           B -5.164336E+04  LY -0.12 0.0  0.99                                          \r\n                    Z -5.164336E+04  ZX  0.0           C -3.039875E+04  LZ  0.0  1.00 0.0                                           \r\n0       1        0  X -1.123305E+03  XY  1.376234E+02  A -2.454061E+00  LX  0.12 0.0  0.99   7.370498E+03   9.626688E+03            \r\n                    Y -1.935522E+01  YZ  0.0           B -2.096883E+04  LY  0.99 0.0 -0.12                                          \r\n                    Z -2.096883E+04  ZX  0.0           C -1.140205E+03  LZ  0.0  1.00 0.0                                           \r\n0       2       13  X -1.164112E+03  XY  4.221630E+01  A -1.164050E+03  LX  1.00 0.0  0.00   2.787888E+04   2.071344E+04            \r\n                    Y -3.082914E+04  YZ  0.0           B -5.164341E+04  LY  0.00 0.0 -1.00                                          \r\n                    Z -5.164340E+04  ZX  0.0           C -3.082920E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      THERMAL LOAD                                                                                          SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       14  X -1.157136E+03  XY -2.089234E+00  A  1.442692E+01  LX  0.00 0.0  1.00   7.370523E+03   9.627361E+03            \r\n                    Y  1.442376E+01  YZ  0.0           B -2.096886E+04  LY -1.00 0.0  0.00                                          \r\n                    Z -2.096886E+04  ZX  0.0           C -1.157141E+03  LZ  0.0  1.00 0.0                                           \r\n0       2       15  X -1.150159E+03  XY -4.639474E+01  A  3.085805E+04  LX  0.00 1.00 0.0   -1.313784E+04   1.329078E+04            \r\n                    Y  3.085799E+04  YZ  0.0           B -1.150226E+03  LY -1.00 0.00 0.0                                           \r\n                    Z  9.705694E+03  ZX  0.0           C  9.705695E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       22  X -2.243690E+02  XY -3.759435E+03  A  3.039380E+04  LX  0.12 0.99 0.0   -1.313784E+04   1.291828E+04            \r\n                    Y  2.993220E+04  YZ  0.0           B -6.859714E+02  LY -0.99 0.12 0.0                                           \r\n                    Z  9.705682E+03  ZX  0.0           C  9.705682E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       27  X  7.014216E+02  XY -7.472475E+03  A  3.085801E+04  LX  0.24 0.97 0.0   -1.313783E+04   1.329074E+04            \r\n                    Y  2.900641E+04  YZ  0.0           B -1.150177E+03  LY -0.97 0.24 0.0                                           \r\n                    Z  9.705671E+03  ZX  0.0           C  9.705672E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       26  X -1.089461E+03  XY -2.731642E+02  A  1.446064E+01  LX  0.24 0.0  0.97   7.370471E+03   9.627372E+03            \r\n                    Y -5.313277E+01  YZ  0.0           B -2.096882E+04  LY -0.97 0.0  0.24                                          \r\n                    Z -2.096882E+04  ZX  0.0           C -1.157053E+03  LZ  0.0  1.00 0.0                                           \r\n0       2       25  X -2.880344E+03  XY  6.926146E+03  A -1.163931E+03  LX  0.97 0.0  0.24   2.787877E+04   2.071344E+04            \r\n                    Y -2.911267E+04  YZ  0.0           B -5.164331E+04  LY  0.24 0.0 -0.97                                          \r\n                    Z -5.164330E+04  ZX  0.0           C -3.082908E+04  LZ  0.0  1.00 0.0                                           \r\n0       2       21  X -2.022228E+03  XY  3.484181E+03  A -1.594432E+03  LX  0.99 0.0  0.12   2.787883E+04   2.050994E+04            \r\n                    Y -2.997091E+04  YZ  0.0           B -5.164336E+04  LY  0.12 0.0 -0.99                                          \r\n                    Z -5.164336E+04  ZX  0.0           C -3.039870E+04  LZ  0.0  1.00 0.0                                           \r\n0       2       16  X -1.164081E+03  XY  4.220443E+01  A -1.164019E+03  LX  1.00 0.0  0.00   2.787886E+04   2.071344E+04            \r\n                    Y -3.082911E+04  YZ  0.0           B -5.164338E+04  LY  0.00 0.0 -1.00                                          \r\n                    Z -5.164338E+04  ZX  0.0           C -3.082918E+04  LZ  0.0  1.00 0.0                                           \r\n0       2       17  X -1.150166E+03  XY -4.639832E+01  A  3.085806E+04  LX  0.00 1.00 0.0   -1.313784E+04   1.329079E+04            \r\n                    Y  3.085800E+04  YZ  0.0           B -1.150234E+03  LY -1.00 0.00 0.0                                           \r\n                    Z  9.705699E+03  ZX  0.0           C  9.705697E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       29  X  7.014169E+02  XY -7.472489E+03  A  3.085801E+04  LX  0.24 0.97 0.0   -1.313783E+04   1.329075E+04            \r\n                    Y  2.900641E+04  YZ  0.0           B -1.150187E+03  LY -0.97 0.24 0.0                                           \r\n                    Z  9.705680E+03  ZX  0.0           C  9.705681E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       28  X -2.880376E+03  XY  6.926182E+03  A -1.163950E+03  LX  0.97 0.0  0.24   2.787880E+04   2.071345E+04            \r\n                    Y -2.911269E+04  YZ  0.0           B -5.164333E+04  LY  0.24 0.0 -0.97                                          \r\n                    Z -5.164334E+04  ZX  0.0           C -3.082912E+04  LZ  0.0  1.00 0.0                                           \r\n1     LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                                                                                   \r\n0      THERMAL LOAD                                                                                          SUBCASE   2            \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0       2       18  X -1.164049E+03  XY  4.219235E+01  A -1.163991E+03  LX  1.00 0.0  0.00   2.787883E+04   2.071344E+04            \r\n                    Y -3.082909E+04  YZ  0.0           B -5.164336E+04  LY  0.00 0.0 -1.00                                          \r\n                    Z -5.164336E+04  ZX  0.0           C -3.082914E+04  LZ  0.0  1.00 0.0                                           \r\n0       2       19  X -1.157111E+03  XY -2.104656E+00  A  1.446377E+01  LX  0.00 0.0  1.00   7.370494E+03   9.627364E+03            \r\n                    Y  1.446090E+01  YZ  0.0           B -2.096883E+04  LY -1.00 0.0  0.00                                          \r\n                    Z -2.096883E+04  ZX  0.0           C -1.157116E+03  LZ  0.0  1.00 0.0                                           \r\n0       2       20  X -1.150173E+03  XY -4.640164E+01  A  3.085808E+04  LX  0.00 1.00 0.0   -1.313785E+04   1.329079E+04            \r\n                    Y  3.085801E+04  YZ  0.0           B -1.150241E+03  LY -1.00 0.00 0.0                                           \r\n                    Z  9.705708E+03  ZX  0.0           C  9.705709E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       24  X -2.243805E+02  XY -3.759452E+03  A  3.039381E+04  LX  0.12 0.99 0.0   -1.313784E+04   1.291829E+04            \r\n                    Y  2.993221E+04  YZ  0.0           B -6.859860E+02  LY -0.99 0.12 0.0                                           \r\n                    Z  9.705697E+03  ZX  0.0           C  9.705701E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       32  X  7.014125E+02  XY -7.472502E+03  A  3.085802E+04  LX  0.24 0.97 0.0   -1.313784E+04   1.329075E+04            \r\n                    Y  2.900641E+04  YZ  0.0           B -1.150197E+03  LY -0.97 0.24 0.0                                           \r\n                    Z  9.705690E+03  ZX  0.0           C  9.705690E+03  LZ  0.0  0.0  1.00                                          \r\n0       2       31  X -1.089498E+03  XY -2.731430E+02  A  1.443066E+01  LX  0.24 0.0  0.97   7.370497E+03   9.627371E+03            \r\n                    Y -5.315130E+01  YZ  0.0           B -2.096884E+04  LY -0.97 0.0  0.24                                          \r\n                    Z -2.096884E+04  ZX  0.0           C -1.157075E+03  LZ  0.0  1.00 0.0                                           \r\n0       2       30  X -2.880408E+03  XY  6.926216E+03  A -1.163966E+03  LX  0.97 0.0  0.24   2.787883E+04   2.071346E+04            \r\n                    Y -2.911271E+04  YZ  0.0           B -5.164338E+04  LY  0.24 0.0 -0.97                                          \r\n                    Z -5.164337E+04  ZX  0.0           C -3.082915E+04  LZ  0.0  1.00 0.0                                           \r\n0       2       23  X -2.022229E+03  XY  3.484205E+03  A -1.594423E+03  LX  0.99 0.0  0.12   2.787883E+04   2.050994E+04            \r\n                    Y -2.997090E+04  YZ  0.0           B -5.164337E+04  LY  0.12 0.0 -0.99                                          \r\n                    Z -5.164337E+04  ZX  0.0           C -3.039871E+04  LZ  0.0  1.00 0.0                                           \r\n0       2        0  X -1.123302E+03  XY -1.376253E+02  A -2.447187E+00  LX  0.12 0.0  0.99   7.370495E+03   9.626691E+03            \r\n                    Y -1.934985E+01  YZ  0.0           B -2.096884E+04  LY -0.99 0.0  0.12                                          \r\n                    Z -2.096884E+04  ZX  0.0           C -1.140201E+03  LZ  0.0  1.00 0.0                                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS        \r\n DATE:  5/17/95\r\n END TIME: 15: 6: 9\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01133a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01133A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                          \r\n                  3      DISPLACEMENT    =ALL                                                            \r\n                  4      STRESS = ALL                                                                    \r\n                  5      SPC    = 200                                                                    \r\n                  6      SUBCASE  1                                                                      \r\n                  7      LABEL  = PRESSURE LOAD                                                          \r\n                  8      LOAD   = 80                                                                     \r\n                  9      SUBCASE  2                                                                      \r\n                 10      LABEL  = THERMAL  LOAD                                                          \r\n                 11      TEMP(LOAD) = 90                                                                 \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    57, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CIHEX3  10      60      1       2       3       4       5       6       +HEX-31 \r\n                    2-        +HEX-31 7       8       9       10      11      12      13      14      +HEX-32 \r\n                    3-        +HEX-32 15      16      17      18      19      20      21      22      +HEX-33 \r\n                    4-        +HEX-33 23      24      25      26      27      28      29      30      +HEX-34 \r\n                    5-        +HEX-34 31      32                                                              \r\n                    6-        CORD2C  111     0       .0      .0      .0      .0      .0      50.0    +COR1   \r\n                    7-        +COR1   50.0    .0      .0                                                      \r\n                    8-        GRDSET          111                             111     456                     \r\n                    9-        GRID    1               4.0     .0      .0                                      \r\n                   10-        GRID    2               4.25    .0      .0                                      \r\n                   11-        GRID    3               4.6     .0      .0                                      \r\n                   12-        GRID    4               5.0     .0      .0                                      \r\n                   13-        GRID    5               5.0     9.0     .0                                      \r\n                   14-        GRID    6               5.0     18.0    .0                                      \r\n                   15-        GRID    7               5.0     27.0    .0                                      \r\n                   16-        GRID    8               4.6     27.0    .0                                      \r\n                   17-        GRID    9               4.25    27.0    .0                                      \r\n                   18-        GRID    10              4.0     27.0    .0                                      \r\n                   19-        GRID    11              4.0     18.0    .0                                      \r\n                   20-        GRID    12              4.0     9.0     .0                                      \r\n                   21-        GRID    13              4.0     .0      .33                                     \r\n                   22-        GRID    14              5.0     .0      .33                                     \r\n                   23-        GRID    15              5.0     27.0    .33                                     \r\n                   24-        GRID    16              4.0     27.0    .33                                     \r\n                   25-        GRID    17              4.0     .0      .67                                     \r\n                   26-        GRID    18              5.0     .0      .67                                     \r\n                   27-        GRID    19              5.0     27.0    .67                                     \r\n                   28-        GRID    20              4.0     27.0    .67                                     \r\n                   29-        GRID    21              4.0     .0      1.0                                     \r\n                   30-        GRID    22              4.25    .0      1.0                                     \r\n                   31-        GRID    23              4.6     .0      1.0                                     \r\n                   32-        GRID    24              5.0     .0      1.0                                     \r\n                   33-        GRID    25              5.0     9.0     1.0                                     \r\n                   34-        GRID    26              5.0     18.0    1.0                                     \r\n                   35-        GRID    27              5.0     27.0    1.0                                     \r\n                   36-        GRID    28              4.6     27.0    1.0                                     \r\n                   37-        GRID    29              4.25    27.0    1.0                                     \r\n                   38-        GRID    30              4.0     27.0    1.0                                     \r\n                   39-        GRID    31              4.0     18.0    1.0                                     \r\n                   40-        GRID    32              4.0     9.0     1.0                                     \r\n                   41-        MAT1    70      3.+7            .3      7.535-4 1.428-5 .0                      \r\n                   42-        PIHEX   60      70              4                                               \r\n                   43-        PLOAD3  80      -10.0   10      30      1                                       \r\n                   44-        SPC1    200     2       1       2       3       4       13      14      +SPC-A2 \r\n                   45-        +SPC-A2 17      18      21      22      23      24      7       8       +SPC-B2 \r\n                   46-        +SPC-B2 9       10      15      16      19      20      27      28      +SPC-C2 \r\n                   47-        +SPC-C2 29      30                                                              \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPC1    200     3       1       THRU    12                                      \r\n                   49-        SPC1    200     3       21      THRU    32                                      \r\n                   50-        TEMP    90      1       100.0   12      100.0   11      100.0                   \r\n                   51-        TEMP    90      2       72.83   9       72.83   22      72.83                   \r\n                   52-        TEMP    90      10      100.0   13      100.0   16      100.0                   \r\n                   53-        TEMP    90      17      100.0   20      100.0   21      100.0                   \r\n                   54-        TEMP    90      23      37.37   28      37.37                                   \r\n                   55-        TEMP    90      29      72.83   3       37.37   8       37.37                   \r\n                   56-        TEMP    90      32      100.0   31      100.0   30      100.0                   \r\n                   57-        TEMPD   90      .0                                                              \r\n                              ENDDATA\r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           32\r\n                                        PROFILE            528\r\n                                        MAX WAVEFRONT       32\r\n                                        AVG WAVEFRONT   16.500\r\n                                        RMS WAVEFRONT   18.908\r\n                                        RMS BANDWIDTH   18.908\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           32\r\n                                        PROFILE            528\r\n                                        MAX WAVEFRONT       32\r\n                                        AVG WAVEFRONT   16.500\r\n                                        RMS WAVEFRONT   18.908\r\n                                        RMS BANDWIDTH   18.908\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       32        32\r\n                                        PROFILE (P)                        528       528\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           32        32\r\n                                        AVERAGE WAVEFRONT (C-AVG)       16.500    16.500\r\n                                        RMS WAVEFRONT (C-RMS)           18.908    18.908\r\n                                        RMS BANDWITCH (B-RMS)           18.908    18.908\r\n                                        NUMBER OF GRID POINTS (N)                     32\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 1\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          31\r\n                                        MINIMUM NODAL DEGREE                          31\r\n                                        NUMBER OF UNIQUE EDGES                       496\r\n                                        MATRIX DENSITY, PERCENT                  100.000\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IHEX3    ELEMENTS (ELEMENT TYPE  67) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.2671276E-14\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   4.9858604E-15\r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE  1             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.050786E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      5.846175E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      5.610640E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.400863E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      5.388761E-06   2.557252E-09   0.0            0.0            0.0            0.0                           \r\n             6      G      5.388757E-06  -2.554353E-09   0.0            0.0            0.0            0.0                           \r\n             7      G      5.400858E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      5.610633E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      5.846167E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      6.050780E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      6.047972E-06   8.276416E-09   0.0            0.0            0.0            0.0                           \r\n            12      G      6.047976E-06  -8.281300E-09   0.0            0.0            0.0            0.0                           \r\n            13      G      6.047890E-06   0.0           -9.660649E-12   0.0            0.0            0.0                           \r\n            14      G      5.401584E-06   0.0            1.430897E-10   0.0            0.0            0.0                           \r\n            15      G      5.401579E-06   0.0            1.430087E-10   0.0            0.0            0.0                           \r\n            16      G      6.047884E-06   0.0           -9.678485E-12   0.0            0.0            0.0                           \r\n            17      G      6.047888E-06   0.0            9.055283E-12   0.0            0.0            0.0                           \r\n            18      G      5.401582E-06   0.0           -1.425552E-10   0.0            0.0            0.0                           \r\n            19      G      5.401577E-06   0.0           -1.425790E-10   0.0            0.0            0.0                           \r\n            20      G      6.047882E-06   0.0            8.970768E-12   0.0            0.0            0.0                           \r\n            21      G      6.050786E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      5.846174E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      5.610639E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            24      G      5.400863E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      5.388761E-06   2.557415E-09   0.0            0.0            0.0            0.0                           \r\n            26      G      5.388757E-06  -2.554164E-09   0.0            0.0            0.0            0.0                           \r\n            27      G      5.400857E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      5.610632E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      5.846166E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            30      G      6.050779E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G      6.047971E-06   8.276606E-09   0.0            0.0            0.0            0.0                           \r\n            32      G      6.047975E-06  -8.281077E-09   0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     THERMAL  LOAD                                                                                          SUBCASE  2             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.444288E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.916255E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.273251E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      4.302782E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      4.307540E-03   1.666190E-06   0.0            0.0            0.0            0.0                           \r\n             6      G      4.307540E-03  -1.666242E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      4.302782E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      4.273251E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             9      G      3.916255E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      3.444287E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      3.446013E-03   2.039222E-06   0.0            0.0            0.0            0.0                           \r\n            12      G      3.446012E-03  -2.039390E-06   0.0            0.0            0.0            0.0                           \r\n            13      G      3.444288E-03   0.0            4.946186E-10   0.0            0.0            0.0                           \r\n            14      G      4.302783E-03   0.0           -5.070250E-10   0.0            0.0            0.0                           \r\n            15      G      4.302783E-03   0.0           -4.969053E-10   0.0            0.0            0.0                           \r\n            16      G      3.444287E-03   0.0            5.084081E-10   0.0            0.0            0.0                           \r\n            17      G      3.444289E-03   0.0            3.367499E-10   0.0            0.0            0.0                           \r\n            18      G      4.302783E-03   0.0           -4.153888E-10   0.0            0.0            0.0                           \r\n            19      G      4.302783E-03   0.0           -4.872369E-10   0.0            0.0            0.0                           \r\n            20      G      3.444288E-03   0.0            3.860670E-10   0.0            0.0            0.0                           \r\n            21      G      3.444288E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      3.916256E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      4.273252E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            24      G      4.302783E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      4.307541E-03   1.666334E-06   0.0            0.0            0.0            0.0                           \r\n            26      G      4.307540E-03  -1.666113E-06   0.0            0.0            0.0            0.0                           \r\n            27      G      4.302783E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      4.273252E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      3.916256E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            30      G      3.444288E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G      3.446012E-03   2.039085E-06   0.0            0.0            0.0            0.0                           \r\n            32      G      3.446012E-03  -2.039559E-06   0.0            0.0            0.0            0.0                           \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE  1             \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 3 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10        1  X -1.167441E+01  XY -3.700511E-01  A  4.817874E+01  LX  0.01 1.00 0.01  -1.581752E+01   2.467732E+01            \r\n             CENTER Y  4.817646E+01  YZ  0.0           B -1.167762E+01  LY -1.00 0.01 0.00                                          \r\n                    Z  1.095053E+01  ZX -1.448299E-01  C  1.095146E+01  LZ  0.00 0.01-1.00                                          \r\n0      10        1  X -6.613694E+00  XY -4.081637E-01  A  4.220941E+01  LX  0.01 1.00 0.00  -1.542333E+01   2.021387E+01            \r\n                 4  Y  4.220600E+01  YZ  0.0           B -6.617265E+00  LY -1.00 0.01 0.00                                          \r\n                    Z  1.067768E+01  ZX -5.232137E-02  C  1.067784E+01  LZ  0.00 0.00-1.00                                          \r\n0      10        4  X -1.552980E+00  XY -4.462744E-01  A  3.624080E+01  LX  0.01 1.00 0.00  -1.502912E+01   1.577407E+01            \r\n             CENTER Y  3.623553E+01  YZ  0.0           B -1.558386E+00  LY -1.00 0.01 0.00                                          \r\n                    Z  1.040482E+01  ZX  4.018720E-02  C  1.040496E+01  LZ  0.00 0.00 1.00                                          \r\n0      10        4  X  2.160930E+00  XY -7.734811E+00  A  3.437873E+01  LX  0.23 0.97 0.00  -1.502917E+01   1.429014E+01            \r\n                 7  Y  3.252176E+01  YZ  9.121744E-03  B  3.038110E-01  LY -0.97 0.23 0.00                                          \r\n                    Z  1.040482E+01  ZX  3.799364E-02  C  1.040498E+01  LZ  0.00 0.00 1.00                                          \r\n0      10        7  X  5.874840E+00  XY -1.502334E+01  A  3.624070E+01  LX  0.44 0.90 0.00  -1.502921E+01   1.577389E+01            \r\n             CENTER Y  2.880797E+01  YZ  1.823853E-02  B -1.558016E+00  LY -0.90 0.44 0.00                                          \r\n                    Z  1.040482E+01  ZX  3.580007E-02  C  1.040495E+01  LZ  0.00 0.00 1.00                                          \r\n0      10        7  X  3.118326E+00  XY -1.950803E+01  A  4.220953E+01  LX  0.45 0.89 0.00  -1.542346E+01   2.021385E+01            \r\n                10  Y  3.247425E+01  YZ -2.375900E-02  B -6.617107E+00  LY -0.89 0.45 0.00                                          \r\n                    Z  1.067781E+01  ZX -4.662206E-02  C  1.067797E+01  LZ  0.00 0.00-1.00                                          \r\n0      10       10  X  3.618126E-01  XY -2.399272E+01  A  4.817907E+01  LX  0.45 0.89 0.01  -1.581771E+01   2.467746E+01            \r\n             CENTER Y  3.614052E+01  YZ -6.575651E-02  B -1.167767E+01  LY -0.89 0.45 0.00                                          \r\n                    Z  1.095079E+01  ZX -1.290442E-01  C  1.095173E+01  LZ  0.00 0.01-1.00                                          \r\n0      10       10  X -5.656297E+00  XY -1.218139E+01  A  4.508297E+01  LX  0.23 0.97 0.01  -1.581762E+01   2.217709E+01            \r\n                 1  Y  4.215849E+01  YZ -3.287491E-02  B -8.581801E+00  LY -0.97 0.23 0.00                                          \r\n                    Z  1.095066E+01  ZX -1.369371E-01  C  1.095168E+01  LZ  0.00 0.01-1.00                                          \r\n0      10        1  X -1.167443E+01  XY -3.700329E-01  A  4.817881E+01  LX  0.01 1.00 0.0   -1.581758E+01   2.467706E+01            \r\n                21  Y  4.817652E+01  YZ  0.0           B -1.167671E+01  LY -1.00 0.01 0.0                                           \r\n                    Z  1.095063E+01  ZX  0.0           C  1.095063E+01  LZ  0.0  0.0  1.00                                          \r\n0      10        4  X -1.552963E+00  XY -4.462850E-01  A  3.624077E+01  LX  0.01 1.00 0.0   -1.502909E+01   1.577402E+01            \r\n                24  Y  3.623550E+01  YZ  0.0           B -1.558233E+00  LY -1.00 0.01 0.0                                           \r\n                    Z  1.040474E+01  ZX  0.0           C  1.040474E+01  LZ  0.0  0.0  1.00                                          \r\n0      10        7  X  5.874769E+00  XY -1.502334E+01  A  3.624067E+01  LX  0.44 0.90 0.0   -1.502918E+01   1.577386E+01            \r\n                27  Y  2.880795E+01  YZ  0.0           B -1.557940E+00  LY -0.90 0.44 0.0                                           \r\n                    Z  1.040482E+01  ZX  0.0           C  1.040482E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     PRESSURE LOAD                                                                                          SUBCASE  1             \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 3 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10       10  X  3.619789E-01  XY -2.399273E+01  A  4.817910E+01  LX  0.45 0.89 0.0   -1.581775E+01   2.467715E+01            \r\n                30  Y  3.614049E+01  YZ  0.0           B -1.167663E+01  LY -0.89 0.45 0.0                                           \r\n                    Z  1.095079E+01  ZX  0.0           C  1.095079E+01  LZ  0.0  0.0  1.00                                          \r\n0      10       21  X -1.167444E+01  XY -3.700127E-01  A  4.817886E+01  LX  0.01 1.00 0.01  -1.581762E+01   2.467737E+01            \r\n             CENTER Y  4.817657E+01  YZ  0.0           B -1.167766E+01  LY -1.00 0.01 0.00                                          \r\n                    Z  1.095073E+01  ZX  1.449132E-01  C  1.095167E+01  LZ  0.00-0.01 1.00                                          \r\n0      10       21  X -6.613695E+00  XY -4.081542E-01  A  4.220944E+01  LX  0.01 1.00 0.00  -1.542335E+01   2.021388E+01            \r\n                24  Y  4.220602E+01  YZ  0.0           B -6.617266E+00  LY -1.00 0.01 0.00                                          \r\n                    Z  1.067770E+01  ZX  5.235885E-02  C  1.067787E+01  LZ  0.00 0.00 1.00                                          \r\n0      10       24  X -1.552946E+00  XY -4.462940E-01  A  3.624073E+01  LX  0.01 1.00 0.00  -1.502906E+01   1.577404E+01            \r\n             CENTER Y  3.623547E+01  YZ  0.0           B -1.558353E+00  LY -1.00 0.01 0.00                                          \r\n                    Z  1.040467E+01  ZX -4.019549E-02  C  1.040480E+01  LZ  0.00 0.00-1.00                                          \r\n0      10       24  X  2.160875E+00  XY -7.734817E+00  A  3.437867E+01  LX  0.23 0.97 0.00  -1.502911E+01   1.429015E+01            \r\n                27  Y  3.252170E+01  YZ -9.125198E-03  B  3.037542E-01  LY -0.97 0.23 0.00                                          \r\n                    Z  1.040474E+01  ZX -3.801505E-02  C  1.040489E+01  LZ  0.00 0.00-1.00                                          \r\n0      10       27  X  5.874697E+00  XY -1.502334E+01  A  3.624062E+01  LX  0.44 0.90 0.00  -1.502914E+01   1.577390E+01            \r\n             CENTER Y  2.880793E+01  YZ -1.825798E-02  B -1.558134E+00  LY -0.90 0.44 0.00                                          \r\n                    Z  1.040481E+01  ZX -3.583460E-02  C  1.040494E+01  LZ  0.00 0.00-1.00                                          \r\n0      10       27  X  3.118421E+00  XY -1.950804E+01  A  4.220950E+01  LX  0.45 0.89 0.00  -1.542347E+01   2.021382E+01            \r\n                30  Y  3.247420E+01  YZ  2.375388E-02  B -6.617048E+00  LY -0.89 0.45 0.00                                          \r\n                    Z  1.067780E+01  ZX  4.663216E-02  C  1.067795E+01  LZ  0.00 0.00 1.00                                          \r\n0      10       30  X  3.621457E-01  XY -2.399275E+01  A  4.817912E+01  LX  0.45 0.89 0.01  -1.581780E+01   2.467739E+01            \r\n             CENTER Y  3.614046E+01  YZ  6.576574E-02  B -1.167744E+01  LY -0.89 0.45 0.00                                          \r\n                    Z  1.095078E+01  ZX  1.290989E-01  C  1.095171E+01  LZ  0.00-0.01 1.00                                          \r\n0      10       30  X -5.656149E+00  XY -1.218138E+01  A  4.508301E+01  LX  0.23 0.97 0.01  -1.581771E+01   2.217705E+01            \r\n                21  Y  4.215852E+01  YZ  3.288345E-02  B -8.581654E+00  LY -0.97 0.23 0.00                                          \r\n                    Z  1.095076E+01  ZX  1.370061E-01  C  1.095177E+01  LZ  0.00-0.01 1.00                                          \r\n0      10        0  X -1.747660E+00  XY -9.958098E+00  A  3.973084E+01  LX  0.23 0.97 0.0   -1.542340E+01   1.822120E+01            \r\n             CENTER Y  3.734011E+01  YZ  0.0           B -4.138386E+00  LY -0.97 0.23 0.0                                           \r\n                    Z  1.067774E+01  ZX  0.0           C  1.067775E+01  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     THERMAL  LOAD                                                                                          SUBCASE  2             \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 3 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10        1  X -3.541076E+03  XY  3.426359E+02  A -3.537719E+03  LX  1.00 0.0  0.01   3.338200E+04   2.257168E+04            \r\n             CENTER Y -3.849209E+04  YZ  0.0           B -5.811284E+04  LY  0.01 0.0 -1.00                                          \r\n                    Z -5.811283E+04  ZX  0.0           C -3.849545E+04  LZ  0.0  1.00 0.0                                           \r\n0      10        1  X -1.269406E+03  XY  5.550882E+01  A -1.268108E+03  LX  1.00 0.0  0.02   9.812351E+03   1.045225E+04            \r\n                 4  Y -3.637063E+03  YZ  0.0           B -2.453058E+04  LY  0.02 0.0 -1.00                                          \r\n                    Z -2.453058E+04  ZX  0.0           C -3.638361E+03  LZ  0.0  1.00 0.0                                           \r\n0      10        4  X  1.002263E+03  XY -2.316184E+02  A  3.121975E+04  LX  0.01 1.00 0.0   -1.375730E+04   1.277780E+04            \r\n             CENTER Y  3.121797E+04  YZ  0.0           B  1.000490E+03  LY -1.00 0.01 0.0                                           \r\n                    Z  9.051668E+03  ZX  0.0           C  9.051669E+03  LZ  0.0  0.0  1.00                                          \r\n0      10        4  X  4.022519E+03  XY -6.158970E+03  A  2.967649E+04  LX  0.23 0.97 0.0   -1.375736E+04   1.156581E+04            \r\n                 7  Y  2.819785E+04  YZ  0.0           B  2.543880E+03  LY -0.97 0.23 0.0                                           \r\n                    Z  9.051698E+03  ZX  0.0           C  9.051696E+03  LZ  0.0  0.0  1.00                                          \r\n0      10        7  X  7.042774E+03  XY -1.208632E+04  A  3.121979E+04  LX  0.45 0.89 0.0   -1.375741E+04   1.277774E+04            \r\n             CENTER Y  2.517772E+04  YZ  0.0           B  1.000706E+03  LY -0.89 0.45 0.0                                           \r\n                    Z  9.051732E+03  ZX  0.0           C  9.051735E+03  LZ  0.0  0.0  1.00                                          \r\n0      10        7  X -1.712629E+03  XY  9.250844E+02  A -1.268244E+03  LX  0.90 0.0  0.43   9.812414E+03   1.045221E+04            \r\n                10  Y -3.194019E+03  YZ  0.0           B -2.453059E+04  LY  0.43 0.0 -0.90                                          \r\n                    Z -2.453060E+04  ZX  0.0           C -3.638404E+03  LZ  0.0  1.00 0.0                                           \r\n0      10       10  X -1.046803E+04  XY  1.393649E+04  A -3.538219E+03  LX  0.90 0.0  0.45   3.338223E+04   2.257150E+04            \r\n             CENTER Y -3.156576E+04  YZ  0.0           B -5.811292E+04  LY  0.45 0.0 -0.90                                          \r\n                    Z -5.811292E+04  ZX  0.0           C -3.849557E+04  LZ  0.0  1.00 0.0                                           \r\n0      10       10  X -7.004554E+03  XY  7.139563E+03  A -5.290494E+03  LX  0.97 0.0  0.23   3.338212E+04   2.169521E+04            \r\n                 1  Y -3.502893E+04  YZ  0.0           B -5.811289E+04  LY  0.23 0.0 -0.97                                          \r\n                    Z -5.811288E+04  ZX  0.0           C -3.674298E+04  LZ  0.0  1.00 0.0                                           \r\n0      10        1  X -3.541281E+03  XY  3.426451E+02  A -3.537927E+03  LX  1.00 0.0  0.01   3.338212E+04   2.257163E+04            \r\n                21  Y -3.849213E+04  YZ  0.0           B -5.811293E+04  LY  0.01 0.0 -1.00                                          \r\n                    Z -5.811294E+04  ZX  0.0           C -3.849550E+04  LZ  0.0  1.00 0.0                                           \r\n0      10        4  X  1.002236E+03  XY -2.316260E+02  A  3.121971E+04  LX  0.01 1.00 0.0   -1.375729E+04   1.277778E+04            \r\n                24  Y  3.121793E+04  YZ  0.0           B  1.000461E+03  LY -1.00 0.01 0.0                                           \r\n                    Z  9.051707E+03  ZX  0.0           C  9.051707E+03  LZ  0.0  0.0  1.00                                          \r\n0      10        7  X  7.042712E+03  XY -1.208634E+04  A  3.121982E+04  LX  0.45 0.89 0.0   -1.375743E+04   1.277776E+04            \r\n                27  Y  2.517775E+04  YZ  0.0           B  1.000652E+03  LY -0.89 0.45 0.0                                           \r\n                    Z  9.051811E+03  ZX  0.0           C  9.051810E+03  LZ  0.0  0.0  1.00                                          \r\n1     LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                                                                                   \r\n0     THERMAL  LOAD                                                                                          SUBCASE  2             \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 3 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0      10       10  X -1.046797E+04  XY  1.393648E+04  A -3.538192E+03  LX  0.90 0.0  0.45   3.338228E+04   2.257156E+04            \r\n                30  Y -3.156585E+04  YZ  0.0           B -5.811303E+04  LY  0.45 0.0 -0.90                                          \r\n                    Z -5.811303E+04  ZX  0.0           C -3.849563E+04  LZ  0.0  1.00 0.0                                           \r\n0      10       21  X -3.541486E+03  XY  3.426537E+02  A -3.538123E+03  LX  1.00 0.0  0.01   3.338223E+04   2.257159E+04            \r\n             CENTER Y -3.849216E+04  YZ  0.0           B -5.811304E+04  LY  0.01 0.0 -1.00                                          \r\n                    Z -5.811304E+04  ZX  0.0           C -3.849554E+04  LZ  0.0  1.00 0.0                                           \r\n0      10       21  X -1.269639E+03  XY  5.551021E+01  A -1.268340E+03  LX  1.00 0.0  0.02   9.812475E+03   1.045220E+04            \r\n                24  Y -3.637141E+03  YZ  0.0           B -2.453065E+04  LY  0.02 0.0 -1.00                                          \r\n                    Z -2.453065E+04  ZX  0.0           C -3.638438E+03  LZ  0.0  1.00 0.0                                           \r\n0      10       24  X  1.002208E+03  XY -2.316334E+02  A  3.121966E+04  LX  0.01 1.00 0.0   -1.375728E+04   1.277776E+04            \r\n             CENTER Y  3.121788E+04  YZ  0.0           B  1.000434E+03  LY -1.00 0.01 0.0                                           \r\n                    Z  9.051751E+03  ZX  0.0           C  9.051753E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       24  X  4.022429E+03  XY -6.158992E+03  A  2.967648E+04  LX  0.23 0.97 0.0   -1.375736E+04   1.156582E+04            \r\n                27  Y  2.819783E+04  YZ  0.0           B  2.543786E+03  LY -0.97 0.23 0.0                                           \r\n                    Z  9.051820E+03  ZX  0.0           C  9.051824E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       27  X  7.042650E+03  XY -1.208635E+04  A  3.121983E+04  LX  0.45 0.89 0.0   -1.375744E+04   1.277777E+04            \r\n             CENTER Y  2.517778E+04  YZ  0.0           B  1.000594E+03  LY -0.89 0.45 0.0                                           \r\n                    Z  9.051894E+03  ZX  0.0           C  9.051896E+03  LZ  0.0  0.0  1.00                                          \r\n0      10       27  X -1.712628E+03  XY  9.250567E+02  A -1.268276E+03  LX  0.90 0.0  0.43   9.812442E+03   1.045221E+04            \r\n                30  Y -3.194079E+03  YZ  0.0           B -2.453062E+04  LY  0.43 0.0 -0.90                                          \r\n                    Z -2.453062E+04  ZX  0.0           C -3.638426E+03  LZ  0.0  1.00 0.0                                           \r\n0      10       30  X -1.046791E+04  XY  1.393646E+04  A -3.538167E+03  LX  0.90 0.0  0.45   3.338233E+04   2.257162E+04            \r\n             CENTER Y -3.156594E+04  YZ  0.0           B -5.811315E+04  LY  0.45 0.0 -0.90                                          \r\n                    Z -5.811314E+04  ZX  0.0           C -3.849567E+04  LZ  0.0  1.00 0.0                                           \r\n0      10       30  X -7.004696E+03  XY  7.139559E+03  A -5.290645E+03  LX  0.97 0.0  0.23   3.338228E+04   2.169523E+04            \r\n                21  Y -3.502905E+04  YZ  0.0           B -5.811310E+04  LY  0.23 0.0 -0.97                                          \r\n                    Z -5.811309E+04  ZX  0.0           C -3.674309E+04  LZ  0.0  1.00 0.0                                           \r\n0      10        0  X -1.491075E+03  XY  4.902900E+02  A -1.373364E+03  LX  0.97 0.0  0.23   9.812419E+03   1.044462E+04            \r\n             CENTER Y -3.415575E+03  YZ  0.0           B -2.453061E+04  LY  0.23 0.0 -0.97                                          \r\n                    Z -2.453061E+04  ZX  0.0           C -3.533284E+03  LZ  0.0  1.00 0.0                                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS           \r\n DATE:  5/17/95\r\n END TIME: 15: 6:56\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01141a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01141A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                          \r\n                  3      DISPLACEMENT = ALL                                                              \r\n                  4      ELFORCE = ALL                                                                   \r\n                  5      SUBCASE 1                                                                       \r\n                  6      LABEL = AXIAL LOAD                                                              \r\n                  7              LOAD = 1                                                                \r\n                  8      SUBCASE 2                                                                       \r\n                  9      LABEL = BENDING LOAD                                                            \r\n                 10              LOAD = 2                                                                \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    33, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    6       1       6       7       .0      1.0     .0      1               \r\n                    2-        FORCE   1       7               1.      1.                                      \r\n                    3-        FORCE   2       7               1.              1.                              \r\n                    4-        GENEL   1               2       1       2       2       2       6       +G11    \r\n                    5-        +G11    Z       .1666667.0      .0      .66666671.0     2.0                     \r\n                    6-        GENEL   2               2       1       2       2       2       6       +G21    \r\n                    7-        +G21    3       1       3       2       3       6                       +G22    \r\n                    8-        +G22    K       6.      .0      .0      -6.     .0      .0      6.      +G23    \r\n                    9-        +G23    3.      .0      -6.     3.      2.      .0      -3.     1.      +G24    \r\n                   10-        +G24    6.      .0      .0      6.      -3.     2.                              \r\n                   11-        GENEL   3               3       1       3       2       3       6       +G31    \r\n                   12-        +G31    UD              4       1       4       2       4       6       +G32    \r\n                   13-        +G32    K       6.      .0      .0      6.      3.      2.              +G33    \r\n                   14-        +G33    S       1.      .0      .0      .0      1.      -1.     .0      +G34    \r\n                   15-        +G34    .0      1.                                                              \r\n                   16-        GENEL   4               4       1       4       2       4       6       +G41    \r\n                   17-        +G41    UD              5       1       5       2       5       6       +G42    \r\n                   18-        +G42    K       6.      .0      .0      6.      3.      2.                      \r\n                   19-        GENEL   5               5       1       5       2       5       6       +G51    \r\n                   20-        +G51    UD              6       1       6       2       6       6       +G52    \r\n                   21-        +G52    Z       .166666 .0      .0      .666667 -1.     2.              +G53    \r\n                   22-        +G53    S       1.      .0      .0      .0      1.      -1.     .0      +G54    \r\n                   23-        +G54    .0      1.                                                              \r\n                   24-        GRDSET                                                  345                     \r\n                   25-        GRID    1               .0      .0      .0              123456                  \r\n                   26-        GRID    2               1.      .0      .0                                      \r\n                   27-        GRID    3               2.      .0      .0                                      \r\n                   28-        GRID    4               3.      .0      .0                                      \r\n                   29-        GRID    5               4.      .0      .0                                      \r\n                   30-        GRID    6               5.      .0      .0                                      \r\n                   31-        GRID    7               6.0     .0      .0                                      \r\n                   32-        MAT1    1       6.              .3                                              \r\n                   33-        PBAR    1       1       1.      .083333                                         \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        1\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        2\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        3\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.        4 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.        5 NOT CONNECTED\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        6\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (   24,    1), TO (   24,    2)\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -5.9211875E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   2.8965307E-13\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0     AXIAL LOAD                                                                                             SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.666667E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      3.333334E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      5.000001E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      6.666667E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      8.333327E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      9.999993E-01   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0     BENDING LOAD                                                                                           SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            5.666667E+00   0.0            0.0            0.0            1.100000E+01                  \r\n             3      G      0.0            2.133333E+01   0.0            0.0            0.0            2.000000E+01                  \r\n             4      G      0.0            4.500000E+01   0.0            0.0            0.0            2.700000E+01                  \r\n             5      G      0.0            7.466666E+01   0.0            0.0            0.0            3.200000E+01                  \r\n             6      G      0.0            1.083333E+02   0.0            0.0            0.0            3.500000E+01                  \r\n             7      G      0.0            1.440000E+02   0.0            0.0            0.0            3.600000E+01                  \r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0     AXIAL LOAD                                                                                             SUBCASE 1              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            6     0.0           0.0            0.0           0.0            0.0           0.0            1.000000E+00   0.0         \r\n1     STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                                                                                   \r\n0     BENDING LOAD                                                                                           SUBCASE 2              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            6     9.999695E-01  0.0           -3.051758E-05  0.0            1.000000E+00  0.0            0.0            0.0         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                   \r\n DATE:  5/17/95\r\n END TIME: 15: 7:36\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01151a.out",
    "content": "     NASTRAN FILE=PLT2                                                               \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01151A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,1                                                                       \r\n     TIME  90                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SHELL     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                          \r\n                  3      AXISYM   = COSINE                                                               \r\n                  4        LOAD   = 20                                                                   \r\n                  5        SET 10 = 11 THRU 34, 111 THRU 231, 235, 241, 245, 251, 255, 261,              \r\n                  6                 265, 271, 275, 281, 285, 291, 295, 301, 305, 311, 315,               \r\n                  7                 321, 325, 331, 335, 341, 345, 351, 355, 361, 365, 371,               \r\n                  8                 375, 381, 385, 391, 395, 401, 405, 411 THRU 415                      \r\n                  9        SET  9 = 111 THRU 227, 231, 234, 241, 244, 251, 254, 261, 264, 271,           \r\n                 10                 274, 281, 284, 291, 294, 301, 304, 311, 314, 321, 324, 331,          \r\n                 11                 334, 341, 344, 351, 354, 361, 364, 371, 374, 381, 384, 391,          \r\n                 12                 394, 401 THRU 404                                                    \r\n                 13      HARMONICS = ALL                                                                 \r\n                 14      DISPLACEMENT = 10                                                               \r\n                 15      OLOAD  = ALL                                                                    \r\n                 16      STRESS = 9                                                                      \r\n                 17      ELFORCE= 9                                                                      \r\n                 18      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                            \r\n                 19      OUTPUT(PLOT)                                                                    \r\n                 20      PLOTTER NASTPLT                                                                 \r\n                 21      SET 1  = ALL                                                                    \r\n                 22      $                                                                               \r\n                 23      $ CONVERT IDS TO NASTRAN IDS FOR ELEMENTS 111 THRU 227 (ID*1000+N)              \r\n                 24      $                                                                               \r\n                 25      SET 2 INCLUDE ELEMENTS 111001 THRU 227001                                       \r\n                 26      AXES Z, X, Y                                                                    \r\n                 27      VIEW 0.0, 0.0, 0.0                                                              \r\n                 28      FIND SCALE, ORIGIN 1, SET 1                                                     \r\n                 29      PTITLE = FULL MODEL                                                             \r\n                 30      PLOT SET 1, ORIGIN 1                                                            \r\n                 31      FIND SCALE, ORIGIN 2, SET 2                                                     \r\n                 32      PTITLE = LOADED SECTION (TRAPAX) AND TRANSITION SECTION (TRIAAX)                \r\n                 33      PLOT SET 2, ORIGIN 2                                                            \r\n                 34      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   289, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIC    10                                                                      \r\n                    2-        CTRAPAX 111     5       111     112     122     121                             \r\n                    3-        CTRAPAX 112     5       112     113     123     122                             \r\n                    4-        CTRAPAX 113     5       113     114     124     123                             \r\n                    5-        CTRAPAX 121     5       121     122     132     131                             \r\n                    6-        CTRAPAX 122     5       122     123     133     132                             \r\n                    7-        CTRAPAX 123     5       123     124     134     133                             \r\n                    8-        CTRAPAX 131     5       131     132     142     141                             \r\n                    9-        CTRAPAX 132     5       132     133     143     142                             \r\n                   10-        CTRAPAX 133     5       133     134     144     143                             \r\n                   11-        CTRAPAX 141     5       141     142     152     151                             \r\n                   12-        CTRAPAX 142     5       142     143     153     152                             \r\n                   13-        CTRAPAX 143     5       143     144     154     153                             \r\n                   14-        CTRAPAX 151     5       151     152     162     161                             \r\n                   15-        CTRAPAX 152     5       152     153     163     162                             \r\n                   16-        CTRAPAX 153     5       153     154     164     163                             \r\n                   17-        CTRAPAX 161     5       161     162     172     171                             \r\n                   18-        CTRAPAX 162     5       162     163     173     172                             \r\n                   19-        CTRAPAX 163     5       163     164     174     173                             \r\n                   20-        CTRAPAX 171     5       171     172     182     181                             \r\n                   21-        CTRAPAX 172     5       172     173     183     182                             \r\n                   22-        CTRAPAX 173     5       173     174     184     183                             \r\n                   23-        CTRAPAX 231     5       231     232     242     241                             \r\n                   24-        CTRAPAX 232     5       232     233     243     242                             \r\n                   25-        CTRAPAX 233     5       233     234     244     243                             \r\n                   26-        CTRAPAX 234     5       234     235     245     244                             \r\n                   27-        CTRAPAX 241     5       241     242     252     251                             \r\n                   28-        CTRAPAX 242     5       242     243     253     252                             \r\n                   29-        CTRAPAX 243     5       243     244     254     253                             \r\n                   30-        CTRAPAX 244     5       244     245     255     254                             \r\n                   31-        CTRAPAX 251     5       251     252     262     261                             \r\n                   32-        CTRAPAX 252     5       252     253     263     262                             \r\n                   33-        CTRAPAX 253     5       253     254     264     263                             \r\n                   34-        CTRAPAX 254     5       254     255     265     264                             \r\n                   35-        CTRAPAX 261     5       261     262     272     271                             \r\n                   36-        CTRAPAX 262     5       262     263     273     272                             \r\n                   37-        CTRAPAX 263     5       263     264     274     273                             \r\n                   38-        CTRAPAX 264     5       264     265     275     274                             \r\n                   39-        CTRAPAX 271     5       271     272     282     281                             \r\n                   40-        CTRAPAX 272     5       272     273     283     282                             \r\n                   41-        CTRAPAX 273     5       273     274     284     283                             \r\n                   42-        CTRAPAX 274     5       274     275     285     284                             \r\n                   43-        CTRAPAX 281     5       281     282     292     291                             \r\n                   44-        CTRAPAX 282     5       282     283     293     292                             \r\n                   45-        CTRAPAX 283     5       283     284     294     293                             \r\n                   46-        CTRAPAX 284     5       284     285     295     294                             \r\n                   47-        CTRAPAX 291     5       291     292     302     301                             \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRAPAX 292     5       292     293     303     302                             \r\n                   49-        CTRAPAX 293     5       293     294     304     303                             \r\n                   50-        CTRAPAX 294     5       294     295     305     304                             \r\n                   51-        CTRAPAX 301     5       301     302     312     311                             \r\n                   52-        CTRAPAX 302     5       302     303     313     312                             \r\n                   53-        CTRAPAX 303     5       303     304     314     313                             \r\n                   54-        CTRAPAX 304     5       304     305     315     314                             \r\n                   55-        CTRAPAX 311     5       311     312     322     321                             \r\n                   56-        CTRAPAX 312     5       312     313     323     322                             \r\n                   57-        CTRAPAX 313     5       313     314     324     323                             \r\n                   58-        CTRAPAX 314     5       314     315     325     324                             \r\n                   59-        CTRAPAX 321     5       321     322     332     331                             \r\n                   60-        CTRAPAX 322     5       322     323     333     332                             \r\n                   61-        CTRAPAX 323     5       323     324     334     333                             \r\n                   62-        CTRAPAX 324     5       324     325     335     334                             \r\n                   63-        CTRAPAX 331     5       331     332     342     341                             \r\n                   64-        CTRAPAX 332     5       332     333     343     342                             \r\n                   65-        CTRAPAX 333     5       333     334     344     343                             \r\n                   66-        CTRAPAX 334     5       334     335     345     344                             \r\n                   67-        CTRAPAX 341     5       341     342     352     351                             \r\n                   68-        CTRAPAX 342     5       342     343     353     352                             \r\n                   69-        CTRAPAX 343     5       343     344     354     353                             \r\n                   70-        CTRAPAX 344     5       344     345     355     354                             \r\n                   71-        CTRAPAX 351     5       351     352     362     361                             \r\n                   72-        CTRAPAX 352     5       352     353     363     362                             \r\n                   73-        CTRAPAX 353     5       353     354     364     363                             \r\n                   74-        CTRAPAX 354     5       354     355     365     364                             \r\n                   75-        CTRAPAX 361     5       361     362     372     371                             \r\n                   76-        CTRAPAX 362     5       362     363     373     372                             \r\n                   77-        CTRAPAX 363     5       363     364     374     373                             \r\n                   78-        CTRAPAX 364     5       364     365     375     374                             \r\n                   79-        CTRAPAX 371     5       371     372     382     381                             \r\n                   80-        CTRAPAX 372     5       372     373     383     382                             \r\n                   81-        CTRAPAX 373     5       373     374     384     383                             \r\n                   82-        CTRAPAX 374     5       374     375     385     384                             \r\n                   83-        CTRAPAX 381     5       381     382     392     391                             \r\n                   84-        CTRAPAX 382     5       382     383     393     392                             \r\n                   85-        CTRAPAX 383     5       383     384     394     393                             \r\n                   86-        CTRAPAX 384     5       384     385     395     394                             \r\n                   87-        CTRAPAX 391     5       391     392     402     401                             \r\n                   88-        CTRAPAX 392     5       392     393     403     402                             \r\n                   89-        CTRAPAX 393     5       393     394     404     403                             \r\n                   90-        CTRAPAX 394     5       394     395     405     404                             \r\n                   91-        CTRAPAX 401     5       401     402     412     411                             \r\n                   92-        CTRAPAX 402     5       402     403     413     412                             \r\n                   93-        CTRAPAX 403     5       403     404     414     413                             \r\n                   94-        CTRAPAX 404     5       404     405     415     414                             \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CTRIAAX 181     10      181     192     191                                     \r\n                   96-        CTRIAAX 182     10      181     182     192                                     \r\n                   97-        CTRIAAX 183     10      182     193     192                                     \r\n                   98-        CTRIAAX 184     10      182     183     193                                     \r\n                   99-        CTRIAAX 185     10      183     194     193                                     \r\n                  100-        CTRIAAX 186     10      183     184     194                                     \r\n                  101-        CTRIAAX 187     10      184     195     194                                     \r\n                  102-        CTRIAAX 191     10      191     192     201                                     \r\n                  103-        CTRIAAX 192     10      192     202     201                                     \r\n                  104-        CTRIAAX 193     10      192     203     202                                     \r\n                  105-        CTRIAAX 194     10      192     193     203                                     \r\n                  106-        CTRIAAX 195     10      193     194     203                                     \r\n                  107-        CTRIAAX 196     10      194     204     203                                     \r\n                  108-        CTRIAAX 197     10      194     205     204                                     \r\n                  109-        CTRIAAX 198     10      194     195     205                                     \r\n                  110-        CTRIAAX 201     10      201     212     211                                     \r\n                  111-        CTRIAAX 202     10      201     203     212                                     \r\n                  112-        CTRIAAX 203     10      202     203     212                                     \r\n                  113-        CTRIAAX 204     10      212     203     213                                     \r\n                  114-        CTRIAAX 205     10      203     214     213                                     \r\n                  115-        CTRIAAX 206     10      203     204     214                                     \r\n                  116-        CTRIAAX 207     10      204     205     214                                     \r\n                  117-        CTRIAAX 208     10      214     205     215                                     \r\n                  118-        CTRIAAX 211     10      211     212     221                                     \r\n                  119-        CTRIAAX 212     10      221     212     222                                     \r\n                  120-        CTRIAAX 213     10      212     213     222                                     \r\n                  121-        CTRIAAX 214     10      222     213     223                                     \r\n                  122-        CTRIAAX 215     10      213     214     223                                     \r\n                  123-        CTRIAAX 216     10      223     214     224                                     \r\n                  124-        CTRIAAX 217     10      214     215     224                                     \r\n                  125-        CTRIAAX 221     10      221     232     231                                     \r\n                  126-        CTRIAAX 222     10      221     222     232                                     \r\n                  127-        CTRIAAX 223     10      232     222     233                                     \r\n                  128-        CTRIAAX 224     10      222     223     233                                     \r\n                  129-        CTRIAAX 225     10      223     234     233                                     \r\n                  130-        CTRIAAX 226     10      223     224     234                                     \r\n                  131-        CTRIAAX 227     10      234     224     235                                     \r\n                  132-        MAT1    15      66666.7         .3                                              \r\n                  133-        POINTAX 11      111     .0                                                      \r\n                  134-        POINTAX 14      114     .0                                                      \r\n                  135-        POINTAX 21      121     .0                                                      \r\n                  136-        POINTAX 34      134     .0                                                      \r\n                  137-        PRESAX  20      -7.11111114     124     -7.162  7.162                           \r\n                  138-        PRESAX  20      -7.11111124     134     -7.162  7.162                           \r\n                  139-        PRESAX  20      -7.11111134     144     -7.162  7.162                           \r\n                  140-        PRESAX  20      -7.11111144     154     -7.162  7.162                           \r\n                  141-        PRESAX  20      -7.11111154     164     -7.162  7.162                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        PTRAPAX 5               15      .0      7.1                                     \r\n                  143-        PTRIAAX 10              15      .0      3.581   7.162                           \r\n                  144-        RINGAX  111             14.5    .0                      3456                    \r\n                  145-        RINGAX  112             14.7    .0                      3456                    \r\n                  146-        RINGAX  113             15.3    .0                      3456                    \r\n                  147-        RINGAX  114             15.5    .0                      3456                    \r\n                  148-        RINGAX  121             14.5    .375                    456                     \r\n                  149-        RINGAX  122             14.8    .375                    456                     \r\n                  150-        RINGAX  123             15.2    .375                    456                     \r\n                  151-        RINGAX  124             15.5    .375                    456                     \r\n                  152-        RINGAX  131             14.5    .75                     456                     \r\n                  153-        RINGAX  132             14.7    .75                     456                     \r\n                  154-        RINGAX  133             15.3    .75                     456                     \r\n                  155-        RINGAX  134             15.5    .75                     456                     \r\n                  156-        RINGAX  141             14.5    1.125                   456                     \r\n                  157-        RINGAX  142             14.8    1.125                   456                     \r\n                  158-        RINGAX  143             15.2    1.125                   456                     \r\n                  159-        RINGAX  144             15.5    1.125                   456                     \r\n                  160-        RINGAX  151             14.5    1.5                     456                     \r\n                  161-        RINGAX  152             14.7    1.5                     456                     \r\n                  162-        RINGAX  153             15.3    1.5                     456                     \r\n                  163-        RINGAX  154             15.5    1.5                     456                     \r\n                  164-        RINGAX  161             14.5    1.875                   456                     \r\n                  165-        RINGAX  162             14.8    1.875                   456                     \r\n                  166-        RINGAX  163             15.2    1.875                   456                     \r\n                  167-        RINGAX  164             15.5    1.875                   456                     \r\n                  168-        RINGAX  171             14.5    2.25                    456                     \r\n                  169-        RINGAX  172             14.7    2.25                    456                     \r\n                  170-        RINGAX  173             15.3    2.25                    456                     \r\n                  171-        RINGAX  174             15.5    2.25                    456                     \r\n                  172-        RINGAX  181             14.5    2.625                   456                     \r\n                  173-        RINGAX  182             14.8    2.625                   456                     \r\n                  174-        RINGAX  183             15.2    2.625                   456                     \r\n                  175-        RINGAX  184             15.5    2.625                   456                     \r\n                  176-        RINGAX  191             14.5    3.0                     456                     \r\n                  177-        RINGAX  192             14.75   3.0                     456                     \r\n                  178-        RINGAX  193             15.0    3.0                     456                     \r\n                  179-        RINGAX  194             15.25   3.0                     456                     \r\n                  180-        RINGAX  195             15.5    3.0                     456                     \r\n                  181-        RINGAX  201             14.5    3.375                   456                     \r\n                  182-        RINGAX  202             14.75   3.375                   456                     \r\n                  183-        RINGAX  203             15.0    3.375                   456                     \r\n                  184-        RINGAX  204             15.25   3.375                   456                     \r\n                  185-        RINGAX  205             15.5    3.375                   456                     \r\n                  186-        RINGAX  211             14.5    3.75                    456                     \r\n                  187-        RINGAX  212             14.75   3.75                    456                     \r\n                  188-        RINGAX  213             15.0    3.75                    456                     \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        RINGAX  214             15.25   3.75                    456                     \r\n                  190-        RINGAX  215             15.5    3.75                    456                     \r\n                  191-        RINGAX  221             14.5    4.125                   456                     \r\n                  192-        RINGAX  222             14.8    4.125                   456                     \r\n                  193-        RINGAX  223             15.2    4.125                   456                     \r\n                  194-        RINGAX  224             15.5    4.125                   456                     \r\n                  195-        RINGAX  231             14.5    4.5                     456                     \r\n                  196-        RINGAX  232             14.7    4.5                     456                     \r\n                  197-        RINGAX  233             15.0    4.5                     456                     \r\n                  198-        RINGAX  234             15.3    4.5                     456                     \r\n                  199-        RINGAX  235             15.5    4.5                     456                     \r\n                  200-        RINGAX  241             14.5    5.5                     456                     \r\n                  201-        RINGAX  242             14.8    5.5                     456                     \r\n                  202-        RINGAX  243             15.0    5.5                     456                     \r\n                  203-        RINGAX  244             15.2    5.5                     456                     \r\n                  204-        RINGAX  245             15.5    5.5                     456                     \r\n                  205-        RINGAX  251             14.5    6.5                     456                     \r\n                  206-        RINGAX  252             14.7    6.5                     456                     \r\n                  207-        RINGAX  253             15.0    6.5                     456                     \r\n                  208-        RINGAX  254             15.3    6.5                     456                     \r\n                  209-        RINGAX  255             15.5    6.5                     456                     \r\n                  210-        RINGAX  261             14.5    7.5                     456                     \r\n                  211-        RINGAX  262             14.8    7.5                     456                     \r\n                  212-        RINGAX  263             15.0    7.5                     456                     \r\n                  213-        RINGAX  264             15.2    7.5                     456                     \r\n                  214-        RINGAX  265             15.5    7.5                     456                     \r\n                  215-        RINGAX  271             14.5    8.5                     456                     \r\n                  216-        RINGAX  272             14.7    8.5                     456                     \r\n                  217-        RINGAX  273             15.0    8.5                     456                     \r\n                  218-        RINGAX  274             15.3    8.5                     456                     \r\n                  219-        RINGAX  275             15.5    8.5                     456                     \r\n                  220-        RINGAX  281             14.5    9.5                     456                     \r\n                  221-        RINGAX  282             14.8    9.5                     456                     \r\n                  222-        RINGAX  283             15.0    9.5                     456                     \r\n                  223-        RINGAX  284             15.2    9.5                     456                     \r\n                  224-        RINGAX  285             15.5    9.5                     456                     \r\n                  225-        RINGAX  291             14.5    10.5                    456                     \r\n                  226-        RINGAX  292             14.7    10.5                    456                     \r\n                  227-        RINGAX  293             15.0    10.5                    456                     \r\n                  228-        RINGAX  294             15.3    10.5                    456                     \r\n                  229-        RINGAX  295             15.5    10.5                    456                     \r\n                  230-        RINGAX  301             14.5    11.5                    456                     \r\n                  231-        RINGAX  302             14.8    11.5                    456                     \r\n                  232-        RINGAX  303             15.0    11.5                    456                     \r\n                  233-        RINGAX  304             15.2    11.5                    456                     \r\n                  234-        RINGAX  305             15.5    11.5                    456                     \r\n                  235-        RINGAX  311             14.5    12.5                    456                     \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        RINGAX  312             14.7    12.5                    456                     \r\n                  237-        RINGAX  313             15.0    12.5                    456                     \r\n                  238-        RINGAX  314             15.3    12.5                    456                     \r\n                  239-        RINGAX  315             15.5    12.5                    456                     \r\n                  240-        RINGAX  321             14.5    13.5                    456                     \r\n                  241-        RINGAX  322             14.8    13.5                    456                     \r\n                  242-        RINGAX  323             15.0    13.5                    456                     \r\n                  243-        RINGAX  324             15.2    13.5                    456                     \r\n                  244-        RINGAX  325             15.5    13.5                    456                     \r\n                  245-        RINGAX  331             14.5    14.5                    456                     \r\n                  246-        RINGAX  332             14.7    14.5                    456                     \r\n                  247-        RINGAX  333             15.0    14.5                    456                     \r\n                  248-        RINGAX  334             15.3    14.5                    456                     \r\n                  249-        RINGAX  335             15.5    14.5                    456                     \r\n                  250-        RINGAX  341             14.5    15.5                    456                     \r\n                  251-        RINGAX  342             14.8    15.5                    456                     \r\n                  252-        RINGAX  343             15.0    15.5                    456                     \r\n                  253-        RINGAX  344             15.2    15.5                    456                     \r\n                  254-        RINGAX  345             15.5    15.5                    456                     \r\n                  255-        RINGAX  351             14.5    16.5                    456                     \r\n                  256-        RINGAX  352             14.7    16.5                    456                     \r\n                  257-        RINGAX  353             15.0    16.5                    456                     \r\n                  258-        RINGAX  354             15.3    16.5                    456                     \r\n                  259-        RINGAX  355             15.5    16.5                    456                     \r\n                  260-        RINGAX  361             14.5    17.5                    456                     \r\n                  261-        RINGAX  362             14.8    17.5                    456                     \r\n                  262-        RINGAX  363             15.0    17.5                    456                     \r\n                  263-        RINGAX  364             15.2    17.5                    456                     \r\n                  264-        RINGAX  365             15.5    17.5                    456                     \r\n                  265-        RINGAX  371             14.5    18.5                    456                     \r\n                  266-        RINGAX  372             14.7    18.5                    456                     \r\n                  267-        RINGAX  373             15.0    18.5                    456                     \r\n                  268-        RINGAX  374             15.3    18.5                    456                     \r\n                  269-        RINGAX  375             15.5    18.5                    456                     \r\n                  270-        RINGAX  381             14.5    19.5                    456                     \r\n                  271-        RINGAX  382             14.8    19.5                    456                     \r\n                  272-        RINGAX  383             15.0    19.5                    456                     \r\n                  273-        RINGAX  384             15.2    19.5                    456                     \r\n                  274-        RINGAX  385             15.5    19.5                    456                     \r\n                  275-        RINGAX  391             14.5    20.5                    456                     \r\n                  276-        RINGAX  392             14.7    20.5                    456                     \r\n                  277-        RINGAX  393             15.0    20.5                    456                     \r\n                  278-        RINGAX  394             15.3    20.5                    456                     \r\n                  279-        RINGAX  395             15.5    20.5                    456                     \r\n                  280-        RINGAX  401             14.5    21.5                    456                     \r\n                  281-        RINGAX  402             14.8    21.5                    456                     \r\n                  282-        RINGAX  403             15.0    21.5                    456                     \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        RINGAX  404             15.2    21.5                    456                     \r\n                  284-        RINGAX  405             15.5    21.5                    456                     \r\n                  285-        RINGAX  411             14.5    22.5                    12456                   \r\n                  286-        RINGAX  412             14.7    22.5                    12456                   \r\n                  287-        RINGAX  413             15.0    22.5                    12456                   \r\n                  288-        RINGAX  414             15.3    22.5                    12456                   \r\n                  289-        RINGAX  415             15.5    22.5                    12456                   \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC SOLID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.819159E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 =  9.750730E-01, Y0 = -0.437928E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.409579E+00                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 =  9.750730E-01, Y0 = -0.437928E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  1.789002E+01, Y0 = -0.437928E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      2  USED IN THIS PLOT                                                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       11\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       14\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       21\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       34 NOT CONNECTED\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPAX   ELEMENTS (ELEMENT TYPE  71) STARTING WITH ID   111001\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIAAX   ELEMENTS (ELEMENT TYPE  70) STARTING WITH ID   181001\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -8.2589650E-11\r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            11            -2.725171E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            14            -2.713255E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            21            -2.717048E-02   0.0            1.396160E-04   0.0            0.0            0.0                           \r\n            34            -2.682227E-02   0.0           -4.904729E-04   0.0            0.0            0.0                           \r\n           111      0     -5.469031E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           112      0     -5.469223E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           113      0     -5.417446E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           114      0     -5.379575E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           121      0     -5.421539E-04   0.0            1.611814E-05   0.0            0.0            0.0                           \r\n           122      0     -5.417241E-04   0.0            9.026005E-06   0.0            0.0            0.0                           \r\n           123      0     -5.380376E-04   0.0           -6.277682E-08   0.0            0.0            0.0                           \r\n           124      0     -5.335253E-04   0.0           -7.074076E-06   0.0            0.0            0.0                           \r\n           131      0     -5.281530E-04   0.0            3.183430E-05   0.0            0.0            0.0                           \r\n           132      0     -5.280495E-04   0.0            2.220947E-05   0.0            0.0            0.0                           \r\n           133      0     -5.231100E-04   0.0           -4.415109E-06   0.0            0.0            0.0                           \r\n           134      0     -5.195902E-04   0.0           -1.387959E-05   0.0            0.0            0.0                           \r\n           141      0     -5.054295E-04   0.0            4.594490E-05   0.0            0.0            0.0                           \r\n           142      0     -5.047426E-04   0.0            2.594963E-05   0.0            0.0            0.0                           \r\n           143      0     -5.013819E-04   0.0            3.729274E-07   0.0            0.0            0.0                           \r\n           144      0     -4.975643E-04   0.0           -1.945116E-05   0.0            0.0            0.0                           \r\n           151      0     -4.750075E-04   0.0            5.877490E-05   0.0            0.0            0.0                           \r\n           152      0     -4.744983E-04   0.0            4.128708E-05   0.0            0.0            0.0                           \r\n           153      0     -4.701629E-04   0.0           -6.802749E-06   0.0            0.0            0.0                           \r\n           154      0     -4.675107E-04   0.0           -2.424261E-05   0.0            0.0            0.0                           \r\n           161      0     -4.385516E-04   0.0            6.827281E-05   0.0            0.0            0.0                           \r\n           162      0     -4.371820E-04   0.0            3.946848E-05   0.0            0.0            0.0                           \r\n           163      0     -4.340140E-04   0.0            2.468377E-06   0.0            0.0            0.0                           \r\n           164      0     -4.309291E-04   0.0           -2.647610E-05   0.0            0.0            0.0                           \r\n           171      0     -3.982515E-04   0.0            7.587229E-05   0.0            0.0            0.0                           \r\n           172      0     -3.971026E-04   0.0            5.423255E-05   0.0            0.0            0.0                           \r\n           173      0     -3.924145E-04   0.0           -5.896935E-06   0.0            0.0            0.0                           \r\n           174      0     -3.903509E-04   0.0           -2.739516E-05   0.0            0.0            0.0                           \r\n           181      0     -3.559901E-04   0.0            7.995249E-05   0.0            0.0            0.0                           \r\n           182      0     -3.540304E-04   0.0            4.766057E-05   0.0            0.0            0.0                           \r\n           183      0     -3.512069E-04   0.0            6.246914E-06   0.0            0.0            0.0                           \r\n           184      0     -3.490655E-04   0.0           -2.568289E-05   0.0            0.0            0.0                           \r\n           191      0     -3.142677E-04   0.0            8.200743E-05   0.0            0.0            0.0                           \r\n           192      0     -3.122963E-04   0.0            5.545765E-05   0.0            0.0            0.0                           \r\n           193      0     -3.107817E-04   0.0            2.938565E-05   0.0            0.0            0.0                           \r\n           194      0     -3.091996E-04   0.0            3.524853E-06   0.0            0.0            0.0                           \r\n           195      0     -3.080492E-04   0.0           -2.271347E-05   0.0            0.0            0.0                           \r\n           201      0     -2.732557E-04   0.0            8.243632E-05   0.0            0.0            0.0                           \r\n           202      0     -2.718244E-04   0.0            5.706676E-05   0.0            0.0            0.0                           \r\n           203      0     -2.700643E-04   0.0            3.145271E-05   0.0            0.0            0.0                           \r\n           204      0     -2.691215E-04   0.0            6.513757E-06   0.0            0.0            0.0                           \r\n           205      0     -2.680303E-04   0.0           -1.903129E-05   0.0            0.0            0.0                           \r\n           211      0     -2.350818E-04   0.0            8.194652E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           212      0     -2.329640E-04   0.0            5.775100E-05   0.0            0.0            0.0                           \r\n           213      0     -2.316318E-04   0.0            3.352477E-05   0.0            0.0            0.0                           \r\n           214      0     -2.306804E-04   0.0            9.609922E-06   0.0            0.0            0.0                           \r\n           215      0     -2.305112E-04   0.0           -1.445751E-05   0.0            0.0            0.0                           \r\n           221      0     -1.986081E-04   0.0            8.029921E-05   0.0            0.0            0.0                           \r\n           222      0     -1.967607E-04   0.0            5.307191E-05   0.0            0.0            0.0                           \r\n           223      0     -1.951992E-04   0.0            1.730681E-05   0.0            0.0            0.0                           \r\n           224      0     -1.946242E-04   0.0           -9.622861E-06   0.0            0.0            0.0                           \r\n           231      0     -1.658351E-04   0.0            7.775560E-05   0.0            0.0            0.0                           \r\n           235      0     -1.623857E-04   0.0           -4.456610E-06   0.0            0.0            0.0                           \r\n           241      0     -9.223618E-05   0.0            7.017923E-05   0.0            0.0            0.0                           \r\n           245      0     -9.046926E-05   0.0            7.920604E-06   0.0            0.0            0.0                           \r\n           251      0     -3.995549E-05   0.0            6.162796E-05   0.0            0.0            0.0                           \r\n           255      0     -3.918159E-05   0.0            1.882546E-05   0.0            0.0            0.0                           \r\n           261      0     -6.055541E-06   0.0            5.385317E-05   0.0            0.0            0.0                           \r\n           265      0     -5.954656E-06   0.0            2.729768E-05   0.0            0.0            0.0                           \r\n           271      0      1.308115E-05   0.0            4.732625E-05   0.0            0.0            0.0                           \r\n           275      0      1.281218E-05   0.0            3.351854E-05   0.0            0.0            0.0                           \r\n           281      0      2.160022E-05   0.0            4.266165E-05   0.0            0.0            0.0                           \r\n           285      0      2.116444E-05   0.0            3.738009E-05   0.0            0.0            0.0                           \r\n           291      0      2.322061E-05   0.0            3.938646E-05   0.0            0.0            0.0                           \r\n           295      0      2.275789E-05   0.0            3.969380E-05   0.0            0.0            0.0                           \r\n           301      0      2.084170E-05   0.0            3.753785E-05   0.0            0.0            0.0                           \r\n           305      0      2.042745E-05   0.0            4.063125E-05   0.0            0.0            0.0                           \r\n           311      0      1.667983E-05   0.0            3.655089E-05   0.0            0.0            0.0                           \r\n           315      0      1.634982E-05   0.0            4.085834E-05   0.0            0.0            0.0                           \r\n           321      0      1.208777E-05   0.0            3.628221E-05   0.0            0.0            0.0                           \r\n           325      0      1.184941E-05   0.0            4.055725E-05   0.0            0.0            0.0                           \r\n           331      0      7.940162E-06   0.0            3.637022E-05   0.0            0.0            0.0                           \r\n           335      0      7.784040E-06   0.0            4.007944E-05   0.0            0.0            0.0                           \r\n           341      0      4.588450E-06   0.0            3.667792E-05   0.0            0.0            0.0                           \r\n           345      0      4.498935E-06   0.0            3.953496E-05   0.0            0.0            0.0                           \r\n           351      0      2.161722E-06   0.0            3.705042E-05   0.0            0.0            0.0                           \r\n           355      0      2.119828E-06   0.0            3.903989E-05   0.0            0.0            0.0                           \r\n           361      0      5.790248E-07   0.0            3.740845E-05   0.0            0.0            0.0                           \r\n           365      0      5.684814E-07   0.0            3.863783E-05   0.0            0.0            0.0                           \r\n           371      0     -2.978372E-07   0.0            3.771954E-05   0.0            0.0            0.0                           \r\n           375      0     -2.914345E-07   0.0            3.832925E-05   0.0            0.0            0.0                           \r\n           381      0     -6.424745E-07   0.0            3.795162E-05   0.0            0.0            0.0                           \r\n           385      0     -6.293026E-07   0.0            3.812174E-05   0.0            0.0            0.0                           \r\n           391      0     -6.172078E-07   0.0            3.811877E-05   0.0            0.0            0.0                           \r\n           395      0     -6.047889E-07   0.0            3.798357E-05   0.0            0.0            0.0                           \r\n           401      0     -3.624995E-07   0.0            3.821006E-05   0.0            0.0            0.0                           \r\n           405      0     -3.551966E-07   0.0            3.791386E-05   0.0            0.0            0.0                           \r\n           411      0      0.0            0.0            3.824411E-05   0.0            0.0            0.0                           \r\n           412      0      0.0            0.0            3.816782E-05   0.0            0.0            0.0                           \r\n           413      0      0.0            0.0            3.806505E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           414      0      0.0            0.0            3.796290E-05   0.0            0.0            0.0                           \r\n           415      0      0.0            0.0            3.788779E-05   0.0            0.0            0.0                           \r\n           111      1     -2.023812E-03   1.082920E-03   0.0            0.0            0.0            0.0                           \r\n           112      1     -2.022980E-03   1.070008E-03   0.0            0.0            0.0            0.0                           \r\n           113      1     -2.008777E-03   1.033198E-03   0.0            0.0            0.0            0.0                           \r\n           114      1     -1.999541E-03   1.020594E-03   0.0            0.0            0.0            0.0                           \r\n           121      1     -2.013813E-03   1.081568E-03   2.485723E-05   0.0            0.0            0.0                           \r\n           122      1     -2.011517E-03   1.062935E-03   9.900688E-06   0.0            0.0            0.0                           \r\n           123      1     -2.001585E-03   1.038470E-03  -9.301376E-06   0.0            0.0            0.0                           \r\n           124      1     -1.990172E-03   1.020161E-03  -2.409581E-05   0.0            0.0            0.0                           \r\n           131      1     -1.984361E-03   1.078282E-03   4.894155E-05   0.0            0.0            0.0                           \r\n           132      1     -1.983281E-03   1.065846E-03   2.865407E-05   0.0            0.0            0.0                           \r\n           133      1     -1.969558E-03   1.030321E-03  -2.767655E-05   0.0            0.0            0.0                           \r\n           134      1     -1.960860E-03   1.018182E-03  -4.764227E-05   0.0            0.0            0.0                           \r\n           141      1     -1.936454E-03   1.072428E-03   6.986472E-05   0.0            0.0            0.0                           \r\n           142      1     -1.933639E-03   1.055100E-03   2.754114E-05   0.0            0.0            0.0                           \r\n           143      1     -1.924362E-03   1.032334E-03  -2.670683E-05   0.0            0.0            0.0                           \r\n           144      1     -1.914347E-03   1.015310E-03  -6.868541E-05   0.0            0.0            0.0                           \r\n           151      1     -1.872179E-03   1.064779E-03   8.831793E-05   0.0            0.0            0.0                           \r\n           152      1     -1.870282E-03   1.053689E-03   5.124283E-05   0.0            0.0            0.0                           \r\n           153      1     -1.857776E-03   1.021782E-03  -5.116055E-05   0.0            0.0            0.0                           \r\n           154      1     -1.850824E-03   1.010963E-03  -8.812908E-05   0.0            0.0            0.0                           \r\n           161      1     -1.794786E-03   1.054954E-03   1.002051E-04   0.0            0.0            0.0                           \r\n           162      1     -1.790610E-03   1.040000E-03   3.864597E-05   0.0            0.0            0.0                           \r\n           163      1     -1.781734E-03   1.020317E-03  -4.057406E-05   0.0            0.0            0.0                           \r\n           164      1     -1.773219E-03   1.005650E-03  -1.023793E-04   0.0            0.0            0.0                           \r\n           171      1     -1.708693E-03   1.043624E-03   1.084029E-04   0.0            0.0            0.0                           \r\n           172      1     -1.705499E-03   1.034442E-03   6.194985E-05   0.0            0.0            0.0                           \r\n           173      1     -1.692396E-03   1.007888E-03  -6.776991E-05   0.0            0.0            0.0                           \r\n           174      1     -1.686629E-03   9.989867E-04  -1.139635E-04   0.0            0.0            0.0                           \r\n           181      1     -1.617645E-03   1.030338E-03   1.095919E-04   0.0            0.0            0.0                           \r\n           182      1     -1.612274E-03   1.018731E-03   3.955777E-05   0.0            0.0            0.0                           \r\n           183      1     -1.604091E-03   1.002965E-03  -5.060148E-05   0.0            0.0            0.0                           \r\n           184      1     -1.597555E-03   9.914088E-04  -1.203000E-04   0.0            0.0            0.0                           \r\n           191      1     -1.526690E-03   1.016436E-03   1.066872E-04   0.0            0.0            0.0                           \r\n           192      1     -1.521576E-03   1.008050E-03   4.878697E-05   0.0            0.0            0.0                           \r\n           193      1     -1.517114E-03   9.992631E-04  -8.916278E-06   0.0            0.0            0.0                           \r\n           194      1     -1.512230E-03   9.907081E-04  -6.584316E-05   0.0            0.0            0.0                           \r\n           195      1     -1.507909E-03   9.821594E-04  -1.235802E-04   0.0            0.0            0.0                           \r\n           201      1     -1.435992E-03   9.999756E-04   9.990401E-05   0.0            0.0            0.0                           \r\n           202      1     -1.432360E-03   9.952766E-04   4.566492E-05   0.0            0.0            0.0                           \r\n           203      1     -1.427629E-03   9.862923E-04  -1.310840E-05   0.0            0.0            0.0                           \r\n           204      1     -1.423853E-03   9.792371E-04  -6.853170E-05   0.0            0.0            0.0                           \r\n           205      1     -1.419895E-03   9.720632E-04  -1.254705E-04   0.0            0.0            0.0                           \r\n           211      1     -1.350139E-03   9.870441E-04   9.372631E-05   0.0            0.0            0.0                           \r\n           212      1     -1.345098E-03   9.814553E-04   3.957934E-05   0.0            0.0            0.0                           \r\n           213      1     -1.341013E-03   9.741326E-04  -1.621949E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           214      1     -1.337620E-03   9.675386E-04  -7.074579E-05   0.0            0.0            0.0                           \r\n           215      1     -1.335258E-03   9.613029E-04  -1.254581E-04   0.0            0.0            0.0                           \r\n           221      1     -1.267173E-03   9.704357E-04   8.438526E-05   0.0            0.0            0.0                           \r\n           222      1     -1.261734E-03   9.641183E-04   2.127889E-05   0.0            0.0            0.0                           \r\n           223      1     -1.256258E-03   9.554587E-04  -6.208143E-05   0.0            0.0            0.0                           \r\n           224      1     -1.253053E-03   9.493112E-04  -1.247464E-04   0.0            0.0            0.0                           \r\n           231      1     -1.189796E-03   9.531777E-04   7.307191E-05   0.0            0.0            0.0                           \r\n           235      1     -1.176947E-03   9.361667E-04  -1.230221E-04   0.0            0.0            0.0                           \r\n           241      1     -1.007994E-03   9.045953E-04   4.096163E-05   0.0            0.0            0.0                           \r\n           245      1     -9.987068E-04   8.972173E-04  -1.201426E-04   0.0            0.0            0.0                           \r\n           251      1     -8.642232E-04   8.545169E-04   7.768960E-06   0.0            0.0            0.0                           \r\n           255      1     -8.571889E-04   8.535925E-04  -1.185341E-04   0.0            0.0            0.0                           \r\n           261      1     -7.536694E-04   8.035122E-04  -2.327952E-05   0.0            0.0            0.0                           \r\n           265      1     -7.483101E-04   8.066737E-04  -1.201170E-04   0.0            0.0            0.0                           \r\n           271      1     -6.700419E-04   7.520493E-04  -5.104342E-05   0.0            0.0            0.0                           \r\n           275      1     -6.657694E-04   7.575683E-04  -1.246653E-04   0.0            0.0            0.0                           \r\n           281      1     -6.058440E-04   7.004527E-04  -7.436665E-05   0.0            0.0            0.0                           \r\n           285      1     -6.022704E-04   7.068742E-04  -1.323842E-04   0.0            0.0            0.0                           \r\n           291      1     -5.543032E-04   6.486670E-04  -9.403375E-05   0.0            0.0            0.0                           \r\n           295      1     -5.511550E-04   6.551719E-04  -1.418427E-04   0.0            0.0            0.0                           \r\n           301      1     -5.100676E-04   5.967000E-04  -1.099739E-04   0.0            0.0            0.0                           \r\n           305      1     -5.071937E-04   6.027051E-04  -1.527362E-04   0.0            0.0            0.0                           \r\n           311      1     -4.690232E-04   5.444210E-04  -1.232022E-04   0.0            0.0            0.0                           \r\n           315      1     -4.663463E-04   5.496946E-04  -1.638614E-04   0.0            0.0            0.0                           \r\n           321      1     -4.286207E-04   4.917696E-04  -1.339900E-04   0.0            0.0            0.0                           \r\n           325      1     -4.261188E-04   4.962141E-04  -1.748893E-04   0.0            0.0            0.0                           \r\n           331      1     -3.871935E-04   4.386774E-04  -1.429987E-04   0.0            0.0            0.0                           \r\n           335      1     -3.848767E-04   4.423227E-04  -1.851741E-04   0.0            0.0            0.0                           \r\n           341      1     -3.440471E-04   3.851178E-04  -1.504958E-04   0.0            0.0            0.0                           \r\n           345      1     -3.419393E-04   3.880448E-04  -1.945077E-04   0.0            0.0            0.0                           \r\n           351      1     -2.989104E-04   3.310977E-04  -1.567661E-04   0.0            0.0            0.0                           \r\n           355      1     -2.970427E-04   3.333999E-04  -2.026706E-04   0.0            0.0            0.0                           \r\n           361      1     -2.519227E-04   2.766404E-04  -1.619773E-04   0.0            0.0            0.0                           \r\n           365      1     -2.503231E-04   2.784185E-04  -2.095676E-04   0.0            0.0            0.0                           \r\n           371      1     -2.033460E-04   2.218017E-04  -1.661848E-04   0.0            0.0            0.0                           \r\n           375      1     -2.020396E-04   2.231312E-04  -2.151943E-04   0.0            0.0            0.0                           \r\n           381      1     -1.535324E-04   1.666400E-04  -1.694734E-04   0.0            0.0            0.0                           \r\n           385      1     -1.525373E-04   1.675882E-04  -2.195172E-04   0.0            0.0            0.0                           \r\n           391      1     -1.028267E-04   1.112335E-04  -1.718056E-04   0.0            0.0            0.0                           \r\n           395      1     -1.021566E-04   1.118414E-04  -2.225983E-04   0.0            0.0            0.0                           \r\n           401      1     -5.155101E-05   5.565857E-05  -1.732279E-04   0.0            0.0            0.0                           \r\n           405      1     -5.121392E-05   5.595644E-05  -2.244194E-04   0.0            0.0            0.0                           \r\n           411      1      0.0            0.0           -1.736874E-04   0.0            0.0            0.0                           \r\n           412      1      0.0            0.0           -1.839989E-04   0.0            0.0            0.0                           \r\n           413      1      0.0            0.0           -1.994050E-04   0.0            0.0            0.0                           \r\n           414      1      0.0            0.0           -2.147771E-04   0.0            0.0            0.0                           \r\n           415      1      0.0            0.0           -2.250372E-04   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           111      2     -7.155533E-03   3.636908E-03   0.0            0.0            0.0            0.0                           \r\n           112      2     -7.156213E-03   3.489951E-03   0.0            0.0            0.0            0.0                           \r\n           113      2     -7.132606E-03   3.056334E-03   0.0            0.0            0.0            0.0                           \r\n           114      2     -7.116085E-03   2.910346E-03   0.0            0.0            0.0            0.0                           \r\n           121      2     -7.143202E-03   3.633314E-03   8.473204E-06   0.0            0.0            0.0                           \r\n           122      2     -7.141686E-03   3.415511E-03  -9.962181E-06   0.0            0.0            0.0                           \r\n           123      2     -7.125545E-03   3.126389E-03  -3.378330E-05   0.0            0.0            0.0                           \r\n           124      2     -7.104290E-03   2.909584E-03  -5.205877E-05   0.0            0.0            0.0                           \r\n           131      2     -7.107306E-03   3.625607E-03   1.626655E-05   0.0            0.0            0.0                           \r\n           132      2     -7.107725E-03   3.479816E-03  -8.690200E-06   0.0            0.0            0.0                           \r\n           133      2     -7.084597E-03   3.049401E-03  -7.890531E-05   0.0            0.0            0.0                           \r\n           134      2     -7.068626E-03   2.904557E-03  -1.035439E-04   0.0            0.0            0.0                           \r\n           141      2     -7.048259E-03   3.610979E-03   2.103647E-05   0.0            0.0            0.0                           \r\n           142      2     -7.046192E-03   3.396423E-03  -3.177899E-05   0.0            0.0            0.0                           \r\n           143      2     -7.030706E-03   3.111546E-03  -9.995645E-05   0.0            0.0            0.0                           \r\n           144      2     -7.010879E-03   2.897948E-03  -1.524297E-04   0.0            0.0            0.0                           \r\n           151      2     -6.968666E-03   3.592494E-03   2.360965E-05   0.0            0.0            0.0                           \r\n           152      2     -6.968229E-03   3.450038E-03  -2.288238E-05   0.0            0.0            0.0                           \r\n           153      2     -6.946321E-03   3.028772E-03  -1.532661E-04   0.0            0.0            0.0                           \r\n           154      2     -6.932128E-03   2.887213E-03  -1.996362E-04   0.0            0.0            0.0                           \r\n           161      2     -6.871135E-03   3.567849E-03   1.988579E-05   0.0            0.0            0.0                           \r\n           162      2     -6.867671E-03   3.359328E-03  -5.936393E-05   0.0            0.0            0.0                           \r\n           163      2     -6.852607E-03   3.082332E-03  -1.620166E-04   0.0            0.0            0.0                           \r\n           164      2     -6.834385E-03   2.874736E-03  -2.414403E-04   0.0            0.0            0.0                           \r\n           171      2     -6.760549E-03   3.539874E-03   1.283057E-05   0.0            0.0            0.0                           \r\n           172      2     -6.758753E-03   3.402327E-03  -4.787798E-05   0.0            0.0            0.0                           \r\n           173      2     -6.736490E-03   2.995022E-03  -2.200108E-04   0.0            0.0            0.0                           \r\n           174      2     -6.723501E-03   2.858383E-03  -2.805300E-04   0.0            0.0            0.0                           \r\n           181      2     -6.640286E-03   3.506165E-03  -8.309664E-07   0.0            0.0            0.0                           \r\n           182      2     -6.635356E-03   3.306241E-03  -9.624131E-05   0.0            0.0            0.0                           \r\n           183      2     -6.620986E-03   3.039806E-03  -2.186361E-04   0.0            0.0            0.0                           \r\n           184      2     -6.605159E-03   2.840465E-03  -3.146699E-04   0.0            0.0            0.0                           \r\n           191      2     -6.514345E-03   3.470884E-03  -1.877318E-05   0.0            0.0            0.0                           \r\n           192      2     -6.511034E-03   3.307469E-03  -9.988827E-05   0.0            0.0            0.0                           \r\n           193      2     -6.504214E-03   3.144032E-03  -1.818036E-04   0.0            0.0            0.0                           \r\n           194      2     -6.493942E-03   2.981214E-03  -2.623099E-04   0.0            0.0            0.0                           \r\n           195      2     -6.480460E-03   2.817818E-03  -3.441529E-04   0.0            0.0            0.0                           \r\n           201      2     -6.385573E-03   3.429069E-03  -4.160216E-05   0.0            0.0            0.0                           \r\n           202      2     -6.383093E-03   3.274338E-03  -1.182357E-04   0.0            0.0            0.0                           \r\n           203      2     -6.377385E-03   3.111368E-03  -2.069925E-04   0.0            0.0            0.0                           \r\n           204      2     -6.367048E-03   2.952654E-03  -2.885461E-04   0.0            0.0            0.0                           \r\n           205      2     -6.355658E-03   2.793350E-03  -3.723977E-04   0.0            0.0            0.0                           \r\n           211      2     -6.255637E-03   3.393317E-03  -5.883423E-05   0.0            0.0            0.0                           \r\n           212      2     -6.253083E-03   3.237932E-03  -1.414258E-04   0.0            0.0            0.0                           \r\n           213      2     -6.246559E-03   3.079832E-03  -2.288465E-04   0.0            0.0            0.0                           \r\n           214      2     -6.238373E-03   2.923320E-03  -3.136754E-04   0.0            0.0            0.0                           \r\n           215      2     -6.226872E-03   2.766979E-03  -3.984663E-04   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           221      2     -6.126705E-03   3.349198E-03  -8.083762E-05   0.0            0.0            0.0                           \r\n           222      2     -6.120893E-03   3.165367E-03  -1.838159E-04   0.0            0.0            0.0                           \r\n           223      2     -6.109598E-03   2.920908E-03  -3.206055E-04   0.0            0.0            0.0                           \r\n           224      2     -6.097771E-03   2.737860E-03  -4.234491E-04   0.0            0.0            0.0                           \r\n           231      2     -5.995256E-03   3.302973E-03  -1.051018E-04   0.0            0.0            0.0                           \r\n           235      2     -5.968137E-03   2.705506E-03  -4.464671E-04   0.0            0.0            0.0                           \r\n           241      2     -5.653967E-03   3.167993E-03  -1.738915E-04   0.0            0.0            0.0                           \r\n           245      2     -5.630789E-03   2.610294E-03  -5.054275E-04   0.0            0.0            0.0                           \r\n           251      2     -5.325994E-03   3.023715E-03  -2.415463E-04   0.0            0.0            0.0                           \r\n           255      2     -5.305722E-03   2.500466E-03  -5.611724E-04   0.0            0.0            0.0                           \r\n           261      2     -5.010235E-03   2.870248E-03  -3.059025E-04   0.0            0.0            0.0                           \r\n           265      2     -4.992393E-03   2.380133E-03  -6.153396E-04   0.0            0.0            0.0                           \r\n           271      2     -4.703226E-03   2.709936E-03  -3.650312E-04   0.0            0.0            0.0                           \r\n           275      2     -4.687328E-03   2.250701E-03  -6.683234E-04   0.0            0.0            0.0                           \r\n           281      2     -4.400340E-03   2.543054E-03  -4.184027E-04   0.0            0.0            0.0                           \r\n           285      2     -4.385998E-03   2.114297E-03  -7.198876E-04   0.0            0.0            0.0                           \r\n           291      2     -4.097214E-03   2.370826E-03  -4.660377E-04   0.0            0.0            0.0                           \r\n           295      2     -4.084224E-03   1.971602E-03  -7.694709E-04   0.0            0.0            0.0                           \r\n           301      2     -3.790586E-03   2.193059E-03  -5.083278E-04   0.0            0.0            0.0                           \r\n           305      2     -3.778754E-03   1.824036E-03  -8.164475E-04   0.0            0.0            0.0                           \r\n           311      2     -3.477955E-03   2.010679E-03  -5.455845E-04   0.0            0.0            0.0                           \r\n           315      2     -3.467235E-03   1.671766E-03  -8.603883E-04   0.0            0.0            0.0                           \r\n           321      2     -3.158121E-03   1.823439E-03  -5.784977E-04   0.0            0.0            0.0                           \r\n           325      2     -3.148435E-03   1.515816E-03  -9.006331E-04   0.0            0.0            0.0                           \r\n           331      2     -2.830425E-03   1.632215E-03  -6.071265E-04   0.0            0.0            0.0                           \r\n           335      2     -2.821796E-03   1.356161E-03  -9.371637E-04   0.0            0.0            0.0                           \r\n           341      2     -2.495080E-03   1.436887E-03  -6.321803E-04   0.0            0.0            0.0                           \r\n           345      2     -2.487480E-03   1.193622E-03  -9.693787E-04   0.0            0.0            0.0                           \r\n           351      2     -2.152531E-03   1.238312E-03  -6.534187E-04   0.0            0.0            0.0                           \r\n           355      2     -2.145999E-03   1.028180E-03  -9.975842E-04   0.0            0.0            0.0                           \r\n           361      2     -1.803663E-03   1.036542E-03  -6.714938E-04   0.0            0.0            0.0                           \r\n           365      2     -1.798187E-03   8.605447E-04  -1.021231E-03   0.0            0.0            0.0                           \r\n           371      2     -1.449397E-03   8.323837E-04  -6.859684E-04   0.0            0.0            0.0                           \r\n           375      2     -1.445010E-03   6.907936E-04  -1.040800E-03   0.0            0.0            0.0                           \r\n           381      2     -1.090827E-03   6.260496E-04  -6.974437E-04   0.0            0.0            0.0                           \r\n           385      2     -1.087522E-03   5.195512E-04  -1.055765E-03   0.0            0.0            0.0                           \r\n           391      2     -7.290063E-04   4.182613E-04  -7.053888E-04   0.0            0.0            0.0                           \r\n           395      2     -7.268038E-04   3.470167E-04  -1.066671E-03   0.0            0.0            0.0                           \r\n           401      2     -3.650416E-04   2.093745E-04  -7.103796E-04   0.0            0.0            0.0                           \r\n           405      2     -3.639372E-04   1.737257E-04  -1.072991E-03   0.0            0.0            0.0                           \r\n           411      2      0.0            0.0           -7.118536E-04   0.0            0.0            0.0                           \r\n           412      2      0.0            0.0           -7.848515E-04   0.0            0.0            0.0                           \r\n           413      2      0.0            0.0           -8.936951E-04   0.0            0.0            0.0                           \r\n           414      2      0.0            0.0           -1.002442E-03   0.0            0.0            0.0                           \r\n           415      2      0.0            0.0           -1.075277E-03   0.0            0.0            0.0                           \r\n           111      3     -8.347357E-03   3.409247E-03   0.0            0.0            0.0            0.0                           \r\n           112      3     -8.357818E-03   3.111519E-03   0.0            0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           113      3     -8.340114E-03   2.236106E-03   0.0            0.0            0.0            0.0                           \r\n           114      3     -8.318717E-03   1.939509E-03   0.0            0.0            0.0            0.0                           \r\n           121      3     -8.334165E-03   3.403754E-03   1.325129E-05   0.0            0.0            0.0                           \r\n           122      3     -8.344774E-03   2.963718E-03  -6.166330E-06   0.0            0.0            0.0                           \r\n           123      3     -8.332676E-03   2.379338E-03  -3.127547E-05   0.0            0.0            0.0                           \r\n           124      3     -8.305859E-03   1.940331E-03  -5.055369E-05   0.0            0.0            0.0                           \r\n           131      3     -8.296559E-03   3.395771E-03   2.593692E-05   0.0            0.0            0.0                           \r\n           132      3     -8.306719E-03   3.099945E-03  -3.778074E-07   0.0            0.0            0.0                           \r\n           133      3     -8.289449E-03   2.229775E-03  -7.450864E-05   0.0            0.0            0.0                           \r\n           134      3     -8.268605E-03   1.935051E-03  -1.005442E-04   0.0            0.0            0.0                           \r\n           141      3     -8.234018E-03   3.377178E-03   3.575276E-05   0.0            0.0            0.0                           \r\n           142      3     -8.243975E-03   2.942459E-03  -2.011247E-05   0.0            0.0            0.0                           \r\n           143      3     -8.232470E-03   2.365044E-03  -9.229027E-05   0.0            0.0            0.0                           \r\n           144      3     -8.207085E-03   1.931304E-03  -1.478707E-04   0.0            0.0            0.0                           \r\n           151      3     -8.149951E-03   3.356409E-03   4.369766E-05   0.0            0.0            0.0                           \r\n           152      3     -8.159142E-03   3.066055E-03  -5.642382E-06   0.0            0.0            0.0                           \r\n           153      3     -8.142962E-03   2.210955E-03  -1.442569E-04   0.0            0.0            0.0                           \r\n           154      3     -8.123910E-03   1.921636E-03  -1.935457E-04   0.0            0.0            0.0                           \r\n           161      3     -8.046004E-03   3.326120E-03   4.561595E-05   0.0            0.0            0.0                           \r\n           162      3     -8.054352E-03   2.901362E-03  -3.903346E-05   0.0            0.0            0.0                           \r\n           163      3     -8.043163E-03   2.336997E-03  -1.487675E-04   0.0            0.0            0.0                           \r\n           164      3     -8.019417E-03   1.913182E-03  -2.336885E-04   0.0            0.0            0.0                           \r\n           171      3     -7.927725E-03   3.294268E-03   4.474368E-05   0.0            0.0            0.0                           \r\n           172      3     -7.935405E-03   3.012143E-03  -2.061498E-05   0.0            0.0            0.0                           \r\n           173      3     -7.918642E-03   2.180245E-03  -2.059269E-04   0.0            0.0            0.0                           \r\n           174      3     -7.900840E-03   1.899165E-03  -2.711595E-04   0.0            0.0            0.0                           \r\n           181      3     -7.797647E-03   3.253781E-03   3.825746E-05   0.0            0.0            0.0                           \r\n           182      3     -7.803980E-03   2.842922E-03  -6.687733E-05   0.0            0.0            0.0                           \r\n           183      3     -7.793372E-03   2.296557E-03  -1.984324E-04   0.0            0.0            0.0                           \r\n           184      3     -7.772271E-03   1.886361E-03  -3.039435E-04   0.0            0.0            0.0                           \r\n           191      3     -7.657312E-03   3.213700E-03   2.817973E-05   0.0            0.0            0.0                           \r\n           192      3     -7.666024E-03   2.875834E-03  -6.303258E-05   0.0            0.0            0.0                           \r\n           193      3     -7.663905E-03   2.539955E-03  -1.523264E-04   0.0            0.0            0.0                           \r\n           194      3     -7.653443E-03   2.204843E-03  -2.410575E-04   0.0            0.0            0.0                           \r\n           195      3     -7.633603E-03   1.867053E-03  -3.320757E-04   0.0            0.0            0.0                           \r\n           201      3     -7.515794E-03   3.165409E-03   1.516556E-05   0.0            0.0            0.0                           \r\n           202      3     -7.521686E-03   2.840327E-03  -7.675072E-05   0.0            0.0            0.0                           \r\n           203      3     -7.522066E-03   2.506228E-03  -1.721375E-04   0.0            0.0            0.0                           \r\n           204      3     -7.510269E-03   2.178013E-03  -2.642494E-04   0.0            0.0            0.0                           \r\n           205      3     -7.494480E-03   1.847549E-03  -3.587750E-04   0.0            0.0            0.0                           \r\n           211      3     -7.367080E-03   3.124502E-03   3.843824E-06   0.0            0.0            0.0                           \r\n           212      3     -7.375553E-03   2.800375E-03  -9.222496E-05   0.0            0.0            0.0                           \r\n           213      3     -7.373428E-03   2.475182E-03  -1.899513E-04   0.0            0.0            0.0                           \r\n           214      3     -7.364965E-03   2.151778E-03  -2.862648E-04   0.0            0.0            0.0                           \r\n           215      3     -7.347312E-03   1.826680E-03  -3.829864E-04   0.0            0.0            0.0                           \r\n           221      3     -7.219622E-03   3.074137E-03  -1.033577E-05   0.0            0.0            0.0                           \r\n           222      3     -7.224790E-03   2.691989E-03  -1.297862E-04   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           223      3     -7.216833E-03   2.185441E-03  -2.869262E-04   0.0            0.0            0.0                           \r\n           224      3     -7.200152E-03   1.804051E-03  -4.060360E-04   0.0            0.0            0.0                           \r\n           231      3     -7.065194E-03   3.022662E-03  -2.602356E-05   0.0            0.0            0.0                           \r\n           235      3     -7.047505E-03   1.777825E-03  -4.267163E-04   0.0            0.0            0.0                           \r\n           241      3     -6.656891E-03   2.871207E-03  -7.341433E-05   0.0            0.0            0.0                           \r\n           245      3     -6.642473E-03   1.705082E-03  -4.751254E-04   0.0            0.0            0.0                           \r\n           251      3     -6.251246E-03   2.715330E-03  -1.193335E-04   0.0            0.0            0.0                           \r\n           255      3     -6.239557E-03   1.619237E-03  -5.177447E-04   0.0            0.0            0.0                           \r\n           261      3     -5.851645E-03   2.552041E-03  -1.631106E-04   0.0            0.0            0.0                           \r\n           265      3     -5.842095E-03   1.528251E-03  -5.553955E-04   0.0            0.0            0.0                           \r\n           271      3     -5.457837E-03   2.387095E-03  -2.019793E-04   0.0            0.0            0.0                           \r\n           275      3     -5.450076E-03   1.431098E-03  -5.901007E-04   0.0            0.0            0.0                           \r\n           281      3     -5.068336E-03   2.218511E-03  -2.367167E-04   0.0            0.0            0.0                           \r\n           285      3     -5.061863E-03   1.332278E-03  -6.211266E-04   0.0            0.0            0.0                           \r\n           291      3     -4.681299E-03   2.050113E-03  -2.663613E-04   0.0            0.0            0.0                           \r\n           295      3     -4.675969E-03   1.230307E-03  -6.496555E-04   0.0            0.0            0.0                           \r\n           301      3     -4.295334E-03   1.879567E-03  -2.923227E-04   0.0            0.0            0.0                           \r\n           305      3     -4.290812E-03   1.128479E-03  -6.747277E-04   0.0            0.0            0.0                           \r\n           311      3     -3.909197E-03   1.709772E-03  -3.140037E-04   0.0            0.0            0.0                           \r\n           315      3     -3.905448E-03   1.025029E-03  -6.974448E-04   0.0            0.0            0.0                           \r\n           321      3     -3.522343E-03   1.538518E-03  -3.329533E-04   0.0            0.0            0.0                           \r\n           325      3     -3.519145E-03   9.224078E-04  -7.168191E-04   0.0            0.0            0.0                           \r\n           331      3     -3.134319E-03   1.368106E-03  -3.484699E-04   0.0            0.0            0.0                           \r\n           335      3     -3.131685E-03   8.188906E-04  -7.340803E-04   0.0            0.0            0.0                           \r\n           341      3     -2.745158E-03   1.196663E-03  -3.620474E-04   0.0            0.0            0.0                           \r\n           345      3     -2.742935E-03   7.163174E-04  -7.482421E-04   0.0            0.0            0.0                           \r\n           351      3     -2.354854E-03   1.025985E-03  -3.728083E-04   0.0            0.0            0.0                           \r\n           355      3     -2.353066E-03   6.132067E-04  -7.606234E-04   0.0            0.0            0.0                           \r\n           361      3     -1.963649E-03   8.546109E-04  -3.821468E-04   0.0            0.0            0.0                           \r\n           365      3     -1.962191E-03   5.109038E-04  -7.702236E-04   0.0            0.0            0.0                           \r\n           371      3     -1.571681E-03   6.838434E-04  -3.890543E-04   0.0            0.0            0.0                           \r\n           375      3     -1.570575E-03   4.082710E-04  -7.783731E-04   0.0            0.0            0.0                           \r\n           381      3     -1.179190E-03   5.126534E-04  -3.948353E-04   0.0            0.0            0.0                           \r\n           385      3     -1.178366E-03   3.062083E-04  -7.840349E-04   0.0            0.0            0.0                           \r\n           391      3     -7.863112E-04   3.418550E-04  -3.984011E-04   0.0            0.0            0.0                           \r\n           395      3     -7.857832E-04   2.039635E-04  -7.884980E-04   0.0            0.0            0.0                           \r\n           401      3     -3.932122E-04   1.708597E-04  -4.009879E-04   0.0            0.0            0.0                           \r\n           405      3     -3.929459E-04   1.020110E-04  -7.906724E-04   0.0            0.0            0.0                           \r\n           411      3      0.0            0.0           -4.014552E-04   0.0            0.0            0.0                           \r\n           412      3      0.0            0.0           -4.800372E-04   0.0            0.0            0.0                           \r\n           413      3      0.0            0.0           -5.966243E-04   0.0            0.0            0.0                           \r\n           414      3      0.0            0.0           -7.132256E-04   0.0            0.0            0.0                           \r\n           415      3      0.0            0.0           -7.917819E-04   0.0            0.0            0.0                           \r\n           111      4     -4.100843E-03   1.475338E-03   0.0            0.0            0.0            0.0                           \r\n           112      4     -4.112401E-03   1.270173E-03   0.0            0.0            0.0            0.0                           \r\n           113      4     -4.104022E-03   6.748437E-04   0.0            0.0            0.0            0.0                           \r\n           114      4     -4.087587E-03   4.704577E-04   0.0            0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           121      4     -4.089800E-03   1.469961E-03   1.842402E-05   0.0            0.0            0.0                           \r\n           122      4     -4.102664E-03   1.169816E-03   2.324012E-06   0.0            0.0            0.0                           \r\n           123      4     -4.096758E-03   7.719685E-04  -1.838205E-05   0.0            0.0            0.0                           \r\n           124      4     -4.076871E-03   4.724278E-04  -3.437253E-05   0.0            0.0            0.0                           \r\n           131      4     -4.058345E-03   1.463825E-03   3.639535E-05   0.0            0.0            0.0                           \r\n           132      4     -4.069575E-03   1.260828E-03   1.448034E-05   0.0            0.0            0.0                           \r\n           133      4     -4.061554E-03   6.713888E-04  -4.654401E-05   0.0            0.0            0.0                           \r\n           134      4     -4.045648E-03   4.691367E-04  -6.823762E-05   0.0            0.0            0.0                           \r\n           141      4     -4.006122E-03   1.447385E-03   5.173257E-05   0.0            0.0            0.0                           \r\n           142      4     -4.018256E-03   1.153232E-03   5.614758E-06   0.0            0.0            0.0                           \r\n           143      4     -4.012843E-03   7.632163E-04  -5.362291E-05   0.0            0.0            0.0                           \r\n           144      4     -3.994315E-03   4.696135E-04  -9.953995E-05   0.0            0.0            0.0                           \r\n           151      4     -3.936118E-03   1.430496E-03   6.551614E-05   0.0            0.0            0.0                           \r\n           152      4     -3.946301E-03   1.233714E-03   2.470649E-05   0.0            0.0            0.0                           \r\n           153      4     -3.939158E-03   6.611336E-04  -8.848374E-05   0.0            0.0            0.0                           \r\n           154      4     -3.924969E-03   4.650260E-04  -1.293500E-04   0.0            0.0            0.0                           \r\n           161      4     -3.850042E-03   1.404618E-03   7.368752E-05   0.0            0.0            0.0                           \r\n           162      4     -3.860409E-03   1.121610E-03   4.652504E-06   0.0            0.0            0.0                           \r\n           163      4     -3.855136E-03   7.461710E-04  -8.435581E-05   0.0            0.0            0.0                           \r\n           164      4     -3.838114E-03   4.636949E-04  -1.538193E-04   0.0            0.0            0.0                           \r\n           171      4     -3.752915E-03   1.378910E-03   7.954736E-05   0.0            0.0            0.0                           \r\n           172      4     -3.761465E-03   1.191390E-03   2.633837E-05   0.0            0.0            0.0                           \r\n           173      4     -3.753331E-03   6.444960E-04  -1.226113E-04   0.0            0.0            0.0                           \r\n           174      4     -3.740344E-03   4.576792E-04  -1.757983E-04   0.0            0.0            0.0                           \r\n           181      4     -3.647197E-03   1.345397E-03   8.025033E-05   0.0            0.0            0.0                           \r\n           182      4     -3.655386E-03   1.077682E-03  -4.107626E-06   0.0            0.0            0.0                           \r\n           183      4     -3.650459E-03   7.220882E-04  -1.086227E-04   0.0            0.0            0.0                           \r\n           184      4     -3.635762E-03   4.546819E-04  -1.929441E-04   0.0            0.0            0.0                           \r\n           191      4     -3.534468E-03   1.314169E-03   7.824883E-05   0.0            0.0            0.0                           \r\n           192      4     -3.543970E-03   1.095811E-03   5.434177E-06   0.0            0.0            0.0                           \r\n           193      4     -3.544574E-03   8.798215E-04  -6.449041E-05   0.0            0.0            0.0                           \r\n           194      4     -3.538317E-03   6.644090E-04  -1.343336E-04   0.0            0.0            0.0                           \r\n           195      4     -3.524507E-03   4.459555E-04  -2.064466E-04   0.0            0.0            0.0                           \r\n           201      4     -3.422556E-03   1.276332E-03   7.456625E-05   0.0            0.0            0.0                           \r\n           202      4     -3.429209E-03   1.070570E-03   1.551218E-07   0.0            0.0            0.0                           \r\n           203      4     -3.431472E-03   8.571797E-04  -7.239011E-05   0.0            0.0            0.0                           \r\n           204      4     -3.424468E-03   6.490246E-04  -1.442096E-04   0.0            0.0            0.0                           \r\n           205      4     -3.413826E-03   4.383489E-04  -2.182718E-04   0.0            0.0            0.0                           \r\n           211      4     -3.306531E-03   1.245836E-03   6.969529E-05   0.0            0.0            0.0                           \r\n           212      4     -3.314995E-03   1.042038E-03  -5.219967E-06   0.0            0.0            0.0                           \r\n           213      4     -3.315427E-03   8.379032E-04  -7.937845E-05   0.0            0.0            0.0                           \r\n           214      4     -3.310743E-03   6.351711E-04  -1.530449E-04   0.0            0.0            0.0                           \r\n           215      4     -3.299122E-03   4.304161E-04  -2.275839E-04   0.0            0.0            0.0                           \r\n           221      4     -3.192576E-03   1.208220E-03   6.349404E-05   0.0            0.0            0.0                           \r\n           222      4     -3.199377E-03   9.713770E-04  -2.724679E-05   0.0            0.0            0.0                           \r\n           223      4     -3.196427E-03   6.584604E-04  -1.454487E-04   0.0            0.0            0.0                           \r\n           224      4     -3.185841E-03   4.219000E-04  -2.358010E-04   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           231      4     -3.075830E-03   1.171064E-03   5.642504E-05   0.0            0.0            0.0                           \r\n           235      4     -3.070358E-03   4.109438E-04  -2.419518E-04   0.0            0.0            0.0                           \r\n           241      4     -2.775980E-03   1.064656E-03   3.393706E-05   0.0            0.0            0.0                           \r\n           245      4     -2.772668E-03   3.840810E-04  -2.518873E-04   0.0            0.0            0.0                           \r\n           251      4     -2.492371E-03   9.634795E-04   1.270102E-05   0.0            0.0            0.0                           \r\n           255      4     -2.490894E-03   3.505813E-04  -2.564082E-04   0.0            0.0            0.0                           \r\n           261      4     -2.228804E-03   8.642884E-04  -7.395378E-06   0.0            0.0            0.0                           \r\n           265      4     -2.228629E-03   3.175350E-04  -2.559280E-04   0.0            0.0            0.0                           \r\n           271      4     -1.986046E-03   7.719790E-04  -2.377778E-05   0.0            0.0            0.0                           \r\n           275      4     -1.986868E-03   2.834632E-04  -2.532327E-04   0.0            0.0            0.0                           \r\n           281      4     -1.763050E-03   6.845332E-04  -3.763089E-05   0.0            0.0            0.0                           \r\n           285      4     -1.764471E-03   2.517716E-04  -2.478437E-04   0.0            0.0            0.0                           \r\n           291      4     -1.558524E-03   6.046026E-04  -4.802379E-05   0.0            0.0            0.0                           \r\n           295      4     -1.560390E-03   2.209499E-04  -2.414914E-04   0.0            0.0            0.0                           \r\n           301      4     -1.370760E-03   5.299751E-04  -5.632900E-05   0.0            0.0            0.0                           \r\n           305      4     -1.372815E-03   1.931788E-04  -2.336665E-04   0.0            0.0            0.0                           \r\n           311      4     -1.198247E-03   4.622144E-04  -6.210622E-05   0.0            0.0            0.0                           \r\n           315      4     -1.200420E-03   1.669357E-04  -2.256488E-04   0.0            0.0            0.0                           \r\n           321      4     -1.039412E-03   3.992876E-04  -6.656922E-05   0.0            0.0            0.0                           \r\n           325      4     -1.041541E-03   1.436107E-04  -2.169977E-04   0.0            0.0            0.0                           \r\n           331      4     -8.928771E-04   3.421169E-04  -6.938055E-05   0.0            0.0            0.0                           \r\n           335      4     -8.949355E-04   1.218397E-04  -2.087517E-04   0.0            0.0            0.0                           \r\n           341      4     -7.572197E-04   2.889723E-04  -7.151263E-05   0.0            0.0            0.0                           \r\n           345      4     -7.591039E-04   1.024990E-04  -2.005335E-04   0.0            0.0            0.0                           \r\n           351      4     -6.311408E-04   2.403332E-04  -7.263914E-05   0.0            0.0            0.0                           \r\n           355      4     -6.328421E-04   8.446640E-05  -1.931913E-04   0.0            0.0            0.0                           \r\n           361      4     -5.132678E-04   1.947803E-04  -7.351228E-05   0.0            0.0            0.0                           \r\n           365      4     -5.147199E-04   6.826047E-05  -1.863880E-04   0.0            0.0            0.0                           \r\n           371      4     -4.022968E-04   1.524484E-04  -7.380732E-05   0.0            0.0            0.0                           \r\n           375      4     -4.034978E-04   5.301580E-05  -1.808043E-04   0.0            0.0            0.0                           \r\n           381      4     -2.968479E-04   1.122014E-04  -7.410570E-05   0.0            0.0            0.0                           \r\n           385      4     -2.977579E-04   3.897755E-05  -1.761189E-04   0.0            0.0            0.0                           \r\n           391      4     -1.955777E-04   7.388621E-05  -7.408134E-05   0.0            0.0            0.0                           \r\n           395      4     -1.961968E-04   2.552158E-05  -1.728736E-04   0.0            0.0            0.0                           \r\n           401      4     -9.708873E-05   3.662124E-05  -7.419509E-05   0.0            0.0            0.0                           \r\n           405      4     -9.739821E-05   1.266348E-05  -1.707375E-04   0.0            0.0            0.0                           \r\n           411      4      0.0            0.0           -7.410512E-05   0.0            0.0            0.0                           \r\n           412      4      0.0            0.0           -9.345532E-05   0.0            0.0            0.0                           \r\n           413      4      0.0            0.0           -1.220752E-04   0.0            0.0            0.0                           \r\n           414      4      0.0            0.0           -1.507444E-04   0.0            0.0            0.0                           \r\n           415      4      0.0            0.0           -1.701483E-04   0.0            0.0            0.0                           \r\n           111      5     -2.128634E-03   7.334673E-04   0.0            0.0            0.0            0.0                           \r\n           112      5     -2.138764E-03   5.975223E-04   0.0            0.0            0.0            0.0                           \r\n           113      5     -2.134838E-03   2.096654E-04   0.0            0.0            0.0            0.0                           \r\n           114      5     -2.122537E-03   7.423451E-05   0.0            0.0            0.0            0.0                           \r\n           121      5     -2.119891E-03   7.285578E-04   1.636297E-05   0.0            0.0            0.0                           \r\n           122      5     -2.131528E-03   5.322522E-04   3.741557E-06   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           123      5     -2.128556E-03   2.726860E-04  -1.238561E-05   0.0            0.0            0.0                           \r\n           124      5     -2.114131E-03   7.669732E-05  -2.492709E-05   0.0            0.0            0.0                           \r\n           131      5     -2.094962E-03   7.238967E-04   3.238510E-05   0.0            0.0            0.0                           \r\n           132      5     -2.104760E-03   5.901193E-04   1.511134E-05   0.0            0.0            0.0                           \r\n           133      5     -2.101113E-03   2.080517E-04  -3.232508E-05   0.0            0.0            0.0                           \r\n           134      5     -2.089290E-03   7.475585E-05  -4.943540E-05   0.0            0.0            0.0                           \r\n           141      5     -2.053674E-03   7.098949E-04   4.609598E-05   0.0            0.0            0.0                           \r\n           142      5     -2.064559E-03   5.195015E-04   1.011637E-05   0.0            0.0            0.0                           \r\n           143      5     -2.061976E-03   2.676417E-04  -3.577330E-05   0.0            0.0            0.0                           \r\n           144      5     -2.048776E-03   7.751526E-05  -7.163405E-05   0.0            0.0            0.0                           \r\n           151      5     -1.998457E-03   6.964020E-04   5.856982E-05   0.0            0.0            0.0                           \r\n           152      5     -2.007200E-03   5.688196E-04   2.664545E-05   0.0            0.0            0.0                           \r\n           153      5     -2.004209E-03   2.032317E-04  -6.051270E-05   0.0            0.0            0.0                           \r\n           154      5     -1.993957E-03   7.606626E-05  -9.259283E-05   0.0            0.0            0.0                           \r\n           161      5     -1.931023E-03   6.749899E-04   6.602002E-05   0.0            0.0            0.0                           \r\n           162      5     -1.940103E-03   4.954964E-04   1.293724E-05   0.0            0.0            0.0                           \r\n           163      5     -1.937484E-03   2.578559E-04  -5.505271E-05   0.0            0.0            0.0                           \r\n           164      5     -1.925558E-03   7.863934E-05  -1.086864E-04   0.0            0.0            0.0                           \r\n           171      5     -1.855699E-03   6.546361E-04   7.159887E-05   0.0            0.0            0.0                           \r\n           172      5     -1.862785E-03   5.361683E-04   3.079295E-05   0.0            0.0            0.0                           \r\n           173      5     -1.858474E-03   1.953557E-04  -8.172578E-05   0.0            0.0            0.0                           \r\n           174      5     -1.849263E-03   7.736431E-05  -1.226362E-04   0.0            0.0            0.0                           \r\n           181      5     -1.774771E-03   6.277464E-04   7.251826E-05   0.0            0.0            0.0                           \r\n           182      5     -1.781720E-03   4.629290E-04   9.198092E-06   0.0            0.0            0.0                           \r\n           183      5     -1.779196E-03   2.442900E-04  -6.877515E-05   0.0            0.0            0.0                           \r\n           184      5     -1.769131E-03   7.962019E-05  -1.320281E-04   0.0            0.0            0.0                           \r\n           191      5     -1.690080E-03   6.039172E-04   7.151080E-05   0.0            0.0            0.0                           \r\n           192      5     -1.697532E-03   4.709770E-04   1.747671E-05   0.0            0.0            0.0                           \r\n           193      5     -1.698658E-03   3.402985E-04  -3.391155E-05   0.0            0.0            0.0                           \r\n           194      5     -1.694739E-03   2.100326E-04  -8.529588E-05   0.0            0.0            0.0                           \r\n           195      5     -1.685524E-03   7.696491E-05  -1.387328E-04   0.0            0.0            0.0                           \r\n           201      5     -1.607083E-03   5.751147E-04   6.927248E-05   0.0            0.0            0.0                           \r\n           202      5     -1.612503E-03   4.531635E-04   1.456870E-05   0.0            0.0            0.0                           \r\n           203      5     -1.614529E-03   3.253522E-04  -3.775514E-05   0.0            0.0            0.0                           \r\n           204      5     -1.610353E-03   2.017024E-04  -8.979741E-05   0.0            0.0            0.0                           \r\n           205      5     -1.603312E-03   7.579726E-05  -1.438824E-04   0.0            0.0            0.0                           \r\n           211      5     -1.522899E-03   5.526431E-04   6.567309E-05   0.0            0.0            0.0                           \r\n           212      5     -1.529142E-03   4.330720E-04   1.181116E-05   0.0            0.0            0.0                           \r\n           213      5     -1.530003E-03   3.135251E-04  -4.093762E-05   0.0            0.0            0.0                           \r\n           214      5     -1.527317E-03   1.950039E-04  -9.341208E-05   0.0            0.0            0.0                           \r\n           215      5     -1.520033E-03   7.464991E-05  -1.469017E-04   0.0            0.0            0.0                           \r\n           221      5     -1.441129E-03   5.252338E-04   6.126923E-05   0.0            0.0            0.0                           \r\n           222      5     -1.446464E-03   3.889548E-04  -2.665088E-06   0.0            0.0            0.0                           \r\n           223      5     -1.445324E-03   2.095861E-04  -8.535889E-05   0.0            0.0            0.0                           \r\n           224      5     -1.438774E-03   7.337348E-05  -1.490417E-04   0.0            0.0            0.0                           \r\n           231      5     -1.359256E-03   4.989271E-04   5.633262E-05   0.0            0.0            0.0                           \r\n           235      5     -1.357714E-03   7.036317E-05  -1.496320E-04   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           241      5     -1.155435E-03   4.258198E-04   4.128147E-05   0.0            0.0            0.0                           \r\n           245      5     -1.155118E-03   6.548424E-05  -1.466288E-04   0.0            0.0            0.0                           \r\n           251      5     -9.723791E-04   3.610988E-04   2.771759E-05   0.0            0.0            0.0                           \r\n           255      5     -9.730661E-04   5.614702E-05  -1.401043E-04   0.0            0.0            0.0                           \r\n           261      5     -8.118062E-04   3.015710E-04   1.520713E-05   0.0            0.0            0.0                           \r\n           265      5     -8.131054E-04   4.760641E-05  -1.303931E-04   0.0            0.0            0.0                           \r\n           271      5     -6.733268E-04   2.501577E-04   5.694244E-06   0.0            0.0            0.0                           \r\n           275      5     -6.750183E-04   3.853906E-05  -1.200373E-04   0.0            0.0            0.0                           \r\n           281      5     -5.548745E-04   2.049953E-04  -1.944154E-06   0.0            0.0            0.0                           \r\n           285      5     -5.567184E-04   3.094847E-05  -1.087256E-04   0.0            0.0            0.0                           \r\n           291      5     -4.545008E-04   1.670599E-04  -7.136918E-06   0.0            0.0            0.0                           \r\n           295      5     -4.564000E-04   2.383284E-05  -9.781712E-05   0.0            0.0            0.0                           \r\n           301      5     -3.698250E-04   1.346080E-04  -1.091990E-05   0.0            0.0            0.0                           \r\n           305      5     -3.716540E-04   1.824226E-05  -8.698369E-05   0.0            0.0            0.0                           \r\n           311      5     -2.988838E-04   1.078532E-04  -1.313774E-05   0.0            0.0            0.0                           \r\n           315      5     -3.006109E-04   1.336198E-05  -7.699959E-05   0.0            0.0            0.0                           \r\n           321      5     -2.396585E-04   8.539997E-05  -1.454609E-05   0.0            0.0            0.0                           \r\n           325      5     -2.412252E-04   9.715761E-06  -6.759803E-05   0.0            0.0            0.0                           \r\n           331      5     -1.905047E-04   6.714940E-05  -1.509476E-05   0.0            0.0            0.0                           \r\n           335      5     -1.919092E-04   6.699811E-06  -5.923059E-05   0.0            0.0            0.0                           \r\n           341      5     -1.498048E-04   5.206113E-05  -1.527502E-05   0.0            0.0            0.0                           \r\n           345      5     -1.510229E-04   4.561655E-06  -5.169446E-05   0.0            0.0            0.0                           \r\n           351      5     -1.162200E-04   3.991195E-05  -1.506353E-05   0.0            0.0            0.0                           \r\n           355      5     -1.172607E-04   2.889339E-06  -4.524153E-05   0.0            0.0            0.0                           \r\n           361      5     -8.844869E-05   2.994626E-05  -1.475486E-05   0.0            0.0            0.0                           \r\n           365      5     -8.930406E-05   1.786830E-06  -3.972564E-05   0.0            0.0            0.0                           \r\n           371      5     -6.538232E-05   2.189462E-05  -1.433693E-05   0.0            0.0            0.0                           \r\n           375      5     -6.606256E-05   9.897578E-07  -3.527541E-05   0.0            0.0            0.0                           \r\n           381      5     -4.594449E-05   1.520400E-05  -1.397277E-05   0.0            0.0            0.0                           \r\n           385      5     -4.644838E-05   5.254767E-07  -3.179298E-05   0.0            0.0            0.0                           \r\n           391      5     -2.918040E-05   9.586600E-06  -1.365511E-05   0.0            0.0            0.0                           \r\n           395      5     -2.951519E-05   2.310584E-07  -2.933905E-05   0.0            0.0            0.0                           \r\n           401      5     -1.415697E-05   4.620722E-06  -1.346520E-05   0.0            0.0            0.0                           \r\n           405      5     -1.432307E-05   8.841361E-08  -2.785372E-05   0.0            0.0            0.0                           \r\n           411      5      0.0            0.0           -1.339031E-05   0.0            0.0            0.0                           \r\n           412      5      0.0            0.0           -1.618976E-05   0.0            0.0            0.0                           \r\n           413      5      0.0            0.0           -2.035691E-05   0.0            0.0            0.0                           \r\n           414      5      0.0            0.0           -2.454471E-05   0.0            0.0            0.0                           \r\n           415      5      0.0            0.0           -2.737075E-05   0.0            0.0            0.0                           \r\n           111      6     -1.211192E-03   4.180476E-04   0.0            0.0            0.0            0.0                           \r\n           112      6     -1.219662E-03   3.242887E-04   0.0            0.0            0.0            0.0                           \r\n           113      6     -1.218136E-03   6.187926E-05   0.0            0.0            0.0            0.0                           \r\n           114      6     -1.208880E-03  -3.157158E-05   0.0            0.0            0.0            0.0                           \r\n           121      6     -1.204471E-03   4.136982E-04   1.315699E-05   0.0            0.0            0.0                           \r\n           122      6     -1.214402E-03   2.802822E-04   3.570133E-06   0.0            0.0            0.0                           \r\n           123      6     -1.213006E-03   1.043453E-04  -8.589866E-06   0.0            0.0            0.0                           \r\n           124      6     -1.202502E-03  -2.896348E-05  -1.812025E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           131      6     -1.185307E-03   4.102655E-04   2.607217E-05   0.0            0.0            0.0                           \r\n           132      6     -1.193464E-03   3.185167E-04   1.286715E-05   0.0            0.0            0.0                           \r\n           133      6     -1.192151E-03   6.136817E-05  -2.282826E-05   0.0            0.0            0.0                           \r\n           134      6     -1.183313E-03  -3.010272E-05  -3.591616E-05   0.0            0.0            0.0                           \r\n           141      6     -1.153623E-03   3.986093E-04   3.702535E-05   0.0            0.0            0.0                           \r\n           142      6     -1.162830E-03   2.705914E-04   9.827694E-06   0.0            0.0            0.0                           \r\n           143      6     -1.161736E-03   1.016692E-04  -2.457947E-05   0.0            0.0            0.0                           \r\n           144      6     -1.152302E-03  -2.628362E-05  -5.172148E-05   0.0            0.0            0.0                           \r\n           151      6     -1.111347E-03   3.880623E-04   4.702356E-05   0.0            0.0            0.0                           \r\n           152      6     -1.118500E-03   3.020389E-04   2.280409E-05   0.0            0.0            0.0                           \r\n           153      6     -1.117661E-03   5.977819E-05  -4.210725E-05   0.0            0.0            0.0                           \r\n           154      6     -1.110218E-03  -2.602089E-05  -6.655492E-05   0.0            0.0            0.0                           \r\n           161      6     -1.060082E-03   3.707321E-04   5.264271E-05   0.0            0.0            0.0                           \r\n           162      6     -1.067545E-03   2.525687E-04   1.316563E-05   0.0            0.0            0.0                           \r\n           163      6     -1.066278E-03   9.646369E-05  -3.701402E-05   0.0            0.0            0.0                           \r\n           164      6     -1.057858E-03  -2.159335E-05  -7.712188E-05   0.0            0.0            0.0                           \r\n           171      6     -1.003494E-03   3.549622E-04   5.677201E-05   0.0            0.0            0.0                           \r\n           172      6     -1.009060E-03   2.772431E-04   2.651218E-05   0.0            0.0            0.0                           \r\n           173      6     -1.006672E-03   5.701143E-05  -5.546296E-05   0.0            0.0            0.0                           \r\n           174      6     -1.000065E-03  -2.038851E-05  -8.592261E-05   0.0            0.0            0.0                           \r\n           181      6     -9.435985E-04   3.339266E-04   5.681491E-05   0.0            0.0            0.0                           \r\n           182      6     -9.490903E-04   2.287289E-04   1.104242E-05   0.0            0.0            0.0                           \r\n           183      6     -9.477276E-04   8.938416E-05  -4.492898E-05   0.0            0.0            0.0                           \r\n           184      6     -9.407073E-04  -1.575247E-05  -9.066908E-05   0.0            0.0            0.0                           \r\n           191      6     -8.823092E-04   3.161546E-04   5.557434E-05   0.0            0.0            0.0                           \r\n           192      6     -8.878188E-04   2.322431E-04   1.708069E-05   0.0            0.0            0.0                           \r\n           193      6     -8.889303E-04   1.503554E-04  -1.920485E-05   0.0            0.0            0.0                           \r\n           194      6     -8.863703E-04   6.875750E-05  -5.549762E-05   0.0            0.0            0.0                           \r\n           195      6     -8.801805E-04  -1.527180E-05  -9.356743E-05   0.0            0.0            0.0                           \r\n           201      6     -8.231532E-04   2.947896E-04   5.339460E-05   0.0            0.0            0.0                           \r\n           202      6     -8.273344E-04   2.198707E-04   1.507417E-05   0.0            0.0            0.0                           \r\n           203      6     -8.288593E-04   1.406366E-04  -2.121239E-05   0.0            0.0            0.0                           \r\n           204      6     -8.263239E-04   6.458795E-05  -5.731369E-05   0.0            0.0            0.0                           \r\n           205      6     -8.215545E-04  -1.335156E-05  -9.517198E-05   0.0            0.0            0.0                           \r\n           211      6     -7.646618E-04   2.786120E-04   5.017529E-05   0.0            0.0            0.0                           \r\n           212      6     -7.690292E-04   2.059669E-04   1.323575E-05   0.0            0.0            0.0                           \r\n           213      6     -7.698521E-04   1.335544E-04  -2.269311E-05   0.0            0.0            0.0                           \r\n           214      6     -7.682395E-04   6.186954E-05  -5.842820E-05   0.0            0.0            0.0                           \r\n           215      6     -7.636426E-04  -1.137238E-05  -9.514023E-05   0.0            0.0            0.0                           \r\n           221      6     -7.086680E-04   2.591783E-04   4.644354E-05   0.0            0.0            0.0                           \r\n           222      6     -7.125404E-04   1.780734E-04   3.499440E-06   0.0            0.0            0.0                           \r\n           223      6     -7.121156E-04   7.175408E-05  -5.168176E-05   0.0            0.0            0.0                           \r\n           224      6     -7.079567E-04  -9.379859E-06  -9.449370E-05   0.0            0.0            0.0                           \r\n           231      6     -6.539678E-04   2.410525E-04   4.242062E-05   0.0            0.0            0.0                           \r\n           235      6     -6.537518E-04  -8.690899E-06  -9.281683E-05   0.0            0.0            0.0                           \r\n           241      6     -5.225123E-04   1.923546E-04   3.109630E-05   0.0            0.0            0.0                           \r\n           245      6     -5.229207E-04  -4.408929E-06  -8.573970E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           251      6     -4.110423E-04   1.522863E-04   2.145670E-05   0.0            0.0            0.0                           \r\n           255      6     -4.119288E-04  -3.831027E-06  -7.707889E-05   0.0            0.0            0.0                           \r\n           261      6     -3.190819E-04   1.177401E-04   1.299320E-05   0.0            0.0            0.0                           \r\n           265      6     -3.201852E-04  -3.166799E-06  -6.712608E-05   0.0            0.0            0.0                           \r\n           271      6     -2.449632E-04   9.006101E-05   6.927018E-06   0.0            0.0            0.0                           \r\n           275      6     -2.461513E-04  -3.402910E-06  -5.774307E-05   0.0            0.0            0.0                           \r\n           281      6     -1.858935E-04   6.749503E-05   2.342311E-06   0.0            0.0            0.0                           \r\n           285      6     -1.870420E-04  -3.329087E-06  -4.867317E-05   0.0            0.0            0.0                           \r\n           291      6     -1.395338E-04   5.003664E-05  -5.649576E-07   0.0            0.0            0.0                           \r\n           295      6     -1.406033E-04  -3.492413E-06  -4.067654E-05   0.0            0.0            0.0                           \r\n           301      6     -1.034340E-04   3.631608E-05  -2.501577E-06   0.0            0.0            0.0                           \r\n           305      6     -1.043796E-04  -3.352606E-06  -3.347065E-05   0.0            0.0            0.0                           \r\n           311      6     -7.569289E-05   2.599409E-05  -3.514497E-06   0.0            0.0            0.0                           \r\n           315      6     -7.651602E-05  -3.249239E-06  -2.733221E-05   0.0            0.0            0.0                           \r\n           321      6     -5.455561E-05   1.814463E-05  -4.034083E-06   0.0            0.0            0.0                           \r\n           325      6     -5.524896E-05  -2.962459E-06  -2.203224E-05   0.0            0.0            0.0                           \r\n           331      6     -3.868108E-05   1.240965E-05  -4.130463E-06   0.0            0.0            0.0                           \r\n           335      6     -3.925927E-05  -2.679885E-06  -1.763524E-05   0.0            0.0            0.0                           \r\n           341      6     -2.689456E-05   8.212382E-06  -4.030948E-06   0.0            0.0            0.0                           \r\n           345      6     -2.736419E-05  -2.321646E-06  -1.397225E-05   0.0            0.0            0.0                           \r\n           351      6     -1.829785E-05   5.263295E-06  -3.788265E-06   0.0            0.0            0.0                           \r\n           355      6     -1.867456E-05  -1.974210E-06  -1.101765E-05   0.0            0.0            0.0                           \r\n           361      6     -1.212534E-05   3.219975E-06  -3.506392E-06   0.0            0.0            0.0                           \r\n           365      6     -1.241858E-05  -1.613746E-06  -8.656893E-06   0.0            0.0            0.0                           \r\n           371      6     -7.784945E-06   1.870509E-06  -3.222298E-06   0.0            0.0            0.0                           \r\n           375      6     -8.006858E-06  -1.269197E-06  -6.835217E-06   0.0            0.0            0.0                           \r\n           381      6     -4.776460E-06   1.013420E-06  -2.972736E-06   0.0            0.0            0.0                           \r\n           385      6     -4.934698E-06  -9.354515E-07  -5.485008E-06   0.0            0.0            0.0                           \r\n           391      6     -2.699728E-06   4.986427E-07  -2.785177E-06   0.0            0.0            0.0                           \r\n           395      6     -2.801668E-06  -6.148161E-07  -4.553897E-06   0.0            0.0            0.0                           \r\n           401      6     -1.207984E-06   1.981636E-07  -2.662621E-06   0.0            0.0            0.0                           \r\n           405      6     -1.257730E-06  -3.049350E-07  -4.014224E-06   0.0            0.0            0.0                           \r\n           411      6      0.0            0.0           -2.626093E-06   0.0            0.0            0.0                           \r\n           412      6      0.0            0.0           -2.858411E-06   0.0            0.0            0.0                           \r\n           413      6      0.0            0.0           -3.222688E-06   0.0            0.0            0.0                           \r\n           414      6      0.0            0.0           -3.592364E-06   0.0            0.0            0.0                           \r\n           415      6      0.0            0.0           -3.832285E-06   0.0            0.0            0.0                           \r\n           111      7     -7.366746E-04   2.605855E-04   0.0            0.0            0.0            0.0                           \r\n           112      7     -7.436450E-04   1.937221E-04   0.0            0.0            0.0            0.0                           \r\n           113      7     -7.434404E-04   1.052688E-05   0.0            0.0            0.0            0.0                           \r\n           114      7     -7.364021E-04  -5.618393E-05   0.0            0.0            0.0            0.0                           \r\n           121      7     -7.315361E-04   2.567709E-04   1.026412E-05   0.0            0.0            0.0                           \r\n           122      7     -7.398412E-04   1.631472E-04   3.029099E-06   0.0            0.0            0.0                           \r\n           123      7     -7.393128E-04   4.003961E-05  -6.077210E-06   0.0            0.0            0.0                           \r\n           124      7     -7.316063E-04  -5.362492E-05  -1.327267E-05   0.0            0.0            0.0                           \r\n           131      7     -7.168935E-04   2.542679E-04   2.036963E-05   0.0            0.0            0.0                           \r\n           132      7     -7.235784E-04   1.892017E-04   1.033228E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           133      7     -7.235367E-04   1.061073E-05  -1.635258E-05   0.0            0.0            0.0                           \r\n           134      7     -7.168575E-04  -5.432996E-05  -2.630649E-05   0.0            0.0            0.0                           \r\n           141      7     -6.926998E-04   2.445880E-04   2.884617E-05   0.0            0.0            0.0                           \r\n           142      7     -7.003355E-04   1.557144E-04   8.401672E-06   0.0            0.0            0.0                           \r\n           143      7     -7.000450E-04   3.875937E-05  -1.723731E-05   0.0            0.0            0.0                           \r\n           144      7     -6.932581E-04  -5.018918E-05  -3.766986E-05   0.0            0.0            0.0                           \r\n           151      7     -6.604696E-04   2.363419E-04   3.660764E-05   0.0            0.0            0.0                           \r\n           152      7     -6.662346E-04   1.763829E-04   1.831442E-05   0.0            0.0            0.0                           \r\n           153      7     -6.665303E-04   1.075061E-05  -2.973648E-05   0.0            0.0            0.0                           \r\n           154      7     -6.610721E-04  -4.912421E-05  -4.830327E-05   0.0            0.0            0.0                           \r\n           161      7     -6.216385E-04   2.223203E-04   4.061078E-05   0.0            0.0            0.0                           \r\n           162      7     -6.276472E-04   1.420372E-04   1.141257E-05   0.0            0.0            0.0                           \r\n           163      7     -6.270894E-04   3.622017E-05  -2.540030E-05   0.0            0.0            0.0                           \r\n           164      7     -6.210740E-04  -4.406736E-05  -5.527097E-05   0.0            0.0            0.0                           \r\n           171      7     -5.792941E-04   2.100834E-04   4.344465E-05   0.0            0.0            0.0                           \r\n           172      7     -5.835926E-04   1.574304E-04   2.111207E-05   0.0            0.0            0.0                           \r\n           173      7     -5.822072E-04   1.066547E-05  -3.822249E-05   0.0            0.0            0.0                           \r\n           174      7     -5.773827E-04  -4.177328E-05  -6.081488E-05   0.0            0.0            0.0                           \r\n           181      7     -5.351672E-04   1.936510E-04   4.276222E-05   0.0            0.0            0.0                           \r\n           182      7     -5.393980E-04   1.244039E-04   9.896001E-06   0.0            0.0            0.0                           \r\n           183      7     -5.386175E-04   3.283000E-05  -2.998873E-05   0.0            0.0            0.0                           \r\n           184      7     -5.336175E-04  -3.640234E-05  -6.285929E-05   0.0            0.0            0.0                           \r\n           191      7     -4.910945E-04   1.803758E-04   4.126927E-05   0.0            0.0            0.0                           \r\n           192      7     -4.950918E-04   1.257449E-04   1.406494E-05   0.0            0.0            0.0                           \r\n           193      7     -4.960345E-04   7.286084E-05  -1.134958E-05   0.0            0.0            0.0                           \r\n           194      7     -4.942984E-04   2.018144E-05  -3.676776E-05   0.0            0.0            0.0                           \r\n           195      7     -4.900789E-04  -3.454863E-05  -6.368901E-05   0.0            0.0            0.0                           \r\n           201      7     -4.492542E-04   1.645339E-04   3.906379E-05   0.0            0.0            0.0                           \r\n           202      7     -4.524134E-04   1.170816E-04   1.252580E-05   0.0            0.0            0.0                           \r\n           203      7     -4.534912E-04   6.646543E-05  -1.243945E-05   0.0            0.0            0.0                           \r\n           204      7     -4.519184E-04   1.827103E-05  -3.723718E-05   0.0            0.0            0.0                           \r\n           205      7     -4.486112E-04  -3.146297E-05  -6.349741E-05   0.0            0.0            0.0                           \r\n           211      7     -4.090050E-04   1.528862E-04   3.617690E-05   0.0            0.0            0.0                           \r\n           212      7     -4.120099E-04   1.073946E-04   1.112941E-05   0.0            0.0            0.0                           \r\n           213      7     -4.126805E-04   6.221529E-05  -1.309875E-05   0.0            0.0            0.0                           \r\n           214      7     -4.116699E-04   1.755372E-05  -3.717391E-05   0.0            0.0            0.0                           \r\n           215      7     -4.087272E-04  -2.838670E-05  -6.211349E-05   0.0            0.0            0.0                           \r\n           221      7     -3.710988E-04   1.391268E-04   3.297198E-05   0.0            0.0            0.0                           \r\n           222      7     -3.738377E-04   8.940353E-05   4.476920E-06   0.0            0.0            0.0                           \r\n           223      7     -3.736958E-04   2.449534E-05  -3.190562E-05   0.0            0.0            0.0                           \r\n           224      7     -3.709861E-04  -2.529218E-05  -6.034357E-05   0.0            0.0            0.0                           \r\n           231      7     -3.350165E-04   1.266498E-04   2.965079E-05   0.0            0.0            0.0                           \r\n           235      7     -3.351993E-04  -2.322889E-05  -5.794858E-05   0.0            0.0            0.0                           \r\n           241      7     -2.514873E-04   9.434476E-05   2.100276E-05   0.0            0.0            0.0                           \r\n           245      7     -2.519660E-04  -1.625455E-05  -5.039500E-05   0.0            0.0            0.0                           \r\n           251      7     -1.848847E-04   6.969161E-05   1.408390E-05   0.0            0.0            0.0                           \r\n           255      7     -1.855681E-04  -1.259141E-05  -4.257157E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           261      7     -1.333882E-04   4.980562E-05   8.377661E-06   0.0            0.0            0.0                           \r\n           265      7     -1.341137E-04  -9.437522E-06  -3.466088E-05   0.0            0.0            0.0                           \r\n           271      7     -9.473105E-05   3.507120E-05   4.532596E-06   0.0            0.0            0.0                           \r\n           275      7     -9.543016E-05  -7.406221E-06  -2.784011E-05   0.0            0.0            0.0                           \r\n           281      7     -6.610711E-05   2.395218E-05   1.828403E-06   0.0            0.0            0.0                           \r\n           285      7     -6.672383E-05  -5.675633E-06  -2.183837E-05   0.0            0.0            0.0                           \r\n           291      7     -4.535557E-05   1.605881E-05   2.298623E-07   0.0            0.0            0.0                           \r\n           295      7     -4.588297E-05  -4.466001E-06  -1.695680E-05   0.0            0.0            0.0                           \r\n           301      7     -3.047341E-05   1.038231E-05  -7.325816E-07   0.0            0.0            0.0                           \r\n           305      7     -3.090331E-05  -3.435315E-06  -1.292918E-05   0.0            0.0            0.0                           \r\n           311      7     -2.000400E-05   6.503921E-06  -1.181657E-06   0.0            0.0            0.0                           \r\n           315      7     -2.034932E-05  -2.667872E-06  -9.758087E-06   0.0            0.0            0.0                           \r\n           321      7     -1.273643E-05   3.848863E-06  -1.355477E-06   0.0            0.0            0.0                           \r\n           325      7     -1.300508E-05  -2.031134E-06  -7.248372E-06   0.0            0.0            0.0                           \r\n           331      7     -7.804126E-06   2.117423E-06  -1.340066E-06   0.0            0.0            0.0                           \r\n           335      7     -8.011067E-06  -1.542007E-06  -5.321484E-06   0.0            0.0            0.0                           \r\n           341      7     -4.528225E-06   1.012241E-06  -1.236039E-06   0.0            0.0            0.0                           \r\n           345      7     -4.683713E-06  -1.152038E-06  -3.848072E-06   0.0            0.0            0.0                           \r\n           351      7     -2.426180E-06   3.480224E-07  -1.090681E-06   0.0            0.0            0.0                           \r\n           355      7     -2.541703E-06  -8.488841E-07  -2.744225E-06   0.0            0.0            0.0                           \r\n           361      7     -1.136241E-06  -1.689206E-08  -9.370593E-07   0.0            0.0            0.0                           \r\n           365      7     -1.219929E-06  -6.158235E-07  -1.930737E-06   0.0            0.0            0.0                           \r\n           371      7     -4.020005E-07  -1.875435E-07  -7.995700E-07   0.0            0.0            0.0                           \r\n           375      7     -4.612261E-07  -4.326635E-07  -1.341883E-06   0.0            0.0            0.0                           \r\n           381      7     -3.776265E-08  -2.265690E-07  -6.828035E-07   0.0            0.0            0.0                           \r\n           385      7     -7.769022E-08  -2.931116E-07  -9.343532E-07   0.0            0.0            0.0                           \r\n           391      7      8.958970E-08  -1.895311E-07  -6.003042E-07   0.0            0.0            0.0                           \r\n           395      7      6.500694E-08  -1.790724E-07  -6.648655E-07   0.0            0.0            0.0                           \r\n           401      7      7.701989E-08  -1.044436E-07  -5.467518E-07   0.0            0.0            0.0                           \r\n           405      7      6.534348E-08  -8.564069E-08  -5.160099E-07   0.0            0.0            0.0                           \r\n           411      7      0.0            0.0           -5.315599E-07   0.0            0.0            0.0                           \r\n           412      7      0.0            0.0           -5.142880E-07   0.0            0.0            0.0                           \r\n           413      7      0.0            0.0           -4.970613E-07   0.0            0.0            0.0                           \r\n           414      7      0.0            0.0           -4.809218E-07   0.0            0.0            0.0                           \r\n           415      7      0.0            0.0           -4.653448E-07   0.0            0.0            0.0                           \r\n           111      8     -4.715578E-04   1.729593E-04   0.0            0.0            0.0            0.0                           \r\n           112      8     -4.772723E-04   1.239339E-04   0.0            0.0            0.0            0.0                           \r\n           113      8     -4.778097E-04  -7.312296E-06   0.0            0.0            0.0            0.0                           \r\n           114      8     -4.724019E-04  -5.630255E-05   0.0            0.0            0.0            0.0                           \r\n           121      8     -4.676183E-04   1.696245E-04   7.926174E-06   0.0            0.0            0.0                           \r\n           122      8     -4.745258E-04   1.021609E-04   2.454667E-06   0.0            0.0            0.0                           \r\n           123      8     -4.744892E-04   1.372064E-05  -4.378135E-06   0.0            0.0            0.0                           \r\n           124      8     -4.688011E-04  -5.388846E-05  -9.822012E-06   0.0            0.0            0.0                           \r\n           131      8     -4.564056E-04   1.678137E-04   1.576080E-05   0.0            0.0            0.0                           \r\n           132      8     -4.618667E-04   1.203639E-04   8.110221E-06   0.0            0.0            0.0                           \r\n           133      8     -4.625298E-04  -6.933094E-06  -1.188616E-05   0.0            0.0            0.0                           \r\n           134      8     -4.574269E-04  -5.437172E-05  -1.947725E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           141      8     -4.378685E-04   1.597504E-04   2.226437E-05   0.0            0.0            0.0                           \r\n           142      8     -4.441743E-04   9.638623E-05   6.844579E-06   0.0            0.0            0.0                           \r\n           143      8     -4.443265E-04   1.323792E-05  -1.231880E-05   0.0            0.0            0.0                           \r\n           144      8     -4.394219E-04  -5.029853E-05  -2.775556E-05   0.0            0.0            0.0                           \r\n           151      8     -4.131878E-04   1.532678E-04   2.825023E-05   0.0            0.0            0.0                           \r\n           152      8     -4.178247E-04   1.102917E-04   1.436853E-05   0.0            0.0            0.0                           \r\n           153      8     -4.187260E-04  -5.940229E-06  -2.132794E-05   0.0            0.0            0.0                           \r\n           154      8     -4.146832E-04  -4.893458E-05  -3.550804E-05   0.0            0.0            0.0                           \r\n           161      8     -3.836126E-04   1.418594E-04   3.104044E-05   0.0            0.0            0.0                           \r\n           162      8     -3.884317E-04   8.584791E-05   9.349092E-06   0.0            0.0            0.0                           \r\n           163      8     -3.882577E-04   1.220300E-05  -1.777030E-05   0.0            0.0            0.0                           \r\n           164      8     -3.839143E-04  -4.388439E-05  -4.014784E-05   0.0            0.0            0.0                           \r\n           171      8     -3.517379E-04   1.322890E-04   3.292458E-05   0.0            0.0            0.0                           \r\n           172      8     -3.550503E-04   9.563433E-05   1.634902E-05   0.0            0.0            0.0                           \r\n           173      8     -3.542115E-04  -4.732562E-06  -2.678582E-05   0.0            0.0            0.0                           \r\n           174      8     -3.506220E-04  -4.124354E-05  -4.365451E-05   0.0            0.0            0.0                           \r\n           181      8     -3.190305E-04   1.193766E-04   3.181709E-05   0.0            0.0            0.0                           \r\n           182      8     -3.222659E-04   7.259564E-05   8.103098E-06   0.0            0.0            0.0                           \r\n           183      8     -3.217902E-04   1.084354E-05  -2.044415E-05   0.0            0.0            0.0                           \r\n           184      8     -3.181580E-04  -3.594622E-05  -4.418966E-05   0.0            0.0            0.0                           \r\n           191      8     -2.871681E-04   1.093719E-04   3.022970E-05   0.0            0.0            0.0                           \r\n           192      8     -2.900597E-04   7.286399E-05   1.091642E-05   0.0            0.0            0.0                           \r\n           193      8     -2.908136E-04   3.783542E-05  -6.958844E-06   0.0            0.0            0.0                           \r\n           194      8     -2.895986E-04   2.953341E-06  -2.483236E-05   0.0            0.0            0.0                           \r\n           195      8     -2.866733E-04  -3.363457E-05  -4.396221E-05   0.0            0.0            0.0                           \r\n           201      8     -2.574362E-04   9.753538E-05   2.811078E-05   0.0            0.0            0.0                           \r\n           202      8     -2.598084E-04   6.670519E-05   9.682512E-06   0.0            0.0            0.0                           \r\n           203      8     -2.605508E-04   3.354224E-05  -7.572490E-06   0.0            0.0            0.0                           \r\n           204      8     -2.595531E-04   2.224770E-06  -2.466463E-05   0.0            0.0            0.0                           \r\n           205      8     -2.572119E-04  -3.032945E-05  -4.295274E-05   0.0            0.0            0.0                           \r\n           211      8     -2.296370E-04   8.907896E-05   2.559802E-05   0.0            0.0            0.0                           \r\n           212      8     -2.317007E-04   5.986026E-05   8.563858E-06   0.0            0.0            0.0                           \r\n           213      8     -2.322154E-04   3.096341E-05  -7.832157E-06   0.0            0.0            0.0                           \r\n           214      8     -2.315577E-04   2.439149E-06  -2.410206E-05   0.0            0.0            0.0                           \r\n           215      8     -2.296420E-04  -2.711696E-05  -4.110514E-05   0.0            0.0            0.0                           \r\n           221      8     -2.039024E-04   7.926319E-05   2.290194E-05   0.0            0.0            0.0                           \r\n           222      8     -2.058254E-04   4.801321E-05   3.946918E-06   0.0            0.0            0.0                           \r\n           223      8     -2.057923E-04   7.397831E-06  -2.010437E-05   0.0            0.0            0.0                           \r\n           224      8     -2.039850E-04  -2.392320E-05  -3.904428E-05   0.0            0.0            0.0                           \r\n           231      8     -1.800485E-04   7.060183E-05   2.020698E-05   0.0            0.0            0.0                           \r\n           235      8     -1.803058E-04  -2.157046E-05  -3.664282E-05   0.0            0.0            0.0                           \r\n           241      8     -1.268914E-04   4.903160E-05   1.365764E-05   0.0            0.0            0.0                           \r\n           245      8     -1.272764E-04  -1.462614E-05  -2.997525E-05   0.0            0.0            0.0                           \r\n           251      8     -8.712405E-05   3.377629E-05   8.742764E-06   0.0            0.0            0.0                           \r\n           255      8     -8.758391E-05  -1.062433E-05  -2.376998E-05   0.0            0.0            0.0                           \r\n           261      8     -5.836448E-05   2.227434E-05   4.957364E-06   0.0            0.0            0.0                           \r\n           265      8     -5.880278E-05  -7.421932E-06  -1.807411E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           271      8     -3.830418E-05   1.441140E-05   2.569679E-06   0.0            0.0            0.0                           \r\n           275      8     -3.869066E-05  -5.326553E-06  -1.353744E-05   0.0            0.0            0.0                           \r\n           281      8     -2.453604E-05   8.932280E-06   1.019099E-06   0.0            0.0            0.0                           \r\n           285      8     -2.485011E-05  -3.723183E-06  -9.870209E-06   0.0            0.0            0.0                           \r\n           291      8     -1.534284E-05   5.377944E-06   1.710495E-07   0.0            0.0            0.0                           \r\n           295      8     -1.559103E-05  -2.640900E-06  -7.109066E-06   0.0            0.0            0.0                           \r\n           301      8     -9.293454E-06   3.052583E-06  -2.835810E-07   0.0            0.0            0.0                           \r\n           305      8     -9.480277E-06  -1.832804E-06  -5.016269E-06   0.0            0.0            0.0                           \r\n           311      8     -5.416434E-06   1.622002E-06  -4.674182E-07   0.0            0.0            0.0                           \r\n           315      8     -5.555030E-06  -1.274051E-06  -3.492729E-06   0.0            0.0            0.0                           \r\n           321      8     -2.982124E-06   7.534970E-07  -5.103961E-07   0.0            0.0            0.0                           \r\n           325      8     -3.081489E-06  -8.701596E-07  -2.388111E-06   0.0            0.0            0.0                           \r\n           331      8     -1.503716E-06   2.586916E-07  -4.769229E-07   0.0            0.0            0.0                           \r\n           335      8     -1.574160E-06  -5.880007E-07  -1.605666E-06   0.0            0.0            0.0                           \r\n           341      8     -6.395857E-07  -4.090220E-09  -4.098531E-07   0.0            0.0            0.0                           \r\n           345      8     -6.882001E-07  -3.922586E-07  -1.059551E-06   0.0            0.0            0.0                           \r\n           351      8     -1.643033E-07  -1.285249E-07  -3.368201E-07   0.0            0.0            0.0                           \r\n           355      8     -1.974294E-07  -2.556098E-07  -6.827671E-07   0.0            0.0            0.0                           \r\n           361      8      7.082386E-08  -1.677396E-07  -2.664092E-07   0.0            0.0            0.0                           \r\n           365      8      4.880375E-08  -1.651831E-07  -4.298803E-07   0.0            0.0            0.0                           \r\n           371      8      1.626811E-07  -1.640273E-07  -2.091327E-07   0.0            0.0            0.0                           \r\n           375      8      1.483609E-07  -1.024059E-07  -2.608367E-07   0.0            0.0            0.0                           \r\n           381      8      1.707404E-07  -1.337405E-07  -1.630113E-07   0.0            0.0            0.0                           \r\n           385      8      1.617908E-07  -6.253431E-08  -1.536935E-07   0.0            0.0            0.0                           \r\n           391      8      1.330768E-07  -9.375619E-08  -1.320669E-07   0.0            0.0            0.0                           \r\n           395      8      1.279122E-07  -3.444401E-08  -8.706841E-08   0.0            0.0            0.0                           \r\n           401      8      7.140681E-08  -4.743411E-08  -1.126183E-07   0.0            0.0            0.0                           \r\n           405      8      6.905152E-08  -1.561452E-08  -5.257157E-08   0.0            0.0            0.0                           \r\n           411      8      0.0            0.0           -1.071146E-07   0.0            0.0            0.0                           \r\n           412      8      0.0            0.0           -9.262341E-08   0.0            0.0            0.0                           \r\n           413      8      0.0            0.0           -7.374443E-08   0.0            0.0            0.0                           \r\n           414      8      0.0            0.0           -5.503506E-08   0.0            0.0            0.0                           \r\n           415      8      0.0            0.0           -4.086068E-08   0.0            0.0            0.0                           \r\n           111      9     -3.139066E-04   1.200438E-04   0.0            0.0            0.0            0.0                           \r\n           112      9     -3.185922E-04   8.330718E-05   0.0            0.0            0.0            0.0                           \r\n           113      9     -3.195494E-04  -1.262615E-05   0.0            0.0            0.0            0.0                           \r\n           114      9     -3.153639E-04  -4.941778E-05   0.0            0.0            0.0            0.0                           \r\n           121      9     -3.108745E-04   1.171346E-04   6.098423E-06   0.0            0.0            0.0                           \r\n           122      9     -3.166179E-04   6.750787E-05   1.946680E-06   0.0            0.0            0.0                           \r\n           123      9     -3.168658E-04   2.654377E-06  -3.197253E-06   0.0            0.0            0.0                           \r\n           124      9     -3.126625E-04  -4.719263E-05  -7.329747E-06   0.0            0.0            0.0                           \r\n           131      9     -3.022595E-04   1.158430E-04   1.215734E-05   0.0            0.0            0.0                           \r\n           132      9     -3.067242E-04   8.046971E-05   6.302650E-06   0.0            0.0            0.0                           \r\n           133      9     -3.077793E-04  -1.212094E-05  -8.738741E-06   0.0            0.0            0.0                           \r\n           134      9     -3.038505E-04  -4.757017E-05  -1.455097E-05   0.0            0.0            0.0                           \r\n           141      9     -2.879904E-04   1.091084E-04   1.714263E-05   0.0            0.0            0.0                           \r\n           142      9     -2.932029E-04   6.297490E-05   5.457000E-06   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           143      9     -2.936027E-04   2.615990E-06  -8.931765E-06   0.0            0.0            0.0                           \r\n           144      9     -2.900625E-04  -4.375799E-05  -2.065283E-05   0.0            0.0            0.0                           \r\n           151      9     -2.689815E-04   1.039906E-04   2.176828E-05   0.0            0.0            0.0                           \r\n           152      9     -2.727195E-04   7.249140E-05   1.116952E-05   0.0            0.0            0.0                           \r\n           153      9     -2.739407E-04  -1.076562E-05  -1.548728E-05   0.0            0.0            0.0                           \r\n           154      9     -2.709270E-04  -4.235918E-05  -2.639456E-05   0.0            0.0            0.0                           \r\n           161      9     -2.462987E-04   9.465970E-05   2.369372E-05   0.0            0.0            0.0                           \r\n           162      9     -2.501718E-04   5.474924E-05   7.479874E-06   0.0            0.0            0.0                           \r\n           163      9     -2.502116E-04   2.408972E-06  -1.261938E-05   0.0            0.0            0.0                           \r\n           164      9     -2.470560E-04  -3.762413E-05  -2.951351E-05   0.0            0.0            0.0                           \r\n           171      9     -2.221200E-04   8.712101E-05   2.492554E-05   0.0            0.0            0.0                           \r\n           172      9     -2.246795E-04   6.103880E-05   1.252874E-05   0.0            0.0            0.0                           \r\n           173      9     -2.241541E-04  -9.023582E-06  -1.903376E-05   0.0            0.0            0.0                           \r\n           174      9     -2.214403E-04  -3.501056E-05  -3.173837E-05   0.0            0.0            0.0                           \r\n           181      9     -1.976793E-04   7.691259E-05   2.363003E-05   0.0            0.0            0.0                           \r\n           182      9     -2.001519E-04   4.464629E-05   6.394255E-06   0.0            0.0            0.0                           \r\n           183      9     -1.998444E-04   2.138047E-06  -1.417983E-05   0.0            0.0            0.0                           \r\n           184      9     -1.971638E-04  -3.014827E-05  -3.146443E-05   0.0            0.0            0.0                           \r\n           191      9     -1.744626E-04   6.930729E-05   2.207992E-05   0.0            0.0            0.0                           \r\n           192      9     -1.765596E-04   4.439450E-05   8.267152E-06   0.0            0.0            0.0                           \r\n           193      9     -1.771468E-04   2.072038E-05  -4.392602E-06   0.0            0.0            0.0                           \r\n           194      9     -1.762758E-04  -2.847635E-06  -1.704658E-05   0.0            0.0            0.0                           \r\n           195      9     -1.742177E-04  -2.782349E-05  -3.074318E-05   0.0            0.0            0.0                           \r\n           201      9     -1.531775E-04   6.039476E-05   2.014127E-05   0.0            0.0            0.0                           \r\n           202      9     -1.549573E-04   3.995403E-05   7.263682E-06   0.0            0.0            0.0                           \r\n           203      9     -1.554627E-04   1.778254E-05  -4.750405E-06   0.0            0.0            0.0                           \r\n           204      9     -1.548176E-04  -2.977692E-06  -1.660920E-05   0.0            0.0            0.0                           \r\n           205      9     -1.531334E-04  -2.472419E-05  -2.943556E-05   0.0            0.0            0.0                           \r\n           211      9     -1.338442E-04   5.420286E-05   1.801424E-05   0.0            0.0            0.0                           \r\n           212      9     -1.352658E-04   3.505296E-05   6.353619E-06   0.0            0.0            0.0                           \r\n           213      9     -1.356508E-04   1.620131E-05  -4.817693E-06   0.0            0.0            0.0                           \r\n           214      9     -1.352097E-04  -2.379082E-06  -1.588402E-05   0.0            0.0            0.0                           \r\n           215      9     -1.339442E-04  -2.178328E-05  -2.755721E-05   0.0            0.0            0.0                           \r\n           221      9     -1.162604E-04   4.714381E-05   1.579640E-05   0.0            0.0            0.0                           \r\n           222      9     -1.176097E-04   2.711284E-05   3.108416E-06   0.0            0.0            0.0                           \r\n           223      9     -1.176158E-04   1.196580E-06  -1.289196E-05   0.0            0.0            0.0                           \r\n           224      9     -1.163879E-04  -1.890033E-05  -2.558634E-05   0.0            0.0            0.0                           \r\n           231      9     -1.003947E-04   4.107735E-05   1.365156E-05   0.0            0.0            0.0                           \r\n           235      9     -1.006247E-04  -1.671190E-05  -2.346249E-05   0.0            0.0            0.0                           \r\n           241      9     -6.636477E-05   2.656373E-05   8.749321E-06   0.0            0.0            0.0                           \r\n           245      9     -6.664032E-05  -1.075519E-05  -1.804447E-05   0.0            0.0            0.0                           \r\n           251      9     -4.251461E-05   1.705471E-05   5.301341E-06   0.0            0.0            0.0                           \r\n           255      9     -4.280747E-05  -7.337793E-06  -1.342149E-05   0.0            0.0            0.0                           \r\n           261      9     -2.640545E-05   1.035677E-05   2.827997E-06   0.0            0.0            0.0                           \r\n           265      9     -2.666070E-05  -4.777794E-06  -9.522193E-06   0.0            0.0            0.0                           \r\n           271      9     -1.598488E-05   6.140818E-06   1.373010E-06   0.0            0.0            0.0                           \r\n           275      9     -1.619279E-05  -3.172620E-06  -6.642098E-06   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           281      9     -9.370082E-06   3.434139E-06   5.052998E-07   0.0            0.0            0.0                           \r\n           285      9     -9.526306E-06  -2.042084E-06  -4.495371E-06   0.0            0.0            0.0                           \r\n           291      9     -5.314204E-06   1.836619E-06   6.980986E-08   0.0            0.0            0.0                           \r\n           295      9     -5.428586E-06  -1.325230E-06  -2.997453E-06   0.0            0.0            0.0                           \r\n           301      9     -2.876140E-06   8.926504E-07  -1.343183E-07   0.0            0.0            0.0                           \r\n           305      9     -2.955674E-06  -8.394048E-07  -1.953442E-06   0.0            0.0            0.0                           \r\n           311      9     -1.461555E-06   3.757904E-07  -2.021272E-07   0.0            0.0            0.0                           \r\n           315      9     -1.516050E-06  -5.285240E-07  -1.250867E-06   0.0            0.0            0.0                           \r\n           321      9     -6.670508E-07   1.044742E-07  -2.031096E-07   0.0            0.0            0.0                           \r\n           325      9     -7.029902E-07  -3.265317E-07  -7.847555E-07   0.0            0.0            0.0                           \r\n           331      9     -2.427885E-07  -2.473303E-08  -1.767620E-07   0.0            0.0            0.0                           \r\n           335      9     -2.661764E-07  -1.972439E-07  -4.807839E-07   0.0            0.0            0.0                           \r\n           341      9     -3.231988E-08  -7.437836E-08  -1.403017E-07   0.0            0.0            0.0                           \r\n           345      9     -4.706937E-08  -1.174667E-07  -2.880236E-07   0.0            0.0            0.0                           \r\n           351      9      5.976314E-08  -8.596496E-08  -1.068987E-07   0.0            0.0            0.0                           \r\n           355      9      5.061992E-08  -6.689117E-08  -1.662919E-07   0.0            0.0            0.0                           \r\n           361      9      8.826124E-08  -7.710921E-08  -7.760162E-08   0.0            0.0            0.0                           \r\n           365      9      8.275291E-08  -3.772245E-08  -9.276368E-08   0.0            0.0            0.0                           \r\n           371      9      8.586915E-08  -6.254071E-08  -5.586168E-08   0.0            0.0            0.0                           \r\n           375      9      8.263991E-08  -1.963389E-08  -4.803193E-08   0.0            0.0            0.0                           \r\n           381      9      6.907124E-08  -4.521448E-08  -3.947294E-08   0.0            0.0            0.0                           \r\n           385      9      6.724488E-08  -1.016782E-08  -2.270009E-08   0.0            0.0            0.0                           \r\n           391      9      4.717355E-08  -2.935991E-08  -2.907743E-08   0.0            0.0            0.0                           \r\n           395      9      4.621482E-08  -4.520003E-09  -8.244018E-09   0.0            0.0            0.0                           \r\n           401      9      2.364189E-08  -1.417245E-08  -2.282607E-08   0.0            0.0            0.0                           \r\n           405      9      2.323129E-08  -1.813635E-09  -1.446993E-09   0.0            0.0            0.0                           \r\n           411      9      0.0            0.0           -2.105345E-08   0.0            0.0            0.0                           \r\n           412      9      0.0            0.0           -1.635581E-08   0.0            0.0            0.0                           \r\n           413      9      0.0            0.0           -1.007759E-08   0.0            0.0            0.0                           \r\n           414      9      0.0            0.0           -3.814049E-09   0.0            0.0            0.0                           \r\n           415      9      0.0            0.0            8.355661E-10   0.0            0.0            0.0                           \r\n           111     10     -2.152995E-04   8.601928E-05   0.0            0.0            0.0            0.0                           \r\n           112     10     -2.191442E-04   5.803717E-05   0.0            0.0            0.0            0.0                           \r\n           113     10     -2.203318E-04  -1.313167E-05   0.0            0.0            0.0            0.0                           \r\n           114     10     -2.170801E-04  -4.123829E-05   0.0            0.0            0.0            0.0                           \r\n           121     10     -2.129586E-04   8.348790E-05   4.683473E-06   0.0            0.0            0.0                           \r\n           122     10     -2.177385E-04   4.641662E-05   1.525496E-06   0.0            0.0            0.0                           \r\n           123     10     -2.181505E-04  -1.874715E-06  -2.356423E-06   0.0            0.0            0.0                           \r\n           124     10     -2.150588E-04  -3.921926E-05  -5.501041E-06   0.0            0.0            0.0                           \r\n           131     10     -2.063239E-04   8.258886E-05   9.366256E-06   0.0            0.0            0.0                           \r\n           132     10     -2.099790E-04   5.577421E-05   4.872156E-06   0.0            0.0            0.0                           \r\n           133     10     -2.112433E-04  -1.259494E-05  -6.475249E-06   0.0            0.0            0.0                           \r\n           134     10     -2.082060E-04  -3.955220E-05  -1.093903E-05   0.0            0.0            0.0                           \r\n           141     10     -1.952995E-04   7.695820E-05   1.319313E-05   0.0            0.0            0.0                           \r\n           142     10     -1.996174E-04   4.283406E-05   4.302892E-06   0.0            0.0            0.0                           \r\n           143     10     -2.001531E-04  -1.677468E-06  -6.541195E-06   0.0            0.0            0.0                           \r\n           144     10     -1.976191E-04  -3.608934E-05  -1.547801E-05   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           151     10     -1.805880E-04   7.291080E-05   1.678406E-05   0.0            0.0            0.0                           \r\n           152     10     -1.836100E-04   4.942181E-05   8.649281E-06   0.0            0.0            0.0                           \r\n           153     10     -1.849877E-04  -1.114777E-05  -1.134457E-05   0.0            0.0            0.0                           \r\n           154     10     -1.827367E-04  -3.478807E-05  -1.978748E-05   0.0            0.0            0.0                           \r\n           161     10     -1.630855E-04   6.525289E-05   1.810450E-05   0.0            0.0            0.0                           \r\n           162     10     -1.662093E-04   3.635155E-05   5.920385E-06   0.0            0.0            0.0                           \r\n           163     10     -1.663693E-04  -1.450106E-06  -9.055169E-06   0.0            0.0            0.0                           \r\n           164     10     -1.640752E-04  -3.050435E-05  -2.189976E-05   0.0            0.0            0.0                           \r\n           171     10     -1.446181E-04   5.928450E-05   1.890076E-05   0.0            0.0            0.0                           \r\n           172     10     -1.466031E-04   4.040585E-05   9.564835E-06   0.0            0.0            0.0                           \r\n           173     10     -1.462663E-04  -9.278231E-06  -1.366559E-05   0.0            0.0            0.0                           \r\n           174     10     -1.441882E-04  -2.809592E-05  -2.331117E-05   0.0            0.0            0.0                           \r\n           181     10     -1.262183E-04   5.117736E-05   1.757243E-05   0.0            0.0            0.0                           \r\n           182     10     -1.281103E-04   2.856281E-05   4.959772E-06   0.0            0.0            0.0                           \r\n           183     10     -1.279010E-04  -1.166435E-06  -9.963591E-06   0.0            0.0            0.0                           \r\n           184     10     -1.258991E-04  -2.380550E-05  -2.263469E-05   0.0            0.0            0.0                           \r\n           191     10     -1.091762E-04   4.535778E-05   1.613973E-05   0.0            0.0            0.0                           \r\n           192     10     -1.107025E-04   2.807930E-05   6.190968E-06   0.0            0.0            0.0                           \r\n           193     10     -1.111536E-04   1.182968E-05  -2.833581E-06   0.0            0.0            0.0                           \r\n           194     10     -1.105184E-04  -4.342401E-06  -1.185003E-05   0.0            0.0            0.0                           \r\n           195     10     -1.090536E-04  -2.166976E-05  -2.172712E-05   0.0            0.0            0.0                           \r\n           201     10     -9.383055E-05   3.860687E-05   1.442948E-05   0.0            0.0            0.0                           \r\n           202     10     -9.516672E-05   2.484169E-05   5.373656E-06   0.0            0.0            0.0                           \r\n           203     10     -9.550835E-05   9.786114E-06  -3.049737E-06   0.0            0.0            0.0                           \r\n           204     10     -9.508508E-05  -4.187457E-06  -1.133007E-05   0.0            0.0            0.0                           \r\n           205     10     -9.385943E-05  -1.894362E-05  -2.038731E-05   0.0            0.0            0.0                           \r\n           211     10     -8.029462E-05   3.404297E-05   1.266795E-05   0.0            0.0            0.0                           \r\n           212     10     -8.127763E-05   2.129549E-05   4.633388E-06   0.0            0.0            0.0                           \r\n           213     10     -8.156207E-05   8.809294E-06  -3.028430E-06   0.0            0.0            0.0                           \r\n           214     10     -8.125966E-05  -3.477609E-06  -1.060313E-05   0.0            0.0            0.0                           \r\n           215     10     -8.041404E-05  -1.641719E-05  -1.867212E-05   0.0            0.0            0.0                           \r\n           221     10     -6.820307E-05   2.893431E-05   1.087724E-05   0.0            0.0            0.0                           \r\n           222     10     -6.915100E-05   1.589952E-05   2.330779E-06   0.0            0.0            0.0                           \r\n           223     10     -6.916869E-05  -8.860315E-07  -8.381121E-06   0.0            0.0            0.0                           \r\n           224     10     -6.832305E-05  -1.397741E-05  -1.694368E-05   0.0            0.0            0.0                           \r\n           231     10     -5.758567E-05   2.465513E-05   9.198237E-06   0.0            0.0            0.0                           \r\n           235     10     -5.776519E-05  -1.211196E-05  -1.517940E-05   0.0            0.0            0.0                           \r\n           241     10     -3.566506E-05   1.482892E-05   5.568784E-06   0.0            0.0            0.0                           \r\n           245     10     -3.585236E-05  -7.348182E-06  -1.097009E-05   0.0            0.0            0.0                           \r\n           251     10     -2.129063E-05   8.867214E-06   3.177320E-06   0.0            0.0            0.0                           \r\n           255     10     -2.147229E-05  -4.708047E-06  -7.647450E-06   0.0            0.0            0.0                           \r\n           261     10     -1.223588E-05   4.945952E-06   1.582094E-06   0.0            0.0            0.0                           \r\n           265     10     -1.238185E-05  -2.853752E-06  -5.057435E-06   0.0            0.0            0.0                           \r\n           271     10     -6.814619E-06   2.678498E-06   7.097308E-07   0.0            0.0            0.0                           \r\n           275     10     -6.924958E-06  -1.757327E-06  -3.280747E-06   0.0            0.0            0.0                           \r\n           281     10     -3.639731E-06   1.340768E-06   2.342492E-07   0.0            0.0            0.0                           \r\n           285     10     -3.716476E-06  -1.042948E-06  -2.057988E-06   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           291     10     -1.858353E-06   6.261932E-07   1.715712E-08   0.0            0.0            0.0                           \r\n           295     10     -1.910460E-06  -6.208658E-07  -1.267393E-06   0.0            0.0            0.0                           \r\n           301     10     -8.857004E-07   2.485580E-07  -6.961136E-08   0.0            0.0            0.0                           \r\n           305     10     -9.191349E-07  -3.594829E-07  -7.609662E-07   0.0            0.0            0.0                           \r\n           311     10     -3.791468E-07   6.770247E-08  -9.083384E-08   0.0            0.0            0.0                           \r\n           315     10     -4.002821E-07  -2.050725E-07  -4.462957E-07   0.0            0.0            0.0                           \r\n           321     10     -1.290095E-07  -1.056198E-08  -8.258133E-08   0.0            0.0            0.0                           \r\n           325     10     -1.417977E-07  -1.145089E-07  -2.557356E-07   0.0            0.0            0.0                           \r\n           331     10     -1.523212E-08  -3.838498E-08  -6.633874E-08   0.0            0.0            0.0                           \r\n           335     10     -2.284375E-08  -6.141856E-08  -1.416354E-07   0.0            0.0            0.0                           \r\n           341     10      2.869560E-08  -4.130651E-08  -4.836031E-08   0.0            0.0            0.0                           \r\n           345     10      2.433333E-08  -3.233980E-08  -7.628068E-08   0.0            0.0            0.0                           \r\n           351     10      4.002465E-08  -3.599662E-08  -3.403795E-08   0.0            0.0            0.0                           \r\n           355     10      3.758780E-08  -1.561655E-08  -3.874793E-08   0.0            0.0            0.0                           \r\n           361     10      3.693860E-08  -2.728876E-08  -2.263115E-08   0.0            0.0            0.0                           \r\n           365     10      3.562679E-08  -7.336475E-09  -1.864186E-08   0.0            0.0            0.0                           \r\n           371     10      2.925399E-08  -1.963251E-08  -1.491483E-08   0.0            0.0            0.0                           \r\n           375     10      2.857895E-08  -2.775632E-09  -7.703713E-09   0.0            0.0            0.0                           \r\n           381     10      2.068480E-08  -1.288511E-08  -9.522814E-09   0.0            0.0            0.0                           \r\n           385     10      2.035205E-08  -9.350497E-10  -2.379014E-09   0.0            0.0            0.0                           \r\n           391     10      1.298292E-08  -7.811437E-09  -6.315603E-09   0.0            0.0            0.0                           \r\n           395     10      1.283351E-08  -6.646342E-11   2.959341E-10   0.0            0.0            0.0                           \r\n           401     10      6.182059E-09  -3.598715E-09  -4.487289E-09   0.0            0.0            0.0                           \r\n           405     10      6.125025E-09   5.424363E-11   1.353192E-09   0.0            0.0            0.0                           \r\n           411     10      0.0            0.0           -3.970876E-09   0.0            0.0            0.0                           \r\n           412     10      0.0            0.0           -2.763596E-09   0.0            0.0            0.0                           \r\n           413     10      0.0            0.0           -1.133795E-09   0.0            0.0            0.0                           \r\n           414     10      0.0            0.0            4.987604E-10   0.0            0.0            0.0                           \r\n           415     10      0.0            0.0            1.701567E-09   0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           114      0     -5.166686E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      0     -1.033337E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           134      0     -1.033337E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           144      0     -1.033337E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           154      0     -1.033337E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           164      0     -5.166686E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      1     -5.153242E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      1     -1.030648E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           134      1     -1.030648E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           144      1     -1.030648E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           154      1     -1.030648E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           164      1     -5.153242E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      2     -5.113034E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      2     -1.022607E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           134      2     -1.022607E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           144      2     -1.022607E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           154      2     -1.022607E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           164      2     -5.113034E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      3     -5.046439E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      3     -1.009288E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           134      3     -1.009288E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           144      3     -1.009288E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           154      3     -1.009288E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           164      3     -5.046439E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      4     -4.954081E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      4     -9.908161E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      4     -9.908161E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      4     -9.908161E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      4     -9.908161E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164      4     -4.954081E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      5     -4.836820E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      5     -9.673640E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      5     -9.673640E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      5     -9.673640E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      5     -9.673640E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164      5     -4.836820E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      6     -4.695747E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      6     -9.391495E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      6     -9.391495E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      6     -9.391495E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      6     -9.391495E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164      6     -4.695747E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      7     -4.532173E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      7     -9.064346E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      7     -9.064346E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      7     -9.064346E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      7     -9.064346E+00   0.0            0.0            0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n           164      7     -4.532173E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      8     -4.347610E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      8     -8.695221E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      8     -8.695221E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      8     -8.695221E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      8     -8.695221E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164      8     -4.347610E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114      9     -4.143755E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124      9     -8.287511E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134      9     -8.287511E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144      9     -8.287511E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154      9     -8.287511E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164      9     -4.143755E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           114     10     -3.922476E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           124     10     -7.844951E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           134     10     -7.844951E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           144     10     -7.844951E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           154     10     -7.844951E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           164     10     -3.922476E+00   0.0            0.0            0.0            0.0            0.0                           \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    111        0                       3.175735E-04              0.0              -2.054438E+01              0.0                   \r\n                                       -8.721924E-01              0.0              -1.933128E+01              0.0                   \r\n                                       -5.468249E-01              0.0               1.331892E+01              0.0                   \r\n                                        2.663536E-01              0.0               2.654488E+01              0.0                   \r\n0    111        1                      -3.395081E-04         -7.076263E-04         -1.549734E+01              0.0                   \r\n                                       -8.638439E-01          5.102730E-01         -9.545174E+00              0.0                   \r\n                                       -4.863691E-01         -3.658003E-01          6.853249E+00              0.0                   \r\n                                        2.678967E-01         -1.234937E+00          1.823052E+01              0.0                   \r\n0    111        2                       1.348567E-02         -1.025155E-03         -9.569466E+00              0.0                   \r\n                                       -9.096918E-01          1.889151E+00          9.217463E+00              0.0                   \r\n                                        4.607496E-01          4.063952E-01         -5.014495E+00              0.0                   \r\n                                        2.925663E-01         -2.508737E+00          5.415639E+00              0.0                   \r\n0    111        3                      -1.737976E-02          9.382308E-03         -2.570389E+01              0.0                   \r\n                                       -1.001264E+00          5.150817E+00         -8.552100E+00              0.0                   \r\n                                        2.387064E+00          3.920389E+00          8.098587E+00              0.0                   \r\n                                        3.407574E-01         -3.098336E+00          2.630042E+01              0.0                   \r\n0    111        4                       9.686470E-03         -3.699481E-03         -2.902992E+01              0.0                   \r\n                                       -9.153614E-01          6.143842E+00         -1.931046E+01              0.0                   \r\n                                        2.142514E+00          5.099025E+00          1.507939E+01              0.0                   \r\n                                        3.232365E-01         -2.983666E+00          3.344912E+01              0.0                   \r\n0    111        5                      -8.678436E-05          2.901912E-03         -2.514917E+01              0.0                   \r\n                                       -8.043003E-01          6.214652E+00         -1.877675E+01              0.0                   \r\n                                        1.643339E+00          5.431815E+00          1.436740E+01              0.0                   \r\n                                        3.252792E-01         -2.645876E+00          2.979304E+01              0.0                   \r\n0    111        6                       3.606796E-03          4.318833E-03         -2.054000E+01              0.0                   \r\n                                       -7.200098E-01          5.961888E+00         -1.611438E+01              0.0                   \r\n                                        1.199237E+00          5.418803E+00          1.225253E+01              0.0                   \r\n                                        3.033295E-01         -2.241049E+00          2.462481E+01              0.0                   \r\n0    111        7                       1.134872E-03         -4.211724E-03         -1.647591E+01              0.0                   \r\n                                       -6.451187E-01          5.575144E+00         -1.327385E+01              0.0                   \r\n                                        8.304703E-01          5.203665E+00          1.008543E+01              0.0                   \r\n                                        2.718968E-01         -1.867896E+00          1.988398E+01              0.0                   \r\n0    111        8                      -8.020401E-04          2.415180E-04         -1.316486E+01              0.0                   \r\n                                       -5.858035E-01          5.131303E+00         -1.077408E+01              0.0                   \r\n                                        5.437453E-01          4.900210E+00          8.188550E+00              0.0                   \r\n                                        2.387242E-01         -1.555307E+00          1.596554E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    111        9                       5.664825E-04          5.775690E-04         -1.052184E+01              0.0                   \r\n                                       -5.326238E-01          4.679421E+00         -8.705985E+00              0.0                   \r\n                                        3.203657E-01          4.553272E+00          6.616152E+00              0.0                   \r\n                                        2.064953E-01         -1.289898E+00          1.281433E+01              0.0                   \r\n0    111       10                       2.136469E-03          6.084412E-03         -8.429304E+00              0.0                   \r\n                                       -4.866290E-01          4.230435E+00         -7.007618E+00              0.0                   \r\n                                        1.472707E-01          4.184227E+00          5.325075E+00              0.0                   \r\n                                        1.774366E-01         -1.067159E+00          1.029963E+01              0.0                   \r\n0    111                0.0000          1.232624E-02              0.0              -1.946261E+02              0.0                   \r\n                                       -8.336838E+00              0.0              -1.221742E+02              0.0                   \r\n                                        8.641562E+00              0.0               9.517079E+01              0.0                   \r\n                                        3.013972E+00              0.0               2.233219E+02              0.0                   \r\n0    111                7.1000          9.206349E-03          9.179636E-03         -1.555163E+02              0.0                   \r\n                                       -6.664938E+00          2.971190E+01         -9.256639E+01              0.0                   \r\n                                        6.770258E+00          2.684013E+01          7.243534E+01              0.0                   \r\n                                        2.360923E+00         -1.125940E+01          1.767880E+02              0.0                   \r\n0    112        0                       8.743718E-01              0.0              -1.136794E+01              0.0                   \r\n                                       -3.949233E+00              0.0               1.058512E+01              0.0                   \r\n                                       -2.385414E+00              0.0              -1.463032E+01              0.0                   \r\n                                        2.581308E+00              0.0               1.542054E+01              0.0                   \r\n0    112        1                       8.715451E-01         -5.092053E-01          5.626144E+00              0.0                   \r\n                                       -3.894990E+00          4.330072E-01          2.916732E+01              0.0                   \r\n                                       -2.367465E+00         -6.877635E-01         -3.363361E+01              0.0                   \r\n                                        2.533639E+00         -2.097179E+00         -1.121307E+00              0.0                   \r\n0    112        2                       9.310746E-01         -1.879185E+00          4.441196E+01              0.0                   \r\n                                       -3.055831E+00          1.807802E+00          7.935194E+01              0.0                   \r\n                                       -2.354224E+00          8.277420E-03         -8.742751E+01              0.0                   \r\n                                        1.624722E+00         -5.131506E+00         -3.620046E+01              0.0                   \r\n0    112        3                       1.027367E+00         -5.163598E+00          2.542305E+01              0.0                   \r\n                                       -1.435411E+00          5.008529E+00          7.337159E+01              0.0                   \r\n                                       -2.377097E+00          4.159456E+00         -8.637993E+01              0.0                   \r\n                                       -2.101593E-01         -9.207088E+00         -1.223188E+01              0.0                   \r\n0    112        4                       9.088149E-01         -6.132656E+00          2.413192E+00              0.0                   \r\n                                       -1.700865E+00          5.902270E+00          4.351704E+01              0.0                   \r\n                                       -2.348707E+00          5.901310E+00         -5.454064E+01              0.0                   \r\n                                        2.628994E-02         -9.844504E+00          8.792154E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    112        5                       8.024518E-01         -6.205193E+00         -3.586449E+00              0.0                   \r\n                                       -2.108616E+00          5.966768E+00          2.921254E+01              0.0                   \r\n                                       -2.362652E+00          6.530578E+00         -3.777398E+01              0.0                   \r\n                                        3.874481E-01         -9.363985E+00          1.231218E+01              0.0                   \r\n0    112        6                       7.187411E-01         -5.956728E+00         -5.115411E+00              0.0                   \r\n                                       -2.409636E+00          5.721004E+00          2.052062E+01              0.0                   \r\n                                       -2.404018E+00          6.591211E+00         -2.704587E+01              0.0                   \r\n                                        6.208019E-01         -8.581452E+00          1.177538E+01              0.0                   \r\n0    112        7                       6.483485E-01         -5.565341E+00         -5.107376E+00              0.0                   \r\n                                       -2.599407E+00          5.336343E+00          1.495457E+01              0.0                   \r\n                                       -2.441104E+00          6.341490E+00         -1.990958E+01              0.0                   \r\n                                        7.519853E-01         -7.754370E+00          1.018447E+01              0.0                   \r\n0    112        8                       5.870253E-01         -5.128757E+00         -4.548856E+00              0.0                   \r\n                                       -2.701775E+00          4.910397E+00          1.122414E+01              0.0                   \r\n                                       -2.454339E+00          5.941119E+00         -1.503510E+01              0.0                   \r\n                                        8.180540E-01         -6.961327E+00          8.449300E+00              0.0                   \r\n0    112        9                       5.349662E-01         -4.676669E+00         -3.858761E+00              0.0                   \r\n                                       -2.731797E+00          4.468833E+00          8.623543E+00              0.0                   \r\n                                       -2.439130E+00          5.474179E+00         -1.157446E+01              0.0                   \r\n                                        8.360950E-01         -6.219301E+00          6.877706E+00              0.0                   \r\n0    112       10                       4.856679E-01         -4.231503E+00         -3.187973E+00              0.0                   \r\n                                       -2.705134E+00          4.036528E+00          6.741246E+00              0.0                   \r\n                                       -2.395899E+00          4.987455E+00         -9.020693E+00              0.0                   \r\n                                        8.250746E-01         -5.535951E+00          5.520299E+00              0.0                   \r\n0    112                0.0000          8.390373E+00              0.0               4.110158E+01              0.0                   \r\n                                       -2.929270E+01              0.0               3.272697E+02              0.0                   \r\n                                       -2.633005E+01              0.0              -3.969717E+02              0.0                   \r\n                                        1.079526E+01              0.0               2.977840E+01              0.0                   \r\n0    112                7.1000          6.715086E+00         -2.968859E+01          4.786429E+01              0.0                   \r\n                                       -2.234392E+01          2.846939E+01          2.837900E+02              0.0                   \r\n                                       -1.976672E+01          3.192798E+01         -3.410179E+02              0.0                   \r\n                                        8.841080E+00         -4.334950E+01          1.027925E+01              0.0                   \r\n0    113        0                       3.952621E+00              0.0               1.952186E+01              0.0                   \r\n                                       -5.168442E+00              0.0               2.112818E+01              0.0                   \r\n                                       -4.858137E+00              0.0              -2.711550E+01              0.0                   \r\n                                        4.364410E+00              0.0              -1.352352E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    113        1                       3.894554E+00         -4.337145E-01          3.231671E+01              0.0                   \r\n                                       -5.154110E+00         -1.710826E-03          2.924902E+01              0.0                   \r\n                                       -4.843957E+00         -4.097449E-01         -3.943379E+01              0.0                   \r\n                                        4.355932E+00         -9.034081E-01         -2.208531E+01              0.0                   \r\n0    113        2                       3.037373E+00         -1.822036E+00          7.030793E+01              0.0                   \r\n                                       -5.118624E+00         -2.270520E-03          5.617918E+01              0.0                   \r\n                                       -4.793257E+00         -4.499179E-01         -7.839024E+01              0.0                   \r\n                                        4.389273E+00         -2.558673E+00         -4.797281E+01              0.0                   \r\n0    113        3                       1.384884E+00         -5.016311E+00          7.275962E+01              0.0                   \r\n                                       -5.053633E+00          8.313507E-04          6.330246E+01              0.0                   \r\n                                       -4.711872E+00          2.650229E-01         -8.519009E+01              0.0                   \r\n                                        4.512062E+00         -5.898695E+00         -5.078745E+01              0.0                   \r\n0    113        4                       1.704628E+00         -5.916603E+00          4.976283E+01              0.0                   \r\n                                       -4.960936E+00          2.966888E-03          4.703033E+01              0.0                   \r\n                                       -4.628247E+00          7.908968E-01         -6.152725E+01              0.0                   \r\n                                        4.497777E+00         -6.641881E+00         -3.526337E+01              0.0                   \r\n0    113        5                       2.104806E+00         -5.973814E+00          3.611632E+01              0.0                   \r\n                                       -4.838264E+00          7.345527E-05          3.545863E+01              0.0                   \r\n                                       -4.517689E+00          1.083519E+00         -4.577473E+01              0.0                   \r\n                                        4.381452E+00         -6.515318E+00         -2.586395E+01              0.0                   \r\n0    113        6                       2.406148E+00         -5.727571E+00          2.671167E+01              0.0                   \r\n                                       -4.697614E+00         -1.757406E-03          2.690913E+01              0.0                   \r\n                                       -4.408504E+00          1.161940E+00         -3.441881E+01              0.0                   \r\n                                        4.221670E+00         -6.155560E+00         -1.929770E+01              0.0                   \r\n0    113        7                       2.600455E+00         -5.347017E+00          2.017373E+01              0.0                   \r\n                                       -4.532460E+00          5.497850E-03          2.065059E+01              0.0                   \r\n                                       -4.275033E+00          1.115629E+00         -2.625484E+01              0.0                   \r\n                                        4.031751E+00         -5.714090E+00         -1.468312E+01              0.0                   \r\n0    113        8                       2.698064E+00         -4.909804E+00          1.554160E+01              0.0                   \r\n                                       -4.346531E+00          7.914864E-04          1.604017E+01              0.0                   \r\n                                       -4.124269E+00          1.022014E+00         -2.032844E+01              0.0                   \r\n                                        3.824721E+00         -5.265079E+00         -1.136851E+01              0.0                   \r\n0    113        9                       2.731264E+00         -4.476295E+00          1.214525E+01              0.0                   \r\n                                       -4.143434E+00          6.867498E-04          1.261930E+01              0.0                   \r\n                                       -3.949693E+00          9.032423E-01         -1.594554E+01              0.0                   \r\n                                        3.605816E+00         -4.814209E+00         -8.929692E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    113       10                       2.703796E+00         -4.038587E+00          9.612075E+00              0.0                   \r\n                                       -3.921999E+00         -3.953829E-03          1.000990E+01              0.0                   \r\n                                       -3.756562E+00          7.838631E-01         -1.263794E+01              0.0                   \r\n                                        3.379352E+00         -4.381573E+00         -7.087504E+00              0.0                   \r\n0    113                0.0000          2.921859E+01              0.0               3.649696E+02              0.0                   \r\n                                       -5.193604E+01              0.0               3.385769E+02              0.0                   \r\n                                       -4.886721E+01              0.0              -4.470172E+02              0.0                   \r\n                                        4.556422E+01              0.0              -2.568629E+02              0.0                   \r\n0    113                7.1000          2.227752E+01         -2.850744E+01          3.104097E+02              0.0                   \r\n                                       -4.012566E+01          1.531413E-03          2.845895E+02              0.0                   \r\n                                       -3.767999E+01          4.985452E+00         -3.775787E+02              0.0                   \r\n                                        3.516550E+01         -3.122082E+01         -2.175032E+02              0.0                   \r\n0    121        0                      -2.678022E-01              0.0              -2.654553E+01              0.0                   \r\n                                       -1.520115E+00              0.0              -1.130614E+01              0.0                   \r\n                                        4.370444E-01              0.0               1.915273E+01              0.0                   \r\n                                        1.985207E-01              0.0               1.870717E+01              0.0                   \r\n0    121        1                      -2.791719E-01          1.235026E+00         -1.823754E+01              0.0                   \r\n                                       -1.457106E+00          1.314130E+00         -4.821955E+00              0.0                   \r\n                                        4.467932E-01         -2.013853E+00          9.422348E+00              0.0                   \r\n                                        2.083397E-01         -1.614172E+00          1.372745E+01              0.0                   \r\n0    121        2                      -3.042357E-01          2.512244E+00         -5.422934E+00              0.0                   \r\n                                       -5.094500E-01          3.750664E+00          7.072321E+00              0.0                   \r\n                                        4.076183E-01         -3.161877E+00         -9.096638E+00              0.0                   \r\n                                        2.563362E-01         -3.295645E+00          7.774677E+00              0.0                   \r\n0    121        3                      -3.578758E-01          3.102209E+00         -2.632626E+01              0.0                   \r\n                                        1.419874E+00          7.940866E+00         -5.900761E+00              0.0                   \r\n                                        3.828091E-01         -9.259762E-01          8.836720E+00              0.0                   \r\n                                        2.879562E-01         -4.151860E+00          2.400530E+01              0.0                   \r\n0    121        4                      -3.415852E-01          2.993652E+00         -3.344818E+01              0.0                   \r\n                                        1.181950E+00          8.900661E+00         -1.291080E+01              0.0                   \r\n                                        4.108598E-01          3.587337E-01          1.968003E+01              0.0                   \r\n                                        3.042965E-01         -4.052092E+00          2.745304E+01              0.0                   \r\n0    121        5                      -3.345585E-01          2.653576E+00         -2.978796E+01              0.0                   \r\n                                        7.584076E-01          8.724033E+00         -1.230528E+01              0.0                   \r\n                                        4.268182E-01          1.166680E+00          1.918828E+01              0.0                   \r\n                                        3.004169E-01         -3.623049E+00          2.376324E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    121        6                      -3.022399E-01          2.247564E+00         -2.461947E+01              0.0                   \r\n                                        4.145174E-01          8.160501E+00         -1.040521E+01              0.0                   \r\n                                        3.768462E-01          1.721782E+00          1.653083E+01              0.0                   \r\n                                        2.829075E-01         -3.097842E+00          1.936362E+01              0.0                   \r\n0    121        7                      -2.713997E-01          1.878605E+00         -1.989881E+01              0.0                   \r\n                                        1.593313E-01          7.466954E+00         -8.439030E+00              0.0                   \r\n                                        2.974441E-01          2.042415E+00          1.370125E+01              0.0                   \r\n                                        2.588844E-01         -2.614844E+00          1.550764E+01              0.0                   \r\n0    121        8                      -2.374732E-01          1.562471E+00         -1.597037E+01              0.0                   \r\n                                       -2.670860E-02          6.761950E+00         -6.772229E+00              0.0                   \r\n                                        2.184691E-01          2.198971E+00          1.118242E+01              0.0                   \r\n                                        2.321663E-01         -2.192424E+00          1.237185E+01              0.0                   \r\n0    121        9                      -2.056198E-01          1.296858E+00         -1.280406E+01              0.0                   \r\n                                       -1.595559E-01          6.075755E+00         -5.412289E+00              0.0                   \r\n                                        1.441227E-01          2.247137E+00          9.095935E+00              0.0                   \r\n                                        2.047539E-01         -1.831040E+00          9.882318E+00              0.0                   \r\n0    121       10                      -1.765797E-01          1.073455E+00         -1.029249E+01              0.0                   \r\n                                       -2.522821E-01          5.423616E+00         -4.306524E+00              0.0                   \r\n                                        7.828346E-02          2.225254E+00          7.381301E+00              0.0                   \r\n                                        1.799707E-01         -1.526211E+00          7.918961E+00              0.0                   \r\n0    121                0.0000         -3.078542E+00              0.0              -2.233536E+02              0.0                   \r\n                                        8.862972E-03              0.0              -7.550790E+01              0.0                   \r\n                                        3.627109E+00              0.0               1.250752E+02              0.0                   \r\n                                        2.714549E+00              0.0               1.804753E+02              0.0                   \r\n0    121                7.1000         -2.422044E+00          1.130168E+01         -1.768233E+02              0.0                   \r\n                                       -2.386908E-01          4.072740E+01         -5.671635E+01              0.0                   \r\n                                        3.019423E+00          8.172356E+00          9.440820E+01              0.0                   \r\n                                        2.085790E+00         -1.556036E+01          1.437109E+02              0.0                   \r\n0    122        0                      -5.110159E-01              0.0              -1.741164E+01              0.0                   \r\n                                       -5.469524E+00              0.0               1.650735E+01              0.0                   \r\n                                       -8.278718E-01              0.0              -7.954266E+00              0.0                   \r\n                                        3.988863E+00              0.0               8.835205E+00              0.0                   \r\n0    122        1                      -5.897393E-01          1.146496E+00         -8.818054E-01              0.0                   \r\n                                       -5.466087E+00          1.767890E+00          3.552938E+01              0.0                   \r\n                                       -7.629716E-01         -2.169934E+00         -2.646487E+01              0.0                   \r\n                                        4.011337E+00         -3.548006E+00         -8.095451E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    122        2                      -1.598400E+00          9.632981E-01          3.415001E+01              0.0                   \r\n                                       -5.497094E+00          4.145529E+00          8.936135E+01              0.0                   \r\n                                        1.477445E-01         -2.703819E+00         -7.637731E+01              0.0                   \r\n                                        4.165039E+00         -7.498949E+00         -4.676168E+01              0.0                   \r\n0    122        3                      -3.594630E+00         -2.648900E+00          1.004265E+01              0.0                   \r\n                                       -5.689766E+00          7.509909E+00          8.849890E+01              0.0                   \r\n                                        1.914301E+00          1.033804E+00         -7.025786E+01              0.0                   \r\n                                        4.451501E+00         -1.097359E+01         -2.772022E+01              0.0                   \r\n0    122        4                      -3.362026E+00         -4.160548E+00         -1.098874E+01              0.0                   \r\n                                       -5.679528E+00          7.953434E+00          5.666059E+01              0.0                   \r\n                                        1.635051E+00          3.100712E+00         -4.042474E+01              0.0                   \r\n                                        4.344592E+00         -1.095067E+01         -4.648075E+00              0.0                   \r\n0    122        5                      -2.786484E+00         -4.792157E+00         -1.433736E+01              0.0                   \r\n                                       -5.508130E+00          7.492164E+00          3.975041E+01              0.0                   \r\n                                        1.044749E+00          4.217912E+00         -2.636900E+01              0.0                   \r\n                                        4.042492E+00         -9.894465E+00          1.465290E+00              0.0                   \r\n0    122        6                      -2.230773E+00         -4.991250E+00         -1.362248E+01              0.0                   \r\n                                       -5.245205E+00          6.857619E+00          2.885991E+01              0.0                   \r\n                                        4.410422E-01          4.687697E+00         -1.802680E+01              0.0                   \r\n                                        3.645700E+00         -8.702257E+00          3.224489E+00              0.0                   \r\n0    122        7                      -1.745857E+00         -4.923568E+00         -1.182116E+01              0.0                   \r\n                                       -4.939036E+00          6.234151E+00          2.154426E+01              0.0                   \r\n                                       -8.983302E-02          4.730435E+00         -1.281202E+01              0.0                   \r\n                                        3.229775E+00         -7.620923E+00          3.453585E+00              0.0                   \r\n0    122        8                      -1.338020E+00         -4.701889E+00         -9.867616E+00              0.0                   \r\n                                       -4.611796E+00          5.644199E+00          1.644451E+01              0.0                   \r\n                                       -5.270966E-01          4.550232E+00         -9.397288E+00              0.0                   \r\n                                        2.828460E+00         -6.682581E+00          3.122025E+00              0.0                   \r\n0    122        9                      -9.960073E-01         -4.403611E+00         -8.071600E+00              0.0                   \r\n                                       -4.283235E+00          5.091783E+00          1.276505E+01              0.0                   \r\n                                       -8.695803E-01          4.259367E+00         -7.085690E+00              0.0                   \r\n                                        2.455914E+00         -5.866863E+00          2.648133E+00              0.0                   \r\n0    122       10                      -7.205666E-01         -4.070709E+00         -6.539885E+00              0.0                   \r\n                                       -3.952450E+00          4.580316E+00          1.004141E+01              0.0                   \r\n                                       -1.125666E+00          3.912572E+00         -5.464489E+00              0.0                   \r\n                                        2.119797E+00         -5.148080E+00          2.170983E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    122                0.0000         -1.947352E+01              0.0              -4.934962E+01              0.0                   \r\n                                       -5.634185E+01              0.0               4.159631E+02              0.0                   \r\n                                        9.798684E-01              0.0              -3.006343E+02              0.0                   \r\n                                        3.928347E+01              0.0              -6.230573E+01              0.0                   \r\n0    122                7.1000         -1.539750E+01         -2.421725E+01         -2.591857E+01              0.0                   \r\n                                       -4.375608E+01          3.511954E+01          3.561194E+02              0.0                   \r\n                                        1.859476E+00          2.148084E+01         -2.623435E+02              0.0                   \r\n                                        3.135934E+01         -4.464895E+01         -6.506491E+01              0.0                   \r\n0    123        0                       3.494788E+00              0.0               1.158109E+01              0.0                   \r\n                                       -5.467914E+00              0.0               2.714750E+01              0.0                   \r\n                                       -4.948598E+00              0.0              -1.933893E+01              0.0                   \r\n                                        5.239270E+00              0.0              -1.938861E+01              0.0                   \r\n0    123        1                       3.487752E+00         -1.805264E-01          2.012040E+01              0.0                   \r\n                                       -5.453379E+00          4.016861E-01          3.948990E+01              0.0                   \r\n                                       -4.937172E+00         -4.482010E-01         -2.742281E+01              0.0                   \r\n                                        5.202816E+00         -1.485621E+00         -3.213791E+01              0.0                   \r\n0    123        2                       3.488258E+00         -1.598128E+00          4.596457E+01              0.0                   \r\n                                       -5.388222E+00          4.401739E-01          7.846040E+01              0.0                   \r\n                                       -4.900621E+00         -3.966469E-01         -5.427815E+01              0.0                   \r\n                                        4.372810E+00         -3.186862E+00         -7.007198E+01              0.0                   \r\n0    123        3                       3.554935E+00         -5.779352E+00          4.868691E+01              0.0                   \r\n                                       -5.367073E+00         -2.705687E-01          8.523940E+01              0.0                   \r\n                                       -4.819677E+00          6.009172E-01         -6.131852E+01              0.0                   \r\n                                        2.801659E+00         -5.098090E+00         -7.262989E+01              0.0                   \r\n0    123        4                       3.543353E+00         -7.219948E+00          3.316735E+01              0.0                   \r\n                                       -5.267757E+00         -7.902124E-01          6.153389E+01              0.0                   \r\n                                       -4.697942E+00          1.305820E+00         -4.518071E+01              0.0                   \r\n                                        3.051914E+00         -4.917954E+00         -4.968933E+01              0.0                   \r\n0    123        5                       3.503174E+00         -7.516857E+00          2.381461E+01              0.0                   \r\n                                       -5.142103E+00         -1.082493E+00          4.582047E+01              0.0                   \r\n                                       -4.581582E+00          1.675233E+00         -3.387147E+01              0.0                   \r\n                                        3.385597E+00         -4.322402E+00         -3.608468E+01              0.0                   \r\n0    123        6                       3.436891E+00         -7.308762E+00          1.746592E+01              0.0                   \r\n                                       -4.981913E+00         -1.164296E+00          3.443427E+01              0.0                   \r\n                                       -4.444454E+00          1.757391E+00         -2.549233E+01              0.0                   \r\n                                        3.548134E+00         -3.838189E+00         -2.681347E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    123        7                       3.349019E+00         -6.865427E+00          1.305333E+01              0.0                   \r\n                                       -4.787801E+00         -1.115942E+00          2.625938E+01              0.0                   \r\n                                       -4.301318E+00          1.676110E+00         -1.948432E+01              0.0                   \r\n                                        3.591468E+00         -3.459589E+00         -2.030761E+01              0.0                   \r\n0    123        8                       3.241505E+00         -6.324697E+00          9.951645E+00              0.0                   \r\n                                       -4.570515E+00         -1.019069E+00          2.034632E+01              0.0                   \r\n                                       -4.139203E+00          1.522998E+00         -1.511955E+01              0.0                   \r\n                                        3.550127E+00         -3.156473E+00         -1.568216E+01              0.0                   \r\n0    123        9                       3.114524E+00         -5.762594E+00          7.716880E+00              0.0                   \r\n                                       -4.338258E+00         -9.002083E-01          1.595871E+01              0.0                   \r\n                                       -3.956528E+00          1.346394E+00         -1.186051E+01              0.0                   \r\n                                        3.447060E+00         -2.896318E+00         -1.231867E+01              0.0                   \r\n0    123       10                       2.968781E+00         -5.196939E+00          6.059127E+00              0.0                   \r\n                                       -4.088518E+00         -7.815230E-01          1.264470E+01              0.0                   \r\n                                       -3.757600E+00          1.169740E+00         -9.405159E+00              0.0                   \r\n                                        3.303974E+00         -2.662976E+00         -9.791548E+00              0.0                   \r\n0    123                0.0000          3.718298E+01              0.0               2.375818E+02              0.0                   \r\n                                       -5.485345E+01              0.0               4.473349E+02              0.0                   \r\n                                       -4.948470E+01              0.0              -3.227724E+02              0.0                   \r\n                                        4.149483E+01              0.0              -3.649159E+02              0.0                   \r\n0    123                7.1000          2.842614E+01         -3.587697E+01          2.021481E+02              0.0                   \r\n                                       -4.242974E+01         -4.984362E+00          3.778556E+02              0.0                   \r\n                                       -3.823578E+01          7.716829E+00         -2.715454E+02              0.0                   \r\n                                        3.216333E+01         -2.066299E+01         -3.100323E+02              0.0                   \r\n0    131        0                      -1.955070E-01              0.0              -1.874763E+01              0.0                   \r\n                                       -2.208878E+00              0.0              -1.603338E+01              0.0                   \r\n                                        4.304104E-01              0.0               1.304656E+01              0.0                   \r\n                                        8.585129E-01              0.0               2.172481E+01              0.0                   \r\n0    131        1                      -2.070007E-01          1.610894E+00         -1.373943E+01              0.0                   \r\n                                       -2.199890E+00          2.946548E+00         -6.283966E+00              0.0                   \r\n                                        4.859219E-01         -2.045703E+00          6.657054E+00              0.0                   \r\n                                        8.731232E-01         -3.568133E+00          1.350610E+01              0.0                   \r\n0    131        2                      -2.287149E-01          3.288421E+00         -7.873717E+00              0.0                   \r\n                                       -2.254868E+00          6.744511E+00          1.239875E+01              0.0                   \r\n                                        1.425799E+00         -2.958292E+00         -4.977379E+00              0.0                   \r\n                                        9.405956E-01         -7.247162E+00          9.223213E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    131        3                      -3.021832E-01          4.147937E+00         -2.406848E+01              0.0                   \r\n                                       -2.374432E+00          1.095508E+01         -5.367470E+00              0.0                   \r\n                                        3.347971E+00         -1.872516E-01          8.352252E+00              0.0                   \r\n                                        1.053143E+00         -8.946497E+00          2.199286E+01              0.0                   \r\n0    131        4                      -2.946758E-01          4.040015E+00         -2.750332E+01              0.0                   \r\n                                       -2.261372E+00          1.155352E+01         -1.621651E+01              0.0                   \r\n                                        3.059981E+00          1.135328E+00          1.545574E+01              0.0                   \r\n                                        1.056953E+00         -8.577661E+00          2.943107E+01              0.0                   \r\n0    131        5                      -3.007889E-01          3.617490E+00         -2.379147E+01              0.0                   \r\n                                       -2.056709E+00          1.083109E+01         -1.591119E+01              0.0                   \r\n                                        2.483893E+00          1.893601E+00          1.480345E+01              0.0                   \r\n                                        1.037148E+00         -7.545955E+00          2.620520E+01              0.0                   \r\n0    131        6                      -2.794609E-01          3.095170E+00         -1.937534E+01              0.0                   \r\n                                       -1.838608E+00          9.735464E+00         -1.356243E+01              0.0                   \r\n                                        1.944658E+00          2.369473E+00          1.271375E+01              0.0                   \r\n                                        9.641209E-01         -6.353985E+00          2.152964E+01              0.0                   \r\n0    131        7                      -2.567282E-01          2.602274E+00         -1.550682E+01              0.0                   \r\n                                       -1.621374E+00          8.624233E+00         -1.105600E+01              0.0                   \r\n                                        1.480548E+00          2.593714E+00          1.054978E+01              0.0                   \r\n                                        8.699951E-01         -5.280482E+00          1.728182E+01              0.0                   \r\n0    131        8                      -2.329483E-01          2.185740E+00         -1.237341E+01              0.0                   \r\n                                       -1.425053E+00          7.586064E+00         -8.880764E+00              0.0                   \r\n                                        1.104605E+00          2.666875E+00          8.645554E+00              0.0                   \r\n                                        7.724485E-01         -4.379684E+00          1.381620E+01              0.0                   \r\n0    131        9                      -2.053246E-01          1.827477E+00         -9.885828E+00              0.0                   \r\n                                       -1.245516E+00          6.649720E+00         -7.109063E+00              0.0                   \r\n                                        8.008649E-01          2.642094E+00          7.059275E+00              0.0                   \r\n                                        6.777916E-01         -3.625073E+00          1.106194E+01              0.0                   \r\n0    131       10                      -1.786418E-01          1.526499E+00         -7.926000E+00              0.0                   \r\n                                       -1.086859E+00          5.808646E+00         -5.674313E+00              0.0                   \r\n                                        5.568221E-01          2.549544E+00          5.745667E+00              0.0                   \r\n                                        5.900373E-01         -2.994759E+00          8.889838E+00              0.0                   \r\n0    131                0.0000         -2.681974E+00              0.0              -1.807915E+02              0.0                   \r\n                                       -2.057356E+01              0.0              -9.369632E+01              0.0                   \r\n                                        1.712148E+01              0.0               9.805170E+01              0.0                   \r\n                                        9.693869E+00              0.0               1.863618E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    131                7.1000         -2.056081E+00          1.552787E+01         -1.439981E+02              0.0                   \r\n                                       -1.653790E+01          4.876160E+01         -6.944032E+01              0.0                   \r\n                                        1.365552E+01          1.118989E+01          7.414862E+01              0.0                   \r\n                                        7.577746E+00         -3.201023E+01          1.460868E+02              0.0                   \r\n0    132        0                      -2.215270E+00              0.0              -1.192661E+01              0.0                   \r\n                                       -7.161739E+00              0.0               1.133229E+01              0.0                   \r\n                                        7.140627E-01              0.0              -9.734899E+00              0.0                   \r\n                                        5.921612E+00              0.0               1.033563E+01              0.0                   \r\n0    132        1                      -2.247773E+00          2.617117E+00          4.981689E+00              0.0                   \r\n                                       -7.124006E+00          2.963299E+00          2.985970E+01              0.0                   \r\n                                        7.498784E-01         -3.176812E+00         -2.858635E+01              0.0                   \r\n                                        5.904173E+00         -5.124800E+00         -6.076485E+00              0.0                   \r\n0    132        2                      -2.301907E+00          3.921669E+00          4.353040E+01              0.0                   \r\n                                       -6.370024E+00          6.162282E+00          7.990965E+01              0.0                   \r\n                                        8.461862E-01         -4.223910E+00         -8.194208E+01              0.0                   \r\n                                        5.114779E+00         -1.080285E+01         -4.085934E+01              0.0                   \r\n0    132        3                      -2.382284E+00          9.234333E-01          2.431453E+01              0.0                   \r\n                                       -4.908701E+00          8.736433E+00          7.390244E+01              0.0                   \r\n                                        9.853115E-01          6.000557E-01         -8.055317E+01              0.0                   \r\n                                        3.460697E+00         -1.515749E+01         -1.675301E+01              0.0                   \r\n0    132        4                      -2.496613E+00         -9.469435E-01          1.219927E+00              0.0                   \r\n                                       -5.166771E+00          8.359598E+00          4.406467E+01              0.0                   \r\n                                        1.015507E+00          3.513807E+00         -4.879940E+01              0.0                   \r\n                                        3.697694E+00         -1.479554E+01          4.451085E+00              0.0                   \r\n0    132        5                      -2.404861E+00         -2.091775E+00         -4.755871E+00              0.0                   \r\n                                       -5.378215E+00          7.307981E+00          2.977917E+01              0.0                   \r\n                                        8.242329E-01          5.116202E+00         -3.248925E+01              0.0                   \r\n                                        3.863919E+00         -1.313854E+01          8.302622E+00              0.0                   \r\n0    132        6                      -2.176134E+00         -2.747260E+00         -6.203621E+00              0.0                   \r\n                                       -5.368068E+00          6.308796E+00          2.108450E+01              0.0                   \r\n                                        4.948820E-01          5.795307E+00         -2.238555E+01              0.0                   \r\n                                        3.787412E+00         -1.136430E+01          8.200041E+00              0.0                   \r\n0    132        7                      -1.898479E+00         -3.031355E+00         -6.095632E+00              0.0                   \r\n                                       -5.209831E+00          5.481462E+00          1.549405E+01              0.0                   \r\n                                        1.338375E-01          5.881468E+00         -1.589145E+01              0.0                   \r\n                                        3.572689E+00         -9.801426E+00          7.074360E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    132        8                      -1.617635E+00         -3.098140E+00         -5.433915E+00              0.0                   \r\n                                       -4.967906E+00          4.808839E+00          1.172556E+01              0.0                   \r\n                                       -2.009501E-01          5.654401E+00         -1.161128E+01              0.0                   \r\n                                        3.296284E+00         -8.472922E+00          5.788145E+00              0.0                   \r\n0    132        9                      -1.351133E+00         -3.028619E+00         -4.643210E+00              0.0                   \r\n                                       -4.676040E+00          4.236220E+00          9.080200E+00              0.0                   \r\n                                       -4.880899E-01          5.276196E+00         -8.684559E+00              0.0                   \r\n                                        2.993010E+00         -7.343369E+00          4.629577E+00              0.0                   \r\n0    132       10                      -1.111905E+00         -2.883581E+00         -3.878233E+00              0.0                   \r\n                                       -4.356906E+00          3.743451E+00          7.150741E+00              0.0                   \r\n                                       -7.210700E-01          4.831278E+00         -6.601959E+00              0.0                   \r\n                                        2.687405E+00         -6.371083E+00          3.642950E+00              0.0                   \r\n0    132                0.0000         -2.220400E+01              0.0               3.110945E+01              0.0                   \r\n                                       -6.068821E+01              0.0               3.333829E+02              0.0                   \r\n                                        4.353789E+00              0.0              -3.472800E+02              0.0                   \r\n                                        4.429967E+01              0.0              -1.126443E+01              0.0                   \r\n0    132                7.1000         -1.772285E+01         -1.225431E+01          4.028230E+01              0.0                   \r\n                                       -4.742030E+01          3.308966E+01          2.885753E+02              0.0                   \r\n                                        4.652164E+00          2.587735E+01         -3.010518E+02              0.0                   \r\n                                        3.545694E+01         -5.833195E+01         -2.323532E+01              0.0                   \r\n0    133        0                       2.745110E+00              0.0               1.607897E+01              0.0                   \r\n                                       -5.387803E+00              0.0               1.928988E+01              0.0                   \r\n                                       -4.241082E+00              0.0              -2.228316E+01              0.0                   \r\n                                        5.283182E+00              0.0              -1.307467E+01              0.0                   \r\n0    133        1                       2.676890E+00          6.970183E-01          2.881921E+01              0.0                   \r\n                                       -5.372065E+00          4.485827E-01          2.738498E+01              0.0                   \r\n                                       -4.226258E+00         -1.245114E+00         -3.452932E+01              0.0                   \r\n                                        5.284163E+00         -1.538937E+00         -2.159383E+01              0.0                   \r\n0    133        2                       1.779525E+00         -2.812216E-01          6.664873E+01              0.0                   \r\n                                       -5.338768E+00          3.999094E-01          5.425118E+01              0.0                   \r\n                                       -4.166334E+00         -1.386935E+00         -7.329526E+01              0.0                   \r\n                                        5.349617E+00         -3.346549E+00         -4.739562E+01              0.0                   \r\n0    133        3                       7.966280E-02         -4.664178E+00          6.896716E+01              0.0                   \r\n                                       -5.290127E+00         -5.940782E-01          6.134957E+01              0.0                   \r\n                                       -4.049544E+00          6.946316E-01         -8.001701E+01              0.0                   \r\n                                        5.514702E+00         -5.764623E+00         -5.024562E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    133        4                       4.263468E-01         -6.553684E+00          4.608108E+01              0.0                   \r\n                                       -5.215691E+00         -1.300751E+00          4.517387E+01              0.0                   \r\n                                       -3.962372E+00          2.229139E+00         -5.660769E+01              0.0                   \r\n                                        5.489582E+00         -5.734458E+00         -3.485078E+01              0.0                   \r\n0    133        5                       9.283136E-01         -7.202511E+00          3.274479E+01              0.0                   \r\n                                       -5.096516E+00         -1.677899E+00          3.380700E+01              0.0                   \r\n                                       -3.879810E+00          3.070261E+00         -4.139147E+01              0.0                   \r\n                                        5.309246E+00         -5.130313E+00         -2.560227E+01              0.0                   \r\n0    133        6                       1.365534E+00         -7.161659E+00          2.375440E+01              0.0                   \r\n                                       -4.945312E+00         -1.759993E+00          2.549524E+01              0.0                   \r\n                                       -3.822053E+00          3.283206E+00         -3.066908E+01              0.0                   \r\n                                        5.055977E+00         -4.587050E+00         -1.917504E+01              0.0                   \r\n0    133        7                       1.703981E+00         -6.761343E+00          1.763270E+01              0.0                   \r\n                                       -4.762642E+00         -1.669301E+00          1.947690E+01              0.0                   \r\n                                       -3.747666E+00          3.146613E+00         -2.312444E+01              0.0                   \r\n                                        4.765166E+00         -4.138891E+00         -1.466316E+01              0.0                   \r\n0    133        8                       1.938205E+00         -6.198060E+00          1.339044E+01              0.0                   \r\n                                       -4.555452E+00         -1.524383E+00          1.508180E+01              0.0                   \r\n                                       -3.657378E+00          2.866391E+00         -1.775657E+01              0.0                   \r\n                                        4.460978E+00         -3.776206E+00         -1.142263E+01              0.0                   \r\n0    133        9                       2.094925E+00         -5.601812E+00          1.034566E+01              0.0                   \r\n                                       -4.330245E+00         -1.347549E+00          1.184436E+01              0.0                   \r\n                                       -3.541194E+00          2.525932E+00         -1.385800E+01              0.0                   \r\n                                        4.153128E+00         -3.450639E+00         -9.035490E+00              0.0                   \r\n0    133       10                       2.176294E+00         -4.993586E+00          8.117298E+00              0.0                   \r\n                                       -4.086710E+00         -1.173632E+00          9.393291E+00              0.0                   \r\n                                       -3.402136E+00          2.184084E+00         -1.096136E+01              0.0                   \r\n                                        3.846468E+00         -3.160779E+00         -7.224594E+00              0.0                   \r\n0    133                0.0000          1.791479E+01              0.0               3.325804E+02              0.0                   \r\n                                       -5.438133E+01              0.0               3.225481E+02              0.0                   \r\n                                       -4.269584E+01              0.0              -4.044934E+02              0.0                   \r\n                                        5.451221E+01              0.0              -2.542837E+02              0.0                   \r\n0    133                7.1000          1.313038E+01         -3.391935E+01          2.841553E+02              0.0                   \r\n                                       -4.201081E+01         -7.715079E+00          2.713688E+02              0.0                   \r\n                                       -3.279654E+01          1.395543E+01         -3.425672E+02              0.0                   \r\n                                        4.232806E+01         -2.432039E+01         -2.149439E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    141        0                      -8.602352E-01              0.0              -2.172635E+01              0.0                   \r\n                                       -2.616577E+00              0.0              -6.768372E+00              0.0                   \r\n                                        1.910031E+00              0.0               1.554580E+01              0.0                   \r\n                                        4.606247E-01              0.0               1.295532E+01              0.0                   \r\n0    141        1                      -8.839149E-01          3.567614E+00         -1.351239E+01              0.0                   \r\n                                       -2.552223E+00          2.817200E+00         -3.298492E-01              0.0                   \r\n                                        1.920823E+00         -4.372818E+00          5.964703E+00              0.0                   \r\n                                        4.774017E-01         -3.048469E+00          8.063995E+00              0.0                   \r\n0    141        2                      -9.547131E-01          7.249653E+00         -9.344149E-01              0.0                   \r\n                                       -1.613749E+00          6.746922E+00          1.146788E+01              0.0                   \r\n                                        1.888716E+00         -7.901553E+00         -1.214811E+01              0.0                   \r\n                                        5.484982E-01         -6.248104E+00          2.337070E+00              0.0                   \r\n0    141        3                      -1.067369E+00          8.948834E+00         -2.202285E+01              0.0                   \r\n                                        2.788525E-01          1.145501E+01         -1.516890E+00              0.0                   \r\n                                        1.890415E+00         -6.661064E+00          6.152777E+00              0.0                   \r\n                                        6.284828E-01         -7.833458E+00          1.872608E+01              0.0                   \r\n0    141        4                      -1.076119E+00          8.586265E+00         -2.943399E+01              0.0                   \r\n                                        5.422974E-02          1.205747E+01         -8.666807E+00              0.0                   \r\n                                        1.895348E+00         -5.083786E+00          1.731760E+01              0.0                   \r\n                                        6.616898E-01         -7.570108E+00          2.246680E+01              0.0                   \r\n0    141        5                      -1.046203E+00          7.552649E+00         -2.620127E+01              0.0                   \r\n                                       -3.061390E-01          1.129402E+01         -8.377125E+00              0.0                   \r\n                                        1.820633E+00         -3.609101E+00          1.717060E+01              0.0                   \r\n                                        6.539307E-01         -6.697293E+00          1.925052E+01              0.0                   \r\n0    141        6                      -9.631205E-01          6.359627E+00         -2.152583E+01              0.0                   \r\n                                       -5.524883E-01          1.014584E+01         -6.891544E+00              0.0                   \r\n                                        1.647956E+00         -2.330893E+00          1.485740E+01              0.0                   \r\n                                        6.152649E-01         -5.668399E+00          1.541151E+01              0.0                   \r\n0    141        7                      -8.694954E-01          5.290601E+00         -1.729585E+01              0.0                   \r\n                                       -7.004662E-01          8.968692E+00         -5.364508E+00              0.0                   \r\n                                        1.436250E+00         -1.380385E+00          1.235208E+01              0.0                   \r\n                                        5.649395E-01         -4.742888E+00          1.211998E+01              0.0                   \r\n0    141        8                      -7.711906E-01          4.385793E+00         -1.381987E+01              0.0                   \r\n                                       -7.811308E-01          7.883826E+00         -4.117064E+00              0.0                   \r\n                                        1.227333E+00         -7.008522E-01          1.012444E+01              0.0                   \r\n                                        5.117455E-01         -3.952904E+00          9.509857E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    141        9                      -6.770463E-01          3.630136E+00         -1.105322E+01              0.0                   \r\n                                       -8.150330E-01          6.903236E+00         -3.140348E+00              0.0                   \r\n                                        1.031383E+00         -2.187874E-01          8.286281E+00              0.0                   \r\n                                        4.584789E-01         -3.290648E+00          7.489704E+00              0.0                   \r\n0    141       10                      -5.895088E-01          2.999278E+00         -8.883492E+00              0.0                   \r\n                                       -8.171015E-01          6.025026E+00         -2.378244E+00              0.0                   \r\n                                        8.544994E-01          1.225284E-01          6.779015E+00              0.0                   \r\n                                        4.082813E-01         -2.737025E+00          5.935369E+00              0.0                   \r\n0    141                0.0000         -9.758916E+00              0.0              -1.864095E+02              0.0                   \r\n                                       -1.042183E+01              0.0              -3.608287E+01              0.0                   \r\n                                        1.752339E+01              0.0               1.024026E+02              0.0                   \r\n                                        5.989338E+00              0.0               1.342662E+02              0.0                   \r\n0    141                7.1000         -7.639101E+00          3.204508E+01         -1.461360E+02              0.0                   \r\n                                       -8.567440E+00          5.065820E+01         -2.478792E+01              0.0                   \r\n                                        1.410385E+01         -1.270980E+01          7.495454E+01              0.0                   \r\n                                        4.599217E+00         -2.854938E+01          1.057232E+02              0.0                   \r\n0    142        0                      -3.732597E+00              0.0              -1.659705E+01              0.0                   \r\n                                       -8.788834E+00              0.0               1.553667E+01              0.0                   \r\n                                        2.648642E+00              0.0              -3.125137E+00              0.0                   \r\n                                        7.292522E+00              0.0               4.167587E+00              0.0                   \r\n0    142        1                      -3.837226E+00          4.351064E+00         -2.312164E-01              0.0                   \r\n                                       -8.799427E+00          4.073363E+00          3.443859E+01              0.0                   \r\n                                        2.728188E+00         -4.717621E+00         -2.142008E+01              0.0                   \r\n                                        7.342487E+00         -6.269094E+00         -1.256110E+01              0.0                   \r\n0    142        2                      -4.947270E+00          7.003795E+00          3.437413E+01              0.0                   \r\n                                       -8.903776E+00          7.998890E+00          8.796278E+01              0.0                   \r\n                                        3.707687E+00         -7.139878E+00         -7.074652E+01              0.0                   \r\n                                        7.602864E+00         -1.252125E+01         -5.073537E+01              0.0                   \r\n0    142        3                      -7.085036E+00          3.894816E+00          9.927650E+00              0.0                   \r\n                                       -9.244265E+00          1.046771E+01          8.698727E+01              0.0                   \r\n                                        5.606064E+00         -2.943360E+00         -6.422543E+01              0.0                   \r\n                                        8.064217E+00         -1.597054E+01         -3.142567E+01              0.0                   \r\n0    142        4                      -6.820891E+00          1.597375E+00         -1.126789E+01              0.0                   \r\n                                       -9.228027E+00          9.534451E+00          5.526617E+01              0.0                   \r\n                                        5.311006E+00          1.731829E-01         -3.450397E+01              0.0                   \r\n                                        7.967684E+00         -1.483497E+01         -8.183521E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    142        5                      -6.039720E+00         -5.147719E-02         -1.469917E+01              0.0                   \r\n                                       -8.873158E+00          7.947297E+00          3.860968E+01              0.0                   \r\n                                        4.541995E+00          2.203088E+00         -2.094085E+01              0.0                   \r\n                                        7.495327E+00         -1.260918E+01         -1.831154E+00              0.0                   \r\n0    142        6                      -5.175469E+00         -1.145434E+00         -1.402207E+01              0.0                   \r\n                                       -8.314468E+00          6.605232E+00          2.798403E+01              0.0                   \r\n                                        3.662269E+00          3.276869E+00         -1.323804E+01              0.0                   \r\n                                        6.821505E+00         -1.049666E+01          2.338333E-01              0.0                   \r\n0    142        7                      -4.356101E+00         -1.769306E+00         -1.225171E+01              0.0                   \r\n                                       -7.676295E+00          5.609299E+00          2.089627E+01              0.0                   \r\n                                        2.825308E+00          3.670394E+00         -8.662610E+00              0.0                   \r\n                                        6.095100E+00         -8.777632E+00          8.060074E-01              0.0                   \r\n0    142        8                      -3.622409E+00         -2.076548E+00         -1.032031E+01              0.0                   \r\n                                       -7.019442E+00          4.845272E+00          1.598546E+01              0.0                   \r\n                                        2.085032E+00          3.696252E+00         -5.832097E+00              0.0                   \r\n                                        5.385853E+00         -7.409727E+00          8.188305E-01              0.0                   \r\n0    142        9                      -2.977796E+00         -2.196261E+00         -8.540642E+00              0.0                   \r\n                                       -6.380445E+00          4.237660E+00          1.245731E+01              0.0                   \r\n                                        1.455628E+00          3.530170E+00         -4.038077E+00              0.0                   \r\n                                        4.722221E+00         -6.303508E+00          6.689472E-01              0.0                   \r\n0    142       10                      -2.427468E+00         -2.202266E+00         -7.012245E+00              0.0                   \r\n                                       -5.765263E+00          3.736783E+00          9.847166E+00              0.0                   \r\n                                        9.332240E-01          3.267249E+00         -2.867295E+00              0.0                   \r\n                                        4.116774E+00         -5.389130E+00          4.875622E-01              0.0                   \r\n0    142                0.0000         -5.102198E+01              0.0              -5.064053E+01              0.0                   \r\n                                       -8.899339E+01              0.0               4.059714E+02              0.0                   \r\n                                        3.550504E+01              0.0              -2.496001E+02              0.0                   \r\n                                        7.290656E+01              0.0              -9.755404E+01              0.0                   \r\n0    142                7.1000         -4.056557E+01         -3.516343E+00         -2.606898E+01              0.0                   \r\n                                       -6.971929E+01          3.555994E+01          3.476330E+02              0.0                   \r\n                                        2.915202E+01          1.232761E+01         -2.214546E+02              0.0                   \r\n                                        5.790387E+01         -5.478160E+01         -9.385593E+01              0.0                   \r\n0    143        0                       2.794204E+00              0.0               7.222631E+00              0.0                   \r\n                                       -6.084959E+00              0.0               2.231079E+01              0.0                   \r\n                                       -5.196574E+00              0.0              -1.403716E+01              0.0                   \r\n                                        6.981966E+00              0.0              -1.549539E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    143        1                       2.774953E+00          6.397805E-01          1.569024E+01              0.0                   \r\n                                       -6.072163E+00          1.236965E+00          3.457860E+01              0.0                   \r\n                                       -5.181593E+00         -9.350810E-01         -2.204538E+01              0.0                   \r\n                                        6.955814E+00         -2.476678E+00         -2.813819E+01              0.0                   \r\n0    143        2                       2.729874E+00         -4.295831E-01          4.131818E+01              0.0                   \r\n                                       -6.017014E+00          1.375957E+00          7.336023E+01              0.0                   \r\n                                       -5.130424E+00         -8.806252E-01         -4.870039E+01              0.0                   \r\n                                        6.172699E+00         -4.454582E+00         -6.580936E+01              0.0                   \r\n0    143        3                       2.745277E+00         -5.310549E+00          4.383754E+01              0.0                   \r\n                                       -6.027527E+00         -7.008238E-01          8.006323E+01              0.0                   \r\n                                       -5.023399E+00          1.045314E+00         -5.566119E+01              0.0                   \r\n                                        4.666275E+00         -5.058110E+00         -6.827951E+01              0.0                   \r\n0    143        4                       2.738531E+00         -7.317285E+00          2.841275E+01              0.0                   \r\n                                       -5.934273E+00         -2.229880E+00          5.661649E+01              0.0                   \r\n                                       -4.884172E+00          2.390728E+00         -3.979887E+01              0.0                   \r\n                                        4.903831E+00         -3.803435E+00         -4.558354E+01              0.0                   \r\n0    143        5                       2.753164E+00         -7.937241E+00          1.942259E+01              0.0                   \r\n                                       -5.780460E+00         -3.070854E+00          4.143301E+01              0.0                   \r\n                                       -4.760297E+00          3.084806E+00         -2.906000E+01              0.0                   \r\n                                        5.145065E+00         -2.564069E+00         -3.245918E+01              0.0                   \r\n0    143        6                       2.771439E+00         -7.825745E+00          1.356565E+01              0.0                   \r\n                                       -5.568539E+00         -3.287006E+00          3.068319E+01              0.0                   \r\n                                       -4.622137E+00          3.220240E+00         -2.137176E+01              0.0                   \r\n                                        5.170563E+00         -1.844375E+00         -2.373228E+01              0.0                   \r\n0    143        7                       2.777122E+00         -7.350904E+00          9.665406E+00              0.0                   \r\n                                       -5.314808E+00         -3.147992E+00          2.312777E+01              0.0                   \r\n                                       -4.482112E+00          3.055104E+00         -1.603676E+01              0.0                   \r\n                                        5.061049E+00         -1.474678E+00         -1.773985E+01              0.0                   \r\n0    143        8                       2.759027E+00         -6.727953E+00          7.045527E+00              0.0                   \r\n                                       -5.037304E+00         -2.863854E+00          1.777292E+01              0.0                   \r\n                                       -4.323314E+00          2.765885E+00         -1.228101E+01              0.0                   \r\n                                        4.868195E+00         -1.298886E+00         -1.356550E+01              0.0                   \r\n0    143        9                       2.713295E+00         -6.071525E+00          5.246003E+00              0.0                   \r\n                                       -4.746655E+00         -2.524047E+00          1.387030E+01              0.0                   \r\n                                       -4.143132E+00          2.438592E+00         -9.553319E+00              0.0                   \r\n                                        4.622152E+00         -1.215907E+00         -1.058634E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    143       10                       2.639829E+00         -5.417192E+00          3.973370E+00              0.0                   \r\n                                       -4.442998E+00         -2.180795E+00          1.096758E+01              0.0                   \r\n                                       -3.944132E+00          2.112108E+00         -7.549566E+00              0.0                   \r\n                                        4.345398E+00         -1.171181E+00         -8.382111E+00              0.0                   \r\n0    143                0.0000          3.019672E+01              0.0               1.953999E+02              0.0                   \r\n                                       -6.102670E+01              0.0               4.047841E+02              0.0                   \r\n                                       -5.169129E+01              0.0              -2.760954E+02              0.0                   \r\n                                        5.889301E+01              0.0              -3.297712E+02              0.0                   \r\n0    143                7.1000          2.280257E+01         -3.715235E+01          1.681933E+02              0.0                   \r\n                                       -4.731509E+01         -1.395878E+01          3.428202E+02              0.0                   \r\n                                       -3.993957E+01          1.398764E+01         -2.331416E+02              0.0                   \r\n                                        4.591170E+01         -1.219345E+01         -2.811123E+02              0.0                   \r\n0    151        0                      -4.574051E-01              0.0              -1.298255E+01              0.0                   \r\n                                       -3.513260E+00              0.0              -8.960632E+00              0.0                   \r\n                                        1.631559E+00              0.0               1.031401E+01              0.0                   \r\n                                        1.289246E+00              0.0               1.162360E+01              0.0                   \r\n0    151        1                      -4.754219E-01          3.044847E+00         -8.081486E+00              0.0                   \r\n                                       -3.506142E+00          5.044583E+00          6.582413E-01              0.0                   \r\n                                        1.668091E+00         -3.560936E+00          4.051938E+00              0.0                   \r\n                                        1.326370E+00         -5.524678E+00          3.591782E+00              0.0                   \r\n0    151        2                      -5.197430E-01          6.241873E+00         -2.417086E+00              0.0                   \r\n                                       -3.574091E+00          1.095035E+01          1.901058E+01              0.0                   \r\n                                        2.567043E+00         -6.028738E+00         -7.209038E+00              0.0                   \r\n                                        1.453559E+00         -1.127619E+01         -8.541748E+00              0.0                   \r\n0    151        3                      -6.410522E-01          7.831066E+00         -1.877522E+01              0.0                   \r\n                                       -3.725872E+00          1.584770E+01          1.066696E+00              0.0                   \r\n                                        4.490330E+00         -3.952163E+00          6.424003E+00              0.0                   \r\n                                        1.598431E+00         -1.382814E+01          1.285551E+01              0.0                   \r\n0    151        4                      -6.544456E-01          7.560247E+00         -2.250802E+01              0.0                   \r\n                                       -3.591049E+00          1.586853E+01         -1.005540E+01              0.0                   \r\n                                        4.177416E+00         -2.505789E+00          1.376241E+01              0.0                   \r\n                                        1.611698E+00         -1.305729E+01          2.079279E+01              0.0                   \r\n0    151        5                      -6.531734E-01          6.692957E+00         -1.927583E+01              0.0                   \r\n                                       -3.312973E+00          1.426667E+01         -1.023592E+01              0.0                   \r\n                                        3.532798E+00         -1.390896E+00          1.334275E+01              0.0                   \r\n                                        1.576984E+00         -1.129094E+01          1.834576E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    151        6                      -6.114407E-01          5.667669E+00         -1.541898E+01              0.0                   \r\n                                       -2.985840E+00          1.231486E+01         -8.494835E+00              0.0                   \r\n                                        2.914813E+00         -5.122567E-01          1.149561E+01              0.0                   \r\n                                        1.465950E+00         -9.341400E+00          1.457917E+01              0.0                   \r\n0    151        7                      -5.633621E-01          4.732789E+00         -1.212068E+01              0.0                   \r\n                                       -2.648838E+00          1.051230E+01         -6.620010E+00              0.0                   \r\n                                        2.373479E+00          6.564248E-02          9.559098E+00              0.0                   \r\n                                        1.326504E+00         -7.639175E+00          1.125234E+01              0.0                   \r\n0    151        8                      -5.123034E-01          3.947967E+00         -9.513000E+00              0.0                   \r\n                                       -2.334316E+00          8.943756E+00         -5.050900E+00              0.0                   \r\n                                        1.925483E+00          4.358674E-01          7.863579E+00              0.0                   \r\n                                        1.182077E+00         -6.243759E+00          8.645462E+00              0.0                   \r\n0    151        9                      -4.583759E-01          3.288871E+00         -7.493970E+00              0.0                   \r\n                                       -2.044632E+00          7.604158E+00         -3.829563E+00              0.0                   \r\n                                        1.555420E+00          6.636513E-01          6.463659E+00              0.0                   \r\n                                        1.042387E+00         -5.104164E+00          6.658720E+00              0.0                   \r\n0    151       10                      -4.063997E-01          2.738644E+00         -5.941838E+00              0.0                   \r\n                                       -1.784548E+00          6.461985E+00         -2.886257E+00              0.0                   \r\n                                        1.249840E+00          7.899657E-01          5.305490E+00              0.0                   \r\n                                        9.124546E-01         -4.173007E+00          5.165895E+00              0.0                   \r\n0    151                0.0000         -5.953123E+00              0.0              -1.345287E+02              0.0                   \r\n                                       -3.302156E+01              0.0              -3.539800E+01              0.0                   \r\n                                        2.808627E+01              0.0               8.137351E+01              0.0                   \r\n                                        1.478566E+01              0.0               1.049693E+02              0.0                   \r\n0    151                7.1000         -4.566690E+00          2.852694E+01         -1.059596E+02              0.0                   \r\n                                       -2.645457E+01          6.167409E+01         -2.198724E+01              0.0                   \r\n                                        2.233608E+01         -3.943218E+00          5.982126E+01              0.0                   \r\n                                        1.154537E+01         -4.714214E+01          7.946516E+01              0.0                   \r\n0    152        0                      -5.688502E+00              0.0              -1.073233E+01              0.0                   \r\n                                       -1.017414E+01              0.0               1.022813E+01              0.0                   \r\n                                        5.192140E+00              0.0              -1.824911E+00              0.0                   \r\n                                        8.251915E+00              0.0               2.332794E+00              0.0                   \r\n0    152        1                      -5.747029E+00          5.599199E+00          5.955811E+00              0.0                   \r\n                                       -1.015754E+01          5.277411E+00          2.857378E+01              0.0                   \r\n                                        5.235229E+00         -5.588017E+00         -2.040092E+01              0.0                   \r\n                                        8.277016E+00         -7.684132E+00         -1.382198E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    152        2                      -5.909257E+00          9.476493E+00          4.393157E+01              0.0                   \r\n                                       -9.498119E+00          1.011596E+01          7.813734E+01              0.0                   \r\n                                        5.390499E+00         -8.352329E+00         -7.296905E+01              0.0                   \r\n                                        7.639812E+00         -1.559310E+01         -4.799962E+01              0.0                   \r\n0    152        3                      -6.161951E+00          6.760501E+00          2.425500E+01              0.0                   \r\n                                       -8.217381E+00          1.194081E+01          7.189351E+01              0.0                   \r\n                                        5.684074E+00         -2.954593E+00         -7.101840E+01              0.0                   \r\n                                        6.196362E+00         -1.992350E+01         -2.356421E+01              0.0                   \r\n0    152        4                      -6.272250E+00          4.064713E+00          9.492292E-01              0.0                   \r\n                                       -8.489038E+00          1.024160E+01          4.213408E+01              0.0                   \r\n                                        5.722564E+00          9.443060E-01         -3.942165E+01              0.0                   \r\n                                        6.479269E+00         -1.838939E+01         -2.064163E+00              0.0                   \r\n0    152        5                      -5.996542E+00          1.963047E+00         -5.111954E+00              0.0                   \r\n                                       -8.537146E+00          8.074148E+00          2.813406E+01              0.0                   \r\n                                        5.370028E+00          3.321544E+00         -2.386117E+01              0.0                   \r\n                                        6.520475E+00         -1.550547E+01          2.244501E+00              0.0                   \r\n0    152        6                      -5.476623E+00          5.186630E-01         -6.603397E+00              0.0                   \r\n                                       -8.253924E+00          6.347490E+00          1.977340E+01              0.0                   \r\n                                        4.773662E+00          4.457818E+00         -1.474561E+01              0.0                   \r\n                                        6.219032E+00         -1.276312E+01          2.731796E+00              0.0                   \r\n0    152        7                      -4.875580E+00         -3.415452E-01         -6.530933E+00              0.0                   \r\n                                       -7.787302E+00          5.113177E+00          1.448365E+01              0.0                   \r\n                                        4.107446E+00          4.767286E+00         -9.243063E+00              0.0                   \r\n                                        5.750053E+00         -1.052956E+01          2.239969E+00              0.0                   \r\n0    152        8                      -4.274936E+00         -8.309451E-01         -5.899721E+00              0.0                   \r\n                                       -7.239073E+00          4.232003E+00          1.096583E+01              0.0                   \r\n                                        3.461700E+00          4.644527E+00         -5.860170E+00              0.0                   \r\n                                        5.224154E+00         -8.753147E+00          1.567936E+00              0.0                   \r\n0    152        9                      -3.706411E+00         -1.083113E+00         -5.131249E+00              0.0                   \r\n                                       -6.659236E+00          3.567812E+00          8.524149E+00              0.0                   \r\n                                        2.870618E+00          4.320565E+00         -3.732997E+00              0.0                   \r\n                                        4.688046E+00         -7.333989E+00          9.806862E-01              0.0                   \r\n0    152       10                      -3.187939E+00         -1.195018E+00         -4.379987E+00              0.0                   \r\n                                       -6.075513E+00          3.053333E+00          6.757764E+00              0.0                   \r\n                                        2.344835E+00          3.910238E+00         -2.357594E+00              0.0                   \r\n                                        4.170466E+00         -6.175607E+00          5.166721E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    152                0.0000         -5.729702E+01              0.0               3.070204E+01              0.0                   \r\n                                       -9.108842E+01              0.0               3.196057E+02              0.0                   \r\n                                        5.015279E+01              0.0              -2.654355E+02              0.0                   \r\n                                        6.941660E+01              0.0              -7.483562E+01              0.0                   \r\n0    152                7.1000         -4.545454E+01          5.838408E+00          4.103973E+01              0.0                   \r\n                                       -7.151929E+01          3.485945E+01          2.771606E+02              0.0                   \r\n                                        4.040682E+01          1.668194E+01         -2.355303E+02              0.0                   \r\n                                        5.523050E+01         -6.618182E+01         -7.494137E+01              0.0                   \r\n0    153        0                       5.395373E-01              0.0               8.437694E+00              0.0                   \r\n                                       -5.140292E+00              0.0               1.400672E+01              0.0                   \r\n                                       -1.428161E+00              0.0              -1.185637E+01              0.0                   \r\n                                        4.689423E+00              0.0              -1.057795E+01              0.0                   \r\n0    153        1                       4.662155E-01          1.920261E+00          2.104079E+01              0.0                   \r\n                                       -5.128498E+00          9.358690E-01          2.202029E+01              0.0                   \r\n                                       -1.431490E+00         -2.136597E+00         -2.395080E+01              0.0                   \r\n                                        4.718845E+00         -2.095800E+00         -1.899684E+01              0.0                   \r\n0    153        2                      -4.426908E-01          1.465859E+00          5.849583E+01              0.0                   \r\n                                       -5.109489E+00          8.856820E-01          4.868011E+01              0.0                   \r\n                                       -1.418756E+00         -2.455583E+00         -6.232081E+01              0.0                   \r\n                                        4.870773E+00         -3.991178E+00         -4.456068E+01              0.0                   \r\n0    153        3                      -2.158966E+00         -3.932422E+00          6.058841E+01              0.0                   \r\n                                       -5.096123E+00         -1.039536E+00          5.569726E+01              0.0                   \r\n                                       -1.307860E+00          8.573935E-01         -6.889130E+01              0.0                   \r\n                                        5.096817E+00         -5.443532E+00         -4.734991E+01              0.0                   \r\n0    153        4                      -1.774636E+00         -6.625816E+00          3.798055E+01              0.0                   \r\n                                       -5.031696E+00         -2.385172E+00          3.979273E+01              0.0                   \r\n                                       -1.225269E+00          3.248912E+00         -4.595741E+01              0.0                   \r\n                                        5.065075E+00         -4.621630E+00         -3.217550E+01              0.0                   \r\n0    153        5                      -1.166529E+00         -7.716150E+00          2.532359E+01              0.0                   \r\n                                       -4.920849E+00         -3.085420E+00          2.900763E+01              0.0                   \r\n                                       -1.199938E+00          4.517045E+00         -3.175590E+01              0.0                   \r\n                                        4.852453E+00         -3.530101E+00         -2.331074E+01              0.0                   \r\n0    153        6                      -5.899624E-01         -7.785421E+00          1.719574E+01              0.0                   \r\n                                       -4.769365E+00         -3.222905E+00          2.137640E+01              0.0                   \r\n                                       -1.234121E+00          4.792777E+00         -2.223053E+01              0.0                   \r\n                                        4.558010E+00         -2.791483E+00         -1.731868E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    153        7                      -1.022943E-01         -7.319717E+00          1.192047E+01              0.0                   \r\n                                       -4.582603E+00         -3.047486E+00          1.603685E+01              0.0                   \r\n                                       -1.273146E+00          4.540079E+00         -1.586045E+01              0.0                   \r\n                                        4.230961E+00         -2.321662E+00         -1.319841E+01              0.0                   \r\n0    153        8                       2.799931E-01         -6.624291E+00          8.460415E+00              0.0                   \r\n                                       -4.371820E+00         -2.766932E+00          1.225289E+01              0.0                   \r\n                                       -1.308037E+00          4.081541E+00         -1.155995E+01              0.0                   \r\n                                        3.902598E+00         -2.026950E+00         -1.029433E+01              0.0                   \r\n0    153        9                       5.781597E-01         -5.886008E+00          6.118311E+00              0.0                   \r\n                                       -4.144222E+00         -2.438553E+00          9.538968E+00              0.0                   \r\n                                       -1.325000E+00          3.552327E+00         -8.598367E+00              0.0                   \r\n                                        3.582896E+00         -1.809620E+00         -8.189785E+00              0.0                   \r\n0    153       10                       7.947330E-01         -5.148837E+00          4.501015E+00              0.0                   \r\n                                       -3.900319E+00         -2.116783E+00          7.539324E+00              0.0                   \r\n                                       -1.324862E+00          3.035347E+00         -6.513636E+00              0.0                   \r\n                                        3.276234E+00         -1.647161E+00         -6.606709E+00              0.0                   \r\n0    153                0.0000         -3.576440E+00              0.0               2.600628E+02              0.0                   \r\n                                       -5.219527E+01              0.0               2.759492E+02              0.0                   \r\n                                       -1.447664E+01              0.0              -3.094955E+02              0.0                   \r\n                                        4.884409E+01              0.0              -2.325795E+02              0.0                   \r\n0    153                7.1000         -3.783246E+00         -3.501308E+01          2.256587E+02              0.0                   \r\n                                       -4.032468E+01         -1.398317E+01          2.330306E+02              0.0                   \r\n                                       -1.095967E+01          1.979535E+01         -2.653603E+02              0.0                   \r\n                                        3.812013E+01         -1.600231E+01         -1.967001E+02              0.0                   \r\n0    161        0                      -1.290102E+00              0.0              -1.162660E+01              0.0                   \r\n                                       -2.918007E+00              0.0              -8.474274E-01              0.0                   \r\n                                        2.737645E+00              0.0               8.097992E+00              0.0                   \r\n                                        4.358521E-01              0.0               4.379257E+00              0.0                   \r\n0    161        1                      -1.336655E+00          5.523843E+00         -3.597519E+00              0.0                   \r\n                                       -2.879578E+00          3.992836E+00          5.505692E+00              0.0                   \r\n                                        2.783895E+00         -6.369000E+00         -1.214294E+00              0.0                   \r\n                                        4.575424E-01         -4.119448E+00         -4.312744E-01              0.0                   \r\n0    161        2                      -1.463187E+00          1.127761E+01          8.520653E+00              0.0                   \r\n                                       -2.024491E+00          9.118456E+00          1.710797E+01              0.0                   \r\n                                        2.802818E+00         -1.197243E+01         -1.864323E+01              0.0                   \r\n                                        5.956678E-01         -8.521289E+00         -5.936451E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    161        3                      -1.612307E+00          1.382961E+01         -1.289545E+01              0.0                   \r\n                                       -1.870003E-01          1.409129E+01          4.033846E+00              0.0                   \r\n                                        2.753069E+00         -1.149961E+01          5.369759E-02              0.0                   \r\n                                        7.698879E-01         -1.062948E+01          1.072835E+01              0.0                   \r\n0    161        4                      -1.629937E+00          1.306458E+01         -2.080288E+01              0.0                   \r\n                                       -4.120750E-01          1.414836E+01         -3.331841E+00              0.0                   \r\n                                        2.729046E+00         -9.548134E+00          1.160695E+01              0.0                   \r\n                                        8.107872E-01         -1.006026E+01          1.490717E+01              0.0                   \r\n0    161        5                      -1.585333E+00          1.129650E+01         -1.834549E+01              0.0                   \r\n                                       -7.359352E-01          1.269695E+01         -3.463943E+00              0.0                   \r\n                                        2.627638E+00         -7.433726E+00          1.200174E+01              0.0                   \r\n                                        7.738686E-01         -8.689801E+00          1.235638E+01              0.0                   \r\n0    161        6                      -1.465673E+00          9.346127E+00         -1.458060E+01              0.0                   \r\n                                       -9.211559E-01          1.092995E+01         -2.507429E+00              0.0                   \r\n                                        2.405351E+00         -5.511384E+00          1.028528E+01              0.0                   \r\n                                        7.003250E-01         -7.167490E+00          9.309479E+00              0.0                   \r\n0    161        7                      -1.326087E+00          7.647933E+00         -1.126694E+01              0.0                   \r\n                                       -1.001846E+00          9.282036E+00         -1.533781E+00              0.0                   \r\n                                        2.134407E+00         -4.035040E+00          8.373703E+00              0.0                   \r\n                                        6.222858E-01         -5.846232E+00          6.815006E+00              0.0                   \r\n0    161        8                      -1.180886E+00          6.248491E+00         -8.648136E+00              0.0                   \r\n                                       -1.018551E+00          7.860074E+00         -8.075190E-01              0.0                   \r\n                                        1.862827E+00         -2.945568E+00          6.709085E+00              0.0                   \r\n                                        5.501270E-01         -4.757584E+00          4.949860E+00              0.0                   \r\n0    161        9                      -1.041835E+00          5.107381E+00         -6.656155E+00              0.0                   \r\n                                       -9.948292E-01          6.647616E+00         -2.987127E-01              0.0                   \r\n                                        1.606992E+00         -2.142065E+00          5.374002E+00              0.0                   \r\n                                        4.839077E-01         -3.874693E+00          3.599155E+00              0.0                   \r\n0    161       10                      -9.121809E-01          4.175613E+00         -5.163234E+00              0.0                   \r\n                                       -9.472008E-01          5.617949E+00          4.458046E-02              0.0                   \r\n                                        1.374179E+00         -1.544197E+00          4.311468E+00              0.0                   \r\n                                        4.248800E-01         -3.157523E+00          2.631521E+00              0.0                   \r\n0    161                0.0000         -1.484418E+01              0.0              -1.050624E+02              0.0                   \r\n                                       -1.404067E+01              0.0               1.390144E+01              0.0                   \r\n                                        2.581787E+01              0.0               4.695639E+01              0.0                   \r\n                                        6.625132E+00              0.0               6.330846E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    161                7.1000         -1.160008E+01          4.716882E+01         -7.955015E+01              0.0                   \r\n                                       -1.150379E+01          5.428747E+01          1.581188E+01              0.0                   \r\n                                        2.064765E+01         -2.941587E+01          2.927883E+01              0.0                   \r\n                                        5.098320E+00         -3.604807E+01          4.777539E+01              0.0                   \r\n0    162        0                      -6.963305E+00              0.0              -1.179021E+01              0.0                   \r\n                                       -8.916763E+00              0.0               1.157511E+01              0.0                   \r\n                                        6.645342E+00              0.0               1.593277E+00              0.0                   \r\n                                        7.064735E+00              0.0              -1.387436E+00              0.0                   \r\n0    162        1                      -7.065600E+00          7.250233E+00          4.272728E+00              0.0                   \r\n                                       -8.974213E+00          6.118392E+00          3.022228E+01              0.0                   \r\n                                        6.672752E+00         -7.019319E+00         -1.635268E+01              0.0                   \r\n                                        7.213547E+00         -8.499133E+00         -1.779038E+01              0.0                   \r\n0    162        2                      -8.202956E+00          1.249412E+01          3.810806E+01              0.0                   \r\n                                       -9.241318E+00          1.138259E+01          8.307428E+01              0.0                   \r\n                                        7.556475E+00         -1.114553E+01         -6.473514E+01              0.0                   \r\n                                        7.767286E+00         -1.664407E+01         -5.516576E+01              0.0                   \r\n0    162        3                      -1.050314E+01          9.790075E+00          1.312269E+01              0.0                   \r\n                                       -9.773518E+00          1.283703E+01          8.176355E+01              0.0                   \r\n                                        9.638020E+00         -6.488949E+00         -5.757488E+01              0.0                   \r\n                                        8.409792E+00         -1.977649E+01         -3.545317E+01              0.0                   \r\n0    162        4                      -1.025503E+01          6.741430E+00         -8.387253E+00              0.0                   \r\n                                       -9.789024E+00          1.049363E+01          5.026247E+01              0.0                   \r\n                                        9.442667E+00         -2.448799E+00         -2.797589E+01              0.0                   \r\n                                        8.312017E+00         -1.738132E+01         -1.202309E+01              0.0                   \r\n0    162        5                      -9.315619E+00          4.195666E+00         -1.210411E+01              0.0                   \r\n                                       -9.346983E+00          7.799310E+00          3.420250E+01              0.0                   \r\n                                        8.576887E+00          3.145865E-01         -1.505112E+01              0.0                   \r\n                                        7.766157E+00         -1.395898E+01         -5.440006E+00              0.0                   \r\n0    162        6                      -8.209097E+00          2.350031E+00         -1.171577E+01              0.0                   \r\n                                       -8.628824E+00          5.783065E+00          2.426897E+01              0.0                   \r\n                                        7.508511E+00          1.824764E+00         -8.154808E+00              0.0                   \r\n                                        6.972095E+00         -1.095635E+01         -3.079937E+00              0.0                   \r\n0    162        7                      -7.125040E+00          1.173570E+00         -1.025632E+01              0.0                   \r\n                                       -7.819170E+00          4.445127E+00          1.782892E+01              0.0                   \r\n                                        6.451410E+00          2.439351E+00         -4.355942E+00              0.0                   \r\n                                        6.126522E+00         -8.658269E+00         -2.164074E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    162        8                      -6.133805E+00          4.602969E-01         -8.629549E+00              0.0                   \r\n                                       -7.006500E+00          3.533043E+00          1.348997E+01              0.0                   \r\n                                        5.486313E+00          2.578422E+00         -2.208348E+00              0.0                   \r\n                                        5.318102E+00         -6.932426E+00         -1.798767E+00              0.0                   \r\n0    162        9                      -5.248013E+00          2.769971E-02         -7.139909E+00              0.0                   \r\n                                       -6.236849E+00          2.891380E+00          1.045114E+01              0.0                   \r\n                                        4.635516E+00          2.476495E+00         -9.960260E-01              0.0                   \r\n                                        4.580386E+00         -5.613926E+00         -1.613171E+00              0.0                   \r\n0    162       10                      -4.473181E+00         -2.309712E-01         -5.867645E+00              0.0                   \r\n                                       -5.518846E+00          2.420223E+00          8.244723E+00              0.0                   \r\n                                        3.896353E+00          2.261724E+00         -3.131886E-01              0.0                   \r\n                                        3.923104E+00         -4.584888E+00         -1.484734E+00              0.0                   \r\n0    162                0.0000         -8.349479E+01              0.0              -2.038729E+01              0.0                   \r\n                                       -9.125200E+01              0.0               3.653839E+02              0.0                   \r\n                                        7.651025E+01              0.0              -1.961248E+02              0.0                   \r\n                                        7.345374E+01              0.0              -1.374005E+02              0.0                   \r\n0    162                7.1000         -6.609241E+01          1.583749E+01         -6.465387E-01              0.0                   \r\n                                       -7.189355E+01          3.287745E+01          3.144026E+02              0.0                   \r\n                                        6.087266E+01          2.674726E+00         -1.784650E+02              0.0                   \r\n                                        5.852149E+01         -5.788710E+01         -1.264027E+02              0.0                   \r\n0    163        0                      -9.614830E-01              0.0               8.049021E-01              0.0                   \r\n                                       -3.732565E+00              0.0               1.187210E+01              0.0                   \r\n                                        3.778839E-02              0.0              -3.841345E+00              0.0                   \r\n                                        3.494204E+00              0.0              -8.834776E+00              0.0                   \r\n0    163        1                      -9.696789E-01          1.563051E+00          9.155624E+00              0.0                   \r\n                                       -3.714573E+00          2.128527E+00          2.397973E+01              0.0                   \r\n                                        6.022072E-02         -1.505981E+00         -1.177114E+01              0.0                   \r\n                                        3.444717E+00         -3.375359E+00         -2.124664E+01              0.0                   \r\n0    163        2                      -9.964180E-01          9.604850E-01          3.443517E+01              0.0                   \r\n                                       -3.652847E+00          2.444246E+00          6.236729E+01              0.0                   \r\n                                        1.709518E-01         -1.542660E+00         -3.822470E+01              0.0                   \r\n                                        2.587051E+00         -5.563586E+00         -5.830386E+01              0.0                   \r\n0    163        3                      -1.002956E+00         -4.443984E+00          3.664248E+01              0.0                   \r\n                                       -3.729126E+00         -8.644328E-01          6.892563E+01              0.0                   \r\n                                        2.514114E-01          1.202641E+00         -4.505772E+01              0.0                   \r\n                                        1.210648E+00         -4.896520E+00         -6.053516E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    163        4                      -9.845734E-01         -6.816793E+00          2.137025E+01              0.0                   \r\n                                       -3.717934E+00         -3.250927E+00          4.596445E+01              0.0                   \r\n                                        2.538681E-01          3.039038E+00         -2.954044E+01              0.0                   \r\n                                        1.654343E+00         -2.631296E+00         -3.826920E+01              0.0                   \r\n0    163        5                      -8.635731E-01         -7.590349E+00          1.293631E+01              0.0                   \r\n                                       -3.623817E+00         -4.519057E+00          3.178373E+01              0.0                   \r\n                                        2.139549E-01          3.935671E+00         -1.964207E+01              0.0                   \r\n                                        2.022507E+00         -8.101627E-01         -2.596931E+01              0.0                   \r\n0    163        6                      -6.943607E-01         -7.458291E+00          7.795753E+00              0.0                   \r\n                                       -3.460480E+00         -4.798007E+00          2.223750E+01              0.0                   \r\n                                        1.654816E-01          4.052486E+00         -1.301467E+01              0.0                   \r\n                                        2.134918E+00          1.059263E-01         -1.817188E+01              0.0                   \r\n0    163        7                      -5.192242E-01         -6.885878E+00          4.621408E+00              0.0                   \r\n                                       -3.257416E+00         -4.542389E+00          1.586051E+01              0.0                   \r\n                                        1.117649E-01          3.775419E+00         -8.716909E+00              0.0                   \r\n                                        2.102337E+00          4.572124E-01         -1.305901E+01              0.0                   \r\n0    163        8                      -3.576241E-01         -6.154603E+00          2.673166E+00              0.0                   \r\n                                       -3.039383E+00         -4.079866E+00          1.156654E+01              0.0                   \r\n                                        6.508350E-02          3.354293E+00         -5.902927E+00              0.0                   \r\n                                        1.994991E+00          5.208113E-01         -9.669979E+00              0.0                   \r\n0    163        9                      -2.182803E-01         -5.407816E+00          1.468869E+00              0.0                   \r\n                                       -2.819063E+00         -3.551628E+00          8.604012E+00              0.0                   \r\n                                        2.731371E-02          2.903051E+00         -4.022789E+00              0.0                   \r\n                                        1.849840E+00          4.573525E-01         -7.353794E+00              0.0                   \r\n0    163       10                      -1.021655E-01         -4.691508E+00          7.175236E-01              0.0                   \r\n                                       -2.597913E+00         -3.031745E+00          6.517029E+00              0.0                   \r\n                                       -4.350185E-03          2.468351E+00         -2.764330E+00              0.0                   \r\n                                        1.691380E+00          3.515230E-01         -5.710238E+00              0.0                   \r\n0    163                0.0000         -7.670338E+00              0.0               1.326215E+02              0.0                   \r\n                                       -3.734512E+01              0.0               3.096785E+02              0.0                   \r\n                                        1.353489E+00              0.0              -1.824990E+02              0.0                   \r\n                                        2.418694E+01              0.0              -2.671238E+02              0.0                   \r\n0    163                7.1000         -6.565331E+00         -3.357765E+01          1.178138E+02              0.0                   \r\n                                       -2.905935E+01         -1.980368E+01          2.655230E+02              0.0                   \r\n                                        1.135349E+00          1.697326E+01         -1.576550E+02              0.0                   \r\n                                        1.903839E+01         -3.683343E+00         -2.298584E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    171        0                      -4.317780E-01              0.0              -4.390556E+00              0.0                   \r\n                                       -3.014847E+00              0.0              -1.228806E+00              0.0                   \r\n                                        1.411213E+00              0.0               4.549942E+00              0.0                   \r\n                                        1.074745E+00              0.0               1.067596E+00              0.0                   \r\n0    171        1                      -4.559975E-01          4.115807E+00          4.133415E-01              0.0                   \r\n                                       -3.087036E+00          6.761524E+00          8.287712E+00              0.0                   \r\n                                        1.452623E+00         -4.602407E+00         -1.520590E+00              0.0                   \r\n                                        1.178162E+00         -7.195305E+00         -6.898056E+00              0.0                   \r\n0    171        2                      -5.648103E-01          8.515937E+00          5.880306E+00              0.0                   \r\n                                       -2.946978E+00          1.445566E+01          2.620100E+01              0.0                   \r\n                                        2.467908E+00         -8.231209E+00         -1.259265E+01              0.0                   \r\n                                        1.002795E+00         -1.478409E+01         -1.834447E+01              0.0                   \r\n0    171        3                      -7.774963E-01          1.062804E+01         -1.076268E+01              0.0                   \r\n                                       -2.303940E+00          1.972179E+01          7.598862E+00              0.0                   \r\n                                        4.467316E+00         -6.718547E+00          6.593665E-01              0.0                   \r\n                                        3.142433E-01         -1.783745E+01          4.595787E+00              0.0                   \r\n0    171        4                      -8.024445E-01          1.005226E+01         -1.493385E+01              0.0                   \r\n                                       -2.271317E+00          1.895594E+01         -3.922569E+00              0.0                   \r\n                                        4.103296E+00         -5.069654E+00          8.400572E+00              0.0                   \r\n                                        4.442253E-01         -1.647608E+01          1.304301E+01              0.0                   \r\n0    171        5                      -7.733746E-01          8.686635E+00         -1.237301E+01              0.0                   \r\n                                       -2.254440E+00          1.636868E+01         -4.598686E+00              0.0                   \r\n                                        3.371422E+00         -3.614995E+00          8.580511E+00              0.0                   \r\n                                        7.125053E-01         -1.389126E+01          1.113947E+01              0.0                   \r\n0    171        6                      -6.967602E-01          7.168462E+00         -9.309216E+00              0.0                   \r\n                                       -2.137486E+00          1.352445E+01         -3.479450E+00              0.0                   \r\n                                        2.688586E+00         -2.410016E+00          7.341558E+00              0.0                   \r\n                                        8.532753E-01         -1.115175E+01          8.102272E+00              0.0                   \r\n0    171        7                      -6.207848E-01          5.838662E+00         -6.813268E+00              0.0                   \r\n                                       -1.946407E+00          1.104807E+01         -2.262341E+00              0.0                   \r\n                                        2.126023E+00         -1.573201E+00          5.966408E+00              0.0                   \r\n                                        8.809738E-01         -8.835110E+00          5.578362E+00              0.0                   \r\n0    171        8                      -5.502262E-01          4.754421E+00         -4.950449E+00              0.0                   \r\n                                       -1.731401E+00          9.004148E+00         -1.323784E+00              0.0                   \r\n                                        1.687454E+00         -1.003511E+00          4.772357E+00              0.0                   \r\n                                        8.414173E-01         -6.993779E+00          3.752754E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    171        9                      -4.835358E-01          3.874305E+00         -3.599704E+00              0.0                   \r\n                                       -1.513067E+00          7.340697E+00         -6.722031E-01              0.0                   \r\n                                        1.344973E+00         -6.174536E-01          3.814193E+00              0.0                   \r\n                                        7.674599E-01         -5.540361E+00          2.481529E+00              0.0                   \r\n0    171       10                      -4.231725E-01          3.160083E+00         -2.634459E+00              0.0                   \r\n                                       -1.307547E+00          5.989351E+00         -2.330170E-01              0.0                   \r\n                                        1.075278E+00         -3.598947E-01          3.040720E+00              0.0                   \r\n                                        6.804638E-01         -4.392646E+00          1.626526E+00              0.0                   \r\n0    171                0.0000         -6.580380E+00              0.0              -6.347355E+01              0.0                   \r\n                                       -2.451447E+01              0.0               2.436671E+01              0.0                   \r\n                                        2.619609E+01              0.0               3.301239E+01              0.0                   \r\n                                        8.750265E+00              0.0               2.614478E+01              0.0                   \r\n0    171                7.1000         -5.057886E+00          3.603445E+01         -4.792812E+01              0.0                   \r\n                                       -1.978676E+01          6.743695E+01          2.716032E+01              0.0                   \r\n                                        2.098146E+01         -1.410464E+01          2.036678E+01              0.0                   \r\n                                        6.697429E+00         -5.616607E+01          1.451064E+01              0.0                   \r\n0    172        0                      -6.788544E+00              0.0              -5.471664E+00              0.0                   \r\n                                       -7.097458E+00              0.0               5.904655E+00              0.0                   \r\n                                        5.872553E+00              0.0               3.266159E+00              0.0                   \r\n                                        6.041519E+00              0.0              -3.698502E+00              0.0                   \r\n0    172        1                      -6.902972E+00          8.108236E+00          1.072648E+01              0.0                   \r\n                                       -7.168819E+00          7.272805E+00          2.376527E+01              0.0                   \r\n                                        6.041186E+00         -7.673717E+00         -1.463901E+01              0.0                   \r\n                                        6.087471E+00         -9.652542E+00         -1.944027E+01              0.0                   \r\n0    172        2                      -7.616118E+00          1.416370E+01          4.765092E+01              0.0                   \r\n                                       -7.158646E+00          1.353860E+01          7.188229E+01              0.0                   \r\n                                        6.908243E+00         -1.184751E+01         -6.442739E+01              0.0                   \r\n                                        5.939865E+00         -1.938084E+01         -5.362067E+01              0.0                   \r\n0    172        3                      -8.790764E+00          1.152951E+01          2.783841E+01              0.0                   \r\n                                       -6.854610E+00          1.453109E+01          6.499023E+01              0.0                   \r\n                                        8.038330E+00         -5.662690E+00         -5.989714E+01              0.0                   \r\n                                        5.546543E+00         -2.357769E+01         -3.084859E+01              0.0                   \r\n0    172        4                      -8.770883E+00          7.987717E+00          4.353113E+00              0.0                   \r\n                                       -7.036989E+00          1.150302E+01          3.576260E+01              0.0                   \r\n                                        7.885051E+00         -8.755460E-01         -2.924221E+01              0.0                   \r\n                                        5.824620E+00         -2.076154E+01         -8.801590E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    172        5                      -8.133106E+00          5.034828E+00         -1.968311E+00              0.0                   \r\n                                       -6.805242E+00          8.268427E+00          2.257064E+01              0.0                   \r\n                                        7.204432E+00          2.069873E+00         -1.539806E+01              0.0                   \r\n                                        5.617179E+00         -1.662841E+01         -3.446760E+00              0.0                   \r\n0    172        6                      -7.234870E+00          2.947804E+00         -3.732073E+00              0.0                   \r\n                                       -6.248642E+00          5.865977E+00          1.505028E+01              0.0                   \r\n                                        6.292653E+00          3.464649E+00         -8.024531E+00              0.0                   \r\n                                        5.068183E+00         -1.294534E+01         -1.905674E+00              0.0                   \r\n0    172        7                      -6.308539E+00          1.655964E+00         -3.943175E+00              0.0                   \r\n                                       -5.581266E+00          4.265918E+00          1.050343E+01              0.0                   \r\n                                        5.373169E+00          3.845476E+00         -4.008456E+00              0.0                   \r\n                                        4.424285E+00         -1.009418E+01         -1.469687E+00              0.0                   \r\n0    172        8                      -5.446749E+00          8.743486E-01         -3.593103E+00              0.0                   \r\n                                       -4.913498E+00          3.205472E+00          7.612082E+00              0.0                   \r\n                                        4.537923E+00          3.722242E+00         -1.800452E+00              0.0                   \r\n                                        3.799363E+00         -7.936565E+00         -1.374605E+00              0.0                   \r\n0    172        9                      -4.672836E+00          4.124813E-01         -3.092928E+00              0.0                   \r\n                                       -4.285118E+00          2.471534E+00          5.695489E+00              0.0                   \r\n                                        3.806761E+00          3.384482E+00         -6.013591E-01              0.0                   \r\n                                        3.228403E+00         -6.299191E+00         -1.336084E+00              0.0                   \r\n0    172       10                      -3.991168E+00          1.386292E-01         -2.593731E+00              0.0                   \r\n                                       -3.711488E+00          1.951668E+00          4.370147E+00              0.0                   \r\n                                        3.177403E+00          2.968663E+00          3.926241E-02              0.0                   \r\n                                        2.723448E+00         -5.029625E+00         -1.287811E+00              0.0                   \r\n0    172                0.0000         -7.465655E+01              0.0               6.617393E+01              0.0                   \r\n                                       -6.686177E+01              0.0               2.681071E+02              0.0                   \r\n                                        6.513770E+01              0.0              -1.947332E+02              0.0                   \r\n                                        5.430088E+01              0.0              -1.272302E+02              0.0                   \r\n0    172                7.1000         -5.929232E+01          1.987902E+01          7.006093E+01              0.0                   \r\n                                       -5.326143E+01          3.374218E+01          2.355266E+02              0.0                   \r\n                                        5.215645E+01          9.112692E+00         -1.775208E+02              0.0                   \r\n                                        4.368462E+01         -6.755721E+01         -1.183748E+02              0.0                   \r\n0    173        0                      -3.045180E+00              0.0               1.349595E+00              0.0                   \r\n                                       -4.140806E-02              0.0               3.836752E+00              0.0                   \r\n                                        8.436390E-01              0.0              -9.985749E-01              0.0                   \r\n                                        1.267921E+00              0.0              -4.179036E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    173        1                      -2.957016E+00          3.125393E+00          1.385781E+01              0.0                   \r\n                                       -6.283951E-02          1.506625E+00          1.176562E+01              0.0                   \r\n                                        6.454258E-01         -2.960582E+00         -1.312448E+01              0.0                   \r\n                                        1.361984E+00         -2.684768E+00         -1.235477E+01              0.0                   \r\n0    173        2                      -3.048347E+00          3.156908E+00          5.119914E+01              0.0                   \r\n                                       -1.812744E-01          1.548568E+00          3.821800E+01              0.0                   \r\n                                       -2.986422E-01         -3.351618E+00         -5.207441E+01              0.0                   \r\n                                        1.783554E+00         -4.744090E+00         -3.696075E+01              0.0                   \r\n0    173        3                      -4.092569E+00         -3.140623E+00          5.309542E+01              0.0                   \r\n                                       -2.809143E-01         -1.196578E+00          4.509813E+01              0.0                   \r\n                                       -8.393869E-01          1.063566E+00         -5.918667E+01              0.0                   \r\n                                        2.110550E+00         -5.244536E+00         -3.895386E+01              0.0                   \r\n0    173        4                      -4.107959E+00         -6.439949E+00          3.050053E+01              0.0                   \r\n                                       -2.618256E-01         -3.032879E+00          2.953553E+01              0.0                   \r\n                                       -2.261286E-01          4.146153E+00         -3.610978E+01              0.0                   \r\n                                        2.000137E+00         -3.717606E+00         -2.439394E+01              0.0                   \r\n0    173        5                      -3.810549E+00         -7.779444E+00          1.848428E+01              0.0                   \r\n                                       -2.189369E-01         -3.934057E+00          1.961163E+01              0.0                   \r\n                                        2.569499E-01          5.682023E+00         -2.256530E+01              0.0                   \r\n                                        1.713459E+00         -2.219438E+00         -1.646608E+01              0.0                   \r\n0    173        6                      -3.403808E+00         -7.803972E+00          1.126968E+01              0.0                   \r\n                                       -1.664581E-01         -4.054785E+00          1.302393E+01              0.0                   \r\n                                        5.225792E-01          5.881579E+00         -1.407555E+01              0.0                   \r\n                                        1.390518E+00         -1.318735E+00         -1.143684E+01              0.0                   \r\n0    173        7                      -2.974814E+00         -7.174012E+00          6.906942E+00              0.0                   \r\n                                       -1.121998E-01         -3.767627E+00          8.724529E+00              0.0                   \r\n                                        6.380572E-01          5.422208E+00         -8.807148E+00              0.0                   \r\n                                        1.102758E+00         -8.277427E-01         -8.166796E+00              0.0                   \r\n0    173        8                      -2.572273E+00         -6.300136E+00          4.276538E+00              0.0                   \r\n                                       -6.517601E-02         -3.354637E+00          5.893036E+00              0.0                   \r\n                                        6.553217E-01          4.741636E+00         -5.540302E+00              0.0                   \r\n                                        8.676710E-01         -5.785414E-01         -5.989937E+00              0.0                   \r\n0    173        9                      -2.202539E+00         -5.410535E+00          2.661096E+00              0.0                   \r\n                                       -2.720928E-02         -2.901628E+00          4.017859E+00              0.0                   \r\n                                        6.233954E-01          4.018334E+00         -3.496248E+00              0.0                   \r\n                                        6.798010E-01         -4.364673E-01         -4.504531E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    173       10                      -1.877891E+00         -4.564002E+00          1.656042E+00              0.0                   \r\n                                        4.810333E-03         -2.472559E+00          2.760192E+00              0.0                   \r\n                                        5.657930E-01          3.346091E+00         -2.207342E+00              0.0                   \r\n                                        5.310192E-01         -3.613567E-01         -3.446200E+00              0.0                   \r\n0    173                0.0000         -3.409295E+01              0.0               1.952571E+02              0.0                   \r\n                                       -1.413432E+00              0.0               1.824852E+02              0.0                   \r\n                                        3.387003E+00              0.0              -2.181858E+02              0.0                   \r\n                                        1.480937E+01              0.0              -1.668527E+02              0.0                   \r\n0    173                7.1000         -2.688199E+01         -3.276026E+01          1.728970E+02              0.0                   \r\n                                       -1.190973E+00         -1.696426E+01          1.576498E+02              0.0                   \r\n                                        2.037470E+00          2.332626E+01         -1.911319E+02              0.0                   \r\n                                        1.215314E+01         -9.199348E+00         -1.435112E+02              0.0                   \r\n0    231        0                      -1.678875E+00              0.0               9.145706E+00              0.0                   \r\n                                        4.576416E-01              0.0               3.478226E+00              0.0                   \r\n                                        7.841740E-01              0.0              -1.929474E-01              0.0                   \r\n                                       -7.138138E-01              0.0              -1.242624E+01              0.0                   \r\n0    231        1                      -1.351416E+00          6.001682E+00          1.368531E+01              0.0                   \r\n                                        1.942101E-01          8.048324E+00          1.263783E+01              0.0                   \r\n                                        5.511999E-01         -6.677373E+00         -6.000774E+00              0.0                   \r\n                                       -4.899158E-01         -8.469260E+00         -1.931985E+01              0.0                   \r\n0    231        2                       6.485367E-01          1.293425E+01          1.829784E+01              0.0                   \r\n                                       -8.144073E-01          1.851547E+01          3.127121E+01              0.0                   \r\n                                        6.427536E-01         -1.164326E+01         -1.729120E+01              0.0                   \r\n                                        3.457565E-01         -1.815778E+01         -2.808148E+01              0.0                   \r\n0    231        3                       2.458950E+00          1.550745E+01          1.441521E+00              0.0                   \r\n                                       -1.315720E+00          2.688223E+01          1.496548E+01              0.0                   \r\n                                        2.495128E+00         -6.263211E+00         -3.075287E+00              0.0                   \r\n                                        1.145199E+00         -2.074969E+01         -6.141853E+00              0.0                   \r\n0    231        4                       1.388610E+00          1.346399E+01         -3.124628E+00              0.0                   \r\n                                       -1.184921E+00          2.328299E+01          3.437992E+00              0.0                   \r\n                                        2.378172E+00         -3.320682E+00          6.448971E+00              0.0                   \r\n                                        1.186119E+00         -1.642752E+01          1.038383E+00              0.0                   \r\n0    231        5                       5.974674E-01          1.057248E+01         -1.823252E+00              0.0                   \r\n                                       -9.536247E-01          1.756400E+01          1.627949E+00              0.0                   \r\n                                        1.774724E+00         -1.837721E+00          7.234402E+00              0.0                   \r\n                                        1.048746E+00         -1.170866E+01          1.402512E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    231        6                       1.377964E-01          7.786725E+00         -4.738817E-01              0.0                   \r\n                                       -6.538982E-01          1.261106E+01          1.200039E+00              0.0                   \r\n                                        1.233685E+00         -8.246254E-01          6.082882E+00              0.0                   \r\n                                        8.424797E-01         -7.836076E+00         -8.266144E-01              0.0                   \r\n0    231        7                      -8.649445E-02          5.648844E+00          2.960739E-01              0.0                   \r\n                                       -4.080162E-01          8.922899E+00          1.002115E+00              0.0                   \r\n                                        8.172212E-01         -2.845150E-01          4.677807E+00              0.0                   \r\n                                        6.507082E-01         -5.152528E+00         -1.206913E+00              0.0                   \r\n0    231        8                      -1.779947E-01          4.079920E+00          6.507220E-01              0.0                   \r\n                                       -2.342110E-01          6.300628E+00          8.350334E-01              0.0                   \r\n                                        5.232735E-01         -2.555757E-02          3.458175E+00              0.0                   \r\n                                        4.938841E-01         -3.381852E+00         -1.212507E+00              0.0                   \r\n0    231        9                      -2.002625E-01          2.939725E+00          7.459233E-01              0.0                   \r\n                                       -1.222544E-01          4.466567E+00          6.796112E-01              0.0                   \r\n                                        3.256115E-01          7.989127E-02          2.509737E+00              0.0                   \r\n                                        3.708062E-01         -2.224840E+00         -1.052600E+00              0.0                   \r\n0    231       10                      -1.893065E-01          2.123139E+00          7.088592E-01              0.0                   \r\n                                       -5.238485E-02          3.166410E+00          5.439868E-01              0.0                   \r\n                                        1.960845E-01          1.128582E-01          1.799439E+00              0.0                   \r\n                                        2.761095E-01         -1.464771E+00         -8.493328E-01              0.0                   \r\n0    231                0.0000          1.547012E+00              0.0               3.955020E+01              0.0                   \r\n                                       -5.087586E+00              0.0               7.167945E+01              0.0                   \r\n                                        1.172203E+01              0.0               5.651205E+00              0.0                   \r\n                                        5.156078E+00              0.0              -6.993877E+01              0.0                   \r\n0    231                7.1000          1.405960E+00          3.973125E+01          3.833290E+01              0.0                   \r\n                                       -4.127998E+00          6.419367E+01          6.709246E+01              0.0                   \r\n                                        9.746033E+00         -9.221286E+00         -3.126641E+00              0.0                   \r\n                                        3.663835E+00         -4.309745E+01         -6.630873E+01              0.0                   \r\n0    234        0                       8.639691E-01              0.0              -3.487165E+00              0.0                   \r\n                                       -1.756973E+00              0.0              -9.617603E+00              0.0                   \r\n                                        1.497371E-01              0.0               1.268019E+01              0.0                   \r\n                                        1.493568E-01              0.0               4.298019E-01              0.0                   \r\n0    234        1                       4.550190E-01          6.799138E+00          6.518951E+00              0.0                   \r\n                                       -1.492046E+00          3.247623E+00         -1.982445E+00              0.0                   \r\n                                        1.447010E-02         -6.360289E+00          2.498390E+00              0.0                   \r\n                                        3.803520E-01         -4.328983E+00         -6.345467E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    234        2                      -2.632307E+00          7.832323E+00          3.568839E+01              0.0                   \r\n                                        4.617004E-01          3.429470E+00          2.396573E+01              0.0                   \r\n                                       -9.623146E-02         -8.153671E+00         -3.145856E+01              0.0                   \r\n                                       -5.467224E-02         -7.697465E+00         -2.638245E+01              0.0                   \r\n0    234        3                      -7.032597E+00         -4.253957E+00          3.324274E+01              0.0                   \r\n                                        2.822876E+00         -1.637940E+00          2.942197E+01              0.0                   \r\n                                        1.766434E-01         -5.535766E-01         -3.513580E+01              0.0                   \r\n                                       -1.495667E+00         -9.141187E+00         -2.713776E+01              0.0                   \r\n0    234        4                      -5.854020E+00         -8.236844E+00          1.259741E+01              0.0                   \r\n                                        1.984024E+00         -4.356234E+00          1.363261E+01              0.0                   \r\n                                        1.507864E-01          3.364362E+00         -1.255338E+01              0.0                   \r\n                                       -5.470352E-01         -6.043440E+00         -1.499297E+01              0.0                   \r\n0    234        5                      -4.158711E+00         -8.750427E+00          4.084492E+00              0.0                   \r\n                                        1.065636E+00         -5.281944E+00          5.669785E+00              0.0                   \r\n                                        2.177477E-01          4.716315E+00         -2.890823E+00              0.0                   \r\n                                       -2.188873E-02         -3.102278E+00         -9.417923E+00              0.0                   \r\n0    234        6                      -2.785873E+00         -7.752980E+00          6.354809E-01              0.0                   \r\n                                        4.456482E-01         -4.953468E+00          1.712128E+00              0.0                   \r\n                                        2.742562E-01          4.458776E+00          8.555832E-01              0.0                   \r\n                                        7.914925E-02         -1.511072E+00         -6.262299E+00              0.0                   \r\n0    234        7                      -1.810756E+00         -6.292657E+00         -6.715908E-01              0.0                   \r\n                                        9.673500E-02         -4.151741E+00         -8.916092E-02              0.0                   \r\n                                        2.865235E-01          3.604954E+00          2.006792E+00              0.0                   \r\n                                        4.847336E-02         -7.380522E-01         -4.255569E+00              0.0                   \r\n0    234        8                      -1.156838E+00         -4.877750E+00         -1.039298E+00              0.0                   \r\n                                       -7.580185E-02         -3.307059E+00         -8.272324E-01              0.0                   \r\n                                        2.697834E-01          2.722170E+00          2.101593E+00              0.0                   \r\n                                       -1.904488E-03         -3.701056E-01         -2.944962E+00              0.0                   \r\n0    234        9                      -7.286416E-01         -3.692683E+00         -1.031688E+00              0.0                   \r\n                                       -1.476865E-01         -2.555481E+00         -1.031184E+00              0.0                   \r\n                                        2.367395E-01          1.983016E+00          1.815556E+00              0.0                   \r\n                                       -3.899240E-02         -1.963205E-01         -2.055736E+00              0.0                   \r\n0    234       10                      -4.514789E-01         -2.752993E+00         -8.905592E-01              0.0                   \r\n                                       -1.668773E-01         -1.937399E+00         -1.000338E+00              0.0                   \r\n                                        1.990052E-01          1.409097E+00          1.442321E+00              0.0                   \r\n                                       -5.972290E-02         -1.062072E-01         -1.444855E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    234                0.0000         -2.529223E+01              0.0               8.564716E+01              0.0                   \r\n                                        3.237234E+00              0.0               5.985426E+01              0.0                   \r\n                                        1.879461E+00              0.0              -5.863813E+01              0.0                   \r\n                                       -1.562551E+00              0.0              -1.008102E+02              0.0                   \r\n0    234                7.1000         -2.064658E+01         -2.783027E+01          8.167873E+01              0.0                   \r\n                                        2.682656E+00         -1.790472E+01          5.563890E+01              0.0                   \r\n                                        1.249157E+00          1.250993E+01         -5.712284E+01              0.0                   \r\n                                       -1.366755E+00         -1.259188E+01         -8.793262E+01              0.0                   \r\n0    241        0                       7.126789E-01              0.0               1.242349E+01              0.0                   \r\n                                       -4.825974E-01              0.0               6.243896E-02              0.0                   \r\n                                       -1.156045E+00              0.0              -3.406586E+00              0.0                   \r\n                                        1.806107E-01              0.0              -9.079346E+00              0.0                   \r\n0    241        1                       4.881485E-01          8.469613E+00          1.931577E+01              0.0                   \r\n                                       -3.968420E-01          5.751734E+00          6.417578E+00              0.0                   \r\n                                       -1.126010E+00         -9.502399E+00         -1.154070E+01              0.0                   \r\n                                        3.085423E-01         -5.445504E+00         -1.319423E+01              0.0                   \r\n0    241        2                      -3.490181E-01          1.816121E+01          2.807287E+01              0.0                   \r\n                                        7.348328E-01          1.425847E+01          2.021072E+01              0.0                   \r\n                                        4.532242E-02         -1.816017E+01         -2.707263E+01              0.0                   \r\n                                        5.904694E-01         -1.211801E+01         -1.692682E+01              0.0                   \r\n0    241        3                      -1.147215E+00          2.076005E+01          6.133705E+00              0.0                   \r\n                                        2.754284E+00          2.206067E+01          1.027582E+01              0.0                   \r\n                                        2.467444E+00         -1.374769E+01         -7.292908E+00              0.0                   \r\n                                        5.651093E-01         -1.390275E+01         -1.962891E+00              0.0                   \r\n0    241        4                      -1.194203E+00          1.642739E+01         -1.033620E+00              0.0                   \r\n                                        2.021879E+00          1.861374E+01          2.305341E+00              0.0                   \r\n                                        2.091448E+00         -8.578408E+00          5.299183E+00              0.0                   \r\n                                        4.735088E-01         -1.068930E+01          7.243118E-01              0.0                   \r\n0    241        5                      -1.049913E+00          1.170747E+01         -1.361828E-01              0.0                   \r\n                                        1.259520E+00          1.349426E+01          9.825726E-01              0.0                   \r\n                                        1.382813E+00         -5.195502E+00          6.111637E+00              0.0                   \r\n                                        3.913670E-01         -7.415353E+00         -6.490021E-01              0.0                   \r\n0    241        6                      -8.419445E-01          7.835405E+00          8.275118E-01              0.0                   \r\n                                        8.068953E-01          9.254912E+00          5.985050E-01              0.0                   \r\n                                        8.259872E-01         -2.862286E+00          4.798622E+00              0.0                   \r\n                                        3.129044E-01         -4.814406E+00         -1.309475E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    241        7                      -6.506701E-01          5.154825E+00          1.209096E+00              0.0                   \r\n                                        5.416145E-01          6.240051E+00          4.026117E-01              0.0                   \r\n                                        4.559893E-01         -1.517545E+00          3.408062E+00              0.0                   \r\n                                        2.441769E-01         -3.062751E+00         -1.363041E+00              0.0                   \r\n0    241        8                      -4.943352E-01          3.382138E+00          1.212688E+00              0.0                   \r\n                                        3.766456E-01          4.196091E+00          2.803655E-01              0.0                   \r\n                                        2.328261E-01         -7.867090E-01          2.328356E+00              0.0                   \r\n                                        1.869082E-01         -1.943188E+00         -1.156801E+00              0.0                   \r\n0    241        9                      -3.706493E-01          2.221288E+00          1.053550E+00              0.0                   \r\n                                        2.681279E-01          2.820160E+00          1.948657E-01              0.0                   \r\n                                        1.061279E-01         -4.028115E-01          1.562333E+00              0.0                   \r\n                                        1.391826E-01         -1.232257E+00         -8.918991E-01              0.0                   \r\n0    241       10                      -2.760354E-01          1.463512E+00          8.516906E-01              0.0                   \r\n                                        1.942118E-01          1.894084E+00          1.326139E-01              0.0                   \r\n                                        3.814464E-02         -1.988934E-01          1.035979E+00              0.0                   \r\n                                        1.017201E-01         -7.851723E-01         -6.534090E-01              0.0                   \r\n0    241                0.0000         -5.173156E+00              0.0               6.993057E+01              0.0                   \r\n                                        8.078570E+00              0.0               4.186343E+01              0.0                   \r\n                                        5.364047E+00              0.0              -2.476865E+01              0.0                   \r\n                                        3.494499E+00              0.0              -4.646260E+01              0.0                   \r\n0    241                7.1000         -3.679560E+00          4.309850E+01          6.629685E+01              0.0                   \r\n                                        6.537754E+00          4.776963E+01          3.940909E+01              0.0                   \r\n                                        4.124453E+00         -2.202322E+01         -3.022588E+01              0.0                   \r\n                                        2.905813E+00         -2.715571E+01         -4.338610E+01              0.0                   \r\n0    244        0                       6.729345E-01              0.0               1.479206E-01              0.0                   \r\n                                       -1.502571E-01              0.0              -1.268311E+01              0.0                   \r\n                                        5.962429E-01              0.0               9.401314E+00              0.0                   \r\n                                       -1.325962E+00              0.0               3.131821E+00              0.0                   \r\n0    244        1                       3.974895E-01          5.218898E+00          6.443302E+00              0.0                   \r\n                                       -1.157379E-02          6.360525E+00         -2.501854E+00              0.0                   \r\n                                        3.578930E-01         -4.397849E+00          3.234024E+00              0.0                   \r\n                                       -9.930191E-01         -7.431105E+00         -6.412018E+00              0.0                   \r\n0    244        2                      -1.127975E+00          5.405540E+00          2.413120E+01              0.0                   \r\n                                        9.545898E-02          8.154398E+00          3.146967E+01              0.0                   \r\n                                       -3.059998E-01         -5.307364E+00         -1.868689E+01              0.0                   \r\n                                       -5.405884E-01         -1.193837E+01         -3.488318E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    244        3                      -3.233055E+00         -5.792995E+00          2.050267E+01              0.0                   \r\n                                       -1.719055E-01          5.573616E-01          3.514825E+01              0.0                   \r\n                                       -5.907898E-01          5.787923E-01         -2.141077E+01              0.0                   \r\n                                       -9.786987E-01         -9.230481E+00         -3.380872E+01              0.0                   \r\n0    244        4                      -2.793064E+00         -8.487903E+00          6.574951E+00              0.0                   \r\n                                       -1.532745E-01         -3.368406E+00          1.255305E+01              0.0                   \r\n                                       -4.475479E-01          3.152204E+00         -5.674835E+00              0.0                   \r\n                                       -3.645172E-01         -4.348624E+00         -1.473456E+01              0.0                   \r\n0    244        5                      -1.949558E+00         -7.975547E+00          1.387840E+00              0.0                   \r\n                                       -2.169800E-01         -4.711544E+00          2.888542E+00              0.0                   \r\n                                       -1.870384E-01          3.757670E+00          4.721527E-01              0.0                   \r\n                                       -1.230927E-01         -1.058823E+00         -7.122223E+00              0.0                   \r\n0    244        6                      -1.242132E+00         -6.499651E+00         -3.323689E-01              0.0                   \r\n                                       -2.725143E-01         -4.453135E+00         -8.541336E-01              0.0                   \r\n                                        1.888275E-02          3.271097E+00          2.228004E+00              0.0                   \r\n                                       -1.563988E-01          2.661733E-01         -3.742493E+00              0.0                   \r\n0    244        7                      -7.482920E-01         -4.915580E+00         -7.773905E-01              0.0                   \r\n                                       -2.866364E-01         -3.609678E+00         -2.011887E+00              0.0                   \r\n                                        1.220779E-01          2.497550E+00          2.349686E+00              0.0                   \r\n                                       -2.072792E-01          5.894518E-01         -2.078911E+00              0.0                   \r\n0    244        8                      -4.299622E-01         -3.582637E+00         -7.751613E-01              0.0                   \r\n                                       -2.698307E-01         -2.725374E+00         -2.104378E+00              0.0                   \r\n                                        1.565242E-01          1.789047E+00          1.953449E+00              0.0                   \r\n                                       -2.232838E-01          5.637935E-01         -1.211395E+00              0.0                   \r\n0    244        9                      -2.335973E-01         -2.557191E+00         -6.373234E-01              0.0                   \r\n                                       -2.371483E-01         -1.981849E+00         -1.818031E+00              0.0                   \r\n                                        1.519117E-01          1.237879E+00          1.473940E+00              0.0                   \r\n                                       -2.097311E-01          4.457681E-01         -7.323055E-01              0.0                   \r\n0    244       10                      -1.163274E-01         -1.796603E+00         -4.833498E-01              0.0                   \r\n                                       -1.987214E-01         -1.410233E+00         -1.442332E+00              0.0                   \r\n                                        1.307025E-01          8.412888E-01          1.055042E+00              0.0                   \r\n                                       -1.807222E-01          3.216197E-01         -4.532108E-01              0.0                   \r\n0    244                0.0000         -1.080354E+01              0.0               5.618229E+01              0.0                   \r\n                                       -1.873383E+00              0.0               5.864380E+01              0.0                   \r\n                                        2.859116E-03              0.0              -2.360488E+01              0.0                   \r\n                                       -5.303293E+00              0.0              -1.020472E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    244                7.1000         -8.856814E+00         -2.394309E+01          5.434170E+01              0.0                   \r\n                                       -1.243605E+00         -1.251000E+01          5.713187E+01              0.0                   \r\n                                       -1.536983E-01          9.569131E+00         -2.483973E+01              0.0                   \r\n                                       -4.690701E+00         -8.077327E+00         -9.253969E+01              0.0                   \r\n0    251        0                      -1.804466E-01              0.0               9.087574E+00              0.0                   \r\n                                        2.291565E-01              0.0               1.394341E+00              0.0                   \r\n                                       -3.321114E-01              0.0              -1.732307E+00              0.0                   \r\n                                       -8.570862E-02              0.0              -8.745804E+00              0.0                   \r\n0    251        1                      -3.063955E-01          5.444410E+00          1.320238E+01              0.0                   \r\n                                        3.020840E-01          8.788833E+00          9.937267E+00              0.0                   \r\n                                       -4.537835E-01         -6.310971E+00         -6.844078E+00              0.0                   \r\n                                        8.345413E-02         -8.297776E+00         -1.530614E+01              0.0                   \r\n0    251        2                      -5.908356E-01          1.211935E+01          1.693866E+01              0.0                   \r\n                                        1.081512E+00          2.025525E+01          2.768689E+01              0.0                   \r\n                                        1.198463E-01         -1.148081E+01         -1.637216E+01              0.0                   \r\n                                        6.182404E-01         -1.837320E+01         -2.399310E+01              0.0                   \r\n0    251        3                      -5.731354E-01          1.388414E+01          1.963814E+00              0.0                   \r\n                                        1.927017E+00          2.656133E+01          1.202904E+01              0.0                   \r\n                                        2.231293E+00         -5.986920E+00         -2.325592E+00              0.0                   \r\n                                        9.751816E-01         -1.972932E+01         -4.824646E+00              0.0                   \r\n0    251        4                      -4.820166E-01          1.067572E+01         -7.321007E-01              0.0                   \r\n                                        9.317751E-01          2.025967E+01          8.114243E-01              0.0                   \r\n                                        1.831784E+00         -2.775880E+00          5.861581E+00              0.0                   \r\n                                        8.962512E-01         -1.372228E+01          5.982723E-01              0.0                   \r\n0    251        5                      -3.923373E-01          7.415898E+00          6.421089E-01              0.0                   \r\n                                        3.411036E-01          1.333417E+01         -4.602489E-01              0.0                   \r\n                                        1.121744E+00         -1.506423E+00          5.635324E+00              0.0                   \r\n                                        7.127161E-01         -8.615585E+00         -5.129261E-01              0.0                   \r\n0    251        6                      -3.145318E-01          4.801916E+00          1.312643E+00              0.0                   \r\n                                        1.468134E-01          8.239704E+00         -4.234772E-01              0.0                   \r\n                                        6.295540E-01         -7.121494E-01          4.053358E+00              0.0                   \r\n                                        5.040693E-01         -5.021350E+00         -1.090160E+00              0.0                   \r\n0    251        7                      -2.452931E-01          3.057872E+00          1.358409E+00              0.0                   \r\n                                        9.830952E-02          4.986095E+00         -2.834377E-01              0.0                   \r\n                                        3.315980E-01         -3.169631E-01          2.667844E+00              0.0                   \r\n                                        3.375015E-01         -2.855922E+00         -1.082205E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    251        8                      -1.870821E-01          1.941178E+00          1.158458E+00              0.0                   \r\n                                        8.761072E-02          3.000354E+00         -1.823888E-01              0.0                   \r\n                                        1.642715E-01         -1.380216E-01          1.686700E+00              0.0                   \r\n                                        2.200818E-01         -1.616365E+00         -8.612747E-01              0.0                   \r\n0    251        9                      -1.396121E-01          1.231473E+00          8.938485E-01              0.0                   \r\n                                        8.023262E-02          1.806821E+00         -1.182928E-01              0.0                   \r\n                                        7.524568E-02         -6.259478E-02          1.044415E+00              0.0                   \r\n                                        1.411390E-01         -9.149154E-01         -6.170030E-01              0.0                   \r\n0    251       10                      -1.018935E-01          7.842682E-01          6.516349E-01              0.0                   \r\n                                        7.092404E-02          1.083865E+00         -7.700968E-02              0.0                   \r\n                                        3.003773E-02         -3.079374E-02          6.375349E-01              0.0                   \r\n                                        8.934367E-02         -5.169224E-01         -4.181135E-01              0.0                   \r\n0    251                0.0000         -3.513579E+00              0.0               4.647743E+01              0.0                   \r\n                                        5.296539E+00              0.0               5.031410E+01              0.0                   \r\n                                        5.749479E+00              0.0              -5.687384E+00              0.0                   \r\n                                        4.492270E+00              0.0              -5.685310E+01              0.0                   \r\n0    251                7.1000         -2.921886E+00          2.712759E+01          4.340281E+01              0.0                   \r\n                                        4.748123E+00          4.762066E+01          4.897073E+01              0.0                   \r\n                                        4.747920E+00         -8.890780E+00         -1.051880E+01              0.0                   \r\n                                        3.674669E+00         -3.246899E+01         -5.396256E+01              0.0                   \r\n0    254        0                       8.669353E-01              0.0              -1.395477E+00              0.0                   \r\n                                       -5.956192E-01              0.0              -9.398483E+00              0.0                   \r\n                                        2.423720E-01              0.0               8.987495E+00              0.0                   \r\n                                       -4.481697E-01              0.0               1.808922E+00              0.0                   \r\n0    254        1                       5.564871E-01          8.129444E+00          7.665604E+00              0.0                   \r\n                                       -3.583221E-01          4.397569E+00         -3.226227E+00              0.0                   \r\n                                        5.924129E-02         -7.368416E+00          4.458542E-01              0.0                   \r\n                                       -2.323532E-01         -5.133927E+00         -4.059753E+00              0.0                   \r\n0    254        2                      -1.110195E+00          9.671082E+00          3.377704E+01              0.0                   \r\n                                        2.923584E-01          5.309116E+00          1.868628E+01              0.0                   \r\n                                       -3.504448E-01         -9.337390E+00         -2.853345E+01              0.0                   \r\n                                       -3.682861E-01         -8.623169E+00         -2.174170E+01              0.0                   \r\n0    254        3                      -3.506401E+00         -3.535834E+00          2.866875E+01              0.0                   \r\n                                        5.890503E-01         -5.733738E-01          2.141202E+01              0.0                   \r\n                                       -2.670116E-01         -1.033009E-01         -2.819495E+01              0.0                   \r\n                                       -1.269440E+00         -8.164062E+00         -2.145618E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    254        4                      -3.023516E+00         -7.114371E+00          8.364143E+00              0.0                   \r\n                                        4.449692E-01         -3.156085E+00          5.677185E+00              0.0                   \r\n                                       -7.426453E-02          3.550083E+00         -5.714340E+00              0.0                   \r\n                                       -5.065384E-01         -4.399841E+00         -9.565948E+00              0.0                   \r\n0    254        5                      -2.029787E+00         -6.902712E+00          1.371616E+00              0.0                   \r\n                                        1.880188E-01         -3.756001E+00         -4.560623E-01              0.0                   \r\n                                        9.754276E-02          4.225286E+00          1.734947E+00              0.0                   \r\n                                       -1.574554E-01         -1.539802E+00         -4.819069E+00              0.0                   \r\n0    254        6                      -1.190498E+00         -5.475457E+00         -6.377659E-01              0.0                   \r\n                                       -1.806450E-02         -3.272686E+00         -2.230186E+00              0.0                   \r\n                                        1.820235E-01          3.518850E+00          3.182446E+00              0.0                   \r\n                                       -1.181107E-01         -2.977287E-01         -2.644981E+00              0.0                   \r\n0    254        7                      -6.329799E-01         -3.929333E+00         -1.017552E+00              0.0                   \r\n                                       -1.229124E-01         -2.492858E+00         -2.342594E+00              0.0                   \r\n                                        1.902685E-01          2.511248E+00          2.815884E+00              0.0                   \r\n                                       -1.299028E-01          1.159699E-01         -1.494867E+00              0.0                   \r\n0    254        8                      -3.018140E-01         -2.673449E+00         -8.961344E-01              0.0                   \r\n                                       -1.564002E-01         -1.787590E+00         -1.950939E+00              0.0                   \r\n                                        1.646541E-01          1.671208E+00          2.085259E+00              0.0                   \r\n                                       -1.289997E-01          2.075727E-01         -8.638878E-01              0.0                   \r\n0    254        9                      -1.193880E-01         -1.767185E+00         -6.722641E-01              0.0                   \r\n                                       -1.517935E-01         -1.238070E+00         -1.470621E+00              0.0                   \r\n                                        1.288249E-01          1.071410E+00          1.425955E+00              0.0                   \r\n                                       -1.135218E-01          1.906737E-01         -5.033283E-01              0.0                   \r\n0    254       10                      -2.624418E-02         -1.145620E+00         -4.689370E-01              0.0                   \r\n                                       -1.307067E-01         -8.392284E-01         -1.053152E+00              0.0                   \r\n                                        9.518689E-02          6.693071E-01          9.334819E-01              0.0                   \r\n                                       -9.209239E-02          1.500197E-01         -2.951837E-01              0.0                   \r\n0    254                0.0000         -1.051740E+01              0.0               7.475902E+01              0.0                   \r\n                                       -1.942194E-02              0.0               2.364722E+01              0.0                   \r\n                                        4.683931E-01              0.0              -4.083141E+01              0.0                   \r\n                                       -3.564870E+00              0.0              -6.563597E+01              0.0                   \r\n0    254                7.1000         -8.748170E+00         -1.690961E+01          7.207420E+01              0.0                   \r\n                                        1.377617E-01         -9.562143E+00          2.487247E+01              0.0                   \r\n                                        1.616082E-01          8.193818E+00         -4.187790E+01              0.0                   \r\n                                       -3.113784E+00         -8.328645E+00         -5.932998E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    261        0                       8.515358E-02              0.0               8.744564E+00              0.0                   \r\n                                        6.285782E-01              0.0              -7.745132E-01              0.0                   \r\n                                       -1.143690E+00              0.0              -2.836121E+00              0.0                   \r\n                                        2.872162E-01              0.0              -5.133896E+00              0.0                   \r\n0    261        1                      -8.387947E-02          8.297515E+00          1.530365E+01              0.0                   \r\n                                        6.957226E-01          5.720937E+00          4.788593E+00              0.0                   \r\n                                       -1.202436E+00         -9.062232E+00         -1.008579E+01              0.0                   \r\n                                        4.315338E-01         -5.115831E+00         -9.043755E+00              0.0                   \r\n0    261        2                      -6.177673E-01          1.837555E+01          2.398587E+01              0.0                   \r\n                                        1.515488E+00          1.419756E+01          1.687210E+01              0.0                   \r\n                                       -3.624759E-01         -1.800629E+01         -2.369122E+01              0.0                   \r\n                                        7.993164E-01         -1.182891E+01         -1.291187E+01              0.0                   \r\n0    261        3                      -9.743500E-01          1.973903E+01          4.817604E+00              0.0                   \r\n                                        2.884552E+00          2.018871E+01          7.189758E+00              0.0                   \r\n                                        1.685636E+00         -1.294908E+01         -5.045593E+00              0.0                   \r\n                                        7.783051E-01         -1.279367E+01         -3.070984E-01              0.0                   \r\n0    261        4                      -9.028561E-01          1.372218E+01         -5.951929E-01              0.0                   \r\n                                        1.962003E+00          1.489936E+01         -3.495789E-02              0.0                   \r\n                                        1.251488E+00         -6.946774E+00          5.592873E+00              0.0                   \r\n                                        5.592365E-01         -8.509787E+00          9.430733E-01              0.0                   \r\n0    261        5                      -7.135189E-01          8.614764E+00          5.137372E-01              0.0                   \r\n                                        1.129182E+00          9.287390E+00         -6.400828E-01              0.0                   \r\n                                        6.539122E-01         -3.779393E+00          5.179364E+00              0.0                   \r\n                                        3.876901E-01         -5.135427E+00         -5.914898E-01              0.0                   \r\n0    261        6                      -5.037270E-01          5.020864E+00          1.090519E+00              0.0                   \r\n                                        6.633003E-01          5.418891E+00         -4.878163E-01              0.0                   \r\n                                        2.863838E-01         -1.867023E+00          3.416454E+00              0.0                   \r\n                                        2.579608E-01         -2.871850E+00         -1.017048E+00              0.0                   \r\n0    261        7                      -3.375054E-01          2.856960E+00          1.083086E+00              0.0                   \r\n                                        4.043446E-01          3.094697E+00         -3.299747E-01              0.0                   \r\n                                        9.700093E-02         -8.882384E-01          2.054898E+00              0.0                   \r\n                                        1.675227E-01         -1.561160E+00         -8.936033E-01              0.0                   \r\n0    261        8                      -2.203560E-01          1.616484E+00          8.607532E-01              0.0                   \r\n                                        2.523168E-01          1.758425E+00         -2.177050E-01              0.0                   \r\n                                        1.312486E-02         -4.189029E-01          1.191556E+00              0.0                   \r\n                                        1.070160E-01         -8.429380E-01         -6.429896E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    261        9                      -1.410935E-01          9.133861E-01          6.174911E-01              0.0                   \r\n                                        1.593750E-01          9.960819E-01         -1.426964E-01              0.0                   \r\n                                       -1.775424E-02         -2.000095E-01          6.771760E-01              0.0                   \r\n                                        6.694424E-02         -4.531879E-01         -4.207776E-01              0.0                   \r\n0    261       10                      -8.934154E-02          5.164367E-01          4.190344E-01              0.0                   \r\n                                        1.013623E-01          5.619186E-01         -9.409314E-02              0.0                   \r\n                                       -2.466156E-02         -9.596144E-02          3.793644E-01              0.0                   \r\n                                        4.113871E-02         -2.439649E-01         -2.617494E-01              0.0                   \r\n0    261                0.0000         -4.499242E+00              0.0               5.684111E+01              0.0                   \r\n                                        1.039622E+01              0.0               2.612861E+01              0.0                   \r\n                                        1.236528E+00              0.0              -2.316705E+01              0.0                   \r\n                                        3.883880E+00              0.0              -3.028120E+01              0.0                   \r\n0    261                7.1000         -3.680756E+00          3.247127E+01          5.394971E+01              0.0                   \r\n                                        9.111873E+00          3.292852E+01          2.569560E+01              0.0                   \r\n                                        7.803081E-01         -1.830175E+01         -2.645869E+01              0.0                   \r\n                                        3.422710E+00         -1.968850E+01         -2.851277E+01              0.0                   \r\n0    264        0                       1.151257E+00              0.0               9.339027E-01              0.0                   \r\n                                       -2.429886E-01              0.0              -8.990532E+00              0.0                   \r\n                                        4.203205E-01              0.0               5.297379E+00              0.0                   \r\n                                       -1.152542E+00              0.0               2.757645E+00              0.0                   \r\n0    264        1                       8.591919E-01          5.759140E+00          6.433559E+00              0.0                   \r\n                                       -5.767059E-02          7.368777E+00         -4.489594E-01              0.0                   \r\n                                        2.091827E-01         -4.834387E+00          2.859955E-01              0.0                   \r\n                                       -8.645782E-01         -8.147472E+00         -5.421265E+00              0.0                   \r\n0    264        2                      -8.359070E-01          6.303456E+00          2.176068E+01              0.0                   \r\n                                        3.514404E-01          9.338504E+00          2.854211E+01              0.0                   \r\n                                       -3.284912E-01         -5.729238E+00         -1.800684E+01              0.0                   \r\n                                       -4.967651E-01         -1.247200E+01         -3.007898E+01              0.0                   \r\n0    264        3                      -2.847809E+00         -5.178187E+00          1.704948E+01              0.0                   \r\n                                        2.720337E-01          1.063032E-01          2.820428E+01              0.0                   \r\n                                       -3.824310E-01          1.123038E+00         -1.791003E+01              0.0                   \r\n                                       -1.106567E+00         -7.314981E+00         -2.716052E+01              0.0                   \r\n0    264        4                      -2.048027E+00         -7.063096E+00          3.990799E+00              0.0                   \r\n                                        7.273865E-02         -3.553105E+00          5.714264E+00              0.0                   \r\n                                       -1.688156E-01          3.191220E+00         -2.323669E+00              0.0                   \r\n                                       -6.531982E-01         -2.245006E+00         -8.811890E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    264        5                      -1.141401E+00         -5.829775E+00         -5.154419E-02              0.0                   \r\n                                       -9.683228E-02         -4.221764E+00         -1.738068E+00              0.0                   \r\n                                        3.887939E-02          3.172451E+00          2.372314E+00              0.0                   \r\n                                       -4.018173E-01          3.994429E-01         -2.714050E+00              0.0                   \r\n0    264        6                      -5.464935E-01         -4.168896E+00         -8.778934E-01              0.0                   \r\n                                       -1.811142E-01         -3.514971E+00         -3.181492E+00              0.0                   \r\n                                        1.522112E-01          2.394091E+00          2.763367E+00              0.0                   \r\n                                       -3.479042E-01          1.074475E+00         -8.041382E-01              0.0                   \r\n0    264        7                      -2.222052E-01         -2.755892E+00         -8.255701E-01              0.0                   \r\n                                       -1.904926E-01         -2.513611E+00         -2.818895E+00              0.0                   \r\n                                        1.731496E-01          1.589467E+00          2.120102E+00              0.0                   \r\n                                       -3.005600E-01          9.613582E-01         -1.866074E-01              0.0                   \r\n0    264        8                      -6.374383E-02         -1.749371E+00         -6.033034E-01              0.0                   \r\n                                       -1.646748E-01         -1.672704E+00         -2.087064E+00              0.0                   \r\n                                        1.506615E-01          9.888373E-01          1.419556E+00              0.0                   \r\n                                       -2.396717E-01          6.934560E-01          1.058578E-03              0.0                   \r\n0    264        9                       5.161285E-03         -1.084219E+00         -3.988638E-01              0.0                   \r\n                                       -1.290026E-01         -1.070878E+00         -1.427389E+00              0.0                   \r\n                                        1.152135E-01          5.932572E-01          8.901863E-01              0.0                   \r\n                                       -1.782126E-01          4.582747E-01          4.616547E-02              0.0                   \r\n0    264       10                       2.965403E-02         -6.596088E-01         -2.508636E-01              0.0                   \r\n                                       -9.513927E-02         -6.697515E-01         -9.334769E-01              0.0                   \r\n                                        8.181489E-02          3.486177E-01          5.365825E-01              0.0                   \r\n                                       -1.257803E-01          2.883968E-01          4.751539E-02              0.0                   \r\n0    264                0.0000         -5.660323E+00              0.0               4.716039E+01              0.0                   \r\n                                       -4.617021E-01              0.0               4.083479E+01              0.0                   \r\n                                        4.616954E-01              0.0              -2.255506E+01              0.0                   \r\n                                       -5.867598E+00              0.0              -7.232507E+01              0.0                   \r\n0    264                7.1000         -4.759532E+00         -1.435241E+01          4.599964E+01              0.0                   \r\n                                       -1.553352E-01         -8.192174E+00          4.188342E+01              0.0                   \r\n                                        2.201448E-01          6.287606E+00         -2.392578E+01              0.0                   \r\n                                       -5.125846E+00         -4.834540E+00         -6.772437E+01              0.0                   \r\n0    271        0                      -2.871132E-01              0.0               5.140202E+00              0.0                   \r\n                                        6.324234E-01              0.0               4.367905E-01              0.0                   \r\n                                       -3.857346E-01              0.0              -1.429939E+00              0.0                   \r\n                                        5.357361E-02              0.0              -4.145172E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    271        1                      -4.294701E-01          5.115421E+00          9.049679E+00              0.0                   \r\n                                        7.240143E-01          8.607988E+00          7.941170E+00              0.0                   \r\n                                       -5.213175E-01         -5.874819E+00         -5.908073E+00              0.0                   \r\n                                        2.137146E-01         -7.862246E+00         -1.014265E+01              0.0                   \r\n0    271        2                      -7.950134E-01          1.183025E+01          1.291968E+01              0.0                   \r\n                                        1.455688E+00          2.007223E+01          2.357358E+01              0.0                   \r\n                                       -3.653717E-02         -1.117618E+01         -1.400418E+01              0.0                   \r\n                                        7.267456E-01         -1.794959E+01         -1.831378E+01              0.0                   \r\n0    271        3                      -7.858582E-01          1.277631E+01          3.089981E-01              0.0                   \r\n                                        2.081345E+00          2.413047E+01          8.790314E+00              0.0                   \r\n                                        1.895542E+00         -5.567820E+00         -8.694916E-01              0.0                   \r\n                                        9.588013E-01         -1.794843E+01         -1.986420E+00              0.0                   \r\n0    271        4                      -5.634747E-01          8.498740E+00         -9.495182E-01              0.0                   \r\n                                        1.010288E+00          1.591213E+01         -1.234966E+00              0.0                   \r\n                                        1.432917E+00         -2.022596E+00          5.712391E+00              0.0                   \r\n                                        7.295437E-01         -1.060326E+01          1.574409E+00              0.0                   \r\n0    271        5                      -3.881341E-01          5.135691E+00          5.887178E-01              0.0                   \r\n                                        4.021264E-01          8.955670E+00         -1.633030E+00              0.0                   \r\n                                        7.523389E-01         -1.003849E+00          4.595660E+00              0.0                   \r\n                                        4.882191E-01         -5.705148E+00          1.668787E-02              0.0                   \r\n0    271        6                      -2.587837E-01          2.864239E+00          1.020718E+00              0.0                   \r\n                                        1.927524E-01          4.664217E+00         -1.052254E+00              0.0                   \r\n                                        3.562557E-01         -4.502000E-01          2.796065E+00              0.0                   \r\n                                        2.885381E-01         -2.819760E+00         -5.553055E-01              0.0                   \r\n0    271        7                      -1.679175E-01          1.558605E+00          8.918415E-01              0.0                   \r\n                                        1.186529E-01          2.355886E+00         -6.233509E-01              0.0                   \r\n                                        1.571060E-01         -1.952575E-01          1.558353E+00              0.0                   \r\n                                        1.594374E-01         -1.344406E+00         -5.397582E-01              0.0                   \r\n0    271        8                      -1.071916E-01          8.419315E-01          6.442710E-01              0.0                   \r\n                                        8.328962E-02          1.174057E+00         -3.653533E-01              0.0                   \r\n                                        6.463385E-02         -8.822887E-02          8.334906E-01              0.0                   \r\n                                        8.481687E-02         -6.325111E-01         -3.814540E-01              0.0                   \r\n0    271        9                      -6.709962E-02          4.529225E-01          4.219699E-01              0.0                   \r\n                                        5.928516E-02          5.805764E-01         -2.140061E-01              0.0                   \r\n                                        2.418081E-02         -4.424306E-02          4.350644E-01              0.0                   \r\n                                        4.385462E-02         -2.951739E-01         -2.360591E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    271       10                      -4.120978E-02          2.436741E-01          2.611924E-01              0.0                   \r\n                                        4.143499E-02          2.825088E-01         -1.249823E-01              0.0                   \r\n                                        7.586982E-03         -2.454397E-02          2.227710E-01              0.0                   \r\n                                        2.201985E-02         -1.360463E-01         -1.365148E-01              0.0                   \r\n0    271                0.0000         -3.891266E+00              0.0               3.029775E+01              0.0                   \r\n                                        6.801300E+00              0.0               3.549391E+01              0.0                   \r\n                                        3.746972E+00              0.0              -6.057891E+00              0.0                   \r\n                                        3.769265E+00              0.0              -3.484601E+01              0.0                   \r\n0    271                7.1000         -3.428563E+00          1.966891E+01          2.852898E+01              0.0                   \r\n                                        6.221148E+00          3.424678E+01          3.543177E+01              0.0                   \r\n                                        3.112891E+00         -7.625597E+00         -9.126382E+00              0.0                   \r\n                                        3.291125E+00         -2.410784E+01         -3.353151E+01              0.0                   \r\n0    274        0                       8.721709E-01              0.0              -4.138222E-01              0.0                   \r\n                                       -4.198494E-01              0.0              -5.297134E+00              0.0                   \r\n                                        1.246052E-01              0.0               4.261444E+00              0.0                   \r\n                                       -3.474274E-01              0.0               1.450127E+00              0.0                   \r\n0    274        1                       6.137810E-01          8.542396E+00          7.419037E+00              0.0                   \r\n                                       -2.092590E-01          4.834277E+00         -2.817307E-01              0.0                   \r\n                                       -5.583334E-02         -7.701212E+00         -2.744728E+00              0.0                   \r\n                                       -1.456451E-01         -5.472153E+00         -3.521103E+00              0.0                   \r\n0    274        2                      -8.437309E-01          1.017457E+01          2.985641E+01              0.0                   \r\n                                        3.215637E-01          5.730722E+00          1.800659E+01              0.0                   \r\n                                       -4.508018E-01         -9.466551E+00         -2.686407E+01              0.0                   \r\n                                       -1.980286E-01         -8.696104E+00         -1.874377E+01              0.0                   \r\n0    274        3                      -2.791035E+00         -3.897263E+00          2.315332E+01              0.0                   \r\n                                        3.702698E-01         -1.118694E+00          1.791089E+01              0.0                   \r\n                                       -2.523766E-01          1.147146E+00         -2.352692E+01              0.0                   \r\n                                       -1.033264E+00         -6.394255E+00         -1.749396E+01              0.0                   \r\n0    274        4                      -2.109674E+00         -6.576521E+00          4.327896E+00              0.0                   \r\n                                        1.651840E-01         -3.194370E+00          2.325546E+00              0.0                   \r\n                                       -1.430511E-05          3.985206E+00         -2.034683E+00              0.0                   \r\n                                       -4.516907E-01         -2.608098E+00         -6.077820E+00              0.0                   \r\n0    274        5                      -1.162310E+00         -5.450402E+00         -8.449936E-01              0.0                   \r\n                                       -3.723145E-02         -3.171480E+00         -2.360748E+00              0.0                   \r\n                                        1.372552E-01          3.731738E+00          3.433952E+00              0.0                   \r\n                                       -1.793327E-01         -3.390417E-01         -2.177299E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    274        6                      -5.168390E-01         -3.754328E+00         -1.521184E+00              0.0                   \r\n                                       -1.515656E-01         -2.395687E+00         -2.765427E+00              0.0                   \r\n                                        1.720974E-01          2.647320E+00          3.361328E+00              0.0                   \r\n                                       -1.429119E-01          3.604667E-01         -8.540955E-01              0.0                   \r\n0    274        7                      -1.763437E-01         -2.343798E+00         -1.201303E+00              0.0                   \r\n                                       -1.735706E-01         -1.587073E+00         -2.116083E+00              0.0                   \r\n                                        1.473505E-01          1.633867E+00          2.308221E+00              0.0                   \r\n                                       -1.285734E-01          4.188731E-01         -3.368454E-01              0.0                   \r\n0    274        8                      -2.447513E-02         -1.385409E+00         -7.898543E-01              0.0                   \r\n                                       -1.505766E-01         -9.882089E-01         -1.418320E+00              0.0                   \r\n                                        1.078431E-01          9.427668E-01          1.406950E+00              0.0                   \r\n                                       -1.034098E-01          3.174888E-01         -1.288137E-01              0.0                   \r\n0    274        9                       3.125884E-02         -7.938772E-01         -4.808295E-01              0.0                   \r\n                                       -1.151592E-01         -5.933719E-01         -8.888848E-01              0.0                   \r\n                                        7.220922E-02          5.240940E-01          8.080497E-01              0.0                   \r\n                                       -7.517684E-02          2.093650E-01         -4.376030E-02              0.0                   \r\n0    274       10                       4.355625E-02         -4.451324E-01         -2.808050E-01              0.0                   \r\n                                       -8.179885E-02         -3.479665E-01         -5.358827E-01              0.0                   \r\n                                        4.580350E-02          2.837396E-01          4.477882E-01              0.0                   \r\n                                       -5.093884E-02          1.301453E-01         -1.081371E-02              0.0                   \r\n0    274                0.0000         -6.063640E+00              0.0               5.922388E+01              0.0                   \r\n                                       -4.819931E-01              0.0               2.257882E+01              0.0                   \r\n                                        4.813811E-02              0.0              -3.914267E+01              0.0                   \r\n                                       -2.856399E+00              0.0              -4.793816E+01              0.0                   \r\n0    274                7.1000         -5.219084E+00         -1.077877E+01          5.795115E+01              0.0                   \r\n                                       -2.393701E-01         -6.284827E+00          2.394444E+01              0.0                   \r\n                                       -1.635199E-01          5.770909E+00         -4.018061E+01              0.0                   \r\n                                       -2.484581E+00         -5.429477E+00         -4.457280E+01              0.0                   \r\n0    281        0                      -5.391026E-02              0.0               4.144794E+00              0.0                   \r\n                                        6.333427E-01              0.0              -7.443390E-01              0.0                   \r\n                                       -7.120858E-01              0.0              -1.532303E+00              0.0                   \r\n                                        2.233582E-01              0.0              -1.868164E+00              0.0                   \r\n0    281        1                      -2.140751E-01          7.862236E+00          1.014099E+01              0.0                   \r\n                                        7.307053E-01          5.604788E+00          4.021431E+00              0.0                   \r\n                                       -8.261765E-01         -8.546866E+00         -7.834106E+00              0.0                   \r\n                                        3.765945E-01         -4.854148E+00         -5.411255E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    281        2                      -7.255936E-01          1.795185E+01          1.830884E+01              0.0                   \r\n                                        1.511215E+00          1.392405E+01          1.443393E+01              0.0                   \r\n                                       -1.942501E-01         -1.754793E+01         -1.943384E+01              0.0                   \r\n                                        7.538147E-01         -1.156371E+01         -9.155396E+00              0.0                   \r\n0    281        3                      -9.554329E-01          1.795716E+01          1.979721E+00              0.0                   \r\n                                        2.614105E+00          1.805787E+01          5.246140E+00              0.0                   \r\n                                        1.537266E+00         -1.174977E+01         -2.465149E+00              0.0                   \r\n                                        6.944275E-01         -1.165483E+01          1.254517E+00              0.0                   \r\n0    281        4                      -7.323451E-01          1.060325E+01         -1.572315E+00              0.0                   \r\n                                        1.655899E+00          1.145856E+01         -1.329426E+00              0.0                   \r\n                                        9.716298E-01         -5.011194E+00          5.964767E+00              0.0                   \r\n                                        4.209099E-01         -6.490378E+00          1.424126E+00              0.0                   \r\n0    281        5                      -4.888093E-01          5.704574E+00         -1.712942E-02              0.0                   \r\n                                        8.516939E-01          6.014192E+00         -1.398065E+00              0.0                   \r\n                                        3.903495E-01         -2.301418E+00          4.505836E+00              0.0                   \r\n                                        2.491641E-01         -3.309621E+00         -2.160473E-01              0.0                   \r\n0    281        6                      -2.882854E-01          2.819503E+00          5.553968E-01              0.0                   \r\n                                        4.390932E-01          2.902344E+00         -8.719258E-01              0.0                   \r\n                                        1.178348E-01         -9.580985E-01          2.504473E+00              0.0                   \r\n                                        1.389364E-01         -1.551458E+00         -5.664635E-01              0.0                   \r\n0    281        7                      -1.593942E-01          1.344874E+00          5.400587E-01              0.0                   \r\n                                        2.332897E-01          1.352080E+00         -5.092430E-01              0.0                   \r\n                                        1.405345E-02         -3.756250E-01          1.273966E+00              0.0                   \r\n                                        7.424986E-02         -6.965441E-01         -4.511264E-01              0.0                   \r\n0    281        8                      -8.495330E-02          6.325657E-01          3.810371E-01              0.0                   \r\n                                        1.261469E-01          6.179333E-01         -2.925656E-01              0.0                   \r\n                                       -1.590770E-02         -1.438957E-01          6.246977E-01              0.0                   \r\n                                        3.841256E-02         -3.064425E-01         -2.800567E-01              0.0                   \r\n0    281        9                      -4.383381E-02          2.945904E-01          2.362399E-01              0.0                   \r\n                                        6.863139E-02          2.763584E-01         -1.664496E-01              0.0                   \r\n                                       -1.912559E-02         -5.575847E-02          2.990962E-01              0.0                   \r\n                                        1.915504E-02         -1.320710E-01         -1.551959E-01              0.0                   \r\n0    281       10                      -2.202322E-02          1.358843E-01          1.368222E-01              0.0                   \r\n                                        3.736483E-02          1.197772E-01         -9.429545E-02              0.0                   \r\n                                       -1.477007E-02         -2.189397E-02          1.403962E-01              0.0                   \r\n                                        9.183396E-03         -5.584519E-02         -8.083056E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    281                0.0000         -3.768656E+00              0.0               3.483446E+01              0.0                   \r\n                                        8.901488E+00              0.0               1.829519E+01              0.0                   \r\n                                        1.248818E+00              0.0              -1.595216E+01              0.0                   \r\n                                        2.998206E+00              0.0              -1.550589E+01              0.0                   \r\n0    281                7.1000         -3.290361E+00          2.411078E+01          3.352015E+01              0.0                   \r\n                                        7.994547E+00          2.348461E+01          1.858401E+01              0.0                   \r\n                                        9.583922E-01         -1.447522E+01         -1.834109E+01              0.0                   \r\n                                        2.730685E+00         -1.468836E+01         -1.482461E+01              0.0                   \r\n0    284        0                       7.838573E-01              0.0               8.050957E-01              0.0                   \r\n                                       -1.251907E-01              0.0              -4.263176E+00              0.0                   \r\n                                        2.089252E-01              0.0               1.928040E+00              0.0                   \r\n                                       -6.511841E-01              0.0               1.529251E+00              0.0                   \r\n0    284        1                       5.457611E-01          5.799661E+00          5.576874E+00              0.0                   \r\n                                        5.697632E-02          7.701502E+00          2.743713E+00              0.0                   \r\n                                        1.914215E-02         -4.926571E+00         -2.125000E+00              0.0                   \r\n                                       -4.211884E-01         -8.374078E+00         -5.324097E+00              0.0                   \r\n0    284        2                      -9.412994E-01          6.342348E+00          1.869788E+01              0.0                   \r\n                                        4.541626E-01          9.467325E+00          2.687012E+01              0.0                   \r\n                                       -4.564972E-01         -5.608109E+00         -1.715869E+01              0.0                   \r\n                                       -1.224976E-01         -1.226462E+01         -2.620850E+01              0.0                   \r\n0    284        3                      -2.491104E+00         -5.321291E+00          1.343604E+01              0.0                   \r\n                                        2.525024E-01         -1.144423E+00          2.353528E+01              0.0                   \r\n                                       -3.314972E-01          2.025001E+00         -1.514673E+01              0.0                   \r\n                                       -8.419189E-01         -5.002392E+00         -2.210474E+01              0.0                   \r\n0    284        4                      -1.466072E+00         -6.309877E+00          1.831223E+00              0.0                   \r\n                                       -1.358032E-03         -3.987643E+00          2.034119E+00              0.0                   \r\n                                       -4.514313E-02          3.345128E+00         -4.992065E-01              0.0                   \r\n                                       -6.298828E-01         -4.312454E-01         -5.029846E+00              0.0                   \r\n0    284        5                      -6.145000E-01         -4.416536E+00         -9.715805E-01              0.0                   \r\n                                       -1.367722E-01         -3.729312E+00         -3.436417E+00              0.0                   \r\n                                        1.165028E-01          2.664149E+00          2.874146E+00              0.0                   \r\n                                       -4.183426E-01          1.199116E+00         -3.615723E-01              0.0                   \r\n0    284        6                      -1.822882E-01         -2.702829E+00         -1.068465E+00              0.0                   \r\n                                       -1.714439E-01         -2.644868E+00         -3.360699E+00              0.0                   \r\n                                        1.627579E-01          1.702538E+00          2.419785E+00              0.0                   \r\n                                       -3.234711E-01          1.246003E+00          4.372177E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    284        7                      -8.762836E-03         -1.532905E+00         -7.173967E-01              0.0                   \r\n                                       -1.473942E-01         -1.635011E+00         -2.309840E+00              0.0                   \r\n                                        1.399708E-01          9.675612E-01          1.510780E+00              0.0                   \r\n                                       -2.376804E-01          8.619230E-01          4.170876E-01              0.0                   \r\n0    284        8                       4.375684E-02         -8.332492E-01         -4.197705E-01              0.0                   \r\n                                       -1.078792E-01         -9.434236E-01         -1.407851E+00              0.0                   \r\n                                        9.951377E-02          5.155503E-01          8.447742E-01              0.0                   \r\n                                       -1.604552E-01          5.191823E-01          2.800426E-01              0.0                   \r\n0    284        9                       4.881930E-02         -4.407567E-01         -2.299306E-01              0.0                   \r\n                                       -7.228971E-02         -5.238891E-01         -8.086815E-01              0.0                   \r\n                                        6.372291E-02          2.644073E-01          4.461975E-01              0.0                   \r\n                                       -1.012154E-01          2.931530E-01          1.679430E-01              0.0                   \r\n0    284       10                       3.915791E-02         -2.279171E-01         -1.213421E-01              0.0                   \r\n                                       -4.579049E-02         -2.838928E-01         -4.477792E-01              0.0                   \r\n                                        3.820649E-02          1.322767E-01          2.270594E-01              0.0                   \r\n                                       -6.066239E-02          1.593048E-01          9.566259E-02              0.0                   \r\n0    284                0.0000         -4.242674E+00              0.0               3.681862E+01              0.0                   \r\n                                       -4.447705E-02              0.0               3.914878E+01              0.0                   \r\n                                        1.560447E-02              0.0              -2.467884E+01              0.0                   \r\n                                       -3.968499E+00              0.0              -5.610155E+01              0.0                   \r\n0    284                7.1000         -3.779611E+00         -9.533243E+00          3.618285E+01              0.0                   \r\n                                        1.670318E-01         -5.769168E+00          4.018767E+01              0.0                   \r\n                                       -1.630445E-01          4.573290E+00         -2.553525E+01              0.0                   \r\n                                       -3.410934E+00         -3.020487E+00         -5.362540E+01              0.0                   \r\n0    291        0                      -2.232628E-01              0.0               1.871380E+00              0.0                   \r\n                                        5.107269E-01              0.0              -5.859375E-03              0.0                   \r\n                                       -2.380667E-01              0.0              -7.552643E-01              0.0                   \r\n                                        7.024384E-02              0.0              -1.109711E+00              0.0                   \r\n0    291        1                      -3.752823E-01          4.854140E+00          5.414570E+00              0.0                   \r\n                                        6.313248E-01          8.346158E+00          6.405991E+00              0.0                   \r\n                                       -3.897038E-01         -5.559496E+00         -4.582970E+00              0.0                   \r\n                                        2.278442E-01         -7.546190E+00         -6.338516E+00              0.0                   \r\n0    291        2                      -7.597198E-01          1.156540E+01          9.159485E+00              0.0                   \r\n                                        1.312378E+00          1.963516E+01          1.979602E+01              0.0                   \r\n                                       -2.140045E-02         -1.098424E+01         -1.128162E+01              0.0                   \r\n                                        7.360229E-01         -1.761049E+01         -1.358344E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    291        3                      -7.032928E-01          1.164006E+01         -1.253174E+00              0.0                   \r\n                                        1.741089E+00          2.151051E+01          6.256287E+00              0.0                   \r\n                                        1.679066E+00         -5.239447E+00          5.243225E-01              0.0                   \r\n                                        8.767548E-01         -1.628955E+01          1.185913E-01              0.0                   \r\n0    291        4                      -4.260178E-01          6.481536E+00         -1.429359E+00              0.0                   \r\n                                        7.700844E-01          1.197134E+01         -2.473236E+00              0.0                   \r\n                                        1.171521E+00         -1.284360E+00          5.446732E+00              0.0                   \r\n                                        5.456314E-01         -7.891473E+00          2.260963E+00              0.0                   \r\n0    291        5                      -2.498856E-01          3.309721E+00          2.149835E-01              0.0                   \r\n                                        2.597790E-01          5.606640E+00         -2.158237E+00              0.0                   \r\n                                        5.302629E-01         -5.116799E-01          3.706724E+00              0.0                   \r\n                                        2.993822E-01         -3.505577E+00          4.531460E-01              0.0                   \r\n0    291        6                      -1.394830E-01          1.547025E+00          5.693482E-01              0.0                   \r\n                                        1.049466E-01          2.375145E+00         -1.204490E+00              0.0                   \r\n                                        2.124880E-01         -2.005774E-01          1.910377E+00              0.0                   \r\n                                        1.422969E-01         -1.414402E+00         -1.454215E-01              0.0                   \r\n0    291        7                      -7.446042E-02          6.952767E-01          4.505436E-01              0.0                   \r\n                                        5.595064E-02          9.501336E-01         -6.288504E-01              0.0                   \r\n                                        7.974826E-02         -7.537065E-02          8.979158E-01              0.0                   \r\n                                        6.072471E-02         -5.352801E-01         -1.906454E-01              0.0                   \r\n0    291        8                      -3.849129E-02          3.059893E-01          2.807999E-01              0.0                   \r\n                                        3.390735E-02          3.623574E-01         -3.245197E-01              0.0                   \r\n                                        2.835025E-02         -3.033488E-02          4.032562E-01              0.0                   \r\n                                        2.351908E-02         -1.928461E-01         -1.241231E-01              0.0                   \r\n0    291        9                      -1.920950E-02          1.319902E-01          1.557685E-01              0.0                   \r\n                                        2.051589E-02          1.300132E-01         -1.665656E-01              0.0                   \r\n                                        9.506386E-03         -1.436735E-02          1.755085E-01              0.0                   \r\n                                        7.976882E-03         -6.532224E-02         -6.552663E-02              0.0                   \r\n0    291       10                      -9.206111E-03          5.576554E-02          8.068188E-02              0.0                   \r\n                                        1.198294E-02          4.127234E-02         -8.488318E-02              0.0                   \r\n                                        2.979964E-03         -7.741614E-03          7.418140E-02              0.0                   \r\n                                        2.018444E-03         -1.976239E-02         -3.117664E-02              0.0                   \r\n0    291                0.0000         -3.018311E+00              0.0               1.551503E+01              0.0                   \r\n                                        5.452685E+00              0.0               2.541166E+01              0.0                   \r\n                                        3.064752E+00              0.0              -3.480834E+00              0.0                   \r\n                                        2.992415E+00              0.0              -1.875586E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    291                7.1000         -2.748966E+00          1.467477E+01          1.483322E+01              0.0                   \r\n                                        5.065473E+00          2.540292E+01          2.586650E+01              0.0                   \r\n                                        2.609732E+00         -6.431773E+00         -5.633425E+00              0.0                   \r\n                                        2.711500E+00         -1.856331E+01         -1.843706E+01              0.0                   \r\n0    294        0                       5.277219E-01              0.0               3.411865E-02              0.0                   \r\n                                       -2.086563E-01              0.0              -1.928635E+00              0.0                   \r\n                                        3.827524E-02              0.0               1.140846E+00              0.0                   \r\n                                       -1.737938E-01              0.0               7.535172E-01              0.0                   \r\n0    294        1                       3.173943E-01          8.514406E+00          6.687431E+00              0.0                   \r\n                                       -1.933289E-02          4.926851E+00          2.126312E+00              0.0                   \r\n                                       -1.344585E-01         -7.707770E+00         -4.573349E+00              0.0                   \r\n                                        8.049011E-03         -5.561748E+00         -3.365799E+00              0.0                   \r\n0    294        2                      -9.655190E-01          9.960870E+00          2.558450E+01              0.0                   \r\n                                        4.537964E-01          5.610411E+00          1.715851E+01              0.0                   \r\n                                       -5.001030E-01         -9.097163E+00         -2.436993E+01              0.0                   \r\n                                        1.141357E-02         -8.393332E+00         -1.618896E+01              0.0                   \r\n0    294        3                      -2.476404E+00         -4.790332E+00          1.815417E+01              0.0                   \r\n                                        3.272095E-01         -2.020888E+00          1.514853E+01              0.0                   \r\n                                       -1.826820E-01          2.642748E+00         -1.938995E+01              0.0                   \r\n                                       -7.958374E-01         -4.476577E+00         -1.437964E+01              0.0                   \r\n0    294        4                      -1.570283E+00         -6.397846E+00          1.508369E+00              0.0                   \r\n                                        4.370880E-02         -3.347615E+00          5.006714E-01              0.0                   \r\n                                        8.706284E-02          4.410104E+00          8.549500E-02              0.0                   \r\n                                       -4.019012E-01         -1.115306E+00         -3.796021E+00              0.0                   \r\n0    294        5                      -6.837649E-01         -4.390519E+00         -1.948584E+00              0.0                   \r\n                                       -1.161957E-01         -2.663590E+00         -2.866058E+00              0.0                   \r\n                                        1.642160E-01          3.229280E+00          3.796295E+00              0.0                   \r\n                                       -1.818542E-01          3.579057E-01         -7.064209E-01              0.0                   \r\n0    294        6                      -2.073513E-01         -2.568148E+00         -1.684506E+00              0.0                   \r\n                                       -1.626110E-01         -1.703791E+00         -2.421265E+00              0.0                   \r\n                                        1.506675E-01          1.919679E+00          2.828358E+00              0.0                   \r\n                                       -1.335735E-01          5.746410E-01         -3.561783E-02              0.0                   \r\n0    294        7                      -1.778802E-02         -1.374123E+00         -1.022187E+00              0.0                   \r\n                                       -1.401310E-01         -9.664167E-01         -1.508698E+00              0.0                   \r\n                                        1.062597E-01          1.012260E+00          1.599349E+00              0.0                   \r\n                                       -1.007304E-01          4.186021E-01          8.385754E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    294        8                       3.672238E-02         -6.971261E-01         -5.534148E-01              0.0                   \r\n                                       -9.945798E-02         -5.153012E-01         -8.442123E-01              0.0                   \r\n                                        6.572407E-02          5.008348E-01          8.176527E-01              0.0                   \r\n                                       -6.787586E-02          2.493427E-01          7.823563E-02              0.0                   \r\n0    294        9                       4.087044E-02         -3.423675E-01         -2.839869E-01              0.0                   \r\n                                       -6.369770E-02         -2.644617E-01         -4.457421E-01              0.0                   \r\n                                        3.752955E-02          2.386510E-01          3.963817E-01              0.0                   \r\n                                       -4.158294E-02          1.359936E-01          5.338407E-02              0.0                   \r\n0    294       10                       3.102314E-02         -1.641371E-01         -1.412168E-01              0.0                   \r\n                                       -3.819808E-02         -1.321019E-01         -2.268350E-01              0.0                   \r\n                                        2.034323E-02          1.105821E-01          1.855817E-01              0.0                   \r\n                                       -2.380475E-02          7.095490E-02          3.230399E-02              0.0                   \r\n0    294                0.0000         -4.967378E+00              0.0               4.633471E+01              0.0                   \r\n                                       -2.356598E-02              0.0               2.469258E+01              0.0                   \r\n                                       -1.471653E-01              0.0              -3.748328E+01              0.0                   \r\n                                       -1.901492E+00              0.0              -3.747116E+01              0.0                   \r\n0    294                7.1000         -4.454487E+00         -7.669082E+00          4.575256E+01              0.0                   \r\n                                        1.555482E-01         -4.571705E+00          2.554617E+01              0.0                   \r\n                                       -3.011469E-01          4.557850E+00         -3.812346E+01              0.0                   \r\n                                       -1.624483E+00         -3.589066E+00         -3.548758E+01              0.0                   \r\n0    301        0                      -7.054520E-02              0.0               1.109745E+00              0.0                   \r\n                                        3.745728E-01              0.0              -4.336853E-01              0.0                   \r\n                                       -2.968547E-01              0.0              -5.263977E-01              0.0                   \r\n                                        1.142769E-01              0.0              -1.496887E-01              0.0                   \r\n0    301        1                      -2.280579E-01          7.546233E+00          6.337238E+00              0.0                   \r\n                                        5.028763E-01          5.495742E+00          3.549706E+00              0.0                   \r\n                                       -4.458911E-01         -8.225756E+00         -5.826385E+00              0.0                   \r\n                                        2.751617E-01         -4.712854E+00         -3.173615E+00              0.0                   \r\n0    301        2                      -7.349701E-01          1.761308E+01          1.358081E+01              0.0                   \r\n                                        1.253143E+00          1.360577E+01          1.233514E+01              0.0                   \r\n                                        4.368782E-03         -1.731408E+01         -1.536694E+01              0.0                   \r\n                                        6.765137E-01         -1.143701E+01         -6.464966E+00              0.0                   \r\n0    301        3                      -8.790436E-01          1.629844E+01         -1.237335E-01              0.0                   \r\n                                        2.149124E+00          1.597545E+01          3.979919E+00              0.0                   \r\n                                        1.472900E+00         -1.084283E+01         -4.566040E-01              0.0                   \r\n                                        5.665131E-01         -1.071166E+01          2.051270E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    301        4                      -5.481873E-01          7.891425E+00         -2.259380E+00              0.0                   \r\n                                        1.254848E+00          8.547256E+00         -1.901062E+00              0.0                   \r\n                                        8.108472E-01         -3.417448E+00          5.853691E+00              0.0                   \r\n                                        2.748985E-01         -4.843369E+00          1.602539E+00              0.0                   \r\n0    301        5                      -2.997210E-01          3.505242E+00         -4.538693E-01              0.0                   \r\n                                        5.634446E-01          3.670649E+00         -1.609393E+00              0.0                   \r\n                                        2.607750E-01         -1.203550E+00          3.751844E+00              0.0                   \r\n                                        1.319351E-01         -2.002159E+00          2.755356E-02              0.0                   \r\n0    301        6                      -1.420717E-01          1.414257E+00          1.453815E-01              0.0                   \r\n                                        2.465979E-01          1.399664E+00         -8.818605E-01              0.0                   \r\n                                        5.465785E-02         -3.851344E-01          1.779851E+00              0.0                   \r\n                                        5.761313E-02         -7.543735E-01         -2.689495E-01              0.0                   \r\n0    301        7                      -6.070669E-02          5.354737E-01          1.907234E-01              0.0                   \r\n                                        1.102262E-01          4.917866E-01         -4.501892E-01              0.0                   \r\n                                       -2.908189E-03         -1.052203E-01          7.686063E-01              0.0                   \r\n                                        2.265775E-02         -2.623625E-01         -1.966197E-01              0.0                   \r\n0    301        8                      -2.357394E-02          1.928685E-01          1.238722E-01              0.0                   \r\n                                        4.979889E-02          1.567850E-01         -2.253674E-01              0.0                   \r\n                                       -1.216205E-02         -2.279258E-02          3.185067E-01              0.0                   \r\n                                        7.756442E-03         -8.424652E-02         -1.032339E-01              0.0                   \r\n0    301        9                      -7.971762E-03          6.512487E-02          6.558439E-02              0.0                   \r\n                                        2.242474E-02          4.096701E-02         -1.113254E-01              0.0                   \r\n                                       -9.462163E-03         -2.680014E-03          1.280146E-01              0.0                   \r\n                                        1.958936E-03         -2.360041E-02         -4.671443E-02              0.0                   \r\n0    301       10                      -2.019223E-03          1.971635E-02          3.126471E-02              0.0                   \r\n                                        9.978540E-03          4.853910E-03         -5.445769E-02              0.0                   \r\n                                       -5.598916E-03          9.852399E-04          4.997467E-02              0.0                   \r\n                                        2.638996E-05         -4.758019E-03         -1.927634E-02              0.0                   \r\n0    301                0.0000         -2.996868E+00              0.0               1.874764E+01              0.0                   \r\n                                        6.537036E+00              0.0               1.419743E+01              0.0                   \r\n                                        1.830671E+00              0.0              -9.525842E+00              0.0                   \r\n                                        2.129312E+00              0.0              -6.741701E+00              0.0                   \r\n0    301                7.1000         -2.715500E+00          1.856680E+01          1.842923E+01              0.0                   \r\n                                        5.946496E+00          1.751186E+01          1.464219E+01              0.0                   \r\n                                        1.588465E+00         -1.188847E+01         -1.137304E+01              0.0                   \r\n                                        1.982393E+00         -1.155230E+01         -6.631644E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    304        0                       3.560753E-01              0.0               4.402008E-01              0.0                   \r\n                                       -3.874969E-02              0.0              -1.141510E+00              0.0                   \r\n                                        6.218338E-02              0.0               1.548462E-01              0.0                   \r\n                                       -2.397308E-01              0.0               5.461884E-01              0.0                   \r\n0    304        1                       1.623077E-01          5.678167E+00          4.493324E+00              0.0                   \r\n                                        1.357574E-01          7.708030E+00          4.573959E+00              0.0                   \r\n                                       -1.140442E-01         -4.882802E+00         -3.123108E+00              0.0                   \r\n                                       -4.862976E-02         -8.367920E+00         -5.077698E+00              0.0                   \r\n0    304        2                      -1.114243E+00          6.116176E+00          1.544690E+01              0.0                   \r\n                                        5.025635E-01          9.098076E+00          2.437476E+01              0.0                   \r\n                                       -5.439148E-01         -5.289589E+00         -1.533142E+01              0.0                   \r\n                                        2.318115E-01         -1.171439E+01         -2.238696E+01              0.0                   \r\n0    304        3                      -2.226517E+00         -5.610685E+00          1.009833E+01              0.0                   \r\n                                        1.865845E-01         -2.640903E+00          1.939545E+01              0.0                   \r\n                                       -2.818909E-01          2.969566E+00         -1.240552E+01              0.0                   \r\n                                       -5.455933E-01         -2.641626E+00         -1.787476E+01              0.0                   \r\n0    304        4                      -1.056862E+00         -5.771554E+00          3.049927E-01              0.0                   \r\n                                       -8.714294E-02         -4.412024E+00         -8.564758E-02              0.0                   \r\n                                        4.994202E-02          3.468420E+00          5.545044E-01              0.0                   \r\n                                       -5.539551E-01          1.038039E+00         -2.640625E+00              0.0                   \r\n0    304        5                      -3.056068E-01         -3.381632E+00         -1.389120E+00              0.0                   \r\n                                       -1.633911E-01         -3.227631E+00         -3.798195E+00              0.0                   \r\n                                        1.515484E-01          2.202002E+00          2.772049E+00              0.0                   \r\n                                       -3.745041E-01          1.566154E+00          7.682190E-01              0.0                   \r\n0    304        6                      -1.899576E-02         -1.742125E+00         -1.010115E+00              0.0                   \r\n                                       -1.502724E-01         -1.918202E+00         -2.827961E+00              0.0                   \r\n                                        1.430674E-01          1.174834E+00          1.872025E+00              0.0                   \r\n                                       -2.549477E-01          1.134689E+00          8.302689E-01              0.0                   \r\n0    304        7                       5.375910E-02         -8.362461E-01         -5.439386E-01              0.0                   \r\n                                       -1.063151E-01         -1.012774E+00         -1.600159E+00              0.0                   \r\n                                        9.870887E-02          5.655049E-01          9.716930E-01              0.0                   \r\n                                       -1.602707E-01          6.425505E-01          4.974918E-01              0.0                   \r\n0    304        8                       5.408907E-02         -3.841280E-01         -2.646108E-01              0.0                   \r\n                                       -6.573153E-02         -5.010990E-01         -8.180528E-01              0.0                   \r\n                                        5.837721E-02          2.554256E-01          4.555192E-01              0.0                   \r\n                                       -9.218740E-02          3.271568E-01          2.590628E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    304        9                       3.816235E-02         -1.708221E-01         -1.221061E-01              0.0                   \r\n                                       -3.755832E-02         -2.385817E-01         -3.966268E-01              0.0                   \r\n                                        3.140634E-02          1.106495E-01          2.020068E-01              0.0                   \r\n                                       -4.940844E-02          1.576441E-01          1.271677E-01              0.0                   \r\n0    304       10                       2.340003E-02         -7.371223E-02         -5.452123E-02              0.0                   \r\n                                       -2.034268E-02         -1.106280E-01         -1.855764E-01              0.0                   \r\n                                        1.584664E-02          4.643400E-02          8.609581E-02              0.0                   \r\n                                       -2.507681E-02          7.337324E-02          6.043756E-02              0.0                   \r\n0    304                0.0000         -4.034431E+00              0.0               2.739933E+01              0.0                   \r\n                                        1.554016E-01              0.0               3.749043E+01              0.0                   \r\n                                       -3.287697E-01              0.0              -2.379131E+01              0.0                   \r\n                                       -2.112493E+00              0.0              -4.489121E+01              0.0                   \r\n0    304                7.1000         -3.741139E+00         -6.906235E+00          2.710818E+01              0.0                   \r\n                                        3.088222E-01         -4.556475E+00          3.813096E+01              0.0                   \r\n                                       -4.535113E-01          3.689486E+00         -2.424807E+01              0.0                   \r\n                                       -1.735466E+00         -1.721506E+00         -4.339626E+01              0.0                   \r\n0    311        0                      -1.142502E-01              0.0               1.506729E-01              0.0                   \r\n                                        2.679443E-01              0.0              -1.335220E-01              0.0                   \r\n                                       -9.822655E-02              0.0              -2.502975E-01              0.0                   \r\n                                        4.642487E-02              0.0               2.330780E-01              0.0                   \r\n0    311        1                      -2.741432E-01          4.712686E+00          3.175301E+00              0.0                   \r\n                                        4.142456E-01          8.173225E+00          5.184830E+00              0.0                   \r\n                                       -2.586613E-01         -5.405903E+00         -3.399246E+00              0.0                   \r\n                                        2.054901E-01         -7.393355E+00         -4.083572E+00              0.0                   \r\n0    311        2                      -6.760559E-01          1.143914E+01          6.466553E+00              0.0                   \r\n                                        1.039978E+00          1.926687E+01          1.635822E+01              0.0                   \r\n                                       -2.967834E-03         -1.101342E+01         -8.685791E+00              0.0                   \r\n                                        7.170105E-01         -1.747050E+01         -1.009161E+01              0.0                   \r\n0    311        3                      -5.742035E-01          1.069818E+01         -2.050827E+00              0.0                   \r\n                                        1.312805E+00          1.911037E+01          4.492004E+00              0.0                   \r\n                                        1.464310E+00         -5.195289E+00          1.526733E+00              0.0                   \r\n                                        7.908325E-01         -1.496184E+01          1.185181E+00              0.0                   \r\n0    311        4                      -2.784443E-01          4.836489E+00         -1.606815E+00              0.0                   \r\n                                        5.049286E-01          8.732045E+00         -2.936218E+00              0.0                   \r\n                                        9.593315E-01         -7.591465E-01          4.906696E+00              0.0                   \r\n                                        3.846626E-01         -5.752351E+00          2.400894E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    311        5                      -1.321449E-01          2.002188E+00         -2.771711E-02              0.0                   \r\n                                        1.291466E-01          3.264321E+00         -2.186990E+00              0.0                   \r\n                                        3.784525E-01         -1.636828E-01          2.872612E+00              0.0                   \r\n                                        1.618195E-01         -1.987355E+00          6.125145E-01              0.0                   \r\n0    311        6                      -5.803812E-02          7.519075E-01          2.709675E-01              0.0                   \r\n                                        3.679299E-02          1.050482E+00         -1.081549E+00              0.0                   \r\n                                        1.287553E-01         -4.697113E-02          1.260837E+00              0.0                   \r\n                                        5.580688E-02         -6.071107E-01          4.917383E-02              0.0                   \r\n0    311        7                      -2.281696E-02          2.617855E-01          1.964937E-01              0.0                   \r\n                                        1.540196E-02          2.878143E-01         -4.962273E-01              0.0                   \r\n                                        4.141003E-02         -1.249026E-02          4.985680E-01              0.0                   \r\n                                        1.411593E-02         -1.568685E-01         -3.260922E-02              0.0                   \r\n0    311        8                      -7.782474E-03          8.405547E-02          1.036127E-01              0.0                   \r\n                                        7.882178E-03          5.670573E-02         -2.237857E-01              0.0                   \r\n                                        1.305088E-02         -3.764608E-03          1.864216E-01              0.0                   \r\n                                        9.287298E-04         -2.851536E-02         -2.243674E-02              0.0                   \r\n0    311        9                      -1.975954E-03          2.358179E-02          4.695474E-02              0.0                   \r\n                                        3.882632E-03         -1.979569E-03         -9.992155E-02              0.0                   \r\n                                        4.170846E-03         -1.925463E-03          6.663616E-02              0.0                   \r\n                                       -1.972228E-03          1.557418E-03         -8.811593E-03              0.0                   \r\n0    311       10                      -3.264099E-05          4.741627E-03          1.924676E-02              0.0                   \r\n                                        1.706608E-03         -1.125190E-02         -4.411003E-02              0.0                   \r\n                                        1.418788E-03         -1.263407E-03          2.265893E-02              0.0                   \r\n                                       -1.874305E-03          5.464734E-03         -2.329260E-03              0.0                   \r\n0    311                0.0000         -2.139888E+00              0.0               6.744442E+00              0.0                   \r\n                                        3.734715E+00              0.0               1.883273E+01              0.0                   \r\n                                        2.631044E+00              0.0              -9.941714E-01              0.0                   \r\n                                        2.373245E+00              0.0              -9.760532E+00              0.0                   \r\n0    311                7.1000         -1.991806E+00          1.154235E+01          6.634066E+00              0.0                   \r\n                                        3.503269E+00          1.969275E+01          1.939387E+01              0.0                   \r\n                                        2.289484E+00         -5.760559E+00         -2.577289E+00              0.0                   \r\n                                        2.201601E+00         -1.507227E+01         -9.889441E+00              0.0                   \r\n0    314        0                       2.121043E-01              0.0               1.517830E-01              0.0                   \r\n                                       -6.187820E-02              0.0              -1.554947E-01              0.0                   \r\n                                       -2.562523E-03              0.0              -2.395477E-01              0.0                   \r\n                                       -5.265427E-02              0.0               2.428970E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    314        1                       3.339672E-02          8.373869E+00          5.671150E+00              0.0                   \r\n                                        1.133881E-01          4.882656E+00          3.123215E+00              0.0                   \r\n                                       -1.709929E-01         -7.619023E+00         -4.848145E+00              0.0                   \r\n                                        1.174774E-01         -5.544785E+00         -3.082520E+00              0.0                   \r\n0    314        2                      -1.093853E+00          9.584806E+00          2.115588E+01              0.0                   \r\n                                        5.410767E-01          5.291471E+00          1.533258E+01              0.0                   \r\n                                       -5.150642E-01         -8.610157E+00         -2.078796E+01              0.0                   \r\n                                        1.970520E-01         -7.939800E+00         -1.362817E+01              0.0                   \r\n0    314        3                      -2.200672E+00         -5.636093E+00          1.373978E+01              0.0                   \r\n                                        2.780762E-01         -2.966410E+00          1.240649E+01              0.0                   \r\n                                       -1.067619E-01          4.029607E+00         -1.538550E+01              0.0                   \r\n                                       -5.645752E-01         -2.601942E+00         -1.172272E+01              0.0                   \r\n0    314        4                      -1.152646E+00         -6.223512E+00         -2.500534E-01              0.0                   \r\n                                       -5.397797E-02         -3.470565E+00         -5.532532E-01              0.0                   \r\n                                        1.592417E-01          4.690736E+00          1.243393E+00              0.0                   \r\n                                       -3.586426E-01          7.613391E-02         -2.322540E+00              0.0                   \r\n0    314        5                      -3.771484E-01         -3.521473E+00         -2.276318E+00              0.0                   \r\n                                       -1.511631E-01         -2.201707E+00         -2.766560E+00              0.0                   \r\n                                        1.708369E-01          2.722310E+00          3.511475E+00              0.0                   \r\n                                       -1.752625E-01          7.164675E-01          4.756165E-02              0.0                   \r\n0    314        6                      -5.563110E-02         -1.723788E+00         -1.480093E+00              0.0                   \r\n                                       -1.428776E-01         -1.175720E+00         -1.873034E+00              0.0                   \r\n                                        1.214721E-01          1.340817E+00          2.141882E+00              0.0                   \r\n                                       -1.118422E-01          5.736233E-01          2.780552E-01              0.0                   \r\n0    314        7                       3.247520E-02         -7.809758E-01         -7.406077E-01              0.0                   \r\n                                       -9.878683E-02         -5.649971E-01         -9.706812E-01              0.0                   \r\n                                        7.095769E-02          5.980630E-01          1.013135E+00              0.0                   \r\n                                       -7.043195E-02          3.247876E-01          1.885719E-01              0.0                   \r\n0    314        8                       3.916148E-02         -3.362775E-01         -3.376410E-01              0.0                   \r\n                                       -5.834532E-02         -2.553383E-01         -4.552805E-01              0.0                   \r\n                                        3.704166E-02          2.512993E-01          4.349186E-01              0.0                   \r\n                                       -3.989041E-02          1.599344E-01          1.018875E-01              0.0                   \r\n0    314        9                       2.723109E-02         -1.398282E-01         -1.470404E-01              0.0                   \r\n                                       -3.139681E-02         -1.106724E-01         -2.018682E-01              0.0                   \r\n                                        1.795402E-02          1.015054E-01          1.770313E-01              0.0                   \r\n                                       -2.062300E-02          7.335345E-02          5.064487E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    314       10                       1.572854E-02         -5.650119E-02         -6.220977E-02              0.0                   \r\n                                       -1.584271E-02         -4.639962E-02         -8.603375E-02              0.0                   \r\n                                        8.257565E-03          3.971042E-02          6.934671E-02              0.0                   \r\n                                       -9.954192E-03          3.228803E-02          2.398059E-02              0.0                   \r\n0    314                0.0000         -4.519853E+00              0.0               3.542463E+01              0.0                   \r\n                                        3.182724E-01              0.0               2.380009E+01              0.0                   \r\n                                       -2.096199E-01              0.0              -3.266997E+01              0.0                   \r\n                                       -1.089347E+00              0.0              -2.982235E+01              0.0                   \r\n0    314                7.1000         -4.167899E+00         -5.888847E+00          3.517867E+01              0.0                   \r\n                                        4.437355E-01         -3.688873E+00          2.425525E+01              0.0                   \r\n                                       -3.257025E-01          3.924453E+00         -3.301483E+01              0.0                   \r\n                                       -8.912570E-01         -2.259721E+00         -2.854149E+01              0.0                   \r\n0    321        0                      -4.669571E-02              0.0              -2.329369E-01              0.0                   \r\n                                        1.461334E-01              0.0              -1.669388E-01              0.0                   \r\n                                       -5.490863E-02              0.0              -1.731873E-02              0.0                   \r\n                                        3.601074E-02              0.0               4.172058E-01              0.0                   \r\n0    321        1                      -2.050858E-01          7.393253E+00          4.082512E+00              0.0                   \r\n                                        2.952118E-01          5.431414E+00          3.067474E+00              0.0                   \r\n                                       -2.180142E-01         -8.089601E+00         -4.272858E+00              0.0                   \r\n                                        2.017899E-01         -4.662652E+00         -2.003571E+00              0.0                   \r\n0    321        2                      -7.153397E-01          1.747254E+01          1.009003E+01              0.0                   \r\n                                        9.928284E-01          1.332016E+01          1.032080E+01              0.0                   \r\n                                        9.777737E-02         -1.733554E+01         -1.170825E+01              0.0                   \r\n                                        6.135559E-01         -1.142594E+01         -4.644775E+00              0.0                   \r\n0    321        3                      -7.918625E-01          1.496918E+01         -1.188934E+00              0.0                   \r\n                                        1.660034E+00          1.406509E+01          3.166229E+00              0.0                   \r\n                                        1.342430E+00         -1.034818E+01          8.568726E-01              0.0                   \r\n                                        4.675446E-01         -9.987414E+00          2.169983E+00              0.0                   \r\n0    321        4                      -3.877153E-01          5.752314E+00         -2.399891E+00              0.0                   \r\n                                        8.904228E-01          6.202352E+00         -1.973373E+00              0.0                   \r\n                                        6.767260E-01         -2.269087E+00          5.259567E+00              0.0                   \r\n                                        1.609726E-01         -3.577772E+00          1.485245E+00              0.0                   \r\n0    321        5                      -1.620214E-01          1.987138E+00         -6.133013E-01              0.0                   \r\n                                        3.420768E-01          2.083728E+00         -1.512703E+00              0.0                   \r\n                                        1.779855E-01         -4.803637E-01          2.935762E+00              0.0                   \r\n                                        5.244827E-02         -1.119099E+00          1.226044E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    321        6                      -5.571479E-02          6.070386E-01         -4.925108E-02              0.0                   \r\n                                        1.217718E-01          5.687472E-01         -7.383103E-01              0.0                   \r\n                                        2.571516E-02         -7.566516E-02          1.201208E+00              0.0                   \r\n                                        1.318884E-02         -3.083913E-01         -1.116190E-01              0.0                   \r\n0    321        7                      -1.411438E-02          1.569353E-01          3.260171E-02              0.0                   \r\n                                        4.302508E-02          1.128411E-01         -3.289696E-01              0.0                   \r\n                                       -5.199617E-03          8.227604E-03          4.412837E-01              0.0                   \r\n                                        5.059242E-04         -6.729663E-02         -7.397962E-02              0.0                   \r\n0    321        8                      -9.442344E-04          2.852326E-02          2.230094E-02              0.0                   \r\n                                        1.490143E-02          4.018391E-04         -1.426994E-01              0.0                   \r\n                                       -6.661256E-03          1.489874E-02          1.539350E-01              0.0                   \r\n                                       -2.256006E-03         -6.341256E-03         -3.064203E-02              0.0                   \r\n0    321        9                       1.973636E-03         -1.613224E-03          8.826301E-03              0.0                   \r\n                                        4.886344E-03         -1.695365E-02         -6.082298E-02              0.0                   \r\n                                       -3.827281E-03          8.867330E-03          5.146736E-02              0.0                   \r\n                                       -2.062172E-03          4.748288E-03         -9.900659E-03              0.0                   \r\n0    321       10                       1.873901E-03         -5.475163E-03          2.349213E-03              0.0                   \r\n                                        1.432274E-03         -1.326722E-02         -2.553884E-02              0.0                   \r\n                                       -1.737251E-03          4.134496E-03          1.644170E-02              0.0                   \r\n                                       -1.328185E-03          4.379717E-03         -2.412111E-03              0.0                   \r\n0    321                0.0000         -2.375646E+00              0.0               9.754302E+00              0.0                   \r\n                                        4.512724E+00              0.0               1.160515E+01              0.0                   \r\n                                        2.030285E+00              0.0              -5.081890E+00              0.0                   \r\n                                        1.540370E+00              0.0              -2.681861E+00              0.0                   \r\n0    321                7.1000         -2.203600E+00          1.507523E+01          9.883614E+00              0.0                   \r\n                                        4.138202E+00          1.365164E+01          1.199557E+01              0.0                   \r\n                                        1.824120E+00         -1.039020E+01         -6.511053E+00              0.0                   \r\n                                        1.458428E+00         -9.615628E+00         -2.797727E+00              0.0                   \r\n0    324        0                       8.612442E-02              0.0               1.550064E-01              0.0                   \r\n                                        2.227783E-03              0.0               2.395096E-01              0.0                   \r\n                                       -5.746841E-03              0.0              -4.302368E-01              0.0                   \r\n                                       -2.233124E-02              0.0               3.575134E-02              0.0                   \r\n0    324        1                      -8.599472E-02          5.558794E+00          3.482727E+00              0.0                   \r\n                                        1.728210E-01          7.619240E+00          4.849258E+00              0.0                   \r\n                                       -1.769829E-01         -4.817646E+00         -3.040436E+00              0.0                   \r\n                                        1.522064E-01         -8.297927E+00         -4.436035E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    324        2                      -1.193451E+00          5.911211E+00          1.227206E+01              0.0                   \r\n                                        5.173340E-01          8.611321E+00          2.079181E+01              0.0                   \r\n                                       -5.823364E-01         -4.964283E+00         -1.271326E+01              0.0                   \r\n                                        4.664917E-01         -1.109322E+01         -1.835571E+01              0.0                   \r\n0    324        3                      -1.941513E+00         -5.752789E+00          7.190521E+00              0.0                   \r\n                                        1.106567E-01         -4.027864E+00          1.538922E+01              0.0                   \r\n                                       -2.205658E-01          3.786146E+00         -9.664551E+00              0.0                   \r\n                                       -2.947388E-01         -4.712529E-01         -1.414966E+01              0.0                   \r\n0    324        4                      -7.340889E-01         -5.261175E+00         -6.082382E-01              0.0                   \r\n                                       -1.589355E-01         -4.692170E+00         -1.243393E+00              0.0                   \r\n                                        1.285782E-01          3.511448E+00          1.075317E+00              0.0                   \r\n                                       -4.806366E-01          2.150886E+00         -1.218933E+00              0.0                   \r\n0    324        5                      -1.174898E-01         -2.578412E+00         -1.429108E+00              0.0                   \r\n                                       -1.705093E-01         -2.721230E+00         -3.512890E+00              0.0                   \r\n                                        1.626129E-01          1.787616E+00          2.379021E+00              0.0                   \r\n                                       -3.220634E-01          1.653156E+00          1.170593E+00              0.0                   \r\n0    324        6                       4.752111E-02         -1.101907E+00         -8.221412E-01              0.0                   \r\n                                       -1.212492E-01         -1.339967E+00         -2.141624E+00              0.0                   \r\n                                        1.146812E-01          7.848905E-01          1.342186E+00              0.0                   \r\n                                       -1.887341E-01          9.172628E-01          8.310585E-01              0.0                   \r\n0    324        7                       5.970871E-02         -4.408388E-01         -3.698057E-01              0.0                   \r\n                                       -7.096338E-02         -5.982698E-01         -1.013513E+00              0.0                   \r\n                                        6.433344E-02          3.161119E-01          5.840406E-01              0.0                   \r\n                                       -1.002269E-01          4.311229E-01          4.039450E-01              0.0                   \r\n0    324        8                       4.004800E-02         -1.683554E-01         -1.517438E-01              0.0                   \r\n                                       -3.704453E-02         -2.513929E-01         -4.350824E-01              0.0                   \r\n                                        3.166392E-02          1.196133E-01          2.287531E-01              0.0                   \r\n                                       -4.871166E-02          1.857654E-01          1.758413E-01              0.0                   \r\n0    324        9                       2.215283E-02         -6.165029E-02         -5.924043E-02              0.0                   \r\n                                       -1.796323E-02         -1.014858E-01         -1.771170E-01              0.0                   \r\n                                        1.425982E-02          4.311896E-02          8.434093E-02              0.0                   \r\n                                       -2.201062E-02          7.605902E-02          7.288170E-02              0.0                   \r\n0    324       10                       1.109203E-02         -2.155612E-02         -2.235593E-02              0.0                   \r\n                                       -8.258693E-03         -3.972195E-02         -6.934422E-02              0.0                   \r\n                                        6.005250E-03          1.486006E-02          2.963895E-02              0.0                   \r\n                                       -9.361789E-03          3.006614E-02          2.932081E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    324                0.0000         -3.805890E+00              0.0               1.963769E+01              0.0                   \r\n                                        2.181156E-01              0.0               3.267684E+01              0.0                   \r\n                                       -4.634972E-01              0.0              -2.012518E+01              0.0                   \r\n                                       -8.701169E-01              0.0              -3.544095E+01              0.0                   \r\n0    324                7.1000         -3.597592E+00         -5.250889E+00          1.954818E+01              0.0                   \r\n                                        3.337015E-01         -3.923216E+00          3.302176E+01              0.0                   \r\n                                       -5.543326E-01          3.195505E+00         -2.035610E+01              0.0                   \r\n                                       -6.218036E-01         -7.332106E-01         -3.445258E+01              0.0                   \r\n0    331        0                      -3.602219E-02              0.0              -4.172592E-01              0.0                   \r\n                                        8.882141E-02              0.0              -1.185379E-01              0.0                   \r\n                                       -1.800251E-02              0.0              -1.335144E-03              0.0                   \r\n                                        2.048111E-02              0.0               5.369034E-01              0.0                   \r\n0    331        1                      -2.010117E-01          4.662590E+00          2.004295E+00              0.0                   \r\n                                        2.485962E-01          8.096582E+00          4.119308E+00              0.0                   \r\n                                       -1.802998E-01         -5.361162E+00         -2.448578E+00              0.0                   \r\n                                        1.811600E-01         -7.349119E+00         -2.805435E+00              0.0                   \r\n0    331        2                      -6.105957E-01          1.142779E+01          4.645935E+00              0.0                   \r\n                                        7.973633E-01          1.900597E+01          1.313800E+01              0.0                   \r\n                                       -2.967072E-02         -1.120359E+01         -6.307434E+00              0.0                   \r\n                                        6.976624E-01         -1.746935E+01         -7.435303E+00              0.0                   \r\n0    331        3                      -4.729462E-01          9.975458E+00         -2.169373E+00              0.0                   \r\n                                        9.005127E-01          1.702551E+01          3.354645E+00              0.0                   \r\n                                        1.211487E+00         -5.426528E+00          2.120300E+00              0.0                   \r\n                                        7.201843E-01         -1.396172E+01          1.472473E+00              0.0                   \r\n0    331        4                      -1.640244E-01          3.572407E+00         -1.488354E+00              0.0                   \r\n                                        2.888260E-01          6.194016E+00         -2.802940E+00              0.0                   \r\n                                        7.620029E-01         -4.580808E-01          4.135078E+00              0.0                   \r\n                                        2.625694E-01         -4.152411E+00          2.134384E+00              0.0                   \r\n0    331        5                      -5.270290E-02          1.119056E+00         -1.224079E-01              0.0                   \r\n                                        4.431629E-02          1.714836E+00         -1.916061E+00              0.0                   \r\n                                        2.666025E-01          5.517722E-02          2.105385E+00              0.0                   \r\n                                        7.106972E-02         -9.935710E-01          5.788517E-01              0.0                   \r\n0    331        6                      -1.334453E-02          3.070926E-01          1.129632E-01              0.0                   \r\n                                        1.040936E-03          3.455006E-01         -8.507538E-01              0.0                   \r\n                                        7.727879E-02          3.492360E-02          7.910180E-01              0.0                   \r\n                                        1.023984E-02         -1.779596E-01          1.071939E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    331        7                      -5.655885E-04          6.705463E-02          7.401353E-02              0.0                   \r\n                                       -1.996279E-03          1.652787E-02         -3.426079E-01              0.0                   \r\n                                        2.120613E-02          1.316587E-02          2.623665E-01              0.0                   \r\n                                       -4.139543E-03         -2.522038E-03          2.091241E-02              0.0                   \r\n0    331        8                       2.248555E-03          6.269567E-03          3.082122E-02              0.0                   \r\n                                       -1.271069E-03         -3.294139E-02         -1.341776E-01              0.0                   \r\n                                        5.944557E-03          4.455553E-03          8.061793E-02              0.0                   \r\n                                       -4.911751E-03          1.914207E-02          7.741451E-03              0.0                   \r\n0    331        9                       2.056886E-03         -4.749247E-03          9.992331E-03              0.0                   \r\n                                       -8.311123E-04         -2.536494E-02         -5.172072E-02              0.0                   \r\n                                        1.825571E-03          1.259795E-03          2.301925E-02              0.0                   \r\n                                       -3.131628E-03          1.314235E-02          4.564032E-03              0.0                   \r\n0    331       10                       1.327015E-03         -4.380527E-03          2.411427E-03              0.0                   \r\n                                       -5.635992E-04         -1.374433E-02         -1.961124E-02              0.0                   \r\n                                        6.458107E-04          2.544631E-04          5.948301E-03              0.0                   \r\n                                       -1.633968E-03          6.599050E-03          2.629489E-03              0.0                   \r\n0    331                0.0000         -1.545581E+00              0.0               2.683039E+00              0.0                   \r\n                                        2.364815E+00              0.0               1.437554E+01              0.0                   \r\n                                        2.119020E+00              0.0               7.663864E-01              0.0                   \r\n                                        1.949550E+00              0.0              -5.375085E+00              0.0                   \r\n0    331                7.1000         -1.462882E+00          9.608029E+00          2.798660E+00              0.0                   \r\n                                        2.235885E+00          1.597255E+01          1.485531E+01              0.0                   \r\n                                        1.865257E+00         -5.529217E+00         -4.107731E-01              0.0                   \r\n                                        1.836676E+00         -1.290561E+01         -5.634955E+00              0.0                   \r\n0    334        0                       3.425884E-02              0.0               1.264420E-01              0.0                   \r\n                                        6.015778E-03              0.0               4.298325E-01              0.0                   \r\n                                       -1.341438E-02              0.0              -5.519180E-01              0.0                   \r\n                                        3.265381E-03              0.0              -4.585266E-03              0.0                   \r\n0    334        1                      -1.326847E-01          8.258691E+00          4.533371E+00              0.0                   \r\n                                        1.760025E-01          4.817613E+00          3.039963E+00              0.0                   \r\n                                       -1.810255E-01         -7.538891E+00         -4.142746E+00              0.0                   \r\n                                        1.697464E-01         -5.505286E+00         -2.577545E+00              0.0                   \r\n0    334        2                      -1.139603E+00          9.289896E+00          1.668576E+01              0.0                   \r\n                                        5.799561E-01          4.966548E+00          1.271399E+01              0.0                   \r\n                                       -5.092239E-01         -8.183920E+00         -1.648749E+01              0.0                   \r\n                                        3.437500E-01         -7.470882E+00         -1.094385E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    334        3                      -1.905521E+00         -6.199553E+00          9.873383E+00              0.0                   \r\n                                        2.182312E-01         -3.782875E+00          9.665649E+00              0.0                   \r\n                                       -3.569794E-02          5.153803E+00         -1.156165E+01              0.0                   \r\n                                       -3.413391E-01         -8.812153E-01         -9.352844E+00              0.0                   \r\n0    334        4                      -8.028994E-01         -5.956385E+00         -1.176956E+00              0.0                   \r\n                                       -1.300125E-01         -3.513173E+00         -1.074524E+00              0.0                   \r\n                                        2.115984E-01          4.818866E+00          1.687851E+00              0.0                   \r\n                                       -3.162308E-01          9.986994E-01         -1.423065E+00              0.0                   \r\n0    334        5                      -1.756973E-01         -2.796642E+00         -2.129637E+00              0.0                   \r\n                                       -1.624851E-01         -1.787476E+00         -2.375374E+00              0.0                   \r\n                                        1.648295E-01          2.251738E+00          2.899620E+00              0.0                   \r\n                                       -1.645565E-01          8.628840E-01          3.595772E-01              0.0                   \r\n0    334        6                       1.480412E-02         -1.129552E+00         -1.143022E+00              0.0                   \r\n                                       -1.145825E-01         -7.854824E-01         -1.342835E+00              0.0                   \r\n                                        9.239274E-02          9.059409E-01          1.502874E+00              0.0                   \r\n                                       -8.880568E-02          4.837291E-01          3.429985E-01              0.0                   \r\n0    334        7                       4.050074E-02         -4.266263E-01         -4.835913E-01              0.0                   \r\n                                       -6.434965E-02         -3.159121E-01         -5.835760E-01              0.0                   \r\n                                        4.449850E-02          3.368604E-01          6.004431E-01              0.0                   \r\n                                       -4.595208E-02          2.218919E-01          1.746788E-01              0.0                   \r\n0    334        8                       2.807189E-02         -1.536181E-01         -1.868748E-01              0.0                   \r\n                                       -3.165364E-02         -1.195898E-01         -2.286617E-01              0.0                   \r\n                                        1.947606E-02          1.186757E-01          2.158203E-01              0.0                   \r\n                                       -2.168304E-02          9.141793E-02          7.642508E-02              0.0                   \r\n0    334        9                       1.482937E-02         -5.317289E-02         -6.894408E-02              0.0                   \r\n                                       -1.425721E-02         -4.312776E-02         -8.430912E-02              0.0                   \r\n                                        7.947993E-03          4.004703E-02          7.299165E-02              0.0                   \r\n                                       -9.392485E-03          3.532454E-02          3.138396E-02              0.0                   \r\n0    334       10                       6.851824E-03         -1.771229E-02         -2.464818E-02              0.0                   \r\n                                       -6.003618E-03         -1.485949E-02         -2.962581E-02              0.0                   \r\n                                        3.068348E-03          1.297471E-02          2.351198E-02              0.0                   \r\n                                       -3.788941E-03          1.306883E-02          1.238311E-02              0.0                   \r\n0    334                0.0000         -4.017089E+00              0.0               2.600528E+01              0.0                   \r\n                                        4.568613E-01              0.0               2.013053E+01              0.0                   \r\n                                       -1.955502E-01              0.0              -2.574068E+01              0.0                   \r\n                                       -4.749869E-01              0.0              -2.330444E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    334                7.1000         -3.765637E+00         -4.692329E+00          2.593601E+01              0.0                   \r\n                                        5.480577E-01         -3.194740E+00          2.036052E+01              0.0                   \r\n                                       -2.877023E-01          3.549949E+00         -2.592059E+01              0.0                   \r\n                                       -3.375351E-01         -1.239913E+00         -2.241970E+01              0.0                   \r\n0    341        0                      -2.075863E-02              0.0              -5.367775E-01              0.0                   \r\n                                        1.994705E-02              0.0              -2.244568E-02              0.0                   \r\n                                        3.782201E-02              0.0               1.394196E-01              0.0                   \r\n                                       -1.365662E-03              0.0               4.197998E-01              0.0                   \r\n0    341        1                      -1.811562E-01          7.349225E+00          2.804436E+00              0.0                   \r\n                                        1.776505E-01          5.405531E+00          2.490784E+00              0.0                   \r\n                                       -1.258657E-01         -8.060842E+00         -3.050049E+00              0.0                   \r\n                                        1.649475E-01         -4.658828E+00         -1.374878E+00              0.0                   \r\n0    341        2                      -6.973877E-01          1.747067E+01          7.434296E+00              0.0                   \r\n                                        7.908325E-01          1.306738E+01          8.301147E+00              0.0                   \r\n                                        8.530045E-02         -1.751537E+01         -8.370239E+00              0.0                   \r\n                                        5.777283E-01         -1.146965E+01         -3.307129E+00              0.0                   \r\n0    341        3                      -7.175751E-01          1.396881E+01         -1.475739E+00              0.0                   \r\n                                        1.216553E+00          1.235262E+01          2.674957E+00              0.0                   \r\n                                        1.148867E+00         -1.022129E+01          1.607483E+00              0.0                   \r\n                                        3.976135E-01         -9.453964E+00          1.861572E+00              0.0                   \r\n0    341        4                      -2.634192E-01          4.152457E+00         -2.133652E+00              0.0                   \r\n                                        5.883636E-01          4.369096E+00         -1.695816E+00              0.0                   \r\n                                        5.456978E-01         -1.524761E+00          4.326767E+00              0.0                   \r\n                                        8.147812E-02         -2.649734E+00          1.192307E+00              0.0                   \r\n0    341        5                      -7.117605E-02          9.934546E-01         -5.795541E-01              0.0                   \r\n                                        1.905761E-01          1.055687E+00         -1.254847E+00              0.0                   \r\n                                        1.210201E-01         -3.507641E-02          2.131840E+00              0.0                   \r\n                                        4.314423E-03         -5.481474E-01          1.304817E-01              0.0                   \r\n0    341        6                      -1.018059E-02          1.779282E-01         -1.072735E-01              0.0                   \r\n                                        5.144513E-02          1.449257E-01         -5.548823E-01              0.0                   \r\n                                        1.154709E-02          7.633808E-02          7.588749E-01              0.0                   \r\n                                       -7.880926E-03         -7.428961E-02         -3.847218E-02              0.0                   \r\n0    341        7                       4.141659E-03          2.535630E-03         -2.094305E-02              0.0                   \r\n                                        1.204252E-02         -2.915972E-02         -2.162122E-01              0.0                   \r\n                                       -4.241593E-03          4.540816E-02          2.376497E-01              0.0                   \r\n                                       -6.787241E-03          9.696046E-03         -2.182150E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    341        8                       4.909553E-03         -1.913981E-02         -7.809654E-03              0.0                   \r\n                                        1.970977E-03         -3.643005E-02         -8.082390E-02              0.0                   \r\n                                       -3.240846E-03          2.015197E-02          6.933492E-02              0.0                   \r\n                                       -4.033729E-03          1.414473E-02         -5.132854E-03              0.0                   \r\n0    341        9                       3.131768E-03         -1.315270E-02         -4.562367E-03              0.0                   \r\n                                       -1.903884E-04         -2.112928E-02         -2.948547E-02              0.0                   \r\n                                       -1.369748E-03          7.844506E-03          1.895374E-02              0.0                   \r\n                                       -2.049312E-03          8.115179E-03          1.536310E-04              0.0                   \r\n0    341       10                       1.633776E-03         -6.600143E-03         -2.627347E-03              0.0                   \r\n                                       -4.154108E-04         -9.998248E-03         -1.053009E-02              0.0                   \r\n                                       -4.444646E-04          2.807755E-03          4.783772E-03              0.0                   \r\n                                       -9.424388E-04          3.722567E-03          8.853227E-04              0.0                   \r\n0    341                0.0000         -1.947837E+00              0.0               5.369793E+00              0.0                   \r\n                                        3.048775E+00              0.0               9.601846E+00              0.0                   \r\n                                        1.815092E+00              0.0              -2.125182E+00              0.0                   \r\n                                        1.203022E+00              0.0              -1.142234E+00              0.0                   \r\n0    341                7.1000         -1.835042E+00          1.290846E+01          5.630029E+00              0.0                   \r\n                                        2.815578E+00          1.106880E+01          9.866722E+00              0.0                   \r\n                                        1.647786E+00         -9.638594E+00         -3.202279E+00              0.0                   \r\n                                        1.154422E+00         -8.422426E+00         -1.306056E+00              0.0                   \r\n0    344        0                      -2.739525E-02              0.0               1.004028E-02              0.0                   \r\n                                        1.310730E-02              0.0               5.520477E-01              0.0                   \r\n                                       -2.275658E-02              0.0              -4.330750E-01              0.0                   \r\n                                        4.945374E-02              0.0              -1.289215E-01              0.0                   \r\n0    344        1                      -1.945000E-01          5.487413E+00          2.601990E+00              0.0                   \r\n                                        1.824493E-01          7.539107E+00          4.144119E+00              0.0                   \r\n                                       -1.940765E-01         -4.772597E+00         -2.409576E+00              0.0                   \r\n                                        2.224579E-01         -8.236925E+00         -3.489380E+00              0.0                   \r\n0    344        2                      -1.169754E+00          5.819063E+00          9.218658E+00              0.0                   \r\n                                        5.135498E-01          8.185194E+00          1.648999E+01              0.0                   \r\n                                       -5.905457E-01         -4.707695E+00         -9.669678E+00              0.0                   \r\n                                        6.060791E-01         -1.052977E+01         -1.413184E+01              0.0                   \r\n0    344        3                      -1.627014E+00         -5.657486E+00          4.679138E+00              0.0                   \r\n                                        3.991699E-02         -5.152577E+00          1.156451E+01              0.0                   \r\n                                       -1.565552E-01          4.413625E+00         -7.030640E+00              0.0                   \r\n                                       -6.744385E-02          1.408184E+00         -1.079907E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    344        4                      -4.691772E-01         -4.741117E+00         -1.045883E+00              0.0                   \r\n                                       -2.118988E-01         -4.819940E+00         -1.688004E+00              0.0                   \r\n                                        1.851234E-01          3.488511E+00          1.177948E+00              0.0                   \r\n                                       -4.047394E-01          2.965330E+00         -4.977112E-01              0.0                   \r\n0    344        5                      -3.561020E-03         -1.958391E+00         -1.241779E+00              0.0                   \r\n                                       -1.645050E-01         -2.251048E+00         -2.900578E+00              0.0                   \r\n                                        1.607361E-01          1.440924E+00          1.843933E+00              0.0                   \r\n                                       -2.721672E-01          1.591476E+00          1.141563E+00              0.0                   \r\n0    344        6                       6.772327E-02         -6.834199E-01         -5.988431E-01              0.0                   \r\n                                       -9.227848E-02         -9.054759E-01         -1.502726E+00              0.0                   \r\n                                        8.747864E-02          5.107977E-01          8.965836E-01              0.0                   \r\n                                       -1.360159E-01          6.908199E-01          6.715813E-01              0.0                   \r\n0    344        7                       4.809052E-02         -2.224253E-01         -2.294773E-01              0.0                   \r\n                                       -4.450107E-02         -3.369290E-01         -6.006050E-01              0.0                   \r\n                                        3.965199E-02          1.684257E-01          3.303647E-01              0.0                   \r\n                                       -5.992985E-02          2.683434E-01          2.788506E-01              0.0                   \r\n0    344        8                       2.484731E-02         -6.861117E-02         -7.992603E-02              0.0                   \r\n                                       -1.947832E-02         -1.187022E-01         -2.158804E-01              0.0                   \r\n                                        1.608802E-02          5.230425E-02          1.076664E-01              0.0                   \r\n                                       -2.420473E-02          9.730065E-02          1.033251E-01              0.0                   \r\n0    344        9                       1.117169E-02         -1.986559E-02         -2.634560E-02              0.0                   \r\n                                       -7.950366E-03         -4.004344E-02         -7.301736E-02              0.0                   \r\n                                        5.996589E-03          1.529453E-02          3.249273E-02              0.0                   \r\n                                       -9.077758E-03          3.360423E-02          3.631726E-02              0.0                   \r\n0    344       10                       4.614885E-03         -5.251048E-03         -8.336272E-03              0.0                   \r\n                                       -3.069062E-03         -1.297658E-02         -2.351097E-02              0.0                   \r\n                                        2.075619E-03          4.154875E-03          9.149969E-03              0.0                   \r\n                                       -3.176730E-03          1.116176E-02          1.233786E-02              0.0                   \r\n0    344                0.0000         -3.334954E+00              0.0               1.327924E+01              0.0                   \r\n                                        2.053423E-01              0.0               2.574635E+01              0.0                   \r\n                                       -4.667836E-01              0.0              -1.514483E+01              0.0                   \r\n                                       -9.876467E-02              0.0              -2.680294E+01              0.0                   \r\n0    344                7.1000         -3.184923E+00         -4.054054E+00          1.331032E+01              0.0                   \r\n                                        2.970125E-01         -3.549033E+00          2.592623E+01              0.0                   \r\n                                       -5.378441E-01          2.890121E+00         -1.526155E+01              0.0                   \r\n                                        6.016117E-02          3.936044E-02         -2.611016E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    351        0                       1.377106E-03              0.0              -4.201508E-01              0.0                   \r\n                                        1.518250E-03              0.0              -6.883240E-02              0.0                   \r\n                                        1.254082E-02              0.0               7.176208E-02              0.0                   \r\n                                        4.264832E-03              0.0               4.170532E-01              0.0                   \r\n0    351        1                      -1.648178E-01          4.658861E+00          1.375244E+00              0.0                   \r\n                                        1.643372E-01          8.079730E+00          3.102371E+00              0.0                   \r\n                                       -1.476669E-01         -5.366136E+00         -1.661972E+00              0.0                   \r\n                                        1.664886E-01         -7.353952E+00         -1.946411E+00              0.0                   \r\n0    351        2                      -5.800171E-01          1.147158E+01          3.307587E+00              0.0                   \r\n                                        6.107178E-01          1.881087E+01          1.003052E+01              0.0                   \r\n                                       -9.829712E-02         -1.147325E+01         -4.095276E+00              0.0                   \r\n                                        6.876831E-01         -1.752495E+01         -5.190552E+00              0.0                   \r\n0    351        3                      -4.005432E-01          9.443357E+00         -1.861465E+00              0.0                   \r\n                                        5.394897E-01          1.524975E+01          2.679932E+00              0.0                   \r\n                                        9.244690E-01         -5.883384E+00          2.397614E+00              0.0                   \r\n                                        6.675110E-01         -1.324554E+01          1.288940E+00              0.0                   \r\n0    351        4                      -8.369827E-02          2.645669E+00         -1.194599E+00              0.0                   \r\n                                        1.222534E-01          4.270192E+00         -2.248131E+00              0.0                   \r\n                                        5.757999E-01         -3.557088E-01          3.223145E+00              0.0                   \r\n                                        1.755295E-01         -3.020347E+00          1.633041E+00              0.0                   \r\n0    351        5                      -4.441738E-03          5.480880E-01         -1.301165E-01              0.0                   \r\n                                       -2.666473E-03          7.351335E-01         -1.490782E+00              0.0                   \r\n                                        1.831846E-01          1.820886E-01          1.425634E+00              0.0                   \r\n                                        1.521873E-02         -3.740667E-01          4.476547E-01              0.0                   \r\n0    351        6                       7.822037E-03          7.364844E-02          3.932965E-02              0.0                   \r\n                                       -1.254201E-02          3.000021E-03         -6.066899E-01              0.0                   \r\n                                        4.602987E-02          7.862180E-02          4.592459E-01              0.0                   \r\n                                       -1.140857E-02          3.393438E-02          9.939957E-02              0.0                   \r\n0    351        7                       6.764770E-03         -9.782609E-03          2.189440E-02              0.0                   \r\n                                       -6.774366E-03         -7.160714E-02         -2.157753E-01              0.0                   \r\n                                        1.081309E-02          2.289317E-02          1.271994E-01              0.0                   \r\n                                       -9.412408E-03          4.901737E-02          2.894282E-02              0.0                   \r\n0    351        8                       4.031725E-03         -1.416768E-02          5.212456E-03              0.0                   \r\n                                       -3.071457E-03         -4.433087E-02         -7.314894E-02              0.0                   \r\n                                        2.678428E-03          6.047603E-03          3.145058E-02              0.0                   \r\n                                       -4.972875E-03          2.534783E-02          1.160315E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    351        9                       2.048735E-03         -8.112656E-03         -1.220964E-04              0.0                   \r\n                                       -1.391560E-03         -2.026560E-02         -2.414457E-02              0.0                   \r\n                                        7.756753E-04          1.524725E-03          6.759353E-03              0.0                   \r\n                                       -2.222102E-03          1.049931E-02          5.065471E-03              0.0                   \r\n0    351       10                       9.423112E-04         -3.720968E-03         -8.818628E-04              0.0                   \r\n                                       -6.358698E-04         -8.126369E-03         -7.778514E-03              0.0                   \r\n                                        2.690596E-04          3.687435E-04          1.103330E-03              0.0                   \r\n                                       -8.986685E-04          3.898917E-03          2.111621E-03              0.0                   \r\n0    351                0.0000         -1.210531E+00              0.0               1.141931E+00              0.0                   \r\n                                        1.411235E+00              0.0               1.107754E+01              0.0                   \r\n                                        1.510596E+00              0.0               1.986665E+00              0.0                   \r\n                                        1.687781E+00              0.0              -3.203151E+00              0.0                   \r\n0    351                7.1000         -1.161347E+00          8.416569E+00          1.305629E+00              0.0                   \r\n                                        1.348545E+00          1.349494E+01          1.140007E+01              0.0                   \r\n                                        1.330439E+00         -5.600870E+00          1.122964E+00              0.0                   \r\n                                        1.606377E+00         -1.157851E+01         -3.443392E+00              0.0                   \r\n0    354        0                      -3.050089E-02              0.0               7.031250E-02              0.0                   \r\n                                        2.304077E-02              0.0               4.328995E-01              0.0                   \r\n                                       -1.092768E-02              0.0              -4.287491E-01              0.0                   \r\n                                        1.732635E-02              0.0              -7.459259E-02              0.0                   \r\n0    354        1                      -1.978436E-01          8.197416E+00          3.368561E+00              0.0                   \r\n                                        1.930847E-01          4.772626E+00          2.409012E+00              0.0                   \r\n                                       -1.789494E-01         -7.493026E+00         -3.016861E+00              0.0                   \r\n                                        1.855850E-01         -5.475319E+00         -1.914490E+00              0.0                   \r\n0    354        2                      -1.112892E+00          9.140005E+00          1.222598E+01              0.0                   \r\n                                        5.893555E-01          4.710137E+00          9.670349E+00              0.0                   \r\n                                       -5.018425E-01         -7.872882E+00         -1.185248E+01              0.0                   \r\n                                        4.702148E-01         -7.046856E+00         -8.155396E+00              0.0                   \r\n0    354        3                      -1.584274E+00         -6.421305E+00          6.467346E+00              0.0                   \r\n                                        1.597290E-01         -4.411158E+00          7.032349E+00              0.0                   \r\n                                        1.927185E-02          5.977118E+00         -7.993530E+00              0.0                   \r\n                                       -1.113892E-01          6.423950E-01         -7.194031E+00              0.0                   \r\n0    354        4                      -5.103192E-01         -5.610888E+00         -1.499786E+00              0.0                   \r\n                                       -1.874542E-01         -3.489993E+00         -1.177322E+00              0.0                   \r\n                                        2.462540E-01          4.843244E+00          1.588760E+00              0.0                   \r\n                                       -2.684555E-01          1.713030E+00         -9.432373E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    354        5                      -4.362571E-02         -2.220498E+00         -1.724302E+00              0.0                   \r\n                                       -1.607933E-01         -1.440882E+00         -1.841616E+00              0.0                   \r\n                                        1.531229E-01          1.862497E+00          2.129425E+00              0.0                   \r\n                                       -1.527882E-01          8.977201E-01          3.983154E-01              0.0                   \r\n0    354        6                       4.339480E-02         -7.300967E-01         -7.951427E-01              0.0                   \r\n                                       -8.744955E-02         -5.111676E-01         -8.969755E-01              0.0                   \r\n                                        6.844154E-02          6.022739E-01          9.690914E-01              0.0                   \r\n                                       -6.994295E-02          3.746170E-01          2.939177E-01              0.0                   \r\n0    354        7                       3.418314E-02         -2.241945E-01         -2.892092E-01              0.0                   \r\n                                       -3.966063E-02         -1.683621E-01         -3.301731E-01              0.0                   \r\n                                        2.674647E-02          1.817767E-01          3.320950E-01              0.0                   \r\n                                       -2.910018E-02          1.391504E-01          1.272910E-01              0.0                   \r\n0    354        8                       1.716918E-02         -6.568058E-02         -9.516039E-02              0.0                   \r\n                                       -1.608440E-02         -5.230298E-02         -1.076354E-01              0.0                   \r\n                                        9.640265E-03          5.233818E-02          9.998763E-02              0.0                   \r\n                                       -1.116936E-02          4.779722E-02          4.723698E-02              0.0                   \r\n0    354        9                       7.181772E-03         -1.832104E-02         -2.961955E-02              0.0                   \r\n                                       -5.995981E-03         -1.529758E-02         -3.249128E-02              0.0                   \r\n                                        3.256038E-03          1.435727E-02          2.771090E-02              0.0                   \r\n                                       -3.973529E-03          1.548602E-02          1.635660E-02              0.0                   \r\n0    354       10                       2.678573E-03         -4.802615E-03         -8.849060E-03              0.0                   \r\n                                       -2.075003E-03         -4.159092E-03         -9.149132E-03              0.0                   \r\n                                        1.034840E-03          3.711597E-03          7.120376E-03              0.0                   \r\n                                       -1.313526E-03          4.774582E-03          5.418787E-03              0.0                   \r\n0    354                0.0000         -3.374848E+00              0.0               1.769013E+01              0.0                   \r\n                                        4.656968E-01              0.0               1.514925E+01              0.0                   \r\n                                       -1.639517E-01              0.0              -1.813743E+01              0.0                   \r\n                                        2.499385E-02              0.0              -1.739321E+01              0.0                   \r\n0    354                7.1000         -3.198703E+00         -3.776471E+00          1.772759E+01              0.0                   \r\n                                        5.368686E-01         -2.889510E+00          1.526535E+01              0.0                   \r\n                                       -2.410546E-01          3.305388E+00         -1.823176E+01              0.0                   \r\n                                        1.144236E-01         -4.178741E-01         -1.675516E+01              0.0                   \r\n0    361        0                      -4.559517E-03              0.0              -4.169960E-01              0.0                   \r\n                                       -2.517700E-02              0.0               2.799225E-02              0.0                   \r\n                                        5.036509E-02              0.0               1.302948E-01              0.0                   \r\n                                       -1.207733E-02              0.0               2.586975E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    361        1                      -1.661644E-01          7.354056E+00          1.945587E+00              0.0                   \r\n                                        1.336212E-01          5.400570E+00          1.835220E+00              0.0                   \r\n                                       -1.089408E-01         -8.073606E+00         -1.988831E+00              0.0                   \r\n                                        1.538315E-01         -4.669911E+00         -9.206848E-01              0.0                   \r\n0    361        2                      -6.855087E-01          1.752577E+01          5.190521E+00              0.0                   \r\n                                        6.400146E-01          1.282777E+01          6.261475E+00              0.0                   \r\n                                        3.114700E-03         -1.775824E+01         -5.216675E+00              0.0                   \r\n                                        5.650024E-01         -1.152230E+01         -2.167603E+00              0.0                   \r\n0    361        3                      -6.655197E-01          1.325205E+01         -1.291000E+00              0.0                   \r\n                                        8.116455E-01          1.083210E+01          2.421234E+00              0.0                   \r\n                                        9.129443E-01         -1.040293E+01          1.973938E+00              0.0                   \r\n                                        3.532715E-01         -9.084660E+00          1.325195E+00              0.0                   \r\n0    361        4                      -1.761465E-01          3.020365E+00         -1.632442E+00              0.0                   \r\n                                        3.420029E-01          2.970757E+00         -1.169746E+00              0.0                   \r\n                                        4.242004E-01         -1.131860E+00          3.200516E+00              0.0                   \r\n                                        3.113174E-02         -2.016158E+00          8.182068E-01              0.0                   \r\n0    361        5                      -1.520109E-02          3.739992E-01         -4.482021E-01              0.0                   \r\n                                        9.075832E-02          4.187936E-01         -9.175158E-01              0.0                   \r\n                                        8.297779E-02          2.180057E-01          1.387201E+00              0.0                   \r\n                                       -2.252388E-02         -1.999392E-01          9.856415E-02              0.0                   \r\n0    361        6                       1.143461E-02         -3.394616E-02         -9.946227E-02              0.0                   \r\n                                        1.537681E-02         -4.875936E-02         -3.804097E-01              0.0                   \r\n                                        5.748376E-03          1.474176E-01          4.311728E-01              0.0                   \r\n                                       -1.654243E-02          4.027174E-02         -9.045601E-03              0.0                   \r\n0    361        7                       9.416476E-03         -4.902072E-02         -2.897307E-02              0.0                   \r\n                                       -5.522370E-05         -6.619126E-02         -1.315333E-01              0.0                   \r\n                                       -2.489676E-03          5.375385E-02          1.153686E-01              0.0                   \r\n                                       -8.031130E-03          3.459168E-02         -3.100872E-03              0.0                   \r\n0    361        8                       4.973505E-03         -2.534779E-02         -1.163580E-02              0.0                   \r\n                                       -1.624502E-03         -3.418944E-02         -4.237461E-02              0.0                   \r\n                                       -1.356673E-03          1.699920E-02          2.794510E-02              0.0                   \r\n                                       -3.395081E-03          1.559355E-02          1.645148E-03              0.0                   \r\n0    361        9                       2.221951E-03         -1.049791E-02         -5.066875E-03              0.0                   \r\n                                       -1.029344E-03         -1.410199E-02         -1.311631E-02              0.0                   \r\n                                       -4.043545E-04          5.062352E-03          6.063566E-03              0.0                   \r\n                                       -1.324531E-03          5.901530E-03          1.698196E-03              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    361       10                       8.986027E-04         -3.898271E-03         -2.112779E-03              0.0                   \r\n                                       -4.883013E-04         -5.207652E-03         -3.929910E-03              0.0                   \r\n                                       -7.267561E-05          1.445303E-03          1.109408E-03              0.0                   \r\n                                       -4.851744E-04          2.041303E-03          9.026118E-04              0.0                   \r\n0    361                0.0000         -1.684155E+00              0.0               3.200217E+00              0.0                   \r\n                                        2.005045E+00              0.0               7.887295E+00              0.0                   \r\n                                        1.366086E+00              0.0               6.810400E-02              0.0                   \r\n                                        1.038858E+00              0.0              -5.955241E-01              0.0                   \r\n0    361                7.1000         -1.602893E+00          1.158105E+01          3.440680E+00              0.0                   \r\n                                        1.868593E+00          9.275517E+00          8.003864E+00              0.0                   \r\n                                        1.238239E+00         -9.383838E+00         -7.064593E-01              0.0                   \r\n                                        1.006530E+00         -7.704845E+00         -7.283721E-01              0.0                   \r\n0    364        0                      -4.893112E-02              0.0              -3.537369E-02              0.0                   \r\n                                        1.064301E-02              0.0               4.288712E-01              0.0                   \r\n                                       -1.805687E-02              0.0              -2.669220E-01              0.0                   \r\n                                        5.014038E-02              0.0              -1.264954E-01              0.0                   \r\n0    364        1                      -2.190018E-01          5.457526E+00          1.813759E+00              0.0                   \r\n                                        1.806335E-01          7.493072E+00          3.018112E+00              0.0                   \r\n                                       -1.914062E-01         -4.750906E+00         -1.602142E+00              0.0                   \r\n                                        2.272644E-01         -8.201582E+00         -2.386841E+00              0.0                   \r\n0    364        2                      -1.082184E+00          5.841139E+00          6.254791E+00              0.0                   \r\n                                        5.045166E-01          7.873753E+00          1.185461E+01              0.0                   \r\n                                       -5.877686E-01         -4.534271E+00         -6.466064E+00              0.0                   \r\n                                        7.037354E-01         -1.006262E+01         -9.797852E+00              0.0                   \r\n0    364        3                      -1.299728E+00         -5.323063E+00          2.470123E+00              0.0                   \r\n                                       -1.489258E-02         -5.976443E+00          7.994751E+00              0.0                   \r\n                                       -1.113892E-01          4.847559E+00         -4.560425E+00              0.0                   \r\n                                        1.621094E-01          2.973663E+00         -7.740356E+00              0.0                   \r\n0    364        4                      -2.567329E-01         -4.224770E+00         -1.159622E+00              0.0                   \r\n                                       -2.463074E-01         -4.843947E+00         -1.589127E+00              0.0                   \r\n                                        2.235413E-01          3.436612E+00          9.625549E-01              0.0                   \r\n                                       -3.190460E-01          3.567214E+00         -2.805481E-01              0.0                   \r\n0    364        5                       6.267071E-02         -1.502130E+00         -9.414988E-01              0.0                   \r\n                                       -1.530075E-01         -1.862065E+00         -2.130074E+00              0.0                   \r\n                                        1.537981E-01          1.181442E+00          1.245911E+00              0.0                   \r\n                                       -2.269821E-01          1.484747E+00          8.598709E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    364        6                       6.739211E-02         -4.243506E-01         -3.889620E-01              0.0                   \r\n                                       -6.838083E-02         -6.020366E-01         -9.690089E-01              0.0                   \r\n                                        6.627321E-02          3.325152E-01          5.402155E-01              0.0                   \r\n                                       -9.839821E-02          5.043067E-01          4.609413E-01              0.0                   \r\n0    364        7                       3.413028E-02         -1.083105E-01         -1.287555E-01              0.0                   \r\n                                       -2.674735E-02         -1.817905E-01         -3.321553E-01              0.0                   \r\n                                        2.388665E-02          8.622742E-02          1.721833E-01              0.0                   \r\n                                       -3.547227E-02          1.583141E-01          1.699784E-01              0.0                   \r\n0    364        8                       1.397691E-02         -2.537577E-02         -3.833797E-02              0.0                   \r\n                                       -9.641171E-03         -5.234144E-02         -1.000054E-01              0.0                   \r\n                                        7.777952E-03          2.092587E-02          4.691112E-02              0.0                   \r\n                                       -1.157159E-02          4.736941E-02          5.461746E-02              0.0                   \r\n0    364        9                       5.121117E-03         -5.193491E-03         -1.065411E-02              0.0                   \r\n                                       -3.256384E-03         -1.435784E-02         -2.771659E-02              0.0                   \r\n                                        2.330516E-03          4.647955E-03          1.138519E-02              0.0                   \r\n                                       -3.484350E-03          1.357637E-02          1.635955E-02              0.0                   \r\n0    364       10                       1.733939E-03         -7.712294E-04         -2.794089E-03              0.0                   \r\n                                       -1.035219E-03         -3.711357E-03         -7.119984E-03              0.0                   \r\n                                        6.399290E-04          8.785159E-04          2.433490E-03              0.0                   \r\n                                       -9.634634E-04          3.721354E-03          4.669953E-03              0.0                   \r\n0    364                0.0000         -2.721553E+00              0.0               7.832675E+00              0.0                   \r\n                                        1.725248E-01              0.0               1.814114E+01              0.0                   \r\n                                       -4.303732E-01              0.0              -9.913960E+00              0.0                   \r\n                                        4.473315E-01              0.0              -1.876566E+01              0.0                   \r\n0    364                7.1000         -2.618978E+00         -3.104335E+00          7.946818E+00              0.0                   \r\n                                        2.492040E-01         -3.304861E+00          1.823549E+01              0.0                   \r\n                                       -4.900123E-01          2.695325E+00         -9.972651E+00              0.0                   \r\n                                        5.399365E-01          6.743168E-01         -1.826402E+01              0.0                   \r\n0    371        0                       1.208496E-02              0.0              -2.590065E-01              0.0                   \r\n                                       -2.442169E-02              0.0              -2.781677E-02              0.0                   \r\n                                        1.798439E-02              0.0               6.578827E-02              0.0                   \r\n                                       -2.960205E-03              0.0               2.209396E-01              0.0                   \r\n0    371        1                      -1.533203E-01          4.669853E+00          9.208374E-01              0.0                   \r\n                                        1.349182E-01          8.087128E+00          2.086029E+00              0.0                   \r\n                                       -1.391182E-01         -5.383475E+00         -9.522247E-01              0.0                   \r\n                                        1.597824E-01         -7.370417E+00         -1.183655E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    371        2                      -5.640564E-01          1.152407E+01          2.167603E+00              0.0                   \r\n                                        4.618530E-01          1.863454E+01          6.970947E+00              0.0                   \r\n                                       -1.911316E-01         -1.176639E+01         -1.978271E+00              0.0                   \r\n                                        6.838074E-01         -1.758287E+01         -3.094116E+00              0.0                   \r\n0    371        3                      -3.563232E-01          9.075876E+00         -1.326096E+00              0.0                   \r\n                                        2.122192E-01          1.375806E+01          2.329132E+00              0.0                   \r\n                                        6.088638E-01         -6.529869E+00          2.468445E+00              0.0                   \r\n                                        6.336670E-01         -1.278048E+01          8.519897E-01              0.0                   \r\n0    371        4                      -3.144836E-02          2.013137E+00         -8.197136E-01              0.0                   \r\n                                       -5.973816E-03          2.864829E+00         -1.405968E+00              0.0                   \r\n                                        3.983154E-01         -4.382018E-01          2.253059E+00              0.0                   \r\n                                        1.206055E-01         -2.296850E+00          1.013771E+00              0.0                   \r\n0    371        5                       2.258015E-02          1.998636E-01         -9.822035E-02              0.0                   \r\n                                       -2.582455E-02          1.466373E-01         -9.941196E-01              0.0                   \r\n                                        1.205311E-01          2.408708E-01          8.363743E-01              0.0                   \r\n                                       -1.636028E-02         -1.830666E-02          2.767982E-01              0.0                   \r\n0    371        6                       1.648748E-02         -4.056278E-02          9.563088E-03              0.0                   \r\n                                       -1.451397E-02         -1.433469E-01         -3.867438E-01              0.0                   \r\n                                        2.794969E-02          1.057691E-01          2.257392E-01              0.0                   \r\n                                       -2.053833E-02          1.294052E-01          6.522560E-02              0.0                   \r\n0    371        7                       8.022428E-03         -3.461474E-02          3.166378E-03              0.0                   \r\n                                       -6.287098E-03         -8.497612E-02         -1.245053E-01              0.0                   \r\n                                        6.035492E-03          2.908343E-02          5.081767E-02              0.0                   \r\n                                       -9.904832E-03          6.028334E-02          2.043831E-02              0.0                   \r\n0    371        8                       3.394231E-03         -1.559870E-02         -1.612291E-03              0.0                   \r\n                                       -2.512366E-03         -3.433869E-02         -3.687541E-02              0.0                   \r\n                                        1.385521E-03          6.785514E-03          9.491935E-03              0.0                   \r\n                                       -3.808849E-03          2.101069E-02          7.831633E-03              0.0                   \r\n0    371        9                       1.324914E-03         -5.899314E-03         -1.688695E-03              0.0                   \r\n                                       -9.749271E-04         -1.199753E-02         -1.038846E-02              0.0                   \r\n                                        3.705528E-04          1.458595E-03          1.214128E-03              0.0                   \r\n                                       -1.315152E-03          6.542162E-03          2.990231E-03              0.0                   \r\n0    371       10                       4.853220E-04         -2.040112E-03         -9.001368E-04              0.0                   \r\n                                       -3.693784E-04         -3.843099E-03         -2.807521E-03              0.0                   \r\n                                        1.152270E-04          3.003507E-04         -5.159248E-05              0.0                   \r\n                                       -4.224954E-04          1.903824E-03          1.056217E-03              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    371                0.0000         -1.040769E+00              0.0               5.939322E-01              0.0                   \r\n                                        7.281127E-01              0.0               8.396884E+00              0.0                   \r\n                                        8.513014E-01              0.0               2.980382E+00              0.0                   \r\n                                        1.542552E+00              0.0              -1.816730E+00              0.0                   \r\n0    371                7.1000         -1.008221E+00          7.700386E+00          7.267764E-01              0.0                   \r\n                                        7.119720E-01          1.181116E+01          8.533231E+00              0.0                   \r\n                                        7.358548E-01         -5.891271E+00          2.370423E+00              0.0                   \r\n                                        1.477338E+00         -1.081097E+01         -1.975137E+00              0.0                   \r\n0    374        0                      -3.652000E-02              0.0               2.649307E-02              0.0                   \r\n                                        1.835251E-02              0.0               2.668915E-01              0.0                   \r\n                                       -5.667210E-03              0.0              -2.271347E-01              0.0                   \r\n                                        1.488495E-02              0.0              -6.629181E-02              0.0                   \r\n0    374        1                      -2.094088E-01          8.176111E+00          2.212494E+00              0.0                   \r\n                                        1.905975E-01          4.750871E+00          1.601669E+00              0.0                   \r\n                                       -1.748791E-01         -7.474106E+00         -1.794388E+00              0.0                   \r\n                                        1.867981E-01         -5.460037E+00         -1.176910E+00              0.0                   \r\n0    374        2                      -1.042564E+00          9.127172E+00          7.791473E+00              0.0                   \r\n                                        5.839233E-01          4.535934E+00          6.466553E+00              0.0                   \r\n                                       -4.939232E-01         -7.677596E+00         -7.115601E+00              0.0                   \r\n                                        5.902710E-01         -6.683595E+00         -5.307861E+00              0.0                   \r\n0    374        3                      -1.264732E+00         -6.314989E+00          3.407074E+00              0.0                   \r\n                                        1.099854E-01         -4.845439E+00          4.561768E+00              0.0                   \r\n                                        5.633926E-02          6.509242E+00         -4.678162E+00              0.0                   \r\n                                        1.326599E-01          1.962851E+00         -5.192200E+00              0.0                   \r\n0    374        4                      -2.690449E-01         -5.228224E+00         -1.421059E+00              0.0                   \r\n                                       -2.249756E-01         -3.437797E+00         -9.620056E-01              0.0                   \r\n                                        2.668085E-01          4.821939E+00          1.105164E+00              0.0                   \r\n                                       -2.104416E-01          2.287623E+00         -7.660522E-01              0.0                   \r\n0    374        5                       4.263878E-02         -1.801203E+00         -1.198598E+00              0.0                   \r\n                                       -1.537142E-01         -1.181468E+00         -1.244585E+00              0.0                   \r\n                                        1.421987E-01          1.587575E+00          1.292130E+00              0.0                   \r\n                                       -1.419945E-01          8.978369E-01          2.679863E-01              0.0                   \r\n0    374        6                       5.264799E-02         -4.835427E-01         -4.843066E-01              0.0                   \r\n                                       -6.626201E-02         -3.327296E-01         -5.404468E-01              0.0                   \r\n                                        5.191371E-02          4.128897E-01          5.359101E-01              0.0                   \r\n                                       -5.768371E-02          2.828826E-01          1.967049E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    374        7                       2.552409E-02         -1.171238E-01         -1.540850E-01              0.0                   \r\n                                       -2.388817E-02         -8.621498E-02         -1.721153E-01              0.0                   \r\n                                        1.621673E-02          9.744880E-02          1.624076E-01              0.0                   \r\n                                       -1.930672E-02          8.240897E-02          7.794154E-02              0.0                   \r\n0    374        8                       9.654604E-03         -2.643752E-02         -4.364595E-02              0.0                   \r\n                                       -7.776409E-03         -2.093040E-02         -4.690331E-02              0.0                   \r\n                                        4.647042E-03          2.162023E-02          4.169327E-02              0.0                   \r\n                                       -5.820587E-03          2.289250E-02          2.548149E-02              0.0                   \r\n0    374        9                       3.186968E-03         -5.467250E-03         -1.147431E-02              0.0                   \r\n                                       -2.330529E-03         -4.648881E-03         -1.138935E-02              0.0                   \r\n                                        1.243935E-03          4.456158E-03          9.425905E-03              0.0                   \r\n                                       -1.620658E-03          6.077575E-03          7.577933E-03              0.0                   \r\n0    374       10                       9.453627E-04         -9.657946E-04         -2.831527E-03              0.0                   \r\n                                       -6.397127E-04         -8.814829E-04         -2.434622E-03              0.0                   \r\n                                        3.091390E-04          8.111407E-04          1.844754E-03              0.0                   \r\n                                       -4.154567E-04          1.528006E-03          2.116754E-03              0.0                   \r\n0    374                0.0000         -2.687673E+00              0.0               1.012153E+01              0.0                   \r\n                                        4.232721E-01              0.0               9.917000E+00              0.0                   \r\n                                       -1.347925E-01              0.0              -1.066671E+01              0.0                   \r\n                                        4.873308E-01              0.0              -1.193151E+01              0.0                   \r\n0    374                7.1000         -2.573065E+00         -3.021589E+00          1.023791E+01              0.0                   \r\n                                        4.832846E-01         -2.694872E+00          9.975316E+00              0.0                   \r\n                                       -2.031874E-01          3.149305E+00         -1.071335E+01              0.0                   \r\n                                        5.363861E-01          2.884149E-01         -1.145989E+01              0.0                   \r\n0    381        0                       2.654076E-03              0.0              -2.209358E-01              0.0                   \r\n                                       -2.943802E-02              0.0               3.388977E-02              0.0                   \r\n                                        3.736603E-02              0.0               7.730103E-02              0.0                   \r\n                                       -1.192474E-02              0.0               1.097412E-01              0.0                   \r\n0    381        1                      -1.592331E-01          7.370517E+00          1.182991E+00              0.0                   \r\n                                        1.277008E-01          5.402499E+00          1.139587E+00              0.0                   \r\n                                       -1.182621E-01         -8.091220E+00         -9.761047E-01              0.0                   \r\n                                        1.529312E-01         -4.680169E+00         -4.735413E-01              0.0                   \r\n0    381        2                      -6.814194E-01          1.758359E+01          3.094513E+00              0.0                   \r\n                                        5.190430E-01          1.258449E+01          4.210144E+00              0.0                   \r\n                                       -1.052608E-01         -1.800930E+01         -2.146606E+00              0.0                   \r\n                                        5.609131E-01         -1.156015E+01         -1.081665E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    381        3                      -6.324158E-01          1.278628E+01         -8.528900E-01              0.0                   \r\n                                        4.337158E-01          9.495281E+00          2.338318E+00              0.0                   \r\n                                        6.515522E-01         -1.085664E+01          2.110535E+00              0.0                   \r\n                                        3.298035E-01         -8.866527E+00          6.829224E-01              0.0                   \r\n0    381        4                      -1.209278E-01          2.296862E+00         -1.013390E+00              0.0                   \r\n                                        1.343269E-01          1.934210E+00         -4.651947E-01              0.0                   \r\n                                        3.143061E-01         -1.060907E+00          1.991226E+00              0.0                   \r\n                                        2.529144E-03         -1.646888E+00          4.136505E-01              0.0                   \r\n0    381        5                       1.639390E-02          1.828653E-02         -2.771211E-01              0.0                   \r\n                                        2.369118E-02          4.614676E-02         -5.385599E-01              0.0                   \r\n                                        5.974476E-02          3.309605E-01          7.144642E-01              0.0                   \r\n                                       -3.593540E-02         -1.388328E-02          5.155182E-02              0.0                   \r\n0    381        6                       2.055582E-02         -1.294074E-01         -6.525600E-02              0.0                   \r\n                                       -1.968265E-03         -1.213128E-01         -2.274320E-01              0.0                   \r\n                                        5.199824E-03          1.814063E-01          1.859598E-01              0.0                   \r\n                                       -1.947844E-02          9.024017E-02         -3.933907E-04              0.0                   \r\n0    381        7                       9.906702E-03         -6.028853E-02         -2.045846E-02              0.0                   \r\n                                       -3.658324E-03         -6.337746E-02         -7.323122E-02              0.0                   \r\n                                       -4.613642E-04          5.644527E-02          4.093421E-02              0.0                   \r\n                                       -7.575393E-03          4.008985E-02          1.096249E-03              0.0                   \r\n0    381        8                       3.809953E-03         -2.101155E-02         -7.846545E-03              0.0                   \r\n                                       -1.950055E-03         -2.367459E-02         -2.085147E-02              0.0                   \r\n                                       -2.392535E-04          1.467828E-02          7.788807E-03              0.0                   \r\n                                       -2.563521E-03          1.310916E-02          1.796275E-03              0.0                   \r\n0    381        9                       1.315068E-03         -6.539452E-03         -2.991874E-03              0.0                   \r\n                                       -7.961169E-04         -7.701541E-03         -5.503420E-03              0.0                   \r\n                                       -1.053471E-05          3.492721E-03          1.166023E-03              0.0                   \r\n                                       -7.977560E-04          3.793950E-03          1.045838E-03              0.0                   \r\n0    381       10                       4.224700E-04         -1.903207E-03         -1.057250E-03              0.0                   \r\n                                       -2.855670E-04         -2.300258E-03         -1.366105E-03              0.0                   \r\n                                        2.704110E-05          7.828526E-04          7.576682E-05              0.0                   \r\n                                       -2.328414E-04          1.023195E-03          4.325081E-04              0.0                   \r\n0    381                0.0000         -1.538938E+00              0.0               1.815557E+00              0.0                   \r\n                                        1.200381E+00              0.0               6.389800E+00              0.0                   \r\n                                        8.439620E-01              0.0               2.006740E+00              0.0                   \r\n                                        9.676688E-01              0.0              -2.933629E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    381                7.1000         -1.473860E+00          1.081326E+01          1.974056E+00              0.0                   \r\n                                        1.136678E+00          7.991402E+00          6.348114E+00              0.0                   \r\n                                        7.535321E-01         -9.491993E+00          1.495428E+00              0.0                   \r\n                                        9.427844E-01         -7.319405E+00         -3.646710E-01              0.0                   \r\n0    384        0                      -3.560638E-02              0.0              -3.665543E-02              0.0                   \r\n                                        5.386353E-03              0.0               2.272491E-01              0.0                   \r\n                                       -9.878159E-03              0.0              -1.132507E-01              0.0                   \r\n                                        3.250122E-02              0.0              -7.730103E-02              0.0                   \r\n0    384        1                      -2.099724E-01          5.450048E+00          1.067352E+00              0.0                   \r\n                                        1.761627E-01          7.474184E+00          1.795319E+00              0.0                   \r\n                                       -1.852112E-01         -4.743378E+00         -7.876282E-01              0.0                   \r\n                                        2.133942E-01         -8.185503E+00         -1.234070E+00              0.0                   \r\n0    384        2                      -9.637756E-01          5.954376E+00          3.340302E+00              0.0                   \r\n                                        4.972534E-01          7.678469E+00          7.117065E+00              0.0                   \r\n                                       -5.819702E-01         -4.436195E+00         -3.230713E+00              0.0                   \r\n                                        7.861328E-01         -9.693708E+00         -5.417725E+00              0.0                   \r\n0    384        3                      -9.811859E-01         -4.772121E+00          4.626770E-01              0.0                   \r\n                                       -5.316162E-02         -6.509060E+00          4.677063E+00              0.0                   \r\n                                       -8.322144E-02          5.100090E+00         -2.237549E+00              0.0                   \r\n                                        4.051514E-01          4.235807E+00         -4.892578E+00              0.0                   \r\n0    384        4                      -9.072495E-02         -3.728384E+00         -1.082741E+00              0.0                   \r\n                                       -2.664337E-01         -4.822330E+00         -1.105545E+00              0.0                   \r\n                                        2.449112E-01          3.390313E+00          5.342712E-01              0.0                   \r\n                                       -2.152557E-01          4.040056E+00         -4.056091E-01              0.0                   \r\n0    384        5                       9.925795E-02         -1.192373E+00         -6.016922E-01              0.0                   \r\n                                       -1.420574E-01         -1.587308E+00         -1.292511E+00              0.0                   \r\n                                        1.473646E-01          1.021741E+00          6.256294E-01              0.0                   \r\n                                       -1.860809E-01          1.408062E+00          4.321289E-01              0.0                   \r\n0    384        6                       6.037998E-02         -2.809491E-01         -2.082046E-01              0.0                   \r\n                                       -5.188370E-02         -4.127755E-01         -5.358720E-01              0.0                   \r\n                                        5.311430E-02          2.331380E-01          2.520466E-01              0.0                   \r\n                                       -7.447100E-02          3.797107E-01          2.412891E-01              0.0                   \r\n0    384        7                       2.323043E-02         -5.546054E-02         -5.937582E-02              0.0                   \r\n                                       -1.621538E-02         -9.744675E-02         -1.624248E-01              0.0                   \r\n                                        1.534031E-02          4.574096E-02          7.246089E-02              0.0                   \r\n                                       -2.254593E-02          9.305554E-02          8.442008E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    384        8                       7.510090E-03         -8.956078E-03         -1.519314E-02              0.0                   \r\n                                       -4.647426E-03         -2.161775E-02         -4.169584E-02              0.0                   \r\n                                        3.876437E-03          7.730813E-03          1.708186E-02              0.0                   \r\n                                       -5.844072E-03          2.177268E-02          2.463317E-02              0.0                   \r\n0    384        9                       2.195338E-03         -8.485481E-04         -3.569514E-03              0.0                   \r\n                                       -1.243816E-03         -4.457255E-03         -9.425960E-03              0.0                   \r\n                                        8.719563E-04          9.806826E-04          3.364623E-03              0.0                   \r\n                                       -1.335776E-03          4.887536E-03          6.481726E-03              0.0                   \r\n0    384       10                       5.916928E-04          1.560559E-04         -7.680178E-04              0.0                   \r\n                                       -3.092870E-04         -8.107204E-04         -1.844604E-03              0.0                   \r\n                                        1.689472E-04          1.156858E-05          5.070060E-04              0.0                   \r\n                                       -2.618338E-04          1.037929E-03          1.576879E-03              0.0                   \r\n0    384                0.0000         -2.088099E+00              0.0               2.862131E+00              0.0                   \r\n                                        1.428501E-01              0.0               1.066738E+01              0.0                   \r\n                                       -3.946332E-01              0.0              -4.863779E+00              0.0                   \r\n                                        9.313843E-01              0.0              -1.123675E+01              0.0                   \r\n0    384                7.1000         -2.026716E+00         -2.305491E+00          3.047744E+00              0.0                   \r\n                                        2.108368E-01         -3.148966E+00          1.071415E+01              0.0                   \r\n                                       -4.484061E-01          2.583987E+00         -4.888843E+00              0.0                   \r\n                                        9.697338E-01          1.239774E+00         -1.086839E+01              0.0                   \r\n0    391        0                       1.192856E-02              0.0              -1.099167E-01              0.0                   \r\n                                       -2.556610E-02              0.0               1.243591E-03              0.0                   \r\n                                        1.790333E-02              0.0               4.380798E-02              0.0                   \r\n                                       -5.195618E-03              0.0               6.482697E-02              0.0                   \r\n0    391        1                      -1.524811E-01          4.679985E+00          4.736252E-01              0.0                   \r\n                                        1.295166E-01          8.097191E+00          1.061508E+00              0.0                   \r\n                                       -1.366043E-01         -5.397065E+00         -2.614746E-01              0.0                   \r\n                                        1.576920E-01         -7.381347E+00         -4.010925E-01              0.0                   \r\n0    391        2                      -5.606689E-01          1.156207E+01          1.081696E+00              0.0                   \r\n                                        3.356323E-01          1.844928E+01          3.929932E+00              0.0                   \r\n                                       -2.944336E-01         -1.205450E+01          9.582520E-02              0.0                   \r\n                                        6.818542E-01         -1.761677E+01         -1.030396E+00              0.0                   \r\n0    391        3                      -3.296204E-01          8.859267E+00         -6.839142E-01              0.0                   \r\n                                       -9.252930E-02          1.253384E+01          2.185638E+00              0.0                   \r\n                                        2.760544E-01         -7.349174E+00          2.429779E+00              0.0                   \r\n                                        6.172485E-01         -1.255078E+01          2.954712E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    391        4                      -3.028870E-03          1.644928E+00         -4.144135E-01              0.0                   \r\n                                       -1.136475E-01          1.898247E+00         -3.727798E-01              0.0                   \r\n                                        2.255230E-01         -7.111812E-01          1.285728E+00              0.0                   \r\n                                        9.397507E-02         -1.944044E+00          3.429642E-01              0.0                   \r\n0    391        5                       3.593493E-02          1.380229E-02         -5.136919E-02              0.0                   \r\n                                       -3.745937E-02         -1.781403E-01         -4.610424E-01              0.0                   \r\n                                        7.104945E-02          2.358511E-01          3.251734E-01              0.0                   \r\n                                       -3.046894E-02          1.430559E-01          9.313393E-02              0.0                   \r\n0    391        6                       1.945984E-02         -9.035063E-02          6.673336E-04              0.0                   \r\n                                       -1.168060E-02         -1.921820E-01         -1.936960E-01              0.0                   \r\n                                        1.775813E-02          1.254979E-01          5.364680E-02              0.0                   \r\n                                       -2.366400E-02          1.647424E-01          2.236700E-02              0.0                   \r\n0    391        7                       7.573351E-03         -4.009242E-02         -1.049995E-03              0.0                   \r\n                                       -4.150450E-03         -7.488380E-02         -6.089967E-02              0.0                   \r\n                                        4.398689E-03          3.759110E-02          4.412591E-03              0.0                   \r\n                                       -9.430349E-03          6.036605E-02          7.109761E-03              0.0                   \r\n0    391        8                       2.563357E-03         -1.310912E-02         -1.784187E-03              0.0                   \r\n                                       -1.524463E-03         -2.314708E-02         -1.662469E-02              0.0                   \r\n                                        1.150005E-03          9.223741E-03         -1.066543E-03              0.0                   \r\n                                       -3.008232E-03          1.721900E-02          2.632648E-03              0.0                   \r\n0    391        9                       7.980550E-04         -3.792619E-03         -1.043273E-03              0.0                   \r\n                                       -5.360525E-04         -6.413195E-03         -4.132891E-03              0.0                   \r\n                                        3.118101E-04          2.024173E-03         -7.298999E-04              0.0                   \r\n                                       -8.490868E-04          4.357381E-03          9.362623E-04              0.0                   \r\n0    391       10                       2.329372E-04         -1.022729E-03         -4.313440E-04              0.0                   \r\n                                       -1.766547E-04         -1.647585E-03         -9.483849E-04              0.0                   \r\n                                        8.440478E-05          4.086230E-04         -2.704831E-04              0.0                   \r\n                                       -2.192424E-04          1.016550E-03          3.013853E-04              0.0                   \r\n0    391                0.0000         -9.673082E-01              0.0               2.920658E-01              0.0                   \r\n                                        1.778785E-01              0.0               6.068198E+00              0.0                   \r\n                                        1.831953E-01              0.0               3.974832E+00              0.0                   \r\n                                        1.477934E+00              0.0              -6.017448E-01              0.0                   \r\n0    391                7.1000         -9.423816E-01          7.316160E+00          3.634017E-01              0.0                   \r\n                                        1.992491E-01          1.066503E+01          6.004351E+00              0.0                   \r\n                                        1.270412E-01         -6.371498E+00          3.578108E+00              0.0                   \r\n                                        1.419642E+00         -1.045768E+01         -6.562901E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    394        0                      -2.613711E-02              0.0              -3.303528E-03              0.0                   \r\n                                        1.018524E-02              0.0               1.132889E-01              0.0                   \r\n                                       -2.324104E-03              0.0              -6.663513E-02              0.0                   \r\n                                        1.290512E-02              0.0              -4.335785E-02              0.0                   \r\n0    394        1                      -2.049599E-01          8.174026E+00          1.066856E+00              0.0                   \r\n                                        1.843796E-01          4.743342E+00          7.871399E-01              0.0                   \r\n                                       -1.722364E-01         -7.468842E+00         -5.917206E-01              0.0                   \r\n                                        1.876068E-01         -5.453722E+00         -4.211426E-01              0.0                   \r\n0    394        2                      -9.565697E-01          9.225691E+00          3.378052E+00              0.0                   \r\n                                        5.788574E-01          4.437444E+00          3.230469E+00              0.0                   \r\n                                       -4.902191E-01         -7.584680E+00         -2.370117E+00              0.0                   \r\n                                        7.106323E-01         -6.381438E+00         -2.435669E+00              0.0                   \r\n0    394        3                      -9.563751E-01         -5.905855E+00          5.716553E-01              0.0                   \r\n                                        8.090210E-02         -5.098388E+00          2.238770E+00              0.0                   \r\n                                        7.400513E-02          6.769036E+00         -1.539734E+00              0.0                   \r\n                                        3.946228E-01          3.087292E+00         -3.293335E+00              0.0                   \r\n0    394        4                      -7.200289E-02         -4.838494E+00         -1.113686E+00              0.0                   \r\n                                       -2.461624E-01         -3.391341E+00         -5.339508E-01              0.0                   \r\n                                        2.759342E-01          4.799638E+00          3.933105E-01              0.0                   \r\n                                       -1.355438E-01          2.784802E+00         -7.917786E-01              0.0                   \r\n0    394        5                       1.015713E-01         -1.536675E+00         -6.341457E-01              0.0                   \r\n                                       -1.473637E-01         -1.021819E+00         -6.250343E-01              0.0                   \r\n                                        1.357249E-01          1.446007E+00          4.322186E-01              0.0                   \r\n                                       -1.317186E-01          9.201665E-01          3.275681E-02              0.0                   \r\n0    394        6                       5.600324E-02         -3.571342E-01         -2.170668E-01              0.0                   \r\n                                       -5.311465E-02         -2.332563E-01         -2.521610E-01              0.0                   \r\n                                        4.358147E-02          3.225837E-01          1.707375E-01              0.0                   \r\n                                       -5.263710E-02          2.277944E-01          7.850266E-02              0.0                   \r\n0    394        7                       1.939660E-02         -7.024048E-02         -6.023188E-02              0.0                   \r\n                                       -1.534176E-02         -4.574151E-02         -7.244548E-02              0.0                   \r\n                                        1.139338E-02          6.087339E-02          4.822457E-02              0.0                   \r\n                                       -1.549819E-02          4.981937E-02          3.373760E-02              0.0                   \r\n0    394        8                       5.506615E-03         -1.188456E-02         -1.482404E-02              0.0                   \r\n                                       -3.876284E-03         -7.735463E-03         -1.708206E-02              0.0                   \r\n                                        2.602117E-03          9.849165E-03          1.118287E-02              0.0                   \r\n                                       -3.840871E-03          1.012824E-02          1.066791E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    394        9                       1.370310E-03         -1.563382E-03         -3.321467E-03              0.0                   \r\n                                       -8.720225E-04         -9.808457E-04         -3.367809E-03              0.0                   \r\n                                        5.242518E-04          1.223137E-03          2.172116E-03              0.0                   \r\n                                       -8.297837E-04          1.922645E-03          2.907127E-03              0.0                   \r\n0    394       10                       3.001636E-04         -6.872943E-05         -6.737777E-04              0.0                   \r\n                                       -1.688842E-04         -1.292378E-05         -5.077773E-04              0.0                   \r\n                                        8.894871E-05          4.343538E-05          3.264714E-04              0.0                   \r\n                                       -1.529516E-04          3.287760E-04          7.159052E-04              0.0                   \r\n0    394                0.0000         -2.031897E+00              0.0               2.969311E+00              0.0                   \r\n                                        3.874247E-01              0.0               4.865118E+00              0.0                   \r\n                                       -1.209253E-01              0.0              -3.510034E+00              0.0                   \r\n                                        9.655458E-01              0.0              -6.825995E+00              0.0                   \r\n0    394                7.1000         -1.971075E+00         -2.372233E+00          3.158358E+00              0.0                   \r\n                                        4.416084E-01         -2.583688E+00          4.889986E+00              0.0                   \r\n                                       -1.851759E-01          3.071804E+00         -3.524168E+00              0.0                   \r\n                                        9.779059E-01          9.435198E-01         -6.473750E+00              0.0                   \r\n0    401        0                       4.887581E-03              0.0              -6.482697E-02              0.0                   \r\n                                       -2.250671E-02              0.0               3.286743E-02              0.0                   \r\n                                        2.706623E-02              0.0               3.201294E-02              0.0                   \r\n                                       -1.081085E-02              0.0              -4.577637E-05              0.0                   \r\n0    401        1                      -1.571255E-01          7.381510E+00          4.005203E-01              0.0                   \r\n                                        1.334839E-01          5.402797E+00          4.353180E-01              0.0                   \r\n                                       -1.278579E-01         -8.099858E+00          3.771973E-02              0.0                   \r\n                                        1.535645E-01         -4.683915E+00          1.525879E-04              0.0                   \r\n0    401        2                      -6.795044E-01          1.761687E+01          1.031311E+00              0.0                   \r\n                                        4.081116E-01          1.232788E+01          2.155212E+00              0.0                   \r\n                                       -2.235832E-01         -1.824280E+01          8.940430E-01              0.0                   \r\n                                        5.605774E-01         -1.157366E+01         -7.324219E-04              0.0                   \r\n0    401        3                      -6.159439E-01          1.255605E+01         -2.955017E-01              0.0                   \r\n                                        7.415771E-02          8.334469E+00          2.363190E+00              0.0                   \r\n                                        3.756433E-01         -1.156750E+01          2.144104E+00              0.0                   \r\n                                        3.220215E-01         -8.794458E+00         -5.493164E-04              0.0                   \r\n0    401        4                      -9.400940E-02          1.944150E+00         -3.426514E-01              0.0                   \r\n                                       -5.060196E-02          1.197528E+00          3.670425E-01              0.0                   \r\n                                        2.126307E-01         -1.309061E+00          7.786865E-01              0.0                   \r\n                                       -6.732941E-03         -1.525351E+00          4.272461E-04              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    401        5                       3.049850E-02         -1.430401E-01         -9.319830E-02              0.0                   \r\n                                       -2.618217E-02         -1.521919E-01         -1.272097E-01              0.0                   \r\n                                        4.641952E-02          3.221667E-01          1.041718E-01              0.0                   \r\n                                       -3.991890E-02          4.439508E-02          2.670288E-05              0.0                   \r\n0    401        6                       2.367815E-02         -1.647298E-01         -2.235198E-02              0.0                   \r\n                                       -1.076269E-02         -1.357005E-01         -8.883619E-02              0.0                   \r\n                                        7.793751E-03          1.969727E-01         -1.156569E-02              0.0                   \r\n                                       -2.011538E-02          1.039927E-01          7.486343E-05              0.0                   \r\n0    401        7                       9.432457E-03         -6.036737E-02         -7.116288E-03              0.0                   \r\n                                       -4.180849E-03         -5.001628E-02         -3.197792E-02              0.0                   \r\n                                        1.766920E-03          6.303728E-02         -1.121414E-02              0.0                   \r\n                                       -7.259905E-03          4.058965E-02          1.597404E-05              0.0                   \r\n0    401        8                       3.009044E-03         -1.722022E-02         -2.638284E-03              0.0                   \r\n                                       -1.482971E-03         -1.469132E-02         -9.118713E-03              0.0                   \r\n                                        6.221160E-04          1.637534E-02         -4.201263E-03              0.0                   \r\n                                       -2.238162E-03          1.188478E-02          1.609325E-06              0.0                   \r\n0    401        9                       8.490600E-04         -4.355942E-03         -9.376295E-04              0.0                   \r\n                                       -4.768642E-04         -3.852114E-03         -2.266880E-03              0.0                   \r\n                                        2.349490E-04          3.792721E-03         -1.221467E-03              0.0                   \r\n                                       -6.211186E-04          3.041772E-03          6.742775E-07              0.0                   \r\n0    401       10                       2.192465E-04         -1.016169E-03         -3.017983E-04              0.0                   \r\n                                       -1.402490E-04         -9.323191E-04         -5.049403E-04              0.0                   \r\n                                        8.012313E-05          8.043057E-04         -3.072862E-04              0.0                   \r\n                                       -1.579272E-04          7.112458E-04          8.847564E-08              0.0                   \r\n0    401                0.0000         -1.474009E+00              0.0               6.023070E-01              0.0                   \r\n                                        4.994187E-01              0.0               5.093716E+00              0.0                   \r\n                                        3.208165E-01              0.0               3.962228E+00              0.0                   \r\n                                        9.483081E-01              0.0              -6.277682E-04              0.0                   \r\n0    401                7.1000         -1.415888E+00          1.045971E+01          6.568071E-01              0.0                   \r\n                                        4.971663E-01          7.053983E+00          4.883047E+00              0.0                   \r\n                                        2.656016E-01         -9.914423E+00          3.684886E+00              0.0                   \r\n                                        9.255759E-01         -7.197658E+00         -6.519840E-04              0.0                   \r\n0    402        0                      -1.010776E-02              0.0              -7.950592E-02              0.0                   \r\n                                       -1.611328E-02              0.0               6.922913E-02              0.0                   \r\n                                        2.122498E-02              0.0               4.222107E-02              0.0                   \r\n                                        4.028320E-03              0.0              -3.196716E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    402        1                      -1.860876E-01          8.115677E+00          3.957520E-01              0.0                   \r\n                                        1.461792E-01          4.709984E+00          4.275513E-01              0.0                   \r\n                                       -1.350613E-01         -7.414086E+00          7.698059E-02              0.0                   \r\n                                        1.732864E-01         -5.413323E+00         -3.836060E-02              0.0                   \r\n0    402        2                      -9.931221E-01          1.612075E+01          3.217163E-01              0.0                   \r\n                                        3.684998E-01          8.525417E+00          2.617981E+00              0.0                   \r\n                                       -1.712990E-01         -1.378973E+01          1.265869E+00              0.0                   \r\n                                        8.065796E-01         -1.082907E+01         -8.970947E-01              0.0                   \r\n0    402        3                      -1.214941E+00          7.518943E+00         -2.239731E+00              0.0                   \r\n                                       -1.635742E-01          3.021918E+00          3.642548E+00              0.0                   \r\n                                        6.039009E-01         -5.102848E+00          2.849915E+00              0.0                   \r\n                                        8.110046E-01         -5.275483E+00         -2.146667E+00              0.0                   \r\n0    402        4                      -2.566934E-01         -7.701087E-02         -1.158630E+00              0.0                   \r\n                                       -2.038078E-01         -4.385870E-01          7.799759E-01              0.0                   \r\n                                        3.573337E-01          6.829800E-01          1.005020E+00              0.0                   \r\n                                        1.167793E-01         -6.311721E-02         -7.793274E-01              0.0                   \r\n0    402        5                       3.264737E-02         -5.780364E-01         -2.541051E-01              0.0                   \r\n                                       -7.717800E-02         -4.182655E-01         -1.040640E-01              0.0                   \r\n                                        9.515572E-02          6.484128E-01          1.253414E-01              0.0                   \r\n                                       -4.882717E-02          3.700963E-01         -1.043682E-01              0.0                   \r\n0    402        6                       3.663325E-02         -2.255589E-01         -3.418756E-02              0.0                   \r\n                                       -2.212715E-02         -1.514609E-01         -1.086290E-01              0.0                   \r\n                                        1.893847E-02          2.205733E-01         -1.882219E-02              0.0                   \r\n                                       -3.338981E-02          1.539853E-01          1.148319E-02              0.0                   \r\n0    402        7                       1.466646E-02         -6.280518E-02         -2.419323E-03              0.0                   \r\n                                       -5.789995E-03         -4.279527E-02         -4.119530E-02              0.0                   \r\n                                        3.446721E-03          5.716015E-02         -1.563525E-02              0.0                   \r\n                                       -1.227090E-02          4.469583E-02          1.118606E-02              0.0                   \r\n0    402        8                       4.460365E-03         -1.513431E-02          1.552515E-04              0.0                   \r\n                                       -1.450241E-03         -1.077819E-02         -1.177458E-02              0.0                   \r\n                                        6.512008E-04          1.295481E-02         -5.716965E-03              0.0                   \r\n                                       -3.601644E-03          1.115117E-02          4.199743E-03              0.0                   \r\n0    402        9                       1.169538E-03         -3.341871E-03          5.113659E-05              0.0                   \r\n                                       -3.478415E-04         -2.512328E-03         -2.867604E-03              0.0                   \r\n                                        1.377038E-04          2.671434E-03         -1.639912E-03              0.0                   \r\n                                       -9.275349E-04          2.535849E-03          1.220545E-03              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    402       10                       2.741923E-04         -6.863452E-04         -1.315586E-05              0.0                   \r\n                                       -7.884356E-05         -5.459425E-04         -6.135760E-04              0.0                   \r\n                                        3.245364E-05          5.039013E-04         -4.089514E-04              0.0                   \r\n                                       -2.158828E-04          5.320270E-04          3.072070E-04              0.0                   \r\n0    402                0.0000         -2.571101E+00              0.0              -3.050918E+00              0.0                   \r\n                                        2.421155E-02              0.0               7.268140E+00              0.0                   \r\n                                        7.944615E-01              0.0               5.323124E+00              0.0                   \r\n                                        1.812445E+00              0.0              -3.969389E+00              0.0                   \r\n0    402                7.1000         -2.449219E+00          7.099730E+00         -2.714325E+00              0.0                   \r\n                                        7.066818E-02          3.172784E+00          6.912091E+00              0.0                   \r\n                                        6.921769E-01         -5.244741E+00          4.959197E+00              0.0                   \r\n                                        1.741535E+00         -4.906547E+00         -3.691627E+00              0.0                   \r\n0    403        0                      -1.331329E-02              0.0              -7.012939E-02              0.0                   \r\n                                       -1.396179E-02              0.0               7.872772E-02              0.0                   \r\n                                        8.280754E-03              0.0               3.360748E-02              0.0                   \r\n                                        1.612091E-02              0.0              -4.219818E-02              0.0                   \r\n0    403        1                      -1.893616E-01          4.713359E+00          1.998672E-01              0.0                   \r\n                                        1.465454E-01          8.158311E+00          6.486816E-01              0.0                   \r\n                                       -1.502838E-01         -5.438668E+00          7.975769E-02              0.0                   \r\n                                        1.951599E-01         -7.434985E+00         -7.727051E-02              0.0                   \r\n0    403        2                      -8.739624E-01          7.551087E+00         -4.747620E-01              0.0                   \r\n                                        2.265015E-01          1.160402E+01          3.255615E+00              0.0                   \r\n                                       -3.028870E-01         -7.664419E+00          1.023560E+00              0.0                   \r\n                                        9.488525E-01         -1.152543E+01         -1.266602E+00              0.0                   \r\n0    403        3                      -8.561096E-01          8.118973E-01         -2.870544E+00              0.0                   \r\n                                       -5.688477E-01         -9.619350E-01          3.546936E+00              0.0                   \r\n                                        3.998489E-01          9.288158E-01          2.158081E+00              0.0                   \r\n                                        9.914551E-01         -8.672736E-01         -2.849060E+00              0.0                   \r\n0    403        4                      -8.194733E-02         -1.312516E+00         -1.239811E+00              0.0                   \r\n                                       -3.940430E-01         -2.966685E+00          3.948669E-01              0.0                   \r\n                                        3.505230E-01          2.119945E+00          7.289200E-01              0.0                   \r\n                                        1.055756E-01          2.118294E+00         -1.004440E+00              0.0                   \r\n0    403        5                       7.712460E-02         -5.785263E-01         -2.214346E-01              0.0                   \r\n                                       -1.233044E-01         -1.139839E+00         -2.936802E-01              0.0                   \r\n                                        1.258650E-01          7.805457E-01          7.919502E-02              0.0                   \r\n                                       -8.498383E-02          9.223209E-01         -1.254311E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    403        6                       4.395509E-02         -1.562047E-01         -1.084936E-02              0.0                   \r\n                                       -2.899289E-02         -3.022566E-01         -1.675336E-01              0.0                   \r\n                                        3.308606E-02          1.953506E-01         -1.900387E-02              0.0                   \r\n                                       -4.859924E-02          2.565675E-01          1.883936E-02              0.0                   \r\n0    403        7                       1.517177E-02         -3.409987E-02          6.887108E-03              0.0                   \r\n                                       -5.981296E-03         -6.835477E-02         -5.563366E-02              0.0                   \r\n                                        7.378526E-03          4.057639E-02         -1.293099E-02              0.0                   \r\n                                       -1.632190E-02          5.937805E-02          1.563603E-02              0.0                   \r\n0    403        8                       4.264496E-03         -6.462365E-03          3.174093E-03              0.0                   \r\n                                       -1.138069E-03         -1.405566E-02         -1.472470E-02              0.0                   \r\n                                        1.442588E-03          7.347668E-03         -4.533857E-03              0.0                   \r\n                                       -4.381929E-03          1.234951E-02          5.716667E-03              0.0                   \r\n0    403        9                       1.055767E-03         -1.055398E-03          9.209635E-04              0.0                   \r\n                                       -1.989324E-04         -2.653809E-03         -3.350087E-03              0.0                   \r\n                                        2.372866E-04          1.129933E-03         -1.270474E-03              0.0                   \r\n                                       -1.014959E-03          2.344328E-03          1.639649E-03              0.0                   \r\n0    403       10                       2.353791E-04         -1.356140E-04          2.159688E-04              0.0                   \r\n                                       -3.056659E-05         -4.457726E-04         -6.594121E-04              0.0                   \r\n                                        2.655666E-05          1.252635E-04         -3.111711E-04              0.0                   \r\n                                       -2.050513E-04          3.974797E-04          4.090830E-04              0.0                   \r\n0    403                0.0000         -1.872887E+00              0.0              -4.676466E+00              0.0                   \r\n                                       -7.634518E-01              0.0               7.389246E+00              0.0                   \r\n                                        4.735179E-01              0.0               4.065071E+00              0.0                   \r\n                                        2.101657E+00              0.0              -5.322761E+00              0.0                   \r\n0    403                7.1000         -1.810364E+00          1.631400E+00         -4.278701E+00              0.0                   \r\n                                       -6.518839E-01          1.161284E+00          7.122425E+00              0.0                   \r\n                                        3.788882E-01         -5.829542E-01          3.795876E+00              0.0                   \r\n                                        2.027814E+00         -2.286415E+00         -4.958926E+00              0.0                   \r\n0    404        0                      -1.952553E-02              0.0              -3.304291E-02              0.0                   \r\n                                        2.021790E-03              0.0               6.667328E-02              0.0                   \r\n                                       -6.433487E-03              0.0               3.051758E-05              0.0                   \r\n                                        2.231598E-02              0.0              -3.366089E-02              0.0                   \r\n0    404        1                      -1.960526E-01          5.450822E+00          3.276672E-01              0.0                   \r\n                                        1.733551E-01          7.468854E+00          5.924377E-01              0.0                   \r\n                                       -1.824875E-01         -4.741963E+00          3.051758E-05              0.0                   \r\n                                        2.038879E-01         -8.178005E+00         -7.971191E-02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    404        2                      -8.378296E-01          6.138462E+00          4.465027E-01              0.0                   \r\n                                        4.931030E-01          7.585469E+00          2.370483E+00              0.0                   \r\n                                       -5.798035E-01         -4.404734E+00          2.441406E-04              0.0                   \r\n                                        8.692627E-01         -9.414934E+00         -1.024658E+00              0.0                   \r\n0    404        3                      -6.796265E-01         -4.024153E+00         -1.432861E+00              0.0                   \r\n                                       -7.159424E-02         -6.769221E+00          1.536865E+00              0.0                   \r\n                                       -7.316589E-02          5.183102E+00          6.103516E-04              0.0                   \r\n                                        6.693726E-01          5.209071E+00         -2.158936E+00              0.0                   \r\n0    404        4                       3.714752E-02         -3.253836E+00         -9.276276E-01              0.0                   \r\n                                       -2.756042E-01         -4.799757E+00         -3.938751E-01              0.0                   \r\n                                        2.520752E-01          3.372308E+00         -9.155273E-05              0.0                   \r\n                                       -8.691406E-02          4.450160E+00         -7.290344E-01              0.0                   \r\n0    404        5                       1.192431E-01         -1.007443E+00         -2.669468E-01              0.0                   \r\n                                       -1.356258E-01         -1.445836E+00         -4.323807E-01              0.0                   \r\n                                        1.448164E-01          9.679222E-01          4.196167E-05              0.0                   \r\n                                       -1.462288E-01          1.413436E+00         -7.901764E-02              0.0                   \r\n0    404        6                       5.416089E-02         -2.224008E-01         -5.486631E-02              0.0                   \r\n                                       -4.356122E-02         -3.225223E-01         -1.707325E-01              0.0                   \r\n                                        4.867589E-02          2.013519E-01         -2.145767E-05              0.0                   \r\n                                       -6.155276E-02          3.275260E-01          1.903629E-02              0.0                   \r\n0    404        7                       1.691312E-02         -3.978648E-02         -9.077653E-03              0.0                   \r\n                                       -1.139075E-02         -6.087190E-02         -4.822743E-02              0.0                   \r\n                                        1.265647E-02          3.366534E-02          1.430511E-06              0.0                   \r\n                                       -1.789427E-02          6.448261E-02          1.293552E-02              0.0                   \r\n0    404        8                       4.388728E-03         -5.556592E-03         -1.140565E-03              0.0                   \r\n                                       -2.602249E-03         -9.847093E-03         -1.118112E-02              0.0                   \r\n                                        2.749747E-03          4.170666E-03         -6.556511E-07              0.0                   \r\n                                       -4.215322E-03          1.117344E-02          4.536420E-03              0.0                   \r\n0    404        9                       9.988368E-04         -3.743276E-04         -4.700560E-05              0.0                   \r\n                                       -5.241025E-04         -1.223888E-03         -2.171170E-03              0.0                   \r\n                                        4.936695E-04          1.254463E-04         -8.102506E-07              0.0                   \r\n                                       -8.259607E-04          1.634573E-03          1.271525E-03              0.0                   \r\n0    404       10                       1.995110E-04          1.162061E-04          3.419025E-05              0.0                   \r\n                                       -8.900976E-05         -4.317871E-05         -3.264016E-04              0.0                   \r\n                                        6.296982E-05         -1.460233E-04         -1.246808E-07              0.0                   \r\n                                       -1.247681E-04          1.615467E-04          3.111295E-04              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    404                0.0000         -1.499982E+00              0.0              -1.951406E+00              0.0                   \r\n                                        1.274883E-01              0.0               3.507565E+00              0.0                   \r\n                                       -3.803600E-01              0.0               8.443185E-04              0.0                   \r\n                                        1.447083E+00              0.0              -4.066927E+00              0.0                   \r\n0    404                7.1000         -1.476038E+00         -1.600625E+00         -1.690217E+00              0.0                   \r\n                                        1.914131E-01         -3.071589E+00          3.521974E+00              0.0                   \r\n                                       -4.323830E-01          2.547598E+00          8.041431E-04              0.0                   \r\n                                        1.435896E+00          1.791069E+00         -3.797673E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    181        0                      -1.633583E+00              0.0               7.870789E-01              0.0                   \r\n                                        7.913208E-01              0.0               2.229294E+00              0.0                   \r\n                                        4.000854E-01              0.0              -3.016449E+00              0.0                   \r\n0    181        1                      -1.749737E+00          6.191360E+00          7.640213E+00              0.0                   \r\n                                        9.024582E-01          5.805826E-01          2.465210E+00              0.0                   \r\n                                        4.197540E-01         -7.199009E+00         -9.942719E+00              0.0                   \r\n0    181        2                      -1.671769E+00          1.305140E+01          1.734789E+01              0.0                   \r\n                                        1.224230E+00          2.299739E+00          2.729860E+00              0.0                   \r\n                                        4.474678E-01         -1.523586E+01         -1.940937E+01              0.0                   \r\n0    181        3                      -1.076279E+00          1.683681E+01         -2.822002E+00              0.0                   \r\n                                        1.627241E+00          5.602385E+00          2.469460E+00              0.0                   \r\n                                        3.486938E-01         -1.911594E+01          1.564697E+00              0.0                   \r\n0    181        4                      -1.129879E+00          1.580528E+01         -1.001936E+01              0.0                   \r\n                                        1.623512E+00          6.081904E+00          2.554153E+00              0.0                   \r\n                                        2.350006E-01         -1.775928E+01          8.949066E+00              0.0                   \r\n0    181        5                      -1.270683E+00          1.339741E+01         -8.407532E+00              0.0                   \r\n                                        1.592220E+00          5.608698E+00          2.653938E+00              0.0                   \r\n                                        1.417847E-01         -1.493826E+01          7.301971E+00              0.0                   \r\n0    181        6                      -1.301201E+00          1.081760E+01         -5.943916E+00              0.0                   \r\n                                        1.491074E+00          4.852313E+00          2.576523E+00              0.0                   \r\n                                        7.553101E-02         -1.191655E+01          4.843430E+00              0.0                   \r\n0    181        7                      -1.236294E+00          8.615693E+00         -3.935581E+00              0.0                   \r\n                                        1.331619E+00          4.078435E+00          2.368557E+00              0.0                   \r\n                                        3.280640E-02         -9.356230E+00          2.917557E+00              0.0                   \r\n0    181        8                      -1.120127E+00          6.846076E+00         -2.509491E+00              0.0                   \r\n                                        1.150919E+00          3.383773E+00          2.101765E+00              0.0                   \r\n                                        6.763458E-03         -7.322008E+00          1.616707E+00              0.0                   \r\n0    181        9                      -9.845791E-01          5.442111E+00         -1.546936E+00              0.0                   \r\n                                        9.727955E-01          2.786015E+00          1.822504E+00              0.0                   \r\n                                       -7.915497E-03         -5.727661E+00          7.909813E-01              0.0                   \r\n0    181       10                      -8.477964E-01          4.328039E+00         -9.129276E-01              0.0                   \r\n                                        8.100471E-01          2.283159E+00          1.554704E+00              0.0                   \r\n                                       -1.643944E-02         -4.481537E+00          2.886009E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    181                0.0000         -1.402193E+01              0.0              -1.032256E+01              0.0                   \r\n                                        1.351744E+01              0.0               2.552597E+01              0.0                   \r\n                                        2.083532E+00              0.0              -4.095531E+00              0.0                   \r\n0    181                3.5810         -1.323398E+01          2.951086E+01         -8.202825E+00              0.0                   \r\n                                        1.267707E+01          1.254548E+01          2.401450E+01              0.0                   \r\n                                        2.054098E+00         -3.241467E+01         -5.569684E+00              0.0                   \r\n0    181                7.1620         -1.105457E+01          5.434902E+01         -2.243128E+00              0.0                   \r\n                                        1.034433E+01          2.285653E+01          1.982689E+01              0.0                   \r\n                                        1.967149E+00         -5.980951E+01         -9.736885E+00              0.0                   \r\n0    182        0                       5.613632E-01              0.0              -1.859568E+00              0.0                   \r\n                                       -2.539383E+00              0.0               2.737045E+00              0.0                   \r\n                                        1.418023E+00              0.0              -8.775787E-01              0.0                   \r\n0    182        1                       5.694237E-01          1.000435E+00         -7.517719E-01              0.0                   \r\n                                       -2.840435E+00          5.411161E+00          1.038464E+01              0.0                   \r\n                                        1.739287E+00         -6.943224E+00         -9.460129E+00              0.0                   \r\n0    182        2                       6.697311E-01          1.715525E+00          9.637794E-01              0.0                   \r\n                                       -3.514870E+00          1.176877E+01          2.475867E+01              0.0                   \r\n                                        2.748720E+00         -1.365378E+01         -2.502896E+01              0.0                   \r\n0    182        3                       7.799339E-01          9.914287E-01         -1.805241E+00              0.0                   \r\n                                       -2.857952E+00          1.653976E+01          8.824272E+00              0.0                   \r\n                                        2.849053E+00         -1.481355E+01         -5.814484E+00              0.0                   \r\n0    182        4                       6.706891E-01          6.712906E-01         -3.045661E+00              0.0                   \r\n                                       -2.405832E+00          1.552416E+01         -7.730880E-01              0.0                   \r\n                                        2.400308E+00         -1.267290E+01          5.233459E+00              0.0                   \r\n0    182        5                       5.562296E-01          4.901887E-01         -2.735152E+00              0.0                   \r\n                                       -2.085280E+00          1.306476E+01         -1.812880E+00              0.0                   \r\n                                        1.988832E+00         -1.000229E+01          5.976145E+00              0.0                   \r\n0    182        6                       4.490747E-01          3.333409E-01         -2.165611E+00              0.0                   \r\n                                       -1.741566E+00          1.057338E+01         -1.457556E+00              0.0                   \r\n                                        1.582602E+00         -7.574749E+00          4.954054E+00              0.0                   \r\n0    182        7                       3.561802E-01          2.247245E-01         -1.650885E+00              0.0                   \r\n                                       -1.438794E+00          8.480745E+00         -9.150105E-01              0.0                   \r\n                                        1.245781E+00         -5.707848E+00          3.764856E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    182        8                       2.794600E-01          1.473628E-01         -1.246088E+00              0.0                   \r\n                                       -1.188900E+00          6.808983E+00         -4.626646E-01              0.0                   \r\n                                        9.820338E-01         -4.321374E+00          2.771273E+00              0.0                   \r\n0    182        9                       2.172117E-01          9.771863E-02         -9.409487E-01              0.0                   \r\n                                       -9.837141E-01          5.475546E+00         -1.427603E-01              0.0                   \r\n                                        7.773284E-01         -3.290202E+00          2.014882E+00              0.0                   \r\n0    182       10                       1.673160E-01          6.264246E-02         -7.128783E-01              0.0                   \r\n                                       -8.150625E-01          4.412131E+00          6.429100E-02              0.0                   \r\n                                        6.176009E-01         -2.516148E+00          1.457838E+00              0.0                   \r\n0    182                0.0000          5.276613E+00              0.0              -1.595003E+01              0.0                   \r\n                                       -2.241179E+01              0.0               4.120496E+01              0.0                   \r\n                                        1.834957E+01              0.0              -1.500865E+01              0.0                   \r\n0    182                3.5810          5.044754E+00          1.154681E+00         -1.495901E+01              0.0                   \r\n                                       -2.144521E+01          2.897765E+01          4.120264E+01              0.0                   \r\n                                        1.751979E+01         -2.159908E+01         -1.676927E+01              0.0                   \r\n0    182                7.1620          4.394951E+00          2.192260E+00         -1.218888E+01              0.0                   \r\n                                       -1.874505E+01          5.330492E+01          4.114781E+01              0.0                   \r\n                                        1.519441E+01         -4.013459E+01         -2.162214E+01              0.0                   \r\n0    183        0                      -2.480202E+00              0.0              -8.771515E-02              0.0                   \r\n                                       -2.887802E-01              0.0               3.521255E+00              0.0                   \r\n                                        2.336075E+00              0.0              -3.433624E+00              0.0                   \r\n0    183        1                      -2.148256E+00          5.086140E+00          7.447834E+00              0.0                   \r\n                                       -7.415581E-02         -8.881383E-01          1.575127E+00              0.0                   \r\n                                        1.801590E+00         -4.618822E+00         -8.891129E+00              0.0                   \r\n0    183        2                      -1.208057E+00          9.870409E+00          2.268459E+01              0.0                   \r\n                                        2.565212E+00         -2.914387E-02         -2.651985E+00              0.0                   \r\n                                       -1.617744E+00         -1.025334E+01         -1.952682E+01              0.0                   \r\n0    183        3                      -1.771275E+00          1.110783E+01          9.662392E+00              0.0                   \r\n                                        6.838055E+00          4.615067E+00          1.050446E+00              0.0                   \r\n                                       -5.070717E+00         -1.486129E+01         -9.892426E+00              0.0                   \r\n0    183        4                      -2.599017E+00          9.580977E+00         -3.465147E-01              0.0                   \r\n                                        5.682012E+00          5.819353E+00          4.272278E+00              0.0                   \r\n                                       -3.213418E+00         -1.410143E+01         -3.001596E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   129\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    183        5                      -2.831826E+00          7.550448E+00         -1.908163E+00              0.0                   \r\n                                        4.141069E+00          5.729571E+00          4.855049E+00              0.0                   \r\n                                       -1.573954E+00         -1.190136E+01         -2.051832E+00              0.0                   \r\n0    183        6                      -2.756564E+00          5.748029E+00         -1.776697E+00              0.0                   \r\n                                        2.942255E+00          5.173614E+00          4.637204E+00              0.0                   \r\n                                       -5.354748E-01         -9.603899E+00         -2.056091E+00              0.0                   \r\n0    183        7                      -2.521459E+00          4.375329E+00         -1.322225E+00              0.0                   \r\n                                        2.084424E+00          4.467903E+00          4.132007E+00              0.0                   \r\n                                        4.508781E-02         -7.654287E+00         -2.106434E+00              0.0                   \r\n0    183        8                      -2.225010E+00          3.357047E+00         -8.933926E-01              0.0                   \r\n                                        1.486506E+00          3.771996E+00          3.557621E+00              0.0                   \r\n                                        3.347998E-01         -6.088874E+00         -2.056074E+00              0.0                   \r\n0    183        9                      -1.920135E+00          2.596511E+00         -5.642796E-01              0.0                   \r\n                                        1.068466E+00          3.141708E+00          3.004499E+00              0.0                   \r\n                                        4.564714E-01         -4.844444E+00         -1.917797E+00              0.0                   \r\n0    183       10                      -1.632025E+00          2.020779E+00         -3.311458E-01              0.0                   \r\n                                        7.738898E-01          2.595140E+00          2.506229E+00              0.0                   \r\n                                        4.847188E-01         -3.857102E+00         -1.728641E+00              0.0                   \r\n0    183                0.0000         -2.409383E+01              0.0               3.256468E+01              0.0                   \r\n                                        2.721895E+01              0.0               3.045973E+01              0.0                   \r\n                                       -6.552566E+00              0.0              -5.666247E+01              0.0                   \r\n0    183                3.5810         -2.252541E+01          1.644613E+01          3.281390E+01              0.0                   \r\n                                        2.580834E+01          1.279260E+01          2.800733E+01              0.0                   \r\n                                       -6.448441E+00         -2.600488E+01         -5.491144E+01              0.0                   \r\n0    183                7.1620         -1.818560E+01          3.051742E+01          3.344282E+01              0.0                   \r\n                                        2.182743E+01          2.314208E+01          2.122800E+01              0.0                   \r\n                                       -6.090984E+00         -4.785635E+01         -5.001572E+01              0.0                   \r\n0    184        0                      -2.433567E+00              0.0              -3.498528E+00              0.0                   \r\n                                       -1.920593E+00              0.0               3.779457E+00              0.0                   \r\n                                        3.645117E+00              0.0              -2.809143E-01              0.0                   \r\n0    184        1                      -2.551465E+00          3.756103E+00          3.125480E+00              0.0                   \r\n                                       -2.128098E+00          3.140471E+00          1.103293E+01              0.0                   \r\n                                        3.986285E+00         -7.589798E+00         -1.397458E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   130\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    184        2                      -3.696686E+00          5.964810E+00          1.876686E+01              0.0                   \r\n                                       -2.670486E+00          6.539364E+00          2.989723E+01              0.0                   \r\n                                        5.721255E+00         -1.377125E+01         -4.799677E+01              0.0                   \r\n0    184        3                      -5.401794E+00          2.652956E+00          1.167731E+01              0.0                   \r\n                                       -2.366806E+00          9.077806E+00          2.549823E+01              0.0                   \r\n                                        7.172221E+00         -1.283422E+01         -3.624106E+01              0.0                   \r\n0    184        4                      -4.925537E+00          7.193339E-01          1.503769E+00              0.0                   \r\n                                       -2.110180E+00          7.948347E+00          1.402930E+01              0.0                   \r\n                                        6.502712E+00         -9.350496E+00         -1.462083E+01              0.0                   \r\n0    184        5                      -4.068256E+00         -3.765817E-01         -1.408577E+00              0.0                   \r\n                                       -1.866018E+00          6.209252E+00          9.103561E+00              0.0                   \r\n                                        5.442653E+00         -6.185005E+00         -6.936455E+00              0.0                   \r\n0    184        6                      -3.255312E+00         -9.691701E-01         -2.205463E+00              0.0                   \r\n                                       -1.572945E+00          4.767387E+00          6.259097E+00              0.0                   \r\n                                        4.357479E+00         -3.946085E+00         -3.469318E+00              0.0                   \r\n0    184        7                      -2.592219E+00         -1.197881E+00         -2.255960E+00              0.0                   \r\n                                       -1.306854E+00          3.697051E+00          4.488081E+00              0.0                   \r\n                                        3.445582E+00         -2.541290E+00         -1.789845E+00              0.0                   \r\n0    184        8                      -2.074172E+00         -1.227472E+00         -2.046584E+00              0.0                   \r\n                                       -1.082892E+00          2.908556E+00          3.332136E+00              0.0                   \r\n                                        2.724367E+00         -1.670079E+00         -9.507895E-01              0.0                   \r\n0    184        9                      -1.669739E+00         -1.156598E+00         -1.765651E+00              0.0                   \r\n                                       -8.978913E-01          2.312996E+00          2.539555E+00              0.0                   \r\n                                        2.160473E+00         -1.121094E+00         -5.188732E-01              0.0                   \r\n0    184       10                      -1.351614E+00         -1.043958E+00         -1.485363E+00              0.0                   \r\n                                       -7.443326E-01          1.857794E+00          1.972195E+00              0.0                   \r\n                                        1.717985E+00         -7.677409E-01         -2.910519E-01              0.0                   \r\n0    184                0.0000         -3.402036E+01              0.0               2.040729E+01              0.0                   \r\n                                       -1.866710E+01              0.0               1.119318E+02              0.0                   \r\n                                        4.687613E+01              0.0              -1.270705E+02              0.0                   \r\n0    184                3.5810         -3.230464E+01         -1.143638E+00          2.124069E+01              0.0                   \r\n                                       -1.780063E+01          1.360651E+01          1.083233E+02              0.0                   \r\n                                        4.461374E+01         -1.316802E+01         -1.245820E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   131\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    184                7.1620         -2.750533E+01         -1.606948E+00          2.343401E+01              0.0                   \r\n                                       -1.538253E+01          2.516279E+01          9.808860E+01              0.0                   \r\n                                        3.828007E+01         -2.494170E+01         -1.173448E+02              0.0                   \r\n0    185        0                      -2.498898E+00              0.0              -9.396553E-02              0.0                   \r\n                                        1.700678E+00              0.0               3.613953E+00              0.0                   \r\n                                        3.791237E-01              0.0              -3.519943E+00              0.0                   \r\n0    185        1                      -2.378904E+00          3.725591E+00          9.311790E+00              0.0                   \r\n                                        1.370995E+00         -2.810659E+00         -4.039693E+00              0.0                   \r\n                                        5.767839E-01         -1.346804E+00         -5.176393E+00              0.0                   \r\n0    185        2                      -1.933487E+00          5.754062E+00          3.644719E+01              0.0                   \r\n                                       -9.000206E-01         -2.916166E+00         -2.639382E+01              0.0                   \r\n                                        2.197403E+00         -3.994113E+00         -9.748718E+00              0.0                   \r\n0    185        3                      -2.281036E+00          3.331063E+00          3.594873E+01              0.0                   \r\n                                       -3.065659E+00          2.859433E+00         -2.568517E+01              0.0                   \r\n                                        4.289135E+00         -8.453671E+00         -9.960876E+00              0.0                   \r\n0    185        4                      -2.832104E+00          1.074287E+00          1.944956E+01              0.0                   \r\n                                       -1.648882E+00          5.394517E+00         -1.171440E+01              0.0                   \r\n                                        3.460188E+00         -8.676488E+00         -7.556099E+00              0.0                   \r\n0    185        5                      -2.993610E+00         -4.461907E-01          1.134918E+01              0.0                   \r\n                                       -3.816433E-01          6.203039E+00         -5.040533E+00              0.0                   \r\n                                        2.444983E+00         -7.643485E+00         -6.286118E+00              0.0                   \r\n0    185        6                      -2.886453E+00         -1.181341E+00          6.727624E+00              0.0                   \r\n                                        3.901877E-01          6.017169E+00         -1.531395E+00              0.0                   \r\n                                        1.654982E+00         -6.408533E+00         -5.293588E+00              0.0                   \r\n0    185        7                      -2.629539E+00         -1.410876E+00          4.030107E+00              0.0                   \r\n                                        7.673554E-01          5.378464E+00          2.407274E-01              0.0                   \r\n                                        1.106270E+00         -5.273218E+00         -4.439863E+00              0.0                   \r\n0    185        8                      -2.315226E+00         -1.392351E+00          2.440758E+00              0.0                   \r\n                                        9.011676E-01          4.614623E+00          1.060147E+00              0.0                   \r\n                                        7.392229E-01         -4.306703E+00         -3.704986E+00              0.0                   \r\n0    185        9                      -1.994838E+00         -1.265522E+00          1.488209E+00              0.0                   \r\n                                        9.012536E-01          3.868491E+00          1.373533E+00              0.0                   \r\n                                        4.951862E-01         -3.503679E+00         -3.076771E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   132\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    185       10                      -1.693233E+00         -1.100032E+00          9.085385E-01              0.0                   \r\n                                        8.347698E-01          3.196998E+00          1.423359E+00              0.0                   \r\n                                        3.319405E-01         -2.843939E+00         -2.542551E+00              0.0                   \r\n0    185                0.0000         -2.643733E+01              0.0               1.280077E+02              0.0                   \r\n                                        8.702030E-01              0.0              -6.669329E+01              0.0                   \r\n                                        1.767522E+01              0.0              -6.130590E+01              0.0                   \r\n0    185                3.5810         -2.478546E+01         -1.316901E+00          1.243738E+02              0.0                   \r\n                                        4.916482E-01          1.386426E+01         -6.594772E+01              0.0                   \r\n                                        1.690704E+01         -1.683309E+01         -5.831150E+01              0.0                   \r\n0    185                7.1620         -2.021068E+01         -1.883416E+00          1.139349E+02              0.0                   \r\n                                       -5.041293E-01          2.482829E+01         -6.358812E+01              0.0                   \r\n                                        1.472857E+01         -3.078422E+01         -4.994847E+01              0.0                   \r\n0    186        0                      -2.721878E+00              0.0              -2.766679E+00              0.0                   \r\n                                        6.689487E-01              0.0               2.020167E+00              0.0                   \r\n                                        1.547199E+00              0.0               7.464142E-01              0.0                   \r\n0    186        1                      -2.901340E+00          3.492238E+00          6.664680E+00              0.0                   \r\n                                        7.602577E-01          3.128112E-01          4.061020E+00              0.0                   \r\n                                        1.630523E+00         -4.315307E+00         -1.062437E+01              0.0                   \r\n0    186        2                      -4.106537E+00          4.302600E+00          3.508481E+01              0.0                   \r\n                                        1.390106E+00          6.957426E-01          1.032749E+01              0.0                   \r\n                                        1.873355E+00         -6.667464E+00         -4.511264E+01              0.0                   \r\n0    186        3                      -5.513885E+00         -1.493284E+00          3.746103E+01              0.0                   \r\n                                        2.279694E+00          1.255059E+00          1.089093E+01              0.0                   \r\n                                        1.730532E+00         -3.930111E+00         -4.816660E+01              0.0                   \r\n0    186        4                      -4.940552E+00         -4.421746E+00          2.020068E+01              0.0                   \r\n                                        1.975212E+00          9.771528E-01          7.202507E+00              0.0                   \r\n                                        1.694319E+00         -8.944545E-01         -2.745660E+01              0.0                   \r\n0    186        5                      -4.056618E+00         -5.608438E+00          1.141183E+01              0.0                   \r\n                                        1.559517E+00          6.172302E-01          4.952770E+00              0.0                   \r\n                                        1.501224E+00          1.103616E+00         -1.665842E+01              0.0                   \r\n0    186        6                      -3.222992E+00         -5.727942E+00          6.485588E+00              0.0                   \r\n                                        1.205452E+00          3.875964E-01          3.406164E+00              0.0                   \r\n                                        1.221398E+00          1.958653E+00         -1.034492E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   133\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    186        7                      -2.541645E+00         -5.294306E+00          3.661472E+00              0.0                   \r\n                                        9.256897E-01          2.471777E-01          2.365206E+00              0.0                   \r\n                                        9.668993E-01          2.136684E+00         -6.558998E+00              0.0                   \r\n0    186        8                      -2.008921E+00         -4.664608E+00          2.030857E+00              0.0                   \r\n                                        7.104645E-01          1.681497E-01          1.667833E+00              0.0                   \r\n                                        7.605891E-01          2.007812E+00         -4.254467E+00              0.0                   \r\n0    186        9                      -1.594836E+00         -3.996056E+00          1.080677E+00              0.0                   \r\n                                        5.464239E-01          1.164041E-01          1.193401E+00              0.0                   \r\n                                        5.981244E-01          1.761394E+00         -2.817806E+00              0.0                   \r\n0    186       10                      -1.270799E+00         -3.367632E+00          5.252094E-01              0.0                   \r\n                                        4.205599E-01          8.612561E-02          8.645957E-01              0.0                   \r\n                                        4.706869E-01          1.486677E+00         -1.900312E+00              0.0                   \r\n0    186                0.0000         -3.488000E+01              0.0               1.218401E+02              0.0                   \r\n                                        1.244233E+01              0.0               4.895208E+01              0.0                   \r\n                                        1.399485E+01              0.0              -1.731487E+02              0.0                   \r\n0    186                3.5810         -3.320034E+01         -1.302095E+01          1.184062E+02              0.0                   \r\n                                        1.183148E+01          1.211518E+00          4.719794E+01              0.0                   \r\n                                        1.337115E+01          2.679097E+00         -1.676205E+02              0.0                   \r\n0    186                7.1620         -2.849684E+01         -2.314299E+01          1.085014E+02              0.0                   \r\n                                        1.011701E+01          2.282615E+00          4.222395E+01              0.0                   \r\n                                        1.162544E+01          4.254536E+00         -1.518157E+02              0.0                   \r\n0    187        0                      -1.510164E+00              0.0              -1.017395E+00              0.0                   \r\n                                       -3.267498E-01              0.0               3.077320E+00              0.0                   \r\n                                        1.426392E+00              0.0              -2.060020E+00              0.0                   \r\n0    187        1                      -1.402180E+00          2.645952E+00          9.074206E+00              0.0                   \r\n                                       -3.367805E-01         -2.570693E+00         -7.140606E+00              0.0                   \r\n                                        1.309623E+00         -5.053101E-01         -1.865723E+00              0.0                   \r\n0    187        2                      -1.082565E+00          2.652189E+00          4.179271E+01              0.0                   \r\n                                       -3.646088E-01         -2.264081E+00         -4.048888E+01              0.0                   \r\n                                        6.032610E-01         -2.006348E+00         -1.149536E+00              0.0                   \r\n0    187        3                      -1.430954E+00         -2.315434E+00          4.836277E+01              0.0                   \r\n                                       -3.403625E-01          3.029320E+00         -4.707423E+01              0.0                   \r\n                                        1.342649E-01         -5.144287E+00         -1.349655E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   134\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    187        4                      -1.752274E+00         -5.121188E+00          2.893094E+01              0.0                   \r\n                                       -2.722931E-01          6.091703E+00         -2.724527E+01              0.0                   \r\n                                        5.991416E-01         -5.674377E+00         -2.030930E+00              0.0                   \r\n0    187        5                      -1.812775E+00         -6.297133E+00          1.763014E+01              0.0                   \r\n                                       -2.053261E-01          7.294951E+00         -1.588238E+01              0.0                   \r\n                                        8.668008E-01         -5.260742E+00         -2.341103E+00              0.0                   \r\n0    187        6                      -1.728596E+00         -6.269707E+00          1.067965E+01              0.0                   \r\n                                       -1.517525E-01          7.108819E+00         -9.043865E+00              0.0                   \r\n                                        9.445410E-01         -4.567680E+00         -2.369595E+00              0.0                   \r\n0    187        7                      -1.562557E+00         -5.674703E+00          6.442485E+00              0.0                   \r\n                                       -1.145897E-01          6.311370E+00         -5.005039E+00              0.0                   \r\n                                        9.096233E-01         -3.847475E+00         -2.221542E+00              0.0                   \r\n0    187        8                      -1.366341E+00         -4.904841E+00          3.873625E+00              0.0                   \r\n                                       -8.830070E-02          5.359205E+00         -2.658964E+00              0.0                   \r\n                                        8.204222E-01         -3.196820E+00         -1.991276E+00              0.0                   \r\n0    187        9                      -1.169547E+00         -4.132637E+00          2.306190E+00              0.0                   \r\n                                       -7.011604E-02          4.438752E+00         -1.305095E+00              0.0                   \r\n                                        7.130389E-01         -2.634692E+00         -1.735918E+00              0.0                   \r\n0    187       10                      -9.863367E-01         -3.426183E+00          1.343542E+00              0.0                   \r\n                                       -5.651379E-02          3.620313E+00         -5.325079E-01              0.0                   \r\n                                        6.046065E-01         -2.160305E+00         -1.485010E+00              0.0                   \r\n0    187                0.0000         -1.580429E+01              0.0               1.694189E+02              0.0                   \r\n                                       -2.327394E+00              0.0              -1.532995E+02              0.0                   \r\n                                        8.931715E+00              0.0              -2.060031E+01              0.0                   \r\n0    187                3.5810         -1.482454E+01         -1.439948E+01          1.640417E+02              0.0                   \r\n                                       -2.245881E+00          1.620427E+01         -1.488012E+02              0.0                   \r\n                                        8.385586E+00         -1.176669E+01         -1.922165E+01              0.0                   \r\n0    187                7.1620         -1.210958E+01         -2.573845E+01          1.486227E+02              0.0                   \r\n                                       -2.016605E+00          2.905784E+01         -1.358233E+02              0.0                   \r\n                                        6.879507E+00         -2.142607E+01         -1.541211E+01              0.0                   \r\n0    191        0                      -4.001465E-01              0.0               3.016312E+00              0.0                   \r\n                                       -8.242035E-01              0.0               1.394806E+00              0.0                   \r\n                                        7.827364E-01              0.0              -4.411118E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   135\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    191        1                      -4.193039E-01          7.198987E+00          9.942810E+00              0.0                   \r\n                                       -1.372452E+00         -1.810545E-01          2.322484E+00              0.0                   \r\n                                        1.364308E+00         -7.444951E+00         -1.207738E+01              0.0                   \r\n0    191        2                      -4.483185E-01          1.523481E+01          1.940952E+01              0.0                   \r\n                                       -2.310951E+00          1.062206E-01          4.432053E+00              0.0                   \r\n                                        2.789985E+00         -1.527623E+01         -2.305471E+01              0.0                   \r\n0    191        3                      -3.536510E-01          1.912041E+01         -1.565195E+00              0.0                   \r\n                                       -7.824764E-01          1.771944E+00          3.241201E+00              0.0                   \r\n                                        2.193442E+00         -1.762140E+01         -2.324486E-01              0.0                   \r\n0    191        4                      -2.373276E-01          1.775627E+01         -8.948975E+00              0.0                   \r\n                                       -1.663895E-01          1.874995E+00          2.160520E+00              0.0                   \r\n                                        1.378396E+00         -1.559552E+01          8.530609E+00              0.0                   \r\n0    191        5                      -1.427383E-01          1.493842E+01         -7.301819E+00              0.0                   \r\n                                       -1.162491E-01          1.595722E+00          1.740175E+00              0.0                   \r\n                                        1.013760E+00         -1.263494E+01          7.353226E+00              0.0                   \r\n0    191        6                      -7.485962E-02          1.191868E+01         -4.843307E+00              0.0                   \r\n                                       -9.833527E-02          1.333044E+00          1.392221E+00              0.0                   \r\n                                        7.444776E-01         -9.731210E+00          5.133774E+00              0.0                   \r\n0    191        7                      -3.274155E-02          9.356999E+00         -2.917461E+00              0.0                   \r\n                                       -8.686829E-02          1.105481E+00          1.112433E+00              0.0                   \r\n                                        5.473144E-01         -7.400384E+00          3.320835E+00              0.0                   \r\n0    191        8                      -7.135391E-03          7.321773E+00         -1.616451E+00              0.0                   \r\n                                       -7.741165E-02          9.139226E-01          8.927346E-01              0.0                   \r\n                                        4.052096E-01         -5.624289E+00          2.059746E+00              0.0                   \r\n0    191        9                       8.316040E-03          5.728336E+00         -7.910843E-01              0.0                   \r\n                                       -6.919670E-02          7.517917E-01          7.193050E-01              0.0                   \r\n                                        3.019872E-01         -4.282578E+00          1.232464E+00              0.0                   \r\n0    191       10                       1.640701E-02          4.481959E+00         -2.885761E-01              0.0                   \r\n                                       -6.046867E-02          6.168301E-01          5.804875E-01              0.0                   \r\n                                        2.261701E-01         -3.266445E+00          7.051640E-01              0.0                   \r\n0    191                0.0000         -2.091499E+00              0.0               4.095768E+00              0.0                   \r\n                                       -5.965002E+00              0.0               1.998842E+01              0.0                   \r\n                                        1.174779E+01              0.0              -1.143984E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   136\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    191                3.5810         -2.061916E+00          3.241627E+01          5.569883E+00              0.0                   \r\n                                       -5.873189E+00          3.443330E+00          1.920967E+01              0.0                   \r\n                                        1.135079E+01         -2.698838E+01         -1.309852E+01              0.0                   \r\n0    191                7.1620         -1.974522E+00          5.981238E+01          9.736968E+00              0.0                   \r\n                                       -5.611810E+00          6.275190E+00          1.702391E+01              0.0                   \r\n                                        1.022845E+01         -5.004135E+01         -1.774747E+01              0.0                   \r\n0    192        0                      -2.038055E+00              0.0               1.660645E+00              0.0                   \r\n                                        5.503159E-01              0.0               1.195618E+00              0.0                   \r\n                                        1.086060E+00              0.0              -2.856323E+00              0.0                   \r\n0    192        1                      -3.237324E+00          5.539631E+00          8.114474E+00              0.0                   \r\n                                        9.772415E-01         -3.008417E+00         -3.376198E+00              0.0                   \r\n                                        1.830308E+00         -2.960449E+00         -4.592842E+00              0.0                   \r\n0    192        2                      -5.190756E+00          1.126766E+01          1.954863E+01              0.0                   \r\n                                        2.083151E+00         -4.715603E+00         -1.148976E+01              0.0                   \r\n                                        2.886915E+00         -6.660889E+00         -7.481773E+00              0.0                   \r\n0    192        3                      -2.437322E+00          1.351405E+01          4.612135E+00              0.0                   \r\n                                        1.991281E+00         -1.802604E+00         -1.429901E-01              0.0                   \r\n                                        7.718048E-01         -9.354736E+00         -3.492573E+00              0.0                   \r\n0    192        4                      -1.197346E+00          1.200602E+01         -3.445413E+00              0.0                   \r\n                                        1.457066E+00         -3.314302E-01          6.053665E+00              0.0                   \r\n                                       -1.374378E-01         -8.706665E+00         -1.481705E+00              0.0                   \r\n0    192        5                      -1.200226E+00          9.682424E+00         -3.802167E+00              0.0                   \r\n                                        1.230762E+00          4.211922E-01          6.300968E+00              0.0                   \r\n                                       -1.193109E-01         -7.203125E+00         -1.384624E+00              0.0                   \r\n0    192        6                      -1.252701E+00          7.475383E+00         -2.974844E+00              0.0                   \r\n                                        1.042038E+00          8.145100E-01          5.423702E+00              0.0                   \r\n                                        1.399040E-03         -5.649597E+00         -1.437084E+00              0.0                   \r\n0    192        7                      -1.220697E+00          5.723495E+00         -2.107821E+00              0.0                   \r\n                                        8.657360E-01          9.415255E-01          4.395176E+00              0.0                   \r\n                                        8.550453E-02         -4.357483E+00         -1.400707E+00              0.0                   \r\n0    192        8                      -1.124441E+00          4.390278E+00         -1.428069E+00              0.0                   \r\n                                        7.082081E-01          9.267782E-01          3.478197E+00              0.0                   \r\n                                        1.252465E-01         -3.346336E+00         -1.286495E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   137\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    192        9                      -9.964323E-01          3.379225E+00         -9.412812E-01              0.0                   \r\n                                        5.723629E-01          8.471998E-01          2.725157E+00              0.0                   \r\n                                        1.354027E-01         -2.567684E+00         -1.133492E+00              0.0                   \r\n0    192       10                      -8.594379E-01          2.607955E+00         -6.056322E-01              0.0                   \r\n                                        4.586859E-01          7.433430E-01          2.124733E+00              0.0                   \r\n                                        1.287271E-01         -1.969933E+00         -9.700184E-01              0.0                   \r\n0    192                0.0000         -2.075474E+01              0.0               1.863066E+01              0.0                   \r\n                                        1.193685E+01              0.0               1.668827E+01              0.0                   \r\n                                        6.794619E+00              0.0              -2.751764E+01              0.0                   \r\n0    192                3.5810         -1.991418E+01          2.081282E+01          1.951231E+01              0.0                   \r\n                                        1.136333E+01          9.639627E-01          1.425544E+01              0.0                   \r\n                                        6.696363E+00         -1.516947E+01         -2.652866E+01              0.0                   \r\n0    192                7.1620         -1.757877E+01          3.855612E+01          2.194113E+01              0.0                   \r\n                                        9.759459E+00          1.413108E+00          7.512550E+00              0.0                   \r\n                                        6.422529E+00         -2.802978E+01         -2.377460E+01              0.0                   \r\n0    193        0                      -1.760040E+00              0.0               9.600983E-01              0.0                   \r\n                                        8.972931E-01              0.0               2.450577E+00              0.0                   \r\n                                        4.838104E-01              0.0              -3.410614E+00              0.0                   \r\n0    193        1                      -5.323029E-01          5.248652E+00          7.165443E+00              0.0                   \r\n                                        1.417542E+00         -1.155415E+00          6.758385E-01              0.0                   \r\n                                       -1.221153E+00         -4.428974E+00         -7.705856E+00              0.0                   \r\n0    193        2                       2.039696E+00          1.027066E+01          2.005782E+01              0.0                   \r\n                                        2.298035E+00         -8.706911E-01         -2.928429E+00              0.0                   \r\n                                       -4.426575E+00         -9.613189E+00         -1.660635E+01              0.0                   \r\n0    193        3                      -4.164047E-01          1.135470E+01          9.886757E+00              0.0                   \r\n                                        1.382439E+00          2.554393E+00          1.029396E+00              0.0                   \r\n                                       -7.126770E-01         -1.284955E+01         -1.008295E+01              0.0                   \r\n0    193        4                      -2.312539E+00          9.633716E+00          1.189107E+00              0.0                   \r\n                                        9.852272E-01          3.556896E+00          3.859101E+00              0.0                   \r\n                                        1.490231E+00         -1.175933E+01         -4.122262E+00              0.0                   \r\n0    193        5                      -2.592997E+00          7.486662E+00         -4.957256E-01              0.0                   \r\n                                        1.041355E+00          3.624224E+00          4.203804E+00              0.0                   \r\n                                        1.590668E+00         -9.648458E+00         -2.823601E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   138\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    193        6                      -2.429182E+00          5.603811E+00         -6.735802E-01              0.0                   \r\n                                        1.047020E+00          3.312961E+00          3.877521E+00              0.0                   \r\n                                        1.328945E+00         -7.549905E+00         -2.422832E+00              0.0                   \r\n0    193        7                      -2.120178E+00          4.187458E+00         -5.120144E-01              0.0                   \r\n                                        9.730768E-01          2.861624E+00          3.348104E+00              0.0                   \r\n                                        1.036156E+00         -5.835773E+00         -2.166668E+00              0.0                   \r\n0    193        8                      -1.787143E+00          3.151666E+00         -3.178968E-01              0.0                   \r\n                                        8.569388E-01          2.399727E+00          2.798971E+00              0.0                   \r\n                                        7.888670E-01         -4.504738E+00         -1.914238E+00              0.0                   \r\n0    193        9                      -1.477496E+00          2.390069E+00         -1.653709E-01              0.0                   \r\n                                        7.282481E-01          1.978008E+00          2.298251E+00              0.0                   \r\n                                        5.958033E-01         -3.480677E+00         -1.656351E+00              0.0                   \r\n0    193       10                      -1.206485E+00          1.823120E+00         -6.146717E-02              0.0                   \r\n                                        6.044021E-01          1.613506E+00          1.865754E+00              0.0                   \r\n                                        4.486241E-01         -2.693219E+00         -1.406037E+00              0.0                   \r\n0    193                0.0000         -1.459507E+01              0.0               3.703317E+01              0.0                   \r\n                                        1.223158E+01              0.0               2.347889E+01              0.0                   \r\n                                        1.402699E+00              0.0              -5.431776E+01              0.0                   \r\n0    193                3.5810         -1.336217E+01          1.608901E+01          3.684748E+01              0.0                   \r\n                                        1.160981E+01          7.864946E+00          2.152455E+01              0.0                   \r\n                                        8.656214E-01         -2.057557E+01         -5.260374E+01              0.0                   \r\n0    193                7.1620         -9.951131E+00          2.992592E+01          3.626162E+01              0.0                   \r\n                                        9.883263E+00          1.419182E+01          1.611219E+01              0.0                   \r\n                                       -6.210392E-01         -3.803254E+01         -4.778951E+01              0.0                   \r\n0    194        0                       7.710266E-02              0.0              -1.933807E+00              0.0                   \r\n                                       -1.630386E+00              0.0               2.401566E+00              0.0                   \r\n                                        1.157036E+00              0.0              -4.677734E-01              0.0                   \r\n0    194        1                       6.976795E-01          3.746022E-01         -1.716233E+00              0.0                   \r\n                                       -2.129785E+00          4.651391E+00          1.107539E+01              0.0                   \r\n                                        1.044067E+00         -5.414607E+00         -9.226295E+00              0.0                   \r\n0    194        2                       3.104004E+00         -3.793168E-02         -2.212363E+00              0.0                   \r\n                                       -4.886475E+00          9.435080E+00          3.305045E+01              0.0                   \r\n                                        1.484733E+00         -1.000457E+01         -3.034457E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   139\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    194        3                       4.230255E+00         -2.572124E+00         -4.503740E+00              0.0                   \r\n                                       -7.465927E+00          1.218664E+01          2.624908E+01              0.0                   \r\n                                        3.126730E+00         -9.602486E+00         -2.101973E+01              0.0                   \r\n0    194        4                       2.867500E+00         -2.822489E+00         -4.690688E+00              0.0                   \r\n                                       -6.216827E+00          1.037725E+01          1.271508E+01              0.0                   \r\n                                        3.259941E+00         -7.178385E+00         -7.289497E+00              0.0                   \r\n0    194        5                       1.902664E+00         -2.471310E+00         -4.020604E+00              0.0                   \r\n                                       -4.795784E+00          7.901692E+00          7.463917E+00              0.0                   \r\n                                        2.786688E+00         -4.900147E+00         -2.805023E+00              0.0                   \r\n0    194        6                       1.241514E+00         -2.086041E+00         -3.218245E+00              0.0                   \r\n                                       -3.586447E+00          5.891607E+00          4.691153E+00              0.0                   \r\n                                        2.217778E+00         -3.231170E+00         -9.565697E-01              0.0                   \r\n0    194        7                       8.057413E-01         -1.734747E+00         -2.519728E+00              0.0                   \r\n                                       -2.671060E+00          4.436209E+00          3.102239E+00              0.0                   \r\n                                        1.723813E+00         -2.148928E+00         -1.718998E-01              0.0                   \r\n0    194        8                       5.214252E-01         -1.430280E+00         -1.964105E+00              0.0                   \r\n                                       -2.001989E+00          3.386298E+00          2.147948E+00              0.0                   \r\n                                        1.332432E+00         -1.455558E+00          1.424465E-01              0.0                   \r\n0    194        9                       3.362131E-01         -1.172687E+00         -1.532008E+00              0.0                   \r\n                                       -1.513793E+00          2.615802E+00          1.543597E+00              0.0                   \r\n                                        1.029997E+00         -1.003838E+00          2.487407E-01              0.0                   \r\n0    194       10                       2.139497E-01         -9.589142E-01         -1.197413E+00              0.0                   \r\n                                       -1.153266E+00          2.039282E+00          1.141701E+00              0.0                   \r\n                                        7.971265E-01         -7.030606E-01          2.640414E-01              0.0                   \r\n0    194                0.0000          1.599805E+01              0.0              -2.950893E+01              0.0                   \r\n                                       -3.805174E+01              0.0               1.055821E+02              0.0                   \r\n                                        1.996034E+01              0.0              -7.162614E+01              0.0                   \r\n0    194                3.5810          1.539878E+01         -5.290072E+00         -2.790502E+01              0.0                   \r\n                                       -3.625591E+01          1.698431E+01          1.027510E+02              0.0                   \r\n                                        1.886662E+01         -1.039641E+01         -7.066349E+01              0.0                   \r\n0    194                7.1620          1.369161E+01         -9.628967E+00         -2.341722E+01              0.0                   \r\n                                       -3.120450E+01          3.154210E+01          9.465702E+01              0.0                   \r\n                                        1.580478E+01         -1.962561E+01         -6.779684E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   140\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    195        0                      -2.105068E+00              0.0              -2.121910E+00              0.0                   \r\n                                        2.877350E-01              0.0               2.340332E+00              0.0                   \r\n                                        1.431618E+00              0.0              -2.183838E-01              0.0                   \r\n0    195        1                      -2.358438E+00          5.173088E+00          6.500260E+00              0.0                   \r\n                                        4.473190E-01         -4.675781E-01          2.528624E+00              0.0                   \r\n                                        1.532007E+00         -5.084895E+00         -8.905807E+00              0.0                   \r\n0    195        2                      -5.591690E+00          8.360094E+00          2.734760E+01              0.0                   \r\n                                        2.851273E+00         -5.182099E-02          3.834052E+00              0.0                   \r\n                                        2.318804E+00         -9.133716E+00         -3.074097E+01              0.0                   \r\n0    195        3                      -1.082909E+01          4.489343E+00          1.890480E+01              0.0                   \r\n                                        6.935379E+00          2.683276E+00          5.508877E+00              0.0                   \r\n                                        3.363529E+00         -8.361763E+00         -2.381984E+01              0.0                   \r\n0    195        4                      -9.426628E+00          1.833835E+00          5.190010E+00              0.0                   \r\n                                        5.738640E+00          3.010992E+00          5.248047E+00              0.0                   \r\n                                        3.221210E+00         -5.871378E+00         -9.888107E+00              0.0                   \r\n0    195        5                      -7.231953E+00          1.997490E-01          9.039650E-01              0.0                   \r\n                                        4.110744E+00          2.677227E+00          4.425856E+00              0.0                   \r\n                                        2.723561E+00         -3.690721E+00         -4.904621E+00              0.0                   \r\n0    195        6                      -5.368093E+00         -7.092390E-01         -5.651264E-01              0.0                   \r\n                                        2.853209E+00          2.276502E+00          3.521022E+00              0.0                   \r\n                                        2.164078E+00         -2.223335E+00         -2.656939E+00              0.0                   \r\n0    195        7                      -3.965401E+00         -1.088794E+00         -1.004595E+00              0.0                   \r\n                                        1.967770E+00          1.893818E+00          2.750625E+00              0.0                   \r\n                                        1.684009E+00         -1.348545E+00         -1.542826E+00              0.0                   \r\n0    195        8                      -2.947542E+00         -1.180044E+00         -1.049452E+00              0.0                   \r\n                                        1.362419E+00          1.557161E+00          2.142594E+00              0.0                   \r\n                                        1.304797E+00         -8.343839E-01         -9.575081E-01              0.0                   \r\n0    195        9                      -2.209976E+00         -1.132411E+00         -9.523706E-01              0.0                   \r\n                                        9.488044E-01          1.272378E+00          1.671823E+00              0.0                   \r\n                                        1.011524E+00         -5.282074E-01         -6.302161E-01              0.0                   \r\n0    195       10                      -1.670514E+00         -1.021436E+00         -8.142042E-01              0.0                   \r\n                                        6.643591E-01          1.034517E+00          1.307553E+00              0.0                   \r\n                                        7.852404E-01         -3.423223E-01         -4.355609E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   141\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    195                0.0000         -5.370439E+01              0.0               5.233897E+01              0.0                   \r\n                                        2.816765E+01              0.0               3.527940E+01              0.0                   \r\n                                        2.154038E+01              0.0              -8.470078E+01              0.0                   \r\n0    195                3.5810         -5.105938E+01          2.289671E-01          5.213945E+01              0.0                   \r\n                                        2.682330E+01          5.699125E+00          3.349968E+01              0.0                   \r\n                                        2.045527E+01         -7.870008E+00         -8.285449E+01              0.0                   \r\n0    195                7.1620         -4.361872E+01          1.050487E+00          5.141202E+01              0.0                   \r\n                                        2.302108E+01          1.036712E+01          2.851513E+01              0.0                   \r\n                                        1.741535E+01         -1.498486E+01         -7.751901E+01              0.0                   \r\n0    196        0                      -2.294289E+00              0.0              -1.705627E+00              0.0                   \r\n                                        7.650146E-01              0.0               4.967102E+00              0.0                   \r\n                                        1.169678E+00              0.0              -3.261494E+00              0.0                   \r\n0    196        1                      -2.259517E+00          4.051789E+00          7.492828E+00              0.0                   \r\n                                        1.025927E+00         -3.679696E+00         -4.221724E+00              0.0                   \r\n                                        8.589177E-01         -7.462158E-01         -3.167857E+00              0.0                   \r\n0    196        2                      -2.053673E+00          6.198080E+00          3.381191E+01              0.0                   \r\n                                        2.105873E+00         -4.142223E+00         -3.080809E+01              0.0                   \r\n                                       -6.359272E-01         -3.092041E+00         -2.679626E+00              0.0                   \r\n0    196        3                      -2.380714E+00          3.395975E+00          3.251107E+01              0.0                   \r\n                                        3.034065E+00          2.399534E+00         -2.925043E+01              0.0                   \r\n                                       -1.680410E+00         -7.922607E+00         -2.956558E+00              0.0                   \r\n0    196        4                      -2.823261E+00          8.612984E-01          1.632891E+01              0.0                   \r\n                                        2.645729E+00          5.418058E+00         -1.248800E+01              0.0                   \r\n                                       -8.157043E-01         -8.356506E+00         -3.687347E+00              0.0                   \r\n0    196        5                      -2.873047E+00         -7.702200E-01          8.795438E+00              0.0                   \r\n                                        2.225935E+00          6.421793E+00         -4.947948E+00              0.0                   \r\n                                       -2.474940E-01         -7.423401E+00         -3.869610E+00              0.0                   \r\n0    196        6                      -2.665657E+00         -1.493842E+00          4.735243E+00              0.0                   \r\n                                        1.823191E+00          6.218837E+00         -1.233347E+00              0.0                   \r\n                                        4.704189E-02         -6.203476E+00         -3.650347E+00              0.0                   \r\n0    196        7                      -2.344310E+00         -1.662775E+00          2.505114E+00              0.0                   \r\n                                        1.466931E+00          5.483595E+00          5.168247E-01              0.0                   \r\n                                        1.770090E-01         -5.050175E+00         -3.238821E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   142\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    196        8                      -1.998461E+00         -1.576317E+00          1.282190E+00              0.0                   \r\n                                        1.169374E+00          4.616667E+00          1.247301E+00              0.0                   \r\n                                        2.182465E-01         -4.062277E+00         -2.773872E+00              0.0                   \r\n0    196        9                      -1.670779E+00         -1.390015E+00          6.111475E-01              0.0                   \r\n                                        9.263091E-01          3.788393E+00          1.466518E+00              0.0                   \r\n                                        2.159274E-01         -3.246838E+00         -2.324044E+00              0.0                   \r\n0    196       10                      -1.378169E+00         -1.177614E+00          2.460209E-01              0.0                   \r\n                                        7.305201E-01          3.059385E+00          1.439026E+00              0.0                   \r\n                                        1.940288E-01         -2.584188E+00         -1.918330E+00              0.0                   \r\n0    196                0.0000         -2.474188E+01              0.0               1.066142E+02              0.0                   \r\n                                        1.791887E+01              0.0              -7.331276E+01              0.0                   \r\n                                       -4.986869E-01              0.0              -3.352791E+01              0.0                   \r\n0    196                3.5810         -2.328415E+01         -1.802551E+00          1.039697E+02              0.0                   \r\n                                        1.696836E+01          1.364063E+01         -7.253725E+01              0.0                   \r\n                                       -5.452116E-01         -1.586155E+01         -3.152793E+01              0.0                   \r\n0    196                7.1620         -1.923669E+01         -2.747931E+00          9.630834E+01              0.0                   \r\n                                        1.430941E+01          2.440445E+01         -7.007273E+01              0.0                   \r\n                                       -6.543700E-01         -2.901459E+01         -2.597875E+01              0.0                   \r\n0    197        0                      -1.565153E+00              0.0              -2.113810E+00              0.0                   \r\n                                       -2.848425E-01              0.0               2.174438E+00              0.0                   \r\n                                        1.503563E+00              0.0              -6.059647E-02              0.0                   \r\n0    197        1                      -1.343979E+00          3.729086E+00          7.357224E+00              0.0                   \r\n                                       -4.550819E-01          3.515047E-01          1.864895E+00              0.0                   \r\n                                        1.434189E+00         -4.445332E+00         -9.128128E+00              0.0                   \r\n0    197        2                      -6.962738E-01          5.120363E+00          3.621725E+01              0.0                   \r\n                                       -9.174805E-01          1.543067E+00          7.801819E-01              0.0                   \r\n                                        9.055481E-01         -7.985077E+00         -3.672504E+01              0.0                   \r\n0    197        3                      -1.024734E+00          1.187772E+00          3.882361E+01              0.0                   \r\n                                       -7.034302E-01          3.567781E+00          9.124146E-01              0.0                   \r\n                                        3.658752E-01         -8.229569E+00         -3.956415E+01              0.0                   \r\n0    197        4                      -1.534966E+00         -1.531223E+00          2.132567E+01              0.0                   \r\n                                       -4.881592E-01          3.790745E+00          1.690536E+00              0.0                   \r\n                                        8.212280E-01         -5.845185E+00         -2.304947E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   143\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    197        5                      -1.669071E+00         -2.978227E+00          1.232584E+01              0.0                   \r\n                                       -3.299179E-01          3.415236E+00          1.933907E+00              0.0                   \r\n                                        1.015762E+00         -3.601539E+00         -1.449471E+01              0.0                   \r\n0    197        6                      -1.610901E+00         -3.373392E+00          7.212097E+00              0.0                   \r\n                                       -1.889038E-01          2.846221E+00          1.891853E+00              0.0                   \r\n                                        9.928360E-01         -2.177678E+00         -9.466644E+00              0.0                   \r\n0    197        7                      -1.453222E+00         -3.204571E+00          4.249336E+00              0.0                   \r\n                                       -9.854889E-02          2.289639E+00          1.707058E+00              0.0                   \r\n                                        8.847580E-01         -1.366695E+00         -6.374878E+00              0.0                   \r\n0    197        8                      -1.260349E+00         -2.819456E+00          2.519936E+00              0.0                   \r\n                                       -4.719543E-02          1.810351E+00          1.471603E+00              0.0                   \r\n                                        7.544518E-01         -9.020171E-01         -4.418568E+00              0.0                   \r\n0    197        9                      -1.066628E+00         -2.382936E+00          1.495842E+00              0.0                   \r\n                                       -2.085781E-02          1.418393E+00          1.234272E+00              0.0                   \r\n                                        6.280174E-01         -6.273904E-01         -3.137829E+00              0.0                   \r\n0    197       10                      -8.877540E-01         -1.965651E+00          8.818054E-01              0.0                   \r\n                                       -7.831573E-03          1.106043E+00          1.016612E+00              0.0                   \r\n                                        5.142441E-01         -4.590560E-01         -2.271652E+00              0.0                   \r\n0    197                0.0000         -1.411303E+01              0.0               1.302948E+02              0.0                   \r\n                                       -3.542250E+00              0.0               1.667777E+01              0.0                   \r\n                                        9.820473E+00              0.0              -1.486917E+02              0.0                   \r\n0    197                3.5810         -1.322318E+01         -6.567699E+00          1.264504E+02              0.0                   \r\n                                       -3.457838E+00          7.151292E+00          1.565108E+01              0.0                   \r\n                                        9.290808E+00         -7.772902E+00         -1.435632E+02              0.0                   \r\n0    197                7.1620         -1.075838E+01         -1.145691E+01          1.153991E+02              0.0                   \r\n                                       -3.214179E+00          1.309827E+01          1.280793E+01              0.0                   \r\n                                        7.822980E+00         -1.474778E+01         -1.289675E+02              0.0                   \r\n0    198        0                      -1.102600E+00              0.0              -8.213196E-01              0.0                   \r\n                                        3.266830E-01              0.0              -3.077316E+00              0.0                   \r\n                                        4.333393E-01              0.0               3.898670E+00              0.0                   \r\n0    198        1                      -1.154121E+00          3.181324E-01         -8.492548E-01              0.0                   \r\n                                        3.371353E-01          2.570462E+00          7.140701E+00              0.0                   \r\n                                        4.660459E-01         -3.239435E+00         -6.215469E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   144\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    198        2                      -1.677856E+00          3.231685E-01         -1.207601E+00              0.0                   \r\n                                        3.649597E-01          2.264060E+00          4.048856E+01              0.0                   \r\n                                        6.071416E-01         -4.042765E+00         -3.910751E+01              0.0                   \r\n0    198        3                      -2.333130E+00         -1.055675E+00         -1.643786E+00              0.0                   \r\n                                        3.402710E-01         -3.028655E+00          4.707446E+01              0.0                   \r\n                                        6.168647E-01         -7.771564E-02         -4.552707E+01              0.0                   \r\n0    198        4                      -2.027176E+00         -1.169728E+00         -1.700871E+00              0.0                   \r\n                                        2.748260E-01         -6.089681E+00          2.724585E+01              0.0                   \r\n                                        6.828303E-01          2.906028E+00         -2.596890E+01              0.0                   \r\n0    198        5                      -1.555695E+00         -9.742968E-01         -1.507397E+00              0.0                   \r\n                                        2.051086E-01         -7.294894E+00          1.588237E+01              0.0                   \r\n                                        6.013784E-01          4.401424E+00         -1.506699E+01              0.0                   \r\n0    198        6                      -1.133194E+00         -8.215537E-01         -1.222707E+00              0.0                   \r\n                                        1.518707E-01         -7.107906E+00          9.044312E+00              0.0                   \r\n                                        4.541206E-01          4.605517E+00         -8.655334E+00              0.0                   \r\n0    198        7                      -8.139000E-01         -6.947603E-01         -9.655061E-01              0.0                   \r\n                                        1.143074E-01         -6.310607E+00          5.005493E+00              0.0                   \r\n                                        3.245018E-01          4.191180E+00         -4.913216E+00              0.0                   \r\n0    198        8                      -5.862274E-01         -5.881780E-01         -7.594788E-01              0.0                   \r\n                                        8.871460E-02         -5.358099E+00          2.659145E+00              0.0                   \r\n                                        2.273482E-01          3.580172E+00         -2.749786E+00              0.0                   \r\n0    198        9                      -4.241199E-01         -4.952217E-01         -5.987652E-01              0.0                   \r\n                                        7.005882E-02         -4.439173E+00          1.305134E+00              0.0                   \r\n                                        1.578967E-01          2.956676E+00         -1.497978E+00              0.0                   \r\n0    198       10                      -3.087215E-01         -4.153118E-01         -4.733799E-01              0.0                   \r\n                                        5.655670E-02         -3.620162E+00          5.325718E-01              0.0                   \r\n                                        1.089917E-01          2.391812E+00         -7.742481E-01              0.0                   \r\n0    198                0.0000         -1.311674E+01              0.0              -1.175007E+01              0.0                   \r\n                                        2.330492E+00              0.0               1.533013E+02              0.0                   \r\n                                        4.680459E+00              0.0              -1.465778E+02              0.0                   \r\n0    198                3.5810         -1.257126E+01         -2.109914E+00         -1.113367E+01              0.0                   \r\n                                        2.248878E+00         -1.620259E+01          1.488029E+02              0.0                   \r\n                                        4.478761E+00          9.506564E+00         -1.421476E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   145\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    198                7.1620         -1.103283E+01         -3.827059E+00         -9.409961E+00              0.0                   \r\n                                        2.019309E+00         -2.905473E+01          1.358246E+02              0.0                   \r\n                                        3.910509E+00          1.684232E+01         -1.293900E+02              0.0                   \r\n0    201        0                      -1.595070E+00              0.0               5.075211E+00              0.0                   \r\n                                        8.791809E-01              0.0               2.209274E+00              0.0                   \r\n                                        3.493652E-01              0.0              -7.284546E+00              0.0                   \r\n0    201        1                      -1.929710E+00          5.731011E+00          9.930038E+00              0.0                   \r\n                                        1.203346E+00          8.145243E-01          2.771515E+00              0.0                   \r\n                                        3.796539E-01         -6.891781E+00         -1.255133E+01              0.0                   \r\n0    201        2                      -2.343456E+00          1.247272E+01          1.540494E+01              0.0                   \r\n                                        1.980301E+00          2.794551E+00          3.765121E+00              0.0                   \r\n                                        4.371719E-01         -1.497774E+01         -1.853352E+01              0.0                   \r\n0    201        3                      -1.504998E+00          1.640487E+01         -1.860649E+00              0.0                   \r\n                                        2.049449E+00          5.969434E+00          3.100960E+00              0.0                   \r\n                                        3.544722E-01         -1.900409E+01         -6.108475E-02              0.0                   \r\n0    201        4                      -1.203403E+00          1.512436E+01         -6.602798E+00              0.0                   \r\n                                        1.649509E+00          6.087019E+00          2.618412E+00              0.0                   \r\n                                        2.331390E-01         -1.726421E+01          5.404144E+00              0.0                   \r\n0    201        5                      -1.192837E+00          1.249606E+01         -4.917381E+00              0.0                   \r\n                                        1.461765E+00          5.310773E+00          2.474354E+00              0.0                   \r\n                                        1.361237E-01         -1.410571E+01          3.890961E+00              0.0                   \r\n0    201        6                      -1.134571E+00          9.774541E+00         -2.970253E+00              0.0                   \r\n                                        1.283669E+00          4.352960E+00          2.257072E+00              0.0                   \r\n                                        6.774139E-02         -1.086514E+01          2.053505E+00              0.0                   \r\n0    201        7                      -1.016235E+00          7.515780E+00         -1.576649E+00              0.0                   \r\n                                        1.086689E+00          3.472319E+00          1.968212E+00              0.0                   \r\n                                        2.656555E-02         -8.211583E+00          7.947235E-01              0.0                   \r\n0    201        8                      -8.721857E-01          5.755710E+00         -7.047043E-01              0.0                   \r\n                                        8.931561E-01          2.737981E+00          1.661985E+00              0.0                   \r\n                                        3.223419E-03         -6.176969E+00          6.786346E-02              0.0                   \r\n0    201        9                      -7.273884E-01          4.405402E+00         -1.963978E-01              0.0                   \r\n                                        7.183380E-01          2.144608E+00          1.372937E+00              0.0                   \r\n                                       -8.834839E-03         -4.641267E+00         -3.042488E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   146\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    201       10                      -5.945168E-01          3.371421E+00          8.086586E-02              0.0                   \r\n                                        5.691872E-01          1.673086E+00          1.116158E+00              0.0                   \r\n                                       -1.478386E-02         -3.486704E+00         -4.636192E-01              0.0                   \r\n0    201                0.0000         -1.411437E+01              0.0               1.166222E+01              0.0                   \r\n                                        1.377459E+01              0.0               2.531600E+01              0.0                   \r\n                                        1.963838E+00              0.0              -2.698716E+01              0.0                   \r\n0    201                3.5810         -1.346497E+01          2.640046E+01          1.245483E+01              0.0                   \r\n                                        1.307962E+01          1.115155E+01          2.405740E+01              0.0                   \r\n                                        1.936184E+00         -2.938352E+01         -2.726477E+01              0.0                   \r\n0    201                7.1620         -1.165805E+01          4.882046E+01          1.471630E+01              0.0                   \r\n                                        1.113950E+01          2.046400E+01          2.055215E+01              0.0                   \r\n                                        1.854331E+00         -5.445882E+01         -2.808291E+01              0.0                   \r\n0    202        0                      -2.739334E-01              0.0               2.192276E+00              0.0                   \r\n                                       -9.415207E-01              0.0               3.281219E+00              0.0                   \r\n                                        4.813131E-01              0.0              -5.473480E+00              0.0                   \r\n0    202        1                      -1.265278E+00          4.674261E+00          6.740200E+00              0.0                   \r\n                                       -7.298355E-01          4.976595E+00          9.060532E+00              0.0                   \r\n                                        1.322756E+00         -1.032321E+01         -1.554377E+01              0.0                   \r\n0    202        2                      -3.331970E+00          9.464867E+00          1.513109E+01              0.0                   \r\n                                       -1.550980E-01          1.084648E+01          2.030440E+01              0.0                   \r\n                                        3.430043E+00         -2.035220E+01         -3.440082E+01              0.0                   \r\n0    202        3                      -1.462364E+00          1.057320E+01          5.586403E+00              0.0                   \r\n                                       -1.575470E-01          1.490850E+01          9.031227E+00              0.0                   \r\n                                        2.635115E+00         -2.184489E+01         -1.285875E+01              0.0                   \r\n0    202        4                      -3.736067E-02          9.176981E+00         -4.462566E-01              0.0                   \r\n                                       -8.267541E-01          1.326301E+01          1.694563E+00              0.0                   \r\n                                        1.708077E+00         -1.802669E+01          7.347546E-01              0.0                   \r\n0    202        5                       2.988434E-01          7.340650E+00         -1.050964E+00              0.0                   \r\n                                       -1.010684E+00          1.052744E+01          6.045990E-01              0.0                   \r\n                                        1.299231E+00         -1.363766E+01          2.359447E+00              0.0                   \r\n0    202        6                       3.885660E-01          5.607613E+00         -7.265377E-01              0.0                   \r\n                                       -9.388828E-01          8.046990E+00          4.879112E-01              0.0                   \r\n                                        9.390760E-01         -9.873239E+00          1.936909E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   147\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    202        7                       3.837051E-01          4.241227E+00         -3.436670E-01              0.0                   \r\n                                       -8.022985E-01          6.112863E+00          5.300407E-01              0.0                   \r\n                                        6.643155E-01         -7.113570E+00          1.271982E+00              0.0                   \r\n0    202        8                       3.416500E-01          3.214920E+00         -6.868267E-02              0.0                   \r\n                                       -6.637187E-01          4.656832E+00          5.616531E-01              0.0                   \r\n                                        4.690928E-01         -5.155624E+00          7.396679E-01              0.0                   \r\n0    202        9                       2.902293E-01          2.445453E+00          9.747982E-02              0.0                   \r\n                                       -5.414500E-01          3.560067E+00          5.554953E-01              0.0                   \r\n                                        3.324277E-01         -3.762956E+00          3.791199E-01              0.0                   \r\n0    202       10                       2.397542E-01          1.864331E+00          1.840191E-01              0.0                   \r\n                                       -4.379759E-01          2.729740E+00          5.196533E-01              0.0                   \r\n                                        2.364243E-01         -2.762102E+00          1.538668E-01              0.0                   \r\n0    202                0.0000         -4.428158E+00              0.0               2.729536E+01              0.0                   \r\n                                       -7.205765E+00              0.0               4.663129E+01              0.0                   \r\n                                        1.351787E+01              0.0              -6.070107E+01              0.0                   \r\n0    202                3.5810         -4.582380E+00          1.575726E+01          2.717246E+01              0.0                   \r\n                                       -6.737435E+00          2.222568E+01          4.587852E+01              0.0                   \r\n                                        1.304515E+01         -2.863165E+01         -6.074651E+01              0.0                   \r\n0    202                7.1620         -4.993310E+00          2.925047E+01          2.680591E+01              0.0                   \r\n                                       -5.439111E+00          4.118105E+01          4.372886E+01              0.0                   \r\n                                        1.170602E+01         -5.349007E+01         -6.079011E+01              0.0                   \r\n0    203        0                      -1.034019E+00              0.0               2.214951E+00              0.0                   \r\n                                        4.440918E-01              0.0               5.248718E-01              0.0                   \r\n                                        2.299754E-01              0.0              -2.739853E+00              0.0                   \r\n0    203        1                       2.438622E-01          7.437337E+00          1.108197E+01              0.0                   \r\n                                       -1.018524E-01         -1.905932E+00         -4.883460E-01              0.0                   \r\n                                       -4.656094E-01         -5.854843E+00         -1.044847E+01              0.0                   \r\n0    203        2                       2.342018E+00          1.432983E+01          2.809505E+01              0.0                   \r\n                                       -1.132812E+00         -3.130787E+00         -1.675554E+00              0.0                   \r\n                                       -1.261070E+00         -1.145137E+01         -2.584425E+01              0.0                   \r\n0    203        3                      -1.274498E+00          1.465266E+01          1.022713E+01              0.0                   \r\n                                        3.572464E-01         -1.439642E+00          2.138944E+00              0.0                   \r\n                                        1.365960E+00         -1.210982E+01         -1.141959E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   148\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    203        4                      -2.946722E+00          1.208941E+01         -1.930997E+00              0.0                   \r\n                                        1.102571E+00         -7.562413E-01          3.571618E+00              0.0                   \r\n                                        2.301847E+00         -9.819129E+00         -5.963020E-01              0.0                   \r\n0    203        5                      -2.819810E+00          9.225391E+00         -3.477522E+00              0.0                   \r\n                                        1.129147E+00         -4.076008E-01          3.241881E+00              0.0                   \r\n                                        2.067065E+00         -7.307920E+00          1.223021E+00              0.0                   \r\n0    203        6                      -2.369591E+00          6.736712E+00         -3.000498E+00              0.0                   \r\n                                        1.017812E+00         -1.420592E-01          2.602493E+00              0.0                   \r\n                                        1.639304E+00         -5.223660E+00          1.259647E+00              0.0                   \r\n0    203        7                      -1.901738E+00          4.894613E+00         -2.228459E+00              0.0                   \r\n                                        8.661709E-01          1.539326E-02          2.008964E+00              0.0                   \r\n                                        1.248029E+00         -3.727863E+00          9.489336E-01              0.0                   \r\n0    203        8                      -1.497001E+00          3.577029E+00         -1.563922E+00              0.0                   \r\n                                        7.140789E-01          9.590220E-02          1.532498E+00              0.0                   \r\n                                        9.379374E-01         -2.682693E+00          6.406870E-01              0.0                   \r\n0    203        9                      -1.168144E+00          2.633909E+00         -1.068506E+00              0.0                   \r\n                                        5.773964E-01          1.303433E-01          1.166195E+00              0.0                   \r\n                                        7.026234E-01         -1.947755E+00          4.074001E-01              0.0                   \r\n0    203       10                      -9.071774E-01          1.949159E+00         -7.187457E-01              0.0                   \r\n                                        4.612489E-01          1.402332E-01          8.879088E-01              0.0                   \r\n                                        5.262011E-01         -1.424161E+00          2.469201E-01              0.0                   \r\n0    203                0.0000         -1.333282E+01              0.0               3.763046E+01              0.0                   \r\n                                        5.435098E+00              0.0               1.551147E+01              0.0                   \r\n                                        9.292263E+00              0.0              -4.632186E+01              0.0                   \r\n0    203                3.5810         -1.222253E+01          1.961092E+01          3.834917E+01              0.0                   \r\n                                        4.933024E+00         -9.381102E-01          1.431475E+01              0.0                   \r\n                                        8.553378E+00         -1.537764E+01         -4.630515E+01              0.0                   \r\n0    203                7.1620         -9.132877E+00          3.661822E+01          4.027758E+01              0.0                   \r\n                                        3.541293E+00         -1.894182E+00          1.097336E+01              0.0                   \r\n                                        6.488613E+00         -2.877029E+01         -4.617550E+01              0.0                   \r\n0    204        0                      -1.146461E+00              0.0              -2.515171E+00              0.0                   \r\n                                       -1.780426E+00              0.0              -8.132782E-01              0.0                   \r\n                                        2.615959E+00              0.0               3.328384E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   149\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    204        1                      -1.328570E+00          6.031561E-01         -1.711729E+00              0.0                   \r\n                                       -1.264852E+00          4.808512E+00          6.620590E+00              0.0                   \r\n                                        2.304255E+00         -5.700437E+00         -4.785629E+00              0.0                   \r\n0    204        2                      -8.041840E-01         -2.515597E-01          3.299255E-01              0.0                   \r\n                                        5.833435E-02          8.630303E+00          2.499756E+01              0.0                   \r\n                                        5.536194E-01         -8.756625E+00         -2.488812E+01              0.0                   \r\n0    204        3                       1.201675E+00         -4.063786E+00         -1.032898E+00              0.0                   \r\n                                       -8.572464E-01          7.933505E+00          1.784659E+01              0.0                   \r\n                                       -4.580688E-01         -3.649971E+00         -1.622198E+01              0.0                   \r\n0    204        4                       9.035034E-01         -4.718911E+00         -2.699989E+00              0.0                   \r\n                                       -1.985603E+00          5.781163E+00          5.910034E+00              0.0                   \r\n                                        9.005051E-01         -5.581197E-01         -2.645782E+00              0.0                   \r\n0    204        5                       3.220177E-01         -4.320487E+00         -3.094749E+00              0.0                   \r\n                                       -2.245384E+00          3.814551E+00          1.934818E+00              0.0                   \r\n                                        1.680206E+00          1.105442E+00          1.614189E+00              0.0                   \r\n0    204        6                      -3.788757E-02         -3.648160E+00         -2.961018E+00              0.0                   \r\n                                       -2.140424E+00          2.418623E+00          3.452473E-01              0.0                   \r\n                                        1.901859E+00          1.828359E+00          2.950577E+00              0.0                   \r\n0    204        7                      -2.121162E-01         -2.961092E+00         -2.604650E+00              0.0                   \r\n                                       -1.884131E+00          1.545500E+00         -2.761211E-01              0.0                   \r\n                                        1.812973E+00          1.960757E+00          3.120798E+00              0.0                   \r\n0    204        8                      -2.760148E-01         -2.354810E+00         -2.191074E+00              0.0                   \r\n                                       -1.589352E+00          1.006626E+00         -4.768934E-01              0.0                   \r\n                                        1.592875E+00          1.820416E+00          2.838715E+00              0.0                   \r\n0    204        9                      -2.810278E-01         -1.851019E+00         -1.794901E+00              0.0                   \r\n                                       -1.307359E+00          6.686618E-01         -4.998121E-01              0.0                   \r\n                                        1.337064E+00          1.579643E+00          2.416019E+00              0.0                   \r\n0    204       10                      -2.585304E-01         -1.444816E+00         -1.445481E+00              0.0                   \r\n                                       -1.057715E+00          4.520430E-01         -4.524670E-01              0.0                   \r\n                                        1.091329E+00          1.320624E+00          1.984104E+00              0.0                   \r\n0    204                0.0000         -1.917596E+00              0.0              -2.172174E+01              0.0                   \r\n                                       -1.605416E+01              0.0               5.513626E+01              0.0                   \r\n                                        1.533258E+01              0.0              -3.028873E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   150\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    204                3.5810         -1.824901E+00         -8.799219E+00         -2.019992E+01              0.0                   \r\n                                       -1.494449E+01          8.102558E+00          5.456100E+01              0.0                   \r\n                                        1.431218E+01          2.061918E+00         -3.139063E+01              0.0                   \r\n0    204                7.1620         -1.587149E+00         -1.604803E+01         -1.598382E+01              0.0                   \r\n                                       -1.186979E+01          1.535827E+01          5.279786E+01              0.0                   \r\n                                        1.150018E+01          3.126794E+00         -3.428142E+01              0.0                   \r\n0    205        0                      -2.181213E+00              0.0              -2.339249E-01              0.0                   \r\n                                       -1.323704E+00              0.0               3.110748E+00              0.0                   \r\n                                        3.182861E+00              0.0              -2.876862E+00              0.0                   \r\n0    205        1                      -2.058987E+00          4.484508E+00          7.288713E+00              0.0                   \r\n                                       -1.016895E+00         -1.810236E-01          2.970131E+00              0.0                   \r\n                                        2.763100E+00         -4.616576E+00         -1.014481E+01              0.0                   \r\n0    205        2                      -1.576477E+00          7.513267E+00          2.683627E+01              0.0                   \r\n                                        1.285934E+00          1.189358E+00          2.304840E+00              0.0                   \r\n                                       -8.480835E-02         -9.385560E+00         -2.875653E+01              0.0                   \r\n0    205        3                      -1.889938E+00          5.685702E+00          2.202338E+01              0.0                   \r\n                                        4.055023E+00          5.237941E+00          2.682388E+00              0.0                   \r\n                                       -2.774506E+00         -1.200272E+01         -2.425598E+01              0.0                   \r\n0    205        4                      -2.451637E+00          3.395105E+00          9.469681E+00              0.0                   \r\n                                        2.801979E+00          5.749839E+00          3.491859E+00              0.0                   \r\n                                       -9.677277E-01         -1.010379E+01         -1.259311E+01              0.0                   \r\n0    205        5                      -2.548830E+00          1.648698E+00          4.672012E+00              0.0                   \r\n                                        1.677948E+00          5.148724E+00          3.611214E+00              0.0                   \r\n                                        2.889290E-01         -7.556742E+00         -8.046928E+00              0.0                   \r\n0    205        6                      -2.366934E+00          6.062872E-01          2.434673E+00              0.0                   \r\n                                        9.685898E-01          4.281337E+00          3.323410E+00              0.0                   \r\n                                        8.643379E-01         -5.491260E+00         -5.637714E+00              0.0                   \r\n0    205        7                      -2.062299E+00          8.500409E-02          1.307819E+00              0.0                   \r\n                                        5.430117E-01          3.435605E+00          2.868478E+00              0.0                   \r\n                                        1.040243E+00         -4.009389E+00         -4.133074E+00              0.0                   \r\n0    205        8                      -1.732293E+00         -1.498116E-01          7.179451E-01              0.0                   \r\n                                        2.953568E-01          2.709403E+00          2.386746E+00              0.0                   \r\n                                        1.015861E+00         -2.959922E+00         -3.107963E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   151\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    205        9                      -1.422580E+00         -2.381185E-01          3.981891E-01              0.0                   \r\n                                        1.522613E-01          2.116633E+00          1.941891E+00              0.0                   \r\n                                        9.057403E-01         -2.207575E+00         -2.368839E+00              0.0                   \r\n0    205       10                      -1.150430E+00         -2.542510E-01          2.200880E-01              0.0                   \r\n                                        7.083058E-02          1.642901E+00          1.556356E+00              0.0                   \r\n                                        7.682142E-01         -1.658594E+00         -1.817309E+00              0.0                   \r\n0    205                0.0000         -2.144162E+01              0.0               7.513483E+01              0.0                   \r\n                                        9.510335E+00              0.0               3.024806E+01              0.0                   \r\n                                        7.002244E+00              0.0              -1.037391E+02              0.0                   \r\n0    205                3.5810         -2.018506E+01          3.534003E+00          7.352133E+01              0.0                   \r\n                                        9.071381E+00          1.053157E+01          2.850709E+01              0.0                   \r\n                                        6.495052E+00         -1.579564E+01         -1.004185E+02              0.0                   \r\n0    205                7.1620         -1.669458E+01          6.989132E+00          6.884077E+01              0.0                   \r\n                                        7.810575E+00          1.926342E+01          2.366779E+01              0.0                   \r\n                                        5.126429E+00         -2.943633E+01         -9.100062E+01              0.0                   \r\n0    206        0                      -1.967697E-01              0.0              -1.261780E+00              0.0                   \r\n                                       -8.518238E-01              0.0              -1.540211E+00              0.0                   \r\n                                        7.375267E-01              0.0               2.802010E+00              0.0                   \r\n0    206        1                      -6.984100E-01          3.745443E-02         -1.857330E+00              0.0                   \r\n                                       -7.705917E-01          4.008267E+00          7.947289E+00              0.0                   \r\n                                        1.158124E+00         -4.356153E+00         -5.984726E+00              0.0                   \r\n0    206        2                      -2.662872E+00         -7.592585E-01         -3.768574E+00              0.0                   \r\n                                       -2.243958E-01          6.684235E+00          3.540625E+01              0.0                   \r\n                                        2.432993E+00         -6.808804E+00         -3.131509E+01              0.0                   \r\n0    206        3                      -3.645721E+00         -3.754137E+00         -4.275120E+00              0.0                   \r\n                                        2.315369E-01          5.898774E+00          3.452606E+01              0.0                   \r\n                                        2.650184E+00         -4.038522E+00         -2.999762E+01              0.0                   \r\n0    206        4                      -2.491119E+00         -3.832469E+00         -3.640377E+00              0.0                   \r\n                                       -3.858643E-01          3.303572E+00          1.792259E+01              0.0                   \r\n                                        2.224093E+00         -1.283252E+00         -1.421469E+01              0.0                   \r\n0    206        5                      -1.630180E+00         -3.194318E+00         -3.077939E+00              0.0                   \r\n                                       -7.372971E-01          1.212466E+00          1.007141E+01              0.0                   \r\n                                        1.853716E+00          4.794298E-01         -7.114655E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   152\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    206        6                      -1.048401E+00         -2.584378E+00         -2.484015E+00              0.0                   \r\n                                       -8.282166E-01          1.184580E-01          5.718826E+00              0.0                   \r\n                                        1.463747E+00          1.243398E+00         -3.479683E+00              0.0                   \r\n0    206        7                      -6.757584E-01         -2.073225E+00         -1.965284E+00              0.0                   \r\n                                       -7.931480E-01         -3.384969E-01          3.258301E+00              0.0                   \r\n                                        1.129928E+00          1.416867E+00         -1.595596E+00              0.0                   \r\n0    206        8                      -4.409637E-01         -1.656636E+00         -1.545527E+00              0.0                   \r\n                                       -7.064495E-01         -4.832759E-01          1.863888E+00              0.0                   \r\n                                        8.661997E-01          1.329943E+00         -6.348648E-01              0.0                   \r\n0    206        9                      -2.917757E-01         -1.321071E+00         -1.213099E+00              0.0                   \r\n                                       -6.056385E-01         -4.880660E-01          1.065168E+00              0.0                   \r\n                                        6.628215E-01          1.148731E+00         -1.566296E-01              0.0                   \r\n0    206       10                      -1.960344E-01         -1.051471E+00         -9.512852E-01              0.0                   \r\n                                       -5.067482E-01         -4.337328E-01          6.032934E-01              0.0                   \r\n                                        5.068140E-01          9.487057E-01          6.916618E-02              0.0                   \r\n0    206                0.0000         -1.397801E+01              0.0              -2.604033E+01              0.0                   \r\n                                       -6.178637E+00              0.0               1.168429E+02              0.0                   \r\n                                        1.568615E+01              0.0              -9.162238E+01              0.0                   \r\n0    206                3.5810         -1.346307E+01         -6.661293E+00         -2.475646E+01              0.0                   \r\n                                       -5.723883E+00          2.527563E+00          1.136904E+02              0.0                   \r\n                                        1.494742E+01          8.171846E-01         -8.957325E+01              0.0                   \r\n0    206                7.1620         -1.199649E+01         -1.220132E+01         -2.116020E+01              0.0                   \r\n                                       -4.471937E+00          5.169543E+00          1.046029E+02              0.0                   \r\n                                        1.287399E+01          9.493933E-01         -8.359240E+01              0.0                   \r\n0    207        0                      -1.416529E+00              0.0              -3.366253E+00              0.0                   \r\n                                        1.115868E+00              0.0               1.526794E-01              0.0                   \r\n                                        2.388775E-03              0.0               3.213526E+00              0.0                   \r\n0    207        1                      -1.689804E+00          4.116757E+00          5.402679E+00              0.0                   \r\n                                        1.148842E+00         -3.899066E-01          5.412915E-01              0.0                   \r\n                                        2.388458E-01         -4.028546E+00         -5.847740E+00              0.0                   \r\n0    207        2                      -2.787933E+00          5.442780E+00          3.212888E+01              0.0                   \r\n                                        1.208252E+00         -6.889145E-01          1.879753E+00              0.0                   \r\n                                        1.000277E+00         -5.925259E+00         -3.373761E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   153\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    207        3                      -3.630737E+00         -7.122374E-02          3.428934E+01              0.0                   \r\n                                        1.444427E+00         -4.436054E-01          2.211262E+00              0.0                   \r\n                                        1.077973E+00         -2.726266E+00         -3.638025E+01              0.0                   \r\n0    207        4                      -3.082840E+00         -2.876818E+00          1.761446E+01              0.0                   \r\n                                        1.424591E+00         -5.583053E-01          1.585319E+00              0.0                   \r\n                                        7.953625E-01          1.096621E-01         -1.931966E+01              0.0                   \r\n0    207        5                      -2.503716E+00         -4.028049E+00          9.371429E+00              0.0                   \r\n                                        1.315086E+00         -6.348557E-01          1.067227E+00              0.0                   \r\n                                        5.839030E-01          1.765532E+00         -1.077303E+01              0.0                   \r\n0    207        6                      -1.986588E+00         -4.159789E+00          4.981316E+00              0.0                   \r\n                                        1.166973E+00         -6.026844E-01          6.480443E-01              0.0                   \r\n                                        3.910098E-01          2.311170E+00         -6.088455E+00              0.0                   \r\n0    207        7                      -1.558773E+00         -3.778879E+00          2.599812E+00              0.0                   \r\n                                        9.991722E-01         -5.315551E-01          3.620659E-01              0.0                   \r\n                                        2.501232E-01          2.261844E+00         -3.465889E+00              0.0                   \r\n0    207        8                      -1.217669E+00         -3.230390E+00          1.307621E+00              0.0                   \r\n                                        8.343925E-01         -4.549623E-01          1.814390E-01              0.0                   \r\n                                        1.561970E-01          1.983902E+00         -1.988190E+00              0.0                   \r\n0    207        9                      -9.488335E-01         -2.672125E+00          6.062145E-01              0.0                   \r\n                                        6.846991E-01         -3.825218E-01          7.206184E-02              0.0                   \r\n                                        9.539898E-02          1.648733E+00         -1.144392E+00              0.0                   \r\n0    207       10                      -7.380810E-01         -2.165703E+00          2.294903E-01              0.0                   \r\n                                        5.551414E-01         -3.166510E-01          8.385792E-03              0.0                   \r\n                                        5.650172E-02          1.327907E+00         -6.567173E-01              0.0                   \r\n0    207                0.0000         -2.156150E+01              0.0               1.051650E+02              0.0                   \r\n                                        1.189744E+01              0.0               8.709529E+00              0.0                   \r\n                                        4.647981E+00              0.0              -1.161884E+02              0.0                   \r\n0    207                3.5810         -2.053606E+01         -8.393281E+00          1.024134E+02              0.0                   \r\n                                        1.126469E+01         -1.579591E+00          8.440041E+00              0.0                   \r\n                                        4.472579E+00          3.483569E+00         -1.128603E+02              0.0                   \r\n0    207                7.1620         -1.766117E+01         -1.482272E+01          9.444028E+01              0.0                   \r\n                                        9.502579E+00         -2.867935E+00          7.663380E+00              0.0                   \r\n                                        3.972899E+00          5.847451E+00         -1.032717E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   154\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    208        0                       1.300594E+00              0.0              -1.760990E+00              0.0                   \r\n                                       -1.264292E+00              0.0              -6.225880E+00              0.0                   \r\n                                       -3.074417E-01              0.0               7.986839E+00              0.0                   \r\n0    208        1                       1.190636E+00         -2.893439E-01         -1.567551E+00              0.0                   \r\n                                       -1.159874E+00          3.277965E+00          3.809113E+00              0.0                   \r\n                                       -3.203888E-01         -3.278659E+00         -2.159698E+00              0.0                   \r\n0    208        2                       5.495605E-01         -1.632585E+00         -9.342957E-01              0.0                   \r\n                                       -8.962708E-01          3.187539E+00          3.644775E+01              0.0                   \r\n                                       -3.551025E-01         -2.900399E+00         -3.533771E+01              0.0                   \r\n0    208        3                       2.236023E-01         -4.612194E+00         -1.336334E+00              0.0                   \r\n                                       -1.355682E+00         -3.047532E+00          4.240198E+01              0.0                   \r\n                                       -3.434448E-01          3.655660E+00         -4.119049E+01              0.0                   \r\n0    208        4                       6.397247E-01         -4.964265E+00         -1.951981E+00              0.0                   \r\n                                       -1.616669E+00         -6.139642E+00          2.269193E+01              0.0                   \r\n                                       -2.766418E-01          6.955491E+00         -2.120312E+01              0.0                   \r\n0    208        5                       8.171387E-01         -4.443998E+00         -2.133057E+00              0.0                   \r\n                                       -1.586754E+00         -7.183307E+00          1.206570E+01              0.0                   \r\n                                       -2.079773E-01          7.995266E+00         -1.065903E+01              0.0                   \r\n0    208        6                       8.192673E-01         -3.709939E+00         -2.049484E+00              0.0                   \r\n                                       -1.432404E+00         -6.851419E+00          6.115524E+00              0.0                   \r\n                                       -1.527557E-01          7.492718E+00         -4.916763E+00              0.0                   \r\n0    208        7                       7.362671E-01         -2.997225E+00         -1.826050E+00              0.0                   \r\n                                       -1.225483E+00         -5.948821E+00          2.844292E+00              0.0                   \r\n                                       -1.142120E-01          6.393701E+00         -1.886307E+00              0.0                   \r\n0    208        8                       6.234818E-01         -2.385738E+00         -1.557098E+00              0.0                   \r\n                                       -1.014322E+00         -4.935761E+00          1.096657E+00              0.0                   \r\n                                       -8.719635E-02          5.216404E+00         -3.635025E-01              0.0                   \r\n0    208        9                       5.100040E-01         -1.882359E+00         -1.292318E+00              0.0                   \r\n                                       -8.219433E-01         -3.993960E+00          1.915016E-01              0.0                   \r\n                                       -6.823349E-02          4.150977E+00          3.523407E-01              0.0                   \r\n0    208       10                       4.078197E-01         -1.477036E+00         -1.053148E+00              0.0                   \r\n                                       -6.563196E-01         -3.181266E+00         -2.507343E-01              0.0                   \r\n                                       -5.398941E-02          3.252603E+00          6.440315E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   155\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    208                0.0000          7.818096E+00              0.0              -1.746231E+01              0.0                   \r\n                                       -1.303001E+01              0.0               1.211878E+02              0.0                   \r\n                                       -2.287384E+00              0.0              -1.087334E+02              0.0                   \r\n0    208                3.5810          7.389822E+00         -9.316374E+00         -1.636131E+01              0.0                   \r\n                                       -1.228004E+01         -1.508091E+01          1.180538E+02              0.0                   \r\n                                       -2.206529E+00          1.636489E+01         -1.061683E+02              0.0                   \r\n0    208                7.1620          6.203308E+00         -1.704646E+01         -1.330853E+01              0.0                   \r\n                                       -1.019354E+01         -2.707751E+01          1.089162E+02              0.0                   \r\n                                       -1.978944E+00          2.946155E+01         -9.862280E+01              0.0                   \r\n0    211        0                      -3.493195E-01              0.0               7.284424E+00              0.0                   \r\n                                       -2.970886E-02              0.0               2.118530E-01              0.0                   \r\n                                        2.240211E-02              0.0              -7.496338E+00              0.0                   \r\n0    211        1                      -3.798447E-01          6.891980E+00          1.255122E+01              0.0                   \r\n                                       -5.300064E-01          1.153692E-01          1.087017E+00              0.0                   \r\n                                        5.700424E-01         -7.347520E+00         -1.345229E+01              0.0                   \r\n0    211        2                      -4.403534E-01          1.497687E+01          1.853326E+01              0.0                   \r\n                                       -1.462173E+00          5.746309E-01          3.227363E+00              0.0                   \r\n                                        2.011955E+00         -1.530831E+01         -2.096873E+01              0.0                   \r\n0    211        3                      -3.562918E-01          1.900764E+01          6.096363E-02              0.0                   \r\n                                       -2.422504E-01          1.941222E+00          2.451994E+00              0.0                   \r\n                                        1.671450E+00         -1.761820E+01         -1.068821E+00              0.0                   \r\n0    211        4                      -2.368889E-01          1.726122E+01         -5.404243E+00              0.0                   \r\n                                        2.430420E-01          1.779103E+00          1.493208E+00              0.0                   \r\n                                        9.333757E-01         -1.515141E+01          5.603149E+00              0.0                   \r\n0    211        5                      -1.359100E-01          1.410575E+01         -3.890938E+00              0.0                   \r\n                                        2.225494E-01          1.344255E+00          1.133270E+00              0.0                   \r\n                                        6.168988E-01         -1.186766E+01          4.437172E+00              0.0                   \r\n0    211        6                      -6.736755E-02          1.086708E+01         -2.053589E+00              0.0                   \r\n                                        1.831245E-01          1.017121E+00          8.484626E-01              0.0                   \r\n                                        4.010888E-01         -8.791345E+00          2.720497E+00              0.0                   \r\n0    211        7                      -2.647972E-02          8.212254E+00         -7.945709E-01              0.0                   \r\n                                        1.471214E-01          7.793792E-01          6.331330E-01              0.0                   \r\n                                        2.570171E-01         -6.414971E+00          1.470665E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   156\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    211        8                      -3.458023E-03          6.176775E+00         -6.765175E-02              0.0                   \r\n                                        1.161652E-01          6.035928E-01          4.762183E-01              0.0                   \r\n                                        1.640006E-01         -4.673884E+00          6.973724E-01              0.0                   \r\n0    211        9                       9.094238E-03          4.641780E+00          3.041725E-01              0.0                   \r\n                                        9.035587E-02          4.689973E-01          3.613861E-01              0.0                   \r\n                                        1.042651E-01         -3.410771E+00          2.549839E-01              0.0                   \r\n0    211       10                       1.476765E-02          3.487021E+00          4.636431E-01              0.0                   \r\n                                        7.017612E-02          3.655482E-01          2.758357E-01              0.0                   \r\n                                        6.581414E-02         -2.492941E+00          1.818180E-02              0.0                   \r\n0    211                0.0000         -1.972052E+00              0.0               2.698670E+01              0.0                   \r\n                                       -1.191605E+00              0.0               1.219974E+01              0.0                   \r\n                                        6.818310E+00              0.0              -2.778416E+01              0.0                   \r\n0    211                3.5810         -1.944276E+00          2.938472E+01          2.726429E+01              0.0                   \r\n                                       -1.261241E+00          2.750266E+00          1.174343E+01              0.0                   \r\n                                        6.612646E+00         -2.450502E+01         -2.842031E+01              0.0                   \r\n0    211                7.1620         -1.862059E+00          5.446096E+01          2.808238E+01              0.0                   \r\n                                       -1.451801E+00          5.076532E+00          1.045521E+01              0.0                   \r\n                                        6.024631E+00         -4.565672E+01         -3.021377E+01              0.0                   \r\n0    212        0                       3.495941E-01              0.0              -2.998577E+00              0.0                   \r\n                                       -1.885864E+00              0.0               4.782028E+00              0.0                   \r\n                                        1.162582E+00              0.0              -1.783401E+00              0.0                   \r\n0    212        1                       2.265549E-01         -1.656603E+00         -4.351900E+00              0.0                   \r\n                                       -1.813165E+00          8.167324E+00          1.392089E+01              0.0                   \r\n                                        1.220751E+00         -6.876584E+00         -9.357456E+00              0.0                   \r\n0    212        2                      -5.212402E-02         -4.036731E+00         -6.287346E+00              0.0                   \r\n                                       -1.187561E+00          1.658050E+01          3.083223E+01              0.0                   \r\n                                        1.221954E+00         -1.249804E+01         -2.369849E+01              0.0                   \r\n0    212        3                       1.529541E-01         -6.058999E+00         -2.628334E+00              0.0                   \r\n                                       -8.543701E-01          1.927144E+01          1.084618E+01              0.0                   \r\n                                        1.416931E+00         -1.041418E+01         -6.812363E+00              0.0                   \r\n0    212        4                       1.461449E-01         -5.596706E+00         -1.156712E+00              0.0                   \r\n                                       -1.398836E+00          1.638061E+01         -1.226013E+00              0.0                   \r\n                                        1.777901E+00         -7.407261E+00          3.941158E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   157\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    212        5                       5.170834E-02         -4.531227E+00         -1.174329E+00              0.0                   \r\n                                       -1.636177E+00          1.259474E+01         -2.463785E+00              0.0                   \r\n                                        1.855391E+00         -4.913233E+00          5.112348E+00              0.0                   \r\n0    212        6                       8.937597E-03         -3.443244E+00         -1.221028E+00              0.0                   \r\n                                       -1.599922E+00          9.241014E+00         -1.952599E+00              0.0                   \r\n                                        1.693766E+00         -3.059809E+00          4.449944E+00              0.0                   \r\n0    212        7                      -8.291960E-03         -2.554663E+00         -1.152502E+00              0.0                   \r\n                                       -1.423681E+00          6.723013E+00         -1.280141E+00              0.0                   \r\n                                        1.432946E+00         -1.881272E+00          3.498338E+00              0.0                   \r\n0    212        8                      -1.431656E-02         -1.883280E+00         -1.013283E+00              0.0                   \r\n                                       -1.202023E+00          4.904584E+00         -7.581558E-01              0.0                   \r\n                                        1.161572E+00         -1.153330E+00          2.646269E+00              0.0                   \r\n0    212        9                      -1.567292E-02         -1.382262E+00         -8.508859E-01              0.0                   \r\n                                       -9.833188E-01          3.594073E+00         -4.075346E-01              0.0                   \r\n                                        9.177394E-01         -7.076876E-01          1.969299E+00              0.0                   \r\n0    212       10                      -1.503706E-02         -1.013497E+00         -6.929814E-01              0.0                   \r\n                                       -7.877817E-01          2.643209E+00         -1.882191E-01              0.0                   \r\n                                        7.126644E-01         -4.311821E-01          1.454222E+00              0.0                   \r\n0    212                0.0000          8.304514E-01              0.0              -2.352788E+01              0.0                   \r\n                                       -1.477270E+01              0.0               5.210488E+01              0.0                   \r\n                                        1.457420E+01              0.0              -1.858013E+01              0.0                   \r\n0    212                3.5810          8.278572E-01         -9.090487E+00         -2.275187E+01              0.0                   \r\n                                       -1.392934E+01          2.614214E+01          5.225192E+01              0.0                   \r\n                                        1.372132E+01         -1.037248E+01         -2.016870E+01              0.0                   \r\n0    212                7.1620          8.183801E-01         -1.686050E+01         -2.058656E+01              0.0                   \r\n                                       -1.159004E+01          4.873901E+01          5.259256E+01              0.0                   \r\n                                        1.134698E+01         -1.973769E+01         -2.452814E+01              0.0                   \r\n0    213        0                       1.472046E+00              0.0               3.525391E+00              0.0                   \r\n                                       -1.368805E+00              0.0               2.795582E-01              0.0                   \r\n                                       -4.299477E-01              0.0              -3.805008E+00              0.0                   \r\n0    213        1                       1.610668E+00          6.477623E+00          9.924301E+00              0.0                   \r\n                                       -1.349905E+00         -1.965424E-01          1.661219E+00              0.0                   \r\n                                       -5.580447E-01         -6.577754E+00         -1.142193E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   158\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    213        2                      -6.925659E-01          1.210588E+01          2.209105E+01              0.0                   \r\n                                        7.538300E-01          3.574848E-01          5.498096E+00              0.0                   \r\n                                       -1.164230E-01         -1.267922E+01         -2.695224E+01              0.0                   \r\n0    213        3                      -6.153023E+00          1.083364E+01          8.908875E+00              0.0                   \r\n                                        4.892479E+00          2.998195E+00          5.279186E+00              0.0                   \r\n                                        1.610632E+00         -1.278831E+01         -1.319385E+01              0.0                   \r\n0    213        4                      -5.407131E+00          8.319166E+00         -3.243732E-01              0.0                   \r\n                                        3.837051E+00          3.000885E+00          3.520923E+00              0.0                   \r\n                                        1.887087E+00         -9.931743E+00         -2.146523E+00              0.0                   \r\n0    213        5                      -3.737037E+00          6.015944E+00         -1.631896E+00              0.0                   \r\n                                        2.405172E+00          2.400303E+00          2.616087E+00              0.0                   \r\n                                        1.563241E+00         -7.078454E+00         -3.436852E-02              0.0                   \r\n0    213        6                      -2.407893E+00          4.134156E+00         -1.388940E+00              0.0                   \r\n                                        1.408409E+00          1.873095E+00          1.914392E+00              0.0                   \r\n                                        1.151228E+00         -4.837566E+00          2.664256E-01              0.0                   \r\n0    213        7                      -1.510257E+00          2.825760E+00         -9.375420E-01              0.0                   \r\n                                        7.887802E-01          1.451838E+00          1.394372E+00              0.0                   \r\n                                        8.140036E-01         -3.305699E+00          1.847777E-01              0.0                   \r\n0    213        8                      -9.381704E-01          1.946457E+00         -5.697153E-01              0.0                   \r\n                                        4.207189E-01          1.122356E+00          1.021074E+00              0.0                   \r\n                                        5.692086E-01         -2.283161E+00          6.273842E-02              0.0                   \r\n0    213        9                      -5.795577E-01          1.353452E+00         -3.182378E-01              0.0                   \r\n                                        2.069554E-01          8.658395E-01          7.528039E-01              0.0                   \r\n                                        3.975755E-01         -1.594682E+00         -2.480173E-02              0.0                   \r\n0    213       10                      -3.556631E-01          9.483757E-01         -1.592484E-01              0.0                   \r\n                                        8.567047E-02          6.674453E-01          5.580143E-01              0.0                   \r\n                                        2.781645E-01         -1.124075E+00         -7.357407E-02              0.0                   \r\n0    213                0.0000         -1.869858E+01              0.0               3.911967E+01              0.0                   \r\n                                        1.208036E+01              0.0               2.449573E+01              0.0                   \r\n                                        7.166725E+00              0.0              -5.713836E+01              0.0                   \r\n0    213                3.5810         -1.765843E+01          1.276239E+01          3.919460E+01              0.0                   \r\n                                        1.148383E+01          4.763095E+00          2.351005E+01              0.0                   \r\n                                        6.665924E+00         -1.478396E+01         -5.663199E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   159\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    213                7.1620         -1.470093E+01          2.402506E+01          3.934578E+01              0.0                   \r\n                                        9.772212E+00          8.755402E+00          2.072550E+01              0.0                   \r\n                                        5.256851E+00         -2.780569E+01         -5.512738E+01              0.0                   \r\n0    214        0                       1.433211E+00              0.0              -2.417770E+00              0.0                   \r\n                                       -2.879923E+00              0.0              -2.925568E-01              0.0                   \r\n                                        1.011892E+00              0.0               2.710350E+00              0.0                   \r\n0    214        1                       1.326145E+00         -4.567050E+00         -8.384056E+00              0.0                   \r\n                                       -2.634800E+00          8.794372E+00          1.231979E+01              0.0                   \r\n                                        8.793526E-01         -4.656776E+00         -3.712120E+00              0.0                   \r\n0    214        2                       7.160416E-01         -9.591797E+00         -2.340848E+01              0.0                   \r\n                                       -2.131866E+00          1.550715E+01          4.389154E+01              0.0                   \r\n                                        9.632874E-01         -6.707573E+00         -1.969452E+01              0.0                   \r\n0    214        3                       5.828590E-01         -1.263060E+01         -1.903050E+01              0.0                   \r\n                                       -3.612595E+00          1.352705E+01          3.268930E+01              0.0                   \r\n                                        2.435974E+00         -1.496128E+00         -1.262936E+01              0.0                   \r\n0    214        4                       1.205175E+00         -1.069857E+01         -9.620513E+00              0.0                   \r\n                                       -4.543541E+00          9.309227E+00          1.207272E+01              0.0                   \r\n                                        2.681442E+00          1.125526E+00         -1.512482E+00              0.0                   \r\n0    214        5                       1.378692E+00         -8.007122E+00         -6.131732E+00              0.0                   \r\n                                       -4.465015E+00          5.705502E+00          5.023430E+00              0.0                   \r\n                                        2.419510E+00          2.248127E+00          1.823639E+00              0.0                   \r\n0    214        6                       1.279772E+00         -5.770378E+00         -4.292914E+00              0.0                   \r\n                                       -3.944759E+00          3.298870E+00          2.080357E+00              0.0                   \r\n                                        2.027813E+00          2.514313E+00          2.705120E+00              0.0                   \r\n0    214        7                       1.082591E+00         -4.149793E+00         -3.131570E+00              0.0                   \r\n                                       -3.290556E+00          1.893585E+00          7.843323E-01              0.0                   \r\n                                        1.625881E+00          2.326964E+00          2.674503E+00              0.0                   \r\n0    214        8                       8.733814E-01         -3.004634E+00         -2.333043E+00              0.0                   \r\n                                       -2.658106E+00          1.091884E+00          2.175827E-01              0.0                   \r\n                                        1.269947E+00          1.981887E+00          2.329212E+00              0.0                   \r\n0    214        9                       6.855531E-01         -2.189205E+00         -1.755762E+00              0.0                   \r\n                                       -2.105742E+00          6.323901E-01         -2.077007E-02              0.0                   \r\n                                        9.757614E-01          1.614415E+00          1.914509E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   160\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    214       10                       5.285006E-01         -1.604970E+00         -1.326844E+00              0.0                   \r\n                                       -1.646227E+00          3.666929E-01         -1.097794E-01              0.0                   \r\n                                        7.412276E-01          1.282772E+00          1.524592E+00              0.0                   \r\n0    214                0.0000          1.109192E+01              0.0              -8.183318E+01              0.0                   \r\n                                       -3.391313E+01              0.0               1.086560E+02              0.0                   \r\n                                        1.703209E+01              0.0              -2.186656E+01              0.0                   \r\n0    214                3.5810          1.046594E+01         -1.636289E+01         -7.930433E+01              0.0                   \r\n                                       -3.192543E+01          1.214724E+01          1.068768E+02              0.0                   \r\n                                        1.603963E+01          4.032116E+00         -2.283381E+01              0.0                   \r\n0    214                7.1620          8.725302E+00         -3.052801E+01         -7.212492E+01              0.0                   \r\n                                       -2.638834E+01          2.322839E+01          1.016433E+02              0.0                   \r\n                                        1.326623E+01          6.908506E+00         -2.539688E+01              0.0                   \r\n0    215        0                      -1.550034E+00              0.0              -4.386272E-01              0.0                   \r\n                                        1.545900E+00              0.0              -2.979889E+00              0.0                   \r\n                                       -2.471513E-01              0.0               3.418575E+00              0.0                   \r\n0    215        1                      -1.082619E+00          1.719045E+00          9.494915E-01              0.0                   \r\n                                        8.167381E-01          3.067621E+00          4.442223E+00              0.0                   \r\n                                        2.047136E-02         -5.032011E+00         -5.269203E+00              0.0                   \r\n0    215        2                       9.081116E-01          2.278872E+00          4.254585E+00              0.0                   \r\n                                       -2.438721E+00          5.130014E+00          2.629453E+01              0.0                   \r\n                                        1.168566E+00         -8.177156E+00         -3.015771E+01              0.0                   \r\n0    215        3                       1.943817E+00         -8.702822E-01          2.507843E+00              0.0                   \r\n                                       -4.535065E+00          4.689213E+00          2.600034E+01              0.0                   \r\n                                        1.973311E+00         -5.491742E+00         -2.814127E+01              0.0                   \r\n0    215        4                       7.730713E-01         -1.644837E+00         -3.555145E-01              0.0                   \r\n                                       -3.025452E+00          2.567042E+00          1.288570E+01              0.0                   \r\n                                        1.773806E+00         -2.460257E+00         -1.233749E+01              0.0                   \r\n0    215        5                       9.217834E-02         -1.653268E+00         -1.207314E+00              0.0                   \r\n                                       -1.875916E+00          8.588486E-01          6.819244E+00              0.0                   \r\n                                        1.438758E+00         -4.326481E-01         -5.609001E+00              0.0                   \r\n0    215        6                      -2.296219E-01         -1.507520E+00         -1.307546E+00              0.0                   \r\n                                       -1.099056E+00          2.850533E-03          3.574562E+00              0.0                   \r\n                                        1.070767E+00          5.422195E-01         -2.395149E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   161\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    215        7                      -3.514118E-01         -1.295820E+00         -1.166504E+00              0.0                   \r\n                                       -6.217728E-01         -3.307365E-01          1.823723E+00              0.0                   \r\n                                        7.724332E-01          8.681730E-01         -8.515167E-01              0.0                   \r\n0    215        8                      -3.711395E-01         -1.073453E+00         -9.691577E-01              0.0                   \r\n                                       -3.425980E-01         -4.199808E-01          8.915596E-01              0.0                   \r\n                                        5.536033E-01          8.937618E-01         -1.389751E-01              0.0                   \r\n0    215        9                      -3.438511E-01         -8.696463E-01         -7.792263E-01              0.0                   \r\n                                       -1.826954E-01         -4.045670E-01          3.997831E-01              0.0                   \r\n                                        3.973660E-01          7.990847E-01          1.661034E-01              0.0                   \r\n0    215       10                      -2.988625E-01         -6.954163E-01         -6.150439E-01              0.0                   \r\n                                       -9.220362E-02         -3.491901E-01          1.447659E-01              0.0                   \r\n                                        2.861641E-01          6.678228E-01          2.738371E-01              0.0                   \r\n0    215                0.0000         -5.103607E-01              0.0               8.729870E-01              0.0                   \r\n                                       -1.185084E+01              0.0               8.029653E+01              0.0                   \r\n                                        9.208096E+00              0.0              -8.104181E+01              0.0                   \r\n0    215                3.5810         -3.739330E-01         -3.172447E+00          1.419213E+00              0.0                   \r\n                                       -1.134655E+01          1.843919E+00          7.827785E+01              0.0                   \r\n                                        8.709270E+00         -1.287343E+00         -7.946149E+01              0.0                   \r\n0    215                7.1620         -1.868933E-02         -5.666607E+00          2.910277E+00              0.0                   \r\n                                       -9.898597E+00          3.800685E+00          7.242085E+01              0.0                   \r\n                                        7.304285E+00         -2.951791E+00         -7.480662E+01              0.0                   \r\n0    216        0                       1.809590E+00              0.0               1.513337E+00              0.0                   \r\n                                       -1.985457E+00              0.0              -4.651288E+00              0.0                   \r\n                                       -1.100769E-01              0.0               3.137937E+00              0.0                   \r\n0    216        1                       1.722836E+00         -4.791076E+00         -7.152382E+00              0.0                   \r\n                                       -1.859291E+00          5.330209E+00          6.040897E+00              0.0                   \r\n                                       -1.628914E-01         -8.383783E-01          1.244469E+00              0.0                   \r\n0    216        2                       7.142944E-01         -8.226275E+00         -3.320709E+01              0.0                   \r\n                                       -1.303467E+00          7.310081E+00          3.850294E+01              0.0                   \r\n                                       -7.296753E-02         -3.321016E-01         -4.917328E+00              0.0                   \r\n0    216        3                      -3.086853E-01         -7.586772E+00         -3.474835E+01              0.0                   \r\n                                       -1.461441E+00          1.746935E+00          4.035732E+01              0.0                   \r\n                                        3.830719E-01          2.303315E+00         -5.393066E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   162\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    216        4                       6.057129E-01         -4.800756E+00         -1.878964E+01              0.0                   \r\n                                       -1.948654E+00         -1.833940E+00          2.017638E+01              0.0                   \r\n                                        1.464005E-01          3.063614E+00         -1.449936E+00              0.0                   \r\n0    216        5                       1.074856E+00         -2.459257E+00         -1.106665E+01              0.0                   \r\n                                       -2.034622E+00         -3.610610E+00          1.046977E+01              0.0                   \r\n                                        1.070404E-02          3.020595E+00          2.793503E-01              0.0                   \r\n0    216        6                       1.138737E+00         -1.129860E+00         -6.808376E+00              0.0                   \r\n                                       -1.880760E+00         -3.989747E+00          5.386293E+00              0.0                   \r\n                                       -1.125336E-02          2.597695E+00          9.595795E-01              0.0                   \r\n0    216        7                       1.027981E+00         -4.772049E-01         -4.326612E+00              0.0                   \r\n                                       -1.620350E+00         -3.665559E+00          2.686655E+00              0.0                   \r\n                                       -7.220268E-03          2.084726E+00          1.129379E+00              0.0                   \r\n0    216        8                       8.624125E-01         -1.775954E-01         -2.834137E+00              0.0                   \r\n                                       -1.339731E+00         -3.108959E+00          1.263559E+00              0.0                   \r\n                                       -8.192062E-04          1.619882E+00          1.070438E+00              0.0                   \r\n0    216        9                       6.952057E-01         -4.477990E-02         -1.904444E+00              0.0                   \r\n                                       -1.079861E+00         -2.529245E+00          5.196691E-01              0.0                   \r\n                                        3.580570E-03          1.232934E+00          9.259720E-01              0.0                   \r\n0    216       10                       5.469251E-01          6.297290E-03         -1.306026E+00              0.0                   \r\n                                       -8.555126E-01         -2.006625E+00          1.394815E-01              0.0                   \r\n                                        5.403996E-03          9.281945E-01          7.627459E-01              0.0                   \r\n0    216                0.0000          9.889864E+00              0.0              -1.206304E+02              0.0                   \r\n                                       -1.736915E+01              0.0               1.208917E+02              0.0                   \r\n                                        1.839323E-01              0.0              -2.250460E+00              0.0                   \r\n0    216                3.5810          9.323414E+00         -5.404230E+00         -1.168603E+02              0.0                   \r\n                                       -1.639518E+01         -7.021635E+00          1.178493E+02              0.0                   \r\n                                        1.730251E-01          5.834132E+00         -2.679410E+00              0.0                   \r\n0    216                7.1620          7.757366E+00         -1.047221E+01         -1.060748E+02              0.0                   \r\n                                       -1.368715E+01         -1.221434E+01          1.090122E+02              0.0                   \r\n                                        1.411567E-01          1.062027E+01         -3.811790E+00              0.0                   \r\n0    217        0                      -2.773666E-01              0.0               2.658997E-01              0.0                   \r\n                                        3.072243E-01              0.0              -7.986839E+00              0.0                   \r\n                                       -2.509627E-01              0.0               7.720924E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   163\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    217        1                      -5.279312E-01          4.572467E-01         -5.314329E-02              0.0                   \r\n                                        3.198166E-01          3.278626E+00          2.159683E+00              0.0                   \r\n                                       -1.905650E-02         -3.962249E+00         -2.011917E+00              0.0                   \r\n0    217        2                      -1.526123E+00          7.365823E-01         -1.117030E+00              0.0                   \r\n                                        3.549500E-01          2.899985E+00          3.533685E+01              0.0                   \r\n                                        6.031280E-01         -4.828006E+00         -3.400458E+01              0.0                   \r\n0    217        3                      -2.008057E+00         -2.996211E-01         -1.326263E+00              0.0                   \r\n                                        3.428650E-01         -3.655134E+00          4.119049E+01              0.0                   \r\n                                        4.579139E-01          2.124197E-01         -3.997192E+01              0.0                   \r\n0    217        4                      -1.488083E+00         -3.473897E-01         -1.068354E+00              0.0                   \r\n                                        2.778931E-01         -6.953546E+00          2.120303E+01              0.0                   \r\n                                        3.095428E-01          3.476026E+00         -2.059705E+01              0.0                   \r\n0    217        5                      -1.022720E+00         -1.971645E-01         -8.794102E-01              0.0                   \r\n                                        2.080994E-01         -7.995205E+00          1.065916E+01              0.0                   \r\n                                        2.286432E-01          4.912135E+00         -1.051015E+01              0.0                   \r\n0    217        6                      -6.634216E-01         -1.428492E-01         -6.668937E-01              0.0                   \r\n                                        1.531296E-01         -7.491913E+00          4.917191E+00              0.0                   \r\n                                        1.286667E-01          4.913275E+00         -5.099594E+00              0.0                   \r\n0    217        7                      -4.174767E-01         -1.213701E-01         -4.916593E-01              0.0                   \r\n                                        1.141663E-01         -6.393059E+00          1.886803E+00              0.0                   \r\n                                        5.434924E-02          4.289827E+00         -2.251709E+00              0.0                   \r\n0    217        8                      -2.591515E-01         -1.096739E-01         -3.620124E-01              0.0                   \r\n                                        8.740234E-02         -5.215515E+00          3.636932E-01              0.0                   \r\n                                        8.833289E-03          3.519624E+00         -8.036499E-01              0.0                   \r\n0    217        9                      -1.581230E-01         -9.826708E-02         -2.681643E-01              0.0                   \r\n                                        6.817055E-02         -4.151305E+00         -3.523178E-01              0.0                   \r\n                                       -1.607315E-02          2.793251E+00         -9.730530E-02              0.0                   \r\n0    217       10                      -9.436226E-02         -8.699441E-02         -1.998771E-01              0.0                   \r\n                                        5.397224E-02         -3.252489E+00         -6.439877E-01              0.0                   \r\n                                       -2.793432E-02          2.172066E+00          2.208862E-01              0.0                   \r\n0    217                0.0000         -8.442816E+00              0.0              -6.166907E+00              0.0                   \r\n                                        2.287689E+00              0.0               1.087338E+02              0.0                   \r\n                                        1.477050E+00              0.0              -1.074061E+02              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   164\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    217                3.5810         -8.139538E+00         -3.416507E-01         -5.842967E+00              0.0                   \r\n                                        2.206768E+00         -1.636347E+01          1.061686E+02              0.0                   \r\n                                        1.436275E+00          9.625393E+00         -1.046488E+02              0.0                   \r\n0    217                7.1620         -7.274639E+00         -6.064473E-01         -4.931318E+00              0.0                   \r\n                                        1.978992E+00         -2.945889E+01          9.862272E+01              0.0                   \r\n                                        1.315685E+00          1.711485E+01         -9.659697E+01              0.0                   \r\n0    221        0                      -1.155975E+00              0.0               7.139145E+00              0.0                   \r\n                                       -7.704620E-01              0.0               2.012436E+00              0.0                   \r\n                                        1.678345E+00              0.0              -9.151520E+00              0.0                   \r\n0    221        1                      -1.002865E+00          5.834873E+00          1.205133E+01              0.0                   \r\n                                       -5.820312E-01         -6.687799E-02          1.785355E+00              0.0                   \r\n                                        1.351608E+00         -6.001152E+00         -1.368451E+01              0.0                   \r\n0    221        2                      -2.917213E-01          1.262253E+01          1.809261E+01              0.0                   \r\n                                        1.072021E+00          5.964314E-01          8.443298E-01              0.0                   \r\n                                       -6.497955E-01         -1.293452E+01         -1.829283E+01              0.0                   \r\n0    221        3                      -1.854229E-02          1.588462E+01          1.625328E+00              0.0                   \r\n                                        3.371727E+00          2.461183E+00          9.718571E-01              0.0                   \r\n                                       -2.471527E+00         -1.552717E+01         -1.443489E+00              0.0                   \r\n0    221        4                      -4.555855E-01          1.392501E+01         -3.517563E+00              0.0                   \r\n                                        2.569080E+00          2.730026E+00          1.739212E+00              0.0                   \r\n                                       -1.404068E+00         -1.347290E+01          3.103241E+00              0.0                   \r\n0    221        5                      -6.425171E-01          1.094254E+01         -2.450848E+00              0.0                   \r\n                                        1.707756E+00          2.462877E+00          1.925049E+00              0.0                   \r\n                                       -5.995026E-01         -1.057400E+01          1.812683E+00              0.0                   \r\n0    221        6                      -6.616917E-01          8.125929E+00         -1.135761E+00              0.0                   \r\n                                        1.096493E+00          2.045491E+00          1.801861E+00              0.0                   \r\n                                       -1.413803E-01         -7.806493E+00          4.672699E-01              0.0                   \r\n0    221        7                      -5.963173E-01          5.934069E+00         -2.811012E-01              0.0                   \r\n                                        6.906872E-01          1.630241E+00          1.548214E+00              0.0                   \r\n                                        8.476257E-02         -5.655543E+00         -3.124084E-01              0.0                   \r\n0    221        8                      -5.013704E-01          4.320477E+00          1.741543E-01              0.0                   \r\n                                        4.304981E-01          1.272452E+00          1.268267E+00              0.0                   \r\n                                        1.767025E-01         -4.081411E+00         -6.564026E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   165\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    221        9                      -4.049330E-01          3.146989E+00          3.766050E-01              0.0                   \r\n                                        2.653227E-01          9.811087E-01          1.009201E+00              0.0                   \r\n                                        1.994038E-01         -2.945511E+00         -7.479954E-01              0.0                   \r\n0    221       10                      -3.187499E-01          2.293664E+00          4.368610E-01              0.0                   \r\n                                        1.612134E-01          7.496787E-01          7.878599E-01              0.0                   \r\n                                        1.889095E-01         -2.126463E+00         -7.129211E-01              0.0                   \r\n0    221                0.0000         -6.050269E+00              0.0               3.251077E+01              0.0                   \r\n                                        1.001231E+01              0.0               1.569364E+01              0.0                   \r\n                                       -1.586542E+00              0.0              -3.961888E+01              0.0                   \r\n0    221                3.5810         -5.714255E+00          2.229053E+01          3.248911E+01              0.0                   \r\n                                        9.518096E+00          4.973387E+00          1.478850E+01              0.0                   \r\n                                       -1.554333E+00         -2.149313E+01         -3.928107E+01              0.0                   \r\n0    221                7.1620         -4.784172E+00          4.149225E+01          3.244751E+01              0.0                   \r\n                                        8.110508E+00          9.103534E+00          1.227331E+01              0.0                   \r\n                                       -1.436417E+00         -4.005371E+01         -3.836354E+01              0.0                   \r\n0    222        0                       7.840805E-01              0.0               3.355782E+00              0.0                   \r\n                                       -1.098022E-01              0.0               3.296417E+00              0.0                   \r\n                                       -1.028841E+00              0.0              -6.652206E+00              0.0                   \r\n0    222        1                       2.056465E-01          3.169176E+00          5.752817E+00              0.0                   \r\n                                        1.269741E-01          4.997360E+00          9.364193E+00              0.0                   \r\n                                       -6.612737E-01         -8.494604E+00         -1.490269E+01              0.0                   \r\n0    222        2                      -1.668121E+00          6.721599E+00          9.163513E+00              0.0                   \r\n                                        9.903717E-01          1.067459E+01          2.089378E+01              0.0                   \r\n                                        8.063563E-01         -1.719300E+01         -2.917377E+01              0.0                   \r\n0    222        3                      -1.806755E+00          7.790003E+00          2.071709E+00              0.0                   \r\n                                        1.253593E+00          1.395079E+01          8.338524E+00              0.0                   \r\n                                        1.601961E+00         -1.862961E+01         -8.901001E+00              0.0                   \r\n0    222        4                      -6.230459E-01          6.819255E+00         -9.284947E-01              0.0                   \r\n                                        3.994784E-01          1.186694E+01          7.239485E-01              0.0                   \r\n                                        1.141830E+00         -1.507794E+01          1.870081E+00              0.0                   \r\n0    222        5                      -2.673054E-02          5.453978E+00         -8.118854E-01              0.0                   \r\n                                       -5.290508E-02          8.956790E+00         -1.429443E-01              0.0                   \r\n                                        7.612821E-01         -1.114317E+01          2.518719E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   166\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    222        6                       2.514915E-01          4.107682E+00         -3.636327E-01              0.0                   \r\n                                       -2.157021E-01          6.484684E+00         -7.598400E-02              0.0                   \r\n                                        4.574281E-01         -7.825047E+00          1.781519E+00              0.0                   \r\n0    222        7                       3.472433E-01          3.036951E+00         -3.731823E-02              0.0                   \r\n                                       -2.509975E-01          4.663468E+00          7.711506E-02              0.0                   \r\n                                        2.567180E-01         -5.442940E+00          1.068991E+00              0.0                   \r\n0    222        8                       3.516092E-01          2.235156E+00          1.416287E-01              0.0                   \r\n                                       -2.349291E-01          3.367337E+00          1.776028E-01              0.0                   \r\n                                        1.359400E-01         -3.798106E+00          5.807981E-01              0.0                   \r\n0    222        9                       3.163452E-01          1.645949E+00          2.193975E-01              0.0                   \r\n                                       -2.017226E-01          2.442223E+00          2.201905E-01              0.0                   \r\n                                        6.628761E-02         -2.664328E+00          2.827625E-01              0.0                   \r\n0    222       10                       2.679992E-01          1.212070E+00          2.379415E-01              0.0                   \r\n                                       -1.654618E-01          1.778705E+00          2.243276E-01              0.0                   \r\n                                        2.734408E-02         -1.877259E+00          1.126008E-01              0.0                   \r\n0    222                0.0000         -1.600237E+00              0.0               1.880146E+01              0.0                   \r\n                                        1.538897E+00              0.0               4.309718E+01              0.0                   \r\n                                        3.565033E+00              0.0              -5.141418E+01              0.0                   \r\n0    222                3.5810         -1.727923E+00          1.130173E+01          1.868326E+01              0.0                   \r\n                                        1.628843E+00          1.824162E+01          4.265408E+01              0.0                   \r\n                                        3.371596E+00         -2.281531E+01         -5.154203E+01              0.0                   \r\n0    222                7.1620         -2.060318E+00          2.101892E+01          1.835302E+01              0.0                   \r\n                                        1.865116E+00          3.402843E+01          4.136572E+01              0.0                   \r\n                                        2.816290E+00         -4.277789E+01         -5.184420E+01              0.0                   \r\n0    223        0                       1.541910E+00              0.0              -5.150665E+00              0.0                   \r\n                                       -2.049526E+00              0.0               4.077190E+00              0.0                   \r\n                                        1.971588E-01              0.0               1.073509E+00              0.0                   \r\n0    223        1                       1.550963E+00         -5.420304E+00         -1.100881E+01              0.0                   \r\n                                       -2.033648E+00          7.730319E+00          1.305692E+01              0.0                   \r\n                                        1.759462E-01         -2.616746E+00         -1.850044E+00              0.0                   \r\n0    223        2                       6.810341E-01         -1.180309E+01         -2.295561E+01              0.0                   \r\n                                       -1.853653E+00          1.505333E+01          3.168542E+01              0.0                   \r\n                                        1.030319E+00         -3.434485E+00         -7.964417E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   167\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    223        3                      -5.938721E-01         -1.564070E+01         -1.317122E+01              0.0                   \r\n                                       -2.405930E+00          1.605986E+01          1.614655E+01              0.0                   \r\n                                        3.140793E+00          9.150962E-01         -1.790054E+00              0.0                   \r\n0    223        4                       1.904230E-01         -1.336545E+01         -5.138367E+00              0.0                   \r\n                                       -2.966152E+00          1.278501E+01          3.184376E+00              0.0                   \r\n                                        2.762318E+00          2.277512E+00          3.189560E+00              0.0                   \r\n0    223        5                       6.839795E-01         -1.010090E+01         -3.385540E+00              0.0                   \r\n                                       -2.942507E+00          9.221640E+00          5.721703E-01              0.0                   \r\n                                        2.106541E+00          2.464881E+00          3.912579E+00              0.0                   \r\n0    223        6                       8.092041E-01         -7.277001E+00         -2.694322E+00              0.0                   \r\n                                       -2.592031E+00          6.365944E+00          6.659222E-02              0.0                   \r\n                                        1.562228E+00          2.267323E+00          3.524858E+00              0.0                   \r\n0    223        7                       7.583591E-01         -5.188201E+00         -2.206274E+00              0.0                   \r\n                                       -2.139412E+00          4.383285E+00          4.066515E-02              0.0                   \r\n                                        1.139489E+00          1.909590E+00          2.876165E+00              0.0                   \r\n0    223        8                       6.441905E-01         -3.705082E+00         -1.786475E+00              0.0                   \r\n                                       -1.702663E+00          3.043400E+00          9.744120E-02              0.0                   \r\n                                        8.236961E-01          1.537530E+00          2.245493E+00              0.0                   \r\n0    223        9                       5.194755E-01         -2.654224E+00         -1.421143E+00              0.0                   \r\n                                       -1.325433E+00          2.132517E+00          1.413357E-01              0.0                   \r\n                                        5.920792E-01          1.204990E+00          1.713201E+00              0.0                   \r\n0    223       10                       4.059698E-01         -1.907393E+00         -1.112198E+00              0.0                   \r\n                                       -1.016510E+00          1.505359E+00          1.591086E-01              0.0                   \r\n                                        4.237684E-01          9.291626E-01          1.289232E+00              0.0                   \r\n0    223                0.0000          7.191636E+00              0.0              -7.003062E+01              0.0                   \r\n                                       -2.302746E+01              0.0               6.922777E+01              0.0                   \r\n                                        1.395434E+01              0.0               8.220082E+00              0.0                   \r\n0    223                3.5810          6.791351E+00         -2.030903E+01         -6.823251E+01              0.0                   \r\n                                       -2.174569E+01          1.901734E+01          6.847310E+01              0.0                   \r\n                                        1.321495E+01          4.463136E+00          6.730141E+00              0.0                   \r\n0    223                7.1620          5.688061E+00         -3.790761E+01         -6.314064E+01              0.0                   \r\n                                       -1.817124E+01          3.571268E+01          6.625421E+01              0.0                   \r\n                                        1.113245E+01          7.967301E+00          2.608611E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   168\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    224        0                      -6.523132E-03              0.0               6.325607E-01              0.0                   \r\n                                        2.188416E-01              0.0              -2.518158E-01              0.0                   \r\n                                       -6.014622E-01              0.0              -3.807526E-01              0.0                   \r\n0    224        1                      -8.210754E-02          5.293678E+00          6.742296E+00              0.0                   \r\n                                        5.383492E-02          3.892004E+00          6.333767E+00              0.0                   \r\n                                       -3.409790E-01         -9.554876E+00         -1.284030E+01              0.0                   \r\n0    224        2                      -9.596405E-01          9.042706E+00          2.148053E+01              0.0                   \r\n                                       -1.437988E-01          7.436214E+00          2.317657E+01              0.0                   \r\n                                        8.052795E-01         -1.713679E+01         -4.381140E+01              0.0                   \r\n0    224        3                      -2.453766E+00          5.825287E+00          1.455275E+01              0.0                   \r\n                                        4.268341E-01          8.568827E+00          1.807416E+01              0.0                   \r\n                                        1.802342E+00         -1.477696E+01         -3.152820E+01              0.0                   \r\n0    224        4                      -2.301132E+00          3.386824E+00          3.917900E+00              0.0                   \r\n                                        1.573257E-01          6.359632E+00          7.737366E+00              0.0                   \r\n                                        1.983638E+00         -9.792696E+00         -1.067743E+01              0.0                   \r\n0    224        5                      -1.802425E+00          1.815578E+00          6.246262E-01              0.0                   \r\n                                       -8.992004E-02          4.081753E+00          4.023159E+00              0.0                   \r\n                                        1.772654E+00         -5.773294E+00         -3.920929E+00              0.0                   \r\n0    224        6                      -1.316729E+00          8.180106E-01         -4.140034E-01              0.0                   \r\n                                       -1.625042E-01          2.544060E+00          2.228346E+00              0.0                   \r\n                                        1.374261E+00         -3.187034E+00         -1.327583E+00              0.0                   \r\n0    224        7                      -9.391222E-01          2.879843E-01         -6.692047E-01              0.0                   \r\n                                       -1.659937E-01          1.608877E+00          1.281251E+00              0.0                   \r\n                                        1.007699E+00         -1.733775E+00         -2.990990E-01              0.0                   \r\n0    224        8                      -6.666684E-01          2.965319E-02         -6.509752E-01              0.0                   \r\n                                       -1.472058E-01          1.042588E+00          7.630424E-01              0.0                   \r\n                                        7.242216E-01         -9.398618E-01          8.472633E-02              0.0                   \r\n0    224        9                      -4.735279E-01         -8.372676E-02         -5.501924E-01              0.0                   \r\n                                       -1.234822E-01          6.898853E-01          4.684696E-01              0.0                   \r\n                                        5.165030E-01         -5.063852E-01          2.032528E-01              0.0                   \r\n0    224       10                      -3.372560E-01         -1.251759E-01         -4.374101E-01              0.0                   \r\n                                       -1.004755E-01          4.668085E-01          2.950997E-01              0.0                   \r\n                                        3.670917E-01         -2.690884E-01          2.156258E-01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   169\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    224                0.0000         -1.133890E+01              0.0               4.522888E+01              0.0                   \r\n                                       -7.654405E-02              0.0               6.412942E+01              0.0                   \r\n                                        9.411248E+00              0.0              -1.042821E+02              0.0                   \r\n0    224                3.5810         -1.073113E+01          4.257949E+00          4.497995E+01              0.0                   \r\n                                       -5.766675E-04          8.350125E+00          6.268713E+01              0.0                   \r\n                                        8.798473E+00         -1.246550E+01         -1.028028E+02              0.0                   \r\n0    224                7.1620         -9.018292E+00          8.326126E+00          4.416251E+01              0.0                   \r\n                                        2.054824E-01          1.581253E+01          5.851857E+01              0.0                   \r\n                                        7.077121E+00         -2.392252E+01         -9.841920E+01              0.0                   \r\n0    225        0                      -2.029221E+00              0.0              -4.137085E+00              0.0                   \r\n                                        1.413203E+00              0.0               5.195583E+00              0.0                   \r\n                                        3.784370E-01              0.0              -1.058472E+00              0.0                   \r\n0    225        1                      -1.835541E+00          6.252901E+00          6.173874E+00              0.0                   \r\n                                        1.156591E+00         -4.425917E+00         -1.835927E+00              0.0                   \r\n                                        4.354057E-01         -2.070605E+00         -4.181358E+00              0.0                   \r\n0    225        2                      -1.331528E+00          9.627117E+00          3.554376E+01              0.0                   \r\n                                        3.465595E-01         -5.650212E+00         -2.195150E+01              0.0                   \r\n                                        5.247803E-01         -4.825873E+00         -1.310229E+01              0.0                   \r\n0    225        3                      -2.319275E+00          5.256215E+00          3.281248E+01              0.0                   \r\n                                        6.262054E-01          6.318337E-01         -1.912624E+01              0.0                   \r\n                                        7.469254E-01         -7.896241E+00         -1.324654E+01              0.0                   \r\n0    225        4                      -3.107826E+00          1.628371E+00          1.403998E+01              0.0                   \r\n                                        1.231009E+00          3.366728E+00         -5.716675E+00              0.0                   \r\n                                        9.993057E-01         -6.875951E+00         -8.100082E+00              0.0                   \r\n0    225        5                      -3.093445E+00         -5.728672E-01          6.178688E+00              0.0                   \r\n                                        1.395177E+00          4.197927E+00         -5.673409E-01              0.0                   \r\n                                        9.541340E-01         -5.138446E+00         -5.619793E+00              0.0                   \r\n0    225        6                      -2.718349E+00         -1.493958E+00          2.505960E+00              0.0                   \r\n                                        1.317551E+00          4.012355E+00          1.377085E+00              0.0                   \r\n                                        7.768784E-01         -3.712872E+00         -4.045664E+00              0.0                   \r\n0    225        7                      -2.237072E+00         -1.669078E+00          7.843266E-01              0.0                   \r\n                                        1.129854E+00          3.404669E+00          1.928138E+00              0.0                   \r\n                                        5.910406E-01         -2.676412E+00         -2.947059E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   170\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    225        8                      -1.775590E+00         -1.530174E+00          1.534557E-02              0.0                   \r\n                                        9.182101E-01          2.730045E+00          1.892094E+00              0.0                   \r\n                                        4.343987E-01         -1.940562E+00         -2.161284E+00              0.0                   \r\n0    225        9                      -1.378850E+00         -1.289129E+00         -2.951703E-01              0.0                   \r\n                                        7.223577E-01          2.121287E+00          1.641862E+00              0.0                   \r\n                                        3.131950E-01         -1.413954E+00         -1.590400E+00              0.0                   \r\n0    225       10                      -1.055163E+00         -1.037707E+00         -3.889077E-01              0.0                   \r\n                                        5.560989E-01          1.617080E+00          1.341486E+00              0.0                   \r\n                                        2.229328E-01         -1.034345E+00         -1.171656E+00              0.0                   \r\n0    225                0.0000         -2.288186E+01              0.0               9.323325E+01              0.0                   \r\n                                        1.081282E+01              0.0              -3.582143E+01              0.0                   \r\n                                        6.377434E+00              0.0              -5.722461E+01              0.0                   \r\n0    225                3.5810         -2.155191E+01         -4.852749E-01          9.150217E+01              0.0                   \r\n                                        1.016423E+01          7.558854E+00         -3.612166E+01              0.0                   \r\n                                        6.028887E+00         -1.026728E+01         -5.506821E+01              0.0                   \r\n0    225                7.1620         -1.784423E+01         -2.028536E-01          8.638629E+01              0.0                   \r\n                                        8.362171E+00          1.344608E+01         -3.677240E+01              0.0                   \r\n                                        5.051996E+00         -1.912269E+01         -4.896622E+01              0.0                   \r\n0    226        0                      -7.640133E-01              0.0              -3.253309E+00              0.0                   \r\n                                        1.507174E+00              0.0              -3.304095E+00              0.0                   \r\n                                       -9.703307E-01              0.0               6.557434E+00              0.0                   \r\n0    226        1                      -8.412552E-01          4.334895E+00          3.625961E+00              0.0                   \r\n                                        1.308380E+00          1.379320E+00          6.737938E-01              0.0                   \r\n                                       -6.970674E-01         -5.944380E+00         -4.156235E+00              0.0                   \r\n0    226        2                      -1.373199E+00          6.046837E+00          2.433893E+01              0.0                   \r\n                                        4.232788E-01          1.440662E+00          1.333655E+01              0.0                   \r\n                                        4.048436E-01         -8.631841E+00         -3.727216E+01              0.0                   \r\n0    226        3                      -2.208191E+00          7.482214E-01          2.463477E+01              0.0                   \r\n                                        1.501465E-01         -7.106938E-01          1.477982E+01              0.0                   \r\n                                        9.182062E-01         -3.512650E+00         -3.924133E+01              0.0                   \r\n0    226        4                      -2.112869E+00         -1.853367E+00          1.086143E+01              0.0                   \r\n                                        6.277466E-01         -2.071966E+00          7.142700E+00              0.0                   \r\n                                        6.492027E-01          4.779382E-01         -1.816330E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   171\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    226        5                      -1.749168E+00         -2.859186E+00          4.650574E+00              0.0                   \r\n                                        8.045578E-01         -2.619806E+00          3.357517E+00              0.0                   \r\n                                        4.123512E-01          2.600551E+00         -8.443451E+00              0.0                   \r\n0    226        6                      -1.356522E+00         -2.976260E+00          1.764282E+00              0.0                   \r\n                                        8.118744E-01         -2.521895E+00          1.381203E+00              0.0                   \r\n                                        2.041663E-01          3.161603E+00         -3.723495E+00              0.0                   \r\n0    226        7                      -1.022869E+00         -2.656482E+00          4.383202E-01              0.0                   \r\n                                        7.311020E-01         -2.165123E+00          3.881741E-01              0.0                   \r\n                                        7.076101E-02          2.945596E+00         -1.437721E+00              0.0                   \r\n0    226        8                      -7.629375E-01         -2.210503E+00         -1.345177E-01              0.0                   \r\n                                        6.191330E-01         -1.760234E+00         -7.597828E-02              0.0                   \r\n                                       -1.387075E-03          2.474270E+00         -3.711548E-01              0.0                   \r\n0    226        9                      -5.659924E-01         -1.769518E+00         -3.494873E-01              0.0                   \r\n                                        5.054836E-01         -1.391980E+00         -2.682772E-01              0.0                   \r\n                                       -3.547037E-02          1.974022E+00          9.609413E-02              0.0                   \r\n0    226       10                      -4.186554E-01         -1.384348E+00         -3.984537E-01              0.0                   \r\n                                        4.030933E-01         -1.080488E+00         -3.246527E-01              0.0                   \r\n                                       -4.810743E-02          1.528361E+00          2.729626E-01              0.0                   \r\n0    226                0.0000         -1.317567E+01              0.0               6.617850E+01              0.0                   \r\n                                        7.891970E+00              0.0               3.708675E+01              0.0                   \r\n                                        9.071680E-01              0.0              -1.058824E+02              0.0                   \r\n0    226                3.5810         -1.252386E+01         -5.202508E+00          6.496861E+01              0.0                   \r\n                                        7.469843E+00         -5.244221E+00          3.631713E+01              0.0                   \r\n                                        8.429998E-01          4.354751E+00         -1.035489E+02              0.0                   \r\n0    226                7.1620         -1.069314E+01         -9.089037E+00          6.137556E+01              0.0                   \r\n                                        6.300782E+00         -9.401474E+00          3.403056E+01              0.0                   \r\n                                        6.523561E-01          7.316932E+00         -9.670028E+01              0.0                   \r\n0    227        0                      -7.302408E-01              0.0              -2.074906E+00              0.0                   \r\n                                       -1.146097E+00              0.0              -7.554766E+00              0.0                   \r\n                                        1.757936E+00              0.0               9.629625E+00              0.0                   \r\n0    227        1                      -4.997330E-01         -3.087148E-01         -1.999222E+00              0.0                   \r\n                                       -1.126259E+00          3.421432E+00          9.353638E-02              0.0                   \r\n                                        1.490860E+00         -3.247819E+00          1.989807E+00              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   172\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    227        2                       9.519653E-01         -1.198912E+00         -1.422729E+00              0.0                   \r\n                                       -9.499512E-01          3.720210E+00          2.558563E+01              0.0                   \r\n                                       -4.700928E-01         -3.424251E+00         -2.396710E+01              0.0                   \r\n0    227        3                       2.756500E+00         -2.850703E+00         -1.214752E+00              0.0                   \r\n                                       -9.927979E-01         -1.805847E+00          3.058447E+01              0.0                   \r\n                                       -2.825684E+00          1.648291E+00         -2.942914E+01              0.0                   \r\n0    227        4                       2.219482E+00         -2.935773E+00         -1.609680E+00              0.0                   \r\n                                       -1.083588E+00         -4.464221E+00          1.490561E+01              0.0                   \r\n                                       -1.987762E+00          4.357361E+00         -1.363165E+01              0.0                   \r\n0    227        5                       1.493896E+00         -2.538537E+00         -1.755280E+00              0.0                   \r\n                                       -1.045662E+00         -5.312507E+00          6.872742E+00              0.0                   \r\n                                       -1.065659E+00          5.288990E+00         -5.659302E+00              0.0                   \r\n0    227        6                       9.257965E-01         -2.050788E+00         -1.671143E+00              0.0                   \r\n                                       -9.295654E-01         -4.988721E+00          2.758652E+00              0.0                   \r\n                                       -4.457703E-01          4.961086E+00         -1.713837E+00              0.0                   \r\n0    227        7                       5.451088E-01         -1.609336E+00         -1.460258E+00              0.0                   \r\n                                       -7.784309E-01         -4.210910E+00          7.342606E-01              0.0                   \r\n                                       -9.746552E-02          4.161744E+00          1.038208E-01              0.0                   \r\n0    227        8                       3.059845E-01         -1.244762E+00         -1.212772E+00              0.0                   \r\n                                       -6.272659E-01         -3.377612E+00         -1.906853E-01              0.0                   \r\n                                        7.497787E-02          3.311037E+00          8.318710E-01              0.0                   \r\n0    227        9                       1.608620E-01         -9.534847E-01         -9.758949E-01              0.0                   \r\n                                       -4.929733E-01         -2.634632E+00         -5.605335E-01              0.0                   \r\n                                        1.474075E-01          2.558521E+00          1.035305E+00              0.0                   \r\n0    227       10                       7.513618E-02         -7.263487E-01         -7.688713E-01              0.0                   \r\n                                       -3.807497E-01         -2.019489E+00         -6.590672E-01              0.0                   \r\n                                        1.665249E-01          1.942807E+00          1.002274E+00              0.0                   \r\n0    227                0.0000          8.204759E+00              0.0              -1.616551E+01              0.0                   \r\n                                       -9.553340E+00              0.0               7.256986E+01              0.0                   \r\n                                       -3.254727E+00              0.0              -5.980833E+01              0.0                   \r\n0    227                3.5810          7.816518E+00         -5.170157E+00         -1.529632E+01              0.0                   \r\n                                       -9.079361E+00         -1.021413E+01          7.101118E+01              0.0                   \r\n                                       -3.114250E+00          1.005051E+01         -5.875304E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   173\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n           F O R C E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n   ELEMENT   HARMONIC    POINT            RADIAL            CIRCUMFERENTIAL            AXIAL                CHARGE\r\n     ID.      NUMBER     ANGLE             (R)                 (THETA-T)                (Z)\r\n0    227                7.1620          6.705687E+00         -9.502197E+00         -1.288070E+01              0.0                   \r\n                                       -7.757367E+00         -1.833145E+01          6.637836E+01              0.0                   \r\n                                       -2.688328E+00          1.804958E+01         -5.553005E+01              0.0                   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   174\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    111        0               1.939E-01  2.403E+00 -1.735E+00  3.247E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.714E-01  1.291E+00 -2.174E+00  3.456E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.534E-01  8.074E-01 -2.304E+00 -2.501E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.437E-01  2.474E+00 -1.647E+00 -2.814E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.175E-02  1.744E+00 -1.965E+00  3.471E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        1               4.275E-01  3.613E+00 -3.114E+00  6.837E-01  8.533E-03 -9.245E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.929E-01  1.229E+00 -4.131E+00  7.314E-01  6.976E-03 -5.900E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.628E-01  1.987E-01 -4.442E+00 -5.231E-01  5.081E-02 -5.942E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.636E-01  3.770E+00 -2.926E+00 -5.947E-01  5.595E-02 -1.364E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.129E-02  2.203E+00 -3.654E+00  7.434E-02  3.065E-02 -8.785E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        2               8.780E-01  2.211E+00  1.470E+00  8.432E-01  3.501E-02 -2.458E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.158E+00 -1.505E+00 -1.599E+00  9.588E-01  3.687E-02 -1.258E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.375E+00 -2.997E+00 -2.711E+00 -5.592E-01  2.128E-01 -3.114E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.650E+00  2.550E+00  1.827E+00 -7.325E-01  2.228E-01 -2.758E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.543E-03  5.925E-02 -2.652E-01  1.276E-01  1.273E-01 -1.721E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        3               1.653E+00  6.147E+00  1.099E+01  9.020E-01  8.386E-02 -3.757E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.107E+00  6.171E-01  3.982E+00  1.134E+00  1.374E-01 -7.680E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.385E+00 -1.416E+00  1.321E+00 -4.101E-01  6.272E-01  1.048E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.164E+00  6.790E+00  1.162E+01 -7.577E-01  5.840E-01 -4.460E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.456E-02  3.018E+00  6.938E+00  2.170E-01  3.597E-01 -2.023E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        4               1.479E+00  6.962E+00  1.081E+01  7.551E-01  9.481E-02 -3.678E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.864E+00  2.151E+00  4.478E+00  9.590E-01  1.741E-01 -2.115E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.111E+00  4.053E-01  2.085E+00 -3.152E-01  7.511E-01  1.361E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.790E+00  7.508E+00  1.132E+01 -6.210E-01  6.761E-01 -4.981E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.683E-02  4.240E+00  7.135E+00  1.945E-01  4.261E-01 -1.921E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        5               1.215E+00  6.049E+00  9.254E+00  5.978E-01  9.488E-02 -3.358E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.509E+00  2.175E+00  4.050E+00  7.600E-01  1.820E-01  1.128E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.721E+00  7.801E-01  2.104E+00 -2.377E-01  7.639E-01  1.524E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.236E+00  6.463E+00  9.612E+00 -4.810E-01  6.767E-01 -4.804E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.040E-02  3.852E+00  6.220E+00  1.598E-01  4.316E-01 -1.675E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        6               9.891E-01  4.960E+00  7.748E+00  4.595E-01  9.118E-02 -2.974E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.207E+00  1.890E+00  3.498E+00  5.860E-01  1.786E-01  3.182E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.390E+00  7.955E-01  1.926E+00 -1.702E-01  7.350E-01  1.594E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.768E+00  5.265E+00  7.984E+00 -3.599E-01  6.449E-01 -4.370E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.621E-02  3.214E+00  5.257E+00  1.289E-01  4.144E-01 -1.398E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   175\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    111        7               8.094E-01  4.000E+00  6.443E+00  3.513E-01  8.577E-02 -2.609E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.674E-01  1.564E+00  2.956E+00  4.494E-01  1.698E-01  4.328E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.129E+00  7.054E-01  1.685E+00 -1.200E-01  6.877E-01  1.586E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.396E+00  4.219E+00  6.585E+00 -2.670E-01  5.992E-01 -3.879E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.486E-02  2.610E+00  4.388E+00  1.034E-01  3.875E-01 -1.152E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        8               6.681E-01  3.217E+00  5.359E+00  2.694E-01  7.988E-02 -2.280E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.800E-01  1.270E+00  2.479E+00  3.452E-01  1.585E-01  4.888E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.238E-01  5.926E-01  1.445E+00 -8.449E-02  6.338E-01  1.533E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.106E+00  3.370E+00  5.432E+00 -1.983E-01  5.493E-01 -3.402E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.179E-03  2.101E+00  3.652E+00  8.296E-02  3.571E-01 -9.455E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    111        9               5.561E-01  2.591E+00  4.468E+00  2.073E-01  7.374E-02 -1.989E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.328E-01  1.024E+00  2.073E+00  2.659E-01  1.463E-01  5.080E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.624E-01  4.856E-01  1.228E+00 -5.966E-02  5.783E-01  1.453E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.791E-01  2.695E+00  4.490E+00 -1.475E-01  4.989E-01 -2.960E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.928E-04  1.689E+00  3.040E+00  6.651E-02  3.258E-01 -7.731E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    111       10               4.657E-01  2.092E+00  3.732E+00  1.601E-01  6.766E-02 -1.731E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.157E-01  8.228E-01  1.730E+00  2.051E-01  1.338E-01  5.036E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.330E-01  3.927E-01  1.038E+00 -4.235E-02  5.234E-01  1.357E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.001E-01  2.158E+00  3.717E+00 -1.099E-01  4.497E-01 -2.559E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.228E-03  1.357E+00  2.532E+00  5.323E-02  2.950E-01 -6.295E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    111                0.0000  9.334E+00  4.425E+01  5.542E+01  5.554E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.161E+01  1.253E+01  1.734E+01  6.740E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.355E+01  7.505E-01  3.374E+00 -2.772E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.680E+01  4.726E+01  5.801E+01 -4.551E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.338E-01  2.609E+01  3.328E+01  1.243E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    111                7.1000  7.313E+00  3.473E+01  3.986E+01  4.668E+00  4.645E-01 -1.511E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.201E+00  9.107E+00  1.044E+01  5.614E+00  8.892E-01  1.191E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.073E+01 -5.205E-01 -3.856E-01 -2.453E+00  3.654E+00  7.923E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.335E+01  3.722E+01  4.212E+01 -3.872E+00  3.214E+00 -2.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.044E-01  2.005E+01  2.283E+01  9.892E-01  2.065E+00 -7.058E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        0               5.022E-01  1.605E+00 -1.848E+00  2.924E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.269E-01 -1.589E+00 -3.085E+00  3.165E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.408E-01 -1.022E+00 -2.829E+00 -2.701E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.450E-01  1.107E+00 -2.005E+00 -2.862E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.296E-01  2.569E-02 -2.441E+00  1.314E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   176\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    112        1               1.139E+00  1.935E+00 -3.400E+00  6.140E-01  8.918E-02 -6.548E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.774E+00 -4.917E+00 -6.258E+00  6.615E-01  6.187E-02 -5.776E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.163E+00 -3.708E+00 -5.685E+00 -5.773E-01  5.644E-02 -4.334E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.786E-01  8.592E-01 -3.782E+00 -6.090E-01  7.516E-02 -8.134E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.547E-01 -1.457E+00 -4.781E+00  2.230E-02  7.047E-02 -6.187E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        2               2.659E+00  9.306E-02  2.598E-02  7.175E-01  3.469E-01 -1.477E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.109E+00 -1.056E+01 -8.545E+00  7.587E-01  2.541E-01 -1.521E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.052E+00 -8.741E+00 -7.066E+00 -7.752E-01  2.329E-01 -3.740E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.792E+00 -1.640E+00 -1.354E+00 -8.027E-01  2.951E-01 -1.138E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.926E-01 -5.227E+00 -4.270E+00 -2.544E-02  2.816E-01 -1.125E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        3               5.215E+00  3.717E+00  7.109E+00  6.851E-01  8.971E-01 -1.167E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.306E+00 -1.195E+01 -1.229E+01  7.153E-01  7.729E-01 -1.957E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.516E+00 -9.344E+00 -9.098E+00 -8.993E-01  6.953E-01 -2.419E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.502E+00  1.107E+00  3.844E+00 -9.194E-01  7.771E-01 -9.768E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.435E-02 -4.167E+00 -2.720E+00 -1.046E-01  7.847E-01 -1.082E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        4               4.556E+00  4.866E+00  7.218E+00  5.648E-01  1.036E+00 -6.126E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.694E+00 -8.632E+00 -1.012E+01  5.977E-01  9.391E-01 -1.597E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.113E+00 -6.384E+00 -7.274E+00 -7.351E-01  8.382E-01 -1.928E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.062E+00  2.623E+00  4.303E+00 -7.570E-01  9.017E-01 -9.367E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.107E-02 -1.926E+00 -1.570E+00 -8.242E-02  9.280E-01 -8.305E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        5               3.605E+00  4.333E+00  6.231E+00  4.439E-01  1.036E+00 -2.590E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.828E+00 -6.409E+00 -7.805E+00  4.804E-01  9.622E-01 -1.279E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.539E+00 -4.614E+00 -5.502E+00 -5.595E-01  8.546E-01 -6.412E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.427E+00  2.558E+00  3.882E+00 -5.838E-01  9.034E-01 -7.524E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.194E-01 -1.069E+00 -8.821E-01 -5.477E-02  9.384E-01 -5.842E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        6               2.806E+00  3.579E+00  5.208E+00  3.358E-01  9.849E-01 -1.535E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.093E+00 -4.814E+00 -6.062E+00  3.747E-01  9.309E-01 -1.038E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.053E+00 -3.407E+00 -4.212E+00 -4.113E-01  8.233E-01  2.046E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.894E+00  2.203E+00  3.334E+00 -4.373E-01  8.601E-01 -5.564E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.408E-01 -6.387E-01 -5.010E-01 -3.453E-02  8.994E-01 -3.979E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        7               2.177E+00  2.885E+00  4.296E+00  2.511E-01  9.132E-01  1.380E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.510E+00 -3.670E+00 -4.772E+00  2.913E-01  8.749E-01 -8.642E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.666E+00 -2.565E+00 -3.283E+00 -2.992E-01  7.710E-01  2.050E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.474E+00  1.821E+00  2.800E+00 -3.260E-01  7.983E-01 -3.960E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.549E-01 -4.060E-01 -2.951E-01 -2.071E-02  8.391E-01 -2.719E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   177\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    112        8               1.692E+00  2.307E+00  3.532E+00  1.872E-01  8.350E-01  2.305E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.053E+00 -2.839E+00 -3.804E+00  2.277E-01  8.095E-01 -7.364E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.364E+00 -1.967E+00 -2.599E+00 -2.171E-01  7.110E-01  1.563E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.151E+00  1.482E+00  2.334E+00 -2.441E-01  7.307E-01 -2.707E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.630E-01 -2.739E-01 -1.800E-01 -1.158E-02  7.713E-01 -1.872E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112        9               1.317E+00  1.840E+00  2.903E+00  1.392E-01  7.564E-01  2.831E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.692E+00 -2.223E+00 -3.062E+00  1.793E-01  7.412E-01 -6.378E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.125E+00 -1.530E+00 -2.082E+00 -1.572E-01  6.490E-01  1.157E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.002E-01  1.198E+00  1.940E+00 -1.838E-01  6.626E-01 -1.738E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.661E-01 -1.948E-01 -1.127E-01 -5.621E-03  7.022E-01 -1.292E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    112       10               1.024E+00  1.466E+00  2.385E+00  1.032E-01  6.799E-01  3.092E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.403E+00 -1.756E+00 -2.480E+00  1.421E-01  6.731E-01 -5.578E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.336E-01 -1.203E+00 -1.680E+00 -1.132E-01  5.876E-01 -1.577E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.044E-01  9.659E-01  1.611E+00 -1.392E-01  5.963E-01 -9.944E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.654E-01 -1.450E-01 -7.188E-02 -1.789E-03  6.341E-01 -8.877E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    112                0.0000  2.669E+01  2.863E+01  3.366E+01  4.334E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.029E+01 -5.936E+01 -6.828E+01  4.745E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.007E+01 -4.449E+01 -5.131E+01 -5.014E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.803E+01  1.428E+01  1.691E+01 -5.288E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.652E+00 -1.548E+01 -1.782E+01 -3.060E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    112                7.1000  2.132E+01  2.194E+01  2.345E+01  3.701E+00  4.900E+00 -4.747E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.402E+01 -4.968E+01 -5.607E+01  4.006E+00  4.633E+00 -5.736E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.590E+01 -3.756E+01 -4.278E+01 -4.256E+00  4.090E+00 -3.459E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.439E+01  1.024E+01  1.038E+01 -4.459E+00  4.279E+00 -2.772E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.236E+00 -1.395E+01 -1.669E+01 -2.521E-01  4.474E+00 -2.313E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        0               9.134E-02 -1.208E+00 -2.696E+00  3.563E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.611E-01 -2.300E+00 -3.112E+00  3.031E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.996E-01 -2.438E+00 -3.236E+00 -2.962E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.805E-02 -7.980E-01 -2.605E+00 -2.163E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.468E-01 -1.686E+00 -2.912E+00  3.671E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        1               2.319E-01 -4.082E+00 -5.406E+00  7.519E-01  1.904E-02 -5.685E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.563E-01 -6.420E+00 -6.363E+00  6.407E-01  3.510E-03 -2.963E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.464E+00 -6.710E+00 -6.624E+00 -6.238E-01  3.977E-02  1.023E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.335E-02 -3.200E+00 -5.177E+00 -4.570E-01  5.984E-02 -5.477E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.914E-01 -5.103E+00 -5.893E+00  7.794E-02  3.060E-02 -3.168E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   178\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    113        2               7.594E-01 -8.930E+00 -6.895E+00  9.673E-01  6.833E-02 -1.513E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.140E+00 -1.250E+01 -9.663E+00  8.065E-01  1.276E-02 -5.208E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.170E+00 -1.292E+01 -1.006E+01 -7.555E-01  1.611E-01  1.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.848E-01 -7.568E+00 -5.893E+00 -5.144E-01  2.363E-01 -8.701E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.703E-01 -1.048E+01 -8.135E+00  1.260E-01  1.197E-01 -3.993E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        3               1.632E+00 -9.010E+00 -9.323E+00  1.120E+00  1.585E-01 -2.122E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.787E+00 -1.419E+01 -1.555E+01  8.791E-01  5.022E-02  5.626E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.329E+00 -1.483E+01 -1.613E+01 -7.686E-01  4.884E-01  3.071E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.791E+00 -7.070E+00 -6.824E+00 -4.076E-01  6.338E-01 -1.882E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.335E-01 -1.128E+01 -1.198E+01  2.057E-01  3.329E-01 -5.014E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        4               1.411E+00 -6.045E+00 -7.511E+00  9.500E-01  1.772E-01 -1.861E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.624E+00 -1.054E+01 -1.314E+01  7.328E-01  6.607E-02  1.347E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.004E+00 -1.110E+01 -1.364E+01 -6.339E-01  5.936E-01  3.622E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.511E+00 -4.402E+00 -5.292E+00 -3.081E-01  7.398E-01 -2.226E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.346E-01 -8.031E+00 -9.914E+00  1.852E-01  3.944E-01  2.673E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        5               1.089E+00 -4.330E+00 -5.707E+00  7.583E-01  1.744E-01 -1.579E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.383E+00 -7.946E+00 -1.033E+01  5.748E-01  7.047E-02  1.684E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.536E+00 -8.411E+00 -1.073E+01 -4.972E-01  6.087E-01  3.746E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.109E+00 -3.051E+00 -3.939E+00 -2.218E-01  7.423E-01 -2.166E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.356E-01 -5.940E+00 -7.689E+00  1.535E-01  3.994E-01  4.669E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        6               8.177E-01 -3.165E+00 -4.394E+00  5.902E-01  1.641E-01 -1.347E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.175E+00 -6.026E+00 -8.175E+00  4.361E-01  7.014E-02  1.783E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.131E+00 -6.405E+00 -8.480E+00 -3.784E-01  5.895E-01  3.582E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.760E-01 -2.194E+00 -3.000E+00 -1.473E-01  7.075E-01 -2.043E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.314E-01 -4.451E+00 -6.020E+00  1.251E-01  3.834E-01  5.352E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        7               6.052E-01 -2.359E+00 -3.444E+00  4.579E-01  1.511E-01 -1.168E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.006E+00 -4.626E+00 -6.549E+00  3.279E-01  6.770E-02  1.750E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.803E+00 -4.935E+00 -6.783E+00 -2.871E-01  5.551E-01  3.287E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.205E-01 -1.628E+00 -2.346E+00 -9.215E-02  6.571E-01 -1.910E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.224E-01 -3.388E+00 -4.784E+00  1.016E-01  3.583E-01  5.260E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113        8               4.432E-01 -1.790E+00 -2.741E+00  3.567E-01  1.375E-01 -1.028E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.707E-01 -3.600E+00 -5.310E+00  2.462E-01  6.413E-02  1.651E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.539E+00 -3.854E+00 -5.489E+00 -2.191E-01  5.147E-01  2.951E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.296E-01 -1.241E+00 -1.873E+00 -5.336E-02  6.017E-01 -1.777E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.095E-01 -2.622E+00 -3.854E+00  8.261E-02  3.302E-01  4.807E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   179\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    113        9               3.199E-01 -1.379E+00 -2.205E+00  2.793E-01  1.240E-01 -9.129E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.598E-01 -2.835E+00 -4.348E+00  1.847E-01  6.009E-02  1.522E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.324E+00 -3.045E+00 -4.482E+00 -1.685E-01  4.727E-01  2.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.881E-01 -9.676E-01 -1.519E+00 -2.661E-02  5.458E-01 -1.645E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.933E-01 -2.056E+00 -3.137E+00  6.723E-02  3.014E-01  4.210E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113       10               2.259E-01 -1.073E+00 -1.786E+00  2.196E-01  1.111E-01 -8.145E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.670E-01 -2.253E+00 -3.583E+00  1.382E-01  5.589E-02  1.381E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.146E+00 -2.427E+00 -3.684E+00 -1.306E-01  4.307E-01  2.291E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.376E-02 -7.670E-01 -1.244E+00 -8.456E-03  4.913E-01 -1.515E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.745E-01 -1.629E+00 -2.571E+00  5.470E-02  2.729E-01  3.582E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    113                0.0000  7.627E+00 -4.337E+01 -5.211E+01  6.807E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.153E+01 -7.323E+01 -8.612E+01  5.270E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.114E+01 -7.708E+01 -8.933E+01 -4.759E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.999E+00 -3.289E+01 -3.971E+01 -2.453E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.543E+00 -5.667E+01 -6.689E+01  1.216E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    113                7.1000  6.157E+00 -3.694E+01 -4.320E+01  5.657E+00  8.200E-01 -7.267E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.981E+00 -6.112E+01 -6.948E+01  4.446E+00  3.537E-01  8.254E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.660E+01 -6.420E+01 -7.213E+01 -4.027E+00  2.942E+00  1.723E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.768E+00 -2.828E+01 -3.350E+01 -2.212E+00  3.517E+00 -1.052E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.441E+00 -4.766E+01 -5.464E+01  9.661E-01  1.911E+00  2.125E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        0               3.024E-01  2.378E+00 -1.688E+00  3.514E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.207E-01  6.506E-01 -2.371E+00  3.326E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.255E-01  1.228E+00 -2.094E+00 -2.889E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.575E-01  2.380E+00 -1.637E+00 -2.764E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.152E-02  1.659E+00 -1.948E+00  2.965E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        1               6.843E-01  3.585E+00 -3.005E+00  7.363E-01  5.595E-02 -2.691E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.952E-01 -1.104E-01 -4.575E+00  6.901E-01  5.083E-02 -2.436E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.037E-01  1.102E+00 -3.981E+00 -6.172E-01  5.981E-03 -2.760E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.515E-01  3.568E+00 -2.930E+00 -5.863E-01  7.965E-03 -3.117E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.086E-02  2.036E+00 -3.623E+00  5.571E-02  3.026E-02 -2.738E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        2               1.580E+00  2.387E+00  1.758E+00  8.815E-01  2.227E-01 -5.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.503E+00 -3.295E+00 -2.839E+00  7.348E-01  2.129E-01 -5.543E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.075E+00 -1.634E+00 -1.485E+00 -8.402E-01  3.473E-02 -5.383E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.927E-01  2.166E+00  1.610E+00 -7.424E-01  3.366E-02 -5.858E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.216E-03 -9.891E-02 -2.504E-01  8.419E-03  1.264E-01 -5.561E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   180\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    121        3               3.106E+00  6.655E+00  1.156E+01  9.150E-01  5.842E-01 -6.173E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.509E+00 -1.704E+00  1.197E+00  5.983E-01  6.274E-01 -7.683E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.031E+00  4.808E-01  4.039E+00 -1.010E+00  1.342E-01 -7.138E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.757E+00  6.097E+00  1.105E+01 -7.991E-01  8.191E-02 -6.846E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.536E-02  2.867E+00  6.925E+00 -7.394E-02  3.585E-01 -6.911E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        4               2.743E+00  7.400E+00  1.127E+01  7.763E-01  6.759E-01 -5.503E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.227E+00  1.360E-01  1.970E+00  5.041E-01  7.513E-01 -7.337E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.795E+00  2.013E+00  4.481E+00 -8.387E-01  1.693E-01 -7.193E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.570E+00  6.908E+00  1.081E+01 -6.573E-01  9.203E-02 -6.774E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.792E-02  4.099E+00  7.098E+00 -5.392E-02  4.241E-01 -6.647E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        5               2.202E+00  6.382E+00  9.577E+00  6.267E-01  6.769E-01 -4.636E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.824E+00  5.388E-01  2.001E+00  4.174E-01  7.640E-01 -6.495E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.449E+00  2.043E+00  4.014E+00 -6.487E-01  1.763E-01 -6.495E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.290E+00  5.994E+00  9.195E+00 -5.092E-01  9.185E-02 -6.053E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.158E-02  3.726E+00  6.166E+00 -2.847E-02  4.292E-01 -5.865E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        6               1.743E+00  5.207E+00  7.959E+00  4.914E-01  6.449E-01 -3.744E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.480E+00  5.859E-01  1.837E+00  3.339E-01  7.351E-01 -5.596E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.157E+00  1.769E+00  3.438E+00 -4.872E-01  1.722E-01 -5.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.050E+00  4.908E+00  7.655E+00 -3.822E-01  8.796E-02 -5.115E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.741E-02  3.106E+00  5.196E+00 -1.101E-02  4.119E-01 -4.966E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        7               1.379E+00  4.181E+00  6.569E+00  3.831E-01  5.992E-01 -2.983E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.205E+00  5.271E-01  1.608E+00  2.654E-01  6.878E-01 -4.798E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.259E-01  1.457E+00  2.884E+00 -3.639E-01  1.630E-01 -4.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.564E-01  3.952E+00  6.330E+00 -2.853E-01  8.254E-02 -4.234E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.604E-02  2.519E+00  4.324E+00 -1.860E-04  3.848E-01 -4.155E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        8               1.096E+00  3.348E+00  5.423E+00  2.992E-01  5.492E-01 -2.360E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.879E-01  4.432E-01  1.381E+00  2.114E-01  6.338E-01 -4.116E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.466E-01  1.178E+00  2.402E+00 -2.725E-01  1.517E-01 -4.062E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.034E-01  3.175E+00  5.238E+00 -2.140E-01  7.653E-02 -3.468E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.223E-03  2.027E+00  3.589E+00  6.029E-03  3.543E-01 -3.462E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121        9               8.750E-01  2.685E+00  4.486E+00  2.343E-01  4.989E-01 -1.854E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.155E-01  3.617E-01  1.174E+00  1.691E-01  5.783E-01 -3.535E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.062E-01  9.450E-01  1.995E+00 -2.049E-01  1.397E-01 -3.438E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.817E-01  2.555E+00  4.345E+00 -1.614E-01  7.059E-02 -2.818E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.172E-04  1.629E+00  2.981E+00  9.286E-03  3.232E-01 -2.877E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   181\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    121       10               7.001E-01  2.158E+00  3.717E+00  1.838E-01  4.497E-01 -1.443E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.767E-01  2.907E-01  9.943E-01  1.358E-01  5.234E-01 -3.034E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.949E-01  7.560E-01  1.656E+00 -1.545E-01  1.276E-01 -2.901E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.836E-01  2.061E+00  3.612E+00 -1.224E-01  6.466E-02 -2.271E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.466E-03  1.309E+00  2.477E+00  1.068E-02  2.925E-01 -2.383E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    121                0.0000  1.641E+01  4.637E+01  5.763E+01  5.879E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.454E+01 -1.575E+00  2.378E+00  4.393E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.101E+01  1.134E+01  1.735E+01 -5.727E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.009E+01  4.376E+01  5.527E+01 -4.736E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.430E-01  2.488E+01  3.293E+01 -4.774E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    121                7.1000  1.300E+01  3.641E+01  4.178E+01  4.918E+00  3.215E+00 -1.907E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.154E+01 -2.414E+00 -1.197E+00  3.722E+00  3.654E+00 -2.865E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.706E+00  8.170E+00  1.062E+01 -4.807E+00  8.549E-01 -2.813E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.961E+00  3.436E+01  3.999E+01 -4.009E+00  4.472E-01 -2.532E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.109E-01  1.906E+01  2.263E+01 -4.375E-02  2.051E+00 -2.504E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        0               3.163E-01  1.040E+00 -2.033E+00  4.086E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.256E-01 -9.866E-01 -2.813E+00  3.817E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.895E-01 -1.496E+00 -2.965E+00 -1.802E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.763E-01  1.546E+00 -1.788E+00 -1.399E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.302E-01  2.628E-02 -2.399E+00  1.175E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        1               7.237E-01  7.310E-01 -3.836E+00  8.558E-01  7.515E-02 -2.227E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.130E+00 -3.633E+00 -5.653E+00  8.023E-01  5.642E-02 -1.365E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.701E+00 -4.730E+00 -6.022E+00 -3.875E-01  5.586E-02 -9.242E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.083E+00  1.818E+00 -3.290E+00 -3.072E-01  8.208E-02 -2.689E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.558E-01 -1.453E+00 -4.700E+00  2.408E-01  6.720E-02 -1.795E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        2               1.744E+00 -1.752E+00 -1.402E+00  1.057E+00  2.950E-01 -4.730E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.015E+00 -8.654E+00 -7.029E+00  1.008E+00  2.329E-01 -2.446E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.036E+00 -1.037E+01 -8.317E+00 -4.781E-01  2.417E-01 -5.679E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.591E+00 -2.571E-02  9.812E-02 -4.040E-01  3.322E-01 -5.144E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.939E-01 -5.215E+00 -4.198E+00  2.957E-01  2.749E-01 -3.208E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        3               3.461E+00  1.012E+00  3.803E+00  1.188E+00  7.771E-01 -5.694E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.476E+00 -9.249E+00 -9.057E+00  1.148E+00  6.955E-01 -1.515E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.230E+00 -1.176E+01 -1.207E+01 -4.207E-01  7.531E-01  1.379E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.131E+00  3.589E+00  7.120E+00 -3.607E-01  8.741E-01 -6.722E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.623E-02 -4.150E+00 -2.663E+00  3.884E-01  7.740E-01 -3.116E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   182\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    122        4               3.027E+00  2.542E+00  4.268E+00  1.026E+00  9.017E-01 -5.102E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.073E+00 -6.291E+00 -7.234E+00  9.876E-01  8.382E-01 -3.589E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.617E+00 -8.446E+00 -9.914E+00 -3.025E-01  9.119E-01  2.357E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.463E+00  4.732E+00  7.175E+00 -2.453E-01  1.005E+00 -6.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.326E-02 -1.909E+00 -1.528E+00  3.664E-01  9.136E-01 -2.448E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        5               2.399E+00  2.491E+00  3.853E+00  8.377E-01  9.034E-01 -4.297E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.503E+00 -4.530E+00 -5.466E+00  8.007E-01  8.545E-01  3.907E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.753E+00 -6.240E+00 -7.620E+00 -2.020E-01  9.298E-01  2.885E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.511E+00  4.203E+00  6.150E+00 -1.465E-01  9.995E-01 -6.120E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.220E-01 -1.054E+00 -8.534E-01  3.225E-01  9.213E-01 -1.761E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        6               1.871E+00  2.150E+00  3.311E+00  6.669E-01  8.601E-01 -3.533E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.022E+00 -3.335E+00 -4.181E+00  6.313E-01  8.234E-01  7.879E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.023E+00 -4.667E+00 -5.897E+00 -1.236E-01  8.954E-01  2.984E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.716E+00  3.459E+00  5.107E+00 -7.013E-02  9.457E-01 -5.278E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.434E-01 -6.269E-01 -4.821E-01  2.761E-01  8.807E-01 -1.237E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        7               1.457E+00  1.779E+00  2.783E+00  5.286E-01  7.983E-01 -2.905E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.641E+00 -2.505E+00 -3.257E+00  4.944E-01  7.710E-01  9.474E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.446E+00 -3.544E+00 -4.626E+00 -7.083E-02  8.381E-01  2.840E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.094E+00  2.778E+00  4.186E+00 -1.950E-02  8.728E-01 -4.490E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.575E-01 -3.964E-01 -2.831E-01  2.332E-01  8.198E-01 -8.825E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        8               1.137E+00  1.450E+00  2.320E+00  4.199E-01  7.307E-01 -2.401E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.343E+00 -1.919E+00 -2.578E+00  3.872E-01  7.110E-01  9.753E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.996E+00 -2.733E+00 -3.676E+00 -3.753E-02  7.727E-01  2.589E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.617E+00  2.213E+00  3.421E+00  1.157E-02  7.950E-01 -3.803E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.654E-01 -2.661E-01 -1.727E-01  1.953E-01  7.522E-01 -6.432E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    122        9               8.902E-01  1.175E+00  1.930E+00  3.347E-01  6.626E-01 -1.992E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.108E+00 -1.491E+00 -2.065E+00  3.035E-01  6.490E-01  9.341E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.642E+00 -2.134E+00 -2.949E+00 -1.732E-02  7.057E-01  2.301E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.249E+00  1.759E+00  2.796E+00  2.940E-02  7.179E-01 -3.213E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.684E-01 -1.885E-01 -1.086E-01  1.626E-01  6.837E-01 -4.783E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    122       10               6.972E-01  9.491E-01  1.604E+00  2.673E-01  5.963E-01 -1.657E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.204E-01 -1.172E+00 -1.667E+00  2.378E-01  5.876E-01  8.587E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.360E+00 -1.682E+00 -2.382E+00 -5.639E-03  6.396E-01  2.010E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.645E-01  1.398E+00  2.286E+00  3.855E-02  6.436E-01 -2.706E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.675E-01 -1.398E-01 -6.987E-02  1.345E-01  6.167E-01 -3.619E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   183\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    122                0.0000  1.772E+01  1.357E+01  1.660E+01  7.590E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.976E+01 -4.377E+01 -5.100E+01  7.182E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.959E+01 -5.780E+01 -6.644E+01 -2.226E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.590E+01  2.747E+01  3.326E+01 -1.614E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.674E+00 -1.537E+01 -1.746E+01  2.733E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    122                7.1000  1.413E+01  9.627E+00  1.011E+01  6.271E+00  4.279E+00 -1.840E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.565E+01 -3.698E+01 -4.254E+01  5.952E+00  4.090E+00  2.460E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.348E+01 -4.842E+01 -5.459E+01 -2.018E+00  4.444E+00  1.336E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.073E+01  2.104E+01  2.331E+01 -1.540E+00  4.692E+00 -2.644E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.251E+00 -1.387E+01 -1.635E+01  2.166E+00  4.374E+00 -7.148E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        0               2.737E-02 -6.920E-01 -2.559E+00  3.009E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.720E-01 -2.374E+00 -3.209E+00  3.534E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.079E-01 -2.241E+00 -3.029E+00 -2.608E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.772E-02 -1.120E+00 -2.598E+00 -2.958E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.486E-01 -1.607E+00 -2.849E+00  2.443E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        1               1.166E-01 -2.982E+00 -5.084E+00  6.273E-01  5.982E-02 -1.261E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.408E+00 -6.579E+00 -6.568E+00  7.389E-01  3.979E-02 -9.506E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.513E-01 -6.302E+00 -6.200E+00 -5.563E-01  3.143E-03 -5.611E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.628E-01 -3.906E+00 -5.215E+00 -6.307E-01  1.776E-02 -9.312E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.949E-01 -4.942E+00 -5.767E+00  4.482E-02  3.014E-02 -9.352E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        2               7.851E-01 -7.334E+00 -5.792E+00  6.890E-01  2.361E-01 -1.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.111E+00 -1.279E+01 -9.996E+00  8.738E-01  1.611E-01 -1.703E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.239E+00 -1.238E+01 -9.502E+00 -7.230E-01  1.205E-02  1.997E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.850E-01 -8.747E+00 -6.714E+00 -8.462E-01  6.583E-02 -5.706E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.737E-01 -1.031E+01 -8.010E+00 -1.621E-03  1.187E-01 -1.083E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        3               1.900E+00 -6.816E+00 -6.714E+00  5.922E-01  6.339E-01  8.591E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.271E+00 -1.469E+01 -1.608E+01  8.963E-01  4.884E-01 -1.093E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.887E+00 -1.407E+01 -1.538E+01 -7.939E-01  4.935E-02  1.388E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.555E+00 -8.823E+00 -9.153E+00 -9.967E-01  1.546E-01  1.547E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.364E-01 -1.111E+01 -1.186E+01 -7.548E-02  3.315E-01  4.472E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        4               1.620E+00 -4.147E+00 -5.183E+00  4.950E-01  7.395E-01  1.616E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.951E+00 -1.098E+01 -1.359E+01  7.666E-01  5.936E-01  2.674E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.718E+00 -1.043E+01 -1.297E+01 -6.479E-01  6.442E-02  2.268E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.337E+00 -5.864E+00 -7.354E+00 -8.290E-01  1.721E-01  2.621E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.375E-01 -7.865E+00 -9.796E+00 -5.382E-02  3.925E-01  1.594E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   184\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    123        5               1.211E+00 -2.811E+00 -3.836E+00  3.995E-01  7.424E-01  2.422E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.493E+00 -8.310E+00 -1.068E+01  6.258E-01  6.087E-01  7.351E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.465E+00 -7.848E+00 -1.017E+01 -4.959E-01  6.855E-02  2.762E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.022E+00 -4.165E+00 -5.565E+00 -6.468E-01  1.683E-01  3.185E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.381E-01 -5.791E+00 -7.581E+00 -2.936E-02  3.970E-01  2.237E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        6               8.679E-01 -1.980E+00 -2.908E+00  3.088E-01  7.075E-01  2.756E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.098E+00 -6.327E+00 -8.447E+00  4.970E-01  5.895E-01  1.020E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.244E+00 -5.944E+00 -8.023E+00 -3.664E-01  6.790E-02  2.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.598E-01 -3.019E+00 -4.268E+00 -4.919E-01  1.576E-01  3.293E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.335E-01 -4.322E+00 -5.923E+00 -1.311E-02  3.809E-01  2.427E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        7               6.004E-01 -1.442E+00 -2.266E+00  2.351E-01  6.571E-01  2.797E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.778E+00 -4.878E+00 -6.758E+00  3.932E-01  5.551E-01  1.055E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.062E+00 -4.557E+00 -6.405E+00 -2.680E-01  6.521E-02  2.564E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.570E-01 -2.233E+00 -3.332E+00 -3.734E-01  1.445E-01  3.144E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.241E-01 -3.281E+00 -4.698E+00 -3.264E-03  3.558E-01  2.357E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        8               3.979E-01 -1.082E+00 -1.805E+00  1.778E-01  6.017E-01  2.687E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.522E+00 -3.814E+00 -5.471E+00  3.123E-01  5.147E-01  9.694E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.150E-01 -3.544E+00 -5.176E+00 -1.957E-01  6.170E-02  2.247E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.036E-01 -1.683E+00 -2.641E+00 -2.853E-01  1.310E-01  2.881E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.108E-01 -2.533E+00 -3.778E+00  2.270E-03  3.277E-01  2.167E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123        9               2.457E-01 -8.332E-01 -1.461E+00  1.337E-01  5.458E-01  2.502E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.313E+00 -3.019E+00 -4.471E+00  2.492E-01  4.727E-01  8.331E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.941E-01 -2.789E+00 -4.223E+00 -1.427E-01  5.777E-02  1.908E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.879E-01 -1.289E+00 -2.117E+00 -2.198E-01  1.177E-01  2.576E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.944E-01 -1.984E+00 -3.071E+00  5.084E-03  2.989E-01  1.930E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123       10               1.319E-01 -6.546E-01 -1.196E+00  9.960E-02  4.913E-01  2.283E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.140E+00 -2.412E+00 -3.677E+00  1.997E-01  4.307E-01  6.823E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.930E-01 -2.215E+00 -3.469E+00 -1.038E-01  5.370E-02  1.582E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.003E-01 -9.984E-01 -1.709E+00 -1.705E-01  1.053E-01  2.267E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.754E-01 -1.570E+00 -2.513E+00  6.241E-03  2.707E-01  1.682E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    123                0.0000  7.905E+00 -3.077E+01 -3.880E+01  4.059E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.076E+01 -7.617E+01 -8.895E+01  5.906E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.228E+01 -7.231E+01 -8.456E+01 -4.554E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.028E+00 -4.185E+01 -5.067E+01 -5.786E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.568E+00 -5.532E+01 -6.584E+01 -9.382E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   185\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    123                7.1000  6.482E+00 -2.661E+01 -3.278E+01  3.472E+00  3.517E+00  1.222E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.626E+01 -6.343E+01 -7.179E+01  4.918E+00  2.942E+00  3.207E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.595E+00 -6.037E+01 -6.829E+01 -3.874E+00  3.417E-01  1.205E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.673E+00 -3.573E+01 -4.204E+01 -4.838E+00  7.858E-01  1.490E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.461E+00 -4.657E+01 -5.381E+01 -8.049E-02  1.898E+00  1.042E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        0               9.277E-02  1.996E+00 -1.802E+00  3.198E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.679E-01  1.128E+00 -2.137E+00  3.440E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.290E-01  8.232E-01 -2.095E+00 -1.189E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.121E-01  2.124E+00 -1.593E+00 -1.552E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.291E-02  1.518E+00 -1.906E+00  9.741E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        1               2.272E-01  2.812E+00 -3.254E+00  6.748E-01  7.984E-03 -4.868E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.829E-01  9.173E-01 -4.060E+00  7.292E-01  6.000E-03 -3.898E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.148E-01  2.390E-01 -4.040E+00 -2.600E-01  4.103E-02 -3.574E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.961E-01  3.076E+00 -2.841E+00 -3.417E-01  4.689E-02 -5.238E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.368E-02  1.761E+00 -3.549E+00  2.006E-01  2.557E-02 -4.401E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        2               6.829E-01  1.443E+00  1.299E+00  8.379E-01  3.388E-02 -1.058E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.138E+00 -1.780E+00 -1.547E+00  9.607E-01  3.483E-02 -7.816E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.128E+00 -2.933E+00 -2.359E+00 -2.924E-01  1.925E-01 -6.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.568E+00  1.867E+00  1.829E+00 -4.767E-01  2.041E-01 -1.075E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.242E-03 -3.562E-01 -2.073E-01  2.573E-01  1.168E-01 -8.820E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        3               1.463E+00  5.410E+00  1.075E+01  9.026E-01  8.203E-02 -1.409E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.075E+00  3.781E-01  3.994E+00  1.143E+00  1.340E-01 -8.581E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.136E+00 -1.334E+00  1.587E+00 -1.373E-01  5.947E-01 -5.498E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.061E+00  6.105E+00  1.147E+01 -4.984E-01  5.542E-01 -1.461E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.084E-02  2.623E+00  6.912E+00  3.526E-01  3.428E-01 -1.072E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        4               1.300E+00  6.277E+00  1.054E+01  7.612E-01  9.239E-02 -1.382E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.824E+00  1.945E+00  4.452E+00  9.759E-01  1.694E-01 -7.537E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.870E+00  4.903E-01  2.265E+00 -4.879E-02  7.071E-01 -4.557E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.674E+00  6.845E+00  1.106E+01 -3.709E-01  6.363E-01 -1.490E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.255E-02  3.872E+00  7.036E+00  3.293E-01  4.034E-01 -1.023E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        5               1.053E+00  5.441E+00  8.957E+00  6.085E-01  9.197E-02 -1.244E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.466E+00  2.004E+00  3.997E+00  7.823E-01  1.763E-01 -6.209E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.498E+00  8.611E-01  2.210E+00  8.624E-03  7.112E-01 -3.426E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.117E+00  5.853E+00  9.268E+00 -2.521E-01  6.296E-01 -1.365E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.562E-02  3.524E+00  6.071E+00  2.868E-01  4.045E-01 -8.957E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   186\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    131        6               8.486E-01  4.438E+00  7.454E+00  4.735E-01  8.802E-02 -1.074E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.164E+00  1.751E+00  3.431E+00  6.116E-01  1.722E-01 -4.938E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.191E+00  8.696E-01  1.979E+00  4.895E-02  6.771E-01 -2.424E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.653E+00  4.725E+00  7.605E+00 -1.581E-01  5.934E-01 -1.190E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.155E-02  2.931E+00  5.082E+00  2.440E-01  3.847E-01 -7.522E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        7               6.893E-01  3.563E+00  6.163E+00  3.674E-01  8.250E-02 -9.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.266E-01  1.455E+00  2.884E+00  4.765E-01  1.631E-01 -3.903E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.548E-01  7.728E-01  1.701E+00  7.041E-02  6.275E-01 -1.671E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.289E+00  3.754E+00  6.200E+00 -9.312E-02  5.460E-01 -1.019E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.054E-02  2.372E+00  4.205E+00  2.053E-01  3.567E-01 -6.245E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        8               5.669E-01  2.857E+00  5.101E+00  2.866E-01  7.662E-02 -7.743E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.422E-01  1.188E+00  2.406E+00  3.726E-01  1.518E-01 -3.085E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.742E-01  6.537E-01  1.436E+00  7.851E-02  5.735E-01 -1.121E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.009E+00  2.976E+00  5.058E+00 -5.044E-02  4.962E-01 -8.663E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.314E-03  1.906E+00  3.471E+00  1.718E-01  3.263E-01 -5.169E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131        9               4.716E-01  2.298E+00  4.235E+00  2.251E-01  7.059E-02 -6.540E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.983E-01  9.636E-01  2.003E+00  2.927E-01  1.397E-01 -2.437E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.348E-01  5.409E-01  1.204E+00  7.841E-02  5.196E-01 -7.196E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.928E-01  2.366E+00  4.138E+00 -2.311E-02  4.474E-01 -7.333E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.742E-03  1.530E+00  2.868E+00  1.433E-01  2.959E-01 -4.270E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131       10               3.958E-01  1.856E+00  3.524E+00  1.776E-01  6.469E-02 -5.506E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.846E-01  7.800E-01  1.666E+00  2.307E-01  1.276E-01 -1.920E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.252E-01  4.423E-01  1.005E+00  7.359E-02  4.675E-01 -4.259E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.241E-01  1.886E+00  3.393E+00 -6.044E-03  4.009E-01 -6.183E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.089E-03  1.230E+00  2.372E+00  1.190E-01  2.666E-01 -3.519E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    131                0.0000  7.792E+00  3.839E+01  5.297E+01  5.635E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.127E+01  1.073E+01  1.709E+01  6.920E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.146E+01  1.426E+00  4.892E+00 -4.989E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.580E+01  4.158E+01  5.559E+01 -2.426E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.575E-02  2.291E+01  3.235E+01  2.407E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    131                7.1000  6.062E+00  2.993E+01  3.809E+01  4.708E+00  4.476E-01 -5.391E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.965E+00  7.566E+00  1.036E+01  5.726E+00  8.549E-01 -2.561E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.057E+00 -1.364E-02  1.078E+00 -6.412E-01  3.343E+00 -1.299E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.261E+01  3.265E+01  4.062E+01 -2.169E+00  2.939E+00 -5.911E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.636E-02  1.745E+01  2.234E+01  1.906E+00  1.906E+00 -3.801E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   187\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    132        0               3.966E-01  1.360E+00 -1.868E+00  3.984E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.409E-01 -1.383E+00 -2.916E+00  4.053E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.787E-01 -8.616E-01 -2.601E+00 -9.756E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.810E-01  9.685E-01 -1.899E+00 -1.022E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.350E-01  2.158E-02 -2.320E+00  1.510E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        1               9.291E-01  1.459E+00 -3.444E+00  8.285E-01  8.208E-02 -3.956E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.600E+00 -4.495E+00 -5.921E+00  8.416E-01  5.585E-02 -2.051E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.039E+00 -3.380E+00 -5.238E+00 -2.308E-01  4.539E-02 -2.221E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.471E-01  5.894E-01 -3.586E+00 -2.395E-01  6.268E-02 -3.776E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.655E-01 -1.456E+00 -4.547E+00  2.999E-01  6.132E-02 -2.993E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        2               2.452E+00 -3.514E-01 -4.147E-02  9.421E-01  3.322E-01 -8.021E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.926E+00 -1.011E+01 -8.207E+00  9.490E-01  2.417E-01 -3.560E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.928E+00 -8.393E+00 -6.638E+00 -4.219E-01  2.101E-01 -3.185E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.648E+00 -1.894E+00 -1.215E+00 -4.265E-01  2.694E-01 -6.869E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.036E-01 -5.203E+00 -4.061E+00  2.606E-01  2.627E-01 -5.389E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        3               5.008E+00  3.301E+00  6.997E+00  9.256E-01  8.740E-01 -8.959E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.114E+00 -1.149E+01 -1.195E+01  9.247E-01  7.529E-01 -2.465E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.387E+00 -8.984E+00 -8.700E+00 -5.340E-01  6.587E-01 -2.001E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.341E+00  8.564E-01  3.887E+00 -5.334E-01  7.365E-01 -7.471E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.584E-02 -4.127E+00 -2.554E+00  1.958E-01  7.547E-01 -5.194E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        4               4.357E+00  4.484E+00  7.068E+00  8.086E-01  1.005E+00 -7.911E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.504E+00 -8.183E+00 -9.802E+00  8.153E-01  9.119E-01 -7.607E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.984E+00 -6.037E+00 -6.916E+00 -3.752E-01  7.888E-01 -7.656E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.894E+00  2.378E+00  4.260E+00 -3.798E-01  8.475E-01 -6.785E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.026E-01 -1.883E+00 -1.448E+00  2.172E-01  8.876E-01 -4.022E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        5               3.423E+00  3.997E+00  6.062E+00  6.775E-01  9.995E-01 -6.551E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.652E+00 -6.004E+00 -7.519E+00  6.930E-01  9.298E-01  4.014E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.416E+00 -4.300E+00 -5.189E+00 -2.240E-01  7.955E-01  2.225E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.263E+00  2.330E+00  3.779E+00 -2.344E-01  8.394E-01 -5.621E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.305E-01 -1.029E+00 -7.989E-01  2.280E-01  8.905E-01 -2.854E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        6               2.645E+00  3.293E+00  5.036E+00  5.505E-01  9.456E-01 -5.241E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.937E+00 -4.465E+00 -5.811E+00  5.729E-01  8.953E-01  9.763E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.941E+00 -3.134E+00 -3.942E+00 -1.110E-01  7.586E-01  7.396E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.741E+00  1.999E+00  3.197E+00 -1.259E-01  7.905E-01 -4.486E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.513E-01 -6.051E-01 -4.461E-01  2.216E-01  8.471E-01 -1.973E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   188\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    132        7               2.038E+00  2.647E+00  4.130E+00  4.439E-01  8.728E-01 -4.167E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.374E+00 -3.375E+00 -4.554E+00  4.709E-01  8.381E-01  1.173E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.567E+00 -2.333E+00 -3.050E+00 -3.678E-02  7.039E-01  9.303E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.336E+00  1.643E+00  2.649E+00 -5.475E-02  7.264E-01 -3.564E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.647E-01 -3.776E-01 -2.599E-01  2.058E-01  7.850E-01 -1.381E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        8               1.573E+00  2.112E+00  3.378E+00  3.578E-01  7.950E-01 -3.313E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.937E+00 -2.595E+00 -3.617E+00  3.875E-01  7.727E-01  1.172E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.277E+00 -1.772E+00 -2.399E+00  8.688E-03  6.440E-01  9.479E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.027E+00  1.330E+00  2.180E+00 -1.113E-02  6.592E-01 -2.837E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.720E-01 -2.500E-01 -1.582E-01  1.857E-01  7.176E-01 -9.851E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    132        9               1.217E+00  1.683E+00  2.763E+00  2.886E-01  7.179E-01 -2.634E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.594E+00 -2.023E+00 -2.902E+00  3.197E-01  7.057E-01  1.077E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.050E+00 -1.368E+00 -1.910E+00  3.496E-02  5.840E-01  8.810E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.916E-01  1.070E+00  1.791E+00  1.420E-02  5.935E-01 -2.261E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.744E-01 -1.747E-01 -1.001E-01  1.644E-01  6.502E-01 -7.155E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    132       10               9.405E-01  1.341E+00  2.262E+00  2.327E-01  6.436E-01 -2.089E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.322E+00 -1.593E+00 -2.344E+00  2.642E-01  6.395E-01  9.414E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.698E-01 -1.069E+00 -1.533E+00  4.876E-02  5.259E-01  7.771E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.098E-01  8.593E-01  1.471E+00  2.776E-02  5.309E-01 -1.802E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.729E-01 -1.279E-01 -6.538E-02  1.434E-01  5.849E-01 -5.273E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    132                0.0000  2.498E+01  2.533E+01  3.234E+01  6.454E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.870E+01 -5.572E+01 -6.554E+01  6.644E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.894E+01 -4.163E+01 -4.812E+01 -1.939E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.658E+01  1.213E+01  1.651E+01 -2.066E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.758E+00 -1.521E+01 -1.676E+01  2.273E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    132                7.1000  1.995E+01  1.921E+01  2.253E+01  5.350E+00  4.692E+00 -2.712E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.275E+01 -4.674E+01 -5.387E+01  5.469E+00  4.444E+00  2.243E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.501E+01 -3.527E+01 -4.018E+01 -1.815E+00  3.744E+00  1.511E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.328E+01  8.517E+00  1.034E+01 -1.894E+00  3.908E+00 -2.322E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.317E+00 -1.375E+01 -1.572E+01  1.777E+00  4.195E+00 -1.150E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        0               7.776E-02 -1.074E+00 -2.578E+00  3.593E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.813E-01 -1.946E+00 -2.903E+00  2.927E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.640E-01 -2.079E+00 -2.963E+00 -1.883E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.209E-01 -7.659E-01 -2.465E+00 -8.834E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.472E-01 -1.466E+00 -2.727E+00  9.382E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   189\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    133        1               2.059E-01 -3.805E+00 -5.172E+00  7.589E-01  1.775E-02 -2.040E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.946E-01 -5.702E+00 -5.944E+00  6.207E-01  3.143E-03 -1.175E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.393E+00 -5.983E+00 -6.080E+00 -4.075E-01  3.222E-02 -8.272E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.857E-01 -3.130E+00 -4.907E+00 -2.003E-01  4.977E-02 -2.323E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.921E-01 -4.655E+00 -5.526E+00  1.929E-01  2.584E-02 -1.581E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        2               7.351E-01 -8.630E+00 -6.664E+00  9.780E-01  6.567E-02 -3.546E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.726E-01 -1.175E+01 -9.235E+00  7.898E-01  1.199E-02 -1.092E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.097E+00 -1.217E+01 -9.507E+00 -5.363E-01  1.455E-01  5.250E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.653E-01 -7.488E+00 -5.649E+00 -2.539E-01  2.155E-01 -3.655E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.707E-01 -1.001E+01 -7.771E+00  2.444E-01  1.098E-01 -1.916E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        3               1.606E+00 -8.703E+00 -9.101E+00  1.137E+00  1.544E-01 -2.620E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.614E+00 -1.343E+01 -1.511E+01  8.687E-01  4.893E-02  2.429E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.248E+00 -1.406E+01 -1.557E+01 -5.439E-01  4.633E-01  4.777E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.557E+00 -6.994E+00 -6.620E+00 -1.419E-01  6.010E-01 -3.599E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.340E-01 -1.081E+01 -1.162E+01  3.299E-01  3.172E-01  2.899E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        4               1.383E+00 -5.757E+00 -7.308E+00  9.718E-01  1.719E-01 -1.009E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.455E+00 -9.815E+00 -1.271E+01  7.287E-01  6.433E-02  4.842E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.918E+00 -1.037E+01 -1.309E+01 -4.146E-01  5.594E-01  6.913E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.275E+00 -4.344E+00 -5.131E+00 -5.007E-02  6.958E-01 -2.740E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.360E-01 -7.577E+00 -9.575E+00  3.090E-01  3.734E-01  2.048E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        5               1.059E+00 -4.079E+00 -5.529E+00  7.833E-01  1.682E-01  1.205E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.228E+00 -7.296E+00 -9.936E+00  5.766E-01  6.834E-02  5.976E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.450E+00 -7.742E+00 -1.020E+01 -2.948E-01  5.678E-01  7.812E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.863E-01 -3.012E+00 -3.812E+00  1.523E-02  6.902E-01 -1.809E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.373E-01 -5.536E+00 -7.379E+00  2.701E-01  3.743E-01  3.069E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        6               7.869E-01 -2.956E+00 -4.241E+00  6.168E-01  1.575E-01  6.888E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.040E+00 -5.467E+00 -7.818E+00  4.425E-01  6.778E-02  6.176E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.049E+00 -5.824E+00 -7.996E+00 -1.994E-01  5.446E-01  7.745E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.754E-01 -2.172E+00 -2.899E+00  6.196E-02  6.509E-01 -1.228E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.333E-01 -4.106E+00 -5.742E+00  2.305E-01  3.560E-01  3.385E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        7               5.756E-01 -2.189E+00 -3.313E+00  4.848E-01  1.444E-01  8.922E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.909E-01 -4.157E+00 -6.234E+00  3.375E-01  6.524E-02  5.878E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.727E+00 -4.441E+00 -6.343E+00 -1.327E-01  5.084E-01  7.194E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.442E-01 -1.618E+00 -2.262E+00  8.825E-02  5.987E-01 -9.197E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.245E-01 -3.101E+00 -4.538E+00  1.945E-01  3.300E-01  3.295E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   190\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    133        8               4.155E-01 -1.656E+00 -2.629E+00  3.832E-01  1.309E-01  9.046E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.737E-01 -3.214E+00 -5.035E+00  2.579E-01  6.168E-02  5.363E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.471E+00 -3.441E+00 -5.094E+00 -8.826E-02  4.681E-01  6.458E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.772E-01 -1.239E+00 -1.803E+00  9.975E-02  5.436E-01 -7.638E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.116E-01 -2.386E+00 -3.637E+00  1.632E-01  3.020E-01  3.019E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133        9               2.945E-01 -1.274E+00 -2.110E+00  3.049E-01  1.177E-01  8.251E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.792E-01 -2.521E+00 -4.108E+00  1.976E-01  5.773E-02  4.773E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.264E+00 -2.703E+00 -4.132E+00 -5.903E-02  4.273E-01  5.682E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.781E-02 -9.712E-01 -1.458E+00  1.019E-01  4.895E-01 -6.869E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.955E-01 -1.865E+00 -2.947E+00  1.363E-01  2.740E-01  2.672E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133       10               2.029E-01 -9.922E-01 -1.706E+00  2.438E-01  1.052E-01  7.070E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.007E-01 -2.000E+00 -3.377E+00  1.516E-01  5.365E-02  4.177E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.093E+00 -2.147E+00 -3.374E+00 -3.993E-02  3.877E-01  4.928E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.653E-02 -7.739E-01 -1.192E+00  9.831E-02  4.380E-01 -6.478E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.766E-01 -1.476E+00 -2.406E+00  1.134E-01  2.471E-01  2.311E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    133                0.0000  7.342E+00 -4.112E+01 -5.035E+01  7.022E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.013E+01 -6.730E+01 -8.241E+01  5.264E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.038E+01 -7.096E+01 -8.435E+01 -2.905E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.005E+00 -3.251E+01 -3.820E+01 -2.691E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.559E+00 -5.299E+01 -6.387E+01  2.278E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    133                7.1000  5.944E+00 -3.509E+01 -4.177E+01  5.803E+00  7.854E-01  8.292E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.858E+00 -5.632E+01 -6.655E+01  4.416E+00  3.412E-01  2.763E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.601E+01 -5.927E+01 -6.823E+01 -2.544E+00  2.702E+00  3.548E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.199E+00 -2.792E+01 -3.221E+01 -4.629E-01  3.215E+00 -8.246E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.451E+00 -4.467E+01 -5.224E+01  1.803E+00  1.765E+00  1.411E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        0               1.807E-01  1.818E+00 -1.724E+00  3.713E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.300E-01  3.543E-01 -2.296E+00  3.766E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.236E-01  9.318E-01 -1.909E+00 -1.582E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.844E-01  1.908E+00 -1.526E+00 -1.617E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.206E-02  1.253E+00 -1.864E+00  1.070E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        1               4.428E-01  2.485E+00 -3.094E+00  7.782E-01  4.688E-02 -6.470E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.115E-01 -6.865E-01 -4.437E+00  7.803E-01  4.105E-02 -5.238E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.010E-01  5.243E-01 -3.636E+00 -3.562E-01  2.594E-03 -5.812E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.025E-01  2.639E+00 -2.740E+00 -3.577E-01  5.966E-03 -6.796E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.186E-02  1.241E+00 -3.477E+00  2.111E-01  2.414E-02 -6.066E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   191\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    141        2               1.343E+00  1.342E+00  1.604E+00  9.308E-01  2.040E-01 -1.340E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.512E+00 -3.828E+00 -2.743E+00  8.344E-01  1.926E-01 -1.096E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.755E-01 -2.178E+00 -1.225E+00 -5.798E-01  2.765E-02 -1.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.034E+00  1.274E+00  1.687E+00 -5.156E-01  2.945E-02 -1.349E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.934E-03 -8.520E-01 -1.795E-01  1.675E-01  1.137E-01 -1.229E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        3               2.869E+00  5.658E+00  1.128E+01  9.766E-01  5.545E-01 -1.611E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.509E+00 -2.202E+00  1.215E+00  7.148E-01  5.949E-01 -1.372E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.831E+00 -4.248E-02  4.150E+00 -7.489E-01  1.227E-01 -1.429E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.782E+00  5.225E+00  1.093E+01 -5.743E-01  7.535E-02 -1.653E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.329E-02  2.145E+00  6.860E+00  9.204E-02  3.382E-01 -1.511E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        4               2.514E+00  6.473E+00  1.090E+01  8.464E-01  6.361E-01 -1.521E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.219E+00 -3.246E-01  1.916E+00  6.318E-01  7.073E-01 -1.264E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.601E+00  1.518E+00  4.458E+00 -5.870E-01  1.533E-01 -1.374E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.582E+00  6.078E+00  1.051E+01 -4.439E-01  8.327E-02 -1.619E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.582E-02  3.423E+00  6.914E+00  1.118E-01  3.967E-01 -1.439E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        5               1.991E+00  5.557E+00  9.142E+00  7.011E-01  6.298E-01 -1.330E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.813E+00  1.251E-01  1.894E+00  5.487E-01  7.113E-01 -1.077E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.268E+00  1.594E+00  3.893E+00 -4.182E-01  1.569E-01 -1.200E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.291E+00  5.239E+00  8.780E+00 -3.166E-01  8.144E-02 -1.441E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.943E-02  3.118E+00  5.902E+00  1.288E-01  3.964E-01 -1.256E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        6               1.555E+00  4.496E+00  7.508E+00  5.665E-01  5.935E-01 -1.114E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.468E+00  2.243E-01  1.702E+00  4.624E-01  6.771E-01 -8.930E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.938E-01  1.375E+00  3.261E+00 -2.834E-01  1.504E-01 -1.006E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.044E+00  4.245E+00  7.182E+00 -2.140E-01  7.652E-02 -1.220E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.540E-02  2.576E+00  4.893E+00  1.329E-01  3.758E-01 -1.053E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        7               1.216E+00  3.583E+00  6.127E+00  4.566E-01  5.460E-01 -9.210E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.193E+00  2.170E-01  1.462E+00  3.875E-01  6.275E-01 -7.386E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.819E-01  1.120E+00  2.679E+00 -1.874E-01  1.400E-01 -8.361E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.456E-01  3.385E+00  5.839E+00 -1.413E-01  7.057E-02 -1.017E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.424E-02  2.069E+00  4.010E+00  1.289E-01  3.472E-01 -8.735E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    141        8               9.561E-01  2.853E+00  5.005E+00  3.698E-01  4.962E-01 -7.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.770E-01  1.807E-01  1.234E+00  3.254E-01  5.735E-01 -6.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.208E-01  8.942E-01  2.189E+00 -1.216E-01  1.283E-01 -6.939E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.896E-01  2.697E+00  4.754E+00 -9.196E-02  6.442E-02 -8.429E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.668E-03  1.650E+00  3.281E+00  1.204E-01  3.167E-01 -7.230E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   192\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    141        9               7.560E-01  2.280E+00  4.101E+00  3.011E-01  4.474E-01 -6.228E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.060E-01  1.415E-01  1.033E+00  2.741E-01  5.196E-01 -5.113E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.975E-01  7.095E-01  1.786E+00 -7.694E-02  1.165E-01 -5.761E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.662E-01  2.157E+00  3.883E+00 -5.895E-02  5.861E-02 -6.964E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.927E-04  1.316E+00  2.688E+00  1.098E-01  2.864E-01 -5.981E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    141       10               5.999E-01  1.829E+00  3.369E+00  2.461E-01  4.009E-01 -5.101E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.687E-01  1.076E-01  8.620E-01  2.314E-01  4.676E-01 -4.272E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.015E-01  5.625E-01  1.457E+00 -4.674E-02  1.051E-01 -4.782E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.672E-01  1.733E+00  3.182E+00 -3.693E-02  5.304E-02 -5.736E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.543E-03  1.053E+00  2.206E+00  9.848E-02  2.574E-01 -4.941E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    141                0.0000  1.442E+01  3.837E+01  5.422E+01  6.545E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.451E+01 -5.690E+00  1.842E+00  5.567E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.296E+00  7.009E+00  1.710E+01 -3.564E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.019E+01  3.658E+01  5.248E+01 -2.913E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.267E-01  1.899E+01  3.123E+01  1.409E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    141                7.1000  1.141E+01  2.986E+01  3.943E+01  5.399E+00  2.940E+00 -5.622E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.153E+01 -5.771E+00 -1.390E+00  4.593E+00  3.343E+00 -4.603E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.345E+00  4.656E+00  1.084E+01 -3.074E+00  7.356E-01 -5.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.081E+00  2.855E+01  3.837E+01 -2.537E+00  3.845E-01 -6.096E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.871E-02  1.427E+01  2.168E+01  1.095E+00  1.857E+00 -5.327E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        0               1.933E-01  7.638E-01 -1.986E+00  4.778E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.286E-01 -7.447E-01 -2.551E+00  4.456E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.136E-01 -1.091E+00 -2.560E+00  2.198E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.242E-01  1.177E+00 -1.702E+00  7.022E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.307E-01  2.663E-02 -2.199E+00  2.539E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        1               4.787E-01  1.966E-01 -3.755E+00  9.968E-01  6.268E-02 -5.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.334E-01 -3.133E+00 -5.132E+00  9.326E-01  4.540E-02 -3.126E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.348E+00 -3.906E+00 -5.219E+00  1.773E-02  3.748E-02 -2.464E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.740E-01  1.092E+00 -3.144E+00  1.141E-01  6.082E-02 -5.748E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.570E-01 -1.438E+00 -4.312E+00  5.153E-01  5.143E-02 -4.092E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        2               1.500E+00 -2.241E+00 -1.363E+00  1.209E+00  2.693E-01 -1.024E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.808E+00 -8.112E+00 -6.518E+00  1.149E+00  2.101E-01 -5.212E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.677E+00 -9.509E+00 -7.528E+00 -6.812E-02  2.038E-01 -2.757E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.263E+00 -7.239E-01  1.526E-01  2.228E-02  2.885E-01 -1.123E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.954E-01 -5.161E+00 -3.849E+00  5.779E-01  2.424E-01 -7.332E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   193\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    142        3               3.212E+00  5.566E-01  3.759E+00  1.357E+00  7.365E-01 -1.189E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.257E+00 -8.679E+00 -8.569E+00  1.307E+00  6.589E-01 -3.239E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.855E+00 -1.088E+01 -1.130E+01 -1.815E-03  6.921E-01  6.008E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.772E+00  2.900E+00  7.014E+00  7.194E-02  8.049E-01 -1.389E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.929E-02 -4.072E+00 -2.384E+00  6.836E-01  7.222E-01 -7.059E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        4               2.783E+00  2.120E+00  4.150E+00  1.203E+00  8.475E-01 -1.061E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.855E+00 -5.737E+00 -6.788E+00  1.159E+00  7.887E-01 -9.298E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.243E+00 -7.595E+00 -9.192E+00  1.078E-01  8.291E-01  2.802E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.094E+00  4.069E+00  6.932E+00  1.747E-01  9.127E-01 -1.336E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.762E-02 -1.828E+00 -1.324E+00  6.612E-01  8.440E-01 -5.473E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        5               2.170E+00  2.113E+00  3.686E+00  1.014E+00  8.394E-01 -8.817E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.299E+00 -4.027E+00 -5.072E+00  9.737E-01  7.955E-01  6.387E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.397E+00 -5.467E+00 -6.964E+00  1.806E-01  8.302E-01  4.083E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.156E+00  3.592E+00  5.820E+00  2.411E-01  8.901E-01 -1.165E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.268E-01 -9.816E-01 -7.125E-01  6.024E-01  8.383E-01 -3.888E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        6               1.664E+00  1.819E+00  3.120E+00  8.348E-01  7.905E-01 -7.127E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.839E+00 -2.897E+00 -3.840E+00  7.983E-01  7.586E-01  1.452E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.698E+00 -3.990E+00 -5.314E+00  2.208E-01  7.853E-01  4.466E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.389E+00  2.916E+00  4.738E+00  2.755E-01  8.261E-01 -9.759E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.481E-01 -5.653E-01 -3.877E-01  5.324E-01  7.898E-01 -2.697E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        7               1.273E+00  1.496E+00  2.586E+00  6.847E-01  7.264E-01 -5.762E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.480E+00 -2.132E+00 -2.964E+00  6.513E-01  7.039E-01  1.759E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.155E+00 -2.963E+00 -4.112E+00  2.330E-01  7.229E-01  4.330E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.802E+00  2.307E+00  3.811E+00  2.831E-01  7.488E-01 -8.096E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.618E-01 -3.447E-01 -2.207E-01  4.630E-01  7.253E-01 -1.904E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        8               9.769E-01  1.212E+00  2.129E+00  5.629E-01  6.592E-01 -4.687E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.204E+00 -1.603E+00 -2.327E+00  5.322E-01  6.440E-01  1.795E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.740E+00 -2.239E+00 -3.225E+00  2.275E-01  6.567E-01  3.960E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.361E+00  1.812E+00  3.058E+00  2.735E-01  6.709E-01 -6.710E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.691E-01 -2.224E-01 -1.322E-01  3.990E-01  6.576E-01 -1.378E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    142        9               7.515E-01  9.764E-01  1.751E+00  4.642E-01  5.935E-01 -3.832E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.897E-01 -1.227E+00 -1.850E+00  4.359E-01  5.840E-01  1.694E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.418E+00 -1.718E+00 -2.557E+00  2.120E-01  5.919E-01  3.504E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.028E+00  1.421E+00  2.457E+00  2.545E-01  5.969E-01 -5.564E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.715E-01 -1.513E-01 -8.306E-02  3.417E-01  5.915E-01 -1.022E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   194\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    142       10               5.782E-01  7.856E-01  1.439E+00  3.837E-01  5.309E-01 -3.144E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.200E-01 -9.525E-01 -1.483E+00  3.575E-01  5.259E-01  1.530E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.166E+00 -1.334E+00 -2.042E+00  1.916E-01  5.304E-01  3.035E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.743E-01  1.116E+00  1.976E+00  2.309E-01  5.280E-01 -4.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.699E-01 -1.080E-01 -5.455E-02  2.909E-01  5.288E-01 -7.747E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    142                0.0000  1.558E+01  9.798E+00  1.551E+01  9.188E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.791E+01 -3.924E+01 -4.709E+01  8.742E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.631E+01 -5.069E+01 -6.001E+01  1.343E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.274E+01  2.168E+01  3.111E+01  2.012E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.707E+00 -1.485E+01 -1.566E+01  5.321E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    142                7.1000  1.243E+01  6.545E+00  9.493E+00  7.481E+00  3.907E+00 -3.718E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.420E+01 -3.337E+01 -3.936E+01  7.123E+00  3.744E+00  3.882E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.090E+01 -4.272E+01 -4.945E+01  8.072E-01  3.848E+00  1.860E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.828E+01  1.638E+01  2.205E+01  1.345E+00  4.049E+00 -4.939E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.275E+00 -1.347E+01 -1.473E+01  4.189E+00  3.886E+00 -1.581E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        0               3.173E-02 -4.097E-01 -2.312E+00  3.494E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.840E-01 -1.892E+00 -2.883E+00  3.604E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.614E-01 -1.797E+00 -2.688E+00 -1.811E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.006E-02 -8.077E-01 -2.306E+00 -1.885E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.658E-01 -1.226E+00 -2.547E+00  8.506E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        1               1.264E-01 -2.402E+00 -4.595E+00  7.266E-01  4.975E-02 -3.062E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.229E+00 -5.600E+00 -5.916E+00  7.548E-01  3.222E-02 -1.832E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.587E-01 -5.400E+00 -5.520E+00 -3.968E-01  2.319E-03 -1.510E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.497E-02 -3.268E+00 -4.640E+00 -4.157E-01  1.401E-02 -2.474E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.290E-01 -4.168E+00 -5.167E+00  1.672E-01  2.451E-02 -2.226E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        2               7.981E-01 -6.711E+00 -5.316E+00  7.971E-01  2.153E-01 -4.818E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.925E+00 -1.177E+01 -9.334E+00  8.970E-01  1.455E-01 -2.286E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.345E+00 -1.144E+01 -8.815E+00 -5.630E-01  1.028E-02 -7.238E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.608E-01 -8.077E+00 -6.158E+00 -6.296E-01  5.804E-02 -2.766E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.068E-01 -9.504E+00 -7.415E+00  1.254E-01  1.071E-01 -2.664E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        3               1.913E+00 -6.162E+00 -6.263E+00  7.152E-01  6.010E-01 -1.769E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.079E+00 -1.366E+01 -1.540E+01  9.335E-01  4.633E-01  7.368E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.989E+00 -1.312E+01 -1.468E+01 -6.351E-01  4.645E-02  3.004E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.323E+00 -8.135E+00 -8.624E+00 -7.808E-01  1.426E-01  7.591E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.693E-01 -1.028E+01 -1.127E+01  5.816E-02  3.131E-01  6.569E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   195\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    143        4               1.634E+00 -3.507E+00 -4.772E+00  6.272E-01  6.955E-01  8.656E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.765E+00 -1.001E+01 -1.293E+01  8.155E-01  5.594E-01  3.452E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.814E+00 -9.529E+00 -1.228E+01 -4.992E-01  6.045E-02  5.425E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.107E+00 -5.206E+00 -6.871E+00 -6.248E-01  1.565E-01  3.052E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.700E-01 -7.073E+00 -9.239E+00  7.961E-02  3.678E-01  3.169E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        5               1.225E+00 -2.221E+00 -3.473E+00  5.335E-01  6.903E-01  2.452E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.323E+00 -7.446E+00 -1.008E+01  6.825E-01  5.678E-01  4.935E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.553E+00 -7.048E+00 -9.521E+00 -3.654E-01  6.378E-02  6.669E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.051E-01 -3.572E+00 -5.135E+00 -4.647E-01  1.503E-01  4.364E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.696E-01 -5.080E+00 -7.070E+00  9.650E-02  3.678E-01  4.575E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        6               8.822E-01 -1.456E+00 -2.592E+00  4.390E-01  6.509E-01  3.177E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.950E+00 -5.591E+00 -7.897E+00  5.573E-01  5.446E-01  5.314E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.324E+00 -5.261E+00 -7.422E+00 -2.572E-01  6.279E-02  6.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.619E-01 -2.506E+00 -3.890E+00 -3.361E-01  1.384E-01  4.754E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.638E-01 -3.710E+00 -5.465E+00  1.007E-01  3.491E-01  4.980E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        7               6.156E-01 -9.844E-01 -1.991E+00  3.584E-01  5.986E-01  3.354E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.652E+00 -4.267E+00 -6.269E+00  4.541E-01  5.084E-01  5.090E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.135E+00 -3.989E+00 -5.859E+00 -1.799E-01  6.009E-02  6.322E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.794E-01 -1.798E+00 -3.002E+00 -2.437E-01  1.250E-01  4.610E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.530E-01 -2.764E+00 -4.292E+00  9.722E-02  3.230E-01  4.818E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        8               4.140E-01 -6.868E-01 -1.566E+00  2.927E-01  5.435E-01  3.248E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.417E+00 -3.315E+00 -5.040E+00  3.720E-01  4.681E-01  4.606E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.814E-01 -3.078E+00 -4.685E+00 -1.266E-01  5.681E-02  5.632E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.457E-01 -1.319E+00 -2.354E+00 -1.795E-01  1.118E-01  4.227E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.384E-01 -2.104E+00 -3.420E+00  8.966E-02  2.951E-01  4.405E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143        9               2.627E-01 -4.932E-01 -1.254E+00  2.395E-01  4.895E-01  3.007E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.227E+00 -2.617E+00 -4.095E+00  3.065E-01  4.274E-01  4.031E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.549E-01 -2.413E+00 -3.785E+00 -9.007E-02  5.329E-02  4.886E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.484E-01 -9.865E-01 -1.867E+00 -1.348E-01  9.941E-02  3.756E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.204E-01 -1.630E+00 -2.757E+00  8.028E-02  2.675E-01  3.899E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    143       10               1.495E-01 -3.633E-01 -1.016E+00  1.961E-01  4.381E-01  2.710E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.070E+00 -2.092E+00 -3.351E+00  2.537E-01  3.877E-01  3.450E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.486E-01 -1.915E+00 -3.081E+00 -6.490E-02  4.973E-02  4.163E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.770E-02 -7.490E-01 -1.493E+00 -1.033E-01  8.807E-02  3.269E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.998E-01 -1.282E+00 -2.240E+00  7.039E-02  2.410E-01  3.379E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   196\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    143                0.0000  8.052E+00 -2.540E+01 -3.515E+01  5.275E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.922E+01 -6.826E+01 -8.319E+01  6.387E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.317E+01 -6.499E+01 -7.834E+01 -3.359E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.003E+00 -3.642E+01 -4.634E+01 -4.101E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.886E+00 -4.882E+01 -6.088E+01  1.050E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    143                7.1000  6.586E+00 -2.235E+01 -2.982E+01  4.380E+00  3.215E+00  1.232E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.503E+01 -5.698E+01 -6.725E+01  5.247E+00  2.702E+00  2.220E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.030E+01 -5.441E+01 -6.343E+01 -2.885E+00  3.162E-01  2.963E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.088E+00 -3.136E+01 -3.854E+01 -3.463E+00  6.846E-01  2.001E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.705E+00 -4.132E+01 -4.986E+01  8.197E-01  1.729E+00  2.090E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        0              -5.734E-02  1.111E+00 -1.868E+00  2.507E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.148E-01  7.190E-01 -2.001E+00  2.783E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.609E-02  6.968E-01 -1.765E+00  7.224E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.206E-01  1.285E+00 -1.565E+00  3.081E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.679E-02  9.532E-01 -1.799E+00  1.580E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        1              -7.096E-02  1.068E+00 -3.413E+00  5.386E-01  5.986E-03 -8.280E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.725E-01  1.245E-01 -3.808E+00  5.992E-01  2.598E-03 -6.846E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.204E-02  6.531E-03 -3.407E+00  1.213E-01  2.226E-02 -6.238E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.061E-01  1.418E+00 -2.824E+00  3.039E-02  3.014E-02 -8.490E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.244E-02  6.541E-01 -3.363E+00  3.224E-01  1.534E-02 -7.464E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        2               3.878E-01 -2.333E-01  1.041E+00  7.083E-01  2.964E-02 -1.769E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.014E+00 -2.503E+00 -1.364E+00  8.363E-01  2.775E-02 -1.370E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.085E-01 -3.111E+00 -1.817E+00  8.726E-02  1.539E-01 -1.126E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.356E+00  2.545E-01  1.699E+00 -1.047E-01  1.697E-01 -1.755E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.694E-04 -1.404E+00 -1.230E-01  3.818E-01  9.570E-02 -1.505E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        3               1.163E+00  3.782E+00  1.031E+01  7.818E-01  7.547E-02 -2.303E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.936E+00 -2.873E-01  4.045E+00  1.030E+00  1.225E-01 -1.550E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.703E+00 -1.469E+00  1.975E+00  2.443E-01  5.316E-01 -1.131E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.825E+00  4.514E+00  1.109E+01 -1.275E-01  4.984E-01 -2.313E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.972E-02  1.618E+00  6.813E+00  4.821E-01  3.086E-01 -1.825E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        4               1.006E+00  4.735E+00  9.933E+00  6.536E-01  8.362E-02 -2.233E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.679E+00  1.336E+00  4.380E+00  8.772E-01  1.535E-01 -1.387E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.438E+00  3.818E-01  2.503E+00  3.206E-01  6.205E-01 -9.698E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.428E+00  5.317E+00  1.045E+01 -1.488E-02  5.605E-01 -2.291E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.137E-02  2.925E+00  6.776E+00  4.591E-01  3.566E-01 -1.721E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   197\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    151        5               7.760E-01  4.037E+00  8.265E+00  5.180E-01  8.156E-02 -1.982E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.325E+00  1.462E+00  3.837E+00  7.019E-01  1.568E-01 -1.155E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.089E+00  7.719E-01  2.326E+00  3.497E-01  6.063E-01 -7.638E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.878E+00  4.449E+00  8.536E+00  7.386E-02  5.385E-01 -2.048E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.363E-02  2.663E+00  5.702E+00  4.109E-01  3.480E-01 -1.487E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        6               5.946E-01  3.197E+00  6.733E+00  4.002E-01  7.658E-02 -1.684E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.034E+00  1.282E+00  3.221E+00  5.492E-01  1.504E-01 -9.281E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.152E-01  7.985E-01  2.012E+00  3.546E-01  5.601E-01 -5.784E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.432E+00  3.476E+00  6.826E+00  1.312E-01  4.925E-01 -1.744E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.921E-02  2.173E+00  4.662E+00  3.588E-01  3.219E-01 -1.233E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        7               4.601E-01  2.486E+00  5.454E+00  3.098E-01  7.054E-02 -1.412E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.092E-01  1.056E+00  2.652E+00  4.301E-01  1.400E-01 -7.422E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.145E-01  7.196E-01  1.683E+00  3.400E-01  5.038E-01 -4.369E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.092E+00  2.667E+00  5.425E+00  1.596E-01  4.399E-01 -1.461E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.827E-02  1.718E+00  3.771E+00  3.099E-01  2.905E-01 -1.013E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        8               3.619E-01  1.932E+00  4.426E+00  2.425E-01  6.450E-02 -1.180E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.386E-01  8.528E-01  2.171E+00  3.399E-01  1.283E-01 -5.953E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.692E-01  6.173E-01  1.388E+00  3.143E-01  4.476E-01 -3.317E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.373E-01  2.043E+00  4.318E+00  1.683E-01  3.888E-01 -1.219E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.024E-02  1.349E+00  3.046E+00  2.663E-01  2.591E-01 -8.308E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    151        9               2.892E-01  1.511E+00  3.606E+00  1.921E-01  5.861E-02 -9.845E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.080E-01  6.850E-01  1.775E+00  2.712E-01  1.165E-01 -4.788E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.631E-01  5.191E-01  1.139E+00  2.837E-01  3.948E-01 -2.529E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.453E-01  1.571E+00  3.449E+00  1.652E-01  3.413E-01 -1.015E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.379E-03  1.060E+00  2.466E+00  2.281E-01  2.294E-01 -6.820E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    151       10               2.343E-01  1.190E+00  2.949E+00  1.538E-01  5.307E-02 -8.204E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.067E-01  5.504E-01  1.452E+00  2.181E-01  1.051E-01 -3.858E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.844E-01  4.326E-01  9.332E-01  2.517E-01  3.464E-01 -1.932E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.992E-01  1.214E+00  2.764E+00  1.554E-01  2.983E-01 -8.438E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.198E-04  8.363E-01  2.000E+00  1.948E-01  2.022E-01 -5.600E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    151                0.0000  5.145E+00  2.482E+01  4.743E+01  4.750E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.004E+01  5.278E+00  1.636E+01  6.131E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.593E+00  3.647E-01  6.971E+00  2.740E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.372E+01  2.821E+01  5.017E+01  6.676E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.875E-01  1.455E+01  2.995E+01  3.572E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   198\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    151                7.1000  3.986E+00  1.899E+01  3.428E+01  3.959E+00  3.850E-01 -8.449E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.017E+00  3.089E+00  1.017E+01  5.045E+00  7.356E-01 -4.802E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.039E+00 -9.561E-01  3.163E+00  1.931E+00  2.701E+00 -3.081E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.100E+01  2.193E+01  3.707E+01  3.029E-01  2.388E+00 -8.679E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.461E-01  1.068E+01  2.097E+01  2.810E+00  1.563E+00 -6.251E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        0               1.692E-01  8.149E-01 -1.857E+00  4.423E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.313E-01 -8.989E-01 -2.478E+00  4.707E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.586E-01 -4.930E-01 -2.129E+00  1.493E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.102E-01  6.514E-01 -1.711E+00  1.303E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.022E-01  1.901E-02 -2.043E+00  2.982E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        1               4.733E-01  3.901E-01 -3.444E+00  9.197E-01  6.083E-02 -6.889E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.177E+00 -3.506E+00 -5.047E+00  9.750E-01  3.748E-02 -3.509E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.999E-01 -2.624E+00 -4.307E+00  2.637E-01  2.272E-02 -3.953E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.993E-01 -2.729E-02 -3.240E+00  2.269E-01  3.870E-02 -6.393E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.007E-01 -1.442E+00 -4.009E+00  5.963E-01  3.976E-02 -5.173E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        2               1.989E+00 -1.363E+00 -1.213E-01  1.046E+00  2.885E-01 -1.388E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.487E+00 -9.066E+00 -7.338E+00  1.093E+00  2.038E-01 -5.590E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.487E+00 -7.587E+00 -5.739E+00  7.713E-02  1.637E-01 -5.918E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.480E+00 -2.469E+00 -9.679E-01  4.574E-02  2.203E-01 -1.196E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.412E-01 -5.136E+00 -3.576E+00  5.656E-01  2.185E-01 -9.303E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        3               4.528E+00  2.330E+00  6.769E+00  1.050E+00  8.048E-01 -1.584E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.653E+00 -1.040E+01 -1.110E+01  1.091E+00  6.919E-01 -3.037E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.933E+00 -8.144E+00 -7.851E+00 -2.595E-02  5.846E-01 -3.735E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.144E+00  3.023E-01  3.961E+00 -5.358E-02  6.587E-01 -1.313E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.550E-02 -4.026E+00 -2.164E+00  5.155E-01  6.842E-01 -8.884E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        4               3.880E+00  3.570E+00  6.718E+00  9.456E-01  9.127E-01 -1.420E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.045E+00 -7.134E+00 -8.995E+00  9.980E-01  8.291E-01 -1.004E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.531E+00 -5.222E+00 -6.144E+00  1.208E-01  6.878E-01 -1.414E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.688E+00  1.849E+00  4.181E+00  8.583E-02  7.428E-01 -1.172E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.387E-02 -1.776E+00 -1.158E+00  5.376E-01  7.925E-01 -6.801E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        5               2.974E+00  3.169E+00  5.638E+00  8.183E-01  8.900E-01 -1.184E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.220E+00 -5.053E+00 -6.787E+00  8.825E-01  8.301E-01  1.798E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.982E+00 -3.558E+00 -4.505E+00  2.382E-01  6.735E-01  3.312E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.068E+00  1.844E+00  3.594E+00  1.954E-01  7.144E-01 -9.593E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.336E-02 -9.331E-01 -5.930E-01  5.336E-01  7.765E-01 -4.769E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   199\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    152        6               2.239E+00  2.564E+00  4.587E+00  6.885E-01  8.260E-01 -9.528E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.547E+00 -3.637E+00 -5.162E+00  7.610E-01  7.852E-01  2.634E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.536E+00 -2.482E+00 -3.344E+00  3.063E-01  6.228E-01  1.223E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.569E+00  1.568E+00  2.959E+00  2.579E-01  6.528E-01 -7.586E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.537E-02 -5.233E-01 -3.021E-01  5.034E-01  7.214E-01 -3.264E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        7               1.679E+00  2.019E+00  3.687E+00  5.755E-01  7.488E-01 -7.632E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.030E+00 -2.670E+00 -3.986E+00  6.529E-01  7.229E-01  2.815E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.197E+00 -1.770E+00 -2.528E+00  3.336E-01  5.606E-01  1.539E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.191E+00  1.271E+00  2.390E+00  2.820E-01  5.826E-01 -5.993E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.102E-01 -3.087E-01 -1.587E-01  4.610E-01  6.535E-01 -2.274E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        8               1.261E+00  1.579E+00  2.959E+00  4.813E-01  6.709E-01 -6.130E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.637E+00 -2.001E+00 -3.123E+00  5.608E-01  6.567E-01  2.676E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.417E-01 -1.291E+00 -1.945E+00  3.346E-01  4.982E-01  1.558E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.098E-01  1.015E+00  1.921E+00  2.816E-01  5.141E-01 -4.763E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.190E-01 -1.916E-01 -8.652E-02  4.146E-01  5.848E-01 -1.628E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152        9               9.478E-01  1.235E+00  2.377E+00  4.032E-01  5.969E-01 -4.938E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.336E+00 -1.527E+00 -2.475E+00  4.826E-01  5.919E-01  2.397E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.487E-01 -9.590E-01 -1.515E+00  3.202E-01  4.395E-01  1.436E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.987E-01  8.068E-01  1.544E+00  2.672E-01  4.508E-01 -3.810E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.232E-01 -1.247E-01 -4.890E-02  3.683E-01  5.197E-01 -1.198E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    152       10               7.107E-01  9.673E-01  1.912E+00  3.381E-01  5.280E-01 -3.984E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.101E+00 -1.182E+00 -1.976E+00  4.159E-01  5.304E-01  2.070E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.005E-01 -7.226E-01 -1.190E+00  2.974E-01  3.858E-01  1.256E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.387E-01  6.418E-01  1.243E+00  2.455E-01  3.934E-01 -3.060E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.239E-01 -8.483E-02 -2.863E-02  3.242E-01  4.594E-01 -9.039E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    152                0.0000  2.085E+01  1.728E+01  2.923E+01  7.709E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.476E+01 -4.708E+01 -5.846E+01  8.384E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.482E+01 -3.485E+01 -4.120E+01  2.415E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.500E+01  7.454E+00  1.588E+01  1.965E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.158E+00 -1.453E+01 -1.417E+01  5.118E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    152                7.1000  1.669E+01  1.269E+01  2.046E+01  6.276E+00  4.048E+00 -4.924E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.965E+01 -3.981E+01 -4.820E+01  6.749E+00  3.848E+00  8.368E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.181E+01 -2.987E+01 -3.457E+01  1.624E+00  2.999E+00  2.005E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.202E+01  4.737E+00  1.029E+01  1.308E+00  3.159E+00 -3.965E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.615E-01 -1.324E+01 -1.341E+01  3.989E+00  3.512E+00 -1.939E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   200\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    153        0              -3.050E-02 -7.621E-01 -2.286E+00  3.062E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.991E-01 -1.185E+00 -2.426E+00  2.654E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.755E-01 -1.208E+00 -2.329E+00  2.743E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.188E-01 -5.708E-01 -2.110E+00  8.851E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.810E-01 -9.315E-01 -2.288E+00  1.719E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        1              -9.187E-03 -3.161E+00 -4.594E+00  6.540E-01  1.399E-02 -3.487E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.260E-01 -4.157E+00 -4.987E+00  5.667E-01  2.312E-03 -2.175E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.190E-01 -4.223E+00 -4.814E+00  2.380E-02  1.615E-02 -1.939E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.896E-01 -2.725E+00 -4.214E+00  1.546E-01  3.087E-02 -4.016E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.610E-01 -3.567E+00 -4.652E+00  3.498E-01  1.590E-02 -2.896E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        2               5.218E-01 -7.935E+00 -6.097E+00  8.783E-01  5.792E-02 -5.556E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.914E-01 -1.015E+01 -8.261E+00  7.384E-01  1.019E-02 -1.926E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.528E+00 -1.036E+01 -8.233E+00 -1.050E-01  1.128E-01 -5.431E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.348E-01 -7.047E+00 -5.001E+00  1.047E-01  1.767E-01 -6.308E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.438E-01 -8.875E+00 -6.905E+00  4.041E-01  8.949E-02 -3.561E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        3               1.387E+00 -7.986E+00 -8.560E+00  1.046E+00  1.424E-01 -3.160E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.422E+00 -1.180E+01 -1.411E+01  8.258E-01  4.604E-02  3.825E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.671E+00 -1.222E+01 -1.427E+01 -1.133E-01  4.102E-01  5.817E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.501E+00 -6.545E+00 -6.040E+00  2.170E-01  5.385E-01 -5.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.096E-01 -9.645E+00 -1.077E+01  4.939E-01  2.845E-01  3.572E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        4               1.161E+00 -5.079E+00 -6.817E+00  8.939E-01  1.563E-01 -3.049E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.266E+00 -8.251E+00 -1.174E+01  6.996E-01  6.036E-02  7.649E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.339E+00 -8.595E+00 -1.181E+01  1.795E-03  4.866E-01  9.268E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.217E+00 -3.922E+00 -4.629E+00  2.931E-01  6.114E-01 -3.208E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.126E-01 -6.468E+00 -8.762E+00  4.721E-01  3.290E-01  3.389E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        5               8.429E-01 -3.484E+00 -5.098E+00  7.214E-01  1.502E-01  1.574E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.054E+00 -5.884E+00 -9.022E+00  5.640E-01  6.358E-02  9.418E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.885E+00 -6.125E+00 -8.994E+00  9.278E-02  4.792E-01  1.075E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.421E-01 -2.643E+00 -3.383E+00  3.289E-01  5.892E-01 -1.482E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.162E-01 -4.536E+00 -6.630E+00  4.267E-01  3.210E-01  5.099E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        6               5.829E-01 -2.457E+00 -3.869E+00  5.710E-01  1.383E-01  2.411E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.863E-01 -4.240E+00 -6.984E+00  4.459E-01  6.268E-02  9.633E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.511E+00 -4.396E+00 -6.879E+00  1.522E-01  4.452E-01  1.068E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.539E-01 -1.861E+00 -2.530E+00  3.398E-01  5.392E-01 -5.027E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.154E-01 -3.238E+00 -5.066E+00  3.772E-01  2.968E-01  5.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   201\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    153        7               3.863E-01 -1.782E+00 -2.995E+00  4.536E-01  1.249E-01  2.604E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.591E-01 -3.111E+00 -5.484E+00  3.546E-01  6.012E-02  9.051E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.222E+00 -3.203E+00 -5.325E+00  1.819E-01  4.027E-01  9.858E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.468E-01 -1.358E+00 -1.942E+00  3.304E-01  4.817E-01 -5.566E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.104E-01 -2.362E+00 -3.933E+00  3.301E-01  2.678E-01  5.386E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        8               2.419E-01 -1.328E+00 -2.358E+00  3.643E-01  1.118E-01  2.482E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.622E-01 -2.333E+00 -4.366E+00  2.859E-01  5.679E-02  8.152E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.000E+00 -2.377E+00 -4.175E+00  1.913E-01  3.596E-01  8.766E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.016E-01 -1.024E+00 -1.521E+00  3.089E-01  4.253E-01  1.048E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.022E-01 -1.763E+00 -3.099E+00  2.876E-01  2.388E-01  4.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153        9               1.367E-01 -1.014E+00 -1.879E+00  2.961E-01  9.941E-02  2.220E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.858E-01 -1.785E+00 -3.516E+00  2.338E-01  5.325E-02  7.167E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.292E-01 -1.795E+00 -3.306E+00  1.883E-01  3.189E-01  7.632E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.005E-01 -7.925E-01 -1.210E+00  2.816E-01  3.731E-01  1.229E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.912E-01 -1.343E+00 -2.470E+00  2.499E-01  2.116E-01  4.298E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153       10               6.051E-02 -7.891E-01 -1.510E+00  2.429E-01  8.805E-02  1.910E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.232E-01 -1.389E+00 -2.856E+00  1.936E-01  4.969E-02  6.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.944E-01 -1.375E+00 -2.639E+00  1.782E-01  2.814E-01  6.552E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.043E-02 -6.259E-01 -9.719E-01  2.522E-01  3.257E-01  7.619E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.779E-01 -1.041E+00 -1.986E+00  2.167E-01  1.866E-01  3.694E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    153                0.0000  5.281E+00 -3.578E+01 -4.606E+01  6.428E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.576E+00 -5.428E+01 -7.375E+01  5.174E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.488E+01 -5.588E+01 -7.278E+01  8.192E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.920E+00 -2.911E+01 -3.355E+01  2.700E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.321E+00 -4.377E+01 -5.656E+01  3.780E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    153                7.1000  4.357E+00 -3.073E+01 -3.827E+01  5.277E+00  6.842E-01  7.321E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.620E+00 -4.583E+01 -5.976E+01  4.268E+00  3.157E-01  4.230E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.179E+01 -4.722E+01 -5.920E+01  3.960E-01  2.150E+00  4.752E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.066E+00 -2.517E+01 -2.840E+01  1.910E+00  2.607E+00 -6.433E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.510E+00 -3.725E+01 -4.644E+01  2.963E+00  1.442E+00  2.280E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        0               2.585E-02  8.309E-01 -1.759E+00  2.938E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.219E-01 -1.671E-02 -2.071E+00  3.180E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.012E-03  4.174E-01 -1.674E+00 -2.481E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.386E-01  9.832E-01 -1.464E+00 -1.861E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.282E-02  5.538E-01 -1.742E+00  1.477E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   202\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    161        1               1.275E-01  5.347E-01 -3.203E+00  6.259E-01  3.014E-02 -9.523E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.935E-01 -1.397E+00 -4.008E+00  6.680E-01  2.229E-02 -7.614E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.687E-02 -4.752E-01 -3.197E+00 -4.007E-02 -6.729E-03 -8.294E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.100E-01  8.120E-01 -2.661E+00 -6.814E-02 -1.190E-03 -9.668E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.308E-02 -1.313E-01 -3.267E+00  2.964E-01  1.108E-02 -8.764E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        2               1.014E+00 -5.427E-01  1.358E+00  7.906E-01  1.696E-01 -1.985E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.286E+00 -4.459E+00 -2.395E+00  7.380E-01  1.541E-01 -1.558E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.055E-01 -3.108E+00 -9.056E-01 -2.541E-01  9.552E-03 -1.647E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.289E-01 -4.963E-01  1.598E+00 -2.191E-01  1.593E-02 -1.960E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.014E-03 -2.155E+00 -9.542E-02  2.638E-01  8.748E-02 -1.784E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        3               2.539E+00  3.847E+00  1.080E+01  8.556E-01  4.986E-01 -2.421E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.272E+00 -2.795E+00  1.407E+00  6.387E-01  5.318E-01 -1.869E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.570E+00 -9.407E-01  4.240E+00 -4.334E-01  1.010E-01 -2.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.650E+00  3.500E+00  1.053E+01 -2.887E-01  6.134E-02 -2.416E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.397E-02  8.898E-01  6.715E+00  1.931E-01  2.993E-01 -2.172E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        4               2.190E+00  4.764E+00  1.022E+01  7.422E-01  5.603E-01 -2.280E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.979E+00 -8.794E-01  1.962E+00  5.742E-01  6.207E-01 -1.672E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.345E+00  6.656E-01  4.350E+00 -2.911E-01  1.250E-01 -1.863E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.440E+00  4.434E+00  9.867E+00 -1.790E-01  6.609E-02 -2.321E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.527E-02  2.235E+00  6.573E+00  2.116E-01  3.444E-01 -2.029E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        5               1.686E+00  4.001E+00  8.345E+00  6.141E-01  5.387E-01 -1.976E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.581E+00 -3.773E-01  1.833E+00  5.082E-01  6.064E-01 -1.382E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.023E+00  8.163E-01  3.648E+00 -1.511E-01  1.228E-01 -1.579E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.152E+00  3.732E+00  7.982E+00 -8.040E-02  6.163E-02 -2.025E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.007E-02  2.035E+00  5.432E+00  2.227E-01  3.336E-01 -1.735E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        6               1.279E+00  3.120E+00  6.673E+00  4.956E-01  4.926E-01 -1.637E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.252E+00 -2.198E-01  1.576E+00  4.350E-01  5.601E-01 -1.107E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.662E-01  6.866E-01  2.944E+00 -5.019E-02  1.130E-01 -1.284E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.133E-01  2.905E+00  6.324E+00 -9.809E-03  5.538E-02 -1.681E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.732E-02  1.617E+00  4.364E+00  2.176E-01  3.063E-01 -1.423E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        7               9.722E-01  2.387E+00  5.305E+00  4.000E-01  4.400E-01 -1.339E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.952E-01 -1.687E-01  1.302E+00  3.700E-01  5.039E-01 -8.861E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.758E-01  5.218E-01  2.335E+00  1.241E-02  1.007E-01 -1.035E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.260E-01  2.216E+00  4.980E+00  3.242E-02  4.886E-02 -1.375E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.700E-02  1.234E+00  3.469E+00  2.037E-01  2.741E-01 -1.155E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   203\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    161        8               7.444E-01  1.826E+00  4.225E+00  3.256E-01  3.887E-01 -1.094E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.984E-01 -1.507E-01  1.059E+00  3.154E-01  4.476E-01 -7.136E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.372E-01  3.806E-01  1.843E+00  4.773E-02  8.831E-02 -8.356E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.811E-01  1.688E+00  3.929E+00  5.454E-02  4.264E-02 -1.120E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.881E-02  9.323E-01  2.755E+00  1.858E-01  2.424E-01 -9.376E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    161        9               5.742E-01  1.405E+00  3.378E+00  2.675E-01  3.413E-01 -8.926E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.462E-01 -1.413E-01  8.564E-01  2.699E-01  3.948E-01 -5.783E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.355E-01  2.721E-01  1.453E+00  6.555E-02  7.679E-02 -6.763E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.685E-01  1.293E+00  3.112E+00  6.400E-02  3.712E-02 -9.122E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.240E-02  7.043E-01  2.193E+00  1.667E-01  2.130E-01 -7.622E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    161       10               4.455E-01  1.088E+00  2.710E+00  2.214E-01  2.983E-01 -7.283E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.267E-01 -1.327E-01  6.910E-01  2.314E-01  3.464E-01 -4.708E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.598E-01  1.921E-01  1.147E+00  7.254E-02  6.637E-02 -5.484E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.799E-01  9.978E-01  2.474E+00  6.587E-02  3.214E-02 -7.423E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.445E-03  5.341E-01  1.750E+00  1.478E-01  1.861E-01 -6.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    161                0.0000  1.160E+01  2.326E+01  4.805E+01  5.632E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.235E+01 -1.074E+01  2.214E+00  5.067E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.949E+00 -5.708E-01  1.618E+01 -1.024E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.989E+00  2.207E+01  4.668E+01 -6.470E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.654E-01  8.448E+00  2.815E+01  2.257E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    161                7.1000  9.176E+00  1.768E+01  3.525E+01  4.623E+00  2.389E+00 -8.250E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.860E+00 -9.869E+00 -6.563E-01  4.137E+00  2.701E+00 -5.739E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.504E+00 -1.459E+00  1.072E+01 -1.022E+00  5.278E-01 -6.519E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.178E+00  1.690E+01  3.464E+01 -6.974E-01  2.674E-01 -8.402E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.032E-01  5.768E+00  1.988E+01  1.760E+00  1.476E+00 -7.207E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        0               6.104E-02  3.034E-01 -1.860E+00  4.220E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.176E-01 -3.972E-01 -2.088E+00  4.191E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.945E-01 -4.742E-01 -1.910E+00  2.205E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.278E-01  5.811E-01 -1.558E+00  2.249E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.045E-02  3.643E-03 -1.853E+00  3.216E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        1               2.135E-01 -6.942E-01 -3.525E+00  8.904E-01  3.870E-02 -7.494E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.071E-01 -2.408E+00 -4.214E+00  8.807E-01  2.271E-02 -4.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.190E-01 -2.650E+00 -3.933E+00  4.129E-01  1.238E-02 -3.996E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.629E-01 -7.852E-02 -2.898E+00  4.274E-01  3.574E-02 -8.244E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.217E-02 -1.457E+00 -3.642E+00  6.529E-01  2.722E-02 -6.115E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   204\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    162        2               1.228E+00 -3.056E+00 -1.219E+00  1.120E+00  2.203E-01 -1.495E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.367E+00 -7.306E+00 -5.619E+00  1.104E+00  1.637E-01 -7.811E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.863E+00 -8.187E+00 -6.267E+00  3.247E-01  1.536E-01 -4.970E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.996E+00 -1.846E+00  2.532E-01  3.475E-01  2.376E-01 -1.627E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.581E-02 -5.113E+00 -3.247E+00  7.240E-01  1.933E-01 -1.096E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        3               2.921E+00 -2.192E-01  3.737E+00  1.288E+00  6.587E-01 -1.702E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.796E+00 -7.824E+00 -7.713E+00  1.287E+00  5.848E-01 -4.846E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.005E+00 -9.503E+00 -1.006E+01  4.021E-01  6.073E-01 -3.504E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.463E+00  1.798E+00  6.872E+00  4.036E-01  7.197E-01 -1.964E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.944E-02 -3.983E+00 -1.898E+00  8.454E-01  6.417E-01 -1.040E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        4               2.488E+00  1.383E+00  3.981E+00  1.152E+00  7.428E-01 -1.493E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.397E+00 -4.910E+00 -6.010E+00  1.162E+00  6.877E-01 -1.505E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.379E+00 -6.263E+00 -8.014E+00  5.048E-01  7.090E-01  2.877E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.786E+00  3.013E+00  6.593E+00  4.895E-01  7.947E-01 -1.830E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.363E-02 -1.735E+00 -9.572E-01  8.270E-01  7.330E-01 -7.896E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        5               1.892E+00  1.434E+00  3.418E+00  9.771E-01  7.144E-01 -1.215E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.865E+00 -3.284E+00 -4.388E+00  9.945E-01  6.734E-01  7.474E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.564E+00 -4.256E+00 -5.888E+00  5.487E-01  6.810E-01  4.736E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.873E+00  2.622E+00  5.359E+00  5.226E-01  7.463E-01 -1.550E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.225E-02 -9.029E-01 -4.491E-01  7.607E-01  7.033E-01 -5.474E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        6               1.416E+00  1.210E+00  2.805E+00  8.094E-01  6.528E-01 -9.595E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.440E+00 -2.257E+00 -3.247E+00  8.316E-01  6.228E-01  1.868E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.919E+00 -2.931E+00 -4.351E+00  5.506E-01  6.153E-01  5.286E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.152E+00  2.057E+00  4.230E+00  5.172E-01  6.654E-01 -1.259E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.715E-02 -5.051E-01 -1.988E-01  6.772E-01  6.387E-01 -3.699E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        7               1.058E+00  9.610E-01  2.257E+00  6.682E-01  5.826E-01 -7.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.121E+00 -1.594E+00 -2.453E+00  6.932E-01  5.606E-01  2.251E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.440E+00 -2.053E+00 -3.259E+00  5.235E-01  5.401E-01  5.099E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.615E+00  1.564E+00  3.305E+00  4.860E-01  5.791E-01 -1.014E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.549E-03 -2.999E-01 -8.304E-02  5.927E-01  5.654E-01 -2.544E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    162        8               7.950E-01  7.468E-01  1.806E+00  5.536E-01  5.141E-01 -6.042E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.837E-01 -1.156E+00 -1.887E+00  5.799E-01  4.982E-01  2.256E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.089E+00 -1.467E+00 -2.475E+00  4.815E-01  4.677E-01  4.600E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.221E+00  1.179E+00  2.580E+00  4.420E-01  4.985E-01 -8.179E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.667E-03 -1.895E-01 -2.971E-02  5.143E-01  4.944E-01 -1.800E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   205\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    162        9               5.998E-01  5.759E-01  1.445E+00  4.606E-01  4.508E-01 -4.850E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.055E-01 -8.583E-01 -1.471E+00  4.873E-01  4.396E-01  2.083E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.316E-01 -1.067E+00 -1.900E+00  4.335E-01  4.019E-01  4.001E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.305E-01  8.889E-01  2.018E+00  3.935E-01  4.266E-01 -6.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.383E-02 -1.271E-01 -5.223E-03  4.437E-01  4.296E-01 -1.311E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    162       10               4.535E-01  4.430E-01  1.158E+00  3.844E-01  3.934E-01 -3.916E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.693E-01 -6.498E-01 -1.159E+00  4.107E-01  3.858E-01  1.837E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.394E-01 -7.867E-01 -1.469E+00  3.845E-01  3.436E-01  3.399E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.138E-01  6.714E-01  1.583E+00  3.451E-01  3.635E-01 -5.358E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.997E-02 -9.017E-02  5.674E-03  3.812E-01  3.714E-01 -9.811E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    162                0.0000  1.313E+01  3.087E+00  1.400E+01  8.725E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.387E+01 -3.264E+01 -4.025E+01  8.851E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.844E+01 -3.964E+01 -4.952E+01  4.787E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.054E+01  1.245E+01  2.834E+01  4.599E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.241E-01 -1.440E+01 -1.236E+01  6.741E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    162                7.1000  1.049E+01  1.150E+00  8.753E+00  7.059E+00  3.159E+00 -5.033E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.104E+01 -2.806E+01 -3.380E+01  7.121E+00  2.999E+00  3.927E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.482E+01 -3.388E+01 -4.108E+01  3.534E+00  2.898E+00  2.040E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.649E+01  8.955E+00  2.044E+01  3.441E+00  3.171E+00 -6.395E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.116E-01 -1.313E+01 -1.181E+01  5.288E+00  3.055E+00 -2.221E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        0               6.912E-02 -1.322E-01 -1.923E+00  2.998E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.407E-01 -8.937E-01 -2.194E+00  3.005E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.369E-01 -7.917E-01 -1.958E+00  1.823E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.108E-02 -2.826E-01 -1.773E+00  1.775E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.914E-02 -5.249E-01 -1.961E+00  1.591E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        1               2.000E-01 -1.816E+00 -3.824E+00  6.283E-01  3.085E-02 -4.767E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.457E-01 -3.585E+00 -4.541E+00  6.375E-01  1.617E-02 -2.859E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.067E-01 -3.370E+00 -4.061E+00 -2.234E-03 -3.632E-03 -2.667E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.906E-01 -2.190E+00 -3.582E+00 -8.420E-03  6.012E-03 -4.016E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.153E-01 -2.740E+00 -4.002E+00  3.138E-01  1.228E-02 -3.578E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        2               8.655E-01 -6.042E+00 -4.570E+00  7.046E-01  1.766E-01 -7.508E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.250E+00 -9.711E+00 -7.955E+00  7.908E-01  1.128E-01 -3.181E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.788E-01 -9.355E+00 -7.340E+00 -1.798E-01 -1.404E-03 -1.888E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.191E-01 -6.922E+00 -5.113E+00 -2.373E-01  4.214E-02 -4.998E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.998E-02 -8.012E+00 -6.254E+00  2.696E-01  8.235E-02 -4.399E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   206\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    163        3               1.975E+00 -5.441E+00 -5.567E+00  6.443E-01  5.386E-01 -3.548E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.397E+00 -1.158E+01 -1.400E+01  8.465E-01  4.102E-01  2.022E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.322E+00 -1.101E+01 -1.318E+01 -2.585E-01  3.278E-02  3.881E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.565E+00 -6.945E+00 -7.618E+00 -3.933E-01  1.225E-01 -2.234E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.703E-02 -8.757E+00 -1.012E+01  2.097E-01  2.758E-01  5.232E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        4               1.693E+00 -2.811E+00 -4.153E+00  5.785E-01  6.111E-01  4.189E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.084E+00 -7.999E+00 -1.156E+01  7.466E-01  4.867E-01  6.067E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.165E+00 -7.501E+00 -1.081E+01 -1.353E-01  4.205E-02  7.522E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.324E+00 -4.071E+00 -5.946E+00 -2.473E-01  1.298E-01  3.082E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.873E-02 -5.607E+00 -8.142E+00  2.356E-01  3.172E-01  4.168E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        5               1.290E+00 -1.599E+00 -2.936E+00  5.027E-01  5.893E-01  2.248E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.666E+00 -5.612E+00 -8.774E+00  6.319E-01  4.792E-01  8.119E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.265E-01 -5.196E+00 -8.127E+00 -2.892E-02  4.097E-02  9.273E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.015E+00 -2.550E+00 -4.302E+00 -1.151E-01  1.185E-01  4.961E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.109E-02 -3.748E+00 -6.056E+00  2.476E-01  3.068E-01  6.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        6               9.551E-01 -9.245E-01 -2.129E+00  4.213E-01  5.392E-01  3.232E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.330E+00 -3.973E+00 -6.698E+00  5.232E-01  4.452E-01  8.479E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.231E-01 -3.621E+00 -6.131E+00  4.617E-02  3.694E-02  9.352E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.729E-01 -1.616E+00 -3.149E+00 -2.178E-02  1.038E-01  5.509E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.881E-02 -2.541E+00 -4.544E+00  2.422E-01  2.812E-01  6.635E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        7               6.977E-01 -5.393E-01 -1.591E+00  3.506E-01  4.817E-01  3.454E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.076E+00 -2.862E+00 -5.179E+00  4.342E-01  4.026E-01  7.969E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.621E-01 -2.557E+00 -4.677E+00  9.073E-02  3.217E-02  8.611E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.950E-01 -1.034E+00 -2.343E+00  3.506E-02  8.924E-02  5.310E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.240E-02 -1.754E+00 -3.462E+00  2.276E-01  2.514E-01  6.330E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        8               5.043E-01 -3.177E-01 -1.219E+00  2.925E-01  4.253E-01  3.301E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.841E-01 -2.106E+00 -4.058E+00  3.636E-01  3.596E-01  7.119E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.378E-01 -1.838E+00 -3.610E+00  1.136E-01  2.750E-02  7.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.654E-01 -6.678E-01 -1.769E+00  6.615E-02  7.602E-02  4.795E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.310E-02 -1.237E+00 -2.676E+00  2.090E-01  2.221E-01  5.694E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163        9               3.593E-01 -1.886E-01 -9.511E-01  2.449E-01  3.731E-01  2.983E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.375E-01 -1.581E+00 -3.215E+00  3.075E-01  3.189E-01  6.181E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.418E-01 -1.342E+00 -2.813E+00  1.226E-01  2.315E-02  6.512E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.698E-01 -4.332E-01 -1.350E+00  8.089E-02  6.436E-02  4.178E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.172E-02 -8.904E-01 -2.092E+00  1.890E-01  1.950E-01  4.960E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   207\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    163       10               2.504E-01 -1.128E-01 -7.520E-01  2.056E-01  3.257E-01  2.608E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.226E-01 -1.208E+00 -2.567E+00  2.619E-01  2.814E-01  5.270E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.673E-01 -9.931E-01 -2.207E+00  1.231E-01  1.924E-02  5.503E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.978E-01 -2.800E-01 -1.036E+00  8.560E-02  5.429E-02  3.560E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.883E-02 -6.518E-01 -1.648E+00  1.691E-01  1.703E-01  4.232E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    163                0.0000  8.859E+00 -1.993E+01 -2.961E+01  4.873E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.283E+01 -5.111E+01 -7.074E+01  5.844E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.868E+00 -4.758E+01 -6.491E+01 -9.017E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.385E+00 -2.699E+01 -3.798E+01 -7.377E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.262E-01 -3.646E+01 -5.096E+01  2.472E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    163                7.1000  7.156E+00 -1.796E+01 -2.531E+01  3.997E+00  2.607E+00  1.033E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.010E+01 -4.328E+01 -5.751E+01  4.745E+00  2.150E+00  3.551E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.483E+00 -4.053E+01 -5.298E+01 -2.927E-01  1.664E-01  3.987E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.874E+00 -2.380E+01 -3.185E+01 -7.920E-01  4.972E-01  2.145E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.858E-01 -3.144E+01 -4.202E+01  1.914E+00  1.355E+00  2.676E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        0              -1.224E-01  1.410E-01 -1.825E+00  1.153E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.351E-02  1.852E-01 -1.773E+00  1.261E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.019E-01  3.478E-01 -1.460E+00  1.458E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.042E-02  2.834E-01 -1.534E+00  1.297E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.321E-02  2.395E-01 -1.648E+00  1.292E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        1              -2.088E-01 -8.653E-01 -3.380E+00  2.700E-01 -1.185E-03 -1.100E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.246E-01 -9.135E-01 -3.385E+00  2.964E-01 -6.739E-03 -9.177E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.499E-01 -6.541E-01 -2.825E+00  2.793E-01  3.623E-02 -8.288E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.708E-01 -5.848E-01 -2.824E+00  2.397E-01  4.650E-02 -1.102E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.820E-02 -7.544E-01 -3.104E+00  2.714E-01  1.876E-02 -9.868E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        2               2.516E-01 -2.077E+00  9.199E-01  4.399E-01  1.612E-02 -2.350E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.724E-01 -3.497E+00 -1.073E+00  5.419E-01  9.623E-03 -1.846E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.315E-01 -3.737E+00 -1.354E+00  2.212E-01  1.758E-01 -1.534E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.061E+00 -1.651E+00  1.534E+00  6.837E-02  1.972E-01 -2.302E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.146E-02 -2.746E+00 -6.213E-03  3.179E-01  1.001E-01 -2.007E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        3               1.075E+00  2.157E+00  9.958E+00  5.150E-01  6.147E-02 -3.006E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.716E+00 -1.281E+00  4.094E+00  7.514E-01  1.007E-01 -2.099E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.404E+00 -2.179E+00  2.190E+00  2.630E-01  5.196E-01 -1.578E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.649E+00  2.844E+00  1.068E+01 -9.159E-02  4.968E-01 -2.971E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.334E-01  3.680E-01  6.689E+00  3.594E-01  2.961E-01 -2.413E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   208\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    171        4               9.114E-01  3.200E+00  9.338E+00  4.070E-01  6.639E-02 -2.854E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.448E+00  4.262E-01  4.247E+00  6.183E-01  1.251E-01 -1.857E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.141E+00 -2.662E-01  2.530E+00  3.355E-01  5.829E-01 -1.335E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.223E+00  3.719E+00  9.757E+00  1.856E-02  5.374E-01 -2.859E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.186E-01  1.752E+00  6.426E+00  3.448E-01  3.299E-01 -2.225E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        5               6.743E-01  2.617E+00  7.505E+00  3.020E-01  6.173E-02 -2.472E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.090E+00  6.608E-01  3.581E+00  4.698E-01  1.228E-01 -1.520E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.161E-01  2.088E-01  2.218E+00  3.732E-01  5.451E-01 -1.037E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.633E+00  2.947E+00  7.645E+00  1.216E-01  4.949E-01 -2.480E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.418E-02  1.592E+00  5.199E+00  3.167E-01  3.081E-01 -1.876E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        6               4.942E-01  1.927E+00  5.905E+00  2.160E-01  5.543E-02 -2.041E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.072E-01  5.910E-01  2.903E+00  3.462E-01  1.129E-01 -1.197E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.777E-01  3.147E-01  1.828E+00  3.786E-01  4.782E-01 -7.749E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.173E+00  2.118E+00  5.861E+00  1.832E-01  4.299E-01 -2.041E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.590E-02  1.223E+00  4.090E+00  2.810E-01  2.709E-01 -1.512E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        7               3.654E-01  1.374E+00  4.620E+00  1.541E-01  4.883E-02 -1.661E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.991E-01  4.674E-01  2.312E+00  2.551E-01  1.007E-01 -9.377E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.094E-01  3.070E-01  1.462E+00  3.597E-01  4.074E-01 -5.781E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.405E-01  1.470E+00  4.465E+00  2.081E-01  3.635E-01 -1.653E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.623E-02  8.916E-01  3.184E+00  2.443E-01  2.317E-01 -1.206E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        8               2.743E-01  9.722E-01  3.623E+00  1.113E-01  4.271E-02 -1.349E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.485E-01  3.541E-01  1.831E+00  1.903E-01  8.834E-02 -7.372E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.918E-01  2.670E-01  1.157E+00  3.281E-01  3.424E-01 -4.344E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.055E-01  1.007E+00  3.408E+00  2.096E-01  3.038E-01 -1.333E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.328E-02  6.385E-01  2.478E+00  2.098E-01  1.957E-01 -9.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    171        9               2.093E-01  6.884E-01  2.853E+00  8.183E-02  3.712E-02 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.389E-01  2.641E-01  1.450E+00  1.441E-01  7.679E-02 -5.821E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.090E-01  2.224E-01  9.124E-01  2.915E-01  2.857E-01 -3.288E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.392E-01  6.847E-01  2.611E+00  1.980E-01  2.523E-01 -1.074E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.490E-02  4.547E-01  1.933E+00  1.789E-01  1.642E-01 -7.679E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    171       10               1.620E-01  4.893E-01  2.256E+00  6.119E-02  3.216E-02 -8.886E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.582E-01  1.960E-01  1.149E+00  1.107E-01  6.636E-02 -4.612E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.502E-01  1.818E-01  7.190E-01  2.543E-01  2.371E-01 -2.503E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.205E-01  4.622E-01  2.007E+00  1.801E-01  2.086E-01 -8.651E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.530E-03  3.233E-01  1.512E+00  1.516E-01  1.371E-01 -6.144E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   209\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    171                0.0000  4.086E+00  1.062E+01  4.177E+01  2.674E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.796E+00 -2.547E+00  1.534E+01  3.850E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.178E+00 -4.987E+00  7.378E+00  3.230E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.118E+01  1.330E+01  4.361E+01  1.465E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.561E-01  3.982E+00  2.675E+01  2.805E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    171                7.1000  3.162E+00  7.525E+00  3.062E+01  2.269E+00  2.678E-01 -1.020E+01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.285E+00 -3.281E+00  9.940E+00  3.196E+00  5.278E-01 -6.196E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.134E+00 -5.285E+00  4.057E+00  2.384E+00  2.232E+00 -4.150E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.047E+00  9.936E+00  3.277E+01  9.938E-01  2.024E+00 -1.012E+01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.637E-01  2.141E+00  1.915E+01  2.210E+00  1.271E+00 -7.656E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        0               5.006E-02  1.665E-01 -1.736E+00  3.272E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.016E-01 -2.574E-01 -1.818E+00  2.962E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.752E-02 -1.093E-01 -1.584E+00  2.163E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.726E-02  1.770E-01 -1.521E+00  2.370E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.090E-03 -5.450E-03 -1.664E+00  2.692E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        1               2.192E-01 -8.805E-01 -3.242E+00  6.909E-01  3.574E-02 -9.128E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.118E-01 -2.166E+00 -3.726E+00  6.342E-01  1.237E-02 -4.925E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.418E-01 -1.800E+00 -3.219E+00  4.078E-01  3.410E-03 -5.538E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.142E-01 -9.404E-01 -2.891E+00  4.456E-01  1.768E-02 -8.401E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.802E-03 -1.446E+00 -3.269E+00  5.446E-01  1.714E-02 -6.982E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        2               1.628E+00 -2.704E+00 -1.147E-01  8.356E-01  2.376E-01 -1.849E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.544E+00 -7.443E+00 -5.949E+00  7.872E-01  1.536E-01 -7.548E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.472E-01 -6.525E+00 -4.616E+00  3.056E-01  1.310E-01 -8.418E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.147E+00 -3.386E+00 -7.749E-01  3.378E-01  1.842E-01 -1.595E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.651E-02 -5.029E+00 -2.897E+00  5.666E-01  1.760E-01 -1.256E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        3               4.017E+00  7.547E-01  6.425E+00  8.857E-01  7.196E-01 -2.123E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.561E+00 -8.466E+00 -9.612E+00  8.275E-01  6.071E-01 -3.512E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.306E+00 -6.865E+00 -6.715E+00  3.234E-01  5.425E-01 -5.231E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.686E+00 -7.764E-01  3.838E+00  3.623E-01  6.124E-01 -1.743E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.634E-01 -3.884E+00 -1.623E+00  5.997E-01  6.196E-01 -1.178E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        4               3.401E+00  2.115E+00  6.209E+00  8.036E-01  7.947E-01 -1.880E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.983E+00 -5.339E+00 -7.618E+00  7.528E-01  7.090E-01  4.890E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.934E+00 -4.048E+00 -5.137E+00  4.270E-01  6.194E-01 -1.940E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.232E+00  8.318E-01  3.871E+00  4.609E-01  6.702E-01 -1.514E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.389E-01 -1.650E+00 -7.621E-01  6.110E-01  6.977E-01 -8.774E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   210\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    172        5               2.570E+00  1.914E+00  5.055E+00  6.913E-01  7.463E-01 -1.539E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.243E+00 -3.506E+00 -5.566E+00  6.554E-01  6.809E-01  2.934E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.440E+00 -2.557E+00 -3.645E+00  4.716E-01  5.793E-01  4.214E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.660E+00  9.476E-01  3.183E+00  4.955E-01  6.168E-01 -1.204E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.056E-01 -8.315E-01 -3.160E-01  5.785E-01  6.554E-01 -5.948E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        6               1.918E+00  1.512E+00  3.997E+00  5.740E-01  6.653E-01 -1.213E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.668E+00 -2.345E+00 -4.100E+00  5.505E-01  6.152E-01  3.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.056E+00 -1.659E+00 -2.619E+00  4.697E-01  5.092E-01  1.585E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.220E+00  7.986E-01  2.512E+00  4.854E-01  5.372E-01 -9.222E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.945E-02 -4.475E-01 -1.085E-01  5.199E-01  5.814E-01 -3.907E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        7               1.436E+00  1.147E+00  3.126E+00  4.728E-01  5.791E-01 -9.506E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.247E+00 -1.603E+00 -3.066E+00  4.582E-01  5.401E-01  3.986E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.760E-01 -1.102E+00 -1.918E+00  4.396E-01  4.347E-01  1.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.003E-01  6.188E-01  1.949E+00  4.493E-01  4.559E-01 -7.057E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.970E-02 -2.534E-01 -2.089E-02  4.550E-01  5.022E-01 -2.601E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        8               1.085E+00  8.611E-01  2.443E+00  3.902E-01  4.985E-01 -7.478E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.417E-01 -1.122E+00 -2.328E+00  3.816E-01  4.677E-01  3.686E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.749E-01 -7.518E-01 -1.429E+00  3.964E-01  3.659E-01  1.972E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.701E-01  4.646E-01  1.505E+00  4.021E-01  3.824E-01 -5.438E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.500E-02 -1.515E-01  1.406E-02  3.926E-01  4.284E-01 -1.773E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172        9               8.264E-01  6.460E-01  1.914E+00  3.230E-01  4.266E-01 -5.909E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.188E-01 -8.033E-01 -1.787E+00  3.186E-01  4.019E-01  3.236E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.297E-01 -5.247E-01 -1.078E+00  3.493E-01  3.056E-01  1.800E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.034E-01  3.445E-01  1.163E+00  3.523E-01  3.186E-01 -4.221E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.399E-02 -9.573E-02  2.634E-02  3.358E-01  3.630E-01 -1.239E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    172       10               6.343E-01  4.860E-01  1.504E+00  2.681E-01  3.634E-01 -4.684E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.535E-01 -5.862E-01 -1.384E+00  2.666E-01  3.436E-01  2.755E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.236E-01 -3.736E-01 -8.213E-01  3.030E-01  2.538E-01  1.565E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.811E-01  2.540E-01  9.001E-01  3.040E-01  2.643E-01 -3.295E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.567E-02 -6.389E-02  2.894E-02  2.854E-01  3.061E-01 -8.866E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    172                0.0000  1.778E+01  6.018E+00  2.558E+01  6.262E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.587E+01 -3.364E+01 -4.695E+01  5.929E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.967E+00 -2.631E+01 -3.278E+01  4.110E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.168E+01 -6.659E-01  1.373E+01  4.332E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.983E-01 -1.386E+01 -1.059E+01  5.158E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   211\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    172                7.1000  1.418E+01  3.562E+00  1.813E+01  5.089E+00  3.171E+00 -6.271E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.272E+01 -2.898E+01 -3.898E+01  4.793E+00  2.898E+00  1.247E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.007E+00 -2.296E+01 -2.769E+01  3.078E+00  2.357E+00  1.996E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.402E+00 -1.782E+00  9.169E+00  3.275E+00  2.514E+00 -4.855E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.503E-01 -1.270E+01 -1.022E+01  4.059E+00  2.733E+00 -2.391E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        0               9.344E-02 -2.305E-01 -1.751E+00  1.102E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.330E-01 -1.620E-01 -1.688E+00  6.675E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.995E-02 -1.818E-01 -1.571E+00  9.390E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.050E-01 -2.804E-01 -1.656E+00  1.591E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.778E-02 -2.137E-01 -1.667E+00  1.075E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        1               2.451E-01 -2.063E+00 -3.528E+00  2.646E-01  5.997E-03 -4.864E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.316E-01 -2.114E+00 -3.522E+00  1.683E-01 -3.632E-03 -3.296E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.987E-01 -2.183E+00 -3.321E+00  1.334E-01  1.497E-02 -3.191E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.739E-01 -2.102E+00 -3.319E+00  2.780E-01  2.631E-02 -5.555E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.590E-02 -2.115E+00 -3.423E+00  2.111E-01  1.100E-02 -4.222E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        2               8.096E-01 -6.710E+00 -5.023E+00  4.996E-01  4.202E-02 -7.438E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.709E-01 -8.170E+00 -6.833E+00  3.330E-01 -1.465E-03 -2.970E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.060E+00 -8.434E+00 -6.824E+00 -1.162E-01  1.167E-01 -1.841E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.021E-01 -6.253E+00 -4.130E+00  1.338E-01  1.727E-01 -8.716E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.870E-03 -7.395E+00 -5.709E+00  2.125E-01  8.269E-02 -5.223E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        3               1.686E+00 -6.664E+00 -7.497E+00  6.833E-01  1.223E-01 -3.609E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.416E-01 -9.890E+00 -1.270E+01  4.279E-01  3.242E-02  4.703E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.293E+00 -1.038E+01 -1.289E+01 -2.271E-01  3.921E-01  6.330E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.449E+00 -5.594E+00 -5.207E+00  1.560E-01  5.067E-01 -6.525E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.286E-03 -8.141E+00 -9.592E+00  2.600E-01  2.638E-01  2.586E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        4               1.425E+00 -3.836E+00 -5.845E+00  5.502E-01  1.296E-01  3.268E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.695E-01 -6.344E+00 -1.032E+01  3.321E-01  4.196E-02  9.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.871E+00 -6.728E+00 -1.039E+01 -5.599E-02  4.506E-01  1.072E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.175E+00 -3.061E+00 -3.908E+00  2.710E-01  5.589E-01 -3.485E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.008E-02 -4.997E+00 -7.628E+00  2.743E-01  2.958E-01  4.318E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        5               1.083E+00 -2.392E+00 -4.235E+00  4.052E-01  1.184E-01  2.776E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.589E-01 -4.105E+00 -7.659E+00  2.342E-01  4.078E-02  1.169E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.354E+00 -4.359E+00 -7.611E+00  7.290E-02  4.271E-01  1.246E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.298E-01 -1.917E+00 -2.772E+00  3.295E-01  5.203E-01 -1.079E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.322E-02 -3.195E+00 -5.573E+00  2.604E-01  2.773E-01  6.487E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   212\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    173        6               8.106E-01 -1.528E+00 -3.111E+00  2.853E-01  1.038E-01  3.750E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.072E-01 -2.650E+00 -5.715E+00  1.535E-01  3.684E-02  1.170E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.555E-01 -2.805E+00 -5.581E+00  1.492E-01  3.771E-01  1.217E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.774E-01 -1.265E+00 -2.011E+00  3.469E-01  4.556E-01  2.210E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.202E-02 -2.061E+00 -4.103E+00  2.337E-01  2.439E-01  6.976E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        7               6.096E-01 -9.998E-01 -2.329E+00  1.980E-01  8.918E-02  3.860E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.031E-01 -1.720E+00 -4.318E+00  9.604E-02  3.219E-02  1.071E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.703E-01 -1.805E+00 -4.134E+00  1.831E-01  3.222E-01  1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.002E-01 -8.733E-01 -1.496E+00  3.360E-01  3.876E-01  7.686E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.617E-02 -1.347E+00 -3.064E+00  2.033E-01  2.084E-01  6.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        8               4.637E-01 -6.719E-01 -1.771E+00  1.370E-01  7.598E-02  3.577E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.330E-01 -1.127E+00 -3.305E+00  5.711E-02  2.748E-02  9.399E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.714E-01 -1.165E+00 -3.096E+00  1.902E-01  2.709E-01  9.470E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.771E-01 -6.299E-01 -1.137E+00  3.100E-01  3.253E-01  9.269E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.700E-02 -8.955E-01 -2.321E+00  1.736E-01  1.755E-01  5.846E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173        9               3.570E-01 -4.629E-01 -1.362E+00  9.450E-02  6.435E-02  3.144E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.549E-02 -7.439E-01 -2.556E+00  3.114E-02  2.311E-02  8.050E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.325E-01 -7.533E-01 -2.341E+00  1.826E-01  2.258E-01  8.009E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.912E-01 -4.719E-01 -8.763E-01  2.777E-01  2.710E-01  9.002E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.586E-02 -6.047E-01 -1.776E+00  1.465E-01  1.466E-01  5.024E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173       10               2.781E-01 -3.261E-01 -1.056E+00  6.476E-02  5.428E-02  2.677E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.309E-02 -4.934E-01 -1.993E+00  1.393E-02  1.921E-02  6.790E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.348E-01 -4.845E-01 -1.781E+00  1.675E-01  1.871E-01  6.678E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.308E-01 -3.647E-01 -6.823E-01  2.438E-01  2.246E-01  7.938E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.370E-02 -4.137E-01 -1.370E+00  1.225E-01  1.218E-01  4.230E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    173                0.0000  7.860E+00 -2.588E+01 -3.751E+01  3.293E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.558E+00 -3.752E+01 -6.060E+01  1.914E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.492E+00 -3.928E+01 -5.955E+01  7.737E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.154E+00 -2.281E+01 -2.720E+01  2.842E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.356E-01 -3.138E+01 -4.622E+01  2.205E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    173                7.1000  6.319E+00 -2.276E+01 -3.140E+01  2.783E+00  4.968E-01  1.186E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.035E+00 -3.249E+01 -4.953E+01  1.663E+00  1.660E-01  4.952E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.778E+00 -3.403E+01 -4.892E+01  3.795E-01  1.742E+00  5.181E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.134E+00 -2.006E+01 -2.318E+01  2.061E+00  2.129E+00 -4.409E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.499E-01 -2.734E+01 -3.828E+01  1.721E+00  1.137E+00  2.726E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   213\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    231        0              -4.510E-02 -8.257E-01 -1.024E+00 -2.365E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.188E-01 -4.566E-01 -8.465E-01 -2.516E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.243E-01 -1.969E-01 -4.309E-01  2.538E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.151E-01 -7.442E-01 -6.819E-01  2.766E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.103E-02 -5.556E-01 -7.450E-01  1.058E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        1              -8.379E-02 -2.747E+00 -1.937E+00 -4.269E-01 -3.184E-02 -1.375E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.054E-01 -2.085E+00 -1.635E+00 -4.546E-01 -3.831E-02 -1.252E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.152E-01 -1.612E+00 -8.754E-01  4.630E-01 -1.575E-02 -1.155E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.149E-01 -2.601E+00 -1.320E+00  5.046E-01 -8.423E-03 -1.318E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.068E-02 -2.261E+00 -1.442E+00  2.151E-02 -2.372E-02 -1.274E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        2               2.144E-01 -4.022E+00  1.665E+00 -1.636E-01 -6.568E-02 -3.089E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.113E-01 -4.388E+00  2.808E-01 -1.636E-01 -7.447E-02 -2.629E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.145E-01 -4.312E+00  1.939E-01  2.339E-01  6.253E-02 -2.179E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.031E-01 -3.833E+00  2.107E+00  2.339E-01  7.855E-02 -2.846E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.163E-03 -4.145E+00  1.047E+00  3.514E-02  2.594E-04 -2.684E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        3               8.383E-01 -7.706E-02  9.437E+00 -2.144E-02 -7.510E-02 -3.745E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.167E+00 -2.009E+00  4.685E+00  2.661E-02 -4.321E-02 -2.857E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.210E+00 -2.496E+00  2.948E+00  2.324E-01  3.637E-01 -2.181E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.557E+00  1.614E-01  9.512E+00  1.603E-01  3.394E-01 -3.494E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.577E-02 -1.126E+00  6.597E+00  9.948E-02  1.471E-01 -3.066E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        4               6.716E-01  1.078E+00  7.920E+00 -1.430E-01 -7.224E-02 -3.128E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.674E-01 -2.630E-01  4.132E+00 -9.780E-02 -2.883E-02 -2.231E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.665E-01 -6.150E-01  2.530E+00  4.186E-01  3.582E-01 -1.671E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.128E+00  1.083E+00  7.480E+00  3.509E-01  3.198E-01 -2.968E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.799E-03  2.996E-01  5.466E+00  1.322E-01  1.455E-01 -2.495E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        5               4.666E-01  8.182E-01  5.606E+00 -1.976E-01 -6.095E-02 -2.373E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.486E-01  4.277E-02  2.997E+00 -1.612E-01 -2.186E-02 -1.602E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.205E-01 -1.738E-01  1.728E+00  4.563E-01  2.757E-01 -1.150E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.755E-01  6.627E-01  4.878E+00  4.016E-01  2.423E-01 -2.240E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.811E-04  3.183E-01  3.757E+00  1.248E-01  1.100E-01 -1.836E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        6               3.283E-01  5.120E-01  3.895E+00 -2.036E-01 -4.610E-02 -1.699E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.389E-01  7.447E-02  2.109E+00 -1.756E-01 -1.428E-02 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.097E-01 -6.077E-02  1.131E+00  4.125E-01  2.004E-01 -7.483E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.908E-01  2.952E-01  3.110E+00  3.706E-01  1.744E-01 -1.579E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.346E-03  1.890E-01  2.523E+00  1.010E-01  7.960E-02 -1.276E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   214\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    231        7               2.350E-01  3.031E-01  2.697E+00 -1.820E-01 -3.338E-02 -1.195E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.082E-01  5.593E-02  1.467E+00 -1.612E-01 -8.535E-03 -7.425E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.861E-01 -3.194E-02  7.270E-01  3.393E-01  1.419E-01 -4.829E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.209E-01  8.092E-02  1.971E+00  3.081E-01  1.228E-01 -1.088E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.128E-03  8.873E-02  1.684E+00  7.604E-02  5.652E-02 -8.732E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        8               1.708E-01  1.766E-01  1.873E+00 -1.508E-01 -2.367E-02 -8.390E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.281E-01  3.486E-02  1.019E+00 -1.355E-01 -4.760E-03 -5.056E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.134E-01 -2.480E-02  4.647E-01  2.650E-01  9.928E-02 -3.136E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.217E-01 -2.546E-02  1.249E+00  2.421E-01  8.572E-02 -7.463E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.159E-03  2.971E-02  1.127E+00  5.522E-02  3.982E-02 -5.976E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    231        9               1.253E-01  1.027E-01  1.307E+00 -1.194E-01 -1.665E-02 -5.894E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.894E-02  1.988E-02  7.087E-01 -1.083E-01 -2.416E-03 -3.466E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.002E-02 -2.213E-02  2.968E-01  2.007E-01  6.901E-02 -2.053E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.440E-02 -6.976E-02  7.925E-01  1.840E-01  5.952E-02 -5.114E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.871E-03 -6.310E-04  7.567E-01  3.926E-02  2.790E-02 -4.102E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    231       10               9.240E-02  6.012E-02  9.146E-01 -9.197E-02 -1.163E-02 -4.146E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.863E-02  1.062E-02  4.940E-01 -8.387E-02 -1.004E-03 -2.388E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.369E-02 -1.975E-02  1.895E-01  1.490E-01  4.769E-02 -1.353E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.178E-02 -8.157E-02  5.029E-01  1.368E-01  4.116E-02 -3.504E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.512E-03 -1.410E-02  5.102E-01  2.750E-02  1.948E-02 -2.824E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    231                0.0000  3.014E+00 -4.621E+00  3.235E+01 -1.937E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.373E+00 -8.964E+00  1.541E+01 -1.767E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.295E+00 -9.565E+00  8.902E+00  3.425E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.263E+00 -5.072E+00  2.960E+01  3.169E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.111E-02 -7.177E+00  2.128E+01  7.227E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    231                7.1000  2.404E+00 -5.174E+00  2.550E+01 -1.558E+00 -2.195E-01 -8.839E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.781E+00 -8.727E+00  1.177E+01 -1.436E+00 -8.839E-02 -6.096E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.736E+00 -9.080E+00  7.016E+00  2.701E+00  9.100E-01 -4.382E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.591E+00 -5.200E+00  2.422E+01  2.519E+00  8.102E-01 -8.156E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.879E-02 -7.136E+00  1.692E+01  5.565E-01  3.574E-01 -6.848E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        0              -1.433E-01  3.247E-01 -6.526E-01 -2.438E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.258E-02  6.819E-01 -4.901E-01 -2.462E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.489E-01  8.423E-01 -9.178E-02  2.570E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.117E-02  3.103E-01 -3.266E-01  2.606E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.591E-02  5.397E-01 -3.906E-01  6.919E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   215\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    234        1              -2.259E-01 -7.245E-01 -1.326E+00 -4.020E-01 -4.601E-03 -9.013E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.714E-02 -1.145E-01 -1.059E+00 -4.106E-01 -6.470E-03 -7.952E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.333E-01  1.670E-01 -3.164E-01  4.568E-01 -1.873E-02 -8.000E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.597E-01 -7.464E-01 -7.129E-01  4.696E-01 -1.699E-02 -9.427E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.890E-02 -3.547E-01 -8.536E-01  2.846E-02 -1.165E-02 -8.602E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        2               3.377E-01 -4.766E+00 -2.749E+00 -1.662E-02 -9.735E-03 -1.378E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.604E-01 -5.178E+00 -3.998E+00 -5.020E-02 -3.540E-02 -9.642E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.835E-01 -5.066E+00 -3.399E+00  1.641E-01  3.676E-02 -7.691E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.205E-01 -4.490E+00 -1.627E+00  2.145E-01  7.024E-02 -1.380E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.729E-02 -4.876E+00 -2.946E+00  7.796E-02  1.556E-02 -1.122E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        3               1.178E+00 -4.455E+00 -5.233E+00  1.456E-01  5.127E-03 -5.681E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.167E-01 -6.241E+00 -9.429E+00  7.949E-02 -5.574E-02  2.525E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.311E+00 -6.274E+00 -8.844E+00  1.006E-01  2.755E-01  4.928E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.221E+00 -3.755E+00 -2.924E+00  1.999E-01  3.544E-01 -7.360E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.157E-01 -5.183E+00 -6.612E+00  1.314E-01  1.451E-01 -1.379E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        4               8.993E-01 -1.755E+00 -3.829E+00 -4.276E-02 -4.398E-03  7.760E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.559E-01 -2.946E+00 -7.156E+00 -9.849E-02 -5.551E-02  9.122E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.591E-01 -2.892E+00 -6.473E+00  3.134E-01  2.756E-01  9.780E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.386E-01 -1.341E+00 -2.031E+00  3.970E-01  3.372E-01 -2.440E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.366E-02 -2.231E+00 -4.866E+00  1.423E-01  1.386E-01  4.316E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        5               5.813E-01 -6.728E-01 -2.533E+00 -1.334E-01 -1.204E-02  3.915E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.031E-01 -1.336E+00 -4.818E+00 -1.745E-01 -5.012E-02  1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.806E-01 -1.202E+00 -4.095E+00  3.781E-01  2.135E-01  1.088E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.853E-01 -4.681E-01 -1.276E+00  4.398E-01  2.560E-01  5.692E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.187E-02 -9.137E-01 -3.166E+00  1.275E-01  1.023E-01  6.617E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        6               3.616E-01 -2.173E-01 -1.710E+00 -1.619E-01 -1.235E-02  4.647E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.141E-01 -5.742E-01 -3.273E+00 -1.908E-01 -4.018E-02  1.031E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.324E-01 -4.030E-01 -2.584E+00  3.561E-01  1.557E-01  9.608E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.837E-01 -1.150E-01 -8.177E-01  3.996E-01  1.844E-01  1.721E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.181E-02 -3.202E-01 -2.079E+00  1.007E-01  7.231E-02  6.558E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        7               2.215E-01 -3.043E-02 -1.180E+00 -1.548E-01 -1.017E-02  4.241E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.579E-01 -2.201E-01 -2.254E+00 -1.750E-01 -3.033E-02  8.499E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.824E-01 -4.342E-02 -1.641E+00  2.992E-01  1.105E-01  7.624E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.699E-01  2.440E-02 -5.342E-01  3.294E-01  1.299E-01  1.855E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.966E-02 -6.050E-02 -1.386E+00  7.471E-02  5.033E-02  5.538E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   216\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    234        8               1.348E-01  3.771E-02 -8.261E-01 -1.329E-01 -7.663E-03  3.492E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.192E-01 -6.298E-02 -1.572E+00 -1.469E-01 -2.231E-02  6.630E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.517E-02  1.013E-01 -1.049E+00  2.366E-01  7.748E-02  5.748E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.044E-01  7.079E-02 -3.530E-01  2.576E-01  9.050E-02  1.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.234E-02  4.282E-02 -9.358E-01  5.361E-02  3.482E-02  4.353E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234        9               8.166E-02  5.548E-02 -5.842E-01 -1.076E-01 -5.523E-03  2.731E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.108E-02  1.945E-03 -1.106E+00 -1.174E-01 -1.619E-02  5.021E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.561E-02  1.456E-01 -6.729E-01  1.806E-01  5.395E-02  4.214E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.572E-02  7.815E-02 -2.344E-01  1.953E-01  6.271E-02  1.282E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.849E-03  7.548E-02 -6.374E-01  3.770E-02  2.401E-02  3.295E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234       10               4.906E-02  5.336E-02 -4.152E-01 -8.416E-02 -3.864E-03  2.073E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.980E-02  2.481E-02 -7.829E-01 -9.107E-02 -1.163E-02  3.733E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.824E-02  1.455E-01 -4.321E-01  1.347E-01  3.737E-02  3.036E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.216E-02  7.046E-02 -1.557E-01  1.451E-01  4.325E-02  9.708E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.037E-03  7.779E-02 -4.366E-01  2.613E-02  1.649E-02  2.439E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    234                0.0000  3.476E+00 -1.215E+01 -2.104E+01 -1.334E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.138E+00 -1.596E+01 -3.594E+01 -1.622E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.526E+00 -1.448E+01 -2.960E+01  2.877E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.290E+00 -1.036E+01 -1.099E+01  3.308E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.104E-01 -1.320E+01 -2.431E+01  8.074E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    234                7.1000  2.857E+00 -1.137E+01 -1.781E+01 -1.036E+00 -4.132E-02  9.798E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.716E+00 -1.454E+01 -2.989E+01 -1.272E+00 -1.798E-01  3.541E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.970E+00 -1.343E+01 -2.494E+01  2.255E+00  7.001E-01  3.366E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.760E+00 -9.815E+00 -9.456E+00  2.610E+00  8.498E-01 -2.056E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.535E-01 -1.227E+01 -2.047E+01  6.390E-01  3.340E-01  1.915E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        0              -1.526E-01 -8.317E-01 -7.194E-01 -2.700E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.081E-02 -2.751E-01 -4.644E-01 -2.750E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.816E-02 -3.490E-01 -2.558E-01  2.485E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.196E-02 -7.179E-01 -4.207E-01  2.518E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.152E-02 -5.435E-01 -4.653E-01 -1.118E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        1              -2.566E-01 -2.698E+00 -1.362E+00 -4.706E-01 -8.423E-03 -1.356E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.706E-01 -1.716E+00 -9.201E-01 -4.821E-01 -1.575E-02 -1.219E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.422E-01 -1.853E+00 -5.462E-01  4.466E-01 -4.845E-03 -1.219E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.420E-01 -2.507E+00 -8.394E-01  4.542E-01 -3.433E-04 -1.298E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.143E-02 -2.194E+00 -9.169E-01 -1.298E-02 -7.339E-03 -1.273E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   217\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    241        2               4.468E-01 -3.731E+00  2.151E+00 -1.075E-01  7.861E-02 -3.084E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.232E-01 -4.333E+00  1.852E-01 -1.376E-01  6.259E-02 -2.503E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.861E-01 -4.151E+00  9.955E-01  1.532E-01 -3.967E-03 -2.467E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.011E-01 -3.777E+00  2.244E+00  1.732E-01  3.052E-03 -2.845E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.374E-03 -4.000E+00  1.390E+00  2.032E-02  3.528E-02 -2.724E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        3               1.613E+00  2.932E-01  9.569E+00  9.216E-02  3.392E-01 -3.607E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.239E+00 -2.565E+00  2.918E+00  4.234E-02  3.637E-01 -2.527E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.539E-01 -1.946E+00  4.689E+00  4.933E-02  2.744E-02 -2.644E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.672E-01 -1.203E-01  8.936E+00  8.254E-02 -6.104E-04 -3.364E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.674E-02 -1.090E+00  6.516E+00  6.659E-02  1.831E-01 -3.033E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        4               1.176E+00  1.196E+00  7.528E+00 -6.557E-02  3.199E-01 -2.834E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.940E-01 -6.791E-01  2.502E+00 -8.721E-02  3.583E-01 -1.784E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.621E-01 -3.681E-01  3.589E+00  2.458E-01  2.866E-02 -2.001E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.027E-01  7.663E-01  6.671E+00  2.602E-01 -5.402E-03 -2.684E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.528E-02  2.282E-01  5.072E+00  8.829E-02  1.761E-01 -2.325E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        5               7.327E-01  7.962E-01  4.935E+00 -1.308E-01  2.423E-01 -2.025E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.404E-01 -2.203E-01  1.708E+00 -1.329E-01  2.758E-01 -1.151E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.873E-01 -1.385E-01  2.198E+00  2.957E-01  2.023E-02 -1.351E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.350E-01  4.127E-01  4.055E+00  2.971E-01 -6.187E-03 -1.905E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.790E-02  2.154E-01  3.231E+00  8.227E-02  1.334E-01 -1.608E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        6               4.556E-01  4.464E-01  3.175E+00 -1.419E-01  1.744E-01 -1.357E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.206E-01 -8.629E-02  1.120E+00 -1.364E-01  2.004E-01 -7.063E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.261E-01 -1.089E-01  1.302E+00  2.676E-01  1.260E-02 -8.539E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.766E-01  1.314E-01  2.404E+00  2.640E-01 -5.825E-03 -1.255E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.526E-02  9.957E-02  2.009E+00  6.333E-02  9.552E-02 -1.044E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        7               2.874E-01  2.361E-01  2.037E+00 -1.259E-01  1.229E-01 -8.921E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.893E-01 -3.942E-02  7.238E-01 -1.189E-01  1.419E-01 -4.308E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.346E-01 -9.872E-02  7.620E-01  2.140E-01  7.162E-03 -5.308E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.845E-02 -9.763E-03  1.417E+00  2.093E-01 -5.129E-03 -8.065E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.682E-02  2.588E-02  1.244E+00  4.463E-02  6.672E-02 -6.661E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    241        8               1.845E-01  1.212E-01  1.312E+00 -1.012E-01  8.573E-02 -5.844E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.115E-01 -2.048E-02  4.666E-01 -9.483E-02  9.929E-02 -2.650E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.205E-02 -8.516E-02  4.444E-01  1.603E-01  3.630E-03 -3.301E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.106E-02 -6.496E-02  8.346E-01  1.560E-01 -4.367E-03 -5.148E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.129E-02 -9.044E-03  7.720E-01  3.006E-02  4.606E-02 -4.247E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   218\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    241        9               1.203E-01  6.075E-02  8.484E-01 -7.703E-02  5.952E-02 -3.831E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.549E-02 -1.156E-02  3.013E-01 -7.191E-02  6.901E-02 -1.647E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.113E-02 -6.920E-02  2.588E-01  1.156E-01  1.517E-03 -2.060E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.638E-02 -7.737E-02  4.919E-01  1.121E-01 -3.618E-03 -3.282E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.674E-03 -2.169E-02  4.813E-01  1.969E-02  3.157E-02 -2.715E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    241       10               7.939E-02  2.953E-02  5.505E-01 -5.665E-02  4.116E-02 -2.513E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.813E-02 -6.776E-03  1.951E-01 -5.281E-02  4.770E-02 -1.033E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.244E-02 -5.370E-02  1.502E-01  8.127E-02  3.202E-04 -1.289E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.104E-03 -7.131E-02  2.896E-01  7.871E-02 -2.934E-03 -2.091E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.277E-03 -2.352E-02  3.011E-01  1.263E-02  2.151E-02 -1.740E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    241                0.0000  4.687E+00 -4.082E+00  3.002E+01 -1.455E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.461E+00 -9.953E+00  8.736E+00 -1.547E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.585E+00 -9.221E+00  1.359E+01  2.278E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.119E+00 -6.035E+00  2.608E+01  2.339E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.017E-01 -7.312E+00  1.963E+01  4.036E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    241                7.1000  3.861E+00 -4.569E+00  2.449E+01 -1.213E+00  8.101E-01 -7.428E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.895E+00 -9.453E+00  6.857E+00 -1.310E+00  9.101E-01 -4.474E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.166E+00 -8.700E+00  1.134E+01  1.844E+00  5.247E-02 -5.018E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.811E+00 -5.972E+00  2.187E+01  1.908E+00 -2.321E-02 -6.851E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.577E-01 -7.169E+00  1.615E+01  3.070E-01  4.382E-01 -5.945E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        0              -1.427E-01  1.667E-01 -3.881E-01 -2.623E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.222E-02  7.101E-01 -1.484E-01 -2.719E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.077E-01  7.895E-01  1.006E-01  2.423E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.660E-02  4.295E-01 -5.378E-02  2.487E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.805E-03  5.241E-01 -1.221E-01 -1.082E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        1              -2.325E-01 -9.163E-01 -7.857E-01 -4.629E-01 -1.699E-02 -1.051E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.844E-01  5.294E-02 -3.653E-01 -4.848E-01 -1.873E-02 -9.198E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.719E-01  1.864E-01  9.201E-02  4.358E-01 -7.858E-04 -9.225E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.049E-01 -4.587E-01 -1.857E-01  4.504E-01 -3.586E-04 -9.976E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.777E-03 -2.838E-01 -3.110E-01 -1.538E-02 -9.258E-03 -9.718E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        2               4.027E-01 -4.298E+00 -1.545E+00 -1.303E-01  7.024E-02 -1.700E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.600E-01 -4.777E+00 -3.275E+00 -1.507E-01  3.676E-02 -1.144E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.371E-01 -4.618E+00 -2.767E+00  1.558E-01 -9.186E-03 -9.595E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.729E-01 -4.330E+00 -1.689E+00  1.694E-01  1.062E-02 -1.319E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.487E-02 -4.511E+00 -2.330E+00  1.104E-02  2.684E-02 -1.279E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   219\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    244        3               1.446E+00 -3.231E+00 -2.699E+00  5.803E-02  3.544E-01 -8.759E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.088E+00 -5.754E+00 -8.621E+00  4.639E-02  2.755E-01  1.568E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.630E-01 -5.452E+00 -7.838E+00  6.343E-02 -1.439E-02  3.683E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.281E-01 -3.867E+00 -4.118E+00  7.118E-02  3.253E-02 -3.143E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.091E-02 -4.591E+00 -5.853E+00  5.976E-02  1.614E-01 -1.640E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        4               1.080E+00 -7.784E-01 -1.790E+00 -7.405E-02  3.372E-01 -1.945E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.509E-01 -2.406E+00 -6.265E+00 -9.470E-02  2.756E-01  8.078E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.251E-01 -2.143E+00 -5.512E+00  2.439E-01 -9.239E-03  8.377E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.733E-01 -1.180E+00 -2.814E+00  2.577E-01  2.429E-02  1.900E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.014E-02 -1.641E+00 -4.128E+00  8.320E-02  1.563E-01  4.133E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        5               6.738E-01 -2.829E-02 -1.088E+00 -1.269E-01  2.560E-01  1.409E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.452E-01 -8.864E-01 -3.959E+00 -1.487E-01  2.135E-01  9.734E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.630E-01 -6.593E-01 -3.284E+00  2.861E-01 -6.362E-03  9.194E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.585E-01 -2.117E-01 -1.660E+00  3.006E-01  1.413E-02  3.941E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.901E-02 -4.585E-01 -2.526E+00  7.777E-02  1.187E-01  6.103E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        6               4.063E-01  1.711E-01 -6.950E-01 -1.348E-01  1.844E-01  2.449E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.715E-01 -2.609E-01 -2.523E+00 -1.526E-01  1.557E-01  8.658E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.949E-01 -6.571E-02 -1.949E+00  2.572E-01 -4.939E-03  7.799E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.473E-01  1.126E-01 -9.864E-01  2.691E-01  7.351E-03  3.984E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.220E-02 -2.033E-02 -1.561E+00  5.975E-02  8.510E-02  5.754E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        7               2.417E-01  1.919E-01 -4.624E-01 -1.192E-01  1.299E-01  2.374E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.721E-01 -1.922E-02 -1.630E+00 -1.324E-01  1.105E-01  6.775E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.765E-02  1.432E-01 -1.164E+00  2.053E-01 -4.028E-03  5.869E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.893E-02  1.947E-01 -5.931E-01  2.141E-01  3.246E-03  3.243E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.854E-03  1.203E-01 -9.796E-01  4.193E-02  5.949E-02  4.592E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        8               1.427E-01  1.600E-01 -3.147E-01 -9.599E-02  9.050E-02  1.945E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.130E-01  5.980E-02 -1.067E+00 -1.054E-01  7.748E-02  4.993E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.441E-02  1.909E-01 -6.983E-01  1.537E-01 -3.372E-03  4.172E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.656E-02  1.882E-01 -3.591E-01  1.599E-01  9.242E-04  2.407E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.969E-03  1.442E-01 -6.225E-01  2.807E-02  4.107E-02  3.401E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244        9               8.351E-02  1.197E-01 -2.166E-01 -7.323E-02  6.271E-02  1.478E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.619E-02  7.428E-02 -7.035E-01 -7.973E-02  5.395E-02  3.563E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.653E-02  1.773E-01 -4.199E-01  1.108E-01 -2.813E-03  2.874E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.746E-02  1.550E-01 -2.177E-01  1.151E-01 -3.015E-04  1.705E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.032E-03  1.275E-01 -3.989E-01  1.825E-02  2.816E-02  2.422E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   220\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    244       10               4.827E-02  8.473E-02 -1.496E-01 -5.403E-02  4.325E-02  1.077E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.234E-02  6.595E-02 -4.662E-01 -5.845E-02  3.737E-02  2.492E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.754E-03  1.450E-01 -2.522E-01  7.795E-02 -2.310E-03  1.942E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.551E-02  1.187E-01 -1.317E-01  8.090E-02 -8.640E-04  1.173E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.756E-03  1.007E-01 -2.567E-01  1.159E-02  1.919E-02  1.684E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    244                0.0000  4.149E+00 -8.358E+00 -1.013E+01 -1.476E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.953E+00 -1.314E+01 -2.902E+01 -1.633E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.165E+00 -1.130E+01 -2.369E+01  2.232E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.837E+00 -8.849E+00 -1.281E+01  2.337E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.423E-01 -1.049E+01 -1.909E+01  3.652E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    244                7.1000  3.448E+00 -8.209E+00 -8.768E+00 -1.241E+00  8.497E-01 -1.318E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.437E+00 -1.219E+01 -2.441E+01 -1.370E+00  7.001E-01  2.688E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.840E+00 -1.073E+01 -2.015E+01  1.813E+00 -2.961E-02  2.483E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.544E+00 -8.618E+00 -1.098E+01  1.899E+00  4.127E-02  7.407E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.208E-01 -9.993E+00 -1.621E+01  2.751E-01  3.881E-01  1.459E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        0              -4.209E-02 -6.482E-01 -3.908E-01 -2.195E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.217E-02 -3.630E-01 -2.618E-01 -2.286E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.235E-02 -2.017E-01 -6.300E-02  1.693E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.108E-01 -6.263E-01 -2.490E-01  1.829E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.481E-04 -4.596E-01 -2.408E-01 -2.398E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        1              -5.953E-02 -2.315E+00 -7.569E-01 -3.975E-01 -3.403E-04 -1.322E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.680E-01 -1.793E+00 -5.204E-01 -4.159E-01 -4.849E-03 -1.258E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.151E-01 -1.515E+00 -1.787E-01  3.109E-01 -1.521E-02 -1.188E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.230E-01 -2.295E+00 -5.261E-01  3.384E-01 -1.057E-02 -1.267E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.982E-04 -1.979E+00 -4.952E-01 -4.102E-02 -7.851E-03 -1.258E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        2               3.282E-01 -3.481E+00  2.371E+00 -1.400E-01  3.082E-03 -3.081E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.580E-01 -3.853E+00  1.123E+00 -1.436E-01 -3.876E-03 -2.688E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.809E-01 -3.983E+00  6.664E-01  1.383E-01  5.049E-02 -2.282E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.888E-01 -3.484E+00  2.399E+00  1.437E-01  6.134E-02 -2.853E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.442E-02 -3.706E+00  1.627E+00 -3.710E-04  2.773E-02 -2.724E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        3               9.497E-01  7.190E-02  9.018E+00 -7.243E-02 -7.176E-04 -3.554E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.954E-01 -1.575E+00  4.848E+00 -4.148E-02  2.711E-02 -2.718E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.144E+00 -2.185E+00  2.952E+00  2.191E-01  3.128E-01 -2.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.252E+00  6.483E-02  8.692E+00  1.727E-01  2.867E-01 -3.322E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.741E-02 -9.243E-01  6.334E+00  6.947E-02  1.571E-01 -2.918E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   221\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    251        4               6.467E-01  8.685E-01  6.715E+00 -2.537E-01 -5.364E-03 -2.633E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.265E-01 -5.204E-02  3.725E+00 -2.255E-01  2.878E-02 -1.864E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.113E-01 -3.933E-01  2.225E+00  4.198E-01  2.730E-01 -1.395E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.880E-01  7.273E-01  6.102E+00  3.774E-01  2.385E-01 -2.491E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.178E-02  2.701E-01  4.651E+00  7.949E-02  1.345E-01 -2.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        5               3.755E-01  5.072E-01  4.095E+00 -2.794E-01 -6.224E-03 -1.771E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.772E-01  1.185E-01  2.308E+00 -2.583E-01  2.020E-02 -1.175E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.557E-01 -3.860E-02  1.291E+00  4.122E-01  1.768E-01 -8.378E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.804E-01  3.015E-01  3.405E+00  3.806E-01  1.514E-01 -1.661E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.672E-02  2.081E-01  2.742E+00  6.376E-02  8.621E-02 -1.357E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        6               2.218E-01  2.369E-01  2.449E+00 -2.362E-01 -5.841E-03 -1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.410E-01  8.970E-02  1.387E+00 -2.216E-01  1.256E-02 -6.963E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.745E-01  1.797E-02  7.140E-01  3.246E-01  1.076E-01 -4.674E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.714E-01  4.058E-02  1.845E+00  3.027E-01  9.107E-02 -1.024E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.875E-03  8.572E-02  1.574E+00  4.235E-02  5.187E-02 -8.213E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        7               1.351E-01  9.905E-02  1.463E+00 -1.780E-01 -5.148E-03 -6.842E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.006E-02  5.185E-02  8.265E-01 -1.684E-01  7.154E-03 -4.069E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.617E-02  1.818E-02  3.881E-01  2.313E-01  6.395E-02 -2.566E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.139E-02 -6.118E-02  9.927E-01  2.168E-01  5.369E-02 -6.136E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.949E-03  1.935E-02  8.999E-01  2.544E-02  3.028E-02 -4.873E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        8               8.450E-02  3.640E-02  8.781E-01 -1.262E-01 -4.364E-03 -4.186E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.378E-02  2.745E-02  4.927E-01 -1.200E-01  3.641E-03 -2.385E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.296E-02  1.085E-02  2.096E-01  1.564E-01  3.753E-02 -1.412E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.538E-02 -8.481E-02  5.331E-01  1.471E-01  3.136E-02 -3.651E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.942E-03 -7.874E-03  5.159E-01  1.432E-02  1.731E-02 -2.885E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    251        9               5.386E-02  1.010E-02  5.294E-01 -8.634E-02 -3.620E-03 -2.561E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.550E-02  1.393E-02  2.944E-01 -8.242E-02  1.514E-03 -1.405E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.157E-02  5.228E-03  1.129E-01  1.025E-01  2.183E-02 -7.821E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.352E-03 -7.764E-02  2.855E-01  9.665E-02  1.820E-02 -2.168E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.852E-03 -1.578E-02  2.969E-01  7.604E-03  9.665E-03 -1.712E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    251       10               3.473E-02  1.482E-04  3.203E-01 -5.769E-02 -2.935E-03 -1.567E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.467E-03  6.890E-03  1.762E-01 -5.525E-02  3.190E-04 -8.321E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.085E-02  2.033E-03  6.053E-02  6.582E-02  1.257E-02 -4.351E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.483E-03 -6.151E-02  1.519E-01  6.215E-02  1.048E-02 -1.285E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.227E-03 -1.562E-02  1.714E-01  3.757E-03  5.236E-03 -1.018E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   222\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    251                0.0000  2.729E+00 -4.613E+00  2.669E+01 -2.047E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.774E+00 -7.328E+00  1.440E+01 -1.961E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.741E+00 -8.262E+00  8.379E+00  2.550E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.647E+00 -5.556E+00  2.363E+01  2.421E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.310E-01 -6.525E+00  1.808E+01  2.408E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    251                7.1000  2.308E+00 -4.813E+00  2.237E+01 -1.683E+00 -2.327E-02 -6.495E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.511E+00 -7.172E+00  1.199E+01 -1.620E+00  5.238E-02 -4.557E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.385E+00 -7.946E+00  7.126E+00  2.062E+00  5.411E-01 -3.358E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.305E+00 -5.446E+00  2.026E+01  1.967E+00  4.743E-01 -5.995E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.131E-01 -6.411E+00  1.528E+01  1.816E-01  2.633E-01 -5.085E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        0              -1.046E-01  2.942E-01 -1.118E-01 -2.224E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.417E-02  5.712E-01  7.086E-03 -2.208E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.250E-01  6.658E-01  2.116E-01  1.749E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.177E-02  2.516E-01  3.657E-02  1.724E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.361E-03  4.456E-01  3.574E-02 -2.398E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        1              -1.676E-01 -6.049E-01 -2.483E-01 -4.013E-01 -3.586E-04 -1.064E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.916E-02 -1.000E-01 -3.072E-02 -4.011E-01 -7.858E-04 -1.007E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.070E-01  5.552E-02  3.298E-01  3.192E-01 -1.310E-02 -1.004E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.178E-01 -7.015E-01  4.115E-03  3.189E-01 -1.266E-02 -1.076E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.307E-03 -3.377E-01  1.369E-02 -4.110E-02 -6.721E-03 -1.038E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        2               2.471E-01 -4.158E+00 -1.614E+00 -1.279E-01  1.062E-02 -1.595E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.763E-01 -4.476E+00 -2.707E+00 -1.452E-01 -9.186E-03 -1.229E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.001E-01 -4.426E+00 -2.416E+00  1.166E-01  3.586E-02 -1.050E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.935E-01 -3.990E+00 -8.741E-01  1.427E-01  6.317E-02 -1.587E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.512E-02 -4.263E+00 -1.905E+00 -3.435E-03  2.512E-02 -1.365E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        3               8.573E-01 -3.565E+00 -3.989E+00 -3.713E-02  3.253E-02 -5.484E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.720E-01 -5.006E+00 -7.647E+00 -7.644E-02 -1.439E-02  2.365E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.051E+00 -4.992E+00 -7.221E+00  1.466E-01  2.426E-01  4.234E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.086E+00 -2.988E+00 -2.100E+00  2.056E-01  3.070E-01 -7.408E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.382E-02 -4.139E+00 -5.242E+00  5.968E-02  1.419E-01 -1.560E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        4               5.828E-01 -9.243E-01 -2.704E+00 -2.247E-01  2.429E-02  1.258E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.328E-01 -1.694E+00 -5.320E+00 -2.563E-01 -9.235E-03  8.493E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.632E-01 -1.608E+00 -4.804E+00  3.588E-01  2.133E-01  8.462E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.575E-01 -6.564E-01 -1.353E+00  4.062E-01  2.557E-01 -1.940E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.884E-02 -1.218E+00 -3.539E+00  7.097E-02  1.212E-01  4.066E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   223\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    254        5               3.166E-01 -7.609E-02 -1.602E+00 -2.592E-01  1.413E-02  3.779E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.404E-01 -3.732E-01 -3.162E+00 -2.803E-01 -6.362E-03  9.399E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.190E-01 -2.407E-01 -2.641E+00  3.694E-01  1.382E-01  8.595E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.176E-01  6.132E-03 -7.659E-01  4.010E-01  1.617E-01  7.644E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.362E-02 -1.660E-01 -2.031E+00  5.771E-02  7.711E-02  5.622E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        6               1.601E-01  1.423E-01 -9.736E-01 -2.233E-01  7.351E-03  3.889E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.452E-01  5.026E-02 -1.899E+00 -2.363E-01 -4.939E-03  7.821E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.353E-01  1.902E-01 -1.442E+00  2.967E-01  8.410E-02  6.833E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.560E-01  1.617E-01 -4.429E-01  3.162E-01  9.671E-02  1.528E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.388E-02  1.411E-01 -1.178E+00  3.832E-02  4.600E-02  5.001E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        7               7.609E-02  1.647E-01 -6.060E-01 -1.701E-01  3.245E-03  3.123E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.429E-02  1.510E-01 -1.160E+00 -1.779E-01 -4.028E-03  5.738E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.723E-02  2.755E-01 -7.925E-01  2.138E-01  4.995E-02  4.822E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.019E-02  1.679E-01 -2.602E-01  2.254E-01  5.669E-02  1.409E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.872E-03  1.940E-01 -6.949E-01  2.281E-02  2.660E-02  3.757E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        8               3.315E-02  1.336E-01 -3.825E-01 -1.216E-01  9.242E-04  2.267E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.401E-02  1.451E-01 -7.179E-01 -1.261E-01 -3.372E-03  3.967E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.354E-03  2.461E-01 -4.370E-01  1.457E-01  2.931E-02  3.213E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.328E-02  1.347E-01 -1.534E-01  1.525E-01  3.286E-02  1.068E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.257E-03  1.681E-01 -4.152E-01  1.262E-02  1.504E-02  2.615E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254        9               1.210E-02  9.586E-02 -2.431E-01 -8.364E-02 -3.015E-04  1.563E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.436E-02  1.123E-01 -4.478E-01 -8.628E-02 -2.813E-03  2.655E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.807E-03  1.898E-01 -2.406E-01  9.601E-02  1.706E-02  2.074E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.444E-02  9.806E-02 -9.012E-02  9.996E-02  1.890E-02  7.437E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.135E-03  1.264E-01 -2.498E-01  6.513E-03  8.285E-03  1.748E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254       10               2.376E-03  6.476E-02 -1.548E-01 -5.617E-02 -8.641E-04  1.046E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.093E-02  7.929E-02 -2.803E-01 -5.768E-02 -2.310E-03  1.741E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.113E-02  1.365E-01 -1.317E-01  6.191E-02  9.843E-03  1.312E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.433E-02  6.793E-02 -5.250E-02  6.418E-02  1.077E-02  4.939E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.351E-04  8.883E-02 -1.509E-01  3.058E-03  4.407E-03  1.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    254                0.0000  2.015E+00 -8.433E+00 -1.263E+01 -1.928E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.837E+00 -1.054E+01 -2.336E+01 -2.064E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.175E+00 -9.507E+00 -1.959E+01  2.300E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.503E+00 -7.448E+00 -6.052E+00  2.505E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.488E-01 -8.960E+00 -1.536E+01  2.032E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   224\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    254                7.1000  1.729E+00 -8.186E+00 -1.080E+01 -1.584E+00  4.127E-02  4.877E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.543E+00 -1.004E+01 -1.986E+01 -1.699E+00 -2.961E-02  2.312E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.911E+00 -9.250E+00 -1.687E+01  1.856E+00  4.212E-01  2.083E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.170E+00 -7.302E+00 -5.212E+00  2.029E+00  5.043E-01 -4.255E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.255E-01 -8.679E+00 -1.315E+01  1.507E-01  2.349E-01  1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        0              -6.281E-02 -5.143E-01 -2.010E-01 -1.957E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.677E-02 -1.447E-01 -3.858E-02 -2.011E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.047E-02 -2.451E-01 -3.635E-03  1.507E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.488E-02 -4.904E-01 -1.094E-01  1.543E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.674E-03 -3.487E-01 -8.830E-02 -2.295E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        1              -9.670E-02 -2.000E+00 -3.998E-01 -3.520E-01 -1.057E-02 -1.278E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.962E-01 -1.326E+00 -9.767E-02 -3.646E-01 -1.521E-02 -1.208E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.674E-02 -1.529E+00 -6.349E-02  2.749E-01 -1.579E-03 -1.191E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.579E-01 -1.977E+00 -2.635E-01  2.833E-01  1.129E-03 -1.229E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.432E-03 -1.708E+00 -2.061E-01 -3.961E-02 -6.546E-03 -1.227E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        2               4.898E-01 -3.015E+00  2.600E+00 -8.060E-02  6.140E-02 -3.029E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.350E-01 -3.644E+00  8.120E-01 -1.082E-01  5.055E-02 -2.504E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.264E-01 -3.583E+00  1.245E+00  6.147E-02  1.160E-03 -2.476E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.316E-01 -3.189E+00  2.378E+00  7.988E-02  5.249E-03 -2.820E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.396E-02 -3.359E+00  1.756E+00 -1.188E-02  2.980E-02 -2.706E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        3               1.441E+00  5.053E-01  8.880E+00  2.412E-02  2.865E-01 -3.364E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.043E+00 -1.949E+00  3.053E+00 -1.563E-02  3.128E-01 -2.316E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.652E-01 -1.516E+00  4.363E+00  4.740E-02  2.756E-02 -2.461E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.089E-01  3.847E-02  8.056E+00  7.390E-02  4.578E-04 -3.158E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.665E-02 -7.342E-01  6.079E+00  3.246E-02  1.573E-01 -2.823E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        4               9.309E-01  1.061E+00  6.245E+00 -1.562E-01  2.386E-01 -2.315E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.613E-01 -2.768E-01  2.275E+00 -1.705E-01  2.730E-01 -1.405E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.297E-01 -1.351E-01  2.984E+00  2.589E-01  2.483E-02 -1.615E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.292E-01  6.539E-01  5.391E+00  2.684E-01 -4.128E-03 -2.199E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.254E-02  3.259E-01  4.224E+00  5.017E-02  1.336E-01 -1.883E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        5               4.957E-01  5.705E-01  3.520E+00 -1.859E-01  1.514E-01 -1.453E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.309E-01  1.925E-02  1.316E+00 -1.852E-01  1.768E-01 -7.780E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.623E-01 -8.575E-03  1.552E+00  2.734E-01  1.464E-02 -9.494E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.894E-01  2.595E-01  2.790E+00  2.730E-01 -4.425E-03 -1.369E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.566E-02  2.129E-01  2.301E+00  4.382E-02  8.483E-02 -1.138E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   225\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    261        6               2.636E-01  2.557E-01  1.937E+00 -1.548E-01  9.105E-02 -8.476E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.611E-01  4.925E-02  7.274E-01 -1.501E-01  1.076E-01 -4.020E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.289E-01 -2.267E-02  7.708E-01  2.122E-01  7.402E-03 -5.156E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.456E-02  3.530E-02  1.391E+00  2.090E-01 -3.752E-03 -7.832E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.504E-02  8.240E-02  1.214E+00  2.907E-02  5.063E-02 -6.381E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        7               1.430E-01  1.059E-01  1.064E+00 -1.124E-01  5.370E-02 -4.815E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.762E-02  3.812E-02  3.967E-01 -1.079E-01  6.396E-02 -2.041E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.478E-02 -3.010E-02  3.773E-01  1.454E-01  3.294E-03 -2.731E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.463E-02 -4.261E-02  6.878E-01  1.424E-01 -2.935E-03 -4.339E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.802E-03  2.032E-02  6.374E-01  1.690E-02  2.949E-02 -3.491E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        8               7.914E-02  4.063E-02  5.869E-01 -7.595E-02  3.136E-02 -2.717E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.693E-02  2.492E-02  2.157E-01 -7.261E-02  3.753E-02 -1.037E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.337E-02 -2.728E-02  1.831E-01  9.355E-02  1.180E-03 -1.442E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.522E-03 -5.629E-02  3.384E-01  9.132E-02 -2.200E-03 -2.380E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.190E-03 -2.656E-03  3.353E-01  9.080E-03  1.695E-02 -1.902E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    261        9               4.452E-02  1.375E-02  3.246E-01 -4.922E-02  1.820E-02 -1.531E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.718E-02  1.546E-02  1.172E-01 -4.699E-02  2.183E-02 -5.289E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.757E-02 -2.089E-02  8.806E-02  5.796E-02  2.050E-04 -7.613E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.545E-03 -4.814E-02  1.654E-01  5.648E-02 -1.593E-03 -1.300E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.090E-03 -8.672E-03  1.768E-01  4.558E-03  9.633E-03 -1.036E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    261       10               2.532E-02  3.363E-03  1.797E-01 -3.102E-02  1.048E-02 -8.612E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.677E-03  9.426E-03  6.370E-02 -2.963E-02  1.258E-02 -2.701E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.412E-03 -1.460E-02  4.178E-02  3.501E-02 -1.883E-04 -4.019E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.228E-03 -3.545E-02  7.991E-02  3.408E-02 -1.123E-03 -7.069E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.856E-03 -8.459E-03  9.328E-02  2.112E-03  5.414E-03 -5.645E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    261                0.0000  3.753E+00 -2.973E+00  2.474E+01 -1.370E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.278E+00 -7.184E+00  8.841E+00 -1.452E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.171E+00 -7.131E+00  1.154E+01  1.611E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.323E+00 -4.852E+00  2.090E+01  1.666E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.647E-01 -5.528E+00  1.652E+01  1.137E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    261                7.1000  3.239E+00 -3.267E+00  2.119E+01 -1.149E+00  4.743E-01 -5.455E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.959E+00 -6.952E+00  7.552E+00 -1.233E+00  5.412E-01 -3.312E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.901E+00 -6.838E+00  1.006E+01  1.316E+00  3.892E-02 -3.752E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.159E+00 -4.787E+00  1.821E+01  1.372E+00 -1.205E-02 -5.075E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.381E-01 -5.458E+00  1.426E+01  7.627E-02  2.612E-01 -4.401E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   226\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    264        0              -1.160E-01  1.019E-01 -2.762E-02 -1.960E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.841E-02  4.638E-01  1.250E-01 -1.959E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.633E-02  5.109E-01  2.343E-01  1.500E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.598E-02  2.702E-01  1.339E-01  1.499E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.770E-03  3.367E-01  1.165E-01 -2.301E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        1              -1.907E-01 -8.716E-01 -6.879E-02 -3.528E-01 -1.266E-02 -1.126E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.299E-02 -2.106E-01  2.157E-01 -3.561E-01 -1.310E-02 -1.060E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.370E-01 -1.443E-01  3.927E-01  2.728E-01 -4.196E-04 -1.053E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.212E-02 -5.850E-01  2.029E-01  2.750E-01 -1.221E-04 -1.088E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.187E-03 -4.529E-01  1.856E-01 -4.029E-02 -6.580E-03 -1.081E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        2               3.852E-01 -3.775E+00 -7.823E-01 -8.774E-02  6.317E-02 -1.781E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.546E-01 -4.320E+00 -2.371E+00 -9.530E-02  3.586E-02 -1.283E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.285E-01 -4.243E+00 -2.141E+00  6.370E-02 -7.263E-03 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.676E-01 -3.911E+00 -1.154E+00  6.875E-02  9.613E-03 -1.432E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.314E-02 -4.067E+00 -1.622E+00 -1.266E-02  2.516E-02 -1.399E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        3               1.277E+00 -2.541E+00 -1.909E+00  1.207E-02  3.070E-01 -7.343E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.381E-01 -4.727E+00 -7.108E+00  7.065E-03  2.426E-01  2.652E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.471E-01 -4.503E+00 -6.550E+00  5.626E-02 -1.155E-02  4.374E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.337E-01 -3.142E+00 -3.309E+00  5.962E-02  2.704E-02 -2.224E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.296E-02 -3.742E+00 -4.750E+00  3.374E-02  1.408E-01 -6.131E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        4               8.290E-01 -2.562E-01 -1.181E+00 -1.546E-01  2.557E-01 -4.659E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.780E-01 -1.409E+00 -4.719E+00 -1.670E-01  2.133E-01  8.198E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.612E-01 -1.210E+00 -4.170E+00  2.563E-01 -5.825E-03  8.020E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.702E-01 -5.476E-01 -2.061E+00  2.646E-01  1.731E-02  2.483E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.806E-02 -8.676E-01 -3.061E+00  4.985E-02  1.197E-01  4.589E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        5               4.288E-01  2.655E-01 -6.548E-01 -1.789E-01  1.617E-01  2.032E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.943E-01 -1.829E-01 -2.617E+00 -1.915E-01  1.382E-01  8.460E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.116E-01 -1.592E-02 -2.143E+00  2.663E-01 -3.001E-03  7.604E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.736E-01  1.861E-01 -1.061E+00  2.747E-01  7.893E-03  3.621E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.505E-02  5.413E-02 -1.640E+00  4.266E-02  7.580E-02  5.460E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        6               2.105E-01  2.888E-01 -3.884E-01 -1.484E-01  9.671E-02  2.354E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.572E-01  1.391E-01 -1.464E+00 -1.574E-01  8.410E-02  6.602E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.242E-02  2.741E-01 -1.089E+00  2.059E-01 -1.981E-03  5.671E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.705E-02  2.983E-01 -5.483E-01  2.119E-01  2.883E-03  3.122E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.055E-03  2.436E-01 -8.875E-01  2.798E-02  4.517E-02  4.462E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   227\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    264        7               9.993E-02  2.139E-01 -2.404E-01 -1.080E-01  5.668E-02  1.887E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.915E-02  1.776E-01 -8.344E-01 -1.136E-01  4.995E-02  4.534E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.416E-02  2.805E-01 -5.565E-01  1.411E-01 -1.481E-03  3.745E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.778E-02  2.506E-01 -2.868E-01  1.449E-01  5.587E-04  2.209E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.265E-03  2.263E-01 -4.896E-01  1.608E-02  2.625E-02  3.112E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        8               4.565E-02  1.402E-01 -1.510E-01 -7.324E-02  3.286E-02  1.324E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.294E-02  1.421E-01 -4.815E-01 -7.661E-02  2.931E-02  2.929E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.591E-04  2.167E-01 -2.849E-01  9.083E-02 -1.156E-03  2.329E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.810E-02  1.786E-01 -1.506E-01  9.307E-02 -3.780E-04  1.430E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.175E-03  1.666E-01 -2.736E-01  8.512E-03  1.505E-02  2.016E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    264        9               1.959E-02  8.675E-02 -9.497E-02 -4.767E-02  1.890E-02  8.707E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.239E-02  9.834E-02 -2.798E-01 -4.960E-02  1.706E-02  1.829E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.923E-03  1.505E-01 -1.452E-01  5.635E-02 -8.891E-04  1.400E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.727E-02  1.185E-01 -7.870E-02  5.764E-02 -6.588E-04  8.828E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.027E-03  1.117E-01 -1.539E-01  4.181E-03  8.536E-03  1.255E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    264       10               7.448E-03  5.188E-02 -5.938E-02 -3.019E-02  1.077E-02  5.517E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.015E-02  6.350E-02 -1.630E-01 -3.126E-02  9.843E-03  1.118E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.098E-03  9.889E-02 -7.327E-02  3.410E-02 -6.628E-04  8.239E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.085E-02  7.550E-02 -4.070E-02  3.482E-02 -6.513E-04  5.295E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.163E-04  7.130E-02 -8.676E-02  1.867E-03  4.785E-03  7.618E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    264                0.0000  2.997E+00 -6.296E+00 -5.558E+00 -1.365E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.285E+00 -9.766E+00 -1.970E+01 -1.427E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.517E+00 -8.585E+00 -1.653E+01  1.594E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.468E+00 -6.807E+00 -8.353E+00  1.635E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.102E-01 -7.919E+00 -1.266E+01  1.089E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    264                7.1000  2.592E+00 -6.317E+00 -4.790E+00 -1.151E+00  5.043E-01 -2.025E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.961E+00 -9.367E+00 -1.692E+01 -1.201E+00  4.212E-01  1.840E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.344E+00 -8.418E+00 -1.437E+01  1.305E+00 -1.541E-02  1.648E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.274E+00 -6.803E+00 -7.262E+00  1.339E+00  2.584E-02  3.906E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.524E-02 -7.771E+00 -1.094E+01  7.286E-02  2.328E-01  9.290E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        0              -3.252E-03 -3.233E-01 -3.782E-02 -1.180E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.682E-02 -1.836E-01  2.272E-02 -1.229E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.128E-02 -1.296E-01  6.561E-02  7.364E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.761E-02 -3.380E-01 -2.236E-02  8.110E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.860E-03 -2.436E-01  7.154E-03 -2.154E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   228\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    271        1               1.288E-02 -1.579E+00 -9.274E-02 -2.149E-01  1.118E-03 -1.233E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.270E-01 -1.318E+00  2.675E-02 -2.261E-01 -1.591E-03 -1.205E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.087E-02 -1.240E+00  7.659E-02  1.351E-01 -7.893E-03 -1.159E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.483E-01 -1.629E+00 -9.815E-02  1.518E-01 -5.108E-03 -1.191E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.222E-03 -1.441E+00 -2.167E-02 -3.854E-02 -3.433E-03 -1.197E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        2               3.534E-01 -2.672E+00  2.599E+00 -2.588E-02  5.256E-03 -2.988E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.383E-01 -3.144E+00  1.433E+00 -2.563E-02  1.228E-03 -2.627E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.042E-01 -3.403E+00  7.944E-01  2.299E-02  5.237E-02 -2.266E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.757E-01 -2.752E+00  2.410E+00  2.260E-02  5.951E-02 -2.799E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.691E-02 -2.998E+00  1.798E+00 -1.474E-03  2.961E-02 -2.669E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        3               8.682E-01  4.089E-01  8.215E+00 -3.653E-02  3.344E-04 -3.251E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.741E-01 -1.070E+00  4.554E+00 -6.749E-03  2.728E-02 -2.453E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.022E+00 -1.684E+00  2.720E+00  1.649E-01  2.760E-01 -1.887E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.081E+00  3.242E-01  7.719E+00  1.203E-01  2.501E-01 -3.067E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.650E-02 -5.222E-01  5.763E+00  6.047E-02  1.390E-01 -2.662E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        4               5.266E-01  8.809E-01  5.488E+00 -2.383E-01 -4.094E-03 -2.074E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.913E-01  1.878E-01  3.122E+00 -2.149E-01  2.491E-02 -1.430E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.603E-01 -1.025E-01  1.836E+00  3.585E-01  2.136E-01 -1.061E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.992E-01  7.199E-01  4.879E+00  3.234E-01  1.836E-01 -1.976E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.930E-02  4.072E-01  3.798E+00  5.719E-02  1.052E-01 -1.632E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        5               2.614E-01  4.277E-01  2.862E+00 -2.406E-01 -4.448E-03 -1.208E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.662E-01  2.155E-01  1.648E+00 -2.259E-01  1.461E-02 -7.711E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.319E-01  1.109E-01  8.984E-01  3.202E-01  1.148E-01 -5.432E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.334E-01  2.530E-01  2.307E+00  2.982E-01  9.597E-02 -1.141E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.413E-02  2.417E-01  1.905E+00  3.796E-02  5.571E-02 -9.124E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        6               1.315E-01  1.682E-01  1.448E+00 -1.769E-01 -3.761E-03 -6.521E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.606E-02  1.240E-01  8.336E-01 -1.682E-01  7.381E-03 -3.856E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.167E-02  8.893E-02  4.099E-01  2.196E-01  5.685E-02 -2.528E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.994E-02  3.045E-02  1.040E+00  2.066E-01  4.652E-02 -6.035E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.874E-03  9.635E-02  9.177E-01  2.027E-02  2.705E-02 -4.708E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        7               6.850E-02  5.977E-02  7.317E-01 -1.148E-01 -2.946E-03 -3.412E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.465E-02  6.353E-02  4.174E-01 -1.100E-01  3.289E-03 -1.877E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.575E-02  5.264E-02  1.822E-01  1.347E-01  2.720E-02 -1.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.241E-02 -3.457E-02  4.633E-01  1.274E-01  2.185E-02 -3.077E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.544E-03  3.125E-02  4.391E-01  9.314E-03  1.253E-02 -2.357E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   229\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    271        8               3.672E-02  1.883E-02  3.706E-01 -7.001E-02 -2.198E-03 -1.768E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.124E-03  3.163E-02  2.084E-01 -6.740E-02  1.185E-03 -9.085E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.365E-02  2.879E-02  7.949E-02  7.802E-02  1.267E-02 -5.020E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.718E-03 -4.131E-02  2.042E-01  7.410E-02  9.992E-03 -1.549E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.951E-03  7.020E-03  2.099E-01  3.674E-03  5.523E-03 -1.170E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    271        9               2.004E-02  4.562E-03  1.880E-01 -4.111E-02 -1.594E-03 -9.125E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.894E-03  1.570E-02  1.037E-01 -3.972E-02  2.041E-04 -4.386E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.974E-03  1.534E-02  3.396E-02  4.364E-02  5.713E-03 -2.197E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.851E-03 -3.215E-02  8.852E-02  4.157E-02  4.416E-03 -7.744E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.126E-03 -5.938E-04  1.002E-01  1.095E-03  2.249E-03 -5.788E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    271       10               1.104E-02  1.652E-04  9.518E-02 -2.352E-02 -1.124E-03 -4.685E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.985E-04  7.830E-03  5.139E-02 -2.280E-02 -1.887E-04 -2.105E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.634E-03  8.114E-03  1.408E-02  2.381E-02  2.460E-03 -9.441E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.541E-03 -2.155E-02  3.738E-02  2.274E-02  1.852E-03 -3.844E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.715E-04 -2.203E-03  4.754E-02  5.595E-05  7.860E-04 -2.849E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    271                0.0000  2.287E+00 -2.606E+00  2.187E+01 -1.300E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.287E+00 -5.070E+00  1.242E+01 -1.230E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.324E+00 -6.254E+00  7.111E+00  1.575E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.072E+00 -3.521E+00  1.903E+01  1.470E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.261E-01 -4.424E+00  1.496E+01  1.285E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    271                7.1000  2.011E+00 -2.802E+00  1.906E+01 -1.064E+00 -1.211E-02 -4.730E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.129E+00 -5.037E+00  1.083E+01 -1.008E+00  3.885E-02 -3.352E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.084E+00 -6.103E+00  6.275E+00  1.278E+00  3.577E-01 -2.533E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.849E+00 -3.525E+00  1.681E+01  1.194E+00  3.101E-01 -4.429E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.112E-01 -4.418E+00  1.312E+01  9.980E-02  1.749E-01 -3.751E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        0              -6.169E-02  1.636E-01  8.819E-02 -1.200E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.411E-03  2.992E-01  1.435E-01 -1.171E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.838E-02  3.422E-01  2.142E-01  7.869E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.755E-02  1.388E-01  1.312E-01  7.423E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.821E-03  2.359E-01  1.443E-01 -2.104E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        1              -9.313E-02 -6.807E-01  1.619E-01 -2.189E-01 -1.221E-04 -1.118E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.510E-02 -4.289E-01  2.707E-01 -2.155E-01 -4.196E-04 -1.094E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.065E-01 -3.715E-01  3.704E-01  1.437E-01 -6.786E-03 -1.081E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.614E-02 -7.497E-01  2.064E-01  1.386E-01 -6.107E-03 -1.110E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.915E-03 -5.577E-01  2.524E-01 -3.802E-02 -3.370E-03 -1.101E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   230\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    274        2               2.584E-01 -3.699E+00 -1.063E+00 -1.949E-02  9.613E-03 -1.624E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.738E-01 -4.116E+00 -2.087E+00 -3.206E-02 -7.263E-03 -1.286E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.230E-01 -4.139E+00 -2.016E+00  6.332E-03  3.851E-02 -1.116E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.844E-01 -3.555E+00 -5.751E-01  2.520E-02  6.241E-02 -1.619E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.101E-02 -3.878E+00 -1.436E+00 -4.995E-03  2.579E-02 -1.410E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        3               7.463E-01 -2.879E+00 -3.196E+00 -1.025E-02  2.702E-02 -3.569E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.054E-01 -4.173E+00 -6.409E+00 -4.133E-02 -1.155E-02  3.947E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.218E-01 -4.178E+00 -6.111E+00  1.044E-01  2.149E-01  5.487E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.521E-01 -2.392E+00 -1.651E+00  1.510E-01  2.685E-01 -5.706E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.232E-02 -3.406E+00 -4.342E+00  5.095E-02  1.247E-01  5.416E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        4               4.347E-01 -3.971E-01 -1.996E+00 -2.187E-01  1.731E-02  2.558E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.576E-01 -9.680E-01 -4.067E+00 -2.402E-01 -5.825E-03  8.631E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.976E-01 -8.924E-01 -3.675E+00  3.135E-01  1.674E-01  8.274E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.196E-01 -2.073E-01 -9.687E-01  3.458E-01  1.972E-01 -4.343E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.741E-02 -6.136E-01 -2.670E+00  5.011E-02  9.411E-02  4.754E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        5               1.873E-01  2.183E-01 -1.047E+00 -2.291E-01  7.892E-03  3.854E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.748E-01  6.989E-02 -2.106E+00 -2.411E-01 -3.002E-03  7.982E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.849E-01  1.795E-01 -1.731E+00  2.934E-01  9.010E-02  7.047E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.124E-01  2.561E-01 -4.828E-01  3.114E-01  1.025E-01  1.343E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.379E-02  1.847E-01 -1.333E+00  3.364E-02  4.947E-02  5.045E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        6               6.946E-02  2.572E-01 -5.659E-01 -1.709E-01  2.883E-03  3.231E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.446E-02  2.460E-01 -1.101E+00 -1.768E-01 -1.981E-03  5.750E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.115E-02  3.490E-01 -8.010E-01  2.050E-01  4.456E-02  4.850E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.877E-02  2.598E-01 -2.455E-01  2.139E-01  4.929E-02  1.493E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.409E-03  2.813E-01 -6.708E-01  1.780E-02  2.378E-02  3.819E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        7               2.012E-02  1.860E-01 -3.145E-01 -1.120E-01  5.587E-04  2.215E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.566E-02  2.070E-01 -5.880E-01 -1.148E-01 -1.481E-03  3.668E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.237E-03  2.874E-01 -3.726E-01  1.271E-01  2.131E-02  2.973E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.009E-02  1.855E-01 -1.264E-01  1.313E-01  2.293E-02  1.107E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.671E-03  2.188E-01 -3.449E-01  7.928E-03  1.088E-02  2.480E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    274        8               1.629E-03  1.169E-01 -1.770E-01 -6.874E-02 -3.780E-04  1.388E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.420E-02  1.387E-01 -3.183E-01 -6.998E-02 -1.156E-03  2.203E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.025E-02  1.956E-01 -1.732E-01  7.424E-02  9.928E-03  1.717E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.963E-02  1.184E-01 -6.482E-02  7.611E-02  1.034E-02  7.093E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.788E-04  1.440E-01 -1.797E-01  2.906E-03  4.712E-03  1.497E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   231\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    274        9              -4.029E-03  6.878E-02 -1.000E-01 -4.060E-02 -6.588E-04  8.292E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.128E-02  8.470E-02 -1.734E-01 -4.112E-02 -8.891E-04  1.279E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.147E-02  1.226E-01 -7.980E-02  4.182E-02  4.483E-03  9.592E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.029E-02  7.168E-02 -3.278E-02  4.259E-02  4.478E-03  4.235E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.920E-05  8.792E-02 -9.422E-02  6.722E-04  1.868E-03  8.678E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    274       10              -4.795E-03  3.899E-02 -5.634E-02 -2.336E-02 -6.513E-04  4.809E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.321E-02  4.918E-02 -9.458E-02 -2.355E-02 -6.628E-04  7.259E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.130E-03  7.343E-02 -3.607E-02  2.296E-02  1.938E-03  5.236E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.671E-03  4.207E-02 -1.624E-02  2.325E-02  1.818E-03  2.427E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.054E-04  5.151E-02 -4.942E-02 -1.753E-04  6.162E-04  4.901E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    274                0.0000  1.554E+00 -6.606E+00 -8.266E+00 -1.232E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.520E+00 -8.591E+00 -1.653E+01 -1.313E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.776E+00 -8.032E+00 -1.441E+01  1.411E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.059E+00 -5.831E+00 -3.826E+00  1.533E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.363E-02 -7.251E+00 -1.072E+01  9.976E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    274                7.1000  1.388E+00 -6.535E+00 -7.147E+00 -1.006E+00  2.583E-02  3.030E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.317E+00 -8.354E+00 -1.435E+01 -1.077E+00 -1.541E-02  1.603E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.612E+00 -7.943E+00 -1.268E+01  1.139E+00  2.792E-01  1.429E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.828E+00 -5.832E+00 -3.322E+00  1.245E+00  3.307E-01 -3.784E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.165E-02 -7.156E+00 -9.350E+00  7.537E-02  1.553E-01  7.362E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        0              -1.417E-02 -2.133E-01  3.108E-02 -9.579E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.657E-02 -4.731E-02  1.009E-01 -9.878E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.209E-03 -1.135E-01  7.211E-02  6.093E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.468E-02 -2.239E-01  2.619E-02  6.292E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.940E-05 -1.495E-01  5.752E-02 -1.768E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        1              -7.668E-03 -1.301E+00  4.248E-02 -1.728E-01 -5.104E-03 -1.196E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.266E-01 -9.929E-01  1.823E-01 -1.811E-01 -7.885E-03 -1.167E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.575E-02 -1.138E+00  9.183E-02  1.109E-01 -5.798E-04 -1.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.049E-01 -1.343E+00 -4.170E-04  1.164E-01  9.995E-04 -1.162E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.219E-04 -1.194E+00  7.902E-02 -3.166E-02 -3.139E-03 -1.168E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        2               4.963E-01 -2.238E+00  2.631E+00  2.879E-02  5.956E-02 -2.936E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.298E-01 -2.996E+00  9.688E-01  6.741E-03  5.243E-02 -2.439E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.285E-01 -2.937E+00  1.217E+00 -4.031E-02  2.441E-03 -2.436E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.296E-01 -2.457E+00  2.265E+00 -2.563E-02  4.547E-03 -2.768E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.610E-02 -2.658E+00  1.768E+00 -7.614E-03  2.992E-02 -2.644E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   232\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    281        3               1.276E+00  7.811E-01  7.915E+00  5.711E-02  2.499E-01 -3.062E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.084E-01 -1.420E+00  2.833E+00  2.691E-02  2.760E-01 -2.036E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.612E-01 -1.066E+00  3.842E+00  9.853E-03  2.512E-02 -2.219E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.109E-01  3.168E-01  7.033E+00  2.998E-02  0.000E+00 -2.905E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.206E-02 -3.495E-01  5.400E+00  3.096E-02  1.382E-01 -2.553E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        4               7.323E-01  1.030E+00  5.012E+00 -1.502E-01  1.837E-01 -1.783E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.089E-01  1.717E-02  1.888E+00 -1.587E-01  2.136E-01 -1.016E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.119E-01  9.512E-02  2.380E+00  2.241E-01  2.035E-02 -1.218E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.271E-01  6.822E-01  4.256E+00  2.298E-01 -3.815E-03 -1.710E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.532E-02  4.569E-01  3.386E+00  3.627E-02  1.039E-01 -1.431E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        5               3.274E-01  4.725E-01  2.401E+00 -1.654E-01  9.597E-02 -9.555E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.087E-01  1.651E-01  9.217E-01 -1.633E-01  1.149E-01 -4.620E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.688E-01  1.148E-01  1.045E+00  2.172E-01  1.010E-02 -6.059E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.149E-01  2.460E-01  1.859E+00  2.158E-01 -3.479E-03 -9.096E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.842E-02  2.518E-01  1.562E+00  2.607E-02  5.450E-02 -7.339E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        6               1.444E-01  1.810E-01  1.105E+00 -1.193E-01  4.651E-02 -4.725E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.129E-02  1.131E-01  4.203E-01 -1.156E-01  5.685E-02 -1.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.684E-02  5.049E-02  4.250E-01  1.463E-01  4.138E-03 -2.740E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.240E-02  4.446E-02  7.618E-01  1.439E-01 -2.477E-03 -4.417E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.236E-03  9.933E-02  6.828E-01  1.384E-02  2.626E-02 -3.452E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        7               6.494E-02  6.466E-02  5.058E-01 -7.441E-02  2.185E-02 -2.250E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.086E-02  6.407E-02  1.871E-01 -7.169E-02  2.720E-02 -7.268E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.663E-02  1.839E-02  1.681E-01  8.608E-02  1.425E-03 -1.187E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.207E-03 -1.324E-02  3.059E-01  8.427E-02 -1.622E-03 -2.052E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.623E-03  3.493E-02  2.951E-01  6.061E-03  1.220E-02 -1.561E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        8               2.974E-02  2.174E-02  2.312E-01 -4.321E-02  9.994E-03 -1.056E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.123E-02  3.444E-02  8.192E-02 -4.157E-02  1.267E-02 -2.620E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.067E-02  6.198E-03  6.474E-02  4.733E-02  3.349E-04 -5.035E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.208E-03 -2.112E-02  1.203E-01  4.624E-02 -1.015E-03 -9.356E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.327E-03  1.123E-02  1.267E-01  2.196E-03  5.478E-03 -6.937E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    281        9               1.377E-02  6.643E-03  1.051E-01 -2.404E-02  4.416E-03 -4.900E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.760E-03  1.817E-02  3.518E-02 -2.316E-02  5.714E-03 -8.473E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.248E-03  2.064E-03  2.396E-02  2.498E-02 -3.497E-05 -2.097E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.228E-03 -1.629E-02  4.571E-02  2.439E-02 -6.109E-04 -4.207E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.178E-03  3.191E-03  5.377E-02  5.415E-04  2.357E-03 -3.043E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   233\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    281       10               6.397E-03  1.643E-03  4.732E-02 -1.299E-02  1.852E-03 -2.246E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.039E-03  9.502E-03  1.468E-02 -1.254E-02  2.461E-03 -2.079E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.646E-03  7.774E-04  8.292E-03  1.280E-02 -1.222E-04 -8.502E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.547E-03 -1.032E-02  1.639E-02  1.250E-02 -3.557E-04 -1.863E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.996E-04  7.087E-04  2.239E-02 -5.875E-05  9.499E-04 -1.310E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    281                0.0000  3.070E+00 -1.192E+00  2.003E+01 -7.722E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.801E+00 -5.035E+00  7.633E+00 -8.328E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.794E+00 -4.967E+00  9.338E+00  9.002E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.063E+00 -2.795E+00  1.669E+01  9.406E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.394E-01 -3.493E+00  1.343E+01  5.893E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    281                7.1000  2.732E+00 -1.464E+00  1.769E+01 -6.273E-01  3.101E-01 -4.029E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.592E+00 -4.957E+00  6.766E+00 -6.879E-01  3.577E-01 -2.449E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.615E+00 -4.853E+00  8.337E+00  7.195E-01  2.922E-02 -2.821E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.512E-01 -2.841E+00  1.488E+01  7.599E-01 -7.244E-03 -3.808E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.215E-01 -3.526E+00  1.192E+01  4.103E-02  1.729E-01 -3.278E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        0              -5.942E-02  4.112E-02  8.928E-02 -9.733E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.850E-03  2.033E-01  1.547E-01 -9.461E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.449E-02  2.208E-01  1.775E-01  6.191E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.158E-03  1.126E-01  1.336E-01  6.010E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.825E-03  1.444E-01  1.387E-01 -1.748E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        1              -9.010E-02 -8.289E-01  1.725E-01 -1.759E-01 -6.107E-03 -1.133E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.959E-02 -5.276E-01  3.035E-01 -1.738E-01 -6.786E-03 -1.107E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.195E-02 -5.189E-01  3.103E-01  1.121E-01 -3.433E-04 -1.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.476E-02 -7.200E-01  2.224E-01  1.107E-01  2.747E-04 -1.105E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.337E-03 -6.489E-01  2.521E-01 -3.174E-02 -3.235E-03 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        2               4.023E-01 -3.280E+00 -4.572E-01  2.136E-02  6.241E-02 -1.750E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.468E-01 -3.962E+00 -1.939E+00  1.772E-02  3.851E-02 -1.277E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.488E-01 -3.939E+00 -1.863E+00 -3.654E-02 -6.104E-03 -1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.539E-01 -3.515E+00 -9.450E-01 -3.410E-02  8.850E-03 -1.427E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.119E-02 -3.678E+00 -1.310E+00 -7.893E-03  2.577E-02 -1.391E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        3               1.126E+00 -1.986E+00 -1.477E+00  4.723E-02  2.685E-01 -5.112E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.258E-01 -3.954E+00 -6.015E+00  4.486E-02  2.149E-01  4.679E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.548E-01 -3.767E+00 -5.563E+00  1.771E-02 -9.171E-03  6.094E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.508E-01 -2.551E+00 -2.761E+00  1.927E-02  2.306E-02 -4.022E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.678E-02 -3.077E+00 -3.983E+00  3.228E-02  1.239E-01  1.334E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   234\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    284        4               6.354E-01  6.269E-02 -8.529E-01 -1.489E-01  1.972E-01  1.181E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.607E-01 -8.060E-01 -3.638E+00 -1.561E-01  1.674E-01  8.497E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.443E-01 -6.416E-01 -3.206E+00  2.227E-01 -3.487E-03  8.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.954E-01 -1.534E-01 -1.562E+00  2.275E-01  1.278E-02  3.409E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.159E-02 -3.944E-01 -2.337E+00  3.630E-02  9.315E-02  5.317E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        5               2.662E-01  3.816E-01 -4.290E-01 -1.608E-01  1.025E-01  2.462E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.004E-01  1.433E-01 -1.746E+00 -1.677E-01  9.010E-02  7.168E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.203E-01  2.694E-01 -1.406E+00  2.128E-01 -1.106E-03  6.266E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.193E-01  3.568E-01 -6.945E-01  2.174E-01  4.406E-03  3.376E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.668E-03  2.812E-01 -1.084E+00  2.546E-02  4.875E-02  4.842E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        6               1.010E-01  2.883E-01 -2.333E-01 -1.158E-01  4.929E-02  2.086E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.243E-02  2.527E-01 -8.423E-01 -1.199E-01  4.456E-02  4.789E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.813E-02  3.447E-01 -5.999E-01  1.431E-01 -5.219E-04  3.995E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.229E-02  3.199E-01 -3.071E-01  1.458E-01  9.327E-04  2.395E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.154E-03  2.974E-01 -5.050E-01  1.330E-02  2.344E-02  3.334E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        7               3.441E-02  1.723E-01 -1.321E-01 -7.247E-02  2.292E-02  1.383E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.632E-02  1.868E-01 -4.157E-01 -7.455E-02  2.131E-02  2.839E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.096E-03  2.491E-01 -2.564E-01  8.423E-02 -3.460E-04  2.274E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.591E-02  2.094E-01 -1.373E-01  8.562E-02 -2.022E-04  1.444E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.679E-03  2.021E-01 -2.409E-01  5.710E-03  1.086E-02  1.996E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        8               9.339E-03  9.441E-02 -7.511E-02 -4.229E-02  1.034E-02  8.240E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.460E-02  1.143E-01 -2.081E-01 -4.323E-02  9.928E-03  1.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.908E-03  1.540E-01 -1.090E-01  4.643E-02 -2.547E-04  1.218E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.395E-02  1.232E-01 -6.143E-02  4.705E-02 -4.420E-04  8.026E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.752E-04  1.202E-01 -1.165E-01  1.989E-03  4.863E-03  1.114E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    284        9               7.747E-04  4.947E-02 -4.230E-02 -2.367E-02  4.478E-03  4.644E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.349E-02  6.439E-02 -1.048E-01 -2.405E-02  4.483E-03  8.531E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.251E-03  8.866E-02 -4.557E-02  2.458E-02 -1.790E-04  6.301E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.815E-03  6.878E-02 -2.714E-02  2.484E-02 -3.928E-04  4.262E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.097E-04  6.710E-02 -5.664E-02  4.251E-04  2.085E-03  5.975E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    284       10              -1.564E-03  2.519E-02 -2.348E-02 -1.287E-02  1.818E-03  2.528E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.491E-03  3.465E-02 -5.270E-02 -1.300E-02  1.938E-03  4.487E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.947E-03  4.896E-02 -1.845E-02  1.265E-02 -1.171E-04  3.179E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.434E-03  3.718E-02 -1.172E-02  1.273E-02 -2.799E-04  2.196E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.082E-05  3.610E-02 -2.750E-02 -1.227E-04  8.350E-04  3.121E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   235\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    284                0.0000  2.424E+00 -4.980E+00 -3.461E+00 -7.814E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.870E+00 -8.250E+00 -1.450E+01 -8.044E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.265E+00 -7.491E+00 -1.258E+01  9.017E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.198E+00 -5.711E+00 -6.151E+00  9.170E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.053E-02 -6.650E+00 -9.270E+00  5.823E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    284                7.1000  2.167E+00 -5.040E+00 -2.983E+00 -6.389E-01  3.306E-01 -1.748E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.649E+00 -8.028E+00 -1.272E+01 -6.570E-01  2.792E-01  1.333E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.155E+00 -7.414E+00 -1.116E+01  7.235E-01 -8.273E-03  1.194E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.061E+00 -5.749E+00 -5.437E+00  7.356E-01  1.871E-02  2.555E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.133E-02 -6.593E+00 -8.156E+00  4.083E-02  1.544E-01  6.586E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        0               1.018E-02 -9.587E-02  8.106E-02 -3.962E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.680E-02 -5.614E-02  9.671E-02 -4.141E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.600E-03 -5.612E-02  7.609E-02  1.549E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.738E-02 -1.156E-01  5.294E-02  1.816E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.750E-03 -8.092E-02  7.670E-02 -1.185E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        1               3.851E-02 -1.008E+00  1.429E-01 -7.095E-02  9.811E-04 -1.166E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.249E-02 -9.321E-01  1.801E-01 -7.622E-02 -5.830E-04 -1.155E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.415E-02 -9.549E-01  1.092E-01  2.656E-02 -2.823E-03 -1.124E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.424E-02 -1.068E+00  5.556E-02  3.447E-02 -1.049E-03 -1.138E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.207E-03 -9.908E-01  1.220E-01 -2.153E-02 -8.965E-04 -1.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        2               3.354E-01 -1.978E+00  2.470E+00  6.416E-02  4.592E-03 -2.910E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.404E-01 -2.498E+00  1.405E+00  6.782E-02  2.517E-03 -2.556E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.863E-01 -2.803E+00  7.320E-01 -4.297E-02  5.127E-02 -2.230E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.695E-01 -2.080E+00  2.195E+00 -4.847E-02  5.609E-02 -2.760E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.508E-02 -2.345E+00  1.690E+00  1.014E-02  2.865E-02 -2.613E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        3               7.528E-01  6.472E-01  7.174E+00  2.491E-03 -1.092E-04 -2.960E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.869E-01 -6.593E-01  4.016E+00  3.165E-02  2.487E-02 -2.183E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.758E-01 -1.223E+00  2.354E+00  1.283E-01  2.382E-01 -1.669E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.298E-01  5.329E-01  6.616E+00  8.457E-02  2.143E-01 -2.822E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.989E-02 -1.910E-01  5.004E+00  6.177E-02  1.199E-01 -2.406E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        4               4.075E-01  8.696E-01  4.337E+00 -2.000E-01 -3.779E-03 -1.574E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.058E-01  3.426E-01  2.486E+00 -1.800E-01  2.042E-02 -1.037E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.257E-01  1.159E-01  1.447E+00  2.958E-01  1.655E-01 -7.522E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.635E-01  7.257E-01  3.801E+00  2.658E-01  1.404E-01 -1.515E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.331E-02  5.018E-01  2.990E+00  4.541E-02  8.120E-02 -1.217E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   236\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    291        5               1.691E-01  3.725E-01  1.913E+00 -1.867E-01 -3.492E-03 -7.690E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.066E-01  2.599E-01  1.107E+00 -1.762E-01  1.009E-02 -4.586E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.423E-01  2.010E-01  5.925E-01  2.368E-01  7.333E-02 -3.135E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.468E-01  2.454E-01  1.512E+00  2.211E-01  5.974E-02 -7.356E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.783E-03  2.627E-01  1.265E+00  2.376E-02  3.525E-02 -5.666E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        6               6.973E-02  1.316E-01  7.992E-01 -1.192E-01 -2.483E-03 -3.458E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.306E-02  1.293E-01  4.588E-01 -1.140E-01  4.126E-03 -1.839E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.204E-02  1.192E-01  2.162E-01  1.399E-01  2.846E-02 -1.143E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.712E-02  4.753E-02  5.517E-01  1.322E-01  2.225E-02 -3.253E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.046E-03  1.030E-01  4.974E-01  9.704E-03  1.326E-02 -2.406E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        7               2.967E-02  4.384E-02  3.304E-01 -6.623E-02 -1.628E-03 -1.484E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.119E-03  5.926E-02  1.856E-01 -6.383E-02  1.423E-03 -6.903E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.095E-02  6.057E-02  7.436E-02  7.289E-02  1.024E-02 -3.734E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.701E-03 -4.098E-03  1.945E-01  6.929E-02  7.586E-03 -1.365E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.776E-03  3.784E-02  1.914E-01  3.028E-03  4.493E-03 -9.680E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        8               1.292E-02  1.419E-02  1.354E-01 -3.437E-02 -1.014E-03 -6.204E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.863E-03  2.675E-02  7.355E-02 -3.330E-02  3.368E-04 -2.444E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.972E-03  2.959E-02  2.385E-02  3.561E-02  3.319E-03 -1.064E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.596E-03 -1.106E-02  6.575E-02  3.400E-02  2.242E-03 -5.561E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.304E-04  1.382E-02  7.221E-02  4.867E-04  1.265E-03 -3.763E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    291        9               5.670E-03  4.475E-03  5.461E-02 -1.710E-02 -6.112E-04 -2.532E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.667E-05  1.209E-02  2.825E-02 -1.663E-02 -3.525E-05 -7.915E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.627E-04  1.430E-02  6.725E-03  1.668E-02  8.582E-04 -2.166E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.306E-03 -8.125E-03  2.058E-02  1.599E-02  4.430E-04 -2.207E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.043E-04  5.169E-03  2.634E-02 -2.638E-04  1.843E-04 -1.407E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    291       10               2.465E-03  1.374E-03  2.140E-02 -8.238E-03 -3.558E-04 -9.986E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.706E-04  5.482E-03  1.031E-02 -8.047E-03 -1.224E-04 -2.105E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.858E-04  6.891E-03  1.350E-03  7.554E-03  7.459E-05  1.494E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.633E-03 -4.631E-03  5.477E-03  7.268E-03 -7.375E-05 -8.452E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.013E-04  2.033E-03  9.059E-03 -3.657E-04 -1.102E-04 -4.948E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    291                0.0000  1.834E+00 -9.971E-01  1.746E+01 -6.757E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.084E+00 -3.311E+00  1.005E+01 -6.102E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.911E+00 -4.490E+00  5.632E+00  9.327E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.745E+00 -1.740E+00  1.507E+01  8.344E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.003E-01 -2.681E+00  1.194E+01  1.203E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   237\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    291                7.1000  1.652E+00 -1.207E+00  1.558E+01 -5.330E-01 -7.273E-03 -3.560E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.710E-01 -3.349E+00  8.981E+00 -4.770E-01  2.916E-02 -2.529E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.746E+00 -4.444E+00  5.065E+00  7.522E-01  2.507E-01 -1.948E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.582E+00 -1.836E+00  1.355E+01  6.681E-01  2.160E-01 -3.389E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.002E-02 -2.749E+00  1.070E+01  1.026E-01  1.231E-01 -2.850E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        0              -2.426E-02  5.867E-02  1.105E-01 -4.089E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.441E-03  9.733E-02  1.245E-01 -3.870E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.395E-02  1.079E-01  1.274E-01  1.839E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.141E-04  4.949E-02  1.053E-01  1.512E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.231E-03  7.836E-02  1.170E-01 -1.152E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        1              -2.505E-02 -7.206E-01  2.221E-01 -7.361E-02  2.747E-04 -1.120E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.761E-03 -6.477E-01  2.551E-01 -7.137E-02 -3.433E-04 -1.111E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.487E-02 -6.520E-01  2.227E-01  3.156E-02 -2.594E-03 -1.093E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.313E-02 -7.617E-01  1.725E-01  2.820E-02 -1.484E-03 -1.104E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.122E-03 -6.955E-01  2.181E-01 -2.130E-02 -1.047E-03 -1.107E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        2               2.734E-01 -3.236E+00 -8.255E-01  7.040E-02  8.865E-03 -1.570E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.485E-01 -3.705E+00 -1.763E+00  5.822E-02 -6.104E-03 -1.238E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.358E-01 -3.771E+00 -1.794E+00 -6.008E-02  3.824E-02 -1.083E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.550E-01 -3.109E+00 -4.861E-01 -4.182E-02  5.927E-02 -1.584E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.086E-02 -3.455E+00 -1.217E+00  6.666E-03  2.504E-02 -1.368E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        3               6.531E-01 -2.312E+00 -2.658E+00  2.593E-02  2.306E-02 -1.196E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.217E-01 -3.457E+00 -5.430E+00 -1.191E-03 -9.171E-03  6.131E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.985E-01 -3.463E+00 -5.173E+00  7.384E-02  1.858E-01  7.376E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.118E-01 -1.897E+00 -1.370E+00  1.145E-01  2.303E-01 -3.581E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.680E-02 -2.782E+00 -3.656E+00  5.327E-02  1.075E-01  2.198E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        4               3.274E-01 -7.893E-02 -1.530E+00 -1.849E-01  1.278E-02  3.791E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.877E-01 -5.094E-01 -3.149E+00 -2.005E-01 -3.487E-03  8.859E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.718E-01 -4.370E-01 -2.824E+00  2.608E-01  1.300E-01  8.341E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.068E-01  6.479E-02 -7.302E-01  2.843E-01  1.510E-01  1.069E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.116E-02 -2.376E-01 -2.052E+00  3.992E-02  7.262E-02  5.513E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        5               1.087E-01  3.321E-01 -7.051E-01 -1.795E-01  4.406E-03  3.720E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.232E-01  2.627E-01 -1.409E+00 -1.864E-01 -1.107E-03  6.657E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.029E-01  3.519E-01 -1.132E+00  2.197E-01  5.774E-02  5.761E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.411E-01  3.522E-01 -3.184E-01  2.301E-01  6.385E-02  1.724E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.699E-03  3.275E-01 -8.844E-01  2.095E-02  3.128E-02  4.457E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   238\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    294        6               2.542E-02  2.572E-01 -3.339E-01 -1.163E-01  9.326E-04  2.539E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.854E-02  2.737E-01 -6.303E-01 -1.189E-01 -5.219E-04  4.073E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.218E-02  3.462E-01 -4.353E-01  1.323E-01  2.243E-02  3.358E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.956E-02  2.572E-01 -1.405E-01  1.362E-01  2.353E-02  1.332E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.081E-03  2.856E-01 -3.803E-01  8.356E-03  1.163E-02  2.817E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        7              -5.519E-05  1.489E-01 -1.633E-01 -6.521E-02 -2.022E-04  1.474E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.075E-02  1.725E-01 -2.893E-01 -6.605E-02 -3.460E-04  2.228E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.636E-03  2.213E-01 -1.671E-01  6.981E-02  8.085E-03  1.761E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.954E-02  1.497E-01 -6.244E-02  7.107E-02  7.898E-03  8.060E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.235E-04  1.743E-01 -1.677E-01  2.402E-03  3.873E-03  1.562E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        8              -5.489E-03  7.786E-02 -8.086E-02 -3.410E-02 -4.420E-04  7.904E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.680E-02  9.406E-02 -1.347E-01 -3.430E-02 -2.547E-04  1.148E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.092E-02  1.238E-01 -6.343E-02  3.445E-02  2.636E-03  8.711E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.690E-03  8.028E-02 -2.739E-02  3.475E-02  2.252E-03  4.359E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.510E-05  9.468E-02 -7.501E-02  2.007E-04  1.053E-03  8.078E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    294        9              -5.067E-03  3.872E-02 -4.002E-02 -1.708E-02 -3.928E-04  4.050E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.207E-03  4.793E-02 -6.303E-02 -1.708E-02 -1.790E-04  5.708E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.792E-03  6.492E-02 -2.339E-02  1.630E-02  6.934E-04  4.154E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.221E-03  4.132E-02 -1.170E-02  1.629E-02  3.883E-04  2.220E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.059E-04  4.858E-02 -3.370E-02 -3.925E-04  1.282E-04  4.013E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    294       10              -3.509E-03  1.865E-02 -1.966E-02 -8.287E-03 -2.799E-04  2.014E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.982E-03  2.345E-02 -2.938E-02 -8.242E-03 -1.171E-04  2.767E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.756E-03  3.274E-02 -8.167E-03  7.454E-03  7.139E-05  1.929E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.158E-03  2.072E-02 -4.811E-03  7.386E-03 -1.258E-04  1.089E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.139E-04  2.407E-02 -1.508E-02 -4.224E-04 -1.142E-04  1.939E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    294                0.0000  1.325E+00 -5.415E+00 -6.024E+00 -6.235E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.203E+00 -7.348E+00 -1.252E+01 -6.846E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.539E+00 -7.074E+00 -1.127E+01  8.046E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.675E+00 -4.752E+00 -2.874E+00  8.961E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.467E-02 -6.137E+00 -8.147E+00  9.812E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    294                7.1000  1.213E+00 -5.395E+00 -5.285E+00 -4.870E-01  1.871E-02  2.351E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.063E+00 -7.199E+00 -1.107E+01 -5.416E-01 -8.274E-03  1.209E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.424E+00 -7.014E+00 -1.009E+01  6.396E-01  1.962E-01  1.089E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.509E+00 -4.789E+00 -2.538E+00  7.215E-01  2.310E-01 -2.859E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.684E-02 -6.092E+00 -7.228E+00  8.311E-02  1.095E-01  5.603E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   239\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    301        0               5.756E-03 -3.825E-02  8.608E-02 -2.755E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.167E-02  5.159E-04  1.004E-01 -2.861E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.938E-03 -2.866E-02  6.472E-02  9.823E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.762E-02 -5.458E-02  5.503E-02  1.053E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.167E-04 -3.024E-02  7.655E-02 -8.953E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        1               3.006E-02 -8.249E-01  1.599E-01 -4.736E-02 -1.049E-03 -1.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.251E-02 -7.528E-01  1.958E-01 -5.208E-02 -2.819E-03 -1.133E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.346E-02 -8.305E-01  9.006E-02  1.568E-02 -2.441E-04 -1.115E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.481E-02 -8.783E-01  6.672E-02  1.883E-02  7.477E-04 -1.123E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.078E-03 -8.216E-01  1.281E-01 -1.623E-02 -8.354E-04 -1.129E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        2               4.631E-01 -1.628E+00  2.389E+00  1.055E-01  5.614E-02 -2.879E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.266E-01 -2.430E+00  8.919E-01  8.866E-02  5.132E-02 -2.375E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.032E-01 -2.357E+00  1.049E+00 -9.329E-02  2.594E-03 -2.407E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.287E-01 -1.851E+00  1.982E+00 -8.209E-02  3.632E-03 -2.747E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.539E-02 -2.067E+00  1.577E+00  4.681E-03  2.855E-02 -2.600E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        3               1.094E+00  9.168E-01  6.780E+00  8.900E-02  2.142E-01 -2.803E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.867E-01 -1.016E+00  2.442E+00  6.800E-02  2.382E-01 -1.778E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.431E-01 -7.151E-01  3.227E+00 -1.139E-02  2.158E-02 -2.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.223E-01  4.849E-01  5.912E+00  2.609E-03 -4.272E-04 -2.688E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.577E-02 -8.328E-02  4.588E+00  3.705E-02  1.187E-01 -2.315E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        4               5.608E-01  9.526E-01  3.898E+00 -1.252E-01  1.405E-01 -1.339E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.972E-01  1.825E-01  1.475E+00 -1.292E-01  1.655E-01 -6.913E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.086E-01  2.346E-01  1.832E+00  1.853E-01  1.599E-02 -8.823E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.536E-01  6.716E-01  3.269E+00  1.879E-01 -3.448E-03 -1.298E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.817E-02  5.113E-01  2.621E+00  2.969E-02  7.992E-02 -1.052E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        5               2.070E-01  3.858E-01  1.572E+00 -1.311E-01  5.974E-02 -5.895E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.339E-01  2.204E-01  6.009E-01 -1.283E-01  7.335E-02 -2.385E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.020E-01  1.757E-01  6.733E-01  1.633E-01  6.660E-03 -3.552E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.217E-02  2.328E-01  1.197E+00  1.615E-01 -2.721E-03 -5.699E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.255E-02  2.554E-01  1.015E+00  1.635E-02  3.433E-02 -4.388E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        6               7.264E-02  1.304E-01  5.872E-01 -8.217E-02  2.224E-02 -2.381E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.080E-02  1.221E-01  2.174E-01 -7.942E-02  2.846E-02 -6.649E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.018E-02  7.934E-02  2.161E-01  9.481E-02  2.128E-03 -1.270E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.401E-02  5.347E-02  3.893E-01  9.298E-02 -1.628E-03 -2.274E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.245E-03  9.765E-02  3.556E-01  6.548E-03  1.279E-02 -1.653E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   240\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    301        7               2.545E-02  4.198E-02  2.143E-01 -4.386E-02  7.587E-03 -9.038E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.164E-02  5.894E-02  7.366E-02 -4.226E-02  1.024E-02 -1.197E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.166E-03  3.373E-02  6.423E-02  4.731E-02  5.059E-04 -4.100E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.246E-04  5.735E-03  1.190E-01  4.624E-02 -8.818E-04 -8.482E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.171E-03  3.589E-02  1.196E-01  1.860E-03  4.346E-03 -5.743E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        8               8.819E-03  1.324E-02  7.617E-02 -2.170E-02  2.242E-03 -3.267E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.931E-03  2.735E-02  2.289E-02 -2.092E-02  3.319E-03  1.775E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.766E-03  1.473E-02  1.702E-02  2.192E-02  2.728E-05 -1.174E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.219E-03 -2.960E-03  3.320E-02  2.140E-02 -4.510E-04 -3.007E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.963E-04  1.351E-02  3.830E-02  1.738E-04  1.273E-03 -1.840E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    301        9               2.937E-03  4.109E-03  2.583E-02 -1.025E-02  4.432E-04 -1.112E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.143E-04  1.248E-02  5.948E-03 -9.915E-03  8.583E-04  3.610E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.867E-05  6.724E-03  3.398E-03  9.682E-03 -6.887E-05 -2.609E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.707E-03 -2.788E-03  7.481E-03  9.457E-03 -2.185E-04 -1.004E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.673E-04  5.340E-03  1.115E-02 -2.570E-04  2.469E-04 -5.161E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    301       10               8.882E-04  1.251E-03  7.998E-03 -4.683E-03 -7.375E-05 -3.406E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.874E-05  5.637E-03  8.127E-04 -4.548E-03  7.478E-05  2.734E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.483E-04  3.191E-03  8.486E-06  4.117E-03 -6.143E-05 -1.113E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.841E-04 -1.525E-03  6.169E-04  4.027E-03 -1.001E-04 -3.031E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.482E-04  2.237E-03  2.587E-03 -2.718E-04 -4.345E-05 -1.016E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    301                0.0000  2.472E+00 -4.516E-02  1.580E+01 -2.994E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.516E+00 -3.570E+00  6.027E+00 -3.386E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.437E+00 -3.384E+00  7.237E+00  4.472E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.133E-01 -1.342E+00  1.303E+01  4.734E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.125E-01 -2.081E+00  1.053E+01  7.064E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    301                7.1000  2.242E+00 -2.965E-01  1.421E+01 -2.130E-01  2.160E-01 -3.116E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.367E+00 -3.559E+00  5.445E+00 -2.522E-01  2.508E-01 -1.883E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.316E+00 -3.363E+00  6.549E+00  3.383E-01  2.165E-02 -2.210E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.292E-01 -1.448E+00  1.179E+01  3.644E-01 -4.835E-03 -2.993E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.003E-01 -2.164E+00  9.504E+00  5.934E-02  1.212E-01 -2.550E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        0              -1.862E-02  6.531E-03  8.689E-02 -2.878E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.375E-03  4.416E-02  1.001E-01 -2.641E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.411E-02  4.587E-02  8.831E-02  1.088E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.649E-03  2.049E-02  7.882E-02  9.305E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.084E-03  2.924E-02  8.848E-02 -8.750E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   241\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    304        1              -1.523E-02 -7.432E-01  1.804E-01 -5.002E-02 -1.484E-03 -1.118E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.595E-02 -6.728E-01  2.138E-01 -4.828E-02 -2.594E-03 -1.107E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.042E-03 -6.943E-01  1.520E-01  1.723E-02 -3.891E-04 -1.088E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.488E-02 -7.414E-01  1.294E-01  1.607E-02  4.501E-04 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.024E-03 -7.129E-01  1.689E-01 -1.625E-02 -1.007E-03 -1.102E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        2               4.019E-01 -2.766E+00 -3.391E-01  9.964E-02  5.927E-02 -1.682E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.190E-01 -3.498E+00 -1.677E+00  9.502E-02  3.824E-02 -1.203E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.557E-01 -3.504E+00 -1.660E+00 -9.041E-02 -5.188E-03 -1.058E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.277E-01 -3.047E+00 -8.395E-01 -8.732E-02  7.767E-03 -1.379E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.914E-03 -3.207E+00 -1.138E+00  4.234E-03  2.488E-02 -1.330E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        3               9.745E-01 -1.517E+00 -1.207E+00  8.258E-02  2.303E-01 -2.828E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.081E-01 -3.252E+00 -5.082E+00  7.916E-02  1.858E-01  6.959E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.619E-01 -3.083E+00 -4.665E+00 -6.271E-03 -7.309E-03  8.087E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.642E-01 -2.022E+00 -2.305E+00 -3.990E-03  1.917E-02  1.565E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.067E-02 -2.480E+00 -3.341E+00  3.786E-02  1.066E-01  3.463E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        4               4.812E-01  2.384E-01 -6.558E-01 -1.237E-01  1.510E-01  2.551E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.644E-01 -4.197E-01 -2.816E+00 -1.284E-01  1.300E-01  8.733E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.524E-01 -2.761E-01 -2.450E+00  1.840E-01 -2.073E-03  8.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.338E-01  8.514E-02 -1.190E+00  1.872E-01  9.289E-03  4.252E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.649E-02 -1.012E-01 -1.797E+00  2.978E-02  7.181E-02  5.956E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        5               1.597E-01  3.957E-01 -2.998E-01 -1.279E-01  6.385E-02  2.593E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.356E-01  2.757E-01 -1.164E+00 -1.316E-01  5.774E-02  5.943E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.357E-02  3.727E-01 -9.129E-01  1.606E-01 -1.869E-04  5.118E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.207E-02  4.014E-01 -4.562E-01  1.631E-01  2.275E-03  3.072E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.072E-03  3.568E-01 -7.189E-01  1.603E-02  3.079E-02  4.199E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        6               4.269E-02  2.412E-01 -1.474E-01 -8.028E-02  2.353E-02  1.708E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.324E-02  2.504E-01 -4.763E-01 -8.204E-02  2.243E-02  3.349E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.124E-03  3.122E-01 -3.202E-01  9.315E-02  6.476E-05  2.739E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.118E-02  2.764E-01 -1.701E-01  9.433E-02  4.390E-05  1.779E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.976E-03  2.676E-01 -2.841E-01  6.290E-03  1.147E-02  2.405E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        7               7.113E-03  1.207E-01 -7.486E-02 -4.307E-02  7.894E-03  9.430E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.331E-02  1.444E-01 -2.000E-01 -4.367E-02  8.085E-03  1.694E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.150E-03  1.809E-01 -1.108E-01  4.661E-02  4.360E-05  1.327E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.383E-02  1.495E-01 -6.379E-02  4.701E-02 -3.748E-04  9.057E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.039E-04  1.477E-01 -1.152E-01  1.719E-03  3.895E-03  1.224E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   242\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    304        8              -1.737E-03  5.595E-02 -3.781E-02 -2.145E-02  2.252E-03  4.765E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.097E-02  7.268E-02 -8.533E-02 -2.159E-02  2.636E-03  8.071E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.315E-03  9.285E-02 -3.738E-02  2.169E-02  1.524E-05  6.055E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.745E-03  7.397E-02 -2.374E-02  2.178E-02 -3.192E-04  4.285E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.940E-05  7.329E-02 -4.739E-02  1.066E-04  1.142E-03  5.826E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    304        9              -2.818E-03  2.490E-02 -1.874E-02 -1.022E-02  3.883E-04  2.288E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.340E-03  3.428E-02 -3.652E-02 -1.020E-02  6.934E-04  3.705E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.385E-03  4.488E-02 -1.190E-02  9.638E-03  5.901E-06  2.659E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.401E-03  3.497E-02 -8.594E-03  9.626E-03 -1.981E-04  1.938E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.053E-04  3.449E-02 -1.955E-02 -2.876E-04  2.234E-04  2.664E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    304       10              -2.110E-03  1.076E-02 -9.079E-03 -4.708E-03 -1.258E-04  1.062E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.619E-03  1.553E-02 -1.554E-02 -4.661E-03  7.139E-05  1.655E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.051E-03  2.088E-02 -3.361E-03  4.130E-03  4.653E-06  1.134E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.715E-03  1.603E-02 -2.962E-03  4.098E-03 -1.062E-04  8.485E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.081E-04  1.569E-02 -8.010E-03 -2.854E-04 -3.712E-05  1.183E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    304                0.0000  2.027E+00 -3.933E+00 -2.522E+00 -3.079E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.510E+00 -7.005E+00 -1.124E+01 -3.227E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.091E+00 -6.487E+00 -9.931E+00  4.513E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.534E-01 -4.752E+00 -4.851E+00  4.612E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.233E-02 -5.577E+00 -7.211E+00  7.044E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    304                7.1000  1.850E+00 -3.994E+00 -2.197E+00 -2.225E-01  2.310E-01 -1.236E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.354E+00 -6.852E+00 -1.002E+01 -2.350E-01  1.962E-01  1.054E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.014E+00 -6.427E+00 -8.948E+00  3.433E-01 -4.971E-03  9.589E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.553E-01 -4.790E+00 -4.356E+00  3.516E-01  1.386E-02  2.147E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.626E-02 -5.544E+00 -6.446E+00  5.933E-02  1.086E-01  5.305E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        0               1.000E-02  9.888E-03  8.266E-02 -5.021E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.102E-03  4.102E-03  7.877E-02 -6.317E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.566E-03 -1.171E-02  4.797E-02 -7.902E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.446E-03 -3.267E-03  5.326E-02 -7.707E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.011E-03 -2.594E-04  6.563E-02 -4.186E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        1               3.908E-02 -6.593E-01  1.606E-01  2.366E-03  7.451E-04 -1.132E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.540E-02 -6.698E-01  1.589E-01  2.465E-04 -2.544E-04 -1.125E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.636E-02 -7.238E-01  6.558E-02 -1.803E-02 -4.616E-04 -1.103E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.054E-02 -7.077E-01  6.888E-02 -1.485E-02  8.125E-04 -1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.933E-03 -6.901E-01  1.135E-01 -7.565E-03  1.965E-04 -1.118E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   243\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    311        2               2.961E-01 -1.461E+00  2.149E+00  1.026E-01  3.623E-03 -2.871E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.309E-01 -1.956E+00  1.221E+00  1.077E-01  2.632E-03 -2.508E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.414E-01 -2.251E+00  5.948E-01 -6.031E-02  4.581E-02 -2.208E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.400E-01 -1.568E+00  1.849E+00 -6.795E-02  4.926E-02 -2.755E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.176E-02 -1.813E+00  1.443E+00  2.049E-02  2.539E-02 -2.585E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        3               6.274E-01  7.300E-01  6.017E+00  2.098E-02 -5.223E-04 -2.725E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.968E-01 -3.739E-01  3.373E+00  4.836E-02  2.140E-02 -1.959E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.182E-01 -8.586E-01  1.934E+00  1.132E-01  1.974E-01 -1.484E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.701E-01  5.989E-01  5.437E+00  7.207E-02  1.768E-01 -2.625E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.190E-02  1.021E-02  4.158E+00  6.365E-02  9.927E-02 -2.196E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        4               3.042E-01  7.895E-01  3.319E+00 -1.628E-01 -3.417E-03 -1.174E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.385E-01  3.983E-01  1.902E+00 -1.460E-01  1.605E-02 -7.256E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.109E-01  2.332E-01  1.096E+00  2.410E-01  1.248E-01 -5.033E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.525E-01  6.695E-01  2.871E+00  2.158E-01  1.048E-01 -1.143E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.745E-02  5.132E-01  2.275E+00  3.700E-02  6.101E-02 -8.839E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        5               1.033E-01  3.054E-01  1.228E+00 -1.389E-01 -2.730E-03 -4.596E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.917E-02  2.522E-01  7.061E-01 -1.316E-01  6.650E-03 -2.439E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.127E-02  2.262E-01  3.729E-01  1.703E-01  4.529E-02 -1.552E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.143E-02  2.200E-01  9.548E-01  1.592E-01  3.586E-02 -4.471E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.307E-03  2.462E-01  8.043E-01  1.476E-02  2.149E-02 -3.246E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        6               3.299E-02  9.774E-02  4.083E-01 -7.635E-02 -1.631E-03 -1.640E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.650E-02  1.113E-01  2.298E-01 -7.339E-02  2.121E-03 -6.974E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.508E-02  1.146E-01  1.029E-01  8.562E-02  1.292E-02 -3.688E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.594E-02  5.109E-02  2.698E-01  8.118E-02  9.361E-03 -1.585E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.128E-03  9.146E-02  2.476E-01  4.263E-03  5.792E-03 -1.062E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        7               1.046E-02  3.044E-02  1.296E-01 -3.586E-02 -8.842E-04 -5.345E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.170E-03  4.539E-02  6.922E-02 -3.473E-02  5.050E-04 -1.493E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.409E-04  5.109E-02  2.364E-02  3.729E-02  2.850E-03 -3.917E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.012E-05  8.836E-03  6.799E-02  3.561E-02  1.631E-03 -5.130E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.464E-04  3.297E-02  7.037E-02  5.783E-04  1.065E-03 -3.038E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    311        8               3.199E-03  9.681E-03  3.862E-02 -1.559E-02 -4.507E-04 -1.566E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.695E-04  1.822E-02  1.852E-02 -1.519E-02  2.802E-05 -6.218E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.532E-03  2.203E-02  3.362E-03  1.504E-02  2.014E-04  2.537E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.763E-03  7.123E-04  1.369E-02  1.444E-02 -1.816E-04 -1.505E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.752E-04  1.226E-02  1.761E-02 -3.277E-04 -8.519E-05 -6.958E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   244\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    311        9               8.629E-04  3.209E-03  1.005E-02 -6.443E-03 -2.186E-04 -3.740E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.693E-04  7.303E-03  3.646E-03 -6.310E-03 -6.895E-05  1.896E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.200E-03  9.403E-03 -7.556E-04  5.724E-03 -2.970E-04  2.513E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.190E-03 -1.680E-04  8.487E-04  5.526E-03 -4.031E-04 -3.724E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.031E-04  4.779E-03  3.081E-03 -3.757E-04 -2.415E-04 -6.599E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    311       10               1.495E-04  1.120E-03  1.750E-03 -2.548E-03 -1.001E-04 -4.005E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.334E-04  2.923E-03 -1.065E-04 -2.509E-03 -6.145E-05  1.616E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.840E-04  3.996E-03 -1.023E-03  2.058E-03 -2.699E-04  1.546E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.847E-04 -1.662E-06 -1.255E-03  2.000E-03 -2.920E-04 -5.465E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.751E-05  1.951E-03 -2.938E-04 -2.498E-04 -1.792E-04  5.966E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    311                0.0000  1.428E+00 -1.431E-01  1.354E+01 -3.131E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.125E-01 -2.160E+00  7.761E+00 -2.540E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.509E+00 -3.185E+00  4.239E+00  5.839E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.432E+00 -7.296E-01  1.159E+01  4.953E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.365E-02 -1.590E+00  9.198E+00  1.280E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    311                7.1000  1.305E+00 -3.385E-01  1.226E+01 -2.271E-01 -4.865E-03 -2.828E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.278E-01 -2.224E+00  7.037E+00 -1.749E-01  2.161E-02 -2.008E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.394E+00 -3.188E+00  3.851E+00  4.704E-01  1.791E-01 -1.568E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.310E+00 -8.555E-01  1.053E+01  3.920E-01  1.539E-01 -2.733E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.680E-02 -1.683E+00  8.346E+00  1.151E-01  8.809E-02 -2.280E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        0              -3.425E-03  3.984E-03  7.175E-02 -1.019E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.207E-03 -1.535E-03  6.800E-02  4.104E-05  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.180E-03 -4.751E-03  4.989E-02 -6.804E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.982E-03  3.159E-03  5.466E-02 -8.395E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.551E-04  2.270E-04  6.110E-02 -4.044E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        1               1.383E-02 -6.744E-01  1.581E-01  1.048E-03  4.501E-04 -1.106E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.791E-03 -6.855E-01  1.558E-01  1.336E-03 -3.891E-04 -1.100E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.805E-02 -7.162E-01  8.119E-02 -1.630E-02 -6.256E-04 -1.082E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.208E-02 -6.997E-01  8.459E-02 -1.673E-02  6.714E-04 -1.090E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.621E-03 -6.940E-01  1.199E-01 -7.661E-03  1.717E-05 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        2               2.665E-01 -2.723E+00 -7.007E-01  1.090E-01  7.767E-03 -1.493E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.136E-01 -3.172E+00 -1.518E+00  9.629E-02 -5.188E-03 -1.152E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.188E-01 -3.251E+00 -1.573E+00 -7.803E-02  3.441E-02 -1.019E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.072E-01 -2.620E+00 -4.502E-01 -5.898E-02  5.223E-02 -1.537E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.057E-02 -2.941E+00 -1.060E+00  1.705E-02  2.231E-02 -1.299E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   245\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    314        3               5.534E-01 -1.814E+00 -2.215E+00  4.212E-02  1.918E-02  1.057E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.333E-01 -2.782E+00 -4.536E+00  1.778E-02 -7.309E-03  8.300E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.644E-01 -2.770E+00 -4.265E+00  6.398E-02  1.542E-01  9.261E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.633E-01 -1.470E+00 -1.139E+00  1.005E-01  1.902E-01 -1.591E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.124E-02 -2.208E+00 -3.035E+00  5.610E-02  8.910E-02  4.274E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        4               2.390E-01  9.739E-02 -1.185E+00 -1.510E-01  9.291E-03  4.705E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.280E-01 -2.192E-01 -2.425E+00 -1.625E-01 -2.073E-03  8.951E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.675E-01 -1.432E-01 -2.132E+00  2.136E-01  9.823E-02  8.378E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.119E-01  2.106E-01 -5.544E-01  2.310E-01  1.128E-01  2.275E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.623E-02 -1.124E-02 -1.569E+00  3.277E-02  5.460E-02  6.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        5               5.799E-02  3.452E-01 -4.803E-01 -1.345E-01  2.275E-03  3.389E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.596E-02  3.204E-01 -9.353E-01 -1.383E-01 -1.869E-04  5.434E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.101E-02  3.937E-01 -7.258E-01  1.595E-01  3.581E-02  4.656E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.265E-02  3.587E-01 -2.119E-01  1.652E-01  3.836E-02  1.858E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.405E-03  3.565E-01 -5.836E-01  1.297E-02  1.909E-02  3.828E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        6               4.107E-03  2.133E-01 -1.972E-01 -7.503E-02  4.390E-05  1.891E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.538E-02  2.370E-01 -3.525E-01 -7.599E-02  6.476E-05  2.786E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.951E-03  2.869E-01 -2.265E-01  8.194E-02  1.027E-02  2.260E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.691E-02  2.141E-01 -8.054E-02  8.337E-02  9.879E-03  1.089E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.347E-03  2.390E-01 -2.114E-01  3.573E-03  5.081E-03  2.002E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        7              -6.098E-03  1.030E-01 -8.372E-02 -3.560E-02 -3.748E-04  9.263E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.629E-02  1.215E-01 -1.363E-01 -3.570E-02  4.360E-05  1.293E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.125E-02  1.501E-01 -6.869E-02  3.622E-02  2.304E-03  1.003E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.130E-03  1.048E-01 -3.048E-02  3.637E-02  1.652E-03  5.440E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.036E-04  1.205E-01 -7.838E-02  3.251E-04  9.082E-04  9.385E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        8              -5.488E-03  4.543E-02 -3.597E-02 -1.562E-02 -3.192E-04  4.221E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.797E-03  5.525E-02 -5.349E-02 -1.554E-02  1.523E-05  5.658E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.790E-03  7.002E-02 -1.985E-02  1.481E-02  1.924E-04  4.196E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.681E-03  4.771E-02 -1.123E-02  1.468E-02 -2.447E-04  2.483E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.777E-04  5.488E-02 -2.949E-02 -4.161E-04 -9.027E-05  4.124E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    314        9              -3.388E-03  1.913E-02 -1.538E-02 -6.510E-03 -1.981E-04  1.839E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.710E-03  2.366E-02 -2.099E-02 -6.428E-03  5.901E-06  2.380E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.271E-03  3.081E-02 -5.138E-03  5.722E-03 -2.157E-04  1.686E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.654E-03  2.091E-02 -3.954E-03  5.598E-03 -4.544E-04  1.074E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.769E-04  2.374E-02 -1.110E-02 -4.045E-04 -2.174E-04  1.738E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   246\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    314       10              -1.814E-03  7.798E-03 -6.492E-03 -2.600E-03 -1.062E-04  7.759E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.722E-03  9.747E-03 -8.135E-03 -2.546E-03  4.653E-06  9.705E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.100E-03  1.304E-02 -9.941E-04  2.097E-03 -2.031E-04  6.553E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.757E-04  8.925E-03 -1.299E-03  2.017E-03 -3.219E-04  4.477E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.194E-04  9.922E-03 -4.123E-03 -2.580E-04 -1.582E-04  7.092E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    314                0.0000  1.115E+00 -4.376E+00 -4.690E+00 -2.697E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.221E-01 -6.094E+00 -9.762E+00 -3.216E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.288E+00 -5.941E+00 -8.886E+00  4.768E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.310E+00 -3.821E+00 -2.343E+00  5.546E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.195E-02 -5.049E+00 -6.400E+00  1.100E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    314                7.1000  1.036E+00 -4.369E+00 -4.176E+00 -1.879E-01  1.387E-02  2.138E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.239E-01 -5.985E+00 -8.759E+00 -2.355E-01 -4.971E-03  9.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.204E+00 -5.889E+00 -8.059E+00  3.738E-01  1.404E-01  9.075E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.190E+00 -3.860E+00 -2.106E+00  4.452E-01  1.649E-01 -2.036E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.642E-02 -5.019E+00 -5.759E+00  9.889E-02  7.861E-02  4.764E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        0               9.273E-03  2.874E-02  6.698E-02  3.689E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.613E-03  1.437E-02  5.915E-02  3.621E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.819E-03  7.963E-03  3.608E-02 -9.206E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.520E-03  1.740E-02  4.097E-02 -9.161E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.425E-04  1.713E-02  5.081E-02 -2.764E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        1               3.791E-02 -5.480E-01  1.373E-01  1.142E-02  8.163E-04 -1.124E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.618E-02 -5.779E-01  1.281E-01  8.600E-03 -4.578E-04 -1.114E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.400E-02 -6.132E-01  4.443E-02 -2.074E-02 -1.831E-04 -1.101E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.601E-02 -5.931E-01  5.098E-02 -1.885E-02  5.417E-04 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.033E-03 -5.831E-01  9.020E-02 -4.892E-03  1.831E-04 -1.112E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        2               4.049E-01 -1.183E+00  2.014E+00  1.337E-01  4.929E-02 -2.857E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.020E-01 -1.926E+00  7.341E-01  1.210E-01  4.584E-02 -2.331E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.626E-01 -1.857E+00  8.293E-01 -1.020E-01  2.213E-03 -2.399E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.114E-01 -1.392E+00  1.611E+00 -9.352E-02  2.777E-03 -2.756E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.320E-02 -1.589E+00  1.297E+00  1.479E-02  2.515E-02 -2.584E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        3               9.022E-01  9.069E-01  5.569E+00  1.021E-01  1.767E-01 -2.603E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.574E-01 -7.173E-01  1.995E+00  8.926E-02  1.974E-01 -1.566E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.201E-01 -4.731E-01  2.578E+00 -1.413E-02  1.750E-02 -1.824E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.260E-01  5.161E-01  4.743E+00 -5.611E-03 -6.409E-04 -2.521E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.829E-02  5.868E-02  3.722E+00  4.289E-02  9.798E-02 -2.126E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   247\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    321        4               4.161E-01  8.177E-01  2.934E+00 -9.963E-02  1.048E-01 -9.950E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.054E-01  2.462E-01  1.101E+00 -1.001E-01  1.248E-01 -4.436E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.219E-01  2.830E-01  1.357E+00  1.498E-01  1.201E-02 -6.200E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.923E-01  5.973E-01  2.424E+00  1.501E-01 -2.934E-03 -9.752E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.162E-02  4.874E-01  1.957E+00  2.504E-02  5.988E-02 -7.582E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        5               1.245E-01  2.971E-01  9.878E-01 -9.901E-02  3.586E-02 -3.394E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.521E-02  2.169E-01  3.690E-01 -9.624E-02  4.530E-02 -9.486E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.714E-02  1.834E-01  4.161E-01  1.187E-01  4.188E-03 -1.856E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.517E-02  1.993E-01  7.411E-01  1.169E-01 -2.048E-03 -3.345E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.139E-03  2.255E-01  6.316E-01  1.009E-02  2.085E-02 -2.390E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        6               3.221E-02  8.907E-02  2.861E-01 -5.377E-02  9.358E-03 -1.042E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.952E-02  1.042E-01  9.850E-02 -5.184E-02  1.292E-02 -4.705E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.052E-02  7.808E-02  9.899E-02  5.899E-02  9.738E-04 -4.573E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.521E-03  4.953E-02  1.810E-01  5.771E-02 -1.040E-03 -1.032E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.743E-03  8.104E-02  1.681E-01  2.773E-03  5.540E-03 -6.485E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        7               7.369E-03  2.582E-02  7.527E-02 -2.427E-02  1.631E-03 -2.762E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.691E-03  4.373E-02  2.049E-02 -2.338E-02  2.851E-03  1.020E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.901E-04  3.132E-02  1.776E-02  2.462E-02  1.004E-04 -7.097E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.274E-03  1.122E-02  3.525E-02  2.402E-02 -4.632E-04 -2.781E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.847E-04  2.843E-02  3.814E-02  2.501E-04  1.018E-03 -1.329E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        8               1.177E-03  7.573E-03  1.663E-02 -1.007E-02 -1.815E-04 -5.467E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.747E-04  1.757E-02  1.455E-03 -9.728E-03  2.015E-04  8.177E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.384E-04  1.273E-02  6.804E-04  9.412E-03 -5.810E-05  1.101E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.364E-03  2.725E-03  3.010E-03  9.181E-03 -1.896E-04 -5.940E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.717E-04  1.033E-02  5.858E-03 -3.024E-04 -6.339E-05 -6.369E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    321        9              -1.392E-04  2.285E-03  1.900E-03 -3.968E-03 -4.030E-04 -8.049E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.364E-04  6.922E-03 -1.819E-03 -3.850E-03 -2.970E-04  4.619E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.423E-04  5.288E-03 -1.573E-03  3.381E-03 -5.227E-05  1.761E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.218E-04  9.155E-04 -2.082E-03  3.302E-03 -7.075E-05 -4.998E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.582E-05  3.924E-03 -7.269E-04 -2.834E-04 -2.087E-04  1.403E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    321       10              -2.774E-04  7.154E-04 -9.474E-04 -1.496E-03 -2.920E-04  7.469E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.222E-04  2.685E-03 -1.585E-03 -1.461E-03 -2.699E-04  2.281E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.208E-04  2.227E-03 -1.142E-03  1.144E-03 -2.774E-05  1.135E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.058E-04  4.540E-04 -1.790E-03  1.120E-03 -2.307E-05  4.597E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.667E-05  1.547E-03 -1.304E-03 -1.734E-04 -1.543E-04  1.136E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   248\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    321                0.0000  1.935E+00  4.450E-01  1.209E+01 -4.138E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.245E+00 -2.569E+00  4.503E+00 -6.418E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.112E+00 -2.339E+00  5.375E+00  2.200E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.482E-01 -5.897E-01  9.826E+00  2.352E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.691E-02 -1.258E+00  7.959E+00  8.741E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    321                7.1000  1.776E+00  2.319E-01  1.100E+01  8.424E-03  1.538E-01 -2.551E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.135E+00 -2.583E+00  4.111E+00 -1.462E-02  1.791E-01 -1.527E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.029E+00 -2.355E+00  4.902E+00  1.530E-01  1.564E-02 -1.823E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.845E-01 -7.059E-01  8.964E+00  1.683E-01 -3.371E-03 -2.483E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.856E-02 -1.349E+00  7.253E+00  7.877E-02  8.651E-02 -2.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        0               9.100E-04 -6.341E-03  5.059E-02  3.050E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.617E-03 -2.061E-02  4.310E-02  4.351E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.243E-04 -2.419E-02  2.606E-02 -8.552E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.607E-03 -1.490E-02  3.054E-02 -9.419E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.220E-04 -1.653E-02  3.754E-02 -2.643E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        1               2.188E-02 -6.205E-01  1.185E-01  9.784E-03  6.714E-04 -1.101E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.053E-02 -6.496E-01  1.098E-01  9.718E-03 -6.256E-04 -1.093E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.162E-02 -6.813E-01  3.620E-02 -1.985E-02 -4.120E-04 -1.076E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.406E-02 -6.619E-01  4.207E-02 -1.981E-02  4.463E-04 -1.081E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.240E-04 -6.533E-01  7.666E-02 -5.038E-03  2.098E-05 -1.088E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        2               3.724E-01 -2.234E+00 -2.850E-01  1.301E-01  5.223E-02 -1.614E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.760E-01 -2.917E+00 -1.430E+00  1.230E-01  3.442E-02 -1.114E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.410E-01 -2.935E+00 -1.424E+00 -1.010E-01 -4.257E-03 -9.931E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.291E-02 -2.511E+00 -7.341E-01 -9.623E-02  6.409E-03 -1.330E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.675E-03 -2.653E+00 -9.763E-01  1.397E-02  2.206E-02 -1.262E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        3               8.131E-01 -1.121E+00 -9.887E-01  9.953E-02  1.902E-01 -8.687E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.832E-01 -2.581E+00 -4.183E+00  9.365E-02  1.542E-01  9.031E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.612E-01 -2.419E+00 -3.768E+00 -1.251E-02 -5.707E-03  9.888E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.729E-01 -1.543E+00 -1.863E+00 -8.575E-03  1.526E-02  3.280E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.491E-02 -1.926E+00 -2.725E+00  4.303E-02  8.818E-02  5.349E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        4               3.534E-01  3.075E-01 -5.129E-01 -9.755E-02  1.128E-01  3.508E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.831E-01 -1.796E-01 -2.148E+00 -1.010E-01  9.823E-02  8.776E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.763E-01 -4.938E-02 -1.821E+00  1.483E-01 -1.196E-03  8.231E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.816E-01  2.087E-01 -8.860E-01  1.506E-01  6.538E-03  4.854E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.229E-02  6.521E-02 -1.357E+00  2.506E-02  5.391E-02  6.360E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   249\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    324        5               8.982E-02  3.521E-01 -2.147E-01 -9.683E-02  3.836E-02  2.481E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.079E-02  3.009E-01 -7.655E-01 -9.873E-02  3.581E-02  4.818E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.798E-02  3.764E-01 -5.768E-01  1.170E-01  2.115E-04  4.126E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.643E-02  3.745E-01 -2.936E-01  1.183E-01  1.015E-03  2.705E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.735E-03  3.479E-01 -4.700E-01  9.923E-03  1.878E-02  3.545E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        6               1.303E-02  1.817E-01 -9.442E-02 -5.278E-02  9.879E-03  1.306E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.978E-02  2.058E-01 -2.613E-01 -5.338E-02  1.027E-02  2.259E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.174E-03  2.467E-01 -1.618E-01  5.821E-02  2.499E-04  1.823E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.838E-02  2.133E-01 -9.107E-02  5.860E-02 -2.985E-04  1.272E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.289E-04  2.105E-01 -1.554E-01  2.664E-03  5.010E-03  1.672E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        7              -2.725E-03  7.715E-02 -4.234E-02 -2.399E-02  1.650E-03  6.018E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.117E-02  9.778E-02 -9.111E-02 -2.404E-02  2.304E-03  9.648E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.149E-03  1.184E-01 -4.261E-02  2.441E-02  1.374E-04  7.416E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.171E-03  9.706E-02 -2.785E-02  2.444E-02 -3.396E-04  5.419E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.052E-05  9.704E-02 -5.230E-02  2.038E-04  9.377E-04  7.158E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        8              -3.773E-03  3.032E-02 -1.869E-02 -1.005E-02 -2.447E-04  2.570E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.601E-03  4.111E-02 -3.224E-02 -9.969E-03  1.924E-04  3.884E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.679E-03  5.085E-02 -1.004E-02  9.400E-03  6.723E-05  2.848E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.124E-03  4.055E-02 -8.257E-03  9.346E-03 -1.959E-04  2.165E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.147E-04  4.049E-02 -1.782E-02 -3.184E-04 -4.205E-05  2.881E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    324        9              -2.417E-03  1.141E-02 -8.024E-03 -4.001E-03 -4.544E-04  1.045E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.966E-03  1.626E-02 -1.137E-02 -3.925E-03 -2.157E-04  1.500E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.894E-03  2.061E-02 -1.728E-03  3.412E-03  3.378E-05  1.047E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.398E-03  1.618E-02 -2.282E-03  3.361E-03 -9.122E-05  8.257E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.051E-04  1.604E-02 -6.045E-03 -2.881E-04 -1.790E-04  1.110E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    324       10              -1.269E-03  4.154E-03 -3.344E-03 -1.529E-03 -3.219E-04  4.098E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.404E-04  6.174E-03 -3.935E-03 -1.481E-03 -2.031E-04  5.592E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.335E-03  8.028E-03  6.894E-05  1.172E-03  1.784E-05  3.704E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.174E-04  6.249E-03 -5.445E-04  1.140E-03 -3.694E-05  3.034E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.815E-05  6.122E-03 -2.006E-03 -1.746E-04 -1.342E-04  4.130E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    324                0.0000  1.654E+00 -3.018E+00 -1.999E+00 -4.427E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.177E+00 -5.680E+00 -8.774E+00 -6.186E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.023E-01 -5.288E+00 -7.743E+00  2.199E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.241E-01 -3.774E+00 -3.834E+00  2.317E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.895E-02 -4.466E+00 -5.648E+00  8.638E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   250\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    324                7.1000  1.530E+00 -3.069E+00 -1.767E+00  4.842E-03  1.649E-01 -8.364E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.065E+00 -5.564E+00 -7.920E+00 -1.130E-02  1.404E-01  8.947E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.471E-01 -5.239E+00 -7.052E+00  1.535E-01 -3.237E-03  8.304E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.535E-01 -3.804E+00 -3.484E+00  1.643E-01  1.013E-02  2.030E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.474E-02 -4.442E+00 -5.110E+00  7.784E-02  7.778E-02  4.644E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        0               5.929E-03  3.712E-02  4.942E-02  1.125E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.569E-03  2.021E-02  4.133E-02  1.165E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.890E-03  6.148E-03  2.015E-02 -1.166E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.112E-03  3.126E-02  3.171E-02 -1.227E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.838E-04  2.367E-02  3.562E-02 -2.592E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        1               3.214E-02 -4.574E-01  1.091E-01  2.523E-02  5.320E-04 -1.120E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.840E-02 -4.910E-01  9.682E-02  2.421E-02 -1.890E-04 -1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.406E-02 -5.431E-01  1.824E-02 -2.575E-02  2.365E-04 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.331E-02 -4.927E-01  3.704E-02 -2.422E-02  1.225E-03 -1.107E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.202E-04 -4.960E-01  6.533E-02 -1.321E-04  4.482E-04 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        2               2.491E-01 -1.071E+00  1.749E+00  1.026E-01  2.792E-03 -2.861E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.045E-01 -1.488E+00  9.874E-01  1.074E-01  2.274E-03 -2.484E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.826E-01 -1.746E+00  4.412E-01 -4.883E-02  3.728E-02 -2.204E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.876E-01 -1.181E+00  1.443E+00 -5.614E-02  3.982E-02 -2.773E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.493E-03 -1.376E+00  1.146E+00  2.627E-02  2.060E-02 -2.579E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        3               5.006E-01  6.900E-01  4.817E+00  2.355E-02 -7.064E-04 -2.547E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.986E-01 -1.895E-01  2.699E+00  4.815E-02  1.736E-02 -1.786E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.567E-01 -5.836E-01  1.501E+00  1.097E-01  1.545E-01 -1.342E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.992E-01  5.428E-01  4.227E+00  7.276E-02  1.380E-01 -2.475E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.374E-02  1.024E-01  3.282E+00  6.353E-02  7.772E-02 -2.035E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        4               2.185E-01  6.583E-01  2.450E+00 -1.288E-01 -2.918E-03 -8.719E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.806E-01  3.792E-01  1.398E+00 -1.149E-01  1.206E-02 -4.936E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.155E-01  2.657E-01  7.945E-01  1.922E-01  9.016E-02 -3.159E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.572E-01  5.583E-01  2.078E+00  1.714E-01  7.505E-02 -8.569E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.236E-02  4.578E-01  1.662E+00  2.997E-02  4.395E-02 -6.325E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        5               5.934E-02  2.324E-01  7.553E-01 -9.989E-02 -2.054E-03 -2.534E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.449E-02  2.129E-01  4.287E-01 -9.486E-02  4.180E-03 -1.063E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.203E-02  2.071E-01  2.244E-01  1.185E-01  2.671E-02 -5.333E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.531E-02  1.780E-01  5.780E-01  1.109E-01  2.045E-02 -2.518E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.859E-03  2.044E-01  4.892E-01  8.661E-03  1.247E-02 -1.649E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   251\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    331        6               1.306E-02  6.711E-02  1.885E-01 -4.711E-02 -1.041E-03 -6.380E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.921E-03  8.415E-02  1.016E-01 -4.550E-02  9.706E-04 -1.155E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.059E-03  9.289E-02  4.249E-02  5.033E-02  4.908E-03  1.702E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.747E-03  4.368E-02  1.177E-01  4.791E-02  2.975E-03 -6.485E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.015E-03  7.076E-02  1.098E-01  1.409E-03  2.005E-03 -3.401E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        7               2.135E-03  1.917E-02  3.866E-02 -1.845E-02 -4.642E-04 -1.175E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.525E-04  3.048E-02  1.740E-02 -1.797E-02  1.000E-04  5.495E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.779E-03  3.651E-02  2.924E-03  1.799E-02  1.289E-05  7.690E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.400E-03  1.090E-02  1.461E-02  1.728E-02 -4.909E-04 -1.304E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.527E-04  2.385E-02  1.743E-02 -2.895E-04 -1.948E-04 -2.649E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        8              -7.217E-05  5.740E-03  4.302E-03 -6.570E-03 -1.896E-04  8.920E-06  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.030E-04  1.078E-02 -1.550E-04 -6.446E-03 -5.787E-05  5.299E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.924E-03  1.380E-02 -2.443E-03  5.779E-03 -5.697E-04  5.011E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.202E-03  3.380E-03 -2.438E-03  5.594E-03 -6.760E-04 -9.400E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.754E-05  8.295E-03 -4.884E-04 -4.108E-04 -3.690E-04  2.438E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    331        9              -3.329E-04  1.823E-03 -1.693E-03 -2.180E-03 -7.076E-05  1.540E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.681E-05  3.781E-03 -2.219E-03 -2.155E-03 -5.228E-05  3.016E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.427E-04  5.145E-03 -1.832E-03  1.679E-03 -3.890E-04  2.479E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.279E-04  1.381E-03 -2.970E-03  1.642E-03 -4.007E-04  9.599E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.509E-06  2.996E-03 -2.263E-03 -2.532E-04 -2.274E-04  2.031E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    331       10              -2.391E-04  6.098E-04 -1.724E-03 -6.706E-04 -2.307E-05  1.098E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.013E-05  1.316E-03 -1.532E-03 -6.694E-04 -2.774E-05  1.447E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.081E-04  1.900E-03 -9.095E-04  4.231E-04 -1.978E-04  1.086E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.786E-04  6.579E-04 -1.623E-03  4.213E-04 -1.930E-04  7.803E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.347E-06  1.113E-03 -1.465E-03 -1.239E-04 -1.105E-04  1.113E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    331                0.0000  1.080E+00  1.839E-01  1.016E+01 -1.411E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.199E-01 -1.426E+00  5.767E+00 -9.105E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.134E+00 -2.244E+00  3.039E+00  4.103E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.093E+00 -3.034E-01  8.520E+00  3.353E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.098E-02 -9.763E-01  6.803E+00  1.284E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    331                7.1000  9.969E-01  2.203E-02  9.276E+00 -8.833E-02 -3.389E-03 -2.377E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.574E-01 -1.489E+00  5.273E+00 -4.342E-02  1.561E-02 -1.687E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.055E+00 -2.265E+00  2.776E+00  3.359E-01  1.260E-01 -1.330E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.005E+00 -4.190E-01  7.797E+00  2.685E-01  1.081E-01 -2.323E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.650E-02 -1.064E+00  6.220E+00  1.182E-01  6.208E-02 -1.926E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   252\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    334        0               4.070E-03 -1.382E-02  3.101E-02  1.115E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.089E-03 -3.018E-02  2.350E-02  1.146E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.979E-03 -3.607E-02  6.735E-03 -1.154E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.557E-03 -1.174E-02  1.752E-02 -1.199E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.025E-04 -2.294E-02  1.971E-02 -2.295E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        1               2.851E-02 -5.626E-01  8.463E-02  2.471E-02  4.463E-04 -1.092E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.496E-02 -5.959E-01  7.279E-02  2.362E-02 -4.120E-04 -1.085E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.239E-02 -6.323E-01 -1.102E-03 -2.585E-02  0.000E+00 -1.070E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.193E-02 -5.821E-01  1.697E-02 -2.421E-02  1.194E-03 -1.080E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.177E-04 -5.932E-01  4.332E-02 -4.311E-04  3.128E-04 -1.082E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        2               2.403E-01 -2.167E+00 -5.867E-01  1.088E-01  6.409E-03 -1.422E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.498E-02 -2.547E+00 -1.258E+00  9.584E-02 -4.257E-03 -1.067E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.783E-01 -2.621E+00 -1.301E+00 -6.614E-02  2.812E-02 -9.605E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.481E-01 -2.098E+00 -4.032E-01 -4.675E-02  4.233E-02 -1.499E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.477E-03 -2.358E+00 -8.855E-01  2.294E-02  1.817E-02 -1.236E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        3               4.466E-01 -1.371E+00 -1.789E+00  4.234E-02  1.526E-02  2.933E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.419E-01 -2.141E+00 -3.648E+00  2.055E-02 -5.707E-03  1.013E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.220E-01 -2.103E+00 -3.342E+00  6.599E-02  1.208E-01  1.083E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.088E-01 -1.100E+00 -9.098E-01  9.867E-02  1.485E-01  4.421E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.553E-02 -1.676E+00 -2.416E+00  5.689E-02  6.978E-02  6.002E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        4               1.656E-01  1.715E-01 -9.020E-01 -1.195E-01  6.538E-03  5.268E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.773E-01 -5.185E-02 -1.822E+00 -1.280E-01 -1.197E-03  8.854E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.805E-01  2.968E-02 -1.547E+00  1.709E-01  7.109E-02  8.310E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.310E-01  2.619E-01 -4.071E-01  1.837E-01  8.083E-02  3.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.201E-02  1.051E-01 -1.164E+00  2.676E-02  3.935E-02  6.393E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        5               2.586E-02  3.032E-01 -3.241E-01 -9.722E-02  1.015E-03  2.954E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.995E-02  3.018E-01 -6.088E-01 -9.916E-02  2.114E-04  4.351E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.898E-02  3.622E-01 -4.485E-01  1.119E-01  2.122E-02  3.728E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.033E-02  3.149E-01 -1.368E-01  1.148E-01  2.190E-02  1.821E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.229E-03  3.219E-01 -3.762E-01  7.578E-03  1.110E-02  3.208E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        6              -5.038E-03  1.587E-01 -1.145E-01 -4.662E-02 -2.985E-04  1.344E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.105E-02  1.809E-01 -1.901E-01 -4.678E-02  2.499E-04  1.842E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.089E-02  2.145E-01 -1.100E-01  4.876E-02  3.973E-03  1.479E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.433E-02  1.606E-01 -4.465E-02  4.901E-02  3.121E-03  8.355E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.631E-04  1.793E-01 -1.132E-01  1.091E-03  1.765E-03  1.372E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   253\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    334        7              -6.562E-03  6.502E-02 -4.158E-02 -1.847E-02 -3.396E-04  5.512E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.292E-03  7.772E-02 -6.005E-02 -1.833E-02  1.374E-04  7.162E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.160E-03  9.379E-02 -2.394E-02  1.776E-02  6.592E-05  5.456E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.051E-03  6.703E-02 -1.421E-02  1.755E-02 -5.586E-04  3.437E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.354E-04  7.617E-02 -3.430E-02 -3.710E-04 -1.758E-04  5.376E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        8              -3.863E-03  2.425E-02 -1.524E-02 -6.651E-03 -1.959E-04  2.118E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.411E-03  2.964E-02 -1.913E-02 -6.533E-03  6.723E-05  2.627E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.742E-03  3.662E-02 -4.050E-03  5.827E-03 -4.223E-04  1.904E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.461E-03  2.592E-02 -4.290E-03  5.650E-03 -7.360E-04  1.318E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.696E-04  2.920E-02 -1.045E-02 -4.267E-04 -3.240E-04  1.985E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    334        9              -1.852E-03  8.600E-03 -5.533E-03 -2.235E-03 -9.121E-05  7.768E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.384E-03  1.063E-02 -6.005E-03 -2.170E-03  3.378E-05  9.204E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.081E-03  1.345E-02 -9.098E-05  1.744E-03 -2.946E-04  6.334E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.043E-04  9.623E-03 -1.188E-03  1.647E-03 -4.320E-04  4.811E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.072E-04  1.061E-02 -3.133E-03 -2.536E-04 -1.976E-04  7.005E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    334       10              -8.012E-04  2.939E-03 -1.963E-03 -6.992E-04 -3.693E-05  2.742E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.398E-04  3.653E-03 -1.806E-03 -6.688E-04  1.784E-05  3.089E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.323E-04  4.721E-03  3.796E-04  4.630E-04 -1.508E-04  2.007E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.576E-04  3.467E-03 -2.823E-04  4.173E-04 -2.068E-04  1.687E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.512E-05  3.703E-03 -9.001E-04 -1.219E-04 -9.504E-05  2.374E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    334                0.0000  8.929E-01 -3.380E+00 -3.665E+00 -1.044E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.770E-01 -4.762E+00 -7.517E+00 -1.502E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.010E+00 -4.638E+00 -6.771E+00  3.198E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.615E-01 -2.948E+00 -1.887E+00  3.885E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.993E-02 -3.924E+00 -4.941E+00  1.134E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    334                7.1000  8.370E-01 -3.376E+00 -3.301E+00 -5.482E-02  1.013E-02  2.052E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.078E-01 -4.680E+00 -6.813E+00 -9.741E-02 -3.237E-03  8.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.508E-01 -4.598E+00 -6.194E+00  2.531E-01  9.890E-02  8.026E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.770E-01 -2.980E+00 -1.719E+00  3.170E-01  1.161E-01 -1.449E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.595E-02 -3.901E+00 -4.490E+00  1.045E-01  5.553E-02  4.305E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        0               6.605E-03  3.708E-02  3.420E-02  1.145E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.073E-03  1.272E-02  2.296E-02  1.169E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.069E-03  1.569E-02  1.312E-02 -1.119E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.948E-03  3.183E-02  2.037E-02 -1.135E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.573E-04  2.433E-02  2.268E-02  1.493E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   254\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    341        1               3.390E-02 -3.826E-01  8.422E-02  2.681E-02  1.225E-03 -1.119E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.267E-02 -4.341E-01  6.498E-02  2.464E-02  2.403E-04 -1.106E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.930E-02 -4.515E-01  5.192E-03 -2.506E-02 -1.793E-04 -1.099E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.501E-02 -4.170E-01  1.839E-02 -2.361E-02  3.738E-04 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.627E-04 -4.213E-01  4.319E-02  6.924E-04  4.215E-04 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        2               3.343E-01 -8.386E-01  1.590E+00  1.286E-01  3.985E-02 -2.856E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.578E-01 -1.455E+00  5.660E-01  1.191E-01  3.732E-02 -2.304E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.161E-01 -1.409E+00  5.991E-01 -8.533E-02  1.678E-03 -2.407E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.890E-02 -1.031E+00  1.205E+00 -7.900E-02  2.029E-03 -2.781E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.058E-02 -1.183E+00  9.915E-01  2.086E-02  2.032E-02 -2.585E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        3               7.075E-01  7.954E-01  4.335E+00  1.021E-01  1.379E-01 -2.456E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.180E-01 -4.936E-01  1.539E+00  9.667E-02  1.545E-01 -1.403E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.970E-01 -3.154E-01  1.921E+00 -7.351E-03  1.321E-02 -1.691E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.214E-01  4.454E-01  3.555E+00 -3.738E-03 -6.256E-04 -2.399E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.046E-02  1.100E-01  2.842E+00  4.692E-02  7.639E-02 -1.985E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        4               2.959E-01  6.486E-01  2.116E+00 -7.423E-02  7.507E-02 -7.413E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.269E-01  2.392E-01  7.831E-01 -7.214E-02  9.018E-02 -2.649E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.506E-01  2.638E-01  9.525E-01  1.162E-01  8.505E-03 -4.250E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.386E-01  4.774E-01  1.703E+00  1.148E-01 -2.291E-03 -7.334E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.590E-02  4.089E-01  1.393E+00  2.115E-02  4.298E-02 -5.408E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        5               7.038E-02  2.131E-01  5.931E-01 -7.152E-02  2.045E-02 -1.765E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.320E-02  1.811E-01  2.133E-01 -6.901E-02  2.672E-02 -8.602E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.859E-02  1.584E-01  2.454E-01  8.268E-02  2.493E-03 -7.636E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.763E-02  1.537E-01  4.376E-01  8.100E-02 -1.448E-03 -1.783E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.050E-03  1.776E-01  3.746E-01  5.787E-03  1.206E-02 -1.102E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        6               1.125E-02  5.652E-02  1.232E-01 -3.387E-02  2.973E-03 -3.285E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.603E-03  7.762E-02  3.595E-02 -3.262E-02  4.908E-03  2.193E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.153E-03  6.302E-02  3.900E-02  3.521E-02  3.734E-04 -4.304E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.810E-03  3.869E-02  7.322E-02  3.437E-02 -6.331E-04 -3.542E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.304E-03  5.944E-02  6.896E-02  7.739E-04  1.893E-03 -1.290E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        7               1.898E-04  1.461E-02  1.620E-02 -1.282E-02 -4.907E-04 -1.731E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.133E-04  2.860E-02 -4.681E-04 -1.236E-02  1.311E-05  1.496E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.957E-03  2.315E-02  1.667E-04  1.214E-02 -4.364E-05  5.314E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.163E-03  1.017E-02  2.747E-03  1.183E-02 -2.313E-04 -3.530E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.846E-04  1.932E-02  5.108E-03 -3.036E-04 -1.960E-04  3.639E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   255\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    341        8              -9.722E-04  3.915E-03 -2.208E-03 -4.376E-03 -6.759E-04  2.607E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.777E-04  9.962E-03 -4.089E-03 -4.236E-03 -5.697E-04  7.308E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.300E-03  8.448E-03 -3.230E-03  3.713E-03 -6.125E-05  3.863E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.107E-04  3.238E-03 -4.724E-03  3.619E-03 -7.330E-05  1.574E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.097E-05  6.458E-03 -3.406E-03 -3.199E-04 -3.484E-04  3.793E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    341        9              -6.455E-04  1.107E-03 -3.088E-03 -1.393E-03 -4.007E-04  1.936E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.826E-04  3.371E-03 -2.592E-03 -1.358E-03 -3.890E-04  3.124E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.225E-04  3.098E-03 -1.870E-03  1.024E-03 -3.069E-05  1.913E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.668E-04  1.251E-03 -2.987E-03  1.001E-03 -1.897E-05  1.404E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.060E-06  2.227E-03 -2.586E-03 -1.816E-04 -2.110E-04  2.078E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    341       10              -3.193E-04  3.298E-04 -1.764E-03 -4.146E-04 -1.930E-04  9.913E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.158E-05  1.115E-03 -1.246E-03 -4.084E-04 -1.978E-04  1.237E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.644E-04  1.135E-03 -8.021E-04  2.461E-04 -1.141E-05  8.164E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.625E-05  5.316E-04 -1.334E-03  2.420E-04 -2.834E-06  7.381E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.393E-06  7.833E-04 -1.274E-03 -8.373E-05 -1.016E-04  9.407E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    341                0.0000  1.458E+00  5.495E-01  8.885E+00  7.033E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.560E-01 -1.829E+00  3.217E+00  6.000E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.226E-01 -1.639E+00  3.769E+00  1.223E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.540E-01 -2.857E-01  7.005E+00  1.292E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.453E-02 -7.950E-01  5.734E+00  9.544E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    341                7.1000  1.349E+00  3.833E-01  8.141E+00  9.795E-02  1.081E-01 -2.205E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.765E-01 -1.848E+00  2.955E+00  8.700E-02  1.260E-01 -1.306E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.667E-01 -1.663E+00  3.452E+00  8.021E-02  1.081E-02 -1.580E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.084E-01 -3.838E-01  6.424E+00  8.752E-02 -2.300E-03 -2.166E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.881E-02 -8.725E-01  5.255E+00  8.818E-02  6.079E-02 -1.813E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        0               6.282E-03 -7.713E-03  1.925E-02  1.123E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.078E-03 -3.164E-02  8.636E-03  1.169E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.592E-03 -3.523E-02 -2.829E-03 -1.091E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.207E-03 -1.939E-02  3.993E-03 -1.122E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.227E-05 -2.350E-02  7.245E-03  1.979E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        1               3.300E-02 -4.773E-01  6.189E-02  2.596E-02  1.194E-03 -1.090E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.262E-02 -5.272E-01  4.392E-02  2.438E-02  0.000E+00 -1.079E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.995E-02 -5.593E-01 -2.041E-02 -2.486E-02 -3.586E-04 -1.066E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.626E-02 -5.259E-01 -8.153E-03 -2.381E-02  3.586E-04 -1.074E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.421E-04 -5.224E-01  1.934E-02  4.196E-04  2.918E-04 -1.077E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   256\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    344        2               3.212E-01 -1.694E+00 -2.300E-01  1.272E-01  4.233E-02 -1.560E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.241E-01 -2.262E+00 -1.147E+00  1.176E-01  2.812E-02 -1.035E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.104E-01 -2.284E+00 -1.134E+00 -8.636E-02 -3.265E-03 -9.416E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.360E-02 -1.938E+00 -5.993E-01 -7.993E-02  4.898E-03 -1.295E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.855E-03 -2.048E+00 -7.850E-01  1.963E-02  1.788E-02 -1.207E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        3               6.445E-01 -7.832E-01 -7.741E-01  1.034E-01  1.485E-01  6.472E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.536E-01 -1.944E+00 -3.274E+00  9.468E-02  1.208E-01  1.069E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.557E-01 -1.788E+00 -2.851E+00 -9.361E-03 -4.204E-03  1.131E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.784E-01 -1.112E+00 -1.413E+00 -3.532E-03  1.136E-02  4.600E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.883E-02 -1.416E+00 -2.100E+00  4.631E-02  6.885E-02  6.830E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        4               2.470E-01  2.992E-01 -3.911E-01 -7.160E-02  8.083E-02  4.091E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.142E-01 -4.896E-02 -1.581E+00 -7.443E-02  7.109E-02  8.646E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.129E-01  7.122E-02 -1.281E+00  1.142E-01 -6.533E-04  8.160E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.366E-01  2.453E-01 -6.236E-01  1.160E-01  4.378E-03  5.226E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.703E-03  1.363E-01 -9.817E-01  2.104E-02  3.879E-02  6.545E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        5               4.508E-02  2.793E-01 -1.520E-01 -7.003E-02  2.190E-02  2.240E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.065E-02  2.649E-01 -4.902E-01 -7.078E-02  2.122E-02  3.847E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.366E-03  3.242E-01 -3.469E-01  8.159E-02  3.285E-04  3.313E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.917E-02  3.088E-01 -1.796E-01  8.209E-02  3.388E-04  2.338E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.195E-03  2.922E-01 -2.971E-01  5.719E-03  1.091E-02  2.944E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        6              -6.738E-04  1.256E-01 -5.966E-02 -3.341E-02  3.121E-03  9.505E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.635E-02  1.509E-01 -1.372E-01 -3.343E-02  3.973E-03  1.476E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.013E-02  1.775E-01 -7.497E-02  3.490E-02  2.592E-04  1.183E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.095E-02  1.510E-01 -4.572E-02  3.492E-02 -3.598E-04  8.833E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.686E-04  1.505E-01 -8.114E-02  7.440E-04  1.748E-03  1.127E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        7              -5.064E-03  4.576E-02 -2.333E-02 -1.276E-02 -5.593E-04  3.627E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.055E-03  6.063E-02 -3.816E-02 -1.263E-02  6.592E-05  5.233E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.046E-03  7.186E-02 -1.282E-02  1.212E-02  1.273E-04  3.955E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.640E-03  5.855E-02 -1.087E-02  1.204E-02 -2.465E-04  3.098E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.033E-04  5.895E-02 -2.186E-02 -3.102E-04 -1.485E-04  3.994E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    344        8              -3.117E-03  1.524E-02 -8.868E-03 -4.410E-03 -7.360E-04  1.298E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.771E-03  2.142E-02 -1.056E-02 -4.306E-03 -4.223E-04  1.753E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.368E-03  2.587E-02 -8.740E-04  3.754E-03  5.702E-05  1.254E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.375E-03  2.065E-02 -2.299E-03  3.685E-03 -1.084E-04  1.029E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.108E-04  2.072E-02 -5.825E-03 -3.193E-04 -2.987E-04  1.339E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   257\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    344        9              -1.458E-03  4.811E-03 -3.250E-03 -1.426E-03 -4.320E-04  4.424E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.510E-04  7.073E-03 -2.823E-03 -1.369E-03 -2.946E-04  5.585E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.388E-03  8.731E-03  6.641E-04  1.057E-03  2.555E-05  3.773E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.351E-04  6.908E-03 -3.555E-04  1.018E-03 -3.885E-05  3.263E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.660E-05  6.861E-03 -1.488E-03 -1.801E-04 -1.829E-04  4.279E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    344       10              -6.048E-04  1.454E-03 -1.145E-03 -4.337E-04 -2.068E-04  1.445E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.378E-04  2.224E-03 -6.905E-04 -4.068E-04 -1.508E-04  1.691E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.238E-04  2.806E-03  4.889E-04  2.636E-04  1.158E-05  1.070E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.032E-04  2.217E-03  9.027E-06  2.457E-04 -1.162E-05  9.863E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.331E-05  2.171E-03 -3.446E-04 -8.279E-05 -8.835E-05  1.303E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    344                0.0000  1.286E+00 -2.191E+00 -1.562E+00  7.378E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.681E-01 -4.306E+00 -6.628E+00  5.099E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.975E-01 -3.984E+00 -5.724E+00  1.164E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.104E-01 -2.802E+00 -2.879E+00  1.315E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.635E-02 -3.342E+00 -4.248E+00  9.317E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    344                7.1000  1.199E+00 -2.230E+00 -1.397E+00  1.007E-01  1.161E-01 -6.105E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.889E-01 -4.220E+00 -6.032E+00  7.913E-02  9.890E-02  7.969E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.596E-01 -3.947E+00 -5.252E+00  7.496E-02 -2.138E-03  7.537E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.609E-01 -2.825E+00 -2.639E+00  8.932E-02  7.084E-03  1.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.347E-02 -3.325E+00 -3.875E+00  8.602E-02  5.479E-02  4.241E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        0               2.391E-03  3.053E-02  1.982E-02  1.029E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.522E-03  1.697E-02  1.367E-02  1.068E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.684E-03  9.072E-03  4.070E-03 -8.237E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.039E-03  2.927E-02  1.295E-02 -8.824E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.923E-05  2.145E-02  1.261E-02  9.789E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        1               2.571E-02 -3.220E-01  5.912E-02  2.384E-02  3.723E-04 -1.119E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.409E-02 -3.503E-01  4.857E-02  2.289E-02 -1.808E-04 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.836E-02 -3.915E-01 -1.039E-02 -1.919E-02  2.460E-04 -1.095E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.074E-02 -3.489E-01  5.749E-03 -1.776E-02  9.861E-04 -1.110E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.960E-04 -3.531E-01  2.578E-02  2.448E-03  3.481E-04 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        2               2.007E-01 -7.470E-01  1.326E+00  8.299E-02  2.053E-03 -2.863E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.634E-02 -1.059E+00  7.490E-01  8.670E-02  1.717E-03 -2.472E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.188E-01 -1.272E+00  2.918E-01 -2.536E-02  2.720E-02 -2.212E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.208E-01 -8.641E-01  1.016E+00 -3.095E-02  2.898E-02 -2.799E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.500E-03 -9.893E-01  8.372E-01  2.835E-02  1.502E-02 -2.585E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   258\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    351        3               3.760E-01  5.730E-01  3.609E+00  1.936E-02 -6.845E-04 -2.416E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.931E-01 -7.294E-02  2.024E+00  4.052E-02  1.309E-02 -1.660E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.961E-01 -3.757E-01  1.067E+00  1.094E-01  1.106E-01 -1.241E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.205E-01  4.058E-01  3.007E+00  7.767E-02  9.857E-02 -2.367E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.590E-02  1.215E-01  2.401E+00  6.174E-02  5.576E-02 -1.919E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        4               1.484E-01  5.001E-01  1.713E+00 -9.562E-02 -2.278E-03 -6.542E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.299E-01  3.121E-01  9.733E-01 -8.439E-02  8.534E-03 -3.304E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.366E-01  2.382E-01  5.383E-01  1.468E-01  6.055E-02 -1.824E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.741E-01  4.136E-01  1.399E+00  1.299E-01  5.005E-02 -6.480E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.963E-03  3.600E-01  1.142E+00  2.417E-02  2.949E-02 -4.521E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        5               3.137E-02  1.624E-01  4.413E-01 -6.806E-02 -1.452E-03 -1.223E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.829E-02  1.591E-01  2.457E-01 -6.468E-02  2.489E-03 -2.303E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.809E-02  1.637E-01  1.283E-01  7.809E-02  1.477E-02  9.130E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.215E-02  1.293E-01  3.302E-01  7.300E-02  1.088E-02 -1.251E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.203E-03  1.515E-01  2.815E-01  4.588E-03  6.772E-03 -6.448E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        6               3.317E-03  4.220E-02  7.472E-02 -2.779E-02 -6.338E-04 -1.220E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.781E-03  5.689E-02  3.637E-02 -2.696E-02  3.718E-04  1.500E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.058E-03  6.640E-02  1.402E-02  2.792E-02  1.240E-03  1.889E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.564E-03  3.223E-02  4.322E-02  2.668E-02  2.604E-04 -1.519E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.383E-04  4.883E-02  4.068E-02 -3.678E-05  3.349E-04  1.965E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        7              -8.457E-04  1.091E-02  3.064E-03 -8.994E-03 -2.316E-04  4.144E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.520E-05  1.836E-02 -1.886E-03 -8.828E-03 -4.373E-05  1.089E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.066E-03  2.322E-02 -3.369E-03  8.007E-03 -7.587E-04  9.985E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.307E-03  8.792E-03 -3.522E-03  7.759E-03 -9.353E-04  2.243E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.431E-05  1.517E-02 -1.778E-03 -5.140E-04 -4.874E-04  6.929E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        8              -8.116E-04  3.003E-03 -4.825E-03 -2.538E-03 -7.328E-05  3.759E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.287E-04  5.714E-03 -4.402E-03 -2.518E-03 -6.120E-05  5.179E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.429E-03  7.696E-03 -2.931E-03  1.918E-03 -5.585E-04  4.186E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.641E-04  2.947E-03 -5.159E-03  1.888E-03 -5.701E-04  2.763E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.324E-06  4.811E-03 -4.397E-03 -3.125E-04 -3.155E-04  4.004E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    351        9              -4.247E-04  8.822E-04 -3.145E-03 -6.296E-04 -1.897E-05  1.928E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.218E-05  1.744E-03 -2.450E-03 -6.335E-04 -3.068E-05  2.120E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.503E-04  2.489E-03 -1.329E-03  3.506E-04 -2.587E-04  1.577E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.072E-04  1.139E-03 -2.505E-03  3.566E-04 -2.495E-04  1.462E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.121E-05  1.562E-03 -2.361E-03 -1.390E-04 -1.398E-04  1.779E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   259\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    351       10              -1.884E-04  2.700E-04 -1.447E-03 -1.276E-04 -2.832E-06  8.252E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.740E-06  5.220E-04 -1.065E-03 -1.321E-04 -1.141E-05  7.973E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.939E-04  7.903E-04 -4.968E-04  2.034E-05 -1.015E-04  5.544E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.460E-05  4.589E-04 -9.605E-04  2.711E-05 -9.519E-05  6.235E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.729E-06  5.129E-04 -9.861E-04 -5.307E-05 -5.304E-05  7.011E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    351                0.0000  7.856E-01  2.543E-01  7.237E+00 -6.727E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.108E-01 -9.112E-01  4.081E+00 -2.735E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.934E-01 -1.528E+00  2.025E+00  3.197E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.411E-01 -1.895E-01  5.802E+00  2.598E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.228E-02 -6.171E-01  4.731E+00  1.212E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    351                7.1000  7.300E-01  1.330E-01  6.645E+00 -3.506E-02 -2.312E-03 -2.100E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.670E-01 -9.638E-01  3.752E+00  1.057E-03  1.079E-02 -1.492E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.426E-01 -1.550E+00  1.855E+00  2.697E-01  8.373E-02 -1.184E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.824E-01 -2.759E-01  5.330E+00  2.155E-01  7.183E-02 -2.069E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.954E-02 -6.856E-01  4.346E+00  1.128E-01  4.136E-02 -1.708E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        0               4.630E-03 -1.374E-02  6.415E-03  1.036E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.014E-03 -2.688E-02  7.479E-04  1.031E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.693E-03 -3.109E-02 -8.590E-03 -8.444E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.704E-03 -1.144E-02 -2.491E-04 -8.373E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.595E-04 -2.078E-02 -4.122E-04  9.638E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        1               3.022E-02 -4.175E-01  3.833E-02  2.365E-02  3.586E-04 -1.083E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.874E-02 -4.457E-01  2.829E-02  2.189E-02 -3.586E-04 -1.075E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.259E-02 -4.794E-01 -3.275E-02 -1.998E-02  6.104E-05 -1.063E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.514E-02 -4.368E-01 -1.714E-02 -1.733E-02  9.823E-04 -1.076E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.011E-04 -4.448E-01  4.169E-03  2.058E-03  2.651E-04 -1.074E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        2               2.029E-01 -1.590E+00 -4.500E-01  8.857E-02  4.898E-03 -1.365E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.501E-02 -1.874E+00 -9.584E-01  7.593E-02 -3.265E-03 -9.978E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.250E-01 -1.938E+00 -9.806E-01 -4.130E-02  2.054E-02 -9.196E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.319E-02 -1.560E+00 -3.315E-01 -2.235E-02  3.082E-02 -1.476E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.639E-03 -1.739E+00 -6.775E-01  2.521E-02  1.328E-02 -1.188E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        3               3.376E-01 -9.735E-01 -1.354E+00  3.567E-02  1.135E-02  4.363E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.487E-01 -1.538E+00 -2.744E+00  1.646E-02 -4.204E-03  1.152E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.766E-01 -1.474E+00 -2.402E+00  7.160E-02  8.653E-02  1.199E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.507E-01 -7.795E-01 -6.722E-01  1.004E-01  1.062E-01  1.271E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.931E-02 -1.188E+00 -1.785E+00  5.604E-02  5.004E-02  7.303E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   260\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    354        4               1.049E-01  1.714E-01 -6.553E-01 -8.845E-02  4.378E-03  5.556E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.337E-01  2.288E-02 -1.302E+00 -9.455E-02 -6.533E-04  8.628E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.082E-01  1.094E-01 -1.039E+00  1.305E-01  4.781E-02  8.178E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.610E-01  2.436E-01 -2.759E-01  1.396E-01  5.394E-02  3.723E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.366E-03  1.392E-01 -8.126E-01  2.179E-02  2.640E-02  6.522E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        5               6.385E-03  2.323E-01 -2.124E-01 -6.650E-02  3.388E-04  2.514E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.240E-02  2.401E-01 -3.829E-01 -6.727E-02  3.285E-04  3.459E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.348E-04  2.900E-01 -2.587E-01  7.425E-02  1.180E-02  3.003E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.941E-02  2.448E-01 -8.132E-02  7.541E-02  1.167E-02  1.711E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.804E-03  2.528E-01 -2.315E-01  3.971E-03  6.036E-03  2.669E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        6              -7.860E-03  1.071E-01 -6.453E-02 -2.768E-02 -3.598E-04  9.259E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.271E-02  1.242E-01 -9.781E-02 -2.750E-02  2.593E-04  1.186E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.138E-02  1.465E-01 -4.770E-02  2.742E-02  1.064E-03  9.517E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.978E-03  1.101E-01 -2.269E-02  2.714E-02  2.534E-04  6.207E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.054E-05  1.224E-01 -5.734E-02 -1.540E-04  3.020E-04  9.191E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        7              -5.200E-03  3.792E-02 -1.970E-02 -9.091E-03 -2.465E-04  3.125E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.121E-03  4.580E-02 -2.399E-02 -8.909E-03  1.273E-04  3.775E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.386E-03  5.449E-02 -5.525E-03  8.088E-03 -5.576E-04  2.833E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.815E-03  3.972E-02 -5.992E-03  7.816E-03 -1.010E-03  2.071E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.702E-04  4.459E-02 -1.355E-02 -5.238E-04 -4.247E-04  2.944E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        8              -2.332E-03  1.200E-02 -6.006E-03 -2.608E-03 -1.084E-04  9.964E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.398E-03  1.475E-02 -5.639E-03 -2.516E-03  5.702E-05  1.135E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.608E-03  1.784E-02  6.605E-04  2.017E-03 -4.236E-04  8.008E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.511E-04  1.306E-02 -1.419E-03  1.880E-03 -6.106E-04  6.563E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.160E-04  1.444E-02 -3.039E-03 -3.066E-04 -2.732E-04  8.948E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    354        9              -8.995E-04  3.561E-03 -1.790E-03 -6.622E-04 -3.885E-05  3.025E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.661E-04  4.405E-03 -1.190E-03 -6.244E-04  2.555E-05  3.224E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.259E-04  5.419E-03  7.993E-04  4.034E-04 -1.976E-04  2.129E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.025E-04  4.079E-03 -2.720E-04  3.468E-04 -2.657E-04  1.991E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.545E-05  4.370E-03 -6.042E-04 -1.341E-04 -1.201E-04  2.586E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    354       10              -3.168E-04  1.004E-03 -5.109E-04 -1.405E-04 -1.162E-05  8.733E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.465E-04  1.242E-03 -1.813E-04 -1.265E-04  1.158E-05  8.533E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.995E-04  1.548E-03  3.919E-04  4.292E-05 -7.779E-05  5.207E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.674E-05  1.223E-03 -2.619E-05  2.189E-05 -1.008E-04  5.776E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.258E-05  1.253E-03 -8.359E-05 -5.055E-05 -4.505E-05  7.051E-04  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   261\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    354                0.0000  6.700E-01 -2.429E+00 -2.719E+00 -3.689E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.609E-01 -3.432E+00 -5.487E+00 -7.691E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.268E-01 -3.297E+00 -4.773E+00  2.446E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.325E-01 -2.131E+00 -1.409E+00  3.046E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.728E-02 -2.813E+00 -3.577E+00  1.089E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    354                7.1000  6.324E-01 -2.424E+00 -2.467E+00 -7.043E-03  7.081E-03  1.984E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.132E-01 -3.372E+00 -5.005E+00 -4.466E-02 -2.138E-03  7.743E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.880E-01 -3.271E+00 -4.392E+00  2.004E-01  6.576E-02  7.372E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.763E-01 -2.153E+00 -1.295E+00  2.568E-01  7.723E-02 -1.068E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.453E-02 -2.797E+00 -3.272E+00  1.014E-01  3.703E-02  4.013E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        0               3.234E-03  2.505E-02  1.115E-02  9.274E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.479E-03  7.219E-03  3.275E-03  9.491E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.665E-03  1.196E-02  1.661E-03 -7.453E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.431E-03  2.381E-02  6.803E-03 -7.597E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.328E-04  1.701E-02  5.728E-03  9.284E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        1               2.787E-02 -2.588E-01  4.435E-02  2.298E-02  9.861E-04 -1.120E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.127E-02 -2.991E-01  2.923E-02  2.085E-02  2.460E-04 -1.104E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.483E-02 -3.131E-01 -1.551E-02 -1.780E-02 -1.488E-04 -1.101E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.359E-02 -2.861E-01 -5.054E-03 -1.638E-02  2.422E-04 -1.112E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.757E-04 -2.893E-01  1.325E-02  2.414E-03  3.347E-04 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        2               2.592E-01 -5.409E-01  1.154E+00  1.075E-01  2.900E-02 -2.860E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.017E-01 -9.987E-01  4.089E-01  1.007E-01  2.723E-02 -2.285E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.682E-01 -9.878E-01  3.717E-01 -5.840E-02  1.122E-03 -2.420E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.692E-02 -7.181E-01  7.859E-01 -5.389E-02  1.335E-03 -2.809E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.857E-03 -8.101E-01  6.831E-01  2.398E-02  1.473E-02 -2.592E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        3               5.139E-01  6.239E-01  3.101E+00  9.723E-02  9.853E-02 -2.351E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.721E-01 -3.199E-01  1.091E+00  9.862E-02  1.106E-01 -1.284E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.763E-01 -2.141E-01  1.265E+00  1.823E-03  8.827E-03 -1.597E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.110E-01  3.117E-01  2.363E+00  8.926E-04 -5.035E-04 -2.315E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.271E-02  1.040E-01  1.963E+00  4.963E-02  5.442E-02 -1.884E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        4               1.963E-01  4.655E-01  1.421E+00 -4.705E-02  5.006E-02 -5.655E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.588E-01  1.865E-01  5.162E-01 -4.285E-02  6.056E-02 -1.439E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.192E-02  2.000E-01  6.042E-01  8.261E-02  5.421E-03 -2.883E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.051E-02  3.317E-01  1.081E+00  7.981E-02 -1.560E-03 -5.634E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.104E-02  2.979E-01  9.102E-01  1.813E-02  2.867E-02 -3.898E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   262\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    361        5               3.635E-02  1.391E-01  3.344E-01 -4.764E-02  1.088E-02 -7.599E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.269E-02  1.296E-01  1.137E-01 -4.544E-02  1.478E-02  3.951E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.128E-02  1.165E-01  1.348E-01  5.310E-02  1.365E-03 -9.110E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.634E-02  1.044E-01  2.390E-01  5.164E-02 -9.179E-04 -7.969E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.958E-03  1.232E-01  2.073E-01  2.916E-03  6.521E-03 -3.151E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        6               1.649E-03  3.242E-02  4.330E-02 -2.029E-02  2.595E-04  2.601E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.625E-03  5.081E-02  7.337E-03 -1.953E-02  1.240E-03  3.077E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.476E-03  4.391E-02  1.241E-02  1.965E-02  1.036E-04  1.526E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.370E-04  2.630E-02  2.389E-02  1.914E-02 -3.542E-04 -4.129E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.457E-04  3.862E-02  2.234E-02 -2.587E-04  3.023E-04  1.191E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        7              -1.928E-03  7.345E-03 -4.143E-03 -6.490E-03 -9.352E-04  7.224E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.715E-04  1.670E-02 -6.164E-03 -6.277E-03 -7.587E-04  1.347E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.189E-03  1.481E-02 -4.032E-03  5.574E-03 -6.724E-05  8.586E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.676E-04  7.187E-03 -5.928E-03  5.432E-03 -1.070E-04  5.522E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.409E-05  1.159E-02 -4.885E-03 -4.402E-04 -4.714E-04  8.641E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        8              -1.169E-03  1.768E-03 -5.664E-03 -1.786E-03 -5.701E-04  3.864E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.090E-04  5.083E-03 -4.051E-03 -1.739E-03 -5.585E-04  5.014E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.874E-04  4.836E-03 -2.899E-03  1.306E-03 -4.166E-05  3.501E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.996E-04  2.325E-03 -4.677E-03  1.274E-03 -2.501E-05  3.054E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.341E-05  3.523E-03 -4.277E-03 -2.362E-04 -3.004E-04  3.840E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    361        9              -4.979E-04  4.612E-04 -2.796E-03 -4.355E-04 -2.495E-04  1.609E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.172E-04  1.478E-03 -1.763E-03 -4.288E-04 -2.587E-04  1.722E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.718E-04  1.554E-03 -1.183E-03  2.387E-04 -1.535E-05  1.261E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.853E-05  8.360E-04 -1.966E-03  2.343E-04 -3.132E-06  1.263E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.818E-05  1.086E-03 -1.918E-03 -9.780E-05 -1.321E-04  1.459E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    361       10              -1.865E-04  1.277E-04 -1.102E-03 -9.080E-05 -9.519E-05  5.965E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.255E-05  4.137E-04 -6.582E-04 -9.137E-05 -1.015E-04  5.590E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.285E-04  4.911E-04 -3.994E-04  2.031E-05 -4.267E-06  4.216E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.049E-05  3.076E-04 -6.790E-04  2.069E-05  1.031E-06  4.601E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.854E-06  3.352E-04 -7.094E-04 -3.529E-05 -5.008E-05  5.083E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    361                0.0000  1.035E+00  4.959E-01  6.095E+00  1.132E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.614E-01 -1.220E+00  2.157E+00  1.133E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.680E-01 -1.121E+00  2.365E+00  8.067E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.442E-01 -1.955E-01  4.481E+00  8.057E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.542E-02 -5.021E-01  3.793E+00  9.694E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   263\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    361                7.1000  9.623E-01  3.776E-01  5.610E+00  1.264E-01  7.183E-02 -1.995E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.071E-01 -1.234E+00  1.990E+00  1.254E-01  8.374E-02 -1.171E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.328E-01 -1.140E+00  2.170E+00  5.476E-02  6.800E-03 -1.431E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.151E-01 -2.632E-01  4.121E+00  5.539E-02 -1.445E-03 -1.973E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.161E-02 -5.577E-01  3.490E+00  9.048E-02  4.027E-02 -1.641E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        0               5.364E-03 -5.230E-03  2.411E-03  9.260E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.098E-03 -2.270E-02 -4.994E-03  9.285E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.947E-03 -2.471E-02 -9.851E-03 -7.393E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.987E-04 -1.309E-02 -4.983E-03 -7.409E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.784E-05 -1.644E-02 -4.358E-03  9.358E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        1               3.203E-02 -3.267E-01  3.004E-02  2.254E-02  9.823E-04 -1.085E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.626E-02 -3.654E-01  1.609E-02  2.012E-02  6.104E-05 -1.071E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.932E-02 -3.949E-01 -3.654E-02 -1.801E-02 -2.594E-04 -1.062E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.863E-02 -3.689E-01 -2.685E-02 -1.640E-02  2.384E-04 -1.071E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.044E-04 -3.640E-01 -4.283E-03  2.061E-03  2.460E-04 -1.072E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        2               2.583E-01 -1.151E+00 -1.564E-01  1.081E-01  3.082E-02 -1.520E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.823E-02 -1.572E+00 -8.237E-01  9.629E-02  2.054E-02 -9.738E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.717E-01 -1.597E+00 -8.035E-01 -6.133E-02 -2.220E-03 -9.091E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.207E-02 -1.350E+00 -4.375E-01 -5.347E-02  3.265E-03 -1.275E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.646E-03 -1.421E+00 -5.621E-01  2.240E-02  1.298E-02 -1.169E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        3               4.737E-01 -4.922E-01 -5.490E-01  1.023E-01  1.062E-01  1.718E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.209E-01 -1.344E+00 -2.347E+00  9.058E-02  8.653E-02  1.191E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.496E-01 -1.194E+00 -1.920E+00 -3.876E-03 -2.766E-03  1.231E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.813E-01 -7.256E-01 -9.527E-01  3.922E-03  7.526E-03  5.510E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.255E-02 -9.475E-01 -1.462E+00  4.823E-02  4.912E-02  7.879E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        4               1.585E-01  2.377E-01 -2.784E-01 -4.387E-02  5.394E-02  4.392E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.551E-01 -1.068E-04 -1.086E+00 -4.643E-02  4.781E-02  8.424E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.033E-02  1.118E-01 -8.079E-01  8.000E-02 -3.214E-04  8.055E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.695E-02  2.185E-01 -3.904E-01  8.171E-02  2.667E-03  5.437E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.592E-03  1.375E-01 -6.510E-01  1.785E-02  2.593E-02  6.588E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        5               1.752E-02  1.937E-01 -1.032E-01 -4.662E-02  1.167E-02  1.974E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.123E-02  1.944E-01 -2.997E-01 -4.665E-02  1.180E-02  3.081E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.237E-03  2.420E-01 -1.884E-01  5.243E-02  2.883E-04  2.713E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.799E-02  2.242E-01 -9.799E-02  5.245E-02  4.148E-05  2.037E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.217E-03  2.122E-01 -1.756E-01  2.900E-03  5.936E-03  2.457E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   264\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    364        6              -5.804E-03  7.798E-02 -3.648E-02 -2.013E-02  2.534E-04  6.766E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.350E-03  9.811E-02 -6.843E-02 -1.987E-02  1.064E-03  9.476E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.740E-03  1.155E-01 -2.963E-02  1.959E-02  1.948E-04  7.668E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.088E-03  9.704E-02 -2.003E-02  1.942E-02 -2.858E-04  6.153E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.071E-05  9.677E-02 -3.952E-02 -2.459E-04  3.128E-04  7.538E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        7              -4.566E-03  2.483E-02 -1.237E-02 -6.519E-03 -1.010E-03  2.101E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.254E-03  3.433E-02 -1.416E-02 -6.349E-03 -5.576E-04  2.705E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.784E-03  4.024E-02 -1.503E-03  5.629E-03  8.740E-05  2.024E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.948E-03  3.261E-02 -3.328E-03  5.516E-03 -1.521E-04  1.723E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.114E-04  3.292E-02 -8.051E-03 -4.306E-04 -4.028E-04  2.145E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        8              -2.025E-03  7.052E-03 -3.994E-03 -1.824E-03 -6.106E-04  6.168E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.167E-04  1.032E-02 -2.564E-03 -1.743E-03 -4.236E-04  7.299E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.816E-03  1.221E-02  1.322E-03  1.348E-03  3.559E-05  5.062E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.964E-04  9.755E-03 -2.859E-04  1.294E-03 -5.422E-05  4.605E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.435E-05  9.816E-03 -1.420E-03 -2.313E-04 -2.604E-04  5.803E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    364        9              -7.499E-04  1.857E-03 -1.224E-03 -4.564E-04 -2.657E-04  1.725E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.817E-04  2.835E-03 -3.083E-04 -4.234E-04 -1.976E-04  1.845E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.072E-04  3.404E-03  7.987E-04  2.596E-04  1.419E-05  1.179E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.903E-04  2.714E-03  9.915E-05  2.376E-04 -1.520E-05  1.171E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.496E-05  2.701E-03 -1.620E-04 -9.567E-05 -1.149E-04  1.485E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    364       10              -2.520E-04  4.564E-04 -3.549E-04 -9.979E-05 -1.008E-04  4.575E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.314E-05  7.250E-04  3.925E-05 -8.752E-05 -7.779E-05  4.253E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.858E-04  8.821E-04  3.239E-04  2.881E-05  5.583E-06  2.444E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.934E-05  7.091E-04  7.541E-05  2.062E-05 -3.192E-06  2.786E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.413E-05  6.941E-04  2.295E-05 -3.447E-05 -4.356E-05  3.521E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    364                0.0000  9.320E-01 -1.432E+00 -1.109E+00  1.226E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.837E-01 -2.963E+00 -4.630E+00  9.473E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.915E-01 -2.685E+00 -3.795E+00  6.867E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.105E-01 -1.872E+00 -1.934E+00  8.728E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.399E-02 -2.256E+00 -2.909E+00  9.333E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    364                7.1000  8.739E-01 -1.459E+00 -9.975E-01  1.349E-01  7.723E-02 -5.211E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.298E-01 -2.902E+00 -4.234E+00  1.083E-01  6.576E-02  7.339E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.684E-01 -2.663E+00 -3.500E+00  4.364E-02 -1.320E-03  7.066E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.781E-01 -1.890E+00 -1.784E+00  6.138E-02  4.486E-03  1.917E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.218E-02 -2.245E+00 -2.667E+00  8.705E-02  3.638E-02  3.969E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   265\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    371        0               3.923E-04  1.672E-02  3.764E-03  6.049E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.776E-03  9.372E-03  5.496E-04  6.275E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.268E-03  6.531E-03 -1.372E-03 -4.059E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.432E-03  1.750E-02  3.325E-03 -4.398E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.722E-05  1.253E-02  1.561E-03  9.673E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        1               2.175E-02 -2.036E-01  3.028E-02  1.534E-02  2.394E-04 -1.121E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.519E-02 -2.197E-01  2.451E-02  1.413E-02 -1.497E-04 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.355E-02 -2.512E-01 -2.094E-02 -1.028E-02  1.135E-04 -1.097E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.353E-02 -2.269E-01 -1.185E-02 -8.476E-03  5.789E-04 -1.115E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.907E-05 -2.253E-01  5.524E-03  2.678E-03  1.879E-04 -1.110E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        2               1.524E-01 -4.490E-01  9.012E-01  5.646E-02  1.337E-03 -2.865E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.203E-02 -6.469E-01  5.179E-01  5.864E-02  1.139E-03 -2.465E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.538E-01 -8.122E-01  1.494E-01  9.041E-04  1.645E-02 -2.225E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.698E-02 -5.761E-01  5.828E-01 -2.373E-03  1.751E-02 -2.824E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.675E-03 -6.243E-01  5.303E-01  2.841E-02  9.132E-03 -2.594E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        3               2.544E-01  4.127E-01  2.406E+00  1.430E-02 -5.404E-04 -2.326E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.837E-01  1.929E-03  1.357E+00  3.171E-02  8.737E-03 -1.576E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.379E-01 -2.126E-01  6.372E-01  1.084E-01  6.639E-02 -1.179E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.376E-01  2.221E-01  1.788E+00  8.229E-02  5.909E-02 -2.295E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.073E-03  9.646E-02  1.525E+00  5.917E-02  3.370E-02 -1.841E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        4               9.041E-02  3.314E-01  1.081E+00 -6.178E-02 -1.550E-03 -5.099E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.453E-02  2.173E-01  6.116E-01 -5.282E-02  5.440E-03 -2.255E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.023E-02  1.724E-01  3.160E-01  1.036E-01  3.475E-02 -9.505E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.985E-02  2.513E-01  8.040E-01  9.020E-02  2.858E-02 -5.078E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.096E-03  2.383E-01  6.918E-01  1.981E-02  1.700E-02 -3.333E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        5               1.427E-02  9.962E-02  2.369E-01 -4.140E-02 -9.195E-04 -4.479E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.792E-02  1.010E-01  1.282E-01 -3.910E-02  1.363E-03  2.342E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.969E-03  1.088E-01  6.715E-02  4.609E-02  7.215E-03  4.549E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.739E-02  7.972E-02  1.674E-01  4.264E-02  5.110E-03 -4.801E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.081E-03  9.593E-02  1.467E-01  2.060E-03  3.255E-03 -5.442E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        6              -6.906E-04  2.320E-02  2.256E-02 -1.502E-02 -3.544E-04  1.221E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.245E-03  3.289E-02  7.686E-03 -1.462E-02  1.029E-04  2.533E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.108E-03  4.087E-02  3.574E-03  1.370E-02 -3.210E-05  2.580E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.380E-04  2.053E-02  1.235E-02  1.310E-02 -4.728E-04  9.564E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.718E-04  2.909E-02  1.089E-02 -7.065E-04 -1.774E-04  1.840E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   266\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    371        7              -1.465E-03  5.327E-03 -6.725E-03 -4.055E-03 -1.070E-04  8.897E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.012E-05  9.541E-03 -6.291E-03 -4.021E-03 -6.725E-05  1.081E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.295E-03  1.297E-02 -3.328E-03  3.044E-03 -6.630E-04  9.332E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.209E-04  5.827E-03 -5.904E-03  2.993E-03 -7.100E-04  7.451E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.227E-06  8.381E-03 -5.646E-03 -5.098E-04 -3.861E-04  9.166E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        8              -7.286E-04  1.324E-03 -5.107E-03 -8.744E-04 -2.501E-05  3.735E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.407E-05  2.635E-03 -3.842E-03 -8.850E-04 -4.167E-05  3.784E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.549E-04  3.821E-03 -1.866E-03  4.553E-04 -3.469E-04  2.950E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.502E-04  1.909E-03 -3.637E-03  4.713E-04 -3.370E-04  3.083E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.589E-05  2.426E-03 -3.603E-03 -2.082E-04 -1.883E-04  3.396E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    371        9              -2.844E-04  3.558E-04 -2.172E-03 -1.351E-04 -3.128E-06  1.333E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.162E-06  7.035E-04 -1.548E-03 -1.431E-04 -1.535E-05  1.214E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.731E-04  1.078E-03 -6.883E-04 -6.685E-06 -1.313E-04  8.733E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.541E-05  6.648E-04 -1.371E-03  5.326E-06 -1.229E-04  1.072E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.283E-06  7.060E-04 -1.431E-03 -6.989E-05 -6.861E-05  1.124E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    371       10              -9.988E-05  9.898E-05 -7.684E-04 -1.989E-06  1.033E-06  4.368E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.350E-06  1.812E-04 -5.322E-04 -5.428E-06 -4.266E-06  3.676E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.005E-05  2.933E-04 -2.140E-04 -4.043E-05 -4.276E-05  2.467E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.831E-06  2.294E-04 -4.296E-04 -3.527E-05 -3.917E-05  3.414E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.114E-06  2.036E-04 -4.793E-04 -2.078E-05 -2.149E-05  3.476E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    371                0.0000  5.303E-01  2.381E-01  4.667E+00 -3.112E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.980E-01 -4.910E-01  2.635E+00 -8.405E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.831E-01 -9.292E-01  1.145E+00  2.618E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.915E-01 -2.032E-01  3.334E+00  2.164E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.599E-02 -3.656E-01  2.900E+00  1.116E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    371                7.1000  4.958E-01  1.579E-01  4.301E+00 -1.294E-02 -1.454E-03 -1.935E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.708E-01 -5.284E-01  2.432E+00  1.448E-02  6.779E-03 -1.378E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.553E-01 -9.468E-01  1.048E+00  2.286E-01  4.791E-02 -1.100E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.588E-01 -2.530E-01  3.068E+00  1.874E-01  4.110E-02 -1.918E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.463E-02 -4.102E-01  2.671E+00  1.044E-01  2.383E-02 -1.580E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        0               2.967E-03 -8.503E-03 -3.015E-03  6.135E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.926E-05 -1.564E-02 -5.963E-03  5.993E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.394E-03 -1.755E-02 -8.989E-03 -4.285E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.149E-03 -6.839E-03 -4.557E-03 -4.071E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.659E-04 -1.213E-02 -5.631E-03  9.429E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   267\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    374        1               2.740E-02 -2.615E-01  1.918E-02  1.520E-02  2.384E-04 -1.078E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.084E-02 -2.779E-01  1.361E-02  1.324E-02 -2.594E-04 -1.068E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.851E-02 -3.076E-01 -3.609E-02 -1.116E-02  1.144E-05 -1.061E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.838E-02 -2.828E-01 -2.709E-02 -8.219E-03  5.779E-04 -1.076E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.290E-04 -2.824E-01 -7.619E-03  2.264E-03  1.473E-04 -1.071E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        2               1.606E-01 -1.004E+00 -2.890E-01  6.116E-02  3.265E-03 -1.323E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.404E-03 -1.184E+00 -6.263E-01  4.920E-02 -2.220E-03 -9.473E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.667E-01 -1.236E+00 -6.292E-01 -1.310E-02  1.243E-02 -8.978E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.585E-02 -1.017E+00 -2.405E-01  4.845E-03  1.864E-02 -1.465E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.283E-03 -1.109E+00 -4.427E-01  2.553E-02  8.087E-03 -1.157E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        3               2.291E-01 -6.141E-01 -9.049E-01  2.800E-02  7.526E-03  5.360E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.538E-01 -9.710E-01 -1.825E+00  1.132E-02 -2.762E-03  1.246E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.321E-01 -8.826E-01 -1.452E+00  7.657E-02  5.194E-02  1.274E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.902E-01 -4.994E-01 -4.269E-01  1.016E-01  6.364E-02  2.102E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.301E-02 -7.371E-01 -1.141E+00  5.436E-02  3.020E-02  8.182E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        4               5.476E-02  1.200E-01 -4.325E-01 -5.625E-02  2.667E-03  5.663E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.486E-02  3.117E-02 -8.425E-01 -6.057E-02 -3.214E-04  8.364E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.743E-02  1.218E-01 -5.878E-01  9.135E-02  2.746E-02  8.054E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.863E-02  1.767E-01 -1.558E-01  9.783E-02  3.081E-02  4.103E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.233E-03  1.149E-01 -4.989E-01  1.809E-02  1.519E-02  6.548E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        5              -4.874E-03  1.475E-01 -1.308E-01 -4.049E-02  4.148E-05  2.148E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.099E-02  1.552E-01 -2.256E-01 -4.058E-02  2.883E-04  2.799E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.028E-02  1.974E-01 -1.262E-01  4.395E-02  5.790E-03  2.511E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.610E-02  1.625E-01 -3.853E-02  4.409E-02  5.483E-03  1.609E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.970E-04  1.664E-01 -1.285E-01  1.743E-03  2.897E-03  2.265E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        6              -7.739E-03  6.244E-02 -3.486E-02 -1.507E-02 -2.858E-04  6.378E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.393E-03  7.317E-02 -4.776E-02 -1.475E-02  1.948E-04  7.640E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.660E-03  8.810E-02 -1.604E-02  1.370E-02  2.935E-05  6.300E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.447E-03  6.682E-02 -8.797E-03  1.323E-02 -5.147E-04  4.710E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.427E-05  7.281E-02 -2.644E-02 -7.235E-04 -1.495E-04  6.247E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        7              -3.591E-03  1.969E-02 -8.867E-03 -4.153E-03 -1.521E-04  1.724E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.190E-03  2.397E-02 -8.477E-03 -3.991E-03  8.740E-05  1.912E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.021E-03  2.856E-02  6.152E-04  3.204E-03 -4.993E-04  1.440E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.123E-03  2.134E-02 -1.829E-03  2.961E-03 -7.605E-04  1.247E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.280E-04  2.342E-02 -4.567E-03 -4.944E-04 -3.343E-04  1.577E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   268\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    374        8              -1.277E-03  5.385E-03 -2.159E-03 -9.206E-04 -5.422E-05  4.405E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.651E-04  6.656E-03 -1.058E-03 -8.604E-04  3.559E-05  4.474E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.314E-03  7.932E-03  1.318E-03  5.386E-04 -2.649E-04  3.056E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.645E-04  6.044E-03 -2.911E-04  4.482E-04 -3.589E-04  3.144E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.516E-05  6.505E-03 -5.459E-04 -1.985E-04 -1.619E-04  3.762E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    374        9              -3.982E-04  1.341E-03 -4.893E-04 -1.518E-04 -1.520E-05  1.064E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.390E-04  1.663E-03  5.260E-05 -1.323E-04  1.419E-05  9.578E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.752E-04  1.982E-03  6.029E-04  2.508E-05 -1.007E-04  5.807E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.234E-05  1.585E-03 -9.460E-06 -4.151E-06 -1.300E-04  7.605E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.511E-05  1.640E-03  3.285E-05 -6.578E-05 -5.844E-05  8.396E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    374       10              -1.131E-04  3.067E-04 -9.705E-05 -7.190E-06 -3.192E-06  2.380E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.012E-05  3.783E-04  1.080E-04 -1.425E-06  5.583E-06  1.746E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.603E-05  4.468E-04  2.102E-04 -2.989E-05 -3.286E-05  8.655E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.104E-05  3.889E-04  1.813E-05 -3.854E-05 -4.118E-05  1.745E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.258E-06  3.785E-04  5.581E-05 -1.926E-05 -1.808E-05  1.686E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    374                0.0000  4.568E-01 -1.531E+00 -1.788E+00 -6.541E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.648E-01 -2.156E+00 -3.569E+00 -4.114E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.524E-01 -1.998E+00 -2.853E+00  2.008E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.205E-01 -1.370E+00 -9.043E-01  2.526E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.461E-02 -1.754E+00 -2.256E+00  1.014E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    374                7.1000  4.346E-01 -1.525E+00 -1.627E+00  9.806E-03  4.486E-03  1.920E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.341E-01 -2.116E+00 -3.266E+00 -2.292E-02 -1.319E-03  7.196E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.323E-01 -1.987E+00 -2.637E+00  1.719E-01  3.764E-02  6.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.885E-01 -1.383E+00 -8.386E-01  2.209E-01  4.422E-02 -8.272E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.288E-02 -1.744E+00 -2.072E+00  9.493E-02  2.131E-02  3.823E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        0               9.348E-04  1.167E-02  8.285E-04  5.088E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.945E-03  2.619E-03 -3.049E-03  5.203E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.286E-04  6.289E-03 -1.006E-03 -3.459E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.351E-03  1.232E-02  1.563E-03 -3.536E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.849E-05  8.225E-03 -4.147E-04  8.237E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        1               2.326E-02 -1.410E-01  2.493E-02  1.439E-02  5.798E-04 -1.121E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.405E-02 -1.634E-01  1.665E-02  1.214E-02  1.144E-04 -1.104E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.179E-02 -1.799E-01 -2.131E-02 -9.125E-03 -8.488E-05 -1.105E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.549E-02 -1.648E-01 -1.542E-02 -7.622E-03  1.183E-04 -1.117E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.192E-06 -1.623E-01  1.196E-03  2.447E-03  1.869E-04 -1.112E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   269\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    381        2               1.828E-01 -2.593E-01  7.185E-01  8.097E-02  1.752E-02 -2.861E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.981E-02 -5.462E-01  2.635E-01  7.673E-02  1.646E-02 -2.270E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.201E-01 -5.769E-01  1.486E-01 -2.905E-02  5.531E-04 -2.435E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.184E-03 -4.230E-01  3.647E-01 -2.624E-02  6.599E-04 -2.833E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.187E-03 -4.495E-01  3.780E-01  2.560E-02  8.842E-03 -2.598E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        3               3.228E-01  4.209E-01  1.873E+00  9.222E-02  5.905E-02 -2.285E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.226E-01 -1.769E-01  6.524E-01  1.001E-01  6.639E-02 -1.203E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.580E-01 -1.473E-01  6.109E-01  1.011E-02  4.417E-03 -1.539E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.748E-02  1.432E-01  1.172E+00  4.868E-03 -2.670E-04 -2.266E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.504E-02  6.509E-02  1.089E+00  5.182E-02  3.237E-02 -1.821E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        4               1.123E-01  2.802E-01  8.164E-01 -1.694E-02  2.858E-02 -4.583E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.860E-02  1.062E-01  2.876E-01 -1.077E-02  3.476E-02 -7.122E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.250E-02  1.089E-01  2.937E-01  4.851E-02  2.629E-03 -2.028E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.631E-02  1.732E-01  5.255E-01  4.440E-02 -7.906E-04 -4.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.842E-03  1.696E-01  4.865E-01  1.630E-02  1.628E-02 -2.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        5               1.560E-02  7.554E-02  1.656E-01 -2.592E-02  5.110E-03 -2.049E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.991E-02  7.158E-02  5.121E-02 -2.392E-02  7.218E-03  6.302E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.005E-03  6.667E-02  6.150E-02  2.799E-02  5.960E-04  2.903E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.850E-03  5.549E-02  1.055E-01  2.666E-02 -4.433E-04 -2.330E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.558E-03  6.799E-02  9.754E-02  1.205E-03  3.104E-03  1.200E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        6              -1.747E-03  1.497E-02  9.962E-03 -1.079E-02 -4.732E-04  1.834E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.071E-03  2.646E-02 -2.605E-03 -1.034E-02 -3.210E-05  3.192E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.217E-03  2.483E-02  3.740E-03  9.196E-03  1.309E-05  2.386E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.826E-04  1.452E-02  5.934E-03  8.898E-03 -1.572E-04  1.635E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.829E-04  2.033E-02  4.578E-03 -7.590E-04 -1.690E-04  2.254E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        7              -1.939E-03  2.752E-03 -7.222E-03 -3.081E-03 -7.100E-04  9.402E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.529E-04  7.973E-03 -5.471E-03 -3.008E-03 -6.630E-04  1.082E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.659E-03  7.946E-03 -2.547E-03  2.184E-03 -4.176E-05  8.849E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.557E-05  4.145E-03 -4.461E-03  2.135E-03 -4.086E-05  8.381E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.601E-05  5.724E-03 -4.879E-03 -4.425E-04 -3.658E-04  9.336E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    381        8              -8.339E-04  5.467E-04 -4.220E-03 -7.011E-04 -3.370E-04  3.331E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.479E-04  2.172E-03 -2.573E-03 -6.958E-04 -3.469E-04  3.202E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.016E-04  2.376E-03 -1.417E-03  3.741E-04 -1.993E-05  2.696E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.385E-05  1.322E-03 -2.447E-03  3.706E-04 -6.893E-06  2.894E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.718E-05  1.604E-03 -2.664E-03 -1.631E-04 -1.781E-04  3.023E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   270\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    381        9              -2.859E-04  1.269E-04 -1.601E-03 -1.254E-04 -1.229E-04  1.035E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.784E-05  5.520E-04 -9.136E-04 -1.279E-04 -1.313E-04  8.833E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.887E-04  6.788E-04 -4.998E-04  2.503E-05 -6.095E-06  7.515E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.755E-06  4.350E-04 -8.658E-04  2.667E-05  2.643E-07  8.693E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.250E-05  4.466E-04 -9.738E-04 -5.041E-05 -6.508E-05  8.833E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    381       10              -8.786E-05  3.335E-05 -5.137E-04 -1.303E-05 -3.917E-05  2.985E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.077E-05  1.317E-04 -2.832E-04 -1.463E-05 -4.276E-05  2.315E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.434E-05  1.860E-04 -1.461E-04 -1.458E-05 -1.349E-06  1.978E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.589E-06  1.395E-04 -2.553E-04 -1.352E-05  8.792E-07  2.418E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.657E-06  1.218E-04 -3.016E-04 -1.394E-05 -2.060E-05  2.423E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    381                0.0000  6.527E-01  4.065E-01  3.595E+00  1.351E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.715E-01 -6.689E-01  1.256E+00  1.453E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.380E-01 -6.861E-01  1.091E+00  5.674E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.310E-01 -1.831E-01  2.152E+00  4.995E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.877E-02 -2.727E-01  2.048E+00  9.677E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    381                7.1000  6.102E-01  3.337E-01  3.319E+00  1.374E-01  4.109E-02 -1.877E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.393E-01 -6.762E-01  1.164E+00  1.459E-01  4.791E-02 -1.094E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.199E-01 -6.935E-01  9.995E-01  4.259E-02  3.280E-03 -1.347E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.174E-01 -2.160E-01  1.980E+00  3.690E-02 -6.962E-04 -1.867E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.645E-02 -3.037E-01  1.887E+00  9.071E-02  2.288E-02 -1.545E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        0               3.014E-03 -2.486E-03 -2.692E-03  5.142E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.272E-04 -1.133E-02 -6.323E-03  5.007E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.250E-03 -1.194E-02 -6.860E-03 -3.491E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.546E-04 -6.041E-03 -4.416E-03 -3.401E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.391E-05 -7.949E-03 -5.070E-03  8.142E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        1               2.780E-02 -1.750E-01  1.909E-02  1.412E-02  5.779E-04 -1.082E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.925E-02 -1.961E-01  1.167E-02  1.136E-02  1.144E-05 -1.066E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.631E-02 -2.233E-01 -3.322E-02 -9.542E-03 -1.354E-04 -1.061E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.042E-02 -2.090E-01 -2.783E-02 -7.698E-03  1.163E-04 -1.072E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.823E-05 -2.009E-01 -7.538E-03  2.061E-03  1.330E-04 -1.070E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        2               1.905E-01 -6.089E-01 -6.585E-02  8.331E-02  1.864E-02 -1.493E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.059E-02 -8.722E-01 -4.731E-01  6.973E-02  1.243E-02 -9.309E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.300E-01 -9.012E-01 -4.503E-01 -3.371E-02 -1.118E-03 -8.949E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.032E-02 -7.601E-01 -2.590E-01 -2.467E-02  1.640E-03 -1.270E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.270E-03 -7.882E-01 -3.182E-01  2.367E-02  7.792E-03 -1.146E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   271\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    384        3               3.041E-01 -2.336E-01 -3.130E-01  1.009E-01  6.364E-02  2.375E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.861E-01 -7.750E-01 -1.406E+00  8.615E-02  5.194E-02  1.269E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.449E-01 -6.357E-01 -9.821E-01  8.087E-04 -1.369E-03  1.291E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.217E-02 -3.745E-01 -4.865E-01  1.064E-02  3.746E-03  6.027E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.222E-03 -5.123E-01 -8.145E-01  4.962E-02  2.929E-02  8.519E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        4               8.420E-02  1.430E-01 -1.702E-01 -1.308E-02  3.081E-02  4.499E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.028E-01 -7.457E-03 -6.432E-01 -1.580E-02  2.746E-02  8.204E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.607E-02  9.741E-02 -3.804E-01  4.512E-02 -1.273E-04  7.989E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.059E-02  1.497E-01 -1.771E-01  4.693E-02  1.258E-03  5.556E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.823E-03  9.202E-02 -3.513E-01  1.579E-02  1.478E-02  6.570E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        5               1.050E-03  1.040E-01 -6.358E-02 -2.518E-02  5.483E-03  1.751E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.928E-02  1.051E-01 -1.657E-01 -2.479E-02  5.790E-03  2.554E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.356E-02  1.454E-01 -7.430E-02  2.751E-02  1.630E-04  2.351E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.088E-02  1.318E-01 -3.628E-02  2.726E-02 -3.120E-05  1.849E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.839E-04  1.206E-01 -8.723E-02  1.199E-03  2.851E-03  2.130E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        6              -6.713E-03  3.844E-02 -2.096E-02 -1.078E-02 -5.147E-04  4.950E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.460E-03  5.049E-02 -3.216E-02 -1.038E-02  2.935E-05  6.266E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.263E-03  6.255E-02 -6.672E-03  9.267E-03  1.019E-04  5.342E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.600E-03  5.203E-02 -5.024E-03  9.001E-03 -1.532E-04  4.609E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.643E-06  5.070E-02 -1.663E-02 -7.247E-04 -1.258E-04  5.303E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        7              -3.302E-03  1.102E-02 -6.255E-03 -3.141E-03 -7.606E-04  1.233E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.288E-03  1.617E-02 -4.694E-03 -2.971E-03 -4.993E-04  1.374E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.027E-03  1.935E-02  1.603E-03  2.261E-03  4.306E-05  1.062E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.375E-03  1.561E-02 -1.594E-04  2.147E-03 -7.112E-05  1.012E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.722E-05  1.552E-02 -2.423E-03 -4.259E-04 -3.174E-04  1.173E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        8              -1.152E-03  2.739E-03 -1.707E-03 -7.327E-04 -3.589E-04  2.861E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.446E-04  4.296E-03 -2.404E-04 -6.745E-04 -2.649E-04  2.754E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.077E-04  5.061E-03  1.156E-03  4.086E-04  1.633E-05  1.873E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.261E-04  4.046E-03  2.316E-04  3.698E-04 -2.195E-05  2.045E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.779E-05  4.038E-03 -1.335E-04 -1.572E-04 -1.555E-04  2.389E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    384        9              -3.457E-04  6.096E-04 -4.275E-04 -1.374E-04 -1.300E-04  6.232E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.307E-05  1.006E-03  1.846E-04 -1.194E-04 -1.007E-04  4.828E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.410E-04  1.170E-03  4.472E-04  3.727E-05  5.947E-06  2.676E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.486E-05  9.414E-04  1.222E-04  2.526E-05 -5.027E-06  3.764E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.526E-05  9.348E-04  8.851E-05 -4.858E-05 -5.683E-05  4.381E-04  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   272\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    384       10              -9.412E-05  1.202E-04 -9.703E-05 -1.692E-05 -4.118E-05  1.245E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.883E-06  2.090E-04  1.083E-04 -1.173E-05 -3.286E-05  6.163E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.761E-05  2.379E-04  1.410E-04 -1.076E-05  2.088E-06  1.738E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.612E-05  1.960E-04  4.457E-05 -1.423E-05 -7.023E-07  5.870E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.214E-06  1.922E-04  5.236E-05 -1.341E-05 -1.797E-05  6.540E-05  0.000E+00  0.000E+00  0.000E+00   \r\n0    384                0.0000  5.991E-01 -7.201E-01 -6.257E-01  1.504E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.183E-01 -1.685E+00 -2.719E+00  1.175E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.935E-01 -1.441E+00 -1.930E+00  3.865E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.206E-01 -9.953E-01 -9.959E-01  6.059E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.194E-02 -1.225E+00 -1.603E+00  9.178E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    384                7.1000  5.657E-01 -7.364E-01 -5.613E-01  1.515E-01  4.422E-02 -5.196E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.853E-01 -1.644E+00 -2.490E+00  1.201E-01  3.764E-02  6.951E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.838E-01 -1.433E+00 -1.789E+00  2.572E-02 -6.315E-04  6.810E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.027E-01 -1.009E+00 -9.253E-01  4.665E-02  2.176E-03  1.875E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.105E-02 -1.220E+00 -1.474E+00  8.598E-02  2.073E-02  3.795E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        0              -5.677E-04  5.509E-03 -1.356E-03  2.346E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.584E-03  3.126E-03 -2.361E-03  2.439E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.155E-04  3.310E-03 -5.872E-04 -9.289E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.740E-03  6.883E-03  9.202E-04 -1.069E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.905E-05  4.707E-03 -8.458E-04  6.968E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        1               1.951E-02 -8.310E-02  1.957E-02  6.991E-03  1.179E-04 -1.121E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.755E-02 -8.808E-02  1.802E-02  5.556E-03 -8.519E-05 -1.109E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.017E-02 -1.130E-01 -2.064E-02 -2.709E-03  2.527E-05 -1.100E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.701E-02 -1.053E-01 -1.780E-02 -5.569E-04  1.845E-04 -1.119E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.193E-05 -9.735E-02 -1.891E-04  2.321E-03  5.388E-05 -1.112E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        2               1.045E-01 -1.579E-01  4.783E-01  2.876E-02  6.631E-04 -2.861E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.479E-02 -2.388E-01  2.935E-01  2.928E-02  5.677E-04 -2.458E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.888E-02 -3.581E-01  1.170E-02  2.667E-02  5.499E-03 -2.240E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.926E-02 -2.968E-01  1.491E-01  2.590E-02  5.852E-03 -2.844E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.049E-05 -2.657E-01  2.267E-01  2.766E-02  3.147E-03 -2.599E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        3               1.351E-01  2.310E-01  1.210E+00  1.051E-02 -2.819E-04 -2.271E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.169E-02  5.425E-02  6.972E-01  2.397E-02  4.380E-03 -1.528E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.236E-02 -7.591E-02  2.088E-01  1.058E-01  2.212E-02 -1.152E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.259E-02  1.395E-02  5.688E-01  8.565E-02  1.969E-02 -2.257E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.281E-04  4.770E-02  6.523E-01  5.649E-02  1.167E-02 -1.800E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   273\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    391        4               4.100E-02  1.608E-01  5.202E-01 -2.692E-02 -7.853E-04 -4.315E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.249E-02  1.089E-01  2.937E-01 -1.985E-02  2.642E-03 -1.716E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.184E-02  8.467E-02  1.137E-01  6.277E-02  1.132E-02 -4.857E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.058E-02  7.964E-02  2.602E-01  5.216E-02  9.280E-03 -4.307E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.969E-04  1.047E-01  2.880E-01  1.704E-02  5.750E-03 -2.696E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        5               3.936E-03  4.402E-02  1.006E-01 -1.797E-02 -4.442E-04 -6.596E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.108E-02  4.316E-02  5.142E-02 -1.630E-02  5.951E-04  4.438E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.722E-03  4.940E-02  2.573E-02  1.991E-02  2.137E-03  6.438E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.052E-03  3.050E-02  5.240E-02  1.741E-02  1.474E-03 -8.275E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.303E-04  4.084E-02  5.537E-02  7.635E-04  9.810E-04  2.376E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        6              -1.717E-03  8.685E-03  3.434E-03 -6.102E-03 -1.573E-04  2.185E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.182E-03  1.223E-02 -1.660E-03 -5.886E-03  1.288E-05  2.811E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.403E-03  1.766E-02  2.159E-03  4.244E-03 -1.275E-04  2.871E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.242E-03  9.482E-03  3.130E-03  3.920E-03 -2.513E-04  2.055E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.578E-05  1.188E-02  1.461E-03 -9.559E-04 -1.248E-04  2.487E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        7              -1.169E-03  1.547E-03 -5.574E-03 -1.453E-03 -4.086E-05  9.613E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.211E-04  3.092E-03 -4.627E-03 -1.459E-03 -4.175E-05  9.575E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.316E-03  5.287E-03 -7.765E-04  5.320E-04 -2.468E-04  8.624E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.741E-04  3.049E-03 -2.010E-03  5.409E-04 -2.540E-04  8.950E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.853E-06  3.248E-03 -3.238E-03 -4.597E-04 -1.462E-04  9.201E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        8              -4.660E-04  2.899E-04 -2.889E-03 -2.449E-04 -6.900E-06  3.056E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.658E-05  7.467E-04 -2.115E-03 -2.598E-04 -1.994E-05  2.707E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.089E-04  1.444E-03 -4.845E-04 -4.879E-05 -1.138E-04  2.229E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.369E-05  9.980E-04 -1.089E-03 -2.652E-05 -1.085E-04  2.781E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.019E-06  8.807E-04 -1.619E-03 -1.450E-04 -6.290E-05  2.693E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    391        9              -1.536E-04  6.312E-05 -1.025E-03 -1.523E-05  2.665E-07  8.522E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.751E-05  1.743E-04 -7.160E-04 -2.150E-05 -6.093E-06  6.971E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.125E-04  3.696E-04 -1.728E-04 -6.189E-05 -3.886E-05  5.297E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.673E-05  3.162E-04 -3.719E-04 -5.248E-05 -3.584E-05  7.527E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.805E-06  2.360E-04 -5.594E-04 -3.777E-05 -2.042E-05  7.071E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    391       10              -4.544E-05  1.575E-05 -3.084E-04  9.588E-06  8.798E-07  2.197E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.686E-06  3.899E-05 -2.091E-04  7.601E-06 -1.349E-06  1.684E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.828E-05  8.906E-05 -4.985E-05 -2.718E-05 -1.131E-05  1.181E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.350E-05  9.455E-05 -1.046E-04 -2.420E-05 -1.023E-05  1.874E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.257E-06  6.142E-05 -1.637E-04 -8.550E-06 -5.603E-06  1.729E-04  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   274\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    391                0.0000  2.999E-01  2.109E-01  2.321E+00 -4.083E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.724E-02 -1.011E-01  1.342E+00  1.747E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.930E-01 -3.847E-01  3.394E-01  2.162E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.735E-02 -2.571E-01  1.013E+00  1.839E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.046E-03 -1.488E-01  1.217E+00  1.034E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    391                7.1000  2.829E-01  1.700E-01  2.145E+00  3.082E-03 -6.990E-04 -1.849E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.527E-02 -1.228E-01  1.244E+00  2.251E-02  3.275E-03 -1.321E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.856E-01 -3.946E-01  3.066E-01  1.957E-01  1.560E-02 -1.061E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.930E-02 -2.677E-01  9.295E-01  1.665E-01  1.338E-02 -1.842E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.093E-04 -1.682E-01  1.123E+00  9.695E-02  8.048E-03 -1.516E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        0               1.353E-03 -3.479E-03 -3.317E-03  2.420E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.839E-04 -5.799E-03 -4.226E-03  2.280E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.443E-03 -6.229E-03 -3.829E-03 -1.101E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.280E-05 -2.715E-03 -2.391E-03 -8.910E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.297E-05 -4.556E-03 -3.443E-03  6.771E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        1               2.429E-02 -1.047E-01  1.688E-02  6.837E-03  1.163E-04 -1.075E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.216E-02 -1.102E-01  1.525E-02  4.868E-03 -1.354E-04 -1.065E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.457E-02 -1.372E-01 -2.814E-02 -3.511E-03 -5.722E-06 -1.062E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.109E-02 -1.287E-01 -2.503E-02 -5.550E-04  1.836E-04 -1.078E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.903E-04 -1.202E-01 -5.285E-03  1.909E-03  4.697E-05 -1.070E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        2               1.170E-01 -4.164E-01 -1.117E-01  3.245E-02  1.640E-03 -1.295E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.637E-02 -4.896E-01 -2.739E-01  2.138E-02 -1.118E-03 -9.143E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.072E-01 -5.323E-01 -2.627E-01  1.491E-02  4.153E-03 -8.934E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.256E-02 -4.738E-01 -1.392E-01  3.153E-02  6.229E-03 -1.466E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.827E-03 -4.761E-01 -1.924E-01  2.507E-02  2.800E-03 -1.141E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        3               1.228E-01 -2.797E-01 -4.459E-01  2.157E-02  3.746E-03  5.955E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.679E-02 -4.302E-01 -8.940E-01  7.337E-03 -1.369E-03  1.299E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.010E-02 -3.211E-01 -4.972E-01  8.005E-02  1.731E-02  1.310E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.781E-02 -2.469E-01 -1.784E-01  1.014E-01  2.120E-02  2.557E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.573E-03 -3.138E-01 -4.907E-01  5.259E-02  1.036E-02  8.667E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        4               1.243E-02  3.733E-02 -2.253E-01 -2.266E-02  1.258E-03  5.671E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.873E-02 -2.117E-03 -4.230E-01 -2.571E-02 -1.273E-04  8.142E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.356E-03  9.251E-02 -1.717E-01  5.357E-02  8.946E-03  8.001E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.983E-02  7.941E-02 -4.367E-02  5.815E-02  1.001E-02  4.341E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.427E-03  5.449E-02 -2.096E-01  1.583E-02  5.057E-03  6.543E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   275\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    394        5              -1.143E-02  5.639E-02 -6.859E-02 -1.738E-02 -3.122E-05  1.902E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.370E-02  5.845E-02 -1.116E-01 -1.713E-02  1.630E-04  2.390E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.659E-02  9.624E-02 -2.585E-02  1.870E-02  1.721E-03  2.267E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.709E-02  7.525E-02 -3.170E-03  1.832E-02  1.583E-03  1.566E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.103E-04  7.225E-02 -5.073E-02  6.268E-04  8.524E-04  2.031E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        6              -6.631E-03  2.349E-02 -1.726E-02 -6.175E-03 -1.532E-04  4.704E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.792E-03  2.742E-02 -2.173E-02 -5.838E-03  1.019E-04  5.315E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.559E-03  3.840E-02  5.084E-04  4.402E-03 -8.199E-05  4.779E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.168E-03  2.986E-02  1.074E-03  3.895E-03 -2.709E-04  3.971E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.454E-05  2.989E-02 -9.118E-03 -9.289E-04 -1.083E-04  4.689E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        7              -2.316E-03  6.997E-03 -3.851E-03 -1.524E-03 -7.112E-05  1.008E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.613E-03  8.529E-03 -3.037E-03 -1.390E-03  4.306E-05  1.009E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.355E-03  1.116E-02  1.756E-03  6.805E-04 -1.870E-04  8.371E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.326E-03  8.886E-03  5.970E-04  4.795E-04 -2.715E-04  8.603E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.280E-05  8.891E-03 -1.135E-03 -4.383E-04 -1.249E-04  9.277E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        8              -6.570E-04  1.752E-03 -7.515E-04 -2.722E-04 -2.195E-05  1.954E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.280E-04  2.177E-03 -8.019E-05 -2.320E-04  1.633E-05  1.635E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.033E-04  2.707E-03  7.527E-04  8.978E-06 -8.712E-05  1.179E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.074E-04  2.266E-03  2.068E-04 -5.133E-05 -1.152E-04  1.687E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.593E-05  2.218E-03  1.469E-05 -1.366E-04 -5.308E-05  1.612E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    394        9              -1.633E-04  3.857E-04 -1.160E-04 -2.329E-05 -5.027E-06  3.363E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.359E-05  4.828E-04  1.526E-04 -1.282E-05  5.947E-06  1.921E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.329E-04  5.647E-04  2.390E-04 -4.427E-05 -2.985E-05  9.094E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.525E-05  5.159E-04  6.221E-05 -5.996E-05 -3.783E-05  3.002E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.334E-06  4.836E-04  7.592E-05 -3.509E-05 -1.701E-05  2.298E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    394       10              -3.606E-05  7.428E-05 -7.605E-06  7.557E-06 -7.023E-07  4.624E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.614E-06  9.273E-05  7.877E-05  1.001E-05  2.088E-06 -1.800E-06  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.461E-05  9.745E-05  6.530E-05 -2.249E-05 -8.705E-06 -1.929E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.239E-05  1.047E-04  1.728E-05 -2.616E-05 -1.071E-05  4.625E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.251E-06  9.097E-05  3.533E-05 -7.772E-06 -4.589E-06  1.802E-05  0.000E+00  0.000E+00  0.000E+00   \r\n0    394                0.0000  2.567E-01 -6.778E-01 -8.598E-01  1.525E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.909E-02 -9.407E-01 -1.716E+00 -1.445E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.907E-01 -7.552E-01 -9.861E-01  1.676E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.802E-02 -6.558E-01 -3.899E-01  2.122E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.224E-02 -7.464E-01 -9.623E-01  9.516E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   276\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    394                7.1000  2.481E-01 -6.699E-01 -7.799E-01  2.099E-02  2.176E-03  1.875E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.278E-02 -9.177E-01 -1.568E+00 -7.223E-03 -6.315E-04  6.872E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.880E-01 -7.606E-01 -9.197E-01  1.504E-01  1.226E-02  6.774E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.896E-03 -6.594E-01 -3.680E-01  1.928E-01  1.440E-02 -6.732E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.141E-02 -7.418E-01 -8.855E-01  8.925E-02  7.124E-03  3.722E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        0              -4.616E-04  1.748E-03 -1.281E-03  1.695E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.431E-03 -5.304E-04 -2.234E-03  1.765E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.553E-04  1.529E-03  6.553E-04 -4.396E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.310E-03  3.056E-03  1.310E-03 -4.859E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.770E-05  1.450E-03 -3.884E-04  6.337E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        1               2.002E-02 -1.886E-02  1.923E-02  6.498E-03  1.850E-04 -1.121E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.726E-02 -2.561E-02  1.679E-02  4.202E-03  2.575E-05 -1.103E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.967E-02 -4.590E-02 -1.967E-02 -1.692E-03  1.555E-08 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.767E-02 -4.124E-02 -1.767E-02 -1.602E-04 -1.064E-08 -1.120E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.265E-05 -3.291E-02 -3.493E-04  2.213E-03  5.889E-05 -1.113E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        2               1.060E-01  1.886E-02  2.844E-01  5.350E-02  5.857E-03 -2.856E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.420E-02 -9.428E-02  1.248E-01  5.177E-02  5.503E-03 -2.255E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.234E-02 -1.688E-01 -7.234E-02  1.678E-04 -1.873E-06 -2.448E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.669E-02 -1.323E-01 -5.669E-02  1.328E-03  1.375E-06 -2.851E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.591E-03 -9.182E-02  7.537E-02  2.669E-02  2.855E-03 -2.601E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        3               1.341E-01  2.042E-01  6.503E-01  8.855E-02  1.967E-02 -2.254E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.101E-02 -4.944E-02  2.202E-01  1.026E-01  2.212E-02 -1.160E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.220E-02 -9.847E-02 -4.219E-02  1.715E-02  3.555E-06 -1.516E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.797E-02 -4.193E-02 -1.797E-02  7.748E-03  2.636E-06 -2.251E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.344E-03  1.020E-02  2.180E-01  5.402E-02  1.034E-02 -1.793E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        4               3.842E-02  9.793E-02  2.680E-01  1.626E-02  9.283E-03 -4.142E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.301E-02  1.194E-02  8.257E-02  2.449E-02  1.132E-02 -4.049E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.183E-03  2.760E-03  1.183E-03  1.415E-02 -1.289E-06 -1.644E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.461E-03  8.074E-03  3.461E-03  8.659E-03  9.125E-07 -4.148E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.073E-03  3.324E-02  9.594E-02  1.589E-02  5.072E-03 -2.577E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        5               2.628E-03  2.017E-02  4.797E-02 -4.803E-03  1.474E-03  5.754E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.162E-02  1.126E-02  9.389E-03 -2.747E-03  2.139E-03  7.010E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.550E-03  1.295E-02  5.550E-03  5.466E-03  1.896E-07  4.582E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.880E-03  6.721E-03  2.881E-03  4.095E-03  1.696E-07 -8.671E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.747E-04  1.349E-02  1.812E-02  5.028E-04  8.774E-04  2.920E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   277\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    401        6              -2.067E-03  1.761E-03 -1.789E-04 -3.356E-03 -2.514E-04  2.317E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.370E-03  4.186E-03 -3.614E-03 -3.063E-03 -1.275E-04  3.059E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.769E-03  6.460E-03  2.769E-03  1.385E-03  1.885E-08  2.738E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.405E-03  3.278E-03  1.405E-03  1.190E-03  1.854E-08  2.278E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.633E-05  4.013E-03  3.099E-04 -9.611E-04 -9.962E-05  2.597E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        7              -1.201E-03 -3.933E-04 -3.486E-03 -1.112E-03 -2.540E-04  9.446E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.490E-04  1.170E-03 -2.541E-03 -1.107E-03 -2.468E-04  9.032E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.897E-04  2.309E-03  9.897E-04  2.424E-04 -1.375E-09  8.855E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.843E-04  1.363E-03  5.843E-04  2.395E-04 -4.540E-09  9.258E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.475E-05  1.107E-03 -1.126E-03 -4.343E-04 -1.255E-04  9.138E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        8              -4.427E-04 -2.534E-04 -1.625E-03 -2.762E-04 -1.085E-04  2.809E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.935E-05  2.817E-04 -9.827E-04 -2.901E-04 -1.138E-04  2.280E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.026E-04  7.061E-04  3.026E-04  1.760E-05  2.086E-09  2.345E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.117E-04  4.939E-04  2.117E-04  2.690E-05 -1.202E-09  2.732E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.293E-05  2.986E-04 -5.432E-04 -1.305E-04 -5.536E-05  2.538E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    401        9              -1.355E-04 -8.572E-05 -5.441E-04 -5.531E-05 -3.584E-05  7.267E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.990E-05  6.072E-05 -3.052E-04 -6.147E-05 -3.887E-05  5.242E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.359E-05  1.950E-04  8.358E-05 -8.050E-06 -5.142E-10  5.571E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.818E-05  1.591E-04  6.818E-05 -3.941E-06 -4.619E-10  6.985E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.541E-06  7.865E-05 -1.828E-04 -3.219E-05 -1.856E-05  6.258E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    401       10              -3.696E-05 -2.318E-05 -1.551E-04 -8.337E-06 -1.023E-05  1.716E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.902E-06  1.164E-05 -8.303E-05 -1.024E-05 -1.131E-05  1.118E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.124E-05  4.957E-05  2.124E-05 -5.005E-06 -1.474E-10  1.219E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.986E-05  4.634E-05  1.986E-05 -3.735E-06 -1.320E-10  1.625E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.365E-06  1.992E-05 -5.199E-05 -6.830E-06 -5.343E-06  1.418E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    401                0.0000  2.969E-01  3.250E-01  1.263E+00  1.569E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.855E-02 -1.409E-01  4.439E-01  1.776E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.227E-01 -2.862E-01 -1.226E-01  3.643E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.240E-02 -1.923E-01 -8.240E-02  2.263E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.356E-02 -6.083E-02  4.051E-01  9.839E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    401                7.1000  2.805E-01  2.950E-01  1.171E+00  1.495E-01  1.338E-02 -1.828E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.639E-02 -1.397E-01  4.158E-01  1.679E-01  1.560E-02 -1.059E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.199E-01 -2.797E-01 -1.199E-01  3.210E-02  3.434E-07 -1.312E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.098E-02 -1.890E-01 -8.098E-02  1.985E-02  1.834E-06 -1.827E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.251E-02 -6.662E-02  3.737E-01  9.235E-02  7.156E-03 -1.505E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   278\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    402        0              -2.178E-04  2.742E-04 -1.628E-03  1.686E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.354E-04 -4.861E-04 -1.927E-03  1.671E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.459E-04  3.400E-04  1.459E-04  5.655E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.434E-04  1.501E-03  6.434E-04  5.872E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.106E-06  4.065E-04 -6.936E-04  1.127E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        1               2.056E-02 -2.271E-02  1.865E-02  5.796E-03  1.416E-04 -1.103E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.982E-02 -2.466E-02  1.814E-02  4.122E-03  2.861E-05 -1.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.080E-02 -4.852E-02 -2.080E-02  1.093E-03  0.000E+00 -1.090E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.943E-02 -4.535E-02 -1.943E-02  3.605E-03  0.000E+00 -1.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.360E-05 -3.532E-02 -8.824E-04  3.654E-03  4.959E-05 -1.098E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        2               9.015E-02 -5.007E-02  1.578E-01  5.770E-02  5.447E-03 -2.255E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.217E-02 -8.892E-02  7.015E-02  5.326E-02  4.778E-03 -1.862E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.247E-02 -1.691E-01 -7.247E-02  5.099E-02  0.000E+00 -1.856E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.146E-02 -1.667E-01 -7.146E-02  5.767E-02  0.000E+00 -2.448E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.863E-03 -1.164E-01  2.630E-02  5.491E-02  2.597E-03 -2.104E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        3               8.290E-02  4.792E-02  2.955E-01  1.061E-01  1.891E-02 -1.160E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.756E-02 -4.225E-02  5.084E-02  1.076E-01  1.897E-02 -4.427E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.013E-02 -7.031E-02 -3.013E-02  1.333E-01  9.632E-06 -4.386E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.170E-02 -9.732E-02 -4.170E-02  1.310E-01  0.000E+00 -1.517E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.951E-03 -3.391E-02  8.399E-02  1.195E-01  9.459E-03 -8.874E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        4               1.189E-02  4.537E-02  1.091E-01  2.479E-02  8.941E-03 -4.049E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.027E-02  1.392E-02  1.133E-05  2.744E-02  9.526E-03  2.049E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.327E-02  3.095E-02  1.327E-02  5.420E-02  0.000E+00  2.025E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.225E-03  2.857E-03  1.225E-03  5.023E-02  0.000E+00 -1.646E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.083E-03  2.633E-02  3.803E-02  3.917E-02  4.581E-03  5.117E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        5              -4.638E-03  1.504E-02  1.262E-02 -2.787E-03  1.389E-03  7.010E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.294E-02  1.141E-02 -1.142E-02 -1.792E-03  1.702E-03  1.158E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.080E-02  2.519E-02  1.080E-02  9.884E-03  0.000E+00  1.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.543E-03  1.293E-02  5.543E-03  8.391E-03  0.000E+00  4.575E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.099E-04  1.686E-02  6.063E-03  3.424E-03  7.536E-04  8.635E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        6              -3.334E-03  3.387E-03 -4.143E-03 -3.086E-03 -2.548E-04  3.059E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.902E-03  4.106E-03 -6.755E-03 -2.847E-03 -1.558E-04  3.548E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.213E-03  9.831E-03  4.213E-03  3.714E-04  6.055E-08  3.436E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.765E-03  6.452E-03  2.765E-03  1.293E-05  0.000E+00  2.737E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.920E-05  6.038E-03 -7.618E-04 -1.387E-03 -1.087E-04  3.194E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   279\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    402        7              -1.278E-03  6.022E-04 -2.960E-03 -1.116E-03 -2.436E-04  9.032E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.004E-03  1.124E-03 -2.566E-03 -1.072E-03 -2.198E-04  8.762E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.266E-03  2.955E-03  1.266E-03 -4.542E-04  7.517E-09  8.368E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.884E-04  2.306E-03  9.884E-04 -5.201E-04  7.517E-09  8.855E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.235E-05  1.741E-03 -8.306E-04 -7.905E-04 -1.173E-04  8.750E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        8              -3.926E-04  8.196E-05 -1.134E-03 -2.932E-04 -1.008E-04  2.280E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.337E-04  2.656E-04 -7.876E-04 -2.872E-04 -9.631E-05  1.931E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.300E-04  7.700E-04  3.300E-04 -2.254E-04  0.000E+00  1.813E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.022E-04  7.050E-04  3.022E-04 -2.343E-04  0.000E+00  2.346E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.079E-06  4.471E-04 -3.422E-04 -2.600E-04 -4.956E-05  2.091E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    402        9              -1.061E-04  5.012E-06 -3.477E-04 -6.251E-05 -3.209E-05  5.242E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.970E-05  5.613E-05 -2.108E-04 -6.225E-05 -3.150E-05  3.904E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.746E-05  1.808E-04  7.746E-05 -7.551E-05  0.000E+00  3.594E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.343E-05  1.947E-04  8.343E-05 -7.590E-05  0.000E+00  5.578E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.409E-06  1.055E-04 -1.080E-04 -6.904E-05 -1.593E-05  4.577E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    402       10              -2.602E-05 -1.838E-06 -9.341E-05 -1.058E-05 -8.707E-06  1.118E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.447E-06  1.052E-05 -5.051E-05 -1.077E-05 -8.721E-06  7.208E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.645E-05  3.838E-05  1.645E-05 -2.132E-05  0.000E+00  6.477E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.119E-05  4.945E-05  2.119E-05 -2.102E-05  0.000E+00  1.222E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.599E-07  2.293E-05 -2.938E-05 -1.592E-05 -4.356E-06  9.269E-05  0.000E+00  0.000E+00  0.000E+00   \r\n0    402                0.0000  1.955E-01  3.989E-02  5.834E-01  1.887E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.496E-03 -1.254E-01  1.154E-01  1.881E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.329E-02 -2.177E-01 -9.328E-02  2.497E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.210E-01 -2.824E-01 -1.210E-01  2.506E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                9.344E-03 -1.337E-01  1.507E-01  2.193E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    402                7.1000  1.879E-01  2.892E-02  5.456E-01  1.786E-01  1.280E-02 -1.059E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.252E-02 -1.251E-01  1.150E-01  1.774E-01  1.319E-02 -5.550E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.422E-02 -2.199E-01 -9.422E-02  2.308E-01  3.545E-06 -5.556E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.183E-01 -2.760E-01 -1.183E-01  2.326E-01  5.733E-09 -1.312E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.624E-03 -1.364E-01  1.392E-01  2.049E-01  6.472E-03 -8.691E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        0               2.695E-04 -1.409E-04 -1.582E-03  1.704E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.725E-05 -8.818E-04 -1.865E-03  1.643E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.421E-04 -7.986E-04 -3.421E-04  5.291E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.457E-04  3.402E-04  1.457E-04  6.199E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.013E-05 -3.692E-04 -9.080E-04  1.124E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   280\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    403        1               2.171E-02 -2.386E-02  1.895E-02  6.156E-03  1.550E-04 -1.091E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.124E-02 -2.518E-02  1.872E-02  4.372E-03  3.576E-05 -1.080E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.177E-02 -5.080E-02 -2.177E-02  1.316E-03  8.502E-10 -1.073E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.080E-02 -4.853E-02 -2.080E-02  3.990E-03  8.502E-10 -1.090E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.063E-04 -3.708E-02 -1.197E-03  3.959E-03  4.005E-05 -1.083E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        2               9.649E-02 -6.996E-02  8.914E-02  5.970E-02  5.646E-03 -1.862E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.035E-02 -1.063E-01  4.988E-03  5.273E-02  4.650E-03 -1.475E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.270E-02 -1.696E-01 -7.270E-02  4.877E-02  6.658E-09 -1.277E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.249E-02 -1.691E-01 -7.249E-02  5.925E-02  6.658E-09 -1.856E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.123E-04 -1.310E-01 -1.814E-02  5.511E-02  2.513E-03 -1.616E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        3               8.918E-02  3.448E-03  9.658E-02  1.087E-01  1.941E-02 -4.427E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.482E-03 -8.483E-02 -1.407E-01  1.041E-01  1.826E-02  2.648E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.962E-02 -4.579E-02 -1.962E-02  1.253E-01  1.302E-08  6.177E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.016E-02 -7.037E-02 -3.016E-02  1.321E-01  4.341E-09 -4.387E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.025E-03 -5.607E-02 -3.911E-02  1.175E-01  9.342E-03  2.315E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        4               8.918E-03  3.070E-02  1.680E-02  2.540E-02  9.135E-03  2.049E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.238E-02 -7.524E-04 -8.938E-02  2.581E-02  9.121E-03  4.472E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.432E-02  5.676E-02  2.433E-02  5.060E-02 -7.831E-10  5.630E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.326E-02  3.094E-02  1.326E-02  4.998E-02 -7.831E-10  2.025E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.120E-04  2.630E-02 -1.602E-02  3.795E-02  4.565E-03  3.551E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        5              -7.522E-03  1.373E-02 -9.095E-03 -2.820E-03  1.387E-03  1.158E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.573E-02  9.896E-03 -3.262E-02 -2.134E-03  1.594E-03  1.611E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.572E-02  3.668E-02  1.572E-02  9.146E-03 -2.615E-09  1.801E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.080E-02  2.519E-02  1.080E-02  8.118E-03 -1.308E-09  1.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.008E-05  2.064E-02 -5.518E-03  3.078E-03  7.585E-04  1.428E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        6              -4.421E-03  3.884E-03 -6.978E-03 -3.148E-03 -2.833E-04  3.548E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.015E-03  4.513E-03 -9.586E-03 -2.880E-03 -1.735E-04  4.036E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.590E-03  1.304E-02  5.590E-03  3.130E-04 -1.537E-09  4.132E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.213E-03  9.831E-03  4.213E-03 -9.000E-05 -5.125E-10  3.436E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.992E-06  7.721E-03 -1.916E-03 -1.451E-03 -1.072E-04  3.790E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        7              -1.563E-03  8.844E-04 -2.806E-03 -1.143E-03 -2.590E-04  8.762E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.305E-03  1.380E-03 -2.444E-03 -1.067E-03 -2.207E-04  8.510E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.534E-03  3.580E-03  1.534E-03 -4.334E-04 -2.894E-10  7.918E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.266E-03  2.955E-03  1.266E-03 -5.472E-04 -7.349E-09  8.368E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.183E-05  2.205E-03 -6.007E-04 -7.975E-04 -1.175E-04  8.392E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   281\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    403        8              -4.500E-04  1.729E-04 -8.803E-04 -3.019E-04 -1.066E-04  1.931E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.976E-04  3.501E-04 -5.495E-04 -2.836E-04 -9.558E-05  1.590E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.579E-04  8.351E-04  3.579E-04 -2.124E-04 -6.977E-11  1.296E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.300E-04  7.700E-04  3.300E-04 -2.399E-04 -6.977E-11  1.813E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.337E-06  5.406E-04 -1.655E-04 -2.594E-04 -4.984E-05  1.657E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    403        9              -1.145E-04  2.837E-05 -2.385E-04 -6.499E-05 -3.389E-05  3.904E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.998E-05  7.815E-05 -1.067E-04 -6.104E-05 -3.111E-05  2.592E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.217E-05  1.684E-04  7.217E-05 -7.083E-05 -1.509E-11  1.660E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.747E-05  1.808E-04  7.746E-05 -7.677E-05 -1.509E-11  3.594E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.489E-06  1.176E-04 -4.023E-05 -6.841E-05 -1.607E-05  2.933E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    403       10              -2.636E-05  3.273E-06 -5.776E-05 -1.123E-05 -9.207E-06  7.208E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.028E-05  1.541E-05 -1.632E-05 -1.046E-05 -8.579E-06  3.311E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.202E-05  2.804E-05  1.202E-05 -1.993E-05 -5.876E-12  8.579E-06  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.645E-05  3.838E-05  1.645E-05 -2.108E-05 -2.938E-12  6.477E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.259E-07  2.249E-05 -8.560E-06 -1.568E-05 -4.406E-06  4.444E-05  0.000E+00  0.000E+00  0.000E+00   \r\n0    403                0.0000  2.025E-01 -4.111E-02  1.998E-01  1.942E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.827E-02 -2.017E-01 -2.535E-01  1.822E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.683E-02 -1.560E-01 -6.683E-02  2.352E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.334E-02 -2.178E-01 -9.334E-02  2.531E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.220E-03 -1.670E-01 -8.362E-02  2.162E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    403                7.1000  1.956E-01 -4.671E-02  1.934E-01  1.837E-01  1.309E-02 -5.550E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.562E-02 -1.961E-01 -2.237E-01  1.721E-01  1.264E-02 -5.739E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.118E-02 -1.661E-01 -7.118E-02  2.176E-01  3.239E-09  1.861E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.427E-02 -2.200E-01 -9.427E-02  2.351E-01 -3.843E-09 -5.556E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.076E-03 -1.690E-01 -7.661E-02  2.021E-01  6.404E-03 -2.440E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        0               1.158E-03 -1.121E-04 -1.275E-03  1.789E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.352E-04 -2.313E-03 -2.151E-03  1.607E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.003E-03 -2.340E-03 -1.003E-03 -5.226E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -3.639E-04 -8.490E-04 -3.639E-04 -4.015E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.106E-06 -1.402E-03 -1.195E-03  6.180E-04  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        1               2.397E-02 -2.357E-02  2.003E-02  6.332E-03  1.836E-04 -1.080E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.170E-02 -2.924E-02  1.814E-02  3.445E-03 -5.722E-06 -1.064E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.376E-02 -5.545E-02 -2.376E-02 -2.226E-03  0.000E+00 -1.063E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.206E-02 -5.148E-02 -2.206E-02 -3.014E-04  0.000E+00 -1.073E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.480E-05 -3.992E-02 -1.886E-03  1.812E-03  3.648E-05 -1.070E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   282\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    404        2               1.215E-01 -6.766E-02  3.491E-02  5.752E-02  6.229E-03 -1.475E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.795E-02 -1.704E-01 -1.076E-01  4.237E-02  4.153E-03 -9.045E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -8.796E-02 -2.052E-01 -8.796E-02 -6.134E-03  0.000E+00 -8.969E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.340E-02 -1.713E-01 -7.340E-02  3.967E-03  0.000E+00 -1.277E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.575E-04 -1.559E-01 -6.383E-02  2.443E-02  2.504E-03 -1.137E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        3               1.369E-01  7.629E-03 -6.935E-02  1.008E-01  2.120E-02  2.648E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.918E-02 -2.256E-01 -4.563E-01  8.282E-02  1.731E-02  1.308E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.269E-02 -9.962E-02 -4.269E-02  4.196E-03  0.000E+00  1.314E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.910E-02 -4.458E-02 -1.910E-02  1.615E-02  0.000E+00  6.174E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.621E-04 -9.718E-02 -1.623E-01  5.099E-02  9.456E-03  8.778E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        4               1.960E-02  3.220E-02 -6.390E-02  2.102E-02  1.001E-02  4.472E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.414E-02 -4.632E-02 -2.312E-01  1.766E-02  8.946E-03  8.051E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.266E-02  5.287E-02  2.266E-02  9.706E-03  0.000E+00  8.012E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.505E-02  5.844E-02  2.505E-02  1.195E-02  0.000E+00  5.629E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.005E-04  2.121E-02 -6.905E-02  1.508E-02  4.691E-03  6.547E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        5              -9.175E-03  1.396E-02 -2.944E-02 -4.109E-03  1.583E-03  1.611E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.197E-02  6.283E-03 -6.441E-02 -3.586E-03  1.721E-03  2.281E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.857E-02  4.334E-02  1.857E-02  4.946E-03  0.000E+00  2.241E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.602E-02  3.737E-02  1.602E-02  4.597E-03 -9.971E-10  1.801E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.293E-04  2.451E-02 -1.652E-02  4.618E-04  8.317E-04  1.985E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        6              -5.975E-03  3.863E-03 -1.007E-02 -3.412E-03 -2.709E-04  4.036E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.200E-03  6.294E-03 -1.325E-02 -2.937E-03 -8.199E-05  4.766E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                6.998E-03  1.633E-02  6.998E-03  1.490E-03  0.000E+00  4.586E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                5.669E-03  1.323E-02  5.669E-03  1.174E-03  0.000E+00  4.133E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                                2.534E-05  9.831E-03 -2.891E-03 -9.211E-04 -7.991E-05  4.383E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        7              -2.115E-03  8.561E-04 -2.844E-03 -1.179E-03 -2.714E-04  8.510E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.422E-03  2.345E-03 -2.020E-03 -1.004E-03 -1.870E-04  8.171E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.949E-03  4.547E-03  1.949E-03  3.216E-04  0.000E+00  7.585E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.551E-03  3.619E-03  1.551E-03  2.047E-04 -3.343E-10  7.923E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.011E-06  2.846E-03 -3.312E-04 -4.141E-04 -1.109E-04  8.054E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    404        8              -5.951E-04  1.603E-04 -6.957E-04 -3.025E-04 -1.152E-04  1.590E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.730E-04  6.617E-04 -1.237E-04 -2.523E-04 -8.712E-05  1.096E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                                4.504E-04  1.051E-03  4.504E-04  4.668E-05  0.000E+00  9.411E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                                3.607E-04  8.417E-04  3.607E-04  1.326E-05  0.000E+00  1.298E-03  0.000E+00  0.000E+00  0.000E+00   \r\n                               -5.984E-06  6.869E-04  1.721E-05 -1.237E-04 -4.935E-05  1.232E-03  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   283\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    404        9              -1.455E-04  2.413E-05 -1.485E-04 -6.310E-05 -3.783E-05  2.592E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.070E-05  1.596E-04  6.538E-05 -5.062E-05 -2.985E-05  6.805E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                8.779E-05  2.048E-04  8.779E-05  4.309E-07  0.000E+00  3.406E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                7.248E-05  1.691E-04  7.248E-05 -7.891E-06  0.000E+00  1.666E-04  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.881E-06  1.430E-04  2.768E-05 -3.030E-05 -1.657E-05  1.320E-04  0.000E+00  0.000E+00  0.000E+00   \r\n0    404       10              -3.161E-05  2.075E-06 -2.671E-05 -1.032E-05 -1.071E-05  3.311E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                               -2.658E-06  3.384E-05  3.803E-05 -7.528E-06 -8.705E-06 -2.378E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.340E-05  3.127E-05  1.340E-05 -2.846E-06  0.000E+00 -2.954E-05  0.000E+00  0.000E+00  0.000E+00   \r\n                                1.199E-05  2.799E-05  1.199E-05 -4.709E-06 -1.066E-11  8.793E-06  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.036E-06  2.497E-05  1.194E-05 -6.351E-06 -4.766E-06 -2.928E-06  0.000E+00  0.000E+00  0.000E+00   \r\n0    404                0.0000  2.851E-01 -3.264E-02 -1.228E-01  1.783E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.334E-02 -4.581E-01 -8.588E-01  1.401E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.047E-01 -2.443E-01 -1.047E-01  1.182E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -6.621E-02 -1.545E-01 -6.621E-02  3.734E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n                               -9.609E-05 -2.352E-01 -3.180E-01  9.190E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    404                7.1000  2.739E-01 -3.879E-02 -1.020E-01  1.694E-01  1.440E-02 -5.739E-02  0.000E+00  0.000E+00  0.000E+00   \r\n                               -4.873E-02 -4.357E-01 -7.805E-01  1.329E-01  1.226E-02  6.767E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.079E-01 -2.517E-01 -1.079E-01  9.126E-03  0.000E+00  6.747E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -7.074E-02 -1.651E-01 -7.074E-02  3.344E-02 -8.441E-10  1.859E-01  0.000E+00  0.000E+00  0.000E+00   \r\n                               -1.250E-04 -2.346E-01 -2.927E-01  8.622E-02  6.569E-03  3.713E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   284\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    181        0               5.464E-02 -6.872E-02 -1.501E+00  1.298E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        1               1.216E-01 -1.325E+00 -2.816E+00  2.807E-01  8.415E-02 -1.106E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        2               1.423E-01 -2.990E+00  5.222E-01  2.918E-01  2.632E-01 -2.272E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        3               1.541E-01  5.635E-01  7.696E+00  2.404E-01  5.234E-01 -2.747E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        4               1.606E-01  1.836E+00  7.145E+00  2.397E-01  5.477E-01 -2.520E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        5               1.673E-01  1.558E+00  5.624E+00  2.489E-01  4.951E-01 -2.103E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        6               1.633E-01  1.124E+00  4.318E+00  2.427E-01  4.194E-01 -1.670E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        7               1.500E-01  7.658E-01  3.287E+00  2.233E-01  3.454E-01 -1.310E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        8               1.325E-01  5.086E-01  2.503E+00  1.978E-01  2.811E-01 -1.026E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181        9               1.140E-01  3.322E-01  1.912E+00  1.708E-01  2.274E-01 -8.047E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    181       10               9.641E-02  2.136E-01  1.464E+00  1.449E-01  1.832E-01 -6.318E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    181                0.0000  1.457E+00  2.518E+00  3.015E+01  2.411E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181                3.5810  1.362E+00  2.097E+00  2.804E+01  2.268E+00  1.086E+00 -4.592E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    181                7.1620  1.100E+00  9.173E-01  2.211E+01  1.874E+00  1.986E+00 -8.478E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        0              -5.871E-02 -6.341E-02 -1.584E+00  1.160E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        1              -1.233E-01 -1.376E+00 -3.014E+00  2.770E-01 -5.770E-03 -9.778E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        2              -1.347E-01 -3.651E+00 -4.499E-01  4.021E-01  5.716E-02 -1.965E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        3              -1.106E-01 -8.983E-01  5.221E+00  3.748E-01  2.927E-01 -2.272E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        4              -9.392E-02  6.882E-01  5.065E+00  3.148E-01  3.248E-01 -2.001E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        5              -8.194E-02  7.949E-01  4.080E+00  2.653E-01  2.956E-01 -1.617E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        6              -6.942E-02  6.519E-01  3.185E+00  2.147E-01  2.571E-01 -1.255E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        7              -5.789E-02  4.863E-01  2.455E+00  1.722E-01  2.189E-01 -9.693E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    182        8              -4.799E-02  3.493E-01  1.887E+00  1.384E-01  1.845E-01 -7.515E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   285\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    182        9              -3.962E-02  2.463E-01  1.453E+00  1.118E-01  1.547E-01 -5.855E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    182       10              -3.261E-02  1.717E-01  1.121E+00  9.071E-02  1.292E-01 -4.580E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    182                0.0000 -8.507E-01 -2.599E+00  1.942E+01  2.478E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182                3.5810 -8.121E-01 -2.817E+00  1.786E+01  2.363E+00  6.660E-01 -3.533E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    182                7.1620 -7.045E-01 -3.415E+00  1.351E+01  2.040E+00  1.210E+00 -6.540E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        0              -3.496E-02  7.526E-03 -1.470E+00  2.003E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        1              -3.835E-02 -1.270E+00 -2.824E+00  3.443E-01  3.401E-02 -8.962E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        2               2.775E-01 -3.861E+00 -1.277E+00  1.923E-01  2.412E-01 -1.716E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        3               7.410E-01 -1.610E+00  2.197E+00  3.035E-01  7.421E-01 -1.856E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        4               5.960E-01  1.123E-01  2.411E+00  4.382E-01  8.248E-01 -1.569E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        5               4.208E-01  3.784E-01  2.025E+00  4.705E-01  7.646E-01 -1.216E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        6               2.894E-01  3.507E-01  1.602E+00  4.527E-01  6.627E-01 -9.104E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        7               1.986E-01  2.670E-01  1.233E+00  4.100E-01  5.564E-01 -6.823E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        8               1.375E-01  1.880E-01  9.405E-01  3.585E-01  4.603E-01 -5.162E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183        9               9.631E-02  1.266E-01  7.163E-01  3.067E-01  3.777E-01 -3.942E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183       10               6.824E-02  8.231E-02  5.461E-01  2.585E-01  3.082E-01 -3.031E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    183                0.0000  2.752E+00 -5.227E+00  6.099E+00  3.735E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183                3.5810  2.615E+00 -5.296E+00  5.347E+00  3.481E+00  1.691E+00 -2.635E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    183                7.1620  2.226E+00 -5.476E+00  3.244E+00  2.778E+00  3.078E+00 -4.901E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        0               1.452E-02 -1.490E-02 -1.505E+00  2.059E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        1               2.395E-02 -1.489E+00 -2.977E+00  4.475E-01 -3.486E-02 -7.808E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        2               5.802E-02 -5.116E+00 -2.674E+00  6.299E-01  3.243E-02 -1.416E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        3               1.716E-01 -3.878E+00 -1.442E+00  7.820E-01  3.635E-01 -1.323E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   286\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    184        4               1.593E-01 -1.584E+00 -6.228E-01  7.088E-01  4.089E-01 -9.680E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        5               1.246E-01 -7.628E-01 -2.240E-01  5.949E-01  3.723E-01 -6.438E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        6               9.519E-02 -3.888E-01 -5.094E-02  4.790E-01  3.246E-01 -4.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        7               7.273E-02 -2.055E-01  1.439E-02  3.816E-01  2.770E-01 -2.682E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        8               5.608E-02 -1.127E-01  3.535E-02  3.044E-01  2.339E-01 -1.776E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184        9               4.369E-02 -6.407E-02  3.893E-02  2.436E-01  1.964E-01 -1.202E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    184       10               3.438E-02 -3.781E-02  3.615E-02  1.957E-01  1.640E-01 -8.310E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    184                0.0000  8.540E-01 -1.365E+01 -9.371E+00  4.973E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    184                3.5810  8.060E-01 -1.338E+01 -9.304E+00  4.722E+00  8.343E-01 -1.372E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    184                7.1620  6.712E-01 -1.258E+01 -9.100E+00  4.019E+00  1.514E+00 -2.597E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        0              -2.630E-03  7.901E-03 -1.423E+00  1.983E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        1              -3.071E-02 -1.560E+00 -2.883E+00  3.756E-01  4.807E-02 -6.504E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        2              -2.316E-01 -6.109E+00 -3.793E+00  2.892E-01  2.668E-01 -1.032E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        3              -4.773E-01 -6.025E+00 -4.865E+00  3.241E-01  7.714E-01 -6.867E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        4              -3.700E-01 -3.259E+00 -3.535E+00  4.188E-01  8.491E-01 -3.043E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        5              -2.486E-01 -1.906E+00 -2.406E+00  4.511E-01  7.819E-01 -3.070E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        6              -1.585E-01 -1.136E+00 -1.668E+00  4.380E-01  6.743E-01  1.105E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        7              -9.893E-02 -6.869E-01 -1.186E+00  3.996E-01  5.640E-01  1.640E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        8              -6.121E-02 -4.217E-01 -8.623E-01  3.513E-01  4.651E-01  1.733E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185        9              -3.759E-02 -2.622E-01 -6.373E-01  3.018E-01  3.807E-01  1.623E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185       10              -2.285E-02 -1.645E-01 -4.763E-01  2.551E-01  3.099E-01  1.430E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    185                0.0000 -1.740E+00 -2.152E+01 -2.373E+01  3.803E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    185                3.5810 -1.668E+00 -2.091E+01 -2.287E+01  3.554E+00  1.724E+00 -1.876E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   287\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    185                7.1620 -1.464E+00 -1.914E+01 -2.041E+01  2.863E+00  3.141E+00 -1.226E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        0               6.227E-02  5.171E-02 -1.430E+00  1.189E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        1               1.364E-01 -1.477E+00 -2.910E+00  2.495E-01 -2.306E-02 -5.743E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        2               2.252E-01 -6.264E+00 -4.709E+00  2.984E-01  2.583E-02 -8.467E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        3               3.493E-01 -6.682E+00 -7.784E+00  3.094E-01  2.463E-01 -3.519E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        4               3.048E-01 -3.802E+00 -6.069E+00  2.934E-01  2.786E-01  7.646E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        5               2.436E-01 -2.294E+00 -4.349E+00  2.539E-01  2.564E-01  3.324E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        6               1.905E-01 -1.412E+00 -3.153E+00  2.060E-01  2.249E-01  4.276E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        7               1.484E-01 -8.841E-01 -2.325E+00  1.639E-01  1.926E-01  4.304E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        8               1.160E-01 -5.638E-01 -1.740E+00  1.302E-01  1.629E-01  3.931E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186        9               9.103E-02 -3.653E-01 -1.317E+00  1.037E-01  1.368E-01  3.419E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186       10               7.169E-02 -2.397E-01 -1.004E+00  8.274E-02  1.144E-01  2.889E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186                0.0000  1.939E+00 -2.393E+01 -3.679E+01  2.210E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    186                3.5810  1.841E+00 -2.318E+01 -3.517E+01  2.103E+00  5.774E-01  7.929E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    186                7.1620  1.565E+00 -2.103E+01 -3.060E+01  1.804E+00  1.048E+00  1.356E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        0              -8.606E-02  8.402E-02 -1.393E+00  1.134E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        1              -1.599E-01 -1.495E+00 -2.880E+00  2.079E-01  3.986E-02 -4.607E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        2              -9.728E-02 -6.895E+00 -5.414E+00  1.323E-01  1.615E-01 -5.272E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        3              -7.477E-02 -7.992E+00 -9.893E+00  1.464E-01  4.039E-01  1.385E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        4              -1.184E-01 -4.798E+00 -7.873E+00  2.110E-01  4.521E-01  5.869E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        5              -1.377E-01 -2.945E+00 -5.705E+00  2.360E-01  4.229E-01  8.054E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        6              -1.384E-01 -1.804E+00 -4.159E+00  2.340E-01  3.661E-01  8.303E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        7              -1.283E-01 -1.107E+00 -3.071E+00  2.158E-01  3.058E-01  7.605E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   288\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    187        8              -1.136E-01 -6.826E-01 -2.296E+00  1.908E-01  2.513E-01  6.592E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187        9              -9.784E-02 -4.214E-01 -1.734E+00  1.642E-01  2.047E-01  5.544E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187       10              -8.267E-02 -2.590E-01 -1.319E+00  1.388E-01  1.657E-01  4.577E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    187                0.0000 -1.235E+00 -2.831E+01 -4.574E+01  1.991E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    187                3.5810 -1.156E+00 -2.740E+01 -4.362E+01  1.857E+00  9.301E-01  1.830E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    187                7.1620 -9.373E-01 -2.478E+01 -3.765E+01  1.488E+00  1.695E+00  3.254E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        0              -3.940E-02 -3.851E-01 -1.499E+00  8.118E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        1              -1.431E-01 -2.120E+00 -2.903E+00  2.631E-01 -4.515E-03 -1.275E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        2              -2.703E-01 -4.071E+00  2.272E-01  4.854E-01  9.790E-03 -2.671E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        3              -1.321E-01 -1.246E-01  7.429E+00  3.213E-01  7.962E-02 -3.267E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        4              -5.728E-02  1.388E+00  6.867E+00  1.840E-01  6.153E-02 -2.958E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        5              -4.283E-02  1.180E+00  5.302E+00  1.331E-01  3.454E-02 -2.433E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        6              -3.361E-02  7.985E-01  3.987E+00  9.678E-02  1.875E-02 -1.904E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        7              -2.668E-02  4.917E-01  2.972E+00  7.069E-02  9.998E-03 -1.470E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        8              -2.148E-02  2.819E-01  2.217E+00  5.210E-02  5.071E-03 -1.134E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191        9              -1.738E-02  1.477E-01  1.658E+00  3.870E-02  2.334E-03 -8.757E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    191       10              -1.410E-02  6.511E-02  1.245E+00  2.889E-02  7.710E-04 -6.770E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    191                0.0000 -7.983E-01 -2.348E+00  2.750E+01  1.755E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191                3.5810 -7.769E-01 -2.582E+00  2.559E+01  1.702E+00  5.685E-02 -5.229E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    191                7.1620 -7.165E-01 -3.238E+00  2.021E+01  1.551E+00  1.083E-01 -9.672E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        0              -7.061E-02 -1.442E-01 -1.363E+00  1.653E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        1              -2.285E-01 -1.400E+00 -2.590E+00  5.372E-01  3.261E-01 -9.867E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        2              -3.427E-01 -3.361E+00  1.346E-02  8.883E-01  7.668E-01 -1.963E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   289\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    192        3              -7.676E-02 -7.444E-01  5.725E+00  4.419E-01  1.174E+00 -2.210E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        4               2.061E-02  6.634E-01  5.319E+00  2.150E-01  1.122E+00 -1.913E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        5               1.037E-02  7.246E-01  4.128E+00  2.033E-01  9.458E-01 -1.513E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        6              -8.186E-03  5.751E-01  3.114E+00  2.054E-01  7.560E-01 -1.145E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        7              -2.028E-02  4.173E-01  2.323E+00  1.963E-01  5.935E-01 -8.602E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        8              -2.571E-02  2.921E-01  1.731E+00  1.784E-01  4.634E-01 -6.482E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    192        9              -2.678E-02  2.011E-01  1.292E+00  1.563E-01  3.613E-01 -4.907E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    192       10              -2.539E-02  1.369E-01  9.662E-01  1.335E-01  2.814E-01 -3.729E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    192                0.0000 -7.939E-01 -2.639E+00  2.066E+01  3.321E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192                3.5810 -7.761E-01 -2.825E+00  1.917E+01  3.185E+00  2.011E+00 -3.231E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    192                7.1620 -7.267E-01 -3.337E+00  1.499E+01  2.806E+00  3.706E+00 -6.003E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        0               5.857E-02 -8.242E-02 -1.287E+00  1.402E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        1               1.750E-01 -1.222E+00 -2.400E+00  7.218E-02 -1.194E-01 -9.203E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        2               2.662E-01 -3.414E+00 -7.722E-01 -3.552E-01 -9.143E-02 -1.775E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        3               1.482E-01 -1.650E+00  2.482E+00  8.599E-02  2.520E-01 -1.889E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        4               1.066E-01 -1.512E-01  2.518E+00  4.063E-01  3.524E-01 -1.572E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        5               1.178E-01  1.357E-01  2.058E+00  4.474E-01  3.589E-01 -1.202E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        6               1.219E-01  1.603E-01  1.602E+00  4.140E-01  3.271E-01 -8.838E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        7               1.156E-01  1.262E-01  1.217E+00  3.576E-01  2.812E-01 -6.494E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        8               1.035E-01  8.701E-02  9.178E-01  2.987E-01  2.347E-01 -4.812E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193        9               8.922E-02  5.566E-02  6.910E-01  2.449E-01  1.925E-01 -3.595E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193       10               7.503E-02  3.334E-02  5.204E-01  1.983E-01  1.563E-01 -2.704E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    193                0.0000  1.378E+00 -5.921E+00  7.547E+00  2.310E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   290\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    193                3.5810  1.304E+00 -5.914E+00  6.793E+00  2.103E+00  7.712E-01 -2.569E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    193                7.1620  1.098E+00 -5.881E+00  4.682E+00  1.529E+00  1.392E+00 -4.789E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        0              -1.191E-02 -3.993E-02 -1.346E+00  1.100E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        1              -9.410E-02 -1.583E+00 -2.697E+00  2.004E-01 -5.739E-02 -9.022E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        2              -3.649E-01 -5.208E+00 -2.069E+00  2.705E-01 -1.883E-02 -1.673E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        3              -4.856E-01 -3.629E+00  1.275E-01  5.401E-01  2.932E-01 -1.640E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        4              -3.299E-01 -1.286E+00  7.237E-01  5.617E-01  3.352E-01 -1.247E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        5              -2.206E-01 -5.152E-01  7.810E-01  4.818E-01  3.011E-01 -8.667E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        6              -1.462E-01 -1.927E-01  6.936E-01  3.858E-01  2.593E-01 -5.843E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        7              -9.706E-02 -5.270E-02  5.672E-01  3.023E-01  2.183E-01 -3.983E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        8              -6.499E-02  5.751E-03  4.478E-01  2.359E-01  1.817E-01 -2.770E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194        9              -4.386E-02  2.766E-02  3.481E-01  1.842E-01  1.501E-01 -1.964E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194       10              -2.975E-02  3.322E-02  2.686E-01  1.442E-01  1.233E-01 -1.415E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    194                0.0000 -1.889E+00 -1.244E+01 -2.155E+00  3.417E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194                3.5810 -1.817E+00 -1.226E+01 -2.457E+00  3.224E+00  6.510E-01 -1.849E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    194                7.1620 -1.612E+00 -1.173E+01 -3.292E+00  2.686E+00  1.182E+00 -3.481E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        0               2.343E-02 -1.844E-02 -1.310E+00  1.317E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        1               6.458E-02 -1.511E+00 -2.615E+00  2.800E-01 -3.839E-02 -8.371E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        2               3.371E-01 -5.215E+00 -2.793E+00  4.150E-01  2.522E-02 -1.496E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        3               8.006E-01 -4.055E+00 -2.577E+00  5.978E-01  3.466E-01 -1.345E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        4               6.634E-01 -1.700E+00 -1.650E+00  5.700E-01  3.776E-01 -9.334E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        5               4.776E-01 -8.520E-01 -1.040E+00  4.822E-01  3.319E-01 -5.773E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        6               3.343E-01 -4.654E-01 -6.959E-01  3.851E-01  2.810E-01 -3.384E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   291\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    195        7               2.333E-01 -2.719E-01 -4.938E-01  3.020E-01  2.336E-01 -1.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        8               1.639E-01 -1.693E-01 -3.645E-01  2.361E-01  1.925E-01 -1.151E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    195        9               1.162E-01 -1.114E-01 -2.755E-01  1.848E-01  1.578E-01 -6.731E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    195       10               8.308E-02 -7.678E-02 -2.109E-01  1.450E-01  1.288E-01 -3.925E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    195                0.0000  3.297E+00 -1.445E+01 -1.403E+01  3.730E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195                3.5810  3.138E+00 -1.413E+01 -1.363E+01  3.534E+00  7.146E-01 -1.219E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    195                7.1620  2.687E+00 -1.320E+01 -1.251E+01  2.987E+00  1.301E+00 -2.329E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        0              -7.217E-02  1.432E-01 -1.222E+00  1.825E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        1              -1.101E-01 -1.252E+00 -2.471E+00  3.584E-01  6.956E-02 -7.012E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        2               4.941E-02 -5.659E+00 -3.365E+00  3.120E-01  3.075E-01 -1.099E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        3               1.498E-01 -5.442E+00 -4.545E+00  3.423E-01  8.076E-01 -6.892E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        4               5.420E-02 -2.733E+00 -3.312E+00  4.184E-01  8.578E-01 -2.609E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        5              -5.647E-03 -1.478E+00 -2.253E+00  4.323E-01  7.646E-01  3.016E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        6              -3.491E-02 -8.033E-01 -1.567E+00  4.030E-01  6.393E-01  1.681E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        7              -4.592E-02 -4.327E-01 -1.118E+00  3.544E-01  5.194E-01  2.104E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        8              -4.722E-02 -2.290E-01 -8.154E-01  3.014E-01  4.165E-01  2.075E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196        9              -4.388E-02 -1.164E-01 -6.033E-01  2.509E-01  3.317E-01  1.859E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196       10              -3.864E-02 -5.436E-02 -4.507E-01  2.060E-01  2.630E-01  1.584E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    196                0.0000 -1.450E-01 -1.806E+01 -2.172E+01  3.562E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    196                3.5810 -1.226E-01 -1.760E+01 -2.091E+01  3.343E+00  1.625E+00  7.747E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    196                7.1620 -6.271E-02 -1.630E+01 -1.860E+01  2.735E+00  2.973E+00  4.957E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        0              -9.374E-03  1.755E-01 -1.177E+00  1.204E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        1              -3.692E-02 -1.217E+00 -2.425E+00  2.030E-01  5.238E-02 -6.395E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   292\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    197        2              -7.543E-02 -6.000E+00 -4.376E+00  7.636E-02  2.196E-01 -9.235E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        3              -2.775E-02 -6.438E+00 -7.689E+00  9.473E-02  5.233E-01 -3.896E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        4              -9.747E-03 -3.543E+00 -5.949E+00  1.884E-01  5.520E-01  5.581E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        5              -2.317E-04 -2.060E+00 -4.199E+00  2.228E-01  4.949E-01  3.194E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        6               8.857E-03 -1.218E+00 -2.992E+00  2.228E-01  4.151E-01  4.105E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        7               1.372E-02 -7.289E-01 -2.165E+00  2.044E-01  3.377E-01  4.059E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        8               1.517E-02 -4.421E-01 -1.588E+00  1.787E-01  2.709E-01  3.624E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197        9               1.466E-02 -2.710E-01 -1.177E+00  1.517E-01  2.159E-01  3.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197       10               1.320E-02 -1.671E-01 -8.783E-01  1.263E-01  1.711E-01  2.534E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197                0.0000 -9.385E-02 -2.191E+01 -3.462E+01  1.790E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    197                3.5810 -1.009E-01 -2.126E+01 -3.310E+01  1.666E+00  1.057E+00  6.927E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    197                7.1620 -1.197E-01 -1.938E+01 -2.882E+01  1.326E+00  1.934E+00  1.177E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        0               5.443E-02  3.220E-01 -1.163E+00  4.522E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        1               1.142E-01 -1.031E+00 -2.430E+00  9.631E-02 -4.791E-02 -5.158E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        2               1.590E-01 -6.469E+00 -4.985E+00  1.393E-01 -8.903E-02 -5.877E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        3               2.063E-01 -7.515E+00 -9.433E+00  1.775E-01 -3.643E-02  2.163E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        4               1.840E-01 -4.266E+00 -7.397E+00  1.718E-01 -3.105E-02  7.196E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        5               1.438E-01 -2.451E+00 -5.261E+00  1.406E-01 -3.465E-02  9.400E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        6               1.054E-01 -1.384E+00 -3.767E+00  1.040E-01 -3.153E-02  9.437E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        7               7.587E-02 -7.635E-01 -2.734E+00  7.425E-02 -2.679E-02  8.473E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        8               5.462E-02 -4.074E-01 -2.011E+00  5.242E-02 -2.211E-02  7.216E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198        9               3.951E-02 -2.038E-01 -1.494E+00  3.688E-02 -1.802E-02  5.972E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    198       10               2.874E-02 -8.851E-02 -1.118E+00  2.588E-02 -1.458E-02  4.856E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   293\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    198                0.0000  1.166E+00 -2.426E+01 -4.179E+01  1.064E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    198                3.5810  1.116E+00 -2.355E+01 -3.989E+01  1.016E+00 -9.085E-02  2.055E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    198                7.1620  9.733E-01 -2.153E+01 -3.453E+01  8.817E-01 -1.673E-01  3.665E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        0               5.829E-02 -4.431E-01 -1.245E+00  1.286E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        1               1.535E-01 -1.725E+00 -2.243E+00  3.168E-01  1.083E-01 -1.021E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        2               2.277E-01 -2.653E+00  1.141E+00  4.136E-01  3.140E-01 -2.161E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        3               2.033E-01  3.937E-01  7.817E+00  3.153E-01  5.643E-01 -2.668E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        4               1.655E-01  1.236E+00  6.840E+00  2.497E-01  5.553E-01 -2.411E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        5               1.544E-01  9.430E-01  5.122E+00  2.319E-01  4.746E-01 -1.967E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        6               1.411E-01  5.967E-01  3.756E+00  2.107E-01  3.803E-01 -1.517E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        7               1.227E-01  3.444E-01  2.736E+00  1.831E-01  2.966E-01 -1.151E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        8               1.030E-01  1.827E-01  1.995E+00  1.537E-01  2.288E-01 -8.702E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    201        9               8.433E-02  8.507E-02  1.460E+00  1.260E-01  1.757E-01 -6.582E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    201       10               6.782E-02  2.857E-02  1.071E+00  1.015E-01  1.344E-01 -4.980E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    201                0.0000  1.482E+00 -1.011E+00  2.845E+01  2.431E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201                3.5810  1.404E+00 -1.193E+00  2.666E+01  2.313E+00  9.813E-01 -4.134E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    201                7.1620  1.186E+00 -1.708E+00  2.161E+01  1.985E+00  1.807E+00 -7.662E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        0              -1.921E-02 -2.362E-01 -1.246E+00  3.133E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        1               3.082E-02 -1.349E+00 -2.265E+00  1.335E-01  1.740E-02 -8.718E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        2               1.829E-01 -2.999E+00 -3.028E-02  2.976E-01  7.951E-02 -1.756E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        3               7.496E-02 -1.161E+00  4.198E+00  1.982E-01  2.495E-01 -1.990E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        4              -4.546E-02  6.358E-03  3.805E+00  1.232E-01  2.350E-01 -1.683E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        5              -7.531E-02  1.486E-01  2.910E+00  9.526E-02  1.832E-01 -1.299E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   294\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    202        6              -7.642E-02  1.183E-01  2.163E+00  6.987E-02  1.404E-01 -9.611E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        7              -6.823E-02  6.783E-02  1.588E+00  5.028E-02  1.077E-01 -7.073E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        8              -5.786E-02  2.838E-02  1.163E+00  3.626E-02  8.297E-02 -5.232E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202        9              -4.785E-02  3.027E-03  8.531E-01  2.636E-02  6.417E-02 -3.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202       10              -3.899E-02 -1.139E-02  6.271E-01  1.931E-02  4.974E-02 -2.911E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    202                0.0000 -1.407E-01 -5.384E+00  1.377E+01  1.081E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202                3.5810 -1.049E-01 -5.361E+00  1.274E+01  1.045E+00  3.721E-01 -2.741E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    202                7.1620 -6.510E-03 -5.292E+00  9.876E+00  9.424E-01  6.864E-01 -5.105E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        0               3.228E-02 -2.352E-01 -1.222E+00  3.004E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        1               5.965E-04 -1.802E+00 -2.401E+00 -6.142E-02 -2.058E-01 -9.866E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        2              -1.277E-01 -4.470E+00 -1.029E+00 -2.137E-01 -3.486E-01 -1.952E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        3               2.347E-02 -2.014E+00  2.431E+00  2.087E-01 -2.066E-01 -2.142E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        4               1.087E-01 -1.621E-01  2.536E+00  3.689E-01 -1.444E-01 -1.772E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        5               1.149E-01  1.534E-01  2.031E+00  3.334E-01 -1.044E-01 -1.341E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        6               1.056E-01  1.670E-01  1.540E+00  2.650E-01 -6.844E-02 -9.752E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        7               9.102E-02  1.212E-01  1.140E+00  2.021E-01 -4.334E-02 -7.076E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        8               7.580E-02  7.512E-02  8.375E-01  1.522E-01 -2.687E-02 -5.172E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203        9               6.182E-02  4.104E-02  6.143E-01  1.142E-01 -1.623E-02 -3.811E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203       10               4.974E-02  1.858E-02  4.509E-01  8.574E-02 -9.388E-03 -2.826E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    203                0.0000  5.362E-01 -8.107E+00  6.929E+00  1.485E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203                3.5810  4.837E-01 -8.078E+00  6.225E+00  1.366E+00 -2.331E-01 -2.829E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    203                7.1620  3.385E-01 -7.982E+00  4.251E+00  1.032E+00 -4.440E-01 -5.280E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        0               5.934E-02  6.942E-02 -1.056E+00  1.431E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   295\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    204        1               1.402E-01 -1.123E+00 -2.041E+00  1.995E-01 -7.959E-02 -8.373E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        2               8.418E-02 -4.242E+00 -1.275E+00 -2.086E-02  1.425E-02 -1.495E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        3              -1.413E-01 -3.013E+00  6.543E-01  1.400E-01  4.709E-01 -1.342E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        4              -1.096E-01 -9.769E-01  9.949E-01  3.287E-01  5.560E-01 -9.582E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        5              -4.590E-02 -3.044E-01  9.170E-01  3.694E-01  5.143E-01 -6.171E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        6              -6.205E-03 -3.987E-02  7.507E-01  3.497E-01  4.380E-01 -3.788E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        7               1.339E-02  6.079E-02  5.800E-01  3.055E-01  3.576E-01 -2.328E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        8               2.105E-02  9.112E-02  4.366E-01  2.558E-01  2.858E-01 -1.450E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    204        9               2.246E-02  9.223E-02  3.248E-01  2.089E-01  2.257E-01 -9.154E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    204       10               2.089E-02  8.215E-02  2.403E-01  1.678E-01  1.768E-01 -5.851E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    204                0.0000  5.846E-02 -9.304E+00  5.269E-01  2.448E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    204                3.5810  5.482E-02 -9.215E+00  1.983E-01  2.269E+00  1.053E+00 -1.306E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    204                7.1620  4.677E-02 -8.939E+00 -7.178E-01  1.772E+00  1.919E+00 -2.483E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        0              -6.844E-02  1.974E-02 -1.094E+00  1.751E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        1              -1.027E-01 -1.224E+00 -2.134E+00  3.300E-01 -8.636E-03 -7.747E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        2               1.589E-01 -4.509E+00 -2.238E+00  2.450E-01  1.595E-01 -1.307E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        3               4.796E-01 -3.693E+00 -2.232E+00  2.849E-01  6.302E-01 -1.021E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        4               3.385E-01 -1.578E+00 -1.457E+00  3.792E-01  6.833E-01 -6.272E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        5               2.108E-01 -7.755E-01 -9.097E-01  3.976E-01  6.080E-01 -3.211E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        6               1.291E-01 -4.043E-01 -5.991E-01  3.695E-01  5.047E-01 -1.363E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        7               7.914E-02 -2.184E-01 -4.163E-01  3.212E-01  4.051E-01 -4.186E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        8               4.905E-02 -1.214E-01 -2.998E-01  2.688E-01  3.200E-01  2.763E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    205        9               3.083E-02 -6.884E-02 -2.204E-01  2.197E-01  2.506E-01  2.168E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   296\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    205       10               1.967E-02 -3.946E-02 -1.638E-01  1.767E-01  1.951E-01  2.773E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    205                0.0000  1.324E+00 -1.261E+01 -1.176E+01  3.168E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    205                3.5810  1.263E+00 -1.234E+01 -1.143E+01  2.973E+00  1.250E+00 -6.940E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    205                7.1620  1.089E+00 -1.156E+01 -1.049E+01  2.432E+00  2.288E+00 -1.359E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        0               5.212E-03  2.352E-01 -1.056E+00  7.062E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        1               6.659E-02 -1.011E+00 -2.124E+00  2.118E-01 -1.579E-02 -7.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        2               2.809E-01 -5.276E+00 -2.976E+00  4.338E-01  5.204E-02 -1.094E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        3               3.799E-01 -5.051E+00 -4.169E+00  4.879E-01  3.498E-01 -5.721E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        4               2.546E-01 -2.390E+00 -2.987E+00  4.100E-01  3.613E-01 -1.140E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        5               1.633E-01 -1.188E+00 -1.980E+00  3.400E-01  3.013E-01  1.646E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        6               1.020E-01 -5.705E-01 -1.343E+00  2.689E-01  2.438E-01  2.772E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        7               6.302E-02 -2.510E-01 -9.370E-01  2.087E-01  1.949E-01  2.936E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        8               3.886E-02 -8.888E-02 -6.685E-01  1.612E-01  1.552E-01  2.687E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206        9               2.391E-02 -9.247E-03 -4.845E-01  1.244E-01  1.232E-01  2.298E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206       10               1.463E-02  2.722E-02 -3.547E-01  9.606E-02  9.761E-02  1.893E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206                0.0000  1.393E+00 -1.557E+01 -1.908E+01  2.813E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    206                3.5810  1.344E+00 -1.524E+01 -1.839E+01  2.676E+00  6.218E-01  3.228E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    206                7.1620  1.204E+00 -1.426E+01 -1.642E+01  2.292E+00  1.139E+00  4.999E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        0               6.728E-02  2.668E-01 -1.013E+00  8.453E-03  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        1               1.383E-01 -9.765E-01 -2.081E+00  5.638E-02 -3.204E-02 -6.523E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        2               1.549E-01 -5.618E+00 -3.990E+00  1.982E-01 -3.303E-02 -9.192E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        3               2.013E-01 -6.048E+00 -7.316E+00  2.404E-01  7.064E-02 -2.732E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        4               1.895E-01 -3.202E+00 -5.627E+00  1.799E-01  6.086E-02  2.022E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   297\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    207        5               1.679E-01 -1.771E+00 -3.928E+00  1.305E-01  3.667E-02  4.536E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        6               1.450E-01 -9.857E-01 -2.770E+00  8.868E-02  2.385E-02  5.195E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        7               1.221E-01 -5.477E-01 -1.985E+00  5.868E-02  1.671E-02  4.891E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        8               1.008E-01 -3.026E-01 -1.443E+00  3.851E-02  1.241E-02  4.237E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207        9               8.204E-02 -1.643E-01 -1.059E+00  2.518E-02  9.570E-03  3.516E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207       10               6.613E-02 -8.587E-02 -7.831E-01  1.638E-02  7.530E-03  2.844E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207                0.0000  1.435E+00 -1.943E+01 -3.199E+01  1.041E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    207                3.5810  1.357E+00 -1.890E+01 -3.060E+01  1.000E+00  6.465E-02  9.377E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    207                7.1620  1.139E+00 -1.735E+01 -2.666E+01  8.831E-01  1.196E-01  1.627E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        0              -7.658E-02  5.142E-01 -9.198E-01  9.696E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        1              -1.417E-01 -6.247E-01 -1.948E+00  1.756E-01  2.122E-02 -5.574E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        2              -8.641E-02 -6.011E+00 -4.501E+00  1.094E-01  1.303E-01 -6.006E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        3              -7.872E-02 -7.011E+00 -8.943E+00  1.427E-01  3.610E-01  2.829E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        4              -1.165E-01 -3.774E+00 -6.944E+00  1.979E-01  3.943E-01  7.857E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        5              -1.258E-01 -2.033E+00 -4.862E+00  2.082E-01  3.561E-01  9.865E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        6              -1.183E-01 -1.057E+00 -3.424E+00  1.944E-01  2.959E-01  9.627E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        7              -1.032E-01 -5.176E-01 -2.442E+00  1.692E-01  2.364E-01  8.421E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        8              -8.621E-02 -2.265E-01 -1.764E+00  1.412E-01  1.854E-01  6.994E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208        9              -7.011E-02 -7.284E-02 -1.286E+00  1.148E-01  1.440E-01  5.647E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208       10              -5.601E-02  5.084E-03 -9.434E-01  9.175E-02  1.111E-01  4.481E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    208                0.0000 -1.060E+00 -2.081E+01 -3.798E+01  1.642E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    208                3.5810 -9.977E-01 -2.026E+01 -3.627E+01  1.540E+00  7.311E-01  2.049E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    208                7.1620 -8.256E-01 -1.867E+01 -3.145E+01  1.258E+00  1.339E+00  3.665E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   298\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    211        0               5.193E-03 -6.545E-01 -1.211E+00  1.233E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        1              -4.854E-02 -2.360E+00 -2.282E+00  1.193E-01  2.663E-02 -1.263E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        2              -1.748E-01 -3.708E+00  8.551E-01  3.449E-01  5.736E-02 -2.687E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        3              -7.006E-02 -2.707E-01  7.570E+00  2.294E-01  9.699E-02 -3.270E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        4              -8.309E-03  8.800E-01  6.616E+00  1.082E-01  5.607E-02 -2.872E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        5              -1.418E-03  6.771E-01  4.868E+00  6.676E-02  1.755E-02 -2.281E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        6               1.297E-03  3.869E-01  3.500E+00  3.997E-02 -1.456E-03 -1.715E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        7               2.491E-03  1.806E-01  2.499E+00  2.291E-02 -9.152E-03 -1.270E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        8               2.772E-03  5.740E-02  1.786E+00  1.254E-02 -1.146E-02 -9.387E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    211        9               2.642E-03 -9.048E-03  1.281E+00  6.351E-03 -1.130E-02 -6.945E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    211       10               2.322E-03 -4.092E-02  9.224E-01  2.715E-03 -1.016E-02 -5.145E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    211                0.0000 -2.864E-01 -4.861E+00  2.640E+01  9.654E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211                3.5810 -2.849E-01 -4.924E+00  2.476E+01  9.439E-01  2.429E-02 -4.723E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    211                7.1620 -2.800E-01 -5.106E+00  2.012E+01  8.818E-01  5.269E-02 -8.780E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        0              -1.044E-02 -3.456E-01 -1.058E+00  1.273E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        1              -7.725E-03 -2.002E+00 -2.053E+00  2.444E-01  1.768E-02 -1.198E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        2               2.818E-02 -4.415E+00  2.038E-01  1.709E-01  1.492E-01 -2.394E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        3               3.076E-02 -1.500E+00  5.431E+00  1.581E-01  4.548E-01 -2.650E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        4               3.372E-02  2.523E-01  4.898E+00  2.274E-01  4.830E-01 -2.205E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        5               3.769E-02  4.271E-01  3.650E+00  2.495E-01  4.227E-01 -1.668E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        6               3.444E-02  3.437E-01  2.639E+00  2.362E-01  3.430E-01 -1.204E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        7               2.842E-02  2.363E-01  1.887E+00  2.058E-01  2.687E-01 -8.614E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    212        8               2.235E-02  1.517E-01  1.347E+00  1.711E-01  2.071E-01 -6.188E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   299\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    212        9               1.711E-02  9.314E-02  9.633E-01  1.382E-01  1.582E-01 -4.470E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    212       10               1.286E-02  5.481E-02  6.902E-01  1.095E-01  1.201E-01 -3.243E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    212                0.0000  2.274E-01 -6.703E+00  1.860E+01  2.038E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212                3.5810  2.109E-01 -6.757E+00  1.737E+01  1.916E+00  8.473E-01 -3.456E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    212                7.1620  1.649E-01 -6.895E+00  1.392E+01  1.576E+00  1.556E+00 -6.459E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        0              -7.568E-02 -3.262E-01 -1.110E+00 -2.752E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        1              -1.535E-01 -1.968E+00 -2.175E+00 -7.872E-02 -1.593E-01 -1.111E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        2               8.601E-02 -4.658E+00 -8.543E-01 -1.682E-02 -2.392E-01 -2.162E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        3               5.802E-01 -2.319E+00  2.365E+00  2.563E-01  2.581E-03 -2.253E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        4               4.671E-01 -4.281E-01  2.369E+00  3.054E-01  5.251E-02 -1.782E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        5               3.001E-01 -6.018E-02  1.826E+00  2.549E-01  5.136E-02 -1.290E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        6               1.804E-01  4.420E-04  1.332E+00  1.887E-01  5.010E-02 -8.964E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        7               1.045E-01 -4.996E-03  9.495E-01  1.343E-01  4.589E-02 -6.224E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        8               5.873E-02 -1.863E-02  6.719E-01  9.465E-02  4.012E-02 -4.364E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    213        9               3.160E-02 -2.768E-02  4.752E-01  6.675E-02  3.396E-02 -3.092E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    213       10               1.578E-02 -3.120E-02  3.366E-01  4.723E-02  2.812E-02 -2.209E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    213                0.0000  1.595E+00 -9.842E+00  6.186E+00  1.225E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213                3.5810  1.518E+00 -9.732E+00  5.592E+00  1.143E+00  8.108E-02 -2.692E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    213                7.1620  1.298E+00 -9.409E+00  3.922E+00  9.103E-01  1.376E-01 -5.052E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        0              -1.192E-02  1.552E-02 -9.228E-01  1.451E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        1              -2.530E-02 -1.299E+00 -1.827E+00  2.644E-01 -5.089E-03 -9.483E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        2               1.407E-02 -4.629E+00 -1.599E+00  2.102E-01  1.632E-01 -1.673E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        3               1.050E-01 -3.432E+00 -6.384E-01  3.623E-01  6.301E-01 -1.456E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   300\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    214        4               8.361E-02 -1.248E+00 -1.126E-01  4.588E-01  6.689E-01 -9.971E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        5               5.890E-02 -5.077E-01  7.061E-02  4.502E-01  5.800E-01 -6.073E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        6               4.232E-02 -2.033E-01  1.084E-01  3.960E-01  4.688E-01 -3.485E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        7               3.074E-02 -7.165E-02  9.525E-02  3.286E-01  3.665E-01 -1.984E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        8               2.243E-02 -1.552E-02  7.195E-02  2.638E-01  2.821E-01 -1.134E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    214        9               1.643E-02  7.084E-03  5.109E-02  2.077E-01  2.153E-01 -6.506E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    214       10               1.205E-02  1.476E-02  3.522E-02  1.614E-01  1.633E-01 -3.733E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    214                0.0000  3.483E-01 -1.137E+01 -4.668E+00  3.248E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    214                3.5810  3.276E-01 -1.119E+01 -4.680E+00  3.051E+00  1.154E+00 -1.295E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    214                7.1620  2.691E-01 -1.065E+01 -4.708E+00  2.499E+00  2.118E+00 -2.478E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        0               8.399E-02  2.873E-01 -8.531E-01 -1.373E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        1               1.099E-01 -8.925E-01 -1.757E+00  1.719E-02 -9.085E-02 -8.321E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        2              -1.441E-01 -5.091E+00 -2.665E+00  2.167E-01 -1.066E-01 -1.331E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        3              -2.898E-01 -4.751E+00 -3.739E+00  3.661E-01  1.459E-01 -8.293E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        4              -1.478E-01 -2.085E+00 -2.571E+00  3.250E-01  1.704E-01 -3.273E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        5              -5.804E-02 -9.429E-01 -1.638E+00  2.611E-01  1.399E-01 -3.989E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        6              -9.812E-03 -3.954E-01 -1.071E+00  1.945E-01  1.138E-01  1.451E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        7               1.307E-02 -1.323E-01 -7.225E-01  1.411E-01  9.172E-02  1.884E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        8               2.201E-02 -1.122E-02 -5.001E-01  1.020E-01  7.334E-02  1.838E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215        9               2.385E-02  3.988E-02 -3.524E-01  7.403E-02  5.831E-02  1.610E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215       10               2.238E-02  5.704E-02 -2.513E-01  5.398E-02  4.609E-02  1.334E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    215                0.0000 -3.744E-01 -1.392E+01 -1.612E+01  1.738E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    215                3.5810 -3.721E-01 -1.366E+01 -1.557E+01  1.646E+00  2.672E-01 -6.976E-02  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   301\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    215                7.1620 -3.626E-01 -1.289E+01 -1.399E+01  1.388E+00  4.853E-01 -2.261E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        0              -1.828E-02  3.222E-01 -8.091E-01  1.309E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        1              -3.948E-02 -8.308E-01 -1.675E+00  2.438E-01  1.842E-02 -7.523E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        2              -3.393E-03 -5.317E+00 -3.456E+00  1.499E-01  1.521E-01 -1.070E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        3               7.518E-02 -5.581E+00 -6.524E+00  1.385E-01  4.400E-01 -4.053E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        4               3.174E-02 -2.798E+00 -4.937E+00  2.147E-01  4.595E-01  8.917E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        5               4.589E-03 -1.465E+00 -3.371E+00  2.381E-01  3.995E-01  3.594E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        6              -3.499E-03 -7.676E-01 -2.325E+00  2.258E-01  3.229E-01  4.363E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        7              -4.889E-03 -3.958E-01 -1.628E+00  1.968E-01  2.522E-01  4.128E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        8              -4.222E-03 -1.982E-01 -1.155E+00  1.635E-01  1.939E-01  3.538E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216        9              -3.119E-03 -9.319E-02 -8.268E-01  1.320E-01  1.478E-01  2.885E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216       10              -2.123E-03 -3.797E-02 -5.955E-01  1.045E-01  1.120E-01  2.285E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216                0.0000  3.250E-02 -1.716E+01 -2.730E+01  1.939E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    216                3.5810  3.218E-02 -1.673E+01 -2.614E+01  1.822E+00  8.010E-01  6.684E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    216                7.1620  3.080E-02 -1.547E+01 -2.287E+01  1.498E+00  1.472E+00  1.135E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        0               1.122E-02  6.377E-01 -7.507E-01 -1.464E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        1               4.984E-02 -3.375E-01 -1.597E+00  9.323E-03 -5.867E-02 -6.420E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        2               1.471E-01 -5.629E+00 -4.104E+00  1.309E-01 -1.248E-01 -7.319E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        3               1.767E-01 -6.596E+00 -8.506E+00  1.420E-01 -1.043E-01  2.411E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        4               1.307E-01 -3.377E+00 -6.517E+00  1.006E-01 -1.022E-01  7.847E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        5               9.111E-02 -1.696E+00 -4.476E+00  7.005E-02 -9.866E-02  9.920E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        6               5.899E-02 -7.956E-01 -3.094E+00  4.224E-02 -8.415E-02  9.614E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        7               3.685E-02 -3.247E-01 -2.168E+00  2.268E-02 -6.829E-02  8.311E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   302\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    217        8               2.255E-02 -8.858E-02 -1.539E+00  1.042E-02 -5.422E-02  6.808E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217        9               1.352E-02  2.345E-02 -1.103E+00  3.183E-03 -4.260E-02  5.415E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217       10               7.884E-03  7.079E-02 -7.962E-01 -8.545E-04 -3.326E-02  4.231E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    217                0.0000  7.466E-01 -1.811E+01 -3.465E+01  5.160E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    217                3.5810  7.199E-01 -1.769E+01 -3.312E+01  4.993E-01 -2.222E-01  1.980E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    217                7.1620  6.436E-01 -1.643E+01 -2.879E+01  4.509E-01 -4.085E-01  3.540E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        0              -4.007E-02 -7.800E-01 -1.053E+00  1.173E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        1              -5.878E-02 -2.622E+00 -1.978E+00  2.022E-01  1.259E-03 -1.292E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        2               1.201E-01 -3.907E+00  1.237E+00  7.335E-02  5.841E-02 -2.738E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        3               3.590E-01 -2.712E-01  8.033E+00  6.845E-02  1.773E-01 -3.266E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        4               2.717E-01  8.652E-01  6.801E+00  1.512E-01  1.945E-01 -2.811E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        5               1.809E-01  6.293E-01  4.842E+00  1.744E-01  1.770E-01 -2.185E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        6               1.164E-01  3.308E-01  3.370E+00  1.660E-01  1.465E-01 -1.603E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        7               7.354E-02  1.310E-01  2.331E+00  1.434E-01  1.159E-01 -1.158E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        8               4.606E-02  1.920E-02  1.615E+00  1.173E-01  8.957E-02 -8.340E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    221        9               2.862E-02 -3.584E-02  1.123E+00  9.284E-02  6.836E-02 -6.015E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    221       10               1.757E-02 -5.818E-02  7.834E-01  7.194E-02  5.173E-02 -4.344E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    221                0.0000  1.115E+00 -5.699E+00  2.711E+01  1.378E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221                3.5810  1.062E+00 -5.737E+00  2.554E+01  1.296E+00  3.554E-01 -4.451E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    221                7.1620  9.122E-01 -5.847E+00  2.112E+01  1.066E+00  6.513E-01 -8.299E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        0              -3.465E-02 -4.812E-01 -1.003E+00 -6.588E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        1              -1.522E-02 -2.167E+00 -1.913E+00 -7.986E-02 -5.597E-02 -1.213E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        2               1.687E-01 -4.264E+00  5.204E-01  1.104E-01 -1.042E-01 -2.497E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   303\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    222        3               2.013E-01 -1.361E+00  5.860E+00  1.813E-01 -2.283E-02 -2.845E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        4               7.537E-02  1.903E-01  5.098E+00  1.210E-01 -2.207E-02 -2.356E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        5               8.829E-03  2.890E-01  3.692E+00  7.726E-02 -3.336E-02 -1.770E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        6              -2.138E-02  1.931E-01  2.604E+00  4.240E-02 -3.120E-02 -1.266E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        7              -3.194E-02  1.012E-01  1.821E+00  2.011E-02 -2.529E-02 -8.964E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        8              -3.295E-02  4.063E-02  1.274E+00  7.491E-03 -1.937E-02 -6.366E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    222        9              -2.987E-02  6.073E-03  8.938E-01  8.655E-04 -1.443E-02 -4.542E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    222       10              -2.539E-02 -1.144E-02  6.290E-01 -2.306E-03 -1.059E-02 -3.253E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    222                0.0000  2.628E-01 -7.463E+00  1.948E+01  4.128E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222                3.5810  2.732E-01 -7.448E+00  1.827E+01  3.959E-01 -8.178E-02 -3.626E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    222                7.1620  2.995E-01 -7.400E+00  1.487E+01  3.470E-01 -1.513E-01 -6.781E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        0              -1.992E-02 -2.916E-01 -8.783E-01  1.392E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        1              -4.191E-02 -1.858E+00 -1.724E+00  2.763E-01  1.104E-02 -1.121E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        2               5.438E-02 -4.496E+00 -4.266E-01  2.584E-01  1.906E-01 -2.162E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        3               2.605E-01 -2.253E+00  2.733E+00  3.508E-01  6.494E-01 -2.234E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        4               2.036E-01 -3.967E-01  2.566E+00  4.236E-01  6.618E-01 -1.748E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        5               1.366E-01 -2.944E-02  1.905E+00  4.137E-01  5.531E-01 -1.244E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        6               9.112E-02  3.327E-02  1.351E+00  3.603E-01  4.333E-01 -8.460E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        7               6.105E-02  2.807E-02  9.401E-01  2.945E-01  3.296E-01 -5.744E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        8               4.125E-02  1.259E-02  6.505E-01  2.324E-01  2.474E-01 -3.936E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    223        9               2.808E-02  4.488E-04  4.501E-01  1.794E-01  1.845E-01 -2.725E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    223       10               1.923E-02 -6.734E-03  3.120E-01  1.365E-01  1.369E-01 -1.902E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    223                0.0000  8.339E-01 -9.259E+00  7.879E+00  3.065E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   304\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    223                3.5810  7.910E-01 -9.172E+00  7.276E+00  2.889E+00  1.075E+00 -2.569E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    223                7.1620  6.692E-01 -8.914E+00  5.573E+00  2.396E+00  1.980E+00 -4.834E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        0               6.380E-03 -2.020E-02 -8.260E-01 -2.502E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        1               7.709E-03 -1.371E+00 -1.646E+00 -2.312E-02 -7.933E-02 -1.001E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        2               4.613E-02 -4.679E+00 -1.443E+00  9.598E-02 -9.096E-02 -1.795E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        3               1.631E-01 -3.384E+00 -4.926E-01  1.992E-01  1.552E-01 -1.554E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        4               1.391E-01 -1.167E+00 -7.497E-03  2.161E-01  1.681E-01 -1.037E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        5               9.689E-02 -4.417E-01  1.314E-01  1.923E-01  1.279E-01 -6.170E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        6               6.529E-02 -1.581E-01  1.397E-01  1.495E-01  9.766E-02 -3.443E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        7               4.376E-02 -4.281E-02  1.098E-01  1.104E-01  7.475E-02 -1.897E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        8               2.938E-02  2.033E-03  7.756E-02  8.001E-02  5.724E-02 -1.044E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    224        9               1.982E-02  1.727E-02  5.220E-02  5.765E-02  4.379E-02 -5.728E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    224       10               1.341E-02  2.029E-02  3.423E-02  4.145E-02  3.340E-02 -3.112E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    224                0.0000  6.309E-01 -1.122E+01 -3.870E+00  1.095E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224                3.5810  6.009E-01 -1.106E+01 -3.897E+00  1.027E+00  2.313E-01 -1.328E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    224                7.1620  5.156E-01 -1.057E+01 -3.968E+00  8.374E-01  4.232E-01 -2.546E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        0               1.077E-02  2.894E-01 -6.722E-01  1.364E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        1               7.703E-03 -8.565E-01 -1.392E+00  2.455E-01 -1.365E-02 -8.862E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        2              -3.187E-02 -4.950E+00 -2.332E+00  1.648E-01  1.387E-01 -1.387E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        3              -4.434E-02 -4.571E+00 -3.592E+00  2.804E-01  5.879E-01 -8.291E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        4              -3.940E-02 -1.954E+00 -2.507E+00  3.939E-01  6.151E-01 -3.156E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        5              -2.834E-02 -8.649E-01 -1.609E+00  3.981E-01  5.211E-01  9.570E-03  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        6              -1.656E-02 -3.582E-01 -1.058E+00  3.512E-01  4.119E-01  1.533E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   305\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    225        7              -8.357E-03 -1.207E-01 -7.155E-01  2.889E-01  3.151E-01  1.897E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        8              -3.428E-03 -1.399E-02 -4.943E-01  2.287E-01  2.374E-01  1.796E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225        9              -6.980E-04  2.993E-02 -3.461E-01  1.769E-01  1.774E-01  1.532E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225       10               6.880E-04  4.420E-02 -2.443E-01  1.348E-01  1.318E-01  1.240E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    225                0.0000 -1.538E-01 -1.333E+01 -1.496E+01  2.800E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    225                3.5810 -1.479E-01 -1.308E+01 -1.442E+01  2.629E+00  1.008E+00 -8.106E-02  0.000E+00  0.000E+00  0.000E+00   \r\n0    225                7.1620 -1.307E-01 -1.235E+01 -1.289E+01  2.154E+00  1.855E+00 -2.458E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        0               7.112E-02  4.538E-01 -6.426E-01 -6.191E-02  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        1               1.304E-01 -5.818E-01 -1.358E+00 -8.586E-02 -5.533E-02 -8.121E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        2               8.842E-02 -5.177E+00 -3.289E+00  8.118E-02 -1.029E-01 -1.142E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        3               1.066E-01 -5.439E+00 -6.562E+00  1.797E-01 -3.734E-02 -3.260E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        4               1.346E-01 -2.506E+00 -4.887E+00  1.283E-01 -4.243E-02  2.251E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        5               1.304E-01 -1.148E+00 -3.268E+00  8.156E-02 -5.241E-02  4.927E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        6               1.142E-01 -4.886E-01 -2.211E+00  4.395E-02 -4.759E-02  5.453E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        7               9.445E-02 -1.708E-01 -1.522E+00  1.999E-02 -3.869E-02  4.942E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        8               7.563E-02 -2.453E-02 -1.062E+00  6.504E-03 -3.007E-02  4.115E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226        9               5.938E-02  3.736E-02 -7.490E-01 -4.797E-04 -2.285E-02  3.280E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226       10               4.599E-02  5.854E-02 -5.317E-01 -3.722E-03 -1.715E-02  2.547E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226                0.0000  1.051E+00 -1.499E+01 -2.608E+01  3.892E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    226                3.5810  9.940E-01 -1.468E+01 -2.498E+01  3.727E-01 -1.203E-01  8.837E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    226                7.1620  8.344E-01 -1.378E+01 -2.188E+01  3.246E-01 -2.214E-01  1.528E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        0               3.799E-02  7.791E-01 -5.026E-01  1.141E-01  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        1               4.995E-02 -1.352E-02 -1.117E+00  2.230E-01  2.901E-02 -7.150E-01  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   306\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n     S T R E S S E S  I N  A X I S - S Y M M E T R I C  T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)\r\n \r\n ELEMENT   HARMONIC    POINT    RADIAL      AXIAL      CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   D E N S I T I E S\r\n ID.       NUMBER      ANGLE     (R)         (Z)     (THETA-T)    (ZR)       (RT)       (ZT)        (R)        (Z)        (T)\r\n0    227        2              -1.219E-01 -5.263E+00 -3.783E+00  1.637E-01  9.872E-02 -8.294E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        3              -3.425E-01 -6.312E+00 -8.443E+00  1.314E-01  2.035E-01  1.657E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        4              -2.756E-01 -3.097E+00 -6.404E+00  1.648E-01  2.111E-01  7.116E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        5              -1.869E-01 -1.455E+00 -4.312E+00  1.732E-01  1.852E-01  9.196E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        6              -1.184E-01 -6.120E-01 -2.915E+00  1.608E-01  1.495E-01  8.860E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        7              -7.211E-02 -1.942E-01 -1.995E+00  1.378E-01  1.162E-01  7.545E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        8              -4.270E-02  3.433E-05 -1.380E+00  1.124E-01  8.873E-02  6.065E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227        9              -2.447E-02  8.116E-02 -9.636E-01  8.898E-02  6.712E-02  4.726E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227       10              -1.335E-02  1.067E-01 -6.766E-01  6.896E-02  5.043E-02  3.613E-01  0.000E+00  0.000E+00  0.000E+00   \r\n0    227                0.0000 -1.110E+00 -1.598E+01 -3.249E+01  1.539E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    227                3.5810 -1.059E+00 -1.563E+01 -3.107E+01  1.457E+00  3.730E-01  1.740E+00  0.000E+00  0.000E+00  0.000E+00   \r\n0    227                7.1620 -9.133E-01 -1.461E+01 -2.704E+01  1.228E+00  6.863E-01  3.108E+00  0.000E+00  0.000E+00  0.000E+00   \r\n1     ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   307\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK OES1G    MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK OES1AM   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK OES1AG   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SH      \r\n DATE:  5/17/95\r\n END TIME: 15:11: 1\r\n TOTAL WALL CLOCK TIME      6 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01161a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01161A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE              \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                          \r\n                  3      LABEL    = TEMPERATURE DEPENDENT MATERIALS.                                     \r\n                  4         TEMPERATURE(MATERIALS) = 3000                                                \r\n                  5         SPC = 11                                                                     \r\n                  6         DISPLACEMENT = ALL                                                           \r\n                  7      SUBCASE 10                                                                      \r\n                  8         LABEL = DESIGN CASE - UNIFORM END LOAD                                       \r\n                  9         SET 111 = 1 THRU 105 EXCEPT 7                                                \r\n                 10         STRESS  = 111                                                                \r\n                 11         LOAD  = 10                                                                   \r\n                 12      SUBCASE 12                                                                      \r\n                 13         LABEL = CHECK CASE - CONTACT LOAD AT NOZZLE.                                 \r\n                 14         LOAD  = 12                                                                   \r\n                 15      PLOTID   = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                          \r\n                 16      OUTPUT(PLOT)                                                                    \r\n                 17      PLOTTER NASTPLT                                                                 \r\n                 18        SET 1 = 1, 7, 38, 61, 69                                                      \r\n                 19        SET 2 INCLUDE ELEMENTS QDMEM, TRMEM                                           \r\n                 20              MAXIMUM DEFORMATION 0.8                                                 \r\n                 21              AXES Z, X, Y                                                            \r\n                 22              VIEW   0.0, 0.0, 0.0                                                    \r\n                 23         FIND SCALE, ORIGIN 12, SET 1                                                 \r\n                 24      PTITLE = ARCH MODEL                                                             \r\n                 25      PLOT SET 2, ORIGIN 12 LABEL,SHRINK                                              \r\n                 26      PTITLE = ELEMENT AND PROPERTY ID-S                                              \r\n                 27      PLOT SET 2, ORIGIN 12, LABEL EPID                                               \r\n                 28      PTITLE = DEFLECTION VECTORS FOR BOTH LOADS AND EACH ITERATION                   \r\n                 29      PLOT STATIC DEFORMATION SET 2, ORIGIN 12, VECTOR RXY, SYMBOL 7                  \r\n                 30         FIND SCALE, ORIGIN 12, SET 1, REGION  0.0, 0.0, 0.6, 1.0                     \r\n                 31      PTITLE = ARCH MODEL REFLECTED ABOUT VERTICAL AXIS                               \r\n                 32      PLOT SET 2, ORIGIN 12, SYMMETRY X, SET 2, ORIGIN 12                             \r\n                 33      PTITLE = MAJOR PRINCIPAL STRESS CONTOURS FOR OPTIMIZED CASE                     \r\n                 34      CONTOUR, MAJPRIN, EVEN 20, LOCAL                                                \r\n                 35      PLOT STATIC DEFORMATION, CONTOUR 10, SET 2, ORIGIN 12, OUTLINE                  \r\n                 36      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   173, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQDMEM  1               11      13      3       1                               \r\n                    2-        CQDMEM  3               13      15      5       3                               \r\n                    3-        CQDMEM  5       15      15      17      7       5                               \r\n                    4-        CQDMEM  7       17      17      19      9       7                               \r\n                    5-        CQDMEM  13              23      25      15      13                              \r\n                    6-        CQDMEM  15              25      27      17      15                              \r\n                    7-        CQDMEM  17              27      29      19      17                              \r\n                    8-        CQDMEM  31              41      43      33      31                              \r\n                    9-        CQDMEM  41              51      53      43      41                              \r\n                   10-        CQDMEM  51              61      63      53      51                              \r\n                   11-        CQDMEM  61              71      73      63      61                              \r\n                   12-        CROD    101             48      49      102     102     49      59              \r\n                   13-        CROD    103             59      69      104     104     69      78              \r\n                   14-        CROD    105             78      79                                              \r\n                   15-        CTRMEM  11              13      11      21                                      \r\n                   16-        CTRMEM  12              21      23      13                                      \r\n                   17-        CTRMEM  21              31      33      21                                      \r\n                   18-        CTRMEM  22              23      21      33                                      \r\n                   19-        CTRMEM  23              33      35      23                                      \r\n                   20-        CTRMEM  24              25      23      35                                      \r\n                   21-        CTRMEM  25              35      37      25                                      \r\n                   22-        CTRMEM  26              27      25      37                                      \r\n                   23-        CTRMEM  27              37      38      27                                      \r\n                   24-        CTRMEM  28              38      39      27                                      \r\n                   25-        CTRMEM  29              29      27      39                                      \r\n                   26-        CTRMEM  32              35      33      43                                      \r\n                   27-        CTRMEM  33              43      45      35                                      \r\n                   28-        CTRMEM  34              37      35      45                                      \r\n                   29-        CTRMEM  35              45      47      37                                      \r\n                   30-        CTRMEM  36              47      38      37                                      \r\n                   31-        CTRMEM  37              47      49      38                                      \r\n                   32-        CTRMEM  38              49      48      38                                      \r\n                   33-        CTRMEM  39              38      48      39                                      \r\n                   34-        CTRMEM  42              53      55      43                                      \r\n                   35-        CTRMEM  43              45      43      55                                      \r\n                   36-        CTRMEM  44              55      57      45                                      \r\n                   37-        CTRMEM  45              47      45      57                                      \r\n                   38-        CTRMEM  46              57      59      47                                      \r\n                   39-        CTRMEM  47              59      49      47                                      \r\n                   40-        CTRMEM  52              63      65      53                                      \r\n                   41-        CTRMEM  53              55      53      65                                      \r\n                   42-        CTRMEM  54              65      67      55                                      \r\n                   43-        CTRMEM  55              57      55      67                                      \r\n                   44-        CTRMEM  57              67      69      57                                      \r\n                   45-        CTRMEM  59              59      57      69                                      \r\n                   46-        CTRMEM  62              65      63      73                                      \r\n                   47-        CTRMEM  63              73      75      65                                      \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRMEM  64              67      65      75                                      \r\n                   49-        CTRMEM  65              75      77      67                                      \r\n                   50-        CTRMEM  67              69      67      78                                      \r\n                   51-        CTRMEM  68              67      77      78      90.0                            \r\n                   52-        CTRMEM  69              77      79      78                                      \r\n                   53-        FORCE   10      1               .3125E5 .0      1.0     .0                      \r\n                   54-        FORCE   10      3               .625E5  .0      1.0     .0                      \r\n                   55-        FORCE   10      5               .625E5  .0      1.0     .0                      \r\n                   56-        FORCE   10      7               .625E5  .0      1.0     .0                      \r\n                   57-        FORCE   10      9               .3125E5 .0      1.0     .0                      \r\n                   58-        FORCE   12      69              100.+1  -1.0                                    \r\n                   59-        FORCE   12      78              200.+1  -1.0                                    \r\n                   60-        FORCE   12      79              100.+1  -1.0                                    \r\n                   61-        GRDSET                                                  3456                    \r\n                   62-        GRID    1               -10.    15.                                             \r\n                   63-        GRID    3               -7.5    15.                                             \r\n                   64-        GRID    5               -5.     15.                                             \r\n                   65-        GRID    7               -2.5    15.                                             \r\n                   66-        GRID    9               .0      15.                                             \r\n                   67-        GRID    11              -10.    12.                                             \r\n                   68-        GRID    13              -7.5    12.                                             \r\n                   69-        GRID    15              -5.     12.                                             \r\n                   70-        GRID    17              -2.5    12.                                             \r\n                   71-        GRID    19              .0      12.                                             \r\n                   72-        GRID    21              -10.    9.                                              \r\n                   73-        GRID    23              -7.5    9.                                              \r\n                   74-        GRID    25              -5.     9.                                              \r\n                   75-        GRID    27              -2.5    9.                                              \r\n                   76-        GRID    29              .0      9.                                              \r\n                   77-        GRID    31              -10.    7.25                                            \r\n                   78-        GRID    33              -8.5    7.25                                            \r\n                   79-        GRID    35              -6.     7.25                                            \r\n                   80-        GRID    37              -4.     7.25                                            \r\n                   81-        GRID    38              -2.     6.5                                             \r\n                   82-        GRID    39              .0      7.25                                            \r\n                   83-        GRID    41              -10.    5.25                                            \r\n                   84-        GRID    43              -8.5    5.25                                            \r\n                   85-        GRID    45              -6.     5.25                                            \r\n                   86-        GRID    47              -4.     5.5                                             \r\n                   87-        GRID    48              .0      5.                                              \r\n                   88-        GRID    49              -2.     4.582576                                        \r\n                   89-        GRID    51              -10.    3.5                                             \r\n                   90-        GRID    53              -8.5    3.5                                             \r\n                   91-        GRID    55              -6.5    3.5                                             \r\n                   92-        GRID    57              -5.     3.75                                            \r\n                   93-        GRID    59              -3.5707 3.5                                             \r\n                   94-        GRID    61              -10.    1.75                                            \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    63              -8.5    1.75                                            \r\n                   96-        GRID    65              -7.     1.75                                            \r\n                   97-        GRID    67              -5.75   1.75                                            \r\n                   98-        GRID    69              -4.4651 2.25                                            \r\n                   99-        GRID    71              -10.    .0                                              \r\n                  100-        GRID    73              -8.5    .0                                              \r\n                  101-        GRID    75              -7.     .0                                              \r\n                  102-        GRID    77              -5.75   .0                                              \r\n                  103-        GRID    78              -4.899  1.                                              \r\n                  104-        GRID    79              -5.     .0                                              \r\n                  105-        MAT1    1       30.E06          .3      .283            70.0            +CONST  \r\n                  106-        +CONST                  12.5E3                                                  \r\n                  107-        MAT1    2       30.+6           .3      .283            70.             +TDEP   \r\n                  108-        +TDEP                   1.E3                                                    \r\n                  109-        MAT1    3       30.E06                  .283            70.             +MATROD \r\n                  110-        +MATROD 25.E3   25.E3                                                           \r\n                  111-        MATT1   2                                                               +MATT1  \r\n                  112-        +MATT1                  222                                                     \r\n                  113-        PARAM   GRDPNT  0                                                               \r\n                  114-        PLIMIT  QDMEM   .2986858        1       THRU    61                      FSD     \r\n                  115-        PLIMIT  TRMEM   .2986858        11      THRU    69                      FSD     \r\n                  116-        POPT    5       .04     .95     2       YES                             FSD     \r\n                  117-        PQDMEM  1       1       3.348                                                   \r\n                  118-        PQDMEM  3       1       3.348                                                   \r\n                  119-        PQDMEM  13      1       3.348                                                   \r\n                  120-        PQDMEM  15      1       3.348                                                   \r\n                  121-        PQDMEM  17      1       3.348                                                   \r\n                  122-        PQDMEM  31      1       3.348                                                   \r\n                  123-        PQDMEM  41      1       3.348                                                   \r\n                  124-        PQDMEM  51      1       3.348                                                   \r\n                  125-        PQDMEM  61      1       3.348                                                   \r\n                  126-        PROD    101     3       1.674                                                   \r\n                  127-        PROD    102     3       1.674                                                   \r\n                  128-        PROD    103     3       1.674                                                   \r\n                  129-        PROD    104     3       1.674                                                   \r\n                  130-        PROD    105     3       1.674                                                   \r\n                  131-        PTRMEM  11      1       3.348                                                   \r\n                  132-        PTRMEM  12      1       3.348                                                   \r\n                  133-        PTRMEM  21      1       3.348                                                   \r\n                  134-        PTRMEM  22      1       3.348                                                   \r\n                  135-        PTRMEM  23      1       3.348                                                   \r\n                  136-        PTRMEM  24      1       3.348                                                   \r\n                  137-        PTRMEM  25      1       3.348                                                   \r\n                  138-        PTRMEM  26      1       3.348                                                   \r\n                  139-        PTRMEM  27      1       3.348                                                   \r\n                  140-        PTRMEM  28      1       3.348                                                   \r\n                  141-        PTRMEM  29      1       3.348                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        PTRMEM  32      1       3.348                                                   \r\n                  143-        PTRMEM  33      1       3.348                                                   \r\n                  144-        PTRMEM  34      1       3.348                                                   \r\n                  145-        PTRMEM  35      1       3.348                                                   \r\n                  146-        PTRMEM  36      1       3.348                                                   \r\n                  147-        PTRMEM  37      2       3.348                                                   \r\n                  148-        PTRMEM  38      2       3.348                                                   \r\n                  149-        PTRMEM  39      2       3.348                                                   \r\n                  150-        PTRMEM  42      1       3.348                                                   \r\n                  151-        PTRMEM  43      1       3.348                                                   \r\n                  152-        PTRMEM  44      1       3.348                                                   \r\n                  153-        PTRMEM  45      1       3.348                                                   \r\n                  154-        PTRMEM  46      2       3.348                                                   \r\n                  155-        PTRMEM  47      2       3.348                                                   \r\n                  156-        PTRMEM  52      1       3.348                                                   \r\n                  157-        PTRMEM  53      1       3.348                                                   \r\n                  158-        PTRMEM  54      1       3.348                                                   \r\n                  159-        PTRMEM  55      1       3.348                                                   \r\n                  160-        PTRMEM  57      2       3.348                                                   \r\n                  161-        PTRMEM  59      2       3.348                                                   \r\n                  162-        PTRMEM  62      1       3.348                                                   \r\n                  163-        PTRMEM  63      1       3.348                                                   \r\n                  164-        PTRMEM  64      1       3.348                                                   \r\n                  165-        PTRMEM  65      1       3.348                                                   \r\n                  166-        PTRMEM  67      2       3.348                                                   \r\n                  167-        PTRMEM  68      2       3.348                                                   \r\n                  168-        PTRMEM  69      2       3.348                                                   \r\n                  169-        SPC1    11      1       9       19      29      39      48                      \r\n                  170-        SPC1    11      2       71      73      75      77      79                      \r\n                  171-        TABLEM1 222                                                             +TAB-M1 \r\n                  172-        +TAB-M1 1.      12.5E3  10.     12.5E3  ENDT                                    \r\n                  173-        TEMPD   3000    80.                                                             \r\n                              ENDDATA\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD        3 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            270\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    6.279\r\n                                        RMS WAVEFRONT    6.484\r\n                                        RMS BANDWIDTH    6.541\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            9\r\n                                        PROFILE            264\r\n                                        MAX WAVEFRONT        9\r\n                                        AVG WAVEFRONT    6.140\r\n                                        RMS WAVEFRONT    6.354\r\n                                        RMS BANDWIDTH    6.534\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         9\r\n                                        PROFILE (P)                        270       264\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         9\r\n                                        AVERAGE WAVEFRONT (C-AVG)        6.279     6.140\r\n                                        RMS WAVEFRONT (C-RMS)            6.484     6.354\r\n                                        RMS BANDWITCH (B-RMS)            6.541     6.534\r\n                                        NUMBER OF GRID POINTS (N)                     43\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                54\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                       113\r\n                                        MATRIX DENSITY, PERCENT                   14.548\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  11\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1      31       3      37       5      41       7      43\r\n                         SEQGP          9      42      11      30      13      36      15      40\r\n                         SEQGP         17      39      19      38      21      29      23      34\r\n                         SEQGP         25      33      27      32      29      35      31      23\r\n                         SEQGP         33      27      35      26      37      25      38      24\r\n                         SEQGP         39      28      41      21      43      20      45      19\r\n                         SEQGP         47      18      48      22      49      17      51      16\r\n                         SEQGP         53      15      55      14      57      13      59      12\r\n                         SEQGP         61      10      63      11      65       9      67       8\r\n                         SEQGP         69       7      71       6      73       5      75       4\r\n                         SEQGP         77       3      78       2      79       1\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -5.038315E+00, Y0 = -0.932505E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -5.038315E+00, Y0 = -0.932505E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -3.324618E+00, Y0 = -0.141947E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        3  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  1.27579471D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -1.03942636D+03 *\r\n                *  0.00000000D+00  1.27579471D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00 -6.83771390D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  1.27579471D+02  1.03942636D+03  6.83771390D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  1.03942636D+03  1.07163364D+04  5.28215763D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  6.83771390D+02  5.28215763D+03  4.76943701D+03  0.00000000D+00 *\r\n                * -1.03942636D+03 -6.83771390D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.54857734D+04 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            1.275794714D+02      0.000000000D+00  8.147285329D+00  0.000000000D+00\r\n                            Y            1.275794714D+02     -5.359572216D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            1.275794714D+02     -5.359572216D+00  8.147285329D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  2.247833289D+03  2.887229808D+02  0.000000000D+00  *\r\n                                      *  2.887229808D+02  1.104714865D+03  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  3.352548155D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.035929723D+03                                    *\r\n                                      *                   2.316618432D+03                   *\r\n                                      *                                    3.352548155D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  2.317530886D-01  9.727746429D-01  0.000000000D+00  *\r\n                                      * -9.727746429D-01  2.317530886D-01  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -8.2019481E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   3.0981488E-15\r\n0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES))\r\n     IN ONE OR MORE SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)\r\n\r\n            1+++        3+++        5+++       13+++       15+++       17+++       31+++       41+++       51+++       61+++ \r\n          101+++      102+++      103+++      104+++      105+++       11+++       12+++       21+++       22+++       23+++ \r\n           24+++       25+++       26+++       27+++       28+++       29+++       32+++       33+++       34+++       35+++ \r\n           36+++       37+++       38+++       39+++       42+++       43+++       44+++       45+++       46+++       47+++ \r\n           52+++       53+++       54+++       55+++       57+++       59+++       62+++       63+++       64+++       65+++ \r\n           67+++       68+++       69+++ \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0        PROPERTIES USED DURING INTERMEDIATE ITERATION    1 BY OPTPR2\r\n\r\n     PQDMEM   1        1        1.071222 0.0                                                  \r\n     PQDMEM   3        1        .9651195 0.0                                                  \r\n     PQDMEM   15       1        1.044106 0.0                                                  \r\n     PQDMEM   17       1        .7073267 0.0                                                  \r\n     PQDMEM   13       1        1.218299 0.0                                                  \r\n     PQDMEM   31       1        1.505458 0.0                                                  \r\n     PQDMEM   41       1        1.443331 0.0                                                  \r\n     PQDMEM   51       1        1.254365 0.0                                                  \r\n     PQDMEM   61       1        1.074768 0.0                                                  \r\n     PROD     101      3        .4442439 0.0      0.0      0.0                                \r\n     PROD     102      3        0.057833 0.0      0.0      0.0                                \r\n     PROD     103      3        .7338835 0.0      0.0      0.0                                \r\n     PROD     104      3        1.278474 0.0      0.0      0.0                                \r\n     PROD     105      3        1.515862 0.0      0.0      0.0                                \r\n     PTRMEM   11       1        1.247378 0.0                                                  \r\n     PTRMEM   12       1        1.268776 0.0                                                  \r\n     PTRMEM   21       1        1.526466 0.0                                                  \r\n     PTRMEM   22       1        1.418664 0.0                                                  \r\n     PTRMEM   23       1        1.440864 0.0                                                  \r\n     PTRMEM   24       1        1.405627 0.0                                                  \r\n     PTRMEM   25       1        1.537694 0.0                                                  \r\n     PTRMEM   26       1        1.16755  0.0                                                  \r\n     PTRMEM   27       1        1.243675 0.0                                                  \r\n     PTRMEM   28       1        .7109981 0.0                                                  \r\n     PTRMEM   29       1        .5958584 0.0                                                  \r\n     PTRMEM   32       1        1.533594 0.0                                                  \r\n     PTRMEM   33       1        1.615692 0.0                                                  \r\n     PTRMEM   34       1        1.640791 0.0                                                  \r\n     PTRMEM   35       1        1.663493 0.0                                                  \r\n     PTRMEM   36       1        1.518806 0.0                                                  \r\n     PTRMEM   37       2        1.16544  0.0                                                  \r\n     PTRMEM   38       2        1.195288 0.0                                                  \r\n     PTRMEM   39       2        .6632436 0.0                                                  \r\n     PTRMEM   42       1        1.560347 0.0                                                  \r\n     PTRMEM   43       1        1.805321 0.0                                                  \r\n     PTRMEM   44       1        1.759308 0.0                                                  \r\n     PTRMEM   45       1        1.803497 0.0                                                  \r\n     PTRMEM   46       2        1.560043 0.0                                                  \r\n     PTRMEM   47       2        1.59514  0.0                                                  \r\n     PTRMEM   52       1        1.343613 0.0                                                  \r\n     PTRMEM   53       1        1.717822 0.0                                                  \r\n     PTRMEM   54       1        1.646737 0.0                                                  \r\n     PTRMEM   55       1        2.068011 0.0                                                  \r\n     PTRMEM   57       2        1.737657 0.0                                                  \r\n     PTRMEM   59       2        2.07212  0.0                                                  \r\n     PTRMEM   62       1        1.22372  0.0                                                  \r\n     PTRMEM   63       1        1.595381 0.0                                                  \r\n     PTRMEM   64       1        1.552233 0.0                                                  \r\n     PTRMEM   65       1        1.966814 0.0                                                  \r\n     PTRMEM   67       2        2.635926 0.0                                                  \r\n     PTRMEM   68       2        1.905292 0.0                                                  \r\n     PTRMEM   69       2        2.900582 0.0                                                  \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.821330E-06   4.463533E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.662125E-04   4.880861E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.397044E-04   5.362344E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.730450E-04   5.768419E-03   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            5.930198E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      4.243813E-04   3.676291E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      2.214705E-04   4.120482E-03   0.0            0.0            0.0            0.0                           \r\n            15      G      7.384723E-05   4.659455E-03   0.0            0.0            0.0            0.0                           \r\n            17      G      3.596370E-06   5.132475E-03   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            5.325631E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      7.917140E-04   2.759396E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      5.459347E-04   3.253321E-03   0.0            0.0            0.0            0.0                           \r\n            25      G      2.884250E-04   3.903282E-03   0.0            0.0            0.0            0.0                           \r\n            27      G      9.539562E-05   4.534599E-03   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0            4.811072E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      1.122056E-03   2.122282E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      9.492157E-04   2.449180E-03   0.0            0.0            0.0            0.0                           \r\n            35      G      6.302312E-04   3.082057E-03   0.0            0.0            0.0            0.0                           \r\n            37      G      3.304072E-04   3.739155E-03   0.0            0.0            0.0            0.0                           \r\n            38      G      1.692269E-04   4.260318E-03   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0            4.618727E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      1.608188E-03   1.395537E-03   0.0            0.0            0.0            0.0                           \r\n            43      G      1.439375E-03   1.739556E-03   0.0            0.0            0.0            0.0                           \r\n            45      G      1.056256E-03   2.373940E-03   0.0            0.0            0.0            0.0                           \r\n            47      G      6.377807E-04   3.231311E-03   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0            4.530326E-03   0.0            0.0            0.0            0.0                           \r\n            49      G      5.554355E-04   3.998240E-03   0.0            0.0            0.0            0.0                           \r\n            51      G      2.106432E-03   8.206687E-04   0.0            0.0            0.0            0.0                           \r\n            53      G      1.960665E-03   1.117764E-03   0.0            0.0            0.0            0.0                           \r\n            55      G      1.707227E-03   1.525712E-03   0.0            0.0            0.0            0.0                           \r\n            57      G      1.369143E-03   2.156304E-03   0.0            0.0            0.0            0.0                           \r\n            59      G      1.248551E-03   2.900507E-03   0.0            0.0            0.0            0.0                           \r\n            61      G      2.534436E-03   3.599752E-04   0.0            0.0            0.0            0.0                           \r\n            63      G      2.415793E-03   5.485326E-04   0.0            0.0            0.0            0.0                           \r\n            65      G      2.312277E-03   7.152221E-04   0.0            0.0            0.0            0.0                           \r\n            67      G      2.214380E-03   9.216786E-04   0.0            0.0            0.0            0.0                           \r\n            69      G      1.887825E-03   1.772448E-03   0.0            0.0            0.0            0.0                           \r\n            71      G      2.742701E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      2.651163E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G      2.535276E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G      2.430456E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G      2.259260E-03   7.630617E-04   0.0            0.0            0.0            0.0                           \r\n            79      G      2.304059E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     CHECK CASE - CONTACT LOAD AT NOZZLE.                                                                   SUBCASE 12             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.070535E-05   8.905783E-06   0.0            0.0            0.0            0.0                           \r\n             3      G      2.979222E-05  -1.447115E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      2.452122E-05  -3.903139E-05   0.0            0.0            0.0            0.0                           \r\n             7      G      1.397812E-05  -5.791377E-05   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0           -6.480613E-05   0.0            0.0            0.0            0.0                           \r\n            11      G      6.695201E-06   1.103889E-05   0.0            0.0            0.0            0.0                           \r\n            13      G      7.741342E-06  -1.405100E-05   0.0            0.0            0.0            0.0                           \r\n            15      G      6.844914E-06  -4.094277E-05   0.0            0.0            0.0            0.0                           \r\n            17      G      4.060484E-06  -6.190219E-05   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -6.944413E-05   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.744610E-05   1.900311E-05   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.500150E-05  -9.813247E-06   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.010835E-05  -4.079473E-05   0.0            0.0            0.0            0.0                           \r\n            27      G     -4.921635E-06  -6.590025E-05   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -7.431350E-05   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.067240E-05   2.808370E-05   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.806622E-05   7.116089E-06   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.105998E-05  -2.501162E-05   0.0            0.0            0.0            0.0                           \r\n            37      G     -2.116511E-05  -5.193195E-05   0.0            0.0            0.0            0.0                           \r\n            38      G     -1.544805E-05  -7.237335E-05   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -7.902690E-05   0.0            0.0            0.0            0.0                           \r\n            41      G     -7.533809E-05   3.549538E-05   0.0            0.0            0.0            0.0                           \r\n            43      G     -7.368292E-05   1.279203E-05   0.0            0.0            0.0            0.0                           \r\n            45      G     -6.349137E-05  -1.872761E-05   0.0            0.0            0.0            0.0                           \r\n            47      G     -4.482215E-05  -4.853486E-05   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0           -8.200093E-05   0.0            0.0            0.0            0.0                           \r\n            49      G     -4.008858E-05  -7.057897E-05   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.117945E-04   3.488453E-05   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.124346E-04   1.471849E-05   0.0            0.0            0.0            0.0                           \r\n            55      G     -1.087393E-04  -4.376902E-06   0.0            0.0            0.0            0.0                           \r\n            57      G     -9.256283E-05  -2.674525E-05   0.0            0.0            0.0            0.0                           \r\n            59      G     -8.745134E-05  -5.237132E-05   0.0            0.0            0.0            0.0                           \r\n            61      G     -1.458062E-04   2.259811E-05   0.0            0.0            0.0            0.0                           \r\n            63      G     -1.497287E-04   9.460794E-06   0.0            0.0            0.0            0.0                           \r\n            65      G     -1.555401E-04   2.852147E-06   0.0            0.0            0.0            0.0                           \r\n            67      G     -1.613386E-04  -2.925104E-06   0.0            0.0            0.0            0.0                           \r\n            69      G     -1.429701E-04  -3.085577E-05   0.0            0.0            0.0            0.0                           \r\n            71      G     -1.623483E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G     -1.687532E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G     -1.776006E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G     -1.909577E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G     -1.882396E-04  -1.146091E-05   0.0            0.0            0.0            0.0                           \r\n            79      G     -1.998155E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        9.204980E+01   7.765725E+03   4.338096E+02       86.7746       7.790171E+03   6.760352E+01   3.861284E+03          \r\n        3        9.540791E+02   7.602566E+03   1.006370E+03       81.5785       7.751560E+03   8.050854E+02   3.473237E+03          \r\n        5        2.183189E+03   7.349125E+03   1.086003E+03       78.5979       7.568143E+03   1.964171E+03   2.801986E+03          \r\n       13        4.619141E+00   8.118059E+03   1.707073E+03       78.5893       8.462598E+03  -3.399194E+02   4.401258E+03          \r\n       15        4.960356E+02   6.919061E+03   1.959285E+03       74.3067       7.469543E+03  -5.444727E+01   3.761995E+03          \r\n       17        1.180990E+03   5.916475E+03   9.072217E+02       79.5176       6.084330E+03   1.013135E+03   2.535597E+03          \r\n       31       -2.029727E+02   1.071188E+04  -2.357793E+02      -88.7631       1.071697E+04  -2.080635E+02   5.462515E+03          \r\n       41       -7.546094E+01   1.023446E+04  -8.952756E+02      -85.0738       1.031162E+04  -1.526260E+02   5.232123E+03          \r\n       51        4.701172E+00   8.829336E+03  -1.043530E+03      -83.3469       8.951057E+03  -1.170195E+02   4.534038E+03          \r\n       61        2.575293E+02   7.864468E+03  -7.373130E+02      -84.5146       7.935273E+03   1.867234E+02   3.874275E+03          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY\r\n         ID.        STRESS       MARGIN        STRESS      MARGIN         ID.        STRESS       MARGIN        STRESS      MARGIN\r\n           101   -6.387499E+03   2.9E+00    0.0                             102    8.219414E+02   2.9E+01    0.0                    \r\n           103    1.064538E+04   1.3E+00    0.0                             104    1.885858E+04   3.3E-01    0.0                    \r\n           105    2.252632E+04   1.1E-01    0.0                                                                                     \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       11        3.469834E+02   9.273043E+03   6.372966E+02       85.9367       9.318314E+03   3.017119E+02   4.508301E+03          \r\n       12       -3.822715E+02   8.556934E+03   1.031714E+03       83.5011       8.674463E+03  -4.998008E+02   4.587132E+03          \r\n       21       -1.980430E+02   1.086254E+04   3.365225E+02       88.2589       1.087277E+04  -2.082725E+02   5.540521E+03          \r\n       22        1.869854E+02   1.045445E+04   2.688682E+02       88.5010       1.046149E+04   1.799492E+02   5.140770E+03          \r\n       23       -1.092473E+03   9.117793E+03   1.103255E+03       83.9028       9.235644E+03  -1.210323E+03   5.222983E+03          \r\n       24       -2.238906E+02   9.554086E+03   1.425299E+03       81.8734       9.757609E+03  -4.274146E+02   5.092512E+03          \r\n       25       -2.157803E+03   7.798523E+03   2.525711E+03       76.5493       8.402594E+03  -2.761873E+03   5.582233E+03          \r\n       26       -1.907285E+02   7.085406E+03   2.127878E+03       74.8385       7.662003E+03  -7.673257E+02   4.214665E+03          \r\n       27       -2.857303E+03   6.108141E+03   3.274565E+02       87.9110       6.120085E+03  -2.869247E+03   4.494666E+03          \r\n       28        3.102715E+02   2.560742E+03   2.287080E+03       58.0985       3.984406E+03  -1.113393E+03   2.548900E+03          \r\n       29       -1.709277E+02   3.246070E+03   1.276031E+03       71.6225       3.669994E+03  -5.948511E+02   2.132422E+03          \r\n       32       -6.972583E+02   1.043518E+04   9.312891E+01       89.5207       1.043596E+04  -6.980366E+02   5.567000E+03          \r\n       33       -1.550443E+03   1.015663E+04   4.700901E+02       87.7043       1.017548E+04  -1.569289E+03   5.872384E+03          \r\n       34       -1.440474E+03   1.018962E+04   1.333112E+03       83.5440       1.034047E+04  -1.591326E+03   5.965900E+03          \r\n       35       -2.518875E+03   6.929484E+03   3.780377E+03       70.6663       8.255852E+03  -3.845243E+03   6.050547E+03          \r\n       36        1.845756E+03   4.314555E+03   5.372074E+03       51.4704       8.592227E+03  -2.431916E+03   5.512071E+03          \r\n       37       -4.107727E+03   4.241250E+03  -5.213320E+02      -86.4407       4.273677E+03  -4.140154E+03   4.206916E+03          \r\n       38       -5.892549E+03   1.649836E+03   2.100302E+03       75.4426       2.195258E+03  -6.437971E+03   4.316614E+03          \r\n       39       -3.193361E+03   1.250906E+03  -8.410977E+02      -79.6339       1.404761E+03  -3.347217E+03   2.375989E+03          \r\n       42       -6.634922E+02   1.046025E+04  -1.083527E+03      -84.4880       1.056481E+04  -7.680522E+02   5.666431E+03          \r\n       43       -9.754121E+02   1.207340E+04  -8.589785E+02      -86.2499       1.212970E+04  -1.031714E+03   6.580708E+03          \r\n       44       -1.398176E+03   1.045202E+04   2.441626E+03       78.8022       1.093538E+04  -1.881535E+03   6.408455E+03          \r\n       45       -1.275215E+03   1.107501E+04   2.254729E+03       79.9706       1.147377E+04  -1.673976E+03   6.573875E+03          \r\n       46       -2.496250E+03   8.702660E+03   8.612216E+02       85.6281       8.768503E+03  -2.562093E+03   5.665298E+03          \r\n       47        1.361309E+03   1.797898E+03   5.791753E+03       46.0792       7.375469E+03  -4.216262E+03   5.795865E+03          \r\n       52        9.419395E+02   1.004083E+04  -1.718616E+03      -79.6526       1.035462E+04   6.281455E+02   4.863240E+03          \r\n       53       -1.734492E+02   1.209373E+04  -1.218039E+03      -84.3840       1.221350E+04  -2.932222E+02   6.253361E+03          \r\n       54        1.531846E+03   1.293796E+04  -1.825399E+03      -81.1257       1.322297E+04   1.246836E+03   5.988068E+03          \r\n       55       -2.729763E+02   1.420266E+04   2.213671E+03       81.4969       1.453361E+04  -6.039331E+02   7.568772E+03          \r\n       57        3.304886E+03   1.071143E+04   5.130581E+03       62.9110       1.333565E+04   6.806719E+02   6.327488E+03          \r\n       59       -7.986494E+02   1.436133E+04  -2.553477E+02      -89.0353       1.436563E+04  -8.029492E+02   7.584291E+03          \r\n       62        8.249609E+02   9.650906E+03  -2.696621E+02      -88.2516       9.659138E+03   8.167295E+02   4.421204E+03          \r\n       63        1.495104E+03   1.270948E+04  -1.470324E+03      -82.6533       1.289905E+04   1.305533E+03   5.796760E+03          \r\n       64        1.460156E+03   1.269900E+04   4.354297E+02       87.7846       1.271584E+04   1.443312E+03   5.636266E+03          \r\n       65        2.444367E+03   1.653352E+04  -1.424679E+03      -84.2834       1.667613E+04   2.301749E+03   7.187192E+03          \r\n       67        5.091932E+03   1.666825E+04   7.824211E+03       63.2466       2.061256E+04   1.147615E+03   9.732475E+03          \r\n       68        1.680823E+04   3.360102E+03  -1.780442E+03       -7.4154       1.703996E+04   3.128376E+03   6.955792E+03          \r\n       69        1.990874E+03   2.348911E+04  -3.205117E+02      -89.1460       2.349389E+04   1.986098E+03   1.075390E+04          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -5.038315E+00, Y0 = -0.932505E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    4   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n          PLOT    5   STATIC DEFORM.    12 - SUBCASE      12 - LOAD                                                                 \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -3.324618E+00, Y0 = -0.141947E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    6   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n\r\n\r\n\r\n\r\n C O N T O U R   P L O T T I N G   D A T A                                                                                          \r\n                                                                                                                                    \r\n         ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR                                                                           \r\n         THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE  Z1                                                                    \r\n\r\n\r\n\r\n\r\n                                                   TABLE  OF  PLOTTING  SYMBOLS                                                     \r\n                                                                                                                                    \r\n     SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE                  \r\n                                                                                                                                    \r\n        1   1.404761E+03                                                                                                            \r\n        2   3.859109E+03                                                                                                            \r\n        3   6.313457E+03                                                                                                            \r\n        4   8.767805E+03                                                                                                            \r\n        5   1.122215E+04                                                                                                            \r\n        6   1.367650E+04                                                                                                            \r\n        7   1.613085E+04                                                                                                            \r\n        8   1.858520E+04                                                                                                            \r\n        9   2.103954E+04                                                                                                            \r\n       10   2.349389E+04                                                                                                            \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.74011512D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -3.47739441D+02 *\r\n                *  0.00000000D+00  4.74011512D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00 -2.73248199D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  4.74011512D+01  3.47739441D+02  2.73248199D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  3.47739441D+02  3.38784567D+03  1.92787281D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  2.73248199D+02  1.92787281D+03  1.91626089D+03  0.00000000D+00 *\r\n                * -3.47739441D+02 -2.73248199D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  5.30410656D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.740115117D+01      0.000000000D+00  7.336096968D+00  0.000000000D+00\r\n                            Y            4.740115117D+01     -5.764589940D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.740115117D+01     -5.764589940D+00  7.336096968D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  8.367954101D+02  7.670247806D+01  0.000000000D+00  *\r\n                                      *  7.670247806D+01  3.410970667D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.177892477D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  3.294997467D+02                                    *\r\n                                      *                   8.483927301D+02                   *\r\n                                      *                                    1.177892477D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.494995623D-01  9.887617918D-01  0.000000000D+00  *\r\n                                      * -9.887617918D-01  1.494995623D-01  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   9.2122425E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   4.9296211E-16\r\n0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES))\r\n     IN ONE OR MORE SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)\r\n\r\n            1+          3++         5+++       13+         15          17+++       31+++       41+++       51+++       61+++ \r\n          101+++      102+++      103++        11+++       12++        21+++       22+++       23+++       24+         25    \r\n           26+         27+         28+++       29+++       32+++       33+         34          35          36          37+++ \r\n           38++        39+++       42+++       43          44+         46++        52+++       53++        54+++       57+   \r\n           62+++       63+++       64+++       65+         68+++ \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0        PROPERTIES USED DURING INTERMEDIATE ITERATION    2 BY OPTPR2\r\n\r\n     PQDMEM   1        1        1.033994 0.0                                                  \r\n     PQDMEM   3        1        .9188714 0.0                                                  \r\n     PQDMEM   15       1        1.059908 0.0                                                  \r\n     PQDMEM   17       1        .6108416 0.0                                                  \r\n     PQDMEM   13       1        1.191968 0.0                                                  \r\n     PQDMEM   31       1        1.284232 0.0                                                  \r\n     PQDMEM   41       1        1.147469 0.0                                                  \r\n     PQDMEM   51       1        .9442209 0.0                                                  \r\n     PQDMEM   61       1        .7763133 0.0                                                  \r\n     PROD     101      3        .2935847 0.0      0.0      0.0                                \r\n     PROD     102      3        0.012492 0.0      0.0      0.0                                \r\n     PROD     103      3        .6987218 0.0      0.0      0.0                                \r\n     PROD     104      3        1.532408 0.0      0.0      0.0                                \r\n     PROD     105      3        2.047833 0.0      0.0      0.0                                \r\n     PTRMEM   11       1        1.14133  0.0                                                  \r\n     PTRMEM   12       1        1.185928 0.0                                                  \r\n     PTRMEM   21       1        1.311802 0.0                                                  \r\n     PTRMEM   22       1        1.269593 0.0                                                  \r\n     PTRMEM   23       1        1.322531 0.0                                                  \r\n     PTRMEM   24       1        1.393923 0.0                                                  \r\n     PTRMEM   25       1        1.586295 0.0                                                  \r\n     PTRMEM   26       1        1.164333 0.0                                                  \r\n     PTRMEM   27       1        1.241797 0.0                                                  \r\n     PTRMEM   28       1        .5620121 0.0                                                  \r\n     PTRMEM   29       1        .4691587 0.0                                                  \r\n     PTRMEM   32       1        1.386189 0.0                                                  \r\n     PTRMEM   33       1        1.57027  0.0                                                  \r\n     PTRMEM   34       1        1.687123 0.0                                                  \r\n     PTRMEM   35       1        1.691113 0.0                                                  \r\n     PTRMEM   36       1        1.569896 0.0                                                  \r\n     PTRMEM   37       2        .9444442 0.0                                                  \r\n     PTRMEM   38       2        1.136783 0.0                                                  \r\n     PTRMEM   39       2        .4895919 0.0                                                  \r\n     PTRMEM   42       1        1.316499 0.0                                                  \r\n     PTRMEM   43       1        1.819054 0.0                                                  \r\n     PTRMEM   44       1        1.69324  0.0                                                  \r\n     PTRMEM   45       1        1.994908 0.0                                                  \r\n     PTRMEM   46       2        1.500635 0.0                                                  \r\n     PTRMEM   47       2        1.690118 0.0                                                  \r\n     PTRMEM   52       1        1.061136 0.0                                                  \r\n     PTRMEM   53       1        1.601526 0.0                                                  \r\n     PTRMEM   54       1        1.516941 0.0                                                  \r\n     PTRMEM   55       1        2.307184 0.0                                                  \r\n     PTRMEM   57       2        1.702405 0.0                                                  \r\n     PTRMEM   59       2        2.634386 0.0                                                  \r\n     PTRMEM   62       1        .9506319 0.0                                                  \r\n     PTRMEM   63       1        1.423582 0.0                                                  \r\n     PTRMEM   64       1        1.336945 0.0                                                  \r\n     PTRMEM   65       1        1.902205 0.0                                                  \r\n     PTRMEM   67       2        3.373956 0.0                                                  \r\n     PTRMEM   68       2        1.734491 0.0                                                  \r\n     PTRMEM   69       2        3.764548 0.0                                                  \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.50961252D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -3.30139626D+02 *\r\n                *  0.00000000D+00  4.50961252D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00 -2.57464502D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  4.50961252D+01  3.30139626D+02  2.57464502D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  3.30139626D+02  3.22077189D+03  1.83006659D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  2.57464502D+02  1.83006659D+03  1.77290012D+03  0.00000000D+00 *\r\n                * -3.30139626D+02 -2.57464502D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  4.99367201D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.509612523D+01      0.000000000D+00  7.320798052D+00  0.000000000D+00\r\n                            Y            4.509612523D+01     -5.709237787D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.509612523D+01     -5.709237787D+00  7.320798052D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  8.038863647D+02  5.477903122D+01  0.000000000D+00  *\r\n                                      *  5.477903122D+01  3.029740528D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.106860418D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  2.970534776D+02                                    *\r\n                                      *                   8.098069400D+02                   *\r\n                                      *                                    1.106860418D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.074552535D-01  9.942099217D-01  0.000000000D+00  *\r\n                                      * -9.942099217D-01  1.074552535D-01  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.1605210E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -7.7336327E-15\r\n0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES))\r\n     IN ONE OR MORE SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)\r\n\r\n            1+          3           5+         13          17+         31+++       41+++       51+++       61+++      101+++ \r\n          102+++      103++        11++        12++        21+++       22+++       23++        24          25          27    \r\n           28+++       29+++       32++        33+         34          35          37+++       38+         39+++       42+++ \r\n           43          44++        46++        52+++       53++        54++        57+         62+++       63+++       64+++ \r\n           65++        68+++ \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.46419732D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -3.28408190D+02 *\r\n                *  0.00000000D+00  4.46419732D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00 -2.51345648D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  4.46419732D+01  3.28408190D+02  2.51345648D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  3.28408190D+02  3.22286541D+03  1.80285042D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  2.51345648D+02  1.80285042D+03  1.70250230D+03  0.00000000D+00 *\r\n                * -3.28408190D+02 -2.51345648D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  4.92536771D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.464197324D+01      0.000000000D+00  7.356489103D+00  0.000000000D+00\r\n                            Y            4.464197324D+01     -5.630253981D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.464197324D+01     -5.630253981D+00  7.356489103D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  8.069341434D+02  4.617109323D+01  0.000000000D+00  *\r\n                                      *  4.617109323D+01  2.873624671D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.094296610D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  2.832914282D+02                                    *\r\n                                      *                   8.110051822D+02                   *\r\n                                      *                                    1.094296610D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  8.783213064D-02  9.961352904D-01  0.000000000D+00  *\r\n                                      * -9.961352904D-01  8.783213064D-02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6581286E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -4.4773581E-15\r\n0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES))\r\n     IN ONE OR MORE SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)\r\n\r\n            1+          3           5          13+         17+         31+++       41+++       51+++       61+++      101+++ \r\n          102+++      103+++       11++        12++        21+++       22+++       23++        24          25          27    \r\n           28++        29++        32++        33+         34          35+         36          37+++       38+         39+++ \r\n           42+++       43+         44++        46++        52+++       53++        54+++       57++        62+++       63++  \r\n           64+++       65+++       68+++ \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0        PROPERTIES USED DURING INTERMEDIATE ITERATION    4 BY OPTPR2\r\n\r\n     PQDMEM   1        1        1.031045 0.0                                                  \r\n     PQDMEM   3        1        .9311845 0.0                                                  \r\n     PQDMEM   15       1        1.211034 0.0                                                  \r\n     PQDMEM   17       1        .58821   0.0                                                  \r\n     PQDMEM   13       1        1.196972 0.0                                                  \r\n     PQDMEM   31       1        1.00508  0.0                                                  \r\n     PQDMEM   41       1        .8348035 0.0                                                  \r\n     PQDMEM   51       1        .6612925 0.0                                                  \r\n     PQDMEM   61       1        .5353363 0.0                                                  \r\n     PROD     101      3        .115252  0.0      0.0      0.0                                \r\n     PROD     102      3        .95971-3 0.0      0.0      0.0                                \r\n     PROD     103      3        .567601  0.0      0.0      0.0                                \r\n     PROD     104      3        1.797204 0.0      0.0      0.0                                \r\n     PROD     105      3        2.939022 0.0      0.0      0.0                                \r\n     PTRMEM   11       1        1.011748 0.0                                                  \r\n     PTRMEM   12       1        1.080094 0.0                                                  \r\n     PTRMEM   21       1        1.044504 0.0                                                  \r\n     PTRMEM   22       1        1.066173 0.0                                                  \r\n     PTRMEM   23       1        1.198598 0.0                                                  \r\n     PTRMEM   24       1        1.460319 0.0                                                  \r\n     PTRMEM   25       1        1.657861 0.0                                                  \r\n     PTRMEM   26       1        1.285158 0.0                                                  \r\n     PTRMEM   27       1        1.268225 0.0                                                  \r\n     PTRMEM   28       1        .4628378 0.0                                                  \r\n     PTRMEM   29       1        .4094069 0.0                                                  \r\n     PTRMEM   32       1        1.211546 0.0                                                  \r\n     PTRMEM   33       1        1.523078 0.0                                                  \r\n     PTRMEM   34       1        1.777022 0.0                                                  \r\n     PTRMEM   35       1        1.700289 0.0                                                  \r\n     PTRMEM   36       1        1.692735 0.0                                                  \r\n     PTRMEM   37       2        .6385411 0.0                                                  \r\n     PTRMEM   38       2        1.104635 0.0                                                  \r\n     PTRMEM   39       2        .3634879 0.0                                                  \r\n     PTRMEM   42       1        1.025942 0.0                                                  \r\n     PTRMEM   43       1        1.823302 0.0                                                  \r\n     PTRMEM   44       1        1.537771 0.0                                                  \r\n     PTRMEM   45       1        2.393018 0.0                                                  \r\n     PTRMEM   46       2        1.337129 0.0                                                  \r\n     PTRMEM   47       2        1.902055 0.0                                                  \r\n     PTRMEM   52       1        .7678915 0.0                                                  \r\n     PTRMEM   53       1        1.419793 0.0                                                  \r\n     PTRMEM   54       1        1.2843   0.0                                                  \r\n     PTRMEM   55       1        2.65112  0.0                                                  \r\n     PTRMEM   57       2        1.546774 0.0                                                  \r\n     PTRMEM   59       2        3.880642 0.0                                                  \r\n     PTRMEM   62       1        .710145  0.0                                                  \r\n     PTRMEM   63       1        1.21977  0.0                                                  \r\n     PTRMEM   64       1        1.069723 0.0                                                  \r\n     PTRMEM   65       1        1.646051 0.0                                                  \r\n     PTRMEM   67       2        4.798389 0.0                                                  \r\n     PTRMEM   68       2        1.329027 0.0                                                  \r\n     PTRMEM   69       2        5.043369 0.0                                                  \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.44065574D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -3.28284636D+02 *\r\n                *  0.00000000D+00  4.44065574D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00 -2.46971219D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  4.44065574D+01  3.28284636D+02  2.46971219D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  3.28284636D+02  3.23870221D+03  1.78462601D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  2.46971219D+02  1.78462601D+03  1.65055593D+03  0.00000000D+00 *\r\n                * -3.28284636D+02 -2.46971219D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  4.88925815D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.440655743D+01      0.000000000D+00  7.392706271D+00  0.000000000D+00\r\n                            Y            4.440655743D+01     -5.561593462D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.440655743D+01     -5.561593462D+00  7.392706271D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  8.117903272D+02  4.115967161D+01  0.000000000D+00  *\r\n                                      *  4.115967161D+01  2.770024145D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.088792742D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  2.738531276D+02                                    *\r\n                                      *                   8.149396140D+02                   *\r\n                                      *                                    1.088792742D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  7.629090530D-02  9.970856020D-01  0.000000000D+00  *\r\n                                      * -9.970856020D-01  7.629090530D-02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.5635397E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -3.9567802E-15\r\n0*** USER INFORMATION MESSAGE 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO PLUS) OR OVER-DESIGNED (PLUS(ES))\r\n     IN ONE OR MORE SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)\r\n\r\n            1+          3           5+         13+         17+         31+++       41+++       51+++       61+++      101+++ \r\n          102+++      103+++      104          11++        12++        21+++       22++        23+         24          25+   \r\n           27+         28++        29+         32++        33+         34          35+         36          37+++       38+   \r\n           39+++       42+++       43+         44++        46+++       52+++       53++        54+++       57+++       62+++ \r\n           63++        64+++       65+++       68+++ \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n0        PROPERTIES USED DURING FINAL ITERATION    5 BY OPTPR2\r\n\r\n     PQDMEM   1        1        1.028005 0.0                                                  \r\n     PQDMEM   3        1        .937016  0.0                                                  \r\n     PQDMEM   15       1        1.272886 0.0                                                  \r\n     PQDMEM   17       1        .584856  0.0                                                  \r\n     PQDMEM   13       1        1.193568 0.0                                                  \r\n     PQDMEM   31       1        .9128151 0.0                                                  \r\n     PQDMEM   41       1        .7436725 0.0                                                  \r\n     PQDMEM   51       1        .5855925 0.0                                                  \r\n     PQDMEM   61       1        .4719824 0.0                                                  \r\n     PROD     101      3        0.066974 0.0      0.0      0.0                                \r\n     PROD     102      3        .28643-3 0.0      0.0      0.0                                \r\n     PROD     103      3        .4770681 0.0      0.0      0.0                                \r\n     PROD     104      3        1.825921 0.0      0.0      0.0                                \r\n     PROD     105      3        3.285259 0.0      0.0      0.0                                \r\n     PTRMEM   11       1        .9699996 0.0                                                  \r\n     PTRMEM   12       1        1.036422 0.0                                                  \r\n     PTRMEM   21       1        .9643758 0.0                                                  \r\n     PTRMEM   22       1        .9919872 0.0                                                  \r\n     PTRMEM   23       1        1.15619  0.0                                                  \r\n     PTRMEM   24       1        1.501551 0.0                                                  \r\n     PTRMEM   25       1        1.655592 0.0                                                  \r\n     PTRMEM   26       1        1.349646 0.0                                                  \r\n     PTRMEM   27       1        1.257455 0.0                                                  \r\n     PTRMEM   28       1        .4377882 0.0                                                  \r\n     PTRMEM   29       1        .3954258 0.0                                                  \r\n     PTRMEM   32       1        1.152832 0.0                                                  \r\n     PTRMEM   33       1        1.504325 0.0                                                  \r\n     PTRMEM   34       1        1.805507 0.0                                                  \r\n     PTRMEM   35       1        1.688277 0.0                                                  \r\n     PTRMEM   36       1        1.748828 0.0                                                  \r\n     PTRMEM   37       2        .5293518 0.0                                                  \r\n     PTRMEM   38       2        1.096847 0.0                                                  \r\n     PTRMEM   39       2        .3327318 0.0                                                  \r\n     PTRMEM   42       1        .9304726 0.0                                                  \r\n     PTRMEM   43       1        1.806777 0.0                                                  \r\n     PTRMEM   44       1        1.450798 0.0                                                  \r\n     PTRMEM   45       1        2.575514 0.0                                                  \r\n     PTRMEM   46       2        1.226632 0.0                                                  \r\n     PTRMEM   47       2        1.987407 0.0                                                  \r\n     PTRMEM   52       1        .6789549 0.0                                                  \r\n     PTRMEM   53       1        1.33767  0.0                                                  \r\n     PTRMEM   54       1        1.171215 0.0                                                  \r\n     PTRMEM   55       1        2.753381 0.0                                                  \r\n     PTRMEM   57       2        1.427849 0.0                                                  \r\n     PTRMEM   59       2        4.434203 0.0                                                  \r\n     PTRMEM   62       1        .6418355 0.0                                                  \r\n     PTRMEM   63       1        1.144582 0.0                                                  \r\n     PTRMEM   64       1        .9728199 0.0                                                  \r\n     PTRMEM   65       1        1.486445 0.0                                                  \r\n     PTRMEM   67       2        5.46184  0.0                                                  \r\n     PTRMEM   68       2        1.151183 0.0                                                  \r\n     PTRMEM   69       2        5.489853 0.0                                                  \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.389916E-03   1.134543E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      7.489821E-04   1.186683E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      1.039473E-04   1.251831E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.450447E-04   1.381497E-02   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            1.548968E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      2.006213E-03   8.919884E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      1.405371E-03   9.305301E-03   0.0            0.0            0.0            0.0                           \r\n            15      G      8.264998E-04   1.001041E-02   0.0            0.0            0.0            0.0                           \r\n            17      G      3.060064E-04   1.118545E-02   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            1.233637E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      2.463463E-03   6.531760E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      1.863695E-03   6.913052E-03   0.0            0.0            0.0            0.0                           \r\n            25      G      1.189154E-03   7.462451E-03   0.0            0.0            0.0            0.0                           \r\n            27      G      5.369621E-04   8.679849E-03   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0            9.999206E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      2.761734E-03   5.202384E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      2.407298E-03   5.423277E-03   0.0            0.0            0.0            0.0                           \r\n            35      G      1.732644E-03   5.765760E-03   0.0            0.0            0.0            0.0                           \r\n            37      G      1.130979E-03   6.518316E-03   0.0            0.0            0.0            0.0                           \r\n            38      G      7.088970E-04   7.312952E-03   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0            8.797762E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      3.238700E-03   3.740417E-03   0.0            0.0            0.0            0.0                           \r\n            43      G      2.899359E-03   3.918175E-03   0.0            0.0            0.0            0.0                           \r\n            45      G      2.236031E-03   4.178303E-03   0.0            0.0            0.0            0.0                           \r\n            47      G      1.534037E-03   5.235521E-03   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0            7.788152E-03   0.0            0.0            0.0            0.0                           \r\n            49      G      1.272480E-03   6.429462E-03   0.0            0.0            0.0            0.0                           \r\n            51      G      3.750891E-03   2.480421E-03   0.0            0.0            0.0            0.0                           \r\n            53      G      3.428966E-03   2.651694E-03   0.0            0.0            0.0            0.0                           \r\n            55      G      2.984176E-03   2.763550E-03   0.0            0.0            0.0            0.0                           \r\n            57      G      2.489995E-03   3.300968E-03   0.0            0.0            0.0            0.0                           \r\n            59      G      2.228803E-03   4.235663E-03   0.0            0.0            0.0            0.0                           \r\n            61      G      4.296278E-03   1.236817E-03   0.0            0.0            0.0            0.0                           \r\n            63      G      3.992726E-03   1.372976E-03   0.0            0.0            0.0            0.0                           \r\n            65      G      3.727047E-03   1.425912E-03   0.0            0.0            0.0            0.0                           \r\n            67      G      3.539943E-03   1.439801E-03   0.0            0.0            0.0            0.0                           \r\n            69      G      3.044058E-03   2.339595E-03   0.0            0.0            0.0            0.0                           \r\n            71      G      4.603796E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      4.326903E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G      4.055515E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G      3.893840E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G      3.599570E-03   9.599373E-04   0.0            0.0            0.0            0.0                           \r\n            79      G      3.728859E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     CHECK CASE - CONTACT LOAD AT NOZZLE.                                                                   SUBCASE 12             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.113594E-04   9.720551E-05   0.0            0.0            0.0            0.0                           \r\n             3      G      1.089807E-04   1.628048E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      9.356585E-05  -6.945906E-05   0.0            0.0            0.0            0.0                           \r\n             7      G      6.804381E-05  -1.358898E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0           -1.661745E-04   0.0            0.0            0.0            0.0                           \r\n            11      G      2.506319E-05   1.030170E-04   0.0            0.0            0.0            0.0                           \r\n            13      G      2.813581E-05   1.764900E-05   0.0            0.0            0.0            0.0                           \r\n            15      G      2.639636E-05  -7.428269E-05   0.0            0.0            0.0            0.0                           \r\n            17      G      1.904449E-05  -1.494868E-04   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -1.868239E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.438290E-05   1.234532E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.746961E-05   2.955882E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.460326E-05  -7.262684E-05   0.0            0.0            0.0            0.0                           \r\n            27      G     -3.239902E-05  -1.644906E-04   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -2.059365E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.385965E-04   1.436616E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.327369E-04   8.128180E-05   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.165768E-04  -2.060961E-05   0.0            0.0            0.0            0.0                           \r\n            37      G     -9.674120E-05  -1.136771E-04   0.0            0.0            0.0            0.0                           \r\n            38      G     -9.649803E-05  -1.978868E-04   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -2.327262E-04   0.0            0.0            0.0            0.0                           \r\n            41      G     -2.396177E-04   1.569218E-04   0.0            0.0            0.0            0.0                           \r\n            43      G     -2.375029E-04   9.577748E-05   0.0            0.0            0.0            0.0                           \r\n            45      G     -2.215467E-04  -6.056624E-06   0.0            0.0            0.0            0.0                           \r\n            47      G     -1.836613E-04  -1.083834E-04   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0           -2.429685E-04   0.0            0.0            0.0            0.0                           \r\n            49      G     -1.792880E-04  -1.872508E-04   0.0            0.0            0.0            0.0                           \r\n            51      G     -3.373955E-04   1.454475E-04   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.437240E-04   9.125708E-05   0.0            0.0            0.0            0.0                           \r\n            55      G     -3.447415E-04   2.985934E-05   0.0            0.0            0.0            0.0                           \r\n            57      G     -3.139759E-04  -4.204221E-05   0.0            0.0            0.0            0.0                           \r\n            59      G     -3.160170E-04  -1.258820E-04   0.0            0.0            0.0            0.0                           \r\n            61      G     -4.278020E-04   9.464542E-05   0.0            0.0            0.0            0.0                           \r\n            63      G     -4.445327E-04   5.571855E-05   0.0            0.0            0.0            0.0                           \r\n            65      G     -4.653942E-04   3.344712E-05   0.0            0.0            0.0            0.0                           \r\n            67      G     -4.818863E-04   1.576246E-05   0.0            0.0            0.0            0.0                           \r\n            69      G     -4.383495E-04  -6.017886E-05   0.0            0.0            0.0            0.0                           \r\n            71      G     -4.781616E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G     -5.046047E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G     -5.256462E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G     -5.503929E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G     -5.400554E-04  -1.651714E-05   0.0            0.0            0.0            0.0                           \r\n            79      G     -5.537386E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        3.291895E+01   2.494525E+04  -3.548027E+02      -89.1842       2.495030E+04   2.786621E+01   1.246122E+04          \r\n        3        2.865068E+02   2.543314E+04   4.787812E+02       88.9096       2.544225E+04   2.773955E+02   1.258243E+04          \r\n        5        2.076074E+03   2.630996E+04   3.062377E+03       82.9082       2.669096E+04   1.695078E+03   1.249794E+04          \r\n       13       -1.210527E+02   2.466473E+04   1.316213E+03       86.9688       2.473443E+04  -1.907520E+02   1.246259E+04          \r\n       15        5.980527E+02   2.544722E+04   4.379451E+03       80.2917       2.619647E+04  -1.511953E+02   1.317383E+04          \r\n       17        2.424543E+03   2.494118E+04   5.256494E+03       77.4861       2.610786E+04   1.257868E+03   1.242500E+04          \r\n       31       -2.877676E+02   2.216668E+04  -1.261995E+03      -86.7933       2.223738E+04  -3.584727E+02   1.129793E+04          \r\n       41       -1.274766E+02   2.161728E+04  -2.092072E+03      -84.5541       2.181673E+04  -3.269268E+02   1.107183E+04          \r\n       51        2.540742E+02   2.169613E+04  -2.474097E+03      -83.5027       2.197790E+04  -2.769727E+01   1.100280E+04          \r\n       61        9.961016E+02   2.266848E+04  -1.591791E+03      -85.8216       2.278477E+04   8.798115E+02   1.095248E+04          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY\r\n         ID.        STRESS       MARGIN        STRESS      MARGIN         ID.        STRESS       MARGIN        STRESS      MARGIN\r\n           101   -1.421438E+04   7.6E-01    0.0                             102    7.195711E+03   2.5E+00    0.0                    \r\n           103    2.083755E+04   2.0E-01    0.0                             104    2.542085E+04  -1.7E-02    0.0                    \r\n           105    2.811953E+04  -1.1E-01    0.0                                                                                     \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       11       -5.026172E+01   2.386617E+04   2.019336E+01       89.9516       2.386619E+04  -5.027832E+01   1.195823E+04          \r\n       12       -2.249023E+01   2.391573E+04  -2.974609E+00      -89.9929       2.391573E+04  -2.249121E+01   1.196911E+04          \r\n       21       -2.768477E+02   2.270625E+04  -2.674463E+02      -89.3334       2.270936E+04  -2.799600E+02   1.149466E+04          \r\n       22       -3.515156E+02   2.281898E+04  -2.425781E+02      -89.4002       2.282152E+04  -3.540547E+02   1.158779E+04          \r\n       23       -1.251309E+03   2.281516E+04  -2.241924E+02      -89.4663       2.281725E+04  -1.253396E+03   1.203532E+04          \r\n       24       -5.481816E+02   2.515438E+04   7.312461E+02       88.3717       2.517516E+04  -5.689688E+02   1.287207E+04          \r\n       25       -2.455242E+03   2.189908E+04   2.741729E+03       83.6556       2.220392E+04  -2.760082E+03   1.248200E+04          \r\n       26       -5.125195E+02   2.437928E+04   4.282264E+03       80.5066       2.509538E+04  -1.228618E+03   1.316200E+04          \r\n       27       -3.120797E+03   2.116209E+04  -2.460834E+03      -84.2712       2.140896E+04  -3.367669E+03   1.238831E+04          \r\n       28        1.834023E+03   1.278052E+04   1.044247E+04       58.8303       1.909717E+04  -4.482623E+03   1.178990E+04          \r\n       29       -2.908672E+02   2.050892E+04   6.089344E+03       74.8251       2.216050E+04  -1.942442E+03   1.205147E+04          \r\n       32       -1.453732E+03   2.214041E+04  -1.258118E+03      -86.9563       2.220730E+04  -1.520630E+03   1.186397E+04          \r\n       33       -8.971133E+02   2.354273E+04  -1.703567E+03      -86.0318       2.366090E+04  -1.015288E+03   1.233809E+04          \r\n       34       -2.067480E+03   2.319162E+04   1.437509E+03       86.7532       2.327316E+04  -2.149026E+03   1.271109E+04          \r\n       35       -2.410898E+03   2.001743E+04   5.308301E+03       77.3346       2.121034E+04  -3.603811E+03   1.240708E+04          \r\n       36        6.279750E+03   1.238948E+04   1.257093E+04       51.8293       2.227140E+04  -3.602170E+03   1.293678E+04          \r\n       37       -5.783938E+03   1.414805E+04  -2.480676E+03      -83.0112       1.445215E+04  -6.088035E+03   1.027009E+04          \r\n       38       -1.206284E+04   7.171789E+03   7.838854E+03       70.4087       9.961745E+03  -1.485280E+04   1.240727E+04          \r\n       39       -6.934504E+03   1.097452E+04  -7.041680E+03      -70.9095       1.341160E+04  -9.371592E+03   1.139160E+04          \r\n       42       -1.741895E+02   2.165885E+04  -2.846590E+03      -82.6925       2.202388E+04  -5.392246E+02   1.128155E+04          \r\n       43       -1.045733E+03   2.304733E+04  -2.857514E+03      -83.3279       2.338160E+04  -1.380007E+03   1.238080E+04          \r\n       44       -1.405676E+03   2.155950E+04   2.530074E+03       83.7870       2.183494E+04  -1.681111E+03   1.175803E+04          \r\n       45       -9.282168E+02   2.495970E+04   3.860871E+03       81.6957       2.552323E+04  -1.491752E+03   1.350749E+04          \r\n       46       -2.575713E+03   2.024471E+04   4.043560E+02       88.9852       2.025187E+04  -2.582875E+03   1.141737E+04          \r\n       47        9.242463E+03   6.822520E+03   1.303580E+04       42.3485       2.112433E+04  -5.059348E+03   1.309184E+04          \r\n       52        1.387567E+03   2.233716E+04  -3.309898E+03      -81.2321       2.284766E+04   8.770645E+02   1.098530E+04          \r\n       53        6.991504E+01   2.247253E+04  -3.519559E+03      -81.2784       2.301246E+04  -4.700127E+02   1.174124E+04          \r\n       54        2.593628E+03   2.361379E+04  -4.276385E+03      -78.9297       2.445048E+04   1.756935E+03   1.134677E+04          \r\n       55       -2.092944E+02   2.554739E+04   1.836045E+03       85.9431       2.567762E+04  -3.395176E+02   1.300857E+04          \r\n       57        3.358346E+03   2.104556E+04   7.339373E+03       70.1552       2.369438E+04   7.095303E+02   1.149242E+04          \r\n       59       -4.201953E+01   2.869034E+04  -8.470664E+02      -88.3128       2.871529E+04  -6.696973E+01   1.439113E+04          \r\n       62        1.920266E+03   2.411281E+04  -1.796160E+03      -85.4026       2.425724E+04   1.775833E+03   1.124070E+04          \r\n       63        2.093952E+03   2.507239E+04  -2.165725E+03      -84.6625       2.527473E+04   1.891614E+03   1.169156E+04          \r\n       64        3.123906E+03   2.538138E+04  -2.037516E+03      -84.8124       2.556636E+04   2.938923E+03   1.131372E+04          \r\n       65        3.873070E+03   2.584422E+04  -2.333389E+03      -84.0042       2.608930E+04   3.627992E+03   1.123065E+04          \r\n       67        5.132285E+03   2.695872E+04   9.291156E+03       69.7950       3.037812E+04   1.712886E+03   1.433262E+04          \r\n       68        2.605371E+04   4.571375E+03   4.732148E+02        1.2613       2.606413E+04   4.560956E+03   1.075159E+04          \r\n       69        2.241980E+03   2.947071E+04  -1.235445E+03      -87.4074       2.952666E+04   2.186040E+03   1.367031E+04          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -5.038315E+00, Y0 = -0.932505E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    7   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n          PLOT    8   STATIC DEFORM.    12 - SUBCASE      12 - LOAD                                                                 \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -3.324618E+00, Y0 = -0.141947E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    9   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n\r\n\r\n\r\n\r\n C O N T O U R   P L O T T I N G   D A T A                                                                                          \r\n                                                                                                                                    \r\n         ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR                                                                           \r\n         THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE  Z1                                                                    \r\n\r\n\r\n\r\n\r\n                                                   TABLE  OF  PLOTTING  SYMBOLS                                                     \r\n                                                                                                                                    \r\n     SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE                  \r\n                                                                                                                                    \r\n        1   9.961745E+03                                                                                                            \r\n        2   1.223023E+04                                                                                                            \r\n        3   1.449872E+04                                                                                                            \r\n        4   1.676720E+04                                                                                                            \r\n        5   1.903569E+04                                                                                                            \r\n        6   2.130418E+04                                                                                                            \r\n        7   2.357266E+04                                                                                                            \r\n        8   2.584115E+04                                                                                                            \r\n        9   2.810963E+04                                                                                                            \r\n       10   3.037812E+04                                                                                                            \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.42392104D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -3.28419695D+02 *\r\n                *  0.00000000D+00  4.42392104D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00 -2.43591923D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  4.42392104D+01  3.28419695D+02  2.43591923D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  3.28419695D+02  3.25374491D+03  1.77082577D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  2.43591923D+02  1.77082577D+03  1.61062580D+03  0.00000000D+00 *\r\n                * -3.28419695D+02 -2.43591923D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  4.86437072D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.423921044D+01      0.000000000D+00  7.423724146D+00  0.000000000D+00\r\n                            Y            4.423921044D+01     -5.506244814D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.423921044D+01     -5.506244814D+00  7.423724146D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  8.156476969D+02  3.753347547D+01  0.000000000D+00  *\r\n                                      *  3.753347547D+01  2.693490403D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.084996737D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  2.667823602D+02                                    *\r\n                                      *                   8.182143771D+02                   *\r\n                                      *                                    1.084996737D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  6.822442583D-02  9.976699994D-01  0.000000000D+00  *\r\n                                      * -9.976699994D-01  6.822442583D-02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n\r\n      TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -6.9756541E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   8.5940708E-15\r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.572628E-03   1.154599E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      9.243845E-04   1.193848E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      2.444017E-04   1.241018E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.523648E-04   1.360102E-02   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            1.532952E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      2.076502E-03   9.129270E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      1.468924E-03   9.388575E-03   0.0            0.0            0.0            0.0                           \r\n            15      G      8.780985E-04   9.946185E-03   0.0            0.0            0.0            0.0                           \r\n            17      G      3.431796E-04   1.101889E-02   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            1.216943E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      2.468790E-03   6.717768E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      1.866533E-03   6.979578E-03   0.0            0.0            0.0            0.0                           \r\n            25      G      1.196364E-03   7.409636E-03   0.0            0.0            0.0            0.0                           \r\n            27      G      5.493447E-04   8.549244E-03   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0            9.856408E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      2.732095E-03   5.360832E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      2.373674E-03   5.521496E-03   0.0            0.0            0.0            0.0                           \r\n            35      G      1.706541E-03   5.753301E-03   0.0            0.0            0.0            0.0                           \r\n            37      G      1.120617E-03   6.424075E-03   0.0            0.0            0.0            0.0                           \r\n            38      G      7.014140E-04   7.145126E-03   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0            8.639262E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      3.157101E-03   3.872707E-03   0.0            0.0            0.0            0.0                           \r\n            43      G      2.813426E-03   3.996840E-03   0.0            0.0            0.0            0.0                           \r\n            45      G      2.163439E-03   4.155316E-03   0.0            0.0            0.0            0.0                           \r\n            47      G      1.487233E-03   5.120448E-03   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0            7.541713E-03   0.0            0.0            0.0            0.0                           \r\n            49      G      1.215867E-03   6.214110E-03   0.0            0.0            0.0            0.0                           \r\n            51      G      3.626089E-03   2.576474E-03   0.0            0.0            0.0            0.0                           \r\n            53      G      3.296602E-03   2.705682E-03   0.0            0.0            0.0            0.0                           \r\n            55      G      2.850667E-03   2.760899E-03   0.0            0.0            0.0            0.0                           \r\n            57      G      2.371857E-03   3.235445E-03   0.0            0.0            0.0            0.0                           \r\n            59      G      2.116686E-03   4.087639E-03   0.0            0.0            0.0            0.0                           \r\n            61      G      4.140181E-03   1.288175E-03   0.0            0.0            0.0            0.0                           \r\n            63      G      3.827813E-03   1.397156E-03   0.0            0.0            0.0            0.0                           \r\n            65      G      3.551628E-03   1.435035E-03   0.0            0.0            0.0            0.0                           \r\n            67      G      3.362291E-03   1.423973E-03   0.0            0.0            0.0            0.0                           \r\n            69      G      2.881066E-03   2.275202E-03   0.0            0.0            0.0            0.0                           \r\n            71      G      4.437525E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G      4.152381E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G      3.876265E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G      3.724050E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G      3.413983E-03   9.358756E-04   0.0            0.0            0.0            0.0                           \r\n            79      G      3.560508E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     CHECK CASE - CONTACT LOAD AT NOZZLE.                                                                   SUBCASE 12             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.132649E-04   1.033499E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.108946E-04   2.068001E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      9.538453E-05  -6.701716E-05   0.0            0.0            0.0            0.0                           \r\n             7      G      7.042404E-05  -1.346991E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0           -1.659026E-04   0.0            0.0            0.0            0.0                           \r\n            11      G      2.499494E-05   1.092637E-04   0.0            0.0            0.0            0.0                           \r\n            13      G      2.820096E-05   2.219585E-05   0.0            0.0            0.0            0.0                           \r\n            15      G      2.667133E-05  -7.172060E-05   0.0            0.0            0.0            0.0                           \r\n            17      G      1.954824E-05  -1.483324E-04   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -1.871402E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.640136E-05   1.304785E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.902418E-05   3.493368E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.591129E-05  -6.969135E-05   0.0            0.0            0.0            0.0                           \r\n            27      G     -3.405407E-05  -1.636451E-04   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -2.067497E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.423310E-04   1.517441E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.361955E-04   8.848578E-05   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.197369E-04  -1.587622E-05   0.0            0.0            0.0            0.0                           \r\n            37      G     -1.000269E-04  -1.117819E-04   0.0            0.0            0.0            0.0                           \r\n            38      G     -1.014647E-04  -2.001894E-04   0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -2.351940E-04   0.0            0.0            0.0            0.0                           \r\n            41      G     -2.453887E-04   1.657672E-04   0.0            0.0            0.0            0.0                           \r\n            43      G     -2.432512E-04   1.042271E-04   0.0            0.0            0.0            0.0                           \r\n            45      G     -2.276061E-04  -6.361477E-07   0.0            0.0            0.0            0.0                           \r\n            47      G     -1.904912E-04  -1.068092E-04   0.0            0.0            0.0            0.0                           \r\n            48      G      0.0           -2.474123E-04   0.0            0.0            0.0            0.0                           \r\n            49      G     -1.892384E-04  -1.898324E-04   0.0            0.0            0.0            0.0                           \r\n            51      G     -3.450770E-04   1.534594E-04   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.519631E-04   9.879672E-05   0.0            0.0            0.0            0.0                           \r\n            55      G     -3.537626E-04   3.644150E-05   0.0            0.0            0.0            0.0                           \r\n            57      G     -3.227140E-04  -3.868844E-05   0.0            0.0            0.0            0.0                           \r\n            59      G     -3.264424E-04  -1.259629E-04   0.0            0.0            0.0            0.0                           \r\n            61      G     -4.374868E-04   9.968391E-05   0.0            0.0            0.0            0.0                           \r\n            63      G     -4.552736E-04   5.991073E-05   0.0            0.0            0.0            0.0                           \r\n            65      G     -4.772080E-04   3.774761E-05   0.0            0.0            0.0            0.0                           \r\n            67      G     -4.946991E-04   2.097354E-05   0.0            0.0            0.0            0.0                           \r\n            69      G     -4.501201E-04  -5.916022E-05   0.0            0.0            0.0            0.0                           \r\n            71      G     -4.892818E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            73      G     -5.171538E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            75      G     -5.391882E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            77      G     -5.663188E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            78      G     -5.556829E-04  -1.547226E-05   0.0            0.0            0.0            0.0                           \r\n            79      G     -5.691727E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -9.340625E+01   2.480509E+04  -5.120371E+02      -88.8224       2.481561E+04  -1.039316E+02   1.245977E+04          \r\n        3       -1.142930E+02   2.503518E+04   1.094863E+02       89.7506       2.503566E+04  -1.147695E+02   1.257521E+04          \r\n        5        1.515451E+03   2.568520E+04   2.859643E+03       83.3435       2.601893E+04   1.181721E+03   1.241861E+04          \r\n       13       -1.622456E+02   2.467906E+04   9.025508E+02       87.9219       2.471181E+04  -1.949951E+02   1.245340E+04          \r\n       15        4.589766E+02   2.516868E+04   4.096820E+03       80.8273       2.583021E+04  -2.025576E+02   1.301638E+04          \r\n       17        1.998743E+03   2.451296E+04   5.275145E+03       77.4460       2.568766E+04   8.240518E+02   1.243180E+04          \r\n       31       -2.661621E+02   2.251600E+04  -1.399120E+03      -86.4988       2.260160E+04  -3.517646E+02   1.147668E+04          \r\n       41       -8.607422E+01   2.215181E+04  -2.164619E+03      -84.4918       2.236056E+04  -2.948174E+02   1.132769E+04          \r\n       51        2.846113E+02   2.234388E+04  -2.529942E+03      -83.5406       2.263032E+04  -1.824219E+00   1.131607E+04          \r\n       61        1.021992E+03   2.332372E+04  -1.631108E+03      -85.8390       2.344238E+04   9.033271E+02   1.126953E+04          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY       ELEMENT       AXIAL       SAFETY      TORSIONAL     SAFETY\r\n         ID.        STRESS       MARGIN        STRESS      MARGIN         ID.        STRESS       MARGIN        STRESS      MARGIN\r\n           101   -1.349390E+04   8.5E-01    0.0                             102    7.313547E+03   2.4E+00    0.0                    \r\n           103    2.008784E+04   2.4E-01    0.0                             104    2.472500E+04   1.1E-02    0.0                    \r\n           105    2.735327E+04  -8.6E-02    0.0                                                                                     \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     DESIGN CASE - UNIFORM END LOAD                                                                         SUBCASE 10             \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n       11       -6.201562E+01   2.409641E+04  -3.120078E+02      -89.2602       2.410044E+04  -6.604395E+01   1.208324E+04          \r\n       12       -1.113281E-01   2.408995E+04  -3.209111E+02      -89.2369       2.409422E+04  -4.384766E+00   1.204930E+04          \r\n       21       -2.086719E+02   2.319916E+04  -5.001934E+02      -88.7764       2.320985E+04  -2.193555E+02   1.171460E+04          \r\n       22       -2.933633E+02   2.311242E+04  -5.470596E+02      -88.6618       2.312520E+04  -3.061426E+02   1.171567E+04          \r\n       23       -1.081027E+03   2.308186E+04  -5.144482E+02      -88.7809       2.309281E+04  -1.091976E+03   1.209239E+04          \r\n       24       -4.488086E+02   2.531072E+04   3.885537E+02       89.1360       2.531658E+04  -4.546689E+02   1.288562E+04          \r\n       25       -2.192766E+03   2.198699E+04   2.437665E+03       84.3002       2.223029E+04  -2.436068E+03   1.233318E+04          \r\n       26       -3.860430E+02   2.459397E+04   4.052738E+03       81.0114       2.523503E+04  -1.027104E+03   1.313107E+04          \r\n       27       -2.684766E+03   2.127970E+04  -2.702272E+03      -83.6455       2.158063E+04  -2.985699E+03   1.228316E+04          \r\n       28        2.097666E+03   1.317799E+04   1.061162E+04       58.7842       1.960862E+04  -4.332968E+03   1.197080E+04          \r\n       29       -3.654141E+02   2.075573E+04   6.033066E+03       75.1307       2.235755E+04  -1.967226E+03   1.216239E+04          \r\n       32       -1.257842E+03   2.249249E+04  -1.467162E+03      -86.4784       2.258278E+04  -1.348131E+03   1.196546E+04          \r\n       33       -6.691270E+02   2.376903E+04  -1.904522E+03      -85.5704       2.391656E+04  -8.166602E+02   1.236661E+04          \r\n       34       -1.755971E+03   2.344298E+04   1.233902E+03       87.2033       2.350326E+04  -1.816246E+03   1.265975E+04          \r\n       35       -2.029184E+03   2.058692E+04   5.014203E+03       78.0433       2.164876E+04  -3.091025E+03   1.236989E+04          \r\n       36        6.608434E+03   1.296733E+04   1.251579E+04       52.1268       2.270120E+04  -3.125437E+03   1.291332E+04          \r\n       37       -5.126066E+03   1.484598E+04  -2.736504E+03      -82.3376       1.521414E+04  -5.494227E+03   1.035419E+04          \r\n       38       -1.103643E+04   8.191586E+03   7.899169E+03       70.2962       1.102049E+04  -1.386533E+04   1.244291E+04          \r\n       39       -6.020293E+03   1.189569E+04  -7.465453E+03      -70.0963       1.459868E+04  -8.723289E+03   1.166099E+04          \r\n       42       -5.361328E+01   2.211805E+04  -2.867217E+03      -82.7495       2.248284E+04  -4.183975E+02   1.145062E+04          \r\n       43       -8.698389E+02   2.310000E+04  -2.942620E+03      -83.1026       2.345596E+04  -1.225800E+03   1.234088E+04          \r\n       44       -1.282586E+03   2.165245E+04   2.421211E+03       84.0389       2.190526E+04  -1.535402E+03   1.172033E+04          \r\n       45       -7.042891E+02   2.500324E+04   3.721184E+03       81.9271       2.553105E+04  -1.232097E+03   1.338157E+04          \r\n       46       -2.111352E+03   2.040420E+04   1.881638E+02       89.5212       2.040578E+04  -2.112924E+03   1.125935E+04          \r\n       47        9.506314E+03   7.309246E+03   1.293362E+04       42.5726       2.138797E+04  -4.572412E+03   1.298019E+04          \r\n       52        1.325133E+03   2.282942E+04  -3.211109E+03      -81.6859       2.329868E+04   8.558760E+02   1.122140E+04          \r\n       53        6.451855E+01   2.251182E+04  -3.568102E+03      -81.1820       2.306533E+04  -4.889980E+02   1.177717E+04          \r\n       54        2.524614E+03   2.356234E+04  -4.224479E+03      -79.0596       2.437894E+04   1.708017E+03   1.133546E+04          \r\n       55       -1.765977E+02   2.533907E+04   1.640418E+03       86.3365       2.544410E+04  -2.816289E+02   1.286286E+04          \r\n       57        3.166664E+03   2.069308E+04   7.217078E+03       70.2632       2.328241E+04   5.773379E+02   1.135254E+04          \r\n       59        1.529062E+02   2.795172E+04  -1.024646E+03      -87.8919       2.798944E+04   1.151895E+02   1.393712E+04          \r\n       62        1.826023E+03   2.449905E+04  -1.848633E+03      -85.3692       2.464879E+04   1.676285E+03   1.148625E+04          \r\n       63        2.041595E+03   2.521307E+04  -2.140467E+03      -84.7663       2.540914E+04   1.845529E+03   1.178180E+04          \r\n       64        3.116586E+03   2.553557E+04  -2.242568E+03      -84.3434       2.575769E+04   2.894463E+03   1.143162E+04          \r\n       65        4.033112E+03   2.562090E+04  -2.385223E+03      -83.7696       2.588130E+04   3.772710E+03   1.105430E+04          \r\n       67        4.897299E+03   2.646188E+04   8.969699E+03       70.1216       2.970504E+04   1.654138E+03   1.402545E+04          \r\n       68        2.562416E+04   4.043977E+03   7.286631E+02        1.9317       2.564873E+04   4.019400E+03   1.081467E+04          \r\n       69        2.067257E+03   2.869645E+04  -1.436559E+03      -86.9210       2.877372E+04   1.989984E+03   1.339187E+04          \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.569302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -5.038315E+00, Y0 = -0.932505E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT   10   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n          PLOT   11   STATIC DEFORM.    12 - SUBCASE      12 - LOAD                                                                 \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n1     FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                                                                                   \r\n0     TEMPERATURE DEPENDENT MATERIALS.                                                                                              \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.920009E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      12   -   X0 = -3.324618E+00, Y0 = -0.141947E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT   12   STATIC DEFORM.    10 - SUBCASE      10 - LOAD                                                                 \r\n\r\n\r\n\r\n\r\n C O N T O U R   P L O T T I N G   D A T A                                                                                          \r\n                                                                                                                                    \r\n         ABOVE PLOT IS A CONTOUR PLOT OF STRESS, MAJOR-PR                                                                           \r\n         THE CONTOUR VALUES ARE CALCULATED AT FIBRE DISTANCE  Z1                                                                    \r\n\r\n\r\n\r\n\r\n                                                   TABLE  OF  PLOTTING  SYMBOLS                                                     \r\n                                                                                                                                    \r\n     SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE           SYMBOL  VALUE                  \r\n                                                                                                                                    \r\n        1   1.102049E+04                                                                                                            \r\n        2   1.309655E+04                                                                                                            \r\n        3   1.517261E+04                                                                                                            \r\n        4   1.724867E+04                                                                                                            \r\n        5   1.932473E+04                                                                                                            \r\n        6   2.140080E+04                                                                                                            \r\n        7   2.347686E+04                                                                                                            \r\n        8   2.555292E+04                                                                                                            \r\n        9   2.762898E+04                                                                                                            \r\n       10   2.970504E+04                                                                                                            \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 ORIGIN     12  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE            \r\n DATE:  5/17/95\r\n END TIME: 15:13: 6\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d01171a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D01171A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1,0                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                          \r\n                  3      LABEL    = ELEMENT STRESS PRECISION CHECKS                                      \r\n                  4      SPC = 10                                                                        \r\n                  5      OUTPUT                                                                          \r\n                  6      DISPLACEMENT = ALL                                                              \r\n                  7      ELSTRESS = ALL                                                                  \r\n                  8      NCHECK = 12                                                                     \r\n                  9      SUBCASE 1                                                                       \r\n                 10      LABEL = LOAD IN LONGITUDINAL DIRECTION                                          \r\n                 11      LOAD  = 1                                                                       \r\n                 12      SUBCASE 2                                                                       \r\n                 13      LABEL = LOAD IN TRANSVERSE DIRECTION                                            \r\n                 14      LOAD  = 2                                                                       \r\n                 15      SUBCASE 3                                                                       \r\n                 16      LABEL = LOAD NORMAL TO SURFACE                                                  \r\n                 17      LOAD  = 3                                                                       \r\n                 18      SUBCASE 4                                                                       \r\n                 19      LABEL = THERMAL LOAD                                                            \r\n                 20      TEMP(LOAD) = 4                                                                  \r\n                 21      SPC = 20                                                                        \r\n                 22      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    40, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD2  11      10      11      12      22      21      .0                      \r\n                    2-        CQUAD2  12      10      12      13      23      22      .0                      \r\n                    3-        CQUAD2  21      20      21      22      32      31      .0                      \r\n                    4-        CQUAD2  22      20      22      23      33      32      .0                      \r\n                    5-        CQUAD2  31      30      31      32      42      41      .0                      \r\n                    6-        CQUAD2  32      30      32      33      43      42      .0                      \r\n                    7-        CQUAD2  41      40      41      42      52      51      .0                      \r\n                    8-        CQUAD2  42      40      42      43      53      52      .0                      \r\n                    9-        FORCE   1       51              100.0   .0      1.0     .0                      \r\n                   10-        FORCE   1       52              400.0   .0      1.0     .0                      \r\n                   11-        FORCE   1       53              100.0   .0      1.0     .0                      \r\n                   12-        FORCE   2       52              1000.0  1.0     .0      .0                      \r\n                   13-        FORCE   3       52              100.0   .0      .0      1.0                     \r\n                   14-        GRDSET                                                  6                       \r\n                   15-        GRID    11              .0      .0      .0                                      \r\n                   16-        GRID    12              10.0    .0      .0                                      \r\n                   17-        GRID    13              20.0    .0      .0                                      \r\n                   18-        GRID    21              .0      10.0    .0                                      \r\n                   19-        GRID    22              10.0    10.0    .0                                      \r\n                   20-        GRID    23              20.0    10.0    .0                                      \r\n                   21-        GRID    31              .0      20.0    .0                                      \r\n                   22-        GRID    32              10.0    20.0    .0                                      \r\n                   23-        GRID    33              20.0    20.0    .0                                      \r\n                   24-        GRID    41              .0      30.0    .0                                      \r\n                   25-        GRID    42              10.0    30.0    .0                                      \r\n                   26-        GRID    43              20.0    30.0    .0                                      \r\n                   27-        GRID    51              .0      40.0    .0                                      \r\n                   28-        GRID    52              10.0    40.0    .0                                      \r\n                   29-        GRID    53              20.0    40.0    .0                                      \r\n                   30-        MAT1    10      1.0E3           .0              1.0E-6  70.0                    \r\n                   31-        MAT1    20      1.0E5           .0              1.0E-6  70.0                    \r\n                   32-        MAT1    30      1.0E7           .0              1.0E-6  70.0                    \r\n                   33-        MAT1    40      1.0E9           .0              1.0E-6  70.0                    \r\n                   34-        PQUAD2  10      10      1.0     .0      20      20      1.0     .0              \r\n                   35-        PQUAD2  30      30      1.0     .0      40      40      1.0     .0              \r\n                   36-        SPC1    10      23      11      13                                              \r\n                   37-        SPC1    10      12345   12                                                      \r\n                   38-        SPC1    20      12345   11      THRU    13                                      \r\n                   39-        SPC1    20      12345   51      THRU    53                                      \r\n                   40-        TEMPD   4       170.0                                                           \r\n                              ENDDATA\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD       10 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD       20 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n\r\n      ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD       30 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD       40 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             61\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    4.067\r\n                                        RMS WAVEFRONT    4.235\r\n                                        RMS BANDWIDTH    4.266\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             61\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    4.067\r\n                                        RMS WAVEFRONT    4.235\r\n                                        RMS BANDWIDTH    4.266\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         61        61\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.067     4.067\r\n                                        RMS WAVEFRONT (C-RMS)            4.235     4.235\r\n                                        RMS BANDWITCH (B-RMS)            4.266     4.266\r\n                                        NUMBER OF GRID POINTS (N)                     15\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 8\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        38\r\n                                        MATRIX DENSITY, PERCENT                   40.444\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID       11\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -6.1119436E-11\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   3.9226826E-09\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =  -7.0352350E-08\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     4, EPSILON SUB E =   6.4355009E-17\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0     E L E M E N T   P R E C I S I O N   C H E C K\r\n    SIGNIFICANT DIGITS FOR SUBCASE =      1,      1 = LOAD\r\n       TYPE     EID     MX     MY    MXY     VX     VY    SX1    SY1   SXY1    SX2    SY2   SXY2\r\n0     QUAD2      11   15.7   15.7   15.7   15.7   15.7   15.7   15.7    8.5   15.7   15.7    8.5\r\n0     QUAD2      12   15.7   15.7   15.7   15.7   15.7   15.7   15.7    8.5   15.7   15.7    8.5\r\n0     QUAD2      21   15.7   15.7   15.7   15.7   15.7   15.7   13.4    8.6   15.7   13.4    8.6\r\n0     QUAD2      22   15.7   15.7   15.7   15.7   15.7   15.7   13.4    8.6   15.7   13.4    8.6\r\n0     QUAD2      31   15.7   15.7   15.7   15.7   15.7   15.7   11.3    8.7   15.7   11.3    8.7\r\n0     QUAD2      32   15.7   15.7   15.7   15.7   15.7   15.7   11.3    8.7   15.7   11.3    8.7\r\n0     QUAD2      41   15.7   15.7   15.7   15.7   15.7   13.7    9.3    8.8   13.7    9.3    8.8\r\n0     QUAD2      42   15.7   15.7   15.7   15.7   15.7   13.7    9.3    8.8   13.7    9.3    8.8\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0     E L E M E N T   P R E C I S I O N   C H E C K\r\n    SIGNIFICANT DIGITS FOR SUBCASE =      2,      2 = LOAD\r\n       TYPE     EID     MX     MY    MXY     VX     VY    SX1    SY1   SXY1    SX2    SY2   SXY2\r\n0     QUAD2      21   15.7   15.7   15.7   15.7   15.7   11.3   13.2   12.6   11.3   13.2   12.6\r\n0     QUAD2      22   15.7   15.7   15.7   15.7   15.7   11.3   13.2   12.6   11.3   13.2   12.6\r\n0     QUAD2      31   15.7   15.7   15.7   15.7   15.7    8.4   11.0   10.4    8.4   11.0   10.4\r\n0     QUAD2      32   15.7   15.7   15.7   15.7   15.7    8.4   11.0   10.4    8.4   11.0   10.4\r\n0     QUAD2      41   15.7   15.7   15.7   15.7   15.7    8.2    8.4    8.1    8.2    8.4    8.1\r\n0     QUAD2      42   15.7   15.7   15.7   15.7   15.7    8.2    8.4    8.1    8.2    8.4    8.1\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0     E L E M E N T   P R E C I S I O N   C H E C K\r\n    SIGNIFICANT DIGITS FOR SUBCASE =      3,      3 = LOAD\r\n       TYPE     EID     MX     MY    MXY     VX     VY    SX1    SY1   SXY1    SX2    SY2   SXY2\r\n0     QUAD2      21   15.7   13.1   11.8   11.6   11.7   15.7   13.1   11.8   15.7   13.1   11.8\r\n0     QUAD2      22   15.7   13.1   11.8   11.6   11.7   15.7   13.1   11.8   15.7   13.1   11.8\r\n0     QUAD2      31   15.6   10.9    9.1    9.2    9.5   15.6   10.9    9.1   15.6   10.9    9.1\r\n0     QUAD2      32   15.6   10.9    9.1    9.2    9.5   15.6   10.9    9.1   15.6   10.9    9.1\r\n0     QUAD2      41   15.5    9.4    8.2   15.7    8.0   15.5    9.4    8.2   15.5    9.4    8.2\r\n0     QUAD2      42   15.5    9.4    8.2   15.7    8.0   15.5    9.4    8.2   15.5    9.4    8.2\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     ELEMENT STRESS PRECISION CHECKS                                                                                               \r\n0     E L E M E N T   P R E C I S I O N   C H E C K\r\n    SIGNIFICANT DIGITS FOR SUBCASE =      4,      0 = LOAD\r\n       TYPE     EID     MX     MY    MXY     VX     VY    SX1    SY1   SXY1    SX2    SY2   SXY2\r\n0     QUAD2      31   15.7   15.7   15.7   15.7   15.7   15.0   11.8   13.6   15.0   11.8   13.6\r\n0     QUAD2      32   15.7   15.7   15.7   15.7   15.7   15.0   11.8   13.6   15.0   11.8   13.6\r\n0     QUAD2      41   15.7   15.7   15.7   15.7   15.7   15.7   10.2   14.9   15.7   10.2   14.9\r\n0     QUAD2      42   15.7   15.7   15.7   15.7   15.7   15.7   10.2   14.9   15.7   10.2   14.9\r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD IN LONGITUDINAL DIRECTION                                                                         SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      1.136627E-08   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.136839E-08   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G      2.331782E-08   3.000000E-01   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.557625E-12   3.000000E-01   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.332694E-08   3.000000E-01   0.0            0.0            0.0            0.0                           \r\n            31      G      3.511839E-08   3.030000E-01   0.0            0.0            0.0            0.0                           \r\n            32      G     -7.360022E-12   3.030000E-01   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.513312E-08   3.030000E-01   0.0            0.0            0.0            0.0                           \r\n            41      G      3.251075E-08   3.030300E-01   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.013840E-11   3.030300E-01   0.0            0.0            0.0            0.0                           \r\n            43      G     -3.253103E-08   3.030300E-01   0.0            0.0            0.0            0.0                           \r\n            51      G     -3.321615E-08   3.030302E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.291650E-11   3.030304E-01   0.0            0.0            0.0            0.0                           \r\n            53      G      3.319032E-08   3.030302E-01   0.0            0.0            0.0            0.0                           \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD IN TRANSVERSE DIRECTION                                                                           SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      4.001586E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      4.001586E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G      2.600476E+00   2.800000E+00   0.0            0.0            0.0            0.0                           \r\n            22      G      2.599683E+00  -2.131248E-11   0.0            0.0            0.0            0.0                           \r\n            23      G      2.600476E+00  -2.800000E+00   0.0            0.0            0.0            0.0                           \r\n            31      G      5.420080E+00   2.820000E+00   0.0            0.0            0.0            0.0                           \r\n            32      G      5.420078E+00  -2.152550E-11   0.0            0.0            0.0            0.0                           \r\n            33      G      5.420080E+00  -2.820000E+00   0.0            0.0            0.0            0.0                           \r\n            41      G      8.240239E+00   2.820120E+00   0.0            0.0            0.0            0.0                           \r\n            42      G      8.240239E+00  -2.152745E-11   0.0            0.0            0.0            0.0                           \r\n            43      G      8.240239E+00  -2.820120E+00   0.0            0.0            0.0            0.0                           \r\n            51      G      1.106036E+01   2.820120E+00   0.0            0.0            0.0            0.0                           \r\n            52      G      1.106036E+01  -2.152767E-11   0.0            0.0            0.0            0.0                           \r\n            53      G      1.106036E+01  -2.820120E+00   0.0            0.0            0.0            0.0                           \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD NORMAL TO SURFACE                                                                                 SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            0.0            0.0            9.594370E+00   3.892732E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            9.594370E+00  -3.892732E-01   0.0                           \r\n            21      G      0.0            0.0            1.568320E+02   2.574604E+01   5.975270E-02   0.0                           \r\n            22      G      0.0            0.0            1.563638E+02   2.584833E+01   2.478003E-08   0.0                           \r\n            23      G      0.0            0.0            1.568320E+02   2.574604E+01  -5.975265E-02   0.0                           \r\n            31      G      0.0            0.0            4.153883E+02   2.594679E+01   6.801047E-04   0.0                           \r\n            32      G      0.0            0.0            4.153853E+02   2.594758E+01   2.525376E-08   0.0                           \r\n            33      G      0.0            0.0            4.153883E+02   2.594679E+01  -6.800542E-04   0.0                           \r\n            41      G      0.0            0.0            6.748639E+02   2.594809E+01   1.421553E-06   0.0                           \r\n            42      G      0.0            0.0            6.748639E+02   2.594809E+01   2.525925E-08   0.0                           \r\n            43      G      0.0            0.0            6.748639E+02   2.594809E+01  -1.371035E-06   0.0                           \r\n            51      G      0.0            0.0            9.343448E+02   2.594809E+01  -1.628650E-06   0.0                           \r\n            52      G      0.0            0.0            9.343448E+02   2.594809E+01   2.525915E-08   0.0                           \r\n            53      G      0.0            0.0            9.343448E+02   2.594809E+01   1.679169E-06   0.0                           \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE 4              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            21      G     -1.020553E-03  -2.915823E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.897354E-19  -3.004177E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      1.020553E-03  -2.915823E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -9.535098E-04  -1.924571E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      1.084202E-19  -2.074629E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      9.535098E-04  -1.924571E-03   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.980164E-04  -9.129202E-04   0.0            0.0            0.0            0.0                           \r\n            42      G     -2.710505E-20  -1.087072E-03   0.0            0.0            0.0            0.0                           \r\n            43      G      6.980164E-04  -9.129202E-04   0.0            0.0            0.0            0.0                           \r\n            51      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            53      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD IN LONGITUDINAL DIRECTION                                                                         SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      11   -5.000000E-01     -1.734433E-06   3.000000E+01   9.536743E-07    90.0000    3.000000E+01   -1.907349E-06   1.500000E+01 \r\n             5.000000E-01     -1.734433E-06   3.000000E+01   9.536743E-07    90.0000    3.000000E+01   -1.907349E-06   1.500000E+01 \r\n0      12   -5.000000E-01     -1.734539E-06   3.000000E+01  -9.536743E-07   -90.0000    3.000000E+01   -1.907349E-06   1.500000E+01 \r\n             5.000000E-01     -1.734539E-06   3.000000E+01  -9.536743E-07   -90.0000    3.000000E+01   -1.907349E-06   1.500000E+01 \r\n0      21   -5.000000E-01     -2.922406E-04   3.000000E+01   2.441406E-04    89.9995    3.000000E+01   -2.918243E-04   1.500015E+01 \r\n             5.000000E-01     -2.922406E-04   3.000000E+01   2.441406E-04    89.9995    3.000000E+01   -2.918243E-04   1.500015E+01 \r\n0      22   -5.000000E-01     -2.922407E-04   3.000000E+01  -2.441406E-04   -89.9995    3.000000E+01   -2.918243E-04   1.500015E+01 \r\n             5.000000E-01     -2.922407E-04   3.000000E+01  -2.441406E-04   -89.9995    3.000000E+01   -2.918243E-04   1.500015E+01 \r\n0      31   -5.000000E-01     -3.382332E-02   3.000000E+01   3.125000E-02    89.9404    3.000003E+01   -3.385544E-02   1.501694E+01 \r\n             5.000000E-01     -3.382332E-02   3.000000E+01   3.125000E-02    89.9404    3.000003E+01   -3.385544E-02   1.501694E+01 \r\n0      32   -5.000000E-01     -3.382332E-02   3.000000E+01  -3.125000E-02   -89.9404    3.000003E+01   -3.385544E-02   1.501694E+01 \r\n             5.000000E-01     -3.382332E-02   3.000000E+01  -3.125000E-02   -89.9404    3.000003E+01   -3.385544E-02   1.501694E+01 \r\n0      41   -5.000000E-01      3.411746E-02   3.000000E+01   4.500000E+00    81.6414    3.066118E+01   -6.270628E-01   1.564412E+01 \r\n             5.000000E-01      3.411746E-02   3.000000E+01   4.500000E+00    81.6414    3.066118E+01   -6.270628E-01   1.564412E+01 \r\n0      42   -5.000000E-01      3.411717E-02   3.000000E+01  -4.500000E+00   -81.6414    3.066118E+01   -6.270628E-01   1.564412E+01 \r\n             5.000000E-01      3.411717E-02   3.000000E+01  -4.500000E+00   -81.6414    3.066118E+01   -6.270628E-01   1.564412E+01 \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD IN TRANSVERSE DIRECTION                                                                           SUBCASE 2              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      11   -5.000000E-01     -2.004755E+01   1.400000E+02   5.000000E+01    74.0011    1.543362E+02   -3.438375E+01   9.435998E+01 \r\n             5.000000E-01     -2.004755E+01   1.400000E+02   5.000000E+01    74.0011    1.543362E+02   -3.438375E+01   9.435998E+01 \r\n0      12   -5.000000E-01      2.004756E+01  -1.400000E+02   5.000000E+01    15.9989    3.438376E+01   -1.543362E+02   9.435998E+01 \r\n             5.000000E-01      2.004756E+01  -1.400000E+02   5.000000E+01    15.9989    3.438376E+01   -1.543362E+02   9.435998E+01 \r\n0      21   -5.000000E-01     -3.974609E+00   1.000000E+02   5.000146E+01    68.0577    1.201433E+02   -2.411792E+01   7.213062E+01 \r\n             5.000000E-01     -3.974609E+00   1.000000E+02   5.000146E+01    68.0577    1.201433E+02   -2.411792E+01   7.213062E+01 \r\n0      22   -5.000000E-01      3.972656E+00  -1.000000E+02   5.000195E+01    21.9427    2.411658E+01   -1.201439E+02   7.213026E+01 \r\n             5.000000E-01      3.972656E+00  -1.000000E+02   5.000195E+01    21.9427    2.411658E+01   -1.201439E+02   7.213026E+01 \r\n0      31   -5.000000E-01     -7.500000E-01   6.000000E+01   5.000000E+01    60.6393    8.812834E+01   -2.887834E+01   5.850334E+01 \r\n             5.000000E-01     -7.500000E-01   6.000000E+01   5.000000E+01    60.6393    8.812834E+01   -2.887834E+01   5.850334E+01 \r\n0      32   -5.000000E-01      7.500000E-01  -6.000001E+01   5.000000E+01    29.3607    2.887834E+01   -8.812835E+01   5.850334E+01 \r\n             5.000000E-01      7.500000E-01  -6.000001E+01   5.000000E+01    29.3607    2.887834E+01   -8.812835E+01   5.850334E+01 \r\n0      41   -5.000000E-01      6.400000E+01   1.600000E+01   3.200000E+01    26.5651    8.000000E+01    0.0            4.000000E+01 \r\n             5.000000E-01      6.400000E+01   1.600000E+01   3.200000E+01    26.5651    8.000000E+01    0.0            4.000000E+01 \r\n0      42   -5.000000E-01     -6.400000E+01  -1.600108E+01   3.200000E+01    63.4346   -8.621216E-04   -8.000021E+01   3.999968E+01 \r\n             5.000000E-01     -6.400000E+01  -1.600108E+01   3.200000E+01    63.4346   -8.621216E-04   -8.000021E+01   3.999968E+01 \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     LOAD NORMAL TO SURFACE                                                                                 SUBCASE 3              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      11   -5.000000E-01      1.122579E+01   1.050000E+03   2.090967E+02    79.0355    1.090510E+03   -2.928381E+01   5.598969E+02 \r\n             5.000000E-01     -1.122579E+01  -1.050000E+03  -2.090967E+02   -10.9645    2.928381E+01   -1.090510E+03   5.598969E+02 \r\n0      12   -5.000000E-01      1.122599E+01   1.050000E+03  -2.090971E+02   -79.0355    1.090510E+03   -2.928387E+01   5.598970E+02 \r\n             5.000000E-01     -1.122599E+01  -1.050000E+03   2.090971E+02    10.9645    2.928387E+01   -1.090510E+03   5.598970E+02 \r\n0      21   -5.000000E-01      1.509965E+02   7.499062E+02   2.887031E+02    68.0236    8.664114E+02    3.449139E+01   4.159600E+02 \r\n             5.000000E-01     -1.509965E+02  -7.499062E+02  -2.887031E+02   -21.9764   -3.449139E+01   -8.664114E+02   4.159600E+02 \r\n0      22   -5.000000E-01      1.509964E+02   7.499062E+02  -2.887031E+02   -68.0236    8.664114E+02    3.449130E+01   4.159600E+02 \r\n             5.000000E-01     -1.509964E+02  -7.499062E+02   2.887031E+02    21.9764   -3.449130E+01   -8.664114E+02   4.159600E+02 \r\n0      31   -5.000000E-01      1.747801E+02   4.537500E+02   9.600000E+01    72.7312    4.835933E+02    1.449368E+02   1.693282E+02 \r\n             5.000000E-01     -1.747801E+02  -4.537500E+02  -9.600000E+01   -17.2688   -1.449368E+02   -4.835933E+02   1.693282E+02 \r\n0      32   -5.000000E-01      1.747801E+02   4.560000E+02  -1.020000E+02   -72.0212    4.891000E+02    1.416801E+02   1.737100E+02 \r\n             5.000000E-01     -1.747801E+02  -4.560000E+02   1.020000E+02    17.9788   -1.416801E+02   -4.891000E+02   1.737100E+02 \r\n0      41   -5.000000E-01     -1.563726E+03  -1.488000E+03  -1.536000E+03   -45.7060    1.060352E+01   -3.062330E+03   1.536467E+03 \r\n             5.000000E-01      1.563726E+03   1.488000E+03   1.536000E+03    44.2940    3.062330E+03   -1.060352E+01   1.536467E+03 \r\n0      42   -5.000000E-01     -1.563726E+03  -1.488000E+03  -1.536000E+03   -45.7060    1.060352E+01   -3.062330E+03   1.536467E+03 \r\n             5.000000E-01      1.563726E+03   1.488000E+03   1.536000E+03    44.2940    3.062330E+03   -1.060352E+01   1.536467E+03 \r\n1     RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                                                                                   \r\n0     THERMAL LOAD                                                                                           SUBCASE 4              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      11   -5.000000E-01     -4.897237E-02  -3.960000E-01  -2.772269E-02    -4.5388   -4.677166E-02   -3.982007E-01   1.757145E-01 \r\n             5.000000E-01     -4.897237E-02  -3.960000E-01  -2.772269E-02    -4.5388   -4.677166E-02   -3.982007E-01   1.757145E-01 \r\n0      12   -5.000000E-01     -4.897237E-02  -3.960000E-01   2.772269E-02     4.5388   -4.677166E-02   -3.982007E-01   1.757145E-01 \r\n             5.000000E-01     -4.897237E-02  -3.960000E-01   2.772269E-02     4.5388   -4.677166E-02   -3.982007E-01   1.757145E-01 \r\n0      21   -5.000000E-01     -1.296883E-01  -3.959990E-01  -4.284244E-01   -36.3673    1.857963E-01   -7.114835E-01   4.486399E-01 \r\n             5.000000E-01     -1.296883E-01  -3.959990E-01  -4.284244E-01   -36.3673    1.857963E-01   -7.114835E-01   4.486399E-01 \r\n0      22   -5.000000E-01     -1.296883E-01  -3.959990E-01   4.284244E-01    36.3673    1.857963E-01   -7.114835E-01   4.486399E-01 \r\n             5.000000E-01     -1.296883E-01  -3.959990E-01   4.284244E-01    36.3673    1.857963E-01   -7.114835E-01   4.486399E-01 \r\n0      31   -5.000000E-01     -1.742369E+02  -3.958740E-01  -1.717905E+01   -84.4100    1.285507E+00   -1.759183E+02   8.860188E+01 \r\n             5.000000E-01     -1.742369E+02  -3.958740E-01  -1.717905E+01   -84.4100    1.285507E+00   -1.759183E+02   8.860188E+01 \r\n0      32   -5.000000E-01     -1.742369E+02  -3.959351E-01   1.717905E+01    84.4100    1.285446E+00   -1.759183E+02   8.860185E+01 \r\n             5.000000E-01     -1.742369E+02  -3.959351E-01   1.717905E+01    84.4100    1.285446E+00   -1.759183E+02   8.860185E+01 \r\n0      41   -5.000000E-01     -6.509918E+04  -3.906250E-01   1.309662E+04    79.0410    2.535605E+03   -6.763517E+04   3.508539E+04 \r\n             5.000000E-01     -6.509918E+04  -3.906250E-01   1.309662E+04    79.0410    2.535605E+03   -6.763517E+04   3.508539E+04 \r\n0      42   -5.000000E-01     -6.509918E+04  -3.906250E-01  -1.309662E+04   -79.0410    2.535605E+03   -6.763517E+04   3.508539E+04 \r\n             5.000000E-01     -6.509918E+04  -3.906250E-01  -1.309662E+04   -79.0410    2.535605E+03   -6.763517E+04   3.508539E+04 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY               \r\n DATE:  5/17/95\r\n END TIME: 15:13:42\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02011A,NASTRAN                                                           \r\n     TIME  5                                                                         \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   2,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                           \r\n                  2      LABEL    = CONCENTRATED AND CENTRIFUGAL LOADS                                   \r\n                  3      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                          \r\n                  4          LOAD = 3                                                                    \r\n                  5          OUTPUT                                                                      \r\n                  6               DISP = ALL                                                             \r\n                  7              OLOAD = ALL                                                             \r\n                  8           SPCFORCE = ALL                                                             \r\n                  9           STRESSES = ALL                                                             \r\n                 10              SET 1 = 1,6,7,12,13,18,19,24                                            \r\n                 11            ELFORCE = 1                                                               \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    86, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR           5                       1.0     .0      .0      1               \r\n                    2-        CBAR    1               1       2                               1       +B1     \r\n                    3-        +B1                     -1.0    .0      .0      -1.0    .0      .0              \r\n                    4-        CBAR    2               2       3                               1       +B2     \r\n                    5-        +B2                     -1.0    .0      .0      -1.0    .0      .0              \r\n                    6-        CBAR    3               3       4                               1       +B3     \r\n                    7-        +B3                     -1.0    .0      .0      -1.0    .0      .0              \r\n                    8-        CBAR    4               4       5                               1       +B4     \r\n                    9-        +B4                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   10-        CBAR    5               5       6                               1       +B5     \r\n                   11-        +B5                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   12-        CBAR    6               6       7                               1       +B6     \r\n                   13-        +B6                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   14-        CBAR    7               7       8                               1       +B7     \r\n                   15-        +B7                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   16-        CBAR    8               8       9                               1       +B8     \r\n                   17-        +B8                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   18-        CBAR    9               9       10                              1       +B9     \r\n                   19-        +B9                     -1.0    .0      .0      -1.0    .0      .0              \r\n                   20-        CBAR    10              10      11                              1       +B10    \r\n                   21-        +B10                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   22-        CBAR    11              11      12                              1       +B11    \r\n                   23-        +B11                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   24-        CBAR    12              12      13                              1       +B12    \r\n                   25-        +B12                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   26-        CBAR    13              13      14                              1       +B13    \r\n                   27-        +B13                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   28-        CBAR    14              14      15                              1       +B14    \r\n                   29-        +B14                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   30-        CBAR    15              15      16                              1       +B15    \r\n                   31-        +B15                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   32-        CBAR    16              16      17                              1       +B16    \r\n                   33-        +B16                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   34-        CBAR    17              17      18                              1       +B17    \r\n                   35-        +B17                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   36-        CBAR    18              18      19                              1       +B18    \r\n                   37-        +B18                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   38-        CBAR    19              19      20                              1       +B19    \r\n                   39-        +B19                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   40-        CBAR    20              20      21                              1       +B20    \r\n                   41-        +B20                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   42-        CBAR    21              21      22                              1       +B21    \r\n                   43-        +B21                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   44-        CBAR    22              22      23                              1       +B22    \r\n                   45-        +B22                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   46-        CBAR    23              23      24                              1       +B23    \r\n                   47-        +B23                    -1.0    .0      .0      -1.0    .0      .0              \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n\r\n      CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CBAR    24              24      1                               1       +B24    \r\n                   49-        +B24                    -1.0    .0      .0      -1.0    .0      .0              \r\n                   50-        CORD2C  2       0       .0      10.0    .0      .0      10.0    1.0     CCORD   \r\n                   51-        +CORD   .0      9.0     .0                                                      \r\n                   52-        FORCE   1       13      2       100.0   1.0     .0      .0                      \r\n                   53-        GRDSET          2                               2       345                     \r\n                   54-        GRID    1               11.0    .0      .0                                      \r\n                   55-        GRID    2               11.0    15.0    .0                                      \r\n                   56-        GRID    3               11.0    30.0    .0                                      \r\n                   57-        GRID    4               11.0    45.0    .0                                      \r\n                   58-        GRID    5               11.0    60.0    .0                                      \r\n                   59-        GRID    6               11.0    75.0    .0                                      \r\n                   60-        GRID    7               11.0    90.0    .0                                      \r\n                   61-        GRID    8               11.0    105.0   .0                                      \r\n                   62-        GRID    9               11.0    120.0   .0                                      \r\n                   63-        GRID    10              11.0    135.0   .0                                      \r\n                   64-        GRID    11              11.0    150.0   .0                                      \r\n                   65-        GRID    12              11.0    165.0   .0                                      \r\n                   66-        GRID    13              11.0    180.    .0                                      \r\n                   67-        GRID    14              11.0    195.    .0                                      \r\n                   68-        GRID    15              11.0    210.    .0                                      \r\n                   69-        GRID    16              11.0    225.    .0                                      \r\n                   70-        GRID    17              11.0    240.    .0                                      \r\n                   71-        GRID    18              11.0    255.    .0                                      \r\n                   72-        GRID    19              11.0    270.    .0                                      \r\n                   73-        GRID    20              11.0    285.    .0                                      \r\n                   74-        GRID    21              11.0    300.    .0                                      \r\n                   75-        GRID    22              11.0    315.    .0                                      \r\n                   76-        GRID    23              11.0    330.    .0                                      \r\n                   77-        GRID    24              11.0    345.    .0                                      \r\n                   78-        GRID    25      2       .0      .0      .0              123456                  \r\n                   79-        LOAD    3       1.0     1.0     1       1.0     2                               \r\n                   80-        MAT1    1       1000.0  400.0           .5                              +MAT1   \r\n                   81-        +MAT1   100.    200.    300.                                                    \r\n                   82-        PARAM   GRDPNT  19                                                              \r\n                   83-        PBAR    5       1       1000.0  10.     10.                             +P5     \r\n                   84-        +P5     1.0     1.0     -1.0    -1.0                                            \r\n                   85-        RFORCE  2       25      2       .159155 .0      .0      1.0                     \r\n                   86-        SUPORT  1       2       1       1       13      2                               \r\n                              ENDDATA\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           24\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        3\r\n                                        AVG WAVEFRONT    2.875\r\n                                        RMS WAVEFRONT    2.908\r\n                                        RMS BANDWIDTH    5.264\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            3\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        3\r\n                                        AVG WAVEFRONT    2.875\r\n                                        RMS WAVEFRONT    2.908\r\n                                        RMS BANDWIDTH    2.908\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       24        24\r\n                                        PROFILE (P)                         69        69\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            3         3\r\n                                        AVERAGE WAVEFRONT (C-AVG)        2.875     2.875\r\n                                        RMS WAVEFRONT (C-RMS)            2.908     2.908\r\n                                        RMS BANDWITCH (B-RMS)            5.264     5.264\r\n                                        NUMBER OF GRID POINTS (N)                     25\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                24\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        24\r\n                                        MATRIX DENSITY, PERCENT                   12.500\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       25\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =       19\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  3.13262851D+04 -5.68434189D-14  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.47353916D-03 *\r\n                *  5.68434189D-14  3.13262851D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  3.44589147D+05 *\r\n                *  0.00000000D+00  0.00000000D+00  3.13262858D+04 -5.75844994D-04 -3.44589146D+05  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -5.75845012D-04  1.56631423D+06  1.42182534D-03  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -3.44589146D+05  1.42182531D-03  5.35679491D+06  0.00000000D+00 *\r\n                *  1.47353917D-03  3.44589147D+05  0.00000000D+00  0.00000000D+00  0.00000000D+00  6.92310919D+06 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            3.132628513D+04      0.000000000D+00 -4.703842661D-08  0.000000000D+00\r\n                            Y            3.132628513D+04      1.100000035D+01  0.000000000D+00  0.000000000D+00\r\n                            Z            3.132628582D+04      1.100000007D+01 -1.838216625D-08  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.566314229D+06  4.912469627D-03  0.000000000D+00  *\r\n                                      *  4.912469627D-03  1.566314277D+06  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  3.132628446D+06  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.566314229D+06                                    *\r\n                                      *                   1.566314277D+06                   *\r\n                                      *                                    3.132628446D+06  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n\r\n      CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   6.9275717E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.2960218E-15\r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            1.059570E-07                  \r\n             2      G     -9.235611E-03   1.527942E-01   0.0            0.0            0.0            1.994616E-02                  \r\n             3      G     -3.096246E-02   3.055936E-01   0.0            0.0            0.0            3.581405E-02                  \r\n             4      G     -4.850188E-02   4.560749E-01   0.0            0.0            0.0            4.418124E-02                  \r\n             5      G     -3.809213E-02   5.978281E-01   0.0            0.0            0.0            4.286394E-02                  \r\n             6      G      2.567450E-02   7.196550E-01   0.0            0.0            0.0            3.136594E-02                  \r\n             7      G      1.633540E-01   8.062631E-01   0.0            0.0            0.0            1.115041E-02                  \r\n             8      G      3.840694E-01   8.404521E-01   0.0            0.0            0.0           -1.431701E-02                  \r\n             9      G      6.799029E-01   8.066742E-01   0.0            0.0            0.0           -3.975694E-02                  \r\n            10      G      1.022223E+00   6.955946E-01   0.0            0.0            0.0           -5.848686E-02                  \r\n            11      G      1.360743E+00   5.090740E-01   0.0            0.0            0.0           -6.301698E-02                  \r\n            12      G      1.625783E+00   2.648372E-01   0.0            0.0            0.0           -4.578657E-02                  \r\n            13      G      1.733905E+00   0.0            0.0            0.0            0.0           -2.284842E-06                  \r\n            14      G      1.625796E+00  -2.648381E-01   0.0            0.0            0.0            4.578251E-02                  \r\n            15      G      1.360763E+00  -5.090763E-01   0.0            0.0            0.0            6.301593E-02                  \r\n            16      G      1.022240E+00  -6.955984E-01   0.0            0.0            0.0            5.848927E-02                  \r\n            17      G      6.799079E-01  -8.066780E-01   0.0            0.0            0.0            3.976232E-02                  \r\n            18      G      3.840587E-01  -8.404579E-01   0.0            0.0            0.0            1.431959E-02                  \r\n            19      G      1.633433E-01  -8.062711E-01   0.0            0.0            0.0           -1.115287E-02                  \r\n            20      G      2.566912E-02  -7.196607E-01   0.0            0.0            0.0           -3.136814E-02                  \r\n            21      G     -3.809446E-02  -5.978311E-01   0.0            0.0            0.0           -4.286440E-02                  \r\n            22      G     -4.850535E-02  -4.560763E-01   0.0            0.0            0.0           -4.418079E-02                  \r\n            23      G     -3.096606E-02  -3.055954E-01   0.0            0.0            0.0           -3.581496E-02                  \r\n            24      G     -9.236000E-03  -1.527956E-01   0.0            0.0            0.0           -1.994708E-02                  \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.305263E+04  -3.111988E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.305263E+04  -6.223976E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      1.305263E+04   6.223976E-04   0.0            0.0            0.0            0.0                           \r\n             6      G      1.305263E+04   3.111988E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.305263E+04  -3.111988E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      1.305263E+04  -6.223977E-04   0.0            0.0            0.0            0.0                           \r\n            10      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.305262E+04   6.223974E-04   0.0            0.0            0.0            0.0                           \r\n            12      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G      1.315263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      1.305262E+04  -3.111987E-04   0.0            0.0            0.0            0.0                           \r\n            15      G      1.305262E+04  -6.223974E-04   0.0            0.0            0.0            0.0                           \r\n            16      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      1.305263E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      1.305263E+04   3.111988E-04   0.0            0.0            0.0            0.0                           \r\n            19      G      1.305262E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            20      G      1.305263E+04  -3.111988E-04   0.0            0.0            0.0            0.0                           \r\n            21      G      1.305262E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            22      G      1.305262E+04   0.0            0.0            0.0            0.0            0.0                           \r\n            23      G      1.305263E+04   6.223975E-04   0.0            0.0            0.0            0.0                           \r\n            24      G      1.305263E+04   3.111989E-04   0.0            0.0            0.0            0.0                           \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.999944E+01  -3.029712E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            3.331374E-03   0.0            0.0            0.0            0.0                           \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1    -8.047074E+01  0.0           -7.234190E+01  0.0           -3.113871E+00  0.0            4.999233E+04   0.0         \r\n            6     6.312048E+01  0.0            9.175675E+01  0.0           -1.096954E+01  0.0            5.002170E+04   0.0         \r\n            7     9.175635E+01  0.0            1.033568E+02  0.0           -4.443726E+00  0.0            5.002794E+04   0.0         \r\n           12    -1.147656E+02  0.0           -2.360047E+02  0.0            4.644238E+01  0.0            5.001426E+04   0.0         \r\n           13    -2.360010E+02  0.0           -1.147697E+02  0.0           -4.643945E+01  0.0            5.001426E+04   0.0         \r\n           18     1.033936E+02  0.0            9.175837E+01  0.0            4.457031E+00  0.0            5.002794E+04   0.0         \r\n           19     9.175867E+01  0.0            6.311644E+01  0.0            1.097183E+01  0.0            5.002173E+04   0.0         \r\n           24    -7.235044E+01  0.0           -8.047080E+01  0.0            3.110624E+00  0.0            4.999234E+04   0.0         \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     8.047074E+00  -8.047074E+00   0.0            0.0            4.999233E+01   5.803940E+01   4.194526E+01  7.2E-01        \r\n             7.234190E+00  -7.234190E+00   0.0            0.0                           5.722652E+01   4.275814E+01                 \r\n0      2     7.234229E+00  -7.234229E+00   0.0            0.0            4.999500E+01   5.722923E+01   4.276077E+01  7.5E-01        \r\n             4.922631E+00  -4.922631E+00   0.0            0.0                           5.491763E+01   4.507237E+01                 \r\n0      3     4.922711E+00  -4.922711E+00   0.0            0.0            4.999998E+01   5.492269E+01   4.507727E+01  8.2E-01        \r\n             1.487651E+00  -1.487651E+00   0.0            0.0                           5.148763E+01   4.851233E+01                 \r\n0      4     1.487640E+00  -1.487640E+00   0.0            0.0            5.000672E+01   5.149436E+01   4.851908E+01  9.0E-01        \r\n            -2.496883E+00   2.496883E+00   0.0            0.0                           5.250360E+01   4.750983E+01                 \r\n0      5    -2.496933E+00   2.496933E+00   0.0            0.0            5.001425E+01   5.251118E+01   4.751732E+01  7.8E-01        \r\n            -6.312027E+00   6.312027E+00   0.0            0.0                           5.632628E+01   4.370222E+01                 \r\n0      6    -6.312048E+00   6.312048E+00   0.0            0.0            5.002170E+01   5.633375E+01   4.370965E+01  6.9E-01        \r\n            -9.175675E+00   9.175675E+00   0.0            0.0                           5.919738E+01   4.084603E+01                 \r\n0      7    -9.175634E+00   9.175634E+00   0.0            0.0            5.002794E+01   5.920358E+01   4.085230E+01  6.6E-01        \r\n            -1.033568E+01   1.033568E+01   0.0            0.0                           6.036362E+01   3.969226E+01                 \r\n0      8    -1.033564E+01   1.033564E+01   0.0            0.0            5.003197E+01   6.036761E+01   3.969632E+01  6.6E-01        \r\n            -9.154663E+00   9.154663E+00   0.0            0.0                           5.918663E+01   4.087730E+01                 \r\n0      9    -9.154492E+00   9.154492E+00   0.0            0.0            5.003300E+01   5.918749E+01   4.087851E+01  6.9E-01        \r\n            -5.194984E+00   5.194984E+00   0.0            0.0                           5.522799E+01   4.483802E+01                 \r\n0     10    -5.195117E+00   5.195117E+00   0.0            0.0            5.003051E+01   5.522563E+01   4.483540E+01  8.1E-01        \r\n             1.724298E+00  -1.724298E+00   0.0            0.0                           5.175481E+01   4.830622E+01                 \r\n0     11     1.724316E+00  -1.724316E+00   0.0            0.0            5.002422E+01   5.174854E+01   4.829990E+01  6.3E-01        \r\n             1.147656E+01  -1.147656E+01   0.0            0.0                           6.150078E+01   3.854766E+01                 \r\n0     12     1.147656E+01  -1.147656E+01   0.0            0.0            5.001426E+01   6.149082E+01   3.853770E+01  3.6E-01        \r\n             2.360047E+01  -2.360047E+01   0.0            0.0                           7.361473E+01   2.641379E+01                 \r\n0     13     2.360010E+01  -2.360010E+01   0.0            0.0            5.001426E+01   7.361436E+01   2.641417E+01  3.6E-01        \r\n             1.147697E+01  -1.147697E+01   0.0            0.0                           6.149123E+01   3.853729E+01                 \r\n0     14     1.147715E+01  -1.147715E+01   0.0            0.0            5.002425E+01   6.150140E+01   3.854710E+01  6.3E-01        \r\n             1.725673E+00  -1.725673E+00   0.0            0.0                           5.174992E+01   4.829858E+01                 \r\n0     15     1.726269E+00  -1.726269E+00   0.0            0.0            5.003051E+01   5.175678E+01   4.830424E+01  8.1E-01        \r\n            -5.194039E+00   5.194039E+00   0.0            0.0                           5.522455E+01   4.483648E+01                 \r\n1     INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                                                                                   \r\n0     CONCENTRATED AND CENTRIFUGAL LOADS                                                                                            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16    -5.194140E+00   5.194140E+00   0.0            0.0            5.003306E+01   5.522720E+01   4.483892E+01  6.9E-01        \r\n            -9.153140E+00   9.153140E+00   0.0            0.0                           5.918620E+01   4.087992E+01                 \r\n0     17    -9.153076E+00   9.153076E+00   0.0            0.0            5.003197E+01   5.918504E+01   4.087889E+01  6.6E-01        \r\n            -1.033928E+01   1.033928E+01   0.0            0.0                           6.037125E+01   3.969268E+01                 \r\n0     18    -1.033936E+01   1.033936E+01   0.0            0.0            5.002794E+01   6.036729E+01   3.968858E+01  6.6E-01        \r\n            -9.175837E+00   9.175837E+00   0.0            0.0                           5.920377E+01   4.085210E+01                 \r\n0     19    -9.175867E+00   9.175867E+00   0.0            0.0            5.002174E+01   5.919760E+01   4.084587E+01  6.9E-01        \r\n            -6.311644E+00   6.311644E+00   0.0            0.0                           5.633338E+01   4.371009E+01                 \r\n0     20    -6.311645E+00   6.311645E+00   0.0            0.0            5.001428E+01   5.632593E+01   4.370264E+01  7.8E-01        \r\n            -2.495986E+00   2.495986E+00   0.0            0.0                           5.251027E+01   4.751830E+01                 \r\n0     21    -2.495996E+00   2.495996E+00   0.0            0.0            5.000669E+01   5.250268E+01   4.751069E+01  9.0E-01        \r\n             1.487465E+00  -1.487465E+00   0.0            0.0                           5.149415E+01   4.851922E+01                 \r\n0     22     1.487471E+00  -1.487471E+00   0.0            0.0            4.999998E+01   5.148746E+01   4.851251E+01  8.2E-01        \r\n             4.921838E+00  -4.921838E+00   0.0            0.0                           5.492182E+01   4.507815E+01                 \r\n0     23     4.921772E+00  -4.921772E+00   0.0            0.0            4.999499E+01   5.491676E+01   4.507322E+01  7.5E-01        \r\n             7.235080E+00  -7.235080E+00   0.0            0.0                           5.723007E+01   4.275991E+01                 \r\n0     24     7.235044E+00  -7.235044E+00   0.0            0.0            4.999234E+01   5.722738E+01   4.275730E+01  7.2E-01        \r\n             8.047080E+00  -8.047080E+00   0.0            0.0                           5.803942E+01   4.194526E+01                 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                         \r\n DATE:  5/17/95\r\n END TIME: 15:14:34\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02021A,NASTRAN                                                           \r\n     APP   DISPLACEMENT,SUBS                                                         \r\n     SOL   2,0                                                                       \r\n     TIME  10                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE1                                                             \r\n       PASSWORD = DEMO                                                               \r\n       SOF(1)   = FT18,950,NEW $ DEC VAX                                             \r\n       RUN      = STEP                                                               \r\n       OPTION   = K,M,P                                                              \r\n       NAME     = HUB                                                                \r\n       SAVEPLOT = 1                                                                  \r\n       SOFP TOC                                                                      \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n        3    SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n        4              S,N,NOGPDT $                                                  \r\n        5    EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n        6    ALTER         50, 50\r\n        7    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        8    LABEL     LBSBEG $                                                      \r\n        9    COND      LBLIS,DRY $                                                   \r\n       10    ALTER         65, 68\r\n       11    LABEL     LBLIS $                                                       \r\n       12    ALTER         70, 97\r\n       13    SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n       14              *HUB     */1       /*PVEC* $                                  \r\n       15    COND      LBSEND,DRY $                                                  \r\n       16    EQUIV     PG,PL/NOSET $                                                 \r\n       17    COND      LBL10,NOSET $                                                 \r\n       18    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n       19    CHKPNT    PO,PS,PL $                                                    \r\n       20    LABEL     LBL10 $                                                       \r\n       21    SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*HUB     */*KMTX*/*MMTX*/*PVEC*/\r\n       22              *BMTX*/*K4MX* $                                               \r\n       23    EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n       24    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       25              *    */*    */*    * $                                        \r\n       26    LABEL     LBSEND $                                                      \r\n       27    JUMP      FINIS $                                                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                          \r\n                  3      LABEL    = SUBSTRUCTURE 1, RUN 1, PHASE 1                                       \r\n                  4           SPC = 30                                                                   \r\n                  5      SUBCASE 1                                                                       \r\n                  6      LABEL  = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE          \r\n                  7        LOAD = 1                                                                      \r\n                  8      SUBCASE 2                                                                       \r\n                  9      LABEL  = CHECK ON RELEASE FEATURE AT GRID POINT 5                               \r\n                 10        LOAD = 3                                                                      \r\n                 11      OUTPUT(PLOT)                                                                    \r\n                 12       SET 1 = ALL                                                                    \r\n                 13       CSCA  = 2.0                                                                    \r\n                 14      PLOT                                                                            \r\n                 15      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    57, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1       0       .0      .0      .0      .0      .0      1.0     +COR    \r\n                    2-        +COR    1.0     .0      .0                                                      \r\n                    3-        CQDMEM  1       10      1       4       5       2                               \r\n                    4-        CQDMEM  3       10      4       7       108     5                               \r\n                    5-        CQDMEM  5       10      108     7       10      11                              \r\n                    6-        CQDMEM  7       10      13      14      11      10                              \r\n                    7-        CQDMEM  9       10      16      17      14      13                              \r\n                    8-        CQDMEM  11      10      19      20      17      16                              \r\n                    9-        CQDMEM  13      10      20      19      22      23                              \r\n                   10-        CQDMEM  15      10      25      26      23      22                              \r\n                   11-        CQDMEM  17      10      29      26      25      28                              \r\n                   12-        CQDMEM  19      10      32      29      28      31                              \r\n                   13-        CQDMEM  21      10      32      31      34      35                              \r\n                   14-        CQDMEM  23      10      37      38      35      34                              \r\n                   15-        CQDMEM  25      10      38      37      40      41                              \r\n                   16-        CQDMEM  27      10      41      40      43      44                              \r\n                   17-        CQDMEM  29      10      44      43      46      47                              \r\n                   18-        CQDMEM  31      10      1       2       47      46                              \r\n                   19-        FORCE1  3       4       1.0     5       4                                       \r\n                   20-        GRDSET                                                  3456                    \r\n                   21-        GRID    1               -5.0    10.0                                            \r\n                   22-        GRID    2               -5.0    15.0                                            \r\n                   23-        GRID    4               .0      10.0                                            \r\n                   24-        GRID    5               .0      15.0                                            \r\n                   25-        GRID    7               5.0     10.0                                            \r\n                   26-        GRID    10              7.5     7.5                                             \r\n                   27-        GRID    11              10.0    10.0                                            \r\n                   28-        GRID    13              10.0    5.0                                             \r\n                   29-        GRID    14              15.0    5.0                                             \r\n                   30-        GRID    16              10.0    .0                                              \r\n                   31-        GRID    17              15.0    .0                                              \r\n                   32-        GRID    19              10.0    -5.0                                            \r\n                   33-        GRID    20              15.0    -5.0                                            \r\n                   34-        GRID    22              7.5     -7.5                                            \r\n                   35-        GRID    23              10.0    -10.0                                           \r\n                   36-        GRID    25              5.0     -10.0                                           \r\n                   37-        GRID    26              5.0     -15.0                                           \r\n                   38-        GRID    28              .0      -10.0                                           \r\n                   39-        GRID    29              .0      -15.0                                           \r\n                   40-        GRID    31              -5.0    -10.0                                           \r\n                   41-        GRID    32              -5.0    -15.0                                           \r\n                   42-        GRID    34              -7.5    -7.5                                            \r\n                   43-        GRID    35              -10.0   -10.0                                           \r\n                   44-        GRID    37              -10.0   -5.0                                            \r\n                   45-        GRID    38              -15.0   -5.0                                            \r\n                   46-        GRID    40              -10.0   .0                                              \r\n                   47-        GRID    41              -15.0   .0                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    43              -10.0   5.0                                             \r\n                   49-        GRID    44              -15.0   5.0                                             \r\n                   50-        GRID    46              -7.5    7.5                                             \r\n                   51-        GRID    47              -10.0   10.0                                            \r\n                   52-        GRID    108             5.0     15.0            1                               \r\n                   53-        MAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\n                   54-        PQDMEM  10      50      .1                                                      \r\n                   55-        RFORCE  1       0       0       .1591579.0      .0      1.0                     \r\n                   56-        SPC1    30      1       13      19      37      43                              \r\n                   57-        SPC1    30      2       1       7       31      25                              \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n\r\n       4  SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       4  EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR6,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11A,NOGENL $                                                \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11A $                                                       \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  LABEL    LBL11 $                                                        \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR3,NOL $                                                   \r\n\r\n      50  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      50  LABEL     LBSBEG $                                                      \r\n\r\n      50  COND      LBLIS,DRY $                                                   \r\n\r\n      51  PURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/      \r\n                   SINGLE $                                                       \r\n\r\n      52  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      53  COND     LBL2,MPCF2 $                                                   \r\n\r\n      54  MCE1     USET,RG/GM $                                                   \r\n\r\n      55  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      56  LABEL    LBL2 $                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      58  COND     LBL3,SINGLE $                                                  \r\n\r\n      59  SCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $                             \r\n\r\n      60  LABEL    LBL3 $                                                         \r\n\r\n      61  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      62  COND     LBL5,OMIT $                                                    \r\n\r\n      63  SMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $                  \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      68  LABEL     LBLIS $                                                       \r\n\r\n      69  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      97  SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n                    *HUB     */1       /*PVEC* $                                  \r\n\r\n      97  COND      LBSEND,DRY $                                                  \r\n\r\n      97  EQUIV     PG,PL/NOSET $                                                 \r\n\r\n      97  COND      LBL10,NOSET $                                                 \r\n\r\n      97  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      97  CHKPNT    PO,PS,PL $                                                    \r\n\r\n      97  LABEL     LBL10 $                                                       \r\n\r\n      97  SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*HUB     */*KMTX*/*MMTX*/*PVEC*/\r\n                    *BMTX*/*K4MX* $                                               \r\n\r\n      97  EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n\r\n      97  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      97  LABEL     LBSEND $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      97  JUMP      FINIS $                                                       \r\n\r\n      98  LABEL    ERROR1 $                                                       \r\n\r\n      99  PRTPARM  //-1/*INERTIA* $                                               \r\n\r\n     100  LABEL    ERROR2 $                                                       \r\n\r\n     101  PRTPARM  //-2/*INERTIA* $                                               \r\n\r\n     102  LABEL    ERROR3 $                                                       \r\n\r\n     103  PRTPARM  //-3/*INERTIA* $                                               \r\n\r\n     104  LABEL    ERROR4 $                                                       \r\n\r\n     105  PRTPARM  //-4/*INERTIA* $                                               \r\n\r\n     106  LABEL    ERROR5 $                                                       \r\n\r\n     107  PRTPARM  //-5/*INERTIA* $                                               \r\n\r\n     108  LABEL    ERROR6 $                                                       \r\n\r\n     109  PRTPARM  //-6/*INERTIA* $                                               \r\n\r\n     110  LABEL    FINIS $                                                        \r\n\r\n     111  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     112  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR5   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR2   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL11    NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           31\r\n                                        PROFILE            186\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.812\r\n                                        RMS WAVEFRONT    5.990\r\n                                        RMS BANDWIDTH    9.823\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            164\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    5.125\r\n                                        RMS WAVEFRONT    5.256\r\n                                        RMS BANDWIDTH    5.256\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       31         6\r\n                                        PROFILE (P)                        186       164\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.812     5.125\r\n                                        RMS WAVEFRONT (C-RMS)            5.990     5.256\r\n                                        RMS BANDWITCH (B-RMS)            9.823     5.256\r\n                                        NUMBER OF GRID POINTS (N)                     32\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           5\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                        80\r\n                                        MATRIX DENSITY, PERCENT                   18.750\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   8\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       4       3       5       4\r\n                         SEQGP          7       7      10      11      11      12      13      15\r\n                         SEQGP         14      16      16      19      17      20      19      23\r\n                         SEQGP         20      24      22      27      23      28      25      31\r\n                         SEQGP         26      32      28      30      29      29      31      26\r\n                         SEQGP         32      25      34      22      35      21      37      18\r\n                         SEQGP         38      17      40      14      41      13      43      10\r\n                         SEQGP         44       9      46       6      47       5     108       8\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  2.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.977029E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       0   -   X0 = -3.007330E+00, Y0 = -0.371896E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      0  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE HUB      SUBCASE        1 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET        1 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE HUB      SUBCASE        2 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET        3 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE HUB     \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1                                                                                                \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   934912 WORDS.\r\n                      OR =      913 BLOCKS.\r\n                      OR =       98 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       13\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:16: 4\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02022A,NASTRAN                                                           \r\n     APP   DISPLACEMENT,SUBS                                                         \r\n     SOL   2,0                                                                       \r\n     TIME  10                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE1                                                             \r\n       PASSWORD = DEMO                                                               \r\n         SOF(1) = FT18,950 $ DEC VAX                                                 \r\n            RUN = STEP                                                               \r\n         OPTION = K,M,P                                                              \r\n           NAME = ROOT1                                                              \r\n       SAVEPLOT = 1                                                                  \r\n       SOFP TOC                                                                      \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n        3    SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n        4              S,N,NOGPDT $                                                  \r\n        5    EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n        6    ALTER         50, 50\r\n        7    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        8    LABEL     LBSBEG $                                                      \r\n        9    COND      LBLIS,DRY $                                                   \r\n       10    ALTER         65, 68\r\n       11    LABEL     LBLIS $                                                       \r\n       12    ALTER         70, 97\r\n       13    SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n       14              *ROOT1   */1       /*PVEC* $                                  \r\n       15    COND      LBSEND,DRY $                                                  \r\n       16    EQUIV     PG,PL/NOSET $                                                 \r\n       17    COND      LBL10,NOSET $                                                 \r\n       18    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n       19    CHKPNT    PO,PS,PL $                                                    \r\n       20    LABEL     LBL10 $                                                       \r\n       21    SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*ROOT1   */*KMTX*/*MMTX*/*PVEC*/\r\n       22              *BMTX*/*K4MX* $                                               \r\n       23    EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n       24    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       25              *    */*    */*    * $                                        \r\n       26    LABEL     LBSEND $                                                      \r\n       27    JUMP      FINIS $                                                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                          \r\n                  3      LABEL    = SUBSTRUCTURE 2, RUN 2, PHASE 1                                       \r\n                  4          LOAD = 1                                                                    \r\n                  5      OUTPUT(PLOT)                                                                    \r\n                  6        SET 1 = ALL                                                                   \r\n                  7        CSCA  = 2.0                                                                   \r\n                  8        PLOT                                                                          \r\n                  9      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    15, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQDMEM  1       10      3       4       2       1                               \r\n                    2-        CQDMEM  2       10      5       6       4       3                               \r\n                    3-        CQDMEM  3       10      6       8       7       4                               \r\n                    4-        GRDSET                                                  3456                    \r\n                    5-        GRID    1               .0      27.5                                            \r\n                    6-        GRID    2               5.0     27.5                                            \r\n                    7-        GRID    3               .0      20.0                                            \r\n                    8-        GRID    4               5.0     20.0                                            \r\n                    9-        GRID    5               .0      15.0                                            \r\n                   10-        GRID    6               5.0     15.0                                            \r\n                   11-        GRID    7               12.5    12.5                                            \r\n                   12-        GRID    8               10.0    10.0                                            \r\n                   13-        MAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\n                   14-        PQDMEM  10      50      .1                                                      \r\n                   15-        RFORCE  1                       .1591579.0      .0      1.0                     \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n\r\n       4  SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       4  EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR6,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11A,NOGENL $                                                \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11A $                                                       \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  LABEL    LBL11 $                                                        \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR3,NOL $                                                   \r\n\r\n      50  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      50  LABEL     LBSBEG $                                                      \r\n\r\n      50  COND      LBLIS,DRY $                                                   \r\n\r\n      51  PURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/      \r\n                   SINGLE $                                                       \r\n\r\n      52  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      53  COND     LBL2,MPCF2 $                                                   \r\n\r\n      54  MCE1     USET,RG/GM $                                                   \r\n\r\n      55  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      56  LABEL    LBL2 $                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      58  COND     LBL3,SINGLE $                                                  \r\n\r\n      59  SCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $                             \r\n\r\n      60  LABEL    LBL3 $                                                         \r\n\r\n      61  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      62  COND     LBL5,OMIT $                                                    \r\n\r\n      63  SMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $                  \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      68  LABEL     LBLIS $                                                       \r\n\r\n      69  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      97  SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n                    *ROOT1   */1       /*PVEC* $                                  \r\n\r\n      97  COND      LBSEND,DRY $                                                  \r\n\r\n      97  EQUIV     PG,PL/NOSET $                                                 \r\n\r\n      97  COND      LBL10,NOSET $                                                 \r\n\r\n      97  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      97  CHKPNT    PO,PS,PL $                                                    \r\n\r\n      97  LABEL     LBL10 $                                                       \r\n\r\n      97  SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*ROOT1   */*KMTX*/*MMTX*/*PVEC*/\r\n                    *BMTX*/*K4MX* $                                               \r\n\r\n      97  EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n\r\n      97  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      97  LABEL     LBSEND $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      97  JUMP      FINIS $                                                       \r\n\r\n      98  LABEL    ERROR1 $                                                       \r\n\r\n      99  PRTPARM  //-1/*INERTIA* $                                               \r\n\r\n     100  LABEL    ERROR2 $                                                       \r\n\r\n     101  PRTPARM  //-2/*INERTIA* $                                               \r\n\r\n     102  LABEL    ERROR3 $                                                       \r\n\r\n     103  PRTPARM  //-3/*INERTIA* $                                               \r\n\r\n     104  LABEL    ERROR4 $                                                       \r\n\r\n     105  PRTPARM  //-4/*INERTIA* $                                               \r\n\r\n     106  LABEL    ERROR5 $                                                       \r\n\r\n     107  PRTPARM  //-5/*INERTIA* $                                               \r\n\r\n     108  LABEL    ERROR6 $                                                       \r\n\r\n     109  PRTPARM  //-6/*INERTIA* $                                               \r\n\r\n     110  LABEL    FINIS $                                                        \r\n\r\n     111  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     112  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR5   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR2   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL11    NOT REFERENCED\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  2.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 4.575494E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       0   -   X0 =  5.671736E+00, Y0 = -0.262135E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      0  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE ROOT1    SUBCASE        1 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET        1 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE ROOT1   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1                                                                                                \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B     0    0    0    0    0    3  3     3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   927744 WORDS.\r\n                      OR =      906 BLOCKS.\r\n                      OR =       97 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       20\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:16:43\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02023a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02023A,NASTRAN                                                           \r\n     APP   DISPLACEMENT,SUBS                                                         \r\n     SOL   2,0                                                                       \r\n     TIME  10                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE1                                                             \r\n       PASSWORD = DEMO                                                               \r\n       SOF(1) = FT18,950 $ DEC VAX                                                   \r\n       RUN = STEP                                                                    \r\n       OPTION = K,M,P                                                                \r\n       NAME = VANE1                                                                  \r\n       SAVEPLOT = 1                                                                  \r\n       SOFP TOC                                                                      \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n        3    SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n        4              S,N,NOGPDT $                                                  \r\n        5    EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n        6    ALTER         50, 50\r\n        7    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        8    LABEL     LBSBEG $                                                      \r\n        9    COND      LBLIS,DRY $                                                   \r\n       10    ALTER         65, 68\r\n       11    LABEL     LBLIS $                                                       \r\n       12    ALTER         70, 97\r\n       13    SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n       14              *VANE1   */1       /*PVEC* $                                  \r\n       15    COND      LBSEND,DRY $                                                  \r\n       16    EQUIV     PG,PL/NOSET $                                                 \r\n       17    COND      LBL10,NOSET $                                                 \r\n       18    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n       19    CHKPNT    PO,PS,PL $                                                    \r\n       20    LABEL     LBL10 $                                                       \r\n       21    SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*VANE1   */*KMTX*/*MMTX*/*PVEC*/\r\n       22              *BMTX*/*K4MX* $                                               \r\n       23    EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n       24    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       25              *    */*    */*    * $                                        \r\n       26    LABEL     LBSEND $                                                      \r\n       27    JUMP      FINIS $                                                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                          \r\n                  3      LABEL    = SUBSTRUCTURE 3, RUN 3, PHASE 1                                       \r\n                  4      SUBCASE 1                                                                       \r\n                  5      LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                      \r\n                  6       LOAD = 1                                                                       \r\n                  7      SUBCASE 2                                                                       \r\n                  8      LABEL = EXTENSION OF PANEL                                                      \r\n                  9       LOAD = 2                                                                       \r\n                 10      OUTPUT(PLOT)                                                                    \r\n                 11       SET 1 = ALL                                                                    \r\n                 12       PLOT                                                                           \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    20, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2R  1               5.0     22.5    .0      5.0     22.5    1.0     +A      \r\n                    2-        +A      .0      22.5    .0                                                      \r\n                    3-        CQDMEM  1       10      3       4       2       1                               \r\n                    4-        CQDMEM  2       10      5       6       4       3                               \r\n                    5-        CQDMEM  3       10      7       8       6       5                               \r\n                    6-        FORCE1  2       1       25.0    4       2                                       \r\n                    7-        FORCE1  2       2       25.0    4       2                                       \r\n                    8-        GRDSET                                          1       3456                    \r\n                    9-        GRID    1               .0      22.5                                            \r\n                   10-        GRID    2               5.0     22.5                                            \r\n                   11-        GRID    3               .0      15.0                                            \r\n                   12-        GRID    4               5.0     15.0                                            \r\n                   13-        GRID    5               .0      7.5                                             \r\n                   14-        GRID    6               5.0     7.5                                             \r\n                   15-        GRID    7               .0      .0                                              \r\n                   16-        GRID    8               5.0     .0                                              \r\n                   17-        GRID    9               .0      -27.5                   123456                  \r\n                   18-        MAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\n                   19-        PQDMEM  10      50      .1                                                      \r\n                   20-        RFORCE  1       9               .1591579.0      .0      1.0                     \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n\r\n       4  SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       4  EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n\r\n      SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR6,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n\r\n      SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11A,NOGENL $                                                \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11A $                                                       \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  LABEL    LBL11 $                                                        \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR3,NOL $                                                   \r\n\r\n      50  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      50  LABEL     LBSBEG $                                                      \r\n\r\n      50  COND      LBLIS,DRY $                                                   \r\n\r\n      51  PURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/      \r\n                   SINGLE $                                                       \r\n\r\n      52  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      53  COND     LBL2,MPCF2 $                                                   \r\n\r\n      54  MCE1     USET,RG/GM $                                                   \r\n\r\n      55  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      56  LABEL    LBL2 $                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n\r\n      SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      58  COND     LBL3,SINGLE $                                                  \r\n\r\n      59  SCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $                             \r\n\r\n      60  LABEL    LBL3 $                                                         \r\n\r\n      61  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      62  COND     LBL5,OMIT $                                                    \r\n\r\n      63  SMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $                  \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      68  LABEL     LBLIS $                                                       \r\n\r\n      69  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      97  SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n                    *VANE1   */1       /*PVEC* $                                  \r\n\r\n      97  COND      LBSEND,DRY $                                                  \r\n\r\n      97  EQUIV     PG,PL/NOSET $                                                 \r\n\r\n      97  COND      LBL10,NOSET $                                                 \r\n\r\n      97  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      97  CHKPNT    PO,PS,PL $                                                    \r\n\r\n      97  LABEL     LBL10 $                                                       \r\n\r\n      97  SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*VANE1   */*KMTX*/*MMTX*/*PVEC*/\r\n                    *BMTX*/*K4MX* $                                               \r\n\r\n      97  EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n\r\n      97  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      97  LABEL     LBSEND $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n\r\n      SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      97  JUMP      FINIS $                                                       \r\n\r\n      98  LABEL    ERROR1 $                                                       \r\n\r\n      99  PRTPARM  //-1/*INERTIA* $                                               \r\n\r\n     100  LABEL    ERROR2 $                                                       \r\n\r\n     101  PRTPARM  //-2/*INERTIA* $                                               \r\n\r\n     102  LABEL    ERROR3 $                                                       \r\n\r\n     103  PRTPARM  //-3/*INERTIA* $                                               \r\n\r\n     104  LABEL    ERROR4 $                                                       \r\n\r\n     105  PRTPARM  //-4/*INERTIA* $                                               \r\n\r\n     106  LABEL    ERROR5 $                                                       \r\n\r\n     107  PRTPARM  //-5/*INERTIA* $                                               \r\n\r\n     108  LABEL    ERROR6 $                                                       \r\n\r\n     109  PRTPARM  //-6/*INERTIA* $                                               \r\n\r\n     110  LABEL    FINIS $                                                        \r\n\r\n     111  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     112  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR5   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR2   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL11    NOT REFERENCED\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.039485E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       0   -   X0 =  0.000000E+00, Y0 = -0.309897E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      0  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n\r\n      SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        9\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE VANE1    SUBCASE        1 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET        1 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE VANE1    SUBCASE        2 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET        2 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE VANE1   \r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (   38,    1), TO (   38,    2)\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                                                                                   \r\n0     SUBSTRUCTURE 3, RUN 3, PHASE 1                                                                                                \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B     0    0    0    0    0    3  3     3  3  3  3  3                                                   \r\n       3  VANE1      B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   919552 WORDS.\r\n                      OR =      898 BLOCKS.\r\n                      OR =       96 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       28\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:17:23\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02024a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02024A,NASTRAN                                                           \r\n     APP   DISPLACEMENT,SUBS                                                         \r\n     SOL   1,0                                                                       \r\n     TIME  30                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n      SUBSTRUCTURE PHASE2                                                            \r\n       PASSWORD = DEMO                                                               \r\n         SOF(1) = FT18,950 $ DEC VAX                                                 \r\n        OPTIONS = K,M,P                                                              \r\n        PLOT VANE1                                                                   \r\n        PLOT ROOT1                                                                   \r\n        PLOT HUB                                                                     \r\n     $                                                                               \r\n     $  STEP I.  COMBINE VANETOP                                                     \r\n     $                                                                               \r\n        SOFPRINT TOC                                                                 \r\n        EQUIV VANE1,VANE2                                                            \r\n          PREFIX=X                                                                   \r\n        COMBINE VANE1,VANE2                                                          \r\n          NAME=VANETOP                                                               \r\n          TOLERANCE=0.02                                                             \r\n          OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n          COMPONENT=VANE1                                                            \r\n          TRANS=100                                                                  \r\n          COMPONENT=VANE2                                                            \r\n          TRANS=100                                                                  \r\n          SYMT=X                                                                     \r\n       PLOT VANETOP                                                                  \r\n        SOFPRINT TOC                                                                 \r\n     $                                                                               \r\n     $  STEP II.  COMBINE ROOTTOP                                                    \r\n     $                                                                               \r\n        EQUIV ROOT1,ROOT2                                                            \r\n          PREFIX=X                                                                   \r\n        COMBINE ROOT1,ROOT2                                                          \r\n          NAME=ROOTTOP                                                               \r\n          TOLERANCE=0.02                                                             \r\n          OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n          COMPONENT=ROOT2                                                            \r\n          SYMT=X                                                                     \r\n       PLOT ROOTTOP                                                                  \r\n        SOFPRINT TOC                                                                 \r\n     $                                                                               \r\n     $  STEP III.  SEVEN STRUCTURE COMBINE                                           \r\n     $                                                                               \r\n        EQUIV VANETOP,VANELFT                                                        \r\n          PREFIX=L                                                                   \r\n        EQUIV VANETOP,VANERGT                                                        \r\n          PREFIX=R                                                                   \r\n        EQUIV VANETOP,VANEBOT                                                        \r\n          PREFIX=B                                                                   \r\n        EQUIV ROOTTOP,ROOTLFT                                                        \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n          PREFIX=L                                                                   \r\n        EQUIV ROOTTOP,ROOTRGT                                                        \r\n          PREFIX=R                                                                   \r\n        EQUIV ROOTTOP,ROOTBOT                                                        \r\n          PREFIX=B                                                                   \r\n        SOFPRINT TOC                                                                 \r\n     $                                                                               \r\n        COMBINE VANETOP,ROOTTOP,VANELFT,ROOTLFT,VANEBOT,ROOTBOT,ROOTRGT              \r\n          NAME=RING                                                                  \r\n          TOLERANCE=0.02                                                             \r\n          OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n          COMPONENT=VANELFT                                                          \r\n            TRANS=400                                                                \r\n          COMPONENT=ROOTLFT                                                          \r\n            TRANS=400                                                                \r\n          COMPONENT=VANEBOT                                                          \r\n            SYMT=Y                                                                   \r\n          COMPONENT=ROOTBOT                                                          \r\n            SYMT=Y                                                                   \r\n          COMPONENT=ROOTRGT                                                          \r\n            TRANS=300                                                                \r\n        SOFPRINT TOC                                                                 \r\n     $                                                                               \r\n     $  STEP IV.  COMBINATION OF BLADES                                              \r\n     $                                                                               \r\n        COMBINE RING,VANERGT                                                         \r\n          NAME=BLADES                                                                \r\n          TOLERANCE=0.02                                                             \r\n          OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n          COMPONENT=VANERGT                                                          \r\n          TRANS=500                                                                  \r\n        SOFPRINT TOC                                                                 \r\n     $                                                                               \r\n     $  STEP V.  FINAL COMBINE OF WINDMILL WITH RELES OPTION                         \r\n     $                                                                               \r\n        COMBINE HUB,BLADES                                                           \r\n          NAME=WINDMIL                                                               \r\n          TOLERANCE=0.02                                                             \r\n          OUTPUT=1,2,9,11,12,13,14,15,16,17                                          \r\n          CONNECT=1000                                                               \r\n        SOFPRINT TOC                                                                 \r\n       PLOT WINDMIL                                                                  \r\n     $                                                                               \r\n     $  STEP VI.  REDUCTION TO BOUNDARY POINTS                                       \r\n     $                                                                               \r\n        REDUCE WINDMIL                                                               \r\n          NAME=SMALLMIL                                                              \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n          BOUNDARY=2000                                                              \r\n       RSAVE                                                                         \r\n     OUTPUT=1,2,3,4,5,6,7,8,9                                                        \r\n        SOFPRINT TOC                                                                 \r\n     SOLVE SMALLMIL                                                                  \r\n     RECOVER SMALLMIL                                                                \r\n        PRINT WINDMIL                                                                \r\n        SAVE HUB                                                                     \r\n        SAVE RVANE1                                                                  \r\n        SOFPRINT TOC                                                                 \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          5\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    PLTMRG    CASECC,PCDB/PLT2  ,GP2  ,EL2  ,BG2  ,CAS2  ,EQ2  /*VANE1   */ \r\n        5              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n        6    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n        7    PLOT      PLT2  ,GP2  ,EL2  ,CAS2  ,BG2  ,EQ2  ,,,,,,,/PM2  /NGP/LSIL/  \r\n        8              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n        9    PRTMSG    PM2  // $                                                     \r\n       10    PLTMRG    CASECC,PCDB/PLT3  ,GP3  ,EL3  ,BG3  ,CAS3  ,EQ3  /*ROOT1   */ \r\n       11              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n       12    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n       13    PLOT      PLT3  ,GP3  ,EL3  ,CAS3  ,BG3  ,EQ3  ,,,,,,,/PM3  /NGP/LSIL/  \r\n       14              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n       15    PRTMSG    PM3  // $                                                     \r\n       16    PLTMRG    CASECC,PCDB/PLT4  ,GP4  ,EL4  ,BG4  ,CAS4  ,EQ4  /*HUB     */ \r\n       17              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n       18    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n       19    PLOT      PLT4  ,GP4  ,EL4  ,CAS4  ,BG4  ,EQ4  ,,,,,,,/PM4  /NGP/LSIL/  \r\n       20              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n       21    PRTMSG    PM4  // $                                                     \r\n       22    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       23              *    */*    */*    * $                                        \r\n       24    SOFUT     //DRY/*VANE1   */*EQUI*/32 /*VANE2   */*X   */*ITM1*/*ITM2*/  \r\n       25              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       26    COMB1     CASECC,GEOM4//7  /S,N,DRY/*PVEC* $                            \r\n       27    COND      LB7  ,DRY $                                                   \r\n       28    COMB2     ,    ,    ,    ,    ,    ,    ,    /K3  /S,N,DRY/*K*/*    */  \r\n       29              *VANE1   */*VANE2   */*        */*        */*        */       \r\n       30              *        */*        * $                                       \r\n       31    SOFO      ,K3  ,,,,//S,N,DRY/*VANETOP */*KMTX* $                        \r\n       32    COMB2     ,    ,    ,    ,    ,    ,    ,    /M3  /S,N,DRY/*M*/*    */  \r\n       33              *VANE1   */*VANE2   */*        */*        */*        */       \r\n       34              *        */*        * $                                       \r\n       35    SOFO      ,M3  ,,,,//S,N,DRY/*VANETOP */*MMTX* $                        \r\n       36    COMB2     ,    ,    ,    ,    ,    ,    ,    /P3  /S,N,DRY/*P*/*PVEC*/  \r\n       37              *VANE1   */*VANE2   */*        */*        */*        */       \r\n       38              *        */*        * $                                       \r\n       39    SOFO      ,P3  ,,,,//S,N,DRY/*VANETOP */*PVEC* $                        \r\n       40    LABEL     LB7   $                                                       \r\n       41    PLTMRG    CASECC,PCDB/PLT8  ,GP8  ,EL8  ,BG8  ,CAS8  ,EQ8  /*VANETOP */ \r\n       42              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n       43    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n       44    PLOT      PLT8  ,GP8  ,EL8  ,CAS8  ,BG8  ,EQ8  ,,,,,,,/PM8  /NGP/LSIL/  \r\n       45              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n       46    PRTMSG    PM8  // $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       47    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       48              *    */*    */*    * $                                        \r\n       49    SOFUT     //DRY/*ROOT1   */*EQUI*/32 /*ROOT2   */*X   */*ITM1*/*ITM2*/  \r\n       50              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       51    COMB1     CASECC,GEOM4//11 /S,N,DRY/*PVEC* $                            \r\n       52    COND      LB11 ,DRY $                                                   \r\n       53    COMB2     ,    ,    ,    ,    ,    ,    ,    /K6  /S,N,DRY/*K*/*    */  \r\n       54              *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n       55              *        */*        * $                                       \r\n       56    SOFO      ,K6  ,,,,//S,N,DRY/*ROOTTOP */*KMTX* $                        \r\n       57    COMB2     ,    ,    ,    ,    ,    ,    ,    /M6  /S,N,DRY/*M*/*    */  \r\n       58              *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n       59              *        */*        * $                                       \r\n       60    SOFO      ,M6  ,,,,//S,N,DRY/*ROOTTOP */*MMTX* $                        \r\n       61    COMB2     ,    ,    ,    ,    ,    ,    ,    /P6  /S,N,DRY/*P*/*PVEC*/  \r\n       62              *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n       63              *        */*        * $                                       \r\n       64    SOFO      ,P6  ,,,,//S,N,DRY/*ROOTTOP */*PVEC* $                        \r\n       65    LABEL     LB11  $                                                       \r\n       66    PLTMRG    CASECC,PCDB/PLT12 ,GP12 ,EL12 ,BG12 ,CAS12 ,EQ12 /*ROOTTOP */ \r\n       67              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n       68    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n       69    PLOT      PLT12 ,GP12 ,EL12 ,CAS12 ,BG12 ,EQ12 ,,,,,,,/PM12 /NGP/LSIL/  \r\n       70              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n       71    PRTMSG    PM12 // $                                                     \r\n       72    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       73              *    */*    */*    * $                                        \r\n       74    SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANELFT */*L   */*ITM1*/*ITM2*/  \r\n       75              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       76    SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANERGT */*R   */*ITM1*/*ITM2*/  \r\n       77              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       78    SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANEBOT */*B   */*ITM1*/*ITM2*/  \r\n       79              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       80    SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTLFT */*L   */*ITM1*/*ITM2*/  \r\n       81              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       82    SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTRGT */*R   */*ITM1*/*ITM2*/  \r\n       83              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       84    SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTBOT */*B   */*ITM1*/*ITM2*/  \r\n       85              *ITM3*/*ITM4*/*ITM5* $                                        \r\n       86    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       87              *    */*    */*    * $                                        \r\n       88    COMB1     CASECC,GEOM4//21 /S,N,DRY/*PVEC* $                            \r\n       89    COND      LB21 ,DRY $                                                   \r\n       90    COMB2     ,K3  ,K6  ,    ,    ,    ,    ,    /K12 /S,N,DRY/*K*/*    */  \r\n       91              *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n       92              *ROOTBOT */*ROOTRGT * $                                       \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       93    SOFO      ,K12 ,,,,//S,N,DRY/*RING    */*KMTX* $                        \r\n       94    COMB2     ,M3  ,M6  ,    ,    ,    ,    ,    /M12 /S,N,DRY/*M*/*    */  \r\n       95              *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n       96              *ROOTBOT */*ROOTRGT * $                                       \r\n       97    SOFO      ,M12 ,,,,//S,N,DRY/*RING    */*MMTX* $                        \r\n       98    COMB2     ,P3  ,P6  ,    ,    ,    ,    ,    /P12 /S,N,DRY/*P*/*PVEC*/  \r\n       99              *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n      100              *ROOTBOT */*ROOTRGT * $                                       \r\n      101    SOFO      ,P12 ,,,,//S,N,DRY/*RING    */*PVEC* $                        \r\n      102    LABEL     LB21  $                                                       \r\n      103    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n      104              *    */*    */*    * $                                        \r\n      105    COMB1     CASECC,GEOM4//23 /S,N,DRY/*PVEC* $                            \r\n      106    COND      LB23 ,DRY $                                                   \r\n      107    COMB2     ,K12 ,    ,    ,    ,    ,    ,    /K14 /S,N,DRY/*K*/*    */  \r\n      108              *RING    */*VANERGT */*        */*        */*        */       \r\n      109              *        */*        * $                                       \r\n      110    SOFO      ,K14 ,,,,//S,N,DRY/*BLADES  */*KMTX* $                        \r\n      111    COMB2     ,M12 ,    ,    ,    ,    ,    ,    /M14 /S,N,DRY/*M*/*    */  \r\n      112              *RING    */*VANERGT */*        */*        */*        */       \r\n      113              *        */*        * $                                       \r\n      114    SOFO      ,M14 ,,,,//S,N,DRY/*BLADES  */*MMTX* $                        \r\n      115    COMB2     ,P12 ,    ,    ,    ,    ,    ,    /P14 /S,N,DRY/*P*/*PVEC*/  \r\n      116              *RING    */*VANERGT */*        */*        */*        */       \r\n      117              *        */*        * $                                       \r\n      118    SOFO      ,P14 ,,,,//S,N,DRY/*BLADES  */*PVEC* $                        \r\n      119    LABEL     LB23  $                                                       \r\n      120    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n      121              *    */*    */*    * $                                        \r\n      122    COMB1     CASECC,GEOM4//25 /S,N,DRY/*PVEC* $                            \r\n      123    COND      LB25 ,DRY $                                                   \r\n      124    COMB2     ,    ,K14 ,    ,    ,    ,    ,    /K16 /S,N,DRY/*K*/*    */  \r\n      125              *HUB     */*BLADES  */*        */*        */*        */       \r\n      126              *        */*        * $                                       \r\n      127    SOFO      ,K16 ,,,,//S,N,DRY/*WINDMIL */*KMTX* $                        \r\n      128    COMB2     ,    ,M14 ,    ,    ,    ,    ,    /M16 /S,N,DRY/*M*/*    */  \r\n      129              *HUB     */*BLADES  */*        */*        */*        */       \r\n      130              *        */*        * $                                       \r\n      131    SOFO      ,M16 ,,,,//S,N,DRY/*WINDMIL */*MMTX* $                        \r\n      132    COMB2     ,    ,P14 ,    ,    ,    ,    ,    /P16 /S,N,DRY/*P*/*PVEC*/  \r\n      133              *HUB     */*BLADES  */*        */*        */*        */       \r\n      134              *        */*        * $                                       \r\n      135    SOFO      ,P16 ,,,,//S,N,DRY/*WINDMIL */*PVEC* $                        \r\n      136    LABEL     LB25  $                                                       \r\n      137    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n      138              *    */*    */*    * $                                        \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n      139    PLTMRG    CASECC,PCDB/PLT27 ,GP27 ,EL27 ,BG27 ,CAS27 ,EQ27 /*WINDMIL */ \r\n      140              S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n      141    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n      142    PLOT      PLT27 ,GP27 ,EL27 ,CAS27 ,BG27 ,EQ27 ,,,,,,,/PM27 /NGP/LSIL/  \r\n      143              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n      144    PRTMSG    PM27 // $                                                     \r\n      145    REDUCE    CASECC,GEOM4/PV16 ,US28 ,IN28 /28 /S,N,DRY/*PVEC* $           \r\n      146    COND      LBR28 ,DRY $                                                  \r\n      147    SOFI      /    ,    ,    ,    ,     /S,N,DRY/*WINDMIL */*KMTX*/*MMTX*/  \r\n      148              *PVEC*/*BMTX*/*K4MX* $                                        \r\n      149    COND      LBR28 ,DRY $                                                  \r\n      150    SMP1      US28 ,K16 ,,,/GO16 ,K17 ,KO16 ,LO16 ,,,,, $                   \r\n      151    MERGE     GO16 ,IN28 ,,,,PV16 /G16 /1/2  /2 $                           \r\n      152    SOFO      ,G16 ,LO16 ,,,//DRY/*WINDMIL */*HORG*/*LMTX* $                \r\n      153    SOFO      ,K17 ,,,,//DRY/*SMALLMIL*/*KMTX* $                            \r\n      154    SOFI      /    ,,,,/S,N,DRY/*WINDMIL */*HORG* $                         \r\n      155    MPY3      G16 ,M16 ,/M17 /0/0 $                                         \r\n      156    SOFO      ,M17 ,,,,//DRY/*SMALLMIL*/*MMTX* $                            \r\n      157    PARTN     P16 ,,PV16 /PO16 ,,,/1/1/2 $                                  \r\n      158    MPYAD     G16 ,P16 ,/P17 /1/1/0/1 $                                     \r\n      159    SOFO      ,PO16 ,,,,//DRY/*WINDMIL */*POVE* $                           \r\n      160    SOFO      ,PV16 ,,,,//DRY/*WINDMIL */*UPRT* $                           \r\n      161    SOFO      ,P17 ,,,,//DRY/*SMALLMIL*/*PVEC* $                            \r\n      162    LABEL     LBR28  $                                                      \r\n      163    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n      164              *    */*    */*    * $                                        \r\n      165    ALTER         11, 11\r\n      166    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n      167    SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n      168              BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMALLMIL*/S,N,LUSET/        \r\n      169              S,N,NOGPDT $                                                  \r\n      170    PURGE     CSTM $                                                        \r\n      171    EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n      172              DYNS,DYNAMICS/ALWAYS $                                        \r\n      173    COND      LB30 ,DRY $                                                   \r\n      174    ALTER         16, 26\r\n      175    ALTER         31, 32\r\n      176    COND      LBSOL,NOSIMP $                                                \r\n      177    ALTER         38, 38\r\n      178    ALTER         53, 57\r\n      179    LABEL     LBSOL $                                                       \r\n      180    SOFI      /    ,    ,,,/DRY/*SMALLMIL*/*KMTX*/*MMTX* $                  \r\n      181    EQUIV     K17 ,KGG/NOSIMP $                                             \r\n      182    EQUIV     M17 ,MGG/NOSIMP $                                             \r\n      183    COND      LB30 ,NOSIMP $                                                \r\n      184    ADD       KGGX,K17 /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n      185    ADD       MGG,M17 /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n      186    EQUIV     MGGX,MGG/ALWAYS $                                             \r\n      187    LABEL     LB30  $                                                       \r\n      188    CHKPNT    MGG $                                                         \r\n      189    ALTER        103,156\r\n      190    COND      LBSEND,DRY $                                                  \r\n      191    FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n      192    PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n      193    LABEL     LB31  $                                                       \r\n      194    RCOVR     CASESS,GEOM4,KGG,MGG,PGG,UGV ,   ,   ,   ,    ,   /OUGV1 ,    \r\n      195              OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/31 /*SMALLMIL*/    \r\n      196              1   /     /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n      197              S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n      198    EQUIV     OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n      199    EQUIV     OPG1,OPG/NOSORT2 $                                            \r\n      200    COND      NST231 ,NOSORT2 $                                             \r\n      201    SDR3      OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $                        \r\n      202    LABEL     NST231  $                                                     \r\n      203    OFP       OUGV ,OPG,OQG,,,//S,N,CARDNO $                                \r\n      204    COND      LBB31 ,ILOOP $                                                \r\n      205    REPT      LB31 ,100 $                                                   \r\n      206    LABEL     LBB31  $                                                      \r\n      207    SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n      208    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n      209              *    */*    */*    * $                                        \r\n      210    LABEL     LBSEND $                                                      \r\n      211    JUMP      FINIS $                                                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                          \r\n                  3      LABEL    = COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                  \r\n                  4      DISP  = ALL                                                                     \r\n                  5      OLOAD = ALL                                                                     \r\n                  6      MPC   = 20                                                                      \r\n                  7      SUBCASE 1                                                                       \r\n                  8      LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE           \r\n                  9      LOAD  = 1                                                                       \r\n                 10      SUBCASE 2                                                                       \r\n                 11      LABEL = EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\n                 12      LOAD  = 2                                                                       \r\n                 13      SUBCASE 3                                                                       \r\n                 14      LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\n                 15      LOAD  = 3                                                                       \r\n                 16      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. 2-2-4                                \r\n                 17      OUTPUT(PLOT)                                                                    \r\n                 18      PLOTTER NASTPLT                                                                 \r\n                 19        SET 1 = ALL                                                                   \r\n                 20        AXES Z, X, Y                                                                  \r\n                 21        VIEW 0.0, 0.0,  0.0                                                           \r\n                 22        FIND SCALE, ORIGIN 1, SET 1, REGION 0.1, 0.1, 0.9, 0.9                        \r\n                 23        PTITLE = SUBSTRUCTURES VANE1/ROOT1/HUB/VANETOP/ROOTTOP PLUS MILL              \r\n                 24        PLOT SET 1, ORIGIN 1, LABEL BOTH                                              \r\n                 25      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    51, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BDYC    2000    VANE1   200     VANE2   200     LVANE1  200             +BC1    \r\n                    2-        +BC1            LVANE2  200     BVANE1  200     BVANE2  200             +BC2    \r\n                    3-        +BC2            RVANE1  200     RVANE2  200     ROOT1   230             +BC3    \r\n                    4-        +BC3            ROOT2   210     LROOT1  210     LROOT2  210             +BC4    \r\n                    5-        +BC4            BROOT1  210     BROOT2  210     RROOT1  210             +BC5    \r\n                    6-        +BC5            RROOT2  210     HUB     220                                     \r\n                    7-        BDYS1   200     12      1       2       4       6       8                       \r\n                    8-        BDYS1   210     12      2       4       7                                       \r\n                    9-        BDYS1   220     1       1       7       31      25                              \r\n                   10-        BDYS1   220     2       13      19      37      43                              \r\n                   11-        BDYS1   220     12      4       10      16      22      28      34      +B1     \r\n                   12-        +B1     40      46      108                                                     \r\n                   13-        BDYS1   230     12      2       4       6       7                               \r\n                   14-        GTRAN   100     VANE1   7       0                                               \r\n                   15-        GTRAN   100     VANE1   8       0                                               \r\n                   16-        GTRAN   100     VANE2   1       200                                             \r\n                   17-        GTRAN   100     VANE2   2       200                                             \r\n                   18-        GTRAN   100     VANE2   3       200                                             \r\n                   19-        GTRAN   100     VANE2   4       200                                             \r\n                   20-        GTRAN   100     VANE2   5       200                                             \r\n                   21-        GTRAN   100     VANE2   6       200                                             \r\n                   22-        GTRAN   100     VANE2   7       0                                               \r\n                   23-        GTRAN   100     VANE2   8       0                                               \r\n                   24-        LOADC   1       1.0     VANE1   1       1.0     VANE2   1       1.0     +LC1A   \r\n                   25-        +LC1A                   ROOT1   1       1.0     ROOT2   1       1.0     +LC1B   \r\n                   26-        +LC1B                   LVANE1  1       1.0     LVANE2  1       1.0     +LC1C   \r\n                   27-        +LC1C                   LROOT1  1       1.0     LROOT2  1       1.0     +LC1D   \r\n                   28-        +LC1D                   BVANE1  1       1.0     BVANE2  1       1.0     +LC1E   \r\n                   29-        +LC1E                   BROOT1  1       1.0     BROOT2  1       1.0     +LC1F   \r\n                   30-        +LC1F                   RVANE1  1       1.0     RVANE2  1       1.0     +LC1G   \r\n                   31-        +LC1G                   RROOT1  1       1.0     RROOT2  1       1.0     +LC1H   \r\n                   32-        +LC1H                   HUB     1       1.0                                     \r\n                   33-        LOADC   2       -1.0    BVANE1  2       1.0     BVANE2  2       1.0     +LC2A   \r\n                   34-        +LC2A                   RVANE1  2       -1.0    RVANE2  2       -1.0            \r\n                   35-        LOADC   3       1.0     HUB     3       1.0                                     \r\n                   36-        MPCS    20      HUB     108     1       -1.0                            +MPC1   \r\n                   37-        +MPC1           ROOT1   6       2       .94868336       1       .3162278        \r\n                   38-        MPCS    20      HUB     108     2       -1.0                            +MPC2   \r\n                   39-        +MPC2           ROOT1   6       1       -.9486836       2       .3162278        \r\n                   40-        RELES   1000    HUB     5       2       17      1       29      2       +REL    \r\n                   41-        +REL    41      1       108     12                                              \r\n                   42-        TRANS   100             0.0     27.5    0.0     0.0     27.5    1.0     +A      \r\n                   43-        +A      5.0     27.5    0.0                                                     \r\n                   44-        TRANS   200             0.0     0.0     0.0     0.0     0.0     1.      +B      \r\n                   45-        +B      -1.0    0.0     0.0                                                     \r\n                   46-        TRANS   300             .0      .0      .0      .0      .0      1.0     +D      \r\n                   47-        +D      .0      -1.0    .0                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        TRANS   400             .0      .0      .0      .0      .0      1.0     +C      \r\n                   49-        +C      .0      1.0     .0                                                      \r\n                   50-        TRANS   500             .0      .0      .0      .0      .0      1.0     +E      \r\n                   51-        +E      .0      -1.0    .0                                                      \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n       5  LABEL     LBSBEG $                                                      \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT2  ,GP2  ,EL2  ,BG2  ,CAS2  ,EQ2  /*VANE1   */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT2  ,GP2  ,EL2  ,CAS2  ,BG2  ,EQ2  ,,,,,,,/PM2  /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n\r\n       5  PRTMSG    PM2  // $                                                     \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT3  ,GP3  ,EL3  ,BG3  ,CAS3  ,EQ3  /*ROOT1   */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT3  ,GP3  ,EL3  ,CAS3  ,BG3  ,EQ3  ,,,,,,,/PM3  /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n\r\n       5  PRTMSG    PM3  // $                                                     \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT4  ,GP4  ,EL4  ,BG4  ,CAS4  ,EQ4  /*HUB     */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT4  ,GP4  ,EL4  ,CAS4  ,BG4  ,EQ4  ,,,,,,,/PM4  /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       5  PRTMSG    PM4  // $                                                     \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  SOFUT     //DRY/*VANE1   */*EQUI*/32 /*VANE2   */*X   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  COMB1     CASECC,GEOM4//7  /S,N,DRY/*PVEC* $                            \r\n\r\n       5  COND      LB7  ,DRY $                                                   \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /K3  /S,N,DRY/*K*/*    */  \r\n                    *VANE1   */*VANE2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,K3  ,,,,//S,N,DRY/*VANETOP */*KMTX* $                        \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /M3  /S,N,DRY/*M*/*    */  \r\n                    *VANE1   */*VANE2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,M3  ,,,,//S,N,DRY/*VANETOP */*MMTX* $                        \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /P3  /S,N,DRY/*P*/*PVEC*/  \r\n                    *VANE1   */*VANE2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,P3  ,,,,//S,N,DRY/*VANETOP */*PVEC* $                        \r\n\r\n       5  LABEL     LB7   $                                                       \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT8  ,GP8  ,EL8  ,BG8  ,CAS8  ,EQ8  /*VANETOP */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT8  ,GP8  ,EL8  ,CAS8  ,BG8  ,EQ8  ,,,,,,,/PM8  /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n\r\n       5  PRTMSG    PM8  // $                                                     \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  SOFUT     //DRY/*ROOT1   */*EQUI*/32 /*ROOT2   */*X   */*ITM1*/*ITM2*/  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  COMB1     CASECC,GEOM4//11 /S,N,DRY/*PVEC* $                            \r\n\r\n       5  COND      LB11 ,DRY $                                                   \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /K6  /S,N,DRY/*K*/*    */  \r\n                    *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,K6  ,,,,//S,N,DRY/*ROOTTOP */*KMTX* $                        \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /M6  /S,N,DRY/*M*/*    */  \r\n                    *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,M6  ,,,,//S,N,DRY/*ROOTTOP */*MMTX* $                        \r\n\r\n       5  COMB2     ,    ,    ,    ,    ,    ,    ,    /P6  /S,N,DRY/*P*/*PVEC*/  \r\n                    *ROOT1   */*ROOT2   */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,P6  ,,,,//S,N,DRY/*ROOTTOP */*PVEC* $                        \r\n\r\n       5  LABEL     LB11  $                                                       \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT12 ,GP12 ,EL12 ,BG12 ,CAS12 ,EQ12 /*ROOTTOP */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT12 ,GP12 ,EL12 ,CAS12 ,BG12 ,EQ12 ,,,,,,,/PM12 /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n\r\n       5  PRTMSG    PM12 // $                                                     \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANELFT */*L   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANERGT */*R   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  SOFUT     //DRY/*VANETOP */*EQUI*/32 /*VANEBOT */*B   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       5  SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTLFT */*L   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTRGT */*R   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  SOFUT     //DRY/*ROOTTOP */*EQUI*/32 /*ROOTBOT */*B   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  COMB1     CASECC,GEOM4//21 /S,N,DRY/*PVEC* $                            \r\n\r\n       5  COND      LB21 ,DRY $                                                   \r\n\r\n       5  COMB2     ,K3  ,K6  ,    ,    ,    ,    ,    /K12 /S,N,DRY/*K*/*    */  \r\n                    *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n                    *ROOTBOT */*ROOTRGT * $                                       \r\n\r\n       5  SOFO      ,K12 ,,,,//S,N,DRY/*RING    */*KMTX* $                        \r\n\r\n       5  COMB2     ,M3  ,M6  ,    ,    ,    ,    ,    /M12 /S,N,DRY/*M*/*    */  \r\n                    *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n                    *ROOTBOT */*ROOTRGT * $                                       \r\n\r\n       5  SOFO      ,M12 ,,,,//S,N,DRY/*RING    */*MMTX* $                        \r\n\r\n       5  COMB2     ,P3  ,P6  ,    ,    ,    ,    ,    /P12 /S,N,DRY/*P*/*PVEC*/  \r\n                    *VANETOP */*ROOTTOP */*VANELFT */*ROOTLFT */*VANEBOT */       \r\n                    *ROOTBOT */*ROOTRGT * $                                       \r\n\r\n       5  SOFO      ,P12 ,,,,//S,N,DRY/*RING    */*PVEC* $                        \r\n\r\n       5  LABEL     LB21  $                                                       \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  COMB1     CASECC,GEOM4//23 /S,N,DRY/*PVEC* $                            \r\n\r\n       5  COND      LB23 ,DRY $                                                   \r\n\r\n       5  COMB2     ,K12 ,    ,    ,    ,    ,    ,    /K14 /S,N,DRY/*K*/*    */  \r\n                    *RING    */*VANERGT */*        */*        */*        */       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,K14 ,,,,//S,N,DRY/*BLADES  */*KMTX* $                        \r\n\r\n       5  COMB2     ,M12 ,    ,    ,    ,    ,    ,    /M14 /S,N,DRY/*M*/*    */  \r\n                    *RING    */*VANERGT */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,M14 ,,,,//S,N,DRY/*BLADES  */*MMTX* $                        \r\n\r\n       5  COMB2     ,P12 ,    ,    ,    ,    ,    ,    /P14 /S,N,DRY/*P*/*PVEC*/  \r\n                    *RING    */*VANERGT */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,P14 ,,,,//S,N,DRY/*BLADES  */*PVEC* $                        \r\n\r\n       5  LABEL     LB23  $                                                       \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  COMB1     CASECC,GEOM4//25 /S,N,DRY/*PVEC* $                            \r\n\r\n       5  COND      LB25 ,DRY $                                                   \r\n\r\n       5  COMB2     ,    ,K14 ,    ,    ,    ,    ,    /K16 /S,N,DRY/*K*/*    */  \r\n                    *HUB     */*BLADES  */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,K16 ,,,,//S,N,DRY/*WINDMIL */*KMTX* $                        \r\n\r\n       5  COMB2     ,    ,M14 ,    ,    ,    ,    ,    /M16 /S,N,DRY/*M*/*    */  \r\n                    *HUB     */*BLADES  */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,M16 ,,,,//S,N,DRY/*WINDMIL */*MMTX* $                        \r\n\r\n       5  COMB2     ,    ,P14 ,    ,    ,    ,    ,    /P16 /S,N,DRY/*P*/*PVEC*/  \r\n                    *HUB     */*BLADES  */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       5  SOFO      ,P16 ,,,,//S,N,DRY/*WINDMIL */*PVEC* $                        \r\n\r\n       5  LABEL     LB25  $                                                       \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       5  PLTMRG    CASECC,PCDB/PLT27 ,GP27 ,EL27 ,BG27 ,CAS27 ,EQ27 /*WINDMIL */ \r\n                    S,N,NGP/S,N,LSIL/S,N,NPSET $                                  \r\n\r\n       5  SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $                                   \r\n\r\n       5  PLOT      PLT27 ,GP27 ,EL27 ,CAS27 ,BG27 ,EQ27 ,,,,,,,/PM27 /NGP/LSIL/  \r\n                    S,N,NPSET/S,N,PLTFLG/S,N,PFIL $                               \r\n\r\n       5  PRTMSG    PM27 // $                                                     \r\n\r\n       5  REDUCE    CASECC,GEOM4/PV16 ,US28 ,IN28 /28 /S,N,DRY/*PVEC* $           \r\n\r\n       5  COND      LBR28 ,DRY $                                                  \r\n\r\n       5  SOFI      /    ,    ,    ,    ,     /S,N,DRY/*WINDMIL */*KMTX*/*MMTX*/  \r\n                    *PVEC*/*BMTX*/*K4MX* $                                        \r\n\r\n       5  COND      LBR28 ,DRY $                                                  \r\n\r\n       5  SMP1      US28 ,K16 ,,,/GO16 ,K17 ,KO16 ,LO16 ,,,,, $                   \r\n\r\n       5  MERGE     GO16 ,IN28 ,,,,PV16 /G16 /1/2  /2 $                           \r\n\r\n       5  SOFO      ,G16 ,LO16 ,,,//DRY/*WINDMIL */*HORG*/*LMTX* $                \r\n\r\n       5  SOFO      ,K17 ,,,,//DRY/*SMALLMIL*/*KMTX* $                            \r\n\r\n       5  SOFI      /    ,,,,/S,N,DRY/*WINDMIL */*HORG* $                         \r\n\r\n       5  MPY3      G16 ,M16 ,/M17 /0/0 $                                         \r\n\r\n       5  SOFO      ,M17 ,,,,//DRY/*SMALLMIL*/*MMTX* $                            \r\n\r\n       5  PARTN     P16 ,,PV16 /PO16 ,,,/1/1/2 $                                  \r\n\r\n       5  MPYAD     G16 ,P16 ,/P17 /1/1/0/1 $                                     \r\n\r\n       5  SOFO      ,PO16 ,,,,//DRY/*WINDMIL */*POVE* $                           \r\n\r\n       5  SOFO      ,PV16 ,,,,//DRY/*WINDMIL */*UPRT* $                           \r\n\r\n       5  SOFO      ,P17 ,,,,//DRY/*SMALLMIL*/*PVEC* $                            \r\n\r\n       5  LABEL     LBR28  $                                                      \r\n\r\n       5  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                    *    */*    */*    * $                                        \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n\r\n      11  SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n                    BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMALLMIL*/S,N,LUSET/        \r\n                    S,N,NOGPDT $                                                  \r\n\r\n      11  PURGE     CSTM $                                                        \r\n\r\n      11  EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n                    DYNS,DYNAMICS/ALWAYS $                                        \r\n\r\n      11  COND      LB30 ,DRY $                                                   \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      32  COND      LBSOL,NOSIMP $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      57  LABEL     LBSOL $                                                       \r\n\r\n      57  SOFI      /    ,    ,,,/DRY/*SMALLMIL*/*KMTX*/*MMTX* $                  \r\n\r\n      57  EQUIV     K17 ,KGG/NOSIMP $                                             \r\n\r\n      57  EQUIV     M17 ,MGG/NOSIMP $                                             \r\n\r\n      57  COND      LB30 ,NOSIMP $                                                \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  ADD       KGGX,K17 /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      57  ADD       MGG,M17 /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      57  EQUIV     MGGX,MGG/ALWAYS $                                             \r\n\r\n      57  LABEL     LB30  $                                                       \r\n\r\n      57  CHKPNT    MGG $                                                         \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      95  LABEL    LBL9 $                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     102  LABEL    LBL8 $                                                         \r\n\r\n     156  COND      LBSEND,DRY $                                                  \r\n\r\n     156  FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n\r\n     156  PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n\r\n     156  LABEL     LB31  $                                                       \r\n\r\n     156  RCOVR     CASESS,GEOM4,KGG,MGG,PGG,UGV ,   ,   ,   ,    ,   /OUGV1 ,    \r\n                    OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/31 /*SMALLMIL*/    \r\n                    1   /     /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n                    S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n\r\n     156  EQUIV     OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n\r\n     156  EQUIV     OPG1,OPG/NOSORT2 $                                            \r\n\r\n     156  COND      NST231 ,NOSORT2 $                                             \r\n\r\n     156  SDR3      OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $                        \r\n\r\n     156  LABEL     NST231  $                                                     \r\n\r\n     156  OFP       OUGV ,OPG,OQG,,,//S,N,CARDNO $                                \r\n\r\n     156  COND      LBB31 ,ILOOP $                                                \r\n\r\n     156  REPT      LB31 ,100 $                                                   \r\n\r\n     156  LABEL     LBB31  $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     156  SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n\r\n     156  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n     156  LABEL     LBSEND $                                                      \r\n\r\n     156  JUMP      FINIS $                                                       \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION TA1        INSTRUCTION NO.  29\r\n     DATA BLOCK NAMED CSTM     APPEARS AS INPUT BEFORE BEING DEFINED\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO.  60\r\n     DATA BLOCK NAMED GPST     APPEARS AS INPUT BEFORE BEING DEFINED\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.401302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -2.653339E+00, Y0 = -0.689052E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 3.087389E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -1.324046E+00, Y0 =  0.239834E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.706093E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -3.253665E+00, Y0 = -0.339052E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B     0    0    0    0    0    3  3     3  3  3  3  3                                                   \r\n       3  VANE1      B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   919552 WORDS.\r\n                      OR =      898 BLOCKS.\r\n                      OR =       96 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       28\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE VANE2    HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANE1   \r\n0                      THE PRIMARY SUBSTRUCTURE OF VANE2    IS VANE1   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS VANETOP \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.200000E-01\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   1  2  7 11 12 13 14 15 16 17\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = VANE1   \r\n\r\n               TRANS SET ID =      100\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = VANE2   \r\n\r\n               TRANS SET ID =      100\r\n               SYMMETRY DIRECTIONS = X   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  VANE1            1\r\n+                                                           VANE1   \r\n                                  VANE2            1\r\n+                                                           VANE2   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                   SUMMARY OF PROCESSED TRANS BULK DATA                                             \r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =      100\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.000000E+00   0.275000E+02   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *    0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =      200\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.000000E+00   0.000000E+00   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *   -0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00  -0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF  AUTOMATICALLY GENERATED CONNECTIONS                                       \r\n\r\n              CONNECTED   CONNECTION                             PSEUDOSTRUCTURE  NAMES\r\n                 DOF         CODE      VANE1      VANE2   \r\n                12         12                 1          1\r\n                12         12                 3          3\r\n                12         12                 5          5\r\n                12         12                 7          7\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANE1      VANE2                                                                         \r\n             1           1        12       VANE1              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           3        12       VANE1              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           5        12       VANE1              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           7        12       VANE1              \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           9        12       VANE1      VANE2   \r\n                                           5          5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6          11        12       VANE1      VANE2   \r\n                                           7          7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          13        12       VANE1      VANE2   \r\n                                           3          3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          15        12       VANE1      VANE2   \r\n                                           1          1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          17        12                  VANE2   \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          19        12                  VANE2   \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          21        12                  VANE2   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            12          23        12                  VANE2   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE VANETOP  COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           8      12                        2           1      12                        3           7      12    \r\n             4           2      12                        5           5      12                        6           3      12    \r\n             7           6      12                        8           4      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE VANETOP  COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           8      12                        2          11      12                        3           7      12    \r\n             4          12      12                        5           5      12                        6          10      12    \r\n             7           6      12                        8           9      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  VANETOP                                    \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      12                        5           9      12                        6          11      12    \r\n             7          13      12                        8          15      12                        9          17      12    \r\n            10          19      12                       11          21      12                       12          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      VANETOP                                            \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           1       0.500000E+01    0.500000E+02    0.000000E+00\r\n                                        2           1       0.500000E+01    0.425000E+02    0.000000E+00\r\n                                        3           1       0.500000E+01    0.350000E+02    0.000000E+00\r\n                                        4           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                        5           1       0.000000E+00    0.350000E+02    0.000000E+00\r\n                                        6           0       0.000000E+00    0.275000E+02    0.000000E+00\r\n                                        7           1       0.000000E+00    0.425000E+02    0.000000E+00\r\n                                        8           1       0.000000E+00    0.500000E+02    0.000000E+00\r\n                                        9           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       10           2      -0.500000E+01    0.350000E+02    0.000000E+00\r\n                                       11           2      -0.500000E+01    0.500000E+02    0.000000E+00\r\n                                       12           2      -0.500000E+01    0.425000E+02    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    CSTM ITEM FOR SUBSTRUCTURE  VANETOP                                            \r\n              CSTM   TYPE        C O O R D I N A T E S   O F   O R I G I N                  T R A N S F O R M A T I O N             \r\n               ID                    X1              X2              X3                             M A T R I X                     \r\n\r\n                 1      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 2      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  VANETOP                                            \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              VANE1          0.000000E+00    0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE2          0.000000E+00    0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  VANETOP                                            \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          VANE1             2              1         2\r\n\r\n                          VANE2             2              1         2\r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.401302E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -3.253665E+00, Y0 =  0.591453E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B     0    0    0    0    0    3  3     3  3  3  3  3                                                   \r\n       3  VANE1      B     4    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B     0    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C     0    0    3    0    0    3  3  3  3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   906240 WORDS.\r\n                      OR =      885 BLOCKS.\r\n                      OR =       95 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       41\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE ROOT2    HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOT1   \r\n0                      THE PRIMARY SUBSTRUCTURE OF ROOT2    IS ROOT1   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS ROOTTOP \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.200000E-01\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   1  2  7 11 12 13 14 15 16 17\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = ROOT1   \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = ROOT2   \r\n               SYMMETRY DIRECTIONS = X   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  ROOT1            1\r\n+                                                           ROOT1   \r\n                                  ROOT2            1\r\n+                                                           ROOT2   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF  AUTOMATICALLY GENERATED CONNECTIONS                                       \r\n\r\n              CONNECTED   CONNECTION                             PSEUDOSTRUCTURE  NAMES\r\n                 DOF         CODE      ROOT1      ROOT2   \r\n                12         12                 1          1\r\n                12         12                 3          3\r\n                12         12                 5          5\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   ROOT1      ROOT2                                                                         \r\n             1           1        12       ROOT1              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           3        12       ROOT1              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           5        12       ROOT1              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           7        12       ROOT1              \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           9        12       ROOT1              \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6          11        12       ROOT1      ROOT2   \r\n                                           3          3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          13        12       ROOT1      ROOT2   \r\n                                           5          5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          15        12       ROOT1      ROOT2   \r\n                                           1          1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          17        12                  ROOT2   \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          19        12                  ROOT2   \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          21        12                  ROOT2   \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            12          23        12                  ROOT2   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            13          25        12                  ROOT2   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE ROOTTOP  COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           8      12                        2           1      12                        3           6      12    \r\n             4           2      12                        5           7      12                        6           3      12    \r\n             7           4      12                        8           5      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE ROOTTOP  COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           8      12                        2          12      12                        3           6      12    \r\n             4          13      12                        5           7      12                        6          11      12    \r\n             7           9      12                        8          10      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  ROOTTOP                                    \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      12                        5           9      12                        6          11      12    \r\n             7          13      12                        8          15      12                        9          17      12    \r\n            10          19      12                       11          21      12                       12          23      12    \r\n            13          25      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      ROOTTOP                                            \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                        2           0       0.500000E+01    0.200000E+02    0.000000E+00\r\n                                        3           0       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                        4           0       0.125000E+02    0.125000E+02    0.000000E+00\r\n                                        5           0       0.100000E+02    0.100000E+02    0.000000E+00\r\n                                        6           0       0.000000E+00    0.200000E+02    0.000000E+00\r\n                                        7           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                        8           0       0.000000E+00    0.275000E+02    0.000000E+00\r\n                                        9           0      -0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       10           0      -0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       11           0      -0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       12           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       13           0      -0.500000E+01    0.200000E+02    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  ROOTTOP                                            \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              ROOT1          0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT2          0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  ROOTTOP                                            \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          ROOT1             1              1\r\n\r\n                          ROOT2             1              1\r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.047311E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -3.253665E+00, Y0 =  0.448191E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B     6    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B     4    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B     0    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C     0    0    3    0    0    3  3  3  3  3  3  3  3                                                   \r\n       6  ROOT2      B     0    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C     0    0    2    0    0    3  3     3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   893952 WORDS.\r\n                      OR =      873 BLOCKS.\r\n                      OR =       94 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       53\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE VANELFT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF VANELFT  IS VANETOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      LVANE1    LVANE2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE VANERGT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF VANERGT  IS VANETOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      RVANE1    RVANE2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE VANEBOT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE VANETOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF VANEBOT  IS VANETOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      BVANE1    BVANE2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE ROOTLFT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF ROOTLFT  IS ROOTTOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      LROOT1    LROOT2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE ROOTRGT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF ROOTRGT  IS ROOTTOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      RROOT1    RROOT2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE ROOTBOT  HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE ROOTTOP \r\n0                      THE PRIMARY SUBSTRUCTURE OF ROOTBOT  IS ROOTTOP \r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      BROOT1    BROOT2                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    0    0    3  3  3  3  3  3  3  3                                                   \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2    0    0    3  3     3  3  3  3  3                                                   \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9    0    0    3  0  0  3  3  0  0  0                                                   \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0                                          \r\n      13  VANERGT    C    10    5   12    0    0    3  0  0  3  3  0  0  0                                                   \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15    0    0    3  0  0  3  3  0  0  0                                                   \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18    0    0    3  0     3  3  0  0  0                                                   \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    0    0    3  0     3  3  0  0  0                                                   \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24    0    0    3  0     3  3  0  0  0                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   838656 WORDS.\r\n                      OR =      819 BLOCKS.\r\n                      OR =       88 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      107\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 7 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS RING    \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.200000E-01\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   1  2  7 11 12 13 14 15 16 17\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = VANETOP \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = ROOTTOP \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 3 NAME = VANELFT \r\n\r\n               TRANS SET ID =      400\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 4 NAME = ROOTLFT \r\n\r\n               TRANS SET ID =      400\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 5 NAME = VANEBOT \r\n               SYMMETRY DIRECTIONS = Y   \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 6 NAME = ROOTBOT \r\n               SYMMETRY DIRECTIONS = Y   \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 7 NAME = ROOTRGT \r\n\r\n               TRANS SET ID =      300\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  VANETOP          2\r\n+                                                           VANE1     VANE2   \r\n                                  ROOTTOP          2\r\n+                                                           ROOT1     ROOT2   \r\n                                  VANELFT          2\r\n+                                                           LVANE1    LVANE2  \r\n                                  ROOTLFT          2\r\n+                                                           LROOT1    LROOT2  \r\n                                  VANEBOT          2\r\n+                                                           BVANE1    BVANE2  \r\n                                  ROOTBOT          2\r\n+                                                           BROOT1    BROOT2  \r\n                                  ROOTRGT          2\r\n+                                                           RROOT1    RROOT2  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                   SUMMARY OF PROCESSED TRANS BULK DATA                                             \r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =      300\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.000000E+00   0.000000E+00   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *   -0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =      400\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.000000E+00   0.000000E+00   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *    0.000000E+00  -0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF  AUTOMATICALLY GENERATED CONNECTIONS                                       \r\n\r\n              CONNECTED   CONNECTION                             PSEUDOSTRUCTURE  NAMES\r\n                 DOF         CODE      VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT \r\n\r\n\r\n                12         12                 9         12          0          0          0          0          0\r\n                12         12                 6          8          0          0          0          0          0\r\n                12         12                 4          1          0          0          0          0          0\r\n                12         24                 0          9          0          4          0          0          0\r\n                12         24                 0         10          0          5          0          0          0\r\n                12         27                 0          5          0          0          0          0         10\r\n                12         27                 0          4          0          0          0          0          9\r\n                12         34                 0          0          9         12          0          0          0\r\n                12         34                 0          0          4          1          0          0          0\r\n                12         34                 0          0          6          8          0          0          0\r\n                12         46                 0          0          0          9          0          9          0\r\n                12         46                 0          0          0         10          0         10          0\r\n                12         56                 0          0          0          0          9         12          0\r\n                12         56                 0          0          0          0          6          8          0\r\n                12         56                 0          0          0          0          4          1          0\r\n                12         67                 0          0          0          0          0          5          5\r\n                12         67                 0          0          0          0          0          4          4\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n             1           1        12       VANE1                                                                     \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           3        12       VANE1                                                                     \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           5        12       VANE1                                                                     \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           7        12       VANE1                                                                     \r\n                                           5                                                                         \r\n\r\n                                           VANE2                                                                     \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           9        12       VANE1                                                                     \r\n                                           3                                                                         \r\n\r\n                                           VANE2                                                                     \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6          11        12       VANE1                                                                     \r\n                                           1                                                                         \r\n\r\n                                           VANE2                                                                     \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          13        12       VANE2                                                                     \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          15        12       VANE2                                                                     \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          17        12       VANE2                                                                     \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          19        12       VANE1      ROOT1                                                          \r\n                                           8          2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          21        12       VANE1      ROOT1                                                          \r\n                                           7          1                                                              \r\n\r\n                                           VANE2      ROOT2                                                          \r\n                                           7          1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n            12          23        12       VANE2      ROOT2                                                          \r\n                                           8          2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            13          25        12                  ROOT1                                                          \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            14          27        12                  ROOT1                                                          \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            15          29        12                  ROOT2                                                          \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            16          31        12                  ROOT1                                                          \r\n                                                      3                                                              \r\n\r\n                                                      ROOT2                                                          \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            17          33        12                  ROOT1                                                          \r\n                                                      5                                                              \r\n\r\n                                                      ROOT2                                                          \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            18          35        12                  ROOT2                                                          \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            19          37        12                             LVANE1                                              \r\n                                                                 5                                                   \r\n\r\n                                                                 LVANE2                                              \r\n                                                                 5                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            20          39        12                             LVANE1                                              \r\n                                                                 2                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            21          41        12                             LVANE1                                              \r\n                                                                 4                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            22          43        12                             LVANE1                                              \r\n                                                                 6                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            23          45        12                             LVANE2                                              \r\n                                                                 2                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n            24          47        12                             LVANE2                                              \r\n                                                                 4                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            25          49        12                             LVANE1                                              \r\n                                                                 1                                                   \r\n\r\n                                                                 LVANE2                                              \r\n                                                                 1                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            26          51        12                             LVANE1                                              \r\n                                                                 3                                                   \r\n\r\n                                                                 LVANE2                                              \r\n                                                                 3                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            27          53        12                             LVANE2                                              \r\n                                                                 6                                                   \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            28          55        12                  ROOT2                 LROOT1                                   \r\n                                                      8                     8                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            29          57        12                  ROOT2                 LROOT1                                   \r\n                                                      7                     7                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            30          59        12                             LVANE1     LROOT1                                   \r\n                                                                 8          2                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            31          61        12                             LVANE2     LROOT2                                   \r\n                                                                 8          2                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            32          63        12                             LVANE1     LROOT1                                   \r\n                                                                 7          1                                        \r\n\r\n                                                                 LVANE2     LROOT2                                   \r\n                                                                 7          1                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            33          65        12                                        LROOT1                                   \r\n                                                                            6                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            34          67        12                                        LROOT1                                   \r\n                                                                            4                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            35          69        12                                        LROOT2                                   \r\n                                                                            6                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n            36          71        12                                        LROOT2                                   \r\n                                                                            4                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            37          73        12                                        LROOT1                                   \r\n                                                                            3                                        \r\n\r\n                                                                            LROOT2                                   \r\n                                                                            3                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            38          75        12                                        LROOT1                                   \r\n                                                                            5                                        \r\n\r\n                                                                            LROOT2                                   \r\n                                                                            5                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            39          77        12                                                   BVANE1                        \r\n                                                                                       3                             \r\n\r\n                                                                                       BVANE2                        \r\n                                                                                       3                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            40          79        12                                                   BVANE1                        \r\n                                                                                       1                             \r\n\r\n                                                                                       BVANE2                        \r\n                                                                                       1                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            41          81        12                                                   BVANE1                        \r\n                                                                                       6                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            42          83        12                                                   BVANE1                        \r\n                                                                                       4                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            43          85        12                                                   BVANE1                        \r\n                                                                                       2                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            44          87        12                                                   BVANE2                        \r\n                                                                                       4                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            45          89        12                                                   BVANE2                        \r\n                                                                                       6                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            46          91        12                                                   BVANE1                        \r\n                                                                                       5                             \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n\r\n                                                                                       BVANE2                        \r\n                                                                                       5                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            47          93        12                                                   BVANE2                        \r\n                                                                                       2                             \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            48          95        12                                        LROOT2                BROOT2             \r\n                                                                            7                     7                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            49          97        12                                        LROOT2                BROOT2             \r\n                                                                            8                     8                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            50          99        12                                                   BVANE2     BROOT2             \r\n                                                                                       8          2                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            51         101        12                                                   BVANE1     BROOT1             \r\n                                                                                       7          1                  \r\n\r\n                                                                                       BVANE2     BROOT2             \r\n                                                                                       7          1                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            52         103        12                                                   BVANE1     BROOT1             \r\n                                                                                       8          2                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            53         105        12                                                              BROOT1             \r\n                                                                                                  4                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            54         107        12                                                              BROOT2             \r\n                                                                                                  4                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            55         109        12                                                              BROOT1             \r\n                                                                                                  5                  \r\n\r\n                                                                                                  BROOT2             \r\n                                                                                                  5                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            56         111        12                                                              BROOT2             \r\n                                                                                                  6                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            57         113        12                                                              BROOT1             \r\n                                                                                                  3                  \r\n\r\n                                                                                                  BROOT2             \r\n                                                                                                  3                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n            58         115        12                                                              BROOT1             \r\n                                                                                                  6                  \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            59         117        12                  ROOT1                                                  RROOT2  \r\n                                                      7                                                      7       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            60         119        12                  ROOT1                                                  RROOT2  \r\n                                                      8                                                      8       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            61         121        12                                                              BROOT1     RROOT1  \r\n                                                                                                  8          8       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            62         123        12                                                              BROOT1     RROOT1  \r\n                                                                                                  7          7       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            63         125        12                                                                         RROOT1  \r\n                                                                                                             2       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            64         127        12                                                                         RROOT1  \r\n                                                                                                             4       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            65         129        12                                                                         RROOT1  \r\n                                                                                                             6       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            66         131        12                                                                         RROOT1  \r\n                                                                                                             3       \r\n\r\n                                                                                                             RROOT2  \r\n                                                                                                             3       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            67         133        12                                                                         RROOT1  \r\n                                                                                                             5       \r\n\r\n                                                                                                             RROOT2  \r\n                                                                                                             5       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            68         135        12                                                                         RROOT1  \r\n                                                                                                             1       \r\n\r\n                                                                                                             RROOT2  \r\n                                                                                                             1       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            69         137        12                                                                         RROOT2  \r\n                                                                                                             6       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   VANETOP    ROOTTOP    VANELFT    ROOTLFT    VANEBOT    ROOTBOT    ROOTRGT                \r\n            70         139        12                                                                         RROOT2  \r\n                                                                                                             2       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            71         141        12                                                                         RROOT2  \r\n                                                                                                             4       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           6      12                        2           1      12                        3           5      12    \r\n             4           2      12                        5           4      12                        6           3      12    \r\n             7          11      12                        8          10      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           6      12                        2           8      12                        3           5      12    \r\n             4           9      12                        5           4      12                        6           7      12    \r\n             7          11      12                        8          12      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          11      12                        2          10      12                        3          16      12    \r\n             4          14      12                        5          17      12                        6          13      12    \r\n             7          59      12                        8          60      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          11      12                        2          12      12                        3          16      12    \r\n             4          15      12                        5          17      12                        6          18      12    \r\n             7          29      12                        8          28      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  LVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          25      12                        2          20      12                        3          26      12    \r\n             4          21      12                        5          19      12                        6          22      12    \r\n             7          32      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  LVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          25      12                        2          23      12                        3          26      12    \r\n             4          24      12                        5          19      12                        6          27      12    \r\n             7          32      12                        8          31      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  LROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          32      12                        2          30      12                        3          37      12    \r\n             4          34      12                        5          38      12                        6          33      12    \r\n             7          29      12                        8          28      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  LROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          32      12                        2          31      12                        3          37      12    \r\n             4          36      12                        5          38      12                        6          35      12    \r\n             7          48      12                        8          49      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  BVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          40      12                        2          43      12                        3          39      12    \r\n             4          42      12                        5          46      12                        6          41      12    \r\n             7          51      12                        8          52      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  BVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          40      12                        2          47      12                        3          39      12    \r\n             4          44      12                        5          46      12                        6          45      12    \r\n             7          51      12                        8          50      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  BROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          51      12                        2          52      12                        3          57      12    \r\n             4          53      12                        5          55      12                        6          58      12    \r\n             7          62      12                        8          61      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  BROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          51      12                        2          50      12                        3          57      12    \r\n             4          54      12                        5          55      12                        6          56      12    \r\n             7          48      12                        8          49      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  RROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          68      12                        2          63      12                        3          66      12    \r\n             4          64      12                        5          67      12                        6          65      12    \r\n             7          62      12                        8          61      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RING     COMPONENT  RROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          68      12                        2          70      12                        3          66      12    \r\n             4          71      12                        5          67      12                        6          69      12    \r\n             7          59      12                        8          60      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  RING                                       \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      12                        5           9      12                        6          11      12    \r\n             7          13      12                        8          15      12                        9          17      12    \r\n            10          19      12                       11          21      12                       12          23      12    \r\n            13          25      12                       14          27      12                       15          29      12    \r\n            16          31      12                       17          33      12                       18          35      12    \r\n            19          37      12                       20          39      12                       21          41      12    \r\n            22          43      12                       23          45      12                       24          47      12    \r\n            25          49      12                       26          51      12                       27          53      12    \r\n            28          55      12                       29          57      12                       30          59      12    \r\n            31          61      12                       32          63      12                       33          65      12    \r\n            34          67      12                       35          69      12                       36          71      12    \r\n            37          73      12                       38          75      12                       39          77      12    \r\n            40          79      12                       41          81      12                       42          83      12    \r\n            43          85      12                       44          87      12                       45          89      12    \r\n            46          91      12                       47          93      12                       48          95      12    \r\n            49          97      12                       50          99      12                       51         101      12    \r\n            52         103      12                       53         105      12                       54         107      12    \r\n            55         109      12                       56         111      12                       57         113      12    \r\n            58         115      12                       59         117      12                       60         119      12    \r\n            61         121      12                       62         123      12                       63         125      12    \r\n            64         127      12                       65         129      12                       66         131      12    \r\n            67         133      12                       68         135      12                       69         137      12    \r\n            70         139      12                       71         141      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      RING                                               \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           1       0.500000E+01    0.500000E+02    0.000000E+00\r\n                                        2           1       0.500000E+01    0.425000E+02    0.000000E+00\r\n                                        3           1       0.500000E+01    0.350000E+02    0.000000E+00\r\n                                        4           1       0.000000E+00    0.350000E+02    0.000000E+00\r\n                                        5           1       0.000000E+00    0.425000E+02    0.000000E+00\r\n                                        6           1       0.000000E+00    0.500000E+02    0.000000E+00\r\n                                        7           2      -0.500000E+01    0.350000E+02    0.000000E+00\r\n                                        8           2      -0.500000E+01    0.500000E+02    0.000000E+00\r\n                                        9           2      -0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       10           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       11           0       0.000000E+00    0.275000E+02    0.000000E+00\r\n                                       12           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       13           0       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       14           0       0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       15           0      -0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       16           0       0.000000E+00    0.200000E+02    0.000000E+00\r\n                                       17           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                       18           0      -0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       19           3      -0.350000E+02    0.000000E+00    0.000000E+00\r\n                                       20           3      -0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       21           3      -0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       22           3      -0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       23           4      -0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       24           4      -0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       25           3      -0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       26           3      -0.425000E+02    0.000000E+00    0.000000E+00\r\n                                       27           4      -0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       28           0      -0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       29           0      -0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       30           0      -0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       31           0      -0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       32           0      -0.275000E+02    0.000000E+00    0.000000E+00\r\n                                       33           0      -0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       34           0      -0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       35           0      -0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       36           0      -0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       37           0      -0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       38           0      -0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       39           5       0.000000E+00   -0.425000E+02    0.000000E+00\r\n                                       40           5       0.000000E+00   -0.500000E+02    0.000000E+00\r\n                                       41           5       0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       42           5       0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       43           5       0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       44           6      -0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       45           6      -0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       46           5       0.000000E+00   -0.350000E+02    0.000000E+00\r\n                                       47           6      -0.500000E+01   -0.500000E+02    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      RING                                               \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                       48           0      -0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       49           0      -0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       50           0      -0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       51           0       0.000000E+00   -0.275000E+02    0.000000E+00\r\n                                       52           0       0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       53           0       0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       54           0      -0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       55           0       0.000000E+00   -0.150000E+02    0.000000E+00\r\n                                       56           0      -0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       57           0       0.000000E+00   -0.200000E+02    0.000000E+00\r\n                                       58           0       0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       59           0       0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       60           0       0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       61           0       0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       62           0       0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       63           0       0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       64           0       0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       65           0       0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       66           0       0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       67           0       0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       68           0       0.275000E+02    0.000000E+00    0.000000E+00\r\n                                       69           0       0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       70           0       0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       71           0       0.200000E+02    0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    CSTM ITEM FOR SUBSTRUCTURE  RING                                               \r\n              CSTM   TYPE        C O O R D I N A T E S   O F   O R I G I N                  T R A N S F O R M A T I O N             \r\n               ID                    X1              X2              X3                             M A T R I X                     \r\n\r\n                 1      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 2      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 3      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 4      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 5      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 6      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  RING                                               \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              VANE1          0.000000E+00    0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE2          0.000000E+00    0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT1          0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT2          0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE1        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE2        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE1         0.000000E+00   -0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE2         0.000000E+00   -0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  RING                                               \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              BROOT2         0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  RING                                               \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          VANE1             2              1         2\r\n\r\n                          VANE2             2              1         2\r\n\r\n                          ROOT1             1              1\r\n\r\n                          ROOT2             1              1\r\n\r\n                          LVANE1            2              1         2\r\n\r\n                          LVANE2            2              1         2\r\n\r\n                          LROOT1            1              1\r\n\r\n                          LROOT2            1              1\r\n\r\n                          BVANE1            2              1         2\r\n\r\n                          BVANE2            2              1         2\r\n\r\n                          BROOT1            1              1\r\n\r\n                          BROOT2            1              1\r\n\r\n                          RROOT1            1              1\r\n\r\n                          RROOT2            1              1\r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0                                          \r\n      13  VANERGT    C    10    5   12    0    0    3  0  0  3  3  0  0  0                                                   \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5    0    0    3  3  3  3  3  4  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   818176 WORDS.\r\n                      OR =      799 BLOCKS.\r\n                      OR =       86 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      127\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS BLADES  \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.200000E-01\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   1  2  7 11 12 13 14 15 16 17\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = RING    \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = VANERGT \r\n\r\n               TRANS SET ID =      500\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  RING            14\r\n+                                                           VANE1     VANE2     ROOT1     ROOT2   \r\n                                                            LVANE1    LVANE2    LROOT1    LROOT2  \r\n                                                            BVANE1    BVANE2    BROOT1    BROOT2  \r\n                                                            RROOT1    RROOT2  \r\n                                  VANERGT          2\r\n+                                                           RVANE1    RVANE2  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                   SUMMARY OF PROCESSED TRANS BULK DATA                                             \r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =      500\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.000000E+00   0.000000E+00   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *   -0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF  AUTOMATICALLY GENERATED CONNECTIONS                                       \r\n\r\n              CONNECTED   CONNECTION                             PSEUDOSTRUCTURE  NAMES\r\n                 DOF         CODE      RING       VANERGT \r\n                12         12                68          6\r\n                12         12                70          9\r\n                12         12                63          4\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n             1           1        12       VANE1              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           3        12       VANE1              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           5        12       VANE1              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           7        12       VANE1              \r\n                                           5                                                                         \r\n\r\n                                           VANE2              \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           9        12       VANE1              \r\n                                           3                                                                         \r\n\r\n                                           VANE2              \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6          11        12       VANE1              \r\n                                           1                                                                         \r\n\r\n                                           VANE2              \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          13        12       VANE2              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          15        12       VANE2              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          17        12       VANE2              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          19        12       VANE1              \r\n                                           8                                                                         \r\n\r\n                                           ROOT1              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          21        12       VANE1              \r\n                                           7                                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n\r\n                                           VANE2              \r\n                                           7                                                                         \r\n\r\n                                           ROOT1              \r\n                                           1                                                                         \r\n\r\n                                           ROOT2              \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            12          23        12       VANE2              \r\n                                           8                                                                         \r\n\r\n                                           ROOT2              \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            13          25        12       ROOT1              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            14          27        12       ROOT1              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            15          29        12       ROOT2              \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            16          31        12       ROOT1              \r\n                                           3                                                                         \r\n\r\n                                           ROOT2              \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            17          33        12       ROOT1              \r\n                                           5                                                                         \r\n\r\n                                           ROOT2              \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            18          35        12       ROOT2              \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            19          37        12       LVANE1             \r\n                                           5                                                                         \r\n\r\n                                           LVANE2             \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n            20          39        12       LVANE1             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            21          41        12       LVANE1             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            22          43        12       LVANE1             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            23          45        12       LVANE2             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            24          47        12       LVANE2             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            25          49        12       LVANE1             \r\n                                           1                                                                         \r\n\r\n                                           LVANE2             \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            26          51        12       LVANE1             \r\n                                           3                                                                         \r\n\r\n                                           LVANE2             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            27          53        12       LVANE2             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            28          55        12       ROOT2              \r\n                                           8                                                                         \r\n\r\n                                           LROOT1             \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            29          57        12       ROOT2              \r\n                                           7                                                                         \r\n\r\n                                           LROOT1             \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            30          59        12       LVANE1             \r\n                                           8                                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n\r\n                                           LROOT1             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            31          61        12       LVANE2             \r\n                                           8                                                                         \r\n\r\n                                           LROOT2             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            32          63        12       LVANE1             \r\n                                           7                                                                         \r\n\r\n                                           LVANE2             \r\n                                           7                                                                         \r\n\r\n                                           LROOT1             \r\n                                           1                                                                         \r\n\r\n                                           LROOT2             \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            33          65        12       LROOT1             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            34          67        12       LROOT1             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            35          69        12       LROOT2             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            36          71        12       LROOT2             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            37          73        12       LROOT1             \r\n                                           3                                                                         \r\n\r\n                                           LROOT2             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            38          75        12       LROOT1             \r\n                                           5                                                                         \r\n\r\n                                           LROOT2             \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n            39          77        12       BVANE1             \r\n                                           3                                                                         \r\n\r\n                                           BVANE2             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            40          79        12       BVANE1             \r\n                                           1                                                                         \r\n\r\n                                           BVANE2             \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            41          81        12       BVANE1             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            42          83        12       BVANE1             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            43          85        12       BVANE1             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            44          87        12       BVANE2             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            45          89        12       BVANE2             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            46          91        12       BVANE1             \r\n                                           5                                                                         \r\n\r\n                                           BVANE2             \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            47          93        12       BVANE2             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            48          95        12       LROOT2             \r\n                                           7                                                                         \r\n\r\n                                           BROOT2             \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            49          97        12       LROOT2             \r\n                                           8                                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n\r\n                                           BROOT2             \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            50          99        12       BVANE2             \r\n                                           8                                                                         \r\n\r\n                                           BROOT2             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            51         101        12       BVANE1             \r\n                                           7                                                                         \r\n\r\n                                           BVANE2             \r\n                                           7                                                                         \r\n\r\n                                           BROOT1             \r\n                                           1                                                                         \r\n\r\n                                           BROOT2             \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            52         103        12       BVANE1             \r\n                                           8                                                                         \r\n\r\n                                           BROOT1             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            53         105        12       BROOT1             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            54         107        12       BROOT2             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            55         109        12       BROOT1             \r\n                                           5                                                                         \r\n\r\n                                           BROOT2             \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            56         111        12       BROOT2             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            57         113        12       BROOT1             \r\n                                           3                                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n\r\n                                           BROOT2             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            58         115        12       BROOT1             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            59         117        12       ROOT1              \r\n                                           7                                                                         \r\n\r\n                                           RROOT2             \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            60         119        12       ROOT1              \r\n                                           8                                                                         \r\n\r\n                                           RROOT2             \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            61         121        12       BROOT1             \r\n                                           8                                                                         \r\n\r\n                                           RROOT1             \r\n                                           8                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            62         123        12       BROOT1             \r\n                                           7                                                                         \r\n\r\n                                           RROOT1             \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            63         125        12       RROOT1             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            64         127        12       RROOT1             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            65         129        12       RROOT1             \r\n                                           3                                                                         \r\n\r\n                                           RROOT2             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            66         131        12       RROOT1             \r\n                                           5                                                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n\r\n                                           RROOT2             \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            67         133        12       RROOT2             \r\n                                           6                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            68         135        12       RROOT2             \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            69         137        12       RROOT2     RVANE2  \r\n                                           2          8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            70         139        12       RROOT1     RVANE1  \r\n                                           2          8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            71         141        12       RROOT1     RVANE1  \r\n                                           1          7                                                              \r\n\r\n                                           RROOT2     RVANE2  \r\n                                           1          7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            72         143        12                  RVANE1  \r\n                                                      5                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            73         145        12                  RVANE1  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            74         147        12                  RVANE1  \r\n                                                      1                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            75         149        12                  RVANE2  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            76         151        12                  RVANE2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            77         153        12                  RVANE2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   RING       VANERGT                                                                       \r\n            78         155        12                  RVANE1  \r\n                                                      3                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            79         157        12                  RVANE1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            80         159        12                  RVANE1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           6      12                        2           1      12                        3           5      12    \r\n             4           2      12                        5           4      12                        6           3      12    \r\n             7          11      12                        8          10      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           6      12                        2           8      12                        3           5      12    \r\n             4           9      12                        5           4      12                        6           7      12    \r\n             7          11      12                        8          12      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          11      12                        2          10      12                        3          16      12    \r\n             4          14      12                        5          17      12                        6          13      12    \r\n             7          59      12                        8          60      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          11      12                        2          12      12                        3          16      12    \r\n             4          15      12                        5          17      12                        6          18      12    \r\n             7          29      12                        8          28      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  LVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          25      12                        2          20      12                        3          26      12    \r\n             4          21      12                        5          19      12                        6          22      12    \r\n             7          32      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  LVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          25      12                        2          23      12                        3          26      12    \r\n             4          24      12                        5          19      12                        6          27      12    \r\n             7          32      12                        8          31      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  LROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          32      12                        2          30      12                        3          37      12    \r\n             4          34      12                        5          38      12                        6          33      12    \r\n             7          29      12                        8          28      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  LROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          32      12                        2          31      12                        3          37      12    \r\n             4          36      12                        5          38      12                        6          35      12    \r\n             7          48      12                        8          49      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  BVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          40      12                        2          43      12                        3          39      12    \r\n             4          42      12                        5          46      12                        6          41      12    \r\n             7          51      12                        8          52      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   129\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  BVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          40      12                        2          47      12                        3          39      12    \r\n             4          44      12                        5          46      12                        6          45      12    \r\n             7          51      12                        8          50      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   130\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  BROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          51      12                        2          52      12                        3          57      12    \r\n             4          53      12                        5          55      12                        6          58      12    \r\n             7          62      12                        8          61      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   131\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  BROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          51      12                        2          50      12                        3          57      12    \r\n             4          54      12                        5          55      12                        6          56      12    \r\n             7          48      12                        8          49      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   132\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  RROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          71      12                        2          70      12                        3          65      12    \r\n             4          63      12                        5          66      12                        6          64      12    \r\n             7          62      12                        8          61      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   133\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  RROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          71      12                        2          69      12                        3          65      12    \r\n             4          68      12                        5          66      12                        6          67      12    \r\n             7          59      12                        8          60      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   134\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  RVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          74      12                        2          79      12                        3          78      12    \r\n             4          80      12                        5          72      12                        6          73      12    \r\n             7          71      12                        8          70      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   135\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE BLADES   COMPONENT  RVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          74      12                        2          76      12                        3          78      12    \r\n             4          77      12                        5          72      12                        6          75      12    \r\n             7          71      12                        8          69      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   136\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  BLADES                                     \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      12                        5           9      12                        6          11      12    \r\n             7          13      12                        8          15      12                        9          17      12    \r\n            10          19      12                       11          21      12                       12          23      12    \r\n            13          25      12                       14          27      12                       15          29      12    \r\n            16          31      12                       17          33      12                       18          35      12    \r\n            19          37      12                       20          39      12                       21          41      12    \r\n            22          43      12                       23          45      12                       24          47      12    \r\n            25          49      12                       26          51      12                       27          53      12    \r\n            28          55      12                       29          57      12                       30          59      12    \r\n            31          61      12                       32          63      12                       33          65      12    \r\n            34          67      12                       35          69      12                       36          71      12    \r\n            37          73      12                       38          75      12                       39          77      12    \r\n            40          79      12                       41          81      12                       42          83      12    \r\n            43          85      12                       44          87      12                       45          89      12    \r\n            46          91      12                       47          93      12                       48          95      12    \r\n            49          97      12                       50          99      12                       51         101      12    \r\n            52         103      12                       53         105      12                       54         107      12    \r\n            55         109      12                       56         111      12                       57         113      12    \r\n            58         115      12                       59         117      12                       60         119      12    \r\n            61         121      12                       62         123      12                       63         125      12    \r\n            64         127      12                       65         129      12                       66         131      12    \r\n            67         133      12                       68         135      12                       69         137      12    \r\n            70         139      12                       71         141      12                       72         143      12    \r\n            73         145      12                       74         147      12                       75         149      12    \r\n            76         151      12                       77         153      12                       78         155      12    \r\n            79         157      12                       80         159      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   137\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      BLADES                                             \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           1       0.500000E+01    0.500000E+02    0.000000E+00\r\n                                        2           1       0.500000E+01    0.425000E+02    0.000000E+00\r\n                                        3           1       0.500000E+01    0.350000E+02    0.000000E+00\r\n                                        4           1       0.000000E+00    0.350000E+02    0.000000E+00\r\n                                        5           1       0.000000E+00    0.425000E+02    0.000000E+00\r\n                                        6           1       0.000000E+00    0.500000E+02    0.000000E+00\r\n                                        7           2      -0.500000E+01    0.350000E+02    0.000000E+00\r\n                                        8           2      -0.500000E+01    0.500000E+02    0.000000E+00\r\n                                        9           2      -0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       10           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       11           0       0.000000E+00    0.275000E+02    0.000000E+00\r\n                                       12           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       13           0       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       14           0       0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       15           0      -0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       16           0       0.000000E+00    0.200000E+02    0.000000E+00\r\n                                       17           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                       18           0      -0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       19           3      -0.350000E+02    0.000000E+00    0.000000E+00\r\n                                       20           3      -0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       21           3      -0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       22           3      -0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       23           4      -0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       24           4      -0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       25           3      -0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       26           3      -0.425000E+02    0.000000E+00    0.000000E+00\r\n                                       27           4      -0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       28           0      -0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       29           0      -0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       30           0      -0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       31           0      -0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       32           0      -0.275000E+02    0.000000E+00    0.000000E+00\r\n                                       33           0      -0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       34           0      -0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       35           0      -0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       36           0      -0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       37           0      -0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       38           0      -0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       39           5       0.000000E+00   -0.425000E+02    0.000000E+00\r\n                                       40           5       0.000000E+00   -0.500000E+02    0.000000E+00\r\n                                       41           5       0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       42           5       0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       43           5       0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       44           6      -0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       45           6      -0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       46           5       0.000000E+00   -0.350000E+02    0.000000E+00\r\n                                       47           6      -0.500000E+01   -0.500000E+02    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   138\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      BLADES                                             \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                       48           0      -0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       49           0      -0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       50           0      -0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       51           0       0.000000E+00   -0.275000E+02    0.000000E+00\r\n                                       52           0       0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       53           0       0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       54           0      -0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       55           0       0.000000E+00   -0.150000E+02    0.000000E+00\r\n                                       56           0      -0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       57           0       0.000000E+00   -0.200000E+02    0.000000E+00\r\n                                       58           0       0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       59           0       0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       60           0       0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       61           0       0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       62           0       0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       63           0       0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       64           0       0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       65           0       0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       66           0       0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       67           0       0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       68           0       0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       69           0       0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       70           0       0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       71           0       0.275000E+02    0.000000E+00    0.000000E+00\r\n                                       72           7       0.350000E+02    0.000000E+00    0.000000E+00\r\n                                       73           7       0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       74           7       0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       75           8       0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       76           8       0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       77           8       0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       78           7       0.425000E+02    0.000000E+00    0.000000E+00\r\n                                       79           7       0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       80           7       0.425000E+02   -0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   139\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    CSTM ITEM FOR SUBSTRUCTURE  BLADES                                             \r\n              CSTM   TYPE        C O O R D I N A T E S   O F   O R I G I N                  T R A N S F O R M A T I O N             \r\n               ID                    X1              X2              X3                             M A T R I X                     \r\n\r\n                 1      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 2      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 3      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 4      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 5      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 6      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 7      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 8      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   140\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  BLADES                                             \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              VANE1          0.000000E+00    0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE2          0.000000E+00    0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT1          0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT2          0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE1        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE2        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE1         0.000000E+00   -0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE2         0.000000E+00   -0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   141\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  BLADES                                             \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              BROOT2         0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE1         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE2         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   142\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  BLADES                                             \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          VANE1             2              1         2\r\n\r\n                          VANE2             2              1         2\r\n\r\n                          ROOT1             1              1\r\n\r\n                          ROOT2             1              1\r\n\r\n                          LVANE1            2              1         2\r\n\r\n                          LVANE2            2              1         2\r\n\r\n                          LROOT1            1              1\r\n\r\n                          LROOT2            1              1\r\n\r\n                          BVANE1            2              1         2\r\n\r\n                          BVANE2            2              1         2\r\n\r\n                          BROOT1            1              1\r\n\r\n                          BROOT2            1              1\r\n\r\n                          RROOT1            1              1\r\n\r\n                          RROOT2            1              1\r\n\r\n                          RVANE1            2              1         2\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   143\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  BLADES                                             \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          RVANE2            2              1         2\r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   144\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0    0    0    3  3  3  3  3  3  3  3                                                   \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0                                          \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3                                          \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    0    0    3  3  3  3  3  4  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   799744 WORDS.\r\n                      OR =      781 BLOCKS.\r\n                      OR =       84 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      145\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   145\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE CONNECTION SET ID IS     1000\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS WINDMIL \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.200000E-01\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   1  2  9 11 12 13 14 15 16 17\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = HUB     \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = BLADES  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   146\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  HUB              1\r\n+                                                           HUB     \r\n                                  BLADES          16\r\n+                                                           VANE1     VANE2     ROOT1     ROOT2   \r\n                                                            LVANE1    LVANE2    LROOT1    LROOT2  \r\n                                                            BVANE1    BVANE2    BROOT1    BROOT2  \r\n                                                            RROOT1    RROOT2    RVANE1    RVANE2  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   147\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                  SUMMARY OF PROCESSED RELES BULK DATA                                             \r\n                                    BASIC         GRID       REQUESTED     INTERNAL     CURRENT    DOF TO BE                        \r\n                                 SUBSTRUCTURE   POINT ID      RELEASE      POINT NO.      DOF       RELEASED                        \r\n                                   HUB                 5       2                  4      123456      2     \r\n                                   HUB                17       1                 20      123456      1     \r\n                                   HUB                29       2                 29      123456      2     \r\n                                   HUB                41       1                 13      123456      1     \r\n                                   HUB               108       12                 8      123456      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   148\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF  AUTOMATICALLY GENERATED CONNECTIONS                                       \r\n\r\n              CONNECTED   CONNECTION                             PSEUDOSTRUCTURE  NAMES\r\n                 DOF         CODE      HUB        BLADES  \r\n                12         12                17         35\r\n                12         12                13         38\r\n                12         12                 9         33\r\n                12         12                 5         28\r\n                12         12                21         49\r\n                12         12                 2         18\r\n                12         12                25         56\r\n                12         12                 4         17\r\n                12         12                29         55\r\n                12         12                 8         13\r\n                12         12                32         58\r\n                12         12                12         60\r\n                12         12                28         61\r\n                12         12                24         64\r\n                12         12                20         66\r\n                12         12                16         67\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   149\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n             1           1        1        HUB                \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           2        12       HUB                \r\n                                           4                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           4        2        HUB                \r\n                                           5                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           5        12       HUB                \r\n                                           46                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           7        1        HUB                \r\n                                           7                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6           8        12       HUB                \r\n                                           108                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          10        2        HUB                \r\n                                           43                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          11        12       HUB                \r\n                                           10                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          13        1        HUB                \r\n                                           41                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          14        12       HUB                \r\n                                           40                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          16        2        HUB                \r\n                                           13                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            12          17        2        HUB                \r\n                                           37                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            13          18        12       HUB                \r\n                                           16                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            14          20        1        HUB                \r\n                                           17                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            15          21        12       HUB                \r\n                                           34                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   150\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            16          23        2        HUB                \r\n                                           19                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            17          24        1        HUB                \r\n                                           31                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            18          25        12       HUB                \r\n                                           22                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            19          27        2        HUB                \r\n                                           29                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            20          28        12       HUB                \r\n                                           28                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            21          30        1        HUB                \r\n                                           25                                                                        \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            22          31        12       HUB        BROOT1  \r\n                                           26         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            23          33        12       HUB        ROOT1   \r\n                                           11         8                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            24          35        12       HUB        BROOT1  \r\n                                           23         8                                                              \r\n\r\n                                                      RROOT1  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            25          37        12       HUB        RROOT1  \r\n                                           20         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            26          39        2        HUB        RROOT1  \r\n                                           17         5                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            27          40        12       HUB        RROOT2  \r\n                                           14         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   151\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            28          42        12       HUB        LROOT1  \r\n                                           44         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            29          44        12       HUB        ROOT2   \r\n                                           47         8                                                              \r\n\r\n                                                      LROOT1  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            30          46        12       HUB        LROOT2  \r\n                                           35         8                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            31          48        12       HUB        ROOT2   \r\n                                           2          6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            32          50        12       HUB        BROOT2  \r\n                                           32         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            33          52        1        HUB        ROOT1   \r\n                                           5          5                                                              \r\n\r\n                                                      ROOT2   \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            34          53        1        HUB        BROOT1  \r\n                                           29         5                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            35          54        12       HUB        LROOT2  \r\n                                           38         6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            36          56        2        HUB        LROOT1  \r\n                                           41         5                                                              \r\n\r\n                                                      LROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            37          57        12                  ROOT1   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   152\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            38          59        2                   ROOT1   \r\n                                                      5                                                              \r\n\r\n                                                      ROOT2   \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            39          60        12                  ROOT2   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            40          62        12                  ROOT1   \r\n                                                      3                                                              \r\n\r\n                                                      ROOT2   \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            41          64        12                  VANE2   \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            42          66        12                  VANE2   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            43          68        12                  VANE2   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            44          70        12                  VANE1   \r\n                                                      8                                                              \r\n\r\n                                                      ROOT1   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            45          72        12                  VANE1   \r\n                                                      7                                                              \r\n\r\n                                                      VANE2   \r\n                                                      7                                                              \r\n\r\n                                                      ROOT1   \r\n                                                      1                                                              \r\n\r\n                                                      ROOT2   \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            46          74        12                  VANE2   \r\n                                                      8                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   153\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n\r\n                                                      ROOT2   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            47          76        12                  ROOT1   \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            48          78        12                  VANE1   \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            49          80        12                  VANE1   \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            50          82        12                  VANE1   \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            51          84        12                  VANE1   \r\n                                                      5                                                              \r\n\r\n                                                      VANE2   \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            52          86        12                  VANE1   \r\n                                                      3                                                              \r\n\r\n                                                      VANE2   \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            53          88        12                  VANE1   \r\n                                                      1                                                              \r\n\r\n                                                      VANE2   \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            54          90        12                  LROOT1  \r\n                                                      3                                                              \r\n\r\n                                                      LROOT2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            55          92        1                   LROOT1  \r\n                                                      5                                                              \r\n\r\n                                                      LROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   154\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            56          93        12                  BVANE1  \r\n                                                      3                                                              \r\n\r\n                                                      BVANE2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            57          95        12                  BVANE1  \r\n                                                      1                                                              \r\n\r\n                                                      BVANE2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            58          97        12                  BVANE1  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            59          99        12                  BVANE1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            60         101        12                  BVANE1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            61         103        12                  BVANE2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            62         105        12                  BVANE2  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            63         107        12                  BVANE1  \r\n                                                      5                                                              \r\n\r\n                                                      BVANE2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            64         109        12                  BVANE2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            65         111        12                  LROOT2  \r\n                                                      7                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            66         113        12                  BVANE2  \r\n                                                      8                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   155\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n\r\n                                                      BROOT2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            67         115        12                  BVANE1  \r\n                                                      7                                                              \r\n\r\n                                                      BVANE2  \r\n                                                      7                                                              \r\n\r\n                                                      BROOT1  \r\n                                                      1                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            68         117        12                  BVANE1  \r\n                                                      8                                                              \r\n\r\n                                                      BROOT1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            69         119        12                  BROOT1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            70         121        12                  BROOT2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            71         123        2                   BROOT1  \r\n                                                      5                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            72         124        12                  BROOT1  \r\n                                                      3                                                              \r\n\r\n                                                      BROOT2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            73         126        12                  ROOT1   \r\n                                                      7                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   156\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            74         128        12                  BROOT1  \r\n                                                      7                                                              \r\n\r\n                                                      RROOT1  \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            75         130        12                  RROOT1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            76         132        12                  RROOT1  \r\n                                                      3                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            77         134        1                   RROOT1  \r\n                                                      5                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            78         135        12                  RROOT2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            79         137        12                  RROOT2  \r\n                                                      2                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            80         139        12                  RROOT1  \r\n                                                      2                                                              \r\n\r\n                                                      RVANE1  \r\n                                                      8                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            81         141        12                  RROOT1  \r\n                                                      1                                                              \r\n\r\n                                                      RROOT2  \r\n                                                      1                                                              \r\n\r\n                                                      RVANE1  \r\n                                                      7                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   157\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n\r\n                                                      RVANE2  \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            82         143        12                  RVANE1  \r\n                                                      5                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            83         145        12                  RVANE1  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            84         147        12                  RVANE1  \r\n                                                      1                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            85         149        12                  RVANE2  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            86         151        12                  RVANE2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            87         153        12                  RVANE2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            88         155        12                  RVANE1  \r\n                                                      3                                                              \r\n\r\n                                                      RVANE2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            89         157        12                  RVANE1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            90         159        12                  RVANE1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            91         161        12                  LVANE1  \r\n                                                      5                                                              \r\n\r\n                                                      LVANE2  \r\n                                                      5                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   158\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n            92         163        12                  LVANE1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            93         165        12                  LVANE1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            94         167        12                  LVANE1  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            95         169        12                  LVANE2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            96         171        12                  LVANE2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            97         173        12                  LVANE1  \r\n                                                      1                                                              \r\n\r\n                                                      LVANE2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            98         175        12                  LVANE1  \r\n                                                      3                                                              \r\n\r\n                                                      LVANE2  \r\n                                                      3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            99         177        12                  LVANE2  \r\n                                                      6                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           100         179        12                  ROOT2   \r\n                                                      7                                                              \r\n\r\n                                                      LROOT1  \r\n                                                      7                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           101         181        12                  LVANE1  \r\n                                                      8                                                              \r\n\r\n                                                      LROOT1  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           102         183        12                  LVANE2  \r\n                                                      8                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   159\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   HUB        BLADES                                                                        \r\n\r\n                                                      LROOT2  \r\n                                                      2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           103         185        12                  LVANE1  \r\n                                                      7                                                              \r\n\r\n                                                      LVANE2  \r\n                                                      7                                                              \r\n\r\n                                                      LROOT1  \r\n                                                      1                                                              \r\n\r\n                                                      LROOT2  \r\n                                                      1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           104         187        12                  LROOT1  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n           105         189        12                  LROOT2  \r\n                                                      4                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   160\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  HUB                                        \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      1                         2          31      12                        4           2      12    \r\n             5           3      2                         5          33      1                         7           5      1     \r\n            10           8      12                       11          23      12                       13          11      2     \r\n            14          27      12                       16          13      12                       17          26      2     \r\n            17          14      1                        19          16      2                        20          25      12    \r\n            22          18      12                       23          24      12                       25          21      1     \r\n            26          22      12                       28          20      12                       29          34      1     \r\n            29          19      2                        31          17      1                        32          32      12    \r\n            34          15      12                       35          30      12                       37          12      2     \r\n            38          35      12                       40          10      12                       41          36      2     \r\n            41           9      1                        43           7      2                        44          28      12    \r\n            46           4      12                       47          29      12                      108           6      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   161\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          53      12                        2          48      12                        3          52      12    \r\n             4          49      12                        5          51      12                        6          50      12    \r\n             7          45      12                        8          44      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   162\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          53      12                        2          42      12                        3          52      12    \r\n             4          43      12                        5          51      12                        6          41      12    \r\n             7          45      12                        8          46      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   163\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          45      12                        2          44      12                        3          40      12    \r\n             4          37      12                        5          33      1                         5          38      2     \r\n             6          47      12                        7          73      12                        8          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   164\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          45      12                        2          46      12                        3          40      12    \r\n             4          39      12                        5          33      1                         5          38      2     \r\n             6          31      12                        7         100      12                        8          29      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   165\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          97      12                        2          92      12                        3          98      12    \r\n             4          93      12                        5          91      12                        6          94      12    \r\n             7         103      12                        8         101      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   166\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          97      12                        2          95      12                        3          98      12    \r\n             4          96      12                        5          91      12                        6          99      12    \r\n             7         103      12                        8         102      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   167\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1         103      12                        2         101      12                        3          54      12    \r\n             4         104      12                        5          36      2                         5          55      1     \r\n             6          28      12                        7         100      12                        8          29      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   168\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1         103      12                        2         102      12                        3          54      12    \r\n             4         105      12                        5          36      2                         5          55      1     \r\n             6          35      12                        7          65      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   169\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          57      12                        2          60      12                        3          56      12    \r\n             4          59      12                        5          63      12                        6          58      12    \r\n             7          67      12                        8          68      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   170\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          57      12                        2          64      12                        3          56      12    \r\n             4          61      12                        5          63      12                        6          62      12    \r\n             7          67      12                        8          66      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   171\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          67      12                        2          68      12                        3          72      12    \r\n             4          69      12                        5          71      2                         5          34      1     \r\n             6          22      12                        7          74      12                        8          24      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   172\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          67      12                        2          66      12                        3          72      12    \r\n             4          70      12                        5          71      2                         5          34      1     \r\n             6          32      12                        7          65      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   173\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          81      12                        2          80      12                        3          76      12    \r\n             4          75      12                        5          26      2                         5          77      1     \r\n             6          25      12                        7          74      12                        8          24      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   174\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          81      12                        2          79      12                        3          76      12    \r\n             4          78      12                        5          26      2                         5          77      1     \r\n             6          27      12                        7          73      12                        8          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   175\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          84      12                        2          89      12                        3          88      12    \r\n             4          90      12                        5          82      12                        6          83      12    \r\n             7          81      12                        8          80      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   176\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          84      12                        2          86      12                        3          88      12    \r\n             4          87      12                        5          82      12                        6          85      12    \r\n             7          81      12                        8          79      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   177\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  WINDMIL                                    \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      1                         2           2      12                        3           4      2     \r\n             4           5      12                        5           7      1                         6           8      12    \r\n             7          10      2                         8          11      12                        9          13      1     \r\n            10          14      12                       11          16      2                        12          17      2     \r\n            13          18      12                       14          20      1                        15          21      12    \r\n            16          23      2                        17          24      1                        18          25      12    \r\n            19          27      2                        20          28      12                       21          30      1     \r\n            22          31      12                       23          33      12                       24          35      12    \r\n            25          37      12                       26          39      2                        27          40      12    \r\n            28          42      12                       29          44      12                       30          46      12    \r\n            31          48      12                       32          50      12                       33          52      1     \r\n            34          53      1                        35          54      12                       36          56      2     \r\n            37          57      12                       38          59      2                        39          60      12    \r\n            40          62      12                       41          64      12                       42          66      12    \r\n            43          68      12                       44          70      12                       45          72      12    \r\n            46          74      12                       47          76      12                       48          78      12    \r\n            49          80      12                       50          82      12                       51          84      12    \r\n            52          86      12                       53          88      12                       54          90      12    \r\n            55          92      1                        56          93      12                       57          95      12    \r\n            58          97      12                       59          99      12                       60         101      12    \r\n            61         103      12                       62         105      12                       63         107      12    \r\n            64         109      12                       65         111      12                       66         113      12    \r\n            67         115      12                       68         117      12                       69         119      12    \r\n            70         121      12                       71         123      2                        72         124      12    \r\n            73         126      12                       74         128      12                       75         130      12    \r\n            76         132      12                       77         134      1                        78         135      12    \r\n            79         137      12                       80         139      12                       81         141      12    \r\n            82         143      12                       83         145      12                       84         147      12    \r\n            85         149      12                       86         151      12                       87         153      12    \r\n            88         155      12                       89         157      12                       90         159      12    \r\n            91         161      12                       92         163      12                       93         165      12    \r\n            94         167      12                       95         169      12                       96         171      12    \r\n            97         173      12                       98         175      12                       99         177      12    \r\n           100         179      12                      101         181      12                      102         183      12    \r\n           103         185      12                      104         187      12                      105         189      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   178\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      WINDMIL                                            \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0      -0.500000E+01    0.100000E+02    0.000000E+00\r\n                                        2           0       0.000000E+00    0.100000E+02    0.000000E+00\r\n                                        3           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                        4           0      -0.750000E+01    0.750000E+01    0.000000E+00\r\n                                        5           0       0.500000E+01    0.100000E+02    0.000000E+00\r\n                                        6           1       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                        7           0      -0.100000E+02    0.500000E+01    0.000000E+00\r\n                                        8           0       0.750000E+01    0.750000E+01    0.000000E+00\r\n                                        9           0      -0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       10           0      -0.100000E+02    0.000000E+00    0.000000E+00\r\n                                       11           0       0.100000E+02    0.500000E+01    0.000000E+00\r\n                                       12           0      -0.100000E+02   -0.500000E+01    0.000000E+00\r\n                                       13           0       0.100000E+02    0.000000E+00    0.000000E+00\r\n                                       14           0       0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       15           0      -0.750000E+01   -0.750000E+01    0.000000E+00\r\n                                       16           0       0.100000E+02   -0.500000E+01    0.000000E+00\r\n                                       17           0      -0.500000E+01   -0.100000E+02    0.000000E+00\r\n                                       18           0       0.750000E+01   -0.750000E+01    0.000000E+00\r\n                                       19           0       0.000000E+00   -0.150000E+02    0.000000E+00\r\n                                       20           0       0.000000E+00   -0.100000E+02    0.000000E+00\r\n                                       21           0       0.500000E+01   -0.100000E+02    0.000000E+00\r\n                                       22           0       0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       23           0       0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       24           0       0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       25           0       0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       26           0       0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       27           0       0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       28           0      -0.150000E+02    0.500000E+01    0.000000E+00\r\n                                       29           0      -0.100000E+02    0.100000E+02    0.000000E+00\r\n                                       30           0      -0.100000E+02   -0.100000E+02    0.000000E+00\r\n                                       31           0      -0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       32           0      -0.500000E+01   -0.150000E+02    0.000000E+00\r\n                                       33           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                       34           0       0.000000E+00   -0.150000E+02    0.000000E+00\r\n                                       35           0      -0.150000E+02   -0.500000E+01    0.000000E+00\r\n                                       36           0      -0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       37           0       0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       38           0       0.000000E+00    0.150000E+02    0.000000E+00\r\n                                       39           0      -0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       40           0       0.000000E+00    0.200000E+02    0.000000E+00\r\n                                       41           3      -0.500000E+01    0.350000E+02    0.000000E+00\r\n                                       42           3      -0.500000E+01    0.500000E+02    0.000000E+00\r\n                                       43           3      -0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       44           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       45           0       0.000000E+00    0.275000E+02    0.000000E+00\r\n                                       46           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       47           0       0.500000E+01    0.150000E+02    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   179\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      WINDMIL                                            \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                       48           2       0.500000E+01    0.500000E+02    0.000000E+00\r\n                                       49           2       0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       50           2       0.500000E+01    0.350000E+02    0.000000E+00\r\n                                       51           2       0.000000E+00    0.350000E+02    0.000000E+00\r\n                                       52           2       0.000000E+00    0.425000E+02    0.000000E+00\r\n                                       53           2       0.000000E+00    0.500000E+02    0.000000E+00\r\n                                       54           0      -0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       55           0      -0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       56           6       0.000000E+00   -0.425000E+02    0.000000E+00\r\n                                       57           6       0.000000E+00   -0.500000E+02    0.000000E+00\r\n                                       58           6       0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       59           6       0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       60           6       0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       61           7      -0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       62           7      -0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       63           6       0.000000E+00   -0.350000E+02    0.000000E+00\r\n                                       64           7      -0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       65           0      -0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       66           0      -0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       67           0       0.000000E+00   -0.275000E+02    0.000000E+00\r\n                                       68           0       0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       69           0       0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       70           0      -0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       71           0       0.000000E+00   -0.150000E+02    0.000000E+00\r\n                                       72           0       0.000000E+00   -0.200000E+02    0.000000E+00\r\n                                       73           0       0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       74           0       0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       75           0       0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       76           0       0.200000E+02    0.000000E+00    0.000000E+00\r\n                                       77           0       0.150000E+02    0.000000E+00    0.000000E+00\r\n                                       78           0       0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       79           0       0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       80           0       0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       81           0       0.275000E+02    0.000000E+00    0.000000E+00\r\n                                       82           8       0.350000E+02    0.000000E+00    0.000000E+00\r\n                                       83           8       0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       84           8       0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       85           9       0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       86           9       0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       87           9       0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       88           8       0.425000E+02    0.000000E+00    0.000000E+00\r\n                                       89           8       0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       90           8       0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       91           4      -0.350000E+02    0.000000E+00    0.000000E+00\r\n                                       92           4      -0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       93           4      -0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       94           4      -0.350000E+02    0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   180\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      WINDMIL                                            \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                       95           5      -0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       96           5      -0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       97           4      -0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       98           4      -0.425000E+02    0.000000E+00    0.000000E+00\r\n                                       99           5      -0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                      100           0      -0.125000E+02    0.125000E+02    0.000000E+00\r\n                                      101           0      -0.275000E+02    0.500000E+01    0.000000E+00\r\n                                      102           0      -0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                      103           0      -0.275000E+02    0.000000E+00    0.000000E+00\r\n                                      104           0      -0.200000E+02    0.500000E+01    0.000000E+00\r\n                                      105           0      -0.200000E+02   -0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   181\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    CSTM ITEM FOR SUBSTRUCTURE  WINDMIL                                            \r\n              CSTM   TYPE        C O O R D I N A T E S   O F   O R I G I N                  T R A N S F O R M A T I O N             \r\n               ID                    X1              X2              X3                             M A T R I X                     \r\n\r\n                 1      2       0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 2      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 3      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 4      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 5      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 6      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 7      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 8      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 9      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   182\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  WINDMIL                                            \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              HUB            0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE1          0.000000E+00    0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE2          0.000000E+00    0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT1          0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT2          0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE1        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE2        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE1         0.000000E+00   -0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE2         0.000000E+00   -0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   183\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  WINDMIL                                            \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              BROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BROOT2         0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE1         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE2         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   184\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  WINDMIL                                            \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          HUB               2              1         3\r\n\r\n                          VANE1             2              1         2\r\n\r\n                          VANE2             2              1         2\r\n\r\n                          ROOT1             1              1\r\n\r\n                          ROOT2             1              1\r\n\r\n                          LVANE1            2              1         2\r\n\r\n                          LVANE2            2              1         2\r\n\r\n                          LROOT1            1              1\r\n\r\n                          LROOT2            1              1\r\n\r\n                          BVANE1            2              1         2\r\n\r\n                          BVANE2            2              1         2\r\n\r\n                          BROOT1            1              1\r\n\r\n                          BROOT2            1              1\r\n\r\n                          RROOT1            1              1\r\n\r\n                          RROOT2            1              1\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   185\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  WINDMIL                                            \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          RVANE1            2              1         2\r\n\r\n                          RVANE2            2              1         2\r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   186\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3                                          \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0                                          \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3                                          \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3                                          \r\n      28  WINDMIL    C     0    0    1    0    0    3  3  3  3  3  4  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   780288 WORDS.\r\n                      OR =      762 BLOCKS.\r\n                      OR =       82 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      164\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   187\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (SET     ) HAS BEEN DETECTED - IGNORED                               \r\n                              AN UNRECOGNIZABLE PLOT PARAMETER (ALL     ) HAS BEEN DETECTED - IGNORED                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   188\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.118278E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -3.253665E+00, Y0 = -0.339052E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   189\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                                         S U M M A R Y    O F    C U R R E N T    P R O B L E M\r\n\r\n                                           NAME OF PSEUDOSTRUCTURE TO BE REDUCED    - WINDMIL \r\n\r\n                                           NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE  - SMALLMIL\r\n\r\n                                           BOUNDARY SET IDENTIFICATION NUMBER       -     2000\r\n\r\n                                           NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN WINDMIL \r\n\r\n                                                HUB         VANE1       VANE2       ROOT1   \r\n                                                ROOT2       LVANE1      LVANE2      LROOT1  \r\n                                                LROOT2      BVANE1      BVANE2      BROOT1  \r\n                                                BROOT2      RROOT1      RROOT2      RVANE1  \r\n                                                RVANE2  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   190\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                                            SUMMARY OF COMBINED BOUNDARY SET NUMBER     2000\r\n\r\n                                                       BASIC           BOUNDARY\r\n                                                    SUBSTRUCTURE        SET ID\r\n                                                        NAME            NUMBER\r\n\r\n                                                      VANE1                 200\r\n                                                      VANE2                 200\r\n                                                      LVANE1                200\r\n                                                      LVANE2                200\r\n                                                      BVANE1                200\r\n                                                      BVANE2                200\r\n                                                      RVANE1                200\r\n                                                      RVANE2                200\r\n                                                      BROOT1                210\r\n                                                      ROOT2                 210\r\n                                                      LROOT1                210\r\n                                                      LROOT2                210\r\n                                                      RROOT1                210\r\n                                                      BROOT2                210\r\n                                                      RROOT2                210\r\n                                                      HUB                   220\r\n                                                      ROOT1                 230\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   191\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                              TABLE OF GRID POINTS COMPOSING BOUNDARY SETS\r\n\r\n                                                    BOUNDARY\r\n                                                     SET ID      GRID POINT       DOF \r\n                                                     NUMBER      ID  NUMBER       CODE\r\n\r\n                                                         200             1       12    \r\n                                                         200             2       12    \r\n                                                         200             4       12    \r\n                                                         200             6       12    \r\n                                                         200             8       12    \r\n                                                         210             2       12    \r\n                                                         210             4       12    \r\n                                                         210             7       12    \r\n                                                         220             1       1     \r\n                                                         220             7       1     \r\n                                                         220            31       1     \r\n                                                         220            25       1     \r\n                                                         220            13       2     \r\n                                                         220            19       2     \r\n                                                         220            37       2     \r\n                                                         220            43       2     \r\n                                                         220             4       12    \r\n                                                         220            10       12    \r\n                                                         220            16       12    \r\n                                                         220            22       12    \r\n                                                         220            28       12    \r\n                                                         220            34       12    \r\n                                                         220            40       12    \r\n                                                         220            46       12    \r\n                                                         220           108       12    \r\n                                                         230             2       12    \r\n                                                         230             4       12    \r\n                                                         230             6       12    \r\n                                                         230             7       12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   192\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  HUB                                        \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      1                         2          31      12                        4           2      12    \r\n             5           3      2                         5          33      1                         7           5      1     \r\n            10           8      12                       11          23      12                       13          11      2     \r\n            14          27      12                       16          13      12                       17          26      2     \r\n            17          14      1                        19          16      2                        20          25      12    \r\n            22          18      12                       23          24      12                       25          21      1     \r\n            26          22      12                       28          20      12                       29          34      1     \r\n            29          19      2                        31          17      1                        32          32      12    \r\n            34          15      12                       35          30      12                       37          12      2     \r\n            38          35      12                       40          10      12                       41          36      2     \r\n            41           9      1                        43           7      2                        44          28      12    \r\n            46           4      12                       47          29      12                      108           6      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   193\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          53      12                        2          48      12                        3          52      12    \r\n             4          49      12                        5          51      12                        6          50      12    \r\n             7          45      12                        8          44      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   194\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          53      12                        2          42      12                        3          52      12    \r\n             4          43      12                        5          51      12                        6          41      12    \r\n             7          45      12                        8          46      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   195\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          45      12                        2          44      12                        3          40      12    \r\n             4          37      12                        5          33      1                         5          38      2     \r\n             6          47      12                        7          73      12                        8          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   196\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          45      12                        2          46      12                        3          40      12    \r\n             4          39      12                        5          33      1                         5          38      2     \r\n             6          31      12                        7         100      12                        8          29      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   197\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          97      12                        2          92      12                        3          98      12    \r\n             4          93      12                        5          91      12                        6          94      12    \r\n             7         103      12                        8         101      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   198\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          97      12                        2          95      12                        3          98      12    \r\n             4          96      12                        5          91      12                        6          99      12    \r\n             7         103      12                        8         102      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   199\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1         103      12                        2         101      12                        3          54      12    \r\n             4         104      12                        5          36      2                         5          55      1     \r\n             6          28      12                        7         100      12                        8          29      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   200\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  LROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1         103      12                        2         102      12                        3          54      12    \r\n             4         105      12                        5          36      2                         5          55      1     \r\n             6          35      12                        7          65      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   201\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          57      12                        2          60      12                        3          56      12    \r\n             4          59      12                        5          63      12                        6          58      12    \r\n             7          67      12                        8          68      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   202\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          57      12                        2          64      12                        3          56      12    \r\n             4          61      12                        5          63      12                        6          62      12    \r\n             7          67      12                        8          66      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   203\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          67      12                        2          68      12                        3          72      12    \r\n             4          69      12                        5          71      2                         5          34      1     \r\n             6          22      12                        7          74      12                        8          24      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   204\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  BROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          67      12                        2          66      12                        3          72      12    \r\n             4          70      12                        5          71      2                         5          34      1     \r\n             6          32      12                        7          65      12                        8          30      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   205\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          81      12                        2          80      12                        3          76      12    \r\n             4          75      12                        5          26      2                         5          77      1     \r\n             6          25      12                        7          74      12                        8          24      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   206\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          81      12                        2          79      12                        3          76      12    \r\n             4          78      12                        5          26      2                         5          77      1     \r\n             6          27      12                        7          73      12                        8          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   207\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          84      12                        2          89      12                        3          88      12    \r\n             4          90      12                        5          82      12                        6          83      12    \r\n             7          81      12                        8          80      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   208\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE WINDMIL  COMPONENT  RVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          84      12                        2          86      12                        3          88      12    \r\n             4          87      12                        5          82      12                        6          85      12    \r\n             7          81      12                        8          79      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   209\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  HUB                                        \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      1                         4           2      12                        7           4      1     \r\n            10           7      12                       13           9      2                        16          11      12    \r\n            19          13      2                        22          15      12                       25          17      1     \r\n            28          16      12                       31          14      1                        34          12      12    \r\n            37          10      2                        40           8      12                       43           6      2     \r\n            46           3      12                      108           5      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   210\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  VANE1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          29      12                        2          26      12                        4          27      12    \r\n             6          28      12                        8          23      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   211\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  VANE2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          29      12                        2          21      12                        4          22      12    \r\n             6          20      12                        8          24      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   212\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  ROOT1                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          23      12                        4          18      12                        6          25      12    \r\n             7          42      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   213\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  ROOT2                                      \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          24      12                        4          19      12                        7          62      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   214\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  LVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          60      12                        2          55      12                        4          56      12    \r\n             6          57      12                        8          63      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   215\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  LVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          60      12                        2          58      12                        4          59      12    \r\n             6          61      12                        8          64      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   216\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  LROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          63      12                        4          65      12                        7          62      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   217\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  LROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          64      12                        4          66      12                        7          37      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   218\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  BVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          30      12                        2          33      12                        4          32      12    \r\n             6          31      12                        8          39      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   219\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  BVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          30      12                        2          36      12                        4          34      12    \r\n             6          35      12                        8          38      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   220\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  BROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          39      12                        4          40      12                        7          43      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   221\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  BROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          38      12                        4          41      12                        7          37      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   222\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  RROOT1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          47      12                        4          44      12                        7          43      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   223\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  RROOT2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2          46      12                        4          45      12                        7          42      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   224\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  RVANE1                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          49      12                        2          53      12                        4          54      12    \r\n             6          48      12                        8          47      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   225\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE SMALLMIL COMPONENT  RVANE2                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1          49      12                        2          51      12                        4          52      12    \r\n             6          50      12                        8          46      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   226\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  SMALLMIL                                   \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      1                         2           2      12                        3           4      12    \r\n             4           6      1                         5           7      12                        6           9      2     \r\n             7          10      12                        8          12      12                        9          14      2     \r\n            10          15      2                        11          16      12                       12          18      12    \r\n            13          20      2                        14          21      1                        15          22      12    \r\n            16          24      12                       17          26      1                        18          27      12    \r\n            19          29      12                       20          31      12                       21          33      12    \r\n            22          35      12                       23          37      12                       24          39      12    \r\n            25          41      12                       26          43      12                       27          45      12    \r\n            28          47      12                       29          49      12                       30          51      12    \r\n            31          53      12                       32          55      12                       33          57      12    \r\n            34          59      12                       35          61      12                       36          63      12    \r\n            37          65      12                       38          67      12                       39          69      12    \r\n            40          71      12                       41          73      12                       42          75      12    \r\n            43          77      12                       44          79      12                       45          81      12    \r\n            46          83      12                       47          85      12                       48          87      12    \r\n            49          89      12                       50          91      12                       51          93      12    \r\n            52          95      12                       53          97      12                       54          99      12    \r\n            55         101      12                       56         103      12                       57         105      12    \r\n            58         107      12                       59         109      12                       60         111      12    \r\n            61         113      12                       62         115      12                       63         117      12    \r\n            64         119      12                       65         121      12                       66         123      12    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   227\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      SMALLMIL                                           \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0      -0.500000E+01    0.100000E+02    0.000000E+00\r\n                                        2           0       0.000000E+00    0.100000E+02    0.000000E+00\r\n                                        3           0      -0.750000E+01    0.750000E+01    0.000000E+00\r\n                                        4           0       0.500000E+01    0.100000E+02    0.000000E+00\r\n                                        5           1       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                        6           0      -0.100000E+02    0.500000E+01    0.000000E+00\r\n                                        7           0       0.750000E+01    0.750000E+01    0.000000E+00\r\n                                        8           0      -0.100000E+02    0.000000E+00    0.000000E+00\r\n                                        9           0       0.100000E+02    0.500000E+01    0.000000E+00\r\n                                       10           0      -0.100000E+02   -0.500000E+01    0.000000E+00\r\n                                       11           0       0.100000E+02    0.000000E+00    0.000000E+00\r\n                                       12           0      -0.750000E+01   -0.750000E+01    0.000000E+00\r\n                                       13           0       0.100000E+02   -0.500000E+01    0.000000E+00\r\n                                       14           0      -0.500000E+01   -0.100000E+02    0.000000E+00\r\n                                       15           0       0.750000E+01   -0.750000E+01    0.000000E+00\r\n                                       16           0       0.000000E+00   -0.100000E+02    0.000000E+00\r\n                                       17           0       0.500000E+01   -0.100000E+02    0.000000E+00\r\n                                       18           0       0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       19           0      -0.500000E+01    0.200000E+02    0.000000E+00\r\n                                       20           3      -0.500000E+01    0.350000E+02    0.000000E+00\r\n                                       21           3      -0.500000E+01    0.500000E+02    0.000000E+00\r\n                                       22           3      -0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       23           0       0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       24           0      -0.500000E+01    0.275000E+02    0.000000E+00\r\n                                       25           0       0.500000E+01    0.150000E+02    0.000000E+00\r\n                                       26           2       0.500000E+01    0.500000E+02    0.000000E+00\r\n                                       27           2       0.500000E+01    0.425000E+02    0.000000E+00\r\n                                       28           2       0.500000E+01    0.350000E+02    0.000000E+00\r\n                                       29           2       0.000000E+00    0.500000E+02    0.000000E+00\r\n                                       30           6       0.000000E+00   -0.500000E+02    0.000000E+00\r\n                                       31           6       0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       32           6       0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       33           6       0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       34           7      -0.500000E+01   -0.425000E+02    0.000000E+00\r\n                                       35           7      -0.500000E+01   -0.350000E+02    0.000000E+00\r\n                                       36           7      -0.500000E+01   -0.500000E+02    0.000000E+00\r\n                                       37           0      -0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       38           0      -0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       39           0       0.500000E+01   -0.275000E+02    0.000000E+00\r\n                                       40           0       0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       41           0      -0.500000E+01   -0.200000E+02    0.000000E+00\r\n                                       42           0       0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       43           0       0.125000E+02   -0.125000E+02    0.000000E+00\r\n                                       44           0       0.200000E+02   -0.500000E+01    0.000000E+00\r\n                                       45           0       0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       46           0       0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       47           0       0.275000E+02   -0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   228\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      SMALLMIL                                           \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                       48           8       0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       49           8       0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       50           9       0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       51           9       0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       52           9       0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       53           8       0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       54           8       0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       55           4      -0.500000E+02    0.500000E+01    0.000000E+00\r\n                                       56           4      -0.425000E+02    0.500000E+01    0.000000E+00\r\n                                       57           4      -0.350000E+02    0.500000E+01    0.000000E+00\r\n                                       58           5      -0.500000E+02   -0.500000E+01    0.000000E+00\r\n                                       59           5      -0.425000E+02   -0.500000E+01    0.000000E+00\r\n                                       60           4      -0.500000E+02    0.000000E+00    0.000000E+00\r\n                                       61           5      -0.350000E+02   -0.500000E+01    0.000000E+00\r\n                                       62           0      -0.125000E+02    0.125000E+02    0.000000E+00\r\n                                       63           0      -0.275000E+02    0.500000E+01    0.000000E+00\r\n                                       64           0      -0.275000E+02   -0.500000E+01    0.000000E+00\r\n                                       65           0      -0.200000E+02    0.500000E+01    0.000000E+00\r\n                                       66           0      -0.200000E+02   -0.500000E+01    0.000000E+00\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   229\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    CSTM ITEM FOR SUBSTRUCTURE  SMALLMIL                                           \r\n              CSTM   TYPE        C O O R D I N A T E S   O F   O R I G I N                  T R A N S F O R M A T I O N             \r\n               ID                    X1              X2              X3                             M A T R I X                     \r\n\r\n                 1      2       0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 2      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 3      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 4      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 5      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                   -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 6      1       0.500000E+01    0.225000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 7      1       0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 8      1       0.500000E+01    0.225000E+02    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n                 9      1       0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                    0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                    0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   230\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  SMALLMIL                                           \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              HUB            0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE1          0.000000E+00    0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              VANE2          0.000000E+00    0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT1          0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              ROOT2          0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE1        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LVANE2        -0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              LROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE1         0.000000E+00   -0.275000E+02    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BVANE2         0.000000E+00   -0.275000E+02    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   231\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    PLTS ITEM FOR SUBSTRUCTURE  SMALLMIL                                           \r\n             COMPONENT        C O O R D I N A T E S   O F   OR I G I N                  T R A N S F O R M A T I O N                 \r\n               NAME               X1              X2              X3                            M A T R I X                         \r\n\r\n              BROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              BROOT2         0.000000E+00    0.000000E+00    0.000000E+00       -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00   -0.100000E+01    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT1         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RROOT2         0.000000E+00    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE1         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                -0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n\r\n              RVANE2         0.275000E+02    0.000000E+00    0.000000E+00        0.000000E+00    0.100000E+01    0.000000E+00\r\n                                                                                 0.100000E+01    0.000000E+00    0.000000E+00\r\n                                                                                 0.000000E+00    0.000000E+00    0.100000E+01\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   232\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  SMALLMIL                                           \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          HUB               2              1         3\r\n\r\n                          VANE1             2              1         2\r\n\r\n                          VANE2             2              1         2\r\n\r\n                          ROOT1             1              1\r\n\r\n                          ROOT2             1              1\r\n\r\n                          LVANE1            2              1         2\r\n\r\n                          LVANE2            2              1         2\r\n\r\n                          LROOT1            1              1\r\n\r\n                          LROOT2            1              1\r\n\r\n                          BVANE1            2              1         2\r\n\r\n                          BVANE2            2              1         2\r\n\r\n                          BROOT1            1              1\r\n\r\n                          BROOT2            1              1\r\n\r\n                          RROOT1            1              1\r\n\r\n                          RROOT2            1              1\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   233\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  SMALLMIL                                           \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          RVANE1            2              1         2\r\n\r\n                          RVANE2            2              1         2\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN 538976288\r\n0*** SYSTEM WARNING MESSAGE 2163, REQUESTED VALUE OF TYPE         1     USED BY PARTN1  . LOGICAL CHOICE IS         2\r\n0*** SYSTEM WARNING MESSAGE 2430, REQUESTED SINGLE PRECISION    USED BY MPYAD   . DOUBLE PRECISION IS LOGICAL CHOICE\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   234\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3                                          \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0                                          \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3                                          \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3                                          \r\n      28  WINDMIL    C     0    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4                    3                     \r\n      29  SMALLMIL   R     0    0   28    0    0    3  3  3  3  3  4  4  4                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   676864 WORDS.\r\n                      OR =      661 BLOCKS.\r\n                      OR =       71 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      265\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   235\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n\r\n      COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -8.9376938E-17\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -3.7897085E-18\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =  -2.0854889E-17\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE WINDMIL \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   236\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       HUB         SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.885472E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.815310E-09   1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.260284E-14   4.903196E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            6.704929E-08   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.257896E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      6.885431E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      3.999435E-09   3.999455E-09   0.0            0.0            0.0            0.0                           \r\n            11      G      6.384132E-09   6.384167E-09   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            6.885465E-09   0.0            0.0            0.0            0.0                           \r\n            14      G      1.102501E-07  -6.815319E-09   0.0            0.0            0.0            0.0                           \r\n            16      G      4.903196E-08   1.131666E-14   0.0            0.0            0.0            0.0                           \r\n            17      G      0.0            1.798945E-14   0.0            0.0            0.0            0.0                           \r\n            17      G      6.704929E-08   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -6.885445E-09   0.0            0.0            0.0            0.0                           \r\n            20      G      1.102501E-07   6.815356E-09   0.0            0.0            0.0            0.0                           \r\n            22      G      3.999454E-09  -3.999445E-09   0.0            0.0            0.0            0.0                           \r\n            23      G      6.384163E-09  -6.384147E-09   0.0            0.0            0.0            0.0                           \r\n            25      G      6.885462E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G     -6.815327E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n            28      G      8.188964E-15  -4.903196E-08   0.0            0.0            0.0            0.0                           \r\n            29      G      1.180331E-14   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -6.704929E-08   0.0            0.0            0.0            0.0                           \r\n            31      G     -6.885447E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      6.815351E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.999445E-09  -3.999454E-09   0.0            0.0            0.0            0.0                           \r\n            35      G     -6.384148E-09  -6.384164E-09   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -6.885463E-09   0.0            0.0            0.0            0.0                           \r\n            38      G     -1.102501E-07   6.815324E-09   0.0            0.0            0.0            0.0                           \r\n            40      G     -4.903196E-08  -9.811720E-15   0.0            0.0            0.0            0.0                           \r\n            41      G      0.0           -1.471499E-14   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.704929E-08   0.0            0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            6.885445E-09   0.0            0.0            0.0            0.0                           \r\n            44      G     -1.102501E-07  -6.815354E-09   0.0            0.0            0.0            0.0                           \r\n            46      G     -3.999458E-09   3.999444E-09   0.0            0.0            0.0            0.0                           \r\n            47      G     -6.384170E-09   6.384145E-09   0.0            0.0            0.0            0.0                           \r\n           108      G      1.024372E-07   4.132977E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   237\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       VANE1       SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.147531E-13  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      4.723347E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      1.520040E-13  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      9.446746E-09  -6.507344E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      9.878015E-14  -5.599795E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.713458E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.209428E-14   4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.011192E-08   4.091746E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   238\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       VANE2       SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.147531E-13  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.722918E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      1.520040E-13  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.446441E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      9.878015E-14  -5.599795E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.713438E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.209428E-14   4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      2.011179E-08   4.091746E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   239\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       ROOT1       SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.209428E-14   4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.011192E-08   4.091746E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.213302E-14   2.735738E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.218664E-08   2.032037E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.257896E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            2.297672E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -6.815377E-09   1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      1.442007E-09   1.442054E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      6.384132E-09   6.384167E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   240\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       ROOT2       SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.209428E-14   4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      2.011179E-08   4.091746E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.213302E-14   2.735738E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      1.218656E-08   2.032037E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.257896E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            2.297672E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      6.815310E-09   1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.442056E-09   1.442022E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.384170E-09   6.384145E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   241\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LVANE1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      7.119271E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      4.723204E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      5.633288E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      9.446649E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      4.108375E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.713452E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.225010E-07  -2.822054E-14   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.091746E-07  -2.011188E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   242\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LVANE2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      7.119271E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.723061E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      5.633288E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.446536E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      4.108375E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.713444E-08  -5.559372E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.225010E-07  -2.822054E-14   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.091746E-07   2.011182E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   243\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LROOT1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.225010E-07  -2.822054E-14   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.091746E-07  -2.011188E-08   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.735738E-07  -2.008560E-14   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.032037E-07  -1.218662E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.471499E-14   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.297672E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -1.102501E-07  -6.815354E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.442056E-09   1.442022E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.384170E-09   6.384145E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   244\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LROOT2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.225010E-07  -2.822054E-14   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.091746E-07   2.011182E-08   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.735738E-07  -2.008560E-14   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.032037E-07   1.218658E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.471499E-14   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.297672E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -1.102501E-07   6.815324E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.442027E-09  -1.442048E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.384148E-09  -6.384164E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   245\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BVANE1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.997251E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      4.723112E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.872208E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      9.446574E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.729431E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.713446E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      1.627024E-14  -4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.011183E-08  -4.091746E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   246\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BVANE2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.997251E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.723152E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.872208E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.446611E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.729431E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.713450E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      1.627024E-14  -4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      2.011187E-08  -4.091746E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   247\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BROOT1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.627024E-14  -4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.011183E-08  -4.091746E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      1.515582E-14  -2.735738E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.218658E-08  -2.032037E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -2.297672E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      1.180331E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -6.815327E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      1.442048E-09  -1.442025E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      6.384163E-09  -6.384147E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   248\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BROOT2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.627024E-14  -4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      2.011187E-08  -4.091746E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      1.515582E-14  -2.735738E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      1.218661E-08  -2.032037E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -2.297672E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      1.180331E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      6.815351E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.442027E-09  -1.442048E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.384148E-09  -6.384164E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   249\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RROOT1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.225010E-07   3.515526E-14   0.0            0.0            0.0            0.0                           \r\n             2      G      4.091746E-07   2.011189E-08   0.0            0.0            0.0            0.0                           \r\n             3      G      2.735738E-07   2.564078E-14   0.0            0.0            0.0            0.0                           \r\n             4      G      2.032037E-07   1.218662E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.798945E-14   0.0            0.0            0.0            0.0                           \r\n             5      G      2.297672E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      1.102501E-07   6.815356E-09   0.0            0.0            0.0            0.0                           \r\n             7      G      1.442048E-09  -1.442025E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      6.384163E-09  -6.384147E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   250\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RROOT2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.225010E-07   3.515526E-14   0.0            0.0            0.0            0.0                           \r\n             2      G      4.091746E-07  -2.011182E-08   0.0            0.0            0.0            0.0                           \r\n             3      G      2.735738E-07   2.564078E-14   0.0            0.0            0.0            0.0                           \r\n             4      G      2.032037E-07  -1.218657E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.798945E-14   0.0            0.0            0.0            0.0                           \r\n             5      G      2.297672E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      1.102501E-07  -6.815319E-09   0.0            0.0            0.0            0.0                           \r\n             7      G      1.442007E-09   1.442054E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      6.384132E-09   6.384167E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   251\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RVANE1      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.268573E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      4.723215E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      6.438692E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      9.446658E-09  -6.507344E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      4.847075E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.713453E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      4.225010E-07   3.515526E-14   0.0            0.0            0.0            0.0                           \r\n             8      G      4.091746E-07   2.011189E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   252\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RVANE2      SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.268573E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.723050E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      6.438692E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.446528E-09  -6.507343E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      4.847075E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.713443E-08  -5.559372E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      4.225010E-07   3.515526E-14   0.0            0.0            0.0            0.0                           \r\n             8      G      4.091746E-07  -2.011182E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   253\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       HUB         SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.172360E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      9.928668E-06   7.763517E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.811291E-06  -3.324972E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -6.439687E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      8.371261E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      5.991280E-06  -2.600528E-06   0.0            0.0            0.0            0.0                           \r\n            11      G      1.164498E-05  -7.079488E-06   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.686615E-06   0.0            0.0            0.0            0.0                           \r\n            14      G      4.018371E-05   5.140406E-07   0.0            0.0            0.0            0.0                           \r\n            16      G      1.393543E-05   7.811291E-06   0.0            0.0            0.0            0.0                           \r\n            17      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n            17      G      2.207221E-05   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            1.185701E-05   0.0            0.0            0.0            0.0                           \r\n            20      G      4.312564E-05   2.097850E-05   0.0            0.0            0.0            0.0                           \r\n            22      G      1.186977E-05   1.186977E-05   0.0            0.0            0.0            0.0                           \r\n            23      G      2.433343E-05   2.433343E-05   0.0            0.0            0.0            0.0                           \r\n            25      G      1.185701E-05   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      2.097850E-05   4.312564E-05   0.0            0.0            0.0            0.0                           \r\n            28      G      7.811291E-06   1.393543E-05   0.0            0.0            0.0            0.0                           \r\n            29      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      0.0            2.207221E-05   0.0            0.0            0.0            0.0                           \r\n            31      G      2.686615E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      5.140405E-07   4.018371E-05   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.600528E-06   5.991280E-06   0.0            0.0            0.0            0.0                           \r\n            35      G     -7.079488E-06   1.164498E-05   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0            8.371262E-06   0.0            0.0            0.0            0.0                           \r\n            38      G     -2.165587E-06   1.156387E-05   0.0            0.0            0.0            0.0                           \r\n            40      G     -3.324968E-07   7.811291E-06   0.0            0.0            0.0            0.0                           \r\n            41      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.439684E-07   0.0            0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            6.172360E-06   0.0            0.0            0.0            0.0                           \r\n            44      G      7.763518E-07   9.928668E-06   0.0            0.0            0.0            0.0                           \r\n            46      G      3.277963E-06   3.277963E-06   0.0            0.0            0.0            0.0                           \r\n            47      G      5.608956E-06   5.608956E-06   0.0            0.0            0.0            0.0                           \r\n           108      G      1.602361E-06  -1.165527E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   254\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       VANE1       SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05   8.608121E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.191546E-05   2.350861E-06   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05   8.609264E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.968017E-05   2.350909E-06   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05   8.624753E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.744261E-05   2.350640E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      1.520824E-05  -8.771087E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      1.519253E-05  -2.344542E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   255\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       VANE2       SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05   8.608121E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.191557E-05  -6.290987E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05   8.609264E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.968093E-05  -6.290471E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05   8.624753E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.744888E-05  -6.292407E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      1.520824E-05  -8.771087E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      1.523633E-05   6.336330E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   256\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       ROOT1       SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.520824E-05  -8.771087E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      1.519253E-05  -2.344542E-06   0.0            0.0            0.0            0.0                           \r\n             3      G      1.292194E-05  -9.883806E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      1.293116E-05  -2.271383E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -9.752778E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.156387E-05  -2.165588E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      9.515968E-06  -6.087409E-06   0.0            0.0            0.0            0.0                           \r\n             8      G      1.164498E-05  -7.079488E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   257\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       ROOT2       SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.520824E-05  -8.771087E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      1.523633E-05   6.336330E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      1.292194E-05  -9.883806E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      1.319384E-05   6.680856E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -9.752778E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      9.928668E-06   7.763517E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      7.634854E-06   7.634854E-06   0.0            0.0            0.0            0.0                           \r\n             8      G      5.608956E-06   5.608956E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   258\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       LVANE1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05  -8.608116E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.191557E-05   6.290987E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05  -8.609259E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.968093E-05   6.290472E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05  -8.624748E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.744888E-05   6.292407E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -8.771082E-07   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      6.336330E-07   1.523633E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   259\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       LVANE2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05  -8.608116E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.191545E-05  -2.350860E-06   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05  -8.609259E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.968017E-05  -2.350908E-06   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05  -8.624748E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.744261E-05  -2.350639E-06   0.0            0.0            0.0            0.0                           \r\n             7      G     -8.771082E-07   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.344541E-06   1.519253E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   260\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       LROOT1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.771082E-07   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             2      G      6.336330E-07   1.523633E-05   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.883801E-07   1.292193E-05   0.0            0.0            0.0            0.0                           \r\n             4      G      6.680856E-07   1.319384E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n             5      G     -9.752772E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      7.763518E-07   9.928668E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      7.634854E-06   7.634854E-06   0.0            0.0            0.0            0.0                           \r\n             8      G      5.608956E-06   5.608956E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   261\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       LROOT2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.771082E-07   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.344541E-06   1.519253E-05   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.883801E-07   1.292193E-05   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.271382E-06   1.293116E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n             5      G     -9.752772E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -2.165587E-06   1.156387E-05   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.087409E-06   9.515968E-06   0.0            0.0            0.0            0.0                           \r\n             8      G     -7.079488E-06   1.164498E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   262\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BVANE1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05   3.859980E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.438945E-05   3.874633E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05   3.110513E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.210570E-05   3.124478E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05   2.364426E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.953589E-05   2.372383E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.520824E-05   1.638057E-04   0.0            0.0            0.0            0.0                           \r\n             8      G      2.593191E-05   1.606965E-04   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   263\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BVANE2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.191551E-05   3.859980E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -9.441568E-06   3.844834E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.968054E-05   3.110513E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.255400E-06   3.094678E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.744547E-05   2.364426E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.355591E-06   2.342584E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.520824E-05   1.638057E-04   0.0            0.0            0.0            0.0                           \r\n             8      G      4.496952E-06   1.577183E-04   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   264\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BROOT1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.520824E-05   1.638057E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      2.593191E-05   1.606965E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.292193E-05   1.006230E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      2.153777E-05   7.603752E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            8.307965E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      2.097850E-05   4.312564E-05   0.0            0.0            0.0            0.0                           \r\n             7      G      2.323823E-05   2.323823E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      2.433343E-05   2.433343E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   265\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BROOT2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.520824E-05   1.638057E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      4.496952E-06   1.577183E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.292193E-05   1.006230E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      4.587235E-06   7.309805E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            8.307965E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      5.140405E-07   4.018371E-05   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.087409E-06   9.515968E-06   0.0            0.0            0.0            0.0                           \r\n             8      G     -7.079488E-06   1.164498E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   266\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RROOT1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.638057E-04   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             2      G      1.606965E-04   2.593191E-05   0.0            0.0            0.0            0.0                           \r\n             3      G      1.006230E-04   1.292193E-05   0.0            0.0            0.0            0.0                           \r\n             4      G      7.603752E-05   2.153777E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      8.307965E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      4.312564E-05   2.097850E-05   0.0            0.0            0.0            0.0                           \r\n             7      G      2.323823E-05   2.323823E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      2.433343E-05   2.433343E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   267\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RROOT2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.638057E-04   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             2      G      1.577183E-04   4.496952E-06   0.0            0.0            0.0            0.0                           \r\n             3      G      1.006230E-04   1.292193E-05   0.0            0.0            0.0            0.0                           \r\n             4      G      7.309805E-05   4.587235E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.047571E-05   0.0            0.0            0.0            0.0                           \r\n             5      G      8.307965E-05   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      4.018371E-05   5.140406E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      9.515968E-06  -6.087409E-06   0.0            0.0            0.0            0.0                           \r\n             8      G      1.164498E-05  -7.079488E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   268\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RVANE1      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.191551E-05  -3.859980E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      3.438945E-05  -3.874633E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.968054E-05  -3.110513E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      3.210570E-05  -3.124478E-04   0.0            0.0            0.0            0.0                           \r\n             5      G      1.744547E-05  -2.364426E-04   0.0            0.0            0.0            0.0                           \r\n             6      G      2.953589E-05  -2.372383E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.638057E-04   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      1.606965E-04   2.593191E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   269\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RVANE2      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.191551E-05  -3.859980E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      9.441567E-06  -3.844834E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.968054E-05  -3.110513E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      7.255399E-06  -3.094678E-04   0.0            0.0            0.0            0.0                           \r\n             5      G      1.744547E-05  -2.364426E-04   0.0            0.0            0.0            0.0                           \r\n             6      G      5.355591E-06  -2.342584E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.638057E-04   1.520824E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      1.577183E-04   4.496952E-06   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   270\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       HUB         SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.030348E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.187168E-08  -1.398604E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      5.649104E-14  -1.586544E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.218223E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      7.715708E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G      1.030349E-07   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      7.883455E-08   3.399462E-09   0.0            0.0            0.0            0.0                           \r\n            11      G      4.464573E-08  -2.663294E-09   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            5.574307E-10   0.0            0.0            0.0            0.0                           \r\n            14      G      9.545968E-09  -1.067458E-08   0.0            0.0            0.0            0.0                           \r\n            16      G      3.383299E-10  -2.378025E-09   0.0            0.0            0.0            0.0                           \r\n            17      G      0.0           -8.726363E-09   0.0            0.0            0.0            0.0                           \r\n            17      G      9.869841E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -3.605775E-09   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.253810E-10  -8.167829E-09   0.0            0.0            0.0            0.0                           \r\n            22      G     -9.613698E-10  -1.313596E-09   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.936940E-09  -2.810916E-09   0.0            0.0            0.0            0.0                           \r\n            25      G     -7.297873E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G     -9.521191E-10  -8.604193E-10   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.644306E-14  -1.626000E-10   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.420368E-14   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -4.754937E-10   0.0            0.0            0.0            0.0                           \r\n            31      G      7.297578E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      9.520696E-10  -8.604117E-10   0.0            0.0            0.0            0.0                           \r\n            34      G      9.613531E-10  -1.313576E-09   0.0            0.0            0.0            0.0                           \r\n            35      G      1.936910E-09  -2.810881E-09   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -3.605737E-09   0.0            0.0            0.0            0.0                           \r\n            38      G      2.253748E-10  -8.167763E-09   0.0            0.0            0.0            0.0                           \r\n            40      G     -3.383293E-10  -2.377982E-09   0.0            0.0            0.0            0.0                           \r\n            41      G      0.0           -8.726295E-09   0.0            0.0            0.0            0.0                           \r\n            41      G     -9.869821E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            5.574692E-10   0.0            0.0            0.0            0.0                           \r\n            44      G     -9.545950E-09  -1.067451E-08   0.0            0.0            0.0            0.0                           \r\n            46      G     -7.883449E-08   3.399481E-09   0.0            0.0            0.0            0.0                           \r\n            47      G     -4.464564E-08  -2.663251E-09   0.0            0.0            0.0            0.0                           \r\n           108      G     -1.522487E-07   1.446874E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   271\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       VANE1       SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.836983E-14   1.348591E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.153989E-11   1.350002E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.627897E-14   1.346897E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.236044E-10   1.350927E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -9.418701E-14   1.338180E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.289829E-10   1.358698E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      9.207020E-14  -1.312908E-07   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.731483E-09  -1.397481E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   272\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       VANE2       SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.836983E-14   1.348591E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      8.134315E-11   1.350002E-07   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.627897E-14   1.346897E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      1.234119E-10   1.350927E-07   0.0            0.0            0.0            0.0                           \r\n             5      G     -9.418701E-14   1.338180E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.287945E-10   1.358698E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      9.207020E-14  -1.312908E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      3.731667E-09  -1.397480E-07   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   273\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       ROOT1       SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.207020E-14  -1.312908E-07   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.731483E-09  -1.397481E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      8.938956E-14  -1.384233E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.092468E-08  -1.531117E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      7.715708E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.475767E-07   0.0            0.0            0.0            0.0                           \r\n             6      G     -6.187154E-08  -1.398604E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      2.277065E-08   8.388493E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      4.464573E-08  -2.663294E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   274\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       ROOT2       SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.207020E-14  -1.312908E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      3.731667E-09  -1.397480E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      8.938956E-14  -1.384233E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      5.092486E-08  -1.531117E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      7.715708E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.475767E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      6.187168E-08  -1.398604E-07   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.277054E-08   8.388557E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.464564E-08  -2.663251E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   275\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       LVANE1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.265985E-08  -4.426523E-09   0.0            0.0            0.0            0.0                           \r\n             2      G      4.265768E-08  -8.993104E-09   0.0            0.0            0.0            0.0                           \r\n             3      G      3.580430E-08  -4.431025E-09   0.0            0.0            0.0            0.0                           \r\n             4      G      3.580108E-08  -8.990622E-09   0.0            0.0            0.0            0.0                           \r\n             5      G      2.894859E-08  -4.454032E-09   0.0            0.0            0.0            0.0                           \r\n             6      G      2.894613E-08  -8.969854E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.518991E-09  -2.208935E-08   0.0            0.0            0.0            0.0                           \r\n             8      G     -8.865822E-09  -2.220287E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   276\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       LVANE2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.265985E-08  -4.426523E-09   0.0            0.0            0.0            0.0                           \r\n             2      G      4.266201E-08   1.476191E-10   0.0            0.0            0.0            0.0                           \r\n             3      G      3.580430E-08  -4.431025E-09   0.0            0.0            0.0            0.0                           \r\n             4      G      3.580755E-08   1.500946E-10   0.0            0.0            0.0            0.0                           \r\n             5      G      2.894859E-08  -4.454032E-09   0.0            0.0            0.0            0.0                           \r\n             6      G      2.895194E-08   1.707398E-10   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.518991E-09  -2.208935E-08   0.0            0.0            0.0            0.0                           \r\n             8      G      2.719824E-10  -2.199610E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   277\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       LROOT1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.518991E-09  -2.208935E-08   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.865822E-09  -2.220287E-08   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.309472E-09  -1.514982E-08   0.0            0.0            0.0            0.0                           \r\n             4      G     -8.486619E-09  -1.676190E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -8.726295E-09   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.148007E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -9.545950E-09  -1.067451E-08   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.277054E-08   8.388557E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.464564E-08  -2.663251E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   278\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       LROOT2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.518991E-09  -2.208935E-08   0.0            0.0            0.0            0.0                           \r\n             2      G      2.719824E-10  -2.199610E-08   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.309472E-09  -1.514982E-08   0.0            0.0            0.0            0.0                           \r\n             4      G      5.878570E-10  -1.399770E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -8.726295E-09   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.148007E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      2.253748E-10  -8.167763E-09   0.0            0.0            0.0            0.0                           \r\n             7      G      2.812853E-09  -4.251674E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      1.936910E-09  -2.810881E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   279\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       BVANE1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.850196E-14  -1.100441E-09   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.518395E-13  -1.098899E-09   0.0            0.0            0.0            0.0                           \r\n             3      G      5.211953E-14  -1.102333E-09   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.382410E-12  -1.097886E-09   0.0            0.0            0.0            0.0                           \r\n             5      G      4.573666E-14  -1.112249E-09   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.958013E-12  -1.089260E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.934350E-14  -1.142872E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.720392E-11  -1.045451E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   280\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       BVANE2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.850196E-14  -1.100441E-09   0.0            0.0            0.0            0.0                           \r\n             2      G      9.688435E-13  -1.098890E-09   0.0            0.0            0.0            0.0                           \r\n             3      G      5.211953E-14  -1.102333E-09   0.0            0.0            0.0            0.0                           \r\n             4      G      1.486649E-12  -1.097878E-09   0.0            0.0            0.0            0.0                           \r\n             5      G      4.573666E-14  -1.112249E-09   0.0            0.0            0.0            0.0                           \r\n             6      G      2.049489E-12  -1.089251E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.934350E-14  -1.142872E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      3.712518E-11  -1.045443E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   281\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       BROOT1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.934350E-14  -1.142872E-09   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.720392E-11  -1.045451E-09   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.271717E-14  -1.084683E-09   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.382276E-10  -8.878813E-10   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -9.444789E-10   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.420368E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -9.521191E-10  -8.604193E-10   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.812895E-09  -4.251722E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.936940E-09  -2.810916E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   282\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       BROOT2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.934350E-14  -1.142872E-09   0.0            0.0            0.0            0.0                           \r\n             2      G      3.712518E-11  -1.045443E-09   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.271717E-14  -1.084683E-09   0.0            0.0            0.0            0.0                           \r\n             4      G      5.381608E-10  -8.878730E-10   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -9.444789E-10   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.420368E-14   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      9.520696E-10  -8.604117E-10   0.0            0.0            0.0            0.0                           \r\n             7      G      2.812853E-09  -4.251674E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      1.936910E-09  -2.810881E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   283\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       RROOT1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.518998E-09  -2.208946E-08   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.719895E-10  -2.199622E-08   0.0            0.0            0.0            0.0                           \r\n             3      G      4.309479E-09  -1.514992E-08   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.878648E-10  -1.399779E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -8.726363E-09   0.0            0.0            0.0            0.0                           \r\n             5      G      4.148013E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -2.253810E-10  -8.167829E-09   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.812895E-09  -4.251722E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.936940E-09  -2.810916E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   284\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       RROOT2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.518998E-09  -2.208946E-08   0.0            0.0            0.0            0.0                           \r\n             2      G      8.865842E-09  -2.220298E-08   0.0            0.0            0.0            0.0                           \r\n             3      G      4.309479E-09  -1.514992E-08   0.0            0.0            0.0            0.0                           \r\n             4      G      8.486640E-09  -1.676200E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -8.726363E-09   0.0            0.0            0.0            0.0                           \r\n             5      G      4.148013E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      9.545968E-09  -1.067458E-08   0.0            0.0            0.0            0.0                           \r\n             7      G      2.277065E-08   8.388493E-09   0.0            0.0            0.0            0.0                           \r\n             8      G      4.464573E-08  -2.663294E-09   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   285\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       RVANE1      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.266003E-08  -4.426530E-09   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.266219E-08   1.476260E-10   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.580445E-08  -4.431032E-09   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.580771E-08   1.501015E-10   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.894873E-08  -4.454039E-09   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.895208E-08   1.707467E-10   0.0            0.0            0.0            0.0                           \r\n             7      G      4.518998E-09  -2.208946E-08   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.719895E-10  -2.199622E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   286\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       RVANE2      SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.266003E-08  -4.426530E-09   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.265786E-08  -8.993125E-09   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.580445E-08  -4.431032E-09   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.580124E-08  -8.990644E-09   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.894873E-08  -4.454039E-09   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.894627E-08  -8.969876E-09   0.0            0.0            0.0            0.0                           \r\n             7      G      4.518998E-09  -2.208946E-08   0.0            0.0            0.0            0.0                           \r\n             8      G      8.865842E-09  -2.220298E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   287\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       HUB         SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.302132E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -3.125116E-03   9.375350E-03   0.0            0.0            0.0            0.0                           \r\n             4      G      0.0            3.125116E-03   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            4.687674E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      1.302132E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      1.562558E-03   1.562558E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            1.302132E-03   0.0            0.0            0.0            0.0                           \r\n            14      G      9.375350E-03   3.125116E-03   0.0            0.0            0.0            0.0                           \r\n            16      G      3.125116E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -1.302132E-03   0.0            0.0            0.0            0.0                           \r\n            20      G      9.375350E-03  -3.125116E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.562558E-03  -1.562558E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n            25      G      1.302132E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      3.125116E-03  -9.375350E-03   0.0            0.0            0.0            0.0                           \r\n            28      G      0.0           -3.125116E-03   0.0            0.0            0.0            0.0                           \r\n            29      G      0.0           -4.687674E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.302132E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G     -3.125116E-03  -9.375350E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.562558E-03  -1.562558E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -1.302132E-03   0.0            0.0            0.0            0.0                           \r\n            38      G     -9.375350E-03  -3.125116E-03   0.0            0.0            0.0            0.0                           \r\n            40      G     -3.125116E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            41      G     -4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            1.302132E-03   0.0            0.0            0.0            0.0                           \r\n            44      G     -9.375350E-03   3.125116E-03   0.0            0.0            0.0            0.0                           \r\n            46      G     -1.562558E-03   1.562558E-03   0.0            0.0            0.0            0.0                           \r\n            47      G     -6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n           108      G      4.529472E-03  -1.365965E-10   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   288\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       VANE1       SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0            2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             8      G      2.343837E-03   1.289110E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   289\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       VANE2       SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G      2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0            2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.343837E-03   1.289110E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   290\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       ROOT1       SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      2.343837E-03   1.289110E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            1.562558E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.994903E-03   1.197961E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            4.687674E-03   0.0            0.0            0.0            0.0                           \r\n             6      G      1.692771E-03   5.078314E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      5.208528E-03   5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G      6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   291\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       ROOT2       SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.343837E-03   1.289110E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            1.562558E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.994903E-03   1.197961E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            4.687674E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -3.125116E-03   9.375350E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.208528E-03   5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   292\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LVANE1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G     -1.289110E-02   2.343837E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   293\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LVANE2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G      2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G     -1.289110E-02  -2.343837E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   294\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LROOT1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.289110E-02   2.343837E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.562558E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G     -1.197961E-02   2.994903E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -9.375350E-03   3.125116E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.208528E-03   5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   295\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       LROOT2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.289110E-02  -2.343837E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.562558E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G     -1.197961E-02  -2.994903E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -9.375350E-03  -3.125116E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.208528E-03  -5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   296\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BVANE1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0           -2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             8      G      2.343837E-03  -1.289110E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   297\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BVANE2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G      2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0           -2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.343837E-03  -1.289110E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   298\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BROOT1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      2.343837E-03  -1.289110E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -1.562558E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.994903E-03  -1.197961E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -4.687674E-03   0.0            0.0            0.0            0.0                           \r\n             6      G      3.125116E-03  -9.375350E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      5.208528E-03  -5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G      6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   299\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       BROOT2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.578221E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.343837E-03  -1.289110E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -1.562558E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.994903E-03  -1.197961E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -4.687674E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -3.125116E-03  -9.375350E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.208528E-03  -5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   300\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RROOT1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.289110E-02  -2.343837E-03   0.0            0.0            0.0            0.0                           \r\n             3      G      1.562558E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      1.197961E-02  -2.994903E-03   0.0            0.0            0.0            0.0                           \r\n             5      G      4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      9.375350E-03  -3.125116E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      5.208528E-03  -5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G      6.250232E-03  -6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   301\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RROOT2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.289110E-02   2.343837E-03   0.0            0.0            0.0            0.0                           \r\n             3      G      1.562558E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      1.197961E-02   2.994903E-03   0.0            0.0            0.0            0.0                           \r\n             5      G      4.687674E-03   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      9.375350E-03   3.125116E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      5.208528E-03   5.208528E-03   0.0            0.0            0.0            0.0                           \r\n             8      G      6.250232E-03   6.250232E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   302\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RVANE1      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.289110E-02  -2.343837E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   303\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE              COMPONENT       RVANE2      SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.343837E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      1.171919E-03  -1.171919E-02   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -3.984523E-02   0.0            0.0            0.0            0.0                           \r\n             4      G      2.343837E-03  -1.992262E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -3.281372E-02   0.0            0.0            0.0            0.0                           \r\n             6      G      2.343837E-03  -1.640686E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      2.578221E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G      1.289110E-02   2.343837E-03   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   304\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BVANE1      SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            5.000000E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            2.500000E+01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   305\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       BVANE2      SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            5.000000E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            2.500000E+01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   306\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RVANE1      SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -5.000000E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      0.0           -2.500000E+01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   307\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                   COMPONENT       RVANE2      SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -5.000000E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      0.0           -2.500000E+01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   308\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                SUBSTRUCTURE    WINDMIL                            \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                   COMPONENT       HUB         SUBCASE 3              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             4      G      0.0           -1.000000E+00   0.0            0.0            0.0            0.0                           \r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE HUB     \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   3 DISPLACEMENTS FOR SUBSTRUCTURE BLADES  \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   2 DISPLACEMENTS FOR SUBSTRUCTURE VANERGT \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE RVANE1  \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   309\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                                                                                   \r\n0     COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                                                                           \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3  3     3                                 \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0  3     3                                 \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3  3     3                                 \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3  3     3                                 \r\n      28  WINDMIL    C     0    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4  3     3           3                     \r\n      29  SMALLMIL   R     0    0   28    0    0    3  3  3  3  3  4  4  4           3     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   663552 WORDS.\r\n                      OR =      648 BLOCKS.\r\n                      OR =       69 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      278\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:19:19\r\n TOTAL WALL CLOCK TIME      8 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02025a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02025A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   1,0                                                                       \r\n     TIME  5                                                                         \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE3                                                             \r\n       PASSWORD = DEMO                                                               \r\n        SOF(1)  = FT18,950 $ DEC VAX                                                 \r\n        SOFPRINT TOC                                                                 \r\n     RECOVER RVANE1                                                                  \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER         78, 85\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        5              *    */*    */*    * $                                        \r\n        6    ALTER         88, 95\r\n        7    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n        8    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n        9    RCOVR3    ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS,    /1   /*RVANE1  */   \r\n       10                   $                                                        \r\n       11    EQUIV     PGS,PG/ALWAYS $                                               \r\n       12    EQUIV     PSS,PS/ALWAYS $                                               \r\n       13    EQUIV     POS,PO/ALWAYS $                                               \r\n       14    EQUIV     YSS,YS/ALWAYS $                                               \r\n       15    COND      LBS3  ,OMIT $                                                 \r\n       16    FBS       LOO,,POS/UOOV/1/1/2   /0 $                                    \r\n       17    LABEL     LBS3   $                                                      \r\n       18    ALTER         96\r\n       19    UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n       20    ADD       QG ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n       21    EQUIV     QGT,QG /ALWAYS $                                              \r\n       22    LABEL     LBSEND $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                          \r\n                  3      LABEL    = RECOVER RVANE1, RUN 5, PHASE 3                                       \r\n                  4          DISP = ALL                                                                  \r\n                  5        STRESS = ALL                                                                  \r\n                  6      SUBCASE 1                                                                       \r\n                  7      LABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                      \r\n                  8      SUBCASE 2                                                                       \r\n                  9      LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\n                 10      SUBCASE 3                                                                       \r\n                 11      LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    20, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2R  1               5.0     22.5    .0      5.0     22.5    1.0     +A      \r\n                    2-        +A      .0      22.5    .0                                                      \r\n                    3-        CQDMEM  1       10      3       4       2       1                               \r\n                    4-        CQDMEM  2       10      5       6       4       3                               \r\n                    5-        CQDMEM  3       10      7       8       6       5                               \r\n                    6-        FORCE1  2       1       25.0    4       2                                       \r\n                    7-        FORCE1  2       2       25.0    4       2                                       \r\n                    8-        GRDSET                                          1       3456                    \r\n                    9-        GRID    1               .0      22.5                                            \r\n                   10-        GRID    2               5.0     22.5                                            \r\n                   11-        GRID    3               .0      15.0                                            \r\n                   12-        GRID    4               5.0     15.0                                            \r\n                   13-        GRID    5               .0      7.5                                             \r\n                   14-        GRID    6               5.0     7.5                                             \r\n                   15-        GRID    7               .0      .0                                              \r\n                   16-        GRID    8               5.0     .0                                              \r\n                   17-        GRID    9               .0      -27.5                   123456                  \r\n                   18-        MAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\n                   19-        PQDMEM  10      50      .1                                                      \r\n                   20-        RFORCE  1       9               .1591579.0      .0      1.0                     \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      85  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      85  LABEL     LBSBEG $                                                      \r\n\r\n      85  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      95  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n0*** USER WARNING MESSAGE   42,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PARAM      INSTRUCTION NO.  95\r\n     PARAMETER NAMED ALWAYS   ALREADY HAD VALUE ASSIGNED PREVIOUSLY\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      95  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      95  RCOVR3    ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS,    /1   /*RVANE1  */   \r\n                         $                                                        \r\n\r\n      95  EQUIV     PGS,PG/ALWAYS $                                               \r\n\r\n      95  EQUIV     PSS,PS/ALWAYS $                                               \r\n\r\n      95  EQUIV     POS,PO/ALWAYS $                                               \r\n\r\n      95  EQUIV     YSS,YS/ALWAYS $                                               \r\n\r\n      95  COND      LBS3  ,OMIT $                                                 \r\n\r\n      95  FBS       LOO,,POS/UOOV/1/1/2   /0 $                                    \r\n\r\n      95  LABEL     LBS3   $                                                      \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n      96  UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n\r\n      96  ADD       QG ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      96  EQUIV     QGT,QG /ALWAYS $                                              \r\n\r\n      96  LABEL     LBSEND $                                                      \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     102  LABEL    LBL8 $                                                         \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n\r\n      RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        9\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     RECOVER RVANE1, RUN 5, PHASE 3                                                                                                \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3  3     3                                 \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0  3     3                                 \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3  3     3                                 \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3  3     3                                 \r\n      28  WINDMIL    C     0    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4  3     3           3                     \r\n      29  SMALLMIL   R     0    0   28    0    0    3  3  3  3  3  4  4  4           3     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   663552 WORDS.\r\n                      OR =      648 BLOCKS.\r\n                      OR =       69 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      278\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (   38,    1), TO (   38,    3)\r\n0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE SMALLMIL\r\n                                    AND BASIC SUBSTRUCTURE RVANE1  \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                                                     SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.268573E-14  -6.884929E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      4.723215E-09  -6.866109E-07   0.0            0.0            0.0            0.0                           \r\n             3      G      6.438692E-14  -6.531354E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      9.446658E-09  -6.507344E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      4.847075E-14  -5.599794E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      1.713453E-08  -5.559373E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      3.515526E-14  -4.225010E-07   0.0            0.0            0.0            0.0                           \r\n             8      G      2.011189E-08  -4.091746E-07   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                                               SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.191551E-05  -3.859980E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      3.438945E-05  -3.874633E-04   0.0            0.0            0.0            0.0                           \r\n             3      G      1.968054E-05  -3.110513E-04   0.0            0.0            0.0            0.0                           \r\n             4      G      3.210570E-05  -3.124478E-04   0.0            0.0            0.0            0.0                           \r\n             5      G      1.744547E-05  -2.364426E-04   0.0            0.0            0.0            0.0                           \r\n             6      G      2.953589E-05  -2.372383E-04   0.0            0.0            0.0            0.0                           \r\n             7      G      1.520824E-05  -1.638057E-04   0.0            0.0            0.0            0.0                           \r\n             8      G      2.593191E-05  -1.606965E-04   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                                               SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.266003E-08  -4.426530E-09   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.266219E-08   1.476260E-10   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.580445E-08  -4.431032E-09   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.580771E-08   1.501015E-10   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.894873E-08  -4.454039E-09   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.895208E-08   1.707467E-10   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.208946E-08  -4.518998E-09   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.199622E-08   2.719895E-10   0.0            0.0            0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                                                     SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -2.450548E-03   4.687670E-02  -4.536510E-04      -89.4731       4.688087E-02  -2.454720E-03   2.466780E-02          \r\n        2        5.060732E-03   1.265672E-01  -5.271435E-04      -89.7514       1.265695E-01   5.058449E-03   6.075554E-02          \r\n        3        1.080233E-02   1.921947E-01  -6.153435E-03      -88.0593       1.924032E-01   1.059382E-02   9.090468E-02          \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                                               SUBCASE 2              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.008911E-01   1.000000E+02  -6.025696E-02      -89.9654       1.000001E+02   1.008530E-01   4.994961E+01          \r\n        2        4.843979E-01   9.999995E+01  -4.044342E-01      -89.7672       1.000016E+02   4.827538E-01   4.975942E+01          \r\n        3        2.185631E+00   9.999889E+01  -2.483063E+00      -88.5468       1.000619E+02   2.122639E+00   4.896962E+01          \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                                                                                   \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                                               SUBCASE 3              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        5.416572E-06   3.725290E-09  -6.101094E-06      -33.0391       9.384583E-06  -3.964286E-06   6.674435E-06          \r\n        2        6.623566E-06   8.009374E-08  -2.600532E-05      -41.4146       2.956215E-05  -2.285849E-05   2.621032E-05          \r\n        3       -8.944236E-05   1.829118E-06  -8.227490E-05      -59.5080       5.027727E-05  -1.378905E-04   9.408389E-05          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:20:19\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02026a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02026A,NASTRAN                                                           \r\n     APP   DISPLACEMENT,SUBS                                                         \r\n     SOL   1,0                                                                       \r\n     TIME  5                                                                         \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE3                                                             \r\n       PASSWORD = DEMO                                                               \r\n        SOF(1)  = FT18,950 $ DEC VAX                                                 \r\n        SOFPRINT TOC                                                                 \r\n       BRECOVER HUB                                                                  \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER         78, 85\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        5              *    */*    */*    * $                                        \r\n        6    ALTER         88, 95\r\n        7    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n        8    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n        9    RCOVR3    ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS,    /1   /*HUB     */   \r\n       10                   $                                                        \r\n       11    EQUIV     PGS,PG/ALWAYS $                                               \r\n       12    EQUIV     PSS,PS/ALWAYS $                                               \r\n       13    EQUIV     POS,PO/ALWAYS $                                               \r\n       14    EQUIV     YSS,YS/ALWAYS $                                               \r\n       15    COND      LBS3  ,OMIT $                                                 \r\n       16    FBS       LOO,,POS/UOOV/1/1/2   /0 $                                    \r\n       17    LABEL     LBS3   $                                                      \r\n       18    ALTER         96\r\n       19    UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n       20    ADD       QG ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n       21    EQUIV     QGT,QG /ALWAYS $                                              \r\n       22    LABEL     LBSEND $                                                      \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                          \r\n                  3      LABEL    = RECOVER HUB, RUN 6, PHASE 3                                          \r\n                  4          DISP = ALL                                                                  \r\n                  5        STRESS = ALL                                                                  \r\n                  6      SPC = 30                                                                        \r\n                  7      SUBCASE 1                                                                       \r\n                  8      LABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE           \r\n                  9      SUBCASE 2                                                                       \r\n                 10      LABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\n                 11      SUBCASE 3                                                                       \r\n                 12      LABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    57, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1       0       .0      .0      .0      .0      .0      1.0     +COR    \r\n                    2-        +COR    1.0     .0      .0                                                      \r\n                    3-        CQDMEM  1       10      1       4       5       2                               \r\n                    4-        CQDMEM  3       10      4       7       108     5                               \r\n                    5-        CQDMEM  5       10      108     7       10      11                              \r\n                    6-        CQDMEM  7       10      13      14      11      10                              \r\n                    7-        CQDMEM  9       10      16      17      14      13                              \r\n                    8-        CQDMEM  11      10      19      20      17      16                              \r\n                    9-        CQDMEM  13      10      20      19      22      23                              \r\n                   10-        CQDMEM  15      10      25      26      23      22                              \r\n                   11-        CQDMEM  17      10      29      26      25      28                              \r\n                   12-        CQDMEM  19      10      32      29      28      31                              \r\n                   13-        CQDMEM  21      10      32      31      34      35                              \r\n                   14-        CQDMEM  23      10      37      38      35      34                              \r\n                   15-        CQDMEM  25      10      38      37      40      41                              \r\n                   16-        CQDMEM  27      10      41      40      43      44                              \r\n                   17-        CQDMEM  29      10      44      43      46      47                              \r\n                   18-        CQDMEM  31      10      1       2       47      46                              \r\n                   19-        FORCE1  3       4       1.0     5       4                                       \r\n                   20-        GRDSET                                                  3456                    \r\n                   21-        GRID    1               -5.0    10.0                                            \r\n                   22-        GRID    2               -5.0    15.0                                            \r\n                   23-        GRID    4               .0      10.0                                            \r\n                   24-        GRID    5               .0      15.0                                            \r\n                   25-        GRID    7               5.0     10.0                                            \r\n                   26-        GRID    10              7.5     7.5                                             \r\n                   27-        GRID    11              10.0    10.0                                            \r\n                   28-        GRID    13              10.0    5.0                                             \r\n                   29-        GRID    14              15.0    5.0                                             \r\n                   30-        GRID    16              10.0    .0                                              \r\n                   31-        GRID    17              15.0    .0                                              \r\n                   32-        GRID    19              10.0    -5.0                                            \r\n                   33-        GRID    20              15.0    -5.0                                            \r\n                   34-        GRID    22              7.5     -7.5                                            \r\n                   35-        GRID    23              10.0    -10.0                                           \r\n                   36-        GRID    25              5.0     -10.0                                           \r\n                   37-        GRID    26              5.0     -15.0                                           \r\n                   38-        GRID    28              .0      -10.0                                           \r\n                   39-        GRID    29              .0      -15.0                                           \r\n                   40-        GRID    31              -5.0    -10.0                                           \r\n                   41-        GRID    32              -5.0    -15.0                                           \r\n                   42-        GRID    34              -7.5    -7.5                                            \r\n                   43-        GRID    35              -10.0   -10.0                                           \r\n                   44-        GRID    37              -10.0   -5.0                                            \r\n                   45-        GRID    38              -15.0   -5.0                                            \r\n                   46-        GRID    40              -10.0   .0                                              \r\n                   47-        GRID    41              -15.0   .0                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    43              -10.0   5.0                                             \r\n                   49-        GRID    44              -15.0   5.0                                             \r\n                   50-        GRID    46              -7.5    7.5                                             \r\n                   51-        GRID    47              -10.0   10.0                                            \r\n                   52-        GRID    108             5.0     15.0            1                               \r\n                   53-        MAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\n                   54-        PQDMEM  10      50      .1                                                      \r\n                   55-        RFORCE  1       0       0       .1591579.0      .0      1.0                     \r\n                   56-        SPC1    30      1       13      19      37      43                              \r\n                   57-        SPC1    30      2       1       7       31      25                              \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      85  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      85  LABEL     LBSBEG $                                                      \r\n\r\n      85  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      95  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n0*** USER WARNING MESSAGE   42,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PARAM      INSTRUCTION NO.  95\r\n     PARAMETER NAMED ALWAYS   ALREADY HAD VALUE ASSIGNED PREVIOUSLY\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      95  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      95  RCOVR3    ,PG,PS,PO,YS/ULV ,QAS,PGS,PSS,POS,YSS,    /1   /*HUB     */   \r\n                         $                                                        \r\n\r\n      95  EQUIV     PGS,PG/ALWAYS $                                               \r\n\r\n      95  EQUIV     PSS,PS/ALWAYS $                                               \r\n\r\n      95  EQUIV     POS,PO/ALWAYS $                                               \r\n\r\n      95  EQUIV     YSS,YS/ALWAYS $                                               \r\n\r\n      95  COND      LBS3  ,OMIT $                                                 \r\n\r\n      95  FBS       LOO,,POS/UOOV/1/1/2   /0 $                                    \r\n\r\n      95  LABEL     LBS3   $                                                      \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n      96  UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n\r\n      96  ADD       QG ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      96  EQUIV     QGT,QG /ALWAYS $                                              \r\n\r\n      96  LABEL     LBSEND $                                                      \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     102  LABEL    LBL8 $                                                         \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n\r\n      RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           31\r\n                                        PROFILE            186\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.812\r\n                                        RMS WAVEFRONT    5.990\r\n                                        RMS BANDWIDTH    9.823\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            164\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    5.125\r\n                                        RMS WAVEFRONT    5.256\r\n                                        RMS BANDWIDTH    5.256\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       31         6\r\n                                        PROFILE (P)                        186       164\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.812     5.125\r\n                                        RMS WAVEFRONT (C-RMS)            5.990     5.256\r\n                                        RMS BANDWITCH (B-RMS)            9.823     5.256\r\n                                        NUMBER OF GRID POINTS (N)                     32\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           5\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                        80\r\n                                        MATRIX DENSITY, PERCENT                   18.750\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   8\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       4       3       5       4\r\n                         SEQGP          7       7      10      11      11      12      13      15\r\n                         SEQGP         14      16      16      19      17      20      19      23\r\n                         SEQGP         20      24      22      27      23      28      25      31\r\n                         SEQGP         26      32      28      30      29      29      31      26\r\n                         SEQGP         32      25      34      22      35      21      37      18\r\n                         SEQGP         38      17      40      14      41      13      43      10\r\n                         SEQGP         44       9      46       6      47       5     108       8\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     RECOVER HUB, RUN 6, PHASE 3                                                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3  3     3                                 \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0  3     3                                 \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3  3     3                                 \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3  3     3                                 \r\n      28  WINDMIL    C     0    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4  3     3           3                     \r\n      29  SMALLMIL   R     0    0   28    0    0    3  3  3  3  3  4  4  4           3     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   663552 WORDS.\r\n                      OR =      648 BLOCKS.\r\n                      OR =       69 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      278\r\n0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE SMALLMIL\r\n                                    AND BASIC SUBSTRUCTURE HUB     \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE                                          SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.885472E-09   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.815310E-09   1.102501E-07   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.260284E-14   4.903196E-08   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.257896E-14   6.704929E-08   0.0            0.0            0.0            0.0                           \r\n             7      G      6.885431E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      3.999435E-09   3.999455E-09   0.0            0.0            0.0            0.0                           \r\n            11      G      6.384132E-09   6.384167E-09   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            6.885465E-09   0.0            0.0            0.0            0.0                           \r\n            14      G      1.102501E-07  -6.815319E-09   0.0            0.0            0.0            0.0                           \r\n            16      G      4.903196E-08   1.131666E-14   0.0            0.0            0.0            0.0                           \r\n            17      G      6.704929E-08   1.798945E-14   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -6.885445E-09   0.0            0.0            0.0            0.0                           \r\n            20      G      1.102501E-07   6.815356E-09   0.0            0.0            0.0            0.0                           \r\n            22      G      3.999454E-09  -3.999445E-09   0.0            0.0            0.0            0.0                           \r\n            23      G      6.384163E-09  -6.384147E-09   0.0            0.0            0.0            0.0                           \r\n            25      G      6.885462E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G     -6.815327E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n            28      G      8.188964E-15  -4.903196E-08   0.0            0.0            0.0            0.0                           \r\n            29      G      1.180331E-14  -6.704929E-08   0.0            0.0            0.0            0.0                           \r\n            31      G     -6.885447E-09   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      6.815351E-09  -1.102501E-07   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.999445E-09  -3.999454E-09   0.0            0.0            0.0            0.0                           \r\n            35      G     -6.384148E-09  -6.384164E-09   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -6.885463E-09   0.0            0.0            0.0            0.0                           \r\n            38      G     -1.102501E-07   6.815324E-09   0.0            0.0            0.0            0.0                           \r\n            40      G     -4.903196E-08  -9.811720E-15   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.704929E-08  -1.471499E-14   0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            6.885445E-09   0.0            0.0            0.0            0.0                           \r\n            44      G     -1.102501E-07  -6.815354E-09   0.0            0.0            0.0            0.0                           \r\n            46      G     -3.999458E-09   3.999444E-09   0.0            0.0            0.0            0.0                           \r\n            47      G     -6.384170E-09   6.384145E-09   0.0            0.0            0.0            0.0                           \r\n           108      G      1.024372E-07   4.132977E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                                               SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.172360E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      9.928668E-06   7.763517E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.811291E-06  -3.324972E-07   0.0            0.0            0.0            0.0                           \r\n             5      G      1.047571E-05  -6.439687E-07   0.0            0.0            0.0            0.0                           \r\n             7      G      8.371261E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      5.991280E-06  -2.600528E-06   0.0            0.0            0.0            0.0                           \r\n            11      G      1.164498E-05  -7.079488E-06   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.686615E-06   0.0            0.0            0.0            0.0                           \r\n            14      G      4.018371E-05   5.140406E-07   0.0            0.0            0.0            0.0                           \r\n            16      G      1.393543E-05   7.811291E-06   0.0            0.0            0.0            0.0                           \r\n            17      G      2.207221E-05   1.047571E-05   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            1.185701E-05   0.0            0.0            0.0            0.0                           \r\n            20      G      4.312564E-05   2.097850E-05   0.0            0.0            0.0            0.0                           \r\n            22      G      1.186977E-05   1.186977E-05   0.0            0.0            0.0            0.0                           \r\n            23      G      2.433343E-05   2.433343E-05   0.0            0.0            0.0            0.0                           \r\n            25      G      1.185701E-05   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      2.097850E-05   4.312564E-05   0.0            0.0            0.0            0.0                           \r\n            28      G      7.811291E-06   1.393543E-05   0.0            0.0            0.0            0.0                           \r\n            29      G      1.047571E-05   2.207221E-05   0.0            0.0            0.0            0.0                           \r\n            31      G      2.686615E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      5.140405E-07   4.018371E-05   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.600528E-06   5.991280E-06   0.0            0.0            0.0            0.0                           \r\n            35      G     -7.079488E-06   1.164498E-05   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0            8.371262E-06   0.0            0.0            0.0            0.0                           \r\n            38      G     -2.165587E-06   1.156387E-05   0.0            0.0            0.0            0.0                           \r\n            40      G     -3.324968E-07   7.811291E-06   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.439684E-07   1.047571E-05   0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            6.172360E-06   0.0            0.0            0.0            0.0                           \r\n            44      G      7.763518E-07   9.928668E-06   0.0            0.0            0.0            0.0                           \r\n            46      G      3.277963E-06   3.277963E-06   0.0            0.0            0.0            0.0                           \r\n            47      G      5.608956E-06   5.608956E-06   0.0            0.0            0.0            0.0                           \r\n           108      G      1.602361E-06  -1.165527E-05   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                                               SUBCASE 3              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.030348E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.187168E-08  -1.398604E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      5.649104E-14  -1.586544E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      7.715708E-14  -1.218223E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      1.030349E-07   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G      7.883455E-08   3.399462E-09   0.0            0.0            0.0            0.0                           \r\n            11      G      4.464573E-08  -2.663294E-09   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            5.574307E-10   0.0            0.0            0.0            0.0                           \r\n            14      G      9.545968E-09  -1.067458E-08   0.0            0.0            0.0            0.0                           \r\n            16      G      3.383299E-10  -2.378025E-09   0.0            0.0            0.0            0.0                           \r\n            17      G      9.869841E-10  -8.726363E-09   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0           -3.605775E-09   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.253810E-10  -8.167829E-09   0.0            0.0            0.0            0.0                           \r\n            22      G     -9.613698E-10  -1.313596E-09   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.936940E-09  -2.810916E-09   0.0            0.0            0.0            0.0                           \r\n            25      G     -7.297873E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G     -9.521191E-10  -8.604193E-10   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.644306E-14  -1.626000E-10   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.420368E-14  -4.754937E-10   0.0            0.0            0.0            0.0                           \r\n            31      G      7.297578E-10   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      9.520696E-10  -8.604117E-10   0.0            0.0            0.0            0.0                           \r\n            34      G      9.613531E-10  -1.313576E-09   0.0            0.0            0.0            0.0                           \r\n            35      G      1.936910E-09  -2.810881E-09   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -3.605737E-09   0.0            0.0            0.0            0.0                           \r\n            38      G      2.253748E-10  -8.167763E-09   0.0            0.0            0.0            0.0                           \r\n            40      G     -3.383293E-10  -2.377982E-09   0.0            0.0            0.0            0.0                           \r\n            41      G     -9.869821E-10  -8.726295E-09   0.0            0.0            0.0            0.0                           \r\n            43      G      0.0            5.574692E-10   0.0            0.0            0.0            0.0                           \r\n            44      G     -9.545950E-09  -1.067451E-08   0.0            0.0            0.0            0.0                           \r\n            46      G     -7.883449E-08   3.399481E-09   0.0            0.0            0.0            0.0                           \r\n            47      G     -4.464564E-08  -2.663251E-09   0.0            0.0            0.0            0.0                           \r\n           108      G     -1.522487E-07   1.446874E-08   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE                                          SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        3.427942E-02   1.368372E-01   7.812783E-03       85.6686       1.374290E-01   3.368766E-02   5.187067E-02          \r\n        3        3.427943E-02   1.368373E-01  -7.812796E-03      -85.6685       1.374290E-01   3.368767E-02   5.187068E-02          \r\n        5        1.441762E-01   3.029857E-02  -1.102462E-02       -5.4791       1.452337E-01   2.924108E-02   5.799630E-02          \r\n        7        1.441762E-01   3.029857E-02   1.102461E-02        5.4791       1.452337E-01   2.924109E-02   5.799629E-02          \r\n        9        1.368372E-01   3.427943E-02  -7.812787E-03       -4.3314       1.374290E-01   3.368767E-02   5.187067E-02          \r\n       11        1.368373E-01   3.427943E-02   7.812796E-03        4.3314       1.374290E-01   3.368767E-02   5.187068E-02          \r\n       13        1.441762E-01   3.029858E-02  -1.102462E-02       -5.4791       1.452336E-01   2.924109E-02   5.799628E-02          \r\n       15        1.441762E-01   3.029857E-02   1.102462E-02        5.4791       1.452337E-01   2.924109E-02   5.799629E-02          \r\n       17        3.427942E-02   1.368372E-01   7.812788E-03       85.6686       1.374290E-01   3.368766E-02   5.187067E-02          \r\n       19        3.427943E-02   1.368373E-01  -7.812793E-03      -85.6686       1.374290E-01   3.368767E-02   5.187068E-02          \r\n       21        1.441762E-01   3.029857E-02  -1.102463E-02       -5.4791       1.452337E-01   2.924109E-02   5.799628E-02          \r\n       23        1.441762E-01   3.029857E-02   1.102462E-02        5.4791       1.452337E-01   2.924109E-02   5.799629E-02          \r\n       25        1.368372E-01   3.427943E-02  -7.812787E-03       -4.3314       1.374290E-01   3.368767E-02   5.187067E-02          \r\n       27        1.368373E-01   3.427943E-02   7.812798E-03        4.3314       1.374290E-01   3.368767E-02   5.187067E-02          \r\n       29        1.441762E-01   3.029857E-02  -1.102463E-02       -5.4791       1.452337E-01   2.924109E-02   5.799628E-02          \r\n       31        1.441762E-01   3.029856E-02   1.102463E-02        5.4791       1.452337E-01   2.924107E-02   5.799630E-02          \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                                               SUBCASE 2              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        2.455675E+00   1.078799E+00   1.867165E+00       34.8803       3.757275E+00  -2.228009E-01   1.990038E+00          \r\n        3        1.097456E+00  -2.202694E+00   1.867165E+00       24.2660       1.939178E+00  -3.044416E+00   2.491797E+00          \r\n        5       -2.966948E+00   4.595438E+00   1.685894E+00       77.9848       4.954252E+00  -3.325761E+00   4.140007E+00          \r\n        7        4.790092E+01  -8.302165E+00   1.252428E+01       12.0108       5.056550E+01  -1.096675E+01   3.076612E+01          \r\n        9        4.751884E+01  -3.206642E+00   1.867165E+00        2.1052       4.758747E+01  -3.275278E+00   2.543138E+01          \r\n       11        5.080033E+01  -1.848424E+00   1.867165E+00        2.0286       5.086646E+01  -1.914558E+00   2.639051E+01          \r\n       13        5.154383E+01  -1.123453E+01  -1.542390E+01      -13.0842       5.512861E+01  -1.481930E+01   3.497395E+01          \r\n       15       -5.154385E+01   1.123453E+01  -1.542390E+01      -76.9158       1.481930E+01  -5.512862E+01   3.497396E+01          \r\n       17        1.848424E+00  -5.080033E+01  -1.867165E+00       -2.0286       1.914558E+00  -5.086646E+01   2.639051E+01          \r\n       19        3.206641E+00  -4.751884E+01  -1.867166E+00       -2.1052       3.275278E+00  -4.758747E+01   2.543138E+01          \r\n       21       -4.790091E+01   8.302166E+00   1.252428E+01       77.9892       1.096675E+01  -5.056549E+01   3.076612E+01          \r\n       23        2.966948E+00  -4.595437E+00   1.685894E+00       12.0152       3.325762E+00  -4.954251E+00   4.140007E+00          \r\n       25        2.202694E+00  -1.097459E+00  -1.867165E+00      -24.2659       3.044416E+00  -1.939180E+00   2.491798E+00          \r\n       27       -1.078799E+00  -2.455676E+00  -1.867165E+00      -34.8803       2.228013E-01  -3.757276E+00   1.990039E+00          \r\n       29       -6.759804E-01  -1.663074E+00   1.213726E+00       33.9357       1.407092E-01  -2.479764E+00   1.310237E+00          \r\n       31        6.759810E-01   1.663077E+00   1.213726E+00       56.0643       2.479766E+00  -1.407081E-01   1.310237E+00          \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                                                                                   \r\n0     CHECK ON RELEASE FEATURE AT GRID POINT 5                                                               SUBCASE 3              \r\n \r\n                     S T R E S S E S   I N   Q U A D R I L A T E R A L   M E M B R A N E S      ( C Q D M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1        1.048302E-01   2.546678E-01  -9.999999E-01      -47.1423       1.182552E+00  -8.230535E-01   1.002802E+00          \r\n        3        1.048301E-01   2.546678E-01   1.000000E+00       47.1423       1.182551E+00  -8.230535E-01   1.002802E+00          \r\n        5       -2.355191E-01  -2.143876E-01   1.006202E-01       47.9972      -1.237799E-01  -3.261268E-01   1.011734E-01          \r\n        7       -7.956360E-02  -2.691416E-02   3.968607E-02       61.7786      -5.615611E-03  -1.008621E-01   4.762327E-02          \r\n        9        1.113753E-02   3.771619E-03  -3.743878E-03      -22.7350       1.270631E-02   2.202833E-03   5.251741E-03          \r\n       11        6.299490E-04   8.267039E-04  -3.743878E-03      -45.7526       4.473497E-03  -3.016844E-03   3.745171E-03          \r\n       13       -6.842900E-04  -1.567654E-03  -1.847207E-03      -38.2763       7.733057E-04  -3.025250E-03   1.899278E-03          \r\n       15        6.851682E-04  -2.112600E-03   1.982040E-03       27.3932       1.712260E-03  -3.139691E-03   2.425976E-03          \r\n       17       -1.481107E-03   8.030364E-04   5.558832E-09       89.9999       8.030364E-04  -1.481107E-03   1.142072E-03          \r\n       19       -1.481111E-03   8.030277E-04   5.558832E-09       89.9999       8.030276E-04  -1.481111E-03   1.142069E-03          \r\n       21        6.851617E-04  -2.112601E-03  -1.982029E-03      -27.3931       1.712246E-03  -3.139685E-03   2.425965E-03          \r\n       23       -6.842817E-04  -1.567642E-03   1.847208E-03       38.2763       7.733169E-04  -3.025240E-03   1.899279E-03          \r\n       25        6.299561E-04   8.267108E-04   3.743862E-03       45.7526       4.473487E-03  -3.016821E-03   3.745154E-03          \r\n       27        1.113751E-02   3.771613E-03   3.743861E-03       22.7350       1.270628E-02   2.202837E-03   5.251723E-03          \r\n       29       -7.956360E-02  -2.691415E-02  -3.968603E-02      -61.7787      -5.615648E-03  -1.008621E-01   4.762323E-02          \r\n       31       -2.355190E-01  -2.143876E-01  -1.006202E-01      -47.9972      -1.237799E-01  -3.261267E-01   1.011734E-01          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:21:25\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02027a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02027A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   3,0                                                                       \r\n     TIME  20                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE2                                                             \r\n       PASSWORD = DEMO                                                               \r\n       SOF(1)   = FT18,950 $ DEC VAX                                                 \r\n       SOFPRINT TOC                                                                  \r\n       EQUIV SMALLMIL,SMILLDYN                                                       \r\n       PREFIX = D                                                                    \r\n       SOFPRINT TOC                                                                  \r\n       SOLVE SMILLDYN                                                                \r\n       RECOVER SMILLDYN                                                              \r\n       PRINT DWINDMIL                                                                \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        5              *    */*    */*    * $                                        \r\n        6    SOFUT     //DRY/*SMALLMIL*/*EQUI*/32 /*SMILLDYN*/*D   */*ITM1*/*ITM2*/  \r\n        7              *ITM3*/*ITM4*/*ITM5* $                                        \r\n        8    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        9              *    */*    */*    * $                                        \r\n       10    ALTER          5,  5\r\n       11    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n       12    SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n       13              BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMILLDYN*/S,N,LUSET/        \r\n       14              S,N,NOGPDT $                                                  \r\n       15    PURGE     CSTM $                                                        \r\n       16    EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n       17              DYNS,DYNAMICS/ALWAYS $                                        \r\n       18    COND      LB5  ,DRY $                                                   \r\n       19    ALTER         10, 20\r\n       20    ALTER         24, 24\r\n       21    COND      LBSOL,NOSIMP $                                                \r\n       22    ALTER         32, 32\r\n       23    COND      LBSOL,NOMGG $                                                 \r\n       24    ALTER         39, 43\r\n       25    LABEL     LBSOL $                                                       \r\n       26    SOFI      /K1  ,M1  ,,,/DRY/*SMILLDYN*/*KMTX*/*MMTX* $                  \r\n       27    EQUIV     K1  ,KGG/NOSIMP $                                             \r\n       28    EQUIV     M1  ,MGG/NOSIMP $                                             \r\n       29    COND      LB5  ,NOSIMP $                                                \r\n       30    ADD       KGGX,K1  /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n       31    ADD       MGG,M1  /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n       32    EQUIV     MGGX,MGG/ALWAYS $                                             \r\n       33    LABEL     LB5   $                                                       \r\n       34    CHKPNT    MGG $                                                         \r\n       35    ALTER         78, 95\r\n       36    COND      LBSEND,DRY $                                                  \r\n       37    FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n       38    PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n       39    LABEL     LB6   $                                                       \r\n       40    RCOVR     CASESS,LAMA ,KGG,MGG,   ,PHIG,   ,   ,   ,    ,   /OPHIG1,    \r\n       41                  ,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/6  /*SMILLDYN*/    \r\n       42              3   /NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n       43              S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n       44    EQUIV     OPHIG1,OPHIG/NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n       45    COND      NST26  ,NOSORT2 $                                             \r\n       46    SDR3      OPHIG1,    ,OQG1,,,/OPHIG,   ,OQG,,, $                        \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       47    LABEL     NST26   $                                                     \r\n       48    OFP       OPHIG,   ,OQG,,,//S,N,CARDNO $                                \r\n       49    COND      LBB6  ,ILOOP $                                                \r\n       50    REPT      LB6  ,100 $                                                   \r\n       51    LABEL     LBB6   $                                                      \r\n       52    SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n       53    LABEL     LBSEND $                                                      \r\n       54    JUMP      FINIS $                                                       \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                          \r\n                  3      LABEL    = NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                            \r\n                  4      METHOD   = 10                                                                   \r\n                  5      MPC      = 21                                                                   \r\n                  6      VECTOR   = ALL                                                                  \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =     6, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        EIGR    10      INV     .0      .1      1       1                       PEIG    \r\n                    2-        +EIG    MAX                                                                     \r\n                    3-        MPCS    21      DHUB    108     1       -1.0                            +MPC1   \r\n                    4-        +MPC1           DROOT1  6       2       .94868336       1       .3162278        \r\n                    5-        MPCS    21      DHUB    108     2       -1.0                            +MPC2   \r\n                    6-        +MPC2           DROOT1  6       1       -.9486836       2       .3162278        \r\n                              ENDDATA\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n       4  LABEL     LBSBEG $                                                      \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  SOFUT     //DRY/*SMALLMIL*/*EQUI*/32 /*SMILLDYN*/*D   */*ITM1*/*ITM2*/  \r\n                    *ITM3*/*ITM4*/*ITM5* $                                        \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n\r\n       5  SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n                    BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*SMILLDYN*/S,N,LUSET/        \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       5  PURGE     CSTM $                                                        \r\n\r\n       5  EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n                    DYNS,DYNAMICS/ALWAYS $                                        \r\n\r\n       5  COND      LB5  ,DRY $                                                   \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND      LBSOL,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND      LBSOL,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n\r\n      43  LABEL     LBSOL $                                                       \r\n\r\n      43  SOFI      /K1  ,M1  ,,,/DRY/*SMILLDYN*/*KMTX*/*MMTX* $                  \r\n\r\n      43  EQUIV     K1  ,KGG/NOSIMP $                                             \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      43  EQUIV     M1  ,MGG/NOSIMP $                                             \r\n\r\n      43  COND      LB5  ,NOSIMP $                                                \r\n\r\n      43  ADD       KGGX,K1  /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      43  ADD       MGG,M1  /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      43  EQUIV     MGGX,MGG/ALWAYS $                                             \r\n\r\n      43  LABEL     LB5   $                                                       \r\n\r\n      43  CHKPNT    MGG $                                                         \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      95  COND      LBSEND,DRY $                                                  \r\n\r\n      95  FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n\r\n      95  PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      95  LABEL     LB6   $                                                       \r\n\r\n      95  RCOVR     CASESS,LAMA ,KGG,MGG,   ,PHIG,   ,   ,   ,    ,   /OPHIG1,    \r\n                        ,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/6  /*SMILLDYN*/    \r\n                    3   /NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n                    S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n\r\n      95  EQUIV     OPHIG1,OPHIG/NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n\r\n      95  COND      NST26  ,NOSORT2 $                                             \r\n\r\n      95  SDR3      OPHIG1,    ,OQG1,,,/OPHIG,   ,OQG,,, $                        \r\n\r\n      95  LABEL     NST26   $                                                     \r\n\r\n      95  OFP       OPHIG,   ,OQG,,,//S,N,CARDNO $                                \r\n\r\n      95  COND      LBB6  ,ILOOP $                                                \r\n\r\n      95  REPT      LB6  ,100 $                                                   \r\n\r\n      95  LABEL     LBB6   $                                                      \r\n\r\n      95  SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n\r\n      95  LABEL     LBSEND $                                                      \r\n\r\n      95  JUMP      FINIS $                                                       \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     104  END      $                                                              \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION TA1        INSTRUCTION NO.  22\r\n     DATA BLOCK NAMED CSTM     APPEARS AS INPUT BEFORE BEING DEFINED\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO.  45\r\n     DATA BLOCK NAMED GPST     APPEARS AS INPUT BEFORE BEING DEFINED\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        926 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B     0    0    0   27   28    3  3  3  3  3  3  3  3        3  3     3                                 \r\n       2  ROOT1      B    24    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    15    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    14    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    16    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    23    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    25    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB     0    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB     4    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C     0    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB     8    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB     9    3    0   11   13    3  0  0  3  3  0  0  0        0  3     3                                 \r\n      13  VANERGT    C    10    5   12   26   27    3  0  0  3  3  0  0  0        3  3     3                                 \r\n      14  BVANE2    IB    11    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    12    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    13    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB     0    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB     6    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C     0    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    17    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    18    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    19    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    20    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    21    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    22    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C     0    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C     0    0   26    1   28    3  3  3  3  3  4  3  3        3  3     3                                 \r\n      28  WINDMIL    C     0    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4  3     3           3                     \r\n      29  SMALLMIL   R     0    0   28    0    0    3  3  3  3  3  4  4  4           3     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   663552 WORDS.\r\n                      OR =      648 BLOCKS.\r\n                      OR =       69 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      278\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                S U B S T R U C T U R E   E Q U I V A L E N C E   O P E R A T I O N\r\n\r\n\r\n                       SUBSTRUCTURE SMILLDYN HAS BEEN CREATED AND MARKED EQUIVALENT TO SUBSTRUCTURE SMALLMIL\r\n0                      THE PRIMARY SUBSTRUCTURE OF SMILLDYN IS SMALLMIL\r\n0                      THE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GENERATED --\r\n0                      DWINDMIL  DHUB      DBLADES   DRING     DVANETOP  DVANERGT  DVANE1    DROOTTOP\r\n0                      DRVANE1   DVANE2    DROOT1    DVANELFT  DRVANE2   DROOT2    DLVANE1   DROOTLFT\r\n0                      DLVANE2   DLROOT1   DVANEBOT  DLROOT2   DBVANE1   DROOTBOT  DBVANE2   DBROOT1 \r\n0                      DROOTRGT  DBROOT2   DRROOT1   DRROOT2                                         \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  HUB        B    56    0    0   27   28    3  3  3  3  3  3  3  3        3  3     3                                 \r\n       2  ROOT1      B    47    0    0    6    7    3  3     3  3  3  3  3        3                                          \r\n       3  VANE1      B    51    0    0    4    5    3  3  3  3  3  3  3  3        3                                          \r\n       4  VANE2      B    48    3    0    3    5    3  0  0  3  3  0  0  0        3                                          \r\n       5  VANETOP    C    53    0    3    7   26    3  3  3  3  3  3  3  3        3                                          \r\n       6  ROOT2      B    44    2    0    2    7    3  0     3  3  0  0  0        3                                          \r\n       7  ROOTTOP    C    50    0    2   10   26    3  3     3  3  3  3  3        3                                          \r\n       8  LVANE2    IB    41    3    0    9   10    3  0  0  3  3  0  0  0        0                                          \r\n       9  LVANE1    IB    43    3    0    8   10    3  0  0  3  3  0  0  0        0                                          \r\n      10  VANELFT    C    46    5    9   19   26    3  0  0  3  3  0  0  0        3                                          \r\n      11  RVANE2    IB    45    3    0   12   13    3  0  0  3  3  0  0  0        0                                          \r\n      12  RVANE1    IB    49    3    0   11   13    3  0  0  3  3  0  0  0        0  3     3                                 \r\n      13  VANERGT    C    52    5   12   26   27    3  0  0  3  3  0  0  0        3  3     3                                 \r\n      14  BVANE2    IB    35    3    0   15   16    3  0  0  3  3  0  0  0        0                                          \r\n      15  BVANE1    IB    37    3    0   14   16    3  0  0  3  3  0  0  0        0                                          \r\n      16  VANEBOT    C    39    5   15   25   26    3  0  0  3  3  0  0  0        3                                          \r\n      17  LROOT2    IB    38    2    0   18   19    3  0     3  3  0  0  0        0                                          \r\n      18  LROOT1    IB    40    2    0   17   19    3  0     3  3  0  0  0        0                                          \r\n      19  ROOTLFT    C    42    7   18   16   26    3  0     3  3  0  0  0        3                                          \r\n      20  RROOT2    IB    30    2    0   21   22    3  0     3  3  0  0  0        0                                          \r\n      21  RROOT1    IB    31    2    0   20   22    3  0     3  3  0  0  0        0                                          \r\n      22  ROOTRGT    C    33    7   21    5   26    3  0     3  3  0  0  0        3                                          \r\n      23  BROOT2    IB    32    2    0   24   25    3  0     3  3  0  0  0        0                                          \r\n      24  BROOT1    IB    34    2    0   23   25    3  0     3  3  0  0  0        0                                          \r\n      25  ROOTBOT    C    36    7   24   22   26    3  0     3  3  0  0  0        3                                          \r\n      26  RING       C    54    0    5   13   27    3  3  3  3  3  4  3  3        3                                          \r\n      27  BLADES     C    55    0   26    1   28    3  3  3  3  3  4  3  3        3  3     3                                 \r\n      28  WINDMIL    C    57    0    1    0   29    3  3  3  3  3  4  3  3  3  3  4  3     3           3                     \r\n      29  SMALLMIL   R    58    0   28    0    0    3  3  3  3  3  4  4  4           3     3                                 \r\n      30  DRROOT2   IB    17    2    0   31   33    3  0     3  3  0  0  0        0                                          \r\n      31  DRROOT1   IB    18    2    0   30   33    3  0     3  3  0  0  0        0                                          \r\n      32  DBROOT2   IB    20    2    0   34   36    3  0     3  3  0  0  0        0                                          \r\n      33  DROOTRGT  IC    19    7   31   53   54    3  0     3  3  0  0  0        0                                          \r\n      34  DBROOT1   IB    21    2    0   32   36    3  0     3  3  0  0  0        0                                          \r\n      35  DBVANE2   IB    11    3    0   37   39    3  0  0  3  3  0  0  0        0                                          \r\n      36  DROOTBOT  IC    22    7   34   33   54    3  0     3  3  0  0  0        0                                          \r\n      37  DBVANE1   IB    12    3    0   35   39    3  0  0  3  3  0  0  0        0                                          \r\n      38  DLROOT2   IB     0    2    0   40   42    3  0     3  3  0  0  0        0                                          \r\n      39  DVANEBOT  IC    13    5   37   36   54    3  0  0  3  3  0  0  0        0                                          \r\n      40  DLROOT1   IB     6    2    0   38   42    3  0     3  3  0  0  0        0                                          \r\n      41  DLVANE2   IB     0    3    0   43   46    3  0  0  3  3  0  0  0        0                                          \r\n      42  DROOTLFT  IC     0    7   40   39   54    3  0     3  3  0  0  0        0                                          \r\n      43  DLVANE1   IB     4    3    0   41   46    3  0  0  3  3  0  0  0        0                                          \r\n      44  DROOT2    IB    23    2    0   47   50    3  0     3  3  0  0  0        0                                          \r\n      45  DRVANE2   IB     8    3    0   49   52    3  0  0  3  3  0  0  0        0                                          \r\n      46  DVANELFT  IC     0    5   43   42   54    3  0  0  3  3  0  0  0        0                                          \r\n      47  DROOT1    IB    24    2    0   44   50    3  0     3  3  0  0  0        0                                          \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n      48  DVANE2    IB    14    3    0   51   53    3  0  0  3  3  0  0  0        0                                          \r\n      49  DRVANE1   IB     9    3    0   45   52    3  0  0  3  3  0  0  0        0                                          \r\n      50  DROOTTOP  IC    25    7   47   46   54    3  0     3  3  0  0  0        0                                          \r\n      51  DVANE1    IB    15    3    0   48   53    3  0  0  3  3  0  0  0        0                                          \r\n      52  DVANERGT  IC    10    5   49   54   55    3  0  0  3  3  0  0  0        0                                          \r\n      53  DVANETOP  IC    16    5   51   50   54    3  0  0  3  3  0  0  0        0                                          \r\n      54  DRING     IC     0   26   53   52   55    3  0  0  3  3  0  0  0        0                                          \r\n      55  DBLADES   IC     0   27   54   56   57    3  0  0  3  3  0  0  0        0                                          \r\n      56  DHUB      IB     0    1    0   55   57    3  0  0  3  3  0  0  0        0                                          \r\n      57  DWINDMIL  IC     0   28   56    0   58    3  0  0  3  3  0  0  0  0  0  0                    0                     \r\n      58  SMILLDYN   R     0   29   57    0    0    3  0  0  3  3  0  0  0                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   573440 WORDS.\r\n                      OR =      560 BLOCKS.\r\n                      OR =       60 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      366\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n\r\n      NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   1.973921E-01\r\n                        1 ROOTS BELOW   3.283552E+06\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         1\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         2\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        13\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                                                                   \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                                                                     \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        3.282042E+06        1.811641E+03        2.883316E+02        1.257053E-02        4.125703E+04             \r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE DWINDMIL\r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DHUB                               \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.856722E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.522623E-01  -3.541324E-02   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.645820E-02   4.235715E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            7.825273E-06   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.466363E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             7      G     -8.856737E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            10      G     -4.981457E-02   4.981417E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -9.071273E-02   9.069184E-02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            8.856670E-02   0.0            0.0            0.0            0.0                           \r\n            14      G     -3.541860E-02   1.522445E-01   0.0            0.0            0.0            0.0                           \r\n            16      G     -2.156543E-08   9.645748E-02   0.0            0.0            0.0            0.0                           \r\n            17      G      0.0            1.465488E-01   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.005780E-06   0.0            0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            8.856663E-02   0.0            0.0            0.0            0.0                           \r\n            20      G      3.540997E-02   1.522359E-01   0.0            0.0            0.0            0.0                           \r\n            22      G      4.981398E-02   4.981408E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      9.066205E-02   9.066232E-02   0.0            0.0            0.0            0.0                           \r\n            25      G      8.856636E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      1.522343E-01   3.540994E-02   0.0            0.0            0.0            0.0                           \r\n            28      G      9.645715E-02   2.330909E-09   0.0            0.0            0.0            0.0                           \r\n            29      G      1.465443E-01   0.0            0.0            0.0            0.0            0.0                           \r\n            29      G      0.0            1.111190E-08   0.0            0.0            0.0            0.0                           \r\n            31      G      8.856634E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            32      G      1.522343E-01  -3.540988E-02   0.0            0.0            0.0            0.0                           \r\n            34      G      4.981396E-02  -4.981401E-02   0.0            0.0            0.0            0.0                           \r\n            35      G      9.066191E-02  -9.066199E-02   0.0            0.0            0.0            0.0                           \r\n            37      G      0.0           -8.856648E-02   0.0            0.0            0.0            0.0                           \r\n            38      G      3.540988E-02  -1.522346E-01   0.0            0.0            0.0            0.0                           \r\n            40      G     -1.192220E-08  -9.645732E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      0.0           -1.465449E-01   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.414324E-07   0.0            0.0            0.0            0.0            0.0                           \r\n            43      G      0.0           -8.856653E-02   0.0            0.0            0.0            0.0                           \r\n            44      G     -3.541097E-02  -1.522356E-01   0.0            0.0            0.0            0.0                           \r\n            46      G     -4.981442E-02  -4.981408E-02   0.0            0.0            0.0            0.0                           \r\n            47      G     -9.066828E-02  -9.066486E-02   0.0            0.0            0.0            0.0                           \r\n           108      G     -1.452955E-02   1.558556E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DVANE1                             \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997520E-01  -3.238102E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      1.000000E+00  -1.441501E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788594E-01  -9.595670E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801476E-01  -1.415358E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599570E-01  -2.673961E-06   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620782E-01  -1.301922E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.626443E-01   8.360030E-06   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.659638E-01   1.039001E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DVANE2                             \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997520E-01  -3.238102E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      1.000000E+00   1.441494E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788594E-01  -9.595670E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801476E-01   1.415352E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599570E-01  -2.673961E-06   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620782E-01   1.301915E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.626443E-01   8.360030E-06   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.659638E-01  -1.038995E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DROOT1                             \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.626443E-01   8.360030E-06   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.659638E-01   1.039001E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.150761E-01   2.763956E-05   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.191406E-01   5.852914E-02   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.466363E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            3.650935E-05   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.524523E-01   3.550195E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.226156E-01   1.226150E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -9.071273E-02   9.069184E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DROOT2                             \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.626443E-01   8.360030E-06   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.659638E-01  -1.038995E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.150761E-01   2.763956E-05   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.191405E-01  -5.852871E-02   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.466363E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            3.650935E-05   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.522623E-01  -3.541324E-02   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.226152E-01  -1.226148E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -9.066828E-02  -9.066486E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DLVANE1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997458E-01  -1.117004E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      9.999938E-01  -1.441490E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788545E-01  -1.119511E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801426E-01  -1.415348E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599533E-01  -1.250994E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620747E-01  -1.301912E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.607602E-07  -3.626407E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.038993E-01  -3.659613E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DLVANE2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997458E-01  -1.117004E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      9.999938E-01   1.441488E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788545E-01  -1.119511E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801426E-01   1.415346E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599533E-01  -1.250994E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620747E-01   1.301910E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.607602E-07  -3.626407E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      1.038991E-01  -3.659613E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DLROOT1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.607602E-07  -3.626407E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.038993E-01  -3.659613E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.637443E-07  -2.150589E-01   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.852870E-02  -2.191390E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.465449E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.484796E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -3.541097E-02  -1.522356E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.226152E-01  -1.226148E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -9.066828E-02  -9.066486E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DLROOT2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.607602E-07  -3.626407E-01   0.0            0.0            0.0            0.0                           \r\n             2      G      1.038991E-01  -3.659613E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.637443E-07  -2.150589E-01   0.0            0.0            0.0            0.0                           \r\n             4      G      5.852852E-02  -2.191389E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -1.465449E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.484796E-07   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      3.540988E-02  -1.522346E-01   0.0            0.0            0.0            0.0                           \r\n             7      G      1.226143E-01  -1.226144E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      9.066191E-02  -9.066199E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DBVANE1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.997436E-01   1.984798E-08   0.0            0.0            0.0            0.0                           \r\n             2      G     -9.999917E-01   1.441486E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.788528E-01   1.882441E-08   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.801409E-01   1.415344E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.599520E-01   2.442134E-08   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.620733E-01   1.301908E-01   0.0            0.0            0.0            0.0                           \r\n             7      G      3.626399E-01   2.093786E-08   0.0            0.0            0.0            0.0                           \r\n             8      G      3.659605E-01   1.038989E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DBVANE2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.997436E-01   1.984798E-08   0.0            0.0            0.0            0.0                           \r\n             2      G     -9.999917E-01  -1.441486E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.788528E-01   1.882441E-08   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.801409E-01  -1.415344E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.599520E-01   2.442134E-08   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.620733E-01  -1.301908E-01   0.0            0.0            0.0            0.0                           \r\n             7      G      3.626399E-01   2.093786E-08   0.0            0.0            0.0            0.0                           \r\n             8      G      3.659605E-01  -1.038989E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DBROOT1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.626399E-01   2.093786E-08   0.0            0.0            0.0            0.0                           \r\n             2      G      3.659605E-01   1.038989E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      2.150584E-01   2.414884E-08   0.0            0.0            0.0            0.0                           \r\n             4      G      2.191385E-01   5.852849E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            2.615428E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      1.465443E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      1.522343E-01   3.540994E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      1.226144E-01   1.226146E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      9.066205E-02   9.066232E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DBROOT2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.626399E-01   2.093786E-08   0.0            0.0            0.0            0.0                           \r\n             2      G      3.659605E-01  -1.038989E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      2.150584E-01   2.414884E-08   0.0            0.0            0.0            0.0                           \r\n             4      G      2.191385E-01  -5.852846E-02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            2.615428E-08   0.0            0.0            0.0            0.0                           \r\n             5      G      1.465443E-01   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      1.522343E-01  -3.540988E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      1.226143E-01  -1.226144E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      9.066191E-02  -9.066199E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DRROOT1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.303531E-07   3.626415E-01   0.0            0.0            0.0            0.0                           \r\n             2      G      1.038992E-01   3.659620E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.726059E-06   2.150601E-01   0.0            0.0            0.0            0.0                           \r\n             4      G      5.852860E-02   2.191393E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.465488E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.611606E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      3.540997E-02   1.522359E-01   0.0            0.0            0.0            0.0                           \r\n             7      G      1.226144E-01   1.226146E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      9.066205E-02   9.066232E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DRROOT2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.303531E-07   3.626415E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.038995E-01   3.659620E-01   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.726059E-06   2.150601E-01   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.852887E-02   2.191394E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            1.465488E-01   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.611606E-06   0.0            0.0            0.0            0.0            0.0                           \r\n             6      G     -3.541860E-02   1.522445E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.226156E-01   1.226150E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -9.071273E-02   9.069184E-02   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DRVANE1                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997478E-01   1.697535E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      9.999957E-01  -1.441490E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788560E-01   2.100089E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801441E-01  -1.415348E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599543E-01   3.029057E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620757E-01  -1.301912E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.303531E-07   3.626415E-01   0.0            0.0            0.0            0.0                           \r\n             8      G      1.038992E-01   3.659620E-01   0.0            0.0            0.0            0.0                           \r\n1     WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                                SUBSTRUCTURE    DWINDMIL                           \r\n0     NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                                  COMPONENT       DRVANE2                            \r\n      EIGENVALUE =  0.328204E+07    (CYCLIC FREQUENCY =  2.883316E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.997478E-01   1.697535E-07   0.0            0.0            0.0            0.0                           \r\n             2      G      9.999957E-01   1.441493E-01   0.0            0.0            0.0            0.0                           \r\n             3      G      7.788560E-01   2.100089E-07   0.0            0.0            0.0            0.0                           \r\n             4      G      7.801441E-01   1.415351E-01   0.0            0.0            0.0            0.0                           \r\n             5      G      5.599543E-01   3.029057E-07   0.0            0.0            0.0            0.0                           \r\n             6      G      5.620757E-01   1.301915E-01   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.303531E-07   3.626415E-01   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.038995E-01   3.659620E-01   0.0            0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTUR      \r\n DATE:  5/17/95\r\n END TIME: 15:22:27\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02031a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02031A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   2,0                                                                       \r\n     TIME  15                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE1                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n       SOF(1) = FT19,500,NEW $ DEC VAX                                               \r\n         NAME = ABASIC                                                               \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n        3    SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n        4              S,N,NOGPDT $                                                  \r\n        5    EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n        6    ALTER         50, 50\r\n        7    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        8    LABEL     LBSBEG $                                                      \r\n        9    COND      LBLIS,DRY $                                                   \r\n       10    ALTER         65, 68\r\n       11    LABEL     LBLIS $                                                       \r\n       12    ALTER         70, 97\r\n       13    SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n       14              *ABASIC  */0       /*PVEC* $                                  \r\n       15    COND      LBSEND,DRY $                                                  \r\n       16    EQUIV     PG,PL/NOSET $                                                 \r\n       17    COND      LBL10,NOSET $                                                 \r\n       18    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n       19    CHKPNT    PO,PS,PL $                                                    \r\n       20    LABEL     LBL10 $                                                       \r\n       21    SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*ABASIC  */*KMTX*/*MMTX*/*PVEC*/\r\n       22              *BMTX*/*K4MX* $                                               \r\n       23    EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n       24    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       25              *    */*    */*    * $                                        \r\n       26    LABEL     LBSEND $                                                      \r\n       27    JUMP      FINIS $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                          \r\n                  3      LABEL    = SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                 \r\n                  4          LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION                               \r\n                  5      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    59, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CROD    1       1       1       2                                               \r\n                    2-        CROD    2       1       2       3                                               \r\n                    3-        CROD    11      1       11      12                                              \r\n                    4-        CROD    12      1       12      13                                              \r\n                    5-        CROD    21      1       21      22                                              \r\n                    6-        CROD    22      1       22      23                                              \r\n                    7-        CROD    31      1       31      32                                              \r\n                    8-        CROD    32      1       32      33                                              \r\n                    9-        CROD    41      1       41      42                                              \r\n                   10-        CROD    42      1       42      43                                              \r\n                   11-        CROD    51      1       51      52                                              \r\n                   12-        CROD    52      1       52      53                                              \r\n                   13-        CROD    111     1       1       11                                              \r\n                   14-        CROD    112     1       2       12                                              \r\n                   15-        CROD    113     1       3       13                                              \r\n                   16-        CROD    121     1       11      21                                              \r\n                   17-        CROD    122     1       12      22                                              \r\n                   18-        CROD    123     1       13      23                                              \r\n                   19-        CROD    131     1       21      31                                              \r\n                   20-        CROD    132     1       22      32                                              \r\n                   21-        CROD    133     1       23      33                                              \r\n                   22-        CROD    141     1       31      41                                              \r\n                   23-        CROD    142     1       32      42                                              \r\n                   24-        CROD    143     1       33      43                                              \r\n                   25-        CROD    151     1       41      51                                              \r\n                   26-        CROD    152     1       42      52                                              \r\n                   27-        CROD    153     1       43      53                                              \r\n                   28-        CROD    211     1       2       11                                              \r\n                   29-        CROD    212     1       2       13                                              \r\n                   30-        CROD    221     1       12      21                                              \r\n                   31-        CROD    222     1       12      23                                              \r\n                   32-        CROD    231     1       22      31                                              \r\n                   33-        CROD    232     1       22      33                                              \r\n                   34-        CROD    241     1       32      41                                              \r\n                   35-        CROD    242     1       32      43                                              \r\n                   36-        CROD    251     1       42      51                                              \r\n                   37-        CROD    252     1       42      53                                              \r\n                   38-        GRAV    980             980.0   .0      -1.0    .0                              \r\n                   39-        GRDSET                                                  3456                    \r\n                   40-        GRID    1               .0      -30.0   .0                                      \r\n                   41-        GRID    2               .0      .0      .0                                      \r\n                   42-        GRID    3               .0      30.0    .0                                      \r\n                   43-        GRID    11              40.0    -30.0   .0                                      \r\n                   44-        GRID    12              40.0    .0      .0                                      \r\n                   45-        GRID    13              40.0    30.0    .0                                      \r\n                   46-        GRID    21              80.0    -30.0   .0                                      \r\n                   47-        GRID    22              80.0    .0      .0                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    23              80.0    30.0    .0                                      \r\n                   49-        GRID    31              120.0   -30.0   .0                                      \r\n                   50-        GRID    32              120.0   .0      .0                                      \r\n                   51-        GRID    33              120.0   30.0    .0                                      \r\n                   52-        GRID    41              160.0   -30.0   .0                                      \r\n                   53-        GRID    42              160.0   .0      .0                                      \r\n                   54-        GRID    43              160.0   30.0    .0                                      \r\n                   55-        GRID    51              200.0   -30.0   .0                                      \r\n                   56-        GRID    52              200.0   .0      .0                                      \r\n                   57-        GRID    53              200.0   30.0    .0                                      \r\n                   58-        MAT1    1       10.0+6          .3      2.5-3                                   \r\n                   59-        PROD    1       1       .3                                                      \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n\r\n       4  SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       4  EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR6,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11A,NOGENL $                                                \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11A $                                                       \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  LABEL    LBL11 $                                                        \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR3,NOL $                                                   \r\n\r\n      50  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      50  LABEL     LBSBEG $                                                      \r\n\r\n      50  COND      LBLIS,DRY $                                                   \r\n\r\n      51  PURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/      \r\n                   SINGLE $                                                       \r\n\r\n      52  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      53  COND     LBL2,MPCF2 $                                                   \r\n\r\n      54  MCE1     USET,RG/GM $                                                   \r\n\r\n      55  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      56  LABEL    LBL2 $                                                         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      58  COND     LBL3,SINGLE $                                                  \r\n\r\n      59  SCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $                             \r\n\r\n      60  LABEL    LBL3 $                                                         \r\n\r\n      61  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      62  COND     LBL5,OMIT $                                                    \r\n\r\n      63  SMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $                  \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      68  LABEL     LBLIS $                                                       \r\n\r\n      69  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      97  SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n                    *ABASIC  */0       /*PVEC* $                                  \r\n\r\n      97  COND      LBSEND,DRY $                                                  \r\n\r\n      97  EQUIV     PG,PL/NOSET $                                                 \r\n\r\n      97  COND      LBL10,NOSET $                                                 \r\n\r\n      97  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      97  CHKPNT    PO,PS,PL $                                                    \r\n\r\n      97  LABEL     LBL10 $                                                       \r\n\r\n      97  SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*ABASIC  */*KMTX*/*MMTX*/*PVEC*/\r\n                    *BMTX*/*K4MX* $                                               \r\n\r\n      97  EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n\r\n      97  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      97  LABEL     LBSEND $                                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n\r\n      SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      97  JUMP      FINIS $                                                       \r\n\r\n      98  LABEL    ERROR1 $                                                       \r\n\r\n      99  PRTPARM  //-1/*INERTIA* $                                               \r\n\r\n     100  LABEL    ERROR2 $                                                       \r\n\r\n     101  PRTPARM  //-2/*INERTIA* $                                               \r\n\r\n     102  LABEL    ERROR3 $                                                       \r\n\r\n     103  PRTPARM  //-3/*INERTIA* $                                               \r\n\r\n     104  LABEL    ERROR4 $                                                       \r\n\r\n     105  PRTPARM  //-4/*INERTIA* $                                               \r\n\r\n     106  LABEL    ERROR5 $                                                       \r\n\r\n     107  PRTPARM  //-5/*INERTIA* $                                               \r\n\r\n     108  LABEL    ERROR6 $                                                       \r\n\r\n     109  PRTPARM  //-6/*INERTIA* $                                               \r\n\r\n     110  LABEL    FINIS $                                                        \r\n\r\n     111  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     112  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR5   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR2   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL11    NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             70\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.889\r\n                                        RMS WAVEFRONT    4.028\r\n                                        RMS BANDWIDTH    4.041\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.833\r\n                                        RMS WAVEFRONT    3.965\r\n                                        RMS BANDWIDTH    3.993\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         70        69\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.889     3.833\r\n                                        RMS WAVEFRONT (C-RMS)            4.028     3.965\r\n                                        RMS BANDWITCH (B-RMS)            4.041     3.993\r\n                                        NUMBER OF GRID POINTS (N)                     18\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                37\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        37\r\n                                        MATRIX DENSITY, PERCENT                   28.395\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   5\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3       2      11       3\r\n                         SEQGP         12       7      13       5      21       6      22      10\r\n                         SEQGP         23       8      31       9      32      13      33      11\r\n                         SEQGP         41      12      42      16      43      14      51      15\r\n                         SEQGP         52      18      53      17\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE ABASIC   SUBCASE        1 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET      980 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE ABASIC  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                                                                                   \r\n0     SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                                                                          \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   489472 WORDS.\r\n                      OR =      478 BLOCKS.\r\n                      OR =       97 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       10\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:23:39\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02032a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02032A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   2,0                                                                       \r\n     TIME  30                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE1                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n     SOF(1)   = FT19,500 $ DEC VAX                                                   \r\n     NAME     = BBASIC                                                               \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n        3    SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n        4              S,N,NOGPDT $                                                  \r\n        5    EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n        6    ALTER         50, 50\r\n        7    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        8    LABEL     LBSBEG $                                                      \r\n        9    COND      LBLIS,DRY $                                                   \r\n       10    ALTER         65, 68\r\n       11    LABEL     LBLIS $                                                       \r\n       12    ALTER         70, 97\r\n       13    SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n       14              *BBASIC  */0       /*PVEC* $                                  \r\n       15    COND      LBSEND,DRY $                                                  \r\n       16    EQUIV     PG,PL/NOSET $                                                 \r\n       17    COND      LBL10,NOSET $                                                 \r\n       18    SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n       19    CHKPNT    PO,PS,PL $                                                    \r\n       20    LABEL     LBL10 $                                                       \r\n       21    SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*BBASIC  */*KMTX*/*MMTX*/*PVEC*/\r\n       22              *BMTX*/*K4MX* $                                               \r\n       23    EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n       24    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       25              *    */*    */*    * $                                        \r\n       26    LABEL     LBSEND $                                                      \r\n       27    JUMP      FINIS $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                          \r\n                  3      LABEL    = SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                 \r\n                  4      LOAD     = 980 $ 1 G ACCELERATION IN -Y DIRECTION                               \r\n                  5      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    49, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CROD    1       1       1       2                                               \r\n                    2-        CROD    2       1       2       3                                               \r\n                    3-        CROD    11      1       11      12                                              \r\n                    4-        CROD    12      1       12      13                                              \r\n                    5-        CROD    21      1       21      22                                              \r\n                    6-        CROD    22      1       22      23                                              \r\n                    7-        CROD    31      1       31      32                                              \r\n                    8-        CROD    32      1       32      33                                              \r\n                    9-        CROD    41      1       41      42                                              \r\n                   10-        CROD    42      1       42      43                                              \r\n                   11-        CROD    111     1       1       11                                              \r\n                   12-        CROD    112     1       2       12                                              \r\n                   13-        CROD    113     1       3       13                                              \r\n                   14-        CROD    121     1       11      21                                              \r\n                   15-        CROD    122     1       12      22                                              \r\n                   16-        CROD    123     1       13      23                                              \r\n                   17-        CROD    131     1       21      31                                              \r\n                   18-        CROD    132     1       22      32                                              \r\n                   19-        CROD    133     1       23      33                                              \r\n                   20-        CROD    141     1       31      41                                              \r\n                   21-        CROD    142     1       32      42                                              \r\n                   22-        CROD    143     1       33      43                                              \r\n                   23-        CROD    211     1       2       11                                              \r\n                   24-        CROD    212     1       2       13                                              \r\n                   25-        CROD    221     1       12      21                                              \r\n                   26-        CROD    222     1       12      23                                              \r\n                   27-        CROD    231     1       22      31                                              \r\n                   28-        CROD    232     1       22      33                                              \r\n                   29-        CROD    241     1       32      41                                              \r\n                   30-        CROD    242     1       32      43                                              \r\n                   31-        GRAV    980             980.0   .0      -1.0    .0                              \r\n                   32-        GRDSET                                                  3456                    \r\n                   33-        GRID    1               30.0    0.0     0.0                                     \r\n                   34-        GRID    2               0.0     0.0     0.0                                     \r\n                   35-        GRID    3               -30.0   0.0     0.0                                     \r\n                   36-        GRID    11              30.0    40.0    0.0                                     \r\n                   37-        GRID    12              0.0     40.0    0.0                                     \r\n                   38-        GRID    13              -30.0   40.0    0.0                                     \r\n                   39-        GRID    21              30.0    80.0    0.0                                     \r\n                   40-        GRID    22              0.0     80.0    0.0                                     \r\n                   41-        GRID    23              -30.0   80.0    0.0                                     \r\n                   42-        GRID    31              30.0    120.0   0.0                                     \r\n                   43-        GRID    32              0.0     120.0   0.0                                     \r\n                   44-        GRID    33              -30.0   120.0   0.0                                     \r\n                   45-        GRID    41              30.0    160.0   0.0                                     \r\n                   46-        GRID    42              0.0     160.0   0.0                                     \r\n                   47-        GRID    43              -30.0   160.0   0.0                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        MAT1    1       10.0+6          .3      2.5-3                                   \r\n                   49-        PROD    1       1       .3                                                      \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*NOP*/ALLWAYS=-1 $                                          \r\n\r\n       4  SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/  \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       4  EQUIV     CASEI,CASECC/ALLWAYS $                                        \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR6,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11A,NOGENL $                                                \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11A $                                                       \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  LABEL    LBL11 $                                                        \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR3,NOL $                                                   \r\n\r\n      50  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      50  LABEL     LBSBEG $                                                      \r\n\r\n      50  COND      LBLIS,DRY $                                                   \r\n\r\n      51  PURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/      \r\n                   SINGLE $                                                       \r\n\r\n      52  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      53  COND     LBL2,MPCF2 $                                                   \r\n\r\n      54  MCE1     USET,RG/GM $                                                   \r\n\r\n      55  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      56  LABEL    LBL2 $                                                         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      58  COND     LBL3,SINGLE $                                                  \r\n\r\n      59  SCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $                             \r\n\r\n      60  LABEL    LBL3 $                                                         \r\n\r\n      61  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      62  COND     LBL5,OMIT $                                                    \r\n\r\n      63  SMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $                  \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      68  LABEL     LBLIS $                                                       \r\n\r\n      69  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      97  SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/         \r\n                    *BBASIC  */0       /*PVEC* $                                  \r\n\r\n      97  COND      LBSEND,DRY $                                                  \r\n\r\n      97  EQUIV     PG,PL/NOSET $                                                 \r\n\r\n      97  COND      LBL10,NOSET $                                                 \r\n\r\n      97  SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n      97  CHKPNT    PO,PS,PL $                                                    \r\n\r\n      97  LABEL     LBL10 $                                                       \r\n\r\n      97  SOFO      ,KAA,MAA,PL,   ,    //S,N,DRY/*BBASIC  */*KMTX*/*MMTX*/*PVEC*/\r\n                    *BMTX*/*K4MX* $                                               \r\n\r\n      97  EQUIV     CASESS,CASECC/ALWAYS $                                        \r\n\r\n      97  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n      97  LABEL     LBSEND $                                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n\r\n      SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      97  JUMP      FINIS $                                                       \r\n\r\n      98  LABEL    ERROR1 $                                                       \r\n\r\n      99  PRTPARM  //-1/*INERTIA* $                                               \r\n\r\n     100  LABEL    ERROR2 $                                                       \r\n\r\n     101  PRTPARM  //-2/*INERTIA* $                                               \r\n\r\n     102  LABEL    ERROR3 $                                                       \r\n\r\n     103  PRTPARM  //-3/*INERTIA* $                                               \r\n\r\n     104  LABEL    ERROR4 $                                                       \r\n\r\n     105  PRTPARM  //-4/*INERTIA* $                                               \r\n\r\n     106  LABEL    ERROR5 $                                                       \r\n\r\n     107  PRTPARM  //-5/*INERTIA* $                                               \r\n\r\n     108  LABEL    ERROR6 $                                                       \r\n\r\n     109  PRTPARM  //-6/*INERTIA* $                                               \r\n\r\n     110  LABEL    FINIS $                                                        \r\n\r\n     111  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     112  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR5   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR2   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL11    NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             57\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.800\r\n                                        RMS WAVEFRONT    3.958\r\n                                        RMS BANDWIDTH    3.975\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             56\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.733\r\n                                        RMS WAVEFRONT    3.882\r\n                                        RMS BANDWIDTH    3.916\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         57        56\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.800     3.733\r\n                                        RMS WAVEFRONT (C-RMS)            3.958     3.882\r\n                                        RMS BANDWITCH (B-RMS)            3.975     3.916\r\n                                        NUMBER OF GRID POINTS (N)                     15\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                30\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        30\r\n                                        MATRIX DENSITY, PERCENT                   33.333\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3       2      11       3\r\n                         SEQGP         12       7      13       5      21       6      22      10\r\n                         SEQGP         23       8      31       9      32      13      33      11\r\n                         SEQGP         41      12      42      15      43      14\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        1\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6327, SUBSTRUCTURE BBASIC   SUBCASE        1 IS IDENTIFIED BY\r\n                                    EXTERNAL STATIC LOAD SET      980 IN LODS ITEM.\r\n                                    REFER TO THIS NUMBER ON LOADC CARDS.\r\n0*** USER INFORMATION MESSAGE 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR SUBSTRUCTURE BBASIC  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                                                                                   \r\n0     SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                                                                          \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n       2  BBASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   483328 WORDS.\r\n                      OR =      472 BLOCKS.\r\n                      OR =       96 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       16\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:24:50\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02033a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02033A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   3,0                                                                       \r\n     TIME  25                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE2                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n     SOF(1)   = FT19,500 $ DEC VAX                                                   \r\n     OPTIONS K,M,P                                                                   \r\n     SOFPRINT TOC                                                                    \r\n     MREDUCE ABASIC                                                                  \r\n      NAME MA                                                                        \r\n      BOUNDARY 5                                                                     \r\n      FIXED 5                                                                        \r\n      METHOD 9                                                                       \r\n      OUTPUT 1,5,6,9,10                                                              \r\n     SOFPRINT TOC                                                                    \r\n     MREDUCE BBASIC                                                                  \r\n      NAME MB                                                                        \r\n      BOUNDARY 4                                                                     \r\n      FIXED 4                                                                        \r\n      METHOD 9                                                                       \r\n      OUTPUT 1,5,6,9,10                                                              \r\n     SOFPRINT TOC                                                                    \r\n     COMBINE MA,MB                                                                   \r\n      NAME MCOMB                                                                     \r\n      TOLERANCE 0.001                                                                \r\n      OUTPUT 2,7,12                                                                  \r\n      COMPONENT MB                                                                   \r\n      TRANSFORM 40                                                                   \r\n     SOFPRINT TOC                                                                    \r\n     MREDUCE MCOMB                                                                   \r\n      NAME RTRUSS                                                                    \r\n      BOUNDARY 42                                                                    \r\n      FIXED 9                                                                        \r\n      METHOD 90                                                                      \r\n      NMAX 18                                                                        \r\n      OUTPUT 1,5,6,9,10                                                              \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        5              *    */*    */*    * $                                        \r\n        6    MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*ABASIC  */    \r\n        7              S,N,DRY/3  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n        8    COND      LBM33  ,DRY $                                                 \r\n        9    SOFI      /K2  ,M2  ,P2  ,    ,     /S,N,DRY/*ABASIC  */*KMTX*/*MMTX*/  \r\n       10              *PVEC*/*BMTX*/*K4MX* $                                        \r\n       11    COND      LBM23  ,SKIPM $                                               \r\n       12    EQUIV     K2  ,KFFX/NOFIX $                                             \r\n       13    EQUIV     M2  ,MFFX/NOFIX $                                             \r\n       14    COND      LBM13  ,NOFIX $                                               \r\n       15    SCE1      USETR,K2  ,M2  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n       16    LABEL     LBM13   $                                                     \r\n       17    READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n       18              NEIGVS $                                                      \r\n       19    OFP       LAMAR,OEIGR,,,,// $                                           \r\n       20    EQUIV     PHIR,PHIS/NOFIX $                                             \r\n       21    COND      LBM23  ,NOFIX $                                               \r\n       22    UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n       23    LABEL     LBM23   $                                                     \r\n       24    MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K2  ,M2  ,    ,     ,P2  ,DMR,   \r\n       25              QSM/K1  ,M1  ,    ,     ,P1  ,PO1  /3  /S,N,DRY/*PVEC* $      \r\n       26    LABEL     LBM33   $                                                     \r\n       27    COND      FINIS,DRY $                                                   \r\n       28    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       29              *    */*    */*    * $                                        \r\n       30    MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*BBASIC  */    \r\n       31              S,N,DRY/5  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n       32    COND      LBM35  ,DRY $                                                 \r\n       33    SOFI      /K4  ,M4  ,P4  ,    ,     /S,N,DRY/*BBASIC  */*KMTX*/*MMTX*/  \r\n       34              *PVEC*/*BMTX*/*K4MX* $                                        \r\n       35    COND      LBM25  ,SKIPM $                                               \r\n       36    EQUIV     K4  ,KFFX/NOFIX $                                             \r\n       37    EQUIV     M4  ,MFFX/NOFIX $                                             \r\n       38    COND      LBM15  ,NOFIX $                                               \r\n       39    SCE1      USETR,K4  ,M4  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n       40    LABEL     LBM15   $                                                     \r\n       41    READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n       42              NEIGVS $                                                      \r\n       43    OFP       LAMAR,OEIGR,,,,// $                                           \r\n       44    EQUIV     PHIR,PHIS/NOFIX $                                             \r\n       45    COND      LBM25  ,NOFIX $                                               \r\n       46    UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       47    LABEL     LBM25   $                                                     \r\n       48    MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K4  ,M4  ,    ,     ,P4  ,DMR,   \r\n       49              QSM/K3  ,M3  ,    ,     ,P3  ,PO3  /5  /S,N,DRY/*PVEC* $      \r\n       50    LABEL     LBM35   $                                                     \r\n       51    COND      FINIS,DRY $                                                   \r\n       52    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       53              *    */*    */*    * $                                        \r\n       54    COMB1     CASECC,GEOM4//7  /S,N,DRY/*PVEC* $                            \r\n       55    COND      LB7  ,DRY $                                                   \r\n       56    COMB2     ,K1  ,K3  ,    ,    ,    ,    ,    /K5  /S,N,DRY/*K*/*    */  \r\n       57              *MA      */*MB      */*        */*        */*        */       \r\n       58              *        */*        * $                                       \r\n       59    SOFO      ,K5  ,,,,//S,N,DRY/*MCOMB   */*KMTX* $                        \r\n       60    COMB2     ,M1  ,M3  ,    ,    ,    ,    ,    /M5  /S,N,DRY/*M*/*    */  \r\n       61              *MA      */*MB      */*        */*        */*        */       \r\n       62              *        */*        * $                                       \r\n       63    SOFO      ,M5  ,,,,//S,N,DRY/*MCOMB   */*MMTX* $                        \r\n       64    COMB2     ,P1  ,P3  ,    ,    ,    ,    ,    /P5  /S,N,DRY/*P*/*PVEC*/  \r\n       65              *MA      */*MB      */*        */*        */*        */       \r\n       66              *        */*        * $                                       \r\n       67    SOFO      ,P5  ,,,,//S,N,DRY/*MCOMB   */*PVEC* $                        \r\n       68    LABEL     LB7   $                                                       \r\n       69    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       70              *    */*    */*    * $                                        \r\n       71    MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*MCOMB   */    \r\n       72              S,N,DRY/9  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n       73    COND      LBM39  ,DRY $                                                 \r\n       74    SOFI      /    ,    ,    ,    ,     /S,N,DRY/*MCOMB   */*KMTX*/*MMTX*/  \r\n       75              *PVEC*/*BMTX*/*K4MX* $                                        \r\n       76    COND      LBM29  ,SKIPM $                                               \r\n       77    EQUIV     K5  ,KFFX/NOFIX $                                             \r\n       78    EQUIV     M5  ,MFFX/NOFIX $                                             \r\n       79    COND      LBM19  ,NOFIX $                                               \r\n       80    SCE1      USETR,K5  ,M5  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n       81    LABEL     LBM19   $                                                     \r\n       82    READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n       83              NEIGVS $                                                      \r\n       84    OFP       LAMAR,OEIGR,,,,// $                                           \r\n       85    EQUIV     PHIR,PHIS/NOFIX $                                             \r\n       86    COND      LBM29  ,NOFIX $                                               \r\n       87    UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n       88    LABEL     LBM29   $                                                     \r\n       89    MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K5  ,M5  ,    ,     ,P5  ,DMR,   \r\n       90              QSM/K6  ,M6  ,    ,     ,P6  ,PO6  /9  /S,N,DRY/*PVEC* $      \r\n       91    LABEL     LBM39   $                                                     \r\n       92    COND      FINIS,DRY $                                                   \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       93    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       94              *    */*    */*    * $                                        \r\n       95    LABEL     LBSEND $                                                      \r\n       96    JUMP      FINIS $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                          \r\n                  3      LABEL    = MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3          \r\n                  4      $ USE 7 MODES PER COMPONENT AND 18 MODES OF COMBINATION                         \r\n                  5      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    13, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BDYC    4       BBASIC  2                                                       \r\n                    2-        BDYC    5       ABASIC  1                                                       \r\n                    3-        BDYC    9       ABASIC  2                                                       \r\n                    4-        BDYC    42      ABASIC  2       BBASIC  42                                      \r\n                    5-        BDYS1   1       12      1       2       3       51      52      53              \r\n                    6-        BDYS1   2       12      1       2       3                                       \r\n                    7-        BDYS1   42      2       2                                                       \r\n                    8-        EIGR    9       GIV     .0      10000.0         7                       +E1     \r\n                    9-        +E1     MAX                                                                     \r\n                   10-        EIGR    90      GIV     .0      10000.0         20                      +E2     \r\n                   11-        +E2     MAX                                                                     \r\n                   12-        TRANS   40              200.0   .0      .0      200.0   .0      1.0     +T1     \r\n                   13-        +T1     200.0   -100.0  .0                                                      \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n       4  LABEL     LBSBEG $                                                      \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*ABASIC  */    \r\n                    S,N,DRY/3  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n\r\n       4  COND      LBM33  ,DRY $                                                 \r\n\r\n       4  SOFI      /K2  ,M2  ,P2  ,    ,     /S,N,DRY/*ABASIC  */*KMTX*/*MMTX*/  \r\n                    *PVEC*/*BMTX*/*K4MX* $                                        \r\n\r\n       4  COND      LBM23  ,SKIPM $                                               \r\n\r\n       4  EQUIV     K2  ,KFFX/NOFIX $                                             \r\n\r\n       4  EQUIV     M2  ,MFFX/NOFIX $                                             \r\n\r\n       4  COND      LBM13  ,NOFIX $                                               \r\n\r\n       4  SCE1      USETR,K2  ,M2  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n\r\n       4  LABEL     LBM13   $                                                     \r\n\r\n       4  READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n                    NEIGVS $                                                      \r\n\r\n       4  OFP       LAMAR,OEIGR,,,,// $                                           \r\n\r\n       4  EQUIV     PHIR,PHIS/NOFIX $                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       4  COND      LBM23  ,NOFIX $                                               \r\n\r\n       4  UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n\r\n       4  LABEL     LBM23   $                                                     \r\n\r\n       4  MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K2  ,M2  ,    ,     ,P2  ,DMR,   \r\n                    QSM/K1  ,M1  ,    ,     ,P1  ,PO1  /3  /S,N,DRY/*PVEC* $      \r\n\r\n       4  LABEL     LBM33   $                                                     \r\n\r\n       4  COND      FINIS,DRY $                                                   \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*BBASIC  */    \r\n                    S,N,DRY/5  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n\r\n       4  COND      LBM35  ,DRY $                                                 \r\n\r\n       4  SOFI      /K4  ,M4  ,P4  ,    ,     /S,N,DRY/*BBASIC  */*KMTX*/*MMTX*/  \r\n                    *PVEC*/*BMTX*/*K4MX* $                                        \r\n\r\n       4  COND      LBM25  ,SKIPM $                                               \r\n\r\n       4  EQUIV     K4  ,KFFX/NOFIX $                                             \r\n\r\n       4  EQUIV     M4  ,MFFX/NOFIX $                                             \r\n\r\n       4  COND      LBM15  ,NOFIX $                                               \r\n\r\n       4  SCE1      USETR,K4  ,M4  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n\r\n       4  LABEL     LBM15   $                                                     \r\n\r\n       4  READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n                    NEIGVS $                                                      \r\n\r\n       4  OFP       LAMAR,OEIGR,,,,// $                                           \r\n\r\n       4  EQUIV     PHIR,PHIS/NOFIX $                                             \r\n\r\n       4  COND      LBM25  ,NOFIX $                                               \r\n\r\n       4  UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       4  LABEL     LBM25   $                                                     \r\n\r\n       4  MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K4  ,M4  ,    ,     ,P4  ,DMR,   \r\n                    QSM/K3  ,M3  ,    ,     ,P3  ,PO3  /5  /S,N,DRY/*PVEC* $      \r\n\r\n       4  LABEL     LBM35   $                                                     \r\n\r\n       4  COND      FINIS,DRY $                                                   \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  COMB1     CASECC,GEOM4//7  /S,N,DRY/*PVEC* $                            \r\n\r\n       4  COND      LB7  ,DRY $                                                   \r\n\r\n       4  COMB2     ,K1  ,K3  ,    ,    ,    ,    ,    /K5  /S,N,DRY/*K*/*    */  \r\n                    *MA      */*MB      */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       4  SOFO      ,K5  ,,,,//S,N,DRY/*MCOMB   */*KMTX* $                        \r\n\r\n       4  COMB2     ,M1  ,M3  ,    ,    ,    ,    ,    /M5  /S,N,DRY/*M*/*    */  \r\n                    *MA      */*MB      */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       4  SOFO      ,M5  ,,,,//S,N,DRY/*MCOMB   */*MMTX* $                        \r\n\r\n       4  COMB2     ,P1  ,P3  ,    ,    ,    ,    ,    /P5  /S,N,DRY/*P*/*PVEC*/  \r\n                    *MA      */*MB      */*        */*        */*        */       \r\n                    *        */*        * $                                       \r\n\r\n       4  SOFO      ,P5  ,,,,//S,N,DRY/*MCOMB   */*PVEC* $                        \r\n\r\n       4  LABEL     LB7   $                                                       \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*MCOMB   */    \r\n                    S,N,DRY/9  /S,N,NOFIX/S,N,SKIPM/*REAL* $                      \r\n\r\n       4  COND      LBM39  ,DRY $                                                 \r\n\r\n       4  SOFI      /    ,    ,    ,    ,     /S,N,DRY/*MCOMB   */*KMTX*/*MMTX*/  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                    *PVEC*/*BMTX*/*K4MX* $                                        \r\n\r\n       4  COND      LBM29  ,SKIPM $                                               \r\n\r\n       4  EQUIV     K5  ,KFFX/NOFIX $                                             \r\n\r\n       4  EQUIV     M5  ,MFFX/NOFIX $                                             \r\n\r\n       4  COND      LBM19  ,NOFIX $                                               \r\n\r\n       4  SCE1      USETR,K5  ,M5  ,    ,     /KFFX,KFSX,KSSX,MFFX,    ,      $   \r\n\r\n       4  LABEL     LBM19   $                                                     \r\n\r\n       4  READ      KFFX,MFFX,    ,     ,EEDR,USETR,/LAMAR,PHIR,MIR,OEIGR/*MODES*/\r\n                    NEIGVS $                                                      \r\n\r\n       4  OFP       LAMAR,OEIGR,,,,// $                                           \r\n\r\n       4  EQUIV     PHIR,PHIS/NOFIX $                                             \r\n\r\n       4  COND      LBM29  ,NOFIX $                                               \r\n\r\n       4  UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                                \r\n\r\n       4  LABEL     LBM29   $                                                     \r\n\r\n       4  MRED2     CASECC,LAMAR,PHIS,EQST,USETR,K5  ,M5  ,    ,     ,P5  ,DMR,   \r\n                    QSM/K6  ,M6  ,    ,     ,P6  ,PO6  /9  /S,N,DRY/*PVEC* $      \r\n\r\n       4  LABEL     LBM39   $                                                     \r\n\r\n       4  COND      FINIS,DRY $                                                   \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       4  LABEL     LBSEND $                                                      \r\n\r\n       4  JUMP      FINIS $                                                       \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     104  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED USETR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED EEDR     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED EQST     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED DMR      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KFFX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KFSX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KSSX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED MFFX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED LAMAR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED PHIR     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED MIR      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED OEIGR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION UMERGE     INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED PHIS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED USETR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED EEDR     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED EQST     ALREADY APPEARED AS OUTPUT\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED DMR      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KFFX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KFSX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED KSSX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED MFFX     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED LAMAR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED PHIR     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED MIR      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION READ       INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED OEIGR    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION UMERGE     INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED PHIS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED1      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED CSTM     APPEARS AS INPUT BEFORE BEING DEFINED\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MRED2      INSTRUCTION NO.   4\r\n     DATA BLOCK NAMED QSM      APPEARS AS INPUT BEFORE BEING DEFINED\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n       2  BBASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   483328 WORDS.\r\n                      OR =      472 BLOCKS.\r\n                      OR =       96 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       16\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK QSM      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK QSM      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK QSM      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                                      S U M M A R Y    O F    C U R R E N T    P R O B L E M\r\n\r\n             NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . ABASIC        NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE MA      \r\n             BOUNDARY SET IDENTIFICATION NUMBER  . . . . .        5      FIXED SET IDENTIFICATION NUMBER . . . .        5\r\n             RIGID BODY GRID POINT IDENTIFICATION NUMBER .              RIGID BODY SUBSTRUCTURE NAME . . . . .         \r\n             OLDBOUND FLAG SET . . . . . . . . . . . . . . NO            OLDMODES FLAG SET . . . . . . . . . . . NO  \r\n             FREE BODY MODES TO BE CALCULATED  . . . . . . NO            USER MODES FLAG SET . . . . . . . . . . NO  \r\n             SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO            EIGENVALUE EXTRACTION METHOD  . . . . .        9\r\n             MAXIMUM NUMBER OF FREQUENCIES TO BE USED  . . ALL           GPARAM VALUE  . . . . . . . . . . . . . 0.000000E+00\r\n             NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ABASIC        RANGE OF FREQUENCIES TO BE USED . . . . ALL \r\n                ABASIC  \r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      24, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        24        5.601143E+04        2.366673E+02        3.766677E+01        5.284617E-01        2.959989E+04             \r\n        2        23        2.024636E+05        4.499596E+02        7.161329E+01        5.549427E-01        1.123557E+05             \r\n        3        22        4.303660E+05        6.560228E+02        1.044093E+02        5.309593E-01        2.285068E+05             \r\n        4        21        4.775556E+05        6.910540E+02        1.099846E+02        4.262653E-01        2.035654E+05             \r\n        5        20        6.303828E+05        7.939665E+02        1.263637E+02        5.512223E-01        3.474810E+05             \r\n        6        19        1.015982E+06        1.007959E+03        1.604217E+02        3.549629E-01        3.606358E+05             \r\n        7        18        1.160696E+06        1.077356E+03        1.714665E+02        4.927448E-01        5.719267E+05             \r\n        8        17        1.535740E+06        1.239250E+03        1.972327E+02        0.0                 0.0                      \r\n        9        16        1.688206E+06        1.299310E+03        2.067916E+02        0.0                 0.0                      \r\n       10        15        1.835441E+06        1.354784E+03        2.156206E+02        0.0                 0.0                      \r\n       11        14        1.993628E+06        1.411959E+03        2.247202E+02        0.0                 0.0                      \r\n       12        13        2.272924E+06        1.507622E+03        2.399455E+02        0.0                 0.0                      \r\n       13        12        2.490456E+06        1.578118E+03        2.511653E+02        0.0                 0.0                      \r\n       14        11        2.689588E+06        1.639996E+03        2.610135E+02        0.0                 0.0                      \r\n       15        10        3.382310E+06        1.839106E+03        2.927027E+02        0.0                 0.0                      \r\n       16         9        3.528508E+06        1.878432E+03        2.989618E+02        0.0                 0.0                      \r\n       17         8        3.680405E+06        1.918438E+03        3.053289E+02        0.0                 0.0                      \r\n       18         7        4.072884E+06        2.018139E+03        3.211967E+02        0.0                 0.0                      \r\n       19         6        4.314360E+06        2.077104E+03        3.305813E+02        0.0                 0.0                      \r\n       20         5        4.401530E+06        2.097982E+03        3.339043E+02        0.0                 0.0                      \r\n       21         4        4.693424E+06        2.166431E+03        3.447982E+02        0.0                 0.0                      \r\n       22         3        4.794578E+06        2.189652E+03        3.484940E+02        0.0                 0.0                      \r\n       23         2        5.311776E+06        2.304729E+03        3.668090E+02        0.0                 0.0                      \r\n       24         1        5.563008E+06        2.358603E+03        3.753833E+02        0.0                 0.0                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        24\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         7\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n                        0 ROOTS BELOW   1.000000E-10\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE MA       COMPONENT  ABASIC                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      12                        2           3      12                        3           2      12    \r\n            51           4      12                       52           6      12                       53           5      12    \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE MA       COMPONENT  MA                                         \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n           101           7      1                       102           8      1                       103           9      1     \r\n           104          10      1                       105          11      1                       106          12      1     \r\n           107          13      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  MA                                         \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      12                        5           9      12                        6          11      12    \r\n             7          13      1                         8          14      1                         9          15      1     \r\n            10          16      1                        11          17      1                        12          18      1     \r\n            13          19      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      MA                                                 \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0       0.000000E+00   -0.300000E+02    0.000000E+00\r\n                                        2           0       0.000000E+00    0.300000E+02    0.000000E+00\r\n                                        3           0       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        4           0       0.200000E+03   -0.300000E+02    0.000000E+00\r\n                                        5           0       0.200000E+03    0.300000E+02    0.000000E+00\r\n                                        6           0       0.200000E+03    0.000000E+00    0.000000E+00\r\n                                        7          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        8          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        9          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       10          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       11          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       12          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       13          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  MA                                                 \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          ABASIC            1            980\r\n\r\n                          MA                       NO LOAD SETS FOR THIS COMPONENT.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                    MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE MA      \r\n\r\n                              USAGE CODES ARE 0 - RIGID BODY POINT\r\n                                              1 - INCLUDED IN MODAL SET\r\n                                              2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION\r\n                                              3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX\r\n\r\n                                        MODE                      USAGE      GRID\r\n                                       NUMBER        CYCLES        CODE    POINT ID       SIL\r\n\r\n                                           1      3.766677E+01      1           101        13\r\n                                           2      7.161329E+01      1           102        14\r\n                                           3      1.044093E+02      1           103        15\r\n                                           4      1.099846E+02      1           104        16\r\n                                           5      1.263637E+02      1           105        17\r\n                                           6      1.604217E+02      1           106        18\r\n                                           7      1.714665E+02      1           107        19\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       2  BBASIC     B     0    0    0    0    0    3  3     3     3  3  3                                                   \r\n       3  MA         M     0    0    1    0    0    3  3     3     3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   470016 WORDS.\r\n                      OR =      459 BLOCKS.\r\n                      OR =       94 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       29\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                                      S U M M A R Y    O F    C U R R E N T    P R O B L E M\r\n\r\n             NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . BBASIC        NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE MB      \r\n             BOUNDARY SET IDENTIFICATION NUMBER  . . . . .        4      FIXED SET IDENTIFICATION NUMBER . . . .        4\r\n             RIGID BODY GRID POINT IDENTIFICATION NUMBER .              RIGID BODY SUBSTRUCTURE NAME . . . . .         \r\n             OLDBOUND FLAG SET . . . . . . . . . . . . . . NO            OLDMODES FLAG SET . . . . . . . . . . . NO  \r\n             FREE BODY MODES TO BE CALCULATED  . . . . . . NO            USER MODES FLAG SET . . . . . . . . . . NO  \r\n             SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO            EIGENVALUE EXTRACTION METHOD  . . . . .        9\r\n             MAXIMUM NUMBER OF FREQUENCIES TO BE USED  . . ALL           GPARAM VALUE  . . . . . . . . . . . . . 0.000000E+00\r\n             NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN BBASIC        RANGE OF FREQUENCIES TO BE USED . . . . ALL \r\n                BBASIC  \r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      24, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        24        7.501747E+03        8.661263E+01        1.378483E+01        3.013400E-01        2.260576E+03             \r\n        2        23        1.074225E+05        3.277537E+02        5.216362E+01        5.153695E-01        5.536227E+04             \r\n        3        22        1.643713E+05        4.054273E+02        6.452576E+01        3.315326E-01        5.449444E+04             \r\n        4        21        3.705308E+05        6.087123E+02        9.687958E+01        4.161166E-01        1.541840E+05             \r\n        5        20        6.012425E+05        7.753983E+02        1.234085E+02        4.258454E-01        2.560364E+05             \r\n        6        19        8.654981E+05        9.303215E+02        1.480653E+02        3.684948E-01        3.189315E+05             \r\n        7        18        9.059270E+05        9.518020E+02        1.514840E+02        1.382124E-01        1.252103E+05             \r\n        8        17        1.353059E+06        1.163210E+03        1.851307E+02        0.0                 0.0                      \r\n        9        16        1.612736E+06        1.269935E+03        2.021165E+02        0.0                 0.0                      \r\n       10        15        1.836006E+06        1.354993E+03        2.156538E+02        0.0                 0.0                      \r\n       11        14        2.027653E+06        1.423957E+03        2.266298E+02        0.0                 0.0                      \r\n       12        13        2.029488E+06        1.424601E+03        2.267323E+02        0.0                 0.0                      \r\n       13        12        2.484966E+06        1.576378E+03        2.508883E+02        0.0                 0.0                      \r\n       14        11        2.751798E+06        1.658855E+03        2.640149E+02        0.0                 0.0                      \r\n       15        10        3.458823E+06        1.859791E+03        2.959949E+02        0.0                 0.0                      \r\n       16         9        3.562177E+06        1.887373E+03        3.003848E+02        0.0                 0.0                      \r\n       17         8        3.621002E+06        1.902893E+03        3.028548E+02        0.0                 0.0                      \r\n       18         7        4.262820E+06        2.064660E+03        3.286008E+02        0.0                 0.0                      \r\n       19         6        4.466222E+06        2.113344E+03        3.363491E+02        0.0                 0.0                      \r\n       20         5        4.511780E+06        2.124095E+03        3.380602E+02        0.0                 0.0                      \r\n       21         4        4.771722E+06        2.184427E+03        3.476624E+02        0.0                 0.0                      \r\n       22         3        5.303790E+06        2.302996E+03        3.665332E+02        0.0                 0.0                      \r\n       23         2        5.612925E+06        2.369161E+03        3.770637E+02        0.0                 0.0                      \r\n       24         1        7.754982E+06        2.784777E+03        4.432110E+02        0.0                 0.0                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        24\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         7\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n                        0 ROOTS BELOW   1.000000E-10\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE MB       COMPONENT  BBASIC                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      12                        2           3      12                        3           2      12    \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE MB       COMPONENT  MB                                         \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n           101           4      1                       102           5      1                       103           6      1     \r\n           104           7      1                       105           8      1                       106           9      1     \r\n           107          10      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  MB                                         \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      1                         5           8      1                         6           9      1     \r\n             7          10      1                         8          11      1                         9          12      1     \r\n            10          13      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      MB                                                 \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0       0.300000E+02    0.000000E+00    0.000000E+00\r\n                                        2           0      -0.300000E+02    0.000000E+00    0.000000E+00\r\n                                        3           0       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        4          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        5          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        6          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        7          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        8          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        9          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       10          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  MB                                                 \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          BBASIC            1            980\r\n\r\n                          MB                       NO LOAD SETS FOR THIS COMPONENT.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                    MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE MB      \r\n\r\n                              USAGE CODES ARE 0 - RIGID BODY POINT\r\n                                              1 - INCLUDED IN MODAL SET\r\n                                              2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION\r\n                                              3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX\r\n\r\n                                        MODE                      USAGE      GRID\r\n                                       NUMBER        CYCLES        CODE    POINT ID       SIL\r\n\r\n                                           1      1.378483E+01      1           101         7\r\n                                           2      5.216362E+01      1           102         8\r\n                                           3      6.452576E+01      1           103         9\r\n                                           4      9.687958E+01      1           104        10\r\n                                           5      1.234085E+02      1           105        11\r\n                                           6      1.480653E+02      1           106        12\r\n                                           7      1.514840E+02      1           107        13\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       3  MA         M     0    0    1    0    0    3  3     3     3  3  3                                                   \r\n       4  MB         M     0    0    2    0    0    3  3     3     3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   457728 WORDS.\r\n                      OR =      447 BLOCKS.\r\n                      OR =       91 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       41\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                              SUMMARY OF CASE CONTROL FOR COMBINE OPERATION                                         \r\n\r\n          THIS JOB STEP WILL COMBINE 2 PSEUDOSTRUCTURES\r\n\r\n          CONNECTIONS ARE GENERATED AUTOMATICALLY.\r\n\r\n          THE RESULTANT PSEUDOSTRUCTURE NAME IS MCOMB   \r\n\r\n          THE TOLERANCE ON CONNECTIONS IS    0.100000E-02\r\n\r\n          THE PRINT CONTROL OPTIONS ARE   2  7 12\r\n\r\n          COMPONENT SUBSTRUCTURE NO. 1 NAME = MA      \r\n\r\n          COMPONENT SUBSTRUCTURE NO. 2 NAME = MB      \r\n\r\n               TRANS SET ID =       40\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                P S E U D O S T R U C T U R E   T A B L E   O F   C O N T E N T S                                  \r\n                                  PSEUDO-       NO. OF                                                                              \r\n                                 STRUCTURE    COMPONENTS    ---------- COMPONENT NAMES -----------                                  \r\n                                  MA               2\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n\r\n      MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n\r\n\r\n+                                                           ABASIC    MA      \r\n                                  MB               2\r\n+                                                           BBASIC    MB      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                   SUMMARY OF PROCESSED TRANS BULK DATA                                             \r\n\r\n\r\n                                                TRANS SET IDENTIFICATION NUMBER =       40\r\n\r\n                                                  COORDINATES OF ORIGIN IN BASIC SYSTEM\r\n                                                0.200000E+03   0.000000E+00   0.000000E+00\r\n\r\n                                                          TRANSFORMATION MATRIX\r\n\r\n                                           *****                                          *****\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.100000E+01   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *   -0.100000E+01   0.000000E+00   0.000000E+00    *\r\n                                           *                                                  *\r\n                                           *    0.000000E+00   0.000000E+00   0.100000E+01    *\r\n                                           *                                                  *\r\n                                           *****                                          *****\r\n\r\n\r\n                                        NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL GRID NUMBERS\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   MA         MB                                                                            \r\n             1           1        12       ABASIC             \r\n                                           1                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             2           3        12       ABASIC             \r\n                                           3                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             3           5        12       ABASIC             \r\n                                           2                                                                         \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             4           7        1        MA                 \r\n                                           101                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             5           8        1        MA                 \r\n                                           102                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             6           9        1        MA                 \r\n                                           103                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             7          10        1        MA                 \r\n                                           104                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             8          11        1        MA                 \r\n                                           105                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n             9          12        1        MA                 \r\n                                           106                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            10          13        1        MA                 \r\n                                           107                                                                       \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            11          14        12       ABASIC     BBASIC  \r\n                                           53         3                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            12          16        12       ABASIC     BBASIC  \r\n                                           52         2                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            13          18        12       ABASIC     BBASIC  \r\n                                           51         1                                                              \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            14          20        1                   MB      \r\n                                                      102                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            15          21        1                   MB      \r\n                                                      101                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                               SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES                                           \r\n         INTERNAL   INTERNAL   DEGREES OF  ********************** P S E U D O S T R U C T U R E   N A M E S *************           \r\n         POINT NO    DOF NO      FREEDOM   MA         MB                                                                            \r\n            16          22        1                   MB      \r\n                                                      106                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            17          23        1                   MB      \r\n                                                      107                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            18          24        1                   MB      \r\n                                                      103                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            19          25        1                   MB      \r\n                                                      104                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n            20          26        1                   MB      \r\n                                                      105                                                            \r\n         ---------------------------------------------------------------------------------------------------------------   \r\n0*** USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3                                          \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3                                          \r\n       5  MCOMB      C     0    0    3    0    0    3  3     3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   447488 WORDS.\r\n                      OR =      437 BLOCKS.\r\n                      OR =       89 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       51\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                                      S U M M A R Y    O F    C U R R E N T    P R O B L E M\r\n\r\n             NAME OF PSEUDOSTRUCTURE TO BE REDUCED . . . . MCOMB         NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE RTRUSS  \r\n             BOUNDARY SET IDENTIFICATION NUMBER  . . . . .       42      FIXED SET IDENTIFICATION NUMBER . . . .        9\r\n             RIGID BODY GRID POINT IDENTIFICATION NUMBER .              RIGID BODY SUBSTRUCTURE NAME . . . . .         \r\n             OLDBOUND FLAG SET . . . . . . . . . . . . . . NO            OLDMODES FLAG SET . . . . . . . . . . . NO  \r\n             FREE BODY MODES TO BE CALCULATED  . . . . . . NO            USER MODES FLAG SET . . . . . . . . . . NO  \r\n             SAVE REDUCTION PRODUCTS . . . . . . . . . . . NO            EIGENVALUE EXTRACTION METHOD  . . . . .       90\r\n             MAXIMUM NUMBER OF FREQUENCIES TO BE USED  . .       18      GPARAM VALUE  . . . . . . . . . . . . . 0.000000E+00\r\n             NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN MCOMB         RANGE OF FREQUENCIES TO BE USED . . . . ALL \r\n                ABASIC    MA        BBASIC    MB      \r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        19        5.104395E+02        2.259291E+01        3.595773E+00        2.719603E+00        1.388193E+03             \r\n        2        18        1.217818E+04        1.103548E+02        1.756351E+01        5.551619E-01        6.760863E+03             \r\n        3        20        3.204877E+04        1.790217E+02        2.849219E+01        1.430428E+00        4.584346E+04             \r\n        4        17        6.161780E+04        2.482293E+02        3.950692E+01        1.785353E-01        1.100095E+04             \r\n        5        15        1.473744E+05        3.838937E+02        6.109858E+01        6.981911E-01        1.028955E+05             \r\n        6        14        2.544345E+05        5.044150E+02        8.028014E+01        1.349923E-01        3.434668E+04             \r\n        7        16        2.815767E+05        5.306380E+02        8.445366E+01        3.569186E-01        1.005000E+05             \r\n        8        13        3.861274E+05        6.213915E+02        9.889752E+01        7.388127E-01        2.852758E+05             \r\n        9        12        4.931355E+05        7.022361E+02        1.117643E+02        4.163700E-01        2.053268E+05             \r\n       10        11        6.006571E+05        7.750208E+02        1.233484E+02        5.564590E-02        3.342411E+04             \r\n       11        10        6.423382E+05        8.014600E+02        1.275563E+02        3.634932E-02        2.334855E+04             \r\n       12         9        6.708717E+05        8.190676E+02        1.303586E+02        1.083267E+00        7.267331E+05             \r\n       13         8        7.186602E+05        8.477383E+02        1.349217E+02        4.451531E-01        3.199138E+05             \r\n       14         7        9.314798E+05        9.651320E+02        1.536055E+02        3.435716E-01        3.200300E+05             \r\n       15         6        1.036319E+06        1.017997E+03        1.620193E+02        3.128464E-01        3.242086E+05             \r\n       16         5        1.283678E+06        1.132995E+03        1.803218E+02        4.245862E-01        5.450322E+05             \r\n       17         4        1.590236E+06        1.261046E+03        2.007017E+02        3.175385E-01        5.049613E+05             \r\n       18         3        1.717214E+06        1.310425E+03        2.085606E+02        9.566334E-03        1.642744E+04             \r\n       19         2        2.963560E+06        1.721500E+03        2.739851E+02        1.537367E-01        4.556081E+05             \r\n       20         1        6.596654E+06        2.568395E+03        4.087728E+02        5.232833E-02        3.451919E+05             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        20\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        20\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n                        0 ROOTS BELOW   1.000000E-10\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RTRUSS   COMPONENT  ABASIC                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             1           1      12                        2           3      12                        3           2      12    \r\n            52           4      2     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RTRUSS   COMPONENT  MA                                         \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n\r\n                              ALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEEN REDUCED OUT.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RTRUSS   COMPONENT  BBASIC                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n             2           4      2     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RTRUSS   COMPONENT  MB                                         \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n\r\n                              ALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEEN REDUCED OUT.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                         EQSS ITEM FOR SUBSTRUCTURE RTRUSS   COMPONENT  RTRUSS                                     \r\n     GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT          GRID POINT   INTERNAL     COMPONENT  \r\n         ID       POINT ID        DOF                 ID       POINT ID        DOF                 ID       POINT ID        DOF     \r\n           101           5      1                       102           6      1                       103           7      1     \r\n           104           8      1                       105           9      1                       106          10      1     \r\n           107          11      1                       108          12      1                       109          13      1     \r\n           110          14      1                       111          15      1                       112          16      1     \r\n           113          17      1                       114          18      1                       115          19      1     \r\n           116          20      1                       117          21      1                       118          22      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                        EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE  RTRUSS                                     \r\n      INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT           INTERNAL    INTERNAL     COMPONENT  \r\n      POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF              POINT ID     SIL ID         DOF     \r\n             1           1      12                        2           3      12                        3           5      12    \r\n             4           7      2                         5           8      1                         6           9      1     \r\n             7          10      1                         8          11      1                         9          12      1     \r\n            10          13      1                        11          14      1                        12          15      1     \r\n            13          16      1                        14          17      1                        15          18      1     \r\n            16          19      1                        17          20      1                        18          21      1     \r\n            19          22      1                        20          23      1                        21          24      1     \r\n            22          25      1     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                BGSS ITEM FOR SUBSTRUCTURE      RTRUSS                                             \r\n                                 INTERNAL     CSTM ID                  C O O R D I N A T E S                                        \r\n                                 POINT ID       NO.              X1              X2              X3                                 \r\n                                        1           0       0.000000E+00   -0.300000E+02    0.000000E+00\r\n                                        2           0       0.000000E+00    0.300000E+02    0.000000E+00\r\n                                        3           0       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        4           0       0.200000E+03    0.000000E+00    0.000000E+00\r\n                                        5          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        6          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        7          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        8          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                        9          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       10          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       11          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       12          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       13          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       14          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       15          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       16          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       17          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       18          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       19          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       20          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       21          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n                                       22          -1       0.000000E+00    0.000000E+00    0.000000E+00\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                                    LODS ITEM FOR SUBSTRUCTURE  RTRUSS                                             \r\n                          COMPONENT    NUMBER OF                                                                                    \r\n                            NAME       LOAD SETS   L O A D   S E T   I D E N T I F I C A T I O N   N U M B E R S                    \r\n\r\n                          ABASIC            1            980\r\n\r\n                          MA                       NO LOAD SETS FOR THIS COMPONENT.\r\n\r\n                          BBASIC            1            980\r\n\r\n                          MB                       NO LOAD SETS FOR THIS COMPONENT.\r\n\r\n                          RTRUSS                   NO LOAD SETS FOR THIS COMPONENT.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n0                                    MODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE RTRUSS  \r\n\r\n                              USAGE CODES ARE 0 - RIGID BODY POINT\r\n                                              1 - INCLUDED IN MODAL SET\r\n                                              2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICIPATION\r\n                                              3 - EXCLUDED FROM MODAL SET BECAUSE OF RANGE OR NMAX\r\n\r\n                                        MODE                      USAGE      GRID\r\n                                       NUMBER        CYCLES        CODE    POINT ID       SIL\r\n\r\n                                           1      3.595773E+00      1           101         8\r\n                                           2      1.756351E+01      1           102         9\r\n                                           3      2.849219E+01      1           103        10\r\n                                           4      3.950692E+01      1           104        11\r\n                                           5      6.109858E+01      1           105        12\r\n                                           6      8.028014E+01      1           106        13\r\n                                           7      8.445366E+01      1           107        14\r\n                                           8      9.889752E+01      1           108        15\r\n                                           9      1.117643E+02      1           109        16\r\n                                          10      1.233484E+02      1           110        17\r\n                                          11      1.275563E+02      1           111        18\r\n                                          12      1.303586E+02      1           112        19\r\n                                          13      1.349217E+02      1           113        20\r\n                                          14      1.536055E+02      1           114        21\r\n                                          15      1.620193E+02      1           115        22\r\n                                          16      1.803218E+02      1           116        23\r\n                                          17      2.007017E+02      1           117        24\r\n                                          18      2.085606E+02      1           118        25\r\n                                          19      2.739851E+02      3\r\n                                          20      4.087728E+02      3\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                                                                                   \r\n0     MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3                                                                   \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3                                          \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3                                          \r\n       5  MCOMB      C     0    0    3    0    6    3  3     3  3  3  3  3  3  3  3                       3  3  3            \r\n       6  RTRUSS     M     0    0    5    0    0    3  3     3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   433152 WORDS.\r\n                      OR =      423 BLOCKS.\r\n                      OR =       86 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       65\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:25:35\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02034a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D02034A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   9,0                                                                       \r\n     TIME  40                                                                        \r\n     DIAG  23                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE2                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n     SOF(1)   = FT19,500 $ DEC VAX                                                   \r\n     OPTIONS K,M,P                                                                   \r\n     SOFPRINT TOC                                                                    \r\n     SOLVE RTRUSS                                                                    \r\n     RECOVER RTRUSS                                                                  \r\n     PRINT RTRUSS                                                                    \r\n     OLOAD = ALL                                                                     \r\n      PRINT ABASIC                                                                   \r\n       UIMPROVE YES                                                                  \r\n       RANGE 0.0,0.41                                                                \r\n       ENERGY ALL                                                                    \r\n      PRINT MA                                                                       \r\n      PRINT BBASIC                                                                   \r\n       UIMPROVE YES                                                                  \r\n       RANGE 0.0,0.41                                                                \r\n       ENERGY ALL                                                                    \r\n      PRINT MB                                                                       \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER          4\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n        5              *    */*    */*    * $                                        \r\n        6    ALTER          5,  5\r\n        7    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n        8    SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n        9              BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*RTRUSS  */S,N,LUSET/        \r\n       10              S,N,NOGPDT $                                                  \r\n       11    PURGE     CSTM $                                                        \r\n       12    EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n       13              DYNS,DYNAMICS/ALWAYS $                                        \r\n       14    COND      LB3  ,DRY $                                                   \r\n       15    ALTER         12, 22\r\n       16    ALTER         26, 27\r\n       17    ALTER         49, 60\r\n       18    SOFI      /K1  ,M1  ,    ,     ,/DRY/*RTRUSS  */*KMTX*/*MMTX*/*BMTX*/   \r\n       19              *K4MX* $                                                      \r\n       20    EQUIV     K1  ,KGG/NOKGGX $                                             \r\n       21    COND      LB2K,NOKGGX $                                                 \r\n       22    ADD       KGGX,K1  /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n       23    LABEL     LB2K $                                                        \r\n       24    EQUIV     M1  ,MGG/NOMGG $                                              \r\n       25    COND      LB2M,NOMGG $                                                  \r\n       26    ADD       MGG,M1  /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n       27    EQUIV     MGGX,MGG/ALWAYS $                                             \r\n       28    LABEL     LB2M $                                                        \r\n       29    LABEL     LB3   $                                                       \r\n       30    CHKPNT    MGG,BGG,K4GG $                                                \r\n       31    ALTER        110,111\r\n       32    PARAM     //*AND*/MDEMA/NOUE/NOM2PP $                                   \r\n       33    PARAM     //*ADD*/KDEK2/1/0 $                                           \r\n       34    PARAM     //*ADD*/NOMGG/1/0 $                                           \r\n       35    ALTER        117,117\r\n       36    EQUIV     K2DD,KDD/KDEK2 $                                              \r\n       37    EQUIV     M2DD,MDD/NOMGG $                                              \r\n       38    EQUIV     B2DD,BDD/NOBGG $                                              \r\n       39    ALTER        136,150\r\n       40    EQUIV     UDVT,UPVC/NOA $                                               \r\n       41    COND      LBL19,NOA $                                                   \r\n       42    SDR1      USETD,,UDVT,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $                 \r\n       43    LABEL     LBL19 $                                                       \r\n       44    CHKPNT    UPVC $                                                        \r\n       45    EQUIV     UPVC,UGV/NOUE $                                               \r\n       46    COND      LBUE,NOUE $                                                   \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n       47    UPARTN    USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $                             \r\n       48    LABEL     LBUE $                                                        \r\n       49    FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n       50    PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n       51    LABEL     LB4   $                                                       \r\n       52    RCOVR     CASESS,GEOM4,KGG,MGG,PPT,UGV ,DIT,DLT,   ,    ,TOL/OUGV1 ,    \r\n       53              OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/4  /*RTRUSS  */    \r\n       54              9   /     /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n       55              S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n       56    EQUIV     OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n       57    EQUIV     OPG1,OPG/NOSORT2 $                                            \r\n       58    COND      NST24  ,NOSORT2 $                                             \r\n       59    SDR3      OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $                        \r\n       60    LABEL     NST24   $                                                     \r\n       61    OFP       OUGV ,OPG,OQG,,,//S,N,CARDNO $                                \r\n       62    COND      LBB4  ,ILOOP $                                                \r\n       63    REPT      LB4  ,100 $                                                   \r\n       64    LABEL     LBB4   $                                                      \r\n       65    SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n       66    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       67              *    */*    */*    * $                                        \r\n       68    LABEL     LBSEND $                                                      \r\n       69    JUMP      FINIS $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                          \r\n                  3      LABEL    = SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                             \r\n                  4         SET 1 = 7 THRU 13                                                            \r\n                  5           SPC = 123                                                                  \r\n                  6         DLOAD = 101                                                                  \r\n                  7            IC = 522                                                                  \r\n                  8         TSTEP = 40                                                                   \r\n                  9         OLOAD = ALL                                                                  \r\n                 10          DISP = ALL                                                                  \r\n                 11      SDISP(SORT2) = 1                                                                \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =     8, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        DAREAS  980     BBASIC  2       2       1.0+3                                   \r\n                    2-        LOADC   980     1.0     ABASIC  980     1.0                                     \r\n                    3-        PARAM   G       .05                                                             \r\n                    4-        PARAM   W3      .01                                                             \r\n                    5-        SPCS1   123     ABASIC  12      1       2       3                               \r\n                    6-        TICS    522     BBASIC  2       2       .1                                      \r\n                    7-        TLOAD2  101     980                     .39     12.0                            \r\n                    8-        TSTEP   40      40      2.0-2   1                                               \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $     \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $                       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n       4  LABEL     LBSBEG $                                                      \r\n\r\n       4  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n       5  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n\r\n       5  SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,     \r\n                    BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*RTRUSS  */S,N,LUSET/        \r\n                    S,N,NOGPDT $                                                  \r\n\r\n       5  PURGE     CSTM $                                                        \r\n\r\n       5  EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/      \r\n                    DYNS,DYNAMICS/ALWAYS $                                        \r\n\r\n       5  COND      LB3  ,DRY $                                                   \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS                                                      \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      60  SOFI      /K1  ,M1  ,    ,     ,/DRY/*RTRUSS  */*KMTX*/*MMTX*/*BMTX*/   \r\n                    *K4MX* $                                                      \r\n\r\n      60  EQUIV     K1  ,KGG/NOKGGX $                                             \r\n\r\n      60  COND      LB2K,NOKGGX $                                                 \r\n\r\n      60  ADD       KGGX,K1  /KGG/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      60  LABEL     LB2K $                                                        \r\n\r\n      60  EQUIV     M1  ,MGG/NOMGG $                                              \r\n\r\n      60  COND      LB2M,NOMGG $                                                  \r\n\r\n      60  ADD       MGG,M1  /MGGX/(1.0,0.0)/(1.0,0.0) $                           \r\n\r\n      60  EQUIV     MGGX,MGG/ALWAYS $                                             \r\n\r\n      60  LABEL     LB2M $                                                        \r\n\r\n      60  LABEL     LB3   $                                                       \r\n\r\n      60  CHKPNT    MGG,BGG,K4GG $                                                \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $                   \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $                   \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $               \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/                 \r\n                   NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      90  COND     ERROR1,NOTRL $                                                 \r\n\r\n      91  PURGE    PNLD/NONLFT$                                                   \r\n\r\n      92  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBLFL3,NOFL $                                                  \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBLFL3 $                                                       \r\n\r\n      99  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     100  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     101  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     102  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     103  COND     LBLFL2,NOFL $                                                  \r\n\r\n     104  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     105  COND     LBLFL2,NOABFL $                                                \r\n\r\n     106  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     107  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     108  LABEL    LBLFL2 $                                                       \r\n\r\n     109  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     111  PARAM     //*AND*/MDEMA/NOUE/NOM2PP $                                   \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     111  PARAM     //*ADD*/KDEK2/1/0 $                                           \r\n\r\n     111  PARAM     //*ADD*/NOMGG/1/0 $                                           \r\n\r\n     112  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     113  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     114  COND     LBL16,NOGPDT $                                                 \r\n\r\n     115  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/       \r\n                   C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/                    \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     116  LABEL    LBL16 $                                                        \r\n\r\n     117  EQUIV     K2DD,KDD/KDEK2 $                                              \r\n\r\n     117  EQUIV     M2DD,MDD/NOMGG $                                              \r\n\r\n     117  EQUIV     B2DD,BDD/NOBGG $                                              \r\n\r\n     118  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n     119  PARAM    //*MPY*/REPEATT/1/-1 $                                         \r\n\r\n     120  LABEL    LBL13 $                                                        \r\n\r\n     121  PURGE    PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,     \r\n                   OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $           \r\n\r\n     122  CASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $                 \r\n\r\n     123  PARAM    //*MPY*/NCOL/0/1 $                                             \r\n\r\n     124  TRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,  \r\n                   MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $                       \r\n\r\n     125  EQUIV    PPT,PDT/NOSET $                                                \r\n\r\n     126  TRD      CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/\r\n                   NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $                              \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     127  VDR      CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/            \r\n                   *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $                      \r\n\r\n     128  COND     LBL15,NOD $                                                    \r\n\r\n     129  SDR3     OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $                              \r\n\r\n     130  OFP      OUDV2,OPNL2,,,,//S,N,CARDNO $                                  \r\n\r\n     131  XYTRAN   XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/          \r\n                   S,N,CARDNO $                                                   \r\n\r\n     132  XYPLOT   XYPLTTA// $                                                    \r\n\r\n     133  LABEL    LBL15 $                                                        \r\n\r\n     134  PARAM    //*AND*/PJUMP/NOP/JUMPPLOT $                                   \r\n\r\n     135  COND     LBL18,PJUMP $                                                  \r\n\r\n     150  EQUIV     UDVT,UPVC/NOA $                                               \r\n\r\n     150  COND      LBL19,NOA $                                                   \r\n\r\n     150  SDR1      USETD,,UDVT,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $                 \r\n\r\n     150  LABEL     LBL19 $                                                       \r\n\r\n     150  CHKPNT    UPVC $                                                        \r\n\r\n     150  EQUIV     UPVC,UGV/NOUE $                                               \r\n\r\n     150  COND      LBUE,NOUE $                                                   \r\n\r\n     150  UPARTN    USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $                             \r\n\r\n     150  LABEL     LBUE $                                                        \r\n\r\n     150  FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $           \r\n\r\n     150  PARAM     //*ADD*/ILOOP/0/0 $                                           \r\n\r\n     150  LABEL     LB4   $                                                       \r\n\r\n     150  RCOVR     CASESS,GEOM4,KGG,MGG,PPT,UGV ,DIT,DLT,   ,    ,TOL/OUGV1 ,    \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                    OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/4  /*RTRUSS  */    \r\n                    9   /     /S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/   \r\n                    S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $             \r\n\r\n     150  EQUIV     OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $                       \r\n\r\n     150  EQUIV     OPG1,OPG/NOSORT2 $                                            \r\n\r\n     150  COND      NST24  ,NOSORT2 $                                             \r\n\r\n     150  SDR3      OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $                        \r\n\r\n     150  LABEL     NST24   $                                                     \r\n\r\n     150  OFP       OUGV ,OPG,OQG,,,//S,N,CARDNO $                                \r\n\r\n     150  COND      LBB4  ,ILOOP $                                                \r\n\r\n     150  REPT      LB4  ,100 $                                                   \r\n\r\n     150  LABEL     LBB4   $                                                      \r\n\r\n     150  SOFO      ,U1,U2,U3,U4,U5//-1/*XXXXXXXX* $                              \r\n\r\n     150  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n     150  LABEL     LBSEND $                                                      \r\n\r\n     150  JUMP      FINIS $                                                       \r\n\r\n     151  LABEL    LBL18 $                                                        \r\n\r\n     152  COND     FINIS,REPEATT $                                                \r\n\r\n     153  REPT     LBL13,100 $                                                    \r\n\r\n     154  PRTPARM  //-2/*DIRTRD* $                                                \r\n\r\n     155  JUMP     FINIS $                                                        \r\n\r\n     156  LABEL    ERROR1 $                                                       \r\n\r\n     157  PRTPARM  //-1/*DIRTRD* $                                                \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*DIRTRD* $                                                \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     160  LABEL    FINIS  $                                                       \r\n\r\n     161  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     162  END      $                                                              \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR3   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION TA1        INSTRUCTION NO.  24\r\n     DATA BLOCK NAMED CSTM     APPEARS AS INPUT BEFORE BEING DEFINED\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO.  62\r\n     DATA BLOCK NAMED GPST     APPEARS AS INPUT BEFORE BEING DEFINED\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3                       3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3                                          \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3                                          \r\n       5  MCOMB      C     0    0    3    0    6    3  3     3  3  3  3  3  3  3  3                       3  3  3            \r\n       6  RTRUSS     M     0    0    5    0    0    3  3     3  3  3  3  3                                                   \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   433152 WORDS.\r\n                      OR =      423 BLOCKS.\r\n                      OR =       86 PERCENT.\r\n0*** HIGHEST BLOCK USED  =       65\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n\r\n      SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =       7\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.000000E-01                                                                                             \r\n   2.000000E-02     S      8.815945E-02                                                                                             \r\n   4.000000E-02     S      6.656072E-02                                                                                             \r\n   6.000000E-02     S      3.653554E-02                                                                                             \r\n   8.000000E-02     S      4.480211E-03                                                                                             \r\n   9.999999E-02     S     -3.194106E-02                                                                                             \r\n   1.200000E-01     S     -6.737154E-02                                                                                             \r\n   1.400000E-01     S     -8.747876E-02                                                                                             \r\n   1.600000E-01     S     -8.548176E-02                                                                                             \r\n   1.800000E-01     S     -6.843473E-02                                                                                             \r\n   2.000000E-01     S     -4.407183E-02                                                                                             \r\n   2.200000E-01     S     -1.103443E-02                                                                                             \r\n   2.400000E-01     S      3.025798E-02                                                                                             \r\n   2.600000E-01     S      6.635091E-02                                                                                             \r\n   2.800000E-01     S      8.341487E-02                                                                                             \r\n   3.000000E-01     S      8.328048E-02                                                                                             \r\n   3.200000E-01     S      7.347896E-02                                                                                             \r\n   3.400000E-01     S      5.150254E-02                                                                                             \r\n   3.600000E-01     S      1.380486E-02                                                                                             \r\n   3.800000E-01     S     -2.907512E-02                                                                                             \r\n   4.000000E-01     S     -1.245541E-02                                                                                             \r\n   4.200000E-01     S      5.247950E-02                                                                                             \r\n   4.400001E-01     S      1.738018E-01                                                                                             \r\n   4.600001E-01     S      3.338889E-01                                                                                             \r\n   4.800001E-01     S      5.253527E-01                                                                                             \r\n   5.000001E-01     S      7.059575E-01                                                                                             \r\n   5.200000E-01     S      8.252974E-01                                                                                             \r\n   5.400000E-01     S      8.613840E-01                                                                                             \r\n   5.600000E-01     S      8.171533E-01                                                                                             \r\n   5.800000E-01     S      7.085238E-01                                                                                             \r\n   6.000000E-01     S      5.485846E-01                                                                                             \r\n   6.199999E-01     S      3.519410E-01                                                                                             \r\n   6.399999E-01     S      1.657290E-01                                                                                             \r\n   6.599999E-01     S      4.705777E-02                                                                                             \r\n   6.799999E-01     S      5.316249E-03                                                                                             \r\n   6.999999E-01     S      2.580528E-02                                                                                             \r\n   7.199998E-01     S      1.205863E-01                                                                                             \r\n   7.399998E-01     S      2.918324E-01                                                                                             \r\n   7.599998E-01     S      4.913020E-01                                                                                             \r\n   7.799998E-01     S      6.643022E-01                                                                                             \r\n   7.999998E-01     S      7.893048E-01                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =       8\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S     -1.523045E-02                                                                                             \r\n   4.000000E-02     S     -1.237081E-02                                                                                             \r\n   6.000000E-02     S     -7.042690E-03                                                                                             \r\n   8.000000E-02     S     -4.196157E-04                                                                                             \r\n   9.999999E-02     S      6.231257E-03                                                                                             \r\n   1.200000E-01     S      1.179453E-02                                                                                             \r\n   1.400000E-01     S      1.505227E-02                                                                                             \r\n   1.600000E-01     S      1.537959E-02                                                                                             \r\n   1.800000E-01     S      1.287046E-02                                                                                             \r\n   2.000000E-01     S      7.850649E-03                                                                                             \r\n   2.200000E-01     S      1.276599E-03                                                                                             \r\n   2.400000E-01     S     -5.437912E-03                                                                                             \r\n   2.600000E-01     S     -1.116264E-02                                                                                             \r\n   2.800000E-01     S     -1.480745E-02                                                                                             \r\n   3.000000E-01     S     -1.551803E-02                                                                                             \r\n   3.200000E-01     S     -1.331131E-02                                                                                             \r\n   3.400000E-01     S     -8.614450E-03                                                                                             \r\n   3.600000E-01     S     -2.167254E-03                                                                                             \r\n   3.800000E-01     S      4.645561E-03                                                                                             \r\n   4.000000E-01     S      1.381419E-01                                                                                             \r\n   4.200000E-01     S      1.297451E-01                                                                                             \r\n   4.400001E-01     S      1.072717E-01                                                                                             \r\n   4.600001E-01     S      7.626966E-02                                                                                             \r\n   4.800001E-01     S      4.283313E-02                                                                                             \r\n   5.000001E-01     S      1.193522E-02                                                                                             \r\n   5.200000E-01     S     -9.271138E-03                                                                                             \r\n   5.400000E-01     S     -1.655531E-02                                                                                             \r\n   5.600000E-01     S     -9.947259E-03                                                                                             \r\n   5.800000E-01     S      1.053067E-02                                                                                             \r\n   6.000000E-01     S      4.114959E-02                                                                                             \r\n   6.199999E-01     S      7.463019E-02                                                                                             \r\n   6.399999E-01     S      1.058075E-01                                                                                             \r\n   6.599999E-01     S      1.289165E-01                                                                                             \r\n   6.799999E-01     S      1.381097E-01                                                                                             \r\n   6.999999E-01     S      1.328598E-01                                                                                             \r\n   7.199998E-01     S      1.143742E-01                                                                                             \r\n   7.399998E-01     S      8.475357E-02                                                                                             \r\n   7.599998E-01     S      5.088473E-02                                                                                             \r\n   7.799998E-01     S      1.945516E-02                                                                                             \r\n   7.999998E-01     S     -4.963427E-03                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =       9\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S      4.369505E-03                                                                                             \r\n   4.000000E-02     S     -3.728039E-03                                                                                             \r\n   6.000000E-02     S     -4.933822E-03                                                                                             \r\n   8.000000E-02     S      3.035272E-03                                                                                             \r\n   9.999999E-02     S      5.384113E-03                                                                                             \r\n   1.200000E-01     S     -2.292921E-03                                                                                             \r\n   1.400000E-01     S     -5.698332E-03                                                                                             \r\n   1.600000E-01     S      1.490979E-03                                                                                             \r\n   1.800000E-01     S      5.882416E-03                                                                                             \r\n   2.000000E-01     S     -6.330216E-04                                                                                             \r\n   2.200000E-01     S     -5.957850E-03                                                                                             \r\n   2.400000E-01     S     -2.510403E-04                                                                                             \r\n   2.600000E-01     S      5.936128E-03                                                                                             \r\n   2.800000E-01     S      1.117760E-03                                                                                             \r\n   3.000000E-01     S     -5.805555E-03                                                                                             \r\n   3.200000E-01     S     -1.936145E-03                                                                                             \r\n   3.400000E-01     S      5.543554E-03                                                                                             \r\n   3.600000E-01     S      2.701374E-03                                                                                             \r\n   3.800000E-01     S     -5.142214E-03                                                                                             \r\n   4.000000E-01     S     -8.726780E-02                                                                                             \r\n   4.200000E-01     S     -6.869928E-02                                                                                             \r\n   4.400001E-01     S     -6.734984E-02                                                                                             \r\n   4.600001E-01     S     -8.608397E-02                                                                                             \r\n   4.800001E-01     S     -9.016794E-02                                                                                             \r\n   5.000001E-01     S     -7.161241E-02                                                                                             \r\n   5.200000E-01     S     -6.522517E-02                                                                                             \r\n   5.400000E-01     S     -8.291548E-02                                                                                             \r\n   5.600000E-01     S     -9.143139E-02                                                                                             \r\n   5.800000E-01     S     -7.531825E-02                                                                                             \r\n   6.000000E-01     S     -6.454504E-02                                                                                             \r\n   6.199999E-01     S     -7.870421E-02                                                                                             \r\n   6.399999E-01     S     -9.186224E-02                                                                                             \r\n   6.599999E-01     S     -7.964581E-02                                                                                             \r\n   6.799999E-01     S     -6.432583E-02                                                                                             \r\n   6.999999E-01     S     -7.469823E-02                                                                                             \r\n   7.199998E-01     S     -9.156410E-02                                                                                             \r\n   7.399998E-01     S     -8.319910E-02                                                                                             \r\n   7.599998E-01     S     -6.548493E-02                                                                                             \r\n   7.799998E-01     S     -7.137086E-02                                                                                             \r\n   7.999998E-01     S     -8.951692E-02                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =      10\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S     -1.694718E-12                                                                                             \r\n   4.000000E-02     S     -1.409229E-12                                                                                             \r\n   6.000000E-02     S     -8.143664E-13                                                                                             \r\n   8.000000E-02     S     -3.340990E-14                                                                                             \r\n   9.999999E-02     S      7.247197E-13                                                                                             \r\n   1.200000E-01     S      1.317135E-12                                                                                             \r\n   1.400000E-01     S      1.669599E-12                                                                                             \r\n   1.600000E-01     S      1.737536E-12                                                                                             \r\n   1.800000E-01     S      1.473986E-12                                                                                             \r\n   2.000000E-01     S      8.811805E-13                                                                                             \r\n   2.200000E-01     S      1.177510E-13                                                                                             \r\n   2.400000E-01     S     -6.137056E-13                                                                                             \r\n   2.600000E-01     S     -1.230186E-12                                                                                             \r\n   2.800000E-01     S     -1.661180E-12                                                                                             \r\n   3.000000E-01     S     -1.772566E-12                                                                                             \r\n   3.200000E-01     S     -1.506977E-12                                                                                             \r\n   3.400000E-01     S     -9.445705E-13                                                                                             \r\n   3.600000E-01     S     -2.322239E-13                                                                                             \r\n   3.800000E-01     S      4.997236E-13                                                                                             \r\n   4.000000E-01     S      1.517892E-11                                                                                             \r\n   4.200000E-01     S      1.432760E-11                                                                                             \r\n   4.400001E-01     S      1.179518E-11                                                                                             \r\n   4.600001E-01     S      8.217086E-12                                                                                             \r\n   4.800001E-01     S      4.448860E-12                                                                                             \r\n   5.000001E-01     S      1.050695E-12                                                                                             \r\n   5.200000E-01     S     -1.319877E-12                                                                                             \r\n   5.400000E-01     S     -2.207586E-12                                                                                             \r\n   5.600000E-01     S     -1.495822E-12                                                                                             \r\n   5.800000E-01     S      8.661392E-13                                                                                             \r\n   6.000000E-01     S      4.363312E-12                                                                                             \r\n   6.199999E-01     S      8.081033E-12                                                                                             \r\n   6.399999E-01     S      1.152080E-11                                                                                             \r\n   6.599999E-01     S      1.417122E-11                                                                                             \r\n   6.799999E-01     S      1.528793E-11                                                                                             \r\n   6.999999E-01     S      1.464593E-11                                                                                             \r\n   7.199998E-01     S      1.247990E-11                                                                                             \r\n   7.399998E-01     S      9.196089E-12                                                                                             \r\n   7.599998E-01     S      5.464461E-12                                                                                             \r\n   7.799998E-01     S      1.885828E-12                                                                                             \r\n   7.999998E-01     S     -9.344306E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =      11\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S      2.978844E-04                                                                                             \r\n   4.000000E-02     S     -4.977832E-04                                                                                             \r\n   6.000000E-02     S      3.582857E-05                                                                                             \r\n   8.000000E-02     S      4.746224E-04                                                                                             \r\n   9.999999E-02     S     -3.549214E-04                                                                                             \r\n   1.200000E-01     S     -2.372653E-04                                                                                             \r\n   1.400000E-01     S      5.159435E-04                                                                                             \r\n   1.600000E-01     S     -1.096871E-04                                                                                             \r\n   1.800000E-01     S     -4.439891E-04                                                                                             \r\n   2.000000E-01     S      4.101275E-04                                                                                             \r\n   2.200000E-01     S      1.684166E-04                                                                                             \r\n   2.400000E-01     S     -5.257452E-04                                                                                             \r\n   2.600000E-01     S      1.871553E-04                                                                                             \r\n   2.800000E-01     S      4.005707E-04                                                                                             \r\n   3.000000E-01     S     -4.593534E-04                                                                                             \r\n   3.200000E-01     S     -8.978851E-05                                                                                             \r\n   3.400000E-01     S      5.209791E-04                                                                                             \r\n   3.600000E-01     S     -2.636208E-04                                                                                             \r\n   3.800000E-01     S     -3.422228E-04                                                                                             \r\n   4.000000E-01     S      1.516309E-02                                                                                             \r\n   4.200000E-01     S      2.670142E-02                                                                                             \r\n   4.400001E-01     S      1.810911E-02                                                                                             \r\n   4.600001E-01     S      1.234154E-02                                                                                             \r\n   4.800001E-01     S      2.482062E-02                                                                                             \r\n   5.000001E-01     S      2.219919E-02                                                                                             \r\n   5.200000E-01     S      1.146381E-02                                                                                             \r\n   5.400000E-01     S      2.132246E-02                                                                                             \r\n   5.600000E-01     S      2.543631E-02                                                                                             \r\n   5.800000E-01     S      1.277873E-02                                                                                             \r\n   6.000000E-01     S      1.719839E-02                                                                                             \r\n   6.199999E-01     S      2.690294E-02                                                                                             \r\n   6.399999E-01     S      1.591370E-02                                                                                             \r\n   6.599999E-01     S      1.361724E-02                                                                                             \r\n   6.799999E-01     S      2.618333E-02                                                                                             \r\n   6.999999E-01     S      1.998030E-02                                                                                             \r\n   7.199998E-01     S      1.159397E-02                                                                                             \r\n   7.399998E-01     S      2.348134E-02                                                                                             \r\n   7.599998E-01     S      2.382607E-02                                                                                             \r\n   7.799998E-01     S      1.170202E-02                                                                                             \r\n   7.999998E-01     S      1.956268E-02                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =      12\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S     -2.980998E-05                                                                                             \r\n   4.000000E-02     S      5.518763E-05                                                                                             \r\n   6.000000E-02     S     -1.715727E-05                                                                                             \r\n   8.000000E-02     S     -4.062347E-05                                                                                             \r\n   9.999999E-02     S      5.177641E-05                                                                                             \r\n   1.200000E-01     S     -3.428138E-06                                                                                             \r\n   1.400000E-01     S     -4.894579E-05                                                                                             \r\n   1.600000E-01     S      4.515951E-05                                                                                             \r\n   1.800000E-01     S      1.054977E-05                                                                                             \r\n   2.000000E-01     S     -5.427506E-05                                                                                             \r\n   2.200000E-01     S      3.573561E-05                                                                                             \r\n   2.400000E-01     S      2.393382E-05                                                                                             \r\n   2.600000E-01     S     -5.628973E-05                                                                                             \r\n   2.800000E-01     S      2.407253E-05                                                                                             \r\n   3.000000E-01     S      3.591715E-05                                                                                             \r\n   3.200000E-01     S     -5.486801E-05                                                                                             \r\n   3.400000E-01     S      1.087300E-05                                                                                             \r\n   3.600000E-01     S      4.577730E-05                                                                                             \r\n   3.800000E-01     S     -5.009510E-05                                                                                             \r\n   4.000000E-01     S      1.036290E-05                                                                                             \r\n   4.200000E-01     S     -6.575337E-04                                                                                             \r\n   4.400001E-01     S     -1.364656E-04                                                                                             \r\n   4.600001E-01     S      8.851314E-05                                                                                             \r\n   4.800001E-01     S     -6.245209E-04                                                                                             \r\n   5.000001E-01     S     -2.428315E-04                                                                                             \r\n   5.200000E-01     S      1.464040E-04                                                                                             \r\n   5.400000E-01     S     -5.676272E-04                                                                                             \r\n   5.600000E-01     S     -3.493494E-04                                                                                             \r\n   5.800000E-01     S      1.805439E-04                                                                                             \r\n   6.000000E-01     S     -4.902811E-04                                                                                             \r\n   6.199999E-01     S     -4.495974E-04                                                                                             \r\n   6.399999E-01     S      1.888724E-04                                                                                             \r\n   6.599999E-01     S     -3.971435E-04                                                                                             \r\n   6.799999E-01     S     -5.375313E-04                                                                                             \r\n   6.999999E-01     S      1.708841E-04                                                                                             \r\n   7.199998E-01     S     -2.938264E-04                                                                                             \r\n   7.399998E-01     S     -6.078489E-04                                                                                             \r\n   7.599998E-01     S      1.276595E-04                                                                                             \r\n   7.799998E-01     S     -1.865556E-04                                                                                             \r\n   7.999998E-01     S     -6.563094E-04                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n      POINT-ID =      13\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   2.000000E-02     S      3.146629E-05                                                                                             \r\n   4.000000E-02     S     -6.012245E-05                                                                                             \r\n   6.000000E-02     S      2.327763E-05                                                                                             \r\n   8.000000E-02     S      3.895046E-05                                                                                             \r\n   9.999999E-02     S     -5.877398E-05                                                                                             \r\n   1.200000E-01     S      1.456084E-05                                                                                             \r\n   1.400000E-01     S      4.556892E-05                                                                                             \r\n   1.600000E-01     S     -5.610604E-05                                                                                             \r\n   1.800000E-01     S      5.503623E-06                                                                                             \r\n   2.000000E-01     S      5.117908E-05                                                                                             \r\n   2.200000E-01     S     -5.217599E-05                                                                                             \r\n   2.400000E-01     S     -3.698973E-06                                                                                             \r\n   2.600000E-01     S      5.566003E-05                                                                                             \r\n   2.800000E-01     S     -4.706835E-05                                                                                             \r\n   3.000000E-01     S     -1.284879E-05                                                                                             \r\n   3.200000E-01     S      5.891513E-05                                                                                             \r\n   3.400000E-01     S     -4.089295E-05                                                                                             \r\n   3.600000E-01     S     -2.174879E-05                                                                                             \r\n   3.800000E-01     S      6.087411E-05                                                                                             \r\n   4.000000E-01     S     -1.576408E-03                                                                                             \r\n   4.200000E-01     S     -9.391787E-04                                                                                             \r\n   4.400001E-01     S     -1.424090E-03                                                                                             \r\n   4.600001E-01     S     -1.620648E-03                                                                                             \r\n   4.800001E-01     S     -9.564092E-04                                                                                             \r\n   5.000001E-01     S     -1.364101E-03                                                                                             \r\n   5.200000E-01     S     -1.658243E-03                                                                                             \r\n   5.400000E-01     S     -9.820409E-04                                                                                             \r\n   5.600000E-01     S     -1.303077E-03                                                                                             \r\n   5.800000E-01     S     -1.688383E-03                                                                                             \r\n   6.000000E-01     S     -1.015522E-03                                                                                             \r\n   6.199999E-01     S     -1.242332E-03                                                                                             \r\n   6.399999E-01     S     -1.710419E-03                                                                                             \r\n   6.599999E-01     S     -1.056133E-03                                                                                             \r\n   6.799999E-01     S     -1.183176E-03                                                                                             \r\n   6.999999E-01     S     -1.723872E-03                                                                                             \r\n   7.199998E-01     S     -1.103000E-03                                                                                             \r\n   7.399998E-01     S     -1.126883E-03                                                                                             \r\n   7.599998E-01     S     -1.728453E-03                                                                                             \r\n   7.799998E-01     S     -1.155114E-03                                                                                             \r\n   7.999998E-01     S     -1.074666E-03                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            1.000000E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            1.000000E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n           107      M      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n           113      M      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.815945E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.815945E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.523045E-02   4.369505E-03  -1.694718E-12   2.978844E-04  -2.980998E-05   3.146629E-05                  \r\n           107      M     -2.928291E-11   2.344582E-06   4.527486E-06   2.360650E-06   1.630445E-06  -1.233203E-06                  \r\n           113      M     -2.437502E-11  -1.828217E-07   2.098408E-11   1.724543E-11  -2.687163E-11  -6.321027E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            6.656072E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            6.656072E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.237081E-02  -3.728039E-03  -1.409229E-12  -4.977832E-04   5.518763E-05  -6.012245E-05                  \r\n           107      M     -2.431540E-11  -4.547157E-06  -8.836069E-06  -4.625920E-06  -3.198882E-06   2.421302E-06                  \r\n           113      M     -2.024057E-11   3.606397E-07   1.741882E-11   1.432375E-11  -2.230718E-11   1.253806E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            3.653554E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            3.653554E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.042690E-03  -4.933822E-03  -8.143664E-13   3.582857E-05  -1.715727E-05   2.327763E-05                  \r\n           107      M     -1.404030E-11   1.926709E-06   3.880667E-06   2.078067E-06   1.446588E-06  -1.099401E-06                  \r\n           113      M     -1.168751E-11  -1.679327E-07   1.005634E-11   8.272073E-12  -1.287903E-11  -6.010465E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            4.480211E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            4.480211E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -4.196157E-04   3.035272E-03  -3.340990E-14   4.746224E-04  -4.062347E-05   3.895046E-05                  \r\n           107      M     -5.918261E-13   2.738487E-06   5.145078E-06   2.632696E-06   1.807878E-06  -1.362523E-06                  \r\n           113      M     -4.924323E-13  -1.973476E-07   4.264425E-13   3.469367E-13  -5.456217E-13  -6.627317E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -3.194106E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -3.194106E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      6.231257E-03   5.384113E-03   7.247197E-13  -3.549214E-04   5.177641E-05  -5.877398E-05                  \r\n           107      M      1.249149E-11  -4.500593E-06  -8.778929E-06  -4.605236E-06  -3.186259E-06   2.412489E-06                  \r\n           113      M      1.039826E-11   3.599222E-07  -8.946538E-12  -7.359906E-12   1.145789E-11   1.252957E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -6.737154E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -6.737154E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.179453E-02  -2.292921E-03   1.317135E-12  -2.372653E-04  -3.428138E-06   1.456084E-05                  \r\n           107      M      2.275422E-11   1.488901E-06   3.208504E-06   1.786103E-06   1.256970E-06  -9.615605E-07                  \r\n           113      M      1.894064E-11  -1.527065E-07  -1.630489E-11  -1.340102E-11   2.087969E-11  -5.695801E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -8.747876E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -8.747876E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.505227E-02  -5.698332E-03   1.669599E-12   5.159435E-04  -4.894579E-05   4.556892E-05                  \r\n           107      M      2.885206E-11   3.104623E-06   5.729733E-06   2.893092E-06   1.978252E-06  -1.486937E-06                  \r\n           113      M      2.401639E-11  -2.114849E-07  -2.067576E-11  -1.699137E-11   2.647658E-11  -6.929170E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -8.548176E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -8.548176E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.537959E-02   1.490979E-03   1.737536E-12  -1.096871E-04   4.515951E-05  -5.610604E-05                  \r\n           107      M      2.999569E-11  -4.407912E-06  -8.664989E-06  -4.563953E-06  -3.161059E-06   2.394892E-06                  \r\n           113      M      2.496868E-11   3.584883E-07  -2.149059E-11  -1.766815E-11   2.752129E-11   1.251260E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -6.843473E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -6.843473E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.287046E-02   5.882416E-03   1.473986E-12  -4.439891E-04   1.054977E-05   5.503623E-06                  \r\n           107      M      2.542785E-11   1.035383E-06   2.515032E-06   1.485953E-06   1.062269E-06  -8.201349E-07                  \r\n           113      M      2.116663E-11  -1.371698E-07  -1.821504E-11  -1.497959E-11   2.332712E-11  -5.377204E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -4.407183E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -4.407183E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.850649E-03  -6.330216E-04   8.811805E-13   4.101275E-04  -5.427506E-05   5.117908E-05                  \r\n           107      M      1.521699E-11   3.439454E-06   6.277940E-06   3.140772E-06   2.140954E-06  -1.606032E-06                  \r\n           113      M      1.266673E-11  -2.252092E-07  -1.090301E-11  -8.962651E-12   1.396231E-11  -7.226421E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -1.103443E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -1.103443E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.276599E-03  -5.957850E-03   1.177510E-13   1.684166E-04   3.573561E-05  -5.217599E-05                  \r\n           107      M      2.057816E-12  -4.270005E-06  -8.494930E-06  -4.502238E-06  -3.123371E-06   2.368569E-06                  \r\n           113      M      1.712604E-12   3.563406E-07  -1.478336E-12  -1.209350E-12   1.892346E-12   1.248716E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            3.025798E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            3.025798E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -5.437912E-03  -2.510403E-04  -6.137056E-13  -5.257452E-04   2.393382E-05  -3.698973E-06                  \r\n           107      M     -1.059373E-11   5.705289E-07   1.804412E-06   1.178843E-06   8.631845E-07  -6.755906E-07                  \r\n           113      M     -8.818333E-12  -1.213494E-07   7.589782E-12   6.240054E-12  -9.719631E-12  -5.054849E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            6.635091E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            6.635091E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.116264E-02   5.936128E-03  -1.230186E-12   1.871553E-04  -5.628973E-05   5.566003E-05                  \r\n           107      M     -2.126756E-11   3.739748E-06   6.786405E-06   3.374722E-06   2.295400E-06  -1.719415E-06                  \r\n           113      M     -1.770292E-11  -2.384963E-07   1.524209E-11   1.252376E-11  -1.951824E-11  -7.518908E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.341487E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.341487E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.480745E-02   1.117760E-03  -1.661180E-12   4.005707E-04   2.407253E-05  -4.706835E-05                  \r\n           107      M     -2.869085E-11  -4.088199E-06  -8.269767E-06  -4.420342E-06  -3.073329E-06   2.333605E-06                  \r\n           113      M     -2.388239E-11   3.534828E-07   2.055775E-11   1.689815E-11  -2.632603E-11   1.245326E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.328048E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.328048E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.551803E-02  -5.805555E-03  -1.772566E-12  -4.593534E-04   3.591715E-05  -1.284879E-05                  \r\n           107      M     -3.058035E-11   9.882410E-08   1.080908E-06   8.660281E-07   6.604310E-07  -5.284041E-07                  \r\n           113      M     -2.545564E-11  -1.052730E-07   2.190625E-11   1.801475E-11  -2.805422E-11  -4.728910E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            7.347896E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            7.347896E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.331131E-02  -1.936145E-03  -1.506977E-12  -8.978851E-05  -5.486801E-05   5.891513E-05                  \r\n           107      M     -2.601139E-11   4.002601E-06   7.252070E-06   3.593983E-06   2.441034E-06  -1.826712E-06                  \r\n           113      M     -2.165216E-11  -2.513231E-07   1.863536E-11   1.532176E-11  -2.386497E-11  -7.806471E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.150254E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.150254E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -8.614450E-03   5.543554E-03  -9.445705E-13   5.209791E-04   1.087300E-05  -4.089295E-05                  \r\n           107      M     -1.633662E-11  -3.864242E-06  -7.990845E-06  -4.318596E-06  -3.011111E-06   2.290115E-06                  \r\n           113      M     -1.359840E-11   3.499196E-07   1.170918E-11   9.619374E-12  -1.499380E-11   1.241092E-06                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            1.380486E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            1.380486E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.167254E-03   2.701374E-03  -2.322239E-13  -2.636208E-04   4.577730E-05  -2.174879E-05                  \r\n           107      M     -4.021242E-12  -3.751815E-07   3.488622E-07   5.487879E-07   4.547354E-07  -3.790607E-07                  \r\n           113      M     -3.347168E-12  -8.896867E-08   2.882981E-12   2.367263E-12  -3.691533E-12  -4.399562E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -2.907512E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -2.907512E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.645561E-03  -5.142214E-03   4.997236E-13  -3.422228E-04  -5.009510E-05   6.087411E-05                  \r\n           107      M      8.653624E-12   4.225473E-06   7.672134E-06   3.797657E-06   2.577332E-06  -1.927569E-06                  \r\n           113      M      7.203044E-12  -2.636672E-07  -6.204116E-12  -5.094283E-12   7.944039E-12  -8.088955E-07                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -1.245541E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0           -1.245541E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.381419E-01  -8.726780E-02   1.517892E-11   1.516309E-02   1.036290E-05  -1.576408E-03                  \r\n           107      M      2.624461E-10  -4.847360E-04   2.287346E-04  -4.100681E-04  -5.552236E-04   4.295633E-05                  \r\n           113      M      2.184575E-10   6.453387E-05  -1.880970E-10  -1.545421E-10   2.408669E-10  -3.909441E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.247950E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.247950E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.297451E-01  -6.869928E-02   1.432760E-11   2.670142E-02  -6.575337E-04  -9.391787E-04                  \r\n           107      M      2.476190E-10  -4.523971E-04   3.568699E-04  -3.631795E-04  -5.314630E-04   1.181363E-05                  \r\n           113      M      2.061172E-10   6.120236E-05  -1.774525E-10  -1.458231E-10   2.272389E-10  -4.130939E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            1.738018E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            1.738018E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.072717E-01  -6.734984E-02   1.179518E-11   1.810911E-02  -1.364656E-04  -1.424090E-03                  \r\n           107      M      2.039197E-10  -4.748439E-04   2.502460E-04  -4.001190E-04  -5.487351E-04   3.764301E-05                  \r\n           113      M      1.697410E-10   6.382773E-05  -1.461475E-10  -1.200810E-10   1.871495E-10  -3.933367E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            3.338889E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            3.338889E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.626966E-02  -8.608397E-02   8.217086E-12   1.234154E-02   8.851314E-05  -1.620648E-03                  \r\n           107      M      1.422433E-10  -4.862118E-04   2.235705E-04  -4.116288E-04  -5.559556E-04   4.391438E-05                  \r\n           113      M      1.183996E-10   6.461181E-05  -1.019743E-10  -8.374175E-11   1.305776E-10  -3.906344E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.253527E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.253527E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.283313E-02  -9.016794E-02   4.448860E-12   2.482062E-02  -6.245209E-04  -9.564092E-04                  \r\n           107      M      7.714390E-11  -4.530727E-04   3.556212E-04  -3.636313E-04  -5.317309E-04   1.203521E-05                  \r\n           113      M      6.421128E-11   6.122316E-05  -5.532526E-11  -4.540215E-11   7.083847E-11  -4.130517E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            7.059575E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            7.059575E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.193522E-02  -7.161241E-02   1.050695E-12   2.219919E-02  -2.428315E-04  -1.364101E-03                  \r\n           107      M      1.839305E-11  -4.727312E-04   2.566025E-04  -3.981233E-04  -5.477445E-04   3.647077E-05                  \r\n           113      M      1.530737E-11   6.372949E-05  -1.321956E-11  -1.080590E-11   1.692119E-11  -3.936880E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.252974E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.252974E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -9.271138E-03  -6.522517E-02  -1.319877E-12   1.146381E-02   1.464040E-04  -1.658243E-03                  \r\n           107      M     -2.251964E-11  -4.875274E-04   2.187498E-04  -4.130981E-04  -5.566435E-04   4.482576E-05                  \r\n           113      M     -1.874905E-11   6.468682E-05   1.609025E-11   1.329406E-11  -2.061321E-11  -3.903300E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.613840E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.613840E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.655531E-02  -8.291548E-02  -2.207586E-12   2.132246E-02  -5.676272E-04  -9.820409E-04                  \r\n           107      M     -3.780831E-11  -4.539457E-04   3.538675E-04  -3.642127E-04  -5.320580E-04   1.232664E-05                  \r\n           113      M     -3.147557E-11   6.124822E-05   2.703890E-11   2.230313E-11  -3.463686E-11  -4.130006E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            8.171533E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            8.171533E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -9.947259E-03  -9.143139E-02  -1.495822E-12   2.543631E-02  -3.493494E-04  -1.303077E-03                  \r\n           107      M     -2.550643E-11  -4.705927E-04   2.630979E-04  -3.960942E-04  -5.467410E-04   3.527767E-05                  \r\n           113      M     -2.123574E-11   6.363002E-05   1.822271E-11   1.505869E-11  -2.334669E-11  -3.940428E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            7.085238E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            7.085238E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.053067E-02  -7.531825E-02   8.661392E-13   1.277873E-02   1.805439E-04  -1.688383E-03                  \r\n           107      M      1.526294E-11  -4.886700E-04   2.143015E-04  -4.144699E-04  -5.572847E-04   4.568747E-05                  \r\n           113      M      1.270096E-11   6.475879E-05  -1.098625E-11  -8.955918E-12   1.405977E-11  -3.900312E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.485846E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.485846E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.114959E-02  -6.454504E-02   4.363312E-12   1.719839E-02  -4.902811E-04  -1.015522E-03                  \r\n           107      M      7.559205E-11  -4.550076E-04   3.516192E-04  -3.649213E-04  -5.324429E-04   1.268695E-05                  \r\n           113      M      6.292040E-11   6.127750E-05  -5.420178E-11  -4.449620E-11   6.940271E-11  -4.129405E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            3.519410E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            3.519410E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.463019E-02  -7.870421E-02   8.081033E-12   2.690294E-02  -4.495974E-04  -1.242332E-03                  \r\n           107      M      1.397973E-10  -4.684491E-04   2.696933E-04  -3.940400E-04  -5.457282E-04   3.406766E-05                  \r\n           113      M      1.163650E-10   6.352949E-05  -1.002059E-10  -8.231184E-11   1.283157E-10  -3.944008E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            1.657290E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            1.657290E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.058075E-01  -9.186224E-02   1.152080E-11   1.591370E-02   1.888724E-04  -1.710419E-03                  \r\n           107      M      1.992935E-10  -4.896285E-04   2.102523E-04  -4.157387E-04  -5.578770E-04   4.649665E-05                  \r\n           113      M      1.658885E-10   6.482758E-05  -1.428507E-10  -1.173438E-10   1.829240E-10  -3.897381E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            4.705777E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   129\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            4.705777E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   130\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.289165E-01  -7.964581E-02   1.417122E-11   1.361724E-02  -3.971435E-04  -1.056133E-03                  \r\n           107      M      2.450285E-10  -4.562482E-04   3.488898E-04  -3.657543E-04  -5.328844E-04   1.311497E-05                  \r\n           113      M      2.039594E-10   6.131094E-05  -1.756142E-10  -1.442853E-10   2.248812E-10  -4.128716E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   131\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.316249E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   132\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.316249E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   133\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.381097E-01  -6.432583E-02   1.528793E-11   2.618333E-02  -5.375313E-04  -1.183176E-03                  \r\n           107      M      2.641827E-10  -4.663209E-04   2.763490E-04  -3.919692E-04  -5.447098E-04   3.284471E-05                  \r\n           113      M      2.199051E-10   6.342806E-05  -1.893177E-10  -1.555810E-10   2.424348E-10  -3.947620E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   134\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            2.580528E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   135\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            2.580528E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   136\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.328598E-01  -7.469823E-02   1.464593E-11   1.998030E-02   1.708841E-04  -1.723872E-03                  \r\n           107      M      2.531601E-10  -4.903935E-04   2.066265E-04  -4.168992E-04  -5.584181E-04   4.725062E-05                  \r\n           113      M      2.107287E-10   6.489307E-05  -1.814305E-10  -1.490817E-10   2.323328E-10  -3.894508E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   137\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            1.205863E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   138\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            1.205863E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   139\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.143742E-01  -9.156410E-02   1.247990E-11   1.159397E-02  -2.938264E-04  -1.103000E-03                  \r\n           107      M      2.158844E-10  -4.576556E-04   3.456956E-04  -3.667082E-04  -5.333808E-04   1.360929E-05                  \r\n           113      M      1.796989E-10   6.134850E-05  -1.547422E-10  -1.271128E-10   1.981503E-10  -4.127939E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   140\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            2.918324E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   141\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            2.918324E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   142\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      8.475357E-02  -8.319910E-02   9.196089E-12   2.348134E-02  -6.078489E-04  -1.126883E-03                  \r\n           107      M      1.590919E-10  -4.642290E-04   2.830252E-04  -3.898901E-04  -5.436895E-04   3.161288E-05                  \r\n           113      M      1.324255E-10   6.332593E-05  -1.140368E-10  -9.367186E-11   1.460261E-10  -3.951260E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   143\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            4.913020E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   144\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            4.913020E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   145\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      5.088473E-02  -6.548493E-02   5.464461E-12   2.382607E-02   1.276595E-04  -1.728453E-03                  \r\n           107      M      9.456363E-11  -4.909578E-04   2.034460E-04  -4.179466E-04  -5.589061E-04   4.794688E-05                  \r\n           113      M      7.871268E-11   6.495515E-05  -6.778846E-11  -5.567487E-11   8.680438E-11  -3.891695E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   146\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            6.643022E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   147\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            6.643022E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   148\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.945516E-02  -7.137086E-02   1.885828E-12   1.170202E-02  -1.865556E-04  -1.155114E-03                  \r\n           107      M      3.286460E-11  -4.592162E-04   3.420558E-04  -3.677793E-04  -5.339305E-04   1.416830E-05                  \r\n           113      M      2.735308E-11   6.139009E-05  -2.359627E-11  -1.932411E-11   3.020746E-11  -4.127073E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   149\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            7.893048E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   150\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            7.893048E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   151\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -4.963427E-03  -8.951692E-02  -9.344306E-13   1.956268E-02  -6.563094E-04  -1.074666E-03                  \r\n           107      M     -1.578381E-11  -4.621935E-04   2.896817E-04  -3.878114E-04  -5.426710E-04   3.037620E-05                  \r\n           113      M     -1.314287E-11   6.322325E-05   1.125187E-11   9.335250E-12  -1.442092E-11  -3.954927E-04                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   152\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   153\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   154\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   155\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   156\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   157\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   158\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.400001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   159\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.400001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   160\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.400001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   161\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.600001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   162\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.600001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   163\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.600001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   164\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.800001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   165\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.800001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   166\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  4.800001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   167\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.000001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   168\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.000001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   169\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.000001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   170\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   171\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   172\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   173\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.400000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   174\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.400000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   175\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.400000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   176\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.600000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   177\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.600000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   178\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.600000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   179\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.800000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   180\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.800000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   181\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  5.800000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   182\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   183\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   184\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   185\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.199999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   186\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.199999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   187\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.199999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   188\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.399999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   189\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.399999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   190\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.399999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   191\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.599999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   192\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.599999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   193\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.599999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   194\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.799999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   195\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.799999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   196\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.799999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   197\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.999999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   198\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.999999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   199\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  6.999999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   200\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.199998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   201\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.199998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   202\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.199998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   203\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.399998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   204\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.399998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   205\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.399998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   206\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.599998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   207\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.599998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   208\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.599998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   209\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.799998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   210\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.799998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   211\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.799998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   212\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.999998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      5.684342E-14  -5.642316E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.637719E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   213\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.999998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             2      G      0.0            5.425815E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   214\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    RTRUSS                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       RTRUSS                             \r\n      TIME =  7.999998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.625083E+01  -2.296825E+02  -1.658350E-09   3.280166E+02  -2.737125E+02   1.053664E+02                  \r\n           107      M     -4.199933E-09   8.907005E+00   3.146779E+02   1.396415E+01   1.310456E+00  -3.242243E+02                  \r\n           113      M     -3.791101E-09  -1.255007E+01   2.888001E-09   2.937213E-09  -5.160359E-09  -1.896136E+01                  \r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   3 DISPLACEMENTS FOR SUBSTRUCTURE MCOMB   \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   2 DISPLACEMENTS FOR SUBSTRUCTURE MA      \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE ABASIC  \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   215\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  0.000000E+00\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      0.000000E+00      0.0000      2.156534E-03      0.0002\r\n              102     IN-MODE       2      7.161329E+01      0.000000E+00      0.0000      2.332727E-04      0.0000\r\n              103     IN-MODE       3      1.044093E+02      0.000000E+00      0.0000      3.167901E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      0.000000E+00      0.0000      3.068890E-21      0.0000\r\n              105     IN-MODE       5      1.263637E+02      0.000000E+00      0.0000      4.397174E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      0.000000E+00      0.0000      1.596397E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      0.000000E+00      0.0000      2.657608E-21      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     0.000000E+00      0.0000      1.265861E+01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   216\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.927588E-04     -0.0008      2.328981E-03      0.0002\r\n              102     IN-MODE       2      7.161329E+01      4.763729E-05      0.0002      1.916110E-04      0.0000\r\n              103     IN-MODE       3      1.044093E+02      8.850170E-06      0.0000      2.399004E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      6.270948E-19      0.0000      4.198343E-21      0.0000\r\n              105     IN-MODE       5      1.263637E+02      1.125234E-06      0.0000      3.417515E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.572511E-08      0.0000      9.101183E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      5.430543E-19      0.0000      3.635706E-21      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     2.544067E-01      1.0000      9.952621E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   217\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  4.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      1.214657E-02      0.0211      2.481734E-04      0.0000\r\n              102     IN-MODE       2      7.161329E+01      1.014192E-03      0.0018      8.105479E-05      0.0000\r\n              103     IN-MODE       3      1.044093E+02      1.280299E-04      0.0002      1.297933E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      2.464196E-19      0.0000      1.008249E-22      0.0000\r\n              105     IN-MODE       5      1.263637E+02      1.729905E-05      0.0000      2.207644E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -6.900622E-07      0.0000      8.225488E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      2.133957E-19      0.0000      8.731283E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.757867E-01      1.0000      5.890381E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   218\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  6.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.378440E-03     -0.0019      3.891957E-04      0.0002\r\n              102     IN-MODE       2      7.161329E+01     -4.704164E-04     -0.0007      2.257556E-07      0.0000\r\n              103     IN-MODE       3      1.044093E+02     -7.105589E-05     -0.0001      2.854922E-07      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.969424E-19      0.0000      3.604586E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -1.001394E-05      0.0000      1.109850E-07      0.0000\r\n              106     IN-MODE       6      1.604217E+02      1.357041E-06      0.0000      7.462406E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      5.169427E-19      0.0000      3.121488E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     7.084989E-01      1.0000      1.823476E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   219\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  8.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.237225E-02     -0.0150      6.560743E-04      0.0229\r\n              102     IN-MODE       2      7.161329E+01     -6.182963E-04     -0.0007      4.724892E-05      0.0017\r\n              103     IN-MODE       3      1.044093E+02     -5.617111E-05     -0.0001      5.452010E-06      0.0002\r\n              104     IN-MODE       4      1.099846E+02      7.466337E-19      0.0000      4.775740E-25      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -5.582583E-06      0.0000      6.745113E-07      0.0000\r\n              106     IN-MODE       6      1.604217E+02      3.589805E-06      0.0000      8.194502E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      6.465730E-19      0.0000      4.135359E-25      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     8.254064E-01      1.0000      2.861793E-02      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   220\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  9.999999E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      7.756279E-03      0.0075      8.793742E-04      0.0006\r\n              102     IN-MODE       2      7.161329E+01      1.205713E-03      0.0012      9.321590E-07      0.0000\r\n              103     IN-MODE       3      1.044093E+02      1.584265E-04      0.0002      8.021350E-10      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.780826E-19      0.0000      2.847818E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02      2.224301E-05      0.0000      2.218742E-08      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -2.758271E-07      0.0000      8.252727E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      5.006106E-19      0.0000      2.466136E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.039199E+00      1.0000      1.412358E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   221\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  1.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      2.213546E-02      0.0322      3.977907E-03      0.0007\r\n              102     IN-MODE       2      7.161329E+01      1.064053E-03      0.0015      4.156048E-04      0.0001\r\n              103     IN-MODE       3      1.044093E+02      1.169393E-04      0.0002      5.462785E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      2.838916E-19      0.0000      6.207576E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02      1.464856E-05      0.0000      7.786127E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.116882E-06      0.0000      6.836697E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      2.458459E-19      0.0000      5.375742E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.873424E-01      1.0000      5.894301E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   222\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  1.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -9.988131E-04     -0.0178      1.284499E-02      0.0013\r\n              102     IN-MODE       2      7.161329E+01     -9.815955E-05     -0.0017      9.084219E-04      0.0001\r\n              103     IN-MODE       3      1.044093E+02     -8.059602E-06     -0.0001      1.172782E-04      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.562013E-20      0.0000      8.783040E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -8.158712E-07      0.0000      1.624027E-05      0.0000\r\n              106     IN-MODE       6      1.604217E+02      3.018328E-07      0.0000      2.993443E-09      0.0000\r\n              107     IN-MODE       7      1.714665E+02      4.816615E-20      0.0000      7.606140E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.621399E-02      1.0000      9.879665E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   223\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  1.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      9.621757E-03      0.0892      1.814071E-03      0.0002\r\n              102     IN-MODE       2      7.161329E+01      3.115840E-04      0.0029      3.361340E-04      0.0000\r\n              103     IN-MODE       3      1.044093E+02      3.559563E-05      0.0003      4.836026E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      1.243464E-20      0.0000      1.167493E-22      0.0000\r\n              105     IN-MODE       5      1.263637E+02      4.379355E-06      0.0000      7.391447E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      2.667615E-07      0.0000      6.918337E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      1.076822E-20      0.0000      1.011036E-22      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.079144E-01      1.0000      9.604983E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   224\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  1.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -2.602013E-03     -0.0082      1.097630E-04      0.0000\r\n              102     IN-MODE       2      7.161329E+01      6.116966E-05      0.0002      4.814482E-05      0.0000\r\n              103     IN-MODE       3      1.044093E+02      2.290421E-05      0.0001      8.652672E-06      0.0000\r\n              104     IN-MODE       4      1.099846E+02      2.316558E-19      0.0000      1.139751E-22      0.0000\r\n              105     IN-MODE       5      1.263637E+02      4.136044E-06      0.0000      1.651060E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      6.297170E-07      0.0000      1.579003E-06      0.0000\r\n              107     IN-MODE       7      1.714665E+02      2.006103E-19      0.0000      9.870033E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     3.182617E-01      1.0000      6.286573E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   225\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.161732E-02     -0.0207      1.499230E-03      0.0006\r\n              102     IN-MODE       2      7.161329E+01     -5.237174E-04     -0.0009      1.230907E-04      0.0000\r\n              103     IN-MODE       3      1.044093E+02     -7.384459E-05     -0.0001      1.671727E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.792872E-19      0.0000      3.110827E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -9.731406E-06      0.0000      2.441049E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      3.797383E-06      0.0000      5.105700E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      5.016536E-19      0.0000      2.693960E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.605181E-01      1.0000      2.533922E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   226\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      9.551435E-03      0.0088      3.775874E-03      0.0229\r\n              102     IN-MODE       2      7.161329E+01      1.803073E-04      0.0002      1.638170E-04      0.0010\r\n              103     IN-MODE       3      1.044093E+02      1.819974E-05      0.0000      1.935689E-05      0.0001\r\n              104     IN-MODE       4      1.099846E+02      7.065900E-19      0.0000      9.231314E-25      0.0000\r\n              105     IN-MODE       5      1.263637E+02      2.642471E-06      0.0000      2.376898E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.948087E-07      0.0000      4.103043E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      6.118961E-19      0.0000      7.993188E-25      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.085670E+00      1.0000      1.651387E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   227\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      2.444975E-02      0.0192      5.117859E-04      0.0004\r\n              102     IN-MODE       2      7.161329E+01      1.862768E-03      0.0015      3.890317E-05      0.0000\r\n              103     IN-MODE       3      1.044093E+02      2.632151E-04      0.0002      5.720892E-06      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.770549E-19      0.0000      1.399852E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02      3.674014E-05      0.0000      8.661473E-07      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.533439E-06      0.0000      4.532721E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      4.997207E-19      0.0000      1.212263E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.275915E+00      1.0000      1.200791E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   228\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      5.054723E-05      0.0001      8.993681E-03      0.0016\r\n              102     IN-MODE       2      7.161329E+01      6.084013E-04      0.0011      7.050208E-04      0.0001\r\n              103     IN-MODE       3      1.044093E+02      6.870276E-05      0.0001      8.979024E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      3.473632E-19      0.0000      3.780841E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02      9.315475E-06      0.0000      1.223070E-05      0.0000\r\n              106     IN-MODE       6      1.604217E+02      3.969712E-07      0.0000      3.480096E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      3.008112E-19      0.0000      3.274239E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.492100E-01      1.0000      5.659803E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   229\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  2.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.465505E-03     -0.0371      3.845735E-03      0.0004\r\n              102     IN-MODE       2      7.161329E+01     -2.885039E-04     -0.0073      4.991299E-04      0.0001\r\n              103     IN-MODE       3      1.044093E+02     -4.097919E-05     -0.0010      6.659880E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      9.199153E-20      0.0000      1.095906E-22      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -5.841773E-06     -0.0001      9.723543E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      1.329064E-06      0.0000      2.898639E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      7.966318E-20      0.0000      9.490463E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     3.952582E-02      1.0000      9.077735E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   230\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  3.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      5.742689E-04      0.0255      6.768019E-05      0.0000\r\n              102     IN-MODE       2      7.161329E+01      8.319945E-05      0.0037      9.086121E-05      0.0000\r\n              103     IN-MODE       3      1.044093E+02      6.203431E-06      0.0003      1.600435E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      7.614359E-21      0.0000      1.492939E-22      0.0000\r\n              105     IN-MODE       5      1.263637E+02      6.811300E-07      0.0000      2.875355E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.609313E-08      0.0000      1.638953E-06      0.0000\r\n              107     IN-MODE       7      1.714665E+02      6.593923E-21      0.0000      1.292862E-22      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     2.252015E-02      1.0000      9.259020E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   231\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  3.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -3.527624E-03     -0.0217      1.039173E-03      0.0001\r\n              102     IN-MODE       2      7.161329E+01     -5.954747E-04     -0.0037      2.118120E-04      0.0000\r\n              103     IN-MODE       3      1.044093E+02     -7.067830E-05     -0.0004      3.114697E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      2.151938E-19      0.0000      9.330269E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02     -9.282441E-06     -0.0001      4.830063E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      1.600587E-06      0.0000      6.031003E-07      0.0000\r\n              107     IN-MODE       7      1.714665E+02      1.863544E-19      0.0000      8.079902E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.623753E-01      1.0000      7.114374E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   232\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  3.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -4.606588E-03     -0.0070      6.219068E-03      0.0018\r\n              102     IN-MODE       2      7.161329E+01      1.688745E-06      0.0000      5.016046E-04      0.0001\r\n              103     IN-MODE       3      1.044093E+02      2.027401E-05      0.0000      6.176671E-05      0.0000\r\n              104     IN-MODE       4      1.099846E+02      5.128942E-19      0.0000      2.494901E-23      0.0000\r\n              105     IN-MODE       5      1.263637E+02      3.863219E-06      0.0000      8.333248E-06      0.0000\r\n              106     IN-MODE       6      1.604217E+02      1.398408E-06      0.0000      4.777230E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      4.441582E-19      0.0000      2.160605E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.559741E-01      1.0000      3.401698E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   233\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  3.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      1.974100E-02      0.0146      1.275663E-03      0.0052\r\n              102     IN-MODE       2      7.161329E+01      2.213308E-03      0.0016      5.534341E-05      0.0002\r\n              103     IN-MODE       3      1.044093E+02      2.454164E-04      0.0002      6.870472E-06      0.0000\r\n              104     IN-MODE       4      1.099846E+02      6.623691E-19      0.0000      4.621382E-25      0.0000\r\n              105     IN-MODE       5      1.263637E+02      3.228920E-05      0.0000      8.955043E-07      0.0000\r\n              106     IN-MODE       6      1.604217E+02     -1.084236E-06      0.0000      5.661675E-08      0.0000\r\n              107     IN-MODE       7      1.714665E+02      5.736015E-19      0.0000      4.002495E-25      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.356732E+00      1.0000      2.429947E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   234\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  3.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01      2.684307E-01      0.5103      4.784529E-03      0.0027\r\n              102     IN-MODE       2      7.161329E+01      2.478504E-03      0.0047      5.325537E-03      0.0030\r\n              103     IN-MODE       3      1.044093E+02      1.768897E-03      0.0034      6.327015E-04      0.0004\r\n              104     IN-MODE       4      1.099846E+02      7.530988E-17      0.0000      2.080698E-19      0.0000\r\n              105     IN-MODE       5      1.263637E+02      3.465082E-05      0.0001      1.083611E-04      0.0001\r\n              106     IN-MODE       6      1.604217E+02     -1.125598E-05      0.0000      1.626308E-06      0.0000\r\n              107     IN-MODE       7      1.714665E+02      6.521722E-17      0.0000      1.801853E-19      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.260489E-01      1.0000      1.804439E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   235\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ABASIC  \r\n\r\n\r\n            TIME =  4.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      3.766677E+01     -1.335109E-01     -0.1480      1.569587E+01      0.9321\r\n              102     IN-MODE       2      7.161329E+01     -2.901798E-05      0.0000      1.573711E-02      0.0009\r\n              103     IN-MODE       3      1.044093E+02     -3.338470E-03     -0.0037      1.641918E-01      0.0098\r\n              104     IN-MODE       4      1.099846E+02      6.056690E-17      0.0000      2.582306E-19      0.0000\r\n              105     IN-MODE       5      1.263637E+02      3.840468E-05      0.0000      4.259802E-05      0.0000\r\n              106     IN-MODE       6      1.604217E+02      2.110600E-05      0.0000      3.431527E-03      0.0002\r\n              107     IN-MODE       7      1.714665E+02      5.245001E-17      0.0000      2.236272E-19      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     9.018827E-01      1.0000      1.683984E+01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   236\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      5.631593E-03   1.037242E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.561076E-13   1.098885E-02   0.0            0.0            0.0            0.0                           \r\n            13      G     -5.631593E-03   1.037242E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      1.016226E-02   2.738440E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.747010E-13   2.799373E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.016226E-02   2.738440E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.359793E-02   4.892589E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      3.350016E-14   4.952173E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.359793E-02   4.892589E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.595519E-02   7.352058E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      3.736526E-13   7.409571E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.595519E-02   7.352058E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.394654E-13   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   237\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      4.908958E-03   8.794166E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.825963E-13   9.277374E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -4.908958E-03   8.794166E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      8.952830E-03   2.344197E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      2.043520E-13   2.391697E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -8.952830E-03   2.344197E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.213886E-02   4.227938E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.915468E-14   4.273989E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.213886E-02   4.227938E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.448586E-02   6.415234E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -4.369919E-13   6.459268E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.448586E-02   6.415234E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.631682E-13   8.815945E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   238\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      3.621516E-03   6.162351E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.829931E-14   6.450227E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -3.621516E-03   6.162351E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      6.730240E-03   1.675634E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      3.167355E-14   1.704301E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -6.730240E-03   1.675634E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      9.325725E-03   3.080090E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -6.058385E-15   3.108357E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -9.325725E-03   3.080090E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.141020E-02   4.759507E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -6.770633E-14   4.786857E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.141020E-02   4.759507E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.530089E-14   6.656072E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   239\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.946977E-03   3.187361E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.692028E-14   3.317096E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.946977E-03   3.187361E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      3.667284E-03   8.815456E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.893711E-14   8.950645E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.667284E-03   8.815456E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      5.153907E-03   1.646217E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.623603E-15   1.660419E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.153907E-03   1.646217E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      6.393834E-03   2.580062E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -4.048508E-14   2.594730E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -6.393834E-03   2.580062E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.512666E-14   3.653554E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   240\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      2.844003E-04   6.122256E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.947259E-15   6.611919E-04   0.0            0.0            0.0            0.0                           \r\n            13      G     -2.844003E-04   6.122256E-04   0.0            0.0            0.0            0.0                           \r\n            21      G      4.786474E-04   1.520790E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.179186E-15   1.565344E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.786474E-04   1.520790E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      5.868888E-04   2.542180E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      4.179416E-16   2.578982E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.868888E-04   2.542180E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      6.196008E-04   3.556943E-03   0.0            0.0            0.0            0.0                           \r\n            42      G      4.660914E-15   3.583236E-03   0.0            0.0            0.0            0.0                           \r\n            43      G     -6.196008E-04   3.556943E-03   0.0            0.0            0.0            0.0                           \r\n            51      G      5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.739595E-15   4.480211E-03   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   241\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -1.685479E-03  -2.707815E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.503985E-14  -2.810060E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      1.685479E-03  -2.707815E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.194852E-03  -7.554261E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.683277E-14  -7.664181E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      3.194852E-03  -7.554261E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.518616E-03  -1.421727E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      3.220262E-15  -1.433717E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      4.518616E-03  -1.421727E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -5.638699E-03  -2.243110E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      3.598454E-14  -2.255898E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      5.638699E-03  -2.243110E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.344566E-14  -3.194106E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   242\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -3.741983E-03  -6.607444E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.220538E-14  -6.954021E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      3.741983E-03  -6.607444E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.860708E-03  -1.769517E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.485311E-14  -1.803190E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      6.860708E-03  -1.769517E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -9.364264E-03  -3.204988E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      4.753470E-15  -3.236811E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      9.364264E-03  -3.204988E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.127535E-02  -4.883029E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      5.312708E-14  -4.912072E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      1.127535E-02  -4.883029E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.985424E-14  -6.737154E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   243\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -4.901436E-03  -8.781357E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.641362E-14  -9.260096E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      4.901436E-03  -8.781357E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -8.936998E-03  -2.336806E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.956252E-14  -2.382671E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      8.936998E-03  -2.336806E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.212569E-02  -4.206458E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      5.654649E-15  -4.248909E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      1.212569E-02  -4.206458E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.451381E-02  -6.372645E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      6.319490E-14  -6.410488E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      1.451381E-02  -6.372645E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.361819E-14  -8.747876E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   244\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -4.690329E-03  -8.106585E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.045292E-14  -8.505498E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      4.690329E-03  -8.106585E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -8.667776E-03  -2.190490E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.408365E-14  -2.229873E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      8.667776E-03  -2.190490E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.193489E-02  -4.002081E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      6.518249E-15  -4.040287E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      1.193489E-02  -4.002081E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.450305E-02  -6.147873E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      7.285681E-14  -6.183933E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      1.450305E-02  -6.147873E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.722721E-14  -8.548176E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   245\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -3.689060E-03  -6.174149E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.008821E-14  -6.447479E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      3.689060E-03  -6.174149E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.896150E-03  -1.691665E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.367570E-14  -1.719525E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      6.896150E-03  -1.691665E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -9.613048E-03  -3.131510E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      6.441165E-15  -3.159829E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      9.613048E-03  -3.131510E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.182712E-02  -4.868564E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      7.198581E-14  -4.896737E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      1.182712E-02  -4.868564E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.689852E-14  -6.843473E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   246\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -2.440331E-03  -4.283931E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.571946E-14  -4.504343E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      2.440331E-03  -4.283931E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.483869E-03  -1.149539E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.759362E-14  -1.170916E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      4.483869E-03  -1.149539E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -6.136622E-03  -2.086353E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      3.365553E-15  -2.106578E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      6.136622E-03  -2.086353E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -7.413696E-03  -3.186005E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      3.760924E-14  -3.204612E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      7.413696E-03  -3.186005E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.405417E-14  -4.407183E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   247\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -6.896530E-04  -1.450755E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.706900E-15  -1.561472E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.896530E-04  -1.450755E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.173616E-03  -3.623266E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      3.029179E-15  -3.721891E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      1.173616E-03  -3.623266E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.464540E-03  -6.099639E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -5.815588E-16  -6.179233E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      1.464540E-03  -6.099639E-03   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.590601E-03  -8.625297E-03   0.0            0.0            0.0            0.0                           \r\n            42      G     -6.480486E-15  -8.681952E-03   0.0            0.0            0.0            0.0                           \r\n            43      G      1.590601E-03  -8.625297E-03   0.0            0.0            0.0            0.0                           \r\n            51      G     -1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.417095E-15  -1.103443E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   248\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      1.668146E-03   2.905397E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.054475E-14   3.051224E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.668146E-03   2.905397E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      3.073967E-03   7.820067E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.180171E-14   7.961875E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.073967E-03   7.820067E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      4.221240E-03   1.423630E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.257770E-15   1.437139E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -4.221240E-03   1.423630E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      5.118966E-03   2.180660E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -2.522872E-14   2.193239E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -5.118966E-03   2.180660E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      9.428185E-15   3.025798E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   249\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      3.735191E-03   6.747272E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.733071E-14   7.123861E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -3.735191E-03   6.747272E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      6.789100E-03   1.790011E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.939737E-14   1.826047E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -6.789100E-03   1.790011E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      9.176662E-03   3.212099E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.708059E-15   3.245294E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -9.176662E-03   3.212099E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.093554E-02   4.850315E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -4.145951E-14   4.879569E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.093554E-02   4.850315E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.549803E-14   6.635091E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   250\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      4.609108E-03   8.065981E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.950444E-14   8.478304E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -4.609108E-03   8.065981E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      8.478838E-03   2.168314E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      3.302155E-14   2.208661E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -8.478838E-03   2.168314E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.161557E-02   3.941752E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -6.316439E-15   3.980311E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.161557E-02   3.941752E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.403966E-02   6.026343E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -7.059129E-14   6.062034E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.403966E-02   6.026343E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.637916E-14   8.341487E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   251\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      4.515137E-03   7.633998E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      3.443605E-14   7.983186E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -4.515137E-03   7.633998E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      8.410054E-03   2.081614E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      3.854147E-14   2.116630E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -8.410054E-03   2.081614E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.168146E-02   3.836470E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -7.372144E-15   3.871357E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.168146E-02   3.836470E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.432633E-02   5.942502E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -8.238973E-14   5.976627E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.432633E-02   5.942502E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      3.078598E-14   8.328048E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   252\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      4.024066E-03   6.930633E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.722332E-14   7.267827E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -4.024066E-03   6.930633E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      7.445995E-03   1.875394E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      3.046950E-14   1.908750E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -7.445995E-03   1.875394E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.026731E-02   3.431115E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -5.827174E-15   3.463592E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.026731E-02   3.431115E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.249602E-02   5.277796E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -6.513063E-14   5.308610E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.249602E-02   5.277796E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.433973E-14   7.347896E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   253\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      2.909017E-03   5.285067E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.407827E-14   5.584730E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -2.909017E-03   5.285067E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      5.275733E-03   1.399068E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.575696E-14   1.427702E-02   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.275733E-03   1.399068E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      7.112190E-03   2.504977E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.011899E-15   2.531246E-02   0.0            0.0            0.0            0.0                           \r\n            33      G     -7.112190E-03   2.504977E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      8.449481E-03   3.773823E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -3.367910E-14   3.796796E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -8.449481E-03   3.773823E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.258884E-14   5.150254E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   254\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G      7.993529E-04   1.509602E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.916367E-15   1.603089E-03   0.0            0.0            0.0            0.0                           \r\n            13      G     -7.993529E-04   1.509602E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      1.427255E-03   3.929755E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      2.145051E-15   4.016162E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.427255E-03   3.929755E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      1.891102E-03   6.919311E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -4.092533E-16   6.994677E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.891102E-03   6.919311E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      2.207250E-03   1.026173E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -4.583055E-15   1.032379E-02   0.0            0.0            0.0            0.0                           \r\n            43      G     -2.207250E-03   1.026173E-02   0.0            0.0            0.0            0.0                           \r\n            51      G      2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.714604E-15   1.380486E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   255\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -1.470531E-03  -1.820819E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.285430E-12  -1.797703E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      1.470531E-03  -1.820819E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.993480E-03  -5.710204E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.438561E-12  -5.696026E-03   0.0            0.0            0.0            0.0                           \r\n            23      G      2.993480E-03  -5.710204E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.539596E-03  -1.169167E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.757322E-13  -1.166335E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      4.539596E-03  -1.169167E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.093839E-03  -1.959555E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -3.076504E-12  -1.950656E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      6.093839E-03  -1.959555E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.148530E-12  -2.907512E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   256\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            11      G     -4.008558E-03  -1.544985E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.432048E-12  -1.702108E-02   0.0            0.0            0.0            0.0                           \r\n            13      G      4.008558E-03  -1.544985E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.126058E-03  -2.766617E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.602650E-12  -2.814164E-02   0.0            0.0            0.0            0.0                           \r\n            23      G      4.126058E-03  -2.766617E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.253707E-03  -3.113773E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      3.071694E-13  -3.048220E-02   0.0            0.0            0.0            0.0                           \r\n            33      G      2.253707E-03  -3.113773E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -3.698659E-04  -2.567201E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      3.427390E-12  -2.386333E-02   0.0            0.0            0.0            0.0                           \r\n            43      G      3.698659E-04  -2.567201E-02   0.0            0.0            0.0            0.0                           \r\n            51      G     -5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.279549E-12  -1.245541E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   257\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    ABASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      0.0           -7.350000E+01   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            11      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -8.820000E+01   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            21      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            22      G      0.0           -8.820000E+01   0.0            0.0            0.0            0.0                           \r\n            23      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            31      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            32      G      0.0           -8.820000E+01   0.0            0.0            0.0            0.0                           \r\n            33      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            41      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            42      G      0.0           -8.820000E+01   0.0            0.0            0.0            0.0                           \r\n            43      G      0.0           -5.880000E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      0.0           -4.410000E+01   0.0            0.0            0.0            0.0                           \r\n            52      G      0.0           -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G      0.0           -4.410000E+01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   258\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.394654E-13   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   259\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      2.699188E-04   4.556532E-05   1.177433E-05  -1.227833E-13   3.557307E-06  -2.103953E-07                  \r\n           107      M     -6.816724E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   260\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.631682E-13   8.815945E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   261\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      2.805033E-04   4.129644E-05   1.024627E-05   1.436106E-13   3.136099E-06   5.023593E-07                  \r\n           107      M      7.973037E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   262\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.530089E-14   6.656072E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   263\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      9.156565E-05   2.685912E-05   7.536619E-06   2.225516E-14   2.520571E-06   1.510242E-06                  \r\n           107      M      1.235572E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   264\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.512666E-14   3.653554E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   265\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.146671E-04   1.417496E-06   1.117757E-06   1.330696E-14   5.651538E-07   1.438484E-06                  \r\n           107      M      7.387759E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   266\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.739595E-15   4.480211E-03   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   267\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.488783E-04   2.050682E-05   4.884597E-06  -1.531798E-15   1.393250E-06  -4.766799E-07                  \r\n           107      M     -8.503679E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   268\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.344566E-14  -3.194106E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   269\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.723621E-04   2.880364E-06  -5.924807E-08  -1.182795E-14  -2.526899E-07  -1.512740E-06                  \r\n           107      M     -6.566618E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   270\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.985424E-14  -6.737154E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   271\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -3.665914E-04  -6.081948E-05  -1.546171E-05  -1.746232E-14  -4.733640E-06  -4.354003E-07                  \r\n           107      M     -9.694932E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   272\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.361819E-14  -8.747876E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   273\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.587518E-04  -8.991792E-05  -2.265474E-05  -2.077111E-14  -6.836458E-06   9.110685E-08                  \r\n           107      M     -1.153202E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   274\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.722721E-14  -8.548176E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   275\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.475609E-04  -5.469639E-05  -1.454771E-05  -2.394814E-14  -4.612105E-06  -1.385053E-06                  \r\n           107      M     -1.329570E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   276\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.689852E-14  -6.843473E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   277\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      6.089519E-05  -2.070033E-05  -6.153547E-06  -2.366215E-14  -2.179796E-06  -2.092459E-06                  \r\n           107      M     -1.313681E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   278\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.405417E-14  -4.407183E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   279\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.250552E-04  -3.309901E-05  -8.553288E-06  -1.236175E-14  -2.650469E-06  -3.762645E-07                  \r\n           107      M     -6.863120E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   280\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.417095E-15  -1.103443E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   281\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -3.571607E-04  -3.818405E-05  -9.203823E-06   2.129795E-15  -2.615410E-06   1.066642E-06                  \r\n           107      M      1.182296E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   282\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      9.428185E-15   3.025798E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   283\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.314919E-04   1.860780E-05   5.003597E-06   8.292468E-15   1.578812E-06   3.545235E-07                  \r\n           107      M      4.603889E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   284\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.549803E-14   6.635091E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   285\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      5.512183E-04   7.921427E-05   1.982280E-05   1.362789E-14   5.932806E-06  -3.106427E-07                  \r\n           107      M      7.566179E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   286\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.637916E-14   8.341487E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   287\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      3.604496E-04   6.665140E-05   1.707197E-05   2.320221E-14   5.289891E-06   8.965255E-07                  \r\n           107      M      1.288162E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   288\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      3.078598E-14   8.328048E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   289\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.781737E-05   2.843752E-05   8.368921E-06   2.708125E-14   2.876605E-06   2.131811E-06                  \r\n           107      M      1.503508E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   290\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      2.433973E-14   7.347896E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   291\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.873695E-04   4.341879E-05   1.167504E-05   2.140880E-14   3.728300E-06   1.293184E-06                  \r\n           107      M      1.188588E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   292\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.258884E-14   5.150254E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   293\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.583715E-04   6.681642E-05   1.644098E-05   1.107033E-14   4.897130E-06  -3.639600E-07                  \r\n           107      M      6.146232E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   294\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.714604E-15   1.380486E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   295\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      2.075979E-04   2.219399E-05   5.483322E-06   1.506560E-15   1.605345E-06  -3.962215E-07                  \r\n           107      M      8.364987E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   296\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n            52      G      1.148530E-12  -2.907512E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   297\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -4.020449E-04  -2.177129E-04  -5.261988E-05   1.011004E-12  -1.765921E-05  -2.123572E-06                  \r\n           107      M      5.612928E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   298\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.279549E-12  -1.245541E-02   0.0            0.0            0.0            0.0                           \r\n            53      G      5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   299\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.302754E-02  -3.742527E-04  -8.476688E-04  -1.126275E-12  -1.107208E-05   9.754596E-05                  \r\n           107      M     -6.252983E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   300\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      7.639633E-03   5.077145E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.375377E-13   5.247950E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -7.639633E-03   5.077145E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   301\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.244771E-02  -3.627806E-04  -8.454521E-04  -1.210218E-13  -1.239400E-05   9.358773E-05                  \r\n           107      M     -6.719748E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   302\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      3.065482E-02   1.718806E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.560768E-14   1.738018E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.065482E-02   1.718806E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   303\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.147292E-02  -2.993684E-04  -8.278981E-04  -7.534068E-14  -7.170408E-06   9.367342E-05                  \r\n           107      M     -4.183574E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   304\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      6.272717E-02   3.316626E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.623141E-14   3.338889E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -6.272717E-02   3.316626E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   305\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.152422E-02  -2.980940E-04  -8.242958E-04  -1.431170E-14  -5.256086E-06   9.856067E-05                  \r\n           107      M     -7.953544E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   306\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      9.949066E-02   5.227460E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      3.035843E-14   5.253527E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -9.949066E-02   5.227460E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   307\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.162896E-02  -1.375743E-04  -7.833760E-04   2.666084E-14   7.946519E-06   1.035262E-04                  \r\n           107      M      1.479373E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   308\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.323348E-01   7.030305E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      8.512096E-14   7.059575E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.323348E-01   7.030305E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   309\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.984096E-02   7.435976E-05  -7.303368E-04   7.483021E-14   2.354043E-05   1.018367E-04                  \r\n           107      M      4.153728E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   310\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.545146E-01   8.221683E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.222438E-13   8.252974E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.545146E-01   8.221683E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   311\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.850395E-02   1.584261E-04  -7.080962E-04   1.074744E-13   3.015749E-05   1.005273E-04                  \r\n           107      M      5.966125E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   312\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.628486E-01   8.581591E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.316255E-13   8.613840E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.628486E-01   8.581591E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   313\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.977992E-02   1.308091E-04  -7.139982E-04   1.157252E-13   2.930629E-05   1.058278E-04                  \r\n           107      M      6.424141E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   314\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.551891E-01   8.139981E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.357955E-13   8.171533E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.551891E-01   8.139981E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   315\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.059572E-02   6.374329E-05  -7.306837E-04   1.194030E-13   2.431354E-05   1.076252E-04                  \r\n           107      M      6.628305E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   316\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.331416E-01   7.056035E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      9.333018E-14   7.085238E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.331416E-01   7.056035E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   317\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.953929E-02   2.599254E-05  -7.412850E-04   8.204972E-14   2.022724E-05   1.012414E-04                  \r\n           107      M      4.554552E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   318\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.017326E-01   5.459657E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.858520E-14   5.485846E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.017326E-01   5.459657E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   319\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.983656E-02  -1.294416E-05  -7.536268E-04   1.628844E-14   1.609574E-05   9.764438E-05                  \r\n           107      M      9.035782E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   320\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      6.553696E-02   3.496642E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -2.236176E-14   3.519410E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -6.553696E-02   3.496642E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   321\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.181662E-02  -2.004725E-04  -8.017087E-04  -1.970644E-14   1.553555E-06   9.944232E-05                  \r\n           107      M     -1.094869E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   322\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      3.120855E-02   1.638073E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -6.552142E-14   1.657290E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.120855E-02   1.638073E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   323\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.264599E-02  -4.404410E-04  -8.608871E-04  -5.765787E-14  -1.643126E-05   9.811229E-05                  \r\n           107      M     -3.201895E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   324\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      7.528332E-03   4.537180E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.266143E-13   4.705777E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -7.528332E-03   4.537180E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   325\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.237257E-02  -4.618977E-04  -8.680270E-04  -1.114110E-13  -1.902335E-05   9.376630E-05                  \r\n           107      M     -6.186173E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   326\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -1.679823E-03   3.700558E-03   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.437578E-13   5.316249E-03   0.0            0.0            0.0            0.0                           \r\n            53      G      1.679823E-03   3.700558E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   327\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.238472E-02  -3.770088E-04  -8.498601E-04  -1.264937E-13  -1.413932E-05   9.210961E-05                  \r\n           107      M     -7.023544E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   328\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      3.115468E-03   2.415224E-02   0.0            0.0            0.0            0.0                           \r\n            52      G     -1.250651E-13   2.580528E-02   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.115468E-03   2.415224E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   329\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.250642E-02  -4.422990E-04  -8.643540E-04  -1.100406E-13  -1.825057E-05   9.355444E-05                  \r\n           107      M     -6.110094E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   330\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      2.253920E-02   1.187567E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -9.294520E-14   1.205863E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -2.253920E-02   1.187567E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   331\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.259743E-02  -4.770431E-04  -8.698740E-04  -8.178884E-14  -1.907804E-05   9.675877E-05                  \r\n           107      M     -4.541603E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   332\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      5.446753E-02   2.896703E-01   0.0            0.0            0.0            0.0                           \r\n            52      G     -3.678723E-14   2.918324E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -5.446753E-02   2.896703E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   333\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.211616E-02  -2.731628E-04  -8.198178E-04  -3.239513E-14  -3.939279E-06   9.905140E-05                  \r\n           107      M     -1.799338E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   334\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      9.096155E-02   4.887786E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.357767E-14   4.913020E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -9.096155E-02   4.887786E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   335\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.042413E-02  -4.922881E-05  -7.636963E-04   1.189656E-14   1.282842E-05   9.818151E-05                  \r\n           107      M      6.597263E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   336\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.243436E-01   6.614697E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      6.231484E-14   6.643022E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.243436E-01   6.614697E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   337\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.945639E-02   1.525322E-05  -7.442310E-04   5.475791E-14   1.933930E-05   9.966925E-05                  \r\n           107      M      3.039364E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   338\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            51      G      1.497113E-01   7.862128E-01   0.0            0.0            0.0            0.0                           \r\n            52      G      1.268578E-13   7.893048E-01   0.0            0.0            0.0            0.0                           \r\n            53      G     -1.497113E-01   7.862128E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   339\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.032409E-02   4.271936E-05  -7.361125E-04   1.115468E-13   2.248614E-05   1.060028E-04                  \r\n           107      M      6.192147E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   340\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   341\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   342\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   343\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   344\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.400001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   345\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.400001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   346\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.600001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   347\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.600001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   348\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  4.800001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   349\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  4.800001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   350\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.000001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   351\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.000001E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   352\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   353\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.200000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   354\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.400000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   355\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.400000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   356\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.600000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   357\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.600000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   358\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  5.800000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   359\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  5.800000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   360\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   361\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.000000E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   362\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.199999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   363\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.199999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   364\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.399999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   365\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.399999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   366\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.599999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   367\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.599999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   368\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.799999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   369\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.799999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   370\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  6.999999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   371\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  6.999999E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   372\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.199998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   373\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.199998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   374\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.399998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   375\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.399998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   376\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.599998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   377\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.599998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   378\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.799998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   379\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.799998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   380\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       ABASIC                             \r\n      TIME =  7.999998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.812983E-14  -4.382913E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      2.119883E+02  -2.572500E+01   0.0            0.0            0.0            0.0                           \r\n            51      G      3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n            52      G     -8.659740E-15  -3.675000E+01   0.0            0.0            0.0            0.0                           \r\n            53      G     -3.680175E+02  -2.733044E+02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   381\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MA                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MA                                 \r\n      TIME =  7.999998E-01\r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.243901E+02  -1.869011E+01  -1.809501E+02   6.623826E-13   1.605692E+00   3.575760E+01                  \r\n           107      M      3.744889E-13                                                                                             \r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   2 DISPLACEMENTS FOR SUBSTRUCTURE MB      \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n0*** USER INFORMATION MESSAGE 6312, LEVEL   1 DISPLACEMENTS FOR SUBSTRUCTURE BBASIC  \r\n                                    HAVE BEEN RECOVERED AND SAVED ON THE SOF.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   382\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  0.000000E+00\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      0.000000E+00      0.0000      2.772843E-02      0.6347\r\n              102     IN-MODE       2      5.216362E+01      0.000000E+00      0.0000      1.103058E-03      0.0252\r\n              103     IN-MODE       3      6.452576E+01      0.000000E+00      0.0000      3.022328E-22      0.0000\r\n              104     IN-MODE       4      9.687958E+01      0.000000E+00      0.0000      5.292991E-05      0.0012\r\n              105     IN-MODE       5      1.234085E+02      0.000000E+00      0.0000      8.914975E-06      0.0002\r\n              106     IN-MODE       6      1.480653E+02      0.000000E+00      0.0000      5.541882E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      0.000000E+00      0.0000      9.591797E-25      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     0.000000E+00      0.0000      4.368633E-02      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   383\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -1.517375E-01     -0.2298      1.859646E-01      0.9499\r\n              102     IN-MODE       2      5.216362E+01     -1.249615E-04     -0.0002      1.215037E-03      0.0062\r\n              103     IN-MODE       3      6.452576E+01      6.174958E-20      0.0000      4.132761E-22      0.0000\r\n              104     IN-MODE       4      9.687958E+01      7.720994E-06      0.0000      4.614436E-05      0.0002\r\n              105     IN-MODE       5      1.234085E+02      3.208312E-06      0.0000      6.148544E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      6.522276E-07      0.0000      5.857243E-08      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.959343E-22      0.0000      1.310929E-24      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.602179E-01      1.0000      1.957691E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   384\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  4.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -3.009797E-02     -0.0099      3.842273E-01      0.9898\r\n              102     IN-MODE       2      5.216362E+01      5.090903E-03      0.0017      6.904577E-04      0.0018\r\n              103     IN-MODE       3      6.452576E+01      2.426172E-20      0.0000      9.902300E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      2.064246E-04      0.0001      3.608721E-05      0.0001\r\n              105     IN-MODE       5      1.234085E+02      3.437552E-05      0.0000      3.574504E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      1.636150E-06      0.0000      1.633577E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      7.699757E-23      0.0000      3.129906E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     3.025424E+00      1.0000      3.881695E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   385\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  6.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      6.702170E-01      0.0979      1.625974E-01      0.9934\r\n              102     IN-MODE       2      5.216362E+01     -1.657042E-03     -0.0002      3.665392E-05      0.0002\r\n              103     IN-MODE       3      6.452576E+01      5.877282E-20      0.0000      3.539827E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -1.170422E-04      0.0000      3.825281E-06      0.0000\r\n              105     IN-MODE       5      1.234085E+02     -2.141435E-05      0.0000      9.033698E-08      0.0000\r\n              106     IN-MODE       6      1.480653E+02     -3.321454E-07      0.0000      4.889650E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.865103E-22      0.0000      1.118182E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.845239E+00      1.0000      1.636810E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   386\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  8.000000E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      8.780258E-01      0.1012      1.468203E-03      0.8692\r\n              102     IN-MODE       2      5.216362E+01     -2.970083E-03     -0.0003      2.028819E-04      0.1201\r\n              103     IN-MODE       3      6.452576E+01      7.351084E-20      0.0000      4.699084E-26      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -3.574908E-05      0.0000      7.141561E-06      0.0042\r\n              105     IN-MODE       5      1.234085E+02     -1.220825E-05      0.0000      1.447882E-06      0.0009\r\n              106     IN-MODE       6      1.480653E+02     -2.715137E-07      0.0000      2.529356E-07      0.0001\r\n              107     IN-MODE       7      1.514840E+02      2.332787E-22      0.0000      1.480892E-28      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     8.675114E+00      1.0000      1.689105E-03      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   387\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  9.999999E-02\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      2.031315E-01      0.0294      1.399451E-01      0.9940\r\n              102     IN-MODE       2      5.216362E+01      6.582342E-03      0.0010      8.783445E-06      0.0001\r\n              103     IN-MODE       3      6.452576E+01      5.691616E-20      0.0000      2.796431E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      2.902770E-04      0.0000      1.893492E-06      0.0000\r\n              105     IN-MODE       5      1.234085E+02      4.279241E-05      0.0000      1.525269E-09      0.0000\r\n              106     IN-MODE       6      1.480653E+02      9.448538E-07      0.0000      6.302567E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.806254E-22      0.0000      8.831118E-27      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.918139E+00      1.0000      1.407859E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   388\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  1.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -2.768693E-02     -0.0080      2.320740E-01      0.9763\r\n              102     IN-MODE       2      5.216362E+01      5.611720E-03      0.0016      2.405146E-03      0.0101\r\n              103     IN-MODE       3      6.452576E+01      2.795109E-20      0.0000      6.095273E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      1.566979E-04      0.0000      1.015594E-04      0.0004\r\n              105     IN-MODE       5      1.234085E+02      2.898223E-05      0.0000      1.472730E-05      0.0001\r\n              106     IN-MODE       6      1.480653E+02      2.166861E-06      0.0000      3.254605E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      8.870649E-23      0.0000      1.927686E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     3.447527E+00      1.0000      2.377083E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   389\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  1.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      7.758329E-02      0.1185      3.237921E-01      0.9700\r\n              102     IN-MODE       2      5.216362E+01     -6.633886E-04     -0.0010      4.755341E-03      0.0142\r\n              103     IN-MODE       3      6.452576E+01      5.476128E-21      0.0000      8.623482E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -9.877876E-06      0.0000      1.983907E-04      0.0006\r\n              105     IN-MODE       5      1.234085E+02     -1.458590E-06      0.0000      3.156451E-05      0.0001\r\n              106     IN-MODE       6      1.480653E+02      1.300033E-09      0.0000      1.495708E-06      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.737775E-23      0.0000      2.727835E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.544658E-01      1.0000      3.338138E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   390\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  1.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -3.940531E-02     -0.2052      5.070419E-01      0.9855\r\n              102     IN-MODE       2      5.216362E+01      1.319875E-03      0.0069      2.162839E-03      0.0042\r\n              103     IN-MODE       3      6.452576E+01      1.224283E-21      0.0000      1.146293E-23      0.0000\r\n              104     IN-MODE       4      9.687958E+01      3.958989E-05      0.0002      1.067081E-04      0.0002\r\n              105     IN-MODE       5      1.234085E+02      9.405599E-06      0.0000      1.318304E-05      0.0000\r\n              106     IN-MODE       6      1.480653E+02      1.650724E-06      0.0000      5.953198E-10      0.0000\r\n              107     IN-MODE       7      1.514840E+02      3.886199E-24      0.0000      3.623067E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.920667E-01      1.0000      5.145276E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   391\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  1.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      1.898107E-01      0.0691      4.579072E-01      0.9910\r\n              102     IN-MODE       2      5.216362E+01     -7.340532E-05      0.0000      5.882253E-04      0.0013\r\n              103     IN-MODE       3      6.452576E+01      2.280797E-20      0.0000      1.119350E-23      0.0000\r\n              104     IN-MODE       4      9.687958E+01      6.150925E-05      0.0000      3.248476E-05      0.0001\r\n              105     IN-MODE       5      1.234085E+02      8.011699E-06      0.0000      2.411164E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02     -5.628722E-08      0.0000      6.163116E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      7.237999E-23      0.0000      3.537403E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     2.747805E+00      1.0000      4.620837E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   392\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      7.629452E-01      0.1159      1.153927E-01      0.9821\r\n              102     IN-MODE       2      5.216362E+01     -1.320254E-03     -0.0002      7.405076E-04      0.0063\r\n              103     IN-MODE       3      6.452576E+01      5.703460E-20      0.0000      3.054893E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -7.847249E-05      0.0000      3.205203E-05      0.0003\r\n              105     IN-MODE       5      1.234085E+02     -2.184880E-05      0.0000      4.532028E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      6.507583E-08      0.0000      6.078191E-08      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.809914E-22      0.0000      9.659751E-27      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     6.580954E+00      1.0000      1.174964E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   393\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      5.128819E-01      0.0617      2.426998E-03      0.7816\r\n              102     IN-MODE       2      5.216362E+01      1.791561E-03      0.0002      5.984065E-04      0.1927\r\n              103     IN-MODE       3      6.452576E+01      6.956847E-20      0.0000      9.089602E-26      0.0000\r\n              104     IN-MODE       4      9.687958E+01      2.232195E-05      0.0000      2.336004E-05      0.0075\r\n              105     IN-MODE       5      1.234085E+02      4.629277E-06      0.0000      5.152477E-06      0.0017\r\n              106     IN-MODE       6      1.480653E+02      1.450495E-07      0.0000      1.080139E-06      0.0003\r\n              107     IN-MODE       7      1.514840E+02      2.207744E-22      0.0000      2.862742E-28      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     8.318852E+00      1.0000      3.105027E-03      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   394\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      1.132132E-02      0.0016      6.245929E-02      0.9863\r\n              102     IN-MODE       2      5.216362E+01      7.594724E-03      0.0011      2.282126E-04      0.0036\r\n              103     IN-MODE       3      6.452576E+01      5.681487E-20      0.0000      1.374447E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      4.285097E-04      0.0001      1.166689E-05      0.0002\r\n              105     IN-MODE       5      1.234085E+02      7.420292E-05      0.0000      1.568705E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      3.292544E-06      0.0000      5.650729E-09      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.803078E-22      0.0000      4.343931E-27      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     7.090398E+00      1.0000      6.332895E-02      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   395\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      1.825694E-01      0.0448      1.511681E-01      0.9585\r\n              102     IN-MODE       2      5.216362E+01      3.976915E-03      0.0010      3.491084E-03      0.0221\r\n              103     IN-MODE       3      6.452576E+01      3.420023E-20      0.0000      3.711093E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      1.410285E-04      0.0000      1.479592E-04      0.0009\r\n              105     IN-MODE       5      1.234085E+02      1.641844E-05      0.0000      2.409673E-05      0.0002\r\n              106     IN-MODE       6      1.480653E+02      5.549020E-08      0.0000      1.413598E-06      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.085342E-22      0.0000      1.174100E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     4.073345E+00      1.0000      1.577087E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   396\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  2.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      2.266644E-01      0.2227      4.042657E-01      0.9802\r\n              102     IN-MODE       2      5.216362E+01     -1.291478E-03     -0.0013      3.135407E-03      0.0076\r\n              103     IN-MODE       3      6.452576E+01      9.057145E-21      0.0000      1.076154E-23      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -7.530899E-05     -0.0001      1.321106E-04      0.0003\r\n              105     IN-MODE       5      1.234085E+02     -1.117456E-05      0.0000      1.799296E-05      0.0000\r\n              106     IN-MODE       6      1.480653E+02      8.611581E-07      0.0000      1.685761E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      2.874001E-23      0.0000      3.403038E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     1.018029E+00      1.0000      4.124159E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   397\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  3.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -6.790148E-03     -0.0745      6.383693E-01      0.9906\r\n              102     IN-MODE       2      5.216362E+01      6.962948E-04      0.0076      8.765006E-04      0.0014\r\n              103     IN-MODE       3      6.452576E+01      7.496960E-22      0.0000      1.466095E-23      0.0000\r\n              104     IN-MODE       4      9.687958E+01      9.908739E-06      0.0001      5.003243E-05      0.0001\r\n              105     IN-MODE       5      1.234085E+02      1.165949E-06      0.0000      4.474465E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      6.280111E-08      0.0000      4.704230E-07      0.0000\r\n              107     IN-MODE       7      1.514840E+02      2.379319E-24      0.0000      4.632772E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     9.108514E-02      1.0000      6.443991E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   398\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  3.200000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      3.956260E-01      0.1608      3.950624E-01      0.9868\r\n              102     IN-MODE       2      5.216362E+01     -3.092420E-03     -0.0013      1.348726E-03      0.0034\r\n              103     IN-MODE       3      6.452576E+01      2.118718E-20      0.0000      9.161491E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01     -1.205707E-04      0.0000      7.125931E-05      0.0002\r\n              105     IN-MODE       5      1.234085E+02     -1.773166E-05      0.0000      8.485657E-06      0.0000\r\n              106     IN-MODE       6      1.480653E+02      4.147678E-07      0.0000      5.970946E-09      0.0000\r\n              107     IN-MODE       7      1.514840E+02      6.723337E-23      0.0000      2.895635E-26      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     2.461011E+00      1.0000      4.003456E-01      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   399\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  3.400000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      4.849974E-01      0.0812      7.799850E-02      0.9455\r\n              102     IN-MODE       2      5.216362E+01     -1.222735E-03     -0.0002      2.648596E-03      0.0321\r\n              103     IN-MODE       3      6.452576E+01      5.049766E-20      0.0000      2.449457E-24      0.0000\r\n              104     IN-MODE       4      9.687958E+01      7.085810E-05      0.0000      1.001688E-04      0.0012\r\n              105     IN-MODE       5      1.234085E+02      6.214452E-06      0.0000      1.651916E-05      0.0002\r\n              106     IN-MODE       6      1.480653E+02     -2.101397E-07      0.0000      1.083343E-06      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.602507E-22      0.0000      7.753733E-27      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     5.969221E+00      1.0000      8.249500E-02      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   400\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  3.600000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      6.601623E-02      0.0083      2.451827E-03      0.8637\r\n              102     IN-MODE       2      5.216362E+01      1.354230E-02      0.0017      2.656480E-04      0.0936\r\n              103     IN-MODE       3      6.452576E+01      6.521475E-20      0.0000      4.530816E-26      0.0000\r\n              104     IN-MODE       4      9.687958E+01      4.150793E-04      0.0001      9.445139E-06      0.0033\r\n              105     IN-MODE       5      1.234085E+02      6.161861E-05      0.0000      1.857120E-06      0.0007\r\n              106     IN-MODE       6      1.480653E+02      2.182137E-06      0.0000      2.461580E-07      0.0001\r\n              107     IN-MODE       7      1.514840E+02      2.069641E-22      0.0000      1.435707E-28      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     7.968864E+00      1.0000      2.838838E-03      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   401\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  3.800000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01      1.522801E+00      0.4731      1.004314E+00      0.9656\r\n              102     IN-MODE       2      5.216362E+01      1.170994E-02      0.0036      3.146549E-02      0.0303\r\n              103     IN-MODE       3      6.452576E+01      7.415481E-18      0.0000      2.049037E-20      0.0000\r\n              104     IN-MODE       4      9.687958E+01      4.897253E-04      0.0002      1.466827E-03      0.0014\r\n              105     IN-MODE       5      1.234085E+02      6.952795E-05      0.0000      2.156869E-04      0.0002\r\n              106     IN-MODE       6      1.480653E+02      8.193809E-07      0.0000      4.590455E-06      0.0000\r\n              107     IN-MODE       7      1.514840E+02      2.353131E-20      0.0000      6.502787E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     3.218880E+00      1.0000      1.040112E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   402\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                                       MODAL COORDINATE ENERGIES FOR SUBSTRUCTURE BBASIC  \r\n\r\n\r\n            TIME =  4.000000E-01\r\n\r\n\r\n            GRID      TYPE      MODE       FREQUENCY          KINETIC        KE/TOTAL      POTENTIAL       PE/TOTAL\r\n\r\n              101     IN-MODE       1      1.378483E+01     -1.410520E+00     -0.5156      5.627069E+00      0.9287\r\n              102     IN-MODE       2      5.216362E+01      9.766283E-03      0.0036      2.887713E-02      0.0048\r\n              103     IN-MODE       3      6.452576E+01      5.963856E-18      0.0000      2.542299E-20      0.0000\r\n              104     IN-MODE       4      9.687958E+01      3.859189E-04      0.0001      1.104127E-03      0.0002\r\n              105     IN-MODE       5      1.234085E+02      6.884718E-05      0.0000      1.517379E-04      0.0000\r\n              106     IN-MODE       6      1.480653E+02      3.929138E-06      0.0000      2.314277E-06      0.0000\r\n              107     IN-MODE       7      1.514840E+02      1.892460E-20      0.0000      8.065179E-23      0.0000\r\n                                                            --------------    --------    --------------    --------\r\n            TOTAL ENERGY FOR THIS VECTOR                     2.735660E+00      1.0000      6.058838E+00      1.0000\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   403\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.972804E-02   1.726345E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.000000E-01  -1.394654E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.972804E-02  -1.726345E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.237933E-01   1.756579E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.238578E-01  -1.308536E-13   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.237933E-01  -1.756579E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.477356E-01   1.772534E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.477749E-01  -4.259249E-14   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.477356E-01  -1.772534E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.716337E-01   1.779227E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.716518E-01   2.739462E-14   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.716337E-01  -1.779227E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.954422E-01   1.780857E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.954451E-01   5.117084E-14   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.954422E-01  -1.780857E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   404\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.795284E-02   1.602409E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.815945E-02   1.631682E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.795284E-02  -1.602409E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.113268E-01   1.679232E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.114743E-01   1.530982E-13   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.113268E-01  -1.679232E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.350963E-01   1.725773E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.352029E-01   4.987542E-14   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.350963E-01  -1.725773E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.589202E-01   1.748394E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.589781E-01  -3.198065E-14   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.589202E-01  -1.748394E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.825437E-01   1.755037E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.825542E-01  -5.978331E-14   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.825437E-01  -1.755037E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   405\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.643399E-02   1.299208E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.656072E-02   2.530089E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.643399E-02  -1.299208E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -8.638323E-02   1.408971E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -8.658586E-02   2.374118E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -8.638323E-02  -1.408971E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.071586E-01   1.478170E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.073136E-01   7.747490E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.071586E-01  -1.478170E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.280980E-01   1.513290E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.281866E-01  -4.936209E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.280980E-01  -1.513290E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.487699E-01   1.524107E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.487866E-01  -9.242727E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.487699E-01  -1.524107E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   406\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.646334E-02   7.373300E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.653554E-02   1.512666E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.646334E-02  -7.373300E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -4.795023E-02   8.084430E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -4.807768E-02   1.419389E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -4.795023E-02  -8.084430E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.002694E-02   8.545420E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -6.012856E-02   4.631093E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -6.002694E-02  -8.545420E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -7.224899E-02   8.785705E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -7.230903E-02  -2.952544E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -7.224899E-02  -8.785705E-03   0.0            0.0            0.0            0.0                           \r\n            41      G     -8.430611E-02   8.861772E-03   0.0            0.0            0.0            0.0                           \r\n            42      G     -8.431764E-02  -5.527593E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -8.430611E-02  -8.861772E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   407\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.473437E-03   5.936068E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.480211E-03  -1.739595E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.473437E-03  -5.936068E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -5.178940E-03   5.303015E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -5.172579E-03  -1.632200E-15   0.0            0.0            0.0            0.0                           \r\n            13      G     -5.178940E-03  -5.303015E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -5.756794E-03   4.718296E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -5.745894E-03  -5.311615E-16   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.756794E-03  -4.718296E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -6.269299E-03   4.331676E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -6.260313E-03   3.417929E-16   0.0            0.0            0.0            0.0                           \r\n            33      G     -6.269299E-03  -4.331676E-04   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.786382E-03   4.184372E-04   0.0            0.0            0.0            0.0                           \r\n            42      G     -6.784355E-03   6.384404E-16   0.0            0.0            0.0            0.0                           \r\n            43      G     -6.786382E-03  -4.184372E-04   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   408\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.187666E-02  -6.535134E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      3.194106E-02  -1.344566E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      3.187666E-02   6.535134E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      4.211361E-02  -7.194262E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      4.223077E-02  -1.261663E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      4.211361E-02   7.194262E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      5.291033E-02  -7.624533E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      5.300477E-02  -4.116968E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      5.291033E-02   7.624533E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      6.385115E-02  -7.850283E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      6.390741E-02   2.624021E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      6.385115E-02   7.850283E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      7.464130E-02  -7.922236E-03   0.0            0.0            0.0            0.0                           \r\n            42      G      7.465217E-02   4.912730E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      7.464130E-02   7.922236E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   409\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.724679E-02  -1.263359E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      6.737154E-02  -1.985424E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      6.724679E-02   1.263359E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      8.627026E-02  -1.349478E-02   0.0            0.0            0.0            0.0                           \r\n            12      G      8.643888E-02  -1.863048E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      8.627026E-02   1.349478E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      1.057982E-01  -1.400431E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.059164E-01  -6.081900E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      1.057982E-01   1.400431E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.253539E-01  -1.424664E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      1.254164E-01   3.870877E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      1.253539E-01   1.424664E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.446799E-01  -1.431614E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      1.446910E-01   7.249446E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      1.446799E-01   1.431614E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   410\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.732010E-02  -1.617281E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      8.747876E-02  -2.361819E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      8.732010E-02   1.617281E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      1.115118E-01  -1.719277E-02   0.0            0.0            0.0            0.0                           \r\n            12      G      1.117154E-01  -2.216190E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      1.115118E-01   1.719277E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      1.362442E-01  -1.778360E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.363829E-01  -7.235705E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      1.362442E-01   1.778360E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.609718E-01  -1.805826E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      1.610434E-01   4.602974E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      1.609718E-01   1.805826E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.854197E-01  -1.813487E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      1.854322E-01   8.621402E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      1.854197E-01   1.813487E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   411\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.532047E-02  -1.639792E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      8.548176E-02  -2.722721E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      8.532047E-02   1.639792E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      1.102817E-01  -1.766360E-02   0.0            0.0            0.0            0.0                           \r\n            12      G      1.105207E-01  -2.554939E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      1.102817E-01   1.766360E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      1.361104E-01  -1.844217E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.362870E-01  -8.340132E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      1.361104E-01   1.844217E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.620717E-01  -1.882836E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      1.621700E-01   5.308913E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      1.620717E-01   1.882836E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.877147E-01  -1.894458E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      1.877328E-01   9.942494E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      1.877147E-01   1.894458E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   412\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.830145E-02  -1.353013E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      6.843473E-02  -2.689852E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      6.830145E-02   1.353013E-02   0.0            0.0            0.0            0.0                           \r\n            11      G      8.918646E-02  -1.472755E-02   0.0            0.0            0.0            0.0                           \r\n            12      G      8.940586E-02  -2.524088E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      8.918646E-02   1.472755E-02   0.0            0.0            0.0            0.0                           \r\n            21      G      1.109962E-01  -1.548744E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      1.111656E-01  -8.236548E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      1.109962E-01   1.548744E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      1.329997E-01  -1.587540E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      1.330972E-01   5.248948E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      1.329997E-01   1.587540E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      1.547148E-01  -1.599568E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      1.547332E-01   9.828128E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      1.547148E-01   1.599568E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   413\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.399038E-02  -8.339021E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      4.407183E-02  -1.405417E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      4.399038E-02   8.339021E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      5.661008E-02  -8.944025E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      5.672615E-02  -1.318797E-14   0.0            0.0            0.0            0.0                           \r\n            13      G      5.661008E-02   8.944025E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      6.962090E-02  -9.310609E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      6.970486E-02  -4.304766E-15   0.0            0.0            0.0            0.0                           \r\n            23      G      6.962090E-02   9.310609E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      8.267704E-02  -9.489391E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      8.272278E-02   2.740836E-15   0.0            0.0            0.0            0.0                           \r\n            33      G      8.267704E-02   9.489391E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      9.557650E-02  -9.542124E-03   0.0            0.0            0.0            0.0                           \r\n            42      G      9.558482E-02   5.132756E-15   0.0            0.0            0.0            0.0                           \r\n            43      G      9.557650E-02   9.542124E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   414\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.101861E-02  -1.591423E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      1.103443E-02   2.417095E-15   0.0            0.0            0.0            0.0                           \r\n             3      G      1.101861E-02   1.591423E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      1.306175E-02  -1.511429E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      1.305600E-02   2.267720E-15   0.0            0.0            0.0            0.0                           \r\n            13      G      1.306175E-02   1.511429E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      1.490774E-02  -1.429944E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.489325E-02   7.366598E-16   0.0            0.0            0.0            0.0                           \r\n            23      G      1.490774E-02   1.429944E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      1.664969E-02  -1.373967E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      1.663692E-02  -4.770123E-16   0.0            0.0            0.0            0.0                           \r\n            33      G      1.664969E-02   1.373967E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      1.839340E-02  -1.352133E-03   0.0            0.0            0.0            0.0                           \r\n            42      G      1.839045E-02  -8.895125E-16   0.0            0.0            0.0            0.0                           \r\n            43      G      1.839340E-02   1.352133E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   415\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.020194E-02   5.780797E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.025798E-02   9.428185E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.020194E-02  -5.780797E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -3.899157E-02   6.224465E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.907504E-02   8.847045E-15   0.0            0.0            0.0            0.0                           \r\n            13      G     -3.899157E-02  -6.224465E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.809060E-02   6.498874E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.815273E-02   2.887744E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.809060E-02  -6.498874E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -5.724084E-02   6.635814E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -5.727564E-02  -1.838535E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.724084E-02  -6.635814E-03   0.0            0.0            0.0            0.0                           \r\n            41      G     -6.628016E-02   6.677263E-03   0.0            0.0            0.0            0.0                           \r\n            42      G     -6.628661E-02  -3.442979E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -6.628016E-02  -6.677263E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   416\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.623100E-02   1.212600E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.635091E-02   1.549803E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.623100E-02  -1.212600E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -8.425346E-02   1.282643E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -8.439713E-02   1.454327E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -8.425346E-02  -1.282643E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.025854E-01   1.321812E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.026791E-01   4.750418E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.025854E-01  -1.321812E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.208733E-01   1.339316E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.209196E-01  -3.016995E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.208733E-01  -1.339316E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.389619E-01   1.343963E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.389697E-01  -5.652906E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.389619E-01  -1.343963E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   417\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.325891E-02   1.578978E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.341487E-02   2.637916E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.325891E-02  -1.578978E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.071443E-01   1.692403E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.073635E-01   2.475326E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.071443E-01  -1.692403E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.317395E-01   1.760529E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.318961E-01   8.079899E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.317395E-01  -1.760529E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.564009E-01   1.793431E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.564853E-01  -5.143926E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.564009E-01  -1.793431E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.807654E-01   1.803035E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.807806E-01  -9.633371E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.807654E-01  -1.803035E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   418\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.312082E-02   1.634764E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.328048E-02   3.078598E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.312082E-02  -1.634764E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.082833E-01   1.776134E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.085427E-01   2.888862E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.082833E-01  -1.776134E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.345299E-01   1.865741E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.347300E-01   9.427463E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.345299E-01  -1.865741E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.610032E-01   1.911473E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.611184E-01  -6.007422E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.610032E-01  -1.911473E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.871356E-01   1.925642E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.871573E-01  -1.124757E-14   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.871356E-01  -1.925642E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   419\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.334013E-02   1.415126E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.347896E-02   2.433973E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.334013E-02  -1.415126E-02   0.0            0.0            0.0            0.0                           \r\n            11      G     -9.492256E-02   1.526721E-02   0.0            0.0            0.0            0.0                           \r\n            12      G     -9.513187E-02   2.283980E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -9.492256E-02  -1.526721E-02   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.172900E-01   1.595861E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.174462E-01   7.455251E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.172900E-01  -1.595861E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.397903E-01   1.630425E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.398779E-01  -4.746694E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.397903E-01  -1.630425E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.620132E-01   1.640915E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.620294E-01  -8.889507E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.620132E-01  -1.640915E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   420\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.140954E-02   9.338117E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.150254E-02   1.258884E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.140954E-02  -9.338117E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -6.523303E-02   9.843878E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -6.533979E-02   1.181332E-14   0.0            0.0            0.0            0.0                           \r\n            13      G     -6.523303E-02  -9.843878E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -7.924006E-02   1.011666E-02   0.0            0.0            0.0            0.0                           \r\n            22      G     -7.930674E-02   3.858233E-15   0.0            0.0            0.0            0.0                           \r\n            23      G     -7.924006E-02  -1.011666E-02   0.0            0.0            0.0            0.0                           \r\n            31      G     -9.318225E-02   1.023239E-02   0.0            0.0            0.0            0.0                           \r\n            32      G     -9.321337E-02  -2.451492E-15   0.0            0.0            0.0            0.0                           \r\n            33      G     -9.318225E-02  -1.023239E-02   0.0            0.0            0.0            0.0                           \r\n            41      G     -1.069730E-01   1.026082E-02   0.0            0.0            0.0            0.0                           \r\n            42      G     -1.069779E-01  -4.593217E-15   0.0            0.0            0.0            0.0                           \r\n            43      G     -1.069730E-01  -1.026082E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   421\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.378143E-02   2.398395E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.380486E-02   1.714604E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.378143E-02  -2.398395E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.725734E-02   2.489902E-03   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.727912E-02   1.609001E-15   0.0            0.0            0.0            0.0                           \r\n            13      G     -1.725734E-02  -2.489902E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.073115E-02   2.531190E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.074246E-02   5.265589E-16   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.073115E-02  -2.531190E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.416860E-02   2.544072E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.417258E-02  -3.322197E-16   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.416860E-02  -2.544072E-03   0.0            0.0            0.0            0.0                           \r\n            41      G     -2.757334E-02   2.545432E-03   0.0            0.0            0.0            0.0                           \r\n            42      G     -2.757377E-02  -6.235357E-16   0.0            0.0            0.0            0.0                           \r\n            43      G     -2.757334E-02  -2.545432E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   422\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.919014E-02  -7.703990E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.907512E-02   1.148530E-12   0.0            0.0            0.0            0.0                           \r\n             3      G      2.919014E-02   7.703990E-03   0.0            0.0            0.0            0.0                           \r\n            11      G      4.392191E-02  -9.520222E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      4.430058E-02   1.077630E-12   0.0            0.0            0.0            0.0                           \r\n            13      G      4.392191E-02   9.520222E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      5.976448E-02  -1.050402E-02   0.0            0.0            0.0            0.0                           \r\n            22      G      6.000220E-02   3.509206E-13   0.0            0.0            0.0            0.0                           \r\n            23      G      5.976448E-02   1.050402E-02   0.0            0.0            0.0            0.0                           \r\n            31      G      7.540994E-02  -1.092880E-02   0.0            0.0            0.0            0.0                           \r\n            32      G      7.552312E-02  -2.253498E-13   0.0            0.0            0.0            0.0                           \r\n            33      G      7.540994E-02   1.092880E-02   0.0            0.0            0.0            0.0                           \r\n            41      G      9.053128E-02  -1.103695E-02   0.0            0.0            0.0            0.0                           \r\n            42      G      9.054982E-02  -4.210989E-13   0.0            0.0            0.0            0.0                           \r\n            43      G      9.053128E-02   1.103695E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   423\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    BBASIC                             \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.387250E-02  -5.085935E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      1.245541E-02  -1.279549E-12   0.0            0.0            0.0            0.0                           \r\n             3      G      1.387250E-02   5.085935E-04   0.0            0.0            0.0            0.0                           \r\n            11      G      2.296061E-02  -4.726507E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      2.376428E-02  -1.200563E-12   0.0            0.0            0.0            0.0                           \r\n            13      G      2.296061E-02   4.726507E-03   0.0            0.0            0.0            0.0                           \r\n            21      G      3.686199E-02  -7.307916E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      3.745103E-02  -3.909690E-13   0.0            0.0            0.0            0.0                           \r\n            23      G      3.686199E-02   7.307916E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      5.114086E-02  -8.576256E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      5.146459E-02   2.510254E-13   0.0            0.0            0.0            0.0                           \r\n            33      G      5.114086E-02   8.576256E-03   0.0            0.0            0.0            0.0                           \r\n            41      G      6.433301E-02  -8.953019E-03   0.0            0.0            0.0            0.0                           \r\n            42      G      6.439216E-02   4.690989E-13   0.0            0.0            0.0            0.0                           \r\n            43      G      6.433301E-02   8.953019E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   424\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -9.972804E-02   1.726345E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.000000E-01  -1.394654E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.972804E-02  -1.726345E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   425\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  0.000000E+00\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -3.502298E-03   1.411544E-04   7.447808E-14  -1.852810E-05   5.900777E-06  -1.318195E-06                  \r\n           107      M     -2.768213E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   426\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.795284E-02   1.602409E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.815945E-02   1.631682E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.795284E-02  -1.602409E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   427\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -9.069964E-03   1.481460E-04  -8.707308E-14  -1.729974E-05   4.900442E-06  -4.285462E-07                  \r\n           107      M      3.234609E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   428\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.643399E-02   1.299208E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.656072E-02   2.530089E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.643399E-02  -1.299208E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   429\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.303721E-02   1.116770E-04  -1.346410E-14  -1.529879E-05   3.736431E-06   7.156833E-07                  \r\n           107      M      4.984140E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   430\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.646334E-02   7.373300E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.653554E-02   1.512666E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.646334E-02  -7.373300E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   431\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -8.481004E-03   2.573092E-05  -8.049877E-15  -4.980948E-06   5.939938E-07   1.238197E-06                  \r\n           107      M      2.978374E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   432\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.473437E-03   5.936068E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.480211E-03  -1.739595E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.473437E-03  -5.936068E-04   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   433\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  8.000000E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      8.059044E-04   6.053644E-05   9.285304E-16  -6.805765E-06   2.378021E-06  -8.905452E-07                  \r\n           107      M     -3.430763E-17                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   434\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.187666E-02  -6.535134E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      3.194106E-02  -1.344566E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      3.187666E-02   6.535134E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   435\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  9.999999E-02\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.868089E-03  -1.259585E-05   7.154619E-15   3.504387E-06  -7.718312E-08  -1.405755E-06                  \r\n           107      M     -2.646512E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   436\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.724679E-02  -1.263359E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      6.737154E-02  -1.985424E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      6.724679E-02   1.263359E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   437\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  1.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.013220E-02  -2.084327E-04   1.056192E-14   2.566495E-05  -7.584217E-06   1.010183E-06                  \r\n           107      M     -3.911367E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   438\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.732010E-02  -1.617281E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      8.747876E-02  -2.361819E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      8.732010E-02   1.617281E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   439\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  1.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.196805E-02  -2.930799E-04   1.256233E-14   3.587080E-05  -1.110321E-05   2.165581E-06                  \r\n           107      M     -4.652797E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   440\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      8.532047E-02  -1.639792E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      8.548176E-02  -2.722721E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      8.532047E-02   1.639792E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   441\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  1.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.497657E-02  -1.976548E-04   1.448419E-14   2.630747E-05  -7.175579E-06   4.320422E-08                  \r\n           107      M     -5.361175E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   442\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.830145E-02  -1.353013E-02   0.0            0.0            0.0            0.0                           \r\n             2      G      6.843473E-02  -2.689852E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      6.830145E-02   1.353013E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   443\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  1.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.423243E-02  -1.030783E-04   1.431483E-14   1.451511E-05  -3.068757E-06  -1.390116E-06                  \r\n           107      M     -5.298329E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   444\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.399038E-02  -8.339021E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      4.407183E-02  -1.405417E-14   0.0            0.0            0.0            0.0                           \r\n             3      G      4.399038E-02   8.339021E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   445\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.144628E-03  -1.156538E-04   7.477759E-15   1.441810E-05  -4.207222E-06   4.365542E-07                  \r\n           107      M     -2.768886E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   446\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.101861E-02  -1.591423E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      1.103443E-02   2.417095E-15   0.0            0.0            0.0            0.0                           \r\n             3      G      1.101861E-02   1.591423E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   447\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.036156E-03  -1.039665E-04  -1.291762E-15   1.230884E-05  -4.485978E-06   1.840309E-06                  \r\n           107      M      4.772062E-17                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   448\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.020194E-02   5.780797E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.025798E-02   9.428185E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.020194E-02  -5.780797E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   449\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -5.256406E-03   6.420443E-05  -5.015437E-15  -8.698770E-06   2.475254E-06  -1.331077E-07                  \r\n           107      M      1.856257E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   450\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.623100E-02   1.212600E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.635091E-02   1.549803E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.623100E-02  -1.212600E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   451\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -8.177500E-03   2.511166E-04  -8.239837E-15  -3.097786E-05   9.701261E-06  -2.105300E-06                  \r\n           107      M      3.052015E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   452\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.325891E-02   1.578978E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.341487E-02   2.637916E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.325891E-02  -1.578978E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   453\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  2.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.337285E-02   2.379809E-04  -1.403470E-14  -2.927179E-05   8.383018E-06  -7.270245E-07                  \r\n           107      M      5.197100E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   454\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.312082E-02   1.634764E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.328048E-02   3.078598E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.312082E-02  -1.634764E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   455\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  3.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.680453E-02   1.258263E-04  -1.638198E-14  -1.801383E-05   4.180418E-06   1.214494E-06                  \r\n           107      M      6.062724E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   456\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.334013E-02   1.415126E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.347896E-02   2.433973E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.334013E-02  -1.415126E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   457\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  3.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.321975E-02   1.560835E-04  -1.294927E-14  -2.149815E-05   5.756942E-06   1.368272E-07                  \r\n           107      M      4.793078E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   458\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.140954E-02   9.338117E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.150254E-02   1.258884E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.140954E-02  -9.338117E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   459\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  3.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -5.873995E-03   2.187273E-04  -6.694912E-15  -2.548863E-05   8.032360E-06  -1.843037E-06                  \r\n           107      M      2.481127E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   460\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.378143E-02   2.398395E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.380486E-02   1.714604E-15   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.378143E-02  -2.398395E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   461\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  3.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.041443E-03   6.927052E-05  -9.097367E-16  -7.826805E-06   2.693203E-06  -8.785328E-07                  \r\n           107      M      3.372258E-17                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   462\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.919014E-02  -7.703990E-03   0.0            0.0            0.0            0.0                           \r\n             2      G      2.907512E-02   1.148530E-12   0.0            0.0            0.0            0.0                           \r\n             3      G      2.919014E-02   7.703990E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   463\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  3.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      2.107779E-02  -7.538978E-04  -6.132289E-13   9.753711E-05  -2.902425E-05   3.793839E-06                  \r\n           107      M      2.279183E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   464\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.387250E-02  -5.085935E-04   0.0            0.0            0.0            0.0                           \r\n             2      G      1.245541E-02  -1.279549E-12   0.0            0.0            0.0            0.0                           \r\n             3      G      1.387250E-02   5.085935E-04   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   465\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.989208E-02  -7.222245E-04   6.829608E-13   8.462327E-05  -2.434424E-05   2.693758E-06                  \r\n           107      M     -2.537367E-14                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   466\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.077145E-02   7.639633E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.247950E-02  -1.375377E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.077145E-02  -7.639633E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   467\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      6.880993E-02  -6.963460E-04   7.324331E-14   9.614136E-05  -2.618213E-05  -3.130738E-07                  \r\n           107      M     -2.711757E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   468\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.718806E-01   3.065482E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.738018E-01  -8.560768E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.718806E-01  -3.065482E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   469\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.400001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.760624E-02  -5.209033E-04   4.559160E-14   7.004914E-05  -1.792651E-05  -1.779158E-06                  \r\n           107      M     -1.687333E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   470\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.316626E-01   6.272717E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.338889E-01  -1.623141E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.316626E-01  -6.272717E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   471\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.600001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.083902E-02  -4.758819E-04   8.666306E-15   5.433203E-05  -1.603273E-05   2.435841E-06                  \r\n           107      M     -3.208959E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   472\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.227460E-01   9.949066E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.253527E-01   3.035843E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.227460E-01  -9.949066E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   473\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  4.800001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -2.095175E-02   1.802666E-04  -1.609164E-14  -2.469380E-05   4.541595E-06   3.254605E-06                  \r\n           107      M      5.948923E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   474\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.030305E-01   1.323348E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.059575E-01   8.512096E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.030305E-01  -1.323348E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   475\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  5.000001E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -4.283190E-02   8.591897E-04  -4.523932E-14  -1.043028E-04   3.012764E-05  -3.105788E-06                  \r\n           107      M      1.675388E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   476\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.221683E-01   1.545146E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.252974E-01   1.222438E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.221683E-01  -1.545146E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   477\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  5.200000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.139826E-02   1.048341E-03  -6.498982E-14  -1.352736E-04   4.096862E-05  -6.390911E-06                  \r\n           107      M      2.406627E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   478\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.581591E-01   1.628486E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.613840E-01   1.316255E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.581591E-01  -1.628486E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   479\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  5.400000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.417373E-02   1.067025E-03  -6.996147E-14  -1.400385E-04   3.861932E-05  -9.723457E-07                  \r\n           107      M      2.589389E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   480\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -8.139981E-01   1.551891E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.171533E-01   1.357955E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -8.139981E-01  -1.551891E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   481\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  5.600000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -7.051826E-02   9.343317E-04  -7.220449E-14  -1.170609E-04   3.012759E-05   2.332487E-06                  \r\n           107      M      2.673166E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   482\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.056035E-01   1.331416E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.085238E-01   9.333018E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.056035E-01  -1.331416E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   483\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  5.800000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -4.656343E-02   6.419860E-04  -4.961513E-14  -8.401654E-05   2.471687E-05  -2.677927E-06                  \r\n           107      M      1.837162E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   484\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.459657E-01   1.017326E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.485846E-01   1.858520E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.459657E-01  -1.017326E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   485\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.000000E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -1.359513E-02   4.370983E-04  -9.812457E-15  -5.811921E-05   1.896575E-05  -4.979580E-06                  \r\n           107      M      3.630052E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   486\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.496642E-01   6.553696E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.519410E-01  -2.236176E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.496642E-01  -6.553696E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   487\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.199999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      1.368358E-02  -5.453932E-05   1.194270E-14   1.415039E-05  -4.927067E-06   1.223339E-06                  \r\n           107      M     -4.417263E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   488\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.638073E-01   3.120855E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.657290E-01  -6.552142E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.638073E-01  -3.120855E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   489\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.399999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      3.667696E-02  -9.033277E-04   3.488309E-14   1.134082E-04  -3.400336E-05   5.382436E-06                  \r\n           107      M     -1.291549E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   490\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.537180E-02   7.528332E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.705777E-02  -1.266143E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.537180E-02  -7.528332E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   491\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.599999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      6.243106E-02  -1.119353E-03   6.741869E-14   1.335028E-04  -3.719988E-05   1.885575E-06                  \r\n           107      M     -2.496785E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   492\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.700558E-03  -1.679823E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.316249E-03  -1.437578E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.700558E-03   1.679823E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   493\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.799999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      7.852356E-02  -7.632566E-04   7.653881E-14   1.072532E-04  -2.874502E-05  -1.195425E-06                  \r\n           107      M     -2.832800E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   494\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.415224E-02   3.115468E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.580528E-02  -1.250651E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.415224E-02  -3.115468E-03   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   495\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  6.999999E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      6.898953E-02  -9.418462E-04   6.657629E-14   1.285673E-04  -3.585582E-05   1.461633E-06                  \r\n           107      M     -2.464275E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   496\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.187567E-01   2.253920E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.205863E-01  -9.294520E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.187567E-01  -2.253920E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   497\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  7.199998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      4.404890E-02  -1.131060E-03   4.949526E-14   1.301134E-04  -3.799698E-05   4.834679E-06                  \r\n           107      M     -1.833624E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   498\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -2.896703E-01   5.446753E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.918324E-01  -3.678723E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.896703E-01  -5.446753E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   499\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  7.399998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M      2.108377E-02  -3.501006E-04   1.961404E-14   4.419318E-05  -1.381283E-05   2.518928E-06                  \r\n           107      M     -7.259709E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   500\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -4.887786E-01   9.096155E-02   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.913020E-01   1.357767E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.887786E-01  -9.096155E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   501\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  7.599998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -3.830981E-03   4.507588E-04  -7.171281E-15  -4.275948E-05   1.358872E-05  -3.444022E-06                  \r\n           107      M      2.663723E-16                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   502\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -6.614697E-01   1.243436E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.643022E-01   6.231484E-14   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.614697E-01  -1.243436E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   503\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  7.799998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -3.711847E-02   5.408580E-04  -3.308820E-14  -7.678050E-05   2.368623E-05  -3.983683E-06                  \r\n           107      M      1.224406E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   504\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       BBASIC                             \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.862128E-01   1.497113E-01   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.893048E-01   1.268578E-13   0.0            0.0            0.0            0.0                           \r\n             3      G     -7.862128E-01  -1.497113E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   505\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                SUBSTRUCTURE    MB                                 \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                   COMPONENT       MB                                 \r\n      TIME =  7.999998E-01\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      M     -6.574744E-02   7.486821E-04  -6.745541E-14  -1.043594E-04   2.742406E-05   1.316383E-06                  \r\n           107      M      2.497234E-15                                                                                             \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   506\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                                                                                   \r\n0     SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                                                                                      \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3  4     3                                 \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3  4     3                                 \r\n       5  MCOMB      C     0    0    3    0    6    3  3     3  3  3  3  3  3  3  3  4     3              3  3  3            \r\n       6  RTRUSS     M     0    0    5    0    0    3  3     3  3  3  3  3           4     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   386048 WORDS.\r\n                      OR =      377 BLOCKS.\r\n                      OR =       77 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      111\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:26:55\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02035a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ NASTRAN FILES=INP1                                                            \r\n     ID    D02035A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   9,0                                                                       \r\n     TIME  40                                                                        \r\n     DIAG  14,23                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE3                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n       SOF(1) = FT19,500 $ DEC VAX                                                   \r\n     BRECOVER  ABASIC                                                                \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER         88\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    ALTER         93,137\r\n        5    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n        6    SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/   \r\n        7              LUSET/NSKIP $                                                 \r\n        8    SSG2      USET,GM,  ,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n        9    RCOVR3    ,PG,PS,  ,  /UDVT,QAS,PPT,PST,   ,   ,TOL /9   /*ABASIC  */   \r\n       10              NOUE $                                                        \r\n       11    ALTER        139\r\n       12    UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n       13    ADD       QP ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n       14    EQUIV     QGT,QP /ALWAYS $                                              \r\n       15    EQUIV     CASECC,CASEXX/ALWAYS $                                        \r\n       16    ALTER        152,154\r\n       17    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       18              *    */*    */*    * $                                        \r\n       19    LABEL     LBSEND $                                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                          \r\n                  3      LABEL    = RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                \r\n                  4      MAXLINES = 100000                                                               \r\n                  5      IC   = 521                                                                      \r\n                  6      TSTEP= 40                                                                       \r\n                  7      LOAD = 980                                                                      \r\n                  8      DISP = ALL                                                                      \r\n                  9      ELFO = ALL                                                                      \r\n                 10      STRE = ALL                                                                      \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    62, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CROD    1       1       1       2                                               \r\n                    2-        CROD    2       1       2       3                                               \r\n                    3-        CROD    11      1       11      12                                              \r\n                    4-        CROD    12      1       12      13                                              \r\n                    5-        CROD    21      1       21      22                                              \r\n                    6-        CROD    22      1       22      23                                              \r\n                    7-        CROD    31      1       31      32                                              \r\n                    8-        CROD    32      1       32      33                                              \r\n                    9-        CROD    41      1       41      42                                              \r\n                   10-        CROD    42      1       42      43                                              \r\n                   11-        CROD    51      1       51      52                                              \r\n                   12-        CROD    52      1       52      53                                              \r\n                   13-        CROD    111     1       1       11                                              \r\n                   14-        CROD    112     1       2       12                                              \r\n                   15-        CROD    113     1       3       13                                              \r\n                   16-        CROD    121     1       11      21                                              \r\n                   17-        CROD    122     1       12      22                                              \r\n                   18-        CROD    123     1       13      23                                              \r\n                   19-        CROD    131     1       21      31                                              \r\n                   20-        CROD    132     1       22      32                                              \r\n                   21-        CROD    133     1       23      33                                              \r\n                   22-        CROD    141     1       31      41                                              \r\n                   23-        CROD    142     1       32      42                                              \r\n                   24-        CROD    143     1       33      43                                              \r\n                   25-        CROD    151     1       41      51                                              \r\n                   26-        CROD    152     1       42      52                                              \r\n                   27-        CROD    153     1       43      53                                              \r\n                   28-        CROD    211     1       2       11                                              \r\n                   29-        CROD    212     1       2       13                                              \r\n                   30-        CROD    221     1       12      21                                              \r\n                   31-        CROD    222     1       12      23                                              \r\n                   32-        CROD    231     1       22      31                                              \r\n                   33-        CROD    232     1       22      33                                              \r\n                   34-        CROD    241     1       32      41                                              \r\n                   35-        CROD    242     1       32      43                                              \r\n                   36-        CROD    251     1       42      51                                              \r\n                   37-        CROD    252     1       42      53                                              \r\n                   38-        GRAV    980             980.0   .0      -1.0    .0                              \r\n                   39-        GRDSET                                                  3456                    \r\n                   40-        GRID    1               .0      -30.0   .0                                      \r\n                   41-        GRID    2               .0      .0      .0                                      \r\n                   42-        GRID    3               .0      30.0    .0                                      \r\n                   43-        GRID    11              40.0    -30.0   .0                                      \r\n                   44-        GRID    12              40.0    .0      .0                                      \r\n                   45-        GRID    13              40.0    30.0    .0                                      \r\n                   46-        GRID    21              80.0    -30.0   .0                                      \r\n                   47-        GRID    22              80.0    .0      .0                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n\r\n      RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    23              80.0    30.0    .0                                      \r\n                   49-        GRID    31              120.0   -30.0   .0                                      \r\n                   50-        GRID    32              120.0   .0      .0                                      \r\n                   51-        GRID    33              120.0   30.0    .0                                      \r\n                   52-        GRID    41              160.0   -30.0   .0                                      \r\n                   53-        GRID    42              160.0   .0      .0                                      \r\n                   54-        GRID    43              160.0   30.0    .0                                      \r\n                   55-        GRID    51              200.0   -30.0   .0                                      \r\n                   56-        GRID    52              200.0   .0      .0                                      \r\n                   57-        GRID    53              200.0   30.0    .0                                      \r\n                   58-        MAT1    1       10.0+6          .3      2.5-3                                   \r\n                   59-        PARAM   GRDPNT  0                                                               \r\n                   60-        PROD    1       1       .3                                                      \r\n                   61-        TIC     521     42      2       .1                                              \r\n                   62-        TSTEP   40      40      2.0-2   1                                               \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $     \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $                       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1// $                                                     \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS                                                      \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,                                                  \r\n                   K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $           \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n\r\n      RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR3,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1  $                                                        \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $                   \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $                   \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $               \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n\r\n      RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      88  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      88  LABEL     LBSBEG $                                                      \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/                 \r\n                   NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      90  COND     ERROR1,NOTRL $                                                 \r\n\r\n      91  PURGE    PNLD/NONLFT$                                                   \r\n\r\n      92  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n     137  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n0*** USER WARNING MESSAGE   42,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PARAM      INSTRUCTION NO. 137\r\n     PARAMETER NAMED ALWAYS   ALREADY HAD VALUE ASSIGNED PREVIOUSLY\r\n\r\n     137  SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/   \r\n                    LUSET/NSKIP $                                                 \r\n\r\n     137  SSG2      USET,GM,  ,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n     137  RCOVR3    ,PG,PS,  ,  /UDVT,QAS,PPT,PST,   ,   ,TOL /9   /*ABASIC  */   \r\n                    NOUE $                                                        \r\n\r\n     138  SDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $         \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     139  UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n\r\n     139  ADD       QP ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n\r\n     139  EQUIV     QGT,QP /ALWAYS $                                              \r\n\r\n     139  EQUIV     CASECC,CASEXX/ALWAYS $                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $             \r\n\r\n     141  SDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/                                    \r\n                   OPP2,OQP2,OUPV2,OES2,OEF2, $                                   \r\n\r\n     142  OFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     143  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     144  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     145  COND     P2,JUMPPLOT $                                                  \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, \r\n                   ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n\r\n     148  LABEL    P2 $                                                           \r\n\r\n     149  XYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/          \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     150  XYPLOT   XYPLTT// $                                                     \r\n\r\n     151  LABEL    LBL18 $                                                        \r\n\r\n     154  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n     154  LABEL     LBSEND $                                                      \r\n\r\n     155  JUMP     FINIS $                                                        \r\n\r\n     156  LABEL    ERROR1 $                                                       \r\n\r\n     157  PRTPARM  //-1/*DIRTRD* $                                                \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*DIRTRD* $                                                \r\n\r\n     160  LABEL    FINIS  $                                                       \r\n\r\n     161  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     162  END      $                                                              \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL18    NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL17    NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             70\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.889\r\n                                        RMS WAVEFRONT    4.028\r\n                                        RMS BANDWIDTH    4.041\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.833\r\n                                        RMS WAVEFRONT    3.965\r\n                                        RMS BANDWIDTH    3.993\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         70        69\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.889     3.833\r\n                                        RMS WAVEFRONT (C-RMS)            4.028     3.965\r\n                                        RMS BANDWITCH (B-RMS)            4.041     3.993\r\n                                        NUMBER OF GRID POINTS (N)                     18\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                37\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        37\r\n                                        MATRIX DENSITY, PERCENT                   28.395\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   5\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3       2      11       3\r\n                         SEQGP         12       7      13       5      21       6      22      10\r\n                         SEQGP         23       8      31       9      32      13      33      11\r\n                         SEQGP         41      12      42      16      43      14      51      15\r\n                         SEQGP         52      18      53      17\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        1\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  1.09500001D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  1.09500001D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.09500001D+02 *\r\n                *  0.00000000D+00  0.00000000D+00  1.09500001D+00  0.00000000D+00 -1.09500001D+02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  5.60250005D+02  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -1.09500001D+02  0.00000000D+00  1.51800001D+04  0.00000000D+00 *\r\n                *  0.00000000D+00  1.09500001D+02  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.57402501D+04 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            1.095000010D+00      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            1.095000010D+00      1.000000000D+02  0.000000000D+00  0.000000000D+00\r\n                            Z            1.095000010D+00      1.000000000D+02  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  5.602500049D+02  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  4.230000037D+03  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  4.790250042D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  5.602500049D+02                                    *\r\n                                      *                   4.230000037D+03                   *\r\n                                      *                                    4.790250042D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE RTRUSS  \r\n                                    AND BASIC SUBSTRUCTURE ABASIC  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       3\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      5.631593E-03   1.037242E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      4.908958E-03   8.794166E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      3.621516E-03   6.162351E-03   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      1.946977E-03   3.187361E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      2.844003E-04   6.122256E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -1.685479E-03  -2.707815E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -3.741983E-03  -6.607444E-03   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -4.901436E-03  -8.781357E-03   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -4.690329E-03  -8.106585E-03   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -3.689060E-03  -6.174149E-03   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -2.440331E-03  -4.283931E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -6.896530E-04  -1.450755E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      1.668146E-03   2.905397E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      3.735191E-03   6.747272E-03   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      4.609108E-03   8.065981E-03   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      4.515137E-03   7.633998E-03   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      4.024066E-03   6.930633E-03   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      2.909017E-03   5.285067E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      7.993529E-04   1.509602E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -1.470531E-03  -1.820819E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -4.008558E-03  -1.544985E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -6.127259E-05  -7.060617E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      6.702155E-03   4.921682E-03   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      1.531378E-02   1.925131E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      2.572401E-02   3.699915E-02   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      3.594344E-02   5.560306E-02   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      4.268313E-02   6.779885E-02   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      4.436568E-02   6.983038E-02   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      4.178168E-02   6.489538E-02   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      3.610261E-02   5.589796E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      2.740342E-02   4.111835E-02   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      1.630362E-02   2.101647E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      5.943683E-03   2.630476E-03   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.140216E-04  -7.890887E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -2.601202E-03  -1.130648E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.565543E-03  -9.813153E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      3.492591E-03  -1.540674E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      1.295395E-02   1.505509E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      2.418533E-02   3.534962E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      3.372900E-02   5.195667E-02   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      4.031284E-02   6.251577E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.561076E-13   1.098885E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      1.825963E-13   9.277374E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.829931E-14   6.450227E-03   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      1.692028E-14   3.317096E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -1.947259E-15   6.611919E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -1.503985E-14  -2.810060E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -2.220538E-14  -6.954021E-03   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -2.641362E-14  -9.260096E-03   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -3.045292E-14  -8.505498E-03   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -3.008821E-14  -6.447479E-03   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -1.571946E-14  -4.504343E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      2.706900E-15  -1.561472E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      1.054475E-14   3.051224E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      1.733071E-14   7.123861E-03   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      2.950444E-14   8.478304E-03   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      3.443605E-14   7.983186E-03   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      2.722332E-14   7.267827E-03   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      1.407827E-14   5.584730E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      1.916367E-15   1.603089E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      1.285430E-12  -1.797703E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -1.432048E-12  -1.702108E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -1.539258E-13  -7.966571E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -9.583802E-14   4.641781E-03   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -1.823098E-14   1.958666E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      3.386780E-14   3.818172E-02   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      9.512276E-14   5.784149E-02   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.366342E-13   7.071113E-02   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.471251E-13   7.271824E-02   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.517917E-13   6.747206E-02   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      1.043079E-13   5.814543E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      2.068849E-14   4.268248E-02   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -2.509456E-14   2.145990E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -7.335715E-14   2.086085E-03   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -1.417045E-13  -8.882683E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -1.608831E-13  -1.239993E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.399635E-13  -1.088464E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.040393E-13  -2.283246E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.123118E-14   1.517647E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      1.509339E-14   3.660311E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      6.959889E-14   5.403440E-02   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.418121E-13   6.499526E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      13\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -5.631593E-03   1.037242E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -4.908958E-03   8.794166E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -3.621516E-03   6.162351E-03   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -1.946977E-03   3.187361E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -2.844003E-04   6.122256E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      1.685479E-03  -2.707815E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      3.741983E-03  -6.607444E-03   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      4.901436E-03  -8.781357E-03   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      4.690329E-03  -8.106585E-03   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      3.689060E-03  -6.174149E-03   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      2.440331E-03  -4.283931E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      6.896530E-04  -1.450755E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -1.668146E-03   2.905397E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -3.735191E-03   6.747272E-03   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -4.609108E-03   8.065981E-03   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -4.515137E-03   7.633998E-03   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -4.024066E-03   6.930633E-03   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -2.909017E-03   5.285067E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -7.993529E-04   1.509602E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      1.470531E-03  -1.820819E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      4.008558E-03  -1.544985E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      6.127259E-05  -7.060617E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -6.702155E-03   4.921682E-03   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -1.531378E-02   1.925131E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -2.572401E-02   3.699915E-02   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -3.594344E-02   5.560306E-02   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -4.268313E-02   6.779885E-02   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -4.436568E-02   6.983038E-02   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -4.178168E-02   6.489538E-02   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -3.610261E-02   5.589796E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -2.740342E-02   4.111835E-02   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -1.630362E-02   2.101647E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -5.943683E-03   2.630476E-03   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      4.140216E-04  -7.890887E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      2.601202E-03  -1.130648E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      1.565543E-03  -9.813153E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -3.492591E-03  -1.540674E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -1.295395E-02   1.505509E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -2.418533E-02   3.534962E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -3.372900E-02   5.195667E-02   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -4.031284E-02   6.251577E-02   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      21\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      1.016226E-02   2.738440E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      8.952830E-03   2.344197E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      6.730240E-03   1.675634E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      3.667284E-03   8.815456E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      4.786474E-04   1.520790E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -3.194852E-03  -7.554261E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -6.860708E-03  -1.769517E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -8.936998E-03  -2.336806E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -8.667776E-03  -2.190490E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -6.896150E-03  -1.691665E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -4.483869E-03  -1.149539E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -1.173616E-03  -3.623266E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      3.073967E-03   7.820067E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      6.789100E-03   1.790011E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      8.478838E-03   2.168314E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      8.410054E-03   2.081614E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      7.445995E-03   1.875394E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      5.275733E-03   1.399068E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      1.427255E-03   3.929755E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -2.993480E-03  -5.710204E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -4.126058E-03  -2.766617E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      2.565336E-03  -6.648772E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      1.494834E-02   2.531403E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      3.107754E-02   6.461477E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      5.041363E-02   1.129609E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      6.893186E-02   1.621257E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      8.117147E-02   1.943597E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      8.462448E-02   2.009411E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      8.003264E-02   1.881728E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      6.921639E-02   1.628166E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      5.304166E-02   1.226369E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      3.288848E-02   6.944938E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      1.392818E-02   2.022021E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      1.996869E-03  -8.751792E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -2.184753E-03  -1.829125E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.566112E-04  -1.397900E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      9.372471E-03   8.846566E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      2.676468E-02   5.351291E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      4.717622E-02   1.073319E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      6.476707E-02   1.519790E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      7.725521E-02   1.815183E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.747010E-13   2.799373E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      2.043520E-13   2.391697E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      3.167355E-14   1.704301E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      1.893711E-14   8.950645E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -2.179186E-15   1.565344E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -1.683277E-14  -7.664181E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -2.485311E-14  -1.803190E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -2.956252E-14  -2.382671E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -3.408365E-14  -2.229873E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -3.367570E-14  -1.719525E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -1.759362E-14  -1.170916E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      3.029179E-15  -3.721891E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      1.180171E-14   7.961875E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      1.939737E-14   1.826047E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      3.302155E-14   2.208661E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      3.854147E-14   2.116630E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      3.046950E-14   1.908750E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      1.575696E-14   1.427702E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      2.145051E-15   4.016162E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      1.438561E-12  -5.696026E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -1.602650E-12  -2.814164E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -1.722648E-13  -6.484670E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -1.072518E-13   2.606504E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -2.039284E-14   6.598255E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      3.791707E-14   1.152014E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      1.064813E-13   1.653636E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.529381E-13   1.982177E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.646748E-13   2.048320E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.699040E-13   1.917831E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      1.167592E-13   1.660424E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      2.316994E-14   1.251895E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -2.807387E-14   7.095253E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -8.209409E-14   2.074408E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -1.585886E-13  -8.690657E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -1.800512E-13  -1.831923E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.566400E-13  -1.398820E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.164324E-13   9.165158E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.613497E-14   5.469895E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      1.690725E-14   1.095976E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      7.790953E-14   1.550299E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.587308E-13   1.850157E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      23\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.016226E-02   2.738440E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -8.952830E-03   2.344197E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.730240E-03   1.675634E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -3.667284E-03   8.815456E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -4.786474E-04   1.520790E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.194852E-03  -7.554261E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      6.860708E-03  -1.769517E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      8.936998E-03  -2.336806E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      8.667776E-03  -2.190490E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      6.896150E-03  -1.691665E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      4.483869E-03  -1.149539E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.173616E-03  -3.623266E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.073967E-03   7.820067E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -6.789100E-03   1.790011E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -8.478838E-03   2.168314E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -8.410054E-03   2.081614E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -7.445995E-03   1.875394E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -5.275733E-03   1.399068E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.427255E-03   3.929755E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      2.993480E-03  -5.710204E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      4.126058E-03  -2.766617E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -2.565336E-03  -6.648772E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -1.494834E-02   2.531403E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -3.107754E-02   6.461477E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -5.041363E-02   1.129609E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -6.893186E-02   1.621257E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -8.117147E-02   1.943597E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -8.462448E-02   2.009411E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -8.003264E-02   1.881728E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -6.921639E-02   1.628166E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -5.304166E-02   1.226369E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -3.288848E-02   6.944938E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.392818E-02   2.022021E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -1.996869E-03  -8.751792E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      2.184753E-03  -1.829125E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      1.566112E-04  -1.397900E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -9.372471E-03   8.846566E-03   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -2.676468E-02   5.351291E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -4.717622E-02   1.073319E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -6.476707E-02   1.519790E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -7.725521E-02   1.815183E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      31\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      1.359793E-02   4.892589E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      1.213886E-02   4.227938E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      9.325725E-03   3.080090E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      5.153907E-03   1.646217E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      5.868888E-04   2.542180E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -4.518616E-03  -1.421727E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -9.364264E-03  -3.204988E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -1.212569E-02  -4.206458E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -1.193489E-02  -4.002081E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -9.613048E-03  -3.131510E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -6.136622E-03  -2.086353E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -1.464540E-03  -6.099639E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      4.221240E-03   1.423630E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      9.176662E-03   3.212099E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      1.161557E-02   3.941752E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      1.168146E-02   3.836470E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      1.026731E-02   3.431115E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      7.112190E-03   2.504977E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      1.891102E-03   6.919311E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -4.539596E-03  -1.169167E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -2.253707E-03  -3.113773E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      6.012399E-03   4.438911E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      2.291652E-02   6.214796E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      4.546713E-02   1.349948E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      7.220051E-02   2.239531E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      9.715608E-02   3.118545E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.137181E-01   3.695284E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.189584E-01   3.834237E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.129011E-01   3.610767E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      9.756254E-02   3.129714E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      7.512573E-02   2.391099E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      4.788870E-02   1.438801E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      2.209414E-02   5.477858E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      5.394237E-03   8.971611E-04   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -6.110947E-04  -1.712716E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      2.375170E-03  -8.730472E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      1.579188E-02   3.383072E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      3.956523E-02   1.150761E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      6.715612E-02   2.116233E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      9.134280E-02   2.928430E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.089968E-01   3.485434E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      32\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      3.350016E-14   4.952173E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -3.915468E-14   4.273989E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.058385E-15   3.108357E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -3.623603E-15   1.660419E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      4.179416E-16   2.578982E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.220262E-15  -1.433717E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      4.753470E-15  -3.236811E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      5.654649E-15  -4.248909E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      6.518249E-15  -4.040287E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      6.441165E-15  -3.159829E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      3.365553E-15  -2.106578E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -5.815588E-16  -6.179233E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -2.257770E-15   1.437139E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -3.708059E-15   3.245294E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -6.316439E-15   3.980311E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -7.372144E-15   3.871357E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -5.827174E-15   3.463592E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -3.011899E-15   2.531246E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -4.092533E-16   6.994677E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -2.757322E-13  -1.166335E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.071694E-13  -3.048220E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      3.301268E-14   5.700920E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      2.057122E-14   6.394360E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      3.962084E-15   1.374108E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -7.189494E-15   2.272550E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -2.030234E-14   3.160597E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -2.919847E-14   3.742802E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -3.145014E-14   3.882812E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -3.244208E-14   3.656978E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -2.225864E-14   3.171452E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -4.348023E-15   2.426254E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      5.428863E-15   1.464522E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      1.575081E-14   5.640914E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      3.039471E-14   2.047993E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      3.450328E-14  -1.606167E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      3.001578E-14  -7.641680E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      2.232730E-14   3.525170E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      8.879916E-15   1.173454E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -3.181343E-15   2.148842E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.483516E-14   2.968365E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -3.028698E-14   3.530350E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      33\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.359793E-02   4.892589E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.213886E-02   4.227938E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -9.325725E-03   3.080090E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -5.153907E-03   1.646217E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.868888E-04   2.542180E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      4.518616E-03  -1.421727E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      9.364264E-03  -3.204988E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.212569E-02  -4.206458E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.193489E-02  -4.002081E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      9.613048E-03  -3.131510E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      6.136622E-03  -2.086353E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.464540E-03  -6.099639E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -4.221240E-03   1.423630E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -9.176662E-03   3.212099E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.161557E-02   3.941752E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.168146E-02   3.836470E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.026731E-02   3.431115E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -7.112190E-03   2.504977E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.891102E-03   6.919311E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      4.539596E-03  -1.169167E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      2.253707E-03  -3.113773E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -6.012399E-03   4.438911E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.291652E-02   6.214796E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.546713E-02   1.349948E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -7.220051E-02   2.239531E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -9.715608E-02   3.118545E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.137181E-01   3.695284E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.189584E-01   3.834237E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.129011E-01   3.610767E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -9.756254E-02   3.129714E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -7.512573E-02   2.391099E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -4.788870E-02   1.438801E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.209414E-02   5.477858E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -5.394237E-03   8.971611E-04   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      6.110947E-04  -1.712716E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.375170E-03  -8.730472E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.579188E-02   3.383072E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -3.956523E-02   1.150761E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -6.715612E-02   2.116233E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -9.134280E-02   2.928430E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.089968E-01   3.485434E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      41\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      1.595519E-02   7.352058E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      1.448586E-02   6.415234E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.141020E-02   4.759507E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      6.393834E-03   2.580062E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      6.196008E-04   3.556943E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -5.638699E-03  -2.243110E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -1.127535E-02  -4.883029E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -1.451381E-02  -6.372645E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -1.450305E-02  -6.147873E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -1.182712E-02  -4.868564E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -7.413696E-03  -3.186005E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -1.590601E-03  -8.625297E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      5.118966E-03   2.180660E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      1.093554E-02   4.850315E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      1.403966E-02   6.026343E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      1.432633E-02   5.942502E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      1.249602E-02   5.277796E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      8.449481E-03   3.773823E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      2.207250E-03   1.026173E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -6.093839E-03  -1.959555E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -3.698659E-04  -2.567201E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      8.359761E-03   2.488956E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      2.877406E-02   1.127114E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      5.664327E-02   2.262209E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      8.918907E-02   3.635613E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      1.188551E-01   4.958876E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.386834E-01   5.829241E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.455969E-01   6.067778E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.385465E-01   5.737948E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      1.194261E-01   4.975612E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      9.192014E-02   3.833514E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      5.940625E-02   2.396909E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      2.852052E-02   1.042196E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      7.893471E-03   2.010317E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      2.103796E-04  -8.656058E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      4.125057E-03   5.112983E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      2.084562E-02   7.185638E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      4.944540E-02   1.959394E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      8.233573E-02   3.417183E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      1.117536E-01   4.661794E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.337325E-01   5.540848E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      42\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      3.736526E-13   7.409571E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -4.369919E-13   6.459268E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.770633E-14   4.786857E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -4.048508E-14   2.594730E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      4.660914E-15   3.583236E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.598454E-14  -2.255898E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      5.312708E-14  -4.912072E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      6.319490E-14  -6.410488E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      7.285681E-14  -6.183933E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      7.198581E-14  -4.896737E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      3.760924E-14  -3.204612E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -6.480486E-15  -8.681952E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -2.522872E-14   2.193239E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -4.145951E-14   4.879569E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -7.059129E-14   6.062034E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -8.238973E-14   5.976627E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -6.513063E-14   5.308610E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -3.367910E-14   3.796796E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -4.583055E-15   1.032379E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -3.076504E-12  -1.950656E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.427390E-12  -2.386333E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      3.683901E-13   2.727703E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      2.294064E-13   1.155786E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      4.375614E-14   2.297109E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -8.090081E-14   3.679093E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -2.274497E-13   5.010201E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -3.267876E-13   5.885298E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -3.518723E-13   6.125490E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -3.630600E-13   5.793778E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -2.494194E-13   5.026595E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -4.932693E-14   3.878116E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      6.014752E-14   2.433293E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      1.756016E-13   1.070003E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      3.391470E-13   2.239667E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      3.850376E-13  -6.465027E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      3.349717E-13   7.345996E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      2.490236E-13   7.443289E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      9.875453E-14   1.993024E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -3.600793E-14   3.459559E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.664021E-13   4.710961E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -3.391345E-13   5.595309E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      43\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.595519E-02   7.352058E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.448586E-02   6.415234E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.141020E-02   4.759507E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -6.393834E-03   2.580062E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.196008E-04   3.556943E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      5.638699E-03  -2.243110E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.127535E-02  -4.883029E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.451381E-02  -6.372645E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.450305E-02  -6.147873E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.182712E-02  -4.868564E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      7.413696E-03  -3.186005E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.590601E-03  -8.625297E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -5.118966E-03   2.180660E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.093554E-02   4.850315E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.403966E-02   6.026343E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.432633E-02   5.942502E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.249602E-02   5.277796E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -8.449481E-03   3.773823E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.207250E-03   1.026173E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      6.093839E-03  -1.959555E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.698659E-04  -2.567201E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -8.359761E-03   2.488956E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.877406E-02   1.127114E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -5.664327E-02   2.262209E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -8.918907E-02   3.635613E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.188551E-01   4.958876E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.386834E-01   5.829241E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.455969E-01   6.067778E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.385465E-01   5.737948E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.194261E-01   4.975612E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -9.192014E-02   3.833514E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -5.940625E-02   2.396909E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.852052E-02   1.042196E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -7.893471E-03   2.010317E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -2.103796E-04  -8.656058E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -4.125057E-03   5.112983E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -2.084562E-02   7.185638E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.944540E-02   1.959394E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -8.233573E-02   3.417183E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.117536E-01   4.661794E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.337325E-01   5.540848E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      51\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G      5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G     -1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G     -7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G      7.639633E-03   5.077145E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G      3.065482E-02   1.718806E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G      6.272717E-02   3.316626E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      9.949066E-02   5.227460E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      1.323348E-01   7.030305E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.545146E-01   8.221683E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.628486E-01   8.581591E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.551891E-01   8.139981E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      1.331416E-01   7.056035E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      1.017326E-01   5.459657E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G      6.553696E-02   3.496642E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G      3.120855E-02   1.638073E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G      7.528332E-03   4.537180E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -1.679823E-03   3.700558E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      3.115468E-03   2.415224E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G      2.253920E-02   1.187567E-01   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G      5.446753E-02   2.896703E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      9.096155E-02   4.887786E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      1.243436E-01   6.614697E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.497113E-01   7.862128E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      52\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.394654E-13   1.000000E-01   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G      1.631682E-13   8.815945E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.530089E-14   6.656072E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G      1.512666E-14   3.653554E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -1.739595E-15   4.480211E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G     -1.344566E-14  -3.194106E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G     -1.985424E-14  -6.737154E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G     -2.361819E-14  -8.747876E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G     -2.722721E-14  -8.548176E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G     -2.689852E-14  -6.843473E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G     -1.405417E-14  -4.407183E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      2.417095E-15  -1.103443E-02   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G      9.428185E-15   3.025798E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G      1.549803E-14   6.635091E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G      2.637916E-14   8.341487E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G      3.078598E-14   8.328048E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G      2.433973E-14   7.347896E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G      1.258884E-14   5.150254E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G      1.714604E-15   1.380486E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      1.148530E-12  -2.907512E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G     -1.279549E-12  -1.245541E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -1.375377E-13   5.247950E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -8.560768E-14   1.738018E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -1.623141E-14   3.338889E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G      3.035843E-14   5.253527E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G      8.512096E-14   7.059575E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G      1.222438E-13   8.252974E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G      1.316255E-13   8.613840E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G      1.357955E-13   8.171533E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G      9.333018E-14   7.085238E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G      1.858520E-14   5.485846E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -2.236176E-14   3.519410E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -6.552142E-14   1.657290E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -1.266143E-13   4.705777E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -1.437578E-13   5.316249E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.250651E-13   2.580528E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -9.294520E-14   1.205863E-01   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -3.678723E-14   2.918324E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G      1.357767E-14   4.913020E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G      6.231484E-14   6.643022E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G      1.268578E-13   7.893048E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      53\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.726345E-02   9.972804E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.602409E-02   8.795284E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.299208E-02   6.643399E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -7.373300E-03   3.646334E-02   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.936068E-04   4.473437E-03   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      6.535134E-03  -3.187666E-02   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.263359E-02  -6.724679E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.617281E-02  -8.732010E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.639792E-02  -8.532047E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.353013E-02  -6.830145E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      8.339021E-03  -4.399038E-02   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.591423E-03  -1.101861E-02   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -5.780797E-03   3.020194E-02   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.212600E-02   6.623100E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.578978E-02   8.325891E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.634764E-02   8.312082E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.415126E-02   7.334013E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -9.338117E-03   5.140954E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.398395E-03   1.378143E-02   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      7.703990E-03  -2.919014E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      5.085935E-04  -1.387250E-02   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -7.639633E-03   5.077145E-02   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -3.065482E-02   1.718806E-01   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -6.272717E-02   3.316626E-01   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -9.949066E-02   5.227460E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.323348E-01   7.030305E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.545146E-01   8.221683E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.628486E-01   8.581591E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.551891E-01   8.139981E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.331416E-01   7.056035E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -1.017326E-01   5.459657E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.553696E-02   3.496642E-01   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -3.120855E-02   1.638073E-01   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -7.528332E-03   4.537180E-02   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      1.679823E-03   3.700558E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -3.115468E-03   2.415224E-02   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -2.253920E-02   1.187567E-01   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -5.446753E-02   2.896703E-01   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -9.096155E-02   4.887786E-01   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.243436E-01   6.614697E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.497113E-01   7.862128E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       1\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                0.0            0.0                       2.000000E-02       0.0            0.0                                \r\n   4.000000E-02       0.0            0.0                       6.000000E-02       0.0            0.0                                \r\n   8.000000E-02       0.0            0.0                       9.999999E-02       0.0            0.0                                \r\n   1.200000E-01       0.0            0.0                       1.400000E-01       0.0            0.0                                \r\n   1.600000E-01       0.0            0.0                       1.800000E-01       0.0            0.0                                \r\n   2.000000E-01       0.0            0.0                       2.200000E-01       0.0            0.0                                \r\n   2.400000E-01       0.0            0.0                       2.600000E-01       0.0            0.0                                \r\n   2.800000E-01       0.0            0.0                       3.000000E-01       0.0            0.0                                \r\n   3.200000E-01       0.0            0.0                       3.400000E-01       0.0            0.0                                \r\n   3.600000E-01       0.0            0.0                       3.800000E-01       0.0            0.0                                \r\n   4.000000E-01       0.0            0.0                       4.200000E-01       0.0            0.0                                \r\n   4.400001E-01       0.0            0.0                       4.600001E-01       0.0            0.0                                \r\n   4.800001E-01       0.0            0.0                       5.000001E-01       0.0            0.0                                \r\n   5.200000E-01       0.0            0.0                       5.400000E-01       0.0            0.0                                \r\n   5.600000E-01       0.0            0.0                       5.800000E-01       0.0            0.0                                \r\n   6.000000E-01       0.0            0.0                       6.199999E-01       0.0            0.0                                \r\n   6.399999E-01       0.0            0.0                       6.599999E-01       0.0            0.0                                \r\n   6.799999E-01       0.0            0.0                       6.999999E-01       0.0            0.0                                \r\n   7.199998E-01       0.0            0.0                       7.399998E-01       0.0            0.0                                \r\n   7.599998E-01       0.0            0.0                       7.799998E-01       0.0            0.0                                \r\n   7.999998E-01       0.0            0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       2\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                0.0            0.0                       2.000000E-02       0.0            0.0                                \r\n   4.000000E-02       0.0            0.0                       6.000000E-02       0.0            0.0                                \r\n   8.000000E-02       0.0            0.0                       9.999999E-02       0.0            0.0                                \r\n   1.200000E-01       0.0            0.0                       1.400000E-01       0.0            0.0                                \r\n   1.600000E-01       0.0            0.0                       1.800000E-01       0.0            0.0                                \r\n   2.000000E-01       0.0            0.0                       2.200000E-01       0.0            0.0                                \r\n   2.400000E-01       0.0            0.0                       2.600000E-01       0.0            0.0                                \r\n   2.800000E-01       0.0            0.0                       3.000000E-01       0.0            0.0                                \r\n   3.200000E-01       0.0            0.0                       3.400000E-01       0.0            0.0                                \r\n   3.600000E-01       0.0            0.0                       3.800000E-01       0.0            0.0                                \r\n   4.000000E-01       0.0            0.0                       4.200000E-01       0.0            0.0                                \r\n   4.400001E-01       0.0            0.0                       4.600001E-01       0.0            0.0                                \r\n   4.800001E-01       0.0            0.0                       5.000001E-01       0.0            0.0                                \r\n   5.200000E-01       0.0            0.0                       5.400000E-01       0.0            0.0                                \r\n   5.600000E-01       0.0            0.0                       5.800000E-01       0.0            0.0                                \r\n   6.000000E-01       0.0            0.0                       6.199999E-01       0.0            0.0                                \r\n   6.399999E-01       0.0            0.0                       6.599999E-01       0.0            0.0                                \r\n   6.799999E-01       0.0            0.0                       6.999999E-01       0.0            0.0                                \r\n   7.199998E-01       0.0            0.0                       7.399998E-01       0.0            0.0                                \r\n   7.599998E-01       0.0            0.0                       7.799998E-01       0.0            0.0                                \r\n   7.999998E-01       0.0            0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      11\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                6.164326E+01   0.0                       2.000000E-02       4.832073E+01   0.0                                \r\n   4.000000E-02       2.878770E+01   0.0                       6.000000E-02       1.297350E+01   0.0                                \r\n   8.000000E-02       4.896625E+00   0.0                       9.999999E-02      -1.022456E+01   0.0                                \r\n   1.200000E-01      -3.465776E+01   0.0                       1.400000E-01      -4.787395E+01   0.0                                \r\n   1.600000E-01      -3.989128E+01   0.0                       1.800000E-01      -2.733296E+01   0.0                                \r\n   2.000000E-01      -2.204128E+01   0.0                       2.200000E-01      -1.107164E+01   0.0                                \r\n   2.400000E-01       1.458267E+01   0.0                       2.600000E-01       3.765894E+01   0.0                                \r\n   2.800000E-01       4.123235E+01   0.0                       3.000000E-01       3.491887E+01   0.0                                \r\n   3.200000E-01       3.371931E+01   0.0                       3.400000E-01       2.996627E+01   0.0                                \r\n   3.600000E-01       9.348688E+00   0.0                       3.800000E-01       2.311597E+00   0.0                                \r\n   4.000000E-01      -1.571222E+02   0.0                       4.200000E-01      -9.059539E+01   0.0                                \r\n   4.400001E-01      -2.799009E+01   0.0                       4.600001E-01       3.353467E+01   0.0                                \r\n   4.800001E-01       1.182565E+02   0.0                       5.000001E-01       2.238434E+02   0.0                                \r\n   5.200000E-01       2.912285E+02   0.0                       5.400000E-01       2.887858E+02   0.0                                \r\n   5.600000E-01       2.576678E+02   0.0                       5.800000E-01       2.247475E+02   0.0                                \r\n   6.000000E-01       1.564131E+02   0.0                       6.199999E-01       4.434346E+01   0.0                                \r\n   6.399999E-01      -5.443916E+01   0.0                       6.599999E-01      -9.917960E+01   0.0                                \r\n   6.799999E-01      -1.093448E+02   0.0                       6.999999E-01      -1.071489E+02   0.0                                \r\n   7.199998E-01      -7.425726E+01   0.0                       7.399998E-01       1.213755E+01   0.0                                \r\n   7.599998E-01       1.253484E+02   0.0                       7.799998E-01       2.077729E+02   0.0                                \r\n   7.999998E-01       2.479488E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      12\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -6.164326E+01   0.0                       2.000000E-02      -4.832073E+01   0.0                                \r\n   4.000000E-02      -2.878770E+01   0.0                       6.000000E-02      -1.297350E+01   0.0                                \r\n   8.000000E-02      -4.896625E+00   0.0                       9.999999E-02       1.022456E+01   0.0                                \r\n   1.200000E-01       3.465776E+01   0.0                       1.400000E-01       4.787395E+01   0.0                                \r\n   1.600000E-01       3.989128E+01   0.0                       1.800000E-01       2.733296E+01   0.0                                \r\n   2.000000E-01       2.204128E+01   0.0                       2.200000E-01       1.107164E+01   0.0                                \r\n   2.400000E-01      -1.458267E+01   0.0                       2.600000E-01      -3.765894E+01   0.0                                \r\n   2.800000E-01      -4.123235E+01   0.0                       3.000000E-01      -3.491887E+01   0.0                                \r\n   3.200000E-01      -3.371931E+01   0.0                       3.400000E-01      -2.996627E+01   0.0                                \r\n   3.600000E-01      -9.348688E+00   0.0                       3.800000E-01      -2.311597E+00   0.0                                \r\n   4.000000E-01       1.571222E+02   0.0                       4.200000E-01       9.059539E+01   0.0                                \r\n   4.400001E-01       2.799009E+01   0.0                       4.600001E-01      -3.353467E+01   0.0                                \r\n   4.800001E-01      -1.182565E+02   0.0                       5.000001E-01      -2.238434E+02   0.0                                \r\n   5.200000E-01      -2.912285E+02   0.0                       5.400000E-01      -2.887858E+02   0.0                                \r\n   5.600000E-01      -2.576678E+02   0.0                       5.800000E-01      -2.247475E+02   0.0                                \r\n   6.000000E-01      -1.564131E+02   0.0                       6.199999E-01      -4.434346E+01   0.0                                \r\n   6.399999E-01       5.443916E+01   0.0                       6.599999E-01       9.917960E+01   0.0                                \r\n   6.799999E-01       1.093448E+02   0.0                       6.999999E-01       1.071489E+02   0.0                                \r\n   7.199998E-01       7.425726E+01   0.0                       7.399998E-01      -1.213755E+01   0.0                                \r\n   7.599998E-01      -1.253484E+02   0.0                       7.799998E-01      -2.077729E+02   0.0                                \r\n   7.999998E-01      -2.479488E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      21\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                6.093340E+01   0.0                       2.000000E-02       4.750005E+01   0.0                                \r\n   4.000000E-02       2.866670E+01   0.0                       6.000000E-02       1.351882E+01   0.0                                \r\n   8.000000E-02       4.455332E+00   0.0                       9.999999E-02      -1.099212E+01   0.0                                \r\n   1.200000E-01      -3.367368E+01   0.0                       1.400000E-01      -4.586485E+01   0.0                                \r\n   1.600000E-01      -3.938291E+01   0.0                       1.800000E-01      -2.786074E+01   0.0                                \r\n   2.000000E-01      -2.137778E+01   0.0                       2.200000E-01      -9.862500E+00   0.0                                \r\n   2.400000E-01       1.418079E+01   0.0                       2.600000E-01       3.603589E+01   0.0                                \r\n   2.800000E-01       4.034707E+01   0.0                       3.000000E-01       3.501665E+01   0.0                                \r\n   3.200000E-01       3.335581E+01   0.0                       3.400000E-01       2.863418E+01   0.0                                \r\n   3.600000E-01       8.640747E+00   0.0                       3.800000E-01       1.417786E+00   0.0                                \r\n   4.000000E-01      -4.754707E+01   0.0                       4.200000E-01       1.641021E+01   0.0                                \r\n   4.400001E-01       7.510049E+01   0.0                       4.600001E-01       1.367783E+02   0.0                                \r\n   4.800001E-01       2.240531E+02   0.0                       5.000001E-01       3.237914E+02   0.0                                \r\n   5.200000E-01       3.857965E+02   0.0                       5.400000E-01       3.890977E+02   0.0                                \r\n   5.600000E-01       3.610312E+02   0.0                       5.800000E-01       3.225809E+02   0.0                                \r\n   6.000000E-01       2.552567E+02   0.0                       6.199999E-01       1.503152E+02   0.0                                \r\n   6.399999E-01       5.238706E+01   0.0                       6.599999E-01       6.113526E+00   0.0                                \r\n   6.799999E-01      -2.797852E+00   0.0                       6.999999E-01      -9.208008E-01   0.0                                \r\n   7.199998E-01       3.185918E+01   0.0                       7.399998E-01       1.186037E+02   0.0                                \r\n   7.599998E-01       2.265762E+02   0.0                       7.799998E-01       3.050836E+02   0.0                                \r\n   7.999998E-01       3.497356E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      22\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -6.093340E+01   0.0                       2.000000E-02      -4.750005E+01   0.0                                \r\n   4.000000E-02      -2.866670E+01   0.0                       6.000000E-02      -1.351882E+01   0.0                                \r\n   8.000000E-02      -4.455332E+00   0.0                       9.999999E-02       1.099212E+01   0.0                                \r\n   1.200000E-01       3.367368E+01   0.0                       1.400000E-01       4.586485E+01   0.0                                \r\n   1.600000E-01       3.938291E+01   0.0                       1.800000E-01       2.786074E+01   0.0                                \r\n   2.000000E-01       2.137778E+01   0.0                       2.200000E-01       9.862500E+00   0.0                                \r\n   2.400000E-01      -1.418079E+01   0.0                       2.600000E-01      -3.603589E+01   0.0                                \r\n   2.800000E-01      -4.034707E+01   0.0                       3.000000E-01      -3.501665E+01   0.0                                \r\n   3.200000E-01      -3.335581E+01   0.0                       3.400000E-01      -2.863418E+01   0.0                                \r\n   3.600000E-01      -8.640747E+00   0.0                       3.800000E-01      -1.417786E+00   0.0                                \r\n   4.000000E-01       4.754707E+01   0.0                       4.200000E-01      -1.641021E+01   0.0                                \r\n   4.400001E-01      -7.510049E+01   0.0                       4.600001E-01      -1.367783E+02   0.0                                \r\n   4.800001E-01      -2.240531E+02   0.0                       5.000001E-01      -3.237914E+02   0.0                                \r\n   5.200000E-01      -3.857965E+02   0.0                       5.400000E-01      -3.890977E+02   0.0                                \r\n   5.600000E-01      -3.610312E+02   0.0                       5.800000E-01      -3.225809E+02   0.0                                \r\n   6.000000E-01      -2.552567E+02   0.0                       6.199999E-01      -1.503152E+02   0.0                                \r\n   6.399999E-01      -5.238706E+01   0.0                       6.599999E-01      -6.113526E+00   0.0                                \r\n   6.799999E-01       2.797852E+00   0.0                       6.999999E-01       9.208008E-01   0.0                                \r\n   7.199998E-01      -3.185918E+01   0.0                       7.399998E-01      -1.186037E+02   0.0                                \r\n   7.599998E-01      -2.265762E+02   0.0                       7.799998E-01      -3.050836E+02   0.0                                \r\n   7.999998E-01      -3.497356E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      31\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                5.958399E+01   0.0                       2.000000E-02       4.605117E+01   0.0                                \r\n   4.000000E-02       2.826738E+01   0.0                       6.000000E-02       1.420151E+01   0.0                                \r\n   8.000000E-02       3.680127E+00   0.0                       9.999999E-02      -1.199019E+01   0.0                                \r\n   1.200000E-01      -3.182344E+01   0.0                       1.400000E-01      -4.245088E+01   0.0                                \r\n   1.600000E-01      -3.820605E+01   0.0                       1.800000E-01      -2.831895E+01   0.0                                \r\n   2.000000E-01      -2.022495E+01   0.0                       2.200000E-01      -7.959339E+00   0.0                                \r\n   2.400000E-01       1.350850E+01   0.0                       2.600000E-01       3.319512E+01   0.0                                \r\n   2.800000E-01       3.855908E+01   0.0                       3.000000E-01       3.488614E+01   0.0                                \r\n   3.200000E-01       3.247676E+01   0.0                       3.400000E-01       2.626875E+01   0.0                                \r\n   3.600000E-01       7.536622E+00   0.0                       3.800000E-01       2.832275E+00   0.0                                \r\n   4.000000E-01       6.555235E+01   0.0                       4.200000E-01       1.262009E+02   0.0                                \r\n   4.400001E-01       1.795641E+02   0.0                       4.600001E-01       2.415996E+02   0.0                                \r\n   4.800001E-01       3.301898E+02   0.0                       5.000001E-01       4.205180E+02   0.0                                \r\n   5.200000E-01       4.751836E+02   0.0                       5.400000E-01       4.857539E+02   0.0                                \r\n   5.600000E-01       4.621078E+02   0.0                       5.800000E-01       4.173727E+02   0.0                                \r\n   6.000000E-01       3.515531E+02   0.0                       6.199999E-01       2.572148E+02   0.0                                \r\n   6.399999E-01       1.630553E+02   0.0                       6.599999E-01       1.150832E+02   0.0                                \r\n   6.799999E-01       1.065491E+02   0.0                       6.999999E-01       1.088793E+02   0.0                                \r\n   7.199998E-01       1.420981E+02   0.0                       7.399998E-01       2.269219E+02   0.0                                \r\n   7.599998E-01       3.260883E+02   0.0                       7.799998E-01       3.993492E+02   0.0                                \r\n   7.999998E-01       4.491539E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      32\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -5.958399E+01   0.0                       2.000000E-02      -4.605117E+01   0.0                                \r\n   4.000000E-02      -2.826738E+01   0.0                       6.000000E-02      -1.420151E+01   0.0                                \r\n   8.000000E-02      -3.680127E+00   0.0                       9.999999E-02       1.199019E+01   0.0                                \r\n   1.200000E-01       3.182344E+01   0.0                       1.400000E-01       4.245088E+01   0.0                                \r\n   1.600000E-01       3.820605E+01   0.0                       1.800000E-01       2.831895E+01   0.0                                \r\n   2.000000E-01       2.022495E+01   0.0                       2.200000E-01       7.959339E+00   0.0                                \r\n   2.400000E-01      -1.350850E+01   0.0                       2.600000E-01      -3.319512E+01   0.0                                \r\n   2.800000E-01      -3.855908E+01   0.0                       3.000000E-01      -3.488614E+01   0.0                                \r\n   3.200000E-01      -3.247676E+01   0.0                       3.400000E-01      -2.626875E+01   0.0                                \r\n   3.600000E-01      -7.536622E+00   0.0                       3.800000E-01      -2.832275E+00   0.0                                \r\n   4.000000E-01      -6.555235E+01   0.0                       4.200000E-01      -1.262009E+02   0.0                                \r\n   4.400001E-01      -1.795641E+02   0.0                       4.600001E-01      -2.415996E+02   0.0                                \r\n   4.800001E-01      -3.301898E+02   0.0                       5.000001E-01      -4.205180E+02   0.0                                \r\n   5.200000E-01      -4.751836E+02   0.0                       5.400000E-01      -4.857539E+02   0.0                                \r\n   5.600000E-01      -4.621078E+02   0.0                       5.800000E-01      -4.173727E+02   0.0                                \r\n   6.000000E-01      -3.515531E+02   0.0                       6.199999E-01      -2.572148E+02   0.0                                \r\n   6.399999E-01      -1.630553E+02   0.0                       6.599999E-01      -1.150832E+02   0.0                                \r\n   6.799999E-01      -1.065491E+02   0.0                       6.999999E-01      -1.088793E+02   0.0                                \r\n   7.199998E-01      -1.420981E+02   0.0                       7.399998E-01      -2.269219E+02   0.0                                \r\n   7.599998E-01      -3.260883E+02   0.0                       7.799998E-01      -3.993492E+02   0.0                                \r\n   7.999998E-01      -4.491539E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      41\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                5.751328E+01   0.0                       2.000000E-02       4.403438E+01   0.0                                \r\n   4.000000E-02       2.735010E+01   0.0                       6.000000E-02       1.466865E+01   0.0                                \r\n   8.000000E-02       2.629248E+00   0.0                       9.999999E-02      -1.278779E+01   0.0                                \r\n   1.200000E-01      -2.904317E+01   0.0                       1.400000E-01      -3.784277E+01   0.0                                \r\n   1.600000E-01      -3.605977E+01   0.0                       1.800000E-01      -2.817275E+01   0.0                                \r\n   2.000000E-01      -1.860732E+01   0.0                       2.200000E-01      -5.665503E+00   0.0                                \r\n   2.400000E-01       1.257905E+01   0.0                       2.600000E-01       2.925410E+01   0.0                                \r\n   2.800000E-01       3.569063E+01   0.0                       3.000000E-01       3.412500E+01   0.0                                \r\n   3.200000E-01       3.081328E+01   0.0                       3.400000E-01       2.297256E+01   0.0                                \r\n   3.600000E-01       6.206543E+00   0.0                       3.800000E-01       8.899952E+00   0.0                                \r\n   4.000000E-01       1.808678E+02   0.0                       4.200000E-01       2.387467E+02   0.0                                \r\n   4.400001E-01       2.867191E+02   0.0                       4.600001E-01       3.490008E+02   0.0                                \r\n   4.800001E-01       4.347938E+02   0.0                       5.000001E-01       5.132485E+02   0.0                                \r\n   5.200000E-01       5.605688E+02   0.0                       5.400000E-01       5.771250E+02   0.0                                \r\n   5.600000E-01       5.582906E+02   0.0                       5.800000E-01       5.098266E+02   0.0                                \r\n   6.000000E-01       4.460180E+02   0.0                       6.199999E-01       3.638438E+02   0.0                                \r\n   6.399999E-01       2.780754E+02   0.0                       6.599999E-01       2.293493E+02   0.0                                \r\n   6.799999E-01       2.191032E+02   0.0                       6.999999E-01       2.233013E+02   0.0                                \r\n   7.199998E-01       2.576508E+02   0.0                       7.399998E-01       3.362953E+02   0.0                                \r\n   7.599998E-01       4.237641E+02   0.0                       7.799998E-01       4.916672E+02   0.0                                \r\n   7.999998E-01       5.446078E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      42\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -5.751328E+01   0.0                       2.000000E-02      -4.403438E+01   0.0                                \r\n   4.000000E-02      -2.735010E+01   0.0                       6.000000E-02      -1.466865E+01   0.0                                \r\n   8.000000E-02      -2.629248E+00   0.0                       9.999999E-02       1.278779E+01   0.0                                \r\n   1.200000E-01       2.904317E+01   0.0                       1.400000E-01       3.784277E+01   0.0                                \r\n   1.600000E-01       3.605977E+01   0.0                       1.800000E-01       2.817275E+01   0.0                                \r\n   2.000000E-01       1.860732E+01   0.0                       2.200000E-01       5.665503E+00   0.0                                \r\n   2.400000E-01      -1.257905E+01   0.0                       2.600000E-01      -2.925410E+01   0.0                                \r\n   2.800000E-01      -3.569063E+01   0.0                       3.000000E-01      -3.412500E+01   0.0                                \r\n   3.200000E-01      -3.081328E+01   0.0                       3.400000E-01      -2.297256E+01   0.0                                \r\n   3.600000E-01      -6.206543E+00   0.0                       3.800000E-01      -8.899952E+00   0.0                                \r\n   4.000000E-01      -1.808678E+02   0.0                       4.200000E-01      -2.387467E+02   0.0                                \r\n   4.400001E-01      -2.867191E+02   0.0                       4.600001E-01      -3.490008E+02   0.0                                \r\n   4.800001E-01      -4.347938E+02   0.0                       5.000001E-01      -5.132485E+02   0.0                                \r\n   5.200000E-01      -5.605688E+02   0.0                       5.400000E-01      -5.771250E+02   0.0                                \r\n   5.600000E-01      -5.582906E+02   0.0                       5.800000E-01      -5.098266E+02   0.0                                \r\n   6.000000E-01      -4.460180E+02   0.0                       6.199999E-01      -3.638438E+02   0.0                                \r\n   6.399999E-01      -2.780754E+02   0.0                       6.599999E-01      -2.293493E+02   0.0                                \r\n   6.799999E-01      -2.191032E+02   0.0                       6.999999E-01      -2.233013E+02   0.0                                \r\n   7.199998E-01      -2.576508E+02   0.0                       7.399998E-01      -3.362953E+02   0.0                                \r\n   7.599998E-01      -4.237641E+02   0.0                       7.799998E-01      -4.916672E+02   0.0                                \r\n   7.999998E-01      -5.446078E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      51\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.719688E+01   0.0                       2.000000E-02       2.066074E+01   0.0                                \r\n   4.000000E-02       1.267266E+01   0.0                       6.000000E-02       7.220215E+00   0.0                                \r\n   8.000000E-02       6.773804E-01   0.0                       9.999999E-02      -6.440332E+00   0.0                                \r\n   1.200000E-01      -1.247520E+01   0.0                       1.400000E-01      -1.586719E+01   0.0                                \r\n   1.600000E-01      -1.612910E+01   0.0                       1.800000E-01      -1.332832E+01   0.0                                \r\n   2.000000E-01      -8.144238E+00   0.0                       2.200000E-01      -1.581592E+00   0.0                                \r\n   2.400000E-01       5.604492E+00   0.0                       2.600000E-01       1.199180E+01   0.0                                \r\n   2.800000E-01       1.559590E+01   0.0                       3.000000E-01       1.596621E+01   0.0                                \r\n   3.200000E-01       1.388262E+01   0.0                       3.400000E-01       9.301172E+00   0.0                                \r\n   3.600000E-01       2.343164E+00   0.0                       3.800000E-01       1.150166E+01   0.0                                \r\n   4.000000E-01       1.417096E+02   0.0                       4.200000E-01       1.708049E+02   0.0                                \r\n   4.400001E-01       1.921207E+02   0.0                       4.600001E-01       2.226352E+02   0.0                                \r\n   4.800001E-01       2.606766E+02   0.0                       5.000001E-01       2.927016E+02   0.0                                \r\n   5.200000E-01       3.129094E+02   0.0                       5.400000E-01       3.224813E+02   0.0                                \r\n   5.600000E-01       3.155250E+02   0.0                       5.800000E-01       2.920312E+02   0.0                                \r\n   6.000000E-01       2.618906E+02   0.0                       6.199999E-01       2.276813E+02   0.0                                \r\n   6.399999E-01       1.921699E+02   0.0                       6.599999E-01       1.685974E+02   0.0                                \r\n   6.799999E-01       1.615692E+02   0.0                       6.999999E-01       1.653038E+02   0.0                                \r\n   7.199998E-01       1.829660E+02   0.0                       7.399998E-01       2.162110E+02   0.0                                \r\n   7.599998E-01       2.523469E+02   0.0                       7.799998E-01       2.832469E+02   0.0                                \r\n   7.999998E-01       3.091969E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      52\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -2.719688E+01   0.0                       2.000000E-02      -2.066074E+01   0.0                                \r\n   4.000000E-02      -1.267266E+01   0.0                       6.000000E-02      -7.220215E+00   0.0                                \r\n   8.000000E-02      -6.773804E-01   0.0                       9.999999E-02       6.440332E+00   0.0                                \r\n   1.200000E-01       1.247520E+01   0.0                       1.400000E-01       1.586719E+01   0.0                                \r\n   1.600000E-01       1.612910E+01   0.0                       1.800000E-01       1.332832E+01   0.0                                \r\n   2.000000E-01       8.144238E+00   0.0                       2.200000E-01       1.581592E+00   0.0                                \r\n   2.400000E-01      -5.604492E+00   0.0                       2.600000E-01      -1.199180E+01   0.0                                \r\n   2.800000E-01      -1.559590E+01   0.0                       3.000000E-01      -1.596621E+01   0.0                                \r\n   3.200000E-01      -1.388262E+01   0.0                       3.400000E-01      -9.301172E+00   0.0                                \r\n   3.600000E-01      -2.343164E+00   0.0                       3.800000E-01      -1.150166E+01   0.0                                \r\n   4.000000E-01      -1.417096E+02   0.0                       4.200000E-01      -1.708049E+02   0.0                                \r\n   4.400001E-01      -1.921207E+02   0.0                       4.600001E-01      -2.226352E+02   0.0                                \r\n   4.800001E-01      -2.606766E+02   0.0                       5.000001E-01      -2.927016E+02   0.0                                \r\n   5.200000E-01      -3.129094E+02   0.0                       5.400000E-01      -3.224813E+02   0.0                                \r\n   5.600000E-01      -3.155250E+02   0.0                       5.800000E-01      -2.920312E+02   0.0                                \r\n   6.000000E-01      -2.618906E+02   0.0                       6.199999E-01      -2.276813E+02   0.0                                \r\n   6.399999E-01      -1.921699E+02   0.0                       6.599999E-01      -1.685974E+02   0.0                                \r\n   6.799999E-01      -1.615692E+02   0.0                       6.999999E-01      -1.653038E+02   0.0                                \r\n   7.199998E-01      -1.829660E+02   0.0                       7.399998E-01      -2.162110E+02   0.0                                \r\n   7.599998E-01      -2.523469E+02   0.0                       7.799998E-01      -2.832469E+02   0.0                                \r\n   7.999998E-01      -3.091969E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     111\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                4.223695E+02   0.0                       2.000000E-02       3.681719E+02   0.0                                \r\n   4.000000E-02       2.716137E+02   0.0                       6.000000E-02       1.460233E+02   0.0                                \r\n   8.000000E-02       2.133002E+01   0.0                       9.999999E-02      -1.264109E+02   0.0                                \r\n   1.200000E-01      -2.806487E+02   0.0                       1.400000E-01      -3.676077E+02   0.0                                \r\n   1.600000E-01      -3.517747E+02   0.0                       1.800000E-01      -2.766795E+02   0.0                                \r\n   2.000000E-01      -1.830248E+02   0.0                       2.200000E-01      -5.172398E+01   0.0                                \r\n   2.400000E-01       1.251109E+02   0.0                       2.600000E-01       2.801393E+02   0.0                                \r\n   2.800000E-01       3.456831E+02   0.0                       3.000000E-01       3.386353E+02   0.0                                \r\n   3.200000E-01       3.018050E+02   0.0                       3.400000E-01       2.181763E+02   0.0                                \r\n   3.600000E-01       5.995147E+01   0.0                       3.800000E-01      -1.102898E+02   0.0                                \r\n   4.000000E-01      -3.006419E+02   0.0                       4.200000E-01      -4.595445E+00   0.0                                \r\n   4.400001E-01       5.026616E+02   0.0                       4.600001E-01       1.148534E+03   0.0                                \r\n   4.800001E-01       1.929301E+03   0.0                       5.000001E-01       2.695758E+03   0.0                                \r\n   5.200000E-01       3.201235E+03   0.0                       5.400000E-01       3.327427E+03   0.0                                \r\n   5.600000E-01       3.133626E+03   0.0                       5.800000E-01       2.707696E+03   0.0                                \r\n   6.000000E-01       2.055257E+03   0.0                       6.199999E-01       1.222772E+03   0.0                                \r\n   6.399999E-01       4.457762E+02   0.0                       6.599999E-01      -3.105162E+01   0.0                                \r\n   6.799999E-01      -1.950902E+02   0.0                       6.999999E-01      -1.174157E+02   0.0                                \r\n   7.199998E-01       2.619443E+02   0.0                       7.399998E-01       9.715467E+02   0.0                                \r\n   7.599998E-01       1.813900E+03   0.0                       7.799998E-01       2.529675E+03   0.0                                \r\n   7.999998E-01       3.023463E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     112\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.170807E-08   0.0                       2.000000E-02       1.369472E-08   0.0                                \r\n   4.000000E-02       2.122448E-09   0.0                       6.000000E-02       1.269021E-09   0.0                                \r\n   8.000000E-02      -1.460445E-10   0.0                       9.999999E-02      -1.127989E-09   0.0                                \r\n   1.200000E-01      -1.665404E-09   0.0                       1.400000E-01      -1.981022E-09   0.0                                \r\n   1.600000E-01      -2.283969E-09   0.0                       1.800000E-01      -2.256616E-09   0.0                                \r\n   2.000000E-01      -1.178960E-09   0.0                       2.200000E-01       2.030175E-10   0.0                                \r\n   2.400000E-01       7.908564E-10   0.0                       2.600000E-01       1.299803E-09   0.0                                \r\n   2.800000E-01       2.212833E-09   0.0                       3.000000E-01       2.582703E-09   0.0                                \r\n   3.200000E-01       2.041749E-09   0.0                       3.400000E-01       1.055870E-09   0.0                                \r\n   3.600000E-01       1.437276E-10   0.0                       3.800000E-01       9.640727E-08   0.0                                \r\n   4.000000E-01      -1.074036E-07   0.0                       4.200000E-01      -1.154444E-08   0.0                                \r\n   4.400001E-01      -7.187852E-09   0.0                       4.600001E-01      -1.367324E-09   0.0                                \r\n   4.800001E-01       2.540085E-09   0.0                       5.000001E-01       7.134207E-09   0.0                                \r\n   5.200000E-01       1.024756E-08   0.0                       5.400000E-01       1.103438E-08   0.0                                \r\n   5.600000E-01       1.138437E-08   0.0                       5.800000E-01       7.823094E-09   0.0                                \r\n   6.000000E-01       1.551637E-09   0.0                       6.199999E-01      -1.882092E-09   0.0                                \r\n   6.399999E-01      -5.501786E-09   0.0                       6.599999E-01      -1.062783E-08   0.0                                \r\n   6.799999E-01      -1.206623E-08   0.0                       6.999999E-01      -1.049726E-08   0.0                                \r\n   7.199998E-01      -7.802948E-09   0.0                       7.399998E-01      -3.092339E-09   0.0                                \r\n   7.599998E-01       1.132004E-09   0.0                       7.799998E-01       5.219917E-09   0.0                                \r\n   7.999998E-01       1.063591E-08   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     113\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -4.223695E+02   0.0                       2.000000E-02      -3.681719E+02   0.0                                \r\n   4.000000E-02      -2.716137E+02   0.0                       6.000000E-02      -1.460233E+02   0.0                                \r\n   8.000000E-02      -2.133002E+01   0.0                       9.999999E-02       1.264109E+02   0.0                                \r\n   1.200000E-01       2.806487E+02   0.0                       1.400000E-01       3.676077E+02   0.0                                \r\n   1.600000E-01       3.517747E+02   0.0                       1.800000E-01       2.766795E+02   0.0                                \r\n   2.000000E-01       1.830248E+02   0.0                       2.200000E-01       5.172398E+01   0.0                                \r\n   2.400000E-01      -1.251109E+02   0.0                       2.600000E-01      -2.801393E+02   0.0                                \r\n   2.800000E-01      -3.456831E+02   0.0                       3.000000E-01      -3.386353E+02   0.0                                \r\n   3.200000E-01      -3.018050E+02   0.0                       3.400000E-01      -2.181763E+02   0.0                                \r\n   3.600000E-01      -5.995147E+01   0.0                       3.800000E-01       1.102898E+02   0.0                                \r\n   4.000000E-01       3.006419E+02   0.0                       4.200000E-01       4.595445E+00   0.0                                \r\n   4.400001E-01      -5.026616E+02   0.0                       4.600001E-01      -1.148534E+03   0.0                                \r\n   4.800001E-01      -1.929301E+03   0.0                       5.000001E-01      -2.695758E+03   0.0                                \r\n   5.200000E-01      -3.201235E+03   0.0                       5.400000E-01      -3.327427E+03   0.0                                \r\n   5.600000E-01      -3.133626E+03   0.0                       5.800000E-01      -2.707696E+03   0.0                                \r\n   6.000000E-01      -2.055257E+03   0.0                       6.199999E-01      -1.222772E+03   0.0                                \r\n   6.399999E-01      -4.457762E+02   0.0                       6.599999E-01       3.105162E+01   0.0                                \r\n   6.799999E-01       1.950902E+02   0.0                       6.999999E-01       1.174157E+02   0.0                                \r\n   7.199998E-01      -2.619443E+02   0.0                       7.399998E-01      -9.715467E+02   0.0                                \r\n   7.599998E-01      -1.813900E+03   0.0                       7.799998E-01      -2.529675E+03   0.0                                \r\n   7.999998E-01      -3.023463E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     121\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                3.398000E+02   0.0                       2.000000E-02       3.032904E+02   0.0                                \r\n   4.000000E-02       2.331543E+02   0.0                       6.000000E-02       1.290230E+02   0.0                                \r\n   8.000000E-02       1.456854E+01   0.0                       9.999999E-02      -1.132030E+02   0.0                                \r\n   1.200000E-01      -2.339044E+02   0.0                       1.400000E-01      -3.026671E+02   0.0                                \r\n   1.600000E-01      -2.983086E+02   0.0                       1.800000E-01      -2.405318E+02   0.0                                \r\n   2.000000E-01      -1.532653E+02   0.0                       2.200000E-01      -3.629723E+01   0.0                                \r\n   2.400000E-01       1.054366E+02   0.0                       2.600000E-01       2.290432E+02   0.0                                \r\n   2.800000E-01       2.902297E+02   0.0                       3.000000E-01       2.921189E+02   0.0                                \r\n   3.200000E-01       2.566447E+02   0.0                       3.400000E-01       1.775037E+02   0.0                                \r\n   3.600000E-01       4.709263E+01   0.0                       3.800000E-01      -1.142212E+02   0.0                                \r\n   4.000000E-01      -8.812500E+00   0.0                       4.200000E-01       1.969957E+02   0.0                                \r\n   4.400001E-01       6.184639E+02   0.0                       4.600001E-01       1.182282E+03   0.0                                \r\n   4.800001E-01       1.851722E+03   0.0                       5.000001E-01       2.474131E+03   0.0                                \r\n   5.200000E-01       2.886625E+03   0.0                       5.400000E-01       3.019410E+03   0.0                                \r\n   5.600000E-01       2.868823E+03   0.0                       5.800000E-01       2.483533E+03   0.0                                \r\n   6.000000E-01       1.922868E+03   0.0                       6.199999E-01       1.243865E+03   0.0                                \r\n   6.399999E-01       5.988370E+02   0.0                       6.599999E-01       1.808168E+02   0.0                                \r\n   6.799999E-01       3.123369E+01   0.0                       6.999999E-01       1.056699E+02   0.0                                \r\n   7.199998E-01       4.409910E+02   0.0                       7.399998E-01       1.035805E+03   0.0                                \r\n   7.599998E-01       1.724316E+03   0.0                       7.799998E-01       2.327855E+03   0.0                                \r\n   7.999998E-01       2.770678E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     122\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.394508E-09   0.0                       2.000000E-02       1.631678E-09   0.0                                \r\n   4.000000E-02       2.530684E-10   0.0                       6.000000E-02       1.512625E-10   0.0                                \r\n   8.000000E-02      -1.739450E-11   0.0                       9.999999E-02      -1.344688E-10   0.0                                \r\n   1.200000E-01      -1.985793E-10   0.0                       1.400000E-01      -2.361674E-10   0.0                                \r\n   1.600000E-01      -2.723046E-10   0.0                       1.800000E-01      -2.690624E-10   0.0                                \r\n   2.000000E-01      -1.405618E-10   0.0                       2.200000E-01       2.417090E-11   0.0                                \r\n   2.400000E-01       9.427219E-11   0.0                       2.600000E-01       1.549993E-10   0.0                                \r\n   2.800000E-01       2.637831E-10   0.0                       3.000000E-01       3.079065E-10   0.0                                \r\n   3.200000E-01       2.434634E-10   0.0                       3.400000E-01       1.259015E-10   0.0                                \r\n   3.600000E-01       1.715128E-11   0.0                       3.800000E-01       1.148483E-08   0.0                                \r\n   4.000000E-01      -1.279516E-08   0.0                       4.200000E-01      -1.375426E-09   0.0                                \r\n   4.400001E-01      -8.560374E-10   0.0                       4.600001E-01      -1.621392E-10   0.0                                \r\n   4.800001E-01       3.036955E-10   0.0                       5.000001E-01       8.518877E-10   0.0                                \r\n   5.200000E-01       1.222797E-09   0.0                       5.400000E-01       1.316228E-09   0.0                                \r\n   5.600000E-01       1.358426E-09   0.0                       5.800000E-01       9.338499E-10   0.0                                \r\n   6.000000E-01       1.861090E-10   0.0                       6.199999E-01      -2.234486E-10   0.0                                \r\n   6.399999E-01      -6.552716E-10   0.0                       6.599999E-01      -1.266314E-09   0.0                                \r\n   6.799999E-01      -1.437610E-09   0.0                       6.999999E-01      -1.250740E-09   0.0                                \r\n   7.199998E-01      -9.294859E-10   0.0                       7.399998E-01      -3.677847E-10   0.0                                \r\n   7.599998E-01       1.360398E-10   0.0                       7.799998E-01       6.232982E-10   0.0                                \r\n   7.999998E-01       1.268903E-09   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     123\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -3.398000E+02   0.0                       2.000000E-02      -3.032904E+02   0.0                                \r\n   4.000000E-02      -2.331543E+02   0.0                       6.000000E-02      -1.290230E+02   0.0                                \r\n   8.000000E-02      -1.456854E+01   0.0                       9.999999E-02       1.132030E+02   0.0                                \r\n   1.200000E-01       2.339044E+02   0.0                       1.400000E-01       3.026671E+02   0.0                                \r\n   1.600000E-01       2.983086E+02   0.0                       1.800000E-01       2.405318E+02   0.0                                \r\n   2.000000E-01       1.532653E+02   0.0                       2.200000E-01       3.629723E+01   0.0                                \r\n   2.400000E-01      -1.054366E+02   0.0                       2.600000E-01      -2.290432E+02   0.0                                \r\n   2.800000E-01      -2.902297E+02   0.0                       3.000000E-01      -2.921189E+02   0.0                                \r\n   3.200000E-01      -2.566447E+02   0.0                       3.400000E-01      -1.775037E+02   0.0                                \r\n   3.600000E-01      -4.709263E+01   0.0                       3.800000E-01       1.142212E+02   0.0                                \r\n   4.000000E-01       8.812500E+00   0.0                       4.200000E-01      -1.969957E+02   0.0                                \r\n   4.400001E-01      -6.184639E+02   0.0                       4.600001E-01      -1.182282E+03   0.0                                \r\n   4.800001E-01      -1.851722E+03   0.0                       5.000001E-01      -2.474131E+03   0.0                                \r\n   5.200000E-01      -2.886625E+03   0.0                       5.400000E-01      -3.019410E+03   0.0                                \r\n   5.600000E-01      -2.868823E+03   0.0                       5.800000E-01      -2.483533E+03   0.0                                \r\n   6.000000E-01      -1.922868E+03   0.0                       6.199999E-01      -1.243865E+03   0.0                                \r\n   6.399999E-01      -5.988370E+02   0.0                       6.599999E-01      -1.808168E+02   0.0                                \r\n   6.799999E-01      -3.123369E+01   0.0                       6.999999E-01      -1.056699E+02   0.0                                \r\n   7.199998E-01      -4.409910E+02   0.0                       7.399998E-01      -1.035805E+03   0.0                                \r\n   7.599998E-01      -1.724316E+03   0.0                       7.799998E-01      -2.327855E+03   0.0                                \r\n   7.999998E-01      -2.770678E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     131\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.576757E+02   0.0                       2.000000E-02       2.389526E+02   0.0                                \r\n   4.000000E-02       1.946614E+02   0.0                       6.000000E-02       1.114967E+02   0.0                                \r\n   8.000000E-02       8.118103E+00   0.0                       9.999999E-02      -9.928233E+01   0.0                                \r\n   1.200000E-01      -1.877666E+02   0.0                       1.400000E-01      -2.391519E+02   0.0                                \r\n   1.600000E-01      -2.450336E+02   0.0                       1.800000E-01      -2.037673E+02   0.0                                \r\n   2.000000E-01      -1.239565E+02   0.0                       2.200000E-01      -2.181927E+01   0.0                                \r\n   2.400000E-01       8.604547E+01   0.0                       2.600000E-01       1.790671E+02   0.0                                \r\n   2.800000E-01       2.352549E+02   0.0                       3.000000E-01       2.453558E+02   0.0                                \r\n   3.200000E-01       2.115986E+02   0.0                       3.400000E-01       1.377343E+02   0.0                                \r\n   3.600000E-01       3.478857E+01   0.0                       3.800000E-01      -1.159587E+02   0.0                                \r\n   4.000000E-01       1.404263E+02   0.0                       4.200000E-01       2.585297E+02   0.0                                \r\n   4.400001E-01       5.976136E+02   0.0                       4.600001E-01       1.079219E+03   0.0                                \r\n   4.800001E-01       1.634016E+03   0.0                       5.000001E-01       2.116817E+03   0.0                                \r\n   5.200000E-01       2.440999E+03   0.0                       5.400000E-01       2.575041E+03   0.0                                \r\n   5.600000E-01       2.465134E+03   0.0                       5.800000E-01       2.125962E+03   0.0                                \r\n   6.000000E-01       1.656306E+03   0.0                       6.199999E-01       1.125016E+03   0.0                                \r\n   6.399999E-01       6.124471E+02   0.0                       6.599999E-01       2.548027E+02   0.0                                \r\n   6.799999E-01       1.180244E+02   0.0                       6.999999E-01       1.898836E+02   0.0                                \r\n   7.199998E-01       4.814554E+02   0.0                       7.399998E-01       9.600409E+02   0.0                                \r\n   7.599998E-01       1.498493E+03   0.0                       7.799998E-01       1.993180E+03   0.0                                \r\n   7.999998E-01       2.380618E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     132\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.561509E-08   0.0                       2.000000E-02      -1.826301E-08   0.0                                \r\n   4.000000E-02      -2.829895E-09   0.0                       6.000000E-02      -1.692053E-09   0.0                                \r\n   8.000000E-02       1.947846E-10   0.0                       9.999999E-02       1.503977E-09   0.0                                \r\n   1.200000E-01       2.220493E-09   0.0                       1.400000E-01       2.641288E-09   0.0                                \r\n   1.600000E-01       3.045143E-09   0.0                       1.800000E-01       3.008765E-09   0.0                                \r\n   2.000000E-01       1.571938E-09   0.0                       2.200000E-01      -2.708054E-10   0.0                                \r\n   2.400000E-01      -1.054461E-09   0.0                       2.600000E-01      -1.732907E-09   0.0                                \r\n   2.800000E-01      -2.950350E-09   0.0                       3.000000E-01      -3.443521E-09   0.0                                \r\n   3.200000E-01      -2.722250E-09   0.0                       3.400000E-01      -1.407664E-09   0.0                                \r\n   3.600000E-01      -1.915728E-10   0.0                       3.800000E-01      -1.285720E-07   0.0                                \r\n   4.000000E-01       1.432364E-07   0.0                       4.200000E-01       1.539581E-08   0.0                                \r\n   4.400001E-01       9.586731E-09   0.0                       4.600001E-01       1.826619E-09   0.0                                \r\n   4.800001E-01      -3.382993E-09   0.0                       5.000001E-01      -9.508771E-09   0.0                                \r\n   5.200000E-01      -1.366025E-08   0.0                       5.400000E-01      -1.470937E-08   0.0                                \r\n   5.600000E-01      -1.517596E-08   0.0                       5.800000E-01      -1.042634E-08   0.0                                \r\n   6.000000E-01      -2.063848E-09   0.0                       6.199999E-01       2.512705E-09   0.0                                \r\n   6.399999E-01       7.338368E-09   0.0                       6.599999E-01       1.417375E-08   0.0                                \r\n   6.799999E-01       1.609159E-08   0.0                       6.999999E-01       1.399918E-08   0.0                                \r\n   7.199998E-01       1.040698E-08   0.0                       7.399998E-01       4.126117E-09   0.0                                \r\n   7.599998E-01      -1.506645E-09   0.0                       7.799998E-01      -6.955853E-09   0.0                                \r\n   7.999998E-01      -1.417633E-08   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     133\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -2.576757E+02   0.0                       2.000000E-02      -2.389526E+02   0.0                                \r\n   4.000000E-02      -1.946614E+02   0.0                       6.000000E-02      -1.114967E+02   0.0                                \r\n   8.000000E-02      -8.118103E+00   0.0                       9.999999E-02       9.928233E+01   0.0                                \r\n   1.200000E-01       1.877666E+02   0.0                       1.400000E-01       2.391519E+02   0.0                                \r\n   1.600000E-01       2.450336E+02   0.0                       1.800000E-01       2.037673E+02   0.0                                \r\n   2.000000E-01       1.239565E+02   0.0                       2.200000E-01       2.181927E+01   0.0                                \r\n   2.400000E-01      -8.604547E+01   0.0                       2.600000E-01      -1.790671E+02   0.0                                \r\n   2.800000E-01      -2.352549E+02   0.0                       3.000000E-01      -2.453558E+02   0.0                                \r\n   3.200000E-01      -2.115986E+02   0.0                       3.400000E-01      -1.377343E+02   0.0                                \r\n   3.600000E-01      -3.478857E+01   0.0                       3.800000E-01       1.159587E+02   0.0                                \r\n   4.000000E-01      -1.404263E+02   0.0                       4.200000E-01      -2.585297E+02   0.0                                \r\n   4.400001E-01      -5.976136E+02   0.0                       4.600001E-01      -1.079219E+03   0.0                                \r\n   4.800001E-01      -1.634016E+03   0.0                       5.000001E-01      -2.116817E+03   0.0                                \r\n   5.200000E-01      -2.440999E+03   0.0                       5.400000E-01      -2.575041E+03   0.0                                \r\n   5.600000E-01      -2.465134E+03   0.0                       5.800000E-01      -2.125962E+03   0.0                                \r\n   6.000000E-01      -1.656306E+03   0.0                       6.199999E-01      -1.125016E+03   0.0                                \r\n   6.399999E-01      -6.124471E+02   0.0                       6.599999E-01      -2.548027E+02   0.0                                \r\n   6.799999E-01      -1.180244E+02   0.0                       6.999999E-01      -1.898836E+02   0.0                                \r\n   7.199998E-01      -4.814554E+02   0.0                       7.399998E-01      -9.600409E+02   0.0                                \r\n   7.599998E-01      -1.498493E+03   0.0                       7.799998E-01      -1.993180E+03   0.0                                \r\n   7.999998E-01      -2.380618E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     141\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.767943E+02   0.0                       2.000000E-02       1.760250E+02   0.0                                \r\n   4.000000E-02       1.563360E+02   0.0                       6.000000E-02       9.299451E+01   0.0                                \r\n   8.000000E-02       2.453403E+00   0.0                       9.999999E-02      -8.400620E+01   0.0                                \r\n   1.200000E-01      -1.433318E+02   0.0                       1.400000E-01      -1.791094E+02   0.0                                \r\n   1.600000E-01      -1.926121E+02   0.0                       1.800000E-01      -1.660551E+02   0.0                                \r\n   2.000000E-01      -9.578057E+01   0.0                       2.200000E-01      -9.454624E+00   0.0                                \r\n   2.400000E-01       6.732946E+01   0.0                       2.600000E-01       1.319158E+02   0.0                                \r\n   2.800000E-01       1.818071E+02   0.0                       3.000000E-01       1.983650E+02   0.0                                \r\n   3.200000E-01       1.671532E+02   0.0                       3.400000E-01       1.002968E+02   0.0                                \r\n   3.600000E-01       2.371107E+01   0.0                       3.800000E-01      -1.165682E+02   0.0                                \r\n   4.000000E-01       1.412881E+02   0.0                       4.200000E-01       1.760521E+02   0.0                                \r\n   4.400001E-01       4.393153E+02   0.0                       4.600001E-01       8.382103E+02   0.0                                \r\n   4.800001E-01       1.274142E+03   0.0                       5.000001E-01       1.627424E+03   0.0                                \r\n   5.200000E-01       1.872397E+03   0.0                       5.400000E-01       1.997888E+03   0.0                                \r\n   5.600000E-01       1.923403E+03   0.0                       5.800000E-01       1.639764E+03   0.0                                \r\n   6.000000E-01       1.259581E+03   0.0                       6.199999E-01       8.638157E+02   0.0                                \r\n   6.399999E-01       4.819789E+02   0.0                       6.599999E-01       1.874426E+02   0.0                                \r\n   6.799999E-01       6.161058E+01   0.0                       6.999999E-01       1.312415E+02   0.0                                \r\n   7.199998E-01       3.790310E+02   0.0                       7.399998E-01       7.410129E+02   0.0                                \r\n   7.599998E-01       1.138471E+03   0.0                       7.799998E-01       1.530812E+03   0.0                                \r\n   7.999998E-01       1.855175E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     142\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.551143E-08   0.0                       2.000000E-02      -2.983779E-08   0.0                                \r\n   4.000000E-02      -4.623596E-09   0.0                       6.000000E-02      -2.764611E-09   0.0                                \r\n   8.000000E-02       3.182229E-10   0.0                       9.999999E-02       2.457321E-09   0.0                                \r\n   1.200000E-01       3.628021E-09   0.0                       1.400000E-01       4.315519E-09   0.0                                \r\n   1.600000E-01       4.975392E-09   0.0                       1.800000E-01       4.915849E-09   0.0                                \r\n   2.000000E-01       2.568277E-09   0.0                       2.200000E-01      -4.424195E-10   0.0                                \r\n   2.400000E-01      -1.722821E-09   0.0                       2.600000E-01      -2.831359E-09   0.0                                \r\n   2.800000E-01      -4.820614E-09   0.0                       3.000000E-01      -5.626319E-09   0.0                                \r\n   3.200000E-01      -4.447759E-09   0.0                       3.400000E-01      -2.300040E-09   0.0                                \r\n   3.600000E-01      -3.130352E-10   0.0                       3.800000E-01      -2.100579E-07   0.0                                \r\n   4.000000E-01       2.340166E-07   0.0                       4.200000E-01       2.515331E-08   0.0                                \r\n   4.400001E-01       1.566264E-08   0.0                       4.600001E-01       2.984554E-09   0.0                                \r\n   4.800001E-01      -5.528349E-09   0.0                       5.000001E-01      -1.553605E-08   0.0                                \r\n   5.200000E-01      -2.231918E-08   0.0                       5.400000E-01      -2.403167E-08   0.0                                \r\n   5.600000E-01      -2.479634E-08   0.0                       5.800000E-01      -1.703705E-08   0.0                                \r\n   6.000000E-01      -3.373418E-09   0.0                       6.199999E-01       4.103899E-09   0.0                                \r\n   6.399999E-01       1.198881E-08   0.0                       6.599999E-01       2.315642E-08   0.0                                \r\n   6.799999E-01       2.629008E-08   0.0                       6.999999E-01       2.287169E-08   0.0                                \r\n   7.199998E-01       1.700223E-08   0.0                       7.399998E-01       6.740597E-09   0.0                                \r\n   7.599998E-01      -2.461994E-09   0.0                       7.799998E-01      -1.136752E-08   0.0                                \r\n   7.999998E-01      -2.316357E-08   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     143\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.767943E+02   0.0                       2.000000E-02      -1.760250E+02   0.0                                \r\n   4.000000E-02      -1.563360E+02   0.0                       6.000000E-02      -9.299451E+01   0.0                                \r\n   8.000000E-02      -2.453403E+00   0.0                       9.999999E-02       8.400620E+01   0.0                                \r\n   1.200000E-01       1.433318E+02   0.0                       1.400000E-01       1.791094E+02   0.0                                \r\n   1.600000E-01       1.926121E+02   0.0                       1.800000E-01       1.660551E+02   0.0                                \r\n   2.000000E-01       9.578057E+01   0.0                       2.200000E-01       9.454624E+00   0.0                                \r\n   2.400000E-01      -6.732946E+01   0.0                       2.600000E-01      -1.319158E+02   0.0                                \r\n   2.800000E-01      -1.818071E+02   0.0                       3.000000E-01      -1.983650E+02   0.0                                \r\n   3.200000E-01      -1.671532E+02   0.0                       3.400000E-01      -1.002968E+02   0.0                                \r\n   3.600000E-01      -2.371107E+01   0.0                       3.800000E-01       1.165682E+02   0.0                                \r\n   4.000000E-01      -1.412881E+02   0.0                       4.200000E-01      -1.760521E+02   0.0                                \r\n   4.400001E-01      -4.393153E+02   0.0                       4.600001E-01      -8.382103E+02   0.0                                \r\n   4.800001E-01      -1.274142E+03   0.0                       5.000001E-01      -1.627424E+03   0.0                                \r\n   5.200000E-01      -1.872397E+03   0.0                       5.400000E-01      -1.997888E+03   0.0                                \r\n   5.600000E-01      -1.923403E+03   0.0                       5.800000E-01      -1.639764E+03   0.0                                \r\n   6.000000E-01      -1.259581E+03   0.0                       6.199999E-01      -8.638157E+02   0.0                                \r\n   6.399999E-01      -4.819789E+02   0.0                       6.599999E-01      -1.874426E+02   0.0                                \r\n   6.799999E-01      -6.161058E+01   0.0                       6.999999E-01      -1.312415E+02   0.0                                \r\n   7.199998E-01      -3.790310E+02   0.0                       7.399998E-01      -7.410129E+02   0.0                                \r\n   7.599998E-01      -1.138471E+03   0.0                       7.799998E-01      -1.530812E+03   0.0                                \r\n   7.999998E-01      -1.855175E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     151\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                9.811905E+01   0.0                       2.000000E-02       1.153671E+02   0.0                                \r\n   4.000000E-02       1.186405E+02   0.0                       6.000000E-02       7.346001E+01   0.0                                \r\n   8.000000E-02      -1.949551E+00   0.0                       9.999999E-02      -6.723264E+01   0.0                                \r\n   1.200000E-01      -1.018674E+02   0.0                       1.400000E-01      -1.244247E+02   0.0                                \r\n   1.600000E-01      -1.421151E+02   0.0                       1.800000E-01      -1.277257E+02   0.0                                \r\n   2.000000E-01      -6.939939E+01   0.0                       2.200000E-01      -6.161499E-02   0.0                                \r\n   2.400000E-01       4.963726E+01   0.0                       2.600000E-01       8.928472E+01   0.0                                \r\n   2.800000E-01       1.312585E+02   0.0                       3.000000E-01       1.515979E+02   0.0                                \r\n   3.200000E-01       1.241432E+02   0.0                       3.400000E-01       6.664776E+01   0.0                                \r\n   3.600000E-01       1.433590E+01   0.0                       3.800000E-01      -1.207614E+02   0.0                                \r\n   4.000000E-01      -1.040457E+01   0.0                       4.200000E-01      -5.400963E+01   0.0                                \r\n   4.400001E-01       1.410570E+02   0.0                       4.600001E-01       4.562924E+02   0.0                                \r\n   4.800001E-01       7.726196E+02   0.0                       5.000001E-01       1.010977E+03   0.0                                \r\n   5.200000E-01       1.187337E+03   0.0                       5.400000E-01       1.293878E+03   0.0                                \r\n   5.600000E-01       1.248200E+03   0.0                       5.800000E-01       1.028664E+03   0.0                                \r\n   6.000000E-01       7.359363E+02   0.0                       6.199999E-01       4.598036E+02   0.0                                \r\n   6.399999E-01       2.016025E+02   0.0                       6.599999E-01      -2.738544E+01   0.0                                \r\n   6.799999E-01      -1.417652E+02   0.0                       6.999999E-01      -7.571917E+01   0.0                                \r\n   7.199998E-01       1.270181E+02   0.0                       7.399998E-01       3.766594E+02   0.0                                \r\n   7.599998E-01       6.469360E+02   0.0                       7.799998E-01       9.442483E+02   0.0                                \r\n   7.999998E-01       1.198417E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     152\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -3.848385E-08   0.0                       2.000000E-02       4.501200E-08   0.0                                \r\n   4.000000E-02       6.975542E-09   0.0                       6.000000E-02       4.170881E-09   0.0                                \r\n   8.000000E-02      -4.800382E-10   0.0                       9.999999E-02      -3.707265E-09   0.0                                \r\n   1.200000E-01      -5.473599E-09   0.0                       1.400000E-01      -6.510982E-09   0.0                                \r\n   1.600000E-01      -7.506301E-09   0.0                       1.800000E-01      -7.416325E-09   0.0                                \r\n   2.000000E-01      -3.874756E-09   0.0                       2.200000E-01       6.673186E-10   0.0                                \r\n   2.400000E-01       2.599268E-09   0.0                       2.600000E-01       4.271816E-09   0.0                                \r\n   2.800000E-01       7.272784E-09   0.0                       3.000000E-01       8.488179E-09   0.0                                \r\n   3.200000E-01       6.710277E-09   0.0                       3.400000E-01       3.470096E-09   0.0                                \r\n   3.600000E-01       4.723245E-10   0.0                       3.800000E-01       3.168776E-07   0.0                                \r\n   4.000000E-01      -3.530204E-07   0.0                       4.200000E-01      -3.794459E-08   0.0                                \r\n   4.400001E-01      -2.362605E-08   0.0                       4.600001E-01      -4.499066E-09   0.0                                \r\n   4.800001E-01       8.344443E-09   0.0                       5.000001E-01       2.344280E-08   0.0                                \r\n   5.200000E-01       3.367735E-08   0.0                       5.400000E-01       3.626234E-08   0.0                                \r\n   5.600000E-01       3.741416E-08   0.0                       5.800000E-01       2.570622E-08   0.0                                \r\n   6.000000E-01       5.093410E-09   0.0                       6.199999E-01      -6.188196E-09   0.0                                \r\n   6.399999E-01      -1.808423E-08   0.0                       6.599999E-01      -3.493210E-08   0.0                                \r\n   6.799999E-01      -3.965966E-08   0.0                       6.999999E-01      -3.450276E-08   0.0                                \r\n   7.199998E-01      -2.564766E-08   0.0                       7.399998E-01      -1.016563E-08   0.0                                \r\n   7.599998E-01       3.718920E-09   0.0                       7.799998E-01       1.715377E-08   0.0                                \r\n   7.999998E-01       3.494943E-08   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     153\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -9.811905E+01   0.0                       2.000000E-02      -1.153671E+02   0.0                                \r\n   4.000000E-02      -1.186405E+02   0.0                       6.000000E-02      -7.346001E+01   0.0                                \r\n   8.000000E-02       1.949551E+00   0.0                       9.999999E-02       6.723264E+01   0.0                                \r\n   1.200000E-01       1.018674E+02   0.0                       1.400000E-01       1.244247E+02   0.0                                \r\n   1.600000E-01       1.421151E+02   0.0                       1.800000E-01       1.277257E+02   0.0                                \r\n   2.000000E-01       6.939939E+01   0.0                       2.200000E-01       6.161499E-02   0.0                                \r\n   2.400000E-01      -4.963726E+01   0.0                       2.600000E-01      -8.928472E+01   0.0                                \r\n   2.800000E-01      -1.312585E+02   0.0                       3.000000E-01      -1.515979E+02   0.0                                \r\n   3.200000E-01      -1.241432E+02   0.0                       3.400000E-01      -6.664776E+01   0.0                                \r\n   3.600000E-01      -1.433590E+01   0.0                       3.800000E-01       1.207614E+02   0.0                                \r\n   4.000000E-01       1.040457E+01   0.0                       4.200000E-01       5.400963E+01   0.0                                \r\n   4.400001E-01      -1.410570E+02   0.0                       4.600001E-01      -4.562924E+02   0.0                                \r\n   4.800001E-01      -7.726196E+02   0.0                       5.000001E-01      -1.010977E+03   0.0                                \r\n   5.200000E-01      -1.187337E+03   0.0                       5.400000E-01      -1.293878E+03   0.0                                \r\n   5.600000E-01      -1.248200E+03   0.0                       5.800000E-01      -1.028664E+03   0.0                                \r\n   6.000000E-01      -7.359363E+02   0.0                       6.199999E-01      -4.598036E+02   0.0                                \r\n   6.399999E-01      -2.016025E+02   0.0                       6.599999E-01       2.738544E+01   0.0                                \r\n   6.799999E-01       1.417652E+02   0.0                       6.999999E-01       7.571917E+01   0.0                                \r\n   7.199998E-01      -1.270181E+02   0.0                       7.399998E-01      -3.766594E+02   0.0                                \r\n   7.599998E-01      -6.469360E+02   0.0                       7.799998E-01      -9.442483E+02   0.0                                \r\n   7.999998E-01      -1.198417E+03   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     211\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.030906E+02   0.0                       2.000000E-02      -8.096002E+01   0.0                                \r\n   4.000000E-02      -4.801187E+01   0.0                       6.000000E-02      -2.129011E+01   0.0                                \r\n   8.000000E-02      -8.388911E+00   0.0                       9.999999E-02       1.657836E+01   0.0                                \r\n   1.200000E-01       5.825280E+01   0.0                       1.400000E-01       8.085995E+01   0.0                                \r\n   1.600000E-01       6.670127E+01   0.0                       1.800000E-01       4.519450E+01   0.0                                \r\n   2.000000E-01       3.708562E+01   0.0                       2.200000E-01       1.912384E+01   0.0                                \r\n   2.400000E-01      -2.452332E+01   0.0                       2.600000E-01      -6.361264E+01   0.0                                \r\n   2.800000E-01      -6.913813E+01   0.0                       3.000000E-01      -5.809738E+01   0.0                                \r\n   3.200000E-01      -5.634765E+01   0.0                       3.400000E-01      -5.062959E+01   0.0                                \r\n   3.600000E-01      -1.597675E+01   0.0                       3.800000E-01      -5.035979E+00   0.0                                \r\n   4.000000E-01       3.637840E+02   0.0                       4.200000E-01       2.512412E+02   0.0                                \r\n   4.400001E-01       1.445229E+02   0.0                       4.600001E-01       4.201448E+01   0.0                                \r\n   4.800001E-01      -9.721734E+01   0.0                       5.000001E-01      -2.764254E+02   0.0                                \r\n   5.200000E-01      -3.919685E+02   0.0                       5.400000E-01      -3.843412E+02   0.0                                \r\n   5.600000E-01      -3.307136E+02   0.0                       5.800000E-01      -2.794014E+02   0.0                                \r\n   6.000000E-01      -1.648965E+02   0.0                       6.199999E-01       2.598097E+01   0.0                                \r\n   6.399999E-01       1.905996E+02   0.0                       6.599999E-01       2.641989E+02   0.0                                \r\n   6.799999E-01       2.821755E+02   0.0                       6.999999E-01       2.781275E+02   0.0                                \r\n   7.199998E-01       2.231086E+02   0.0                       7.399998E-01       7.980641E+01   0.0                                \r\n   7.599998E-01      -1.116907E+02   0.0                       7.799998E-01      -2.514482E+02   0.0                                \r\n   7.999998E-01      -3.155516E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     212\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.030906E+02   0.0                       2.000000E-02       8.096002E+01   0.0                                \r\n   4.000000E-02       4.801187E+01   0.0                       6.000000E-02       2.129011E+01   0.0                                \r\n   8.000000E-02       8.388911E+00   0.0                       9.999999E-02      -1.657836E+01   0.0                                \r\n   1.200000E-01      -5.825280E+01   0.0                       1.400000E-01      -8.085995E+01   0.0                                \r\n   1.600000E-01      -6.670127E+01   0.0                       1.800000E-01      -4.519450E+01   0.0                                \r\n   2.000000E-01      -3.708562E+01   0.0                       2.200000E-01      -1.912384E+01   0.0                                \r\n   2.400000E-01       2.452332E+01   0.0                       2.600000E-01       6.361264E+01   0.0                                \r\n   2.800000E-01       6.913813E+01   0.0                       3.000000E-01       5.809738E+01   0.0                                \r\n   3.200000E-01       5.634765E+01   0.0                       3.400000E-01       5.062959E+01   0.0                                \r\n   3.600000E-01       1.597675E+01   0.0                       3.800000E-01       5.035979E+00   0.0                                \r\n   4.000000E-01      -3.637840E+02   0.0                       4.200000E-01      -2.512412E+02   0.0                                \r\n   4.400001E-01      -1.445229E+02   0.0                       4.600001E-01      -4.201448E+01   0.0                                \r\n   4.800001E-01       9.721734E+01   0.0                       5.000001E-01       2.764254E+02   0.0                                \r\n   5.200000E-01       3.919685E+02   0.0                       5.400000E-01       3.843412E+02   0.0                                \r\n   5.600000E-01       3.307136E+02   0.0                       5.800000E-01       2.794014E+02   0.0                                \r\n   6.000000E-01       1.648965E+02   0.0                       6.199999E-01      -2.598097E+01   0.0                                \r\n   6.399999E-01      -1.905996E+02   0.0                       6.599999E-01      -2.641989E+02   0.0                                \r\n   6.799999E-01      -2.821755E+02   0.0                       6.999999E-01      -2.781275E+02   0.0                                \r\n   7.199998E-01      -2.231086E+02   0.0                       7.399998E-01      -7.980641E+01   0.0                                \r\n   7.599998E-01       1.116907E+02   0.0                       7.799998E-01       2.514482E+02   0.0                                \r\n   7.999998E-01       3.155516E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     221\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.024514E+02   0.0                       2.000000E-02      -8.018969E+01   0.0                                \r\n   4.000000E-02      -4.796860E+01   0.0                       6.000000E-02      -2.191134E+01   0.0                                \r\n   8.000000E-02      -7.970471E+00   0.0                       9.999999E-02       1.743832E+01   0.0                                \r\n   1.200000E-01       5.736731E+01   0.0                       1.400000E-01       7.891095E+01   0.0                                \r\n   1.600000E-01       6.632533E+01   0.0                       1.800000E-01       4.587482E+01   0.0                                \r\n   2.000000E-01       3.645183E+01   0.0                       2.200000E-01       1.789102E+01   0.0                                \r\n   2.400000E-01      -2.412794E+01   0.0                       2.600000E-01      -6.206814E+01   0.0                                \r\n   2.800000E-01      -6.838982E+01   0.0                       3.000000E-01      -5.830368E+01   0.0                                \r\n   3.200000E-01      -5.609227E+01   0.0                       3.400000E-01      -4.937906E+01   0.0                                \r\n   3.600000E-01      -1.525174E+01   0.0                       3.800000E-01      -2.836990E+00   0.0                                \r\n   4.000000E-01       1.851727E+02   0.0                       4.200000E-01       7.569540E+01   0.0                                \r\n   4.400001E-01      -2.668081E+01   0.0                       4.600001E-01      -1.292900E+02   0.0                                \r\n   4.800001E-01      -2.721946E+02   0.0                       5.000001E-01      -4.455018E+02   0.0                                \r\n   5.200000E-01      -5.551196E+02   0.0                       5.400000E-01      -5.540467E+02   0.0                                \r\n   5.600000E-01      -5.036597E+02   0.0                       5.800000E-01      -4.457753E+02   0.0                                \r\n   6.000000E-01      -3.323596E+02   0.0                       6.199999E-01      -1.489741E+02   0.0                                \r\n   6.399999E-01       1.572380E+01   0.0                       6.599999E-01       9.113763E+01   0.0                                \r\n   6.799999E-01       1.072195E+02   0.0                       6.999999E-01       1.038794E+02   0.0                                \r\n   7.199998E-01       4.920533E+01   0.0                       7.399998E-01      -9.540722E+01   0.0                                \r\n   7.599998E-01      -2.817773E+02   0.0                       7.799998E-01      -4.171881E+02   0.0                                \r\n   7.999998E-01      -4.865807E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     222\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.024514E+02   0.0                       2.000000E-02       8.018969E+01   0.0                                \r\n   4.000000E-02       4.796860E+01   0.0                       6.000000E-02       2.191134E+01   0.0                                \r\n   8.000000E-02       7.970471E+00   0.0                       9.999999E-02      -1.743832E+01   0.0                                \r\n   1.200000E-01      -5.736731E+01   0.0                       1.400000E-01      -7.891095E+01   0.0                                \r\n   1.600000E-01      -6.632533E+01   0.0                       1.800000E-01      -4.587482E+01   0.0                                \r\n   2.000000E-01      -3.645183E+01   0.0                       2.200000E-01      -1.789102E+01   0.0                                \r\n   2.400000E-01       2.412794E+01   0.0                       2.600000E-01       6.206814E+01   0.0                                \r\n   2.800000E-01       6.838982E+01   0.0                       3.000000E-01       5.830368E+01   0.0                                \r\n   3.200000E-01       5.609227E+01   0.0                       3.400000E-01       4.937906E+01   0.0                                \r\n   3.600000E-01       1.525174E+01   0.0                       3.800000E-01       2.836990E+00   0.0                                \r\n   4.000000E-01      -1.851727E+02   0.0                       4.200000E-01      -7.569540E+01   0.0                                \r\n   4.400001E-01       2.668081E+01   0.0                       4.600001E-01       1.292900E+02   0.0                                \r\n   4.800001E-01       2.721946E+02   0.0                       5.000001E-01       4.455018E+02   0.0                                \r\n   5.200000E-01       5.551196E+02   0.0                       5.400000E-01       5.540467E+02   0.0                                \r\n   5.600000E-01       5.036597E+02   0.0                       5.800000E-01       4.457753E+02   0.0                                \r\n   6.000000E-01       3.323596E+02   0.0                       6.199999E-01       1.489741E+02   0.0                                \r\n   6.399999E-01      -1.572380E+01   0.0                       6.599999E-01      -9.113763E+01   0.0                                \r\n   6.799999E-01      -1.072195E+02   0.0                       6.999999E-01      -1.038794E+02   0.0                                \r\n   7.199998E-01      -4.920533E+01   0.0                       7.399998E-01       9.540722E+01   0.0                                \r\n   7.599998E-01       2.817773E+02   0.0                       7.799998E-01       4.171881E+02   0.0                                \r\n   7.999998E-01       4.865807E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     231\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.008569E+02   0.0                       2.000000E-02      -7.838138E+01   0.0                                \r\n   4.000000E-02      -4.764935E+01   0.0                       6.000000E-02      -2.302745E+01   0.0                                \r\n   8.000000E-02      -6.995462E+00   0.0                       9.999999E-02       1.901770E+01   0.0                                \r\n   1.200000E-01       5.516236E+01   0.0                       1.400000E-01       7.453045E+01   0.0                                \r\n   1.600000E-01       6.512007E+01   0.0                       1.800000E-01       4.688818E+01   0.0                                \r\n   2.000000E-01       3.499940E+01   0.0                       2.200000E-01       1.530106E+01   0.0                                \r\n   2.400000E-01      -2.325996E+01   0.0                       2.600000E-01      -5.849898E+01   0.0                                \r\n   2.800000E-01      -6.636563E+01   0.0                       3.000000E-01      -5.843218E+01   0.0                                \r\n   3.200000E-01      -5.522066E+01   0.0                       3.400000E-01      -4.643383E+01   0.0                                \r\n   3.600000E-01      -1.374045E+01   0.0                       3.800000E-01      -2.057373E+00   0.0                                \r\n   4.000000E-01      -3.189697E-01   0.0                       4.200000E-01      -1.046538E+02   0.0                                \r\n   4.400001E-01      -1.989923E+02   0.0                       4.600001E-01      -3.020205E+02   0.0                                \r\n   4.800001E-01      -4.494363E+02   0.0                       5.000001E-01      -6.101824E+02   0.0                                \r\n   5.200000E-01      -7.087148E+02   0.0                       5.400000E-01      -7.192986E+02   0.0                                \r\n   5.600000E-01      -6.753176E+02   0.0                       5.800000E-01      -6.064430E+02   0.0                                \r\n   6.000000E-01      -4.950999E+02   0.0                       6.199999E-01      -3.267331E+02   0.0                                \r\n   6.399999E-01      -1.647234E+02   0.0                       6.599999E-01      -8.623810E+01   0.0                                \r\n   6.799999E-01      -7.224690E+01   0.0                       6.999999E-01      -7.527012E+01   0.0                                \r\n   7.199998E-01      -1.299501E+02   0.0                       7.399998E-01      -2.744482E+02   0.0                                \r\n   7.599998E-01      -4.494299E+02   0.0                       7.799998E-01      -5.768192E+02   0.0                                \r\n   7.999998E-01      -6.551531E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     232\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.008569E+02   0.0                       2.000000E-02       7.838138E+01   0.0                                \r\n   4.000000E-02       4.764935E+01   0.0                       6.000000E-02       2.302745E+01   0.0                                \r\n   8.000000E-02       6.995462E+00   0.0                       9.999999E-02      -1.901770E+01   0.0                                \r\n   1.200000E-01      -5.516236E+01   0.0                       1.400000E-01      -7.453045E+01   0.0                                \r\n   1.600000E-01      -6.512007E+01   0.0                       1.800000E-01      -4.688818E+01   0.0                                \r\n   2.000000E-01      -3.499940E+01   0.0                       2.200000E-01      -1.530106E+01   0.0                                \r\n   2.400000E-01       2.325996E+01   0.0                       2.600000E-01       5.849898E+01   0.0                                \r\n   2.800000E-01       6.636563E+01   0.0                       3.000000E-01       5.843218E+01   0.0                                \r\n   3.200000E-01       5.522066E+01   0.0                       3.400000E-01       4.643383E+01   0.0                                \r\n   3.600000E-01       1.374045E+01   0.0                       3.800000E-01       2.057373E+00   0.0                                \r\n   4.000000E-01       3.189697E-01   0.0                       4.200000E-01       1.046538E+02   0.0                                \r\n   4.400001E-01       1.989923E+02   0.0                       4.600001E-01       3.020205E+02   0.0                                \r\n   4.800001E-01       4.494363E+02   0.0                       5.000001E-01       6.101824E+02   0.0                                \r\n   5.200000E-01       7.087148E+02   0.0                       5.400000E-01       7.192986E+02   0.0                                \r\n   5.600000E-01       6.753176E+02   0.0                       5.800000E-01       6.064430E+02   0.0                                \r\n   6.000000E-01       4.950999E+02   0.0                       6.199999E-01       3.267331E+02   0.0                                \r\n   6.399999E-01       1.647234E+02   0.0                       6.599999E-01       8.623810E+01   0.0                                \r\n   6.799999E-01       7.224690E+01   0.0                       6.999999E-01       7.527012E+01   0.0                                \r\n   7.199998E-01       1.299501E+02   0.0                       7.399998E-01       2.744482E+02   0.0                                \r\n   7.599998E-01       4.494299E+02   0.0                       7.799998E-01       5.768192E+02   0.0                                \r\n   7.999998E-01       6.551531E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     241\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -9.810938E+01   0.0                       2.000000E-02      -7.552661E+01   0.0                                \r\n   4.000000E-02      -4.672398E+01   0.0                       6.000000E-02      -2.416754E+01   0.0                                \r\n   8.000000E-02      -5.465790E+00   0.0                       9.999999E-02       2.072377E+01   0.0                                \r\n   1.200000E-01       5.142151E+01   0.0                       1.400000E-01       6.788203E+01   0.0                                \r\n   1.600000E-01       6.258472E+01   0.0                       1.800000E-01       4.744329E+01   0.0                                \r\n   2.000000E-01       3.273633E+01   0.0                       2.200000E-01       1.170945E+01   0.0                                \r\n   2.400000E-01      -2.195720E+01   0.0                       2.600000E-01      -5.290188E+01   0.0                                \r\n   2.800000E-01      -6.266748E+01   0.0                       3.000000E-01      -5.794820E+01   0.0                                \r\n   3.200000E-01      -5.330494E+01   0.0                       3.400000E-01      -4.175281E+01   0.0                                \r\n   3.600000E-01      -1.166587E+01   0.0                       3.800000E-01      -6.944825E+00   0.0                                \r\n   4.000000E-01      -1.909205E+02   0.0                       4.200000E-01      -2.895226E+02   0.0                                \r\n   4.400001E-01      -3.744857E+02   0.0                       4.600001E-01      -4.782838E+02   0.0                                \r\n   4.800001E-01      -6.259541E+02   0.0                       5.000001E-01      -7.687606E+02   0.0                                \r\n   5.200000E-01      -8.543777E+02   0.0                       5.400000E-01      -8.772281E+02   0.0                                \r\n   5.600000E-01      -8.412657E+02   0.0                       5.800000E-01      -7.625286E+02   0.0                                \r\n   6.000000E-01      -6.539707E+02   0.0                       6.199999E-01      -5.050922E+02   0.0                                \r\n   6.399999E-01      -3.521902E+02   0.0                       6.599999E-01      -2.710999E+02   0.0                                \r\n   6.799999E-01      -2.565039E+02   0.0                       6.999999E-01      -2.611652E+02   0.0                                \r\n   7.199998E-01      -3.171787E+02   0.0                       7.399998E-01      -4.560079E+02   0.0                                \r\n   7.599998E-01      -6.139131E+02   0.0                       7.799998E-01      -7.321699E+02   0.0                                \r\n   7.999998E-01      -8.186379E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     242\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                9.810938E+01   0.0                       2.000000E-02       7.552661E+01   0.0                                \r\n   4.000000E-02       4.672398E+01   0.0                       6.000000E-02       2.416754E+01   0.0                                \r\n   8.000000E-02       5.465790E+00   0.0                       9.999999E-02      -2.072377E+01   0.0                                \r\n   1.200000E-01      -5.142151E+01   0.0                       1.400000E-01      -6.788203E+01   0.0                                \r\n   1.600000E-01      -6.258472E+01   0.0                       1.800000E-01      -4.744329E+01   0.0                                \r\n   2.000000E-01      -3.273633E+01   0.0                       2.200000E-01      -1.170945E+01   0.0                                \r\n   2.400000E-01       2.195720E+01   0.0                       2.600000E-01       5.290188E+01   0.0                                \r\n   2.800000E-01       6.266748E+01   0.0                       3.000000E-01       5.794820E+01   0.0                                \r\n   3.200000E-01       5.330494E+01   0.0                       3.400000E-01       4.175281E+01   0.0                                \r\n   3.600000E-01       1.166587E+01   0.0                       3.800000E-01       6.944825E+00   0.0                                \r\n   4.000000E-01       1.909205E+02   0.0                       4.200000E-01       2.895226E+02   0.0                                \r\n   4.400001E-01       3.744857E+02   0.0                       4.600001E-01       4.782838E+02   0.0                                \r\n   4.800001E-01       6.259541E+02   0.0                       5.000001E-01       7.687606E+02   0.0                                \r\n   5.200000E-01       8.543777E+02   0.0                       5.400000E-01       8.772281E+02   0.0                                \r\n   5.600000E-01       8.412657E+02   0.0                       5.800000E-01       7.625286E+02   0.0                                \r\n   6.000000E-01       6.539707E+02   0.0                       6.199999E-01       5.050922E+02   0.0                                \r\n   6.399999E-01       3.521902E+02   0.0                       6.599999E-01       2.710999E+02   0.0                                \r\n   6.799999E-01       2.565039E+02   0.0                       6.999999E-01       2.611652E+02   0.0                                \r\n   7.199998E-01       3.171787E+02   0.0                       7.399998E-01       4.560079E+02   0.0                                \r\n   7.599998E-01       6.139131E+02   0.0                       7.799998E-01       7.321699E+02   0.0                                \r\n   7.999998E-01       8.186379E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     251\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -9.411826E+01   0.0                       2.000000E-02      -7.180943E+01   0.0                                \r\n   4.000000E-02      -4.473545E+01   0.0                       6.000000E-02      -2.465882E+01   0.0                                \r\n   8.000000E-02      -3.554114E+00   0.0                       9.999999E-02       2.175000E+01   0.0                                \r\n   1.200000E-01       4.612632E+01   0.0                       1.400000E-01       5.945274E+01   0.0                                \r\n   1.600000E-01       5.822110E+01   0.0                       1.800000E-01       4.658072E+01   0.0                                \r\n   2.000000E-01       2.972051E+01   0.0                       2.200000E-01       7.731482E+00   0.0                                \r\n   2.400000E-01      -2.022561E+01   0.0                       2.600000E-01      -4.562300E+01   0.0                                \r\n   2.800000E-01      -5.707940E+01   0.0                       3.000000E-01      -5.607744E+01   0.0                                \r\n   3.200000E-01      -4.988482E+01   0.0                       3.400000E-01      -3.566704E+01   0.0                                \r\n   3.600000E-01      -9.351819E+00   0.0                       3.800000E-01      -2.118259E+01   0.0                                \r\n   4.000000E-01      -3.840824E+02   0.0                       4.200000E-01      -4.790969E+02   0.0                                \r\n   4.400001E-01      -5.554415E+02   0.0                       4.600001E-01      -6.593590E+02   0.0                                \r\n   4.800001E-01      -7.985696E+02   0.0                       5.000001E-01      -9.203074E+02   0.0                                \r\n   5.200000E-01      -9.942844E+02   0.0                       5.400000E-01      -1.025234E+03   0.0                                \r\n   5.600000E-01      -9.972540E+02   0.0                       5.800000E-01      -9.151876E+02   0.0                                \r\n   6.000000E-01      -8.103821E+02   0.0                       6.199999E-01      -6.822803E+02   0.0                                \r\n   6.399999E-01      -5.470427E+02   0.0                       6.599999E-01      -4.657450E+02   0.0                                \r\n   6.799999E-01      -4.465926E+02   0.0                       6.999999E-01      -4.554824E+02   0.0                                \r\n   7.199998E-01      -5.137747E+02   0.0                       7.399998E-01      -6.388043E+02   0.0                                \r\n   7.599998E-01      -7.754602E+02   0.0                       7.799998E-01      -8.849578E+02   0.0                                \r\n   7.999998E-01      -9.744047E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     252\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                9.411826E+01   0.0                       2.000000E-02       7.180943E+01   0.0                                \r\n   4.000000E-02       4.473545E+01   0.0                       6.000000E-02       2.465882E+01   0.0                                \r\n   8.000000E-02       3.554114E+00   0.0                       9.999999E-02      -2.175000E+01   0.0                                \r\n   1.200000E-01      -4.612632E+01   0.0                       1.400000E-01      -5.945274E+01   0.0                                \r\n   1.600000E-01      -5.822110E+01   0.0                       1.800000E-01      -4.658072E+01   0.0                                \r\n   2.000000E-01      -2.972051E+01   0.0                       2.200000E-01      -7.731482E+00   0.0                                \r\n   2.400000E-01       2.022561E+01   0.0                       2.600000E-01       4.562300E+01   0.0                                \r\n   2.800000E-01       5.707940E+01   0.0                       3.000000E-01       5.607744E+01   0.0                                \r\n   3.200000E-01       4.988482E+01   0.0                       3.400000E-01       3.566704E+01   0.0                                \r\n   3.600000E-01       9.351819E+00   0.0                       3.800000E-01       2.118259E+01   0.0                                \r\n   4.000000E-01       3.840824E+02   0.0                       4.200000E-01       4.790969E+02   0.0                                \r\n   4.400001E-01       5.554415E+02   0.0                       4.600001E-01       6.593590E+02   0.0                                \r\n   4.800001E-01       7.985696E+02   0.0                       5.000001E-01       9.203074E+02   0.0                                \r\n   5.200000E-01       9.942844E+02   0.0                       5.400000E-01       1.025234E+03   0.0                                \r\n   5.600000E-01       9.972540E+02   0.0                       5.800000E-01       9.151876E+02   0.0                                \r\n   6.000000E-01       8.103821E+02   0.0                       6.199999E-01       6.822803E+02   0.0                                \r\n   6.399999E-01       5.470427E+02   0.0                       6.599999E-01       4.657450E+02   0.0                                \r\n   6.799999E-01       4.465926E+02   0.0                       6.999999E-01       4.554824E+02   0.0                                \r\n   7.199998E-01       5.137747E+02   0.0                       7.399998E-01       6.388043E+02   0.0                                \r\n   7.599998E-01       7.754602E+02   0.0                       7.799998E-01       8.849578E+02   0.0                                \r\n   7.999998E-01       9.744047E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       1\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            0.0                       0.0                     2.000000E-02   0.0                       0.0                    \r\n   4.000000E-02   0.0                       0.0                     6.000000E-02   0.0                       0.0                    \r\n   8.000000E-02   0.0                       0.0                     9.999999E-02   0.0                       0.0                    \r\n   1.200000E-01   0.0                       0.0                     1.400000E-01   0.0                       0.0                    \r\n   1.600000E-01   0.0                       0.0                     1.800000E-01   0.0                       0.0                    \r\n   2.000000E-01   0.0                       0.0                     2.200000E-01   0.0                       0.0                    \r\n   2.400000E-01   0.0                       0.0                     2.600000E-01   0.0                       0.0                    \r\n   2.800000E-01   0.0                       0.0                     3.000000E-01   0.0                       0.0                    \r\n   3.200000E-01   0.0                       0.0                     3.400000E-01   0.0                       0.0                    \r\n   3.600000E-01   0.0                       0.0                     3.800000E-01   0.0                       0.0                    \r\n   4.000000E-01   0.0                       0.0                     4.200000E-01   0.0                       0.0                    \r\n   4.400001E-01   0.0                       0.0                     4.600001E-01   0.0                       0.0                    \r\n   4.800001E-01   0.0                       0.0                     5.000001E-01   0.0                       0.0                    \r\n   5.200000E-01   0.0                       0.0                     5.400000E-01   0.0                       0.0                    \r\n   5.600000E-01   0.0                       0.0                     5.800000E-01   0.0                       0.0                    \r\n   6.000000E-01   0.0                       0.0                     6.199999E-01   0.0                       0.0                    \r\n   6.399999E-01   0.0                       0.0                     6.599999E-01   0.0                       0.0                    \r\n   6.799999E-01   0.0                       0.0                     6.999999E-01   0.0                       0.0                    \r\n   7.199998E-01   0.0                       0.0                     7.399998E-01   0.0                       0.0                    \r\n   7.599998E-01   0.0                       0.0                     7.799998E-01   0.0                       0.0                    \r\n   7.999998E-01   0.0                       0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       2\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            0.0                       0.0                     2.000000E-02   0.0                       0.0                    \r\n   4.000000E-02   0.0                       0.0                     6.000000E-02   0.0                       0.0                    \r\n   8.000000E-02   0.0                       0.0                     9.999999E-02   0.0                       0.0                    \r\n   1.200000E-01   0.0                       0.0                     1.400000E-01   0.0                       0.0                    \r\n   1.600000E-01   0.0                       0.0                     1.800000E-01   0.0                       0.0                    \r\n   2.000000E-01   0.0                       0.0                     2.200000E-01   0.0                       0.0                    \r\n   2.400000E-01   0.0                       0.0                     2.600000E-01   0.0                       0.0                    \r\n   2.800000E-01   0.0                       0.0                     3.000000E-01   0.0                       0.0                    \r\n   3.200000E-01   0.0                       0.0                     3.400000E-01   0.0                       0.0                    \r\n   3.600000E-01   0.0                       0.0                     3.800000E-01   0.0                       0.0                    \r\n   4.000000E-01   0.0                       0.0                     4.200000E-01   0.0                       0.0                    \r\n   4.400001E-01   0.0                       0.0                     4.600001E-01   0.0                       0.0                    \r\n   4.800001E-01   0.0                       0.0                     5.000001E-01   0.0                       0.0                    \r\n   5.200000E-01   0.0                       0.0                     5.400000E-01   0.0                       0.0                    \r\n   5.600000E-01   0.0                       0.0                     5.800000E-01   0.0                       0.0                    \r\n   6.000000E-01   0.0                       0.0                     6.199999E-01   0.0                       0.0                    \r\n   6.399999E-01   0.0                       0.0                     6.599999E-01   0.0                       0.0                    \r\n   6.799999E-01   0.0                       0.0                     6.999999E-01   0.0                       0.0                    \r\n   7.199998E-01   0.0                       0.0                     7.399998E-01   0.0                       0.0                    \r\n   7.599998E-01   0.0                       0.0                     7.799998E-01   0.0                       0.0                    \r\n   7.999998E-01   0.0                       0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      11\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.054775E+02              0.0                     2.000000E-02   1.610691E+02              0.0                    \r\n   4.000000E-02   9.595898E+01              0.0                     6.000000E-02   4.324500E+01              0.0                    \r\n   8.000000E-02   1.632208E+01              0.0                     9.999999E-02  -3.408185E+01              0.0                    \r\n   1.200000E-01  -1.155259E+02              0.0                     1.400000E-01  -1.595798E+02              0.0                    \r\n   1.600000E-01  -1.329709E+02              0.0                     1.800000E-01  -9.110986E+01              0.0                    \r\n   2.000000E-01  -7.347095E+01              0.0                     2.200000E-01  -3.690546E+01              0.0                    \r\n   2.400000E-01   4.860889E+01              0.0                     2.600000E-01   1.255298E+02              0.0                    \r\n   2.800000E-01   1.374412E+02              0.0                     3.000000E-01   1.163962E+02              0.0                    \r\n   3.200000E-01   1.123977E+02              0.0                     3.400000E-01   9.988757E+01              0.0                    \r\n   3.600000E-01   3.116229E+01              0.0                     3.800000E-01   7.705322E+00              0.0                    \r\n   4.000000E-01  -5.237407E+02              0.0                     4.200000E-01  -3.019846E+02              0.0                    \r\n   4.400001E-01  -9.330029E+01              0.0                     4.600001E-01   1.117822E+02              0.0                    \r\n   4.800001E-01   3.941885E+02              0.0                     5.000001E-01   7.461445E+02              0.0                    \r\n   5.200000E-01   9.707617E+02              0.0                     5.400000E-01   9.626191E+02              0.0                    \r\n   5.600000E-01   8.588926E+02              0.0                     5.800000E-01   7.491582E+02              0.0                    \r\n   6.000000E-01   5.213770E+02              0.0                     6.199999E-01   1.478115E+02              0.0                    \r\n   6.399999E-01  -1.814639E+02              0.0                     6.599999E-01  -3.305986E+02              0.0                    \r\n   6.799999E-01  -3.644827E+02              0.0                     6.999999E-01  -3.571631E+02              0.0                    \r\n   7.199998E-01  -2.475242E+02              0.0                     7.399998E-01   4.045850E+01              0.0                    \r\n   7.599998E-01   4.178281E+02              0.0                     7.799998E-01   6.925762E+02              0.0                    \r\n   7.999998E-01   8.264961E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      12\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -2.054775E+02              0.0                     2.000000E-02  -1.610691E+02              0.0                    \r\n   4.000000E-02  -9.595898E+01              0.0                     6.000000E-02  -4.324500E+01              0.0                    \r\n   8.000000E-02  -1.632208E+01              0.0                     9.999999E-02   3.408185E+01              0.0                    \r\n   1.200000E-01   1.155259E+02              0.0                     1.400000E-01   1.595798E+02              0.0                    \r\n   1.600000E-01   1.329709E+02              0.0                     1.800000E-01   9.110986E+01              0.0                    \r\n   2.000000E-01   7.347095E+01              0.0                     2.200000E-01   3.690546E+01              0.0                    \r\n   2.400000E-01  -4.860889E+01              0.0                     2.600000E-01  -1.255298E+02              0.0                    \r\n   2.800000E-01  -1.374412E+02              0.0                     3.000000E-01  -1.163962E+02              0.0                    \r\n   3.200000E-01  -1.123977E+02              0.0                     3.400000E-01  -9.988757E+01              0.0                    \r\n   3.600000E-01  -3.116229E+01              0.0                     3.800000E-01  -7.705322E+00              0.0                    \r\n   4.000000E-01   5.237407E+02              0.0                     4.200000E-01   3.019846E+02              0.0                    \r\n   4.400001E-01   9.330029E+01              0.0                     4.600001E-01  -1.117822E+02              0.0                    \r\n   4.800001E-01  -3.941885E+02              0.0                     5.000001E-01  -7.461445E+02              0.0                    \r\n   5.200000E-01  -9.707617E+02              0.0                     5.400000E-01  -9.626191E+02              0.0                    \r\n   5.600000E-01  -8.588926E+02              0.0                     5.800000E-01  -7.491582E+02              0.0                    \r\n   6.000000E-01  -5.213770E+02              0.0                     6.199999E-01  -1.478115E+02              0.0                    \r\n   6.399999E-01   1.814639E+02              0.0                     6.599999E-01   3.305986E+02              0.0                    \r\n   6.799999E-01   3.644827E+02              0.0                     6.999999E-01   3.571631E+02              0.0                    \r\n   7.199998E-01   2.475242E+02              0.0                     7.399998E-01  -4.045850E+01              0.0                    \r\n   7.599998E-01  -4.178281E+02              0.0                     7.799998E-01  -6.925762E+02              0.0                    \r\n   7.999998E-01  -8.264961E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      21\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.031113E+02              0.0                     2.000000E-02   1.583335E+02              0.0                    \r\n   4.000000E-02   9.555566E+01              0.0                     6.000000E-02   4.506274E+01              0.0                    \r\n   8.000000E-02   1.485110E+01              0.0                     9.999999E-02  -3.664038E+01              0.0                    \r\n   1.200000E-01  -1.122456E+02              0.0                     1.400000E-01  -1.528828E+02              0.0                    \r\n   1.600000E-01  -1.312764E+02              0.0                     1.800000E-01  -9.286914E+01              0.0                    \r\n   2.000000E-01  -7.125928E+01              0.0                     2.200000E-01  -3.287500E+01              0.0                    \r\n   2.400000E-01   4.726929E+01              0.0                     2.600000E-01   1.201196E+02              0.0                    \r\n   2.800000E-01   1.344902E+02              0.0                     3.000000E-01   1.167222E+02              0.0                    \r\n   3.200000E-01   1.111860E+02              0.0                     3.400000E-01   9.544727E+01              0.0                    \r\n   3.600000E-01   2.880249E+01              0.0                     3.800000E-01   4.725952E+00              0.0                    \r\n   4.000000E-01  -1.584902E+02              0.0                     4.200000E-01   5.470068E+01              0.0                    \r\n   4.400001E-01   2.503350E+02              0.0                     4.600001E-01   4.559277E+02              0.0                    \r\n   4.800001E-01   7.468438E+02              0.0                     5.000001E-01   1.079305E+03              0.0                    \r\n   5.200000E-01   1.285988E+03              0.0                     5.400000E-01   1.296992E+03              0.0                    \r\n   5.600000E-01   1.203438E+03              0.0                     5.800000E-01   1.075270E+03              0.0                    \r\n   6.000000E-01   8.508555E+02              0.0                     6.199999E-01   5.010508E+02              0.0                    \r\n   6.399999E-01   1.746235E+02              0.0                     6.599999E-01   2.037842E+01              0.0                    \r\n   6.799999E-01  -9.326172E+00              0.0                     6.999999E-01  -3.069336E+00              0.0                    \r\n   7.199998E-01   1.061973E+02              0.0                     7.399998E-01   3.953457E+02              0.0                    \r\n   7.599998E-01   7.552539E+02              0.0                     7.799998E-01   1.016945E+03              0.0                    \r\n   7.999998E-01   1.165785E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      22\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -2.031113E+02              0.0                     2.000000E-02  -1.583335E+02              0.0                    \r\n   4.000000E-02  -9.555566E+01              0.0                     6.000000E-02  -4.506274E+01              0.0                    \r\n   8.000000E-02  -1.485110E+01              0.0                     9.999999E-02   3.664038E+01              0.0                    \r\n   1.200000E-01   1.122456E+02              0.0                     1.400000E-01   1.528828E+02              0.0                    \r\n   1.600000E-01   1.312764E+02              0.0                     1.800000E-01   9.286914E+01              0.0                    \r\n   2.000000E-01   7.125928E+01              0.0                     2.200000E-01   3.287500E+01              0.0                    \r\n   2.400000E-01  -4.726929E+01              0.0                     2.600000E-01  -1.201196E+02              0.0                    \r\n   2.800000E-01  -1.344902E+02              0.0                     3.000000E-01  -1.167222E+02              0.0                    \r\n   3.200000E-01  -1.111860E+02              0.0                     3.400000E-01  -9.544727E+01              0.0                    \r\n   3.600000E-01  -2.880249E+01              0.0                     3.800000E-01  -4.725952E+00              0.0                    \r\n   4.000000E-01   1.584902E+02              0.0                     4.200000E-01  -5.470068E+01              0.0                    \r\n   4.400001E-01  -2.503350E+02              0.0                     4.600001E-01  -4.559277E+02              0.0                    \r\n   4.800001E-01  -7.468438E+02              0.0                     5.000001E-01  -1.079305E+03              0.0                    \r\n   5.200000E-01  -1.285988E+03              0.0                     5.400000E-01  -1.296992E+03              0.0                    \r\n   5.600000E-01  -1.203438E+03              0.0                     5.800000E-01  -1.075270E+03              0.0                    \r\n   6.000000E-01  -8.508555E+02              0.0                     6.199999E-01  -5.010508E+02              0.0                    \r\n   6.399999E-01  -1.746235E+02              0.0                     6.599999E-01  -2.037842E+01              0.0                    \r\n   6.799999E-01   9.326172E+00              0.0                     6.999999E-01   3.069336E+00              0.0                    \r\n   7.199998E-01  -1.061973E+02              0.0                     7.399998E-01  -3.953457E+02              0.0                    \r\n   7.599998E-01  -7.552539E+02              0.0                     7.799998E-01  -1.016945E+03              0.0                    \r\n   7.999998E-01  -1.165785E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      31\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.986133E+02              0.0                     2.000000E-02   1.535039E+02              0.0                    \r\n   4.000000E-02   9.422461E+01              0.0                     6.000000E-02   4.733838E+01              0.0                    \r\n   8.000000E-02   1.226709E+01              0.0                     9.999999E-02  -3.996729E+01              0.0                    \r\n   1.200000E-01  -1.060781E+02              0.0                     1.400000E-01  -1.415029E+02              0.0                    \r\n   1.600000E-01  -1.273535E+02              0.0                     1.800000E-01  -9.439648E+01              0.0                    \r\n   2.000000E-01  -6.741650E+01              0.0                     2.200000E-01  -2.653113E+01              0.0                    \r\n   2.400000E-01   4.502832E+01              0.0                     2.600000E-01   1.106504E+02              0.0                    \r\n   2.800000E-01   1.285303E+02              0.0                     3.000000E-01   1.162871E+02              0.0                    \r\n   3.200000E-01   1.082559E+02              0.0                     3.400000E-01   8.756250E+01              0.0                    \r\n   3.600000E-01   2.512207E+01              0.0                     3.800000E-01   9.440918E+00              0.0                    \r\n   4.000000E-01   2.185078E+02              0.0                     4.200000E-01   4.206697E+02              0.0                    \r\n   4.400001E-01   5.985469E+02              0.0                     4.600001E-01   8.053320E+02              0.0                    \r\n   4.800001E-01   1.100633E+03              0.0                     5.000001E-01   1.401727E+03              0.0                    \r\n   5.200000E-01   1.583945E+03              0.0                     5.400000E-01   1.619180E+03              0.0                    \r\n   5.600000E-01   1.540359E+03              0.0                     5.800000E-01   1.391242E+03              0.0                    \r\n   6.000000E-01   1.171844E+03              0.0                     6.199999E-01   8.573828E+02              0.0                    \r\n   6.399999E-01   5.435176E+02              0.0                     6.599999E-01   3.836106E+02              0.0                    \r\n   6.799999E-01   3.551636E+02              0.0                     6.999999E-01   3.629309E+02              0.0                    \r\n   7.199998E-01   4.736602E+02              0.0                     7.399998E-01   7.564062E+02              0.0                    \r\n   7.599998E-01   1.086961E+03              0.0                     7.799998E-01   1.331164E+03              0.0                    \r\n   7.999998E-01   1.497180E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      32\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.986133E+02              0.0                     2.000000E-02  -1.535039E+02              0.0                    \r\n   4.000000E-02  -9.422461E+01              0.0                     6.000000E-02  -4.733838E+01              0.0                    \r\n   8.000000E-02  -1.226709E+01              0.0                     9.999999E-02   3.996729E+01              0.0                    \r\n   1.200000E-01   1.060781E+02              0.0                     1.400000E-01   1.415029E+02              0.0                    \r\n   1.600000E-01   1.273535E+02              0.0                     1.800000E-01   9.439648E+01              0.0                    \r\n   2.000000E-01   6.741650E+01              0.0                     2.200000E-01   2.653113E+01              0.0                    \r\n   2.400000E-01  -4.502832E+01              0.0                     2.600000E-01  -1.106504E+02              0.0                    \r\n   2.800000E-01  -1.285303E+02              0.0                     3.000000E-01  -1.162871E+02              0.0                    \r\n   3.200000E-01  -1.082559E+02              0.0                     3.400000E-01  -8.756250E+01              0.0                    \r\n   3.600000E-01  -2.512207E+01              0.0                     3.800000E-01  -9.440918E+00              0.0                    \r\n   4.000000E-01  -2.185078E+02              0.0                     4.200000E-01  -4.206697E+02              0.0                    \r\n   4.400001E-01  -5.985469E+02              0.0                     4.600001E-01  -8.053320E+02              0.0                    \r\n   4.800001E-01  -1.100633E+03              0.0                     5.000001E-01  -1.401727E+03              0.0                    \r\n   5.200000E-01  -1.583945E+03              0.0                     5.400000E-01  -1.619180E+03              0.0                    \r\n   5.600000E-01  -1.540359E+03              0.0                     5.800000E-01  -1.391242E+03              0.0                    \r\n   6.000000E-01  -1.171844E+03              0.0                     6.199999E-01  -8.573828E+02              0.0                    \r\n   6.399999E-01  -5.435176E+02              0.0                     6.599999E-01  -3.836106E+02              0.0                    \r\n   6.799999E-01  -3.551636E+02              0.0                     6.999999E-01  -3.629309E+02              0.0                    \r\n   7.199998E-01  -4.736602E+02              0.0                     7.399998E-01  -7.564062E+02              0.0                    \r\n   7.599998E-01  -1.086961E+03              0.0                     7.799998E-01  -1.331164E+03              0.0                    \r\n   7.999998E-01  -1.497180E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      41\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.917109E+02              0.0                     2.000000E-02   1.467812E+02              0.0                    \r\n   4.000000E-02   9.116699E+01              0.0                     6.000000E-02   4.889551E+01              0.0                    \r\n   8.000000E-02   8.764160E+00              0.0                     9.999999E-02  -4.262598E+01              0.0                    \r\n   1.200000E-01  -9.681055E+01              0.0                     1.400000E-01  -1.261426E+02              0.0                    \r\n   1.600000E-01  -1.201992E+02              0.0                     1.800000E-01  -9.390918E+01              0.0                    \r\n   2.000000E-01  -6.202441E+01              0.0                     2.200000E-01  -1.888501E+01              0.0                    \r\n   2.400000E-01   4.193018E+01              0.0                     2.600000E-01   9.751367E+01              0.0                    \r\n   2.800000E-01   1.189688E+02              0.0                     3.000000E-01   1.137500E+02              0.0                    \r\n   3.200000E-01   1.027109E+02              0.0                     3.400000E-01   7.657520E+01              0.0                    \r\n   3.600000E-01   2.068848E+01              0.0                     3.800000E-01   2.966650E+01              0.0                    \r\n   4.000000E-01   6.028926E+02              0.0                     4.200000E-01   7.958223E+02              0.0                    \r\n   4.400001E-01   9.557305E+02              0.0                     4.600001E-01   1.163336E+03              0.0                    \r\n   4.800001E-01   1.449312E+03              0.0                     5.000001E-01   1.710828E+03              0.0                    \r\n   5.200000E-01   1.868562E+03              0.0                     5.400000E-01   1.923750E+03              0.0                    \r\n   5.600000E-01   1.860969E+03              0.0                     5.800000E-01   1.699422E+03              0.0                    \r\n   6.000000E-01   1.486727E+03              0.0                     6.199999E-01   1.212812E+03              0.0                    \r\n   6.399999E-01   9.269180E+02              0.0                     6.599999E-01   7.644976E+02              0.0                    \r\n   6.799999E-01   7.303440E+02              0.0                     6.999999E-01   7.443378E+02              0.0                    \r\n   7.199998E-01   8.588359E+02              0.0                     7.399998E-01   1.120984E+03              0.0                    \r\n   7.599998E-01   1.412547E+03              0.0                     7.799998E-01   1.638891E+03              0.0                    \r\n   7.999998E-01   1.815359E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      42\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.917109E+02              0.0                     2.000000E-02  -1.467812E+02              0.0                    \r\n   4.000000E-02  -9.116699E+01              0.0                     6.000000E-02  -4.889551E+01              0.0                    \r\n   8.000000E-02  -8.764160E+00              0.0                     9.999999E-02   4.262598E+01              0.0                    \r\n   1.200000E-01   9.681055E+01              0.0                     1.400000E-01   1.261426E+02              0.0                    \r\n   1.600000E-01   1.201992E+02              0.0                     1.800000E-01   9.390918E+01              0.0                    \r\n   2.000000E-01   6.202441E+01              0.0                     2.200000E-01   1.888501E+01              0.0                    \r\n   2.400000E-01  -4.193018E+01              0.0                     2.600000E-01  -9.751367E+01              0.0                    \r\n   2.800000E-01  -1.189688E+02              0.0                     3.000000E-01  -1.137500E+02              0.0                    \r\n   3.200000E-01  -1.027109E+02              0.0                     3.400000E-01  -7.657520E+01              0.0                    \r\n   3.600000E-01  -2.068848E+01              0.0                     3.800000E-01  -2.966650E+01              0.0                    \r\n   4.000000E-01  -6.028926E+02              0.0                     4.200000E-01  -7.958223E+02              0.0                    \r\n   4.400001E-01  -9.557305E+02              0.0                     4.600001E-01  -1.163336E+03              0.0                    \r\n   4.800001E-01  -1.449312E+03              0.0                     5.000001E-01  -1.710828E+03              0.0                    \r\n   5.200000E-01  -1.868562E+03              0.0                     5.400000E-01  -1.923750E+03              0.0                    \r\n   5.600000E-01  -1.860969E+03              0.0                     5.800000E-01  -1.699422E+03              0.0                    \r\n   6.000000E-01  -1.486727E+03              0.0                     6.199999E-01  -1.212812E+03              0.0                    \r\n   6.399999E-01  -9.269180E+02              0.0                     6.599999E-01  -7.644976E+02              0.0                    \r\n   6.799999E-01  -7.303440E+02              0.0                     6.999999E-01  -7.443378E+02              0.0                    \r\n   7.199998E-01  -8.588359E+02              0.0                     7.399998E-01  -1.120984E+03              0.0                    \r\n   7.599998E-01  -1.412547E+03              0.0                     7.799998E-01  -1.638891E+03              0.0                    \r\n   7.999998E-01  -1.815359E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      51\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            9.065625E+01              0.0                     2.000000E-02   6.886914E+01              0.0                    \r\n   4.000000E-02   4.224219E+01              0.0                     6.000000E-02   2.406738E+01              0.0                    \r\n   8.000000E-02   2.257935E+00              0.0                     9.999999E-02  -2.146777E+01              0.0                    \r\n   1.200000E-01  -4.158398E+01              0.0                     1.400000E-01  -5.289062E+01              0.0                    \r\n   1.600000E-01  -5.376367E+01              0.0                     1.800000E-01  -4.442773E+01              0.0                    \r\n   2.000000E-01  -2.714746E+01              0.0                     2.200000E-01  -5.271973E+00              0.0                    \r\n   2.400000E-01   1.868164E+01              0.0                     2.600000E-01   3.997266E+01              0.0                    \r\n   2.800000E-01   5.198633E+01              0.0                     3.000000E-01   5.322070E+01              0.0                    \r\n   3.200000E-01   4.627539E+01              0.0                     3.400000E-01   3.100391E+01              0.0                    \r\n   3.600000E-01   7.810547E+00              0.0                     3.800000E-01   3.833887E+01              0.0                    \r\n   4.000000E-01   4.723652E+02              0.0                     4.200000E-01   5.693496E+02              0.0                    \r\n   4.400001E-01   6.404023E+02              0.0                     4.600001E-01   7.421172E+02              0.0                    \r\n   4.800001E-01   8.689219E+02              0.0                     5.000001E-01   9.756719E+02              0.0                    \r\n   5.200000E-01   1.043031E+03              0.0                     5.400000E-01   1.074938E+03              0.0                    \r\n   5.600000E-01   1.051750E+03              0.0                     5.800000E-01   9.734375E+02              0.0                    \r\n   6.000000E-01   8.729688E+02              0.0                     6.199999E-01   7.589375E+02              0.0                    \r\n   6.399999E-01   6.405664E+02              0.0                     6.599999E-01   5.619912E+02              0.0                    \r\n   6.799999E-01   5.385638E+02              0.0                     6.999999E-01   5.510127E+02              0.0                    \r\n   7.199998E-01   6.098867E+02              0.0                     7.399998E-01   7.207031E+02              0.0                    \r\n   7.599998E-01   8.411562E+02              0.0                     7.799998E-01   9.441562E+02              0.0                    \r\n   7.999998E-01   1.030656E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      52\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -9.065625E+01              0.0                     2.000000E-02  -6.886914E+01              0.0                    \r\n   4.000000E-02  -4.224219E+01              0.0                     6.000000E-02  -2.406738E+01              0.0                    \r\n   8.000000E-02  -2.257935E+00              0.0                     9.999999E-02   2.146777E+01              0.0                    \r\n   1.200000E-01   4.158398E+01              0.0                     1.400000E-01   5.289062E+01              0.0                    \r\n   1.600000E-01   5.376367E+01              0.0                     1.800000E-01   4.442773E+01              0.0                    \r\n   2.000000E-01   2.714746E+01              0.0                     2.200000E-01   5.271973E+00              0.0                    \r\n   2.400000E-01  -1.868164E+01              0.0                     2.600000E-01  -3.997266E+01              0.0                    \r\n   2.800000E-01  -5.198633E+01              0.0                     3.000000E-01  -5.322070E+01              0.0                    \r\n   3.200000E-01  -4.627539E+01              0.0                     3.400000E-01  -3.100391E+01              0.0                    \r\n   3.600000E-01  -7.810547E+00              0.0                     3.800000E-01  -3.833887E+01              0.0                    \r\n   4.000000E-01  -4.723652E+02              0.0                     4.200000E-01  -5.693496E+02              0.0                    \r\n   4.400001E-01  -6.404023E+02              0.0                     4.600001E-01  -7.421172E+02              0.0                    \r\n   4.800001E-01  -8.689219E+02              0.0                     5.000001E-01  -9.756719E+02              0.0                    \r\n   5.200000E-01  -1.043031E+03              0.0                     5.400000E-01  -1.074938E+03              0.0                    \r\n   5.600000E-01  -1.051750E+03              0.0                     5.800000E-01  -9.734375E+02              0.0                    \r\n   6.000000E-01  -8.729688E+02              0.0                     6.199999E-01  -7.589375E+02              0.0                    \r\n   6.399999E-01  -6.405664E+02              0.0                     6.599999E-01  -5.619912E+02              0.0                    \r\n   6.799999E-01  -5.385638E+02              0.0                     6.999999E-01  -5.510127E+02              0.0                    \r\n   7.199998E-01  -6.098867E+02              0.0                     7.399998E-01  -7.207031E+02              0.0                    \r\n   7.599998E-01  -8.411562E+02              0.0                     7.799998E-01  -9.441562E+02              0.0                    \r\n   7.999998E-01  -1.030656E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     111\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.407898E+03              0.0                     2.000000E-02   1.227240E+03              0.0                    \r\n   4.000000E-02   9.053790E+02              0.0                     6.000000E-02   4.867442E+02              0.0                    \r\n   8.000000E-02   7.110007E+01              0.0                     9.999999E-02  -4.213697E+02              0.0                    \r\n   1.200000E-01  -9.354958E+02              0.0                     1.400000E-01  -1.225359E+03              0.0                    \r\n   1.600000E-01  -1.172582E+03              0.0                     1.800000E-01  -9.222651E+02              0.0                    \r\n   2.000000E-01  -6.100828E+02              0.0                     2.200000E-01  -1.724133E+02              0.0                    \r\n   2.400000E-01   4.170364E+02              0.0                     2.600000E-01   9.337977E+02              0.0                    \r\n   2.800000E-01   1.152277E+03              0.0                     3.000000E-01   1.128784E+03              0.0                    \r\n   3.200000E-01   1.006016E+03              0.0                     3.400000E-01   7.272544E+02              0.0                    \r\n   3.600000E-01   1.998382E+02              0.0                     3.800000E-01  -3.676327E+02              0.0                    \r\n   4.000000E-01  -1.002140E+03              0.0                     4.200000E-01  -1.531815E+01              0.0                    \r\n   4.400001E-01   1.675539E+03              0.0                     4.600001E-01   3.828446E+03              0.0                    \r\n   4.800001E-01   6.431001E+03              0.0                     5.000001E-01   8.985859E+03              0.0                    \r\n   5.200000E-01   1.067078E+04              0.0                     5.400000E-01   1.109142E+04              0.0                    \r\n   5.600000E-01   1.044542E+04              0.0                     5.800000E-01   9.025653E+03              0.0                    \r\n   6.000000E-01   6.850855E+03              0.0                     6.199999E-01   4.075906E+03              0.0                    \r\n   6.399999E-01   1.485921E+03              0.0                     6.599999E-01  -1.035054E+02              0.0                    \r\n   6.799999E-01  -6.503006E+02              0.0                     6.999999E-01  -3.913857E+02              0.0                    \r\n   7.199998E-01   8.731476E+02              0.0                     7.399998E-01   3.238489E+03              0.0                    \r\n   7.599998E-01   6.046333E+03              0.0                     7.799998E-01   8.432250E+03              0.0                    \r\n   7.999998E-01   1.007821E+04              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     112\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.902689E-08              0.0                     2.000000E-02   4.564908E-08              0.0                    \r\n   4.000000E-02   7.074827E-09              0.0                     6.000000E-02   4.230069E-09              0.0                    \r\n   8.000000E-02  -4.868148E-10              0.0                     9.999999E-02  -3.759963E-09              0.0                    \r\n   1.200000E-01  -5.551346E-09              0.0                     1.400000E-01  -6.603405E-09              0.0                    \r\n   1.600000E-01  -7.613231E-09              0.0                     1.800000E-01  -7.522051E-09              0.0                    \r\n   2.000000E-01  -3.929865E-09              0.0                     2.200000E-01   6.767251E-10              0.0                    \r\n   2.400000E-01   2.636188E-09              0.0                     2.600000E-01   4.332677E-09              0.0                    \r\n   2.800000E-01   7.376111E-09              0.0                     3.000000E-01   8.609011E-09              0.0                    \r\n   3.200000E-01   6.805830E-09              0.0                     3.400000E-01   3.519568E-09              0.0                    \r\n   3.600000E-01   4.790918E-10              0.0                     3.800000E-01   3.213576E-07              0.0                    \r\n   4.000000E-01  -3.580119E-07              0.0                     4.200000E-01  -3.848146E-08              0.0                    \r\n   4.400001E-01  -2.395950E-08              0.0                     4.600001E-01  -4.557746E-09              0.0                    \r\n   4.800001E-01   8.466950E-09              0.0                     5.000001E-01   2.378069E-08              0.0                    \r\n   5.200000E-01   3.415855E-08              0.0                     5.400000E-01   3.678128E-08              0.0                    \r\n   5.600000E-01   3.794791E-08              0.0                     5.800000E-01   2.607698E-08              0.0                    \r\n   6.000000E-01   5.172122E-09              0.0                     6.199999E-01  -6.273639E-09              0.0                    \r\n   6.399999E-01  -1.833929E-08              0.0                     6.599999E-01  -3.542611E-08              0.0                    \r\n   6.799999E-01  -4.022078E-08              0.0                     6.999999E-01  -3.499086E-08              0.0                    \r\n   7.199998E-01  -2.600983E-08              0.0                     7.399998E-01  -1.030779E-08              0.0                    \r\n   7.599998E-01   3.773347E-09              0.0                     7.799998E-01   1.739972E-08              0.0                    \r\n   7.999998E-01   3.545302E-08              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     113\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.407898E+03              0.0                     2.000000E-02  -1.227240E+03              0.0                    \r\n   4.000000E-02  -9.053790E+02              0.0                     6.000000E-02  -4.867442E+02              0.0                    \r\n   8.000000E-02  -7.110007E+01              0.0                     9.999999E-02   4.213697E+02              0.0                    \r\n   1.200000E-01   9.354958E+02              0.0                     1.400000E-01   1.225359E+03              0.0                    \r\n   1.600000E-01   1.172582E+03              0.0                     1.800000E-01   9.222651E+02              0.0                    \r\n   2.000000E-01   6.100828E+02              0.0                     2.200000E-01   1.724133E+02              0.0                    \r\n   2.400000E-01  -4.170364E+02              0.0                     2.600000E-01  -9.337977E+02              0.0                    \r\n   2.800000E-01  -1.152277E+03              0.0                     3.000000E-01  -1.128784E+03              0.0                    \r\n   3.200000E-01  -1.006016E+03              0.0                     3.400000E-01  -7.272544E+02              0.0                    \r\n   3.600000E-01  -1.998382E+02              0.0                     3.800000E-01   3.676327E+02              0.0                    \r\n   4.000000E-01   1.002140E+03              0.0                     4.200000E-01   1.531815E+01              0.0                    \r\n   4.400001E-01  -1.675539E+03              0.0                     4.600001E-01  -3.828446E+03              0.0                    \r\n   4.800001E-01  -6.431001E+03              0.0                     5.000001E-01  -8.985859E+03              0.0                    \r\n   5.200000E-01  -1.067078E+04              0.0                     5.400000E-01  -1.109142E+04              0.0                    \r\n   5.600000E-01  -1.044542E+04              0.0                     5.800000E-01  -9.025653E+03              0.0                    \r\n   6.000000E-01  -6.850855E+03              0.0                     6.199999E-01  -4.075906E+03              0.0                    \r\n   6.399999E-01  -1.485921E+03              0.0                     6.599999E-01   1.035054E+02              0.0                    \r\n   6.799999E-01   6.503006E+02              0.0                     6.999999E-01   3.913857E+02              0.0                    \r\n   7.199998E-01  -8.731476E+02              0.0                     7.399998E-01  -3.238489E+03              0.0                    \r\n   7.599998E-01  -6.046333E+03              0.0                     7.799998E-01  -8.432250E+03              0.0                    \r\n   7.999998E-01  -1.007821E+04              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     121\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.132667E+03              0.0                     2.000000E-02   1.010968E+03              0.0                    \r\n   4.000000E-02   7.771809E+02              0.0                     6.000000E-02   4.300768E+02              0.0                    \r\n   8.000000E-02   4.856179E+01              0.0                     9.999999E-02  -3.773434E+02              0.0                    \r\n   1.200000E-01  -7.796813E+02              0.0                     1.400000E-01  -1.008890E+03              0.0                    \r\n   1.600000E-01  -9.943618E+02              0.0                     1.800000E-01  -8.017725E+02              0.0                    \r\n   2.000000E-01  -5.108844E+02              0.0                     2.200000E-01  -1.209908E+02              0.0                    \r\n   2.400000E-01   3.514554E+02              0.0                     2.600000E-01   7.634774E+02              0.0                    \r\n   2.800000E-01   9.674324E+02              0.0                     3.000000E-01   9.737295E+02              0.0                    \r\n   3.200000E-01   8.554823E+02              0.0                     3.400000E-01   5.916790E+02              0.0                    \r\n   3.600000E-01   1.569754E+02              0.0                     3.800000E-01  -3.807372E+02              0.0                    \r\n   4.000000E-01  -2.937500E+01              0.0                     4.200000E-01   6.566522E+02              0.0                    \r\n   4.400001E-01   2.061546E+03              0.0                     4.600001E-01   3.940939E+03              0.0                    \r\n   4.800001E-01   6.172407E+03              0.0                     5.000001E-01   8.247104E+03              0.0                    \r\n   5.200000E-01   9.622085E+03              0.0                     5.400000E-01   1.006470E+04              0.0                    \r\n   5.600000E-01   9.562741E+03              0.0                     5.800000E-01   8.278444E+03              0.0                    \r\n   6.000000E-01   6.409559E+03              0.0                     6.199999E-01   4.146215E+03              0.0                    \r\n   6.399999E-01   1.996123E+03              0.0                     6.599999E-01   6.027225E+02              0.0                    \r\n   6.799999E-01   1.041123E+02              0.0                     6.999999E-01   3.522328E+02              0.0                    \r\n   7.199998E-01   1.469970E+03              0.0                     7.399998E-01   3.452682E+03              0.0                    \r\n   7.599998E-01   5.747721E+03              0.0                     7.799998E-01   7.759518E+03              0.0                    \r\n   7.999998E-01   9.235593E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     122\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -4.648360E-09              0.0                     2.000000E-02   5.438928E-09              0.0                    \r\n   4.000000E-02   8.435612E-10              0.0                     6.000000E-02   5.042082E-10              0.0                    \r\n   8.000000E-02  -5.798168E-11              0.0                     9.999999E-02  -4.482295E-10              0.0                    \r\n   1.200000E-01  -6.619310E-10              0.0                     1.400000E-01  -7.872245E-10              0.0                    \r\n   1.600000E-01  -9.076819E-10              0.0                     1.800000E-01  -8.968746E-10              0.0                    \r\n   2.000000E-01  -4.685394E-10              0.0                     2.200000E-01   8.056966E-11              0.0                    \r\n   2.400000E-01   3.142406E-10              0.0                     2.600000E-01   5.166645E-10              0.0                    \r\n   2.800000E-01   8.792771E-10              0.0                     3.000000E-01   1.026355E-09              0.0                    \r\n   3.200000E-01   8.115446E-10              0.0                     3.400000E-01   4.196716E-10              0.0                    \r\n   3.600000E-01   5.717093E-11              0.0                     3.800000E-01   3.828276E-08              0.0                    \r\n   4.000000E-01  -4.265053E-08              0.0                     4.200000E-01  -4.584752E-09              0.0                    \r\n   4.400001E-01  -2.853458E-09              0.0                     4.600001E-01  -5.404641E-10              0.0                    \r\n   4.800001E-01   1.012318E-09              0.0                     5.000001E-01   2.839625E-09              0.0                    \r\n   5.200000E-01   4.075989E-09              0.0                     5.400000E-01   4.387427E-09              0.0                    \r\n   5.600000E-01   4.528086E-09              0.0                     5.800000E-01   3.112833E-09              0.0                    \r\n   6.000000E-01   6.203633E-10              0.0                     6.199999E-01  -7.448286E-10              0.0                    \r\n   6.399999E-01  -2.184239E-09              0.0                     6.599999E-01  -4.221047E-09              0.0                    \r\n   6.799999E-01  -4.792032E-09              0.0                     6.999999E-01  -4.169134E-09              0.0                    \r\n   7.199998E-01  -3.098286E-09              0.0                     7.399998E-01  -1.225949E-09              0.0                    \r\n   7.599998E-01   4.534662E-10              0.0                     7.799998E-01   2.077661E-09              0.0                    \r\n   7.999998E-01   4.229676E-09              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     123\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.132667E+03              0.0                     2.000000E-02  -1.010968E+03              0.0                    \r\n   4.000000E-02  -7.771809E+02              0.0                     6.000000E-02  -4.300768E+02              0.0                    \r\n   8.000000E-02  -4.856179E+01              0.0                     9.999999E-02   3.773434E+02              0.0                    \r\n   1.200000E-01   7.796813E+02              0.0                     1.400000E-01   1.008890E+03              0.0                    \r\n   1.600000E-01   9.943618E+02              0.0                     1.800000E-01   8.017725E+02              0.0                    \r\n   2.000000E-01   5.108844E+02              0.0                     2.200000E-01   1.209908E+02              0.0                    \r\n   2.400000E-01  -3.514554E+02              0.0                     2.600000E-01  -7.634774E+02              0.0                    \r\n   2.800000E-01  -9.674324E+02              0.0                     3.000000E-01  -9.737295E+02              0.0                    \r\n   3.200000E-01  -8.554823E+02              0.0                     3.400000E-01  -5.916790E+02              0.0                    \r\n   3.600000E-01  -1.569754E+02              0.0                     3.800000E-01   3.807372E+02              0.0                    \r\n   4.000000E-01   2.937500E+01              0.0                     4.200000E-01  -6.566522E+02              0.0                    \r\n   4.400001E-01  -2.061546E+03              0.0                     4.600001E-01  -3.940939E+03              0.0                    \r\n   4.800001E-01  -6.172407E+03              0.0                     5.000001E-01  -8.247104E+03              0.0                    \r\n   5.200000E-01  -9.622085E+03              0.0                     5.400000E-01  -1.006470E+04              0.0                    \r\n   5.600000E-01  -9.562741E+03              0.0                     5.800000E-01  -8.278444E+03              0.0                    \r\n   6.000000E-01  -6.409559E+03              0.0                     6.199999E-01  -4.146215E+03              0.0                    \r\n   6.399999E-01  -1.996123E+03              0.0                     6.599999E-01  -6.027225E+02              0.0                    \r\n   6.799999E-01  -1.041123E+02              0.0                     6.999999E-01  -3.522328E+02              0.0                    \r\n   7.199998E-01  -1.469970E+03              0.0                     7.399998E-01  -3.452682E+03              0.0                    \r\n   7.599998E-01  -5.747721E+03              0.0                     7.799998E-01  -7.759518E+03              0.0                    \r\n   7.999998E-01  -9.235593E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     131\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            8.589189E+02              0.0                     2.000000E-02   7.965085E+02              0.0                    \r\n   4.000000E-02   6.488712E+02              0.0                     6.000000E-02   3.716557E+02              0.0                    \r\n   8.000000E-02   2.706034E+01              0.0                     9.999999E-02  -3.309411E+02              0.0                    \r\n   1.200000E-01  -6.258888E+02              0.0                     1.400000E-01  -7.971729E+02              0.0                    \r\n   1.600000E-01  -8.167786E+02              0.0                     1.800000E-01  -6.792244E+02              0.0                    \r\n   2.000000E-01  -4.131884E+02              0.0                     2.200000E-01  -7.273090E+01              0.0                    \r\n   2.400000E-01   2.868182E+02              0.0                     2.600000E-01   5.968904E+02              0.0                    \r\n   2.800000E-01   7.841829E+02              0.0                     3.000000E-01   8.178525E+02              0.0                    \r\n   3.200000E-01   7.053286E+02              0.0                     3.400000E-01   4.591141E+02              0.0                    \r\n   3.600000E-01   1.159619E+02              0.0                     3.800000E-01  -3.865291E+02              0.0                    \r\n   4.000000E-01   4.680878E+02              0.0                     4.200000E-01   8.617657E+02              0.0                    \r\n   4.400001E-01   1.992045E+03              0.0                     4.600001E-01   3.597398E+03              0.0                    \r\n   4.800001E-01   5.446721E+03              0.0                     5.000001E-01   7.056057E+03              0.0                    \r\n   5.200000E-01   8.136662E+03              0.0                     5.400000E-01   8.583469E+03              0.0                    \r\n   5.600000E-01   8.217111E+03              0.0                     5.800000E-01   7.086539E+03              0.0                    \r\n   6.000000E-01   5.521020E+03              0.0                     6.199999E-01   3.750055E+03              0.0                    \r\n   6.399999E-01   2.041490E+03              0.0                     6.599999E-01   8.493422E+02              0.0                    \r\n   6.799999E-01   3.934146E+02              0.0                     6.999999E-01   6.329454E+02              0.0                    \r\n   7.199998E-01   1.604851E+03              0.0                     7.399998E-01   3.200136E+03              0.0                    \r\n   7.599998E-01   4.994978E+03              0.0                     7.799998E-01   6.643932E+03              0.0                    \r\n   7.999998E-01   7.935395E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     132\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            5.205029E-08              0.0                     2.000000E-02  -6.087668E-08              0.0                    \r\n   4.000000E-02  -9.432984E-09              0.0                     6.000000E-02  -5.640178E-09              0.0                    \r\n   8.000000E-02   6.492819E-10              0.0                     9.999999E-02   5.013258E-09              0.0                    \r\n   1.200000E-01   7.401644E-09              0.0                     1.400000E-01   8.804292E-09              0.0                    \r\n   1.600000E-01   1.015048E-08              0.0                     1.800000E-01   1.002922E-08              0.0                    \r\n   2.000000E-01   5.239793E-09              0.0                     2.200000E-01  -9.026845E-10              0.0                    \r\n   2.400000E-01  -3.514871E-09              0.0                     2.600000E-01  -5.776356E-09              0.0                    \r\n   2.800000E-01  -9.834498E-09              0.0                     3.000000E-01  -1.147840E-08              0.0                    \r\n   3.200000E-01  -9.074168E-09              0.0                     3.400000E-01  -4.692214E-09              0.0                    \r\n   3.600000E-01  -6.385761E-10              0.0                     3.800000E-01  -4.285734E-07              0.0                    \r\n   4.000000E-01   4.774548E-07              0.0                     4.200000E-01   5.131938E-08              0.0                    \r\n   4.400001E-01   3.195577E-08              0.0                     4.600001E-01   6.088731E-09              0.0                    \r\n   4.800001E-01  -1.127664E-08              0.0                     5.000001E-01  -3.169590E-08              0.0                    \r\n   5.200000E-01  -4.553415E-08              0.0                     5.400000E-01  -4.903124E-08              0.0                    \r\n   5.600000E-01  -5.058652E-08              0.0                     5.800000E-01  -3.475447E-08              0.0                    \r\n   6.000000E-01  -6.879492E-09              0.0                     6.199999E-01   8.375683E-09              0.0                    \r\n   6.399999E-01   2.446123E-08              0.0                     6.599999E-01   4.724583E-08              0.0                    \r\n   6.799999E-01   5.363863E-08              0.0                     6.999999E-01   4.666394E-08              0.0                    \r\n   7.199998E-01   3.468994E-08              0.0                     7.399998E-01   1.375372E-08              0.0                    \r\n   7.599998E-01  -5.022148E-09              0.0                     7.799998E-01  -2.318617E-08              0.0                    \r\n   7.999998E-01  -4.725445E-08              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     133\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -8.589189E+02              0.0                     2.000000E-02  -7.965085E+02              0.0                    \r\n   4.000000E-02  -6.488712E+02              0.0                     6.000000E-02  -3.716557E+02              0.0                    \r\n   8.000000E-02  -2.706034E+01              0.0                     9.999999E-02   3.309411E+02              0.0                    \r\n   1.200000E-01   6.258888E+02              0.0                     1.400000E-01   7.971729E+02              0.0                    \r\n   1.600000E-01   8.167786E+02              0.0                     1.800000E-01   6.792244E+02              0.0                    \r\n   2.000000E-01   4.131884E+02              0.0                     2.200000E-01   7.273090E+01              0.0                    \r\n   2.400000E-01  -2.868182E+02              0.0                     2.600000E-01  -5.968904E+02              0.0                    \r\n   2.800000E-01  -7.841829E+02              0.0                     3.000000E-01  -8.178525E+02              0.0                    \r\n   3.200000E-01  -7.053286E+02              0.0                     3.400000E-01  -4.591141E+02              0.0                    \r\n   3.600000E-01  -1.159619E+02              0.0                     3.800000E-01   3.865291E+02              0.0                    \r\n   4.000000E-01  -4.680878E+02              0.0                     4.200000E-01  -8.617657E+02              0.0                    \r\n   4.400001E-01  -1.992045E+03              0.0                     4.600001E-01  -3.597398E+03              0.0                    \r\n   4.800001E-01  -5.446721E+03              0.0                     5.000001E-01  -7.056057E+03              0.0                    \r\n   5.200000E-01  -8.136662E+03              0.0                     5.400000E-01  -8.583469E+03              0.0                    \r\n   5.600000E-01  -8.217111E+03              0.0                     5.800000E-01  -7.086539E+03              0.0                    \r\n   6.000000E-01  -5.521020E+03              0.0                     6.199999E-01  -3.750055E+03              0.0                    \r\n   6.399999E-01  -2.041490E+03              0.0                     6.599999E-01  -8.493422E+02              0.0                    \r\n   6.799999E-01  -3.934146E+02              0.0                     6.999999E-01  -6.329454E+02              0.0                    \r\n   7.199998E-01  -1.604851E+03              0.0                     7.399998E-01  -3.200136E+03              0.0                    \r\n   7.599998E-01  -4.994978E+03              0.0                     7.799998E-01  -6.643932E+03              0.0                    \r\n   7.999998E-01  -7.935395E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     141\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            5.893142E+02              0.0                     2.000000E-02   5.867500E+02              0.0                    \r\n   4.000000E-02   5.211201E+02              0.0                     6.000000E-02   3.099817E+02              0.0                    \r\n   8.000000E-02   8.178009E+00              0.0                     9.999999E-02  -2.800206E+02              0.0                    \r\n   1.200000E-01  -4.777727E+02              0.0                     1.400000E-01  -5.970312E+02              0.0                    \r\n   1.600000E-01  -6.420403E+02              0.0                     1.800000E-01  -5.535171E+02              0.0                    \r\n   2.000000E-01  -3.192686E+02              0.0                     2.200000E-01  -3.151541E+01              0.0                    \r\n   2.400000E-01   2.244315E+02              0.0                     2.600000E-01   4.397195E+02              0.0                    \r\n   2.800000E-01   6.060237E+02              0.0                     3.000000E-01   6.612166E+02              0.0                    \r\n   3.200000E-01   5.571772E+02              0.0                     3.400000E-01   3.343226E+02              0.0                    \r\n   3.600000E-01   7.903690E+01              0.0                     3.800000E-01  -3.885608E+02              0.0                    \r\n   4.000000E-01   4.709603E+02              0.0                     4.200000E-01   5.868405E+02              0.0                    \r\n   4.400001E-01   1.464384E+03              0.0                     4.600001E-01   2.794034E+03              0.0                    \r\n   4.800001E-01   4.247139E+03              0.0                     5.000001E-01   5.424748E+03              0.0                    \r\n   5.200000E-01   6.241322E+03              0.0                     5.400000E-01   6.659627E+03              0.0                    \r\n   5.600000E-01   6.411342E+03              0.0                     5.800000E-01   5.465881E+03              0.0                    \r\n   6.000000E-01   4.198604E+03              0.0                     6.199999E-01   2.879386E+03              0.0                    \r\n   6.399999E-01   1.606596E+03              0.0                     6.599999E-01   6.248085E+02              0.0                    \r\n   6.799999E-01   2.053686E+02              0.0                     6.999999E-01   4.374716E+02              0.0                    \r\n   7.199998E-01   1.263437E+03              0.0                     7.399998E-01   2.470043E+03              0.0                    \r\n   7.599998E-01   3.794902E+03              0.0                     7.799998E-01   5.102707E+03              0.0                    \r\n   7.999998E-01   6.183916E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     142\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            8.503810E-08              0.0                     2.000000E-02  -9.945930E-08              0.0                    \r\n   4.000000E-02  -1.541199E-08              0.0                     6.000000E-02  -9.215370E-09              0.0                    \r\n   8.000000E-02   1.060743E-09              0.0                     9.999999E-02   8.191070E-09              0.0                    \r\n   1.200000E-01   1.209340E-08              0.0                     1.400000E-01   1.438506E-08              0.0                    \r\n   1.600000E-01   1.658464E-08              0.0                     1.800000E-01   1.638616E-08              0.0                    \r\n   2.000000E-01   8.560922E-09              0.0                     2.200000E-01  -1.474732E-09              0.0                    \r\n   2.400000E-01  -5.742738E-09              0.0                     2.600000E-01  -9.437863E-09              0.0                    \r\n   2.800000E-01  -1.606871E-08              0.0                     3.000000E-01  -1.875440E-08              0.0                    \r\n   3.200000E-01  -1.482586E-08              0.0                     3.400000E-01  -7.666800E-09              0.0                    \r\n   3.600000E-01  -1.043450E-09              0.0                     3.800000E-01  -7.001930E-07              0.0                    \r\n   4.000000E-01   7.800551E-07              0.0                     4.200000E-01   8.384436E-08              0.0                    \r\n   4.400001E-01   5.220879E-08              0.0                     4.600001E-01   9.948514E-09              0.0                    \r\n   4.800001E-01  -1.842783E-08              0.0                     5.000001E-01  -5.178683E-08              0.0                    \r\n   5.200000E-01  -7.439728E-08              0.0                     5.400000E-01  -8.010555E-08              0.0                    \r\n   5.600000E-01  -8.265447E-08              0.0                     5.800000E-01  -5.679018E-08              0.0                    \r\n   6.000000E-01  -1.124473E-08              0.0                     6.199999E-01   1.367966E-08              0.0                    \r\n   6.399999E-01   3.996270E-08              0.0                     6.599999E-01   7.718807E-08              0.0                    \r\n   6.799999E-01   8.763359E-08              0.0                     6.999999E-01   7.623898E-08              0.0                    \r\n   7.199998E-01   5.667408E-08              0.0                     7.399998E-01   2.246865E-08              0.0                    \r\n   7.599998E-01  -8.206647E-09              0.0                     7.799998E-01  -3.789173E-08              0.0                    \r\n   7.999998E-01  -7.721189E-08              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     143\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -5.893142E+02              0.0                     2.000000E-02  -5.867500E+02              0.0                    \r\n   4.000000E-02  -5.211201E+02              0.0                     6.000000E-02  -3.099817E+02              0.0                    \r\n   8.000000E-02  -8.178009E+00              0.0                     9.999999E-02   2.800206E+02              0.0                    \r\n   1.200000E-01   4.777727E+02              0.0                     1.400000E-01   5.970312E+02              0.0                    \r\n   1.600000E-01   6.420403E+02              0.0                     1.800000E-01   5.535171E+02              0.0                    \r\n   2.000000E-01   3.192686E+02              0.0                     2.200000E-01   3.151541E+01              0.0                    \r\n   2.400000E-01  -2.244315E+02              0.0                     2.600000E-01  -4.397195E+02              0.0                    \r\n   2.800000E-01  -6.060237E+02              0.0                     3.000000E-01  -6.612166E+02              0.0                    \r\n   3.200000E-01  -5.571772E+02              0.0                     3.400000E-01  -3.343226E+02              0.0                    \r\n   3.600000E-01  -7.903690E+01              0.0                     3.800000E-01   3.885608E+02              0.0                    \r\n   4.000000E-01  -4.709603E+02              0.0                     4.200000E-01  -5.868405E+02              0.0                    \r\n   4.400001E-01  -1.464384E+03              0.0                     4.600001E-01  -2.794034E+03              0.0                    \r\n   4.800001E-01  -4.247139E+03              0.0                     5.000001E-01  -5.424748E+03              0.0                    \r\n   5.200000E-01  -6.241322E+03              0.0                     5.400000E-01  -6.659627E+03              0.0                    \r\n   5.600000E-01  -6.411342E+03              0.0                     5.800000E-01  -5.465881E+03              0.0                    \r\n   6.000000E-01  -4.198604E+03              0.0                     6.199999E-01  -2.879386E+03              0.0                    \r\n   6.399999E-01  -1.606596E+03              0.0                     6.599999E-01  -6.248085E+02              0.0                    \r\n   6.799999E-01  -2.053686E+02              0.0                     6.999999E-01  -4.374716E+02              0.0                    \r\n   7.199998E-01  -1.263437E+03              0.0                     7.399998E-01  -2.470043E+03              0.0                    \r\n   7.599998E-01  -3.794902E+03              0.0                     7.799998E-01  -5.102707E+03              0.0                    \r\n   7.999998E-01  -6.183916E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     151\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.270635E+02              0.0                     2.000000E-02   3.845569E+02              0.0                    \r\n   4.000000E-02   3.954683E+02              0.0                     6.000000E-02   2.448667E+02              0.0                    \r\n   8.000000E-02  -6.498505E+00              0.0                     9.999999E-02  -2.241088E+02              0.0                    \r\n   1.200000E-01  -3.395581E+02              0.0                     1.400000E-01  -4.147490E+02              0.0                    \r\n   1.600000E-01  -4.737170E+02              0.0                     1.800000E-01  -4.257524E+02              0.0                    \r\n   2.000000E-01  -2.313313E+02              0.0                     2.200000E-01  -2.053833E-01              0.0                    \r\n   2.400000E-01   1.654575E+02              0.0                     2.600000E-01   2.976157E+02              0.0                    \r\n   2.800000E-01   4.375283E+02              0.0                     3.000000E-01   5.053262E+02              0.0                    \r\n   3.200000E-01   4.138105E+02              0.0                     3.400000E-01   2.221592E+02              0.0                    \r\n   3.600000E-01   4.778632E+01              0.0                     3.800000E-01  -4.025378E+02              0.0                    \r\n   4.000000E-01  -3.468189E+01              0.0                     4.200000E-01  -1.800321E+02              0.0                    \r\n   4.400001E-01   4.701899E+02              0.0                     4.600001E-01   1.520975E+03              0.0                    \r\n   4.800001E-01   2.575398E+03              0.0                     5.000001E-01   3.369924E+03              0.0                    \r\n   5.200000E-01   3.957789E+03              0.0                     5.400000E-01   4.312926E+03              0.0                    \r\n   5.600000E-01   4.160668E+03              0.0                     5.800000E-01   3.428881E+03              0.0                    \r\n   6.000000E-01   2.453121E+03              0.0                     6.199999E-01   1.532679E+03              0.0                    \r\n   6.399999E-01   6.720083E+02              0.0                     6.599999E-01  -9.128479E+01              0.0                    \r\n   6.799999E-01  -4.725506E+02              0.0                     6.999999E-01  -2.523972E+02              0.0                    \r\n   7.199998E-01   4.233936E+02              0.0                     7.399998E-01   1.255531E+03              0.0                    \r\n   7.599998E-01   2.156453E+03              0.0                     7.799998E-01   3.147494E+03              0.0                    \r\n   7.999998E-01   3.994723E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     152\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.282795E-07              0.0                     2.000000E-02   1.500400E-07              0.0                    \r\n   4.000000E-02   2.325181E-08              0.0                     6.000000E-02   1.390294E-08              0.0                    \r\n   8.000000E-02  -1.600127E-09              0.0                     9.999999E-02  -1.235755E-08              0.0                    \r\n   1.200000E-01  -1.824533E-08              0.0                     1.400000E-01  -2.170327E-08              0.0                    \r\n   1.600000E-01  -2.502100E-08              0.0                     1.800000E-01  -2.472108E-08              0.0                    \r\n   2.000000E-01  -1.291585E-08              0.0                     2.200000E-01   2.224395E-09              0.0                    \r\n   2.400000E-01   8.664227E-09              0.0                     2.600000E-01   1.423939E-08              0.0                    \r\n   2.800000E-01   2.424261E-08              0.0                     3.000000E-01   2.829393E-08              0.0                    \r\n   3.200000E-01   2.236759E-08              0.0                     3.400000E-01   1.156699E-08              0.0                    \r\n   3.600000E-01   1.574415E-09              0.0                     3.800000E-01   1.056258E-06              0.0                    \r\n   4.000000E-01  -1.176735E-06              0.0                     4.200000E-01  -1.264820E-07              0.0                    \r\n   4.400001E-01  -7.875351E-08              0.0                     4.600001E-01  -1.499689E-08              0.0                    \r\n   4.800001E-01   2.781481E-08              0.0                     5.000001E-01   7.814266E-08              0.0                    \r\n   5.200000E-01   1.122578E-07              0.0                     5.400000E-01   1.208745E-07              0.0                    \r\n   5.600000E-01   1.247139E-07              0.0                     5.800000E-01   8.568738E-08              0.0                    \r\n   6.000000E-01   1.697803E-08              0.0                     6.199999E-01  -2.062732E-08              0.0                    \r\n   6.399999E-01  -6.028075E-08              0.0                     6.599999E-01  -1.164403E-07              0.0                    \r\n   6.799999E-01  -1.321989E-07              0.0                     6.999999E-01  -1.150092E-07              0.0                    \r\n   7.199998E-01  -8.549220E-08              0.0                     7.399998E-01  -3.388544E-08              0.0                    \r\n   7.599998E-01   1.239640E-08              0.0                     7.799998E-01   5.717924E-08              0.0                    \r\n   7.999998E-01   1.164981E-07              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     153\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.270635E+02              0.0                     2.000000E-02  -3.845569E+02              0.0                    \r\n   4.000000E-02  -3.954683E+02              0.0                     6.000000E-02  -2.448667E+02              0.0                    \r\n   8.000000E-02   6.498505E+00              0.0                     9.999999E-02   2.241088E+02              0.0                    \r\n   1.200000E-01   3.395581E+02              0.0                     1.400000E-01   4.147490E+02              0.0                    \r\n   1.600000E-01   4.737170E+02              0.0                     1.800000E-01   4.257524E+02              0.0                    \r\n   2.000000E-01   2.313313E+02              0.0                     2.200000E-01   2.053833E-01              0.0                    \r\n   2.400000E-01  -1.654575E+02              0.0                     2.600000E-01  -2.976157E+02              0.0                    \r\n   2.800000E-01  -4.375283E+02              0.0                     3.000000E-01  -5.053262E+02              0.0                    \r\n   3.200000E-01  -4.138105E+02              0.0                     3.400000E-01  -2.221592E+02              0.0                    \r\n   3.600000E-01  -4.778632E+01              0.0                     3.800000E-01   4.025378E+02              0.0                    \r\n   4.000000E-01   3.468189E+01              0.0                     4.200000E-01   1.800321E+02              0.0                    \r\n   4.400001E-01  -4.701899E+02              0.0                     4.600001E-01  -1.520975E+03              0.0                    \r\n   4.800001E-01  -2.575398E+03              0.0                     5.000001E-01  -3.369924E+03              0.0                    \r\n   5.200000E-01  -3.957789E+03              0.0                     5.400000E-01  -4.312926E+03              0.0                    \r\n   5.600000E-01  -4.160668E+03              0.0                     5.800000E-01  -3.428881E+03              0.0                    \r\n   6.000000E-01  -2.453121E+03              0.0                     6.199999E-01  -1.532679E+03              0.0                    \r\n   6.399999E-01  -6.720083E+02              0.0                     6.599999E-01   9.128479E+01              0.0                    \r\n   6.799999E-01   4.725506E+02              0.0                     6.999999E-01   2.523972E+02              0.0                    \r\n   7.199998E-01  -4.233936E+02              0.0                     7.399998E-01  -1.255531E+03              0.0                    \r\n   7.599998E-01  -2.156453E+03              0.0                     7.799998E-01  -3.147494E+03              0.0                    \r\n   7.999998E-01  -3.994723E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     211\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.436353E+02              0.0                     2.000000E-02  -2.698667E+02              0.0                    \r\n   4.000000E-02  -1.600396E+02              0.0                     6.000000E-02  -7.096704E+01              0.0                    \r\n   8.000000E-02  -2.796304E+01              0.0                     9.999999E-02   5.526119E+01              0.0                    \r\n   1.200000E-01   1.941760E+02              0.0                     1.400000E-01   2.695332E+02              0.0                    \r\n   1.600000E-01   2.223376E+02              0.0                     1.800000E-01   1.506483E+02              0.0                    \r\n   2.000000E-01   1.236187E+02              0.0                     2.200000E-01   6.374614E+01              0.0                    \r\n   2.400000E-01  -8.174438E+01              0.0                     2.600000E-01  -2.120421E+02              0.0                    \r\n   2.800000E-01  -2.304604E+02              0.0                     3.000000E-01  -1.936579E+02              0.0                    \r\n   3.200000E-01  -1.878255E+02              0.0                     3.400000E-01  -1.687653E+02              0.0                    \r\n   3.600000E-01  -5.325583E+01              0.0                     3.800000E-01  -1.678660E+01              0.0                    \r\n   4.000000E-01   1.212613E+03              0.0                     4.200000E-01   8.374705E+02              0.0                    \r\n   4.400001E-01   4.817430E+02              0.0                     4.600001E-01   1.400483E+02              0.0                    \r\n   4.800001E-01  -3.240578E+02              0.0                     5.000001E-01  -9.214178E+02              0.0                    \r\n   5.200000E-01  -1.306562E+03              0.0                     5.400000E-01  -1.281137E+03              0.0                    \r\n   5.600000E-01  -1.102379E+03              0.0                     5.800000E-01  -9.313381E+02              0.0                    \r\n   6.000000E-01  -5.496548E+02              0.0                     6.199999E-01   8.660323E+01              0.0                    \r\n   6.399999E-01   6.353321E+02              0.0                     6.599999E-01   8.806630E+02              0.0                    \r\n   6.799999E-01   9.405850E+02              0.0                     6.999999E-01   9.270916E+02              0.0                    \r\n   7.199998E-01   7.436954E+02              0.0                     7.399998E-01   2.660214E+02              0.0                    \r\n   7.599998E-01  -3.723022E+02              0.0                     7.799998E-01  -8.381608E+02              0.0                    \r\n   7.999998E-01  -1.051839E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     212\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.436353E+02              0.0                     2.000000E-02   2.698667E+02              0.0                    \r\n   4.000000E-02   1.600396E+02              0.0                     6.000000E-02   7.096704E+01              0.0                    \r\n   8.000000E-02   2.796304E+01              0.0                     9.999999E-02  -5.526119E+01              0.0                    \r\n   1.200000E-01  -1.941760E+02              0.0                     1.400000E-01  -2.695332E+02              0.0                    \r\n   1.600000E-01  -2.223376E+02              0.0                     1.800000E-01  -1.506483E+02              0.0                    \r\n   2.000000E-01  -1.236187E+02              0.0                     2.200000E-01  -6.374614E+01              0.0                    \r\n   2.400000E-01   8.174438E+01              0.0                     2.600000E-01   2.120421E+02              0.0                    \r\n   2.800000E-01   2.304604E+02              0.0                     3.000000E-01   1.936579E+02              0.0                    \r\n   3.200000E-01   1.878255E+02              0.0                     3.400000E-01   1.687653E+02              0.0                    \r\n   3.600000E-01   5.325583E+01              0.0                     3.800000E-01   1.678660E+01              0.0                    \r\n   4.000000E-01  -1.212613E+03              0.0                     4.200000E-01  -8.374705E+02              0.0                    \r\n   4.400001E-01  -4.817430E+02              0.0                     4.600001E-01  -1.400483E+02              0.0                    \r\n   4.800001E-01   3.240578E+02              0.0                     5.000001E-01   9.214178E+02              0.0                    \r\n   5.200000E-01   1.306562E+03              0.0                     5.400000E-01   1.281137E+03              0.0                    \r\n   5.600000E-01   1.102379E+03              0.0                     5.800000E-01   9.313381E+02              0.0                    \r\n   6.000000E-01   5.496548E+02              0.0                     6.199999E-01  -8.660323E+01              0.0                    \r\n   6.399999E-01  -6.353321E+02              0.0                     6.599999E-01  -8.806630E+02              0.0                    \r\n   6.799999E-01  -9.405850E+02              0.0                     6.999999E-01  -9.270916E+02              0.0                    \r\n   7.199998E-01  -7.436954E+02              0.0                     7.399998E-01  -2.660214E+02              0.0                    \r\n   7.599998E-01   3.723022E+02              0.0                     7.799998E-01   8.381608E+02              0.0                    \r\n   7.999998E-01   1.051839E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     221\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.415045E+02              0.0                     2.000000E-02  -2.672990E+02              0.0                    \r\n   4.000000E-02  -1.598953E+02              0.0                     6.000000E-02  -7.303781E+01              0.0                    \r\n   8.000000E-02  -2.656824E+01              0.0                     9.999999E-02   5.812775E+01              0.0                    \r\n   1.200000E-01   1.912244E+02              0.0                     1.400000E-01   2.630365E+02              0.0                    \r\n   1.600000E-01   2.210844E+02              0.0                     1.800000E-01   1.529161E+02              0.0                    \r\n   2.000000E-01   1.215061E+02              0.0                     2.200000E-01   5.963672E+01              0.0                    \r\n   2.400000E-01  -8.042645E+01              0.0                     2.600000E-01  -2.068938E+02              0.0                    \r\n   2.800000E-01  -2.279661E+02              0.0                     3.000000E-01  -1.943456E+02              0.0                    \r\n   3.200000E-01  -1.869742E+02              0.0                     3.400000E-01  -1.645969E+02              0.0                    \r\n   3.600000E-01  -5.083914E+01              0.0                     3.800000E-01  -9.456635E+00              0.0                    \r\n   4.000000E-01   6.172422E+02              0.0                     4.200000E-01   2.523180E+02              0.0                    \r\n   4.400001E-01  -8.893604E+01              0.0                     4.600001E-01  -4.309668E+02              0.0                    \r\n   4.800001E-01  -9.073154E+02              0.0                     5.000001E-01  -1.485006E+03              0.0                    \r\n   5.200000E-01  -1.850398E+03              0.0                     5.400000E-01  -1.846822E+03              0.0                    \r\n   5.600000E-01  -1.678866E+03              0.0                     5.800000E-01  -1.485917E+03              0.0                    \r\n   6.000000E-01  -1.107865E+03              0.0                     6.199999E-01  -4.965803E+02              0.0                    \r\n   6.399999E-01   5.241266E+01              0.0                     6.599999E-01   3.037921E+02              0.0                    \r\n   6.799999E-01   3.573984E+02              0.0                     6.999999E-01   3.462645E+02              0.0                    \r\n   7.199998E-01   1.640178E+02              0.0                     7.399998E-01  -3.180240E+02              0.0                    \r\n   7.599998E-01  -9.392578E+02              0.0                     7.799998E-01  -1.390627E+03              0.0                    \r\n   7.999998E-01  -1.621936E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     222\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.415045E+02              0.0                     2.000000E-02   2.672990E+02              0.0                    \r\n   4.000000E-02   1.598953E+02              0.0                     6.000000E-02   7.303781E+01              0.0                    \r\n   8.000000E-02   2.656824E+01              0.0                     9.999999E-02  -5.812775E+01              0.0                    \r\n   1.200000E-01  -1.912244E+02              0.0                     1.400000E-01  -2.630365E+02              0.0                    \r\n   1.600000E-01  -2.210844E+02              0.0                     1.800000E-01  -1.529161E+02              0.0                    \r\n   2.000000E-01  -1.215061E+02              0.0                     2.200000E-01  -5.963672E+01              0.0                    \r\n   2.400000E-01   8.042645E+01              0.0                     2.600000E-01   2.068938E+02              0.0                    \r\n   2.800000E-01   2.279661E+02              0.0                     3.000000E-01   1.943456E+02              0.0                    \r\n   3.200000E-01   1.869742E+02              0.0                     3.400000E-01   1.645969E+02              0.0                    \r\n   3.600000E-01   5.083914E+01              0.0                     3.800000E-01   9.456635E+00              0.0                    \r\n   4.000000E-01  -6.172422E+02              0.0                     4.200000E-01  -2.523180E+02              0.0                    \r\n   4.400001E-01   8.893604E+01              0.0                     4.600001E-01   4.309668E+02              0.0                    \r\n   4.800001E-01   9.073154E+02              0.0                     5.000001E-01   1.485006E+03              0.0                    \r\n   5.200000E-01   1.850398E+03              0.0                     5.400000E-01   1.846822E+03              0.0                    \r\n   5.600000E-01   1.678866E+03              0.0                     5.800000E-01   1.485917E+03              0.0                    \r\n   6.000000E-01   1.107865E+03              0.0                     6.199999E-01   4.965803E+02              0.0                    \r\n   6.399999E-01  -5.241266E+01              0.0                     6.599999E-01  -3.037921E+02              0.0                    \r\n   6.799999E-01  -3.573984E+02              0.0                     6.999999E-01  -3.462645E+02              0.0                    \r\n   7.199998E-01  -1.640178E+02              0.0                     7.399998E-01   3.180240E+02              0.0                    \r\n   7.599998E-01   9.392578E+02              0.0                     7.799998E-01   1.390627E+03              0.0                    \r\n   7.999998E-01   1.621936E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     231\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.361897E+02              0.0                     2.000000E-02  -2.612712E+02              0.0                    \r\n   4.000000E-02  -1.588312E+02              0.0                     6.000000E-02  -7.675818E+01              0.0                    \r\n   8.000000E-02  -2.331821E+01              0.0                     9.999999E-02   6.339233E+01              0.0                    \r\n   1.200000E-01   1.838745E+02              0.0                     1.400000E-01   2.484348E+02              0.0                    \r\n   1.600000E-01   2.170669E+02              0.0                     1.800000E-01   1.562939E+02              0.0                    \r\n   2.000000E-01   1.166647E+02              0.0                     2.200000E-01   5.100354E+01              0.0                    \r\n   2.400000E-01  -7.753320E+01              0.0                     2.600000E-01  -1.949966E+02              0.0                    \r\n   2.800000E-01  -2.212188E+02              0.0                     3.000000E-01  -1.947739E+02              0.0                    \r\n   3.200000E-01  -1.840688E+02              0.0                     3.400000E-01  -1.547794E+02              0.0                    \r\n   3.600000E-01  -4.580151E+01              0.0                     3.800000E-01  -6.857910E+00              0.0                    \r\n   4.000000E-01  -1.063232E+00              0.0                     4.200000E-01  -3.488460E+02              0.0                    \r\n   4.400001E-01  -6.633076E+02              0.0                     4.600001E-01  -1.006735E+03              0.0                    \r\n   4.800001E-01  -1.498121E+03              0.0                     5.000001E-01  -2.033941E+03              0.0                    \r\n   5.200000E-01  -2.362383E+03              0.0                     5.400000E-01  -2.397662E+03              0.0                    \r\n   5.600000E-01  -2.251059E+03              0.0                     5.800000E-01  -2.021477E+03              0.0                    \r\n   6.000000E-01  -1.650333E+03              0.0                     6.199999E-01  -1.089110E+03              0.0                    \r\n   6.399999E-01  -5.490779E+02              0.0                     6.599999E-01  -2.874603E+02              0.0                    \r\n   6.799999E-01  -2.408230E+02              0.0                     6.999999E-01  -2.509004E+02              0.0                    \r\n   7.199998E-01  -4.331671E+02              0.0                     7.399998E-01  -9.148271E+02              0.0                    \r\n   7.599998E-01  -1.498100E+03              0.0                     7.799998E-01  -1.922730E+03              0.0                    \r\n   7.999998E-01  -2.183844E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     232\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.361897E+02              0.0                     2.000000E-02   2.612712E+02              0.0                    \r\n   4.000000E-02   1.588312E+02              0.0                     6.000000E-02   7.675818E+01              0.0                    \r\n   8.000000E-02   2.331821E+01              0.0                     9.999999E-02  -6.339233E+01              0.0                    \r\n   1.200000E-01  -1.838745E+02              0.0                     1.400000E-01  -2.484348E+02              0.0                    \r\n   1.600000E-01  -2.170669E+02              0.0                     1.800000E-01  -1.562939E+02              0.0                    \r\n   2.000000E-01  -1.166647E+02              0.0                     2.200000E-01  -5.100354E+01              0.0                    \r\n   2.400000E-01   7.753320E+01              0.0                     2.600000E-01   1.949966E+02              0.0                    \r\n   2.800000E-01   2.212188E+02              0.0                     3.000000E-01   1.947739E+02              0.0                    \r\n   3.200000E-01   1.840688E+02              0.0                     3.400000E-01   1.547794E+02              0.0                    \r\n   3.600000E-01   4.580151E+01              0.0                     3.800000E-01   6.857910E+00              0.0                    \r\n   4.000000E-01   1.063232E+00              0.0                     4.200000E-01   3.488460E+02              0.0                    \r\n   4.400001E-01   6.633076E+02              0.0                     4.600001E-01   1.006735E+03              0.0                    \r\n   4.800001E-01   1.498121E+03              0.0                     5.000001E-01   2.033941E+03              0.0                    \r\n   5.200000E-01   2.362383E+03              0.0                     5.400000E-01   2.397662E+03              0.0                    \r\n   5.600000E-01   2.251059E+03              0.0                     5.800000E-01   2.021477E+03              0.0                    \r\n   6.000000E-01   1.650333E+03              0.0                     6.199999E-01   1.089110E+03              0.0                    \r\n   6.399999E-01   5.490779E+02              0.0                     6.599999E-01   2.874603E+02              0.0                    \r\n   6.799999E-01   2.408230E+02              0.0                     6.999999E-01   2.509004E+02              0.0                    \r\n   7.199998E-01   4.331671E+02              0.0                     7.399998E-01   9.148271E+02              0.0                    \r\n   7.599998E-01   1.498100E+03              0.0                     7.799998E-01   1.922730E+03              0.0                    \r\n   7.999998E-01   2.183844E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     241\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.270312E+02              0.0                     2.000000E-02  -2.517554E+02              0.0                    \r\n   4.000000E-02  -1.557466E+02              0.0                     6.000000E-02  -8.055847E+01              0.0                    \r\n   8.000000E-02  -1.821930E+01              0.0                     9.999999E-02   6.907922E+01              0.0                    \r\n   1.200000E-01   1.714050E+02              0.0                     1.400000E-01   2.262734E+02              0.0                    \r\n   1.600000E-01   2.086157E+02              0.0                     1.800000E-01   1.581443E+02              0.0                    \r\n   2.000000E-01   1.091211E+02              0.0                     2.200000E-01   3.903149E+01              0.0                    \r\n   2.400000E-01  -7.319067E+01              0.0                     2.600000E-01  -1.763396E+02              0.0                    \r\n   2.800000E-01  -2.088916E+02              0.0                     3.000000E-01  -1.931606E+02              0.0                    \r\n   3.200000E-01  -1.776831E+02              0.0                     3.400000E-01  -1.391760E+02              0.0                    \r\n   3.600000E-01  -3.888623E+01              0.0                     3.800000E-01  -2.314941E+01              0.0                    \r\n   4.000000E-01  -6.364016E+02              0.0                     4.200000E-01  -9.650754E+02              0.0                    \r\n   4.400001E-01  -1.248286E+03              0.0                     4.600001E-01  -1.594279E+03              0.0                    \r\n   4.800001E-01  -2.086514E+03              0.0                     5.000001E-01  -2.562535E+03              0.0                    \r\n   5.200000E-01  -2.847926E+03              0.0                     5.400000E-01  -2.924094E+03              0.0                    \r\n   5.600000E-01  -2.804219E+03              0.0                     5.800000E-01  -2.541762E+03              0.0                    \r\n   6.000000E-01  -2.179902E+03              0.0                     6.199999E-01  -1.683641E+03              0.0                    \r\n   6.399999E-01  -1.173967E+03              0.0                     6.599999E-01  -9.036664E+02              0.0                    \r\n   6.799999E-01  -8.550131E+02              0.0                     6.999999E-01  -8.705505E+02              0.0                    \r\n   7.199998E-01  -1.057262E+03              0.0                     7.399998E-01  -1.520026E+03              0.0                    \r\n   7.599998E-01  -2.046377E+03              0.0                     7.799998E-01  -2.440566E+03              0.0                    \r\n   7.999998E-01  -2.728793E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     242\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.270312E+02              0.0                     2.000000E-02   2.517554E+02              0.0                    \r\n   4.000000E-02   1.557466E+02              0.0                     6.000000E-02   8.055847E+01              0.0                    \r\n   8.000000E-02   1.821930E+01              0.0                     9.999999E-02  -6.907922E+01              0.0                    \r\n   1.200000E-01  -1.714050E+02              0.0                     1.400000E-01  -2.262734E+02              0.0                    \r\n   1.600000E-01  -2.086157E+02              0.0                     1.800000E-01  -1.581443E+02              0.0                    \r\n   2.000000E-01  -1.091211E+02              0.0                     2.200000E-01  -3.903149E+01              0.0                    \r\n   2.400000E-01   7.319067E+01              0.0                     2.600000E-01   1.763396E+02              0.0                    \r\n   2.800000E-01   2.088916E+02              0.0                     3.000000E-01   1.931606E+02              0.0                    \r\n   3.200000E-01   1.776831E+02              0.0                     3.400000E-01   1.391760E+02              0.0                    \r\n   3.600000E-01   3.888623E+01              0.0                     3.800000E-01   2.314941E+01              0.0                    \r\n   4.000000E-01   6.364016E+02              0.0                     4.200000E-01   9.650754E+02              0.0                    \r\n   4.400001E-01   1.248286E+03              0.0                     4.600001E-01   1.594279E+03              0.0                    \r\n   4.800001E-01   2.086514E+03              0.0                     5.000001E-01   2.562535E+03              0.0                    \r\n   5.200000E-01   2.847926E+03              0.0                     5.400000E-01   2.924094E+03              0.0                    \r\n   5.600000E-01   2.804219E+03              0.0                     5.800000E-01   2.541762E+03              0.0                    \r\n   6.000000E-01   2.179902E+03              0.0                     6.199999E-01   1.683641E+03              0.0                    \r\n   6.399999E-01   1.173967E+03              0.0                     6.599999E-01   9.036664E+02              0.0                    \r\n   6.799999E-01   8.550131E+02              0.0                     6.999999E-01   8.705505E+02              0.0                    \r\n   7.199998E-01   1.057262E+03              0.0                     7.399998E-01   1.520026E+03              0.0                    \r\n   7.599998E-01   2.046377E+03              0.0                     7.799998E-01   2.440566E+03              0.0                    \r\n   7.999998E-01   2.728793E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     251\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.137275E+02              0.0                     2.000000E-02  -2.393647E+02              0.0                    \r\n   4.000000E-02  -1.491182E+02              0.0                     6.000000E-02  -8.219604E+01              0.0                    \r\n   8.000000E-02  -1.184705E+01              0.0                     9.999999E-02   7.250000E+01              0.0                    \r\n   1.200000E-01   1.537544E+02              0.0                     1.400000E-01   1.981758E+02              0.0                    \r\n   1.600000E-01   1.940703E+02              0.0                     1.800000E-01   1.552690E+02              0.0                    \r\n   2.000000E-01   9.906836E+01              0.0                     2.200000E-01   2.577161E+01              0.0                    \r\n   2.400000E-01  -6.741870E+01              0.0                     2.600000E-01  -1.520767E+02              0.0                    \r\n   2.800000E-01  -1.902646E+02              0.0                     3.000000E-01  -1.869248E+02              0.0                    \r\n   3.200000E-01  -1.662827E+02              0.0                     3.400000E-01  -1.188901E+02              0.0                    \r\n   3.600000E-01  -3.117273E+01              0.0                     3.800000E-01  -7.060864E+01              0.0                    \r\n   4.000000E-01  -1.280275E+03              0.0                     4.200000E-01  -1.596990E+03              0.0                    \r\n   4.400001E-01  -1.851472E+03              0.0                     4.600001E-01  -2.197863E+03              0.0                    \r\n   4.800001E-01  -2.661898E+03              0.0                     5.000001E-01  -3.067691E+03              0.0                    \r\n   5.200000E-01  -3.314281E+03              0.0                     5.400000E-01  -3.417445E+03              0.0                    \r\n   5.600000E-01  -3.324180E+03              0.0                     5.800000E-01  -3.050625E+03              0.0                    \r\n   6.000000E-01  -2.701273E+03              0.0                     6.199999E-01  -2.274268E+03              0.0                    \r\n   6.399999E-01  -1.823476E+03              0.0                     6.599999E-01  -1.552483E+03              0.0                    \r\n   6.799999E-01  -1.488642E+03              0.0                     6.999999E-01  -1.518275E+03              0.0                    \r\n   7.199998E-01  -1.712582E+03              0.0                     7.399998E-01  -2.129348E+03              0.0                    \r\n   7.599998E-01  -2.584867E+03              0.0                     7.799998E-01  -2.949859E+03              0.0                    \r\n   7.999998E-01  -3.248016E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     252\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.137275E+02              0.0                     2.000000E-02   2.393647E+02              0.0                    \r\n   4.000000E-02   1.491182E+02              0.0                     6.000000E-02   8.219604E+01              0.0                    \r\n   8.000000E-02   1.184705E+01              0.0                     9.999999E-02  -7.250000E+01              0.0                    \r\n   1.200000E-01  -1.537544E+02              0.0                     1.400000E-01  -1.981758E+02              0.0                    \r\n   1.600000E-01  -1.940703E+02              0.0                     1.800000E-01  -1.552690E+02              0.0                    \r\n   2.000000E-01  -9.906836E+01              0.0                     2.200000E-01  -2.577161E+01              0.0                    \r\n   2.400000E-01   6.741870E+01              0.0                     2.600000E-01   1.520767E+02              0.0                    \r\n   2.800000E-01   1.902646E+02              0.0                     3.000000E-01   1.869248E+02              0.0                    \r\n   3.200000E-01   1.662827E+02              0.0                     3.400000E-01   1.188901E+02              0.0                    \r\n   3.600000E-01   3.117273E+01              0.0                     3.800000E-01   7.060864E+01              0.0                    \r\n   4.000000E-01   1.280275E+03              0.0                     4.200000E-01   1.596990E+03              0.0                    \r\n   4.400001E-01   1.851472E+03              0.0                     4.600001E-01   2.197863E+03              0.0                    \r\n   4.800001E-01   2.661898E+03              0.0                     5.000001E-01   3.067691E+03              0.0                    \r\n   5.200000E-01   3.314281E+03              0.0                     5.400000E-01   3.417445E+03              0.0                    \r\n   5.600000E-01   3.324180E+03              0.0                     5.800000E-01   3.050625E+03              0.0                    \r\n   6.000000E-01   2.701273E+03              0.0                     6.199999E-01   2.274268E+03              0.0                    \r\n   6.399999E-01   1.823476E+03              0.0                     6.599999E-01   1.552483E+03              0.0                    \r\n   6.799999E-01   1.488642E+03              0.0                     6.999999E-01   1.518275E+03              0.0                    \r\n   7.199998E-01   1.712582E+03              0.0                     7.399998E-01   2.129348E+03              0.0                    \r\n   7.599998E-01   2.584867E+03              0.0                     7.799998E-01   2.949859E+03              0.0                    \r\n   7.999998E-01   3.248016E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                                                                                   \r\n0     RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                                                                         \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3  4     3                                 \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3  4     3                                 \r\n       5  MCOMB      C     0    0    3    0    6    3  3     3  3  3  3  3  3  3  3  4     3              3  3  3            \r\n       6  RTRUSS     M     0    0    5    0    0    3  3     3  3  3  3  3           4     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   386048 WORDS.\r\n                      OR =      377 BLOCKS.\r\n                      OR =       77 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      111\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:28:16\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d02036a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ NASTRAN FILES=INP1                                                            \r\n     ID    D02036A,NASTRAN                                                           \r\n     APP   DISP,SUBS                                                                 \r\n     SOL   9,0                                                                       \r\n     TIME  40                                                                        \r\n     DIAG  14,23                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SUBSTRUCTURE PHASE3                                                             \r\n     PASSWORD = MDLSYN                                                               \r\n       SOF(1) = FT19,500 $ DEC VAX                                                   \r\n     BRECOVER BBASIC                                                                 \r\n     SOFPRINT TOC                                                                    \r\n       ENDSUBS\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                            N A S T R A N  S U B S T R U C T U R E  D E C K  E C H O                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ALTER DECK ECHO\r\n        1    ALTER         88\r\n        2    PARAM     //*ADD*/DRY/1  /0 $                                           \r\n        3    LABEL     LBSBEG $                                                      \r\n        4    ALTER         93,137\r\n        5    PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n        6    SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/   \r\n        7              LUSET/NSKIP $                                                 \r\n        8    SSG2      USET,GM,  ,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n        9    RCOVR3    ,PG,PS,  ,  /UDVT,QAS,PPT,PST,   ,   ,TOL /9   /*BBASIC  */   \r\n       10              NOUE $                                                        \r\n       11    ALTER        139\r\n       12    UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n       13    ADD       QP ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n       14    EQUIV     QGT,QP /ALWAYS $                                              \r\n       15    EQUIV     CASECC,CASEXX/ALWAYS $                                        \r\n       16    ALTER        152,154\r\n       17    SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n       18              *    */*    */*    * $                                        \r\n       19    LABEL     LBSEND $                                                      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                          \r\n                  3      LABEL    = RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                \r\n                  4      MAXLINES = 100000                                                               \r\n                  5      IC    = 522                                                                     \r\n                  6      TSTEP = 40                                                                      \r\n                  7      LOAD  = 980                                                                     \r\n                  8      DISP  = ALL                                                                     \r\n                  9      ELFO  = ALL                                                                     \r\n                 10      STRE  = ALL                                                                     \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    52, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CROD    1       1       1       2                                               \r\n                    2-        CROD    2       1       2       3                                               \r\n                    3-        CROD    11      1       11      12                                              \r\n                    4-        CROD    12      1       12      13                                              \r\n                    5-        CROD    21      1       21      22                                              \r\n                    6-        CROD    22      1       22      23                                              \r\n                    7-        CROD    31      1       31      32                                              \r\n                    8-        CROD    32      1       32      33                                              \r\n                    9-        CROD    41      1       41      42                                              \r\n                   10-        CROD    42      1       42      43                                              \r\n                   11-        CROD    111     1       1       11                                              \r\n                   12-        CROD    112     1       2       12                                              \r\n                   13-        CROD    113     1       3       13                                              \r\n                   14-        CROD    121     1       11      21                                              \r\n                   15-        CROD    122     1       12      22                                              \r\n                   16-        CROD    123     1       13      23                                              \r\n                   17-        CROD    131     1       21      31                                              \r\n                   18-        CROD    132     1       22      32                                              \r\n                   19-        CROD    133     1       23      33                                              \r\n                   20-        CROD    141     1       31      41                                              \r\n                   21-        CROD    142     1       32      42                                              \r\n                   22-        CROD    143     1       33      43                                              \r\n                   23-        CROD    211     1       2       11                                              \r\n                   24-        CROD    212     1       2       13                                              \r\n                   25-        CROD    221     1       12      21                                              \r\n                   26-        CROD    222     1       12      23                                              \r\n                   27-        CROD    231     1       22      31                                              \r\n                   28-        CROD    232     1       22      33                                              \r\n                   29-        CROD    241     1       32      41                                              \r\n                   30-        CROD    242     1       32      43                                              \r\n                   31-        GRAV    980             980.0   .0      -1.0    .0                              \r\n                   32-        GRDSET                                                  3456                    \r\n                   33-        GRID    1               30.0    0.0     0.0                                     \r\n                   34-        GRID    2               0.0     0.0     0.0                                     \r\n                   35-        GRID    3               -30.0   0.0     0.0                                     \r\n                   36-        GRID    11              30.0    40.0    0.0                                     \r\n                   37-        GRID    12              0.0     40.0    0.0                                     \r\n                   38-        GRID    13              -30.0   40.0    0.0                                     \r\n                   39-        GRID    21              30.0    80.0    0.0                                     \r\n                   40-        GRID    22              0.0     80.0    0.0                                     \r\n                   41-        GRID    23              -30.0   80.0    0.0                                     \r\n                   42-        GRID    31              30.0    120.0   0.0                                     \r\n                   43-        GRID    32              0.0     120.0   0.0                                     \r\n                   44-        GRID    33              -30.0   120.0   0.0                                     \r\n                   45-        GRID    41              30.0    160.0   0.0                                     \r\n                   46-        GRID    42              0.0     160.0   0.0                                     \r\n                   47-        GRID    43              -30.0   160.0   0.0                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n\r\n      RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        MAT1    1       10.0+6          .3      2.5-3                                   \r\n                   49-        PARAM   GRDPNT  0                                                               \r\n                   50-        PROD    1       1       .3                                                      \r\n                   51-        TIC     522     2       2       .1                                              \r\n                   52-        TSTEP   40      40      2.0-2   1                                               \r\n                              ENDDATA\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $     \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $                       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1// $                                                     \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS                                                      \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,                                                  \r\n                   K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $           \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n\r\n      RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR3,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1  $                                                        \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $                   \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $                   \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $               \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n\r\n      RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      88  PARAM     //*ADD*/DRY/1  /0 $                                           \r\n\r\n      88  LABEL     LBSBEG $                                                      \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/                 \r\n                   NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      90  COND     ERROR1,NOTRL $                                                 \r\n\r\n      91  PURGE    PNLD/NONLFT$                                                   \r\n\r\n      92  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n     137  PARAM     //*NOP*/ALWAYS=-1 $                                           \r\n0*** USER WARNING MESSAGE   42,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PARAM      INSTRUCTION NO. 137\r\n     PARAMETER NAMED ALWAYS   ALREADY HAD VALUE ASSIGNED PREVIOUSLY\r\n\r\n     137  SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,/PG,,,,/   \r\n                    LUSET/NSKIP $                                                 \r\n\r\n     137  SSG2      USET,GM,  ,KFS,GO,,PG/QR,PO,PS,PL $                           \r\n\r\n     137  RCOVR3    ,PG,PS,  ,  /UDVT,QAS,PPT,PST,   ,   ,TOL /9   /*BBASIC  */   \r\n                    NOUE $                                                        \r\n\r\n     138  SDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $         \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     139  UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $                                   \r\n\r\n     139  ADD       QP ,QGS/QGT/  (1.0,0.0)/(1.0,0.0) $                           \r\n\r\n     139  EQUIV     QGT,QP /ALWAYS $                                              \r\n\r\n     139  EQUIV     CASECC,CASEXX/ALWAYS $                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $             \r\n\r\n     141  SDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/                                    \r\n                   OPP2,OQP2,OUPV2,OES2,OEF2, $                                   \r\n\r\n     142  OFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     143  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     144  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     145  COND     P2,JUMPPLOT $                                                  \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, \r\n                   ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n\r\n     148  LABEL    P2 $                                                           \r\n\r\n     149  XYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/          \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     150  XYPLOT   XYPLTT// $                                                     \r\n\r\n     151  LABEL    LBL18 $                                                        \r\n\r\n     154  SOFUT     //DRY/*TOC     */*SOFP*/0  /*        */*    */*    */*    */  \r\n                    *    */*    */*    * $                                        \r\n\r\n     154  LABEL     LBSEND $                                                      \r\n\r\n     155  JUMP     FINIS $                                                        \r\n\r\n     156  LABEL    ERROR1 $                                                       \r\n\r\n     157  PRTPARM  //-1/*DIRTRD* $                                                \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*DIRTRD* $                                                \r\n\r\n     160  LABEL    FINIS  $                                                       \r\n\r\n     161  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     162  END      $                                                              \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSEND   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL18    NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL17    NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBSBEG   NOT REFERENCED\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             57\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.800\r\n                                        RMS WAVEFRONT    3.958\r\n                                        RMS BANDWIDTH    3.975\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             56\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.733\r\n                                        RMS WAVEFRONT    3.882\r\n                                        RMS BANDWIDTH    3.916\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         57        56\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.800     3.733\r\n                                        RMS WAVEFRONT (C-RMS)            3.958     3.882\r\n                                        RMS BANDWITCH (B-RMS)            3.975     3.916\r\n                                        NUMBER OF GRID POINTS (N)                     15\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                30\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        30\r\n                                        MATRIX DENSITY, PERCENT                   33.333\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       4       3       2      11       3\r\n                         SEQGP         12       7      13       5      21       6      22      10\r\n                         SEQGP         23       8      31       9      32      13      33      11\r\n                         SEQGP         41      12      42      15      43      14\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        1\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  8.85000008D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 -7.08000006D+01 *\r\n                *  0.00000000D+00  8.85000008D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  8.85000008D-01  7.08000006D+01  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  7.08000006D+01  7.96800007D+03  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  4.52250004D+02  0.00000000D+00 *\r\n                * -7.08000006D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  8.42025007D+03 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            8.850000077D-01      0.000000000D+00  8.000000000D+01  0.000000000D+00\r\n                            Y            8.850000077D-01      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            8.850000077D-01      0.000000000D+00  8.000000000D+01  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  2.304000020D+03  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  4.522500039D+02  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  2.756250024D+03  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  2.304000020D+03                                    *\r\n                                      *                   4.522500039D+02                   *\r\n                                      *                                    2.756250024D+03  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n0*** SYSTEM INFORMATION MESSAGE 6201,  1 FILES HAVE BEEN ALLOCATED TO THE SOF WHERE --\r\n     SIZE OF FILE  1 =        488 BLOCKS\r\n     AND WHERE A BLOCK CONTAINS 1024 WORDS\r\n0*** USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUTION STRUCTURE RTRUSS  \r\n                                    AND BASIC SUBSTRUCTURE BBASIC  \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -9.972804E-02   1.726345E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -8.795284E-02   1.602409E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.643399E-02   1.299208E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -3.646334E-02   7.373300E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -4.473437E-03   5.936068E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.187666E-02  -6.535134E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      6.724679E-02  -1.263359E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      8.732010E-02  -1.617281E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      8.532047E-02  -1.639792E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      6.830145E-02  -1.353013E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      4.399038E-02  -8.339021E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.101861E-02  -1.591423E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.020194E-02   5.780797E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -6.623100E-02   1.212600E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -8.325891E-02   1.578978E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -8.312082E-02   1.634764E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -7.334013E-02   1.415126E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -5.140954E-02   9.338117E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.378143E-02   2.398395E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      2.919014E-02  -7.703990E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      1.387250E-02  -5.085935E-04   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -5.077145E-02   7.639633E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -1.718806E-01   3.065482E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -3.316626E-01   6.272717E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -5.227460E-01   9.949066E-02   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -7.030305E-01   1.323348E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -8.221683E-01   1.545146E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -8.581591E-01   1.628486E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -8.139981E-01   1.551891E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -7.056035E-01   1.331416E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -5.459657E-01   1.017326E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -3.496642E-01   6.553696E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.638073E-01   3.120855E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.537180E-02   7.528332E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -3.700558E-03  -1.679823E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.415224E-02   3.115468E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.187567E-01   2.253920E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -2.896703E-01   5.446753E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -4.887786E-01   9.096155E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -6.614697E-01   1.243436E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -7.862128E-01   1.497113E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.000000E-01  -1.394654E-13   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -8.815945E-02   1.631682E-13   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.656072E-02   2.530089E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -3.653554E-02   1.512666E-14   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -4.480211E-03  -1.739595E-15   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.194106E-02  -1.344566E-14   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      6.737154E-02  -1.985424E-14   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      8.747876E-02  -2.361819E-14   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      8.548176E-02  -2.722721E-14   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      6.843473E-02  -2.689852E-14   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      4.407183E-02  -1.405417E-14   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.103443E-02   2.417095E-15   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.025798E-02   9.428185E-15   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -6.635091E-02   1.549803E-14   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -8.341487E-02   2.637916E-14   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -8.328048E-02   3.078598E-14   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -7.347896E-02   2.433973E-14   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -5.150254E-02   1.258884E-14   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.380486E-02   1.714604E-15   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      2.907512E-02   1.148530E-12   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      1.245541E-02  -1.279549E-12   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -5.247950E-02  -1.375377E-13   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -1.738018E-01  -8.560768E-14   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -3.338889E-01  -1.623141E-14   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -5.253527E-01   3.035843E-14   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -7.059575E-01   8.512096E-14   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -8.252974E-01   1.222438E-13   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -8.613840E-01   1.316255E-13   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -8.171533E-01   1.357955E-13   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -7.085238E-01   9.333018E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -5.485846E-01   1.858520E-14   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -3.519410E-01  -2.236176E-14   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.657290E-01  -6.552142E-14   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.705777E-02  -1.266143E-13   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -5.316249E-03  -1.437578E-13   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.580528E-02  -1.250651E-13   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.205863E-01  -9.294520E-14   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -2.918324E-01  -3.678723E-14   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -4.913020E-01   1.357767E-14   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -6.643022E-01   6.231484E-14   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -7.893048E-01   1.268578E-13   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =       3\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -9.972804E-02  -1.726345E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -8.795284E-02  -1.602409E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -6.643399E-02  -1.299208E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -3.646334E-02  -7.373300E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -4.473437E-03  -5.936068E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      3.187666E-02   6.535134E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      6.724679E-02   1.263359E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      8.732010E-02   1.617281E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      8.532047E-02   1.639792E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      6.830145E-02   1.353013E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      4.399038E-02   8.339021E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.101861E-02   1.591423E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.020194E-02  -5.780797E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -6.623100E-02  -1.212600E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -8.325891E-02  -1.578978E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -8.312082E-02  -1.634764E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -7.334013E-02  -1.415126E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -5.140954E-02  -9.338117E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.378143E-02  -2.398395E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      2.919014E-02   7.703990E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      1.387250E-02   5.085935E-04   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -5.077145E-02  -7.639633E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -1.718806E-01  -3.065482E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -3.316626E-01  -6.272717E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -5.227460E-01  -9.949066E-02   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -7.030305E-01  -1.323348E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -8.221683E-01  -1.545146E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -8.581591E-01  -1.628486E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -8.139981E-01  -1.551891E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -7.056035E-01  -1.331416E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -5.459657E-01  -1.017326E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -3.496642E-01  -6.553696E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.638073E-01  -3.120855E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.537180E-02  -7.528332E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G     -3.700558E-03   1.679823E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.415224E-02  -3.115468E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.187567E-01  -2.253920E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -2.896703E-01  -5.446753E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -4.887786E-01  -9.096155E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -6.614697E-01  -1.243436E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -7.862128E-01  -1.497113E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.237933E-01   1.756579E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.113268E-01   1.679232E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -8.638323E-02   1.408971E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -4.795023E-02   8.084430E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.178940E-03   5.303015E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      4.211361E-02  -7.194262E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      8.627026E-02  -1.349478E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.115118E-01  -1.719277E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.102817E-01  -1.766360E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      8.918646E-02  -1.472755E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      5.661008E-02  -8.944025E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.306175E-02  -1.511429E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.899157E-02   6.224465E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -8.425346E-02   1.282643E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.071443E-01   1.692403E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.082833E-01   1.776134E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -9.492256E-02   1.526721E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -6.523303E-02   9.843878E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.725734E-02   2.489902E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      4.392191E-02  -9.520222E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      2.296061E-02  -4.726507E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.937012E-02   1.841250E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.054420E-01   2.663831E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.150992E-01   6.178701E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -6.620246E-01   1.012571E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -8.910643E-01   1.359746E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.043572E+00   1.597157E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.093137E+00   1.691233E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.037891E+00   1.611511E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -8.951988E-01   1.370759E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -6.871352E-01   1.028975E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -4.367505E-01   6.439175E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.997652E-01   2.808063E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.459813E-02   2.231114E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      1.206854E-02  -8.295247E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.640109E-02  -2.716396E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.415123E-01   1.877814E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -3.602576E-01   5.268280E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -6.136897E-01   9.131303E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -8.374245E-01   1.274808E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.001703E+00   1.552600E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.238578E-01  -1.308536E-13   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.114743E-01   1.530982E-13   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -8.658586E-02   2.374118E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -4.807768E-02   1.419389E-14   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.172579E-03  -1.632200E-15   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      4.223077E-02  -1.261663E-14   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      8.643888E-02  -1.863048E-14   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.117154E-01  -2.216190E-14   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.105207E-01  -2.554939E-14   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      8.940586E-02  -2.524088E-14   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      5.672615E-02  -1.318797E-14   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.305600E-02   2.267720E-15   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.907504E-02   8.847045E-15   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -8.439713E-02   1.454327E-14   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.073635E-01   2.475326E-14   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.085427E-01   2.888862E-14   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -9.513187E-02   2.283980E-14   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -6.533979E-02   1.181332E-14   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.727912E-02   1.609001E-15   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      4.430058E-02   1.077630E-12   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      2.376428E-02  -1.200563E-12   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.829058E-02  -1.290486E-13   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.046920E-01  -8.032071E-14   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.148960E-01  -1.521787E-14   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -6.623498E-01   2.849798E-14   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -8.917751E-01   7.988965E-14   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.044575E+00   1.147208E-13   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.094329E+00   1.235266E-13   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.039017E+00   1.274275E-13   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -8.959451E-01   8.759335E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -6.873758E-01   1.745250E-14   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -4.365433E-01  -2.097257E-14   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.991415E-01  -6.147498E-14   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.357431E-02  -1.187991E-13   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      1.329738E-02  -1.348864E-13   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.529713E-02  -1.173460E-13   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.407587E-01  -8.720651E-14   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -3.599140E-01  -3.451045E-14   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -6.137878E-01   1.275072E-14   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -8.380220E-01   5.848335E-14   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.002741E+00   1.190558E-13   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      13\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.237933E-01  -1.756579E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.113268E-01  -1.679232E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -8.638323E-02  -1.408971E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -4.795023E-02  -8.084430E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.178940E-03  -5.303015E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      4.211361E-02   7.194262E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      8.627026E-02   1.349478E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.115118E-01   1.719277E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.102817E-01   1.766360E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      8.918646E-02   1.472755E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      5.661008E-02   8.944025E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.306175E-02   1.511429E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -3.899157E-02  -6.224465E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -8.425346E-02  -1.282643E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.071443E-01  -1.692403E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.082833E-01  -1.776134E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -9.492256E-02  -1.526721E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -6.523303E-02  -9.843878E-03   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -1.725734E-02  -2.489902E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      4.392191E-02   9.520222E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      2.296061E-02   4.726507E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.937012E-02  -1.841250E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.054420E-01  -2.663831E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.150992E-01  -6.178701E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -6.620246E-01  -1.012571E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -8.910643E-01  -1.359746E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.043572E+00  -1.597157E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.093137E+00  -1.691233E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.037891E+00  -1.611511E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -8.951988E-01  -1.370759E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -6.871352E-01  -1.028975E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -4.367505E-01  -6.439175E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -1.997652E-01  -2.808063E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -4.459813E-02  -2.231114E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      1.206854E-02   8.295247E-03   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.640109E-02   2.716396E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.415123E-01  -1.877814E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -3.602576E-01  -5.268280E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -6.136897E-01  -9.131303E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -8.374245E-01  -1.274808E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.001703E+00  -1.552600E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      21\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.477356E-01   1.772534E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.350963E-01   1.725773E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.071586E-01   1.478170E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -6.002694E-02   8.545420E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.756794E-03   4.718296E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      5.291033E-02  -7.624533E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.057982E-01  -1.400431E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.362442E-01  -1.778360E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.361104E-01  -1.844217E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.109962E-01  -1.548744E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      6.962090E-02  -9.310609E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.490774E-02  -1.429944E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -4.809060E-02   6.498874E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.025854E-01   1.321812E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.317395E-01   1.760529E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.345299E-01   1.865741E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.172900E-01   1.595861E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -7.924006E-02   1.011666E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.073115E-02   2.531190E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      5.976448E-02  -1.050402E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.686199E-02  -7.307916E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.134053E-02  -1.784908E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.337094E-01   2.413802E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.958609E-01   6.129985E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -8.002291E-01   1.023694E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.078857E+00   1.381343E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.265842E+00   1.628515E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.329905E+00   1.729590E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.263492E+00   1.648187E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.085047E+00   1.394900E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -8.263684E-01   1.035426E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -5.205198E-01   6.365287E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.316694E-01   2.627176E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.809187E-02  -9.488731E-04   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      3.509406E-02  -1.244033E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.297738E-03  -6.294358E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.598870E-01   1.661282E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.272994E-01   5.160346E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -7.360014E-01   9.142213E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.013031E+00   1.293964E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.218720E+00   1.587049E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.477749E-01  -4.259249E-14   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.352029E-01   4.987542E-14   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.073136E-01   7.747490E-15   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -6.012856E-02   4.631093E-15   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.745894E-03  -5.311615E-16   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      5.300477E-02  -4.116968E-15   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.059164E-01  -6.081900E-15   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.363829E-01  -7.235705E-15   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.362870E-01  -8.340132E-15   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.111656E-01  -8.236548E-15   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      6.970486E-02  -4.304766E-15   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.489325E-02   7.366598E-16   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -4.815273E-02   2.887744E-15   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.026791E-01   4.750418E-15   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.318961E-01   8.079899E-15   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.347300E-01   9.427463E-15   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.174462E-01   7.455251E-15   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -7.930674E-02   3.858233E-15   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.074246E-02   5.265589E-16   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      6.000220E-02   3.509206E-13   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.745103E-02  -3.909690E-13   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.052431E-02  -4.202856E-14   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.331460E-01  -2.612971E-14   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.957398E-01  -4.886444E-15   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -8.004775E-01   9.392930E-15   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.079356E+00   2.616312E-14   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.266563E+00   3.753663E-14   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.330778E+00   4.041672E-14   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.264323E+00   4.167157E-14   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.085597E+00   2.867901E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -8.265235E-01   5.800463E-15   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -5.203557E-01  -6.762163E-15   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.312453E-01  -1.999385E-14   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.736070E-02  -3.868622E-14   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      3.602582E-02  -4.393581E-14   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -1.485185E-03  -3.821927E-14   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.593775E-01  -2.838405E-14   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.270515E-01  -1.118056E-14   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -7.360396E-01   4.248533E-15   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.013468E+00   1.918243E-14   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.219498E+00   3.894516E-14   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      23\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.477356E-01  -1.772534E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.350963E-01  -1.725773E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.071586E-01  -1.478170E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -6.002694E-02  -8.545420E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -5.756794E-03  -4.718296E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      5.291033E-02   7.624533E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.057982E-01   1.400431E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.362442E-01   1.778360E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.361104E-01   1.844217E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.109962E-01   1.548744E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      6.962090E-02   9.310609E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.490774E-02   1.429944E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -4.809060E-02  -6.498874E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.025854E-01  -1.321812E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.317395E-01  -1.760529E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.345299E-01  -1.865741E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.172900E-01  -1.595861E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -7.924006E-02  -1.011666E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.073115E-02  -2.531190E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      5.976448E-02   1.050402E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      3.686199E-02   7.307916E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -4.134053E-02   1.784908E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.337094E-01  -2.413802E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -4.958609E-01  -6.129985E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -8.002291E-01  -1.023694E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.078857E+00  -1.381343E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.265842E+00  -1.628515E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.329905E+00  -1.729590E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.263492E+00  -1.648187E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.085047E+00  -1.394900E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -8.263684E-01  -1.035426E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -5.205198E-01  -6.365287E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.316694E-01  -2.627176E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.809187E-02   9.488731E-04   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      3.509406E-02   1.244033E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G     -2.297738E-03   6.294358E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.598870E-01  -1.661282E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.272994E-01  -5.160346E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -7.360014E-01  -9.142213E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.013031E+00  -1.293964E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.218720E+00  -1.587049E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      31\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.716337E-01   1.779227E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.589202E-01   1.748394E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.280980E-01   1.513290E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -7.224899E-02   8.785705E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.269299E-03   4.331676E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      6.385115E-02  -7.850283E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.253539E-01  -1.424664E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.609718E-01  -1.805826E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.620717E-01  -1.882836E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.329997E-01  -1.587540E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      8.267704E-02  -9.489391E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.664969E-02  -1.373967E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -5.724084E-02   6.635814E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.208733E-01   1.339316E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.564009E-01   1.793431E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.610032E-01   1.911473E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.397903E-01   1.630425E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -9.318225E-02   1.023239E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.416860E-02   2.544072E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      7.540994E-02  -1.092880E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      5.114086E-02  -8.576256E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -3.252499E-02  -3.613343E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.614698E-01   2.288397E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -5.768059E-01   6.110552E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -9.386930E-01   1.029327E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.266781E+00   1.391634E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.488467E+00   1.643764E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.567257E+00   1.748493E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.489700E+00   1.666333E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.275288E+00   1.406845E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -9.655202E-01   1.038303E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.040537E-01   6.326596E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.635910E-01   2.543118E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.129115E-02  -2.481070E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      5.904322E-02  -1.453489E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      1.239728E-02  -8.066815E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.783390E-01   1.561873E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.942116E-01   5.107743E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -8.580038E-01   9.141712E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.188937E+00   1.303436E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.436420E+00   1.604309E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      32\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.716518E-01   2.739462E-14   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.589781E-01  -3.198065E-14   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.281866E-01  -4.936209E-15   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -7.230903E-02  -2.952544E-15   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.260313E-03   3.417929E-16   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      6.390741E-02   2.624021E-15   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.254164E-01   3.870877E-15   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.610434E-01   4.602974E-15   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.621700E-01   5.308913E-15   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.330972E-01   5.248948E-15   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      8.272278E-02   2.740836E-15   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.663692E-02  -4.770123E-16   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -5.727564E-02  -1.838535E-15   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.209196E-01  -3.016995E-15   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.564853E-01  -5.143926E-15   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.611184E-01  -6.007422E-15   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.398779E-01  -4.746694E-15   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -9.321337E-02  -2.451492E-15   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.417258E-02  -3.322197E-16   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      7.552312E-02  -2.253498E-13   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      5.146459E-02   2.510254E-13   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -3.206210E-02   2.697506E-14   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.611523E-01   1.683568E-14   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -5.767529E-01   3.297865E-15   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -9.388347E-01  -5.773531E-15   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.267046E+00  -1.645542E-14   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.488858E+00  -2.368759E-14   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.567739E+00  -2.551457E-14   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.490161E+00  -2.635105E-14   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.275593E+00  -1.805473E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -9.655967E-01  -3.455591E-15   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.039563E-01   4.499383E-15   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.633722E-01   1.289508E-14   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.089836E-02   2.483860E-14   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      5.957304E-02   2.818544E-14   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      1.284857E-02   2.452584E-14   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.780801E-01   1.825864E-14   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.940767E-01   7.310148E-15   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -8.580070E-01  -2.502547E-15   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.189179E+00  -1.199751E-14   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.436858E+00  -2.460445E-14   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      33\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.716337E-01  -1.779227E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.589202E-01  -1.748394E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.280980E-01  -1.513290E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -7.224899E-02  -8.785705E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.269299E-03  -4.331676E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      6.385115E-02   7.850283E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.253539E-01   1.424664E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.609718E-01   1.805826E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.620717E-01   1.882836E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.329997E-01   1.587540E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      8.267704E-02   9.489391E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.664969E-02   1.373967E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -5.724084E-02  -6.635814E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.208733E-01  -1.339316E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.564009E-01  -1.793431E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.610032E-01  -1.911473E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.397903E-01  -1.630425E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -9.318225E-02  -1.023239E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.416860E-02  -2.544072E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      7.540994E-02   1.092880E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      5.114086E-02   8.576256E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -3.252499E-02   3.613343E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.614698E-01  -2.288397E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -5.768059E-01  -6.110552E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -9.386930E-01  -1.029327E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.266781E+00  -1.391634E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.488467E+00  -1.643764E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.567257E+00  -1.748493E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.489700E+00  -1.666333E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.275288E+00  -1.406845E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -9.655202E-01  -1.038303E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.040537E-01  -6.326596E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.635910E-01  -2.543118E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -3.129115E-02   2.481070E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      5.904322E-02   1.453489E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      1.239728E-02   8.066815E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.783390E-01  -1.561873E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -4.942116E-01  -5.107743E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -8.580038E-01  -9.141712E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.188937E+00  -1.303436E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.436420E+00  -1.604309E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      41\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.954422E-01   1.780857E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.825437E-01   1.755037E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.487699E-01   1.524107E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -8.430611E-02   8.861772E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.786382E-03   4.184372E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      7.464130E-02  -7.922236E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.446799E-01  -1.431614E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.854197E-01  -1.813487E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.877147E-01  -1.894458E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.547148E-01  -1.599568E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      9.557650E-02  -9.542124E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.839340E-02  -1.352133E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -6.628016E-02   6.677263E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.389619E-01   1.343963E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.807654E-01   1.803035E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.871356E-01   1.925642E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.620132E-01   1.640915E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -1.069730E-01   1.026082E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.757334E-02   2.545432E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      9.053128E-02  -1.103695E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      6.433301E-02  -8.953019E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -2.513706E-02  -4.172781E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.902248E-01   2.250220E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -6.580434E-01   6.106228E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -1.076729E+00   1.031061E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.453735E+00   1.394592E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.709742E+00   1.648249E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.803016E+00   1.754142E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.714400E+00   1.671775E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.464532E+00   1.410426E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -1.104342E+00   1.039068E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.878518E-01   6.314293E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.963656E-01   2.519632E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -2.588316E-02  -2.926911E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      8.137053E-02  -1.517730E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      2.562467E-02  -8.599741E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.978382E-01   1.534600E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -5.615879E-01   5.092253E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -9.798407E-01   9.139580E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.364051E+00   1.306277E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.652748E+00   1.609561E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      42\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.954451E-01   5.117084E-14   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.825542E-01  -5.978331E-14   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.487866E-01  -9.242727E-15   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -8.431764E-02  -5.527593E-15   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.784355E-03   6.384404E-16   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      7.465217E-02   4.912730E-15   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.446910E-01   7.249446E-15   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.854322E-01   8.621402E-15   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.877328E-01   9.942494E-15   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.547332E-01   9.828128E-15   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      9.558482E-02   5.132756E-15   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.839045E-02  -8.895125E-16   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -6.628661E-02  -3.442979E-15   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.389697E-01  -5.652906E-15   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.807806E-01  -9.633371E-15   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.871573E-01  -1.124757E-14   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.620294E-01  -8.889507E-15   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -1.069779E-01  -4.593217E-15   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.757377E-02  -6.235357E-16   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      9.054982E-02  -4.210989E-13   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      6.439216E-02   4.690989E-13   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -2.505053E-02   5.041493E-14   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.901657E-01   3.143622E-14   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -6.580355E-01   6.088648E-15   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -1.076755E+00  -1.090888E-14   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.453783E+00  -3.091569E-14   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.709813E+00  -4.446291E-14   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.803105E+00  -4.787696E-14   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.714485E+00  -4.943621E-14   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.464588E+00  -3.390991E-14   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -1.104355E+00  -6.583248E-15   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.878331E-01   8.332771E-15   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.963274E-01   2.407247E-14   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -2.581250E-02   4.641857E-14   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      8.146975E-02   5.268550E-14   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      2.570790E-02   4.583615E-14   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.977936E-01   3.410747E-14   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -5.615634E-01   1.359933E-14   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -9.798389E-01  -4.782545E-15   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.364096E+00  -2.256886E-14   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.652829E+00  -4.616713E-14   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      POINT-ID =      43\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G     -1.954422E-01  -1.780857E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-02     G     -1.825437E-01  -1.755037E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G     -1.487699E-01  -1.524107E-02   0.0            0.0            0.0            0.0                           \r\n   6.000000E-02     G     -8.430611E-02  -8.861772E-03   0.0            0.0            0.0            0.0                           \r\n   8.000000E-02     G     -6.786382E-03  -4.184372E-04   0.0            0.0            0.0            0.0                           \r\n   9.999999E-02     G      7.464130E-02   7.922236E-03   0.0            0.0            0.0            0.0                           \r\n   1.200000E-01     G      1.446799E-01   1.431614E-02   0.0            0.0            0.0            0.0                           \r\n   1.400000E-01     G      1.854197E-01   1.813487E-02   0.0            0.0            0.0            0.0                           \r\n   1.600000E-01     G      1.877147E-01   1.894458E-02   0.0            0.0            0.0            0.0                           \r\n   1.800000E-01     G      1.547148E-01   1.599568E-02   0.0            0.0            0.0            0.0                           \r\n   2.000000E-01     G      9.557650E-02   9.542124E-03   0.0            0.0            0.0            0.0                           \r\n   2.200000E-01     G      1.839340E-02   1.352133E-03   0.0            0.0            0.0            0.0                           \r\n   2.400000E-01     G     -6.628016E-02  -6.677263E-03   0.0            0.0            0.0            0.0                           \r\n   2.600000E-01     G     -1.389619E-01  -1.343963E-02   0.0            0.0            0.0            0.0                           \r\n   2.800000E-01     G     -1.807654E-01  -1.803035E-02   0.0            0.0            0.0            0.0                           \r\n   3.000000E-01     G     -1.871356E-01  -1.925642E-02   0.0            0.0            0.0            0.0                           \r\n   3.200000E-01     G     -1.620132E-01  -1.640915E-02   0.0            0.0            0.0            0.0                           \r\n   3.400000E-01     G     -1.069730E-01  -1.026082E-02   0.0            0.0            0.0            0.0                           \r\n   3.600000E-01     G     -2.757334E-02  -2.545432E-03   0.0            0.0            0.0            0.0                           \r\n   3.800000E-01     G      9.053128E-02   1.103695E-02   0.0            0.0            0.0            0.0                           \r\n   4.000000E-01     G      6.433301E-02   8.953019E-03   0.0            0.0            0.0            0.0                           \r\n   4.200000E-01     G     -2.513706E-02   4.172781E-03   0.0            0.0            0.0            0.0                           \r\n   4.400001E-01     G     -2.902248E-01  -2.250220E-02   0.0            0.0            0.0            0.0                           \r\n   4.600001E-01     G     -6.580434E-01  -6.106228E-02   0.0            0.0            0.0            0.0                           \r\n   4.800001E-01     G     -1.076729E+00  -1.031061E-01   0.0            0.0            0.0            0.0                           \r\n   5.000001E-01     G     -1.453735E+00  -1.394592E-01   0.0            0.0            0.0            0.0                           \r\n   5.200000E-01     G     -1.709742E+00  -1.648249E-01   0.0            0.0            0.0            0.0                           \r\n   5.400000E-01     G     -1.803016E+00  -1.754142E-01   0.0            0.0            0.0            0.0                           \r\n   5.600000E-01     G     -1.714400E+00  -1.671775E-01   0.0            0.0            0.0            0.0                           \r\n   5.800000E-01     G     -1.464532E+00  -1.410426E-01   0.0            0.0            0.0            0.0                           \r\n   6.000000E-01     G     -1.104342E+00  -1.039068E-01   0.0            0.0            0.0            0.0                           \r\n   6.199999E-01     G     -6.878518E-01  -6.314293E-02   0.0            0.0            0.0            0.0                           \r\n   6.399999E-01     G     -2.963656E-01  -2.519632E-02   0.0            0.0            0.0            0.0                           \r\n   6.599999E-01     G     -2.588316E-02   2.926911E-03   0.0            0.0            0.0            0.0                           \r\n   6.799999E-01     G      8.137053E-02   1.517730E-02   0.0            0.0            0.0            0.0                           \r\n   6.999999E-01     G      2.562467E-02   8.599741E-03   0.0            0.0            0.0            0.0                           \r\n   7.199998E-01     G     -1.978382E-01  -1.534600E-02   0.0            0.0            0.0            0.0                           \r\n   7.399998E-01     G     -5.615879E-01  -5.092253E-02   0.0            0.0            0.0            0.0                           \r\n   7.599998E-01     G     -9.798407E-01  -9.139580E-02   0.0            0.0            0.0            0.0                           \r\n   7.799998E-01     G     -1.364051E+00  -1.306277E-01   0.0            0.0            0.0            0.0                           \r\n   7.999998E-01     G     -1.652748E+00  -1.609561E-01   0.0            0.0            0.0            0.0                           \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       1\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.719688E+01   0.0                       2.000000E-02       2.066074E+01   0.0                                \r\n   4.000000E-02       1.267266E+01   0.0                       6.000000E-02       7.220215E+00   0.0                                \r\n   8.000000E-02       6.773804E-01   0.0                       9.999999E-02      -6.440332E+00   0.0                                \r\n   1.200000E-01      -1.247520E+01   0.0                       1.400000E-01      -1.586719E+01   0.0                                \r\n   1.600000E-01      -1.612910E+01   0.0                       1.800000E-01      -1.332832E+01   0.0                                \r\n   2.000000E-01      -8.144238E+00   0.0                       2.200000E-01      -1.581592E+00   0.0                                \r\n   2.400000E-01       5.604492E+00   0.0                       2.600000E-01       1.199180E+01   0.0                                \r\n   2.800000E-01       1.559590E+01   0.0                       3.000000E-01       1.596621E+01   0.0                                \r\n   3.200000E-01       1.388262E+01   0.0                       3.400000E-01       9.301172E+00   0.0                                \r\n   3.600000E-01       2.343164E+00   0.0                       3.800000E-01       1.150166E+01   0.0                                \r\n   4.000000E-01       1.417096E+02   0.0                       4.200000E-01       1.708049E+02   0.0                                \r\n   4.400001E-01       1.921207E+02   0.0                       4.600001E-01       2.226352E+02   0.0                                \r\n   4.800001E-01       2.606766E+02   0.0                       5.000001E-01       2.927016E+02   0.0                                \r\n   5.200000E-01       3.129094E+02   0.0                       5.400000E-01       3.224813E+02   0.0                                \r\n   5.600000E-01       3.155250E+02   0.0                       5.800000E-01       2.920312E+02   0.0                                \r\n   6.000000E-01       2.618906E+02   0.0                       6.199999E-01       2.276813E+02   0.0                                \r\n   6.399999E-01       1.921699E+02   0.0                       6.599999E-01       1.685974E+02   0.0                                \r\n   6.799999E-01       1.615692E+02   0.0                       6.999999E-01       1.653038E+02   0.0                                \r\n   7.199998E-01       1.829660E+02   0.0                       7.399998E-01       2.162110E+02   0.0                                \r\n   7.599998E-01       2.523469E+02   0.0                       7.799998E-01       2.832469E+02   0.0                                \r\n   7.999998E-01       3.091969E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       2\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -2.719688E+01   0.0                       2.000000E-02      -2.066074E+01   0.0                                \r\n   4.000000E-02      -1.267266E+01   0.0                       6.000000E-02      -7.220215E+00   0.0                                \r\n   8.000000E-02      -6.773804E-01   0.0                       9.999999E-02       6.440332E+00   0.0                                \r\n   1.200000E-01       1.247520E+01   0.0                       1.400000E-01       1.586719E+01   0.0                                \r\n   1.600000E-01       1.612910E+01   0.0                       1.800000E-01       1.332832E+01   0.0                                \r\n   2.000000E-01       8.144238E+00   0.0                       2.200000E-01       1.581592E+00   0.0                                \r\n   2.400000E-01      -5.604492E+00   0.0                       2.600000E-01      -1.199180E+01   0.0                                \r\n   2.800000E-01      -1.559590E+01   0.0                       3.000000E-01      -1.596621E+01   0.0                                \r\n   3.200000E-01      -1.388262E+01   0.0                       3.400000E-01      -9.301172E+00   0.0                                \r\n   3.600000E-01      -2.343164E+00   0.0                       3.800000E-01      -1.150166E+01   0.0                                \r\n   4.000000E-01      -1.417096E+02   0.0                       4.200000E-01      -1.708049E+02   0.0                                \r\n   4.400001E-01      -1.921207E+02   0.0                       4.600001E-01      -2.226352E+02   0.0                                \r\n   4.800001E-01      -2.606766E+02   0.0                       5.000001E-01      -2.927016E+02   0.0                                \r\n   5.200000E-01      -3.129094E+02   0.0                       5.400000E-01      -3.224813E+02   0.0                                \r\n   5.600000E-01      -3.155250E+02   0.0                       5.800000E-01      -2.920312E+02   0.0                                \r\n   6.000000E-01      -2.618906E+02   0.0                       6.199999E-01      -2.276813E+02   0.0                                \r\n   6.399999E-01      -1.921699E+02   0.0                       6.599999E-01      -1.685974E+02   0.0                                \r\n   6.799999E-01      -1.615692E+02   0.0                       6.999999E-01      -1.653038E+02   0.0                                \r\n   7.199998E-01      -1.829660E+02   0.0                       7.399998E-01      -2.162110E+02   0.0                                \r\n   7.599998E-01      -2.523469E+02   0.0                       7.799998E-01      -2.832469E+02   0.0                                \r\n   7.999998E-01      -3.091969E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      11\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                6.446485E+00   0.0                       2.000000E-02       1.475508E+01   0.0                                \r\n   4.000000E-02       2.026289E+01   0.0                       6.000000E-02       1.274443E+01   0.0                                \r\n   8.000000E-02      -6.362183E-01   0.0                       9.999999E-02      -1.171611E+01   0.0                                \r\n   1.200000E-01      -1.686211E+01   0.0                       1.400000E-01      -2.035430E+01   0.0                                \r\n   1.600000E-01      -2.390508E+01   0.0                       1.800000E-01      -2.193984E+01   0.0                                \r\n   2.000000E-01      -1.160742E+01   0.0                       2.200000E-01       5.743653E-01   0.0                                \r\n   2.400000E-01       8.346973E+00   0.0                       2.600000E-01       1.436660E+01   0.0                                \r\n   2.800000E-01       2.191641E+01   0.0                       3.000000E-01       2.594766E+01   0.0                                \r\n   3.200000E-01       2.093086E+01   0.0                       3.400000E-01       1.067578E+01   0.0                                \r\n   3.600000E-01       2.177197E+00   0.0                       3.800000E-01      -3.786680E+01   0.0                                \r\n   4.000000E-01      -8.036690E+01   0.0                       4.200000E-01      -1.079543E+02   0.0                                \r\n   4.400001E-01      -7.500000E+01   0.0                       4.600001E-01      -2.031563E+01   0.0                                \r\n   4.800001E-01       3.252188E+01   0.0                       5.000001E-01       7.107188E+01   0.0                                \r\n   5.200000E-01       1.002563E+02   0.0                       5.400000E-01       1.191844E+02   0.0                                \r\n   5.600000E-01       1.125844E+02   0.0                       5.800000E-01       7.463438E+01   0.0                                \r\n   6.000000E-01       2.406094E+01   0.0                       6.199999E-01      -2.072344E+01   0.0                                \r\n   6.399999E-01      -6.236719E+01   0.0                       6.599999E-01      -1.023826E+02   0.0                                \r\n   6.799999E-01      -1.228841E+02   0.0                       6.999999E-01      -1.103953E+02   0.0                                \r\n   7.199998E-01      -7.536563E+01   0.0                       7.399998E-01      -3.435469E+01   0.0                                \r\n   7.599998E-01       9.810938E+00   0.0                       7.799998E-01       5.975625E+01   0.0                                \r\n   7.999998E-01       1.038375E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      12\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -6.446485E+00   0.0                       2.000000E-02      -1.475508E+01   0.0                                \r\n   4.000000E-02      -2.026289E+01   0.0                       6.000000E-02      -1.274443E+01   0.0                                \r\n   8.000000E-02       6.362183E-01   0.0                       9.999999E-02       1.171611E+01   0.0                                \r\n   1.200000E-01       1.686211E+01   0.0                       1.400000E-01       2.035430E+01   0.0                                \r\n   1.600000E-01       2.390508E+01   0.0                       1.800000E-01       2.193984E+01   0.0                                \r\n   2.000000E-01       1.160742E+01   0.0                       2.200000E-01      -5.743653E-01   0.0                                \r\n   2.400000E-01      -8.346973E+00   0.0                       2.600000E-01      -1.436660E+01   0.0                                \r\n   2.800000E-01      -2.191641E+01   0.0                       3.000000E-01      -2.594766E+01   0.0                                \r\n   3.200000E-01      -2.093086E+01   0.0                       3.400000E-01      -1.067578E+01   0.0                                \r\n   3.600000E-01      -2.177197E+00   0.0                       3.800000E-01       3.786680E+01   0.0                                \r\n   4.000000E-01       8.036690E+01   0.0                       4.200000E-01       1.079543E+02   0.0                                \r\n   4.400001E-01       7.500000E+01   0.0                       4.600001E-01       2.031563E+01   0.0                                \r\n   4.800001E-01      -3.252188E+01   0.0                       5.000001E-01      -7.107188E+01   0.0                                \r\n   5.200000E-01      -1.002563E+02   0.0                       5.400000E-01      -1.191844E+02   0.0                                \r\n   5.600000E-01      -1.125844E+02   0.0                       5.800000E-01      -7.463438E+01   0.0                                \r\n   6.000000E-01      -2.406094E+01   0.0                       6.199999E-01       2.072344E+01   0.0                                \r\n   6.399999E-01       6.236719E+01   0.0                       6.599999E-01       1.023826E+02   0.0                                \r\n   6.799999E-01       1.228841E+02   0.0                       6.999999E-01       1.103953E+02   0.0                                \r\n   7.199998E-01       7.536563E+01   0.0                       7.399998E-01       3.435469E+01   0.0                                \r\n   7.599998E-01      -9.810938E+00   0.0                       7.799998E-01      -5.975625E+01   0.0                                \r\n   7.999998E-01      -1.038375E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      21\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                3.928125E+00   0.0                       2.000000E-02       1.066641E+01   0.0                                \r\n   4.000000E-02       1.549922E+01   0.0                       6.000000E-02       1.016309E+01   0.0                                \r\n   8.000000E-02      -1.089990E+00   0.0                       9.999999E-02      -9.443555E+00   0.0                                \r\n   1.200000E-01      -1.181250E+01   0.0                       1.400000E-01      -1.387148E+01   0.0                                \r\n   1.600000E-01      -1.765781E+01   0.0                       1.800000E-01      -1.694531E+01   0.0                                \r\n   2.000000E-01      -8.396484E+00   0.0                       2.200000E-01       1.448584E+00   0.0                                \r\n   2.400000E-01       6.212988E+00   0.0                       2.600000E-01       9.369141E+00   0.0                                \r\n   2.800000E-01       1.566328E+01   0.0                       3.000000E-01       2.000859E+01   0.0                                \r\n   3.200000E-01       1.561875E+01   0.0                       3.400000E-01       6.667383E+00   0.0                                \r\n   3.600000E-01       1.131152E+00   0.0                       3.800000E-01      -2.377148E+01   0.0                                \r\n   4.000000E-01      -5.890401E+01   0.0                       4.200000E-01      -8.162227E+01   0.0                                \r\n   4.400001E-01      -5.634141E+01   0.0                       4.600001E-01      -1.211250E+01   0.0                                \r\n   4.800001E-01       2.483438E+01   0.0                       5.000001E-01       4.997813E+01   0.0                                \r\n   5.200000E-01       7.203751E+01   0.0                       5.400000E-01       8.729063E+01   0.0                                \r\n   5.600000E-01       8.315625E+01   0.0                       5.800000E-01       5.492813E+01   0.0                                \r\n   6.000000E-01       1.551563E+01   0.0                       6.199999E-01      -1.641094E+01   0.0                                \r\n   6.399999E-01      -4.241484E+01   0.0                       6.599999E-01      -7.311710E+01   0.0                                \r\n   6.799999E-01      -9.317578E+01   0.0                       6.999999E-01      -8.125529E+01   0.0                                \r\n   7.199998E-01      -5.094375E+01   0.0                       7.399998E-01      -2.478750E+01   0.0                                \r\n   7.599998E-01       3.825000E+00   0.0                       7.799998E-01       4.368750E+01   0.0                                \r\n   7.999998E-01       7.770938E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      22\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -3.928125E+00   0.0                       2.000000E-02      -1.066641E+01   0.0                                \r\n   4.000000E-02      -1.549922E+01   0.0                       6.000000E-02      -1.016309E+01   0.0                                \r\n   8.000000E-02       1.089990E+00   0.0                       9.999999E-02       9.443555E+00   0.0                                \r\n   1.200000E-01       1.181250E+01   0.0                       1.400000E-01       1.387148E+01   0.0                                \r\n   1.600000E-01       1.765781E+01   0.0                       1.800000E-01       1.694531E+01   0.0                                \r\n   2.000000E-01       8.396484E+00   0.0                       2.200000E-01      -1.448584E+00   0.0                                \r\n   2.400000E-01      -6.212988E+00   0.0                       2.600000E-01      -9.369141E+00   0.0                                \r\n   2.800000E-01      -1.566328E+01   0.0                       3.000000E-01      -2.000859E+01   0.0                                \r\n   3.200000E-01      -1.561875E+01   0.0                       3.400000E-01      -6.667383E+00   0.0                                \r\n   3.600000E-01      -1.131152E+00   0.0                       3.800000E-01       2.377148E+01   0.0                                \r\n   4.000000E-01       5.890401E+01   0.0                       4.200000E-01       8.162227E+01   0.0                                \r\n   4.400001E-01       5.634141E+01   0.0                       4.600001E-01       1.211250E+01   0.0                                \r\n   4.800001E-01      -2.483438E+01   0.0                       5.000001E-01      -4.997813E+01   0.0                                \r\n   5.200000E-01      -7.203751E+01   0.0                       5.400000E-01      -8.729063E+01   0.0                                \r\n   5.600000E-01      -8.315625E+01   0.0                       5.800000E-01      -5.492813E+01   0.0                                \r\n   6.000000E-01      -1.551563E+01   0.0                       6.199999E-01       1.641094E+01   0.0                                \r\n   6.399999E-01       4.241484E+01   0.0                       6.599999E-01       7.311710E+01   0.0                                \r\n   6.799999E-01       9.317578E+01   0.0                       6.999999E-01       8.125529E+01   0.0                                \r\n   7.199998E-01       5.094375E+01   0.0                       7.399998E-01       2.478750E+01   0.0                                \r\n   7.599998E-01      -3.825000E+00   0.0                       7.799998E-01      -4.368750E+01   0.0                                \r\n   7.999998E-01      -7.770938E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      31\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.815234E+00   0.0                       2.000000E-02       5.789062E+00   0.0                                \r\n   4.000000E-02       8.860547E+00   0.0                       6.000000E-02       6.004688E+00   0.0                                \r\n   8.000000E-02      -8.986084E-01   0.0                       9.999999E-02      -5.626758E+00   0.0                                \r\n   1.200000E-01      -6.251954E+00   0.0                       1.400000E-01      -7.154297E+00   0.0                                \r\n   1.600000E-01      -9.821485E+00   0.0                       1.800000E-01      -9.758204E+00   0.0                                \r\n   2.000000E-01      -4.574414E+00   0.0                       2.200000E-01       1.276758E+00   0.0                                \r\n   2.400000E-01       3.479883E+00   0.0                       2.600000E-01       4.627735E+00   0.0                                \r\n   2.800000E-01       8.438672E+00   0.0                       3.000000E-01       1.151484E+01   0.0                                \r\n   3.200000E-01       8.769141E+00   0.0                       3.400000E-01       3.111914E+00   0.0                                \r\n   3.600000E-01       3.972656E-01   0.0                       3.800000E-01      -1.131797E+01   0.0                                \r\n   4.000000E-01      -3.237246E+01   0.0                       4.200000E-01      -4.628877E+01   0.0                                \r\n   4.400001E-01      -3.175313E+01   0.0                       4.600001E-01      -5.306250E+00   0.0                                \r\n   4.800001E-01       1.416563E+01   0.0                       5.000001E-01       2.650313E+01   0.0                                \r\n   5.200000E-01       3.912188E+01   0.0                       5.400000E-01       4.817813E+01   0.0                                \r\n   5.600000E-01       4.609688E+01   0.0                       5.800000E-01       3.045938E+01   0.0                                \r\n   6.000000E-01       7.659375E+00   0.0                       6.199999E-01      -9.740625E+00   0.0                                \r\n   6.399999E-01      -2.187656E+01   0.0                       6.599999E-01      -3.927891E+01   0.0                                \r\n   6.799999E-01      -5.298164E+01   0.0                       6.999999E-01      -4.512949E+01   0.0                                \r\n   7.199998E-01      -2.589258E+01   0.0                       7.399998E-01      -1.349063E+01   0.0                                \r\n   7.599998E-01       3.187500E-01   0.0                       7.799998E-01       2.421563E+01   0.0                                \r\n   7.999998E-01       4.374375E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      32\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.815234E+00   0.0                       2.000000E-02      -5.789062E+00   0.0                                \r\n   4.000000E-02      -8.860547E+00   0.0                       6.000000E-02      -6.004688E+00   0.0                                \r\n   8.000000E-02       8.986084E-01   0.0                       9.999999E-02       5.626758E+00   0.0                                \r\n   1.200000E-01       6.251954E+00   0.0                       1.400000E-01       7.154297E+00   0.0                                \r\n   1.600000E-01       9.821485E+00   0.0                       1.800000E-01       9.758204E+00   0.0                                \r\n   2.000000E-01       4.574414E+00   0.0                       2.200000E-01      -1.276758E+00   0.0                                \r\n   2.400000E-01      -3.479883E+00   0.0                       2.600000E-01      -4.627735E+00   0.0                                \r\n   2.800000E-01      -8.438672E+00   0.0                       3.000000E-01      -1.151484E+01   0.0                                \r\n   3.200000E-01      -8.769141E+00   0.0                       3.400000E-01      -3.111914E+00   0.0                                \r\n   3.600000E-01      -3.972656E-01   0.0                       3.800000E-01       1.131797E+01   0.0                                \r\n   4.000000E-01       3.237246E+01   0.0                       4.200000E-01       4.628877E+01   0.0                                \r\n   4.400001E-01       3.175313E+01   0.0                       4.600001E-01       5.306250E+00   0.0                                \r\n   4.800001E-01      -1.416563E+01   0.0                       5.000001E-01      -2.650313E+01   0.0                                \r\n   5.200000E-01      -3.912188E+01   0.0                       5.400000E-01      -4.817813E+01   0.0                                \r\n   5.600000E-01      -4.609688E+01   0.0                       5.800000E-01      -3.045938E+01   0.0                                \r\n   6.000000E-01      -7.659375E+00   0.0                       6.199999E-01       9.740625E+00   0.0                                \r\n   6.399999E-01       2.187656E+01   0.0                       6.599999E-01       3.927891E+01   0.0                                \r\n   6.799999E-01       5.298164E+01   0.0                       6.999999E-01       4.512949E+01   0.0                                \r\n   7.199998E-01       2.589258E+01   0.0                       7.399998E-01       1.349063E+01   0.0                                \r\n   7.599998E-01      -3.187500E-01   0.0                       7.799998E-01      -2.421563E+01   0.0                                \r\n   7.999998E-01      -4.374375E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      41\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.894531E-01   0.0                       2.000000E-02       1.048828E+00   0.0                                \r\n   4.000000E-02       1.664063E+00   0.0                       6.000000E-02       1.152539E+00   0.0                                \r\n   8.000000E-02      -2.027344E-01   0.0                       9.999999E-02      -1.086328E+00   0.0                                \r\n   1.200000E-01      -1.113281E+00   0.0                       1.400000E-01      -1.246875E+00   0.0                                \r\n   1.600000E-01      -1.812891E+00   0.0                       1.800000E-01      -1.843359E+00   0.0                                \r\n   2.000000E-01      -8.314453E-01   0.0                       2.200000E-01       2.950195E-01   0.0                                \r\n   2.400000E-01       6.445312E-01   0.0                       2.600000E-01       7.792969E-01   0.0                                \r\n   2.800000E-01       1.522266E+00   0.0                       3.000000E-01       2.173828E+00   0.0                                \r\n   3.200000E-01       1.628906E+00   0.0                       3.400000E-01       4.968750E-01   0.0                                \r\n   3.600000E-01       4.306641E-02   0.0                       3.800000E-01      -1.853320E+00   0.0                                \r\n   4.000000E-01      -5.915039E+00   0.0                       4.200000E-01      -8.652246E+00   0.0                                \r\n   4.400001E-01      -5.910938E+00   0.0                       4.600001E-01      -8.015625E-01   0.0                                \r\n   4.800001E-01       2.662500E+00   0.0                       5.000001E-01       4.715625E+00   0.0                                \r\n   5.200000E-01       7.087500E+00   0.0                       5.400000E-01       8.831250E+00   0.0                                \r\n   5.600000E-01       8.493751E+00   0.0                       5.800000E-01       5.606250E+00   0.0                                \r\n   6.000000E-01       1.303125E+00   0.0                       6.199999E-01      -1.875000E+00   0.0                                \r\n   6.399999E-01      -3.820313E+00   0.0                       6.599999E-01      -7.065821E+00   0.0                                \r\n   6.799999E-01      -9.921680E+00   0.0                       6.999999E-01      -8.323536E+00   0.0                                \r\n   7.199998E-01      -4.462500E+00   0.0                       7.399998E-01      -2.451563E+00   0.0                                \r\n   7.599998E-01      -1.781250E-01   0.0                       7.799998E-01       4.453125E+00   0.0                                \r\n   7.999998E-01       8.137501E+00   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      42\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -2.894531E-01   0.0                       2.000000E-02      -1.048828E+00   0.0                                \r\n   4.000000E-02      -1.664063E+00   0.0                       6.000000E-02      -1.152539E+00   0.0                                \r\n   8.000000E-02       2.027344E-01   0.0                       9.999999E-02       1.086328E+00   0.0                                \r\n   1.200000E-01       1.113281E+00   0.0                       1.400000E-01       1.246875E+00   0.0                                \r\n   1.600000E-01       1.812891E+00   0.0                       1.800000E-01       1.843359E+00   0.0                                \r\n   2.000000E-01       8.314453E-01   0.0                       2.200000E-01      -2.950195E-01   0.0                                \r\n   2.400000E-01      -6.445312E-01   0.0                       2.600000E-01      -7.792969E-01   0.0                                \r\n   2.800000E-01      -1.522266E+00   0.0                       3.000000E-01      -2.173828E+00   0.0                                \r\n   3.200000E-01      -1.628906E+00   0.0                       3.400000E-01      -4.968750E-01   0.0                                \r\n   3.600000E-01      -4.306641E-02   0.0                       3.800000E-01       1.853320E+00   0.0                                \r\n   4.000000E-01       5.915039E+00   0.0                       4.200000E-01       8.652246E+00   0.0                                \r\n   4.400001E-01       5.910938E+00   0.0                       4.600001E-01       8.015625E-01   0.0                                \r\n   4.800001E-01      -2.662500E+00   0.0                       5.000001E-01      -4.715625E+00   0.0                                \r\n   5.200000E-01      -7.087500E+00   0.0                       5.400000E-01      -8.831250E+00   0.0                                \r\n   5.600000E-01      -8.493751E+00   0.0                       5.800000E-01      -5.606250E+00   0.0                                \r\n   6.000000E-01      -1.303125E+00   0.0                       6.199999E-01       1.875000E+00   0.0                                \r\n   6.399999E-01       3.820313E+00   0.0                       6.599999E-01       7.065821E+00   0.0                                \r\n   6.799999E-01       9.921680E+00   0.0                       6.999999E-01       8.323536E+00   0.0                                \r\n   7.199998E-01       4.462500E+00   0.0                       7.399998E-01       2.451563E+00   0.0                                \r\n   7.599998E-01       1.781250E-01   0.0                       7.799998E-01      -4.453125E+00   0.0                                \r\n   7.999998E-01      -8.137501E+00   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     111\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                2.267578E+01   0.0                       2.000000E-02       5.761729E+01   0.0                                \r\n   4.000000E-02       8.232275E+01   0.0                       6.000000E-02       5.333474E+01   0.0                                \r\n   8.000000E-02      -4.747902E+00   0.0                       9.999999E-02      -4.943464E+01   0.0                                \r\n   1.200000E-01      -6.458914E+01   0.0                       1.400000E-01      -7.649715E+01   0.0                                \r\n   1.600000E-01      -9.492569E+01   0.0                       1.800000E-01      -8.980664E+01   0.0                                \r\n   2.000000E-01      -4.537529E+01   0.0                       2.200000E-01       5.999552E+00   0.0                                \r\n   2.400000E-01       3.327517E+01   0.0                       2.600000E-01       5.253201E+01   0.0                                \r\n   2.800000E-01       8.506890E+01   0.0                       3.000000E-01       1.060280E+02   0.0                                \r\n   3.200000E-01       8.369604E+01   0.0                       3.400000E-01       3.793206E+01   0.0                                \r\n   3.600000E-01       6.863050E+00   0.0                       3.800000E-01      -1.362174E+02   0.0                                \r\n   4.000000E-01      -3.163435E+02   0.0                       4.200000E-01      -4.348787E+02   0.0                                \r\n   4.400001E-01      -3.012384E+02   0.0                       4.600001E-01      -7.051231E+01   0.0                                \r\n   4.800001E-01       1.324852E+02   0.0                       5.000001E-01       2.729906E+02   0.0                                \r\n   5.200000E-01       3.900867E+02   0.0                       5.400000E-01       4.706075E+02   0.0                                \r\n   5.600000E-01       4.471477E+02   0.0                       5.800000E-01       2.950746E+02   0.0                                \r\n   6.000000E-01       8.736270E+01   0.0                       6.199999E-01      -8.589111E+01   0.0                                \r\n   6.399999E-01      -2.345943E+02   0.0                       6.599999E-01      -3.972914E+02   0.0                                \r\n   6.799999E-01      -4.961568E+02   0.0                       6.999999E-01      -4.373898E+02   0.0                                \r\n   7.199998E-01      -2.820796E+02   0.0                       7.399998E-01      -1.338545E+02   0.0                                \r\n   7.599998E-01       2.636133E+01   0.0                       7.799998E-01       2.352914E+02   0.0                                \r\n   7.999998E-01       4.161469E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     112\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                6.458855E-10   0.0                       2.000000E-02      -7.552434E-10   0.0                                \r\n   4.000000E-02      -1.169786E-10   0.0                       6.000000E-02      -6.995764E-11   0.0                                \r\n   8.000000E-02       8.054632E-12   0.0                       9.999999E-02       6.217693E-11   0.0                                \r\n   1.200000E-01       9.178192E-11   0.0                       1.400000E-01       1.092217E-10   0.0                                \r\n   1.600000E-01       1.258363E-10   0.0                       1.800000E-01       1.243227E-10   0.0                                \r\n   2.000000E-01       6.496503E-11   0.0                       2.200000E-01      -1.120314E-11   0.0                                \r\n   2.400000E-01      -4.358547E-11   0.0                       2.600000E-01      -7.160739E-11   0.0                                \r\n   2.800000E-01      -1.219423E-10   0.0                       3.000000E-01      -1.423019E-10   0.0                                \r\n   3.200000E-01      -1.124947E-10   0.0                       3.400000E-01      -5.816461E-11   0.0                                \r\n   3.600000E-01      -7.920240E-12   0.0                       3.800000E-01      -5.317492E-09   0.0                                \r\n   4.000000E-01       5.923932E-09   0.0                       4.200000E-01       6.366843E-10   0.0                                \r\n   4.400001E-01       3.965228E-10   0.0                       4.600001E-01       7.601546E-11   0.0                                \r\n   4.800001E-01      -1.395337E-10   0.0                       5.000001E-01      -3.923486E-10   0.0                                \r\n   5.200000E-01      -5.642233E-10   0.0                       5.400000E-01      -6.074181E-10   0.0                                \r\n   5.600000E-01      -6.276015E-10   0.0                       5.800000E-01      -4.302628E-10   0.0                                \r\n   6.000000E-01      -8.495232E-11   0.0                       6.199999E-01       1.041893E-10   0.0                                \r\n   6.399999E-01       3.034831E-10   0.0                       6.599999E-01       5.861434E-10   0.0                                \r\n   6.799999E-01       6.653558E-10   0.0                       6.999999E-01       5.789358E-10   0.0                                \r\n   7.199998E-01       4.304013E-10   0.0                       7.399998E-01       1.707591E-10   0.0                                \r\n   7.599998E-01      -6.202059E-11   0.0                       7.799998E-01      -2.873619E-10   0.0                                \r\n   7.999998E-01      -5.851495E-10   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     113\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -2.267578E+01   0.0                       2.000000E-02      -5.761729E+01   0.0                                \r\n   4.000000E-02      -8.232275E+01   0.0                       6.000000E-02      -5.333474E+01   0.0                                \r\n   8.000000E-02       4.747902E+00   0.0                       9.999999E-02       4.943464E+01   0.0                                \r\n   1.200000E-01       6.458914E+01   0.0                       1.400000E-01       7.649715E+01   0.0                                \r\n   1.600000E-01       9.492569E+01   0.0                       1.800000E-01       8.980664E+01   0.0                                \r\n   2.000000E-01       4.537529E+01   0.0                       2.200000E-01      -5.999552E+00   0.0                                \r\n   2.400000E-01      -3.327517E+01   0.0                       2.600000E-01      -5.253201E+01   0.0                                \r\n   2.800000E-01      -8.506890E+01   0.0                       3.000000E-01      -1.060280E+02   0.0                                \r\n   3.200000E-01      -8.369604E+01   0.0                       3.400000E-01      -3.793206E+01   0.0                                \r\n   3.600000E-01      -6.863050E+00   0.0                       3.800000E-01       1.362174E+02   0.0                                \r\n   4.000000E-01       3.163435E+02   0.0                       4.200000E-01       4.348787E+02   0.0                                \r\n   4.400001E-01       3.012384E+02   0.0                       4.600001E-01       7.051231E+01   0.0                                \r\n   4.800001E-01      -1.324852E+02   0.0                       5.000001E-01      -2.729906E+02   0.0                                \r\n   5.200000E-01      -3.900867E+02   0.0                       5.400000E-01      -4.706075E+02   0.0                                \r\n   5.600000E-01      -4.471477E+02   0.0                       5.800000E-01      -2.950746E+02   0.0                                \r\n   6.000000E-01      -8.736270E+01   0.0                       6.199999E-01       8.589111E+01   0.0                                \r\n   6.399999E-01       2.345943E+02   0.0                       6.599999E-01       3.972914E+02   0.0                                \r\n   6.799999E-01       4.961568E+02   0.0                       6.999999E-01       4.373898E+02   0.0                                \r\n   7.199998E-01       2.820796E+02   0.0                       7.399998E-01       1.338545E+02   0.0                                \r\n   7.599998E-01      -2.636133E+01   0.0                       7.799998E-01      -2.352914E+02   0.0                                \r\n   7.999998E-01      -4.161469E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     121\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.196646E+01   0.0                       2.000000E-02       3.490532E+01   0.0                                \r\n   4.000000E-02       5.189912E+01   0.0                       6.000000E-02       3.457423E+01   0.0                                \r\n   8.000000E-02      -4.385392E+00   0.0                       9.999999E-02      -3.227025E+01   0.0                                \r\n   1.200000E-01      -3.821521E+01   0.0                       1.400000E-01      -4.431211E+01   0.0                                \r\n   1.600000E-01      -5.839278E+01   0.0                       1.800000E-01      -5.699165E+01   0.0                                \r\n   2.000000E-01      -2.749373E+01   0.0                       2.200000E-01       6.111347E+00   0.0                                \r\n   2.400000E-01       2.058062E+01   0.0                       2.600000E-01       2.937686E+01   0.0                                \r\n   2.800000E-01       5.109463E+01   0.0                       3.000000E-01       6.720542E+01   0.0                                \r\n   3.200000E-01       5.185511E+01   0.0                       3.400000E-01       2.045903E+01   0.0                                \r\n   3.600000E-01       3.096570E+00   0.0                       3.800000E-01      -7.378448E+01   0.0                                \r\n   4.000000E-01      -1.936057E+02   0.0                       4.200000E-01      -2.719619E+02   0.0                                \r\n   4.400001E-01      -1.875215E+02   0.0                       4.600001E-01      -3.653672E+01   0.0                                \r\n   4.800001E-01       8.341934E+01   0.0                       5.000001E-01       1.619777E+02   0.0                                \r\n   5.200000E-01       2.351871E+02   0.0                       5.400000E-01       2.876719E+02   0.0                                \r\n   5.600000E-01       2.750707E+02   0.0                       5.800000E-01       1.810570E+02   0.0                                \r\n   6.000000E-01       4.838672E+01   0.0                       6.199999E-01      -5.541592E+01   0.0                                \r\n   6.399999E-01      -1.356652E+02   0.0                       6.599999E-01      -2.384990E+02   0.0                                \r\n   6.799999E-01      -3.108813E+02   0.0                       6.999999E-01      -2.683471E+02   0.0                                \r\n   7.199998E-01      -1.623989E+02   0.0                       7.399998E-01      -8.095020E+01   0.0                                \r\n   7.599998E-01       8.182617E+00   0.0                       7.799998E-01       1.436660E+02   0.0                                \r\n   7.999998E-01       2.583715E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     122\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                6.619580E-09   0.0                       2.000000E-02      -7.741712E-09   0.0                                \r\n   4.000000E-02      -1.199526E-09   0.0                       6.000000E-02      -7.172099E-10   0.0                                \r\n   8.000000E-02       8.257790E-11   0.0                       9.999999E-02       6.374746E-10   0.0                                \r\n   1.200000E-01       9.411437E-10   0.0                       1.400000E-01       1.119465E-09   0.0                                \r\n   1.600000E-01       1.290694E-09   0.0                       1.800000E-01       1.275325E-09   0.0                                \r\n   2.000000E-01       6.662400E-10   0.0                       2.200000E-01      -1.148295E-10   0.0                                \r\n   2.400000E-01      -4.469476E-10   0.0                       2.600000E-01      -7.344639E-10   0.0                                \r\n   2.800000E-01      -1.250502E-09   0.0                       3.000000E-01      -1.459587E-09   0.0                                \r\n   3.200000E-01      -1.153841E-09   0.0                       3.400000E-01      -5.966313E-10   0.0                                \r\n   3.600000E-01      -8.118318E-11   0.0                       3.800000E-01      -5.450320E-08   0.0                                \r\n   4.000000E-01       6.071956E-08   0.0                       4.200000E-01       6.526503E-09   0.0                                \r\n   4.400001E-01       4.064325E-09   0.0                       4.600001E-01       7.748567E-10   0.0                                \r\n   4.800001E-01      -1.432878E-09   0.0                       5.000001E-01      -4.029490E-09   0.0                                \r\n   5.200000E-01      -5.788812E-09   0.0                       5.400000E-01      -6.233240E-09   0.0                                \r\n   5.600000E-01      -6.431695E-09   0.0                       5.800000E-01      -4.418576E-09   0.0                                \r\n   6.000000E-01      -8.739027E-10   0.0                       6.199999E-01       1.065780E-09   0.0                                \r\n   6.399999E-01       3.111085E-09   0.0                       6.599999E-01       6.008467E-09   0.0                                \r\n   6.799999E-01       6.821297E-09   0.0                       6.999999E-01       5.934502E-09   0.0                                \r\n   7.199998E-01       4.411685E-09   0.0                       7.399998E-01       1.749741E-09   0.0                                \r\n   7.599998E-01      -6.376644E-10   0.0                       7.799998E-01      -2.947569E-09   0.0                                \r\n   7.999998E-01      -6.008301E-09   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     123\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.196646E+01   0.0                       2.000000E-02      -3.490532E+01   0.0                                \r\n   4.000000E-02      -5.189912E+01   0.0                       6.000000E-02      -3.457423E+01   0.0                                \r\n   8.000000E-02       4.385392E+00   0.0                       9.999999E-02       3.227025E+01   0.0                                \r\n   1.200000E-01       3.821521E+01   0.0                       1.400000E-01       4.431211E+01   0.0                                \r\n   1.600000E-01       5.839278E+01   0.0                       1.800000E-01       5.699165E+01   0.0                                \r\n   2.000000E-01       2.749373E+01   0.0                       2.200000E-01      -6.111347E+00   0.0                                \r\n   2.400000E-01      -2.058062E+01   0.0                       2.600000E-01      -2.937686E+01   0.0                                \r\n   2.800000E-01      -5.109463E+01   0.0                       3.000000E-01      -6.720542E+01   0.0                                \r\n   3.200000E-01      -5.185511E+01   0.0                       3.400000E-01      -2.045903E+01   0.0                                \r\n   3.600000E-01      -3.096570E+00   0.0                       3.800000E-01       7.378448E+01   0.0                                \r\n   4.000000E-01       1.936057E+02   0.0                       4.200000E-01       2.719619E+02   0.0                                \r\n   4.400001E-01       1.875215E+02   0.0                       4.600001E-01       3.653672E+01   0.0                                \r\n   4.800001E-01      -8.341934E+01   0.0                       5.000001E-01      -1.619777E+02   0.0                                \r\n   5.200000E-01      -2.351871E+02   0.0                       5.400000E-01      -2.876719E+02   0.0                                \r\n   5.600000E-01      -2.750707E+02   0.0                       5.800000E-01      -1.810570E+02   0.0                                \r\n   6.000000E-01      -4.838672E+01   0.0                       6.199999E-01       5.541592E+01   0.0                                \r\n   6.399999E-01       1.356652E+02   0.0                       6.599999E-01       2.384990E+02   0.0                                \r\n   6.799999E-01       3.108813E+02   0.0                       6.999999E-01       2.683471E+02   0.0                                \r\n   7.199998E-01       1.623989E+02   0.0                       7.399998E-01       8.095020E+01   0.0                                \r\n   7.599998E-01      -8.182617E+00   0.0                       7.799998E-01      -1.436660E+02   0.0                                \r\n   7.999998E-01      -2.583715E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     131\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                5.019287E+00   0.0                       2.000000E-02       1.696626E+01   0.0                                \r\n   4.000000E-02       2.633987E+01   0.0                       6.000000E-02       1.802139E+01   0.0                                \r\n   8.000000E-02      -2.899647E+00   0.0                       9.999999E-02      -1.693125E+01   0.0                                \r\n   1.200000E-01      -1.817476E+01   0.0                       1.400000E-01      -2.059981E+01   0.0                                \r\n   1.600000E-01      -2.896465E+01   0.0                       1.800000E-01      -2.909722E+01   0.0                                \r\n   2.000000E-01      -1.340867E+01   0.0                       2.200000E-01       4.198261E+00   0.0                                \r\n   2.400000E-01       1.027057E+01   0.0                       2.600000E-01       1.312778E+01   0.0                                \r\n   2.800000E-01       2.467647E+01   0.0                       3.000000E-01       3.429829E+01   0.0                                \r\n   3.200000E-01       2.592268E+01   0.0                       3.400000E-01       8.679565E+00   0.0                                \r\n   3.600000E-01       9.661194E-01   0.0                       3.800000E-01      -3.185852E+01   0.0                                \r\n   4.000000E-01      -9.512549E+01   0.0                       4.200000E-01      -1.371326E+02   0.0                                \r\n   4.400001E-01      -9.405338E+01   0.0                       4.600001E-01      -1.457461E+01   0.0                                \r\n   4.800001E-01       4.224785E+01   0.0                       5.000001E-01       7.718320E+01   0.0                                \r\n   5.200000E-01       1.143609E+02   0.0                       5.400000E-01       1.417723E+02   0.0                                \r\n   5.600000E-01       1.360922E+02   0.0                       5.800000E-01       8.958984E+01   0.0                                \r\n   6.000000E-01       2.157832E+01   0.0                       6.199999E-01      -2.901826E+01   0.0                                \r\n   6.399999E-01      -6.304395E+01   0.0                       6.599999E-01      -1.149148E+02   0.0                                \r\n   6.799999E-01      -1.570923E+02   0.0                       6.999999E-01      -1.329344E+02   0.0                                \r\n   7.199998E-01      -7.455652E+01   0.0                       7.399998E-01      -3.945264E+01   0.0                                \r\n   7.599998E-01      -3.761719E-01   0.0                       7.799998E-01       7.104141E+01   0.0                                \r\n   7.999998E-01       1.294453E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     132\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                5.249033E-09   0.0                       2.000000E-02      -6.139206E-09   0.0                                \r\n   4.000000E-02      -9.512774E-10   0.0                       6.000000E-02      -5.687728E-10   0.0                                \r\n   8.000000E-02       6.547159E-11   0.0                       9.999999E-02       5.055742E-10   0.0                                \r\n   1.200000E-01       7.464583E-10   0.0                       1.400000E-01       8.879010E-10   0.0                                \r\n   1.600000E-01       1.023678E-09   0.0                       1.800000E-01       1.011412E-09   0.0                                \r\n   2.000000E-01       5.284203E-10   0.0                       2.200000E-01      -9.102541E-11   0.0                                \r\n   2.400000E-01      -3.544709E-10   0.0                       2.600000E-01      -5.825559E-10   0.0                                \r\n   2.800000E-01      -9.917870E-10   0.0                       3.000000E-01      -1.157616E-09   0.0                                \r\n   3.200000E-01      -9.151459E-10   0.0                       3.400000E-01      -4.732294E-10   0.0                                \r\n   3.600000E-01      -6.440840E-11   0.0                       3.800000E-01      -4.322028E-08   0.0                                \r\n   4.000000E-01       4.814959E-08   0.0                       4.200000E-01       5.175272E-09   0.0                                \r\n   4.400001E-01       3.222404E-09   0.0                       4.600001E-01       6.138232E-10   0.0                                \r\n   4.800001E-01      -1.137485E-09   0.0                       5.000001E-01      -3.196390E-09   0.0                                \r\n   5.200000E-01      -4.591817E-09   0.0                       5.400000E-01      -4.944847E-09   0.0                                \r\n   5.600000E-01      -5.101697E-09   0.0                       5.800000E-01      -3.505031E-09   0.0                                \r\n   6.000000E-01      -6.942040E-10   0.0                       6.199999E-01       8.446160E-10   0.0                                \r\n   6.399999E-01       2.466670E-09   0.0                       6.599999E-01       4.764362E-09   0.0                                \r\n   6.799999E-01       5.409094E-09   0.0                       6.999999E-01       4.705884E-09   0.0                                \r\n   7.199998E-01       3.498202E-09   0.0                       7.399998E-01       1.386803E-09   0.0                                \r\n   7.599998E-01      -5.063311E-10   0.0                       7.799998E-01      -2.338495E-09   0.0                                \r\n   7.999998E-01      -4.766221E-09   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     133\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -5.019287E+00   0.0                       2.000000E-02      -1.696626E+01   0.0                                \r\n   4.000000E-02      -2.633987E+01   0.0                       6.000000E-02      -1.802139E+01   0.0                                \r\n   8.000000E-02       2.899647E+00   0.0                       9.999999E-02       1.693125E+01   0.0                                \r\n   1.200000E-01       1.817476E+01   0.0                       1.400000E-01       2.059981E+01   0.0                                \r\n   1.600000E-01       2.896465E+01   0.0                       1.800000E-01       2.909722E+01   0.0                                \r\n   2.000000E-01       1.340867E+01   0.0                       2.200000E-01      -4.198261E+00   0.0                                \r\n   2.400000E-01      -1.027057E+01   0.0                       2.600000E-01      -1.312778E+01   0.0                                \r\n   2.800000E-01      -2.467647E+01   0.0                       3.000000E-01      -3.429829E+01   0.0                                \r\n   3.200000E-01      -2.592268E+01   0.0                       3.400000E-01      -8.679565E+00   0.0                                \r\n   3.600000E-01      -9.661194E-01   0.0                       3.800000E-01       3.185852E+01   0.0                                \r\n   4.000000E-01       9.512549E+01   0.0                       4.200000E-01       1.371326E+02   0.0                                \r\n   4.400001E-01       9.405338E+01   0.0                       4.600001E-01       1.457461E+01   0.0                                \r\n   4.800001E-01      -4.224785E+01   0.0                       5.000001E-01      -7.718320E+01   0.0                                \r\n   5.200000E-01      -1.143609E+02   0.0                       5.400000E-01      -1.417723E+02   0.0                                \r\n   5.600000E-01      -1.360922E+02   0.0                       5.800000E-01      -8.958984E+01   0.0                                \r\n   6.000000E-01      -2.157832E+01   0.0                       6.199999E-01       2.901826E+01   0.0                                \r\n   6.399999E-01       6.304395E+01   0.0                       6.599999E-01       1.149148E+02   0.0                                \r\n   6.799999E-01       1.570923E+02   0.0                       6.999999E-01       1.329344E+02   0.0                                \r\n   7.199998E-01       7.455652E+01   0.0                       7.399998E-01       3.945264E+01   0.0                                \r\n   7.599998E-01       3.761719E-01   0.0                       7.799998E-01      -7.104141E+01   0.0                                \r\n   7.999998E-01      -1.294453E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     141\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.223145E+00   0.0                       2.000000E-02       4.981934E+00   0.0                                \r\n   4.000000E-02       8.112671E+00   0.0                       6.000000E-02       5.704981E+00   0.0                                \r\n   8.000000E-02      -1.104781E+00   0.0                       9.999999E-02      -5.396484E+00   0.0                                \r\n   1.200000E-01      -5.212574E+00   0.0                       1.400000E-01      -5.745264E+00   0.0                                \r\n   1.600000E-01      -8.716553E+00   0.0                       1.800000E-01      -9.020728E+00   0.0                                \r\n   2.000000E-01      -3.955005E+00   0.0                       2.200000E-01       1.637558E+00   0.0                                \r\n   2.400000E-01       3.108655E+00   0.0                       2.600000E-01       3.485083E+00   0.0                                \r\n   2.800000E-01       7.202637E+00   0.0                       3.000000E-01       1.062686E+01   0.0                                \r\n   3.200000E-01       7.868189E+00   0.0                       3.400000E-01       2.131787E+00   0.0                                \r\n   3.600000E-01       1.020264E-01   0.0                       3.800000E-01      -8.111206E+00   0.0                                \r\n   4.000000E-01      -2.825728E+01   0.0                       4.200000E-01      -4.195787E+01   0.0                                \r\n   4.400001E-01      -2.863301E+01   0.0                       4.600001E-01      -3.242578E+00   0.0                                \r\n   4.800001E-01       1.300723E+01   0.0                       5.000001E-01       2.218242E+01   0.0                                \r\n   5.200000E-01       3.364219E+01   0.0                       5.400000E-01       4.236914E+01   0.0                                \r\n   5.600000E-01       4.081524E+01   0.0                       5.800000E-01       2.685703E+01   0.0                                \r\n   6.000000E-01       5.732227E+00   0.0                       6.199999E-01      -9.227345E+00   0.0                                \r\n   6.399999E-01      -1.761401E+01   0.0                       6.599999E-01      -3.343805E+01   0.0                                \r\n   6.799999E-01      -4.818076E+01   0.0                       6.999999E-01      -3.996944E+01   0.0                                \r\n   7.199998E-01      -2.045515E+01   0.0                       7.399998E-01      -1.161738E+01   0.0                                \r\n   7.599998E-01      -1.599023E+00   0.0                       7.799998E-01       2.131113E+01   0.0                                \r\n   7.999998E-01       3.939141E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     142\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.783216E-09   0.0                       2.000000E-02      -2.085199E-09   0.0                                \r\n   4.000000E-02      -3.229889E-10   0.0                       6.000000E-02      -1.931287E-10   0.0                                \r\n   8.000000E-02       2.224857E-11   0.0                       9.999999E-02       1.716532E-10   0.0                                \r\n   1.200000E-01       2.533927E-10   0.0                       1.400000E-01       3.013821E-10   0.0                                \r\n   1.600000E-01       3.475186E-10   0.0                       1.800000E-01       3.434385E-10   0.0                                \r\n   2.000000E-01       1.793940E-10   0.0                       2.200000E-01      -3.093752E-11   0.0                                \r\n   2.400000E-01      -1.203333E-10   0.0                       2.600000E-01      -1.976933E-10   0.0                                \r\n   2.800000E-01      -3.367083E-10   0.0                       3.000000E-01      -3.930112E-10   0.0                                \r\n   3.200000E-01      -3.107110E-10   0.0                       3.400000E-01      -1.606293E-10   0.0                                \r\n   3.600000E-01      -2.184871E-11   0.0                       3.800000E-01      -1.468119E-08   0.0                                \r\n   4.000000E-01       1.635551E-08   0.0                       4.200000E-01       1.757990E-09   0.0                                \r\n   4.400001E-01       1.095041E-09   0.0                       4.600001E-01       2.093087E-10   0.0                                \r\n   4.800001E-01      -3.851514E-10   0.0                       5.000001E-01      -1.084520E-09   0.0                                \r\n   5.200000E-01      -1.558149E-09   0.0                       5.400000E-01      -1.677179E-09   0.0                                \r\n   5.600000E-01      -1.731387E-09   0.0                       5.800000E-01      -1.189138E-09   0.0                                \r\n   6.000000E-01      -2.345743E-10   0.0                       6.199999E-01       2.875041E-10   0.0                                \r\n   6.399999E-01       8.383043E-10   0.0                       6.599999E-01       1.618497E-09   0.0                                \r\n   6.799999E-01       1.837505E-09   0.0                       6.999999E-01       1.598273E-09   0.0                                \r\n   7.199998E-01       1.188662E-09   0.0                       7.399998E-01       4.716885E-10   0.0                                \r\n   7.599998E-01      -1.709998E-10   0.0                       7.799998E-01      -7.928512E-10   0.0                                \r\n   7.999998E-01      -1.617201E-09   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     143\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.223145E+00   0.0                       2.000000E-02      -4.981934E+00   0.0                                \r\n   4.000000E-02      -8.112671E+00   0.0                       6.000000E-02      -5.704981E+00   0.0                                \r\n   8.000000E-02       1.104781E+00   0.0                       9.999999E-02       5.396484E+00   0.0                                \r\n   1.200000E-01       5.212574E+00   0.0                       1.400000E-01       5.745264E+00   0.0                                \r\n   1.600000E-01       8.716553E+00   0.0                       1.800000E-01       9.020728E+00   0.0                                \r\n   2.000000E-01       3.955005E+00   0.0                       2.200000E-01      -1.637558E+00   0.0                                \r\n   2.400000E-01      -3.108655E+00   0.0                       2.600000E-01      -3.485083E+00   0.0                                \r\n   2.800000E-01      -7.202637E+00   0.0                       3.000000E-01      -1.062686E+01   0.0                                \r\n   3.200000E-01      -7.868189E+00   0.0                       3.400000E-01      -2.131787E+00   0.0                                \r\n   3.600000E-01      -1.020264E-01   0.0                       3.800000E-01       8.111206E+00   0.0                                \r\n   4.000000E-01       2.825728E+01   0.0                       4.200000E-01       4.195787E+01   0.0                                \r\n   4.400001E-01       2.863301E+01   0.0                       4.600001E-01       3.242578E+00   0.0                                \r\n   4.800001E-01      -1.300723E+01   0.0                       5.000001E-01      -2.218242E+01   0.0                                \r\n   5.200000E-01      -3.364219E+01   0.0                       5.400000E-01      -4.236914E+01   0.0                                \r\n   5.600000E-01      -4.081524E+01   0.0                       5.800000E-01      -2.685703E+01   0.0                                \r\n   6.000000E-01      -5.732227E+00   0.0                       6.199999E-01       9.227345E+00   0.0                                \r\n   6.399999E-01       1.761401E+01   0.0                       6.599999E-01       3.343805E+01   0.0                                \r\n   6.799999E-01       4.818076E+01   0.0                       6.999999E-01       3.996944E+01   0.0                                \r\n   7.199998E-01       2.045515E+01   0.0                       7.399998E-01       1.161738E+01   0.0                                \r\n   7.599998E-01       1.599023E+00   0.0                       7.799998E-01      -2.131113E+01   0.0                                \r\n   7.999998E-01      -3.939141E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     211\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.340068E+01   0.0                       2.000000E-02      -2.799199E+01   0.0                                \r\n   4.000000E-02      -3.730444E+01   0.0                       6.000000E-02      -2.287617E+01   0.0                                \r\n   8.000000E-02       3.002197E-01   0.0                       9.999999E-02       2.088721E+01   0.0                                \r\n   1.200000E-01       3.260464E+01   0.0                       1.400000E-01       3.993721E+01   0.0                                \r\n   1.600000E-01       4.494463E+01   0.0                       1.800000E-01       4.013994E+01   0.0                                \r\n   2.000000E-01       2.206377E+01   0.0                       2.200000E-01       4.349121E-01   0.0                                \r\n   2.400000E-01      -1.563464E+01   0.0                       2.600000E-01      -2.882300E+01   0.0                                \r\n   2.800000E-01      -4.190742E+01   0.0                       3.000000E-01      -4.755586E+01   0.0                                \r\n   3.200000E-01      -3.914355E+01   0.0                       3.400000E-01      -2.179146E+01   0.0                                \r\n   3.600000E-01      -4.774182E+00   0.0                       3.800000E-01       7.751397E+01   0.0                                \r\n   4.000000E-01       1.513151E+02   0.0                       4.200000E-01       2.003178E+02   0.0                                \r\n   4.400001E-01       1.395920E+02   0.0                       4.600001E-01       4.220742E+01   0.0                                \r\n   4.800001E-01      -5.984531E+01   0.0                       5.000001E-01      -1.370648E+02   0.0                                \r\n   5.200000E-01      -1.915406E+02   0.0                       5.400000E-01      -2.251828E+02   0.0                                \r\n   5.600000E-01      -2.113055E+02   0.0                       5.800000E-01      -1.406555E+02   0.0                                \r\n   6.000000E-01      -4.874063E+01   0.0                       6.199999E-01       3.765938E+01   0.0                                \r\n   6.399999E-01       1.225676E+02   0.0                       6.599999E-01       1.956406E+02   0.0                                \r\n   6.799999E-01       2.276805E+02   0.0                       6.999999E-01       2.081640E+02   0.0                                \r\n   7.199998E-01       1.480146E+02   0.0                       7.399998E-01       6.546680E+01   0.0                                \r\n   7.599998E-01      -2.293242E+01   0.0                       7.799998E-01      -1.133250E+02   0.0                                \r\n   7.999998E-01      -1.938586E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     212\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.340068E+01   0.0                       2.000000E-02       2.799199E+01   0.0                                \r\n   4.000000E-02       3.730444E+01   0.0                       6.000000E-02       2.287617E+01   0.0                                \r\n   8.000000E-02      -3.002197E-01   0.0                       9.999999E-02      -2.088721E+01   0.0                                \r\n   1.200000E-01      -3.260464E+01   0.0                       1.400000E-01      -3.993721E+01   0.0                                \r\n   1.600000E-01      -4.494463E+01   0.0                       1.800000E-01      -4.013994E+01   0.0                                \r\n   2.000000E-01      -2.206377E+01   0.0                       2.200000E-01      -4.349121E-01   0.0                                \r\n   2.400000E-01       1.563464E+01   0.0                       2.600000E-01       2.882300E+01   0.0                                \r\n   2.800000E-01       4.190742E+01   0.0                       3.000000E-01       4.755586E+01   0.0                                \r\n   3.200000E-01       3.914355E+01   0.0                       3.400000E-01       2.179146E+01   0.0                                \r\n   3.600000E-01       4.774182E+00   0.0                       3.800000E-01      -7.751397E+01   0.0                                \r\n   4.000000E-01      -1.513151E+02   0.0                       4.200000E-01      -2.003178E+02   0.0                                \r\n   4.400001E-01      -1.395920E+02   0.0                       4.600001E-01      -4.220742E+01   0.0                                \r\n   4.800001E-01       5.984531E+01   0.0                       5.000001E-01       1.370648E+02   0.0                                \r\n   5.200000E-01       1.915406E+02   0.0                       5.400000E-01       2.251828E+02   0.0                                \r\n   5.600000E-01       2.113055E+02   0.0                       5.800000E-01       1.406555E+02   0.0                                \r\n   6.000000E-01       4.874063E+01   0.0                       6.199999E-01      -3.765938E+01   0.0                                \r\n   6.399999E-01      -1.225676E+02   0.0                       6.599999E-01      -1.956406E+02   0.0                                \r\n   6.799999E-01      -2.276805E+02   0.0                       6.999999E-01      -2.081640E+02   0.0                                \r\n   7.199998E-01      -1.480146E+02   0.0                       7.399998E-01      -6.546680E+01   0.0                                \r\n   7.599998E-01       2.293242E+01   0.0                       7.799998E-01       1.133250E+02   0.0                                \r\n   7.999998E-01       1.938586E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     221\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -8.787598E+00   0.0                       2.000000E-02      -2.201953E+01   0.0                                \r\n   4.000000E-02      -3.109658E+01   0.0                       6.000000E-02      -1.999321E+01   0.0                                \r\n   8.000000E-02       1.616071E+00   0.0                       9.999999E-02       1.848662E+01   0.0                                \r\n   1.200000E-01       2.472979E+01   0.0                       1.400000E-01       2.942461E+01   0.0                                \r\n   1.600000E-01       3.600352E+01   0.0                       1.800000E-01       3.385430E+01   0.0                                \r\n   2.000000E-01       1.730171E+01   0.0                       2.200000E-01      -1.974976E+00   0.0                                \r\n   2.400000E-01      -1.261436E+01   0.0                       2.600000E-01      -2.030859E+01   0.0                                \r\n   2.800000E-01      -3.248174E+01   0.0                       3.000000E-01      -3.998145E+01   0.0                                \r\n   3.200000E-01      -3.168135E+01   0.0                       3.400000E-01      -1.480986E+01   0.0                                \r\n   3.600000E-01      -2.776099E+00   0.0                       3.800000E-01       5.250747E+01   0.0                                \r\n   4.000000E-01       1.207377E+02   0.0                       4.200000E-01       1.645260E+02   0.0                                \r\n   4.400001E-01       1.139977E+02   0.0                       4.600001E-01       2.765508E+01   0.0                                \r\n   4.800001E-01      -4.992656E+01   0.0                       5.000001E-01      -1.044914E+02   0.0                                \r\n   5.200000E-01      -1.487555E+02   0.0                       5.400000E-01      -1.787203E+02   0.0                                \r\n   5.600000E-01      -1.697977E+02   0.0                       5.800000E-01      -1.121555E+02   0.0                                \r\n   6.000000E-01      -3.368672E+01   0.0                       6.199999E-01       3.218438E+01   0.0                                \r\n   6.399999E-01       9.004102E+01   0.0                       6.599999E-01       1.518218E+02   0.0                                \r\n   6.799999E-01       1.875447E+02   0.0                       6.999999E-01       1.658491E+02   0.0                                \r\n   7.199998E-01       1.087963E+02   0.0                       7.399998E-01       5.109258E+01   0.0                                \r\n   7.599998E-01      -1.142578E+01   0.0                       7.799998E-01      -8.928516E+01   0.0                                \r\n   7.999998E-01      -1.574062E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     222\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                8.787598E+00   0.0                       2.000000E-02       2.201953E+01   0.0                                \r\n   4.000000E-02       3.109658E+01   0.0                       6.000000E-02       1.999321E+01   0.0                                \r\n   8.000000E-02      -1.616071E+00   0.0                       9.999999E-02      -1.848662E+01   0.0                                \r\n   1.200000E-01      -2.472979E+01   0.0                       1.400000E-01      -2.942461E+01   0.0                                \r\n   1.600000E-01      -3.600352E+01   0.0                       1.800000E-01      -3.385430E+01   0.0                                \r\n   2.000000E-01      -1.730171E+01   0.0                       2.200000E-01       1.974976E+00   0.0                                \r\n   2.400000E-01       1.261436E+01   0.0                       2.600000E-01       2.030859E+01   0.0                                \r\n   2.800000E-01       3.248174E+01   0.0                       3.000000E-01       3.998145E+01   0.0                                \r\n   3.200000E-01       3.168135E+01   0.0                       3.400000E-01       1.480986E+01   0.0                                \r\n   3.600000E-01       2.776099E+00   0.0                       3.800000E-01      -5.250747E+01   0.0                                \r\n   4.000000E-01      -1.207377E+02   0.0                       4.200000E-01      -1.645260E+02   0.0                                \r\n   4.400001E-01      -1.139977E+02   0.0                       4.600001E-01      -2.765508E+01   0.0                                \r\n   4.800001E-01       4.992656E+01   0.0                       5.000001E-01       1.044914E+02   0.0                                \r\n   5.200000E-01       1.487555E+02   0.0                       5.400000E-01       1.787203E+02   0.0                                \r\n   5.600000E-01       1.697977E+02   0.0                       5.800000E-01       1.121555E+02   0.0                                \r\n   6.000000E-01       3.368672E+01   0.0                       6.199999E-01      -3.218438E+01   0.0                                \r\n   6.399999E-01      -9.004102E+01   0.0                       6.599999E-01      -1.518218E+02   0.0                                \r\n   6.799999E-01      -1.875447E+02   0.0                       6.999999E-01      -1.658491E+02   0.0                                \r\n   7.199998E-01      -1.087963E+02   0.0                       7.399998E-01      -5.109258E+01   0.0                                \r\n   7.599998E-01       1.142578E+01   0.0                       7.799998E-01       8.928516E+01   0.0                                \r\n   7.999998E-01       1.574062E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     231\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -4.885547E+00   0.0                       2.000000E-02      -1.459190E+01   0.0                                \r\n   4.000000E-02      -2.185928E+01   0.0                       6.000000E-02      -1.462163E+01   0.0                                \r\n   8.000000E-02       1.949487E+00   0.0                       9.999999E-02       1.365601E+01   0.0                                \r\n   1.200000E-01       1.591377E+01   0.0                       1.400000E-01       1.840459E+01   0.0                                \r\n   1.600000E-01       2.449102E+01   0.0                       1.800000E-01       2.400645E+01   0.0                                \r\n   2.000000E-01       1.150752E+01   0.0                       2.200000E-01      -2.718530E+00   0.0                                \r\n   2.400000E-01      -8.652979E+00   0.0                       2.600000E-01      -1.211865E+01   0.0                                \r\n   2.800000E-01      -2.132607E+01   0.0                       3.000000E-01      -2.833037E+01   0.0                                \r\n   3.200000E-01      -2.178106E+01   0.0                       3.400000E-01      -8.363965E+00   0.0                                \r\n   3.600000E-01      -1.225708E+00   0.0                       3.800000E-01       3.009668E+01   0.0                                \r\n   4.000000E-01       8.117374E+01   0.0                       4.200000E-01       1.145350E+02   0.0                                \r\n   4.400001E-01       7.877286E+01   0.0                       4.600001E-01       1.468125E+01   0.0                                \r\n   4.800001E-01      -3.498985E+01   0.0                       5.000001E-01      -6.742500E+01   0.0                                \r\n   5.200000E-01      -9.849375E+01   0.0                       5.400000E-01      -1.204875E+02   0.0                                \r\n   5.600000E-01      -1.151719E+02   0.0                       5.800000E-01      -7.604766E+01   0.0                                \r\n   6.000000E-01      -2.002500E+01   0.0                       6.199999E-01       2.363789E+01   0.0                                \r\n   6.399999E-01       5.625000E+01   0.0                       6.599999E-01       9.941236E+01   0.0                                \r\n   6.799999E-01       1.309516E+02   0.0                       6.999999E-01       1.125615E+02   0.0                                \r\n   7.199998E-01       6.708691E+01   0.0                       7.399998E-01       3.395274E+01   0.0                                \r\n   7.599998E-01      -2.688281E+00   0.0                       7.799998E-01      -6.041484E+01   0.0                                \r\n   7.999998E-01      -1.085438E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     232\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                4.885547E+00   0.0                       2.000000E-02       1.459190E+01   0.0                                \r\n   4.000000E-02       2.185928E+01   0.0                       6.000000E-02       1.462163E+01   0.0                                \r\n   8.000000E-02      -1.949487E+00   0.0                       9.999999E-02      -1.365601E+01   0.0                                \r\n   1.200000E-01      -1.591377E+01   0.0                       1.400000E-01      -1.840459E+01   0.0                                \r\n   1.600000E-01      -2.449102E+01   0.0                       1.800000E-01      -2.400645E+01   0.0                                \r\n   2.000000E-01      -1.150752E+01   0.0                       2.200000E-01       2.718530E+00   0.0                                \r\n   2.400000E-01       8.652979E+00   0.0                       2.600000E-01       1.211865E+01   0.0                                \r\n   2.800000E-01       2.132607E+01   0.0                       3.000000E-01       2.833037E+01   0.0                                \r\n   3.200000E-01       2.178106E+01   0.0                       3.400000E-01       8.363965E+00   0.0                                \r\n   3.600000E-01       1.225708E+00   0.0                       3.800000E-01      -3.009668E+01   0.0                                \r\n   4.000000E-01      -8.117374E+01   0.0                       4.200000E-01      -1.145350E+02   0.0                                \r\n   4.400001E-01      -7.877286E+01   0.0                       4.600001E-01      -1.468125E+01   0.0                                \r\n   4.800001E-01       3.498985E+01   0.0                       5.000001E-01       6.742500E+01   0.0                                \r\n   5.200000E-01       9.849375E+01   0.0                       5.400000E-01       1.204875E+02   0.0                                \r\n   5.600000E-01       1.151719E+02   0.0                       5.800000E-01       7.604766E+01   0.0                                \r\n   6.000000E-01       2.002500E+01   0.0                       6.199999E-01      -2.363789E+01   0.0                                \r\n   6.399999E-01      -5.625000E+01   0.0                       6.599999E-01      -9.941236E+01   0.0                                \r\n   6.799999E-01      -1.309516E+02   0.0                       6.999999E-01      -1.125615E+02   0.0                                \r\n   7.199998E-01      -6.708691E+01   0.0                       7.399998E-01      -3.395274E+01   0.0                                \r\n   7.599998E-01       2.688281E+00   0.0                       7.799998E-01       6.041484E+01   0.0                                \r\n   7.999998E-01       1.085438E+02   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     241\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0               -1.641211E+00   0.0                       2.000000E-02      -5.943750E+00   0.0                                \r\n   4.000000E-02      -9.429199E+00   0.0                       6.000000E-02      -6.529981E+00   0.0                                \r\n   8.000000E-02       1.146497E+00   0.0                       9.999999E-02       6.152637E+00   0.0                                \r\n   1.200000E-01       6.308789E+00   0.0                       1.400000E-01       7.075196E+00   0.0                                \r\n   1.600000E-01       1.026914E+01   0.0                       1.800000E-01       1.043965E+01   0.0                                \r\n   2.000000E-01       4.712110E+00   0.0                       2.200000E-01      -1.669116E+00   0.0                                \r\n   2.400000E-01      -3.654199E+00   0.0                       2.600000E-01      -4.422363E+00   0.0                                \r\n   2.800000E-01      -8.625000E+00   0.0                       3.000000E-01      -1.231172E+01   0.0                                \r\n   3.200000E-01      -9.227930E+00   0.0                       3.400000E-01      -2.825977E+00   0.0                                \r\n   3.600000E-01      -2.468262E-01   0.0                       3.800000E-01       1.052051E+01   0.0                                \r\n   4.000000E-01       3.351841E+01   0.0                       4.200000E-01       4.900818E+01   0.0                                \r\n   4.400001E-01       3.349570E+01   0.0                       4.600001E-01       4.530469E+00   0.0                                \r\n   4.800001E-01      -1.508672E+01   0.0                       5.000001E-01      -2.678906E+01   0.0                                \r\n   5.200000E-01      -4.020938E+01   0.0                       5.400000E-01      -5.010469E+01   0.0                                \r\n   5.600000E-01      -4.808438E+01   0.0                       5.800000E-01      -3.174375E+01   0.0                                \r\n   6.000000E-01      -7.321875E+00   0.0                       6.199999E-01       1.061953E+01   0.0                                \r\n   6.399999E-01       2.166211E+01   0.0                       6.599999E-01       4.005535E+01   0.0                                \r\n   6.799999E-01       5.619917E+01   0.0                       6.999999E-01       4.715186E+01   0.0                                \r\n   7.199998E-01       2.531309E+01   0.0                       7.399998E-01       1.387734E+01   0.0                                \r\n   7.599998E-01       9.867188E-01   0.0                       7.799998E-01      -2.524688E+01   0.0                                \r\n   7.999998E-01      -4.612969E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     242\r\n\r\n                                           F O R C E S   I N   R O D   E L E M E N T S     ( C R O D )\r\n \r\n                         AXIAL                                                       AXIAL\r\n       TIME              FORCE         TORQUE                      TIME              FORCE         TORQUE\r\n   0.0                1.641211E+00   0.0                       2.000000E-02       5.943750E+00   0.0                                \r\n   4.000000E-02       9.429199E+00   0.0                       6.000000E-02       6.529981E+00   0.0                                \r\n   8.000000E-02      -1.146497E+00   0.0                       9.999999E-02      -6.152637E+00   0.0                                \r\n   1.200000E-01      -6.308789E+00   0.0                       1.400000E-01      -7.075196E+00   0.0                                \r\n   1.600000E-01      -1.026914E+01   0.0                       1.800000E-01      -1.043965E+01   0.0                                \r\n   2.000000E-01      -4.712110E+00   0.0                       2.200000E-01       1.669116E+00   0.0                                \r\n   2.400000E-01       3.654199E+00   0.0                       2.600000E-01       4.422363E+00   0.0                                \r\n   2.800000E-01       8.625000E+00   0.0                       3.000000E-01       1.231172E+01   0.0                                \r\n   3.200000E-01       9.227930E+00   0.0                       3.400000E-01       2.825977E+00   0.0                                \r\n   3.600000E-01       2.468262E-01   0.0                       3.800000E-01      -1.052051E+01   0.0                                \r\n   4.000000E-01      -3.351841E+01   0.0                       4.200000E-01      -4.900818E+01   0.0                                \r\n   4.400001E-01      -3.349570E+01   0.0                       4.600001E-01      -4.530469E+00   0.0                                \r\n   4.800001E-01       1.508672E+01   0.0                       5.000001E-01       2.678906E+01   0.0                                \r\n   5.200000E-01       4.020938E+01   0.0                       5.400000E-01       5.010469E+01   0.0                                \r\n   5.600000E-01       4.808438E+01   0.0                       5.800000E-01       3.174375E+01   0.0                                \r\n   6.000000E-01       7.321875E+00   0.0                       6.199999E-01      -1.061953E+01   0.0                                \r\n   6.399999E-01      -2.166211E+01   0.0                       6.599999E-01      -4.005535E+01   0.0                                \r\n   6.799999E-01      -5.619917E+01   0.0                       6.999999E-01      -4.715186E+01   0.0                                \r\n   7.199998E-01      -2.531309E+01   0.0                       7.399998E-01      -1.387734E+01   0.0                                \r\n   7.599998E-01      -9.867188E-01   0.0                       7.799998E-01       2.524688E+01   0.0                                \r\n   7.999998E-01       4.612969E+01   0.0                                                                                            \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       1\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            9.065625E+01              0.0                     2.000000E-02   6.886914E+01              0.0                    \r\n   4.000000E-02   4.224219E+01              0.0                     6.000000E-02   2.406738E+01              0.0                    \r\n   8.000000E-02   2.257935E+00              0.0                     9.999999E-02  -2.146777E+01              0.0                    \r\n   1.200000E-01  -4.158398E+01              0.0                     1.400000E-01  -5.289062E+01              0.0                    \r\n   1.600000E-01  -5.376367E+01              0.0                     1.800000E-01  -4.442773E+01              0.0                    \r\n   2.000000E-01  -2.714746E+01              0.0                     2.200000E-01  -5.271973E+00              0.0                    \r\n   2.400000E-01   1.868164E+01              0.0                     2.600000E-01   3.997266E+01              0.0                    \r\n   2.800000E-01   5.198633E+01              0.0                     3.000000E-01   5.322070E+01              0.0                    \r\n   3.200000E-01   4.627539E+01              0.0                     3.400000E-01   3.100391E+01              0.0                    \r\n   3.600000E-01   7.810547E+00              0.0                     3.800000E-01   3.833887E+01              0.0                    \r\n   4.000000E-01   4.723652E+02              0.0                     4.200000E-01   5.693496E+02              0.0                    \r\n   4.400001E-01   6.404023E+02              0.0                     4.600001E-01   7.421172E+02              0.0                    \r\n   4.800001E-01   8.689219E+02              0.0                     5.000001E-01   9.756719E+02              0.0                    \r\n   5.200000E-01   1.043031E+03              0.0                     5.400000E-01   1.074938E+03              0.0                    \r\n   5.600000E-01   1.051750E+03              0.0                     5.800000E-01   9.734375E+02              0.0                    \r\n   6.000000E-01   8.729688E+02              0.0                     6.199999E-01   7.589375E+02              0.0                    \r\n   6.399999E-01   6.405664E+02              0.0                     6.599999E-01   5.619912E+02              0.0                    \r\n   6.799999E-01   5.385638E+02              0.0                     6.999999E-01   5.510127E+02              0.0                    \r\n   7.199998E-01   6.098867E+02              0.0                     7.399998E-01   7.207031E+02              0.0                    \r\n   7.599998E-01   8.411562E+02              0.0                     7.799998E-01   9.441562E+02              0.0                    \r\n   7.999998E-01   1.030656E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =       2\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -9.065625E+01              0.0                     2.000000E-02  -6.886914E+01              0.0                    \r\n   4.000000E-02  -4.224219E+01              0.0                     6.000000E-02  -2.406738E+01              0.0                    \r\n   8.000000E-02  -2.257935E+00              0.0                     9.999999E-02   2.146777E+01              0.0                    \r\n   1.200000E-01   4.158398E+01              0.0                     1.400000E-01   5.289062E+01              0.0                    \r\n   1.600000E-01   5.376367E+01              0.0                     1.800000E-01   4.442773E+01              0.0                    \r\n   2.000000E-01   2.714746E+01              0.0                     2.200000E-01   5.271973E+00              0.0                    \r\n   2.400000E-01  -1.868164E+01              0.0                     2.600000E-01  -3.997266E+01              0.0                    \r\n   2.800000E-01  -5.198633E+01              0.0                     3.000000E-01  -5.322070E+01              0.0                    \r\n   3.200000E-01  -4.627539E+01              0.0                     3.400000E-01  -3.100391E+01              0.0                    \r\n   3.600000E-01  -7.810547E+00              0.0                     3.800000E-01  -3.833887E+01              0.0                    \r\n   4.000000E-01  -4.723652E+02              0.0                     4.200000E-01  -5.693496E+02              0.0                    \r\n   4.400001E-01  -6.404023E+02              0.0                     4.600001E-01  -7.421172E+02              0.0                    \r\n   4.800001E-01  -8.689219E+02              0.0                     5.000001E-01  -9.756719E+02              0.0                    \r\n   5.200000E-01  -1.043031E+03              0.0                     5.400000E-01  -1.074938E+03              0.0                    \r\n   5.600000E-01  -1.051750E+03              0.0                     5.800000E-01  -9.734375E+02              0.0                    \r\n   6.000000E-01  -8.729688E+02              0.0                     6.199999E-01  -7.589375E+02              0.0                    \r\n   6.399999E-01  -6.405664E+02              0.0                     6.599999E-01  -5.619912E+02              0.0                    \r\n   6.799999E-01  -5.385638E+02              0.0                     6.999999E-01  -5.510127E+02              0.0                    \r\n   7.199998E-01  -6.098867E+02              0.0                     7.399998E-01  -7.207031E+02              0.0                    \r\n   7.599998E-01  -8.411562E+02              0.0                     7.799998E-01  -9.441562E+02              0.0                    \r\n   7.999998E-01  -1.030656E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      11\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.148828E+01              0.0                     2.000000E-02   4.918359E+01              0.0                    \r\n   4.000000E-02   6.754297E+01              0.0                     6.000000E-02   4.248145E+01              0.0                    \r\n   8.000000E-02  -2.120728E+00              0.0                     9.999999E-02  -3.905371E+01              0.0                    \r\n   1.200000E-01  -5.620703E+01              0.0                     1.400000E-01  -6.784766E+01              0.0                    \r\n   1.600000E-01  -7.968359E+01              0.0                     1.800000E-01  -7.313281E+01              0.0                    \r\n   2.000000E-01  -3.869141E+01              0.0                     2.200000E-01   1.914551E+00              0.0                    \r\n   2.400000E-01   2.782324E+01              0.0                     2.600000E-01   4.788867E+01              0.0                    \r\n   2.800000E-01   7.305469E+01              0.0                     3.000000E-01   8.649219E+01              0.0                    \r\n   3.200000E-01   6.976953E+01              0.0                     3.400000E-01   3.558594E+01              0.0                    \r\n   3.600000E-01   7.257324E+00              0.0                     3.800000E-01  -1.262227E+02              0.0                    \r\n   4.000000E-01  -2.678896E+02              0.0                     4.200000E-01  -3.598477E+02              0.0                    \r\n   4.400001E-01  -2.500000E+02              0.0                     4.600001E-01  -6.771875E+01              0.0                    \r\n   4.800001E-01   1.084062E+02              0.0                     5.000001E-01   2.369062E+02              0.0                    \r\n   5.200000E-01   3.341875E+02              0.0                     5.400000E-01   3.972812E+02              0.0                    \r\n   5.600000E-01   3.752812E+02              0.0                     5.800000E-01   2.487812E+02              0.0                    \r\n   6.000000E-01   8.020312E+01              0.0                     6.199999E-01  -6.907812E+01              0.0                    \r\n   6.399999E-01  -2.078906E+02              0.0                     6.599999E-01  -3.412754E+02              0.0                    \r\n   6.799999E-01  -4.096135E+02              0.0                     6.999999E-01  -3.679844E+02              0.0                    \r\n   7.199998E-01  -2.512188E+02              0.0                     7.399998E-01  -1.145156E+02              0.0                    \r\n   7.599998E-01   3.270312E+01              0.0                     7.799998E-01   1.991875E+02              0.0                    \r\n   7.999998E-01   3.461250E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      12\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -2.148828E+01              0.0                     2.000000E-02  -4.918359E+01              0.0                    \r\n   4.000000E-02  -6.754297E+01              0.0                     6.000000E-02  -4.248145E+01              0.0                    \r\n   8.000000E-02   2.120728E+00              0.0                     9.999999E-02   3.905371E+01              0.0                    \r\n   1.200000E-01   5.620703E+01              0.0                     1.400000E-01   6.784766E+01              0.0                    \r\n   1.600000E-01   7.968359E+01              0.0                     1.800000E-01   7.313281E+01              0.0                    \r\n   2.000000E-01   3.869141E+01              0.0                     2.200000E-01  -1.914551E+00              0.0                    \r\n   2.400000E-01  -2.782324E+01              0.0                     2.600000E-01  -4.788867E+01              0.0                    \r\n   2.800000E-01  -7.305469E+01              0.0                     3.000000E-01  -8.649219E+01              0.0                    \r\n   3.200000E-01  -6.976953E+01              0.0                     3.400000E-01  -3.558594E+01              0.0                    \r\n   3.600000E-01  -7.257324E+00              0.0                     3.800000E-01   1.262227E+02              0.0                    \r\n   4.000000E-01   2.678896E+02              0.0                     4.200000E-01   3.598477E+02              0.0                    \r\n   4.400001E-01   2.500000E+02              0.0                     4.600001E-01   6.771875E+01              0.0                    \r\n   4.800001E-01  -1.084062E+02              0.0                     5.000001E-01  -2.369062E+02              0.0                    \r\n   5.200000E-01  -3.341875E+02              0.0                     5.400000E-01  -3.972812E+02              0.0                    \r\n   5.600000E-01  -3.752812E+02              0.0                     5.800000E-01  -2.487812E+02              0.0                    \r\n   6.000000E-01  -8.020312E+01              0.0                     6.199999E-01   6.907812E+01              0.0                    \r\n   6.399999E-01   2.078906E+02              0.0                     6.599999E-01   3.412754E+02              0.0                    \r\n   6.799999E-01   4.096135E+02              0.0                     6.999999E-01   3.679844E+02              0.0                    \r\n   7.199998E-01   2.512188E+02              0.0                     7.399998E-01   1.145156E+02              0.0                    \r\n   7.599998E-01  -3.270312E+01              0.0                     7.799998E-01  -1.991875E+02              0.0                    \r\n   7.999998E-01  -3.461250E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      21\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.309375E+01              0.0                     2.000000E-02   3.555469E+01              0.0                    \r\n   4.000000E-02   5.166406E+01              0.0                     6.000000E-02   3.387695E+01              0.0                    \r\n   8.000000E-02  -3.633301E+00              0.0                     9.999999E-02  -3.147852E+01              0.0                    \r\n   1.200000E-01  -3.937500E+01              0.0                     1.400000E-01  -4.623828E+01              0.0                    \r\n   1.600000E-01  -5.885938E+01              0.0                     1.800000E-01  -5.648438E+01              0.0                    \r\n   2.000000E-01  -2.798828E+01              0.0                     2.200000E-01   4.828613E+00              0.0                    \r\n   2.400000E-01   2.070996E+01              0.0                     2.600000E-01   3.123047E+01              0.0                    \r\n   2.800000E-01   5.221094E+01              0.0                     3.000000E-01   6.669531E+01              0.0                    \r\n   3.200000E-01   5.206250E+01              0.0                     3.400000E-01   2.222461E+01              0.0                    \r\n   3.600000E-01   3.770508E+00              0.0                     3.800000E-01  -7.923828E+01              0.0                    \r\n   4.000000E-01  -1.963467E+02              0.0                     4.200000E-01  -2.720742E+02              0.0                    \r\n   4.400001E-01  -1.878047E+02              0.0                     4.600001E-01  -4.037500E+01              0.0                    \r\n   4.800001E-01   8.278125E+01              0.0                     5.000001E-01   1.665938E+02              0.0                    \r\n   5.200000E-01   2.401250E+02              0.0                     5.400000E-01   2.909688E+02              0.0                    \r\n   5.600000E-01   2.771875E+02              0.0                     5.800000E-01   1.830938E+02              0.0                    \r\n   6.000000E-01   5.171875E+01              0.0                     6.199999E-01  -5.470312E+01              0.0                    \r\n   6.399999E-01  -1.413828E+02              0.0                     6.599999E-01  -2.437236E+02              0.0                    \r\n   6.799999E-01  -3.105859E+02              0.0                     6.999999E-01  -2.708510E+02              0.0                    \r\n   7.199998E-01  -1.698125E+02              0.0                     7.399998E-01  -8.262500E+01              0.0                    \r\n   7.599998E-01   1.275000E+01              0.0                     7.799998E-01   1.456250E+02              0.0                    \r\n   7.999998E-01   2.590312E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      22\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.309375E+01              0.0                     2.000000E-02  -3.555469E+01              0.0                    \r\n   4.000000E-02  -5.166406E+01              0.0                     6.000000E-02  -3.387695E+01              0.0                    \r\n   8.000000E-02   3.633301E+00              0.0                     9.999999E-02   3.147852E+01              0.0                    \r\n   1.200000E-01   3.937500E+01              0.0                     1.400000E-01   4.623828E+01              0.0                    \r\n   1.600000E-01   5.885938E+01              0.0                     1.800000E-01   5.648438E+01              0.0                    \r\n   2.000000E-01   2.798828E+01              0.0                     2.200000E-01  -4.828613E+00              0.0                    \r\n   2.400000E-01  -2.070996E+01              0.0                     2.600000E-01  -3.123047E+01              0.0                    \r\n   2.800000E-01  -5.221094E+01              0.0                     3.000000E-01  -6.669531E+01              0.0                    \r\n   3.200000E-01  -5.206250E+01              0.0                     3.400000E-01  -2.222461E+01              0.0                    \r\n   3.600000E-01  -3.770508E+00              0.0                     3.800000E-01   7.923828E+01              0.0                    \r\n   4.000000E-01   1.963467E+02              0.0                     4.200000E-01   2.720742E+02              0.0                    \r\n   4.400001E-01   1.878047E+02              0.0                     4.600001E-01   4.037500E+01              0.0                    \r\n   4.800001E-01  -8.278125E+01              0.0                     5.000001E-01  -1.665938E+02              0.0                    \r\n   5.200000E-01  -2.401250E+02              0.0                     5.400000E-01  -2.909688E+02              0.0                    \r\n   5.600000E-01  -2.771875E+02              0.0                     5.800000E-01  -1.830938E+02              0.0                    \r\n   6.000000E-01  -5.171875E+01              0.0                     6.199999E-01   5.470312E+01              0.0                    \r\n   6.399999E-01   1.413828E+02              0.0                     6.599999E-01   2.437236E+02              0.0                    \r\n   6.799999E-01   3.105859E+02              0.0                     6.999999E-01   2.708510E+02              0.0                    \r\n   7.199998E-01   1.698125E+02              0.0                     7.399998E-01   8.262500E+01              0.0                    \r\n   7.599998E-01  -1.275000E+01              0.0                     7.799998E-01  -1.456250E+02              0.0                    \r\n   7.999998E-01  -2.590312E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      31\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            6.050781E+00              0.0                     2.000000E-02   1.929688E+01              0.0                    \r\n   4.000000E-02   2.953516E+01              0.0                     6.000000E-02   2.001562E+01              0.0                    \r\n   8.000000E-02  -2.995361E+00              0.0                     9.999999E-02  -1.875586E+01              0.0                    \r\n   1.200000E-01  -2.083984E+01              0.0                     1.400000E-01  -2.384766E+01              0.0                    \r\n   1.600000E-01  -3.273828E+01              0.0                     1.800000E-01  -3.252734E+01              0.0                    \r\n   2.000000E-01  -1.524805E+01              0.0                     2.200000E-01   4.255859E+00              0.0                    \r\n   2.400000E-01   1.159961E+01              0.0                     2.600000E-01   1.542578E+01              0.0                    \r\n   2.800000E-01   2.812891E+01              0.0                     3.000000E-01   3.838281E+01              0.0                    \r\n   3.200000E-01   2.923047E+01              0.0                     3.400000E-01   1.037305E+01              0.0                    \r\n   3.600000E-01   1.324219E+00              0.0                     3.800000E-01  -3.772656E+01              0.0                    \r\n   4.000000E-01  -1.079082E+02              0.0                     4.200000E-01  -1.542959E+02              0.0                    \r\n   4.400001E-01  -1.058438E+02              0.0                     4.600001E-01  -1.768750E+01              0.0                    \r\n   4.800001E-01   4.721875E+01              0.0                     5.000001E-01   8.834375E+01              0.0                    \r\n   5.200000E-01   1.304062E+02              0.0                     5.400000E-01   1.605938E+02              0.0                    \r\n   5.600000E-01   1.536562E+02              0.0                     5.800000E-01   1.015312E+02              0.0                    \r\n   6.000000E-01   2.553125E+01              0.0                     6.199999E-01  -3.246875E+01              0.0                    \r\n   6.399999E-01  -7.292188E+01              0.0                     6.599999E-01  -1.309297E+02              0.0                    \r\n   6.799999E-01  -1.766055E+02              0.0                     6.999999E-01  -1.504316E+02              0.0                    \r\n   7.199998E-01  -8.630859E+01              0.0                     7.399998E-01  -4.496875E+01              0.0                    \r\n   7.599998E-01   1.062500E+00              0.0                     7.799998E-01   8.071875E+01              0.0                    \r\n   7.999998E-01   1.458125E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      32\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -6.050781E+00              0.0                     2.000000E-02  -1.929688E+01              0.0                    \r\n   4.000000E-02  -2.953516E+01              0.0                     6.000000E-02  -2.001562E+01              0.0                    \r\n   8.000000E-02   2.995361E+00              0.0                     9.999999E-02   1.875586E+01              0.0                    \r\n   1.200000E-01   2.083984E+01              0.0                     1.400000E-01   2.384766E+01              0.0                    \r\n   1.600000E-01   3.273828E+01              0.0                     1.800000E-01   3.252734E+01              0.0                    \r\n   2.000000E-01   1.524805E+01              0.0                     2.200000E-01  -4.255859E+00              0.0                    \r\n   2.400000E-01  -1.159961E+01              0.0                     2.600000E-01  -1.542578E+01              0.0                    \r\n   2.800000E-01  -2.812891E+01              0.0                     3.000000E-01  -3.838281E+01              0.0                    \r\n   3.200000E-01  -2.923047E+01              0.0                     3.400000E-01  -1.037305E+01              0.0                    \r\n   3.600000E-01  -1.324219E+00              0.0                     3.800000E-01   3.772656E+01              0.0                    \r\n   4.000000E-01   1.079082E+02              0.0                     4.200000E-01   1.542959E+02              0.0                    \r\n   4.400001E-01   1.058438E+02              0.0                     4.600001E-01   1.768750E+01              0.0                    \r\n   4.800001E-01  -4.721875E+01              0.0                     5.000001E-01  -8.834375E+01              0.0                    \r\n   5.200000E-01  -1.304062E+02              0.0                     5.400000E-01  -1.605938E+02              0.0                    \r\n   5.600000E-01  -1.536562E+02              0.0                     5.800000E-01  -1.015312E+02              0.0                    \r\n   6.000000E-01  -2.553125E+01              0.0                     6.199999E-01   3.246875E+01              0.0                    \r\n   6.399999E-01   7.292188E+01              0.0                     6.599999E-01   1.309297E+02              0.0                    \r\n   6.799999E-01   1.766055E+02              0.0                     6.999999E-01   1.504316E+02              0.0                    \r\n   7.199998E-01   8.630859E+01              0.0                     7.399998E-01   4.496875E+01              0.0                    \r\n   7.599998E-01  -1.062500E+00              0.0                     7.799998E-01  -8.071875E+01              0.0                    \r\n   7.999998E-01  -1.458125E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      41\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            9.648438E-01              0.0                     2.000000E-02   3.496094E+00              0.0                    \r\n   4.000000E-02   5.546875E+00              0.0                     6.000000E-02   3.841797E+00              0.0                    \r\n   8.000000E-02  -6.757812E-01              0.0                     9.999999E-02  -3.621094E+00              0.0                    \r\n   1.200000E-01  -3.710938E+00              0.0                     1.400000E-01  -4.156250E+00              0.0                    \r\n   1.600000E-01  -6.042969E+00              0.0                     1.800000E-01  -6.144531E+00              0.0                    \r\n   2.000000E-01  -2.771484E+00              0.0                     2.200000E-01   9.833984E-01              0.0                    \r\n   2.400000E-01   2.148438E+00              0.0                     2.600000E-01   2.597656E+00              0.0                    \r\n   2.800000E-01   5.074219E+00              0.0                     3.000000E-01   7.246094E+00              0.0                    \r\n   3.200000E-01   5.429688E+00              0.0                     3.400000E-01   1.656250E+00              0.0                    \r\n   3.600000E-01   1.435547E-01              0.0                     3.800000E-01  -6.177734E+00              0.0                    \r\n   4.000000E-01  -1.971680E+01              0.0                     4.200000E-01  -2.884082E+01              0.0                    \r\n   4.400001E-01  -1.970312E+01              0.0                     4.600001E-01  -2.671875E+00              0.0                    \r\n   4.800001E-01   8.875000E+00              0.0                     5.000001E-01   1.571875E+01              0.0                    \r\n   5.200000E-01   2.362500E+01              0.0                     5.400000E-01   2.943750E+01              0.0                    \r\n   5.600000E-01   2.831250E+01              0.0                     5.800000E-01   1.868750E+01              0.0                    \r\n   6.000000E-01   4.343750E+00              0.0                     6.199999E-01  -6.250000E+00              0.0                    \r\n   6.399999E-01  -1.273438E+01              0.0                     6.599999E-01  -2.355273E+01              0.0                    \r\n   6.799999E-01  -3.307227E+01              0.0                     6.999999E-01  -2.774512E+01              0.0                    \r\n   7.199998E-01  -1.487500E+01              0.0                     7.399998E-01  -8.171875E+00              0.0                    \r\n   7.599998E-01  -5.937500E-01              0.0                     7.799998E-01   1.484375E+01              0.0                    \r\n   7.999998E-01   2.712500E+01              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =      42\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -9.648438E-01              0.0                     2.000000E-02  -3.496094E+00              0.0                    \r\n   4.000000E-02  -5.546875E+00              0.0                     6.000000E-02  -3.841797E+00              0.0                    \r\n   8.000000E-02   6.757812E-01              0.0                     9.999999E-02   3.621094E+00              0.0                    \r\n   1.200000E-01   3.710938E+00              0.0                     1.400000E-01   4.156250E+00              0.0                    \r\n   1.600000E-01   6.042969E+00              0.0                     1.800000E-01   6.144531E+00              0.0                    \r\n   2.000000E-01   2.771484E+00              0.0                     2.200000E-01  -9.833984E-01              0.0                    \r\n   2.400000E-01  -2.148438E+00              0.0                     2.600000E-01  -2.597656E+00              0.0                    \r\n   2.800000E-01  -5.074219E+00              0.0                     3.000000E-01  -7.246094E+00              0.0                    \r\n   3.200000E-01  -5.429688E+00              0.0                     3.400000E-01  -1.656250E+00              0.0                    \r\n   3.600000E-01  -1.435547E-01              0.0                     3.800000E-01   6.177734E+00              0.0                    \r\n   4.000000E-01   1.971680E+01              0.0                     4.200000E-01   2.884082E+01              0.0                    \r\n   4.400001E-01   1.970312E+01              0.0                     4.600001E-01   2.671875E+00              0.0                    \r\n   4.800001E-01  -8.875000E+00              0.0                     5.000001E-01  -1.571875E+01              0.0                    \r\n   5.200000E-01  -2.362500E+01              0.0                     5.400000E-01  -2.943750E+01              0.0                    \r\n   5.600000E-01  -2.831250E+01              0.0                     5.800000E-01  -1.868750E+01              0.0                    \r\n   6.000000E-01  -4.343750E+00              0.0                     6.199999E-01   6.250000E+00              0.0                    \r\n   6.399999E-01   1.273438E+01              0.0                     6.599999E-01   2.355273E+01              0.0                    \r\n   6.799999E-01   3.307227E+01              0.0                     6.999999E-01   2.774512E+01              0.0                    \r\n   7.199998E-01   1.487500E+01              0.0                     7.399998E-01   8.171875E+00              0.0                    \r\n   7.599998E-01   5.937500E-01              0.0                     7.799998E-01  -1.484375E+01              0.0                    \r\n   7.999998E-01  -2.712500E+01              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     111\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            7.558594E+01              0.0                     2.000000E-02   1.920576E+02              0.0                    \r\n   4.000000E-02   2.744092E+02              0.0                     6.000000E-02   1.777825E+02              0.0                    \r\n   8.000000E-02  -1.582634E+01              0.0                     9.999999E-02  -1.647821E+02              0.0                    \r\n   1.200000E-01  -2.152971E+02              0.0                     1.400000E-01  -2.549905E+02              0.0                    \r\n   1.600000E-01  -3.164189E+02              0.0                     1.800000E-01  -2.993555E+02              0.0                    \r\n   2.000000E-01  -1.512510E+02              0.0                     2.200000E-01   1.999850E+01              0.0                    \r\n   2.400000E-01   1.109172E+02              0.0                     2.600000E-01   1.751067E+02              0.0                    \r\n   2.800000E-01   2.835630E+02              0.0                     3.000000E-01   3.534265E+02              0.0                    \r\n   3.200000E-01   2.789868E+02              0.0                     3.400000E-01   1.264402E+02              0.0                    \r\n   3.600000E-01   2.287683E+01              0.0                     3.800000E-01  -4.540581E+02              0.0                    \r\n   4.000000E-01  -1.054478E+03              0.0                     4.200000E-01  -1.449595E+03              0.0                    \r\n   4.400001E-01  -1.004128E+03              0.0                     4.600001E-01  -2.350410E+02              0.0                    \r\n   4.800001E-01   4.416172E+02              0.0                     5.000001E-01   9.099688E+02              0.0                    \r\n   5.200000E-01   1.300289E+03              0.0                     5.400000E-01   1.568691E+03              0.0                    \r\n   5.600000E-01   1.490492E+03              0.0                     5.800000E-01   9.835820E+02              0.0                    \r\n   6.000000E-01   2.912090E+02              0.0                     6.199999E-01  -2.863037E+02              0.0                    \r\n   6.399999E-01  -7.819810E+02              0.0                     6.599999E-01  -1.324305E+03              0.0                    \r\n   6.799999E-01  -1.653856E+03              0.0                     6.999999E-01  -1.457966E+03              0.0                    \r\n   7.199998E-01  -9.402651E+02              0.0                     7.399998E-01  -4.461816E+02              0.0                    \r\n   7.599998E-01   8.787109E+01              0.0                     7.799998E-01   7.843047E+02              0.0                    \r\n   7.999998E-01   1.387156E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     112\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.152952E-09              0.0                     2.000000E-02  -2.517478E-09              0.0                    \r\n   4.000000E-02  -3.899285E-10              0.0                     6.000000E-02  -2.331921E-10              0.0                    \r\n   8.000000E-02   2.684877E-11              0.0                     9.999999E-02   2.072564E-10              0.0                    \r\n   1.200000E-01   3.059397E-10              0.0                     1.400000E-01   3.640723E-10              0.0                    \r\n   1.600000E-01   4.194542E-10              0.0                     1.800000E-01   4.144090E-10              0.0                    \r\n   2.000000E-01   2.165501E-10              0.0                     2.200000E-01  -3.734379E-11              0.0                    \r\n   2.400000E-01  -1.452849E-10              0.0                     2.600000E-01  -2.386913E-10              0.0                    \r\n   2.800000E-01  -4.064744E-10              0.0                     3.000000E-01  -4.743397E-10              0.0                    \r\n   3.200000E-01  -3.749823E-10              0.0                     3.400000E-01  -1.938820E-10              0.0                    \r\n   3.600000E-01  -2.640080E-11              0.0                     3.800000E-01  -1.772497E-08              0.0                    \r\n   4.000000E-01   1.974644E-08              0.0                     4.200000E-01   2.122281E-09              0.0                    \r\n   4.400001E-01   1.321743E-09              0.0                     4.600001E-01   2.533849E-10              0.0                    \r\n   4.800001E-01  -4.651124E-10              0.0                     5.000001E-01  -1.307829E-09              0.0                    \r\n   5.200000E-01  -1.880744E-09              0.0                     5.400000E-01  -2.024727E-09              0.0                    \r\n   5.600000E-01  -2.092005E-09              0.0                     5.800000E-01  -1.434209E-09              0.0                    \r\n   6.000000E-01  -2.831744E-10              0.0                     6.199999E-01   3.472977E-10              0.0                    \r\n   6.399999E-01   1.011610E-09              0.0                     6.599999E-01   1.953811E-09              0.0                    \r\n   6.799999E-01   2.217853E-09              0.0                     6.999999E-01   1.929786E-09              0.0                    \r\n   7.199998E-01   1.434671E-09              0.0                     7.399998E-01   5.691971E-10              0.0                    \r\n   7.599998E-01  -2.067353E-10              0.0                     7.799998E-01  -9.578729E-10              0.0                    \r\n   7.999998E-01  -1.950498E-09              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     113\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -7.558594E+01              0.0                     2.000000E-02  -1.920576E+02              0.0                    \r\n   4.000000E-02  -2.744092E+02              0.0                     6.000000E-02  -1.777825E+02              0.0                    \r\n   8.000000E-02   1.582634E+01              0.0                     9.999999E-02   1.647821E+02              0.0                    \r\n   1.200000E-01   2.152971E+02              0.0                     1.400000E-01   2.549905E+02              0.0                    \r\n   1.600000E-01   3.164189E+02              0.0                     1.800000E-01   2.993555E+02              0.0                    \r\n   2.000000E-01   1.512510E+02              0.0                     2.200000E-01  -1.999850E+01              0.0                    \r\n   2.400000E-01  -1.109172E+02              0.0                     2.600000E-01  -1.751067E+02              0.0                    \r\n   2.800000E-01  -2.835630E+02              0.0                     3.000000E-01  -3.534265E+02              0.0                    \r\n   3.200000E-01  -2.789868E+02              0.0                     3.400000E-01  -1.264402E+02              0.0                    \r\n   3.600000E-01  -2.287683E+01              0.0                     3.800000E-01   4.540581E+02              0.0                    \r\n   4.000000E-01   1.054478E+03              0.0                     4.200000E-01   1.449595E+03              0.0                    \r\n   4.400001E-01   1.004128E+03              0.0                     4.600001E-01   2.350410E+02              0.0                    \r\n   4.800001E-01  -4.416172E+02              0.0                     5.000001E-01  -9.099688E+02              0.0                    \r\n   5.200000E-01  -1.300289E+03              0.0                     5.400000E-01  -1.568691E+03              0.0                    \r\n   5.600000E-01  -1.490492E+03              0.0                     5.800000E-01  -9.835820E+02              0.0                    \r\n   6.000000E-01  -2.912090E+02              0.0                     6.199999E-01   2.863037E+02              0.0                    \r\n   6.399999E-01   7.819810E+02              0.0                     6.599999E-01   1.324305E+03              0.0                    \r\n   6.799999E-01   1.653856E+03              0.0                     6.999999E-01   1.457966E+03              0.0                    \r\n   7.199998E-01   9.402651E+02              0.0                     7.399998E-01   4.461816E+02              0.0                    \r\n   7.599998E-01  -8.787109E+01              0.0                     7.799998E-01  -7.843047E+02              0.0                    \r\n   7.999998E-01  -1.387156E+03              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     121\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            3.988818E+01              0.0                     2.000000E-02   1.163511E+02              0.0                    \r\n   4.000000E-02   1.729971E+02              0.0                     6.000000E-02   1.152474E+02              0.0                    \r\n   8.000000E-02  -1.461797E+01              0.0                     9.999999E-02  -1.075675E+02              0.0                    \r\n   1.200000E-01  -1.273840E+02              0.0                     1.400000E-01  -1.477070E+02              0.0                    \r\n   1.600000E-01  -1.946426E+02              0.0                     1.800000E-01  -1.899722E+02              0.0                    \r\n   2.000000E-01  -9.164575E+01              0.0                     2.200000E-01   2.037115E+01              0.0                    \r\n   2.400000E-01   6.860205E+01              0.0                     2.600000E-01   9.792285E+01              0.0                    \r\n   2.800000E-01   1.703154E+02              0.0                     3.000000E-01   2.240181E+02              0.0                    \r\n   3.200000E-01   1.728503E+02              0.0                     3.400000E-01   6.819678E+01              0.0                    \r\n   3.600000E-01   1.032190E+01              0.0                     3.800000E-01  -2.459482E+02              0.0                    \r\n   4.000000E-01  -6.453523E+02              0.0                     4.200000E-01  -9.065397E+02              0.0                    \r\n   4.400001E-01  -6.250718E+02              0.0                     4.600001E-01  -1.217891E+02              0.0                    \r\n   4.800001E-01   2.780645E+02              0.0                     5.000001E-01   5.399258E+02              0.0                    \r\n   5.200000E-01   7.839570E+02              0.0                     5.400000E-01   9.589062E+02              0.0                    \r\n   5.600000E-01   9.169023E+02              0.0                     5.800000E-01   6.035234E+02              0.0                    \r\n   6.000000E-01   1.612891E+02              0.0                     6.199999E-01  -1.847197E+02              0.0                    \r\n   6.399999E-01  -4.522173E+02              0.0                     6.599999E-01  -7.949966E+02              0.0                    \r\n   6.799999E-01  -1.036271E+03              0.0                     6.999999E-01  -8.944902E+02              0.0                    \r\n   7.199998E-01  -5.413296E+02              0.0                     7.399998E-01  -2.698340E+02              0.0                    \r\n   7.599998E-01   2.727539E+01              0.0                     7.799998E-01   4.788867E+02              0.0                    \r\n   7.999998E-01   8.612383E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     122\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.206527E-08              0.0                     2.000000E-02  -2.580571E-08              0.0                    \r\n   4.000000E-02  -3.998422E-09              0.0                     6.000000E-02  -2.390700E-09              0.0                    \r\n   8.000000E-02   2.752596E-10              0.0                     9.999999E-02   2.124915E-09              0.0                    \r\n   1.200000E-01   3.137145E-09              0.0                     1.400000E-01   3.731549E-09              0.0                    \r\n   1.600000E-01   4.302315E-09              0.0                     1.800000E-01   4.251083E-09              0.0                    \r\n   2.000000E-01   2.220800E-09              0.0                     2.200000E-01  -3.827651E-10              0.0                    \r\n   2.400000E-01  -1.489825E-09              0.0                     2.600000E-01  -2.448213E-09              0.0                    \r\n   2.800000E-01  -4.168341E-09              0.0                     3.000000E-01  -4.865290E-09              0.0                    \r\n   3.200000E-01  -3.846137E-09              0.0                     3.400000E-01  -1.988771E-09              0.0                    \r\n   3.600000E-01  -2.706106E-10              0.0                     3.800000E-01  -1.816773E-07              0.0                    \r\n   4.000000E-01   2.023985E-07              0.0                     4.200000E-01   2.175501E-08              0.0                    \r\n   4.400001E-01   1.354775E-08              0.0                     4.600001E-01   2.582855E-09              0.0                    \r\n   4.800001E-01  -4.776261E-09              0.0                     5.000001E-01  -1.343163E-08              0.0                    \r\n   5.200000E-01  -1.929604E-08              0.0                     5.400000E-01  -2.077747E-08              0.0                    \r\n   5.600000E-01  -2.143898E-08              0.0                     5.800000E-01  -1.472858E-08              0.0                    \r\n   6.000000E-01  -2.913009E-09              0.0                     6.199999E-01   3.552601E-09              0.0                    \r\n   6.399999E-01   1.037028E-08              0.0                     6.599999E-01   2.002822E-08              0.0                    \r\n   6.799999E-01   2.273766E-08              0.0                     6.999999E-01   1.978167E-08              0.0                    \r\n   7.199998E-01   1.470562E-08              0.0                     7.399998E-01   5.832471E-09              0.0                    \r\n   7.599998E-01  -2.125548E-09              0.0                     7.799998E-01  -9.825230E-09              0.0                    \r\n   7.999998E-01  -2.002767E-08              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     123\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -3.988818E+01              0.0                     2.000000E-02  -1.163511E+02              0.0                    \r\n   4.000000E-02  -1.729971E+02              0.0                     6.000000E-02  -1.152474E+02              0.0                    \r\n   8.000000E-02   1.461797E+01              0.0                     9.999999E-02   1.075675E+02              0.0                    \r\n   1.200000E-01   1.273840E+02              0.0                     1.400000E-01   1.477070E+02              0.0                    \r\n   1.600000E-01   1.946426E+02              0.0                     1.800000E-01   1.899722E+02              0.0                    \r\n   2.000000E-01   9.164575E+01              0.0                     2.200000E-01  -2.037115E+01              0.0                    \r\n   2.400000E-01  -6.860205E+01              0.0                     2.600000E-01  -9.792285E+01              0.0                    \r\n   2.800000E-01  -1.703154E+02              0.0                     3.000000E-01  -2.240181E+02              0.0                    \r\n   3.200000E-01  -1.728503E+02              0.0                     3.400000E-01  -6.819678E+01              0.0                    \r\n   3.600000E-01  -1.032190E+01              0.0                     3.800000E-01   2.459482E+02              0.0                    \r\n   4.000000E-01   6.453523E+02              0.0                     4.200000E-01   9.065397E+02              0.0                    \r\n   4.400001E-01   6.250718E+02              0.0                     4.600001E-01   1.217891E+02              0.0                    \r\n   4.800001E-01  -2.780645E+02              0.0                     5.000001E-01  -5.399258E+02              0.0                    \r\n   5.200000E-01  -7.839570E+02              0.0                     5.400000E-01  -9.589062E+02              0.0                    \r\n   5.600000E-01  -9.169023E+02              0.0                     5.800000E-01  -6.035234E+02              0.0                    \r\n   6.000000E-01  -1.612891E+02              0.0                     6.199999E-01   1.847197E+02              0.0                    \r\n   6.399999E-01   4.522173E+02              0.0                     6.599999E-01   7.949966E+02              0.0                    \r\n   6.799999E-01   1.036271E+03              0.0                     6.999999E-01   8.944902E+02              0.0                    \r\n   7.199998E-01   5.413296E+02              0.0                     7.399998E-01   2.698340E+02              0.0                    \r\n   7.599998E-01  -2.727539E+01              0.0                     7.799998E-01  -4.788867E+02              0.0                    \r\n   7.999998E-01  -8.612383E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     131\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.673096E+01              0.0                     2.000000E-02   5.655420E+01              0.0                    \r\n   4.000000E-02   8.779956E+01              0.0                     6.000000E-02   6.007129E+01              0.0                    \r\n   8.000000E-02  -9.665489E+00              0.0                     9.999999E-02  -5.643750E+01              0.0                    \r\n   1.200000E-01  -6.058252E+01              0.0                     1.400000E-01  -6.866602E+01              0.0                    \r\n   1.600000E-01  -9.654883E+01              0.0                     1.800000E-01  -9.699072E+01              0.0                    \r\n   2.000000E-01  -4.469556E+01              0.0                     2.200000E-01   1.399420E+01              0.0                    \r\n   2.400000E-01   3.423523E+01              0.0                     2.600000E-01   4.375928E+01              0.0                    \r\n   2.800000E-01   8.225488E+01              0.0                     3.000000E-01   1.143276E+02              0.0                    \r\n   3.200000E-01   8.640894E+01              0.0                     3.400000E-01   2.893188E+01              0.0                    \r\n   3.600000E-01   3.220398E+00              0.0                     3.800000E-01  -1.061951E+02              0.0                    \r\n   4.000000E-01  -3.170850E+02              0.0                     4.200000E-01  -4.571086E+02              0.0                    \r\n   4.400001E-01  -3.135112E+02              0.0                     4.600001E-01  -4.858203E+01              0.0                    \r\n   4.800001E-01   1.408262E+02              0.0                     5.000001E-01   2.572773E+02              0.0                    \r\n   5.200000E-01   3.812031E+02              0.0                     5.400000E-01   4.725742E+02              0.0                    \r\n   5.600000E-01   4.536406E+02              0.0                     5.800000E-01   2.986328E+02              0.0                    \r\n   6.000000E-01   7.192773E+01              0.0                     6.199999E-01  -9.672754E+01              0.0                    \r\n   6.399999E-01  -2.101465E+02              0.0                     6.599999E-01  -3.830493E+02              0.0                    \r\n   6.799999E-01  -5.236409E+02              0.0                     6.999999E-01  -4.431145E+02              0.0                    \r\n   7.199998E-01  -2.485217E+02              0.0                     7.399998E-01  -1.315088E+02              0.0                    \r\n   7.599998E-01  -1.253906E+00              0.0                     7.799998E-01   2.368047E+02              0.0                    \r\n   7.999998E-01   4.314844E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     132\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.749678E-08              0.0                     2.000000E-02  -2.046402E-08              0.0                    \r\n   4.000000E-02  -3.170925E-09              0.0                     6.000000E-02  -1.895909E-09              0.0                    \r\n   8.000000E-02   2.182386E-10              0.0                     9.999999E-02   1.685247E-09              0.0                    \r\n   1.200000E-01   2.488194E-09              0.0                     1.400000E-01   2.959670E-09              0.0                    \r\n   1.600000E-01   3.412261E-09              0.0                     1.800000E-01   3.371374E-09              0.0                    \r\n   2.000000E-01   1.761401E-09              0.0                     2.200000E-01  -3.034180E-10              0.0                    \r\n   2.400000E-01  -1.181570E-09              0.0                     2.600000E-01  -1.941853E-09              0.0                    \r\n   2.800000E-01  -3.305956E-09              0.0                     3.000000E-01  -3.858721E-09              0.0                    \r\n   3.200000E-01  -3.050486E-09              0.0                     3.400000E-01  -1.577431E-09              0.0                    \r\n   3.600000E-01  -2.146947E-10              0.0                     3.800000E-01  -1.440676E-07              0.0                    \r\n   4.000000E-01   1.604986E-07              0.0                     4.200000E-01   1.725090E-08              0.0                    \r\n   4.400001E-01   1.074135E-08              0.0                     4.600001E-01   2.046077E-09              0.0                    \r\n   4.800001E-01  -3.791615E-09              0.0                     5.000001E-01  -1.065463E-08              0.0                    \r\n   5.200000E-01  -1.530606E-08              0.0                     5.400000E-01  -1.648282E-08              0.0                    \r\n   5.600000E-01  -1.700566E-08              0.0                     5.800000E-01  -1.168344E-08              0.0                    \r\n   6.000000E-01  -2.314013E-09              0.0                     6.199999E-01   2.815387E-09              0.0                    \r\n   6.399999E-01   8.222232E-09              0.0                     6.599999E-01   1.588121E-08              0.0                    \r\n   6.799999E-01   1.803031E-08              0.0                     6.999999E-01   1.568628E-08              0.0                    \r\n   7.199998E-01   1.166067E-08              0.0                     7.399998E-01   4.622677E-09              0.0                    \r\n   7.599998E-01  -1.687770E-09              0.0                     7.799998E-01  -7.794983E-09              0.0                    \r\n   7.999998E-01  -1.588740E-08              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     133\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.673096E+01              0.0                     2.000000E-02  -5.655420E+01              0.0                    \r\n   4.000000E-02  -8.779956E+01              0.0                     6.000000E-02  -6.007129E+01              0.0                    \r\n   8.000000E-02   9.665489E+00              0.0                     9.999999E-02   5.643750E+01              0.0                    \r\n   1.200000E-01   6.058252E+01              0.0                     1.400000E-01   6.866602E+01              0.0                    \r\n   1.600000E-01   9.654883E+01              0.0                     1.800000E-01   9.699072E+01              0.0                    \r\n   2.000000E-01   4.469556E+01              0.0                     2.200000E-01  -1.399420E+01              0.0                    \r\n   2.400000E-01  -3.423523E+01              0.0                     2.600000E-01  -4.375928E+01              0.0                    \r\n   2.800000E-01  -8.225488E+01              0.0                     3.000000E-01  -1.143276E+02              0.0                    \r\n   3.200000E-01  -8.640894E+01              0.0                     3.400000E-01  -2.893188E+01              0.0                    \r\n   3.600000E-01  -3.220398E+00              0.0                     3.800000E-01   1.061951E+02              0.0                    \r\n   4.000000E-01   3.170850E+02              0.0                     4.200000E-01   4.571086E+02              0.0                    \r\n   4.400001E-01   3.135112E+02              0.0                     4.600001E-01   4.858203E+01              0.0                    \r\n   4.800001E-01  -1.408262E+02              0.0                     5.000001E-01  -2.572773E+02              0.0                    \r\n   5.200000E-01  -3.812031E+02              0.0                     5.400000E-01  -4.725742E+02              0.0                    \r\n   5.600000E-01  -4.536406E+02              0.0                     5.800000E-01  -2.986328E+02              0.0                    \r\n   6.000000E-01  -7.192773E+01              0.0                     6.199999E-01   9.672754E+01              0.0                    \r\n   6.399999E-01   2.101465E+02              0.0                     6.599999E-01   3.830493E+02              0.0                    \r\n   6.799999E-01   5.236409E+02              0.0                     6.999999E-01   4.431145E+02              0.0                    \r\n   7.199998E-01   2.485217E+02              0.0                     7.399998E-01   1.315088E+02              0.0                    \r\n   7.599998E-01   1.253906E+00              0.0                     7.799998E-01  -2.368047E+02              0.0                    \r\n   7.999998E-01  -4.314844E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     141\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            4.077148E+00              0.0                     2.000000E-02   1.660645E+01              0.0                    \r\n   4.000000E-02   2.704224E+01              0.0                     6.000000E-02   1.901660E+01              0.0                    \r\n   8.000000E-02  -3.682602E+00              0.0                     9.999999E-02  -1.798828E+01              0.0                    \r\n   1.200000E-01  -1.737524E+01              0.0                     1.400000E-01  -1.915088E+01              0.0                    \r\n   1.600000E-01  -2.905518E+01              0.0                     1.800000E-01  -3.006909E+01              0.0                    \r\n   2.000000E-01  -1.318335E+01              0.0                     2.200000E-01   5.458527E+00              0.0                    \r\n   2.400000E-01   1.036218E+01              0.0                     2.600000E-01   1.161694E+01              0.0                    \r\n   2.800000E-01   2.400879E+01              0.0                     3.000000E-01   3.542285E+01              0.0                    \r\n   3.200000E-01   2.622729E+01              0.0                     3.400000E-01   7.105957E+00              0.0                    \r\n   3.600000E-01   3.400879E-01              0.0                     3.800000E-01  -2.703735E+01              0.0                    \r\n   4.000000E-01  -9.419092E+01              0.0                     4.200000E-01  -1.398596E+02              0.0                    \r\n   4.400001E-01  -9.544336E+01              0.0                     4.600001E-01  -1.080859E+01              0.0                    \r\n   4.800001E-01   4.335742E+01              0.0                     5.000001E-01   7.394141E+01              0.0                    \r\n   5.200000E-01   1.121406E+02              0.0                     5.400000E-01   1.412305E+02              0.0                    \r\n   5.600000E-01   1.360508E+02              0.0                     5.800000E-01   8.952344E+01              0.0                    \r\n   6.000000E-01   1.910742E+01              0.0                     6.199999E-01  -3.075781E+01              0.0                    \r\n   6.399999E-01  -5.871338E+01              0.0                     6.599999E-01  -1.114601E+02              0.0                    \r\n   6.799999E-01  -1.606025E+02              0.0                     6.999999E-01  -1.332314E+02              0.0                    \r\n   7.199998E-01  -6.818384E+01              0.0                     7.399998E-01  -3.872461E+01              0.0                    \r\n   7.599998E-01  -5.330078E+00              0.0                     7.799998E-01   7.103711E+01              0.0                    \r\n   7.999998E-01   1.313047E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     142\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            5.944054E-09              0.0                     2.000000E-02  -6.950664E-09              0.0                    \r\n   4.000000E-02  -1.076629E-09              0.0                     6.000000E-02  -6.437623E-10              0.0                    \r\n   8.000000E-02   7.416190E-11              0.0                     9.999999E-02   5.721774E-10              0.0                    \r\n   1.200000E-01   8.446422E-10              0.0                     1.400000E-01   1.004607E-09              0.0                    \r\n   1.600000E-01   1.158395E-09              0.0                     1.800000E-01   1.144795E-09              0.0                    \r\n   2.000000E-01   5.979800E-10              0.0                     2.200000E-01  -1.031251E-10              0.0                    \r\n   2.400000E-01  -4.011109E-10              0.0                     2.600000E-01  -6.589777E-10              0.0                    \r\n   2.800000E-01  -1.122361E-09              0.0                     3.000000E-01  -1.310037E-09              0.0                    \r\n   3.200000E-01  -1.035703E-09              0.0                     3.400000E-01  -5.354311E-10              0.0                    \r\n   3.600000E-01  -7.282901E-11              0.0                     3.800000E-01  -4.893729E-08              0.0                    \r\n   4.000000E-01   5.451838E-08              0.0                     4.200000E-01   5.859968E-09              0.0                    \r\n   4.400001E-01   3.650137E-09              0.0                     4.600001E-01   6.976957E-10              0.0                    \r\n   4.800001E-01  -1.283838E-09              0.0                     5.000001E-01  -3.615066E-09              0.0                    \r\n   5.200000E-01  -5.193828E-09              0.0                     5.400000E-01  -5.590598E-09              0.0                    \r\n   5.600000E-01  -5.771289E-09              0.0                     5.800000E-01  -3.963795E-09              0.0                    \r\n   6.000000E-01  -7.819143E-10              0.0                     6.199999E-01   9.583471E-10              0.0                    \r\n   6.399999E-01   2.794347E-09              0.0                     6.599999E-01   5.394991E-09              0.0                    \r\n   6.799999E-01   6.125016E-09              0.0                     6.999999E-01   5.327578E-09              0.0                    \r\n   7.199998E-01   3.962207E-09              0.0                     7.399998E-01   1.572295E-09              0.0                    \r\n   7.599998E-01  -5.699994E-10              0.0                     7.799998E-01  -2.642837E-09              0.0                    \r\n   7.999998E-01  -5.390670E-09              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     143\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -4.077148E+00              0.0                     2.000000E-02  -1.660645E+01              0.0                    \r\n   4.000000E-02  -2.704224E+01              0.0                     6.000000E-02  -1.901660E+01              0.0                    \r\n   8.000000E-02   3.682602E+00              0.0                     9.999999E-02   1.798828E+01              0.0                    \r\n   1.200000E-01   1.737524E+01              0.0                     1.400000E-01   1.915088E+01              0.0                    \r\n   1.600000E-01   2.905518E+01              0.0                     1.800000E-01   3.006909E+01              0.0                    \r\n   2.000000E-01   1.318335E+01              0.0                     2.200000E-01  -5.458527E+00              0.0                    \r\n   2.400000E-01  -1.036218E+01              0.0                     2.600000E-01  -1.161694E+01              0.0                    \r\n   2.800000E-01  -2.400879E+01              0.0                     3.000000E-01  -3.542285E+01              0.0                    \r\n   3.200000E-01  -2.622729E+01              0.0                     3.400000E-01  -7.105957E+00              0.0                    \r\n   3.600000E-01  -3.400879E-01              0.0                     3.800000E-01   2.703735E+01              0.0                    \r\n   4.000000E-01   9.419092E+01              0.0                     4.200000E-01   1.398596E+02              0.0                    \r\n   4.400001E-01   9.544336E+01              0.0                     4.600001E-01   1.080859E+01              0.0                    \r\n   4.800001E-01  -4.335742E+01              0.0                     5.000001E-01  -7.394141E+01              0.0                    \r\n   5.200000E-01  -1.121406E+02              0.0                     5.400000E-01  -1.412305E+02              0.0                    \r\n   5.600000E-01  -1.360508E+02              0.0                     5.800000E-01  -8.952344E+01              0.0                    \r\n   6.000000E-01  -1.910742E+01              0.0                     6.199999E-01   3.075781E+01              0.0                    \r\n   6.399999E-01   5.871338E+01              0.0                     6.599999E-01   1.114601E+02              0.0                    \r\n   6.799999E-01   1.606025E+02              0.0                     6.999999E-01   1.332314E+02              0.0                    \r\n   7.199998E-01   6.818384E+01              0.0                     7.399998E-01   3.872461E+01              0.0                    \r\n   7.599998E-01   5.330078E+00              0.0                     7.799998E-01  -7.103711E+01              0.0                    \r\n   7.999998E-01  -1.313047E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     211\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -4.466895E+01              0.0                     2.000000E-02  -9.330664E+01              0.0                    \r\n   4.000000E-02  -1.243481E+02              0.0                     6.000000E-02  -7.625391E+01              0.0                    \r\n   8.000000E-02   1.000732E+00              0.0                     9.999999E-02   6.962402E+01              0.0                    \r\n   1.200000E-01   1.086821E+02              0.0                     1.400000E-01   1.331240E+02              0.0                    \r\n   1.600000E-01   1.498154E+02              0.0                     1.800000E-01   1.337998E+02              0.0                    \r\n   2.000000E-01   7.354590E+01              0.0                     2.200000E-01   1.449707E+00              0.0                    \r\n   2.400000E-01  -5.211548E+01              0.0                     2.600000E-01  -9.607666E+01              0.0                    \r\n   2.800000E-01  -1.396914E+02              0.0                     3.000000E-01  -1.585195E+02              0.0                    \r\n   3.200000E-01  -1.304785E+02              0.0                     3.400000E-01  -7.263818E+01              0.0                    \r\n   3.600000E-01  -1.591394E+01              0.0                     3.800000E-01   2.583799E+02              0.0                    \r\n   4.000000E-01   5.043838E+02              0.0                     4.200000E-01   6.677261E+02              0.0                    \r\n   4.400001E-01   4.653066E+02              0.0                     4.600001E-01   1.406914E+02              0.0                    \r\n   4.800001E-01  -1.994844E+02              0.0                     5.000001E-01  -4.568828E+02              0.0                    \r\n   5.200000E-01  -6.384688E+02              0.0                     5.400000E-01  -7.506094E+02              0.0                    \r\n   5.600000E-01  -7.043516E+02              0.0                     5.800000E-01  -4.688516E+02              0.0                    \r\n   6.000000E-01  -1.624688E+02              0.0                     6.199999E-01   1.255312E+02              0.0                    \r\n   6.399999E-01   4.085586E+02              0.0                     6.599999E-01   6.521353E+02              0.0                    \r\n   6.799999E-01   7.589351E+02              0.0                     6.999999E-01   6.938799E+02              0.0                    \r\n   7.199998E-01   4.933818E+02              0.0                     7.399998E-01   2.182227E+02              0.0                    \r\n   7.599998E-01  -7.644141E+01              0.0                     7.799998E-01  -3.777500E+02              0.0                    \r\n   7.999998E-01  -6.461953E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     212\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            4.466895E+01              0.0                     2.000000E-02   9.330664E+01              0.0                    \r\n   4.000000E-02   1.243481E+02              0.0                     6.000000E-02   7.625391E+01              0.0                    \r\n   8.000000E-02  -1.000732E+00              0.0                     9.999999E-02  -6.962402E+01              0.0                    \r\n   1.200000E-01  -1.086821E+02              0.0                     1.400000E-01  -1.331240E+02              0.0                    \r\n   1.600000E-01  -1.498154E+02              0.0                     1.800000E-01  -1.337998E+02              0.0                    \r\n   2.000000E-01  -7.354590E+01              0.0                     2.200000E-01  -1.449707E+00              0.0                    \r\n   2.400000E-01   5.211548E+01              0.0                     2.600000E-01   9.607666E+01              0.0                    \r\n   2.800000E-01   1.396914E+02              0.0                     3.000000E-01   1.585195E+02              0.0                    \r\n   3.200000E-01   1.304785E+02              0.0                     3.400000E-01   7.263818E+01              0.0                    \r\n   3.600000E-01   1.591394E+01              0.0                     3.800000E-01  -2.583799E+02              0.0                    \r\n   4.000000E-01  -5.043838E+02              0.0                     4.200000E-01  -6.677261E+02              0.0                    \r\n   4.400001E-01  -4.653066E+02              0.0                     4.600001E-01  -1.406914E+02              0.0                    \r\n   4.800001E-01   1.994844E+02              0.0                     5.000001E-01   4.568828E+02              0.0                    \r\n   5.200000E-01   6.384688E+02              0.0                     5.400000E-01   7.506094E+02              0.0                    \r\n   5.600000E-01   7.043516E+02              0.0                     5.800000E-01   4.688516E+02              0.0                    \r\n   6.000000E-01   1.624688E+02              0.0                     6.199999E-01  -1.255312E+02              0.0                    \r\n   6.399999E-01  -4.085586E+02              0.0                     6.599999E-01  -6.521353E+02              0.0                    \r\n   6.799999E-01  -7.589351E+02              0.0                     6.999999E-01  -6.938799E+02              0.0                    \r\n   7.199998E-01  -4.933818E+02              0.0                     7.399998E-01  -2.182227E+02              0.0                    \r\n   7.599998E-01   7.644141E+01              0.0                     7.799998E-01   3.777500E+02              0.0                    \r\n   7.999998E-01   6.461953E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     221\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -2.929199E+01              0.0                     2.000000E-02  -7.339844E+01              0.0                    \r\n   4.000000E-02  -1.036553E+02              0.0                     6.000000E-02  -6.664404E+01              0.0                    \r\n   8.000000E-02   5.386902E+00              0.0                     9.999999E-02   6.162207E+01              0.0                    \r\n   1.200000E-01   8.243262E+01              0.0                     1.400000E-01   9.808203E+01              0.0                    \r\n   1.600000E-01   1.200117E+02              0.0                     1.800000E-01   1.128477E+02              0.0                    \r\n   2.000000E-01   5.767236E+01              0.0                     2.200000E-01  -6.583252E+00              0.0                    \r\n   2.400000E-01  -4.204785E+01              0.0                     2.600000E-01  -6.769531E+01              0.0                    \r\n   2.800000E-01  -1.082725E+02              0.0                     3.000000E-01  -1.332715E+02              0.0                    \r\n   3.200000E-01  -1.056045E+02              0.0                     3.400000E-01  -4.936621E+01              0.0                    \r\n   3.600000E-01  -9.253662E+00              0.0                     3.800000E-01   1.750249E+02              0.0                    \r\n   4.000000E-01   4.024590E+02              0.0                     4.200000E-01   5.484199E+02              0.0                    \r\n   4.400001E-01   3.799922E+02              0.0                     4.600001E-01   9.218359E+01              0.0                    \r\n   4.800001E-01  -1.664219E+02              0.0                     5.000001E-01  -3.483047E+02              0.0                    \r\n   5.200000E-01  -4.958516E+02              0.0                     5.400000E-01  -5.957344E+02              0.0                    \r\n   5.600000E-01  -5.659922E+02              0.0                     5.800000E-01  -3.738516E+02              0.0                    \r\n   6.000000E-01  -1.122891E+02              0.0                     6.199999E-01   1.072812E+02              0.0                    \r\n   6.399999E-01   3.001367E+02              0.0                     6.599999E-01   5.060728E+02              0.0                    \r\n   6.799999E-01   6.251489E+02              0.0                     6.999999E-01   5.528302E+02              0.0                    \r\n   7.199998E-01   3.626543E+02              0.0                     7.399998E-01   1.703086E+02              0.0                    \r\n   7.599998E-01  -3.808594E+01              0.0                     7.799998E-01  -2.976172E+02              0.0                    \r\n   7.999998E-01  -5.246875E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     222\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            2.929199E+01              0.0                     2.000000E-02   7.339844E+01              0.0                    \r\n   4.000000E-02   1.036553E+02              0.0                     6.000000E-02   6.664404E+01              0.0                    \r\n   8.000000E-02  -5.386902E+00              0.0                     9.999999E-02  -6.162207E+01              0.0                    \r\n   1.200000E-01  -8.243262E+01              0.0                     1.400000E-01  -9.808203E+01              0.0                    \r\n   1.600000E-01  -1.200117E+02              0.0                     1.800000E-01  -1.128477E+02              0.0                    \r\n   2.000000E-01  -5.767236E+01              0.0                     2.200000E-01   6.583252E+00              0.0                    \r\n   2.400000E-01   4.204785E+01              0.0                     2.600000E-01   6.769531E+01              0.0                    \r\n   2.800000E-01   1.082725E+02              0.0                     3.000000E-01   1.332715E+02              0.0                    \r\n   3.200000E-01   1.056045E+02              0.0                     3.400000E-01   4.936621E+01              0.0                    \r\n   3.600000E-01   9.253662E+00              0.0                     3.800000E-01  -1.750249E+02              0.0                    \r\n   4.000000E-01  -4.024590E+02              0.0                     4.200000E-01  -5.484199E+02              0.0                    \r\n   4.400001E-01  -3.799922E+02              0.0                     4.600001E-01  -9.218359E+01              0.0                    \r\n   4.800001E-01   1.664219E+02              0.0                     5.000001E-01   3.483047E+02              0.0                    \r\n   5.200000E-01   4.958516E+02              0.0                     5.400000E-01   5.957344E+02              0.0                    \r\n   5.600000E-01   5.659922E+02              0.0                     5.800000E-01   3.738516E+02              0.0                    \r\n   6.000000E-01   1.122891E+02              0.0                     6.199999E-01  -1.072812E+02              0.0                    \r\n   6.399999E-01  -3.001367E+02              0.0                     6.599999E-01  -5.060728E+02              0.0                    \r\n   6.799999E-01  -6.251489E+02              0.0                     6.999999E-01  -5.528302E+02              0.0                    \r\n   7.199998E-01  -3.626543E+02              0.0                     7.399998E-01  -1.703086E+02              0.0                    \r\n   7.599998E-01   3.808594E+01              0.0                     7.799998E-01   2.976172E+02              0.0                    \r\n   7.999998E-01   5.246875E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     231\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -1.628516E+01              0.0                     2.000000E-02  -4.863965E+01              0.0                    \r\n   4.000000E-02  -7.286426E+01              0.0                     6.000000E-02  -4.873877E+01              0.0                    \r\n   8.000000E-02   6.498291E+00              0.0                     9.999999E-02   4.552002E+01              0.0                    \r\n   1.200000E-01   5.304590E+01              0.0                     1.400000E-01   6.134863E+01              0.0                    \r\n   1.600000E-01   8.163672E+01              0.0                     1.800000E-01   8.002148E+01              0.0                    \r\n   2.000000E-01   3.835840E+01              0.0                     2.200000E-01  -9.061768E+00              0.0                    \r\n   2.400000E-01  -2.884326E+01              0.0                     2.600000E-01  -4.039551E+01              0.0                    \r\n   2.800000E-01  -7.108691E+01              0.0                     3.000000E-01  -9.443457E+01              0.0                    \r\n   3.200000E-01  -7.260352E+01              0.0                     3.400000E-01  -2.787988E+01              0.0                    \r\n   3.600000E-01  -4.085693E+00              0.0                     3.800000E-01   1.003223E+02              0.0                    \r\n   4.000000E-01   2.705791E+02              0.0                     4.200000E-01   3.817832E+02              0.0                    \r\n   4.400001E-01   2.625762E+02              0.0                     4.600001E-01   4.893750E+01              0.0                    \r\n   4.800001E-01  -1.166328E+02              0.0                     5.000001E-01  -2.247500E+02              0.0                    \r\n   5.200000E-01  -3.283125E+02              0.0                     5.400000E-01  -4.016250E+02              0.0                    \r\n   5.600000E-01  -3.839062E+02              0.0                     5.800000E-01  -2.534922E+02              0.0                    \r\n   6.000000E-01  -6.675000E+01              0.0                     6.199999E-01   7.879297E+01              0.0                    \r\n   6.399999E-01   1.875000E+02              0.0                     6.599999E-01   3.313745E+02              0.0                    \r\n   6.799999E-01   4.365054E+02              0.0                     6.999999E-01   3.752050E+02              0.0                    \r\n   7.199998E-01   2.236230E+02              0.0                     7.399998E-01   1.131758E+02              0.0                    \r\n   7.599998E-01  -8.960938E+00              0.0                     7.799998E-01  -2.013828E+02              0.0                    \r\n   7.999998E-01  -3.618125E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     232\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            1.628516E+01              0.0                     2.000000E-02   4.863965E+01              0.0                    \r\n   4.000000E-02   7.286426E+01              0.0                     6.000000E-02   4.873877E+01              0.0                    \r\n   8.000000E-02  -6.498291E+00              0.0                     9.999999E-02  -4.552002E+01              0.0                    \r\n   1.200000E-01  -5.304590E+01              0.0                     1.400000E-01  -6.134863E+01              0.0                    \r\n   1.600000E-01  -8.163672E+01              0.0                     1.800000E-01  -8.002148E+01              0.0                    \r\n   2.000000E-01  -3.835840E+01              0.0                     2.200000E-01   9.061768E+00              0.0                    \r\n   2.400000E-01   2.884326E+01              0.0                     2.600000E-01   4.039551E+01              0.0                    \r\n   2.800000E-01   7.108691E+01              0.0                     3.000000E-01   9.443457E+01              0.0                    \r\n   3.200000E-01   7.260352E+01              0.0                     3.400000E-01   2.787988E+01              0.0                    \r\n   3.600000E-01   4.085693E+00              0.0                     3.800000E-01  -1.003223E+02              0.0                    \r\n   4.000000E-01  -2.705791E+02              0.0                     4.200000E-01  -3.817832E+02              0.0                    \r\n   4.400001E-01  -2.625762E+02              0.0                     4.600001E-01  -4.893750E+01              0.0                    \r\n   4.800001E-01   1.166328E+02              0.0                     5.000001E-01   2.247500E+02              0.0                    \r\n   5.200000E-01   3.283125E+02              0.0                     5.400000E-01   4.016250E+02              0.0                    \r\n   5.600000E-01   3.839062E+02              0.0                     5.800000E-01   2.534922E+02              0.0                    \r\n   6.000000E-01   6.675000E+01              0.0                     6.199999E-01  -7.879297E+01              0.0                    \r\n   6.399999E-01  -1.875000E+02              0.0                     6.599999E-01  -3.313745E+02              0.0                    \r\n   6.799999E-01  -4.365054E+02              0.0                     6.999999E-01  -3.752050E+02              0.0                    \r\n   7.199998E-01  -2.236230E+02              0.0                     7.399998E-01  -1.131758E+02              0.0                    \r\n   7.599998E-01   8.960938E+00              0.0                     7.799998E-01   2.013828E+02              0.0                    \r\n   7.999998E-01   3.618125E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     241\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0           -5.470703E+00              0.0                     2.000000E-02  -1.981250E+01              0.0                    \r\n   4.000000E-02  -3.143066E+01              0.0                     6.000000E-02  -2.176660E+01              0.0                    \r\n   8.000000E-02   3.821655E+00              0.0                     9.999999E-02   2.050879E+01              0.0                    \r\n   1.200000E-01   2.102930E+01              0.0                     1.400000E-01   2.358398E+01              0.0                    \r\n   1.600000E-01   3.423047E+01              0.0                     1.800000E-01   3.479883E+01              0.0                    \r\n   2.000000E-01   1.570703E+01              0.0                     2.200000E-01  -5.563721E+00              0.0                    \r\n   2.400000E-01  -1.218066E+01              0.0                     2.600000E-01  -1.474121E+01              0.0                    \r\n   2.800000E-01  -2.875000E+01              0.0                     3.000000E-01  -4.103906E+01              0.0                    \r\n   3.200000E-01  -3.075977E+01              0.0                     3.400000E-01  -9.419922E+00              0.0                    \r\n   3.600000E-01  -8.227539E-01              0.0                     3.800000E-01   3.506836E+01              0.0                    \r\n   4.000000E-01   1.117280E+02              0.0                     4.200000E-01   1.633606E+02              0.0                    \r\n   4.400001E-01   1.116523E+02              0.0                     4.600001E-01   1.510156E+01              0.0                    \r\n   4.800001E-01  -5.028906E+01              0.0                     5.000001E-01  -8.929688E+01              0.0                    \r\n   5.200000E-01  -1.340312E+02              0.0                     5.400000E-01  -1.670156E+02              0.0                    \r\n   5.600000E-01  -1.602812E+02              0.0                     5.800000E-01  -1.058125E+02              0.0                    \r\n   6.000000E-01  -2.440625E+01              0.0                     6.199999E-01   3.539844E+01              0.0                    \r\n   6.399999E-01   7.220703E+01              0.0                     6.599999E-01   1.335178E+02              0.0                    \r\n   6.799999E-01   1.873306E+02              0.0                     6.999999E-01   1.571729E+02              0.0                    \r\n   7.199998E-01   8.437695E+01              0.0                     7.399998E-01   4.625781E+01              0.0                    \r\n   7.599998E-01   3.289062E+00              0.0                     7.799998E-01  -8.415625E+01              0.0                    \r\n   7.999998E-01  -1.537656E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n      ELEMENT-ID =     242\r\n\r\n                                     S T R E S S E S   I N   R O D   E L E M E N T S      ( C R O D )\r\n \r\n                     AXIAL       SAFETY      TORSIONAL     SAFETY                     AXIAL       SAFETY      TORSIONAL     SAFETY\r\n       TIME         STRESS       MARGIN        STRESS      MARGIN       TIME         STRESS       MARGIN        STRESS      MARGIN\r\n   0.0            5.470703E+00              0.0                     2.000000E-02   1.981250E+01              0.0                    \r\n   4.000000E-02   3.143066E+01              0.0                     6.000000E-02   2.176660E+01              0.0                    \r\n   8.000000E-02  -3.821655E+00              0.0                     9.999999E-02  -2.050879E+01              0.0                    \r\n   1.200000E-01  -2.102930E+01              0.0                     1.400000E-01  -2.358398E+01              0.0                    \r\n   1.600000E-01  -3.423047E+01              0.0                     1.800000E-01  -3.479883E+01              0.0                    \r\n   2.000000E-01  -1.570703E+01              0.0                     2.200000E-01   5.563721E+00              0.0                    \r\n   2.400000E-01   1.218066E+01              0.0                     2.600000E-01   1.474121E+01              0.0                    \r\n   2.800000E-01   2.875000E+01              0.0                     3.000000E-01   4.103906E+01              0.0                    \r\n   3.200000E-01   3.075977E+01              0.0                     3.400000E-01   9.419922E+00              0.0                    \r\n   3.600000E-01   8.227539E-01              0.0                     3.800000E-01  -3.506836E+01              0.0                    \r\n   4.000000E-01  -1.117280E+02              0.0                     4.200000E-01  -1.633606E+02              0.0                    \r\n   4.400001E-01  -1.116523E+02              0.0                     4.600001E-01  -1.510156E+01              0.0                    \r\n   4.800001E-01   5.028906E+01              0.0                     5.000001E-01   8.929688E+01              0.0                    \r\n   5.200000E-01   1.340312E+02              0.0                     5.400000E-01   1.670156E+02              0.0                    \r\n   5.600000E-01   1.602812E+02              0.0                     5.800000E-01   1.058125E+02              0.0                    \r\n   6.000000E-01   2.440625E+01              0.0                     6.199999E-01  -3.539844E+01              0.0                    \r\n   6.399999E-01  -7.220703E+01              0.0                     6.599999E-01  -1.335178E+02              0.0                    \r\n   6.799999E-01  -1.873306E+02              0.0                     6.999999E-01  -1.571729E+02              0.0                    \r\n   7.199998E-01  -8.437695E+01              0.0                     7.399998E-01  -4.625781E+01              0.0                    \r\n   7.599998E-01  -3.289062E+00              0.0                     7.799998E-01   8.415625E+01              0.0                    \r\n   7.999998E-01   1.537656E+02              0.0                                                                                     \r\n1     TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                                                                                   \r\n0     RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                                                                         \r\n\r\n\r\n                          S U B S T R U C T U R E   O P E R A T I N G   F I L E   T A B L E   O F   C O N T E N T S \r\n\r\n                                                    E  B  C  L  P  K  M  P  P  U  H  U  Q  S  P  P  L  L  G  P  L  K  B  P  H      \r\n                                                    Q  G  S  O  L  M  M  V  O  P  O  V  V  O  A  O  O  M  I  H  A  4  M  H  L      \r\n                                                    S  S  T  D  T  T  T  E  V  R  R  E  E  L  P  A  A  T  M  I  M  M  T  I  F      \r\n     SUBSTRUCTURE                                   S  S  M  S  S  X  X  C  E  T  G  C  C  N  P  P  P  X  S  S  S  X  X  L  T      \r\n     NO.   NAME    TYPE   SS   PS   LL   CS   HL    --------------------------------------------------------------------------------\r\n\r\n       1  ABASIC     B     0    0    0    0    3    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       2  BBASIC     B     0    0    0    0    4    3  3     3     3  3  3  3  3  3  4     3              3  3  3            \r\n       3  MA         M     0    0    1    4    5    3  3     3     3  3  3        3  4     3                                 \r\n       4  MB         M     0    0    2    3    5    3  3     3     3  3  3        3  4     3                                 \r\n       5  MCOMB      C     0    0    3    0    6    3  3     3  3  3  3  3  3  3  3  4     3              3  3  3            \r\n       6  RTRUSS     M     0    0    5    0    0    3  3     3  3  3  3  3           4     3                                 \r\n\r\n\r\n                                                   SIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDICATES DATA IS STORED IN PRIMARY)\r\n0*** UNUSED SPACE ON SOF =   386048 WORDS.\r\n                      OR =      377 BLOCKS.\r\n                      OR =       77 PERCENT.\r\n0*** HIGHEST BLOCK USED  =      111\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS             \r\n DATE:  5/17/95\r\n END TIME: 15:29:45\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03011a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,1                                                                       \r\n     TIME  35                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = VIBRATIONS OF A 10 BY 20 PLATE                                       \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                          \r\n                  3      $                                                                               \r\n                  4           SPC = 37                                                                   \r\n                  5        METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS                                  \r\n                  6      $              ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)             \r\n                  7      $       MODE    M       N       FREQ                                            \r\n                  8      $       1       1       1       9.068997E-1                                     \r\n                  9      $       2       1       2       2.267249                                        \r\n                 10      $       5       1       3       4.534498                                        \r\n                 11      $       6       3       1       4.534498                                        \r\n                 12      $       7       3       2       5.894848                                        \r\n                 13      $       9       1       4       7.708647                                        \r\n                 14      $                                                                               \r\n                 15      OUTPUT                                                                          \r\n                 16         SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121          \r\n                 17         SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89,                \r\n                 18                 99,100, 110 THRU 121                                                 \r\n                 19         DISPLACEMENTS = 1                                                            \r\n                 20         SPCFORCE = 2                                                                 \r\n                 21      $                                                                               \r\n                 22      $                                                                               \r\n                 23      $                                                                               \r\n                 24      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                            \r\n                 25      OUTPUT(PLOT)                                                                    \r\n                 26      PLOTTER NASTPLT                                                                 \r\n                 27              SET 1 INCLUDE PLOTEL                                                    \r\n                 28              SET 2 INCLUDE QUAD1                                                     \r\n                 29              MAXIMUM DEFORMATION  1.0                                                \r\n                 30              FIND SCALE, ORIGIN 10                                                   \r\n                 31      PTITLE = ALL QUADS IN THE PLATE                                                 \r\n                 32      PLOT ORIGIN 10, SET 2, LABELS                                                   \r\n                 33      PLOT SET 2,SHRINK .6,NOFIND                                                     \r\n                 34      PLOT SET 2,HIDDEN,NOFIND                                                        \r\n                 35              FIND SCALE, ORIGIN 11                                                   \r\n                 36      PTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\n                 37      PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\n                 38      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   520, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       2       THRU    219                                             \r\n                    2-        CQUAD1  1       23      1       2       13      12      .00                     \r\n                    3-        CQUAD1  2       23      2       3       14      13      .00                     \r\n                    4-        CQUAD1  3       23      3       4       15      14      .00                     \r\n                    5-        CQUAD1  4       23      4       5       16      15      .00                     \r\n                    6-        CQUAD1  5       23      5       6       17      16      .00                     \r\n                    7-        CQUAD1  6       23      6       7       18      17      .00                     \r\n                    8-        CQUAD1  7       23      7       8       19      18      .00                     \r\n                    9-        CQUAD1  8       23      8       9       20      19      .00                     \r\n                   10-        CQUAD1  9       23      9       10      21      20      .00                     \r\n                   11-        CQUAD1  10      23      10      11      22      21      .00                     \r\n                   12-        CQUAD1  12      23      12      13      24      23      .00                     \r\n                   13-        CQUAD1  13      23      13      14      25      24      .00                     \r\n                   14-        CQUAD1  14      23      14      15      26      25      .00                     \r\n                   15-        CQUAD1  15      23      15      16      27      26      .00                     \r\n                   16-        CQUAD1  16      23      16      17      28      27      .00                     \r\n                   17-        CQUAD1  17      23      17      18      29      28      .00                     \r\n                   18-        CQUAD1  18      23      18      19      30      29      .00                     \r\n                   19-        CQUAD1  19      23      19      20      31      30      .00                     \r\n                   20-        CQUAD1  20      23      20      21      32      31      .00                     \r\n                   21-        CQUAD1  21      23      21      22      33      32      .00                     \r\n                   22-        CQUAD1  23      23      23      24      35      34      .00                     \r\n                   23-        CQUAD1  24      23      24      25      36      35      .00                     \r\n                   24-        CQUAD1  25      23      25      26      37      36      .00                     \r\n                   25-        CQUAD1  26      23      26      27      38      37      .00                     \r\n                   26-        CQUAD1  27      23      27      28      39      38      .00                     \r\n                   27-        CQUAD1  28      23      28      29      40      39      .00                     \r\n                   28-        CQUAD1  29      23      29      30      41      40      .00                     \r\n                   29-        CQUAD1  30      23      30      31      42      41      .00                     \r\n                   30-        CQUAD1  31      23      31      32      43      42      .00                     \r\n                   31-        CQUAD1  32      23      32      33      44      43      .00                     \r\n                   32-        CQUAD1  34      23      34      35      46      45      .00                     \r\n                   33-        CQUAD1  35      23      35      36      47      46      .00                     \r\n                   34-        CQUAD1  36      23      36      37      48      47      .00                     \r\n                   35-        CQUAD1  37      23      37      38      49      48      .00                     \r\n                   36-        CQUAD1  38      23      38      39      50      49      .00                     \r\n                   37-        CQUAD1  39      23      39      40      51      50      .00                     \r\n                   38-        CQUAD1  40      23      40      41      52      51      .00                     \r\n                   39-        CQUAD1  41      23      41      42      53      52      .00                     \r\n                   40-        CQUAD1  42      23      42      43      54      53      .00                     \r\n                   41-        CQUAD1  43      23      43      44      55      54      .00                     \r\n                   42-        CQUAD1  45      23      45      46      57      56      .00                     \r\n                   43-        CQUAD1  46      23      46      47      58      57      .00                     \r\n                   44-        CQUAD1  47      23      47      48      59      58      .00                     \r\n                   45-        CQUAD1  48      23      48      49      60      59      .00                     \r\n                   46-        CQUAD1  49      23      49      50      61      60      .00                     \r\n                   47-        CQUAD1  50      23      50      51      62      61      .00                     \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD1  51      23      51      52      63      62      .00                     \r\n                   49-        CQUAD1  52      23      52      53      64      63      .00                     \r\n                   50-        CQUAD1  53      23      53      54      65      64      .00                     \r\n                   51-        CQUAD1  54      23      54      55      66      65      .00                     \r\n                   52-        CQUAD1  56      23      56      57      68      67      .00                     \r\n                   53-        CQUAD1  57      23      57      58      69      68      .00                     \r\n                   54-        CQUAD1  58      23      58      59      70      69      .00                     \r\n                   55-        CQUAD1  59      23      59      60      71      70      .00                     \r\n                   56-        CQUAD1  60      23      60      61      72      71      .00                     \r\n                   57-        CQUAD1  61      23      61      62      73      72      .00                     \r\n                   58-        CQUAD1  62      23      62      63      74      73      .00                     \r\n                   59-        CQUAD1  63      23      63      64      75      74      .00                     \r\n                   60-        CQUAD1  64      23      64      65      76      75      .00                     \r\n                   61-        CQUAD1  65      23      65      66      77      76      .00                     \r\n                   62-        CQUAD1  67      23      67      68      79      78      .00                     \r\n                   63-        CQUAD1  68      23      68      69      80      79      .00                     \r\n                   64-        CQUAD1  69      23      69      70      81      80      .00                     \r\n                   65-        CQUAD1  70      23      70      71      82      81      .00                     \r\n                   66-        CQUAD1  71      23      71      72      83      82      .00                     \r\n                   67-        CQUAD1  72      23      72      73      84      83      .00                     \r\n                   68-        CQUAD1  73      23      73      74      85      84      .00                     \r\n                   69-        CQUAD1  74      23      74      75      86      85      .00                     \r\n                   70-        CQUAD1  75      23      75      76      87      86      .00                     \r\n                   71-        CQUAD1  76      23      76      77      88      87      .00                     \r\n                   72-        CQUAD1  78      23      78      79      90      89      .00                     \r\n                   73-        CQUAD1  79      23      79      80      91      90      .00                     \r\n                   74-        CQUAD1  80      23      80      81      92      91      .00                     \r\n                   75-        CQUAD1  81      23      81      82      93      92      .00                     \r\n                   76-        CQUAD1  82      23      82      83      94      93      .00                     \r\n                   77-        CQUAD1  83      23      83      84      95      94      .00                     \r\n                   78-        CQUAD1  84      23      84      85      96      95      .00                     \r\n                   79-        CQUAD1  85      23      85      86      97      96      .00                     \r\n                   80-        CQUAD1  86      23      86      87      98      97      .00                     \r\n                   81-        CQUAD1  87      23      87      88      99      98      .00                     \r\n                   82-        CQUAD1  89      23      89      90      101     100     .00                     \r\n                   83-        CQUAD1  90      23      90      91      102     101     .00                     \r\n                   84-        CQUAD1  91      23      91      92      103     102     .00                     \r\n                   85-        CQUAD1  92      23      92      93      104     103     .00                     \r\n                   86-        CQUAD1  93      23      93      94      105     104     .00                     \r\n                   87-        CQUAD1  94      23      94      95      106     105     .00                     \r\n                   88-        CQUAD1  95      23      95      96      107     106     .00                     \r\n                   89-        CQUAD1  96      23      96      97      108     107     .00                     \r\n                   90-        CQUAD1  97      23      97      98      109     108     .00                     \r\n                   91-        CQUAD1  98      23      98      99      110     109     .00                     \r\n                   92-        CQUAD1  100     23      100     101     112     111     .00                     \r\n                   93-        CQUAD1  101     23      101     102     113     112     .00                     \r\n                   94-        CQUAD1  102     23      102     103     114     113     .00                     \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD1  103     23      103     104     115     114     .00                     \r\n                   96-        CQUAD1  104     23      104     105     116     115     .00                     \r\n                   97-        CQUAD1  105     23      105     106     117     116     .00                     \r\n                   98-        CQUAD1  106     23      106     107     118     117     .00                     \r\n                   99-        CQUAD1  107     23      107     108     119     118     .00                     \r\n                  100-        CQUAD1  108     23      108     109     120     119     .00                     \r\n                  101-        CQUAD1  109     23      109     110     121     120     .00                     \r\n                  102-        CQUAD1  111     23      111     112     123     122     .00                     \r\n                  103-        CQUAD1  112     23      112     113     124     123     .00                     \r\n                  104-        CQUAD1  113     23      113     114     125     124     .00                     \r\n                  105-        CQUAD1  114     23      114     115     126     125     .00                     \r\n                  106-        CQUAD1  115     23      115     116     127     126     .00                     \r\n                  107-        CQUAD1  116     23      116     117     128     127     .00                     \r\n                  108-        CQUAD1  117     23      117     118     129     128     .00                     \r\n                  109-        CQUAD1  118     23      118     119     130     129     .00                     \r\n                  110-        CQUAD1  119     23      119     120     131     130     .00                     \r\n                  111-        CQUAD1  120     23      120     121     132     131     .00                     \r\n                  112-        CQUAD1  122     23      122     123     134     133     .00                     \r\n                  113-        CQUAD1  123     23      123     124     135     134     .00                     \r\n                  114-        CQUAD1  124     23      124     125     136     135     .00                     \r\n                  115-        CQUAD1  125     23      125     126     137     136     .00                     \r\n                  116-        CQUAD1  126     23      126     127     138     137     .00                     \r\n                  117-        CQUAD1  127     23      127     128     139     138     .00                     \r\n                  118-        CQUAD1  128     23      128     129     140     139     .00                     \r\n                  119-        CQUAD1  129     23      129     130     141     140     .00                     \r\n                  120-        CQUAD1  130     23      130     131     142     141     .00                     \r\n                  121-        CQUAD1  131     23      131     132     143     142     .00                     \r\n                  122-        CQUAD1  133     23      133     134     145     144     .00                     \r\n                  123-        CQUAD1  134     23      134     135     146     145     .00                     \r\n                  124-        CQUAD1  135     23      135     136     147     146     .00                     \r\n                  125-        CQUAD1  136     23      136     137     148     147     .00                     \r\n                  126-        CQUAD1  137     23      137     138     149     148     .00                     \r\n                  127-        CQUAD1  138     23      138     139     150     149     .00                     \r\n                  128-        CQUAD1  139     23      139     140     151     150     .00                     \r\n                  129-        CQUAD1  140     23      140     141     152     151     .00                     \r\n                  130-        CQUAD1  141     23      141     142     153     152     .00                     \r\n                  131-        CQUAD1  142     23      142     143     154     153     .00                     \r\n                  132-        CQUAD1  144     23      144     145     156     155     .00                     \r\n                  133-        CQUAD1  145     23      145     146     157     156     .00                     \r\n                  134-        CQUAD1  146     23      146     147     158     157     .00                     \r\n                  135-        CQUAD1  147     23      147     148     159     158     .00                     \r\n                  136-        CQUAD1  148     23      148     149     160     159     .00                     \r\n                  137-        CQUAD1  149     23      149     150     161     160     .00                     \r\n                  138-        CQUAD1  150     23      150     151     162     161     .00                     \r\n                  139-        CQUAD1  151     23      151     152     163     162     .00                     \r\n                  140-        CQUAD1  152     23      152     153     164     163     .00                     \r\n                  141-        CQUAD1  153     23      153     154     165     164     .00                     \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQUAD1  155     23      155     156     167     166     .00                     \r\n                  143-        CQUAD1  156     23      156     157     168     167     .00                     \r\n                  144-        CQUAD1  157     23      157     158     169     168     .00                     \r\n                  145-        CQUAD1  158     23      158     159     170     169     .00                     \r\n                  146-        CQUAD1  159     23      159     160     171     170     .00                     \r\n                  147-        CQUAD1  160     23      160     161     172     171     .00                     \r\n                  148-        CQUAD1  161     23      161     162     173     172     .00                     \r\n                  149-        CQUAD1  162     23      162     163     174     173     .00                     \r\n                  150-        CQUAD1  163     23      163     164     175     174     .00                     \r\n                  151-        CQUAD1  164     23      164     165     176     175     .00                     \r\n                  152-        CQUAD1  166     23      166     167     178     177     .00                     \r\n                  153-        CQUAD1  167     23      167     168     179     178     .00                     \r\n                  154-        CQUAD1  168     23      168     169     180     179     .00                     \r\n                  155-        CQUAD1  169     23      169     170     181     180     .00                     \r\n                  156-        CQUAD1  170     23      170     171     182     181     .00                     \r\n                  157-        CQUAD1  171     23      171     172     183     182     .00                     \r\n                  158-        CQUAD1  172     23      172     173     184     183     .00                     \r\n                  159-        CQUAD1  173     23      173     174     185     184     .00                     \r\n                  160-        CQUAD1  174     23      174     175     186     185     .00                     \r\n                  161-        CQUAD1  175     23      175     176     187     186     .00                     \r\n                  162-        CQUAD1  177     23      177     178     189     188     .00                     \r\n                  163-        CQUAD1  178     23      178     179     190     189     .00                     \r\n                  164-        CQUAD1  179     23      179     180     191     190     .00                     \r\n                  165-        CQUAD1  180     23      180     181     192     191     .00                     \r\n                  166-        CQUAD1  181     23      181     182     193     192     .00                     \r\n                  167-        CQUAD1  182     23      182     183     194     193     .00                     \r\n                  168-        CQUAD1  183     23      183     184     195     194     .00                     \r\n                  169-        CQUAD1  184     23      184     185     196     195     .00                     \r\n                  170-        CQUAD1  185     23      185     186     197     196     .00                     \r\n                  171-        CQUAD1  186     23      186     187     198     197     .00                     \r\n                  172-        CQUAD1  188     23      188     189     200     199     .00                     \r\n                  173-        CQUAD1  189     23      189     190     201     200     .00                     \r\n                  174-        CQUAD1  190     23      190     191     202     201     .00                     \r\n                  175-        CQUAD1  191     23      191     192     203     202     .00                     \r\n                  176-        CQUAD1  192     23      192     193     204     203     .00                     \r\n                  177-        CQUAD1  193     23      193     194     205     204     .00                     \r\n                  178-        CQUAD1  194     23      194     195     206     205     .00                     \r\n                  179-        CQUAD1  195     23      195     196     207     206     .00                     \r\n                  180-        CQUAD1  196     23      196     197     208     207     .00                     \r\n                  181-        CQUAD1  197     23      197     198     209     208     .00                     \r\n                  182-        CQUAD1  199     23      199     200     211     210     .00                     \r\n                  183-        CQUAD1  200     23      200     201     212     211     .00                     \r\n                  184-        CQUAD1  201     23      201     202     213     212     .00                     \r\n                  185-        CQUAD1  202     23      202     203     214     213     .00                     \r\n                  186-        CQUAD1  203     23      203     204     215     214     .00                     \r\n                  187-        CQUAD1  204     23      204     205     216     215     .00                     \r\n                  188-        CQUAD1  205     23      205     206     217     216     .00                     \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQUAD1  206     23      206     207     218     217     .00                     \r\n                  190-        CQUAD1  207     23      207     208     219     218     .00                     \r\n                  191-        CQUAD1  208     23      208     209     220     219     .00                     \r\n                  192-        CQUAD1  210     23      210     211     222     221     .00                     \r\n                  193-        CQUAD1  211     23      211     212     223     222     .00                     \r\n                  194-        CQUAD1  212     23      212     213     224     223     .00                     \r\n                  195-        CQUAD1  213     23      213     214     225     224     .00                     \r\n                  196-        CQUAD1  214     23      214     215     226     225     .00                     \r\n                  197-        CQUAD1  215     23      215     216     227     226     .00                     \r\n                  198-        CQUAD1  216     23      216     217     228     227     .00                     \r\n                  199-        CQUAD1  217     23      217     218     229     228     .00                     \r\n                  200-        CQUAD1  218     23      218     219     230     229     .00                     \r\n                  201-        CQUAD1  219     23      219     220     231     230     .00                     \r\n                  202-        EIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n                  203-        +SIMPL-IMAX                                                                     \r\n                  204-        EIGR    3       INV     .89     1.0     1       3       0               +EIG3-1 \r\n                  205-        +EIG3-1 MAX                                                                     \r\n                  206-        EIGR    4       DET     .89     1.0     1       1       0               +EIG4-1 \r\n                  207-        +EIG4-1 MAX                                                                     \r\n                  208-        EIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n                  209-        +EIG5-2 MAX                                                                     \r\n                  210-        EIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n                  211-        +EIG6-2 MAX                                                                     \r\n                  212-        EIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n                  213-        +EIG7-5 MAX                                                                     \r\n                  214-        EIGR    8       DET     .89     6.1     5       5       0               +EIG8-5 \r\n                  215-        +EIG8-5 MAX                                                                     \r\n                  216-        EIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n                  217-        +EIG9-10MAX                                                                     \r\n                  218-        EIGR    10      DET     .89     14.5    5       5       0               +EIG1010\r\n                  219-        +EIG1010MAX                                                                     \r\n                  220-        EIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n                  221-        +EIG1120MAX                                                                     \r\n                  222-        EIGR    12      DET     .89     29.0    20      20      0               +EIG1220\r\n                  223-        +EIG1220MAX                                                                     \r\n                  224-        GRDSET                                                  126                     \r\n                  225-        GRID    1               .00000  .00000  .00000                                  \r\n                  226-        GRID    2               1.00000 .00000  .00000                                  \r\n                  227-        GRID    3               2.00000 .00000  .00000                                  \r\n                  228-        GRID    4               3.00000 .00000  .00000                                  \r\n                  229-        GRID    5               4.00000 .00000  .00000                                  \r\n                  230-        GRID    6               5.00000 .00000  .00000                                  \r\n                  231-        GRID    7               6.00000 .00000  .00000                                  \r\n                  232-        GRID    8               7.00000 .00000  .00000                                  \r\n                  233-        GRID    9               8.00000 .00000  .00000                                  \r\n                  234-        GRID    10              9.00000 .00000  .00000                                  \r\n                  235-        GRID    11              10.00000.00000  .00000                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRID    12              .00000  1.00000 .00000                                  \r\n                  237-        GRID    13              1.00000 1.00000 .00000                                  \r\n                  238-        GRID    14              2.00000 1.00000 .00000                                  \r\n                  239-        GRID    15              3.00000 1.00000 .00000                                  \r\n                  240-        GRID    16              4.00000 1.00000 .00000                                  \r\n                  241-        GRID    17              5.00000 1.00000 .00000                                  \r\n                  242-        GRID    18              6.00000 1.00000 .00000                                  \r\n                  243-        GRID    19              7.00000 1.00000 .00000                                  \r\n                  244-        GRID    20              8.00000 1.00000 .00000                                  \r\n                  245-        GRID    21              9.00000 1.00000 .00000                                  \r\n                  246-        GRID    22              10.000001.00000 .00000                                  \r\n                  247-        GRID    23              .00000  2.00000 .00000                                  \r\n                  248-        GRID    24              1.00000 2.00000 .00000                                  \r\n                  249-        GRID    25              2.00000 2.00000 .00000                                  \r\n                  250-        GRID    26              3.00000 2.00000 .00000                                  \r\n                  251-        GRID    27              4.00000 2.00000 .00000                                  \r\n                  252-        GRID    28              5.00000 2.00000 .00000                                  \r\n                  253-        GRID    29              6.00000 2.00000 .00000                                  \r\n                  254-        GRID    30              7.00000 2.00000 .00000                                  \r\n                  255-        GRID    31              8.00000 2.00000 .00000                                  \r\n                  256-        GRID    32              9.00000 2.00000 .00000                                  \r\n                  257-        GRID    33              10.000002.00000 .00000                                  \r\n                  258-        GRID    34              .00000  3.00000 .00000                                  \r\n                  259-        GRID    35              1.00000 3.00000 .00000                                  \r\n                  260-        GRID    36              2.00000 3.00000 .00000                                  \r\n                  261-        GRID    37              3.00000 3.00000 .00000                                  \r\n                  262-        GRID    38              4.00000 3.00000 .00000                                  \r\n                  263-        GRID    39              5.00000 3.00000 .00000                                  \r\n                  264-        GRID    40              6.00000 3.00000 .00000                                  \r\n                  265-        GRID    41              7.00000 3.00000 .00000                                  \r\n                  266-        GRID    42              8.00000 3.00000 .00000                                  \r\n                  267-        GRID    43              9.00000 3.00000 .00000                                  \r\n                  268-        GRID    44              10.000003.00000 .00000                                  \r\n                  269-        GRID    45              .00000  4.00000 .00000                                  \r\n                  270-        GRID    46              1.00000 4.00000 .00000                                  \r\n                  271-        GRID    47              2.00000 4.00000 .00000                                  \r\n                  272-        GRID    48              3.00000 4.00000 .00000                                  \r\n                  273-        GRID    49              4.00000 4.00000 .00000                                  \r\n                  274-        GRID    50              5.00000 4.00000 .00000                                  \r\n                  275-        GRID    51              6.00000 4.00000 .00000                                  \r\n                  276-        GRID    52              7.00000 4.00000 .00000                                  \r\n                  277-        GRID    53              8.00000 4.00000 .00000                                  \r\n                  278-        GRID    54              9.00000 4.00000 .00000                                  \r\n                  279-        GRID    55              10.000004.00000 .00000                                  \r\n                  280-        GRID    56              .00000  5.00000 .00000                                  \r\n                  281-        GRID    57              1.00000 5.00000 .00000                                  \r\n                  282-        GRID    58              2.00000 5.00000 .00000                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    59              3.00000 5.00000 .00000                                  \r\n                  284-        GRID    60              4.00000 5.00000 .00000                                  \r\n                  285-        GRID    61              5.00000 5.00000 .00000                                  \r\n                  286-        GRID    62              6.00000 5.00000 .00000                                  \r\n                  287-        GRID    63              7.00000 5.00000 .00000                                  \r\n                  288-        GRID    64              8.00000 5.00000 .00000                                  \r\n                  289-        GRID    65              9.00000 5.00000 .00000                                  \r\n                  290-        GRID    66              10.000005.00000 .00000                                  \r\n                  291-        GRID    67              .00000  6.00000 .00000                                  \r\n                  292-        GRID    68              1.00000 6.00000 .00000                                  \r\n                  293-        GRID    69              2.00000 6.00000 .00000                                  \r\n                  294-        GRID    70              3.00000 6.00000 .00000                                  \r\n                  295-        GRID    71              4.00000 6.00000 .00000                                  \r\n                  296-        GRID    72              5.00000 6.00000 .00000                                  \r\n                  297-        GRID    73              6.00000 6.00000 .00000                                  \r\n                  298-        GRID    74              7.00000 6.00000 .00000                                  \r\n                  299-        GRID    75              8.00000 6.00000 .00000                                  \r\n                  300-        GRID    76              9.00000 6.00000 .00000                                  \r\n                  301-        GRID    77              10.000006.00000 .00000                                  \r\n                  302-        GRID    78              .00000  7.00000 .00000                                  \r\n                  303-        GRID    79              1.00000 7.00000 .00000                                  \r\n                  304-        GRID    80              2.00000 7.00000 .00000                                  \r\n                  305-        GRID    81              3.00000 7.00000 .00000                                  \r\n                  306-        GRID    82              4.00000 7.00000 .00000                                  \r\n                  307-        GRID    83              5.00000 7.00000 .00000                                  \r\n                  308-        GRID    84              6.00000 7.00000 .00000                                  \r\n                  309-        GRID    85              7.00000 7.00000 .00000                                  \r\n                  310-        GRID    86              8.00000 7.00000 .00000                                  \r\n                  311-        GRID    87              9.00000 7.00000 .00000                                  \r\n                  312-        GRID    88              10.000007.00000 .00000                                  \r\n                  313-        GRID    89              .00000  8.00000 .00000                                  \r\n                  314-        GRID    90              1.00000 8.00000 .00000                                  \r\n                  315-        GRID    91              2.00000 8.00000 .00000                                  \r\n                  316-        GRID    92              3.00000 8.00000 .00000                                  \r\n                  317-        GRID    93              4.00000 8.00000 .00000                                  \r\n                  318-        GRID    94              5.00000 8.00000 .00000                                  \r\n                  319-        GRID    95              6.00000 8.00000 .00000                                  \r\n                  320-        GRID    96              7.00000 8.00000 .00000                                  \r\n                  321-        GRID    97              8.00000 8.00000 .00000                                  \r\n                  322-        GRID    98              9.00000 8.00000 .00000                                  \r\n                  323-        GRID    99              10.000008.00000 .00000                                  \r\n                  324-        GRID    100             .00000  9.00000 .00000                                  \r\n                  325-        GRID    101             1.00000 9.00000 .00000                                  \r\n                  326-        GRID    102             2.00000 9.00000 .00000                                  \r\n                  327-        GRID    103             3.00000 9.00000 .00000                                  \r\n                  328-        GRID    104             4.00000 9.00000 .00000                                  \r\n                  329-        GRID    105             5.00000 9.00000 .00000                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID    106             6.00000 9.00000 .00000                                  \r\n                  331-        GRID    107             7.00000 9.00000 .00000                                  \r\n                  332-        GRID    108             8.00000 9.00000 .00000                                  \r\n                  333-        GRID    109             9.00000 9.00000 .00000                                  \r\n                  334-        GRID    110             10.000009.00000 .00000                                  \r\n                  335-        GRID    111             .00000  10.00000.00000                                  \r\n                  336-        GRID    112             1.00000 10.00000.00000                                  \r\n                  337-        GRID    113             2.00000 10.00000.00000                                  \r\n                  338-        GRID    114             3.00000 10.00000.00000                                  \r\n                  339-        GRID    115             4.00000 10.00000.00000                                  \r\n                  340-        GRID    116             5.00000 10.00000.00000                                  \r\n                  341-        GRID    117             6.00000 10.00000.00000                                  \r\n                  342-        GRID    118             7.00000 10.00000.00000                                  \r\n                  343-        GRID    119             8.00000 10.00000.00000                                  \r\n                  344-        GRID    120             9.00000 10.00000.00000                                  \r\n                  345-        GRID    121             10.0000010.00000.00000                                  \r\n                  346-        GRID    122             .00000  11.00000.00000                                  \r\n                  347-        GRID    123             1.00000 11.00000.00000                                  \r\n                  348-        GRID    124             2.00000 11.00000.00000                                  \r\n                  349-        GRID    125             3.00000 11.00000.00000                                  \r\n                  350-        GRID    126             4.00000 11.00000.00000                                  \r\n                  351-        GRID    127             5.00000 11.00000.00000                                  \r\n                  352-        GRID    128             6.00000 11.00000.00000                                  \r\n                  353-        GRID    129             7.00000 11.00000.00000                                  \r\n                  354-        GRID    130             8.00000 11.00000.00000                                  \r\n                  355-        GRID    131             9.00000 11.00000.00000                                  \r\n                  356-        GRID    132             10.0000011.00000.00000                                  \r\n                  357-        GRID    133             .00000  12.00000.00000                                  \r\n                  358-        GRID    134             1.00000 12.00000.00000                                  \r\n                  359-        GRID    135             2.00000 12.00000.00000                                  \r\n                  360-        GRID    136             3.00000 12.00000.00000                                  \r\n                  361-        GRID    137             4.00000 12.00000.00000                                  \r\n                  362-        GRID    138             5.00000 12.00000.00000                                  \r\n                  363-        GRID    139             6.00000 12.00000.00000                                  \r\n                  364-        GRID    140             7.00000 12.00000.00000                                  \r\n                  365-        GRID    141             8.00000 12.00000.00000                                  \r\n                  366-        GRID    142             9.00000 12.00000.00000                                  \r\n                  367-        GRID    143             10.0000012.00000.00000                                  \r\n                  368-        GRID    144             .00000  13.00000.00000                                  \r\n                  369-        GRID    145             1.00000 13.00000.00000                                  \r\n                  370-        GRID    146             2.00000 13.00000.00000                                  \r\n                  371-        GRID    147             3.00000 13.00000.00000                                  \r\n                  372-        GRID    148             4.00000 13.00000.00000                                  \r\n                  373-        GRID    149             5.00000 13.00000.00000                                  \r\n                  374-        GRID    150             6.00000 13.00000.00000                                  \r\n                  375-        GRID    151             7.00000 13.00000.00000                                  \r\n                  376-        GRID    152             8.00000 13.00000.00000                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    153             9.00000 13.00000.00000                                  \r\n                  378-        GRID    154             10.0000013.00000.00000                                  \r\n                  379-        GRID    155             .00000  14.00000.00000                                  \r\n                  380-        GRID    156             1.00000 14.00000.00000                                  \r\n                  381-        GRID    157             2.00000 14.00000.00000                                  \r\n                  382-        GRID    158             3.00000 14.00000.00000                                  \r\n                  383-        GRID    159             4.00000 14.00000.00000                                  \r\n                  384-        GRID    160             5.00000 14.00000.00000                                  \r\n                  385-        GRID    161             6.00000 14.00000.00000                                  \r\n                  386-        GRID    162             7.00000 14.00000.00000                                  \r\n                  387-        GRID    163             8.00000 14.00000.00000                                  \r\n                  388-        GRID    164             9.00000 14.00000.00000                                  \r\n                  389-        GRID    165             10.0000014.00000.00000                                  \r\n                  390-        GRID    166             .00000  15.00000.00000                                  \r\n                  391-        GRID    167             1.00000 15.00000.00000                                  \r\n                  392-        GRID    168             2.00000 15.00000.00000                                  \r\n                  393-        GRID    169             3.00000 15.00000.00000                                  \r\n                  394-        GRID    170             4.00000 15.00000.00000                                  \r\n                  395-        GRID    171             5.00000 15.00000.00000                                  \r\n                  396-        GRID    172             6.00000 15.00000.00000                                  \r\n                  397-        GRID    173             7.00000 15.00000.00000                                  \r\n                  398-        GRID    174             8.00000 15.00000.00000                                  \r\n                  399-        GRID    175             9.00000 15.00000.00000                                  \r\n                  400-        GRID    176             10.0000015.00000.00000                                  \r\n                  401-        GRID    177             .00000  16.00000.00000                                  \r\n                  402-        GRID    178             1.00000 16.00000.00000                                  \r\n                  403-        GRID    179             2.00000 16.00000.00000                                  \r\n                  404-        GRID    180             3.00000 16.00000.00000                                  \r\n                  405-        GRID    181             4.00000 16.00000.00000                                  \r\n                  406-        GRID    182             5.00000 16.00000.00000                                  \r\n                  407-        GRID    183             6.00000 16.00000.00000                                  \r\n                  408-        GRID    184             7.00000 16.00000.00000                                  \r\n                  409-        GRID    185             8.00000 16.00000.00000                                  \r\n                  410-        GRID    186             9.00000 16.00000.00000                                  \r\n                  411-        GRID    187             10.0000016.00000.00000                                  \r\n                  412-        GRID    188             .00000  17.00000.00000                                  \r\n                  413-        GRID    189             1.00000 17.00000.00000                                  \r\n                  414-        GRID    190             2.00000 17.00000.00000                                  \r\n                  415-        GRID    191             3.00000 17.00000.00000                                  \r\n                  416-        GRID    192             4.00000 17.00000.00000                                  \r\n                  417-        GRID    193             5.00000 17.00000.00000                                  \r\n                  418-        GRID    194             6.00000 17.00000.00000                                  \r\n                  419-        GRID    195             7.00000 17.00000.00000                                  \r\n                  420-        GRID    196             8.00000 17.00000.00000                                  \r\n                  421-        GRID    197             9.00000 17.00000.00000                                  \r\n                  422-        GRID    198             10.0000017.00000.00000                                  \r\n                  423-        GRID    199             .00000  18.00000.00000                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    200             1.00000 18.00000.00000                                  \r\n                  425-        GRID    201             2.00000 18.00000.00000                                  \r\n                  426-        GRID    202             3.00000 18.00000.00000                                  \r\n                  427-        GRID    203             4.00000 18.00000.00000                                  \r\n                  428-        GRID    204             5.00000 18.00000.00000                                  \r\n                  429-        GRID    205             6.00000 18.00000.00000                                  \r\n                  430-        GRID    206             7.00000 18.00000.00000                                  \r\n                  431-        GRID    207             8.00000 18.00000.00000                                  \r\n                  432-        GRID    208             9.00000 18.00000.00000                                  \r\n                  433-        GRID    209             10.0000018.00000.00000                                  \r\n                  434-        GRID    210             .00000  19.00000.00000                                  \r\n                  435-        GRID    211             1.00000 19.00000.00000                                  \r\n                  436-        GRID    212             2.00000 19.00000.00000                                  \r\n                  437-        GRID    213             3.00000 19.00000.00000                                  \r\n                  438-        GRID    214             4.00000 19.00000.00000                                  \r\n                  439-        GRID    215             5.00000 19.00000.00000                                  \r\n                  440-        GRID    216             6.00000 19.00000.00000                                  \r\n                  441-        GRID    217             7.00000 19.00000.00000                                  \r\n                  442-        GRID    218             8.00000 19.00000.00000                                  \r\n                  443-        GRID    219             9.00000 19.00000.00000                                  \r\n                  444-        GRID    220             10.0000019.00000.00000                                  \r\n                  445-        GRID    221             .00000  20.00000.00000                                  \r\n                  446-        GRID    222             1.00000 20.00000.00000                                  \r\n                  447-        GRID    223             2.00000 20.00000.00000                                  \r\n                  448-        GRID    224             3.00000 20.00000.00000                                  \r\n                  449-        GRID    225             4.00000 20.00000.00000                                  \r\n                  450-        GRID    226             5.00000 20.00000.00000                                  \r\n                  451-        GRID    227             6.00000 20.00000.00000                                  \r\n                  452-        GRID    228             7.00000 20.00000.00000                                  \r\n                  453-        GRID    229             8.00000 20.00000.00000                                  \r\n                  454-        GRID    230             9.00000 20.00000.00000                                  \r\n                  455-        GRID    231             10.0000020.00000.00000                                  \r\n                  456-        MAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n                  457-        +MAT1   30000.  28000.                                                          \r\n                  458-        PARAM   GRDPNT  111                                                             \r\n                  459-        PLOTEL  300     23      1                                                       \r\n                  460-        PLOTEL  301     1       11              302     11      231                     \r\n                  461-        PLOTEL  303     231     221             304     221     199                     \r\n                  462-        PLOTEL  305     199     201             306     201     203                     \r\n                  463-        PLOTEL  307     203     205             308     205     207                     \r\n                  464-        PLOTEL  309     207     209             310     187     185                     \r\n                  465-        PLOTEL  311     185     183             312     183     181                     \r\n                  466-        PLOTEL  313     181     179             314     179     177                     \r\n                  467-        PLOTEL  315     199     177             316     177     155                     \r\n                  468-        PLOTEL  317     155     157             318     157     159                     \r\n                  469-        PLOTEL  319     159     161             320     161     163                     \r\n                  470-        PLOTEL  321     163     165             322     143     141                     \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        PLOTEL  323     141     139             324     139     137                     \r\n                  472-        PLOTEL  325     137     135             326     135     133                     \r\n                  473-        PLOTEL  327     155     133             328     133     111                     \r\n                  474-        PLOTEL  329     111     113             330     113     115                     \r\n                  475-        PLOTEL  331     115     117             332     117     119                     \r\n                  476-        PLOTEL  333     119     121             334     99      97                      \r\n                  477-        PLOTEL  335     97      95              336     95      93                      \r\n                  478-        PLOTEL  337     93      91              338     91      89                      \r\n                  479-        PLOTEL  339     111     89              340     89      67                      \r\n                  480-        PLOTEL  341     67      69              342     69      71                      \r\n                  481-        PLOTEL  343     71      73              344     73      75                      \r\n                  482-        PLOTEL  345     75      77              346     55      53                      \r\n                  483-        PLOTEL  347     53      51              348     51      49                      \r\n                  484-        PLOTEL  349     49      47              350     47      45                      \r\n                  485-        PLOTEL  351     67      45              352     45      23                      \r\n                  486-        PLOTEL  353     23      25              354     25      27                      \r\n                  487-        PLOTEL  355     27      29              356     29      31                      \r\n                  488-        PLOTEL  357     31      33              358     9       31                      \r\n                  489-        PLOTEL  359     31      53              360     53      75                      \r\n                  490-        PLOTEL  361     75      97              362     97      119                     \r\n                  491-        PLOTEL  363     119     141             364     141     163                     \r\n                  492-        PLOTEL  365     163     185             366     185     207                     \r\n                  493-        PLOTEL  367     207     229             368     227     205                     \r\n                  494-        PLOTEL  369     205     183             370     183     161                     \r\n                  495-        PLOTEL  371     161     139             372     139     117                     \r\n                  496-        PLOTEL  373     117     95              374     95      73                      \r\n                  497-        PLOTEL  375     73      51              376     51      29                      \r\n                  498-        PLOTEL  377     29      7               378     5       27                      \r\n                  499-        PLOTEL  379     27      49              380     49      71                      \r\n                  500-        PLOTEL  381     71      93              382     93      115                     \r\n                  501-        PLOTEL  383     115     137             384     137     159                     \r\n                  502-        PLOTEL  385     159     181             386     181     203                     \r\n                  503-        PLOTEL  387     203     225             388     223     201                     \r\n                  504-        PLOTEL  389     201     179             390     179     157                     \r\n                  505-        PLOTEL  391     157     135             392     135     113                     \r\n                  506-        PLOTEL  393     113     91              394     91      69                      \r\n                  507-        PLOTEL  395     69      47              396     47      36                      \r\n                  508-        PLOTEL  397     36      25              398     25      3                       \r\n                  509-        PQUAD1  23      2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n                  510-        +PQUAD1 .5      .0                                                              \r\n                  511-        SPC1    37      5       1       12      23      34      45      56      +31001H \r\n                  512-        +31001H 67      78      89      100     111     122     133     144     +31002H \r\n                  513-        +31002H 155     166     177     188     199     210     221                     \r\n                  514-        SPC1    37      34      11      22      33      44      55      66      +11001H \r\n                  515-        +11001H 77      88      99      110     121     132     143     154     +11002H \r\n                  516-        +11002H 165     176     187     198     209     220     231                     \r\n                  517-        SPC1    37      35      1       2       3       4       5       6       +41001H \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        +41001H 7       8       9       10      11                                      \r\n                  519-        SPC1    37      35      221     222     223     224     225     226     +21001H \r\n                  520-        +21001H 227     228     229     230     231                                     \r\n                              ENDDATA\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE           2861\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT   12.385\r\n                                        RMS WAVEFRONT   12.536\r\n                                        RMS BANDWIDTH   12.608\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE           2861\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT   12.385\r\n                                        RMS WAVEFRONT   12.536\r\n                                        RMS BANDWIDTH   12.608\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       13        13\r\n                                        PROFILE (P)                       2861      2861\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           13        13\r\n                                        AVERAGE WAVEFRONT (C-AVG)       12.385    12.385\r\n                                        RMS WAVEFRONT (C-RMS)           12.536    12.536\r\n                                        RMS BANDWITCH (B-RMS)           12.608    12.608\r\n                                        NUMBER OF GRID POINTS (N)                    231\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               200\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       830\r\n                                        MATRIX DENSITY, PERCENT                    3.544\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        3  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =      111\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.06043930D+05 *\r\n                *  0.00000000D+00  0.00000000D+00  4.12087860D+04  0.00000000D+00 -2.06043930D+05  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.38049433D+06  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -2.06043930D+05  0.00000000D+00  1.38049433D+06  0.00000000D+00 *\r\n                *  0.00000000D+00  2.06043930D+05  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.76098866D+06 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.120878601D+04      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.380494331D+06  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.502746811D+05  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.730769012D+06  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.380494331D+06                                    *\r\n                                      *                   3.502746811D+05                   *\r\n                                      *                                    1.730769012D+06  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n                        1 ROOTS BELOW   1.293333E+02\r\n                        2 ROOTS BELOW   2.025893E+02\r\n                        4 ROOTS BELOW   8.112073E+02\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         3\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         3\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        26\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         4*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 3X EST.ROOTS IN RANGE SPECIFIED.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         2        3.237408E+01        5.689823E+00        9.055634E-01        1.030220E+04        3.335242E+05             \r\n        2         1        2.022407E+02        1.422113E+01        2.263364E+00        1.030220E+04        2.083523E+06             \r\n        3         3        8.111597E+02        2.848087E+01        4.532870E+00        5.601166E+03        4.543440E+06             \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.569410E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.550088E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            1.492598E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.398354E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.269680E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            1.109741E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            9.224761E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            7.124973E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            4.849744E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.455098E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0            4.539905E-01   1.398354E-01   0.0            0.0                           \r\n            35      G      0.0            0.0            4.484011E-01   1.381139E-01   1.114591E-02   0.0                           \r\n            36      G      0.0            0.0            4.317706E-01   1.329914E-01   2.201737E-02   0.0                           \r\n            37      G      0.0            0.0            4.045085E-01   1.245943E-01   3.234670E-02   0.0                           \r\n            38      G      0.0            0.0            3.672860E-01   1.131293E-01   4.187954E-02   0.0                           \r\n            39      G      0.0            0.0            3.210197E-01   9.887860E-02   5.038116E-02   0.0                           \r\n            40      G      0.0            0.0            2.668489E-01   8.219323E-02   5.764224E-02   0.0                           \r\n            41      G      0.0            0.0            2.061074E-01   6.348398E-02   6.348398E-02   0.0                           \r\n            42      G      0.0            0.0            1.402908E-01   4.321153E-02   6.776251E-02   0.0                           \r\n            43      G      0.0            0.0            7.101975E-02   2.187509E-02   7.037253E-02   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0            7.124973E-02   0.0                           \r\n            56      G      0.0            0.0            7.071067E-01   1.109741E-01   0.0            0.0                           \r\n            57      G      0.0            0.0            6.984012E-01   1.096078E-01   1.736017E-02   0.0                           \r\n            58      G      0.0            0.0            6.724985E-01   1.055426E-01   3.429287E-02   0.0                           \r\n            59      G      0.0            0.0            6.300367E-01   9.887860E-02   5.038116E-02   0.0                           \r\n            60      G      0.0            0.0            5.720614E-01   8.977990E-02   6.522890E-02   0.0                           \r\n            61      G      0.0            0.0            5.000000E-01   7.847050E-02   7.847050E-02   0.0                           \r\n            62      G      0.0            0.0            4.156269E-01   6.522890E-02   8.977990E-02   0.0                           \r\n            63      G      0.0            0.0            3.210197E-01   5.038116E-02   9.887860E-02   0.0                           \r\n            64      G      0.0            0.0            2.185080E-01   3.429287E-02   1.055426E-01   0.0                           \r\n            65      G      0.0            0.0            1.106159E-01   1.736017E-02   1.096078E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            1.109741E-01   0.0                           \r\n            78      G      0.0            0.0            8.910065E-01   7.124973E-02   0.0            0.0                           \r\n            79      G      0.0            0.0            8.800368E-01   7.037253E-02   2.187509E-02   0.0                           \r\n            80      G      0.0            0.0            8.473975E-01   6.776251E-02   4.321153E-02   0.0                           \r\n            81      G      0.0            0.0            7.938926E-01   6.348398E-02   6.348398E-02   0.0                           \r\n            82      G      0.0            0.0            7.208394E-01   5.764224E-02   8.219323E-02   0.0                           \r\n            83      G      0.0            0.0            6.300367E-01   5.038116E-02   9.887860E-02   0.0                           \r\n            84      G      0.0            0.0            5.237205E-01   4.187954E-02   1.131293E-01   0.0                           \r\n            85      G      0.0            0.0            4.045085E-01   3.234670E-02   1.245943E-01   0.0                           \r\n            86      G      0.0            0.0            2.753361E-01   2.201737E-02   1.329914E-01   0.0                           \r\n            87      G      0.0            0.0            1.393841E-01   1.114591E-02   1.381139E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0            1.398354E-01   0.0                           \r\n           111      G      0.0            0.0            1.000000E+00  -1.489614E-11   0.0            0.0                           \r\n           112      G      0.0            0.0            9.876884E-01  -1.214225E-11   2.455098E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            9.510565E-01  -4.563531E-12   4.849744E-02   0.0                           \r\n           114      G      0.0            0.0            8.910065E-01   5.406898E-12   7.124973E-02   0.0                           \r\n           115      G      0.0            0.0            8.090169E-01   1.506906E-11   9.224761E-02   0.0                           \r\n           116      G      0.0            0.0            7.071067E-01   2.204741E-11   1.109741E-01   0.0                           \r\n           117      G      0.0            0.0            5.877852E-01   2.496322E-11   1.269680E-01   0.0                           \r\n           118      G      0.0            0.0            4.539905E-01   2.347477E-11   1.398354E-01   0.0                           \r\n           119      G      0.0            0.0            3.090170E-01   1.807140E-11   1.492598E-01   0.0                           \r\n           120      G      0.0            0.0            1.564345E-01   9.791383E-12   1.550088E-01   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0            1.569410E-01   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.145222E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            3.106499E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.991284E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            2.802413E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.544538E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.224008E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.848715E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            1.427901E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            9.719270E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            4.920211E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0            8.090169E-01   1.848715E-01   0.0            0.0                           \r\n            35      G      0.0            0.0            7.990566E-01   1.825954E-01   1.977073E-02   0.0                           \r\n            36      G      0.0            0.0            7.694208E-01   1.758233E-01   3.905464E-02   0.0                           \r\n            37      G      0.0            0.0            7.208394E-01   1.647217E-01   5.737691E-02   0.0                           \r\n            38      G      0.0            0.0            6.545085E-01   1.495642E-01   7.428636E-02   0.0                           \r\n            39      G      0.0            0.0            5.720614E-01   1.307239E-01   8.936661E-02   0.0                           \r\n            40      G      0.0            0.0            4.755282E-01   1.086647E-01   1.022464E-01   0.0                           \r\n            41      G      0.0            0.0            3.672860E-01   8.392990E-02   1.126085E-01   0.0                           \r\n            42      G      0.0            0.0            2.500000E-01   5.712844E-02   1.201978E-01   0.0                           \r\n            43      G      0.0            0.0            1.265581E-01   2.892027E-02   1.248275E-01   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0            1.263835E-01   0.0                           \r\n            56      G      0.0            0.0            1.000000E+00   3.752479E-15   0.0            0.0                           \r\n            57      G      0.0            0.0            9.876884E-01   8.362275E-15   2.443797E-02   0.0                           \r\n            58      G      0.0            0.0            9.510565E-01   2.084885E-14   4.827420E-02   0.0                           \r\n            59      G      0.0            0.0            8.910065E-01   3.480149E-14   7.092176E-02   0.0                           \r\n            60      G      0.0            0.0            8.090169E-01   4.721130E-14   9.182297E-02   0.0                           \r\n            61      G      0.0            0.0            7.071067E-01   5.345043E-14   1.104632E-01   0.0                           \r\n            62      G      0.0            0.0            5.877852E-01   5.466399E-14   1.263835E-01   0.0                           \r\n            63      G      0.0            0.0            4.539905E-01   4.922448E-14   1.391918E-01   0.0                           \r\n            64      G      0.0            0.0            3.090170E-01   3.725479E-14   1.485727E-01   0.0                           \r\n            65      G      0.0            0.0            1.564345E-01   2.019245E-14   1.542953E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            1.562186E-01   0.0                           \r\n            78      G      0.0            0.0            8.090169E-01  -1.848715E-01   0.0            0.0                           \r\n            79      G      0.0            0.0            7.990566E-01  -1.825954E-01   1.977073E-02   0.0                           \r\n            80      G      0.0            0.0            7.694208E-01  -1.758233E-01   3.905464E-02   0.0                           \r\n            81      G      0.0            0.0            7.208394E-01  -1.647217E-01   5.737691E-02   0.0                           \r\n            82      G      0.0            0.0            6.545085E-01  -1.495642E-01   7.428636E-02   0.0                           \r\n            83      G      0.0            0.0            5.720614E-01  -1.307239E-01   8.936661E-02   0.0                           \r\n            84      G      0.0            0.0            4.755282E-01  -1.086647E-01   1.022464E-01   0.0                           \r\n            85      G      0.0            0.0            3.672860E-01  -8.392990E-02   1.126085E-01   0.0                           \r\n            86      G      0.0            0.0            2.500000E-01  -5.712844E-02   1.201978E-01   0.0                           \r\n            87      G      0.0            0.0            1.265581E-01  -2.892027E-02   1.248275E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0            1.263835E-01   0.0                           \r\n           111      G      0.0            0.0            1.052307E-12  -3.145222E-01   0.0            0.0                           \r\n           112      G      0.0            0.0            1.074882E-12  -3.106499E-01  -4.677274E-14   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            1.136289E-12  -2.991284E-01  -6.421723E-14   0.0                           \r\n           114      G      0.0            0.0            1.183414E-12  -2.802413E-01  -2.215107E-14   0.0                           \r\n           115      G      0.0            0.0            1.174488E-12  -2.544538E-01   4.091110E-14   0.0                           \r\n           116      G      0.0            0.0            1.107346E-12  -2.224008E-01   9.098555E-14   0.0                           \r\n           117      G      0.0            0.0            9.944418E-13  -1.848715E-01   1.395653E-13   0.0                           \r\n           118      G      0.0            0.0            8.247490E-13  -1.427901E-01   2.024780E-13   0.0                           \r\n           119      G      0.0            0.0            5.926236E-13  -9.719270E-02   2.613617E-13   0.0                           \r\n           120      G      0.0            0.0            3.101129E-13  -4.920211E-02   3.017233E-13   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0            3.159660E-13   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -2.520193E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -2.541968E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.595249E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.646700E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.649501E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -2.554428E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.321781E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.931526E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.389404E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -7.276327E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0           -4.799215E-01   6.946530E-04   0.0            0.0                           \r\n            35      G      0.0            0.0           -4.894721E-01  -4.018719E-03   1.884091E-02   0.0                           \r\n            36      G      0.0            0.0           -5.145187E-01  -1.701719E-02   3.057361E-02   0.0                           \r\n            37      G      0.0            0.0           -5.450697E-01  -3.512749E-02   2.971329E-02   0.0                           \r\n            38      G      0.0            0.0           -5.670359E-01  -5.384482E-02   1.366620E-02   0.0                           \r\n            39      G      0.0            0.0           -5.654854E-01  -6.832857E-02  -1.663638E-02   0.0                           \r\n            40      G      0.0            0.0           -5.281482E-01  -7.447623E-02  -5.687805E-02   0.0                           \r\n            41      G      0.0            0.0           -4.484011E-01  -6.984095E-02  -1.002417E-01   0.0                           \r\n            42      G      0.0            0.0           -3.270751E-01  -5.419214E-02  -1.388477E-01   0.0                           \r\n            43      G      0.0            0.0           -1.726819E-01  -2.959640E-02  -1.654323E-01   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0           -1.749033E-01   0.0                           \r\n            56      G      0.0            0.0           -2.090134E-01   2.554428E-01   0.0            0.0                           \r\n            57      G      0.0            0.0           -2.305183E-01   2.485641E-01   4.240787E-02   0.0                           \r\n            58      G      0.0            0.0           -2.892550E-01   2.289113E-01   7.342280E-02   0.0                           \r\n            59      G      0.0            0.0           -3.691750E-01   1.992327E-01   8.418828E-02   0.0                           \r\n            60      G      0.0            0.0           -4.475380E-01   1.634801E-01   7.036638E-02   0.0                           \r\n            61      G      0.0            0.0           -5.000000E-01   1.260096E-01   3.313248E-02   0.0                           \r\n            62      G      0.0            0.0           -5.060984E-01   9.071678E-02  -2.103575E-02   0.0                           \r\n            63      G      0.0            0.0           -4.539354E-01   6.029223E-02  -8.173006E-02   0.0                           \r\n            64      G      0.0            0.0           -3.430314E-01   3.575867E-02  -1.368460E-01   0.0                           \r\n            65      G      0.0            0.0           -1.847212E-01   1.638598E-02  -1.751937E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0           -1.889171E-01   0.0                           \r\n            78      G      0.0            0.0            4.151546E-01   3.276548E-01   0.0            0.0                           \r\n            79      G      0.0            0.0            3.797029E-01   3.212236E-01   6.989671E-02   0.0                           \r\n            80      G      0.0            0.0            2.808347E-01   3.026109E-01   1.250322E-01   0.0                           \r\n            81      G      0.0            0.0            1.393841E-01   2.737288E-01   1.538512E-01   0.0                           \r\n            82      G      0.0            0.0           -1.499114E-02   2.373566E-01   1.505122E-01   0.0                           \r\n            83      G      0.0            0.0           -1.502459E-01   1.966215E-01   1.161495E-01   0.0                           \r\n            84      G      0.0            0.0           -2.388932E-01   1.544351E-01   5.861626E-02   0.0                           \r\n            85      G      0.0            0.0           -2.639473E-01   1.130057E-01  -9.236285E-03   0.0                           \r\n            86      G      0.0            0.0           -2.225684E-01   7.352924E-02  -7.236808E-02   0.0                           \r\n            87      G      0.0            0.0           -1.266173E-01   3.612101E-02  -1.168347E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0           -1.328318E-01   0.0                           \r\n           111      G      0.0            0.0            1.000000E+00   1.367269E-17   0.0            0.0                           \r\n           112      G      0.0            0.0            9.536365E-01  -1.676524E-15   9.140213E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            8.231105E-01  -3.325381E-15   1.659184E-01   0.0                           \r\n           114      G      0.0            0.0            6.322864E-01  -4.347521E-15   2.102688E-01   0.0                           \r\n           115      G      0.0            0.0            4.152396E-01  -2.325889E-15   2.176016E-01   0.0                           \r\n           116      G      0.0            0.0            2.090134E-01   2.333879E-16   1.889171E-01   0.0                           \r\n           117      G      0.0            0.0            4.579712E-02   2.310383E-15   1.327858E-01   0.0                           \r\n           118      G      0.0            0.0           -5.377634E-02   3.148243E-15   6.342317E-02   0.0                           \r\n           119      G      0.0            0.0           -8.476044E-02   2.676253E-15  -2.458215E-03   0.0                           \r\n           120      G      0.0            0.0           -5.856040E-02   1.786816E-15  -4.933063E-02   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0           -6.626496E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.433884E+04   0.0           -7.826680E+02   0.0                           \r\n             2      G      0.0            0.0           -2.832498E+04   0.0            9.970744E+01   0.0                           \r\n             3      G      0.0            0.0           -2.727357E+04   0.0            1.969270E+02   0.0                           \r\n             4      G      0.0            0.0           -2.555256E+04   0.0            2.893149E+02   0.0                           \r\n             5      G      0.0            0.0           -2.320054E+04   0.0            3.746189E+02   0.0                           \r\n             6      G      0.0            0.0           -2.027748E+04   0.0            4.506416E+02   0.0                           \r\n             7      G      0.0            0.0           -1.685639E+04   0.0            5.155930E+02   0.0                           \r\n             8      G      0.0            0.0           -1.301857E+04   0.0            5.678295E+02   0.0                           \r\n             9      G      0.0            0.0           -8.861663E+03   0.0            6.060587E+02   0.0                           \r\n            10      G      0.0            0.0           -4.485962E+03   0.0            6.294200E+02   0.0                           \r\n            11      G      0.0            0.0            9.514386E+04   3.186320E+02   3.186320E+02   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -1.378127E+04   0.0                           \r\n            22      G      0.0            0.0           -4.485962E+03   6.294200E+02   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0           -2.722528E+04   0.0                           \r\n            33      G      0.0            0.0           -8.861663E+03   6.060587E+02   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0           -3.999459E+04   0.0                           \r\n            44      G      0.0            0.0           -1.301856E+04   5.678280E+02   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0           -5.178103E+04   0.0                           \r\n            55      G      0.0            0.0           -1.685639E+04   5.155919E+02   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -6.229187E+04   0.0                           \r\n            66      G      0.0            0.0           -2.027749E+04   4.506400E+02   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -7.127343E+04   0.0                           \r\n            77      G      0.0            0.0           -2.320054E+04   3.746189E+02   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -7.849399E+04   0.0                           \r\n            88      G      0.0            0.0           -2.555256E+04   2.893149E+02   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -8.378493E+04   0.0                           \r\n            99      G      0.0            0.0           -2.727357E+04   1.969270E+02   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -8.701452E+04   0.0                           \r\n           110      G      0.0            0.0           -2.832498E+04   9.970744E+01   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0           -8.809728E+04   0.0                           \r\n           121      G      0.0            0.0           -2.867768E+04   5.829002E-06   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -6.034997E+04   0.0           -9.177875E+03   0.0                           \r\n             2      G      0.0            0.0           -1.192102E+05   0.0            7.796655E+02   0.0                           \r\n             3      G      0.0            0.0           -1.147899E+05   0.0            1.539890E+03   0.0                           \r\n             4      G      0.0            0.0           -1.075431E+05   0.0            2.262399E+03   0.0                           \r\n             5      G      0.0            0.0           -9.764775E+04   0.0            2.929282E+03   0.0                           \r\n             6      G      0.0            0.0           -8.534572E+04   0.0            3.523900E+03   0.0                           \r\n             7      G      0.0            0.0           -7.094527E+04   0.0            4.031738E+03   0.0                           \r\n             8      G      0.0            0.0           -5.479538E+04   0.0            4.440331E+03   0.0                           \r\n             9      G      0.0            0.0           -3.729831E+04   0.0            4.739575E+03   0.0                           \r\n            10      G      0.0            0.0           -1.888134E+04   0.0            4.922172E+03   0.0                           \r\n            11      G      0.0            0.0            1.909854E+05   6.566249E+02   2.491764E+03   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -4.533337E+04   0.0                           \r\n            22      G      0.0            0.0           -2.544192E+04   1.249022E+03   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0           -8.622433E+04   0.0                           \r\n            33      G      0.0            0.0           -4.839438E+04   1.062475E+03   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0           -1.186810E+05   0.0                           \r\n            44      G      0.0            0.0           -6.660855E+04   7.718511E+02   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0           -1.395158E+05   0.0                           \r\n            55      G      0.0            0.0           -7.830195E+04   4.058154E+02   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -1.466964E+05   0.0                           \r\n            66      G      0.0            0.0           -8.233291E+04   1.295120E-08   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -1.395158E+05   0.0                           \r\n            77      G      0.0            0.0           -7.830195E+04  -4.058154E+02   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -1.186810E+05   0.0                           \r\n            88      G      0.0            0.0           -6.660855E+04  -7.718511E+02   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -8.622433E+04   0.0                           \r\n            99      G      0.0            0.0           -4.839438E+04  -1.062475E+03   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -4.533337E+04   0.0                           \r\n           110      G      0.0            0.0           -2.544192E+04  -1.249022E+03   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0            5.203232E-06   0.0                           \r\n           121      G      0.0            0.0           -3.849894E-06  -1.313250E+03   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            7.941492E+04   0.0            2.243875E+04   0.0                           \r\n             2      G      0.0            0.0            1.626678E+05   0.0           -1.404194E+03   0.0                           \r\n             3      G      0.0            0.0            1.728195E+05   0.0           -2.830049E+03   0.0                           \r\n             4      G      0.0            0.0            1.855275E+05   0.0           -4.286404E+03   0.0                           \r\n             5      G      0.0            0.0            1.954792E+05   0.0           -5.759770E+03   0.0                           \r\n             6      G      0.0            0.0            1.970363E+05   0.0           -7.209116E+03   0.0                           \r\n             7      G      0.0            0.0            1.855519E+05   0.0           -8.568526E+03   0.0                           \r\n             8      G      0.0            0.0            1.584801E+05   0.0           -9.755316E+03   0.0                           \r\n             9      G      0.0            0.0            1.160637E+05   0.0           -1.068252E+04   0.0                           \r\n            10      G      0.0            0.0            6.141778E+04   0.0           -1.127379E+04   0.0                           \r\n            11      G      0.0            0.0           -2.881166E+05  -3.535219E+03  -5.738536E+03   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            3.457399E+04   0.0                           \r\n            22      G      0.0            0.0            6.863066E+04  -6.869414E+03   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0            5.473893E+04   0.0                           \r\n            33      G      0.0            0.0            1.258981E+05  -6.296141E+03   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0            4.939430E+04   0.0                           \r\n            44      G      0.0            0.0            1.628279E+05  -5.433880E+03   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0            1.333909E+04   0.0                           \r\n            55      G      0.0            0.0            1.747038E+05  -4.402089E+03   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -5.144681E+04   0.0                           \r\n            66      G      0.0            0.0            1.620123E+05  -3.332382E+03   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -1.360840E+05   0.0                           \r\n            77      G      0.0            0.0            1.302665E+05  -2.341879E+03   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -2.265988E+05   0.0                           \r\n            88      G      0.0            0.0            8.872896E+04  -1.510433E+03   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -3.068642E+05   0.0                           \r\n            99      G      0.0            0.0            4.834000E+04  -8.668965E+02   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -3.620159E+05   0.0                           \r\n           110      G      0.0            0.0            1.928358E+04  -3.864536E+02   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0           -3.816448E+05   0.0                           \r\n           121      G      0.0            0.0            8.737829E+03   8.585630E-10   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n          ORIGIN      11   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    4   MODAL  DEFORM.     1 - SUBCASE       1 - MODE   9.055634E-01 - FREQUENCY                                      \r\n          PLOT    5   MODAL  DEFORM.     1 - SUBCASE       2 - MODE   2.263364E+00 - FREQUENCY                                      \r\n          PLOT    6   MODAL  DEFORM.     1 - SUBCASE       3 - MODE   4.532870E+00 - FREQUENCY                                      \r\n                                                 ORIGIN     11  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  VIBRATIONS OF A 10 BY 20 PLATE                                     \r\n DATE:  5/17/95\r\n END TIME: 15:31:30\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03012a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03012A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,1                                                                       \r\n     TIME  65                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    =         VIBRATION OF A 20 X 40 HALF PLATE                            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                          \r\n                  3      $                                                                               \r\n                  4        METHOD = 20 $ FEER - NO MODES                                                 \r\n                  5           SPC = 37                                                                   \r\n                  6      $                  ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)         \r\n                  7      $       MODE    M       N       FREQ                                            \r\n                  8      $       1       1       1       9.068997E-1                                     \r\n                  9      $       2       1       2       2.267249                                        \r\n                 10      $       5       1       3       4.534498                                        \r\n                 11      $       6       3       1       4.534498                                        \r\n                 12      $       7       3       2       5.894848                                        \r\n                 13      $       9       1       4       7.708647                                        \r\n                 14      $                                                                               \r\n                 15      OUTPUT                                                                          \r\n                 16         SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210,                   \r\n                 17                 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462,              \r\n                 18                 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714,              \r\n                 19                 757 THRU 777, 820 THRU 840, 841 THRU 861                             \r\n                 20         DISPLACEMENTS = 1                                                            \r\n                 21      $                                                                               \r\n                 22      $                                                                               \r\n                 23      $                                                                               \r\n                 24      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                            \r\n                 25      OUTPUT(PLOT)                                                                    \r\n                 26      PLOTTER NASTPLT                                                                 \r\n                 27              SET 1 INCLUDE PLOTEL                                                    \r\n                 28              SET 2 INCLUDE QUAD1                                                     \r\n                 29              MAXIMUM DEFORMATION  1.0                                                \r\n                 30              FIND SCALE, ORIGIN 10                                                   \r\n                 31      PTITLE = ALL QUADS IN THE PLATE                                                 \r\n                 32      PLOT ORIGIN 10, SET 2, LABELS                                                   \r\n                 33              FIND SCALE, ORIGIN 11                                                   \r\n                 34      PTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\n                 35      PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\n                 36      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =  1753, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       2       THRU    839                                             \r\n                    2-        CQUAD1  1       101     1       2       23      22      .0                      \r\n                    3-        CQUAD1  2       101     2       3       24      23      .0                      \r\n                    4-        CQUAD1  3       101     3       4       25      24      .0                      \r\n                    5-        CQUAD1  4       101     4       5       26      25      .0                      \r\n                    6-        CQUAD1  5       101     5       6       27      26      .0                      \r\n                    7-        CQUAD1  6       101     6       7       28      27      .0                      \r\n                    8-        CQUAD1  7       101     7       8       29      28      .0                      \r\n                    9-        CQUAD1  8       101     8       9       30      29      .0                      \r\n                   10-        CQUAD1  9       101     9       10      31      30      .0                      \r\n                   11-        CQUAD1  10      101     10      11      32      31      .0                      \r\n                   12-        CQUAD1  11      101     11      12      33      32      .0                      \r\n                   13-        CQUAD1  12      101     12      13      34      33      .0                      \r\n                   14-        CQUAD1  13      101     13      14      35      34      .0                      \r\n                   15-        CQUAD1  14      101     14      15      36      35      .0                      \r\n                   16-        CQUAD1  15      101     15      16      37      36      .0                      \r\n                   17-        CQUAD1  16      101     16      17      38      37      .0                      \r\n                   18-        CQUAD1  17      101     17      18      39      38      .0                      \r\n                   19-        CQUAD1  18      101     18      19      40      39      .0                      \r\n                   20-        CQUAD1  19      101     19      20      41      40      .0                      \r\n                   21-        CQUAD1  20      101     20      21      42      41      .0                      \r\n                   22-        CQUAD1  22      101     22      23      44      43      .0                      \r\n                   23-        CQUAD1  23      101     23      24      45      44      .0                      \r\n                   24-        CQUAD1  24      101     24      25      46      45      .0                      \r\n                   25-        CQUAD1  25      101     25      26      47      46      .0                      \r\n                   26-        CQUAD1  26      101     26      27      48      47      .0                      \r\n                   27-        CQUAD1  27      101     27      28      49      48      .0                      \r\n                   28-        CQUAD1  28      101     28      29      50      49      .0                      \r\n                   29-        CQUAD1  29      101     29      30      51      50      .0                      \r\n                   30-        CQUAD1  30      101     30      31      52      51      .0                      \r\n                   31-        CQUAD1  31      101     31      32      53      52      .0                      \r\n                   32-        CQUAD1  32      101     32      33      54      53      .0                      \r\n                   33-        CQUAD1  33      101     33      34      55      54      .0                      \r\n                   34-        CQUAD1  34      101     34      35      56      55      .0                      \r\n                   35-        CQUAD1  35      101     35      36      57      56      .0                      \r\n                   36-        CQUAD1  36      101     36      37      58      57      .0                      \r\n                   37-        CQUAD1  37      101     37      38      59      58      .0                      \r\n                   38-        CQUAD1  38      101     38      39      60      59      .0                      \r\n                   39-        CQUAD1  39      101     39      40      61      60      .0                      \r\n                   40-        CQUAD1  40      101     40      41      62      61      .0                      \r\n                   41-        CQUAD1  41      101     41      42      63      62      .0                      \r\n                   42-        CQUAD1  43      101     43      44      65      64      .0                      \r\n                   43-        CQUAD1  44      101     44      45      66      65      .0                      \r\n                   44-        CQUAD1  45      101     45      46      67      66      .0                      \r\n                   45-        CQUAD1  46      101     46      47      68      67      .0                      \r\n                   46-        CQUAD1  47      101     47      48      69      68      .0                      \r\n                   47-        CQUAD1  48      101     48      49      70      69      .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD1  49      101     49      50      71      70      .0                      \r\n                   49-        CQUAD1  50      101     50      51      72      71      .0                      \r\n                   50-        CQUAD1  51      101     51      52      73      72      .0                      \r\n                   51-        CQUAD1  52      101     52      53      74      73      .0                      \r\n                   52-        CQUAD1  53      101     53      54      75      74      .0                      \r\n                   53-        CQUAD1  54      101     54      55      76      75      .0                      \r\n                   54-        CQUAD1  55      101     55      56      77      76      .0                      \r\n                   55-        CQUAD1  56      101     56      57      78      77      .0                      \r\n                   56-        CQUAD1  57      101     57      58      79      78      .0                      \r\n                   57-        CQUAD1  58      101     58      59      80      79      .0                      \r\n                   58-        CQUAD1  59      101     59      60      81      80      .0                      \r\n                   59-        CQUAD1  60      101     60      61      82      81      .0                      \r\n                   60-        CQUAD1  61      101     61      62      83      82      .0                      \r\n                   61-        CQUAD1  62      101     62      63      84      83      .0                      \r\n                   62-        CQUAD1  64      101     64      65      86      85      .0                      \r\n                   63-        CQUAD1  65      101     65      66      87      86      .0                      \r\n                   64-        CQUAD1  66      101     66      67      88      87      .0                      \r\n                   65-        CQUAD1  67      101     67      68      89      88      .0                      \r\n                   66-        CQUAD1  68      101     68      69      90      89      .0                      \r\n                   67-        CQUAD1  69      101     69      70      91      90      .0                      \r\n                   68-        CQUAD1  70      101     70      71      92      91      .0                      \r\n                   69-        CQUAD1  71      101     71      72      93      92      .0                      \r\n                   70-        CQUAD1  72      101     72      73      94      93      .0                      \r\n                   71-        CQUAD1  73      101     73      74      95      94      .0                      \r\n                   72-        CQUAD1  74      101     74      75      96      95      .0                      \r\n                   73-        CQUAD1  75      101     75      76      97      96      .0                      \r\n                   74-        CQUAD1  76      101     76      77      98      97      .0                      \r\n                   75-        CQUAD1  77      101     77      78      99      98      .0                      \r\n                   76-        CQUAD1  78      101     78      79      100     99      .0                      \r\n                   77-        CQUAD1  79      101     79      80      101     100     .0                      \r\n                   78-        CQUAD1  80      101     80      81      102     101     .0                      \r\n                   79-        CQUAD1  81      101     81      82      103     102     .0                      \r\n                   80-        CQUAD1  82      101     82      83      104     103     .0                      \r\n                   81-        CQUAD1  83      101     83      84      105     104     .0                      \r\n                   82-        CQUAD1  85      101     85      86      107     106     .0                      \r\n                   83-        CQUAD1  86      101     86      87      108     107     .0                      \r\n                   84-        CQUAD1  87      101     87      88      109     108     .0                      \r\n                   85-        CQUAD1  88      101     88      89      110     109     .0                      \r\n                   86-        CQUAD1  89      101     89      90      111     110     .0                      \r\n                   87-        CQUAD1  90      101     90      91      112     111     .0                      \r\n                   88-        CQUAD1  91      101     91      92      113     112     .0                      \r\n                   89-        CQUAD1  92      101     92      93      114     113     .0                      \r\n                   90-        CQUAD1  93      101     93      94      115     114     .0                      \r\n                   91-        CQUAD1  94      101     94      95      116     115     .0                      \r\n                   92-        CQUAD1  95      101     95      96      117     116     .0                      \r\n                   93-        CQUAD1  96      101     96      97      118     117     .0                      \r\n                   94-        CQUAD1  97      101     97      98      119     118     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD1  98      101     98      99      120     119     .0                      \r\n                   96-        CQUAD1  99      101     99      100     121     120     .0                      \r\n                   97-        CQUAD1  100     101     100     101     122     121     .0                      \r\n                   98-        CQUAD1  101     101     101     102     123     122     .0                      \r\n                   99-        CQUAD1  102     101     102     103     124     123     .0                      \r\n                  100-        CQUAD1  103     101     103     104     125     124     .0                      \r\n                  101-        CQUAD1  104     101     104     105     126     125     .0                      \r\n                  102-        CQUAD1  106     101     106     107     128     127     .0                      \r\n                  103-        CQUAD1  107     101     107     108     129     128     .0                      \r\n                  104-        CQUAD1  108     101     108     109     130     129     .0                      \r\n                  105-        CQUAD1  109     101     109     110     131     130     .0                      \r\n                  106-        CQUAD1  110     101     110     111     132     131     .0                      \r\n                  107-        CQUAD1  111     101     111     112     133     132     .0                      \r\n                  108-        CQUAD1  112     101     112     113     134     133     .0                      \r\n                  109-        CQUAD1  113     101     113     114     135     134     .0                      \r\n                  110-        CQUAD1  114     101     114     115     136     135     .0                      \r\n                  111-        CQUAD1  115     101     115     116     137     136     .0                      \r\n                  112-        CQUAD1  116     101     116     117     138     137     .0                      \r\n                  113-        CQUAD1  117     101     117     118     139     138     .0                      \r\n                  114-        CQUAD1  118     101     118     119     140     139     .0                      \r\n                  115-        CQUAD1  119     101     119     120     141     140     .0                      \r\n                  116-        CQUAD1  120     101     120     121     142     141     .0                      \r\n                  117-        CQUAD1  121     101     121     122     143     142     .0                      \r\n                  118-        CQUAD1  122     101     122     123     144     143     .0                      \r\n                  119-        CQUAD1  123     101     123     124     145     144     .0                      \r\n                  120-        CQUAD1  124     101     124     125     146     145     .0                      \r\n                  121-        CQUAD1  125     101     125     126     147     146     .0                      \r\n                  122-        CQUAD1  127     101     127     128     149     148     .0                      \r\n                  123-        CQUAD1  128     101     128     129     150     149     .0                      \r\n                  124-        CQUAD1  129     101     129     130     151     150     .0                      \r\n                  125-        CQUAD1  130     101     130     131     152     151     .0                      \r\n                  126-        CQUAD1  131     101     131     132     153     152     .0                      \r\n                  127-        CQUAD1  132     101     132     133     154     153     .0                      \r\n                  128-        CQUAD1  133     101     133     134     155     154     .0                      \r\n                  129-        CQUAD1  134     101     134     135     156     155     .0                      \r\n                  130-        CQUAD1  135     101     135     136     157     156     .0                      \r\n                  131-        CQUAD1  136     101     136     137     158     157     .0                      \r\n                  132-        CQUAD1  137     101     137     138     159     158     .0                      \r\n                  133-        CQUAD1  138     101     138     139     160     159     .0                      \r\n                  134-        CQUAD1  139     101     139     140     161     160     .0                      \r\n                  135-        CQUAD1  140     101     140     141     162     161     .0                      \r\n                  136-        CQUAD1  141     101     141     142     163     162     .0                      \r\n                  137-        CQUAD1  142     101     142     143     164     163     .0                      \r\n                  138-        CQUAD1  143     101     143     144     165     164     .0                      \r\n                  139-        CQUAD1  144     101     144     145     166     165     .0                      \r\n                  140-        CQUAD1  145     101     145     146     167     166     .0                      \r\n                  141-        CQUAD1  146     101     146     147     168     167     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQUAD1  148     101     148     149     170     169     .0                      \r\n                  143-        CQUAD1  149     101     149     150     171     170     .0                      \r\n                  144-        CQUAD1  150     101     150     151     172     171     .0                      \r\n                  145-        CQUAD1  151     101     151     152     173     172     .0                      \r\n                  146-        CQUAD1  152     101     152     153     174     173     .0                      \r\n                  147-        CQUAD1  153     101     153     154     175     174     .0                      \r\n                  148-        CQUAD1  154     101     154     155     176     175     .0                      \r\n                  149-        CQUAD1  155     101     155     156     177     176     .0                      \r\n                  150-        CQUAD1  156     101     156     157     178     177     .0                      \r\n                  151-        CQUAD1  157     101     157     158     179     178     .0                      \r\n                  152-        CQUAD1  158     101     158     159     180     179     .0                      \r\n                  153-        CQUAD1  159     101     159     160     181     180     .0                      \r\n                  154-        CQUAD1  160     101     160     161     182     181     .0                      \r\n                  155-        CQUAD1  161     101     161     162     183     182     .0                      \r\n                  156-        CQUAD1  162     101     162     163     184     183     .0                      \r\n                  157-        CQUAD1  163     101     163     164     185     184     .0                      \r\n                  158-        CQUAD1  164     101     164     165     186     185     .0                      \r\n                  159-        CQUAD1  165     101     165     166     187     186     .0                      \r\n                  160-        CQUAD1  166     101     166     167     188     187     .0                      \r\n                  161-        CQUAD1  167     101     167     168     189     188     .0                      \r\n                  162-        CQUAD1  169     101     169     170     191     190     .0                      \r\n                  163-        CQUAD1  170     101     170     171     192     191     .0                      \r\n                  164-        CQUAD1  171     101     171     172     193     192     .0                      \r\n                  165-        CQUAD1  172     101     172     173     194     193     .0                      \r\n                  166-        CQUAD1  173     101     173     174     195     194     .0                      \r\n                  167-        CQUAD1  174     101     174     175     196     195     .0                      \r\n                  168-        CQUAD1  175     101     175     176     197     196     .0                      \r\n                  169-        CQUAD1  176     101     176     177     198     197     .0                      \r\n                  170-        CQUAD1  177     101     177     178     199     198     .0                      \r\n                  171-        CQUAD1  178     101     178     179     200     199     .0                      \r\n                  172-        CQUAD1  179     101     179     180     201     200     .0                      \r\n                  173-        CQUAD1  180     101     180     181     202     201     .0                      \r\n                  174-        CQUAD1  181     101     181     182     203     202     .0                      \r\n                  175-        CQUAD1  182     101     182     183     204     203     .0                      \r\n                  176-        CQUAD1  183     101     183     184     205     204     .0                      \r\n                  177-        CQUAD1  184     101     184     185     206     205     .0                      \r\n                  178-        CQUAD1  185     101     185     186     207     206     .0                      \r\n                  179-        CQUAD1  186     101     186     187     208     207     .0                      \r\n                  180-        CQUAD1  187     101     187     188     209     208     .0                      \r\n                  181-        CQUAD1  188     101     188     189     210     209     .0                      \r\n                  182-        CQUAD1  190     101     190     191     212     211     .0                      \r\n                  183-        CQUAD1  191     101     191     192     213     212     .0                      \r\n                  184-        CQUAD1  192     101     192     193     214     213     .0                      \r\n                  185-        CQUAD1  193     101     193     194     215     214     .0                      \r\n                  186-        CQUAD1  194     101     194     195     216     215     .0                      \r\n                  187-        CQUAD1  195     101     195     196     217     216     .0                      \r\n                  188-        CQUAD1  196     101     196     197     218     217     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQUAD1  197     101     197     198     219     218     .0                      \r\n                  190-        CQUAD1  198     101     198     199     220     219     .0                      \r\n                  191-        CQUAD1  199     101     199     200     221     220     .0                      \r\n                  192-        CQUAD1  200     101     200     201     222     221     .0                      \r\n                  193-        CQUAD1  201     101     201     202     223     222     .0                      \r\n                  194-        CQUAD1  202     101     202     203     224     223     .0                      \r\n                  195-        CQUAD1  203     101     203     204     225     224     .0                      \r\n                  196-        CQUAD1  204     101     204     205     226     225     .0                      \r\n                  197-        CQUAD1  205     101     205     206     227     226     .0                      \r\n                  198-        CQUAD1  206     101     206     207     228     227     .0                      \r\n                  199-        CQUAD1  207     101     207     208     229     228     .0                      \r\n                  200-        CQUAD1  208     101     208     209     230     229     .0                      \r\n                  201-        CQUAD1  209     101     209     210     231     230     .0                      \r\n                  202-        CQUAD1  211     101     211     212     233     232     .0                      \r\n                  203-        CQUAD1  212     101     212     213     234     233     .0                      \r\n                  204-        CQUAD1  213     101     213     214     235     234     .0                      \r\n                  205-        CQUAD1  214     101     214     215     236     235     .0                      \r\n                  206-        CQUAD1  215     101     215     216     237     236     .0                      \r\n                  207-        CQUAD1  216     101     216     217     238     237     .0                      \r\n                  208-        CQUAD1  217     101     217     218     239     238     .0                      \r\n                  209-        CQUAD1  218     101     218     219     240     239     .0                      \r\n                  210-        CQUAD1  219     101     219     220     241     240     .0                      \r\n                  211-        CQUAD1  220     101     220     221     242     241     .0                      \r\n                  212-        CQUAD1  221     101     221     222     243     242     .0                      \r\n                  213-        CQUAD1  222     101     222     223     244     243     .0                      \r\n                  214-        CQUAD1  223     101     223     224     245     244     .0                      \r\n                  215-        CQUAD1  224     101     224     225     246     245     .0                      \r\n                  216-        CQUAD1  225     101     225     226     247     246     .0                      \r\n                  217-        CQUAD1  226     101     226     227     248     247     .0                      \r\n                  218-        CQUAD1  227     101     227     228     249     248     .0                      \r\n                  219-        CQUAD1  228     101     228     229     250     249     .0                      \r\n                  220-        CQUAD1  229     101     229     230     251     250     .0                      \r\n                  221-        CQUAD1  230     101     230     231     252     251     .0                      \r\n                  222-        CQUAD1  232     101     232     233     254     253     .0                      \r\n                  223-        CQUAD1  233     101     233     234     255     254     .0                      \r\n                  224-        CQUAD1  234     101     234     235     256     255     .0                      \r\n                  225-        CQUAD1  235     101     235     236     257     256     .0                      \r\n                  226-        CQUAD1  236     101     236     237     258     257     .0                      \r\n                  227-        CQUAD1  237     101     237     238     259     258     .0                      \r\n                  228-        CQUAD1  238     101     238     239     260     259     .0                      \r\n                  229-        CQUAD1  239     101     239     240     261     260     .0                      \r\n                  230-        CQUAD1  240     101     240     241     262     261     .0                      \r\n                  231-        CQUAD1  241     101     241     242     263     262     .0                      \r\n                  232-        CQUAD1  242     101     242     243     264     263     .0                      \r\n                  233-        CQUAD1  243     101     243     244     265     264     .0                      \r\n                  234-        CQUAD1  244     101     244     245     266     265     .0                      \r\n                  235-        CQUAD1  245     101     245     246     267     266     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQUAD1  246     101     246     247     268     267     .0                      \r\n                  237-        CQUAD1  247     101     247     248     269     268     .0                      \r\n                  238-        CQUAD1  248     101     248     249     270     269     .0                      \r\n                  239-        CQUAD1  249     101     249     250     271     270     .0                      \r\n                  240-        CQUAD1  250     101     250     251     272     271     .0                      \r\n                  241-        CQUAD1  251     101     251     252     273     272     .0                      \r\n                  242-        CQUAD1  253     101     253     254     275     274     .0                      \r\n                  243-        CQUAD1  254     101     254     255     276     275     .0                      \r\n                  244-        CQUAD1  255     101     255     256     277     276     .0                      \r\n                  245-        CQUAD1  256     101     256     257     278     277     .0                      \r\n                  246-        CQUAD1  257     101     257     258     279     278     .0                      \r\n                  247-        CQUAD1  258     101     258     259     280     279     .0                      \r\n                  248-        CQUAD1  259     101     259     260     281     280     .0                      \r\n                  249-        CQUAD1  260     101     260     261     282     281     .0                      \r\n                  250-        CQUAD1  261     101     261     262     283     282     .0                      \r\n                  251-        CQUAD1  262     101     262     263     284     283     .0                      \r\n                  252-        CQUAD1  263     101     263     264     285     284     .0                      \r\n                  253-        CQUAD1  264     101     264     265     286     285     .0                      \r\n                  254-        CQUAD1  265     101     265     266     287     286     .0                      \r\n                  255-        CQUAD1  266     101     266     267     288     287     .0                      \r\n                  256-        CQUAD1  267     101     267     268     289     288     .0                      \r\n                  257-        CQUAD1  268     101     268     269     290     289     .0                      \r\n                  258-        CQUAD1  269     101     269     270     291     290     .0                      \r\n                  259-        CQUAD1  270     101     270     271     292     291     .0                      \r\n                  260-        CQUAD1  271     101     271     272     293     292     .0                      \r\n                  261-        CQUAD1  272     101     272     273     294     293     .0                      \r\n                  262-        CQUAD1  274     101     274     275     296     295     .0                      \r\n                  263-        CQUAD1  275     101     275     276     297     296     .0                      \r\n                  264-        CQUAD1  276     101     276     277     298     297     .0                      \r\n                  265-        CQUAD1  277     101     277     278     299     298     .0                      \r\n                  266-        CQUAD1  278     101     278     279     300     299     .0                      \r\n                  267-        CQUAD1  279     101     279     280     301     300     .0                      \r\n                  268-        CQUAD1  280     101     280     281     302     301     .0                      \r\n                  269-        CQUAD1  281     101     281     282     303     302     .0                      \r\n                  270-        CQUAD1  282     101     282     283     304     303     .0                      \r\n                  271-        CQUAD1  283     101     283     284     305     304     .0                      \r\n                  272-        CQUAD1  284     101     284     285     306     305     .0                      \r\n                  273-        CQUAD1  285     101     285     286     307     306     .0                      \r\n                  274-        CQUAD1  286     101     286     287     308     307     .0                      \r\n                  275-        CQUAD1  287     101     287     288     309     308     .0                      \r\n                  276-        CQUAD1  288     101     288     289     310     309     .0                      \r\n                  277-        CQUAD1  289     101     289     290     311     310     .0                      \r\n                  278-        CQUAD1  290     101     290     291     312     311     .0                      \r\n                  279-        CQUAD1  291     101     291     292     313     312     .0                      \r\n                  280-        CQUAD1  292     101     292     293     314     313     .0                      \r\n                  281-        CQUAD1  293     101     293     294     315     314     .0                      \r\n                  282-        CQUAD1  295     101     295     296     317     316     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CQUAD1  296     101     296     297     318     317     .0                      \r\n                  284-        CQUAD1  297     101     297     298     319     318     .0                      \r\n                  285-        CQUAD1  298     101     298     299     320     319     .0                      \r\n                  286-        CQUAD1  299     101     299     300     321     320     .0                      \r\n                  287-        CQUAD1  300     101     300     301     322     321     .0                      \r\n                  288-        CQUAD1  301     101     301     302     323     322     .0                      \r\n                  289-        CQUAD1  302     101     302     303     324     323     .0                      \r\n                  290-        CQUAD1  303     101     303     304     325     324     .0                      \r\n                  291-        CQUAD1  304     101     304     305     326     325     .0                      \r\n                  292-        CQUAD1  305     101     305     306     327     326     .0                      \r\n                  293-        CQUAD1  306     101     306     307     328     327     .0                      \r\n                  294-        CQUAD1  307     101     307     308     329     328     .0                      \r\n                  295-        CQUAD1  308     101     308     309     330     329     .0                      \r\n                  296-        CQUAD1  309     101     309     310     331     330     .0                      \r\n                  297-        CQUAD1  310     101     310     311     332     331     .0                      \r\n                  298-        CQUAD1  311     101     311     312     333     332     .0                      \r\n                  299-        CQUAD1  312     101     312     313     334     333     .0                      \r\n                  300-        CQUAD1  313     101     313     314     335     334     .0                      \r\n                  301-        CQUAD1  314     101     314     315     336     335     .0                      \r\n                  302-        CQUAD1  316     101     316     317     338     337     .0                      \r\n                  303-        CQUAD1  317     101     317     318     339     338     .0                      \r\n                  304-        CQUAD1  318     101     318     319     340     339     .0                      \r\n                  305-        CQUAD1  319     101     319     320     341     340     .0                      \r\n                  306-        CQUAD1  320     101     320     321     342     341     .0                      \r\n                  307-        CQUAD1  321     101     321     322     343     342     .0                      \r\n                  308-        CQUAD1  322     101     322     323     344     343     .0                      \r\n                  309-        CQUAD1  323     101     323     324     345     344     .0                      \r\n                  310-        CQUAD1  324     101     324     325     346     345     .0                      \r\n                  311-        CQUAD1  325     101     325     326     347     346     .0                      \r\n                  312-        CQUAD1  326     101     326     327     348     347     .0                      \r\n                  313-        CQUAD1  327     101     327     328     349     348     .0                      \r\n                  314-        CQUAD1  328     101     328     329     350     349     .0                      \r\n                  315-        CQUAD1  329     101     329     330     351     350     .0                      \r\n                  316-        CQUAD1  330     101     330     331     352     351     .0                      \r\n                  317-        CQUAD1  331     101     331     332     353     352     .0                      \r\n                  318-        CQUAD1  332     101     332     333     354     353     .0                      \r\n                  319-        CQUAD1  333     101     333     334     355     354     .0                      \r\n                  320-        CQUAD1  334     101     334     335     356     355     .0                      \r\n                  321-        CQUAD1  335     101     335     336     357     356     .0                      \r\n                  322-        CQUAD1  337     101     337     338     359     358     .0                      \r\n                  323-        CQUAD1  338     101     338     339     360     359     .0                      \r\n                  324-        CQUAD1  339     101     339     340     361     360     .0                      \r\n                  325-        CQUAD1  340     101     340     341     362     361     .0                      \r\n                  326-        CQUAD1  341     101     341     342     363     362     .0                      \r\n                  327-        CQUAD1  342     101     342     343     364     363     .0                      \r\n                  328-        CQUAD1  343     101     343     344     365     364     .0                      \r\n                  329-        CQUAD1  344     101     344     345     366     365     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CQUAD1  345     101     345     346     367     366     .0                      \r\n                  331-        CQUAD1  346     101     346     347     368     367     .0                      \r\n                  332-        CQUAD1  347     101     347     348     369     368     .0                      \r\n                  333-        CQUAD1  348     101     348     349     370     369     .0                      \r\n                  334-        CQUAD1  349     101     349     350     371     370     .0                      \r\n                  335-        CQUAD1  350     101     350     351     372     371     .0                      \r\n                  336-        CQUAD1  351     101     351     352     373     372     .0                      \r\n                  337-        CQUAD1  352     101     352     353     374     373     .0                      \r\n                  338-        CQUAD1  353     101     353     354     375     374     .0                      \r\n                  339-        CQUAD1  354     101     354     355     376     375     .0                      \r\n                  340-        CQUAD1  355     101     355     356     377     376     .0                      \r\n                  341-        CQUAD1  356     101     356     357     378     377     .0                      \r\n                  342-        CQUAD1  358     101     358     359     380     379     .0                      \r\n                  343-        CQUAD1  359     101     359     360     381     380     .0                      \r\n                  344-        CQUAD1  360     101     360     361     382     381     .0                      \r\n                  345-        CQUAD1  361     101     361     362     383     382     .0                      \r\n                  346-        CQUAD1  362     101     362     363     384     383     .0                      \r\n                  347-        CQUAD1  363     101     363     364     385     384     .0                      \r\n                  348-        CQUAD1  364     101     364     365     386     385     .0                      \r\n                  349-        CQUAD1  365     101     365     366     387     386     .0                      \r\n                  350-        CQUAD1  366     101     366     367     388     387     .0                      \r\n                  351-        CQUAD1  367     101     367     368     389     388     .0                      \r\n                  352-        CQUAD1  368     101     368     369     390     389     .0                      \r\n                  353-        CQUAD1  369     101     369     370     391     390     .0                      \r\n                  354-        CQUAD1  370     101     370     371     392     391     .0                      \r\n                  355-        CQUAD1  371     101     371     372     393     392     .0                      \r\n                  356-        CQUAD1  372     101     372     373     394     393     .0                      \r\n                  357-        CQUAD1  373     101     373     374     395     394     .0                      \r\n                  358-        CQUAD1  374     101     374     375     396     395     .0                      \r\n                  359-        CQUAD1  375     101     375     376     397     396     .0                      \r\n                  360-        CQUAD1  376     101     376     377     398     397     .0                      \r\n                  361-        CQUAD1  377     101     377     378     399     398     .0                      \r\n                  362-        CQUAD1  379     101     379     380     401     400     .0                      \r\n                  363-        CQUAD1  380     101     380     381     402     401     .0                      \r\n                  364-        CQUAD1  381     101     381     382     403     402     .0                      \r\n                  365-        CQUAD1  382     101     382     383     404     403     .0                      \r\n                  366-        CQUAD1  383     101     383     384     405     404     .0                      \r\n                  367-        CQUAD1  384     101     384     385     406     405     .0                      \r\n                  368-        CQUAD1  385     101     385     386     407     406     .0                      \r\n                  369-        CQUAD1  386     101     386     387     408     407     .0                      \r\n                  370-        CQUAD1  387     101     387     388     409     408     .0                      \r\n                  371-        CQUAD1  388     101     388     389     410     409     .0                      \r\n                  372-        CQUAD1  389     101     389     390     411     410     .0                      \r\n                  373-        CQUAD1  390     101     390     391     412     411     .0                      \r\n                  374-        CQUAD1  391     101     391     392     413     412     .0                      \r\n                  375-        CQUAD1  392     101     392     393     414     413     .0                      \r\n                  376-        CQUAD1  393     101     393     394     415     414     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CQUAD1  394     101     394     395     416     415     .0                      \r\n                  378-        CQUAD1  395     101     395     396     417     416     .0                      \r\n                  379-        CQUAD1  396     101     396     397     418     417     .0                      \r\n                  380-        CQUAD1  397     101     397     398     419     418     .0                      \r\n                  381-        CQUAD1  398     101     398     399     420     419     .0                      \r\n                  382-        CQUAD1  400     101     400     401     422     421     .0                      \r\n                  383-        CQUAD1  401     101     401     402     423     422     .0                      \r\n                  384-        CQUAD1  402     101     402     403     424     423     .0                      \r\n                  385-        CQUAD1  403     101     403     404     425     424     .0                      \r\n                  386-        CQUAD1  404     101     404     405     426     425     .0                      \r\n                  387-        CQUAD1  405     101     405     406     427     426     .0                      \r\n                  388-        CQUAD1  406     101     406     407     428     427     .0                      \r\n                  389-        CQUAD1  407     101     407     408     429     428     .0                      \r\n                  390-        CQUAD1  408     101     408     409     430     429     .0                      \r\n                  391-        CQUAD1  409     101     409     410     431     430     .0                      \r\n                  392-        CQUAD1  410     101     410     411     432     431     .0                      \r\n                  393-        CQUAD1  411     101     411     412     433     432     .0                      \r\n                  394-        CQUAD1  412     101     412     413     434     433     .0                      \r\n                  395-        CQUAD1  413     101     413     414     435     434     .0                      \r\n                  396-        CQUAD1  414     101     414     415     436     435     .0                      \r\n                  397-        CQUAD1  415     101     415     416     437     436     .0                      \r\n                  398-        CQUAD1  416     101     416     417     438     437     .0                      \r\n                  399-        CQUAD1  417     101     417     418     439     438     .0                      \r\n                  400-        CQUAD1  418     101     418     419     440     439     .0                      \r\n                  401-        CQUAD1  419     101     419     420     441     440     .0                      \r\n                  402-        CQUAD1  421     101     421     422     443     442     .0                      \r\n                  403-        CQUAD1  422     101     422     423     444     443     .0                      \r\n                  404-        CQUAD1  423     101     423     424     445     444     .0                      \r\n                  405-        CQUAD1  424     101     424     425     446     445     .0                      \r\n                  406-        CQUAD1  425     101     425     426     447     446     .0                      \r\n                  407-        CQUAD1  426     101     426     427     448     447     .0                      \r\n                  408-        CQUAD1  427     101     427     428     449     448     .0                      \r\n                  409-        CQUAD1  428     101     428     429     450     449     .0                      \r\n                  410-        CQUAD1  429     101     429     430     451     450     .0                      \r\n                  411-        CQUAD1  430     101     430     431     452     451     .0                      \r\n                  412-        CQUAD1  431     101     431     432     453     452     .0                      \r\n                  413-        CQUAD1  432     101     432     433     454     453     .0                      \r\n                  414-        CQUAD1  433     101     433     434     455     454     .0                      \r\n                  415-        CQUAD1  434     101     434     435     456     455     .0                      \r\n                  416-        CQUAD1  435     101     435     436     457     456     .0                      \r\n                  417-        CQUAD1  436     101     436     437     458     457     .0                      \r\n                  418-        CQUAD1  437     101     437     438     459     458     .0                      \r\n                  419-        CQUAD1  438     101     438     439     460     459     .0                      \r\n                  420-        CQUAD1  439     101     439     440     461     460     .0                      \r\n                  421-        CQUAD1  440     101     440     441     462     461     .0                      \r\n                  422-        CQUAD1  442     101     442     443     464     463     .0                      \r\n                  423-        CQUAD1  443     101     443     444     465     464     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        CQUAD1  444     101     444     445     466     465     .0                      \r\n                  425-        CQUAD1  445     101     445     446     467     466     .0                      \r\n                  426-        CQUAD1  446     101     446     447     468     467     .0                      \r\n                  427-        CQUAD1  447     101     447     448     469     468     .0                      \r\n                  428-        CQUAD1  448     101     448     449     470     469     .0                      \r\n                  429-        CQUAD1  449     101     449     450     471     470     .0                      \r\n                  430-        CQUAD1  450     101     450     451     472     471     .0                      \r\n                  431-        CQUAD1  451     101     451     452     473     472     .0                      \r\n                  432-        CQUAD1  452     101     452     453     474     473     .0                      \r\n                  433-        CQUAD1  453     101     453     454     475     474     .0                      \r\n                  434-        CQUAD1  454     101     454     455     476     475     .0                      \r\n                  435-        CQUAD1  455     101     455     456     477     476     .0                      \r\n                  436-        CQUAD1  456     101     456     457     478     477     .0                      \r\n                  437-        CQUAD1  457     101     457     458     479     478     .0                      \r\n                  438-        CQUAD1  458     101     458     459     480     479     .0                      \r\n                  439-        CQUAD1  459     101     459     460     481     480     .0                      \r\n                  440-        CQUAD1  460     101     460     461     482     481     .0                      \r\n                  441-        CQUAD1  461     101     461     462     483     482     .0                      \r\n                  442-        CQUAD1  463     101     463     464     485     484     .0                      \r\n                  443-        CQUAD1  464     101     464     465     486     485     .0                      \r\n                  444-        CQUAD1  465     101     465     466     487     486     .0                      \r\n                  445-        CQUAD1  466     101     466     467     488     487     .0                      \r\n                  446-        CQUAD1  467     101     467     468     489     488     .0                      \r\n                  447-        CQUAD1  468     101     468     469     490     489     .0                      \r\n                  448-        CQUAD1  469     101     469     470     491     490     .0                      \r\n                  449-        CQUAD1  470     101     470     471     492     491     .0                      \r\n                  450-        CQUAD1  471     101     471     472     493     492     .0                      \r\n                  451-        CQUAD1  472     101     472     473     494     493     .0                      \r\n                  452-        CQUAD1  473     101     473     474     495     494     .0                      \r\n                  453-        CQUAD1  474     101     474     475     496     495     .0                      \r\n                  454-        CQUAD1  475     101     475     476     497     496     .0                      \r\n                  455-        CQUAD1  476     101     476     477     498     497     .0                      \r\n                  456-        CQUAD1  477     101     477     478     499     498     .0                      \r\n                  457-        CQUAD1  478     101     478     479     500     499     .0                      \r\n                  458-        CQUAD1  479     101     479     480     501     500     .0                      \r\n                  459-        CQUAD1  480     101     480     481     502     501     .0                      \r\n                  460-        CQUAD1  481     101     481     482     503     502     .0                      \r\n                  461-        CQUAD1  482     101     482     483     504     503     .0                      \r\n                  462-        CQUAD1  484     101     484     485     506     505     .0                      \r\n                  463-        CQUAD1  485     101     485     486     507     506     .0                      \r\n                  464-        CQUAD1  486     101     486     487     508     507     .0                      \r\n                  465-        CQUAD1  487     101     487     488     509     508     .0                      \r\n                  466-        CQUAD1  488     101     488     489     510     509     .0                      \r\n                  467-        CQUAD1  489     101     489     490     511     510     .0                      \r\n                  468-        CQUAD1  490     101     490     491     512     511     .0                      \r\n                  469-        CQUAD1  491     101     491     492     513     512     .0                      \r\n                  470-        CQUAD1  492     101     492     493     514     513     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        CQUAD1  493     101     493     494     515     514     .0                      \r\n                  472-        CQUAD1  494     101     494     495     516     515     .0                      \r\n                  473-        CQUAD1  495     101     495     496     517     516     .0                      \r\n                  474-        CQUAD1  496     101     496     497     518     517     .0                      \r\n                  475-        CQUAD1  497     101     497     498     519     518     .0                      \r\n                  476-        CQUAD1  498     101     498     499     520     519     .0                      \r\n                  477-        CQUAD1  499     101     499     500     521     520     .0                      \r\n                  478-        CQUAD1  500     101     500     501     522     521     .0                      \r\n                  479-        CQUAD1  501     101     501     502     523     522     .0                      \r\n                  480-        CQUAD1  502     101     502     503     524     523     .0                      \r\n                  481-        CQUAD1  503     101     503     504     525     524     .0                      \r\n                  482-        CQUAD1  505     101     505     506     527     526     .0                      \r\n                  483-        CQUAD1  506     101     506     507     528     527     .0                      \r\n                  484-        CQUAD1  507     101     507     508     529     528     .0                      \r\n                  485-        CQUAD1  508     101     508     509     530     529     .0                      \r\n                  486-        CQUAD1  509     101     509     510     531     530     .0                      \r\n                  487-        CQUAD1  510     101     510     511     532     531     .0                      \r\n                  488-        CQUAD1  511     101     511     512     533     532     .0                      \r\n                  489-        CQUAD1  512     101     512     513     534     533     .0                      \r\n                  490-        CQUAD1  513     101     513     514     535     534     .0                      \r\n                  491-        CQUAD1  514     101     514     515     536     535     .0                      \r\n                  492-        CQUAD1  515     101     515     516     537     536     .0                      \r\n                  493-        CQUAD1  516     101     516     517     538     537     .0                      \r\n                  494-        CQUAD1  517     101     517     518     539     538     .0                      \r\n                  495-        CQUAD1  518     101     518     519     540     539     .0                      \r\n                  496-        CQUAD1  519     101     519     520     541     540     .0                      \r\n                  497-        CQUAD1  520     101     520     521     542     541     .0                      \r\n                  498-        CQUAD1  521     101     521     522     543     542     .0                      \r\n                  499-        CQUAD1  522     101     522     523     544     543     .0                      \r\n                  500-        CQUAD1  523     101     523     524     545     544     .0                      \r\n                  501-        CQUAD1  524     101     524     525     546     545     .0                      \r\n                  502-        CQUAD1  526     101     526     527     548     547     .0                      \r\n                  503-        CQUAD1  527     101     527     528     549     548     .0                      \r\n                  504-        CQUAD1  528     101     528     529     550     549     .0                      \r\n                  505-        CQUAD1  529     101     529     530     551     550     .0                      \r\n                  506-        CQUAD1  530     101     530     531     552     551     .0                      \r\n                  507-        CQUAD1  531     101     531     532     553     552     .0                      \r\n                  508-        CQUAD1  532     101     532     533     554     553     .0                      \r\n                  509-        CQUAD1  533     101     533     534     555     554     .0                      \r\n                  510-        CQUAD1  534     101     534     535     556     555     .0                      \r\n                  511-        CQUAD1  535     101     535     536     557     556     .0                      \r\n                  512-        CQUAD1  536     101     536     537     558     557     .0                      \r\n                  513-        CQUAD1  537     101     537     538     559     558     .0                      \r\n                  514-        CQUAD1  538     101     538     539     560     559     .0                      \r\n                  515-        CQUAD1  539     101     539     540     561     560     .0                      \r\n                  516-        CQUAD1  540     101     540     541     562     561     .0                      \r\n                  517-        CQUAD1  541     101     541     542     563     562     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        CQUAD1  542     101     542     543     564     563     .0                      \r\n                  519-        CQUAD1  543     101     543     544     565     564     .0                      \r\n                  520-        CQUAD1  544     101     544     545     566     565     .0                      \r\n                  521-        CQUAD1  545     101     545     546     567     566     .0                      \r\n                  522-        CQUAD1  547     101     547     548     569     568     .0                      \r\n                  523-        CQUAD1  548     101     548     549     570     569     .0                      \r\n                  524-        CQUAD1  549     101     549     550     571     570     .0                      \r\n                  525-        CQUAD1  550     101     550     551     572     571     .0                      \r\n                  526-        CQUAD1  551     101     551     552     573     572     .0                      \r\n                  527-        CQUAD1  552     101     552     553     574     573     .0                      \r\n                  528-        CQUAD1  553     101     553     554     575     574     .0                      \r\n                  529-        CQUAD1  554     101     554     555     576     575     .0                      \r\n                  530-        CQUAD1  555     101     555     556     577     576     .0                      \r\n                  531-        CQUAD1  556     101     556     557     578     577     .0                      \r\n                  532-        CQUAD1  557     101     557     558     579     578     .0                      \r\n                  533-        CQUAD1  558     101     558     559     580     579     .0                      \r\n                  534-        CQUAD1  559     101     559     560     581     580     .0                      \r\n                  535-        CQUAD1  560     101     560     561     582     581     .0                      \r\n                  536-        CQUAD1  561     101     561     562     583     582     .0                      \r\n                  537-        CQUAD1  562     101     562     563     584     583     .0                      \r\n                  538-        CQUAD1  563     101     563     564     585     584     .0                      \r\n                  539-        CQUAD1  564     101     564     565     586     585     .0                      \r\n                  540-        CQUAD1  565     101     565     566     587     586     .0                      \r\n                  541-        CQUAD1  566     101     566     567     588     587     .0                      \r\n                  542-        CQUAD1  568     101     568     569     590     589     .0                      \r\n                  543-        CQUAD1  569     101     569     570     591     590     .0                      \r\n                  544-        CQUAD1  570     101     570     571     592     591     .0                      \r\n                  545-        CQUAD1  571     101     571     572     593     592     .0                      \r\n                  546-        CQUAD1  572     101     572     573     594     593     .0                      \r\n                  547-        CQUAD1  573     101     573     574     595     594     .0                      \r\n                  548-        CQUAD1  574     101     574     575     596     595     .0                      \r\n                  549-        CQUAD1  575     101     575     576     597     596     .0                      \r\n                  550-        CQUAD1  576     101     576     577     598     597     .0                      \r\n                  551-        CQUAD1  577     101     577     578     599     598     .0                      \r\n                  552-        CQUAD1  578     101     578     579     600     599     .0                      \r\n                  553-        CQUAD1  579     101     579     580     601     600     .0                      \r\n                  554-        CQUAD1  580     101     580     581     602     601     .0                      \r\n                  555-        CQUAD1  581     101     581     582     603     602     .0                      \r\n                  556-        CQUAD1  582     101     582     583     604     603     .0                      \r\n                  557-        CQUAD1  583     101     583     584     605     604     .0                      \r\n                  558-        CQUAD1  584     101     584     585     606     605     .0                      \r\n                  559-        CQUAD1  585     101     585     586     607     606     .0                      \r\n                  560-        CQUAD1  586     101     586     587     608     607     .0                      \r\n                  561-        CQUAD1  587     101     587     588     609     608     .0                      \r\n                  562-        CQUAD1  589     101     589     590     611     610     .0                      \r\n                  563-        CQUAD1  590     101     590     591     612     611     .0                      \r\n                  564-        CQUAD1  591     101     591     592     613     612     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        CQUAD1  592     101     592     593     614     613     .0                      \r\n                  566-        CQUAD1  593     101     593     594     615     614     .0                      \r\n                  567-        CQUAD1  594     101     594     595     616     615     .0                      \r\n                  568-        CQUAD1  595     101     595     596     617     616     .0                      \r\n                  569-        CQUAD1  596     101     596     597     618     617     .0                      \r\n                  570-        CQUAD1  597     101     597     598     619     618     .0                      \r\n                  571-        CQUAD1  598     101     598     599     620     619     .0                      \r\n                  572-        CQUAD1  599     101     599     600     621     620     .0                      \r\n                  573-        CQUAD1  600     101     600     601     622     621     .0                      \r\n                  574-        CQUAD1  601     101     601     602     623     622     .0                      \r\n                  575-        CQUAD1  602     101     602     603     624     623     .0                      \r\n                  576-        CQUAD1  603     101     603     604     625     624     .0                      \r\n                  577-        CQUAD1  604     101     604     605     626     625     .0                      \r\n                  578-        CQUAD1  605     101     605     606     627     626     .0                      \r\n                  579-        CQUAD1  606     101     606     607     628     627     .0                      \r\n                  580-        CQUAD1  607     101     607     608     629     628     .0                      \r\n                  581-        CQUAD1  608     101     608     609     630     629     .0                      \r\n                  582-        CQUAD1  610     101     610     611     632     631     .0                      \r\n                  583-        CQUAD1  611     101     611     612     633     632     .0                      \r\n                  584-        CQUAD1  612     101     612     613     634     633     .0                      \r\n                  585-        CQUAD1  613     101     613     614     635     634     .0                      \r\n                  586-        CQUAD1  614     101     614     615     636     635     .0                      \r\n                  587-        CQUAD1  615     101     615     616     637     636     .0                      \r\n                  588-        CQUAD1  616     101     616     617     638     637     .0                      \r\n                  589-        CQUAD1  617     101     617     618     639     638     .0                      \r\n                  590-        CQUAD1  618     101     618     619     640     639     .0                      \r\n                  591-        CQUAD1  619     101     619     620     641     640     .0                      \r\n                  592-        CQUAD1  620     101     620     621     642     641     .0                      \r\n                  593-        CQUAD1  621     101     621     622     643     642     .0                      \r\n                  594-        CQUAD1  622     101     622     623     644     643     .0                      \r\n                  595-        CQUAD1  623     101     623     624     645     644     .0                      \r\n                  596-        CQUAD1  624     101     624     625     646     645     .0                      \r\n                  597-        CQUAD1  625     101     625     626     647     646     .0                      \r\n                  598-        CQUAD1  626     101     626     627     648     647     .0                      \r\n                  599-        CQUAD1  627     101     627     628     649     648     .0                      \r\n                  600-        CQUAD1  628     101     628     629     650     649     .0                      \r\n                  601-        CQUAD1  629     101     629     630     651     650     .0                      \r\n                  602-        CQUAD1  631     101     631     632     653     652     .0                      \r\n                  603-        CQUAD1  632     101     632     633     654     653     .0                      \r\n                  604-        CQUAD1  633     101     633     634     655     654     .0                      \r\n                  605-        CQUAD1  634     101     634     635     656     655     .0                      \r\n                  606-        CQUAD1  635     101     635     636     657     656     .0                      \r\n                  607-        CQUAD1  636     101     636     637     658     657     .0                      \r\n                  608-        CQUAD1  637     101     637     638     659     658     .0                      \r\n                  609-        CQUAD1  638     101     638     639     660     659     .0                      \r\n                  610-        CQUAD1  639     101     639     640     661     660     .0                      \r\n                  611-        CQUAD1  640     101     640     641     662     661     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        CQUAD1  641     101     641     642     663     662     .0                      \r\n                  613-        CQUAD1  642     101     642     643     664     663     .0                      \r\n                  614-        CQUAD1  643     101     643     644     665     664     .0                      \r\n                  615-        CQUAD1  644     101     644     645     666     665     .0                      \r\n                  616-        CQUAD1  645     101     645     646     667     666     .0                      \r\n                  617-        CQUAD1  646     101     646     647     668     667     .0                      \r\n                  618-        CQUAD1  647     101     647     648     669     668     .0                      \r\n                  619-        CQUAD1  648     101     648     649     670     669     .0                      \r\n                  620-        CQUAD1  649     101     649     650     671     670     .0                      \r\n                  621-        CQUAD1  650     101     650     651     672     671     .0                      \r\n                  622-        CQUAD1  652     101     652     653     674     673     .0                      \r\n                  623-        CQUAD1  653     101     653     654     675     674     .0                      \r\n                  624-        CQUAD1  654     101     654     655     676     675     .0                      \r\n                  625-        CQUAD1  655     101     655     656     677     676     .0                      \r\n                  626-        CQUAD1  656     101     656     657     678     677     .0                      \r\n                  627-        CQUAD1  657     101     657     658     679     678     .0                      \r\n                  628-        CQUAD1  658     101     658     659     680     679     .0                      \r\n                  629-        CQUAD1  659     101     659     660     681     680     .0                      \r\n                  630-        CQUAD1  660     101     660     661     682     681     .0                      \r\n                  631-        CQUAD1  661     101     661     662     683     682     .0                      \r\n                  632-        CQUAD1  662     101     662     663     684     683     .0                      \r\n                  633-        CQUAD1  663     101     663     664     685     684     .0                      \r\n                  634-        CQUAD1  664     101     664     665     686     685     .0                      \r\n                  635-        CQUAD1  665     101     665     666     687     686     .0                      \r\n                  636-        CQUAD1  666     101     666     667     688     687     .0                      \r\n                  637-        CQUAD1  667     101     667     668     689     688     .0                      \r\n                  638-        CQUAD1  668     101     668     669     690     689     .0                      \r\n                  639-        CQUAD1  669     101     669     670     691     690     .0                      \r\n                  640-        CQUAD1  670     101     670     671     692     691     .0                      \r\n                  641-        CQUAD1  671     101     671     672     693     692     .0                      \r\n                  642-        CQUAD1  673     101     673     674     695     694     .0                      \r\n                  643-        CQUAD1  674     101     674     675     696     695     .0                      \r\n                  644-        CQUAD1  675     101     675     676     697     696     .0                      \r\n                  645-        CQUAD1  676     101     676     677     698     697     .0                      \r\n                  646-        CQUAD1  677     101     677     678     699     698     .0                      \r\n                  647-        CQUAD1  678     101     678     679     700     699     .0                      \r\n                  648-        CQUAD1  679     101     679     680     701     700     .0                      \r\n                  649-        CQUAD1  680     101     680     681     702     701     .0                      \r\n                  650-        CQUAD1  681     101     681     682     703     702     .0                      \r\n                  651-        CQUAD1  682     101     682     683     704     703     .0                      \r\n                  652-        CQUAD1  683     101     683     684     705     704     .0                      \r\n                  653-        CQUAD1  684     101     684     685     706     705     .0                      \r\n                  654-        CQUAD1  685     101     685     686     707     706     .0                      \r\n                  655-        CQUAD1  686     101     686     687     708     707     .0                      \r\n                  656-        CQUAD1  687     101     687     688     709     708     .0                      \r\n                  657-        CQUAD1  688     101     688     689     710     709     .0                      \r\n                  658-        CQUAD1  689     101     689     690     711     710     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        CQUAD1  690     101     690     691     712     711     .0                      \r\n                  660-        CQUAD1  691     101     691     692     713     712     .0                      \r\n                  661-        CQUAD1  692     101     692     693     714     713     .0                      \r\n                  662-        CQUAD1  694     101     694     695     716     715     .0                      \r\n                  663-        CQUAD1  695     101     695     696     717     716     .0                      \r\n                  664-        CQUAD1  696     101     696     697     718     717     .0                      \r\n                  665-        CQUAD1  697     101     697     698     719     718     .0                      \r\n                  666-        CQUAD1  698     101     698     699     720     719     .0                      \r\n                  667-        CQUAD1  699     101     699     700     721     720     .0                      \r\n                  668-        CQUAD1  700     101     700     701     722     721     .0                      \r\n                  669-        CQUAD1  701     101     701     702     723     722     .0                      \r\n                  670-        CQUAD1  702     101     702     703     724     723     .0                      \r\n                  671-        CQUAD1  703     101     703     704     725     724     .0                      \r\n                  672-        CQUAD1  704     101     704     705     726     725     .0                      \r\n                  673-        CQUAD1  705     101     705     706     727     726     .0                      \r\n                  674-        CQUAD1  706     101     706     707     728     727     .0                      \r\n                  675-        CQUAD1  707     101     707     708     729     728     .0                      \r\n                  676-        CQUAD1  708     101     708     709     730     729     .0                      \r\n                  677-        CQUAD1  709     101     709     710     731     730     .0                      \r\n                  678-        CQUAD1  710     101     710     711     732     731     .0                      \r\n                  679-        CQUAD1  711     101     711     712     733     732     .0                      \r\n                  680-        CQUAD1  712     101     712     713     734     733     .0                      \r\n                  681-        CQUAD1  713     101     713     714     735     734     .0                      \r\n                  682-        CQUAD1  715     101     715     716     737     736     .0                      \r\n                  683-        CQUAD1  716     101     716     717     738     737     .0                      \r\n                  684-        CQUAD1  717     101     717     718     739     738     .0                      \r\n                  685-        CQUAD1  718     101     718     719     740     739     .0                      \r\n                  686-        CQUAD1  719     101     719     720     741     740     .0                      \r\n                  687-        CQUAD1  720     101     720     721     742     741     .0                      \r\n                  688-        CQUAD1  721     101     721     722     743     742     .0                      \r\n                  689-        CQUAD1  722     101     722     723     744     743     .0                      \r\n                  690-        CQUAD1  723     101     723     724     745     744     .0                      \r\n                  691-        CQUAD1  724     101     724     725     746     745     .0                      \r\n                  692-        CQUAD1  725     101     725     726     747     746     .0                      \r\n                  693-        CQUAD1  726     101     726     727     748     747     .0                      \r\n                  694-        CQUAD1  727     101     727     728     749     748     .0                      \r\n                  695-        CQUAD1  728     101     728     729     750     749     .0                      \r\n                  696-        CQUAD1  729     101     729     730     751     750     .0                      \r\n                  697-        CQUAD1  730     101     730     731     752     751     .0                      \r\n                  698-        CQUAD1  731     101     731     732     753     752     .0                      \r\n                  699-        CQUAD1  732     101     732     733     754     753     .0                      \r\n                  700-        CQUAD1  733     101     733     734     755     754     .0                      \r\n                  701-        CQUAD1  734     101     734     735     756     755     .0                      \r\n                  702-        CQUAD1  736     101     736     737     758     757     .0                      \r\n                  703-        CQUAD1  737     101     737     738     759     758     .0                      \r\n                  704-        CQUAD1  738     101     738     739     760     759     .0                      \r\n                  705-        CQUAD1  739     101     739     740     761     760     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        CQUAD1  740     101     740     741     762     761     .0                      \r\n                  707-        CQUAD1  741     101     741     742     763     762     .0                      \r\n                  708-        CQUAD1  742     101     742     743     764     763     .0                      \r\n                  709-        CQUAD1  743     101     743     744     765     764     .0                      \r\n                  710-        CQUAD1  744     101     744     745     766     765     .0                      \r\n                  711-        CQUAD1  745     101     745     746     767     766     .0                      \r\n                  712-        CQUAD1  746     101     746     747     768     767     .0                      \r\n                  713-        CQUAD1  747     101     747     748     769     768     .0                      \r\n                  714-        CQUAD1  748     101     748     749     770     769     .0                      \r\n                  715-        CQUAD1  749     101     749     750     771     770     .0                      \r\n                  716-        CQUAD1  750     101     750     751     772     771     .0                      \r\n                  717-        CQUAD1  751     101     751     752     773     772     .0                      \r\n                  718-        CQUAD1  752     101     752     753     774     773     .0                      \r\n                  719-        CQUAD1  753     101     753     754     775     774     .0                      \r\n                  720-        CQUAD1  754     101     754     755     776     775     .0                      \r\n                  721-        CQUAD1  755     101     755     756     777     776     .0                      \r\n                  722-        CQUAD1  757     101     757     758     779     778     .0                      \r\n                  723-        CQUAD1  758     101     758     759     780     779     .0                      \r\n                  724-        CQUAD1  759     101     759     760     781     780     .0                      \r\n                  725-        CQUAD1  760     101     760     761     782     781     .0                      \r\n                  726-        CQUAD1  761     101     761     762     783     782     .0                      \r\n                  727-        CQUAD1  762     101     762     763     784     783     .0                      \r\n                  728-        CQUAD1  763     101     763     764     785     784     .0                      \r\n                  729-        CQUAD1  764     101     764     765     786     785     .0                      \r\n                  730-        CQUAD1  765     101     765     766     787     786     .0                      \r\n                  731-        CQUAD1  766     101     766     767     788     787     .0                      \r\n                  732-        CQUAD1  767     101     767     768     789     788     .0                      \r\n                  733-        CQUAD1  768     101     768     769     790     789     .0                      \r\n                  734-        CQUAD1  769     101     769     770     791     790     .0                      \r\n                  735-        CQUAD1  770     101     770     771     792     791     .0                      \r\n                  736-        CQUAD1  771     101     771     772     793     792     .0                      \r\n                  737-        CQUAD1  772     101     772     773     794     793     .0                      \r\n                  738-        CQUAD1  773     101     773     774     795     794     .0                      \r\n                  739-        CQUAD1  774     101     774     775     796     795     .0                      \r\n                  740-        CQUAD1  775     101     775     776     797     796     .0                      \r\n                  741-        CQUAD1  776     101     776     777     798     797     .0                      \r\n                  742-        CQUAD1  778     101     778     779     800     799     .0                      \r\n                  743-        CQUAD1  779     101     779     780     801     800     .0                      \r\n                  744-        CQUAD1  780     101     780     781     802     801     .0                      \r\n                  745-        CQUAD1  781     101     781     782     803     802     .0                      \r\n                  746-        CQUAD1  782     101     782     783     804     803     .0                      \r\n                  747-        CQUAD1  783     101     783     784     805     804     .0                      \r\n                  748-        CQUAD1  784     101     784     785     806     805     .0                      \r\n                  749-        CQUAD1  785     101     785     786     807     806     .0                      \r\n                  750-        CQUAD1  786     101     786     787     808     807     .0                      \r\n                  751-        CQUAD1  787     101     787     788     809     808     .0                      \r\n                  752-        CQUAD1  788     101     788     789     810     809     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        CQUAD1  789     101     789     790     811     810     .0                      \r\n                  754-        CQUAD1  790     101     790     791     812     811     .0                      \r\n                  755-        CQUAD1  791     101     791     792     813     812     .0                      \r\n                  756-        CQUAD1  792     101     792     793     814     813     .0                      \r\n                  757-        CQUAD1  793     101     793     794     815     814     .0                      \r\n                  758-        CQUAD1  794     101     794     795     816     815     .0                      \r\n                  759-        CQUAD1  795     101     795     796     817     816     .0                      \r\n                  760-        CQUAD1  796     101     796     797     818     817     .0                      \r\n                  761-        CQUAD1  797     101     797     798     819     818     .0                      \r\n                  762-        CQUAD1  799     101     799     800     821     820     .0                      \r\n                  763-        CQUAD1  800     101     800     801     822     821     .0                      \r\n                  764-        CQUAD1  801     101     801     802     823     822     .0                      \r\n                  765-        CQUAD1  802     101     802     803     824     823     .0                      \r\n                  766-        CQUAD1  803     101     803     804     825     824     .0                      \r\n                  767-        CQUAD1  804     101     804     805     826     825     .0                      \r\n                  768-        CQUAD1  805     101     805     806     827     826     .0                      \r\n                  769-        CQUAD1  806     101     806     807     828     827     .0                      \r\n                  770-        CQUAD1  807     101     807     808     829     828     .0                      \r\n                  771-        CQUAD1  808     101     808     809     830     829     .0                      \r\n                  772-        CQUAD1  809     101     809     810     831     830     .0                      \r\n                  773-        CQUAD1  810     101     810     811     832     831     .0                      \r\n                  774-        CQUAD1  811     101     811     812     833     832     .0                      \r\n                  775-        CQUAD1  812     101     812     813     834     833     .0                      \r\n                  776-        CQUAD1  813     101     813     814     835     834     .0                      \r\n                  777-        CQUAD1  814     101     814     815     836     835     .0                      \r\n                  778-        CQUAD1  815     101     815     816     837     836     .0                      \r\n                  779-        CQUAD1  816     101     816     817     838     837     .0                      \r\n                  780-        CQUAD1  817     101     817     818     839     838     .0                      \r\n                  781-        CQUAD1  818     101     818     819     840     839     .0                      \r\n                  782-        CQUAD1  820     101     820     821     842     841     .0                      \r\n                  783-        CQUAD1  821     101     821     822     843     842     .0                      \r\n                  784-        CQUAD1  822     101     822     823     844     843     .0                      \r\n                  785-        CQUAD1  823     101     823     824     845     844     .0                      \r\n                  786-        CQUAD1  824     101     824     825     846     845     .0                      \r\n                  787-        CQUAD1  825     101     825     826     847     846     .0                      \r\n                  788-        CQUAD1  826     101     826     827     848     847     .0                      \r\n                  789-        CQUAD1  827     101     827     828     849     848     .0                      \r\n                  790-        CQUAD1  828     101     828     829     850     849     .0                      \r\n                  791-        CQUAD1  829     101     829     830     851     850     .0                      \r\n                  792-        CQUAD1  830     101     830     831     852     851     .0                      \r\n                  793-        CQUAD1  831     101     831     832     853     852     .0                      \r\n                  794-        CQUAD1  832     101     832     833     854     853     .0                      \r\n                  795-        CQUAD1  833     101     833     834     855     854     .0                      \r\n                  796-        CQUAD1  834     101     834     835     856     855     .0                      \r\n                  797-        CQUAD1  835     101     835     836     857     856     .0                      \r\n                  798-        CQUAD1  836     101     836     837     858     857     .0                      \r\n                  799-        CQUAD1  837     101     837     838     859     858     .0                      \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  800-        CQUAD1  838     101     838     839     860     859     .0                      \r\n                  801-        CQUAD1  839     101     839     840     861     860     .0                      \r\n                  802-        EIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n                  803-        +SIMPL-IMAX                                                                     \r\n                  804-        EIGR    3       INV     .89     1.0     1       3       0               +EIG3-I \r\n                  805-        +EIG3-I MAX                                                                     \r\n                  806-        EIGR    4       DET     .89     1.0     1       1       0               +EIG4-D \r\n                  807-        +EIG4-D MAX                                                                     \r\n                  808-        EIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n                  809-        +EIG5-2 MAX                                                                     \r\n                  810-        EIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n                  811-        +EIG6-2 MAX                                                                     \r\n                  812-        EIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n                  813-        +EIG7-5 MAX                                                                     \r\n                  814-        EIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n                  815-        +EIG9-10MAX                                                                     \r\n                  816-        EIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n                  817-        +EIG1120MAX                                                                     \r\n                  818-        EIGR    20      FEER    .87                     1                       +FEER   \r\n                  819-        +FEER   MAX                                                                     \r\n                  820-        GRDSET                                                  126                     \r\n                  821-        GRID    1       0       .0      .0      .0      0       126                     \r\n                  822-        GRID    2       0       .5      .0      .0      0       126                     \r\n                  823-        GRID    3       0       1.0     .0      .0      0       126                     \r\n                  824-        GRID    4       0       1.5     .0      .0      0       126                     \r\n                  825-        GRID    5       0       2.0     .0      .0      0       126                     \r\n                  826-        GRID    6       0       2.5     .0      .0      0       126                     \r\n                  827-        GRID    7       0       3.0     .0      .0      0       126                     \r\n                  828-        GRID    8       0       3.5     .0      .0      0       126                     \r\n                  829-        GRID    9       0       4.0     .0      .0      0       126                     \r\n                  830-        GRID    10      0       4.5     .0      .0      0       126                     \r\n                  831-        GRID    11      0       5.0     .0      .0      0       126                     \r\n                  832-        GRID    12      0       5.5     .0      .0      0       126                     \r\n                  833-        GRID    13      0       6.0     .0      .0      0       126                     \r\n                  834-        GRID    14      0       6.5     .0      .0      0       126                     \r\n                  835-        GRID    15      0       7.0     .0      .0      0       126                     \r\n                  836-        GRID    16      0       7.5     .0      .0      0       126                     \r\n                  837-        GRID    17      0       8.0     .0      .0      0       126                     \r\n                  838-        GRID    18      0       8.5     .0      .0      0       126                     \r\n                  839-        GRID    19      0       9.0     .0      .0      0       126                     \r\n                  840-        GRID    20      0       9.5     .0      .0      0       126                     \r\n                  841-        GRID    21      0       10.0    .0      .0      0       126                     \r\n                  842-        GRID    22      0       .0      .5      .0      0       126                     \r\n                  843-        GRID    23      0       .5      .5      .0      0       126                     \r\n                  844-        GRID    24      0       1.0     .5      .0      0       126                     \r\n                  845-        GRID    25      0       1.5     .5      .0      0       126                     \r\n                  846-        GRID    26      0       2.0     .5      .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  847-        GRID    27      0       2.5     .5      .0      0       126                     \r\n                  848-        GRID    28      0       3.0     .5      .0      0       126                     \r\n                  849-        GRID    29      0       3.5     .5      .0      0       126                     \r\n                  850-        GRID    30      0       4.0     .5      .0      0       126                     \r\n                  851-        GRID    31      0       4.5     .5      .0      0       126                     \r\n                  852-        GRID    32      0       5.0     .5      .0      0       126                     \r\n                  853-        GRID    33      0       5.5     .5      .0      0       126                     \r\n                  854-        GRID    34      0       6.0     .5      .0      0       126                     \r\n                  855-        GRID    35      0       6.5     .5      .0      0       126                     \r\n                  856-        GRID    36      0       7.0     .5      .0      0       126                     \r\n                  857-        GRID    37      0       7.5     .5      .0      0       126                     \r\n                  858-        GRID    38      0       8.0     .5      .0      0       126                     \r\n                  859-        GRID    39      0       8.5     .5      .0      0       126                     \r\n                  860-        GRID    40      0       9.0     .5      .0      0       126                     \r\n                  861-        GRID    41      0       9.5     .5      .0      0       126                     \r\n                  862-        GRID    42      0       10.0    .5      .0      0       126                     \r\n                  863-        GRID    43      0       .0      1.0     .0      0       126                     \r\n                  864-        GRID    44      0       .5      1.0     .0      0       126                     \r\n                  865-        GRID    45      0       1.0     1.0     .0      0       126                     \r\n                  866-        GRID    46      0       1.5     1.0     .0      0       126                     \r\n                  867-        GRID    47      0       2.0     1.0     .0      0       126                     \r\n                  868-        GRID    48      0       2.5     1.0     .0      0       126                     \r\n                  869-        GRID    49      0       3.0     1.0     .0      0       126                     \r\n                  870-        GRID    50      0       3.5     1.0     .0      0       126                     \r\n                  871-        GRID    51      0       4.0     1.0     .0      0       126                     \r\n                  872-        GRID    52      0       4.5     1.0     .0      0       126                     \r\n                  873-        GRID    53      0       5.0     1.0     .0      0       126                     \r\n                  874-        GRID    54      0       5.5     1.0     .0      0       126                     \r\n                  875-        GRID    55      0       6.0     1.0     .0      0       126                     \r\n                  876-        GRID    56      0       6.5     1.0     .0      0       126                     \r\n                  877-        GRID    57      0       7.0     1.0     .0      0       126                     \r\n                  878-        GRID    58      0       7.5     1.0     .0      0       126                     \r\n                  879-        GRID    59      0       8.0     1.0     .0      0       126                     \r\n                  880-        GRID    60      0       8.5     1.0     .0      0       126                     \r\n                  881-        GRID    61      0       9.0     1.0     .0      0       126                     \r\n                  882-        GRID    62      0       9.5     1.0     .0      0       126                     \r\n                  883-        GRID    63      0       10.0    1.0     .0      0       126                     \r\n                  884-        GRID    64      0       .0      1.5     .0      0       126                     \r\n                  885-        GRID    65      0       .5      1.5     .0      0       126                     \r\n                  886-        GRID    66      0       1.0     1.5     .0      0       126                     \r\n                  887-        GRID    67      0       1.5     1.5     .0      0       126                     \r\n                  888-        GRID    68      0       2.0     1.5     .0      0       126                     \r\n                  889-        GRID    69      0       2.5     1.5     .0      0       126                     \r\n                  890-        GRID    70      0       3.0     1.5     .0      0       126                     \r\n                  891-        GRID    71      0       3.5     1.5     .0      0       126                     \r\n                  892-        GRID    72      0       4.0     1.5     .0      0       126                     \r\n                  893-        GRID    73      0       4.5     1.5     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  894-        GRID    74      0       5.0     1.5     .0      0       126                     \r\n                  895-        GRID    75      0       5.5     1.5     .0      0       126                     \r\n                  896-        GRID    76      0       6.0     1.5     .0      0       126                     \r\n                  897-        GRID    77      0       6.5     1.5     .0      0       126                     \r\n                  898-        GRID    78      0       7.0     1.5     .0      0       126                     \r\n                  899-        GRID    79      0       7.5     1.5     .0      0       126                     \r\n                  900-        GRID    80      0       8.0     1.5     .0      0       126                     \r\n                  901-        GRID    81      0       8.5     1.5     .0      0       126                     \r\n                  902-        GRID    82      0       9.0     1.5     .0      0       126                     \r\n                  903-        GRID    83      0       9.5     1.5     .0      0       126                     \r\n                  904-        GRID    84      0       10.0    1.5     .0      0       126                     \r\n                  905-        GRID    85      0       .0      2.0     .0      0       126                     \r\n                  906-        GRID    86      0       .5      2.0     .0      0       126                     \r\n                  907-        GRID    87      0       1.0     2.0     .0      0       126                     \r\n                  908-        GRID    88      0       1.5     2.0     .0      0       126                     \r\n                  909-        GRID    89      0       2.0     2.0     .0      0       126                     \r\n                  910-        GRID    90      0       2.5     2.0     .0      0       126                     \r\n                  911-        GRID    91      0       3.0     2.0     .0      0       126                     \r\n                  912-        GRID    92      0       3.5     2.0     .0      0       126                     \r\n                  913-        GRID    93      0       4.0     2.0     .0      0       126                     \r\n                  914-        GRID    94      0       4.5     2.0     .0      0       126                     \r\n                  915-        GRID    95      0       5.0     2.0     .0      0       126                     \r\n                  916-        GRID    96      0       5.5     2.0     .0      0       126                     \r\n                  917-        GRID    97      0       6.0     2.0     .0      0       126                     \r\n                  918-        GRID    98      0       6.5     2.0     .0      0       126                     \r\n                  919-        GRID    99      0       7.0     2.0     .0      0       126                     \r\n                  920-        GRID    100     0       7.5     2.0     .0      0       126                     \r\n                  921-        GRID    101     0       8.0     2.0     .0      0       126                     \r\n                  922-        GRID    102     0       8.5     2.0     .0      0       126                     \r\n                  923-        GRID    103     0       9.0     2.0     .0      0       126                     \r\n                  924-        GRID    104     0       9.5     2.0     .0      0       126                     \r\n                  925-        GRID    105     0       10.0    2.0     .0      0       126                     \r\n                  926-        GRID    106     0       .0      2.5     .0      0       126                     \r\n                  927-        GRID    107     0       .5      2.5     .0      0       126                     \r\n                  928-        GRID    108     0       1.0     2.5     .0      0       126                     \r\n                  929-        GRID    109     0       1.5     2.5     .0      0       126                     \r\n                  930-        GRID    110     0       2.0     2.5     .0      0       126                     \r\n                  931-        GRID    111     0       2.5     2.5     .0      0       126                     \r\n                  932-        GRID    112     0       3.0     2.5     .0      0       126                     \r\n                  933-        GRID    113     0       3.5     2.5     .0      0       126                     \r\n                  934-        GRID    114     0       4.0     2.5     .0      0       126                     \r\n                  935-        GRID    115     0       4.5     2.5     .0      0       126                     \r\n                  936-        GRID    116     0       5.0     2.5     .0      0       126                     \r\n                  937-        GRID    117     0       5.5     2.5     .0      0       126                     \r\n                  938-        GRID    118     0       6.0     2.5     .0      0       126                     \r\n                  939-        GRID    119     0       6.5     2.5     .0      0       126                     \r\n                  940-        GRID    120     0       7.0     2.5     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  941-        GRID    121     0       7.5     2.5     .0      0       126                     \r\n                  942-        GRID    122     0       8.0     2.5     .0      0       126                     \r\n                  943-        GRID    123     0       8.5     2.5     .0      0       126                     \r\n                  944-        GRID    124     0       9.0     2.5     .0      0       126                     \r\n                  945-        GRID    125     0       9.5     2.5     .0      0       126                     \r\n                  946-        GRID    126     0       10.0    2.5     .0      0       126                     \r\n                  947-        GRID    127     0       .0      3.0     .0      0       126                     \r\n                  948-        GRID    128     0       .5      3.0     .0      0       126                     \r\n                  949-        GRID    129     0       1.0     3.0     .0      0       126                     \r\n                  950-        GRID    130     0       1.5     3.0     .0      0       126                     \r\n                  951-        GRID    131     0       2.0     3.0     .0      0       126                     \r\n                  952-        GRID    132     0       2.5     3.0     .0      0       126                     \r\n                  953-        GRID    133     0       3.0     3.0     .0      0       126                     \r\n                  954-        GRID    134     0       3.5     3.0     .0      0       126                     \r\n                  955-        GRID    135     0       4.0     3.0     .0      0       126                     \r\n                  956-        GRID    136     0       4.5     3.0     .0      0       126                     \r\n                  957-        GRID    137     0       5.0     3.0     .0      0       126                     \r\n                  958-        GRID    138     0       5.5     3.0     .0      0       126                     \r\n                  959-        GRID    139     0       6.0     3.0     .0      0       126                     \r\n                  960-        GRID    140     0       6.5     3.0     .0      0       126                     \r\n                  961-        GRID    141     0       7.0     3.0     .0      0       126                     \r\n                  962-        GRID    142     0       7.5     3.0     .0      0       126                     \r\n                  963-        GRID    143     0       8.0     3.0     .0      0       126                     \r\n                  964-        GRID    144     0       8.5     3.0     .0      0       126                     \r\n                  965-        GRID    145     0       9.0     3.0     .0      0       126                     \r\n                  966-        GRID    146     0       9.5     3.0     .0      0       126                     \r\n                  967-        GRID    147     0       10.0    3.0     .0      0       126                     \r\n                  968-        GRID    148     0       .0      3.5     .0      0       126                     \r\n                  969-        GRID    149     0       .5      3.5     .0      0       126                     \r\n                  970-        GRID    150     0       1.0     3.5     .0      0       126                     \r\n                  971-        GRID    151     0       1.5     3.5     .0      0       126                     \r\n                  972-        GRID    152     0       2.0     3.5     .0      0       126                     \r\n                  973-        GRID    153     0       2.5     3.5     .0      0       126                     \r\n                  974-        GRID    154     0       3.0     3.5     .0      0       126                     \r\n                  975-        GRID    155     0       3.5     3.5     .0      0       126                     \r\n                  976-        GRID    156     0       4.0     3.5     .0      0       126                     \r\n                  977-        GRID    157     0       4.5     3.5     .0      0       126                     \r\n                  978-        GRID    158     0       5.0     3.5     .0      0       126                     \r\n                  979-        GRID    159     0       5.5     3.5     .0      0       126                     \r\n                  980-        GRID    160     0       6.0     3.5     .0      0       126                     \r\n                  981-        GRID    161     0       6.5     3.5     .0      0       126                     \r\n                  982-        GRID    162     0       7.0     3.5     .0      0       126                     \r\n                  983-        GRID    163     0       7.5     3.5     .0      0       126                     \r\n                  984-        GRID    164     0       8.0     3.5     .0      0       126                     \r\n                  985-        GRID    165     0       8.5     3.5     .0      0       126                     \r\n                  986-        GRID    166     0       9.0     3.5     .0      0       126                     \r\n                  987-        GRID    167     0       9.5     3.5     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  988-        GRID    168     0       10.0    3.5     .0      0       126                     \r\n                  989-        GRID    169     0       .0      4.0     .0      0       126                     \r\n                  990-        GRID    170     0       .5      4.0     .0      0       126                     \r\n                  991-        GRID    171     0       1.0     4.0     .0      0       126                     \r\n                  992-        GRID    172     0       1.5     4.0     .0      0       126                     \r\n                  993-        GRID    173     0       2.0     4.0     .0      0       126                     \r\n                  994-        GRID    174     0       2.5     4.0     .0      0       126                     \r\n                  995-        GRID    175     0       3.0     4.0     .0      0       126                     \r\n                  996-        GRID    176     0       3.5     4.0     .0      0       126                     \r\n                  997-        GRID    177     0       4.0     4.0     .0      0       126                     \r\n                  998-        GRID    178     0       4.5     4.0     .0      0       126                     \r\n                  999-        GRID    179     0       5.0     4.0     .0      0       126                     \r\n                 1000-        GRID    180     0       5.5     4.0     .0      0       126                     \r\n                 1001-        GRID    181     0       6.0     4.0     .0      0       126                     \r\n                 1002-        GRID    182     0       6.5     4.0     .0      0       126                     \r\n                 1003-        GRID    183     0       7.0     4.0     .0      0       126                     \r\n                 1004-        GRID    184     0       7.5     4.0     .0      0       126                     \r\n                 1005-        GRID    185     0       8.0     4.0     .0      0       126                     \r\n                 1006-        GRID    186     0       8.5     4.0     .0      0       126                     \r\n                 1007-        GRID    187     0       9.0     4.0     .0      0       126                     \r\n                 1008-        GRID    188     0       9.5     4.0     .0      0       126                     \r\n                 1009-        GRID    189     0       10.0    4.0     .0      0       126                     \r\n                 1010-        GRID    190     0       .0      4.5     .0      0       126                     \r\n                 1011-        GRID    191     0       .5      4.5     .0      0       126                     \r\n                 1012-        GRID    192     0       1.0     4.5     .0      0       126                     \r\n                 1013-        GRID    193     0       1.5     4.5     .0      0       126                     \r\n                 1014-        GRID    194     0       2.0     4.5     .0      0       126                     \r\n                 1015-        GRID    195     0       2.5     4.5     .0      0       126                     \r\n                 1016-        GRID    196     0       3.0     4.5     .0      0       126                     \r\n                 1017-        GRID    197     0       3.5     4.5     .0      0       126                     \r\n                 1018-        GRID    198     0       4.0     4.5     .0      0       126                     \r\n                 1019-        GRID    199     0       4.5     4.5     .0      0       126                     \r\n                 1020-        GRID    200     0       5.0     4.5     .0      0       126                     \r\n                 1021-        GRID    201     0       5.5     4.5     .0      0       126                     \r\n                 1022-        GRID    202     0       6.0     4.5     .0      0       126                     \r\n                 1023-        GRID    203     0       6.5     4.5     .0      0       126                     \r\n                 1024-        GRID    204     0       7.0     4.5     .0      0       126                     \r\n                 1025-        GRID    205     0       7.5     4.5     .0      0       126                     \r\n                 1026-        GRID    206     0       8.0     4.5     .0      0       126                     \r\n                 1027-        GRID    207     0       8.5     4.5     .0      0       126                     \r\n                 1028-        GRID    208     0       9.0     4.5     .0      0       126                     \r\n                 1029-        GRID    209     0       9.5     4.5     .0      0       126                     \r\n                 1030-        GRID    210     0       10.0    4.5     .0      0       126                     \r\n                 1031-        GRID    211     0       .0      5.0     .0      0       126                     \r\n                 1032-        GRID    212     0       .5      5.0     .0      0       126                     \r\n                 1033-        GRID    213     0       1.0     5.0     .0      0       126                     \r\n                 1034-        GRID    214     0       1.5     5.0     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1035-        GRID    215     0       2.0     5.0     .0      0       126                     \r\n                 1036-        GRID    216     0       2.5     5.0     .0      0       126                     \r\n                 1037-        GRID    217     0       3.0     5.0     .0      0       126                     \r\n                 1038-        GRID    218     0       3.5     5.0     .0      0       126                     \r\n                 1039-        GRID    219     0       4.0     5.0     .0      0       126                     \r\n                 1040-        GRID    220     0       4.5     5.0     .0      0       126                     \r\n                 1041-        GRID    221     0       5.0     5.0     .0      0       126                     \r\n                 1042-        GRID    222     0       5.5     5.0     .0      0       126                     \r\n                 1043-        GRID    223     0       6.0     5.0     .0      0       126                     \r\n                 1044-        GRID    224     0       6.5     5.0     .0      0       126                     \r\n                 1045-        GRID    225     0       7.0     5.0     .0      0       126                     \r\n                 1046-        GRID    226     0       7.5     5.0     .0      0       126                     \r\n                 1047-        GRID    227     0       8.0     5.0     .0      0       126                     \r\n                 1048-        GRID    228     0       8.5     5.0     .0      0       126                     \r\n                 1049-        GRID    229     0       9.0     5.0     .0      0       126                     \r\n                 1050-        GRID    230     0       9.5     5.0     .0      0       126                     \r\n                 1051-        GRID    231     0       10.0    5.0     .0      0       126                     \r\n                 1052-        GRID    232     0       .0      5.5     .0      0       126                     \r\n                 1053-        GRID    233     0       .5      5.5     .0      0       126                     \r\n                 1054-        GRID    234     0       1.0     5.5     .0      0       126                     \r\n                 1055-        GRID    235     0       1.5     5.5     .0      0       126                     \r\n                 1056-        GRID    236     0       2.0     5.5     .0      0       126                     \r\n                 1057-        GRID    237     0       2.5     5.5     .0      0       126                     \r\n                 1058-        GRID    238     0       3.0     5.5     .0      0       126                     \r\n                 1059-        GRID    239     0       3.5     5.5     .0      0       126                     \r\n                 1060-        GRID    240     0       4.0     5.5     .0      0       126                     \r\n                 1061-        GRID    241     0       4.5     5.5     .0      0       126                     \r\n                 1062-        GRID    242     0       5.0     5.5     .0      0       126                     \r\n                 1063-        GRID    243     0       5.5     5.5     .0      0       126                     \r\n                 1064-        GRID    244     0       6.0     5.5     .0      0       126                     \r\n                 1065-        GRID    245     0       6.5     5.5     .0      0       126                     \r\n                 1066-        GRID    246     0       7.0     5.5     .0      0       126                     \r\n                 1067-        GRID    247     0       7.5     5.5     .0      0       126                     \r\n                 1068-        GRID    248     0       8.0     5.5     .0      0       126                     \r\n                 1069-        GRID    249     0       8.5     5.5     .0      0       126                     \r\n                 1070-        GRID    250     0       9.0     5.5     .0      0       126                     \r\n                 1071-        GRID    251     0       9.5     5.5     .0      0       126                     \r\n                 1072-        GRID    252     0       10.0    5.5     .0      0       126                     \r\n                 1073-        GRID    253     0       .0      6.0     .0      0       126                     \r\n                 1074-        GRID    254     0       .5      6.0     .0      0       126                     \r\n                 1075-        GRID    255     0       1.0     6.0     .0      0       126                     \r\n                 1076-        GRID    256     0       1.5     6.0     .0      0       126                     \r\n                 1077-        GRID    257     0       2.0     6.0     .0      0       126                     \r\n                 1078-        GRID    258     0       2.5     6.0     .0      0       126                     \r\n                 1079-        GRID    259     0       3.0     6.0     .0      0       126                     \r\n                 1080-        GRID    260     0       3.5     6.0     .0      0       126                     \r\n                 1081-        GRID    261     0       4.0     6.0     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1082-        GRID    262     0       4.5     6.0     .0      0       126                     \r\n                 1083-        GRID    263     0       5.0     6.0     .0      0       126                     \r\n                 1084-        GRID    264     0       5.5     6.0     .0      0       126                     \r\n                 1085-        GRID    265     0       6.0     6.0     .0      0       126                     \r\n                 1086-        GRID    266     0       6.5     6.0     .0      0       126                     \r\n                 1087-        GRID    267     0       7.0     6.0     .0      0       126                     \r\n                 1088-        GRID    268     0       7.5     6.0     .0      0       126                     \r\n                 1089-        GRID    269     0       8.0     6.0     .0      0       126                     \r\n                 1090-        GRID    270     0       8.5     6.0     .0      0       126                     \r\n                 1091-        GRID    271     0       9.0     6.0     .0      0       126                     \r\n                 1092-        GRID    272     0       9.5     6.0     .0      0       126                     \r\n                 1093-        GRID    273     0       10.0    6.0     .0      0       126                     \r\n                 1094-        GRID    274     0       .0      6.5     .0      0       126                     \r\n                 1095-        GRID    275     0       .5      6.5     .0      0       126                     \r\n                 1096-        GRID    276     0       1.0     6.5     .0      0       126                     \r\n                 1097-        GRID    277     0       1.5     6.5     .0      0       126                     \r\n                 1098-        GRID    278     0       2.0     6.5     .0      0       126                     \r\n                 1099-        GRID    279     0       2.5     6.5     .0      0       126                     \r\n                 1100-        GRID    280     0       3.0     6.5     .0      0       126                     \r\n                 1101-        GRID    281     0       3.5     6.5     .0      0       126                     \r\n                 1102-        GRID    282     0       4.0     6.5     .0      0       126                     \r\n                 1103-        GRID    283     0       4.5     6.5     .0      0       126                     \r\n                 1104-        GRID    284     0       5.0     6.5     .0      0       126                     \r\n                 1105-        GRID    285     0       5.5     6.5     .0      0       126                     \r\n                 1106-        GRID    286     0       6.0     6.5     .0      0       126                     \r\n                 1107-        GRID    287     0       6.5     6.5     .0      0       126                     \r\n                 1108-        GRID    288     0       7.0     6.5     .0      0       126                     \r\n                 1109-        GRID    289     0       7.5     6.5     .0      0       126                     \r\n                 1110-        GRID    290     0       8.0     6.5     .0      0       126                     \r\n                 1111-        GRID    291     0       8.5     6.5     .0      0       126                     \r\n                 1112-        GRID    292     0       9.0     6.5     .0      0       126                     \r\n                 1113-        GRID    293     0       9.5     6.5     .0      0       126                     \r\n                 1114-        GRID    294     0       10.0    6.5     .0      0       126                     \r\n                 1115-        GRID    295     0       .0      7.0     .0      0       126                     \r\n                 1116-        GRID    296     0       .5      7.0     .0      0       126                     \r\n                 1117-        GRID    297     0       1.0     7.0     .0      0       126                     \r\n                 1118-        GRID    298     0       1.5     7.0     .0      0       126                     \r\n                 1119-        GRID    299     0       2.0     7.0     .0      0       126                     \r\n                 1120-        GRID    300     0       2.5     7.0     .0      0       126                     \r\n                 1121-        GRID    301     0       3.0     7.0     .0      0       126                     \r\n                 1122-        GRID    302     0       3.5     7.0     .0      0       126                     \r\n                 1123-        GRID    303     0       4.0     7.0     .0      0       126                     \r\n                 1124-        GRID    304     0       4.5     7.0     .0      0       126                     \r\n                 1125-        GRID    305     0       5.0     7.0     .0      0       126                     \r\n                 1126-        GRID    306     0       5.5     7.0     .0      0       126                     \r\n                 1127-        GRID    307     0       6.0     7.0     .0      0       126                     \r\n                 1128-        GRID    308     0       6.5     7.0     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1129-        GRID    309     0       7.0     7.0     .0      0       126                     \r\n                 1130-        GRID    310     0       7.5     7.0     .0      0       126                     \r\n                 1131-        GRID    311     0       8.0     7.0     .0      0       126                     \r\n                 1132-        GRID    312     0       8.5     7.0     .0      0       126                     \r\n                 1133-        GRID    313     0       9.0     7.0     .0      0       126                     \r\n                 1134-        GRID    314     0       9.5     7.0     .0      0       126                     \r\n                 1135-        GRID    315     0       10.0    7.0     .0      0       126                     \r\n                 1136-        GRID    316     0       .0      7.5     .0      0       126                     \r\n                 1137-        GRID    317     0       .5      7.5     .0      0       126                     \r\n                 1138-        GRID    318     0       1.0     7.5     .0      0       126                     \r\n                 1139-        GRID    319     0       1.5     7.5     .0      0       126                     \r\n                 1140-        GRID    320     0       2.0     7.5     .0      0       126                     \r\n                 1141-        GRID    321     0       2.5     7.5     .0      0       126                     \r\n                 1142-        GRID    322     0       3.0     7.5     .0      0       126                     \r\n                 1143-        GRID    323     0       3.5     7.5     .0      0       126                     \r\n                 1144-        GRID    324     0       4.0     7.5     .0      0       126                     \r\n                 1145-        GRID    325     0       4.5     7.5     .0      0       126                     \r\n                 1146-        GRID    326     0       5.0     7.5     .0      0       126                     \r\n                 1147-        GRID    327     0       5.5     7.5     .0      0       126                     \r\n                 1148-        GRID    328     0       6.0     7.5     .0      0       126                     \r\n                 1149-        GRID    329     0       6.5     7.5     .0      0       126                     \r\n                 1150-        GRID    330     0       7.0     7.5     .0      0       126                     \r\n                 1151-        GRID    331     0       7.5     7.5     .0      0       126                     \r\n                 1152-        GRID    332     0       8.0     7.5     .0      0       126                     \r\n                 1153-        GRID    333     0       8.5     7.5     .0      0       126                     \r\n                 1154-        GRID    334     0       9.0     7.5     .0      0       126                     \r\n                 1155-        GRID    335     0       9.5     7.5     .0      0       126                     \r\n                 1156-        GRID    336     0       10.0    7.5     .0      0       126                     \r\n                 1157-        GRID    337     0       .0      8.0     .0      0       126                     \r\n                 1158-        GRID    338     0       .5      8.0     .0      0       126                     \r\n                 1159-        GRID    339     0       1.0     8.0     .0      0       126                     \r\n                 1160-        GRID    340     0       1.5     8.0     .0      0       126                     \r\n                 1161-        GRID    341     0       2.0     8.0     .0      0       126                     \r\n                 1162-        GRID    342     0       2.5     8.0     .0      0       126                     \r\n                 1163-        GRID    343     0       3.0     8.0     .0      0       126                     \r\n                 1164-        GRID    344     0       3.5     8.0     .0      0       126                     \r\n                 1165-        GRID    345     0       4.0     8.0     .0      0       126                     \r\n                 1166-        GRID    346     0       4.5     8.0     .0      0       126                     \r\n                 1167-        GRID    347     0       5.0     8.0     .0      0       126                     \r\n                 1168-        GRID    348     0       5.5     8.0     .0      0       126                     \r\n                 1169-        GRID    349     0       6.0     8.0     .0      0       126                     \r\n                 1170-        GRID    350     0       6.5     8.0     .0      0       126                     \r\n                 1171-        GRID    351     0       7.0     8.0     .0      0       126                     \r\n                 1172-        GRID    352     0       7.5     8.0     .0      0       126                     \r\n                 1173-        GRID    353     0       8.0     8.0     .0      0       126                     \r\n                 1174-        GRID    354     0       8.5     8.0     .0      0       126                     \r\n                 1175-        GRID    355     0       9.0     8.0     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1176-        GRID    356     0       9.5     8.0     .0      0       126                     \r\n                 1177-        GRID    357     0       10.0    8.0     .0      0       126                     \r\n                 1178-        GRID    358     0       .0      8.5     .0      0       126                     \r\n                 1179-        GRID    359     0       .5      8.5     .0      0       126                     \r\n                 1180-        GRID    360     0       1.0     8.5     .0      0       126                     \r\n                 1181-        GRID    361     0       1.5     8.5     .0      0       126                     \r\n                 1182-        GRID    362     0       2.0     8.5     .0      0       126                     \r\n                 1183-        GRID    363     0       2.5     8.5     .0      0       126                     \r\n                 1184-        GRID    364     0       3.0     8.5     .0      0       126                     \r\n                 1185-        GRID    365     0       3.5     8.5     .0      0       126                     \r\n                 1186-        GRID    366     0       4.0     8.5     .0      0       126                     \r\n                 1187-        GRID    367     0       4.5     8.5     .0      0       126                     \r\n                 1188-        GRID    368     0       5.0     8.5     .0      0       126                     \r\n                 1189-        GRID    369     0       5.5     8.5     .0      0       126                     \r\n                 1190-        GRID    370     0       6.0     8.5     .0      0       126                     \r\n                 1191-        GRID    371     0       6.5     8.5     .0      0       126                     \r\n                 1192-        GRID    372     0       7.0     8.5     .0      0       126                     \r\n                 1193-        GRID    373     0       7.5     8.5     .0      0       126                     \r\n                 1194-        GRID    374     0       8.0     8.5     .0      0       126                     \r\n                 1195-        GRID    375     0       8.5     8.5     .0      0       126                     \r\n                 1196-        GRID    376     0       9.0     8.5     .0      0       126                     \r\n                 1197-        GRID    377     0       9.5     8.5     .0      0       126                     \r\n                 1198-        GRID    378     0       10.0    8.5     .0      0       126                     \r\n                 1199-        GRID    379     0       .0      9.0     .0      0       126                     \r\n                 1200-        GRID    380     0       .5      9.0     .0      0       126                     \r\n                 1201-        GRID    381     0       1.0     9.0     .0      0       126                     \r\n                 1202-        GRID    382     0       1.5     9.0     .0      0       126                     \r\n                 1203-        GRID    383     0       2.0     9.0     .0      0       126                     \r\n                 1204-        GRID    384     0       2.5     9.0     .0      0       126                     \r\n                 1205-        GRID    385     0       3.0     9.0     .0      0       126                     \r\n                 1206-        GRID    386     0       3.5     9.0     .0      0       126                     \r\n                 1207-        GRID    387     0       4.0     9.0     .0      0       126                     \r\n                 1208-        GRID    388     0       4.5     9.0     .0      0       126                     \r\n                 1209-        GRID    389     0       5.0     9.0     .0      0       126                     \r\n                 1210-        GRID    390     0       5.5     9.0     .0      0       126                     \r\n                 1211-        GRID    391     0       6.0     9.0     .0      0       126                     \r\n                 1212-        GRID    392     0       6.5     9.0     .0      0       126                     \r\n                 1213-        GRID    393     0       7.0     9.0     .0      0       126                     \r\n                 1214-        GRID    394     0       7.5     9.0     .0      0       126                     \r\n                 1215-        GRID    395     0       8.0     9.0     .0      0       126                     \r\n                 1216-        GRID    396     0       8.5     9.0     .0      0       126                     \r\n                 1217-        GRID    397     0       9.0     9.0     .0      0       126                     \r\n                 1218-        GRID    398     0       9.5     9.0     .0      0       126                     \r\n                 1219-        GRID    399     0       10.0    9.0     .0      0       126                     \r\n                 1220-        GRID    400     0       .0      9.5     .0      0       126                     \r\n                 1221-        GRID    401     0       .5      9.5     .0      0       126                     \r\n                 1222-        GRID    402     0       1.0     9.5     .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1223-        GRID    403     0       1.5     9.5     .0      0       126                     \r\n                 1224-        GRID    404     0       2.0     9.5     .0      0       126                     \r\n                 1225-        GRID    405     0       2.5     9.5     .0      0       126                     \r\n                 1226-        GRID    406     0       3.0     9.5     .0      0       126                     \r\n                 1227-        GRID    407     0       3.5     9.5     .0      0       126                     \r\n                 1228-        GRID    408     0       4.0     9.5     .0      0       126                     \r\n                 1229-        GRID    409     0       4.5     9.5     .0      0       126                     \r\n                 1230-        GRID    410     0       5.0     9.5     .0      0       126                     \r\n                 1231-        GRID    411     0       5.5     9.5     .0      0       126                     \r\n                 1232-        GRID    412     0       6.0     9.5     .0      0       126                     \r\n                 1233-        GRID    413     0       6.5     9.5     .0      0       126                     \r\n                 1234-        GRID    414     0       7.0     9.5     .0      0       126                     \r\n                 1235-        GRID    415     0       7.5     9.5     .0      0       126                     \r\n                 1236-        GRID    416     0       8.0     9.5     .0      0       126                     \r\n                 1237-        GRID    417     0       8.5     9.5     .0      0       126                     \r\n                 1238-        GRID    418     0       9.0     9.5     .0      0       126                     \r\n                 1239-        GRID    419     0       9.5     9.5     .0      0       126                     \r\n                 1240-        GRID    420     0       10.0    9.5     .0      0       126                     \r\n                 1241-        GRID    421     0       .0      10.0    .0      0       126                     \r\n                 1242-        GRID    422     0       .5      10.0    .0      0       126                     \r\n                 1243-        GRID    423     0       1.0     10.0    .0      0       126                     \r\n                 1244-        GRID    424     0       1.5     10.0    .0      0       126                     \r\n                 1245-        GRID    425     0       2.0     10.0    .0      0       126                     \r\n                 1246-        GRID    426     0       2.5     10.0    .0      0       126                     \r\n                 1247-        GRID    427     0       3.0     10.0    .0      0       126                     \r\n                 1248-        GRID    428     0       3.5     10.0    .0      0       126                     \r\n                 1249-        GRID    429     0       4.0     10.0    .0      0       126                     \r\n                 1250-        GRID    430     0       4.5     10.0    .0      0       126                     \r\n                 1251-        GRID    431     0       5.0     10.0    .0      0       126                     \r\n                 1252-        GRID    432     0       5.5     10.0    .0      0       126                     \r\n                 1253-        GRID    433     0       6.0     10.0    .0      0       126                     \r\n                 1254-        GRID    434     0       6.5     10.0    .0      0       126                     \r\n                 1255-        GRID    435     0       7.0     10.0    .0      0       126                     \r\n                 1256-        GRID    436     0       7.5     10.0    .0      0       126                     \r\n                 1257-        GRID    437     0       8.0     10.0    .0      0       126                     \r\n                 1258-        GRID    438     0       8.5     10.0    .0      0       126                     \r\n                 1259-        GRID    439     0       9.0     10.0    .0      0       126                     \r\n                 1260-        GRID    440     0       9.5     10.0    .0      0       126                     \r\n                 1261-        GRID    441     0       10.0    10.0    .0      0       126                     \r\n                 1262-        GRID    442     0       .0      10.5    .0      0       126                     \r\n                 1263-        GRID    443     0       .5      10.5    .0      0       126                     \r\n                 1264-        GRID    444     0       1.0     10.5    .0      0       126                     \r\n                 1265-        GRID    445     0       1.5     10.5    .0      0       126                     \r\n                 1266-        GRID    446     0       2.0     10.5    .0      0       126                     \r\n                 1267-        GRID    447     0       2.5     10.5    .0      0       126                     \r\n                 1268-        GRID    448     0       3.0     10.5    .0      0       126                     \r\n                 1269-        GRID    449     0       3.5     10.5    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1270-        GRID    450     0       4.0     10.5    .0      0       126                     \r\n                 1271-        GRID    451     0       4.5     10.5    .0      0       126                     \r\n                 1272-        GRID    452     0       5.0     10.5    .0      0       126                     \r\n                 1273-        GRID    453     0       5.5     10.5    .0      0       126                     \r\n                 1274-        GRID    454     0       6.0     10.5    .0      0       126                     \r\n                 1275-        GRID    455     0       6.5     10.5    .0      0       126                     \r\n                 1276-        GRID    456     0       7.0     10.5    .0      0       126                     \r\n                 1277-        GRID    457     0       7.5     10.5    .0      0       126                     \r\n                 1278-        GRID    458     0       8.0     10.5    .0      0       126                     \r\n                 1279-        GRID    459     0       8.5     10.5    .0      0       126                     \r\n                 1280-        GRID    460     0       9.0     10.5    .0      0       126                     \r\n                 1281-        GRID    461     0       9.5     10.5    .0      0       126                     \r\n                 1282-        GRID    462     0       10.0    10.5    .0      0       126                     \r\n                 1283-        GRID    463     0       .0      11.0    .0      0       126                     \r\n                 1284-        GRID    464     0       .5      11.0    .0      0       126                     \r\n                 1285-        GRID    465     0       1.0     11.0    .0      0       126                     \r\n                 1286-        GRID    466     0       1.5     11.0    .0      0       126                     \r\n                 1287-        GRID    467     0       2.0     11.0    .0      0       126                     \r\n                 1288-        GRID    468     0       2.5     11.0    .0      0       126                     \r\n                 1289-        GRID    469     0       3.0     11.0    .0      0       126                     \r\n                 1290-        GRID    470     0       3.5     11.0    .0      0       126                     \r\n                 1291-        GRID    471     0       4.0     11.0    .0      0       126                     \r\n                 1292-        GRID    472     0       4.5     11.0    .0      0       126                     \r\n                 1293-        GRID    473     0       5.0     11.0    .0      0       126                     \r\n                 1294-        GRID    474     0       5.5     11.0    .0      0       126                     \r\n                 1295-        GRID    475     0       6.0     11.0    .0      0       126                     \r\n                 1296-        GRID    476     0       6.5     11.0    .0      0       126                     \r\n                 1297-        GRID    477     0       7.0     11.0    .0      0       126                     \r\n                 1298-        GRID    478     0       7.5     11.0    .0      0       126                     \r\n                 1299-        GRID    479     0       8.0     11.0    .0      0       126                     \r\n                 1300-        GRID    480     0       8.5     11.0    .0      0       126                     \r\n                 1301-        GRID    481     0       9.0     11.0    .0      0       126                     \r\n                 1302-        GRID    482     0       9.5     11.0    .0      0       126                     \r\n                 1303-        GRID    483     0       10.0    11.0    .0      0       126                     \r\n                 1304-        GRID    484     0       .0      11.5    .0      0       126                     \r\n                 1305-        GRID    485     0       .5      11.5    .0      0       126                     \r\n                 1306-        GRID    486     0       1.0     11.5    .0      0       126                     \r\n                 1307-        GRID    487     0       1.5     11.5    .0      0       126                     \r\n                 1308-        GRID    488     0       2.0     11.5    .0      0       126                     \r\n                 1309-        GRID    489     0       2.5     11.5    .0      0       126                     \r\n                 1310-        GRID    490     0       3.0     11.5    .0      0       126                     \r\n                 1311-        GRID    491     0       3.5     11.5    .0      0       126                     \r\n                 1312-        GRID    492     0       4.0     11.5    .0      0       126                     \r\n                 1313-        GRID    493     0       4.5     11.5    .0      0       126                     \r\n                 1314-        GRID    494     0       5.0     11.5    .0      0       126                     \r\n                 1315-        GRID    495     0       5.5     11.5    .0      0       126                     \r\n                 1316-        GRID    496     0       6.0     11.5    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1317-        GRID    497     0       6.5     11.5    .0      0       126                     \r\n                 1318-        GRID    498     0       7.0     11.5    .0      0       126                     \r\n                 1319-        GRID    499     0       7.5     11.5    .0      0       126                     \r\n                 1320-        GRID    500     0       8.0     11.5    .0      0       126                     \r\n                 1321-        GRID    501     0       8.5     11.5    .0      0       126                     \r\n                 1322-        GRID    502     0       9.0     11.5    .0      0       126                     \r\n                 1323-        GRID    503     0       9.5     11.5    .0      0       126                     \r\n                 1324-        GRID    504     0       10.0    11.5    .0      0       126                     \r\n                 1325-        GRID    505     0       .0      12.0    .0      0       126                     \r\n                 1326-        GRID    506     0       .5      12.0    .0      0       126                     \r\n                 1327-        GRID    507     0       1.0     12.0    .0      0       126                     \r\n                 1328-        GRID    508     0       1.5     12.0    .0      0       126                     \r\n                 1329-        GRID    509     0       2.0     12.0    .0      0       126                     \r\n                 1330-        GRID    510     0       2.5     12.0    .0      0       126                     \r\n                 1331-        GRID    511     0       3.0     12.0    .0      0       126                     \r\n                 1332-        GRID    512     0       3.5     12.0    .0      0       126                     \r\n                 1333-        GRID    513     0       4.0     12.0    .0      0       126                     \r\n                 1334-        GRID    514     0       4.5     12.0    .0      0       126                     \r\n                 1335-        GRID    515     0       5.0     12.0    .0      0       126                     \r\n                 1336-        GRID    516     0       5.5     12.0    .0      0       126                     \r\n                 1337-        GRID    517     0       6.0     12.0    .0      0       126                     \r\n                 1338-        GRID    518     0       6.5     12.0    .0      0       126                     \r\n                 1339-        GRID    519     0       7.0     12.0    .0      0       126                     \r\n                 1340-        GRID    520     0       7.5     12.0    .0      0       126                     \r\n                 1341-        GRID    521     0       8.0     12.0    .0      0       126                     \r\n                 1342-        GRID    522     0       8.5     12.0    .0      0       126                     \r\n                 1343-        GRID    523     0       9.0     12.0    .0      0       126                     \r\n                 1344-        GRID    524     0       9.5     12.0    .0      0       126                     \r\n                 1345-        GRID    525     0       10.0    12.0    .0      0       126                     \r\n                 1346-        GRID    526     0       .0      12.5    .0      0       126                     \r\n                 1347-        GRID    527     0       .5      12.5    .0      0       126                     \r\n                 1348-        GRID    528     0       1.0     12.5    .0      0       126                     \r\n                 1349-        GRID    529     0       1.5     12.5    .0      0       126                     \r\n                 1350-        GRID    530     0       2.0     12.5    .0      0       126                     \r\n                 1351-        GRID    531     0       2.5     12.5    .0      0       126                     \r\n                 1352-        GRID    532     0       3.0     12.5    .0      0       126                     \r\n                 1353-        GRID    533     0       3.5     12.5    .0      0       126                     \r\n                 1354-        GRID    534     0       4.0     12.5    .0      0       126                     \r\n                 1355-        GRID    535     0       4.5     12.5    .0      0       126                     \r\n                 1356-        GRID    536     0       5.0     12.5    .0      0       126                     \r\n                 1357-        GRID    537     0       5.5     12.5    .0      0       126                     \r\n                 1358-        GRID    538     0       6.0     12.5    .0      0       126                     \r\n                 1359-        GRID    539     0       6.5     12.5    .0      0       126                     \r\n                 1360-        GRID    540     0       7.0     12.5    .0      0       126                     \r\n                 1361-        GRID    541     0       7.5     12.5    .0      0       126                     \r\n                 1362-        GRID    542     0       8.0     12.5    .0      0       126                     \r\n                 1363-        GRID    543     0       8.5     12.5    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1364-        GRID    544     0       9.0     12.5    .0      0       126                     \r\n                 1365-        GRID    545     0       9.5     12.5    .0      0       126                     \r\n                 1366-        GRID    546     0       10.0    12.5    .0      0       126                     \r\n                 1367-        GRID    547     0       .0      13.0    .0      0       126                     \r\n                 1368-        GRID    548     0       .5      13.0    .0      0       126                     \r\n                 1369-        GRID    549     0       1.0     13.0    .0      0       126                     \r\n                 1370-        GRID    550     0       1.5     13.0    .0      0       126                     \r\n                 1371-        GRID    551     0       2.0     13.0    .0      0       126                     \r\n                 1372-        GRID    552     0       2.5     13.0    .0      0       126                     \r\n                 1373-        GRID    553     0       3.0     13.0    .0      0       126                     \r\n                 1374-        GRID    554     0       3.5     13.0    .0      0       126                     \r\n                 1375-        GRID    555     0       4.0     13.0    .0      0       126                     \r\n                 1376-        GRID    556     0       4.5     13.0    .0      0       126                     \r\n                 1377-        GRID    557     0       5.0     13.0    .0      0       126                     \r\n                 1378-        GRID    558     0       5.5     13.0    .0      0       126                     \r\n                 1379-        GRID    559     0       6.0     13.0    .0      0       126                     \r\n                 1380-        GRID    560     0       6.5     13.0    .0      0       126                     \r\n                 1381-        GRID    561     0       7.0     13.0    .0      0       126                     \r\n                 1382-        GRID    562     0       7.5     13.0    .0      0       126                     \r\n                 1383-        GRID    563     0       8.0     13.0    .0      0       126                     \r\n                 1384-        GRID    564     0       8.5     13.0    .0      0       126                     \r\n                 1385-        GRID    565     0       9.0     13.0    .0      0       126                     \r\n                 1386-        GRID    566     0       9.5     13.0    .0      0       126                     \r\n                 1387-        GRID    567     0       10.0    13.0    .0      0       126                     \r\n                 1388-        GRID    568     0       .0      13.5    .0      0       126                     \r\n                 1389-        GRID    569     0       .5      13.5    .0      0       126                     \r\n                 1390-        GRID    570     0       1.0     13.5    .0      0       126                     \r\n                 1391-        GRID    571     0       1.5     13.5    .0      0       126                     \r\n                 1392-        GRID    572     0       2.0     13.5    .0      0       126                     \r\n                 1393-        GRID    573     0       2.5     13.5    .0      0       126                     \r\n                 1394-        GRID    574     0       3.0     13.5    .0      0       126                     \r\n                 1395-        GRID    575     0       3.5     13.5    .0      0       126                     \r\n                 1396-        GRID    576     0       4.0     13.5    .0      0       126                     \r\n                 1397-        GRID    577     0       4.5     13.5    .0      0       126                     \r\n                 1398-        GRID    578     0       5.0     13.5    .0      0       126                     \r\n                 1399-        GRID    579     0       5.5     13.5    .0      0       126                     \r\n                 1400-        GRID    580     0       6.0     13.5    .0      0       126                     \r\n                 1401-        GRID    581     0       6.5     13.5    .0      0       126                     \r\n                 1402-        GRID    582     0       7.0     13.5    .0      0       126                     \r\n                 1403-        GRID    583     0       7.5     13.5    .0      0       126                     \r\n                 1404-        GRID    584     0       8.0     13.5    .0      0       126                     \r\n                 1405-        GRID    585     0       8.5     13.5    .0      0       126                     \r\n                 1406-        GRID    586     0       9.0     13.5    .0      0       126                     \r\n                 1407-        GRID    587     0       9.5     13.5    .0      0       126                     \r\n                 1408-        GRID    588     0       10.0    13.5    .0      0       126                     \r\n                 1409-        GRID    589     0       .0      14.0    .0      0       126                     \r\n                 1410-        GRID    590     0       .5      14.0    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1411-        GRID    591     0       1.0     14.0    .0      0       126                     \r\n                 1412-        GRID    592     0       1.5     14.0    .0      0       126                     \r\n                 1413-        GRID    593     0       2.0     14.0    .0      0       126                     \r\n                 1414-        GRID    594     0       2.5     14.0    .0      0       126                     \r\n                 1415-        GRID    595     0       3.0     14.0    .0      0       126                     \r\n                 1416-        GRID    596     0       3.5     14.0    .0      0       126                     \r\n                 1417-        GRID    597     0       4.0     14.0    .0      0       126                     \r\n                 1418-        GRID    598     0       4.5     14.0    .0      0       126                     \r\n                 1419-        GRID    599     0       5.0     14.0    .0      0       126                     \r\n                 1420-        GRID    600     0       5.5     14.0    .0      0       126                     \r\n                 1421-        GRID    601     0       6.0     14.0    .0      0       126                     \r\n                 1422-        GRID    602     0       6.5     14.0    .0      0       126                     \r\n                 1423-        GRID    603     0       7.0     14.0    .0      0       126                     \r\n                 1424-        GRID    604     0       7.5     14.0    .0      0       126                     \r\n                 1425-        GRID    605     0       8.0     14.0    .0      0       126                     \r\n                 1426-        GRID    606     0       8.5     14.0    .0      0       126                     \r\n                 1427-        GRID    607     0       9.0     14.0    .0      0       126                     \r\n                 1428-        GRID    608     0       9.5     14.0    .0      0       126                     \r\n                 1429-        GRID    609     0       10.0    14.0    .0      0       126                     \r\n                 1430-        GRID    610     0       .0      14.5    .0      0       126                     \r\n                 1431-        GRID    611     0       .5      14.5    .0      0       126                     \r\n                 1432-        GRID    612     0       1.0     14.5    .0      0       126                     \r\n                 1433-        GRID    613     0       1.5     14.5    .0      0       126                     \r\n                 1434-        GRID    614     0       2.0     14.5    .0      0       126                     \r\n                 1435-        GRID    615     0       2.5     14.5    .0      0       126                     \r\n                 1436-        GRID    616     0       3.0     14.5    .0      0       126                     \r\n                 1437-        GRID    617     0       3.5     14.5    .0      0       126                     \r\n                 1438-        GRID    618     0       4.0     14.5    .0      0       126                     \r\n                 1439-        GRID    619     0       4.5     14.5    .0      0       126                     \r\n                 1440-        GRID    620     0       5.0     14.5    .0      0       126                     \r\n                 1441-        GRID    621     0       5.5     14.5    .0      0       126                     \r\n                 1442-        GRID    622     0       6.0     14.5    .0      0       126                     \r\n                 1443-        GRID    623     0       6.5     14.5    .0      0       126                     \r\n                 1444-        GRID    624     0       7.0     14.5    .0      0       126                     \r\n                 1445-        GRID    625     0       7.5     14.5    .0      0       126                     \r\n                 1446-        GRID    626     0       8.0     14.5    .0      0       126                     \r\n                 1447-        GRID    627     0       8.5     14.5    .0      0       126                     \r\n                 1448-        GRID    628     0       9.0     14.5    .0      0       126                     \r\n                 1449-        GRID    629     0       9.5     14.5    .0      0       126                     \r\n                 1450-        GRID    630     0       10.0    14.5    .0      0       126                     \r\n                 1451-        GRID    631     0       .0      15.0    .0      0       126                     \r\n                 1452-        GRID    632     0       .5      15.0    .0      0       126                     \r\n                 1453-        GRID    633     0       1.0     15.0    .0      0       126                     \r\n                 1454-        GRID    634     0       1.5     15.0    .0      0       126                     \r\n                 1455-        GRID    635     0       2.0     15.0    .0      0       126                     \r\n                 1456-        GRID    636     0       2.5     15.0    .0      0       126                     \r\n                 1457-        GRID    637     0       3.0     15.0    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1458-        GRID    638     0       3.5     15.0    .0      0       126                     \r\n                 1459-        GRID    639     0       4.0     15.0    .0      0       126                     \r\n                 1460-        GRID    640     0       4.5     15.0    .0      0       126                     \r\n                 1461-        GRID    641     0       5.0     15.0    .0      0       126                     \r\n                 1462-        GRID    642     0       5.5     15.0    .0      0       126                     \r\n                 1463-        GRID    643     0       6.0     15.0    .0      0       126                     \r\n                 1464-        GRID    644     0       6.5     15.0    .0      0       126                     \r\n                 1465-        GRID    645     0       7.0     15.0    .0      0       126                     \r\n                 1466-        GRID    646     0       7.5     15.0    .0      0       126                     \r\n                 1467-        GRID    647     0       8.0     15.0    .0      0       126                     \r\n                 1468-        GRID    648     0       8.5     15.0    .0      0       126                     \r\n                 1469-        GRID    649     0       9.0     15.0    .0      0       126                     \r\n                 1470-        GRID    650     0       9.5     15.0    .0      0       126                     \r\n                 1471-        GRID    651     0       10.0    15.0    .0      0       126                     \r\n                 1472-        GRID    652     0       .0      15.5    .0      0       126                     \r\n                 1473-        GRID    653     0       .5      15.5    .0      0       126                     \r\n                 1474-        GRID    654     0       1.0     15.5    .0      0       126                     \r\n                 1475-        GRID    655     0       1.5     15.5    .0      0       126                     \r\n                 1476-        GRID    656     0       2.0     15.5    .0      0       126                     \r\n                 1477-        GRID    657     0       2.5     15.5    .0      0       126                     \r\n                 1478-        GRID    658     0       3.0     15.5    .0      0       126                     \r\n                 1479-        GRID    659     0       3.5     15.5    .0      0       126                     \r\n                 1480-        GRID    660     0       4.0     15.5    .0      0       126                     \r\n                 1481-        GRID    661     0       4.5     15.5    .0      0       126                     \r\n                 1482-        GRID    662     0       5.0     15.5    .0      0       126                     \r\n                 1483-        GRID    663     0       5.5     15.5    .0      0       126                     \r\n                 1484-        GRID    664     0       6.0     15.5    .0      0       126                     \r\n                 1485-        GRID    665     0       6.5     15.5    .0      0       126                     \r\n                 1486-        GRID    666     0       7.0     15.5    .0      0       126                     \r\n                 1487-        GRID    667     0       7.5     15.5    .0      0       126                     \r\n                 1488-        GRID    668     0       8.0     15.5    .0      0       126                     \r\n                 1489-        GRID    669     0       8.5     15.5    .0      0       126                     \r\n                 1490-        GRID    670     0       9.0     15.5    .0      0       126                     \r\n                 1491-        GRID    671     0       9.5     15.5    .0      0       126                     \r\n                 1492-        GRID    672     0       10.0    15.5    .0      0       126                     \r\n                 1493-        GRID    673     0       .0      16.0    .0      0       126                     \r\n                 1494-        GRID    674     0       .5      16.0    .0      0       126                     \r\n                 1495-        GRID    675     0       1.0     16.0    .0      0       126                     \r\n                 1496-        GRID    676     0       1.5     16.0    .0      0       126                     \r\n                 1497-        GRID    677     0       2.0     16.0    .0      0       126                     \r\n                 1498-        GRID    678     0       2.5     16.0    .0      0       126                     \r\n                 1499-        GRID    679     0       3.0     16.0    .0      0       126                     \r\n                 1500-        GRID    680     0       3.5     16.0    .0      0       126                     \r\n                 1501-        GRID    681     0       4.0     16.0    .0      0       126                     \r\n                 1502-        GRID    682     0       4.5     16.0    .0      0       126                     \r\n                 1503-        GRID    683     0       5.0     16.0    .0      0       126                     \r\n                 1504-        GRID    684     0       5.5     16.0    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1505-        GRID    685     0       6.0     16.0    .0      0       126                     \r\n                 1506-        GRID    686     0       6.5     16.0    .0      0       126                     \r\n                 1507-        GRID    687     0       7.0     16.0    .0      0       126                     \r\n                 1508-        GRID    688     0       7.5     16.0    .0      0       126                     \r\n                 1509-        GRID    689     0       8.0     16.0    .0      0       126                     \r\n                 1510-        GRID    690     0       8.5     16.0    .0      0       126                     \r\n                 1511-        GRID    691     0       9.0     16.0    .0      0       126                     \r\n                 1512-        GRID    692     0       9.5     16.0    .0      0       126                     \r\n                 1513-        GRID    693     0       10.0    16.0    .0      0       126                     \r\n                 1514-        GRID    694     0       .0      16.5    .0      0       126                     \r\n                 1515-        GRID    695     0       .5      16.5    .0      0       126                     \r\n                 1516-        GRID    696     0       1.0     16.5    .0      0       126                     \r\n                 1517-        GRID    697     0       1.5     16.5    .0      0       126                     \r\n                 1518-        GRID    698     0       2.0     16.5    .0      0       126                     \r\n                 1519-        GRID    699     0       2.5     16.5    .0      0       126                     \r\n                 1520-        GRID    700     0       3.0     16.5    .0      0       126                     \r\n                 1521-        GRID    701     0       3.5     16.5    .0      0       126                     \r\n                 1522-        GRID    702     0       4.0     16.5    .0      0       126                     \r\n                 1523-        GRID    703     0       4.5     16.5    .0      0       126                     \r\n                 1524-        GRID    704     0       5.0     16.5    .0      0       126                     \r\n                 1525-        GRID    705     0       5.5     16.5    .0      0       126                     \r\n                 1526-        GRID    706     0       6.0     16.5    .0      0       126                     \r\n                 1527-        GRID    707     0       6.5     16.5    .0      0       126                     \r\n                 1528-        GRID    708     0       7.0     16.5    .0      0       126                     \r\n                 1529-        GRID    709     0       7.5     16.5    .0      0       126                     \r\n                 1530-        GRID    710     0       8.0     16.5    .0      0       126                     \r\n                 1531-        GRID    711     0       8.5     16.5    .0      0       126                     \r\n                 1532-        GRID    712     0       9.0     16.5    .0      0       126                     \r\n                 1533-        GRID    713     0       9.5     16.5    .0      0       126                     \r\n                 1534-        GRID    714     0       10.0    16.5    .0      0       126                     \r\n                 1535-        GRID    715     0       .0      17.0    .0      0       126                     \r\n                 1536-        GRID    716     0       .5      17.0    .0      0       126                     \r\n                 1537-        GRID    717     0       1.0     17.0    .0      0       126                     \r\n                 1538-        GRID    718     0       1.5     17.0    .0      0       126                     \r\n                 1539-        GRID    719     0       2.0     17.0    .0      0       126                     \r\n                 1540-        GRID    720     0       2.5     17.0    .0      0       126                     \r\n                 1541-        GRID    721     0       3.0     17.0    .0      0       126                     \r\n                 1542-        GRID    722     0       3.5     17.0    .0      0       126                     \r\n                 1543-        GRID    723     0       4.0     17.0    .0      0       126                     \r\n                 1544-        GRID    724     0       4.5     17.0    .0      0       126                     \r\n                 1545-        GRID    725     0       5.0     17.0    .0      0       126                     \r\n                 1546-        GRID    726     0       5.5     17.0    .0      0       126                     \r\n                 1547-        GRID    727     0       6.0     17.0    .0      0       126                     \r\n                 1548-        GRID    728     0       6.5     17.0    .0      0       126                     \r\n                 1549-        GRID    729     0       7.0     17.0    .0      0       126                     \r\n                 1550-        GRID    730     0       7.5     17.0    .0      0       126                     \r\n                 1551-        GRID    731     0       8.0     17.0    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1552-        GRID    732     0       8.5     17.0    .0      0       126                     \r\n                 1553-        GRID    733     0       9.0     17.0    .0      0       126                     \r\n                 1554-        GRID    734     0       9.5     17.0    .0      0       126                     \r\n                 1555-        GRID    735     0       10.0    17.0    .0      0       126                     \r\n                 1556-        GRID    736     0       .0      17.5    .0      0       126                     \r\n                 1557-        GRID    737     0       .5      17.5    .0      0       126                     \r\n                 1558-        GRID    738     0       1.0     17.5    .0      0       126                     \r\n                 1559-        GRID    739     0       1.5     17.5    .0      0       126                     \r\n                 1560-        GRID    740     0       2.0     17.5    .0      0       126                     \r\n                 1561-        GRID    741     0       2.5     17.5    .0      0       126                     \r\n                 1562-        GRID    742     0       3.0     17.5    .0      0       126                     \r\n                 1563-        GRID    743     0       3.5     17.5    .0      0       126                     \r\n                 1564-        GRID    744     0       4.0     17.5    .0      0       126                     \r\n                 1565-        GRID    745     0       4.5     17.5    .0      0       126                     \r\n                 1566-        GRID    746     0       5.0     17.5    .0      0       126                     \r\n                 1567-        GRID    747     0       5.5     17.5    .0      0       126                     \r\n                 1568-        GRID    748     0       6.0     17.5    .0      0       126                     \r\n                 1569-        GRID    749     0       6.5     17.5    .0      0       126                     \r\n                 1570-        GRID    750     0       7.0     17.5    .0      0       126                     \r\n                 1571-        GRID    751     0       7.5     17.5    .0      0       126                     \r\n                 1572-        GRID    752     0       8.0     17.5    .0      0       126                     \r\n                 1573-        GRID    753     0       8.5     17.5    .0      0       126                     \r\n                 1574-        GRID    754     0       9.0     17.5    .0      0       126                     \r\n                 1575-        GRID    755     0       9.5     17.5    .0      0       126                     \r\n                 1576-        GRID    756     0       10.0    17.5    .0      0       126                     \r\n                 1577-        GRID    757     0       .0      18.0    .0      0       126                     \r\n                 1578-        GRID    758     0       .5      18.0    .0      0       126                     \r\n                 1579-        GRID    759     0       1.0     18.0    .0      0       126                     \r\n                 1580-        GRID    760     0       1.5     18.0    .0      0       126                     \r\n                 1581-        GRID    761     0       2.0     18.0    .0      0       126                     \r\n                 1582-        GRID    762     0       2.5     18.0    .0      0       126                     \r\n                 1583-        GRID    763     0       3.0     18.0    .0      0       126                     \r\n                 1584-        GRID    764     0       3.5     18.0    .0      0       126                     \r\n                 1585-        GRID    765     0       4.0     18.0    .0      0       126                     \r\n                 1586-        GRID    766     0       4.5     18.0    .0      0       126                     \r\n                 1587-        GRID    767     0       5.0     18.0    .0      0       126                     \r\n                 1588-        GRID    768     0       5.5     18.0    .0      0       126                     \r\n                 1589-        GRID    769     0       6.0     18.0    .0      0       126                     \r\n                 1590-        GRID    770     0       6.5     18.0    .0      0       126                     \r\n                 1591-        GRID    771     0       7.0     18.0    .0      0       126                     \r\n                 1592-        GRID    772     0       7.5     18.0    .0      0       126                     \r\n                 1593-        GRID    773     0       8.0     18.0    .0      0       126                     \r\n                 1594-        GRID    774     0       8.5     18.0    .0      0       126                     \r\n                 1595-        GRID    775     0       9.0     18.0    .0      0       126                     \r\n                 1596-        GRID    776     0       9.5     18.0    .0      0       126                     \r\n                 1597-        GRID    777     0       10.0    18.0    .0      0       126                     \r\n                 1598-        GRID    778     0       .0      18.5    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1599-        GRID    779     0       .5      18.5    .0      0       126                     \r\n                 1600-        GRID    780     0       1.0     18.5    .0      0       126                     \r\n                 1601-        GRID    781     0       1.5     18.5    .0      0       126                     \r\n                 1602-        GRID    782     0       2.0     18.5    .0      0       126                     \r\n                 1603-        GRID    783     0       2.5     18.5    .0      0       126                     \r\n                 1604-        GRID    784     0       3.0     18.5    .0      0       126                     \r\n                 1605-        GRID    785     0       3.5     18.5    .0      0       126                     \r\n                 1606-        GRID    786     0       4.0     18.5    .0      0       126                     \r\n                 1607-        GRID    787     0       4.5     18.5    .0      0       126                     \r\n                 1608-        GRID    788     0       5.0     18.5    .0      0       126                     \r\n                 1609-        GRID    789     0       5.5     18.5    .0      0       126                     \r\n                 1610-        GRID    790     0       6.0     18.5    .0      0       126                     \r\n                 1611-        GRID    791     0       6.5     18.5    .0      0       126                     \r\n                 1612-        GRID    792     0       7.0     18.5    .0      0       126                     \r\n                 1613-        GRID    793     0       7.5     18.5    .0      0       126                     \r\n                 1614-        GRID    794     0       8.0     18.5    .0      0       126                     \r\n                 1615-        GRID    795     0       8.5     18.5    .0      0       126                     \r\n                 1616-        GRID    796     0       9.0     18.5    .0      0       126                     \r\n                 1617-        GRID    797     0       9.5     18.5    .0      0       126                     \r\n                 1618-        GRID    798     0       10.0    18.5    .0      0       126                     \r\n                 1619-        GRID    799     0       .0      19.0    .0      0       126                     \r\n                 1620-        GRID    800     0       .5      19.0    .0      0       126                     \r\n                 1621-        GRID    801     0       1.0     19.0    .0      0       126                     \r\n                 1622-        GRID    802     0       1.5     19.0    .0      0       126                     \r\n                 1623-        GRID    803     0       2.0     19.0    .0      0       126                     \r\n                 1624-        GRID    804     0       2.5     19.0    .0      0       126                     \r\n                 1625-        GRID    805     0       3.0     19.0    .0      0       126                     \r\n                 1626-        GRID    806     0       3.5     19.0    .0      0       126                     \r\n                 1627-        GRID    807     0       4.0     19.0    .0      0       126                     \r\n                 1628-        GRID    808     0       4.5     19.0    .0      0       126                     \r\n                 1629-        GRID    809     0       5.0     19.0    .0      0       126                     \r\n                 1630-        GRID    810     0       5.5     19.0    .0      0       126                     \r\n                 1631-        GRID    811     0       6.0     19.0    .0      0       126                     \r\n                 1632-        GRID    812     0       6.5     19.0    .0      0       126                     \r\n                 1633-        GRID    813     0       7.0     19.0    .0      0       126                     \r\n                 1634-        GRID    814     0       7.5     19.0    .0      0       126                     \r\n                 1635-        GRID    815     0       8.0     19.0    .0      0       126                     \r\n                 1636-        GRID    816     0       8.5     19.0    .0      0       126                     \r\n                 1637-        GRID    817     0       9.0     19.0    .0      0       126                     \r\n                 1638-        GRID    818     0       9.5     19.0    .0      0       126                     \r\n                 1639-        GRID    819     0       10.0    19.0    .0      0       126                     \r\n                 1640-        GRID    820     0       .0      19.5    .0      0       126                     \r\n                 1641-        GRID    821     0       .5      19.5    .0      0       126                     \r\n                 1642-        GRID    822     0       1.0     19.5    .0      0       126                     \r\n                 1643-        GRID    823     0       1.5     19.5    .0      0       126                     \r\n                 1644-        GRID    824     0       2.0     19.5    .0      0       126                     \r\n                 1645-        GRID    825     0       2.5     19.5    .0      0       126                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1646-        GRID    826     0       3.0     19.5    .0      0       126                     \r\n                 1647-        GRID    827     0       3.5     19.5    .0      0       126                     \r\n                 1648-        GRID    828     0       4.0     19.5    .0      0       126                     \r\n                 1649-        GRID    829     0       4.5     19.5    .0      0       126                     \r\n                 1650-        GRID    830     0       5.0     19.5    .0      0       126                     \r\n                 1651-        GRID    831     0       5.5     19.5    .0      0       126                     \r\n                 1652-        GRID    832     0       6.0     19.5    .0      0       126                     \r\n                 1653-        GRID    833     0       6.5     19.5    .0      0       126                     \r\n                 1654-        GRID    834     0       7.0     19.5    .0      0       126                     \r\n                 1655-        GRID    835     0       7.5     19.5    .0      0       126                     \r\n                 1656-        GRID    836     0       8.0     19.5    .0      0       126                     \r\n                 1657-        GRID    837     0       8.5     19.5    .0      0       126                     \r\n                 1658-        GRID    838     0       9.0     19.5    .0      0       126                     \r\n                 1659-        GRID    839     0       9.5     19.5    .0      0       126                     \r\n                 1660-        GRID    840     0       10.0    19.5    .0      0       126                     \r\n                 1661-        GRID    841     0       .0      20.0    .0      0       126                     \r\n                 1662-        GRID    842     0       .5      20.0    .0      0       126                     \r\n                 1663-        GRID    843     0       1.0     20.0    .0      0       126                     \r\n                 1664-        GRID    844     0       1.5     20.0    .0      0       126                     \r\n                 1665-        GRID    845     0       2.0     20.0    .0      0       126                     \r\n                 1666-        GRID    846     0       2.5     20.0    .0      0       126                     \r\n                 1667-        GRID    847     0       3.0     20.0    .0      0       126                     \r\n                 1668-        GRID    848     0       3.5     20.0    .0      0       126                     \r\n                 1669-        GRID    849     0       4.0     20.0    .0      0       126                     \r\n                 1670-        GRID    850     0       4.5     20.0    .0      0       126                     \r\n                 1671-        GRID    851     0       5.0     20.0    .0      0       126                     \r\n                 1672-        GRID    852     0       5.5     20.0    .0      0       126                     \r\n                 1673-        GRID    853     0       6.0     20.0    .0      0       126                     \r\n                 1674-        GRID    854     0       6.5     20.0    .0      0       126                     \r\n                 1675-        GRID    855     0       7.0     20.0    .0      0       126                     \r\n                 1676-        GRID    856     0       7.5     20.0    .0      0       126                     \r\n                 1677-        GRID    857     0       8.0     20.0    .0      0       126                     \r\n                 1678-        GRID    858     0       8.5     20.0    .0      0       126                     \r\n                 1679-        GRID    859     0       9.0     20.0    .0      0       126                     \r\n                 1680-        GRID    860     0       9.5     20.0    .0      0       126                     \r\n                 1681-        GRID    861     0       10.0    20.0    .0      0       126                     \r\n                 1682-        MAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n                 1683-        +MAT1   30000.  28000.                                                          \r\n                 1684-        PARAM   GRDPNT  421                                                             \r\n                 1685-        PLOTEL  1000    1       21              1001    21      861                     \r\n                 1686-        PLOTEL  1002    861     841             1003    841     757                     \r\n                 1687-        PLOTEL  1004    757     673             1005    673     589                     \r\n                 1688-        PLOTEL  1006    589     505             1007    505     421                     \r\n                 1689-        PLOTEL  1008    421     337             1009    337     253                     \r\n                 1690-        PLOTEL  1010    253     169             1011    169     85                      \r\n                 1691-        PLOTEL  1012    85      1               1013    5       89                      \r\n                 1692-        PLOTEL  1014    89      173             1015    173     257                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1693-        PLOTEL  1016    257     341             1017    341     425                     \r\n                 1694-        PLOTEL  1018    425     509             1019    509     593                     \r\n                 1695-        PLOTEL  1020    593     677             1021    677     761                     \r\n                 1696-        PLOTEL  1022    761     845             1023    849     765                     \r\n                 1697-        PLOTEL  1024    765     681             1025    681     597                     \r\n                 1698-        PLOTEL  1026    597     513             1027    513     429                     \r\n                 1699-        PLOTEL  1028    429     345             1029    345     261                     \r\n                 1700-        PLOTEL  1030    261     177             1031    177     93                      \r\n                 1701-        PLOTEL  1032    93      9               1033    13      97                      \r\n                 1702-        PLOTEL  1034    97      181             1035    181     265                     \r\n                 1703-        PLOTEL  1036    265     349             1037    349     433                     \r\n                 1704-        PLOTEL  1038    433     517             1039    517     601                     \r\n                 1705-        PLOTEL  1040    601     685             1041    685     769                     \r\n                 1706-        PLOTEL  1042    769     853             1043    857     773                     \r\n                 1707-        PLOTEL  1044    773     689             1045    689     605                     \r\n                 1708-        PLOTEL  1046    605     521             1047    521     437                     \r\n                 1709-        PLOTEL  1048    437     353             1049    353     269                     \r\n                 1710-        PLOTEL  1050    269     185             1051    185     101                     \r\n                 1711-        PLOTEL  1052    101     17              1053    105     101                     \r\n                 1712-        PLOTEL  1054    101     97              1055    97      93                      \r\n                 1713-        PLOTEL  1056    93      89              1057    89      85                      \r\n                 1714-        PLOTEL  1058    169     173             1059    173     177                     \r\n                 1715-        PLOTEL  1060    177     181             1061    181     185                     \r\n                 1716-        PLOTEL  1062    185     189             1063    273     269                     \r\n                 1717-        PLOTEL  1064    269     265             1065    265     261                     \r\n                 1718-        PLOTEL  1066    261     257             1067    257     253                     \r\n                 1719-        PLOTEL  1068    337     341             1069    341     345                     \r\n                 1720-        PLOTEL  1070    345     349             1071    349     353                     \r\n                 1721-        PLOTEL  1072    353     357             1073    441     437                     \r\n                 1722-        PLOTEL  1074    437     433             1075    433     429                     \r\n                 1723-        PLOTEL  1076    429     425             1077    425     421                     \r\n                 1724-        PLOTEL  1078    505     509             1079    509     513                     \r\n                 1725-        PLOTEL  1080    513     517             1081    517     521                     \r\n                 1726-        PLOTEL  1082    521     525             1083    609     605                     \r\n                 1727-        PLOTEL  1084    605     601             1085    601     597                     \r\n                 1728-        PLOTEL  1086    597     593             1087    593     589                     \r\n                 1729-        PLOTEL  1088    673     677             1089    677     681                     \r\n                 1730-        PLOTEL  1090    681     685             1091    685     689                     \r\n                 1731-        PLOTEL  1092    689     693             1093    777     773                     \r\n                 1732-        PLOTEL  1094    773     769             1095    769     765                     \r\n                 1733-        PLOTEL  1096    765     761             1097    761     757                     \r\n                 1734-        PQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n                 1735-        +PQUAD1 .5      .0                                                              \r\n                 1736-        SPC1    37      5       1       22      43      64      85      106     +31001H \r\n                 1737-        +31001H 127     148     169     190     211     232     253     274     +31002H \r\n                 1738-        +31002H 295     316     337     358     379     400     421     442     +31003H \r\n                 1739-        +31003H 463     484     505     526     547     568     589     610     +31004H \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1740-        +31004H 631     652     673     694     715     736     757     778     +31005H \r\n                 1741-        +31005H 799     820     841                                                     \r\n                 1742-        SPC1    37      34      21      42      63      84      105     126     +11001H \r\n                 1743-        +11001H 147     168     189     210     231     252     273     294     +11002H \r\n                 1744-        +11002H 315     336     357     378     399     420     441     462     +11003H \r\n                 1745-        +11003H 483     504     525     546     567     588     609     630     +11004H \r\n                 1746-        +11004H 651     672     693     714     735     756     777     798     +11005H \r\n                 1747-        +11005H 819     840     861                                                     \r\n                 1748-        SPC1    37      35      1       2       3       4       5       6       +41001H \r\n                 1749-        +41001H 7       8       9       10      11      12      13      14      +41002H \r\n                 1750-        +41002H 15      16      17      18      19      20      21                      \r\n                 1751-        SPC1    37      35      841     842     843     844     845     846     +21001H \r\n                 1752-        +21001H 847     848     849     850     851     852     853     854     +21002H \r\n                 1753-        +21002H 855     856     857     858     859     860     861                     \r\n                              ENDDATA\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE          19321\r\n                                        MAX WAVEFRONT       23\r\n                                        AVG WAVEFRONT   22.440\r\n                                        RMS WAVEFRONT   22.596\r\n                                        RMS BANDWIDTH   22.674\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE          19321\r\n                                        MAX WAVEFRONT       23\r\n                                        AVG WAVEFRONT   22.440\r\n                                        RMS WAVEFRONT   22.596\r\n                                        RMS BANDWIDTH   22.674\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       23        23\r\n                                        PROFILE (P)                      19321     19321\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           23        23\r\n                                        AVERAGE WAVEFRONT (C-AVG)       22.440    22.440\r\n                                        RMS WAVEFRONT (C-RMS)           22.596    22.596\r\n                                        RMS BANDWITCH (B-RMS)           22.674    22.674\r\n                                        NUMBER OF GRID POINTS (N)                    861\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               800\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                      3260\r\n                                        MATRIX DENSITY, PERCENT                    0.996\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =      421\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.06043930D+05 *\r\n                *  0.00000000D+00  0.00000000D+00  4.12087860D+04  0.00000000D+00 -2.06043930D+05  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.37534323D+06  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -2.06043930D+05  0.00000000D+00  1.37534323D+06  0.00000000D+00 *\r\n                *  0.00000000D+00  2.06043930D+05  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.75068647D+06 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.120878601D+04      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.375343233D+06  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.451235828D+05  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.720466816D+06  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.375343233D+06                                    *\r\n                                      *                   3.451235828D+05                   *\r\n                                      *                                    1.720466816D+06  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n                        0 ROOTS BELOW   2.988121E+01\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST    4 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 2392\r\n       11 MORE ACCURATE EIGENSOLUTIONS THAN THE    1 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        12\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        11\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        3.244568E+01        5.696111E+00        9.065642E-01        1.030220E+04        3.342617E+05             \r\n        2         2        2.027587E+02        1.423934E+01        2.266261E+00        1.030220E+04        2.088860E+06             \r\n        3         3        8.115621E+02        2.848793E+01        4.533995E+00        8.189160E+03        6.646012E+06             \r\n        4         4        1.366727E+03        3.696928E+01        5.883843E+00        1.030219E+04        1.408029E+07             \r\n        5         5        2.348062E+03        4.845681E+01        7.712141E+00        1.030036E+04        2.418588E+07             \r\n        6         6        2.612754E+03        5.111510E+01        8.135221E+00        1.030422E+04        2.692239E+07             \r\n        7         7        5.204400E+03        7.214153E+01        1.148168E+01        5.735026E+03        2.984737E+07             \r\n        8         8        5.691458E+03        7.544175E+01        1.200693E+01        4.943446E+03        2.813541E+07             \r\n        9         9        8.226828E+03        9.070187E+01        1.443565E+01        4.861241E+03        3.999260E+07             \r\n       10        10        1.356558E+04        1.164714E+02        1.853699E+01        2.892032E+03        3.923209E+07             \r\n       11        11        2.680833E+04        1.637325E+02        2.605883E+01        1.446632E+03        3.878178E+07             \r\n       12        12        1.193688E+05        3.454980E+02        5.498771E+01        2.624833E+02        3.133233E+07             \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.570447E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.565606E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            1.551112E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.527056E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.493584E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            1.450904E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.399279E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            1.339026E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            1.270518E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            1.194177E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            1.110474E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.019924E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            9.230857E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            8.205564E-02   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            7.129681E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            6.009841E-02   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            4.852949E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.666136E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.456721E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            1.232159E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            2.334453E-01   1.527056E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            2.327257E-01   1.522348E-01   2.876417E-03   0.0                           \r\n            66      G      0.0            0.0            2.305713E-01   1.508255E-01   5.735101E-03   0.0                           \r\n            67      G      0.0            0.0            2.269952E-01   1.484863E-01   8.558425E-03   0.0                           \r\n            68      G      0.0            0.0            2.220197E-01   1.452316E-01   1.132898E-02   0.0                           \r\n            69      G      0.0            0.0            2.156754E-01   1.410815E-01   1.402970E-02   0.0                           \r\n            70      G      0.0            0.0            2.080013E-01   1.360617E-01   1.664391E-02   0.0                           \r\n            71      G      0.0            0.0            1.990449E-01   1.302029E-01   1.915551E-02   0.0                           \r\n            72      G      0.0            0.0            1.888613E-01   1.235414E-01   2.154901E-02   0.0                           \r\n            73      G      0.0            0.0            1.775132E-01   1.161182E-01   2.380965E-02   0.0                           \r\n            74      G      0.0            0.0            1.650708E-01   1.079791E-01   2.592350E-02   0.0                           \r\n            75      G      0.0            0.0            1.516106E-01   9.917433E-02   2.787752E-02   0.0                           \r\n            76      G      0.0            0.0            1.372157E-01   8.975808E-02   2.965966E-02   0.0                           \r\n            77      G      0.0            0.0            1.219749E-01   7.978844E-02   3.125895E-02   0.0                           \r\n            78      G      0.0            0.0            1.059820E-01   6.932688E-02   3.266551E-02   0.0                           \r\n            79      G      0.0            0.0            8.933567E-02   5.843789E-02   3.387068E-02   0.0                           \r\n            80      G      0.0            0.0            7.213859E-02   4.718861E-02   3.486703E-02   0.0                           \r\n            81      G      0.0            0.0            5.449674E-02   3.564841E-02   3.564841E-02   0.0                           \r\n            82      G      0.0            0.0            3.651890E-02   2.388841E-02   3.621000E-02   0.0                           \r\n            83      G      0.0            0.0            1.831591E-02   1.198114E-02   3.654835E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.666136E-02   0.0                           \r\n           127      G      0.0            0.0            4.539905E-01   1.399279E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            4.525910E-01   1.394965E-01   5.593883E-03   0.0                           \r\n           129      G      0.0            0.0            4.484011E-01   1.382051E-01   1.115328E-02   0.0                           \r\n           130      G      0.0            0.0            4.414467E-01   1.360617E-01   1.664391E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            4.317706E-01   1.330793E-01   2.203193E-02   0.0                           \r\n           132      G      0.0            0.0            4.194325E-01   1.292765E-01   2.728411E-02   0.0                           \r\n           133      G      0.0            0.0            4.045085E-01   1.246767E-01   3.236808E-02   0.0                           \r\n           134      G      0.0            0.0            3.870905E-01   1.193081E-01   3.725248E-02   0.0                           \r\n           135      G      0.0            0.0            3.672860E-01   1.132040E-01   4.190721E-02   0.0                           \r\n           136      G      0.0            0.0            3.452171E-01   1.064020E-01   4.630358E-02   0.0                           \r\n           137      G      0.0            0.0            3.210197E-01   9.894395E-02   5.041446E-02   0.0                           \r\n           138      G      0.0            0.0            2.948432E-01   9.087589E-02   5.421452E-02   0.0                           \r\n           139      G      0.0            0.0            2.668489E-01   8.224754E-02   5.768033E-02   0.0                           \r\n           140      G      0.0            0.0            2.372094E-01   7.311212E-02   6.079053E-02   0.0                           \r\n           141      G      0.0            0.0            2.061074E-01   6.352592E-02   6.352592E-02   0.0                           \r\n           142      G      0.0            0.0            1.737346E-01   5.354808E-02   6.586967E-02   0.0                           \r\n           143      G      0.0            0.0            1.402908E-01   4.324009E-02   6.780729E-02   0.0                           \r\n           144      G      0.0            0.0            1.059820E-01   3.266551E-02   6.932688E-02   0.0                           \r\n           145      G      0.0            0.0            7.101975E-02   2.188954E-02   7.041903E-02   0.0                           \r\n           146      G      0.0            0.0            3.561968E-02   1.097861E-02   7.107703E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            7.129681E-02   0.0                           \r\n           190      G      0.0            0.0            6.494480E-01   1.194177E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            6.474460E-01   1.190496E-01   8.002231E-03   0.0                           \r\n           192      G      0.0            0.0            6.414523E-01   1.179475E-01   1.595512E-02   0.0                           \r\n           193      G      0.0            0.0            6.315037E-01   1.161182E-01   2.380965E-02   0.0                           \r\n           194      G      0.0            0.0            6.176618E-01   1.135730E-01   3.151738E-02   0.0                           \r\n           195      G      0.0            0.0            6.000117E-01   1.103276E-01   3.903080E-02   0.0                           \r\n           196      G      0.0            0.0            5.786625E-01   1.064020E-01   4.630358E-02   0.0                           \r\n           197      G      0.0            0.0            5.537454E-01   1.018204E-01   5.329088E-02   0.0                           \r\n           198      G      0.0            0.0            5.254145E-01   9.661099E-02   5.994962E-02   0.0                           \r\n           199      G      0.0            0.0            4.938442E-01   9.080596E-02   6.623876E-02   0.0                           \r\n           200      G      0.0            0.0            4.592291E-01   8.444110E-02   7.211950E-02   0.0                           \r\n           201      G      0.0            0.0            4.217827E-01   7.755562E-02   7.755562E-02   0.0                           \r\n           202      G      0.0            0.0            3.817360E-01   7.019199E-02   8.251358E-02   0.0                           \r\n           203      G      0.0            0.0            3.393357E-01   6.239560E-02   8.696281E-02   0.0                           \r\n           204      G      0.0            0.0            2.948432E-01   5.421452E-02   9.087589E-02   0.0                           \r\n           205      G      0.0            0.0            2.485330E-01   4.569919E-02   9.422868E-02   0.0                           \r\n           206      G      0.0            0.0            2.006905E-01   3.690211E-02   9.700052E-02   0.0                           \r\n           207      G      0.0            0.0            1.516106E-01   2.787752E-02   9.917433E-02   0.0                           \r\n           208      G      0.0            0.0            1.015960E-01   1.868105E-02   1.007367E-01   0.0                           \r\n           209      G      0.0            0.0            5.095510E-02   9.369408E-03   1.016780E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.019924E-01   0.0                           \r\n           253      G      0.0            0.0            8.090169E-01   9.230857E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            8.065231E-01   9.202401E-02   9.968373E-03   0.0                           \r\n           255      G      0.0            0.0            7.990566E-01   9.117210E-02   1.987529E-02   0.0                           \r\n           256      G      0.0            0.0            7.866638E-01   8.975808E-02   2.965966E-02   0.0                           \r\n           257      G      0.0            0.0            7.694209E-01   8.779067E-02   3.926118E-02   0.0                           \r\n           258      G      0.0            0.0            7.474342E-01   8.528200E-02   4.862064E-02   0.0                           \r\n           259      G      0.0            0.0            7.208394E-01   8.224754E-02   5.768033E-02   0.0                           \r\n           260      G      0.0            0.0            6.898004E-01   7.870600E-02   6.638441E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            6.545085E-01   7.467920E-02   7.467920E-02   0.0                           \r\n           262      G      0.0            0.0            6.151813E-01   7.019199E-02   8.251358E-02   0.0                           \r\n           263      G      0.0            0.0            5.720614E-01   6.527202E-02   8.983923E-02   0.0                           \r\n           264      G      0.0            0.0            5.254145E-01   5.994962E-02   9.661099E-02   0.0                           \r\n           265      G      0.0            0.0            4.755282E-01   5.425762E-02   1.027871E-01   0.0                           \r\n           266      G      0.0            0.0            4.227102E-01   4.823110E-02   1.083295E-01   0.0                           \r\n           267      G      0.0            0.0            3.672860E-01   4.190721E-02   1.132040E-01   0.0                           \r\n           268      G      0.0            0.0            3.095974E-01   3.532496E-02   1.173806E-01   0.0                           \r\n           269      G      0.0            0.0            2.500000E-01   2.852492E-02   1.208335E-01   0.0                           \r\n           270      G      0.0            0.0            1.888613E-01   2.154901E-02   1.235414E-01   0.0                           \r\n           271      G      0.0            0.0            1.265581E-01   1.444024E-02   1.254876E-01   0.0                           \r\n           272      G      0.0            0.0            6.347474E-02   7.242447E-03   1.266602E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.270518E-01   0.0                           \r\n           316      G      0.0            0.0            9.238795E-01   6.009841E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            9.210315E-01   5.991315E-02   1.138366E-02   0.0                           \r\n           318      G      0.0            0.0            9.125050E-01   5.935850E-02   2.269714E-02   0.0                           \r\n           319      G      0.0            0.0            8.983526E-01   5.843789E-02   3.387068E-02   0.0                           \r\n           320      G      0.0            0.0            8.786616E-01   5.715698E-02   4.483540E-02   0.0                           \r\n           321      G      0.0            0.0            8.535533E-01   5.552369E-02   5.552369E-02   0.0                           \r\n           322      G      0.0            0.0            8.231826E-01   5.354808E-02   6.586967E-02   0.0                           \r\n           323      G      0.0            0.0            7.877368E-01   5.124233E-02   7.580953E-02   0.0                           \r\n           324      G      0.0            0.0            7.474342E-01   4.862064E-02   8.528200E-02   0.0                           \r\n           325      G      0.0            0.0            7.025235E-01   4.569919E-02   9.422868E-02   0.0                           \r\n           326      G      0.0            0.0            6.532815E-01   4.249600E-02   1.025944E-01   0.0                           \r\n           327      G      0.0            0.0            6.000117E-01   3.903080E-02   1.103276E-01   0.0                           \r\n           328      G      0.0            0.0            5.430427E-01   3.532496E-02   1.173806E-01   0.0                           \r\n           329      G      0.0            0.0            4.827257E-01   3.140134E-02   1.237099E-01   0.0                           \r\n           330      G      0.0            0.0            4.194325E-01   2.728411E-02   1.292765E-01   0.0                           \r\n           331      G      0.0            0.0            3.535534E-01   2.299867E-02   1.340461E-01   0.0                           \r\n           332      G      0.0            0.0            2.854944E-01   1.857143E-02   1.379892E-01   0.0                           \r\n           333      G      0.0            0.0            2.156754E-01   1.402970E-02   1.410815E-01   0.0                           \r\n           334      G      0.0            0.0            1.445266E-01   9.401463E-03   1.433041E-01   0.0                           \r\n           335      G      0.0            0.0            7.248675E-02   4.715267E-03   1.446431E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.450904E-01   0.0                           \r\n           379      G      0.0            0.0            9.876884E-01   2.456721E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            9.846436E-01   2.449147E-02   1.216989E-02   0.0                           \r\n           381      G      0.0            0.0            9.755282E-01   2.426475E-02   2.426475E-02   0.0                           \r\n           382      G      0.0            0.0            9.603984E-01   2.388841E-02   3.621000E-02   0.0                           \r\n           383      G      0.0            0.0            9.393474E-01   2.336480E-02   4.793201E-02   0.0                           \r\n           384      G      0.0            0.0            9.125050E-01   2.269714E-02   5.935850E-02   0.0                           \r\n           385      G      0.0            0.0            8.800368E-01   2.188954E-02   7.041903E-02   0.0                           \r\n           386      G      0.0            0.0            8.421427E-01   2.094699E-02   8.104540E-02   0.0                           \r\n           387      G      0.0            0.0            7.990566E-01   1.987529E-02   9.117210E-02   0.0                           \r\n           388      G      0.0            0.0            7.510441E-01   1.868105E-02   1.007367E-01   0.0                           \r\n           389      G      0.0            0.0            6.984011E-01   1.737164E-02   1.096802E-01   0.0                           \r\n           390      G      0.0            0.0            6.414523E-01   1.595512E-02   1.179475E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            5.805486E-01   1.444024E-02   1.254876E-01   0.0                           \r\n           392      G      0.0            0.0            5.160657E-01   1.283633E-02   1.322541E-01   0.0                           \r\n           393      G      0.0            0.0            4.484011E-01   1.115328E-02   1.382051E-01   0.0                           \r\n           394      G      0.0            0.0            3.779719E-01   9.401463E-03   1.433041E-01   0.0                           \r\n           395      G      0.0            0.0            3.052125E-01   7.591685E-03   1.475196E-01   0.0                           \r\n           396      G      0.0            0.0            2.305713E-01   5.735101E-03   1.508255E-01   0.0                           \r\n           397      G      0.0            0.0            1.545085E-01   3.843158E-03   1.532016E-01   0.0                           \r\n           398      G      0.0            0.0            7.749313E-02   1.927521E-03   1.546331E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            1.551112E-01   0.0                           \r\n           442      G      0.0            0.0            9.969173E-01  -1.232159E-02   0.0            0.0                           \r\n           443      G      0.0            0.0            9.938442E-01  -1.228360E-02   1.228360E-02   0.0                           \r\n           444      G      0.0            0.0            9.846436E-01  -1.216989E-02   2.449147E-02   0.0                           \r\n           445      G      0.0            0.0            9.693724E-01  -1.198114E-02   3.654835E-02   0.0                           \r\n           446      G      0.0            0.0            9.481246E-01  -1.171853E-02   4.837989E-02   0.0                           \r\n           447      G      0.0            0.0            9.210315E-01  -1.138366E-02   5.991315E-02   0.0                           \r\n           448      G      0.0            0.0            8.882598E-01  -1.097861E-02   7.107703E-02   0.0                           \r\n           449      G      0.0            0.0            8.500117E-01  -1.050588E-02   8.180269E-02   0.0                           \r\n           450      G      0.0            0.0            8.065231E-01  -9.968373E-03   9.202401E-02   0.0                           \r\n           451      G      0.0            0.0            7.580619E-01  -9.369408E-03   1.016780E-01   0.0                           \r\n           452      G      0.0            0.0            7.049270E-01  -8.712677E-03   1.107051E-01   0.0                           \r\n           453      G      0.0            0.0            6.474460E-01  -8.002231E-03   1.190496E-01   0.0                           \r\n           454      G      0.0            0.0            5.859733E-01  -7.242447E-03   1.266602E-01   0.0                           \r\n           455      G      0.0            0.0            5.208879E-01  -6.438011E-03   1.334899E-01   0.0                           \r\n           456      G      0.0            0.0            4.525910E-01  -5.593883E-03   1.394965E-01   0.0                           \r\n           457      G      0.0            0.0            3.815037E-01  -4.715267E-03   1.446431E-01   0.0                           \r\n           458      G      0.0            0.0            3.080644E-01  -3.807580E-03   1.488980E-01   0.0                           \r\n           459      G      0.0            0.0            2.327257E-01  -2.876417E-03   1.522348E-01   0.0                           \r\n           460      G      0.0            0.0            1.559522E-01  -1.927521E-03   1.546331E-01   0.0                           \r\n           461      G      0.0            0.0            7.821723E-02  -9.667405E-04   1.560780E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            1.565606E-01   0.0                           \r\n           505      G      0.0            0.0            9.510565E-01  -4.852949E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            9.481246E-01  -4.837989E-02   1.171853E-02   0.0                           \r\n           507      G      0.0            0.0            9.393474E-01  -4.793201E-02   2.336480E-02   0.0                           \r\n           508      G      0.0            0.0            9.247788E-01  -4.718861E-02   3.486703E-02   0.0                           \r\n           509      G      0.0            0.0            9.045085E-01  -4.615429E-02   4.615429E-02   0.0                           \r\n           510      G      0.0            0.0            8.786616E-01  -4.483540E-02   5.715698E-02   0.0                           \r\n           511      G      0.0            0.0            8.473975E-01  -4.324009E-02   6.780729E-02   0.0                           \r\n           512      G      0.0            0.0            8.109089E-01  -4.137819E-02   7.803955E-02   0.0                           \r\n           513      G      0.0            0.0            7.694209E-01  -3.926118E-02   8.779067E-02   0.0                           \r\n           514      G      0.0            0.0            7.231890E-01  -3.690211E-02   9.700052E-02   0.0                           \r\n           515      G      0.0            0.0            6.724985E-01  -3.431553E-02   1.056123E-01   0.0                           \r\n           516      G      0.0            0.0            6.176618E-01  -3.151738E-02   1.135730E-01   0.0                           \r\n           517      G      0.0            0.0            5.590169E-01  -2.852492E-02   1.208335E-01   0.0                           \r\n           518      G      0.0            0.0            4.969256E-01  -2.535659E-02   1.273490E-01   0.0                           \r\n           519      G      0.0            0.0            4.317706E-01  -2.203193E-02   1.330793E-01   0.0                           \r\n           520      G      0.0            0.0            3.639536E-01  -1.857143E-02   1.379892E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            2.938926E-01  -1.499644E-02   1.420483E-01   0.0                           \r\n           522      G      0.0            0.0            2.220197E-01  -1.132898E-02   1.452316E-01   0.0                           \r\n           523      G      0.0            0.0            1.487780E-01  -7.591685E-03   1.475196E-01   0.0                           \r\n           524      G      0.0            0.0            7.461903E-02  -3.807580E-03   1.488980E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            1.493584E-01   0.0                           \r\n           568      G      0.0            0.0            8.526402E-01  -8.205564E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            8.500117E-01  -8.180269E-02   1.050588E-02   0.0                           \r\n           570      G      0.0            0.0            8.421427E-01  -8.104540E-02   2.094699E-02   0.0                           \r\n           571      G      0.0            0.0            8.290817E-01  -7.978844E-02   3.125895E-02   0.0                           \r\n           572      G      0.0            0.0            8.109089E-01  -7.803955E-02   4.137819E-02   0.0                           \r\n           573      G      0.0            0.0            7.877368E-01  -7.580953E-02   5.124233E-02   0.0                           \r\n           574      G      0.0            0.0            7.597079E-01  -7.311212E-02   6.079053E-02   0.0                           \r\n           575      G      0.0            0.0            7.269952E-01  -6.996394E-02   6.996394E-02   0.0                           \r\n           576      G      0.0            0.0            6.898004E-01  -6.638441E-02   7.870600E-02   0.0                           \r\n           577      G      0.0            0.0            6.483527E-01  -6.239560E-02   8.696281E-02   0.0                           \r\n           578      G      0.0            0.0            6.029076E-01  -5.802210E-02   9.468347E-02   0.0                           \r\n           579      G      0.0            0.0            5.537454E-01  -5.329088E-02   1.018204E-01   0.0                           \r\n           580      G      0.0            0.0            5.011693E-01  -4.823110E-02   1.083295E-01   0.0                           \r\n           581      G      0.0            0.0            4.455032E-01  -4.287396E-02   1.141708E-01   0.0                           \r\n           582      G      0.0            0.0            3.870905E-01  -3.725248E-02   1.193081E-01   0.0                           \r\n           583      G      0.0            0.0            3.262913E-01  -3.140134E-02   1.237099E-01   0.0                           \r\n           584      G      0.0            0.0            2.634803E-01  -2.535659E-02   1.273490E-01   0.0                           \r\n           585      G      0.0            0.0            1.990449E-01  -1.915551E-02   1.302029E-01   0.0                           \r\n           586      G      0.0            0.0            1.333823E-01  -1.283633E-02   1.322541E-01   0.0                           \r\n           587      G      0.0            0.0            6.689738E-02  -6.438011E-03   1.334899E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            1.339026E-01   0.0                           \r\n           631      G      0.0            0.0            7.071067E-01  -1.110474E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            7.049270E-01  -1.107051E-01   8.712677E-03   0.0                           \r\n           633      G      0.0            0.0            6.984011E-01  -1.096802E-01   1.737164E-02   0.0                           \r\n           634      G      0.0            0.0            6.875693E-01  -1.079791E-01   2.592350E-02   0.0                           \r\n           635      G      0.0            0.0            6.724985E-01  -1.056123E-01   3.431553E-02   0.0                           \r\n           636      G      0.0            0.0            6.532815E-01  -1.025944E-01   4.249600E-02   0.0                           \r\n           637      G      0.0            0.0            6.300367E-01  -9.894395E-02   5.041446E-02   0.0                           \r\n           638      G      0.0            0.0            6.029076E-01  -9.468347E-02   5.802210E-02   0.0                           \r\n           639      G      0.0            0.0            5.720614E-01  -8.983923E-02   6.527202E-02   0.0                           \r\n           640      G      0.0            0.0            5.376882E-01  -8.444110E-02   7.211950E-02   0.0                           \r\n           641      G      0.0            0.0            5.000000E-01  -7.852236E-02   7.852236E-02   0.0                           \r\n           642      G      0.0            0.0            4.592291E-01  -7.211950E-02   8.444110E-02   0.0                           \r\n           643      G      0.0            0.0            4.156269E-01  -6.527202E-02   8.983923E-02   0.0                           \r\n           644      G      0.0            0.0            3.694623E-01  -5.802210E-02   9.468347E-02   0.0                           \r\n           645      G      0.0            0.0            3.210197E-01  -5.041446E-02   9.894395E-02   0.0                           \r\n           646      G      0.0            0.0            2.705980E-01  -4.249600E-02   1.025944E-01   0.0                           \r\n           647      G      0.0            0.0            2.185080E-01  -3.431553E-02   1.056123E-01   0.0                           \r\n           648      G      0.0            0.0            1.650708E-01  -2.592350E-02   1.079791E-01   0.0                           \r\n           649      G      0.0            0.0            1.106159E-01  -1.737164E-02   1.096802E-01   0.0                           \r\n           650      G      0.0            0.0            5.547896E-02  -8.712677E-03   1.107051E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.110474E-01   0.0                           \r\n           694      G      0.0            0.0            5.224985E-01  -1.339026E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            5.208879E-01  -1.334899E-01   6.438011E-03   0.0                           \r\n           696      G      0.0            0.0            5.160657E-01  -1.322541E-01   1.283633E-02   0.0                           \r\n           697      G      0.0            0.0            5.080619E-01  -1.302029E-01   1.915551E-02   0.0                           \r\n           698      G      0.0            0.0            4.969256E-01  -1.273490E-01   2.535659E-02   0.0                           \r\n           699      G      0.0            0.0            4.827257E-01  -1.237099E-01   3.140134E-02   0.0                           \r\n           700      G      0.0            0.0            4.655496E-01  -1.193081E-01   3.725248E-02   0.0                           \r\n           701      G      0.0            0.0            4.455032E-01  -1.141708E-01   4.287396E-02   0.0                           \r\n           702      G      0.0            0.0            4.227102E-01  -1.083295E-01   4.823110E-02   0.0                           \r\n           703      G      0.0            0.0            3.973110E-01  -1.018204E-01   5.329088E-02   0.0                           \r\n           704      G      0.0            0.0            3.694623E-01  -9.468347E-02   5.802210E-02   0.0                           \r\n           705      G      0.0            0.0            3.393357E-01  -8.696281E-02   6.239560E-02   0.0                           \r\n           706      G      0.0            0.0            3.071170E-01  -7.870600E-02   6.638441E-02   0.0                           \r\n           707      G      0.0            0.0            2.730047E-01  -6.996394E-02   6.996394E-02   0.0                           \r\n           708      G      0.0            0.0            2.372094E-01  -6.079053E-02   7.311212E-02   0.0                           \r\n           709      G      0.0            0.0            1.999515E-01  -5.124233E-02   7.580953E-02   0.0                           \r\n           710      G      0.0            0.0            1.614609E-01  -4.137819E-02   7.803955E-02   0.0                           \r\n           711      G      0.0            0.0            1.219749E-01  -3.125895E-02   7.978844E-02   0.0                           \r\n           712      G      0.0            0.0            8.173678E-02  -2.094699E-02   8.104540E-02   0.0                           \r\n           713      G      0.0            0.0            4.099476E-02  -1.050588E-02   8.180269E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            8.205564E-02   0.0                           \r\n           757      G      0.0            0.0            3.090170E-01  -1.493584E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            3.080644E-01  -1.488980E-01   3.807580E-03   0.0                           \r\n           759      G      0.0            0.0            3.052125E-01  -1.475196E-01   7.591685E-03   0.0                           \r\n           760      G      0.0            0.0            3.004788E-01  -1.452316E-01   1.132898E-02   0.0                           \r\n           761      G      0.0            0.0            2.938926E-01  -1.420483E-01   1.499644E-02   0.0                           \r\n           762      G      0.0            0.0            2.854944E-01  -1.379892E-01   1.857143E-02   0.0                           \r\n           763      G      0.0            0.0            2.753361E-01  -1.330793E-01   2.203193E-02   0.0                           \r\n           764      G      0.0            0.0            2.634803E-01  -1.273490E-01   2.535659E-02   0.0                           \r\n           765      G      0.0            0.0            2.500000E-01  -1.208335E-01   2.852492E-02   0.0                           \r\n           766      G      0.0            0.0            2.349783E-01  -1.135730E-01   3.151738E-02   0.0                           \r\n           767      G      0.0            0.0            2.185080E-01  -1.056123E-01   3.431553E-02   0.0                           \r\n           768      G      0.0            0.0            2.006905E-01  -9.700052E-02   3.690211E-02   0.0                           \r\n           769      G      0.0            0.0            1.816356E-01  -8.779067E-02   3.926118E-02   0.0                           \r\n           770      G      0.0            0.0            1.614609E-01  -7.803955E-02   4.137819E-02   0.0                           \r\n           771      G      0.0            0.0            1.402908E-01  -6.780729E-02   4.324009E-02   0.0                           \r\n           772      G      0.0            0.0            1.182557E-01  -5.715698E-02   4.483540E-02   0.0                           \r\n           773      G      0.0            0.0            9.549150E-02  -4.615429E-02   4.615429E-02   0.0                           \r\n           774      G      0.0            0.0            7.213859E-02  -3.486703E-02   4.718861E-02   0.0                           \r\n           775      G      0.0            0.0            4.834091E-02  -2.336480E-02   4.793201E-02   0.0                           \r\n           776      G      0.0            0.0            2.424519E-02  -1.171853E-02   4.837989E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.852949E-02   0.0                           \r\n           820      G      0.0            0.0            7.845909E-02  -1.565606E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.821723E-02  -1.560780E-01   9.667405E-04   0.0                           \r\n           822      G      0.0            0.0            7.749313E-02  -1.546331E-01   1.927521E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            7.629126E-02  -1.522348E-01   2.876417E-03   0.0                           \r\n           824      G      0.0            0.0            7.461903E-02  -1.488980E-01   3.807580E-03   0.0                           \r\n           825      G      0.0            0.0            7.248675E-02  -1.446431E-01   4.715267E-03   0.0                           \r\n           826      G      0.0            0.0            6.990756E-02  -1.394965E-01   5.593883E-03   0.0                           \r\n           827      G      0.0            0.0            6.689738E-02  -1.334899E-01   6.438011E-03   0.0                           \r\n           828      G      0.0            0.0            6.347474E-02  -1.266602E-01   7.242447E-03   0.0                           \r\n           829      G      0.0            0.0            5.966076E-02  -1.190496E-01   8.002231E-03   0.0                           \r\n           830      G      0.0            0.0            5.547896E-02  -1.107051E-01   8.712677E-03   0.0                           \r\n           831      G      0.0            0.0            5.095510E-02  -1.016780E-01   9.369408E-03   0.0                           \r\n           832      G      0.0            0.0            4.611710E-02  -9.202401E-02   9.968373E-03   0.0                           \r\n           833      G      0.0            0.0            4.099476E-02  -8.180269E-02   1.050588E-02   0.0                           \r\n           834      G      0.0            0.0            3.561968E-02  -7.107703E-02   1.097861E-02   0.0                           \r\n           835      G      0.0            0.0            3.002500E-02  -5.991315E-02   1.138366E-02   0.0                           \r\n           836      G      0.0            0.0            2.424519E-02  -4.837989E-02   1.171853E-02   0.0                           \r\n           837      G      0.0            0.0            1.831591E-02  -3.654835E-02   1.198114E-02   0.0                           \r\n           838      G      0.0            0.0            1.227371E-02  -2.449147E-02   1.216989E-02   0.0                           \r\n           839      G      0.0            0.0            6.155829E-03  -1.228360E-02   1.228360E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.232159E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.570447E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.565606E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -1.551112E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.527056E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.493584E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.450904E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -1.399279E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -1.339026E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -1.270518E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -1.194177E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.110474E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.019924E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -9.230857E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -8.205564E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -7.129681E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -6.009841E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -4.852949E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.666136E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.456721E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.232159E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.142506E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            3.132819E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            3.103817E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.055678E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.988701E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.903297E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            2.799993E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            2.679427E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            2.542341E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.389580E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            2.222087E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.040894E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            1.847119E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            1.641955E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            1.426668E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            1.202585E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            9.710877E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            7.336034E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            4.915962E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            2.465582E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            4.539905E-01   2.799993E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            4.525910E-01   2.791362E-01   5.587314E-03   0.0                           \r\n            66      G      0.0            0.0            4.484011E-01   2.765521E-01   1.114018E-02   0.0                           \r\n            67      G      0.0            0.0            4.414467E-01   2.722629E-01   1.662436E-02   0.0                           \r\n            68      G      0.0            0.0            4.317706E-01   2.662952E-01   2.200605E-02   0.0                           \r\n            69      G      0.0            0.0            4.194325E-01   2.586856E-01   2.725207E-02   0.0                           \r\n            70      G      0.0            0.0            4.045085E-01   2.494812E-01   3.233006E-02   0.0                           \r\n            71      G      0.0            0.0            3.870905E-01   2.387387E-01   3.720873E-02   0.0                           \r\n            72      G      0.0            0.0            3.672860E-01   2.265242E-01   4.185800E-02   0.0                           \r\n            73      G      0.0            0.0            3.452171E-01   2.129132E-01   4.624919E-02   0.0                           \r\n            74      G      0.0            0.0            3.210197E-01   1.979894E-01   5.035525E-02   0.0                           \r\n            75      G      0.0            0.0            2.948432E-01   1.818450E-01   5.415085E-02   0.0                           \r\n            76      G      0.0            0.0            2.668489E-01   1.645795E-01   5.761259E-02   0.0                           \r\n            77      G      0.0            0.0            2.372094E-01   1.462992E-01   6.071913E-02   0.0                           \r\n            78      G      0.0            0.0            2.061074E-01   1.271170E-01   6.345131E-02   0.0                           \r\n            79      G      0.0            0.0            1.737346E-01   1.071511E-01   6.579230E-02   0.0                           \r\n            80      G      0.0            0.0            1.402908E-01   8.652455E-02   6.772766E-02   0.0                           \r\n            81      G      0.0            0.0            1.059820E-01   6.536455E-02   6.924545E-02   0.0                           \r\n            82      G      0.0            0.0            7.101975E-02   4.380155E-02   7.033633E-02   0.0                           \r\n            83      G      0.0            0.0            3.561968E-02   2.196849E-02   7.099355E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            7.121307E-02   0.0                           \r\n           127      G      0.0            0.0            8.090169E-01   1.847119E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            8.065231E-01   1.841425E-01   9.956665E-03   0.0                           \r\n           129      G      0.0            0.0            7.990566E-01   1.824377E-01   1.985195E-02   0.0                           \r\n           130      G      0.0            0.0            7.866638E-01   1.796083E-01   2.962483E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            7.694209E-01   1.756714E-01   3.921507E-02   0.0                           \r\n           132      G      0.0            0.0            7.474342E-01   1.706515E-01   4.856354E-02   0.0                           \r\n           133      G      0.0            0.0            7.208394E-01   1.645795E-01   5.761259E-02   0.0                           \r\n           134      G      0.0            0.0            6.898004E-01   1.574928E-01   6.630644E-02   0.0                           \r\n           135      G      0.0            0.0            6.545085E-01   1.494350E-01   7.459150E-02   0.0                           \r\n           136      G      0.0            0.0            6.151813E-01   1.404560E-01   8.241667E-02   0.0                           \r\n           137      G      0.0            0.0            5.720614E-01   1.306110E-01   8.973371E-02   0.0                           \r\n           138      G      0.0            0.0            5.254145E-01   1.199608E-01   9.649752E-02   0.0                           \r\n           139      G      0.0            0.0            4.755282E-01   1.085709E-01   1.026664E-01   0.0                           \r\n           140      G      0.0            0.0            4.227102E-01   9.651168E-02   1.082023E-01   0.0                           \r\n           141      G      0.0            0.0            3.672860E-01   8.385743E-02   1.130711E-01   0.0                           \r\n           142      G      0.0            0.0            3.095974E-01   7.068617E-02   1.172428E-01   0.0                           \r\n           143      G      0.0            0.0            2.500000E-01   5.707911E-02   1.206916E-01   0.0                           \r\n           144      G      0.0            0.0            1.888613E-01   4.312013E-02   1.233963E-01   0.0                           \r\n           145      G      0.0            0.0            1.265581E-01   2.889530E-02   1.253402E-01   0.0                           \r\n           146      G      0.0            0.0            6.347474E-02   1.449233E-02   1.265114E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            1.269026E-01   0.0                           \r\n           190      G      0.0            0.0            9.876884E-01   4.915962E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            9.846436E-01   4.900808E-02   1.215559E-02   0.0                           \r\n           192      G      0.0            0.0            9.755282E-01   4.855439E-02   2.423625E-02   0.0                           \r\n           193      G      0.0            0.0            9.603984E-01   4.780134E-02   3.616747E-02   0.0                           \r\n           194      G      0.0            0.0            9.393474E-01   4.675358E-02   4.787571E-02   0.0                           \r\n           195      G      0.0            0.0            9.125050E-01   4.541757E-02   5.928879E-02   0.0                           \r\n           196      G      0.0            0.0            8.800368E-01   4.380155E-02   7.033633E-02   0.0                           \r\n           197      G      0.0            0.0            8.421427E-01   4.191547E-02   8.095022E-02   0.0                           \r\n           198      G      0.0            0.0            7.990566E-01   3.977097E-02   9.106503E-02   0.0                           \r\n           199      G      0.0            0.0            7.510441E-01   3.738127E-02   1.006184E-01   0.0                           \r\n           200      G      0.0            0.0            6.984011E-01   3.476110E-02   1.095514E-01   0.0                           \r\n           201      G      0.0            0.0            6.414523E-01   3.192662E-02   1.178090E-01   0.0                           \r\n           202      G      0.0            0.0            5.805486E-01   2.889530E-02   1.253402E-01   0.0                           \r\n           203      G      0.0            0.0            5.160657E-01   2.568583E-02   1.320987E-01   0.0                           \r\n           204      G      0.0            0.0            4.484011E-01   2.231800E-02   1.380428E-01   0.0                           \r\n           205      G      0.0            0.0            3.779719E-01   1.881257E-02   1.431358E-01   0.0                           \r\n           206      G      0.0            0.0            3.052125E-01   1.519116E-02   1.473463E-01   0.0                           \r\n           207      G      0.0            0.0            2.305713E-01   1.147609E-02   1.506484E-01   0.0                           \r\n           208      G      0.0            0.0            1.545085E-01   7.690259E-03   1.530216E-01   0.0                           \r\n           209      G      0.0            0.0            7.749313E-02   3.857020E-03   1.544515E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.549291E-01   0.0                           \r\n           253      G      0.0            0.0            9.510565E-01  -9.710877E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            9.481246E-01  -9.680942E-02   1.170476E-02   0.0                           \r\n           255      G      0.0            0.0            9.393474E-01  -9.591320E-02   2.333736E-02   0.0                           \r\n           256      G      0.0            0.0            9.247788E-01  -9.442565E-02   3.482608E-02   0.0                           \r\n           257      G      0.0            0.0            9.045085E-01  -9.235593E-02   4.610008E-02   0.0                           \r\n           258      G      0.0            0.0            8.786616E-01  -8.971681E-02   5.708986E-02   0.0                           \r\n           259      G      0.0            0.0            8.473975E-01  -8.652455E-02   6.772766E-02   0.0                           \r\n           260      G      0.0            0.0            8.109089E-01  -8.279885E-02   7.794790E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            7.694209E-01  -7.856265E-02   8.768757E-02   0.0                           \r\n           262      G      0.0            0.0            7.231890E-01  -7.384209E-02   9.688661E-02   0.0                           \r\n           263      G      0.0            0.0            6.724985E-01  -6.866627E-02   1.054883E-01   0.0                           \r\n           264      G      0.0            0.0            6.176618E-01  -6.306710E-02   1.134396E-01   0.0                           \r\n           265      G      0.0            0.0            5.590169E-01  -5.707911E-02   1.206916E-01   0.0                           \r\n           266      G      0.0            0.0            4.969256E-01  -5.073919E-02   1.271994E-01   0.0                           \r\n           267      G      0.0            0.0            4.317706E-01  -4.408646E-02   1.329230E-01   0.0                           \r\n           268      G      0.0            0.0            3.639536E-01  -3.716192E-02   1.378271E-01   0.0                           \r\n           269      G      0.0            0.0            2.938926E-01  -3.000826E-02   1.418815E-01   0.0                           \r\n           270      G      0.0            0.0            2.220197E-01  -2.266959E-02   1.450610E-01   0.0                           \r\n           271      G      0.0            0.0            1.487780E-01  -1.519116E-02   1.473463E-01   0.0                           \r\n           272      G      0.0            0.0            7.461903E-02  -7.619066E-03   1.487231E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.491830E-01   0.0                           \r\n           316      G      0.0            0.0            7.071067E-01  -2.222087E-01   0.0            0.0                           \r\n           317      G      0.0            0.0            7.049270E-01  -2.215237E-01   8.702445E-03   0.0                           \r\n           318      G      0.0            0.0            6.984011E-01  -2.194730E-01   1.735124E-02   0.0                           \r\n           319      G      0.0            0.0            6.875693E-01  -2.160691E-01   2.589305E-02   0.0                           \r\n           320      G      0.0            0.0            6.724985E-01  -2.113331E-01   3.427523E-02   0.0                           \r\n           321      G      0.0            0.0            6.532815E-01  -2.052941E-01   4.244608E-02   0.0                           \r\n           322      G      0.0            0.0            6.300367E-01  -1.979894E-01   5.035525E-02   0.0                           \r\n           323      G      0.0            0.0            6.029076E-01  -1.894641E-01   5.795396E-02   0.0                           \r\n           324      G      0.0            0.0            5.720614E-01  -1.797706E-01   6.519536E-02   0.0                           \r\n           325      G      0.0            0.0            5.376882E-01  -1.689688E-01   7.203481E-02   0.0                           \r\n           326      G      0.0            0.0            5.000000E-01  -1.571253E-01   7.843014E-02   0.0                           \r\n           327      G      0.0            0.0            4.592291E-01  -1.443130E-01   8.434192E-02   0.0                           \r\n           328      G      0.0            0.0            4.156269E-01  -1.306110E-01   8.973371E-02   0.0                           \r\n           329      G      0.0            0.0            3.694623E-01  -1.161037E-01   9.457226E-02   0.0                           \r\n           330      G      0.0            0.0            3.210197E-01  -1.008807E-01   9.882774E-02   0.0                           \r\n           331      G      0.0            0.0            2.705980E-01  -8.503560E-02   1.024739E-01   0.0                           \r\n           332      G      0.0            0.0            2.185080E-01  -6.866627E-02   1.054883E-01   0.0                           \r\n           333      G      0.0            0.0            1.650708E-01  -5.187359E-02   1.078523E-01   0.0                           \r\n           334      G      0.0            0.0            1.106159E-01  -3.476110E-02   1.095514E-01   0.0                           \r\n           335      G      0.0            0.0            5.547896E-02  -1.743430E-02   1.105751E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.109170E-01   0.0                           \r\n           379      G      0.0            0.0            3.090170E-01  -2.988701E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            3.080644E-01  -2.979488E-01   3.803108E-03   0.0                           \r\n           381      G      0.0            0.0            3.052125E-01  -2.951905E-01   7.582769E-03   0.0                           \r\n           382      G      0.0            0.0            3.004788E-01  -2.906123E-01   1.131568E-02   0.0                           \r\n           383      G      0.0            0.0            2.938926E-01  -2.842423E-01   1.497882E-02   0.0                           \r\n           384      G      0.0            0.0            2.854944E-01  -2.761199E-01   1.854962E-02   0.0                           \r\n           385      G      0.0            0.0            2.753361E-01  -2.662952E-01   2.200605E-02   0.0                           \r\n           386      G      0.0            0.0            2.634803E-01  -2.548286E-01   2.532681E-02   0.0                           \r\n           387      G      0.0            0.0            2.500000E-01  -2.417910E-01   2.849142E-02   0.0                           \r\n           388      G      0.0            0.0            2.349783E-01  -2.272626E-01   3.148036E-02   0.0                           \r\n           389      G      0.0            0.0            2.185080E-01  -2.113331E-01   3.427523E-02   0.0                           \r\n           390      G      0.0            0.0            2.006905E-01  -1.941006E-01   3.685877E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            1.816356E-01  -1.756714E-01   3.921507E-02   0.0                           \r\n           392      G      0.0            0.0            1.614609E-01  -1.561592E-01   4.132959E-02   0.0                           \r\n           393      G      0.0            0.0            1.402908E-01  -1.356842E-01   4.318931E-02   0.0                           \r\n           394      G      0.0            0.0            1.182557E-01  -1.143726E-01   4.478274E-02   0.0                           \r\n           395      G      0.0            0.0            9.549150E-02  -9.235593E-02   4.610008E-02   0.0                           \r\n           396      G      0.0            0.0            7.213859E-02  -6.976984E-02   4.713319E-02   0.0                           \r\n           397      G      0.0            0.0            4.834091E-02  -4.675358E-02   4.787571E-02   0.0                           \r\n           398      G      0.0            0.0            2.424519E-02  -2.344908E-02   4.832307E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            4.847249E-02   0.0                           \r\n           442      G      0.0            0.0           -1.564345E-01  -3.103817E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -1.559522E-01  -3.094248E-01  -1.925257E-03   0.0                           \r\n           444      G      0.0            0.0           -1.545085E-01  -3.065603E-01  -3.838644E-03   0.0                           \r\n           445      G      0.0            0.0           -1.521122E-01  -3.018058E-01  -5.728365E-03   0.0                           \r\n           446      G      0.0            0.0           -1.487780E-01  -2.951905E-01  -7.582769E-03   0.0                           \r\n           447      G      0.0            0.0           -1.445266E-01  -2.867553E-01  -9.390421E-03   0.0                           \r\n           448      G      0.0            0.0           -1.393841E-01  -2.765521E-01  -1.114018E-02   0.0                           \r\n           449      G      0.0            0.0           -1.333823E-01  -2.646439E-01  -1.282126E-02   0.0                           \r\n           450      G      0.0            0.0           -1.265581E-01  -2.511040E-01  -1.442328E-02   0.0                           \r\n           451      G      0.0            0.0           -1.189537E-01  -2.360161E-01  -1.593639E-02   0.0                           \r\n           452      G      0.0            0.0           -1.106159E-01  -2.194730E-01  -1.735124E-02   0.0                           \r\n           453      G      0.0            0.0           -1.015960E-01  -2.015767E-01  -1.865911E-02   0.0                           \r\n           454      G      0.0            0.0           -9.194987E-02  -1.824377E-01  -1.985195E-02   0.0                           \r\n           455      G      0.0            0.0           -8.173678E-02  -1.621740E-01  -2.092239E-02   0.0                           \r\n           456      G      0.0            0.0           -7.101975E-02  -1.409103E-01  -2.186383E-02   0.0                           \r\n           457      G      0.0            0.0           -5.986487E-02  -1.187779E-01  -2.267048E-02   0.0                           \r\n           458      G      0.0            0.0           -4.834091E-02  -9.591320E-02  -2.333736E-02   0.0                           \r\n           459      G      0.0            0.0           -3.651890E-02  -7.245716E-02  -2.386036E-02   0.0                           \r\n           460      G      0.0            0.0           -2.447174E-02  -4.855439E-02  -2.423625E-02   0.0                           \r\n           461      G      0.0            0.0           -1.227371E-02  -2.435226E-02  -2.446271E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -2.453835E-02   0.0                           \r\n           505      G      0.0            0.0           -5.877852E-01  -2.542341E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -5.859733E-01  -2.534504E-01  -7.233941E-03   0.0                           \r\n           507      G      0.0            0.0           -5.805486E-01  -2.511040E-01  -1.442328E-02   0.0                           \r\n           508      G      0.0            0.0           -5.715447E-01  -2.472095E-01  -2.152370E-02   0.0                           \r\n           509      G      0.0            0.0           -5.590169E-01  -2.417910E-01  -2.849142E-02   0.0                           \r\n           510      G      0.0            0.0           -5.430427E-01  -2.348817E-01  -3.528347E-02   0.0                           \r\n           511      G      0.0            0.0           -5.237205E-01  -2.265242E-01  -4.185800E-02   0.0                           \r\n           512      G      0.0            0.0           -5.011693E-01  -2.167702E-01  -4.817445E-02   0.0                           \r\n           513      G      0.0            0.0           -4.755282E-01  -2.056797E-01  -5.419389E-02   0.0                           \r\n           514      G      0.0            0.0           -4.469554E-01  -1.933211E-01  -5.987921E-02   0.0                           \r\n           515      G      0.0            0.0           -4.156269E-01  -1.797706E-01  -6.519536E-02   0.0                           \r\n           516      G      0.0            0.0           -3.817360E-01  -1.651118E-01  -7.010955E-02   0.0                           \r\n           517      G      0.0            0.0           -3.454915E-01  -1.494350E-01  -7.459150E-02   0.0                           \r\n           518      G      0.0            0.0           -3.071170E-01  -1.328369E-01  -7.861356E-02   0.0                           \r\n           519      G      0.0            0.0           -2.668489E-01  -1.154198E-01  -8.215094E-02   0.0                           \r\n           520      G      0.0            0.0           -2.249357E-01  -9.729116E-02  -8.518184E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.816356E-01  -7.856265E-02  -8.768757E-02   0.0                           \r\n           522      G      0.0            0.0           -1.372157E-01  -5.934976E-02  -8.965266E-02   0.0                           \r\n           523      G      0.0            0.0           -9.194987E-02  -3.977097E-02  -9.106503E-02   0.0                           \r\n           524      G      0.0            0.0           -4.611710E-02  -1.994698E-02  -9.191594E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -9.220016E-02   0.0                           \r\n           568      G      0.0            0.0           -8.910065E-01  -1.426668E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -8.882598E-01  -1.422270E-01  -1.096572E-02   0.0                           \r\n           570      G      0.0            0.0           -8.800368E-01  -1.409103E-01  -2.186383E-02   0.0                           \r\n           571      G      0.0            0.0           -8.663879E-01  -1.387249E-01  -3.262715E-02   0.0                           \r\n           572      G      0.0            0.0           -8.473975E-01  -1.356842E-01  -4.318931E-02   0.0                           \r\n           573      G      0.0            0.0           -8.231826E-01  -1.318069E-01  -5.348519E-02   0.0                           \r\n           574      G      0.0            0.0           -7.938926E-01  -1.271170E-01  -6.345131E-02   0.0                           \r\n           575      G      0.0            0.0           -7.597079E-01  -1.216434E-01  -7.302625E-02   0.0                           \r\n           576      G      0.0            0.0           -7.208394E-01  -1.154198E-01  -8.215094E-02   0.0                           \r\n           577      G      0.0            0.0           -6.775267E-01  -1.084847E-01  -9.076916E-02   0.0                           \r\n           578      G      0.0            0.0           -6.300367E-01  -1.008807E-01  -9.882774E-02   0.0                           \r\n           579      G      0.0            0.0           -5.786625E-01  -9.265467E-02  -1.062770E-01   0.0                           \r\n           580      G      0.0            0.0           -5.237205E-01  -8.385743E-02  -1.130711E-01   0.0                           \r\n           581      G      0.0            0.0           -4.655496E-01  -7.454319E-02  -1.191680E-01   0.0                           \r\n           582      G      0.0            0.0           -4.045085E-01  -6.476936E-02  -1.245302E-01   0.0                           \r\n           583      G      0.0            0.0           -3.409734E-01  -5.459621E-02  -1.291247E-01   0.0                           \r\n           584      G      0.0            0.0           -2.753361E-01  -4.408646E-02  -1.329230E-01   0.0                           \r\n           585      G      0.0            0.0           -2.080013E-01  -3.330490E-02  -1.359019E-01   0.0                           \r\n           586      G      0.0            0.0           -1.393841E-01  -2.231800E-02  -1.380428E-01   0.0                           \r\n           587      G      0.0            0.0           -6.990756E-02  -1.119351E-02  -1.393327E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -1.397635E-01   0.0                           \r\n           631      G      0.0            0.0           -1.000000E+00   1.843938E-14   0.0            0.0                           \r\n           632      G      0.0            0.0           -9.969173E-01   2.052142E-14  -1.230712E-02   0.0                           \r\n           633      G      0.0            0.0           -9.876884E-01   2.527322E-14  -2.453835E-02   0.0                           \r\n           634      G      0.0            0.0           -9.723699E-01   3.124802E-14  -3.661830E-02   0.0                           \r\n           635      G      0.0            0.0           -9.510565E-01   3.976731E-14  -4.847249E-02   0.0                           \r\n           636      G      0.0            0.0           -9.238795E-01   4.826675E-14  -6.002783E-02   0.0                           \r\n           637      G      0.0            0.0           -8.910065E-01   5.288602E-14  -7.121307E-02   0.0                           \r\n           638      G      0.0            0.0           -8.526402E-01   5.211622E-14  -8.195927E-02   0.0                           \r\n           639      G      0.0            0.0           -8.090169E-01   5.295549E-14  -9.220016E-02   0.0                           \r\n           640      G      0.0            0.0           -7.604059E-01   5.080515E-14  -1.018726E-01   0.0                           \r\n           641      G      0.0            0.0           -7.071067E-01   4.868904E-14  -1.109170E-01   0.0                           \r\n           642      G      0.0            0.0           -6.494480E-01   4.662493E-14  -1.192775E-01   0.0                           \r\n           643      G      0.0            0.0           -5.877852E-01   4.690209E-14  -1.269026E-01   0.0                           \r\n           644      G      0.0            0.0           -5.224985E-01   4.472932E-14  -1.337454E-01   0.0                           \r\n           645      G      0.0            0.0           -4.539905E-01   3.909042E-14  -1.397635E-01   0.0                           \r\n           646      G      0.0            0.0           -3.826834E-01   3.528258E-14  -1.449200E-01   0.0                           \r\n           647      G      0.0            0.0           -3.090170E-01   2.851992E-14  -1.491830E-01   0.0                           \r\n           648      G      0.0            0.0           -2.334453E-01   2.089121E-14  -1.525262E-01   0.0                           \r\n           649      G      0.0            0.0           -1.564345E-01   1.325569E-14  -1.549291E-01   0.0                           \r\n           650      G      0.0            0.0           -7.845909E-02   6.875288E-15  -1.563767E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.568603E-01   0.0                           \r\n           694      G      0.0            0.0           -8.910065E-01   1.426668E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -8.882598E-01   1.422270E-01  -1.096572E-02   0.0                           \r\n           696      G      0.0            0.0           -8.800368E-01   1.409103E-01  -2.186383E-02   0.0                           \r\n           697      G      0.0            0.0           -8.663879E-01   1.387249E-01  -3.262715E-02   0.0                           \r\n           698      G      0.0            0.0           -8.473975E-01   1.356842E-01  -4.318931E-02   0.0                           \r\n           699      G      0.0            0.0           -8.231826E-01   1.318069E-01  -5.348519E-02   0.0                           \r\n           700      G      0.0            0.0           -7.938926E-01   1.271170E-01  -6.345131E-02   0.0                           \r\n           701      G      0.0            0.0           -7.597079E-01   1.216434E-01  -7.302625E-02   0.0                           \r\n           702      G      0.0            0.0           -7.208394E-01   1.154198E-01  -8.215094E-02   0.0                           \r\n           703      G      0.0            0.0           -6.775267E-01   1.084847E-01  -9.076916E-02   0.0                           \r\n           704      G      0.0            0.0           -6.300367E-01   1.008807E-01  -9.882774E-02   0.0                           \r\n           705      G      0.0            0.0           -5.786625E-01   9.265467E-02  -1.062770E-01   0.0                           \r\n           706      G      0.0            0.0           -5.237205E-01   8.385743E-02  -1.130711E-01   0.0                           \r\n           707      G      0.0            0.0           -4.655496E-01   7.454319E-02  -1.191680E-01   0.0                           \r\n           708      G      0.0            0.0           -4.045085E-01   6.476936E-02  -1.245302E-01   0.0                           \r\n           709      G      0.0            0.0           -3.409734E-01   5.459621E-02  -1.291247E-01   0.0                           \r\n           710      G      0.0            0.0           -2.753361E-01   4.408646E-02  -1.329230E-01   0.0                           \r\n           711      G      0.0            0.0           -2.080013E-01   3.330490E-02  -1.359019E-01   0.0                           \r\n           712      G      0.0            0.0           -1.393841E-01   2.231800E-02  -1.380428E-01   0.0                           \r\n           713      G      0.0            0.0           -6.990756E-02   1.119351E-02  -1.393327E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -1.397635E-01   0.0                           \r\n           757      G      0.0            0.0           -5.877852E-01   2.542341E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -5.859733E-01   2.534504E-01  -7.233941E-03   0.0                           \r\n           759      G      0.0            0.0           -5.805486E-01   2.511040E-01  -1.442328E-02   0.0                           \r\n           760      G      0.0            0.0           -5.715447E-01   2.472095E-01  -2.152370E-02   0.0                           \r\n           761      G      0.0            0.0           -5.590169E-01   2.417910E-01  -2.849142E-02   0.0                           \r\n           762      G      0.0            0.0           -5.430427E-01   2.348817E-01  -3.528347E-02   0.0                           \r\n           763      G      0.0            0.0           -5.237205E-01   2.265242E-01  -4.185800E-02   0.0                           \r\n           764      G      0.0            0.0           -5.011693E-01   2.167702E-01  -4.817445E-02   0.0                           \r\n           765      G      0.0            0.0           -4.755282E-01   2.056797E-01  -5.419389E-02   0.0                           \r\n           766      G      0.0            0.0           -4.469554E-01   1.933211E-01  -5.987921E-02   0.0                           \r\n           767      G      0.0            0.0           -4.156269E-01   1.797706E-01  -6.519536E-02   0.0                           \r\n           768      G      0.0            0.0           -3.817360E-01   1.651118E-01  -7.010955E-02   0.0                           \r\n           769      G      0.0            0.0           -3.454915E-01   1.494350E-01  -7.459150E-02   0.0                           \r\n           770      G      0.0            0.0           -3.071170E-01   1.328369E-01  -7.861356E-02   0.0                           \r\n           771      G      0.0            0.0           -2.668489E-01   1.154198E-01  -8.215094E-02   0.0                           \r\n           772      G      0.0            0.0           -2.249357E-01   9.729116E-02  -8.518184E-02   0.0                           \r\n           773      G      0.0            0.0           -1.816356E-01   7.856265E-02  -8.768757E-02   0.0                           \r\n           774      G      0.0            0.0           -1.372157E-01   5.934976E-02  -8.965266E-02   0.0                           \r\n           775      G      0.0            0.0           -9.194987E-02   3.977097E-02  -9.106503E-02   0.0                           \r\n           776      G      0.0            0.0           -4.611710E-02   1.994698E-02  -9.191594E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -9.220016E-02   0.0                           \r\n           820      G      0.0            0.0           -1.564345E-01   3.103817E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.559522E-01   3.094248E-01  -1.925257E-03   0.0                           \r\n           822      G      0.0            0.0           -1.545085E-01   3.065603E-01  -3.838644E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.521122E-01   3.018058E-01  -5.728365E-03   0.0                           \r\n           824      G      0.0            0.0           -1.487780E-01   2.951905E-01  -7.582769E-03   0.0                           \r\n           825      G      0.0            0.0           -1.445266E-01   2.867553E-01  -9.390421E-03   0.0                           \r\n           826      G      0.0            0.0           -1.393841E-01   2.765521E-01  -1.114018E-02   0.0                           \r\n           827      G      0.0            0.0           -1.333823E-01   2.646439E-01  -1.282126E-02   0.0                           \r\n           828      G      0.0            0.0           -1.265581E-01   2.511040E-01  -1.442328E-02   0.0                           \r\n           829      G      0.0            0.0           -1.189537E-01   2.360161E-01  -1.593639E-02   0.0                           \r\n           830      G      0.0            0.0           -1.106159E-01   2.194730E-01  -1.735124E-02   0.0                           \r\n           831      G      0.0            0.0           -1.015960E-01   2.015767E-01  -1.865911E-02   0.0                           \r\n           832      G      0.0            0.0           -9.194987E-02   1.824377E-01  -1.985195E-02   0.0                           \r\n           833      G      0.0            0.0           -8.173678E-02   1.621740E-01  -2.092239E-02   0.0                           \r\n           834      G      0.0            0.0           -7.101975E-02   1.409103E-01  -2.186383E-02   0.0                           \r\n           835      G      0.0            0.0           -5.986487E-02   1.187779E-01  -2.267048E-02   0.0                           \r\n           836      G      0.0            0.0           -4.834091E-02   9.591320E-02  -2.333736E-02   0.0                           \r\n           837      G      0.0            0.0           -3.651890E-02   7.245716E-02  -2.386036E-02   0.0                           \r\n           838      G      0.0            0.0           -2.447174E-02   4.855439E-02  -2.423625E-02   0.0                           \r\n           839      G      0.0            0.0           -1.227371E-02   2.435226E-02  -2.446271E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -2.453835E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            3.142506E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.132819E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            3.103817E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.055678E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.988701E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            2.903297E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            2.799993E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.679427E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            2.542341E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            2.389580E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            2.222087E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            2.040894E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.847119E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            1.641955E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            1.426668E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            1.202585E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            9.710877E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            7.336034E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            4.915962E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            2.465582E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.434574E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -3.395072E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -3.278406E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -3.090001E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.838571E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -2.535649E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.194964E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.831699E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.461679E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -1.100517E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -7.627862E-02   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -4.612441E-02   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -2.061661E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -4.816158E-04   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            1.389122E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            2.246664E-02   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            2.556080E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            2.381886E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            1.817434E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            9.792359E-03   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -4.862939E-01  -2.861346E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -4.804832E-01  -2.824410E-01  -2.316003E-02   0.0                           \r\n            66      G      0.0            0.0           -4.633254E-01  -2.715382E-01  -4.522758E-02   0.0                           \r\n            67      G      0.0            0.0           -4.356277E-01  -2.539510E-01  -6.516936E-02   0.0                           \r\n            68      G      0.0            0.0           -3.986872E-01  -2.305222E-01  -8.206727E-02   0.0                           \r\n            69      G      0.0            0.0           -3.542200E-01  -2.023670E-01  -9.516796E-02   0.0                           \r\n            70      G      0.0            0.0           -3.042690E-01  -1.708121E-01  -1.039234E-01   0.0                           \r\n            71      G      0.0            0.0           -2.510932E-01  -1.373246E-01  -1.080200E-01   0.0                           \r\n            72      G      0.0            0.0           -1.970459E-01  -1.034315E-01  -1.073950E-01   0.0                           \r\n            73      G      0.0            0.0           -1.444484E-01  -7.063846E-02  -1.022387E-01   0.0                           \r\n            74      G      0.0            0.0           -9.546588E-02  -4.034798E-02  -9.298344E-02   0.0                           \r\n            75      G      0.0            0.0           -5.199227E-02  -1.378493E-02  -8.027823E-02   0.0                           \r\n            76      G      0.0            0.0           -1.555055E-02   8.068576E-03  -6.495246E-02   0.0                           \r\n            77      G      0.0            0.0            1.278596E-02   2.452438E-02  -4.796908E-02   0.0                           \r\n            78      G      0.0            0.0            3.244710E-02   3.522314E-02  -3.037078E-02   0.0                           \r\n            79      G      0.0            0.0            4.339121E-02   4.015079E-02  -1.322164E-02   0.0                           \r\n            80      G      0.0            0.0            4.610107E-02   3.963577E-02   2.452186E-03   0.0                           \r\n            81      G      0.0            0.0            4.155045E-02   3.432714E-02   1.571967E-02   0.0                           \r\n            82      G      0.0            0.0            3.114337E-02   2.515491E-02   2.579675E-02   0.0                           \r\n            83      G      0.0            0.0            1.662946E-02   1.327473E-02   3.209001E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.422963E-02   0.0                           \r\n           127      G      0.0            0.0           -8.140212E-01  -1.402550E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -8.031271E-01  -1.372463E-01  -4.342261E-02   0.0                           \r\n           129      G      0.0            0.0           -7.709749E-01  -1.283811E-01  -8.473059E-02   0.0                           \r\n           130      G      0.0            0.0           -7.191274E-01  -1.141334E-01  -1.219244E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -6.500945E-01  -9.526397E-02  -1.532283E-01   0.0                           \r\n           132      G      0.0            0.0           -5.671965E-01  -7.277851E-02  -1.771870E-01   0.0                           \r\n           133      G      0.0            0.0           -4.743841E-01  -4.787251E-02  -1.927438E-01   0.0                           \r\n           134      G      0.0            0.0           -3.760235E-01  -2.186531E-02  -1.992982E-01   0.0                           \r\n           135      G      0.0            0.0           -2.766604E-01   3.872430E-03  -1.967366E-01   0.0                           \r\n           136      G      0.0            0.0           -1.807737E-01   2.799403E-02  -1.854377E-01   0.0                           \r\n           137      G      0.0            0.0           -9.253468E-02   4.925080E-02  -1.662498E-01   0.0                           \r\n           138      G      0.0            0.0           -1.558313E-02   6.656043E-02  -1.404426E-01   0.0                           \r\n           139      G      0.0            0.0            4.716593E-02   7.906634E-02  -1.096357E-01   0.0                           \r\n           140      G      0.0            0.0            9.367521E-02   8.618432E-02  -7.570810E-02   0.0                           \r\n           141      G      0.0            0.0            1.228889E-01   8.763418E-02  -4.069296E-02   0.0                           \r\n           142      G      0.0            0.0            1.347817E-01   8.345452E-02  -6.664583E-03   0.0                           \r\n           143      G      0.0            0.0            1.303502E-01   7.399991E-02   2.437725E-02   0.0                           \r\n           144      G      0.0            0.0            1.115481E-01   5.992049E-02   5.061849E-02   0.0                           \r\n           145      G      0.0            0.0            8.116721E-02   4.212525E-02   7.053162E-02   0.0                           \r\n           146      G      0.0            0.0            4.267256E-02   2.173105E-02   8.296064E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            8.718519E-02   0.0                           \r\n           190      G      0.0            0.0           -8.964841E-01   2.834066E-02   0.0            0.0                           \r\n           191      G      0.0            0.0           -8.817258E-01   3.045199E-02  -5.882554E-02   0.0                           \r\n           192      G      0.0            0.0           -8.382044E-01   3.665147E-02  -1.146463E-01   0.0                           \r\n           193      G      0.0            0.0           -7.681403E-01   4.654309E-02  -1.646221E-01   0.0                           \r\n           194      G      0.0            0.0           -6.750984E-01   5.949156E-02  -2.062327E-01   0.0                           \r\n           195      G      0.0            0.0           -5.637936E-01   7.465797E-02  -2.374154E-01   0.0                           \r\n           196      G      0.0            0.0           -4.398324E-01   9.104690E-02  -2.566782E-01   0.0                           \r\n           197      G      0.0            0.0           -3.094066E-01   1.075624E-01  -2.631800E-01   0.0                           \r\n           198      G      0.0            0.0           -1.789555E-01   1.230697E-01  -2.567764E-01   0.0                           \r\n           199      G      0.0            0.0           -5.481418E-02   1.364594E-01  -2.380258E-01   0.0                           \r\n           200      G      0.0            0.0            5.713046E-02   1.467101E-01  -2.081577E-01   0.0                           \r\n           201      G      0.0            0.0            1.517596E-01   1.529469E-01  -1.690034E-01   0.0                           \r\n           202      G      0.0            0.0            2.249986E-01   1.544914E-01  -1.228935E-01   0.0                           \r\n           203      G      0.0            0.0            2.740348E-01   1.509011E-01  -7.252867E-02   0.0                           \r\n           204      G      0.0            0.0            2.974658E-01   1.419967E-01  -2.082865E-02   0.0                           \r\n           205      G      0.0            0.0            2.953685E-01   1.278736E-01   2.922929E-02   0.0                           \r\n           206      G      0.0            0.0            2.692866E-01   1.088994E-01   7.477590E-02   0.0                           \r\n           207      G      0.0            0.0            2.221365E-01   8.569624E-02   1.132091E-01   0.0                           \r\n           208      G      0.0            0.0            1.580367E-01   5.910886E-02   1.423382E-01   0.0                           \r\n           209      G      0.0            0.0            8.207148E-02   3.016068E-02   1.605055E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.666782E-01   0.0                           \r\n           253      G      0.0            0.0           -7.565104E-01   1.453848E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -7.392364E-01   1.466362E-01  -6.885403E-02   0.0                           \r\n           255      G      0.0            0.0           -6.883465E-01   1.502888E-01  -1.339923E-01   0.0                           \r\n           256      G      0.0            0.0           -6.065859E-01   1.560434E-01  -1.919039E-01   0.0                           \r\n           257      G      0.0            0.0           -4.983617E-01   1.634207E-01  -2.394760E-01   0.0                           \r\n           258      G      0.0            0.0           -3.694996E-01   1.717884E-01  -2.741657E-01   0.0                           \r\n           259      G      0.0            0.0           -2.269233E-01   1.803978E-01  -2.941398E-01   0.0                           \r\n           260      G      0.0            0.0           -7.827308E-02   1.884266E-01  -2.983755E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            6.851505E-02   1.950272E-01  -2.867164E-01   0.0                           \r\n           262      G      0.0            0.0            2.056461E-01   1.993748E-01  -2.598812E-01   0.0                           \r\n           263      G      0.0            0.0            3.258950E-01   2.007173E-01  -2.194227E-01   0.0                           \r\n           264      G      0.0            0.0            4.230036E-01   1.984187E-01  -1.676422E-01   0.0                           \r\n           265      G      0.0            0.0            4.920239E-01   1.919985E-01  -1.074617E-01   0.0                           \r\n           266      G      0.0            0.0            5.295895E-01   1.811619E-01  -4.226199E-02   0.0                           \r\n           267      G      0.0            0.0            5.340982E-01   1.658196E-01   2.430447E-02   0.0                           \r\n           268      G      0.0            0.0            5.057980E-01   1.460977E-01   8.851557E-02   0.0                           \r\n           269      G      0.0            0.0            4.467703E-01   1.223347E-01   1.467857E-01   0.0                           \r\n           270      G      0.0            0.0            3.608114E-01   9.506755E-02   1.958639E-01   0.0                           \r\n           271      G      0.0            0.0            2.532200E-01   6.500667E-02   2.330139E-01   0.0                           \r\n           272      G      0.0            0.0            1.305004E-01   3.300182E-02   2.561654E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            2.640286E-01   0.0                           \r\n           316      G      0.0            0.0           -5.120698E-01   1.634112E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -4.934279E-01   1.640139E-01  -7.430793E-02   0.0                           \r\n           318      G      0.0            0.0           -4.385600E-01   1.657574E-01  -1.443992E-01   0.0                           \r\n           319      G      0.0            0.0           -3.505810E-01   1.684508E-01  -2.062909E-01   0.0                           \r\n           320      G      0.0            0.0           -2.344904E-01   1.717884E-01  -2.564544E-01   0.0                           \r\n           321      G      0.0            0.0           -9.689493E-02   1.753677E-01  -2.920115E-01   0.0                           \r\n           322      G      0.0            0.0            5.435773E-02   1.787126E-01  -3.108936E-01   0.0                           \r\n           323      G      0.0            0.0            2.106139E-01   1.813020E-01  -3.119569E-01   0.0                           \r\n           324      G      0.0            0.0            3.628939E-01   1.825999E-01  -2.950462E-01   0.0                           \r\n           325      G      0.0            0.0            5.023909E-01   1.820882E-01  -2.610044E-01   0.0                           \r\n           326      G      0.0            0.0            6.209592E-01   1.792975E-01  -2.116256E-01   0.0                           \r\n           327      G      0.0            0.0            7.115679E-01   1.738365E-01  -1.495575E-01   0.0                           \r\n           328      G      0.0            0.0            7.686917E-01   1.654169E-01  -7.815501E-02   0.0                           \r\n           329      G      0.0            0.0            7.886197E-01   1.538726E-01  -1.295412E-03   0.0                           \r\n           330      G      0.0            0.0            7.696641E-01   1.391735E-01   7.683538E-02   0.0                           \r\n           331      G      0.0            0.0            7.122566E-01   1.214305E-01   1.519738E-01   0.0                           \r\n           332      G      0.0            0.0            6.189288E-01   1.008943E-01   2.200140E-01   0.0                           \r\n           333      G      0.0            0.0            4.941760E-01   7.794566E-02   2.772343E-01   0.0                           \r\n           334      G      0.0            0.0            3.442129E-01   5.307919E-02   3.205026E-01   0.0                           \r\n           335      G      0.0            0.0            1.766343E-01   2.688077E-02   3.474495E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            3.565989E-01   0.0                           \r\n           379      G      0.0            0.0           -3.169321E-01   8.402348E-02   0.0            0.0                           \r\n           380      G      0.0            0.0           -2.977132E-01   8.421680E-02  -7.660875E-02   0.0                           \r\n           381      G      0.0            0.0           -2.411831E-01   8.477053E-02  -1.487271E-01   0.0                           \r\n           382      G      0.0            0.0           -1.506587E-01   8.560769E-02  -2.121143E-01   0.0                           \r\n           383      G      0.0            0.0           -3.146302E-02   8.660495E-02  -2.630153E-01   0.0                           \r\n           384      G      0.0            0.0            1.093713E-01   8.760002E-02  -2.983698E-01   0.0                           \r\n           385      G      0.0            0.0            2.634930E-01   8.840118E-02  -3.159827E-01   0.0                           \r\n           386      G      0.0            0.0            4.216975E-01   8.879884E-02  -3.146472E-01   0.0                           \r\n           387      G      0.0            0.0            5.744396E-01   8.857805E-02  -2.942126E-01   0.0                           \r\n           388      G      0.0            0.0            7.123661E-01   8.753160E-02  -2.555944E-01   0.0                           \r\n           389      G      0.0            0.0            8.268377E-01   8.547280E-02  -2.007245E-01   0.0                           \r\n           390      G      0.0            0.0            9.104139E-01   8.224735E-02  -1.324462E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            9.572694E-01   7.774348E-02  -5.435796E-02   0.0                           \r\n           392      G      0.0            0.0            9.635249E-01   7.189991E-02   2.938425E-02   0.0                           \r\n           393      G      0.0            0.0            9.274687E-01   6.471119E-02   1.142958E-01   0.0                           \r\n           394      G      0.0            0.0            8.496597E-01   5.622998E-02   1.958100E-01   0.0                           \r\n           395      G      0.0            0.0            7.329057E-01   4.656632E-02   2.695302E-01   0.0                           \r\n           396      G      0.0            0.0            5.821171E-01   3.588367E-02   3.314716E-01   0.0                           \r\n           397      G      0.0            0.0            4.040452E-01   2.439226E-02   3.782811E-01   0.0                           \r\n           398      G      0.0            0.0            2.069189E-01   1.233976E-02   4.074221E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            4.173147E-01   0.0                           \r\n           442      G      0.0            0.0           -2.849572E-01  -4.343882E-02   0.0            0.0                           \r\n           443      G      0.0            0.0           -2.656664E-01  -4.353178E-02  -7.689546E-02   0.0                           \r\n           444      G      0.0            0.0           -2.089305E-01  -4.379753E-02  -1.492612E-01   0.0                           \r\n           445      G      0.0            0.0           -1.180955E-01  -4.419754E-02  -2.128195E-01   0.0                           \r\n           446      G      0.0            0.0            1.469372E-03  -4.467006E-02  -2.637827E-01   0.0                           \r\n           447      G      0.0            0.0            1.426702E-01  -4.513387E-02  -2.990646E-01   0.0                           \r\n           448      G      0.0            0.0            2.970836E-01  -4.549306E-02  -3.164521E-01   0.0                           \r\n           449      G      0.0            0.0            4.554260E-01  -4.564273E-02  -3.147295E-01   0.0                           \r\n           450      G      0.0            0.0            6.080713E-01  -4.547542E-02  -2.937469E-01   0.0                           \r\n           451      G      0.0            0.0            7.455882E-01  -4.488751E-02  -2.544305E-01   0.0                           \r\n           452      G      0.0            0.0            8.592675E-01  -4.378579E-02  -1.987325E-01   0.0                           \r\n           453      G      0.0            0.0            9.416101E-01  -4.209329E-02  -1.295247E-01   0.0                           \r\n           454      G      0.0            0.0            9.867492E-01  -3.975440E-02  -5.044097E-02   0.0                           \r\n           455      G      0.0            0.0            9.907823E-01  -3.673889E-02   3.432233E-02   0.0                           \r\n           456      G      0.0            0.0            9.519957E-01  -3.304455E-02   1.202371E-01   0.0                           \r\n           457      G      0.0            0.0            8.709685E-01  -2.869834E-02   2.026928E-01   0.0                           \r\n           458      G      0.0            0.0            7.505499E-01  -2.375600E-02   2.772505E-01   0.0                           \r\n           459      G      0.0            0.0            5.957121E-01  -1.830013E-02   3.398872E-01   0.0                           \r\n           460      G      0.0            0.0            4.132859E-01  -1.243677E-02   3.872178E-01   0.0                           \r\n           461      G      0.0            0.0            2.115934E-01  -6.290736E-03   4.166817E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            4.266835E-01   0.0                           \r\n           505      G      0.0            0.0           -4.344109E-01  -1.461679E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.155064E-01  -1.466108E-01  -7.535486E-02   0.0                           \r\n           507      G      0.0            0.0           -3.598802E-01  -1.478875E-01  -1.463761E-01   0.0                           \r\n           508      G      0.0            0.0           -2.707337E-01  -1.498447E-01  -2.089704E-01   0.0                           \r\n           509      G      0.0            0.0           -1.532043E-01  -1.522368E-01  -2.595126E-01   0.0                           \r\n           510      G      0.0            0.0           -1.408118E-02  -1.547408E-01  -2.950462E-01   0.0                           \r\n           511      G      0.0            0.0            1.385727E-01  -1.569747E-01  -3.134486E-01   0.0                           \r\n           512      G      0.0            0.0            2.958679E-01  -1.585203E-01  -3.135487E-01   0.0                           \r\n           513      G      0.0            0.0            4.485826E-01  -1.589483E-01  -2.951930E-01   0.0                           \r\n           514      G      0.0            0.0            5.876757E-01  -1.578441E-01  -2.592546E-01   0.0                           \r\n           515      G      0.0            0.0            7.047899E-01  -1.548331E-01  -2.075863E-01   0.0                           \r\n           516      G      0.0            0.0            7.927177E-01  -1.496039E-01  -1.429187E-01   0.0                           \r\n           517      G      0.0            0.0            8.458043E-01  -1.419286E-01  -6.871017E-02   0.0                           \r\n           518      G      0.0            0.0            8.602650E-01  -1.316786E-01   1.104358E-02   0.0                           \r\n           519      G      0.0            0.0            8.343996E-01  -1.188354E-01   9.202961E-02   0.0                           \r\n           520      G      0.0            0.0            7.686917E-01  -1.034944E-01   1.698555E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            6.657881E-01  -8.586435E-02   2.402917E-01   0.0                           \r\n           522      G      0.0            0.0            5.303583E-01  -6.625918E-02   2.995045E-01   0.0                           \r\n           523      G      0.0            0.0            3.688432E-01  -4.508492E-02   3.442680E-01   0.0                           \r\n           524      G      0.0            0.0            1.891051E-01  -2.282140E-02   3.721415E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            3.816048E-01   0.0                           \r\n           568      G      0.0            0.0           -6.790490E-01  -1.634243E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -6.612080E-01  -1.644313E-01  -7.111418E-02   0.0                           \r\n           570      G      0.0            0.0           -6.086655E-01  -1.673626E-01  -1.383212E-01   0.0                           \r\n           571      G      0.0            0.0           -5.243078E-01  -1.719543E-01  -1.979297E-01   0.0                           \r\n           572      G      0.0            0.0           -4.127683E-01  -1.777836E-01  -2.466679E-01   0.0                           \r\n           573      G      0.0            0.0           -2.801716E-01  -1.842927E-01  -2.818644E-01   0.0                           \r\n           574      G      0.0            0.0           -1.337948E-01  -1.908220E-01  -3.015953E-01   0.0                           \r\n           575      G      0.0            0.0            1.833391E-02  -1.966474E-01  -3.047911E-01   0.0                           \r\n           576      G      0.0            0.0            1.678784E-01  -2.010234E-01  -2.912947E-01   0.0                           \r\n           577      G      0.0            0.0            3.066554E-01  -2.032263E-01  -2.618709E-01   0.0                           \r\n           578      G      0.0            0.0            4.270854E-01  -2.025975E-01  -2.181634E-01   0.0                           \r\n           579      G      0.0            0.0            5.226118E-01  -1.985830E-01  -1.626041E-01   0.0                           \r\n           580      G      0.0            0.0            5.880620E-01  -1.907678E-01  -9.827862E-02   0.0                           \r\n           581      G      0.0            0.0            6.199328E-01  -1.789028E-01  -2.875563E-02   0.0                           \r\n           582      G      0.0            0.0            6.165833E-01  -1.629225E-01   4.211045E-02   0.0                           \r\n           583      G      0.0            0.0            5.783248E-01  -1.429534E-01   1.103925E-01   0.0                           \r\n           584      G      0.0            0.0            5.074030E-01  -1.193113E-01   1.723077E-01   0.0                           \r\n           585      G      0.0            0.0            4.078725E-01  -9.248912E-02   2.244269E-01   0.0                           \r\n           586      G      0.0            0.0            2.853729E-01  -6.313435E-02   2.638637E-01   0.0                           \r\n           587      G      0.0            0.0            1.468152E-01  -3.201857E-02   2.884344E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            2.967786E-01   0.0                           \r\n           631      G      0.0            0.0           -8.702528E-01  -7.627862E-02   0.0            0.0                           \r\n           632      G      0.0            0.0           -8.545104E-01  -7.808807E-02  -6.274831E-02   0.0                           \r\n           633      G      0.0            0.0           -8.081018E-01  -8.339225E-02  -1.222331E-01   0.0                           \r\n           634      G      0.0            0.0           -7.334384E-01  -9.182577E-02  -1.753699E-01   0.0                           \r\n           635      G      0.0            0.0           -6.343916E-01  -1.028026E-01  -2.194227E-01   0.0                           \r\n           636      G      0.0            0.0           -5.160810E-01  -1.155491E-01  -2.521535E-01   0.0                           \r\n           637      G      0.0            0.0           -3.845930E-01  -1.291481E-01  -2.719451E-01   0.0                           \r\n           638      G      0.0            0.0           -2.466479E-01  -1.425906E-01  -2.778892E-01   0.0                           \r\n           639      G      0.0            0.0           -1.092314E-01  -1.548331E-01  -2.698354E-01   0.0                           \r\n           640      G      0.0            0.0            2.078713E-02  -1.648574E-01  -2.483985E-01   0.0                           \r\n           641      G      0.0            0.0            1.370301E-01  -1.717287E-01  -2.149234E-01   0.0                           \r\n           642      G      0.0            0.0            2.339590E-01  -1.746498E-01  -1.714099E-01   0.0                           \r\n           643      G      0.0            0.0            3.071749E-01  -1.730075E-01  -1.204011E-01   0.0                           \r\n           644      G      0.0            0.0            3.536558E-01  -1.664095E-01  -6.484207E-02   0.0                           \r\n           645      G      0.0            0.0            3.719174E-01  -1.547090E-01  -7.916442E-03   0.0                           \r\n           646      G      0.0            0.0            3.620881E-01  -1.380158E-01   4.713031E-02   0.0                           \r\n           647      G      0.0            0.0            3.258950E-01  -1.166938E-01   9.717084E-02   0.0                           \r\n           648      G      0.0            0.0            2.665617E-01  -9.134416E-02   1.393693E-01   0.0                           \r\n           649      G      0.0            0.0            1.886216E-01  -6.277564E-02   1.713383E-01   0.0                           \r\n           650      G      0.0            0.0            9.766058E-02  -3.196365E-02   1.912714E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.980432E-01   0.0                           \r\n           694      G      0.0            0.0           -8.699807E-01   8.272828E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -8.576487E-01   8.000787E-02  -4.915369E-02   0.0                           \r\n           696      G      0.0            0.0           -8.212619E-01   7.199964E-02  -9.587871E-02   0.0                           \r\n           697      G      0.0            0.0           -7.626151E-01   5.915415E-02  -1.378788E-01   0.0                           \r\n           698      G      0.0            0.0           -6.845903E-01   4.219455E-02  -1.731153E-01   0.0                           \r\n           699      G      0.0            0.0           -5.910004E-01   2.207658E-02  -1.999181E-01   0.0                           \r\n           700      G      0.0            0.0           -4.863808E-01  -6.443768E-05  -2.170759E-01   0.0                           \r\n           701      G      0.0            0.0           -3.757433E-01  -2.297640E-02  -2.239020E-01   0.0                           \r\n           702      G      0.0            0.0           -2.643036E-01  -4.535984E-02  -2.202703E-01   0.0                           \r\n           703      G      0.0            0.0           -1.571984E-01  -6.593993E-02  -2.066208E-01   0.0                           \r\n           704      G      0.0            0.0           -5.920846E-02  -8.353714E-02  -1.839337E-01   0.0                           \r\n           705      G      0.0            0.0            2.549912E-02  -9.713273E-02  -1.536741E-01   0.0                           \r\n           706      G      0.0            0.0            9.359326E-02  -1.059253E-01  -1.177094E-01   0.0                           \r\n           707      G      0.0            0.0            1.427547E-01  -1.093753E-01  -7.820532E-02   0.0                           \r\n           708      G      0.0            0.0            1.717951E-01  -1.072355E-01  -3.750463E-02   0.0                           \r\n           709      G      0.0            0.0            1.807136E-01  -9.956436E-02   2.002886E-03   0.0                           \r\n           710      G      0.0            0.0            1.706868E-01  -8.672398E-02   3.801354E-02   0.0                           \r\n           711      G      0.0            0.0            1.439933E-01  -6.935982E-02   6.843778E-02   0.0                           \r\n           712      G      0.0            0.0            1.038775E-01  -4.836575E-02   9.151625E-02   0.0                           \r\n           713      G      0.0            0.0            5.435912E-02  -2.483497E-02   1.059174E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.108118E-01   0.0                           \r\n           757      G      0.0            0.0           -6.194803E-01   2.446695E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -6.118633E-01   2.411653E-01  -3.035975E-02   0.0                           \r\n           759      G      0.0            0.0           -5.893747E-01   2.308263E-01  -5.927518E-02   0.0                           \r\n           760      G      0.0            0.0           -5.530820E-01   2.141637E-01  -8.538034E-02   0.0                           \r\n           761      G      0.0            0.0           -5.046995E-01   1.919985E-01  -1.074617E-01   0.0                           \r\n           762      G      0.0            0.0           -4.464960E-01   1.654169E-01  -1.245239E-01   0.0                           \r\n           763      G      0.0            0.0           -3.811716E-01   1.357106E-01  -1.358431E-01   0.0                           \r\n           764      G      0.0            0.0           -3.117114E-01   1.043073E-01  -1.410059E-01   0.0                           \r\n           765      G      0.0            0.0           -2.412251E-01   7.269240E-02  -1.399307E-01   0.0                           \r\n           766      G      0.0            0.0           -1.727788E-01   4.232891E-02  -1.328713E-01   0.0                           \r\n           767      G      0.0            0.0           -1.092314E-01   1.457814E-02  -1.204011E-01   0.0                           \r\n           768      G      0.0            0.0           -5.308194E-02  -9.373473E-03  -1.033807E-01   0.0                           \r\n           769      G      0.0            0.0           -6.337782E-03  -2.857785E-02  -8.290914E-02   0.0                           \r\n           770      G      0.0            0.0            2.958948E-02  -4.237530E-02  -6.026232E-02   0.0                           \r\n           771      G      0.0            0.0            5.395487E-02  -5.042852E-02  -3.682146E-02   0.0                           \r\n           772      G      0.0            0.0            6.671349E-02  -5.273864E-02  -1.399601E-02   0.0                           \r\n           773      G      0.0            0.0            6.851505E-02  -4.964234E-02   6.854926E-03   0.0                           \r\n           774      G      0.0            0.0            6.065957E-02  -4.179045E-02   2.449828E-02   0.0                           \r\n           775      G      0.0            0.0            4.501688E-02  -3.010900E-02   3.789568E-02   0.0                           \r\n           776      G      0.0            0.0            2.391451E-02  -1.574500E-02   4.626122E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.910517E-02   0.0                           \r\n           820      G      0.0            0.0           -1.706963E-01   3.368591E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.687210E-01   3.329381E-01  -7.873038E-03   0.0                           \r\n           822      G      0.0            0.0           -1.628874E-01   3.213586E-01  -1.537835E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.534673E-01   3.026611E-01  -2.216811E-02   0.0                           \r\n           824      G      0.0            0.0           -1.408972E-01   2.777137E-01  -2.793322E-02   0.0                           \r\n           825      G      0.0            0.0           -1.257549E-01   2.476654E-01  -3.241995E-02   0.0                           \r\n           826      G      0.0            0.0           -1.087282E-01   2.138840E-01  -3.544359E-02   0.0                           \r\n           827      G      0.0            0.0           -9.057786E-02   1.778821E-01  -3.689826E-02   0.0                           \r\n           828      G      0.0            0.0           -7.209643E-02   1.412357E-01  -3.676236E-02   0.0                           \r\n           829      G      0.0            0.0           -5.406607E-02   1.055002E-01  -3.509944E-02   0.0                           \r\n           830      G      0.0            0.0           -3.721666E-02   7.212646E-02  -3.205432E-02   0.0                           \r\n           831      G      0.0            0.0           -2.218712E-02   4.238460E-02  -2.784476E-02   0.0                           \r\n           832      G      0.0            0.0           -9.491874E-03   1.729701E-02  -2.274912E-02   0.0                           \r\n           833      G      0.0            0.0            5.055729E-04  -2.414256E-03  -1.709071E-02   0.0                           \r\n           834      G      0.0            0.0            7.610672E-03  -1.636328E-02  -1.121965E-02   0.0                           \r\n           835      G      0.0            0.0            1.180637E-02  -2.451727E-02  -5.493308E-03   0.0                           \r\n           836      G      0.0            0.0            1.325171E-02  -2.719381E-02  -2.563375E-04   0.0                           \r\n           837      G      0.0            0.0            1.227069E-02  -2.503861E-02   4.178542E-03   0.0                           \r\n           838      G      0.0            0.0            9.331815E-03  -1.898488E-02   7.547966E-03   0.0                           \r\n           839      G      0.0            0.0            5.019663E-03  -1.019680E-02   9.652591E-03   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.036820E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            3.434574E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.395072E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            3.278406E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.090001E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.838571E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            2.535649E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            2.194964E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            1.831699E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            1.461679E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            1.100517E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            7.627862E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            4.612441E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            2.061661E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            4.816157E-04   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -1.389122E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -2.246664E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -2.556080E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -2.381886E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -1.817434E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -9.792359E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.132744E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -3.046184E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.791292E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.382156E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -1.841379E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.198847E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -4.900643E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            2.457946E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            9.680727E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            1.636854E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            2.215184E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.671102E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            2.979416E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            3.123085E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            3.094172E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            2.894274E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            2.534441E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            2.034553E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            1.422233E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            7.313200E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -4.539906E-01  -2.791293E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -4.414468E-01  -2.714170E-01  -4.994155E-02   0.0                           \r\n            66      G      0.0            0.0           -4.045085E-01  -2.487061E-01  -9.712297E-02   0.0                           \r\n            67      G      0.0            0.0           -3.452171E-01  -2.122517E-01  -1.389372E-01   0.0                           \r\n            68      G      0.0            0.0           -2.668491E-01  -1.640682E-01  -1.730739E-01   0.0                           \r\n            69      G      0.0            0.0           -1.737349E-01  -1.068183E-01  -1.976470E-01   0.0                           \r\n            70      G      0.0            0.0           -7.101991E-02  -4.366565E-02  -2.112981E-01   0.0                           \r\n            71      G      0.0            0.0            3.561966E-02   2.190002E-02  -2.132723E-01   0.0                           \r\n            72      G      0.0            0.0            1.402909E-01   8.625560E-02  -2.034611E-01   0.0                           \r\n            73      G      0.0            0.0            2.372095E-01   1.458447E-01  -1.824066E-01   0.0                           \r\n            74      G      0.0            0.0            3.210197E-01   1.973742E-01  -1.512723E-01   0.0                           \r\n            75      G      0.0            0.0            3.870904E-01   2.379966E-01  -1.117789E-01   0.0                           \r\n            76      G      0.0            0.0            4.317705E-01   2.654674E-01  -6.610855E-02   0.0                           \r\n            77      G      0.0            0.0            4.525909E-01   2.782687E-01  -1.678492E-02   0.0                           \r\n            78      G      0.0            0.0            4.484011E-01   2.756928E-01   3.346626E-02   0.0                           \r\n            79      G      0.0            0.0            4.194325E-01   2.578820E-01   8.186805E-02   0.0                           \r\n            80      G      0.0            0.0            3.672861E-01   2.258205E-01   1.257457E-01   0.0                           \r\n            81      G      0.0            0.0            2.948434E-01   1.812801E-01   1.626746E-01   0.0                           \r\n            82      G      0.0            0.0            2.061076E-01   1.267222E-01   1.906145E-01   0.0                           \r\n            83      G      0.0            0.0            1.059821E-01   6.516156E-02   2.080209E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.139317E-01   0.0                           \r\n           127      G      0.0            0.0           -8.090169E-01  -1.841380E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -7.866637E-01  -1.790503E-01  -8.899628E-02   0.0                           \r\n           129      G      0.0            0.0           -7.208393E-01  -1.640683E-01  -1.730741E-01   0.0                           \r\n           130      G      0.0            0.0           -6.151813E-01  -1.400199E-01  -2.475882E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -4.755282E-01  -1.082339E-01  -3.084206E-01   0.0                           \r\n           132      G      0.0            0.0           -3.095974E-01  -7.046665E-02  -3.522096E-01   0.0                           \r\n           133      G      0.0            0.0           -1.265581E-01  -2.880548E-02  -3.765354E-01   0.0                           \r\n           134      G      0.0            0.0            6.347483E-02   1.444741E-02  -3.800538E-01   0.0                           \r\n           135      G      0.0            0.0            2.500002E-01   5.690186E-02  -3.625703E-01   0.0                           \r\n           136      G      0.0            0.0            4.227104E-01   9.621188E-02  -3.250512E-01   0.0                           \r\n           137      G      0.0            0.0            5.720617E-01   1.302053E-01  -2.695693E-01   0.0                           \r\n           138      G      0.0            0.0            6.898004E-01   1.570036E-01  -1.991911E-01   0.0                           \r\n           139      G      0.0            0.0            7.694208E-01   1.751259E-01  -1.178059E-01   0.0                           \r\n           140      G      0.0            0.0            8.065228E-01   1.835705E-01  -2.991080E-02   0.0                           \r\n           141      G      0.0            0.0            7.990564E-01   1.818710E-01   5.963719E-02   0.0                           \r\n           142      G      0.0            0.0            7.474341E-01   1.701214E-01   1.458897E-01   0.0                           \r\n           143      G      0.0            0.0            6.545085E-01   1.489711E-01   2.240806E-01   0.0                           \r\n           144      G      0.0            0.0            5.254145E-01   1.195884E-01   2.898888E-01   0.0                           \r\n           145      G      0.0            0.0            3.672860E-01   8.359702E-02   3.396775E-01   0.0                           \r\n           146      G      0.0            0.0            1.888612E-01   4.298619E-02   3.706955E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            3.812287E-01   0.0                           \r\n           190      G      0.0            0.0           -9.876884E-01  -4.900643E-02   0.0            0.0                           \r\n           191      G      0.0            0.0           -9.603983E-01  -4.765258E-02  -1.086513E-01   0.0                           \r\n           192      G      0.0            0.0           -8.800366E-01  -4.366535E-02  -2.112977E-01   0.0                           \r\n           193      G      0.0            0.0           -7.510440E-01  -3.726498E-02  -3.022679E-01   0.0                           \r\n           194      G      0.0            0.0           -5.805486E-01  -2.880533E-02  -3.765351E-01   0.0                           \r\n           195      G      0.0            0.0           -3.779720E-01  -1.875394E-02  -4.299951E-01   0.0                           \r\n           196      G      0.0            0.0           -1.545085E-01  -7.666287E-03  -4.596933E-01   0.0                           \r\n           197      G      0.0            0.0            7.749323E-02   3.845133E-03  -4.639887E-01   0.0                           \r\n           198      G      0.0            0.0            3.052126E-01   1.514415E-02  -4.426437E-01   0.0                           \r\n           199      G      0.0            0.0            5.160658E-01   2.560626E-02  -3.968384E-01   0.0                           \r\n           200      G      0.0            0.0            6.984011E-01   3.465313E-02  -3.291037E-01   0.0                           \r\n           201      G      0.0            0.0            8.421426E-01   4.178518E-02  -2.431828E-01   0.0                           \r\n           202      G      0.0            0.0            9.393472E-01   4.660822E-02  -1.438236E-01   0.0                           \r\n           203      G      0.0            0.0            9.846434E-01   4.885574E-02  -3.651665E-02   0.0                           \r\n           204      G      0.0            0.0            9.755279E-01   4.840349E-02   7.280821E-02   0.0                           \r\n           205      G      0.0            0.0            9.125049E-01   4.527638E-02   1.781096E-01   0.0                           \r\n           206      G      0.0            0.0            7.990566E-01   3.964726E-02   2.735686E-01   0.0                           \r\n           207      G      0.0            0.0            6.414523E-01   3.182727E-02   3.539105E-01   0.0                           \r\n           208      G      0.0            0.0            4.484012E-01   2.224856E-02   4.146951E-01   0.0                           \r\n           209      G      0.0            0.0            2.305713E-01   1.144040E-02   4.525637E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.654234E-01   0.0                           \r\n           253      G      0.0            0.0           -9.510565E-01   9.680697E-02   0.0            0.0                           \r\n           254      G      0.0            0.0           -9.247788E-01   9.413227E-02  -1.046213E-01   0.0                           \r\n           255      G      0.0            0.0           -8.473975E-01   8.625571E-02  -2.034610E-01   0.0                           \r\n           256      G      0.0            0.0           -7.231891E-01   7.361265E-02  -2.910575E-01   0.0                           \r\n           257      G      0.0            0.0           -5.590170E-01   5.690177E-02  -3.625702E-01   0.0                           \r\n           258      G      0.0            0.0           -3.639536E-01   3.704648E-02  -4.140472E-01   0.0                           \r\n           259      G      0.0            0.0           -1.487780E-01   1.514399E-02  -4.426438E-01   0.0                           \r\n           260      G      0.0            0.0            7.461906E-02  -7.595419E-03  -4.467799E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            2.938927E-01  -2.991515E-02  -4.262269E-01   0.0                           \r\n           262      G      0.0            0.0            4.969257E-01  -5.058173E-02  -3.821203E-01   0.0                           \r\n           263      G      0.0            0.0            6.724985E-01  -6.845309E-02  -3.168977E-01   0.0                           \r\n           264      G      0.0            0.0            8.109089E-01  -8.254169E-02  -2.341635E-01   0.0                           \r\n           265      G      0.0            0.0            9.045082E-01  -9.206910E-02  -1.384894E-01   0.0                           \r\n           266      G      0.0            0.0            9.481244E-01  -9.650883E-02  -3.516241E-02   0.0                           \r\n           267      G      0.0            0.0            9.393473E-01  -9.561538E-02   7.010765E-02   0.0                           \r\n           268      G      0.0            0.0            8.786616E-01  -8.943813E-02   1.715037E-01   0.0                           \r\n           269      G      0.0            0.0            7.694209E-01  -7.831855E-02   2.634225E-01   0.0                           \r\n           270      G      0.0            0.0            6.176619E-01  -6.287113E-02   3.407846E-01   0.0                           \r\n           271      G      0.0            0.0            4.317707E-01  -4.394946E-02   3.993148E-01   0.0                           \r\n           272      G      0.0            0.0            2.220197E-01  -2.259916E-02   4.357788E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            4.481615E-01   0.0                           \r\n           316      G      0.0            0.0           -7.071068E-01   2.215183E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -6.875693E-01   2.153977E-01  -7.778561E-02   0.0                           \r\n           318      G      0.0            0.0           -6.300367E-01   1.973743E-01  -1.512725E-01   0.0                           \r\n           319      G      0.0            0.0           -5.376881E-01   1.684439E-01  -2.164001E-01   0.0                           \r\n           320      G      0.0            0.0           -4.156268E-01   1.302052E-01  -2.695695E-01   0.0                           \r\n           321      G      0.0            0.0           -2.705980E-01   8.477127E-02  -3.078425E-01   0.0                           \r\n           322      G      0.0            0.0           -1.106157E-01   3.465296E-02  -3.291041E-01   0.0                           \r\n           323      G      0.0            0.0            5.547912E-02  -1.738018E-02  -3.321791E-01   0.0                           \r\n           324      G      0.0            0.0            2.185081E-01  -6.845293E-02  -3.168978E-01   0.0                           \r\n           325      G      0.0            0.0            3.694623E-01  -1.157430E-01  -2.841048E-01   0.0                           \r\n           326      G      0.0            0.0            4.999999E-01  -1.566371E-01  -2.356122E-01   0.0                           \r\n           327      G      0.0            0.0            6.029074E-01  -1.888754E-01  -1.740997E-01   0.0                           \r\n           328      G      0.0            0.0            6.724983E-01  -2.106764E-01  -1.029663E-01   0.0                           \r\n           329      G      0.0            0.0            7.049267E-01  -2.208354E-01  -2.614300E-02   0.0                           \r\n           330      G      0.0            0.0            6.984009E-01  -2.187910E-01   5.212483E-02   0.0                           \r\n           331      G      0.0            0.0            6.532813E-01  -2.046562E-01   1.275123E-01   0.0                           \r\n           332      G      0.0            0.0            5.720614E-01  -1.792121E-01   1.958535E-01   0.0                           \r\n           333      G      0.0            0.0            4.592291E-01  -1.438647E-01   2.533719E-01   0.0                           \r\n           334      G      0.0            0.0            3.210198E-01  -1.005671E-01   2.968890E-01   0.0                           \r\n           335      G      0.0            0.0            1.650708E-01  -5.171232E-02   3.239998E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            3.332062E-01   0.0                           \r\n           379      G      0.0            0.0           -3.090170E-01   2.979415E-01   0.0            0.0                           \r\n           380      G      0.0            0.0           -3.004788E-01   2.897094E-01  -3.399359E-02   0.0                           \r\n           381      G      0.0            0.0           -2.753361E-01   2.654678E-01  -6.610855E-02   0.0                           \r\n           382      G      0.0            0.0           -2.349783E-01   2.265565E-01  -9.457039E-02   0.0                           \r\n           383      G      0.0            0.0           -1.816355E-01   1.751256E-01  -1.178062E-01   0.0                           \r\n           384      G      0.0            0.0           -1.182556E-01   1.140173E-01  -1.345320E-01   0.0                           \r\n           385      G      0.0            0.0           -4.834080E-02   4.660837E-02  -1.438237E-01   0.0                           \r\n           386      G      0.0            0.0            2.424529E-02  -2.337618E-02  -1.451676E-01   0.0                           \r\n           387      G      0.0            0.0            9.549158E-02  -9.206896E-02  -1.384894E-01   0.0                           \r\n           388      G      0.0            0.0            1.614610E-01  -1.556739E-01  -1.241583E-01   0.0                           \r\n           389      G      0.0            0.0            2.185079E-01  -2.106763E-01  -1.029662E-01   0.0                           \r\n           390      G      0.0            0.0            2.634801E-01  -2.540367E-01  -7.608418E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            2.938924E-01  -2.833591E-01  -4.499786E-02   0.0                           \r\n           392      G      0.0            0.0            3.080641E-01  -2.970230E-01  -1.142497E-02   0.0                           \r\n           393      G      0.0            0.0            3.052122E-01  -2.942733E-01   2.277930E-02   0.0                           \r\n           394      G      0.0            0.0            2.854943E-01  -2.752621E-01   5.572488E-02   0.0                           \r\n           395      G      0.0            0.0            2.499999E-01  -2.410397E-01   8.559115E-02   0.0                           \r\n           396      G      0.0            0.0            2.006904E-01  -1.934975E-01   1.107276E-01   0.0                           \r\n           397      G      0.0            0.0            1.402907E-01  -1.352627E-01   1.297451E-01   0.0                           \r\n           398      G      0.0            0.0            7.213856E-02  -6.955313E-02   1.415931E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            1.456164E-01   0.0                           \r\n           442      G      0.0            0.0            1.564343E-01   3.094173E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            1.521121E-01   3.008682E-01   1.720839E-02   0.0                           \r\n           444      G      0.0            0.0            1.393842E-01   2.756929E-01   3.346626E-02   0.0                           \r\n           445      G      0.0            0.0            1.189537E-01   2.352829E-01   4.787468E-02   0.0                           \r\n           446      G      0.0            0.0            9.194982E-02   1.818709E-01   5.963738E-02   0.0                           \r\n           447      G      0.0            0.0            5.986483E-02   1.184088E-01   6.810445E-02   0.0                           \r\n           448      G      0.0            0.0            2.447175E-02   4.840345E-02   7.280812E-02   0.0                           \r\n           449      G      0.0            0.0           -1.227366E-02  -2.427667E-02   7.348850E-02   0.0                           \r\n           450      G      0.0            0.0           -4.834085E-02  -9.561523E-02   7.010795E-02   0.0                           \r\n           451      G      0.0            0.0           -8.173677E-02  -1.616701E-01   6.285310E-02   0.0                           \r\n           452      G      0.0            0.0           -1.106159E-01  -2.187911E-01   5.212496E-02   0.0                           \r\n           453      G      0.0            0.0           -1.333823E-01  -2.638216E-01   3.851645E-02   0.0                           \r\n           454      G      0.0            0.0           -1.487781E-01  -2.942733E-01   2.277946E-02   0.0                           \r\n           455      G      0.0            0.0           -1.559523E-01  -3.084634E-01   5.783676E-03   0.0                           \r\n           456      G      0.0            0.0           -1.545085E-01  -3.056078E-01  -1.153172E-02   0.0                           \r\n           457      G      0.0            0.0           -1.445266E-01  -2.858643E-01  -2.820992E-02   0.0                           \r\n           458      G      0.0            0.0           -1.265581E-01  -2.503238E-01  -4.332917E-02   0.0                           \r\n           459      G      0.0            0.0           -1.015960E-01  -2.009504E-01  -5.605397E-02   0.0                           \r\n           460      G      0.0            0.0           -7.101966E-02  -1.404724E-01  -6.568120E-02   0.0                           \r\n           461      G      0.0            0.0           -3.651886E-02  -7.223198E-02  -7.167892E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -7.371573E-02   0.0                           \r\n           505      G      0.0            0.0            5.877852E-01   2.534442E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            5.715446E-01   2.464415E-01   6.465939E-02   0.0                           \r\n           507      G      0.0            0.0            5.237204E-01   2.258204E-01   1.257458E-01   0.0                           \r\n           508      G      0.0            0.0            4.469554E-01   1.927204E-01   1.798836E-01   0.0                           \r\n           509      G      0.0            0.0            3.454914E-01   1.489707E-01   2.240808E-01   0.0                           \r\n           510      G      0.0            0.0            2.249356E-01   9.698882E-02   2.558952E-01   0.0                           \r\n           511      G      0.0            0.0            9.194979E-02   3.964730E-02   2.735689E-01   0.0                           \r\n           512      G      0.0            0.0           -4.611714E-02  -1.988516E-02   2.761250E-01   0.0                           \r\n           513      G      0.0            0.0           -1.816356E-01  -7.831873E-02   2.634225E-01   0.0                           \r\n           514      G      0.0            0.0           -3.071169E-01  -1.324243E-01   2.361634E-01   0.0                           \r\n           515      G      0.0            0.0           -4.156268E-01  -1.792121E-01   1.958537E-01   0.0                           \r\n           516      G      0.0            0.0           -5.011692E-01  -2.160967E-01   1.447211E-01   0.0                           \r\n           517      G      0.0            0.0           -5.590169E-01  -2.410397E-01   8.559113E-02   0.0                           \r\n           518      G      0.0            0.0           -5.859731E-01  -2.526628E-01   2.173137E-02   0.0                           \r\n           519      G      0.0            0.0           -5.805484E-01  -2.503237E-01  -4.332917E-02   0.0                           \r\n           520      G      0.0            0.0           -5.430424E-01  -2.341517E-01  -1.059953E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -4.755280E-01  -2.050405E-01  -1.628042E-01   0.0                           \r\n           522      G      0.0            0.0           -3.817357E-01  -1.645987E-01  -2.106164E-01   0.0                           \r\n           523      G      0.0            0.0           -2.668487E-01  -1.150611E-01  -2.467899E-01   0.0                           \r\n           524      G      0.0            0.0           -1.372156E-01  -5.916532E-02  -2.693258E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -2.769788E-01   0.0                           \r\n           568      G      0.0            0.0            8.910065E-01   1.422236E-01   0.0            0.0                           \r\n           569      G      0.0            0.0            8.663879E-01   1.382939E-01   9.801535E-02   0.0                           \r\n           570      G      0.0            0.0            7.938926E-01   1.267221E-01   1.906145E-01   0.0                           \r\n           571      G      0.0            0.0            6.775266E-01   1.081476E-01   2.726803E-01   0.0                           \r\n           572      G      0.0            0.0            5.237203E-01   8.359689E-02   3.396775E-01   0.0                           \r\n           573      G      0.0            0.0            3.409733E-01   5.442656E-02   3.879041E-01   0.0                           \r\n           574      G      0.0            0.0            1.393840E-01   2.224863E-02   4.146951E-01   0.0                           \r\n           575      G      0.0            0.0           -6.990769E-02  -1.115875E-02   4.185700E-01   0.0                           \r\n           576      G      0.0            0.0           -2.753362E-01  -4.394950E-02   3.993147E-01   0.0                           \r\n           577      G      0.0            0.0           -4.655497E-01  -7.431163E-02   3.579932E-01   0.0                           \r\n           578      G      0.0            0.0           -6.300368E-01  -1.005673E-01   2.968888E-01   0.0                           \r\n           579      G      0.0            0.0           -7.597079E-01  -1.212655E-01   2.193784E-01   0.0                           \r\n           580      G      0.0            0.0           -8.473974E-01  -1.352626E-01   1.297451E-01   0.0                           \r\n           581      G      0.0            0.0           -8.882596E-01  -1.417850E-01   3.294202E-02   0.0                           \r\n           582      G      0.0            0.0           -8.800365E-01  -1.404725E-01  -6.568143E-02   0.0                           \r\n           583      G      0.0            0.0           -8.231823E-01  -1.313974E-01  -1.606753E-01   0.0                           \r\n           584      G      0.0            0.0           -7.208390E-01  -1.150612E-01  -2.467901E-01   0.0                           \r\n           585      G      0.0            0.0           -5.786620E-01  -9.236678E-02  -3.192672E-01   0.0                           \r\n           586      G      0.0            0.0           -4.045082E-01  -6.456810E-02  -3.741016E-01   0.0                           \r\n           587      G      0.0            0.0           -2.080012E-01  -3.320140E-02  -4.082632E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -4.198641E-01   0.0                           \r\n           631      G      0.0            0.0            1.000000E+00   6.066520E-08   0.0            0.0                           \r\n           632      G      0.0            0.0            9.723699E-01   7.818923E-08   1.100052E-01   0.0                           \r\n           633      G      0.0            0.0            8.910065E-01   7.099440E-08   2.139317E-01   0.0                           \r\n           634      G      0.0            0.0            7.604059E-01   8.317058E-08   3.060362E-01   0.0                           \r\n           635      G      0.0            0.0            5.877851E-01   1.164290E-07   3.812290E-01   0.0                           \r\n           636      G      0.0            0.0            3.826832E-01   9.670858E-08   4.353551E-01   0.0                           \r\n           637      G      0.0            0.0            1.564342E-01   2.757321E-08   4.654233E-01   0.0                           \r\n           638      G      0.0            0.0           -7.845932E-02  -2.188298E-08   4.697721E-01   0.0                           \r\n           639      G      0.0            0.0           -3.090172E-01  -4.937218E-08   4.481613E-01   0.0                           \r\n           640      G      0.0            0.0           -5.224987E-01  -5.722226E-08   4.017851E-01   0.0                           \r\n           641      G      0.0            0.0           -7.071069E-01  -5.475516E-08   3.332062E-01   0.0                           \r\n           642      G      0.0            0.0           -8.526403E-01  -6.935602E-08   2.462141E-01   0.0                           \r\n           643      G      0.0            0.0           -9.510565E-01  -1.010278E-07   1.456162E-01   0.0                           \r\n           644      G      0.0            0.0           -9.969172E-01  -1.217188E-07   3.697163E-02   0.0                           \r\n           645      G      0.0            0.0           -9.876881E-01  -1.084432E-07  -7.371601E-02   0.0                           \r\n           646      G      0.0            0.0           -9.238792E-01  -8.728736E-08  -1.803301E-01   0.0                           \r\n           647      G      0.0            0.0           -8.090166E-01  -1.004294E-07  -2.769790E-01   0.0                           \r\n           648      G      0.0            0.0           -6.494477E-01  -1.403167E-07  -3.583221E-01   0.0                           \r\n           649      G      0.0            0.0           -4.539902E-01  -1.250680E-07  -4.198642E-01   0.0                           \r\n           650      G      0.0            0.0           -2.334452E-01  -5.703641E-08  -4.582045E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -4.712245E-01   0.0                           \r\n           694      G      0.0            0.0            8.910066E-01  -1.422235E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            8.663881E-01  -1.382938E-01   9.801540E-02   0.0                           \r\n           696      G      0.0            0.0            7.938927E-01  -1.267220E-01   1.906146E-01   0.0                           \r\n           697      G      0.0            0.0            6.775267E-01  -1.081475E-01   2.726803E-01   0.0                           \r\n           698      G      0.0            0.0            5.237204E-01  -8.359686E-02   3.396776E-01   0.0                           \r\n           699      G      0.0            0.0            3.409733E-01  -5.442657E-02   3.879042E-01   0.0                           \r\n           700      G      0.0            0.0            1.393840E-01  -2.224865E-02   4.146952E-01   0.0                           \r\n           701      G      0.0            0.0           -6.990775E-02   1.115876E-02   4.185701E-01   0.0                           \r\n           702      G      0.0            0.0           -2.753364E-01   4.394950E-02   3.993148E-01   0.0                           \r\n           703      G      0.0            0.0           -4.655498E-01   7.431155E-02   3.579932E-01   0.0                           \r\n           704      G      0.0            0.0           -6.300368E-01   1.005672E-01   2.968889E-01   0.0                           \r\n           705      G      0.0            0.0           -7.597080E-01   1.212655E-01   2.193784E-01   0.0                           \r\n           706      G      0.0            0.0           -8.473975E-01   1.352626E-01   1.297451E-01   0.0                           \r\n           707      G      0.0            0.0           -8.882598E-01   1.417851E-01   3.294203E-02   0.0                           \r\n           708      G      0.0            0.0           -8.800366E-01   1.404725E-01  -6.568144E-02   0.0                           \r\n           709      G      0.0            0.0           -8.231825E-01   1.313973E-01  -1.606753E-01   0.0                           \r\n           710      G      0.0            0.0           -7.208391E-01   1.150612E-01  -2.467901E-01   0.0                           \r\n           711      G      0.0            0.0           -5.786622E-01   9.236675E-02  -3.192673E-01   0.0                           \r\n           712      G      0.0            0.0           -4.045083E-01   6.456812E-02  -3.741017E-01   0.0                           \r\n           713      G      0.0            0.0           -2.080012E-01   3.320142E-02  -4.082633E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -4.198642E-01   0.0                           \r\n           757      G      0.0            0.0            5.877855E-01  -2.534442E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            5.715449E-01  -2.464416E-01   6.465944E-02   0.0                           \r\n           759      G      0.0            0.0            5.237207E-01  -2.258205E-01   1.257459E-01   0.0                           \r\n           760      G      0.0            0.0            4.469556E-01  -1.927205E-01   1.798836E-01   0.0                           \r\n           761      G      0.0            0.0            3.454916E-01  -1.489707E-01   2.240809E-01   0.0                           \r\n           762      G      0.0            0.0            2.249357E-01  -9.698882E-02   2.558954E-01   0.0                           \r\n           763      G      0.0            0.0            9.194981E-02  -3.964732E-02   2.735690E-01   0.0                           \r\n           764      G      0.0            0.0           -4.611717E-02   1.988508E-02   2.761251E-01   0.0                           \r\n           765      G      0.0            0.0           -1.816357E-01   7.831864E-02   2.634227E-01   0.0                           \r\n           766      G      0.0            0.0           -3.071170E-01   1.324243E-01   2.361635E-01   0.0                           \r\n           767      G      0.0            0.0           -4.156270E-01   1.792122E-01   1.958537E-01   0.0                           \r\n           768      G      0.0            0.0           -5.011694E-01   2.160968E-01   1.447211E-01   0.0                           \r\n           769      G      0.0            0.0           -5.590171E-01   2.410398E-01   8.559114E-02   0.0                           \r\n           770      G      0.0            0.0           -5.859733E-01   2.526629E-01   2.173142E-02   0.0                           \r\n           771      G      0.0            0.0           -5.805486E-01   2.503239E-01  -4.332914E-02   0.0                           \r\n           772      G      0.0            0.0           -5.430427E-01   2.341519E-01  -1.059953E-01   0.0                           \r\n           773      G      0.0            0.0           -4.755282E-01   2.050406E-01  -1.628042E-01   0.0                           \r\n           774      G      0.0            0.0           -3.817359E-01   1.645988E-01  -2.106165E-01   0.0                           \r\n           775      G      0.0            0.0           -2.668488E-01   1.150612E-01  -2.467900E-01   0.0                           \r\n           776      G      0.0            0.0           -1.372157E-01   5.916532E-02  -2.693259E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -2.769789E-01   0.0                           \r\n           820      G      0.0            0.0            1.564345E-01  -3.094175E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            1.521122E-01  -3.008683E-01   1.720857E-02   0.0                           \r\n           822      G      0.0            0.0            1.393842E-01  -2.756930E-01   3.346629E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            1.189538E-01  -2.352829E-01   4.787464E-02   0.0                           \r\n           824      G      0.0            0.0            9.194990E-02  -1.818710E-01   5.963740E-02   0.0                           \r\n           825      G      0.0            0.0            5.986488E-02  -1.184089E-01   6.810457E-02   0.0                           \r\n           826      G      0.0            0.0            2.447172E-02  -4.840351E-02   7.280827E-02   0.0                           \r\n           827      G      0.0            0.0           -1.227374E-02   2.427668E-02   7.348858E-02   0.0                           \r\n           828      G      0.0            0.0           -4.834094E-02   9.561527E-02   7.010788E-02   0.0                           \r\n           829      G      0.0            0.0           -8.173682E-02   1.616702E-01   6.285304E-02   0.0                           \r\n           830      G      0.0            0.0           -1.106159E-01   2.187911E-01   5.212492E-02   0.0                           \r\n           831      G      0.0            0.0           -1.333823E-01   2.638217E-01   3.851641E-02   0.0                           \r\n           832      G      0.0            0.0           -1.487781E-01   2.942734E-01   2.277946E-02   0.0                           \r\n           833      G      0.0            0.0           -1.559523E-01   3.084635E-01   5.783646E-03   0.0                           \r\n           834      G      0.0            0.0           -1.545085E-01   3.056079E-01  -1.153176E-02   0.0                           \r\n           835      G      0.0            0.0           -1.445266E-01   2.858643E-01  -2.820985E-02   0.0                           \r\n           836      G      0.0            0.0           -1.265581E-01   2.503238E-01  -4.332907E-02   0.0                           \r\n           837      G      0.0            0.0           -1.015960E-01   2.009504E-01  -5.605393E-02   0.0                           \r\n           838      G      0.0            0.0           -7.101973E-02   1.404725E-01  -6.568123E-02   0.0                           \r\n           839      G      0.0            0.0           -3.651889E-02   7.223202E-02  -7.167900E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -7.371578E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -3.132744E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -3.046186E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -2.791296E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -2.382157E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.841381E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.198849E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -4.900685E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.457929E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            9.680714E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            1.636854E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            2.215184E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            2.671103E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            2.979416E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            3.123086E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            3.094173E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            2.894276E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            2.534441E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            2.034553E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            1.422235E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            7.313240E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -6.294363E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -6.277367E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -6.223019E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -6.123889E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -5.989821E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -5.820484E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -5.619046E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -5.373752E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -5.098630E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -4.790339E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -4.453901E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -4.090217E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.704227E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -3.290935E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -2.857206E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -2.405574E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -1.944825E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -1.468671E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -9.819738E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -4.867781E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -8.086357E-01  -3.702650E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -8.062281E-01  -3.690664E-01  -9.521086E-03   0.0                           \r\n            66      G      0.0            0.0           -7.989346E-01  -3.655531E-01  -1.961426E-02   0.0                           \r\n            67      G      0.0            0.0           -7.864724E-01  -3.598218E-01  -2.980503E-02   0.0                           \r\n            68      G      0.0            0.0           -7.690240E-01  -3.519238E-01  -3.959073E-02   0.0                           \r\n            69      G      0.0            0.0           -7.468503E-01  -3.417797E-01  -4.827172E-02   0.0                           \r\n            70      G      0.0            0.0           -7.204963E-01  -3.294532E-01  -5.670271E-02   0.0                           \r\n            71      G      0.0            0.0           -6.897206E-01  -3.152121E-01  -6.552676E-02   0.0                           \r\n            72      G      0.0            0.0           -6.546407E-01  -2.992361E-01  -7.401096E-02   0.0                           \r\n            73      G      0.0            0.0           -6.153241E-01  -2.814332E-01  -8.214156E-02   0.0                           \r\n            74      G      0.0            0.0           -5.721025E-01  -2.615659E-01  -8.964807E-02   0.0                           \r\n            75      G      0.0            0.0           -5.253153E-01  -2.398237E-01  -9.613550E-02   0.0                           \r\n            76      G      0.0            0.0           -4.754935E-01  -2.169246E-01  -1.020664E-01   0.0                           \r\n            77      G      0.0            0.0           -4.227013E-01  -1.930961E-01  -1.076149E-01   0.0                           \r\n            78      G      0.0            0.0           -3.673322E-01  -1.679936E-01  -1.125277E-01   0.0                           \r\n            79      G      0.0            0.0           -3.096233E-01  -1.417831E-01  -1.166784E-01   0.0                           \r\n            80      G      0.0            0.0           -2.501191E-01  -1.145623E-01  -1.198743E-01   0.0                           \r\n            81      G      0.0            0.0           -1.891413E-01  -8.654974E-02  -1.223757E-01   0.0                           \r\n            82      G      0.0            0.0           -1.269856E-01  -5.805868E-02  -1.248777E-01   0.0                           \r\n            83      G      0.0            0.0           -6.366159E-02  -2.922430E-02  -1.265071E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -1.265305E-01   0.0                           \r\n           127      G      0.0            0.0           -9.509017E-01   1.947361E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -9.480651E-01   1.941653E-01  -1.132008E-02   0.0                           \r\n           129      G      0.0            0.0           -9.393355E-01   1.924733E-01  -2.344229E-02   0.0                           \r\n           130      G      0.0            0.0           -9.245981E-01   1.898095E-01  -3.492620E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -9.043115E-01   1.856284E-01  -4.586704E-02   0.0                           \r\n           132      G      0.0            0.0           -8.785005E-01   1.799590E-01  -5.659243E-02   0.0                           \r\n           133      G      0.0            0.0           -8.474072E-01   1.733033E-01  -6.709202E-02   0.0                           \r\n           134      G      0.0            0.0           -8.110402E-01   1.657224E-01  -7.731657E-02   0.0                           \r\n           135      G      0.0            0.0           -7.697248E-01   1.572514E-01  -8.695730E-02   0.0                           \r\n           136      G      0.0            0.0           -7.236441E-01   1.478751E-01  -9.607911E-02   0.0                           \r\n           137      G      0.0            0.0           -6.730399E-01   1.374445E-01  -1.052587E-01   0.0                           \r\n           138      G      0.0            0.0           -6.178931E-01   1.260499E-01  -1.136418E-01   0.0                           \r\n           139      G      0.0            0.0           -5.589764E-01   1.139570E-01  -1.205680E-01   0.0                           \r\n           140      G      0.0            0.0           -4.967145E-01   1.013900E-01  -1.267233E-01   0.0                           \r\n           141      G      0.0            0.0           -4.316226E-01   8.821603E-02  -1.320444E-01   0.0                           \r\n           142      G      0.0            0.0           -3.639819E-01   7.421777E-02  -1.367262E-01   0.0                           \r\n           143      G      0.0            0.0           -2.941125E-01   5.953403E-02  -1.410888E-01   0.0                           \r\n           144      G      0.0            0.0           -2.221730E-01   4.485097E-02  -1.445808E-01   0.0                           \r\n           145      G      0.0            0.0           -1.488509E-01   3.021045E-02  -1.469101E-01   0.0                           \r\n           146      G      0.0            0.0           -7.456653E-02   1.520869E-02  -1.481706E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -1.482518E-01   0.0                           \r\n           190      G      0.0            0.0           -3.087128E-01   5.980666E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -3.079802E-01   5.966146E-01  -3.092365E-03   0.0                           \r\n           192      G      0.0            0.0           -3.053582E-01   5.913190E-01  -7.524762E-03   0.0                           \r\n           193      G      0.0            0.0           -3.004615E-01   5.820718E-01  -1.176754E-02   0.0                           \r\n           194      G      0.0            0.0           -2.936797E-01   5.692344E-01  -1.516533E-02   0.0                           \r\n           195      G      0.0            0.0           -2.852446E-01   5.529827E-01  -1.827643E-02   0.0                           \r\n           196      G      0.0            0.0           -2.752803E-01   5.334817E-01  -2.141315E-02   0.0                           \r\n           197      G      0.0            0.0           -2.636553E-01   5.104772E-01  -2.479494E-02   0.0                           \r\n           198      G      0.0            0.0           -2.502923E-01   4.841849E-01  -2.836950E-02   0.0                           \r\n           199      G      0.0            0.0           -2.351674E-01   4.550079E-01  -3.158534E-02   0.0                           \r\n           200      G      0.0            0.0           -2.185860E-01   4.234485E-01  -3.438905E-02   0.0                           \r\n           201      G      0.0            0.0           -2.006171E-01   3.890959E-01  -3.696205E-02   0.0                           \r\n           202      G      0.0            0.0           -1.814669E-01   3.522298E-01  -3.919117E-02   0.0                           \r\n           203      G      0.0            0.0           -1.612266E-01   3.130853E-01  -4.120704E-02   0.0                           \r\n           204      G      0.0            0.0           -1.400575E-01   2.719990E-01  -4.296134E-02   0.0                           \r\n           205      G      0.0            0.0           -1.180943E-01   2.293547E-01  -4.421183E-02   0.0                           \r\n           206      G      0.0            0.0           -9.557485E-02   1.853479E-01  -4.540210E-02   0.0                           \r\n           207      G      0.0            0.0           -7.238116E-02   1.401096E-01  -4.674583E-02   0.0                           \r\n           208      G      0.0            0.0           -4.861442E-02   9.387664E-02  -4.776092E-02   0.0                           \r\n           209      G      0.0            0.0           -2.440065E-02   4.705184E-02  -4.841700E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0           -4.854326E-02   0.0                           \r\n           253      G      0.0            0.0            5.879519E-01   5.095857E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            5.860741E-01   5.078630E-01   7.426921E-03   0.0                           \r\n           255      G      0.0            0.0            5.805717E-01   5.031832E-01   1.436816E-02   0.0                           \r\n           256      G      0.0            0.0            5.716022E-01   4.953702E-01   2.136112E-02   0.0                           \r\n           257      G      0.0            0.0            5.590583E-01   4.844903E-01   2.843910E-02   0.0                           \r\n           258      G      0.0            0.0            5.430342E-01   4.706154E-01   3.527126E-02   0.0                           \r\n           259      G      0.0            0.0            5.236387E-01   4.538691E-01   4.174291E-02   0.0                           \r\n           260      G      0.0            0.0            5.010511E-01   4.344322E-01   4.812663E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            4.752986E-01   4.123883E-01   5.408889E-02   0.0                           \r\n           262      G      0.0            0.0            4.467475E-01   3.877400E-01   5.942224E-02   0.0                           \r\n           263      G      0.0            0.0            4.155411E-01   3.605527E-01   6.454048E-02   0.0                           \r\n           264      G      0.0            0.0            3.818519E-01   3.310890E-01   6.939778E-02   0.0                           \r\n           265      G      0.0            0.0            3.457662E-01   2.997019E-01   7.399581E-02   0.0                           \r\n           266      G      0.0            0.0            3.074402E-01   2.665747E-01   7.837744E-02   0.0                           \r\n           267      G      0.0            0.0            2.670085E-01   2.316377E-01   8.217667E-02   0.0                           \r\n           268      G      0.0            0.0            2.248987E-01   1.951067E-01   8.520476E-02   0.0                           \r\n           269      G      0.0            0.0            1.814155E-01   1.574496E-01   8.753213E-02   0.0                           \r\n           270      G      0.0            0.0            1.369509E-01   1.188955E-01   8.922958E-02   0.0                           \r\n           271      G      0.0            0.0            9.172512E-02   7.967266E-02   9.046156E-02   0.0                           \r\n           272      G      0.0            0.0            4.601692E-02   3.998489E-02   9.123617E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            9.162125E-02   0.0                           \r\n           316      G      0.0            0.0            1.000000E+00  -2.154228E-05   0.0            0.0                           \r\n           317      G      0.0            0.0            9.968389E-01   3.793792E-05   1.253209E-02   0.0                           \r\n           318      G      0.0            0.0            9.874922E-01   3.504084E-05   2.454717E-02   0.0                           \r\n           319      G      0.0            0.0            9.721705E-01  -1.660696E-05   3.640511E-02   0.0                           \r\n           320      G      0.0            0.0            9.508757E-01   4.630188E-05   4.820926E-02   0.0                           \r\n           321      G      0.0            0.0            9.236807E-01   2.285335E-04   5.992806E-02   0.0                           \r\n           322      G      0.0            0.0            8.906733E-01   2.436442E-04   7.111781E-02   0.0                           \r\n           323      G      0.0            0.0            8.522571E-01   9.548256E-05   8.159380E-02   0.0                           \r\n           324      G      0.0            0.0            8.086880E-01   1.377794E-05   9.149859E-02   0.0                           \r\n           325      G      0.0            0.0            7.602822E-01  -1.608700E-05   1.009453E-01   0.0                           \r\n           326      G      0.0            0.0            7.071840E-01  -1.033970E-05   1.100386E-01   0.0                           \r\n           327      G      0.0            0.0            6.496657E-01   1.846502E-05   1.185920E-01   0.0                           \r\n           328      G      0.0            0.0            5.880454E-01   9.453443E-06   1.261633E-01   0.0                           \r\n           329      G      0.0            0.0            5.228562E-01  -5.857814E-05   1.330129E-01   0.0                           \r\n           330      G      0.0            0.0            4.543161E-01  -7.361903E-05   1.393129E-01   0.0                           \r\n           331      G      0.0            0.0            3.828865E-01  -1.494660E-05   1.445865E-01   0.0                           \r\n           332      G      0.0            0.0            3.090392E-01   8.570198E-05   1.488221E-01   0.0                           \r\n           333      G      0.0            0.0            2.333433E-01   3.880574E-05   1.520091E-01   0.0                           \r\n           334      G      0.0            0.0            1.562959E-01  -1.208072E-04   1.541214E-01   0.0                           \r\n           335      G      0.0            0.0            7.842028E-02  -1.856650E-04   1.554658E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.561197E-01   0.0                           \r\n           379      G      0.0            0.0            5.877482E-01  -5.095036E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            5.858794E-01  -5.079150E-01   7.385908E-03   0.0                           \r\n           381      G      0.0            0.0            5.803818E-01  -5.031859E-01   1.444989E-02   0.0                           \r\n           382      G      0.0            0.0            5.713402E-01  -4.953452E-01   2.152637E-02   0.0                           \r\n           383      G      0.0            0.0            5.587656E-01  -4.845114E-01   2.837079E-02   0.0                           \r\n           384      G      0.0            0.0            5.428157E-01  -4.707334E-01   3.508354E-02   0.0                           \r\n           385      G      0.0            0.0            5.234847E-01  -4.540223E-01   4.170053E-02   0.0                           \r\n           386      G      0.0            0.0            5.009421E-01  -4.344467E-01   4.791515E-02   0.0                           \r\n           387      G      0.0            0.0            4.753416E-01  -4.122031E-01   5.379180E-02   0.0                           \r\n           388      G      0.0            0.0            4.468773E-01  -3.875194E-01   5.934215E-02   0.0                           \r\n           389      G      0.0            0.0            4.157070E-01  -3.605245E-01   6.449464E-02   0.0                           \r\n           390      G      0.0            0.0            3.820353E-01  -3.311815E-01   6.939943E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.459279E-01  -2.996642E-01   7.406206E-02   0.0                           \r\n           392      G      0.0            0.0            3.075930E-01  -2.663160E-01   7.831141E-02   0.0                           \r\n           393      G      0.0            0.0            2.672361E-01  -2.313554E-01   8.201315E-02   0.0                           \r\n           394      G      0.0            0.0            2.252067E-01  -1.949967E-01   8.502594E-02   0.0                           \r\n           395      G      0.0            0.0            1.818091E-01  -1.574521E-01   8.739666E-02   0.0                           \r\n           396      G      0.0            0.0            1.373442E-01  -1.188977E-01   8.938196E-02   0.0                           \r\n           397      G      0.0            0.0            9.198773E-02  -7.959259E-02   9.078503E-02   0.0                           \r\n           398      G      0.0            0.0            4.613131E-02  -3.985922E-02   9.148927E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            9.181158E-02   0.0                           \r\n           442      G      0.0            0.0           -3.088142E-01  -5.989698E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -3.079944E-01  -5.971643E-01  -3.393834E-03   0.0                           \r\n           444      G      0.0            0.0           -3.052526E-01  -5.917303E-01  -7.535235E-03   0.0                           \r\n           445      G      0.0            0.0           -3.004481E-01  -5.825107E-01  -1.145926E-02   0.0                           \r\n           446      G      0.0            0.0           -2.937936E-01  -5.695771E-01  -1.500676E-02   0.0                           \r\n           447      G      0.0            0.0           -2.853863E-01  -5.531875E-01  -1.837135E-02   0.0                           \r\n           448      G      0.0            0.0           -2.753153E-01  -5.334568E-01  -2.170788E-02   0.0                           \r\n           449      G      0.0            0.0           -2.635286E-01  -5.105090E-01  -2.512049E-02   0.0                           \r\n           450      G      0.0            0.0           -2.500506E-01  -4.844567E-01  -2.847574E-02   0.0                           \r\n           451      G      0.0            0.0           -2.349549E-01  -4.553885E-01  -3.142937E-02   0.0                           \r\n           452      G      0.0            0.0           -2.184730E-01  -4.234799E-01  -3.414008E-02   0.0                           \r\n           453      G      0.0            0.0           -2.006219E-01  -3.889868E-01  -3.676208E-02   0.0                           \r\n           454      G      0.0            0.0           -1.815496E-01  -3.521624E-01  -3.906662E-02   0.0                           \r\n           455      G      0.0            0.0           -1.613643E-01  -3.131610E-01  -4.111691E-02   0.0                           \r\n           456      G      0.0            0.0           -1.402237E-01  -2.721159E-01  -4.290815E-02   0.0                           \r\n           457      G      0.0            0.0           -1.182505E-01  -2.292918E-01  -4.437034E-02   0.0                           \r\n           458      G      0.0            0.0           -9.561197E-02  -1.851488E-01  -4.567363E-02   0.0                           \r\n           459      G      0.0            0.0           -7.232092E-02  -1.399611E-01  -4.685241E-02   0.0                           \r\n           460      G      0.0            0.0           -4.851909E-02  -9.385026E-02  -4.776803E-02   0.0                           \r\n           461      G      0.0            0.0           -2.432841E-02  -4.709893E-02  -4.831123E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -4.838413E-02   0.0                           \r\n           505      G      0.0            0.0           -9.509665E-01  -1.946230E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -9.480470E-01  -1.939810E-01  -1.154510E-02   0.0                           \r\n           507      G      0.0            0.0           -9.393157E-01  -1.921052E-01  -2.322918E-02   0.0                           \r\n           508      G      0.0            0.0           -9.246843E-01  -1.890716E-01  -3.486489E-02   0.0                           \r\n           509      G      0.0            0.0           -9.043243E-01  -1.849213E-01  -4.606516E-02   0.0                           \r\n           510      G      0.0            0.0           -8.784103E-01  -1.796531E-01  -5.688408E-02   0.0                           \r\n           511      G      0.0            0.0           -8.471528E-01  -1.731905E-01  -6.735621E-02   0.0                           \r\n           512      G      0.0            0.0           -8.107184E-01  -1.656064E-01  -7.740351E-02   0.0                           \r\n           513      G      0.0            0.0           -7.693437E-01  -1.570966E-01  -8.709101E-02   0.0                           \r\n           514      G      0.0            0.0           -7.231756E-01  -1.477769E-01  -9.634310E-02   0.0                           \r\n           515      G      0.0            0.0           -6.725270E-01  -1.375239E-01  -1.049530E-01   0.0                           \r\n           516      G      0.0            0.0           -6.177095E-01  -1.264045E-01  -1.128503E-01   0.0                           \r\n           517      G      0.0            0.0           -5.591329E-01  -1.144748E-01  -1.199450E-01   0.0                           \r\n           518      G      0.0            0.0           -4.971661E-01  -1.018332E-01  -1.262854E-01   0.0                           \r\n           519      G      0.0            0.0           -4.321726E-01  -8.858085E-02  -1.320646E-01   0.0                           \r\n           520      G      0.0            0.0           -3.644283E-01  -7.480221E-02  -1.370969E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -2.944016E-01  -6.050330E-02  -1.412116E-01   0.0                           \r\n           522      G      0.0            0.0           -2.224896E-01  -4.574275E-02  -1.445339E-01   0.0                           \r\n           523      G      0.0            0.0           -1.491425E-01  -3.062907E-02  -1.469669E-01   0.0                           \r\n           524      G      0.0            0.0           -7.480336E-02  -1.535852E-02  -1.484267E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -1.488483E-01   0.0                           \r\n           568      G      0.0            0.0           -8.091114E-01   3.700027E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -8.066324E-01   3.689028E-01  -9.881546E-03   0.0                           \r\n           570      G      0.0            0.0           -7.991300E-01   3.655162E-01  -1.997095E-02   0.0                           \r\n           571      G      0.0            0.0           -7.865810E-01   3.598677E-01  -2.984730E-02   0.0                           \r\n           572      G      0.0            0.0           -7.691821E-01   3.520145E-01  -3.930015E-02   0.0                           \r\n           573      G      0.0            0.0           -7.471075E-01   3.420089E-01  -4.839984E-02   0.0                           \r\n           574      G      0.0            0.0           -7.205074E-01   3.298646E-01  -5.737564E-02   0.0                           \r\n           575      G      0.0            0.0           -6.894377E-01   3.156546E-01  -6.604193E-02   0.0                           \r\n           576      G      0.0            0.0           -6.541556E-01   2.995094E-01  -7.419284E-02   0.0                           \r\n           577      G      0.0            0.0           -6.148645E-01   2.815609E-01  -8.191534E-02   0.0                           \r\n           578      G      0.0            0.0           -5.718343E-01   2.618690E-01  -8.910376E-02   0.0                           \r\n           579      G      0.0            0.0           -5.253184E-01   2.404769E-01  -9.573620E-02   0.0                           \r\n           580      G      0.0            0.0           -4.756032E-01   2.175329E-01  -1.018636E-01   0.0                           \r\n           581      G      0.0            0.0           -4.229411E-01   1.933290E-01  -1.073601E-01   0.0                           \r\n           582      G      0.0            0.0           -3.677031E-01   1.680239E-01  -1.121855E-01   0.0                           \r\n           583      G      0.0            0.0           -3.101784E-01   1.416582E-01  -1.163985E-01   0.0                           \r\n           584      G      0.0            0.0           -2.506999E-01   1.143945E-01  -1.200089E-01   0.0                           \r\n           585      G      0.0            0.0           -1.895415E-01   8.640112E-02  -1.230175E-01   0.0                           \r\n           586      G      0.0            0.0           -1.270666E-01   5.786428E-02  -1.252746E-01   0.0                           \r\n           587      G      0.0            0.0           -6.369858E-02   2.900251E-02  -1.264745E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -1.267027E-01   0.0                           \r\n           631      G      0.0            0.0           -3.175539E-04   6.295685E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -3.082247E-04   6.275974E-01  -5.250762E-05   0.0                           \r\n           633      G      0.0            0.0           -2.388005E-04   6.218022E-01  -2.479798E-04   0.0                           \r\n           634      G      0.0            0.0           -7.828883E-05   6.121401E-01  -3.662140E-04   0.0                           \r\n           635      G      0.0            0.0            1.141451E-04   5.986671E-01  -4.225164E-04   0.0                           \r\n           636      G      0.0            0.0            3.234982E-04   5.815974E-01  -3.524257E-04   0.0                           \r\n           637      G      0.0            0.0            4.523223E-04   5.610299E-01  -1.902716E-04   0.0                           \r\n           638      G      0.0            0.0            5.162340E-04   5.369682E-01  -4.370144E-05   0.0                           \r\n           639      G      0.0            0.0            5.048725E-04   5.095566E-01   5.181916E-05   0.0                           \r\n           640      G      0.0            0.0            4.803786E-04   4.789681E-01   6.526818E-05   0.0                           \r\n           641      G      0.0            0.0            4.383255E-04   4.454077E-01   8.231909E-05   0.0                           \r\n           642      G      0.0            0.0            3.611804E-04   4.091309E-01   2.904535E-04   0.0                           \r\n           643      G      0.0            0.0            1.509805E-04   3.703611E-01   4.862635E-04   0.0                           \r\n           644      G      0.0            0.0           -9.018036E-05   3.292876E-01   4.917306E-04   0.0                           \r\n           645      G      0.0            0.0           -3.351871E-04   2.861228E-01   4.445170E-04   0.0                           \r\n           646      G      0.0            0.0           -5.176615E-04   2.411791E-01   2.959852E-04   0.0                           \r\n           647      G      0.0            0.0           -6.163928E-04   1.948085E-01   8.028701E-05   0.0                           \r\n           648      G      0.0            0.0           -6.035827E-04   1.472839E-01  -1.000748E-04   0.0                           \r\n           649      G      0.0            0.0           -5.118306E-04   9.875299E-02  -3.193226E-04   0.0                           \r\n           650      G      0.0            0.0           -2.849288E-04   4.951934E-02  -5.485459E-04   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -5.740070E-04   0.0                           \r\n           694      G      0.0            0.0            8.083630E-01   3.701097E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            8.058724E-01   3.688892E-01   9.855942E-03   0.0                           \r\n           696      G      0.0            0.0            7.985080E-01   3.654323E-01   1.938367E-02   0.0                           \r\n           697      G      0.0            0.0            7.863483E-01   3.597761E-01   2.900678E-02   0.0                           \r\n           698      G      0.0            0.0            7.693229E-01   3.519473E-01   3.861960E-02   0.0                           \r\n           699      G      0.0            0.0            7.475346E-01   3.419275E-01   4.798588E-02   0.0                           \r\n           700      G      0.0            0.0            7.210844E-01   3.297527E-01   5.709565E-02   0.0                           \r\n           701      G      0.0            0.0            6.901565E-01   3.155233E-01   6.582543E-02   0.0                           \r\n           702      G      0.0            0.0            6.549324E-01   2.994130E-01   7.414362E-02   0.0                           \r\n           703      G      0.0            0.0            6.156310E-01   2.815108E-01   8.206502E-02   0.0                           \r\n           704      G      0.0            0.0            5.724577E-01   2.618123E-01   8.946114E-02   0.0                           \r\n           705      G      0.0            0.0            5.257296E-01   2.404376E-01   9.625739E-02   0.0                           \r\n           706      G      0.0            0.0            4.757220E-01   2.176117E-01   1.024523E-01   0.0                           \r\n           707      G      0.0            0.0            4.227680E-01   1.934768E-01   1.080108E-01   0.0                           \r\n           708      G      0.0            0.0            3.671709E-01   1.681709E-01   1.129121E-01   0.0                           \r\n           709      G      0.0            0.0            3.093047E-01   1.418230E-01   1.170573E-01   0.0                           \r\n           710      G      0.0            0.0            2.495697E-01   1.145462E-01   1.202727E-01   0.0                           \r\n           711      G      0.0            0.0            1.884372E-01   8.651345E-02   1.227077E-01   0.0                           \r\n           712      G      0.0            0.0            1.262251E-01   5.794383E-02   1.245052E-01   0.0                           \r\n           713      G      0.0            0.0            6.330331E-02   2.905112E-02   1.255745E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.259804E-01   0.0                           \r\n           757      G      0.0            0.0            9.502614E-01  -1.944440E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            9.473261E-01  -1.938021E-01   1.165445E-02   0.0                           \r\n           759      G      0.0            0.0            9.385945E-01  -1.920352E-01   2.300735E-02   0.0                           \r\n           760      G      0.0            0.0            9.241971E-01  -1.891741E-01   3.424695E-02   0.0                           \r\n           761      G      0.0            0.0            9.041484E-01  -1.851295E-01   4.541980E-02   0.0                           \r\n           762      G      0.0            0.0            8.785270E-01  -1.799099E-01   5.643085E-02   0.0                           \r\n           763      G      0.0            0.0            8.474177E-01  -1.735420E-01   6.718011E-02   0.0                           \r\n           764      G      0.0            0.0            8.110127E-01  -1.660814E-01   7.750483E-02   0.0                           \r\n           765      G      0.0            0.0            7.695585E-01  -1.576153E-01   8.718021E-02   0.0                           \r\n           766      G      0.0            0.0            7.233987E-01  -1.481938E-01   9.630367E-02   0.0                           \r\n           767      G      0.0            0.0            6.727505E-01  -1.378291E-01   1.049547E-01   0.0                           \r\n           768      G      0.0            0.0            6.179237E-01  -1.265548E-01   1.129527E-01   0.0                           \r\n           769      G      0.0            0.0            5.592327E-01  -1.144778E-01   1.202675E-01   0.0                           \r\n           770      G      0.0            0.0            4.970588E-01  -1.017418E-01   1.268164E-01   0.0                           \r\n           771      G      0.0            0.0            4.318019E-01  -8.842219E-02   1.324837E-01   0.0                           \r\n           772      G      0.0            0.0            3.639198E-01  -7.449687E-02   1.373189E-01   0.0                           \r\n           773      G      0.0            0.0            2.937970E-01  -6.005781E-02   1.413214E-01   0.0                           \r\n           774      G      0.0            0.0            2.218968E-01  -4.529633E-02   1.444235E-01   0.0                           \r\n           775      G      0.0            0.0            1.486544E-01  -3.030450E-02   1.466108E-01   0.0                           \r\n           776      G      0.0            0.0            7.455165E-02  -1.517429E-02   1.478922E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            1.483635E-01   0.0                           \r\n           820      G      0.0            0.0            3.088197E-01  -5.984936E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            3.078399E-01  -5.966397E-01   3.854264E-03   0.0                           \r\n           822      G      0.0            0.0            3.049800E-01  -5.911349E-01   7.503768E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            3.002940E-01  -5.820613E-01   1.114208E-02   0.0                           \r\n           824      G      0.0            0.0            2.937704E-01  -5.693939E-01   1.476728E-02   0.0                           \r\n           825      G      0.0            0.0            2.854452E-01  -5.532465E-01   1.833731E-02   0.0                           \r\n           826      G      0.0            0.0            2.753416E-01  -5.336744E-01   2.179920E-02   0.0                           \r\n           827      G      0.0            0.0            2.635348E-01  -5.108074E-01   2.514830E-02   0.0                           \r\n           828      G      0.0            0.0            2.500685E-01  -4.846707E-01   2.833740E-02   0.0                           \r\n           829      G      0.0            0.0            2.350560E-01  -4.555603E-01   3.134392E-02   0.0                           \r\n           830      G      0.0            0.0            2.185709E-01  -4.236345E-01   3.413581E-02   0.0                           \r\n           831      G      0.0            0.0            2.007586E-01  -3.891122E-01   3.666418E-02   0.0                           \r\n           832      G      0.0            0.0            1.817197E-01  -3.521722E-01   3.898075E-02   0.0                           \r\n           833      G      0.0            0.0            1.615587E-01  -3.130531E-01   4.119474E-02   0.0                           \r\n           834      G      0.0            0.0            1.403271E-01  -2.719479E-01   4.312299E-02   0.0                           \r\n           835      G      0.0            0.0            1.182448E-01  -2.291774E-01   4.464511E-02   0.0                           \r\n           836      G      0.0            0.0            9.545171E-02  -1.850041E-01   4.591664E-02   0.0                           \r\n           837      G      0.0            0.0            7.209560E-02  -1.397554E-01   4.691760E-02   0.0                           \r\n           838      G      0.0            0.0            4.830142E-02  -9.364296E-02   4.762100E-02   0.0                           \r\n           839      G      0.0            0.0            2.423254E-02  -4.697351E-02   4.805168E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            4.823845E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -6.294256E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -6.274009E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -6.215567E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -6.120045E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -5.987083E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -5.817544E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -5.611457E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -5.370864E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.096481E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -4.790741E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -4.454552E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -4.091642E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.703644E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -3.293150E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -2.860068E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -2.410022E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -1.945338E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -1.469302E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -9.842319E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -4.938527E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -4.707368E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -4.574368E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -4.186919E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -3.575946E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.763787E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.796765E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -7.255396E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            3.747166E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            1.458689E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.460123E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            3.327466E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            4.011268E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            4.477092E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            4.690082E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            4.643754E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            4.340352E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            3.804015E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.053112E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.131538E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            1.088914E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -6.499213E-01  -3.575210E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -6.318663E-01  -3.477106E-01  -7.180278E-02   0.0                           \r\n            66      G      0.0            0.0           -5.788013E-01  -3.187308E-01  -1.388696E-01   0.0                           \r\n            67      G      0.0            0.0           -4.940598E-01  -2.720947E-01  -1.979970E-01   0.0                           \r\n            68      G      0.0            0.0           -3.821960E-01  -2.103633E-01  -2.464414E-01   0.0                           \r\n            69      G      0.0            0.0           -2.492118E-01  -1.371092E-01  -2.823133E-01   0.0                           \r\n            70      G      0.0            0.0           -1.019550E-01  -5.638435E-02  -3.025285E-01   0.0                           \r\n            71      G      0.0            0.0            5.094434E-02   2.758151E-02  -3.051325E-01   0.0                           \r\n            72      G      0.0            0.0            2.009621E-01   1.102610E-01  -2.908225E-01   0.0                           \r\n            73      G      0.0            0.0            3.396339E-01   1.868566E-01  -2.603267E-01   0.0                           \r\n            74      G      0.0            0.0            4.594099E-01   2.527112E-01  -2.155862E-01   0.0                           \r\n            75      G      0.0            0.0            5.537558E-01   3.042615E-01  -1.594978E-01   0.0                           \r\n            76      G      0.0            0.0            6.177545E-01   3.393674E-01  -9.454498E-02   0.0                           \r\n            77      G      0.0            0.0            6.475680E-01   3.561930E-01  -2.406538E-02   0.0                           \r\n            78      G      0.0            0.0            6.416357E-01   3.532121E-01   4.777397E-02   0.0                           \r\n            79      G      0.0            0.0            6.001576E-01   3.306193E-01   1.168870E-01   0.0                           \r\n            80      G      0.0            0.0            5.256610E-01   2.895939E-01   1.792449E-01   0.0                           \r\n            81      G      0.0            0.0            4.222110E-01   2.324696E-01   2.317385E-01   0.0                           \r\n            82      G      0.0            0.0            2.954330E-01   1.625768E-01   2.723475E-01   0.0                           \r\n            83      G      0.0            0.0            1.518725E-01   8.372784E-02   2.977854E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.057666E-01   0.0                           \r\n           127      G      0.0            0.0           -9.879019E-01  -7.375669E-02   0.0            0.0                           \r\n           128      G      0.0            0.0           -9.604890E-01  -7.176004E-02  -1.088697E-01   0.0                           \r\n           129      G      0.0            0.0           -8.800576E-01  -6.590366E-02  -2.106489E-01   0.0                           \r\n           130      G      0.0            0.0           -7.512607E-01  -5.669199E-02  -3.013942E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -5.807648E-01  -4.394825E-02  -3.758796E-01   0.0                           \r\n           132      G      0.0            0.0           -3.781186E-01  -2.837857E-02  -4.295101E-01   0.0                           \r\n           133      G      0.0            0.0           -1.544140E-01  -1.140644E-02  -4.592650E-01   0.0                           \r\n           134      G      0.0            0.0            7.776684E-02   6.021157E-03  -4.634856E-01   0.0                           \r\n           135      G      0.0            0.0            3.057279E-01   2.296246E-02  -4.422440E-01   0.0                           \r\n           136      G      0.0            0.0            5.167917E-01   3.856529E-02  -3.965617E-01   0.0                           \r\n           137      G      0.0            0.0            6.992509E-01   5.222173E-02  -3.281711E-01   0.0                           \r\n           138      G      0.0            0.0            8.426129E-01   6.314839E-02  -2.418155E-01   0.0                           \r\n           139      G      0.0            0.0            9.394794E-01   7.050673E-02  -1.430024E-01   0.0                           \r\n           140      G      0.0            0.0            9.845582E-01   7.370806E-02  -3.629513E-02   0.0                           \r\n           141      G      0.0            0.0            9.755125E-01   7.283144E-02   7.235883E-02   0.0                           \r\n           142      G      0.0            0.0            9.126951E-01   6.829017E-02   1.772184E-01   0.0                           \r\n           143      G      0.0            0.0            7.994654E-01   6.027682E-02   2.729154E-01   0.0                           \r\n           144      G      0.0            0.0            6.417500E-01   4.850781E-02   3.535230E-01   0.0                           \r\n           145      G      0.0            0.0            4.485658E-01   3.369312E-02   4.142671E-01   0.0                           \r\n           146      G      0.0            0.0            2.305429E-01   1.725036E-02   4.519297E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            4.642937E-01   0.0                           \r\n           190      G      0.0            0.0           -8.530899E-01   2.468235E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -8.292521E-01   2.395379E-01  -9.449603E-02   0.0                           \r\n           192      G      0.0            0.0           -7.595809E-01   2.192500E-01  -1.821064E-01   0.0                           \r\n           193      G      0.0            0.0           -6.484163E-01   1.872432E-01  -2.598344E-01   0.0                           \r\n           194      G      0.0            0.0           -5.014601E-01   1.449086E-01  -3.241424E-01   0.0                           \r\n           195      G      0.0            0.0           -3.266070E-01   9.446843E-02  -3.707646E-01   0.0                           \r\n           196      G      0.0            0.0           -1.334312E-01   3.862712E-02  -3.967355E-01   0.0                           \r\n           197      G      0.0            0.0            6.716124E-02  -1.907107E-02  -4.003385E-01   0.0                           \r\n           198      G      0.0            0.0            2.639126E-01  -7.552855E-02  -3.814097E-01   0.0                           \r\n           199      G      0.0            0.0            4.458238E-01  -1.279178E-01  -3.416341E-01   0.0                           \r\n           200      G      0.0            0.0            6.031026E-01  -1.737446E-01  -2.832378E-01   0.0                           \r\n           201      G      0.0            0.0            7.270094E-01  -2.097388E-01  -2.091974E-01   0.0                           \r\n           202      G      0.0            0.0            8.108081E-01  -2.340074E-01  -1.237265E-01   0.0                           \r\n           203      G      0.0            0.0            8.498288E-01  -2.452234E-01  -3.137376E-02   0.0                           \r\n           204      G      0.0            0.0            8.419572E-01  -2.428835E-01   6.270753E-02   0.0                           \r\n           205      G      0.0            0.0            7.876331E-01  -2.272776E-01   1.530226E-01   0.0                           \r\n           206      G      0.0            0.0            6.899913E-01  -1.991874E-01   2.351271E-01   0.0                           \r\n           207      G      0.0            0.0            5.541194E-01  -1.599956E-01   3.047537E-01   0.0                           \r\n           208      G      0.0            0.0            3.874826E-01  -1.118169E-01   3.574790E-01   0.0                           \r\n           209      G      0.0            0.0            1.992652E-01  -5.745437E-02   3.903756E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.014289E-01   0.0                           \r\n           253      G      0.0            0.0           -3.093202E-01   4.471922E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -3.006981E-01   4.350228E-01  -3.421701E-02   0.0                           \r\n           255      G      0.0            0.0           -2.754542E-01   3.985969E-01  -6.600463E-02   0.0                           \r\n           256      G      0.0            0.0           -2.351339E-01   3.401832E-01  -9.432127E-02   0.0                           \r\n           257      G      0.0            0.0           -1.817636E-01   2.629876E-01  -1.176935E-01   0.0                           \r\n           258      G      0.0            0.0           -1.183128E-01   1.712708E-01  -1.344779E-01   0.0                           \r\n           259      G      0.0            0.0           -4.829744E-02   7.005540E-02  -1.436602E-01   0.0                           \r\n           260      G      0.0            0.0            2.434226E-02  -3.516291E-02  -1.451209E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            9.573547E-02  -1.385309E-01  -1.384162E-01   0.0                           \r\n           262      G      0.0            0.0            1.616831E-01  -2.341802E-01  -1.237012E-01   0.0                           \r\n           263      G      0.0            0.0            2.185814E-01  -3.167233E-01  -1.023304E-01   0.0                           \r\n           264      G      0.0            0.0            2.633041E-01  -3.817164E-01  -7.545655E-02   0.0                           \r\n           265      G      0.0            0.0            2.935207E-01  -4.257775E-01  -4.460222E-02   0.0                           \r\n           266      G      0.0            0.0            3.076355E-01  -4.464606E-01  -1.156976E-02   0.0                           \r\n           267      G      0.0            0.0            3.049936E-01  -4.422873E-01   2.221845E-02   0.0                           \r\n           268      G      0.0            0.0            2.855269E-01  -4.134865E-01   5.508630E-02   0.0                           \r\n           269      G      0.0            0.0            2.502670E-01  -3.619420E-01   8.510524E-02   0.0                           \r\n           270      G      0.0            0.0            2.010173E-01  -2.904904E-01   1.105196E-01   0.0                           \r\n           271      G      0.0            0.0            1.405700E-01  -2.030650E-01   1.297209E-01   0.0                           \r\n           272      G      0.0            0.0            7.226314E-02  -1.044498E-01   1.416383E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.455262E-01   0.0                           \r\n           316      G      0.0            0.0            3.826295E-01   4.345918E-01   0.0            0.0                           \r\n           317      G      0.0            0.0            3.721535E-01   4.225100E-01   4.166627E-02   0.0                           \r\n           318      G      0.0            0.0            3.411617E-01   3.871558E-01   8.156501E-02   0.0                           \r\n           319      G      0.0            0.0            2.911821E-01   3.304660E-01   1.169566E-01   0.0                           \r\n           320      G      0.0            0.0            2.250926E-01   2.553718E-01   1.456739E-01   0.0                           \r\n           321      G      0.0            0.0            1.466174E-01   1.660128E-01   1.660780E-01   0.0                           \r\n           322      G      0.0            0.0            6.019425E-02   6.767391E-02   1.774943E-01   0.0                           \r\n           323      G      0.0            0.0           -2.964399E-02  -3.421630E-02   1.794336E-01   0.0                           \r\n           324      G      0.0            0.0           -1.179537E-01  -1.343055E-01   1.715418E-01   0.0                           \r\n           325      G      0.0            0.0           -1.999176E-01  -2.270386E-01   1.540533E-01   0.0                           \r\n           326      G      0.0            0.0           -2.708249E-01  -3.072689E-01   1.277410E-01   0.0                           \r\n           327      G      0.0            0.0           -3.266995E-01  -3.705474E-01   9.421688E-02   0.0                           \r\n           328      G      0.0            0.0           -3.644161E-01  -4.133030E-01   5.580809E-02   0.0                           \r\n           329      G      0.0            0.0           -3.820845E-01  -4.331461E-01   1.425343E-02   0.0                           \r\n           330      G      0.0            0.0           -3.785032E-01  -4.291160E-01  -2.842178E-02   0.0                           \r\n           331      G      0.0            0.0           -3.539168E-01  -4.014606E-01  -6.932799E-02   0.0                           \r\n           332      G      0.0            0.0           -3.097159E-01  -3.516722E-01  -1.062395E-01   0.0                           \r\n           333      G      0.0            0.0           -2.484748E-01  -2.822713E-01  -1.371357E-01   0.0                           \r\n           334      G      0.0            0.0           -1.736082E-01  -1.971333E-01  -1.602932E-01   0.0                           \r\n           335      G      0.0            0.0           -8.931088E-02  -1.012123E-01  -1.748172E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0           -1.800073E-01   0.0                           \r\n           379      G      0.0            0.0            8.910991E-01   2.135947E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            8.665490E-01   2.076717E-01   9.760470E-02   0.0                           \r\n           381      G      0.0            0.0            7.941368E-01   1.902629E-01   1.901514E-01   0.0                           \r\n           382      G      0.0            0.0            6.778047E-01   1.623283E-01   2.720571E-01   0.0                           \r\n           383      G      0.0            0.0            5.240393E-01   1.254976E-01   3.390473E-01   0.0                           \r\n           384      G      0.0            0.0            3.412403E-01   8.178541E-02   3.872467E-01   0.0                           \r\n           385      G      0.0            0.0            1.396385E-01   3.351891E-02   4.138977E-01   0.0                           \r\n           386      G      0.0            0.0           -6.968839E-02  -1.667552E-02   4.178566E-01   0.0                           \r\n           387      G      0.0            0.0           -2.751916E-01  -6.593062E-02   3.987801E-01   0.0                           \r\n           388      G      0.0            0.0           -4.655628E-01  -1.114118E-01   3.576689E-01   0.0                           \r\n           389      G      0.0            0.0           -6.302662E-01  -1.506301E-01   2.968482E-01   0.0                           \r\n           390      G      0.0            0.0           -7.602251E-01  -1.816640E-01   2.194592E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -8.480927E-01  -2.028058E-01   1.297328E-01   0.0                           \r\n           392      G      0.0            0.0           -8.890039E-01  -2.127064E-01   3.279408E-02   0.0                           \r\n           393      G      0.0            0.0           -8.806616E-01  -2.108083E-01  -6.587889E-02   0.0                           \r\n           394      G      0.0            0.0           -8.236475E-01  -1.972215E-01  -1.606956E-01   0.0                           \r\n           395      G      0.0            0.0           -7.211625E-01  -1.727140E-01  -2.464983E-01   0.0                           \r\n           396      G      0.0            0.0           -5.789057E-01  -1.387102E-01  -3.188789E-01   0.0                           \r\n           397      G      0.0            0.0           -4.046121E-01  -9.706588E-02  -3.736083E-01   0.0                           \r\n           398      G      0.0            0.0           -2.080476E-01  -4.998581E-02  -4.075270E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0           -4.191557E-01   0.0                           \r\n           442      G      0.0            0.0            9.722588E-01  -1.097283E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            9.455553E-01  -1.066434E-01   1.062813E-01   0.0                           \r\n           444      G      0.0            0.0            8.665680E-01  -9.759264E-02   2.076299E-01   0.0                           \r\n           445      G      0.0            0.0            7.394707E-01  -8.330946E-02   2.972891E-01   0.0                           \r\n           446      G      0.0            0.0            5.715124E-01  -6.456706E-02   3.701474E-01   0.0                           \r\n           447      G      0.0            0.0            3.720415E-01  -4.218755E-02   4.224430E-01   0.0                           \r\n           448      G      0.0            0.0            1.521273E-01  -1.739673E-02   4.514950E-01   0.0                           \r\n           449      G      0.0            0.0           -7.621551E-02   8.435761E-03   4.558484E-01   0.0                           \r\n           450      G      0.0            0.0           -3.004247E-01   3.384856E-02   4.351282E-01   0.0                           \r\n           451      G      0.0            0.0           -5.081223E-01   5.735113E-02   3.900861E-01   0.0                           \r\n           452      G      0.0            0.0           -6.876614E-01   7.764291E-02   3.234319E-01   0.0                           \r\n           453      G      0.0            0.0           -8.292280E-01   9.367730E-02   2.390596E-01   0.0                           \r\n           454      G      0.0            0.0           -9.249538E-01   1.046213E-01   1.413680E-01   0.0                           \r\n           455      G      0.0            0.0           -9.695622E-01   1.097849E-01   3.585069E-02   0.0                           \r\n           456      G      0.0            0.0           -9.605477E-01   1.087543E-01  -7.165456E-02   0.0                           \r\n           457      G      0.0            0.0           -8.984170E-01   1.015996E-01  -1.752846E-01   0.0                           \r\n           458      G      0.0            0.0           -7.865607E-01   8.895513E-02  -2.690958E-01   0.0                           \r\n           459      G      0.0            0.0           -6.313115E-01   7.152070E-02  -3.478519E-01   0.0                           \r\n           460      G      0.0            0.0           -4.412476E-01   5.006702E-02  -4.073572E-01   0.0                           \r\n           461      G      0.0            0.0           -2.269031E-01   2.577843E-02  -4.444435E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -4.571745E-01   0.0                           \r\n           505      G      0.0            0.0            5.878385E-01  -3.804987E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            5.716102E-01  -3.700379E-01   6.441392E-02   0.0                           \r\n           507      G      0.0            0.0            5.238349E-01  -3.391781E-01   1.255251E-01   0.0                           \r\n           508      G      0.0            0.0            4.469773E-01  -2.895482E-01   1.798176E-01   0.0                           \r\n           509      G      0.0            0.0            3.453836E-01  -2.238660E-01   2.239073E-01   0.0                           \r\n           510      G      0.0            0.0            2.247247E-01  -1.457943E-01   2.555110E-01   0.0                           \r\n           511      G      0.0            0.0            9.172839E-02  -5.978263E-02   2.730021E-01   0.0                           \r\n           512      G      0.0            0.0           -4.628759E-02   2.945352E-02   2.753907E-01   0.0                           \r\n           513      G      0.0            0.0           -1.816777E-01   1.171631E-01   2.626968E-01   0.0                           \r\n           514      G      0.0            0.0           -3.070895E-01   1.985777E-01   2.356023E-01   0.0                           \r\n           515      G      0.0            0.0           -4.155534E-01   2.689797E-01   1.954229E-01   0.0                           \r\n           516      G      0.0            0.0           -5.010746E-01   3.244902E-01   1.443605E-01   0.0                           \r\n           517      G      0.0            0.0           -5.588367E-01   3.620324E-01   8.518466E-02   0.0                           \r\n           518      G      0.0            0.0           -5.856349E-01   3.795666E-01   2.127384E-02   0.0                           \r\n           519      G      0.0            0.0           -5.800056E-01   3.761566E-01  -4.355707E-02   0.0                           \r\n           520      G      0.0            0.0           -5.424078E-01   3.519990E-01  -1.059090E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -4.748521E-01   3.083355E-01  -1.625028E-01   0.0                           \r\n           522      G      0.0            0.0           -3.811140E-01   2.475440E-01  -2.100184E-01   0.0                           \r\n           523      G      0.0            0.0           -2.663676E-01   1.730026E-01  -2.459172E-01   0.0                           \r\n           524      G      0.0            0.0           -1.369717E-01   8.895218E-02  -2.682931E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -2.759750E-01   0.0                           \r\n           568      G      0.0            0.0           -7.825139E-02  -4.687254E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -7.606673E-02  -4.558217E-01  -8.643044E-03   0.0                           \r\n           570      G      0.0            0.0           -6.973389E-02  -4.177083E-01  -1.647378E-02   0.0                           \r\n           571      G      0.0            0.0           -5.969130E-02  -3.564981E-01  -2.349589E-02   0.0                           \r\n           572      G      0.0            0.0           -4.635295E-02  -2.756029E-01  -2.950048E-02   0.0                           \r\n           573      G      0.0            0.0           -3.038001E-02  -1.794997E-01  -3.400017E-02   0.0                           \r\n           574      G      0.0            0.0           -1.264179E-02  -7.344209E-02  -3.640035E-02   0.0                           \r\n           575      G      0.0            0.0            5.746331E-03   3.671021E-02  -3.673326E-02   0.0                           \r\n           576      G      0.0            0.0            2.384919E-02   1.448169E-01  -3.517026E-02   0.0                           \r\n           577      G      0.0            0.0            4.064970E-02   2.448636E-01  -3.163049E-02   0.0                           \r\n           578      G      0.0            0.0            5.525579E-02   3.313824E-01  -2.638557E-02   0.0                           \r\n           579      G      0.0            0.0            6.685031E-02   3.996882E-01  -1.970218E-02   0.0                           \r\n           580      G      0.0            0.0            7.479863E-02   4.459887E-01  -1.183982E-02   0.0                           \r\n           581      G      0.0            0.0            7.860286E-02   4.675437E-01  -3.343679E-03   0.0                           \r\n           582      G      0.0            0.0            7.811881E-02   4.631521E-01   5.307741E-03   0.0                           \r\n           583      G      0.0            0.0            7.331837E-02   4.331982E-01   1.374608E-02   0.0                           \r\n           584      G      0.0            0.0            6.444854E-02   3.793356E-01   2.155279E-02   0.0                           \r\n           585      G      0.0            0.0            5.188941E-02   3.045398E-01   2.833509E-02   0.0                           \r\n           586      G      0.0            0.0            3.631622E-02   2.129286E-01   3.357168E-02   0.0                           \r\n           587      G      0.0            0.0            1.862749E-02   1.095130E-01   3.662561E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            3.744583E-02   0.0                           \r\n           631      G      0.0            0.0           -7.067467E-01  -3.323807E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -6.872219E-01  -3.231540E-01  -7.756542E-02   0.0                           \r\n           633      G      0.0            0.0           -6.297791E-01  -2.961153E-01  -1.506626E-01   0.0                           \r\n           634      G      0.0            0.0           -5.376353E-01  -2.526611E-01  -2.155160E-01   0.0                           \r\n           635      G      0.0            0.0           -4.158181E-01  -1.951872E-01  -2.685151E-01   0.0                           \r\n           636      G      0.0            0.0           -2.710520E-01  -1.270312E-01  -3.068084E-01   0.0                           \r\n           637      G      0.0            0.0           -1.112277E-01  -5.195390E-02  -3.282413E-01   0.0                           \r\n           638      G      0.0            0.0            5.479555E-02   2.604219E-02  -3.315049E-01   0.0                           \r\n           639      G      0.0            0.0            2.178528E-01   1.026460E-01  -3.163835E-01   0.0                           \r\n           640      G      0.0            0.0            3.688565E-01   1.736158E-01  -2.836794E-01   0.0                           \r\n           641      G      0.0            0.0            4.994692E-01   2.350077E-01  -2.353074E-01   0.0                           \r\n           642      G      0.0            0.0            6.024976E-01   2.833681E-01  -1.741760E-01   0.0                           \r\n           643      G      0.0            0.0            6.723755E-01   3.160225E-01  -1.034217E-01   0.0                           \r\n           644      G      0.0            0.0            7.051264E-01   3.312255E-01  -2.674405E-02   0.0                           \r\n           645      G      0.0            0.0            6.989217E-01   3.281859E-01   5.144658E-02   0.0                           \r\n           646      G      0.0            0.0            6.540364E-01   3.070148E-01   1.268932E-01   0.0                           \r\n           647      G      0.0            0.0            5.729359E-01   2.687905E-01   1.953931E-01   0.0                           \r\n           648      G      0.0            0.0            4.600734E-01   2.156407E-01   2.530460E-01   0.0                           \r\n           649      G      0.0            0.0            3.217257E-01   1.506809E-01   2.967702E-01   0.0                           \r\n           650      G      0.0            0.0            1.654620E-01   7.749747E-02   3.241270E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.333513E-01   0.0                           \r\n           694      G      0.0            0.0           -9.962265E-01  -3.685114E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -9.686863E-01  -3.573159E-02  -1.093839E-01   0.0                           \r\n           696      G      0.0            0.0           -8.877025E-01  -3.267774E-02  -2.123852E-01   0.0                           \r\n           697      G      0.0            0.0           -7.577978E-01  -2.787544E-02  -3.038987E-01   0.0                           \r\n           698      G      0.0            0.0           -5.859812E-01  -2.158106E-02  -3.788033E-01   0.0                           \r\n           699      G      0.0            0.0           -3.817566E-01  -1.406243E-02  -4.327420E-01   0.0                           \r\n           700      G      0.0            0.0           -1.563785E-01  -5.705391E-03  -4.627976E-01   0.0                           \r\n           701      G      0.0            0.0            7.766469E-02   2.996569E-03  -4.672304E-01   0.0                           \r\n           702      G      0.0            0.0            3.074450E-01   1.145646E-02  -4.458274E-01   0.0                           \r\n           703      G      0.0            0.0            5.202591E-01   1.921735E-02  -3.998577E-01   0.0                           \r\n           704      G      0.0            0.0            7.043912E-01   2.598893E-02  -3.317688E-01   0.0                           \r\n           705      G      0.0            0.0            8.496057E-01   3.139672E-02  -2.452932E-01   0.0                           \r\n           706      G      0.0            0.0            9.478977E-01   3.502724E-02  -1.452634E-01   0.0                           \r\n           707      G      0.0            0.0            9.938113E-01   3.667830E-02  -3.721448E-02   0.0                           \r\n           708      G      0.0            0.0            9.848456E-01   3.627047E-02   7.286320E-02   0.0                           \r\n           709      G      0.0            0.0            9.214666E-01   3.385724E-02   1.789692E-01   0.0                           \r\n           710      G      0.0            0.0            8.071324E-01   2.963125E-02   2.754253E-01   0.0                           \r\n           711      G      0.0            0.0            6.480401E-01   2.382084E-02   3.567014E-01   0.0                           \r\n           712      G      0.0            0.0            4.530554E-01   1.669257E-02   4.181223E-01   0.0                           \r\n           713      G      0.0            0.0            2.329657E-01   8.596987E-03   4.564013E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            4.693387E-01   0.0                           \r\n           757      G      0.0            0.0           -8.081465E-01   2.762674E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -7.857888E-01   2.685765E-01  -8.882818E-02   0.0                           \r\n           759      G      0.0            0.0           -7.200222E-01   2.461211E-01  -1.724603E-01   0.0                           \r\n           760      G      0.0            0.0           -6.145790E-01   2.101681E-01  -2.465857E-01   0.0                           \r\n           761      G      0.0            0.0           -4.752026E-01   1.625773E-01  -3.072422E-01   0.0                           \r\n           762      G      0.0            0.0           -3.095511E-01   1.059641E-01  -3.510421E-01   0.0                           \r\n           763      G      0.0            0.0           -1.266994E-01   4.345362E-02  -3.755291E-01   0.0                           \r\n           764      G      0.0            0.0            6.323877E-02  -2.147758E-02  -3.792384E-01   0.0                           \r\n           765      G      0.0            0.0            2.497354E-01  -8.518964E-02  -3.617714E-01   0.0                           \r\n           766      G      0.0            0.0            4.223723E-01  -1.441632E-01  -3.242888E-01   0.0                           \r\n           767      G      0.0            0.0            5.716897E-01  -1.951943E-01  -2.690297E-01   0.0                           \r\n           768      G      0.0            0.0            6.894369E-01  -2.355007E-01  -1.988931E-01   0.0                           \r\n           769      G      0.0            0.0            7.691355E-01  -2.628111E-01  -1.177834E-01   0.0                           \r\n           770      G      0.0            0.0            8.063595E-01  -2.755337E-01  -3.014145E-02   0.0                           \r\n           771      G      0.0            0.0            7.990354E-01  -2.729711E-01   5.927996E-02   0.0                           \r\n           772      G      0.0            0.0            7.475045E-01  -2.553945E-01   1.454347E-01   0.0                           \r\n           773      G      0.0            0.0            6.546604E-01  -2.237704E-01   2.235276E-01   0.0                           \r\n           774      G      0.0            0.0            5.255991E-01  -1.797243E-01   2.892984E-01   0.0                           \r\n           775      G      0.0            0.0            3.674646E-01  -1.256922E-01   3.391100E-01   0.0                           \r\n           776      G      0.0            0.0            1.889586E-01  -6.466107E-02   3.701861E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            3.806841E-01   0.0                           \r\n           820      G      0.0            0.0           -2.332367E-01   4.568155E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -2.267524E-01   4.441704E-01  -2.571671E-02   0.0                           \r\n           822      G      0.0            0.0           -2.077485E-01   4.069902E-01  -4.978951E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.773202E-01   3.473912E-01  -7.115261E-02   0.0                           \r\n           824      G      0.0            0.0           -1.371009E-01   2.685710E-01  -8.864663E-02   0.0                           \r\n           825      G      0.0            0.0           -8.931134E-02   1.749356E-01  -1.012789E-01   0.0                           \r\n           826      G      0.0            0.0           -3.656138E-02   7.161114E-02  -1.083133E-01   0.0                           \r\n           827      G      0.0            0.0            1.821462E-02  -3.567435E-02  -1.093834E-01   0.0                           \r\n           828      G      0.0            0.0            7.202370E-02  -1.411311E-01  -1.043993E-01   0.0                           \r\n           829      G      0.0            0.0            1.218533E-01  -2.387629E-01  -9.363480E-02   0.0                           \r\n           830      G      0.0            0.0            1.649730E-01  -3.232009E-01  -7.766975E-02   0.0                           \r\n           831      G      0.0            0.0            1.989463E-01  -3.897515E-01  -5.734703E-02   0.0                           \r\n           832      G      0.0            0.0            2.219068E-01  -4.347788E-01  -3.387149E-02   0.0                           \r\n           833      G      0.0            0.0            2.326007E-01  -4.557811E-01  -8.693589E-03   0.0                           \r\n           834      G      0.0            0.0            2.305276E-01  -4.516589E-01   1.700142E-02   0.0                           \r\n           835      G      0.0            0.0            2.156940E-01  -4.225599E-01   4.192498E-02   0.0                           \r\n           836      G      0.0            0.0            1.889177E-01  -3.700972E-01   6.449658E-02   0.0                           \r\n           837      G      0.0            0.0            1.516711E-01  -2.971038E-01   8.348637E-02   0.0                           \r\n           838      G      0.0            0.0            1.060367E-01  -2.076974E-01   9.787256E-02   0.0                           \r\n           839      G      0.0            0.0            5.451548E-02  -1.067900E-01   1.068256E-01   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.098120E-01   0.0                           \r\n           841      G      0.0            0.0            0.0            4.699495E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            4.568501E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            4.185437E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.572395E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.762113E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.799499E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            7.365596E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -3.669424E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -1.450931E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -2.454558E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -3.323560E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -4.007872E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -4.470423E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -4.685377E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -4.644106E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -4.345281E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -3.806037E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.055690E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.136489E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.098318E-01   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.527765E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            4.845231E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            5.146841E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.985029E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            3.154158E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.492074E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            2.461495E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            6.592649E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -4.793906E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -1.850065E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -2.807752E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -3.531848E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.483678E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -4.048007E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -4.404873E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -4.589790E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -3.488607E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.866853E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -2.399426E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -2.306159E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            5.948777E-01   3.215638E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            5.927671E-01   3.017612E-01  -5.690660E-04   0.0                           \r\n            66      G      0.0            0.0            5.713000E-01   2.573175E-01   1.139949E-01   0.0                           \r\n            67      G      0.0            0.0            4.717889E-01   2.044920E-01   2.605722E-01   0.0                           \r\n            68      G      0.0            0.0            3.202071E-01   1.493269E-01   3.511686E-01   0.0                           \r\n            69      G      0.0            0.0            1.534367E-01   7.133383E-02   2.618705E-01   0.0                           \r\n            70      G      0.0            0.0            5.741364E-02  -2.491802E-02   1.645474E-01   0.0                           \r\n            71      G      0.0            0.0           -3.607767E-02  -9.865721E-02   1.919723E-01   0.0                           \r\n            72      G      0.0            0.0           -1.330008E-01  -1.285674E-01   2.166995E-01   0.0                           \r\n            73      G      0.0            0.0           -2.544112E-01  -1.475303E-01   2.472924E-01   0.0                           \r\n            74      G      0.0            0.0           -3.768889E-01  -2.187791E-01   2.437195E-01   0.0                           \r\n            75      G      0.0            0.0           -4.813615E-01  -3.272774E-01   1.426251E-01   0.0                           \r\n            76      G      0.0            0.0           -5.181417E-01  -3.605902E-01   4.309331E-02   0.0                           \r\n            77      G      0.0            0.0           -5.316878E-01  -3.017735E-01  -1.084138E-02   0.0                           \r\n            78      G      0.0            0.0           -5.094262E-01  -2.448193E-01  -5.703802E-02   0.0                           \r\n            79      G      0.0            0.0           -4.731700E-01  -1.893061E-01  -1.106009E-01   0.0                           \r\n            80      G      0.0            0.0           -3.905445E-01  -1.495128E-01  -2.007174E-01   0.0                           \r\n            81      G      0.0            0.0           -2.747032E-01  -1.179751E-01  -2.724914E-01   0.0                           \r\n            82      G      0.0            0.0           -1.460354E-01  -7.021932E-02  -1.904925E-01   0.0                           \r\n            83      G      0.0            0.0           -8.063018E-02  -1.606095E-02  -1.177995E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -1.920764E-01   0.0                           \r\n           127      G      0.0            0.0            7.598825E-01  -1.745203E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            7.542871E-01  -1.776357E-01   3.097615E-02   0.0                           \r\n           129      G      0.0            0.0            6.942222E-01  -1.901861E-01   2.204408E-01   0.0                           \r\n           130      G      0.0            0.0            5.529193E-01  -2.382680E-01   3.025596E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            4.084012E-01  -2.150578E-01   3.033522E-01   0.0                           \r\n           132      G      0.0            0.0            2.520719E-01  -1.212818E-01   2.948773E-01   0.0                           \r\n           133      G      0.0            0.0            1.109122E-01  -4.628312E-02   2.872200E-01   0.0                           \r\n           134      G      0.0            0.0           -3.876885E-02   5.028433E-03   2.845332E-01   0.0                           \r\n           135      G      0.0            0.0           -1.676046E-01   3.354732E-02   2.425755E-01   0.0                           \r\n           136      G      0.0            0.0           -2.804809E-01   5.072011E-02   1.880945E-01   0.0                           \r\n           137      G      0.0            0.0           -3.783680E-01   9.398667E-02   2.446511E-01   0.0                           \r\n           138      G      0.0            0.0           -5.187301E-01   1.562640E-01   2.646722E-01   0.0                           \r\n           139      G      0.0            0.0           -6.163197E-01   1.980991E-01   1.370198E-01   0.0                           \r\n           140      G      0.0            0.0           -6.585162E-01   1.890359E-01   4.900124E-03   0.0                           \r\n           141      G      0.0            0.0           -6.220984E-01   1.674889E-01  -1.313595E-01   0.0                           \r\n           142      G      0.0            0.0           -5.338045E-01   1.890133E-01  -2.246223E-01   0.0                           \r\n           143      G      0.0            0.0           -4.175483E-01   2.430368E-01  -2.066590E-01   0.0                           \r\n           144      G      0.0            0.0           -3.309240E-01   2.167501E-01  -1.770876E-01   0.0                           \r\n           145      G      0.0            0.0           -2.332869E-01   1.207664E-01  -1.884786E-01   0.0                           \r\n           146      G      0.0            0.0           -1.355506E-01   5.134929E-02  -2.217110E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -2.969959E-01   0.0                           \r\n           190      G      0.0            0.0            2.381407E-01  -2.818998E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            2.666031E-01  -3.463943E-01  -7.894704E-02   0.0                           \r\n           192      G      0.0            0.0            2.719615E-01  -3.602471E-01   9.473303E-02   0.0                           \r\n           193      G      0.0            0.0            1.820112E-01  -2.977483E-01   2.305007E-01   0.0                           \r\n           194      G      0.0            0.0            7.148554E-02  -2.186883E-01   2.045735E-01   0.0                           \r\n           195      G      0.0            0.0           -1.549682E-02  -1.442987E-01   1.253952E-01   0.0                           \r\n           196      G      0.0            0.0           -5.723343E-02  -9.027751E-02   5.727683E-02   0.0                           \r\n           197      G      0.0            0.0           -8.347302E-02   1.037704E-02   4.845735E-02   0.0                           \r\n           198      G      0.0            0.0           -1.171544E-01   1.390544E-01   9.633068E-02   0.0                           \r\n           199      G      0.0            0.0           -1.748694E-01   2.449010E-01   1.039879E-01   0.0                           \r\n           200      G      0.0            0.0           -2.146206E-01   2.616522E-01   6.888808E-02   0.0                           \r\n           201      G      0.0            0.0           -2.429512E-01   2.993978E-01   3.276850E-02   0.0                           \r\n           202      G      0.0            0.0           -2.439749E-01   3.409907E-01  -1.903249E-02   0.0                           \r\n           203      G      0.0            0.0           -2.267303E-01   3.811757E-01  -5.610778E-02   0.0                           \r\n           204      G      0.0            0.0           -1.894470E-01   3.991777E-01  -8.347747E-02   0.0                           \r\n           205      G      0.0            0.0           -1.369814E-01   3.690089E-01  -1.449111E-01   0.0                           \r\n           206      G      0.0            0.0           -5.512484E-02   3.040814E-01  -1.566707E-01   0.0                           \r\n           207      G      0.0            0.0            3.628080E-03   2.334993E-01  -8.068164E-02   0.0                           \r\n           208      G      0.0            0.0            2.979517E-02   1.691621E-01  -1.191500E-02   0.0                           \r\n           209      G      0.0            0.0            2.052233E-02   9.403726E-02   4.006727E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.022207E-02   0.0                           \r\n           253      G      0.0            0.0           -3.816219E-01  -3.554326E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -3.674310E-01  -3.187128E-01  -4.960091E-02   0.0                           \r\n           255      G      0.0            0.0           -3.467273E-01  -2.994018E-01  -1.901291E-02   0.0                           \r\n           256      G      0.0            0.0           -3.405978E-01  -2.595101E-01  -2.117899E-02   0.0                           \r\n           257      G      0.0            0.0           -3.146749E-01  -2.038884E-01  -7.215372E-02   0.0                           \r\n           258      G      0.0            0.0           -2.684689E-01  -1.355396E-01  -1.167595E-01   0.0                           \r\n           259      G      0.0            0.0           -2.010323E-01  -6.429936E-02  -1.384621E-01   0.0                           \r\n           260      G      0.0            0.0           -1.226861E-01  -7.935326E-03  -1.923039E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -1.337432E-02   3.699972E-02  -2.175794E-01   0.0                           \r\n           262      G      0.0            0.0            8.379560E-02   9.200818E-02  -1.770764E-01   0.0                           \r\n           263      G      0.0            0.0            1.690790E-01   1.693259E-01  -1.513426E-01   0.0                           \r\n           264      G      0.0            0.0            2.384313E-01   2.464521E-01  -1.344753E-01   0.0                           \r\n           265      G      0.0            0.0            3.057817E-01   2.866167E-01  -1.305016E-01   0.0                           \r\n           266      G      0.0            0.0            3.739918E-01   2.882570E-01  -1.526064E-01   0.0                           \r\n           267      G      0.0            0.0            4.530742E-01   3.008308E-01  -1.384133E-01   0.0                           \r\n           268      G      0.0            0.0            5.015129E-01   3.230140E-01  -6.127683E-02   0.0                           \r\n           269      G      0.0            0.0            5.062362E-01   3.089214E-01   5.439286E-02   0.0                           \r\n           270      G      0.0            0.0            4.434082E-01   2.608199E-01   1.829850E-01   0.0                           \r\n           271      G      0.0            0.0            3.278819E-01   1.839345E-01   2.814277E-01   0.0                           \r\n           272      G      0.0            0.0            1.689570E-01   9.022918E-02   3.381711E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            3.338228E-01   0.0                           \r\n           316      G      0.0            0.0           -5.657523E-01   7.979377E-02   0.0            0.0                           \r\n           317      G      0.0            0.0           -5.445532E-01   6.599781E-02  -7.834408E-02   0.0                           \r\n           318      G      0.0            0.0           -5.024529E-01   5.927652E-02  -7.650695E-02   0.0                           \r\n           319      G      0.0            0.0           -4.660878E-01   5.800986E-02  -7.956720E-02   0.0                           \r\n           320      G      0.0            0.0           -4.145972E-01   3.271690E-02  -1.222788E-01   0.0                           \r\n           321      G      0.0            0.0           -3.335433E-01  -1.575103E-02  -2.111328E-01   0.0                           \r\n           322      G      0.0            0.0           -2.057726E-01  -3.134058E-02  -2.718097E-01   0.0                           \r\n           323      G      0.0            0.0           -6.957021E-02  -1.317845E-02  -2.768380E-01   0.0                           \r\n           324      G      0.0            0.0            6.811376E-02  -3.646143E-03  -2.593377E-01   0.0                           \r\n           325      G      0.0            0.0            1.918571E-01   4.839647E-04  -2.461591E-01   0.0                           \r\n           326      G      0.0            0.0            3.214858E-01   2.070377E-03  -2.625051E-01   0.0                           \r\n           327      G      0.0            0.0            4.555628E-01   2.630946E-03  -2.792127E-01   0.0                           \r\n           328      G      0.0            0.0            5.873534E-01   1.229180E-02  -2.203137E-01   0.0                           \r\n           329      G      0.0            0.0            6.739594E-01   3.334741E-02  -1.450042E-01   0.0                           \r\n           330      G      0.0            0.0            7.377194E-01   4.288889E-02  -9.837945E-02   0.0                           \r\n           331      G      0.0            0.0            7.618183E-01   3.562745E-02  -5.119103E-03   0.0                           \r\n           332      G      0.0            0.0            7.354692E-01   1.674305E-02   1.201294E-01   0.0                           \r\n           333      G      0.0            0.0            6.381693E-01   2.186840E-02   2.617965E-01   0.0                           \r\n           334      G      0.0            0.0            4.716446E-01   4.472414E-02   4.080910E-01   0.0                           \r\n           335      G      0.0            0.0            2.404049E-01   4.684559E-02   4.872451E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            4.756863E-01   0.0                           \r\n           379      G      0.0            0.0           -1.457179E-01   4.334917E-01   0.0            0.0                           \r\n           380      G      0.0            0.0           -1.406525E-01   4.175569E-01  -1.247164E-02   0.0                           \r\n           381      G      0.0            0.0           -1.420566E-01   3.758257E-01   2.019833E-02   0.0                           \r\n           382      G      0.0            0.0           -1.543704E-01   3.109978E-01   2.014314E-02   0.0                           \r\n           383      G      0.0            0.0           -1.613555E-01   2.406063E-01   2.160110E-02   0.0                           \r\n           384      G      0.0            0.0           -1.693479E-01   1.665605E-01  -2.957579E-03   0.0                           \r\n           385      G      0.0            0.0           -1.503911E-01   8.073569E-02  -6.509155E-02   0.0                           \r\n           386      G      0.0            0.0           -1.081761E-01  -1.734280E-02  -1.082092E-01   0.0                           \r\n           387      G      0.0            0.0           -4.326462E-02  -1.075552E-01  -1.435714E-01   0.0                           \r\n           388      G      0.0            0.0            3.532337E-02  -1.677967E-01  -1.712209E-01   0.0                           \r\n           389      G      0.0            0.0            1.243795E-01  -1.988124E-01  -1.754432E-01   0.0                           \r\n           390      G      0.0            0.0            2.110050E-01  -2.368230E-01  -1.836582E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.086851E-01  -2.818998E-01  -1.981290E-01   0.0                           \r\n           392      G      0.0            0.0            4.052537E-01  -3.055593E-01  -1.907931E-01   0.0                           \r\n           393      G      0.0            0.0            4.921924E-01  -3.060420E-01  -1.442036E-01   0.0                           \r\n           394      G      0.0            0.0            5.386860E-01  -2.850708E-01  -4.325037E-02   0.0                           \r\n           395      G      0.0            0.0            5.289930E-01  -2.470134E-01   8.866687E-02   0.0                           \r\n           396      G      0.0            0.0            4.557785E-01  -2.048330E-01   1.869693E-01   0.0                           \r\n           397      G      0.0            0.0            3.433012E-01  -1.571364E-01   2.733997E-01   0.0                           \r\n           398      G      0.0            0.0            1.821879E-01  -9.149776E-02   3.570678E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            3.693891E-01   0.0                           \r\n           442      G      0.0            0.0            5.156363E-01   4.425480E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            5.139745E-01   4.365648E-01   3.209266E-02   0.0                           \r\n           444      G      0.0            0.0            4.577983E-01   4.141146E-01   1.967215E-01   0.0                           \r\n           445      G      0.0            0.0            3.268727E-01   3.418795E-01   3.038136E-01   0.0                           \r\n           446      G      0.0            0.0            1.707309E-01   2.272426E-01   3.192316E-01   0.0                           \r\n           447      G      0.0            0.0            1.791115E-02   1.099232E-01   2.804787E-01   0.0                           \r\n           448      G      0.0            0.0           -1.063586E-01  -7.765651E-04   2.228891E-01   0.0                           \r\n           449      G      0.0            0.0           -2.077743E-01  -9.775409E-02   1.767562E-01   0.0                           \r\n           450      G      0.0            0.0           -2.836938E-01  -1.801844E-01   1.307539E-01   0.0                           \r\n           451      G      0.0            0.0           -3.296814E-01  -2.563620E-01   3.555055E-02   0.0                           \r\n           452      G      0.0            0.0           -3.194545E-01  -3.225942E-01  -6.271624E-02   0.0                           \r\n           453      G      0.0            0.0           -2.751178E-01  -3.645749E-01  -1.202147E-01   0.0                           \r\n           454      G      0.0            0.0           -2.005334E-01  -3.729070E-01  -1.687091E-01   0.0                           \r\n           455      G      0.0            0.0           -1.118156E-01  -3.610242E-01  -1.890607E-01   0.0                           \r\n           456      G      0.0            0.0           -1.807818E-02  -3.499728E-01  -1.800541E-01   0.0                           \r\n           457      G      0.0            0.0            6.514607E-02  -3.391214E-01  -1.578407E-01   0.0                           \r\n           458      G      0.0            0.0            1.332904E-01  -2.934752E-01  -9.742488E-02   0.0                           \r\n           459      G      0.0            0.0            1.569755E-01  -2.154566E-01  -2.453721E-03   0.0                           \r\n           460      G      0.0            0.0            1.365665E-01  -1.381634E-01   8.966821E-02   0.0                           \r\n           461      G      0.0            0.0            7.402887E-02  -6.544403E-02   1.483210E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            1.481996E-01   0.0                           \r\n           505      G      0.0            0.0            9.758644E-01   1.074777E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            9.363583E-01   9.456564E-02   1.457364E-01   0.0                           \r\n           507      G      0.0            0.0            8.241476E-01   6.508118E-02   3.134233E-01   0.0                           \r\n           508      G      0.0            0.0            6.252720E-01   3.263392E-02   4.652624E-01   0.0                           \r\n           509      G      0.0            0.0            3.752095E-01   3.411601E-03   5.297817E-01   0.0                           \r\n           510      G      0.0            0.0            1.076447E-01  -2.524807E-02   5.247158E-01   0.0                           \r\n           511      G      0.0            0.0           -1.422672E-01  -7.140662E-02   4.703087E-01   0.0                           \r\n           512      G      0.0            0.0           -3.559935E-01  -1.261732E-01   3.711225E-01   0.0                           \r\n           513      G      0.0            0.0           -5.125470E-01  -1.588376E-01   2.630365E-01   0.0                           \r\n           514      G      0.0            0.0           -6.204671E-01  -1.555466E-01   1.576451E-01   0.0                           \r\n           515      G      0.0            0.0           -6.698881E-01  -1.495080E-01   4.200939E-02   0.0                           \r\n           516      G      0.0            0.0           -6.640303E-01  -1.396407E-01  -7.275753E-02   0.0                           \r\n           517      G      0.0            0.0           -5.988918E-01  -1.284202E-01  -1.829108E-01   0.0                           \r\n           518      G      0.0            0.0           -4.873455E-01  -1.117269E-01  -2.637152E-01   0.0                           \r\n           519      G      0.0            0.0           -3.496836E-01  -8.607997E-02  -2.692269E-01   0.0                           \r\n           520      G      0.0            0.0           -2.258259E-01  -5.211807E-02  -2.314810E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.194690E-01  -2.602191E-02  -1.852094E-01   0.0                           \r\n           522      G      0.0            0.0           -4.558096E-02  -1.444437E-02  -1.131220E-01   0.0                           \r\n           523      G      0.0            0.0           -5.339085E-03  -1.485255E-02  -4.186428E-02   0.0                           \r\n           524      G      0.0            0.0            2.823182E-03  -8.285612E-03   4.697385E-03   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            8.613319E-03   0.0                           \r\n           568      G      0.0            0.0            8.599129E-01  -2.550915E-01   0.0            0.0                           \r\n           569      G      0.0            0.0            8.228088E-01  -2.556711E-01   1.527476E-01   0.0                           \r\n           570      G      0.0            0.0            7.007446E-01  -2.400004E-01   3.382485E-01   0.0                           \r\n           571      G      0.0            0.0            4.938181E-01  -2.099142E-01   4.724491E-01   0.0                           \r\n           572      G      0.0            0.0            2.448062E-01  -1.715128E-01   5.155123E-01   0.0                           \r\n           573      G      0.0            0.0           -9.167851E-03  -1.279070E-01   4.866827E-01   0.0                           \r\n           574      G      0.0            0.0           -2.401743E-01  -7.286264E-02   4.416560E-01   0.0                           \r\n           575      G      0.0            0.0           -4.457658E-01  -9.266121E-03   3.633217E-01   0.0                           \r\n           576      G      0.0            0.0           -5.955839E-01   5.136506E-02   2.351030E-01   0.0                           \r\n           577      G      0.0            0.0           -6.813018E-01   9.962150E-02   9.834344E-02   0.0                           \r\n           578      G      0.0            0.0           -6.947220E-01   1.420826E-01  -4.174631E-02   0.0                           \r\n           579      G      0.0            0.0           -6.429155E-01   1.909175E-01  -1.660364E-01   0.0                           \r\n           580      G      0.0            0.0           -5.375182E-01   2.408083E-01  -2.455988E-01   0.0                           \r\n           581      G      0.0            0.0           -4.048407E-01   2.616463E-01  -2.904759E-01   0.0                           \r\n           582      G      0.0            0.0           -2.541252E-01   2.508562E-01  -3.009332E-01   0.0                           \r\n           583      G      0.0            0.0           -1.122450E-01   2.305104E-01  -2.647836E-01   0.0                           \r\n           584      G      0.0            0.0            3.159415E-03   2.015543E-01  -1.846974E-01   0.0                           \r\n           585      G      0.0            0.0            6.649981E-02   1.656101E-01  -6.895881E-02   0.0                           \r\n           586      G      0.0            0.0            7.379157E-02   1.223640E-01   4.397774E-02   0.0                           \r\n           587      G      0.0            0.0            3.739103E-02   6.649689E-02   8.688784E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            6.943654E-02   0.0                           \r\n           631      G      0.0            0.0            3.155307E-01  -3.972939E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            2.907413E-01  -3.778876E-01   1.011590E-01   0.0                           \r\n           633      G      0.0            0.0            2.120481E-01  -3.407551E-01   2.154293E-01   0.0                           \r\n           634      G      0.0            0.0            8.363371E-02  -2.737280E-01   2.892078E-01   0.0                           \r\n           635      G      0.0            0.0           -6.821727E-02  -1.805058E-01   3.173699E-01   0.0                           \r\n           636      G      0.0            0.0           -2.228495E-01  -9.156756E-02   2.849398E-01   0.0                           \r\n           637      G      0.0            0.0           -3.440380E-01  -1.194178E-02   2.013194E-01   0.0                           \r\n           638      G      0.0            0.0           -4.197208E-01   7.520216E-02   9.491093E-02   0.0                           \r\n           639      G      0.0            0.0           -4.379300E-01   1.643396E-01  -1.576738E-02   0.0                           \r\n           640      G      0.0            0.0           -4.068791E-01   2.489570E-01  -1.110456E-01   0.0                           \r\n           641      G      0.0            0.0           -3.291489E-01   3.211074E-01  -1.933271E-01   0.0                           \r\n           642      G      0.0            0.0           -2.113208E-01   3.679741E-01  -2.862027E-01   0.0                           \r\n           643      G      0.0            0.0           -4.984359E-02   3.873748E-01  -3.429061E-01   0.0                           \r\n           644      G      0.0            0.0            1.180409E-01   3.879782E-01  -3.264237E-01   0.0                           \r\n           645      G      0.0            0.0            2.690142E-01   3.779887E-01  -2.650970E-01   0.0                           \r\n           646      G      0.0            0.0            3.748428E-01   3.501277E-01  -1.574066E-01   0.0                           \r\n           647      G      0.0            0.0            4.208099E-01   2.925734E-01  -2.181914E-02   0.0                           \r\n           648      G      0.0            0.0            3.976461E-01   2.109641E-01   1.077583E-01   0.0                           \r\n           649      G      0.0            0.0            3.149019E-01   1.364610E-01   2.306119E-01   0.0                           \r\n           650      G      0.0            0.0            1.722557E-01   7.202934E-02   3.285619E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.525772E-01   0.0                           \r\n           694      G      0.0            0.0           -1.796965E-01  -2.480054E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -1.839169E-01  -2.223606E-01   2.446092E-02   0.0                           \r\n           696      G      0.0            0.0           -2.118702E-01  -1.838559E-01   9.148522E-02   0.0                           \r\n           697      G      0.0            0.0           -2.640817E-01  -1.382613E-01   1.028049E-01   0.0                           \r\n           698      G      0.0            0.0           -3.044142E-01  -8.830086E-02   6.331491E-02   0.0                           \r\n           699      G      0.0            0.0           -3.229547E-01  -2.650612E-02   6.688237E-03   0.0                           \r\n           700      G      0.0            0.0           -3.049986E-01   4.629669E-02  -7.196634E-02   0.0                           \r\n           701      G      0.0            0.0           -2.490803E-01   1.196593E-01  -1.523116E-01   0.0                           \r\n           702      G      0.0            0.0           -1.524422E-01   1.723585E-01  -2.287266E-01   0.0                           \r\n           703      G      0.0            0.0           -1.949428E-02   2.025678E-01  -3.030539E-01   0.0                           \r\n           704      G      0.0            0.0            1.473636E-01   2.297264E-01  -3.502234E-01   0.0                           \r\n           705      G      0.0            0.0            3.247322E-01   2.531635E-01  -3.570881E-01   0.0                           \r\n           706      G      0.0            0.0            4.982671E-01   2.556896E-01  -3.272813E-01   0.0                           \r\n           707      G      0.0            0.0            6.456497E-01   2.386246E-01  -2.618441E-01   0.0                           \r\n           708      G      0.0            0.0            7.550175E-01   2.064510E-01  -1.684503E-01   0.0                           \r\n           709      G      0.0            0.0            8.079048E-01   1.671321E-01  -4.358773E-02   0.0                           \r\n           710      G      0.0            0.0            7.892155E-01   1.327771E-01   1.278119E-01   0.0                           \r\n           711      G      0.0            0.0            6.795428E-01   1.047660E-01   2.987819E-01   0.0                           \r\n           712      G      0.0            0.0            4.977604E-01   7.589971E-02   4.246591E-01   0.0                           \r\n           713      G      0.0            0.0            2.609174E-01   3.998490E-02   5.082230E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            5.277991E-01   0.0                           \r\n           757      G      0.0            0.0           -2.991401E-01   3.809987E-02   0.0            0.0                           \r\n           758      G      0.0            0.0           -2.925365E-01   3.176709E-02  -2.418576E-02   0.0                           \r\n           759      G      0.0            0.0           -2.826328E-01   4.157759E-02  -8.052646E-03   0.0                           \r\n           760      G      0.0            0.0           -2.816221E-01   6.949490E-02  -3.218064E-03   0.0                           \r\n           761      G      0.0            0.0           -2.721885E-01   9.262398E-02  -3.278367E-02   0.0                           \r\n           762      G      0.0            0.0           -2.425298E-01   1.049089E-01  -9.059940E-02   0.0                           \r\n           763      G      0.0            0.0           -1.767132E-01   1.026376E-01  -1.669784E-01   0.0                           \r\n           764      G      0.0            0.0           -7.509126E-02   8.713911E-02  -2.381439E-01   0.0                           \r\n           765      G      0.0            0.0            5.490436E-02   6.564796E-02  -2.671287E-01   0.0                           \r\n           766      G      0.0            0.0            1.901050E-01   3.860410E-02  -2.774025E-01   0.0                           \r\n           767      G      0.0            0.0            3.338687E-01  -3.408760E-04  -2.893795E-01   0.0                           \r\n           768      G      0.0            0.0            4.750501E-01  -5.332866E-02  -2.753634E-01   0.0                           \r\n           769      G      0.0            0.0            6.052728E-01  -1.086545E-01  -2.378476E-01   0.0                           \r\n           770      G      0.0            0.0            7.082080E-01  -1.482598E-01  -1.716056E-01   0.0                           \r\n           771      G      0.0            0.0            7.698159E-01  -1.682094E-01  -6.736707E-02   0.0                           \r\n           772      G      0.0            0.0            7.719504E-01  -1.847636E-01   5.094643E-02   0.0                           \r\n           773      G      0.0            0.0            7.178863E-01  -1.947371E-01   1.678985E-01   0.0                           \r\n           774      G      0.0            0.0            6.038629E-01  -1.785709E-01   2.808038E-01   0.0                           \r\n           775      G      0.0            0.0            4.388445E-01  -1.379332E-01   3.783803E-01   0.0                           \r\n           776      G      0.0            0.0            2.293813E-01  -7.671046E-02   4.476456E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.631972E-01   0.0                           \r\n           820      G      0.0            0.0           -1.139963E-01   2.043701E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.061780E-01   1.979165E-01  -2.355918E-02   0.0                           \r\n           822      G      0.0            0.0           -9.652528E-02   1.868756E-01  -1.333833E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -9.157091E-02   1.795475E-01  -1.078000E-02   0.0                           \r\n           824      G      0.0            0.0           -8.309548E-02   1.594344E-01  -1.991034E-02   0.0                           \r\n           825      G      0.0            0.0           -6.980627E-02   1.323105E-01  -3.654023E-02   0.0                           \r\n           826      G      0.0            0.0           -4.629529E-02   8.953051E-02  -5.376557E-02   0.0                           \r\n           827      G      0.0            0.0           -1.556657E-02   3.380271E-02  -7.325684E-02   0.0                           \r\n           828      G      0.0            0.0            2.658372E-02  -5.426179E-02  -8.825085E-02   0.0                           \r\n           829      G      0.0            0.0            7.214565E-02  -1.447949E-01  -9.652904E-02   0.0                           \r\n           830      G      0.0            0.0            1.217542E-01  -2.360442E-01  -9.421692E-02   0.0                           \r\n           831      G      0.0            0.0            1.636482E-01  -3.170929E-01  -7.457509E-02   0.0                           \r\n           832      G      0.0            0.0            1.959010E-01  -3.872012E-01  -5.037510E-02   0.0                           \r\n           833      G      0.0            0.0            2.174725E-01  -4.374642E-01  -4.577809E-02   0.0                           \r\n           834      G      0.0            0.0            2.392580E-01  -4.712594E-01  -3.011088E-02   0.0                           \r\n           835      G      0.0            0.0            2.423949E-01  -4.719293E-01   1.496962E-02   0.0                           \r\n           836      G      0.0            0.0            2.254599E-01  -4.383324E-01   5.534539E-02   0.0                           \r\n           837      G      0.0            0.0            1.878636E-01  -3.615251E-01   9.021574E-02   0.0                           \r\n           838      G      0.0            0.0            1.355486E-01  -2.588262E-01   1.205999E-01   0.0                           \r\n           839      G      0.0            0.0            6.901411E-02  -1.330947E-01   1.385747E-01   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.366237E-01   0.0                           \r\n           841      G      0.0            0.0            0.0            2.414977E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            2.201813E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            1.972373E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            1.862559E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            1.682119E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.431339E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            9.157395E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.941835E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.507758E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -1.433816E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -2.479546E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -3.304095E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.948571E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -4.305553E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -4.814348E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -4.875450E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -4.559911E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.803999E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.771497E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.397233E-01   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.397587E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            7.729933E-02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.800046E-02   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            8.038577E-03   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.271178E-02   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -8.699399E-02   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.271701E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.365056E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.019847E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -7.454637E-03   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            7.066049E-02   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.523725E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            1.663858E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            2.739400E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            3.658626E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            4.379161E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            3.471570E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.051177E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.709591E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            2.732781E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            1.837977E-01   4.759255E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            1.532257E-01   5.305983E-02   1.320686E-01   0.0                           \r\n            66      G      0.0            0.0            8.371036E-02   5.341918E-02   1.087885E-01   0.0                           \r\n            67      G      0.0            0.0            5.755448E-02   3.521908E-02   1.907531E-02   0.0                           \r\n            68      G      0.0            0.0            5.907938E-02   7.907707E-04  -3.854670E-02   0.0                           \r\n            69      G      0.0            0.0            6.263065E-02  -1.315238E-02   8.298620E-02   0.0                           \r\n            70      G      0.0            0.0           -1.647780E-02  -1.212155E-04   1.744745E-01   0.0                           \r\n            71      G      0.0            0.0           -7.623853E-02   9.528949E-04   7.943017E-02   0.0                           \r\n            72      G      0.0            0.0           -9.461862E-02  -2.766042E-02  -3.661635E-02   0.0                           \r\n            73      G      0.0            0.0           -3.676880E-02  -4.105286E-02  -1.716873E-01   0.0                           \r\n            74      G      0.0            0.0            7.136843E-02   3.870771E-02  -2.637397E-01   0.0                           \r\n            75      G      0.0            0.0            2.028526E-01   1.899932E-01  -2.235204E-01   0.0                           \r\n            76      G      0.0            0.0            2.881094E-01   2.689704E-01  -1.631917E-01   0.0                           \r\n            77      G      0.0            0.0            3.691186E-01   2.464609E-01  -1.317021E-01   0.0                           \r\n            78      G      0.0            0.0            4.168673E-01   2.282584E-01  -8.242729E-02   0.0                           \r\n            79      G      0.0            0.0            4.452392E-01   2.056753E-01  -8.015884E-04   0.0                           \r\n            80      G      0.0            0.0            4.047300E-01   1.900486E-01   1.415733E-01   0.0                           \r\n            81      G      0.0            0.0            3.056214E-01   1.690512E-01   2.683921E-01   0.0                           \r\n            82      G      0.0            0.0            1.717748E-01   1.128360E-01   2.046606E-01   0.0                           \r\n            83      G      0.0            0.0            9.957087E-02   3.652987E-02   1.414251E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.413460E-01   0.0                           \r\n           127      G      0.0            0.0            2.620242E-01   1.391385E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            2.154011E-01   1.351685E-01   1.740175E-01   0.0                           \r\n           129      G      0.0            0.0            1.349933E-01   1.287151E-01   1.283146E-01   0.0                           \r\n           130      G      0.0            0.0            7.231366E-02   1.560111E-01   1.653102E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -3.956866E-02   9.298961E-02   2.375834E-01   0.0                           \r\n           132      G      0.0            0.0           -1.560760E-01  -5.196670E-02   2.501973E-01   0.0                           \r\n           133      G      0.0            0.0           -2.750302E-01  -1.623905E-01   1.935244E-01   0.0                           \r\n           134      G      0.0            0.0           -3.360025E-01  -2.264082E-01   7.429148E-02   0.0                           \r\n           135      G      0.0            0.0           -3.511778E-01  -2.417417E-01  -3.435917E-02   0.0                           \r\n           136      G      0.0            0.0           -3.016343E-01  -2.221681E-01  -1.416403E-01   0.0                           \r\n           137      G      0.0            0.0           -1.852847E-01  -2.165325E-01  -3.742118E-01   0.0                           \r\n           138      G      0.0            0.0            5.741655E-02  -2.222345E-01  -5.302730E-01   0.0                           \r\n           139      G      0.0            0.0            3.023066E-01  -1.992842E-01  -4.584888E-01   0.0                           \r\n           140      G      0.0            0.0            5.081480E-01  -1.197076E-01  -3.263769E-01   0.0                           \r\n           141      G      0.0            0.0            6.192498E-01  -3.934305E-02  -1.358057E-01   0.0                           \r\n           142      G      0.0            0.0            6.437830E-01  -3.329629E-02   4.592048E-02   0.0                           \r\n           143      G      0.0            0.0            5.929725E-01  -9.309661E-02   1.194003E-01   0.0                           \r\n           144      G      0.0            0.0            5.281769E-01  -8.189698E-02   1.867609E-01   0.0                           \r\n           145      G      0.0            0.0            4.006986E-01  -9.992760E-03   2.923062E-01   0.0                           \r\n           146      G      0.0            0.0            2.341636E-01   1.100052E-02   3.955950E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            5.098188E-01   0.0                           \r\n           190      G      0.0            0.0            5.149546E-01  -2.795574E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            4.222712E-01   5.186056E-02   3.259500E-01   0.0                           \r\n           192      G      0.0            0.0            2.503726E-01   7.269472E-02   3.100739E-01   0.0                           \r\n           193      G      0.0            0.0            1.113137E-01   5.499882E-03   2.792329E-01   0.0                           \r\n           194      G      0.0            0.0           -5.050144E-02  -7.329109E-02   3.656953E-01   0.0                           \r\n           195      G      0.0            0.0           -2.466742E-01  -1.341216E-01   4.297961E-01   0.0                           \r\n           196      G      0.0            0.0           -4.610329E-01  -1.548588E-01   3.986305E-01   0.0                           \r\n           197      G      0.0            0.0           -6.204473E-01  -2.158992E-01   2.309995E-01   0.0                           \r\n           198      G      0.0            0.0           -6.714355E-01  -2.951786E-01  -4.274448E-02   0.0                           \r\n           199      G      0.0            0.0           -5.833120E-01  -3.337116E-01  -2.717756E-01   0.0                           \r\n           200      G      0.0            0.0           -4.133997E-01  -2.561322E-01  -4.203210E-01   0.0                           \r\n           201      G      0.0            0.0           -1.750052E-01  -2.045273E-01  -5.114638E-01   0.0                           \r\n           202      G      0.0            0.0            7.934143E-02  -1.667134E-01  -5.083479E-01   0.0                           \r\n           203      G      0.0            0.0            3.209715E-01  -1.451360E-01  -4.409525E-01   0.0                           \r\n           204      G      0.0            0.0            5.076072E-01  -1.222350E-01  -3.087064E-01   0.0                           \r\n           205      G      0.0            0.0            6.108277E-01  -7.196645E-02  -7.539816E-02   0.0                           \r\n           206      G      0.0            0.0            5.898747E-01  -1.344584E-02   1.305275E-01   0.0                           \r\n           207      G      0.0            0.0            4.998693E-01   1.855670E-02   2.316789E-01   0.0                           \r\n           208      G      0.0            0.0            3.589543E-01   1.391216E-02   3.132461E-01   0.0                           \r\n           209      G      0.0            0.0            1.915424E-01   1.068539E-03   3.607910E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            3.996646E-01   0.0                           \r\n           253      G      0.0            0.0            7.793490E-01   2.179830E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            7.073013E-01   1.750642E-01   2.774232E-01   0.0                           \r\n           255      G      0.0            0.0            5.272287E-01   1.578110E-01   4.198197E-01   0.0                           \r\n           256      G      0.0            0.0            2.914556E-01   1.212297E-01   5.340259E-01   0.0                           \r\n           257      G      0.0            0.0           -2.451017E-03   7.322033E-02   6.193026E-01   0.0                           \r\n           258      G      0.0            0.0           -3.087958E-01   1.947196E-02   6.018798E-01   0.0                           \r\n           259      G      0.0            0.0           -5.830498E-01  -2.653168E-02   4.703335E-01   0.0                           \r\n           260      G      0.0            0.0           -7.748693E-01  -4.274078E-02   3.146502E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -8.851699E-01  -3.457057E-02   9.399660E-02   0.0                           \r\n           262      G      0.0            0.0           -8.559129E-01  -3.121587E-02  -1.982412E-01   0.0                           \r\n           263      G      0.0            0.0           -7.015201E-01  -5.217263E-02  -4.252948E-01   0.0                           \r\n           264      G      0.0            0.0           -4.488854E-01  -7.576653E-02  -5.624992E-01   0.0                           \r\n           265      G      0.0            0.0           -1.600424E-01  -6.358027E-02  -5.845746E-01   0.0                           \r\n           266      G      0.0            0.0            1.099510E-01  -2.015891E-02  -4.698308E-01   0.0                           \r\n           267      G      0.0            0.0            2.984623E-01  -1.150853E-02  -3.046438E-01   0.0                           \r\n           268      G      0.0            0.0            4.145536E-01  -3.993864E-02  -1.460309E-01   0.0                           \r\n           269      G      0.0            0.0            4.475815E-01  -5.104690E-02   6.750988E-04   0.0                           \r\n           270      G      0.0            0.0            4.191850E-01  -4.664211E-02   1.260887E-01   0.0                           \r\n           271      G      0.0            0.0            3.241456E-01  -2.950032E-02   2.426137E-01   0.0                           \r\n           272      G      0.0            0.0            1.827197E-01  -8.270524E-03   3.304906E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            3.908430E-01   0.0                           \r\n           316      G      0.0            0.0            9.743458E-01   8.359519E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            8.928778E-01   9.686083E-02   3.159442E-01   0.0                           \r\n           318      G      0.0            0.0            6.848331E-01   9.479697E-02   4.939234E-01   0.0                           \r\n           319      G      0.0            0.0            4.113975E-01   8.078873E-02   6.043793E-01   0.0                           \r\n           320      G      0.0            0.0            8.962902E-02   9.295925E-02   6.681700E-01   0.0                           \r\n           321      G      0.0            0.0           -2.485563E-01   1.327392E-01   6.870337E-01   0.0                           \r\n           322      G      0.0            0.0           -5.756229E-01   1.341025E-01   5.805871E-01   0.0                           \r\n           323      G      0.0            0.0           -8.054101E-01   9.805854E-02   3.409475E-01   0.0                           \r\n           324      G      0.0            0.0           -9.058961E-01   7.777439E-02   4.573884E-02   0.0                           \r\n           325      G      0.0            0.0           -8.549247E-01   6.979367E-02  -2.292861E-01   0.0                           \r\n           326      G      0.0            0.0           -6.948541E-01   7.013185E-02  -4.112744E-01   0.0                           \r\n           327      G      0.0            0.0           -4.614027E-01   7.554374E-02  -5.012826E-01   0.0                           \r\n           328      G      0.0            0.0           -1.979872E-01   7.159068E-02  -5.705244E-01   0.0                           \r\n           329      G      0.0            0.0            8.942316E-02   5.304620E-02  -5.415862E-01   0.0                           \r\n           330      G      0.0            0.0            3.170203E-01   4.548042E-02  -3.718413E-01   0.0                           \r\n           331      G      0.0            0.0            4.591482E-01   5.330335E-02  -1.817262E-01   0.0                           \r\n           332      G      0.0            0.0            5.001317E-01   6.882571E-02   6.332760E-03   0.0                           \r\n           333      G      0.0            0.0            4.580439E-01   4.807772E-02   1.649705E-01   0.0                           \r\n           334      G      0.0            0.0            3.470397E-01  -6.882819E-04   2.628726E-01   0.0                           \r\n           335      G      0.0            0.0            1.991006E-01  -2.895538E-02   3.492902E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            4.274434E-01   0.0                           \r\n           379      G      0.0            0.0            9.439685E-01  -1.235406E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            8.724757E-01  -1.126864E-01   2.740603E-01   0.0                           \r\n           381      G      0.0            0.0            6.891168E-01  -8.708192E-02   4.500164E-01   0.0                           \r\n           382      G      0.0            0.0            4.301181E-01  -4.866858E-02   5.868328E-01   0.0                           \r\n           383      G      0.0            0.0            1.215457E-01  -1.668337E-02   6.189849E-01   0.0                           \r\n           384      G      0.0            0.0           -1.750904E-01   9.435327E-03   5.726278E-01   0.0                           \r\n           385      G      0.0            0.0           -4.408163E-01   4.305171E-02   4.719018E-01   0.0                           \r\n           386      G      0.0            0.0           -6.271117E-01   8.852690E-02   2.737879E-01   0.0                           \r\n           387      G      0.0            0.0           -7.055373E-01   1.251998E-01   3.036273E-02   0.0                           \r\n           388      G      0.0            0.0           -6.582618E-01   1.299149E-01  -2.136474E-01   0.0                           \r\n           389      G      0.0            0.0           -4.969641E-01   1.071544E-01  -4.332968E-01   0.0                           \r\n           390      G      0.0            0.0           -2.418995E-01   1.042571E-01  -5.583263E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.920920E-02   1.237272E-01  -5.623534E-01   0.0                           \r\n           392      G      0.0            0.0            3.023221E-01   1.323749E-01  -4.729331E-01   0.0                           \r\n           393      G      0.0            0.0            5.001026E-01   1.287742E-01  -3.226950E-01   0.0                           \r\n           394      G      0.0            0.0            6.223184E-01   1.148471E-01  -1.578761E-01   0.0                           \r\n           395      G      0.0            0.0            6.574679E-01   9.486325E-02   9.939399E-03   0.0                           \r\n           396      G      0.0            0.0            6.056818E-01   8.277683E-02   2.130024E-01   0.0                           \r\n           397      G      0.0            0.0            4.519273E-01   7.429536E-02   3.785143E-01   0.0                           \r\n           398      G      0.0            0.0            2.437601E-01   5.109717E-02   4.563605E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.043639E-01   0.0                           \r\n           442      G      0.0            0.0            6.771307E-01  -2.836755E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            6.013056E-01  -2.830797E-01   2.693660E-01   0.0                           \r\n           444      G      0.0            0.0            4.476852E-01  -2.756925E-01   3.319759E-01   0.0                           \r\n           445      G      0.0            0.0            2.732136E-01  -2.204754E-01   3.820065E-01   0.0                           \r\n           446      G      0.0            0.0            6.565172E-02  -1.257875E-01   4.355606E-01   0.0                           \r\n           447      G      0.0            0.0           -1.527524E-01  -3.901980E-02   4.373934E-01   0.0                           \r\n           448      G      0.0            0.0           -3.553784E-01   3.023760E-02   3.524700E-01   0.0                           \r\n           449      G      0.0            0.0           -4.860449E-01   7.585147E-02   1.682315E-01   0.0                           \r\n           450      G      0.0            0.0           -5.142722E-01   1.001694E-01  -6.444385E-02   0.0                           \r\n           451      G      0.0            0.0           -4.322094E-01   1.174167E-01  -2.413263E-01   0.0                           \r\n           452      G      0.0            0.0           -2.809297E-01   1.277124E-01  -3.746275E-01   0.0                           \r\n           453      G      0.0            0.0           -6.302746E-02   1.184496E-01  -4.802605E-01   0.0                           \r\n           454      G      0.0            0.0            1.807006E-01   8.287033E-02  -4.939710E-01   0.0                           \r\n           455      G      0.0            0.0            4.156144E-01   4.151259E-02  -4.296642E-01   0.0                           \r\n           456      G      0.0            0.0            5.981030E-01   2.316506E-02  -2.966383E-01   0.0                           \r\n           457      G      0.0            0.0            7.003675E-01   2.869353E-02  -9.893557E-02   0.0                           \r\n           458      G      0.0            0.0            6.962879E-01   1.527829E-02   9.693295E-02   0.0                           \r\n           459      G      0.0            0.0            6.098738E-01  -1.598939E-02   2.528573E-01   0.0                           \r\n           460      G      0.0            0.0            4.502821E-01  -2.827563E-02   3.719344E-01   0.0                           \r\n           461      G      0.0            0.0            2.445762E-01  -2.197773E-02   4.554422E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            5.101406E-01   0.0                           \r\n           505      G      0.0            0.0            2.363326E-01  -2.353498E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            2.030032E-01  -2.170362E-01   1.453602E-01   0.0                           \r\n           507      G      0.0            0.0            1.062381E-01  -1.740391E-01   2.205892E-01   0.0                           \r\n           508      G      0.0            0.0           -5.717078E-03  -1.247865E-01   2.348684E-01   0.0                           \r\n           509      G      0.0            0.0           -1.292774E-01  -7.946217E-02   2.501268E-01   0.0                           \r\n           510      G      0.0            0.0           -2.496802E-01  -3.778055E-02   2.344585E-01   0.0                           \r\n           511      G      0.0            0.0           -3.529499E-01   1.956508E-02   1.693749E-01   0.0                           \r\n           512      G      0.0            0.0           -4.118385E-01   7.970064E-02   7.095057E-02   0.0                           \r\n           513      G      0.0            0.0           -4.160581E-01   1.042899E-01  -7.095408E-02   0.0                           \r\n           514      G      0.0            0.0           -3.379914E-01   7.706496E-02  -2.299024E-01   0.0                           \r\n           515      G      0.0            0.0           -1.931852E-01   4.076999E-02  -3.487313E-01   0.0                           \r\n           516      G      0.0            0.0           -6.920130E-04  -2.433792E-03  -4.051149E-01   0.0                           \r\n           517      G      0.0            0.0            1.962052E-01  -4.516277E-02  -3.784600E-01   0.0                           \r\n           518      G      0.0            0.0            3.657466E-01  -8.779278E-02  -2.881122E-01   0.0                           \r\n           519      G      0.0            0.0            4.836897E-01  -1.302702E-01  -1.949368E-01   0.0                           \r\n           520      G      0.0            0.0            5.558228E-01  -1.684887E-01  -7.904656E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            5.562256E-01  -1.808601E-01   7.151479E-02   0.0                           \r\n           522      G      0.0            0.0            4.897038E-01  -1.592756E-01   1.988864E-01   0.0                           \r\n           523      G      0.0            0.0            3.628501E-01  -1.087666E-01   2.984922E-01   0.0                           \r\n           524      G      0.0            0.0            1.962569E-01  -5.616134E-02   3.678328E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            4.076125E-01   0.0                           \r\n           568      G      0.0            0.0           -3.822313E-03  -5.536036E-02   0.0            0.0                           \r\n           569      G      0.0            0.0           -2.783631E-02  -4.139053E-02   8.825713E-02   0.0                           \r\n           570      G      0.0            0.0           -7.738858E-02  -2.216334E-02   9.942615E-02   0.0                           \r\n           571      G      0.0            0.0           -1.259025E-01   5.083040E-04   1.045224E-01   0.0                           \r\n           572      G      0.0            0.0           -1.854683E-01   2.790565E-02   1.304701E-01   0.0                           \r\n           573      G      0.0            0.0           -2.535690E-01   5.632450E-02   1.449790E-01   0.0                           \r\n           574      G      0.0            0.0           -3.155889E-01   7.025437E-02   8.535585E-02   0.0                           \r\n           575      G      0.0            0.0           -3.318128E-01   6.590211E-02  -8.929344E-03   0.0                           \r\n           576      G      0.0            0.0           -3.085974E-01   5.144057E-02  -8.873133E-02   0.0                           \r\n           577      G      0.0            0.0           -2.414492E-01   3.450566E-02  -1.697693E-01   0.0                           \r\n           578      G      0.0            0.0           -1.434296E-01   5.556891E-03  -2.229911E-01   0.0                           \r\n           579      G      0.0            0.0           -2.563727E-02  -4.943521E-02  -2.410209E-01   0.0                           \r\n           580      G      0.0            0.0            9.320924E-02  -1.211361E-01  -2.376370E-01   0.0                           \r\n           581      G      0.0            0.0            2.045263E-01  -1.685331E-01  -1.912399E-01   0.0                           \r\n           582      G      0.0            0.0            2.775447E-01  -1.836301E-01  -1.055520E-01   0.0                           \r\n           583      G      0.0            0.0            3.082174E-01  -1.887208E-01  -1.195489E-02   0.0                           \r\n           584      G      0.0            0.0            2.919640E-01  -1.811624E-01   6.671122E-02   0.0                           \r\n           585      G      0.0            0.0            2.484307E-01  -1.605138E-01   1.091210E-01   0.0                           \r\n           586      G      0.0            0.0            1.868160E-01  -1.255791E-01   1.304878E-01   0.0                           \r\n           587      G      0.0            0.0            1.111985E-01  -7.060609E-02   1.858540E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            2.452372E-01   0.0                           \r\n           631      G      0.0            0.0            7.219657E-02   1.118855E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            5.790259E-02   1.063730E-01   5.313951E-02   0.0                           \r\n           633      G      0.0            0.0            2.715142E-02   1.137781E-01   6.312025E-02   0.0                           \r\n           634      G      0.0            0.0           -5.675691E-03   1.140020E-01   7.244445E-02   0.0                           \r\n           635      G      0.0            0.0           -4.353238E-02   1.035555E-01   7.202978E-02   0.0                           \r\n           636      G      0.0            0.0           -7.726584E-02   1.098494E-01   7.478369E-02   0.0                           \r\n           637      G      0.0            0.0           -1.167435E-01   1.285312E-01   7.460402E-02   0.0                           \r\n           638      G      0.0            0.0           -1.475447E-01   1.290624E-01   5.215367E-02   0.0                           \r\n           639      G      0.0            0.0           -1.648176E-01   1.098106E-01   7.836308E-03   0.0                           \r\n           640      G      0.0            0.0           -1.517202E-01   7.276174E-02  -5.519557E-02   0.0                           \r\n           641      G      0.0            0.0           -1.120052E-01   2.451277E-02  -1.068303E-01   0.0                           \r\n           642      G      0.0            0.0           -5.719452E-02  -1.948777E-02  -9.525263E-02   0.0                           \r\n           643      G      0.0            0.0           -2.084665E-02  -5.422145E-02  -6.230453E-02   0.0                           \r\n           644      G      0.0            0.0            8.128864E-03  -8.600681E-02  -4.792700E-02   0.0                           \r\n           645      G      0.0            0.0            2.386958E-02  -1.195113E-01  -2.299611E-02   0.0                           \r\n           646      G      0.0            0.0            3.179306E-02  -1.403027E-01  -4.777689E-03   0.0                           \r\n           647      G      0.0            0.0            3.047994E-02  -1.290352E-01   6.338637E-03   0.0                           \r\n           648      G      0.0            0.0            2.445260E-02  -8.894598E-02   2.478602E-02   0.0                           \r\n           649      G      0.0            0.0            8.843838E-03  -5.601837E-02   2.450388E-02   0.0                           \r\n           650      G      0.0            0.0            3.387646E-03  -3.333531E-02   4.914406E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.071265E-02   0.0                           \r\n           694      G      0.0            0.0            2.336484E-01   1.051717E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            2.198629E-01   8.833448E-02   4.522938E-02   0.0                           \r\n           696      G      0.0            0.0            2.013329E-01   8.309876E-02   2.203224E-02   0.0                           \r\n           697      G      0.0            0.0            1.904196E-01   9.171043E-02   3.685334E-02   0.0                           \r\n           698      G      0.0            0.0            1.602651E-01   1.101912E-01   7.522447E-02   0.0                           \r\n           699      G      0.0            0.0            1.186616E-01   1.205729E-01   9.413835E-02   0.0                           \r\n           700      G      0.0            0.0            6.669726E-02   1.146363E-01   1.048123E-01   0.0                           \r\n           701      G      0.0            0.0            1.735646E-02   9.670086E-02   9.412067E-02   0.0                           \r\n           702      G      0.0            0.0           -2.507421E-02   8.605134E-02   7.170233E-02   0.0                           \r\n           703      G      0.0            0.0           -5.645288E-02   8.081020E-02   5.858775E-02   0.0                           \r\n           704      G      0.0            0.0           -8.439966E-02   5.601108E-02   4.226501E-02   0.0                           \r\n           705      G      0.0            0.0           -9.912167E-02   1.408973E-02   2.123197E-02   0.0                           \r\n           706      G      0.0            0.0           -1.077289E-01  -1.996454E-02   8.524075E-03   0.0                           \r\n           707      G      0.0            0.0           -1.100339E-01  -4.218303E-02   6.509195E-03   0.0                           \r\n           708      G      0.0            0.0           -1.171798E-01  -5.183384E-02   1.774814E-02   0.0                           \r\n           709      G      0.0            0.0           -1.270061E-01  -5.280056E-02   2.401019E-02   0.0                           \r\n           710      G      0.0            0.0           -1.331083E-01  -5.525508E-02  -1.231358E-02   0.0                           \r\n           711      G      0.0            0.0           -1.134751E-01  -5.809561E-02  -5.563900E-02   0.0                           \r\n           712      G      0.0            0.0           -8.198377E-02  -5.185139E-02  -7.273656E-02   0.0                           \r\n           713      G      0.0            0.0           -4.039542E-02  -3.030048E-02  -8.486828E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -7.741397E-02   0.0                           \r\n           757      G      0.0            0.0            2.320774E-01  -5.144219E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            2.206617E-01  -3.781077E-02   4.284566E-02   0.0                           \r\n           759      G      0.0            0.0            2.004685E-01  -3.331979E-02   2.870332E-02   0.0                           \r\n           760      G      0.0            0.0            1.918534E-01  -4.378350E-02   1.445107E-02   0.0                           \r\n           761      G      0.0            0.0            1.815370E-01  -4.628006E-02   2.490470E-02   0.0                           \r\n           762      G      0.0            0.0            1.638037E-01  -3.925052E-02   5.267225E-02   0.0                           \r\n           763      G      0.0            0.0            1.268878E-01  -2.380117E-02   8.977697E-02   0.0                           \r\n           764      G      0.0            0.0            7.613279E-02  -6.011785E-03   1.143639E-01   0.0                           \r\n           765      G      0.0            0.0            2.130933E-02   2.835076E-03   9.081884E-02   0.0                           \r\n           766      G      0.0            0.0           -1.363609E-02   2.293437E-03   5.828658E-02   0.0                           \r\n           767      G      0.0            0.0           -4.225613E-02   2.871509E-03   5.141938E-02   0.0                           \r\n           768      G      0.0            0.0           -6.467735E-02   1.230282E-02   4.368468E-02   0.0                           \r\n           769      G      0.0            0.0           -8.714876E-02   2.309983E-02   4.169007E-02   0.0                           \r\n           770      G      0.0            0.0           -1.068532E-01   2.075988E-02   3.806714E-02   0.0                           \r\n           771      G      0.0            0.0           -1.220913E-01   7.694304E-03   1.582284E-02   0.0                           \r\n           772      G      0.0            0.0           -1.222445E-01   9.573271E-03  -5.618628E-03   0.0                           \r\n           773      G      0.0            0.0           -1.171695E-01   2.600379E-02  -2.017133E-02   0.0                           \r\n           774      G      0.0            0.0           -1.013449E-01   3.371276E-02  -3.867456E-02   0.0                           \r\n           775      G      0.0            0.0           -7.779995E-02   3.232881E-02  -6.095205E-02   0.0                           \r\n           776      G      0.0            0.0           -4.033800E-02   2.143409E-02  -8.242602E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -7.950916E-02   0.0                           \r\n           820      G      0.0            0.0            8.860560E-02  -1.526812E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.930569E-02  -1.450671E-01   2.779186E-02   0.0                           \r\n           822      G      0.0            0.0            6.869441E-02  -1.332453E-01   1.262601E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            6.593478E-02  -1.297346E-01   3.824010E-03   0.0                           \r\n           824      G      0.0            0.0            6.265743E-02  -1.177550E-01   5.666342E-03   0.0                           \r\n           825      G      0.0            0.0            5.906377E-02  -1.079722E-01   1.324175E-02   0.0                           \r\n           826      G      0.0            0.0            4.999958E-02  -9.280272E-02   1.920925E-02   0.0                           \r\n           827      G      0.0            0.0            3.983987E-02  -7.706241E-02   2.748030E-02   0.0                           \r\n           828      G      0.0            0.0            2.307791E-02  -3.644432E-02   3.218810E-02   0.0                           \r\n           829      G      0.0            0.0            7.877227E-03  -4.337030E-03   3.318911E-02   0.0                           \r\n           830      G      0.0            0.0           -9.394296E-03   2.267341E-02   2.807644E-02   0.0                           \r\n           831      G      0.0            0.0           -1.823459E-02   3.881899E-02   1.029454E-02   0.0                           \r\n           832      G      0.0            0.0           -2.075583E-02   5.197006E-02  -3.855207E-03   0.0                           \r\n           833      G      0.0            0.0           -2.020871E-02   6.015144E-02   1.466481E-02   0.0                           \r\n           834      G      0.0            0.0           -3.387889E-02   7.533851E-02   2.669818E-02   0.0                           \r\n           835      G      0.0            0.0           -4.158491E-02   8.285807E-02   7.112588E-03   0.0                           \r\n           836      G      0.0            0.0           -4.289408E-02   8.393854E-02  -5.858739E-03   0.0                           \r\n           837      G      0.0            0.0           -3.657426E-02   6.669930E-02  -1.499835E-02   0.0                           \r\n           838      G      0.0            0.0           -2.751640E-02   4.768774E-02  -2.515307E-02   0.0                           \r\n           839      G      0.0            0.0           -1.230205E-02   2.251767E-02  -2.961963E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -2.117658E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.910719E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.657682E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -1.407838E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.350229E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.284889E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.246567E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -1.025405E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -8.282925E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.031929E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -2.431987E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            1.615963E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            3.197506E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            3.706942E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            2.732697E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            6.431609E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            8.046076E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            8.699314E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            7.505074E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            5.986437E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            2.538710E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.042747E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            4.842463E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            5.670075E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.044425E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.418283E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            4.805021E-02   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.422559E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.592629E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -2.651491E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -4.012691E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -4.225115E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -3.887874E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -1.877174E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -1.765452E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -1.726436E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -1.975144E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            1.380915E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.155410E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -5.582844E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -2.845031E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            5.860909E-01   4.363194E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            5.822015E-01   3.861369E-01  -6.655831E-03   0.0                           \r\n            66      G      0.0            0.0            5.361294E-01   2.737790E-01   2.574225E-01   0.0                           \r\n            67      G      0.0            0.0            3.121267E-01   1.436189E-01   5.803732E-01   0.0                           \r\n            68      G      0.0            0.0           -1.532008E-02   1.709452E-02   7.420735E-01   0.0                           \r\n            69      G      0.0            0.0           -3.439257E-01  -1.483823E-01   4.413955E-01   0.0                           \r\n            70      G      0.0            0.0           -4.541512E-01  -3.351501E-01   1.057013E-01   0.0                           \r\n            71      G      0.0            0.0           -5.078349E-01  -4.398703E-01   7.188802E-02   0.0                           \r\n            72      G      0.0            0.0           -5.220928E-01  -4.106562E-01   4.393829E-02   0.0                           \r\n            73      G      0.0            0.0           -5.581302E-01  -3.321955E-01   5.685678E-02   0.0                           \r\n            74      G      0.0            0.0           -5.752957E-01  -3.671503E-01   2.512174E-02   0.0                           \r\n            75      G      0.0            0.0           -5.488944E-01  -4.902112E-01  -1.965447E-01   0.0                           \r\n            76      G      0.0            0.0           -3.832296E-01  -4.403646E-01  -3.613743E-01   0.0                           \r\n            77      G      0.0            0.0           -2.133008E-01  -1.903071E-01  -3.629095E-01   0.0                           \r\n            78      G      0.0            0.0           -3.277031E-02   1.726910E-02  -3.015153E-01   0.0                           \r\n            79      G      0.0            0.0            8.656362E-02   1.724979E-01  -2.285973E-01   0.0                           \r\n            80      G      0.0            0.0            2.137028E-01   2.343773E-01  -2.350572E-01   0.0                           \r\n            81      G      0.0            0.0            3.173476E-01   2.210915E-01  -2.097490E-01   0.0                           \r\n            82      G      0.0            0.0            3.601225E-01   1.987531E-01   1.544430E-01   0.0                           \r\n            83      G      0.0            0.0            1.798541E-01   1.556240E-01   4.394357E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.957835E-01   0.0                           \r\n           127      G      0.0            0.0            1.000000E+00  -6.023595E-02   0.0            0.0                           \r\n           128      G      0.0            0.0            9.786716E-01  -7.743386E-02   1.054992E-01   0.0                           \r\n           129      G      0.0            0.0            8.137289E-01  -1.360475E-01   5.792421E-01   0.0                           \r\n           130      G      0.0            0.0            4.531710E-01  -2.971416E-01   7.569846E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            1.069575E-01  -2.960576E-01   6.930881E-01   0.0                           \r\n           132      G      0.0            0.0           -2.241212E-01  -1.296685E-01   5.642270E-01   0.0                           \r\n           133      G      0.0            0.0           -4.555209E-01  -1.092767E-02   4.058399E-01   0.0                           \r\n           134      G      0.0            0.0           -6.336942E-01   5.289724E-02   2.464854E-01   0.0                           \r\n           135      G      0.0            0.0           -6.860852E-01   6.835220E-02   7.888738E-04   0.0                           \r\n           136      G      0.0            0.0           -6.352239E-01   6.696538E-02  -2.428103E-01   0.0                           \r\n           137      G      0.0            0.0           -5.052079E-01   1.422580E-01  -1.623050E-01   0.0                           \r\n           138      G      0.0            0.0           -4.669998E-01   2.773468E-01  -1.021963E-01   0.0                           \r\n           139      G      0.0            0.0           -3.495379E-01   3.748854E-01  -3.250341E-01   0.0                           \r\n           140      G      0.0            0.0           -1.611117E-01   3.585440E-01  -4.812025E-01   0.0                           \r\n           141      G      0.0            0.0            1.179910E-01   3.193181E-01  -5.790064E-01   0.0                           \r\n           142      G      0.0            0.0            3.928021E-01   3.895305E-01  -5.228840E-01   0.0                           \r\n           143      G      0.0            0.0            5.874098E-01   5.400783E-01  -1.753825E-01   0.0                           \r\n           144      G      0.0            0.0            5.600300E-01   4.931271E-01   1.852712E-01   0.0                           \r\n           145      G      0.0            0.0            4.265018E-01   2.732348E-01   3.949746E-01   0.0                           \r\n           146      G      0.0            0.0            1.937288E-01   1.153701E-01   4.699190E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            3.406564E-01   0.0                           \r\n           190      G      0.0            0.0            6.522342E-01   7.845217E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            6.972383E-01  -8.980186E-02  -9.616335E-02   0.0                           \r\n           192      G      0.0            0.0            6.418758E-01  -1.568908E-01   4.045884E-01   0.0                           \r\n           193      G      0.0            0.0            3.242364E-01  -6.137509E-02   7.758731E-01   0.0                           \r\n           194      G      0.0            0.0           -5.164369E-02   4.916134E-02   7.039984E-01   0.0                           \r\n           195      G      0.0            0.0           -3.528991E-01   1.218412E-01   4.515838E-01   0.0                           \r\n           196      G      0.0            0.0           -5.029602E-01   1.190556E-01   1.835270E-01   0.0                           \r\n           197      G      0.0            0.0           -5.566562E-01   2.073243E-01   3.260628E-02   0.0                           \r\n           198      G      0.0            0.0           -5.608389E-01   3.471200E-01   1.133881E-02   0.0                           \r\n           199      G      0.0            0.0           -5.567203E-01   4.230356E-01  -9.643939E-02   0.0                           \r\n           200      G      0.0            0.0           -4.527000E-01   2.846718E-01  -2.771613E-01   0.0                           \r\n           201      G      0.0            0.0           -2.848889E-01   2.134341E-01  -4.119093E-01   0.0                           \r\n           202      G      0.0            0.0           -4.207473E-02   1.806664E-01  -5.244561E-01   0.0                           \r\n           203      G      0.0            0.0            2.219006E-01   1.852936E-01  -5.357531E-01   0.0                           \r\n           204      G      0.0            0.0            4.792370E-01   1.857353E-01  -4.617897E-01   0.0                           \r\n           205      G      0.0            0.0            6.902335E-01   1.241900E-01  -4.224640E-01   0.0                           \r\n           206      G      0.0            0.0            8.705409E-01   3.476710E-02  -2.355522E-01   0.0                           \r\n           207      G      0.0            0.0            8.859161E-01  -1.496249E-02   1.632545E-01   0.0                           \r\n           208      G      0.0            0.0            7.220228E-01  -4.369032E-03   5.116362E-01   0.0                           \r\n           209      G      0.0            0.0            3.953794E-01   1.239664E-02   7.591195E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            8.018831E-01   0.0                           \r\n           253      G      0.0            0.0            1.382276E-01  -4.202958E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            1.398271E-01  -3.290083E-01   9.631108E-03   0.0                           \r\n           255      G      0.0            0.0            9.411194E-02  -2.790669E-01   2.036078E-01   0.0                           \r\n           256      G      0.0            0.0           -4.194682E-02  -1.844763E-01   2.956985E-01   0.0                           \r\n           257      G      0.0            0.0           -1.712239E-01  -6.661118E-02   2.382632E-01   0.0                           \r\n           258      G      0.0            0.0           -2.759430E-01   5.674589E-02   1.614604E-01   0.0                           \r\n           259      G      0.0            0.0           -3.360469E-01   1.527144E-01   1.052751E-01   0.0                           \r\n           260      G      0.0            0.0           -3.595946E-01   1.730624E-01  -6.173683E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -2.825659E-01   1.270314E-01  -1.864891E-01   0.0                           \r\n           262      G      0.0            0.0           -1.979485E-01   7.421366E-02  -1.715628E-01   0.0                           \r\n           263      G      0.0            0.0           -9.670125E-02   5.745932E-02  -2.053357E-01   0.0                           \r\n           264      G      0.0            0.0            1.534223E-02   3.957671E-02  -2.640314E-01   0.0                           \r\n           265      G      0.0            0.0            1.712300E-01  -4.856469E-02  -3.472737E-01   0.0                           \r\n           266      G      0.0            0.0            3.719643E-01  -1.897120E-01  -4.774371E-01   0.0                           \r\n           267      G      0.0            0.0            6.315935E-01  -2.444191E-01  -4.949529E-01   0.0                           \r\n           268      G      0.0            0.0            8.358435E-01  -2.020987E-01  -3.318833E-01   0.0                           \r\n           269      G      0.0            0.0            9.397321E-01  -1.680166E-01  -5.040284E-02   0.0                           \r\n           270      G      0.0            0.0            8.746589E-01  -1.383383E-01   2.794134E-01   0.0                           \r\n           271      G      0.0            0.0            6.710110E-01  -1.104569E-01   5.419835E-01   0.0                           \r\n           272      G      0.0            0.0            3.509917E-01  -7.295435E-02   6.987284E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            6.950918E-01   0.0                           \r\n           316      G      0.0            0.0           -2.326199E-01  -1.806409E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -1.943268E-01  -1.895938E-01  -1.379019E-01   0.0                           \r\n           318      G      0.0            0.0           -1.340434E-01  -1.359770E-01  -7.174683E-02   0.0                           \r\n           319      G      0.0            0.0           -1.224273E-01  -3.537398E-02  -3.559100E-03   0.0                           \r\n           320      G      0.0            0.0           -1.159444E-01   2.294829E-02  -1.690696E-02   0.0                           \r\n           321      G      0.0            0.0           -8.621050E-02   2.088017E-02  -1.307594E-01   0.0                           \r\n           322      G      0.0            0.0            4.501309E-03   7.537083E-02  -1.716277E-01   0.0                           \r\n           323      G      0.0            0.0            6.380501E-02   1.722455E-01  -8.503048E-02   0.0                           \r\n           324      G      0.0            0.0            8.290862E-02   1.978431E-01   3.235584E-02   0.0                           \r\n           325      G      0.0            0.0            4.049834E-02   1.575196E-01   9.882040E-02   0.0                           \r\n           326      G      0.0            0.0            8.608014E-03   6.411529E-02   3.991303E-02   0.0                           \r\n           327      G      0.0            0.0            1.239429E-02  -6.519964E-02  -7.995335E-02   0.0                           \r\n           328      G      0.0            0.0            6.546042E-02  -1.866638E-01  -7.433142E-02   0.0                           \r\n           329      G      0.0            0.0            9.060521E-02  -2.728340E-01  -7.847277E-02   0.0                           \r\n           330      G      0.0            0.0            1.633967E-01  -3.580378E-01  -1.864610E-01   0.0                           \r\n           331      G      0.0            0.0            2.547587E-01  -4.370103E-01  -1.942712E-01   0.0                           \r\n           332      G      0.0            0.0            3.397001E-01  -4.851494E-01  -1.159853E-01   0.0                           \r\n           333      G      0.0            0.0            3.590348E-01  -4.118598E-01   3.043888E-02   0.0                           \r\n           334      G      0.0            0.0            2.986132E-01  -2.378896E-01   2.326920E-01   0.0                           \r\n           335      G      0.0            0.0            1.439309E-01  -7.093174E-02   3.278479E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            2.661192E-01   0.0                           \r\n           379      G      0.0            0.0           -3.542575E-01  -1.111026E-02   0.0            0.0                           \r\n           380      G      0.0            0.0           -3.022396E-01  -6.657037E-03  -1.874246E-01   0.0                           \r\n           381      G      0.0            0.0           -1.956599E-01   1.677606E-02  -2.292090E-01   0.0                           \r\n           382      G      0.0            0.0           -7.062344E-02   5.219435E-02  -2.863125E-01   0.0                           \r\n           383      G      0.0            0.0            7.547290E-02   1.216350E-01  -2.577142E-01   0.0                           \r\n           384      G      0.0            0.0            1.849236E-01   2.044865E-01  -2.072278E-01   0.0                           \r\n           385      G      0.0            0.0            2.857912E-01   2.544029E-01  -1.748587E-01   0.0                           \r\n           386      G      0.0            0.0            3.384428E-01   2.458269E-01  -4.836289E-02   0.0                           \r\n           387      G      0.0            0.0            3.265078E-01   2.083866E-01   1.086364E-01   0.0                           \r\n           388      G      0.0            0.0            2.324349E-01   1.835046E-01   2.552379E-01   0.0                           \r\n           389      G      0.0            0.0            7.288297E-02   1.648504E-01   3.912460E-01   0.0                           \r\n           390      G      0.0            0.0           -1.419166E-01   6.758177E-02   4.202532E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -3.260654E-01  -9.796677E-02   3.214528E-01   0.0                           \r\n           392      G      0.0            0.0           -4.527664E-01  -2.468257E-01   1.648197E-01   0.0                           \r\n           393      G      0.0            0.0           -4.912603E-01  -3.569774E-01   1.077616E-02   0.0                           \r\n           394      G      0.0            0.0           -4.775765E-01  -4.156565E-01  -7.260884E-02   0.0                           \r\n           395      G      0.0            0.0           -4.289244E-01  -4.199120E-01  -1.026223E-01   0.0                           \r\n           396      G      0.0            0.0           -3.628418E-01  -3.929626E-01  -1.939594E-01   0.0                           \r\n           397      G      0.0            0.0           -2.407875E-01  -3.290997E-01  -2.532883E-01   0.0                           \r\n           398      G      0.0            0.0           -1.246754E-01  -2.017034E-01  -2.256032E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0           -2.568091E-01   0.0                           \r\n           442      G      0.0            0.0           -4.577757E-01   2.749262E-03   0.0            0.0                           \r\n           443      G      0.0            0.0           -3.552137E-01   2.934112E-02  -3.439342E-01   0.0                           \r\n           444      G      0.0            0.0           -1.880462E-01   9.437750E-02  -3.026740E-01   0.0                           \r\n           445      G      0.0            0.0           -4.999863E-02   1.058353E-01  -2.880789E-01   0.0                           \r\n           446      G      0.0            0.0            1.136790E-01   6.527445E-02  -3.490750E-01   0.0                           \r\n           447      G      0.0            0.0            2.946666E-01   4.926219E-02  -3.814979E-01   0.0                           \r\n           448      G      0.0            0.0            4.761206E-01   5.838639E-02  -3.101875E-01   0.0                           \r\n           449      G      0.0            0.0            5.770177E-01   8.823336E-02  -9.480276E-02   0.0                           \r\n           450      G      0.0            0.0            5.580593E-01   1.215772E-01   1.858533E-01   0.0                           \r\n           451      G      0.0            0.0            4.125896E-01   1.232871E-01   3.508087E-01   0.0                           \r\n           452      G      0.0            0.0            2.177782E-01   9.301298E-02   4.523350E-01   0.0                           \r\n           453      G      0.0            0.0           -3.928850E-02   6.213992E-02   5.470253E-01   0.0                           \r\n           454      G      0.0            0.0           -3.060712E-01   5.545678E-02   5.246650E-01   0.0                           \r\n           455      G      0.0            0.0           -5.489815E-01   4.646928E-02   4.213910E-01   0.0                           \r\n           456      G      0.0            0.0           -7.179221E-01  -6.840206E-03   2.528713E-01   0.0                           \r\n           457      G      0.0            0.0           -7.900800E-01  -9.216911E-02   1.302886E-02   0.0                           \r\n           458      G      0.0            0.0           -7.364942E-01  -1.136351E-01  -1.890201E-01   0.0                           \r\n           459      G      0.0            0.0           -6.148078E-01  -6.830133E-02  -3.070391E-01   0.0                           \r\n           460      G      0.0            0.0           -4.376161E-01  -3.057924E-02  -3.784666E-01   0.0                           \r\n           461      G      0.0            0.0           -2.385052E-01  -6.161967E-03  -4.330756E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -5.027428E-01   0.0                           \r\n           505      G      0.0            0.0           -4.793432E-01  -8.786678E-02   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.247811E-01  -1.050113E-01  -2.423099E-01   0.0                           \r\n           507      G      0.0            0.0           -2.650587E-01  -1.348655E-01  -3.545314E-01   0.0                           \r\n           508      G      0.0            0.0           -8.932000E-02  -1.471882E-01  -3.637926E-01   0.0                           \r\n           509      G      0.0            0.0            1.061477E-01  -1.317040E-01  -3.996191E-01   0.0                           \r\n           510      G      0.0            0.0            3.046059E-01  -1.011697E-01  -3.997860E-01   0.0                           \r\n           511      G      0.0            0.0            4.904085E-01  -1.067048E-01  -3.240690E-01   0.0                           \r\n           512      G      0.0            0.0            6.187260E-01  -1.338279E-01  -1.971994E-01   0.0                           \r\n           513      G      0.0            0.0            6.741960E-01  -1.144394E-01   1.113117E-02   0.0                           \r\n           514      G      0.0            0.0            6.015138E-01  -2.079486E-02   2.594106E-01   0.0                           \r\n           515      G      0.0            0.0            4.259352E-01   6.117859E-02   4.446522E-01   0.0                           \r\n           516      G      0.0            0.0            1.744897E-01   1.306258E-01   5.320469E-01   0.0                           \r\n           517      G      0.0            0.0           -8.163510E-02   1.796972E-01   4.874915E-01   0.0                           \r\n           518      G      0.0            0.0           -2.967461E-01   2.182548E-01   3.524972E-01   0.0                           \r\n           519      G      0.0            0.0           -4.403314E-01   2.559539E-01   2.462795E-01   0.0                           \r\n           520      G      0.0            0.0           -5.392919E-01   2.933970E-01   1.212919E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -5.520658E-01   2.940237E-01  -5.905185E-02   0.0                           \r\n           522      G      0.0            0.0           -4.912319E-01   2.450380E-01  -1.951310E-01   0.0                           \r\n           523      G      0.0            0.0           -3.647598E-01   1.563012E-01  -2.944295E-01   0.0                           \r\n           524      G      0.0            0.0           -2.007105E-01   7.772642E-02  -3.665154E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -4.226559E-01   0.0                           \r\n           568      G      0.0            0.0           -5.436936E-01   5.801774E-04   0.0            0.0                           \r\n           569      G      0.0            0.0           -4.892953E-01  -2.272565E-02  -2.014224E-01   0.0                           \r\n           570      G      0.0            0.0           -3.708574E-01  -4.818552E-02  -2.495951E-01   0.0                           \r\n           571      G      0.0            0.0           -2.409804E-01  -7.453423E-02  -2.869705E-01   0.0                           \r\n           572      G      0.0            0.0           -7.486869E-02  -1.078469E-01  -3.674335E-01   0.0                           \r\n           573      G      0.0            0.0            1.228870E-01  -1.448110E-01  -4.255031E-01   0.0                           \r\n           574      G      0.0            0.0            3.227549E-01  -1.584515E-01  -3.340006E-01   0.0                           \r\n           575      G      0.0            0.0            4.439684E-01  -1.444445E-01  -1.692594E-01   0.0                           \r\n           576      G      0.0            0.0            4.964999E-01  -1.210032E-01  -2.689859E-02   0.0                           \r\n           577      G      0.0            0.0            4.674664E-01  -1.034901E-01   1.268502E-01   0.0                           \r\n           578      G      0.0            0.0            3.778855E-01  -7.111296E-02   2.362383E-01   0.0                           \r\n           579      G      0.0            0.0            2.438256E-01   7.507493E-03   2.884941E-01   0.0                           \r\n           580      G      0.0            0.0            9.575514E-02   1.182498E-01   3.124242E-01   0.0                           \r\n           581      G      0.0            0.0           -5.644473E-02   1.842992E-01   2.650544E-01   0.0                           \r\n           582      G      0.0            0.0           -1.582732E-01   1.946491E-01   1.523274E-01   0.0                           \r\n           583      G      0.0            0.0           -2.073231E-01   1.979438E-01   3.334781E-02   0.0                           \r\n           584      G      0.0            0.0           -1.978047E-01   1.915259E-01  -5.204671E-02   0.0                           \r\n           585      G      0.0            0.0           -1.689562E-01   1.750880E-01  -6.880077E-02   0.0                           \r\n           586      G      0.0            0.0           -1.352107E-01   1.446106E-01  -5.546556E-02   0.0                           \r\n           587      G      0.0            0.0           -9.687562E-02   8.500077E-02  -1.291838E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.349110E-01   0.0                           \r\n           631      G      0.0            0.0           -4.468543E-01   1.799284E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -4.148105E-01   1.837160E-01  -1.197755E-01   0.0                           \r\n           633      G      0.0            0.0           -3.431083E-01   1.475344E-01  -1.526025E-01   0.0                           \r\n           634      G      0.0            0.0           -2.610034E-01   1.122332E-01  -1.828431E-01   0.0                           \r\n           635      G      0.0            0.0           -1.633407E-01   8.597916E-02  -1.920908E-01   0.0                           \r\n           636      G      0.0            0.0           -6.928315E-02   1.575280E-02  -2.057796E-01   0.0                           \r\n           637      G      0.0            0.0            3.978362E-02  -8.748908E-02  -2.113207E-01   0.0                           \r\n           638      G      0.0            0.0            1.338266E-01  -1.599520E-01  -1.698907E-01   0.0                           \r\n           639      G      0.0            0.0            2.019117E-01  -1.951056E-01  -8.250909E-02   0.0                           \r\n           640      G      0.0            0.0            2.093792E-01  -1.933774E-01   4.399246E-02   0.0                           \r\n           641      G      0.0            0.0            1.629578E-01  -1.642697E-01   1.490235E-01   0.0                           \r\n           642      G      0.0            0.0            8.502644E-02  -1.349354E-01   1.291766E-01   0.0                           \r\n           643      G      0.0            0.0            4.177245E-02  -1.118570E-01   6.869247E-02   0.0                           \r\n           644      G      0.0            0.0            9.798635E-03  -7.934441E-02   4.837141E-02   0.0                           \r\n           645      G      0.0            0.0           -9.378409E-04  -2.582595E-02   1.087595E-02   0.0                           \r\n           646      G      0.0            0.0           -3.198859E-03   2.105147E-02  -9.359439E-03   0.0                           \r\n           647      G      0.0            0.0            4.191358E-03   2.258207E-02  -1.271916E-02   0.0                           \r\n           648      G      0.0            0.0            1.139868E-02  -1.617866E-02  -3.023378E-02   0.0                           \r\n           649      G      0.0            0.0            2.860811E-02  -2.614954E-02  -1.274821E-02   0.0                           \r\n           650      G      0.0            0.0            1.835564E-02  -5.189273E-03   3.797143E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.053315E-02   0.0                           \r\n           694      G      0.0            0.0           -5.499322E-02   2.344313E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -3.676941E-02   2.603128E-01  -5.341882E-02   0.0                           \r\n           696      G      0.0            0.0           -2.726738E-02   2.479839E-01   2.813162E-02   0.0                           \r\n           697      G      0.0            0.0           -4.986345E-02   1.941997E-01   3.022395E-02   0.0                           \r\n           698      G      0.0            0.0           -4.867539E-02   1.089821E-01  -2.010208E-02   0.0                           \r\n           699      G      0.0            0.0           -3.619334E-02   3.092020E-02  -3.830420E-02   0.0                           \r\n           700      G      0.0            0.0           -1.098879E-02  -2.049636E-02  -4.764012E-02   0.0                           \r\n           701      G      0.0            0.0            5.006404E-03  -5.066904E-02  -2.258988E-02   0.0                           \r\n           702      G      0.0            0.0            7.542187E-03  -9.488797E-02   1.702365E-02   0.0                           \r\n           703      G      0.0            0.0           -7.111171E-03  -1.463348E-01   2.893008E-02   0.0                           \r\n           704      G      0.0            0.0           -1.920850E-02  -1.523818E-01   3.843501E-02   0.0                           \r\n           705      G      0.0            0.0           -4.413471E-02  -1.155393E-01   4.969924E-02   0.0                           \r\n           706      G      0.0            0.0           -6.434721E-02  -8.385335E-02   3.878111E-02   0.0                           \r\n           707      G      0.0            0.0           -7.811817E-02  -6.391198E-02   3.827147E-03   0.0                           \r\n           708      G      0.0            0.0           -6.265065E-02  -5.633700E-02  -5.705181E-02   0.0                           \r\n           709      G      0.0            0.0           -2.327713E-02  -5.310816E-02  -1.044878E-01   0.0                           \r\n           710      G      0.0            0.0            2.488657E-02  -3.436749E-02  -6.124636E-02   0.0                           \r\n           711      G      0.0            0.0            3.475885E-02  -3.581921E-03   2.694170E-03   0.0                           \r\n           712      G      0.0            0.0            3.060630E-02   1.829856E-02   2.112765E-02   0.0                           \r\n           713      G      0.0            0.0            1.257356E-02   1.617857E-02   3.616003E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.826298E-02   0.0                           \r\n           757      G      0.0            0.0            2.846684E-01   5.198960E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            2.928858E-01   2.634933E-02  -2.784297E-02   0.0                           \r\n           759      G      0.0            0.0            2.901869E-01   2.205413E-02   5.524834E-02   0.0                           \r\n           760      G      0.0            0.0            2.381370E-01   5.052300E-02   1.326347E-01   0.0                           \r\n           761      G      0.0            0.0            1.669837E-01   6.562036E-02   1.518515E-01   0.0                           \r\n           762      G      0.0            0.0            9.316169E-02   6.373044E-02   1.255335E-01   0.0                           \r\n           763      G      0.0            0.0            4.601068E-02   4.651316E-02   6.841379E-02   0.0                           \r\n           764      G      0.0            0.0            2.112916E-02   2.550112E-02   2.364299E-02   0.0                           \r\n           765      G      0.0            0.0            5.398083E-03   2.247717E-02   6.226846E-02   0.0                           \r\n           766      G      0.0            0.0           -4.266035E-02   3.741071E-02   1.064485E-01   0.0                           \r\n           767      G      0.0            0.0           -8.995582E-02   4.831919E-02   8.788268E-02   0.0                           \r\n           768      G      0.0            0.0           -1.308477E-01   3.884532E-02   6.126923E-02   0.0                           \r\n           769      G      0.0            0.0           -1.485838E-01   2.322717E-02   1.607052E-02   0.0                           \r\n           770      G      0.0            0.0           -1.460258E-01   2.998089E-02  -2.966512E-02   0.0                           \r\n           771      G      0.0            0.0           -1.255638E-01   5.415108E-02  -3.842811E-02   0.0                           \r\n           772      G      0.0            0.0           -1.091511E-01   4.466826E-02  -4.561730E-02   0.0                           \r\n           773      G      0.0            0.0           -7.944617E-02   2.813169E-03  -6.051191E-02   0.0                           \r\n           774      G      0.0            0.0           -5.107703E-02  -2.422693E-02  -5.931645E-02   0.0                           \r\n           775      G      0.0            0.0           -2.248980E-02  -3.492029E-02  -4.103160E-02   0.0                           \r\n           776      G      0.0            0.0           -1.105775E-02  -2.772492E-02  -1.409546E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -2.526140E-02   0.0                           \r\n           820      G      0.0            0.0            9.527367E-02  -2.148875E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            1.087135E-01  -2.202671E-01  -3.519155E-02   0.0                           \r\n           822      G      0.0            0.0            1.147690E-01  -2.148890E-01   1.437424E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            9.592371E-02  -1.752608E-01   4.914569E-02   0.0                           \r\n           824      G      0.0            0.0            7.020526E-02  -1.374053E-01   5.954192E-02   0.0                           \r\n           825      G      0.0            0.0            3.899029E-02  -8.342820E-02   5.460050E-02   0.0                           \r\n           826      G      0.0            0.0            1.465226E-02  -3.244672E-02   4.852159E-02   0.0                           \r\n           827      G      0.0            0.0           -9.301861E-03   2.087248E-02   3.333855E-02   0.0                           \r\n           828      G      0.0            0.0           -1.962521E-02   2.369636E-02   2.084970E-02   0.0                           \r\n           829      G      0.0            0.0           -3.044562E-02   3.850846E-02   1.158546E-02   0.0                           \r\n           830      G      0.0            0.0           -3.250144E-02   5.461495E-02   1.072152E-02   0.0                           \r\n           831      G      0.0            0.0           -4.497763E-02   8.009281E-02   3.190975E-02   0.0                           \r\n           832      G      0.0            0.0           -6.222693E-02   9.647626E-02   4.342543E-02   0.0                           \r\n           833      G      0.0            0.0           -7.680434E-02   1.058907E-01  -1.161106E-02   0.0                           \r\n           834      G      0.0            0.0           -5.384384E-02   8.375063E-02  -5.378910E-02   0.0                           \r\n           835      G      0.0            0.0           -3.388551E-02   5.982845E-02  -3.177061E-02   0.0                           \r\n           836      G      0.0            0.0           -1.857912E-02   3.315959E-02  -2.094876E-02   0.0                           \r\n           837      G      0.0            0.0           -1.157236E-02   2.973773E-02  -1.507994E-02   0.0                           \r\n           838      G      0.0            0.0           -4.590746E-03   1.940155E-02  -3.987321E-03   0.0                           \r\n           839      G      0.0            0.0           -6.155929E-03   1.417681E-02  -7.174003E-04   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -1.947791E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.764376E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -2.164793E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -2.354492E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.971934E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.443277E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -7.354677E-02   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -3.099935E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.003148E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            4.458428E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            7.677451E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            7.060616E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            1.006034E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.360321E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            1.831550E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            1.183283E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            7.695549E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            3.821828E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            2.222170E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            1.591417E-03   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            1.181923E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.033993E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -9.149635E-02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.631092E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.324356E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.383060E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            4.769390E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.000000E+00   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            7.571203E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            7.292596E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            5.134698E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            3.654410E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.079766E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            2.728376E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -8.164774E-03   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -2.759948E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -5.295600E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -2.898070E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.876347E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -3.796651E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -6.485093E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -3.735661E-01   3.501430E-03   0.0            0.0                           \r\n            65      G      0.0            0.0           -2.799316E-01  -3.150164E-02  -4.074890E-01   0.0                           \r\n            66      G      0.0            0.0           -7.282994E-02  -7.824039E-02  -2.923418E-01   0.0                           \r\n            67      G      0.0            0.0           -2.614582E-02  -8.143874E-02   2.672203E-02   0.0                           \r\n            68      G      0.0            0.0           -7.113268E-02  -3.594918E-02   1.999009E-01   0.0                           \r\n            69      G      0.0            0.0           -1.013603E-01  -5.230075E-02  -2.778118E-01   0.0                           \r\n            70      G      0.0            0.0            1.889686E-01  -1.374251E-01  -6.770402E-01   0.0                           \r\n            71      G      0.0            0.0            4.578550E-01  -1.460184E-01  -4.437104E-01   0.0                           \r\n            72      G      0.0            0.0            6.292642E-01  -1.189622E-02  -1.309050E-01   0.0                           \r\n            73      G      0.0            0.0            5.775515E-01   1.097424E-01   2.634064E-01   0.0                           \r\n            74      G      0.0            0.0            3.818978E-01  -5.473542E-02   5.327736E-01   0.0                           \r\n            75      G      0.0            0.0            1.214684E-01  -4.409021E-01   3.796550E-01   0.0                           \r\n            76      G      0.0            0.0            1.646182E-02  -5.683716E-01   2.002643E-01   0.0                           \r\n            77      G      0.0            0.0           -1.008327E-01  -3.541752E-01   1.718346E-01   0.0                           \r\n            78      G      0.0            0.0           -1.576737E-01  -1.822464E-01   1.365419E-01   0.0                           \r\n            79      G      0.0            0.0           -2.271373E-01  -4.449060E-02   3.756985E-02   0.0                           \r\n            80      G      0.0            0.0           -1.591771E-01   3.691694E-03  -2.390176E-01   0.0                           \r\n            81      G      0.0            0.0            1.855574E-03  -2.330565E-03  -4.570954E-01   0.0                           \r\n            82      G      0.0            0.0            1.794247E-01   4.395765E-02  -4.889033E-02   0.0                           \r\n            83      G      0.0            0.0            6.497017E-02   1.052230E-01   2.975121E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            8.626007E-04   0.0                           \r\n           127      G      0.0            0.0           -3.191112E-01  -1.750492E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -2.144348E-01  -2.029581E-01  -3.769778E-01   0.0                           \r\n           129      G      0.0            0.0           -9.498627E-02  -3.001987E-01  -3.828423E-02   0.0                           \r\n           130      G      0.0            0.0           -1.091184E-01  -5.748335E-01  -5.813741E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            1.690543E-02  -5.761943E-01  -2.991713E-01   0.0                           \r\n           132      G      0.0            0.0            1.818012E-01  -3.034631E-01  -4.396552E-01   0.0                           \r\n           133      G      0.0            0.0            4.263289E-01  -1.269147E-01  -4.302952E-01   0.0                           \r\n           134      G      0.0            0.0            5.798909E-01  -6.149344E-02  -2.645474E-01   0.0                           \r\n           135      G      0.0            0.0            7.044953E-01  -9.443462E-02  -1.582735E-01   0.0                           \r\n           136      G      0.0            0.0            7.378891E-01  -1.659480E-01  -4.436607E-02   0.0                           \r\n           137      G      0.0            0.0            6.581892E-01  -1.073192E-01   5.448022E-01   0.0                           \r\n           138      G      0.0            0.0            2.308685E-01   6.093127E-02   9.470503E-01   0.0                           \r\n           139      G      0.0            0.0           -1.627562E-01   1.797682E-01   6.701279E-01   0.0                           \r\n           140      G      0.0            0.0           -4.377708E-01   1.255827E-01   3.100339E-01   0.0                           \r\n           141      G      0.0            0.0           -4.678023E-01   6.006165E-02  -1.174758E-01   0.0                           \r\n           142      G      0.0            0.0           -3.449014E-01   2.121900E-01  -3.940684E-01   0.0                           \r\n           143      G      0.0            0.0           -1.586419E-01   5.294552E-01  -2.189851E-01   0.0                           \r\n           144      G      0.0            0.0           -1.440859E-01   5.293700E-01  -6.621376E-03   0.0                           \r\n           145      G      0.0            0.0           -1.239110E-01   2.483775E-01   1.717892E-02   0.0                           \r\n           146      G      0.0            0.0           -1.332117E-01   8.484718E-02  -7.535271E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -3.744943E-01   0.0                           \r\n           190      G      0.0            0.0           -4.192234E-01   8.285846E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -2.318875E-01   5.002220E-01  -5.997599E-01   0.0                           \r\n           192      G      0.0            0.0           -1.568532E-02   2.716462E-01  -1.006222E-01   0.0                           \r\n           193      G      0.0            0.0           -1.002822E-01   2.614577E-01   3.056844E-01   0.0                           \r\n           194      G      0.0            0.0           -2.092383E-01   2.353503E-01   1.142601E-01   0.0                           \r\n           195      G      0.0            0.0           -1.999247E-01   1.265065E-01  -2.116378E-01   0.0                           \r\n           196      G      0.0            0.0           -2.637701E-02  -1.032018E-01  -4.017869E-01   0.0                           \r\n           197      G      0.0            0.0            1.452357E-01  -1.424654E-01  -2.693026E-01   0.0                           \r\n           198      G      0.0            0.0            1.894384E-01  -3.880709E-02   1.415739E-01   0.0                           \r\n           199      G      0.0            0.0            2.697040E-02   2.215300E-02   3.815430E-01   0.0                           \r\n           200      G      0.0            0.0           -1.549342E-01  -2.140245E-01   4.007505E-01   0.0                           \r\n           201      G      0.0            0.0           -3.562496E-01  -2.693086E-01   3.496776E-01   0.0                           \r\n           202      G      0.0            0.0           -4.756789E-01  -2.071764E-01   1.621506E-01   0.0                           \r\n           203      G      0.0            0.0           -5.189180E-01  -5.107690E-02  -1.947633E-02   0.0                           \r\n           204      G      0.0            0.0           -4.574905E-01   1.025869E-01  -1.879636E-01   0.0                           \r\n           205      G      0.0            0.0           -3.056455E-01   1.312163E-01  -4.961479E-01   0.0                           \r\n           206      G      0.0            0.0           -1.107324E-02   7.609426E-02  -5.719414E-01   0.0                           \r\n           207      G      0.0            0.0            1.925124E-01   4.416591E-02  -2.511433E-01   0.0                           \r\n           208      G      0.0            0.0            2.531907E-01   7.050510E-02   5.772905E-02   0.0                           \r\n           209      G      0.0            0.0            1.541747E-01   7.062644E-02   2.972822E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            3.068930E-01   0.0                           \r\n           253      G      0.0            0.0           -1.005597E-02   1.619268E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            3.319659E-02   2.720338E-01  -1.436191E-01   0.0                           \r\n           255      G      0.0            0.0            6.674622E-02   2.243063E-01   6.648717E-02   0.0                           \r\n           256      G      0.0            0.0           -9.062574E-03   1.850278E-01   1.660893E-01   0.0                           \r\n           257      G      0.0            0.0           -6.359862E-02   1.455684E-01   8.764774E-02   0.0                           \r\n           258      G      0.0            0.0           -1.063296E-01   1.088584E-01   5.565008E-02   0.0                           \r\n           259      G      0.0            0.0           -1.396384E-01   5.293964E-02   1.249820E-01   0.0                           \r\n           260      G      0.0            0.0           -2.035713E-01  -7.386143E-02   4.163066E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -1.975304E-01  -2.323214E-01   3.009242E-02   0.0                           \r\n           262      G      0.0            0.0           -2.704546E-01  -3.088948E-01   2.166741E-01   0.0                           \r\n           263      G      0.0            0.0           -3.770101E-01  -2.336851E-01   2.437602E-01   0.0                           \r\n           264      G      0.0            0.0           -4.840816E-01  -8.891685E-02   1.339014E-01   0.0                           \r\n           265      G      0.0            0.0           -4.877237E-01  -2.318334E-02  -1.100266E-01   0.0                           \r\n           266      G      0.0            0.0           -3.450941E-01  -4.307058E-02  -5.049033E-01   0.0                           \r\n           267      G      0.0            0.0           -5.123283E-03   5.409309E-02  -7.428194E-01   0.0                           \r\n           268      G      0.0            0.0            3.452135E-01   2.544641E-01  -6.717444E-01   0.0                           \r\n           269      G      0.0            0.0            6.220113E-01   3.549563E-01  -3.709766E-01   0.0                           \r\n           270      G      0.0            0.0            6.900949E-01   3.534766E-01   5.428362E-02   0.0                           \r\n           271      G      0.0            0.0            5.797325E-01   2.611185E-01   4.088901E-01   0.0                           \r\n           272      G      0.0            0.0            3.073613E-01   1.181798E-01   6.230736E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            5.990073E-01   0.0                           \r\n           316      G      0.0            0.0            3.229775E-01   3.131059E-04   0.0            0.0                           \r\n           317      G      0.0            0.0            3.710110E-01  -4.294474E-02  -1.667252E-01   0.0                           \r\n           318      G      0.0            0.0            4.209197E-01  -2.936829E-02   1.842915E-02   0.0                           \r\n           319      G      0.0            0.0            3.513219E-01   2.863669E-02   2.054513E-01   0.0                           \r\n           320      G      0.0            0.0            2.395696E-01  -9.779882E-04   2.439655E-01   0.0                           \r\n           321      G      0.0            0.0            1.407137E-01  -1.240340E-01   9.381530E-02   0.0                           \r\n           322      G      0.0            0.0            1.296019E-01  -1.143760E-01   4.541473E-02   0.0                           \r\n           323      G      0.0            0.0            6.156388E-02   2.426101E-02   1.840024E-01   0.0                           \r\n           324      G      0.0            0.0           -6.045903E-02   1.086975E-01   3.360162E-01   0.0                           \r\n           325      G      0.0            0.0           -2.524955E-01   1.493980E-01   3.590190E-01   0.0                           \r\n           326      G      0.0            0.0           -3.716034E-01   1.583568E-01   1.327585E-01   0.0                           \r\n           327      G      0.0            0.0           -3.620269E-01   1.446272E-01  -2.133175E-01   0.0                           \r\n           328      G      0.0            0.0           -1.995526E-01   1.550532E-01  -3.319842E-01   0.0                           \r\n           329      G      0.0            0.0           -3.005865E-02   2.045802E-01  -4.269395E-01   0.0                           \r\n           330      G      0.0            0.0            2.499151E-01   2.034668E-01  -6.371219E-01   0.0                           \r\n           331      G      0.0            0.0            5.559049E-01   1.365666E-01  -6.026160E-01   0.0                           \r\n           332      G      0.0            0.0            8.101755E-01   3.215477E-02  -3.562813E-01   0.0                           \r\n           333      G      0.0            0.0            8.852732E-01   4.370372E-02   4.427370E-02   0.0                           \r\n           334      G      0.0            0.0            7.477111E-01   1.452410E-01   5.394048E-01   0.0                           \r\n           335      G      0.0            0.0            3.832479E-01   1.720344E-01   8.101301E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            7.431253E-01   0.0                           \r\n           379      G      0.0            0.0            6.237490E-02  -3.253011E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            1.087322E-01  -3.244389E-01  -1.517795E-01   0.0                           \r\n           381      G      0.0            0.0            1.681224E-01  -3.022802E-01  -7.451192E-02   0.0                           \r\n           382      G      0.0            0.0            1.944024E-01  -2.644120E-01  -6.543953E-02   0.0                           \r\n           383      G      0.0            0.0            2.176394E-01  -1.638164E-01   3.139453E-02   0.0                           \r\n           384      G      0.0            0.0            1.714765E-01  -2.597443E-02   9.575917E-02   0.0                           \r\n           385      G      0.0            0.0            1.399790E-01   7.843068E-02   5.722638E-02   0.0                           \r\n           386      G      0.0            0.0            8.948055E-02   1.118734E-01   1.160806E-01   0.0                           \r\n           387      G      0.0            0.0            2.023734E-02   1.273773E-01   1.793696E-01   0.0                           \r\n           388      G      0.0            0.0           -7.988223E-02   1.928190E-01   2.016888E-01   0.0                           \r\n           389      G      0.0            0.0           -1.786904E-01   2.885614E-01   2.150540E-01   0.0                           \r\n           390      G      0.0            0.0           -2.725317E-01   2.559449E-01   9.087624E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -2.464167E-01   9.791445E-02  -1.699742E-01   0.0                           \r\n           392      G      0.0            0.0           -1.034302E-01  -5.392523E-02  -4.187430E-01   0.0                           \r\n           393      G      0.0            0.0            1.497817E-01  -1.738041E-01  -5.397286E-01   0.0                           \r\n           394      G      0.0            0.0            3.915280E-01  -2.482004E-01  -4.269065E-01   0.0                           \r\n           395      G      0.0            0.0            5.440356E-01  -2.757556E-01  -1.450657E-01   0.0                           \r\n           396      G      0.0            0.0            5.516689E-01  -2.947634E-01   5.445025E-02   0.0                           \r\n           397      G      0.0            0.0            4.848887E-01  -2.886726E-01   2.688765E-01   0.0                           \r\n           398      G      0.0            0.0            2.725129E-01  -2.009891E-01   5.340341E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.579460E-01   0.0                           \r\n           442      G      0.0            0.0           -5.838303E-01  -1.861126E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -4.529309E-01  -1.386595E-01  -4.112414E-01   0.0                           \r\n           444      G      0.0            0.0           -2.950985E-01  -2.202017E-02  -1.869145E-01   0.0                           \r\n           445      G      0.0            0.0           -2.517115E-01   4.858491E-03  -6.039508E-02   0.0                           \r\n           446      G      0.0            0.0           -1.972345E-01  -5.629781E-02  -1.362987E-01   0.0                           \r\n           447      G      0.0            0.0           -1.068179E-01  -7.492230E-02  -2.452909E-01   0.0                           \r\n           448      G      0.0            0.0            3.144806E-02  -5.127245E-02  -2.556922E-01   0.0                           \r\n           449      G      0.0            0.0            1.151283E-01   5.234032E-03  -8.462619E-02   0.0                           \r\n           450      G      0.0            0.0            1.042253E-01   6.292249E-02   1.554939E-01   0.0                           \r\n           451      G      0.0            0.0            1.246392E-03   5.993139E-02   1.849330E-01   0.0                           \r\n           452      G      0.0            0.0           -6.460966E-02  -4.495642E-03   1.309449E-01   0.0                           \r\n           453      G      0.0            0.0           -1.383397E-01  -7.507033E-02   1.303535E-01   0.0                           \r\n           454      G      0.0            0.0           -1.714925E-01  -1.065110E-01   2.913509E-02   0.0                           \r\n           455      G      0.0            0.0           -1.630828E-01  -1.404201E-01  -8.701656E-02   0.0                           \r\n           456      G      0.0            0.0           -9.117139E-02  -2.441006E-01  -1.858073E-01   0.0                           \r\n           457      G      0.0            0.0            2.220174E-02  -3.912039E-01  -2.946283E-01   0.0                           \r\n           458      G      0.0            0.0            1.797433E-01  -4.126883E-01  -2.654869E-01   0.0                           \r\n           459      G      0.0            0.0            2.598645E-01  -3.014482E-01  -7.629646E-02   0.0                           \r\n           460      G      0.0            0.0            2.494053E-01  -1.863186E-01   1.433843E-01   0.0                           \r\n           461      G      0.0            0.0            1.308544E-01  -8.100608E-02   2.827501E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.457196E-01   0.0                           \r\n           505      G      0.0            0.0           -5.275576E-01   1.409420E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.750285E-01   1.152826E-01  -2.527366E-01   0.0                           \r\n           507      G      0.0            0.0           -3.190899E-01   7.396127E-02  -3.027437E-01   0.0                           \r\n           508      G      0.0            0.0           -1.972933E-01   6.469110E-02  -2.171620E-01   0.0                           \r\n           509      G      0.0            0.0           -7.821462E-02   9.833694E-02  -2.353182E-01   0.0                           \r\n           510      G      0.0            0.0            4.102452E-02   1.448374E-01  -2.593453E-01   0.0                           \r\n           511      G      0.0            0.0            1.672975E-01   1.086874E-01  -2.196476E-01   0.0                           \r\n           512      G      0.0            0.0            2.548274E-01   9.316892E-03  -1.492409E-01   0.0                           \r\n           513      G      0.0            0.0            3.017481E-01  -3.825991E-02   2.093871E-02   0.0                           \r\n           514      G      0.0            0.0            2.275333E-01   1.560883E-02   2.425638E-01   0.0                           \r\n           515      G      0.0            0.0            7.729895E-02   2.948538E-02   3.664493E-01   0.0                           \r\n           516      G      0.0            0.0           -1.154063E-01   1.215687E-02   3.632256E-01   0.0                           \r\n           517      G      0.0            0.0           -2.561845E-01  -3.613728E-02   2.032064E-01   0.0                           \r\n           518      G      0.0            0.0           -3.071916E-01  -8.293073E-02  -2.082663E-02   0.0                           \r\n           519      G      0.0            0.0           -2.641833E-01  -9.667880E-02  -9.621621E-02   0.0                           \r\n           520      G      0.0            0.0           -2.210353E-01  -6.442253E-02  -1.146933E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.443503E-01  -4.186819E-02  -1.674768E-01   0.0                           \r\n           522      G      0.0            0.0           -7.576681E-02  -4.986944E-02  -1.260649E-01   0.0                           \r\n           523      G      0.0            0.0           -2.582098E-02  -7.695015E-02  -5.238426E-02   0.0                           \r\n           524      G      0.0            0.0           -1.559975E-02  -4.928097E-02  -8.328402E-03   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -4.501642E-02   0.0                           \r\n           568      G      0.0            0.0           -1.617392E-01   2.128079E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -9.887477E-02   1.839415E-01  -2.245702E-01   0.0                           \r\n           570      G      0.0            0.0            1.514308E-02   1.714727E-01  -1.952561E-01   0.0                           \r\n           571      G      0.0            0.0            9.722839E-02   1.711382E-01  -1.671393E-01   0.0                           \r\n           572      G      0.0            0.0            2.023522E-01   1.627914E-01  -2.425012E-01   0.0                           \r\n           573      G      0.0            0.0            3.391587E-01   1.407273E-01  -3.154986E-01   0.0                           \r\n           574      G      0.0            0.0            4.758605E-01   1.399539E-01  -1.708161E-01   0.0                           \r\n           575      G      0.0            0.0            4.935025E-01   1.584151E-01   6.027656E-02   0.0                           \r\n           576      G      0.0            0.0            4.282631E-01   1.590157E-01   2.167255E-01   0.0                           \r\n           577      G      0.0            0.0            2.743971E-01   1.146382E-01   3.642576E-01   0.0                           \r\n           578      G      0.0            0.0            7.917917E-02   6.577788E-02   4.202099E-01   0.0                           \r\n           579      G      0.0            0.0           -1.263947E-01   7.609201E-02   3.805211E-01   0.0                           \r\n           580      G      0.0            0.0           -2.962212E-01   1.347697E-01   3.148321E-01   0.0                           \r\n           581      G      0.0            0.0           -4.293246E-01   1.253574E-01   1.677626E-01   0.0                           \r\n           582      G      0.0            0.0           -4.559201E-01   4.459484E-02  -3.813844E-02   0.0                           \r\n           583      G      0.0            0.0           -3.994568E-01  -1.042402E-02  -1.991199E-01   0.0                           \r\n           584      G      0.0            0.0           -2.756500E-01  -3.523815E-02  -2.569144E-01   0.0                           \r\n           585      G      0.0            0.0           -1.695942E-01  -2.775873E-02  -1.727035E-01   0.0                           \r\n           586      G      0.0            0.0           -1.112925E-01   6.107565E-04  -4.064799E-02   0.0                           \r\n           587      G      0.0            0.0           -9.247438E-02   1.297021E-02  -8.911037E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.424491E-01   0.0                           \r\n           631      G      0.0            0.0           -1.455455E-01  -1.197271E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -9.726883E-02  -9.400710E-02  -1.785334E-01   0.0                           \r\n           633      G      0.0            0.0            4.523929E-03  -1.005588E-01  -2.036324E-01   0.0                           \r\n           634      G      0.0            0.0            1.070091E-01  -7.523063E-02  -2.185194E-01   0.0                           \r\n           635      G      0.0            0.0            2.163579E-01  -1.334709E-02  -1.928256E-01   0.0                           \r\n           636      G      0.0            0.0            2.981831E-01  -1.756160E-02  -1.737038E-01   0.0                           \r\n           637      G      0.0            0.0            3.851460E-01  -8.129085E-02  -1.446460E-01   0.0                           \r\n           638      G      0.0            0.0            4.292925E-01  -1.063337E-01  -4.551795E-02   0.0                           \r\n           639      G      0.0            0.0            4.189852E-01  -9.083072E-02   1.146068E-01   0.0                           \r\n           640      G      0.0            0.0            3.052941E-01  -4.194824E-02   3.179087E-01   0.0                           \r\n           641      G      0.0            0.0            1.125465E-01   2.132250E-02   4.580789E-01   0.0                           \r\n           642      G      0.0            0.0           -1.083396E-01   5.401055E-02   3.612246E-01   0.0                           \r\n           643      G      0.0            0.0           -2.346394E-01   5.089909E-02   1.819164E-01   0.0                           \r\n           644      G      0.0            0.0           -3.034560E-01   4.802442E-02   7.246937E-02   0.0                           \r\n           645      G      0.0            0.0           -3.014183E-01   7.577721E-02  -5.247695E-02   0.0                           \r\n           646      G      0.0            0.0           -2.597736E-01   9.685843E-02  -1.249267E-01   0.0                           \r\n           647      G      0.0            0.0           -1.886620E-01   5.308553E-02  -1.433671E-01   0.0                           \r\n           648      G      0.0            0.0           -1.164858E-01  -4.170230E-02  -1.658342E-01   0.0                           \r\n           649      G      0.0            0.0           -3.360683E-02  -6.778502E-02  -1.176718E-01   0.0                           \r\n           650      G      0.0            0.0           -6.811716E-03  -2.481986E-02  -1.348794E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.942654E-02   0.0                           \r\n           694      G      0.0            0.0           -3.934350E-01  -2.518732E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -3.415173E-01  -1.929837E-01  -1.728462E-01   0.0                           \r\n           696      G      0.0            0.0           -2.668128E-01  -1.718491E-01  -1.003811E-01   0.0                           \r\n           697      G      0.0            0.0           -2.188376E-01  -1.968145E-01  -1.411136E-01   0.0                           \r\n           698      G      0.0            0.0           -1.148022E-01  -2.547270E-01  -2.431023E-01   0.0                           \r\n           699      G      0.0            0.0            8.877994E-03  -2.846530E-01  -2.596497E-01   0.0                           \r\n           700      G      0.0            0.0            1.400700E-01  -2.597790E-01  -2.338547E-01   0.0                           \r\n           701      G      0.0            0.0            2.293509E-01  -1.969828E-01  -1.299522E-01   0.0                           \r\n           702      G      0.0            0.0            2.627120E-01  -1.646626E-01   6.191692E-03   0.0                           \r\n           703      G      0.0            0.0            2.333520E-01  -1.581808E-01   8.905698E-02   0.0                           \r\n           704      G      0.0            0.0            1.808287E-01  -9.279738E-02   1.512853E-01   0.0                           \r\n           705      G      0.0            0.0            8.872411E-02   2.338668E-02   1.937262E-01   0.0                           \r\n           706      G      0.0            0.0           -1.089817E-03   1.063218E-01   1.747769E-01   0.0                           \r\n           707      G      0.0            0.0           -7.506227E-02   1.457401E-01   9.634106E-02   0.0                           \r\n           708      G      0.0            0.0           -8.695214E-02   1.440784E-01  -3.624821E-02   0.0                           \r\n           709      G      0.0            0.0           -4.333155E-02   1.202890E-01  -1.463209E-01   0.0                           \r\n           710      G      0.0            0.0            2.840805E-02   1.140469E-01  -9.463704E-02   0.0                           \r\n           711      G      0.0            0.0            4.367658E-02   1.241162E-01   1.082126E-03   0.0                           \r\n           712      G      0.0            0.0            4.011889E-02   1.177372E-01   2.595492E-02   0.0                           \r\n           713      G      0.0            0.0            1.501717E-02   7.060818E-02   4.940661E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.820032E-02   0.0                           \r\n           757      G      0.0            0.0           -3.999300E-01   5.970553E-02   0.0            0.0                           \r\n           758      G      0.0            0.0           -3.563675E-01   1.175439E-02  -1.639216E-01   0.0                           \r\n           759      G      0.0            0.0           -2.762533E-01  -6.463238E-03  -1.232746E-01   0.0                           \r\n           760      G      0.0            0.0           -2.354132E-01   2.698263E-02  -6.793580E-02   0.0                           \r\n           761      G      0.0            0.0           -1.958968E-01   3.597672E-02  -8.170427E-02   0.0                           \r\n           762      G      0.0            0.0           -1.457958E-01   1.783989E-02  -1.399113E-01   0.0                           \r\n           763      G      0.0            0.0           -5.167289E-02  -2.108000E-02  -2.178245E-01   0.0                           \r\n           764      G      0.0            0.0            6.325705E-02  -5.824007E-02  -2.459951E-01   0.0                           \r\n           765      G      0.0            0.0            1.641682E-01  -5.507614E-02  -1.111531E-01   0.0                           \r\n           766      G      0.0            0.0            1.726937E-01  -1.253323E-02   4.144648E-02   0.0                           \r\n           767      G      0.0            0.0            1.444567E-01   2.901823E-02   8.284745E-02   0.0                           \r\n           768      G      0.0            0.0            9.317696E-02   3.797539E-02   9.811290E-02   0.0                           \r\n           769      G      0.0            0.0            5.503972E-02   3.519847E-02   6.466747E-02   0.0                           \r\n           770      G      0.0            0.0            3.367268E-02   6.661630E-02   1.349330E-02   0.0                           \r\n           771      G      0.0            0.0            3.267923E-02   1.216251E-01   1.219144E-02   0.0                           \r\n           772      G      0.0            0.0            2.009371E-02   1.116834E-01   4.537452E-03   0.0                           \r\n           773      G      0.0            0.0            2.912683E-02   3.954122E-02  -2.086672E-02   0.0                           \r\n           774      G      0.0            0.0            3.607300E-02  -1.219167E-02  -1.979946E-02   0.0                           \r\n           775      G      0.0            0.0            4.377748E-02  -3.903386E-02   1.097086E-02   0.0                           \r\n           776      G      0.0            0.0            2.219416E-02  -3.681702E-02   5.705647E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            3.786653E-02   0.0                           \r\n           820      G      0.0            0.0           -1.863762E-01   2.925081E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.530904E-01   2.637910E-01  -1.006670E-01   0.0                           \r\n           822      G      0.0            0.0           -1.132447E-01   2.167950E-01  -5.123955E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.000800E-01   1.978883E-01  -1.936704E-02   0.0                           \r\n           824      G      0.0            0.0           -8.712696E-02   1.538508E-01  -1.946429E-02   0.0                           \r\n           825      G      0.0            0.0           -7.728124E-02   1.255593E-01  -3.499243E-02   0.0                           \r\n           826      G      0.0            0.0           -5.479449E-02   9.078842E-02  -4.164992E-02   0.0                           \r\n           827      G      0.0            0.0           -3.598638E-02   6.863327E-02  -5.434053E-02   0.0                           \r\n           828      G      0.0            0.0           -2.404804E-03  -2.341917E-02  -5.505338E-02   0.0                           \r\n           829      G      0.0            0.0            1.874446E-02  -7.252050E-02  -4.601772E-02   0.0                           \r\n           830      G      0.0            0.0            4.212274E-02  -9.481747E-02  -2.190542E-02   0.0                           \r\n           831      G      0.0            0.0            3.525418E-02  -7.752922E-02   3.757276E-02   0.0                           \r\n           832      G      0.0            0.0            9.639482E-03  -5.594339E-02   7.586823E-02   0.0                           \r\n           833      G      0.0            0.0           -1.945216E-02  -3.117010E-02  -5.262505E-03   0.0                           \r\n           834      G      0.0            0.0            1.027295E-02  -5.004850E-02  -6.868175E-02   0.0                           \r\n           835      G      0.0            0.0            3.108524E-02  -6.511184E-02  -2.501165E-02   0.0                           \r\n           836      G      0.0            0.0            4.148344E-02  -8.062539E-02  -2.742910E-03   0.0                           \r\n           837      G      0.0            0.0            3.612356E-02  -5.367566E-02   9.555558E-03   0.0                           \r\n           838      G      0.0            0.0            2.983038E-02  -3.713643E-02   2.986677E-02   0.0                           \r\n           839      G      0.0            0.0            8.382446E-03  -1.104044E-02   3.608936E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            4.039577E-03   0.0                           \r\n           841      G      0.0            0.0            0.0            4.172850E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.277452E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            2.352167E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            2.081719E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            1.824938E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.745037E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            1.160915E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            8.079020E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            1.729268E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -9.769827E-03   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -7.672577E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -5.636932E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -4.968728E-03   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            8.326959E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -8.872455E-03   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -5.270158E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -8.669163E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -7.825927E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -7.575990E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.917250E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            6.688575E-02   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.770604E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.983970E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.670683E-02   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -1.715152E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.599859E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.673490E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -7.259754E-03   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            7.589117E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            6.550609E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            1.235376E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.526787E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            3.099521E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            1.364190E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -7.707044E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -3.105491E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -1.646405E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.006666E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -2.969777E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -5.165389E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            2.113265E-01   3.640473E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            2.057700E-01   2.942643E-01  -9.397997E-03   0.0                           \r\n            66      G      0.0            0.0            1.500303E-01   1.423326E-01   3.177446E-01   0.0                           \r\n            67      G      0.0            0.0           -1.176678E-01  -1.733578E-02   6.673677E-01   0.0                           \r\n            68      G      0.0            0.0           -4.653643E-01  -1.398912E-01   7.358930E-01   0.0                           \r\n            69      G      0.0            0.0           -7.300047E-01  -2.728964E-01   1.477303E-01   0.0                           \r\n            70      G      0.0            0.0           -6.144975E-01  -3.936724E-01  -4.532015E-01   0.0                           \r\n            71      G      0.0            0.0           -3.726842E-01  -3.792440E-01  -5.444058E-01   0.0                           \r\n            72      G      0.0            0.0           -8.806431E-02  -1.914460E-01  -4.926470E-01   0.0                           \r\n            73      G      0.0            0.0            8.991364E-02   1.703306E-02  -2.607203E-01   0.0                           \r\n            74      G      0.0            0.0            1.652933E-01  -4.539560E-03  -1.393505E-02   0.0                           \r\n            75      G      0.0            0.0            1.506662E-01  -2.322314E-01  -1.739653E-02   0.0                           \r\n            76      G      0.0            0.0            1.887063E-01  -2.991622E-01  -1.608240E-03   0.0                           \r\n            77      G      0.0            0.0            1.383397E-01  -1.385559E-01   1.274452E-01   0.0                           \r\n            78      G      0.0            0.0            6.967685E-02  -4.287613E-02   2.076299E-01   0.0                           \r\n            79      G      0.0            0.0           -4.801972E-02   1.059433E-02   1.756068E-01   0.0                           \r\n            80      G      0.0            0.0           -6.550051E-02  -3.701993E-03  -5.530832E-02   0.0                           \r\n            81      G      0.0            0.0            6.844204E-03  -4.218804E-02  -2.781661E-01   0.0                           \r\n            82      G      0.0            0.0            1.208606E-01  -1.276059E-02  -1.743761E-02   0.0                           \r\n            83      G      0.0            0.0            3.229164E-02   5.258008E-02   2.072128E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -4.575356E-02   0.0                           \r\n           127      G      0.0            0.0            7.023150E-01   1.357125E-02   0.0            0.0                           \r\n           128      G      0.0            0.0            6.689451E-01  -1.256779E-02   1.578173E-01   0.0                           \r\n           129      G      0.0            0.0            4.457734E-01  -9.934239E-02   7.598756E-01   0.0                           \r\n           130      G      0.0            0.0            9.946114E-04  -3.245789E-01   8.645669E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -3.318463E-01  -3.222414E-01   5.494680E-01   0.0                           \r\n           132      G      0.0            0.0           -5.192025E-01  -8.525654E-02   1.142729E-01   0.0                           \r\n           133      G      0.0            0.0           -4.537967E-01   9.234822E-02  -2.976394E-01   0.0                           \r\n           134      G      0.0            0.0           -2.541673E-01   1.898342E-01  -5.552123E-01   0.0                           \r\n           135      G      0.0            0.0            8.583276E-02   2.046284E-01  -7.238680E-01   0.0                           \r\n           136      G      0.0            0.0            4.336812E-01   1.710546E-01  -6.962846E-01   0.0                           \r\n           137      G      0.0            0.0            6.768866E-01   2.115040E-01  -1.109542E-01   0.0                           \r\n           138      G      0.0            0.0            5.528641E-01   3.031593E-01   4.479972E-01   0.0                           \r\n           139      G      0.0            0.0            3.234579E-01   3.219497E-01   5.049593E-01   0.0                           \r\n           140      G      0.0            0.0            5.924223E-02   1.820700E-01   4.499826E-01   0.0                           \r\n           141      G      0.0            0.0           -1.026717E-01   3.024942E-02   2.426675E-01   0.0                           \r\n           142      G      0.0            0.0           -1.801016E-01   6.725106E-02   3.830884E-02   0.0                           \r\n           143      G      0.0            0.0           -1.885253E-01   2.663222E-01   8.886629E-02   0.0                           \r\n           144      G      0.0            0.0           -2.712679E-01   2.536124E-01   1.037150E-01   0.0                           \r\n           145      G      0.0            0.0           -2.680257E-01   5.829270E-02  -4.468844E-02   0.0                           \r\n           146      G      0.0            0.0           -2.127584E-01  -1.143478E-02  -2.458969E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -5.300774E-01   0.0                           \r\n           190      G      0.0            0.0            4.918592E-01   3.384261E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            5.419418E-01   1.024902E-01  -8.921149E-02   0.0                           \r\n           192      G      0.0            0.0            4.475052E-01  -1.099283E-02   5.765750E-01   0.0                           \r\n           193      G      0.0            0.0            2.793376E-02   8.094657E-02   9.680468E-01   0.0                           \r\n           194      G      0.0            0.0           -3.889477E-01   1.756075E-01   6.601110E-01   0.0                           \r\n           195      G      0.0            0.0           -5.878743E-01   2.006125E-01   7.241336E-02   0.0                           \r\n           196      G      0.0            0.0           -4.729224E-01   1.086282E-01  -4.681544E-01   0.0                           \r\n           197      G      0.0            0.0           -1.776246E-01   1.329685E-01  -6.859816E-01   0.0                           \r\n           198      G      0.0            0.0            1.392670E-01   2.290732E-01  -5.195615E-01   0.0                           \r\n           199      G      0.0            0.0            3.217006E-01   2.495364E-01  -2.866137E-01   0.0                           \r\n           200      G      0.0            0.0            4.214642E-01   7.079600E-05  -5.221602E-02   0.0                           \r\n           201      G      0.0            0.0            3.682898E-01  -1.289380E-01   2.272456E-01   0.0                           \r\n           202      G      0.0            0.0            2.164402E-01  -1.725347E-01   4.001546E-01   0.0                           \r\n           203      G      0.0            0.0           -1.565620E-02  -1.357253E-01   4.875931E-01   0.0                           \r\n           204      G      0.0            0.0           -2.447337E-01  -8.393277E-02   4.376372E-01   0.0                           \r\n           205      G      0.0            0.0           -4.036963E-01  -1.056223E-01   1.178342E-01   0.0                           \r\n           206      G      0.0            0.0           -3.781534E-01  -1.621001E-01  -1.463819E-01   0.0                           \r\n           207      G      0.0            0.0           -3.032026E-01  -1.669830E-01  -1.647952E-01   0.0                           \r\n           208      G      0.0            0.0           -2.041060E-01  -9.648228E-02  -1.878775E-01   0.0                           \r\n           209      G      0.0            0.0           -1.139407E-01  -2.566085E-02  -1.926493E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0           -2.559115E-01   0.0                           \r\n           253      G      0.0            0.0            1.914124E-01  -2.690054E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            1.667968E-01  -1.581463E-01   1.170850E-01   0.0                           \r\n           255      G      0.0            0.0            3.882772E-02  -1.295104E-01   4.273680E-01   0.0                           \r\n           256      G      0.0            0.0           -2.118789E-01  -6.660553E-02   5.035902E-01   0.0                           \r\n           257      G      0.0            0.0           -4.046712E-01   3.096464E-03   2.826642E-01   0.0                           \r\n           258      G      0.0            0.0           -4.797956E-01   6.017851E-02  -8.035578E-03   0.0                           \r\n           259      G      0.0            0.0           -4.082423E-01   7.039658E-02  -2.334264E-01   0.0                           \r\n           260      G      0.0            0.0           -2.393986E-01  -1.425751E-02  -4.952911E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            4.510049E-02  -1.588062E-01  -5.454416E-01   0.0                           \r\n           262      G      0.0            0.0            2.436739E-01  -2.614619E-01  -2.652456E-01   0.0                           \r\n           263      G      0.0            0.0            3.130935E-01  -2.521028E-01   2.511873E-02   0.0                           \r\n           264      G      0.0            0.0            2.304137E-01  -1.823230E-01   2.645234E-01   0.0                           \r\n           265      G      0.0            0.0            7.250568E-02  -1.601893E-01   3.622743E-01   0.0                           \r\n           266      G      0.0            0.0           -8.840895E-02  -1.863862E-01   2.268431E-01   0.0                           \r\n           267      G      0.0            0.0           -1.430112E-01  -1.011763E-01   5.862954E-02   0.0                           \r\n           268      G      0.0            0.0           -1.591149E-01   7.965586E-02  -2.318283E-02   0.0                           \r\n           269      G      0.0            0.0           -1.323320E-01   1.882354E-01  -4.455144E-02   0.0                           \r\n           270      G      0.0            0.0           -1.241363E-01   2.159869E-01  -2.538164E-02   0.0                           \r\n           271      G      0.0            0.0           -1.001905E-01   1.678374E-01  -4.567450E-02   0.0                           \r\n           272      G      0.0            0.0           -7.343173E-02   7.535841E-02  -9.105915E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0           -1.879228E-01   0.0                           \r\n           316      G      0.0            0.0            1.684065E-01   4.894756E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            1.700820E-01   1.915626E-02   1.060709E-02   0.0                           \r\n           318      G      0.0            0.0            1.161076E-01   4.054397E-02   2.383010E-01   0.0                           \r\n           319      G      0.0            0.0           -4.766628E-02   9.638347E-02   3.641663E-01   0.0                           \r\n           320      G      0.0            0.0           -2.060828E-01   7.346923E-02   2.643341E-01   0.0                           \r\n           321      G      0.0            0.0           -2.703933E-01  -3.932299E-02  -5.288098E-02   0.0                           \r\n           322      G      0.0            0.0           -1.647447E-01  -6.446461E-02  -2.868775E-01   0.0                           \r\n           323      G      0.0            0.0           -2.361324E-02  -2.823012E-04  -2.972967E-01   0.0                           \r\n           324      G      0.0            0.0            1.045194E-01   1.766304E-02  -1.741181E-01   0.0                           \r\n           325      G      0.0            0.0            1.426717E-01   9.262841E-03  -2.324350E-02   0.0                           \r\n           326      G      0.0            0.0            1.465088E-01  -4.927482E-03   2.632203E-02   0.0                           \r\n           327      G      0.0            0.0            1.274195E-01  -1.081157E-02   1.461277E-02   0.0                           \r\n           328      G      0.0            0.0            1.057958E-01   2.865664E-02   1.444684E-01   0.0                           \r\n           329      G      0.0            0.0            1.232566E-03   1.178884E-01   1.944930E-01   0.0                           \r\n           330      G      0.0            0.0           -4.610125E-02   1.737488E-01   2.237881E-02   0.0                           \r\n           331      G      0.0            0.0           -3.700558E-02   1.712160E-01  -8.471370E-02   0.0                           \r\n           332      G      0.0            0.0            2.347525E-02   1.219289E-01  -1.187281E-01   0.0                           \r\n           333      G      0.0            0.0            6.874119E-02   1.405036E-01  -7.159999E-02   0.0                           \r\n           334      G      0.0            0.0            7.767881E-02   2.045858E-01   6.924324E-02   0.0                           \r\n           335      G      0.0            0.0            1.567038E-02   1.874210E-01   1.060224E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0           -1.098499E-02   0.0                           \r\n           379      G      0.0            0.0            2.786767E-01   3.509685E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            2.735596E-01   2.650905E-02   4.394487E-02   0.0                           \r\n           381      G      0.0            0.0            2.093947E-01   1.656898E-02   2.131366E-01   0.0                           \r\n           382      G      0.0            0.0            8.798515E-02   2.322631E-03   2.338310E-01   0.0                           \r\n           383      G      0.0            0.0           -1.683303E-02   2.377489E-02   2.220289E-01   0.0                           \r\n           384      G      0.0            0.0           -1.130426E-01   6.537259E-02   1.123126E-01   0.0                           \r\n           385      G      0.0            0.0           -1.116959E-01   7.835905E-02  -9.479300E-02   0.0                           \r\n           386      G      0.0            0.0           -4.691784E-02   4.281405E-02  -1.794029E-01   0.0                           \r\n           387      G      0.0            0.0            4.684161E-02   1.103762E-02  -1.703965E-01   0.0                           \r\n           388      G      0.0            0.0            1.107852E-01   4.476724E-02  -9.076617E-02   0.0                           \r\n           389      G      0.0            0.0            1.232653E-01   1.317121E-01   6.369136E-02   0.0                           \r\n           390      G      0.0            0.0            5.725655E-02   1.440012E-01   1.455765E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -9.335953E-04   7.654794E-02   1.018692E-01   0.0                           \r\n           392      G      0.0            0.0           -3.321170E-02   2.253713E-02   5.066951E-03   0.0                           \r\n           393      G      0.0            0.0           -6.566999E-03  -1.023960E-02  -7.875121E-02   0.0                           \r\n           394      G      0.0            0.0            2.778794E-02  -2.351112E-02  -6.704468E-02   0.0                           \r\n           395      G      0.0            0.0            4.832625E-02  -2.597235E-02   9.580523E-03   0.0                           \r\n           396      G      0.0            0.0            3.674315E-02  -5.262722E-02  -1.155705E-02   0.0                           \r\n           397      G      0.0            0.0            5.446748E-02  -8.889289E-02  -1.112616E-02   0.0                           \r\n           398      G      0.0            0.0            3.033492E-02  -8.317499E-02   7.845499E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.409649E-02   0.0                           \r\n           442      G      0.0            0.0            9.591893E-02  -4.818303E-02   0.0            0.0                           \r\n           443      G      0.0            0.0            1.443861E-01  -1.668825E-02  -1.088064E-01   0.0                           \r\n           444      G      0.0            0.0            1.188304E-01   5.759758E-02   2.266355E-01   0.0                           \r\n           445      G      0.0            0.0           -5.165764E-02   5.020717E-02   3.819616E-01   0.0                           \r\n           446      G      0.0            0.0           -2.116649E-01  -3.438111E-02   2.598816E-01   0.0                           \r\n           447      G      0.0            0.0           -2.877470E-01  -8.771501E-02   1.844697E-02   0.0                           \r\n           448      G      0.0            0.0           -2.365825E-01  -1.035934E-01  -1.851185E-01   0.0                           \r\n           449      G      0.0            0.0           -1.344672E-01  -8.351418E-02  -2.239456E-01   0.0                           \r\n           450      G      0.0            0.0           -3.633194E-02  -4.806457E-02  -1.386567E-01   0.0                           \r\n           451      G      0.0            0.0            1.883272E-02  -4.356234E-02  -1.286004E-01   0.0                           \r\n           452      G      0.0            0.0            8.857299E-02  -7.019044E-02  -1.006513E-01   0.0                           \r\n           453      G      0.0            0.0            1.025674E-01  -8.680850E-02   2.264444E-02   0.0                           \r\n           454      G      0.0            0.0            8.289442E-02  -6.357139E-02   7.720865E-02   0.0                           \r\n           455      G      0.0            0.0            3.524187E-02  -4.159423E-02   9.032501E-02   0.0                           \r\n           456      G      0.0            0.0           -1.076555E-03  -8.257233E-02   6.058725E-02   0.0                           \r\n           457      G      0.0            0.0           -1.278333E-02  -1.724393E-01  -4.107792E-02   0.0                           \r\n           458      G      0.0            0.0            3.184495E-02  -1.816797E-01  -8.647703E-02   0.0                           \r\n           459      G      0.0            0.0            5.743615E-02  -1.061007E-01  -3.465037E-02   0.0                           \r\n           460      G      0.0            0.0            6.116021E-02  -4.637267E-02   4.030602E-02   0.0                           \r\n           461      G      0.0            0.0            2.285809E-02  -9.411819E-03   7.779451E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.186547E-02   0.0                           \r\n           505      G      0.0            0.0            8.726405E-02  -3.306651E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            7.231595E-02  -4.922601E-02   2.236070E-02   0.0                           \r\n           507      G      0.0            0.0            4.086947E-02  -6.996427E-02   1.467478E-01   0.0                           \r\n           508      G      0.0            0.0           -7.494374E-02  -5.917854E-02   2.758412E-01   0.0                           \r\n           509      G      0.0            0.0           -1.942093E-01  -1.138714E-02   2.051826E-01   0.0                           \r\n           510      G      0.0            0.0           -2.598311E-01   4.593273E-02   3.276110E-02   0.0                           \r\n           511      G      0.0            0.0           -2.295127E-01   3.453205E-02  -1.369986E-01   0.0                           \r\n           512      G      0.0            0.0           -1.305165E-01  -3.098715E-02  -2.700918E-01   0.0                           \r\n           513      G      0.0            0.0            1.638776E-02  -5.862402E-02  -2.616794E-01   0.0                           \r\n           514      G      0.0            0.0            1.090535E-01  -7.488266E-03  -1.245317E-01   0.0                           \r\n           515      G      0.0            0.0            1.391306E-01   1.186663E-02   2.002892E-02   0.0                           \r\n           516      G      0.0            0.0            9.681452E-02   6.938466E-03   1.227006E-01   0.0                           \r\n           517      G      0.0            0.0            3.657605E-02  -2.185758E-02   1.226059E-01   0.0                           \r\n           518      G      0.0            0.0           -1.298666E-02  -4.911632E-02   5.660804E-02   0.0                           \r\n           519      G      0.0            0.0           -3.404191E-02  -5.098673E-02   6.666902E-02   0.0                           \r\n           520      G      0.0            0.0           -7.692406E-02  -1.915702E-02   6.938412E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -8.989993E-02   5.375036E-04  -2.558528E-03   0.0                           \r\n           522      G      0.0            0.0           -8.607368E-02  -9.036327E-03  -3.053024E-02   0.0                           \r\n           523      G      0.0            0.0           -6.428280E-02  -3.812345E-02  -4.016275E-02   0.0                           \r\n           524      G      0.0            0.0           -4.337438E-02  -2.691886E-02  -5.751916E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -1.060056E-01   0.0                           \r\n           568      G      0.0            0.0            1.247131E-01   1.929076E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            1.288192E-01   5.013267E-03   1.855409E-03   0.0                           \r\n           570      G      0.0            0.0            9.520199E-02   1.919373E-02   1.530004E-01   0.0                           \r\n           571      G      0.0            0.0           -6.048204E-03   5.401740E-02   2.139049E-01   0.0                           \r\n           572      G      0.0            0.0           -8.310775E-02   8.717109E-02   9.242175E-02   0.0                           \r\n           573      G      0.0            0.0           -8.317596E-02   1.074216E-01  -1.068906E-01   0.0                           \r\n           574      G      0.0            0.0           -2.350004E-03   1.366970E-01  -1.688727E-01   0.0                           \r\n           575      G      0.0            0.0            6.960997E-02   1.695166E-01  -1.451280E-01   0.0                           \r\n           576      G      0.0            0.0            1.415368E-01   1.753845E-01  -1.208375E-01   0.0                           \r\n           577      G      0.0            0.0            1.732824E-01   1.345836E-01  -2.340845E-02   0.0                           \r\n           578      G      0.0            0.0            1.624393E-01   8.281568E-02   7.774428E-02   0.0                           \r\n           579      G      0.0            0.0            1.011340E-01   7.459636E-02   1.548582E-01   0.0                           \r\n           580      G      0.0            0.0            8.711516E-03   1.047855E-01   2.275295E-01   0.0                           \r\n           581      G      0.0            0.0           -1.132099E-01   8.357687E-02   2.171626E-01   0.0                           \r\n           582      G      0.0            0.0           -1.936759E-01   9.832165E-03   1.174470E-01   0.0                           \r\n           583      G      0.0            0.0           -2.271968E-01  -3.875155E-02   1.936878E-03   0.0                           \r\n           584      G      0.0            0.0           -2.017944E-01  -5.833719E-02  -7.691958E-02   0.0                           \r\n           585      G      0.0            0.0           -1.662787E-01  -4.794853E-02  -7.150794E-02   0.0                           \r\n           586      G      0.0            0.0           -1.357871E-01  -1.803577E-02  -3.447790E-02   0.0                           \r\n           587      G      0.0            0.0           -1.061143E-01   7.274098E-04  -1.247060E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.654008E-01   0.0                           \r\n           631      G      0.0            0.0            3.401689E-02  -6.773479E-02   0.0            0.0                           \r\n           632      G      0.0            0.0            3.634715E-02  -4.416558E-02  -5.192817E-05   0.0                           \r\n           633      G      0.0            0.0            2.018624E-02  -4.066202E-02   7.832038E-02   0.0                           \r\n           634      G      0.0            0.0           -2.659979E-02  -9.593438E-03   9.108953E-02   0.0                           \r\n           635      G      0.0            0.0           -5.948272E-02   4.852978E-02   5.376660E-02   0.0                           \r\n           636      G      0.0            0.0           -6.836507E-02   4.856477E-02  -5.290244E-02   0.0                           \r\n           637      G      0.0            0.0           -4.648894E-03  -6.555434E-03  -1.772449E-01   0.0                           \r\n           638      G      0.0            0.0            9.514376E-02  -3.898313E-02  -2.264919E-01   0.0                           \r\n           639      G      0.0            0.0            2.024553E-01  -4.495925E-02  -1.718901E-01   0.0                           \r\n           640      G      0.0            0.0            2.461706E-01  -2.697852E-02  -1.170832E-02   0.0                           \r\n           641      G      0.0            0.0            2.108849E-01   3.119826E-03   1.631095E-01   0.0                           \r\n           642      G      0.0            0.0            1.103372E-01   1.257906E-02   1.908146E-01   0.0                           \r\n           643      G      0.0            0.0            2.936285E-02  -5.865020E-04   1.615621E-01   0.0                           \r\n           644      G      0.0            0.0           -5.774204E-02  -6.986323E-03   1.657629E-01   0.0                           \r\n           645      G      0.0            0.0           -1.240408E-01   1.665721E-02   1.153893E-01   0.0                           \r\n           646      G      0.0            0.0           -1.708245E-01   3.895038E-02   5.702837E-02   0.0                           \r\n           647      G      0.0            0.0           -1.826649E-01   1.180619E-02  -1.428667E-03   0.0                           \r\n           648      G      0.0            0.0           -1.647139E-01  -5.523616E-02  -8.835766E-02   0.0                           \r\n           649      G      0.0            0.0           -1.023483E-01  -6.813756E-02  -1.220623E-01   0.0                           \r\n           650      G      0.0            0.0           -5.250824E-02  -2.677295E-02  -9.282242E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.169977E-01   0.0                           \r\n           694      G      0.0            0.0           -1.107958E-02  -5.943400E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -4.831485E-03  -1.319696E-02   2.814100E-04   0.0                           \r\n           696      G      0.0            0.0           -4.080714E-02   1.421440E-03   1.575040E-01   0.0                           \r\n           697      G      0.0            0.0           -1.322469E-01  -2.503291E-02   1.603495E-01   0.0                           \r\n           698      G      0.0            0.0           -1.783465E-01  -8.478411E-02   4.095351E-02   0.0                           \r\n           699      G      0.0            0.0           -1.739786E-01  -1.310429E-01  -6.999849E-02   0.0                           \r\n           700      G      0.0            0.0           -1.069967E-01  -1.422426E-01  -1.740114E-01   0.0                           \r\n           701      G      0.0            0.0           -1.273951E-02  -1.292924E-01  -2.047808E-01   0.0                           \r\n           702      G      0.0            0.0            8.386698E-02  -1.418428E-01  -1.676969E-01   0.0                           \r\n           703      G      0.0            0.0            1.519774E-01  -1.706406E-01  -1.152889E-01   0.0                           \r\n           704      G      0.0            0.0            1.944364E-01  -1.434862E-01  -2.511878E-02   0.0                           \r\n           705      G      0.0            0.0            1.755656E-01  -6.363189E-02   8.469433E-02   0.0                           \r\n           706      G      0.0            0.0            1.173787E-01   2.695572E-03   1.545669E-01   0.0                           \r\n           707      G      0.0            0.0            3.284083E-02   4.499153E-02   1.605639E-01   0.0                           \r\n           708      G      0.0            0.0           -2.848102E-02   6.132875E-02   8.983186E-02   0.0                           \r\n           709      G      0.0            0.0           -5.310800E-02   6.238091E-02  -2.311029E-03   0.0                           \r\n           710      G      0.0            0.0           -4.427894E-02   7.539991E-02   3.583928E-05   0.0                           \r\n           711      G      0.0            0.0           -5.541842E-02   9.610947E-02   1.756134E-02   0.0                           \r\n           712      G      0.0            0.0           -5.131685E-02   9.701242E-02  -2.295421E-02   0.0                           \r\n           713      G      0.0            0.0           -3.747483E-02   5.957399E-02  -4.932171E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -9.055878E-02   0.0                           \r\n           757      G      0.0            0.0            9.712509E-02   1.235839E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            1.015107E-01  -1.752840E-02  -1.137584E-02   0.0                           \r\n           759      G      0.0            0.0            8.133692E-02  -1.028651E-02   1.125794E-01   0.0                           \r\n           760      G      0.0            0.0           -4.476230E-03   4.473427E-02   2.002138E-01   0.0                           \r\n           761      G      0.0            0.0           -9.908585E-02   7.819094E-02   1.758742E-01   0.0                           \r\n           762      G      0.0            0.0           -1.657565E-01   7.945354E-02   6.690779E-02   0.0                           \r\n           763      G      0.0            0.0           -1.585100E-01   4.879151E-02  -8.480350E-02   0.0                           \r\n           764      G      0.0            0.0           -8.907551E-02   4.356219E-03  -1.961567E-01   0.0                           \r\n           765      G      0.0            0.0            8.259339E-03  -1.869787E-02  -1.537162E-01   0.0                           \r\n           766      G      0.0            0.0            5.559142E-02  -1.410036E-02  -5.987839E-02   0.0                           \r\n           767      G      0.0            0.0            7.801147E-02  -6.422515E-03  -1.738453E-02   0.0                           \r\n           768      G      0.0            0.0            7.062849E-02  -1.473386E-02   2.993470E-02   0.0                           \r\n           769      G      0.0            0.0            5.320580E-02  -1.958671E-02   4.819261E-02   0.0                           \r\n           770      G      0.0            0.0            2.790844E-02   1.456178E-02   4.604749E-02   0.0                           \r\n           771      G      0.0            0.0            3.803998E-03   7.517955E-02   6.534404E-02   0.0                           \r\n           772      G      0.0            0.0           -3.392896E-02   8.632218E-02   5.670007E-02   0.0                           \r\n           773      G      0.0            0.0           -4.799797E-02   4.453328E-02   1.357403E-02   0.0                           \r\n           774      G      0.0            0.0           -4.884860E-02   1.143810E-02  -2.075558E-02   0.0                           \r\n           775      G      0.0            0.0           -3.088870E-02  -1.053127E-02  -3.281995E-02   0.0                           \r\n           776      G      0.0            0.0           -1.992114E-02  -1.684141E-02  -2.349863E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -4.865733E-02   0.0                           \r\n           820      G      0.0            0.0            2.716408E-03  -5.340583E-02   0.0            0.0                           \r\n           821      G      0.0            0.0            1.970067E-02  -5.817655E-02  -4.288293E-02   0.0                           \r\n           822      G      0.0            0.0            2.507508E-02  -4.517126E-02   2.550618E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -2.117890E-03   1.187407E-02   6.637880E-02   0.0                           \r\n           824      G      0.0            0.0           -3.320197E-02   5.592199E-02   6.520471E-02   0.0                           \r\n           825      G      0.0            0.0           -6.231111E-02   1.036056E-01   3.672869E-02   0.0                           \r\n           826      G      0.0            0.0           -7.077322E-02   1.254897E-01   5.933871E-03   0.0                           \r\n           827      G      0.0            0.0           -6.872001E-02   1.315090E-01  -3.109521E-02   0.0                           \r\n           828      G      0.0            0.0           -4.271794E-02   5.886645E-02  -5.277816E-02   0.0                           \r\n           829      G      0.0            0.0           -1.840376E-02   4.764536E-03  -5.650385E-02   0.0                           \r\n           830      G      0.0            0.0            1.046679E-02  -3.328571E-02  -3.777853E-02   0.0                           \r\n           831      G      0.0            0.0            1.364249E-02  -3.639155E-02   1.638607E-02   0.0                           \r\n           832      G      0.0            0.0           -2.416818E-03  -2.737787E-02   5.666650E-02   0.0                           \r\n           833      G      0.0            0.0           -2.597106E-02  -6.388906E-03   1.235249E-03   0.0                           \r\n           834      G      0.0            0.0           -6.442539E-03  -1.305808E-02  -4.414719E-02   0.0                           \r\n           835      G      0.0            0.0            4.931061E-03  -1.442611E-02  -9.937318E-03   0.0                           \r\n           836      G      0.0            0.0            9.440578E-03  -1.892798E-02   2.523256E-03   0.0                           \r\n           837      G      0.0            0.0            4.958942E-03   3.167755E-03   3.759847E-03   0.0                           \r\n           838      G      0.0            0.0            4.240338E-03   8.119310E-03   1.058566E-02   0.0                           \r\n           839      G      0.0            0.0           -4.288692E-03   1.244676E-02   8.400129E-03   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -1.958590E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            2.370685E-02   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -2.833896E-02   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -4.898937E-02   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            5.318664E-03   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            6.845889E-02   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.370470E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            1.447739E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            1.440369E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            9.636144E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            6.088192E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.212359E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.299242E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.915624E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            8.956579E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            2.401160E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -1.235575E-03   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -2.130590E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -1.455853E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.126706E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            6.596629E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.218621E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.179727E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.368950E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -1.861497E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.288439E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -3.028369E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -5.665961E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -2.766977E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -2.121406E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -9.320007E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -1.104854E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -1.724405E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.888453E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -2.693110E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -6.660937E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            1.905944E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            9.976437E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            1.800015E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            3.041067E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            5.176609E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            3.321509E-01  -6.220927E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            2.075957E-01  -5.792980E-02   5.077345E-01   0.0                           \r\n            66      G      0.0            0.0           -5.778584E-02  -6.960487E-02   4.266159E-01   0.0                           \r\n            67      G      0.0            0.0           -1.488013E-01  -9.315864E-02  -2.136753E-02   0.0                           \r\n            68      G      0.0            0.0           -4.466524E-02  -8.861709E-02  -4.227395E-01   0.0                           \r\n            69      G      0.0            0.0            1.607812E-01   3.512918E-02  -2.249877E-01   0.0                           \r\n            70      G      0.0            0.0            1.604534E-01   2.431322E-01   9.474511E-02   0.0                           \r\n            71      G      0.0            0.0            1.271618E-01   3.655194E-01   8.655393E-02   0.0                           \r\n            72      G      0.0            0.0            6.309150E-02   3.136237E-01   8.939431E-02   0.0                           \r\n            73      G      0.0            0.0            4.718240E-02   2.033533E-01   2.442756E-02   0.0                           \r\n            74      G      0.0            0.0            3.819955E-02   2.671623E-01  -1.147715E-02   0.0                           \r\n            75      G      0.0            0.0            2.029040E-02   4.825063E-01   1.605841E-01   0.0                           \r\n            76      G      0.0            0.0           -1.093601E-01   5.000758E-01   2.156970E-01   0.0                           \r\n            77      G      0.0            0.0           -1.607849E-01   2.684491E-01   5.048053E-02   0.0                           \r\n            78      G      0.0            0.0           -1.555151E-01   9.600800E-02  -1.309493E-01   0.0                           \r\n            79      G      0.0            0.0           -5.027736E-02  -8.627278E-03  -1.999144E-01   0.0                           \r\n            80      G      0.0            0.0           -3.008916E-03  -1.080315E-02  -2.798889E-02   0.0                           \r\n            81      G      0.0            0.0           -3.184063E-02   3.283525E-02   1.906983E-01   0.0                           \r\n            82      G      0.0            0.0           -1.122330E-01   1.247108E-02  -2.056936E-02   0.0                           \r\n            83      G      0.0            0.0           -2.052316E-02  -4.882314E-02  -1.901087E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            7.251798E-02   0.0                           \r\n           127      G      0.0            0.0            2.713925E-01   2.174290E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            1.125171E-01   2.248971E-01   5.843154E-01   0.0                           \r\n           129      G      0.0            0.0           -1.475317E-01   2.668702E-01   3.692986E-01   0.0                           \r\n           130      G      0.0            0.0           -2.506364E-01   4.358495E-01   1.302200E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   129\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -2.938529E-01   3.930482E-01  -6.921415E-02   0.0                           \r\n           132      G      0.0            0.0           -1.930890E-01   1.406792E-01  -2.486680E-01   0.0                           \r\n           133      G      0.0            0.0           -6.826511E-02  -3.055045E-02  -2.941256E-01   0.0                           \r\n           134      G      0.0            0.0            7.792928E-02  -1.010849E-01  -1.986576E-01   0.0                           \r\n           135      G      0.0            0.0            9.348734E-02  -8.739245E-02   9.102784E-02   0.0                           \r\n           136      G      0.0            0.0           -8.667805E-03  -5.003208E-02   3.578371E-01   0.0                           \r\n           137      G      0.0            0.0           -1.668854E-01  -1.200668E-01   1.139736E-01   0.0                           \r\n           138      G      0.0            0.0           -1.149654E-01  -2.630383E-01  -1.805179E-01   0.0                           \r\n           139      G      0.0            0.0           -5.329130E-02  -3.373835E-01  -1.132748E-01   0.0                           \r\n           140      G      0.0            0.0            1.175300E-02  -2.506586E-01  -6.424459E-02   0.0                           \r\n           141      G      0.0            0.0            8.110886E-03  -1.457410E-01   2.344545E-02   0.0                           \r\n           142      G      0.0            0.0           -4.330070E-03  -2.159081E-01   4.762679E-02   0.0                           \r\n           143      G      0.0            0.0            2.536790E-03  -4.245348E-01  -1.591630E-01   0.0                           \r\n           144      G      0.0            0.0            1.402476E-01  -4.001994E-01  -2.462374E-01   0.0                           \r\n           145      G      0.0            0.0            2.061185E-01  -1.714921E-01  -7.561891E-02   0.0                           \r\n           146      G      0.0            0.0            1.936080E-01  -4.808606E-02   1.911732E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            5.004990E-01   0.0                           \r\n           190      G      0.0            0.0            3.904264E-01  -6.811358E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            1.643546E-01  -4.189925E-01   7.699481E-01   0.0                           \r\n           192      G      0.0            0.0           -1.807405E-01  -2.188892E-01   4.452091E-01   0.0                           \r\n           193      G      0.0            0.0           -2.501796E-01  -1.973731E-01  -9.223527E-02   0.0                           \r\n           194      G      0.0            0.0           -1.546878E-01  -1.919732E-01  -2.747117E-01   0.0                           \r\n           195      G      0.0            0.0           -7.051078E-03  -1.564940E-01  -2.482203E-01   0.0                           \r\n           196      G      0.0            0.0            7.482544E-02  -5.785841E-02  -1.136813E-01   0.0                           \r\n           197      G      0.0            0.0            1.117868E-01  -1.143529E-01  -2.692037E-02   0.0                           \r\n           198      G      0.0            0.0            1.224931E-01  -2.609207E-01  -4.662246E-02   0.0                           \r\n           199      G      0.0            0.0            1.450413E-01  -3.263198E-01   4.334155E-02   0.0                           \r\n           200      G      0.0            0.0            7.727458E-02  -1.081358E-01   1.647942E-01   0.0                           \r\n           201      G      0.0            0.0            3.173405E-03   1.776966E-02   1.481619E-01   0.0                           \r\n           202      G      0.0            0.0           -6.381807E-02   7.438798E-02   7.773821E-02   0.0                           \r\n           203      G      0.0            0.0           -6.350068E-02   6.271767E-02  -5.907204E-02   0.0                           \r\n           204      G      0.0            0.0           -1.291878E-02   4.637239E-02  -1.619200E-01   0.0                           \r\n           205      G      0.0            0.0            5.608937E-02   1.053890E-01  -3.946796E-02   0.0                           \r\n           206      G      0.0            0.0            3.575084E-02   1.884329E-01   5.491195E-02   0.0                           \r\n           207      G      0.0            0.0            3.169033E-02   2.011356E-01  -1.897083E-02   0.0                           \r\n           208      G      0.0            0.0            3.118301E-02   1.240761E-01  -1.095472E-02   0.0                           \r\n           209      G      0.0            0.0            3.392055E-02   4.023237E-02   2.477338E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.050590E-01   0.0                           \r\n           253      G      0.0            0.0            1.815648E-01   7.525547E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            9.189657E-02   6.095224E-03   3.249144E-01   0.0                           \r\n           255      G      0.0            0.0           -6.120475E-02   7.059397E-02   2.208760E-01   0.0                           \r\n           256      G      0.0            0.0           -1.122009E-01   1.133149E-01   2.027170E-02   0.0                           \r\n           257      G      0.0            0.0           -9.623454E-02   1.139512E-01  -1.103969E-01   0.0                           \r\n           258      G      0.0            0.0           -9.289674E-03   6.802115E-02  -2.029902E-01   0.0                           \r\n           259      G      0.0            0.0            9.312463E-02   1.487693E-02  -2.252809E-01   0.0                           \r\n           260      G      0.0            0.0            1.702326E-01   2.460375E-02  -6.979495E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   130\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            1.061380E-01   8.924570E-02   1.862075E-01   0.0                           \r\n           262      G      0.0            0.0            2.687800E-02   1.325411E-01   1.493468E-01   0.0                           \r\n           263      G      0.0            0.0           -4.344796E-02   1.041741E-01   8.944749E-02   0.0                           \r\n           264      G      0.0            0.0           -5.803147E-02   6.207379E-02  -3.192986E-03   0.0                           \r\n           265      G      0.0            0.0           -4.234519E-02   1.047212E-01  -6.608019E-02   0.0                           \r\n           266      G      0.0            0.0           -1.497403E-02   2.127941E-01  -3.754962E-04   0.0                           \r\n           267      G      0.0            0.0           -4.092994E-02   2.067967E-01   3.545923E-02   0.0                           \r\n           268      G      0.0            0.0           -3.692970E-02   8.267249E-02  -2.160262E-02   0.0                           \r\n           269      G      0.0            0.0           -1.589995E-02  -4.085075E-03  -9.145177E-02   0.0                           \r\n           270      G      0.0            0.0            4.891810E-02  -4.172290E-02  -1.216944E-01   0.0                           \r\n           271      G      0.0            0.0            8.572288E-02  -3.121803E-02  -4.200594E-02   0.0                           \r\n           272      G      0.0            0.0            8.158571E-02  -9.236899E-05   8.546218E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            2.172651E-01   0.0                           \r\n           316      G      0.0            0.0            1.326873E-01  -3.744940E-03   0.0            0.0                           \r\n           317      G      0.0            0.0            5.964965E-02   4.218713E-02   2.650822E-01   0.0                           \r\n           318      G      0.0            0.0           -6.020822E-02   6.394631E-02   1.603897E-01   0.0                           \r\n           319      G      0.0            0.0           -7.976267E-02   5.547331E-02  -4.947994E-02   0.0                           \r\n           320      G      0.0            0.0           -2.671750E-02   1.040842E-01  -1.618876E-01   0.0                           \r\n           321      G      0.0            0.0            4.226741E-02   2.060065E-01  -6.397785E-02   0.0                           \r\n           322      G      0.0            0.0            3.082682E-02   1.885533E-01   4.113025E-02   0.0                           \r\n           323      G      0.0            0.0            1.564618E-02   6.316213E-02   4.833618E-02   0.0                           \r\n           324      G      0.0            0.0           -1.094471E-02  -1.671995E-02   2.474885E-02   0.0                           \r\n           325      G      0.0            0.0           -1.091561E-02  -4.943116E-02   1.716013E-02   0.0                           \r\n           326      G      0.0            0.0           -4.218198E-02  -4.769352E-02   8.356438E-02   0.0                           \r\n           327      G      0.0            0.0           -9.126045E-02  -3.130206E-02   1.366757E-01   0.0                           \r\n           328      G      0.0            0.0           -1.376216E-01  -4.661257E-02  -2.736153E-02   0.0                           \r\n           329      G      0.0            0.0           -7.060803E-02  -1.051587E-01  -1.649649E-01   0.0                           \r\n           330      G      0.0            0.0           -1.150057E-02  -1.323695E-01  -9.178698E-02   0.0                           \r\n           331      G      0.0            0.0            3.081185E-02  -1.113642E-01  -4.452905E-02   0.0                           \r\n           332      G      0.0            0.0            3.762310E-02  -6.062618E-02  -1.153090E-02   0.0                           \r\n           333      G      0.0            0.0            4.377101E-02  -9.106917E-02   1.229435E-03   0.0                           \r\n           334      G      0.0            0.0            4.479336E-02  -1.729982E-01  -3.563181E-02   0.0                           \r\n           335      G      0.0            0.0            6.299712E-02  -1.723887E-01   2.737902E-02   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.817165E-01   0.0                           \r\n           379      G      0.0            0.0            6.724192E-02  -3.554140E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            1.165028E-02  -2.960634E-02   1.915961E-01   0.0                           \r\n           381      G      0.0            0.0           -7.419382E-02  -2.727323E-02   1.329091E-01   0.0                           \r\n           382      G      0.0            0.0           -1.139905E-01  -2.674638E-02   4.700058E-02   0.0                           \r\n           383      G      0.0            0.0           -1.071608E-01  -6.421247E-02  -1.146399E-01   0.0                           \r\n           384      G      0.0            0.0           -1.871976E-02  -1.167743E-01  -1.850977E-01   0.0                           \r\n           385      G      0.0            0.0            4.597687E-02  -1.293668E-01  -8.440110E-02   0.0                           \r\n           386      G      0.0            0.0            7.287657E-02  -8.205401E-02   4.311675E-04   0.0                           \r\n           387      G      0.0            0.0            5.027235E-02  -3.081088E-02   6.928695E-02   0.0                           \r\n           388      G      0.0            0.0            1.050841E-02  -4.190294E-02   9.206300E-02   0.0                           \r\n           389      G      0.0            0.0           -2.388654E-02  -1.071638E-01   1.788945E-02   0.0                           \r\n           390      G      0.0            0.0           -7.904485E-03  -1.053359E-01  -3.525894E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   131\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            6.780180E-04  -3.449432E-02  -1.746622E-02   0.0                           \r\n           392      G      0.0            0.0            5.612530E-03   1.125890E-02   1.669889E-02   0.0                           \r\n           393      G      0.0            0.0           -1.369812E-02   2.287238E-02   3.019253E-02   0.0                           \r\n           394      G      0.0            0.0           -1.152265E-02   8.241523E-03  -2.666861E-02   0.0                           \r\n           395      G      0.0            0.0            1.619075E-02  -1.253390E-02  -1.011859E-01   0.0                           \r\n           396      G      0.0            0.0            6.240765E-02   3.910487E-03  -3.212238E-02   0.0                           \r\n           397      G      0.0            0.0            4.762659E-02   4.523307E-02   4.637158E-02   0.0                           \r\n           398      G      0.0            0.0            3.386172E-02   5.717383E-02   3.260583E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            8.474816E-02   0.0                           \r\n           442      G      0.0            0.0            2.079998E-01   9.272512E-04   0.0            0.0                           \r\n           443      G      0.0            0.0            9.060875E-02  -3.612558E-02   3.768366E-01   0.0                           \r\n           444      G      0.0            0.0           -5.732456E-02  -1.228741E-01   1.757268E-01   0.0                           \r\n           445      G      0.0            0.0           -7.796562E-02  -1.303569E-01  -4.303323E-02   0.0                           \r\n           446      G      0.0            0.0           -4.098587E-02  -5.619501E-02  -1.145796E-01   0.0                           \r\n           447      G      0.0            0.0            1.634033E-02  -3.823539E-03  -8.641412E-02   0.0                           \r\n           448      G      0.0            0.0            3.862235E-02   1.861860E-02  -2.832166E-02   0.0                           \r\n           449      G      0.0            0.0            5.588854E-02   1.259806E-02  -2.780776E-02   0.0                           \r\n           450      G      0.0            0.0            7.210134E-02  -5.508143E-04  -5.543177E-02   0.0                           \r\n           451      G      0.0            0.0            8.814884E-02   2.170028E-02   4.027461E-02   0.0                           \r\n           452      G      0.0            0.0            3.613374E-02   7.137747E-02   1.184300E-01   0.0                           \r\n           453      G      0.0            0.0           -5.697669E-03   1.001430E-01   6.407545E-02   0.0                           \r\n           454      G      0.0            0.0           -3.346967E-02   7.717635E-02   2.107939E-02   0.0                           \r\n           455      G      0.0            0.0           -2.829923E-02   4.655423E-02  -2.299211E-02   0.0                           \r\n           456      G      0.0            0.0           -1.386404E-02   7.390463E-02  -4.041418E-02   0.0                           \r\n           457      G      0.0            0.0           -1.880268E-03   1.488054E-01   1.948231E-02   0.0                           \r\n           458      G      0.0            0.0           -2.998540E-02   1.474210E-01   4.544260E-02   0.0                           \r\n           459      G      0.0            0.0           -3.707456E-02   6.781424E-02   2.523530E-03   0.0                           \r\n           460      G      0.0            0.0           -3.187647E-02   1.143730E-02  -4.125169E-02   0.0                           \r\n           461      G      0.0            0.0           -2.261573E-03  -1.165633E-02  -4.379686E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.461841E-02   0.0                           \r\n           505      G      0.0            0.0            1.658654E-01   1.164972E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            1.130681E-01   3.911482E-02   2.365226E-01   0.0                           \r\n           507      G      0.0            0.0           -2.074492E-02   8.794341E-02   2.340875E-01   0.0                           \r\n           508      G      0.0            0.0           -8.583283E-02   1.085067E-01   4.378499E-02   0.0                           \r\n           509      G      0.0            0.0           -8.115701E-02   8.436600E-02  -7.545225E-02   0.0                           \r\n           510      G      0.0            0.0           -2.765173E-02   3.894273E-02  -1.114883E-01   0.0                           \r\n           511      G      0.0            0.0            1.894106E-02   4.906512E-02  -7.973085E-02   0.0                           \r\n           512      G      0.0            0.0            3.975353E-02   1.020623E-01   1.904412E-02   0.0                           \r\n           513      G      0.0            0.0            6.864179E-03   1.094696E-01   6.736633E-02   0.0                           \r\n           514      G      0.0            0.0           -1.469543E-02   3.432801E-02   3.737881E-02   0.0                           \r\n           515      G      0.0            0.0           -2.874812E-02  -1.174166E-02   3.480692E-03   0.0                           \r\n           516      G      0.0            0.0           -1.899790E-02  -3.022003E-02  -2.052749E-02   0.0                           \r\n           517      G      0.0            0.0           -1.752870E-02  -2.050480E-02   5.702027E-03   0.0                           \r\n           518      G      0.0            0.0           -2.721736E-02  -9.269326E-03   4.653288E-02   0.0                           \r\n           519      G      0.0            0.0           -4.429078E-02  -2.017788E-02  -1.776732E-02   0.0                           \r\n           520      G      0.0            0.0           -1.104453E-02  -5.726459E-02  -8.001296E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   132\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            1.891052E-02  -7.203011E-02  -5.019605E-02   0.0                           \r\n           522      G      0.0            0.0            4.420489E-02  -4.829087E-02  -3.010884E-02   0.0                           \r\n           523      G      0.0            0.0            4.847075E-02  -5.126846E-04  -5.867754E-04   0.0                           \r\n           524      G      0.0            0.0            4.055433E-02   8.428220E-03   4.472458E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            1.044199E-01   0.0                           \r\n           568      G      0.0            0.0            6.468166E-02  -7.501521E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            1.742860E-02  -4.693441E-02   1.648938E-01   0.0                           \r\n           570      G      0.0            0.0           -5.382033E-02  -2.297029E-02   8.651882E-02   0.0                           \r\n           571      G      0.0            0.0           -6.113809E-02  -9.234696E-03  -3.239204E-02   0.0                           \r\n           572      G      0.0            0.0           -3.981895E-02   7.247941E-04  -5.453825E-02   0.0                           \r\n           573      G      0.0            0.0           -2.057316E-02   6.232468E-03  -4.483461E-03   0.0                           \r\n           574      G      0.0            0.0           -2.174878E-02  -1.747118E-02  -2.773711E-02   0.0                           \r\n           575      G      0.0            0.0            5.733163E-03  -6.022822E-02  -4.801910E-02   0.0                           \r\n           576      G      0.0            0.0            1.245791E-02  -8.452525E-02   6.437645E-03   0.0                           \r\n           577      G      0.0            0.0            7.858985E-03  -6.627791E-02   2.884615E-02   0.0                           \r\n           578      G      0.0            0.0           -1.300814E-02  -3.866814E-02   3.928913E-02   0.0                           \r\n           579      G      0.0            0.0           -2.888496E-02  -5.396308E-02   2.840766E-02   0.0                           \r\n           580      G      0.0            0.0           -3.191414E-02  -1.047585E-01  -3.562332E-02   0.0                           \r\n           581      G      0.0            0.0            3.021809E-03  -1.008781E-01  -6.752072E-02   0.0                           \r\n           582      G      0.0            0.0            2.653070E-02  -3.959499E-02  -4.038449E-02   0.0                           \r\n           583      G      0.0            0.0            4.105347E-02   2.286793E-03  -3.113615E-03   0.0                           \r\n           584      G      0.0            0.0            3.280951E-02   1.800965E-02   1.335203E-02   0.0                           \r\n           585      G      0.0            0.0            3.777560E-02   7.115260E-03  -2.307248E-02   0.0                           \r\n           586      G      0.0            0.0            5.542864E-02  -1.656623E-02  -5.847809E-02   0.0                           \r\n           587      G      0.0            0.0            6.848705E-02  -2.082714E-02   4.676135E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            1.925937E-01   0.0                           \r\n           631      G      0.0            0.0            7.915213E-02   2.744387E-02   0.0            0.0                           \r\n           632      G      0.0            0.0            4.354043E-02   3.353220E-03   1.282805E-01   0.0                           \r\n           633      G      0.0            0.0           -1.896272E-02  -4.855567E-03   9.717739E-02   0.0                           \r\n           634      G      0.0            0.0           -4.640964E-02  -4.188585E-02   2.021210E-02   0.0                           \r\n           635      G      0.0            0.0           -3.650090E-02  -1.040605E-01  -7.380731E-02   0.0                           \r\n           636      G      0.0            0.0            1.533449E-02  -1.050814E-01  -9.372568E-02   0.0                           \r\n           637      G      0.0            0.0            4.370130E-02  -4.545393E-02  -3.334664E-02   0.0                           \r\n           638      G      0.0            0.0            4.652968E-02  -1.611804E-03   3.475929E-02   0.0                           \r\n           639      G      0.0            0.0            1.513461E-02   1.953167E-02   6.558467E-02   0.0                           \r\n           640      G      0.0            0.0           -4.960902E-03   1.931878E-02   2.272440E-02   0.0                           \r\n           641      G      0.0            0.0           -3.527547E-03   1.001712E-02  -4.204604E-02   0.0                           \r\n           642      G      0.0            0.0            1.721318E-02   2.235956E-02  -1.284833E-03   0.0                           \r\n           643      G      0.0            0.0           -1.815904E-03   5.374471E-02   4.245743E-02   0.0                           \r\n           644      G      0.0            0.0           -9.720253E-03   7.078455E-02   2.571165E-03   0.0                           \r\n           645      G      0.0            0.0           -1.020584E-02   5.002877E-02  -1.921277E-02   0.0                           \r\n           646      G      0.0            0.0            8.243179E-03   2.450208E-02  -4.005304E-02   0.0                           \r\n           647      G      0.0            0.0            2.783249E-02   4.380697E-02  -4.290781E-02   0.0                           \r\n           648      G      0.0            0.0            4.117139E-02   9.936351E-02   1.020262E-02   0.0                           \r\n           649      G      0.0            0.0            2.089049E-02   9.951933E-02   3.586112E-02   0.0                           \r\n           650      G      0.0            0.0            1.280621E-02   4.382661E-02   1.242278E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   133\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.888233E-02   0.0                           \r\n           694      G      0.0            0.0            1.082761E-01   8.448748E-02   0.0            0.0                           \r\n           695      G      0.0            0.0            6.088950E-02   3.309309E-02   1.586633E-01   0.0                           \r\n           696      G      0.0            0.0           -4.069490E-03   6.451030E-04   7.349866E-02   0.0                           \r\n           697      G      0.0            0.0           -1.825179E-02   2.386271E-03   1.649083E-02   0.0                           \r\n           698      G      0.0            0.0           -2.736064E-02   3.424305E-02  -1.312631E-03   0.0                           \r\n           699      G      0.0            0.0           -1.435513E-02   5.359359E-02  -3.668708E-02   0.0                           \r\n           700      G      0.0            0.0           -1.262178E-03   4.414841E-02  -2.975922E-02   0.0                           \r\n           701      G      0.0            0.0            1.316470E-02   2.237212E-02  -1.590077E-02   0.0                           \r\n           702      G      0.0            0.0            1.487726E-02   3.971677E-02   3.864699E-03   0.0                           \r\n           703      G      0.0            0.0            5.119560E-03   8.589385E-02   4.841968E-02   0.0                           \r\n           704      G      0.0            0.0           -2.854466E-02   8.602057E-02   5.650944E-02   0.0                           \r\n           705      G      0.0            0.0           -4.392423E-02   3.762463E-02   1.609360E-02   0.0                           \r\n           706      G      0.0            0.0           -4.389063E-02   1.094734E-03  -2.668860E-02   0.0                           \r\n           707      G      0.0            0.0           -2.126338E-02  -1.555679E-02  -4.512823E-02   0.0                           \r\n           708      G      0.0            0.0           -8.038774E-03  -1.392103E-02  -1.448568E-02   0.0                           \r\n           709      G      0.0            0.0           -8.813659E-03  -8.178906E-03   2.745230E-02   0.0                           \r\n           710      G      0.0            0.0           -1.952599E-02  -2.532710E-02  -1.517398E-02   0.0                           \r\n           711      G      0.0            0.0            4.811001E-03  -5.712051E-02  -5.421036E-02   0.0                           \r\n           712      G      0.0            0.0            2.037979E-02  -7.133348E-02  -1.656252E-02   0.0                           \r\n           713      G      0.0            0.0            2.379654E-02  -4.711678E-02   1.915973E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            6.467170E-02   0.0                           \r\n           757      G      0.0            0.0            9.446631E-02   5.503758E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            4.503411E-02   8.943980E-02   1.844080E-01   0.0                           \r\n           759      G      0.0            0.0           -4.677380E-02   9.457158E-02   1.465920E-01   0.0                           \r\n           760      G      0.0            0.0           -8.600071E-02   4.962989E-02   2.427490E-02   0.0                           \r\n           761      G      0.0            0.0           -7.613179E-02   1.359749E-02  -6.861635E-02   0.0                           \r\n           762      G      0.0            0.0           -2.981624E-02  -4.971784E-03  -9.266998E-02   0.0                           \r\n           763      G      0.0            0.0            1.496615E-03  -4.039973E-03  -3.699716E-02   0.0                           \r\n           764      G      0.0            0.0            3.747664E-03   3.899089E-03   3.799189E-02   0.0                           \r\n           765      G      0.0            0.0           -1.783736E-02  -7.354615E-03   1.627568E-02   0.0                           \r\n           766      G      0.0            0.0           -9.390172E-03  -3.481909E-02  -2.326865E-02   0.0                           \r\n           767      G      0.0            0.0           -5.284843E-03  -4.922725E-02  -3.642969E-03   0.0                           \r\n           768      G      0.0            0.0           -1.040667E-03  -3.393031E-02   1.831083E-03   0.0                           \r\n           769      G      0.0            0.0           -7.054626E-03  -1.488162E-02   1.159612E-02   0.0                           \r\n           770      G      0.0            0.0           -1.224289E-02  -3.386410E-02   1.298682E-02   0.0                           \r\n           771      G      0.0            0.0           -1.264858E-02  -8.215667E-02  -2.690415E-02   0.0                           \r\n           772      G      0.0            0.0            1.256346E-02  -8.596280E-02  -4.564043E-02   0.0                           \r\n           773      G      0.0            0.0            2.698531E-02  -4.051819E-02  -2.382051E-02   0.0                           \r\n           774      G      0.0            0.0            3.521469E-02  -5.289694E-03   2.349752E-03   0.0                           \r\n           775      G      0.0            0.0            2.577044E-02   1.628401E-02   1.866261E-02   0.0                           \r\n           776      G      0.0            0.0            1.910402E-02   2.001872E-02   1.939523E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.824808E-02   0.0                           \r\n           820      G      0.0            0.0            1.093977E-01  -1.431112E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.646863E-02  -1.079777E-01   1.048758E-01   0.0                           \r\n           822      G      0.0            0.0            2.981248E-02  -4.419446E-02   7.126358E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   134\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            8.862031E-03  -1.231865E-02   2.238381E-02   0.0                           \r\n           824      G      0.0            0.0            4.246425E-03   8.640050E-03  -1.446145E-02   0.0                           \r\n           825      G      0.0            0.0            1.895249E-02  -1.336670E-02  -3.094893E-02   0.0                           \r\n           826      G      0.0            0.0            3.301906E-02  -4.656610E-02  -3.187767E-02   0.0                           \r\n           827      G      0.0            0.0            4.707285E-02  -8.386029E-02  -6.024608E-03   0.0                           \r\n           828      G      0.0            0.0            3.870611E-02  -4.764397E-02   2.124365E-02   0.0                           \r\n           829      G      0.0            0.0            2.670034E-02  -1.971781E-02   3.801727E-02   0.0                           \r\n           830      G      0.0            0.0            3.646889E-03   5.832942E-03   3.327829E-02   0.0                           \r\n           831      G      0.0            0.0           -7.353892E-04   1.025910E-02  -8.080496E-03   0.0                           \r\n           832      G      0.0            0.0            8.896368E-03   1.253353E-02  -3.922147E-02   0.0                           \r\n           833      G      0.0            0.0            2.300061E-02   8.413283E-03   1.663211E-02   0.0                           \r\n           834      G      0.0            0.0           -3.816368E-03   2.942756E-02   5.574040E-02   0.0                           \r\n           835      G      0.0            0.0           -1.909981E-02   3.784440E-02   1.282768E-02   0.0                           \r\n           836      G      0.0            0.0           -2.245013E-02   3.984972E-02  -9.053246E-03   0.0                           \r\n           837      G      0.0            0.0           -1.353193E-02   1.054465E-02  -1.432888E-02   0.0                           \r\n           838      G      0.0            0.0           -7.799463E-03  -2.627933E-03  -1.846340E-02   0.0                           \r\n           839      G      0.0            0.0            3.304897E-03  -1.127949E-02  -1.112285E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.826628E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -2.592994E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.758991E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -7.237992E-02   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -2.915641E-02   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.906524E-02   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -5.635077E-02   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -7.384542E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -1.036263E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -8.968437E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -7.699323E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.533966E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.130912E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.069705E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -8.118921E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -1.800381E-03   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            3.198010E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            4.972568E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            3.393507E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            2.965915E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -3.744016E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   135\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n          ORIGIN      11   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    2   MODAL  DEFORM.     1 - SUBCASE       1 - MODE   9.065642E-01 - FREQUENCY                                      \r\n          PLOT    3   MODAL  DEFORM.     1 - SUBCASE       2 - MODE   2.266261E+00 - FREQUENCY                                      \r\n          PLOT    4   MODAL  DEFORM.     1 - SUBCASE       3 - MODE   4.533995E+00 - FREQUENCY                                      \r\n          PLOT    5   MODAL  DEFORM.     1 - SUBCASE       4 - MODE   5.883843E+00 - FREQUENCY                                      \r\n          PLOT    6   MODAL  DEFORM.     1 - SUBCASE       5 - MODE   7.712141E+00 - FREQUENCY                                      \r\n          PLOT    7   MODAL  DEFORM.     1 - SUBCASE       6 - MODE   8.135221E+00 - FREQUENCY                                      \r\n          PLOT    8   MODAL  DEFORM.     1 - SUBCASE       7 - MODE   1.148168E+01 - FREQUENCY                                      \r\n          PLOT    9   MODAL  DEFORM.     1 - SUBCASE       8 - MODE   1.200693E+01 - FREQUENCY                                      \r\n          PLOT   10   MODAL  DEFORM.     1 - SUBCASE       9 - MODE   1.443565E+01 - FREQUENCY                                      \r\n          PLOT   11   MODAL  DEFORM.     1 - SUBCASE      10 - MODE   1.853699E+01 - FREQUENCY                                      \r\n          PLOT   12   MODAL  DEFORM.     1 - SUBCASE      11 - MODE   2.605883E+01 - FREQUENCY                                      \r\n          PLOT   13   MODAL  DEFORM.     1 - SUBCASE      12 - MODE   5.498771E+01 - FREQUENCY                                      \r\n                                                 ORIGIN     11  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =          VIBRATION OF A 20 X 40 HALF PLATE                          \r\n DATE:  5/17/95\r\n END TIME: 15:34:41\r\n TOTAL WALL CLOCK TIME      5 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03013a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03013A,NASTRAN                                                           \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                      \r\n     EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\n     ENDALTER $                                                                      \r\n     APP     DISPLACEMENT                                                            \r\n     SOL     3,1                                                                     \r\n     DIAG    14                                                                      \r\n     TIME    35                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = VIBRATIONS OF A 10 BY 20 PLATE                                       \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                          \r\n                  3      $                                                                               \r\n                  4           SPC = 10020                                                                \r\n                  5        METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS                                  \r\n                  6      $              ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)             \r\n                  7      $       MODE    M       N       FREQ                                            \r\n                  8      $       1       1       1       9.068997E-1                                     \r\n                  9      $       2       1       2       2.267249                                        \r\n                 10      $       5       1       3       4.534498                                        \r\n                 11      $       6       3       1       4.534498                                        \r\n                 12      $       7       3       2       5.894848                                        \r\n                 13      $       9       1       4       7.708647                                        \r\n                 14      $                                                                               \r\n                 15      OUTPUT                                                                          \r\n                 16         SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121          \r\n                 17         SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89,                \r\n                 18                 99,100, 110 THRU 121                                                 \r\n                 19         DISPLACEMENTS = 1                                                            \r\n                 20         SPCFORCE = 2                                                                 \r\n                 21      $                                                                               \r\n                 22      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                            \r\n                 23      OUTPUT(PLOT)                                                                    \r\n                 24      PLOTTER NASTPLT                                                                 \r\n                 25               SET 1 INCLUDE PLOTEL                                                   \r\n                 26               SET 2 INCLUDE QUAD1                                                    \r\n                 27               MAXIMUM DEFORMATION  1.0                                               \r\n                 28               FIND SCALE, ORIGIN 10                                                  \r\n                 29      PTITLE = ALL QUADS IN THE PLATE                                                 \r\n                 30      PLOT ORIGIN 10, SET 2, LABELS                                                   \r\n                 31               FIND SCALE, ORIGIN 11                                                  \r\n                 32      PTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\n                 33      PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\n                 34      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    77, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        EIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n                    2-        +SIMPL-IMAX                                                                     \r\n                    3-        EIGR    3       INV     .89     1.0     1       3       0               +EIG3-1 \r\n                    4-        +EIG3-1 MAX                                                                     \r\n                    5-        EIGR    4       DET     .89     1.0     1       1       0               +EIG4-1 \r\n                    6-        +EIG4-1 MAX                                                                     \r\n                    7-        EIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n                    8-        +EIG5-2 MAX                                                                     \r\n                    9-        EIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n                   10-        +EIG6-2 MAX                                                                     \r\n                   11-        EIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n                   12-        +EIG7-5 MAX                                                                     \r\n                   13-        EIGR    8       DET     .89     6.1     5       5       0               +EIG8-5 \r\n                   14-        +EIG8-5 MAX                                                                     \r\n                   15-        EIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n                   16-        +EIG9-10MAX                                                                     \r\n                   17-        EIGR    10      DET     .89     14.5    5       5       0               +EIG1010\r\n                   18-        +EIG1010MAX                                                                     \r\n                   19-        EIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n                   20-        +EIG1120MAX                                                                     \r\n                   21-        EIGR    12      DET     .89     29.0    20      20      0               +EIG1220\r\n                   22-        +EIG1220MAX                                                                     \r\n                   23-        MAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n                   24-        +MAT1   30000.  28000.                                                          \r\n                   25-        PARAM   GRDPNT  111                                                             \r\n                   26-        PLOTEL  300     23      1                                                       \r\n                   27-        PLOTEL  301     1       11              302     11      231                     \r\n                   28-        PLOTEL  303     231     221             304     221     199                     \r\n                   29-        PLOTEL  305     199     201             306     201     203                     \r\n                   30-        PLOTEL  307     203     205             308     205     207                     \r\n                   31-        PLOTEL  309     207     209             310     187     185                     \r\n                   32-        PLOTEL  311     185     183             312     183     181                     \r\n                   33-        PLOTEL  313     181     179             314     179     177                     \r\n                   34-        PLOTEL  315     199     177             316     177     155                     \r\n                   35-        PLOTEL  317     155     157             318     157     159                     \r\n                   36-        PLOTEL  319     159     161             320     161     163                     \r\n                   37-        PLOTEL  321     163     165             322     143     141                     \r\n                   38-        PLOTEL  323     141     139             324     139     137                     \r\n                   39-        PLOTEL  325     137     135             326     135     133                     \r\n                   40-        PLOTEL  327     155     133             328     133     111                     \r\n                   41-        PLOTEL  329     111     113             330     113     115                     \r\n                   42-        PLOTEL  331     115     117             332     117     119                     \r\n                   43-        PLOTEL  333     119     121             334     99      97                      \r\n                   44-        PLOTEL  335     97      95              336     95      93                      \r\n                   45-        PLOTEL  337     93      91              338     91      89                      \r\n                   46-        PLOTEL  339     111     89              340     89      67                      \r\n                   47-        PLOTEL  341     67      69              342     69      71                      \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        PLOTEL  343     71      73              344     73      75                      \r\n                   49-        PLOTEL  345     75      77              346     55      53                      \r\n                   50-        PLOTEL  347     53      51              348     51      49                      \r\n                   51-        PLOTEL  349     49      47              350     47      45                      \r\n                   52-        PLOTEL  351     67      45              352     45      23                      \r\n                   53-        PLOTEL  353     23      25              354     25      27                      \r\n                   54-        PLOTEL  355     27      29              356     29      31                      \r\n                   55-        PLOTEL  357     31      33              358     9       31                      \r\n                   56-        PLOTEL  359     31      53              360     53      75                      \r\n                   57-        PLOTEL  361     75      97              362     97      119                     \r\n                   58-        PLOTEL  363     119     141             364     141     163                     \r\n                   59-        PLOTEL  365     163     185             366     185     207                     \r\n                   60-        PLOTEL  367     207     229             368     227     205                     \r\n                   61-        PLOTEL  369     205     183             370     183     161                     \r\n                   62-        PLOTEL  371     161     139             372     139     117                     \r\n                   63-        PLOTEL  373     117     95              374     95      73                      \r\n                   64-        PLOTEL  375     73      51              376     51      29                      \r\n                   65-        PLOTEL  377     29      7               378     5       27                      \r\n                   66-        PLOTEL  379     27      49              380     49      71                      \r\n                   67-        PLOTEL  381     71      93              382     93      115                     \r\n                   68-        PLOTEL  383     115     137             384     137     159                     \r\n                   69-        PLOTEL  385     159     181             386     181     203                     \r\n                   70-        PLOTEL  387     203     225             388     223     201                     \r\n                   71-        PLOTEL  389     201     179             390     179     157                     \r\n                   72-        PLOTEL  391     157     135             392     135     113                     \r\n                   73-        PLOTEL  393     113     91              394     91      69                      \r\n                   74-        PLOTEL  395     69      47              396     47      36                      \r\n                   75-        PLOTEL  397     36      25              398     25      3                       \r\n                   76-        PQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n                   77-        +PQUAD1 .5      .0                                                              \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED -\r\n\r\n           101\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                              \r\n\r\n       1  EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     104  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                           10      20 1.0E+00 1.0E+00     126 0.0E+00 0.0E+00\r\n                           35       5      35      34       0       0\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =      111\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.06043930D+05 *\r\n                *  0.00000000D+00  0.00000000D+00  4.12087860D+04  0.00000000D+00 -2.06043930D+05  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.38049433D+06  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -2.06043930D+05  0.00000000D+00  1.38049433D+06  0.00000000D+00 *\r\n                *  0.00000000D+00  2.06043930D+05  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.76098866D+06 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.120878601D+04      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.380494331D+06  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.502746811D+05  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.730769012D+06  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.380494331D+06                                    *\r\n                                      *                   3.502746811D+05                   *\r\n                                      *                                    1.730769012D+06  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n                        1 ROOTS BELOW   1.293333E+02\r\n                        2 ROOTS BELOW   2.025893E+02\r\n                        4 ROOTS BELOW   8.112073E+02\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         3\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         3\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        26\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         4*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 3X EST.ROOTS IN RANGE SPECIFIED.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         2        3.237408E+01        5.689823E+00        9.055634E-01        1.030220E+04        3.335242E+05             \r\n        2         1        2.022407E+02        1.422113E+01        2.263364E+00        1.030220E+04        2.083523E+06             \r\n        3         3        8.111597E+02        2.848087E+01        4.532870E+00        5.601166E+03        4.543440E+06             \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.569410E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.550088E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            1.492598E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.398354E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.269680E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            1.109741E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            9.224761E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            7.124973E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            4.849744E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.455098E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0            4.539905E-01   1.398354E-01   0.0            0.0                           \r\n            35      G      0.0            0.0            4.484011E-01   1.381139E-01   1.114591E-02   0.0                           \r\n            36      G      0.0            0.0            4.317706E-01   1.329914E-01   2.201737E-02   0.0                           \r\n            37      G      0.0            0.0            4.045085E-01   1.245943E-01   3.234670E-02   0.0                           \r\n            38      G      0.0            0.0            3.672860E-01   1.131293E-01   4.187954E-02   0.0                           \r\n            39      G      0.0            0.0            3.210197E-01   9.887860E-02   5.038116E-02   0.0                           \r\n            40      G      0.0            0.0            2.668489E-01   8.219323E-02   5.764224E-02   0.0                           \r\n            41      G      0.0            0.0            2.061074E-01   6.348398E-02   6.348398E-02   0.0                           \r\n            42      G      0.0            0.0            1.402908E-01   4.321153E-02   6.776251E-02   0.0                           \r\n            43      G      0.0            0.0            7.101975E-02   2.187509E-02   7.037253E-02   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0            7.124973E-02   0.0                           \r\n            56      G      0.0            0.0            7.071067E-01   1.109741E-01   0.0            0.0                           \r\n            57      G      0.0            0.0            6.984012E-01   1.096078E-01   1.736017E-02   0.0                           \r\n            58      G      0.0            0.0            6.724985E-01   1.055426E-01   3.429287E-02   0.0                           \r\n            59      G      0.0            0.0            6.300367E-01   9.887860E-02   5.038116E-02   0.0                           \r\n            60      G      0.0            0.0            5.720614E-01   8.977990E-02   6.522890E-02   0.0                           \r\n            61      G      0.0            0.0            5.000000E-01   7.847050E-02   7.847050E-02   0.0                           \r\n            62      G      0.0            0.0            4.156269E-01   6.522890E-02   8.977990E-02   0.0                           \r\n            63      G      0.0            0.0            3.210197E-01   5.038116E-02   9.887860E-02   0.0                           \r\n            64      G      0.0            0.0            2.185080E-01   3.429287E-02   1.055426E-01   0.0                           \r\n            65      G      0.0            0.0            1.106159E-01   1.736017E-02   1.096078E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            1.109741E-01   0.0                           \r\n            78      G      0.0            0.0            8.910065E-01   7.124973E-02   0.0            0.0                           \r\n            79      G      0.0            0.0            8.800368E-01   7.037253E-02   2.187509E-02   0.0                           \r\n            80      G      0.0            0.0            8.473975E-01   6.776251E-02   4.321153E-02   0.0                           \r\n            81      G      0.0            0.0            7.938926E-01   6.348398E-02   6.348398E-02   0.0                           \r\n            82      G      0.0            0.0            7.208394E-01   5.764224E-02   8.219323E-02   0.0                           \r\n            83      G      0.0            0.0            6.300367E-01   5.038116E-02   9.887860E-02   0.0                           \r\n            84      G      0.0            0.0            5.237205E-01   4.187954E-02   1.131293E-01   0.0                           \r\n            85      G      0.0            0.0            4.045085E-01   3.234670E-02   1.245943E-01   0.0                           \r\n            86      G      0.0            0.0            2.753361E-01   2.201737E-02   1.329914E-01   0.0                           \r\n            87      G      0.0            0.0            1.393841E-01   1.114591E-02   1.381139E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0            1.398354E-01   0.0                           \r\n           111      G      0.0            0.0            1.000000E+00  -1.489614E-11   0.0            0.0                           \r\n           112      G      0.0            0.0            9.876884E-01  -1.214225E-11   2.455098E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            9.510565E-01  -4.563531E-12   4.849744E-02   0.0                           \r\n           114      G      0.0            0.0            8.910065E-01   5.406898E-12   7.124973E-02   0.0                           \r\n           115      G      0.0            0.0            8.090169E-01   1.506906E-11   9.224761E-02   0.0                           \r\n           116      G      0.0            0.0            7.071067E-01   2.204741E-11   1.109741E-01   0.0                           \r\n           117      G      0.0            0.0            5.877852E-01   2.496322E-11   1.269680E-01   0.0                           \r\n           118      G      0.0            0.0            4.539905E-01   2.347477E-11   1.398354E-01   0.0                           \r\n           119      G      0.0            0.0            3.090170E-01   1.807140E-11   1.492598E-01   0.0                           \r\n           120      G      0.0            0.0            1.564345E-01   9.791383E-12   1.550088E-01   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0            1.569410E-01   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.145222E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            3.106499E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.991284E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            2.802413E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.544538E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.224008E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.848715E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            1.427901E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            9.719270E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            4.920211E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0            8.090169E-01   1.848715E-01   0.0            0.0                           \r\n            35      G      0.0            0.0            7.990566E-01   1.825954E-01   1.977073E-02   0.0                           \r\n            36      G      0.0            0.0            7.694208E-01   1.758233E-01   3.905464E-02   0.0                           \r\n            37      G      0.0            0.0            7.208394E-01   1.647217E-01   5.737691E-02   0.0                           \r\n            38      G      0.0            0.0            6.545085E-01   1.495642E-01   7.428636E-02   0.0                           \r\n            39      G      0.0            0.0            5.720614E-01   1.307239E-01   8.936661E-02   0.0                           \r\n            40      G      0.0            0.0            4.755282E-01   1.086647E-01   1.022464E-01   0.0                           \r\n            41      G      0.0            0.0            3.672860E-01   8.392990E-02   1.126085E-01   0.0                           \r\n            42      G      0.0            0.0            2.500000E-01   5.712844E-02   1.201978E-01   0.0                           \r\n            43      G      0.0            0.0            1.265581E-01   2.892027E-02   1.248275E-01   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0            1.263835E-01   0.0                           \r\n            56      G      0.0            0.0            1.000000E+00   3.752479E-15   0.0            0.0                           \r\n            57      G      0.0            0.0            9.876884E-01   8.362275E-15   2.443797E-02   0.0                           \r\n            58      G      0.0            0.0            9.510565E-01   2.084885E-14   4.827420E-02   0.0                           \r\n            59      G      0.0            0.0            8.910065E-01   3.480149E-14   7.092176E-02   0.0                           \r\n            60      G      0.0            0.0            8.090169E-01   4.721130E-14   9.182297E-02   0.0                           \r\n            61      G      0.0            0.0            7.071067E-01   5.345043E-14   1.104632E-01   0.0                           \r\n            62      G      0.0            0.0            5.877852E-01   5.466399E-14   1.263835E-01   0.0                           \r\n            63      G      0.0            0.0            4.539905E-01   4.922448E-14   1.391918E-01   0.0                           \r\n            64      G      0.0            0.0            3.090170E-01   3.725479E-14   1.485727E-01   0.0                           \r\n            65      G      0.0            0.0            1.564345E-01   2.019245E-14   1.542953E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0            1.562186E-01   0.0                           \r\n            78      G      0.0            0.0            8.090169E-01  -1.848715E-01   0.0            0.0                           \r\n            79      G      0.0            0.0            7.990566E-01  -1.825954E-01   1.977073E-02   0.0                           \r\n            80      G      0.0            0.0            7.694208E-01  -1.758233E-01   3.905464E-02   0.0                           \r\n            81      G      0.0            0.0            7.208394E-01  -1.647217E-01   5.737691E-02   0.0                           \r\n            82      G      0.0            0.0            6.545085E-01  -1.495642E-01   7.428636E-02   0.0                           \r\n            83      G      0.0            0.0            5.720614E-01  -1.307239E-01   8.936661E-02   0.0                           \r\n            84      G      0.0            0.0            4.755282E-01  -1.086647E-01   1.022464E-01   0.0                           \r\n            85      G      0.0            0.0            3.672860E-01  -8.392990E-02   1.126085E-01   0.0                           \r\n            86      G      0.0            0.0            2.500000E-01  -5.712844E-02   1.201978E-01   0.0                           \r\n            87      G      0.0            0.0            1.265581E-01  -2.892027E-02   1.248275E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0            1.263835E-01   0.0                           \r\n           111      G      0.0            0.0            1.052307E-12  -3.145222E-01   0.0            0.0                           \r\n           112      G      0.0            0.0            1.074882E-12  -3.106499E-01  -4.677274E-14   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            1.136289E-12  -2.991284E-01  -6.421723E-14   0.0                           \r\n           114      G      0.0            0.0            1.183414E-12  -2.802413E-01  -2.215107E-14   0.0                           \r\n           115      G      0.0            0.0            1.174488E-12  -2.544538E-01   4.091110E-14   0.0                           \r\n           116      G      0.0            0.0            1.107346E-12  -2.224008E-01   9.098555E-14   0.0                           \r\n           117      G      0.0            0.0            9.944418E-13  -1.848715E-01   1.395653E-13   0.0                           \r\n           118      G      0.0            0.0            8.247490E-13  -1.427901E-01   2.024780E-13   0.0                           \r\n           119      G      0.0            0.0            5.926236E-13  -9.719270E-02   2.613617E-13   0.0                           \r\n           120      G      0.0            0.0            3.101129E-13  -4.920211E-02   3.017233E-13   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0            3.159660E-13   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -2.520193E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -2.541968E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.595249E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.646700E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.649501E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -2.554428E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.321781E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.931526E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.389404E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -7.276327E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            34      G      0.0            0.0           -4.799215E-01   6.946530E-04   0.0            0.0                           \r\n            35      G      0.0            0.0           -4.894721E-01  -4.018719E-03   1.884091E-02   0.0                           \r\n            36      G      0.0            0.0           -5.145187E-01  -1.701719E-02   3.057361E-02   0.0                           \r\n            37      G      0.0            0.0           -5.450697E-01  -3.512749E-02   2.971329E-02   0.0                           \r\n            38      G      0.0            0.0           -5.670359E-01  -5.384482E-02   1.366620E-02   0.0                           \r\n            39      G      0.0            0.0           -5.654854E-01  -6.832857E-02  -1.663638E-02   0.0                           \r\n            40      G      0.0            0.0           -5.281482E-01  -7.447623E-02  -5.687805E-02   0.0                           \r\n            41      G      0.0            0.0           -4.484011E-01  -6.984095E-02  -1.002417E-01   0.0                           \r\n            42      G      0.0            0.0           -3.270751E-01  -5.419214E-02  -1.388477E-01   0.0                           \r\n            43      G      0.0            0.0           -1.726819E-01  -2.959640E-02  -1.654323E-01   0.0                           \r\n            44      G      0.0            0.0            0.0            0.0           -1.749033E-01   0.0                           \r\n            56      G      0.0            0.0           -2.090134E-01   2.554428E-01   0.0            0.0                           \r\n            57      G      0.0            0.0           -2.305183E-01   2.485641E-01   4.240787E-02   0.0                           \r\n            58      G      0.0            0.0           -2.892550E-01   2.289113E-01   7.342280E-02   0.0                           \r\n            59      G      0.0            0.0           -3.691750E-01   1.992327E-01   8.418828E-02   0.0                           \r\n            60      G      0.0            0.0           -4.475380E-01   1.634801E-01   7.036638E-02   0.0                           \r\n            61      G      0.0            0.0           -5.000000E-01   1.260096E-01   3.313248E-02   0.0                           \r\n            62      G      0.0            0.0           -5.060984E-01   9.071678E-02  -2.103575E-02   0.0                           \r\n            63      G      0.0            0.0           -4.539354E-01   6.029223E-02  -8.173006E-02   0.0                           \r\n            64      G      0.0            0.0           -3.430314E-01   3.575867E-02  -1.368460E-01   0.0                           \r\n            65      G      0.0            0.0           -1.847212E-01   1.638598E-02  -1.751937E-01   0.0                           \r\n            66      G      0.0            0.0            0.0            0.0           -1.889171E-01   0.0                           \r\n            78      G      0.0            0.0            4.151546E-01   3.276548E-01   0.0            0.0                           \r\n            79      G      0.0            0.0            3.797029E-01   3.212236E-01   6.989671E-02   0.0                           \r\n            80      G      0.0            0.0            2.808347E-01   3.026109E-01   1.250322E-01   0.0                           \r\n            81      G      0.0            0.0            1.393841E-01   2.737288E-01   1.538512E-01   0.0                           \r\n            82      G      0.0            0.0           -1.499114E-02   2.373566E-01   1.505122E-01   0.0                           \r\n            83      G      0.0            0.0           -1.502459E-01   1.966215E-01   1.161495E-01   0.0                           \r\n            84      G      0.0            0.0           -2.388932E-01   1.544351E-01   5.861626E-02   0.0                           \r\n            85      G      0.0            0.0           -2.639473E-01   1.130057E-01  -9.236285E-03   0.0                           \r\n            86      G      0.0            0.0           -2.225684E-01   7.352924E-02  -7.236808E-02   0.0                           \r\n            87      G      0.0            0.0           -1.266173E-01   3.612101E-02  -1.168347E-01   0.0                           \r\n            88      G      0.0            0.0            0.0            0.0           -1.328318E-01   0.0                           \r\n           111      G      0.0            0.0            1.000000E+00   1.367269E-17   0.0            0.0                           \r\n           112      G      0.0            0.0            9.536365E-01  -1.676524E-15   9.140213E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           113      G      0.0            0.0            8.231105E-01  -3.325381E-15   1.659184E-01   0.0                           \r\n           114      G      0.0            0.0            6.322864E-01  -4.347521E-15   2.102688E-01   0.0                           \r\n           115      G      0.0            0.0            4.152396E-01  -2.325889E-15   2.176016E-01   0.0                           \r\n           116      G      0.0            0.0            2.090134E-01   2.333879E-16   1.889171E-01   0.0                           \r\n           117      G      0.0            0.0            4.579712E-02   2.310383E-15   1.327858E-01   0.0                           \r\n           118      G      0.0            0.0           -5.377634E-02   3.148243E-15   6.342317E-02   0.0                           \r\n           119      G      0.0            0.0           -8.476044E-02   2.676253E-15  -2.458215E-03   0.0                           \r\n           120      G      0.0            0.0           -5.856040E-02   1.786816E-15  -4.933063E-02   0.0                           \r\n           121      G      0.0            0.0            0.0            0.0           -6.626496E-02   0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.323741E+02    (CYCLIC FREQUENCY =  9.055634E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.433884E+04   0.0           -7.826680E+02   0.0                           \r\n             2      G      0.0            0.0           -2.832498E+04   0.0            9.970744E+01   0.0                           \r\n             3      G      0.0            0.0           -2.727357E+04   0.0            1.969270E+02   0.0                           \r\n             4      G      0.0            0.0           -2.555256E+04   0.0            2.893149E+02   0.0                           \r\n             5      G      0.0            0.0           -2.320054E+04   0.0            3.746189E+02   0.0                           \r\n             6      G      0.0            0.0           -2.027748E+04   0.0            4.506416E+02   0.0                           \r\n             7      G      0.0            0.0           -1.685639E+04   0.0            5.155930E+02   0.0                           \r\n             8      G      0.0            0.0           -1.301857E+04   0.0            5.678295E+02   0.0                           \r\n             9      G      0.0            0.0           -8.861663E+03   0.0            6.060587E+02   0.0                           \r\n            10      G      0.0            0.0           -4.485962E+03   0.0            6.294200E+02   0.0                           \r\n            11      G      0.0            0.0            9.514386E+04   3.186320E+02   3.186320E+02   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -1.378127E+04   0.0                           \r\n            22      G      0.0            0.0           -4.485962E+03   6.294200E+02   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0           -2.722528E+04   0.0                           \r\n            33      G      0.0            0.0           -8.861663E+03   6.060587E+02   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0           -3.999459E+04   0.0                           \r\n            44      G      0.0            0.0           -1.301856E+04   5.678280E+02   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0           -5.178103E+04   0.0                           \r\n            55      G      0.0            0.0           -1.685639E+04   5.155919E+02   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -6.229187E+04   0.0                           \r\n            66      G      0.0            0.0           -2.027749E+04   4.506400E+02   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -7.127343E+04   0.0                           \r\n            77      G      0.0            0.0           -2.320054E+04   3.746189E+02   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -7.849399E+04   0.0                           \r\n            88      G      0.0            0.0           -2.555256E+04   2.893149E+02   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -8.378493E+04   0.0                           \r\n            99      G      0.0            0.0           -2.727357E+04   1.969270E+02   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -8.701452E+04   0.0                           \r\n           110      G      0.0            0.0           -2.832498E+04   9.970744E+01   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0           -8.809728E+04   0.0                           \r\n           121      G      0.0            0.0           -2.867768E+04   5.829002E-06   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202241E+03    (CYCLIC FREQUENCY =  2.263364E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -6.034997E+04   0.0           -9.177875E+03   0.0                           \r\n             2      G      0.0            0.0           -1.192102E+05   0.0            7.796655E+02   0.0                           \r\n             3      G      0.0            0.0           -1.147899E+05   0.0            1.539890E+03   0.0                           \r\n             4      G      0.0            0.0           -1.075431E+05   0.0            2.262399E+03   0.0                           \r\n             5      G      0.0            0.0           -9.764775E+04   0.0            2.929282E+03   0.0                           \r\n             6      G      0.0            0.0           -8.534572E+04   0.0            3.523900E+03   0.0                           \r\n             7      G      0.0            0.0           -7.094527E+04   0.0            4.031738E+03   0.0                           \r\n             8      G      0.0            0.0           -5.479538E+04   0.0            4.440331E+03   0.0                           \r\n             9      G      0.0            0.0           -3.729831E+04   0.0            4.739575E+03   0.0                           \r\n            10      G      0.0            0.0           -1.888134E+04   0.0            4.922172E+03   0.0                           \r\n            11      G      0.0            0.0            1.909854E+05   6.566249E+02   2.491764E+03   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -4.533337E+04   0.0                           \r\n            22      G      0.0            0.0           -2.544192E+04   1.249022E+03   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0           -8.622433E+04   0.0                           \r\n            33      G      0.0            0.0           -4.839438E+04   1.062475E+03   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0           -1.186810E+05   0.0                           \r\n            44      G      0.0            0.0           -6.660855E+04   7.718511E+02   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0           -1.395158E+05   0.0                           \r\n            55      G      0.0            0.0           -7.830195E+04   4.058154E+02   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -1.466964E+05   0.0                           \r\n            66      G      0.0            0.0           -8.233291E+04   1.295120E-08   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -1.395158E+05   0.0                           \r\n            77      G      0.0            0.0           -7.830195E+04  -4.058154E+02   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -1.186810E+05   0.0                           \r\n            88      G      0.0            0.0           -6.660855E+04  -7.718511E+02   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -8.622433E+04   0.0                           \r\n            99      G      0.0            0.0           -4.839438E+04  -1.062475E+03   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -4.533337E+04   0.0                           \r\n           110      G      0.0            0.0           -2.544192E+04  -1.249022E+03   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0            5.203232E-06   0.0                           \r\n           121      G      0.0            0.0           -3.849894E-06  -1.313250E+03   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811160E+03    (CYCLIC FREQUENCY =  4.532870E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            7.941492E+04   0.0            2.243875E+04   0.0                           \r\n             2      G      0.0            0.0            1.626678E+05   0.0           -1.404194E+03   0.0                           \r\n             3      G      0.0            0.0            1.728195E+05   0.0           -2.830049E+03   0.0                           \r\n             4      G      0.0            0.0            1.855275E+05   0.0           -4.286404E+03   0.0                           \r\n             5      G      0.0            0.0            1.954792E+05   0.0           -5.759770E+03   0.0                           \r\n             6      G      0.0            0.0            1.970363E+05   0.0           -7.209116E+03   0.0                           \r\n             7      G      0.0            0.0            1.855519E+05   0.0           -8.568526E+03   0.0                           \r\n             8      G      0.0            0.0            1.584801E+05   0.0           -9.755316E+03   0.0                           \r\n             9      G      0.0            0.0            1.160637E+05   0.0           -1.068252E+04   0.0                           \r\n            10      G      0.0            0.0            6.141778E+04   0.0           -1.127379E+04   0.0                           \r\n            11      G      0.0            0.0           -2.881166E+05  -3.535219E+03  -5.738536E+03   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            3.457399E+04   0.0                           \r\n            22      G      0.0            0.0            6.863066E+04  -6.869414E+03   0.0            0.0                           \r\n            23      G      0.0            0.0            0.0            0.0            5.473893E+04   0.0                           \r\n            33      G      0.0            0.0            1.258981E+05  -6.296141E+03   0.0            0.0                           \r\n            34      G      0.0            0.0            0.0            0.0            4.939430E+04   0.0                           \r\n            44      G      0.0            0.0            1.628279E+05  -5.433880E+03   0.0            0.0                           \r\n            45      G      0.0            0.0            0.0            0.0            1.333909E+04   0.0                           \r\n            55      G      0.0            0.0            1.747038E+05  -4.402089E+03   0.0            0.0                           \r\n            56      G      0.0            0.0            0.0            0.0           -5.144681E+04   0.0                           \r\n            66      G      0.0            0.0            1.620123E+05  -3.332382E+03   0.0            0.0                           \r\n            67      G      0.0            0.0            0.0            0.0           -1.360840E+05   0.0                           \r\n            77      G      0.0            0.0            1.302665E+05  -2.341879E+03   0.0            0.0                           \r\n            78      G      0.0            0.0            0.0            0.0           -2.265988E+05   0.0                           \r\n            88      G      0.0            0.0            8.872896E+04  -1.510433E+03   0.0            0.0                           \r\n            89      G      0.0            0.0            0.0            0.0           -3.068642E+05   0.0                           \r\n            99      G      0.0            0.0            4.834000E+04  -8.668965E+02   0.0            0.0                           \r\n           100      G      0.0            0.0            0.0            0.0           -3.620159E+05   0.0                           \r\n           110      G      0.0            0.0            1.928358E+04  -3.864536E+02   0.0            0.0                           \r\n           111      G      0.0            0.0            0.0            0.0           -3.816448E+05   0.0                           \r\n           121      G      0.0            0.0            8.737829E+03   8.585630E-10   0.0            0.0                           \r\n1     VIBRATIONS OF A 10 BY 20 PLATE                                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n          ORIGIN      11   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    2   MODAL  DEFORM.     1 - SUBCASE       1 - MODE   9.055634E-01 - FREQUENCY                                      \r\n          PLOT    3   MODAL  DEFORM.     1 - SUBCASE       2 - MODE   2.263364E+00 - FREQUENCY                                      \r\n          PLOT    4   MODAL  DEFORM.     1 - SUBCASE       3 - MODE   4.532870E+00 - FREQUENCY                                      \r\n                                                 ORIGIN     11  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  VIBRATIONS OF A 10 BY 20 PLATE                                     \r\n DATE:  5/17/95\r\n END TIME: 15:35:39\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03014a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03014A,NASTRAN                                                           \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                      \r\n     EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\n     ENDALTER $                                                                      \r\n     APP      DISPLACEMENT                                                           \r\n     SOL      3,1                                                                    \r\n     DIAG     14                                                                     \r\n     TIME     65                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    =         VIBRATION OF A 20 X 40 HALF PLATE                            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                          \r\n                  3      $                                                                               \r\n                  4        METHOD = 20 $ FEER - NO MODES                                                 \r\n                  5           SPC = 20040   $ INPUT VERSION                                              \r\n                  6      $                  ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)         \r\n                  7      $       MODE    M       N       FREQ                                            \r\n                  8      $       1       1       1       9.068997E-1                                     \r\n                  9      $       2       1       2       2.267249                                        \r\n                 10      $       5       1       3       4.534498                                        \r\n                 11      $       6       3       1       4.534498                                        \r\n                 12      $       7       3       2       5.894848                                        \r\n                 13      $       9       1       4       7.708647                                        \r\n                 14      $                                                                               \r\n                 15      OUTPUT                                                                          \r\n                 16         SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210,                   \r\n                 17                 253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462,              \r\n                 18                 505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714,              \r\n                 19                 757 THRU 777, 820 THRU 840, 841 THRU 861                             \r\n                 20         DISPLACEMENTS = 1                                                            \r\n                 21      $                                                                               \r\n                 22      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                            \r\n                 23      OUTPUT(PLOT)                                                                    \r\n                 24      PLOTTER NASTPLT                                                                 \r\n                 25              SET 1 INCLUDE PLOTEL                                                    \r\n                 26              SET 2 INCLUDE QUAD1                                                     \r\n                 27              MAXIMUM DEFORMATION  1.0                                                \r\n                 28              FIND SCALE, ORIGIN 10                                                   \r\n                 29      PTITLE = ALL QUADS IN THE PLATE                                                 \r\n                 30      PLOT ORIGIN 10, SET 2, LABELS                                                   \r\n                 31              FIND SCALE, ORIGIN 11                                                   \r\n                 32      PTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\n                 33      PLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\n                 34      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    72, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        EIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n                    2-        +SIMPL-IMAX                                                                     \r\n                    3-        EIGR    3       INV     .89     1.0     1       3       0               +EIG3-I \r\n                    4-        +EIG3-I MAX                                                                     \r\n                    5-        EIGR    4       DET     .89     1.0     1       1       0               +EIG4-D \r\n                    6-        +EIG4-D MAX                                                                     \r\n                    7-        EIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n                    8-        +EIG5-2 MAX                                                                     \r\n                    9-        EIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n                   10-        +EIG6-2 MAX                                                                     \r\n                   11-        EIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n                   12-        +EIG7-5 MAX                                                                     \r\n                   13-        EIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n                   14-        +EIG9-10MAX                                                                     \r\n                   15-        EIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n                   16-        +EIG1120MAX                                                                     \r\n                   17-        EIGR    20      FEER    .87                     1                       +FEER   \r\n                   18-        +FEER   MAX                                                                     \r\n                   19-        MAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n                   20-        +MAT1   30000.  28000.                                                          \r\n                   21-        PARAM   GRDPNT  421                                                             \r\n                   22-        PLOTEL  1000    1       21              1001    21      861                     \r\n                   23-        PLOTEL  1002    861     841             1003    841     757                     \r\n                   24-        PLOTEL  1004    757     673             1005    673     589                     \r\n                   25-        PLOTEL  1006    589     505             1007    505     421                     \r\n                   26-        PLOTEL  1008    421     337             1009    337     253                     \r\n                   27-        PLOTEL  1010    253     169             1011    169     85                      \r\n                   28-        PLOTEL  1012    85      1               1013    5       89                      \r\n                   29-        PLOTEL  1014    89      173             1015    173     257                     \r\n                   30-        PLOTEL  1016    257     341             1017    341     425                     \r\n                   31-        PLOTEL  1018    425     509             1019    509     593                     \r\n                   32-        PLOTEL  1020    593     677             1021    677     761                     \r\n                   33-        PLOTEL  1022    761     845             1023    849     765                     \r\n                   34-        PLOTEL  1024    765     681             1025    681     597                     \r\n                   35-        PLOTEL  1026    597     513             1027    513     429                     \r\n                   36-        PLOTEL  1028    429     345             1029    345     261                     \r\n                   37-        PLOTEL  1030    261     177             1031    177     93                      \r\n                   38-        PLOTEL  1032    93      9               1033    13      97                      \r\n                   39-        PLOTEL  1034    97      181             1035    181     265                     \r\n                   40-        PLOTEL  1036    265     349             1037    349     433                     \r\n                   41-        PLOTEL  1038    433     517             1039    517     601                     \r\n                   42-        PLOTEL  1040    601     685             1041    685     769                     \r\n                   43-        PLOTEL  1042    769     853             1043    857     773                     \r\n                   44-        PLOTEL  1044    773     689             1045    689     605                     \r\n                   45-        PLOTEL  1046    605     521             1047    521     437                     \r\n                   46-        PLOTEL  1048    437     353             1049    353     269                     \r\n                   47-        PLOTEL  1050    269     185             1051    185     101                     \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        PLOTEL  1052    101     17              1053    105     101                     \r\n                   49-        PLOTEL  1054    101     97              1055    97      93                      \r\n                   50-        PLOTEL  1056    93      89              1057    89      85                      \r\n                   51-        PLOTEL  1058    169     173             1059    173     177                     \r\n                   52-        PLOTEL  1060    177     181             1061    181     185                     \r\n                   53-        PLOTEL  1062    185     189             1063    273     269                     \r\n                   54-        PLOTEL  1064    269     265             1065    265     261                     \r\n                   55-        PLOTEL  1066    261     257             1067    257     253                     \r\n                   56-        PLOTEL  1068    337     341             1069    341     345                     \r\n                   57-        PLOTEL  1070    345     349             1071    349     353                     \r\n                   58-        PLOTEL  1072    353     357             1073    441     437                     \r\n                   59-        PLOTEL  1074    437     433             1075    433     429                     \r\n                   60-        PLOTEL  1076    429     425             1077    425     421                     \r\n                   61-        PLOTEL  1078    505     509             1079    509     513                     \r\n                   62-        PLOTEL  1080    513     517             1081    517     521                     \r\n                   63-        PLOTEL  1082    521     525             1083    609     605                     \r\n                   64-        PLOTEL  1084    605     601             1085    601     597                     \r\n                   65-        PLOTEL  1086    597     593             1087    593     589                     \r\n                   66-        PLOTEL  1088    673     677             1089    677     681                     \r\n                   67-        PLOTEL  1090    681     685             1091    685     689                     \r\n                   68-        PLOTEL  1092    689     693             1093    777     773                     \r\n                   69-        PLOTEL  1094    773     769             1095    769     765                     \r\n                   70-        PLOTEL  1096    765     761             1097    761     757                     \r\n                   71-        PQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n                   72-        +PQUAD1 .5      .0                                                              \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED -\r\n\r\n           101\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                              \r\n\r\n       1  EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     104  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                           20      40 5.0E-01 5.0E-01     126 0.0E+00 0.0E+00\r\n                           35       5      35      34       0       0\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN     10  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =      421\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  4.12087860D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.06043930D+05 *\r\n                *  0.00000000D+00  0.00000000D+00  4.12087860D+04  0.00000000D+00 -2.06043930D+05  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.37534323D+06  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -2.06043930D+05  0.00000000D+00  1.37534323D+06  0.00000000D+00 *\r\n                *  0.00000000D+00  2.06043930D+05  0.00000000D+00  0.00000000D+00  0.00000000D+00  2.75068647D+06 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            4.120878601D+04      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Z            4.120878601D+04      5.000000000D+00  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.375343233D+06  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.451235828D+05  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.720466816D+06  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.375343233D+06                                    *\r\n                                      *                   3.451235828D+05                   *\r\n                                      *                                    1.720466816D+06  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n                        0 ROOTS BELOW   2.988121E+01\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST    4 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 2392\r\n       11 MORE ACCURATE EIGENSOLUTIONS THAN THE    1 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        12\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        11\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        3.244568E+01        5.696111E+00        9.065642E-01        1.030220E+04        3.342617E+05             \r\n        2         2        2.027587E+02        1.423934E+01        2.266261E+00        1.030220E+04        2.088860E+06             \r\n        3         3        8.115621E+02        2.848793E+01        4.533995E+00        8.189160E+03        6.646012E+06             \r\n        4         4        1.366727E+03        3.696928E+01        5.883843E+00        1.030219E+04        1.408029E+07             \r\n        5         5        2.348062E+03        4.845681E+01        7.712141E+00        1.030036E+04        2.418588E+07             \r\n        6         6        2.612754E+03        5.111510E+01        8.135221E+00        1.030422E+04        2.692239E+07             \r\n        7         7        5.204400E+03        7.214153E+01        1.148168E+01        5.735026E+03        2.984737E+07             \r\n        8         8        5.691458E+03        7.544175E+01        1.200693E+01        4.943446E+03        2.813541E+07             \r\n        9         9        8.226828E+03        9.070187E+01        1.443565E+01        4.861241E+03        3.999260E+07             \r\n       10        10        1.356558E+04        1.164714E+02        1.853699E+01        2.892032E+03        3.923209E+07             \r\n       11        11        2.680833E+04        1.637325E+02        2.605883E+01        1.446632E+03        3.878178E+07             \r\n       12        12        1.193688E+05        3.454980E+02        5.498771E+01        2.624833E+02        3.133233E+07             \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.570447E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.565606E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            1.551112E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.527056E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.493584E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            1.450904E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.399279E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            1.339026E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            1.270518E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            1.194177E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            1.110474E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.019924E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            9.230857E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            8.205564E-02   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            7.129681E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            6.009841E-02   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            4.852949E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.666136E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.456721E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            1.232159E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            2.334453E-01   1.527056E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            2.327257E-01   1.522348E-01   2.876417E-03   0.0                           \r\n            66      G      0.0            0.0            2.305713E-01   1.508255E-01   5.735101E-03   0.0                           \r\n            67      G      0.0            0.0            2.269952E-01   1.484863E-01   8.558425E-03   0.0                           \r\n            68      G      0.0            0.0            2.220197E-01   1.452316E-01   1.132898E-02   0.0                           \r\n            69      G      0.0            0.0            2.156754E-01   1.410815E-01   1.402970E-02   0.0                           \r\n            70      G      0.0            0.0            2.080013E-01   1.360617E-01   1.664391E-02   0.0                           \r\n            71      G      0.0            0.0            1.990449E-01   1.302029E-01   1.915551E-02   0.0                           \r\n            72      G      0.0            0.0            1.888613E-01   1.235414E-01   2.154901E-02   0.0                           \r\n            73      G      0.0            0.0            1.775132E-01   1.161182E-01   2.380965E-02   0.0                           \r\n            74      G      0.0            0.0            1.650708E-01   1.079791E-01   2.592350E-02   0.0                           \r\n            75      G      0.0            0.0            1.516106E-01   9.917433E-02   2.787752E-02   0.0                           \r\n            76      G      0.0            0.0            1.372157E-01   8.975808E-02   2.965966E-02   0.0                           \r\n            77      G      0.0            0.0            1.219749E-01   7.978844E-02   3.125895E-02   0.0                           \r\n            78      G      0.0            0.0            1.059820E-01   6.932688E-02   3.266551E-02   0.0                           \r\n            79      G      0.0            0.0            8.933567E-02   5.843789E-02   3.387068E-02   0.0                           \r\n            80      G      0.0            0.0            7.213859E-02   4.718861E-02   3.486703E-02   0.0                           \r\n            81      G      0.0            0.0            5.449674E-02   3.564841E-02   3.564841E-02   0.0                           \r\n            82      G      0.0            0.0            3.651890E-02   2.388841E-02   3.621000E-02   0.0                           \r\n            83      G      0.0            0.0            1.831591E-02   1.198114E-02   3.654835E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.666136E-02   0.0                           \r\n           127      G      0.0            0.0            4.539905E-01   1.399279E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            4.525910E-01   1.394965E-01   5.593883E-03   0.0                           \r\n           129      G      0.0            0.0            4.484011E-01   1.382051E-01   1.115328E-02   0.0                           \r\n           130      G      0.0            0.0            4.414467E-01   1.360617E-01   1.664391E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            4.317706E-01   1.330793E-01   2.203193E-02   0.0                           \r\n           132      G      0.0            0.0            4.194325E-01   1.292765E-01   2.728411E-02   0.0                           \r\n           133      G      0.0            0.0            4.045085E-01   1.246767E-01   3.236808E-02   0.0                           \r\n           134      G      0.0            0.0            3.870905E-01   1.193081E-01   3.725248E-02   0.0                           \r\n           135      G      0.0            0.0            3.672860E-01   1.132040E-01   4.190721E-02   0.0                           \r\n           136      G      0.0            0.0            3.452171E-01   1.064020E-01   4.630358E-02   0.0                           \r\n           137      G      0.0            0.0            3.210197E-01   9.894395E-02   5.041446E-02   0.0                           \r\n           138      G      0.0            0.0            2.948432E-01   9.087589E-02   5.421452E-02   0.0                           \r\n           139      G      0.0            0.0            2.668489E-01   8.224754E-02   5.768033E-02   0.0                           \r\n           140      G      0.0            0.0            2.372094E-01   7.311212E-02   6.079053E-02   0.0                           \r\n           141      G      0.0            0.0            2.061074E-01   6.352592E-02   6.352592E-02   0.0                           \r\n           142      G      0.0            0.0            1.737346E-01   5.354808E-02   6.586967E-02   0.0                           \r\n           143      G      0.0            0.0            1.402908E-01   4.324009E-02   6.780729E-02   0.0                           \r\n           144      G      0.0            0.0            1.059820E-01   3.266551E-02   6.932688E-02   0.0                           \r\n           145      G      0.0            0.0            7.101975E-02   2.188954E-02   7.041903E-02   0.0                           \r\n           146      G      0.0            0.0            3.561968E-02   1.097861E-02   7.107703E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            7.129681E-02   0.0                           \r\n           190      G      0.0            0.0            6.494480E-01   1.194177E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            6.474460E-01   1.190496E-01   8.002231E-03   0.0                           \r\n           192      G      0.0            0.0            6.414523E-01   1.179475E-01   1.595512E-02   0.0                           \r\n           193      G      0.0            0.0            6.315037E-01   1.161182E-01   2.380965E-02   0.0                           \r\n           194      G      0.0            0.0            6.176618E-01   1.135730E-01   3.151738E-02   0.0                           \r\n           195      G      0.0            0.0            6.000117E-01   1.103276E-01   3.903080E-02   0.0                           \r\n           196      G      0.0            0.0            5.786625E-01   1.064020E-01   4.630358E-02   0.0                           \r\n           197      G      0.0            0.0            5.537454E-01   1.018204E-01   5.329088E-02   0.0                           \r\n           198      G      0.0            0.0            5.254145E-01   9.661099E-02   5.994962E-02   0.0                           \r\n           199      G      0.0            0.0            4.938442E-01   9.080596E-02   6.623876E-02   0.0                           \r\n           200      G      0.0            0.0            4.592291E-01   8.444110E-02   7.211950E-02   0.0                           \r\n           201      G      0.0            0.0            4.217827E-01   7.755562E-02   7.755562E-02   0.0                           \r\n           202      G      0.0            0.0            3.817360E-01   7.019199E-02   8.251358E-02   0.0                           \r\n           203      G      0.0            0.0            3.393357E-01   6.239560E-02   8.696281E-02   0.0                           \r\n           204      G      0.0            0.0            2.948432E-01   5.421452E-02   9.087589E-02   0.0                           \r\n           205      G      0.0            0.0            2.485330E-01   4.569919E-02   9.422868E-02   0.0                           \r\n           206      G      0.0            0.0            2.006905E-01   3.690211E-02   9.700052E-02   0.0                           \r\n           207      G      0.0            0.0            1.516106E-01   2.787752E-02   9.917433E-02   0.0                           \r\n           208      G      0.0            0.0            1.015960E-01   1.868105E-02   1.007367E-01   0.0                           \r\n           209      G      0.0            0.0            5.095510E-02   9.369408E-03   1.016780E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.019924E-01   0.0                           \r\n           253      G      0.0            0.0            8.090169E-01   9.230857E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            8.065231E-01   9.202401E-02   9.968373E-03   0.0                           \r\n           255      G      0.0            0.0            7.990566E-01   9.117210E-02   1.987529E-02   0.0                           \r\n           256      G      0.0            0.0            7.866638E-01   8.975808E-02   2.965966E-02   0.0                           \r\n           257      G      0.0            0.0            7.694209E-01   8.779067E-02   3.926118E-02   0.0                           \r\n           258      G      0.0            0.0            7.474342E-01   8.528200E-02   4.862064E-02   0.0                           \r\n           259      G      0.0            0.0            7.208394E-01   8.224754E-02   5.768033E-02   0.0                           \r\n           260      G      0.0            0.0            6.898004E-01   7.870600E-02   6.638441E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            6.545085E-01   7.467920E-02   7.467920E-02   0.0                           \r\n           262      G      0.0            0.0            6.151813E-01   7.019199E-02   8.251358E-02   0.0                           \r\n           263      G      0.0            0.0            5.720614E-01   6.527202E-02   8.983923E-02   0.0                           \r\n           264      G      0.0            0.0            5.254145E-01   5.994962E-02   9.661099E-02   0.0                           \r\n           265      G      0.0            0.0            4.755282E-01   5.425762E-02   1.027871E-01   0.0                           \r\n           266      G      0.0            0.0            4.227102E-01   4.823110E-02   1.083295E-01   0.0                           \r\n           267      G      0.0            0.0            3.672860E-01   4.190721E-02   1.132040E-01   0.0                           \r\n           268      G      0.0            0.0            3.095974E-01   3.532496E-02   1.173806E-01   0.0                           \r\n           269      G      0.0            0.0            2.500000E-01   2.852492E-02   1.208335E-01   0.0                           \r\n           270      G      0.0            0.0            1.888613E-01   2.154901E-02   1.235414E-01   0.0                           \r\n           271      G      0.0            0.0            1.265581E-01   1.444024E-02   1.254876E-01   0.0                           \r\n           272      G      0.0            0.0            6.347474E-02   7.242447E-03   1.266602E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.270518E-01   0.0                           \r\n           316      G      0.0            0.0            9.238795E-01   6.009841E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            9.210315E-01   5.991315E-02   1.138366E-02   0.0                           \r\n           318      G      0.0            0.0            9.125050E-01   5.935850E-02   2.269714E-02   0.0                           \r\n           319      G      0.0            0.0            8.983526E-01   5.843789E-02   3.387068E-02   0.0                           \r\n           320      G      0.0            0.0            8.786616E-01   5.715698E-02   4.483540E-02   0.0                           \r\n           321      G      0.0            0.0            8.535533E-01   5.552369E-02   5.552369E-02   0.0                           \r\n           322      G      0.0            0.0            8.231826E-01   5.354808E-02   6.586967E-02   0.0                           \r\n           323      G      0.0            0.0            7.877368E-01   5.124233E-02   7.580953E-02   0.0                           \r\n           324      G      0.0            0.0            7.474342E-01   4.862064E-02   8.528200E-02   0.0                           \r\n           325      G      0.0            0.0            7.025235E-01   4.569919E-02   9.422868E-02   0.0                           \r\n           326      G      0.0            0.0            6.532815E-01   4.249600E-02   1.025944E-01   0.0                           \r\n           327      G      0.0            0.0            6.000117E-01   3.903080E-02   1.103276E-01   0.0                           \r\n           328      G      0.0            0.0            5.430427E-01   3.532496E-02   1.173806E-01   0.0                           \r\n           329      G      0.0            0.0            4.827257E-01   3.140134E-02   1.237099E-01   0.0                           \r\n           330      G      0.0            0.0            4.194325E-01   2.728411E-02   1.292765E-01   0.0                           \r\n           331      G      0.0            0.0            3.535534E-01   2.299867E-02   1.340461E-01   0.0                           \r\n           332      G      0.0            0.0            2.854944E-01   1.857143E-02   1.379892E-01   0.0                           \r\n           333      G      0.0            0.0            2.156754E-01   1.402970E-02   1.410815E-01   0.0                           \r\n           334      G      0.0            0.0            1.445266E-01   9.401463E-03   1.433041E-01   0.0                           \r\n           335      G      0.0            0.0            7.248675E-02   4.715267E-03   1.446431E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.450904E-01   0.0                           \r\n           379      G      0.0            0.0            9.876884E-01   2.456721E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            9.846436E-01   2.449147E-02   1.216989E-02   0.0                           \r\n           381      G      0.0            0.0            9.755282E-01   2.426475E-02   2.426475E-02   0.0                           \r\n           382      G      0.0            0.0            9.603984E-01   2.388841E-02   3.621000E-02   0.0                           \r\n           383      G      0.0            0.0            9.393474E-01   2.336480E-02   4.793201E-02   0.0                           \r\n           384      G      0.0            0.0            9.125050E-01   2.269714E-02   5.935850E-02   0.0                           \r\n           385      G      0.0            0.0            8.800368E-01   2.188954E-02   7.041903E-02   0.0                           \r\n           386      G      0.0            0.0            8.421427E-01   2.094699E-02   8.104540E-02   0.0                           \r\n           387      G      0.0            0.0            7.990566E-01   1.987529E-02   9.117210E-02   0.0                           \r\n           388      G      0.0            0.0            7.510441E-01   1.868105E-02   1.007367E-01   0.0                           \r\n           389      G      0.0            0.0            6.984011E-01   1.737164E-02   1.096802E-01   0.0                           \r\n           390      G      0.0            0.0            6.414523E-01   1.595512E-02   1.179475E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            5.805486E-01   1.444024E-02   1.254876E-01   0.0                           \r\n           392      G      0.0            0.0            5.160657E-01   1.283633E-02   1.322541E-01   0.0                           \r\n           393      G      0.0            0.0            4.484011E-01   1.115328E-02   1.382051E-01   0.0                           \r\n           394      G      0.0            0.0            3.779719E-01   9.401463E-03   1.433041E-01   0.0                           \r\n           395      G      0.0            0.0            3.052125E-01   7.591685E-03   1.475196E-01   0.0                           \r\n           396      G      0.0            0.0            2.305713E-01   5.735101E-03   1.508255E-01   0.0                           \r\n           397      G      0.0            0.0            1.545085E-01   3.843158E-03   1.532016E-01   0.0                           \r\n           398      G      0.0            0.0            7.749313E-02   1.927521E-03   1.546331E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            1.551112E-01   0.0                           \r\n           442      G      0.0            0.0            9.969173E-01  -1.232159E-02   0.0            0.0                           \r\n           443      G      0.0            0.0            9.938442E-01  -1.228360E-02   1.228360E-02   0.0                           \r\n           444      G      0.0            0.0            9.846436E-01  -1.216989E-02   2.449147E-02   0.0                           \r\n           445      G      0.0            0.0            9.693724E-01  -1.198114E-02   3.654835E-02   0.0                           \r\n           446      G      0.0            0.0            9.481246E-01  -1.171853E-02   4.837989E-02   0.0                           \r\n           447      G      0.0            0.0            9.210315E-01  -1.138366E-02   5.991315E-02   0.0                           \r\n           448      G      0.0            0.0            8.882598E-01  -1.097861E-02   7.107703E-02   0.0                           \r\n           449      G      0.0            0.0            8.500117E-01  -1.050588E-02   8.180269E-02   0.0                           \r\n           450      G      0.0            0.0            8.065231E-01  -9.968373E-03   9.202401E-02   0.0                           \r\n           451      G      0.0            0.0            7.580619E-01  -9.369408E-03   1.016780E-01   0.0                           \r\n           452      G      0.0            0.0            7.049270E-01  -8.712677E-03   1.107051E-01   0.0                           \r\n           453      G      0.0            0.0            6.474460E-01  -8.002231E-03   1.190496E-01   0.0                           \r\n           454      G      0.0            0.0            5.859733E-01  -7.242447E-03   1.266602E-01   0.0                           \r\n           455      G      0.0            0.0            5.208879E-01  -6.438011E-03   1.334899E-01   0.0                           \r\n           456      G      0.0            0.0            4.525910E-01  -5.593883E-03   1.394965E-01   0.0                           \r\n           457      G      0.0            0.0            3.815037E-01  -4.715267E-03   1.446431E-01   0.0                           \r\n           458      G      0.0            0.0            3.080644E-01  -3.807580E-03   1.488980E-01   0.0                           \r\n           459      G      0.0            0.0            2.327257E-01  -2.876417E-03   1.522348E-01   0.0                           \r\n           460      G      0.0            0.0            1.559522E-01  -1.927521E-03   1.546331E-01   0.0                           \r\n           461      G      0.0            0.0            7.821723E-02  -9.667405E-04   1.560780E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            1.565606E-01   0.0                           \r\n           505      G      0.0            0.0            9.510565E-01  -4.852949E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            9.481246E-01  -4.837989E-02   1.171853E-02   0.0                           \r\n           507      G      0.0            0.0            9.393474E-01  -4.793201E-02   2.336480E-02   0.0                           \r\n           508      G      0.0            0.0            9.247788E-01  -4.718861E-02   3.486703E-02   0.0                           \r\n           509      G      0.0            0.0            9.045085E-01  -4.615429E-02   4.615429E-02   0.0                           \r\n           510      G      0.0            0.0            8.786616E-01  -4.483540E-02   5.715698E-02   0.0                           \r\n           511      G      0.0            0.0            8.473975E-01  -4.324009E-02   6.780729E-02   0.0                           \r\n           512      G      0.0            0.0            8.109089E-01  -4.137819E-02   7.803955E-02   0.0                           \r\n           513      G      0.0            0.0            7.694209E-01  -3.926118E-02   8.779067E-02   0.0                           \r\n           514      G      0.0            0.0            7.231890E-01  -3.690211E-02   9.700052E-02   0.0                           \r\n           515      G      0.0            0.0            6.724985E-01  -3.431553E-02   1.056123E-01   0.0                           \r\n           516      G      0.0            0.0            6.176618E-01  -3.151738E-02   1.135730E-01   0.0                           \r\n           517      G      0.0            0.0            5.590169E-01  -2.852492E-02   1.208335E-01   0.0                           \r\n           518      G      0.0            0.0            4.969256E-01  -2.535659E-02   1.273490E-01   0.0                           \r\n           519      G      0.0            0.0            4.317706E-01  -2.203193E-02   1.330793E-01   0.0                           \r\n           520      G      0.0            0.0            3.639536E-01  -1.857143E-02   1.379892E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            2.938926E-01  -1.499644E-02   1.420483E-01   0.0                           \r\n           522      G      0.0            0.0            2.220197E-01  -1.132898E-02   1.452316E-01   0.0                           \r\n           523      G      0.0            0.0            1.487780E-01  -7.591685E-03   1.475196E-01   0.0                           \r\n           524      G      0.0            0.0            7.461903E-02  -3.807580E-03   1.488980E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            1.493584E-01   0.0                           \r\n           568      G      0.0            0.0            8.526402E-01  -8.205564E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            8.500117E-01  -8.180269E-02   1.050588E-02   0.0                           \r\n           570      G      0.0            0.0            8.421427E-01  -8.104540E-02   2.094699E-02   0.0                           \r\n           571      G      0.0            0.0            8.290817E-01  -7.978844E-02   3.125895E-02   0.0                           \r\n           572      G      0.0            0.0            8.109089E-01  -7.803955E-02   4.137819E-02   0.0                           \r\n           573      G      0.0            0.0            7.877368E-01  -7.580953E-02   5.124233E-02   0.0                           \r\n           574      G      0.0            0.0            7.597079E-01  -7.311212E-02   6.079053E-02   0.0                           \r\n           575      G      0.0            0.0            7.269952E-01  -6.996394E-02   6.996394E-02   0.0                           \r\n           576      G      0.0            0.0            6.898004E-01  -6.638441E-02   7.870600E-02   0.0                           \r\n           577      G      0.0            0.0            6.483527E-01  -6.239560E-02   8.696281E-02   0.0                           \r\n           578      G      0.0            0.0            6.029076E-01  -5.802210E-02   9.468347E-02   0.0                           \r\n           579      G      0.0            0.0            5.537454E-01  -5.329088E-02   1.018204E-01   0.0                           \r\n           580      G      0.0            0.0            5.011693E-01  -4.823110E-02   1.083295E-01   0.0                           \r\n           581      G      0.0            0.0            4.455032E-01  -4.287396E-02   1.141708E-01   0.0                           \r\n           582      G      0.0            0.0            3.870905E-01  -3.725248E-02   1.193081E-01   0.0                           \r\n           583      G      0.0            0.0            3.262913E-01  -3.140134E-02   1.237099E-01   0.0                           \r\n           584      G      0.0            0.0            2.634803E-01  -2.535659E-02   1.273490E-01   0.0                           \r\n           585      G      0.0            0.0            1.990449E-01  -1.915551E-02   1.302029E-01   0.0                           \r\n           586      G      0.0            0.0            1.333823E-01  -1.283633E-02   1.322541E-01   0.0                           \r\n           587      G      0.0            0.0            6.689738E-02  -6.438011E-03   1.334899E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            1.339026E-01   0.0                           \r\n           631      G      0.0            0.0            7.071067E-01  -1.110474E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            7.049270E-01  -1.107051E-01   8.712677E-03   0.0                           \r\n           633      G      0.0            0.0            6.984011E-01  -1.096802E-01   1.737164E-02   0.0                           \r\n           634      G      0.0            0.0            6.875693E-01  -1.079791E-01   2.592350E-02   0.0                           \r\n           635      G      0.0            0.0            6.724985E-01  -1.056123E-01   3.431553E-02   0.0                           \r\n           636      G      0.0            0.0            6.532815E-01  -1.025944E-01   4.249600E-02   0.0                           \r\n           637      G      0.0            0.0            6.300367E-01  -9.894395E-02   5.041446E-02   0.0                           \r\n           638      G      0.0            0.0            6.029076E-01  -9.468347E-02   5.802210E-02   0.0                           \r\n           639      G      0.0            0.0            5.720614E-01  -8.983923E-02   6.527202E-02   0.0                           \r\n           640      G      0.0            0.0            5.376882E-01  -8.444110E-02   7.211950E-02   0.0                           \r\n           641      G      0.0            0.0            5.000000E-01  -7.852236E-02   7.852236E-02   0.0                           \r\n           642      G      0.0            0.0            4.592291E-01  -7.211950E-02   8.444110E-02   0.0                           \r\n           643      G      0.0            0.0            4.156269E-01  -6.527202E-02   8.983923E-02   0.0                           \r\n           644      G      0.0            0.0            3.694623E-01  -5.802210E-02   9.468347E-02   0.0                           \r\n           645      G      0.0            0.0            3.210197E-01  -5.041446E-02   9.894395E-02   0.0                           \r\n           646      G      0.0            0.0            2.705980E-01  -4.249600E-02   1.025944E-01   0.0                           \r\n           647      G      0.0            0.0            2.185080E-01  -3.431553E-02   1.056123E-01   0.0                           \r\n           648      G      0.0            0.0            1.650708E-01  -2.592350E-02   1.079791E-01   0.0                           \r\n           649      G      0.0            0.0            1.106159E-01  -1.737164E-02   1.096802E-01   0.0                           \r\n           650      G      0.0            0.0            5.547896E-02  -8.712677E-03   1.107051E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.110474E-01   0.0                           \r\n           694      G      0.0            0.0            5.224985E-01  -1.339026E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            5.208879E-01  -1.334899E-01   6.438011E-03   0.0                           \r\n           696      G      0.0            0.0            5.160657E-01  -1.322541E-01   1.283633E-02   0.0                           \r\n           697      G      0.0            0.0            5.080619E-01  -1.302029E-01   1.915551E-02   0.0                           \r\n           698      G      0.0            0.0            4.969256E-01  -1.273490E-01   2.535659E-02   0.0                           \r\n           699      G      0.0            0.0            4.827257E-01  -1.237099E-01   3.140134E-02   0.0                           \r\n           700      G      0.0            0.0            4.655496E-01  -1.193081E-01   3.725248E-02   0.0                           \r\n           701      G      0.0            0.0            4.455032E-01  -1.141708E-01   4.287396E-02   0.0                           \r\n           702      G      0.0            0.0            4.227102E-01  -1.083295E-01   4.823110E-02   0.0                           \r\n           703      G      0.0            0.0            3.973110E-01  -1.018204E-01   5.329088E-02   0.0                           \r\n           704      G      0.0            0.0            3.694623E-01  -9.468347E-02   5.802210E-02   0.0                           \r\n           705      G      0.0            0.0            3.393357E-01  -8.696281E-02   6.239560E-02   0.0                           \r\n           706      G      0.0            0.0            3.071170E-01  -7.870600E-02   6.638441E-02   0.0                           \r\n           707      G      0.0            0.0            2.730047E-01  -6.996394E-02   6.996394E-02   0.0                           \r\n           708      G      0.0            0.0            2.372094E-01  -6.079053E-02   7.311212E-02   0.0                           \r\n           709      G      0.0            0.0            1.999515E-01  -5.124233E-02   7.580953E-02   0.0                           \r\n           710      G      0.0            0.0            1.614609E-01  -4.137819E-02   7.803955E-02   0.0                           \r\n           711      G      0.0            0.0            1.219749E-01  -3.125895E-02   7.978844E-02   0.0                           \r\n           712      G      0.0            0.0            8.173678E-02  -2.094699E-02   8.104540E-02   0.0                           \r\n           713      G      0.0            0.0            4.099476E-02  -1.050588E-02   8.180269E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            8.205564E-02   0.0                           \r\n           757      G      0.0            0.0            3.090170E-01  -1.493584E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            3.080644E-01  -1.488980E-01   3.807580E-03   0.0                           \r\n           759      G      0.0            0.0            3.052125E-01  -1.475196E-01   7.591685E-03   0.0                           \r\n           760      G      0.0            0.0            3.004788E-01  -1.452316E-01   1.132898E-02   0.0                           \r\n           761      G      0.0            0.0            2.938926E-01  -1.420483E-01   1.499644E-02   0.0                           \r\n           762      G      0.0            0.0            2.854944E-01  -1.379892E-01   1.857143E-02   0.0                           \r\n           763      G      0.0            0.0            2.753361E-01  -1.330793E-01   2.203193E-02   0.0                           \r\n           764      G      0.0            0.0            2.634803E-01  -1.273490E-01   2.535659E-02   0.0                           \r\n           765      G      0.0            0.0            2.500000E-01  -1.208335E-01   2.852492E-02   0.0                           \r\n           766      G      0.0            0.0            2.349783E-01  -1.135730E-01   3.151738E-02   0.0                           \r\n           767      G      0.0            0.0            2.185080E-01  -1.056123E-01   3.431553E-02   0.0                           \r\n           768      G      0.0            0.0            2.006905E-01  -9.700052E-02   3.690211E-02   0.0                           \r\n           769      G      0.0            0.0            1.816356E-01  -8.779067E-02   3.926118E-02   0.0                           \r\n           770      G      0.0            0.0            1.614609E-01  -7.803955E-02   4.137819E-02   0.0                           \r\n           771      G      0.0            0.0            1.402908E-01  -6.780729E-02   4.324009E-02   0.0                           \r\n           772      G      0.0            0.0            1.182557E-01  -5.715698E-02   4.483540E-02   0.0                           \r\n           773      G      0.0            0.0            9.549150E-02  -4.615429E-02   4.615429E-02   0.0                           \r\n           774      G      0.0            0.0            7.213859E-02  -3.486703E-02   4.718861E-02   0.0                           \r\n           775      G      0.0            0.0            4.834091E-02  -2.336480E-02   4.793201E-02   0.0                           \r\n           776      G      0.0            0.0            2.424519E-02  -1.171853E-02   4.837989E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.852949E-02   0.0                           \r\n           820      G      0.0            0.0            7.845909E-02  -1.565606E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.821723E-02  -1.560780E-01   9.667405E-04   0.0                           \r\n           822      G      0.0            0.0            7.749313E-02  -1.546331E-01   1.927521E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.324457E+02    (CYCLIC FREQUENCY =  9.065642E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            7.629126E-02  -1.522348E-01   2.876417E-03   0.0                           \r\n           824      G      0.0            0.0            7.461903E-02  -1.488980E-01   3.807580E-03   0.0                           \r\n           825      G      0.0            0.0            7.248675E-02  -1.446431E-01   4.715267E-03   0.0                           \r\n           826      G      0.0            0.0            6.990756E-02  -1.394965E-01   5.593883E-03   0.0                           \r\n           827      G      0.0            0.0            6.689738E-02  -1.334899E-01   6.438011E-03   0.0                           \r\n           828      G      0.0            0.0            6.347474E-02  -1.266602E-01   7.242447E-03   0.0                           \r\n           829      G      0.0            0.0            5.966076E-02  -1.190496E-01   8.002231E-03   0.0                           \r\n           830      G      0.0            0.0            5.547896E-02  -1.107051E-01   8.712677E-03   0.0                           \r\n           831      G      0.0            0.0            5.095510E-02  -1.016780E-01   9.369408E-03   0.0                           \r\n           832      G      0.0            0.0            4.611710E-02  -9.202401E-02   9.968373E-03   0.0                           \r\n           833      G      0.0            0.0            4.099476E-02  -8.180269E-02   1.050588E-02   0.0                           \r\n           834      G      0.0            0.0            3.561968E-02  -7.107703E-02   1.097861E-02   0.0                           \r\n           835      G      0.0            0.0            3.002500E-02  -5.991315E-02   1.138366E-02   0.0                           \r\n           836      G      0.0            0.0            2.424519E-02  -4.837989E-02   1.171853E-02   0.0                           \r\n           837      G      0.0            0.0            1.831591E-02  -3.654835E-02   1.198114E-02   0.0                           \r\n           838      G      0.0            0.0            1.227371E-02  -2.449147E-02   1.216989E-02   0.0                           \r\n           839      G      0.0            0.0            6.155829E-03  -1.228360E-02   1.228360E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.232159E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.570447E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.565606E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -1.551112E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.527056E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.493584E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.450904E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -1.399279E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -1.339026E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -1.270518E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -1.194177E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.110474E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.019924E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -9.230857E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -8.205564E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -7.129681E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -6.009841E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -4.852949E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.666136E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.456721E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.232159E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.142506E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            3.132819E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            3.103817E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.055678E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.988701E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.903297E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            2.799993E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            2.679427E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            2.542341E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.389580E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            2.222087E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.040894E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            1.847119E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            1.641955E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            1.426668E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            1.202585E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            9.710877E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            7.336034E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            4.915962E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            2.465582E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            4.539905E-01   2.799993E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            4.525910E-01   2.791362E-01   5.587314E-03   0.0                           \r\n            66      G      0.0            0.0            4.484011E-01   2.765521E-01   1.114018E-02   0.0                           \r\n            67      G      0.0            0.0            4.414467E-01   2.722629E-01   1.662436E-02   0.0                           \r\n            68      G      0.0            0.0            4.317706E-01   2.662952E-01   2.200605E-02   0.0                           \r\n            69      G      0.0            0.0            4.194325E-01   2.586856E-01   2.725207E-02   0.0                           \r\n            70      G      0.0            0.0            4.045085E-01   2.494812E-01   3.233006E-02   0.0                           \r\n            71      G      0.0            0.0            3.870905E-01   2.387387E-01   3.720873E-02   0.0                           \r\n            72      G      0.0            0.0            3.672860E-01   2.265242E-01   4.185800E-02   0.0                           \r\n            73      G      0.0            0.0            3.452171E-01   2.129132E-01   4.624919E-02   0.0                           \r\n            74      G      0.0            0.0            3.210197E-01   1.979894E-01   5.035525E-02   0.0                           \r\n            75      G      0.0            0.0            2.948432E-01   1.818450E-01   5.415085E-02   0.0                           \r\n            76      G      0.0            0.0            2.668489E-01   1.645795E-01   5.761259E-02   0.0                           \r\n            77      G      0.0            0.0            2.372094E-01   1.462992E-01   6.071913E-02   0.0                           \r\n            78      G      0.0            0.0            2.061074E-01   1.271170E-01   6.345131E-02   0.0                           \r\n            79      G      0.0            0.0            1.737346E-01   1.071511E-01   6.579230E-02   0.0                           \r\n            80      G      0.0            0.0            1.402908E-01   8.652455E-02   6.772766E-02   0.0                           \r\n            81      G      0.0            0.0            1.059820E-01   6.536455E-02   6.924545E-02   0.0                           \r\n            82      G      0.0            0.0            7.101975E-02   4.380155E-02   7.033633E-02   0.0                           \r\n            83      G      0.0            0.0            3.561968E-02   2.196849E-02   7.099355E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            7.121307E-02   0.0                           \r\n           127      G      0.0            0.0            8.090169E-01   1.847119E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            8.065231E-01   1.841425E-01   9.956665E-03   0.0                           \r\n           129      G      0.0            0.0            7.990566E-01   1.824377E-01   1.985195E-02   0.0                           \r\n           130      G      0.0            0.0            7.866638E-01   1.796083E-01   2.962483E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            7.694209E-01   1.756714E-01   3.921507E-02   0.0                           \r\n           132      G      0.0            0.0            7.474342E-01   1.706515E-01   4.856354E-02   0.0                           \r\n           133      G      0.0            0.0            7.208394E-01   1.645795E-01   5.761259E-02   0.0                           \r\n           134      G      0.0            0.0            6.898004E-01   1.574928E-01   6.630644E-02   0.0                           \r\n           135      G      0.0            0.0            6.545085E-01   1.494350E-01   7.459150E-02   0.0                           \r\n           136      G      0.0            0.0            6.151813E-01   1.404560E-01   8.241667E-02   0.0                           \r\n           137      G      0.0            0.0            5.720614E-01   1.306110E-01   8.973371E-02   0.0                           \r\n           138      G      0.0            0.0            5.254145E-01   1.199608E-01   9.649752E-02   0.0                           \r\n           139      G      0.0            0.0            4.755282E-01   1.085709E-01   1.026664E-01   0.0                           \r\n           140      G      0.0            0.0            4.227102E-01   9.651168E-02   1.082023E-01   0.0                           \r\n           141      G      0.0            0.0            3.672860E-01   8.385743E-02   1.130711E-01   0.0                           \r\n           142      G      0.0            0.0            3.095974E-01   7.068617E-02   1.172428E-01   0.0                           \r\n           143      G      0.0            0.0            2.500000E-01   5.707911E-02   1.206916E-01   0.0                           \r\n           144      G      0.0            0.0            1.888613E-01   4.312013E-02   1.233963E-01   0.0                           \r\n           145      G      0.0            0.0            1.265581E-01   2.889530E-02   1.253402E-01   0.0                           \r\n           146      G      0.0            0.0            6.347474E-02   1.449233E-02   1.265114E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            1.269026E-01   0.0                           \r\n           190      G      0.0            0.0            9.876884E-01   4.915962E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            9.846436E-01   4.900808E-02   1.215559E-02   0.0                           \r\n           192      G      0.0            0.0            9.755282E-01   4.855439E-02   2.423625E-02   0.0                           \r\n           193      G      0.0            0.0            9.603984E-01   4.780134E-02   3.616747E-02   0.0                           \r\n           194      G      0.0            0.0            9.393474E-01   4.675358E-02   4.787571E-02   0.0                           \r\n           195      G      0.0            0.0            9.125050E-01   4.541757E-02   5.928879E-02   0.0                           \r\n           196      G      0.0            0.0            8.800368E-01   4.380155E-02   7.033633E-02   0.0                           \r\n           197      G      0.0            0.0            8.421427E-01   4.191547E-02   8.095022E-02   0.0                           \r\n           198      G      0.0            0.0            7.990566E-01   3.977097E-02   9.106503E-02   0.0                           \r\n           199      G      0.0            0.0            7.510441E-01   3.738127E-02   1.006184E-01   0.0                           \r\n           200      G      0.0            0.0            6.984011E-01   3.476110E-02   1.095514E-01   0.0                           \r\n           201      G      0.0            0.0            6.414523E-01   3.192662E-02   1.178090E-01   0.0                           \r\n           202      G      0.0            0.0            5.805486E-01   2.889530E-02   1.253402E-01   0.0                           \r\n           203      G      0.0            0.0            5.160657E-01   2.568583E-02   1.320987E-01   0.0                           \r\n           204      G      0.0            0.0            4.484011E-01   2.231800E-02   1.380428E-01   0.0                           \r\n           205      G      0.0            0.0            3.779719E-01   1.881257E-02   1.431358E-01   0.0                           \r\n           206      G      0.0            0.0            3.052125E-01   1.519116E-02   1.473463E-01   0.0                           \r\n           207      G      0.0            0.0            2.305713E-01   1.147609E-02   1.506484E-01   0.0                           \r\n           208      G      0.0            0.0            1.545085E-01   7.690259E-03   1.530216E-01   0.0                           \r\n           209      G      0.0            0.0            7.749313E-02   3.857020E-03   1.544515E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.549291E-01   0.0                           \r\n           253      G      0.0            0.0            9.510565E-01  -9.710877E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            9.481246E-01  -9.680942E-02   1.170476E-02   0.0                           \r\n           255      G      0.0            0.0            9.393474E-01  -9.591320E-02   2.333736E-02   0.0                           \r\n           256      G      0.0            0.0            9.247788E-01  -9.442565E-02   3.482608E-02   0.0                           \r\n           257      G      0.0            0.0            9.045085E-01  -9.235593E-02   4.610008E-02   0.0                           \r\n           258      G      0.0            0.0            8.786616E-01  -8.971681E-02   5.708986E-02   0.0                           \r\n           259      G      0.0            0.0            8.473975E-01  -8.652455E-02   6.772766E-02   0.0                           \r\n           260      G      0.0            0.0            8.109089E-01  -8.279885E-02   7.794790E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            7.694209E-01  -7.856265E-02   8.768757E-02   0.0                           \r\n           262      G      0.0            0.0            7.231890E-01  -7.384209E-02   9.688661E-02   0.0                           \r\n           263      G      0.0            0.0            6.724985E-01  -6.866627E-02   1.054883E-01   0.0                           \r\n           264      G      0.0            0.0            6.176618E-01  -6.306710E-02   1.134396E-01   0.0                           \r\n           265      G      0.0            0.0            5.590169E-01  -5.707911E-02   1.206916E-01   0.0                           \r\n           266      G      0.0            0.0            4.969256E-01  -5.073919E-02   1.271994E-01   0.0                           \r\n           267      G      0.0            0.0            4.317706E-01  -4.408646E-02   1.329230E-01   0.0                           \r\n           268      G      0.0            0.0            3.639536E-01  -3.716192E-02   1.378271E-01   0.0                           \r\n           269      G      0.0            0.0            2.938926E-01  -3.000826E-02   1.418815E-01   0.0                           \r\n           270      G      0.0            0.0            2.220197E-01  -2.266959E-02   1.450610E-01   0.0                           \r\n           271      G      0.0            0.0            1.487780E-01  -1.519116E-02   1.473463E-01   0.0                           \r\n           272      G      0.0            0.0            7.461903E-02  -7.619066E-03   1.487231E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.491830E-01   0.0                           \r\n           316      G      0.0            0.0            7.071067E-01  -2.222087E-01   0.0            0.0                           \r\n           317      G      0.0            0.0            7.049270E-01  -2.215237E-01   8.702445E-03   0.0                           \r\n           318      G      0.0            0.0            6.984011E-01  -2.194730E-01   1.735124E-02   0.0                           \r\n           319      G      0.0            0.0            6.875693E-01  -2.160691E-01   2.589305E-02   0.0                           \r\n           320      G      0.0            0.0            6.724985E-01  -2.113331E-01   3.427523E-02   0.0                           \r\n           321      G      0.0            0.0            6.532815E-01  -2.052941E-01   4.244608E-02   0.0                           \r\n           322      G      0.0            0.0            6.300367E-01  -1.979894E-01   5.035525E-02   0.0                           \r\n           323      G      0.0            0.0            6.029076E-01  -1.894641E-01   5.795396E-02   0.0                           \r\n           324      G      0.0            0.0            5.720614E-01  -1.797706E-01   6.519536E-02   0.0                           \r\n           325      G      0.0            0.0            5.376882E-01  -1.689688E-01   7.203481E-02   0.0                           \r\n           326      G      0.0            0.0            5.000000E-01  -1.571253E-01   7.843014E-02   0.0                           \r\n           327      G      0.0            0.0            4.592291E-01  -1.443130E-01   8.434192E-02   0.0                           \r\n           328      G      0.0            0.0            4.156269E-01  -1.306110E-01   8.973371E-02   0.0                           \r\n           329      G      0.0            0.0            3.694623E-01  -1.161037E-01   9.457226E-02   0.0                           \r\n           330      G      0.0            0.0            3.210197E-01  -1.008807E-01   9.882774E-02   0.0                           \r\n           331      G      0.0            0.0            2.705980E-01  -8.503560E-02   1.024739E-01   0.0                           \r\n           332      G      0.0            0.0            2.185080E-01  -6.866627E-02   1.054883E-01   0.0                           \r\n           333      G      0.0            0.0            1.650708E-01  -5.187359E-02   1.078523E-01   0.0                           \r\n           334      G      0.0            0.0            1.106159E-01  -3.476110E-02   1.095514E-01   0.0                           \r\n           335      G      0.0            0.0            5.547896E-02  -1.743430E-02   1.105751E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.109170E-01   0.0                           \r\n           379      G      0.0            0.0            3.090170E-01  -2.988701E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            3.080644E-01  -2.979488E-01   3.803108E-03   0.0                           \r\n           381      G      0.0            0.0            3.052125E-01  -2.951905E-01   7.582769E-03   0.0                           \r\n           382      G      0.0            0.0            3.004788E-01  -2.906123E-01   1.131568E-02   0.0                           \r\n           383      G      0.0            0.0            2.938926E-01  -2.842423E-01   1.497882E-02   0.0                           \r\n           384      G      0.0            0.0            2.854944E-01  -2.761199E-01   1.854962E-02   0.0                           \r\n           385      G      0.0            0.0            2.753361E-01  -2.662952E-01   2.200605E-02   0.0                           \r\n           386      G      0.0            0.0            2.634803E-01  -2.548286E-01   2.532681E-02   0.0                           \r\n           387      G      0.0            0.0            2.500000E-01  -2.417910E-01   2.849142E-02   0.0                           \r\n           388      G      0.0            0.0            2.349783E-01  -2.272626E-01   3.148036E-02   0.0                           \r\n           389      G      0.0            0.0            2.185080E-01  -2.113331E-01   3.427523E-02   0.0                           \r\n           390      G      0.0            0.0            2.006905E-01  -1.941006E-01   3.685877E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            1.816356E-01  -1.756714E-01   3.921507E-02   0.0                           \r\n           392      G      0.0            0.0            1.614609E-01  -1.561592E-01   4.132959E-02   0.0                           \r\n           393      G      0.0            0.0            1.402908E-01  -1.356842E-01   4.318931E-02   0.0                           \r\n           394      G      0.0            0.0            1.182557E-01  -1.143726E-01   4.478274E-02   0.0                           \r\n           395      G      0.0            0.0            9.549150E-02  -9.235593E-02   4.610008E-02   0.0                           \r\n           396      G      0.0            0.0            7.213859E-02  -6.976984E-02   4.713319E-02   0.0                           \r\n           397      G      0.0            0.0            4.834091E-02  -4.675358E-02   4.787571E-02   0.0                           \r\n           398      G      0.0            0.0            2.424519E-02  -2.344908E-02   4.832307E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            4.847249E-02   0.0                           \r\n           442      G      0.0            0.0           -1.564345E-01  -3.103817E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -1.559522E-01  -3.094248E-01  -1.925257E-03   0.0                           \r\n           444      G      0.0            0.0           -1.545085E-01  -3.065603E-01  -3.838644E-03   0.0                           \r\n           445      G      0.0            0.0           -1.521122E-01  -3.018058E-01  -5.728365E-03   0.0                           \r\n           446      G      0.0            0.0           -1.487780E-01  -2.951905E-01  -7.582769E-03   0.0                           \r\n           447      G      0.0            0.0           -1.445266E-01  -2.867553E-01  -9.390421E-03   0.0                           \r\n           448      G      0.0            0.0           -1.393841E-01  -2.765521E-01  -1.114018E-02   0.0                           \r\n           449      G      0.0            0.0           -1.333823E-01  -2.646439E-01  -1.282126E-02   0.0                           \r\n           450      G      0.0            0.0           -1.265581E-01  -2.511040E-01  -1.442328E-02   0.0                           \r\n           451      G      0.0            0.0           -1.189537E-01  -2.360161E-01  -1.593639E-02   0.0                           \r\n           452      G      0.0            0.0           -1.106159E-01  -2.194730E-01  -1.735124E-02   0.0                           \r\n           453      G      0.0            0.0           -1.015960E-01  -2.015767E-01  -1.865911E-02   0.0                           \r\n           454      G      0.0            0.0           -9.194987E-02  -1.824377E-01  -1.985195E-02   0.0                           \r\n           455      G      0.0            0.0           -8.173678E-02  -1.621740E-01  -2.092239E-02   0.0                           \r\n           456      G      0.0            0.0           -7.101975E-02  -1.409103E-01  -2.186383E-02   0.0                           \r\n           457      G      0.0            0.0           -5.986487E-02  -1.187779E-01  -2.267048E-02   0.0                           \r\n           458      G      0.0            0.0           -4.834091E-02  -9.591320E-02  -2.333736E-02   0.0                           \r\n           459      G      0.0            0.0           -3.651890E-02  -7.245716E-02  -2.386036E-02   0.0                           \r\n           460      G      0.0            0.0           -2.447174E-02  -4.855439E-02  -2.423625E-02   0.0                           \r\n           461      G      0.0            0.0           -1.227371E-02  -2.435226E-02  -2.446271E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -2.453835E-02   0.0                           \r\n           505      G      0.0            0.0           -5.877852E-01  -2.542341E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -5.859733E-01  -2.534504E-01  -7.233941E-03   0.0                           \r\n           507      G      0.0            0.0           -5.805486E-01  -2.511040E-01  -1.442328E-02   0.0                           \r\n           508      G      0.0            0.0           -5.715447E-01  -2.472095E-01  -2.152370E-02   0.0                           \r\n           509      G      0.0            0.0           -5.590169E-01  -2.417910E-01  -2.849142E-02   0.0                           \r\n           510      G      0.0            0.0           -5.430427E-01  -2.348817E-01  -3.528347E-02   0.0                           \r\n           511      G      0.0            0.0           -5.237205E-01  -2.265242E-01  -4.185800E-02   0.0                           \r\n           512      G      0.0            0.0           -5.011693E-01  -2.167702E-01  -4.817445E-02   0.0                           \r\n           513      G      0.0            0.0           -4.755282E-01  -2.056797E-01  -5.419389E-02   0.0                           \r\n           514      G      0.0            0.0           -4.469554E-01  -1.933211E-01  -5.987921E-02   0.0                           \r\n           515      G      0.0            0.0           -4.156269E-01  -1.797706E-01  -6.519536E-02   0.0                           \r\n           516      G      0.0            0.0           -3.817360E-01  -1.651118E-01  -7.010955E-02   0.0                           \r\n           517      G      0.0            0.0           -3.454915E-01  -1.494350E-01  -7.459150E-02   0.0                           \r\n           518      G      0.0            0.0           -3.071170E-01  -1.328369E-01  -7.861356E-02   0.0                           \r\n           519      G      0.0            0.0           -2.668489E-01  -1.154198E-01  -8.215094E-02   0.0                           \r\n           520      G      0.0            0.0           -2.249357E-01  -9.729116E-02  -8.518184E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.816356E-01  -7.856265E-02  -8.768757E-02   0.0                           \r\n           522      G      0.0            0.0           -1.372157E-01  -5.934976E-02  -8.965266E-02   0.0                           \r\n           523      G      0.0            0.0           -9.194987E-02  -3.977097E-02  -9.106503E-02   0.0                           \r\n           524      G      0.0            0.0           -4.611710E-02  -1.994698E-02  -9.191594E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -9.220016E-02   0.0                           \r\n           568      G      0.0            0.0           -8.910065E-01  -1.426668E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -8.882598E-01  -1.422270E-01  -1.096572E-02   0.0                           \r\n           570      G      0.0            0.0           -8.800368E-01  -1.409103E-01  -2.186383E-02   0.0                           \r\n           571      G      0.0            0.0           -8.663879E-01  -1.387249E-01  -3.262715E-02   0.0                           \r\n           572      G      0.0            0.0           -8.473975E-01  -1.356842E-01  -4.318931E-02   0.0                           \r\n           573      G      0.0            0.0           -8.231826E-01  -1.318069E-01  -5.348519E-02   0.0                           \r\n           574      G      0.0            0.0           -7.938926E-01  -1.271170E-01  -6.345131E-02   0.0                           \r\n           575      G      0.0            0.0           -7.597079E-01  -1.216434E-01  -7.302625E-02   0.0                           \r\n           576      G      0.0            0.0           -7.208394E-01  -1.154198E-01  -8.215094E-02   0.0                           \r\n           577      G      0.0            0.0           -6.775267E-01  -1.084847E-01  -9.076916E-02   0.0                           \r\n           578      G      0.0            0.0           -6.300367E-01  -1.008807E-01  -9.882774E-02   0.0                           \r\n           579      G      0.0            0.0           -5.786625E-01  -9.265467E-02  -1.062770E-01   0.0                           \r\n           580      G      0.0            0.0           -5.237205E-01  -8.385743E-02  -1.130711E-01   0.0                           \r\n           581      G      0.0            0.0           -4.655496E-01  -7.454319E-02  -1.191680E-01   0.0                           \r\n           582      G      0.0            0.0           -4.045085E-01  -6.476936E-02  -1.245302E-01   0.0                           \r\n           583      G      0.0            0.0           -3.409734E-01  -5.459621E-02  -1.291247E-01   0.0                           \r\n           584      G      0.0            0.0           -2.753361E-01  -4.408646E-02  -1.329230E-01   0.0                           \r\n           585      G      0.0            0.0           -2.080013E-01  -3.330490E-02  -1.359019E-01   0.0                           \r\n           586      G      0.0            0.0           -1.393841E-01  -2.231800E-02  -1.380428E-01   0.0                           \r\n           587      G      0.0            0.0           -6.990756E-02  -1.119351E-02  -1.393327E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -1.397635E-01   0.0                           \r\n           631      G      0.0            0.0           -1.000000E+00   1.843938E-14   0.0            0.0                           \r\n           632      G      0.0            0.0           -9.969173E-01   2.052142E-14  -1.230712E-02   0.0                           \r\n           633      G      0.0            0.0           -9.876884E-01   2.527322E-14  -2.453835E-02   0.0                           \r\n           634      G      0.0            0.0           -9.723699E-01   3.124802E-14  -3.661830E-02   0.0                           \r\n           635      G      0.0            0.0           -9.510565E-01   3.976731E-14  -4.847249E-02   0.0                           \r\n           636      G      0.0            0.0           -9.238795E-01   4.826675E-14  -6.002783E-02   0.0                           \r\n           637      G      0.0            0.0           -8.910065E-01   5.288602E-14  -7.121307E-02   0.0                           \r\n           638      G      0.0            0.0           -8.526402E-01   5.211622E-14  -8.195927E-02   0.0                           \r\n           639      G      0.0            0.0           -8.090169E-01   5.295549E-14  -9.220016E-02   0.0                           \r\n           640      G      0.0            0.0           -7.604059E-01   5.080515E-14  -1.018726E-01   0.0                           \r\n           641      G      0.0            0.0           -7.071067E-01   4.868904E-14  -1.109170E-01   0.0                           \r\n           642      G      0.0            0.0           -6.494480E-01   4.662493E-14  -1.192775E-01   0.0                           \r\n           643      G      0.0            0.0           -5.877852E-01   4.690209E-14  -1.269026E-01   0.0                           \r\n           644      G      0.0            0.0           -5.224985E-01   4.472932E-14  -1.337454E-01   0.0                           \r\n           645      G      0.0            0.0           -4.539905E-01   3.909042E-14  -1.397635E-01   0.0                           \r\n           646      G      0.0            0.0           -3.826834E-01   3.528258E-14  -1.449200E-01   0.0                           \r\n           647      G      0.0            0.0           -3.090170E-01   2.851992E-14  -1.491830E-01   0.0                           \r\n           648      G      0.0            0.0           -2.334453E-01   2.089121E-14  -1.525262E-01   0.0                           \r\n           649      G      0.0            0.0           -1.564345E-01   1.325569E-14  -1.549291E-01   0.0                           \r\n           650      G      0.0            0.0           -7.845909E-02   6.875288E-15  -1.563767E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.568603E-01   0.0                           \r\n           694      G      0.0            0.0           -8.910065E-01   1.426668E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -8.882598E-01   1.422270E-01  -1.096572E-02   0.0                           \r\n           696      G      0.0            0.0           -8.800368E-01   1.409103E-01  -2.186383E-02   0.0                           \r\n           697      G      0.0            0.0           -8.663879E-01   1.387249E-01  -3.262715E-02   0.0                           \r\n           698      G      0.0            0.0           -8.473975E-01   1.356842E-01  -4.318931E-02   0.0                           \r\n           699      G      0.0            0.0           -8.231826E-01   1.318069E-01  -5.348519E-02   0.0                           \r\n           700      G      0.0            0.0           -7.938926E-01   1.271170E-01  -6.345131E-02   0.0                           \r\n           701      G      0.0            0.0           -7.597079E-01   1.216434E-01  -7.302625E-02   0.0                           \r\n           702      G      0.0            0.0           -7.208394E-01   1.154198E-01  -8.215094E-02   0.0                           \r\n           703      G      0.0            0.0           -6.775267E-01   1.084847E-01  -9.076916E-02   0.0                           \r\n           704      G      0.0            0.0           -6.300367E-01   1.008807E-01  -9.882774E-02   0.0                           \r\n           705      G      0.0            0.0           -5.786625E-01   9.265467E-02  -1.062770E-01   0.0                           \r\n           706      G      0.0            0.0           -5.237205E-01   8.385743E-02  -1.130711E-01   0.0                           \r\n           707      G      0.0            0.0           -4.655496E-01   7.454319E-02  -1.191680E-01   0.0                           \r\n           708      G      0.0            0.0           -4.045085E-01   6.476936E-02  -1.245302E-01   0.0                           \r\n           709      G      0.0            0.0           -3.409734E-01   5.459621E-02  -1.291247E-01   0.0                           \r\n           710      G      0.0            0.0           -2.753361E-01   4.408646E-02  -1.329230E-01   0.0                           \r\n           711      G      0.0            0.0           -2.080013E-01   3.330490E-02  -1.359019E-01   0.0                           \r\n           712      G      0.0            0.0           -1.393841E-01   2.231800E-02  -1.380428E-01   0.0                           \r\n           713      G      0.0            0.0           -6.990756E-02   1.119351E-02  -1.393327E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -1.397635E-01   0.0                           \r\n           757      G      0.0            0.0           -5.877852E-01   2.542341E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -5.859733E-01   2.534504E-01  -7.233941E-03   0.0                           \r\n           759      G      0.0            0.0           -5.805486E-01   2.511040E-01  -1.442328E-02   0.0                           \r\n           760      G      0.0            0.0           -5.715447E-01   2.472095E-01  -2.152370E-02   0.0                           \r\n           761      G      0.0            0.0           -5.590169E-01   2.417910E-01  -2.849142E-02   0.0                           \r\n           762      G      0.0            0.0           -5.430427E-01   2.348817E-01  -3.528347E-02   0.0                           \r\n           763      G      0.0            0.0           -5.237205E-01   2.265242E-01  -4.185800E-02   0.0                           \r\n           764      G      0.0            0.0           -5.011693E-01   2.167702E-01  -4.817445E-02   0.0                           \r\n           765      G      0.0            0.0           -4.755282E-01   2.056797E-01  -5.419389E-02   0.0                           \r\n           766      G      0.0            0.0           -4.469554E-01   1.933211E-01  -5.987921E-02   0.0                           \r\n           767      G      0.0            0.0           -4.156269E-01   1.797706E-01  -6.519536E-02   0.0                           \r\n           768      G      0.0            0.0           -3.817360E-01   1.651118E-01  -7.010955E-02   0.0                           \r\n           769      G      0.0            0.0           -3.454915E-01   1.494350E-01  -7.459150E-02   0.0                           \r\n           770      G      0.0            0.0           -3.071170E-01   1.328369E-01  -7.861356E-02   0.0                           \r\n           771      G      0.0            0.0           -2.668489E-01   1.154198E-01  -8.215094E-02   0.0                           \r\n           772      G      0.0            0.0           -2.249357E-01   9.729116E-02  -8.518184E-02   0.0                           \r\n           773      G      0.0            0.0           -1.816356E-01   7.856265E-02  -8.768757E-02   0.0                           \r\n           774      G      0.0            0.0           -1.372157E-01   5.934976E-02  -8.965266E-02   0.0                           \r\n           775      G      0.0            0.0           -9.194987E-02   3.977097E-02  -9.106503E-02   0.0                           \r\n           776      G      0.0            0.0           -4.611710E-02   1.994698E-02  -9.191594E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -9.220016E-02   0.0                           \r\n           820      G      0.0            0.0           -1.564345E-01   3.103817E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.559522E-01   3.094248E-01  -1.925257E-03   0.0                           \r\n           822      G      0.0            0.0           -1.545085E-01   3.065603E-01  -3.838644E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.202759E+03    (CYCLIC FREQUENCY =  2.266261E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.521122E-01   3.018058E-01  -5.728365E-03   0.0                           \r\n           824      G      0.0            0.0           -1.487780E-01   2.951905E-01  -7.582769E-03   0.0                           \r\n           825      G      0.0            0.0           -1.445266E-01   2.867553E-01  -9.390421E-03   0.0                           \r\n           826      G      0.0            0.0           -1.393841E-01   2.765521E-01  -1.114018E-02   0.0                           \r\n           827      G      0.0            0.0           -1.333823E-01   2.646439E-01  -1.282126E-02   0.0                           \r\n           828      G      0.0            0.0           -1.265581E-01   2.511040E-01  -1.442328E-02   0.0                           \r\n           829      G      0.0            0.0           -1.189537E-01   2.360161E-01  -1.593639E-02   0.0                           \r\n           830      G      0.0            0.0           -1.106159E-01   2.194730E-01  -1.735124E-02   0.0                           \r\n           831      G      0.0            0.0           -1.015960E-01   2.015767E-01  -1.865911E-02   0.0                           \r\n           832      G      0.0            0.0           -9.194987E-02   1.824377E-01  -1.985195E-02   0.0                           \r\n           833      G      0.0            0.0           -8.173678E-02   1.621740E-01  -2.092239E-02   0.0                           \r\n           834      G      0.0            0.0           -7.101975E-02   1.409103E-01  -2.186383E-02   0.0                           \r\n           835      G      0.0            0.0           -5.986487E-02   1.187779E-01  -2.267048E-02   0.0                           \r\n           836      G      0.0            0.0           -4.834091E-02   9.591320E-02  -2.333736E-02   0.0                           \r\n           837      G      0.0            0.0           -3.651890E-02   7.245716E-02  -2.386036E-02   0.0                           \r\n           838      G      0.0            0.0           -2.447174E-02   4.855439E-02  -2.423625E-02   0.0                           \r\n           839      G      0.0            0.0           -1.227371E-02   2.435226E-02  -2.446271E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -2.453835E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            3.142506E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.132819E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            3.103817E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.055678E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.988701E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            2.903297E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            2.799993E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.679427E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            2.542341E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            2.389580E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            2.222087E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            2.040894E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.847119E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            1.641955E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            1.426668E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            1.202585E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            9.710877E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            7.336034E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            4.915962E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            2.465582E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.434574E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -3.395072E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -3.278406E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -3.090001E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.838571E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -2.535649E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.194964E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.831699E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.461679E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -1.100517E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -7.627862E-02   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -4.612441E-02   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -2.061661E-02   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -4.816158E-04   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            1.389122E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            2.246664E-02   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            2.556080E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            2.381886E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            1.817434E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            9.792359E-03   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -4.862939E-01  -2.861346E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -4.804832E-01  -2.824410E-01  -2.316003E-02   0.0                           \r\n            66      G      0.0            0.0           -4.633254E-01  -2.715382E-01  -4.522758E-02   0.0                           \r\n            67      G      0.0            0.0           -4.356277E-01  -2.539510E-01  -6.516936E-02   0.0                           \r\n            68      G      0.0            0.0           -3.986872E-01  -2.305222E-01  -8.206727E-02   0.0                           \r\n            69      G      0.0            0.0           -3.542200E-01  -2.023670E-01  -9.516796E-02   0.0                           \r\n            70      G      0.0            0.0           -3.042690E-01  -1.708121E-01  -1.039234E-01   0.0                           \r\n            71      G      0.0            0.0           -2.510932E-01  -1.373246E-01  -1.080200E-01   0.0                           \r\n            72      G      0.0            0.0           -1.970459E-01  -1.034315E-01  -1.073950E-01   0.0                           \r\n            73      G      0.0            0.0           -1.444484E-01  -7.063846E-02  -1.022387E-01   0.0                           \r\n            74      G      0.0            0.0           -9.546588E-02  -4.034798E-02  -9.298344E-02   0.0                           \r\n            75      G      0.0            0.0           -5.199227E-02  -1.378493E-02  -8.027823E-02   0.0                           \r\n            76      G      0.0            0.0           -1.555055E-02   8.068576E-03  -6.495246E-02   0.0                           \r\n            77      G      0.0            0.0            1.278596E-02   2.452438E-02  -4.796908E-02   0.0                           \r\n            78      G      0.0            0.0            3.244710E-02   3.522314E-02  -3.037078E-02   0.0                           \r\n            79      G      0.0            0.0            4.339121E-02   4.015079E-02  -1.322164E-02   0.0                           \r\n            80      G      0.0            0.0            4.610107E-02   3.963577E-02   2.452186E-03   0.0                           \r\n            81      G      0.0            0.0            4.155045E-02   3.432714E-02   1.571967E-02   0.0                           \r\n            82      G      0.0            0.0            3.114337E-02   2.515491E-02   2.579675E-02   0.0                           \r\n            83      G      0.0            0.0            1.662946E-02   1.327473E-02   3.209001E-02   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.422963E-02   0.0                           \r\n           127      G      0.0            0.0           -8.140212E-01  -1.402550E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -8.031271E-01  -1.372463E-01  -4.342261E-02   0.0                           \r\n           129      G      0.0            0.0           -7.709749E-01  -1.283811E-01  -8.473059E-02   0.0                           \r\n           130      G      0.0            0.0           -7.191274E-01  -1.141334E-01  -1.219244E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -6.500945E-01  -9.526397E-02  -1.532283E-01   0.0                           \r\n           132      G      0.0            0.0           -5.671965E-01  -7.277851E-02  -1.771870E-01   0.0                           \r\n           133      G      0.0            0.0           -4.743841E-01  -4.787251E-02  -1.927438E-01   0.0                           \r\n           134      G      0.0            0.0           -3.760235E-01  -2.186531E-02  -1.992982E-01   0.0                           \r\n           135      G      0.0            0.0           -2.766604E-01   3.872430E-03  -1.967366E-01   0.0                           \r\n           136      G      0.0            0.0           -1.807737E-01   2.799403E-02  -1.854377E-01   0.0                           \r\n           137      G      0.0            0.0           -9.253468E-02   4.925080E-02  -1.662498E-01   0.0                           \r\n           138      G      0.0            0.0           -1.558313E-02   6.656043E-02  -1.404426E-01   0.0                           \r\n           139      G      0.0            0.0            4.716593E-02   7.906634E-02  -1.096357E-01   0.0                           \r\n           140      G      0.0            0.0            9.367521E-02   8.618432E-02  -7.570810E-02   0.0                           \r\n           141      G      0.0            0.0            1.228889E-01   8.763418E-02  -4.069296E-02   0.0                           \r\n           142      G      0.0            0.0            1.347817E-01   8.345452E-02  -6.664583E-03   0.0                           \r\n           143      G      0.0            0.0            1.303502E-01   7.399991E-02   2.437725E-02   0.0                           \r\n           144      G      0.0            0.0            1.115481E-01   5.992049E-02   5.061849E-02   0.0                           \r\n           145      G      0.0            0.0            8.116721E-02   4.212525E-02   7.053162E-02   0.0                           \r\n           146      G      0.0            0.0            4.267256E-02   2.173105E-02   8.296064E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            8.718519E-02   0.0                           \r\n           190      G      0.0            0.0           -8.964841E-01   2.834066E-02   0.0            0.0                           \r\n           191      G      0.0            0.0           -8.817258E-01   3.045199E-02  -5.882554E-02   0.0                           \r\n           192      G      0.0            0.0           -8.382044E-01   3.665147E-02  -1.146463E-01   0.0                           \r\n           193      G      0.0            0.0           -7.681403E-01   4.654309E-02  -1.646221E-01   0.0                           \r\n           194      G      0.0            0.0           -6.750984E-01   5.949156E-02  -2.062327E-01   0.0                           \r\n           195      G      0.0            0.0           -5.637936E-01   7.465797E-02  -2.374154E-01   0.0                           \r\n           196      G      0.0            0.0           -4.398324E-01   9.104690E-02  -2.566782E-01   0.0                           \r\n           197      G      0.0            0.0           -3.094066E-01   1.075624E-01  -2.631800E-01   0.0                           \r\n           198      G      0.0            0.0           -1.789555E-01   1.230697E-01  -2.567764E-01   0.0                           \r\n           199      G      0.0            0.0           -5.481418E-02   1.364594E-01  -2.380258E-01   0.0                           \r\n           200      G      0.0            0.0            5.713046E-02   1.467101E-01  -2.081577E-01   0.0                           \r\n           201      G      0.0            0.0            1.517596E-01   1.529469E-01  -1.690034E-01   0.0                           \r\n           202      G      0.0            0.0            2.249986E-01   1.544914E-01  -1.228935E-01   0.0                           \r\n           203      G      0.0            0.0            2.740348E-01   1.509011E-01  -7.252867E-02   0.0                           \r\n           204      G      0.0            0.0            2.974658E-01   1.419967E-01  -2.082865E-02   0.0                           \r\n           205      G      0.0            0.0            2.953685E-01   1.278736E-01   2.922929E-02   0.0                           \r\n           206      G      0.0            0.0            2.692866E-01   1.088994E-01   7.477590E-02   0.0                           \r\n           207      G      0.0            0.0            2.221365E-01   8.569624E-02   1.132091E-01   0.0                           \r\n           208      G      0.0            0.0            1.580367E-01   5.910886E-02   1.423382E-01   0.0                           \r\n           209      G      0.0            0.0            8.207148E-02   3.016068E-02   1.605055E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.666782E-01   0.0                           \r\n           253      G      0.0            0.0           -7.565104E-01   1.453848E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -7.392364E-01   1.466362E-01  -6.885403E-02   0.0                           \r\n           255      G      0.0            0.0           -6.883465E-01   1.502888E-01  -1.339923E-01   0.0                           \r\n           256      G      0.0            0.0           -6.065859E-01   1.560434E-01  -1.919039E-01   0.0                           \r\n           257      G      0.0            0.0           -4.983617E-01   1.634207E-01  -2.394760E-01   0.0                           \r\n           258      G      0.0            0.0           -3.694996E-01   1.717884E-01  -2.741657E-01   0.0                           \r\n           259      G      0.0            0.0           -2.269233E-01   1.803978E-01  -2.941398E-01   0.0                           \r\n           260      G      0.0            0.0           -7.827308E-02   1.884266E-01  -2.983755E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            6.851505E-02   1.950272E-01  -2.867164E-01   0.0                           \r\n           262      G      0.0            0.0            2.056461E-01   1.993748E-01  -2.598812E-01   0.0                           \r\n           263      G      0.0            0.0            3.258950E-01   2.007173E-01  -2.194227E-01   0.0                           \r\n           264      G      0.0            0.0            4.230036E-01   1.984187E-01  -1.676422E-01   0.0                           \r\n           265      G      0.0            0.0            4.920239E-01   1.919985E-01  -1.074617E-01   0.0                           \r\n           266      G      0.0            0.0            5.295895E-01   1.811619E-01  -4.226199E-02   0.0                           \r\n           267      G      0.0            0.0            5.340982E-01   1.658196E-01   2.430447E-02   0.0                           \r\n           268      G      0.0            0.0            5.057980E-01   1.460977E-01   8.851557E-02   0.0                           \r\n           269      G      0.0            0.0            4.467703E-01   1.223347E-01   1.467857E-01   0.0                           \r\n           270      G      0.0            0.0            3.608114E-01   9.506755E-02   1.958639E-01   0.0                           \r\n           271      G      0.0            0.0            2.532200E-01   6.500667E-02   2.330139E-01   0.0                           \r\n           272      G      0.0            0.0            1.305004E-01   3.300182E-02   2.561654E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            2.640286E-01   0.0                           \r\n           316      G      0.0            0.0           -5.120698E-01   1.634112E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -4.934279E-01   1.640139E-01  -7.430793E-02   0.0                           \r\n           318      G      0.0            0.0           -4.385600E-01   1.657574E-01  -1.443992E-01   0.0                           \r\n           319      G      0.0            0.0           -3.505810E-01   1.684508E-01  -2.062909E-01   0.0                           \r\n           320      G      0.0            0.0           -2.344904E-01   1.717884E-01  -2.564544E-01   0.0                           \r\n           321      G      0.0            0.0           -9.689493E-02   1.753677E-01  -2.920115E-01   0.0                           \r\n           322      G      0.0            0.0            5.435773E-02   1.787126E-01  -3.108936E-01   0.0                           \r\n           323      G      0.0            0.0            2.106139E-01   1.813020E-01  -3.119569E-01   0.0                           \r\n           324      G      0.0            0.0            3.628939E-01   1.825999E-01  -2.950462E-01   0.0                           \r\n           325      G      0.0            0.0            5.023909E-01   1.820882E-01  -2.610044E-01   0.0                           \r\n           326      G      0.0            0.0            6.209592E-01   1.792975E-01  -2.116256E-01   0.0                           \r\n           327      G      0.0            0.0            7.115679E-01   1.738365E-01  -1.495575E-01   0.0                           \r\n           328      G      0.0            0.0            7.686917E-01   1.654169E-01  -7.815501E-02   0.0                           \r\n           329      G      0.0            0.0            7.886197E-01   1.538726E-01  -1.295412E-03   0.0                           \r\n           330      G      0.0            0.0            7.696641E-01   1.391735E-01   7.683538E-02   0.0                           \r\n           331      G      0.0            0.0            7.122566E-01   1.214305E-01   1.519738E-01   0.0                           \r\n           332      G      0.0            0.0            6.189288E-01   1.008943E-01   2.200140E-01   0.0                           \r\n           333      G      0.0            0.0            4.941760E-01   7.794566E-02   2.772343E-01   0.0                           \r\n           334      G      0.0            0.0            3.442129E-01   5.307919E-02   3.205026E-01   0.0                           \r\n           335      G      0.0            0.0            1.766343E-01   2.688077E-02   3.474495E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            3.565989E-01   0.0                           \r\n           379      G      0.0            0.0           -3.169321E-01   8.402348E-02   0.0            0.0                           \r\n           380      G      0.0            0.0           -2.977132E-01   8.421680E-02  -7.660875E-02   0.0                           \r\n           381      G      0.0            0.0           -2.411831E-01   8.477053E-02  -1.487271E-01   0.0                           \r\n           382      G      0.0            0.0           -1.506587E-01   8.560769E-02  -2.121143E-01   0.0                           \r\n           383      G      0.0            0.0           -3.146302E-02   8.660495E-02  -2.630153E-01   0.0                           \r\n           384      G      0.0            0.0            1.093713E-01   8.760002E-02  -2.983698E-01   0.0                           \r\n           385      G      0.0            0.0            2.634930E-01   8.840118E-02  -3.159827E-01   0.0                           \r\n           386      G      0.0            0.0            4.216975E-01   8.879884E-02  -3.146472E-01   0.0                           \r\n           387      G      0.0            0.0            5.744396E-01   8.857805E-02  -2.942126E-01   0.0                           \r\n           388      G      0.0            0.0            7.123661E-01   8.753160E-02  -2.555944E-01   0.0                           \r\n           389      G      0.0            0.0            8.268377E-01   8.547280E-02  -2.007245E-01   0.0                           \r\n           390      G      0.0            0.0            9.104139E-01   8.224735E-02  -1.324462E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            9.572694E-01   7.774348E-02  -5.435796E-02   0.0                           \r\n           392      G      0.0            0.0            9.635249E-01   7.189991E-02   2.938425E-02   0.0                           \r\n           393      G      0.0            0.0            9.274687E-01   6.471119E-02   1.142958E-01   0.0                           \r\n           394      G      0.0            0.0            8.496597E-01   5.622998E-02   1.958100E-01   0.0                           \r\n           395      G      0.0            0.0            7.329057E-01   4.656632E-02   2.695302E-01   0.0                           \r\n           396      G      0.0            0.0            5.821171E-01   3.588367E-02   3.314716E-01   0.0                           \r\n           397      G      0.0            0.0            4.040452E-01   2.439226E-02   3.782811E-01   0.0                           \r\n           398      G      0.0            0.0            2.069189E-01   1.233976E-02   4.074221E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            4.173147E-01   0.0                           \r\n           442      G      0.0            0.0           -2.849572E-01  -4.343882E-02   0.0            0.0                           \r\n           443      G      0.0            0.0           -2.656664E-01  -4.353178E-02  -7.689546E-02   0.0                           \r\n           444      G      0.0            0.0           -2.089305E-01  -4.379753E-02  -1.492612E-01   0.0                           \r\n           445      G      0.0            0.0           -1.180955E-01  -4.419754E-02  -2.128195E-01   0.0                           \r\n           446      G      0.0            0.0            1.469372E-03  -4.467006E-02  -2.637827E-01   0.0                           \r\n           447      G      0.0            0.0            1.426702E-01  -4.513387E-02  -2.990646E-01   0.0                           \r\n           448      G      0.0            0.0            2.970836E-01  -4.549306E-02  -3.164521E-01   0.0                           \r\n           449      G      0.0            0.0            4.554260E-01  -4.564273E-02  -3.147295E-01   0.0                           \r\n           450      G      0.0            0.0            6.080713E-01  -4.547542E-02  -2.937469E-01   0.0                           \r\n           451      G      0.0            0.0            7.455882E-01  -4.488751E-02  -2.544305E-01   0.0                           \r\n           452      G      0.0            0.0            8.592675E-01  -4.378579E-02  -1.987325E-01   0.0                           \r\n           453      G      0.0            0.0            9.416101E-01  -4.209329E-02  -1.295247E-01   0.0                           \r\n           454      G      0.0            0.0            9.867492E-01  -3.975440E-02  -5.044097E-02   0.0                           \r\n           455      G      0.0            0.0            9.907823E-01  -3.673889E-02   3.432233E-02   0.0                           \r\n           456      G      0.0            0.0            9.519957E-01  -3.304455E-02   1.202371E-01   0.0                           \r\n           457      G      0.0            0.0            8.709685E-01  -2.869834E-02   2.026928E-01   0.0                           \r\n           458      G      0.0            0.0            7.505499E-01  -2.375600E-02   2.772505E-01   0.0                           \r\n           459      G      0.0            0.0            5.957121E-01  -1.830013E-02   3.398872E-01   0.0                           \r\n           460      G      0.0            0.0            4.132859E-01  -1.243677E-02   3.872178E-01   0.0                           \r\n           461      G      0.0            0.0            2.115934E-01  -6.290736E-03   4.166817E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            4.266835E-01   0.0                           \r\n           505      G      0.0            0.0           -4.344109E-01  -1.461679E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.155064E-01  -1.466108E-01  -7.535486E-02   0.0                           \r\n           507      G      0.0            0.0           -3.598802E-01  -1.478875E-01  -1.463761E-01   0.0                           \r\n           508      G      0.0            0.0           -2.707337E-01  -1.498447E-01  -2.089704E-01   0.0                           \r\n           509      G      0.0            0.0           -1.532043E-01  -1.522368E-01  -2.595126E-01   0.0                           \r\n           510      G      0.0            0.0           -1.408118E-02  -1.547408E-01  -2.950462E-01   0.0                           \r\n           511      G      0.0            0.0            1.385727E-01  -1.569747E-01  -3.134486E-01   0.0                           \r\n           512      G      0.0            0.0            2.958679E-01  -1.585203E-01  -3.135487E-01   0.0                           \r\n           513      G      0.0            0.0            4.485826E-01  -1.589483E-01  -2.951930E-01   0.0                           \r\n           514      G      0.0            0.0            5.876757E-01  -1.578441E-01  -2.592546E-01   0.0                           \r\n           515      G      0.0            0.0            7.047899E-01  -1.548331E-01  -2.075863E-01   0.0                           \r\n           516      G      0.0            0.0            7.927177E-01  -1.496039E-01  -1.429187E-01   0.0                           \r\n           517      G      0.0            0.0            8.458043E-01  -1.419286E-01  -6.871017E-02   0.0                           \r\n           518      G      0.0            0.0            8.602650E-01  -1.316786E-01   1.104358E-02   0.0                           \r\n           519      G      0.0            0.0            8.343996E-01  -1.188354E-01   9.202961E-02   0.0                           \r\n           520      G      0.0            0.0            7.686917E-01  -1.034944E-01   1.698555E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            6.657881E-01  -8.586435E-02   2.402917E-01   0.0                           \r\n           522      G      0.0            0.0            5.303583E-01  -6.625918E-02   2.995045E-01   0.0                           \r\n           523      G      0.0            0.0            3.688432E-01  -4.508492E-02   3.442680E-01   0.0                           \r\n           524      G      0.0            0.0            1.891051E-01  -2.282140E-02   3.721415E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            3.816048E-01   0.0                           \r\n           568      G      0.0            0.0           -6.790490E-01  -1.634243E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -6.612080E-01  -1.644313E-01  -7.111418E-02   0.0                           \r\n           570      G      0.0            0.0           -6.086655E-01  -1.673626E-01  -1.383212E-01   0.0                           \r\n           571      G      0.0            0.0           -5.243078E-01  -1.719543E-01  -1.979297E-01   0.0                           \r\n           572      G      0.0            0.0           -4.127683E-01  -1.777836E-01  -2.466679E-01   0.0                           \r\n           573      G      0.0            0.0           -2.801716E-01  -1.842927E-01  -2.818644E-01   0.0                           \r\n           574      G      0.0            0.0           -1.337948E-01  -1.908220E-01  -3.015953E-01   0.0                           \r\n           575      G      0.0            0.0            1.833391E-02  -1.966474E-01  -3.047911E-01   0.0                           \r\n           576      G      0.0            0.0            1.678784E-01  -2.010234E-01  -2.912947E-01   0.0                           \r\n           577      G      0.0            0.0            3.066554E-01  -2.032263E-01  -2.618709E-01   0.0                           \r\n           578      G      0.0            0.0            4.270854E-01  -2.025975E-01  -2.181634E-01   0.0                           \r\n           579      G      0.0            0.0            5.226118E-01  -1.985830E-01  -1.626041E-01   0.0                           \r\n           580      G      0.0            0.0            5.880620E-01  -1.907678E-01  -9.827862E-02   0.0                           \r\n           581      G      0.0            0.0            6.199328E-01  -1.789028E-01  -2.875563E-02   0.0                           \r\n           582      G      0.0            0.0            6.165833E-01  -1.629225E-01   4.211045E-02   0.0                           \r\n           583      G      0.0            0.0            5.783248E-01  -1.429534E-01   1.103925E-01   0.0                           \r\n           584      G      0.0            0.0            5.074030E-01  -1.193113E-01   1.723077E-01   0.0                           \r\n           585      G      0.0            0.0            4.078725E-01  -9.248912E-02   2.244269E-01   0.0                           \r\n           586      G      0.0            0.0            2.853729E-01  -6.313435E-02   2.638637E-01   0.0                           \r\n           587      G      0.0            0.0            1.468152E-01  -3.201857E-02   2.884344E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            2.967786E-01   0.0                           \r\n           631      G      0.0            0.0           -8.702528E-01  -7.627862E-02   0.0            0.0                           \r\n           632      G      0.0            0.0           -8.545104E-01  -7.808807E-02  -6.274831E-02   0.0                           \r\n           633      G      0.0            0.0           -8.081018E-01  -8.339225E-02  -1.222331E-01   0.0                           \r\n           634      G      0.0            0.0           -7.334384E-01  -9.182577E-02  -1.753699E-01   0.0                           \r\n           635      G      0.0            0.0           -6.343916E-01  -1.028026E-01  -2.194227E-01   0.0                           \r\n           636      G      0.0            0.0           -5.160810E-01  -1.155491E-01  -2.521535E-01   0.0                           \r\n           637      G      0.0            0.0           -3.845930E-01  -1.291481E-01  -2.719451E-01   0.0                           \r\n           638      G      0.0            0.0           -2.466479E-01  -1.425906E-01  -2.778892E-01   0.0                           \r\n           639      G      0.0            0.0           -1.092314E-01  -1.548331E-01  -2.698354E-01   0.0                           \r\n           640      G      0.0            0.0            2.078713E-02  -1.648574E-01  -2.483985E-01   0.0                           \r\n           641      G      0.0            0.0            1.370301E-01  -1.717287E-01  -2.149234E-01   0.0                           \r\n           642      G      0.0            0.0            2.339590E-01  -1.746498E-01  -1.714099E-01   0.0                           \r\n           643      G      0.0            0.0            3.071749E-01  -1.730075E-01  -1.204011E-01   0.0                           \r\n           644      G      0.0            0.0            3.536558E-01  -1.664095E-01  -6.484207E-02   0.0                           \r\n           645      G      0.0            0.0            3.719174E-01  -1.547090E-01  -7.916442E-03   0.0                           \r\n           646      G      0.0            0.0            3.620881E-01  -1.380158E-01   4.713031E-02   0.0                           \r\n           647      G      0.0            0.0            3.258950E-01  -1.166938E-01   9.717084E-02   0.0                           \r\n           648      G      0.0            0.0            2.665617E-01  -9.134416E-02   1.393693E-01   0.0                           \r\n           649      G      0.0            0.0            1.886216E-01  -6.277564E-02   1.713383E-01   0.0                           \r\n           650      G      0.0            0.0            9.766058E-02  -3.196365E-02   1.912714E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.980432E-01   0.0                           \r\n           694      G      0.0            0.0           -8.699807E-01   8.272828E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -8.576487E-01   8.000787E-02  -4.915369E-02   0.0                           \r\n           696      G      0.0            0.0           -8.212619E-01   7.199964E-02  -9.587871E-02   0.0                           \r\n           697      G      0.0            0.0           -7.626151E-01   5.915415E-02  -1.378788E-01   0.0                           \r\n           698      G      0.0            0.0           -6.845903E-01   4.219455E-02  -1.731153E-01   0.0                           \r\n           699      G      0.0            0.0           -5.910004E-01   2.207658E-02  -1.999181E-01   0.0                           \r\n           700      G      0.0            0.0           -4.863808E-01  -6.443768E-05  -2.170759E-01   0.0                           \r\n           701      G      0.0            0.0           -3.757433E-01  -2.297640E-02  -2.239020E-01   0.0                           \r\n           702      G      0.0            0.0           -2.643036E-01  -4.535984E-02  -2.202703E-01   0.0                           \r\n           703      G      0.0            0.0           -1.571984E-01  -6.593993E-02  -2.066208E-01   0.0                           \r\n           704      G      0.0            0.0           -5.920846E-02  -8.353714E-02  -1.839337E-01   0.0                           \r\n           705      G      0.0            0.0            2.549912E-02  -9.713273E-02  -1.536741E-01   0.0                           \r\n           706      G      0.0            0.0            9.359326E-02  -1.059253E-01  -1.177094E-01   0.0                           \r\n           707      G      0.0            0.0            1.427547E-01  -1.093753E-01  -7.820532E-02   0.0                           \r\n           708      G      0.0            0.0            1.717951E-01  -1.072355E-01  -3.750463E-02   0.0                           \r\n           709      G      0.0            0.0            1.807136E-01  -9.956436E-02   2.002886E-03   0.0                           \r\n           710      G      0.0            0.0            1.706868E-01  -8.672398E-02   3.801354E-02   0.0                           \r\n           711      G      0.0            0.0            1.439933E-01  -6.935982E-02   6.843778E-02   0.0                           \r\n           712      G      0.0            0.0            1.038775E-01  -4.836575E-02   9.151625E-02   0.0                           \r\n           713      G      0.0            0.0            5.435912E-02  -2.483497E-02   1.059174E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.108118E-01   0.0                           \r\n           757      G      0.0            0.0           -6.194803E-01   2.446695E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -6.118633E-01   2.411653E-01  -3.035975E-02   0.0                           \r\n           759      G      0.0            0.0           -5.893747E-01   2.308263E-01  -5.927518E-02   0.0                           \r\n           760      G      0.0            0.0           -5.530820E-01   2.141637E-01  -8.538034E-02   0.0                           \r\n           761      G      0.0            0.0           -5.046995E-01   1.919985E-01  -1.074617E-01   0.0                           \r\n           762      G      0.0            0.0           -4.464960E-01   1.654169E-01  -1.245239E-01   0.0                           \r\n           763      G      0.0            0.0           -3.811716E-01   1.357106E-01  -1.358431E-01   0.0                           \r\n           764      G      0.0            0.0           -3.117114E-01   1.043073E-01  -1.410059E-01   0.0                           \r\n           765      G      0.0            0.0           -2.412251E-01   7.269240E-02  -1.399307E-01   0.0                           \r\n           766      G      0.0            0.0           -1.727788E-01   4.232891E-02  -1.328713E-01   0.0                           \r\n           767      G      0.0            0.0           -1.092314E-01   1.457814E-02  -1.204011E-01   0.0                           \r\n           768      G      0.0            0.0           -5.308194E-02  -9.373473E-03  -1.033807E-01   0.0                           \r\n           769      G      0.0            0.0           -6.337782E-03  -2.857785E-02  -8.290914E-02   0.0                           \r\n           770      G      0.0            0.0            2.958948E-02  -4.237530E-02  -6.026232E-02   0.0                           \r\n           771      G      0.0            0.0            5.395487E-02  -5.042852E-02  -3.682146E-02   0.0                           \r\n           772      G      0.0            0.0            6.671349E-02  -5.273864E-02  -1.399601E-02   0.0                           \r\n           773      G      0.0            0.0            6.851505E-02  -4.964234E-02   6.854926E-03   0.0                           \r\n           774      G      0.0            0.0            6.065957E-02  -4.179045E-02   2.449828E-02   0.0                           \r\n           775      G      0.0            0.0            4.501688E-02  -3.010900E-02   3.789568E-02   0.0                           \r\n           776      G      0.0            0.0            2.391451E-02  -1.574500E-02   4.626122E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.910517E-02   0.0                           \r\n           820      G      0.0            0.0           -1.706963E-01   3.368591E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.687210E-01   3.329381E-01  -7.873038E-03   0.0                           \r\n           822      G      0.0            0.0           -1.628874E-01   3.213586E-01  -1.537835E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.811562E+03    (CYCLIC FREQUENCY =  4.533995E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.534673E-01   3.026611E-01  -2.216811E-02   0.0                           \r\n           824      G      0.0            0.0           -1.408972E-01   2.777137E-01  -2.793322E-02   0.0                           \r\n           825      G      0.0            0.0           -1.257549E-01   2.476654E-01  -3.241995E-02   0.0                           \r\n           826      G      0.0            0.0           -1.087282E-01   2.138840E-01  -3.544359E-02   0.0                           \r\n           827      G      0.0            0.0           -9.057786E-02   1.778821E-01  -3.689826E-02   0.0                           \r\n           828      G      0.0            0.0           -7.209643E-02   1.412357E-01  -3.676236E-02   0.0                           \r\n           829      G      0.0            0.0           -5.406607E-02   1.055002E-01  -3.509944E-02   0.0                           \r\n           830      G      0.0            0.0           -3.721666E-02   7.212646E-02  -3.205432E-02   0.0                           \r\n           831      G      0.0            0.0           -2.218712E-02   4.238460E-02  -2.784476E-02   0.0                           \r\n           832      G      0.0            0.0           -9.491874E-03   1.729701E-02  -2.274912E-02   0.0                           \r\n           833      G      0.0            0.0            5.055729E-04  -2.414256E-03  -1.709071E-02   0.0                           \r\n           834      G      0.0            0.0            7.610672E-03  -1.636328E-02  -1.121965E-02   0.0                           \r\n           835      G      0.0            0.0            1.180637E-02  -2.451727E-02  -5.493308E-03   0.0                           \r\n           836      G      0.0            0.0            1.325171E-02  -2.719381E-02  -2.563375E-04   0.0                           \r\n           837      G      0.0            0.0            1.227069E-02  -2.503861E-02   4.178542E-03   0.0                           \r\n           838      G      0.0            0.0            9.331815E-03  -1.898488E-02   7.547966E-03   0.0                           \r\n           839      G      0.0            0.0            5.019663E-03  -1.019680E-02   9.652591E-03   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.036820E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            3.434574E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.395072E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            3.278406E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.090001E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.838571E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            2.535649E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            2.194964E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            1.831699E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            1.461679E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            1.100517E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            7.627862E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            4.612441E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            2.061661E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            4.816157E-04   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -1.389122E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -2.246664E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -2.556080E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -2.381886E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -1.817434E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -9.792359E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.132744E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -3.046184E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.791292E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.382156E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -1.841379E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.198847E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -4.900643E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            2.457946E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            9.680727E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            1.636854E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            2.215184E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.671102E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            2.979416E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            3.123085E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            3.094172E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            2.894274E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            2.534441E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            2.034553E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            1.422233E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            7.313200E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -4.539906E-01  -2.791293E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -4.414468E-01  -2.714170E-01  -4.994155E-02   0.0                           \r\n            66      G      0.0            0.0           -4.045085E-01  -2.487061E-01  -9.712297E-02   0.0                           \r\n            67      G      0.0            0.0           -3.452171E-01  -2.122517E-01  -1.389372E-01   0.0                           \r\n            68      G      0.0            0.0           -2.668491E-01  -1.640682E-01  -1.730739E-01   0.0                           \r\n            69      G      0.0            0.0           -1.737349E-01  -1.068183E-01  -1.976470E-01   0.0                           \r\n            70      G      0.0            0.0           -7.101991E-02  -4.366565E-02  -2.112981E-01   0.0                           \r\n            71      G      0.0            0.0            3.561966E-02   2.190002E-02  -2.132723E-01   0.0                           \r\n            72      G      0.0            0.0            1.402909E-01   8.625560E-02  -2.034611E-01   0.0                           \r\n            73      G      0.0            0.0            2.372095E-01   1.458447E-01  -1.824066E-01   0.0                           \r\n            74      G      0.0            0.0            3.210197E-01   1.973742E-01  -1.512723E-01   0.0                           \r\n            75      G      0.0            0.0            3.870904E-01   2.379966E-01  -1.117789E-01   0.0                           \r\n            76      G      0.0            0.0            4.317705E-01   2.654674E-01  -6.610855E-02   0.0                           \r\n            77      G      0.0            0.0            4.525909E-01   2.782687E-01  -1.678492E-02   0.0                           \r\n            78      G      0.0            0.0            4.484011E-01   2.756928E-01   3.346626E-02   0.0                           \r\n            79      G      0.0            0.0            4.194325E-01   2.578820E-01   8.186805E-02   0.0                           \r\n            80      G      0.0            0.0            3.672861E-01   2.258205E-01   1.257457E-01   0.0                           \r\n            81      G      0.0            0.0            2.948434E-01   1.812801E-01   1.626746E-01   0.0                           \r\n            82      G      0.0            0.0            2.061076E-01   1.267222E-01   1.906145E-01   0.0                           \r\n            83      G      0.0            0.0            1.059821E-01   6.516156E-02   2.080209E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.139317E-01   0.0                           \r\n           127      G      0.0            0.0           -8.090169E-01  -1.841380E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -7.866637E-01  -1.790503E-01  -8.899628E-02   0.0                           \r\n           129      G      0.0            0.0           -7.208393E-01  -1.640683E-01  -1.730741E-01   0.0                           \r\n           130      G      0.0            0.0           -6.151813E-01  -1.400199E-01  -2.475882E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -4.755282E-01  -1.082339E-01  -3.084206E-01   0.0                           \r\n           132      G      0.0            0.0           -3.095974E-01  -7.046665E-02  -3.522096E-01   0.0                           \r\n           133      G      0.0            0.0           -1.265581E-01  -2.880548E-02  -3.765354E-01   0.0                           \r\n           134      G      0.0            0.0            6.347483E-02   1.444741E-02  -3.800538E-01   0.0                           \r\n           135      G      0.0            0.0            2.500002E-01   5.690186E-02  -3.625703E-01   0.0                           \r\n           136      G      0.0            0.0            4.227104E-01   9.621188E-02  -3.250512E-01   0.0                           \r\n           137      G      0.0            0.0            5.720617E-01   1.302053E-01  -2.695693E-01   0.0                           \r\n           138      G      0.0            0.0            6.898004E-01   1.570036E-01  -1.991911E-01   0.0                           \r\n           139      G      0.0            0.0            7.694208E-01   1.751259E-01  -1.178059E-01   0.0                           \r\n           140      G      0.0            0.0            8.065228E-01   1.835705E-01  -2.991080E-02   0.0                           \r\n           141      G      0.0            0.0            7.990564E-01   1.818710E-01   5.963719E-02   0.0                           \r\n           142      G      0.0            0.0            7.474341E-01   1.701214E-01   1.458897E-01   0.0                           \r\n           143      G      0.0            0.0            6.545085E-01   1.489711E-01   2.240806E-01   0.0                           \r\n           144      G      0.0            0.0            5.254145E-01   1.195884E-01   2.898888E-01   0.0                           \r\n           145      G      0.0            0.0            3.672860E-01   8.359702E-02   3.396775E-01   0.0                           \r\n           146      G      0.0            0.0            1.888612E-01   4.298619E-02   3.706955E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            3.812287E-01   0.0                           \r\n           190      G      0.0            0.0           -9.876884E-01  -4.900643E-02   0.0            0.0                           \r\n           191      G      0.0            0.0           -9.603983E-01  -4.765258E-02  -1.086513E-01   0.0                           \r\n           192      G      0.0            0.0           -8.800366E-01  -4.366535E-02  -2.112977E-01   0.0                           \r\n           193      G      0.0            0.0           -7.510440E-01  -3.726498E-02  -3.022679E-01   0.0                           \r\n           194      G      0.0            0.0           -5.805486E-01  -2.880533E-02  -3.765351E-01   0.0                           \r\n           195      G      0.0            0.0           -3.779720E-01  -1.875394E-02  -4.299951E-01   0.0                           \r\n           196      G      0.0            0.0           -1.545085E-01  -7.666287E-03  -4.596933E-01   0.0                           \r\n           197      G      0.0            0.0            7.749323E-02   3.845133E-03  -4.639887E-01   0.0                           \r\n           198      G      0.0            0.0            3.052126E-01   1.514415E-02  -4.426437E-01   0.0                           \r\n           199      G      0.0            0.0            5.160658E-01   2.560626E-02  -3.968384E-01   0.0                           \r\n           200      G      0.0            0.0            6.984011E-01   3.465313E-02  -3.291037E-01   0.0                           \r\n           201      G      0.0            0.0            8.421426E-01   4.178518E-02  -2.431828E-01   0.0                           \r\n           202      G      0.0            0.0            9.393472E-01   4.660822E-02  -1.438236E-01   0.0                           \r\n           203      G      0.0            0.0            9.846434E-01   4.885574E-02  -3.651665E-02   0.0                           \r\n           204      G      0.0            0.0            9.755279E-01   4.840349E-02   7.280821E-02   0.0                           \r\n           205      G      0.0            0.0            9.125049E-01   4.527638E-02   1.781096E-01   0.0                           \r\n           206      G      0.0            0.0            7.990566E-01   3.964726E-02   2.735686E-01   0.0                           \r\n           207      G      0.0            0.0            6.414523E-01   3.182727E-02   3.539105E-01   0.0                           \r\n           208      G      0.0            0.0            4.484012E-01   2.224856E-02   4.146951E-01   0.0                           \r\n           209      G      0.0            0.0            2.305713E-01   1.144040E-02   4.525637E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.654234E-01   0.0                           \r\n           253      G      0.0            0.0           -9.510565E-01   9.680697E-02   0.0            0.0                           \r\n           254      G      0.0            0.0           -9.247788E-01   9.413227E-02  -1.046213E-01   0.0                           \r\n           255      G      0.0            0.0           -8.473975E-01   8.625571E-02  -2.034610E-01   0.0                           \r\n           256      G      0.0            0.0           -7.231891E-01   7.361265E-02  -2.910575E-01   0.0                           \r\n           257      G      0.0            0.0           -5.590170E-01   5.690177E-02  -3.625702E-01   0.0                           \r\n           258      G      0.0            0.0           -3.639536E-01   3.704648E-02  -4.140472E-01   0.0                           \r\n           259      G      0.0            0.0           -1.487780E-01   1.514399E-02  -4.426438E-01   0.0                           \r\n           260      G      0.0            0.0            7.461906E-02  -7.595419E-03  -4.467799E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            2.938927E-01  -2.991515E-02  -4.262269E-01   0.0                           \r\n           262      G      0.0            0.0            4.969257E-01  -5.058173E-02  -3.821203E-01   0.0                           \r\n           263      G      0.0            0.0            6.724985E-01  -6.845309E-02  -3.168977E-01   0.0                           \r\n           264      G      0.0            0.0            8.109089E-01  -8.254169E-02  -2.341635E-01   0.0                           \r\n           265      G      0.0            0.0            9.045082E-01  -9.206910E-02  -1.384894E-01   0.0                           \r\n           266      G      0.0            0.0            9.481244E-01  -9.650883E-02  -3.516241E-02   0.0                           \r\n           267      G      0.0            0.0            9.393473E-01  -9.561538E-02   7.010765E-02   0.0                           \r\n           268      G      0.0            0.0            8.786616E-01  -8.943813E-02   1.715037E-01   0.0                           \r\n           269      G      0.0            0.0            7.694209E-01  -7.831855E-02   2.634225E-01   0.0                           \r\n           270      G      0.0            0.0            6.176619E-01  -6.287113E-02   3.407846E-01   0.0                           \r\n           271      G      0.0            0.0            4.317707E-01  -4.394946E-02   3.993148E-01   0.0                           \r\n           272      G      0.0            0.0            2.220197E-01  -2.259916E-02   4.357788E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            4.481615E-01   0.0                           \r\n           316      G      0.0            0.0           -7.071068E-01   2.215183E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -6.875693E-01   2.153977E-01  -7.778561E-02   0.0                           \r\n           318      G      0.0            0.0           -6.300367E-01   1.973743E-01  -1.512725E-01   0.0                           \r\n           319      G      0.0            0.0           -5.376881E-01   1.684439E-01  -2.164001E-01   0.0                           \r\n           320      G      0.0            0.0           -4.156268E-01   1.302052E-01  -2.695695E-01   0.0                           \r\n           321      G      0.0            0.0           -2.705980E-01   8.477127E-02  -3.078425E-01   0.0                           \r\n           322      G      0.0            0.0           -1.106157E-01   3.465296E-02  -3.291041E-01   0.0                           \r\n           323      G      0.0            0.0            5.547912E-02  -1.738018E-02  -3.321791E-01   0.0                           \r\n           324      G      0.0            0.0            2.185081E-01  -6.845293E-02  -3.168978E-01   0.0                           \r\n           325      G      0.0            0.0            3.694623E-01  -1.157430E-01  -2.841048E-01   0.0                           \r\n           326      G      0.0            0.0            4.999999E-01  -1.566371E-01  -2.356122E-01   0.0                           \r\n           327      G      0.0            0.0            6.029074E-01  -1.888754E-01  -1.740997E-01   0.0                           \r\n           328      G      0.0            0.0            6.724983E-01  -2.106764E-01  -1.029663E-01   0.0                           \r\n           329      G      0.0            0.0            7.049267E-01  -2.208354E-01  -2.614300E-02   0.0                           \r\n           330      G      0.0            0.0            6.984009E-01  -2.187910E-01   5.212483E-02   0.0                           \r\n           331      G      0.0            0.0            6.532813E-01  -2.046562E-01   1.275123E-01   0.0                           \r\n           332      G      0.0            0.0            5.720614E-01  -1.792121E-01   1.958535E-01   0.0                           \r\n           333      G      0.0            0.0            4.592291E-01  -1.438647E-01   2.533719E-01   0.0                           \r\n           334      G      0.0            0.0            3.210198E-01  -1.005671E-01   2.968890E-01   0.0                           \r\n           335      G      0.0            0.0            1.650708E-01  -5.171232E-02   3.239998E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            3.332062E-01   0.0                           \r\n           379      G      0.0            0.0           -3.090170E-01   2.979415E-01   0.0            0.0                           \r\n           380      G      0.0            0.0           -3.004788E-01   2.897094E-01  -3.399359E-02   0.0                           \r\n           381      G      0.0            0.0           -2.753361E-01   2.654678E-01  -6.610855E-02   0.0                           \r\n           382      G      0.0            0.0           -2.349783E-01   2.265565E-01  -9.457039E-02   0.0                           \r\n           383      G      0.0            0.0           -1.816355E-01   1.751256E-01  -1.178062E-01   0.0                           \r\n           384      G      0.0            0.0           -1.182556E-01   1.140173E-01  -1.345320E-01   0.0                           \r\n           385      G      0.0            0.0           -4.834080E-02   4.660837E-02  -1.438237E-01   0.0                           \r\n           386      G      0.0            0.0            2.424529E-02  -2.337618E-02  -1.451676E-01   0.0                           \r\n           387      G      0.0            0.0            9.549158E-02  -9.206896E-02  -1.384894E-01   0.0                           \r\n           388      G      0.0            0.0            1.614610E-01  -1.556739E-01  -1.241583E-01   0.0                           \r\n           389      G      0.0            0.0            2.185079E-01  -2.106763E-01  -1.029662E-01   0.0                           \r\n           390      G      0.0            0.0            2.634801E-01  -2.540367E-01  -7.608418E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            2.938924E-01  -2.833591E-01  -4.499786E-02   0.0                           \r\n           392      G      0.0            0.0            3.080641E-01  -2.970230E-01  -1.142497E-02   0.0                           \r\n           393      G      0.0            0.0            3.052122E-01  -2.942733E-01   2.277930E-02   0.0                           \r\n           394      G      0.0            0.0            2.854943E-01  -2.752621E-01   5.572488E-02   0.0                           \r\n           395      G      0.0            0.0            2.499999E-01  -2.410397E-01   8.559115E-02   0.0                           \r\n           396      G      0.0            0.0            2.006904E-01  -1.934975E-01   1.107276E-01   0.0                           \r\n           397      G      0.0            0.0            1.402907E-01  -1.352627E-01   1.297451E-01   0.0                           \r\n           398      G      0.0            0.0            7.213856E-02  -6.955313E-02   1.415931E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            1.456164E-01   0.0                           \r\n           442      G      0.0            0.0            1.564343E-01   3.094173E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            1.521121E-01   3.008682E-01   1.720839E-02   0.0                           \r\n           444      G      0.0            0.0            1.393842E-01   2.756929E-01   3.346626E-02   0.0                           \r\n           445      G      0.0            0.0            1.189537E-01   2.352829E-01   4.787468E-02   0.0                           \r\n           446      G      0.0            0.0            9.194982E-02   1.818709E-01   5.963738E-02   0.0                           \r\n           447      G      0.0            0.0            5.986483E-02   1.184088E-01   6.810445E-02   0.0                           \r\n           448      G      0.0            0.0            2.447175E-02   4.840345E-02   7.280812E-02   0.0                           \r\n           449      G      0.0            0.0           -1.227366E-02  -2.427667E-02   7.348850E-02   0.0                           \r\n           450      G      0.0            0.0           -4.834085E-02  -9.561523E-02   7.010795E-02   0.0                           \r\n           451      G      0.0            0.0           -8.173677E-02  -1.616701E-01   6.285310E-02   0.0                           \r\n           452      G      0.0            0.0           -1.106159E-01  -2.187911E-01   5.212496E-02   0.0                           \r\n           453      G      0.0            0.0           -1.333823E-01  -2.638216E-01   3.851645E-02   0.0                           \r\n           454      G      0.0            0.0           -1.487781E-01  -2.942733E-01   2.277946E-02   0.0                           \r\n           455      G      0.0            0.0           -1.559523E-01  -3.084634E-01   5.783676E-03   0.0                           \r\n           456      G      0.0            0.0           -1.545085E-01  -3.056078E-01  -1.153172E-02   0.0                           \r\n           457      G      0.0            0.0           -1.445266E-01  -2.858643E-01  -2.820992E-02   0.0                           \r\n           458      G      0.0            0.0           -1.265581E-01  -2.503238E-01  -4.332917E-02   0.0                           \r\n           459      G      0.0            0.0           -1.015960E-01  -2.009504E-01  -5.605397E-02   0.0                           \r\n           460      G      0.0            0.0           -7.101966E-02  -1.404724E-01  -6.568120E-02   0.0                           \r\n           461      G      0.0            0.0           -3.651886E-02  -7.223198E-02  -7.167892E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -7.371573E-02   0.0                           \r\n           505      G      0.0            0.0            5.877852E-01   2.534442E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            5.715446E-01   2.464415E-01   6.465939E-02   0.0                           \r\n           507      G      0.0            0.0            5.237204E-01   2.258204E-01   1.257458E-01   0.0                           \r\n           508      G      0.0            0.0            4.469554E-01   1.927204E-01   1.798836E-01   0.0                           \r\n           509      G      0.0            0.0            3.454914E-01   1.489707E-01   2.240808E-01   0.0                           \r\n           510      G      0.0            0.0            2.249356E-01   9.698882E-02   2.558952E-01   0.0                           \r\n           511      G      0.0            0.0            9.194979E-02   3.964730E-02   2.735689E-01   0.0                           \r\n           512      G      0.0            0.0           -4.611714E-02  -1.988516E-02   2.761250E-01   0.0                           \r\n           513      G      0.0            0.0           -1.816356E-01  -7.831873E-02   2.634225E-01   0.0                           \r\n           514      G      0.0            0.0           -3.071169E-01  -1.324243E-01   2.361634E-01   0.0                           \r\n           515      G      0.0            0.0           -4.156268E-01  -1.792121E-01   1.958537E-01   0.0                           \r\n           516      G      0.0            0.0           -5.011692E-01  -2.160967E-01   1.447211E-01   0.0                           \r\n           517      G      0.0            0.0           -5.590169E-01  -2.410397E-01   8.559113E-02   0.0                           \r\n           518      G      0.0            0.0           -5.859731E-01  -2.526628E-01   2.173137E-02   0.0                           \r\n           519      G      0.0            0.0           -5.805484E-01  -2.503237E-01  -4.332917E-02   0.0                           \r\n           520      G      0.0            0.0           -5.430424E-01  -2.341517E-01  -1.059953E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -4.755280E-01  -2.050405E-01  -1.628042E-01   0.0                           \r\n           522      G      0.0            0.0           -3.817357E-01  -1.645987E-01  -2.106164E-01   0.0                           \r\n           523      G      0.0            0.0           -2.668487E-01  -1.150611E-01  -2.467899E-01   0.0                           \r\n           524      G      0.0            0.0           -1.372156E-01  -5.916532E-02  -2.693258E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -2.769788E-01   0.0                           \r\n           568      G      0.0            0.0            8.910065E-01   1.422236E-01   0.0            0.0                           \r\n           569      G      0.0            0.0            8.663879E-01   1.382939E-01   9.801535E-02   0.0                           \r\n           570      G      0.0            0.0            7.938926E-01   1.267221E-01   1.906145E-01   0.0                           \r\n           571      G      0.0            0.0            6.775266E-01   1.081476E-01   2.726803E-01   0.0                           \r\n           572      G      0.0            0.0            5.237203E-01   8.359689E-02   3.396775E-01   0.0                           \r\n           573      G      0.0            0.0            3.409733E-01   5.442656E-02   3.879041E-01   0.0                           \r\n           574      G      0.0            0.0            1.393840E-01   2.224863E-02   4.146951E-01   0.0                           \r\n           575      G      0.0            0.0           -6.990769E-02  -1.115875E-02   4.185700E-01   0.0                           \r\n           576      G      0.0            0.0           -2.753362E-01  -4.394950E-02   3.993147E-01   0.0                           \r\n           577      G      0.0            0.0           -4.655497E-01  -7.431163E-02   3.579932E-01   0.0                           \r\n           578      G      0.0            0.0           -6.300368E-01  -1.005673E-01   2.968888E-01   0.0                           \r\n           579      G      0.0            0.0           -7.597079E-01  -1.212655E-01   2.193784E-01   0.0                           \r\n           580      G      0.0            0.0           -8.473974E-01  -1.352626E-01   1.297451E-01   0.0                           \r\n           581      G      0.0            0.0           -8.882596E-01  -1.417850E-01   3.294202E-02   0.0                           \r\n           582      G      0.0            0.0           -8.800365E-01  -1.404725E-01  -6.568143E-02   0.0                           \r\n           583      G      0.0            0.0           -8.231823E-01  -1.313974E-01  -1.606753E-01   0.0                           \r\n           584      G      0.0            0.0           -7.208390E-01  -1.150612E-01  -2.467901E-01   0.0                           \r\n           585      G      0.0            0.0           -5.786620E-01  -9.236678E-02  -3.192672E-01   0.0                           \r\n           586      G      0.0            0.0           -4.045082E-01  -6.456810E-02  -3.741016E-01   0.0                           \r\n           587      G      0.0            0.0           -2.080012E-01  -3.320140E-02  -4.082632E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -4.198641E-01   0.0                           \r\n           631      G      0.0            0.0            1.000000E+00   6.066520E-08   0.0            0.0                           \r\n           632      G      0.0            0.0            9.723699E-01   7.818923E-08   1.100052E-01   0.0                           \r\n           633      G      0.0            0.0            8.910065E-01   7.099440E-08   2.139317E-01   0.0                           \r\n           634      G      0.0            0.0            7.604059E-01   8.317058E-08   3.060362E-01   0.0                           \r\n           635      G      0.0            0.0            5.877851E-01   1.164290E-07   3.812290E-01   0.0                           \r\n           636      G      0.0            0.0            3.826832E-01   9.670858E-08   4.353551E-01   0.0                           \r\n           637      G      0.0            0.0            1.564342E-01   2.757321E-08   4.654233E-01   0.0                           \r\n           638      G      0.0            0.0           -7.845932E-02  -2.188298E-08   4.697721E-01   0.0                           \r\n           639      G      0.0            0.0           -3.090172E-01  -4.937218E-08   4.481613E-01   0.0                           \r\n           640      G      0.0            0.0           -5.224987E-01  -5.722226E-08   4.017851E-01   0.0                           \r\n           641      G      0.0            0.0           -7.071069E-01  -5.475516E-08   3.332062E-01   0.0                           \r\n           642      G      0.0            0.0           -8.526403E-01  -6.935602E-08   2.462141E-01   0.0                           \r\n           643      G      0.0            0.0           -9.510565E-01  -1.010278E-07   1.456162E-01   0.0                           \r\n           644      G      0.0            0.0           -9.969172E-01  -1.217188E-07   3.697163E-02   0.0                           \r\n           645      G      0.0            0.0           -9.876881E-01  -1.084432E-07  -7.371601E-02   0.0                           \r\n           646      G      0.0            0.0           -9.238792E-01  -8.728736E-08  -1.803301E-01   0.0                           \r\n           647      G      0.0            0.0           -8.090166E-01  -1.004294E-07  -2.769790E-01   0.0                           \r\n           648      G      0.0            0.0           -6.494477E-01  -1.403167E-07  -3.583221E-01   0.0                           \r\n           649      G      0.0            0.0           -4.539902E-01  -1.250680E-07  -4.198642E-01   0.0                           \r\n           650      G      0.0            0.0           -2.334452E-01  -5.703641E-08  -4.582045E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -4.712245E-01   0.0                           \r\n           694      G      0.0            0.0            8.910066E-01  -1.422235E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            8.663881E-01  -1.382938E-01   9.801540E-02   0.0                           \r\n           696      G      0.0            0.0            7.938927E-01  -1.267220E-01   1.906146E-01   0.0                           \r\n           697      G      0.0            0.0            6.775267E-01  -1.081475E-01   2.726803E-01   0.0                           \r\n           698      G      0.0            0.0            5.237204E-01  -8.359686E-02   3.396776E-01   0.0                           \r\n           699      G      0.0            0.0            3.409733E-01  -5.442657E-02   3.879042E-01   0.0                           \r\n           700      G      0.0            0.0            1.393840E-01  -2.224865E-02   4.146952E-01   0.0                           \r\n           701      G      0.0            0.0           -6.990775E-02   1.115876E-02   4.185701E-01   0.0                           \r\n           702      G      0.0            0.0           -2.753364E-01   4.394950E-02   3.993148E-01   0.0                           \r\n           703      G      0.0            0.0           -4.655498E-01   7.431155E-02   3.579932E-01   0.0                           \r\n           704      G      0.0            0.0           -6.300368E-01   1.005672E-01   2.968889E-01   0.0                           \r\n           705      G      0.0            0.0           -7.597080E-01   1.212655E-01   2.193784E-01   0.0                           \r\n           706      G      0.0            0.0           -8.473975E-01   1.352626E-01   1.297451E-01   0.0                           \r\n           707      G      0.0            0.0           -8.882598E-01   1.417851E-01   3.294203E-02   0.0                           \r\n           708      G      0.0            0.0           -8.800366E-01   1.404725E-01  -6.568144E-02   0.0                           \r\n           709      G      0.0            0.0           -8.231825E-01   1.313973E-01  -1.606753E-01   0.0                           \r\n           710      G      0.0            0.0           -7.208391E-01   1.150612E-01  -2.467901E-01   0.0                           \r\n           711      G      0.0            0.0           -5.786622E-01   9.236675E-02  -3.192673E-01   0.0                           \r\n           712      G      0.0            0.0           -4.045083E-01   6.456812E-02  -3.741017E-01   0.0                           \r\n           713      G      0.0            0.0           -2.080012E-01   3.320142E-02  -4.082633E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -4.198642E-01   0.0                           \r\n           757      G      0.0            0.0            5.877855E-01  -2.534442E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            5.715449E-01  -2.464416E-01   6.465944E-02   0.0                           \r\n           759      G      0.0            0.0            5.237207E-01  -2.258205E-01   1.257459E-01   0.0                           \r\n           760      G      0.0            0.0            4.469556E-01  -1.927205E-01   1.798836E-01   0.0                           \r\n           761      G      0.0            0.0            3.454916E-01  -1.489707E-01   2.240809E-01   0.0                           \r\n           762      G      0.0            0.0            2.249357E-01  -9.698882E-02   2.558954E-01   0.0                           \r\n           763      G      0.0            0.0            9.194981E-02  -3.964732E-02   2.735690E-01   0.0                           \r\n           764      G      0.0            0.0           -4.611717E-02   1.988508E-02   2.761251E-01   0.0                           \r\n           765      G      0.0            0.0           -1.816357E-01   7.831864E-02   2.634227E-01   0.0                           \r\n           766      G      0.0            0.0           -3.071170E-01   1.324243E-01   2.361635E-01   0.0                           \r\n           767      G      0.0            0.0           -4.156270E-01   1.792122E-01   1.958537E-01   0.0                           \r\n           768      G      0.0            0.0           -5.011694E-01   2.160968E-01   1.447211E-01   0.0                           \r\n           769      G      0.0            0.0           -5.590171E-01   2.410398E-01   8.559114E-02   0.0                           \r\n           770      G      0.0            0.0           -5.859733E-01   2.526629E-01   2.173142E-02   0.0                           \r\n           771      G      0.0            0.0           -5.805486E-01   2.503239E-01  -4.332914E-02   0.0                           \r\n           772      G      0.0            0.0           -5.430427E-01   2.341519E-01  -1.059953E-01   0.0                           \r\n           773      G      0.0            0.0           -4.755282E-01   2.050406E-01  -1.628042E-01   0.0                           \r\n           774      G      0.0            0.0           -3.817359E-01   1.645988E-01  -2.106165E-01   0.0                           \r\n           775      G      0.0            0.0           -2.668488E-01   1.150612E-01  -2.467900E-01   0.0                           \r\n           776      G      0.0            0.0           -1.372157E-01   5.916532E-02  -2.693259E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -2.769789E-01   0.0                           \r\n           820      G      0.0            0.0            1.564345E-01  -3.094175E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            1.521122E-01  -3.008683E-01   1.720857E-02   0.0                           \r\n           822      G      0.0            0.0            1.393842E-01  -2.756930E-01   3.346629E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.136673E+04    (CYCLIC FREQUENCY =  5.883843E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            1.189538E-01  -2.352829E-01   4.787464E-02   0.0                           \r\n           824      G      0.0            0.0            9.194990E-02  -1.818710E-01   5.963740E-02   0.0                           \r\n           825      G      0.0            0.0            5.986488E-02  -1.184089E-01   6.810457E-02   0.0                           \r\n           826      G      0.0            0.0            2.447172E-02  -4.840351E-02   7.280827E-02   0.0                           \r\n           827      G      0.0            0.0           -1.227374E-02   2.427668E-02   7.348858E-02   0.0                           \r\n           828      G      0.0            0.0           -4.834094E-02   9.561527E-02   7.010788E-02   0.0                           \r\n           829      G      0.0            0.0           -8.173682E-02   1.616702E-01   6.285304E-02   0.0                           \r\n           830      G      0.0            0.0           -1.106159E-01   2.187911E-01   5.212492E-02   0.0                           \r\n           831      G      0.0            0.0           -1.333823E-01   2.638217E-01   3.851641E-02   0.0                           \r\n           832      G      0.0            0.0           -1.487781E-01   2.942734E-01   2.277946E-02   0.0                           \r\n           833      G      0.0            0.0           -1.559523E-01   3.084635E-01   5.783646E-03   0.0                           \r\n           834      G      0.0            0.0           -1.545085E-01   3.056079E-01  -1.153176E-02   0.0                           \r\n           835      G      0.0            0.0           -1.445266E-01   2.858643E-01  -2.820985E-02   0.0                           \r\n           836      G      0.0            0.0           -1.265581E-01   2.503238E-01  -4.332907E-02   0.0                           \r\n           837      G      0.0            0.0           -1.015960E-01   2.009504E-01  -5.605393E-02   0.0                           \r\n           838      G      0.0            0.0           -7.101973E-02   1.404725E-01  -6.568123E-02   0.0                           \r\n           839      G      0.0            0.0           -3.651889E-02   7.223202E-02  -7.167900E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -7.371578E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -3.132744E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -3.046186E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -2.791296E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -2.382157E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.841381E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.198849E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -4.900685E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.457929E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            9.680714E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            1.636854E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            2.215184E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            2.671103E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            2.979416E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            3.123086E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            3.094173E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            2.894276E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            2.534441E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            2.034553E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            1.422235E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            7.313240E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -6.294363E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -6.277367E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -6.223019E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -6.123889E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -5.989821E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -5.820484E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -5.619046E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -5.373752E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -5.098630E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -4.790339E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -4.453901E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -4.090217E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.704227E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -3.290935E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -2.857206E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -2.405574E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -1.944825E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -1.468671E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -9.819738E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -4.867781E-02   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -8.086357E-01  -3.702650E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -8.062281E-01  -3.690664E-01  -9.521086E-03   0.0                           \r\n            66      G      0.0            0.0           -7.989346E-01  -3.655531E-01  -1.961426E-02   0.0                           \r\n            67      G      0.0            0.0           -7.864724E-01  -3.598218E-01  -2.980503E-02   0.0                           \r\n            68      G      0.0            0.0           -7.690240E-01  -3.519238E-01  -3.959073E-02   0.0                           \r\n            69      G      0.0            0.0           -7.468503E-01  -3.417797E-01  -4.827172E-02   0.0                           \r\n            70      G      0.0            0.0           -7.204963E-01  -3.294532E-01  -5.670271E-02   0.0                           \r\n            71      G      0.0            0.0           -6.897206E-01  -3.152121E-01  -6.552676E-02   0.0                           \r\n            72      G      0.0            0.0           -6.546407E-01  -2.992361E-01  -7.401096E-02   0.0                           \r\n            73      G      0.0            0.0           -6.153241E-01  -2.814332E-01  -8.214156E-02   0.0                           \r\n            74      G      0.0            0.0           -5.721025E-01  -2.615659E-01  -8.964807E-02   0.0                           \r\n            75      G      0.0            0.0           -5.253153E-01  -2.398237E-01  -9.613550E-02   0.0                           \r\n            76      G      0.0            0.0           -4.754935E-01  -2.169246E-01  -1.020664E-01   0.0                           \r\n            77      G      0.0            0.0           -4.227013E-01  -1.930961E-01  -1.076149E-01   0.0                           \r\n            78      G      0.0            0.0           -3.673322E-01  -1.679936E-01  -1.125277E-01   0.0                           \r\n            79      G      0.0            0.0           -3.096233E-01  -1.417831E-01  -1.166784E-01   0.0                           \r\n            80      G      0.0            0.0           -2.501191E-01  -1.145623E-01  -1.198743E-01   0.0                           \r\n            81      G      0.0            0.0           -1.891413E-01  -8.654974E-02  -1.223757E-01   0.0                           \r\n            82      G      0.0            0.0           -1.269856E-01  -5.805868E-02  -1.248777E-01   0.0                           \r\n            83      G      0.0            0.0           -6.366159E-02  -2.922430E-02  -1.265071E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -1.265305E-01   0.0                           \r\n           127      G      0.0            0.0           -9.509017E-01   1.947361E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -9.480651E-01   1.941653E-01  -1.132008E-02   0.0                           \r\n           129      G      0.0            0.0           -9.393355E-01   1.924733E-01  -2.344229E-02   0.0                           \r\n           130      G      0.0            0.0           -9.245981E-01   1.898095E-01  -3.492620E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -9.043115E-01   1.856284E-01  -4.586704E-02   0.0                           \r\n           132      G      0.0            0.0           -8.785005E-01   1.799590E-01  -5.659243E-02   0.0                           \r\n           133      G      0.0            0.0           -8.474072E-01   1.733033E-01  -6.709202E-02   0.0                           \r\n           134      G      0.0            0.0           -8.110402E-01   1.657224E-01  -7.731657E-02   0.0                           \r\n           135      G      0.0            0.0           -7.697248E-01   1.572514E-01  -8.695730E-02   0.0                           \r\n           136      G      0.0            0.0           -7.236441E-01   1.478751E-01  -9.607911E-02   0.0                           \r\n           137      G      0.0            0.0           -6.730399E-01   1.374445E-01  -1.052587E-01   0.0                           \r\n           138      G      0.0            0.0           -6.178931E-01   1.260499E-01  -1.136418E-01   0.0                           \r\n           139      G      0.0            0.0           -5.589764E-01   1.139570E-01  -1.205680E-01   0.0                           \r\n           140      G      0.0            0.0           -4.967145E-01   1.013900E-01  -1.267233E-01   0.0                           \r\n           141      G      0.0            0.0           -4.316226E-01   8.821603E-02  -1.320444E-01   0.0                           \r\n           142      G      0.0            0.0           -3.639819E-01   7.421777E-02  -1.367262E-01   0.0                           \r\n           143      G      0.0            0.0           -2.941125E-01   5.953403E-02  -1.410888E-01   0.0                           \r\n           144      G      0.0            0.0           -2.221730E-01   4.485097E-02  -1.445808E-01   0.0                           \r\n           145      G      0.0            0.0           -1.488509E-01   3.021045E-02  -1.469101E-01   0.0                           \r\n           146      G      0.0            0.0           -7.456653E-02   1.520869E-02  -1.481706E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -1.482518E-01   0.0                           \r\n           190      G      0.0            0.0           -3.087128E-01   5.980666E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -3.079802E-01   5.966146E-01  -3.092365E-03   0.0                           \r\n           192      G      0.0            0.0           -3.053582E-01   5.913190E-01  -7.524762E-03   0.0                           \r\n           193      G      0.0            0.0           -3.004615E-01   5.820718E-01  -1.176754E-02   0.0                           \r\n           194      G      0.0            0.0           -2.936797E-01   5.692344E-01  -1.516533E-02   0.0                           \r\n           195      G      0.0            0.0           -2.852446E-01   5.529827E-01  -1.827643E-02   0.0                           \r\n           196      G      0.0            0.0           -2.752803E-01   5.334817E-01  -2.141315E-02   0.0                           \r\n           197      G      0.0            0.0           -2.636553E-01   5.104772E-01  -2.479494E-02   0.0                           \r\n           198      G      0.0            0.0           -2.502923E-01   4.841849E-01  -2.836950E-02   0.0                           \r\n           199      G      0.0            0.0           -2.351674E-01   4.550079E-01  -3.158534E-02   0.0                           \r\n           200      G      0.0            0.0           -2.185860E-01   4.234485E-01  -3.438905E-02   0.0                           \r\n           201      G      0.0            0.0           -2.006171E-01   3.890959E-01  -3.696205E-02   0.0                           \r\n           202      G      0.0            0.0           -1.814669E-01   3.522298E-01  -3.919117E-02   0.0                           \r\n           203      G      0.0            0.0           -1.612266E-01   3.130853E-01  -4.120704E-02   0.0                           \r\n           204      G      0.0            0.0           -1.400575E-01   2.719990E-01  -4.296134E-02   0.0                           \r\n           205      G      0.0            0.0           -1.180943E-01   2.293547E-01  -4.421183E-02   0.0                           \r\n           206      G      0.0            0.0           -9.557485E-02   1.853479E-01  -4.540210E-02   0.0                           \r\n           207      G      0.0            0.0           -7.238116E-02   1.401096E-01  -4.674583E-02   0.0                           \r\n           208      G      0.0            0.0           -4.861442E-02   9.387664E-02  -4.776092E-02   0.0                           \r\n           209      G      0.0            0.0           -2.440065E-02   4.705184E-02  -4.841700E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0           -4.854326E-02   0.0                           \r\n           253      G      0.0            0.0            5.879519E-01   5.095857E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            5.860741E-01   5.078630E-01   7.426921E-03   0.0                           \r\n           255      G      0.0            0.0            5.805717E-01   5.031832E-01   1.436816E-02   0.0                           \r\n           256      G      0.0            0.0            5.716022E-01   4.953702E-01   2.136112E-02   0.0                           \r\n           257      G      0.0            0.0            5.590583E-01   4.844903E-01   2.843910E-02   0.0                           \r\n           258      G      0.0            0.0            5.430342E-01   4.706154E-01   3.527126E-02   0.0                           \r\n           259      G      0.0            0.0            5.236387E-01   4.538691E-01   4.174291E-02   0.0                           \r\n           260      G      0.0            0.0            5.010511E-01   4.344322E-01   4.812663E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            4.752986E-01   4.123883E-01   5.408889E-02   0.0                           \r\n           262      G      0.0            0.0            4.467475E-01   3.877400E-01   5.942224E-02   0.0                           \r\n           263      G      0.0            0.0            4.155411E-01   3.605527E-01   6.454048E-02   0.0                           \r\n           264      G      0.0            0.0            3.818519E-01   3.310890E-01   6.939778E-02   0.0                           \r\n           265      G      0.0            0.0            3.457662E-01   2.997019E-01   7.399581E-02   0.0                           \r\n           266      G      0.0            0.0            3.074402E-01   2.665747E-01   7.837744E-02   0.0                           \r\n           267      G      0.0            0.0            2.670085E-01   2.316377E-01   8.217667E-02   0.0                           \r\n           268      G      0.0            0.0            2.248987E-01   1.951067E-01   8.520476E-02   0.0                           \r\n           269      G      0.0            0.0            1.814155E-01   1.574496E-01   8.753213E-02   0.0                           \r\n           270      G      0.0            0.0            1.369509E-01   1.188955E-01   8.922958E-02   0.0                           \r\n           271      G      0.0            0.0            9.172512E-02   7.967266E-02   9.046156E-02   0.0                           \r\n           272      G      0.0            0.0            4.601692E-02   3.998489E-02   9.123617E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            9.162125E-02   0.0                           \r\n           316      G      0.0            0.0            1.000000E+00  -2.154228E-05   0.0            0.0                           \r\n           317      G      0.0            0.0            9.968389E-01   3.793792E-05   1.253209E-02   0.0                           \r\n           318      G      0.0            0.0            9.874922E-01   3.504084E-05   2.454717E-02   0.0                           \r\n           319      G      0.0            0.0            9.721705E-01  -1.660696E-05   3.640511E-02   0.0                           \r\n           320      G      0.0            0.0            9.508757E-01   4.630188E-05   4.820926E-02   0.0                           \r\n           321      G      0.0            0.0            9.236807E-01   2.285335E-04   5.992806E-02   0.0                           \r\n           322      G      0.0            0.0            8.906733E-01   2.436442E-04   7.111781E-02   0.0                           \r\n           323      G      0.0            0.0            8.522571E-01   9.548256E-05   8.159380E-02   0.0                           \r\n           324      G      0.0            0.0            8.086880E-01   1.377794E-05   9.149859E-02   0.0                           \r\n           325      G      0.0            0.0            7.602822E-01  -1.608700E-05   1.009453E-01   0.0                           \r\n           326      G      0.0            0.0            7.071840E-01  -1.033970E-05   1.100386E-01   0.0                           \r\n           327      G      0.0            0.0            6.496657E-01   1.846502E-05   1.185920E-01   0.0                           \r\n           328      G      0.0            0.0            5.880454E-01   9.453443E-06   1.261633E-01   0.0                           \r\n           329      G      0.0            0.0            5.228562E-01  -5.857814E-05   1.330129E-01   0.0                           \r\n           330      G      0.0            0.0            4.543161E-01  -7.361903E-05   1.393129E-01   0.0                           \r\n           331      G      0.0            0.0            3.828865E-01  -1.494660E-05   1.445865E-01   0.0                           \r\n           332      G      0.0            0.0            3.090392E-01   8.570198E-05   1.488221E-01   0.0                           \r\n           333      G      0.0            0.0            2.333433E-01   3.880574E-05   1.520091E-01   0.0                           \r\n           334      G      0.0            0.0            1.562959E-01  -1.208072E-04   1.541214E-01   0.0                           \r\n           335      G      0.0            0.0            7.842028E-02  -1.856650E-04   1.554658E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.561197E-01   0.0                           \r\n           379      G      0.0            0.0            5.877482E-01  -5.095036E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            5.858794E-01  -5.079150E-01   7.385908E-03   0.0                           \r\n           381      G      0.0            0.0            5.803818E-01  -5.031859E-01   1.444989E-02   0.0                           \r\n           382      G      0.0            0.0            5.713402E-01  -4.953452E-01   2.152637E-02   0.0                           \r\n           383      G      0.0            0.0            5.587656E-01  -4.845114E-01   2.837079E-02   0.0                           \r\n           384      G      0.0            0.0            5.428157E-01  -4.707334E-01   3.508354E-02   0.0                           \r\n           385      G      0.0            0.0            5.234847E-01  -4.540223E-01   4.170053E-02   0.0                           \r\n           386      G      0.0            0.0            5.009421E-01  -4.344467E-01   4.791515E-02   0.0                           \r\n           387      G      0.0            0.0            4.753416E-01  -4.122031E-01   5.379180E-02   0.0                           \r\n           388      G      0.0            0.0            4.468773E-01  -3.875194E-01   5.934215E-02   0.0                           \r\n           389      G      0.0            0.0            4.157070E-01  -3.605245E-01   6.449464E-02   0.0                           \r\n           390      G      0.0            0.0            3.820353E-01  -3.311815E-01   6.939943E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.459279E-01  -2.996642E-01   7.406206E-02   0.0                           \r\n           392      G      0.0            0.0            3.075930E-01  -2.663160E-01   7.831141E-02   0.0                           \r\n           393      G      0.0            0.0            2.672361E-01  -2.313554E-01   8.201315E-02   0.0                           \r\n           394      G      0.0            0.0            2.252067E-01  -1.949967E-01   8.502594E-02   0.0                           \r\n           395      G      0.0            0.0            1.818091E-01  -1.574521E-01   8.739666E-02   0.0                           \r\n           396      G      0.0            0.0            1.373442E-01  -1.188977E-01   8.938196E-02   0.0                           \r\n           397      G      0.0            0.0            9.198773E-02  -7.959259E-02   9.078503E-02   0.0                           \r\n           398      G      0.0            0.0            4.613131E-02  -3.985922E-02   9.148927E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            9.181158E-02   0.0                           \r\n           442      G      0.0            0.0           -3.088142E-01  -5.989698E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -3.079944E-01  -5.971643E-01  -3.393834E-03   0.0                           \r\n           444      G      0.0            0.0           -3.052526E-01  -5.917303E-01  -7.535235E-03   0.0                           \r\n           445      G      0.0            0.0           -3.004481E-01  -5.825107E-01  -1.145926E-02   0.0                           \r\n           446      G      0.0            0.0           -2.937936E-01  -5.695771E-01  -1.500676E-02   0.0                           \r\n           447      G      0.0            0.0           -2.853863E-01  -5.531875E-01  -1.837135E-02   0.0                           \r\n           448      G      0.0            0.0           -2.753153E-01  -5.334568E-01  -2.170788E-02   0.0                           \r\n           449      G      0.0            0.0           -2.635286E-01  -5.105090E-01  -2.512049E-02   0.0                           \r\n           450      G      0.0            0.0           -2.500506E-01  -4.844567E-01  -2.847574E-02   0.0                           \r\n           451      G      0.0            0.0           -2.349549E-01  -4.553885E-01  -3.142937E-02   0.0                           \r\n           452      G      0.0            0.0           -2.184730E-01  -4.234799E-01  -3.414008E-02   0.0                           \r\n           453      G      0.0            0.0           -2.006219E-01  -3.889868E-01  -3.676208E-02   0.0                           \r\n           454      G      0.0            0.0           -1.815496E-01  -3.521624E-01  -3.906662E-02   0.0                           \r\n           455      G      0.0            0.0           -1.613643E-01  -3.131610E-01  -4.111691E-02   0.0                           \r\n           456      G      0.0            0.0           -1.402237E-01  -2.721159E-01  -4.290815E-02   0.0                           \r\n           457      G      0.0            0.0           -1.182505E-01  -2.292918E-01  -4.437034E-02   0.0                           \r\n           458      G      0.0            0.0           -9.561197E-02  -1.851488E-01  -4.567363E-02   0.0                           \r\n           459      G      0.0            0.0           -7.232092E-02  -1.399611E-01  -4.685241E-02   0.0                           \r\n           460      G      0.0            0.0           -4.851909E-02  -9.385026E-02  -4.776803E-02   0.0                           \r\n           461      G      0.0            0.0           -2.432841E-02  -4.709893E-02  -4.831123E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -4.838413E-02   0.0                           \r\n           505      G      0.0            0.0           -9.509665E-01  -1.946230E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -9.480470E-01  -1.939810E-01  -1.154510E-02   0.0                           \r\n           507      G      0.0            0.0           -9.393157E-01  -1.921052E-01  -2.322918E-02   0.0                           \r\n           508      G      0.0            0.0           -9.246843E-01  -1.890716E-01  -3.486489E-02   0.0                           \r\n           509      G      0.0            0.0           -9.043243E-01  -1.849213E-01  -4.606516E-02   0.0                           \r\n           510      G      0.0            0.0           -8.784103E-01  -1.796531E-01  -5.688408E-02   0.0                           \r\n           511      G      0.0            0.0           -8.471528E-01  -1.731905E-01  -6.735621E-02   0.0                           \r\n           512      G      0.0            0.0           -8.107184E-01  -1.656064E-01  -7.740351E-02   0.0                           \r\n           513      G      0.0            0.0           -7.693437E-01  -1.570966E-01  -8.709101E-02   0.0                           \r\n           514      G      0.0            0.0           -7.231756E-01  -1.477769E-01  -9.634310E-02   0.0                           \r\n           515      G      0.0            0.0           -6.725270E-01  -1.375239E-01  -1.049530E-01   0.0                           \r\n           516      G      0.0            0.0           -6.177095E-01  -1.264045E-01  -1.128503E-01   0.0                           \r\n           517      G      0.0            0.0           -5.591329E-01  -1.144748E-01  -1.199450E-01   0.0                           \r\n           518      G      0.0            0.0           -4.971661E-01  -1.018332E-01  -1.262854E-01   0.0                           \r\n           519      G      0.0            0.0           -4.321726E-01  -8.858085E-02  -1.320646E-01   0.0                           \r\n           520      G      0.0            0.0           -3.644283E-01  -7.480221E-02  -1.370969E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -2.944016E-01  -6.050330E-02  -1.412116E-01   0.0                           \r\n           522      G      0.0            0.0           -2.224896E-01  -4.574275E-02  -1.445339E-01   0.0                           \r\n           523      G      0.0            0.0           -1.491425E-01  -3.062907E-02  -1.469669E-01   0.0                           \r\n           524      G      0.0            0.0           -7.480336E-02  -1.535852E-02  -1.484267E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -1.488483E-01   0.0                           \r\n           568      G      0.0            0.0           -8.091114E-01   3.700027E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -8.066324E-01   3.689028E-01  -9.881546E-03   0.0                           \r\n           570      G      0.0            0.0           -7.991300E-01   3.655162E-01  -1.997095E-02   0.0                           \r\n           571      G      0.0            0.0           -7.865810E-01   3.598677E-01  -2.984730E-02   0.0                           \r\n           572      G      0.0            0.0           -7.691821E-01   3.520145E-01  -3.930015E-02   0.0                           \r\n           573      G      0.0            0.0           -7.471075E-01   3.420089E-01  -4.839984E-02   0.0                           \r\n           574      G      0.0            0.0           -7.205074E-01   3.298646E-01  -5.737564E-02   0.0                           \r\n           575      G      0.0            0.0           -6.894377E-01   3.156546E-01  -6.604193E-02   0.0                           \r\n           576      G      0.0            0.0           -6.541556E-01   2.995094E-01  -7.419284E-02   0.0                           \r\n           577      G      0.0            0.0           -6.148645E-01   2.815609E-01  -8.191534E-02   0.0                           \r\n           578      G      0.0            0.0           -5.718343E-01   2.618690E-01  -8.910376E-02   0.0                           \r\n           579      G      0.0            0.0           -5.253184E-01   2.404769E-01  -9.573620E-02   0.0                           \r\n           580      G      0.0            0.0           -4.756032E-01   2.175329E-01  -1.018636E-01   0.0                           \r\n           581      G      0.0            0.0           -4.229411E-01   1.933290E-01  -1.073601E-01   0.0                           \r\n           582      G      0.0            0.0           -3.677031E-01   1.680239E-01  -1.121855E-01   0.0                           \r\n           583      G      0.0            0.0           -3.101784E-01   1.416582E-01  -1.163985E-01   0.0                           \r\n           584      G      0.0            0.0           -2.506999E-01   1.143945E-01  -1.200089E-01   0.0                           \r\n           585      G      0.0            0.0           -1.895415E-01   8.640112E-02  -1.230175E-01   0.0                           \r\n           586      G      0.0            0.0           -1.270666E-01   5.786428E-02  -1.252746E-01   0.0                           \r\n           587      G      0.0            0.0           -6.369858E-02   2.900251E-02  -1.264745E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -1.267027E-01   0.0                           \r\n           631      G      0.0            0.0           -3.175539E-04   6.295685E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -3.082247E-04   6.275974E-01  -5.250762E-05   0.0                           \r\n           633      G      0.0            0.0           -2.388005E-04   6.218022E-01  -2.479798E-04   0.0                           \r\n           634      G      0.0            0.0           -7.828883E-05   6.121401E-01  -3.662140E-04   0.0                           \r\n           635      G      0.0            0.0            1.141451E-04   5.986671E-01  -4.225164E-04   0.0                           \r\n           636      G      0.0            0.0            3.234982E-04   5.815974E-01  -3.524257E-04   0.0                           \r\n           637      G      0.0            0.0            4.523223E-04   5.610299E-01  -1.902716E-04   0.0                           \r\n           638      G      0.0            0.0            5.162340E-04   5.369682E-01  -4.370144E-05   0.0                           \r\n           639      G      0.0            0.0            5.048725E-04   5.095566E-01   5.181916E-05   0.0                           \r\n           640      G      0.0            0.0            4.803786E-04   4.789681E-01   6.526818E-05   0.0                           \r\n           641      G      0.0            0.0            4.383255E-04   4.454077E-01   8.231909E-05   0.0                           \r\n           642      G      0.0            0.0            3.611804E-04   4.091309E-01   2.904535E-04   0.0                           \r\n           643      G      0.0            0.0            1.509805E-04   3.703611E-01   4.862635E-04   0.0                           \r\n           644      G      0.0            0.0           -9.018036E-05   3.292876E-01   4.917306E-04   0.0                           \r\n           645      G      0.0            0.0           -3.351871E-04   2.861228E-01   4.445170E-04   0.0                           \r\n           646      G      0.0            0.0           -5.176615E-04   2.411791E-01   2.959852E-04   0.0                           \r\n           647      G      0.0            0.0           -6.163928E-04   1.948085E-01   8.028701E-05   0.0                           \r\n           648      G      0.0            0.0           -6.035827E-04   1.472839E-01  -1.000748E-04   0.0                           \r\n           649      G      0.0            0.0           -5.118306E-04   9.875299E-02  -3.193226E-04   0.0                           \r\n           650      G      0.0            0.0           -2.849288E-04   4.951934E-02  -5.485459E-04   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -5.740070E-04   0.0                           \r\n           694      G      0.0            0.0            8.083630E-01   3.701097E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            8.058724E-01   3.688892E-01   9.855942E-03   0.0                           \r\n           696      G      0.0            0.0            7.985080E-01   3.654323E-01   1.938367E-02   0.0                           \r\n           697      G      0.0            0.0            7.863483E-01   3.597761E-01   2.900678E-02   0.0                           \r\n           698      G      0.0            0.0            7.693229E-01   3.519473E-01   3.861960E-02   0.0                           \r\n           699      G      0.0            0.0            7.475346E-01   3.419275E-01   4.798588E-02   0.0                           \r\n           700      G      0.0            0.0            7.210844E-01   3.297527E-01   5.709565E-02   0.0                           \r\n           701      G      0.0            0.0            6.901565E-01   3.155233E-01   6.582543E-02   0.0                           \r\n           702      G      0.0            0.0            6.549324E-01   2.994130E-01   7.414362E-02   0.0                           \r\n           703      G      0.0            0.0            6.156310E-01   2.815108E-01   8.206502E-02   0.0                           \r\n           704      G      0.0            0.0            5.724577E-01   2.618123E-01   8.946114E-02   0.0                           \r\n           705      G      0.0            0.0            5.257296E-01   2.404376E-01   9.625739E-02   0.0                           \r\n           706      G      0.0            0.0            4.757220E-01   2.176117E-01   1.024523E-01   0.0                           \r\n           707      G      0.0            0.0            4.227680E-01   1.934768E-01   1.080108E-01   0.0                           \r\n           708      G      0.0            0.0            3.671709E-01   1.681709E-01   1.129121E-01   0.0                           \r\n           709      G      0.0            0.0            3.093047E-01   1.418230E-01   1.170573E-01   0.0                           \r\n           710      G      0.0            0.0            2.495697E-01   1.145462E-01   1.202727E-01   0.0                           \r\n           711      G      0.0            0.0            1.884372E-01   8.651345E-02   1.227077E-01   0.0                           \r\n           712      G      0.0            0.0            1.262251E-01   5.794383E-02   1.245052E-01   0.0                           \r\n           713      G      0.0            0.0            6.330331E-02   2.905112E-02   1.255745E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.259804E-01   0.0                           \r\n           757      G      0.0            0.0            9.502614E-01  -1.944440E-01   0.0            0.0                           \r\n           758      G      0.0            0.0            9.473261E-01  -1.938021E-01   1.165445E-02   0.0                           \r\n           759      G      0.0            0.0            9.385945E-01  -1.920352E-01   2.300735E-02   0.0                           \r\n           760      G      0.0            0.0            9.241971E-01  -1.891741E-01   3.424695E-02   0.0                           \r\n           761      G      0.0            0.0            9.041484E-01  -1.851295E-01   4.541980E-02   0.0                           \r\n           762      G      0.0            0.0            8.785270E-01  -1.799099E-01   5.643085E-02   0.0                           \r\n           763      G      0.0            0.0            8.474177E-01  -1.735420E-01   6.718011E-02   0.0                           \r\n           764      G      0.0            0.0            8.110127E-01  -1.660814E-01   7.750483E-02   0.0                           \r\n           765      G      0.0            0.0            7.695585E-01  -1.576153E-01   8.718021E-02   0.0                           \r\n           766      G      0.0            0.0            7.233987E-01  -1.481938E-01   9.630367E-02   0.0                           \r\n           767      G      0.0            0.0            6.727505E-01  -1.378291E-01   1.049547E-01   0.0                           \r\n           768      G      0.0            0.0            6.179237E-01  -1.265548E-01   1.129527E-01   0.0                           \r\n           769      G      0.0            0.0            5.592327E-01  -1.144778E-01   1.202675E-01   0.0                           \r\n           770      G      0.0            0.0            4.970588E-01  -1.017418E-01   1.268164E-01   0.0                           \r\n           771      G      0.0            0.0            4.318019E-01  -8.842219E-02   1.324837E-01   0.0                           \r\n           772      G      0.0            0.0            3.639198E-01  -7.449687E-02   1.373189E-01   0.0                           \r\n           773      G      0.0            0.0            2.937970E-01  -6.005781E-02   1.413214E-01   0.0                           \r\n           774      G      0.0            0.0            2.218968E-01  -4.529633E-02   1.444235E-01   0.0                           \r\n           775      G      0.0            0.0            1.486544E-01  -3.030450E-02   1.466108E-01   0.0                           \r\n           776      G      0.0            0.0            7.455165E-02  -1.517429E-02   1.478922E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            1.483635E-01   0.0                           \r\n           820      G      0.0            0.0            3.088197E-01  -5.984936E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            3.078399E-01  -5.966397E-01   3.854264E-03   0.0                           \r\n           822      G      0.0            0.0            3.049800E-01  -5.911349E-01   7.503768E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.234806E+04    (CYCLIC FREQUENCY =  7.712141E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            3.002940E-01  -5.820613E-01   1.114208E-02   0.0                           \r\n           824      G      0.0            0.0            2.937704E-01  -5.693939E-01   1.476728E-02   0.0                           \r\n           825      G      0.0            0.0            2.854452E-01  -5.532465E-01   1.833731E-02   0.0                           \r\n           826      G      0.0            0.0            2.753416E-01  -5.336744E-01   2.179920E-02   0.0                           \r\n           827      G      0.0            0.0            2.635348E-01  -5.108074E-01   2.514830E-02   0.0                           \r\n           828      G      0.0            0.0            2.500685E-01  -4.846707E-01   2.833740E-02   0.0                           \r\n           829      G      0.0            0.0            2.350560E-01  -4.555603E-01   3.134392E-02   0.0                           \r\n           830      G      0.0            0.0            2.185709E-01  -4.236345E-01   3.413581E-02   0.0                           \r\n           831      G      0.0            0.0            2.007586E-01  -3.891122E-01   3.666418E-02   0.0                           \r\n           832      G      0.0            0.0            1.817197E-01  -3.521722E-01   3.898075E-02   0.0                           \r\n           833      G      0.0            0.0            1.615587E-01  -3.130531E-01   4.119474E-02   0.0                           \r\n           834      G      0.0            0.0            1.403271E-01  -2.719479E-01   4.312299E-02   0.0                           \r\n           835      G      0.0            0.0            1.182448E-01  -2.291774E-01   4.464511E-02   0.0                           \r\n           836      G      0.0            0.0            9.545171E-02  -1.850041E-01   4.591664E-02   0.0                           \r\n           837      G      0.0            0.0            7.209560E-02  -1.397554E-01   4.691760E-02   0.0                           \r\n           838      G      0.0            0.0            4.830142E-02  -9.364296E-02   4.762100E-02   0.0                           \r\n           839      G      0.0            0.0            2.423254E-02  -4.697351E-02   4.805168E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            4.823845E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -6.294256E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -6.274009E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -6.215567E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -6.120045E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -5.987083E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -5.817544E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -5.611457E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -5.370864E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.096481E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -4.790741E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -4.454552E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -4.091642E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.703644E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -3.293150E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -2.860068E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -2.410022E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -1.945338E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -1.469302E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -9.842319E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -4.938527E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -4.707368E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -4.574368E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -4.186919E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -3.575946E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.763787E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.796765E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -7.255396E-02   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            3.747166E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            1.458689E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            2.460123E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            3.327466E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            4.011268E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            4.477092E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            4.690082E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            4.643754E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            4.340352E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            3.804015E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.053112E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.131538E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            1.088914E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -6.499213E-01  -3.575210E-01   0.0            0.0                           \r\n            65      G      0.0            0.0           -6.318663E-01  -3.477106E-01  -7.180278E-02   0.0                           \r\n            66      G      0.0            0.0           -5.788013E-01  -3.187308E-01  -1.388696E-01   0.0                           \r\n            67      G      0.0            0.0           -4.940598E-01  -2.720947E-01  -1.979970E-01   0.0                           \r\n            68      G      0.0            0.0           -3.821960E-01  -2.103633E-01  -2.464414E-01   0.0                           \r\n            69      G      0.0            0.0           -2.492118E-01  -1.371092E-01  -2.823133E-01   0.0                           \r\n            70      G      0.0            0.0           -1.019550E-01  -5.638435E-02  -3.025285E-01   0.0                           \r\n            71      G      0.0            0.0            5.094434E-02   2.758151E-02  -3.051325E-01   0.0                           \r\n            72      G      0.0            0.0            2.009621E-01   1.102610E-01  -2.908225E-01   0.0                           \r\n            73      G      0.0            0.0            3.396339E-01   1.868566E-01  -2.603267E-01   0.0                           \r\n            74      G      0.0            0.0            4.594099E-01   2.527112E-01  -2.155862E-01   0.0                           \r\n            75      G      0.0            0.0            5.537558E-01   3.042615E-01  -1.594978E-01   0.0                           \r\n            76      G      0.0            0.0            6.177545E-01   3.393674E-01  -9.454498E-02   0.0                           \r\n            77      G      0.0            0.0            6.475680E-01   3.561930E-01  -2.406538E-02   0.0                           \r\n            78      G      0.0            0.0            6.416357E-01   3.532121E-01   4.777397E-02   0.0                           \r\n            79      G      0.0            0.0            6.001576E-01   3.306193E-01   1.168870E-01   0.0                           \r\n            80      G      0.0            0.0            5.256610E-01   2.895939E-01   1.792449E-01   0.0                           \r\n            81      G      0.0            0.0            4.222110E-01   2.324696E-01   2.317385E-01   0.0                           \r\n            82      G      0.0            0.0            2.954330E-01   1.625768E-01   2.723475E-01   0.0                           \r\n            83      G      0.0            0.0            1.518725E-01   8.372784E-02   2.977854E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            3.057666E-01   0.0                           \r\n           127      G      0.0            0.0           -9.879019E-01  -7.375669E-02   0.0            0.0                           \r\n           128      G      0.0            0.0           -9.604890E-01  -7.176004E-02  -1.088697E-01   0.0                           \r\n           129      G      0.0            0.0           -8.800576E-01  -6.590366E-02  -2.106489E-01   0.0                           \r\n           130      G      0.0            0.0           -7.512607E-01  -5.669199E-02  -3.013942E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -5.807648E-01  -4.394825E-02  -3.758796E-01   0.0                           \r\n           132      G      0.0            0.0           -3.781186E-01  -2.837857E-02  -4.295101E-01   0.0                           \r\n           133      G      0.0            0.0           -1.544140E-01  -1.140644E-02  -4.592650E-01   0.0                           \r\n           134      G      0.0            0.0            7.776684E-02   6.021157E-03  -4.634856E-01   0.0                           \r\n           135      G      0.0            0.0            3.057279E-01   2.296246E-02  -4.422440E-01   0.0                           \r\n           136      G      0.0            0.0            5.167917E-01   3.856529E-02  -3.965617E-01   0.0                           \r\n           137      G      0.0            0.0            6.992509E-01   5.222173E-02  -3.281711E-01   0.0                           \r\n           138      G      0.0            0.0            8.426129E-01   6.314839E-02  -2.418155E-01   0.0                           \r\n           139      G      0.0            0.0            9.394794E-01   7.050673E-02  -1.430024E-01   0.0                           \r\n           140      G      0.0            0.0            9.845582E-01   7.370806E-02  -3.629513E-02   0.0                           \r\n           141      G      0.0            0.0            9.755125E-01   7.283144E-02   7.235883E-02   0.0                           \r\n           142      G      0.0            0.0            9.126951E-01   6.829017E-02   1.772184E-01   0.0                           \r\n           143      G      0.0            0.0            7.994654E-01   6.027682E-02   2.729154E-01   0.0                           \r\n           144      G      0.0            0.0            6.417500E-01   4.850781E-02   3.535230E-01   0.0                           \r\n           145      G      0.0            0.0            4.485658E-01   3.369312E-02   4.142671E-01   0.0                           \r\n           146      G      0.0            0.0            2.305429E-01   1.725036E-02   4.519297E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            4.642937E-01   0.0                           \r\n           190      G      0.0            0.0           -8.530899E-01   2.468235E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -8.292521E-01   2.395379E-01  -9.449603E-02   0.0                           \r\n           192      G      0.0            0.0           -7.595809E-01   2.192500E-01  -1.821064E-01   0.0                           \r\n           193      G      0.0            0.0           -6.484163E-01   1.872432E-01  -2.598344E-01   0.0                           \r\n           194      G      0.0            0.0           -5.014601E-01   1.449086E-01  -3.241424E-01   0.0                           \r\n           195      G      0.0            0.0           -3.266070E-01   9.446843E-02  -3.707646E-01   0.0                           \r\n           196      G      0.0            0.0           -1.334312E-01   3.862712E-02  -3.967355E-01   0.0                           \r\n           197      G      0.0            0.0            6.716124E-02  -1.907107E-02  -4.003385E-01   0.0                           \r\n           198      G      0.0            0.0            2.639126E-01  -7.552855E-02  -3.814097E-01   0.0                           \r\n           199      G      0.0            0.0            4.458238E-01  -1.279178E-01  -3.416341E-01   0.0                           \r\n           200      G      0.0            0.0            6.031026E-01  -1.737446E-01  -2.832378E-01   0.0                           \r\n           201      G      0.0            0.0            7.270094E-01  -2.097388E-01  -2.091974E-01   0.0                           \r\n           202      G      0.0            0.0            8.108081E-01  -2.340074E-01  -1.237265E-01   0.0                           \r\n           203      G      0.0            0.0            8.498288E-01  -2.452234E-01  -3.137376E-02   0.0                           \r\n           204      G      0.0            0.0            8.419572E-01  -2.428835E-01   6.270753E-02   0.0                           \r\n           205      G      0.0            0.0            7.876331E-01  -2.272776E-01   1.530226E-01   0.0                           \r\n           206      G      0.0            0.0            6.899913E-01  -1.991874E-01   2.351271E-01   0.0                           \r\n           207      G      0.0            0.0            5.541194E-01  -1.599956E-01   3.047537E-01   0.0                           \r\n           208      G      0.0            0.0            3.874826E-01  -1.118169E-01   3.574790E-01   0.0                           \r\n           209      G      0.0            0.0            1.992652E-01  -5.745437E-02   3.903756E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.014289E-01   0.0                           \r\n           253      G      0.0            0.0           -3.093202E-01   4.471922E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -3.006981E-01   4.350228E-01  -3.421701E-02   0.0                           \r\n           255      G      0.0            0.0           -2.754542E-01   3.985969E-01  -6.600463E-02   0.0                           \r\n           256      G      0.0            0.0           -2.351339E-01   3.401832E-01  -9.432127E-02   0.0                           \r\n           257      G      0.0            0.0           -1.817636E-01   2.629876E-01  -1.176935E-01   0.0                           \r\n           258      G      0.0            0.0           -1.183128E-01   1.712708E-01  -1.344779E-01   0.0                           \r\n           259      G      0.0            0.0           -4.829744E-02   7.005540E-02  -1.436602E-01   0.0                           \r\n           260      G      0.0            0.0            2.434226E-02  -3.516291E-02  -1.451209E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            9.573547E-02  -1.385309E-01  -1.384162E-01   0.0                           \r\n           262      G      0.0            0.0            1.616831E-01  -2.341802E-01  -1.237012E-01   0.0                           \r\n           263      G      0.0            0.0            2.185814E-01  -3.167233E-01  -1.023304E-01   0.0                           \r\n           264      G      0.0            0.0            2.633041E-01  -3.817164E-01  -7.545655E-02   0.0                           \r\n           265      G      0.0            0.0            2.935207E-01  -4.257775E-01  -4.460222E-02   0.0                           \r\n           266      G      0.0            0.0            3.076355E-01  -4.464606E-01  -1.156976E-02   0.0                           \r\n           267      G      0.0            0.0            3.049936E-01  -4.422873E-01   2.221845E-02   0.0                           \r\n           268      G      0.0            0.0            2.855269E-01  -4.134865E-01   5.508630E-02   0.0                           \r\n           269      G      0.0            0.0            2.502670E-01  -3.619420E-01   8.510524E-02   0.0                           \r\n           270      G      0.0            0.0            2.010173E-01  -2.904904E-01   1.105196E-01   0.0                           \r\n           271      G      0.0            0.0            1.405700E-01  -2.030650E-01   1.297209E-01   0.0                           \r\n           272      G      0.0            0.0            7.226314E-02  -1.044498E-01   1.416383E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            1.455262E-01   0.0                           \r\n           316      G      0.0            0.0            3.826295E-01   4.345918E-01   0.0            0.0                           \r\n           317      G      0.0            0.0            3.721535E-01   4.225100E-01   4.166627E-02   0.0                           \r\n           318      G      0.0            0.0            3.411617E-01   3.871558E-01   8.156501E-02   0.0                           \r\n           319      G      0.0            0.0            2.911821E-01   3.304660E-01   1.169566E-01   0.0                           \r\n           320      G      0.0            0.0            2.250926E-01   2.553718E-01   1.456739E-01   0.0                           \r\n           321      G      0.0            0.0            1.466174E-01   1.660128E-01   1.660780E-01   0.0                           \r\n           322      G      0.0            0.0            6.019425E-02   6.767391E-02   1.774943E-01   0.0                           \r\n           323      G      0.0            0.0           -2.964399E-02  -3.421630E-02   1.794336E-01   0.0                           \r\n           324      G      0.0            0.0           -1.179537E-01  -1.343055E-01   1.715418E-01   0.0                           \r\n           325      G      0.0            0.0           -1.999176E-01  -2.270386E-01   1.540533E-01   0.0                           \r\n           326      G      0.0            0.0           -2.708249E-01  -3.072689E-01   1.277410E-01   0.0                           \r\n           327      G      0.0            0.0           -3.266995E-01  -3.705474E-01   9.421688E-02   0.0                           \r\n           328      G      0.0            0.0           -3.644161E-01  -4.133030E-01   5.580809E-02   0.0                           \r\n           329      G      0.0            0.0           -3.820845E-01  -4.331461E-01   1.425343E-02   0.0                           \r\n           330      G      0.0            0.0           -3.785032E-01  -4.291160E-01  -2.842178E-02   0.0                           \r\n           331      G      0.0            0.0           -3.539168E-01  -4.014606E-01  -6.932799E-02   0.0                           \r\n           332      G      0.0            0.0           -3.097159E-01  -3.516722E-01  -1.062395E-01   0.0                           \r\n           333      G      0.0            0.0           -2.484748E-01  -2.822713E-01  -1.371357E-01   0.0                           \r\n           334      G      0.0            0.0           -1.736082E-01  -1.971333E-01  -1.602932E-01   0.0                           \r\n           335      G      0.0            0.0           -8.931088E-02  -1.012123E-01  -1.748172E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0           -1.800073E-01   0.0                           \r\n           379      G      0.0            0.0            8.910991E-01   2.135947E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            8.665490E-01   2.076717E-01   9.760470E-02   0.0                           \r\n           381      G      0.0            0.0            7.941368E-01   1.902629E-01   1.901514E-01   0.0                           \r\n           382      G      0.0            0.0            6.778047E-01   1.623283E-01   2.720571E-01   0.0                           \r\n           383      G      0.0            0.0            5.240393E-01   1.254976E-01   3.390473E-01   0.0                           \r\n           384      G      0.0            0.0            3.412403E-01   8.178541E-02   3.872467E-01   0.0                           \r\n           385      G      0.0            0.0            1.396385E-01   3.351891E-02   4.138977E-01   0.0                           \r\n           386      G      0.0            0.0           -6.968839E-02  -1.667552E-02   4.178566E-01   0.0                           \r\n           387      G      0.0            0.0           -2.751916E-01  -6.593062E-02   3.987801E-01   0.0                           \r\n           388      G      0.0            0.0           -4.655628E-01  -1.114118E-01   3.576689E-01   0.0                           \r\n           389      G      0.0            0.0           -6.302662E-01  -1.506301E-01   2.968482E-01   0.0                           \r\n           390      G      0.0            0.0           -7.602251E-01  -1.816640E-01   2.194592E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -8.480927E-01  -2.028058E-01   1.297328E-01   0.0                           \r\n           392      G      0.0            0.0           -8.890039E-01  -2.127064E-01   3.279408E-02   0.0                           \r\n           393      G      0.0            0.0           -8.806616E-01  -2.108083E-01  -6.587889E-02   0.0                           \r\n           394      G      0.0            0.0           -8.236475E-01  -1.972215E-01  -1.606956E-01   0.0                           \r\n           395      G      0.0            0.0           -7.211625E-01  -1.727140E-01  -2.464983E-01   0.0                           \r\n           396      G      0.0            0.0           -5.789057E-01  -1.387102E-01  -3.188789E-01   0.0                           \r\n           397      G      0.0            0.0           -4.046121E-01  -9.706588E-02  -3.736083E-01   0.0                           \r\n           398      G      0.0            0.0           -2.080476E-01  -4.998581E-02  -4.075270E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0           -4.191557E-01   0.0                           \r\n           442      G      0.0            0.0            9.722588E-01  -1.097283E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            9.455553E-01  -1.066434E-01   1.062813E-01   0.0                           \r\n           444      G      0.0            0.0            8.665680E-01  -9.759264E-02   2.076299E-01   0.0                           \r\n           445      G      0.0            0.0            7.394707E-01  -8.330946E-02   2.972891E-01   0.0                           \r\n           446      G      0.0            0.0            5.715124E-01  -6.456706E-02   3.701474E-01   0.0                           \r\n           447      G      0.0            0.0            3.720415E-01  -4.218755E-02   4.224430E-01   0.0                           \r\n           448      G      0.0            0.0            1.521273E-01  -1.739673E-02   4.514950E-01   0.0                           \r\n           449      G      0.0            0.0           -7.621551E-02   8.435761E-03   4.558484E-01   0.0                           \r\n           450      G      0.0            0.0           -3.004247E-01   3.384856E-02   4.351282E-01   0.0                           \r\n           451      G      0.0            0.0           -5.081223E-01   5.735113E-02   3.900861E-01   0.0                           \r\n           452      G      0.0            0.0           -6.876614E-01   7.764291E-02   3.234319E-01   0.0                           \r\n           453      G      0.0            0.0           -8.292280E-01   9.367730E-02   2.390596E-01   0.0                           \r\n           454      G      0.0            0.0           -9.249538E-01   1.046213E-01   1.413680E-01   0.0                           \r\n           455      G      0.0            0.0           -9.695622E-01   1.097849E-01   3.585069E-02   0.0                           \r\n           456      G      0.0            0.0           -9.605477E-01   1.087543E-01  -7.165456E-02   0.0                           \r\n           457      G      0.0            0.0           -8.984170E-01   1.015996E-01  -1.752846E-01   0.0                           \r\n           458      G      0.0            0.0           -7.865607E-01   8.895513E-02  -2.690958E-01   0.0                           \r\n           459      G      0.0            0.0           -6.313115E-01   7.152070E-02  -3.478519E-01   0.0                           \r\n           460      G      0.0            0.0           -4.412476E-01   5.006702E-02  -4.073572E-01   0.0                           \r\n           461      G      0.0            0.0           -2.269031E-01   2.577843E-02  -4.444435E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -4.571745E-01   0.0                           \r\n           505      G      0.0            0.0            5.878385E-01  -3.804987E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            5.716102E-01  -3.700379E-01   6.441392E-02   0.0                           \r\n           507      G      0.0            0.0            5.238349E-01  -3.391781E-01   1.255251E-01   0.0                           \r\n           508      G      0.0            0.0            4.469773E-01  -2.895482E-01   1.798176E-01   0.0                           \r\n           509      G      0.0            0.0            3.453836E-01  -2.238660E-01   2.239073E-01   0.0                           \r\n           510      G      0.0            0.0            2.247247E-01  -1.457943E-01   2.555110E-01   0.0                           \r\n           511      G      0.0            0.0            9.172839E-02  -5.978263E-02   2.730021E-01   0.0                           \r\n           512      G      0.0            0.0           -4.628759E-02   2.945352E-02   2.753907E-01   0.0                           \r\n           513      G      0.0            0.0           -1.816777E-01   1.171631E-01   2.626968E-01   0.0                           \r\n           514      G      0.0            0.0           -3.070895E-01   1.985777E-01   2.356023E-01   0.0                           \r\n           515      G      0.0            0.0           -4.155534E-01   2.689797E-01   1.954229E-01   0.0                           \r\n           516      G      0.0            0.0           -5.010746E-01   3.244902E-01   1.443605E-01   0.0                           \r\n           517      G      0.0            0.0           -5.588367E-01   3.620324E-01   8.518466E-02   0.0                           \r\n           518      G      0.0            0.0           -5.856349E-01   3.795666E-01   2.127384E-02   0.0                           \r\n           519      G      0.0            0.0           -5.800056E-01   3.761566E-01  -4.355707E-02   0.0                           \r\n           520      G      0.0            0.0           -5.424078E-01   3.519990E-01  -1.059090E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -4.748521E-01   3.083355E-01  -1.625028E-01   0.0                           \r\n           522      G      0.0            0.0           -3.811140E-01   2.475440E-01  -2.100184E-01   0.0                           \r\n           523      G      0.0            0.0           -2.663676E-01   1.730026E-01  -2.459172E-01   0.0                           \r\n           524      G      0.0            0.0           -1.369717E-01   8.895218E-02  -2.682931E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -2.759750E-01   0.0                           \r\n           568      G      0.0            0.0           -7.825139E-02  -4.687254E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -7.606673E-02  -4.558217E-01  -8.643044E-03   0.0                           \r\n           570      G      0.0            0.0           -6.973389E-02  -4.177083E-01  -1.647378E-02   0.0                           \r\n           571      G      0.0            0.0           -5.969130E-02  -3.564981E-01  -2.349589E-02   0.0                           \r\n           572      G      0.0            0.0           -4.635295E-02  -2.756029E-01  -2.950048E-02   0.0                           \r\n           573      G      0.0            0.0           -3.038001E-02  -1.794997E-01  -3.400017E-02   0.0                           \r\n           574      G      0.0            0.0           -1.264179E-02  -7.344209E-02  -3.640035E-02   0.0                           \r\n           575      G      0.0            0.0            5.746331E-03   3.671021E-02  -3.673326E-02   0.0                           \r\n           576      G      0.0            0.0            2.384919E-02   1.448169E-01  -3.517026E-02   0.0                           \r\n           577      G      0.0            0.0            4.064970E-02   2.448636E-01  -3.163049E-02   0.0                           \r\n           578      G      0.0            0.0            5.525579E-02   3.313824E-01  -2.638557E-02   0.0                           \r\n           579      G      0.0            0.0            6.685031E-02   3.996882E-01  -1.970218E-02   0.0                           \r\n           580      G      0.0            0.0            7.479863E-02   4.459887E-01  -1.183982E-02   0.0                           \r\n           581      G      0.0            0.0            7.860286E-02   4.675437E-01  -3.343679E-03   0.0                           \r\n           582      G      0.0            0.0            7.811881E-02   4.631521E-01   5.307741E-03   0.0                           \r\n           583      G      0.0            0.0            7.331837E-02   4.331982E-01   1.374608E-02   0.0                           \r\n           584      G      0.0            0.0            6.444854E-02   3.793356E-01   2.155279E-02   0.0                           \r\n           585      G      0.0            0.0            5.188941E-02   3.045398E-01   2.833509E-02   0.0                           \r\n           586      G      0.0            0.0            3.631622E-02   2.129286E-01   3.357168E-02   0.0                           \r\n           587      G      0.0            0.0            1.862749E-02   1.095130E-01   3.662561E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            3.744583E-02   0.0                           \r\n           631      G      0.0            0.0           -7.067467E-01  -3.323807E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -6.872219E-01  -3.231540E-01  -7.756542E-02   0.0                           \r\n           633      G      0.0            0.0           -6.297791E-01  -2.961153E-01  -1.506626E-01   0.0                           \r\n           634      G      0.0            0.0           -5.376353E-01  -2.526611E-01  -2.155160E-01   0.0                           \r\n           635      G      0.0            0.0           -4.158181E-01  -1.951872E-01  -2.685151E-01   0.0                           \r\n           636      G      0.0            0.0           -2.710520E-01  -1.270312E-01  -3.068084E-01   0.0                           \r\n           637      G      0.0            0.0           -1.112277E-01  -5.195390E-02  -3.282413E-01   0.0                           \r\n           638      G      0.0            0.0            5.479555E-02   2.604219E-02  -3.315049E-01   0.0                           \r\n           639      G      0.0            0.0            2.178528E-01   1.026460E-01  -3.163835E-01   0.0                           \r\n           640      G      0.0            0.0            3.688565E-01   1.736158E-01  -2.836794E-01   0.0                           \r\n           641      G      0.0            0.0            4.994692E-01   2.350077E-01  -2.353074E-01   0.0                           \r\n           642      G      0.0            0.0            6.024976E-01   2.833681E-01  -1.741760E-01   0.0                           \r\n           643      G      0.0            0.0            6.723755E-01   3.160225E-01  -1.034217E-01   0.0                           \r\n           644      G      0.0            0.0            7.051264E-01   3.312255E-01  -2.674405E-02   0.0                           \r\n           645      G      0.0            0.0            6.989217E-01   3.281859E-01   5.144658E-02   0.0                           \r\n           646      G      0.0            0.0            6.540364E-01   3.070148E-01   1.268932E-01   0.0                           \r\n           647      G      0.0            0.0            5.729359E-01   2.687905E-01   1.953931E-01   0.0                           \r\n           648      G      0.0            0.0            4.600734E-01   2.156407E-01   2.530460E-01   0.0                           \r\n           649      G      0.0            0.0            3.217257E-01   1.506809E-01   2.967702E-01   0.0                           \r\n           650      G      0.0            0.0            1.654620E-01   7.749747E-02   3.241270E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.333513E-01   0.0                           \r\n           694      G      0.0            0.0           -9.962265E-01  -3.685114E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -9.686863E-01  -3.573159E-02  -1.093839E-01   0.0                           \r\n           696      G      0.0            0.0           -8.877025E-01  -3.267774E-02  -2.123852E-01   0.0                           \r\n           697      G      0.0            0.0           -7.577978E-01  -2.787544E-02  -3.038987E-01   0.0                           \r\n           698      G      0.0            0.0           -5.859812E-01  -2.158106E-02  -3.788033E-01   0.0                           \r\n           699      G      0.0            0.0           -3.817566E-01  -1.406243E-02  -4.327420E-01   0.0                           \r\n           700      G      0.0            0.0           -1.563785E-01  -5.705391E-03  -4.627976E-01   0.0                           \r\n           701      G      0.0            0.0            7.766469E-02   2.996569E-03  -4.672304E-01   0.0                           \r\n           702      G      0.0            0.0            3.074450E-01   1.145646E-02  -4.458274E-01   0.0                           \r\n           703      G      0.0            0.0            5.202591E-01   1.921735E-02  -3.998577E-01   0.0                           \r\n           704      G      0.0            0.0            7.043912E-01   2.598893E-02  -3.317688E-01   0.0                           \r\n           705      G      0.0            0.0            8.496057E-01   3.139672E-02  -2.452932E-01   0.0                           \r\n           706      G      0.0            0.0            9.478977E-01   3.502724E-02  -1.452634E-01   0.0                           \r\n           707      G      0.0            0.0            9.938113E-01   3.667830E-02  -3.721448E-02   0.0                           \r\n           708      G      0.0            0.0            9.848456E-01   3.627047E-02   7.286320E-02   0.0                           \r\n           709      G      0.0            0.0            9.214666E-01   3.385724E-02   1.789692E-01   0.0                           \r\n           710      G      0.0            0.0            8.071324E-01   2.963125E-02   2.754253E-01   0.0                           \r\n           711      G      0.0            0.0            6.480401E-01   2.382084E-02   3.567014E-01   0.0                           \r\n           712      G      0.0            0.0            4.530554E-01   1.669257E-02   4.181223E-01   0.0                           \r\n           713      G      0.0            0.0            2.329657E-01   8.596987E-03   4.564013E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            4.693387E-01   0.0                           \r\n           757      G      0.0            0.0           -8.081465E-01   2.762674E-01   0.0            0.0                           \r\n           758      G      0.0            0.0           -7.857888E-01   2.685765E-01  -8.882818E-02   0.0                           \r\n           759      G      0.0            0.0           -7.200222E-01   2.461211E-01  -1.724603E-01   0.0                           \r\n           760      G      0.0            0.0           -6.145790E-01   2.101681E-01  -2.465857E-01   0.0                           \r\n           761      G      0.0            0.0           -4.752026E-01   1.625773E-01  -3.072422E-01   0.0                           \r\n           762      G      0.0            0.0           -3.095511E-01   1.059641E-01  -3.510421E-01   0.0                           \r\n           763      G      0.0            0.0           -1.266994E-01   4.345362E-02  -3.755291E-01   0.0                           \r\n           764      G      0.0            0.0            6.323877E-02  -2.147758E-02  -3.792384E-01   0.0                           \r\n           765      G      0.0            0.0            2.497354E-01  -8.518964E-02  -3.617714E-01   0.0                           \r\n           766      G      0.0            0.0            4.223723E-01  -1.441632E-01  -3.242888E-01   0.0                           \r\n           767      G      0.0            0.0            5.716897E-01  -1.951943E-01  -2.690297E-01   0.0                           \r\n           768      G      0.0            0.0            6.894369E-01  -2.355007E-01  -1.988931E-01   0.0                           \r\n           769      G      0.0            0.0            7.691355E-01  -2.628111E-01  -1.177834E-01   0.0                           \r\n           770      G      0.0            0.0            8.063595E-01  -2.755337E-01  -3.014145E-02   0.0                           \r\n           771      G      0.0            0.0            7.990354E-01  -2.729711E-01   5.927996E-02   0.0                           \r\n           772      G      0.0            0.0            7.475045E-01  -2.553945E-01   1.454347E-01   0.0                           \r\n           773      G      0.0            0.0            6.546604E-01  -2.237704E-01   2.235276E-01   0.0                           \r\n           774      G      0.0            0.0            5.255991E-01  -1.797243E-01   2.892984E-01   0.0                           \r\n           775      G      0.0            0.0            3.674646E-01  -1.256922E-01   3.391100E-01   0.0                           \r\n           776      G      0.0            0.0            1.889586E-01  -6.466107E-02   3.701861E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            3.806841E-01   0.0                           \r\n           820      G      0.0            0.0           -2.332367E-01   4.568155E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -2.267524E-01   4.441704E-01  -2.571671E-02   0.0                           \r\n           822      G      0.0            0.0           -2.077485E-01   4.069902E-01  -4.978951E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.261275E+04    (CYCLIC FREQUENCY =  8.135221E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.773202E-01   3.473912E-01  -7.115261E-02   0.0                           \r\n           824      G      0.0            0.0           -1.371009E-01   2.685710E-01  -8.864663E-02   0.0                           \r\n           825      G      0.0            0.0           -8.931134E-02   1.749356E-01  -1.012789E-01   0.0                           \r\n           826      G      0.0            0.0           -3.656138E-02   7.161114E-02  -1.083133E-01   0.0                           \r\n           827      G      0.0            0.0            1.821462E-02  -3.567435E-02  -1.093834E-01   0.0                           \r\n           828      G      0.0            0.0            7.202370E-02  -1.411311E-01  -1.043993E-01   0.0                           \r\n           829      G      0.0            0.0            1.218533E-01  -2.387629E-01  -9.363480E-02   0.0                           \r\n           830      G      0.0            0.0            1.649730E-01  -3.232009E-01  -7.766975E-02   0.0                           \r\n           831      G      0.0            0.0            1.989463E-01  -3.897515E-01  -5.734703E-02   0.0                           \r\n           832      G      0.0            0.0            2.219068E-01  -4.347788E-01  -3.387149E-02   0.0                           \r\n           833      G      0.0            0.0            2.326007E-01  -4.557811E-01  -8.693589E-03   0.0                           \r\n           834      G      0.0            0.0            2.305276E-01  -4.516589E-01   1.700142E-02   0.0                           \r\n           835      G      0.0            0.0            2.156940E-01  -4.225599E-01   4.192498E-02   0.0                           \r\n           836      G      0.0            0.0            1.889177E-01  -3.700972E-01   6.449658E-02   0.0                           \r\n           837      G      0.0            0.0            1.516711E-01  -2.971038E-01   8.348637E-02   0.0                           \r\n           838      G      0.0            0.0            1.060367E-01  -2.076974E-01   9.787256E-02   0.0                           \r\n           839      G      0.0            0.0            5.451548E-02  -1.067900E-01   1.068256E-01   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.098120E-01   0.0                           \r\n           841      G      0.0            0.0            0.0            4.699495E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            4.568501E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            4.185437E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            3.572395E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            2.762113E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.799499E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            7.365596E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -3.669424E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -1.450931E-01   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -2.454558E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -3.323560E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -4.007872E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -4.470423E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -4.685377E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -4.644106E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -4.345281E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -3.806037E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.055690E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.136489E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.098318E-01   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.527765E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            4.845231E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            5.146841E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.985029E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            3.154158E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            2.492074E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            2.461495E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            6.592649E-02   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -4.793906E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -1.850065E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -2.807752E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -3.531848E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.483678E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -4.048007E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -4.404873E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -4.589790E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -3.488607E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.866853E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -2.399426E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -2.306159E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            5.948777E-01   3.215638E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            5.927671E-01   3.017612E-01  -5.690660E-04   0.0                           \r\n            66      G      0.0            0.0            5.713000E-01   2.573175E-01   1.139949E-01   0.0                           \r\n            67      G      0.0            0.0            4.717889E-01   2.044920E-01   2.605722E-01   0.0                           \r\n            68      G      0.0            0.0            3.202071E-01   1.493269E-01   3.511686E-01   0.0                           \r\n            69      G      0.0            0.0            1.534367E-01   7.133383E-02   2.618705E-01   0.0                           \r\n            70      G      0.0            0.0            5.741364E-02  -2.491802E-02   1.645474E-01   0.0                           \r\n            71      G      0.0            0.0           -3.607767E-02  -9.865721E-02   1.919723E-01   0.0                           \r\n            72      G      0.0            0.0           -1.330008E-01  -1.285674E-01   2.166995E-01   0.0                           \r\n            73      G      0.0            0.0           -2.544112E-01  -1.475303E-01   2.472924E-01   0.0                           \r\n            74      G      0.0            0.0           -3.768889E-01  -2.187791E-01   2.437195E-01   0.0                           \r\n            75      G      0.0            0.0           -4.813615E-01  -3.272774E-01   1.426251E-01   0.0                           \r\n            76      G      0.0            0.0           -5.181417E-01  -3.605902E-01   4.309331E-02   0.0                           \r\n            77      G      0.0            0.0           -5.316878E-01  -3.017735E-01  -1.084138E-02   0.0                           \r\n            78      G      0.0            0.0           -5.094262E-01  -2.448193E-01  -5.703802E-02   0.0                           \r\n            79      G      0.0            0.0           -4.731700E-01  -1.893061E-01  -1.106009E-01   0.0                           \r\n            80      G      0.0            0.0           -3.905445E-01  -1.495128E-01  -2.007174E-01   0.0                           \r\n            81      G      0.0            0.0           -2.747032E-01  -1.179751E-01  -2.724914E-01   0.0                           \r\n            82      G      0.0            0.0           -1.460354E-01  -7.021932E-02  -1.904925E-01   0.0                           \r\n            83      G      0.0            0.0           -8.063018E-02  -1.606095E-02  -1.177995E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -1.920764E-01   0.0                           \r\n           127      G      0.0            0.0            7.598825E-01  -1.745203E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            7.542871E-01  -1.776357E-01   3.097615E-02   0.0                           \r\n           129      G      0.0            0.0            6.942222E-01  -1.901861E-01   2.204408E-01   0.0                           \r\n           130      G      0.0            0.0            5.529193E-01  -2.382680E-01   3.025596E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            4.084012E-01  -2.150578E-01   3.033522E-01   0.0                           \r\n           132      G      0.0            0.0            2.520719E-01  -1.212818E-01   2.948773E-01   0.0                           \r\n           133      G      0.0            0.0            1.109122E-01  -4.628312E-02   2.872200E-01   0.0                           \r\n           134      G      0.0            0.0           -3.876885E-02   5.028433E-03   2.845332E-01   0.0                           \r\n           135      G      0.0            0.0           -1.676046E-01   3.354732E-02   2.425755E-01   0.0                           \r\n           136      G      0.0            0.0           -2.804809E-01   5.072011E-02   1.880945E-01   0.0                           \r\n           137      G      0.0            0.0           -3.783680E-01   9.398667E-02   2.446511E-01   0.0                           \r\n           138      G      0.0            0.0           -5.187301E-01   1.562640E-01   2.646722E-01   0.0                           \r\n           139      G      0.0            0.0           -6.163197E-01   1.980991E-01   1.370198E-01   0.0                           \r\n           140      G      0.0            0.0           -6.585162E-01   1.890359E-01   4.900124E-03   0.0                           \r\n           141      G      0.0            0.0           -6.220984E-01   1.674889E-01  -1.313595E-01   0.0                           \r\n           142      G      0.0            0.0           -5.338045E-01   1.890133E-01  -2.246223E-01   0.0                           \r\n           143      G      0.0            0.0           -4.175483E-01   2.430368E-01  -2.066590E-01   0.0                           \r\n           144      G      0.0            0.0           -3.309240E-01   2.167501E-01  -1.770876E-01   0.0                           \r\n           145      G      0.0            0.0           -2.332869E-01   1.207664E-01  -1.884786E-01   0.0                           \r\n           146      G      0.0            0.0           -1.355506E-01   5.134929E-02  -2.217110E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -2.969959E-01   0.0                           \r\n           190      G      0.0            0.0            2.381407E-01  -2.818998E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            2.666031E-01  -3.463943E-01  -7.894704E-02   0.0                           \r\n           192      G      0.0            0.0            2.719615E-01  -3.602471E-01   9.473303E-02   0.0                           \r\n           193      G      0.0            0.0            1.820112E-01  -2.977483E-01   2.305007E-01   0.0                           \r\n           194      G      0.0            0.0            7.148554E-02  -2.186883E-01   2.045735E-01   0.0                           \r\n           195      G      0.0            0.0           -1.549682E-02  -1.442987E-01   1.253952E-01   0.0                           \r\n           196      G      0.0            0.0           -5.723343E-02  -9.027751E-02   5.727683E-02   0.0                           \r\n           197      G      0.0            0.0           -8.347302E-02   1.037704E-02   4.845735E-02   0.0                           \r\n           198      G      0.0            0.0           -1.171544E-01   1.390544E-01   9.633068E-02   0.0                           \r\n           199      G      0.0            0.0           -1.748694E-01   2.449010E-01   1.039879E-01   0.0                           \r\n           200      G      0.0            0.0           -2.146206E-01   2.616522E-01   6.888808E-02   0.0                           \r\n           201      G      0.0            0.0           -2.429512E-01   2.993978E-01   3.276850E-02   0.0                           \r\n           202      G      0.0            0.0           -2.439749E-01   3.409907E-01  -1.903249E-02   0.0                           \r\n           203      G      0.0            0.0           -2.267303E-01   3.811757E-01  -5.610778E-02   0.0                           \r\n           204      G      0.0            0.0           -1.894470E-01   3.991777E-01  -8.347747E-02   0.0                           \r\n           205      G      0.0            0.0           -1.369814E-01   3.690089E-01  -1.449111E-01   0.0                           \r\n           206      G      0.0            0.0           -5.512484E-02   3.040814E-01  -1.566707E-01   0.0                           \r\n           207      G      0.0            0.0            3.628080E-03   2.334993E-01  -8.068164E-02   0.0                           \r\n           208      G      0.0            0.0            2.979517E-02   1.691621E-01  -1.191500E-02   0.0                           \r\n           209      G      0.0            0.0            2.052233E-02   9.403726E-02   4.006727E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            4.022207E-02   0.0                           \r\n           253      G      0.0            0.0           -3.816219E-01  -3.554326E-01   0.0            0.0                           \r\n           254      G      0.0            0.0           -3.674310E-01  -3.187128E-01  -4.960091E-02   0.0                           \r\n           255      G      0.0            0.0           -3.467273E-01  -2.994018E-01  -1.901291E-02   0.0                           \r\n           256      G      0.0            0.0           -3.405978E-01  -2.595101E-01  -2.117899E-02   0.0                           \r\n           257      G      0.0            0.0           -3.146749E-01  -2.038884E-01  -7.215372E-02   0.0                           \r\n           258      G      0.0            0.0           -2.684689E-01  -1.355396E-01  -1.167595E-01   0.0                           \r\n           259      G      0.0            0.0           -2.010323E-01  -6.429936E-02  -1.384621E-01   0.0                           \r\n           260      G      0.0            0.0           -1.226861E-01  -7.935326E-03  -1.923039E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -1.337432E-02   3.699972E-02  -2.175794E-01   0.0                           \r\n           262      G      0.0            0.0            8.379560E-02   9.200818E-02  -1.770764E-01   0.0                           \r\n           263      G      0.0            0.0            1.690790E-01   1.693259E-01  -1.513426E-01   0.0                           \r\n           264      G      0.0            0.0            2.384313E-01   2.464521E-01  -1.344753E-01   0.0                           \r\n           265      G      0.0            0.0            3.057817E-01   2.866167E-01  -1.305016E-01   0.0                           \r\n           266      G      0.0            0.0            3.739918E-01   2.882570E-01  -1.526064E-01   0.0                           \r\n           267      G      0.0            0.0            4.530742E-01   3.008308E-01  -1.384133E-01   0.0                           \r\n           268      G      0.0            0.0            5.015129E-01   3.230140E-01  -6.127683E-02   0.0                           \r\n           269      G      0.0            0.0            5.062362E-01   3.089214E-01   5.439286E-02   0.0                           \r\n           270      G      0.0            0.0            4.434082E-01   2.608199E-01   1.829850E-01   0.0                           \r\n           271      G      0.0            0.0            3.278819E-01   1.839345E-01   2.814277E-01   0.0                           \r\n           272      G      0.0            0.0            1.689570E-01   9.022918E-02   3.381711E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            3.338228E-01   0.0                           \r\n           316      G      0.0            0.0           -5.657523E-01   7.979377E-02   0.0            0.0                           \r\n           317      G      0.0            0.0           -5.445532E-01   6.599781E-02  -7.834408E-02   0.0                           \r\n           318      G      0.0            0.0           -5.024529E-01   5.927652E-02  -7.650695E-02   0.0                           \r\n           319      G      0.0            0.0           -4.660878E-01   5.800986E-02  -7.956720E-02   0.0                           \r\n           320      G      0.0            0.0           -4.145972E-01   3.271690E-02  -1.222788E-01   0.0                           \r\n           321      G      0.0            0.0           -3.335433E-01  -1.575103E-02  -2.111328E-01   0.0                           \r\n           322      G      0.0            0.0           -2.057726E-01  -3.134058E-02  -2.718097E-01   0.0                           \r\n           323      G      0.0            0.0           -6.957021E-02  -1.317845E-02  -2.768380E-01   0.0                           \r\n           324      G      0.0            0.0            6.811376E-02  -3.646143E-03  -2.593377E-01   0.0                           \r\n           325      G      0.0            0.0            1.918571E-01   4.839647E-04  -2.461591E-01   0.0                           \r\n           326      G      0.0            0.0            3.214858E-01   2.070377E-03  -2.625051E-01   0.0                           \r\n           327      G      0.0            0.0            4.555628E-01   2.630946E-03  -2.792127E-01   0.0                           \r\n           328      G      0.0            0.0            5.873534E-01   1.229180E-02  -2.203137E-01   0.0                           \r\n           329      G      0.0            0.0            6.739594E-01   3.334741E-02  -1.450042E-01   0.0                           \r\n           330      G      0.0            0.0            7.377194E-01   4.288889E-02  -9.837945E-02   0.0                           \r\n           331      G      0.0            0.0            7.618183E-01   3.562745E-02  -5.119103E-03   0.0                           \r\n           332      G      0.0            0.0            7.354692E-01   1.674305E-02   1.201294E-01   0.0                           \r\n           333      G      0.0            0.0            6.381693E-01   2.186840E-02   2.617965E-01   0.0                           \r\n           334      G      0.0            0.0            4.716446E-01   4.472414E-02   4.080910E-01   0.0                           \r\n           335      G      0.0            0.0            2.404049E-01   4.684559E-02   4.872451E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            4.756863E-01   0.0                           \r\n           379      G      0.0            0.0           -1.457179E-01   4.334917E-01   0.0            0.0                           \r\n           380      G      0.0            0.0           -1.406525E-01   4.175569E-01  -1.247164E-02   0.0                           \r\n           381      G      0.0            0.0           -1.420566E-01   3.758257E-01   2.019833E-02   0.0                           \r\n           382      G      0.0            0.0           -1.543704E-01   3.109978E-01   2.014314E-02   0.0                           \r\n           383      G      0.0            0.0           -1.613555E-01   2.406063E-01   2.160110E-02   0.0                           \r\n           384      G      0.0            0.0           -1.693479E-01   1.665605E-01  -2.957579E-03   0.0                           \r\n           385      G      0.0            0.0           -1.503911E-01   8.073569E-02  -6.509155E-02   0.0                           \r\n           386      G      0.0            0.0           -1.081761E-01  -1.734280E-02  -1.082092E-01   0.0                           \r\n           387      G      0.0            0.0           -4.326462E-02  -1.075552E-01  -1.435714E-01   0.0                           \r\n           388      G      0.0            0.0            3.532337E-02  -1.677967E-01  -1.712209E-01   0.0                           \r\n           389      G      0.0            0.0            1.243795E-01  -1.988124E-01  -1.754432E-01   0.0                           \r\n           390      G      0.0            0.0            2.110050E-01  -2.368230E-01  -1.836582E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.086851E-01  -2.818998E-01  -1.981290E-01   0.0                           \r\n           392      G      0.0            0.0            4.052537E-01  -3.055593E-01  -1.907931E-01   0.0                           \r\n           393      G      0.0            0.0            4.921924E-01  -3.060420E-01  -1.442036E-01   0.0                           \r\n           394      G      0.0            0.0            5.386860E-01  -2.850708E-01  -4.325037E-02   0.0                           \r\n           395      G      0.0            0.0            5.289930E-01  -2.470134E-01   8.866687E-02   0.0                           \r\n           396      G      0.0            0.0            4.557785E-01  -2.048330E-01   1.869693E-01   0.0                           \r\n           397      G      0.0            0.0            3.433012E-01  -1.571364E-01   2.733997E-01   0.0                           \r\n           398      G      0.0            0.0            1.821879E-01  -9.149776E-02   3.570678E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            3.693891E-01   0.0                           \r\n           442      G      0.0            0.0            5.156363E-01   4.425480E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            5.139745E-01   4.365648E-01   3.209266E-02   0.0                           \r\n           444      G      0.0            0.0            4.577983E-01   4.141146E-01   1.967215E-01   0.0                           \r\n           445      G      0.0            0.0            3.268727E-01   3.418795E-01   3.038136E-01   0.0                           \r\n           446      G      0.0            0.0            1.707309E-01   2.272426E-01   3.192316E-01   0.0                           \r\n           447      G      0.0            0.0            1.791115E-02   1.099232E-01   2.804787E-01   0.0                           \r\n           448      G      0.0            0.0           -1.063586E-01  -7.765651E-04   2.228891E-01   0.0                           \r\n           449      G      0.0            0.0           -2.077743E-01  -9.775409E-02   1.767562E-01   0.0                           \r\n           450      G      0.0            0.0           -2.836938E-01  -1.801844E-01   1.307539E-01   0.0                           \r\n           451      G      0.0            0.0           -3.296814E-01  -2.563620E-01   3.555055E-02   0.0                           \r\n           452      G      0.0            0.0           -3.194545E-01  -3.225942E-01  -6.271624E-02   0.0                           \r\n           453      G      0.0            0.0           -2.751178E-01  -3.645749E-01  -1.202147E-01   0.0                           \r\n           454      G      0.0            0.0           -2.005334E-01  -3.729070E-01  -1.687091E-01   0.0                           \r\n           455      G      0.0            0.0           -1.118156E-01  -3.610242E-01  -1.890607E-01   0.0                           \r\n           456      G      0.0            0.0           -1.807818E-02  -3.499728E-01  -1.800541E-01   0.0                           \r\n           457      G      0.0            0.0            6.514607E-02  -3.391214E-01  -1.578407E-01   0.0                           \r\n           458      G      0.0            0.0            1.332904E-01  -2.934752E-01  -9.742488E-02   0.0                           \r\n           459      G      0.0            0.0            1.569755E-01  -2.154566E-01  -2.453721E-03   0.0                           \r\n           460      G      0.0            0.0            1.365665E-01  -1.381634E-01   8.966821E-02   0.0                           \r\n           461      G      0.0            0.0            7.402887E-02  -6.544403E-02   1.483210E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            1.481996E-01   0.0                           \r\n           505      G      0.0            0.0            9.758644E-01   1.074777E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            9.363583E-01   9.456564E-02   1.457364E-01   0.0                           \r\n           507      G      0.0            0.0            8.241476E-01   6.508118E-02   3.134233E-01   0.0                           \r\n           508      G      0.0            0.0            6.252720E-01   3.263392E-02   4.652624E-01   0.0                           \r\n           509      G      0.0            0.0            3.752095E-01   3.411601E-03   5.297817E-01   0.0                           \r\n           510      G      0.0            0.0            1.076447E-01  -2.524807E-02   5.247158E-01   0.0                           \r\n           511      G      0.0            0.0           -1.422672E-01  -7.140662E-02   4.703087E-01   0.0                           \r\n           512      G      0.0            0.0           -3.559935E-01  -1.261732E-01   3.711225E-01   0.0                           \r\n           513      G      0.0            0.0           -5.125470E-01  -1.588376E-01   2.630365E-01   0.0                           \r\n           514      G      0.0            0.0           -6.204671E-01  -1.555466E-01   1.576451E-01   0.0                           \r\n           515      G      0.0            0.0           -6.698881E-01  -1.495080E-01   4.200939E-02   0.0                           \r\n           516      G      0.0            0.0           -6.640303E-01  -1.396407E-01  -7.275753E-02   0.0                           \r\n           517      G      0.0            0.0           -5.988918E-01  -1.284202E-01  -1.829108E-01   0.0                           \r\n           518      G      0.0            0.0           -4.873455E-01  -1.117269E-01  -2.637152E-01   0.0                           \r\n           519      G      0.0            0.0           -3.496836E-01  -8.607997E-02  -2.692269E-01   0.0                           \r\n           520      G      0.0            0.0           -2.258259E-01  -5.211807E-02  -2.314810E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.194690E-01  -2.602191E-02  -1.852094E-01   0.0                           \r\n           522      G      0.0            0.0           -4.558096E-02  -1.444437E-02  -1.131220E-01   0.0                           \r\n           523      G      0.0            0.0           -5.339085E-03  -1.485255E-02  -4.186428E-02   0.0                           \r\n           524      G      0.0            0.0            2.823182E-03  -8.285612E-03   4.697385E-03   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            8.613319E-03   0.0                           \r\n           568      G      0.0            0.0            8.599129E-01  -2.550915E-01   0.0            0.0                           \r\n           569      G      0.0            0.0            8.228088E-01  -2.556711E-01   1.527476E-01   0.0                           \r\n           570      G      0.0            0.0            7.007446E-01  -2.400004E-01   3.382485E-01   0.0                           \r\n           571      G      0.0            0.0            4.938181E-01  -2.099142E-01   4.724491E-01   0.0                           \r\n           572      G      0.0            0.0            2.448062E-01  -1.715128E-01   5.155123E-01   0.0                           \r\n           573      G      0.0            0.0           -9.167851E-03  -1.279070E-01   4.866827E-01   0.0                           \r\n           574      G      0.0            0.0           -2.401743E-01  -7.286264E-02   4.416560E-01   0.0                           \r\n           575      G      0.0            0.0           -4.457658E-01  -9.266121E-03   3.633217E-01   0.0                           \r\n           576      G      0.0            0.0           -5.955839E-01   5.136506E-02   2.351030E-01   0.0                           \r\n           577      G      0.0            0.0           -6.813018E-01   9.962150E-02   9.834344E-02   0.0                           \r\n           578      G      0.0            0.0           -6.947220E-01   1.420826E-01  -4.174631E-02   0.0                           \r\n           579      G      0.0            0.0           -6.429155E-01   1.909175E-01  -1.660364E-01   0.0                           \r\n           580      G      0.0            0.0           -5.375182E-01   2.408083E-01  -2.455988E-01   0.0                           \r\n           581      G      0.0            0.0           -4.048407E-01   2.616463E-01  -2.904759E-01   0.0                           \r\n           582      G      0.0            0.0           -2.541252E-01   2.508562E-01  -3.009332E-01   0.0                           \r\n           583      G      0.0            0.0           -1.122450E-01   2.305104E-01  -2.647836E-01   0.0                           \r\n           584      G      0.0            0.0            3.159415E-03   2.015543E-01  -1.846974E-01   0.0                           \r\n           585      G      0.0            0.0            6.649981E-02   1.656101E-01  -6.895881E-02   0.0                           \r\n           586      G      0.0            0.0            7.379157E-02   1.223640E-01   4.397774E-02   0.0                           \r\n           587      G      0.0            0.0            3.739103E-02   6.649689E-02   8.688784E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            6.943654E-02   0.0                           \r\n           631      G      0.0            0.0            3.155307E-01  -3.972939E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            2.907413E-01  -3.778876E-01   1.011590E-01   0.0                           \r\n           633      G      0.0            0.0            2.120481E-01  -3.407551E-01   2.154293E-01   0.0                           \r\n           634      G      0.0            0.0            8.363371E-02  -2.737280E-01   2.892078E-01   0.0                           \r\n           635      G      0.0            0.0           -6.821727E-02  -1.805058E-01   3.173699E-01   0.0                           \r\n           636      G      0.0            0.0           -2.228495E-01  -9.156756E-02   2.849398E-01   0.0                           \r\n           637      G      0.0            0.0           -3.440380E-01  -1.194178E-02   2.013194E-01   0.0                           \r\n           638      G      0.0            0.0           -4.197208E-01   7.520216E-02   9.491093E-02   0.0                           \r\n           639      G      0.0            0.0           -4.379300E-01   1.643396E-01  -1.576738E-02   0.0                           \r\n           640      G      0.0            0.0           -4.068791E-01   2.489570E-01  -1.110456E-01   0.0                           \r\n           641      G      0.0            0.0           -3.291489E-01   3.211074E-01  -1.933271E-01   0.0                           \r\n           642      G      0.0            0.0           -2.113208E-01   3.679741E-01  -2.862027E-01   0.0                           \r\n           643      G      0.0            0.0           -4.984359E-02   3.873748E-01  -3.429061E-01   0.0                           \r\n           644      G      0.0            0.0            1.180409E-01   3.879782E-01  -3.264237E-01   0.0                           \r\n           645      G      0.0            0.0            2.690142E-01   3.779887E-01  -2.650970E-01   0.0                           \r\n           646      G      0.0            0.0            3.748428E-01   3.501277E-01  -1.574066E-01   0.0                           \r\n           647      G      0.0            0.0            4.208099E-01   2.925734E-01  -2.181914E-02   0.0                           \r\n           648      G      0.0            0.0            3.976461E-01   2.109641E-01   1.077583E-01   0.0                           \r\n           649      G      0.0            0.0            3.149019E-01   1.364610E-01   2.306119E-01   0.0                           \r\n           650      G      0.0            0.0            1.722557E-01   7.202934E-02   3.285619E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.525772E-01   0.0                           \r\n           694      G      0.0            0.0           -1.796965E-01  -2.480054E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -1.839169E-01  -2.223606E-01   2.446092E-02   0.0                           \r\n           696      G      0.0            0.0           -2.118702E-01  -1.838559E-01   9.148522E-02   0.0                           \r\n           697      G      0.0            0.0           -2.640817E-01  -1.382613E-01   1.028049E-01   0.0                           \r\n           698      G      0.0            0.0           -3.044142E-01  -8.830086E-02   6.331491E-02   0.0                           \r\n           699      G      0.0            0.0           -3.229547E-01  -2.650612E-02   6.688237E-03   0.0                           \r\n           700      G      0.0            0.0           -3.049986E-01   4.629669E-02  -7.196634E-02   0.0                           \r\n           701      G      0.0            0.0           -2.490803E-01   1.196593E-01  -1.523116E-01   0.0                           \r\n           702      G      0.0            0.0           -1.524422E-01   1.723585E-01  -2.287266E-01   0.0                           \r\n           703      G      0.0            0.0           -1.949428E-02   2.025678E-01  -3.030539E-01   0.0                           \r\n           704      G      0.0            0.0            1.473636E-01   2.297264E-01  -3.502234E-01   0.0                           \r\n           705      G      0.0            0.0            3.247322E-01   2.531635E-01  -3.570881E-01   0.0                           \r\n           706      G      0.0            0.0            4.982671E-01   2.556896E-01  -3.272813E-01   0.0                           \r\n           707      G      0.0            0.0            6.456497E-01   2.386246E-01  -2.618441E-01   0.0                           \r\n           708      G      0.0            0.0            7.550175E-01   2.064510E-01  -1.684503E-01   0.0                           \r\n           709      G      0.0            0.0            8.079048E-01   1.671321E-01  -4.358773E-02   0.0                           \r\n           710      G      0.0            0.0            7.892155E-01   1.327771E-01   1.278119E-01   0.0                           \r\n           711      G      0.0            0.0            6.795428E-01   1.047660E-01   2.987819E-01   0.0                           \r\n           712      G      0.0            0.0            4.977604E-01   7.589971E-02   4.246591E-01   0.0                           \r\n           713      G      0.0            0.0            2.609174E-01   3.998490E-02   5.082230E-01   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            5.277991E-01   0.0                           \r\n           757      G      0.0            0.0           -2.991401E-01   3.809987E-02   0.0            0.0                           \r\n           758      G      0.0            0.0           -2.925365E-01   3.176709E-02  -2.418576E-02   0.0                           \r\n           759      G      0.0            0.0           -2.826328E-01   4.157759E-02  -8.052646E-03   0.0                           \r\n           760      G      0.0            0.0           -2.816221E-01   6.949490E-02  -3.218064E-03   0.0                           \r\n           761      G      0.0            0.0           -2.721885E-01   9.262398E-02  -3.278367E-02   0.0                           \r\n           762      G      0.0            0.0           -2.425298E-01   1.049089E-01  -9.059940E-02   0.0                           \r\n           763      G      0.0            0.0           -1.767132E-01   1.026376E-01  -1.669784E-01   0.0                           \r\n           764      G      0.0            0.0           -7.509126E-02   8.713911E-02  -2.381439E-01   0.0                           \r\n           765      G      0.0            0.0            5.490436E-02   6.564796E-02  -2.671287E-01   0.0                           \r\n           766      G      0.0            0.0            1.901050E-01   3.860410E-02  -2.774025E-01   0.0                           \r\n           767      G      0.0            0.0            3.338687E-01  -3.408760E-04  -2.893795E-01   0.0                           \r\n           768      G      0.0            0.0            4.750501E-01  -5.332866E-02  -2.753634E-01   0.0                           \r\n           769      G      0.0            0.0            6.052728E-01  -1.086545E-01  -2.378476E-01   0.0                           \r\n           770      G      0.0            0.0            7.082080E-01  -1.482598E-01  -1.716056E-01   0.0                           \r\n           771      G      0.0            0.0            7.698159E-01  -1.682094E-01  -6.736707E-02   0.0                           \r\n           772      G      0.0            0.0            7.719504E-01  -1.847636E-01   5.094643E-02   0.0                           \r\n           773      G      0.0            0.0            7.178863E-01  -1.947371E-01   1.678985E-01   0.0                           \r\n           774      G      0.0            0.0            6.038629E-01  -1.785709E-01   2.808038E-01   0.0                           \r\n           775      G      0.0            0.0            4.388445E-01  -1.379332E-01   3.783803E-01   0.0                           \r\n           776      G      0.0            0.0            2.293813E-01  -7.671046E-02   4.476456E-01   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.631972E-01   0.0                           \r\n           820      G      0.0            0.0           -1.139963E-01   2.043701E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.061780E-01   1.979165E-01  -2.355918E-02   0.0                           \r\n           822      G      0.0            0.0           -9.652528E-02   1.868756E-01  -1.333833E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.520440E+04    (CYCLIC FREQUENCY =  1.148168E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -9.157091E-02   1.795475E-01  -1.078000E-02   0.0                           \r\n           824      G      0.0            0.0           -8.309548E-02   1.594344E-01  -1.991034E-02   0.0                           \r\n           825      G      0.0            0.0           -6.980627E-02   1.323105E-01  -3.654023E-02   0.0                           \r\n           826      G      0.0            0.0           -4.629529E-02   8.953051E-02  -5.376557E-02   0.0                           \r\n           827      G      0.0            0.0           -1.556657E-02   3.380271E-02  -7.325684E-02   0.0                           \r\n           828      G      0.0            0.0            2.658372E-02  -5.426179E-02  -8.825085E-02   0.0                           \r\n           829      G      0.0            0.0            7.214565E-02  -1.447949E-01  -9.652904E-02   0.0                           \r\n           830      G      0.0            0.0            1.217542E-01  -2.360442E-01  -9.421692E-02   0.0                           \r\n           831      G      0.0            0.0            1.636482E-01  -3.170929E-01  -7.457509E-02   0.0                           \r\n           832      G      0.0            0.0            1.959010E-01  -3.872012E-01  -5.037510E-02   0.0                           \r\n           833      G      0.0            0.0            2.174725E-01  -4.374642E-01  -4.577809E-02   0.0                           \r\n           834      G      0.0            0.0            2.392580E-01  -4.712594E-01  -3.011088E-02   0.0                           \r\n           835      G      0.0            0.0            2.423949E-01  -4.719293E-01   1.496962E-02   0.0                           \r\n           836      G      0.0            0.0            2.254599E-01  -4.383324E-01   5.534539E-02   0.0                           \r\n           837      G      0.0            0.0            1.878636E-01  -3.615251E-01   9.021574E-02   0.0                           \r\n           838      G      0.0            0.0            1.355486E-01  -2.588262E-01   1.205999E-01   0.0                           \r\n           839      G      0.0            0.0            6.901411E-02  -1.330947E-01   1.385747E-01   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.366237E-01   0.0                           \r\n           841      G      0.0            0.0            0.0            2.414977E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            2.201813E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            1.972373E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            1.862559E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            1.682119E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.431339E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            9.157395E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.941835E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.507758E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -1.433816E-01   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -2.479546E-01   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -3.304095E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.948571E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -4.305553E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -4.814348E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -4.875450E-01   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -4.559911E-01   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -3.803999E-01   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.771497E-01   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.397233E-01   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            1.397587E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            7.729933E-02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.800046E-02   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            8.038577E-03   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.271178E-02   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -8.699399E-02   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -2.271701E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.365056E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -1.019847E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -7.454637E-03   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            7.066049E-02   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.523725E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            1.663858E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            2.739400E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            3.658626E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            4.379161E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            3.471570E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.051177E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            2.709591E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            2.732781E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            1.837977E-01   4.759255E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            1.532257E-01   5.305983E-02   1.320686E-01   0.0                           \r\n            66      G      0.0            0.0            8.371036E-02   5.341918E-02   1.087885E-01   0.0                           \r\n            67      G      0.0            0.0            5.755448E-02   3.521908E-02   1.907531E-02   0.0                           \r\n            68      G      0.0            0.0            5.907938E-02   7.907707E-04  -3.854670E-02   0.0                           \r\n            69      G      0.0            0.0            6.263065E-02  -1.315238E-02   8.298620E-02   0.0                           \r\n            70      G      0.0            0.0           -1.647780E-02  -1.212155E-04   1.744745E-01   0.0                           \r\n            71      G      0.0            0.0           -7.623853E-02   9.528949E-04   7.943017E-02   0.0                           \r\n            72      G      0.0            0.0           -9.461862E-02  -2.766042E-02  -3.661635E-02   0.0                           \r\n            73      G      0.0            0.0           -3.676880E-02  -4.105286E-02  -1.716873E-01   0.0                           \r\n            74      G      0.0            0.0            7.136843E-02   3.870771E-02  -2.637397E-01   0.0                           \r\n            75      G      0.0            0.0            2.028526E-01   1.899932E-01  -2.235204E-01   0.0                           \r\n            76      G      0.0            0.0            2.881094E-01   2.689704E-01  -1.631917E-01   0.0                           \r\n            77      G      0.0            0.0            3.691186E-01   2.464609E-01  -1.317021E-01   0.0                           \r\n            78      G      0.0            0.0            4.168673E-01   2.282584E-01  -8.242729E-02   0.0                           \r\n            79      G      0.0            0.0            4.452392E-01   2.056753E-01  -8.015884E-04   0.0                           \r\n            80      G      0.0            0.0            4.047300E-01   1.900486E-01   1.415733E-01   0.0                           \r\n            81      G      0.0            0.0            3.056214E-01   1.690512E-01   2.683921E-01   0.0                           \r\n            82      G      0.0            0.0            1.717748E-01   1.128360E-01   2.046606E-01   0.0                           \r\n            83      G      0.0            0.0            9.957087E-02   3.652987E-02   1.414251E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.413460E-01   0.0                           \r\n           127      G      0.0            0.0            2.620242E-01   1.391385E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            2.154011E-01   1.351685E-01   1.740175E-01   0.0                           \r\n           129      G      0.0            0.0            1.349933E-01   1.287151E-01   1.283146E-01   0.0                           \r\n           130      G      0.0            0.0            7.231366E-02   1.560111E-01   1.653102E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -3.956866E-02   9.298961E-02   2.375834E-01   0.0                           \r\n           132      G      0.0            0.0           -1.560760E-01  -5.196670E-02   2.501973E-01   0.0                           \r\n           133      G      0.0            0.0           -2.750302E-01  -1.623905E-01   1.935244E-01   0.0                           \r\n           134      G      0.0            0.0           -3.360025E-01  -2.264082E-01   7.429148E-02   0.0                           \r\n           135      G      0.0            0.0           -3.511778E-01  -2.417417E-01  -3.435917E-02   0.0                           \r\n           136      G      0.0            0.0           -3.016343E-01  -2.221681E-01  -1.416403E-01   0.0                           \r\n           137      G      0.0            0.0           -1.852847E-01  -2.165325E-01  -3.742118E-01   0.0                           \r\n           138      G      0.0            0.0            5.741655E-02  -2.222345E-01  -5.302730E-01   0.0                           \r\n           139      G      0.0            0.0            3.023066E-01  -1.992842E-01  -4.584888E-01   0.0                           \r\n           140      G      0.0            0.0            5.081480E-01  -1.197076E-01  -3.263769E-01   0.0                           \r\n           141      G      0.0            0.0            6.192498E-01  -3.934305E-02  -1.358057E-01   0.0                           \r\n           142      G      0.0            0.0            6.437830E-01  -3.329629E-02   4.592048E-02   0.0                           \r\n           143      G      0.0            0.0            5.929725E-01  -9.309661E-02   1.194003E-01   0.0                           \r\n           144      G      0.0            0.0            5.281769E-01  -8.189698E-02   1.867609E-01   0.0                           \r\n           145      G      0.0            0.0            4.006986E-01  -9.992760E-03   2.923062E-01   0.0                           \r\n           146      G      0.0            0.0            2.341636E-01   1.100052E-02   3.955950E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            5.098188E-01   0.0                           \r\n           190      G      0.0            0.0            5.149546E-01  -2.795574E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            4.222712E-01   5.186056E-02   3.259500E-01   0.0                           \r\n           192      G      0.0            0.0            2.503726E-01   7.269472E-02   3.100739E-01   0.0                           \r\n           193      G      0.0            0.0            1.113137E-01   5.499882E-03   2.792329E-01   0.0                           \r\n           194      G      0.0            0.0           -5.050144E-02  -7.329109E-02   3.656953E-01   0.0                           \r\n           195      G      0.0            0.0           -2.466742E-01  -1.341216E-01   4.297961E-01   0.0                           \r\n           196      G      0.0            0.0           -4.610329E-01  -1.548588E-01   3.986305E-01   0.0                           \r\n           197      G      0.0            0.0           -6.204473E-01  -2.158992E-01   2.309995E-01   0.0                           \r\n           198      G      0.0            0.0           -6.714355E-01  -2.951786E-01  -4.274448E-02   0.0                           \r\n           199      G      0.0            0.0           -5.833120E-01  -3.337116E-01  -2.717756E-01   0.0                           \r\n           200      G      0.0            0.0           -4.133997E-01  -2.561322E-01  -4.203210E-01   0.0                           \r\n           201      G      0.0            0.0           -1.750052E-01  -2.045273E-01  -5.114638E-01   0.0                           \r\n           202      G      0.0            0.0            7.934143E-02  -1.667134E-01  -5.083479E-01   0.0                           \r\n           203      G      0.0            0.0            3.209715E-01  -1.451360E-01  -4.409525E-01   0.0                           \r\n           204      G      0.0            0.0            5.076072E-01  -1.222350E-01  -3.087064E-01   0.0                           \r\n           205      G      0.0            0.0            6.108277E-01  -7.196645E-02  -7.539816E-02   0.0                           \r\n           206      G      0.0            0.0            5.898747E-01  -1.344584E-02   1.305275E-01   0.0                           \r\n           207      G      0.0            0.0            4.998693E-01   1.855670E-02   2.316789E-01   0.0                           \r\n           208      G      0.0            0.0            3.589543E-01   1.391216E-02   3.132461E-01   0.0                           \r\n           209      G      0.0            0.0            1.915424E-01   1.068539E-03   3.607910E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            3.996646E-01   0.0                           \r\n           253      G      0.0            0.0            7.793490E-01   2.179830E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            7.073013E-01   1.750642E-01   2.774232E-01   0.0                           \r\n           255      G      0.0            0.0            5.272287E-01   1.578110E-01   4.198197E-01   0.0                           \r\n           256      G      0.0            0.0            2.914556E-01   1.212297E-01   5.340259E-01   0.0                           \r\n           257      G      0.0            0.0           -2.451017E-03   7.322033E-02   6.193026E-01   0.0                           \r\n           258      G      0.0            0.0           -3.087958E-01   1.947196E-02   6.018798E-01   0.0                           \r\n           259      G      0.0            0.0           -5.830498E-01  -2.653168E-02   4.703335E-01   0.0                           \r\n           260      G      0.0            0.0           -7.748693E-01  -4.274078E-02   3.146502E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -8.851699E-01  -3.457057E-02   9.399660E-02   0.0                           \r\n           262      G      0.0            0.0           -8.559129E-01  -3.121587E-02  -1.982412E-01   0.0                           \r\n           263      G      0.0            0.0           -7.015201E-01  -5.217263E-02  -4.252948E-01   0.0                           \r\n           264      G      0.0            0.0           -4.488854E-01  -7.576653E-02  -5.624992E-01   0.0                           \r\n           265      G      0.0            0.0           -1.600424E-01  -6.358027E-02  -5.845746E-01   0.0                           \r\n           266      G      0.0            0.0            1.099510E-01  -2.015891E-02  -4.698308E-01   0.0                           \r\n           267      G      0.0            0.0            2.984623E-01  -1.150853E-02  -3.046438E-01   0.0                           \r\n           268      G      0.0            0.0            4.145536E-01  -3.993864E-02  -1.460309E-01   0.0                           \r\n           269      G      0.0            0.0            4.475815E-01  -5.104690E-02   6.750988E-04   0.0                           \r\n           270      G      0.0            0.0            4.191850E-01  -4.664211E-02   1.260887E-01   0.0                           \r\n           271      G      0.0            0.0            3.241456E-01  -2.950032E-02   2.426137E-01   0.0                           \r\n           272      G      0.0            0.0            1.827197E-01  -8.270524E-03   3.304906E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            3.908430E-01   0.0                           \r\n           316      G      0.0            0.0            9.743458E-01   8.359519E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            8.928778E-01   9.686083E-02   3.159442E-01   0.0                           \r\n           318      G      0.0            0.0            6.848331E-01   9.479697E-02   4.939234E-01   0.0                           \r\n           319      G      0.0            0.0            4.113975E-01   8.078873E-02   6.043793E-01   0.0                           \r\n           320      G      0.0            0.0            8.962902E-02   9.295925E-02   6.681700E-01   0.0                           \r\n           321      G      0.0            0.0           -2.485563E-01   1.327392E-01   6.870337E-01   0.0                           \r\n           322      G      0.0            0.0           -5.756229E-01   1.341025E-01   5.805871E-01   0.0                           \r\n           323      G      0.0            0.0           -8.054101E-01   9.805854E-02   3.409475E-01   0.0                           \r\n           324      G      0.0            0.0           -9.058961E-01   7.777439E-02   4.573884E-02   0.0                           \r\n           325      G      0.0            0.0           -8.549247E-01   6.979367E-02  -2.292861E-01   0.0                           \r\n           326      G      0.0            0.0           -6.948541E-01   7.013185E-02  -4.112744E-01   0.0                           \r\n           327      G      0.0            0.0           -4.614027E-01   7.554374E-02  -5.012826E-01   0.0                           \r\n           328      G      0.0            0.0           -1.979872E-01   7.159068E-02  -5.705244E-01   0.0                           \r\n           329      G      0.0            0.0            8.942316E-02   5.304620E-02  -5.415862E-01   0.0                           \r\n           330      G      0.0            0.0            3.170203E-01   4.548042E-02  -3.718413E-01   0.0                           \r\n           331      G      0.0            0.0            4.591482E-01   5.330335E-02  -1.817262E-01   0.0                           \r\n           332      G      0.0            0.0            5.001317E-01   6.882571E-02   6.332760E-03   0.0                           \r\n           333      G      0.0            0.0            4.580439E-01   4.807772E-02   1.649705E-01   0.0                           \r\n           334      G      0.0            0.0            3.470397E-01  -6.882819E-04   2.628726E-01   0.0                           \r\n           335      G      0.0            0.0            1.991006E-01  -2.895538E-02   3.492902E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            4.274434E-01   0.0                           \r\n           379      G      0.0            0.0            9.439685E-01  -1.235406E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            8.724757E-01  -1.126864E-01   2.740603E-01   0.0                           \r\n           381      G      0.0            0.0            6.891168E-01  -8.708192E-02   4.500164E-01   0.0                           \r\n           382      G      0.0            0.0            4.301181E-01  -4.866858E-02   5.868328E-01   0.0                           \r\n           383      G      0.0            0.0            1.215457E-01  -1.668337E-02   6.189849E-01   0.0                           \r\n           384      G      0.0            0.0           -1.750904E-01   9.435327E-03   5.726278E-01   0.0                           \r\n           385      G      0.0            0.0           -4.408163E-01   4.305171E-02   4.719018E-01   0.0                           \r\n           386      G      0.0            0.0           -6.271117E-01   8.852690E-02   2.737879E-01   0.0                           \r\n           387      G      0.0            0.0           -7.055373E-01   1.251998E-01   3.036273E-02   0.0                           \r\n           388      G      0.0            0.0           -6.582618E-01   1.299149E-01  -2.136474E-01   0.0                           \r\n           389      G      0.0            0.0           -4.969641E-01   1.071544E-01  -4.332968E-01   0.0                           \r\n           390      G      0.0            0.0           -2.418995E-01   1.042571E-01  -5.583263E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            3.920920E-02   1.237272E-01  -5.623534E-01   0.0                           \r\n           392      G      0.0            0.0            3.023221E-01   1.323749E-01  -4.729331E-01   0.0                           \r\n           393      G      0.0            0.0            5.001026E-01   1.287742E-01  -3.226950E-01   0.0                           \r\n           394      G      0.0            0.0            6.223184E-01   1.148471E-01  -1.578761E-01   0.0                           \r\n           395      G      0.0            0.0            6.574679E-01   9.486325E-02   9.939399E-03   0.0                           \r\n           396      G      0.0            0.0            6.056818E-01   8.277683E-02   2.130024E-01   0.0                           \r\n           397      G      0.0            0.0            4.519273E-01   7.429536E-02   3.785143E-01   0.0                           \r\n           398      G      0.0            0.0            2.437601E-01   5.109717E-02   4.563605E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.043639E-01   0.0                           \r\n           442      G      0.0            0.0            6.771307E-01  -2.836755E-01   0.0            0.0                           \r\n           443      G      0.0            0.0            6.013056E-01  -2.830797E-01   2.693660E-01   0.0                           \r\n           444      G      0.0            0.0            4.476852E-01  -2.756925E-01   3.319759E-01   0.0                           \r\n           445      G      0.0            0.0            2.732136E-01  -2.204754E-01   3.820065E-01   0.0                           \r\n           446      G      0.0            0.0            6.565172E-02  -1.257875E-01   4.355606E-01   0.0                           \r\n           447      G      0.0            0.0           -1.527524E-01  -3.901980E-02   4.373934E-01   0.0                           \r\n           448      G      0.0            0.0           -3.553784E-01   3.023760E-02   3.524700E-01   0.0                           \r\n           449      G      0.0            0.0           -4.860449E-01   7.585147E-02   1.682315E-01   0.0                           \r\n           450      G      0.0            0.0           -5.142722E-01   1.001694E-01  -6.444385E-02   0.0                           \r\n           451      G      0.0            0.0           -4.322094E-01   1.174167E-01  -2.413263E-01   0.0                           \r\n           452      G      0.0            0.0           -2.809297E-01   1.277124E-01  -3.746275E-01   0.0                           \r\n           453      G      0.0            0.0           -6.302746E-02   1.184496E-01  -4.802605E-01   0.0                           \r\n           454      G      0.0            0.0            1.807006E-01   8.287033E-02  -4.939710E-01   0.0                           \r\n           455      G      0.0            0.0            4.156144E-01   4.151259E-02  -4.296642E-01   0.0                           \r\n           456      G      0.0            0.0            5.981030E-01   2.316506E-02  -2.966383E-01   0.0                           \r\n           457      G      0.0            0.0            7.003675E-01   2.869353E-02  -9.893557E-02   0.0                           \r\n           458      G      0.0            0.0            6.962879E-01   1.527829E-02   9.693295E-02   0.0                           \r\n           459      G      0.0            0.0            6.098738E-01  -1.598939E-02   2.528573E-01   0.0                           \r\n           460      G      0.0            0.0            4.502821E-01  -2.827563E-02   3.719344E-01   0.0                           \r\n           461      G      0.0            0.0            2.445762E-01  -2.197773E-02   4.554422E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            5.101406E-01   0.0                           \r\n           505      G      0.0            0.0            2.363326E-01  -2.353498E-01   0.0            0.0                           \r\n           506      G      0.0            0.0            2.030032E-01  -2.170362E-01   1.453602E-01   0.0                           \r\n           507      G      0.0            0.0            1.062381E-01  -1.740391E-01   2.205892E-01   0.0                           \r\n           508      G      0.0            0.0           -5.717078E-03  -1.247865E-01   2.348684E-01   0.0                           \r\n           509      G      0.0            0.0           -1.292774E-01  -7.946217E-02   2.501268E-01   0.0                           \r\n           510      G      0.0            0.0           -2.496802E-01  -3.778055E-02   2.344585E-01   0.0                           \r\n           511      G      0.0            0.0           -3.529499E-01   1.956508E-02   1.693749E-01   0.0                           \r\n           512      G      0.0            0.0           -4.118385E-01   7.970064E-02   7.095057E-02   0.0                           \r\n           513      G      0.0            0.0           -4.160581E-01   1.042899E-01  -7.095408E-02   0.0                           \r\n           514      G      0.0            0.0           -3.379914E-01   7.706496E-02  -2.299024E-01   0.0                           \r\n           515      G      0.0            0.0           -1.931852E-01   4.076999E-02  -3.487313E-01   0.0                           \r\n           516      G      0.0            0.0           -6.920130E-04  -2.433792E-03  -4.051149E-01   0.0                           \r\n           517      G      0.0            0.0            1.962052E-01  -4.516277E-02  -3.784600E-01   0.0                           \r\n           518      G      0.0            0.0            3.657466E-01  -8.779278E-02  -2.881122E-01   0.0                           \r\n           519      G      0.0            0.0            4.836897E-01  -1.302702E-01  -1.949368E-01   0.0                           \r\n           520      G      0.0            0.0            5.558228E-01  -1.684887E-01  -7.904656E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            5.562256E-01  -1.808601E-01   7.151479E-02   0.0                           \r\n           522      G      0.0            0.0            4.897038E-01  -1.592756E-01   1.988864E-01   0.0                           \r\n           523      G      0.0            0.0            3.628501E-01  -1.087666E-01   2.984922E-01   0.0                           \r\n           524      G      0.0            0.0            1.962569E-01  -5.616134E-02   3.678328E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            4.076125E-01   0.0                           \r\n           568      G      0.0            0.0           -3.822313E-03  -5.536036E-02   0.0            0.0                           \r\n           569      G      0.0            0.0           -2.783631E-02  -4.139053E-02   8.825713E-02   0.0                           \r\n           570      G      0.0            0.0           -7.738858E-02  -2.216334E-02   9.942615E-02   0.0                           \r\n           571      G      0.0            0.0           -1.259025E-01   5.083040E-04   1.045224E-01   0.0                           \r\n           572      G      0.0            0.0           -1.854683E-01   2.790565E-02   1.304701E-01   0.0                           \r\n           573      G      0.0            0.0           -2.535690E-01   5.632450E-02   1.449790E-01   0.0                           \r\n           574      G      0.0            0.0           -3.155889E-01   7.025437E-02   8.535585E-02   0.0                           \r\n           575      G      0.0            0.0           -3.318128E-01   6.590211E-02  -8.929344E-03   0.0                           \r\n           576      G      0.0            0.0           -3.085974E-01   5.144057E-02  -8.873133E-02   0.0                           \r\n           577      G      0.0            0.0           -2.414492E-01   3.450566E-02  -1.697693E-01   0.0                           \r\n           578      G      0.0            0.0           -1.434296E-01   5.556891E-03  -2.229911E-01   0.0                           \r\n           579      G      0.0            0.0           -2.563727E-02  -4.943521E-02  -2.410209E-01   0.0                           \r\n           580      G      0.0            0.0            9.320924E-02  -1.211361E-01  -2.376370E-01   0.0                           \r\n           581      G      0.0            0.0            2.045263E-01  -1.685331E-01  -1.912399E-01   0.0                           \r\n           582      G      0.0            0.0            2.775447E-01  -1.836301E-01  -1.055520E-01   0.0                           \r\n           583      G      0.0            0.0            3.082174E-01  -1.887208E-01  -1.195489E-02   0.0                           \r\n           584      G      0.0            0.0            2.919640E-01  -1.811624E-01   6.671122E-02   0.0                           \r\n           585      G      0.0            0.0            2.484307E-01  -1.605138E-01   1.091210E-01   0.0                           \r\n           586      G      0.0            0.0            1.868160E-01  -1.255791E-01   1.304878E-01   0.0                           \r\n           587      G      0.0            0.0            1.111985E-01  -7.060609E-02   1.858540E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            2.452372E-01   0.0                           \r\n           631      G      0.0            0.0            7.219657E-02   1.118855E-01   0.0            0.0                           \r\n           632      G      0.0            0.0            5.790259E-02   1.063730E-01   5.313951E-02   0.0                           \r\n           633      G      0.0            0.0            2.715142E-02   1.137781E-01   6.312025E-02   0.0                           \r\n           634      G      0.0            0.0           -5.675691E-03   1.140020E-01   7.244445E-02   0.0                           \r\n           635      G      0.0            0.0           -4.353238E-02   1.035555E-01   7.202978E-02   0.0                           \r\n           636      G      0.0            0.0           -7.726584E-02   1.098494E-01   7.478369E-02   0.0                           \r\n           637      G      0.0            0.0           -1.167435E-01   1.285312E-01   7.460402E-02   0.0                           \r\n           638      G      0.0            0.0           -1.475447E-01   1.290624E-01   5.215367E-02   0.0                           \r\n           639      G      0.0            0.0           -1.648176E-01   1.098106E-01   7.836308E-03   0.0                           \r\n           640      G      0.0            0.0           -1.517202E-01   7.276174E-02  -5.519557E-02   0.0                           \r\n           641      G      0.0            0.0           -1.120052E-01   2.451277E-02  -1.068303E-01   0.0                           \r\n           642      G      0.0            0.0           -5.719452E-02  -1.948777E-02  -9.525263E-02   0.0                           \r\n           643      G      0.0            0.0           -2.084665E-02  -5.422145E-02  -6.230453E-02   0.0                           \r\n           644      G      0.0            0.0            8.128864E-03  -8.600681E-02  -4.792700E-02   0.0                           \r\n           645      G      0.0            0.0            2.386958E-02  -1.195113E-01  -2.299611E-02   0.0                           \r\n           646      G      0.0            0.0            3.179306E-02  -1.403027E-01  -4.777689E-03   0.0                           \r\n           647      G      0.0            0.0            3.047994E-02  -1.290352E-01   6.338637E-03   0.0                           \r\n           648      G      0.0            0.0            2.445260E-02  -8.894598E-02   2.478602E-02   0.0                           \r\n           649      G      0.0            0.0            8.843838E-03  -5.601837E-02   2.450388E-02   0.0                           \r\n           650      G      0.0            0.0            3.387646E-03  -3.333531E-02   4.914406E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            1.071265E-02   0.0                           \r\n           694      G      0.0            0.0            2.336484E-01   1.051717E-01   0.0            0.0                           \r\n           695      G      0.0            0.0            2.198629E-01   8.833448E-02   4.522938E-02   0.0                           \r\n           696      G      0.0            0.0            2.013329E-01   8.309876E-02   2.203224E-02   0.0                           \r\n           697      G      0.0            0.0            1.904196E-01   9.171043E-02   3.685334E-02   0.0                           \r\n           698      G      0.0            0.0            1.602651E-01   1.101912E-01   7.522447E-02   0.0                           \r\n           699      G      0.0            0.0            1.186616E-01   1.205729E-01   9.413835E-02   0.0                           \r\n           700      G      0.0            0.0            6.669726E-02   1.146363E-01   1.048123E-01   0.0                           \r\n           701      G      0.0            0.0            1.735646E-02   9.670086E-02   9.412067E-02   0.0                           \r\n           702      G      0.0            0.0           -2.507421E-02   8.605134E-02   7.170233E-02   0.0                           \r\n           703      G      0.0            0.0           -5.645288E-02   8.081020E-02   5.858775E-02   0.0                           \r\n           704      G      0.0            0.0           -8.439966E-02   5.601108E-02   4.226501E-02   0.0                           \r\n           705      G      0.0            0.0           -9.912167E-02   1.408973E-02   2.123197E-02   0.0                           \r\n           706      G      0.0            0.0           -1.077289E-01  -1.996454E-02   8.524075E-03   0.0                           \r\n           707      G      0.0            0.0           -1.100339E-01  -4.218303E-02   6.509195E-03   0.0                           \r\n           708      G      0.0            0.0           -1.171798E-01  -5.183384E-02   1.774814E-02   0.0                           \r\n           709      G      0.0            0.0           -1.270061E-01  -5.280056E-02   2.401019E-02   0.0                           \r\n           710      G      0.0            0.0           -1.331083E-01  -5.525508E-02  -1.231358E-02   0.0                           \r\n           711      G      0.0            0.0           -1.134751E-01  -5.809561E-02  -5.563900E-02   0.0                           \r\n           712      G      0.0            0.0           -8.198377E-02  -5.185139E-02  -7.273656E-02   0.0                           \r\n           713      G      0.0            0.0           -4.039542E-02  -3.030048E-02  -8.486828E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -7.741397E-02   0.0                           \r\n           757      G      0.0            0.0            2.320774E-01  -5.144219E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            2.206617E-01  -3.781077E-02   4.284566E-02   0.0                           \r\n           759      G      0.0            0.0            2.004685E-01  -3.331979E-02   2.870332E-02   0.0                           \r\n           760      G      0.0            0.0            1.918534E-01  -4.378350E-02   1.445107E-02   0.0                           \r\n           761      G      0.0            0.0            1.815370E-01  -4.628006E-02   2.490470E-02   0.0                           \r\n           762      G      0.0            0.0            1.638037E-01  -3.925052E-02   5.267225E-02   0.0                           \r\n           763      G      0.0            0.0            1.268878E-01  -2.380117E-02   8.977697E-02   0.0                           \r\n           764      G      0.0            0.0            7.613279E-02  -6.011785E-03   1.143639E-01   0.0                           \r\n           765      G      0.0            0.0            2.130933E-02   2.835076E-03   9.081884E-02   0.0                           \r\n           766      G      0.0            0.0           -1.363609E-02   2.293437E-03   5.828658E-02   0.0                           \r\n           767      G      0.0            0.0           -4.225613E-02   2.871509E-03   5.141938E-02   0.0                           \r\n           768      G      0.0            0.0           -6.467735E-02   1.230282E-02   4.368468E-02   0.0                           \r\n           769      G      0.0            0.0           -8.714876E-02   2.309983E-02   4.169007E-02   0.0                           \r\n           770      G      0.0            0.0           -1.068532E-01   2.075988E-02   3.806714E-02   0.0                           \r\n           771      G      0.0            0.0           -1.220913E-01   7.694304E-03   1.582284E-02   0.0                           \r\n           772      G      0.0            0.0           -1.222445E-01   9.573271E-03  -5.618628E-03   0.0                           \r\n           773      G      0.0            0.0           -1.171695E-01   2.600379E-02  -2.017133E-02   0.0                           \r\n           774      G      0.0            0.0           -1.013449E-01   3.371276E-02  -3.867456E-02   0.0                           \r\n           775      G      0.0            0.0           -7.779995E-02   3.232881E-02  -6.095205E-02   0.0                           \r\n           776      G      0.0            0.0           -4.033800E-02   2.143409E-02  -8.242602E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -7.950916E-02   0.0                           \r\n           820      G      0.0            0.0            8.860560E-02  -1.526812E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.930569E-02  -1.450671E-01   2.779186E-02   0.0                           \r\n           822      G      0.0            0.0            6.869441E-02  -1.332453E-01   1.262601E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.569146E+04    (CYCLIC FREQUENCY =  1.200693E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            6.593478E-02  -1.297346E-01   3.824010E-03   0.0                           \r\n           824      G      0.0            0.0            6.265743E-02  -1.177550E-01   5.666342E-03   0.0                           \r\n           825      G      0.0            0.0            5.906377E-02  -1.079722E-01   1.324175E-02   0.0                           \r\n           826      G      0.0            0.0            4.999958E-02  -9.280272E-02   1.920925E-02   0.0                           \r\n           827      G      0.0            0.0            3.983987E-02  -7.706241E-02   2.748030E-02   0.0                           \r\n           828      G      0.0            0.0            2.307791E-02  -3.644432E-02   3.218810E-02   0.0                           \r\n           829      G      0.0            0.0            7.877227E-03  -4.337030E-03   3.318911E-02   0.0                           \r\n           830      G      0.0            0.0           -9.394296E-03   2.267341E-02   2.807644E-02   0.0                           \r\n           831      G      0.0            0.0           -1.823459E-02   3.881899E-02   1.029454E-02   0.0                           \r\n           832      G      0.0            0.0           -2.075583E-02   5.197006E-02  -3.855207E-03   0.0                           \r\n           833      G      0.0            0.0           -2.020871E-02   6.015144E-02   1.466481E-02   0.0                           \r\n           834      G      0.0            0.0           -3.387889E-02   7.533851E-02   2.669818E-02   0.0                           \r\n           835      G      0.0            0.0           -4.158491E-02   8.285807E-02   7.112588E-03   0.0                           \r\n           836      G      0.0            0.0           -4.289408E-02   8.393854E-02  -5.858739E-03   0.0                           \r\n           837      G      0.0            0.0           -3.657426E-02   6.669930E-02  -1.499835E-02   0.0                           \r\n           838      G      0.0            0.0           -2.751640E-02   4.768774E-02  -2.515307E-02   0.0                           \r\n           839      G      0.0            0.0           -1.230205E-02   2.251767E-02  -2.961963E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -2.117658E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.910719E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.657682E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -1.407838E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.350229E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.284889E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -1.246567E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -1.025405E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -8.282925E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -5.031929E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -2.431987E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            1.615963E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            3.197506E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            3.706942E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            2.732697E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            6.431609E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            8.046076E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            8.699314E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            7.505074E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            5.986437E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            2.538710E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.042747E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            4.842463E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            5.670075E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            3.044425E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            1.418283E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            4.805021E-02   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.422559E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -1.592629E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -2.651491E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -4.012691E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -4.225115E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -3.887874E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -1.877174E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -1.765452E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -1.726436E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -1.975144E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            1.380915E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            3.155410E-02   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -5.582844E-02   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -2.845031E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            5.860909E-01   4.363194E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            5.822015E-01   3.861369E-01  -6.655831E-03   0.0                           \r\n            66      G      0.0            0.0            5.361294E-01   2.737790E-01   2.574225E-01   0.0                           \r\n            67      G      0.0            0.0            3.121267E-01   1.436189E-01   5.803732E-01   0.0                           \r\n            68      G      0.0            0.0           -1.532008E-02   1.709452E-02   7.420735E-01   0.0                           \r\n            69      G      0.0            0.0           -3.439257E-01  -1.483823E-01   4.413955E-01   0.0                           \r\n            70      G      0.0            0.0           -4.541512E-01  -3.351501E-01   1.057013E-01   0.0                           \r\n            71      G      0.0            0.0           -5.078349E-01  -4.398703E-01   7.188802E-02   0.0                           \r\n            72      G      0.0            0.0           -5.220928E-01  -4.106562E-01   4.393829E-02   0.0                           \r\n            73      G      0.0            0.0           -5.581302E-01  -3.321955E-01   5.685678E-02   0.0                           \r\n            74      G      0.0            0.0           -5.752957E-01  -3.671503E-01   2.512174E-02   0.0                           \r\n            75      G      0.0            0.0           -5.488944E-01  -4.902112E-01  -1.965447E-01   0.0                           \r\n            76      G      0.0            0.0           -3.832296E-01  -4.403646E-01  -3.613743E-01   0.0                           \r\n            77      G      0.0            0.0           -2.133008E-01  -1.903071E-01  -3.629095E-01   0.0                           \r\n            78      G      0.0            0.0           -3.277031E-02   1.726910E-02  -3.015153E-01   0.0                           \r\n            79      G      0.0            0.0            8.656362E-02   1.724979E-01  -2.285973E-01   0.0                           \r\n            80      G      0.0            0.0            2.137028E-01   2.343773E-01  -2.350572E-01   0.0                           \r\n            81      G      0.0            0.0            3.173476E-01   2.210915E-01  -2.097490E-01   0.0                           \r\n            82      G      0.0            0.0            3.601225E-01   1.987531E-01   1.544430E-01   0.0                           \r\n            83      G      0.0            0.0            1.798541E-01   1.556240E-01   4.394357E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            2.957835E-01   0.0                           \r\n           127      G      0.0            0.0            1.000000E+00  -6.023595E-02   0.0            0.0                           \r\n           128      G      0.0            0.0            9.786716E-01  -7.743386E-02   1.054992E-01   0.0                           \r\n           129      G      0.0            0.0            8.137289E-01  -1.360475E-01   5.792421E-01   0.0                           \r\n           130      G      0.0            0.0            4.531710E-01  -2.971416E-01   7.569846E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            1.069575E-01  -2.960576E-01   6.930881E-01   0.0                           \r\n           132      G      0.0            0.0           -2.241212E-01  -1.296685E-01   5.642270E-01   0.0                           \r\n           133      G      0.0            0.0           -4.555209E-01  -1.092767E-02   4.058399E-01   0.0                           \r\n           134      G      0.0            0.0           -6.336942E-01   5.289724E-02   2.464854E-01   0.0                           \r\n           135      G      0.0            0.0           -6.860852E-01   6.835220E-02   7.888738E-04   0.0                           \r\n           136      G      0.0            0.0           -6.352239E-01   6.696538E-02  -2.428103E-01   0.0                           \r\n           137      G      0.0            0.0           -5.052079E-01   1.422580E-01  -1.623050E-01   0.0                           \r\n           138      G      0.0            0.0           -4.669998E-01   2.773468E-01  -1.021963E-01   0.0                           \r\n           139      G      0.0            0.0           -3.495379E-01   3.748854E-01  -3.250341E-01   0.0                           \r\n           140      G      0.0            0.0           -1.611117E-01   3.585440E-01  -4.812025E-01   0.0                           \r\n           141      G      0.0            0.0            1.179910E-01   3.193181E-01  -5.790064E-01   0.0                           \r\n           142      G      0.0            0.0            3.928021E-01   3.895305E-01  -5.228840E-01   0.0                           \r\n           143      G      0.0            0.0            5.874098E-01   5.400783E-01  -1.753825E-01   0.0                           \r\n           144      G      0.0            0.0            5.600300E-01   4.931271E-01   1.852712E-01   0.0                           \r\n           145      G      0.0            0.0            4.265018E-01   2.732348E-01   3.949746E-01   0.0                           \r\n           146      G      0.0            0.0            1.937288E-01   1.153701E-01   4.699190E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            3.406564E-01   0.0                           \r\n           190      G      0.0            0.0            6.522342E-01   7.845217E-02   0.0            0.0                           \r\n           191      G      0.0            0.0            6.972383E-01  -8.980186E-02  -9.616335E-02   0.0                           \r\n           192      G      0.0            0.0            6.418758E-01  -1.568908E-01   4.045884E-01   0.0                           \r\n           193      G      0.0            0.0            3.242364E-01  -6.137509E-02   7.758731E-01   0.0                           \r\n           194      G      0.0            0.0           -5.164369E-02   4.916134E-02   7.039984E-01   0.0                           \r\n           195      G      0.0            0.0           -3.528991E-01   1.218412E-01   4.515838E-01   0.0                           \r\n           196      G      0.0            0.0           -5.029602E-01   1.190556E-01   1.835270E-01   0.0                           \r\n           197      G      0.0            0.0           -5.566562E-01   2.073243E-01   3.260628E-02   0.0                           \r\n           198      G      0.0            0.0           -5.608389E-01   3.471200E-01   1.133881E-02   0.0                           \r\n           199      G      0.0            0.0           -5.567203E-01   4.230356E-01  -9.643939E-02   0.0                           \r\n           200      G      0.0            0.0           -4.527000E-01   2.846718E-01  -2.771613E-01   0.0                           \r\n           201      G      0.0            0.0           -2.848889E-01   2.134341E-01  -4.119093E-01   0.0                           \r\n           202      G      0.0            0.0           -4.207473E-02   1.806664E-01  -5.244561E-01   0.0                           \r\n           203      G      0.0            0.0            2.219006E-01   1.852936E-01  -5.357531E-01   0.0                           \r\n           204      G      0.0            0.0            4.792370E-01   1.857353E-01  -4.617897E-01   0.0                           \r\n           205      G      0.0            0.0            6.902335E-01   1.241900E-01  -4.224640E-01   0.0                           \r\n           206      G      0.0            0.0            8.705409E-01   3.476710E-02  -2.355522E-01   0.0                           \r\n           207      G      0.0            0.0            8.859161E-01  -1.496249E-02   1.632545E-01   0.0                           \r\n           208      G      0.0            0.0            7.220228E-01  -4.369032E-03   5.116362E-01   0.0                           \r\n           209      G      0.0            0.0            3.953794E-01   1.239664E-02   7.591195E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            8.018831E-01   0.0                           \r\n           253      G      0.0            0.0            1.382276E-01  -4.202958E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            1.398271E-01  -3.290083E-01   9.631108E-03   0.0                           \r\n           255      G      0.0            0.0            9.411194E-02  -2.790669E-01   2.036078E-01   0.0                           \r\n           256      G      0.0            0.0           -4.194682E-02  -1.844763E-01   2.956985E-01   0.0                           \r\n           257      G      0.0            0.0           -1.712239E-01  -6.661118E-02   2.382632E-01   0.0                           \r\n           258      G      0.0            0.0           -2.759430E-01   5.674589E-02   1.614604E-01   0.0                           \r\n           259      G      0.0            0.0           -3.360469E-01   1.527144E-01   1.052751E-01   0.0                           \r\n           260      G      0.0            0.0           -3.595946E-01   1.730624E-01  -6.173683E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -2.825659E-01   1.270314E-01  -1.864891E-01   0.0                           \r\n           262      G      0.0            0.0           -1.979485E-01   7.421366E-02  -1.715628E-01   0.0                           \r\n           263      G      0.0            0.0           -9.670125E-02   5.745932E-02  -2.053357E-01   0.0                           \r\n           264      G      0.0            0.0            1.534223E-02   3.957671E-02  -2.640314E-01   0.0                           \r\n           265      G      0.0            0.0            1.712300E-01  -4.856469E-02  -3.472737E-01   0.0                           \r\n           266      G      0.0            0.0            3.719643E-01  -1.897120E-01  -4.774371E-01   0.0                           \r\n           267      G      0.0            0.0            6.315935E-01  -2.444191E-01  -4.949529E-01   0.0                           \r\n           268      G      0.0            0.0            8.358435E-01  -2.020987E-01  -3.318833E-01   0.0                           \r\n           269      G      0.0            0.0            9.397321E-01  -1.680166E-01  -5.040284E-02   0.0                           \r\n           270      G      0.0            0.0            8.746589E-01  -1.383383E-01   2.794134E-01   0.0                           \r\n           271      G      0.0            0.0            6.710110E-01  -1.104569E-01   5.419835E-01   0.0                           \r\n           272      G      0.0            0.0            3.509917E-01  -7.295435E-02   6.987284E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            6.950918E-01   0.0                           \r\n           316      G      0.0            0.0           -2.326199E-01  -1.806409E-01   0.0            0.0                           \r\n           317      G      0.0            0.0           -1.943268E-01  -1.895938E-01  -1.379019E-01   0.0                           \r\n           318      G      0.0            0.0           -1.340434E-01  -1.359770E-01  -7.174683E-02   0.0                           \r\n           319      G      0.0            0.0           -1.224273E-01  -3.537398E-02  -3.559100E-03   0.0                           \r\n           320      G      0.0            0.0           -1.159444E-01   2.294829E-02  -1.690696E-02   0.0                           \r\n           321      G      0.0            0.0           -8.621050E-02   2.088017E-02  -1.307594E-01   0.0                           \r\n           322      G      0.0            0.0            4.501309E-03   7.537083E-02  -1.716277E-01   0.0                           \r\n           323      G      0.0            0.0            6.380501E-02   1.722455E-01  -8.503048E-02   0.0                           \r\n           324      G      0.0            0.0            8.290862E-02   1.978431E-01   3.235584E-02   0.0                           \r\n           325      G      0.0            0.0            4.049834E-02   1.575196E-01   9.882040E-02   0.0                           \r\n           326      G      0.0            0.0            8.608014E-03   6.411529E-02   3.991303E-02   0.0                           \r\n           327      G      0.0            0.0            1.239429E-02  -6.519964E-02  -7.995335E-02   0.0                           \r\n           328      G      0.0            0.0            6.546042E-02  -1.866638E-01  -7.433142E-02   0.0                           \r\n           329      G      0.0            0.0            9.060521E-02  -2.728340E-01  -7.847277E-02   0.0                           \r\n           330      G      0.0            0.0            1.633967E-01  -3.580378E-01  -1.864610E-01   0.0                           \r\n           331      G      0.0            0.0            2.547587E-01  -4.370103E-01  -1.942712E-01   0.0                           \r\n           332      G      0.0            0.0            3.397001E-01  -4.851494E-01  -1.159853E-01   0.0                           \r\n           333      G      0.0            0.0            3.590348E-01  -4.118598E-01   3.043888E-02   0.0                           \r\n           334      G      0.0            0.0            2.986132E-01  -2.378896E-01   2.326920E-01   0.0                           \r\n           335      G      0.0            0.0            1.439309E-01  -7.093174E-02   3.278479E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            2.661192E-01   0.0                           \r\n           379      G      0.0            0.0           -3.542575E-01  -1.111026E-02   0.0            0.0                           \r\n           380      G      0.0            0.0           -3.022396E-01  -6.657037E-03  -1.874246E-01   0.0                           \r\n           381      G      0.0            0.0           -1.956599E-01   1.677606E-02  -2.292090E-01   0.0                           \r\n           382      G      0.0            0.0           -7.062344E-02   5.219435E-02  -2.863125E-01   0.0                           \r\n           383      G      0.0            0.0            7.547290E-02   1.216350E-01  -2.577142E-01   0.0                           \r\n           384      G      0.0            0.0            1.849236E-01   2.044865E-01  -2.072278E-01   0.0                           \r\n           385      G      0.0            0.0            2.857912E-01   2.544029E-01  -1.748587E-01   0.0                           \r\n           386      G      0.0            0.0            3.384428E-01   2.458269E-01  -4.836289E-02   0.0                           \r\n           387      G      0.0            0.0            3.265078E-01   2.083866E-01   1.086364E-01   0.0                           \r\n           388      G      0.0            0.0            2.324349E-01   1.835046E-01   2.552379E-01   0.0                           \r\n           389      G      0.0            0.0            7.288297E-02   1.648504E-01   3.912460E-01   0.0                           \r\n           390      G      0.0            0.0           -1.419166E-01   6.758177E-02   4.202532E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -3.260654E-01  -9.796677E-02   3.214528E-01   0.0                           \r\n           392      G      0.0            0.0           -4.527664E-01  -2.468257E-01   1.648197E-01   0.0                           \r\n           393      G      0.0            0.0           -4.912603E-01  -3.569774E-01   1.077616E-02   0.0                           \r\n           394      G      0.0            0.0           -4.775765E-01  -4.156565E-01  -7.260884E-02   0.0                           \r\n           395      G      0.0            0.0           -4.289244E-01  -4.199120E-01  -1.026223E-01   0.0                           \r\n           396      G      0.0            0.0           -3.628418E-01  -3.929626E-01  -1.939594E-01   0.0                           \r\n           397      G      0.0            0.0           -2.407875E-01  -3.290997E-01  -2.532883E-01   0.0                           \r\n           398      G      0.0            0.0           -1.246754E-01  -2.017034E-01  -2.256032E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0           -2.568091E-01   0.0                           \r\n           442      G      0.0            0.0           -4.577757E-01   2.749262E-03   0.0            0.0                           \r\n           443      G      0.0            0.0           -3.552137E-01   2.934112E-02  -3.439342E-01   0.0                           \r\n           444      G      0.0            0.0           -1.880462E-01   9.437750E-02  -3.026740E-01   0.0                           \r\n           445      G      0.0            0.0           -4.999863E-02   1.058353E-01  -2.880789E-01   0.0                           \r\n           446      G      0.0            0.0            1.136790E-01   6.527445E-02  -3.490750E-01   0.0                           \r\n           447      G      0.0            0.0            2.946666E-01   4.926219E-02  -3.814979E-01   0.0                           \r\n           448      G      0.0            0.0            4.761206E-01   5.838639E-02  -3.101875E-01   0.0                           \r\n           449      G      0.0            0.0            5.770177E-01   8.823336E-02  -9.480276E-02   0.0                           \r\n           450      G      0.0            0.0            5.580593E-01   1.215772E-01   1.858533E-01   0.0                           \r\n           451      G      0.0            0.0            4.125896E-01   1.232871E-01   3.508087E-01   0.0                           \r\n           452      G      0.0            0.0            2.177782E-01   9.301298E-02   4.523350E-01   0.0                           \r\n           453      G      0.0            0.0           -3.928850E-02   6.213992E-02   5.470253E-01   0.0                           \r\n           454      G      0.0            0.0           -3.060712E-01   5.545678E-02   5.246650E-01   0.0                           \r\n           455      G      0.0            0.0           -5.489815E-01   4.646928E-02   4.213910E-01   0.0                           \r\n           456      G      0.0            0.0           -7.179221E-01  -6.840206E-03   2.528713E-01   0.0                           \r\n           457      G      0.0            0.0           -7.900800E-01  -9.216911E-02   1.302886E-02   0.0                           \r\n           458      G      0.0            0.0           -7.364942E-01  -1.136351E-01  -1.890201E-01   0.0                           \r\n           459      G      0.0            0.0           -6.148078E-01  -6.830133E-02  -3.070391E-01   0.0                           \r\n           460      G      0.0            0.0           -4.376161E-01  -3.057924E-02  -3.784666E-01   0.0                           \r\n           461      G      0.0            0.0           -2.385052E-01  -6.161967E-03  -4.330756E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0           -5.027428E-01   0.0                           \r\n           505      G      0.0            0.0           -4.793432E-01  -8.786678E-02   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.247811E-01  -1.050113E-01  -2.423099E-01   0.0                           \r\n           507      G      0.0            0.0           -2.650587E-01  -1.348655E-01  -3.545314E-01   0.0                           \r\n           508      G      0.0            0.0           -8.932000E-02  -1.471882E-01  -3.637926E-01   0.0                           \r\n           509      G      0.0            0.0            1.061477E-01  -1.317040E-01  -3.996191E-01   0.0                           \r\n           510      G      0.0            0.0            3.046059E-01  -1.011697E-01  -3.997860E-01   0.0                           \r\n           511      G      0.0            0.0            4.904085E-01  -1.067048E-01  -3.240690E-01   0.0                           \r\n           512      G      0.0            0.0            6.187260E-01  -1.338279E-01  -1.971994E-01   0.0                           \r\n           513      G      0.0            0.0            6.741960E-01  -1.144394E-01   1.113117E-02   0.0                           \r\n           514      G      0.0            0.0            6.015138E-01  -2.079486E-02   2.594106E-01   0.0                           \r\n           515      G      0.0            0.0            4.259352E-01   6.117859E-02   4.446522E-01   0.0                           \r\n           516      G      0.0            0.0            1.744897E-01   1.306258E-01   5.320469E-01   0.0                           \r\n           517      G      0.0            0.0           -8.163510E-02   1.796972E-01   4.874915E-01   0.0                           \r\n           518      G      0.0            0.0           -2.967461E-01   2.182548E-01   3.524972E-01   0.0                           \r\n           519      G      0.0            0.0           -4.403314E-01   2.559539E-01   2.462795E-01   0.0                           \r\n           520      G      0.0            0.0           -5.392919E-01   2.933970E-01   1.212919E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -5.520658E-01   2.940237E-01  -5.905185E-02   0.0                           \r\n           522      G      0.0            0.0           -4.912319E-01   2.450380E-01  -1.951310E-01   0.0                           \r\n           523      G      0.0            0.0           -3.647598E-01   1.563012E-01  -2.944295E-01   0.0                           \r\n           524      G      0.0            0.0           -2.007105E-01   7.772642E-02  -3.665154E-01   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -4.226559E-01   0.0                           \r\n           568      G      0.0            0.0           -5.436936E-01   5.801774E-04   0.0            0.0                           \r\n           569      G      0.0            0.0           -4.892953E-01  -2.272565E-02  -2.014224E-01   0.0                           \r\n           570      G      0.0            0.0           -3.708574E-01  -4.818552E-02  -2.495951E-01   0.0                           \r\n           571      G      0.0            0.0           -2.409804E-01  -7.453423E-02  -2.869705E-01   0.0                           \r\n           572      G      0.0            0.0           -7.486869E-02  -1.078469E-01  -3.674335E-01   0.0                           \r\n           573      G      0.0            0.0            1.228870E-01  -1.448110E-01  -4.255031E-01   0.0                           \r\n           574      G      0.0            0.0            3.227549E-01  -1.584515E-01  -3.340006E-01   0.0                           \r\n           575      G      0.0            0.0            4.439684E-01  -1.444445E-01  -1.692594E-01   0.0                           \r\n           576      G      0.0            0.0            4.964999E-01  -1.210032E-01  -2.689859E-02   0.0                           \r\n           577      G      0.0            0.0            4.674664E-01  -1.034901E-01   1.268502E-01   0.0                           \r\n           578      G      0.0            0.0            3.778855E-01  -7.111296E-02   2.362383E-01   0.0                           \r\n           579      G      0.0            0.0            2.438256E-01   7.507493E-03   2.884941E-01   0.0                           \r\n           580      G      0.0            0.0            9.575514E-02   1.182498E-01   3.124242E-01   0.0                           \r\n           581      G      0.0            0.0           -5.644473E-02   1.842992E-01   2.650544E-01   0.0                           \r\n           582      G      0.0            0.0           -1.582732E-01   1.946491E-01   1.523274E-01   0.0                           \r\n           583      G      0.0            0.0           -2.073231E-01   1.979438E-01   3.334781E-02   0.0                           \r\n           584      G      0.0            0.0           -1.978047E-01   1.915259E-01  -5.204671E-02   0.0                           \r\n           585      G      0.0            0.0           -1.689562E-01   1.750880E-01  -6.880077E-02   0.0                           \r\n           586      G      0.0            0.0           -1.352107E-01   1.446106E-01  -5.546556E-02   0.0                           \r\n           587      G      0.0            0.0           -9.687562E-02   8.500077E-02  -1.291838E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.349110E-01   0.0                           \r\n           631      G      0.0            0.0           -4.468543E-01   1.799284E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -4.148105E-01   1.837160E-01  -1.197755E-01   0.0                           \r\n           633      G      0.0            0.0           -3.431083E-01   1.475344E-01  -1.526025E-01   0.0                           \r\n           634      G      0.0            0.0           -2.610034E-01   1.122332E-01  -1.828431E-01   0.0                           \r\n           635      G      0.0            0.0           -1.633407E-01   8.597916E-02  -1.920908E-01   0.0                           \r\n           636      G      0.0            0.0           -6.928315E-02   1.575280E-02  -2.057796E-01   0.0                           \r\n           637      G      0.0            0.0            3.978362E-02  -8.748908E-02  -2.113207E-01   0.0                           \r\n           638      G      0.0            0.0            1.338266E-01  -1.599520E-01  -1.698907E-01   0.0                           \r\n           639      G      0.0            0.0            2.019117E-01  -1.951056E-01  -8.250909E-02   0.0                           \r\n           640      G      0.0            0.0            2.093792E-01  -1.933774E-01   4.399246E-02   0.0                           \r\n           641      G      0.0            0.0            1.629578E-01  -1.642697E-01   1.490235E-01   0.0                           \r\n           642      G      0.0            0.0            8.502644E-02  -1.349354E-01   1.291766E-01   0.0                           \r\n           643      G      0.0            0.0            4.177245E-02  -1.118570E-01   6.869247E-02   0.0                           \r\n           644      G      0.0            0.0            9.798635E-03  -7.934441E-02   4.837141E-02   0.0                           \r\n           645      G      0.0            0.0           -9.378409E-04  -2.582595E-02   1.087595E-02   0.0                           \r\n           646      G      0.0            0.0           -3.198859E-03   2.105147E-02  -9.359439E-03   0.0                           \r\n           647      G      0.0            0.0            4.191358E-03   2.258207E-02  -1.271916E-02   0.0                           \r\n           648      G      0.0            0.0            1.139868E-02  -1.617866E-02  -3.023378E-02   0.0                           \r\n           649      G      0.0            0.0            2.860811E-02  -2.614954E-02  -1.274821E-02   0.0                           \r\n           650      G      0.0            0.0            1.835564E-02  -5.189273E-03   3.797143E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.053315E-02   0.0                           \r\n           694      G      0.0            0.0           -5.499322E-02   2.344313E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -3.676941E-02   2.603128E-01  -5.341882E-02   0.0                           \r\n           696      G      0.0            0.0           -2.726738E-02   2.479839E-01   2.813162E-02   0.0                           \r\n           697      G      0.0            0.0           -4.986345E-02   1.941997E-01   3.022395E-02   0.0                           \r\n           698      G      0.0            0.0           -4.867539E-02   1.089821E-01  -2.010208E-02   0.0                           \r\n           699      G      0.0            0.0           -3.619334E-02   3.092020E-02  -3.830420E-02   0.0                           \r\n           700      G      0.0            0.0           -1.098879E-02  -2.049636E-02  -4.764012E-02   0.0                           \r\n           701      G      0.0            0.0            5.006404E-03  -5.066904E-02  -2.258988E-02   0.0                           \r\n           702      G      0.0            0.0            7.542187E-03  -9.488797E-02   1.702365E-02   0.0                           \r\n           703      G      0.0            0.0           -7.111171E-03  -1.463348E-01   2.893008E-02   0.0                           \r\n           704      G      0.0            0.0           -1.920850E-02  -1.523818E-01   3.843501E-02   0.0                           \r\n           705      G      0.0            0.0           -4.413471E-02  -1.155393E-01   4.969924E-02   0.0                           \r\n           706      G      0.0            0.0           -6.434721E-02  -8.385335E-02   3.878111E-02   0.0                           \r\n           707      G      0.0            0.0           -7.811817E-02  -6.391198E-02   3.827147E-03   0.0                           \r\n           708      G      0.0            0.0           -6.265065E-02  -5.633700E-02  -5.705181E-02   0.0                           \r\n           709      G      0.0            0.0           -2.327713E-02  -5.310816E-02  -1.044878E-01   0.0                           \r\n           710      G      0.0            0.0            2.488657E-02  -3.436749E-02  -6.124636E-02   0.0                           \r\n           711      G      0.0            0.0            3.475885E-02  -3.581921E-03   2.694170E-03   0.0                           \r\n           712      G      0.0            0.0            3.060630E-02   1.829856E-02   2.112765E-02   0.0                           \r\n           713      G      0.0            0.0            1.257356E-02   1.617857E-02   3.616003E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.826298E-02   0.0                           \r\n           757      G      0.0            0.0            2.846684E-01   5.198960E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            2.928858E-01   2.634933E-02  -2.784297E-02   0.0                           \r\n           759      G      0.0            0.0            2.901869E-01   2.205413E-02   5.524834E-02   0.0                           \r\n           760      G      0.0            0.0            2.381370E-01   5.052300E-02   1.326347E-01   0.0                           \r\n           761      G      0.0            0.0            1.669837E-01   6.562036E-02   1.518515E-01   0.0                           \r\n           762      G      0.0            0.0            9.316169E-02   6.373044E-02   1.255335E-01   0.0                           \r\n           763      G      0.0            0.0            4.601068E-02   4.651316E-02   6.841379E-02   0.0                           \r\n           764      G      0.0            0.0            2.112916E-02   2.550112E-02   2.364299E-02   0.0                           \r\n           765      G      0.0            0.0            5.398083E-03   2.247717E-02   6.226846E-02   0.0                           \r\n           766      G      0.0            0.0           -4.266035E-02   3.741071E-02   1.064485E-01   0.0                           \r\n           767      G      0.0            0.0           -8.995582E-02   4.831919E-02   8.788268E-02   0.0                           \r\n           768      G      0.0            0.0           -1.308477E-01   3.884532E-02   6.126923E-02   0.0                           \r\n           769      G      0.0            0.0           -1.485838E-01   2.322717E-02   1.607052E-02   0.0                           \r\n           770      G      0.0            0.0           -1.460258E-01   2.998089E-02  -2.966512E-02   0.0                           \r\n           771      G      0.0            0.0           -1.255638E-01   5.415108E-02  -3.842811E-02   0.0                           \r\n           772      G      0.0            0.0           -1.091511E-01   4.466826E-02  -4.561730E-02   0.0                           \r\n           773      G      0.0            0.0           -7.944617E-02   2.813169E-03  -6.051191E-02   0.0                           \r\n           774      G      0.0            0.0           -5.107703E-02  -2.422693E-02  -5.931645E-02   0.0                           \r\n           775      G      0.0            0.0           -2.248980E-02  -3.492029E-02  -4.103160E-02   0.0                           \r\n           776      G      0.0            0.0           -1.105775E-02  -2.772492E-02  -1.409546E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -2.526140E-02   0.0                           \r\n           820      G      0.0            0.0            9.527367E-02  -2.148875E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            1.087135E-01  -2.202671E-01  -3.519155E-02   0.0                           \r\n           822      G      0.0            0.0            1.147690E-01  -2.148890E-01   1.437424E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.822683E+04    (CYCLIC FREQUENCY =  1.443565E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            9.592371E-02  -1.752608E-01   4.914569E-02   0.0                           \r\n           824      G      0.0            0.0            7.020526E-02  -1.374053E-01   5.954192E-02   0.0                           \r\n           825      G      0.0            0.0            3.899029E-02  -8.342820E-02   5.460050E-02   0.0                           \r\n           826      G      0.0            0.0            1.465226E-02  -3.244672E-02   4.852159E-02   0.0                           \r\n           827      G      0.0            0.0           -9.301861E-03   2.087248E-02   3.333855E-02   0.0                           \r\n           828      G      0.0            0.0           -1.962521E-02   2.369636E-02   2.084970E-02   0.0                           \r\n           829      G      0.0            0.0           -3.044562E-02   3.850846E-02   1.158546E-02   0.0                           \r\n           830      G      0.0            0.0           -3.250144E-02   5.461495E-02   1.072152E-02   0.0                           \r\n           831      G      0.0            0.0           -4.497763E-02   8.009281E-02   3.190975E-02   0.0                           \r\n           832      G      0.0            0.0           -6.222693E-02   9.647626E-02   4.342543E-02   0.0                           \r\n           833      G      0.0            0.0           -7.680434E-02   1.058907E-01  -1.161106E-02   0.0                           \r\n           834      G      0.0            0.0           -5.384384E-02   8.375063E-02  -5.378910E-02   0.0                           \r\n           835      G      0.0            0.0           -3.388551E-02   5.982845E-02  -3.177061E-02   0.0                           \r\n           836      G      0.0            0.0           -1.857912E-02   3.315959E-02  -2.094876E-02   0.0                           \r\n           837      G      0.0            0.0           -1.157236E-02   2.973773E-02  -1.507994E-02   0.0                           \r\n           838      G      0.0            0.0           -4.590746E-03   1.940155E-02  -3.987321E-03   0.0                           \r\n           839      G      0.0            0.0           -6.155929E-03   1.417681E-02  -7.174003E-04   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -1.947791E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -1.764376E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -2.164793E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -2.354492E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -1.971934E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.443277E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -7.354677E-02   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -3.099935E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            2.003148E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            4.458428E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            7.677451E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0            7.060616E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0            1.006034E-01   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.360321E-01   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            1.831550E-01   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            1.183283E-01   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            7.695549E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            3.821828E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            2.222170E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            1.591417E-03   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            1.181923E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0           -3.033993E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0           -9.149635E-02   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.631092E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            1.324356E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            2.383060E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0            4.769390E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.000000E+00   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0            7.571203E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            7.292596E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            5.134698E-01   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            3.654410E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            2.079766E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            2.728376E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -8.164774E-03   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -2.759948E-01   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -5.295600E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -2.898070E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.876347E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -3.796651E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -6.485093E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0           -3.735661E-01   3.501430E-03   0.0            0.0                           \r\n            65      G      0.0            0.0           -2.799316E-01  -3.150164E-02  -4.074890E-01   0.0                           \r\n            66      G      0.0            0.0           -7.282994E-02  -7.824039E-02  -2.923418E-01   0.0                           \r\n            67      G      0.0            0.0           -2.614582E-02  -8.143874E-02   2.672203E-02   0.0                           \r\n            68      G      0.0            0.0           -7.113268E-02  -3.594918E-02   1.999009E-01   0.0                           \r\n            69      G      0.0            0.0           -1.013603E-01  -5.230075E-02  -2.778118E-01   0.0                           \r\n            70      G      0.0            0.0            1.889686E-01  -1.374251E-01  -6.770402E-01   0.0                           \r\n            71      G      0.0            0.0            4.578550E-01  -1.460184E-01  -4.437104E-01   0.0                           \r\n            72      G      0.0            0.0            6.292642E-01  -1.189622E-02  -1.309050E-01   0.0                           \r\n            73      G      0.0            0.0            5.775515E-01   1.097424E-01   2.634064E-01   0.0                           \r\n            74      G      0.0            0.0            3.818978E-01  -5.473542E-02   5.327736E-01   0.0                           \r\n            75      G      0.0            0.0            1.214684E-01  -4.409021E-01   3.796550E-01   0.0                           \r\n            76      G      0.0            0.0            1.646182E-02  -5.683716E-01   2.002643E-01   0.0                           \r\n            77      G      0.0            0.0           -1.008327E-01  -3.541752E-01   1.718346E-01   0.0                           \r\n            78      G      0.0            0.0           -1.576737E-01  -1.822464E-01   1.365419E-01   0.0                           \r\n            79      G      0.0            0.0           -2.271373E-01  -4.449060E-02   3.756985E-02   0.0                           \r\n            80      G      0.0            0.0           -1.591771E-01   3.691694E-03  -2.390176E-01   0.0                           \r\n            81      G      0.0            0.0            1.855574E-03  -2.330565E-03  -4.570954E-01   0.0                           \r\n            82      G      0.0            0.0            1.794247E-01   4.395765E-02  -4.889033E-02   0.0                           \r\n            83      G      0.0            0.0            6.497017E-02   1.052230E-01   2.975121E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            8.626007E-04   0.0                           \r\n           127      G      0.0            0.0           -3.191112E-01  -1.750492E-01   0.0            0.0                           \r\n           128      G      0.0            0.0           -2.144348E-01  -2.029581E-01  -3.769778E-01   0.0                           \r\n           129      G      0.0            0.0           -9.498627E-02  -3.001987E-01  -3.828423E-02   0.0                           \r\n           130      G      0.0            0.0           -1.091184E-01  -5.748335E-01  -5.813741E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0            1.690543E-02  -5.761943E-01  -2.991713E-01   0.0                           \r\n           132      G      0.0            0.0            1.818012E-01  -3.034631E-01  -4.396552E-01   0.0                           \r\n           133      G      0.0            0.0            4.263289E-01  -1.269147E-01  -4.302952E-01   0.0                           \r\n           134      G      0.0            0.0            5.798909E-01  -6.149344E-02  -2.645474E-01   0.0                           \r\n           135      G      0.0            0.0            7.044953E-01  -9.443462E-02  -1.582735E-01   0.0                           \r\n           136      G      0.0            0.0            7.378891E-01  -1.659480E-01  -4.436607E-02   0.0                           \r\n           137      G      0.0            0.0            6.581892E-01  -1.073192E-01   5.448022E-01   0.0                           \r\n           138      G      0.0            0.0            2.308685E-01   6.093127E-02   9.470503E-01   0.0                           \r\n           139      G      0.0            0.0           -1.627562E-01   1.797682E-01   6.701279E-01   0.0                           \r\n           140      G      0.0            0.0           -4.377708E-01   1.255827E-01   3.100339E-01   0.0                           \r\n           141      G      0.0            0.0           -4.678023E-01   6.006165E-02  -1.174758E-01   0.0                           \r\n           142      G      0.0            0.0           -3.449014E-01   2.121900E-01  -3.940684E-01   0.0                           \r\n           143      G      0.0            0.0           -1.586419E-01   5.294552E-01  -2.189851E-01   0.0                           \r\n           144      G      0.0            0.0           -1.440859E-01   5.293700E-01  -6.621376E-03   0.0                           \r\n           145      G      0.0            0.0           -1.239110E-01   2.483775E-01   1.717892E-02   0.0                           \r\n           146      G      0.0            0.0           -1.332117E-01   8.484718E-02  -7.535271E-02   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -3.744943E-01   0.0                           \r\n           190      G      0.0            0.0           -4.192234E-01   8.285846E-01   0.0            0.0                           \r\n           191      G      0.0            0.0           -2.318875E-01   5.002220E-01  -5.997599E-01   0.0                           \r\n           192      G      0.0            0.0           -1.568532E-02   2.716462E-01  -1.006222E-01   0.0                           \r\n           193      G      0.0            0.0           -1.002822E-01   2.614577E-01   3.056844E-01   0.0                           \r\n           194      G      0.0            0.0           -2.092383E-01   2.353503E-01   1.142601E-01   0.0                           \r\n           195      G      0.0            0.0           -1.999247E-01   1.265065E-01  -2.116378E-01   0.0                           \r\n           196      G      0.0            0.0           -2.637701E-02  -1.032018E-01  -4.017869E-01   0.0                           \r\n           197      G      0.0            0.0            1.452357E-01  -1.424654E-01  -2.693026E-01   0.0                           \r\n           198      G      0.0            0.0            1.894384E-01  -3.880709E-02   1.415739E-01   0.0                           \r\n           199      G      0.0            0.0            2.697040E-02   2.215300E-02   3.815430E-01   0.0                           \r\n           200      G      0.0            0.0           -1.549342E-01  -2.140245E-01   4.007505E-01   0.0                           \r\n           201      G      0.0            0.0           -3.562496E-01  -2.693086E-01   3.496776E-01   0.0                           \r\n           202      G      0.0            0.0           -4.756789E-01  -2.071764E-01   1.621506E-01   0.0                           \r\n           203      G      0.0            0.0           -5.189180E-01  -5.107690E-02  -1.947633E-02   0.0                           \r\n           204      G      0.0            0.0           -4.574905E-01   1.025869E-01  -1.879636E-01   0.0                           \r\n           205      G      0.0            0.0           -3.056455E-01   1.312163E-01  -4.961479E-01   0.0                           \r\n           206      G      0.0            0.0           -1.107324E-02   7.609426E-02  -5.719414E-01   0.0                           \r\n           207      G      0.0            0.0            1.925124E-01   4.416591E-02  -2.511433E-01   0.0                           \r\n           208      G      0.0            0.0            2.531907E-01   7.050510E-02   5.772905E-02   0.0                           \r\n           209      G      0.0            0.0            1.541747E-01   7.062644E-02   2.972822E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            3.068930E-01   0.0                           \r\n           253      G      0.0            0.0           -1.005597E-02   1.619268E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            3.319659E-02   2.720338E-01  -1.436191E-01   0.0                           \r\n           255      G      0.0            0.0            6.674622E-02   2.243063E-01   6.648717E-02   0.0                           \r\n           256      G      0.0            0.0           -9.062574E-03   1.850278E-01   1.660893E-01   0.0                           \r\n           257      G      0.0            0.0           -6.359862E-02   1.455684E-01   8.764774E-02   0.0                           \r\n           258      G      0.0            0.0           -1.063296E-01   1.088584E-01   5.565008E-02   0.0                           \r\n           259      G      0.0            0.0           -1.396384E-01   5.293964E-02   1.249820E-01   0.0                           \r\n           260      G      0.0            0.0           -2.035713E-01  -7.386143E-02   4.163066E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0           -1.975304E-01  -2.323214E-01   3.009242E-02   0.0                           \r\n           262      G      0.0            0.0           -2.704546E-01  -3.088948E-01   2.166741E-01   0.0                           \r\n           263      G      0.0            0.0           -3.770101E-01  -2.336851E-01   2.437602E-01   0.0                           \r\n           264      G      0.0            0.0           -4.840816E-01  -8.891685E-02   1.339014E-01   0.0                           \r\n           265      G      0.0            0.0           -4.877237E-01  -2.318334E-02  -1.100266E-01   0.0                           \r\n           266      G      0.0            0.0           -3.450941E-01  -4.307058E-02  -5.049033E-01   0.0                           \r\n           267      G      0.0            0.0           -5.123283E-03   5.409309E-02  -7.428194E-01   0.0                           \r\n           268      G      0.0            0.0            3.452135E-01   2.544641E-01  -6.717444E-01   0.0                           \r\n           269      G      0.0            0.0            6.220113E-01   3.549563E-01  -3.709766E-01   0.0                           \r\n           270      G      0.0            0.0            6.900949E-01   3.534766E-01   5.428362E-02   0.0                           \r\n           271      G      0.0            0.0            5.797325E-01   2.611185E-01   4.088901E-01   0.0                           \r\n           272      G      0.0            0.0            3.073613E-01   1.181798E-01   6.230736E-01   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            5.990073E-01   0.0                           \r\n           316      G      0.0            0.0            3.229775E-01   3.131059E-04   0.0            0.0                           \r\n           317      G      0.0            0.0            3.710110E-01  -4.294474E-02  -1.667252E-01   0.0                           \r\n           318      G      0.0            0.0            4.209197E-01  -2.936829E-02   1.842915E-02   0.0                           \r\n           319      G      0.0            0.0            3.513219E-01   2.863669E-02   2.054513E-01   0.0                           \r\n           320      G      0.0            0.0            2.395696E-01  -9.779882E-04   2.439655E-01   0.0                           \r\n           321      G      0.0            0.0            1.407137E-01  -1.240340E-01   9.381530E-02   0.0                           \r\n           322      G      0.0            0.0            1.296019E-01  -1.143760E-01   4.541473E-02   0.0                           \r\n           323      G      0.0            0.0            6.156388E-02   2.426101E-02   1.840024E-01   0.0                           \r\n           324      G      0.0            0.0           -6.045903E-02   1.086975E-01   3.360162E-01   0.0                           \r\n           325      G      0.0            0.0           -2.524955E-01   1.493980E-01   3.590190E-01   0.0                           \r\n           326      G      0.0            0.0           -3.716034E-01   1.583568E-01   1.327585E-01   0.0                           \r\n           327      G      0.0            0.0           -3.620269E-01   1.446272E-01  -2.133175E-01   0.0                           \r\n           328      G      0.0            0.0           -1.995526E-01   1.550532E-01  -3.319842E-01   0.0                           \r\n           329      G      0.0            0.0           -3.005865E-02   2.045802E-01  -4.269395E-01   0.0                           \r\n           330      G      0.0            0.0            2.499151E-01   2.034668E-01  -6.371219E-01   0.0                           \r\n           331      G      0.0            0.0            5.559049E-01   1.365666E-01  -6.026160E-01   0.0                           \r\n           332      G      0.0            0.0            8.101755E-01   3.215477E-02  -3.562813E-01   0.0                           \r\n           333      G      0.0            0.0            8.852732E-01   4.370372E-02   4.427370E-02   0.0                           \r\n           334      G      0.0            0.0            7.477111E-01   1.452410E-01   5.394048E-01   0.0                           \r\n           335      G      0.0            0.0            3.832479E-01   1.720344E-01   8.101301E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            7.431253E-01   0.0                           \r\n           379      G      0.0            0.0            6.237490E-02  -3.253011E-01   0.0            0.0                           \r\n           380      G      0.0            0.0            1.087322E-01  -3.244389E-01  -1.517795E-01   0.0                           \r\n           381      G      0.0            0.0            1.681224E-01  -3.022802E-01  -7.451192E-02   0.0                           \r\n           382      G      0.0            0.0            1.944024E-01  -2.644120E-01  -6.543953E-02   0.0                           \r\n           383      G      0.0            0.0            2.176394E-01  -1.638164E-01   3.139453E-02   0.0                           \r\n           384      G      0.0            0.0            1.714765E-01  -2.597443E-02   9.575917E-02   0.0                           \r\n           385      G      0.0            0.0            1.399790E-01   7.843068E-02   5.722638E-02   0.0                           \r\n           386      G      0.0            0.0            8.948055E-02   1.118734E-01   1.160806E-01   0.0                           \r\n           387      G      0.0            0.0            2.023734E-02   1.273773E-01   1.793696E-01   0.0                           \r\n           388      G      0.0            0.0           -7.988223E-02   1.928190E-01   2.016888E-01   0.0                           \r\n           389      G      0.0            0.0           -1.786904E-01   2.885614E-01   2.150540E-01   0.0                           \r\n           390      G      0.0            0.0           -2.725317E-01   2.559449E-01   9.087624E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -2.464167E-01   9.791445E-02  -1.699742E-01   0.0                           \r\n           392      G      0.0            0.0           -1.034302E-01  -5.392523E-02  -4.187430E-01   0.0                           \r\n           393      G      0.0            0.0            1.497817E-01  -1.738041E-01  -5.397286E-01   0.0                           \r\n           394      G      0.0            0.0            3.915280E-01  -2.482004E-01  -4.269065E-01   0.0                           \r\n           395      G      0.0            0.0            5.440356E-01  -2.757556E-01  -1.450657E-01   0.0                           \r\n           396      G      0.0            0.0            5.516689E-01  -2.947634E-01   5.445025E-02   0.0                           \r\n           397      G      0.0            0.0            4.848887E-01  -2.886726E-01   2.688765E-01   0.0                           \r\n           398      G      0.0            0.0            2.725129E-01  -2.009891E-01   5.340341E-01   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.579460E-01   0.0                           \r\n           442      G      0.0            0.0           -5.838303E-01  -1.861126E-01   0.0            0.0                           \r\n           443      G      0.0            0.0           -4.529309E-01  -1.386595E-01  -4.112414E-01   0.0                           \r\n           444      G      0.0            0.0           -2.950985E-01  -2.202017E-02  -1.869145E-01   0.0                           \r\n           445      G      0.0            0.0           -2.517115E-01   4.858491E-03  -6.039508E-02   0.0                           \r\n           446      G      0.0            0.0           -1.972345E-01  -5.629781E-02  -1.362987E-01   0.0                           \r\n           447      G      0.0            0.0           -1.068179E-01  -7.492230E-02  -2.452909E-01   0.0                           \r\n           448      G      0.0            0.0            3.144806E-02  -5.127245E-02  -2.556922E-01   0.0                           \r\n           449      G      0.0            0.0            1.151283E-01   5.234032E-03  -8.462619E-02   0.0                           \r\n           450      G      0.0            0.0            1.042253E-01   6.292249E-02   1.554939E-01   0.0                           \r\n           451      G      0.0            0.0            1.246392E-03   5.993139E-02   1.849330E-01   0.0                           \r\n           452      G      0.0            0.0           -6.460966E-02  -4.495642E-03   1.309449E-01   0.0                           \r\n           453      G      0.0            0.0           -1.383397E-01  -7.507033E-02   1.303535E-01   0.0                           \r\n           454      G      0.0            0.0           -1.714925E-01  -1.065110E-01   2.913509E-02   0.0                           \r\n           455      G      0.0            0.0           -1.630828E-01  -1.404201E-01  -8.701656E-02   0.0                           \r\n           456      G      0.0            0.0           -9.117139E-02  -2.441006E-01  -1.858073E-01   0.0                           \r\n           457      G      0.0            0.0            2.220174E-02  -3.912039E-01  -2.946283E-01   0.0                           \r\n           458      G      0.0            0.0            1.797433E-01  -4.126883E-01  -2.654869E-01   0.0                           \r\n           459      G      0.0            0.0            2.598645E-01  -3.014482E-01  -7.629646E-02   0.0                           \r\n           460      G      0.0            0.0            2.494053E-01  -1.863186E-01   1.433843E-01   0.0                           \r\n           461      G      0.0            0.0            1.308544E-01  -8.100608E-02   2.827501E-01   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.457196E-01   0.0                           \r\n           505      G      0.0            0.0           -5.275576E-01   1.409420E-01   0.0            0.0                           \r\n           506      G      0.0            0.0           -4.750285E-01   1.152826E-01  -2.527366E-01   0.0                           \r\n           507      G      0.0            0.0           -3.190899E-01   7.396127E-02  -3.027437E-01   0.0                           \r\n           508      G      0.0            0.0           -1.972933E-01   6.469110E-02  -2.171620E-01   0.0                           \r\n           509      G      0.0            0.0           -7.821462E-02   9.833694E-02  -2.353182E-01   0.0                           \r\n           510      G      0.0            0.0            4.102452E-02   1.448374E-01  -2.593453E-01   0.0                           \r\n           511      G      0.0            0.0            1.672975E-01   1.086874E-01  -2.196476E-01   0.0                           \r\n           512      G      0.0            0.0            2.548274E-01   9.316892E-03  -1.492409E-01   0.0                           \r\n           513      G      0.0            0.0            3.017481E-01  -3.825991E-02   2.093871E-02   0.0                           \r\n           514      G      0.0            0.0            2.275333E-01   1.560883E-02   2.425638E-01   0.0                           \r\n           515      G      0.0            0.0            7.729895E-02   2.948538E-02   3.664493E-01   0.0                           \r\n           516      G      0.0            0.0           -1.154063E-01   1.215687E-02   3.632256E-01   0.0                           \r\n           517      G      0.0            0.0           -2.561845E-01  -3.613728E-02   2.032064E-01   0.0                           \r\n           518      G      0.0            0.0           -3.071916E-01  -8.293073E-02  -2.082663E-02   0.0                           \r\n           519      G      0.0            0.0           -2.641833E-01  -9.667880E-02  -9.621621E-02   0.0                           \r\n           520      G      0.0            0.0           -2.210353E-01  -6.442253E-02  -1.146933E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -1.443503E-01  -4.186819E-02  -1.674768E-01   0.0                           \r\n           522      G      0.0            0.0           -7.576681E-02  -4.986944E-02  -1.260649E-01   0.0                           \r\n           523      G      0.0            0.0           -2.582098E-02  -7.695015E-02  -5.238426E-02   0.0                           \r\n           524      G      0.0            0.0           -1.559975E-02  -4.928097E-02  -8.328402E-03   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -4.501642E-02   0.0                           \r\n           568      G      0.0            0.0           -1.617392E-01   2.128079E-01   0.0            0.0                           \r\n           569      G      0.0            0.0           -9.887477E-02   1.839415E-01  -2.245702E-01   0.0                           \r\n           570      G      0.0            0.0            1.514308E-02   1.714727E-01  -1.952561E-01   0.0                           \r\n           571      G      0.0            0.0            9.722839E-02   1.711382E-01  -1.671393E-01   0.0                           \r\n           572      G      0.0            0.0            2.023522E-01   1.627914E-01  -2.425012E-01   0.0                           \r\n           573      G      0.0            0.0            3.391587E-01   1.407273E-01  -3.154986E-01   0.0                           \r\n           574      G      0.0            0.0            4.758605E-01   1.399539E-01  -1.708161E-01   0.0                           \r\n           575      G      0.0            0.0            4.935025E-01   1.584151E-01   6.027656E-02   0.0                           \r\n           576      G      0.0            0.0            4.282631E-01   1.590157E-01   2.167255E-01   0.0                           \r\n           577      G      0.0            0.0            2.743971E-01   1.146382E-01   3.642576E-01   0.0                           \r\n           578      G      0.0            0.0            7.917917E-02   6.577788E-02   4.202099E-01   0.0                           \r\n           579      G      0.0            0.0           -1.263947E-01   7.609201E-02   3.805211E-01   0.0                           \r\n           580      G      0.0            0.0           -2.962212E-01   1.347697E-01   3.148321E-01   0.0                           \r\n           581      G      0.0            0.0           -4.293246E-01   1.253574E-01   1.677626E-01   0.0                           \r\n           582      G      0.0            0.0           -4.559201E-01   4.459484E-02  -3.813844E-02   0.0                           \r\n           583      G      0.0            0.0           -3.994568E-01  -1.042402E-02  -1.991199E-01   0.0                           \r\n           584      G      0.0            0.0           -2.756500E-01  -3.523815E-02  -2.569144E-01   0.0                           \r\n           585      G      0.0            0.0           -1.695942E-01  -2.775873E-02  -1.727035E-01   0.0                           \r\n           586      G      0.0            0.0           -1.112925E-01   6.107565E-04  -4.064799E-02   0.0                           \r\n           587      G      0.0            0.0           -9.247438E-02   1.297021E-02  -8.911037E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.424491E-01   0.0                           \r\n           631      G      0.0            0.0           -1.455455E-01  -1.197271E-01   0.0            0.0                           \r\n           632      G      0.0            0.0           -9.726883E-02  -9.400710E-02  -1.785334E-01   0.0                           \r\n           633      G      0.0            0.0            4.523929E-03  -1.005588E-01  -2.036324E-01   0.0                           \r\n           634      G      0.0            0.0            1.070091E-01  -7.523063E-02  -2.185194E-01   0.0                           \r\n           635      G      0.0            0.0            2.163579E-01  -1.334709E-02  -1.928256E-01   0.0                           \r\n           636      G      0.0            0.0            2.981831E-01  -1.756160E-02  -1.737038E-01   0.0                           \r\n           637      G      0.0            0.0            3.851460E-01  -8.129085E-02  -1.446460E-01   0.0                           \r\n           638      G      0.0            0.0            4.292925E-01  -1.063337E-01  -4.551795E-02   0.0                           \r\n           639      G      0.0            0.0            4.189852E-01  -9.083072E-02   1.146068E-01   0.0                           \r\n           640      G      0.0            0.0            3.052941E-01  -4.194824E-02   3.179087E-01   0.0                           \r\n           641      G      0.0            0.0            1.125465E-01   2.132250E-02   4.580789E-01   0.0                           \r\n           642      G      0.0            0.0           -1.083396E-01   5.401055E-02   3.612246E-01   0.0                           \r\n           643      G      0.0            0.0           -2.346394E-01   5.089909E-02   1.819164E-01   0.0                           \r\n           644      G      0.0            0.0           -3.034560E-01   4.802442E-02   7.246937E-02   0.0                           \r\n           645      G      0.0            0.0           -3.014183E-01   7.577721E-02  -5.247695E-02   0.0                           \r\n           646      G      0.0            0.0           -2.597736E-01   9.685843E-02  -1.249267E-01   0.0                           \r\n           647      G      0.0            0.0           -1.886620E-01   5.308553E-02  -1.433671E-01   0.0                           \r\n           648      G      0.0            0.0           -1.164858E-01  -4.170230E-02  -1.658342E-01   0.0                           \r\n           649      G      0.0            0.0           -3.360683E-02  -6.778502E-02  -1.176718E-01   0.0                           \r\n           650      G      0.0            0.0           -6.811716E-03  -2.481986E-02  -1.348794E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.942654E-02   0.0                           \r\n           694      G      0.0            0.0           -3.934350E-01  -2.518732E-01   0.0            0.0                           \r\n           695      G      0.0            0.0           -3.415173E-01  -1.929837E-01  -1.728462E-01   0.0                           \r\n           696      G      0.0            0.0           -2.668128E-01  -1.718491E-01  -1.003811E-01   0.0                           \r\n           697      G      0.0            0.0           -2.188376E-01  -1.968145E-01  -1.411136E-01   0.0                           \r\n           698      G      0.0            0.0           -1.148022E-01  -2.547270E-01  -2.431023E-01   0.0                           \r\n           699      G      0.0            0.0            8.877994E-03  -2.846530E-01  -2.596497E-01   0.0                           \r\n           700      G      0.0            0.0            1.400700E-01  -2.597790E-01  -2.338547E-01   0.0                           \r\n           701      G      0.0            0.0            2.293509E-01  -1.969828E-01  -1.299522E-01   0.0                           \r\n           702      G      0.0            0.0            2.627120E-01  -1.646626E-01   6.191692E-03   0.0                           \r\n           703      G      0.0            0.0            2.333520E-01  -1.581808E-01   8.905698E-02   0.0                           \r\n           704      G      0.0            0.0            1.808287E-01  -9.279738E-02   1.512853E-01   0.0                           \r\n           705      G      0.0            0.0            8.872411E-02   2.338668E-02   1.937262E-01   0.0                           \r\n           706      G      0.0            0.0           -1.089817E-03   1.063218E-01   1.747769E-01   0.0                           \r\n           707      G      0.0            0.0           -7.506227E-02   1.457401E-01   9.634106E-02   0.0                           \r\n           708      G      0.0            0.0           -8.695214E-02   1.440784E-01  -3.624821E-02   0.0                           \r\n           709      G      0.0            0.0           -4.333155E-02   1.202890E-01  -1.463209E-01   0.0                           \r\n           710      G      0.0            0.0            2.840805E-02   1.140469E-01  -9.463704E-02   0.0                           \r\n           711      G      0.0            0.0            4.367658E-02   1.241162E-01   1.082126E-03   0.0                           \r\n           712      G      0.0            0.0            4.011889E-02   1.177372E-01   2.595492E-02   0.0                           \r\n           713      G      0.0            0.0            1.501717E-02   7.060818E-02   4.940661E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            1.820032E-02   0.0                           \r\n           757      G      0.0            0.0           -3.999300E-01   5.970553E-02   0.0            0.0                           \r\n           758      G      0.0            0.0           -3.563675E-01   1.175439E-02  -1.639216E-01   0.0                           \r\n           759      G      0.0            0.0           -2.762533E-01  -6.463238E-03  -1.232746E-01   0.0                           \r\n           760      G      0.0            0.0           -2.354132E-01   2.698263E-02  -6.793580E-02   0.0                           \r\n           761      G      0.0            0.0           -1.958968E-01   3.597672E-02  -8.170427E-02   0.0                           \r\n           762      G      0.0            0.0           -1.457958E-01   1.783989E-02  -1.399113E-01   0.0                           \r\n           763      G      0.0            0.0           -5.167289E-02  -2.108000E-02  -2.178245E-01   0.0                           \r\n           764      G      0.0            0.0            6.325705E-02  -5.824007E-02  -2.459951E-01   0.0                           \r\n           765      G      0.0            0.0            1.641682E-01  -5.507614E-02  -1.111531E-01   0.0                           \r\n           766      G      0.0            0.0            1.726937E-01  -1.253323E-02   4.144648E-02   0.0                           \r\n           767      G      0.0            0.0            1.444567E-01   2.901823E-02   8.284745E-02   0.0                           \r\n           768      G      0.0            0.0            9.317696E-02   3.797539E-02   9.811290E-02   0.0                           \r\n           769      G      0.0            0.0            5.503972E-02   3.519847E-02   6.466747E-02   0.0                           \r\n           770      G      0.0            0.0            3.367268E-02   6.661630E-02   1.349330E-02   0.0                           \r\n           771      G      0.0            0.0            3.267923E-02   1.216251E-01   1.219144E-02   0.0                           \r\n           772      G      0.0            0.0            2.009371E-02   1.116834E-01   4.537452E-03   0.0                           \r\n           773      G      0.0            0.0            2.912683E-02   3.954122E-02  -2.086672E-02   0.0                           \r\n           774      G      0.0            0.0            3.607300E-02  -1.219167E-02  -1.979946E-02   0.0                           \r\n           775      G      0.0            0.0            4.377748E-02  -3.903386E-02   1.097086E-02   0.0                           \r\n           776      G      0.0            0.0            2.219416E-02  -3.681702E-02   5.705647E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            3.786653E-02   0.0                           \r\n           820      G      0.0            0.0           -1.863762E-01   2.925081E-01   0.0            0.0                           \r\n           821      G      0.0            0.0           -1.530904E-01   2.637910E-01  -1.006670E-01   0.0                           \r\n           822      G      0.0            0.0           -1.132447E-01   2.167950E-01  -5.123955E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.135656E+05    (CYCLIC FREQUENCY =  1.853699E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -1.000800E-01   1.978883E-01  -1.936704E-02   0.0                           \r\n           824      G      0.0            0.0           -8.712696E-02   1.538508E-01  -1.946429E-02   0.0                           \r\n           825      G      0.0            0.0           -7.728124E-02   1.255593E-01  -3.499243E-02   0.0                           \r\n           826      G      0.0            0.0           -5.479449E-02   9.078842E-02  -4.164992E-02   0.0                           \r\n           827      G      0.0            0.0           -3.598638E-02   6.863327E-02  -5.434053E-02   0.0                           \r\n           828      G      0.0            0.0           -2.404804E-03  -2.341917E-02  -5.505338E-02   0.0                           \r\n           829      G      0.0            0.0            1.874446E-02  -7.252050E-02  -4.601772E-02   0.0                           \r\n           830      G      0.0            0.0            4.212274E-02  -9.481747E-02  -2.190542E-02   0.0                           \r\n           831      G      0.0            0.0            3.525418E-02  -7.752922E-02   3.757276E-02   0.0                           \r\n           832      G      0.0            0.0            9.639482E-03  -5.594339E-02   7.586823E-02   0.0                           \r\n           833      G      0.0            0.0           -1.945216E-02  -3.117010E-02  -5.262505E-03   0.0                           \r\n           834      G      0.0            0.0            1.027295E-02  -5.004850E-02  -6.868175E-02   0.0                           \r\n           835      G      0.0            0.0            3.108524E-02  -6.511184E-02  -2.501165E-02   0.0                           \r\n           836      G      0.0            0.0            4.148344E-02  -8.062539E-02  -2.742910E-03   0.0                           \r\n           837      G      0.0            0.0            3.612356E-02  -5.367566E-02   9.555558E-03   0.0                           \r\n           838      G      0.0            0.0            2.983038E-02  -3.713643E-02   2.986677E-02   0.0                           \r\n           839      G      0.0            0.0            8.382446E-03  -1.104044E-02   3.608936E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            4.039577E-03   0.0                           \r\n           841      G      0.0            0.0            0.0            4.172850E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0            3.277452E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0            2.352167E-01   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            2.081719E-01   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            1.824938E-01   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.745037E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            1.160915E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            8.079020E-02   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            1.729268E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -9.769827E-03   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -7.672577E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -5.636932E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -4.968728E-03   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            8.326959E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -8.872455E-03   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -5.270158E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -8.669163E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -7.825927E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -7.575990E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -1.917250E-02   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            6.688575E-02   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.770604E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            2.983970E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -2.670683E-02   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -1.715152E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -1.599859E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0            1.673490E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -7.259754E-03   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0            7.589117E-02   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0            6.550609E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0            1.235376E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0            1.526787E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            3.099521E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            1.364190E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -7.707044E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0           -3.105491E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0           -1.646405E-01   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0           -2.006666E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0           -2.969777E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0           -5.165389E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            2.113265E-01   3.640473E-01   0.0            0.0                           \r\n            65      G      0.0            0.0            2.057700E-01   2.942643E-01  -9.397997E-03   0.0                           \r\n            66      G      0.0            0.0            1.500303E-01   1.423326E-01   3.177446E-01   0.0                           \r\n            67      G      0.0            0.0           -1.176678E-01  -1.733578E-02   6.673677E-01   0.0                           \r\n            68      G      0.0            0.0           -4.653643E-01  -1.398912E-01   7.358930E-01   0.0                           \r\n            69      G      0.0            0.0           -7.300047E-01  -2.728964E-01   1.477303E-01   0.0                           \r\n            70      G      0.0            0.0           -6.144975E-01  -3.936724E-01  -4.532015E-01   0.0                           \r\n            71      G      0.0            0.0           -3.726842E-01  -3.792440E-01  -5.444058E-01   0.0                           \r\n            72      G      0.0            0.0           -8.806431E-02  -1.914460E-01  -4.926470E-01   0.0                           \r\n            73      G      0.0            0.0            8.991364E-02   1.703306E-02  -2.607203E-01   0.0                           \r\n            74      G      0.0            0.0            1.652933E-01  -4.539560E-03  -1.393505E-02   0.0                           \r\n            75      G      0.0            0.0            1.506662E-01  -2.322314E-01  -1.739653E-02   0.0                           \r\n            76      G      0.0            0.0            1.887063E-01  -2.991622E-01  -1.608240E-03   0.0                           \r\n            77      G      0.0            0.0            1.383397E-01  -1.385559E-01   1.274452E-01   0.0                           \r\n            78      G      0.0            0.0            6.967685E-02  -4.287613E-02   2.076299E-01   0.0                           \r\n            79      G      0.0            0.0           -4.801972E-02   1.059433E-02   1.756068E-01   0.0                           \r\n            80      G      0.0            0.0           -6.550051E-02  -3.701993E-03  -5.530832E-02   0.0                           \r\n            81      G      0.0            0.0            6.844204E-03  -4.218804E-02  -2.781661E-01   0.0                           \r\n            82      G      0.0            0.0            1.208606E-01  -1.276059E-02  -1.743761E-02   0.0                           \r\n            83      G      0.0            0.0            3.229164E-02   5.258008E-02   2.072128E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0           -4.575356E-02   0.0                           \r\n           127      G      0.0            0.0            7.023150E-01   1.357125E-02   0.0            0.0                           \r\n           128      G      0.0            0.0            6.689451E-01  -1.256779E-02   1.578173E-01   0.0                           \r\n           129      G      0.0            0.0            4.457734E-01  -9.934239E-02   7.598756E-01   0.0                           \r\n           130      G      0.0            0.0            9.946114E-04  -3.245789E-01   8.645669E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -3.318463E-01  -3.222414E-01   5.494680E-01   0.0                           \r\n           132      G      0.0            0.0           -5.192025E-01  -8.525654E-02   1.142729E-01   0.0                           \r\n           133      G      0.0            0.0           -4.537967E-01   9.234822E-02  -2.976394E-01   0.0                           \r\n           134      G      0.0            0.0           -2.541673E-01   1.898342E-01  -5.552123E-01   0.0                           \r\n           135      G      0.0            0.0            8.583276E-02   2.046284E-01  -7.238680E-01   0.0                           \r\n           136      G      0.0            0.0            4.336812E-01   1.710546E-01  -6.962846E-01   0.0                           \r\n           137      G      0.0            0.0            6.768866E-01   2.115040E-01  -1.109542E-01   0.0                           \r\n           138      G      0.0            0.0            5.528641E-01   3.031593E-01   4.479972E-01   0.0                           \r\n           139      G      0.0            0.0            3.234579E-01   3.219497E-01   5.049593E-01   0.0                           \r\n           140      G      0.0            0.0            5.924223E-02   1.820700E-01   4.499826E-01   0.0                           \r\n           141      G      0.0            0.0           -1.026717E-01   3.024942E-02   2.426675E-01   0.0                           \r\n           142      G      0.0            0.0           -1.801016E-01   6.725106E-02   3.830884E-02   0.0                           \r\n           143      G      0.0            0.0           -1.885253E-01   2.663222E-01   8.886629E-02   0.0                           \r\n           144      G      0.0            0.0           -2.712679E-01   2.536124E-01   1.037150E-01   0.0                           \r\n           145      G      0.0            0.0           -2.680257E-01   5.829270E-02  -4.468844E-02   0.0                           \r\n           146      G      0.0            0.0           -2.127584E-01  -1.143478E-02  -2.458969E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0           -5.300774E-01   0.0                           \r\n           190      G      0.0            0.0            4.918592E-01   3.384261E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            5.419418E-01   1.024902E-01  -8.921149E-02   0.0                           \r\n           192      G      0.0            0.0            4.475052E-01  -1.099283E-02   5.765750E-01   0.0                           \r\n           193      G      0.0            0.0            2.793376E-02   8.094657E-02   9.680468E-01   0.0                           \r\n           194      G      0.0            0.0           -3.889477E-01   1.756075E-01   6.601110E-01   0.0                           \r\n           195      G      0.0            0.0           -5.878743E-01   2.006125E-01   7.241336E-02   0.0                           \r\n           196      G      0.0            0.0           -4.729224E-01   1.086282E-01  -4.681544E-01   0.0                           \r\n           197      G      0.0            0.0           -1.776246E-01   1.329685E-01  -6.859816E-01   0.0                           \r\n           198      G      0.0            0.0            1.392670E-01   2.290732E-01  -5.195615E-01   0.0                           \r\n           199      G      0.0            0.0            3.217006E-01   2.495364E-01  -2.866137E-01   0.0                           \r\n           200      G      0.0            0.0            4.214642E-01   7.079600E-05  -5.221602E-02   0.0                           \r\n           201      G      0.0            0.0            3.682898E-01  -1.289380E-01   2.272456E-01   0.0                           \r\n           202      G      0.0            0.0            2.164402E-01  -1.725347E-01   4.001546E-01   0.0                           \r\n           203      G      0.0            0.0           -1.565620E-02  -1.357253E-01   4.875931E-01   0.0                           \r\n           204      G      0.0            0.0           -2.447337E-01  -8.393277E-02   4.376372E-01   0.0                           \r\n           205      G      0.0            0.0           -4.036963E-01  -1.056223E-01   1.178342E-01   0.0                           \r\n           206      G      0.0            0.0           -3.781534E-01  -1.621001E-01  -1.463819E-01   0.0                           \r\n           207      G      0.0            0.0           -3.032026E-01  -1.669830E-01  -1.647952E-01   0.0                           \r\n           208      G      0.0            0.0           -2.041060E-01  -9.648228E-02  -1.878775E-01   0.0                           \r\n           209      G      0.0            0.0           -1.139407E-01  -2.566085E-02  -1.926493E-01   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0           -2.559115E-01   0.0                           \r\n           253      G      0.0            0.0            1.914124E-01  -2.690054E-01   0.0            0.0                           \r\n           254      G      0.0            0.0            1.667968E-01  -1.581463E-01   1.170850E-01   0.0                           \r\n           255      G      0.0            0.0            3.882772E-02  -1.295104E-01   4.273680E-01   0.0                           \r\n           256      G      0.0            0.0           -2.118789E-01  -6.660553E-02   5.035902E-01   0.0                           \r\n           257      G      0.0            0.0           -4.046712E-01   3.096464E-03   2.826642E-01   0.0                           \r\n           258      G      0.0            0.0           -4.797956E-01   6.017851E-02  -8.035578E-03   0.0                           \r\n           259      G      0.0            0.0           -4.082423E-01   7.039658E-02  -2.334264E-01   0.0                           \r\n           260      G      0.0            0.0           -2.393986E-01  -1.425751E-02  -4.952911E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            4.510049E-02  -1.588062E-01  -5.454416E-01   0.0                           \r\n           262      G      0.0            0.0            2.436739E-01  -2.614619E-01  -2.652456E-01   0.0                           \r\n           263      G      0.0            0.0            3.130935E-01  -2.521028E-01   2.511873E-02   0.0                           \r\n           264      G      0.0            0.0            2.304137E-01  -1.823230E-01   2.645234E-01   0.0                           \r\n           265      G      0.0            0.0            7.250568E-02  -1.601893E-01   3.622743E-01   0.0                           \r\n           266      G      0.0            0.0           -8.840895E-02  -1.863862E-01   2.268431E-01   0.0                           \r\n           267      G      0.0            0.0           -1.430112E-01  -1.011763E-01   5.862954E-02   0.0                           \r\n           268      G      0.0            0.0           -1.591149E-01   7.965586E-02  -2.318283E-02   0.0                           \r\n           269      G      0.0            0.0           -1.323320E-01   1.882354E-01  -4.455144E-02   0.0                           \r\n           270      G      0.0            0.0           -1.241363E-01   2.159869E-01  -2.538164E-02   0.0                           \r\n           271      G      0.0            0.0           -1.001905E-01   1.678374E-01  -4.567450E-02   0.0                           \r\n           272      G      0.0            0.0           -7.343173E-02   7.535841E-02  -9.105915E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0           -1.879228E-01   0.0                           \r\n           316      G      0.0            0.0            1.684065E-01   4.894756E-02   0.0            0.0                           \r\n           317      G      0.0            0.0            1.700820E-01   1.915626E-02   1.060709E-02   0.0                           \r\n           318      G      0.0            0.0            1.161076E-01   4.054397E-02   2.383010E-01   0.0                           \r\n           319      G      0.0            0.0           -4.766628E-02   9.638347E-02   3.641663E-01   0.0                           \r\n           320      G      0.0            0.0           -2.060828E-01   7.346923E-02   2.643341E-01   0.0                           \r\n           321      G      0.0            0.0           -2.703933E-01  -3.932299E-02  -5.288098E-02   0.0                           \r\n           322      G      0.0            0.0           -1.647447E-01  -6.446461E-02  -2.868775E-01   0.0                           \r\n           323      G      0.0            0.0           -2.361324E-02  -2.823012E-04  -2.972967E-01   0.0                           \r\n           324      G      0.0            0.0            1.045194E-01   1.766304E-02  -1.741181E-01   0.0                           \r\n           325      G      0.0            0.0            1.426717E-01   9.262841E-03  -2.324350E-02   0.0                           \r\n           326      G      0.0            0.0            1.465088E-01  -4.927482E-03   2.632203E-02   0.0                           \r\n           327      G      0.0            0.0            1.274195E-01  -1.081157E-02   1.461277E-02   0.0                           \r\n           328      G      0.0            0.0            1.057958E-01   2.865664E-02   1.444684E-01   0.0                           \r\n           329      G      0.0            0.0            1.232566E-03   1.178884E-01   1.944930E-01   0.0                           \r\n           330      G      0.0            0.0           -4.610125E-02   1.737488E-01   2.237881E-02   0.0                           \r\n           331      G      0.0            0.0           -3.700558E-02   1.712160E-01  -8.471370E-02   0.0                           \r\n           332      G      0.0            0.0            2.347525E-02   1.219289E-01  -1.187281E-01   0.0                           \r\n           333      G      0.0            0.0            6.874119E-02   1.405036E-01  -7.159999E-02   0.0                           \r\n           334      G      0.0            0.0            7.767881E-02   2.045858E-01   6.924324E-02   0.0                           \r\n           335      G      0.0            0.0            1.567038E-02   1.874210E-01   1.060224E-01   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0           -1.098499E-02   0.0                           \r\n           379      G      0.0            0.0            2.786767E-01   3.509685E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            2.735596E-01   2.650905E-02   4.394487E-02   0.0                           \r\n           381      G      0.0            0.0            2.093947E-01   1.656898E-02   2.131366E-01   0.0                           \r\n           382      G      0.0            0.0            8.798515E-02   2.322631E-03   2.338310E-01   0.0                           \r\n           383      G      0.0            0.0           -1.683303E-02   2.377489E-02   2.220289E-01   0.0                           \r\n           384      G      0.0            0.0           -1.130426E-01   6.537259E-02   1.123126E-01   0.0                           \r\n           385      G      0.0            0.0           -1.116959E-01   7.835905E-02  -9.479300E-02   0.0                           \r\n           386      G      0.0            0.0           -4.691784E-02   4.281405E-02  -1.794029E-01   0.0                           \r\n           387      G      0.0            0.0            4.684161E-02   1.103762E-02  -1.703965E-01   0.0                           \r\n           388      G      0.0            0.0            1.107852E-01   4.476724E-02  -9.076617E-02   0.0                           \r\n           389      G      0.0            0.0            1.232653E-01   1.317121E-01   6.369136E-02   0.0                           \r\n           390      G      0.0            0.0            5.725655E-02   1.440012E-01   1.455765E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0           -9.335953E-04   7.654794E-02   1.018692E-01   0.0                           \r\n           392      G      0.0            0.0           -3.321170E-02   2.253713E-02   5.066951E-03   0.0                           \r\n           393      G      0.0            0.0           -6.566999E-03  -1.023960E-02  -7.875121E-02   0.0                           \r\n           394      G      0.0            0.0            2.778794E-02  -2.351112E-02  -6.704468E-02   0.0                           \r\n           395      G      0.0            0.0            4.832625E-02  -2.597235E-02   9.580523E-03   0.0                           \r\n           396      G      0.0            0.0            3.674315E-02  -5.262722E-02  -1.155705E-02   0.0                           \r\n           397      G      0.0            0.0            5.446748E-02  -8.889289E-02  -1.112616E-02   0.0                           \r\n           398      G      0.0            0.0            3.033492E-02  -8.317499E-02   7.845499E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            5.409649E-02   0.0                           \r\n           442      G      0.0            0.0            9.591893E-02  -4.818303E-02   0.0            0.0                           \r\n           443      G      0.0            0.0            1.443861E-01  -1.668825E-02  -1.088064E-01   0.0                           \r\n           444      G      0.0            0.0            1.188304E-01   5.759758E-02   2.266355E-01   0.0                           \r\n           445      G      0.0            0.0           -5.165764E-02   5.020717E-02   3.819616E-01   0.0                           \r\n           446      G      0.0            0.0           -2.116649E-01  -3.438111E-02   2.598816E-01   0.0                           \r\n           447      G      0.0            0.0           -2.877470E-01  -8.771501E-02   1.844697E-02   0.0                           \r\n           448      G      0.0            0.0           -2.365825E-01  -1.035934E-01  -1.851185E-01   0.0                           \r\n           449      G      0.0            0.0           -1.344672E-01  -8.351418E-02  -2.239456E-01   0.0                           \r\n           450      G      0.0            0.0           -3.633194E-02  -4.806457E-02  -1.386567E-01   0.0                           \r\n           451      G      0.0            0.0            1.883272E-02  -4.356234E-02  -1.286004E-01   0.0                           \r\n           452      G      0.0            0.0            8.857299E-02  -7.019044E-02  -1.006513E-01   0.0                           \r\n           453      G      0.0            0.0            1.025674E-01  -8.680850E-02   2.264444E-02   0.0                           \r\n           454      G      0.0            0.0            8.289442E-02  -6.357139E-02   7.720865E-02   0.0                           \r\n           455      G      0.0            0.0            3.524187E-02  -4.159423E-02   9.032501E-02   0.0                           \r\n           456      G      0.0            0.0           -1.076555E-03  -8.257233E-02   6.058725E-02   0.0                           \r\n           457      G      0.0            0.0           -1.278333E-02  -1.724393E-01  -4.107792E-02   0.0                           \r\n           458      G      0.0            0.0            3.184495E-02  -1.816797E-01  -8.647703E-02   0.0                           \r\n           459      G      0.0            0.0            5.743615E-02  -1.061007E-01  -3.465037E-02   0.0                           \r\n           460      G      0.0            0.0            6.116021E-02  -4.637267E-02   4.030602E-02   0.0                           \r\n           461      G      0.0            0.0            2.285809E-02  -9.411819E-03   7.779451E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.186547E-02   0.0                           \r\n           505      G      0.0            0.0            8.726405E-02  -3.306651E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            7.231595E-02  -4.922601E-02   2.236070E-02   0.0                           \r\n           507      G      0.0            0.0            4.086947E-02  -6.996427E-02   1.467478E-01   0.0                           \r\n           508      G      0.0            0.0           -7.494374E-02  -5.917854E-02   2.758412E-01   0.0                           \r\n           509      G      0.0            0.0           -1.942093E-01  -1.138714E-02   2.051826E-01   0.0                           \r\n           510      G      0.0            0.0           -2.598311E-01   4.593273E-02   3.276110E-02   0.0                           \r\n           511      G      0.0            0.0           -2.295127E-01   3.453205E-02  -1.369986E-01   0.0                           \r\n           512      G      0.0            0.0           -1.305165E-01  -3.098715E-02  -2.700918E-01   0.0                           \r\n           513      G      0.0            0.0            1.638776E-02  -5.862402E-02  -2.616794E-01   0.0                           \r\n           514      G      0.0            0.0            1.090535E-01  -7.488266E-03  -1.245317E-01   0.0                           \r\n           515      G      0.0            0.0            1.391306E-01   1.186663E-02   2.002892E-02   0.0                           \r\n           516      G      0.0            0.0            9.681452E-02   6.938466E-03   1.227006E-01   0.0                           \r\n           517      G      0.0            0.0            3.657605E-02  -2.185758E-02   1.226059E-01   0.0                           \r\n           518      G      0.0            0.0           -1.298666E-02  -4.911632E-02   5.660804E-02   0.0                           \r\n           519      G      0.0            0.0           -3.404191E-02  -5.098673E-02   6.666902E-02   0.0                           \r\n           520      G      0.0            0.0           -7.692406E-02  -1.915702E-02   6.938412E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0           -8.989993E-02   5.375036E-04  -2.558528E-03   0.0                           \r\n           522      G      0.0            0.0           -8.607368E-02  -9.036327E-03  -3.053024E-02   0.0                           \r\n           523      G      0.0            0.0           -6.428280E-02  -3.812345E-02  -4.016275E-02   0.0                           \r\n           524      G      0.0            0.0           -4.337438E-02  -2.691886E-02  -5.751916E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0           -1.060056E-01   0.0                           \r\n           568      G      0.0            0.0            1.247131E-01   1.929076E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            1.288192E-01   5.013267E-03   1.855409E-03   0.0                           \r\n           570      G      0.0            0.0            9.520199E-02   1.919373E-02   1.530004E-01   0.0                           \r\n           571      G      0.0            0.0           -6.048204E-03   5.401740E-02   2.139049E-01   0.0                           \r\n           572      G      0.0            0.0           -8.310775E-02   8.717109E-02   9.242175E-02   0.0                           \r\n           573      G      0.0            0.0           -8.317596E-02   1.074216E-01  -1.068906E-01   0.0                           \r\n           574      G      0.0            0.0           -2.350004E-03   1.366970E-01  -1.688727E-01   0.0                           \r\n           575      G      0.0            0.0            6.960997E-02   1.695166E-01  -1.451280E-01   0.0                           \r\n           576      G      0.0            0.0            1.415368E-01   1.753845E-01  -1.208375E-01   0.0                           \r\n           577      G      0.0            0.0            1.732824E-01   1.345836E-01  -2.340845E-02   0.0                           \r\n           578      G      0.0            0.0            1.624393E-01   8.281568E-02   7.774428E-02   0.0                           \r\n           579      G      0.0            0.0            1.011340E-01   7.459636E-02   1.548582E-01   0.0                           \r\n           580      G      0.0            0.0            8.711516E-03   1.047855E-01   2.275295E-01   0.0                           \r\n           581      G      0.0            0.0           -1.132099E-01   8.357687E-02   2.171626E-01   0.0                           \r\n           582      G      0.0            0.0           -1.936759E-01   9.832165E-03   1.174470E-01   0.0                           \r\n           583      G      0.0            0.0           -2.271968E-01  -3.875155E-02   1.936878E-03   0.0                           \r\n           584      G      0.0            0.0           -2.017944E-01  -5.833719E-02  -7.691958E-02   0.0                           \r\n           585      G      0.0            0.0           -1.662787E-01  -4.794853E-02  -7.150794E-02   0.0                           \r\n           586      G      0.0            0.0           -1.357871E-01  -1.803577E-02  -3.447790E-02   0.0                           \r\n           587      G      0.0            0.0           -1.061143E-01   7.274098E-04  -1.247060E-01   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0           -2.654008E-01   0.0                           \r\n           631      G      0.0            0.0            3.401689E-02  -6.773479E-02   0.0            0.0                           \r\n           632      G      0.0            0.0            3.634715E-02  -4.416558E-02  -5.192817E-05   0.0                           \r\n           633      G      0.0            0.0            2.018624E-02  -4.066202E-02   7.832038E-02   0.0                           \r\n           634      G      0.0            0.0           -2.659979E-02  -9.593438E-03   9.108953E-02   0.0                           \r\n           635      G      0.0            0.0           -5.948272E-02   4.852978E-02   5.376660E-02   0.0                           \r\n           636      G      0.0            0.0           -6.836507E-02   4.856477E-02  -5.290244E-02   0.0                           \r\n           637      G      0.0            0.0           -4.648894E-03  -6.555434E-03  -1.772449E-01   0.0                           \r\n           638      G      0.0            0.0            9.514376E-02  -3.898313E-02  -2.264919E-01   0.0                           \r\n           639      G      0.0            0.0            2.024553E-01  -4.495925E-02  -1.718901E-01   0.0                           \r\n           640      G      0.0            0.0            2.461706E-01  -2.697852E-02  -1.170832E-02   0.0                           \r\n           641      G      0.0            0.0            2.108849E-01   3.119826E-03   1.631095E-01   0.0                           \r\n           642      G      0.0            0.0            1.103372E-01   1.257906E-02   1.908146E-01   0.0                           \r\n           643      G      0.0            0.0            2.936285E-02  -5.865020E-04   1.615621E-01   0.0                           \r\n           644      G      0.0            0.0           -5.774204E-02  -6.986323E-03   1.657629E-01   0.0                           \r\n           645      G      0.0            0.0           -1.240408E-01   1.665721E-02   1.153893E-01   0.0                           \r\n           646      G      0.0            0.0           -1.708245E-01   3.895038E-02   5.702837E-02   0.0                           \r\n           647      G      0.0            0.0           -1.826649E-01   1.180619E-02  -1.428667E-03   0.0                           \r\n           648      G      0.0            0.0           -1.647139E-01  -5.523616E-02  -8.835766E-02   0.0                           \r\n           649      G      0.0            0.0           -1.023483E-01  -6.813756E-02  -1.220623E-01   0.0                           \r\n           650      G      0.0            0.0           -5.250824E-02  -2.677295E-02  -9.282242E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0           -1.169977E-01   0.0                           \r\n           694      G      0.0            0.0           -1.107958E-02  -5.943400E-02   0.0            0.0                           \r\n           695      G      0.0            0.0           -4.831485E-03  -1.319696E-02   2.814100E-04   0.0                           \r\n           696      G      0.0            0.0           -4.080714E-02   1.421440E-03   1.575040E-01   0.0                           \r\n           697      G      0.0            0.0           -1.322469E-01  -2.503291E-02   1.603495E-01   0.0                           \r\n           698      G      0.0            0.0           -1.783465E-01  -8.478411E-02   4.095351E-02   0.0                           \r\n           699      G      0.0            0.0           -1.739786E-01  -1.310429E-01  -6.999849E-02   0.0                           \r\n           700      G      0.0            0.0           -1.069967E-01  -1.422426E-01  -1.740114E-01   0.0                           \r\n           701      G      0.0            0.0           -1.273951E-02  -1.292924E-01  -2.047808E-01   0.0                           \r\n           702      G      0.0            0.0            8.386698E-02  -1.418428E-01  -1.676969E-01   0.0                           \r\n           703      G      0.0            0.0            1.519774E-01  -1.706406E-01  -1.152889E-01   0.0                           \r\n           704      G      0.0            0.0            1.944364E-01  -1.434862E-01  -2.511878E-02   0.0                           \r\n           705      G      0.0            0.0            1.755656E-01  -6.363189E-02   8.469433E-02   0.0                           \r\n           706      G      0.0            0.0            1.173787E-01   2.695572E-03   1.545669E-01   0.0                           \r\n           707      G      0.0            0.0            3.284083E-02   4.499153E-02   1.605639E-01   0.0                           \r\n           708      G      0.0            0.0           -2.848102E-02   6.132875E-02   8.983186E-02   0.0                           \r\n           709      G      0.0            0.0           -5.310800E-02   6.238091E-02  -2.311029E-03   0.0                           \r\n           710      G      0.0            0.0           -4.427894E-02   7.539991E-02   3.583928E-05   0.0                           \r\n           711      G      0.0            0.0           -5.541842E-02   9.610947E-02   1.756134E-02   0.0                           \r\n           712      G      0.0            0.0           -5.131685E-02   9.701242E-02  -2.295421E-02   0.0                           \r\n           713      G      0.0            0.0           -3.747483E-02   5.957399E-02  -4.932171E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0           -9.055878E-02   0.0                           \r\n           757      G      0.0            0.0            9.712509E-02   1.235839E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            1.015107E-01  -1.752840E-02  -1.137584E-02   0.0                           \r\n           759      G      0.0            0.0            8.133692E-02  -1.028651E-02   1.125794E-01   0.0                           \r\n           760      G      0.0            0.0           -4.476230E-03   4.473427E-02   2.002138E-01   0.0                           \r\n           761      G      0.0            0.0           -9.908585E-02   7.819094E-02   1.758742E-01   0.0                           \r\n           762      G      0.0            0.0           -1.657565E-01   7.945354E-02   6.690779E-02   0.0                           \r\n           763      G      0.0            0.0           -1.585100E-01   4.879151E-02  -8.480350E-02   0.0                           \r\n           764      G      0.0            0.0           -8.907551E-02   4.356219E-03  -1.961567E-01   0.0                           \r\n           765      G      0.0            0.0            8.259339E-03  -1.869787E-02  -1.537162E-01   0.0                           \r\n           766      G      0.0            0.0            5.559142E-02  -1.410036E-02  -5.987839E-02   0.0                           \r\n           767      G      0.0            0.0            7.801147E-02  -6.422515E-03  -1.738453E-02   0.0                           \r\n           768      G      0.0            0.0            7.062849E-02  -1.473386E-02   2.993470E-02   0.0                           \r\n           769      G      0.0            0.0            5.320580E-02  -1.958671E-02   4.819261E-02   0.0                           \r\n           770      G      0.0            0.0            2.790844E-02   1.456178E-02   4.604749E-02   0.0                           \r\n           771      G      0.0            0.0            3.803998E-03   7.517955E-02   6.534404E-02   0.0                           \r\n           772      G      0.0            0.0           -3.392896E-02   8.632218E-02   5.670007E-02   0.0                           \r\n           773      G      0.0            0.0           -4.799797E-02   4.453328E-02   1.357403E-02   0.0                           \r\n           774      G      0.0            0.0           -4.884860E-02   1.143810E-02  -2.075558E-02   0.0                           \r\n           775      G      0.0            0.0           -3.088870E-02  -1.053127E-02  -3.281995E-02   0.0                           \r\n           776      G      0.0            0.0           -1.992114E-02  -1.684141E-02  -2.349863E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0           -4.865733E-02   0.0                           \r\n           820      G      0.0            0.0            2.716408E-03  -5.340583E-02   0.0            0.0                           \r\n           821      G      0.0            0.0            1.970067E-02  -5.817655E-02  -4.288293E-02   0.0                           \r\n           822      G      0.0            0.0            2.507508E-02  -4.517126E-02   2.550618E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.268083E+05    (CYCLIC FREQUENCY =  2.605883E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0           -2.117890E-03   1.187407E-02   6.637880E-02   0.0                           \r\n           824      G      0.0            0.0           -3.320197E-02   5.592199E-02   6.520471E-02   0.0                           \r\n           825      G      0.0            0.0           -6.231111E-02   1.036056E-01   3.672869E-02   0.0                           \r\n           826      G      0.0            0.0           -7.077322E-02   1.254897E-01   5.933871E-03   0.0                           \r\n           827      G      0.0            0.0           -6.872001E-02   1.315090E-01  -3.109521E-02   0.0                           \r\n           828      G      0.0            0.0           -4.271794E-02   5.886645E-02  -5.277816E-02   0.0                           \r\n           829      G      0.0            0.0           -1.840376E-02   4.764536E-03  -5.650385E-02   0.0                           \r\n           830      G      0.0            0.0            1.046679E-02  -3.328571E-02  -3.777853E-02   0.0                           \r\n           831      G      0.0            0.0            1.364249E-02  -3.639155E-02   1.638607E-02   0.0                           \r\n           832      G      0.0            0.0           -2.416818E-03  -2.737787E-02   5.666650E-02   0.0                           \r\n           833      G      0.0            0.0           -2.597106E-02  -6.388906E-03   1.235249E-03   0.0                           \r\n           834      G      0.0            0.0           -6.442539E-03  -1.305808E-02  -4.414719E-02   0.0                           \r\n           835      G      0.0            0.0            4.931061E-03  -1.442611E-02  -9.937318E-03   0.0                           \r\n           836      G      0.0            0.0            9.440578E-03  -1.892798E-02   2.523256E-03   0.0                           \r\n           837      G      0.0            0.0            4.958942E-03   3.167755E-03   3.759847E-03   0.0                           \r\n           838      G      0.0            0.0            4.240338E-03   8.119310E-03   1.058566E-02   0.0                           \r\n           839      G      0.0            0.0           -4.288692E-03   1.244676E-02   8.400129E-03   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0           -1.958590E-02   0.0                           \r\n           841      G      0.0            0.0            0.0            2.370685E-02   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -2.833896E-02   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -4.898937E-02   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0            5.318664E-03   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0            6.845889E-02   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0            1.370470E-01   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0            1.447739E-01   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0            1.440369E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0            9.636144E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0            6.088192E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.212359E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.299242E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0            1.915624E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0            8.956579E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0            2.401160E-02   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0           -1.235575E-03   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0           -2.130590E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0           -1.455853E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0           -2.126706E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0            6.596629E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            3.218621E-01   0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            1.179727E-01   0.0            0.0                           \r\n             3      G      0.0            0.0            0.0           -2.368950E-01   0.0            0.0                           \r\n             4      G      0.0            0.0            0.0           -1.861497E-01   0.0            0.0                           \r\n             5      G      0.0            0.0            0.0           -2.288439E-01   0.0            0.0                           \r\n             6      G      0.0            0.0            0.0           -3.028369E-01   0.0            0.0                           \r\n             7      G      0.0            0.0            0.0           -5.665961E-01   0.0            0.0                           \r\n             8      G      0.0            0.0            0.0           -2.766977E-01   0.0            0.0                           \r\n             9      G      0.0            0.0            0.0           -2.121406E-01   0.0            0.0                           \r\n            10      G      0.0            0.0            0.0           -9.320007E-02   0.0            0.0                           \r\n            11      G      0.0            0.0            0.0           -1.104854E-01   0.0            0.0                           \r\n            12      G      0.0            0.0            0.0           -1.724405E-01   0.0            0.0                           \r\n            13      G      0.0            0.0            0.0           -3.888453E-01   0.0            0.0                           \r\n            14      G      0.0            0.0            0.0           -2.693110E-01   0.0            0.0                           \r\n            15      G      0.0            0.0            0.0           -6.660937E-02   0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            1.905944E-01   0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            9.976437E-02   0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            1.800015E-01   0.0            0.0                           \r\n            19      G      0.0            0.0            0.0            3.041067E-01   0.0            0.0                           \r\n            20      G      0.0            0.0            0.0            5.176609E-01   0.0            0.0                           \r\n            21      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            64      G      0.0            0.0            3.321509E-01  -6.220927E-02   0.0            0.0                           \r\n            65      G      0.0            0.0            2.075957E-01  -5.792980E-02   5.077345E-01   0.0                           \r\n            66      G      0.0            0.0           -5.778584E-02  -6.960487E-02   4.266159E-01   0.0                           \r\n            67      G      0.0            0.0           -1.488013E-01  -9.315864E-02  -2.136753E-02   0.0                           \r\n            68      G      0.0            0.0           -4.466524E-02  -8.861709E-02  -4.227395E-01   0.0                           \r\n            69      G      0.0            0.0            1.607812E-01   3.512918E-02  -2.249877E-01   0.0                           \r\n            70      G      0.0            0.0            1.604534E-01   2.431322E-01   9.474511E-02   0.0                           \r\n            71      G      0.0            0.0            1.271618E-01   3.655194E-01   8.655393E-02   0.0                           \r\n            72      G      0.0            0.0            6.309150E-02   3.136237E-01   8.939431E-02   0.0                           \r\n            73      G      0.0            0.0            4.718240E-02   2.033533E-01   2.442756E-02   0.0                           \r\n            74      G      0.0            0.0            3.819955E-02   2.671623E-01  -1.147715E-02   0.0                           \r\n            75      G      0.0            0.0            2.029040E-02   4.825063E-01   1.605841E-01   0.0                           \r\n            76      G      0.0            0.0           -1.093601E-01   5.000758E-01   2.156970E-01   0.0                           \r\n            77      G      0.0            0.0           -1.607849E-01   2.684491E-01   5.048053E-02   0.0                           \r\n            78      G      0.0            0.0           -1.555151E-01   9.600800E-02  -1.309493E-01   0.0                           \r\n            79      G      0.0            0.0           -5.027736E-02  -8.627278E-03  -1.999144E-01   0.0                           \r\n            80      G      0.0            0.0           -3.008916E-03  -1.080315E-02  -2.798889E-02   0.0                           \r\n            81      G      0.0            0.0           -3.184063E-02   3.283525E-02   1.906983E-01   0.0                           \r\n            82      G      0.0            0.0           -1.122330E-01   1.247108E-02  -2.056936E-02   0.0                           \r\n            83      G      0.0            0.0           -2.052316E-02  -4.882314E-02  -1.901087E-01   0.0                           \r\n            84      G      0.0            0.0            0.0            0.0            7.251798E-02   0.0                           \r\n           127      G      0.0            0.0            2.713925E-01   2.174290E-01   0.0            0.0                           \r\n           128      G      0.0            0.0            1.125171E-01   2.248971E-01   5.843154E-01   0.0                           \r\n           129      G      0.0            0.0           -1.475317E-01   2.668702E-01   3.692986E-01   0.0                           \r\n           130      G      0.0            0.0           -2.506364E-01   4.358495E-01   1.302200E-01   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           131      G      0.0            0.0           -2.938529E-01   3.930482E-01  -6.921415E-02   0.0                           \r\n           132      G      0.0            0.0           -1.930890E-01   1.406792E-01  -2.486680E-01   0.0                           \r\n           133      G      0.0            0.0           -6.826511E-02  -3.055045E-02  -2.941256E-01   0.0                           \r\n           134      G      0.0            0.0            7.792928E-02  -1.010849E-01  -1.986576E-01   0.0                           \r\n           135      G      0.0            0.0            9.348734E-02  -8.739245E-02   9.102784E-02   0.0                           \r\n           136      G      0.0            0.0           -8.667805E-03  -5.003208E-02   3.578371E-01   0.0                           \r\n           137      G      0.0            0.0           -1.668854E-01  -1.200668E-01   1.139736E-01   0.0                           \r\n           138      G      0.0            0.0           -1.149654E-01  -2.630383E-01  -1.805179E-01   0.0                           \r\n           139      G      0.0            0.0           -5.329130E-02  -3.373835E-01  -1.132748E-01   0.0                           \r\n           140      G      0.0            0.0            1.175300E-02  -2.506586E-01  -6.424459E-02   0.0                           \r\n           141      G      0.0            0.0            8.110886E-03  -1.457410E-01   2.344545E-02   0.0                           \r\n           142      G      0.0            0.0           -4.330070E-03  -2.159081E-01   4.762679E-02   0.0                           \r\n           143      G      0.0            0.0            2.536790E-03  -4.245348E-01  -1.591630E-01   0.0                           \r\n           144      G      0.0            0.0            1.402476E-01  -4.001994E-01  -2.462374E-01   0.0                           \r\n           145      G      0.0            0.0            2.061185E-01  -1.714921E-01  -7.561891E-02   0.0                           \r\n           146      G      0.0            0.0            1.936080E-01  -4.808606E-02   1.911732E-01   0.0                           \r\n           147      G      0.0            0.0            0.0            0.0            5.004990E-01   0.0                           \r\n           190      G      0.0            0.0            3.904264E-01  -6.811358E-01   0.0            0.0                           \r\n           191      G      0.0            0.0            1.643546E-01  -4.189925E-01   7.699481E-01   0.0                           \r\n           192      G      0.0            0.0           -1.807405E-01  -2.188892E-01   4.452091E-01   0.0                           \r\n           193      G      0.0            0.0           -2.501796E-01  -1.973731E-01  -9.223527E-02   0.0                           \r\n           194      G      0.0            0.0           -1.546878E-01  -1.919732E-01  -2.747117E-01   0.0                           \r\n           195      G      0.0            0.0           -7.051078E-03  -1.564940E-01  -2.482203E-01   0.0                           \r\n           196      G      0.0            0.0            7.482544E-02  -5.785841E-02  -1.136813E-01   0.0                           \r\n           197      G      0.0            0.0            1.117868E-01  -1.143529E-01  -2.692037E-02   0.0                           \r\n           198      G      0.0            0.0            1.224931E-01  -2.609207E-01  -4.662246E-02   0.0                           \r\n           199      G      0.0            0.0            1.450413E-01  -3.263198E-01   4.334155E-02   0.0                           \r\n           200      G      0.0            0.0            7.727458E-02  -1.081358E-01   1.647942E-01   0.0                           \r\n           201      G      0.0            0.0            3.173405E-03   1.776966E-02   1.481619E-01   0.0                           \r\n           202      G      0.0            0.0           -6.381807E-02   7.438798E-02   7.773821E-02   0.0                           \r\n           203      G      0.0            0.0           -6.350068E-02   6.271767E-02  -5.907204E-02   0.0                           \r\n           204      G      0.0            0.0           -1.291878E-02   4.637239E-02  -1.619200E-01   0.0                           \r\n           205      G      0.0            0.0            5.608937E-02   1.053890E-01  -3.946796E-02   0.0                           \r\n           206      G      0.0            0.0            3.575084E-02   1.884329E-01   5.491195E-02   0.0                           \r\n           207      G      0.0            0.0            3.169033E-02   2.011356E-01  -1.897083E-02   0.0                           \r\n           208      G      0.0            0.0            3.118301E-02   1.240761E-01  -1.095472E-02   0.0                           \r\n           209      G      0.0            0.0            3.392055E-02   4.023237E-02   2.477338E-02   0.0                           \r\n           210      G      0.0            0.0            0.0            0.0            1.050590E-01   0.0                           \r\n           253      G      0.0            0.0            1.815648E-01   7.525547E-02   0.0            0.0                           \r\n           254      G      0.0            0.0            9.189657E-02   6.095224E-03   3.249144E-01   0.0                           \r\n           255      G      0.0            0.0           -6.120475E-02   7.059397E-02   2.208760E-01   0.0                           \r\n           256      G      0.0            0.0           -1.122009E-01   1.133149E-01   2.027170E-02   0.0                           \r\n           257      G      0.0            0.0           -9.623454E-02   1.139512E-01  -1.103969E-01   0.0                           \r\n           258      G      0.0            0.0           -9.289674E-03   6.802115E-02  -2.029902E-01   0.0                           \r\n           259      G      0.0            0.0            9.312463E-02   1.487693E-02  -2.252809E-01   0.0                           \r\n           260      G      0.0            0.0            1.702326E-01   2.460375E-02  -6.979495E-03   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           261      G      0.0            0.0            1.061380E-01   8.924570E-02   1.862075E-01   0.0                           \r\n           262      G      0.0            0.0            2.687800E-02   1.325411E-01   1.493468E-01   0.0                           \r\n           263      G      0.0            0.0           -4.344796E-02   1.041741E-01   8.944749E-02   0.0                           \r\n           264      G      0.0            0.0           -5.803147E-02   6.207379E-02  -3.192986E-03   0.0                           \r\n           265      G      0.0            0.0           -4.234519E-02   1.047212E-01  -6.608019E-02   0.0                           \r\n           266      G      0.0            0.0           -1.497403E-02   2.127941E-01  -3.754962E-04   0.0                           \r\n           267      G      0.0            0.0           -4.092994E-02   2.067967E-01   3.545923E-02   0.0                           \r\n           268      G      0.0            0.0           -3.692970E-02   8.267249E-02  -2.160262E-02   0.0                           \r\n           269      G      0.0            0.0           -1.589995E-02  -4.085075E-03  -9.145177E-02   0.0                           \r\n           270      G      0.0            0.0            4.891810E-02  -4.172290E-02  -1.216944E-01   0.0                           \r\n           271      G      0.0            0.0            8.572288E-02  -3.121803E-02  -4.200594E-02   0.0                           \r\n           272      G      0.0            0.0            8.158571E-02  -9.236899E-05   8.546218E-02   0.0                           \r\n           273      G      0.0            0.0            0.0            0.0            2.172651E-01   0.0                           \r\n           316      G      0.0            0.0            1.326873E-01  -3.744940E-03   0.0            0.0                           \r\n           317      G      0.0            0.0            5.964965E-02   4.218713E-02   2.650822E-01   0.0                           \r\n           318      G      0.0            0.0           -6.020822E-02   6.394631E-02   1.603897E-01   0.0                           \r\n           319      G      0.0            0.0           -7.976267E-02   5.547331E-02  -4.947994E-02   0.0                           \r\n           320      G      0.0            0.0           -2.671750E-02   1.040842E-01  -1.618876E-01   0.0                           \r\n           321      G      0.0            0.0            4.226741E-02   2.060065E-01  -6.397785E-02   0.0                           \r\n           322      G      0.0            0.0            3.082682E-02   1.885533E-01   4.113025E-02   0.0                           \r\n           323      G      0.0            0.0            1.564618E-02   6.316213E-02   4.833618E-02   0.0                           \r\n           324      G      0.0            0.0           -1.094471E-02  -1.671995E-02   2.474885E-02   0.0                           \r\n           325      G      0.0            0.0           -1.091561E-02  -4.943116E-02   1.716013E-02   0.0                           \r\n           326      G      0.0            0.0           -4.218198E-02  -4.769352E-02   8.356438E-02   0.0                           \r\n           327      G      0.0            0.0           -9.126045E-02  -3.130206E-02   1.366757E-01   0.0                           \r\n           328      G      0.0            0.0           -1.376216E-01  -4.661257E-02  -2.736153E-02   0.0                           \r\n           329      G      0.0            0.0           -7.060803E-02  -1.051587E-01  -1.649649E-01   0.0                           \r\n           330      G      0.0            0.0           -1.150057E-02  -1.323695E-01  -9.178698E-02   0.0                           \r\n           331      G      0.0            0.0            3.081185E-02  -1.113642E-01  -4.452905E-02   0.0                           \r\n           332      G      0.0            0.0            3.762310E-02  -6.062618E-02  -1.153090E-02   0.0                           \r\n           333      G      0.0            0.0            4.377101E-02  -9.106917E-02   1.229435E-03   0.0                           \r\n           334      G      0.0            0.0            4.479336E-02  -1.729982E-01  -3.563181E-02   0.0                           \r\n           335      G      0.0            0.0            6.299712E-02  -1.723887E-01   2.737902E-02   0.0                           \r\n           336      G      0.0            0.0            0.0            0.0            1.817165E-01   0.0                           \r\n           379      G      0.0            0.0            6.724192E-02  -3.554140E-02   0.0            0.0                           \r\n           380      G      0.0            0.0            1.165028E-02  -2.960634E-02   1.915961E-01   0.0                           \r\n           381      G      0.0            0.0           -7.419382E-02  -2.727323E-02   1.329091E-01   0.0                           \r\n           382      G      0.0            0.0           -1.139905E-01  -2.674638E-02   4.700058E-02   0.0                           \r\n           383      G      0.0            0.0           -1.071608E-01  -6.421247E-02  -1.146399E-01   0.0                           \r\n           384      G      0.0            0.0           -1.871976E-02  -1.167743E-01  -1.850977E-01   0.0                           \r\n           385      G      0.0            0.0            4.597687E-02  -1.293668E-01  -8.440110E-02   0.0                           \r\n           386      G      0.0            0.0            7.287657E-02  -8.205401E-02   4.311675E-04   0.0                           \r\n           387      G      0.0            0.0            5.027235E-02  -3.081088E-02   6.928695E-02   0.0                           \r\n           388      G      0.0            0.0            1.050841E-02  -4.190294E-02   9.206300E-02   0.0                           \r\n           389      G      0.0            0.0           -2.388654E-02  -1.071638E-01   1.788945E-02   0.0                           \r\n           390      G      0.0            0.0           -7.904485E-03  -1.053359E-01  -3.525894E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           391      G      0.0            0.0            6.780180E-04  -3.449432E-02  -1.746622E-02   0.0                           \r\n           392      G      0.0            0.0            5.612530E-03   1.125890E-02   1.669889E-02   0.0                           \r\n           393      G      0.0            0.0           -1.369812E-02   2.287238E-02   3.019253E-02   0.0                           \r\n           394      G      0.0            0.0           -1.152265E-02   8.241523E-03  -2.666861E-02   0.0                           \r\n           395      G      0.0            0.0            1.619075E-02  -1.253390E-02  -1.011859E-01   0.0                           \r\n           396      G      0.0            0.0            6.240765E-02   3.910487E-03  -3.212238E-02   0.0                           \r\n           397      G      0.0            0.0            4.762659E-02   4.523307E-02   4.637158E-02   0.0                           \r\n           398      G      0.0            0.0            3.386172E-02   5.717383E-02   3.260583E-02   0.0                           \r\n           399      G      0.0            0.0            0.0            0.0            8.474816E-02   0.0                           \r\n           442      G      0.0            0.0            2.079998E-01   9.272512E-04   0.0            0.0                           \r\n           443      G      0.0            0.0            9.060875E-02  -3.612558E-02   3.768366E-01   0.0                           \r\n           444      G      0.0            0.0           -5.732456E-02  -1.228741E-01   1.757268E-01   0.0                           \r\n           445      G      0.0            0.0           -7.796562E-02  -1.303569E-01  -4.303323E-02   0.0                           \r\n           446      G      0.0            0.0           -4.098587E-02  -5.619501E-02  -1.145796E-01   0.0                           \r\n           447      G      0.0            0.0            1.634033E-02  -3.823539E-03  -8.641412E-02   0.0                           \r\n           448      G      0.0            0.0            3.862235E-02   1.861860E-02  -2.832166E-02   0.0                           \r\n           449      G      0.0            0.0            5.588854E-02   1.259806E-02  -2.780776E-02   0.0                           \r\n           450      G      0.0            0.0            7.210134E-02  -5.508143E-04  -5.543177E-02   0.0                           \r\n           451      G      0.0            0.0            8.814884E-02   2.170028E-02   4.027461E-02   0.0                           \r\n           452      G      0.0            0.0            3.613374E-02   7.137747E-02   1.184300E-01   0.0                           \r\n           453      G      0.0            0.0           -5.697669E-03   1.001430E-01   6.407545E-02   0.0                           \r\n           454      G      0.0            0.0           -3.346967E-02   7.717635E-02   2.107939E-02   0.0                           \r\n           455      G      0.0            0.0           -2.829923E-02   4.655423E-02  -2.299211E-02   0.0                           \r\n           456      G      0.0            0.0           -1.386404E-02   7.390463E-02  -4.041418E-02   0.0                           \r\n           457      G      0.0            0.0           -1.880268E-03   1.488054E-01   1.948231E-02   0.0                           \r\n           458      G      0.0            0.0           -2.998540E-02   1.474210E-01   4.544260E-02   0.0                           \r\n           459      G      0.0            0.0           -3.707456E-02   6.781424E-02   2.523530E-03   0.0                           \r\n           460      G      0.0            0.0           -3.187647E-02   1.143730E-02  -4.125169E-02   0.0                           \r\n           461      G      0.0            0.0           -2.261573E-03  -1.165633E-02  -4.379686E-02   0.0                           \r\n           462      G      0.0            0.0            0.0            0.0            2.461841E-02   0.0                           \r\n           505      G      0.0            0.0            1.658654E-01   1.164972E-02   0.0            0.0                           \r\n           506      G      0.0            0.0            1.130681E-01   3.911482E-02   2.365226E-01   0.0                           \r\n           507      G      0.0            0.0           -2.074492E-02   8.794341E-02   2.340875E-01   0.0                           \r\n           508      G      0.0            0.0           -8.583283E-02   1.085067E-01   4.378499E-02   0.0                           \r\n           509      G      0.0            0.0           -8.115701E-02   8.436600E-02  -7.545225E-02   0.0                           \r\n           510      G      0.0            0.0           -2.765173E-02   3.894273E-02  -1.114883E-01   0.0                           \r\n           511      G      0.0            0.0            1.894106E-02   4.906512E-02  -7.973085E-02   0.0                           \r\n           512      G      0.0            0.0            3.975353E-02   1.020623E-01   1.904412E-02   0.0                           \r\n           513      G      0.0            0.0            6.864179E-03   1.094696E-01   6.736633E-02   0.0                           \r\n           514      G      0.0            0.0           -1.469543E-02   3.432801E-02   3.737881E-02   0.0                           \r\n           515      G      0.0            0.0           -2.874812E-02  -1.174166E-02   3.480692E-03   0.0                           \r\n           516      G      0.0            0.0           -1.899790E-02  -3.022003E-02  -2.052749E-02   0.0                           \r\n           517      G      0.0            0.0           -1.752870E-02  -2.050480E-02   5.702027E-03   0.0                           \r\n           518      G      0.0            0.0           -2.721736E-02  -9.269326E-03   4.653288E-02   0.0                           \r\n           519      G      0.0            0.0           -4.429078E-02  -2.017788E-02  -1.776732E-02   0.0                           \r\n           520      G      0.0            0.0           -1.104453E-02  -5.726459E-02  -8.001296E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           521      G      0.0            0.0            1.891052E-02  -7.203011E-02  -5.019605E-02   0.0                           \r\n           522      G      0.0            0.0            4.420489E-02  -4.829087E-02  -3.010884E-02   0.0                           \r\n           523      G      0.0            0.0            4.847075E-02  -5.126846E-04  -5.867754E-04   0.0                           \r\n           524      G      0.0            0.0            4.055433E-02   8.428220E-03   4.472458E-02   0.0                           \r\n           525      G      0.0            0.0            0.0            0.0            1.044199E-01   0.0                           \r\n           568      G      0.0            0.0            6.468166E-02  -7.501521E-02   0.0            0.0                           \r\n           569      G      0.0            0.0            1.742860E-02  -4.693441E-02   1.648938E-01   0.0                           \r\n           570      G      0.0            0.0           -5.382033E-02  -2.297029E-02   8.651882E-02   0.0                           \r\n           571      G      0.0            0.0           -6.113809E-02  -9.234696E-03  -3.239204E-02   0.0                           \r\n           572      G      0.0            0.0           -3.981895E-02   7.247941E-04  -5.453825E-02   0.0                           \r\n           573      G      0.0            0.0           -2.057316E-02   6.232468E-03  -4.483461E-03   0.0                           \r\n           574      G      0.0            0.0           -2.174878E-02  -1.747118E-02  -2.773711E-02   0.0                           \r\n           575      G      0.0            0.0            5.733163E-03  -6.022822E-02  -4.801910E-02   0.0                           \r\n           576      G      0.0            0.0            1.245791E-02  -8.452525E-02   6.437645E-03   0.0                           \r\n           577      G      0.0            0.0            7.858985E-03  -6.627791E-02   2.884615E-02   0.0                           \r\n           578      G      0.0            0.0           -1.300814E-02  -3.866814E-02   3.928913E-02   0.0                           \r\n           579      G      0.0            0.0           -2.888496E-02  -5.396308E-02   2.840766E-02   0.0                           \r\n           580      G      0.0            0.0           -3.191414E-02  -1.047585E-01  -3.562332E-02   0.0                           \r\n           581      G      0.0            0.0            3.021809E-03  -1.008781E-01  -6.752072E-02   0.0                           \r\n           582      G      0.0            0.0            2.653070E-02  -3.959499E-02  -4.038449E-02   0.0                           \r\n           583      G      0.0            0.0            4.105347E-02   2.286793E-03  -3.113615E-03   0.0                           \r\n           584      G      0.0            0.0            3.280951E-02   1.800965E-02   1.335203E-02   0.0                           \r\n           585      G      0.0            0.0            3.777560E-02   7.115260E-03  -2.307248E-02   0.0                           \r\n           586      G      0.0            0.0            5.542864E-02  -1.656623E-02  -5.847809E-02   0.0                           \r\n           587      G      0.0            0.0            6.848705E-02  -2.082714E-02   4.676135E-02   0.0                           \r\n           588      G      0.0            0.0            0.0            0.0            1.925937E-01   0.0                           \r\n           631      G      0.0            0.0            7.915213E-02   2.744387E-02   0.0            0.0                           \r\n           632      G      0.0            0.0            4.354043E-02   3.353220E-03   1.282805E-01   0.0                           \r\n           633      G      0.0            0.0           -1.896272E-02  -4.855567E-03   9.717739E-02   0.0                           \r\n           634      G      0.0            0.0           -4.640964E-02  -4.188585E-02   2.021210E-02   0.0                           \r\n           635      G      0.0            0.0           -3.650090E-02  -1.040605E-01  -7.380731E-02   0.0                           \r\n           636      G      0.0            0.0            1.533449E-02  -1.050814E-01  -9.372568E-02   0.0                           \r\n           637      G      0.0            0.0            4.370130E-02  -4.545393E-02  -3.334664E-02   0.0                           \r\n           638      G      0.0            0.0            4.652968E-02  -1.611804E-03   3.475929E-02   0.0                           \r\n           639      G      0.0            0.0            1.513461E-02   1.953167E-02   6.558467E-02   0.0                           \r\n           640      G      0.0            0.0           -4.960902E-03   1.931878E-02   2.272440E-02   0.0                           \r\n           641      G      0.0            0.0           -3.527547E-03   1.001712E-02  -4.204604E-02   0.0                           \r\n           642      G      0.0            0.0            1.721318E-02   2.235956E-02  -1.284833E-03   0.0                           \r\n           643      G      0.0            0.0           -1.815904E-03   5.374471E-02   4.245743E-02   0.0                           \r\n           644      G      0.0            0.0           -9.720253E-03   7.078455E-02   2.571165E-03   0.0                           \r\n           645      G      0.0            0.0           -1.020584E-02   5.002877E-02  -1.921277E-02   0.0                           \r\n           646      G      0.0            0.0            8.243179E-03   2.450208E-02  -4.005304E-02   0.0                           \r\n           647      G      0.0            0.0            2.783249E-02   4.380697E-02  -4.290781E-02   0.0                           \r\n           648      G      0.0            0.0            4.117139E-02   9.936351E-02   1.020262E-02   0.0                           \r\n           649      G      0.0            0.0            2.089049E-02   9.951933E-02   3.586112E-02   0.0                           \r\n           650      G      0.0            0.0            1.280621E-02   4.382661E-02   1.242278E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           651      G      0.0            0.0            0.0            0.0            3.888233E-02   0.0                           \r\n           694      G      0.0            0.0            1.082761E-01   8.448748E-02   0.0            0.0                           \r\n           695      G      0.0            0.0            6.088950E-02   3.309309E-02   1.586633E-01   0.0                           \r\n           696      G      0.0            0.0           -4.069490E-03   6.451030E-04   7.349866E-02   0.0                           \r\n           697      G      0.0            0.0           -1.825179E-02   2.386271E-03   1.649083E-02   0.0                           \r\n           698      G      0.0            0.0           -2.736064E-02   3.424305E-02  -1.312631E-03   0.0                           \r\n           699      G      0.0            0.0           -1.435513E-02   5.359359E-02  -3.668708E-02   0.0                           \r\n           700      G      0.0            0.0           -1.262178E-03   4.414841E-02  -2.975922E-02   0.0                           \r\n           701      G      0.0            0.0            1.316470E-02   2.237212E-02  -1.590077E-02   0.0                           \r\n           702      G      0.0            0.0            1.487726E-02   3.971677E-02   3.864699E-03   0.0                           \r\n           703      G      0.0            0.0            5.119560E-03   8.589385E-02   4.841968E-02   0.0                           \r\n           704      G      0.0            0.0           -2.854466E-02   8.602057E-02   5.650944E-02   0.0                           \r\n           705      G      0.0            0.0           -4.392423E-02   3.762463E-02   1.609360E-02   0.0                           \r\n           706      G      0.0            0.0           -4.389063E-02   1.094734E-03  -2.668860E-02   0.0                           \r\n           707      G      0.0            0.0           -2.126338E-02  -1.555679E-02  -4.512823E-02   0.0                           \r\n           708      G      0.0            0.0           -8.038774E-03  -1.392103E-02  -1.448568E-02   0.0                           \r\n           709      G      0.0            0.0           -8.813659E-03  -8.178906E-03   2.745230E-02   0.0                           \r\n           710      G      0.0            0.0           -1.952599E-02  -2.532710E-02  -1.517398E-02   0.0                           \r\n           711      G      0.0            0.0            4.811001E-03  -5.712051E-02  -5.421036E-02   0.0                           \r\n           712      G      0.0            0.0            2.037979E-02  -7.133348E-02  -1.656252E-02   0.0                           \r\n           713      G      0.0            0.0            2.379654E-02  -4.711678E-02   1.915973E-02   0.0                           \r\n           714      G      0.0            0.0            0.0            0.0            6.467170E-02   0.0                           \r\n           757      G      0.0            0.0            9.446631E-02   5.503758E-02   0.0            0.0                           \r\n           758      G      0.0            0.0            4.503411E-02   8.943980E-02   1.844080E-01   0.0                           \r\n           759      G      0.0            0.0           -4.677380E-02   9.457158E-02   1.465920E-01   0.0                           \r\n           760      G      0.0            0.0           -8.600071E-02   4.962989E-02   2.427490E-02   0.0                           \r\n           761      G      0.0            0.0           -7.613179E-02   1.359749E-02  -6.861635E-02   0.0                           \r\n           762      G      0.0            0.0           -2.981624E-02  -4.971784E-03  -9.266998E-02   0.0                           \r\n           763      G      0.0            0.0            1.496615E-03  -4.039973E-03  -3.699716E-02   0.0                           \r\n           764      G      0.0            0.0            3.747664E-03   3.899089E-03   3.799189E-02   0.0                           \r\n           765      G      0.0            0.0           -1.783736E-02  -7.354615E-03   1.627568E-02   0.0                           \r\n           766      G      0.0            0.0           -9.390172E-03  -3.481909E-02  -2.326865E-02   0.0                           \r\n           767      G      0.0            0.0           -5.284843E-03  -4.922725E-02  -3.642969E-03   0.0                           \r\n           768      G      0.0            0.0           -1.040667E-03  -3.393031E-02   1.831083E-03   0.0                           \r\n           769      G      0.0            0.0           -7.054626E-03  -1.488162E-02   1.159612E-02   0.0                           \r\n           770      G      0.0            0.0           -1.224289E-02  -3.386410E-02   1.298682E-02   0.0                           \r\n           771      G      0.0            0.0           -1.264858E-02  -8.215667E-02  -2.690415E-02   0.0                           \r\n           772      G      0.0            0.0            1.256346E-02  -8.596280E-02  -4.564043E-02   0.0                           \r\n           773      G      0.0            0.0            2.698531E-02  -4.051819E-02  -2.382051E-02   0.0                           \r\n           774      G      0.0            0.0            3.521469E-02  -5.289694E-03   2.349752E-03   0.0                           \r\n           775      G      0.0            0.0            2.577044E-02   1.628401E-02   1.866261E-02   0.0                           \r\n           776      G      0.0            0.0            1.910402E-02   2.001872E-02   1.939523E-02   0.0                           \r\n           777      G      0.0            0.0            0.0            0.0            4.824808E-02   0.0                           \r\n           820      G      0.0            0.0            1.093977E-01  -1.431112E-01   0.0            0.0                           \r\n           821      G      0.0            0.0            7.646863E-02  -1.079777E-01   1.048758E-01   0.0                           \r\n           822      G      0.0            0.0            2.981248E-02  -4.419446E-02   7.126358E-02   0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.119369E+06    (CYCLIC FREQUENCY =  5.498771E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           823      G      0.0            0.0            8.862031E-03  -1.231865E-02   2.238381E-02   0.0                           \r\n           824      G      0.0            0.0            4.246425E-03   8.640050E-03  -1.446145E-02   0.0                           \r\n           825      G      0.0            0.0            1.895249E-02  -1.336670E-02  -3.094893E-02   0.0                           \r\n           826      G      0.0            0.0            3.301906E-02  -4.656610E-02  -3.187767E-02   0.0                           \r\n           827      G      0.0            0.0            4.707285E-02  -8.386029E-02  -6.024608E-03   0.0                           \r\n           828      G      0.0            0.0            3.870611E-02  -4.764397E-02   2.124365E-02   0.0                           \r\n           829      G      0.0            0.0            2.670034E-02  -1.971781E-02   3.801727E-02   0.0                           \r\n           830      G      0.0            0.0            3.646889E-03   5.832942E-03   3.327829E-02   0.0                           \r\n           831      G      0.0            0.0           -7.353892E-04   1.025910E-02  -8.080496E-03   0.0                           \r\n           832      G      0.0            0.0            8.896368E-03   1.253353E-02  -3.922147E-02   0.0                           \r\n           833      G      0.0            0.0            2.300061E-02   8.413283E-03   1.663211E-02   0.0                           \r\n           834      G      0.0            0.0           -3.816368E-03   2.942756E-02   5.574040E-02   0.0                           \r\n           835      G      0.0            0.0           -1.909981E-02   3.784440E-02   1.282768E-02   0.0                           \r\n           836      G      0.0            0.0           -2.245013E-02   3.984972E-02  -9.053246E-03   0.0                           \r\n           837      G      0.0            0.0           -1.353193E-02   1.054465E-02  -1.432888E-02   0.0                           \r\n           838      G      0.0            0.0           -7.799463E-03  -2.627933E-03  -1.846340E-02   0.0                           \r\n           839      G      0.0            0.0            3.304897E-03  -1.127949E-02  -1.112285E-02   0.0                           \r\n           840      G      0.0            0.0            0.0            0.0            1.826628E-02   0.0                           \r\n           841      G      0.0            0.0            0.0           -2.592994E-01   0.0            0.0                           \r\n           842      G      0.0            0.0            0.0           -1.758991E-01   0.0            0.0                           \r\n           843      G      0.0            0.0            0.0           -7.237992E-02   0.0            0.0                           \r\n           844      G      0.0            0.0            0.0           -2.915641E-02   0.0            0.0                           \r\n           845      G      0.0            0.0            0.0           -1.906524E-02   0.0            0.0                           \r\n           846      G      0.0            0.0            0.0           -5.635077E-02   0.0            0.0                           \r\n           847      G      0.0            0.0            0.0           -7.384542E-02   0.0            0.0                           \r\n           848      G      0.0            0.0            0.0           -1.036263E-01   0.0            0.0                           \r\n           849      G      0.0            0.0            0.0           -8.968437E-02   0.0            0.0                           \r\n           850      G      0.0            0.0            0.0           -7.699323E-02   0.0            0.0                           \r\n           851      G      0.0            0.0            0.0           -1.533966E-02   0.0            0.0                           \r\n           852      G      0.0            0.0            0.0           -1.130912E-02   0.0            0.0                           \r\n           853      G      0.0            0.0            0.0           -3.069705E-02   0.0            0.0                           \r\n           854      G      0.0            0.0            0.0           -8.118921E-02   0.0            0.0                           \r\n           855      G      0.0            0.0            0.0           -1.800381E-03   0.0            0.0                           \r\n           856      G      0.0            0.0            0.0            3.198010E-02   0.0            0.0                           \r\n           857      G      0.0            0.0            0.0            4.972568E-02   0.0            0.0                           \r\n           858      G      0.0            0.0            0.0            3.393507E-02   0.0            0.0                           \r\n           859      G      0.0            0.0            0.0            2.965915E-02   0.0            0.0                           \r\n           860      G      0.0            0.0            0.0           -3.744016E-03   0.0            0.0                           \r\n           861      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1             VIBRATION OF A 20 X 40 HALF PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.539654E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN      10   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n          ORIGIN      11   -   X0 = -4.398808E-01, Y0 = -0.345970E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    2   MODAL  DEFORM.     1 - SUBCASE       1 - MODE   9.065642E-01 - FREQUENCY                                      \r\n          PLOT    3   MODAL  DEFORM.     1 - SUBCASE       2 - MODE   2.266261E+00 - FREQUENCY                                      \r\n          PLOT    4   MODAL  DEFORM.     1 - SUBCASE       3 - MODE   4.533995E+00 - FREQUENCY                                      \r\n          PLOT    5   MODAL  DEFORM.     1 - SUBCASE       4 - MODE   5.883843E+00 - FREQUENCY                                      \r\n          PLOT    6   MODAL  DEFORM.     1 - SUBCASE       5 - MODE   7.712141E+00 - FREQUENCY                                      \r\n          PLOT    7   MODAL  DEFORM.     1 - SUBCASE       6 - MODE   8.135221E+00 - FREQUENCY                                      \r\n          PLOT    8   MODAL  DEFORM.     1 - SUBCASE       7 - MODE   1.148168E+01 - FREQUENCY                                      \r\n          PLOT    9   MODAL  DEFORM.     1 - SUBCASE       8 - MODE   1.200693E+01 - FREQUENCY                                      \r\n          PLOT   10   MODAL  DEFORM.     1 - SUBCASE       9 - MODE   1.443565E+01 - FREQUENCY                                      \r\n          PLOT   11   MODAL  DEFORM.     1 - SUBCASE      10 - MODE   1.853699E+01 - FREQUENCY                                      \r\n          PLOT   12   MODAL  DEFORM.     1 - SUBCASE      11 - MODE   2.605883E+01 - FREQUENCY                                      \r\n          PLOT   13   MODAL  DEFORM.     1 - SUBCASE      12 - MODE   5.498771E+01 - FREQUENCY                                      \r\n                                                 ORIGIN     11  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =          VIBRATION OF A 20 X 40 HALF PLATE                          \r\n DATE:  5/17/95\r\n END TIME: 15:38:31\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03021A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,3                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.           \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                          \r\n                  3              METHOD = 1                                                              \r\n                  4              AXISYMMETRIC = FLUID                                                    \r\n                  5        OUTPUT                                                                        \r\n                  6              HARMONICS = ALL                                                         \r\n                  7              SET 1 = 1000 THRU 2030, 2090,2150,3022,3090,3157,4018,4090,             \r\n                  8                      4162,5015,5090,5165,6012,6089,6167,7011,7090,7168,              \r\n                  9                      8010,8090,8170,9009,9090,9171,10000 THRU 10180                  \r\n                 10              PRESSURE = 1                                                            \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   289, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIF    100             .001    1.0+3   NO                              +AXIF   \r\n                    2-        +AXIF   0       THRU    2                                                       \r\n                    3-        CFLUID2 1       1090    1045                                                    \r\n                    4-        CFLUID2 2       1135    1090                                                    \r\n                    5-        CFLUID2 3       1045    2030                                                    \r\n                    6-        CFLUID2 10      2150    1135                                                    \r\n                    7-        CFLUID2 11      2030    3022                                                    \r\n                    8-        CFLUID2 22      3157    2150                                                    \r\n                    9-        CFLUID2 23      3022    4018                                                    \r\n                   10-        CFLUID2 38      4162    3157                                                    \r\n                   11-        CFLUID2 39      4018    5015                                                    \r\n                   12-        CFLUID2 58      5165    4162                                                    \r\n                   13-        CFLUID2 59      5015    6012                                                    \r\n                   14-        CFLUID2 82      6167    5165                                                    \r\n                   15-        CFLUID2 83      6012    7011                                                    \r\n                   16-        CFLUID2 110     7168    6167                                                    \r\n                   17-        CFLUID2 111     7011    8010                                                    \r\n                   18-        CFLUID2 142     8170    7168                                                    \r\n                   19-        CFLUID2 143     8010    9009                                                    \r\n                   20-        CFLUID2 178     9171    8170                                                    \r\n                   21-        CFLUID2 179     9009    10008                                                   \r\n                   22-        CFLUID2 218     10171   9171                                                    \r\n                   23-        CFLUID3 4       2060    2030    1045                                            \r\n                   24-        CFLUID3 5       1045    1090    2060                                            \r\n                   25-        CFLUID3 6       2090    2060    1090                                            \r\n                   26-        CFLUID3 7       2120    2090    1090                                            \r\n                   27-        CFLUID3 8       1090    1135    2120                                            \r\n                   28-        CFLUID3 9       2150    2120    1135                                            \r\n                   29-        CFLUID3 12      3045    3022    2030                                            \r\n                   30-        CFLUID3 13      2030    2060    3045                                            \r\n                   31-        CFLUID3 14      3067    3045    2060                                            \r\n                   32-        CFLUID3 15      2060    2090    3067                                            \r\n                   33-        CFLUID3 16      3090    3067    2090                                            \r\n                   34-        CFLUID3 17      3112    3090    2090                                            \r\n                   35-        CFLUID3 18      2090    2120    3112                                            \r\n                   36-        CFLUID3 19      3135    3112    2120                                            \r\n                   37-        CFLUID3 20      2120    2150    3135                                            \r\n                   38-        CFLUID3 21      3157    3135    2150                                            \r\n                   39-        CFLUID3 24      4036    4018    3022                                            \r\n                   40-        CFLUID3 25      3022    3045    4036                                            \r\n                   41-        CFLUID3 26      4054    4036    3045                                            \r\n                   42-        CFLUID3 27      3045    3067    4054                                            \r\n                   43-        CFLUID3 28      4072    4054    3067                                            \r\n                   44-        CFLUID3 29      3067    3090    4072                                            \r\n                   45-        CFLUID3 30      4090    4072    3090                                            \r\n                   46-        CFLUID3 31      4108    4090    3090                                            \r\n                   47-        CFLUID3 32      3090    3112    4108                                            \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CFLUID3 33      4126    4108    3112                                            \r\n                   49-        CFLUID3 34      3112    3135    4126                                            \r\n                   50-        CFLUID3 35      4144    4126    3135                                            \r\n                   51-        CFLUID3 36      3135    3157    4144                                            \r\n                   52-        CFLUID3 37      4162    4144    3157                                            \r\n                   53-        CFLUID3 40      5030    5015    4018                                            \r\n                   54-        CFLUID3 41      4018    4036    5030                                            \r\n                   55-        CFLUID3 42      5045    5030    4036                                            \r\n                   56-        CFLUID3 43      4036    4054    5045                                            \r\n                   57-        CFLUID3 44      5060    5045    4054                                            \r\n                   58-        CFLUID3 45      4054    4072    5060                                            \r\n                   59-        CFLUID3 46      5075    5060    4072                                            \r\n                   60-        CFLUID3 47      4072    4090    5075                                            \r\n                   61-        CFLUID3 48      5090    5075    4090                                            \r\n                   62-        CFLUID3 49      5105    5090    4090                                            \r\n                   63-        CFLUID3 50      4090    4108    5105                                            \r\n                   64-        CFLUID3 51      5120    5105    4108                                            \r\n                   65-        CFLUID3 52      4108    4126    5120                                            \r\n                   66-        CFLUID3 53      5135    5120    4126                                            \r\n                   67-        CFLUID3 54      4126    4144    5135                                            \r\n                   68-        CFLUID3 55      5150    5135    4144                                            \r\n                   69-        CFLUID3 56      4144    4162    5150                                            \r\n                   70-        CFLUID3 57      5165    5150    4162                                            \r\n                   71-        CFLUID3 60      6025    6012    5015                                            \r\n                   72-        CFLUID3 61      5015    5030    6025                                            \r\n                   73-        CFLUID3 62      6038    6025    5030                                            \r\n                   74-        CFLUID3 63      5030    5045    6038                                            \r\n                   75-        CFLUID3 64      6051    6038    5045                                            \r\n                   76-        CFLUID3 65      5045    5060    6051                                            \r\n                   77-        CFLUID3 66      6064    6051    5060                                            \r\n                   78-        CFLUID3 67      5060    5075    6064                                            \r\n                   79-        CFLUID3 68      6077    6064    5075                                            \r\n                   80-        CFLUID3 69      5075    5090    6077                                            \r\n                   81-        CFLUID3 70      6089    6077    5090                                            \r\n                   82-        CFLUID3 71      6102    6089    5090                                            \r\n                   83-        CFLUID3 72      5090    5105    6102                                            \r\n                   84-        CFLUID3 73      6115    6102    5105                                            \r\n                   85-        CFLUID3 74      5105    5120    6115                                            \r\n                   86-        CFLUID3 75      6128    6115    5120                                            \r\n                   87-        CFLUID3 76      5120    5135    6128                                            \r\n                   88-        CFLUID3 77      6141    6128    5135                                            \r\n                   89-        CFLUID3 78      5135    5150    6141                                            \r\n                   90-        CFLUID3 79      6154    6141    5150                                            \r\n                   91-        CFLUID3 80      5150    5165    6154                                            \r\n                   92-        CFLUID3 81      6167    6154    5165                                            \r\n                   93-        CFLUID3 84      7022    7011    6012                                            \r\n                   94-        CFLUID3 85      6012    6025    7022                                            \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CFLUID3 86      7033    7022    6025                                            \r\n                   96-        CFLUID3 87      6025    6038    7033                                            \r\n                   97-        CFLUID3 88      7045    7033    6038                                            \r\n                   98-        CFLUID3 89      6038    6051    7045                                            \r\n                   99-        CFLUID3 90      7056    7045    6051                                            \r\n                  100-        CFLUID3 91      6051    6064    7056                                            \r\n                  101-        CFLUID3 92      7067    7056    6064                                            \r\n                  102-        CFLUID3 93      6064    6077    7067                                            \r\n                  103-        CFLUID3 94      7078    7067    6077                                            \r\n                  104-        CFLUID3 95      6077    6089    7078                                            \r\n                  105-        CFLUID3 96      7090    7078    6089                                            \r\n                  106-        CFLUID3 97      7101    7090    6089                                            \r\n                  107-        CFLUID3 98      6089    6102    7101                                            \r\n                  108-        CFLUID3 99      7112    7101    6102                                            \r\n                  109-        CFLUID3 100     6102    6115    7112                                            \r\n                  110-        CFLUID3 101     7123    7112    6115                                            \r\n                  111-        CFLUID3 102     6115    6128    7123                                            \r\n                  112-        CFLUID3 103     7135    7123    6128                                            \r\n                  113-        CFLUID3 104     6128    6141    7135                                            \r\n                  114-        CFLUID3 105     7146    7135    6141                                            \r\n                  115-        CFLUID3 106     6141    6154    7146                                            \r\n                  116-        CFLUID3 107     7157    7146    6154                                            \r\n                  117-        CFLUID3 108     6154    6167    7157                                            \r\n                  118-        CFLUID3 109     7168    7157    6167                                            \r\n                  119-        CFLUID3 112     8020    8010    7011                                            \r\n                  120-        CFLUID3 113     7011    7022    8020                                            \r\n                  121-        CFLUID3 114     8030    8020    7022                                            \r\n                  122-        CFLUID3 115     7022    7033    8030                                            \r\n                  123-        CFLUID3 116     8040    8030    7033                                            \r\n                  124-        CFLUID3 117     7033    7045    8040                                            \r\n                  125-        CFLUID3 118     8050    8040    7045                                            \r\n                  126-        CFLUID3 119     7045    7056    8050                                            \r\n                  127-        CFLUID3 120     8060    8050    7056                                            \r\n                  128-        CFLUID3 121     7056    7067    8060                                            \r\n                  129-        CFLUID3 122     8070    8060    7067                                            \r\n                  130-        CFLUID3 123     7067    7078    8070                                            \r\n                  131-        CFLUID3 124     8080    8070    7078                                            \r\n                  132-        CFLUID3 125     7078    7090    8080                                            \r\n                  133-        CFLUID3 126     8090    8080    7090                                            \r\n                  134-        CFLUID3 127     8100    8090    7090                                            \r\n                  135-        CFLUID3 128     7090    7101    8100                                            \r\n                  136-        CFLUID3 129     8110    8100    7101                                            \r\n                  137-        CFLUID3 130     7101    7112    8110                                            \r\n                  138-        CFLUID3 131     8120    8110    7112                                            \r\n                  139-        CFLUID3 132     7112    7123    8120                                            \r\n                  140-        CFLUID3 133     8130    8120    7123                                            \r\n                  141-        CFLUID3 134     7123    7135    8130                                            \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CFLUID3 135     8140    8130    7135                                            \r\n                  143-        CFLUID3 136     7135    7146    8140                                            \r\n                  144-        CFLUID3 137     8150    8140    7146                                            \r\n                  145-        CFLUID3 138     7146    7157    8150                                            \r\n                  146-        CFLUID3 139     8160    8150    7157                                            \r\n                  147-        CFLUID3 140     7157    7168    8160                                            \r\n                  148-        CFLUID3 141     8170    8160    7168                                            \r\n                  149-        CFLUID3 144     9018    9009    8010                                            \r\n                  150-        CFLUID3 145     8010    8020    9018                                            \r\n                  151-        CFLUID3 146     9027    9018    8020                                            \r\n                  152-        CFLUID3 147     8020    8030    9027                                            \r\n                  153-        CFLUID3 148     9036    9027    8030                                            \r\n                  154-        CFLUID3 149     8030    8040    9036                                            \r\n                  155-        CFLUID3 150     9045    9036    8040                                            \r\n                  156-        CFLUID3 151     8040    8050    9045                                            \r\n                  157-        CFLUID3 152     9054    9045    8050                                            \r\n                  158-        CFLUID3 153     8050    8060    9054                                            \r\n                  159-        CFLUID3 154     9063    9054    8060                                            \r\n                  160-        CFLUID3 155     8060    8070    9063                                            \r\n                  161-        CFLUID3 156     9072    9063    8070                                            \r\n                  162-        CFLUID3 157     8070    8080    9072                                            \r\n                  163-        CFLUID3 158     9081    9072    8080                                            \r\n                  164-        CFLUID3 159     8080    8090    9081                                            \r\n                  165-        CFLUID3 160     9090    9081    8090                                            \r\n                  166-        CFLUID3 161     9099    9090    8090                                            \r\n                  167-        CFLUID3 162     8090    8100    9099                                            \r\n                  168-        CFLUID3 163     9108    9099    8100                                            \r\n                  169-        CFLUID3 164     8100    8110    9108                                            \r\n                  170-        CFLUID3 165     9117    9108    8110                                            \r\n                  171-        CFLUID3 166     8110    8120    9117                                            \r\n                  172-        CFLUID3 167     9126    9117    8120                                            \r\n                  173-        CFLUID3 168     8120    8130    9126                                            \r\n                  174-        CFLUID3 169     9135    9126    8130                                            \r\n                  175-        CFLUID3 170     8130    8140    9135                                            \r\n                  176-        CFLUID3 171     9144    9135    8140                                            \r\n                  177-        CFLUID3 172     8140    8150    9144                                            \r\n                  178-        CFLUID3 173     9153    9144    8150                                            \r\n                  179-        CFLUID3 174     8150    8160    9153                                            \r\n                  180-        CFLUID3 175     9162    9153    8160                                            \r\n                  181-        CFLUID3 176     8160    8170    9162                                            \r\n                  182-        CFLUID3 177     9171    9162    8170                                            \r\n                  183-        CFLUID3 180     10016   10008   9009                                            \r\n                  184-        CFLUID3 181     9009    9018    10016                                           \r\n                  185-        CFLUID3 182     10024   10016   9018                                            \r\n                  186-        CFLUID3 183     9018    9027    10024                                           \r\n                  187-        CFLUID3 184     10032   10024   9027                                            \r\n                  188-        CFLUID3 185     9027    9036    10032                                           \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CFLUID3 186     10040   10032   9036                                            \r\n                  190-        CFLUID3 187     9036    9045    10040                                           \r\n                  191-        CFLUID3 188     10049   10040   9045                                            \r\n                  192-        CFLUID3 189     9045    9054    10049                                           \r\n                  193-        CFLUID3 190     10057   10049   9054                                            \r\n                  194-        CFLUID3 191     9054    9063    10057                                           \r\n                  195-        CFLUID3 192     10065   10057   9063                                            \r\n                  196-        CFLUID3 193     9063    9072    10065                                           \r\n                  197-        CFLUID3 194     10073   10065   9072                                            \r\n                  198-        CFLUID3 195     9072    9081    10073                                           \r\n                  199-        CFLUID3 196     10081   10073   9081                                            \r\n                  200-        CFLUID3 197     9081    9090    10081                                           \r\n                  201-        CFLUID3 198     10089   10081   9090                                            \r\n                  202-        CFLUID3 199     10098   10089   9090                                            \r\n                  203-        CFLUID3 200     9090    9099    10098                                           \r\n                  204-        CFLUID3 201     10106   10098   9099                                            \r\n                  205-        CFLUID3 202     9099    9108    10106                                           \r\n                  206-        CFLUID3 203     10114   10106   9108                                            \r\n                  207-        CFLUID3 204     9108    9117    10114                                           \r\n                  208-        CFLUID3 205     10122   10114   9117                                            \r\n                  209-        CFLUID3 206     9117    9126    10122                                           \r\n                  210-        CFLUID3 207     10130   10122   9126                                            \r\n                  211-        CFLUID3 208     9126    9135    10130                                           \r\n                  212-        CFLUID3 209     10139   10130   9135                                            \r\n                  213-        CFLUID3 210     9135    9144    10139                                           \r\n                  214-        CFLUID3 211     10147   10139   9144                                            \r\n                  215-        CFLUID3 212     9144    9153    10147                                           \r\n                  216-        CFLUID3 213     10155   10147   9153                                            \r\n                  217-        CFLUID3 214     9153    9162    10155                                           \r\n                  218-        CFLUID3 215     10163   10155   9162                                            \r\n                  219-        CFLUID3 216     9162    9171    10163                                           \r\n                  220-        CFLUID3 217     10171   10163   9171                                            \r\n                  221-        CORD2S  100     0       .0      .0      10.0    .0      .0      20.0    +CORD2S \r\n                  222-        +CORD2S .0      1.0     .0                                                      \r\n                  223-        EIGR    1       INV     14.0    60.0    2       7               1.0-6   +EIGR-1 \r\n                  224-        +EIGR-1 MAX                                                                     \r\n                  225-        RINGFL  1045    1.00000 45.0000         1090    1.00000 90.0000                 \r\n                  226-        RINGFL  1135    1.00000 135.000                                                 \r\n                  227-        RINGFL  2030    2.00000 30.0000         2060    2.00000 60.0000                 \r\n                  228-        RINGFL  2090    2.00000 90.0000         2120    2.00000 120.000                 \r\n                  229-        RINGFL  2150    2.00000 150.000                                                 \r\n                  230-        RINGFL  3022    3.00000 22.5000         3045    3.00000 45.0000                 \r\n                  231-        RINGFL  3067    3.00000 67.5000         3090    3.00000 90.0000                 \r\n                  232-        RINGFL  3112    3.00000 112.500         3135    3.00000 135.000                 \r\n                  233-        RINGFL  3157    3.00000 157.500                                                 \r\n                  234-        RINGFL  4018    4.00000 18.0000         4036    4.00000 36.0000                 \r\n                  235-        RINGFL  4054    4.00000 54.0000         4072    4.00000 72.0000                 \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        RINGFL  4090    4.00000 90.0000         4108    4.00000 108.000                 \r\n                  237-        RINGFL  4126    4.00000 126.000         4144    4.00000 144.000                 \r\n                  238-        RINGFL  4162    4.00000 162.000                                                 \r\n                  239-        RINGFL  5015    5.00000 15.0000         5030    5.00000 30.0000                 \r\n                  240-        RINGFL  5045    5.00000 45.0000         5060    5.00000 60.0000                 \r\n                  241-        RINGFL  5075    5.00000 75.0000         5090    5.00000 90.0000                 \r\n                  242-        RINGFL  5105    5.00000 105.000         5120    5.00000 120.000                 \r\n                  243-        RINGFL  5135    5.00000 135.000         5150    5.00000 150.000                 \r\n                  244-        RINGFL  5165    5.00000 165.000                                                 \r\n                  245-        RINGFL  6012    6.00000 12.8571         6025    6.00000 25.7143                 \r\n                  246-        RINGFL  6038    6.00000 38.5714         6051    6.00000 51.4286                 \r\n                  247-        RINGFL  6064    6.00000 64.2857         6077    6.00000 77.1429                 \r\n                  248-        RINGFL  6089    6.00000 90.0000         6102    6.00000 102.857                 \r\n                  249-        RINGFL  6115    6.00000 115.714         6128    6.00000 128.571                 \r\n                  250-        RINGFL  6141    6.00000 141.429         6154    6.00000 154.286                 \r\n                  251-        RINGFL  6167    6.00000 167.143                                                 \r\n                  252-        RINGFL  7011    7.00000 11.2500         7022    7.00000 22.5000                 \r\n                  253-        RINGFL  7033    7.00000 33.7500         7045    7.00000 45.0000                 \r\n                  254-        RINGFL  7056    7.00000 56.2500         7067    7.00000 67.5000                 \r\n                  255-        RINGFL  7078    7.00000 78.7500         7090    7.00000 90.0000                 \r\n                  256-        RINGFL  7101    7.00000 101.250         7112    7.00000 112.500                 \r\n                  257-        RINGFL  7123    7.00000 123.750         7135    7.00000 135.000                 \r\n                  258-        RINGFL  7146    7.00000 146.250         7157    7.00000 157.500                 \r\n                  259-        RINGFL  7168    7.00000 168.750                                                 \r\n                  260-        RINGFL  8010    8.00000 10.0000         8020    8.00000 20.0000                 \r\n                  261-        RINGFL  8030    8.00000 30.0000         8040    8.00000 40.0000                 \r\n                  262-        RINGFL  8050    8.00000 50.0000         8060    8.00000 60.0000                 \r\n                  263-        RINGFL  8070    8.00000 70.0000         8080    8.00000 80.0000                 \r\n                  264-        RINGFL  8090    8.00000 90.0000         8100    8.00000 100.000                 \r\n                  265-        RINGFL  8110    8.00000 110.000         8120    8.00000 120.000                 \r\n                  266-        RINGFL  8130    8.00000 130.000         8140    8.00000 140.000                 \r\n                  267-        RINGFL  8150    8.00000 150.000         8160    8.00000 160.000                 \r\n                  268-        RINGFL  8170    8.00000 170.000                                                 \r\n                  269-        RINGFL  9009    9.00000 9.00000         9018    9.00000 18.0000                 \r\n                  270-        RINGFL  9027    9.00000 27.0000         9036    9.00000 36.0000                 \r\n                  271-        RINGFL  9045    9.00000 45.0000         9054    9.00000 54.0000                 \r\n                  272-        RINGFL  9063    9.00000 63.0000         9072    9.00000 72.0000                 \r\n                  273-        RINGFL  9081    9.00000 81.0000         9090    9.00000 90.0000                 \r\n                  274-        RINGFL  9099    9.00000 99.0000         9108    9.00000 108.000                 \r\n                  275-        RINGFL  9117    9.00000 117.000         9126    9.00000 126.000                 \r\n                  276-        RINGFL  9135    9.00000 135.000         9144    9.00000 144.000                 \r\n                  277-        RINGFL  9153    9.00000 153.000         9162    9.00000 162.000                 \r\n                  278-        RINGFL  9171    9.00000 171.000                                                 \r\n                  279-        RINGFL  10008   10.0000 8.18182         10016   10.0000 16.3636                 \r\n                  280-        RINGFL  10024   10.0000 24.5455         10032   10.0000 32.7273                 \r\n                  281-        RINGFL  10040   10.0000 40.9091         10049   10.0000 49.0909                 \r\n                  282-        RINGFL  10057   10.0000 57.2727         10065   10.0000 65.4545                 \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        RINGFL  10073   10.0000 73.6364         10081   10.0000 81.8182                 \r\n                  284-        RINGFL  10089   10.0000 90.0000         10098   10.0000 98.1818                 \r\n                  285-        RINGFL  10106   10.0000 106.364         10114   10.0000 114.545                 \r\n                  286-        RINGFL  10122   10.0000 122.727         10130   10.0000 130.909                 \r\n                  287-        RINGFL  10139   10.0000 139.091         10147   10.0000 147.273                 \r\n                  288-        RINGFL  10155   10.0000 155.455         10163   10.0000 163.636                 \r\n                  289-        RINGFL  10171   10.0000 171.818                                                 \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC FLUID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID2   ELEMENTS (ELEMENT TYPE  43) STARTING WITH ID     1002\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID3   ELEMENTS (ELEMENT TYPE  44) STARTING WITH ID     4002\r\n                        3 ROOTS BELOW   7.493005E+04\r\n                        1 ROOTS BELOW   4.301296E+04\r\n                        2 ROOTS BELOW   4.353066E+04\r\n                        1 ROOTS BELOW   4.199647E+04\r\n                        2 ROOTS BELOW   4.361502E+04\r\n                        4 ROOTS BELOW   1.123079E+05\r\n                        5 ROOTS BELOW   1.128807E+05\r\n                        6 ROOTS BELOW   1.130724E+05\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         6\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         9\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        63\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         4*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.11E-07\r\n0                                                                              . . .         6\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         3\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 3X EST.ROOTS IN RANGE SPECIFIED.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         6 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         6       -9.941588E-07        9.970751E-04        1.586894E-04        4.167041E+00       -4.142700E-06             \r\n        2         1        4.353046E+04        2.086395E+02        3.320601E+01        1.124695E+00        4.895847E+04             \r\n        3         2        4.361502E+04        2.088421E+02        3.323825E+01        1.141329E+00        4.977908E+04             \r\n        4         3        1.123020E+05        3.351149E+02        5.333519E+01        7.769185E-01        8.724948E+04             \r\n        5         5        1.125953E+05        3.355523E+02        5.340480E+01        7.691594E-01        8.660377E+04             \r\n        6         4        1.130695E+05        3.362581E+02        5.351714E+01        6.095798E-01        6.892491E+04             \r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE = -0.994159E-06    (CYCLIC FREQUENCY =  1.586894E-04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045   1.000000E+00    1090   1.000000E+00    1135   1.000000E+00    2030   1.000000E+00    2090   1.000000E+00\r\n           0      2150   1.000000E+00    3022   1.000000E+00    3090   1.000000E+00    3157   1.000000E+00    4018   1.000000E+00\r\n           0      4090   1.000000E+00    4162   1.000000E+00    5015   1.000000E+00    5090   1.000000E+00    5165   1.000000E+00\r\n           0      6012   1.000000E+00    6089   1.000000E+00    6167   1.000000E+00    7011   1.000000E+00    7090   1.000000E+00\r\n           0      7168   1.000000E+00    8010   1.000000E+00    8090   1.000000E+00    8170   1.000000E+00    9009   1.000000E+00\r\n           0      9090   1.000000E+00    9171   1.000000E+00   10008   1.000000E+00   10016   1.000000E+00   10024   1.000000E+00\r\n           0     10032   1.000000E+00   10040   1.000000E+00   10049   1.000000E+00   10057   1.000000E+00   10065   1.000000E+00\r\n           0     10073   1.000000E+00   10081   1.000000E+00   10089   1.000000E+00   10098   1.000000E+00   10106   1.000000E+00\r\n           0     10114   1.000000E+00   10122   1.000000E+00   10130   1.000000E+00   10139   1.000000E+00   10147   1.000000E+00\r\n           0     10155   1.000000E+00   10163   1.000000E+00   10171   1.000000E+00\r\n           1      1045  -3.653751E-09    1090  -3.540433E-15    1135   3.653725E-09    2030  -1.277524E-08    2090   1.955348E-14\r\n           1      2150   1.277512E-08    3022  -2.272239E-08    3090   9.625901E-14    3157   2.272207E-08    4018  -3.186292E-08\r\n           1      4090   2.378945E-13    4162   3.186234E-08    5015  -3.944346E-08    5090   4.403702E-13    5165   3.944260E-08\r\n           1      6012  -4.502592E-08    6089   6.741148E-13    6167   4.502439E-08    7011  -4.836513E-08    7090   9.229295E-13\r\n           1      7168   4.836373E-08    8010  -4.936317E-08    8090   1.139151E-12    8170   4.936168E-08    9009  -4.802225E-08\r\n           1      9090   1.281022E-12    9171   4.802072E-08   10008  -4.432538E-08   10016  -8.512284E-08   10024  -1.189447E-07\r\n           1     10032  -1.430077E-07   10040  -1.554446E-07   10049  -1.553174E-07   10057  -1.426613E-07   10065  -1.184814E-07\r\n           1     10073  -8.469764E-08   10081  -4.404997E-08   10089   1.310011E-12   10098   4.405229E-08   10106   8.470116E-08\r\n           1     10114   1.184799E-07   10122   1.426596E-07   10130   1.553150E-07   10139   1.554413E-07   10147   1.430034E-07\r\n           1     10155   1.189395E-07   10163   8.512209E-08   10171   4.432493E-08\r\n           2      1045  -1.205501E-15    1090  -7.619798E-18    1135   1.152390E-15    2030  -7.479918E-15    2090   6.527036E-17\r\n           2      2150   6.966643E-15    3022  -1.558781E-14    3090   7.151159E-16    3157   1.406919E-14    4018  -2.349885E-14\r\n           2      4090   2.518874E-15    4162   2.054454E-14    5015  -3.008151E-14    5090   5.856665E-15    5165   2.551782E-14\r\n           2      6012  -3.462894E-14    6089   1.066709E-14    6167   2.858179E-14    7011  -3.674640E-14    7090   1.634069E-14\r\n           2      7168   2.962382E-14    8010  -3.630254E-14    8090   2.179055E-14    8170   2.872264E-14    9009  -3.333526E-14\r\n           2      9090   2.567681E-14    9171   2.604411E-14   10008  -2.767009E-14   10016  -1.116832E-13   10024  -2.323951E-13\r\n           2     10032  -3.611595E-13   10040  -4.688630E-13   10049  -5.305632E-13   10057  -5.298421E-13   10065  -4.615526E-13\r\n           2     10073  -3.326305E-13   10081  -1.610116E-13   10089   2.668502E-14   10098   2.076726E-13   10106   3.565302E-13\r\n           2     10114   4.540413E-13   10122   4.912864E-13   10130   4.695992E-13   10139   3.994467E-13   10147   2.981793E-13\r\n           2     10155   1.870944E-13   10163   8.819979E-14   10171   2.153377E-14\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.435305E+05    (CYCLIC FREQUENCY =  3.320601E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045  -7.503082E-11    1090   4.516317E-18    1135   7.503082E-11    2030  -1.817122E-10    2090   8.652946E-18\r\n           0      2150   1.817122E-10    3022  -2.848692E-10    3090   1.222971E-17    3157   2.848692E-10    4018  -3.794896E-10\r\n           0      4090   1.498396E-17    4162   3.794896E-10    5015  -4.631611E-10    5090   1.632069E-17    5165   4.631611E-10\r\n           0      6012  -5.340182E-10    6089   3.616319E-17    6167   5.340184E-10    7011  -5.905459E-10    7090   3.432387E-17\r\n           0      7168   5.905459E-10    8010  -6.315894E-10    8090   3.705749E-17    8170   6.315894E-10    9009  -6.563555E-10\r\n           0      9090   3.659512E-17    9171   6.563555E-10   10008  -6.643496E-10   10016  -6.453745E-10   10024  -6.122522E-10\r\n           0     10032  -5.663993E-10   10040  -5.089481E-10   10049  -4.411320E-10   10057  -3.643342E-10   10065  -2.800886E-10\r\n           0     10073  -1.900684E-10   10081  -9.607495E-11   10089   2.225831E-17   10098   9.607484E-11   10106   1.900732E-10\r\n           0     10114   2.800831E-10   10122   3.643311E-10   10130   4.411310E-10   10139   5.089489E-10   10147   5.664011E-10\r\n           0     10155   6.122548E-10   10163   6.453731E-10   10171   6.643492E-10\r\n           1      1045   1.081122E-01    1090   1.602669E-01    1135   1.081122E-01    2030   1.581246E-01    2090   3.154834E-01\r\n           1      2150   1.581246E-01    3022   1.779600E-01    3090   4.627793E-01    3157   1.779600E-01    4018   1.858444E-01\r\n           1      4090   5.979627E-01    4162   1.858444E-01    5015   1.869842E-01    5090   7.176726E-01    5165   1.869842E-01\r\n           1      6012   1.836022E-01    6089   8.189964E-01    6167   1.836007E-01    7011   1.768773E-01    7090   8.995367E-01\r\n           1      7168   1.768773E-01    8010   1.675098E-01    8090   9.574427E-01    8170   1.675099E-01    9009   1.558782E-01\r\n           1      9090   9.913404E-01    9171   1.558783E-01   10008   1.418859E-01   10016   2.823497E-01   10024   4.171494E-01\r\n           1     10032   5.432471E-01   10040   6.581464E-01   10049   7.595927E-01   10057   8.455684E-01   10065   9.142971E-01\r\n           1     10073   9.642134E-01   10081   9.937338E-01   10089   1.000000E+00   10098   9.937338E-01   10106   9.642115E-01\r\n           1     10114   9.143009E-01   10122   8.455713E-01   10130   7.595940E-01   10139   6.581451E-01   10147   5.432428E-01\r\n           1     10155   4.171412E-01   10163   2.823568E-01   10171   1.418893E-01\r\n           2      1045  -2.412837E-28    1090  -6.502677E-28    1135  -2.412837E-28    2030  -6.195159E-28    2090  -2.671918E-27\r\n           2      2150  -6.195161E-28    3022  -7.906310E-28    3090  -5.856119E-27    3157  -7.906311E-28    4018  -8.674287E-28\r\n           2      4090  -9.866251E-27    4162  -8.674290E-28    5015  -8.842254E-28    5090  -1.431115E-26    5165  -8.842278E-28\r\n           2      6012  -8.592982E-28    6089  -1.875868E-26    6167  -8.592808E-28    7011  -8.041078E-28    7090  -2.277217E-26\r\n           2      7168  -8.041080E-28    8010  -7.265484E-28    8090  -2.594682E-26    8170  -7.265489E-28    9009  -6.313835E-28\r\n           2      9090  -2.793836E-26    9171  -6.313812E-28   10008  -5.157671E-28   10016  -2.194439E-27   10024  -4.895238E-27\r\n           2     10032  -8.364663E-27   10040  -1.231326E-26   10049  -1.642054E-26   10057  -2.035634E-26   10065  -2.380267E-26\r\n           2     10073  -2.647293E-26   10081  -2.811828E-26   10089  -2.847128E-26   10098  -2.811827E-26   10106  -2.647282E-26\r\n           2     10114  -2.380287E-26   10122  -2.035647E-26   10130  -1.642059E-26   10139  -1.231321E-26   10147  -8.364523E-27\r\n           2     10155  -4.895045E-27   10163  -2.194556E-27   10171  -5.157964E-28\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.436150E+05    (CYCLIC FREQUENCY =  3.323825E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045   1.129387E-01    1090  -6.794975E-09    1135  -1.129387E-01    2030   2.735190E-01    2090  -1.302178E-08\r\n           0      2150  -2.735190E-01    3022   4.287940E-01    3090  -1.840591E-08    3157  -4.287941E-01    4018   5.712197E-01\r\n           0      4090  -2.255191E-08    4162  -5.712197E-01    5015   6.971647E-01    5090  -2.456421E-08    5165  -6.971647E-01\r\n           0      6012   8.038210E-01    6089  -5.443193E-08    6167  -8.038214E-01    7011   8.889084E-01    7090  -5.166337E-08\r\n           0      7168  -8.889084E-01    8010   9.506882E-01    8090  -5.577805E-08    8170  -9.506882E-01    9009   9.879670E-01\r\n           0      9090  -5.508199E-08    9171  -9.879670E-01   10008   1.000000E+00   10016   9.714382E-01   10024   9.215813E-01\r\n           0     10032   8.525621E-01   10040   7.660847E-01   10049   6.640058E-01   10057   5.484073E-01   10065   4.215983E-01\r\n           0     10073   2.860970E-01   10081   1.446151E-01   10089  -3.350176E-08   10098  -1.446149E-01   10106  -2.861042E-01\r\n           0     10114  -4.215899E-01   10122  -5.484027E-01   10130  -6.640043E-01   10139  -7.660858E-01   10147  -8.525649E-01\r\n           0     10155  -9.215852E-01   10163  -9.714361E-01   10171  -9.999995E-01\r\n           1      1045   7.288661E-11    1090   1.080480E-10    1135   7.288661E-11    2030   1.066037E-10    2090   2.126911E-10\r\n           1      2150   1.066037E-10    3022   1.199762E-10    3090   3.119944E-10    3157   1.199763E-10    4018   1.252917E-10\r\n           1      4090   4.031317E-10    4162   1.252917E-10    5015   1.260601E-10    5090   4.838372E-10    5165   1.260601E-10\r\n           1      6012   1.237801E-10    6089   5.521472E-10    6167   1.237791E-10    7011   1.192463E-10    7090   6.064454E-10\r\n           1      7168   1.192463E-10    8010   1.129310E-10    8090   6.454843E-10    8170   1.129310E-10    9009   1.050892E-10\r\n           1      9090   6.683372E-10    9171   1.050893E-10   10008   9.565596E-11   10016   1.903532E-10   10024   2.812318E-10\r\n           1     10032   3.662438E-10   10040   4.437061E-10   10049   5.120987E-10   10057   5.700614E-10   10065   6.163965E-10\r\n           1     10073   6.500490E-10   10081   6.699508E-10   10089   6.741754E-10   10098   6.699508E-10   10106   6.500476E-10\r\n           1     10114   6.163992E-10   10122   5.700633E-10   10130   5.120995E-10   10139   4.437052E-10   10147   3.662409E-10\r\n           1     10155   2.812263E-10   10163   1.903580E-10   10171   9.565825E-11\r\n           2      1045   2.010157E-30    1090   5.417442E-30    1135   2.010157E-30    2030   5.161244E-30    2090   2.226001E-29\r\n           2      2150   5.161247E-30    3022   6.586820E-30    3090   4.878788E-29    3157   6.586823E-30    4018   7.226629E-30\r\n           2      4090   8.219667E-29    4162   7.226633E-30    5015   7.366563E-30    5090   1.192275E-28    5165   7.366586E-30\r\n           2      6012   7.158893E-30    6089   1.562804E-28    6167   7.158751E-30    7011   6.699095E-30    7090   1.897171E-28\r\n           2      7168   6.699101E-30    8010   6.052941E-30    8090   2.161654E-28    8170   6.052948E-30    9009   5.260114E-30\r\n           2      9090   2.327571E-28    9171   5.260097E-30   10008   4.296903E-30   10016   1.828208E-29   10024   4.078268E-29\r\n           2     10032   6.968678E-29   10040   1.025829E-28   10049   1.368010E-28   10057   1.695906E-28   10065   1.983022E-28\r\n           2     10073   2.205485E-28   10081   2.342560E-28   10089   2.371969E-28   10098   2.342560E-28   10106   2.205475E-28\r\n           2     10114   1.983039E-28   10122   1.695917E-28   10130   1.368015E-28   10139   1.025825E-28   10147   6.968565E-29\r\n           2     10155   4.078109E-29   10163   1.828306E-29   10171   4.297150E-30\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.112302E+06    (CYCLIC FREQUENCY =  5.333519E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045   3.107230E-14    1090  -1.992457E-14    1135   3.107230E-14    2030   1.721223E-13    2090  -1.186894E-13\r\n           0      2150   1.721223E-13    3022   4.327658E-13    3090  -2.665629E-13    3157   4.327658E-13    4018   7.817540E-13\r\n           0      4090  -4.515453E-13    4162   7.817541E-13    5015   1.180750E-12    5090  -6.563953E-13    5165   1.180750E-12\r\n           0      6012   1.588300E-12    6089  -8.615034E-13    6167   1.588303E-12    7011   1.962800E-12    7090  -1.046785E-12\r\n           0      7168   1.962801E-12    8010   2.265711E-12    8090  -1.193377E-12    8170   2.265711E-12    9009   2.464481E-12\r\n           0      9090  -1.284847E-12    9171   2.464481E-12   10008   2.534484E-12   10016   2.313257E-12   10024   1.947028E-12\r\n           0     10032   1.473422E-12   10040   9.327953E-13   10049   3.693156E-13   10057  -1.715398E-13   10065  -6.459514E-13\r\n           0     10073  -1.014628E-12   10081  -1.244706E-12   10089  -1.307108E-12   10098  -1.244706E-12   10106  -1.014612E-12\r\n           0     10114  -6.459787E-13   10122  -1.715595E-13   10130   3.693078E-13   10139   9.328023E-13   10147   1.473441E-12\r\n           0     10155   1.947056E-12   10163   2.313241E-12   10171   2.534480E-12\r\n           1      1045   5.310666E-12    1090   1.713602E-19    1135  -5.310665E-12    2030   1.856857E-11    2090  -1.375775E-18\r\n           1      2150  -1.856857E-11    3022   3.302649E-11    3090  -5.065784E-18    3157  -3.302649E-11    4018   4.631195E-11\r\n           1      4090  -1.109302E-17    4162  -4.631195E-11    5015   5.732996E-11    5090  -1.967400E-17    5165  -5.732999E-11\r\n           1      6012   6.544380E-11    6089  -1.637133E-17    6167  -6.544327E-11    7011   7.029713E-11    7090  -2.406947E-17\r\n           1      7168  -7.029713E-11    8010   7.174767E-11    8090  -2.991237E-17    8170  -7.174773E-11    9009   6.979864E-11\r\n           1      9090  -3.053565E-17    9171  -6.979869E-11   10008   6.442535E-11   10016   1.237231E-10   10024   1.728823E-10\r\n           1     10032   2.078574E-10   10040   2.259346E-10   10049   2.257503E-10   10057   2.073557E-10   10065   1.722116E-10\r\n           1     10073   1.231082E-10   10081   6.402782E-11   10089  -2.133715E-17   10098  -6.402776E-11   10106  -1.231110E-10\r\n           1     10114  -1.722088E-10   10122  -2.073547E-10   10130  -2.257502E-10   10139  -2.259344E-10   10147  -2.078564E-10\r\n           1     10155  -1.728796E-10   10163  -1.237259E-10   10171  -6.442683E-11\r\n           2      1045   8.474633E-03    1090   2.283943E-02    1135   8.474633E-03    2030   2.175933E-02    2090   9.384611E-02\r\n           2      2150   2.175933E-02    3022   2.776942E-02    3090   2.056852E-01    3157   2.776943E-02    4018   3.046679E-02\r\n           2      4090   3.465335E-01    4162   3.046681E-02    5015   3.105674E-02    5090   5.026521E-01    5165   3.105684E-02\r\n           2      6012   3.018122E-02    6089   6.588634E-01    6167   3.018062E-02    7011   2.824276E-02    7090   7.998295E-01\r\n           2      7168   2.824278E-02    8010   2.551864E-02    8090   9.113330E-01    8170   2.551866E-02    9009   2.217615E-02\r\n           2      9090   9.812821E-01    9171   2.217608E-02   10008   1.811534E-02   10016   7.707553E-02   10024   1.719359E-01\r\n           2     10032   2.937930E-01   10040   4.324801E-01   10049   5.767404E-01   10057   7.149779E-01   10065   8.360236E-01\r\n           2     10073   9.298117E-01   10081   9.876014E-01   10089   1.000000E+00   10098   9.876013E-01   10106   9.298078E-01\r\n           2     10114   8.360308E-01   10122   7.149829E-01   10130   5.767422E-01   10139   4.324783E-01   10147   2.937882E-01\r\n           2     10155   1.719293E-01   10163   7.707966E-02   10171   1.811638E-02\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.112595E+06    (CYCLIC FREQUENCY =  5.340480E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045   2.867420E-08    1090   2.867896E-08    1135   2.867463E-08    2030   2.866235E-08    2090   2.868956E-08\r\n           0      2150   2.866339E-08    3022   2.864039E-08    3090   2.870549E-08    3157   2.864208E-08    4018   2.861103E-08\r\n           0      4090   2.872545E-08    4162   2.861345E-08    5015   2.857757E-08    5090   2.874758E-08    5165   2.858079E-08\r\n           0      6012   2.854351E-08    6089   2.876974E-08    6167   2.854762E-08    7011   2.851228E-08    7090   2.878975E-08\r\n           0      7168   2.851733E-08    8010   2.848705E-08    8090   2.880555E-08    8170   2.849297E-08    9009   2.847047E-08\r\n           0      9090   2.881537E-08    9171   2.847704E-08   10008   2.846459E-08   10016   2.848400E-08   10024   2.851633E-08\r\n           0     10032   2.855866E-08   10040   2.860774E-08   10049   2.865977E-08   10057   2.871052E-08   10065   2.875562E-08\r\n           0     10073   2.879086E-08   10081   2.881262E-08   10089   2.881778E-08   10098   2.881082E-08   10106   2.878765E-08\r\n           0     10114   2.875177E-08   10122   2.870692E-08   10130   2.865725E-08   10139   2.860697E-08   10147   2.856003E-08\r\n           0     10155   2.851992E-08   10163   2.848954E-08   10171   2.847144E-08\r\n           1      1045   2.350533E-02    1090   7.959166E-10    1135  -2.350532E-02    2030   8.218563E-02    2090  -6.029243E-09\r\n           1      2150  -8.218562E-02    3022   1.461772E-01    3090  -2.230979E-08    3157  -1.461772E-01    4018   2.049795E-01\r\n           1      4090  -4.885820E-08    4162  -2.049795E-01    5015   2.537459E-01    5090  -8.665619E-08    5165  -2.537460E-01\r\n           1      6012   2.896582E-01    6089  -7.182760E-08    6167  -2.896558E-01    7011   3.111393E-01    7090  -1.056234E-07\r\n           1      7168  -3.111393E-01    8010   3.175595E-01    8090  -1.311970E-07    8170  -3.175598E-01    9009   3.089330E-01\r\n           1      9090  -1.337586E-07    9171  -3.089332E-01   10008   2.851505E-01   10016   5.476059E-01   10024   7.651873E-01\r\n           1     10032   9.199893E-01   10040   1.000000E+00   10049   9.991844E-01   10057   9.177691E-01   10065   7.622187E-01\r\n           1     10073   5.448841E-01   10081   2.833910E-01   10089  -9.298151E-08   10098  -2.833907E-01   10106  -5.448967E-01\r\n           1     10114  -7.622067E-01   10122  -9.177644E-01   10130  -9.991838E-01   10139  -9.999993E-01   10147  -9.199851E-01\r\n           1     10155  -7.651756E-01   10163  -5.476183E-01   10171  -2.851571E-01\r\n           2      1045  -1.894755E-12    1090  -5.108678E-12    1135  -1.896425E-12    2030  -4.861979E-12    2090  -2.099131E-11\r\n           2      2150  -4.872210E-12    3022  -6.200944E-12    3090  -4.600722E-11    3157  -6.221941E-12    4018  -6.799230E-12\r\n           2      4090  -7.751184E-11    4162  -6.830406E-12    5015  -6.927140E-12    5090  -1.124320E-10    5165  -6.966500E-12\r\n           2      6012  -6.728652E-12    6089  -1.473729E-10    6167  -6.773228E-12    7011  -6.293975E-12    7090  -1.789037E-10\r\n           2      7168  -6.340909E-12    8010  -5.685139E-12    8090  -2.038444E-10    8170  -5.731111E-12    9009  -4.939492E-12\r\n           2      9090  -2.194903E-10    9171  -4.981442E-12   10008  -4.034751E-12   10016  -1.716997E-11   10024  -3.831097E-11\r\n           2     10032  -6.548322E-11   10040  -9.643061E-11   10049  -1.286515E-10   10057  -1.595642E-10   10065  -1.866760E-10\r\n           2     10073  -2.077339E-10   10081  -2.207732E-10   10089  -2.236770E-10   10098  -2.210346E-10   10106  -2.082215E-10\r\n           2     10114  -1.873264E-10   10122  -1.602885E-10   10130  -1.293600E-10   10139  -9.704466E-11   10147  -6.594853E-11\r\n           2     10155  -3.860609E-11   10163  -1.731218E-11   10171  -4.069755E-12\r\n1     VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.113070E+06    (CYCLIC FREQUENCY =  5.351714E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           0      1045   1.225981E-02    1090  -7.861394E-03    1135   1.225981E-02    2030   6.791216E-02    2090  -4.682980E-02\r\n           0      2150   6.791217E-02    3022   1.707511E-01    3090  -1.051744E-01    3157   1.707511E-01    4018   3.084470E-01\r\n           0      4090  -1.781606E-01    4162   3.084470E-01    5015   4.658738E-01    5090  -2.589858E-01    5165   4.658739E-01\r\n           0      6012   6.266761E-01    6089  -3.399128E-01    6167   6.266771E-01    7011   7.744378E-01    7090  -4.130169E-01\r\n           0      7168   7.744380E-01    8010   8.939535E-01    8090  -4.708562E-01    8170   8.939535E-01    9009   9.723797E-01\r\n           0      9090  -5.069464E-01    9171   9.723797E-01   10008   1.000000E+00   10016   9.127131E-01   10024   7.682149E-01\r\n           0     10032   5.813501E-01   10040   3.680416E-01   10049   1.457163E-01   10057  -6.768236E-02   10065  -2.548651E-01\r\n           0     10073  -4.003292E-01   10081  -4.911083E-01   10089  -5.157294E-01   10098  -4.911083E-01   10106  -4.003231E-01\r\n           0     10114  -2.548758E-01   10122  -6.769010E-02   10130   1.457132E-01   10139   3.680443E-01   10147   5.813575E-01\r\n           0     10155   7.682257E-01   10163   9.127070E-01   10171   9.999986E-01\r\n           1      1045   4.339818E-12    1090  -6.164450E-20    1135  -4.339818E-12    2030   1.517404E-11    2090  -1.521245E-18\r\n           1      2150  -1.517404E-11    3022   2.698889E-11    3090  -4.721988E-18    3157  -2.698889E-11    4018   3.784563E-11\r\n           1      4090  -9.817484E-18    4162  -3.784562E-11    5015   4.684941E-11    5090  -1.698054E-17    5165  -4.684944E-11\r\n           1      6012   5.347996E-11    6089  -1.440933E-17    6167  -5.347952E-11    7011   5.744605E-11    7090  -2.080171E-17\r\n           1      7168  -5.744604E-11    8010   5.863141E-11    8090  -2.564949E-17    8170  -5.863145E-11    9009   5.703868E-11\r\n           1      9090  -2.620141E-17    9171  -5.703872E-11   10008   5.264769E-11   10016   1.011052E-10   10024   1.412775E-10\r\n           1     10032   1.698588E-10   10040   1.846313E-10   10049   1.844807E-10   10057   1.694488E-10   10065   1.407294E-10\r\n           1     10073   1.006026E-10   10081   5.232283E-11   10089  -1.869533E-17   10098  -5.232279E-11   10106  -1.006050E-10\r\n           1     10114  -1.407272E-10   10122  -1.694480E-10   10130  -1.844805E-10   10139  -1.846311E-10   10147  -1.698580E-10\r\n           1     10155  -1.412753E-10   10163  -1.011074E-10   10171  -5.264890E-11\r\n           2      1045  -1.685255E-14    1090  -4.541819E-14    1135  -1.685255E-14    2030  -4.327031E-14    2090  -1.866212E-13\r\n           2      2150  -4.327034E-14    3022  -5.522191E-14    3090  -4.090228E-13    3157  -5.522194E-14    4018  -6.058587E-14\r\n           2      4090  -6.891121E-13    4162  -6.058592E-14    5015  -6.175904E-14    5090  -9.995676E-13    5165  -6.175923E-14\r\n           2      6012  -6.001800E-14    6089  -1.310207E-12    6167  -6.001680E-14    7011  -5.616319E-14    7090  -1.590531E-12\r\n           2      7168  -5.616324E-14    8010  -5.074604E-14    8090  -1.812265E-12    8170  -5.074609E-14    9009  -4.409921E-14\r\n           2      9090  -1.951365E-12    9171  -4.409906E-14   10008  -3.602394E-14   10016  -1.532714E-13   10024  -3.419096E-13\r\n           2     10032  -5.842330E-13   10040  -8.600245E-13   10049  -1.146899E-12   10057  -1.421796E-12   10065  -1.662506E-12\r\n           2     10073  -1.849012E-12   10081  -1.963932E-12   10089  -1.988587E-12   10098  -1.963931E-12   10106  -1.849004E-12\r\n           2     10114  -1.662520E-12   10122  -1.421806E-12   10130  -1.146902E-12   10139  -8.600208E-13   10147  -5.842234E-13\r\n           2     10155  -3.418963E-13   10163  -1.532796E-13   10171  -3.602600E-14\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.         \r\n DATE:  5/17/95\r\n END TIME: 15:39:57\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03031a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03031A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,3                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                          \r\n                  3              METHOD = 1                                                              \r\n                  4              AXISYMMETRIC = FLUID                                                    \r\n                  5         OUTPUT                                                                       \r\n                  6              HARMONICS = ALL                                                         \r\n                  7              SET 1 = 1 THRU 1000,1090,2090,3090,4090,5090,6089,7090,8090,            \r\n                  8                      9090,10089,11090,12089,13089,14090,15090,16089,17090,           \r\n                  9                      18089,19090,20089                                               \r\n                 10              PRESSURE = 1                                                            \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   552, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIF    100     10.0    1.255014.0      YES                             +AXIF   \r\n                    2-        +AXIF   1                                                                       \r\n                    3-        CFLUID2 1       1135    1090                                                    \r\n                    4-        CFLUID2 5       2150    1135                                                    \r\n                    5-        CFLUID2 11      3157    2150                                                    \r\n                    6-        CFLUID2 19      4162    3157                                                    \r\n                    7-        CFLUID2 29      5165    4162                                                    \r\n                    8-        CFLUID2 41      6167    5165                                                    \r\n                    9-        CFLUID2 55      7168    6167                                                    \r\n                   10-        CFLUID2 71      8170    7168                                                    \r\n                   11-        CFLUID2 89      9171    8170                                                    \r\n                   12-        CFLUID2 109     10171   9171                                                    \r\n                   13-        CFLUID2 131     11172   10171                                                   \r\n                   14-        CFLUID2 155     12173   11172                                                   \r\n                   15-        CFLUID2 181     13173   12173                                                   \r\n                   16-        CFLUID2 209     14174   13173                                                   \r\n                   17-        CFLUID2 239     15174   14174                                                   \r\n                   18-        CFLUID2 271     16174   15174                                                   \r\n                   19-        CFLUID2 305     17175   16174                                                   \r\n                   20-        CFLUID2 341     18175   17175                                                   \r\n                   21-        CFLUID2 379     19175   18175                                                   \r\n                   22-        CFLUID2 419     20175   19175                                                   \r\n                   23-        CFLUID3 2       2120    2090    1090                                            \r\n                   24-        CFLUID3 3       1090    1135    2120                                            \r\n                   25-        CFLUID3 4       2150    2120    1135                                            \r\n                   26-        CFLUID3 6       3112    3090    2090                                            \r\n                   27-        CFLUID3 7       2090    2120    3112                                            \r\n                   28-        CFLUID3 8       3135    3112    2120                                            \r\n                   29-        CFLUID3 9       2120    2150    3135                                            \r\n                   30-        CFLUID3 10      3157    3135    2150                                            \r\n                   31-        CFLUID3 12      4108    4090    3090                                            \r\n                   32-        CFLUID3 13      3090    3112    4108                                            \r\n                   33-        CFLUID3 14      4126    4108    3112                                            \r\n                   34-        CFLUID3 15      3112    3135    4126                                            \r\n                   35-        CFLUID3 16      4144    4126    3135                                            \r\n                   36-        CFLUID3 17      3135    3157    4144                                            \r\n                   37-        CFLUID3 18      4162    4144    3157                                            \r\n                   38-        CFLUID3 20      5105    5090    4090                                            \r\n                   39-        CFLUID3 21      4090    4108    5105                                            \r\n                   40-        CFLUID3 22      5120    5105    4108                                            \r\n                   41-        CFLUID3 23      4108    4126    5120                                            \r\n                   42-        CFLUID3 24      5135    5120    4126                                            \r\n                   43-        CFLUID3 25      4126    4144    5135                                            \r\n                   44-        CFLUID3 26      5150    5135    4144                                            \r\n                   45-        CFLUID3 27      4144    4162    5150                                            \r\n                   46-        CFLUID3 28      5165    5150    4162                                            \r\n                   47-        CFLUID3 30      6102    6089    5090                                            \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CFLUID3 31      5090    5105    6102                                            \r\n                   49-        CFLUID3 32      6115    6102    5105                                            \r\n                   50-        CFLUID3 33      5105    5120    6115                                            \r\n                   51-        CFLUID3 34      6128    6115    5120                                            \r\n                   52-        CFLUID3 35      5120    5135    6128                                            \r\n                   53-        CFLUID3 36      6141    6128    5135                                            \r\n                   54-        CFLUID3 37      5135    5150    6141                                            \r\n                   55-        CFLUID3 38      6154    6141    5150                                            \r\n                   56-        CFLUID3 39      5150    5165    6154                                            \r\n                   57-        CFLUID3 40      6167    6154    5165                                            \r\n                   58-        CFLUID3 42      7101    7090    6089                                            \r\n                   59-        CFLUID3 43      6089    6102    7101                                            \r\n                   60-        CFLUID3 44      7112    7101    6102                                            \r\n                   61-        CFLUID3 45      6102    6115    7112                                            \r\n                   62-        CFLUID3 46      7123    7112    6115                                            \r\n                   63-        CFLUID3 47      6115    6128    7123                                            \r\n                   64-        CFLUID3 48      7135    7123    6128                                            \r\n                   65-        CFLUID3 49      6128    6141    7135                                            \r\n                   66-        CFLUID3 50      7146    7135    6141                                            \r\n                   67-        CFLUID3 51      6141    6154    7146                                            \r\n                   68-        CFLUID3 52      7157    7146    6154                                            \r\n                   69-        CFLUID3 53      6154    6167    7157                                            \r\n                   70-        CFLUID3 54      7168    7157    6167                                            \r\n                   71-        CFLUID3 56      8100    8090    7090                                            \r\n                   72-        CFLUID3 57      7090    7101    8100                                            \r\n                   73-        CFLUID3 58      8110    8100    7101                                            \r\n                   74-        CFLUID3 59      7101    7112    8110                                            \r\n                   75-        CFLUID3 60      8120    8110    7112                                            \r\n                   76-        CFLUID3 61      7112    7123    8120                                            \r\n                   77-        CFLUID3 62      8130    8120    7123                                            \r\n                   78-        CFLUID3 63      7123    7135    8130                                            \r\n                   79-        CFLUID3 64      8140    8130    7135                                            \r\n                   80-        CFLUID3 65      7135    7146    8140                                            \r\n                   81-        CFLUID3 66      8150    8140    7146                                            \r\n                   82-        CFLUID3 67      7146    7157    8150                                            \r\n                   83-        CFLUID3 68      8160    8150    7157                                            \r\n                   84-        CFLUID3 69      7157    7168    8160                                            \r\n                   85-        CFLUID3 70      8170    8160    7168                                            \r\n                   86-        CFLUID3 72      9099    9090    8090                                            \r\n                   87-        CFLUID3 73      8090    8100    9099                                            \r\n                   88-        CFLUID3 74      9108    9099    8100                                            \r\n                   89-        CFLUID3 75      8100    8110    9108                                            \r\n                   90-        CFLUID3 76      9117    9108    8110                                            \r\n                   91-        CFLUID3 77      8110    8120    9117                                            \r\n                   92-        CFLUID3 78      9126    9117    8120                                            \r\n                   93-        CFLUID3 79      8120    8130    9126                                            \r\n                   94-        CFLUID3 80      9135    9126    8130                                            \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CFLUID3 81      8130    8140    9135                                            \r\n                   96-        CFLUID3 82      9144    9135    8140                                            \r\n                   97-        CFLUID3 83      8140    8150    9144                                            \r\n                   98-        CFLUID3 84      9153    9144    8150                                            \r\n                   99-        CFLUID3 85      8150    8160    9153                                            \r\n                  100-        CFLUID3 86      9162    9153    8160                                            \r\n                  101-        CFLUID3 87      8160    8170    9162                                            \r\n                  102-        CFLUID3 88      9171    9162    8170                                            \r\n                  103-        CFLUID3 90      10098   10089   9090                                            \r\n                  104-        CFLUID3 91      9090    9099    10098                                           \r\n                  105-        CFLUID3 92      10106   10098   9099                                            \r\n                  106-        CFLUID3 93      9099    9108    10106                                           \r\n                  107-        CFLUID3 94      10114   10106   9108                                            \r\n                  108-        CFLUID3 95      9108    9117    10114                                           \r\n                  109-        CFLUID3 96      10122   10114   9117                                            \r\n                  110-        CFLUID3 97      9117    9126    10122                                           \r\n                  111-        CFLUID3 98      10130   10122   9126                                            \r\n                  112-        CFLUID3 99      9126    9135    10130                                           \r\n                  113-        CFLUID3 100     10139   10130   9135                                            \r\n                  114-        CFLUID3 101     9135    9144    10139                                           \r\n                  115-        CFLUID3 102     10147   10139   9144                                            \r\n                  116-        CFLUID3 103     9144    9153    10147                                           \r\n                  117-        CFLUID3 104     10155   10147   9153                                            \r\n                  118-        CFLUID3 105     9153    9162    10155                                           \r\n                  119-        CFLUID3 106     10163   10155   9162                                            \r\n                  120-        CFLUID3 107     9162    9171    10163                                           \r\n                  121-        CFLUID3 108     10171   10163   9171                                            \r\n                  122-        CFLUID3 110     11097   11090   10089                                           \r\n                  123-        CFLUID3 111     10089   10098   11097                                           \r\n                  124-        CFLUID3 112     11105   11097   10098                                           \r\n                  125-        CFLUID3 113     10098   10106   11105                                           \r\n                  126-        CFLUID3 114     11112   11105   10106                                           \r\n                  127-        CFLUID3 115     10106   10114   11112                                           \r\n                  128-        CFLUID3 116     11120   11112   10114                                           \r\n                  129-        CFLUID3 117     10114   10122   11120                                           \r\n                  130-        CFLUID3 118     11127   11120   10122                                           \r\n                  131-        CFLUID3 119     10122   10130   11127                                           \r\n                  132-        CFLUID3 120     11135   11127   10130                                           \r\n                  133-        CFLUID3 121     10130   10139   11135                                           \r\n                  134-        CFLUID3 122     11142   11135   10139                                           \r\n                  135-        CFLUID3 123     10139   10147   11142                                           \r\n                  136-        CFLUID3 124     11150   11142   10147                                           \r\n                  137-        CFLUID3 125     10147   10155   11150                                           \r\n                  138-        CFLUID3 126     11157   11150   10155                                           \r\n                  139-        CFLUID3 127     10155   10163   11157                                           \r\n                  140-        CFLUID3 128     11165   11157   10163                                           \r\n                  141-        CFLUID3 129     10163   10171   11165                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CFLUID3 130     11172   11165   10171                                           \r\n                  143-        CFLUID3 132     12096   12089   11090                                           \r\n                  144-        CFLUID3 133     11090   11097   12096                                           \r\n                  145-        CFLUID3 134     12103   12096   11097                                           \r\n                  146-        CFLUID3 135     11097   11105   12103                                           \r\n                  147-        CFLUID3 136     12110   12103   11105                                           \r\n                  148-        CFLUID3 137     11105   11112   12110                                           \r\n                  149-        CFLUID3 138     12117   12110   11112                                           \r\n                  150-        CFLUID3 139     11112   11120   12117                                           \r\n                  151-        CFLUID3 140     12124   12117   11120                                           \r\n                  152-        CFLUID3 141     11120   11127   12124                                           \r\n                  153-        CFLUID3 142     12131   12124   11127                                           \r\n                  154-        CFLUID3 143     11127   11135   12131                                           \r\n                  155-        CFLUID3 144     12138   12131   11135                                           \r\n                  156-        CFLUID3 145     11135   11142   12138                                           \r\n                  157-        CFLUID3 146     12145   12138   11142                                           \r\n                  158-        CFLUID3 147     11142   11150   12145                                           \r\n                  159-        CFLUID3 148     12152   12145   11150                                           \r\n                  160-        CFLUID3 149     11150   11157   12152                                           \r\n                  161-        CFLUID3 150     12159   12152   11157                                           \r\n                  162-        CFLUID3 151     11157   11165   12159                                           \r\n                  163-        CFLUID3 152     12166   12159   11165                                           \r\n                  164-        CFLUID3 153     11165   11172   12166                                           \r\n                  165-        CFLUID3 154     12173   12166   11172                                           \r\n                  166-        CFLUID3 156     13096   13089   12089                                           \r\n                  167-        CFLUID3 157     12089   12096   13096                                           \r\n                  168-        CFLUID3 158     13102   13096   12096                                           \r\n                  169-        CFLUID3 159     12096   12103   13102                                           \r\n                  170-        CFLUID3 160     13109   13102   12103                                           \r\n                  171-        CFLUID3 161     12103   12110   13109                                           \r\n                  172-        CFLUID3 162     13115   13109   12110                                           \r\n                  173-        CFLUID3 163     12110   12117   13115                                           \r\n                  174-        CFLUID3 164     13122   13115   12117                                           \r\n                  175-        CFLUID3 165     12117   12124   13122                                           \r\n                  176-        CFLUID3 166     13128   13122   12124                                           \r\n                  177-        CFLUID3 167     12124   12131   13128                                           \r\n                  178-        CFLUID3 168     13134   13128   12131                                           \r\n                  179-        CFLUID3 169     12131   12138   13134                                           \r\n                  180-        CFLUID3 170     13141   13134   12138                                           \r\n                  181-        CFLUID3 171     12138   12145   13141                                           \r\n                  182-        CFLUID3 172     13147   13141   12145                                           \r\n                  183-        CFLUID3 173     12145   12152   13147                                           \r\n                  184-        CFLUID3 174     13154   13147   12152                                           \r\n                  185-        CFLUID3 175     12152   12159   13154                                           \r\n                  186-        CFLUID3 176     13160   13154   12159                                           \r\n                  187-        CFLUID3 177     12159   12166   13160                                           \r\n                  188-        CFLUID3 178     13167   13160   12166                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CFLUID3 179     12166   12173   13167                                           \r\n                  190-        CFLUID3 180     13173   13167   12173                                           \r\n                  191-        CFLUID3 182     14096   14090   13089                                           \r\n                  192-        CFLUID3 183     13089   13096   14096                                           \r\n                  193-        CFLUID3 184     14102   14096   13096                                           \r\n                  194-        CFLUID3 185     13096   13102   14102                                           \r\n                  195-        CFLUID3 186     14108   14102   13102                                           \r\n                  196-        CFLUID3 187     13102   13109   14108                                           \r\n                  197-        CFLUID3 188     14114   14108   13109                                           \r\n                  198-        CFLUID3 189     13109   13115   14114                                           \r\n                  199-        CFLUID3 190     14120   14114   13115                                           \r\n                  200-        CFLUID3 191     13115   13122   14120                                           \r\n                  201-        CFLUID3 192     14126   14120   13122                                           \r\n                  202-        CFLUID3 193     13122   13128   14126                                           \r\n                  203-        CFLUID3 194     14132   14126   13128                                           \r\n                  204-        CFLUID3 195     13128   13134   14132                                           \r\n                  205-        CFLUID3 196     14138   14132   13134                                           \r\n                  206-        CFLUID3 197     13134   13141   14138                                           \r\n                  207-        CFLUID3 198     14144   14138   13141                                           \r\n                  208-        CFLUID3 199     13141   13147   14144                                           \r\n                  209-        CFLUID3 200     14150   14144   13147                                           \r\n                  210-        CFLUID3 201     13147   13154   14150                                           \r\n                  211-        CFLUID3 202     14156   14150   13154                                           \r\n                  212-        CFLUID3 203     13154   13160   14156                                           \r\n                  213-        CFLUID3 204     14162   14156   13160                                           \r\n                  214-        CFLUID3 205     13160   13167   14162                                           \r\n                  215-        CFLUID3 206     14168   14162   13167                                           \r\n                  216-        CFLUID3 207     13167   13173   14168                                           \r\n                  217-        CFLUID3 208     14174   14168   13173                                           \r\n                  218-        CFLUID3 210     15095   15090   14090                                           \r\n                  219-        CFLUID3 211     14090   14096   15095                                           \r\n                  220-        CFLUID3 212     15101   15095   14096                                           \r\n                  221-        CFLUID3 213     14096   14102   15101                                           \r\n                  222-        CFLUID3 214     15106   15101   14102                                           \r\n                  223-        CFLUID3 215     14102   14108   15106                                           \r\n                  224-        CFLUID3 216     15112   15106   14108                                           \r\n                  225-        CFLUID3 217     14108   14114   15112                                           \r\n                  226-        CFLUID3 218     15118   15112   14114                                           \r\n                  227-        CFLUID3 219     14114   14120   15118                                           \r\n                  228-        CFLUID3 220     15123   15118   14120                                           \r\n                  229-        CFLUID3 221     14120   14126   15123                                           \r\n                  230-        CFLUID3 222     15129   15123   14126                                           \r\n                  231-        CFLUID3 223     14126   14132   15129                                           \r\n                  232-        CFLUID3 224     15135   15129   14132                                           \r\n                  233-        CFLUID3 225     14132   14138   15135                                           \r\n                  234-        CFLUID3 226     15140   15135   14138                                           \r\n                  235-        CFLUID3 227     14138   14144   15140                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CFLUID3 228     15146   15140   14144                                           \r\n                  237-        CFLUID3 229     14144   14150   15146                                           \r\n                  238-        CFLUID3 230     15151   15146   14150                                           \r\n                  239-        CFLUID3 231     14150   14156   15151                                           \r\n                  240-        CFLUID3 232     15157   15151   14156                                           \r\n                  241-        CFLUID3 233     14156   14162   15157                                           \r\n                  242-        CFLUID3 234     15163   15157   14162                                           \r\n                  243-        CFLUID3 235     14162   14168   15163                                           \r\n                  244-        CFLUID3 236     15168   15163   14168                                           \r\n                  245-        CFLUID3 237     14168   14174   15168                                           \r\n                  246-        CFLUID3 238     15174   15168   14174                                           \r\n                  247-        CFLUID3 240     16095   16089   15090                                           \r\n                  248-        CFLUID3 241     15090   15095   16095                                           \r\n                  249-        CFLUID3 242     16100   16095   15095                                           \r\n                  250-        CFLUID3 243     15095   15101   16100                                           \r\n                  251-        CFLUID3 244     16105   16100   15101                                           \r\n                  252-        CFLUID3 245     15101   15106   16105                                           \r\n                  253-        CFLUID3 246     16111   16105   15106                                           \r\n                  254-        CFLUID3 247     15106   15112   16111                                           \r\n                  255-        CFLUID3 248     16116   16111   15112                                           \r\n                  256-        CFLUID3 249     15112   15118   16116                                           \r\n                  257-        CFLUID3 250     16121   16116   15118                                           \r\n                  258-        CFLUID3 251     15118   15123   16121                                           \r\n                  259-        CFLUID3 252     16127   16121   15123                                           \r\n                  260-        CFLUID3 253     15123   15129   16127                                           \r\n                  261-        CFLUID3 254     16132   16127   15129                                           \r\n                  262-        CFLUID3 255     15129   15135   16132                                           \r\n                  263-        CFLUID3 256     16137   16132   15135                                           \r\n                  264-        CFLUID3 257     15135   15140   16137                                           \r\n                  265-        CFLUID3 258     16142   16137   15140                                           \r\n                  266-        CFLUID3 259     15140   15146   16142                                           \r\n                  267-        CFLUID3 260     16148   16142   15146                                           \r\n                  268-        CFLUID3 261     15146   15151   16148                                           \r\n                  269-        CFLUID3 262     16153   16148   15151                                           \r\n                  270-        CFLUID3 263     15151   15157   16153                                           \r\n                  271-        CFLUID3 264     16158   16153   15157                                           \r\n                  272-        CFLUID3 265     15157   15163   16158                                           \r\n                  273-        CFLUID3 266     16164   16158   15163                                           \r\n                  274-        CFLUID3 267     15163   15168   16164                                           \r\n                  275-        CFLUID3 268     16169   16164   15168                                           \r\n                  276-        CFLUID3 269     15168   15174   16169                                           \r\n                  277-        CFLUID3 270     16174   16169   15174                                           \r\n                  278-        CFLUID3 272     17095   17090   16089                                           \r\n                  279-        CFLUID3 273     16089   16095   17095                                           \r\n                  280-        CFLUID3 274     17100   17095   16095                                           \r\n                  281-        CFLUID3 275     16095   16100   17100                                           \r\n                  282-        CFLUID3 276     17105   17100   16100                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CFLUID3 277     16100   16105   17105                                           \r\n                  284-        CFLUID3 278     17110   17105   16105                                           \r\n                  285-        CFLUID3 279     16105   16111   17110                                           \r\n                  286-        CFLUID3 280     17115   17110   16111                                           \r\n                  287-        CFLUID3 281     16111   16116   17115                                           \r\n                  288-        CFLUID3 282     17120   17115   16116                                           \r\n                  289-        CFLUID3 283     16116   16121   17120                                           \r\n                  290-        CFLUID3 284     17125   17120   16121                                           \r\n                  291-        CFLUID3 285     16121   16127   17125                                           \r\n                  292-        CFLUID3 286     17130   17125   16127                                           \r\n                  293-        CFLUID3 287     16127   16132   17130                                           \r\n                  294-        CFLUID3 288     17135   17130   16132                                           \r\n                  295-        CFLUID3 289     16132   16137   17135                                           \r\n                  296-        CFLUID3 290     17140   17135   16137                                           \r\n                  297-        CFLUID3 291     16137   16142   17140                                           \r\n                  298-        CFLUID3 292     17145   17140   16142                                           \r\n                  299-        CFLUID3 293     16142   16148   17145                                           \r\n                  300-        CFLUID3 294     17150   17145   16148                                           \r\n                  301-        CFLUID3 295     16148   16153   17150                                           \r\n                  302-        CFLUID3 296     17155   17150   16153                                           \r\n                  303-        CFLUID3 297     16153   16158   17155                                           \r\n                  304-        CFLUID3 298     17160   17155   16158                                           \r\n                  305-        CFLUID3 299     16158   16164   17160                                           \r\n                  306-        CFLUID3 300     17165   17160   16164                                           \r\n                  307-        CFLUID3 301     16164   16169   17165                                           \r\n                  308-        CFLUID3 302     17170   17165   16169                                           \r\n                  309-        CFLUID3 303     16169   16174   17170                                           \r\n                  310-        CFLUID3 304     17175   17170   16174                                           \r\n                  311-        CFLUID3 306     18094   18089   17090                                           \r\n                  312-        CFLUID3 307     17090   17095   18094                                           \r\n                  313-        CFLUID3 308     18099   18094   17095                                           \r\n                  314-        CFLUID3 309     17095   17100   18099                                           \r\n                  315-        CFLUID3 310     18104   18099   17100                                           \r\n                  316-        CFLUID3 311     17100   17105   18104                                           \r\n                  317-        CFLUID3 312     18108   18104   17105                                           \r\n                  318-        CFLUID3 313     17105   17110   18108                                           \r\n                  319-        CFLUID3 314     18113   18108   17110                                           \r\n                  320-        CFLUID3 315     17110   17115   18113                                           \r\n                  321-        CFLUID3 316     18118   18113   17115                                           \r\n                  322-        CFLUID3 317     17115   17120   18118                                           \r\n                  323-        CFLUID3 318     18123   18118   17120                                           \r\n                  324-        CFLUID3 319     17120   17125   18123                                           \r\n                  325-        CFLUID3 320     18127   18123   17125                                           \r\n                  326-        CFLUID3 321     17125   17130   18127                                           \r\n                  327-        CFLUID3 322     18132   18127   17130                                           \r\n                  328-        CFLUID3 323     17130   17135   18132                                           \r\n                  329-        CFLUID3 324     18137   18132   17135                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CFLUID3 325     17135   17140   18137                                           \r\n                  331-        CFLUID3 326     18142   18137   17140                                           \r\n                  332-        CFLUID3 327     17140   17145   18142                                           \r\n                  333-        CFLUID3 328     18146   18142   17145                                           \r\n                  334-        CFLUID3 329     17145   17150   18146                                           \r\n                  335-        CFLUID3 330     18151   18146   17150                                           \r\n                  336-        CFLUID3 331     17150   17155   18151                                           \r\n                  337-        CFLUID3 332     18156   18151   17155                                           \r\n                  338-        CFLUID3 333     17155   17160   18156                                           \r\n                  339-        CFLUID3 334     18161   18156   17160                                           \r\n                  340-        CFLUID3 335     17160   17165   18161                                           \r\n                  341-        CFLUID3 336     18165   18161   17165                                           \r\n                  342-        CFLUID3 337     17165   17170   18165                                           \r\n                  343-        CFLUID3 338     18170   18165   17170                                           \r\n                  344-        CFLUID3 339     17170   17175   18170                                           \r\n                  345-        CFLUID3 340     18175   18170   17175                                           \r\n                  346-        CFLUID3 342     19094   19090   18089                                           \r\n                  347-        CFLUID3 343     18089   18094   19094                                           \r\n                  348-        CFLUID3 344     19099   19094   18094                                           \r\n                  349-        CFLUID3 345     18094   18099   19099                                           \r\n                  350-        CFLUID3 346     19103   19099   18099                                           \r\n                  351-        CFLUID3 347     18099   18104   19103                                           \r\n                  352-        CFLUID3 348     19108   19103   18104                                           \r\n                  353-        CFLUID3 349     18104   18108   19108                                           \r\n                  354-        CFLUID3 350     19112   19108   18108                                           \r\n                  355-        CFLUID3 351     18108   18113   19112                                           \r\n                  356-        CFLUID3 352     19117   19112   18113                                           \r\n                  357-        CFLUID3 353     18113   18118   19117                                           \r\n                  358-        CFLUID3 354     19121   19117   18118                                           \r\n                  359-        CFLUID3 355     18118   18123   19121                                           \r\n                  360-        CFLUID3 356     19126   19121   18123                                           \r\n                  361-        CFLUID3 357     18123   18127   19126                                           \r\n                  362-        CFLUID3 358     19130   19126   18127                                           \r\n                  363-        CFLUID3 359     18127   18132   19130                                           \r\n                  364-        CFLUID3 360     19135   19130   18132                                           \r\n                  365-        CFLUID3 361     18132   18137   19135                                           \r\n                  366-        CFLUID3 362     19139   19135   18137                                           \r\n                  367-        CFLUID3 363     18137   18142   19139                                           \r\n                  368-        CFLUID3 364     19144   19139   18142                                           \r\n                  369-        CFLUID3 365     18142   18146   19144                                           \r\n                  370-        CFLUID3 366     19148   19144   18146                                           \r\n                  371-        CFLUID3 367     18146   18151   19148                                           \r\n                  372-        CFLUID3 368     19153   19148   18151                                           \r\n                  373-        CFLUID3 369     18151   18156   19153                                           \r\n                  374-        CFLUID3 370     19157   19153   18156                                           \r\n                  375-        CFLUID3 371     18156   18161   19157                                           \r\n                  376-        CFLUID3 372     19162   19157   18161                                           \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CFLUID3 373     18161   18165   19162                                           \r\n                  378-        CFLUID3 374     19166   19162   18165                                           \r\n                  379-        CFLUID3 375     18165   18170   19166                                           \r\n                  380-        CFLUID3 376     19171   19166   18170                                           \r\n                  381-        CFLUID3 377     18170   18175   19171                                           \r\n                  382-        CFLUID3 378     19175   19171   18175                                           \r\n                  383-        CFLUID3 380     20094   20089   19090                                           \r\n                  384-        CFLUID3 381     19090   19094   20094                                           \r\n                  385-        CFLUID3 382     20098   20094   19094                                           \r\n                  386-        CFLUID3 383     19094   19099   20098                                           \r\n                  387-        CFLUID3 384     20102   20098   19099                                           \r\n                  388-        CFLUID3 385     19099   19103   20102                                           \r\n                  389-        CFLUID3 386     20107   20102   19103                                           \r\n                  390-        CFLUID3 387     19103   19108   20107                                           \r\n                  391-        CFLUID3 388     20111   20107   19108                                           \r\n                  392-        CFLUID3 389     19108   19112   20111                                           \r\n                  393-        CFLUID3 390     20115   20111   19112                                           \r\n                  394-        CFLUID3 391     19112   19117   20115                                           \r\n                  395-        CFLUID3 392     20119   20115   19117                                           \r\n                  396-        CFLUID3 393     19117   19121   20119                                           \r\n                  397-        CFLUID3 394     20124   20119   19121                                           \r\n                  398-        CFLUID3 395     19121   19126   20124                                           \r\n                  399-        CFLUID3 396     20128   20124   19126                                           \r\n                  400-        CFLUID3 397     19126   19130   20128                                           \r\n                  401-        CFLUID3 398     20132   20128   19130                                           \r\n                  402-        CFLUID3 399     19130   19135   20132                                           \r\n                  403-        CFLUID3 400     20137   20132   19135                                           \r\n                  404-        CFLUID3 401     19135   19139   20137                                           \r\n                  405-        CFLUID3 402     20141   20137   19139                                           \r\n                  406-        CFLUID3 403     19139   19144   20141                                           \r\n                  407-        CFLUID3 404     20145   20141   19144                                           \r\n                  408-        CFLUID3 405     19144   19148   20145                                           \r\n                  409-        CFLUID3 406     20149   20145   19148                                           \r\n                  410-        CFLUID3 407     19148   19153   20149                                           \r\n                  411-        CFLUID3 408     20154   20149   19153                                           \r\n                  412-        CFLUID3 409     19153   19157   20154                                           \r\n                  413-        CFLUID3 410     20158   20154   19157                                           \r\n                  414-        CFLUID3 411     19157   19162   20158                                           \r\n                  415-        CFLUID3 412     20162   20158   19162                                           \r\n                  416-        CFLUID3 413     19162   19166   20162                                           \r\n                  417-        CFLUID3 414     20167   20162   19166                                           \r\n                  418-        CFLUID3 415     19166   19171   20167                                           \r\n                  419-        CFLUID3 416     20171   20167   19171                                           \r\n                  420-        CFLUID3 417     19171   19175   20171                                           \r\n                  421-        CFLUID3 418     20175   20171   19175                                           \r\n                  422-        CORD2S  100     0       .0      .0      10.0    .0      .0      20.0    +CORD2S \r\n                  423-        +CORD2S .0      1.0     .0                                                      \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        EIGR    1       INV     .1      .5      6       7               1.0-5   +EIGR-1 \r\n                  425-        +EIGR-1 MAX                                                                     \r\n                  426-        FREEPT  4090            109     90.0    118     180.0   127     270.0           \r\n                  427-        FREEPT  8090            209     90.0    218     180.0   227     270.0           \r\n                  428-        FREEPT  12089           309     90.0    318     180.0   327     270.0           \r\n                  429-        FREEPT  16089           409     90.0    418     180.0   427     270.0           \r\n                  430-        FSLIST          AXIS    1090    2090    3090    4090    5090    6089    +1-FSL  \r\n                  431-        +1-FSL  7090    8090    9090    10089   11090   12089   13089   14090   +2-FSL  \r\n                  432-        +2-FSL  15090   16089   17090   18089   19090   20089                           \r\n                  433-        RINGFL  1090    .50000  90.0000         1135    .50000  135.000                 \r\n                  434-        RINGFL  2090    1.00000 90.0000         2120    1.00000 120.000                 \r\n                  435-        RINGFL  2150    1.00000 150.000                                                 \r\n                  436-        RINGFL  3090    1.50000 90.0000         3112    1.50000 112.500                 \r\n                  437-        RINGFL  3135    1.50000 135.000         3157    1.50000 157.500                 \r\n                  438-        RINGFL  4090    2.00000 90.0000         4108    2.00000 108.000                 \r\n                  439-        RINGFL  4126    2.00000 126.000         4144    2.00000 144.000                 \r\n                  440-        RINGFL  4162    2.00000 162.000                                                 \r\n                  441-        RINGFL  5090    2.50000 90.0000         5105    2.50000 105.000                 \r\n                  442-        RINGFL  5120    2.50000 120.000         5135    2.50000 135.000                 \r\n                  443-        RINGFL  5150    2.50000 150.000         5165    2.50000 165.000                 \r\n                  444-        RINGFL  6089    3.00000 90.0000         6102    3.00000 102.857                 \r\n                  445-        RINGFL  6115    3.00000 115.714         6128    3.00000 128.571                 \r\n                  446-        RINGFL  6141    3.00000 141.429         6154    3.00000 154.286                 \r\n                  447-        RINGFL  6167    3.00000 167.143                                                 \r\n                  448-        RINGFL  7090    3.50000 90.0000         7101    3.50000 101.250                 \r\n                  449-        RINGFL  7112    3.50000 112.500         7123    3.50000 123.750                 \r\n                  450-        RINGFL  7135    3.50000 135.000         7146    3.50000 146.250                 \r\n                  451-        RINGFL  7157    3.50000 157.500         7168    3.50000 168.750                 \r\n                  452-        RINGFL  8090    4.00000 90.0000         8100    4.00000 100.000                 \r\n                  453-        RINGFL  8110    4.00000 110.000         8120    4.00000 120.000                 \r\n                  454-        RINGFL  8130    4.00000 130.000         8140    4.00000 140.000                 \r\n                  455-        RINGFL  8150    4.00000 150.000         8160    4.00000 160.000                 \r\n                  456-        RINGFL  8170    4.00000 170.000                                                 \r\n                  457-        RINGFL  9090    4.50000 90.0000         9099    4.50000 99.0000                 \r\n                  458-        RINGFL  9108    4.50000 108.000         9117    4.50000 117.000                 \r\n                  459-        RINGFL  9126    4.50000 126.000         9135    4.50000 135.000                 \r\n                  460-        RINGFL  9144    4.50000 144.000         9153    4.50000 153.000                 \r\n                  461-        RINGFL  9162    4.50000 162.000         9171    4.50000 171.000                 \r\n                  462-        RINGFL  10089   5.00000 90.0000         10098   5.00000 98.1818                 \r\n                  463-        RINGFL  10106   5.00000 106.364         10114   5.00000 114.545                 \r\n                  464-        RINGFL  10122   5.00000 122.727         10130   5.00000 130.909                 \r\n                  465-        RINGFL  10139   5.00000 139.091         10147   5.00000 147.273                 \r\n                  466-        RINGFL  10155   5.00000 155.455         10163   5.00000 163.636                 \r\n                  467-        RINGFL  10171   5.00000 171.818                                                 \r\n                  468-        RINGFL  11090   5.50000 90.0000         11097   5.50000 97.5000                 \r\n                  469-        RINGFL  11105   5.50000 105.000         11112   5.50000 112.500                 \r\n                  470-        RINGFL  11120   5.50000 120.000         11127   5.50000 127.500                 \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        RINGFL  11135   5.50000 135.000         11142   5.50000 142.500                 \r\n                  472-        RINGFL  11150   5.50000 150.000         11157   5.50000 157.500                 \r\n                  473-        RINGFL  11165   5.50000 165.000         11172   5.50000 172.500                 \r\n                  474-        RINGFL  12089   6.00000 90.0000         12096   6.00000 96.9231                 \r\n                  475-        RINGFL  12103   6.00000 103.846         12110   6.00000 110.769                 \r\n                  476-        RINGFL  12117   6.00000 117.692         12124   6.00000 124.615                 \r\n                  477-        RINGFL  12131   6.00000 131.538         12138   6.00000 138.462                 \r\n                  478-        RINGFL  12145   6.00000 145.385         12152   6.00000 152.308                 \r\n                  479-        RINGFL  12159   6.00000 159.231         12166   6.00000 166.154                 \r\n                  480-        RINGFL  12173   6.00000 173.077                                                 \r\n                  481-        RINGFL  13089   6.50000 90.0000         13096   6.50000 96.4286                 \r\n                  482-        RINGFL  13102   6.50000 102.857         13109   6.50000 109.286                 \r\n                  483-        RINGFL  13115   6.50000 115.714         13122   6.50000 122.143                 \r\n                  484-        RINGFL  13128   6.50000 128.571         13134   6.50000 135.000                 \r\n                  485-        RINGFL  13141   6.50000 141.429         13147   6.50000 147.857                 \r\n                  486-        RINGFL  13154   6.50000 154.286         13160   6.50000 160.714                 \r\n                  487-        RINGFL  13167   6.50000 167.143         13173   6.50000 173.571                 \r\n                  488-        RINGFL  14090   7.00000 90.0000         14096   7.00000 96.0000                 \r\n                  489-        RINGFL  14102   7.00000 102.000         14108   7.00000 108.000                 \r\n                  490-        RINGFL  14114   7.00000 114.000         14120   7.00000 120.000                 \r\n                  491-        RINGFL  14126   7.00000 126.000         14132   7.00000 132.000                 \r\n                  492-        RINGFL  14138   7.00000 138.000         14144   7.00000 144.000                 \r\n                  493-        RINGFL  14150   7.00000 150.000         14156   7.00000 156.000                 \r\n                  494-        RINGFL  14162   7.00000 162.000         14168   7.00000 168.000                 \r\n                  495-        RINGFL  14174   7.00000 174.000                                                 \r\n                  496-        RINGFL  15090   7.50000 90.0000         15095   7.50000 95.6250                 \r\n                  497-        RINGFL  15101   7.50000 101.250         15106   7.50000 106.875                 \r\n                  498-        RINGFL  15112   7.50000 112.500         15118   7.50000 118.125                 \r\n                  499-        RINGFL  15123   7.50000 123.750         15129   7.50000 129.375                 \r\n                  500-        RINGFL  15135   7.50000 135.000         15140   7.50000 140.625                 \r\n                  501-        RINGFL  15146   7.50000 146.250         15151   7.50000 151.875                 \r\n                  502-        RINGFL  15157   7.50000 157.500         15163   7.50000 163.125                 \r\n                  503-        RINGFL  15168   7.50000 168.750         15174   7.50000 174.375                 \r\n                  504-        RINGFL  16089   8.00000 90.0000         16095   8.00000 95.2941                 \r\n                  505-        RINGFL  16100   8.00000 100.588         16105   8.00000 105.882                 \r\n                  506-        RINGFL  16111   8.00000 111.176         16116   8.00000 116.471                 \r\n                  507-        RINGFL  16121   8.00000 121.765         16127   8.00000 127.059                 \r\n                  508-        RINGFL  16132   8.00000 132.353         16137   8.00000 137.647                 \r\n                  509-        RINGFL  16142   8.00000 142.941         16148   8.00000 148.235                 \r\n                  510-        RINGFL  16153   8.00000 153.529         16158   8.00000 158.824                 \r\n                  511-        RINGFL  16164   8.00000 164.118         16169   8.00000 169.412                 \r\n                  512-        RINGFL  16174   8.00000 174.706                                                 \r\n                  513-        RINGFL  17090   8.50000 90.0000         17095   8.50000 95.0000                 \r\n                  514-        RINGFL  17100   8.50000 100.000         17105   8.50000 105.000                 \r\n                  515-        RINGFL  17110   8.50000 110.000         17115   8.50000 115.000                 \r\n                  516-        RINGFL  17120   8.50000 120.000         17125   8.50000 125.000                 \r\n                  517-        RINGFL  17130   8.50000 130.000         17135   8.50000 135.000                 \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        RINGFL  17140   8.50000 140.000         17145   8.50000 145.000                 \r\n                  519-        RINGFL  17150   8.50000 150.000         17155   8.50000 155.000                 \r\n                  520-        RINGFL  17160   8.50000 160.000         17165   8.50000 165.000                 \r\n                  521-        RINGFL  17170   8.50000 170.000         17175   8.50000 175.000                 \r\n                  522-        RINGFL  18089   9.00000 90.0000         18094   9.00000 94.7368                 \r\n                  523-        RINGFL  18099   9.00000 99.4737         18104   9.00000 104.211                 \r\n                  524-        RINGFL  18108   9.00000 108.947         18113   9.00000 113.684                 \r\n                  525-        RINGFL  18118   9.00000 118.421         18123   9.00000 123.158                 \r\n                  526-        RINGFL  18127   9.00000 127.895         18132   9.00000 132.632                 \r\n                  527-        RINGFL  18137   9.00000 137.368         18142   9.00000 142.105                 \r\n                  528-        RINGFL  18146   9.00000 146.842         18151   9.00000 151.579                 \r\n                  529-        RINGFL  18156   9.00000 156.316         18161   9.00000 161.053                 \r\n                  530-        RINGFL  18165   9.00000 165.789         18170   9.00000 170.526                 \r\n                  531-        RINGFL  18175   9.00000 175.263                                                 \r\n                  532-        RINGFL  19090   9.50000 90.0000         19094   9.50000 94.5000                 \r\n                  533-        RINGFL  19099   9.50000 99.0000         19103   9.50000 103.500                 \r\n                  534-        RINGFL  19108   9.50000 108.000         19112   9.50000 112.500                 \r\n                  535-        RINGFL  19117   9.50000 117.000         19121   9.50000 121.500                 \r\n                  536-        RINGFL  19126   9.50000 126.000         19130   9.50000 130.500                 \r\n                  537-        RINGFL  19135   9.50000 135.000         19139   9.50000 139.500                 \r\n                  538-        RINGFL  19144   9.50000 144.000         19148   9.50000 148.500                 \r\n                  539-        RINGFL  19153   9.50000 153.000         19157   9.50000 157.500                 \r\n                  540-        RINGFL  19162   9.50000 162.000         19166   9.50000 166.500                 \r\n                  541-        RINGFL  19171   9.50000 171.000         19175   9.50000 175.500                 \r\n                  542-        RINGFL  20089   10.0000 90.0000         20094   10.0000 94.2857                 \r\n                  543-        RINGFL  20098   10.0000 98.5714         20102   10.0000 102.857                 \r\n                  544-        RINGFL  20107   10.0000 107.143         20111   10.0000 111.429                 \r\n                  545-        RINGFL  20115   10.0000 115.714         20119   10.0000 120.000                 \r\n                  546-        RINGFL  20124   10.0000 124.286         20128   10.0000 128.571                 \r\n                  547-        RINGFL  20132   10.0000 132.857         20137   10.0000 137.143                 \r\n                  548-        RINGFL  20141   10.0000 141.429         20145   10.0000 145.714                 \r\n                  549-        RINGFL  20149   10.0000 150.000         20154   10.0000 154.286                 \r\n                  550-        RINGFL  20158   10.0000 158.571         20162   10.0000 162.857                 \r\n                  551-        RINGFL  20167   10.0000 167.143         20171   10.0000 171.429                 \r\n                  552-        RINGFL  20175   10.0000 175.714                                                 \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC FLUID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      109\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      118\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      127\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      209 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      218 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      227 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      309 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      318 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      327 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      409 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      418 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.      427 NOT CONNECTED\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID2   ELEMENTS (ELEMENT TYPE  43) STARTING WITH ID     1003\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID3   ELEMENTS (ELEMENT TYPE  44) STARTING WITH ID     2003\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLMASS   ELEMENTS (ELEMENT TYPE  46) STARTING WITH ID  1000003\r\n                        2 ROOTS BELOW   5.132194E+00\r\n                        4 ROOTS BELOW   5.377697E+00\r\n                        4 ROOTS BELOW   5.377697E+00\r\n                        0 ROOTS BELOW   1.555683E+00\r\n                        6 ROOTS BELOW   8.973466E+00\r\n                        0 ROOTS BELOW   1.557665E+00\r\n                        6 ROOTS BELOW   8.976109E+00\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         7\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         7\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        54\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.16E-07\r\n0                                                                              . . .         7\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         2\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         2 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         3        1.560435E+00        1.249174E+00        1.988121E-01        1.233787E+01        1.925244E+01             \r\n        2         5        1.560435E+00        1.249174E+00        1.988121E-01        1.233787E+01        1.925244E+01             \r\n        3         1        5.377697E+00        2.318986E+00        3.690781E-01        6.774343E+00        3.643036E+01             \r\n        4         2        5.377697E+00        2.318986E+00        3.690781E-01        6.774343E+00        3.643036E+01             \r\n        5         4        8.973466E+00        2.995574E+00        4.767605E-01        4.047668E+00        3.632161E+01             \r\n        6         6        8.973466E+00        2.995574E+00        4.767605E-01        4.047668E+00        3.632161E+01             \r\n        7         7        1.294017E+01        3.597245E+00        5.725194E-01        3.198689E+00        4.139159E+01             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.156043E+01    (CYCLIC FREQUENCY =  1.988121E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      1.589668E-02                                                                                             \r\n           118      S     -2.334529E-02                                                                                             \r\n           127      S     -1.589668E-02                                                                                             \r\n           209      S      3.036201E-02                                                                                             \r\n           218      S     -4.458854E-02                                                                                             \r\n           227      S     -3.036201E-02                                                                                             \r\n           309      S      4.231367E-02                                                                                             \r\n           318      S     -6.214031E-02                                                                                             \r\n           327      S     -4.231367E-02                                                                                             \r\n           409      S      5.065786E-02                                                                                             \r\n           418      S     -7.439428E-02                                                                                             \r\n           427      S     -5.065786E-02                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.156043E+01    (CYCLIC FREQUENCY =  1.988121E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   5.125281E-02    2090   1.013905E-01    3090   1.508833E-01    4090   1.995056E-01    5090   2.470584E-01\r\n           1*     6089   2.933193E-01    7090   3.380589E-01    8090   3.810475E-01    9090   4.220590E-01   10089   4.608718E-01\r\n           1*    11090   4.972700E-01   12089   5.310425E-01   13089   5.619829E-01   14090   5.898870E-01   15090   6.145507E-01\r\n           1*    16089   6.357632E-01   17090   6.532989E-01   18089   6.669012E-01   19090   6.762550E-01   20089   6.809376E-01\r\n           1      1090   7.526801E-02    2090   1.488984E-01    3090   2.215816E-01    4090   2.929866E-01    5090   3.628209E-01\r\n           1      6089   4.307581E-01    7090   4.964609E-01    8090   5.595924E-01    9090   6.198204E-01   10089   6.768195E-01\r\n           1     11090   7.302725E-01   12089   7.798696E-01   13089   8.253074E-01   14090   8.662866E-01   15090   9.025066E-01\r\n           1     16089   9.336585E-01   17090   9.594108E-01   18089   9.793867E-01   19090   9.931232E-01   20089   1.000000E+00\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.156043E+01    (CYCLIC FREQUENCY =  1.988121E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      2.334528E-02                                                                                             \r\n           118      S      1.589668E-02                                                                                             \r\n           127      S     -2.334528E-02                                                                                             \r\n           209      S      4.458854E-02                                                                                             \r\n           218      S      3.036201E-02                                                                                             \r\n           227      S     -4.458854E-02                                                                                             \r\n           309      S      6.214031E-02                                                                                             \r\n           318      S      4.231367E-02                                                                                             \r\n           327      S     -6.214031E-02                                                                                             \r\n           409      S      7.439427E-02                                                                                             \r\n           418      S      5.065785E-02                                                                                             \r\n           427      S     -7.439427E-02                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.156043E+01    (CYCLIC FREQUENCY =  1.988121E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   7.526801E-02    2090   1.488984E-01    3090   2.215816E-01    4090   2.929866E-01    5090   3.628209E-01\r\n           1*     6089   4.307581E-01    7090   4.964609E-01    8090   5.595924E-01    9090   6.198204E-01   10089   6.768195E-01\r\n           1*    11090   7.302725E-01   12089   7.798696E-01   13089   8.253074E-01   14090   8.662866E-01   15090   9.025066E-01\r\n           1*    16089   9.336585E-01   17090   9.594108E-01   18089   9.793867E-01   19090   9.931232E-01   20089   1.000000E+00\r\n           1      1090  -5.125281E-02    2090  -1.013905E-01    3090  -1.508833E-01    4090  -1.995056E-01    5090  -2.470584E-01\r\n           1      6089  -2.933193E-01    7090  -3.380589E-01    8090  -3.810475E-01    9090  -4.220590E-01   10089  -4.608718E-01\r\n           1     11090  -4.972700E-01   12089  -5.310425E-01   13089  -5.619829E-01   14090  -5.898870E-01   15090  -6.145507E-01\r\n           1     16089  -6.357632E-01   17090  -6.532989E-01   18089  -6.669012E-01   19090  -6.762550E-01   20089  -6.809376E-01\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.537770E+01    (CYCLIC FREQUENCY =  3.690781E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      4.974199E-02                                                                                             \r\n           118      S     -6.400827E-02                                                                                             \r\n           127      S     -4.974199E-02                                                                                             \r\n           209      S      6.003302E-02                                                                                             \r\n           218      S     -7.725082E-02                                                                                             \r\n           227      S     -6.003302E-02                                                                                             \r\n           309      S      2.830808E-02                                                                                             \r\n           318      S     -3.642700E-02                                                                                             \r\n           327      S     -2.830808E-02                                                                                             \r\n           409      S     -1.615319E-02                                                                                             \r\n           418      S      2.078602E-02                                                                                             \r\n           427      S      1.615320E-02                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.537770E+01    (CYCLIC FREQUENCY =  3.690781E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   1.883588E-01    2090   3.573058E-01    3090   5.044234E-01    4090   6.242689E-01    5090   7.117764E-01\r\n           1*     6089   7.633172E-01    7090   7.771183E-01    8090   7.534228E-01    9090   6.944861E-01   10089   6.044371E-01\r\n           1*    11090   4.890248E-01   12089   3.552704E-01   13089   2.110474E-01   14090   6.461761E-02   15090  -7.584647E-02\r\n           1*    16089  -2.027249E-01   17090  -3.093650E-01   18089  -3.904220E-01   19090  -4.420857E-01   20089  -4.621605E-01\r\n           1      1090   2.423812E-01    2090   4.597830E-01    3090   6.490948E-01    4090   8.033126E-01    5090   9.159176E-01\r\n           1      6089   9.822407E-01    7090   1.000000E+00    8090   9.695085E-01    9090   8.936684E-01   10089   7.777928E-01\r\n           1     11090   6.292797E-01   12089   4.571639E-01   13089   2.715769E-01   14090   8.315028E-02   15090  -9.759963E-02\r\n           1     16089  -2.608674E-01   17090  -3.980926E-01   18089  -5.023971E-01   19090  -5.688782E-01   20089  -5.947106E-01\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.537770E+01    (CYCLIC FREQUENCY =  3.690781E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      6.400827E-02                                                                                             \r\n           118      S      4.974198E-02                                                                                             \r\n           127      S     -6.400826E-02                                                                                             \r\n           209      S      7.725082E-02                                                                                             \r\n           218      S      6.003302E-02                                                                                             \r\n           227      S     -7.725082E-02                                                                                             \r\n           309      S      3.642699E-02                                                                                             \r\n           318      S      2.830808E-02                                                                                             \r\n           327      S     -3.642699E-02                                                                                             \r\n           409      S     -2.078602E-02                                                                                             \r\n           418      S     -1.615319E-02                                                                                             \r\n           427      S      2.078602E-02                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.537770E+01    (CYCLIC FREQUENCY =  3.690781E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   2.423812E-01    2090   4.597830E-01    3090   6.490948E-01    4090   8.033126E-01    5090   9.159176E-01\r\n           1*     6089   9.822407E-01    7090   1.000000E+00    8090   9.695085E-01    9090   8.936684E-01   10089   7.777928E-01\r\n           1*    11090   6.292797E-01   12089   4.571639E-01   13089   2.715769E-01   14090   8.315028E-02   15090  -9.759963E-02\r\n           1*    16089  -2.608674E-01   17090  -3.980926E-01   18089  -5.023971E-01   19090  -5.688782E-01   20089  -5.947106E-01\r\n           1      1090  -1.883588E-01    2090  -3.573058E-01    3090  -5.044234E-01    4090  -6.242689E-01    5090  -7.117764E-01\r\n           1      6089  -7.633172E-01    7090  -7.771183E-01    8090  -7.534228E-01    9090  -6.944861E-01   10089  -6.044371E-01\r\n           1     11090  -4.890248E-01   12089  -3.552704E-01   13089  -2.110474E-01   14090  -6.461761E-02   15090   7.584647E-02\r\n           1     16089   2.027249E-01   17090   3.093650E-01   18089   3.904220E-01   19090   4.420857E-01   20089   4.621605E-01\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.897347E+01    (CYCLIC FREQUENCY =  4.767605E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S     -6.135512E-02                                                                                             \r\n           118      S     -7.968038E-02                                                                                             \r\n           127      S      6.135511E-02                                                                                             \r\n           209      S     -1.652395E-02                                                                                             \r\n           218      S     -2.145924E-02                                                                                             \r\n           227      S      1.652394E-02                                                                                             \r\n           309      S      3.474438E-02                                                                                             \r\n           318      S      4.512167E-02                                                                                             \r\n           327      S     -3.474438E-02                                                                                             \r\n           409      S      5.793199E-03                                                                                             \r\n           418      S      7.523486E-03                                                                                             \r\n           427      S     -5.793199E-03                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.897347E+01    (CYCLIC FREQUENCY =  4.767605E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090  -3.064950E-01    2090  -5.473943E-01    3090  -7.059278E-01    4090  -7.700152E-01    5090  -7.370769E-01\r\n           1*     6089  -6.168988E-01    7090  -4.305745E-01    8090  -2.073778E-01    9090   1.962719E-02   10089   2.184766E-01\r\n           1*    11090   3.629191E-01   12089   4.360468E-01   13089   4.324118E-01   14090   3.583437E-01   15090   2.304676E-01\r\n           1*    16089   7.270546E-02   17090  -8.772898E-02   18089  -2.246875E-01   19090  -3.170863E-01   20089  -3.519157E-01\r\n           1      1090   3.980377E-01    2090   7.108877E-01    3090   9.167713E-01    4090   1.000000E+00    5090   9.572240E-01\r\n           1      6089   8.011515E-01    7090   5.591767E-01    8090   2.693165E-01    9090  -2.548937E-02   10089  -2.837302E-01\r\n           1     11090  -4.713142E-01   12089  -5.662833E-01   13089  -5.615628E-01   14090  -4.653722E-01   15090  -2.993027E-01\r\n           1     16089  -9.442081E-02   17090   1.139315E-01   18089   2.917963E-01   19090   4.117923E-01   20089   4.570244E-01\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.897347E+01    (CYCLIC FREQUENCY =  4.767605E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      7.968039E-02                                                                                             \r\n           118      S     -6.135512E-02                                                                                             \r\n           127      S     -7.968039E-02                                                                                             \r\n           209      S      2.145924E-02                                                                                             \r\n           218      S     -1.652395E-02                                                                                             \r\n           227      S     -2.145925E-02                                                                                             \r\n           309      S     -4.512168E-02                                                                                             \r\n           318      S      3.474438E-02                                                                                             \r\n           327      S      4.512168E-02                                                                                             \r\n           409      S     -7.523486E-03                                                                                             \r\n           418      S      5.793200E-03                                                                                             \r\n           427      S      7.523486E-03                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.897347E+01    (CYCLIC FREQUENCY =  4.767605E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   3.980377E-01    2090   7.108877E-01    3090   9.167713E-01    4090   1.000000E+00    5090   9.572240E-01\r\n           1*     6089   8.011515E-01    7090   5.591767E-01    8090   2.693165E-01    9090  -2.548937E-02   10089  -2.837302E-01\r\n           1*    11090  -4.713142E-01   12089  -5.662833E-01   13089  -5.615628E-01   14090  -4.653722E-01   15090  -2.993027E-01\r\n           1*    16089  -9.442081E-02   17090   1.139315E-01   18089   2.917963E-01   19090   4.117923E-01   20089   4.570244E-01\r\n           1      1090   3.064950E-01    2090   5.473943E-01    3090   7.059278E-01    4090   7.700152E-01    5090   7.370769E-01\r\n           1      6089   6.168988E-01    7090   4.305745E-01    8090   2.073778E-01    9090  -1.962719E-02   10089  -2.184766E-01\r\n           1     11090  -3.629191E-01   12089  -4.360468E-01   13089  -4.324118E-01   14090  -3.583437E-01   15090  -2.304676E-01\r\n           1     16089  -7.270546E-02   17090   8.772898E-02   18089   2.246875E-01   19090   3.170863E-01   20089   3.519157E-01\r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.129402E+02    (CYCLIC FREQUENCY =  5.725194E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           109      S      6.377520E-02                                                                                             \r\n           118      S     -6.919532E-02                                                                                             \r\n           127      S     -6.377520E-02                                                                                             \r\n           209      S     -3.548566E-02                                                                                             \r\n           218      S      3.850154E-02                                                                                             \r\n           227      S      3.548566E-02                                                                                             \r\n           309      S      2.354290E-03                                                                                             \r\n           318      S     -2.554432E-03                                                                                             \r\n           327      S     -2.354290E-03                                                                                             \r\n           409      S      2.182782E-02                                                                                             \r\n           418      S     -2.368284E-02                                                                                             \r\n           427      S     -2.182782E-02                                                                                             \r\n1     VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.129402E+02    (CYCLIC FREQUENCY =  5.725194E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n           1*     1090   5.019624E-01    2090   8.240456E-01    3090   9.216686E-01    4090   8.003877E-01    5090   5.111621E-01\r\n           1*     6089   1.418436E-01    7090  -2.062296E-01    8090  -4.453500E-01    9090  -5.239123E-01   10089  -4.380154E-01\r\n           1*    11090  -2.293369E-01   12089   2.954667E-02   13089   2.576922E-01   14090   3.894098E-01   15090   3.921722E-01\r\n           1*    16089   2.739421E-01   17090   7.831539E-02   18089  -1.305122E-01   19090  -2.880350E-01   20089  -3.487471E-01\r\n           1      1090   5.446239E-01    2090   8.940805E-01    3090   1.000000E+00    4090   8.684109E-01    5090   5.546042E-01\r\n           1      6089   1.538976E-01    7090  -2.237575E-01    8090  -4.831997E-01    9090  -5.684381E-01   10089  -4.752405E-01\r\n           1     11090  -2.488268E-01   12089   3.205848E-02   13089   2.795930E-01   14090   4.225042E-01   15090   4.255010E-01\r\n           1     16089   2.972229E-01   17090   8.497076E-02   18089  -1.416039E-01   19090  -3.125136E-01   20089  -3.783854E-01\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.               \r\n DATE:  5/17/95\r\n END TIME: 15:40:59\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03041a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03041A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,0                                                                       \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ACOUSTIC CAVITY ANALYSIS                                             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                          \r\n                  3      SET  1 =    1 THRU  210                                                         \r\n                  4      SET  2 =  101 THRU  131,  200 THRU  230,  300 THRU  321,  401 THRU  430,        \r\n                  5                523 THRU  530,  624 THRU  630,  725 THRU  730,  825 THRU  830,        \r\n                  6                926 THRU  930, 1026 THRU 1030                                         \r\n                  7           METHOD   = 1                                                               \r\n                  8           PRESSURE = 1                                                               \r\n                  9           STRESS   = 2                                                               \r\n                 10      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                            \r\n                 11      OUTPUT(PLOT)                                                                    \r\n                 12      PLOTTER NASTPLT                                                                 \r\n                 13             SET 1 INCLUDE PLOTEL                                                     \r\n                 14             MAXIMUM DEFORMATION 5.0                                                  \r\n                 15             AXES MZ,Y,X                                                              \r\n                 16             VIEW -20.0, 45.0, 0.0                                                    \r\n                 17             FIND SCALE, ORIGIN 1, SET 1                                              \r\n                 18      PTITLE = ROCKET MOTOR CAVITY USING PLOTEL ELEMENTS                              \r\n                 19      PLOT SET 1, ORIGIN 1, LABEL GRID POINTS                                         \r\n                 20      PTITLE = MODE SHAPES OF MOTOR CAVITY USING PLOTEL ELEMENTS                      \r\n                 21      PLOT MODAL DEFORMATION, SET 1, ORIGIN 1, VECTOR R                               \r\n                 22      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   276, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXSLOT  .1143-6 20.58   0       4.      6                                       \r\n                    2-        CAXIF2  101     11      12                                                      \r\n                    3-        CAXIF2  102     12      19                                                      \r\n                    4-        CAXIF2  103     19      26                                                      \r\n                    5-        CAXIF2  104     26      32                                                      \r\n                    6-        CAXIF2  107     32      37                                                      \r\n                    7-        CAXIF2  108     37      41                                                      \r\n                    8-        CAXIF2  109     41      45                                                      \r\n                    9-        CAXIF2  110     45      49                                                      \r\n                   10-        CAXIF2  111     49      53                                                      \r\n                   11-        CAXIF2  112     53      57                                                      \r\n                   12-        CAXIF2  113     57      61                                                      \r\n                   13-        CAXIF2  114     61      65                                                      \r\n                   14-        CAXIF2  115     65      69                                                      \r\n                   15-        CAXIF2  116     69      73                                                      \r\n                   16-        CAXIF2  117     73      77                                                      \r\n                   17-        CAXIF2  119     77      81                                                      \r\n                   18-        CAXIF2  120     81      85                                                      \r\n                   19-        CAXIF2  121     85      91                                                      \r\n                   20-        CAXIF2  123     91      97                                                      \r\n                   21-        CAXIF2  124     97      104                                                     \r\n                   22-        CAXIF2  125     104     112                                                     \r\n                   23-        CAXIF2  126     112     122                                                     \r\n                   24-        CAXIF2  127     122     142                                                     \r\n                   25-        CAXIF2  128     142     162                                                     \r\n                   26-        CAXIF2  129     162     182                                                     \r\n                   27-        CAXIF2  130     182     202                                                     \r\n                   28-        CAXIF2  131     202     201                                                     \r\n                   29-        CAXIF3  200     12      19      13                                              \r\n                   30-        CAXIF3  201     13      19      20                                              \r\n                   31-        CAXIF3  202     19      26      20                                              \r\n                   32-        CAXIF3  203     20      26      27                                              \r\n                   33-        CAXIF3  204     26      32      27                                              \r\n                   34-        CAXIF3  205     27      32      33                                              \r\n                   35-        CAXIF3  218     77      82      78                                              \r\n                   36-        CAXIF3  219     77      81      82                                              \r\n                   37-        CAXIF3  221     85      91      86                                              \r\n                   38-        CAXIF3  222     86      91      92                                              \r\n                   39-        CAXIF3  300     13      20      14                                              \r\n                   40-        CAXIF3  301     14      20      21                                              \r\n                   41-        CAXIF3  302     20      27      21                                              \r\n                   42-        CAXIF3  303     21      27      28                                              \r\n                   43-        CAXIF3  304     27      33      28                                              \r\n                   44-        CAXIF3  305     28      33      34                                              \r\n                   45-        CAXIF3  306     33      38      34                                              \r\n                   46-        CAXIF3  307     34      38      39                                              \r\n                   47-        CAXIF3  318     78      83      79                                              \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CAXIF3  319     78      82      83                                              \r\n                   49-        CAXIF3  321     86      92      87                                              \r\n                   50-        CAXIF3  401     1       2       3                                               \r\n                   51-        CAXIF3  408     28      34      29                                              \r\n                   52-        CAXIF3  410     34      39      35                                              \r\n                   53-        CAXIF4  207     32      37      38      33                                      \r\n                   54-        CAXIF4  208     37      41      42      38                                      \r\n                   55-        CAXIF4  209     41      45      46      42                                      \r\n                   56-        CAXIF4  210     45      49      50      46                                      \r\n                   57-        CAXIF4  211     49      53      54      50                                      \r\n                   58-        CAXIF4  212     53      57      58      54                                      \r\n                   59-        CAXIF4  213     57      61      62      58                                      \r\n                   60-        CAXIF4  214     61      65      66      62                                      \r\n                   61-        CAXIF4  215     65      69      70      66                                      \r\n                   62-        CAXIF4  216     69      73      74      70                                      \r\n                   63-        CAXIF4  217     73      77      78      74                                      \r\n                   64-        CAXIF4  220     81      85      86      82                                      \r\n                   65-        CAXIF4  223     91      97      98      92                                      \r\n                   66-        CAXIF4  224     97      104     105     98                                      \r\n                   67-        CAXIF4  225     104     112     113     105                                     \r\n                   68-        CAXIF4  226     112     122     123     113                                     \r\n                   69-        CAXIF4  227     122     142     143     123                                     \r\n                   70-        CAXIF4  228     142     162     163     143                                     \r\n                   71-        CAXIF4  229     162     182     183     163                                     \r\n                   72-        CAXIF4  230     182     202     203     183                                     \r\n                   73-        CAXIF4  308     38      42      43      39                                      \r\n                   74-        CAXIF4  309     42      46      47      43                                      \r\n                   75-        CAXIF4  310     46      50      51      47                                      \r\n                   76-        CAXIF4  311     50      54      55      51                                      \r\n                   77-        CAXIF4  312     54      58      59      55                                      \r\n                   78-        CAXIF4  313     58      62      63      59                                      \r\n                   79-        CAXIF4  314     62      66      67      63                                      \r\n                   80-        CAXIF4  315     66      70      71      67                                      \r\n                   81-        CAXIF4  316     70      74      75      71                                      \r\n                   82-        CAXIF4  317     74      78      79      75                                      \r\n                   83-        CAXIF4  320     82      86      87      83                                      \r\n                   84-        CAXIF4  402     2       4       5       3                                       \r\n                   85-        CAXIF4  403     4       6       7       5                                       \r\n                   86-        CAXIF4  404     6       8       9       7                                       \r\n                   87-        CAXIF4  405     8       16      17      9                                       \r\n                   88-        CAXIF4  406     16      23      24      17                                      \r\n                   89-        CAXIF4  407     23      29      30      24                                      \r\n                   90-        CAXIF4  409     29      34      35      30                                      \r\n                   91-        CSLOT3  422     89      94      95                                              \r\n                   92-        CSLOT3  523     95      101     102                                             \r\n                   93-        CSLOT3  624     102     109     110                                             \r\n                   94-        CSLOT3  725     110     118     119                                             \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CSLOT3  825     119     129     120                                             \r\n                   96-        CSLOT3  826     120     129     130                                             \r\n                   97-        CSLOT3  926     120     130     131                                             \r\n                   98-        CSLOT3  930     190     210     191                                             \r\n                   99-        CSLOT3  1026    131     151     132                                             \r\n                  100-        CSLOT3  1027    132     151     152                                             \r\n                  101-        CSLOT3  1029    171     192     172                                             \r\n                  102-        CSLOT3  1030    171     191     192                                             \r\n                  103-        CSLOT4  423     94      100     101     95                                      \r\n                  104-        CSLOT4  424     100     107     108     101                                     \r\n                  105-        CSLOT4  425     107     115     116     108                                     \r\n                  106-        CSLOT4  426     115     125     126     116                                     \r\n                  107-        CSLOT4  427     125     145     146     126                                     \r\n                  108-        CSLOT4  428     145     165     166     146                                     \r\n                  109-        CSLOT4  429     165     185     186     166                                     \r\n                  110-        CSLOT4  430     185     205     206     186                                     \r\n                  111-        CSLOT4  524     101     108     109     102                                     \r\n                  112-        CSLOT4  525     108     116     117     109                                     \r\n                  113-        CSLOT4  526     116     126     127     117                                     \r\n                  114-        CSLOT4  527     126     146     147     127                                     \r\n                  115-        CSLOT4  528     146     166     167     147                                     \r\n                  116-        CSLOT4  529     166     186     187     167                                     \r\n                  117-        CSLOT4  530     186     206     207     187                                     \r\n                  118-        CSLOT4  625     109     117     118     110                                     \r\n                  119-        CSLOT4  626     117     127     128     118                                     \r\n                  120-        CSLOT4  627     127     147     148     128                                     \r\n                  121-        CSLOT4  628     147     167     168     148                                     \r\n                  122-        CSLOT4  629     167     187     188     168                                     \r\n                  123-        CSLOT4  630     187     207     208     188                                     \r\n                  124-        CSLOT4  726     118     128     129     119                                     \r\n                  125-        CSLOT4  727     128     148     149     129                                     \r\n                  126-        CSLOT4  728     148     168     169     149                                     \r\n                  127-        CSLOT4  729     168     188     189     169                                     \r\n                  128-        CSLOT4  730     188     208     209     189                                     \r\n                  129-        CSLOT4  827     129     149     150     130                                     \r\n                  130-        CSLOT4  828     149     169     170     150                                     \r\n                  131-        CSLOT4  829     169     189     190     170                                     \r\n                  132-        CSLOT4  830     189     209     210     190                                     \r\n                  133-        CSLOT4  927     130     150     151     131                                     \r\n                  134-        CSLOT4  928     150     170     171     151                                     \r\n                  135-        CSLOT4  929     170     190     191     171                                     \r\n                  136-        CSLOT4  1028    151     171     172     152                                     \r\n                  137-        EIGR    1       INV     100.0   500.0   6       7                       +EIG1   \r\n                  138-        +EIG1   MAX                                                                     \r\n                  139-        GRID    500             .0      65.25                   123456                  \r\n                  140-        GRID    501             .0      11.4                    123456                  \r\n                  141-        GRIDF   1       10.                                                             \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRIDF   2       9.15    1.8                                                     \r\n                  143-        GRIDF   3       10.6    2.6                                                     \r\n                  144-        GRIDF   4       8.1     4.                                                      \r\n                  145-        GRIDF   5       9.85    4.65                                                    \r\n                  146-        GRIDF   6       7.3     6.2                                                     \r\n                  147-        GRIDF   7       9.      6.8                                                     \r\n                  148-        GRIDF   8       6.55    8.6                                                     \r\n                  149-        GRIDF   9       8.6     8.9                                                     \r\n                  150-        GRIDF   11      .7      11.4                                                    \r\n                  151-        GRIDF   12      .7      12.                                                     \r\n                  152-        GRIDF   13      1.8     12.                                                     \r\n                  153-        GRIDF   14      3.3     12.1                                                    \r\n                  154-        GRIDF   16      5.9     10.8                                                    \r\n                  155-        GRIDF   17      8.3     10.6                                                    \r\n                  156-        GRIDF   19      1.      13.3                                                    \r\n                  157-        GRIDF   20      2.5     13.3                                                    \r\n                  158-        GRIDF   21      3.6     13.9                                                    \r\n                  159-        GRIDF   23      6.07    13.                                                     \r\n                  160-        GRIDF   24      8.3     13.                                                     \r\n                  161-        GRIDF   26      1.3     15.                                                     \r\n                  162-        GRIDF   27      2.8     15.                                                     \r\n                  163-        GRIDF   28      4.8     15.                                                     \r\n                  164-        GRIDF   29      6.      14.8                                                    \r\n                  165-        GRIDF   30      8.3     15.25                                                   \r\n                  166-        GRIDF   32      1.6     16.7                                                    \r\n                  167-        GRIDF   33      4.      16.7                                                    \r\n                  168-        GRIDF   34      5.5     17.2                                                    \r\n                  169-        GRIDF   35      6.9     17.7                                                    \r\n                  170-        GRIDF   37      2.      18.82                                                   \r\n                  171-        GRIDF   38      4.4     18.82                                                   \r\n                  172-        GRIDF   39      6.89    18.82                                                   \r\n                  173-        GRIDF   41      2.      21.                                                     \r\n                  174-        GRIDF   42      4.4     21.                                                     \r\n                  175-        GRIDF   43      6.875   21.                                                     \r\n                  176-        GRIDF   45      2.      23.2                                                    \r\n                  177-        GRIDF   46      4.4     23.2                                                    \r\n                  178-        GRIDF   47      6.85    23.2                                                    \r\n                  179-        GRIDF   49      2.      25.4                                                    \r\n                  180-        GRIDF   50      4.4     25.4                                                    \r\n                  181-        GRIDF   51      6.825   25.4                                                    \r\n                  182-        GRIDF   53      2.      27.6                                                    \r\n                  183-        GRIDF   54      4.4     27.6                                                    \r\n                  184-        GRIDF   55      6.8     27.6                                                    \r\n                  185-        GRIDF   57      2.      29.8                                                    \r\n                  186-        GRIDF   58      4.4     29.8                                                    \r\n                  187-        GRIDF   59      6.775   29.8                                                    \r\n                  188-        GRIDF   61      2.      32.                                                     \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRIDF   62      4.4     32.                                                     \r\n                  190-        GRIDF   63      6.75    32.                                                     \r\n                  191-        GRIDF   65      2.      34.2                                                    \r\n                  192-        GRIDF   66      4.4     34.2                                                    \r\n                  193-        GRIDF   67      6.725   34.2                                                    \r\n                  194-        GRIDF   69      2.      36.4                                                    \r\n                  195-        GRIDF   70      4.4     36.4                                                    \r\n                  196-        GRIDF   71      6.7     36.4                                                    \r\n                  197-        GRIDF   73      2.      38.6                                                    \r\n                  198-        GRIDF   74      4.4     38.6                                                    \r\n                  199-        GRIDF   75      6.675   38.6                                                    \r\n                  200-        GRIDF   77      2.      40.3                                                    \r\n                  201-        GRIDF   78      4.4     40.3                                                    \r\n                  202-        GRIDF   79      6.55    40.3                                                    \r\n                  203-        GRIDF   81      2.      41.85                                                   \r\n                  204-        GRIDF   82      3.4     41.85                                                   \r\n                  205-        GRIDF   83      4.6     41.85                                                   \r\n                  206-        GRIDF   85      2.      43.85                                                   \r\n                  207-        GRIDF   86      3.4     43.85                                                   \r\n                  208-        GRIDF   91      2.      46.25                                                   \r\n                  209-        GRIDF   97      2.      48.5                                                    \r\n                  210-        GRIDF   104     2.      50.8                                                    \r\n                  211-        GRIDF   112     2.      52.8                                                    \r\n                  212-        GRIDF   122     2.      55.                                                     \r\n                  213-        GRIDF   142     2.      57.2                                                    \r\n                  214-        GRIDF   162     2.      59.4                                                    \r\n                  215-        GRIDF   182     2.      61.6                                                    \r\n                  216-        GRIDF   201     2.5     65.25                                                   \r\n                  217-        GRIDF   202     2.5     63.7                                                    \r\n                  218-        GRIDS   89      4.6     43.85           87                                      \r\n                  219-        GRIDS   94      4.3     46.25           92                                      \r\n                  220-        GRIDS   95      6.9     46.25                                                   \r\n                  221-        GRIDS   100     4.3     48.5            98                                      \r\n                  222-        GRIDS   101     6.5     48.5                                                    \r\n                  223-        GRIDS   102     9.04    48.5                                                    \r\n                  224-        GRIDS   107     4.3     50.8    3.541   105                                     \r\n                  225-        GRIDS   108     6.5     50.8    3.528                                           \r\n                  226-        GRIDS   109     8.7     50.8    3.514                                           \r\n                  227-        GRIDS   110     11.25   50.8    3.497                                           \r\n                  228-        GRIDS   115     4.3     52.8    2.991   113                                     \r\n                  229-        GRIDS   116     6.5     52.8    2.961                                           \r\n                  230-        GRIDS   117     8.7     52.8    2.93                                            \r\n                  231-        GRIDS   118     10.9    52.8    2.9                                             \r\n                  232-        GRIDS   119     13.6    52.8    2.863                                           \r\n                  233-        GRIDS   120     15.3    53.9    2.84                                            \r\n                  234-        GRIDS   125     4.3     55.     2.991   123                                     \r\n                  235-        GRIDS   126     6.5     55.     2.961                                           \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRIDS   127     8.7     55.     2.93                                            \r\n                  237-        GRIDS   128     10.9    55.     2.9                                             \r\n                  238-        GRIDS   129     13.1    55.     2.87                                            \r\n                  239-        GRIDS   130     15.3    55.     2.84                                            \r\n                  240-        GRIDS   131     17.5    55.05   2.81                                            \r\n                  241-        GRIDS   132     18.65   56.     2.794                                           \r\n                  242-        GRIDS   145     4.3     57.2    2.991   143                                     \r\n                  243-        GRIDS   146     6.5     57.2    2.961                                           \r\n                  244-        GRIDS   147     8.7     57.2    2.93                                            \r\n                  245-        GRIDS   148     10.9    57.2    2.9                                             \r\n                  246-        GRIDS   149     13.1    57.2    2.87                                            \r\n                  247-        GRIDS   150     15.3    57.2    2.84                                            \r\n                  248-        GRIDS   151     17.5    57.2    2.81                                            \r\n                  249-        GRIDS   152     19.35   57.2    2.784                                           \r\n                  250-        GRIDS   165     4.3     59.4    2.991   163                                     \r\n                  251-        GRIDS   166     6.5     59.4    2.961                                           \r\n                  252-        GRIDS   167     8.7     59.4    2.93                                            \r\n                  253-        GRIDS   168     10.9    59.4    2.9                                             \r\n                  254-        GRIDS   169     13.1    59.4    2.87                                            \r\n                  255-        GRIDS   170     15.3    59.4    2.84                                            \r\n                  256-        GRIDS   171     17.5    59.4    2.81                                            \r\n                  257-        GRIDS   172     19.35   59.4    2.784                                           \r\n                  258-        GRIDS   185     4.3     61.6    2.991   183                                     \r\n                  259-        GRIDS   186     6.5     61.6    2.961                                           \r\n                  260-        GRIDS   187     8.7     61.6    2.93                                            \r\n                  261-        GRIDS   188     10.9    61.6    2.9                                             \r\n                  262-        GRIDS   189     13.1    61.6    2.87                                            \r\n                  263-        GRIDS   190     15.3    61.6    2.84                                            \r\n                  264-        GRIDS   191     17.5    61.5    2.81                                            \r\n                  265-        GRIDS   192     18.5    60.65   2.795                                           \r\n                  266-        GRIDS   205     4.3     63.65   2.991   203                                     \r\n                  267-        GRIDS   206     6.5     63.6    2.961                                           \r\n                  268-        GRIDS   207     8.7     63.55   2.93                                            \r\n                  269-        GRIDS   208     10.9    63.5    2.9                                             \r\n                  270-        GRIDS   209     13.1    63.3    2.87                                            \r\n                  271-        GRIDS   210     15.3    62.63   2.84                                            \r\n                  272-        PLOTEL  1       201     500             2       500     501                     \r\n                  273-        PLOTEL  3       501     11                                                      \r\n                  274-        SLBDY                   89      94      100     107     115     125     +BDY    \r\n                  275-        +BDY    145     165     185     205                                             \r\n                  276-        SUPORT  1       1                                                               \r\n                              ENDDATA\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE           1009\r\n                                        MAX WAVEFRONT       12\r\n                                        AVG WAVEFRONT    7.156\r\n                                        RMS WAVEFRONT    7.796\r\n                                        RMS BANDWIDTH    7.934\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE           1002\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT    7.106\r\n                                        RMS WAVEFRONT    7.727\r\n                                        RMS BANDWIDTH    7.919\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       13        14\r\n                                        PROFILE (P)                       1009      1002\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           12        13\r\n                                        AVERAGE WAVEFRONT (C-AVG)        7.156     7.106\r\n                                        RMS WAVEFRONT (C-RMS)            7.796     7.727\r\n                                        RMS BANDWITCH (B-RMS)            7.934     7.919\r\n                                        NUMBER OF GRID POINTS (N)                    143\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               145\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                       401\r\n                                        MATRIX DENSITY, PERCENT                    4.743\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF NON-ACTIVE GRID POINTS                  2\r\n                                        NO. OF SEQGP CARDS GENERATED                  36\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1     141       2     139       3     140       4     137\r\n                         SEQGP          5     138       6     135       7     136       8     133\r\n                         SEQGP          9     134      11     132      12     127      13     128\r\n                         SEQGP         14     129      16     130      17     131      19     122\r\n                         SEQGP         20     123      21     124      23     125      24     126\r\n                         SEQGP         26     117      27     118      28     119      29     121\r\n                         SEQGP         30     120      32     113      33     114      34     115\r\n                         SEQGP         35     116      37     110      38     111      39     112\r\n                         SEQGP         41     107      42     108      43     109      45     104\r\n                         SEQGP         46     105      47     106      49     101      50     102\r\n                         SEQGP         51     103      53      98      54      99      55     100\r\n                         SEQGP         57      95      58      96      59      97      61      92\r\n                         SEQGP         62      93      63      94      65      89      66      90\r\n                         SEQGP         67      91      69      86      70      87      71      88\r\n                         SEQGP         73      83      74      84      75      85      77      80\r\n                         SEQGP         78      81      79      82      81      77      82      78\r\n                         SEQGP         83      79      85      74      86      75      87      76\r\n                         SEQGP         89      73      91      71      92      72      94      69\r\n                         SEQGP         95      70      97      67      98      68     100      64\r\n                         SEQGP        101      65     102      66     104      62     105      63\r\n                         SEQGP        107      58     108      59     109      60     110      61\r\n                         SEQGP        112      56     113      57     115      51     116      52\r\n                         SEQGP        117      53     118      54     119      55     120      48\r\n                         SEQGP        122      49     123      50     125      43     126      44\r\n                         SEQGP        127      45     128      46     129      47     130      40\r\n                         SEQGP        131      39     132      30     142      41     143      42\r\n                         SEQGP        145      33     146      34     147      35     148      36\r\n                         SEQGP        149      37     150      38     151      29     152      19\r\n                         SEQGP        162      31     163      32     165      22     166      23\r\n                         SEQGP        167      24     168      25     169      26     170      27\r\n                         SEQGP        171      28     172      18     182      20     183      21\r\n                         SEQGP        185      10     186      11     187      12     188      13\r\n                         SEQGP        189      14     190      15     191      16     192      17\r\n                         SEQGP        201       1     202       8     203       9     205       2\r\n                         SEQGP        206       3     207       4     208       5     209       6\r\n                         SEQGP        210       7     500     142     501     143\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA = -20.00, BETA =  45.00, ALPHA =   0.00,  AXES = -Z,+Y,+X, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 8.275312E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -7.166634E-01, Y0 = -0.396984E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      500\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      501\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION AXIF2    ELEMENTS (ELEMENT TYPE  47) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION AXIF3    ELEMENTS (ELEMENT TYPE  48) STARTING WITH ID      200\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION AXIF4    ELEMENTS (ELEMENT TYPE  49) STARTING WITH ID      207\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID 10000001\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SLOT3    ELEMENTS (ELEMENT TYPE  50) STARTING WITH ID      422\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION SLOT4    ELEMENTS (ELEMENT TYPE  51) STARTING WITH ID      423\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   7.8045319E-15\r\n                        4 ROOTS BELOW   5.132194E+06\r\n                        5 ROOTS BELOW   5.948582E+06\r\n                        3 ROOTS BELOW   3.804033E+06\r\n                        6 ROOTS BELOW   7.966939E+06\r\n                        2 ROOTS BELOW   1.569941E+06\r\n                        1 ROOTS BELOW   3.199454E+05\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         7\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         6\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        38\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        0.0                 0.0                 0.0                 4.935291E+02        0.0                      \r\n        2         6        3.202684E+05        5.659226E+02        9.006937E+01        2.270001E+02        7.270096E+07             \r\n        3         5        1.570861E+06        1.253340E+03        1.994752E+02        9.914820E+01        1.557480E+08             \r\n        4         3        3.804042E+06        1.950395E+03        3.104150E+02        1.100886E+02        4.187818E+08             \r\n        5         2        5.943163E+06        2.437860E+03        3.879975E+02        8.700966E+01        5.171126E+08             \r\n        6         4        7.963367E+06        2.821944E+03        4.491263E+02        3.788091E+01        3.016596E+08             \r\n        7         7        1.038296E+07        3.222259E+03        5.128385E+02        1.447133E+02        1.502552E+09             \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n             7      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            11      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                                                \r\n            16      S      1.000000E+00   1.000000E+00                                                                              \r\n            19      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            23      S      1.000000E+00   1.000000E+00                                                                              \r\n            26      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                                 \r\n            32      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                                                \r\n            37      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            41      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            45      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            49      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            53      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            57      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            61      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            65      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            69      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            73      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            77      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            81      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            85      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n            89      S      1.000000E+00                                                                                             \r\n            91      S      1.000000E+00   1.000000E+00                                                                              \r\n            94      S      1.000000E+00   1.000000E+00                                                                              \r\n            97      S      1.000000E+00   1.000000E+00                                                                              \r\n           100      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n           104      S      1.000000E+00   1.000000E+00                                                                              \r\n           107      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                                                \r\n           112      S      1.000000E+00   1.000000E+00                                                                              \r\n           115      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n           122      S      1.000000E+00   1.000000E+00                                                                              \r\n           125      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n           131      S      1.000000E+00   1.000000E+00                                                                              \r\n           142      S      1.000000E+00   1.000000E+00                                                                              \r\n           145      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n           151      S      1.000000E+00   1.000000E+00                                                                              \r\n           162      S      1.000000E+00   1.000000E+00                                                                              \r\n           165      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n           171      S      1.000000E+00   1.000000E+00                                                                              \r\n           182      S      1.000000E+00   1.000000E+00                                                                              \r\n           185      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n           191      S      1.000000E+00   1.000000E+00                                                                              \r\n           201      S      1.000000E+00   1.000000E+00   1.000000E+00                                                               \r\n           205      S      1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00   1.000000E+00                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.000000E+00   9.975941E-01   9.967453E-01   9.884522E-01   9.884430E-01   9.699124E-01                  \r\n             7      S      9.689181E-01   9.395770E-01   9.415587E-01                                                               \r\n            11      S      7.876819E-01   7.874297E-01   7.877946E-01   7.880729E-01                                                \r\n            16      S      9.068894E-01   9.142652E-01                                                                              \r\n            19      S      7.857642E-01   7.869968E-01   7.868734E-01                                                               \r\n            23      S      8.666415E-01   8.703047E-01                                                                              \r\n            26      S      7.784884E-01   7.816929E-01   7.954486E-01   8.217325E-01   8.295709E-01                                 \r\n            32      S      7.618984E-01   7.703706E-01   7.721107E-01   7.705994E-01                                                \r\n            37      S      7.264259E-01   7.325559E-01   7.391633E-01                                                               \r\n            41      S      6.761388E-01   6.787086E-01   6.810538E-01                                                               \r\n            45      S      6.165234E-01   6.177194E-01   6.189237E-01                                                               \r\n            49      S      5.501673E-01   5.508948E-01   5.517957E-01                                                               \r\n            53      S      4.782053E-01   4.788270E-01   4.796825E-01                                                               \r\n            57      S      4.013835E-01   4.021067E-01   4.030329E-01                                                               \r\n            61      S      3.202401E-01   3.213666E-01   3.225299E-01                                                               \r\n            65      S      2.349868E-01   2.372744E-01   2.391844E-01                                                               \r\n            69      S      1.449575E-01   1.504174E-01   1.549289E-01                                                               \r\n            73      S      4.710434E-02   6.051802E-02   7.498813E-02                                                               \r\n            77      S     -3.990197E-02  -1.548793E-02   2.484022E-02                                                               \r\n            81      S     -1.342677E-01  -1.208564E-01  -9.617007E-02                                                               \r\n            85      S     -2.788503E-01  -2.894892E-01  -3.082668E-01                                                               \r\n            89      S     -3.117526E-01                                                                                             \r\n            91      S     -4.222920E-01  -4.447383E-01                                                                              \r\n            94      S     -4.455524E-01  -5.141683E-01                                                                              \r\n            97      S     -5.221623E-01  -5.370502E-01                                                                              \r\n           100      S     -5.374208E-01  -5.702099E-01  -6.164784E-01                                                               \r\n           104      S     -5.988024E-01  -6.071663E-01                                                                              \r\n           107      S     -6.076176E-01  -6.272755E-01  -6.559125E-01  -6.935366E-01                                                \r\n           112      S     -6.513859E-01  -6.569210E-01                                                                              \r\n           115      S     -6.575661E-01  -6.716077E-01  -6.926700E-01  -7.178277E-01  -7.504547E-01  -7.763857E-01                  \r\n           122      S     -6.971076E-01  -7.013860E-01                                                                              \r\n           125      S     -7.019932E-01  -7.126028E-01  -7.278574E-01  -7.459795E-01  -7.652700E-01  -7.817789E-01                  \r\n           131      S     -7.937099E-01  -7.990791E-01                                                                              \r\n           142      S     -7.313625E-01  -7.345904E-01                                                                              \r\n           145      S     -7.350470E-01  -7.429599E-01  -7.540933E-01  -7.671297E-01  -7.804158E-01  -7.917681E-01                  \r\n           151      S     -7.995550E-01  -8.019209E-01                                                                              \r\n           162      S     -7.552004E-01  -7.575614E-01                                                                              \r\n           165      S     -7.579006E-01  -7.638075E-01  -7.720690E-01  -7.815714E-01  -7.909154E-01  -7.986076E-01                  \r\n           171      S     -8.034217E-01  -8.046135E-01                                                                              \r\n           182      S     -7.695252E-01  -7.710483E-01                                                                              \r\n           185      S     -7.712984E-01  -7.758071E-01  -7.822587E-01  -7.895499E-01  -7.963565E-01  -8.015710E-01                  \r\n           191      S     -8.045366E-01  -8.046646E-01                                                                              \r\n           201      S     -7.768496E-01  -7.751908E-01  -7.754630E-01                                                               \r\n           205      S     -7.756174E-01  -7.792987E-01  -7.850344E-01  -7.914826E-01  -7.971526E-01  -8.014495E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.000000E+00   9.882658E-01   9.841478E-01   9.440876E-01   9.440718E-01   8.561423E-01                  \r\n             7      S      8.515909E-01   7.167795E-01   7.257561E-01                                                               \r\n            11      S      7.271417E-02   7.260004E-02   7.490163E-02   7.688450E-02                                                \r\n            16      S      5.732117E-01   6.051642E-01                                                                              \r\n            19      S      6.987406E-02   7.649949E-02   8.330506E-02                                                               \r\n            23      S      4.066502E-01   4.207875E-01                                                                              \r\n            26      S      5.441731E-02   6.933504E-02   1.309097E-01   2.324457E-01   2.613986E-01                                 \r\n            32      S      1.238475E-02   4.761748E-02   6.088098E-02   5.992212E-02                                                \r\n            37      S     -7.941604E-02  -5.612956E-02  -3.330351E-02                                                               \r\n            41      S     -2.013546E-01  -1.920103E-01  -1.842808E-01                                                               \r\n            45      S     -3.272263E-01  -3.233868E-01  -3.201148E-01                                                               \r\n            49      S     -4.440147E-01  -4.422756E-01  -4.405158E-01                                                               \r\n            53      S     -5.442857E-01  -5.434176E-01  -5.423146E-01                                                               \r\n            57      S     -6.227831E-01  -6.224241E-01  -6.217663E-01                                                               \r\n            61      S     -6.756005E-01  -6.758255E-01  -6.756700E-01                                                               \r\n            65      S     -6.998181E-01  -7.011971E-01  -7.019414E-01                                                               \r\n            69      S     -6.930268E-01  -6.971817E-01  -7.003117E-01                                                               \r\n            73      S     -6.521596E-01  -6.629374E-01  -6.743008E-01                                                               \r\n            77      S     -5.927836E-01  -6.126257E-01  -6.453890E-01                                                               \r\n            81      S     -5.129853E-01  -5.243545E-01  -5.452221E-01                                                               \r\n            85      S     -3.757259E-01  -3.640160E-01  -3.438029E-01                                                               \r\n            89      S     -3.402276E-01                                                                                             \r\n            91      S     -2.257957E-01  -1.992895E-01                                                                              \r\n            94      S     -1.983497E-01  -1.199372E-01                                                                              \r\n            97      S     -1.106124E-01  -9.194913E-02                                                                              \r\n           100      S     -9.148090E-02  -5.051503E-02   1.058399E-02                                                               \r\n           104      S     -1.370847E-02  -2.316523E-03                                                                              \r\n           107      S     -1.688395E-03   2.537355E-02   6.624850E-02   1.224473E-01                                                \r\n           112      S      5.824428E-02   6.646018E-02                                                                              \r\n           115      S      6.743953E-02   8.847223E-02   1.206946E-01   1.603431E-01   2.136930E-01   2.577728E-01                  \r\n           122      S      1.249221E-01   1.318185E-01                                                                              \r\n           125      S      1.328078E-01   1.500200E-01   1.750678E-01   2.053818E-01   2.382510E-01   2.671078E-01                  \r\n           131      S      2.882732E-01   2.978645E-01                                                                              \r\n           142      S      1.775346E-01   1.831192E-01                                                                              \r\n           145      S      1.839159E-01   1.976574E-01   2.171210E-01   2.401444E-01   2.638685E-01   2.844168E-01                  \r\n           151      S      2.986285E-01   3.029754E-01                                                                              \r\n           162      S      2.155546E-01   2.199216E-01                                                                              \r\n           165      S      2.205516E-01   2.314547E-01   2.467303E-01   2.643772E-01   2.818299E-01   2.963062E-01                  \r\n           171      S      3.054354E-01   3.077291E-01                                                                              \r\n           182      S      2.389471E-01   2.420269E-01                                                                              \r\n           185      S      2.425209E-01   2.513080E-01   2.637931E-01   2.778996E-01   2.911175E-01   3.013239E-01                  \r\n           191      S      3.072275E-01   3.076733E-01                                                                              \r\n           201      S      2.509212E-01   2.483006E-01   2.492990E-01                                                               \r\n           205      S      2.496411E-01   2.571159E-01   2.684484E-01   2.811320E-01   2.923500E-01   3.009762E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.000000E+00   9.718665E-01   9.620848E-01   8.676675E-01   8.677458E-01   6.670718E-01                  \r\n             7      S      6.573660E-01   3.674768E-01   3.863133E-01                                                               \r\n            11      S     -8.019146E-01  -7.988689E-01  -7.921307E-01  -7.857994E-01                                                \r\n            16      S      8.472287E-02   1.460630E-01                                                                              \r\n            19      S     -7.891417E-01  -7.724756E-01  -7.358532E-01                                                               \r\n            23      S     -2.045231E-01  -1.836188E-01                                                                              \r\n            26      S     -7.657560E-01  -7.345030E-01  -6.137285E-01  -4.643404E-01  -4.266365E-01                                 \r\n            32      S     -7.499855E-01  -6.894535E-01  -6.478565E-01  -6.336191E-01                                                \r\n            37      S     -7.364252E-01  -7.033836E-01  -6.788484E-01                                                               \r\n            41      S     -6.984039E-01  -6.864101E-01  -6.790750E-01                                                               \r\n            45      S     -6.046492E-01  -6.009099E-01  -5.995447E-01                                                               \r\n            49      S     -4.546567E-01  -4.541165E-01  -4.550204E-01                                                               \r\n            53      S     -2.596222E-01  -2.603494E-01  -2.621938E-01                                                               \r\n            57      S     -3.761505E-02  -3.884308E-02  -4.104473E-02                                                               \r\n            61      S      1.896548E-01   1.882372E-01   1.859984E-01                                                               \r\n            65      S      3.995707E-01   3.980118E-01   3.958816E-01                                                               \r\n            69      S      5.712031E-01   5.692080E-01   5.669767E-01                                                               \r\n            73      S      6.878281E-01   6.844872E-01   6.807010E-01                                                               \r\n            77      S      7.336639E-01   7.285418E-01   7.215962E-01                                                               \r\n            81      S      7.393234E-01   7.377341E-01   7.356259E-01                                                               \r\n            85      S      6.987415E-01   6.894072E-01   6.746840E-01                                                               \r\n            89      S      6.726593E-01                                                                                             \r\n            91      S      6.044268E-01   5.750744E-01                                                                              \r\n            94      S      5.741155E-01   4.956309E-01                                                                              \r\n            97      S      4.878994E-01   4.615935E-01                                                                              \r\n           100      S      4.609163E-01   4.030248E-01   3.018455E-01                                                               \r\n           104      S      3.522973E-01   3.309574E-01                                                                              \r\n           107      S      3.297107E-01   2.778197E-01   1.933006E-01   6.535210E-02                                                \r\n           112      S      2.266706E-01   2.071996E-01                                                                              \r\n           115      S      2.047649E-01   1.544731E-01   7.498329E-02  -2.798412E-02  -1.761654E-01  -3.078703E-01                  \r\n           122      S      9.095626E-02   7.128565E-02                                                                              \r\n           125      S      6.842279E-02   1.908387E-02  -5.366949E-02  -1.440170E-01  -2.444803E-01  -3.365883E-01                  \r\n           131      S     -4.057882E-01  -4.372320E-01                                                                              \r\n           142      S     -2.871030E-02  -4.722096E-02                                                                              \r\n           145      S     -4.988781E-02  -9.543253E-02  -1.601767E-01  -2.374903E-01  -3.180837E-01  -3.891887E-01                  \r\n           151      S     -4.388566E-01  -4.541493E-01                                                                              \r\n           162      S     -1.217815E-01  -1.383952E-01                                                                              \r\n           165      S     -1.407924E-01  -1.817182E-01  -2.387434E-01  -3.046099E-01  -3.699876E-01  -4.247070E-01                  \r\n           171      S     -4.596662E-01  -4.687643E-01                                                                              \r\n           182      S     -1.813311E-01  -1.953092E-01                                                                              \r\n           185      S     -1.974339E-01  -2.341337E-01  -2.850996E-01  -3.422675E-01  -3.959773E-01  -4.380205E-01                  \r\n           191      S     -4.632516E-01  -4.669815E-01                                                                              \r\n           201      S     -2.106860E-01  -2.053838E-01  -2.138754E-01                                                               \r\n           205      S     -2.156737E-01  -2.494381E-01  -2.975882E-01  -3.506837E-01  -3.980443E-01  -4.355462E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      4.597690E-01   4.397505E-01   4.328503E-01   3.667569E-01   3.668858E-01   2.307298E-01                  \r\n             7      S      2.245899E-01   3.930112E-02   5.107524E-02                                                               \r\n            11      S     -5.670202E-01  -5.636580E-01  -5.588022E-01  -5.540548E-01                                                \r\n            16      S     -1.250080E-01  -9.028909E-02                                                                              \r\n            19      S     -5.505982E-01  -5.395920E-01  -5.078469E-01                                                               \r\n            23      S     -2.687389E-01  -2.605903E-01                                                                              \r\n            26      S     -5.107183E-01  -4.926746E-01  -4.272033E-01  -3.707257E-01  -3.598869E-01                                 \r\n            32      S     -4.543183E-01  -4.260131E-01  -3.966550E-01  -3.821175E-01                                                \r\n            37      S     -3.593988E-01  -3.477256E-01  -3.441314E-01                                                               \r\n            41      S     -2.267714E-01  -2.232909E-01  -2.228132E-01                                                               \r\n            45      S     -6.210935E-02  -6.156319E-02  -6.255819E-02                                                               \r\n            49      S      1.115362E-01   1.111529E-01   1.097572E-01                                                               \r\n            53      S      2.682847E-01   2.678486E-01   2.666467E-01                                                               \r\n            57      S      3.838158E-01   3.839095E-01   3.833324E-01                                                               \r\n            61      S      4.395128E-01   4.409260E-01   4.414834E-01                                                               \r\n            65      S      4.251052E-01   4.295823E-01   4.324180E-01                                                               \r\n            69      S      3.391042E-01   3.509637E-01   3.598351E-01                                                               \r\n            73      S      1.859097E-01   2.149210E-01   2.442231E-01                                                               \r\n            77      S      2.195409E-02   7.379762E-02   1.541644E-01                                                               \r\n            81      S     -1.626626E-01  -1.333061E-01  -8.292859E-02                                                               \r\n            85      S     -4.317459E-01  -4.453935E-01  -4.713134E-01                                                               \r\n            89      S     -4.768261E-01                                                                                             \r\n            91      S     -6.526873E-01  -6.609582E-01                                                                              \r\n            94      S     -6.614812E-01  -7.036682E-01                                                                              \r\n            97      S     -7.358099E-01  -7.205048E-01                                                                              \r\n           100      S     -7.200755E-01  -6.871809E-01  -5.963704E-01                                                               \r\n           104      S     -7.183293E-01  -6.847181E-01                                                                              \r\n           107      S     -6.825656E-01  -6.032678E-01  -4.698427E-01  -2.492409E-01                                                \r\n           112      S     -6.416647E-01  -5.968345E-01                                                                              \r\n           115      S     -5.909670E-01  -4.799859E-01  -3.087397E-01  -8.427965E-02   2.536726E-01   5.757540E-01                  \r\n           122      S     -5.172925E-01  -4.615465E-01                                                                              \r\n           125      S     -4.534687E-01  -3.165702E-01  -1.188390E-01   1.247276E-01   3.933759E-01   6.467326E-01                  \r\n           131      S      8.394188E-01   9.241267E-01                                                                              \r\n           142      S     -3.838676E-01  -3.218173E-01                                                                              \r\n           145      S     -3.129101E-01  -1.629847E-01   4.602590E-02   2.916372E-01   5.444165E-01   7.674378E-01                  \r\n           151      S      9.224117E-01   9.696705E-01                                                                              \r\n           162      S     -2.702412E-01  -2.053525E-01                                                                              \r\n           165      S     -1.961155E-01  -4.126257E-02   1.694862E-01   4.085334E-01   6.429462E-01   8.387682E-01                  \r\n           171      S      9.652733E-01   1.000000E+00                                                                              \r\n           182      S     -1.977431E-01  -1.320924E-01                                                                              \r\n           185      S     -1.227559E-01   3.287300E-02   2.406092E-01   4.689297E-01   6.822425E-01   8.512798E-01                  \r\n           191      S      9.576989E-01   9.836243E-01                                                                              \r\n           201      S     -1.780051E-01  -1.710391E-01  -1.123764E-01                                                               \r\n           205      S     -1.028740E-01   5.237589E-02   2.572194E-01   4.771282E-01   6.741242E-01   8.354638E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.990148E-01   1.875060E-01   1.835708E-01   1.461544E-01   1.462653E-01   7.145403E-02                  \r\n             7      S      6.831270E-02  -2.764780E-02  -2.167186E-02                                                               \r\n            11      S     -2.666916E-01  -2.645741E-01  -2.621017E-01  -2.596196E-01                                                \r\n            16      S     -1.044039E-01  -8.862508E-02                                                                              \r\n            19      S     -2.558460E-01  -2.506084E-01  -2.327139E-01                                                               \r\n            23      S     -1.590984E-01  -1.571769E-01                                                                              \r\n            26      S     -2.277882E-01  -2.202152E-01  -1.945677E-01  -1.832355E-01  -1.833932E-01                                 \r\n            32      S     -1.844876E-01  -1.756016E-01  -1.614260E-01  -1.530972E-01                                                \r\n            37      S     -1.109416E-01  -1.092490E-01  -1.121390E-01                                                               \r\n            41      S     -1.736399E-02  -1.737789E-02  -1.867104E-02                                                               \r\n            45      S      8.058468E-02   8.020844E-02   7.924504E-02                                                               \r\n            49      S      1.623330E-01   1.620198E-01   1.613667E-01                                                               \r\n            53      S      2.109161E-01   2.108596E-01   2.106280E-01                                                               \r\n            57      S      2.159852E-01   2.163353E-01   2.166178E-01                                                               \r\n            61      S      1.759990E-01   1.769968E-01   1.778927E-01                                                               \r\n            65      S      9.843062E-02   1.006845E-01   1.025112E-01                                                               \r\n            69      S     -2.226422E-03   2.885434E-03   6.968603E-03                                                               \r\n            73      S     -1.086614E-01  -9.703124E-02  -8.523434E-02                                                               \r\n            77      S     -1.862652E-01  -1.662343E-01  -1.359082E-01                                                               \r\n            81      S     -2.491039E-01  -2.389929E-01  -2.214310E-01                                                               \r\n            85      S     -3.111946E-01  -3.127563E-01  -3.142711E-01                                                               \r\n            89      S     -3.150242E-01                                                                                             \r\n            91      S     -3.177262E-01  -3.192779E-01                                                                              \r\n            94      S     -3.192241E-01  -3.176132E-01                                                                              \r\n            97      S     -2.494649E-01  -2.609856E-01                                                                              \r\n           100      S     -2.612278E-01  -2.731074E-01  -2.698643E-01                                                               \r\n           104      S     -1.082520E-01  -1.350785E-01                                                                              \r\n           107      S     -1.367416E-01  -1.813082E-01  -2.207357E-01  -2.512905E-01                                                \r\n           112      S      6.637768E-02   2.834731E-02                                                                              \r\n           115      S      2.345720E-02  -5.395395E-02  -1.440410E-01  -2.308834E-01  -3.341266E-01  -4.308777E-01                  \r\n           122      S      2.908159E-01   2.408436E-01                                                                              \r\n           125      S      2.339505E-01   1.213237E-01  -2.256696E-02  -1.767059E-01  -3.204872E-01  -4.477458E-01                  \r\n           131      S     -5.386451E-01  -5.676855E-01                                                                              \r\n           142      S      5.192956E-01   4.558183E-01                                                                              \r\n           145      S      4.469566E-01   3.014140E-01   1.122018E-01  -9.283274E-02  -2.866273E-01  -4.472717E-01                  \r\n           151      S     -5.521457E-01  -5.817155E-01                                                                              \r\n           162      S      7.219124E-01   6.450413E-01                                                                              \r\n           165      S      6.344358E-01   4.610999E-01   2.375142E-01  -3.100537E-03  -2.284596E-01  -4.116952E-01                  \r\n           171      S     -5.309082E-01  -5.668943E-01                                                                              \r\n           182      S      8.740138E-01   7.813457E-01                                                                              \r\n           185      S      7.691159E-01   5.736255E-01   3.283080E-01   6.958596E-02  -1.672966E-01  -3.568463E-01                  \r\n           191      S     -4.843662E-01  -5.323002E-01                                                                              \r\n           201      S      1.000000E+00   9.477956E-01   8.404732E-01                                                               \r\n           205      S      8.258254E-01   6.145235E-01   3.612440E-01   1.011769E-01  -1.311220E-01  -3.291927E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -8.582404E-01  -7.942002E-01  -7.725077E-01  -5.681064E-01  -5.689493E-01  -1.748352E-01                  \r\n             7      S     -1.597595E-01   3.092761E-01   2.807380E-01                                                               \r\n            11      S      9.855146E-01   9.753203E-01   9.659809E-01   9.562557E-01                                                \r\n            16      S      6.331626E-01   5.691135E-01                                                                              \r\n            19      S      9.311547E-01   9.133291E-01   8.364111E-01                                                               \r\n            23      S      7.865050E-01   7.892044E-01                                                                              \r\n            26      S      7.839332E-01   7.640590E-01   7.068763E-01   7.517920E-01   7.827020E-01                                 \r\n            32      S      5.447519E-01   5.415008E-01   4.936724E-01   4.587702E-01                                                \r\n            37      S      1.437918E-01   1.608469E-01   1.968310E-01                                                               \r\n            41      S     -3.202749E-01  -3.101726E-01  -2.971523E-01                                                               \r\n            45      S     -7.154590E-01  -7.104109E-01  -7.046738E-01                                                               \r\n            49      S     -9.260628E-01  -9.242308E-01  -9.224558E-01                                                               \r\n            53      S     -8.920256E-01  -8.923403E-01  -8.935038E-01                                                               \r\n            57      S     -6.198143E-01  -6.213408E-01  -6.245396E-01                                                               \r\n            61      S     -1.805334E-01  -1.819580E-01  -1.858247E-01                                                               \r\n            65      S      3.085696E-01   3.094962E-01   3.071128E-01                                                               \r\n            69      S      7.142175E-01   7.217813E-01   7.250002E-01                                                               \r\n            73      S      9.201484E-01   9.426214E-01   9.630175E-01                                                               \r\n            77      S      8.920716E-01   9.342791E-01   1.000000E+00                                                               \r\n            81      S      7.102628E-01   7.386503E-01   7.879344E-01                                                               \r\n            85      S      3.024258E-01   2.605917E-01   1.940526E-01                                                               \r\n            89      S      1.827195E-01                                                                                             \r\n            91      S     -1.605876E-01  -2.438613E-01                                                                              \r\n            94      S     -2.466878E-01  -4.717907E-01                                                                              \r\n            97      S     -4.376628E-01  -4.934106E-01                                                                              \r\n           100      S     -4.947047E-01  -5.928365E-01  -6.769260E-01                                                               \r\n           104      S     -5.174980E-01  -5.532391E-01                                                                              \r\n           107      S     -5.551496E-01  -6.117913E-01  -6.427578E-01  -6.025700E-01                                                \r\n           112      S     -4.229466E-01  -4.499171E-01                                                                              \r\n           115      S     -4.530013E-01  -4.968328E-01  -5.193442E-01  -4.890593E-01  -3.678713E-01  -2.104283E-01                  \r\n           122      S     -1.789799E-01  -2.031283E-01                                                                              \r\n           125      S     -2.060649E-01  -2.502060E-01  -2.841824E-01  -2.848594E-01  -2.379340E-01  -1.653145E-01                  \r\n           131      S     -9.377376E-02  -4.455557E-02                                                                              \r\n           142      S      1.438320E-01   1.146793E-01                                                                              \r\n           145      S      1.109250E-01   5.258253E-02  -6.769481E-03  -4.710660E-02  -5.818987E-02  -4.656993E-02                  \r\n           151      S     -2.554793E-02  -1.477304E-02                                                                              \r\n           162      S      4.658157E-01   4.263004E-01                                                                              \r\n           165      S      4.212038E-01   3.417188E-01   2.528604E-01   1.735885E-01   1.143711E-01   7.514305E-02                  \r\n           171      S      5.014382E-02   3.895626E-02                                                                              \r\n           182      S      7.144651E-01   6.574143E-01                                                                              \r\n           185      S      6.505953E-01   5.481522E-01   4.345237E-01   3.271597E-01   2.359196E-01   1.626606E-01                  \r\n           191      S      1.056876E-01   6.859437E-02                                                                              \r\n           201      S      8.923695E-01   8.319489E-01   7.498686E-01                                                               \r\n           205      S      7.401642E-01   6.182309E-01   4.929956E-01   3.767664E-01   2.755093E-01   1.829332E-01                  \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                       0.0                       0.0                       0.0                \r\n                  102              0.0                       0.0                       0.0                       0.0                \r\n                  103              0.0                       0.0                       0.0                       0.0                \r\n                  104              0.0                       0.0                       0.0                       0.0                \r\n                  107              0.0                       0.0                       0.0                       0.0                \r\n                  108              0.0                       0.0                       0.0                       0.0                \r\n                  109              0.0                       0.0                       0.0                       0.0                \r\n                  110              0.0                       0.0                       0.0                       0.0                \r\n                  111              0.0                       0.0                       0.0                       0.0                \r\n                  112              0.0                       0.0                       0.0                       0.0                \r\n                  113              0.0                       0.0                       0.0                       0.0                \r\n                  114              0.0                       0.0                       0.0                       0.0                \r\n                  115              0.0                       0.0                       0.0                       0.0                \r\n                  116              0.0                       0.0                       0.0                       0.0                \r\n                  117              0.0                       0.0                       0.0                       0.0                \r\n                  119              0.0                       0.0                       0.0                       0.0                \r\n                  120              0.0                       0.0                       0.0                       0.0                \r\n                  121              0.0                       0.0                       0.0                       0.0                \r\n                  123              0.0                       0.0                       0.0                       0.0                \r\n                  124              0.0                       0.0                       0.0                       0.0                \r\n                  125              0.0                       0.0                       0.0                       0.0                \r\n                  126              0.0                       0.0                       0.0                       0.0                \r\n                  127              0.0                       0.0                       0.0                       0.0                \r\n                  128              0.0                       0.0                       0.0                       0.0                \r\n                  129              0.0                       0.0                       0.0                       0.0                \r\n                  130              0.0                       0.0                       0.0                       0.0                \r\n                  131              0.0                       0.0                       0.0                       0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            201  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            202  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            203  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            204  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            205  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            218  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            219  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            221  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            222  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            300  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            301  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            302  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            303  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            304  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            305  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            306  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            307  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            318  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            319  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            321  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            401  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            408  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n            410  0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0          0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          208  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          209  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          210  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          211  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          212  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          213  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          214  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          215  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          216  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          217  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          220  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          223  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          224  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          225  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          226  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          227  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          228  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          229  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          230  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          308  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          309  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          310  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          311  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          312  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          313  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          314  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          315  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          316  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          317  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          320  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          402  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          403  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          404  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          405  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          406  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          407  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n          409  0.0            0.00  0.0          0.0            0.00  0.0            0.00  0.0            0.00  0.0            0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             523              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             624              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             725              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             825              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             826              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             926              0.0                   0.0                   0.0                   0.0                   0.0           \r\n             930              0.0                   0.0                   0.0                   0.0                   0.0           \r\n            1026              0.0                   0.0                   0.0                   0.0                   0.0           \r\n            1027              0.0                   0.0                   0.0                   0.0                   0.0           \r\n            1029              0.0                   0.0                   0.0                   0.0                   0.0           \r\n            1030              0.0                   0.0                   0.0                   0.0                   0.0           \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 424      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 425      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 426      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 427      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 428      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 429      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 430      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 524      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 525      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 526      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 527      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 528      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 529      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 530      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 625      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 626      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 627      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 628      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 629      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 630      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 726      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 727      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 728      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 729      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 730      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 827      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 828      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 829      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 830      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 927      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 928      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                 929      0.0               0.0               0.0               0.0               0.0               0.0             \r\n                1028      0.0               0.0               0.0               0.0               0.0               0.0             \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                       6.498047E+00             -6.498047E+00              0.0                \r\n                  102              0.0                       1.980664E+01             -1.929883E+01              0.0                \r\n                  103              0.0                       6.616455E+01             -6.515820E+01              0.0                \r\n                  104              0.0                       1.508667E+02             -1.485713E+02              0.0                \r\n                  107              0.0                       2.586743E+02             -2.541885E+02              0.0                \r\n                  108              0.0                       3.566133E+02             -3.566133E+02              0.0                \r\n                  109              0.0                       4.189209E+02             -4.189204E+02              0.0                \r\n                  110              0.0                       4.662891E+02             -4.662891E+02              0.0                \r\n                  111              0.0                       5.056816E+02             -5.056814E+02              0.0                \r\n                  112              0.0                       5.398318E+02             -5.398318E+02              0.0                \r\n                  113              0.0                       5.701997E+02             -5.702000E+02              0.0                \r\n                  114              0.0                       5.990806E+02             -5.990804E+02              0.0                \r\n                  115              0.0                       6.326420E+02             -6.326420E+02              0.0                \r\n                  116              0.0                       6.876215E+02             -6.876215E+02              0.0                \r\n                  117              0.0                       7.912220E+02             -7.912220E+02              0.0                \r\n                  119              0.0                       9.411949E+02             -9.411949E+02              0.0                \r\n                  120              0.0                       1.117591E+03             -1.117591E+03              0.0                \r\n                  121              0.0                       9.239752E+02             -9.239752E+02              0.0                \r\n                  123              0.0                       6.861997E+02             -6.861997E+02              0.0                \r\n                  124              0.0                       5.151399E+02             -5.151401E+02              0.0                \r\n                  125              0.0                       4.064580E+02             -4.064580E+02              0.0                \r\n                  126              0.0                       3.212891E+02             -3.212891E+02              0.0                \r\n                  127              0.0                       2.407119E+02             -2.407114E+02              0.0                \r\n                  128              0.0                       1.675103E+02             -1.675103E+02              0.0                \r\n                  129              0.0                       1.006611E+02             -1.006611E+02              0.0                \r\n                  130              0.0                       4.170898E+01             -4.057520E+01              0.0                \r\n                  131              0.0                       1.654395E+01             -1.654395E+01              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200 -5.12891E+00  0.0          2.09897E+01 -1.92988E+01  0.0          2.05640E+01  0.0         -5.12793E+00  0.0        \r\n            201 -1.27036E+01  0.0          1.63286E+01 -2.05640E+01  0.0          1.27041E+01  0.0          8.35352E+00  0.0        \r\n            202 -1.27036E+01  0.0          6.84061E+01 -6.51582E+01  0.0          6.32124E+01  0.0         -1.27041E+01  0.0        \r\n            203 -3.30269E+01  0.0          5.40620E+01 -6.32124E+01  0.0          3.30269E+01  0.0          4.74990E+01  0.0        \r\n            204 -3.30269E+01  0.0          1.56695E+02 -1.48571E+02  0.0          1.47061E+02  0.0         -3.30269E+01  0.0        \r\n            205 -5.45737E+01  0.0          1.41486E+02 -1.47061E+02  0.0          5.45732E+01  0.0          8.41177E+01  0.0        \r\n            218 -1.57262E+02  0.0          9.49475E+02 -5.99197E+02  0.0          8.83097E+02  0.0         -1.57263E+02  0.0        \r\n            219 -1.48095E+02  0.0          9.41195E+02 -9.41195E+02  0.0          1.48095E+02  0.0          5.99197E+02  0.0        \r\n            221  1.17479E+02  0.0          9.23975E+02 -9.23975E+02  0.0          7.38916E+02  0.0          1.17479E+02  0.0        \r\n            222  1.50874E+02  0.0          9.43455E+02 -7.38916E+02  0.0         -1.50874E+02  0.0          9.36360E+02  0.0        \r\n            300 -3.63086E+00  0.0          1.14414E+01 -8.35352E+00  0.0          1.15352E+01  0.0         -2.86133E+00  0.0        \r\n            301 -4.27246E+00  0.0          1.10146E+01 -1.15352E+01  0.0         -1.52246E+00  0.0          1.01616E+01  0.0        \r\n            302 -2.71934E+01  0.0          5.30317E+01 -4.74990E+01  0.0          5.88828E+01  0.0          1.52246E+00  0.0        \r\n            303 -1.06329E+02  0.0         -4.52197E+00 -5.88828E+01  0.0          1.06329E+02  0.0         -8.14360E+01  0.0        \r\n            304 -1.06329E+02  0.0          1.78019E+02 -8.41177E+01  0.0          2.06349E+02  0.0         -1.06329E+02  0.0        \r\n            305 -8.12124E+01  0.0          1.89837E+02 -2.06349E+02  0.0          1.70137E+01  0.0          1.56276E+02  0.0        \r\n            306 -1.17225E+02  0.0          2.97872E+02 -2.70973E+02  0.0          3.12282E+02  0.0         -1.70137E+01  0.0        \r\n            307 -4.10225E+01  0.0          3.49614E+02 -3.12282E+02  0.0          4.10220E+01  0.0          2.38618E+02  0.0        \r\n            318 -2.89979E+02  0.0          8.42133E+02 -7.98099E+02  0.0          7.51014E+02  0.0         -2.89979E+02  0.0        \r\n            319 -3.18033E+02  0.0          8.45752E+02 -8.83097E+02  0.0          3.18033E+02  0.0          7.98099E+02  0.0        \r\n            321  2.41912E+02  0.0          9.09316E+02 -9.36360E+02  0.0          8.72289E+02  0.0          2.41912E+02  0.0        \r\n            401 -1.86523E+00  0.0          1.97832E+01 -1.86855E+01  0.0         -7.92285E+00  0.0          1.88569E+01  0.0        \r\n            408 -2.95605E+02  0.0          2.58053E+02 -1.56276E+02  0.0          3.12919E+02  0.0         -3.34007E+02  0.0        \r\n            410 -1.37843E+02  0.0          4.32688E+02 -2.38618E+02  0.0          4.33902E+02  0.0          1.57163E+01  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -4.70300E+01    0.00  2.76087E+02 -2.54189E+02    0.00  3.94858E+01    0.00  2.70973E+02    0.00 -5.45732E+01    0.00 \r\n          208 -2.80200E+01    0.00  3.69237E+02 -3.56613E+02    0.00  1.65537E+01    0.00  3.81860E+02    0.00 -3.94858E+01    0.00 \r\n          209 -1.21289E+01    0.00  4.23748E+02 -4.18921E+02    0.00  7.70386E+00    0.00  4.28575E+02    0.00 -1.65537E+01    0.00 \r\n          210 -6.19482E+00    0.00  4.67935E+02 -4.66289E+02    0.00  4.68604E+00    0.00  4.69582E+02    0.00 -7.70386E+00    0.00 \r\n          211 -4.34534E+00    0.00  5.06053E+02 -5.05682E+02    0.00  4.00439E+00    0.00  5.06425E+02    0.00 -4.68604E+00    0.00 \r\n          212 -4.33130E+00    0.00  5.39476E+02 -5.39832E+02    0.00  4.65820E+00    0.00  5.39119E+02    0.00 -4.00439E+00    0.00 \r\n          213 -5.95703E+00    0.00  5.68783E+02 -5.70200E+02    0.00  7.25610E+00    0.00  5.67366E+02    0.00 -4.65820E+00    0.00 \r\n          214 -1.09955E+01    0.00  5.95001E+02 -5.99081E+02    0.00  1.47351E+01    0.00  5.90921E+02    0.00 -7.25610E+00    0.00 \r\n          215 -2.49526E+01    0.00  6.21496E+02 -6.32642E+02    0.00  3.51698E+01    0.00  6.10350E+02    0.00 -1.47351E+01    0.00 \r\n          216 -6.07869E+01    0.00  6.59675E+02 -6.87621E+02    0.00  8.64039E+01    0.00  6.31730E+02    0.00 -3.51698E+01    0.00 \r\n          217 -1.21833E+02    0.00  7.41204E+02 -7.91222E+02    0.00  1.57263E+02    0.00  6.91186E+02    0.00 -8.64039E+01    0.00 \r\n          220 -1.53077E+01    0.00  1.21054E+03 -1.11759E+03    0.00 -1.17479E+02    0.00  1.30349E+03    0.00 -1.48095E+02    0.00 \r\n          223  1.25472E+02    0.00  6.60233E+02 -6.86200E+02    0.00 -1.00070E+02    0.00  6.34267E+02    0.00  1.50874E+02    0.00 \r\n          224  7.81438E+01    0.00  4.93214E+02 -5.15140E+02    0.00 -5.62183E+01    0.00  4.71288E+02    0.00  1.00070E+02    0.00 \r\n          225  4.67109E+01    0.00  3.95525E+02 -4.06458E+02    0.00 -3.72041E+01    0.00  3.84592E+02    0.00  5.62183E+01    0.00 \r\n          226  3.29805E+01    0.00  3.16874E+02 -3.21289E+02    0.00 -2.87573E+01    0.00  3.12459E+02    0.00  3.72041E+01    0.00 \r\n          227  2.52271E+01    0.00  2.37020E+02 -2.40712E+02    0.00 -2.16963E+01    0.00  2.33329E+02    0.00  2.87573E+01    0.00 \r\n          228  1.87832E+01    0.00  1.64464E+02 -1.67510E+02    0.00 -1.58696E+01    0.00  1.61418E+02    0.00  2.16963E+01    0.00 \r\n          229  1.30535E+01    0.00  9.77175E+01 -1.00661E+02    0.00 -1.02373E+01    0.00  9.47739E+01    0.00  1.58696E+01    0.00 \r\n          230  6.80273E+00    0.00  3.66843E+01 -4.05752E+01    0.00 -2.33691E+00    0.00  3.32925E+01    0.00  1.02373E+01    0.00 \r\n          308 -2.78354E+01    0.00  3.96877E+02 -3.81860E+02    0.00  1.46489E+01    0.00  4.12075E+02    0.00 -4.10220E+01    0.00 \r\n          309 -1.11238E+01    0.00  4.32521E+02 -4.28575E+02    0.00  7.59863E+00    0.00  4.36564E+02    0.00 -1.46489E+01    0.00 \r\n          310 -6.67090E+00    0.00  4.70609E+02 -4.69582E+02    0.00  5.74292E+00    0.00  4.71683E+02    0.00 -7.59863E+00    0.00 \r\n          311 -5.62695E+00    0.00  5.06552E+02 -5.06425E+02    0.00  5.51099E+00    0.00  5.06711E+02    0.00 -5.74292E+00    0.00 \r\n          312 -5.77014E+00    0.00  5.38838E+02 -5.39119E+02    0.00  6.02905E+00    0.00  5.38587E+02    0.00 -5.51099E+00    0.00 \r\n          313 -6.84094E+00    0.00  5.66494E+02 -5.67366E+02    0.00  7.65308E+00    0.00  5.65663E+02    0.00 -6.02905E+00    0.00 \r\n          314 -1.01766E+01    0.00  5.88240E+02 -5.90921E+02    0.00  1.27004E+01    0.00  5.85636E+02    0.00 -7.65308E+00    0.00 \r\n          315 -2.15124E+01    0.00  6.01087E+02 -6.10350E+02    0.00  3.03242E+01    0.00  5.92031E+02    0.00 -1.27004E+01    0.00 \r\n          316 -6.43272E+01    0.00  5.96374E+02 -6.31730E+02    0.00  9.83303E+01    0.00  5.61713E+02    0.00 -3.03242E+01    0.00 \r\n          317 -1.94155E+02    0.00  5.66474E+02 -6.91186E+02    0.00  2.89979E+02    0.00  4.54810E+02    0.00 -9.83303E+01    0.00 \r\n          320 -3.80605E+01    0.00  1.47148E+03 -1.30349E+03    0.00 -2.41912E+02    0.00  1.63946E+03    0.00 -3.18033E+02    0.00 \r\n          402 -2.06753E+01    0.00  5.47167E+01 -5.79761E+01    0.00 -7.56836E-02    0.00  5.87983E+01    0.00  7.92285E+00    0.00 \r\n          403 -3.90615E+01    0.00  1.20491E+02 -1.22437E+02    0.00 -8.52539E+00    0.00  1.30560E+02    0.00  7.56836E-02    0.00 \r\n          404 -4.92407E+01    0.00  1.86112E+02 -1.86510E+02    0.00  1.47876E+01    0.00  1.97854E+02    0.00  8.52539E+00    0.00 \r\n          405 -3.82092E+01    0.00  2.29958E+02 -2.20284E+02    0.00  4.73467E+01    0.00  2.44427E+02    0.00 -1.47876E+01    0.00 \r\n          406 -2.46235E+01    0.00  2.83948E+02 -2.81984E+02    0.00  2.53955E+01    0.00  2.83170E+02    0.00 -4.73467E+01    0.00 \r\n          407 -7.13550E+01    0.00  3.31309E+02 -3.85415E+02    0.00  5.17061E+01    0.00  2.79878E+02    0.00 -2.53955E+01    0.00 \r\n          409 -1.02703E+02    0.00  3.05472E+02 -3.12919E+02    0.00 -1.57163E+01    0.00  3.23083E+02    0.00 -5.17061E+01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422          4.079888E+02          9.128671E+02          8.552128E+02          4.079888E+02         -9.413685E+02      \r\n             523          2.816106E+02          4.351204E+02          3.791123E+02          2.816104E+02         -5.093655E+02      \r\n             624          2.280986E+02          2.987773E+02          2.622090E+02          2.280981E+02         -3.734805E+02      \r\n             725          1.868135E+02          2.204575E+02          1.849541E+02          1.868135E+02         -2.851484E+02      \r\n             825          1.468530E+02          1.374836E+02          1.015195E+02          6.986426E+01         -1.979819E+02      \r\n             826          1.160088E+02          7.579492E+01         -6.986426E+01          1.160093E+02         -7.579590E+01      \r\n             926          8.211719E+01          7.579492E+01          7.579590E+01          8.381836E+01         -1.078867E+02      \r\n             930          2.075635E+01         -1.824219E+00         -1.824219E+00          1.929688E+01         -2.081787E+01      \r\n            1026          3.745801E+01          4.202979E+01          4.202930E+01         -4.427246E+00         -5.564648E+01      \r\n            1027          1.977051E+01          2.507812E+01          4.427246E+00          1.977051E+01         -3.162500E+01      \r\n            1029          9.958496E+00          7.404785E+00          1.200342E+01         -5.234375E-01         -9.958984E+00      \r\n            1030          8.955078E+00          8.207520E+00          8.207520E+00          1.506836E+00         -1.200342E+01      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.320268E+06    (CYCLIC FREQUENCY =  9.006937E+01 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      3.191998E+02      5.365114E+02      6.312192E+02      2.304109E+02     -3.791123E+02     -4.079888E+02    \r\n                 424      1.842744E+02      4.277000E+02      4.718303E+02      1.381377E+02     -3.835688E+02     -2.304109E+02    \r\n                 425      1.184045E+02      3.643848E+02      3.860913E+02      9.867139E+01     -3.426787E+02     -1.381377E+02    \r\n                 426      8.661279E+01      3.001335E+02      3.121919E+02      7.455420E+01     -2.880752E+02     -9.867139E+01    \r\n                 427      6.507935E+01      2.227964E+02      2.322720E+02      5.560449E+01     -2.133208E+02     -7.455420E+01    \r\n                 428      4.855640E+01      1.535454E+02      1.605928E+02      4.150879E+01     -1.464980E+02     -5.560449E+01    \r\n                 429      3.659521E+01      8.923462E+01      9.414746E+01      3.168262E+01     -8.432178E+01     -4.150879E+01    \r\n                 430      2.911499E+01      2.977979E+01      3.257031E+01      2.586230E+01     -2.698975E+01     -3.168262E+01    \r\n                 524      2.414225E+02      3.421581E+02      3.835688E+02      2.012344E+02     -2.622090E+02     -2.816104E+02    \r\n                 525      1.746199E+02      3.134031E+02      3.426787E+02      1.480059E+02     -2.841265E+02     -2.012344E+02    \r\n                 526      1.276003E+02      2.676692E+02      2.880752E+02      1.071948E+02     -2.472637E+02     -1.480059E+02    \r\n                 527      9.271509E+01      1.988416E+02      2.133208E+02      7.823486E+01     -1.843618E+02     -1.071948E+02    \r\n                 528      6.814453E+01      1.364072E+02      1.464980E+02      5.805371E+01     -1.263169E+02     -7.823486E+01    \r\n                 529      5.169556E+01      7.796289E+01      8.432178E+01      4.533643E+01     -7.160352E+01     -5.805371E+01    \r\n                 530      4.309912E+01      2.449707E+01      2.698975E+01      4.029443E+01     -2.200488E+01     -4.533643E+01    \r\n                 625      2.024419E+02      2.536597E+02      2.841265E+02      1.767852E+02     -1.849541E+02     -2.280981E+02    \r\n                 626      1.520654E+02      2.225442E+02      2.472637E+02      1.273462E+02     -1.978247E+02     -1.767852E+02    \r\n                 627      1.094771E+02      1.664927E+02      1.843618E+02      9.160791E+01     -1.486235E+02     -1.273462E+02    \r\n                 628      7.919067E+01      1.138997E+02      1.263169E+02      6.677393E+01     -1.014829E+02     -9.160791E+01    \r\n                 629      5.900464E+01      6.383472E+01      7.160352E+01      5.123584E+01     -5.606543E+01     -6.677393E+01    \r\n                 630      4.848804E+01      1.886475E+01      2.200488E+01      4.530029E+01     -1.572510E+01     -5.123584E+01    \r\n                 726      1.611848E+02      1.692832E+02      1.978247E+02      1.355552E+02     -1.015195E+02     -1.868135E+02    \r\n                 727      1.144587E+02      1.275273E+02      1.486235E+02      9.336230E+01     -1.064307E+02     -1.355552E+02    \r\n                 728      7.951221E+01      8.763208E+01      1.014829E+02      6.566064E+01     -7.378125E+01     -9.336230E+01    \r\n                 729      5.674536E+01      4.714990E+01      5.606543E+01      4.783008E+01     -3.823486E+01     -6.566064E+01    \r\n                 730      4.435938E+01      1.148291E+01      1.572510E+01      3.968018E+01     -7.239746E+00     -4.783008E+01    \r\n                 827      9.789087E+01      8.831299E+01      1.064307E+02      7.977295E+01     -7.019482E+01     -1.160093E+02    \r\n                 828      6.691333E+01      6.092188E+01      7.378125E+01      5.405371E+01     -4.806201E+01     -7.977295E+01    \r\n                 829      4.534814E+01      2.952954E+01      3.823486E+01      3.664307E+01     -2.082324E+01     -5.405371E+01    \r\n                 830      3.383081E+01      2.708008E+00      7.239746E+00      2.888428E+01      1.824219E+00     -3.664307E+01    \r\n                 927      6.864258E+01      5.611206E+01      7.019482E+01      5.471875E+01     -4.202930E+01     -8.381836E+01    \r\n                 928      4.427393E+01      3.761694E+01      4.806201E+01      3.382910E+01     -2.717139E+01     -5.471875E+01    \r\n                 929      2.766455E+01      1.451562E+01      2.082324E+01      2.081787E+01     -8.207520E+00     -3.382910E+01    \r\n                1028      1.486426E+01      2.304663E+01      2.717139E+01      9.958984E+00     -1.892139E+01     -1.977051E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                       1.327759E+00             -1.327881E+00              0.0                \r\n                  102              0.0                       1.463745E+01             -1.426257E+01              0.0                \r\n                  103              0.0                       6.346791E+01             -6.250214E+01              0.0                \r\n                  104              0.0                       1.725924E+02             -1.699661E+02              0.0                \r\n                  107              0.0                       3.022704E+02             -2.970296E+02              0.0                \r\n                  108              0.0                       3.904536E+02             -3.904536E+02              0.0                \r\n                  109              0.0                       3.993835E+02             -3.993835E+02              0.0                \r\n                  110              0.0                       3.705630E+02             -3.705630E+02              0.0                \r\n                  111              0.0                       3.181542E+02             -3.181541E+02              0.0                \r\n                  112              0.0                       2.490677E+02             -2.490677E+02              0.0                \r\n                  113              0.0                       1.675864E+02             -1.675867E+02              0.0                \r\n                  114              0.0                       7.684131E+01             -7.684106E+01              0.0                \r\n                  115              0.0                      -2.154858E+01              2.154834E+01              0.0                \r\n                  116              0.0                      -1.296694E+02              1.296694E+02              0.0                \r\n                  117              0.0                      -2.438076E+02              2.438076E+02              0.0                \r\n                  119              0.0                      -3.593740E+02              3.593740E+02              0.0                \r\n                  120              0.0                      -4.790679E+02              4.790679E+02              0.0                \r\n                  121              0.0                      -4.360765E+02              4.360765E+02              0.0                \r\n                  123              0.0                      -3.573484E+02              3.573484E+02              0.0                \r\n                  124              0.0                      -2.941024E+02              2.941023E+02              0.0                \r\n                  125              0.0                      -2.511321E+02              2.511321E+02              0.0                \r\n                  126              0.0                      -2.115649E+02              2.115649E+02              0.0                \r\n                  127              0.0                      -1.669363E+02              1.669363E+02              0.0                \r\n                  128              0.0                      -1.206354E+02              1.206353E+02              0.0                \r\n                  129              0.0                      -7.422296E+01              7.422296E+01              0.0                \r\n                  130              0.0                      -3.109143E+01              3.024591E+01              0.0                \r\n                  131              0.0                      -1.180188E+01              1.180188E+01              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200 -1.46056E+01  0.0          1.80080E+01 -1.42626E+01  0.0          2.29914E+01  0.0         -1.46056E+01  0.0        \r\n            201 -3.08325E+01  0.0          8.02226E+00 -2.29914E+01  0.0          3.08325E+01  0.0         -7.55432E+00  0.0        \r\n            202 -3.08325E+01  0.0          6.89089E+01 -6.25021E+01  0.0          7.40769E+01  0.0         -3.08325E+01  0.0        \r\n            203 -6.94219E+01  0.0          4.16694E+01 -7.40769E+01  0.0          6.94219E+01  0.0          2.89707E+01  0.0        \r\n            204 -6.94219E+01  0.0          1.84843E+02 -1.69966E+02  0.0          1.91045E+02  0.0         -6.94219E+01  0.0        \r\n            205 -1.02475E+02  0.0          1.61511E+02 -1.91045E+02  0.0          1.02475E+02  0.0          7.28538E+01  0.0        \r\n            218  5.77114E+01  0.0         -3.60299E+02  2.28696E+02  0.0         -3.34045E+02  0.0          5.77117E+01  0.0        \r\n            219  5.66870E+01  0.0         -3.59374E+02  3.59374E+02  0.0         -5.66868E+01  0.0         -2.28696E+02  0.0        \r\n            221 -5.83862E+01  0.0         -4.36076E+02  4.36077E+02  0.0         -3.47255E+02  0.0         -5.83862E+01  0.0        \r\n            222 -8.04459E+01  0.0         -4.48945E+02  3.47255E+02  0.0          8.04459E+01  0.0         -4.48606E+02  0.0        \r\n            300 -8.97781E+00  0.0         -3.74565E+00  7.55432E+00  0.0          1.86346E+00  0.0         -9.20712E+00  0.0        \r\n            301 -3.25666E+01  0.0         -1.94714E+01 -1.86346E+00  0.0          3.79140E+01  0.0         -2.45604E+01  0.0        \r\n            302 -6.55427E+01  0.0          4.09847E+01 -2.89707E+01  0.0          7.16961E+01  0.0         -3.79140E+01  0.0        \r\n            303 -2.14910E+02  0.0         -6.76460E+01 -7.16961E+01  0.0          2.14910E+02  0.0         -2.04132E+02  0.0        \r\n            304 -2.14910E+02  0.0          2.40877E+02 -7.28538E+01  0.0          3.09458E+02  0.0         -2.14910E+02  0.0        \r\n            305 -1.51900E+02  0.0          2.70529E+02 -3.09458E+02  0.0          5.85562E+01  0.0          2.11737E+02  0.0        \r\n            306 -1.87377E+02  0.0          3.76960E+02 -3.35683E+02  0.0          4.17120E+02  0.0         -5.85562E+01  0.0        \r\n            307 -6.39906E+01  0.0          4.60741E+02 -4.17120E+02  0.0          6.39906E+01  0.0          3.07999E+02  0.0        \r\n            318  1.06374E+02  0.0         -3.17280E+02  3.01059E+02  0.0         -2.80697E+02  0.0          1.06374E+02  0.0        \r\n            319  1.21388E+02  0.0         -3.19218E+02  3.34045E+02  0.0         -1.21388E+02  0.0         -3.01059E+02  0.0        \r\n            321 -1.17581E+02  0.0         -4.35019E+02  4.48606E+02  0.0         -4.17076E+02  0.0         -1.17581E+02  0.0        \r\n            401 -4.19043E+00  0.0          4.35269E+01 -4.11484E+01  0.0         -1.73579E+01  0.0          4.14700E+01  0.0        \r\n            408 -5.25729E+02  0.0          3.89474E+02 -2.11737E+02  0.0          4.88513E+02  0.0         -5.82605E+02  0.0        \r\n            410 -2.02087E+02  0.0          5.79231E+02 -3.07999E+02  0.0          5.81012E+02  0.0          4.50244E+00  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -8.51024E+01    0.00  3.37995E+02 -2.97030E+02    0.00  6.77294E+01    0.00  3.35683E+02    0.00 -1.02475E+02    0.00 \r\n          208 -4.74537E+01    0.00  4.12775E+02 -3.90454E+02    0.00  2.71782E+01    0.00  4.35097E+02    0.00 -6.77294E+01    0.00 \r\n          209 -1.91726E+01    0.00  4.08117E+02 -3.99383E+02    0.00  1.11671E+01    0.00  4.16850E+02    0.00 -2.71782E+01    0.00 \r\n          210 -8.11273E+00    0.00  3.73895E+02 -3.70563E+02    0.00  5.05823E+00    0.00  3.77228E+02    0.00 -1.11671E+01    0.00 \r\n          211 -3.79150E+00    0.00  3.19536E+02 -3.18154E+02    0.00  2.52490E+00    0.00  3.20917E+02    0.00 -5.05823E+00    0.00 \r\n          212 -1.78436E+00    0.00  2.49875E+02 -2.49068E+02    0.00  1.04419E+00    0.00  2.50683E+02    0.00 -2.52490E+00    0.00 \r\n          213 -1.94580E-01    0.00  1.68513E+02 -1.67586E+02    0.00 -6.54541E-01    0.00  1.69440E+02    0.00 -1.04419E+00    0.00 \r\n          214  2.33270E+00    0.00  7.86716E+01 -7.68413E+01    0.00 -4.01062E+00    0.00  8.05024E+01    0.00  6.54541E-01    0.00 \r\n          215  8.04767E+00    0.00 -1.71444E+01  2.15486E+01    0.00 -1.20847E+01    0.00 -1.27405E+01    0.00  4.01062E+00    0.00 \r\n          216  2.17161E+01    0.00 -1.19162E+02  1.29669E+02    0.00 -3.13474E+01    0.00 -1.08656E+02    0.00  1.20847E+01    0.00 \r\n          217  4.45294E+01    0.00 -2.25198E+02  2.43808E+02    0.00 -5.77117E+01    0.00 -2.06588E+02    0.00  3.13474E+01    0.00 \r\n          220 -8.49731E-01    0.00 -5.19344E+02  4.79068E+02    0.00  5.83862E+01    0.00 -5.59619E+02    0.00  5.66868E+01    0.00 \r\n          223 -6.85443E+01    0.00 -3.45182E+02  3.57348E+02    0.00  5.66427E+01    0.00 -3.33016E+02    0.00 -8.04459E+01    0.00 \r\n          224 -4.56086E+01    0.00 -2.83068E+02  2.94102E+02    0.00  3.45744E+01    0.00 -2.72034E+02    0.00 -5.66427E+01    0.00 \r\n          225 -2.97548E+01    0.00 -2.45590E+02  2.51132E+02    0.00  2.49352E+01    0.00 -2.40047E+02    0.00 -3.45744E+01    0.00 \r\n          226 -2.29329E+01    0.00 -2.09472E+02  2.11565E+02    0.00  2.09306E+01    0.00 -2.07378E+02    0.00 -2.49352E+01    0.00 \r\n          227 -1.89399E+01    0.00 -1.64855E+02  1.66936E+02    0.00  1.69492E+01    0.00 -1.62774E+02    0.00 -2.09306E+01    0.00 \r\n          228 -1.51014E+01    0.00 -1.18704E+02  1.20635E+02    0.00  1.32536E+01    0.00 -1.16772E+02    0.00 -1.69492E+01    0.00 \r\n          229 -1.13004E+01    0.00 -7.21810E+01  7.42230E+01    0.00  9.34723E+00    0.00 -7.01391E+01    0.00 -1.32536E+01    0.00 \r\n          230 -6.98962E+00    0.00 -2.70905E+01  3.02458E+01    0.00  3.87042E+00    0.00 -2.47624E+01    0.00 -9.34723E+00    0.00 \r\n          308 -4.28954E+01    0.00  4.59120E+02 -4.35097E+02    0.00  2.18002E+01    0.00  4.83426E+02    0.00 -6.39906E+01    0.00 \r\n          309 -1.55614E+01    0.00  4.23833E+02 -4.16850E+02    0.00  9.32269E+00    0.00  4.30965E+02    0.00 -2.18002E+01    0.00 \r\n          310 -7.19427E+00    0.00  3.79586E+02 -3.77228E+02    0.00  5.06555E+00    0.00  3.82001E+02    0.00 -9.32269E+00    0.00 \r\n          311 -4.13696E+00    0.00  3.21936E+02 -3.20917E+02    0.00  3.20813E+00    0.00  3.22981E+02    0.00 -5.06555E+00    0.00 \r\n          312 -2.57068E+00    0.00  2.51375E+02 -2.50683E+02    0.00  1.93323E+00    0.00  2.52080E+02    0.00 -3.20813E+00    0.00 \r\n          313 -1.19757E+00    0.00  1.70230E+02 -1.69440E+02    0.00  4.62158E-01    0.00  1.71022E+02    0.00 -1.93323E+00    0.00 \r\n          314  8.86414E-01    0.00  8.19352E+01 -8.05024E+01    0.00 -2.23462E+00    0.00  8.33523E+01    0.00 -4.62158E-01    0.00 \r\n          315  5.86707E+00    0.00 -8.92236E+00  1.27405E+01    0.00 -9.49927E+00    0.00 -5.17065E+00    0.00  2.23462E+00    0.00 \r\n          316  2.21830E+01    0.00 -9.54672E+01  1.08656E+02    0.00 -3.48668E+01    0.00 -8.25259E+01    0.00  9.49927E+00    0.00 \r\n          317  7.06201E+01    0.00 -1.60056E+02  2.06588E+02    0.00 -1.06374E+02    0.00 -1.18397E+02    0.00  3.48668E+01    0.00 \r\n          320  1.90344E+00    0.00 -6.31310E+02  5.59619E+02    0.00  1.17581E+02    0.00 -7.03001E+02    0.00  1.21388E+02    0.00 \r\n          402 -4.51033E+01    0.00  1.19320E+02 -1.26505E+02    0.00 -5.95703E-02    0.00  1.28156E+02    0.00  1.73579E+01    0.00 \r\n          403 -8.39414E+01    0.00  2.57751E+02 -2.62245E+02    0.00 -1.76230E+01    0.00  2.79230E+02    0.00  5.95703E-02    0.00 \r\n          404 -1.02020E+02    0.00  3.86339E+02 -3.86890E+02    0.00  3.02441E+01    0.00  4.10892E+02    0.00  1.76230E+01    0.00 \r\n          405 -7.56099E+01    0.00  4.57559E+02 -4.36864E+02    0.00  9.26139E+01    0.00  4.87635E+02    0.00 -3.02441E+01    0.00 \r\n          406 -4.63336E+01    0.00  5.34171E+02 -5.26920E+02    0.00  4.42534E+01    0.00  5.36266E+02    0.00 -9.26139E+01    0.00 \r\n          407 -1.22879E+02    0.00  5.82479E+02 -6.75062E+02    0.00  8.62364E+01    0.00  4.94494E+02    0.00 -4.42534E+01    0.00 \r\n          409 -1.71502E+02    0.00  4.69352E+02 -4.88513E+02    0.00 -4.50244E+00    0.00  4.98407E+02    0.00 -8.62364E+01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422         -2.105217E+02         -4.389711E+02         -4.094694E+02         -2.105217E+02          4.625930E+02      \r\n             523         -1.679134E+02         -2.452290E+02         -2.120528E+02         -1.679135E+02          2.934135E+02      \r\n             624         -1.538410E+02         -1.916829E+02         -1.671250E+02         -1.538410E+02          2.448076E+02      \r\n             725         -1.379289E+02         -1.564026E+02         -1.302850E+02         -1.379289E+02          2.064057E+02      \r\n             825         -1.138383E+02         -1.037934E+02         -7.598334E+01         -5.540240E+01          1.519611E+02      \r\n             826         -9.156104E+01         -5.923853E+01          5.540240E+01         -9.156097E+01          5.923853E+01      \r\n             926         -6.581018E+01         -5.923853E+01         -5.923853E+01         -6.713910E+01          8.576520E+01      \r\n             930         -1.862476E+01          2.356079E+00          2.356201E+00         -1.764374E+01          1.871259E+01      \r\n            1026         -3.044531E+01         -3.362122E+01         -3.362103E+01          3.208862E+00          4.488477E+01      \r\n            1027         -1.640186E+01         -2.016296E+01         -3.208862E+00         -1.640198E+01          2.568066E+01      \r\n            1029         -8.654663E+00         -5.573730E+00         -9.758911E+00         -2.576904E-01          8.654907E+00      \r\n            1030         -8.175293E+00         -5.957214E+00         -5.957214E+00         -2.370972E+00          9.758911E+00      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.157086E+07    (CYCLIC FREQUENCY =  1.994752E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423     -1.702519E+02     -2.885989E+02     -3.315532E+02     -1.299824E+02      2.120528E+02      2.105217E+02    \r\n                 424     -1.079242E+02     -2.514202E+02     -2.725193E+02     -8.586600E+01      2.303210E+02      1.299824E+02    \r\n                 425     -7.630079E+01     -2.307511E+02     -2.412728E+02     -6.673558E+01      2.202294E+02      8.586600E+01    \r\n                 426     -6.067445E+01     -2.013486E+02     -2.074097E+02     -5.461331E+01      1.952874E+02      6.673558E+01    \r\n                 427     -4.910719E+01     -1.566569E+02     -1.621631E+02     -4.360101E+01      1.511508E+02      5.461331E+01    \r\n                 428     -3.909802E+01     -1.117398E+02     -1.162429E+02     -3.459491E+01      1.072368E+02      4.360101E+01    \r\n                 429     -3.123807E+01     -6.635052E+01     -6.970740E+01     -2.788104E+01      6.299359E+01      3.459491E+01    \r\n                 430     -2.605206E+01     -2.225784E+01     -2.424493E+01     -2.371106E+01      2.027075E+01      2.788104E+01    \r\n                 524     -1.488037E+02     -2.106297E+02     -2.303210E+02     -1.296939E+02      1.671250E+02      1.679135E+02    \r\n                 525     -1.159669E+02     -2.051296E+02     -2.202294E+02     -1.022398E+02      1.900299E+02      1.296939E+02    \r\n                 526     -9.085748E+01     -1.839051E+02     -1.952874E+02     -7.947513E+01      1.725228E+02      1.022398E+02    \r\n                 527     -7.061597E+01     -1.422916E+02     -1.511508E+02     -6.175684E+01      1.334324E+02      7.947513E+01    \r\n                 528     -5.511264E+01     -1.005927E+02     -1.072368E+02     -4.846857E+01      9.394855E+01      6.175684E+01    \r\n                 529     -4.404141E+01     -5.856644E+01     -6.299359E+01     -3.961438E+01      5.413928E+01      4.846857E+01    \r\n                 530     -3.799576E+01     -1.846780E+01     -2.027075E+01     -3.594818E+01      1.666486E+01      3.961438E+01    \r\n                 625     -1.398216E+02     -1.733819E+02     -1.900299E+02     -1.258022E+02      1.302850E+02      1.538410E+02    \r\n                 626     -1.109934E+02     -1.577141E+02     -1.725228E+02     -9.618469E+01      1.429053E+02      1.258022E+02    \r\n                 627     -8.461838E+01     -1.218662E+02     -1.334324E+02     -7.305212E+01      1.102999E+02      9.618469E+01    \r\n                 628     -6.452237E+01     -8.541876E+01     -9.394855E+01     -5.599255E+01      7.688910E+01      7.305212E+01    \r\n                 629     -5.037601E+01     -4.852261E+01     -5.413928E+01     -4.475922E+01      4.290594E+01      5.599255E+01    \r\n                 630     -4.266385E+01     -1.427014E+01     -1.666486E+01     -4.023376E+01      1.187549E+01      4.475922E+01    \r\n                 726     -1.211104E+02     -1.241757E+02     -1.429053E+02     -1.042921E+02      7.598334E+01      1.379289E+02    \r\n                 727     -8.978351E+01     -9.579135E+01     -1.102999E+02     -7.527496E+01      8.128278E+01      1.042921E+02    \r\n                 728     -6.532574E+01     -6.693976E+01     -7.688910E+01     -5.537640E+01      5.699054E+01      7.527496E+01    \r\n                 729     -4.865817E+01     -3.618756E+01     -4.290594E+01     -4.193976E+01      2.946924E+01      5.537640E+01    \r\n                 730     -3.915186E+01     -8.467957E+00     -1.187549E+01     -3.544800E+01      5.060425E+00      4.193976E+01    \r\n                 827     -7.837976E+01     -6.810168E+01     -8.128278E+01     -6.519861E+01      5.492041E+01      9.156097E+01    \r\n                 828     -5.556555E+01     -4.735751E+01     -5.699054E+01     -4.593256E+01      3.772461E+01      6.519861E+01    \r\n                 829     -3.915842E+01     -2.269504E+01     -2.946924E+01     -3.238416E+01      1.592072E+01      4.593256E+01    \r\n                 830     -3.008328E+01     -1.352234E+00     -5.060425E+00     -2.618335E+01     -2.356201E+00      3.238416E+01    \r\n                 927     -5.562177E+01     -4.427075E+01     -5.492041E+01     -4.509308E+01      3.362103E+01      6.713910E+01    \r\n                 928     -3.702963E+01     -2.966110E+01     -3.772461E+01     -2.896631E+01      2.159772E+01      4.509308E+01    \r\n                 929     -2.409769E+01     -1.093900E+01     -1.592072E+01     -1.871259E+01      5.957214E+00      2.896631E+01    \r\n                1028     -1.252838E+01     -1.834036E+01     -2.159772E+01     -8.654907E+00      1.508301E+01      1.640198E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                      -2.277100E+01              2.277051E+01              0.0                \r\n                  102              0.0                      -3.356421E+01              3.270435E+01              0.0                \r\n                  103              0.0                      -6.170679E+01              6.076794E+01              0.0                \r\n                  104              0.0                      -4.161279E+01              4.097974E+01              0.0                \r\n                  107              0.0                      -2.869226E+01              2.819470E+01              0.0                \r\n                  108              0.0                      -7.823486E+01              7.823499E+01              0.0                \r\n                  109              0.0                      -1.911619E+02              1.911617E+02              0.0                \r\n                  110              0.0                      -3.058287E+02              3.058287E+02              0.0                \r\n                  111              0.0                      -3.976672E+02              3.976671E+02              0.0                \r\n                  112              0.0                      -4.526637E+02              4.526637E+02              0.0                \r\n                  113              0.0                      -4.633937E+02              4.633937E+02              0.0                \r\n                  114              0.0                      -4.280098E+02              4.280097E+02              0.0                \r\n                  115              0.0                      -3.499510E+02              3.499511E+02              0.0                \r\n                  116              0.0                      -2.377938E+02              2.377938E+02              0.0                \r\n                  117              0.0                      -1.209447E+02              1.209447E+02              0.0                \r\n                  119              0.0                      -1.637891E+01              1.637891E+01              0.0                \r\n                  120              0.0                       9.101953E+01             -9.101953E+01              0.0                \r\n                  121              0.0                       1.762783E+02             -1.762783E+02              0.0                \r\n                  123              0.0                       2.323147E+02             -2.323147E+02              0.0                \r\n                  124              0.0                       2.644660E+02             -2.644660E+02              0.0                \r\n                  125              0.0                       2.817625E+02             -2.817625E+02              0.0                \r\n                  126              0.0                       2.767158E+02             -2.767158E+02              0.0                \r\n                  127              0.0                       2.439951E+02             -2.439951E+02              0.0                \r\n                  128              0.0                       1.897683E+02             -1.897683E+02              0.0                \r\n                  129              0.0                       1.214194E+02             -1.214194E+02              0.0                \r\n                  130              0.0                       5.137772E+01             -4.998056E+01              0.0                \r\n                  131              0.0                       1.534467E+01             -1.534467E+01              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200 -2.74778E+01  0.0         -2.72231E+01  3.27046E+01  0.0         -8.78345E+00  0.0         -2.74778E+01  0.0        \r\n            201 -4.98394E+01  0.0         -4.09844E+01  8.78345E+00  0.0          4.98396E+01  0.0         -5.97144E+01  0.0        \r\n            202 -4.98394E+01  0.0         -5.29116E+01  6.07678E+01  0.0         -1.44855E+01  0.0         -4.98396E+01  0.0        \r\n            203 -9.34609E+01  0.0         -8.37035E+01  1.44855E+01  0.0          9.34609E+01  0.0         -9.86719E+01  0.0        \r\n            204 -9.34609E+01  0.0         -2.51197E+01  4.09797E+01  0.0          3.33755E+01  0.0         -9.34609E+01  0.0        \r\n            205 -1.13137E+02  0.0         -3.90085E+01 -3.33755E+01  0.0          1.13137E+02  0.0         -9.71127E+01  0.0        \r\n            218  9.57349E+00  0.0         -2.04264E+01  8.74146E+00  0.0         -2.23540E+01  0.0          9.57349E+00  0.0        \r\n            219  5.09253E+00  0.0         -1.63789E+01  1.63789E+01  0.0         -5.09229E+00  0.0         -8.74146E+00  0.0        \r\n            221  2.99080E+01  0.0          1.76278E+02 -1.76278E+02  0.0          1.37196E+02  0.0          2.99080E+01  0.0        \r\n            222  5.72463E+01  0.0          1.92226E+02 -1.37196E+02  0.0         -5.72462E+01  0.0          2.00087E+02  0.0        \r\n            300 -1.49492E+01  0.0         -5.97715E+01  5.97144E+01  0.0         -4.14409E+01  0.0         -1.88918E+01  0.0        \r\n            301 -8.95962E+01  0.0         -1.09536E+02  4.14409E+01  0.0          1.31108E+02  0.0         -1.22776E+02  0.0        \r\n            302 -1.04776E+02  0.0         -8.17065E+01  9.86719E+01  0.0         -4.45288E+00  0.0         -1.31108E+02  0.0        \r\n            303 -2.70880E+02  0.0         -2.02509E+02  4.45288E+00  0.0          2.70880E+02  0.0         -3.36521E+02  0.0        \r\n            304 -2.70880E+02  0.0          7.23392E+01  9.71127E+01  0.0          1.80794E+02  0.0         -2.70880E+02  0.0        \r\n            305 -1.65101E+02  0.0          1.22117E+02 -1.80794E+02  0.0          1.18011E+02  0.0          6.63098E+01  0.0        \r\n            306 -1.43228E+02  0.0          5.64989E+01 -2.89637E+01  0.0          1.27200E+02  0.0         -1.18011E+02  0.0        \r\n            307 -4.42001E+01  0.0          1.23740E+02 -1.27200E+02  0.0          4.41998E+01  0.0          6.51274E+01  0.0        \r\n            318  1.44911E+01  0.0         -2.23712E+01  2.03328E+01  0.0         -2.52643E+01  0.0          1.44911E+01  0.0        \r\n            319  7.88086E+00  0.0         -2.15181E+01  2.23540E+01  0.0         -7.88086E+00  0.0         -2.03328E+01  0.0        \r\n            321  5.50366E+01  0.0          1.93054E+02 -2.00087E+02  0.0          1.84737E+02  0.0          5.50361E+01  0.0        \r\n            401 -6.68018E+00  0.0          6.69557E+01 -6.33970E+01  0.0         -2.64954E+01  0.0          6.37389E+01  0.0        \r\n            408 -5.19291E+02  0.0          2.34814E+02 -6.63098E+01  0.0          3.35790E+02  0.0         -5.50828E+02  0.0        \r\n            410 -1.09963E+02  0.0          1.80166E+02 -6.51274E+01  0.0          1.81141E+02  0.0         -4.29600E+01  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -8.74465E+01    0.00  1.68906E+01  2.81948E+01    0.00  6.17562E+01    0.00  2.89637E+01    0.00 -1.13137E+02    0.00 \r\n          208 -4.20865E+01    0.00 -5.65803E+01  7.82349E+01    0.00  2.24169E+01    0.00 -3.49257E+01    0.00 -6.17562E+01    0.00 \r\n          209 -1.47029E+01    0.00 -1.82747E+02  1.91162E+02    0.00  6.98901E+00    0.00 -1.74332E+02    0.00 -2.24169E+01    0.00 \r\n          210 -3.99933E+00    0.00 -3.02567E+02  3.05829E+02    0.00  1.00964E+00    0.00 -2.99306E+02    0.00 -6.98901E+00    0.00 \r\n          211  1.74683E-01    0.00 -3.96375E+02  3.97667E+02    0.00 -1.35904E+00    0.00 -3.95083E+02    0.00 -1.00964E+00    0.00 \r\n          212  1.82715E+00    0.00 -4.52153E+02  4.52664E+02    0.00 -2.29527E+00    0.00 -4.51642E+02    0.00  1.35904E+00    0.00 \r\n          213  2.47245E+00    0.00 -4.63200E+02  4.63394E+02    0.00 -2.64963E+00    0.00 -4.63007E+02    0.00  2.29527E+00    0.00 \r\n          214  2.78163E+00    0.00 -4.27866E+02  4.28010E+02    0.00 -2.91370E+00    0.00 -4.27722E+02    0.00  2.64963E+00    0.00 \r\n          215  3.32132E+00    0.00 -3.49506E+02  3.49951E+02    0.00 -3.72900E+00    0.00 -3.49062E+02    0.00  2.91370E+00    0.00 \r\n          216  4.98663E+00    0.00 -2.36422E+02  2.37794E+02    0.00 -6.24414E+00    0.00 -2.35050E+02    0.00  3.72900E+00    0.00 \r\n          217  7.90887E+00    0.00 -1.18595E+02  1.20945E+02    0.00 -9.57349E+00    0.00 -1.16245E+02    0.00  6.24414E+00    0.00 \r\n          220  1.75002E+01    0.00  9.97048E+01 -9.10195E+01    0.00 -2.99080E+01    0.00  1.08390E+02    0.00  5.09229E+00    0.00 \r\n          223  5.42755E+01    0.00  2.29278E+02 -2.32315E+02    0.00 -5.13046E+01    0.00  2.26241E+02    0.00  5.72462E+01    0.00 \r\n          224  4.64620E+01    0.00  2.59623E+02 -2.64466E+02    0.00 -4.16194E+01    0.00  2.54781E+02    0.00  5.13046E+01    0.00 \r\n          225  3.97969E+01    0.00  2.79667E+02 -2.81763E+02    0.00 -3.79745E+01    0.00  2.77571E+02    0.00  4.16194E+01    0.00 \r\n          226  3.81691E+01    0.00  2.76919E+02 -2.76716E+02    0.00 -3.83638E+01    0.00  2.77123E+02    0.00  3.79745E+01    0.00 \r\n          227  3.72326E+01    0.00  2.42813E+02 -2.43995E+02    0.00 -3.61015E+01    0.00  2.41630E+02    0.00  3.83638E+01    0.00 \r\n          228  3.42516E+01    0.00  1.87834E+02 -1.89768E+02    0.00 -3.24018E+01    0.00  1.85900E+02    0.00  3.61015E+01    0.00 \r\n          229  2.98316E+01    0.00  1.18732E+02 -1.21419E+02    0.00 -2.72615E+01    0.00  1.16045E+02    0.00  3.24018E+01    0.00 \r\n          230  2.48133E+01    0.00  4.30433E+01 -4.99806E+01    0.00 -2.11534E+01    0.00  4.06257E+01    0.00  2.72615E+01    0.00 \r\n          308 -2.87470E+01    0.00 -1.73286E+01  3.49257E+01    0.00  1.32942E+01    0.00  4.66187E-01    0.00 -4.41998E+01    0.00 \r\n          309 -7.89679E+00    0.00 -1.68290E+02  1.74332E+02    0.00  2.49951E+00    0.00 -1.62148E+02    0.00 -1.32942E+01    0.00 \r\n          310 -4.13696E-01    0.00 -2.96995E+02  2.99306E+02    0.00 -1.67206E+00    0.00 -2.94660E+02    0.00 -2.49951E+00    0.00 \r\n          311  2.55972E+00    0.00 -3.94110E+02  3.95083E+02    0.00 -3.44730E+00    0.00 -3.93140E+02    0.00  1.67206E+00    0.00 \r\n          312  3.80280E+00    0.00 -4.51257E+02  4.51642E+02    0.00 -4.15830E+00    0.00 -4.50885E+02    0.00  3.44730E+00    0.00 \r\n          313  4.21585E+00    0.00 -4.62945E+02  4.63007E+02    0.00 -4.27341E+00    0.00 -4.62902E+02    0.00  4.15830E+00    0.00 \r\n          314  4.19168E+00    0.00 -4.27808E+02  4.27722E+02    0.00 -4.10992E+00    0.00 -4.27915E+02    0.00  4.27341E+00    0.00 \r\n          315  4.23083E+00    0.00 -3.48935E+02  3.49062E+02    0.00 -4.35168E+00    0.00 -3.48833E+02    0.00  4.10992E+00    0.00 \r\n          316  5.90863E+00    0.00 -2.33431E+02  2.35050E+02    0.00 -7.46545E+00    0.00 -2.31865E+02    0.00  4.35168E+00    0.00 \r\n          317  1.09783E+01    0.00 -1.11673E+02  1.16245E+02    0.00 -1.44911E+01    0.00 -1.07618E+02    0.00  7.46545E+00    0.00 \r\n          320  3.14587E+01    0.00  1.22537E+02 -1.08390E+02    0.00 -5.50361E+01    0.00  1.36684E+02    0.00  7.88086E+00    0.00 \r\n          402 -6.83236E+01    0.00  1.80657E+02 -1.91739E+02    0.00  1.88232E-01    0.00  1.93861E+02    0.00  2.64954E+01    0.00 \r\n          403 -1.23765E+02    0.00  3.76935E+02 -3.84381E+02    0.00 -2.41504E+01    0.00  4.08189E+02    0.00 -1.88232E-01    0.00 \r\n          404 -1.40679E+02    0.00  5.34354E+02 -5.34467E+02    0.00  4.07827E+01    0.00  5.68757E+02    0.00  2.41504E+01    0.00 \r\n          405 -9.55060E+01    0.00  5.82764E+02 -5.52896E+02    0.00  1.14252E+02    0.00  6.24290E+02    0.00 -4.07827E+01    0.00 \r\n          406 -5.31199E+01    0.00  6.05045E+02 -5.88008E+02    0.00  4.20497E+01    0.00  6.16190E+02    0.00 -1.14252E+02    0.00 \r\n          407 -1.12782E+02    0.00  5.63646E+02 -6.46991E+02    0.00  7.21660E+01    0.00  4.84492E+02    0.00 -4.20497E+01    0.00 \r\n          409 -1.43682E+02    0.00  3.05349E+02 -3.35790E+02    0.00  4.29600E+01    0.00  3.29034E+02    0.00 -7.21660E+01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422          1.354073E+02          2.011088E+02          1.827604E+02          1.354073E+02         -2.388871E+02      \r\n             523          1.786855E+02          2.163902E+02          1.817738E+02          1.786855E+02         -2.799409E+02      \r\n             624          2.250744E+02          2.449678E+02          2.094202E+02          2.250744E+02         -3.325846E+02      \r\n             725          2.461845E+02          2.524219E+02          2.062058E+02          2.461845E+02         -3.510785E+02      \r\n             825          2.243944E+02          1.902898E+02          1.358273E+02          1.156044E+02         -2.917700E+02      \r\n             826          1.878044E+02          1.171100E+02         -1.156044E+02          1.878045E+02         -1.171099E+02      \r\n             926          1.384341E+02          1.171100E+02          1.171099E+02          1.410593E+02         -1.769355E+02      \r\n             930          5.095538E+01         -1.077551E+01         -1.077551E+01          5.024933E+01         -5.139221E+01      \r\n            1026          6.565613E+01          6.899323E+01          6.899323E+01         -4.384521E+00         -9.455884E+01      \r\n            1027          3.708020E+01          4.160809E+01          4.384521E+00          3.708020E+01         -5.462378E+01      \r\n            1029          2.206018E+01          8.603088E+00          2.049890E+01          5.290405E+00         -2.206018E+01      \r\n            1030          2.324097E+01          7.658569E+00          7.658569E+00          1.274817E+01         -2.049890E+01      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.380404E+07    (CYCLIC FREQUENCY =  3.104150E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      1.267229E+02      2.164158E+02      2.256793E+02      1.180385E+02     -1.817738E+02     -1.354073E+02    \r\n                 424      1.119210E+02      2.500401E+02      2.558916E+02      1.058036E+02     -2.441887E+02     -1.180385E+02    \r\n                 425      1.041732E+02      2.784418E+02      2.802351E+02      1.025429E+02     -2.766484E+02     -1.058036E+02    \r\n                 426      1.015715E+02      2.770245E+02      2.779960E+02      1.006001E+02     -2.760530E+02     -1.025429E+02    \r\n                 427      9.673192E+01      2.373622E+02      2.412304E+02      9.286382E+01     -2.334941E+02     -1.006001E+02    \r\n                 428      8.815494E+01      1.806418E+02      1.853507E+02      8.344608E+01     -1.759329E+02     -9.286382E+01    \r\n                 429      7.913779E+01      1.111814E+02      1.154897E+02      7.482944E+01     -1.068731E+02     -8.344608E+01    \r\n                 430      7.225868E+01      3.711859E+01      3.991150E+01      6.882645E+01     -3.432568E+01     -7.482944E+01    \r\n                 524      1.755082E+02      2.409147E+02      2.441887E+02      1.723309E+02     -2.094202E+02     -1.786855E+02    \r\n                 525      1.672037E+02      2.710085E+02      2.766484E+02      1.620765E+02     -2.653686E+02     -1.723309E+02    \r\n                 526      1.552088E+02      2.691853E+02      2.760530E+02      1.483411E+02     -2.623176E+02     -1.620765E+02    \r\n                 527      1.401759E+02      2.253289E+02      2.334941E+02      1.320108E+02     -2.171638E+02     -1.483411E+02    \r\n                 528      1.241414E+02      1.680636E+02      1.759329E+02      1.162720E+02     -1.601942E+02     -1.320108E+02    \r\n                 529      1.100947E+02      1.006958E+02      1.068731E+02      1.039173E+02     -9.451840E+01     -1.162720E+02    \r\n                 530      1.014050E+02      3.152707E+01      3.432568E+01      9.815073E+01     -2.872845E+01     -1.039173E+02    \r\n                 625      2.175104E+02      2.563863E+02      2.653686E+02      2.099464E+02     -2.062058E+02     -2.250744E+02    \r\n                 626      1.970807E+02      2.494520E+02      2.623176E+02      1.842149E+02     -2.365862E+02     -2.099464E+02    \r\n                 627      1.709271E+02      2.038760E+02      2.171638E+02      1.576393E+02     -1.905882E+02     -1.842149E+02    \r\n                 628      1.459692E+02      1.485241E+02      1.601942E+02      1.342991E+02     -1.368540E+02     -1.576393E+02    \r\n                 629      1.254311E+02      8.565033E+01      9.451840E+01      1.165630E+02     -7.678229E+01     -1.342991E+02    \r\n                 630      1.126873E+02      2.429916E+01      2.872845E+01      1.082315E+02     -1.986987E+01     -1.165630E+02    \r\n                 726      2.255124E+02      2.135650E+02      2.365862E+02      2.048404E+02     -1.358273E+02     -2.461845E+02    \r\n                 727      1.845834E+02      1.703312E+02      1.905882E+02      1.643265E+02     -1.500743E+02     -2.048404E+02    \r\n                 728      1.488144E+02      1.213420E+02      1.368540E+02      1.333024E+02     -1.058299E+02     -1.643265E+02    \r\n                 729      1.214073E+02      6.488712E+01      7.678229E+01      1.095121E+02     -5.299207E+01     -1.333024E+02    \r\n                 730      1.036147E+02      1.266193E+01      1.986987E+01      9.616962E+01     -5.453979E+00     -1.095121E+02    \r\n                 827      1.663923E+02      1.286622E+02      1.500743E+02      1.449801E+02     -1.072500E+02     -1.878045E+02    \r\n                 828      1.282754E+02      8.912509E+01      1.058299E+02      1.115706E+02     -7.242029E+01     -1.449801E+02    \r\n                 829      9.864743E+01      4.006888E+01      5.299207E+01      8.572424E+01     -2.714569E+01     -1.115706E+02    \r\n                 830      8.068942E+01     -2.660828E+00      5.453979E+00      7.314807E+01      1.077551E+01     -8.572424E+01    \r\n                 927      1.201819E+02      8.812155E+01      1.072500E+02      1.012709E+02     -6.899323E+01     -1.410593E+02    \r\n                 928      8.627563E+01      5.742508E+01      7.242029E+01      7.128046E+01     -4.242993E+01     -1.012709E+02    \r\n                 929      6.175839E+01      1.740216E+01      2.714569E+01      5.139221E+01     -7.658569E+00     -7.128046E+01    \r\n                1028      2.957025E+01      3.611472E+01      4.242993E+01      2.206018E+01     -2.979950E+01     -3.708020E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                      -2.011035E+01              2.011035E+01              0.0                \r\n                  102              0.0                      -3.605273E+01              3.512939E+01              0.0                \r\n                  103              0.0                      -8.418787E+01              8.290686E+01              0.0                \r\n                  104              0.0                      -1.190627E+02              1.172510E+02              0.0                \r\n                  107              0.0                      -1.606810E+02              1.578951E+02              0.0                \r\n                  108              0.0                      -2.183340E+02              2.183340E+02              0.0                \r\n                  109              0.0                      -2.686060E+02              2.686060E+02              0.0                \r\n                  110              0.0                      -2.832606E+02              2.832606E+02              0.0                \r\n                  111              0.0                      -2.556969E+02              2.556969E+02              0.0                \r\n                  112              0.0                      -1.884610E+02              1.884610E+02              0.0                \r\n                  113              0.0                      -9.085602E+01              9.085596E+01              0.0                \r\n                  114              0.0                       2.350250E+01             -2.350250E+01              0.0                \r\n                  115              0.0                       1.402896E+02             -1.402896E+02              0.0                \r\n                  116              0.0                       2.498998E+02             -2.498998E+02              0.0                \r\n                  117              0.0                       3.461163E+02             -3.461163E+02              0.0                \r\n                  119              0.0                       4.274490E+02             -4.274490E+02              0.0                \r\n                  120              0.0                       4.828384E+02             -4.828384E+02              0.0                \r\n                  121              0.0                       3.303774E+02             -3.303774E+02              0.0                \r\n                  123              0.0                       1.325812E+02             -1.325812E+02              0.0                \r\n                  124              0.0                      -2.727563E+01              2.727563E+01              0.0                \r\n                  125              0.0                      -1.375656E+02              1.375656E+02              0.0                \r\n                  126              0.0                      -2.028828E+02              2.028828E+02              0.0                \r\n                  127              0.0                      -2.176501E+02              2.176501E+02              0.0                \r\n                  128              0.0                      -1.853538E+02              1.853538E+02              0.0                \r\n                  129              0.0                      -1.182633E+02              1.182633E+02              0.0                \r\n                  130              0.0                      -4.563522E+01              4.439423E+01              0.0                \r\n                  131              0.0                       1.612851E+01             -1.612854E+01              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200 -1.58419E+01  0.0         -3.23969E+01  3.51295E+01  0.0         -1.92885E+01  0.0         -1.58420E+01  0.0        \r\n            201 -2.63324E+01  0.0         -3.88525E+01  1.92885E+01  0.0          2.63324E+01  0.0         -4.66927E+01  0.0        \r\n            202 -2.63324E+01  0.0         -7.95409E+01  8.29069E+01  0.0         -4.97971E+01  0.0         -2.63324E+01  0.0        \r\n            203 -4.31699E+01  0.0         -9.14263E+01  4.97971E+01  0.0          4.31699E+01  0.0         -9.75374E+01  0.0        \r\n            204 -4.31699E+01  0.0         -1.11445E+02  1.17251E+02  0.0         -6.61512E+01  0.0         -4.31699E+01  0.0        \r\n            205 -4.23252E+01  0.0         -1.10848E+02  6.61512E+01  0.0          4.23252E+01  0.0         -1.14968E+02  0.0        \r\n            218 -7.75226E+01  0.0          4.29499E+02 -2.66770E+02  0.0          4.02934E+02  0.0         -7.75226E+01  0.0        \r\n            219 -7.52526E+01  0.0          4.27449E+02 -4.27449E+02  0.0          7.52526E+01  0.0          2.66770E+02  0.0        \r\n            221  3.49843E+01  0.0          3.30377E+02 -3.30377E+02  0.0          2.67745E+02  0.0          3.49844E+01  0.0        \r\n            222  1.29054E+01  0.0          3.17498E+02 -2.67745E+02  0.0         -1.29053E+01  0.0          3.01814E+02  0.0        \r\n            300 -8.11414E+00  0.0         -4.86623E+01  4.66927E+01  0.0         -3.59885E+01  0.0         -1.13330E+01  0.0        \r\n            301 -5.86494E+01  0.0         -8.23525E+01  3.59885E+01  0.0          9.09229E+01  0.0         -9.08739E+01  0.0        \r\n            302 -5.48215E+01  0.0         -8.93701E+01  9.75374E+01  0.0         -4.00323E+01  0.0         -9.09229E+01  0.0        \r\n            303 -1.17480E+02  0.0         -1.34940E+02  4.00323E+01  0.0          1.17480E+02  0.0         -1.77784E+02  0.0        \r\n            304 -1.17480E+02  0.0         -5.77975E+01  1.14968E+02  0.0         -2.27350E+00  0.0         -1.17480E+02  0.0        \r\n            305 -5.99918E+01  0.0         -3.07440E+01  2.27350E+00  0.0          6.66352E+01  0.0         -4.74864E+01  0.0        \r\n            306 -2.78135E+01  0.0         -1.27278E+02  1.30228E+02  0.0         -8.96739E+01  0.0         -6.66352E+01  0.0        \r\n            307 -5.18033E+00  0.0         -1.11910E+02  8.96739E+01  0.0          5.18027E+00  0.0         -8.83047E+01  0.0        \r\n            318 -1.34148E+02  0.0          3.80183E+02 -3.59890E+02  0.0          3.41580E+02  0.0         -1.34148E+02  0.0        \r\n            319 -1.50661E+02  0.0          3.82313E+02 -4.02934E+02  0.0          1.50661E+02  0.0          3.59890E+02  0.0        \r\n            321  7.75170E+01  0.0          2.93269E+02 -3.01814E+02  0.0          2.81389E+02  0.0          7.75170E+01  0.0        \r\n            401 -3.92096E+00  0.0          3.80605E+01 -3.60905E+01  0.0         -1.49532E+01  0.0          3.62042E+01  0.0        \r\n            408 -1.68285E+02  0.0          3.71317E+00  4.74864E+01  0.0          3.79576E+01  0.0         -1.66606E+02  0.0        \r\n            410  6.18530E+00  0.0         -1.21662E+02  8.83047E+01  0.0         -1.21713E+02  0.0         -3.50944E+01  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -2.98901E+01    0.00 -1.40964E+02  1.57895E+02    0.00  1.74551E+01    0.00 -1.30228E+02    0.00 -4.23252E+01    0.00 \r\n          208 -1.13298E+01    0.00 -2.11591E+02  2.18334E+02    0.00  5.20450E+00    0.00 -2.04847E+02    0.00 -1.74551E+01    0.00 \r\n          209 -3.01060E+00    0.00 -2.66213E+02  2.68606E+02    0.00  8.16696E-01    0.00 -2.63819E+02    0.00 -5.20450E+00    0.00 \r\n          210 -1.21792E-01    0.00 -2.82503E+02  2.83261E+02    0.00 -5.73105E-01    0.00 -2.81744E+02    0.00 -8.16696E-01    0.00 \r\n          211  6.12625E-01    0.00 -2.55654E+02  2.55697E+02    0.00 -6.52161E-01    0.00 -2.55611E+02    0.00  5.73105E-01    0.00 \r\n          212  2.56073E-01    0.00 -1.88893E+02  1.88461E+02    0.00  1.40076E-01    0.00 -1.89325E+02    0.00  6.52161E-01    0.00 \r\n          213 -1.12662E+00    0.00 -9.19323E+01  9.08560E+01    0.00  2.11322E+00    0.00 -9.30085E+01    0.00 -1.40076E-01    0.00 \r\n          214 -4.40396E+00    0.00  2.10035E+01 -2.35025E+01    0.00  6.69476E+00    0.00  1.85045E+01    0.00 -2.11322E+00    0.00 \r\n          215 -1.22142E+01    0.00  1.34268E+02 -1.40290E+02    0.00  1.77337E+01    0.00  1.28247E+02    0.00 -6.69476E+00    0.00 \r\n          216 -3.05574E+01    0.00  2.35910E+02 -2.49900E+02    0.00  4.33811E+01    0.00  2.21921E+02    0.00 -1.77337E+01    0.00 \r\n          217 -6.04518E+01    0.00  3.22016E+02 -3.46116E+02    0.00  7.75226E+01    0.00  2.97917E+02    0.00 -4.33811E+01    0.00 \r\n          220 -2.01342E+01    0.00  5.21421E+02 -4.82838E+02    0.00 -3.49844E+01    0.00  5.60004E+02    0.00 -7.52526E+01    0.00 \r\n          223 -5.48785E+00    0.00  1.13779E+02 -1.32581E+02    0.00  2.38811E+01    0.00  9.49773E+01    0.00  1.29053E+01    0.00 \r\n          224 -3.81628E+01    0.00 -4.15574E+01  2.72756E+01    0.00  5.24446E+01    0.00 -5.58392E+01    0.00 -2.38811E+01    0.00 \r\n          225 -6.11973E+01    0.00 -1.47631E+02  1.37566E+02    0.00  6.99500E+01    0.00 -1.57697E+02    0.00 -5.24446E+01    0.00 \r\n          226 -7.84662E+01    0.00 -2.11786E+02  2.02883E+02    0.00  8.69823E+01    0.00 -2.20689E+02    0.00 -6.99500E+01    0.00 \r\n          227 -9.19007E+01    0.00 -2.22792E+02  2.17650E+02    0.00  9.68191E+01    0.00 -2.27934E+02    0.00 -8.69823E+01    0.00 \r\n          228 -9.90335E+01    0.00 -1.87669E+02  1.85354E+02    0.00  1.01248E+02    0.00 -1.89984E+02    0.00 -9.68191E+01    0.00 \r\n          229 -1.01842E+02    0.00 -1.18885E+02  1.18263E+02    0.00  1.02437E+02    0.00 -1.19506E+02    0.00 -1.01248E+02    0.00 \r\n          230 -1.10060E+02    0.00 -2.69867E+01  4.43942E+01    0.00  1.16914E+02    0.00 -3.45152E+01    0.00 -1.02437E+02    0.00 \r\n          308 -2.93643E+00    0.00 -2.02292E+02  2.04847E+02    0.00  6.92627E-01    0.00 -1.99712E+02    0.00 -5.18027E+00    0.00 \r\n          309  3.82416E-01    0.00 -2.62616E+02  2.63819E+02    0.00 -1.45747E+00    0.00 -2.61400E+02    0.00 -6.92627E-01    0.00 \r\n          310  1.76152E+00    0.00 -2.81408E+02  2.81744E+02    0.00 -2.06557E+00    0.00 -2.81073E+02    0.00  1.45747E+00    0.00 \r\n          311  1.93139E+00    0.00 -2.55758E+02  2.55611E+02    0.00 -1.79724E+00    0.00 -2.55910E+02    0.00  2.06557E+00    0.00 \r\n          312  1.33464E+00    0.00 -1.89827E+02  1.89325E+02    0.00 -8.72009E-01    0.00 -1.90332E+02    0.00  1.79724E+00    0.00 \r\n          313  1.03760E-02    0.00 -9.39337E+01  9.30085E+01    0.00  8.51135E-01    0.00 -9.48530E+01    0.00  8.72009E-01    0.00 \r\n          314 -2.61414E+00    0.00  1.66314E+01 -1.85045E+01    0.00  4.37714E+00    0.00  1.47870E+01    0.00 -8.51135E-01    0.00 \r\n          315 -9.10974E+00    0.00  1.23272E+02 -1.28247E+02    0.00  1.38423E+01    0.00  1.18394E+02    0.00 -4.37714E+00    0.00 \r\n          316 -3.00329E+01    0.00  2.05086E+02 -2.21921E+02    0.00  4.62235E+01    0.00  1.88581E+02    0.00 -1.38423E+01    0.00 \r\n          317 -9.01856E+01    0.00  2.40701E+02 -2.97917E+02    0.00  1.34148E+02    0.00  1.89605E+02    0.00 -4.62235E+01    0.00 \r\n          320 -3.65719E+01    0.00  6.28457E+02 -5.60004E+02    0.00 -7.75170E+01    0.00  6.96911E+02    0.00 -1.50661E+02    0.00 \r\n          402 -3.82675E+01    0.00  1.01150E+02 -1.07460E+02    0.00  2.47925E-01    0.00  1.08449E+02    0.00  1.49532E+01    0.00 \r\n          403 -6.75279E+01    0.00  2.04047E+02 -2.08535E+02    0.00 -1.22227E+01    0.00  2.20884E+02    0.00 -2.47925E-01    0.00 \r\n          404 -7.18188E+01    0.00  2.73463E+02 -2.73217E+02    0.00  2.03947E+01    0.00  2.91288E+02    0.00  1.22227E+01    0.00 \r\n          405 -4.44497E+01    0.00  2.72776E+02 -2.57046E+02    0.00  5.17365E+01    0.00  2.93884E+02    0.00 -2.03947E+01    0.00 \r\n          406 -2.22730E+01    0.00  2.45433E+02 -2.33765E+02    0.00  1.31135E+01    0.00  2.54655E+02    0.00 -5.17365E+01    0.00 \r\n          407 -3.25984E+01    0.00  1.80183E+02 -2.03183E+02    0.00  1.65975E+01    0.00  1.58379E+02    0.00 -1.31135E+01    0.00 \r\n          409 -3.31655E+01    0.00  2.31714E+01 -3.79576E+01    0.00  3.50944E+01    0.00  2.82730E+01    0.00 -1.65975E+01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422          5.823047E+01          2.833968E+02          2.739858E+02          5.823047E+01         -2.448990E+02      \r\n             523         -1.283060E+02         -4.910736E+01         -2.589136E+01         -1.283061E+02          1.240080E+02      \r\n             624         -3.104657E+02         -2.433202E+02         -1.953029E+02         -3.104658E+02          3.905607E+02      \r\n             725         -4.491965E+02         -3.746130E+02         -2.915725E+02         -4.491965E+02          5.848745E+02      \r\n             825         -4.642014E+02         -3.333923E+02         -2.222248E+02         -2.660972E+02          5.708454E+02      \r\n             826         -4.132898E+02         -2.315687E+02          2.660972E+02         -4.132898E+02          2.315687E+02      \r\n             926         -3.090579E+02         -2.315687E+02         -2.315687E+02         -3.142395E+02          3.811700E+02      \r\n             930         -1.710920E+02          5.510669E+01          5.510669E+01         -1.773682E+02          1.734180E+02      \r\n            1026         -1.499062E+02         -1.385311E+02         -1.385310E+02         -3.703003E+00          2.037999E+02      \r\n            1027         -9.167590E+01         -8.272705E+01          3.703003E+00         -9.167615E+01          1.176509E+02      \r\n            1029         -6.736548E+01          1.206299E+00         -4.114062E+01         -3.887769E+01          6.736523E+01      \r\n            1030         -8.203784E+01          1.294409E+01          1.294409E+01         -7.089111E+01          4.114062E+01      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.594316E+07    (CYCLIC FREQUENCY =  3.879975E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      2.285461E+00      3.378369E+01      9.345825E+01     -5.365955E+01      2.589136E+01     -5.823047E+01    \r\n                 424     -9.150726E+01     -9.473007E+01     -5.852783E+01     -1.293550E+02      1.309324E+02      5.365955E+01    \r\n                 425     -1.551969E+02     -1.927889E+02     -1.643630E+02     -1.810386E+02      2.212148E+02      1.293550E+02    \r\n                 426     -2.021777E+02     -2.454338E+02     -2.242948E+02     -2.233167E+02      2.665728E+02      1.810386E+02    \r\n                 427     -2.339417E+02     -2.399122E+02     -2.292871E+02     -2.445667E+02      2.505372E+02      2.233167E+02    \r\n                 428     -2.485858E+02     -1.945409E+02     -1.905218E+02     -2.526049E+02      1.985600E+02      2.445667E+02    \r\n                 429     -2.532378E+02     -1.203015E+02     -1.196686E+02     -2.538707E+02      1.209343E+02      2.526049E+02    \r\n                 430     -2.539582E+02     -3.490055E+01     -3.480545E+01     -2.531871E+02      3.499566E+01      2.538707E+02    \r\n                 524     -1.729783E+02     -1.769641E+02     -1.309324E+02     -2.176506E+02      1.953029E+02      1.283061E+02    \r\n                 525     -2.484986E+02     -2.551477E+02     -2.212148E+02     -2.793466E+02      2.890805E+02      2.176506E+02    \r\n                 526     -3.009484E+02     -2.881747E+02     -2.665728E+02     -3.225504E+02      3.097767E+02      2.793466E+02    \r\n                 527     -3.317501E+02     -2.597369E+02     -2.505372E+02     -3.409500E+02      2.689368E+02      3.225504E+02    \r\n                 528     -3.423676E+02     -1.999776E+02     -1.985600E+02     -3.437853E+02      2.013953E+02      3.409500E+02    \r\n                 529     -3.413282E+02     -1.184772E+02     -1.209343E+02     -3.388712E+02      1.160201E+02      3.437853E+02    \r\n                 530     -3.368842E+02     -3.278244E+01     -3.499566E+01     -3.340661E+02      3.056921E+01      3.388712E+02    \r\n                 625     -3.383088E+02     -3.221441E+02     -2.890805E+02     -3.661519E+02      2.915725E+02      3.104658E+02    \r\n                 626     -3.817358E+02     -3.253605E+02     -3.097767E+02     -3.973195E+02      3.409443E+02      3.661519E+02    \r\n                 627     -3.989873E+02     -2.706046E+02     -2.689368E+02     -4.006550E+02      2.722722E+02      3.973195E+02    \r\n                 628     -3.953013E+02     -1.960415E+02     -2.013953E+02     -3.899474E+02      1.906877E+02      4.006550E+02    \r\n                 629     -3.811984E+02     -1.072711E+02     -1.160201E+02     -3.724493E+02      9.852203E+01      3.899474E+02    \r\n                 630     -3.658501E+02     -2.302734E+01     -3.056921E+01     -3.586351E+02      1.548553E+01      3.724493E+02    \r\n                 726     -4.437153E+02     -3.348403E+02     -3.409443E+02     -4.382342E+02      2.222248E+02      4.491965E+02    \r\n                 727     -4.252910E+02     -2.593290E+02     -2.722722E+02     -4.123479E+02      2.463860E+02      4.382342E+02    \r\n                 728     -3.973676E+02     -1.757075E+02     -1.906877E+02     -3.823873E+02      1.607271E+02      4.123479E+02    \r\n                 729     -3.651775E+02     -8.131213E+01     -9.852203E+01     -3.479677E+02      6.410229E+01      3.823873E+02    \r\n                 730     -3.346219E+02      8.262329E-01     -1.548553E+01     -3.200312E+02     -1.713782E+01      3.479677E+02    \r\n                 827     -3.885474E+02     -2.216434E+02     -2.463860E+02     -3.638049E+02      1.969010E+02      4.132898E+02    \r\n                 828     -3.416204E+02     -1.385428E+02     -1.607271E+02     -3.194360E+02      1.163582E+02      3.638049E+02    \r\n                 829     -2.975896E+02     -4.225598E+01     -6.410229E+01     -2.757433E+02      2.040967E+01      3.194360E+02    \r\n                 830     -2.639644E+02      3.612219E+01      1.713782E+01     -2.517695E+02     -5.510669E+01      2.757433E+02    \r\n                 927     -2.816556E+02     -1.677160E+02     -1.969010E+02     -2.528022E+02      1.385310E+02      3.142395E+02    \r\n                 928     -2.295822E+02     -9.313806E+01     -1.163582E+02     -2.063623E+02      6.991821E+01      2.528022E+02    \r\n                 929     -1.900646E+02     -3.732727E+00     -2.040967E+01     -1.734180E+02     -1.294409E+01      2.063623E+02    \r\n                1028     -7.952075E+01     -5.969666E+01     -6.991821E+01     -6.736523E+01      4.947522E+01      9.167615E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                      -1.094165E+01              1.094153E+01              0.0                \r\n                  102              0.0                      -2.081531E+01              2.028229E+01              0.0                \r\n                  103              0.0                      -5.116934E+01              5.039072E+01              0.0                \r\n                  104              0.0                      -7.896786E+01              7.776624E+01              0.0                \r\n                  107              0.0                      -1.075545E+02              1.056897E+02              0.0                \r\n                  108              0.0                      -1.330825E+02              1.330825E+02              0.0                \r\n                  109              0.0                      -1.380324E+02              1.380324E+02              0.0                \r\n                  110              0.0                      -1.152024E+02              1.152024E+02              0.0                \r\n                  111              0.0                      -6.846497E+01              6.846498E+01              0.0                \r\n                  112              0.0                      -7.143433E+00              7.143433E+00              0.0                \r\n                  113              0.0                       5.634973E+01             -5.634975E+01              0.0                \r\n                  114              0.0                       1.093119E+02             -1.093119E+02              0.0                \r\n                  115              0.0                       1.418491E+02             -1.418491E+02              0.0                \r\n                  116              0.0                       1.499918E+02             -1.499918E+02              0.0                \r\n                  117              0.0                       1.415271E+02             -1.415271E+02              0.0                \r\n                  119              0.0                       1.256901E+02             -1.256901E+02              0.0                \r\n                  120              0.0                       9.625027E+01             -9.625027E+01              0.0                \r\n                  121              0.0                       8.437500E+00             -8.437500E+00              0.0                \r\n                  123              0.0                      -9.405832E+01              9.405832E+01              0.0                \r\n                  124              0.0                      -1.903497E+02              1.903497E+02              0.0                \r\n                  125              0.0                      -2.707032E+02              2.707032E+02              0.0                \r\n                  126              0.0                      -3.162856E+02              3.162856E+02              0.0                \r\n                  127              0.0                      -3.219808E+02              3.219808E+02              0.0                \r\n                  128              0.0                      -2.855341E+02              2.855342E+02              0.0                \r\n                  129              0.0                      -2.143466E+02              2.143466E+02              0.0                \r\n                  130              0.0                      -1.089268E+02              1.059647E+02              0.0                \r\n                  131              0.0                      -1.044193E+02              1.044196E+02              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200 -6.96826E+00  0.0         -1.92073E+01  2.02822E+01  0.0         -1.27059E+01  0.0         -6.96826E+00  0.0        \r\n            201 -1.08254E+01  0.0         -2.15809E+01  1.27059E+01  0.0          1.08254E+01  0.0         -2.41335E+01  0.0        \r\n            202 -1.08254E+01  0.0         -4.92589E+01  5.03907E+01  0.0         -3.40002E+01  0.0         -1.08254E+01  0.0        \r\n            203 -1.56524E+01  0.0         -5.26663E+01  3.40002E+01  0.0          1.56524E+01  0.0         -5.45851E+01  0.0        \r\n            204 -1.56524E+01  0.0         -7.62057E+01  7.77662E+01  0.0         -5.32311E+01  0.0         -1.56524E+01  0.0        \r\n            205 -1.14788E+01  0.0         -7.32596E+01  5.32311E+01  0.0          1.14788E+01  0.0         -6.64704E+01  0.0        \r\n            218 -2.58759E+01  0.0          1.28838E+02 -7.82666E+01  0.0          1.22290E+02  0.0         -2.58759E+01  0.0        \r\n            219 -2.23909E+01  0.0          1.25690E+02 -1.25690E+02  0.0          2.23909E+01  0.0          7.82666E+01  0.0        \r\n            221  3.45825E+00  0.0          8.43750E+00 -8.43750E+00  0.0          5.54559E+00  0.0          3.45825E+00  0.0        \r\n            222  2.09155E+00  0.0          7.64021E+00 -5.54559E+00  0.0         -2.09152E+00  0.0          7.88812E+00  0.0        \r\n            300 -3.42590E+00  0.0         -2.55651E+01  2.41335E+01  0.0         -1.93712E+01  0.0         -5.11884E+00  0.0        \r\n            301 -2.76732E+01  0.0         -4.17300E+01  1.93712E+01  0.0          4.42766E+01  0.0         -4.57117E+01  0.0        \r\n            302 -2.23528E+01  0.0         -5.14838E+01  5.45851E+01  0.0         -2.84895E+01  0.0         -4.42766E+01  0.0        \r\n            303 -3.97576E+01  0.0         -6.41418E+01  2.84895E+01  0.0          3.97576E+01  0.0         -7.26497E+01  0.0        \r\n            304 -3.97576E+01  0.0         -5.32981E+01  6.64704E+01  0.0         -3.12964E+01  0.0         -3.97576E+01  0.0        \r\n            305 -1.53604E+01  0.0         -4.18171E+01  3.12964E+01  0.0          2.77958E+01  0.0         -4.45059E+01  0.0        \r\n            306  3.25003E+00  0.0         -9.76481E+01  9.53525E+01  0.0         -8.26106E+01  0.0         -2.77958E+01  0.0        \r\n            307  3.59830E+00  0.0         -9.74116E+01  8.26106E+01  0.0         -3.59830E+00  0.0         -7.15850E+01  0.0        \r\n            318 -4.37303E+01  0.0          1.16047E+02 -1.09497E+02  0.0          1.06443E+02  0.0         -4.37303E+01  0.0        \r\n            319 -4.53729E+01  0.0          1.16259E+02 -1.22290E+02  0.0          4.53729E+01  0.0          1.09497E+02  0.0        \r\n            321  3.91364E+00  0.0          6.95697E+00 -7.88812E+00  0.0          6.41785E+00  0.0          3.91364E+00  0.0        \r\n            401 -2.00122E+00  0.0          1.88777E+01 -1.79247E+01  0.0         -7.36719E+00  0.0          1.79443E+01  0.0        \r\n            408 -3.51955E+01  0.0         -3.55059E+01  4.45059E+01  0.0         -2.75813E+01  0.0         -2.88795E+01  0.0        \r\n            410  2.19780E+01  0.0         -1.13182E+02  7.15850E+01  0.0         -1.13374E+02  0.0         -1.73695E+01  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -6.83266E+00    0.00 -1.01006E+02  1.05690E+02    0.00  2.18652E+00    0.00 -9.53525E+01    0.00 -1.14788E+01    0.00 \r\n          208 -1.08428E+00    0.00 -1.31869E+02  1.33082E+02    0.00 -1.79501E-02    0.00 -1.30656E+02    0.00 -2.18652E+00    0.00 \r\n          209  2.51992E-01    0.00 -1.37777E+02  1.38032E+02    0.00 -4.86031E-01    0.00 -1.37522E+02    0.00  1.79501E-02    0.00 \r\n          210  4.45271E-01    0.00 -1.15247E+02  1.15202E+02    0.00 -4.04510E-01    0.00 -1.15291E+02    0.00  4.86031E-01    0.00 \r\n          211  2.38762E-01    0.00 -6.86458E+01  6.84650E+01    0.00 -7.29980E-02    0.00 -6.88266E+01    0.00  4.04510E-01    0.00 \r\n          212 -1.89606E-01    0.00 -7.42995E+00  7.14343E+00    0.00  4.52209E-01    0.00 -7.71643E+00    0.00  7.29980E-02    0.00 \r\n          213 -8.70590E-01    0.00  5.58934E+01 -5.63497E+01    0.00  1.28894E+00    0.00  5.54370E+01    0.00 -4.52209E-01    0.00 \r\n          214 -2.10025E+00    0.00  1.08427E+02 -1.09312E+02    0.00  2.91154E+00    0.00  1.07542E+02    0.00 -1.28894E+00    0.00 \r\n          215 -4.75751E+00    0.00  1.39835E+02 -1.41849E+02    0.00  6.60348E+00    0.00  1.37822E+02    0.00 -2.91154E+00    0.00 \r\n          216 -1.08136E+01    0.00  1.45399E+02 -1.49992E+02    0.00  1.50238E+01    0.00  1.40806E+02    0.00 -6.60348E+00    0.00 \r\n          217 -2.04498E+01    0.00  1.33867E+02 -1.41527E+02    0.00  2.58759E+01    0.00  1.26206E+02    0.00 -1.50238E+01    0.00 \r\n          220 -9.46631E+00    0.00  1.05297E+02 -9.62503E+01    0.00 -3.45825E+00    0.00  1.14345E+02    0.00 -2.23909E+01    0.00 \r\n          223  8.81052E+00    0.00 -8.71901E+01  9.40583E+01    0.00 -1.55295E+01    0.00 -8.03218E+01    0.00  2.09152E+00    0.00 \r\n          224  2.58453E+01    0.00 -1.80034E+02  1.90350E+02    0.00 -3.61611E+01    0.00 -1.69718E+02    0.00  1.55295E+01    0.00 \r\n          225  4.37123E+01    0.00 -2.62019E+02  2.70703E+02    0.00 -5.12635E+01    0.00 -2.53335E+02    0.00  3.61611E+01    0.00 \r\n          226  5.93122E+01    0.00 -3.07871E+02  3.16286E+02    0.00 -6.73608E+01    0.00 -2.99457E+02    0.00  5.12635E+01    0.00 \r\n          227  7.64629E+01    0.00 -3.12465E+02  3.21981E+02    0.00 -8.55649E+01    0.00 -3.02949E+02    0.00  6.73608E+01    0.00 \r\n          228  9.45921E+01    0.00 -2.76097E+02  2.85534E+02    0.00 -1.03619E+02    0.00 -2.66659E+02    0.00  8.55649E+01    0.00 \r\n          229  1.14266E+02    0.00 -2.03216E+02  2.14347E+02    0.00 -1.24913E+02    0.00 -1.92085E+02    0.00  1.03619E+02    0.00 \r\n          230  1.53206E+02    0.00 -1.17361E+02  1.05965E+02    0.00 -1.84780E+02    0.00 -8.94214E+01    0.00  1.24913E+02    0.00 \r\n          308  2.60908E+00    0.00 -1.31782E+02  1.30656E+02    0.00 -1.61987E+00    0.00 -1.32923E+02    0.00  3.59830E+00    0.00 \r\n          309  1.41948E+00    0.00 -1.37746E+02  1.37522E+02    0.00 -1.21910E+00    0.00 -1.37978E+02    0.00  1.61987E+00    0.00 \r\n          310  1.02706E+00    0.00 -1.15504E+02  1.15291E+02    0.00 -8.34991E-01    0.00 -1.15721E+02    0.00  1.21910E+00    0.00 \r\n          311  5.67123E-01    0.00 -6.91203E+01  6.88266E+01    0.00 -2.99255E-01    0.00 -6.94160E+01    0.00  8.34991E-01    0.00 \r\n          312 -3.48206E-02    0.00 -8.07899E+00  7.71643E+00    0.00  3.68866E-01    0.00 -8.44055E+00    0.00  2.99255E-01    0.00 \r\n          313 -7.75345E-01    0.00  5.50005E+01 -5.54370E+01    0.00  1.18185E+00    0.00  5.45692E+01    0.00 -3.68866E-01    0.00 \r\n          314 -1.80883E+00    0.00  1.06876E+02 -1.07542E+02    0.00  2.43584E+00    0.00  1.06223E+02    0.00 -1.18185E+00    0.00 \r\n          315 -3.96990E+00    0.00  1.36209E+02 -1.37822E+02    0.00  5.50396E+00    0.00  1.34633E+02    0.00 -2.43584E+00    0.00 \r\n          316 -1.07902E+01    0.00  1.35309E+02 -1.40806E+02    0.00  1.60765E+01    0.00  1.29927E+02    0.00 -5.50396E+00    0.00 \r\n          317 -2.99034E+01    0.00  1.08211E+02 -1.26206E+02    0.00  4.37303E+01    0.00  9.21658E+01    0.00 -1.60765E+01    0.00 \r\n          320 -2.07296E+01    0.00  1.29131E+02 -1.14345E+02    0.00 -3.91364E+00    0.00  1.43917E+02    0.00 -4.53729E+01    0.00 \r\n          402 -1.87156E+01    0.00  4.94592E+01 -5.25913E+01    0.00  1.84326E-01    0.00  5.29842E+01    0.00  7.36719E+00    0.00 \r\n          403 -3.22092E+01    0.00  9.66005E+01 -9.89322E+01    0.00 -5.40230E+00    0.00  1.04535E+02    0.00 -1.84326E-01    0.00 \r\n          404 -3.20913E+01    0.00  1.22427E+02 -1.22192E+02    0.00  8.94246E+00    0.00  1.30501E+02    0.00  5.40230E+00    0.00 \r\n          405 -1.80204E+01    0.00  1.10899E+02 -1.03734E+02    0.00  2.03126E+01    0.00  1.20245E+02    0.00 -8.94246E+00    0.00 \r\n          406 -8.05422E+00    0.00  8.31357E+01 -7.68481E+01    0.00  2.67139E+00    0.00  8.85550E+01    0.00 -2.03126E+01    0.00 \r\n          407 -5.01486E+00    0.00  3.87464E+01 -4.15422E+01    0.00 -2.08633E-01    0.00  3.61239E+01    0.00 -2.67139E+00    0.00 \r\n          409  1.72485E-01    0.00 -3.29480E+01  2.75813E+01    0.00  1.73695E+01    0.00 -3.32863E+01    0.00  2.08633E-01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422         -1.920776E+00          5.185364E+00          5.383514E+00         -1.920776E+00         -2.414734E+00      \r\n             523         -3.958618E+00         -6.202903E+01         -6.037857E+01         -3.958588E+00          4.767422E+01      \r\n             624          3.714874E+01         -6.073180E+01         -6.551147E+01          3.714877E+01          1.805333E+01      \r\n             725          1.185504E+02         -1.088788E+01         -3.116068E+01          1.185504E+02         -8.322421E+01      \r\n             825          1.646677E+02          1.820345E+01         -1.874307E+01          1.391425E+02         -1.481390E+02      \r\n             826          1.793369E+02          4.754211E+01         -1.391425E+02          1.793369E+02         -4.754199E+01      \r\n             926          1.270179E+02          4.754211E+01          4.754199E+01          1.280653E+02         -1.345905E+02      \r\n             930          1.759218E+02         -8.323737E+01         -8.323737E+01          1.945168E+02         -1.795198E+02      \r\n            1026          6.220862E+01          1.946783E+01          1.946802E+01          2.898682E+01         -6.035913E+01      \r\n            1027          4.955432E+01          7.340881E+00         -2.898682E+01          4.955432E+01         -3.130994E+01      \r\n            1029          6.030719E+01         -4.479327E+01          2.695923E+00          7.095190E+01         -6.030707E+01      \r\n            1030          9.020532E+01         -6.871185E+01         -6.871185E+01          1.132322E+02         -2.695923E+00      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.796337E+07    (CYCLIC FREQUENCY =  4.491263E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      7.410141E+00     -6.996095E+01     -7.991397E+01      1.674112E+01      6.037857E+01      1.920776E+00    \r\n                 424      3.977292E+01     -1.457723E+02     -1.678027E+02      6.280473E+01      1.237418E+02     -1.674112E+01    \r\n                 425      8.594754E+01     -2.228761E+02     -2.483332E+02      1.090903E+02      1.974190E+02     -6.280473E+01    \r\n                 426      1.339039E+02     -2.718205E+02     -2.966340E+02      1.587174E+02      2.470069E+02     -1.090903E+02    \r\n                 427      1.819104E+02     -2.769820E+02     -3.001750E+02      2.051034E+02      2.537890E+02     -1.587174E+02    \r\n                 428      2.246870E+02     -2.446181E+02     -2.642018E+02      2.442707E+02      2.250345E+02     -2.051034E+02    \r\n                 429      2.598811E+02     -1.741854E+02     -1.897958E+02      2.754915E+02      1.585750E+02     -2.442707E+02    \r\n                 430      2.857849E+02     -7.458139E+01     -8.576440E+01      2.976966E+02      6.339832E+01     -2.754915E+02    \r\n                 524      2.580194E+01     -9.307553E+01     -1.237418E+02      5.556252E+01      6.551147E+01      3.958588E+00    \r\n                 525      9.125809E+01     -1.581539E+02     -1.974190E+02      1.269537E+02      1.188887E+02     -5.556252E+01    \r\n                 526      1.648645E+02     -2.090960E+02     -2.470069E+02      2.027755E+02      1.711852E+02     -1.269537E+02    \r\n                 527      2.347097E+02     -2.218547E+02     -2.537890E+02      2.666440E+02      1.899205E+02     -2.027755E+02    \r\n                 528      2.908641E+02     -2.008143E+02     -2.250345E+02      3.150843E+02      1.765942E+02     -2.666440E+02    \r\n                 529      3.303969E+02     -1.432625E+02     -1.585750E+02      3.457094E+02      1.279499E+02     -3.150843E+02    \r\n                 530      3.506619E+02     -5.788165E+01     -6.339832E+01      3.568376E+02      5.236499E+01     -3.457094E+02    \r\n                 625      7.976494E+01     -6.828208E+01     -1.188887E+02      1.223811E+02      3.116068E+01     -3.714877E+01    \r\n                 626      1.697994E+02     -1.237669E+02     -1.711852E+02      2.172176E+02      7.634868E+01     -1.223811E+02    \r\n                 627      2.530796E+02     -1.540586E+02     -1.899205E+02      2.889414E+02      1.181967E+02     -2.172176E+02    \r\n                 628      3.140118E+02     -1.515239E+02     -1.765942E+02      3.390822E+02      1.264535E+02     -2.889414E+02    \r\n                 629      3.518410E+02     -1.151911E+02     -1.279499E+02      3.645997E+02      1.024323E+02     -3.390822E+02    \r\n                 630      3.649569E+02     -5.195664E+01     -5.236499E+01      3.664005E+02      5.154830E+01     -3.645997E+02    \r\n                 726      1.605858E+02     -2.953644E+01     -7.634868E+01      2.026213E+02      1.874307E+01     -1.185504E+02    \r\n                 727      2.378614E+02     -8.295663E+01     -1.181967E+02      2.731015E+02      4.771658E+01     -2.026213E+02    \r\n                 728      2.953423E+02     -1.042126E+02     -1.264535E+02      3.175832E+02      8.197180E+01     -2.731015E+02    \r\n                 729      3.257027E+02     -9.431264E+01     -1.024323E+02      3.338224E+02      8.619301E+01     -3.175832E+02    \r\n                 730      3.279220E+02     -5.876014E+01     -5.154830E+01      3.260187E+02      6.597194E+01     -3.338224E+02    \r\n                 827      2.028612E+02     -2.419229E+01     -4.771658E+01      2.263855E+02      6.680298E-01     -1.793369E+02    \r\n                 828      2.423036E+02     -6.605370E+01     -8.197180E+01      2.582217E+02      5.013562E+01     -2.263855E+02    \r\n                 829      2.626708E+02     -8.174402E+01     -8.619301E+01      2.671197E+02      7.729504E+01     -2.582217E+02    \r\n                 830      2.617635E+02     -7.460468E+01     -6.597194E+01      2.670195E+02      8.323737E+01     -2.671197E+02    \r\n                 927      1.378383E+02      9.399933E+00     -6.680298E-01      1.477919E+02     -1.946802E+01     -1.280653E+02    \r\n                 928      1.578952E+02     -4.003210E+01     -5.013562E+01      1.679988E+02      2.992865E+01     -1.477919E+02    \r\n                 929      1.721929E+02     -7.300345E+01     -7.729504E+01      1.795198E+02      6.871185E+01     -1.679988E+02    \r\n                1028      5.493079E+01     -2.540756E+01     -2.992865E+01      6.030707E+01      2.088641E+01     -4.955432E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 2 - S T R E S S )\r\n \r\n              ELEMENT                              CENTER                                               EDGE\r\n                ID.                     R ----------------------- Z                         S ---------------------- PHI\r\n                  101              0.0                       4.613184E+01             -4.613232E+01              0.0                \r\n                  102              0.0                       9.224316E+01             -8.988086E+01              0.0                \r\n                  103              0.0                       2.351342E+02             -2.315562E+02              0.0                \r\n                  104              0.0                       3.820069E+02             -3.761942E+02              0.0                \r\n                  107              0.0                       5.135218E+02             -5.046182E+02              0.0                \r\n                  108              0.0                       5.779857E+02             -5.779857E+02              0.0                \r\n                  109              0.0                       4.877192E+02             -4.877191E+02              0.0                \r\n                  110              0.0                       2.599183E+02             -2.599183E+02              0.0                \r\n                  111              0.0                      -4.200708E+01              4.200720E+01              0.0                \r\n                  112              0.0                      -3.359517E+02              3.359517E+02              0.0                \r\n                  113              0.0                      -5.421417E+02              5.421416E+02              0.0                \r\n                  114              0.0                      -6.036300E+02              6.036299E+02              0.0                \r\n                  115              0.0                      -5.006332E+02              5.006331E+02              0.0                \r\n                  116              0.0                      -2.541516E+02              2.541516E+02              0.0                \r\n                  117              0.0                       4.484265E+01             -4.484265E+01              0.0                \r\n                  119              0.0                       3.184760E+02             -3.184760E+02              0.0                \r\n                  120              0.0                       5.536686E+02             -5.536686E+02              0.0                \r\n                  121              0.0                       5.238119E+02             -5.238119E+02              0.0                \r\n                  123              0.0                       3.343555E+02             -3.343555E+02              0.0                \r\n                  124              0.0                       9.424536E+01             -9.424536E+01              0.0                \r\n                  125              0.0                      -1.283605E+02              1.283605E+02              0.0                \r\n                  126              0.0                      -3.010932E+02              3.010931E+02              0.0                \r\n                  127              0.0                      -3.984006E+02              3.984006E+02              0.0                \r\n                  128              0.0                      -3.973784E+02              3.973784E+02              0.0                \r\n                  129              0.0                      -3.068730E+02              3.068730E+02              0.0                \r\n                  130              0.0                      -1.518978E+02              1.477672E+02              0.0                \r\n                  131              0.0                      -1.058392E+02              1.058392E+02              0.0                \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 3 - S T R E S S )\r\n \r\n        ELEMENT                 CENTER                         EDGE  1                   EDGE  2                   EDGE  3\r\n          ID.        R --------- PHI --------- Z            S --------- PHI           S --------- PHI           S --------- PHI\r\n            200  2.30525E+01  0.0          8.69235E+01 -8.98809E+01  0.0          6.19474E+01  0.0          2.30522E+01  0.0        \r\n            201  3.22660E+01  0.0          9.25934E+01 -6.19474E+01  0.0         -3.22660E+01  0.0          9.68231E+01  0.0        \r\n            202  3.22660E+01  0.0          2.29440E+02 -2.31556E+02  0.0          1.68838E+02  0.0          3.22660E+01  0.0        \r\n            203  3.59741E+01  0.0          2.32058E+02 -1.68838E+02  0.0         -3.59741E+01  0.0          2.34778E+02  0.0        \r\n            204  3.59741E+01  0.0          3.75659E+02 -3.76194E+02  0.0          2.86155E+02  0.0          3.59741E+01  0.0        \r\n            205  3.67804E+00  0.0          3.52861E+02 -2.86155E+02  0.0         -3.67810E+00  0.0          2.90398E+02  0.0        \r\n            218 -4.77498E+01  0.0          3.11878E+02 -1.99440E+02  0.0          2.87957E+02  0.0         -4.77498E+01  0.0        \r\n            219 -5.50542E+01  0.0          3.18476E+02 -3.18476E+02  0.0          5.50543E+01  0.0          1.99440E+02  0.0        \r\n            221  8.11328E+01  0.0          5.23812E+02 -5.23812E+02  0.0          4.11577E+02  0.0          8.11328E+01  0.0        \r\n            222  9.83046E+01  0.0          5.33829E+02 -4.11577E+02  0.0         -9.83046E+01  0.0          5.34356E+02  0.0        \r\n            300  1.06548E+01  0.0          1.04230E+02 -9.68231E+01  0.0          8.08143E+01  0.0          1.75647E+01  0.0        \r\n            301  1.00379E+02  0.0          1.64046E+02 -8.08143E+01  0.0         -1.66675E+02  0.0          1.78316E+02  0.0        \r\n            302  6.61895E+01  0.0          2.26725E+02 -2.34778E+02  0.0          1.44430E+02  0.0          1.66675E+02  0.0        \r\n            303  7.76297E+01  0.0          2.35046E+02 -1.44430E+02  0.0         -7.76297E+01  0.0          2.16051E+02  0.0        \r\n            304  7.76297E+01  0.0          3.00660E+02 -2.90398E+02  0.0          2.38988E+02  0.0          7.76297E+01  0.0        \r\n            305 -1.26947E+00  0.0          2.63531E+02 -2.38988E+02  0.0         -8.21315E+01  0.0          2.50741E+02  0.0        \r\n            306 -8.10270E+01  0.0          5.02803E+02 -4.79062E+02  0.0          4.61489E+02  0.0          8.21315E+01  0.0        \r\n            307 -3.92377E+01  0.0          5.31178E+02 -4.61489E+02  0.0          3.92377E+01  0.0          3.77574E+02  0.0        \r\n            318 -8.29963E+01  0.0          2.67062E+02 -2.54245E+02  0.0          2.31149E+02  0.0         -8.29963E+01  0.0        \r\n            319 -1.11511E+02  0.0          2.70742E+02 -2.87957E+02  0.0          1.11511E+02  0.0          2.54245E+02  0.0        \r\n            321  1.50553E+02  0.0          5.14236E+02 -5.34356E+02  0.0          4.91591E+02  0.0          1.50553E+02  0.0        \r\n            401  1.00564E+01  0.0         -9.18502E+01  8.73495E+01  0.0          3.55656E+01  0.0         -8.72368E+01  0.0        \r\n            408 -5.48634E+01  0.0          2.80584E+02 -2.50741E+02  0.0          2.85875E+02  0.0         -1.00244E+02  0.0        \r\n            410 -1.58592E+02  0.0          6.33588E+02 -3.77574E+02  0.0          6.34978E+02  0.0          6.37455E+01  0.0        \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n          V E L O C I T I E S   I N   A X I S Y M M E T R I C   F L U I D   E L E M E N T S   ( C A X I F 4 - S T R E S S )\r\n \r\n      ELEMENT               CENTER                      EDGE  1              EDGE  2              EDGE  3              EDGE  4\r\n        ID.         R ------- PHI ------ Z            S ------- PHI        S ------- PHI        S ------- PHI        S ------- PHI\r\n          207 -7.80835E+00    0.00  5.01992E+02 -5.04618E+02    0.00  1.92947E+01    0.00  4.79062E+02    0.00  3.67810E+00    0.00 \r\n          208 -1.53618E+01    0.00  5.82315E+02 -5.77986E+02    0.00  1.14289E+01    0.00  5.86645E+02    0.00 -1.92947E+01    0.00 \r\n          209 -8.56993E+00    0.00  4.90838E+02 -4.87719E+02    0.00  5.71100E+00    0.00  4.93957E+02    0.00 -1.14289E+01    0.00 \r\n          210 -3.89166E+00    0.00  2.61903E+02 -2.59918E+02    0.00  2.07251E+00    0.00  2.63888E+02    0.00 -5.71100E+00    0.00 \r\n          211 -8.58154E-01    0.00 -4.06825E+01  4.20071E+01    0.00 -3.56018E-01    0.00 -3.93579E+01    0.00 -2.07251E+00    0.00 \r\n          212  1.04150E+00    0.00 -3.35204E+02  3.35952E+02    0.00 -1.72687E+00    0.00 -3.34456E+02    0.00  3.56018E-01    0.00 \r\n          213  1.66925E+00    0.00 -5.42204E+02  5.42142E+02    0.00 -1.61160E+00    0.00 -5.42268E+02    0.00  1.72687E+00    0.00 \r\n          214  2.81670E-01    0.00 -6.05081E+02  6.03630E+02    0.00  1.04825E+00    0.00 -6.06532E+02    0.00  1.61160E+00    0.00 \r\n          215 -4.80263E+00    0.00 -5.04729E+02  5.00633E+02    0.00  8.55695E+00    0.00 -5.08824E+02    0.00 -1.04825E+00    0.00 \r\n          216 -1.69904E+01    0.00 -2.63352E+02  2.54152E+02    0.00  2.54238E+01    0.00 -2.72552E+02    0.00 -8.55695E+00    0.00 \r\n          217 -3.65868E+01    0.00  2.90833E+01 -4.48427E+01    0.00  4.77498E+01    0.00  1.33239E+01    0.00 -2.54238E+01    0.00 \r\n          220  1.30393E+01    0.00  6.01334E+02 -5.53669E+02    0.00 -8.11328E+01    0.00  6.49000E+02    0.00 -5.50543E+01    0.00 \r\n          223  8.20574E+01    0.00  3.17747E+02 -3.34355E+02    0.00 -6.58102E+01    0.00  3.01139E+02    0.00  9.83046E+01    0.00 \r\n          224  5.40013E+01    0.00  8.24364E+01 -9.42454E+01    0.00 -4.21923E+01    0.00  7.06274E+01    0.00  6.58102E+01    0.00 \r\n          225  3.70155E+01    0.00 -1.34314E+02  1.28360E+02    0.00 -3.18387E+01    0.00 -1.40267E+02    0.00  4.21923E+01    0.00 \r\n          226  3.01729E+01    0.00 -3.02835E+02  3.01093E+02    0.00 -2.85071E+01    0.00 -3.04576E+02    0.00  3.18387E+01    0.00 \r\n          227  3.14609E+01    0.00 -3.95313E+02  3.98401E+02    0.00 -3.44147E+01    0.00 -3.92224E+02    0.00  2.85071E+01    0.00 \r\n          228  4.05312E+01    0.00 -3.90984E+02  3.97378E+02    0.00 -4.66478E+01    0.00 -3.84589E+02    0.00  3.44147E+01    0.00 \r\n          229  5.69981E+01    0.00 -2.96052E+02  3.06873E+02    0.00 -6.73484E+01    0.00 -2.85231E+02    0.00  4.66478E+01    0.00 \r\n          230  9.34781E+01    0.00 -1.48255E+02  1.47767E+02    0.00 -1.23763E+02    0.00 -1.22452E+02    0.00  6.73484E+01    0.00 \r\n          308 -2.67607E+01    0.00  6.00854E+02 -5.86645E+02    0.00  1.42836E+01    0.00  6.15232E+02    0.00 -3.92377E+01    0.00 \r\n          309 -1.03208E+01    0.00  4.98393E+02 -4.93957E+02    0.00  6.35797E+00    0.00  5.02913E+02    0.00 -1.42836E+01    0.00 \r\n          310 -4.17276E+00    0.00  2.66309E+02 -2.63888E+02    0.00  1.98743E+00    0.00  2.68760E+02    0.00 -6.35797E+00    0.00 \r\n          311 -3.35571E-01    0.00 -3.75465E+01  3.93579E+01    0.00 -1.31635E+00    0.00 -3.57289E+01    0.00 -1.98743E+00    0.00 \r\n          312  2.48666E+00    0.00 -3.33186E+02  3.34456E+02    0.00 -3.65692E+00    0.00 -3.31923E+02    0.00  1.31635E+00    0.00 \r\n          313  4.06223E+00    0.00 -5.41832E+02  5.42268E+02    0.00 -4.46753E+00    0.00 -5.41408E+02    0.00  3.65692E+00    0.00 \r\n          314  3.62549E+00    0.00 -6.07426E+02  6.06532E+02    0.00 -2.78345E+00    0.00 -6.08323E+02    0.00  4.46753E+00    0.00 \r\n          315 -5.08224E-01    0.00 -5.12284E+02  5.08824E+02    0.00  3.79999E+00    0.00 -5.15705E+02    0.00  2.78345E+00    0.00 \r\n          316 -1.40711E+01    0.00 -2.83232E+02  2.72552E+02    0.00  2.43422E+01    0.00 -2.93732E+02    0.00 -3.79999E+00    0.00 \r\n          317 -5.36693E+01    0.00 -2.48444E+01 -1.33239E+01    0.00  8.29963E+01    0.00 -5.89072E+01    0.00 -2.43422E+01    0.00 \r\n          320  1.95208E+01    0.00  7.27619E+02 -6.49000E+02    0.00 -1.50553E+02    0.00  8.06238E+02    0.00 -1.11511E+02    0.00 \r\n          402  8.95334E+01    0.00 -2.36582E+02  2.51824E+02    0.00 -1.22601E+00    0.00 -2.53193E+02    0.00 -3.55656E+01    0.00 \r\n          403  1.49469E+02    0.00 -4.44264E+02  4.56137E+02    0.00  2.27054E+01    0.00 -4.80556E+02    0.00  1.22601E+00    0.00 \r\n          404  1.37211E+02    0.00 -5.24380E+02  5.22750E+02    0.00 -3.73992E+01    0.00 -5.59473E+02    0.00 -2.27054E+01    0.00 \r\n          405  6.73944E+01    0.00 -4.14319E+02  3.83345E+02    0.00 -7.22092E+01    0.00 -4.53569E+02    0.00  3.73992E+01    0.00 \r\n          406  2.53658E+01    0.00 -2.20145E+02  1.88686E+02    0.00  3.28662E+00    0.00 -2.48991E+02    0.00  7.22092E+01    0.00 \r\n          407 -2.27447E+01    0.00  2.96213E+01 -5.23221E+01    0.00  3.58104E+01    0.00  7.84656E+00    0.00 -3.28662E+00    0.00 \r\n          409 -6.75699E+01    0.00  2.98148E+02 -2.85875E+02    0.00 -6.37455E+01    0.00  3.11689E+02    0.00 -3.58104E+01    0.00 \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 3 - S T R E S S )\r\n \r\n         ELEMENT                        CENTER                          EDGE  1               EDGE  2               EDGE  3\r\n           ID.                 R ------------------- Z                     S                     S                     S\r\n             422          2.350721E+02          5.151769E+02          4.820416E+02          2.350721E+02         -5.345992E+02      \r\n             523          8.988800E+01          1.620499E+02          1.438148E+02          8.988794E+01         -1.793692E+02      \r\n             624         -4.279047E+01         -4.666111E+01         -3.990198E+01         -4.279047E+01          6.329382E+01      \r\n             725         -1.218678E+02         -1.754260E+02         -1.517923E+02         -1.218678E+02          2.065039E+02      \r\n             825         -1.287596E+02         -1.896266E+02         -1.563753E+02         -3.036259E+01          2.111176E+02      \r\n             826         -8.962390E+01         -1.113551E+02          3.036259E+01         -8.962392E+01          1.113551E+02      \r\n             926         -8.576186E+01         -1.113551E+02         -1.113551E+02         -8.826981E+01          1.275900E+02      \r\n             930          6.788463E+01         -5.343973E+01         -5.343967E+01          8.480105E+01         -7.024117E+01      \r\n            1026         -4.502869E+01         -8.615958E+01         -8.615953E+01          3.105063E+01          8.958882E+01      \r\n            1027         -1.581372E+01         -5.816190E+01         -3.105063E+01         -1.581372E+01          5.820709E+01      \r\n            1029          1.641938E+01         -5.321228E+01         -3.129469E+01          5.323541E+01         -1.641938E+01      \r\n            1030          3.967171E+01         -7.181416E+01         -7.181416E+01          7.673775E+01          3.129469E+01      \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.103830E+08    (CYCLIC FREQUENCY =  5.128385E+02 HZ)\r\n\r\n                        V E L O C I T I E S   I N   S L O T   E L E M E N T S   ( C S L O T 4 - S T R E S S )\r\n \r\n             ELEMENT                  CENTER                    EDGE  1           EDGE  2           EDGE  3           EDGE  4\r\n               ID.             R --------------- Z                 S                 S                 S                 S\r\n                 423      1.780911E+02      2.385102E+02      2.992899E+02      1.211101E+02     -1.438148E+02     -2.350721E+02    \r\n                 424      9.550742E+01      4.686560E+01      7.135510E+01      6.990485E+01     -2.237610E+01     -1.211101E+02    \r\n                 425      6.200000E+01     -1.473691E+02     -1.386738E+02      5.409509E+01      1.560644E+02     -6.990485E+01    \r\n                 426      5.428601E+01     -3.045673E+02     -3.047583E+02      5.447701E+01      3.043763E+02     -5.409509E+01    \r\n                 427      6.324039E+01     -3.824519E+02     -3.912153E+02      7.200379E+01      3.736885E+02     -5.447701E+01    \r\n                 428      8.505042E+01     -3.698862E+02     -3.829328E+02      9.809711E+01      3.568396E+02     -7.200379E+01    \r\n                 429      1.122641E+02     -2.689387E+02     -2.831056E+02      1.264309E+02      2.547717E+02     -9.809711E+01    \r\n                 430      1.372433E+02     -1.068836E+02     -1.186303E+02      1.504460E+02      9.513696E+01     -1.264309E+02    \r\n                 524      6.405276E+01     -4.245361E+00      2.237610E+01      3.821747E+01      3.990198E+01     -8.988794E+01    \r\n                 525      3.300000E+01     -1.618037E+02     -1.560644E+02      2.778253E+01      1.675430E+02     -3.821747E+01    \r\n                 526      3.485739E+01     -2.973015E+02     -3.043763E+02      4.193225E+01      2.902267E+02     -2.778253E+01    \r\n                 527      5.759097E+01     -3.580297E+02     -3.736885E+02      7.324974E+01      3.423711E+02     -4.193225E+01    \r\n                 528      9.145747E+01     -3.386317E+02     -3.568396E+02      1.096653E+02      3.204240E+02     -7.324974E+01    \r\n                 529      1.249504E+02     -2.394866E+02     -2.547717E+02      1.402356E+02      2.242014E+02     -1.096653E+02    \r\n                 530      1.463947E+02     -8.827612E+01     -9.513696E+01      1.545201E+02      8.141528E+01     -1.402356E+02    \r\n                 625     -4.008340E+01     -1.643284E+02     -1.675430E+02     -3.737640E+01      1.517923E+02      4.279047E+01    \r\n                 626     -1.827048E+01     -2.711207E+02     -2.902267E+02      8.354797E-01      2.520147E+02      3.737640E+01    \r\n                 627      2.530894E+01     -3.178977E+02     -3.423711E+02      4.978236E+01      2.934243E+02     -8.354797E-01    \r\n                 628      7.380819E+01     -2.963983E+02     -3.204240E+02      9.783401E+01      2.723724E+02     -4.978236E+01    \r\n                 629      1.151690E+02     -2.068664E+02     -2.242014E+02      1.325040E+02      1.895313E+02     -9.783401E+01    \r\n                 630      1.371093E+02     -7.615219E+01     -8.141528E+01      1.434081E+02      7.088910E+01     -1.325040E+02    \r\n                 726     -8.989047E+01     -2.164037E+02     -2.520147E+02     -5.791321E+01      1.563753E+02      1.218678E+02    \r\n                 727     -2.211736E+01     -2.576284E+02     -2.934243E+02      1.367849E+01      2.218326E+02      5.791321E+01    \r\n                 728      4.338102E+01     -2.426699E+02     -2.723724E+02      7.308354E+01      2.129674E+02     -1.367849E+01    \r\n                 729      9.284408E+01     -1.697707E+02     -1.895313E+02      1.126046E+02      1.500101E+02     -7.308354E+01    \r\n                 730      1.157378E+02     -6.705980E+01     -7.088910E+01      1.244540E+02      6.323047E+01     -1.126046E+02    \r\n                 827     -5.198239E+01     -1.841911E+02     -2.218326E+02     -1.434083E+01      1.465495E+02      8.962392E+01    \r\n                 828      1.703640E+01     -1.815902E+02     -2.129674E+02      4.841363E+01      1.502129E+02      1.434083E+01    \r\n                 829      6.941338E+01     -1.290104E+02     -1.500101E+02      9.041310E+01      1.080106E+02     -4.841363E+01    \r\n                 830      9.345047E+01     -5.833511E+01     -6.323047E+01      1.092973E+02      5.343967E+01     -9.041310E+01    \r\n                 927     -5.579632E+01     -1.163545E+02     -1.465495E+02     -2.594447E+01      8.615953E+01      8.826981E+01    \r\n                 928      2.454268E+00     -1.218142E+02     -1.502129E+02      3.085300E+01      9.341550E+01      2.594447E+01    \r\n                 929      4.853991E+01     -8.991241E+01     -1.080106E+02      7.024117E+01      7.181416E+01     -3.085300E+01    \r\n                1028      3.028297E-01     -7.986300E+01     -9.341550E+01      1.641938E+01      6.631039E+01      1.581372E+01    \r\n1     ACOUSTIC CAVITY ANALYSIS                                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA = -20.00, BETA =  45.00, ALPHA =   0.00,  AXES = -Z,+Y,+X, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 8.275312E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -7.166634E-01, Y0 = -0.396984E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    2   MODAL  DEFORM.     1 - SUBCASE       1 - MODE   0.000000E+00 - FREQUENCY                                      \r\n          PLOT    3   MODAL  DEFORM.     1 - SUBCASE       2 - MODE   9.006937E+01 - FREQUENCY                                      \r\n          PLOT    4   MODAL  DEFORM.     1 - SUBCASE       3 - MODE   1.994752E+02 - FREQUENCY                                      \r\n          PLOT    5   MODAL  DEFORM.     1 - SUBCASE       4 - MODE   3.104150E+02 - FREQUENCY                                      \r\n          PLOT    6   MODAL  DEFORM.     1 - SUBCASE       5 - MODE   3.879975E+02 - FREQUENCY                                      \r\n          PLOT    7   MODAL  DEFORM.     1 - SUBCASE       6 - MODE   4.491263E+02 - FREQUENCY                                      \r\n          PLOT    8   MODAL  DEFORM.     1 - SUBCASE       7 - MODE   5.128385E+02 - FREQUENCY                                      \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ACOUSTIC CAVITY ANALYSIS                                           \r\n DATE:  5/17/95\r\n END TIME: 15:42: 5\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03051a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03051A,NASTRAN                                                           \r\n     APP   HEAT                                                                      \r\n     DIAG  18                                                                        \r\n     SOL   3,1                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                          \r\n                  3      OLOAD    = ALL                                                                  \r\n                  4      SPCFORCE = ALL                                                                  \r\n                  5      THERMAL(PRINT,PUNCH) = ALL                                                      \r\n                  6      ELFORCE  = ALL                                                                  \r\n                  7      TEMPERATURE(MATERIAL) = 201                                                     \r\n                  8      SPC  = 350                                                                      \r\n                  9      LOAD = 252                                                                      \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    25, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       101     1       2       .0      1.0     .0      1               \r\n                    2-        CHBDY   5       105     POINT   1                                       +HBDY5  \r\n                    3-        +HBDY5                                  -1.0    .0      .0                      \r\n                    4-        CONROD  3       2       3       200     3.14159                                 \r\n                    5-        CROD    2       102     3       4                                               \r\n                    6-        CTUBE   4       103     4       5                                               \r\n                    7-        GRID    1               .0      .0      .0                                      \r\n                    8-        GRID    2               1.0     .0      .0                                      \r\n                    9-        GRID    3               2.0     .0      .0                                      \r\n                   10-        GRID    4               3.0     .0      .0                                      \r\n                   11-        GRID    5               4.0     .0      .0                                      \r\n                   12-        MAT4    200     1.0                                                             \r\n                   13-        MATT4   200     200                                                             \r\n                   14-        PARAM   EPSHT   .001                                                    HEAT    \r\n                   15-        PARAM   IRES    1                                                               \r\n                   16-        PARAM   MAXIT   30                                                      HEAT    \r\n                   17-        PBAR    101     200     3.14159                                                 \r\n                   18-        PHBDY   105             3.14159                                                 \r\n                   19-        PROD    102     200     3.14159                                                 \r\n                   20-        PTUBE   103     200     2.0     .0                                              \r\n                   21-        QVOL    252     12.5    1       THRU    4                                       \r\n                   22-        SPC     350     5               .0                                              \r\n                   23-        TABLEM3 200     .0      1.0                                             +T200   \r\n                   24-        +T200   .0      1.0     100.0   2.0     ENDT                                    \r\n                   25-        TEMPD   201     .0                                                              \r\n                              ENDDATA\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  10,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PLTSET     INSTRUCTION NO.  73\r\n     DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE MISSING BLOCKS ARE NOT REQUIRED.\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HBDY     ELEMENTS (ELEMENT TYPE  52) STARTING WITH ID        5\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONROD   ELEMENTS (ELEMENT TYPE  10) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TUBE     ELEMENTS (ELEMENT TYPE   3) STARTING WITH ID        4\r\n1D I A G   1 8   O U T P U T   F R O M   S S G H T\r\n\r\n ITERATION    EPSILON-P         LAMBDA-1          EPSILON-T\r\n ============================================================\r\n     1       1.000000E+00\r\n     2       6.585351E-01      3.192800E+00      2.079706E-01\r\n     3       6.299834E-01      1.489739E+00      6.463923E-01\r\n     4       4.832392E-01      1.749551E+00      2.119281E-01\r\n     5       3.915366E-01      1.454908E+00      3.041978E-01\r\n     6       2.979599E-01      1.564117E+00      1.272904E-01\r\n     7       2.344898E-01      1.438207E+00      1.421456E-01\r\n     8       1.780509E-01      1.490380E+00      7.118138E-02\r\n     9       1.370210E-01      1.429408E+00      6.702822E-02\r\n    10       1.032997E-01      1.454308E+00      3.822901E-02\r\n    11       7.840265E-02      1.422585E+00      3.227841E-02\r\n    12       5.889187E-02      1.433990E+00      2.008985E-02\r\n    13       4.444201E-02      1.416476E+00      1.586762E-02\r\n    14       3.337733E-02      1.421287E+00      1.044161E-02\r\n    15       2.515225E-02      1.411121E+00      7.925143E-03\r\n    16       1.891298E-02      1.412784E+00      5.398339E-03\r\n    17       1.425180E-02      1.406512E+00      4.004070E-03\r\n    18       1.072626E-02      1.406675E+00      2.786384E-03\r\n    19       8.080334E-03      1.402646E+00      2.039429E-03\r\n    20       6.081851E-03      1.402095E+00      1.438285E-03\r\n    21       4.578402E-03      1.399533E+00      1.044450E-03\r\n    22       3.442797E-03      1.398797E+00      7.424342E-04\r\n0*** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER  1 ( NORMAL CONVERGENCE )\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                HRULV                                                                                                              \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- S).\r\n             1  S  1.96349E+01        2  S  3.92699E+01        3  S  3.92699E+01        4  S  3.92699E+01\r\n0COLUMN       2 (       2- S).\r\n             1  S -1.90214E+01        2  S -3.06796E+01        3  S -8.59027E+00        4  S  2.82252E+01\r\n0COLUMN       3 (       3- S).\r\n             1  S  1.87151E+01        2  S  2.65366E+01        3  S -3.12429E+00        4  S -3.04123E+01\r\n0COLUMN       4 (       4- S).\r\n             1  S -1.60118E+01        2  S -1.91177E+01        3  S  9.49944E+00        4  S  2.14074E+01\r\n0COLUMN       5 (       5- H).\r\n             1  S  1.42884E+01        2  S  1.41609E+01        3  S -1.23302E+01        4  S -1.45467E+01\r\n0COLUMN       6 (       6- H).\r\n             1  S -1.17292E+01        2  S -9.50749E+00        3  S  1.16736E+01        4  S  8.98419E+00\r\n0COLUMN       7 (       7- H).\r\n             1  S  9.86324E+00        2  S  6.27757E+00        3  S -1.04189E+01        4  S -5.50787E+00\r\n0COLUMN       8 (       8- H).\r\n             1  S -7.89212E+00        2  S -3.87889E+00        3  S  8.41557E+00        4  S  3.27641E+00\r\n0COLUMN       9 (       9- H).\r\n             1  S  6.38913E+00        2  S  2.24918E+00        3  S -6.66665E+00        4  S -1.94247E+00\r\n0COLUMN      10 (      10- H).\r\n             1  S -5.02248E+00        2  S -1.18323E+00        3  S  5.05543E+00        4  S  1.13950E+00\r\n0COLUMN      11 (      11- H).\r\n             1  S  3.96622E+00        2  S  4.97742E-01        3  S -3.79263E+00        4  S -6.67389E-01\r\n0COLUMN      12 (      12- H).\r\n             1  S -3.07744E+00        2  S -9.73969E-02        3  S  2.78403E+00        4  S  3.89328E-01\r\n0COLUMN      13 (      13- H).\r\n             1  S  2.38991E+00        2  S -1.33118E-01        3  S -2.02930E+00        4  S -2.26959E-01\r\n0COLUMN      14 (      14- H).\r\n             1  S -1.83594E+00        2  S  2.41852E-01        3  S  1.46181E+00        4  S  1.32095E-01\r\n0COLUMN      15 (      15- H).\r\n             1  S  1.40919E+00        2  S -2.84363E-01        3  S -1.04790E+00        4  S -7.68738E-02\r\n0COLUMN      16 (      16- H).\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n0                HRULV                                                                                                              \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n             1  S -1.07416E+00        2  S  2.83340E-01        3  S  7.46101E-01        4  S  4.46930E-02\r\n0COLUMN      17 (      17- H).\r\n             1  S  8.17505E-01        2  S -2.62115E-01        3  S -5.29427E-01        4  S -2.59705E-02\r\n0COLUMN      18 (      18- H).\r\n             1  S -6.19293E-01        2  S  2.30103E-01        3  S  3.74077E-01        4  S  1.51062E-02\r\n0COLUMN      19 (      19- H).\r\n             1  S  4.68277E-01        2  S -1.95786E-01        3  S -2.63710E-01        4  S -8.81958E-03\r\n0COLUMN      20 (      20- H).\r\n             1  S -3.52966E-01        2  S  1.62445E-01        3  S  1.85432E-01        4  S  5.09644E-03\r\n0COLUMN      21 (      21- H).\r\n             1  S  2.65610E-01        2  S -1.32492E-01        3  S -1.30180E-01        4  S -2.94495E-03\r\n0COLUMN      22 (      22- H).\r\n             1  S -1.99371E-01        2  S  1.06476E-01        3  S  9.11942E-02        4  S  1.70898E-03\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      7.316550E+01   6.954588E+01   5.811366E+01   3.693061E+01   0.0                                          \r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      1.963494E+01   3.926987E+01   3.926987E+01   3.926989E+01   1.963495E+01                                 \r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             5      S     -1.570795E+02                                                                                             \r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    BAR         -3.619629E+00                                       3.619629E+00\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                 H E A T   F L O W   I N T O   H B D Y   E L E M E N T S   (CHBDY)\r\n \r\n \r\n                          ELEMENT-ID      APPLIED-LOAD       CONVECTION       RADIATION           TOTAL\r\n                                   5      0.000000E+00      0.000000E+00      0.000000E+00      0.000000E+00\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             3    CONROD      -1.143221E+01                                       1.143221E+01\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    ROD         -2.118305E+01                                       2.118305E+01\r\n1     NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    TUBE        -3.693061E+01                                       3.693061E+01\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                        \r\n DATE:  5/17/95\r\n END TIME: 15:42:39\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03061a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03061A,NASTRAN                                                           \r\n     TIME  15                                                                        \r\n     APP   HEAT                                                                      \r\n     SOL   3,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                          \r\n                  3      LOAD = 102                                                                      \r\n                  4      TEMP(MATERIAL) = 201                                                            \r\n                  5      OUTPUT                                                                          \r\n                  6      THERMAL = ALL                                                                   \r\n                  7      OLOAD   = ALL                                                                   \r\n                  8      ELFORCE = ALL                                                                   \r\n                  9      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   143, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHBDY   21      101     LINE    20      1                               +B1     \r\n                    2-        +B1                                     1.0                                     \r\n                    3-        CHBDY   22      101     LINE    1       2                               +B2     \r\n                    4-        +B2                                     1.0                                     \r\n                    5-        CHBDY   23      101     LINE    2       3                               +B3     \r\n                    6-        +B3                                     1.0                                     \r\n                    7-        CHBDY   24      101     LINE    3       4                               +B4     \r\n                    8-        +B4                                     1.0                                     \r\n                    9-        CHBDY   25      101     LINE    4       5                               +B5     \r\n                   10-        +B5                                     1.0                                     \r\n                   11-        CHBDY   26      101     LINE    5       6                               +B6     \r\n                   12-        +B6                                     -1.0                                    \r\n                   13-        CHBDY   27      101     LINE    6       7                               +B7     \r\n                   14-        +B7                                     -1.0                                    \r\n                   15-        CHBDY   28      101     LINE    7       8                               +B8     \r\n                   16-        +B8                                     -1.0                                    \r\n                   17-        CHBDY   29      101     LINE    8       9                               +B9     \r\n                   18-        +B9                                     -1.0                                    \r\n                   19-        CHBDY   30      101     LINE    9       10                              +B10    \r\n                   20-        +B10                                    -1.0                                    \r\n                   21-        CHBDY   31      101     LINE    10      11                              +B11    \r\n                   22-        +B11                                    -1.0                                    \r\n                   23-        CHBDY   32      101     LINE    11      12                              +B12    \r\n                   24-        +B12                                    -1.0                                    \r\n                   25-        CHBDY   33      101     LINE    12      13                              +B13    \r\n                   26-        +B13                                    -1.0                                    \r\n                   27-        CHBDY   34      101     LINE    13      14                              +B14    \r\n                   28-        +B14                                    -1.0                                    \r\n                   29-        CHBDY   35      101     LINE    14      15                              +B15    \r\n                   30-        +B15                                    -1.0                                    \r\n                   31-        CHBDY   36      101     LINE    15      16                              +B16    \r\n                   32-        +B16                                    1.0                                     \r\n                   33-        CHBDY   37      101     LINE    16      17                              +B17    \r\n                   34-        +B17                                    1.0                                     \r\n                   35-        CHBDY   38      101     LINE    17      18                              +B18    \r\n                   36-        +B18                                    1.0                                     \r\n                   37-        CHBDY   39      101     LINE    18      19                              +B19    \r\n                   38-        +B19                                    1.0                                     \r\n                   39-        CHBDY   40      101     LINE    19      20                              +B20    \r\n                   40-        +B20                                    1.0                                     \r\n                   41-        CHBDY   41      101     LINE    20      1                                       \r\n                   42-        CHBDY   42      101     LINE    1       2                                       \r\n                   43-        CHBDY   43      101     LINE    2       3                                       \r\n                   44-        CHBDY   44      101     LINE    3       4                                       \r\n                   45-        CHBDY   45      101     LINE    4       5                                       \r\n                   46-        CHBDY   46      101     LINE    5       6                                       \r\n                   47-        CHBDY   47      101     LINE    6       7                                       \r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CHBDY   48      101     LINE    7       8                                       \r\n                   49-        CHBDY   49      101     LINE    8       9                                       \r\n                   50-        CHBDY   50      101     LINE    9       10                                      \r\n                   51-        CHBDY   51      101     LINE    10      11                                      \r\n                   52-        CHBDY   52      101     LINE    11      12                                      \r\n                   53-        CHBDY   53      101     LINE    12      13                                      \r\n                   54-        CHBDY   54      101     LINE    13      14                                      \r\n                   55-        CHBDY   55      101     LINE    14      15                                      \r\n                   56-        CHBDY   56      101     LINE    15      16                                      \r\n                   57-        CHBDY   57      101     LINE    16      17                                      \r\n                   58-        CHBDY   58      101     LINE    17      18                                      \r\n                   59-        CHBDY   59      101     LINE    18      19                                      \r\n                   60-        CHBDY   60      101     LINE    19      20                                      \r\n                   61-        CORD2C  1                                                       1.0     +CORD1  \r\n                   62-        +CORD1  1.0                                                                     \r\n                   63-        CROD    1       100     20      1       2       100     1       2               \r\n                   64-        CROD    3       100     2       3       4       100     3       4               \r\n                   65-        CROD    5       100     4       5       6       100     5       6               \r\n                   66-        CROD    7       100     6       7       8       100     7       8               \r\n                   67-        CROD    9       100     8       9       10      100     9       10              \r\n                   68-        CROD    11      100     10      11      12      100     11      12              \r\n                   69-        CROD    13      100     12      13      14      100     13      14              \r\n                   70-        CROD    15      100     14      15      16      100     15      16              \r\n                   71-        CROD    17      100     16      17      18      100     17      18              \r\n                   72-        CROD    19      100     18      19      20      100     19      20              \r\n                   73-        GRDSET          1                                                               \r\n                   74-        GRID    1               2.0     18.                                             \r\n                   75-        GRID    2               2.0     36.                                             \r\n                   76-        GRID    3               2.0     54.                                             \r\n                   77-        GRID    4               2.0     72.                                             \r\n                   78-        GRID    5               2.0     90.                                             \r\n                   79-        GRID    6               2.0     108.                                            \r\n                   80-        GRID    7               2.0     126.                                            \r\n                   81-        GRID    8               2.0     144.                                            \r\n                   82-        GRID    9               2.0     162.                                            \r\n                   83-        GRID    10              2.0     180.                                            \r\n                   84-        GRID    11              2.0     198.                                            \r\n                   85-        GRID    12              2.0     216.                                            \r\n                   86-        GRID    13              2.0     234.                                            \r\n                   87-        GRID    14              2.0     252.                                            \r\n                   88-        GRID    15              2.0     270.                                            \r\n                   89-        GRID    16              2.0     288.                                            \r\n                   90-        GRID    17              2.0     306.                                            \r\n                   91-        GRID    18              2.0     324.                                            \r\n                   92-        GRID    19              2.0     342.                                            \r\n                   93-        GRID    20              2.0     .0                                              \r\n                   94-        MAT4    100     94.5    36.7                                                    \r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PARAM   EPSHT   .001                                                    HEAT    \r\n                   96-        PARAM   MAXIT   20                                                      HEAT    \r\n                   97-        PARAM   SIGMA   .174-8                                                  HEAT    \r\n                   98-        PARAM   TABS    460.                                                    HEAT    \r\n                   99-        PHBDY   101             20.306  .1                                              \r\n                  100-        PROD    100     100     .020306                                                 \r\n                  101-        QVECT   102     425.    -1.     .0      .0      21      22      23      +Q102   \r\n                  102-        +Q102   24      25      26      27      28      29      30      31      +Q102A  \r\n                  103-        +Q102A  32      33      34      35      36      37      38      39      +Q102B  \r\n                  104-        +Q102B  40                                                                      \r\n                  105-        RADLST  21      THRU    40      41      THRU    60                              \r\n                  106-        RADMTX  21      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R21    \r\n                  107-        +R21    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R21A   \r\n                  108-        +R21A   .70711  .58779  .45399  .30902  .15643                                  \r\n                  109-        RADMTX  22      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R22    \r\n                  110-        +R22    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R22A   \r\n                  111-        +R22A   .70711  .58779  .45399  .30902                                          \r\n                  112-        RADMTX  23      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R23    \r\n                  113-        +R23    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R23A   \r\n                  114-        +R23A   .70711  .58779  .45399                                                  \r\n                  115-        RADMTX  24      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R24    \r\n                  116-        +R24    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R24A   \r\n                  117-        +R24A   .70711  .58779                                                          \r\n                  118-        RADMTX  25      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R25    \r\n                  119-        +R25    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R25A   \r\n                  120-        +R25A   .70711                                                                  \r\n                  121-        RADMTX  26      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R26    \r\n                  122-        +R26    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902          \r\n                  123-        RADMTX  27      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R27    \r\n                  124-        +R27    .89101  .95106  .98769  1.0     .98769  .95106  .89101                  \r\n                  125-        RADMTX  28      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R28    \r\n                  126-        +R28    .89101  .95106  .98769  1.0     .98769  .95106                          \r\n                  127-        RADMTX  29      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R29    \r\n                  128-        +R29    .89101  .95106  .98769  1.0     .98769                                  \r\n                  129-        RADMTX  30      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R30    \r\n                  130-        +R30    .89101  .95106  .98769  1.0                                             \r\n                  131-        RADMTX  31      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R31    \r\n                  132-        +R31    .89101  .95106  .98769                                                  \r\n                  133-        RADMTX  32      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R32    \r\n                  134-        +R32    .89101  .95106                                                          \r\n                  135-        RADMTX  33      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R33    \r\n                  136-        +R33    .89101                                                                  \r\n                  137-        RADMTX  34      .0      .15643  .30902  .45399  .58779  .70711  .80902          \r\n                  138-        RADMTX  35      .0      .15643  .30902  .45399  .58779  .70711                  \r\n                  139-        RADMTX  36      .0      .15643  .30902  .45399  .58779                          \r\n                  140-        RADMTX  37      .0      .15643  .30902  .45399                                  \r\n                  141-        RADMTX  38      .0      .15643  .30902                                          \r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        RADMTX  39      .0      .15643                                                  \r\n                  143-        TEMPD   201     200.0                                                           \r\n                              ENDDATA\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  10,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION PLTSET     INSTRUCTION NO.  73\r\n     DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE MISSING BLOCKS ARE NOT REQUIRED.\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           20\r\n                                        PROFILE             57\r\n                                        MAX WAVEFRONT        3\r\n                                        AVG WAVEFRONT    2.850\r\n                                        RMS WAVEFRONT    2.890\r\n                                        RMS BANDWIDTH    4.863\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            3\r\n                                        PROFILE             57\r\n                                        MAX WAVEFRONT        3\r\n                                        AVG WAVEFRONT    2.850\r\n                                        RMS WAVEFRONT    2.890\r\n                                        RMS BANDWIDTH    2.890\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       20        20\r\n                                        PROFILE (P)                         57        57\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            3         3\r\n                                        AVERAGE WAVEFRONT (C-AVG)        2.850     2.850\r\n                                        RMS WAVEFRONT (C-RMS)            2.890     2.890\r\n                                        RMS BANDWITCH (B-RMS)            4.863     4.863\r\n                                        NUMBER OF GRID POINTS (N)                     20\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                20\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        20\r\n                                        MATRIX DENSITY, PERCENT                   15.000\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HBDY     ELEMENTS (ELEMENT TYPE  52) STARTING WITH ID       21\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 2361,   20 ELEMENTS HAVE A TOTAL VIEW FACTOR (FA/A) LESS THAN 0.99 , ENERGY MAY BE LOST TO SPACE.\r\n0*** USER INFORMATION MESSAGE 3028      B =   20     BBAR =    3\r\n                                        C =   21     CBAR =   36\r\n                                        R =   22\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    40)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   10     BBAR =    3\r\n                                        C =   11     CBAR =   16\r\n                                        R =   12\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK HKFF     (N =    20)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER  1 ( NORMAL CONVERGENCE )\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      1.590522E+02   1.395644E+02   1.073669E+02   6.610048E+01   2.803627E+01   5.140508E+00                  \r\n             7      S     -4.874969E+00  -9.272478E+00  -1.108667E+01  -1.157623E+01  -1.108665E+01  -9.272463E+00                  \r\n            13      S     -4.874965E+00   5.140494E+00   2.803628E+01   6.610052E+01   1.073668E+02   1.395643E+02                  \r\n            19      S      1.590522E+02   1.654979E+02                                                                              \r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      5.072616E+02   4.315025E+02   3.135049E+02   1.648192E+02   4.223842E+01                                 \r\n            15      S      4.223851E+01   1.648192E+02   3.135048E+02   4.315026E+02   5.072617E+02   5.333665E+02                  \r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                 H E A T   F L O W   I N T O   H B D Y   E L E M E N T S   (CHBDY)\r\n \r\n \r\n                          ELEMENT-ID      APPLIED-LOAD       CONVECTION       RADIATION           TOTAL\r\n                                  21      5.333665E+02      0.000000E+00     -3.315627E+02      2.018038E+02\r\n                                  22      4.811568E+02      0.000000E+00     -3.051971E+02      1.759596E+02\r\n                                  23      3.818482E+02      0.000000E+00     -2.573989E+02      1.244493E+02\r\n                                  24      2.451616E+02      0.000000E+00     -1.992350E+02      4.592661E+01\r\n                                  25      8.447684E+01      0.000000E+00     -1.473970E+02     -6.292012E+01\r\n                                  26      0.000000E+00      0.000000E+00     -1.144566E+02     -1.144566E+02\r\n                                  27      0.000000E+00      0.000000E+00     -9.917615E+01     -9.917615E+01\r\n                                  28      0.000000E+00      0.000000E+00     -9.305458E+01     -9.305458E+01\r\n                                  29      0.000000E+00      0.000000E+00     -9.051762E+01     -9.051762E+01\r\n                                  30      0.000000E+00      0.000000E+00     -8.959206E+01     -8.959206E+01\r\n                                  31      0.000000E+00      0.000000E+00     -8.959200E+01     -8.959200E+01\r\n                                  32      0.000000E+00      0.000000E+00     -9.051765E+01     -9.051765E+01\r\n                                  33      0.000000E+00      0.000000E+00     -9.305452E+01     -9.305452E+01\r\n                                  34      0.000000E+00      0.000000E+00     -9.917619E+01     -9.917619E+01\r\n                                  35      0.000000E+00      0.000000E+00     -1.144567E+02     -1.144567E+02\r\n                                  36      8.447701E+01      0.000000E+00     -1.473970E+02     -6.292004E+01\r\n                                  37      2.451614E+02      0.000000E+00     -1.992348E+02      4.592654E+01\r\n                                  38      3.818483E+02      0.000000E+00     -2.573989E+02      1.244493E+02\r\n                                  39      4.811570E+02      0.000000E+00     -3.051972E+02      1.759598E+02\r\n                                  40      5.333663E+02      0.000000E+00     -3.315626E+02      2.018037E+02\r\n                                  41      0.000000E+00      0.000000E+00     -1.621102E+02     -1.621102E+02\r\n                                  42      0.000000E+00      0.000000E+00     -1.353455E+02     -1.353455E+02\r\n                                  43      0.000000E+00      0.000000E+00     -8.681474E+01     -8.681474E+01\r\n                                  44      0.000000E+00      0.000000E+00     -2.770469E+01     -2.770469E+01\r\n                                  45      0.000000E+00      0.000000E+00      2.514783E+01      2.514783E+01\r\n                                  46      0.000000E+00      0.000000E+00      5.904066E+01      5.904066E+01\r\n                                  47      0.000000E+00      0.000000E+00      7.512827E+01      7.512827E+01\r\n                                  48      0.000000E+00      0.000000E+00      8.187199E+01      8.187199E+01\r\n                                  49      0.000000E+00      0.000000E+00      8.482950E+01      8.482950E+01\r\n                                  50      0.000000E+00      0.000000E+00      8.596673E+01      8.596673E+01\r\n                                  51      0.000000E+00      0.000000E+00      8.596679E+01      8.596679E+01\r\n                                  52      0.000000E+00      0.000000E+00      8.482946E+01      8.482946E+01\r\n                                  53      0.000000E+00      0.000000E+00      8.187205E+01      8.187205E+01\r\n                                  54      0.000000E+00      0.000000E+00      7.512822E+01      7.512822E+01\r\n                                  55      0.000000E+00      0.000000E+00      5.904061E+01      5.904061E+01\r\n                                  56      0.000000E+00      0.000000E+00      2.514773E+01      2.514773E+01\r\n                                  57      0.000000E+00      0.000000E+00     -2.770446E+01     -2.770446E+01\r\n                                  58      0.000000E+00      0.000000E+00     -8.681480E+01     -8.681480E+01\r\n                                  59      0.000000E+00      0.000000E+00     -1.353455E+02     -1.353455E+02\r\n                                  60      0.000000E+00      0.000000E+00     -1.621101E+02     -1.621101E+02\r\n1     NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    ROD         -1.030096E+01                                       9.734412E+02\r\n             2    ROD         -3.114381E+01                                       2.943090E+03\r\n             3    ROD         -5.145529E+01                                       4.862525E+03\r\n             4    ROD         -6.594833E+01                                       6.232117E+03\r\n             5    ROD         -6.083092E+01                                       5.748521E+03\r\n             6    ROD         -3.659003E+01                                       3.457758E+03\r\n             7    ROD         -1.600587E+01                                       1.512554E+03\r\n             8    ROD         -7.027716E+00                                       6.641191E+02\r\n             9    ROD         -2.899282E+00                                       2.739821E+02\r\n            10    ROD         -7.823830E-01                                       7.393519E+01\r\n            11    ROD          7.824135E-01                                      -7.393807E+01\r\n            12    ROD          2.899276E+00                                      -2.739816E+02\r\n            13    ROD          7.027702E+00                                      -6.641178E+02\r\n            14    ROD          1.600583E+01                                      -1.512551E+03\r\n            15    ROD          3.659004E+01                                      -3.457759E+03\r\n            16    ROD          6.083096E+01                                      -5.748525E+03\r\n            17    ROD          6.594830E+01                                      -6.232114E+03\r\n            18    ROD          5.145525E+01                                      -4.862521E+03\r\n            19    ROD          3.114383E+01                                      -2.943092E+03\r\n            20    ROD          1.030101E+01                                      -9.734454E+02\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                   \r\n DATE:  5/17/95\r\n END TIME: 15:43:25\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03071a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03071A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,0                                                                       \r\n     TIME  60                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                    \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                          \r\n                  3      METHOD = 3                                                                      \r\n                  4      SPC    =  2                                                                     \r\n                  5      OUTPUT                                                                          \r\n                  6      VECTOR = ALL                                                                    \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   115, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRPLT1 1       6       13      8       3       2       1       9       +TR1    \r\n                    2-        +TR1                                                                            \r\n                    3-        CTRPLT1 2       7       1       10      11      12      13      9       +TR2    \r\n                    4-        +TR2                                                                            \r\n                    5-        CTRPLT1 3       8       23      18      13      12      11      19      +TR3    \r\n                    6-        +TR3                                                                            \r\n                    7-        CTRPLT1 4       9       11      20      21      22      23      19      +TR4    \r\n                    8-        +TR4                                                                            \r\n                    9-        CTRPLT1 5       10      33      28      23      22      21      29      +TR5    \r\n                   10-        +TR5                                                                            \r\n                   11-        CTRPLT1 6       11      21      30      31      32      33      29      +TR6    \r\n                   12-        +TR6                                                                            \r\n                   13-        CTRPLT1 7       12      43      38      33      32      31      39      +TR7    \r\n                   14-        +TR7                                                                            \r\n                   15-        CTRPLT1 8       13      31      40      41      42      43      39      +TR8    \r\n                   16-        +TR8                                                                            \r\n                   17-        CTRPLT1 9       14      15      6       5       4       3       7       +TR9    \r\n                   18-        +TR9                                                                            \r\n                   19-        CTRPLT1 10      15      3       8       13      14      15      7       +TR10   \r\n                   20-        +TR10                                                                           \r\n                   21-        CTRPLT1 11      16      25      16      15      14      13      17      +TR11   \r\n                   22-        +TR11                                                                           \r\n                   23-        CTRPLT1 12      17      13      18      23      24      25      17      +TR12   \r\n                   24-        +TR12                                                                           \r\n                   25-        CTRPLT1 13      18      35      26      25      24      23      27      +TR13   \r\n                   26-        +TR13                                                                           \r\n                   27-        CTRPLT1 14      19      23      28      33      34      35      27      +TR14   \r\n                   28-        +TR14                                                                           \r\n                   29-        CTRPLT1 15      20      45      36      35      34      33      37      +TR15   \r\n                   30-        +TR15                                                                           \r\n                   31-        CTRPLT1 16      21      33      38      43      44      45      37      +TR16   \r\n                   32-        +TR16                                                                           \r\n                   33-        EIGR    3       INV     .0001   4000.0  8       8       0               +ABC    \r\n                   34-        +ABC    MAX                                                                     \r\n                   35-        GRDSET                                                  126                     \r\n                   36-        GRID    1               0.0     0.0     0.0                                     \r\n                   37-        GRID    2               0.0     .625    0.0                                     \r\n                   38-        GRID    3               0.0     1.25    0.0                                     \r\n                   39-        GRID    4               0.0     1.875   0.0                                     \r\n                   40-        GRID    5               0.0     2.5     0.0                                     \r\n                   41-        GRID    6               .625    2.5     0.0                                     \r\n                   42-        GRID    7               .625    1.875   0.0                                     \r\n                   43-        GRID    8               .625    1.25    0.0                                     \r\n                   44-        GRID    9               .625    .625    0.0                                     \r\n                   45-        GRID    10              .625    0.0     0.0                                     \r\n                   46-        GRID    11              1.25    0.0     0.0                                     \r\n                   47-        GRID    12              1.25    .625    0.0                                     \r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    13              1.25    1.25    0.0                                     \r\n                   49-        GRID    14              1.25    1.875   0.0                                     \r\n                   50-        GRID    15              1.25    2.5     0.0                                     \r\n                   51-        GRID    16              1.875   2.5     0.0                                     \r\n                   52-        GRID    17              1.875   1.875   0.0                                     \r\n                   53-        GRID    18              1.875   1.25    0.0                                     \r\n                   54-        GRID    19              1.875   .625    0.0                                     \r\n                   55-        GRID    20              1.875   0.0     0.0                                     \r\n                   56-        GRID    21              2.5     0.0     0.0                                     \r\n                   57-        GRID    22              2.5     .625    0.0                                     \r\n                   58-        GRID    23              2.5     1.25    0.0                                     \r\n                   59-        GRID    24              2.5     1.875   0.0                                     \r\n                   60-        GRID    25              2.5     2.5     0.0                                     \r\n                   61-        GRID    26              3.125   2.5     0.0                                     \r\n                   62-        GRID    27              3.125   1.875   0.0                                     \r\n                   63-        GRID    28              3.125   1.25    0.0                                     \r\n                   64-        GRID    29              3.125   .625    0.0                                     \r\n                   65-        GRID    30              3.125   0.0     0.0                                     \r\n                   66-        GRID    31              3.75    0.0     0.0                                     \r\n                   67-        GRID    32              3.75    .625    0.0                                     \r\n                   68-        GRID    33              3.75    1.25    0.0                                     \r\n                   69-        GRID    34              3.75    1.875   0.0                                     \r\n                   70-        GRID    35              3.75    2.5     0.0                                     \r\n                   71-        GRID    36              4.375   2.5     0.0                                     \r\n                   72-        GRID    37              4.375   1.875   0.0                                     \r\n                   73-        GRID    38              4.315   1.25    0.0                                     \r\n                   74-        GRID    39              4.375   .625    0.0                                     \r\n                   75-        GRID    40              4.375   0.0     0.0                                     \r\n                   76-        GRID    41              5.0     0.0     0.0                                     \r\n                   77-        GRID    42              5.0     .625    0.0                                     \r\n                   78-        GRID    43              5.0     1.25    0.0                                     \r\n                   79-        GRID    44              5.0     1.875   0.0                                     \r\n                   80-        GRID    45              5.0     2.5     0.0                                     \r\n                   81-        MAT1    4       3.0+7           .3      7.3698-4                                \r\n                   82-        PARAM   COUPMASS1                                                               \r\n                   83-        PTRPLT1 6       4       4.3877-5        1.0E-10                         +TP2    \r\n                   84-        +TP2                                                                            \r\n                   85-        PTRPLT1 7       4       1.0E-10         4.3877-5                        +TP3    \r\n                   86-        +TP3                                                                            \r\n                   87-        PTRPLT1 8       4       4.3877-5        1.0E-10                         +TP4    \r\n                   88-        +TP4                                                                            \r\n                   89-        PTRPLT1 9       4       1.0E-10         4.3877-5                        +TP5    \r\n                   90-        +TP5                                                                            \r\n                   91-        PTRPLT1 10      4       4.3877-5        1.0E-10                         +TP6    \r\n                   92-        +TP6                                                                            \r\n                   93-        PTRPLT1 11      4       1.0E-10         4.3877-5                        +TP7    \r\n                   94-        +TP7                                                                            \r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PTRPLT1 12      4       4.3877-5        1.0E-10                         +TP8    \r\n                   96-        +TP8                                                                            \r\n                   97-        PTRPLT1 13      4       1.0E-10         4.3877-5                        +TP9    \r\n                   98-        +TP9                                                                            \r\n                   99-        PTRPLT1 14      4       3.5101-4        4.3877-5                        +TP10   \r\n                  100-        +TP10                                                                           \r\n                  101-        PTRPLT1 15      4       4.3877-5        3.5101-4                        +TP11   \r\n                  102-        +TP11                                                                           \r\n                  103-        PTRPLT1 16      4       3.5101-4        4.3877-5                        +TP12   \r\n                  104-        +TP12                                                                           \r\n                  105-        PTRPLT1 17      4       4.3877-5        3.5101-4                        +TP13   \r\n                  106-        +TP13                                                                           \r\n                  107-        PTRPLT1 18      4       3.5101-4        4.3877-5                        +TP14   \r\n                  108-        +TP14                                                                           \r\n                  109-        PTRPLT1 19      4       4.3877-5        3.5101-4                        +TP15   \r\n                  110-        +TP15                                                                           \r\n                  111-        PTRPLT1 20      4       3.5101-4        4.3877-5                        +TP16   \r\n                  112-        +TP16                                                                           \r\n                  113-        PTRPLT1 21      4       4.3877-5        3.5101-4                        +TP17   \r\n                  114-        +TP17                                                                           \r\n                  115-        SPC1    2       345     1       2       3       4       5                       \r\n                              ENDDATA\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE            399\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT    8.867\r\n                                        RMS WAVEFRONT    9.332\r\n                                        RMS BANDWIDTH    9.614\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE            344\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT    7.644\r\n                                        RMS WAVEFRONT    8.066\r\n                                        RMS BANDWIDTH    8.130\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       13        13\r\n                                        PROFILE (P)                        399       344\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           13        13\r\n                                        AVERAGE WAVEFRONT (C-AVG)        8.867     7.644\r\n                                        RMS WAVEFRONT (C-RMS)            9.332     8.066\r\n                                        RMS BANDWITCH (B-RMS)            9.614     8.130\r\n                                        NUMBER OF GRID POINTS (N)                     45\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          18\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                       186\r\n                                        MATRIX DENSITY, PERCENT                   20.593\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  12\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1      34       2      39       3      42       4      45\r\n                         SEQGP          5      44       6      43       7      41       8      40\r\n                         SEQGP          9      35      10      30      11      25      12      29\r\n                         SEQGP         13      33      14      37      15      38      16      36\r\n                         SEQGP         17      32      18      28      19      24      20      20\r\n                         SEQGP         21      13      22      18      23      23      24      27\r\n                         SEQGP         25      31      26      26      27      21      28      17\r\n                         SEQGP         29      12      30       9      31       5      32       8\r\n                         SEQGP         33      11      34      19      35      22      36      16\r\n                         SEQGP         37      15      38       7      39       4      40       1\r\n                         SEQGP         41       2      42       3      43       6      44      10\r\n                         SEQGP         45      14\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRPLT1   ELEMENTS (ELEMENT TYPE  74) STARTING WITH ID        1\r\n                        0 ROOTS BELOW   1.579137E+08\r\n                        1 ROOTS BELOW   2.960192E+09\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         1\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         2\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        14\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         1 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        2.957193E+09        5.438008E+04        8.654858E+03        1.943292E-09        5.746690E+00             \r\n1     VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                                                                                   \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.295719E+10    (CYCLIC FREQUENCY =  8.654858E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             5      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             6      G      0.0            0.0           -2.367597E-04   6.207179E-04   8.764167E-04   0.0                           \r\n             7      G      0.0            0.0           -5.472823E-04   4.627575E-04   1.575365E-03   0.0                           \r\n             8      G      0.0            0.0           -7.078947E-04   1.616370E-04   2.296494E-03   0.0                           \r\n             9      G      0.0            0.0           -7.660137E-04   1.968803E-04   2.388769E-03   0.0                           \r\n            10      G      0.0            0.0           -6.404227E-04  -3.320629E-04   3.082140E-03   0.0                           \r\n            11      G      0.0            0.0           -3.451006E-03   6.581811E-04   5.256683E-03   0.0                           \r\n            12      G      0.0            0.0           -3.146443E-03   6.410062E-04   4.870544E-03   0.0                           \r\n            13      G      0.0            0.0           -2.689518E-03   6.112823E-04   4.043003E-03   0.0                           \r\n            14      G      0.0            0.0           -2.060640E-03   1.301469E-03   3.190235E-03   0.0                           \r\n            15      G      0.0            0.0           -1.191785E-03   1.374496E-03   2.439661E-03   0.0                           \r\n            16      G      0.0            0.0           -3.087104E-03   2.265441E-03   3.587943E-03   0.0                           \r\n            17      G      0.0            0.0           -4.420016E-03   2.084067E-03   4.258297E-03   0.0                           \r\n            18      G      0.0            0.0           -5.570282E-03   1.682298E-03   5.250180E-03   0.0                           \r\n            19      G      0.0            0.0           -6.587490E-03   1.676956E-03   6.029991E-03   0.0                           \r\n            20      G      0.0            0.0           -7.674930E-03   3.195101E-03   7.951039E-03   0.0                           \r\n            21      G      0.0            0.0           -1.332390E-02   7.178554E-03   1.038664E-02   0.0                           \r\n            22      G      0.0            0.0           -1.086381E-02   2.681606E-03   7.462550E-03   0.0                           \r\n            23      G      0.0            0.0           -9.198150E-03   2.491323E-03   6.390381E-03   0.0                           \r\n            24      G      0.0            0.0           -7.485257E-03   2.934663E-03   5.456801E-03   0.0                           \r\n            25      G      0.0            0.0           -5.613262E-03   2.970474E-03   4.711364E-03   0.0                           \r\n            26      G      0.0            0.0           -8.806698E-03   3.778720E-03   5.467258E-03   0.0                           \r\n            27      G      0.0            0.0           -1.112815E-02   3.722506E-03   6.118124E-03   0.0                           \r\n            28      G      0.0            0.0           -1.339321E-02   3.586684E-03   7.064400E-03   0.0                           \r\n            29      G      0.0            0.0           -1.566167E-02   3.854951E-03   7.762971E-03   0.0                           \r\n            30      G      0.0            0.0           -1.756047E-02  -4.043966E-03   9.219343E-03   0.0                           \r\n            31      G      0.0            0.0           -1.856032E-02  -2.619900E-02  -1.536125E-02   0.0                           \r\n            32      G      0.0            0.0           -2.112206E-02   4.823306E-03   8.992752E-03   0.0                           \r\n            33      G      0.0            0.0           -1.806839E-02   4.793380E-03   7.990171E-03   0.0                           \r\n            34      G      0.0            0.0           -1.518092E-02   4.518526E-03   6.748182E-03   0.0                           \r\n            35      G      0.0            0.0           -1.238757E-02   4.402501E-03   6.126663E-03   0.0                           \r\n            36      G      0.0            0.0           -1.633725E-02   4.959926E-03   6.487089E-03   0.0                           \r\n            37      G      0.0            0.0           -1.945641E-02   5.139407E-03   6.914446E-03   0.0                           \r\n            38      G      0.0            0.0           -2.303207E-02   6.570884E-03   7.652429E-03   0.0                           \r\n            39      G      0.0            0.0           -2.929381E-02   1.457551E-02   1.492443E-02   0.0                           \r\n            40      G      0.0            0.0           -9.875836E-02   5.192699E-01   2.123086E-01   0.0                           \r\n            41      G      0.0            0.0           -2.008132E-01   1.000000E+00   4.841382E-02   0.0                           \r\n            42      G      0.0            0.0           -3.140337E-02   6.793135E-03   8.069154E-04   0.0                           \r\n            43      G      0.0            0.0           -2.760707E-02   7.523733E-03   7.236272E-03   0.0                           \r\n            44      G      0.0            0.0           -2.369626E-02   5.461853E-03   6.658241E-03   0.0                           \r\n            45      G      0.0            0.0           -2.043810E-02   5.114045E-03   6.606174E-03   0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                  \r\n DATE:  5/17/95\r\n END TIME: 15:43:56\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03081a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03081A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,0                                                                       \r\n     TIME  14                                                                        \r\n     DIAG  21, 22                                                                    \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)          \r\n                  3      LABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\n                  4      METHOD = 1000                                                                   \r\n                  5      OUTPUT                                                                          \r\n                  6      ECHO   = BOTH                                                                   \r\n                  7      VECTOR = ALL                                                                    \r\n                  8      MPCFORCE = ALL                                                                  \r\n                  9      BEGIN BULK                                                                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B               \r\n                              CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1               \r\n                              +MRBRG1 56                                                                                    \r\n                              CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST              \r\n                              CELAS2  189831  28125.  189073  1       18983   1                       FWD R X               \r\n                              CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y               \r\n                              CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z               \r\n                              CELAS2  189871  28125.  189077  1       18987   1                       FWD L X               \r\n                              CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y               \r\n                              CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z               \r\n                              CELAS2  211831  28125.  211073  1       21183   1                       AFT R X               \r\n                              CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y               \r\n                              CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z               \r\n                              CELAS2  211871  28125.  211077  1       21187   1                       AFT L X               \r\n                              CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y               \r\n                              CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z               \r\n                              CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z               \r\n                              CONM2   209     209     0       7297.399                                 BASICWT              \r\n                              +BASICWT4.7561+6        5.3412+7                5.3697+7                                      \r\n                              CONM2   109765  19765           12.896                                                        \r\n                              CONM2   290070  200070          34.465                                                        \r\n                              CONM2   290078  200078          22.740                                                        \r\n                              CONM2   290079  200079          51.048                                                        \r\n                              CONM2   290086  200086          60.052                                                        \r\n                              CONM2   290087  200087          60.052                                                        \r\n                              CONM2   290095  200095          64.933                                                        \r\n                              CONM2   290096  200096          64.933                                                        \r\n                              CONM2   290101  200101          57.277                                                        \r\n                              CONM2   290106  200106          47.013                                                        \r\n                              CONM2   290114  200114          66.626                                                        \r\n                              CONM2   290121  200121          54.350                                                        \r\n                              CONM2   290129  200129          13.810                                                        \r\n                              CONM2   290137  200137          9.253                                                         \r\n                              CONM2   290145  200145          12.065                                                        \r\n                              CONM2   290153  200153          5.852                                                         \r\n                              CONM2   290155  200155          6.124                                                         \r\n                              CONM2   390153  200153          458.000                                 MR BLADE              \r\n                              CONM2   490153  200153          489.500                                 MR HUB                \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CONM2   9200070 200070          26.100                                  BASIC                 \r\n                              CRIGD1  200078  200078  189073  189077  211073                                                \r\n                              CRIGD1  353252  200078  200079                                                                \r\n                              CRIGD1  353253  200079  200087                                                                \r\n                              CRIGD1  353254  200087  200096                                                                \r\n                              CRIGD2  2091    209     19765   1236                                                          \r\n                              CRIGD2  2092    209     18983   12356   18987   12356                                         \r\n                              CRIGD2  2093    209     21183   12356   21187   12356                                         \r\n                              CRIGD2  2094    209     21485   234                                                           \r\n                              CRIGD2  353255  200096  200101  123                                                           \r\n                              CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31                \r\n                              +CRG31          211073  3                                               +CRG32                \r\n                              +CRG32  MSET    211077  123456  214075  123456                                                \r\n                              CRIGDR  357000  19765   200078  3                                                             \r\n                              EIGR    1000    GIV                             15                      +EIGR                 \r\n                              +EIGR   MAX                                                                                   \r\n                              GRID    209     0       191.7117.001757 56.030010                                             \r\n                              GRID    18983   0       189.94  12.375  77.57   0       4                                     \r\n                              GRID    18987   0       189.94  -12.375 77.57   0       4                                     \r\n                              GRID    19765   0       196.90  .0      64.63   0       45                                    \r\n                              GRID    21183   0       211.72  12.375  77.57   0       4                                     \r\n                              GRID    21187   0       211.72  -12.375 77.57   0       4                                     \r\n                              GRID    21485   0       214.50  .0      77.57   0       156                                   \r\n                              GRID    189073  0       189.94  12.375  77.57   0       0                                     \r\n                              GRID    189077  0       189.94  -12.375 77.57   0       0                                     \r\n                              GRID    200070  0       200.00  .0      70.00   0       0                                     \r\n                              GRID    200078  0       200.00  .0      77.57   0       0                                     \r\n                              GRID    200079  0       200.00  .0      79.05   0       0                                     \r\n                              GRID    200086  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200087  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200095  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200096  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200101  0       200.00  .0      100.675 0       0                                     \r\n                              GRID    200106  0       200.00  .0      106.00  0       0                                     \r\n                              GRID    200114  0       200.00  .0      114.00  0       0                                     \r\n                              GRID    200121  0       200.00  .0      121.00  0       0                                     \r\n                              GRID    200129  0       200.00  .0      129.00  0       0                                     \r\n                              GRID    200137  0       200.00  .0      137.00  0       0                                     \r\n                              GRID    200145  0       200.00  .0      145.00  0       0                                     \r\n                              GRID    200153  0       200.00  .0      152.76  0       0                                     \r\n                              GRID    200155  0       200.00  .0      154.97  0       0                                     \r\n                              GRID    211073  0       211.72  12.375  77.57   0       0                                     \r\n                              GRID    211077  0       211.72  -12.375 77.57   0       0                                     \r\n                              GRID    214075  0       214.50  .0      77.57   0       0                                     \r\n                              MAT1    1       1.0+6   1.0+6                                                                 \r\n                              MAT1    10      1.0     1.0                                                                   \r\n                              MAT1    57      3.2+6   .8+6    .32                                                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              MAT1    76      3.2+6   .8+6    .32                                                           \r\n                              MAT1    2014    10.5+6  4.0+6                                                                 \r\n                              MAT1    2024    10.5+6  4.0+6                                                                 \r\n                              MAT1    4130    29.0+6  11.0+6                                                                \r\n                              MAT1    4340    29.0+6  11.0+6                                                                \r\n                              MAT1    4620    29.0+6  11.0+6                                                                \r\n                              MAT1    7075    10.3+6  3.9+6                                                                 \r\n                              MAT1    9046    17.5+6  6.5+6                                                                 \r\n                              OMIT    200070  456                                                                           \r\n                              OMIT    200078  456                                                                           \r\n                              OMIT    200086  456                                                                           \r\n                              OMIT    200095  456                                                                           \r\n                              OMIT    200101  456                                                                           \r\n                              OMIT    200106  456                                                                           \r\n                              OMIT    200114  456                                                                           \r\n                              OMIT    200121  456                                                                           \r\n                              OMIT    200129  456                                                                           \r\n                              OMIT    200137  456                                                                           \r\n                              OMIT    200145  456                                                                           \r\n                              OMIT    200153  456                                                                           \r\n                              OMIT    200155  456                                                                           \r\n                              PARAM   GRDEQ   0                                                                             \r\n                              PARAM   GRDPNT  0                                                                             \r\n                              PARAM   WTMASS  .00259                                                                        \r\n                              PBAR    353025  1       100.    1950.   1950.   1480.                                         \r\n                              PBAR    450007  1       100.    120.07  120.07  91.088                                        \r\n                              SUPORT  209     123456                                                                        \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=    121\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\n                    2-        CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n                    3-        +MRBRG1 56                                                                      \r\n                    4-        CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\n                    5-        CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\n                    6-        CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\n                    7-        CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\n                    8-        CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\n                    9-        CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\n                   10-        CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\n                   11-        CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\n                   12-        CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\n                   13-        CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\n                   14-        CELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\n                   15-        CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\n                   16-        CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\n                   17-        CELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\n                   18-        CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\n                   19-        CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\n                   20-        CELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\n                   21-        CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\n                   22-        CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\n                   23-        CELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\n                   24-        CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\n                   25-        CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\n                   26-        CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\n                   27-        CONM2   209     209     0       7297.399                                 BASICWT\r\n                   28-        +BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\n                   29-        CONM2   109765  19765           12.896                                          \r\n                   30-        CONM2   290070  200070          34.465                                          \r\n                   31-        CONM2   290078  200078          22.740                                          \r\n                   32-        CONM2   290079  200079          51.048                                          \r\n                   33-        CONM2   290086  200086          60.052                                          \r\n                   34-        CONM2   290087  200087          60.052                                          \r\n                   35-        CONM2   290095  200095          64.933                                          \r\n                   36-        CONM2   290096  200096          64.933                                          \r\n                   37-        CONM2   290101  200101          57.277                                          \r\n                   38-        CONM2   290106  200106          47.013                                          \r\n                   39-        CONM2   290114  200114          66.626                                          \r\n                   40-        CONM2   290121  200121          54.350                                          \r\n                   41-        CONM2   290129  200129          13.810                                          \r\n                   42-        CONM2   290137  200137          9.253                                           \r\n                   43-        CONM2   290145  200145          12.065                                          \r\n                   44-        CONM2   290153  200153          5.852                                           \r\n                   45-        CONM2   290155  200155          6.124                                           \r\n                   46-        CONM2   390153  200153          458.000                                 MR BLADE\r\n                   47-        CONM2   490153  200153          489.500                                 MR HUB  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CONM2   9200070 200070          26.100                                  BASIC   \r\n                   49-        CRIGD1  200078  200078  189073  189077  211073                                  \r\n                   50-        CRIGD1  353252  200078  200079                                                  \r\n                   51-        CRIGD1  353253  200079  200087                                                  \r\n                   52-        CRIGD1  353254  200087  200096                                                  \r\n                   53-        CRIGD2  2091    209     19765   1236                                            \r\n                   54-        CRIGD2  2092    209     18983   12356   18987   12356                           \r\n                   55-        CRIGD2  2093    209     21183   12356   21187   12356                           \r\n                   56-        CRIGD2  2094    209     21485   234                                             \r\n                   57-        CRIGD2  353255  200096  200101  123                                             \r\n                   58-        CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n                   59-        +CRG31          211073  3                                               +CRG32  \r\n                   60-        +CRG32  MSET    211077  123456  214075  123456                                  \r\n                   61-        CRIGDR  357000  19765   200078  3                                               \r\n                   62-        EIGR    1000    GIV                             15                      +EIGR   \r\n                   63-        +EIGR   MAX                                                                     \r\n                   64-        GRID    209     0       191.7117.001757 56.030010                               \r\n                   65-        GRID    18983   0       189.94  12.375  77.57   0       4                       \r\n                   66-        GRID    18987   0       189.94  -12.375 77.57   0       4                       \r\n                   67-        GRID    19765   0       196.90  .0      64.63   0       45                      \r\n                   68-        GRID    21183   0       211.72  12.375  77.57   0       4                       \r\n                   69-        GRID    21187   0       211.72  -12.375 77.57   0       4                       \r\n                   70-        GRID    21485   0       214.50  .0      77.57   0       156                     \r\n                   71-        GRID    189073  0       189.94  12.375  77.57   0       0                       \r\n                   72-        GRID    189077  0       189.94  -12.375 77.57   0       0                       \r\n                   73-        GRID    200070  0       200.00  .0      70.00   0       0                       \r\n                   74-        GRID    200078  0       200.00  .0      77.57   0       0                       \r\n                   75-        GRID    200079  0       200.00  .0      79.05   0       0                       \r\n                   76-        GRID    200086  0       200.00  .0      86.25   0       0                       \r\n                   77-        GRID    200087  0       200.00  .0      86.25   0       0                       \r\n                   78-        GRID    200095  0       200.00  .0      95.00   0       0                       \r\n                   79-        GRID    200096  0       200.00  .0      95.00   0       0                       \r\n                   80-        GRID    200101  0       200.00  .0      100.675 0       0                       \r\n                   81-        GRID    200106  0       200.00  .0      106.00  0       0                       \r\n                   82-        GRID    200114  0       200.00  .0      114.00  0       0                       \r\n                   83-        GRID    200121  0       200.00  .0      121.00  0       0                       \r\n                   84-        GRID    200129  0       200.00  .0      129.00  0       0                       \r\n                   85-        GRID    200137  0       200.00  .0      137.00  0       0                       \r\n                   86-        GRID    200145  0       200.00  .0      145.00  0       0                       \r\n                   87-        GRID    200153  0       200.00  .0      152.76  0       0                       \r\n                   88-        GRID    200155  0       200.00  .0      154.97  0       0                       \r\n                   89-        GRID    211073  0       211.72  12.375  77.57   0       0                       \r\n                   90-        GRID    211077  0       211.72  -12.375 77.57   0       0                       \r\n                   91-        GRID    214075  0       214.50  .0      77.57   0       0                       \r\n                   92-        MAT1    1       1.0+6   1.0+6                                                   \r\n                   93-        MAT1    10      1.0     1.0                                                     \r\n                   94-        MAT1    57      3.2+6   .8+6    .32                                             \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        MAT1    76      3.2+6   .8+6    .32                                             \r\n                   96-        MAT1    2014    10.5+6  4.0+6                                                   \r\n                   97-        MAT1    2024    10.5+6  4.0+6                                                   \r\n                   98-        MAT1    4130    29.0+6  11.0+6                                                  \r\n                   99-        MAT1    4340    29.0+6  11.0+6                                                  \r\n                  100-        MAT1    4620    29.0+6  11.0+6                                                  \r\n                  101-        MAT1    7075    10.3+6  3.9+6                                                   \r\n                  102-        MAT1    9046    17.5+6  6.5+6                                                   \r\n                  103-        OMIT    200070  456                                                             \r\n                  104-        OMIT    200078  456                                                             \r\n                  105-        OMIT    200086  456                                                             \r\n                  106-        OMIT    200095  456                                                             \r\n                  107-        OMIT    200101  456                                                             \r\n                  108-        OMIT    200106  456                                                             \r\n                  109-        OMIT    200114  456                                                             \r\n                  110-        OMIT    200121  456                                                             \r\n                  111-        OMIT    200129  456                                                             \r\n                  112-        OMIT    200137  456                                                             \r\n                  113-        OMIT    200145  456                                                             \r\n                  114-        OMIT    200153  456                                                             \r\n                  115-        OMIT    200155  456                                                             \r\n                  116-        PARAM   GRDEQ   0                                                               \r\n                  117-        PARAM   GRDPNT  0                                                               \r\n                  118-        PARAM   WTMASS  .00259                                                          \r\n                  119-        PBAR    353025  1       100.    1950.   1950.   1480.                           \r\n                  120-        PBAR    450007  1       100.    120.07  120.07  91.088                          \r\n                  121-        SUPORT  209     123456                                                          \r\n                              ENDDATA\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           22\r\n                                        PROFILE            117\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.179\r\n                                        RMS WAVEFRONT    4.379\r\n                                        RMS BANDWIDTH    7.604\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE             45\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.607\r\n                                        RMS WAVEFRONT    1.680\r\n                                        RMS BANDWIDTH    1.680\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       22         2\r\n                                        PROFILE (P)                        117        45\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.179     1.607\r\n                                        RMS WAVEFRONT (C-RMS)            4.379     1.680\r\n                                        RMS BANDWITCH (B-RMS)            7.604     1.680\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                46\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                          11\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           0\r\n                                        NUMBER OF UNIQUE EDGES                        17\r\n                                        MATRIX DENSITY, PERCENT                    7.908\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                4\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   7\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP        209      28   18983       2   18987       4   19765      27\r\n                         SEQGP      21183       6   21187       8   21485      10  189073       1\r\n                         SEQGP     189077       3  200070      11  200078      12  200079      13\r\n                         SEQGP     200086      14  200087      26  200095      15  200096      25\r\n                         SEQGP     200101      16  200106      17  200114      18  200121      19\r\n                         SEQGP     200129      20  200137      21  200145      22  200153      23\r\n                         SEQGP     200155      24  211073       5  211077       7  214075       9\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID  3530251\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID   189831\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID      209\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  8.91448792D+03  0.00000000D+00  0.00000000D+00  0.00000000D+00  6.18744993D+05 -1.28215298D+01 *\r\n                *  0.00000000D+00  8.91448792D+03  0.00000000D+00 -6.18744993D+05  0.00000000D+00  1.72237458D+06 *\r\n                *  0.00000000D+00  0.00000000D+00  8.91448792D+03  1.28215298D+01 -1.72237458D+06  0.00000000D+00 *\r\n                *  0.00000000D+00 -6.18744993D+05  1.28215298D+01  5.63588906D+07 -2.45803729D+03 -1.20357550D+08 *\r\n                *  6.18744993D+05  0.00000000D+00 -1.72237458D+06 -2.45803729D+03  4.37886530D+08 -7.18390448D+02 *\r\n                * -1.28215298D+01  1.72237458D+06  0.00000000D+00 -1.20357550D+08 -7.18390448D+02  3.86568740D+08 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            8.914487919D+03      0.000000000D+00  1.438280018D-03  6.940892162D+01\r\n                            Y            8.914487919D+03      1.932107142D+02  0.000000000D+00  6.940892162D+01\r\n                            Z            8.914487919D+03      1.932107142D+02  1.438280018D-03  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.341246786D+07 -1.921965004D+01  8.093881273D+05  *\r\n                                      * -1.921965004D+01  6.215888526D+07 -1.715381118D+02  *\r\n                                      *  8.093881273D+05 -1.715381118D+02  5.378751741D+07  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.339624878D+07                                    *\r\n                                      *                   6.215888526D+07                   *\r\n                                      *                                    5.380373649D+07  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  9.997992859D-01  0.000000000D+00  2.003466836D-02  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      * -2.003466836D-02  0.000000000D+00  9.997992859D-01  *\r\n                                      ***                                                 ***\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4\r\n\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS.\r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                  1     189073 - 1                                                        1                           1\r\n                  2     189073 - 2                                                        2                           2\r\n                  3     189073 - 3                                                        3                           3\r\n                  4     189073 - 4                                                        4                           4\r\n                  5     189073 - 5                                                        5                           5\r\n                  6     189073 - 6                                                        6                           6\r\n                  7      18983 - 1                                                        7                           7\r\n                  8      18983 - 2                                                        8                           8\r\n                  9      18983 - 3                                                        9                           9\r\n                 10      18983 - 4                     1                           1     10                    1       \r\n                 11      18983 - 5                                                       11                          10\r\n                 12      18983 - 6                                                       12                          11\r\n                 13     189077 - 1                                                       13                          12\r\n                 14     189077 - 2                                                       14                          13\r\n                 15     189077 - 3                                                       15                          14\r\n                 16     189077 - 4                                                       16                          15\r\n                 17     189077 - 5                                                       17                          16\r\n                 18     189077 - 6                                                       18                          17\r\n                 19      18987 - 1                                                       19                          18\r\n                 20      18987 - 2                                                       20                          19\r\n                 21      18987 - 3                                                       21                          20\r\n                 22      18987 - 4                     2                           2     22                    2       \r\n                 23      18987 - 5                                                       23                          21\r\n                 24      18987 - 6                                                       24                          22\r\n                 25     211073 - 1                                                       25                          23\r\n                 26     211073 - 2                                                       26                          24\r\n                 27     211073 - 3                                                       27                          25\r\n                 28     211073 - 4                                                       28                          26\r\n                 29     211073 - 5                                                       29                          27\r\n                 30     211073 - 6                                                       30                          28\r\n                 31      21183 - 1                                                       31                          29\r\n                 32      21183 - 2                                                       32                          30\r\n                 33      21183 - 3                                                       33                          31\r\n                 34      21183 - 4                     3                           3     34                    3       \r\n                 35      21183 - 5                                                       35                          32\r\n                 36      21183 - 6                                                       36                          33\r\n                 37     211077 - 1                                                       37                          34\r\n                 38     211077 - 2                                                       38                          35\r\n                 39     211077 - 3                                                       39                          36\r\n                 40     211077 - 4                                                       40                          37\r\n                 41     211077 - 5                                                       41                          38\r\n                 42     211077 - 6                                                       42                          39\r\n                 43      21187 - 1                                                       43                          40\r\n                 44      21187 - 2                                                       44                          41\r\n                 45      21187 - 3                                                       45                          42\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 46      21187 - 4                     4                           4     46                    4       \r\n                 47      21187 - 5                                                       47                          43\r\n                 48      21187 - 6                                                       48                          44\r\n                 49     214075 - 1                                                       49                          45\r\n                 50     214075 - 2                                                       50                          46\r\n                 51     214075 - 3                                                       51                          47\r\n                 52     214075 - 4                                                       52                          48\r\n                 53     214075 - 5                                                       53                          49\r\n                 54     214075 - 6                                                       54                          50\r\n                 55      21485 - 1                     5                           5     55                    5       \r\n                 56      21485 - 2                                                       56                          51\r\n                 57      21485 - 3                                                       57                          52\r\n                 58      21485 - 4                                                       58                          53\r\n                 59      21485 - 5                     6                           6     59                    6       \r\n                 60      21485 - 6                     7                           7     60                    7       \r\n                 61     200070 - 1                            1      1      1      8     61                            \r\n                 62     200070 - 2                            2      2      2      9     62                            \r\n                 63     200070 - 3                            3      3      3     10     63                            \r\n                 64     200070 - 4                                          4     11     64             1              \r\n                 65     200070 - 5                                          5     12     65             2              \r\n                 66     200070 - 6                                          6     13     66             3              \r\n                 67     200078 - 1                            4      4      7     14     67                            \r\n                 68     200078 - 2                            5      5      8     15     68                            \r\n                 69     200078 - 3                                                       69                          54\r\n                 70     200078 - 4                                          9     16     70             4              \r\n                 71     200078 - 5                                         10     17     71             5              \r\n                 72     200078 - 6                                         11     18     72             6              \r\n                 73     200079 - 1                                                       73                          55\r\n                 74     200079 - 2                                                       74                          56\r\n                 75     200079 - 3                                                       75                          57\r\n                 76     200079 - 4                                                       76                          58\r\n                 77     200079 - 5                                                       77                          59\r\n                 78     200079 - 6                                                       78                          60\r\n                 79     200086 - 1                            6      6     12     19     79                            \r\n                 80     200086 - 2                            7      7     13     20     80                            \r\n                 81     200086 - 3                            8      8     14     21     81                            \r\n                 82     200086 - 4                                         15     22     82             7              \r\n                 83     200086 - 5                                         16     23     83             8              \r\n                 84     200086 - 6                                         17     24     84             9              \r\n                 85     200095 - 1                            9      9     18     25     85                            \r\n                 86     200095 - 2                           10     10     19     26     86                            \r\n                 87     200095 - 3                           11     11     20     27     87                            \r\n                 88     200095 - 4                                         21     28     88            10              \r\n                 89     200095 - 5                                         22     29     89            11              \r\n                 90     200095 - 6                                         23     30     90            12              \r\n                 91     200101 - 1                                                       91                          61\r\n                 92     200101 - 2                                                       92                          62\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 93     200101 - 3                                                       93                          63\r\n                 94     200101 - 4                                         24     31     94            13              \r\n                 95     200101 - 5                                         25     32     95            14              \r\n                 96     200101 - 6                                         26     33     96            15              \r\n                 97     200106 - 1                           12     12     27     34     97                            \r\n                 98     200106 - 2                           13     13     28     35     98                            \r\n                 99     200106 - 3                           14     14     29     36     99                            \r\n                100     200106 - 4                                         30     37    100            16              \r\n                101     200106 - 5                                         31     38    101            17              \r\n                102     200106 - 6                                         32     39    102            18              \r\n                103     200114 - 1                           15     15     33     40    103                            \r\n                104     200114 - 2                           16     16     34     41    104                            \r\n                105     200114 - 3                           17     17     35     42    105                            \r\n                106     200114 - 4                                         36     43    106            19              \r\n                107     200114 - 5                                         37     44    107            20              \r\n                108     200114 - 6                                         38     45    108            21              \r\n                109     200121 - 1                           18     18     39     46    109                            \r\n                110     200121 - 2                           19     19     40     47    110                            \r\n                111     200121 - 3                           20     20     41     48    111                            \r\n                112     200121 - 4                                         42     49    112            22              \r\n                113     200121 - 5                                         43     50    113            23              \r\n                114     200121 - 6                                         44     51    114            24              \r\n                115     200129 - 1                           21     21     45     52    115                            \r\n                116     200129 - 2                           22     22     46     53    116                            \r\n                117     200129 - 3                           23     23     47     54    117                            \r\n                118     200129 - 4                                         48     55    118            25              \r\n                119     200129 - 5                                         49     56    119            26              \r\n                120     200129 - 6                                         50     57    120            27              \r\n                121     200137 - 1                           24     24     51     58    121                            \r\n                122     200137 - 2                           25     25     52     59    122                            \r\n                123     200137 - 3                           26     26     53     60    123                            \r\n                124     200137 - 4                                         54     61    124            28              \r\n                125     200137 - 5                                         55     62    125            29              \r\n                126     200137 - 6                                         56     63    126            30              \r\n                127     200145 - 1                           27     27     57     64    127                            \r\n                128     200145 - 2                           28     28     58     65    128                            \r\n                129     200145 - 3                           29     29     59     66    129                            \r\n                130     200145 - 4                                         60     67    130            31              \r\n                131     200145 - 5                                         61     68    131            32              \r\n                132     200145 - 6                                         62     69    132            33              \r\n                133     200153 - 1                           30     30     63     70    133                            \r\n                134     200153 - 2                           31     31     64     71    134                            \r\n                135     200153 - 3                           32     32     65     72    135                            \r\n                136     200153 - 4                                         66     73    136            34              \r\n                137     200153 - 5                                         67     74    137            35              \r\n                138     200153 - 6                                         68     75    138            36              \r\n                139     200155 - 1                           33     33     69     76    139                            \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                140     200155 - 2                           34     34     70     77    140                            \r\n                141     200155 - 3                           35     35     71     78    141                            \r\n                142     200155 - 4                                         72     79    142            37              \r\n                143     200155 - 5                                         73     80    143            38              \r\n                144     200155 - 6                                         74     81    144            39              \r\n                145     200096 - 1                                                      145                          64\r\n                146     200096 - 2                                                      146                          65\r\n                147     200096 - 3                                                      147                          66\r\n                148     200096 - 4                                                      148                          67\r\n                149     200096 - 5                                                      149                          68\r\n                150     200096 - 6                                                      150                          69\r\n                151     200087 - 1                                                      151                          70\r\n                152     200087 - 2                                                      152                          71\r\n                153     200087 - 3                                                      153                          72\r\n                154     200087 - 4                                                      154                          73\r\n                155     200087 - 5                                                      155                          74\r\n                156     200087 - 6                                                      156                          75\r\n                157      19765 - 1                                                      157                          76\r\n                158      19765 - 2                                                      158                          77\r\n                159      19765 - 3                                                      159                          78\r\n                160      19765 - 4                     8                          82    160                    8       \r\n                161      19765 - 5                     9                          83    161                    9       \r\n                162      19765 - 6                                                      162                          79\r\n                163        209 - 1                                  36     75     84    163      1                     \r\n                164        209 - 2                                  37     76     85    164      2                     \r\n                165        209 - 3                                  38     77     86    165      3                     \r\n                166        209 - 4                                  39     78     87    166      4                     \r\n                167        209 - 5                                  40     79     88    167      5                     \r\n                168        209 - 6                                  41     80     89    168      6                     \r\n0--- C O L U M N   T O T A L S ---       0      0      9     35     41     80     89    168      6     39      9     79\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS\r\n0                                                         MPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   189073-1   189073-2   189073-3   189073-4   189073-5   189073-6    18983-1    18983-2    18983-3    18983-5\r\n     11=    18983-6   189077-1   189077-2   189077-3   189077-4   189077-5   189077-6    18987-1    18987-2    18987-3\r\n     21=    18987-5    18987-6   211073-1   211073-2   211073-3   211073-4   211073-5   211073-6    21183-1    21183-2\r\n     31=    21183-3    21183-5    21183-6   211077-1   211077-2   211077-3   211077-4   211077-5   211077-6    21187-1\r\n     41=    21187-2    21187-3    21187-5    21187-6   214075-1   214075-2   214075-3   214075-4   214075-5   214075-6\r\n     51=    21485-2    21485-3    21485-4   200078-3   200079-1   200079-2   200079-3   200079-4   200079-5   200079-6\r\n     61=   200101-1   200101-2   200101-3   200096-1   200096-2   200096-3   200096-4   200096-5   200096-6   200087-1\r\n     71=   200087-2   200087-3   200087-4   200087-5   200087-6    19765-1    19765-2    19765-3    19765-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                         SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                        OMIT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-4   200070-5   200070-6   200078-4   200078-5   200078-6   200086-4   200086-5   200086-6   200095-4\r\n     11=   200095-5   200095-6   200101-4   200101-5   200101-6   200106-4   200106-5   200106-6   200114-4   200114-5\r\n     21=   200114-6   200121-4   200121-5   200121-6   200129-4   200129-5   200129-6   200137-4   200137-5   200137-6\r\n     31=   200145-4   200145-5   200145-6   200153-4   200153-5   200153-6   200155-4   200155-5   200155-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    ANALYSIS DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-1   200070-2   200070-3   200078-1   200078-2   200086-1   200086-2   200086-3   200095-1   200095-2\r\n     11=   200095-3   200106-1   200106-2   200106-3   200114-1   200114-2   200114-3   200121-1   200121-2   200121-3\r\n     21=   200129-1   200129-2   200129-3   200137-1   200137-2   200137-3   200145-1   200145-2   200145-3   200153-1\r\n     31=   200153-2   200153-3   200155-1   200155-2   200155-3      209-1      209-2      209-3      209-4      209-5\r\n     41=      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                      SUPORT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=      209-1      209-2      209-3      209-4      209-5      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    PERM SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        0   MPC        0\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n           209   G          3          1        2        3                                                                          \r\n           209   G          3          4        5        6                                                                          \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    8     BBAR =    3\r\n                                        C =    7     CBAR =    9\r\n                                        R =   10\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    79)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   3.5812325E-13\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        41\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        15\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        37        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        2        38        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        3        39        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        4        40        0.0                 0.0                 0.0                 4.745215E+00        0.0                      \r\n        5        41        0.0                 0.0                 0.0                 2.199128E+01        0.0                      \r\n        6        36        0.0                 0.0                 0.0                 3.051504E+03        0.0                      \r\n        7        35        3.523143E+02        1.877004E+01        2.987344E+00        3.058785E+00        1.077654E+03             \r\n        8        34        4.491364E+02        2.119284E+01        3.372945E+00        6.502028E+00        2.920298E+03             \r\n        9        33        2.364993E+04        1.537853E+02        2.447569E+01        8.486223E-01        2.006985E+04             \r\n       10        32        2.840193E+04        1.685287E+02        2.682218E+01        8.414580E-01        2.389903E+04             \r\n       11        31        1.495553E+05        3.867238E+02        6.154901E+01        5.886284E-01        8.803251E+04             \r\n       12        30        1.953452E+05        4.419787E+02        7.034309E+01        4.855810E-01        9.485592E+04             \r\n       13        29        5.072981E+05        7.122486E+02        1.133579E+02        3.867738E-01        1.962096E+05             \r\n       14        28        5.446138E+05        7.379795E+02        1.174531E+02        3.940395E-01        2.145993E+05             \r\n       15        27        1.069645E+06        1.034236E+03        1.646038E+02        1.257546E+00        1.345127E+06             \r\n       16        26        3.326742E+06        1.823936E+03        2.902884E+02        0.0                 0.0                      \r\n       17        25        3.333666E+06        1.825833E+03        2.905904E+02        0.0                 0.0                      \r\n       18        24        8.023708E+06        2.832615E+03        4.508247E+02        0.0                 0.0                      \r\n       19        23        8.048828E+06        2.837046E+03        4.515298E+02        0.0                 0.0                      \r\n       20        22        1.904542E+07        4.364106E+03        6.945691E+02        0.0                 0.0                      \r\n       21        21        1.908568E+07        4.368716E+03        6.953028E+02        0.0                 0.0                      \r\n       22        20        2.978056E+07        5.457157E+03        8.685334E+02        0.0                 0.0                      \r\n       23        18        3.754954E+07        6.127768E+03        9.752645E+02        0.0                 0.0                      \r\n       24        19        3.754995E+07        6.127802E+03        9.752699E+02        0.0                 0.0                      \r\n       25        17        7.120777E+07        8.438470E+03        1.343024E+03        0.0                 0.0                      \r\n       26        16        7.133043E+07        8.445734E+03        1.344180E+03        0.0                 0.0                      \r\n       27        15        8.488149E+07        9.213115E+03        1.466313E+03        0.0                 0.0                      \r\n       28        14        9.721060E+07        9.859544E+03        1.569195E+03        0.0                 0.0                      \r\n       29        12        1.444611E+08        1.201920E+04        1.912915E+03        0.0                 0.0                      \r\n       30        13        1.452864E+08        1.205348E+04        1.918371E+03        0.0                 0.0                      \r\n       31        11        1.620432E+08        1.272962E+04        2.025981E+03        0.0                 0.0                      \r\n       32         9        2.362997E+08        1.537204E+04        2.446537E+03        0.0                 0.0                      \r\n       33        10        2.363582E+08        1.537395E+04        2.446839E+03        0.0                 0.0                      \r\n       34         8        2.386800E+08        1.544927E+04        2.458828E+03        0.0                 0.0                      \r\n       35         7        2.969673E+08        1.723274E+04        2.742675E+03        0.0                 0.0                      \r\n       36         6        3.486627E+08        1.867251E+04        2.971823E+03        0.0                 0.0                      \r\n       37         4        6.061834E+08        2.462079E+04        3.918521E+03        0.0                 0.0                      \r\n       38         5        6.061843E+08        2.462081E+04        3.918523E+03        0.0                 0.0                      \r\n       39         3        7.824220E+08        2.797181E+04        4.451851E+03        0.0                 0.0                      \r\n       40         2        1.548007E+09        3.934471E+04        6.261906E+03        0.0                 0.0                      \r\n       41         1        2.871167E+09        5.358327E+04        8.528042E+03        0.0                 0.0                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                    E Q U I L I B R I U M   C H E C K   L O A D S\r\n0                RESULTANT LOADS AT POINT      0 IN BASIC COORDINATE SYSTEM\r\n0                        SUBCASE       1,   MODE    1,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.323489E-23   0.000000E+00   0.000000E+00   1.033976E-25   3.841455E-14   2.584939E-26\r\n     ---TOTAL   1.323489E-23   0.000000E+00   0.000000E+00   1.033976E-25   3.841455E-14   2.584939E-26\r\n0                        SUBCASE       1,   MODE    2,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   2.646978E-23   0.000000E+00   0.000000E+00\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   2.646978E-23   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    3,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -1.388562E-17  -1.105679E-14  -2.818896E-16\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -1.388562E-17  -1.105679E-14  -2.818896E-16\r\n0                        SUBCASE       1,   MODE    4,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   2.293550E-11   8.240058E-12  -5.267936E-12\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   2.293550E-11   8.240058E-12  -5.267936E-12\r\n0                        SUBCASE       1,   MODE    5,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   1.804274E-12  -2.933340E-08   2.413113E-10\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   1.804274E-12  -2.933340E-08   2.413113E-10\r\n0                        SUBCASE       1,   MODE    6,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.355253E-20   0.000000E+00   0.000000E+00   4.922538E-11   4.114644E-11  -1.708888E-11\r\n     ---TOTAL   1.355253E-20   0.000000E+00   0.000000E+00   4.922538E-11   4.114644E-11  -1.708888E-11\r\n0                        SUBCASE       1,   MODE    7,   FREQUENCY   2.987344E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00  -2.168404E-19   0.000000E+00  -5.220482E-05  -3.014457E-04  -3.262815E-05\r\n     ---TOTAL   0.000000E+00  -2.168404E-19   0.000000E+00  -5.220482E-05  -3.014457E-04  -3.262815E-05\r\n0                        SUBCASE       1,   MODE    8,   FREQUENCY   3.372945E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -7.105427E-15   0.000000E+00   0.000000E+00  -3.492460E-10   4.683021E-10  -3.771675E-09\r\n     ---TOTAL  -7.105427E-15   0.000000E+00   0.000000E+00  -3.492460E-10   4.683021E-10  -3.771675E-09\r\n0                        SUBCASE       1,   MODE    9,   FREQUENCY   2.447569E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.387779E-17   0.000000E+00   0.000000E+00  -1.222361E-09   1.679503E-08  -2.734305E-08\r\n     ---TOTAL   1.387779E-17   0.000000E+00   0.000000E+00  -1.222361E-09   1.679503E-08  -2.734305E-08\r\n0                        SUBCASE       1,   MODE   10,   FREQUENCY   2.682218E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -3.988580E-04  -7.718182E-04  -6.255479E-03\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -3.988580E-04  -7.718182E-04  -6.255479E-03\r\n0                        SUBCASE       1,   MODE   11,   FREQUENCY   6.154901E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -1.455192E-11   0.000000E+00   0.000000E+00  -9.657501E-04   9.130112E-03  -2.926317E-02\r\n     ---TOTAL  -1.455192E-11   0.000000E+00   0.000000E+00  -9.657501E-04   9.130112E-03  -2.926317E-02\r\n0                        SUBCASE       1,   MODE   12,   FREQUENCY   7.034309E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   5.684342E-14   0.000000E+00   0.000000E+00   7.916242E-09   5.304981E-09   2.083834E-07\r\n     ---TOTAL   5.684342E-14   0.000000E+00   0.000000E+00   7.916242E-09   5.304981E-09   2.083834E-07\r\n0                        SUBCASE       1,   MODE   13,   FREQUENCY   1.133579E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.455192E-11  -1.387779E-17   0.000000E+00  -1.479894E-04   1.561460E-02  -7.868833E-03\r\n     ---TOTAL   1.455192E-11  -1.387779E-17   0.000000E+00  -1.479894E-04   1.561460E-02  -7.868833E-03\r\n0                        SUBCASE       1,   MODE   14,   FREQUENCY   1.174531E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -1.705719E-13  -7.275958E-12   0.000000E+00   1.396984E-09  -9.642578E-09   3.929017E-08\r\n     ---TOTAL  -1.705719E-13  -7.275958E-12   0.000000E+00   1.396984E-09  -9.642578E-09   3.929017E-08\r\n0                        SUBCASE       1,   MODE   15,   FREQUENCY   1.646038E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -8.181558E-04  -1.340751E-01  -2.643341E-02\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -8.181558E-04  -1.340751E-01  -2.643341E-02\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.633720E-08   0.0           -4.021333E-07   7.065482E-10   1.257982E-06  -1.692645E-10                  \r\n         18983      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n         18987      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n         21183      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n         21187      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.885781E-12   0.0            0.0            0.0                           \r\n        189073      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n        189077      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n        200078      G      9.590743E-08   0.0            8.359672E-08   0.0           -1.200456E-08   0.0                           \r\n        200079      G     -9.207447E-11   0.0            8.807942E-08   0.0            0.0            0.0                           \r\n        200101      G      5.218474E-10   0.0            2.304572E-07   0.0            0.0            0.0                           \r\n        211073      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n        211077      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.885781E-12   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      0.0            0.0            0.0           -2.101853E-11   0.0            0.0                           \r\n         18983      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n         18987      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n         21183      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n         21187      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        189073      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        189077      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n        200078      G      0.0           -1.342849E-09   0.0            3.298063E-08   0.0            0.0                           \r\n        200079      G      0.0           -8.939063E-11   0.0            0.0            0.0            0.0                           \r\n        200101      G      0.0            1.432240E-09   0.0            0.0            0.0            0.0                           \r\n        211073      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        211077      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      2.857787E-08   0.0            1.154840E-07  -2.029054E-10  -3.370324E-07   5.021103E-11                  \r\n         18983      G     -2.123302E-10   0.0           -2.091838E-11   0.0            0.0            0.0                           \r\n         18987      G     -2.123302E-10   0.0           -2.091838E-11   0.0            0.0            0.0                           \r\n         21183      G     -2.123302E-10   0.0            4.183676E-11   0.0            0.0            0.0                           \r\n         21187      G     -2.123302E-10   0.0            4.183676E-11   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.182787E-10   0.0            0.0            0.0                           \r\n        189073      G      2.123302E-10   0.0            2.091838E-11   0.0            0.0            0.0                           \r\n        189077      G      2.123302E-10   0.0            2.091838E-11   0.0            0.0            0.0                           \r\n        200078      G     -2.843314E-08   0.0           -2.421439E-08   0.0            2.607519E-11   0.0                           \r\n        200079      G      5.774033E-11   0.0           -2.421439E-08   0.0            0.0            0.0                           \r\n        200101      G     -2.024715E-10   0.0           -6.705523E-08   0.0            0.0            0.0                           \r\n        211073      G      2.123302E-10   0.0           -4.183676E-11   0.0            0.0            0.0                           \r\n        211077      G      2.123302E-10   0.0           -4.183676E-11   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.182787E-10   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -4.792809E-06  -8.913342E-04  -2.000607E-05   1.901989E-02   6.257930E-05  -7.387653E-03                  \r\n         18983      G      4.454960E-06   2.302457E-04  -1.401777E-05   0.0            0.0            0.0                           \r\n         18987      G     -1.239089E-05   2.302457E-04  -2.126909E-05   0.0            0.0            0.0                           \r\n         21183      G      4.454960E-06   2.154214E-04  -1.328259E-05   0.0            0.0            0.0                           \r\n         21187      G     -1.239089E-05   2.154214E-04  -2.053391E-05   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.851290E-06   0.0            0.0            0.0                           \r\n        189073      G     -4.454960E-06  -2.302457E-04   1.401777E-05   0.0            0.0            0.0                           \r\n        189077      G      1.239089E-05  -2.302457E-04   2.126909E-05   0.0            0.0            0.0                           \r\n        200078      G      4.792807E-06   2.458370E-02   4.161944E-06  -4.493844E-01  -2.460596E-11   1.379097E-12                  \r\n        200079      G      1.304736E-12  -4.524775E-03   4.375824E-06   0.0            0.0           -2.743273E-12                  \r\n        200101      G      9.647674E-13  -1.916759E-02   1.146831E-05   0.0            0.0            0.0                           \r\n        211073      G     -4.454960E-06  -2.154214E-04   1.328259E-05   0.0            0.0            0.0                           \r\n        211077      G      1.239089E-05  -2.154214E-04   2.053391E-05   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.851290E-06   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      7.283613E-02  -4.742772E-11   3.070352E-01  -5.394585E-04  -9.750485E-01   1.279729E-04                  \r\n         18983      G      1.817650E-04   1.225133E-11  -9.021242E-06   0.0            0.0            0.0                           \r\n         18987      G      1.817650E-04   1.225133E-11  -9.021192E-06   0.0            0.0            0.0                           \r\n         21183      G      1.817650E-04   1.146253E-11   6.303094E-06   0.0            0.0            0.0                           \r\n         21187      G      1.817650E-04   1.146253E-11   6.303144E-06   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.670730E-05   0.0            0.0            0.0                           \r\n        189073      G     -1.817650E-04  -1.225133E-11   9.021242E-06   0.0            0.0            0.0                           \r\n        189077      G     -1.817650E-04  -1.225133E-11   9.021192E-06   0.0            0.0            0.0                           \r\n        200078      G     -4.699313E-02  -2.720109E-08  -6.387376E-02   3.478584E-07   6.718232E-01   1.093001E-11                  \r\n        200079      G      3.495119E-03   1.297109E-08  -6.715619E-02   0.0            0.0           -2.616189E-18                  \r\n        200101      G     -2.933813E-02   1.427743E-08  -1.760052E-01   0.0            0.0            0.0                           \r\n        211073      G     -1.817650E-04  -1.146253E-11  -6.303094E-06   0.0            0.0            0.0                           \r\n        211077      G     -1.817650E-04  -1.146253E-11  -6.303144E-06   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.670730E-05   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -5.170027E-05   3.125151E-04  -2.093978E-04  -6.942764E-03   6.196592E-04   2.590130E-03                  \r\n         18983      G     -1.582519E-05  -8.072759E-05  -5.988371E-05   0.0            0.0            0.0                           \r\n         18987      G     -9.918818E-06  -8.072759E-05  -6.843156E-05   0.0            0.0            0.0                           \r\n         21183      G     -1.582519E-05  -7.552998E-05  -5.723190E-06   0.0            0.0            0.0                           \r\n         21187      G     -9.918818E-06  -7.552998E-05  -1.427104E-05   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -7.301986E-05   0.0            0.0            0.0                           \r\n        189073      G      1.582519E-05   8.072759E-05   5.988371E-05   0.0            0.0            0.0                           \r\n        189077      G      9.918818E-06   8.072759E-05   6.843156E-05   0.0            0.0            0.0                           \r\n        200078      G      1.305221E-04  -8.291303E-02   4.356186E-05   1.685142E+00   1.838103E-03  -1.124128E-09                  \r\n        200079      G      6.777021E-07   1.033780E-02   4.580047E-05   0.0            0.0           -4.656613E-10                  \r\n        200101      G     -7.949955E-05   7.226271E-02   1.200354E-04   0.0            0.0            0.0                           \r\n        211073      G      1.582519E-05   7.552998E-05   5.723190E-06   0.0            0.0            0.0                           \r\n        211077      G      9.918818E-06   7.552998E-05   1.427104E-05   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            7.301986E-05   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.352314E+03    (CYCLIC FREQUENCY =  2.987344E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      8.542817E+02  -1.148010E-03   1.408421E+01   8.875536E-02   8.362155E+04   1.491425E+00                  \r\n         18983      G     -2.457677E+01   2.965492E-04  -4.642505E+02   0.0            0.0            0.0                           \r\n         18987      G     -2.457680E+01   2.965492E-04  -4.642469E+02   0.0            0.0            0.0                           \r\n         21183      G     -2.457677E+01   2.774559E-04   5.428923E+02   0.0            0.0            0.0                           \r\n         21187      G     -2.457680E+01   2.774559E-04   5.428959E+02   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.984203E+03   0.0            0.0            0.0                           \r\n        189073      G      2.457677E+01  -2.965492E-04   4.642505E+02   0.0            0.0            0.0                           \r\n        189077      G      2.457680E+01  -2.965492E-04   4.642469E+02   0.0            0.0            0.0                           \r\n        200078      G      2.684400E+01   1.565766E-04  -6.260682E-01  -8.247953E-03  -9.118691E+01  -4.274636E-11                  \r\n        200079      G      2.075721E+03  -2.666838E-03  -5.903737E-01   0.0            0.0            1.110223E-16                  \r\n        200101      G     -2.956847E+03   3.658272E-03  -1.286777E+01   0.0            0.0            0.0                           \r\n        211073      G      2.457677E+01  -2.774559E-04  -5.428923E+02   0.0            0.0            0.0                           \r\n        211077      G      2.457680E+01  -2.774559E-04  -5.428959E+02   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.984203E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.449136E+03    (CYCLIC FREQUENCY =  3.372945E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.027537E-02   8.816226E+02  -1.500520E-02  -9.825212E+04   5.417212E-01   7.307152E+03                  \r\n         18983      G     -8.334016E+00  -2.277371E+02   1.601251E+03   0.0            0.0            0.0                           \r\n         18987      G      8.328288E+00  -2.277371E+02  -1.601253E+03   0.0            0.0            0.0                           \r\n         21183      G     -8.334016E+00  -2.130742E+02   1.601254E+03   0.0            0.0            0.0                           \r\n         21187      G      8.328288E+00  -2.130742E+02  -1.601250E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            9.093590E-03   0.0            0.0            0.0                           \r\n        189073      G      8.334016E+00   2.277371E+02  -1.601251E+03   0.0            0.0            0.0                           \r\n        189077      G     -8.328288E+00   2.277371E+02   1.601253E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.524382E-03   1.070830E+02  -7.575724E-02   1.628531E+02  -2.799110E-04   1.432454E-11                  \r\n        200079      G      1.838636E-03   2.601391E+03   2.864007E-02   0.0            0.0            3.410605E-12                  \r\n        200101      G     -8.589627E-03  -3.590097E+03   6.212237E-02   0.0            0.0            0.0                           \r\n        211073      G      8.334016E+00   2.130742E+02  -1.601254E+03   0.0            0.0            0.0                           \r\n        211077      G     -8.328288E+00   2.130742E+02   1.601250E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -9.093590E-03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.236499E+05    (CYCLIC FREQUENCY =  2.447569E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      4.076890E-02   1.529217E+04  -1.941184E-01  -4.280362E+05   2.781596E+00   1.267460E+05                  \r\n         18983      G     -1.445285E+02  -3.950208E+03   1.992789E+03   0.0            0.0            0.0                           \r\n         18987      G      1.444871E+02  -3.950208E+03  -1.992791E+03   0.0            0.0            0.0                           \r\n         21183      G     -1.445285E+02  -3.695875E+03   1.992792E+03   0.0            0.0            0.0                           \r\n         21187      G      1.444871E+02  -3.695875E+03  -1.992787E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.451893E-02   0.0            0.0            0.0                           \r\n        189073      G      1.445285E+02   3.950208E+03  -1.992789E+03   0.0            0.0            0.0                           \r\n        189077      G     -1.444871E+02   3.950208E+03   1.992791E+03   0.0            0.0            0.0                           \r\n        200078      G     -1.676536E-02  -2.157355E+03   2.048323E-02   2.305789E+04  -2.368291E-02   0.0                           \r\n        200079      G     -1.312193E-02  -1.053848E+04   4.104262E-03   0.0            0.0            0.0                           \r\n        200101      G     -1.088161E-02  -2.596330E+03   1.695309E-01   0.0            0.0            0.0                           \r\n        211073      G      1.445285E+02   3.695875E+03  -1.992792E+03   0.0            0.0            0.0                           \r\n        211077      G     -1.444871E+02   3.695875E+03   1.992787E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -1.451893E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.284019E+05    (CYCLIC FREQUENCY =  2.682218E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      2.078306E+04  -2.736260E-02  -3.228644E+03   6.523232E+00   6.904508E+05   3.628280E+01                  \r\n         18983      G     -4.711869E+03   7.068193E-03  -1.271735E+03   0.0            0.0            0.0                           \r\n         18987      G     -4.711869E+03   7.068193E-03  -1.271724E+03   0.0            0.0            0.0                           \r\n         21183      G     -4.711869E+03   6.613108E-03   1.872595E+03   0.0            0.0            0.0                           \r\n         21187      G     -4.711869E+03   6.613108E-03   1.872605E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.010641E+04   0.0            0.0            0.0                           \r\n        189073      G      4.711869E+03  -7.068193E-03   1.271735E+03   0.0            0.0            0.0                           \r\n        189077      G      4.711869E+03  -7.068193E-03   1.271724E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.463880E+03   2.731989E-04   1.406916E+02  -2.405403E-02  -2.556608E+04   1.455187E-11                  \r\n        200079      G     -9.697204E+03   1.796259E-02   1.326390E+02   0.0            0.0            4.163336E-17                  \r\n        200101      G     -7.621981E+03   9.126816E-03   2.955313E+03   0.0            0.0            0.0                           \r\n        211073      G      4.711869E+03  -6.613108E-03  -1.872595E+03   0.0            0.0            0.0                           \r\n        211077      G      4.711869E+03  -6.613108E-03  -1.872605E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -1.010641E+04   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.149555E+06    (CYCLIC FREQUENCY =  6.154901E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      6.527185E+04   5.748166E-01  -9.312070E+04   1.522860E+02   2.035270E+06   1.194176E+02                  \r\n         18983      G     -2.204216E+04  -1.484842E-01   2.268464E+03   0.0            0.0            0.0                           \r\n         18987      G     -2.204215E+04  -1.484842E-01   2.268507E+03   0.0            0.0            0.0                           \r\n         21183      G     -2.204216E+04  -1.389241E-01  -8.136258E+02   0.0            0.0            0.0                           \r\n         21187      G     -2.204215E+04  -1.389241E-01  -8.135831E+02   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -5.364455E+03   0.0            0.0            0.0                           \r\n        189073      G      2.204216E+04   1.484842E-01  -2.268464E+03   0.0            0.0            0.0                           \r\n        189077      G      2.204215E+04   1.484842E-01  -2.268507E+03   0.0            0.0            0.0                           \r\n        200078      G     -5.684745E+04  -4.891713E-01   3.497656E+03  -1.286699E+00   1.463483E+05   0.0                           \r\n        200079      G     -8.822879E+03  -8.081222E-02   3.296792E+03   0.0            0.0            0.0                           \r\n        200101      G      3.984850E+02  -4.833087E-03   8.632626E+04   0.0            0.0            0.0                           \r\n        211073      G      2.204216E+04   1.389241E-01   8.136258E+02   0.0            0.0            0.0                           \r\n        211077      G      2.204215E+04   1.389241E-01   8.135831E+02   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            5.364455E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.195345E+06    (CYCLIC FREQUENCY =  7.034309E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -6.505733E-01   9.222319E+04  -6.685863E-02  -1.909049E+06  -1.256305E+01   7.643734E+05                  \r\n         18983      G     -8.713308E+02  -2.382271E+04  -1.564401E+03   0.0            0.0            0.0                           \r\n         18987      G      8.716495E+02  -2.382271E+04   1.564370E+03   0.0            0.0            0.0                           \r\n         21183      G     -8.713308E+02  -2.228888E+04  -1.564381E+03   0.0            0.0            0.0                           \r\n         21187      G      8.716495E+02  -2.228888E+04   1.564390E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.266480E-02   0.0            0.0            0.0                           \r\n        189073      G      8.713308E+02   2.382271E+04   1.564401E+03   0.0            0.0            0.0                           \r\n        189077      G     -8.716495E+02   2.382271E+04  -1.564370E+03   0.0            0.0            0.0                           \r\n        200078      G      5.160499E-01  -7.252590E+04   1.292283E-01  -1.767067E+05  -1.263762E+00   0.0                           \r\n        200079      G      1.267308E-01  -1.645486E+04  -4.382817E-02   0.0            0.0            0.0                           \r\n        200101      G      7.792643E-03  -3.242429E+03  -1.854148E-02   0.0            0.0            0.0                           \r\n        211073      G      8.713308E+02   2.228888E+04   1.564381E+03   0.0            0.0            0.0                           \r\n        211077      G     -8.716495E+02   2.228888E+04  -1.564390E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.266480E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.507298E+06    (CYCLIC FREQUENCY =  1.133579E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.545032E+04  -3.474046E-02  -1.559267E+05   2.751115E+02   7.781604E+05  -2.744202E+01                  \r\n         18983      G     -5.927110E+03   8.974010E-03   1.629758E+03   0.0            0.0            0.0                           \r\n         18987      G     -5.927110E+03   8.974010E-03   1.629774E+03   0.0            0.0            0.0                           \r\n         21183      G     -5.927110E+03   8.396219E-03  -1.406831E+03   0.0            0.0            0.0                           \r\n         21187      G     -5.927110E+03   8.396219E-03  -1.406815E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -7.975171E+03   0.0            0.0            0.0                           \r\n        189073      G      5.927110E+03  -8.974010E-03  -1.629758E+03   0.0            0.0            0.0                           \r\n        189077      G      5.927110E+03  -8.974010E-03  -1.629774E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.589540E+04  -1.152645E-01   2.642076E+03  -1.489095E+00   4.628788E+05   5.820767E-11                  \r\n        200079      G      6.787584E+04   2.106249E-01   2.489022E+03   0.0            0.0           -1.387779E-17                  \r\n        200101      G     -1.653012E+04  -6.061989E-02   1.507956E+05   0.0            0.0            0.0                           \r\n        211073      G      5.927110E+03  -8.396219E-03   1.406831E+03   0.0            0.0            0.0                           \r\n        211077      G      5.927110E+03  -8.396219E-03   1.406815E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            7.975171E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.544614E+06    (CYCLIC FREQUENCY =  1.174531E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.784778E-02   4.669009E+04   7.696017E-02  -8.968731E+05  -2.121522E+00   3.869815E+05                  \r\n         18983      G     -4.411813E+02  -1.206079E+04  -2.198613E+03   0.0            0.0            0.0                           \r\n         18987      G      4.412423E+02  -1.206079E+04   2.198601E+03   0.0            0.0            0.0                           \r\n         21183      G     -4.411813E+02  -1.128426E+04  -2.198603E+03   0.0            0.0            0.0                           \r\n         21187      G      4.412423E+02  -1.128426E+04   2.198612E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.690862E-02   0.0            0.0            0.0                           \r\n        189073      G      4.411813E+02   1.206079E+04   2.198613E+03   0.0            0.0            0.0                           \r\n        189077      G     -4.412423E+02   1.206079E+04  -2.198601E+03   0.0            0.0            0.0                           \r\n        200078      G      2.246275E-01  -8.555726E+04   5.193660E-02  -6.429478E+05  -1.793763E+00  -2.910383E-11                  \r\n        200079      G     -1.895501E-01   6.622625E+04  -2.058280E-02   0.0            0.0            0.0                           \r\n        200101      G      6.277040E-02  -2.735909E+04  -1.083140E-01   0.0            0.0            0.0                           \r\n        211073      G      4.411813E+02   1.128426E+04   2.198603E+03   0.0            0.0            0.0                           \r\n        211077      G     -4.412423E+02   1.128426E+04  -2.198612E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.690862E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.106964E+07    (CYCLIC FREQUENCY =  1.646038E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      4.158803E+05   5.067949E-01   1.409070E+06  -2.486980E+03  -2.918888E+06   7.348758E+02                  \r\n         18983      G     -1.991067E+04  -1.309131E-01   2.544004E+03   0.0            0.0            0.0                           \r\n         18987      G     -1.991066E+04  -1.309131E-01   2.543991E+03   0.0            0.0            0.0                           \r\n         21183      G     -1.991067E+04  -1.224843E-01  -1.311458E+03   0.0            0.0            0.0                           \r\n         21187      G     -1.991066E+04  -1.224843E-01  -1.311471E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -8.015892E+03   0.0            0.0            0.0                           \r\n        189073      G      1.991067E+04   1.309131E-01  -2.544004E+03   0.0            0.0            0.0                           \r\n        189077      G      1.991066E+04   1.309131E-01  -2.543991E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.694023E+05  -4.195791E-01   3.929329E+04  -1.539915E+00   1.291299E+06  -5.820772E-11                  \r\n        200079      G      8.909943E+02  -6.808867E-03   3.698691E+04   0.0            0.0            5.551115E-17                  \r\n        200101      G     -4.736901E+04  -8.040691E-02  -1.485350E+06   0.0            0.0            0.0                           \r\n        211073      G      1.991067E+04   1.224843E-01   1.311458E+03   0.0            0.0            0.0                           \r\n        211077      G      1.991066E+04   1.224843E-01   1.311471E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            8.015892E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18983      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18987      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         19765      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21183      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21187      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n        189073      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        189077      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        200070      G      1.000000E+00   0.0           -6.328272E-15   0.0           -1.330773E-17   0.0                           \r\n        200078      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200079      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200086      G      1.000000E+00   0.0           -6.341715E-15   0.0           -1.325098E-17   0.0                           \r\n        200087      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200095      G      1.000000E+00   0.0           -6.336078E-15   0.0            2.670525E-17   0.0                           \r\n        200096      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200101      G      1.000000E+00   0.0            0.0            0.0            2.012381E-17   0.0                           \r\n        200106      G      1.000000E+00   0.0           -6.326537E-15   0.0           -5.277354E-17   0.0                           \r\n        200114      G      1.000000E+00   0.0           -6.315478E-15   0.0            1.250390E-17   0.0                           \r\n        200121      G      1.000000E+00   0.0           -6.313527E-15   0.0            7.692753E-18   0.0                           \r\n        200129      G      1.000000E+00   0.0           -6.311791E-15   0.0            3.785390E-18   0.0                           \r\n        200137      G      1.000000E+00   0.0           -6.309189E-15   0.0            7.740611E-18   0.0                           \r\n        200145      G      1.000000E+00   0.0           -6.308160E-15   0.0           -1.479871E-17   0.0                           \r\n        200153      G      1.000000E+00   0.0           -6.309340E-15   0.0            4.655832E-17   0.0                           \r\n        200155      G      1.000000E+00   0.0           -6.309340E-15   0.0            3.223199E-17   0.0                           \r\n        211073      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        211077      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        214075      G      1.000000E+00   0.0           -1.942890E-16   0.0            1.273768E-17   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18983      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18987      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         19765      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21183      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21187      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        189073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        189077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        200070      G      0.0            1.000000E+00   0.0           -1.700419E-17   0.0            0.0                           \r\n        200078      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200079      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200086      G      0.0            1.000000E+00   0.0            1.286474E-17   0.0            0.0                           \r\n        200087      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200095      G      0.0            1.000000E+00   0.0           -4.880604E-17   0.0            0.0                           \r\n        200096      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200101      G      0.0            1.000000E+00   0.0           -1.331875E-17   0.0            0.0                           \r\n        200106      G      0.0            1.000000E+00   0.0            1.694066E-17   0.0            0.0                           \r\n        200114      G      0.0            1.000000E+00   0.0           -5.204170E-18   0.0            0.0                           \r\n        200121      G      0.0            1.000000E+00   0.0            1.127570E-17   0.0            0.0                           \r\n        200129      G      0.0            1.000000E+00   0.0            1.474515E-17   0.0            0.0                           \r\n        200137      G      0.0            1.000000E+00   0.0            1.040834E-17   0.0            0.0                           \r\n        200145      G      0.0            1.000000E+00   0.0            1.387779E-17   0.0            0.0                           \r\n        200153      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        200155      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        211073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        211077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        214075      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18983      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18987      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         19765      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21183      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21187      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n        189073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        189077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200070      G     -4.862983E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200078      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200079      G      8.945737E-16   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200086      G      5.282075E-15   0.0            1.000000E+00   0.0            6.176852E-16   0.0                           \r\n        200087      G      5.475168E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200095      G      1.083319E-14   0.0            1.000000E+00   0.0            6.527213E-16   0.0                           \r\n        200096      G      1.104186E-14   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200101      G      1.465227E-14   0.0            1.000000E+00   0.0            7.005520E-16   0.0                           \r\n        200106      G      1.854924E-14   0.0            1.000000E+00   0.0            7.615981E-16   0.0                           \r\n        200114      G      2.493302E-14   0.0            1.000000E+00   0.0            8.282532E-16   0.0                           \r\n        200121      G      3.087272E-14   0.0            1.000000E+00   0.0            8.679134E-16   0.0                           \r\n        200129      G      3.795039E-14   0.0            1.000000E+00   0.0            8.971601E-16   0.0                           \r\n        200137      G      4.518072E-14   0.0            1.000000E+00   0.0            9.089458E-16   0.0                           \r\n        200145      G      5.248737E-14   0.0            1.000000E+00   0.0            9.184258E-16   0.0                           \r\n        200153      G      5.964137E-14   0.0            1.000000E+00   0.0            9.232443E-16   0.0                           \r\n        200155      G      6.168141E-14   0.0            1.000000E+00   0.0            9.230140E-16   0.0                           \r\n        211073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        211077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        214075      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.657564E-11  -1.563668E-01  -3.725052E-06  -1.168756E-02   0.0            0.0                           \r\n         18983      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         18987      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         19765      G     -9.657564E-11  -5.585395E-02   1.680999E-05   0.0            0.0            0.0                           \r\n         21183      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         21187      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         21485      G      0.0            9.538307E-02   1.680999E-05  -1.168756E-02   0.0            0.0                           \r\n        189073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        189077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200070      G     -1.227557E-11   6.908262E-03   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200078      G      4.450754E-11   9.538306E-02   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200079      G      5.560915E-11   1.126807E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200086      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200087      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200095      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200096      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200101      G      2.178198E-10   3.654241E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200106      G      2.577630E-10   4.276603E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200114      G      3.177716E-10   5.211608E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200121      G      3.702791E-10   6.029737E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200129      G      4.302876E-10   6.964741E-01   1.680995E-05  -1.168756E-02   7.501073E-12   2.420055E-11                  \r\n        200137      G      4.902962E-10   7.899746E-01   1.680995E-05  -1.168756E-02   7.501070E-12   2.420055E-11                  \r\n        200145      G      5.503048E-10   8.834750E-01   1.680995E-05  -1.168756E-02   7.501080E-12   2.420055E-11                  \r\n        200153      G      6.085131E-10   9.741704E-01   1.680995E-05  -1.168755E-02   7.501055E-12   2.420055E-11                  \r\n        200155      G      6.250905E-10   1.000000E+00   1.680995E-05  -1.168755E-02   7.501045E-12   2.420055E-11                  \r\n        211073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        211077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        214075      G      4.450754E-11   9.538306E-02   1.680984E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.563668E-01  -2.240056E-07   1.751981E-02  -1.674319E-08   1.168756E-02   0.0                           \r\n         18983      G      9.538307E-02   1.366425E-07   3.822643E-02   0.0            1.168756E-02   0.0                           \r\n         18987      G      9.538307E-02   1.366425E-07   3.822684E-02   0.0            1.168756E-02   0.0                           \r\n         19765      G     -5.585395E-02  -8.001442E-08  -4.311867E-02   0.0            0.0            0.0                           \r\n         21183      G      9.538307E-02   1.366425E-07  -2.163286E-01   0.0            1.168756E-02   0.0                           \r\n         21187      G      9.538307E-02   1.366425E-07  -2.163281E-01   0.0            1.168756E-02   0.0                           \r\n         21485      G      0.0            1.366425E-07  -2.488198E-01  -1.674319E-08   0.0            0.0                           \r\n        189073      G      9.538306E-02   1.366425E-07   3.822643E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        189077      G      9.538306E-02   1.366425E-07   3.822684E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200070      G      6.908263E-03   9.896536E-09  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200078      G      9.538306E-02   1.366425E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200079      G      1.126807E-01   1.614224E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200086      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200087      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200095      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200096      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200101      G      3.654241E-01   5.234938E-07  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200106      G      4.276603E-01   6.126513E-07  -7.935017E-02  -1.674318E-08   1.168755E-02   1.287707E-18                  \r\n        200114      G      5.211608E-01   7.465968E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200121      G      6.029737E-01   8.637991E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200129      G      6.964741E-01   9.977446E-07  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200137      G      7.899746E-01   1.131690E-06  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200145      G      8.834750E-01   1.265636E-06  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200153      G      9.741704E-01   1.395563E-06  -7.935017E-02  -1.674321E-08   1.168756E-02   1.287707E-18                  \r\n        200155      G      1.000000E+00   1.432565E-06  -7.935017E-02  -1.674322E-08   1.168755E-02   1.287707E-18                  \r\n        211073      G      9.538306E-02   1.366425E-07  -2.163286E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        211077      G      9.538306E-02   1.366425E-07  -2.163282E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        214075      G      9.538306E-02   1.366425E-07  -2.488198E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -4.168538E-05  -1.024119E-01   2.229137E-06   8.935354E-03  -4.113639E-07   1.480688E-01                  \r\n         18983      G     -1.832142E+00  -5.572125E-01   1.105608E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         18987      G      1.832561E+00  -5.572125E-01  -1.105892E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         19765      G      2.149338E-04   5.889686E-01  -1.133600E-05   0.0            0.0            1.480688E-01                  \r\n         21183      G     -1.832142E+00   2.667726E+00   1.105698E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21187      G      1.832561E+00   2.667726E+00  -1.105802E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21485      G      0.0            3.079357E+00  -4.095996E-06   8.935354E-03   0.0            0.0                           \r\n        189073      G     -1.832142E+00  -5.572125E-01   1.105608E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        189077      G      1.832561E+00  -5.572125E-01  -1.105892E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200070      G      2.126719E-04   1.000000E+00  -1.004911E-05   8.935350E-03  -4.108148E-07   1.480688E-01                  \r\n        200078      G      2.095621E-04   9.323594E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200079      G      2.089541E-04   9.191350E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200086      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935357E-03  -4.108099E-07   1.480688E-01                  \r\n        200087      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200095      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935349E-03  -4.108132E-07   1.480688E-01                  \r\n        200096      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200101      G      2.000703E-04   7.259080E-01  -1.004911E-05   8.935351E-03  -4.108117E-07   1.480688E-01                  \r\n        200106      G      1.978827E-04   6.783273E-01  -1.004911E-05   8.935357E-03  -4.108088E-07   1.480688E-01                  \r\n        200114      G      1.945962E-04   6.068444E-01  -1.004911E-05   8.935351E-03  -4.108119E-07   1.480688E-01                  \r\n        200121      G      1.917206E-04   5.442970E-01  -1.004911E-05   8.935351E-03  -4.108113E-07   1.480688E-01                  \r\n        200129      G      1.884341E-04   4.728141E-01  -1.004911E-05   8.935357E-03  -4.108108E-07   1.480688E-01                  \r\n        200137      G      1.851476E-04   4.013313E-01  -1.004911E-05   8.935355E-03  -4.108109E-07   1.480688E-01                  \r\n        200145      G      1.818611E-04   3.298485E-01  -1.004911E-05   8.935349E-03  -4.108112E-07   1.480688E-01                  \r\n        200153      G      1.786732E-04   2.605102E-01  -1.004911E-05   8.935357E-03  -4.108096E-07   1.480688E-01                  \r\n        200155      G      1.777653E-04   2.407630E-01  -1.004911E-05   8.935359E-03  -4.108083E-07   1.480688E-01                  \r\n        211073      G     -1.832142E+00   2.667726E+00   1.105698E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        211077      G      1.832561E+00   2.667726E+00  -1.105802E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        214075      G      2.095621E-04   3.079357E+00  -4.092345E-06   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.352314E+03    (CYCLIC FREQUENCY =  2.987344E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.281382E-01   1.691115E-07  -2.534163E-03  -1.922461E-08  -1.715252E-03  -3.040498E-08                  \r\n         18983      G     -1.650843E-01   6.370777E-07  -5.573309E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         18987      G     -1.650851E-01   6.370777E-07  -5.572834E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         19765      G     -1.428893E-01   1.766929E-07   6.365067E-03   0.0            0.0           -3.040498E-08                  \r\n         21183      G     -1.650843E-01  -2.514270E-08   3.178487E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21187      G     -1.650851E-01  -2.514270E-08   3.178535E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21485      G      0.0           -1.096685E-07   3.655351E-02  -1.922461E-08   0.0            0.0                           \r\n        189073      G     -1.642105E-01   6.265337E-07   9.759346E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        189077      G     -1.642112E-01   6.265337E-07   9.759314E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200070      G     -2.290160E-01   4.194566E-07   1.147306E-02   1.301502E-08   8.560844E-03  -3.037381E-08                  \r\n        200078      G     -1.642108E-01   3.209733E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200079      G     -1.515410E-01   3.017347E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200086      G     -9.852263E-02   2.197933E-07   1.147306E-02   1.176456E-08   7.662398E-03  -3.037381E-08                  \r\n        200087      G     -8.990425E-02   2.081419E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200095      G     -2.478640E-02   1.078383E-07   1.147305E-02   1.415583E-08   9.411636E-03  -3.037381E-08                  \r\n        200096      G     -1.499841E-02   9.440056E-08   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200101      G      3.358340E-02   2.063114E-08   1.147301E-02   1.669187E-08   1.125167E-02  -3.037381E-08                  \r\n        200106      G      9.860229E-02  -7.520995E-08   1.147366E-02   1.926111E-08   1.313361E-02  -3.037381E-08                  \r\n        200114      G      2.137211E-01  -2.430559E-07   1.147460E-02   2.258852E-08   1.556749E-02  -3.037381E-08                  \r\n        200121      G      3.290100E-01  -4.097938E-07   1.147537E-02   2.497315E-08   1.731289E-02  -3.037381E-08                  \r\n        200129      G      4.740710E-01  -6.185717E-07   1.147620E-02   2.711603E-08   1.887638E-02  -3.037381E-08                  \r\n        200137      G      6.298204E-01  -8.419798E-07   1.147702E-02   2.863244E-08   1.998549E-02  -3.037381E-08                  \r\n        200145      G      7.926352E-01  -1.075047E-06   1.147784E-02   2.953232E-08   2.064322E-02  -3.037381E-08                  \r\n        200153      G      9.539133E-01  -1.305709E-06   1.147862E-02   2.982079E-08   2.085354E-02  -3.037381E-08                  \r\n        200155      G      1.000000E+00  -1.371613E-06   1.147862E-02   2.982090E-08   2.085367E-02  -3.037381E-08                  \r\n        211073      G     -1.642105E-01  -3.500780E-08  -8.885785E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        211077      G     -1.642112E-01  -3.500780E-08  -8.885817E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        214075      G     -1.642108E-01  -1.194470E-07  -1.126567E-01   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.449136E+03    (CYCLIC FREQUENCY =  3.372945E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.860438E-07  -1.034032E-01   5.648798E-06   1.775269E-02  -1.037556E-08  -1.166620E-04                  \r\n         18983      G      1.442978E-03  -4.855892E-01   2.196639E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         18987      G     -1.444407E-03  -4.855892E-01  -2.197150E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         19765      G     -5.802487E-07  -2.566814E-01  -2.548884E-05   0.0            0.0           -1.166620E-04                  \r\n         21183      G      1.442978E-03  -4.881301E-01   2.196642E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21187      G     -1.444407E-03  -4.881301E-01  -2.197148E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21485      G      0.0           -4.884544E-01  -2.530623E-05   1.775269E-02   0.0            0.0                           \r\n        189073      G      1.739299E-03  -4.774919E-01  -1.361696E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        189077      G     -1.740524E-03  -4.774919E-01   1.361191E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200070      G     -7.587439E-07  -5.621898E-01  -2.547534E-05  -1.100188E-02   1.929929E-08  -1.405989E-04                  \r\n        200078      G     -6.126497E-07  -4.789063E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200079      G     -5.840874E-07  -4.626240E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200086      G     -4.678302E-07  -3.941894E-01  -2.548314E-05  -9.879191E-03   1.641146E-08  -1.405989E-04                  \r\n        200087      G     -4.451366E-07  -3.834127E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200095      G     -3.075142E-07  -2.993758E-01  -2.548273E-05  -1.206665E-02   2.166020E-08  -1.405989E-04                  \r\n        200096      G     -2.762726E-07  -2.871491E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200101      G     -1.667521E-07  -2.247152E-01  -2.548108E-05  -1.435877E-02   2.799988E-08  -1.405989E-04                  \r\n        200106      G     -2.977248E-09  -1.419004E-01  -2.548284E-05  -1.670387E-02   3.321984E-08  -1.405989E-04                  \r\n        200114      G      2.903915E-07   4.300541E-03  -2.548548E-05  -1.974964E-02   4.031057E-08  -1.405989E-04                  \r\n        200121      G      5.935073E-07   1.504727E-01  -2.548766E-05  -2.194033E-02   4.593636E-08  -1.405989E-04                  \r\n        200129      G      9.803830E-07   3.342393E-01  -2.549002E-05  -2.390597E-02   5.060391E-08  -1.405989E-04                  \r\n        200137      G      1.399793E-06   5.314468E-01  -2.549235E-05  -2.530109E-02   5.400505E-08  -1.405989E-04                  \r\n        200145      G      1.840719E-06   7.375434E-01  -2.549465E-05  -2.612874E-02   5.600181E-08  -1.405989E-04                  \r\n        200153      G      2.278612E-06   9.416702E-01  -2.549686E-05  -2.639342E-02   5.664344E-08  -1.405989E-04                  \r\n        200155      G      2.403794E-06   1.000000E+00  -2.549686E-05  -2.639357E-02   5.664348E-08  -1.405989E-04                  \r\n        211073      G      1.739299E-03  -4.805541E-01  -1.361700E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        211077      G     -1.740524E-03  -4.805541E-01   1.361186E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        214075      G     -6.126497E-07  -4.809450E-01  -2.576091E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.236499E+05    (CYCLIC FREQUENCY =  2.447569E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.435972E-08  -3.412846E-02   5.072368E-07   1.468387E-03  -8.822445E-10  -3.847645E-05                  \r\n         18983      G      4.759851E-04  -6.568932E-02   1.816921E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         18987      G     -4.763070E-04  -6.568932E-02  -1.817336E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         19765      G     -1.495501E-07  -4.695619E-02  -2.068141E-06   0.0            0.0           -3.847645E-05                  \r\n         21183      G      4.759851E-04  -6.652734E-02   1.816923E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21187      G     -4.763070E-04  -6.652734E-02  -1.817334E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21485      G      0.0           -6.663430E-02  -2.052613E-06   1.468387E-03   0.0            0.0                           \r\n        189073      G      5.614778E-03   7.476252E-02  -4.246728E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        189077      G     -5.613626E-03   7.476252E-02   4.246690E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200070      G      2.955142E-07  -1.898057E-01  -2.243486E-06  -3.436159E-02   3.705455E-08  -4.536729E-04                  \r\n        200078      G      5.759011E-07   7.019858E-02  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200079      G      6.306740E-07   1.209876E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200086      G      9.504164E-07   4.103552E-01  -2.242231E-06  -3.867330E-02   4.252023E-08  -4.536729E-04                  \r\n        200087      G      8.971356E-07   3.680688E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200095      G      1.280280E-06   7.154400E-01  -2.242212E-06  -3.001861E-02   3.149801E-08  -4.536729E-04                  \r\n        200096      G      1.220961E-06   6.683411E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200101      G      1.430985E-06   8.630893E-01  -2.241936E-06  -2.183529E-02   2.158771E-08  -4.536729E-04                  \r\n        200106      G      1.518581E-06   9.561676E-01  -2.250704E-06  -1.286215E-02   1.086131E-08  -4.536729E-04                  \r\n        200114      G      1.530922E-06   1.000000E+00  -2.263341E-06   1.957220E-03  -8.020608E-09  -4.536729E-04                  \r\n        200121      G      1.416088E-06   9.416006E-01  -2.273752E-06   1.456062E-02  -2.459173E-08  -4.536729E-04                  \r\n        200129      G      1.151721E-06   7.739921E-01  -2.285045E-06   2.681751E-02  -4.082344E-08  -4.536729E-04                  \r\n        200137      G      7.744326E-07   5.213209E-01  -2.296183E-06   3.577421E-02  -5.273528E-08  -4.536729E-04                  \r\n        200145      G      3.204811E-07   2.110446E-01  -2.307216E-06   4.119091E-02  -5.995029E-08  -4.536729E-04                  \r\n        200153      G     -1.568169E-07  -1.176563E-01  -2.317787E-06   4.294504E-02  -6.229005E-08  -4.536729E-04                  \r\n        200155      G     -2.944816E-07  -2.125676E-01  -2.317806E-06   4.294669E-02  -6.229229E-08  -4.536729E-04                  \r\n        211073      G      5.614778E-03   6.488153E-02  -4.246736E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        211077      G     -5.613626E-03   6.488153E-02   4.246682E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        214075      G      5.759011E-07   6.362032E-02  -2.778560E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.284019E+05    (CYCLIC FREQUENCY =  2.682218E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -3.838427E-02   5.098872E-08   7.107995E-03  -2.159953E-08  -1.761671E-04  -9.106066E-09                  \r\n         18983      G     -4.217879E-02   5.323756E-07   6.795612E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         18987      G     -4.217901E-02   5.323756E-07   6.796147E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         19765      G     -3.989930E-02   1.894995E-07   8.022001E-03   0.0            0.0           -9.106066E-09                  \r\n         21183      G     -4.217879E-02   3.340455E-07   1.063253E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21187      G     -4.217901E-02   3.340455E-07   1.063307E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21485      G      0.0            3.087307E-07   1.112254E-02  -2.159953E-08   0.0            0.0                           \r\n        189073      G      1.253543E-01   2.810621E-07   2.894033E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        189077      G      1.253541E-01   2.810621E-07   2.894015E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200070      G     -1.164212E-01   7.518266E-07  -3.157805E-02   7.331779E-08   3.195518E-02  -8.363147E-09                  \r\n        200078      G      1.253542E-01   1.969289E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200079      G      1.725745E-01   8.848742E-08  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200086      G      4.406096E-01  -5.177437E-07  -3.157695E-02   8.161371E-08   3.583152E-02  -8.363147E-09                  \r\n        200087      G      4.022944E-01  -4.390642E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200095      G      7.237899E-01  -1.170314E-06  -3.157635E-02   6.522352E-08   2.797138E-02  -8.363147E-09                  \r\n        200096      G      6.814680E-01  -1.080186E-06  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200101      G      8.625321E-01  -1.496000E-06  -3.156740E-02   4.929531E-08   2.084899E-02  -8.363147E-09                  \r\n        200106      G      9.532413E-01  -1.713621E-06  -3.171637E-02   3.185222E-08   1.285371E-02  -8.363147E-09                  \r\n        200114      G      1.000000E+00  -1.850967E-06  -3.193140E-02   2.228491E-09  -1.341127E-03  -8.363147E-09                  \r\n        200121      G      9.463068E-01  -1.775468E-06  -3.210861E-02  -2.351752E-08  -1.388646E-02  -8.363147E-09                  \r\n        200129      G      7.835510E-01  -1.482026E-06  -3.230085E-02  -4.877711E-08  -2.628601E-02  -8.363147E-09                  \r\n        200137      G      5.345000E-01  -1.013042E-06  -3.249047E-02  -6.728381E-08  -3.539703E-02  -8.363147E-09                  \r\n        200145      G      2.267487E-01  -4.249182E-07  -3.267832E-02  -7.850303E-08  -4.092677E-02  -8.363147E-09                  \r\n        200153      G     -1.001117E-01   2.030789E-07  -3.285829E-02  -8.214549E-08  -4.272163E-02  -8.363147E-09                  \r\n        200155      G     -1.945294E-01   3.846258E-07  -3.285862E-02  -8.214876E-08  -4.272344E-02  -8.363147E-09                  \r\n        211073      G      1.253543E-01   9.891279E-08  -4.054996E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        211077      G      1.253541E-01   9.891279E-08  -4.055014E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        214075      G      1.253542E-01   7.566326E-08  -4.941979E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.149555E+06    (CYCLIC FREQUENCY =  6.154901E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.180174E-02  -2.043694E-07   3.809752E-02  -9.654200E-08  -1.005259E-04  -5.434067E-09                  \r\n         18983      G     -2.396700E-02   1.884772E-06   3.791822E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         18987      G     -2.396714E-02   1.884772E-06   3.792061E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         19765      G     -2.266626E-02   5.976970E-07   3.861908E-02   0.0            0.0           -5.434067E-09                  \r\n         21183      G     -2.396700E-02   1.766418E-06   4.010768E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21187      G     -2.396714E-02   1.766418E-06   4.011007E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21485      G      0.0            1.751311E-06   4.038833E-02  -9.654200E-08   0.0            0.0                           \r\n        189073      G      7.597543E-01   7.164211E-06  -4.661849E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        189077      G      7.597538E-01   7.164211E-06  -4.661919E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200070      G      1.000000E+00   9.132744E-06  -1.490883E-01   2.888383E-07  -3.183128E-02  -2.104087E-08                  \r\n        200078      G      7.597540E-01   6.952539E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200079      G      7.130640E-01   6.528754E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200086      G      5.071975E-01   4.657975E-06  -1.490609E-01   2.714607E-07  -2.986233E-02  -2.104087E-08                  \r\n        200087      G      4.859242E-01   4.467101E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200095      G      2.271481E-01   2.113667E-06  -1.490459E-01   3.082117E-07  -3.397761E-02  -2.104087E-08                  \r\n        200096      G      2.098861E-01   1.961619E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200101      G      3.085553E-02   3.366340E-07  -1.488235E-01   3.128914E-07  -3.464390E-02  -2.104087E-08                  \r\n        200106      G     -1.484246E-01  -1.279305E-06  -1.532117E-01   2.896782E-07  -3.218580E-02  -2.104087E-08                  \r\n        200114      G     -3.706879E-01  -3.278265E-06  -1.595810E-01   1.975074E-07  -2.196303E-02  -2.104087E-08                  \r\n        200121      G     -4.779176E-01  -4.244007E-06  -1.648659E-01   7.567699E-08  -8.361754E-03  -2.104087E-08                  \r\n        200129      G     -4.818658E-01  -4.286429E-06  -1.706281E-01  -6.112806E-08   6.935453E-03  -2.104087E-08                  \r\n        200137      G     -3.758964E-01  -3.346121E-06  -1.763172E-01  -1.678719E-07   1.887787E-02  -2.104087E-08                  \r\n        200145      G     -1.916187E-01  -1.705973E-06  -1.819559E-01  -2.350554E-07   2.639577E-02  -2.104087E-08                  \r\n        200153      G      2.612408E-02   2.334521E-07  -1.873593E-01  -2.574280E-07   2.889914E-02  -2.104087E-08                  \r\n        200155      G      8.999769E-02   8.024258E-07  -1.873692E-01  -2.574660E-07   2.890343E-02  -2.104087E-08                  \r\n        211073      G      7.597543E-01   6.705940E-06   2.209134E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        211077      G      7.597538E-01   6.705940E-06   2.209063E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        214075      G      7.597540E-01   6.647447E-06   3.086111E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.195345E+06    (CYCLIC FREQUENCY =  7.034309E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.735424E-07  -2.492234E-02   1.040353E-08   7.926864E-04   4.673263E-10  -2.809567E-05                  \r\n         18983      G      3.478182E-04  -4.194702E-02   9.808113E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         18987      G     -3.475497E-04  -4.194702E-02  -9.810875E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         19765      G      1.281973E-07  -3.188520E-02  -1.384771E-06   0.0            0.0           -2.809567E-05                  \r\n         21183      G      3.478182E-04  -4.255894E-02   9.808103E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21187      G     -3.475497E-04  -4.255894E-02  -9.810885E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21485      G      0.0           -4.263705E-02  -1.392996E-06   7.926864E-04   0.0            0.0                           \r\n        189073      G      3.132847E-02   8.050826E-01   3.574528E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        189077      G     -3.133953E-02   8.050826E-01  -3.574487E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200070      G     -7.107416E-06   1.000000E+00  -3.894656E-08   2.922790E-02   2.091476E-07  -2.532040E-03                  \r\n        200078      G     -5.530359E-06   7.796103E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200079      G     -5.224450E-06   7.368605E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200086      G     -4.078107E-06   5.747414E-01  -2.600835E-08   2.488468E-02   1.774530E-07  -2.532040E-03                  \r\n        200087      G     -3.736249E-06   5.288893E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200095      G     -2.233911E-06   3.179230E-01  -2.667839E-08   3.396574E-02   2.441423E-07  -2.532040E-03                  \r\n        200096      G     -1.927672E-06   2.761463E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200101      G     -7.546790E-07   1.122244E-01  -2.916398E-08   3.771792E-02   2.719983E-07  -2.532040E-03                  \r\n        200106      G      7.018957E-07  -8.881804E-02  -3.050894E-08   3.720617E-02   2.708233E-07  -2.532040E-03                  \r\n        200114      G      2.657974E-06  -3.564891E-01  -3.227697E-08   2.766672E-02   2.023405E-07  -2.532040E-03                  \r\n        200121      G      3.692977E-06  -4.984264E-01  -3.374735E-08   1.235423E-02   8.966356E-08  -2.532040E-03                  \r\n        200129      G      3.869313E-06  -5.234711E-01  -3.535395E-08  -5.653708E-03  -4.245230E-08  -2.532040E-03                  \r\n        200137      G      3.084930E-06  -4.177485E-01  -3.694082E-08  -1.999360E-02  -1.478720E-07  -2.532040E-03                  \r\n        200145      G      1.605452E-06  -2.174560E-01  -3.851387E-08  -2.912757E-02  -2.150078E-07  -2.532040E-03                  \r\n        200153      G     -1.792351E-07   2.437993E-02  -4.002149E-08  -3.219331E-02  -2.375506E-07  -2.532040E-03                  \r\n        200155      G     -7.042873E-07   9.553611E-02  -4.002423E-08  -3.219925E-02  -2.375939E-07  -2.532040E-03                  \r\n        211073      G      3.132847E-02   7.499348E-01   3.574483E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        211077      G     -3.133953E-02   7.499348E-01  -3.574532E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        214075      G     -5.530359E-06   7.428957E-01  -3.026236E-06   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.507298E+06    (CYCLIC FREQUENCY =  1.133579E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         13\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.887539E-03   2.892167E-09   1.738968E-02  -4.705357E-08  -1.153718E-05   4.543725E-10                  \r\n         18983      G      1.639022E-03   1.015621E-06   1.736866E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         18987      G      1.639034E-03   1.015621E-06   1.736983E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         19765      G      1.788319E-03   4.099097E-07   1.744954E-02   0.0            0.0            4.543725E-10                  \r\n         21183      G      1.639022E-03   1.025517E-06   1.761994E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21187      G      1.639034E-03   1.025517E-06   1.762110E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21485      G      0.0            1.026780E-06   1.765260E-02  -4.705357E-08   0.0            0.0                           \r\n        189073      G      2.123807E-01   6.965446E-07  -3.447998E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        189077      G      2.123807E-01   6.965446E-07  -3.448022E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200070      G      4.515394E-01   1.468021E-06  -3.320159E-02   1.010185E-07  -3.189244E-02   1.397608E-09                  \r\n        200078      G      2.123807E-01   7.106045E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200079      G      1.665095E-01   5.653746E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200086      G     -3.094360E-01  -9.272165E-07  -3.318080E-02   1.769921E-07  -5.633516E-02   1.397608E-09                  \r\n        200087      G     -5.664707E-02  -1.411475E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200095      G     -5.984007E-01  -1.842108E-06  -3.316951E-02   1.494952E-08  -4.210300E-03   1.397608E-09                  \r\n        200096      G     -3.278444E-01  -9.997685E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200101      G     -5.037354E-01  -1.556646E-06  -3.300159E-02  -1.115457E-07   3.620632E-02   1.397608E-09                  \r\n        200106      G     -2.300736E-01  -7.081690E-07  -4.087389E-02  -2.012172E-07   6.472401E-02   1.397608E-09                  \r\n        200114      G      3.568954E-01   1.119059E-06  -5.249882E-02  -2.287449E-07   7.342049E-02   1.397608E-09                  \r\n        200121      G      7.924918E-01   2.476549E-06  -6.234895E-02  -1.474822E-07   4.732299E-02   1.397608E-09                  \r\n        200129      G      1.000000E+00   3.122780E-06  -7.325004E-02  -1.374018E-08   4.446925E-03   1.397608E-09                  \r\n        200137      G      8.753517E-01   2.732892E-06  -8.404481E-02   1.063144E-07  -3.403820E-02   1.397608E-09                  \r\n        200145      G      4.879429E-01   1.523273E-06  -9.475782E-02   1.882977E-07  -6.031556E-02   1.397608E-09                  \r\n        200153      G     -2.749754E-02  -8.579283E-08  -1.050329E-01   2.170430E-07  -6.952798E-02   1.397608E-09                  \r\n        200155      G     -1.811982E-01  -5.655943E-07  -1.050516E-01   2.171346E-07  -6.955738E-02   1.397608E-09                  \r\n        211073      G      2.123807E-01   7.269845E-07   3.302492E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        211077      G      2.123807E-01   7.269845E-07   3.302467E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        214075      G      2.123807E-01   7.308699E-07   4.164112E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.544614E+06    (CYCLIC FREQUENCY =  1.174531E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         14\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      8.975282E-09  -4.525877E-03  -9.227976E-09   1.334588E-04   2.870489E-11  -5.102084E-06                  \r\n         18983      G      6.313893E-05  -7.391538E-03   1.651309E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         18987      G     -6.313766E-05  -7.391538E-03  -1.651796E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         19765      G      2.577811E-10  -5.700092E-03  -2.438640E-07   0.0            0.0           -5.102084E-06                  \r\n         21183      G      6.313893E-05  -7.502662E-03   1.651308E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21187      G     -6.313766E-05  -7.502662E-03  -1.651797E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21485      G      0.0           -7.516846E-03  -2.443692E-07   1.334588E-04   0.0            0.0                           \r\n        189073      G      1.574958E-02   4.214365E-01   4.902321E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        189077      G     -1.575175E-02   4.214365E-01  -4.902298E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200070      G     -1.939716E-06   7.148132E-01   1.192869E-08   4.086260E-02   1.142169E-07  -1.272781E-03                  \r\n        200078      G     -1.083880E-06   4.086324E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200079      G     -9.199912E-07   3.500026E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200086      G      6.151079E-07  -1.919622E-01   1.734225E-08   6.574191E-02   1.859290E-07  -1.272781E-03                  \r\n        200087      G     -1.226982E-07   6.477744E-02   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200095      G      1.650014E-06  -5.613870E-01   1.698107E-08   1.255035E-02   3.269479E-08  -1.272781E-03                  \r\n        200096      G      8.462347E-07  -2.818505E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200101      G      1.474657E-06  -5.066636E-01   1.586029E-08  -3.079928E-02  -9.095775E-08  -1.272781E-03                  \r\n        200106      G      7.376322E-07  -2.527241E-01   2.057635E-08  -6.258737E-02  -1.802748E-07  -1.272781E-03                  \r\n        200114      G     -9.382632E-07   3.314245E-01   2.763127E-08  -7.448651E-02  -2.134033E-07  -1.272781E-03                  \r\n        200121      G     -2.219921E-06   7.786500E-01   3.362275E-08  -4.925349E-02  -1.411821E-07  -1.272781E-03                  \r\n        200129      G     -2.854900E-06   1.000000E+00   4.026377E-08  -5.841684E-03  -1.691221E-08  -1.272781E-03                  \r\n        200137      G     -2.520768E-06   8.825837E-01   4.684204E-08   3.364510E-02   9.601315E-08  -1.272781E-03                  \r\n        200145      G     -1.412675E-06   4.945413E-01   5.337138E-08   6.080829E-02   1.736938E-07  -1.272781E-03                  \r\n        200153      G      7.584792E-08  -2.652459E-02   5.963437E-08   7.037315E-02   2.010428E-07  -1.272781E-03                  \r\n        200155      G      5.202876E-07  -1.820965E-01   5.964575E-08   7.040489E-02   2.011336E-07  -1.272781E-03                  \r\n        211073      G      1.574958E-02   3.937154E-01   4.902296E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        211077      G     -1.575175E-02   3.937154E-01  -4.902322E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        214075      G     -1.083880E-06   3.901770E-01  -1.589800E-06   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.106964E+07    (CYCLIC FREQUENCY =  1.646038E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         15\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.859502E-02  -2.245320E-08  -6.147731E-02   1.665499E-07   1.622162E-05  -4.466250E-09                  \r\n         18983      G     -1.824555E-02  -3.602023E-06  -6.144651E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         18987      G     -1.824567E-02  -3.602023E-06  -6.145063E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         19765      G     -1.845552E-02  -1.477952E-06  -6.156147E-02   0.0            0.0           -4.466250E-09                  \r\n         21183      G     -1.824555E-02  -3.699298E-06  -6.179982E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21187      G     -1.824567E-02  -3.699298E-06  -6.180394E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21485      G      0.0           -3.711714E-06  -6.184697E-02   1.665499E-07   0.0            0.0                           \r\n        189073      G      6.896894E-01   1.052667E-06  -6.267808E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        189077      G      6.896890E-01   1.052667E-06  -6.267820E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200070      G      1.000000E+00   1.244522E-06  -2.341845E-01   5.056185E-08  -4.182766E-02  -1.822620E-08                  \r\n        200078      G      6.896892E-01   8.693111E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200079      G      6.314937E-01   7.989032E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200086      G      2.804552E-01   3.935889E-07  -2.338731E-01   5.727357E-08  -4.862713E-02  -1.822620E-08                  \r\n        200087      G      3.483810E-01   4.563789E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200095      G     -9.791286E-02  -6.779847E-08  -2.337049E-01   4.185654E-08  -3.270569E-02  -1.822620E-08                  \r\n        200096      G      4.320337E-03   4.011659E-08  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200101      G     -2.188277E-01  -2.298594E-07  -2.312101E-01   1.311544E-08  -8.682907E-03  -1.822620E-08                  \r\n        200106      G     -2.000576E-01  -2.186519E-07  -1.497742E-01  -1.604596E-08   1.494644E-02  -1.822620E-08                  \r\n        200114      G      1.182839E-02   2.032457E-08  -2.586863E-02  -3.850097E-08   3.358650E-02  -1.822620E-08                  \r\n        200121      G      2.410693E-01   2.844891E-07   8.288299E-02  -3.320865E-08   2.874365E-02  -1.822620E-08                  \r\n        200129      G      3.978926E-01   4.654701E-07   2.061722E-01  -1.093071E-08   9.518354E-03  -1.822620E-08                  \r\n        200137      G      3.891389E-01   4.543243E-07   3.288303E-01   1.324328E-08  -1.129094E-02  -1.822620E-08                  \r\n        200145      G      2.309646E-01   2.694710E-07   4.508141E-01   3.145723E-08  -2.695258E-02  -1.822620E-08                  \r\n        200153      G     -7.949214E-03  -9.245327E-09   5.679691E-01   3.820413E-08  -3.275419E-02  -1.822620E-08                  \r\n        200155      G     -8.037701E-02  -9.372467E-08   5.681821E-01   3.823668E-08  -3.278189E-02  -1.822620E-08                  \r\n        211073      G      6.896894E-01   6.557001E-07   2.296353E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        211077      G      6.896890E-01   6.557001E-07   2.296341E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        214075      G      6.896892E-01   6.050312E-07   3.389476E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE               \r\n DATE:  5/17/95\r\n END TIME: 15:44:40\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03082a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03082A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,0                                                                       \r\n     TIME  14                                                                        \r\n     DIAG  21,22                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)          \r\n                  3      LABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\n                  4      METHOD = 1000                                                                   \r\n                  5      OUTPUT                                                                          \r\n                  6      ECHO   = BOTH                                                                   \r\n                  7      VECTOR = ALL                                                                    \r\n                  8      MPCFORCE = ALL                                                                  \r\n                  9      BEGIN BULK                                                                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B               \r\n                              CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1               \r\n                              +MRBRG1 56                                                                                    \r\n                              CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST              \r\n                              CELAS2  189831  28125.  189073  1       18983   1                       FWD R X               \r\n                              CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y               \r\n                              CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z               \r\n                              CELAS2  189871  28125.  189077  1       18987   1                       FWD L X               \r\n                              CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y               \r\n                              CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z               \r\n                              CELAS2  211831  28125.  211073  1       21183   1                       AFT R X               \r\n                              CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y               \r\n                              CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z               \r\n                              CELAS2  211871  28125.  211077  1       21187   1                       AFT L X               \r\n                              CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y               \r\n                              CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z               \r\n                              CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z               \r\n                              CONM2   209     209     0       7297.399                                 BASICWT              \r\n                              +BASICWT4.7561+6        5.3412+7                5.3697+7                                      \r\n                              CONM2   109765  19765           12.896                                                        \r\n                              CONM2   290070  200070          34.465                                                        \r\n                              CONM2   290078  200078          22.740                                                        \r\n                              CONM2   290079  200079          51.048                                                        \r\n                              CONM2   290086  200086          60.052                                                        \r\n                              CONM2   290087  200087          60.052                                                        \r\n                              CONM2   290095  200095          64.933                                                        \r\n                              CONM2   290096  200096          64.933                                                        \r\n                              CONM2   290101  200101          57.277                                                        \r\n                              CONM2   290106  200106          47.013                                                        \r\n                              CONM2   290114  200114          66.626                                                        \r\n                              CONM2   290121  200121          54.350                                                        \r\n                              CONM2   290129  200129          13.810                                                        \r\n                              CONM2   290137  200137          9.253                                                         \r\n                              CONM2   290145  200145          12.065                                                        \r\n                              CONM2   290153  200153          5.852                                                         \r\n                              CONM2   290155  200155          6.124                                                         \r\n                              CONM2   390153  200153          458.000                                 MR BLADE              \r\n                              CONM2   490153  200153          489.500                                 MR HUB                \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CONM2   9200070 200070          26.100                                  BASIC                 \r\n                              CRIGD1  200078  200078  189073  189077  211073                                                \r\n                              CRIGD1  353252  200078  200079                                                                \r\n                              CRIGD1  353253  200079  200087                                                                \r\n                              CRIGD1  353254  200087  200096                                                                \r\n                              CRIGD2  2091    209     19765   1236                                                          \r\n                              CRIGD2  2092    209     18983   12356   18987   12356                                         \r\n                              CRIGD2  2093    209     21183   12356   21187   12356                                         \r\n                              CRIGD2  2094    209     21485   234                                                           \r\n                              CRIGD2  353255  200096  200101  123                                                           \r\n                              CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31                \r\n                              +CRG31          211073  3                                               +CRG32                \r\n                              +CRG32  MSET    211077  123456  214075  123456                                                \r\n                              CRIGDR  357000  19765   200078  3                                                             \r\n                              EIGR    1000    GIV                             15                      +EIGR                 \r\n                              +EIGR   MAX                                                                                   \r\n                              GRID    209     0       191.7117.001757 56.030010                                             \r\n                              GRID    18983   0       189.94  12.375  77.57   0       4                                     \r\n                              GRID    18987   0       189.94  -12.375 77.57   0       4                                     \r\n                              GRID    19765   0       196.90  .0      64.63   0       45                                    \r\n                              GRID    21183   0       211.72  12.375  77.57   0       4                                     \r\n                              GRID    21187   0       211.72  -12.375 77.57   0       4                                     \r\n                              GRID    21485   0       214.50  .0      77.57   0       156                                   \r\n                              GRID    189073  0       189.94  12.375  77.57   0       0                                     \r\n                              GRID    189077  0       189.94  -12.375 77.57   0       0                                     \r\n                              GRID    200070  0       200.00  .0      70.00   0       0                                     \r\n                              GRID    200078  0       200.00  .0      77.57   0       0                                     \r\n                              GRID    200079  0       200.00  .0      79.05   0       0                                     \r\n                              GRID    200086  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200087  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200095  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200096  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200101  0       200.00  .0      100.675 0       0                                     \r\n                              GRID    200106  0       200.00  .0      106.00  0       0                                     \r\n                              GRID    200114  0       200.00  .0      114.00  0       0                                     \r\n                              GRID    200121  0       200.00  .0      121.00  0       0                                     \r\n                              GRID    200129  0       200.00  .0      129.00  0       0                                     \r\n                              GRID    200137  0       200.00  .0      137.00  0       0                                     \r\n                              GRID    200145  0       200.00  .0      145.00  0       0                                     \r\n                              GRID    200153  0       200.00  .0      152.76  0       0                                     \r\n                              GRID    200155  0       200.00  .0      154.97  0       0                                     \r\n                              GRID    211073  0       211.72  12.375  77.57   0       0                                     \r\n                              GRID    211077  0       211.72  -12.375 77.57   0       0                                     \r\n                              GRID    214075  0       214.50  .0      77.57   0       0                                     \r\n                              MAT1    1       1.0+6   1.0+6                                                                 \r\n                              MAT1    10      1.0     1.0                                                                   \r\n                              MAT1    57      3.2+6   .8+6    .32                                                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              MAT1    76      3.2+6   .8+6    .32                                                           \r\n                              MAT1    2014    10.5+6  4.0+6                                                                 \r\n                              MAT1    2024    10.5+6  4.0+6                                                                 \r\n                              MAT1    4130    29.0+6  11.0+6                                                                \r\n                              MAT1    4340    29.0+6  11.0+6                                                                \r\n                              MAT1    4620    29.0+6  11.0+6                                                                \r\n                              MAT1    7075    10.3+6  3.9+6                                                                 \r\n                              MAT1    9046    17.5+6  6.5+6                                                                 \r\n                              OMIT    200070  456                                                                           \r\n                              OMIT    200078  456                                                                           \r\n                              OMIT    200086  456                                                                           \r\n                              OMIT    200095  456                                                                           \r\n                              OMIT    200101  456                                                                           \r\n                              OMIT    200106  456                                                                           \r\n                              OMIT    200114  456                                                                           \r\n                              OMIT    200121  456                                                                           \r\n                              OMIT    200129  456                                                                           \r\n                              OMIT    200137  456                                                                           \r\n                              OMIT    200145  456                                                                           \r\n                              OMIT    200153  456                                                                           \r\n                              OMIT    200155  456                                                                           \r\n                              PARAM   GRDEQ   0                                                                             \r\n                              PARAM   GRDPNT  0                                                                             \r\n                              PARAM   OPT     1                                                                             \r\n                              PARAM   WTMASS  .00259                                                                        \r\n                              PBAR    353025  1       100.    1950.   1950.   1480.                                         \r\n                              PBAR    450007  1       100.    120.07  120.07  91.088                                        \r\n                              SUPORT  209     123456                                                                        \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=    122\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\n                    2-        CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n                    3-        +MRBRG1 56                                                                      \r\n                    4-        CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\n                    5-        CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\n                    6-        CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\n                    7-        CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\n                    8-        CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\n                    9-        CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\n                   10-        CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\n                   11-        CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\n                   12-        CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\n                   13-        CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\n                   14-        CELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\n                   15-        CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\n                   16-        CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\n                   17-        CELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\n                   18-        CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\n                   19-        CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\n                   20-        CELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\n                   21-        CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\n                   22-        CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\n                   23-        CELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\n                   24-        CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\n                   25-        CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\n                   26-        CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\n                   27-        CONM2   209     209     0       7297.399                                 BASICWT\r\n                   28-        +BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\n                   29-        CONM2   109765  19765           12.896                                          \r\n                   30-        CONM2   290070  200070          34.465                                          \r\n                   31-        CONM2   290078  200078          22.740                                          \r\n                   32-        CONM2   290079  200079          51.048                                          \r\n                   33-        CONM2   290086  200086          60.052                                          \r\n                   34-        CONM2   290087  200087          60.052                                          \r\n                   35-        CONM2   290095  200095          64.933                                          \r\n                   36-        CONM2   290096  200096          64.933                                          \r\n                   37-        CONM2   290101  200101          57.277                                          \r\n                   38-        CONM2   290106  200106          47.013                                          \r\n                   39-        CONM2   290114  200114          66.626                                          \r\n                   40-        CONM2   290121  200121          54.350                                          \r\n                   41-        CONM2   290129  200129          13.810                                          \r\n                   42-        CONM2   290137  200137          9.253                                           \r\n                   43-        CONM2   290145  200145          12.065                                          \r\n                   44-        CONM2   290153  200153          5.852                                           \r\n                   45-        CONM2   290155  200155          6.124                                           \r\n                   46-        CONM2   390153  200153          458.000                                 MR BLADE\r\n                   47-        CONM2   490153  200153          489.500                                 MR HUB  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CONM2   9200070 200070          26.100                                  BASIC   \r\n                   49-        CRIGD1  200078  200078  189073  189077  211073                                  \r\n                   50-        CRIGD1  353252  200078  200079                                                  \r\n                   51-        CRIGD1  353253  200079  200087                                                  \r\n                   52-        CRIGD1  353254  200087  200096                                                  \r\n                   53-        CRIGD2  2091    209     19765   1236                                            \r\n                   54-        CRIGD2  2092    209     18983   12356   18987   12356                           \r\n                   55-        CRIGD2  2093    209     21183   12356   21187   12356                           \r\n                   56-        CRIGD2  2094    209     21485   234                                             \r\n                   57-        CRIGD2  353255  200096  200101  123                                             \r\n                   58-        CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n                   59-        +CRG31          211073  3                                               +CRG32  \r\n                   60-        +CRG32  MSET    211077  123456  214075  123456                                  \r\n                   61-        CRIGDR  357000  19765   200078  3                                               \r\n                   62-        EIGR    1000    GIV                             15                      +EIGR   \r\n                   63-        +EIGR   MAX                                                                     \r\n                   64-        GRID    209     0       191.7117.001757 56.030010                               \r\n                   65-        GRID    18983   0       189.94  12.375  77.57   0       4                       \r\n                   66-        GRID    18987   0       189.94  -12.375 77.57   0       4                       \r\n                   67-        GRID    19765   0       196.90  .0      64.63   0       45                      \r\n                   68-        GRID    21183   0       211.72  12.375  77.57   0       4                       \r\n                   69-        GRID    21187   0       211.72  -12.375 77.57   0       4                       \r\n                   70-        GRID    21485   0       214.50  .0      77.57   0       156                     \r\n                   71-        GRID    189073  0       189.94  12.375  77.57   0       0                       \r\n                   72-        GRID    189077  0       189.94  -12.375 77.57   0       0                       \r\n                   73-        GRID    200070  0       200.00  .0      70.00   0       0                       \r\n                   74-        GRID    200078  0       200.00  .0      77.57   0       0                       \r\n                   75-        GRID    200079  0       200.00  .0      79.05   0       0                       \r\n                   76-        GRID    200086  0       200.00  .0      86.25   0       0                       \r\n                   77-        GRID    200087  0       200.00  .0      86.25   0       0                       \r\n                   78-        GRID    200095  0       200.00  .0      95.00   0       0                       \r\n                   79-        GRID    200096  0       200.00  .0      95.00   0       0                       \r\n                   80-        GRID    200101  0       200.00  .0      100.675 0       0                       \r\n                   81-        GRID    200106  0       200.00  .0      106.00  0       0                       \r\n                   82-        GRID    200114  0       200.00  .0      114.00  0       0                       \r\n                   83-        GRID    200121  0       200.00  .0      121.00  0       0                       \r\n                   84-        GRID    200129  0       200.00  .0      129.00  0       0                       \r\n                   85-        GRID    200137  0       200.00  .0      137.00  0       0                       \r\n                   86-        GRID    200145  0       200.00  .0      145.00  0       0                       \r\n                   87-        GRID    200153  0       200.00  .0      152.76  0       0                       \r\n                   88-        GRID    200155  0       200.00  .0      154.97  0       0                       \r\n                   89-        GRID    211073  0       211.72  12.375  77.57   0       0                       \r\n                   90-        GRID    211077  0       211.72  -12.375 77.57   0       0                       \r\n                   91-        GRID    214075  0       214.50  .0      77.57   0       0                       \r\n                   92-        MAT1    1       1.0+6   1.0+6                                                   \r\n                   93-        MAT1    10      1.0     1.0                                                     \r\n                   94-        MAT1    57      3.2+6   .8+6    .32                                             \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        MAT1    76      3.2+6   .8+6    .32                                             \r\n                   96-        MAT1    2014    10.5+6  4.0+6                                                   \r\n                   97-        MAT1    2024    10.5+6  4.0+6                                                   \r\n                   98-        MAT1    4130    29.0+6  11.0+6                                                  \r\n                   99-        MAT1    4340    29.0+6  11.0+6                                                  \r\n                  100-        MAT1    4620    29.0+6  11.0+6                                                  \r\n                  101-        MAT1    7075    10.3+6  3.9+6                                                   \r\n                  102-        MAT1    9046    17.5+6  6.5+6                                                   \r\n                  103-        OMIT    200070  456                                                             \r\n                  104-        OMIT    200078  456                                                             \r\n                  105-        OMIT    200086  456                                                             \r\n                  106-        OMIT    200095  456                                                             \r\n                  107-        OMIT    200101  456                                                             \r\n                  108-        OMIT    200106  456                                                             \r\n                  109-        OMIT    200114  456                                                             \r\n                  110-        OMIT    200121  456                                                             \r\n                  111-        OMIT    200129  456                                                             \r\n                  112-        OMIT    200137  456                                                             \r\n                  113-        OMIT    200145  456                                                             \r\n                  114-        OMIT    200153  456                                                             \r\n                  115-        OMIT    200155  456                                                             \r\n                  116-        PARAM   GRDEQ   0                                                               \r\n                  117-        PARAM   GRDPNT  0                                                               \r\n                  118-        PARAM   OPT     1                                                               \r\n                  119-        PARAM   WTMASS  .00259                                                          \r\n                  120-        PBAR    353025  1       100.    1950.   1950.   1480.                           \r\n                  121-        PBAR    450007  1       100.    120.07  120.07  91.088                          \r\n                  122-        SUPORT  209     123456                                                          \r\n                              ENDDATA\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           22\r\n                                        PROFILE            117\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.179\r\n                                        RMS WAVEFRONT    4.379\r\n                                        RMS BANDWIDTH    7.604\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE             45\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.607\r\n                                        RMS WAVEFRONT    1.680\r\n                                        RMS BANDWIDTH    1.680\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       22         2\r\n                                        PROFILE (P)                        117        45\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.179     1.607\r\n                                        RMS WAVEFRONT (C-RMS)            4.379     1.680\r\n                                        RMS BANDWITCH (B-RMS)            7.604     1.680\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                46\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                          11\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           0\r\n                                        NUMBER OF UNIQUE EDGES                        17\r\n                                        MATRIX DENSITY, PERCENT                    7.908\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                4\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   7\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP        209      28   18983       2   18987       4   19765      27\r\n                         SEQGP      21183       6   21187       8   21485      10  189073       1\r\n                         SEQGP     189077       3  200070      11  200078      12  200079      13\r\n                         SEQGP     200086      14  200087      26  200095      15  200096      25\r\n                         SEQGP     200101      16  200106      17  200114      18  200121      19\r\n                         SEQGP     200129      20  200137      21  200145      22  200153      23\r\n                         SEQGP     200155      24  211073       5  211077       7  214075       9\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID  3530251\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID   189831\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID      209\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  8.91448792D+03  0.00000000D+00  0.00000000D+00  0.00000000D+00  6.18744993D+05 -1.28215298D+01 *\r\n                *  0.00000000D+00  8.91448792D+03  0.00000000D+00 -6.18744993D+05  0.00000000D+00  1.72237458D+06 *\r\n                *  0.00000000D+00  0.00000000D+00  8.91448792D+03  1.28215298D+01 -1.72237458D+06  0.00000000D+00 *\r\n                *  0.00000000D+00 -6.18744993D+05  1.28215298D+01  5.63588906D+07 -2.45803729D+03 -1.20357550D+08 *\r\n                *  6.18744993D+05  0.00000000D+00 -1.72237458D+06 -2.45803729D+03  4.37886530D+08 -7.18390448D+02 *\r\n                * -1.28215298D+01  1.72237458D+06  0.00000000D+00 -1.20357550D+08 -7.18390448D+02  3.86568740D+08 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            8.914487919D+03      0.000000000D+00  1.438280018D-03  6.940892162D+01\r\n                            Y            8.914487919D+03      1.932107142D+02  0.000000000D+00  6.940892162D+01\r\n                            Z            8.914487919D+03      1.932107142D+02  1.438280018D-03  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.341246786D+07 -1.921965004D+01  8.093881273D+05  *\r\n                                      * -1.921965004D+01  6.215888526D+07 -1.715381118D+02  *\r\n                                      *  8.093881273D+05 -1.715381118D+02  5.378751741D+07  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.339624878D+07                                    *\r\n                                      *                   6.215888526D+07                   *\r\n                                      *                                    5.380373649D+07  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  9.997992859D-01  0.000000000D+00  2.003466836D-02  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      * -2.003466836D-02  0.000000000D+00  9.997992859D-01  *\r\n                                      ***                                                 ***\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4\r\n\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS.\r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                  1     189073 - 1                                                        1                           1\r\n                  2     189073 - 2                                                        2                           2\r\n                  3     189073 - 3                                                        3                           3\r\n                  4     189073 - 4                                                        4                           4\r\n                  5     189073 - 5                                                        5                           5\r\n                  6     189073 - 6                                                        6                           6\r\n                  7      18983 - 1                                                        7                           7\r\n                  8      18983 - 2                                                        8                           8\r\n                  9      18983 - 3                                                        9                           9\r\n                 10      18983 - 4                     1                           1     10                    1       \r\n                 11      18983 - 5                                                       11                          10\r\n                 12      18983 - 6                                                       12                          11\r\n                 13     189077 - 1                                                       13                          12\r\n                 14     189077 - 2                                                       14                          13\r\n                 15     189077 - 3                                                       15                          14\r\n                 16     189077 - 4                                                       16                          15\r\n                 17     189077 - 5                                                       17                          16\r\n                 18     189077 - 6                                                       18                          17\r\n                 19      18987 - 1                                                       19                          18\r\n                 20      18987 - 2                                                       20                          19\r\n                 21      18987 - 3                                                       21                          20\r\n                 22      18987 - 4                     2                           2     22                    2       \r\n                 23      18987 - 5                                                       23                          21\r\n                 24      18987 - 6                                                       24                          22\r\n                 25     211073 - 1                                                       25                          23\r\n                 26     211073 - 2                                                       26                          24\r\n                 27     211073 - 3                                                       27                          25\r\n                 28     211073 - 4                                                       28                          26\r\n                 29     211073 - 5                                                       29                          27\r\n                 30     211073 - 6                                                       30                          28\r\n                 31      21183 - 1                                                       31                          29\r\n                 32      21183 - 2                                                       32                          30\r\n                 33      21183 - 3                                                       33                          31\r\n                 34      21183 - 4                     3                           3     34                    3       \r\n                 35      21183 - 5                                                       35                          32\r\n                 36      21183 - 6                                                       36                          33\r\n                 37     211077 - 1                                                       37                          34\r\n                 38     211077 - 2                                                       38                          35\r\n                 39     211077 - 3                                                       39                          36\r\n                 40     211077 - 4                                                       40                          37\r\n                 41     211077 - 5                                                       41                          38\r\n                 42     211077 - 6                                                       42                          39\r\n                 43      21187 - 1                                                       43                          40\r\n                 44      21187 - 2                                                       44                          41\r\n                 45      21187 - 3                                                       45                          42\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 46      21187 - 4                     4                           4     46                    4       \r\n                 47      21187 - 5                                                       47                          43\r\n                 48      21187 - 6                                                       48                          44\r\n                 49     214075 - 1                                                       49                          45\r\n                 50     214075 - 2                                                       50                          46\r\n                 51     214075 - 3                                                       51                          47\r\n                 52     214075 - 4                                                       52                          48\r\n                 53     214075 - 5                                                       53                          49\r\n                 54     214075 - 6                                                       54                          50\r\n                 55      21485 - 1                     5                           5     55                    5       \r\n                 56      21485 - 2                                                       56                          51\r\n                 57      21485 - 3                                                       57                          52\r\n                 58      21485 - 4                                                       58                          53\r\n                 59      21485 - 5                     6                           6     59                    6       \r\n                 60      21485 - 6                     7                           7     60                    7       \r\n                 61     200070 - 1                            1      1      1      8     61                            \r\n                 62     200070 - 2                            2      2      2      9     62                            \r\n                 63     200070 - 3                            3      3      3     10     63                            \r\n                 64     200070 - 4                                          4     11     64             1              \r\n                 65     200070 - 5                                          5     12     65             2              \r\n                 66     200070 - 6                                          6     13     66             3              \r\n                 67     200078 - 1                            4      4      7     14     67                            \r\n                 68     200078 - 2                            5      5      8     15     68                            \r\n                 69     200078 - 3                                                       69                          54\r\n                 70     200078 - 4                                          9     16     70             4              \r\n                 71     200078 - 5                                         10     17     71             5              \r\n                 72     200078 - 6                                         11     18     72             6              \r\n                 73     200079 - 1                                                       73                          55\r\n                 74     200079 - 2                                                       74                          56\r\n                 75     200079 - 3                                                       75                          57\r\n                 76     200079 - 4                                                       76                          58\r\n                 77     200079 - 5                                                       77                          59\r\n                 78     200079 - 6                                                       78                          60\r\n                 79     200086 - 1                            6      6     12     19     79                            \r\n                 80     200086 - 2                            7      7     13     20     80                            \r\n                 81     200086 - 3                            8      8     14     21     81                            \r\n                 82     200086 - 4                                         15     22     82             7              \r\n                 83     200086 - 5                                         16     23     83             8              \r\n                 84     200086 - 6                                         17     24     84             9              \r\n                 85     200095 - 1                            9      9     18     25     85                            \r\n                 86     200095 - 2                           10     10     19     26     86                            \r\n                 87     200095 - 3                           11     11     20     27     87                            \r\n                 88     200095 - 4                                         21     28     88            10              \r\n                 89     200095 - 5                                         22     29     89            11              \r\n                 90     200095 - 6                                         23     30     90            12              \r\n                 91     200101 - 1                                                       91                          61\r\n                 92     200101 - 2                                                       92                          62\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 93     200101 - 3                                                       93                          63\r\n                 94     200101 - 4                                         24     31     94            13              \r\n                 95     200101 - 5                                         25     32     95            14              \r\n                 96     200101 - 6                                         26     33     96            15              \r\n                 97     200106 - 1                           12     12     27     34     97                            \r\n                 98     200106 - 2                           13     13     28     35     98                            \r\n                 99     200106 - 3                           14     14     29     36     99                            \r\n                100     200106 - 4                                         30     37    100            16              \r\n                101     200106 - 5                                         31     38    101            17              \r\n                102     200106 - 6                                         32     39    102            18              \r\n                103     200114 - 1                           15     15     33     40    103                            \r\n                104     200114 - 2                           16     16     34     41    104                            \r\n                105     200114 - 3                           17     17     35     42    105                            \r\n                106     200114 - 4                                         36     43    106            19              \r\n                107     200114 - 5                                         37     44    107            20              \r\n                108     200114 - 6                                         38     45    108            21              \r\n                109     200121 - 1                           18     18     39     46    109                            \r\n                110     200121 - 2                           19     19     40     47    110                            \r\n                111     200121 - 3                           20     20     41     48    111                            \r\n                112     200121 - 4                                         42     49    112            22              \r\n                113     200121 - 5                                         43     50    113            23              \r\n                114     200121 - 6                                         44     51    114            24              \r\n                115     200129 - 1                           21     21     45     52    115                            \r\n                116     200129 - 2                           22     22     46     53    116                            \r\n                117     200129 - 3                           23     23     47     54    117                            \r\n                118     200129 - 4                                         48     55    118            25              \r\n                119     200129 - 5                                         49     56    119            26              \r\n                120     200129 - 6                                         50     57    120            27              \r\n                121     200137 - 1                           24     24     51     58    121                            \r\n                122     200137 - 2                           25     25     52     59    122                            \r\n                123     200137 - 3                           26     26     53     60    123                            \r\n                124     200137 - 4                                         54     61    124            28              \r\n                125     200137 - 5                                         55     62    125            29              \r\n                126     200137 - 6                                         56     63    126            30              \r\n                127     200145 - 1                           27     27     57     64    127                            \r\n                128     200145 - 2                           28     28     58     65    128                            \r\n                129     200145 - 3                           29     29     59     66    129                            \r\n                130     200145 - 4                                         60     67    130            31              \r\n                131     200145 - 5                                         61     68    131            32              \r\n                132     200145 - 6                                         62     69    132            33              \r\n                133     200153 - 1                           30     30     63     70    133                            \r\n                134     200153 - 2                           31     31     64     71    134                            \r\n                135     200153 - 3                           32     32     65     72    135                            \r\n                136     200153 - 4                                         66     73    136            34              \r\n                137     200153 - 5                                         67     74    137            35              \r\n                138     200153 - 6                                         68     75    138            36              \r\n                139     200155 - 1                           33     33     69     76    139                            \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                140     200155 - 2                           34     34     70     77    140                            \r\n                141     200155 - 3                           35     35     71     78    141                            \r\n                142     200155 - 4                                         72     79    142            37              \r\n                143     200155 - 5                                         73     80    143            38              \r\n                144     200155 - 6                                         74     81    144            39              \r\n                145     200096 - 1                                                      145                          64\r\n                146     200096 - 2                                                      146                          65\r\n                147     200096 - 3                                                      147                          66\r\n                148     200096 - 4                                                      148                          67\r\n                149     200096 - 5                                                      149                          68\r\n                150     200096 - 6                                                      150                          69\r\n                151     200087 - 1                                                      151                          70\r\n                152     200087 - 2                                                      152                          71\r\n                153     200087 - 3                                                      153                          72\r\n                154     200087 - 4                                                      154                          73\r\n                155     200087 - 5                                                      155                          74\r\n                156     200087 - 6                                                      156                          75\r\n                157      19765 - 1                                                      157                          76\r\n                158      19765 - 2                                                      158                          77\r\n                159      19765 - 3                                                      159                          78\r\n                160      19765 - 4                     8                          82    160                    8       \r\n                161      19765 - 5                     9                          83    161                    9       \r\n                162      19765 - 6                                                      162                          79\r\n                163        209 - 1                                  36     75     84    163      1                     \r\n                164        209 - 2                                  37     76     85    164      2                     \r\n                165        209 - 3                                  38     77     86    165      3                     \r\n                166        209 - 4                                  39     78     87    166      4                     \r\n                167        209 - 5                                  40     79     88    167      5                     \r\n                168        209 - 6                                  41     80     89    168      6                     \r\n0--- C O L U M N   T O T A L S ---       0      0      9     35     41     80     89    168      6     39      9     79\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS\r\n0                                                         MPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   189073-1   189073-2   189073-3   189073-4   189073-5   189073-6    18983-1    18983-2    18983-3    18983-5\r\n     11=    18983-6   189077-1   189077-2   189077-3   189077-4   189077-5   189077-6    18987-1    18987-2    18987-3\r\n     21=    18987-5    18987-6   211073-1   211073-2   211073-3   211073-4   211073-5   211073-6    21183-1    21183-2\r\n     31=    21183-3    21183-5    21183-6   211077-1   211077-2   211077-3   211077-4   211077-5   211077-6    21187-1\r\n     41=    21187-2    21187-3    21187-5    21187-6   214075-1   214075-2   214075-3   214075-4   214075-5   214075-6\r\n     51=    21485-2    21485-3    21485-4   200078-3   200079-1   200079-2   200079-3   200079-4   200079-5   200079-6\r\n     61=   200101-1   200101-2   200101-3   200096-1   200096-2   200096-3   200096-4   200096-5   200096-6   200087-1\r\n     71=   200087-2   200087-3   200087-4   200087-5   200087-6    19765-1    19765-2    19765-3    19765-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                         SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                        OMIT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-4   200070-5   200070-6   200078-4   200078-5   200078-6   200086-4   200086-5   200086-6   200095-4\r\n     11=   200095-5   200095-6   200101-4   200101-5   200101-6   200106-4   200106-5   200106-6   200114-4   200114-5\r\n     21=   200114-6   200121-4   200121-5   200121-6   200129-4   200129-5   200129-6   200137-4   200137-5   200137-6\r\n     31=   200145-4   200145-5   200145-6   200153-4   200153-5   200153-6   200155-4   200155-5   200155-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    ANALYSIS DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-1   200070-2   200070-3   200078-1   200078-2   200086-1   200086-2   200086-3   200095-1   200095-2\r\n     11=   200095-3   200106-1   200106-2   200106-3   200114-1   200114-2   200114-3   200121-1   200121-2   200121-3\r\n     21=   200129-1   200129-2   200129-3   200137-1   200137-2   200137-3   200145-1   200145-2   200145-3   200153-1\r\n     31=   200153-2   200153-3   200155-1   200155-2   200155-3      209-1      209-2      209-3      209-4      209-5\r\n     41=      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                      SUPORT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=      209-1      209-2      209-3      209-4      209-5      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    PERM SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        0   MPC        0\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n           209   G          3          1        2        3                                                                          \r\n           209   G          3          4        5        6                                                                          \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    8     BBAR =    3\r\n                                        C =    7     CBAR =    9\r\n                                        R =   10\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    79)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   3.5812325E-13\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        41\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        15\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        37        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        2        38        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        3        39        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        4        40        0.0                 0.0                 0.0                 4.745215E+00        0.0                      \r\n        5        41        0.0                 0.0                 0.0                 2.199128E+01        0.0                      \r\n        6        36        0.0                 0.0                 0.0                 3.051504E+03        0.0                      \r\n        7        35        3.523143E+02        1.877004E+01        2.987344E+00        3.058785E+00        1.077654E+03             \r\n        8        34        4.491364E+02        2.119284E+01        3.372945E+00        6.502028E+00        2.920298E+03             \r\n        9        33        2.364993E+04        1.537853E+02        2.447569E+01        8.486223E-01        2.006985E+04             \r\n       10        32        2.840193E+04        1.685287E+02        2.682218E+01        8.414580E-01        2.389903E+04             \r\n       11        31        1.495553E+05        3.867238E+02        6.154901E+01        5.886284E-01        8.803251E+04             \r\n       12        30        1.953452E+05        4.419787E+02        7.034309E+01        4.855810E-01        9.485592E+04             \r\n       13        29        5.072981E+05        7.122486E+02        1.133579E+02        3.867738E-01        1.962096E+05             \r\n       14        28        5.446138E+05        7.379795E+02        1.174531E+02        3.940395E-01        2.145993E+05             \r\n       15        27        1.069645E+06        1.034236E+03        1.646038E+02        1.257546E+00        1.345127E+06             \r\n       16        26        3.326742E+06        1.823936E+03        2.902884E+02        0.0                 0.0                      \r\n       17        25        3.333666E+06        1.825833E+03        2.905904E+02        0.0                 0.0                      \r\n       18        24        8.023708E+06        2.832615E+03        4.508247E+02        0.0                 0.0                      \r\n       19        23        8.048828E+06        2.837046E+03        4.515298E+02        0.0                 0.0                      \r\n       20        22        1.904542E+07        4.364106E+03        6.945691E+02        0.0                 0.0                      \r\n       21        21        1.908568E+07        4.368716E+03        6.953028E+02        0.0                 0.0                      \r\n       22        20        2.978056E+07        5.457157E+03        8.685334E+02        0.0                 0.0                      \r\n       23        18        3.754954E+07        6.127768E+03        9.752645E+02        0.0                 0.0                      \r\n       24        19        3.754995E+07        6.127802E+03        9.752699E+02        0.0                 0.0                      \r\n       25        17        7.120777E+07        8.438470E+03        1.343024E+03        0.0                 0.0                      \r\n       26        16        7.133043E+07        8.445734E+03        1.344180E+03        0.0                 0.0                      \r\n       27        15        8.488149E+07        9.213115E+03        1.466313E+03        0.0                 0.0                      \r\n       28        14        9.721060E+07        9.859544E+03        1.569195E+03        0.0                 0.0                      \r\n       29        12        1.444611E+08        1.201920E+04        1.912915E+03        0.0                 0.0                      \r\n       30        13        1.452864E+08        1.205348E+04        1.918371E+03        0.0                 0.0                      \r\n       31        11        1.620432E+08        1.272962E+04        2.025981E+03        0.0                 0.0                      \r\n       32         9        2.362997E+08        1.537204E+04        2.446537E+03        0.0                 0.0                      \r\n       33        10        2.363582E+08        1.537395E+04        2.446839E+03        0.0                 0.0                      \r\n       34         8        2.386800E+08        1.544927E+04        2.458828E+03        0.0                 0.0                      \r\n       35         7        2.969673E+08        1.723274E+04        2.742675E+03        0.0                 0.0                      \r\n       36         6        3.486627E+08        1.867251E+04        2.971823E+03        0.0                 0.0                      \r\n       37         4        6.061834E+08        2.462079E+04        3.918521E+03        0.0                 0.0                      \r\n       38         5        6.061843E+08        2.462081E+04        3.918523E+03        0.0                 0.0                      \r\n       39         3        7.824220E+08        2.797181E+04        4.451851E+03        0.0                 0.0                      \r\n       40         2        1.548007E+09        3.934471E+04        6.261906E+03        0.0                 0.0                      \r\n       41         1        2.871167E+09        5.358327E+04        8.528042E+03        0.0                 0.0                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                    E Q U I L I B R I U M   C H E C K   L O A D S\r\n0                RESULTANT LOADS AT POINT      0 IN BASIC COORDINATE SYSTEM\r\n0                        SUBCASE       1,   MODE    1,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.323489E-23   0.000000E+00   0.000000E+00   1.033976E-25   3.841455E-14   2.584939E-26\r\n     ---TOTAL   1.323489E-23   0.000000E+00   0.000000E+00   1.033976E-25   3.841455E-14   2.584939E-26\r\n0                        SUBCASE       1,   MODE    2,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   2.646978E-23   0.000000E+00   0.000000E+00\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   2.646978E-23   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    3,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -1.388562E-17  -1.105679E-14  -2.818896E-16\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -1.388562E-17  -1.105679E-14  -2.818896E-16\r\n0                        SUBCASE       1,   MODE    4,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   2.293550E-11   8.240058E-12  -5.267936E-12\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   2.293550E-11   8.240058E-12  -5.267936E-12\r\n0                        SUBCASE       1,   MODE    5,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   1.804274E-12  -2.933340E-08   2.413113E-10\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00   1.804274E-12  -2.933340E-08   2.413113E-10\r\n0                        SUBCASE       1,   MODE    6,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.355253E-20   0.000000E+00   0.000000E+00   4.922538E-11   4.114644E-11  -1.708888E-11\r\n     ---TOTAL   1.355253E-20   0.000000E+00   0.000000E+00   4.922538E-11   4.114644E-11  -1.708888E-11\r\n0                        SUBCASE       1,   MODE    7,   FREQUENCY   2.987344E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00  -2.168404E-19   0.000000E+00  -5.220482E-05  -3.014457E-04  -3.262815E-05\r\n     ---TOTAL   0.000000E+00  -2.168404E-19   0.000000E+00  -5.220482E-05  -3.014457E-04  -3.262815E-05\r\n0                        SUBCASE       1,   MODE    8,   FREQUENCY   3.372945E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -7.105427E-15   0.000000E+00   0.000000E+00  -3.492460E-10   4.683021E-10  -3.771675E-09\r\n     ---TOTAL  -7.105427E-15   0.000000E+00   0.000000E+00  -3.492460E-10   4.683021E-10  -3.771675E-09\r\n0                        SUBCASE       1,   MODE    9,   FREQUENCY   2.447569E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.387779E-17   0.000000E+00   0.000000E+00  -1.222361E-09   1.679503E-08  -2.734305E-08\r\n     ---TOTAL   1.387779E-17   0.000000E+00   0.000000E+00  -1.222361E-09   1.679503E-08  -2.734305E-08\r\n0                        SUBCASE       1,   MODE   10,   FREQUENCY   2.682218E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -3.988580E-04  -7.718182E-04  -6.255479E-03\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -3.988580E-04  -7.718182E-04  -6.255479E-03\r\n0                        SUBCASE       1,   MODE   11,   FREQUENCY   6.154901E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -1.455192E-11   0.000000E+00   0.000000E+00  -9.657501E-04   9.130112E-03  -2.926317E-02\r\n     ---TOTAL  -1.455192E-11   0.000000E+00   0.000000E+00  -9.657501E-04   9.130112E-03  -2.926317E-02\r\n0                        SUBCASE       1,   MODE   12,   FREQUENCY   7.034309E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   5.684342E-14   0.000000E+00   0.000000E+00   7.916242E-09   5.304981E-09   2.083834E-07\r\n     ---TOTAL   5.684342E-14   0.000000E+00   0.000000E+00   7.916242E-09   5.304981E-09   2.083834E-07\r\n0                        SUBCASE       1,   MODE   13,   FREQUENCY   1.133579E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   1.455192E-11  -1.387779E-17   0.000000E+00  -1.479894E-04   1.561460E-02  -7.868833E-03\r\n     ---TOTAL   1.455192E-11  -1.387779E-17   0.000000E+00  -1.479894E-04   1.561460E-02  -7.868833E-03\r\n0                        SUBCASE       1,   MODE   14,   FREQUENCY   1.174531E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE  -1.705719E-13  -7.275958E-12   0.000000E+00   1.396984E-09  -9.642578E-09   3.929017E-08\r\n     ---TOTAL  -1.705719E-13  -7.275958E-12   0.000000E+00   1.396984E-09  -9.642578E-09   3.929017E-08\r\n0                        SUBCASE       1,   MODE   15,   FREQUENCY   1.646038E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n     MPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00  -8.181558E-04  -1.340751E-01  -2.643341E-02\r\n     ---TOTAL   0.000000E+00   0.000000E+00   0.000000E+00  -8.181558E-04  -1.340751E-01  -2.643341E-02\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.633720E-08   0.0           -4.021333E-07   7.065482E-10   1.257982E-06  -1.692645E-10                  \r\n         18983      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n         18987      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n         21183      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n         21187      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.885781E-12   0.0            0.0            0.0                           \r\n        189073      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n        189077      G      0.0            0.0            6.245005E-13   0.0            0.0            0.0                           \r\n        200078      G      9.590743E-08   0.0            8.359672E-08   0.0           -1.200456E-08   0.0                           \r\n        200079      G     -9.207447E-11   0.0            8.807942E-08   0.0            0.0            0.0                           \r\n        200101      G      5.218474E-10   0.0            2.304572E-07   0.0            0.0            0.0                           \r\n        211073      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n        211077      G      0.0            0.0           -6.245005E-13   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.885781E-12   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      0.0            0.0            0.0           -2.101853E-11   0.0            0.0                           \r\n         18983      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n         18987      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n         21183      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n         21187      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        189073      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        189077      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n        200078      G      0.0           -1.342849E-09   0.0            3.298063E-08   0.0            0.0                           \r\n        200079      G      0.0           -8.939063E-11   0.0            0.0            0.0            0.0                           \r\n        200101      G      0.0            1.432240E-09   0.0            0.0            0.0            0.0                           \r\n        211073      G      0.0            0.0           -4.246167E-13   0.0            0.0            0.0                           \r\n        211077      G      0.0            0.0            4.246167E-13   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      2.857787E-08   0.0            1.154840E-07  -2.029054E-10  -3.370324E-07   5.021103E-11                  \r\n         18983      G     -2.123302E-10   0.0           -2.091838E-11   0.0            0.0            0.0                           \r\n         18987      G     -2.123302E-10   0.0           -2.091838E-11   0.0            0.0            0.0                           \r\n         21183      G     -2.123302E-10   0.0            4.183676E-11   0.0            0.0            0.0                           \r\n         21187      G     -2.123302E-10   0.0            4.183676E-11   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.182787E-10   0.0            0.0            0.0                           \r\n        189073      G      2.123302E-10   0.0            2.091838E-11   0.0            0.0            0.0                           \r\n        189077      G      2.123302E-10   0.0            2.091838E-11   0.0            0.0            0.0                           \r\n        200078      G     -2.843314E-08   0.0           -2.421439E-08   0.0            2.607519E-11   0.0                           \r\n        200079      G      5.774033E-11   0.0           -2.421439E-08   0.0            0.0            0.0                           \r\n        200101      G     -2.024715E-10   0.0           -6.705523E-08   0.0            0.0            0.0                           \r\n        211073      G      2.123302E-10   0.0           -4.183676E-11   0.0            0.0            0.0                           \r\n        211077      G      2.123302E-10   0.0           -4.183676E-11   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.182787E-10   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -4.792809E-06  -8.913342E-04  -2.000607E-05   1.901989E-02   6.257930E-05  -7.387653E-03                  \r\n         18983      G      4.454960E-06   2.302457E-04  -1.401777E-05   0.0            0.0            0.0                           \r\n         18987      G     -1.239089E-05   2.302457E-04  -2.126909E-05   0.0            0.0            0.0                           \r\n         21183      G      4.454960E-06   2.154214E-04  -1.328259E-05   0.0            0.0            0.0                           \r\n         21187      G     -1.239089E-05   2.154214E-04  -2.053391E-05   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.851290E-06   0.0            0.0            0.0                           \r\n        189073      G     -4.454960E-06  -2.302457E-04   1.401777E-05   0.0            0.0            0.0                           \r\n        189077      G      1.239089E-05  -2.302457E-04   2.126909E-05   0.0            0.0            0.0                           \r\n        200078      G      4.792807E-06   2.458370E-02   4.161944E-06  -4.493844E-01  -2.460596E-11   1.379097E-12                  \r\n        200079      G      1.304736E-12  -4.524775E-03   4.375824E-06   0.0            0.0           -2.743273E-12                  \r\n        200101      G      9.647674E-13  -1.916759E-02   1.146831E-05   0.0            0.0            0.0                           \r\n        211073      G     -4.454960E-06  -2.154214E-04   1.328259E-05   0.0            0.0            0.0                           \r\n        211077      G      1.239089E-05  -2.154214E-04   2.053391E-05   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.851290E-06   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      7.283613E-02  -4.742772E-11   3.070352E-01  -5.394585E-04  -9.750485E-01   1.279729E-04                  \r\n         18983      G      1.817650E-04   1.225133E-11  -9.021242E-06   0.0            0.0            0.0                           \r\n         18987      G      1.817650E-04   1.225133E-11  -9.021192E-06   0.0            0.0            0.0                           \r\n         21183      G      1.817650E-04   1.146253E-11   6.303094E-06   0.0            0.0            0.0                           \r\n         21187      G      1.817650E-04   1.146253E-11   6.303144E-06   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.670730E-05   0.0            0.0            0.0                           \r\n        189073      G     -1.817650E-04  -1.225133E-11   9.021242E-06   0.0            0.0            0.0                           \r\n        189077      G     -1.817650E-04  -1.225133E-11   9.021192E-06   0.0            0.0            0.0                           \r\n        200078      G     -4.699313E-02  -2.720109E-08  -6.387376E-02   3.478584E-07   6.718232E-01   1.093001E-11                  \r\n        200079      G      3.495119E-03   1.297109E-08  -6.715619E-02   0.0            0.0           -2.616189E-18                  \r\n        200101      G     -2.933813E-02   1.427743E-08  -1.760052E-01   0.0            0.0            0.0                           \r\n        211073      G     -1.817650E-04  -1.146253E-11  -6.303094E-06   0.0            0.0            0.0                           \r\n        211077      G     -1.817650E-04  -1.146253E-11  -6.303144E-06   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.670730E-05   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -5.170027E-05   3.125151E-04  -2.093978E-04  -6.942764E-03   6.196592E-04   2.590130E-03                  \r\n         18983      G     -1.582519E-05  -8.072759E-05  -5.988371E-05   0.0            0.0            0.0                           \r\n         18987      G     -9.918818E-06  -8.072759E-05  -6.843156E-05   0.0            0.0            0.0                           \r\n         21183      G     -1.582519E-05  -7.552998E-05  -5.723190E-06   0.0            0.0            0.0                           \r\n         21187      G     -9.918818E-06  -7.552998E-05  -1.427104E-05   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -7.301986E-05   0.0            0.0            0.0                           \r\n        189073      G      1.582519E-05   8.072759E-05   5.988371E-05   0.0            0.0            0.0                           \r\n        189077      G      9.918818E-06   8.072759E-05   6.843156E-05   0.0            0.0            0.0                           \r\n        200078      G      1.305221E-04  -8.291303E-02   4.356186E-05   1.685142E+00   1.838103E-03  -1.124128E-09                  \r\n        200079      G      6.777021E-07   1.033780E-02   4.580047E-05   0.0            0.0           -4.656613E-10                  \r\n        200101      G     -7.949955E-05   7.226271E-02   1.200354E-04   0.0            0.0            0.0                           \r\n        211073      G      1.582519E-05   7.552998E-05   5.723190E-06   0.0            0.0            0.0                           \r\n        211077      G      9.918818E-06   7.552998E-05   1.427104E-05   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            7.301986E-05   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.352314E+03    (CYCLIC FREQUENCY =  2.987344E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      8.542817E+02  -1.148010E-03   1.408421E+01   8.875536E-02   8.362155E+04   1.491425E+00                  \r\n         18983      G     -2.457677E+01   2.965492E-04  -4.642505E+02   0.0            0.0            0.0                           \r\n         18987      G     -2.457680E+01   2.965492E-04  -4.642469E+02   0.0            0.0            0.0                           \r\n         21183      G     -2.457677E+01   2.774559E-04   5.428923E+02   0.0            0.0            0.0                           \r\n         21187      G     -2.457680E+01   2.774559E-04   5.428959E+02   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.984203E+03   0.0            0.0            0.0                           \r\n        189073      G      2.457677E+01  -2.965492E-04   4.642505E+02   0.0            0.0            0.0                           \r\n        189077      G      2.457680E+01  -2.965492E-04   4.642469E+02   0.0            0.0            0.0                           \r\n        200078      G      2.684400E+01   1.565766E-04  -6.260682E-01  -8.247953E-03  -9.118691E+01  -4.274636E-11                  \r\n        200079      G      2.075721E+03  -2.666838E-03  -5.903737E-01   0.0            0.0            1.110223E-16                  \r\n        200101      G     -2.956847E+03   3.658272E-03  -1.286777E+01   0.0            0.0            0.0                           \r\n        211073      G      2.457677E+01  -2.774559E-04  -5.428923E+02   0.0            0.0            0.0                           \r\n        211077      G      2.457680E+01  -2.774559E-04  -5.428959E+02   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.984203E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.449136E+03    (CYCLIC FREQUENCY =  3.372945E+00 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.027537E-02   8.816226E+02  -1.500520E-02  -9.825212E+04   5.417212E-01   7.307152E+03                  \r\n         18983      G     -8.334016E+00  -2.277371E+02   1.601251E+03   0.0            0.0            0.0                           \r\n         18987      G      8.328288E+00  -2.277371E+02  -1.601253E+03   0.0            0.0            0.0                           \r\n         21183      G     -8.334016E+00  -2.130742E+02   1.601254E+03   0.0            0.0            0.0                           \r\n         21187      G      8.328288E+00  -2.130742E+02  -1.601250E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            9.093590E-03   0.0            0.0            0.0                           \r\n        189073      G      8.334016E+00   2.277371E+02  -1.601251E+03   0.0            0.0            0.0                           \r\n        189077      G     -8.328288E+00   2.277371E+02   1.601253E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.524382E-03   1.070830E+02  -7.575724E-02   1.628531E+02  -2.799110E-04   1.432454E-11                  \r\n        200079      G      1.838636E-03   2.601391E+03   2.864007E-02   0.0            0.0            3.410605E-12                  \r\n        200101      G     -8.589627E-03  -3.590097E+03   6.212237E-02   0.0            0.0            0.0                           \r\n        211073      G      8.334016E+00   2.130742E+02  -1.601254E+03   0.0            0.0            0.0                           \r\n        211077      G     -8.328288E+00   2.130742E+02   1.601250E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -9.093590E-03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.236499E+05    (CYCLIC FREQUENCY =  2.447569E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      4.076890E-02   1.529217E+04  -1.941184E-01  -4.280362E+05   2.781596E+00   1.267460E+05                  \r\n         18983      G     -1.445285E+02  -3.950208E+03   1.992789E+03   0.0            0.0            0.0                           \r\n         18987      G      1.444871E+02  -3.950208E+03  -1.992791E+03   0.0            0.0            0.0                           \r\n         21183      G     -1.445285E+02  -3.695875E+03   1.992792E+03   0.0            0.0            0.0                           \r\n         21187      G      1.444871E+02  -3.695875E+03  -1.992787E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.451893E-02   0.0            0.0            0.0                           \r\n        189073      G      1.445285E+02   3.950208E+03  -1.992789E+03   0.0            0.0            0.0                           \r\n        189077      G     -1.444871E+02   3.950208E+03   1.992791E+03   0.0            0.0            0.0                           \r\n        200078      G     -1.676536E-02  -2.157355E+03   2.048323E-02   2.305789E+04  -2.368291E-02   0.0                           \r\n        200079      G     -1.312193E-02  -1.053848E+04   4.104262E-03   0.0            0.0            0.0                           \r\n        200101      G     -1.088161E-02  -2.596330E+03   1.695309E-01   0.0            0.0            0.0                           \r\n        211073      G      1.445285E+02   3.695875E+03  -1.992792E+03   0.0            0.0            0.0                           \r\n        211077      G     -1.444871E+02   3.695875E+03   1.992787E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -1.451893E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.284019E+05    (CYCLIC FREQUENCY =  2.682218E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      2.078306E+04  -2.736260E-02  -3.228644E+03   6.523232E+00   6.904508E+05   3.628280E+01                  \r\n         18983      G     -4.711869E+03   7.068193E-03  -1.271735E+03   0.0            0.0            0.0                           \r\n         18987      G     -4.711869E+03   7.068193E-03  -1.271724E+03   0.0            0.0            0.0                           \r\n         21183      G     -4.711869E+03   6.613108E-03   1.872595E+03   0.0            0.0            0.0                           \r\n         21187      G     -4.711869E+03   6.613108E-03   1.872605E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.010641E+04   0.0            0.0            0.0                           \r\n        189073      G      4.711869E+03  -7.068193E-03   1.271735E+03   0.0            0.0            0.0                           \r\n        189077      G      4.711869E+03  -7.068193E-03   1.271724E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.463880E+03   2.731989E-04   1.406916E+02  -2.405403E-02  -2.556608E+04   1.455187E-11                  \r\n        200079      G     -9.697204E+03   1.796259E-02   1.326390E+02   0.0            0.0            4.163336E-17                  \r\n        200101      G     -7.621981E+03   9.126816E-03   2.955313E+03   0.0            0.0            0.0                           \r\n        211073      G      4.711869E+03  -6.613108E-03  -1.872595E+03   0.0            0.0            0.0                           \r\n        211077      G      4.711869E+03  -6.613108E-03  -1.872605E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -1.010641E+04   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.149555E+06    (CYCLIC FREQUENCY =  6.154901E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      6.527185E+04   5.748166E-01  -9.312070E+04   1.522860E+02   2.035270E+06   1.194176E+02                  \r\n         18983      G     -2.204216E+04  -1.484842E-01   2.268464E+03   0.0            0.0            0.0                           \r\n         18987      G     -2.204215E+04  -1.484842E-01   2.268507E+03   0.0            0.0            0.0                           \r\n         21183      G     -2.204216E+04  -1.389241E-01  -8.136258E+02   0.0            0.0            0.0                           \r\n         21187      G     -2.204215E+04  -1.389241E-01  -8.135831E+02   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -5.364455E+03   0.0            0.0            0.0                           \r\n        189073      G      2.204216E+04   1.484842E-01  -2.268464E+03   0.0            0.0            0.0                           \r\n        189077      G      2.204215E+04   1.484842E-01  -2.268507E+03   0.0            0.0            0.0                           \r\n        200078      G     -5.684745E+04  -4.891713E-01   3.497656E+03  -1.286699E+00   1.463483E+05   0.0                           \r\n        200079      G     -8.822879E+03  -8.081222E-02   3.296792E+03   0.0            0.0            0.0                           \r\n        200101      G      3.984850E+02  -4.833087E-03   8.632626E+04   0.0            0.0            0.0                           \r\n        211073      G      2.204216E+04   1.389241E-01   8.136258E+02   0.0            0.0            0.0                           \r\n        211077      G      2.204215E+04   1.389241E-01   8.135831E+02   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            5.364455E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.195345E+06    (CYCLIC FREQUENCY =  7.034309E+01 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -6.505733E-01   9.222319E+04  -6.685863E-02  -1.909049E+06  -1.256305E+01   7.643734E+05                  \r\n         18983      G     -8.713308E+02  -2.382271E+04  -1.564401E+03   0.0            0.0            0.0                           \r\n         18987      G      8.716495E+02  -2.382271E+04   1.564370E+03   0.0            0.0            0.0                           \r\n         21183      G     -8.713308E+02  -2.228888E+04  -1.564381E+03   0.0            0.0            0.0                           \r\n         21187      G      8.716495E+02  -2.228888E+04   1.564390E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            3.266480E-02   0.0            0.0            0.0                           \r\n        189073      G      8.713308E+02   2.382271E+04   1.564401E+03   0.0            0.0            0.0                           \r\n        189077      G     -8.716495E+02   2.382271E+04  -1.564370E+03   0.0            0.0            0.0                           \r\n        200078      G      5.160499E-01  -7.252590E+04   1.292283E-01  -1.767067E+05  -1.263762E+00   0.0                           \r\n        200079      G      1.267308E-01  -1.645486E+04  -4.382817E-02   0.0            0.0            0.0                           \r\n        200101      G      7.792643E-03  -3.242429E+03  -1.854148E-02   0.0            0.0            0.0                           \r\n        211073      G      8.713308E+02   2.228888E+04   1.564381E+03   0.0            0.0            0.0                           \r\n        211077      G     -8.716495E+02   2.228888E+04  -1.564390E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -3.266480E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.507298E+06    (CYCLIC FREQUENCY =  1.133579E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.545032E+04  -3.474046E-02  -1.559267E+05   2.751115E+02   7.781604E+05  -2.744202E+01                  \r\n         18983      G     -5.927110E+03   8.974010E-03   1.629758E+03   0.0            0.0            0.0                           \r\n         18987      G     -5.927110E+03   8.974010E-03   1.629774E+03   0.0            0.0            0.0                           \r\n         21183      G     -5.927110E+03   8.396219E-03  -1.406831E+03   0.0            0.0            0.0                           \r\n         21187      G     -5.927110E+03   8.396219E-03  -1.406815E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -7.975171E+03   0.0            0.0            0.0                           \r\n        189073      G      5.927110E+03  -8.974010E-03  -1.629758E+03   0.0            0.0            0.0                           \r\n        189077      G      5.927110E+03  -8.974010E-03  -1.629774E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.589540E+04  -1.152645E-01   2.642076E+03  -1.489095E+00   4.628788E+05   5.820767E-11                  \r\n        200079      G      6.787584E+04   2.106249E-01   2.489022E+03   0.0            0.0           -1.387779E-17                  \r\n        200101      G     -1.653012E+04  -6.061989E-02   1.507956E+05   0.0            0.0            0.0                           \r\n        211073      G      5.927110E+03  -8.396219E-03   1.406831E+03   0.0            0.0            0.0                           \r\n        211077      G      5.927110E+03  -8.396219E-03   1.406815E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            7.975171E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.544614E+06    (CYCLIC FREQUENCY =  1.174531E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.784778E-02   4.669009E+04   7.696017E-02  -8.968731E+05  -2.121522E+00   3.869815E+05                  \r\n         18983      G     -4.411813E+02  -1.206079E+04  -2.198613E+03   0.0            0.0            0.0                           \r\n         18987      G      4.412423E+02  -1.206079E+04   2.198601E+03   0.0            0.0            0.0                           \r\n         21183      G     -4.411813E+02  -1.128426E+04  -2.198603E+03   0.0            0.0            0.0                           \r\n         21187      G      4.412423E+02  -1.128426E+04   2.198612E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            2.690862E-02   0.0            0.0            0.0                           \r\n        189073      G      4.411813E+02   1.206079E+04   2.198613E+03   0.0            0.0            0.0                           \r\n        189077      G     -4.412423E+02   1.206079E+04  -2.198601E+03   0.0            0.0            0.0                           \r\n        200078      G      2.246275E-01  -8.555726E+04   5.193660E-02  -6.429478E+05  -1.793763E+00  -2.910383E-11                  \r\n        200079      G     -1.895501E-01   6.622625E+04  -2.058280E-02   0.0            0.0            0.0                           \r\n        200101      G      6.277040E-02  -2.735909E+04  -1.083140E-01   0.0            0.0            0.0                           \r\n        211073      G      4.411813E+02   1.128426E+04   2.198603E+03   0.0            0.0            0.0                           \r\n        211077      G     -4.412423E+02   1.128426E+04  -2.198612E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0           -2.690862E-02   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.106964E+07    (CYCLIC FREQUENCY =  1.646038E+02 HZ)\r\n\r\n                                F O R C E S   O F   M U L T I - P O I N T   C O N S T R A I N T\r\n \r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      4.158803E+05   5.067949E-01   1.409070E+06  -2.486980E+03  -2.918888E+06   7.348758E+02                  \r\n         18983      G     -1.991067E+04  -1.309131E-01   2.544004E+03   0.0            0.0            0.0                           \r\n         18987      G     -1.991066E+04  -1.309131E-01   2.543991E+03   0.0            0.0            0.0                           \r\n         21183      G     -1.991067E+04  -1.224843E-01  -1.311458E+03   0.0            0.0            0.0                           \r\n         21187      G     -1.991066E+04  -1.224843E-01  -1.311471E+03   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0           -8.015892E+03   0.0            0.0            0.0                           \r\n        189073      G      1.991067E+04   1.309131E-01  -2.544004E+03   0.0            0.0            0.0                           \r\n        189077      G      1.991066E+04   1.309131E-01  -2.543991E+03   0.0            0.0            0.0                           \r\n        200078      G     -3.694023E+05  -4.195791E-01   3.929329E+04  -1.539915E+00   1.291299E+06  -5.820772E-11                  \r\n        200079      G      8.909943E+02  -6.808867E-03   3.698691E+04   0.0            0.0            5.551115E-17                  \r\n        200101      G     -4.736901E+04  -8.040691E-02  -1.485350E+06   0.0            0.0            0.0                           \r\n        211073      G      1.991067E+04   1.224843E-01   1.311458E+03   0.0            0.0            0.0                           \r\n        211077      G      1.991066E+04   1.224843E-01   1.311471E+03   0.0            0.0            0.0                           \r\n        214075      G      0.0            0.0            8.015892E+03   0.0            0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18983      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18987      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         19765      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21183      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21187      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n        189073      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        189077      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        200070      G      1.000000E+00   0.0           -6.328272E-15   0.0           -1.330773E-17   0.0                           \r\n        200078      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200079      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200086      G      1.000000E+00   0.0           -6.341715E-15   0.0           -1.325098E-17   0.0                           \r\n        200087      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200095      G      1.000000E+00   0.0           -6.336078E-15   0.0            2.670525E-17   0.0                           \r\n        200096      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200101      G      1.000000E+00   0.0            0.0            0.0            2.012381E-17   0.0                           \r\n        200106      G      1.000000E+00   0.0           -6.326537E-15   0.0           -5.277354E-17   0.0                           \r\n        200114      G      1.000000E+00   0.0           -6.315478E-15   0.0            1.250390E-17   0.0                           \r\n        200121      G      1.000000E+00   0.0           -6.313527E-15   0.0            7.692753E-18   0.0                           \r\n        200129      G      1.000000E+00   0.0           -6.311791E-15   0.0            3.785390E-18   0.0                           \r\n        200137      G      1.000000E+00   0.0           -6.309189E-15   0.0            7.740611E-18   0.0                           \r\n        200145      G      1.000000E+00   0.0           -6.308160E-15   0.0           -1.479871E-17   0.0                           \r\n        200153      G      1.000000E+00   0.0           -6.309340E-15   0.0            4.655832E-17   0.0                           \r\n        200155      G      1.000000E+00   0.0           -6.309340E-15   0.0            3.223199E-17   0.0                           \r\n        211073      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        211077      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        214075      G      1.000000E+00   0.0           -1.942890E-16   0.0            1.273768E-17   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18983      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18987      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         19765      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21183      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21187      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        189073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        189077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        200070      G      0.0            1.000000E+00   0.0           -1.700419E-17   0.0            0.0                           \r\n        200078      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200079      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200086      G      0.0            1.000000E+00   0.0            1.286474E-17   0.0            0.0                           \r\n        200087      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200095      G      0.0            1.000000E+00   0.0           -4.880604E-17   0.0            0.0                           \r\n        200096      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200101      G      0.0            1.000000E+00   0.0           -1.331875E-17   0.0            0.0                           \r\n        200106      G      0.0            1.000000E+00   0.0            1.694066E-17   0.0            0.0                           \r\n        200114      G      0.0            1.000000E+00   0.0           -5.204170E-18   0.0            0.0                           \r\n        200121      G      0.0            1.000000E+00   0.0            1.127570E-17   0.0            0.0                           \r\n        200129      G      0.0            1.000000E+00   0.0            1.474515E-17   0.0            0.0                           \r\n        200137      G      0.0            1.000000E+00   0.0            1.040834E-17   0.0            0.0                           \r\n        200145      G      0.0            1.000000E+00   0.0            1.387779E-17   0.0            0.0                           \r\n        200153      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        200155      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        211073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        211077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        214075      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18983      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18987      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         19765      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21183      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21187      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n        189073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        189077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200070      G     -4.862983E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200078      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200079      G      8.945737E-16   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200086      G      5.282075E-15   0.0            1.000000E+00   0.0            6.176852E-16   0.0                           \r\n        200087      G      5.475168E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200095      G      1.083319E-14   0.0            1.000000E+00   0.0            6.527213E-16   0.0                           \r\n        200096      G      1.104186E-14   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200101      G      1.465227E-14   0.0            1.000000E+00   0.0            7.005520E-16   0.0                           \r\n        200106      G      1.854924E-14   0.0            1.000000E+00   0.0            7.615981E-16   0.0                           \r\n        200114      G      2.493302E-14   0.0            1.000000E+00   0.0            8.282532E-16   0.0                           \r\n        200121      G      3.087272E-14   0.0            1.000000E+00   0.0            8.679134E-16   0.0                           \r\n        200129      G      3.795039E-14   0.0            1.000000E+00   0.0            8.971601E-16   0.0                           \r\n        200137      G      4.518072E-14   0.0            1.000000E+00   0.0            9.089458E-16   0.0                           \r\n        200145      G      5.248737E-14   0.0            1.000000E+00   0.0            9.184258E-16   0.0                           \r\n        200153      G      5.964137E-14   0.0            1.000000E+00   0.0            9.232443E-16   0.0                           \r\n        200155      G      6.168141E-14   0.0            1.000000E+00   0.0            9.230140E-16   0.0                           \r\n        211073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        211077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        214075      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.657564E-11  -1.563668E-01  -3.725052E-06  -1.168756E-02   0.0            0.0                           \r\n         18983      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         18987      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         19765      G     -9.657564E-11  -5.585395E-02   1.680999E-05   0.0            0.0            0.0                           \r\n         21183      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         21187      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         21485      G      0.0            9.538307E-02   1.680999E-05  -1.168756E-02   0.0            0.0                           \r\n        189073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        189077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200070      G     -1.227557E-11   6.908262E-03   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200078      G      4.450754E-11   9.538306E-02   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200079      G      5.560915E-11   1.126807E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200086      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200087      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200095      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200096      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200101      G      2.178198E-10   3.654241E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200106      G      2.577630E-10   4.276603E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200114      G      3.177716E-10   5.211608E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200121      G      3.702791E-10   6.029737E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200129      G      4.302876E-10   6.964741E-01   1.680995E-05  -1.168756E-02   7.501073E-12   2.420055E-11                  \r\n        200137      G      4.902962E-10   7.899746E-01   1.680995E-05  -1.168756E-02   7.501070E-12   2.420055E-11                  \r\n        200145      G      5.503048E-10   8.834750E-01   1.680995E-05  -1.168756E-02   7.501080E-12   2.420055E-11                  \r\n        200153      G      6.085131E-10   9.741704E-01   1.680995E-05  -1.168755E-02   7.501055E-12   2.420055E-11                  \r\n        200155      G      6.250905E-10   1.000000E+00   1.680995E-05  -1.168755E-02   7.501045E-12   2.420055E-11                  \r\n        211073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        211077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        214075      G      4.450754E-11   9.538306E-02   1.680984E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.563668E-01  -2.240056E-07   1.751981E-02  -1.674319E-08   1.168756E-02   0.0                           \r\n         18983      G      9.538307E-02   1.366425E-07   3.822643E-02   0.0            1.168756E-02   0.0                           \r\n         18987      G      9.538307E-02   1.366425E-07   3.822684E-02   0.0            1.168756E-02   0.0                           \r\n         19765      G     -5.585395E-02  -8.001442E-08  -4.311867E-02   0.0            0.0            0.0                           \r\n         21183      G      9.538307E-02   1.366425E-07  -2.163286E-01   0.0            1.168756E-02   0.0                           \r\n         21187      G      9.538307E-02   1.366425E-07  -2.163281E-01   0.0            1.168756E-02   0.0                           \r\n         21485      G      0.0            1.366425E-07  -2.488198E-01  -1.674319E-08   0.0            0.0                           \r\n        189073      G      9.538306E-02   1.366425E-07   3.822643E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        189077      G      9.538306E-02   1.366425E-07   3.822684E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200070      G      6.908263E-03   9.896536E-09  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200078      G      9.538306E-02   1.366425E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200079      G      1.126807E-01   1.614224E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200086      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200087      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200095      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200096      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200101      G      3.654241E-01   5.234938E-07  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200106      G      4.276603E-01   6.126513E-07  -7.935017E-02  -1.674318E-08   1.168755E-02   1.287707E-18                  \r\n        200114      G      5.211608E-01   7.465968E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200121      G      6.029737E-01   8.637991E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200129      G      6.964741E-01   9.977446E-07  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200137      G      7.899746E-01   1.131690E-06  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200145      G      8.834750E-01   1.265636E-06  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200153      G      9.741704E-01   1.395563E-06  -7.935017E-02  -1.674321E-08   1.168756E-02   1.287707E-18                  \r\n        200155      G      1.000000E+00   1.432565E-06  -7.935017E-02  -1.674322E-08   1.168755E-02   1.287707E-18                  \r\n        211073      G      9.538306E-02   1.366425E-07  -2.163286E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        211077      G      9.538306E-02   1.366425E-07  -2.163282E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        214075      G      9.538306E-02   1.366425E-07  -2.488198E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -4.168538E-05  -1.024119E-01   2.229137E-06   8.935354E-03  -4.113639E-07   1.480688E-01                  \r\n         18983      G     -1.832142E+00  -5.572125E-01   1.105608E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         18987      G      1.832561E+00  -5.572125E-01  -1.105892E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         19765      G      2.149338E-04   5.889686E-01  -1.133600E-05   0.0            0.0            1.480688E-01                  \r\n         21183      G     -1.832142E+00   2.667726E+00   1.105698E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21187      G      1.832561E+00   2.667726E+00  -1.105802E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21485      G      0.0            3.079357E+00  -4.095996E-06   8.935354E-03   0.0            0.0                           \r\n        189073      G     -1.832142E+00  -5.572125E-01   1.105608E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        189077      G      1.832561E+00  -5.572125E-01  -1.105892E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200070      G      2.126719E-04   1.000000E+00  -1.004911E-05   8.935350E-03  -4.108148E-07   1.480688E-01                  \r\n        200078      G      2.095621E-04   9.323594E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200079      G      2.089541E-04   9.191350E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200086      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935357E-03  -4.108099E-07   1.480688E-01                  \r\n        200087      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200095      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935349E-03  -4.108132E-07   1.480688E-01                  \r\n        200096      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200101      G      2.000703E-04   7.259080E-01  -1.004911E-05   8.935351E-03  -4.108117E-07   1.480688E-01                  \r\n        200106      G      1.978827E-04   6.783273E-01  -1.004911E-05   8.935357E-03  -4.108088E-07   1.480688E-01                  \r\n        200114      G      1.945962E-04   6.068444E-01  -1.004911E-05   8.935351E-03  -4.108119E-07   1.480688E-01                  \r\n        200121      G      1.917206E-04   5.442970E-01  -1.004911E-05   8.935351E-03  -4.108113E-07   1.480688E-01                  \r\n        200129      G      1.884341E-04   4.728141E-01  -1.004911E-05   8.935357E-03  -4.108108E-07   1.480688E-01                  \r\n        200137      G      1.851476E-04   4.013313E-01  -1.004911E-05   8.935355E-03  -4.108109E-07   1.480688E-01                  \r\n        200145      G      1.818611E-04   3.298485E-01  -1.004911E-05   8.935349E-03  -4.108112E-07   1.480688E-01                  \r\n        200153      G      1.786732E-04   2.605102E-01  -1.004911E-05   8.935357E-03  -4.108096E-07   1.480688E-01                  \r\n        200155      G      1.777653E-04   2.407630E-01  -1.004911E-05   8.935359E-03  -4.108083E-07   1.480688E-01                  \r\n        211073      G     -1.832142E+00   2.667726E+00   1.105698E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        211077      G      1.832561E+00   2.667726E+00  -1.105802E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        214075      G      2.095621E-04   3.079357E+00  -4.092345E-06   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.352314E+03    (CYCLIC FREQUENCY =  2.987344E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.281382E-01   1.691115E-07  -2.534163E-03  -1.922461E-08  -1.715252E-03  -3.040498E-08                  \r\n         18983      G     -1.650843E-01   6.370777E-07  -5.573309E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         18987      G     -1.650851E-01   6.370777E-07  -5.572834E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         19765      G     -1.428893E-01   1.766929E-07   6.365067E-03   0.0            0.0           -3.040498E-08                  \r\n         21183      G     -1.650843E-01  -2.514270E-08   3.178487E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21187      G     -1.650851E-01  -2.514270E-08   3.178535E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21485      G      0.0           -1.096685E-07   3.655351E-02  -1.922461E-08   0.0            0.0                           \r\n        189073      G     -1.642105E-01   6.265337E-07   9.759346E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        189077      G     -1.642112E-01   6.265337E-07   9.759314E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200070      G     -2.290160E-01   4.194566E-07   1.147306E-02   1.301502E-08   8.560844E-03  -3.037381E-08                  \r\n        200078      G     -1.642108E-01   3.209733E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200079      G     -1.515410E-01   3.017347E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200086      G     -9.852263E-02   2.197933E-07   1.147306E-02   1.176456E-08   7.662398E-03  -3.037381E-08                  \r\n        200087      G     -8.990425E-02   2.081419E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200095      G     -2.478640E-02   1.078383E-07   1.147305E-02   1.415583E-08   9.411636E-03  -3.037381E-08                  \r\n        200096      G     -1.499841E-02   9.440056E-08   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200101      G      3.358340E-02   2.063114E-08   1.147301E-02   1.669187E-08   1.125167E-02  -3.037381E-08                  \r\n        200106      G      9.860229E-02  -7.520995E-08   1.147366E-02   1.926111E-08   1.313361E-02  -3.037381E-08                  \r\n        200114      G      2.137211E-01  -2.430559E-07   1.147460E-02   2.258852E-08   1.556749E-02  -3.037381E-08                  \r\n        200121      G      3.290100E-01  -4.097938E-07   1.147537E-02   2.497315E-08   1.731289E-02  -3.037381E-08                  \r\n        200129      G      4.740710E-01  -6.185717E-07   1.147620E-02   2.711603E-08   1.887638E-02  -3.037381E-08                  \r\n        200137      G      6.298204E-01  -8.419798E-07   1.147702E-02   2.863244E-08   1.998549E-02  -3.037381E-08                  \r\n        200145      G      7.926352E-01  -1.075047E-06   1.147784E-02   2.953232E-08   2.064322E-02  -3.037381E-08                  \r\n        200153      G      9.539133E-01  -1.305709E-06   1.147862E-02   2.982079E-08   2.085354E-02  -3.037381E-08                  \r\n        200155      G      1.000000E+00  -1.371613E-06   1.147862E-02   2.982090E-08   2.085367E-02  -3.037381E-08                  \r\n        211073      G     -1.642105E-01  -3.500780E-08  -8.885785E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        211077      G     -1.642112E-01  -3.500780E-08  -8.885817E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        214075      G     -1.642108E-01  -1.194470E-07  -1.126567E-01   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.449136E+03    (CYCLIC FREQUENCY =  3.372945E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.860438E-07  -1.034032E-01   5.648798E-06   1.775269E-02  -1.037556E-08  -1.166620E-04                  \r\n         18983      G      1.442978E-03  -4.855892E-01   2.196639E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         18987      G     -1.444407E-03  -4.855892E-01  -2.197150E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         19765      G     -5.802487E-07  -2.566814E-01  -2.548884E-05   0.0            0.0           -1.166620E-04                  \r\n         21183      G      1.442978E-03  -4.881301E-01   2.196642E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21187      G     -1.444407E-03  -4.881301E-01  -2.197148E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21485      G      0.0           -4.884544E-01  -2.530623E-05   1.775269E-02   0.0            0.0                           \r\n        189073      G      1.739299E-03  -4.774919E-01  -1.361696E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        189077      G     -1.740524E-03  -4.774919E-01   1.361191E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200070      G     -7.587439E-07  -5.621898E-01  -2.547534E-05  -1.100188E-02   1.929929E-08  -1.405989E-04                  \r\n        200078      G     -6.126497E-07  -4.789063E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200079      G     -5.840874E-07  -4.626240E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200086      G     -4.678302E-07  -3.941894E-01  -2.548314E-05  -9.879191E-03   1.641146E-08  -1.405989E-04                  \r\n        200087      G     -4.451366E-07  -3.834127E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200095      G     -3.075142E-07  -2.993758E-01  -2.548273E-05  -1.206665E-02   2.166020E-08  -1.405989E-04                  \r\n        200096      G     -2.762726E-07  -2.871491E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200101      G     -1.667521E-07  -2.247152E-01  -2.548108E-05  -1.435877E-02   2.799988E-08  -1.405989E-04                  \r\n        200106      G     -2.977248E-09  -1.419004E-01  -2.548284E-05  -1.670387E-02   3.321984E-08  -1.405989E-04                  \r\n        200114      G      2.903915E-07   4.300541E-03  -2.548548E-05  -1.974964E-02   4.031057E-08  -1.405989E-04                  \r\n        200121      G      5.935073E-07   1.504727E-01  -2.548766E-05  -2.194033E-02   4.593636E-08  -1.405989E-04                  \r\n        200129      G      9.803830E-07   3.342393E-01  -2.549002E-05  -2.390597E-02   5.060391E-08  -1.405989E-04                  \r\n        200137      G      1.399793E-06   5.314468E-01  -2.549235E-05  -2.530109E-02   5.400505E-08  -1.405989E-04                  \r\n        200145      G      1.840719E-06   7.375434E-01  -2.549465E-05  -2.612874E-02   5.600181E-08  -1.405989E-04                  \r\n        200153      G      2.278612E-06   9.416702E-01  -2.549686E-05  -2.639342E-02   5.664344E-08  -1.405989E-04                  \r\n        200155      G      2.403794E-06   1.000000E+00  -2.549686E-05  -2.639357E-02   5.664348E-08  -1.405989E-04                  \r\n        211073      G      1.739299E-03  -4.805541E-01  -1.361700E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        211077      G     -1.740524E-03  -4.805541E-01   1.361186E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        214075      G     -6.126497E-07  -4.809450E-01  -2.576091E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.236499E+05    (CYCLIC FREQUENCY =  2.447569E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.435972E-08  -3.412846E-02   5.072368E-07   1.468387E-03  -8.822445E-10  -3.847645E-05                  \r\n         18983      G      4.759851E-04  -6.568932E-02   1.816921E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         18987      G     -4.763070E-04  -6.568932E-02  -1.817336E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         19765      G     -1.495501E-07  -4.695619E-02  -2.068141E-06   0.0            0.0           -3.847645E-05                  \r\n         21183      G      4.759851E-04  -6.652734E-02   1.816923E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21187      G     -4.763070E-04  -6.652734E-02  -1.817334E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21485      G      0.0           -6.663430E-02  -2.052613E-06   1.468387E-03   0.0            0.0                           \r\n        189073      G      5.614778E-03   7.476252E-02  -4.246728E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        189077      G     -5.613626E-03   7.476252E-02   4.246690E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200070      G      2.955142E-07  -1.898057E-01  -2.243486E-06  -3.436159E-02   3.705455E-08  -4.536729E-04                  \r\n        200078      G      5.759011E-07   7.019858E-02  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200079      G      6.306740E-07   1.209876E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200086      G      9.504164E-07   4.103552E-01  -2.242231E-06  -3.867330E-02   4.252023E-08  -4.536729E-04                  \r\n        200087      G      8.971356E-07   3.680688E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200095      G      1.280280E-06   7.154400E-01  -2.242212E-06  -3.001861E-02   3.149801E-08  -4.536729E-04                  \r\n        200096      G      1.220961E-06   6.683411E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200101      G      1.430985E-06   8.630893E-01  -2.241936E-06  -2.183529E-02   2.158771E-08  -4.536729E-04                  \r\n        200106      G      1.518581E-06   9.561676E-01  -2.250704E-06  -1.286215E-02   1.086131E-08  -4.536729E-04                  \r\n        200114      G      1.530922E-06   1.000000E+00  -2.263341E-06   1.957220E-03  -8.020608E-09  -4.536729E-04                  \r\n        200121      G      1.416088E-06   9.416006E-01  -2.273752E-06   1.456062E-02  -2.459173E-08  -4.536729E-04                  \r\n        200129      G      1.151721E-06   7.739921E-01  -2.285045E-06   2.681751E-02  -4.082344E-08  -4.536729E-04                  \r\n        200137      G      7.744326E-07   5.213209E-01  -2.296183E-06   3.577421E-02  -5.273528E-08  -4.536729E-04                  \r\n        200145      G      3.204811E-07   2.110446E-01  -2.307216E-06   4.119091E-02  -5.995029E-08  -4.536729E-04                  \r\n        200153      G     -1.568169E-07  -1.176563E-01  -2.317787E-06   4.294504E-02  -6.229005E-08  -4.536729E-04                  \r\n        200155      G     -2.944816E-07  -2.125676E-01  -2.317806E-06   4.294669E-02  -6.229229E-08  -4.536729E-04                  \r\n        211073      G      5.614778E-03   6.488153E-02  -4.246736E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        211077      G     -5.613626E-03   6.488153E-02   4.246682E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        214075      G      5.759011E-07   6.362032E-02  -2.778560E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.284019E+05    (CYCLIC FREQUENCY =  2.682218E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -3.838427E-02   5.098872E-08   7.107995E-03  -2.159953E-08  -1.761671E-04  -9.106066E-09                  \r\n         18983      G     -4.217879E-02   5.323756E-07   6.795612E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         18987      G     -4.217901E-02   5.323756E-07   6.796147E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         19765      G     -3.989930E-02   1.894995E-07   8.022001E-03   0.0            0.0           -9.106066E-09                  \r\n         21183      G     -4.217879E-02   3.340455E-07   1.063253E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21187      G     -4.217901E-02   3.340455E-07   1.063307E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21485      G      0.0            3.087307E-07   1.112254E-02  -2.159953E-08   0.0            0.0                           \r\n        189073      G      1.253543E-01   2.810621E-07   2.894033E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        189077      G      1.253541E-01   2.810621E-07   2.894015E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200070      G     -1.164212E-01   7.518266E-07  -3.157805E-02   7.331779E-08   3.195518E-02  -8.363147E-09                  \r\n        200078      G      1.253542E-01   1.969289E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200079      G      1.725745E-01   8.848742E-08  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200086      G      4.406096E-01  -5.177437E-07  -3.157695E-02   8.161371E-08   3.583152E-02  -8.363147E-09                  \r\n        200087      G      4.022944E-01  -4.390642E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200095      G      7.237899E-01  -1.170314E-06  -3.157635E-02   6.522352E-08   2.797138E-02  -8.363147E-09                  \r\n        200096      G      6.814680E-01  -1.080186E-06  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200101      G      8.625321E-01  -1.496000E-06  -3.156740E-02   4.929531E-08   2.084899E-02  -8.363147E-09                  \r\n        200106      G      9.532413E-01  -1.713621E-06  -3.171637E-02   3.185222E-08   1.285371E-02  -8.363147E-09                  \r\n        200114      G      1.000000E+00  -1.850967E-06  -3.193140E-02   2.228491E-09  -1.341127E-03  -8.363147E-09                  \r\n        200121      G      9.463068E-01  -1.775468E-06  -3.210861E-02  -2.351752E-08  -1.388646E-02  -8.363147E-09                  \r\n        200129      G      7.835510E-01  -1.482026E-06  -3.230085E-02  -4.877711E-08  -2.628601E-02  -8.363147E-09                  \r\n        200137      G      5.345000E-01  -1.013042E-06  -3.249047E-02  -6.728381E-08  -3.539703E-02  -8.363147E-09                  \r\n        200145      G      2.267487E-01  -4.249182E-07  -3.267832E-02  -7.850303E-08  -4.092677E-02  -8.363147E-09                  \r\n        200153      G     -1.001117E-01   2.030789E-07  -3.285829E-02  -8.214549E-08  -4.272163E-02  -8.363147E-09                  \r\n        200155      G     -1.945294E-01   3.846258E-07  -3.285862E-02  -8.214876E-08  -4.272344E-02  -8.363147E-09                  \r\n        211073      G      1.253543E-01   9.891279E-08  -4.054996E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        211077      G      1.253541E-01   9.891279E-08  -4.055014E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        214075      G      1.253542E-01   7.566326E-08  -4.941979E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.149555E+06    (CYCLIC FREQUENCY =  6.154901E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.180174E-02  -2.043694E-07   3.809752E-02  -9.654200E-08  -1.005259E-04  -5.434067E-09                  \r\n         18983      G     -2.396700E-02   1.884772E-06   3.791822E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         18987      G     -2.396714E-02   1.884772E-06   3.792061E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         19765      G     -2.266626E-02   5.976970E-07   3.861908E-02   0.0            0.0           -5.434067E-09                  \r\n         21183      G     -2.396700E-02   1.766418E-06   4.010768E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21187      G     -2.396714E-02   1.766418E-06   4.011007E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21485      G      0.0            1.751311E-06   4.038833E-02  -9.654200E-08   0.0            0.0                           \r\n        189073      G      7.597543E-01   7.164211E-06  -4.661849E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        189077      G      7.597538E-01   7.164211E-06  -4.661919E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200070      G      1.000000E+00   9.132744E-06  -1.490883E-01   2.888383E-07  -3.183128E-02  -2.104087E-08                  \r\n        200078      G      7.597540E-01   6.952539E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200079      G      7.130640E-01   6.528754E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200086      G      5.071975E-01   4.657975E-06  -1.490609E-01   2.714607E-07  -2.986233E-02  -2.104087E-08                  \r\n        200087      G      4.859242E-01   4.467101E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200095      G      2.271481E-01   2.113667E-06  -1.490459E-01   3.082117E-07  -3.397761E-02  -2.104087E-08                  \r\n        200096      G      2.098861E-01   1.961619E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200101      G      3.085553E-02   3.366340E-07  -1.488235E-01   3.128914E-07  -3.464390E-02  -2.104087E-08                  \r\n        200106      G     -1.484246E-01  -1.279305E-06  -1.532117E-01   2.896782E-07  -3.218580E-02  -2.104087E-08                  \r\n        200114      G     -3.706879E-01  -3.278265E-06  -1.595810E-01   1.975074E-07  -2.196303E-02  -2.104087E-08                  \r\n        200121      G     -4.779176E-01  -4.244007E-06  -1.648659E-01   7.567699E-08  -8.361754E-03  -2.104087E-08                  \r\n        200129      G     -4.818658E-01  -4.286429E-06  -1.706281E-01  -6.112806E-08   6.935453E-03  -2.104087E-08                  \r\n        200137      G     -3.758964E-01  -3.346121E-06  -1.763172E-01  -1.678719E-07   1.887787E-02  -2.104087E-08                  \r\n        200145      G     -1.916187E-01  -1.705973E-06  -1.819559E-01  -2.350554E-07   2.639577E-02  -2.104087E-08                  \r\n        200153      G      2.612408E-02   2.334521E-07  -1.873593E-01  -2.574280E-07   2.889914E-02  -2.104087E-08                  \r\n        200155      G      8.999769E-02   8.024258E-07  -1.873692E-01  -2.574660E-07   2.890343E-02  -2.104087E-08                  \r\n        211073      G      7.597543E-01   6.705940E-06   2.209134E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        211077      G      7.597538E-01   6.705940E-06   2.209063E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        214075      G      7.597540E-01   6.647447E-06   3.086111E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.195345E+06    (CYCLIC FREQUENCY =  7.034309E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.735424E-07  -2.492234E-02   1.040353E-08   7.926864E-04   4.673263E-10  -2.809567E-05                  \r\n         18983      G      3.478182E-04  -4.194702E-02   9.808113E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         18987      G     -3.475497E-04  -4.194702E-02  -9.810875E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         19765      G      1.281973E-07  -3.188520E-02  -1.384771E-06   0.0            0.0           -2.809567E-05                  \r\n         21183      G      3.478182E-04  -4.255894E-02   9.808103E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21187      G     -3.475497E-04  -4.255894E-02  -9.810885E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21485      G      0.0           -4.263705E-02  -1.392996E-06   7.926864E-04   0.0            0.0                           \r\n        189073      G      3.132847E-02   8.050826E-01   3.574528E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        189077      G     -3.133953E-02   8.050826E-01  -3.574487E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200070      G     -7.107416E-06   1.000000E+00  -3.894656E-08   2.922790E-02   2.091476E-07  -2.532040E-03                  \r\n        200078      G     -5.530359E-06   7.796103E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200079      G     -5.224450E-06   7.368605E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200086      G     -4.078107E-06   5.747414E-01  -2.600835E-08   2.488468E-02   1.774530E-07  -2.532040E-03                  \r\n        200087      G     -3.736249E-06   5.288893E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200095      G     -2.233911E-06   3.179230E-01  -2.667839E-08   3.396574E-02   2.441423E-07  -2.532040E-03                  \r\n        200096      G     -1.927672E-06   2.761463E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200101      G     -7.546790E-07   1.122244E-01  -2.916398E-08   3.771792E-02   2.719983E-07  -2.532040E-03                  \r\n        200106      G      7.018957E-07  -8.881804E-02  -3.050894E-08   3.720617E-02   2.708233E-07  -2.532040E-03                  \r\n        200114      G      2.657974E-06  -3.564891E-01  -3.227697E-08   2.766672E-02   2.023405E-07  -2.532040E-03                  \r\n        200121      G      3.692977E-06  -4.984264E-01  -3.374735E-08   1.235423E-02   8.966356E-08  -2.532040E-03                  \r\n        200129      G      3.869313E-06  -5.234711E-01  -3.535395E-08  -5.653708E-03  -4.245230E-08  -2.532040E-03                  \r\n        200137      G      3.084930E-06  -4.177485E-01  -3.694082E-08  -1.999360E-02  -1.478720E-07  -2.532040E-03                  \r\n        200145      G      1.605452E-06  -2.174560E-01  -3.851387E-08  -2.912757E-02  -2.150078E-07  -2.532040E-03                  \r\n        200153      G     -1.792351E-07   2.437993E-02  -4.002149E-08  -3.219331E-02  -2.375506E-07  -2.532040E-03                  \r\n        200155      G     -7.042873E-07   9.553611E-02  -4.002423E-08  -3.219925E-02  -2.375939E-07  -2.532040E-03                  \r\n        211073      G      3.132847E-02   7.499348E-01   3.574483E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        211077      G     -3.133953E-02   7.499348E-01  -3.574532E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        214075      G     -5.530359E-06   7.428957E-01  -3.026236E-06   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.507298E+06    (CYCLIC FREQUENCY =  1.133579E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         13\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.887539E-03   2.892167E-09   1.738968E-02  -4.705357E-08  -1.153718E-05   4.543725E-10                  \r\n         18983      G      1.639022E-03   1.015621E-06   1.736866E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         18987      G      1.639034E-03   1.015621E-06   1.736983E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         19765      G      1.788319E-03   4.099097E-07   1.744954E-02   0.0            0.0            4.543725E-10                  \r\n         21183      G      1.639022E-03   1.025517E-06   1.761994E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21187      G      1.639034E-03   1.025517E-06   1.762110E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21485      G      0.0            1.026780E-06   1.765260E-02  -4.705357E-08   0.0            0.0                           \r\n        189073      G      2.123807E-01   6.965446E-07  -3.447998E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        189077      G      2.123807E-01   6.965446E-07  -3.448022E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200070      G      4.515394E-01   1.468021E-06  -3.320159E-02   1.010185E-07  -3.189244E-02   1.397608E-09                  \r\n        200078      G      2.123807E-01   7.106045E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200079      G      1.665095E-01   5.653746E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200086      G     -3.094360E-01  -9.272165E-07  -3.318080E-02   1.769921E-07  -5.633516E-02   1.397608E-09                  \r\n        200087      G     -5.664707E-02  -1.411475E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200095      G     -5.984007E-01  -1.842108E-06  -3.316951E-02   1.494952E-08  -4.210300E-03   1.397608E-09                  \r\n        200096      G     -3.278444E-01  -9.997685E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200101      G     -5.037354E-01  -1.556646E-06  -3.300159E-02  -1.115457E-07   3.620632E-02   1.397608E-09                  \r\n        200106      G     -2.300736E-01  -7.081690E-07  -4.087389E-02  -2.012172E-07   6.472401E-02   1.397608E-09                  \r\n        200114      G      3.568954E-01   1.119059E-06  -5.249882E-02  -2.287449E-07   7.342049E-02   1.397608E-09                  \r\n        200121      G      7.924918E-01   2.476549E-06  -6.234895E-02  -1.474822E-07   4.732299E-02   1.397608E-09                  \r\n        200129      G      1.000000E+00   3.122780E-06  -7.325004E-02  -1.374018E-08   4.446925E-03   1.397608E-09                  \r\n        200137      G      8.753517E-01   2.732892E-06  -8.404481E-02   1.063144E-07  -3.403820E-02   1.397608E-09                  \r\n        200145      G      4.879429E-01   1.523273E-06  -9.475782E-02   1.882977E-07  -6.031556E-02   1.397608E-09                  \r\n        200153      G     -2.749754E-02  -8.579283E-08  -1.050329E-01   2.170430E-07  -6.952798E-02   1.397608E-09                  \r\n        200155      G     -1.811982E-01  -5.655943E-07  -1.050516E-01   2.171346E-07  -6.955738E-02   1.397608E-09                  \r\n        211073      G      2.123807E-01   7.269845E-07   3.302492E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        211077      G      2.123807E-01   7.269845E-07   3.302467E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        214075      G      2.123807E-01   7.308699E-07   4.164112E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.544614E+06    (CYCLIC FREQUENCY =  1.174531E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         14\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      8.975282E-09  -4.525877E-03  -9.227976E-09   1.334588E-04   2.870489E-11  -5.102084E-06                  \r\n         18983      G      6.313893E-05  -7.391538E-03   1.651309E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         18987      G     -6.313766E-05  -7.391538E-03  -1.651796E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         19765      G      2.577811E-10  -5.700092E-03  -2.438640E-07   0.0            0.0           -5.102084E-06                  \r\n         21183      G      6.313893E-05  -7.502662E-03   1.651308E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21187      G     -6.313766E-05  -7.502662E-03  -1.651797E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21485      G      0.0           -7.516846E-03  -2.443692E-07   1.334588E-04   0.0            0.0                           \r\n        189073      G      1.574958E-02   4.214365E-01   4.902321E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        189077      G     -1.575175E-02   4.214365E-01  -4.902298E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200070      G     -1.939716E-06   7.148132E-01   1.192869E-08   4.086260E-02   1.142169E-07  -1.272781E-03                  \r\n        200078      G     -1.083880E-06   4.086324E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200079      G     -9.199912E-07   3.500026E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200086      G      6.151079E-07  -1.919622E-01   1.734225E-08   6.574191E-02   1.859290E-07  -1.272781E-03                  \r\n        200087      G     -1.226982E-07   6.477744E-02   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200095      G      1.650014E-06  -5.613870E-01   1.698107E-08   1.255035E-02   3.269479E-08  -1.272781E-03                  \r\n        200096      G      8.462347E-07  -2.818505E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200101      G      1.474657E-06  -5.066636E-01   1.586029E-08  -3.079928E-02  -9.095775E-08  -1.272781E-03                  \r\n        200106      G      7.376322E-07  -2.527241E-01   2.057635E-08  -6.258737E-02  -1.802748E-07  -1.272781E-03                  \r\n        200114      G     -9.382632E-07   3.314245E-01   2.763127E-08  -7.448651E-02  -2.134033E-07  -1.272781E-03                  \r\n        200121      G     -2.219921E-06   7.786500E-01   3.362275E-08  -4.925349E-02  -1.411821E-07  -1.272781E-03                  \r\n        200129      G     -2.854900E-06   1.000000E+00   4.026377E-08  -5.841684E-03  -1.691221E-08  -1.272781E-03                  \r\n        200137      G     -2.520768E-06   8.825837E-01   4.684204E-08   3.364510E-02   9.601315E-08  -1.272781E-03                  \r\n        200145      G     -1.412675E-06   4.945413E-01   5.337138E-08   6.080829E-02   1.736938E-07  -1.272781E-03                  \r\n        200153      G      7.584792E-08  -2.652459E-02   5.963437E-08   7.037315E-02   2.010428E-07  -1.272781E-03                  \r\n        200155      G      5.202876E-07  -1.820965E-01   5.964575E-08   7.040489E-02   2.011336E-07  -1.272781E-03                  \r\n        211073      G      1.574958E-02   3.937154E-01   4.902296E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        211077      G     -1.575175E-02   3.937154E-01  -4.902322E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        214075      G     -1.083880E-06   3.901770E-01  -1.589800E-06   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)                                                                   \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.106964E+07    (CYCLIC FREQUENCY =  1.646038E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         15\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.859502E-02  -2.245320E-08  -6.147731E-02   1.665499E-07   1.622162E-05  -4.466250E-09                  \r\n         18983      G     -1.824555E-02  -3.602023E-06  -6.144651E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         18987      G     -1.824567E-02  -3.602023E-06  -6.145063E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         19765      G     -1.845552E-02  -1.477952E-06  -6.156147E-02   0.0            0.0           -4.466250E-09                  \r\n         21183      G     -1.824555E-02  -3.699298E-06  -6.179982E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21187      G     -1.824567E-02  -3.699298E-06  -6.180394E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21485      G      0.0           -3.711714E-06  -6.184697E-02   1.665499E-07   0.0            0.0                           \r\n        189073      G      6.896894E-01   1.052667E-06  -6.267808E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        189077      G      6.896890E-01   1.052667E-06  -6.267820E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200070      G      1.000000E+00   1.244522E-06  -2.341845E-01   5.056185E-08  -4.182766E-02  -1.822620E-08                  \r\n        200078      G      6.896892E-01   8.693111E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200079      G      6.314937E-01   7.989032E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200086      G      2.804552E-01   3.935889E-07  -2.338731E-01   5.727357E-08  -4.862713E-02  -1.822620E-08                  \r\n        200087      G      3.483810E-01   4.563789E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200095      G     -9.791286E-02  -6.779847E-08  -2.337049E-01   4.185654E-08  -3.270569E-02  -1.822620E-08                  \r\n        200096      G      4.320337E-03   4.011659E-08  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200101      G     -2.188277E-01  -2.298594E-07  -2.312101E-01   1.311544E-08  -8.682907E-03  -1.822620E-08                  \r\n        200106      G     -2.000576E-01  -2.186519E-07  -1.497742E-01  -1.604596E-08   1.494644E-02  -1.822620E-08                  \r\n        200114      G      1.182839E-02   2.032457E-08  -2.586863E-02  -3.850097E-08   3.358650E-02  -1.822620E-08                  \r\n        200121      G      2.410693E-01   2.844891E-07   8.288299E-02  -3.320865E-08   2.874365E-02  -1.822620E-08                  \r\n        200129      G      3.978926E-01   4.654701E-07   2.061722E-01  -1.093071E-08   9.518354E-03  -1.822620E-08                  \r\n        200137      G      3.891389E-01   4.543243E-07   3.288303E-01   1.324328E-08  -1.129094E-02  -1.822620E-08                  \r\n        200145      G      2.309646E-01   2.694710E-07   4.508141E-01   3.145723E-08  -2.695258E-02  -1.822620E-08                  \r\n        200153      G     -7.949214E-03  -9.245327E-09   5.679691E-01   3.820413E-08  -3.275419E-02  -1.822620E-08                  \r\n        200155      G     -8.037701E-02  -9.372467E-08   5.681821E-01   3.823668E-08  -3.278189E-02  -1.822620E-08                  \r\n        211073      G      6.896894E-01   6.557001E-07   2.296353E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        211077      G      6.896890E-01   6.557001E-07   2.296341E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        214075      G      6.896892E-01   6.050312E-07   3.389476E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE               \r\n DATE:  5/17/95\r\n END TIME: 15:45:26\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d03083a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D03083A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   3,0                                                                       \r\n     TIME  14                                                                        \r\n     DIAG  21,22                                                                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)         \r\n                  3      LABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\n                  4      METHOD = 1000                                                                   \r\n                  5      OUTPUT                                                                          \r\n                  6      ECHO   = BOTH                                                                   \r\n                  7      VECTOR = ALL                                                                    \r\n                  8      MPCFORCE = ALL                                                                  \r\n                  9      BEGIN BULK                                                                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B               \r\n                              CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1               \r\n                              +MRBRG1 56                                                                                    \r\n                              CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST              \r\n                              CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST              \r\n                              CELAS2  189831  28125.  189073  1       18983   1                       FWD R X               \r\n                              CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y               \r\n                              CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z               \r\n                              CELAS2  189871  28125.  189077  1       18987   1                       FWD L X               \r\n                              CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y               \r\n                              CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z               \r\n                              CELAS2  211831  28125.  211073  1       21183   1                       AFT R X               \r\n                              CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y               \r\n                              CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z               \r\n                              CELAS2  211871  28125.  211077  1       21187   1                       AFT L X               \r\n                              CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y               \r\n                              CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z               \r\n                              CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z               \r\n                              CONM2   209     209     0       7297.399                                 BASICWT              \r\n                              +BASICWT4.7561+6        5.3412+7                5.3697+7                                      \r\n                              CONM2   109765  19765           12.896                                                        \r\n                              CONM2   290070  200070          34.465                                                        \r\n                              CONM2   290078  200078          22.740                                                        \r\n                              CONM2   290079  200079          51.048                                                        \r\n                              CONM2   290086  200086          60.052                                                        \r\n                              CONM2   290087  200087          60.052                                                        \r\n                              CONM2   290095  200095          64.933                                                        \r\n                              CONM2   290096  200096          64.933                                                        \r\n                              CONM2   290101  200101          57.277                                                        \r\n                              CONM2   290106  200106          47.013                                                        \r\n                              CONM2   290114  200114          66.626                                                        \r\n                              CONM2   290121  200121          54.350                                                        \r\n                              CONM2   290129  200129          13.810                                                        \r\n                              CONM2   290137  200137          9.253                                                         \r\n                              CONM2   290145  200145          12.065                                                        \r\n                              CONM2   290153  200153          5.852                                                         \r\n                              CONM2   290155  200155          6.124                                                         \r\n                              CONM2   390153  200153          458.000                                 MR BLADE              \r\n                              CONM2   490153  200153          489.500                                 MR HUB                \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              CONM2   9200070 200070          26.100                                  BASIC                 \r\n                              CRIGD1  200078  200078  189073  189077  211073                                                \r\n                              CRIGD1  353252  200078  200079                                                                \r\n                              CRIGD1  353253  200079  200087                                                                \r\n                              CRIGD1  353254  200087  200096                                                                \r\n                              CRIGD2  2091    209     19765   1236                                                          \r\n                              CRIGD2  2092    209     18983   12356   18987   12356                                         \r\n                              CRIGD2  2093    209     21183   12356   21187   12356                                         \r\n                              CRIGD2  2094    209     21485   234                                                           \r\n                              CRIGD2  353255  200096  200101  123                                                           \r\n                              CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31                \r\n                              +CRG31          211073  3                                               +CRG32                \r\n                              +CRG32  MSET    211077  123456  214075  123456                                                \r\n                              CRIGDR  357000  19765   200078  3                                                             \r\n                              EIGR    1000    GIV                             15                      +EIGR                 \r\n                              +EIGR   MAX                                                                                   \r\n                              GRID    209     0       191.7117.001757 56.030010                                             \r\n                              GRID    18983   0       189.94  12.375  77.57   0       4                                     \r\n                              GRID    18987   0       189.94  -12.375 77.57   0       4                                     \r\n                              GRID    19765   0       196.90  .0      64.63   0       45                                    \r\n                              GRID    21183   0       211.72  12.375  77.57   0       4                                     \r\n                              GRID    21187   0       211.72  -12.375 77.57   0       4                                     \r\n                              GRID    21485   0       214.50  .0      77.57   0       156                                   \r\n                              GRID    189073  0       189.94  12.375  77.57   0       0                                     \r\n                              GRID    189077  0       189.94  -12.375 77.57   0       0                                     \r\n                              GRID    200070  0       200.00  .0      70.00   0       0                                     \r\n                              GRID    200078  0       200.00  .0      77.57   0       0                                     \r\n                              GRID    200079  0       200.00  .0      79.05   0       0                                     \r\n                              GRID    200086  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200087  0       200.00  .0      86.25   0       0                                     \r\n                              GRID    200095  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200096  0       200.00  .0      95.00   0       0                                     \r\n                              GRID    200101  0       200.00  .0      100.675 0       0                                     \r\n                              GRID    200106  0       200.00  .0      106.00  0       0                                     \r\n                              GRID    200114  0       200.00  .0      114.00  0       0                                     \r\n                              GRID    200121  0       200.00  .0      121.00  0       0                                     \r\n                              GRID    200129  0       200.00  .0      129.00  0       0                                     \r\n                              GRID    200137  0       200.00  .0      137.00  0       0                                     \r\n                              GRID    200145  0       200.00  .0      145.00  0       0                                     \r\n                              GRID    200153  0       200.00  .0      152.76  0       0                                     \r\n                              GRID    200155  0       200.00  .0      154.97  0       0                                     \r\n                              GRID    211073  0       211.72  12.375  77.57   0       0                                     \r\n                              GRID    211077  0       211.72  -12.375 77.57   0       0                                     \r\n                              GRID    214075  0       214.50  .0      77.57   0       0                                     \r\n                              MAT1    1       1.0+6   1.0+6                                                                 \r\n                              MAT1    10      1.0     1.0                                                                   \r\n                              MAT1    57      3.2+6   .8+6    .32                                                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              MAT1    76      3.2+6   .8+6    .32                                                           \r\n                              MAT1    2014    10.5+6  4.0+6                                                                 \r\n                              MAT1    2024    10.5+6  4.0+6                                                                 \r\n                              MAT1    4130    29.0+6  11.0+6                                                                \r\n                              MAT1    4340    29.0+6  11.0+6                                                                \r\n                              MAT1    4620    29.0+6  11.0+6                                                                \r\n                              MAT1    7075    10.3+6  3.9+6                                                                 \r\n                              MAT1    9046    17.5+6  6.5+6                                                                 \r\n                              OMIT    200070  456                                                                           \r\n                              OMIT    200078  456                                                                           \r\n                              OMIT    200086  456                                                                           \r\n                              OMIT    200095  456                                                                           \r\n                              OMIT    200101  456                                                                           \r\n                              OMIT    200106  456                                                                           \r\n                              OMIT    200114  456                                                                           \r\n                              OMIT    200121  456                                                                           \r\n                              OMIT    200129  456                                                                           \r\n                              OMIT    200137  456                                                                           \r\n                              OMIT    200145  456                                                                           \r\n                              OMIT    200153  456                                                                           \r\n                              OMIT    200155  456                                                                           \r\n                              PARAM   GRDEQ   0                                                                             \r\n                              PARAM   GRDPNT  0                                                                             \r\n                              PARAM   OPT     -1                                                                            \r\n                              PARAM   WTMASS  .00259                                                                        \r\n                              PBAR    353025  1       100.    1950.   1950.   1480.                                         \r\n                              PBAR    450007  1       100.    120.07  120.07  91.088                                        \r\n                              SUPORT  209     123456                                                                        \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=    122\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\n                    2-        CBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n                    3-        +MRBRG1 56                                                                      \r\n                    4-        CBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\n                    5-        CBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\n                    6-        CBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\n                    7-        CBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\n                    8-        CBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\n                    9-        CBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\n                   10-        CBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\n                   11-        CBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\n                   12-        CBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\n                   13-        CBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\n                   14-        CELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\n                   15-        CELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\n                   16-        CELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\n                   17-        CELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\n                   18-        CELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\n                   19-        CELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\n                   20-        CELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\n                   21-        CELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\n                   22-        CELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\n                   23-        CELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\n                   24-        CELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\n                   25-        CELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\n                   26-        CELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\n                   27-        CONM2   209     209     0       7297.399                                 BASICWT\r\n                   28-        +BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\n                   29-        CONM2   109765  19765           12.896                                          \r\n                   30-        CONM2   290070  200070          34.465                                          \r\n                   31-        CONM2   290078  200078          22.740                                          \r\n                   32-        CONM2   290079  200079          51.048                                          \r\n                   33-        CONM2   290086  200086          60.052                                          \r\n                   34-        CONM2   290087  200087          60.052                                          \r\n                   35-        CONM2   290095  200095          64.933                                          \r\n                   36-        CONM2   290096  200096          64.933                                          \r\n                   37-        CONM2   290101  200101          57.277                                          \r\n                   38-        CONM2   290106  200106          47.013                                          \r\n                   39-        CONM2   290114  200114          66.626                                          \r\n                   40-        CONM2   290121  200121          54.350                                          \r\n                   41-        CONM2   290129  200129          13.810                                          \r\n                   42-        CONM2   290137  200137          9.253                                           \r\n                   43-        CONM2   290145  200145          12.065                                          \r\n                   44-        CONM2   290153  200153          5.852                                           \r\n                   45-        CONM2   290155  200155          6.124                                           \r\n                   46-        CONM2   390153  200153          458.000                                 MR BLADE\r\n                   47-        CONM2   490153  200153          489.500                                 MR HUB  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CONM2   9200070 200070          26.100                                  BASIC   \r\n                   49-        CRIGD1  200078  200078  189073  189077  211073                                  \r\n                   50-        CRIGD1  353252  200078  200079                                                  \r\n                   51-        CRIGD1  353253  200079  200087                                                  \r\n                   52-        CRIGD1  353254  200087  200096                                                  \r\n                   53-        CRIGD2  2091    209     19765   1236                                            \r\n                   54-        CRIGD2  2092    209     18983   12356   18987   12356                           \r\n                   55-        CRIGD2  2093    209     21183   12356   21187   12356                           \r\n                   56-        CRIGD2  2094    209     21485   234                                             \r\n                   57-        CRIGD2  353255  200096  200101  123                                             \r\n                   58-        CRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n                   59-        +CRG31          211073  3                                               +CRG32  \r\n                   60-        +CRG32  MSET    211077  123456  214075  123456                                  \r\n                   61-        CRIGDR  357000  19765   200078  3                                               \r\n                   62-        EIGR    1000    GIV                             15                      +EIGR   \r\n                   63-        +EIGR   MAX                                                                     \r\n                   64-        GRID    209     0       191.7117.001757 56.030010                               \r\n                   65-        GRID    18983   0       189.94  12.375  77.57   0       4                       \r\n                   66-        GRID    18987   0       189.94  -12.375 77.57   0       4                       \r\n                   67-        GRID    19765   0       196.90  .0      64.63   0       45                      \r\n                   68-        GRID    21183   0       211.72  12.375  77.57   0       4                       \r\n                   69-        GRID    21187   0       211.72  -12.375 77.57   0       4                       \r\n                   70-        GRID    21485   0       214.50  .0      77.57   0       156                     \r\n                   71-        GRID    189073  0       189.94  12.375  77.57   0       0                       \r\n                   72-        GRID    189077  0       189.94  -12.375 77.57   0       0                       \r\n                   73-        GRID    200070  0       200.00  .0      70.00   0       0                       \r\n                   74-        GRID    200078  0       200.00  .0      77.57   0       0                       \r\n                   75-        GRID    200079  0       200.00  .0      79.05   0       0                       \r\n                   76-        GRID    200086  0       200.00  .0      86.25   0       0                       \r\n                   77-        GRID    200087  0       200.00  .0      86.25   0       0                       \r\n                   78-        GRID    200095  0       200.00  .0      95.00   0       0                       \r\n                   79-        GRID    200096  0       200.00  .0      95.00   0       0                       \r\n                   80-        GRID    200101  0       200.00  .0      100.675 0       0                       \r\n                   81-        GRID    200106  0       200.00  .0      106.00  0       0                       \r\n                   82-        GRID    200114  0       200.00  .0      114.00  0       0                       \r\n                   83-        GRID    200121  0       200.00  .0      121.00  0       0                       \r\n                   84-        GRID    200129  0       200.00  .0      129.00  0       0                       \r\n                   85-        GRID    200137  0       200.00  .0      137.00  0       0                       \r\n                   86-        GRID    200145  0       200.00  .0      145.00  0       0                       \r\n                   87-        GRID    200153  0       200.00  .0      152.76  0       0                       \r\n                   88-        GRID    200155  0       200.00  .0      154.97  0       0                       \r\n                   89-        GRID    211073  0       211.72  12.375  77.57   0       0                       \r\n                   90-        GRID    211077  0       211.72  -12.375 77.57   0       0                       \r\n                   91-        GRID    214075  0       214.50  .0      77.57   0       0                       \r\n                   92-        MAT1    1       1.0+6   1.0+6                                                   \r\n                   93-        MAT1    10      1.0     1.0                                                     \r\n                   94-        MAT1    57      3.2+6   .8+6    .32                                             \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        MAT1    76      3.2+6   .8+6    .32                                             \r\n                   96-        MAT1    2014    10.5+6  4.0+6                                                   \r\n                   97-        MAT1    2024    10.5+6  4.0+6                                                   \r\n                   98-        MAT1    4130    29.0+6  11.0+6                                                  \r\n                   99-        MAT1    4340    29.0+6  11.0+6                                                  \r\n                  100-        MAT1    4620    29.0+6  11.0+6                                                  \r\n                  101-        MAT1    7075    10.3+6  3.9+6                                                   \r\n                  102-        MAT1    9046    17.5+6  6.5+6                                                   \r\n                  103-        OMIT    200070  456                                                             \r\n                  104-        OMIT    200078  456                                                             \r\n                  105-        OMIT    200086  456                                                             \r\n                  106-        OMIT    200095  456                                                             \r\n                  107-        OMIT    200101  456                                                             \r\n                  108-        OMIT    200106  456                                                             \r\n                  109-        OMIT    200114  456                                                             \r\n                  110-        OMIT    200121  456                                                             \r\n                  111-        OMIT    200129  456                                                             \r\n                  112-        OMIT    200137  456                                                             \r\n                  113-        OMIT    200145  456                                                             \r\n                  114-        OMIT    200153  456                                                             \r\n                  115-        OMIT    200155  456                                                             \r\n                  116-        PARAM   GRDEQ   0                                                               \r\n                  117-        PARAM   GRDPNT  0                                                               \r\n                  118-        PARAM   OPT     -1                                                              \r\n                  119-        PARAM   WTMASS  .00259                                                          \r\n                  120-        PBAR    353025  1       100.    1950.   1950.   1480.                           \r\n                  121-        PBAR    450007  1       100.    120.07  120.07  91.088                          \r\n                  122-        SUPORT  209     123456                                                          \r\n                              ENDDATA\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           22\r\n                                        PROFILE            117\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.179\r\n                                        RMS WAVEFRONT    4.379\r\n                                        RMS BANDWIDTH    7.604\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE             45\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.607\r\n                                        RMS WAVEFRONT    1.680\r\n                                        RMS BANDWIDTH    1.680\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       22         2\r\n                                        PROFILE (P)                        117        45\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.179     1.607\r\n                                        RMS WAVEFRONT (C-RMS)            4.379     1.680\r\n                                        RMS BANDWITCH (B-RMS)            7.604     1.680\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                46\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                          11\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           0\r\n                                        NUMBER OF UNIQUE EDGES                        17\r\n                                        MATRIX DENSITY, PERCENT                    7.908\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                4\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   7\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP        209      28   18983       2   18987       4   19765      27\r\n                         SEQGP      21183       6   21187       8   21485      10  189073       1\r\n                         SEQGP     189077       3  200070      11  200078      12  200079      13\r\n                         SEQGP     200086      14  200087      26  200095      15  200096      25\r\n                         SEQGP     200101      16  200106      17  200114      18  200121      19\r\n                         SEQGP     200129      20  200137      21  200145      22  200153      23\r\n                         SEQGP     200155      24  211073       5  211077       7  214075       9\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID  3530251\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID   189831\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID      209\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  8.91448792D+03  0.00000000D+00  0.00000000D+00  0.00000000D+00  6.18744993D+05 -1.28215298D+01 *\r\n                *  0.00000000D+00  8.91448792D+03  0.00000000D+00 -6.18744993D+05  0.00000000D+00  1.72237458D+06 *\r\n                *  0.00000000D+00  0.00000000D+00  8.91448792D+03  1.28215298D+01 -1.72237458D+06  0.00000000D+00 *\r\n                *  0.00000000D+00 -6.18744993D+05  1.28215298D+01  5.63588906D+07 -2.45803729D+03 -1.20357550D+08 *\r\n                *  6.18744993D+05  0.00000000D+00 -1.72237458D+06 -2.45803729D+03  4.37886530D+08 -7.18390448D+02 *\r\n                * -1.28215298D+01  1.72237458D+06  0.00000000D+00 -1.20357550D+08 -7.18390448D+02  3.86568740D+08 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            8.914487919D+03      0.000000000D+00  1.438280018D-03  6.940892162D+01\r\n                            Y            8.914487919D+03      1.932107142D+02  0.000000000D+00  6.940892162D+01\r\n                            Z            8.914487919D+03      1.932107142D+02  1.438280018D-03  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  1.341246786D+07 -1.921965004D+01  8.093881273D+05  *\r\n                                      * -1.921965004D+01  6.215888526D+07 -1.715381118D+02  *\r\n                                      *  8.093881273D+05 -1.715381118D+02  5.378751741D+07  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  1.339624878D+07                                    *\r\n                                      *                   6.215888526D+07                   *\r\n                                      *                                    5.380373649D+07  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  9.997992859D-01  0.000000000D+00  2.003466836D-02  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      * -2.003466836D-02  0.000000000D+00  9.997992859D-01  *\r\n                                      ***                                                 ***\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4\r\n\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP SETS FOLLOWS.\r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                  1     189073 - 1                                                        1                           1\r\n                  2     189073 - 2                                                        2                           2\r\n                  3     189073 - 3                                                        3                           3\r\n                  4     189073 - 4                                                        4                           4\r\n                  5     189073 - 5                                                        5                           5\r\n                  6     189073 - 6                                                        6                           6\r\n                  7      18983 - 1                                                        7                           7\r\n                  8      18983 - 2                                                        8                           8\r\n                  9      18983 - 3                                                        9                           9\r\n                 10      18983 - 4                     1                           1     10                    1       \r\n                 11      18983 - 5                                                       11                          10\r\n                 12      18983 - 6                                                       12                          11\r\n                 13     189077 - 1                                                       13                          12\r\n                 14     189077 - 2                                                       14                          13\r\n                 15     189077 - 3                                                       15                          14\r\n                 16     189077 - 4                                                       16                          15\r\n                 17     189077 - 5                                                       17                          16\r\n                 18     189077 - 6                                                       18                          17\r\n                 19      18987 - 1                                                       19                          18\r\n                 20      18987 - 2                                                       20                          19\r\n                 21      18987 - 3                                                       21                          20\r\n                 22      18987 - 4                     2                           2     22                    2       \r\n                 23      18987 - 5                                                       23                          21\r\n                 24      18987 - 6                                                       24                          22\r\n                 25     211073 - 1                                                       25                          23\r\n                 26     211073 - 2                                                       26                          24\r\n                 27     211073 - 3                                                       27                          25\r\n                 28     211073 - 4                                                       28                          26\r\n                 29     211073 - 5                                                       29                          27\r\n                 30     211073 - 6                                                       30                          28\r\n                 31      21183 - 1                                                       31                          29\r\n                 32      21183 - 2                                                       32                          30\r\n                 33      21183 - 3                                                       33                          31\r\n                 34      21183 - 4                     3                           3     34                    3       \r\n                 35      21183 - 5                                                       35                          32\r\n                 36      21183 - 6                                                       36                          33\r\n                 37     211077 - 1                                                       37                          34\r\n                 38     211077 - 2                                                       38                          35\r\n                 39     211077 - 3                                                       39                          36\r\n                 40     211077 - 4                                                       40                          37\r\n                 41     211077 - 5                                                       41                          38\r\n                 42     211077 - 6                                                       42                          39\r\n                 43      21187 - 1                                                       43                          40\r\n                 44      21187 - 2                                                       44                          41\r\n                 45      21187 - 3                                                       45                          42\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 46      21187 - 4                     4                           4     46                    4       \r\n                 47      21187 - 5                                                       47                          43\r\n                 48      21187 - 6                                                       48                          44\r\n                 49     214075 - 1                                                       49                          45\r\n                 50     214075 - 2                                                       50                          46\r\n                 51     214075 - 3                                                       51                          47\r\n                 52     214075 - 4                                                       52                          48\r\n                 53     214075 - 5                                                       53                          49\r\n                 54     214075 - 6                                                       54                          50\r\n                 55      21485 - 1                     5                           5     55                    5       \r\n                 56      21485 - 2                                                       56                          51\r\n                 57      21485 - 3                                                       57                          52\r\n                 58      21485 - 4                                                       58                          53\r\n                 59      21485 - 5                     6                           6     59                    6       \r\n                 60      21485 - 6                     7                           7     60                    7       \r\n                 61     200070 - 1                            1      1      1      8     61                            \r\n                 62     200070 - 2                            2      2      2      9     62                            \r\n                 63     200070 - 3                            3      3      3     10     63                            \r\n                 64     200070 - 4                                          4     11     64             1              \r\n                 65     200070 - 5                                          5     12     65             2              \r\n                 66     200070 - 6                                          6     13     66             3              \r\n                 67     200078 - 1                            4      4      7     14     67                            \r\n                 68     200078 - 2                            5      5      8     15     68                            \r\n                 69     200078 - 3                                                       69                          54\r\n                 70     200078 - 4                                          9     16     70             4              \r\n                 71     200078 - 5                                         10     17     71             5              \r\n                 72     200078 - 6                                         11     18     72             6              \r\n                 73     200079 - 1                                                       73                          55\r\n                 74     200079 - 2                                                       74                          56\r\n                 75     200079 - 3                                                       75                          57\r\n                 76     200079 - 4                                                       76                          58\r\n                 77     200079 - 5                                                       77                          59\r\n                 78     200079 - 6                                                       78                          60\r\n                 79     200086 - 1                            6      6     12     19     79                            \r\n                 80     200086 - 2                            7      7     13     20     80                            \r\n                 81     200086 - 3                            8      8     14     21     81                            \r\n                 82     200086 - 4                                         15     22     82             7              \r\n                 83     200086 - 5                                         16     23     83             8              \r\n                 84     200086 - 6                                         17     24     84             9              \r\n                 85     200095 - 1                            9      9     18     25     85                            \r\n                 86     200095 - 2                           10     10     19     26     86                            \r\n                 87     200095 - 3                           11     11     20     27     87                            \r\n                 88     200095 - 4                                         21     28     88            10              \r\n                 89     200095 - 5                                         22     29     89            11              \r\n                 90     200095 - 6                                         23     30     90            12              \r\n                 91     200101 - 1                                                       91                          61\r\n                 92     200101 - 2                                                       92                          62\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                 93     200101 - 3                                                       93                          63\r\n                 94     200101 - 4                                         24     31     94            13              \r\n                 95     200101 - 5                                         25     32     95            14              \r\n                 96     200101 - 6                                         26     33     96            15              \r\n                 97     200106 - 1                           12     12     27     34     97                            \r\n                 98     200106 - 2                           13     13     28     35     98                            \r\n                 99     200106 - 3                           14     14     29     36     99                            \r\n                100     200106 - 4                                         30     37    100            16              \r\n                101     200106 - 5                                         31     38    101            17              \r\n                102     200106 - 6                                         32     39    102            18              \r\n                103     200114 - 1                           15     15     33     40    103                            \r\n                104     200114 - 2                           16     16     34     41    104                            \r\n                105     200114 - 3                           17     17     35     42    105                            \r\n                106     200114 - 4                                         36     43    106            19              \r\n                107     200114 - 5                                         37     44    107            20              \r\n                108     200114 - 6                                         38     45    108            21              \r\n                109     200121 - 1                           18     18     39     46    109                            \r\n                110     200121 - 2                           19     19     40     47    110                            \r\n                111     200121 - 3                           20     20     41     48    111                            \r\n                112     200121 - 4                                         42     49    112            22              \r\n                113     200121 - 5                                         43     50    113            23              \r\n                114     200121 - 6                                         44     51    114            24              \r\n                115     200129 - 1                           21     21     45     52    115                            \r\n                116     200129 - 2                           22     22     46     53    116                            \r\n                117     200129 - 3                           23     23     47     54    117                            \r\n                118     200129 - 4                                         48     55    118            25              \r\n                119     200129 - 5                                         49     56    119            26              \r\n                120     200129 - 6                                         50     57    120            27              \r\n                121     200137 - 1                           24     24     51     58    121                            \r\n                122     200137 - 2                           25     25     52     59    122                            \r\n                123     200137 - 3                           26     26     53     60    123                            \r\n                124     200137 - 4                                         54     61    124            28              \r\n                125     200137 - 5                                         55     62    125            29              \r\n                126     200137 - 6                                         56     63    126            30              \r\n                127     200145 - 1                           27     27     57     64    127                            \r\n                128     200145 - 2                           28     28     58     65    128                            \r\n                129     200145 - 3                           29     29     59     66    129                            \r\n                130     200145 - 4                                         60     67    130            31              \r\n                131     200145 - 5                                         61     68    131            32              \r\n                132     200145 - 6                                         62     69    132            33              \r\n                133     200153 - 1                           30     30     63     70    133                            \r\n                134     200153 - 2                           31     31     64     71    134                            \r\n                135     200153 - 3                           32     32     65     72    135                            \r\n                136     200153 - 4                                         66     73    136            34              \r\n                137     200153 - 5                                         67     74    137            35              \r\n                138     200153 - 6                                         68     75    138            36              \r\n                139     200155 - 1                           33     33     69     76    139                            \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0              (SIL)\r\n              INT DOF   EXT GP. DOF  SAUTO     SB     SG      L      A      F      N      G      R      O      S      M\r\n -----------------------------------------------------------------------------------------------------------------------------------\r\n                140     200155 - 2                           34     34     70     77    140                            \r\n                141     200155 - 3                           35     35     71     78    141                            \r\n                142     200155 - 4                                         72     79    142            37              \r\n                143     200155 - 5                                         73     80    143            38              \r\n                144     200155 - 6                                         74     81    144            39              \r\n                145     200096 - 1                                                      145                          64\r\n                146     200096 - 2                                                      146                          65\r\n                147     200096 - 3                                                      147                          66\r\n                148     200096 - 4                                                      148                          67\r\n                149     200096 - 5                                                      149                          68\r\n                150     200096 - 6                                                      150                          69\r\n                151     200087 - 1                                                      151                          70\r\n                152     200087 - 2                                                      152                          71\r\n                153     200087 - 3                                                      153                          72\r\n                154     200087 - 4                                                      154                          73\r\n                155     200087 - 5                                                      155                          74\r\n                156     200087 - 6                                                      156                          75\r\n                157      19765 - 1                                                      157                          76\r\n                158      19765 - 2                                                      158                          77\r\n                159      19765 - 3                                                      159                          78\r\n                160      19765 - 4                     8                          82    160                    8       \r\n                161      19765 - 5                     9                          83    161                    9       \r\n                162      19765 - 6                                                      162                          79\r\n                163        209 - 1                                  36     75     84    163      1                     \r\n                164        209 - 2                                  37     76     85    164      2                     \r\n                165        209 - 3                                  38     77     86    165      3                     \r\n                166        209 - 4                                  39     78     87    166      4                     \r\n                167        209 - 5                                  40     79     88    167      5                     \r\n                168        209 - 6                                  41     80     89    168      6                     \r\n0--- C O L U M N   T O T A L S ---       0      0      9     35     41     80     89    168      6     39      9     79\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0*** USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS. DOF FOLLOWS\r\n0                                                         MPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   189073-1   189073-2   189073-3   189073-4   189073-5   189073-6    18983-1    18983-2    18983-3    18983-5\r\n     11=    18983-6   189077-1   189077-2   189077-3   189077-4   189077-5   189077-6    18987-1    18987-2    18987-3\r\n     21=    18987-5    18987-6   211073-1   211073-2   211073-3   211073-4   211073-5   211073-6    21183-1    21183-2\r\n     31=    21183-3    21183-5    21183-6   211077-1   211077-2   211077-3   211077-4   211077-5   211077-6    21187-1\r\n     41=    21187-2    21187-3    21187-5    21187-6   214075-1   214075-2   214075-3   214075-4   214075-5   214075-6\r\n     51=    21485-2    21485-3    21485-4   200078-3   200079-1   200079-2   200079-3   200079-4   200079-5   200079-6\r\n     61=   200101-1   200101-2   200101-3   200096-1   200096-2   200096-3   200096-4   200096-5   200096-6   200087-1\r\n     71=   200087-2   200087-3   200087-4   200087-5   200087-6    19765-1    19765-2    19765-3    19765-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                         SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                        OMIT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-4   200070-5   200070-6   200078-4   200078-5   200078-6   200086-4   200086-5   200086-6   200095-4\r\n     11=   200095-5   200095-6   200101-4   200101-5   200101-6   200106-4   200106-5   200106-6   200114-4   200114-5\r\n     21=   200114-6   200121-4   200121-5   200121-6   200129-4   200129-5   200129-6   200137-4   200137-5   200137-6\r\n     31=   200145-4   200145-5   200145-6   200153-4   200153-5   200153-6   200155-4   200155-5   200155-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    ANALYSIS DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=   200070-1   200070-2   200070-3   200078-1   200078-2   200086-1   200086-2   200086-3   200095-1   200095-2\r\n     11=   200095-3   200106-1   200106-2   200106-3   200114-1   200114-2   200114-3   200121-1   200121-2   200121-3\r\n     21=   200129-1   200129-2   200129-3   200137-1   200137-2   200137-3   200145-1   200145-2   200145-3   200153-1\r\n     31=   200153-2   200153-3   200155-1   200155-2   200155-3      209-1      209-2      209-3      209-4      209-5\r\n     41=      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                      SUPORT DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=      209-1      209-2      209-3      209-4      209-5      209-6\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                                                    PERM SPC DISPLACEMENT SET\r\n0               -1-        -2-        -3-        -4-        -5-        -6-        -7-        -8-        -9-       -10-\r\n \r\n      1=    18983-4    18987-4    21183-4    21187-4    21485-1    21485-5    21485-6    19765-4    19765-5\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        0   MPC        0\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n           209   G          3          1        2        3                                                                          \r\n           209   G          3          4        5        6                                                                          \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    7     BBAR =    3\r\n                                        C =    8     CBAR =    9\r\n                                        R =    9\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    79)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   3.5812325E-13\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      41, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        41\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        15\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        37        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        2        38        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        3        39        0.0                 0.0                 0.0                 2.308852E+01        0.0                      \r\n        4        40        0.0                 0.0                 0.0                 4.745215E+00        0.0                      \r\n        5        41        0.0                 0.0                 0.0                 2.199128E+01        0.0                      \r\n        6        36        0.0                 0.0                 0.0                 3.051504E+03        0.0                      \r\n        7        35        3.523143E+02        1.877004E+01        2.987344E+00        3.058785E+00        1.077654E+03             \r\n        8        34        4.491364E+02        2.119284E+01        3.372945E+00        6.502028E+00        2.920298E+03             \r\n        9        33        2.364993E+04        1.537853E+02        2.447569E+01        8.486223E-01        2.006985E+04             \r\n       10        32        2.840193E+04        1.685287E+02        2.682218E+01        8.414580E-01        2.389903E+04             \r\n       11        31        1.495553E+05        3.867238E+02        6.154901E+01        5.886284E-01        8.803251E+04             \r\n       12        30        1.953452E+05        4.419787E+02        7.034309E+01        4.855810E-01        9.485592E+04             \r\n       13        29        5.072981E+05        7.122486E+02        1.133579E+02        3.867738E-01        1.962096E+05             \r\n       14        28        5.446138E+05        7.379795E+02        1.174531E+02        3.940395E-01        2.145993E+05             \r\n       15        27        1.069645E+06        1.034236E+03        1.646038E+02        1.257546E+00        1.345127E+06             \r\n       16        26        3.326742E+06        1.823936E+03        2.902884E+02        0.0                 0.0                      \r\n       17        25        3.333666E+06        1.825833E+03        2.905904E+02        0.0                 0.0                      \r\n       18        24        8.023708E+06        2.832615E+03        4.508247E+02        0.0                 0.0                      \r\n       19        23        8.048828E+06        2.837046E+03        4.515298E+02        0.0                 0.0                      \r\n       20        22        1.904542E+07        4.364106E+03        6.945691E+02        0.0                 0.0                      \r\n       21        21        1.908568E+07        4.368716E+03        6.953028E+02        0.0                 0.0                      \r\n       22        20        2.978056E+07        5.457157E+03        8.685334E+02        0.0                 0.0                      \r\n       23        18        3.754954E+07        6.127768E+03        9.752645E+02        0.0                 0.0                      \r\n       24        19        3.754995E+07        6.127802E+03        9.752699E+02        0.0                 0.0                      \r\n       25        17        7.120777E+07        8.438470E+03        1.343024E+03        0.0                 0.0                      \r\n       26        16        7.133043E+07        8.445734E+03        1.344180E+03        0.0                 0.0                      \r\n       27        15        8.488149E+07        9.213115E+03        1.466313E+03        0.0                 0.0                      \r\n       28        14        9.721060E+07        9.859544E+03        1.569195E+03        0.0                 0.0                      \r\n       29        12        1.444611E+08        1.201920E+04        1.912915E+03        0.0                 0.0                      \r\n       30        13        1.452864E+08        1.205348E+04        1.918371E+03        0.0                 0.0                      \r\n       31        11        1.620432E+08        1.272962E+04        2.025981E+03        0.0                 0.0                      \r\n       32         9        2.362997E+08        1.537204E+04        2.446537E+03        0.0                 0.0                      \r\n       33        10        2.363582E+08        1.537395E+04        2.446839E+03        0.0                 0.0                      \r\n       34         8        2.386800E+08        1.544927E+04        2.458828E+03        0.0                 0.0                      \r\n       35         7        2.969673E+08        1.723274E+04        2.742675E+03        0.0                 0.0                      \r\n       36         6        3.486627E+08        1.867251E+04        2.971823E+03        0.0                 0.0                      \r\n       37         4        6.061834E+08        2.462079E+04        3.918521E+03        0.0                 0.0                      \r\n       38         5        6.061843E+08        2.462081E+04        3.918523E+03        0.0                 0.0                      \r\n       39         3        7.824220E+08        2.797181E+04        4.451851E+03        0.0                 0.0                      \r\n       40         2        1.548007E+09        3.934471E+04        6.261906E+03        0.0                 0.0                      \r\n       41         1        2.871167E+09        5.358327E+04        8.528042E+03        0.0                 0.0                      \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n0                    E Q U I L I B R I U M   C H E C K   L O A D S\r\n0                RESULTANT LOADS AT POINT      0 IN BASIC COORDINATE SYSTEM\r\n0                        SUBCASE       1,   MODE    1,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    2,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    3,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    4,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    5,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    6,   FREQUENCY   0.000000E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    7,   FREQUENCY   2.987344E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    8,   FREQUENCY   3.372945E+00\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE    9,   FREQUENCY   2.447569E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   10,   FREQUENCY   2.682218E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   11,   FREQUENCY   6.154901E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   12,   FREQUENCY   7.034309E+01\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   13,   FREQUENCY   1.133579E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   14,   FREQUENCY   1.174531E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0                        SUBCASE       1,   MODE   15,   FREQUENCY   1.646038E+02\r\n0     -TYPE-        T1             T2             T3             R1             R2             R3\r\n     SPCFORCE   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n\r\n      NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18983      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         18987      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         19765      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21183      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21187      G      1.000000E+00   0.0            0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n        189073      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        189077      G      1.000000E+00   0.0            1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        200070      G      1.000000E+00   0.0           -6.328272E-15   0.0           -1.330773E-17   0.0                           \r\n        200078      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200079      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200086      G      1.000000E+00   0.0           -6.341715E-15   0.0           -1.325098E-17   0.0                           \r\n        200087      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200095      G      1.000000E+00   0.0           -6.336078E-15   0.0            2.670525E-17   0.0                           \r\n        200096      G      1.000000E+00   0.0            0.0            0.0            1.273768E-17   0.0                           \r\n        200101      G      1.000000E+00   0.0            0.0            0.0            2.012381E-17   0.0                           \r\n        200106      G      1.000000E+00   0.0           -6.326537E-15   0.0           -5.277354E-17   0.0                           \r\n        200114      G      1.000000E+00   0.0           -6.315478E-15   0.0            1.250390E-17   0.0                           \r\n        200121      G      1.000000E+00   0.0           -6.313527E-15   0.0            7.692753E-18   0.0                           \r\n        200129      G      1.000000E+00   0.0           -6.311791E-15   0.0            3.785390E-18   0.0                           \r\n        200137      G      1.000000E+00   0.0           -6.309189E-15   0.0            7.740611E-18   0.0                           \r\n        200145      G      1.000000E+00   0.0           -6.308160E-15   0.0           -1.479871E-17   0.0                           \r\n        200153      G      1.000000E+00   0.0           -6.309340E-15   0.0            4.655832E-17   0.0                           \r\n        200155      G      1.000000E+00   0.0           -6.309340E-15   0.0            3.223199E-17   0.0                           \r\n        211073      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        211077      G      1.000000E+00   0.0           -1.387779E-16   0.0            1.273768E-17   0.0                           \r\n        214075      G      1.000000E+00   0.0           -1.942890E-16   0.0            1.273768E-17   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18983      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         18987      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         19765      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21183      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21187      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n         21485      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        189073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        189077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        200070      G      0.0            1.000000E+00   0.0           -1.700419E-17   0.0            0.0                           \r\n        200078      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200079      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200086      G      0.0            1.000000E+00   0.0            1.286474E-17   0.0            0.0                           \r\n        200087      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200095      G      0.0            1.000000E+00   0.0           -4.880604E-17   0.0            0.0                           \r\n        200096      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n        200101      G      0.0            1.000000E+00   0.0           -1.331875E-17   0.0            0.0                           \r\n        200106      G      0.0            1.000000E+00   0.0            1.694066E-17   0.0            0.0                           \r\n        200114      G      0.0            1.000000E+00   0.0           -5.204170E-18   0.0            0.0                           \r\n        200121      G      0.0            1.000000E+00   0.0            1.127570E-17   0.0            0.0                           \r\n        200129      G      0.0            1.000000E+00   0.0            1.474515E-17   0.0            0.0                           \r\n        200137      G      0.0            1.000000E+00   0.0            1.040834E-17   0.0            0.0                           \r\n        200145      G      0.0            1.000000E+00   0.0            1.387779E-17   0.0            0.0                           \r\n        200153      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        200155      G      0.0            1.000000E+00   0.0            0.0            0.0            0.0                           \r\n        211073      G      0.0            1.000000E+00  -9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        211077      G      0.0            1.000000E+00   9.435926E-17  -7.624991E-18   0.0            0.0                           \r\n        214075      G      0.0            1.000000E+00   0.0           -7.624991E-18   0.0            0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18983      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         18987      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         19765      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21183      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21187      G     -7.596512E-15   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n         21485      G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n        189073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        189077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200070      G     -4.862983E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200078      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200079      G      8.945737E-16   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200086      G      5.282075E-15   0.0            1.000000E+00   0.0            6.176852E-16   0.0                           \r\n        200087      G      5.475168E-15   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200095      G      1.083319E-14   0.0            1.000000E+00   0.0            6.527213E-16   0.0                           \r\n        200096      G      1.104186E-14   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        200101      G      1.465227E-14   0.0            1.000000E+00   0.0            7.005520E-16   0.0                           \r\n        200106      G      1.854924E-14   0.0            1.000000E+00   0.0            7.615981E-16   0.0                           \r\n        200114      G      2.493302E-14   0.0            1.000000E+00   0.0            8.282532E-16   0.0                           \r\n        200121      G      3.087272E-14   0.0            1.000000E+00   0.0            8.679134E-16   0.0                           \r\n        200129      G      3.795039E-14   0.0            1.000000E+00   0.0            8.971601E-16   0.0                           \r\n        200137      G      4.518072E-14   0.0            1.000000E+00   0.0            9.089458E-16   0.0                           \r\n        200145      G      5.248737E-14   0.0            1.000000E+00   0.0            9.184258E-16   0.0                           \r\n        200153      G      5.964137E-14   0.0            1.000000E+00   0.0            9.232443E-16   0.0                           \r\n        200155      G      6.168141E-14   0.0            1.000000E+00   0.0            9.230140E-16   0.0                           \r\n        211073      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        211077      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n        214075      G     -4.699533E-17   0.0            1.000000E+00   0.0            6.361939E-16   0.0                           \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -9.657564E-11  -1.563668E-01  -3.725052E-06  -1.168756E-02   0.0            0.0                           \r\n         18983      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         18987      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         19765      G     -9.657564E-11  -5.585395E-02   1.680999E-05   0.0            0.0            0.0                           \r\n         21183      G     -9.657564E-11   9.538307E-02  -1.446167E-01   0.0            0.0            0.0                           \r\n         21187      G     -9.657564E-11   9.538307E-02   1.446503E-01   0.0            0.0            0.0                           \r\n         21485      G      0.0            9.538307E-02   1.680999E-05  -1.168756E-02   0.0            0.0                           \r\n        189073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        189077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200070      G     -1.227557E-11   6.908262E-03   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200078      G      4.450754E-11   9.538306E-02   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200079      G      5.560915E-11   1.126807E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200086      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200087      G      1.096168E-10   1.968311E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200095      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200096      G      1.752512E-10   2.990972E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200101      G      2.178198E-10   3.654241E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200106      G      2.577630E-10   4.276603E-01   1.680995E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        200114      G      3.177716E-10   5.211608E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200121      G      3.702791E-10   6.029737E-01   1.680995E-05  -1.168756E-02   7.501071E-12   2.420055E-11                  \r\n        200129      G      4.302876E-10   6.964741E-01   1.680995E-05  -1.168756E-02   7.501073E-12   2.420055E-11                  \r\n        200137      G      4.902962E-10   7.899746E-01   1.680995E-05  -1.168756E-02   7.501070E-12   2.420055E-11                  \r\n        200145      G      5.503048E-10   8.834750E-01   1.680995E-05  -1.168756E-02   7.501080E-12   2.420055E-11                  \r\n        200153      G      6.085131E-10   9.741704E-01   1.680995E-05  -1.168755E-02   7.501055E-12   2.420055E-11                  \r\n        200155      G      6.250905E-10   1.000000E+00   1.680995E-05  -1.168755E-02   7.501045E-12   2.420055E-11                  \r\n        211073      G     -2.549742E-10   9.538306E-02  -1.446167E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        211077      G      3.439893E-10   9.538306E-02   1.446503E-01  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n        214075      G      4.450754E-11   9.538306E-02   1.680984E-05  -1.168756E-02   7.501072E-12   2.420055E-11                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.563668E-01  -2.240056E-07   1.751981E-02  -1.674319E-08   1.168756E-02   0.0                           \r\n         18983      G      9.538307E-02   1.366425E-07   3.822643E-02   0.0            1.168756E-02   0.0                           \r\n         18987      G      9.538307E-02   1.366425E-07   3.822684E-02   0.0            1.168756E-02   0.0                           \r\n         19765      G     -5.585395E-02  -8.001442E-08  -4.311867E-02   0.0            0.0            0.0                           \r\n         21183      G      9.538307E-02   1.366425E-07  -2.163286E-01   0.0            1.168756E-02   0.0                           \r\n         21187      G      9.538307E-02   1.366425E-07  -2.163281E-01   0.0            1.168756E-02   0.0                           \r\n         21485      G      0.0            1.366425E-07  -2.488198E-01  -1.674319E-08   0.0            0.0                           \r\n        189073      G      9.538306E-02   1.366425E-07   3.822643E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        189077      G      9.538306E-02   1.366425E-07   3.822684E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200070      G      6.908263E-03   9.896536E-09  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200078      G      9.538306E-02   1.366425E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200079      G      1.126807E-01   1.614224E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200086      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200087      G      1.968311E-01   2.819733E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200095      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200096      G      2.990972E-01   4.284762E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200101      G      3.654241E-01   5.234938E-07  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200106      G      4.276603E-01   6.126513E-07  -7.935017E-02  -1.674318E-08   1.168755E-02   1.287707E-18                  \r\n        200114      G      5.211608E-01   7.465968E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200121      G      6.029737E-01   8.637991E-07  -7.935017E-02  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        200129      G      6.964741E-01   9.977446E-07  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200137      G      7.899746E-01   1.131690E-06  -7.935017E-02  -1.674319E-08   1.168755E-02   1.287707E-18                  \r\n        200145      G      8.834750E-01   1.265636E-06  -7.935017E-02  -1.674318E-08   1.168756E-02   1.287707E-18                  \r\n        200153      G      9.741704E-01   1.395563E-06  -7.935017E-02  -1.674321E-08   1.168756E-02   1.287707E-18                  \r\n        200155      G      1.000000E+00   1.432565E-06  -7.935017E-02  -1.674322E-08   1.168755E-02   1.287707E-18                  \r\n        211073      G      9.538306E-02   1.366425E-07  -2.163286E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        211077      G      9.538306E-02   1.366425E-07  -2.163282E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n        214075      G      9.538306E-02   1.366425E-07  -2.488198E-01  -1.674319E-08   1.168756E-02   1.287707E-18                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.000000E+00    (CYCLIC FREQUENCY =  0.000000E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -4.168538E-05  -1.024119E-01   2.229137E-06   8.935354E-03  -4.113639E-07   1.480688E-01                  \r\n         18983      G     -1.832142E+00  -5.572125E-01   1.105608E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         18987      G      1.832561E+00  -5.572125E-01  -1.105892E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         19765      G      2.149338E-04   5.889686E-01  -1.133600E-05   0.0            0.0            1.480688E-01                  \r\n         21183      G     -1.832142E+00   2.667726E+00   1.105698E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21187      G      1.832561E+00   2.667726E+00  -1.105802E-01   0.0           -4.113639E-07   1.480688E-01                  \r\n         21485      G      0.0            3.079357E+00  -4.095996E-06   8.935354E-03   0.0            0.0                           \r\n        189073      G     -1.832142E+00  -5.572125E-01   1.105608E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        189077      G      1.832561E+00  -5.572125E-01  -1.105892E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200070      G      2.126719E-04   1.000000E+00  -1.004911E-05   8.935350E-03  -4.108148E-07   1.480688E-01                  \r\n        200078      G      2.095621E-04   9.323594E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200079      G      2.089541E-04   9.191350E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200086      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935357E-03  -4.108099E-07   1.480688E-01                  \r\n        200087      G      2.059962E-04   8.548005E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200095      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935349E-03  -4.108132E-07   1.480688E-01                  \r\n        200096      G      2.024016E-04   7.766162E-01  -1.004911E-05   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        200101      G      2.000703E-04   7.259080E-01  -1.004911E-05   8.935351E-03  -4.108117E-07   1.480688E-01                  \r\n        200106      G      1.978827E-04   6.783273E-01  -1.004911E-05   8.935357E-03  -4.108088E-07   1.480688E-01                  \r\n        200114      G      1.945962E-04   6.068444E-01  -1.004911E-05   8.935351E-03  -4.108119E-07   1.480688E-01                  \r\n        200121      G      1.917206E-04   5.442970E-01  -1.004911E-05   8.935351E-03  -4.108113E-07   1.480688E-01                  \r\n        200129      G      1.884341E-04   4.728141E-01  -1.004911E-05   8.935357E-03  -4.108108E-07   1.480688E-01                  \r\n        200137      G      1.851476E-04   4.013313E-01  -1.004911E-05   8.935355E-03  -4.108109E-07   1.480688E-01                  \r\n        200145      G      1.818611E-04   3.298485E-01  -1.004911E-05   8.935349E-03  -4.108112E-07   1.480688E-01                  \r\n        200153      G      1.786732E-04   2.605102E-01  -1.004911E-05   8.935357E-03  -4.108096E-07   1.480688E-01                  \r\n        200155      G      1.777653E-04   2.407630E-01  -1.004911E-05   8.935359E-03  -4.108083E-07   1.480688E-01                  \r\n        211073      G     -1.832142E+00   2.667726E+00   1.105698E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        211077      G      1.832561E+00   2.667726E+00  -1.105802E-01   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n        214075      G      2.095621E-04   3.079357E+00  -4.092345E-06   8.935354E-03  -4.108113E-07   1.480688E-01                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.352314E+03    (CYCLIC FREQUENCY =  2.987344E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.281382E-01   1.691115E-07  -2.534163E-03  -1.922461E-08  -1.715252E-03  -3.040498E-08                  \r\n         18983      G     -1.650843E-01   6.370777E-07  -5.573309E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         18987      G     -1.650851E-01   6.370777E-07  -5.572834E-03   0.0           -1.715252E-03  -3.040498E-08                  \r\n         19765      G     -1.428893E-01   1.766929E-07   6.365067E-03   0.0            0.0           -3.040498E-08                  \r\n         21183      G     -1.650843E-01  -2.514270E-08   3.178487E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21187      G     -1.650851E-01  -2.514270E-08   3.178535E-02   0.0           -1.715252E-03  -3.040498E-08                  \r\n         21485      G      0.0           -1.096685E-07   3.655351E-02  -1.922461E-08   0.0            0.0                           \r\n        189073      G     -1.642105E-01   6.265337E-07   9.759346E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        189077      G     -1.642112E-01   6.265337E-07   9.759314E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200070      G     -2.290160E-01   4.194566E-07   1.147306E-02   1.301502E-08   8.560844E-03  -3.037381E-08                  \r\n        200078      G     -1.642108E-01   3.209733E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200079      G     -1.515410E-01   3.017347E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200086      G     -9.852263E-02   2.197933E-07   1.147306E-02   1.176456E-08   7.662398E-03  -3.037381E-08                  \r\n        200087      G     -8.990425E-02   2.081419E-07   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200095      G     -2.478640E-02   1.078383E-07   1.147305E-02   1.415583E-08   9.411636E-03  -3.037381E-08                  \r\n        200096      G     -1.499841E-02   9.440056E-08   1.147301E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        200101      G      3.358340E-02   2.063114E-08   1.147301E-02   1.669187E-08   1.125167E-02  -3.037381E-08                  \r\n        200106      G      9.860229E-02  -7.520995E-08   1.147366E-02   1.926111E-08   1.313361E-02  -3.037381E-08                  \r\n        200114      G      2.137211E-01  -2.430559E-07   1.147460E-02   2.258852E-08   1.556749E-02  -3.037381E-08                  \r\n        200121      G      3.290100E-01  -4.097938E-07   1.147537E-02   2.497315E-08   1.731289E-02  -3.037381E-08                  \r\n        200129      G      4.740710E-01  -6.185717E-07   1.147620E-02   2.711603E-08   1.887638E-02  -3.037381E-08                  \r\n        200137      G      6.298204E-01  -8.419798E-07   1.147702E-02   2.863244E-08   1.998549E-02  -3.037381E-08                  \r\n        200145      G      7.926352E-01  -1.075047E-06   1.147784E-02   2.953232E-08   2.064322E-02  -3.037381E-08                  \r\n        200153      G      9.539133E-01  -1.305709E-06   1.147862E-02   2.982079E-08   2.085354E-02  -3.037381E-08                  \r\n        200155      G      1.000000E+00  -1.371613E-06   1.147862E-02   2.982090E-08   2.085367E-02  -3.037381E-08                  \r\n        211073      G     -1.642105E-01  -3.500780E-08  -8.885785E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        211077      G     -1.642112E-01  -3.500780E-08  -8.885817E-02   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n        214075      G     -1.642108E-01  -1.194470E-07  -1.126567E-01   1.299901E-08   8.560667E-03  -3.037381E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.449136E+03    (CYCLIC FREQUENCY =  3.372945E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.860438E-07  -1.034032E-01   5.648798E-06   1.775269E-02  -1.037556E-08  -1.166620E-04                  \r\n         18983      G      1.442978E-03  -4.855892E-01   2.196639E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         18987      G     -1.444407E-03  -4.855892E-01  -2.197150E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         19765      G     -5.802487E-07  -2.566814E-01  -2.548884E-05   0.0            0.0           -1.166620E-04                  \r\n         21183      G      1.442978E-03  -4.881301E-01   2.196642E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21187      G     -1.444407E-03  -4.881301E-01  -2.197148E-01   0.0           -1.037556E-08  -1.166620E-04                  \r\n         21485      G      0.0           -4.884544E-01  -2.530623E-05   1.775269E-02   0.0            0.0                           \r\n        189073      G      1.739299E-03  -4.774919E-01  -1.361696E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        189077      G     -1.740524E-03  -4.774919E-01   1.361191E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200070      G     -7.587439E-07  -5.621898E-01  -2.547534E-05  -1.100188E-02   1.929929E-08  -1.405989E-04                  \r\n        200078      G     -6.126497E-07  -4.789063E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200079      G     -5.840874E-07  -4.626240E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200086      G     -4.678302E-07  -3.941894E-01  -2.548314E-05  -9.879191E-03   1.641146E-08  -1.405989E-04                  \r\n        200087      G     -4.451366E-07  -3.834127E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200095      G     -3.075142E-07  -2.993758E-01  -2.548273E-05  -1.206665E-02   2.166020E-08  -1.405989E-04                  \r\n        200096      G     -2.762726E-07  -2.871491E-01  -2.548108E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        200101      G     -1.667521E-07  -2.247152E-01  -2.548108E-05  -1.435877E-02   2.799988E-08  -1.405989E-04                  \r\n        200106      G     -2.977248E-09  -1.419004E-01  -2.548284E-05  -1.670387E-02   3.321984E-08  -1.405989E-04                  \r\n        200114      G      2.903915E-07   4.300541E-03  -2.548548E-05  -1.974964E-02   4.031057E-08  -1.405989E-04                  \r\n        200121      G      5.935073E-07   1.504727E-01  -2.548766E-05  -2.194033E-02   4.593636E-08  -1.405989E-04                  \r\n        200129      G      9.803830E-07   3.342393E-01  -2.549002E-05  -2.390597E-02   5.060391E-08  -1.405989E-04                  \r\n        200137      G      1.399793E-06   5.314468E-01  -2.549235E-05  -2.530109E-02   5.400505E-08  -1.405989E-04                  \r\n        200145      G      1.840719E-06   7.375434E-01  -2.549465E-05  -2.612874E-02   5.600181E-08  -1.405989E-04                  \r\n        200153      G      2.278612E-06   9.416702E-01  -2.549686E-05  -2.639342E-02   5.664344E-08  -1.405989E-04                  \r\n        200155      G      2.403794E-06   1.000000E+00  -2.549686E-05  -2.639357E-02   5.664348E-08  -1.405989E-04                  \r\n        211073      G      1.739299E-03  -4.805541E-01  -1.361700E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        211077      G     -1.740524E-03  -4.805541E-01   1.361186E-01  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n        214075      G     -6.126497E-07  -4.809450E-01  -2.576091E-05  -1.100156E-02   1.929874E-08  -1.405989E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.236499E+05    (CYCLIC FREQUENCY =  2.447569E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -7.435972E-08  -3.412846E-02   5.072368E-07   1.468387E-03  -8.822445E-10  -3.847645E-05                  \r\n         18983      G      4.759851E-04  -6.568932E-02   1.816921E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         18987      G     -4.763070E-04  -6.568932E-02  -1.817336E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         19765      G     -1.495501E-07  -4.695619E-02  -2.068141E-06   0.0            0.0           -3.847645E-05                  \r\n         21183      G      4.759851E-04  -6.652734E-02   1.816923E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21187      G     -4.763070E-04  -6.652734E-02  -1.817334E-02   0.0           -8.822445E-10  -3.847645E-05                  \r\n         21485      G      0.0           -6.663430E-02  -2.052613E-06   1.468387E-03   0.0            0.0                           \r\n        189073      G      5.614778E-03   7.476252E-02  -4.246728E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        189077      G     -5.613626E-03   7.476252E-02   4.246690E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200070      G      2.955142E-07  -1.898057E-01  -2.243486E-06  -3.436159E-02   3.705455E-08  -4.536729E-04                  \r\n        200078      G      5.759011E-07   7.019858E-02  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200079      G      6.306740E-07   1.209876E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200086      G      9.504164E-07   4.103552E-01  -2.242231E-06  -3.867330E-02   4.252023E-08  -4.536729E-04                  \r\n        200087      G      8.971356E-07   3.680688E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200095      G      1.280280E-06   7.154400E-01  -2.242212E-06  -3.001861E-02   3.149801E-08  -4.536729E-04                  \r\n        200096      G      1.220961E-06   6.683411E-01  -2.241936E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        200101      G      1.430985E-06   8.630893E-01  -2.241936E-06  -2.183529E-02   2.158771E-08  -4.536729E-04                  \r\n        200106      G      1.518581E-06   9.561676E-01  -2.250704E-06  -1.286215E-02   1.086131E-08  -4.536729E-04                  \r\n        200114      G      1.530922E-06   1.000000E+00  -2.263341E-06   1.957220E-03  -8.020608E-09  -4.536729E-04                  \r\n        200121      G      1.416088E-06   9.416006E-01  -2.273752E-06   1.456062E-02  -2.459173E-08  -4.536729E-04                  \r\n        200129      G      1.151721E-06   7.739921E-01  -2.285045E-06   2.681751E-02  -4.082344E-08  -4.536729E-04                  \r\n        200137      G      7.744326E-07   5.213209E-01  -2.296183E-06   3.577421E-02  -5.273528E-08  -4.536729E-04                  \r\n        200145      G      3.204811E-07   2.110446E-01  -2.307216E-06   4.119091E-02  -5.995029E-08  -4.536729E-04                  \r\n        200153      G     -1.568169E-07  -1.176563E-01  -2.317787E-06   4.294504E-02  -6.229005E-08  -4.536729E-04                  \r\n        200155      G     -2.944816E-07  -2.125676E-01  -2.317806E-06   4.294669E-02  -6.229229E-08  -4.536729E-04                  \r\n        211073      G      5.614778E-03   6.488153E-02  -4.246736E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        211077      G     -5.613626E-03   6.488153E-02   4.246682E-01  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n        214075      G      5.759011E-07   6.362032E-02  -2.778560E-06  -3.431684E-02   3.700858E-08  -4.536729E-04                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.284019E+05    (CYCLIC FREQUENCY =  2.682218E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -3.838427E-02   5.098872E-08   7.107995E-03  -2.159953E-08  -1.761671E-04  -9.106066E-09                  \r\n         18983      G     -4.217879E-02   5.323756E-07   6.795612E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         18987      G     -4.217901E-02   5.323756E-07   6.796147E-03   0.0           -1.761671E-04  -9.106066E-09                  \r\n         19765      G     -3.989930E-02   1.894995E-07   8.022001E-03   0.0            0.0           -9.106066E-09                  \r\n         21183      G     -4.217879E-02   3.340455E-07   1.063253E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21187      G     -4.217901E-02   3.340455E-07   1.063307E-02   0.0           -1.761671E-04  -9.106066E-09                  \r\n         21485      G      0.0            3.087307E-07   1.112254E-02  -2.159953E-08   0.0            0.0                           \r\n        189073      G      1.253543E-01   2.810621E-07   2.894033E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        189077      G      1.253541E-01   2.810621E-07   2.894015E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200070      G     -1.164212E-01   7.518266E-07  -3.157805E-02   7.331779E-08   3.195518E-02  -8.363147E-09                  \r\n        200078      G      1.253542E-01   1.969289E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200079      G      1.725745E-01   8.848742E-08  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200086      G      4.406096E-01  -5.177437E-07  -3.157695E-02   8.161371E-08   3.583152E-02  -8.363147E-09                  \r\n        200087      G      4.022944E-01  -4.390642E-07  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200095      G      7.237899E-01  -1.170314E-06  -3.157635E-02   6.522352E-08   2.797138E-02  -8.363147E-09                  \r\n        200096      G      6.814680E-01  -1.080186E-06  -3.156740E-02   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        200101      G      8.625321E-01  -1.496000E-06  -3.156740E-02   4.929531E-08   2.084899E-02  -8.363147E-09                  \r\n        200106      G      9.532413E-01  -1.713621E-06  -3.171637E-02   3.185222E-08   1.285371E-02  -8.363147E-09                  \r\n        200114      G      1.000000E+00  -1.850967E-06  -3.193140E-02   2.228491E-09  -1.341127E-03  -8.363147E-09                  \r\n        200121      G      9.463068E-01  -1.775468E-06  -3.210861E-02  -2.351752E-08  -1.388646E-02  -8.363147E-09                  \r\n        200129      G      7.835510E-01  -1.482026E-06  -3.230085E-02  -4.877711E-08  -2.628601E-02  -8.363147E-09                  \r\n        200137      G      5.345000E-01  -1.013042E-06  -3.249047E-02  -6.728381E-08  -3.539703E-02  -8.363147E-09                  \r\n        200145      G      2.267487E-01  -4.249182E-07  -3.267832E-02  -7.850303E-08  -4.092677E-02  -8.363147E-09                  \r\n        200153      G     -1.001117E-01   2.030789E-07  -3.285829E-02  -8.214549E-08  -4.272163E-02  -8.363147E-09                  \r\n        200155      G     -1.945294E-01   3.846258E-07  -3.285862E-02  -8.214876E-08  -4.272344E-02  -8.363147E-09                  \r\n        211073      G      1.253543E-01   9.891279E-08  -4.054996E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        211077      G      1.253541E-01   9.891279E-08  -4.055014E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n        214075      G      1.253542E-01   7.566326E-08  -4.941979E-01   7.327110E-08   3.190555E-02  -8.363147E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.149555E+06    (CYCLIC FREQUENCY =  6.154901E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -2.180174E-02  -2.043694E-07   3.809752E-02  -9.654200E-08  -1.005259E-04  -5.434067E-09                  \r\n         18983      G     -2.396700E-02   1.884772E-06   3.791822E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         18987      G     -2.396714E-02   1.884772E-06   3.792061E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         19765      G     -2.266626E-02   5.976970E-07   3.861908E-02   0.0            0.0           -5.434067E-09                  \r\n         21183      G     -2.396700E-02   1.766418E-06   4.010768E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21187      G     -2.396714E-02   1.766418E-06   4.011007E-02   0.0           -1.005259E-04  -5.434067E-09                  \r\n         21485      G      0.0            1.751311E-06   4.038833E-02  -9.654200E-08   0.0            0.0                           \r\n        189073      G      7.597543E-01   7.164211E-06  -4.661849E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        189077      G      7.597538E-01   7.164211E-06  -4.661919E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200070      G      1.000000E+00   9.132744E-06  -1.490883E-01   2.888383E-07  -3.183128E-02  -2.104087E-08                  \r\n        200078      G      7.597540E-01   6.952539E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200079      G      7.130640E-01   6.528754E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200086      G      5.071975E-01   4.657975E-06  -1.490609E-01   2.714607E-07  -2.986233E-02  -2.104087E-08                  \r\n        200087      G      4.859242E-01   4.467101E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200095      G      2.271481E-01   2.113667E-06  -1.490459E-01   3.082117E-07  -3.397761E-02  -2.104087E-08                  \r\n        200096      G      2.098861E-01   1.961619E-06  -1.488235E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        200101      G      3.085553E-02   3.366340E-07  -1.488235E-01   3.128914E-07  -3.464390E-02  -2.104087E-08                  \r\n        200106      G     -1.484246E-01  -1.279305E-06  -1.532117E-01   2.896782E-07  -3.218580E-02  -2.104087E-08                  \r\n        200114      G     -3.706879E-01  -3.278265E-06  -1.595810E-01   1.975074E-07  -2.196303E-02  -2.104087E-08                  \r\n        200121      G     -4.779176E-01  -4.244007E-06  -1.648659E-01   7.567699E-08  -8.361754E-03  -2.104087E-08                  \r\n        200129      G     -4.818658E-01  -4.286429E-06  -1.706281E-01  -6.112806E-08   6.935453E-03  -2.104087E-08                  \r\n        200137      G     -3.758964E-01  -3.346121E-06  -1.763172E-01  -1.678719E-07   1.887787E-02  -2.104087E-08                  \r\n        200145      G     -1.916187E-01  -1.705973E-06  -1.819559E-01  -2.350554E-07   2.639577E-02  -2.104087E-08                  \r\n        200153      G      2.612408E-02   2.334521E-07  -1.873593E-01  -2.574280E-07   2.889914E-02  -2.104087E-08                  \r\n        200155      G      8.999769E-02   8.024258E-07  -1.873692E-01  -2.574660E-07   2.890343E-02  -2.104087E-08                  \r\n        211073      G      7.597543E-01   6.705940E-06   2.209134E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        211077      G      7.597538E-01   6.705940E-06   2.209063E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n        214075      G      7.597540E-01   6.647447E-06   3.086111E-01   2.863408E-07  -3.154721E-02  -2.104087E-08                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.195345E+06    (CYCLIC FREQUENCY =  7.034309E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.735424E-07  -2.492234E-02   1.040353E-08   7.926864E-04   4.673263E-10  -2.809567E-05                  \r\n         18983      G      3.478182E-04  -4.194702E-02   9.808113E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         18987      G     -3.475497E-04  -4.194702E-02  -9.810875E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         19765      G      1.281973E-07  -3.188520E-02  -1.384771E-06   0.0            0.0           -2.809567E-05                  \r\n         21183      G      3.478182E-04  -4.255894E-02   9.808103E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21187      G     -3.475497E-04  -4.255894E-02  -9.810885E-03   0.0            4.673263E-10  -2.809567E-05                  \r\n         21485      G      0.0           -4.263705E-02  -1.392996E-06   7.926864E-04   0.0            0.0                           \r\n        189073      G      3.132847E-02   8.050826E-01   3.574528E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        189077      G     -3.133953E-02   8.050826E-01  -3.574487E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200070      G     -7.107416E-06   1.000000E+00  -3.894656E-08   2.922790E-02   2.091476E-07  -2.532040E-03                  \r\n        200078      G     -5.530359E-06   7.796103E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200079      G     -5.224450E-06   7.368605E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200086      G     -4.078107E-06   5.747414E-01  -2.600835E-08   2.488468E-02   1.774530E-07  -2.532040E-03                  \r\n        200087      G     -3.736249E-06   5.288893E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200095      G     -2.233911E-06   3.179230E-01  -2.667839E-08   3.396574E-02   2.441423E-07  -2.532040E-03                  \r\n        200096      G     -1.927672E-06   2.761463E-01  -2.916398E-08   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        200101      G     -7.546790E-07   1.122244E-01  -2.916398E-08   3.771792E-02   2.719983E-07  -2.532040E-03                  \r\n        200106      G      7.018957E-07  -8.881804E-02  -3.050894E-08   3.720617E-02   2.708233E-07  -2.532040E-03                  \r\n        200114      G      2.657974E-06  -3.564891E-01  -3.227697E-08   2.766672E-02   2.023405E-07  -2.532040E-03                  \r\n        200121      G      3.692977E-06  -4.984264E-01  -3.374735E-08   1.235423E-02   8.966356E-08  -2.532040E-03                  \r\n        200129      G      3.869313E-06  -5.234711E-01  -3.535395E-08  -5.653708E-03  -4.245230E-08  -2.532040E-03                  \r\n        200137      G      3.084930E-06  -4.177485E-01  -3.694082E-08  -1.999360E-02  -1.478720E-07  -2.532040E-03                  \r\n        200145      G      1.605452E-06  -2.174560E-01  -3.851387E-08  -2.912757E-02  -2.150078E-07  -2.532040E-03                  \r\n        200153      G     -1.792351E-07   2.437993E-02  -4.002149E-08  -3.219331E-02  -2.375506E-07  -2.532040E-03                  \r\n        200155      G     -7.042873E-07   9.553611E-02  -4.002423E-08  -3.219925E-02  -2.375939E-07  -2.532040E-03                  \r\n        211073      G      3.132847E-02   7.499348E-01   3.574483E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        211077      G     -3.133953E-02   7.499348E-01  -3.574532E-01   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n        214075      G     -5.530359E-06   7.428957E-01  -3.026236E-06   2.888491E-02   2.066946E-07  -2.532040E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.507298E+06    (CYCLIC FREQUENCY =  1.133579E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         13\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      1.887539E-03   2.892167E-09   1.738968E-02  -4.705357E-08  -1.153718E-05   4.543725E-10                  \r\n         18983      G      1.639022E-03   1.015621E-06   1.736866E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         18987      G      1.639034E-03   1.015621E-06   1.736983E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         19765      G      1.788319E-03   4.099097E-07   1.744954E-02   0.0            0.0            4.543725E-10                  \r\n         21183      G      1.639022E-03   1.025517E-06   1.761994E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21187      G      1.639034E-03   1.025517E-06   1.762110E-02   0.0           -1.153718E-05   4.543725E-10                  \r\n         21485      G      0.0            1.026780E-06   1.765260E-02  -4.705357E-08   0.0            0.0                           \r\n        189073      G      2.123807E-01   6.965446E-07  -3.447998E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        189077      G      2.123807E-01   6.965446E-07  -3.448022E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200070      G      4.515394E-01   1.468021E-06  -3.320159E-02   1.010185E-07  -3.189244E-02   1.397608E-09                  \r\n        200078      G      2.123807E-01   7.106045E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200079      G      1.665095E-01   5.653746E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200086      G     -3.094360E-01  -9.272165E-07  -3.318080E-02   1.769921E-07  -5.633516E-02   1.397608E-09                  \r\n        200087      G     -5.664707E-02  -1.411475E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200095      G     -5.984007E-01  -1.842108E-06  -3.316951E-02   1.494952E-08  -4.210300E-03   1.397608E-09                  \r\n        200096      G     -3.278444E-01  -9.997685E-07  -3.300159E-02   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        200101      G     -5.037354E-01  -1.556646E-06  -3.300159E-02  -1.115457E-07   3.620632E-02   1.397608E-09                  \r\n        200106      G     -2.300736E-01  -7.081690E-07  -4.087389E-02  -2.012172E-07   6.472401E-02   1.397608E-09                  \r\n        200114      G      3.568954E-01   1.119059E-06  -5.249882E-02  -2.287449E-07   7.342049E-02   1.397608E-09                  \r\n        200121      G      7.924918E-01   2.476549E-06  -6.234895E-02  -1.474822E-07   4.732299E-02   1.397608E-09                  \r\n        200129      G      1.000000E+00   3.122780E-06  -7.325004E-02  -1.374018E-08   4.446925E-03   1.397608E-09                  \r\n        200137      G      8.753517E-01   2.732892E-06  -8.404481E-02   1.063144E-07  -3.403820E-02   1.397608E-09                  \r\n        200145      G      4.879429E-01   1.523273E-06  -9.475782E-02   1.882977E-07  -6.031556E-02   1.397608E-09                  \r\n        200153      G     -2.749754E-02  -8.579283E-08  -1.050329E-01   2.170430E-07  -6.952798E-02   1.397608E-09                  \r\n        200155      G     -1.811982E-01  -5.655943E-07  -1.050516E-01   2.171346E-07  -6.955738E-02   1.397608E-09                  \r\n        211073      G      2.123807E-01   7.269845E-07   3.302492E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        211077      G      2.123807E-01   7.269845E-07   3.302467E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n        214075      G      2.123807E-01   7.308699E-07   4.164112E-01   9.812811E-08  -3.099398E-02   1.397608E-09                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.544614E+06    (CYCLIC FREQUENCY =  1.174531E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         14\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G      8.975282E-09  -4.525877E-03  -9.227976E-09   1.334588E-04   2.870489E-11  -5.102084E-06                  \r\n         18983      G      6.313893E-05  -7.391538E-03   1.651309E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         18987      G     -6.313766E-05  -7.391538E-03  -1.651796E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         19765      G      2.577811E-10  -5.700092E-03  -2.438640E-07   0.0            0.0           -5.102084E-06                  \r\n         21183      G      6.313893E-05  -7.502662E-03   1.651308E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21187      G     -6.313766E-05  -7.502662E-03  -1.651797E-03   0.0            2.870489E-11  -5.102084E-06                  \r\n         21485      G      0.0           -7.516846E-03  -2.443692E-07   1.334588E-04   0.0            0.0                           \r\n        189073      G      1.574958E-02   4.214365E-01   4.902321E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        189077      G     -1.575175E-02   4.214365E-01  -4.902298E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200070      G     -1.939716E-06   7.148132E-01   1.192869E-08   4.086260E-02   1.142169E-07  -1.272781E-03                  \r\n        200078      G     -1.083880E-06   4.086324E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200079      G     -9.199912E-07   3.500026E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200086      G      6.151079E-07  -1.919622E-01   1.734225E-08   6.574191E-02   1.859290E-07  -1.272781E-03                  \r\n        200087      G     -1.226982E-07   6.477744E-02   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200095      G      1.650014E-06  -5.613870E-01   1.698107E-08   1.255035E-02   3.269479E-08  -1.272781E-03                  \r\n        200096      G      8.462347E-07  -2.818505E-01   1.586029E-08   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        200101      G      1.474657E-06  -5.066636E-01   1.586029E-08  -3.079928E-02  -9.095775E-08  -1.272781E-03                  \r\n        200106      G      7.376322E-07  -2.527241E-01   2.057635E-08  -6.258737E-02  -1.802748E-07  -1.272781E-03                  \r\n        200114      G     -9.382632E-07   3.314245E-01   2.763127E-08  -7.448651E-02  -2.134033E-07  -1.272781E-03                  \r\n        200121      G     -2.219921E-06   7.786500E-01   3.362275E-08  -4.925349E-02  -1.411821E-07  -1.272781E-03                  \r\n        200129      G     -2.854900E-06   1.000000E+00   4.026377E-08  -5.841684E-03  -1.691221E-08  -1.272781E-03                  \r\n        200137      G     -2.520768E-06   8.825837E-01   4.684204E-08   3.364510E-02   9.601315E-08  -1.272781E-03                  \r\n        200145      G     -1.412675E-06   4.945413E-01   5.337138E-08   6.080829E-02   1.736938E-07  -1.272781E-03                  \r\n        200153      G      7.584792E-08  -2.652459E-02   5.963437E-08   7.037315E-02   2.010428E-07  -1.272781E-03                  \r\n        200155      G      5.202876E-07  -1.820965E-01   5.964575E-08   7.040489E-02   2.011336E-07  -1.272781E-03                  \r\n        211073      G      1.574958E-02   3.937154E-01   4.902296E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        211077      G     -1.575175E-02   3.937154E-01  -4.902322E-01   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n        214075      G     -1.083880E-06   3.901770E-01  -1.589800E-06   3.961462E-02   1.107352E-07  -1.272781E-03                  \r\n1     HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)                                                                  \r\n0     NORMAL MODES ANALYSIS USING RIGID ELEMENTS                                                                                    \r\n      EIGENVALUE =  0.106964E+07    (CYCLIC FREQUENCY =  1.646038E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         15\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           209      G     -1.859502E-02  -2.245320E-08  -6.147731E-02   1.665499E-07   1.622162E-05  -4.466250E-09                  \r\n         18983      G     -1.824555E-02  -3.602023E-06  -6.144651E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         18987      G     -1.824567E-02  -3.602023E-06  -6.145063E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         19765      G     -1.845552E-02  -1.477952E-06  -6.156147E-02   0.0            0.0           -4.466250E-09                  \r\n         21183      G     -1.824555E-02  -3.699298E-06  -6.179982E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21187      G     -1.824567E-02  -3.699298E-06  -6.180394E-02   0.0            1.622162E-05  -4.466250E-09                  \r\n         21485      G      0.0           -3.711714E-06  -6.184697E-02   1.665499E-07   0.0            0.0                           \r\n        189073      G      6.896894E-01   1.052667E-06  -6.267808E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        189077      G      6.896890E-01   1.052667E-06  -6.267820E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200070      G      1.000000E+00   1.244522E-06  -2.341845E-01   5.056185E-08  -4.182766E-02  -1.822620E-08                  \r\n        200078      G      6.896892E-01   8.693111E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200079      G      6.314937E-01   7.989032E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200086      G      2.804552E-01   3.935889E-07  -2.338731E-01   5.727357E-08  -4.862713E-02  -1.822620E-08                  \r\n        200087      G      3.483810E-01   4.563789E-07  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200095      G     -9.791286E-02  -6.779847E-08  -2.337049E-01   4.185654E-08  -3.270569E-02  -1.822620E-08                  \r\n        200096      G      4.320337E-03   4.011659E-08  -2.312101E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        200101      G     -2.188277E-01  -2.298594E-07  -2.312101E-01   1.311544E-08  -8.682907E-03  -1.822620E-08                  \r\n        200106      G     -2.000576E-01  -2.186519E-07  -1.497742E-01  -1.604596E-08   1.494644E-02  -1.822620E-08                  \r\n        200114      G      1.182839E-02   2.032457E-08  -2.586863E-02  -3.850097E-08   3.358650E-02  -1.822620E-08                  \r\n        200121      G      2.410693E-01   2.844891E-07   8.288299E-02  -3.320865E-08   2.874365E-02  -1.822620E-08                  \r\n        200129      G      3.978926E-01   4.654701E-07   2.061722E-01  -1.093071E-08   9.518354E-03  -1.822620E-08                  \r\n        200137      G      3.891389E-01   4.543243E-07   3.288303E-01   1.324328E-08  -1.129094E-02  -1.822620E-08                  \r\n        200145      G      2.309646E-01   2.694710E-07   4.508141E-01   3.145723E-08  -2.695258E-02  -1.822620E-08                  \r\n        200153      G     -7.949214E-03  -9.245327E-09   5.679691E-01   3.820413E-08  -3.275419E-02  -1.822620E-08                  \r\n        200155      G     -8.037701E-02  -9.372467E-08   5.681821E-01   3.823668E-08  -3.278189E-02  -1.822620E-08                  \r\n        211073      G      6.896894E-01   6.557001E-07   2.296353E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        211077      G      6.896890E-01   6.557001E-07   2.296341E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n        214075      G      6.896892E-01   6.050312E-07   3.389476E-01   4.757284E-08  -3.932122E-02  -1.822620E-08                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE               \r\n DATE:  5/17/95\r\n END TIME: 15:46:19\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d04011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D04011A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   4,0                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                          \r\n                  3      LABEL    = INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                 \r\n                  4      DISP = ALL                                                                      \r\n                  5      SPCF = ALL                                                                      \r\n                  6      LOAD = 32                                                                       \r\n                  7      SPC  = 2                                                                        \r\n                  8      STRESS = ALL                                                                    \r\n                  9      FORCE  = ALL                                                                    \r\n                 10      SUBCASE 1                                                                       \r\n                 11      OLOAD = ALL                                                                     \r\n                 12      LABEL = LINEAR SOLUTION                                                         \r\n                 13      SUBCASE 2                                                                       \r\n                 14      LABEL = NONLINEAR SOLUTION                                                      \r\n                 15      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    30, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR                                   -1.2    1.0     0.0     1               \r\n                    2-        CBAR    10      10      10      11                                              \r\n                    3-        CBAR    11      10      11      12                                              \r\n                    4-        CBAR    12      10      12      13                                              \r\n                    5-        CBAR    13      10      13      14                                              \r\n                    6-        CBAR    14      10      14      15                                              \r\n                    7-        CBAR    15      10      15      16                                              \r\n                    8-        CBAR    16      10      16      17                                              \r\n                    9-        CBAR    17      10      17      18                                              \r\n                   10-        CBAR    18      10      18      19                                              \r\n                   11-        CORD2C  10      0       .0      .0      .0      .0      .0      1.0     +CS1    \r\n                   12-        +CS1    1.0     .0      .0                                                      \r\n                   13-        GRAV    32      0       32.2    0.0     1.0     .0                              \r\n                   14-        GRDSET          10                              0       345                     \r\n                   15-        GRID    10              10.0    .0                                              \r\n                   16-        GRID    11              10.0    10.0                                            \r\n                   17-        GRID    12              10.0    20.0                                            \r\n                   18-        GRID    13              10.0    30.0                                            \r\n                   19-        GRID    14              10.0    40.0                                            \r\n                   20-        GRID    15              10.0    50.0                                            \r\n                   21-        GRID    16              10.0    60.0                                            \r\n                   22-        GRID    17              10.0    70.0                                            \r\n                   23-        GRID    18              10.0    80.0                                            \r\n                   24-        GRID    19              10.0    90.0                                            \r\n                   25-        MAT1    1       5.5+5           .3      .4                                      \r\n                   26-        PARAM   BETAD   8                                                       DIFFSTIF\r\n                   27-        PARAM   EPSIO   1.0-5                                                   DIFFSTIF\r\n                   28-        PARAM   NT      18                                                      DIFFSTIF\r\n                   29-        PBAR    10      1       .1      1.0-6   1.0-6                                   \r\n                   30-        SPC     2       10      12      .0      19      1       .0                      \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n\r\n      INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.4963145E-10\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     LINEAR SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            0.0            1.089276E+02                  \r\n            11      G     -1.800632E+02  -1.575284E+01   0.0            0.0            0.0            9.322742E+01                  \r\n            12      G     -3.063097E+02  -4.957994E+01   0.0            0.0            0.0            5.418734E+01                  \r\n            13      G     -3.542910E+02  -7.195342E+01   0.0            0.0            0.0            6.080114E+00                  \r\n            14      G     -3.289772E+02  -5.422792E+01   0.0            0.0            0.0           -4.057841E+01                  \r\n            15      G     -2.541684E+02   2.058130E+01   0.0            0.0            0.0           -7.903272E+01                  \r\n            16      G     -1.606223E+02   1.541796E+02   0.0            0.0            0.0           -1.060638E+02                  \r\n            17      G     -7.611330E+01   3.354106E+02   0.0            0.0            0.0           -1.215579E+02                  \r\n            18      G     -1.956326E+01   5.464589E+02   0.0            0.0            0.0           -1.278975E+02                  \r\n            19      G      0.0            7.700712E+02   0.0            0.0            0.0           -1.292109E+02                  \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     LINEAR SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            1.122566E+00   0.0            0.0            0.0            0.0                           \r\n            11      G      0.0            2.245132E+00   0.0            0.0            0.0            0.0                           \r\n            12      G      0.0            2.245132E+00   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0            2.245132E+00   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0            2.245131E+00   0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            2.245133E+00   0.0            0.0            0.0            0.0                           \r\n            16      G      0.0            2.245132E+00   0.0            0.0            0.0            0.0                           \r\n            17      G      0.0            2.245131E+00   0.0            0.0            0.0            0.0                           \r\n            18      G      0.0            2.245132E+00   0.0            0.0            0.0            0.0                           \r\n            19      G      0.0            1.122567E+00   0.0            0.0            0.0            0.0                           \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     LINEAR SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      7.375201E+00  -2.020619E+01   0.0            0.0            0.0            0.0                           \r\n            19      G     -7.375201E+00   0.0            0.0            0.0            0.0            0.0                           \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     LINEAR SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           10     1.525879E-05  0.0           -9.907660E+00  0.0            5.683891E+00  0.0            1.965850E+01   0.0         \r\n           11    -9.907684E+00  0.0           -1.472875E+01  0.0            2.765778E+00  0.0            1.818750E+01   0.0         \r\n           12    -1.472876E+01  0.0           -1.562957E+01  0.0            5.167847E-01  0.0            1.625000E+01   0.0         \r\n           13    -1.562955E+01  0.0           -1.381457E+01  0.0           -1.041229E+00  0.0            1.400000E+01   0.0         \r\n           14    -1.381456E+01  0.0           -1.045222E+01  0.0           -1.928925E+00  0.0            1.200000E+01   0.0         \r\n           15     1.045224E+01  0.0            6.605832E+00  0.0            2.206627E+00  0.0            1.100000E+01   0.0         \r\n           16     6.605835E+00  0.0            3.171765E+00  0.0            1.970078E+00  0.0            9.000000E+00   0.0         \r\n           17     3.171783E+00  0.0            8.288348E-01  0.0            1.344116E+00  0.0            7.500000E+00   0.0         \r\n           18     8.288574E-01  0.0           -3.755093E-05  0.0            4.755249E-01  0.0            7.250000E+00   0.0         \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     LINEAR SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     10     0.0            0.0            0.0            0.0            1.965850E+02   1.965850E+02   1.965850E+02                 \r\n             0.0            0.0            0.0            0.0                           1.965850E+02   1.965850E+02                 \r\n0     11     0.0            0.0            0.0            0.0            1.818750E+02   1.818750E+02   1.818750E+02                 \r\n             0.0            0.0            0.0            0.0                           1.818750E+02   1.818750E+02                 \r\n0     12     0.0            0.0            0.0            0.0            1.625000E+02   1.625000E+02   1.625000E+02                 \r\n             0.0            0.0            0.0            0.0                           1.625000E+02   1.625000E+02                 \r\n0     13     0.0            0.0            0.0            0.0            1.400000E+02   1.400000E+02   1.400000E+02                 \r\n             0.0            0.0            0.0            0.0                           1.400000E+02   1.400000E+02                 \r\n0     14     0.0            0.0            0.0            0.0            1.200000E+02   1.200000E+02   1.200000E+02                 \r\n             0.0            0.0            0.0            0.0                           1.200000E+02   1.200000E+02                 \r\n0     15     0.0            0.0            0.0            0.0            1.100000E+02   1.100000E+02   1.100000E+02                 \r\n             0.0            0.0            0.0            0.0                           1.100000E+02   1.100000E+02                 \r\n0     16     0.0            0.0            0.0            0.0            9.000000E+01   9.000000E+01   9.000000E+01                 \r\n             0.0            0.0            0.0            0.0                           9.000000E+01   9.000000E+01                 \r\n0     17     0.0            0.0            0.0            0.0            7.500000E+01   7.500000E+01   7.500000E+01                 \r\n             0.0            0.0            0.0            0.0                           7.500000E+01   7.500000E+01                 \r\n0     18     0.0            0.0            0.0            0.0            7.250000E+01   7.250000E+01   7.250000E+01                 \r\n             0.0            0.0            0.0            0.0                           7.250000E+01   7.250000E+01                 \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n\r\n      INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      DSEPSI   =  0.000000E+00  (OUTPUT)\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    DET                 9.633987E+00\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                                                                          \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    POWER                     56\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.4710022E-13\r\n0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON   0\r\n     ON ITERATION NUMBER      1.\r\n     PARAMETER VALUES ARE AS FOLLOWS\r\n          DONE   =         1\r\n          SHIFT  =         1\r\n          DSEPSI = 8.1451759E-03\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -5.1778184E-13\r\n0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON   1\r\n     ON ITERATION NUMBER      2.\r\n     PARAMETER VALUES ARE AS FOLLOWS\r\n          DONE   =        -1\r\n          SHIFT  =         1\r\n          DSEPSI = 3.1374153E-16\r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     NONLINEAR SOLUTION                                                                                     SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            0.0            2.681644E-01                  \r\n            11      G     -4.753219E-01  -4.096023E-02   0.0            0.0            0.0            2.104201E-01                  \r\n            12      G     -7.246509E-01  -1.071724E-01   0.0            0.0            0.0            9.086203E-02                  \r\n            13      G     -7.689427E-01  -1.272561E-01   0.0            0.0            0.0           -1.988418E-02                  \r\n            14      G     -6.598762E-01  -5.033421E-02   0.0            0.0            0.0           -1.168238E-01                  \r\n            15      G     -4.565086E-01   1.535839E-01   0.0            0.0            0.0           -1.867011E-01                  \r\n            16      G     -2.463144E-01   4.543505E-01   0.0            0.0            0.0           -2.131993E-01                  \r\n            17      G     -8.790284E-02   7.947373E-01   0.0            0.0            0.0           -1.951161E-01                  \r\n            18      G     -1.141128E-02   1.081174E+00   0.0            0.0            0.0           -1.235671E-01                  \r\n            19      G      0.0            1.214275E+00   0.0            0.0            0.0           -7.343145E-02                  \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     NONLINEAR SOLUTION                                                                                     SUBCASE 2              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      7.270632E+00  -2.020619E+01   0.0            0.0            0.0            0.0                           \r\n            19      G     -7.270632E+00   0.0            0.0            0.0            0.0            0.0                           \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     NONLINEAR SOLUTION                                                                                     SUBCASE 2              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           10     4.691142E-02  0.0           -8.335111E-02  0.0            7.472974E-02  0.0            1.964468E+01   0.0         \r\n           11    -4.273540E-02  0.0           -3.271228E-02  0.0           -5.750120E-03  0.0            1.814648E+01   0.0         \r\n           12    -4.931396E-02  0.0           -2.057293E-02  0.0           -1.648831E-02  0.0            1.629834E+01   0.0         \r\n           13    -4.613298E-02  0.0           -1.504118E-02  0.0           -1.783693E-02  0.0            1.428516E+01   0.0         \r\n           14    -4.752234E-02  0.0            3.425945E-03  0.0           -2.922830E-02  0.0            1.228418E+01   0.0         \r\n           15     2.834442E-02  0.0           -1.162256E-02  0.0            2.292847E-02  0.0            1.046387E+01   0.0         \r\n           16     1.555175E-02  0.0           -2.696329E-02  0.0            2.439028E-02  0.0            8.961914E+00   0.0         \r\n           17    -2.240539E-03  0.0           -4.291068E-02  0.0            2.333188E-02  0.0            7.894531E+00   0.0         \r\n           18    -5.720568E-02  0.0            2.556762E-02  0.0           -4.748583E-02  0.0            7.340820E+00   0.0         \r\n1     DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                                                                                   \r\n0     NONLINEAR SOLUTION                                                                                     SUBCASE 2              \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     10     0.0            0.0            0.0            0.0            1.964468E+02   1.964468E+02   1.964468E+02                 \r\n             0.0            0.0            0.0            0.0                           1.964468E+02   1.964468E+02                 \r\n0     11     0.0            0.0            0.0            0.0            1.814648E+02   1.814648E+02   1.814648E+02                 \r\n             0.0            0.0            0.0            0.0                           1.814648E+02   1.814648E+02                 \r\n0     12     0.0            0.0            0.0            0.0            1.629834E+02   1.629834E+02   1.629834E+02                 \r\n             0.0            0.0            0.0            0.0                           1.629834E+02   1.629834E+02                 \r\n0     13     0.0            0.0            0.0            0.0            1.428516E+02   1.428516E+02   1.428516E+02                 \r\n             0.0            0.0            0.0            0.0                           1.428516E+02   1.428516E+02                 \r\n0     14     0.0            0.0            0.0            0.0            1.228418E+02   1.228418E+02   1.228418E+02                 \r\n             0.0            0.0            0.0            0.0                           1.228418E+02   1.228418E+02                 \r\n0     15     0.0            0.0            0.0            0.0            1.046387E+02   1.046387E+02   1.046387E+02                 \r\n             0.0            0.0            0.0            0.0                           1.046387E+02   1.046387E+02                 \r\n0     16     0.0            0.0            0.0            0.0            8.961914E+01   8.961914E+01   8.961914E+01                 \r\n             0.0            0.0            0.0            0.0                           8.961914E+01   8.961914E+01                 \r\n0     17     0.0            0.0            0.0            0.0            7.894531E+01   7.894531E+01   7.894531E+01                 \r\n             0.0            0.0            0.0            0.0                           7.894531E+01   7.894531E+01                 \r\n0     18     0.0            0.0            0.0            0.0            7.340820E+01   7.340820E+01   7.340820E+01                 \r\n             0.0            0.0            0.0            0.0                           7.340820E+01   7.340820E+01                 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                \r\n DATE:  5/17/95\r\n END TIME: 15:46:56\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d05011a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D05011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   5,1                                                                       \r\n     TIME  26                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = SYMMETRIC BUCKLING OF A CYLINDER                                     \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                          \r\n                  3                 SPC  = 1                                                             \r\n                  4      OUTPUT                                                                          \r\n                  5                 SET 1 = 1 THRU 33                                                    \r\n                  6                 SET 2 = 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70,         \r\n                  7                         74,78                                                        \r\n                  8         DISPLACEMENTS = 1                                                            \r\n                  9              SPCFORCE = ALL                                                          \r\n                 10               ELFORCE = 2                                                            \r\n                 11              ELSTRESS = 2                                                            \r\n                 12      $                                                                               \r\n                 13      SUBCASE 1                                                                       \r\n                 14       LABEL =         STATIC SOLUTION                                                \r\n                 15       LOAD  = 100                                                                    \r\n                 16       OUTPUT                                                                         \r\n                 17       OLOAD = ALL                                                                    \r\n                 18      $                                                                               \r\n                 19      SUBCASE 2                                                                       \r\n                 20       LABEL =         BUCKLING SOLUTION                                              \r\n                 21      METHOD = 300                                                                    \r\n                 22      $                                                                               \r\n                 23      $                                                                               \r\n                 24      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                            \r\n                 25      OUTPUT(PLOT)                                                                    \r\n                 26      PLOTTER NASTPLT                                                                 \r\n                 27              SET 1 INCLUDE TRIA1                                                     \r\n                 28      $                                                                               \r\n                 29              PERSPECTIVE PROJECTION                                                  \r\n                 30              AXES Y, X, MZ                                                           \r\n                 31              MAXIMUM DEFORMATION 3.0                                                 \r\n                 32              FIND SCALE,ORIGIN 1, VANTAGE POINT                                      \r\n                 33      PTITLE = PERSPECTIVE VIEW OF MODEL                                              \r\n                 34      PLOT LABELS,SYMBOLS 6,5                                                         \r\n                 35      $                                                                               \r\n                 36              ORTHOGRAPHIC PROJECTION                                                 \r\n                 37              MAXIMUM DEFORMATION  3.0                                                \r\n                 38              FIND SCALE, ORIGIN 2                                                    \r\n                 39      PTITLE = STATIC LOAD UNDERLAY OF CYLINDRICAL SURFACE                            \r\n                 40      PLOT STATIC DEFORMATION 0,1, ORIGIN 2, LABELS, SHAPE                            \r\n                 41      PTITLE = MODE SHAPES OF CYLINDRICAL SURFACE WITH VECTORS                        \r\n                 42      PLOT MODAL DEFORMATION  2, RANGE 0.5, 3.0,                                      \r\n                 43              ORIGIN 2, VECTOR R, SYMBOLS 5,6                                         \r\n                 44              VIEW 0.0, 0.0, 0.0                                                      \r\n                 45              FIND SCALE, ORIGIN 1                                                    \r\n                 46      PTITLE = LONGITUDINAL EDGE VIEW SHOWING BUCKLING MODES                          \r\n                 47      PLOT MODAL DEFORMATION 0,2, RANGE 0.0, 200.0, ORIGIN 1, SHAPE                   \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   169, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       5       9       13      17      21      25      29      +CNG11  \r\n                    2-        +CNG11  33      37      41      45      49      53      57      61      +CNG12  \r\n                    3-        +CNG12  65      69      73      77                                              \r\n                    4-        CNGRNT  2       6       10      14      18      22      26      30      +CNG21  \r\n                    5-        +CNG21  34      38      42      46      50      54      58      62      +CNG22  \r\n                    6-        +CNG22  66      70      74      78                                              \r\n                    7-        CNGRNT  3       7       11      15      19      23      27      31      +CNG31  \r\n                    8-        +CNG31  35      39      43      47      51      55      59      63      +CNG32  \r\n                    9-        +CNG32  67      71      75      79                                              \r\n                   10-        CNGRNT  4       8       12      16      20      24      28      32      +CNG41  \r\n                   11-        +CNG41  36      40      44      48      52      56      60      64      +CNG42  \r\n                   12-        +CNG42  68      72      76      80                                              \r\n                   13-        CORD2C  100     0       25.0    .0      80.0    50.0    .0      80.0    +CORD100\r\n                   14-        +CORD10025.0    .0      .0                                                      \r\n                   15-        CTRIA1  1       200     1       2       51      .0                              \r\n                   16-        CTRIA1  2       200     1       4       51      .0                              \r\n                   17-        CTRIA1  3       200     4       5       51      .0                              \r\n                   18-        CTRIA1  4       200     5       2       51      .0                              \r\n                   19-        CTRIA1  5       200     2       3       52      .0                              \r\n                   20-        CTRIA1  6       200     2       5       52      .0                              \r\n                   21-        CTRIA1  7       200     5       6       52      .0                              \r\n                   22-        CTRIA1  8       200     6       3       52      .0                              \r\n                   23-        CTRIA1  9       200     4       5       54      .0                              \r\n                   24-        CTRIA1  10      200     4       7       54      .0                              \r\n                   25-        CTRIA1  11      200     7       8       54      .0                              \r\n                   26-        CTRIA1  12      200     8       5       54      .0                              \r\n                   27-        CTRIA1  13      200     5       6       55      .0                              \r\n                   28-        CTRIA1  14      200     5       8       55      .0                              \r\n                   29-        CTRIA1  15      200     8       9       55      .0                              \r\n                   30-        CTRIA1  16      200     9       6       55      .0                              \r\n                   31-        CTRIA1  17      200     7       8       57      .0                              \r\n                   32-        CTRIA1  18      200     7       10      57      .0                              \r\n                   33-        CTRIA1  19      200     10      11      57      .0                              \r\n                   34-        CTRIA1  20      200     11      8       57      .0                              \r\n                   35-        CTRIA1  21      200     8       9       58      .0                              \r\n                   36-        CTRIA1  22      200     8       11      58      .0                              \r\n                   37-        CTRIA1  23      200     11      12      58      .0                              \r\n                   38-        CTRIA1  24      200     12      9       58      .0                              \r\n                   39-        CTRIA1  25      200     10      11      60      .0                              \r\n                   40-        CTRIA1  26      200     10      13      60      .0                              \r\n                   41-        CTRIA1  27      200     13      14      60      .0                              \r\n                   42-        CTRIA1  28      200     14      11      60      .0                              \r\n                   43-        CTRIA1  29      200     11      12      61      .0                              \r\n                   44-        CTRIA1  30      200     11      14      61      .0                              \r\n                   45-        CTRIA1  31      200     14      15      61      .0                              \r\n                   46-        CTRIA1  32      200     15      12      61      .0                              \r\n                   47-        CTRIA1  33      200     13      14      63      .0                              \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRIA1  34      200     13      16      63      .0                              \r\n                   49-        CTRIA1  35      200     16      17      63      .0                              \r\n                   50-        CTRIA1  36      200     17      14      63      .0                              \r\n                   51-        CTRIA1  37      200     14      15      64      .0                              \r\n                   52-        CTRIA1  38      200     14      17      64      .0                              \r\n                   53-        CTRIA1  39      200     17      18      64      .0                              \r\n                   54-        CTRIA1  40      200     18      15      64      .0                              \r\n                   55-        CTRIA1  41      200     16      17      66      .0                              \r\n                   56-        CTRIA1  42      200     16      19      66      .0                              \r\n                   57-        CTRIA1  43      200     19      20      66      .0                              \r\n                   58-        CTRIA1  44      200     20      17      66      .0                              \r\n                   59-        CTRIA1  45      200     17      18      67      .0                              \r\n                   60-        CTRIA1  46      200     17      20      67      .0                              \r\n                   61-        CTRIA1  47      200     20      21      67      .0                              \r\n                   62-        CTRIA1  48      200     21      18      67      .0                              \r\n                   63-        CTRIA1  49      200     19      20      69      .0                              \r\n                   64-        CTRIA1  50      200     19      22      69      .0                              \r\n                   65-        CTRIA1  51      200     22      23      69      .0                              \r\n                   66-        CTRIA1  52      200     23      20      69      .0                              \r\n                   67-        CTRIA1  53      200     20      21      70      .0                              \r\n                   68-        CTRIA1  54      200     20      23      70      .0                              \r\n                   69-        CTRIA1  55      200     23      24      70      .0                              \r\n                   70-        CTRIA1  56      200     24      21      70      .0                              \r\n                   71-        CTRIA1  57      200     22      23      72      .0                              \r\n                   72-        CTRIA1  58      200     22      25      72      .0                              \r\n                   73-        CTRIA1  59      200     25      26      72      .0                              \r\n                   74-        CTRIA1  60      200     26      23      72      .0                              \r\n                   75-        CTRIA1  61      200     23      24      73      .0                              \r\n                   76-        CTRIA1  62      200     23      26      73      .0                              \r\n                   77-        CTRIA1  63      200     26      27      73      .0                              \r\n                   78-        CTRIA1  64      200     27      24      73      .0                              \r\n                   79-        CTRIA1  65      200     25      26      75      .0                              \r\n                   80-        CTRIA1  66      200     25      28      75      .0                              \r\n                   81-        CTRIA1  67      200     28      29      75      .0                              \r\n                   82-        CTRIA1  68      200     29      26      75      .0                              \r\n                   83-        CTRIA1  69      200     26      27      76      .0                              \r\n                   84-        CTRIA1  70      200     26      29      76      .0                              \r\n                   85-        CTRIA1  71      200     29      30      76      .0                              \r\n                   86-        CTRIA1  72      200     30      27      76      .0                              \r\n                   87-        CTRIA1  73      200     28      29      78      .0                              \r\n                   88-        CTRIA1  74      200     28      31      78      .0                              \r\n                   89-        CTRIA1  75      200     31      32      78      .0                              \r\n                   90-        CTRIA1  76      200     32      29      78      .0                              \r\n                   91-        CTRIA1  77      200     29      30      79      .0                              \r\n                   92-        CTRIA1  78      200     29      32      79      .0                              \r\n                   93-        CTRIA1  79      200     32      33      79      .0                              \r\n                   94-        CTRIA1  80      200     33      30      79      .0                              \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        EIGB    300     UDET    .10     2.5     4       4       0       1.5E-05 +EIGB300\r\n                   96-        +EIGB300MAX                                                                     \r\n                   97-        FORCE   1       1       100     1.0+3   .0      .0      .5                      \r\n                   98-        FORCE   1       2       100     1.0+3   .0      .0      1.0                     \r\n                   99-        FORCE   1       3       100     1.0+3   .0      .0      .5                      \r\n                  100-        FORCE   1       31      100     1.0+3   .0      .0      -0.5                    \r\n                  101-        FORCE   1       32      100     1.0+3   .0      .0      -1.0                    \r\n                  102-        FORCE   1       33      100     1.0+3   .0      .0      -0.5                    \r\n                  103-        GRDSET                                                  462                     \r\n                  104-        GRID    1       100     80.0    -3.0    -25.0   100                             \r\n                  105-        GRID    2       100     80.0    .0      -25.0   100                             \r\n                  106-        GRID    3       100     80.0    3.0     -25.0   100                             \r\n                  107-        GRID    4       100     80.0    -3.0    -20.0   100                             \r\n                  108-        GRID    5       100     80.0    .0      -20.0   100                             \r\n                  109-        GRID    6       100     80.0    3.0     -20.0   100                             \r\n                  110-        GRID    7       100     80.0    -3.0    -15.0   100                             \r\n                  111-        GRID    8       100     80.0    .0      -15.0   100                             \r\n                  112-        GRID    9       100     80.0    3.0     -15.0   100                             \r\n                  113-        GRID    10      100     80.0    -3.0    -10.0   100                             \r\n                  114-        GRID    11      100     80.0    .0      -10.0   100                             \r\n                  115-        GRID    12      100     80.0    3.0     -10.0   100                             \r\n                  116-        GRID    13      100     80.0    -3.0    -05.0   100                             \r\n                  117-        GRID    14      100     80.0    .0      -05.0   100                             \r\n                  118-        GRID    15      100     80.0    3.0     -05.0   100                             \r\n                  119-        GRID    16      100     80.0    -3.0    +0.0    100                             \r\n                  120-        GRID    17      100     80.0    .0      +0.0    100                             \r\n                  121-        GRID    18      100     80.0    3.0     +0.0    100                             \r\n                  122-        GRID    19      100     80.0    -3.0    +5.0    100                             \r\n                  123-        GRID    20      100     80.0    .0      +5.0    100                             \r\n                  124-        GRID    21      100     80.0    3.0     +5.0    100                             \r\n                  125-        GRID    22      100     80.0    -3.0    10.0    100                             \r\n                  126-        GRID    23      100     80.0    .0      10.0    100                             \r\n                  127-        GRID    24      100     80.0    3.0     10.0    100                             \r\n                  128-        GRID    25      100     80.0    -3.0    15.0    100                             \r\n                  129-        GRID    26      100     80.0    .0      15.0    100                             \r\n                  130-        GRID    27      100     80.0    3.0     15.0    100                             \r\n                  131-        GRID    28      100     80.0    -3.0    20.0    100                             \r\n                  132-        GRID    29      100     80.0    .0      20.0    100                             \r\n                  133-        GRID    30      100     80.0    3.0     20.0    100                             \r\n                  134-        GRID    31      100     80.0    -3.0    25.0    100                             \r\n                  135-        GRID    32      100     80.0    .0      25.0    100                             \r\n                  136-        GRID    33      100     80.0    3.0     25.0    100                             \r\n                  137-        GRID    51      100     80.0    -1.5    -22.5   100                             \r\n                  138-        GRID    52      100     80.0    1.5     -22.5   100                             \r\n                  139-        GRID    54      100     80.0    -1.5    -17.5   100                             \r\n                  140-        GRID    55      100     80.0    1.5     -17.5   100                             \r\n                  141-        GRID    57      100     80.0    -1.5    -12.5   100                             \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    58      100     80.0    1.5     -12.5   100                             \r\n                  143-        GRID    60      100     80.0    -1.5    -07.5   100                             \r\n                  144-        GRID    61      100     80.0    1.5     -07.5   100                             \r\n                  145-        GRID    63      100     80.0    -1.5    -02.5   100                             \r\n                  146-        GRID    64      100     80.0    1.5     -02.5   100                             \r\n                  147-        GRID    66      100     80.0    -1.5    2.5     100                             \r\n                  148-        GRID    67      100     80.0    1.5     2.5     100                             \r\n                  149-        GRID    69      100     80.0    -1.5    7.5     100                             \r\n                  150-        GRID    70      100     80.0    1.5     7.5     100                             \r\n                  151-        GRID    72      100     80.0    -1.5    12.5    100                             \r\n                  152-        GRID    73      100     80.0    1.5     12.5    100                             \r\n                  153-        GRID    75      100     80.0    -1.5    17.5    100                             \r\n                  154-        GRID    76      100     80.0    1.5     17.5    100                             \r\n                  155-        GRID    78      100     80.0    -1.5    22.5    100                             \r\n                  156-        GRID    79      100     80.0    1.5     22.5    100                             \r\n                  157-        LOAD    100     1.0     1.89745 1                                               \r\n                  158-        MAT1    400     10000.00        .0                                              \r\n                  159-        PARAM   IRES    1                                                               \r\n                  160-        PTRIA1  200     400     2.5     400     1.30208                         +PTRIA1*\r\n                  161-        +PTRIA1*1.51022 0.00                                                            \r\n                  162-        SEQGP   51      2.5     52      3.5     54      5.5     55      6.5             \r\n                  163-        SEQGP   57      8.5     58      9.5     60      11.5    61      12.5            \r\n                  164-        SEQGP   63      14.5    64      15.5    66      17.5    67      18.5            \r\n                  165-        SEQGP   69      20.5    70      21.5    72      23.5    73      24.5            \r\n                  166-        SEQGP   75      26.5    76      27.5    78      29.5    79      30.5            \r\n                  167-        SPC     50038   17      3       .0                                              \r\n                  168-        SPC1    50037   1       1       2       3       31      32      33              \r\n                  169-        SPCADD  1       50037   50038                                                   \r\n                              ENDDATA\r\n0*** USER WARNING MESSAGE 2251, TWO OF THE E, G AND NU ON MAT1 CARD      400 ARE ZEROS OR BLANKS.\r\n     POTENTIAL ERROR MAY OCCUR LATER\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          PERSPECTIVE  PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =   0.00, ALPHA =   0.00,  AXES = +Y,+X,-Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.439311E-01                                                                                \r\n          VANTAGE POINT (INCHES) - RO = 1.016716E+02, S0 = 0.206598E+02, T0 = 0.578196E+02                                          \r\n          PROJECTION PLANE SEPARATION (INCHES) = 8.681171E+01                                                                       \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -5.099206E-01, Y0 = -0.168773E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA1    ELEMENTS (ELEMENT TYPE   6) STARTING WITH ID        1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.4399934E-15\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                RULV                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1-T3).\r\n             1 T3 -1.25056E-12        1 R2 -6.75016E-13        2 T3  1.59162E-12        2 R2 -6.92779E-13       51 T1  9.09495E-13\r\n            51 T3 -1.46783E-12       51 R2  1.34470E-12        3 T3 -3.41061E-13        3 R2 -8.17124E-14       52 T1  9.37916E-13\r\n            52 T3 -3.47369E-12       52 R2  1.40510E-12        4 T1 -1.13509E-12        4 T3  2.89901E-12        4 R2 -9.27258E-13\r\n             5 T1 -1.44063E-12        5 T3 -1.93268E-12        5 R2 -1.38911E-12       54 T1  6.18172E-13       54 T3 -3.96147E-12\r\n            54 R2  1.33848E-12        6 T1 -4.80505E-13        6 T3  1.64846E-12        6 R2 -5.03597E-13       55 T1  1.08535E-12\r\n            55 T3  6.17961E-12       55 R2  1.33493E-12        7 T1 -9.27258E-13        7 T3  2.27374E-13        7 R2 -8.38440E-13\r\n             8 T1 -1.50280E-12        8 T3 -2.72848E-12        8 R2 -1.06937E-12       57 T1  3.90799E-13       57 T3  6.13051E-13\r\n            57 R2  1.02496E-12        9 T1 -5.71987E-13        9 T3  1.30740E-12        9 R2 -2.75335E-13       58 T1  2.91323E-13\r\n            58 T3  3.32896E-12       58 R2  1.15641E-12       10 T1 -7.95808E-13       10 T3  5.40012E-13       10 R2 -3.62377E-13\r\n            11 T1 -9.29035E-13       11 T3  2.67164E-12       11 R2 -6.09290E-13       60 T1  1.03029E-13       60 T3  1.87475E-12\r\n            60 R2  6.31495E-13       12 T1 -4.28990E-13       12 T3 -1.98952E-13       12 R2 -6.21725E-14       61 T1  1.49214E-13\r\n            61 T3  5.50199E-13       61 R2  6.59028E-13       13 T1 -4.59450E-13       13 T3 -6.39717E-13       13 R2 -4.40105E-13\r\n            14 T1 -8.77386E-13       14 T3  3.51025E-13       14 R2 -6.81933E-13       63 T1  1.00638E-13       63 T3  2.92459E-13\r\n            63 R2  3.91196E-13       15 T1 -3.50291E-13       15 T3  2.42012E-13       15 R2 -2.36708E-13       64 T1  8.80350E-14\r\n            64 T3 -1.74630E-13       64 R2  5.08644E-13       16 T1 -6.95444E-13       16 T3  3.12639E-13       16 R2 -4.48530E-13\r\n            17 T1 -1.24878E-12       17 R2 -6.99885E-13       66 T1 -1.49214E-13       66 T3  3.47944E-13       66 R2  3.63265E-13\r\n            18 T1 -4.28102E-13       18 T3  7.38964E-13       18 R2 -1.87406E-13       67 T1  6.75016E-14       67 T3 -3.77504E-13\r\n            67 R2  3.44613E-13       19 T1 -1.04095E-12       19 T3 -3.41061E-13       19 R2 -7.22977E-13       20 T1 -1.80833E-12\r\n            20 T3 -1.47793E-12       20 R2 -9.13047E-13       69 T1 -8.17124E-14       69 T3 -1.33561E-12       69 R2  4.40536E-13\r\n            21 T1 -6.98108E-13       21 T3  1.70530E-13       21 R2 -2.61124E-13       70 T1 -1.91847E-13       70 T3 -2.69226E-12\r\n            70 R2  3.96128E-13       22 T1 -1.56763E-12       22 R2 -8.19789E-13       23 T1 -2.51177E-12       23 T3 -7.95808E-13\r\n            23 R2 -1.59872E-12       72 T1  3.73035E-14       72 T3  1.34607E-12       72 R2  3.07310E-13       24 T1 -9.55680E-13\r\n            24 T3  4.54747E-13       24 R2 -4.96492E-13       73 T1 -2.41585E-13       73 T3 -1.52477E-12       73 R2  6.91003E-13\r\n            25 T1 -1.61116E-12       25 T3 -2.27374E-12       25 R2 -7.78044E-13       26 T1 -2.84217E-12       26 T3  2.27374E-13\r\n            26 R2 -1.18661E-12       75 T1 -5.11591E-13       75 T3  2.93129E-12       75 R2  3.10862E-13       27 T1 -1.20615E-12\r\n            27 T3 -5.68434E-13       27 R2 -5.56000E-13       76 T1 -5.32907E-13       76 T3 -3.25304E-12       76 R2  1.97176E-13\r\n            28 T1 -9.02389E-13       28 T3 -3.86535E-12       28 R2 -2.06057E-13       29 T1 -1.70530E-12       29 T3 -1.81899E-12\r\n            29 R2 -5.54223E-13       78 T1 -1.22213E-12       78 T3 -6.25078E-12       78 R2 -7.53175E-13       30 T1 -9.87654E-13\r\n            30 T3  1.36424E-12       30 R2 -4.05009E-13       79 T1 -1.30740E-12       79 T3  2.03171E-12       79 R2 -6.39488E-13\r\n            31 T3 -1.27226E-12       31 R2  2.13163E-14       32 T3 -3.40988E-12       32 R2  7.46070E-14       33 T3 -8.96061E-13\r\n            33 R2 -5.68434E-14\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            4.530113E-01   0.0            1.493624E-03   0.0                           \r\n             2      G      0.0            0.0            4.530113E-01   0.0            1.493624E-03   0.0                           \r\n             3      G      0.0            0.0            4.530113E-01   0.0            1.493624E-03   0.0                           \r\n             4      G      4.521807E-03   0.0            3.624025E-01   0.0            3.945479E-04   0.0                           \r\n             5      G      4.521807E-03   0.0            3.624025E-01   0.0            3.945479E-04   0.0                           \r\n             6      G      4.521808E-03   0.0            3.624025E-01   0.0            3.945480E-04   0.0                           \r\n             7      G      5.020969E-03   0.0            2.717983E-01   0.0           -1.351363E-04   0.0                           \r\n             8      G      5.020970E-03   0.0            2.717983E-01   0.0           -1.351364E-04   0.0                           \r\n             9      G      5.020970E-03   0.0            2.717983E-01   0.0           -1.351364E-04   0.0                           \r\n            10      G      3.910930E-03   0.0            1.811974E-01   0.0           -2.719970E-04   0.0                           \r\n            11      G      3.910930E-03   0.0            1.811974E-01   0.0           -2.719970E-04   0.0                           \r\n            12      G      3.910930E-03   0.0            1.811974E-01   0.0           -2.719970E-04   0.0                           \r\n            13      G      2.723196E-03   0.0            9.059831E-02   0.0           -1.845057E-04   0.0                           \r\n            14      G      2.723196E-03   0.0            9.059831E-02   0.0           -1.845058E-04   0.0                           \r\n            15      G      2.723196E-03   0.0            9.059831E-02   0.0           -1.845058E-04   0.0                           \r\n            16      G      2.248194E-03   0.0           -1.942890E-16   0.0           -8.166753E-16   0.0                           \r\n            17      G      2.248194E-03   0.0            0.0            0.0           -8.202532E-16   0.0                           \r\n            18      G      2.248194E-03   0.0           -1.873501E-16   0.0           -8.243189E-16   0.0                           \r\n            19      G      2.723196E-03   0.0           -9.059831E-02   0.0            1.845057E-04   0.0                           \r\n            20      G      2.723196E-03   0.0           -9.059831E-02   0.0            1.845058E-04   0.0                           \r\n            21      G      2.723196E-03   0.0           -9.059831E-02   0.0            1.845058E-04   0.0                           \r\n            22      G      3.910930E-03   0.0           -1.811974E-01   0.0            2.719970E-04   0.0                           \r\n            23      G      3.910930E-03   0.0           -1.811974E-01   0.0            2.719970E-04   0.0                           \r\n            24      G      3.910930E-03   0.0           -1.811974E-01   0.0            2.719970E-04   0.0                           \r\n            25      G      5.020969E-03   0.0           -2.717983E-01   0.0            1.351363E-04   0.0                           \r\n            26      G      5.020970E-03   0.0           -2.717983E-01   0.0            1.351364E-04   0.0                           \r\n            27      G      5.020970E-03   0.0           -2.717983E-01   0.0            1.351364E-04   0.0                           \r\n            28      G      4.521807E-03   0.0           -3.624025E-01   0.0           -3.945479E-04   0.0                           \r\n            29      G      4.521807E-03   0.0           -3.624025E-01   0.0           -3.945479E-04   0.0                           \r\n            30      G      4.521808E-03   0.0           -3.624025E-01   0.0           -3.945480E-04   0.0                           \r\n            31      G      0.0            0.0           -4.530113E-01   0.0           -1.493624E-03   0.0                           \r\n            32      G      0.0            0.0           -4.530113E-01   0.0           -1.493624E-03   0.0                           \r\n            33      G      0.0            0.0           -4.530113E-01   0.0           -1.493624E-03   0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            9.487250E+02   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            1.897450E+03   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            9.487250E+02   0.0            0.0            0.0                           \r\n            31      G      0.0            0.0           -9.487250E+02   0.0            0.0            0.0                           \r\n            32      G      0.0            0.0           -1.897450E+03   0.0            0.0            0.0                           \r\n            33      G      0.0            0.0           -9.487250E+02   0.0            0.0            0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      7.285580E-01  -8.469142E-01   0.0            1.805507E-01   0.0            3.701859E+00                  \r\n             2      G      1.457114E+00  -4.317856E-05   0.0           -1.378303E-07   0.0           -6.490509E-06                  \r\n             3      G      7.285564E-01   8.468710E-01   0.0           -1.805507E-01   0.0           -3.701865E+00                  \r\n             4      G      0.0           -6.711637E+00   0.0            4.115828E-03   0.0            7.852575E+00                  \r\n             5      G      0.0           -2.765656E-06   0.0           -9.521974E-08   0.0           -1.973346E-05                  \r\n             6      G      0.0            6.711634E+00   0.0           -4.115792E-03   0.0           -7.852594E+00                  \r\n             7      G      0.0           -7.765545E+00   0.0            2.459845E-03   0.0            7.849104E+00                  \r\n             8      G      0.0           -1.598993E-06   0.0            1.685123E-08   0.0           -2.277023E-05                  \r\n             9      G      0.0            7.765544E+00   0.0           -2.459849E-03   0.0           -7.849126E+00                  \r\n            10      G      0.0           -6.203201E+00   0.0            1.223298E-03   0.0            7.847950E+00                  \r\n            11      G      0.0            4.572253E-06   0.0            5.369029E-08   0.0           -1.924447E-05                  \r\n            12      G      0.0            6.203206E+00   0.0           -1.223316E-03   0.0           -7.847970E+00                  \r\n            13      G      0.0           -4.435428E+00   0.0            4.666350E-04   0.0            7.847808E+00                  \r\n            14      G      0.0            8.949936E-06   0.0            3.802452E-08   0.0           -1.487808E-05                  \r\n            15      G      0.0            4.435437E+00   0.0           -4.666480E-04   0.0           -7.847823E+00                  \r\n            16      G      0.0           -3.719525E+00   0.0           -7.924217E-15   0.0            7.847852E+00                  \r\n            17      G      0.0            1.042426E-05   1.318767E-11   1.367782E-14   0.0           -1.307713E-05                  \r\n            18      G      0.0            3.719536E+00   0.0            1.609823E-15   0.0           -7.847865E+00                  \r\n            19      G      0.0           -4.435428E+00   0.0           -4.666350E-04   0.0            7.847808E+00                  \r\n            20      G      0.0            8.949936E-06   0.0           -3.802450E-08   0.0           -1.487808E-05                  \r\n            21      G      0.0            4.435437E+00   0.0            4.666480E-04   0.0           -7.847823E+00                  \r\n            22      G      0.0           -6.203201E+00   0.0           -1.223298E-03   0.0            7.847950E+00                  \r\n            23      G      0.0            4.572252E-06   0.0           -5.369026E-08   0.0           -1.924447E-05                  \r\n            24      G      0.0            6.203206E+00   0.0            1.223316E-03   0.0           -7.847970E+00                  \r\n            25      G      0.0           -7.765545E+00   0.0           -2.459845E-03   0.0            7.849104E+00                  \r\n            26      G      0.0           -1.598994E-06   0.0           -1.685119E-08   0.0           -2.277023E-05                  \r\n            27      G      0.0            7.765544E+00   0.0            2.459849E-03   0.0           -7.849126E+00                  \r\n            28      G      0.0           -6.711637E+00   0.0           -4.115828E-03   0.0            7.852575E+00                  \r\n            29      G      0.0           -2.765657E-06   0.0            9.521976E-08   0.0           -1.973347E-05                  \r\n            30      G      0.0            6.711634E+00   0.0            4.115792E-03   0.0           -7.852594E+00                  \r\n            31      G      7.285580E-01  -8.469142E-01   0.0           -1.805507E-01   0.0            3.701859E+00                  \r\n            32      G      1.457114E+00  -4.317856E-05   0.0            1.378303E-07   0.0           -6.490509E-06                  \r\n            33      G      7.285564E-01   8.468710E-01   0.0            1.805507E-01   0.0           -3.701865E+00                  \r\n            51      G      0.0            4.635235E-05   0.0           -2.691410E-09   0.0           -6.284938E-06                  \r\n            52      G      0.0            4.635235E-05   0.0           -2.691406E-09   0.0           -6.284938E-06                  \r\n            54      G      0.0            1.099298E-05   0.0            3.089063E-09   0.0           -1.343793E-05                  \r\n            55      G      0.0            1.099298E-05   0.0            3.089064E-09   0.0           -1.343793E-05                  \r\n            57      G      0.0           -4.342870E-06   0.0            3.315397E-09   0.0           -1.237747E-05                  \r\n            58      G      0.0           -4.342869E-06   0.0            3.315396E-09   0.0           -1.237747E-05                  \r\n            60      G      0.0           -1.119993E-05   0.0            2.168778E-09   0.0           -8.559026E-06                  \r\n            61      G      0.0           -1.119993E-05   0.0            2.168778E-09   0.0           -8.559026E-06                  \r\n            63      G      0.0           -1.378621E-05   0.0            7.340255E-10   0.0           -5.811686E-06                  \r\n            64      G      0.0           -1.378621E-05   0.0            7.340253E-10   0.0           -5.811686E-06                  \r\n            66      G      0.0           -1.378621E-05   0.0           -7.340264E-10   0.0           -5.811685E-06                  \r\n            67      G      0.0           -1.378621E-05   0.0           -7.340257E-10   0.0           -5.811686E-06                  \r\n            69      G      0.0           -1.119993E-05   0.0           -2.168780E-09   0.0           -8.559026E-06                  \r\n            70      G      0.0           -1.119993E-05   0.0           -2.168778E-09   0.0           -8.559026E-06                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            72      G      0.0           -4.342870E-06   0.0           -3.315399E-09   0.0           -1.237747E-05                  \r\n            73      G      0.0           -4.342869E-06   0.0           -3.315398E-09   0.0           -1.237747E-05                  \r\n            75      G      0.0            1.099298E-05   0.0           -3.089066E-09   0.0           -1.343793E-05                  \r\n            76      G      0.0            1.099298E-05   0.0           -3.089067E-09   0.0           -1.343793E-05                  \r\n            78      G      0.0            4.635234E-05   0.0            2.691408E-09   0.0           -6.284939E-06                  \r\n            79      G      0.0            4.635235E-05   0.0            2.691405E-09   0.0           -6.284939E-06                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               2          2.861937E+00         -6.261730E-01          1.466327E-01          3.596048E-01          1.992508E+00      \r\n               6          2.861936E+00         -6.261711E-01          1.466317E-01          3.596053E-01          1.992493E+00      \r\n              10          1.379271E+00         -6.287727E-01          1.092793E-01          2.706900E-01          2.000748E+00      \r\n              14          1.379271E+00         -6.287689E-01          1.092807E-01          2.706891E-01          2.000702E+00      \r\n              18          3.563799E-01         -6.280365E-01          6.697607E-02          1.672290E-01          1.998413E+00      \r\n              22          3.563799E-01         -6.280403E-01          6.697607E-02          1.672280E-01          1.998398E+00      \r\n              26         -2.278202E-01         -6.264133E-01          3.354645E-02          8.434850E-02          1.993263E+00      \r\n              30         -2.278202E-01         -6.264095E-01          3.354645E-02          8.434850E-02          1.993248E+00      \r\n              34         -4.804402E-01         -6.252975E-01          9.875119E-03          2.493440E-02          1.989723E+00      \r\n              38         -4.804402E-01         -6.252937E-01          9.875119E-03          2.493487E-02          1.989708E+00      \r\n              42         -4.804392E-01         -6.252956E-01         -9.868264E-03         -2.496348E-02          1.989719E+00      \r\n              46         -4.804391E-01         -6.252937E-01         -9.868026E-03         -2.496301E-02          1.989708E+00      \r\n              50         -2.278176E-01         -6.264114E-01         -3.353739E-02         -8.438629E-02          1.993256E+00      \r\n              54         -2.278175E-01         -6.264076E-01         -3.353691E-02         -8.438772E-02          1.993233E+00      \r\n              58          3.563823E-01         -6.280365E-01         -6.696260E-02         -1.672817E-01          1.998413E+00      \r\n              62          3.563822E-01         -6.280365E-01         -6.696355E-02         -1.672817E-01          1.998398E+00      \r\n              66          1.379270E+00         -6.287766E-01         -1.092653E-01         -2.707480E-01          2.000748E+00      \r\n              70          1.379270E+00         -6.287689E-01         -1.092657E-01         -2.707470E-01          2.000717E+00      \r\n              74          2.861925E+00         -6.261806E-01         -1.466241E-01         -3.596336E-01          1.992546E+00      \r\n              78          2.861925E+00         -6.261806E-01         -1.466231E-01         -3.596340E-01          1.992523E+00      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       2    1.510220E+00     -1.845371E+02   1.046941E+00  -2.400795E-01   -89.9259    1.047249E+00   -1.845374E+02   9.279232E+01 \r\n             0.0              -1.812177E+02   3.206729E-01  -7.000732E-02   -89.9779    3.207016E-01   -1.812177E+02   9.076919E+01 \r\n0       6    1.510220E+00     -1.845371E+02   1.046932E+00  -2.400784E-01   -89.9259    1.047249E+00   -1.845374E+02   9.279232E+01 \r\n             0.0              -1.812177E+02   3.206662E-01  -7.000732E-02   -89.9779    3.206940E-01   -1.812177E+02   9.076919E+01 \r\n0      10    1.510220E+00     -1.828081E+02   1.341500E+00  -1.349875E-01   -89.9580    1.341606E+00   -1.828082E+02   9.207488E+01 \r\n             0.0              -1.812083E+02   6.122163E-01  -8.239746E-03   -89.9974    6.122131E-01   -1.812083E+02   9.091026E+01 \r\n0      14    1.510220E+00     -1.828081E+02   1.341492E+00  -1.349892E-01   -89.9580    1.341591E+00   -1.828082E+02   9.207487E+01 \r\n             0.0              -1.812083E+02   6.122134E-01  -8.239746E-03   -89.9974    6.122131E-01   -1.812083E+02   9.091026E+01 \r\n0      18    1.510220E+00     -1.816152E+02   1.287123E+00  -6.114180E-02   -89.9808    1.287148E+00   -1.816152E+02   9.145118E+01 \r\n             0.0              -1.812018E+02   5.586939E-01   1.654053E-02    89.9948    5.587006E-01   -1.812018E+02   9.088027E+01 \r\n0      22    1.510220E+00     -1.816152E+02   1.287127E+00  -6.114180E-02   -89.9808    1.287148E+00   -1.816152E+02   9.145118E+01 \r\n             0.0              -1.812018E+02   5.586938E-01   1.654053E-02    89.9948    5.587006E-01   -1.812018E+02   9.088027E+01 \r\n0      26    1.510220E+00     -1.809340E+02   1.132877E+00  -2.096457E-02   -89.9934    1.132874E+00   -1.809340E+02   9.103343E+01 \r\n             0.0              -1.811982E+02   4.063300E-01   1.794434E-02    89.9943    4.063263E-01   -1.811982E+02   9.080228E+01 \r\n0      30    1.510220E+00     -1.809340E+02   1.132874E+00  -2.096457E-02   -89.9934    1.132874E+00   -1.809340E+02   9.103343E+01 \r\n             0.0              -1.811982E+02   4.063314E-01   1.794434E-02    89.9943    4.063263E-01   -1.811982E+02   9.080228E+01 \r\n0      34    1.510220E+00     -1.806394E+02   1.023880E+00  -4.251527E-03   -89.9987    1.023880E+00   -1.806394E+02   9.083163E+01 \r\n             0.0              -1.811966E+02   2.986272E-01   7.202148E-03    89.9977    2.986298E-01   -1.811966E+02   9.074762E+01 \r\n0      38    1.510220E+00     -1.806394E+02   1.023877E+00  -4.251527E-03   -89.9987    1.023880E+00   -1.806394E+02   9.083163E+01 \r\n             0.0              -1.811966E+02   2.986292E-01   7.202148E-03    89.9977    2.986298E-01   -1.811966E+02   9.074762E+01 \r\n0      42    1.510220E+00     -1.806394E+02   1.023878E+00   4.251206E-03    89.9987    1.023880E+00   -1.806394E+02   9.083163E+01 \r\n             0.0              -1.811966E+02   2.986272E-01  -7.194519E-03   -89.9977    2.986298E-01   -1.811966E+02   9.074762E+01 \r\n0      46    1.510220E+00     -1.806394E+02   1.023877E+00   4.250930E-03    89.9987    1.023880E+00   -1.806394E+02   9.083163E+01 \r\n             0.0              -1.811966E+02   2.986293E-01  -7.194519E-03   -89.9977    2.986298E-01   -1.811966E+02   9.074762E+01 \r\n0      50    1.510220E+00     -1.809340E+02   1.132874E+00   2.095407E-02    89.9934    1.132874E+00   -1.809340E+02   9.103343E+01 \r\n             0.0              -1.811982E+02   4.063300E-01  -1.794434E-02   -89.9943    4.063263E-01   -1.811982E+02   9.080228E+01 \r\n0      54    1.510220E+00     -1.809340E+02   1.132872E+00   2.095351E-02    89.9934    1.132874E+00   -1.809340E+02   9.103343E+01 \r\n             0.0              -1.811982E+02   4.063314E-01  -1.794434E-02   -89.9943    4.063263E-01   -1.811982E+02   9.080228E+01 \r\n0      58    1.510220E+00     -1.816152E+02   1.287123E+00   6.112617E-02    89.9809    1.287148E+00   -1.816152E+02   9.145118E+01 \r\n             0.0              -1.812018E+02   5.586940E-01  -1.654053E-02   -89.9948    5.587006E-01   -1.812018E+02   9.088027E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             STATIC SOLUTION                                                                                SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      62    1.510220E+00     -1.816152E+02   1.287123E+00   6.112728E-02    89.9809    1.287148E+00   -1.816152E+02   9.145118E+01 \r\n             0.0              -1.812018E+02   5.586938E-01  -1.654053E-02   -89.9948    5.587006E-01   -1.812018E+02   9.088027E+01 \r\n0      66    1.510220E+00     -1.828081E+02   1.341504E+00   1.350323E-01    89.9580    1.341606E+00   -1.828082E+02   9.207488E+01 \r\n             0.0              -1.812083E+02   6.122162E-01   8.300781E-03    89.9974    6.122131E-01   -1.812083E+02   9.091026E+01 \r\n0      70    1.510220E+00     -1.828081E+02   1.341492E+00   1.349718E-01    89.9580    1.341591E+00   -1.828082E+02   9.207487E+01 \r\n             0.0              -1.812083E+02   6.122134E-01   8.239746E-03    89.9974    6.122131E-01   -1.812083E+02   9.091026E+01 \r\n0      74    1.510220E+00     -1.845371E+02   1.046950E+00   2.400696E-01    89.9259    1.047264E+00   -1.845374E+02   9.279232E+01 \r\n             0.0              -1.812177E+02   3.206729E-01   7.000732E-02    89.9779    3.207016E-01   -1.812177E+02   9.076919E+01 \r\n0      78    1.510220E+00     -1.845371E+02   1.046943E+00   2.401295E-01    89.9259    1.047249E+00   -1.845374E+02   9.279231E+01 \r\n             0.0              -1.812177E+02   3.206661E-01   7.006836E-02    89.9779    3.206940E-01   -1.812177E+02   9.076919E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +Y,+X,-Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.153226E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       2   -   X0 = -8.711188E-01, Y0 = -0.298235E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    2   STATIC DEFORM.     1 - SUBCASE     100 - LOAD                                                                 \r\n                                                 ORIGIN      2  USED IN THIS PLOT                                                   \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   10     BBAR =   17\r\n                                        C =    9     CBAR =    0\r\n                                        R =   26\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH6 (N =   152)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                          E I G E N V A L U E   A N A L Y S I S   S U M M A R Y       (DETERMINANT METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        4\r\n0                                       NUMBER OF PASSES THROUGH STARTING POINTS . .        0\r\n0                                       NUMBER OF CRITERIA CHANGES . . . . . . . . .        0\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .        0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .       38\r\n0                                       NUMBER OF FAILURES TO ITERATE TO A ROOT  . .        0\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .        1*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . . 0.00E+00\r\n0                                                                              . . .        0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .        0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .        0\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                          E I G E N V A L U E   A N A L Y S I S   S U M M A R Y       (DETERMINANT METHOD)\r\n0                                        S W E P T   D E T E R M I N A N T   F U N C T I O N\r\n\r\n          STARTING POINT      LAMBDA         RADIAN FREQUENCY    CYCLIC FREQUENCY    DETERMINANT         SCALE FACTOR\r\n\r\n                   -1       1.000000E-01       3.162278E-01       5.032921E-02       1.485674E+00            731                    \r\n                    2       2.250000E-01       4.743416E-01       7.549381E-02       1.223334E+00            731                    \r\n                    3       4.000000E-01       6.324555E-01       1.006584E-01       9.258196E+00            730                    \r\n                    4       6.250000E-01       7.905694E-01       1.258230E-01       6.389823E+00            730                    \r\n                    5       9.000000E-01       9.486833E-01       1.509876E-01       3.973502E+00            730                    \r\n                    6       1.225000E+00       1.106797E+00       1.761522E-01       2.183683E+00            730                    \r\n                    7       1.600000E+00       1.264911E+00       2.013168E-01       1.025934E+00            730                    \r\n                    8       2.025000E+00       1.423025E+00       2.264814E-01       3.855352E+00            729                    \r\n                    9       2.500000E+00       1.581139E+00       2.516460E-01       9.731239E+00            728                    \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.942567E-01        9.971243E-01        1.586972E-01        0.0                 0.0                      \r\n        2         2        1.274364E+00        1.128877E+00        1.796664E-01        0.0                 0.0                      \r\n        3         3        2.006962E+00        1.416673E+00        2.254705E-01        0.0                 0.0                      \r\n        4         4        2.288906E+00        1.512913E+00        2.407876E-01        0.0                 0.0                      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            2.103514E-03   0.0            1.268178E-01   0.0                           \r\n             2      G      0.0            0.0            2.103012E-03   0.0            1.268178E-01   0.0                           \r\n             3      G      0.0            0.0            2.102520E-03   0.0            1.268178E-01   0.0                           \r\n             4      G      5.877410E-01   0.0            1.902699E-03   0.0            1.026051E-01   0.0                           \r\n             5      G      5.877410E-01   0.0            1.902293E-03   0.0            1.026052E-01   0.0                           \r\n             6      G      5.877410E-01   0.0            1.901895E-03   0.0            1.026052E-01   0.0                           \r\n             7      G      9.510040E-01   0.0            1.376679E-03   0.0            3.919343E-02   0.0                           \r\n             8      G      9.510040E-01   0.0            1.376523E-03   0.0            3.919343E-02   0.0                           \r\n             9      G      9.510040E-01   0.0            1.376371E-03   0.0            3.919344E-02   0.0                           \r\n            10      G      9.510117E-01   0.0            7.264555E-04   0.0           -3.919051E-02   0.0                           \r\n            11      G      9.510117E-01   0.0            7.266107E-04   0.0           -3.919052E-02   0.0                           \r\n            12      G      9.510117E-01   0.0            7.267627E-04   0.0           -3.919052E-02   0.0                           \r\n            13      G      5.877590E-01   0.0            2.004222E-04   0.0           -1.026042E-01   0.0                           \r\n            14      G      5.877590E-01   0.0            2.008281E-04   0.0           -1.026042E-01   0.0                           \r\n            15      G      5.877590E-01   0.0            2.012260E-04   0.0           -1.026042E-01   0.0                           \r\n            16      G     -2.063401E-08   0.0           -5.019139E-07   0.0           -1.268259E-01   0.0                           \r\n            17      G     -2.079521E-08   0.0            0.0            0.0           -1.268259E-01   0.0                           \r\n            18      G     -2.102140E-08   0.0            4.918746E-07   0.0           -1.268260E-01   0.0                           \r\n            19      G     -5.877590E-01   0.0            2.004222E-04   0.0           -1.026042E-01   0.0                           \r\n            20      G     -5.877590E-01   0.0            2.008284E-04   0.0           -1.026042E-01   0.0                           \r\n            21      G     -5.877591E-01   0.0            2.012264E-04   0.0           -1.026042E-01   0.0                           \r\n            22      G     -9.510117E-01   0.0            7.264562E-04   0.0           -3.919051E-02   0.0                           \r\n            23      G     -9.510117E-01   0.0            7.266111E-04   0.0           -3.919051E-02   0.0                           \r\n            24      G     -9.510117E-01   0.0            7.267630E-04   0.0           -3.919052E-02   0.0                           \r\n            25      G     -9.510040E-01   0.0            1.376679E-03   0.0            3.919343E-02   0.0                           \r\n            26      G     -9.510040E-01   0.0            1.376524E-03   0.0            3.919343E-02   0.0                           \r\n            27      G     -9.510040E-01   0.0            1.376372E-03   0.0            3.919344E-02   0.0                           \r\n            28      G     -5.877410E-01   0.0            1.902700E-03   0.0            1.026052E-01   0.0                           \r\n            29      G     -5.877410E-01   0.0            1.902294E-03   0.0            1.026052E-01   0.0                           \r\n            30      G     -5.877410E-01   0.0            1.901896E-03   0.0            1.026052E-01   0.0                           \r\n            31      G      0.0            0.0            2.103515E-03   0.0            1.268178E-01   0.0                           \r\n            32      G      0.0            0.0            2.103013E-03   0.0            1.268178E-01   0.0                           \r\n            33      G      0.0            0.0            2.102521E-03   0.0            1.268178E-01   0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.607036E-03   0.0           -1.924138E-01   0.0                           \r\n             2      G      0.0            0.0           -1.606392E-03   0.0           -1.924138E-01   0.0                           \r\n             3      G      0.0            0.0           -1.605806E-03   0.0           -1.924138E-01   0.0                           \r\n             4      G     -8.089851E-01   0.0           -9.447820E-04   0.0           -1.131079E-01   0.0                           \r\n             5      G     -8.089851E-01   0.0           -9.444001E-04   0.0           -1.131079E-01   0.0                           \r\n             6      G     -8.089852E-01   0.0           -9.440504E-04   0.0           -1.131080E-01   0.0                           \r\n             7      G     -9.510354E-01   0.0            4.963701E-04   0.0            5.946127E-02   0.0                           \r\n             8      G     -9.510355E-01   0.0            4.961950E-04   0.0            5.946129E-02   0.0                           \r\n             9      G     -9.510355E-01   0.0            4.960029E-04   0.0            5.946127E-02   0.0                           \r\n            10      G     -3.090069E-01   0.0            1.528134E-03   0.0            1.830085E-01   0.0                           \r\n            11      G     -3.090069E-01   0.0            1.527561E-03   0.0            1.830085E-01   0.0                           \r\n            12      G     -3.090069E-01   0.0            1.526980E-03   0.0            1.830085E-01   0.0                           \r\n            13      G      5.877873E-01   0.0            1.299906E-03   0.0            1.556763E-01   0.0                           \r\n            14      G      5.877873E-01   0.0            1.299428E-03   0.0            1.556763E-01   0.0                           \r\n            15      G      5.877873E-01   0.0            1.298925E-03   0.0            1.556763E-01   0.0                           \r\n            16      G      1.000000E+00   0.0           -1.481932E-07   0.0            6.436784E-07   0.0                           \r\n            17      G      1.000000E+00   0.0            0.0            0.0            6.604184E-07   0.0                           \r\n            18      G      1.000000E+00   0.0           -1.459890E-07   0.0            6.430514E-07   0.0                           \r\n            19      G      5.877943E-01   0.0           -1.300261E-03   0.0           -1.556748E-01   0.0                           \r\n            20      G      5.877943E-01   0.0           -1.299734E-03   0.0           -1.556748E-01   0.0                           \r\n            21      G      5.877944E-01   0.0           -1.299265E-03   0.0           -1.556748E-01   0.0                           \r\n            22      G     -3.089919E-01   0.0           -1.528616E-03   0.0           -1.830070E-01   0.0                           \r\n            23      G     -3.089920E-01   0.0           -1.528000E-03   0.0           -1.830070E-01   0.0                           \r\n            24      G     -3.089920E-01   0.0           -1.527440E-03   0.0           -1.830070E-01   0.0                           \r\n            25      G     -9.510153E-01   0.0           -4.969612E-04   0.0           -5.946098E-02   0.0                           \r\n            26      G     -9.510153E-01   0.0           -4.967392E-04   0.0           -5.946095E-02   0.0                           \r\n            27      G     -9.510153E-01   0.0           -4.965668E-04   0.0           -5.946099E-02   0.0                           \r\n            28      G     -8.089694E-01   0.0            9.440959E-04   0.0            1.131057E-01   0.0                           \r\n            29      G     -8.089695E-01   0.0            9.437736E-04   0.0            1.131057E-01   0.0                           \r\n            30      G     -8.089695E-01   0.0            9.434088E-04   0.0            1.131057E-01   0.0                           \r\n            31      G      0.0            0.0            1.606256E-03   0.0            1.924100E-01   0.0                           \r\n            32      G      0.0            0.0            1.605737E-03   0.0            1.924100E-01   0.0                           \r\n            33      G      0.0            0.0            1.605133E-03   0.0            1.924100E-01   0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.467975E-06   0.0           -2.737300E-01   0.0                           \r\n             2      G      0.0            0.0           -1.031808E-06   0.0           -2.737291E-01   0.0                           \r\n             3      G      0.0            0.0            8.542280E-07   0.0           -2.737292E-01   0.0                           \r\n             4      G     -9.978074E-01   0.0            1.598962E-03   0.0           -8.460298E-02   0.0                           \r\n             5      G     -9.978067E-01   0.0            1.598134E-03   0.0           -8.460262E-02   0.0                           \r\n             6      G     -9.978057E-01   0.0            1.598105E-03   0.0           -8.460285E-02   0.0                           \r\n             7      G     -6.166910E-01   0.0            4.185312E-03   0.0            2.214729E-01   0.0                           \r\n             8      G     -6.166904E-01   0.0            4.185861E-03   0.0            2.214731E-01   0.0                           \r\n             9      G     -6.166896E-01   0.0            4.185587E-03   0.0            2.214737E-01   0.0                           \r\n            10      G      6.167768E-01   0.0            4.187398E-03   0.0            2.214959E-01   0.0                           \r\n            11      G      6.167747E-01   0.0            4.185664E-03   0.0            2.214960E-01   0.0                           \r\n            12      G      6.167711E-01   0.0            4.184884E-03   0.0            2.214956E-01   0.0                           \r\n            13      G      9.980589E-01   0.0            1.597021E-03   0.0           -8.456618E-02   0.0                           \r\n            14      G      9.980611E-01   0.0            1.598786E-03   0.0           -8.456624E-02   0.0                           \r\n            15      G      9.980653E-01   0.0            1.599383E-03   0.0           -8.456688E-02   0.0                           \r\n            16      G      3.399757E-04   0.0           -1.418346E-06   0.0           -2.737325E-01   0.0                           \r\n            17      G      3.400775E-04   0.0            0.0            0.0           -2.737317E-01   0.0                           \r\n            18      G      3.406673E-04   0.0           -5.202645E-07   0.0           -2.737309E-01   0.0                           \r\n            19      G     -9.974011E-01   0.0            1.596157E-03   0.0           -8.457701E-02   0.0                           \r\n            20      G     -9.974040E-01   0.0            1.594875E-03   0.0           -8.457707E-02   0.0                           \r\n            21      G     -9.974084E-01   0.0            1.594560E-03   0.0           -8.457735E-02   0.0                           \r\n            22      G     -6.162247E-01   0.0            4.178107E-03   0.0            2.214667E-01   0.0                           \r\n            23      G     -6.162219E-01   0.0            4.179458E-03   0.0            2.214662E-01   0.0                           \r\n            24      G     -6.162161E-01   0.0            4.179474E-03   0.0            2.214668E-01   0.0                           \r\n            25      G      6.171162E-01   0.0            4.178337E-03   0.0            2.214530E-01   0.0                           \r\n            26      G      6.171145E-01   0.0            4.175818E-03   0.0            2.214529E-01   0.0                           \r\n            27      G      6.171076E-01   0.0            4.174941E-03   0.0            2.214532E-01   0.0                           \r\n            28      G      9.980825E-01   0.0            1.581858E-03   0.0           -8.464672E-02   0.0                           \r\n            29      G      9.980856E-01   0.0            1.585879E-03   0.0           -8.464789E-02   0.0                           \r\n            30      G      9.980934E-01   0.0            1.587645E-03   0.0           -8.464823E-02   0.0                           \r\n            31      G      0.0            0.0           -2.032984E-05   0.0           -2.737884E-01   0.0                           \r\n            32      G      0.0            0.0           -1.518969E-05   0.0           -2.737905E-01   0.0                           \r\n            33      G      0.0            0.0           -1.454676E-05   0.0           -2.737876E-01   0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            5.270305E-04   0.0            6.298809E-02   0.0                           \r\n             2      G      0.0            0.0            5.267697E-04   0.0            6.298809E-02   0.0                           \r\n             3      G      0.0            0.0            5.264718E-04   0.0            6.298810E-02   0.0                           \r\n             4      G      3.090051E-01   0.0            5.014364E-04   0.0            5.992024E-02   0.0                           \r\n             5      G      3.090051E-01   0.0            5.011834E-04   0.0            5.992026E-02   0.0                           \r\n             6      G      3.090051E-01   0.0            5.009151E-04   0.0            5.992026E-02   0.0                           \r\n             7      G      5.878126E-01   0.0            4.265758E-04   0.0            5.097474E-02   0.0                           \r\n             8      G      5.878126E-01   0.0            4.263650E-04   0.0            5.097477E-02   0.0                           \r\n             9      G      5.878126E-01   0.0            4.261355E-04   0.0            5.097475E-02   0.0                           \r\n            10      G      8.090619E-01   0.0            3.098185E-04   0.0            3.702737E-02   0.0                           \r\n            11      G      8.090619E-01   0.0            3.096733E-04   0.0            3.702739E-02   0.0                           \r\n            12      G      8.090619E-01   0.0            3.095030E-04   0.0            3.702736E-02   0.0                           \r\n            13      G      9.510751E-01   0.0            1.627541E-04   0.0            1.946030E-02   0.0                           \r\n            14      G      9.510752E-01   0.0            1.626991E-04   0.0            1.946032E-02   0.0                           \r\n            15      G      9.510753E-01   0.0            1.625937E-04   0.0            1.946030E-02   0.0                           \r\n            16      G      9.999999E-01   0.0           -2.423859E-07   0.0            6.862381E-07   0.0                           \r\n            17      G      1.000000E+00   0.0            0.0            0.0            7.083275E-07   0.0                           \r\n            18      G      1.000000E+00   0.0           -2.409613E-07   0.0            6.906267E-07   0.0                           \r\n            19      G      9.510815E-01   0.0           -1.633495E-04   0.0           -1.945928E-02   0.0                           \r\n            20      G      9.510815E-01   0.0           -1.632268E-04   0.0           -1.945926E-02   0.0                           \r\n            21      G      9.510816E-01   0.0           -1.631730E-04   0.0           -1.945929E-02   0.0                           \r\n            22      G      8.090719E-01   0.0           -3.106513E-04   0.0           -3.702703E-02   0.0                           \r\n            23      G      8.090720E-01   0.0           -3.104477E-04   0.0           -3.702701E-02   0.0                           \r\n            24      G      8.090720E-01   0.0           -3.103102E-04   0.0           -3.702705E-02   0.0                           \r\n            25      G      5.878226E-01   0.0           -4.275977E-04   0.0           -5.097522E-02   0.0                           \r\n            26      G      5.878225E-01   0.0           -4.273202E-04   0.0           -5.097518E-02   0.0                           \r\n            27      G      5.878226E-01   0.0           -4.271231E-04   0.0           -5.097523E-02   0.0                           \r\n            28      G      3.090113E-01   0.0           -5.025998E-04   0.0           -5.992134E-02   0.0                           \r\n            29      G      3.090113E-01   0.0           -5.022539E-04   0.0           -5.992129E-02   0.0                           \r\n            30      G      3.090113E-01   0.0           -5.020134E-04   0.0           -5.992138E-02   0.0                           \r\n            31      G      0.0            0.0           -5.283404E-04   0.0           -6.298957E-02   0.0                           \r\n            32      G      0.0            0.0           -5.278593E-04   0.0           -6.298949E-02   0.0                           \r\n            33      G      0.0            0.0           -5.275884E-04   0.0           -6.298959E-02   0.0                           \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.151739E+01  -9.512089E+01   0.0           -2.152923E-01   0.0            1.709819E+01                  \r\n             2      G     -1.030352E+02  -1.681432E-03   0.0           -2.546583E-05   0.0           -1.458016E-03                  \r\n             3      G     -5.151759E+01   9.511919E+01   0.0            2.153099E-01   0.0           -1.709900E+01                  \r\n             4      G      0.0           -8.923259E+02   0.0           -3.513033E-01   0.0            3.410562E+00                  \r\n             5      G      0.0           -1.004825E-03   0.0            8.013524E-05   0.0           -6.947672E-04                  \r\n             6      G      0.0            8.923250E+02   0.0            3.512334E-01   0.0           -3.418499E+00                  \r\n             7      G      0.0           -1.443839E+03   0.0           -1.339381E-01   0.0            5.517437E+00                  \r\n             8      G      0.0           -1.674777E-03   0.0           -1.843812E-05   0.0            1.036898E-03                  \r\n             9      G      0.0            1.443837E+03   0.0            1.339743E-01   0.0           -5.527729E+00                  \r\n            10      G      0.0           -1.443850E+03   0.0            1.339640E-01   0.0            5.514638E+00                  \r\n            11      G      0.0           -1.673729E-03   0.0            1.837776E-05   0.0            1.038515E-03                  \r\n            12      G      0.0            1.443848E+03   0.0           -1.340001E-01   0.0           -5.524932E+00                  \r\n            13      G      0.0           -8.923505E+02   0.0            3.503241E-01   0.0            3.406302E+00                  \r\n            14      G      0.0           -1.006998E-03   0.0           -8.005178E-05   0.0           -6.950067E-04                  \r\n            15      G      0.0            8.923497E+02   0.0           -3.502543E-01   0.0           -3.414252E+00                  \r\n            16      G      0.0            2.804257E-05   0.0            4.329243E-01   0.0           -2.610510E-04                  \r\n            17      G      0.0            4.276452E-05  -1.573016E+00  -2.741954E-06   0.0           -2.446164E-03                  \r\n            18      G      0.0           -5.339286E-05   0.0           -4.329326E-01   0.0            6.799196E-04                  \r\n            19      G      0.0            8.923506E+02   0.0            3.502126E-01   0.0           -3.412596E+00                  \r\n            20      G      0.0            9.631536E-04   0.0            1.141504E-04   0.0            3.430370E-03                  \r\n            21      G      0.0           -8.923497E+02   0.0           -3.503367E-01   0.0            3.411569E+00                  \r\n            22      G      0.0            1.443850E+03   0.0            1.340715E-01   0.0           -5.520417E+00                  \r\n            23      G      0.0            1.576579E-03   0.0           -1.055878E-04   0.0            4.340428E-03                  \r\n            24      G      0.0           -1.443848E+03   0.0           -1.339573E-01   0.0            5.523345E+00                  \r\n            25      G      0.0            1.443839E+03   0.0           -1.339349E-01   0.0           -5.517201E+00                  \r\n            26      G      0.0            1.674688E-03   0.0           -1.855813E-05   0.0           -1.033317E-03                  \r\n            27      G      0.0           -1.443837E+03   0.0            1.339751E-01   0.0            5.527812E+00                  \r\n            28      G      0.0            8.923259E+02   0.0           -3.513280E-01   0.0           -3.410562E+00                  \r\n            29      G      0.0            1.012306E-03   0.0            8.215639E-05   0.0            4.516013E-04                  \r\n            30      G      0.0           -8.923251E+02   0.0            3.512419E-01   0.0            3.418742E+00                  \r\n            31      G      5.151764E+01   9.512089E+01   0.0           -2.152885E-01   0.0           -1.709851E+01                  \r\n            32      G      1.030350E+02   1.673224E-03   0.0           -3.391531E-05   0.0            1.701188E-03                  \r\n            33      G      5.151734E+01  -9.511918E+01   0.0            2.153184E-01   0.0            1.709876E+01                  \r\n            51      G      0.0            8.151658E-04   0.0            1.946836E-06   0.0           -2.516478E-03                  \r\n            52      G      0.0            8.194625E-04   0.0            1.946933E-06   0.0           -1.941667E-03                  \r\n            54      G      0.0            2.065063E-03   0.0            2.626915E-06   0.0           -1.648181E-03                  \r\n            55      G      0.0            2.167285E-03   0.0            1.199145E-06   0.0           -6.301333E-03                  \r\n            57      G      0.0            2.505668E-03   0.0           -3.087557E-09   0.0            5.868427E-04                  \r\n            58      G      0.0            2.674341E-03   0.0           -3.168942E-09   0.0           -7.569350E-03                  \r\n            60      G      0.0            2.072071E-03   0.0           -2.635500E-06   0.0           -2.223229E-03                  \r\n            61      G      0.0            2.159695E-03   0.0           -1.180900E-06   0.0           -5.726505E-03                  \r\n            63      G      0.0            8.086774E-04   0.0           -1.940441E-06   0.0           -1.952688E-03                  \r\n            64      G      0.0            8.285433E-04   0.0           -1.915145E-06   0.0           -2.532208E-03                  \r\n            66      G      0.0           -8.175825E-04   0.0           -1.920625E-06   0.0            2.505590E-03                  \r\n            67      G      0.0           -7.569175E-04   0.0           -3.350004E-06   0.0           -2.151549E-03                  \r\n            69      G      0.0           -2.060980E-03   0.0           -2.621436E-06   0.0            1.648252E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            70      G      0.0           -2.101803E-03   0.0            2.353162E-07   0.0            2.223556E-03                  \r\n            72      G      0.0           -2.509669E-03   0.0           -2.297012E-09   0.0           -5.867988E-04                  \r\n            73      G      0.0           -2.675431E-03   0.0           -2.352241E-09   0.0            7.569362E-03                  \r\n            75      G      0.0           -2.068043E-03   0.0            2.640701E-06   0.0            2.223071E-03                  \r\n            76      G      0.0           -2.165102E-03   0.0            1.199233E-06   0.0            6.301309E-03                  \r\n            78      G      0.0           -8.085474E-04   0.0            1.961059E-06   0.0            1.941548E-03                  \r\n            79      G      0.0           -8.209177E-04   0.0            1.948887E-06   0.0            1.941683E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.724807E+02   1.383872E+02   0.0            9.200034E-01   0.0           -6.160670E+01                  \r\n             2      G      3.449598E+02   4.669885E-03   0.0           -2.888818E-05   0.0            1.230469E-04                  \r\n             3      G      1.724791E+02  -1.383825E+02   0.0           -9.200504E-01   0.0            6.160488E+01                  \r\n             4      G      0.0            1.184418E+03   0.0            1.086015E+00   0.0           -1.228124E+01                  \r\n             5      G      0.0            2.135554E-03   0.0           -3.592284E-05   0.0           -1.270461E-03                  \r\n             6      G      0.0           -1.184416E+03   0.0           -1.086040E+00   0.0            1.227709E+01                  \r\n             7      G      0.0            1.392387E+03   0.0           -5.702494E-01   0.0           -1.443193E+01                  \r\n             8      G      0.0            2.494141E-03   0.0           -4.384040E-05   0.0           -1.115506E-03                  \r\n             9      G      0.0           -1.392385E+03   0.0            5.703600E-01   0.0            1.443618E+01                  \r\n            10      G      0.0            4.524082E+02   0.0           -1.754524E+00   0.0           -4.687024E+00                  \r\n            11      G      0.0            7.871221E-04   0.0            1.077142E-04   0.0            7.383497E-04                  \r\n            12      G      0.0           -4.524075E+02   0.0            1.754549E+00   0.0            4.690809E+00                  \r\n            13      G      0.0           -8.605668E+02   0.0           -1.491880E+00   0.0            8.918591E+00                  \r\n            14      G      0.0           -1.473726E-03   0.0           -8.549919E-05   0.0           -2.707567E-03                  \r\n            15      G      0.0            8.605654E+02   0.0            1.492008E+00   0.0           -8.918765E+00                  \r\n            16      G      0.0           -1.464078E+03   0.0           -6.136116E-05   0.0            1.516661E+01                  \r\n            17      G      0.0           -2.480147E-03   8.696128E-03   1.330978E-04   0.0           -4.870709E-03                  \r\n            18      G      0.0            1.464075E+03   0.0           -7.294287E-05   0.0           -1.517400E+01                  \r\n            19      G      0.0           -8.605775E+02   0.0            1.492062E+00   0.0            8.913568E+00                  \r\n            20      G      0.0           -1.565820E-03   0.0           -7.501164E-05   0.0            2.253971E-04                  \r\n            21      G      0.0            8.605761E+02   0.0           -1.492068E+00   0.0           -8.919708E+00                  \r\n            22      G      0.0            4.523852E+02   0.0            1.754520E+00   0.0           -4.690655E+00                  \r\n            23      G      0.0            7.665810E-04   0.0            4.408584E-05   0.0            1.913961E-03                  \r\n            24      G      0.0           -4.523844E+02   0.0           -1.754664E+00   0.0            4.686411E+00                  \r\n            25      G      0.0            1.392357E+03   0.0            5.703768E-01   0.0           -1.443394E+01                  \r\n            26      G      0.0            2.232684E-03   0.0           -6.160218E-06   0.0            1.039407E-02                  \r\n            27      G      0.0           -1.392354E+03   0.0           -5.703666E-01   0.0            1.443389E+01                  \r\n            28      G      0.0            1.184395E+03   0.0           -1.085884E+00   0.0           -1.227909E+01                  \r\n            29      G      0.0            1.879568E-03   0.0           -6.925801E-05   0.0            4.930902E-03                  \r\n            30      G      0.0           -1.184393E+03   0.0            1.085978E+00   0.0            1.228139E+01                  \r\n            31      G      1.724773E+02   1.383853E+02   0.0           -9.199414E-01   0.0           -6.160427E+01                  \r\n            32      G      3.449522E+02   5.285613E-03   0.0            4.175208E-05   0.0           -3.651533E-04                  \r\n            33      G      1.724783E+02  -1.383801E+02   0.0            9.199511E-01   0.0            6.160582E+01                  \r\n            51      G      0.0           -2.842694E-03   0.0           -1.216082E-05   0.0           -1.546403E-03                  \r\n            52      G      0.0           -2.984679E-03   0.0           -1.355202E-05   0.0           -2.172872E-03                  \r\n            54      G      0.0           -6.287269E-03   0.0           -1.948820E-06   0.0           -1.870427E-03                  \r\n            55      G      0.0           -6.411961E-03   0.0            1.059668E-06   0.0            4.303707E-04                  \r\n            57      G      0.0           -4.527387E-03   0.0            9.767738E-06   0.0           -6.797924E-05                  \r\n            58      G      0.0           -4.649915E-03   0.0            8.519682E-06   0.0            4.010537E-03                  \r\n            60      G      0.0            9.662696E-04   0.0            1.167418E-05   0.0           -1.184640E-04                  \r\n            61      G      0.0            1.017027E-03   0.0            1.326481E-05   0.0            2.808435E-03                  \r\n            63      G      0.0            5.017204E-03   0.0            5.222425E-06   0.0           -6.209748E-03                  \r\n            64      G      0.0            6.638744E-03   0.0            4.145451E-06   0.0           -1.818210E-03                  \r\n            66      G      0.0            6.561042E-03   0.0           -5.598053E-06   0.0           -5.942941E-03                  \r\n            67      G      0.0            5.030558E-03   0.0           -3.787279E-06   0.0           -2.181135E-03                  \r\n            69      G      0.0            1.049502E-03   0.0           -1.259526E-05   0.0           -3.307767E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            70      G      0.0            9.844563E-04   0.0           -1.452181E-05   0.0           -1.187534E-04                  \r\n            72      G      0.0           -4.580532E-03   0.0           -7.862283E-06   0.0            1.683613E-03                  \r\n            73      G      0.0           -4.606392E-03   0.0           -6.870033E-06   0.0            1.082454E-03                  \r\n            75      G      0.0           -6.441772E-03   0.0            2.810605E-07   0.0            3.070567E-03                  \r\n            76      G      0.0           -6.547184E-03   0.0            2.004308E-06   0.0            6.861465E-03                  \r\n            78      G      0.0           -3.244878E-03   0.0            1.187208E-05   0.0           -2.116924E-03                  \r\n            79      G      0.0           -3.071576E-03   0.0            1.080584E-05   0.0            4.257780E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.168904E+02   1.853410E+02   0.0            2.971540E+00   0.0           -1.668986E+02                  \r\n             2      G      8.338587E+02   1.479795E-02   0.0           -3.209854E-04   0.0            1.314251E-02                  \r\n             3      G      4.169630E+02  -1.853430E+02   0.0           -2.969919E+00   0.0            1.669733E+02                  \r\n             4      G      0.0            1.387318E+03   0.0            1.842751E+00   0.0           -3.337969E+01                  \r\n             5      G      0.0           -1.137435E-02   0.0           -2.247771E-05   0.0            1.403733E-01                  \r\n             6      G      0.0           -1.387305E+03   0.0           -1.842795E+00   0.0            3.348648E+01                  \r\n             7      G      0.0            8.574156E+02   0.0           -4.815344E+00   0.0           -2.064734E+01                  \r\n             8      G      0.0            5.727150E-03   0.0           -1.388849E-03   0.0            5.487861E-02                  \r\n             9      G      0.0           -8.574184E+02   0.0            4.815372E+00   0.0            2.063581E+01                  \r\n            10      G      0.0           -8.575703E+02   0.0           -4.814983E+00   0.0            2.061589E+01                  \r\n            11      G      0.0           -4.703111E-03   0.0            1.503313E-03   0.0           -1.260118E-01                  \r\n            12      G      0.0            8.575733E+02   0.0            4.815355E+00   0.0           -2.076429E+01                  \r\n            13      G      0.0           -1.387700E+03   0.0            1.839861E+00   0.0            3.347725E+01                  \r\n            14      G      0.0           -2.649190E-03   0.0            1.139363E-03   0.0            2.066029E-01                  \r\n            15      G      0.0            1.387690E+03   0.0           -1.840345E+00   0.0           -3.327956E+01                  \r\n            16      G      0.0           -5.215437E-01   0.0            5.950342E+00   0.0           -1.384961E-02                  \r\n            17      G      0.0            1.983902E-03  -7.178716E+00  -2.108075E-03   0.0            4.850268E-02                  \r\n            18      G      0.0            5.316386E-01   0.0           -5.950997E+00   0.0           -1.010795E-02                  \r\n            19      G      0.0            1.386675E+03   0.0            1.838534E+00   0.0           -3.349755E+01                  \r\n            20      G      0.0           -1.416982E-03   0.0            1.230698E-03   0.0           -1.722870E-01                  \r\n            21      G      0.0           -1.386673E+03   0.0           -1.837918E+00   0.0            3.329222E+01                  \r\n            22      G      0.0            8.567114E+02   0.0           -4.812680E+00   0.0           -2.059933E+01                  \r\n            23      G      0.0            5.249341E-03   0.0           -1.865519E-04   0.0            1.843509E-01                  \r\n            24      G      0.0           -8.567170E+02   0.0            4.812961E+00   0.0            2.077206E+01                  \r\n            25      G      0.0           -8.580859E+02   0.0           -4.817292E+00   0.0            2.071118E+01                  \r\n            26      G      0.0           -1.290868E-02   0.0            1.963044E-03   0.0           -8.275748E-02                  \r\n            27      G      0.0            8.580893E+02   0.0            4.817623E+00   0.0           -2.081314E+01                  \r\n            28      G      0.0           -1.387735E+03   0.0            1.843941E+00   0.0            3.358559E+01                  \r\n            29      G      0.0           -1.007438E-02   0.0            1.328236E-03   0.0            4.445985E-01                  \r\n            30      G      0.0            1.387710E+03   0.0           -1.844952E+00   0.0           -3.322711E+01                  \r\n            31      G     -4.170731E+02  -1.853687E+02   0.0            2.967347E+00   0.0            1.670393E+02                  \r\n            32      G     -8.339760E+02   1.060557E-02   0.0           -2.128851E-03   0.0            1.137156E-01                  \r\n            33      G     -4.169543E+02   1.853952E+02   0.0           -2.968699E+00   0.0           -1.668886E+02                  \r\n            51      G      0.0           -4.042408E-03   0.0           -2.640697E-05   0.0            8.836566E-02                  \r\n            52      G      0.0           -1.157413E-04   0.0           -1.683100E-05   0.0            9.324049E-02                  \r\n            54      G      0.0           -2.756771E-02   0.0            1.225725E-05   0.0            1.117314E-01                  \r\n            55      G      0.0           -1.696023E-02   0.0            8.133161E-06   0.0            6.667987E-02                  \r\n            57      G      0.0            1.570274E-02   0.0           -1.107086E-05   0.0           -8.997647E-02                  \r\n            58      G      0.0            5.239275E-03   0.0           -5.425399E-05   0.0           -1.164315E-01                  \r\n            60      G      0.0           -4.886926E-03   0.0            1.188874E-04   0.0            1.877348E-02                  \r\n            61      G      0.0            7.910040E-03   0.0            2.054431E-04   0.0            4.994138E-02                  \r\n            63      G      0.0            1.123046E-02   0.0           -9.735100E-05   0.0            8.788392E-02                  \r\n            64      G      0.0            1.400476E-02   0.0           -1.280467E-04   0.0            2.085885E-01                  \r\n            66      G      0.0            8.363220E-03   0.0           -1.170544E-04   0.0           -1.231026E-01                  \r\n            67      G      0.0           -8.959696E-03   0.0           -1.620770E-04   0.0           -1.724387E-01                  \r\n            69      G      0.0           -3.402015E-02   0.0            1.556109E-04   0.0            2.711485E-02                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            70      G      0.0           -2.010484E-02   0.0            2.617985E-04   0.0            3.702072E-02                  \r\n            72      G      0.0            2.339388E-02   0.0           -5.544891E-05   0.0            4.438609E-02                  \r\n            73      G      0.0            6.341243E-03   0.0           -2.544868E-04   0.0           -4.294167E-02                  \r\n            75      G      0.0           -2.604860E-02   0.0            1.329270E-04   0.0            1.694770E-01                  \r\n            76      G      0.0           -7.083613E-04   0.0            3.661375E-04   0.0            9.979094E-02                  \r\n            78      G      0.0           -5.659467E-04   0.0           -1.170169E-04   0.0            2.824205E-01                  \r\n            79      G      0.0            1.256758E-02   0.0           -2.343780E-04   0.0            2.760761E-01                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -5.935836E+00  -4.834173E+01   0.0           -2.379603E-02   0.0            2.091895E+00                  \r\n             2      G     -1.187304E+01  -3.455385E-04   0.0           -1.003417E-05   0.0           -6.054394E-04                  \r\n             3      G     -5.936314E+00   4.834141E+01   0.0            2.379492E-02   0.0           -2.092748E+00                  \r\n             4      G      0.0           -4.793761E+02   0.0           -4.960643E-02   0.0            1.043530E+00                  \r\n             5      G      0.0           -1.572519E-04   0.0           -2.833289E-05   0.0           -3.261122E-03                  \r\n             6      G      0.0            4.793759E+02   0.0            4.962762E-02   0.0           -1.046372E+00                  \r\n             7      G      0.0           -9.118909E+02   0.0           -4.167990E-02   0.0            1.986483E+00                  \r\n             8      G      0.0           -3.589398E-04   0.0            9.540900E-05   0.0           -8.313623E-04                  \r\n             9      G      0.0            9.118906E+02   0.0            4.159953E-02   0.0           -1.994615E+00                  \r\n            10      G      0.0           -1.255120E+03   0.0           -2.974683E-02   0.0            2.735067E+00                  \r\n            11      G      0.0           -5.529624E-04   0.0           -1.884354E-05   0.0            2.077497E-03                  \r\n            12      G      0.0            1.255119E+03   0.0            2.978536E-02   0.0           -2.743035E+00                  \r\n            13      G      0.0           -1.475436E+03   0.0           -1.527792E-02   0.0            3.216247E+00                  \r\n            14      G      0.0           -5.255133E-04   0.0           -1.234321E-04   0.0           -3.939587E-03                  \r\n            15      G      0.0            1.475435E+03   0.0            1.539849E-02   0.0           -3.215534E+00                  \r\n            16      G      0.0           -1.551338E+03   0.0            1.381954E-05   0.0            3.382920E+00                  \r\n            17      G      0.0           -3.796456E-04   1.459014E-02   8.208985E-08   0.0           -1.147663E-02                  \r\n            18      G      0.0            1.551338E+03   0.0           -3.094425E-05   0.0           -3.379137E+00                  \r\n            19      G      0.0           -1.475445E+03   0.0            1.545610E-02   0.0            3.216586E+00                  \r\n            20      G      0.0           -4.660234E-04   0.0           -2.139458E-06   0.0           -9.523172E-03                  \r\n            21      G      0.0            1.475444E+03   0.0           -1.544771E-02   0.0           -3.215160E+00                  \r\n            22      G      0.0           -1.255135E+03   0.0            2.979660E-02   0.0            2.738287E+00                  \r\n            23      G      0.0           -3.986416E-04   0.0            3.527781E-05   0.0           -8.506608E-03                  \r\n            24      G      0.0            1.255134E+03   0.0           -2.986903E-02   0.0           -2.737899E+00                  \r\n            25      G      0.0           -9.119060E+02   0.0            4.177605E-02   0.0            1.984397E+00                  \r\n            26      G      0.0           -3.854358E-04   0.0            8.900100E-05   0.0           -3.160443E-03                  \r\n            27      G      0.0            9.119057E+02   0.0           -4.185188E-02   0.0           -1.990361E+00                  \r\n            28      G      0.0           -4.793858E+02   0.0            4.974852E-02   0.0            1.042770E+00                  \r\n            29      G      0.0           -4.499409E-04   0.0           -3.791756E-06   0.0           -9.445386E-04                  \r\n            30      G      0.0            4.793854E+02   0.0           -4.977160E-02   0.0           -1.047446E+00                  \r\n            31      G     -5.934807E+00  -4.834152E+01   0.0            2.389179E-02   0.0            2.091500E+00                  \r\n            32      G     -1.187212E+01   7.143278E-04   0.0            1.112124E-05   0.0           -5.906069E-04                  \r\n            33      G     -5.935585E+00   4.834216E+01   0.0           -2.388966E-02   0.0           -2.092856E+00                  \r\n            51      G      0.0            1.562650E-04   0.0            3.761853E-07   0.0           -2.428897E-03                  \r\n            52      G      0.0           -5.859256E-06   0.0            4.622574E-07   0.0           -4.151185E-04                  \r\n            54      G      0.0            2.981425E-04   0.0            2.855491E-07   0.0           -4.285875E-03                  \r\n            55      G      0.0            2.973891E-04   0.0            4.462568E-07   0.0           -2.561293E-03                  \r\n            57      G      0.0            4.507956E-04   0.0            1.853114E-07   0.0           -5.492727E-03                  \r\n            58      G      0.0            4.200319E-04   0.0            1.837554E-06   0.0           -8.403626E-04                  \r\n            60      G      0.0            4.613803E-04   0.0            1.491296E-06   0.0           -3.204935E-03                  \r\n            61      G      0.0            5.624488E-04   0.0            3.054936E-07   0.0            2.962702E-04                  \r\n            63      G      0.0           -7.841988E-04   0.0           -2.267871E-07   0.0            4.042108E-04                  \r\n            64      G      0.0            1.993825E-03   0.0           -1.099233E-06   0.0           -4.369928E-03                  \r\n            66      G      0.0            1.890915E-03   0.0           -1.789273E-06   0.0           -4.030226E-03                  \r\n            67      G      0.0           -7.102739E-04   0.0            1.654755E-06   0.0           -3.191480E-03                  \r\n            69      G      0.0            5.232886E-04   0.0            1.090840E-06   0.0           -3.493113E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            70      G      0.0            4.853662E-04   0.0           -1.452566E-06   0.0           -1.911838E-03                  \r\n            72      G      0.0            4.100215E-04   0.0           -3.353915E-06   0.0           -6.354652E-03                  \r\n            73      G      0.0            4.320548E-04   0.0            1.315033E-06   0.0           -1.990293E-03                  \r\n            75      G      0.0            1.705022E-04   0.0            1.502320E-06   0.0           -6.610559E-03                  \r\n            76      G      0.0            2.109913E-04   0.0           -2.290887E-06   0.0            1.490172E-03                  \r\n            78      G      0.0           -6.501492E-04   0.0           -1.614463E-06   0.0           -2.106073E-03                  \r\n            79      G      0.0            1.058083E-05   0.0            6.213126E-07   0.0           -1.591625E-03                  \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               2          6.304925E+01          5.615234E-03         -1.025696E+01         -2.574223E+01         -2.343750E-02      \r\n               6          6.304922E+01          5.859375E-03         -1.025708E+01         -2.574207E+01         -2.539062E-02      \r\n              10          1.651215E+02          1.416016E-02         -6.338440E+00         -1.591414E+01         -5.859375E-02      \r\n              14          1.651215E+02          1.513672E-02         -6.338562E+00         -1.591402E+01         -6.445312E-02      \r\n              18          2.041080E+02          1.708984E-02          1.296369E-03         -6.567741E-03         -7.226562E-02      \r\n              22          2.041080E+02          1.757812E-02          1.296185E-03         -6.323548E-03         -7.812500E-02      \r\n              26          1.651258E+02          1.318359E-02          6.340149E+00          1.590364E+01         -5.664062E-02      \r\n              30          1.651258E+02          1.416016E-02          6.340149E+00          1.590376E+01         -6.250000E-02      \r\n              34          6.307152E+01          4.882812E-03          1.025714E+01          2.573897E+01         -2.050781E-02      \r\n              38          6.307152E+01          5.126953E-03          1.025720E+01          2.573880E+01         -2.246094E-02      \r\n              42         -6.307287E+01         -5.615234E-03          1.025629E+01          2.574243E+01          2.392578E-02      \r\n              46         -6.307287E+01         -6.347656E-03          1.025641E+01          2.574225E+01          2.636719E-02      \r\n              50         -1.651266E+02         -1.464844E-02          6.337830E+00          1.591304E+01          6.054688E-02      \r\n              54         -1.651266E+02         -1.513672E-02          6.337830E+00          1.591292E+01          6.445312E-02      \r\n              58         -2.041080E+02         -1.708984E-02         -1.631315E-03          5.080510E-03          7.226562E-02      \r\n              62         -2.041080E+02         -1.806641E-02         -1.632300E-03          5.080792E-03          7.812500E-02      \r\n              66         -1.651207E+02         -1.367188E-02         -6.340820E+00         -1.590486E+01          5.664062E-02      \r\n              70         -1.651207E+02         -1.464844E-02         -6.340820E+00         -1.590486E+01          6.250000E-02      \r\n              74         -6.304784E+01         -4.882812E-03         -1.025781E+01         -2.573865E+01          2.001953E-02      \r\n              78         -6.304787E+01         -4.882812E-03         -1.025800E+01         -2.573846E+01          2.197266E-02      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               2         -2.065090E+02         -1.069092E+00          3.312170E+01          8.186938E+01          3.410156E+00      \r\n               6         -2.065089E+02         -1.069336E+00          3.312195E+01          8.186932E+01          3.413086E+00      \r\n              10         -4.493609E+02         -2.325195E+00          5.814804E+00          1.438107E+01          7.416016E+00      \r\n              14         -4.493609E+02         -2.325684E+00          5.814621E+00          1.438137E+01          7.419922E+00      \r\n              18         -3.217094E+02         -1.663574E+00         -2.628503E+01         -6.496356E+01          5.306641E+00      \r\n              22         -3.217095E+02         -1.664551E+00         -2.628522E+01         -6.496341E+01          5.310547E+00      \r\n              26          7.117250E+01          3.688965E-01         -3.671387E+01         -9.074976E+01         -1.177002E+00      \r\n              30          7.117253E+01          3.691406E-01         -3.671411E+01         -9.074924E+01         -1.177734E+00      \r\n              34          4.053713E+02          2.097168E+00         -1.687415E+01         -4.171762E+01         -6.691406E+00      \r\n              38          4.053713E+02          2.098145E+00         -1.687415E+01         -4.171765E+01         -6.695312E+00      \r\n              42          4.053699E+02          2.096191E+00          1.687677E+01          4.170784E+01         -6.687500E+00      \r\n              46          4.053698E+02          2.097656E+00          1.687683E+01          4.170786E+01         -6.693359E+00      \r\n              50          7.117046E+01          3.673096E-01          3.671411E+01          9.074719E+01         -1.171143E+00      \r\n              54          7.117043E+01          3.675537E-01          3.671436E+01          9.074716E+01         -1.172363E+00      \r\n              58         -3.217077E+02         -1.665039E+00          2.628271E+01          6.497021E+01          5.310547E+00      \r\n              62         -3.217077E+02         -1.665527E+00          2.628271E+01          6.497028E+01          5.314453E+00      \r\n              66         -4.493540E+02         -2.324707E+00         -5.817825E+00         -1.437110E+01          7.416016E+00      \r\n              70         -4.493539E+02         -2.325195E+00         -5.817856E+00         -1.437064E+01          7.419922E+00      \r\n              74         -2.065031E+02         -1.067627E+00         -3.312256E+01         -8.186362E+01          3.406250E+00      \r\n              78         -2.065031E+02         -1.067871E+00         -3.312268E+01         -8.186325E+01          3.408203E+00      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               2         -4.924769E+02         -5.381836E+00          7.555859E+01          1.845532E+02          1.713672E+01      \r\n               6         -4.924756E+02         -5.383301E+00          7.555481E+01          1.845584E+02          1.714355E+01      \r\n              10         -7.970036E+02         -8.709473E+00         -2.885260E+01         -7.047070E+01          2.773242E+01      \r\n              14         -7.970030E+02         -8.710449E+00         -2.885028E+01         -7.046831E+01          2.773828E+01      \r\n              18         -5.879307E-02         -1.830846E-03         -9.338611E+01         -2.281143E+02          5.148053E-03      \r\n              22         -5.848790E-02         -8.072257E-04         -9.337915E+01         -2.281097E+02          2.380610E-03      \r\n              26          7.969686E+02          8.712402E+00         -2.886676E+01         -7.050827E+01         -2.774219E+01      \r\n              30          7.969689E+02          8.714844E+00         -2.887720E+01         -7.051401E+01         -2.775195E+01      \r\n              34          4.925773E+02          5.386719E+00          7.555579E+01          1.845420E+02         -1.715332E+01      \r\n              38          4.925748E+02          5.390137E+00          7.556201E+01          1.845487E+02         -1.716504E+01      \r\n              42         -4.925512E+02         -5.390137E+00          7.554932E+01          1.845399E+02          1.716211E+01      \r\n              46         -4.925487E+02         -5.389160E+00          7.555945E+01          1.845470E+02          1.716211E+01      \r\n              50         -7.969199E+02         -8.711914E+00         -2.886792E+01         -7.048735E+01          2.774023E+01      \r\n              54         -7.969187E+02         -8.712891E+00         -2.888019E+01         -7.049837E+01          2.774609E+01      \r\n              58          3.685002E-02          2.978563E-03         -9.338135E+01         -2.281075E+02         -9.958267E-03      \r\n              62          3.593449E-02          2.722740E-04         -9.336475E+01         -2.281058E+02         -1.303673E-03      \r\n              66          7.970667E+02          8.717285E+00         -2.886243E+01         -7.049504E+01         -2.775781E+01      \r\n              70          7.970693E+02          8.718262E+00         -2.888306E+01         -7.050549E+01         -2.776172E+01      \r\n              74          4.925131E+02          5.393555E+00          7.557166E+01          1.845831E+02         -1.717383E+01      \r\n              78          4.925155E+02          5.392578E+00          7.558496E+01          1.845690E+02         -1.717188E+01      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 1 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               2          7.989005E+00         -7.861328E-02         -1.190491E+00         -3.166077E+00          2.468262E-01      \r\n               6          7.988959E+00         -7.824707E-02         -1.190521E+00         -3.165939E+00          2.456055E-01      \r\n              10          2.329432E+01         -2.268066E-01         -1.077332E+00         -2.868240E+00          7.138672E-01      \r\n              14          2.329429E+01         -2.265625E-01         -1.077423E+00         -2.868004E+00          7.109375E-01      \r\n              18          3.631908E+01         -3.530273E-01         -8.527527E-01         -2.274696E+00          1.109375E+00      \r\n              22          3.631908E+01         -3.515625E-01         -8.529053E-01         -2.274323E+00          1.105469E+00      \r\n              26          4.574463E+01         -4.453125E-01         -5.433960E-01         -1.454681E+00          1.398438E+00      \r\n              30          4.574462E+01         -4.438477E-01         -5.433502E-01         -1.454418E+00          1.392578E+00      \r\n              34          5.067267E+01         -4.936523E-01         -1.851959E-01         -5.029430E-01          1.554688E+00      \r\n              38          5.067267E+01         -4.931641E-01         -1.850586E-01         -5.027390E-01          1.548828E+00      \r\n              42          5.067350E+01         -4.941406E-01          1.880035E-01          4.904156E-01          1.552734E+00      \r\n              46          5.067349E+01         -4.936523E-01          1.877899E-01          4.909306E-01          1.548828E+00      \r\n              50          4.574605E+01         -4.448242E-01          5.457611E-01          1.443790E+00          1.400391E+00      \r\n              54          4.574603E+01         -4.443359E-01          5.458832E-01          1.443790E+00          1.394531E+00      \r\n              58          3.632067E+01         -3.535156E-01          8.549500E-01          2.265755E+00          1.111328E+00      \r\n              62          3.632063E+01         -3.525391E-01          8.548279E-01          2.266365E+00          1.107422E+00      \r\n              66          2.329527E+01         -2.272949E-01          1.078644E+00          2.862503E+00          7.158203E-01      \r\n              70          2.329524E+01         -2.265625E-01          1.078857E+00          2.862617E+00          7.109375E-01      \r\n              74          7.989283E+00         -7.910156E-02          1.191132E+00          3.163757E+00          2.487793E-01      \r\n              78          7.989176E+00         -7.885742E-02          1.191010E+00          3.164490E+00          2.478027E-01      \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       2    1.510220E+00     -7.352942E+01   3.767338E+01   2.927164E+00    88.4932    3.775038E+01   -7.360641E+01   5.567840E+01 \r\n             0.0              -4.016304E-01   3.767989E+01  -8.969388E+00   -77.3883    3.968671E+01   -2.408447E+00   2.104758E+01 \r\n0       6    1.510220E+00     -7.352920E+01   3.767292E+01   2.925975E+00    88.4938    3.774986E+01   -7.360613E+01   5.567799E+01 \r\n             0.0              -4.014385E-01   3.767972E+01  -8.970719E+00   -77.3866    3.968712E+01   -2.408840E+00   2.104798E+01 \r\n0      10    1.510220E+00     -1.925685E+02   9.863287E+01   1.807975E+00    89.6443    9.864410E+01   -1.925798E+02   1.456119E+02 \r\n             0.0              -1.052040E+00   9.864929E+01  -5.543677E+00   -86.8272    9.895659E+01   -1.359337E+00   5.015796E+01 \r\n0      14    1.510220E+00     -1.925681E+02   9.863128E+01   1.807294E+00    89.6444    9.864250E+01   -1.925793E+02   1.456109E+02 \r\n             0.0              -1.051539E+00   9.864883E+01  -5.544499E+00   -86.8267    9.895622E+01   -1.358929E+00   5.015758E+01 \r\n0      18    1.510220E+00     -2.380355E+02   1.219189E+02  -1.578937E-03   -89.9997    1.219189E+02   -2.380355E+02   1.799772E+02 \r\n             0.0              -1.300447E+00   1.219387E+02  -7.534027E-05   -90.0000    1.219387E+02   -1.300446E+00   6.161958E+01 \r\n0      22    1.510220E+00     -2.380349E+02   1.219178E+02  -1.578723E-03   -89.9997    1.219178E+02   -2.380349E+02   1.799763E+02 \r\n             0.0              -1.299825E+00   1.219382E+02  -7.534027E-05   -90.0000    1.219382E+02   -1.299828E+00   6.161900E+01 \r\n0      26    1.510220E+00     -1.925735E+02   9.863568E+01  -1.810102E+00   -89.6439    9.864693E+01   -1.925848E+02   1.456159E+02 \r\n             0.0              -1.052066E+00   9.865097E+01   5.543531E+00    86.8274    9.895825E+01   -1.359341E+00   5.015879E+01 \r\n0      30    1.510220E+00     -1.925730E+02   9.863409E+01  -1.809279E+00   -89.6440    9.864535E+01   -1.925843E+02   1.456148E+02 \r\n             0.0              -1.051565E+00   9.865052E+01   5.544355E+00    86.8269    9.895789E+01   -1.358936E+00   5.015841E+01 \r\n0      34    1.510220E+00     -7.355547E+01   3.767570E+01  -2.927142E+00   -88.4936    3.775268E+01   -7.363245E+01   5.569256E+01 \r\n             0.0              -4.018483E-01   3.768137E+01   8.969623E+00    77.3885    3.968820E+01   -2.408684E+00   2.104844E+01 \r\n0      38    1.510220E+00     -7.355527E+01   3.767524E+01  -2.925882E+00   -88.4942    3.775215E+01   -7.363219E+01   5.569217E+01 \r\n             0.0              -4.016563E-01   3.768119E+01   8.970953E+00    77.3868    3.968861E+01   -2.409077E+00   2.104884E+01 \r\n0      42    1.510220E+00      7.355704E+01  -3.767486E+01  -2.926151E+00    -1.5059    7.363396E+01   -3.775179E+01   5.569287E+01 \r\n             0.0               4.018483E-01  -3.768137E+01   8.969623E+00    12.6115    2.408684E+00   -3.968821E+01   2.104845E+01 \r\n0      46    1.510220E+00      7.355685E+01  -3.767384E+01  -2.924962E+00    -1.5053    7.363371E+01   -3.775070E+01   5.569220E+01 \r\n             0.0               4.016569E-01  -3.768120E+01   8.970953E+00    12.6132    2.409077E+00   -3.968862E+01   2.104885E+01 \r\n0      50    1.510220E+00      1.925745E+02  -9.863398E+01  -1.807412E+00    -0.3556    1.925857E+02   -9.864519E+01   1.456155E+02 \r\n             0.0               1.052068E+00  -9.865097E+01   5.543531E+00     3.1726    1.359344E+00   -9.895824E+01   5.015879E+01 \r\n0      54    1.510220E+00      1.925740E+02  -9.863297E+01  -1.806589E+00    -0.3554    1.925852E+02   -9.864416E+01   1.456147E+02 \r\n             0.0               1.051565E+00  -9.865052E+01   5.544355E+00     3.1731    1.358936E+00   -9.895789E+01   5.015841E+01 \r\n0      58    1.510220E+00      2.380355E+02  -1.219189E+02   1.816267E-03     0.0003    2.380355E+02   -1.219189E+02   1.799772E+02 \r\n             0.0               1.300446E+00  -1.219387E+02  -7.581711E-05     0.0000    1.300446E+00   -1.219387E+02   6.161958E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.994257E+00    (CYCLIC FREQUENCY =  1.586972E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      62    1.510220E+00      2.380349E+02  -1.219172E+02   1.817409E-03     0.0003    2.380349E+02   -1.219172E+02   1.799760E+02 \r\n             0.0               1.299826E+00  -1.219382E+02  -7.581711E-05     0.0000    1.299828E+00   -1.219382E+02   6.161900E+01 \r\n0      66    1.510220E+00      1.925676E+02  -9.863344E+01   1.810736E+00     0.3563    1.925788E+02   -9.864469E+01   1.456118E+02 \r\n             0.0               1.052042E+00  -9.864929E+01  -5.543676E+00    -3.1728    1.359337E+00   -9.895659E+01   5.015796E+01 \r\n0      70    1.510220E+00      1.925670E+02  -9.863184E+01   1.809913E+00     0.3561    1.925783E+02   -9.864308E+01   1.456107E+02 \r\n             0.0               1.051539E+00  -9.864883E+01  -5.544499E+00    -3.1733    1.358929E+00   -9.895622E+01   5.015758E+01 \r\n0      74    1.510220E+00      7.352779E+01  -3.767422E+01   2.928155E+00     1.5073    7.360484E+01   -3.775127E+01   5.567805E+01 \r\n             0.0               4.016304E-01  -3.767989E+01  -8.969388E+00   -12.6117    2.408447E+00   -3.968670E+01   2.104757E+01 \r\n0      78    1.510220E+00      7.352763E+01  -3.767405E+01   2.927037E+00     1.5067    7.360461E+01   -3.775104E+01   5.567783E+01 \r\n             0.0               4.014387E-01  -3.767971E+01  -8.970718E+00   -12.6134    2.408840E+00   -3.968711E+01   2.104798E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       2    1.510220E+00      2.408443E+02  -5.242852E+01  -2.616189E+01    -5.0579    2.431599E+02   -5.474406E+01   1.489520E+02 \r\n             0.0               1.324507E+00  -5.366851E+01   1.225438E+01    12.0106    3.931618E+00   -5.627562E+01   3.010362E+01 \r\n0       6    1.510220E+00      2.408438E+02  -5.242769E+01  -2.616038E+01    -5.0577    2.431590E+02   -5.474297E+01   1.489510E+02 \r\n             0.0               1.323984E+00  -5.366796E+01   1.225618E+01    12.0123    3.931870E+00   -5.627585E+01   3.010386E+01 \r\n0      10    1.510220E+00      5.240744E+02  -1.140651E+02  -4.592525E+00    -0.4123    5.241075E+02   -1.140982E+02   3.191028E+02 \r\n             0.0               2.882304E+00  -1.167620E+02   2.151787E+00     1.0300    2.920990E+00   -1.168007E+02   5.986083E+01 \r\n0      14    1.510220E+00      5.240732E+02  -1.140633E+02  -4.592011E+00    -0.4123    5.241063E+02   -1.140964E+02   3.191013E+02 \r\n             0.0               2.881190E+00  -1.167608E+02   2.152087E+00     1.0302    2.919888E+00   -1.167995E+02   5.985968E+01 \r\n0      18    1.510220E+00      3.751989E+02  -8.166332E+01   2.076144E+01     2.5966    3.761404E+02   -8.260486E+01   2.293726E+02 \r\n             0.0               2.063527E+00  -8.359282E+01  -9.725304E+00    -6.3968    3.153851E+00   -8.468314E+01   4.391850E+01 \r\n0      22    1.510220E+00      3.751981E+02  -8.166133E+01   2.076018E+01     2.5964    3.761395E+02   -8.260277E+01   2.293711E+02 \r\n             0.0               2.062731E+00  -8.359196E+01  -9.726779E+00    -6.3979    3.153397E+00   -8.468263E+01   4.391801E+01 \r\n0      26    1.510220E+00     -8.300601E+01   1.806669E+01   2.899829E+01    75.0762    2.579546E+01   -9.073477E+01   5.826512E+01 \r\n             0.0              -4.564548E-01   1.849456E+01  -1.358436E+01   -62.4485    2.558166E+01   -7.543559E+00   1.656261E+01 \r\n0      30    1.510220E+00     -8.300587E+01   1.806622E+01   2.899651E+01    75.0769    2.579414E+01   -9.073378E+01   5.826396E+01 \r\n             0.0              -4.562657E-01   1.849437E+01  -1.358642E+01   -62.4462    2.558324E+01   -7.545140E+00   1.656419E+01 \r\n0      34    1.510220E+00     -4.727708E+02   1.029032E+02   1.332755E+01    88.6745    1.032115E+02   -4.730792E+02   2.881454E+02 \r\n             0.0              -2.600109E+00   1.053356E+02  -6.243957E+00   -86.7002    1.056956E+02   -2.960110E+00   5.432784E+01 \r\n0      38    1.510220E+00     -4.727695E+02   1.029009E+02   1.332643E+01    88.6746    1.032092E+02   -4.730778E+02   2.881435E+02 \r\n             0.0              -2.598855E+00   1.053345E+02  -6.245080E+00   -86.6995    1.056946E+02   -2.958996E+00   5.432681E+01 \r\n0      42    1.510220E+00     -4.727692E+02   1.029047E+02  -1.333051E+01   -88.6742    1.032133E+02   -4.730778E+02   2.881455E+02 \r\n             0.0              -2.600226E+00   1.053360E+02   6.244043E+00    86.7001    1.056960E+02   -2.960239E+00   5.432812E+01 \r\n0      46    1.510220E+00     -4.727684E+02   1.029019E+02  -1.332985E+01   -88.6742    1.032104E+02   -4.730769E+02   2.881437E+02 \r\n             0.0              -2.599468E+00   1.053349E+02   6.244773E+00    86.6997    1.056950E+02   -2.959568E+00   5.432729E+01 \r\n0      50    1.510220E+00     -8.300390E+01   1.806990E+01  -2.899864E+01   -75.0762    2.579877E+01   -9.073277E+01   5.826577E+01 \r\n             0.0              -4.567096E-01   1.849593E+01   1.358429E+01    62.4497    2.558263E+01   -7.543410E+00   1.656302E+01 \r\n0      54    1.510220E+00     -8.300369E+01   1.806943E+01  -2.899694E+01   -75.0768    2.579749E+01   -9.073175E+01   5.826462E+01 \r\n             0.0              -4.565325E-01   1.849574E+01   1.358628E+01    62.4475    2.558414E+01   -7.544939E+00   1.656454E+01 \r\n0      58    1.510220E+00      3.751966E+02  -8.165939E+01  -2.075877E+01    -2.5963    3.761379E+02   -8.260069E+01   2.293693E+02 \r\n             0.0               2.063310E+00  -8.359058E+01   9.725282E+00     6.3970    3.153652E+00   -8.468092E+01   4.391729E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.127436E+01    (CYCLIC FREQUENCY =  1.796664E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      62    1.510220E+00      3.751958E+02  -8.165796E+01  -2.075737E+01    -2.5961    3.761370E+02   -8.259914E+01   2.293681E+02 \r\n             0.0               2.062522E+00  -8.358972E+01   9.726688E+00     6.3980    3.153202E+00   -8.468040E+01   4.391680E+01 \r\n0      66    1.510220E+00      5.240662E+02  -1.140633E+02   4.596162E+00     0.4126    5.240993E+02   -1.140964E+02   3.190979E+02 \r\n             0.0               2.882114E+00  -1.167596E+02  -2.151654E+00    -1.0300    2.920795E+00   -1.167983E+02   5.985956E+01 \r\n0      70    1.510220E+00      5.240651E+02  -1.140616E+02   4.595827E+00     0.4126    5.240981E+02   -1.140947E+02   3.190964E+02 \r\n             0.0               2.881026E+00  -1.167584E+02  -2.152024E+00    -1.0302    2.919724E+00   -1.167971E+02   5.985843E+01 \r\n0      74    1.510220E+00      2.408374E+02  -5.242918E+01   2.616324E+01     5.0583    2.431532E+02   -5.474501E+01   1.489491E+02 \r\n             0.0               1.324320E+00  -5.366747E+01  -1.225402E+01   -12.0105    3.931335E+00   -5.627448E+01   3.010291E+01 \r\n0      78    1.510220E+00      2.408370E+02  -5.242835E+01   2.616147E+01     5.0580    2.431525E+02   -5.474386E+01   1.489482E+02 \r\n             0.0               1.323927E+00  -5.366692E+01  -1.225594E+01   -12.0123    3.931761E+00   -5.627476E+01   3.010326E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       2    1.510220E+00      5.744011E+02  -6.355228E+01  -7.265877E+01    -6.4161    5.825718E+02   -7.172301E+01   3.271474E+02 \r\n             0.0               3.200860E+00  -6.979442E+01   1.497801E+01    11.1562    6.154690E+00   -7.274825E+01   3.945147E+01 \r\n0       6    1.510220E+00      5.743970E+02  -6.354922E+01  -7.265378E+01    -6.4158    5.825667E+02   -7.171889E+01   3.271428E+02 \r\n             0.0               3.198331E+00  -6.979305E+01   1.497862E+01    11.1572    6.152542E+00   -7.274726E+01   3.944990E+01 \r\n0      10    1.510220E+00      9.295789E+02  -1.028312E+02   2.774491E+01     1.5383    9.303240E+02   -1.035763E+02   5.169501E+02 \r\n             0.0               5.172700E+00  -1.129329E+02  -5.719831E+00    -2.7662    5.449062E+00   -1.132093E+02   5.932918E+01 \r\n0      14    1.510220E+00      9.295809E+02  -1.028279E+02   2.774231E+01     1.5381    9.303259E+02   -1.035728E+02   5.169493E+02 \r\n             0.0               5.175455E+00  -1.129307E+02  -5.719744E+00    -2.7661    5.451809E+00   -1.132071E+02   5.932944E+01 \r\n0      18    1.510220E+00      7.236263E-02   6.567471E-03   8.979911E+01    44.9895    8.983858E+01   -8.975965E+01   8.979912E+01 \r\n             0.0               4.171371E-03   4.443960E-03  -1.851495E+01   -45.0002    1.851925E+01   -1.851064E+01   1.851495E+01 \r\n0      22    1.510220E+00      6.744439E-02   5.298337E-03   8.978728E+01    44.9901    8.982365E+01   -8.975092E+01   8.978728E+01 \r\n             0.0              -3.929138E-04   4.362075E-03  -1.851870E+01   -45.0037    1.852069E+01   -1.851672E+01   1.851870E+01 \r\n0      26    1.510220E+00     -9.295463E+02   1.028484E+02   2.775923E+01    88.4609    1.035943E+02   -9.302922E+02   5.169432E+02 \r\n             0.0              -5.180753E+00   1.129535E+02  -5.721934E+00   -87.2335    1.132300E+02   -5.457256E+00   5.934363E+01 \r\n0      30    1.510220E+00     -9.295396E+02   1.028435E+02   2.777145E+01    88.4602    1.035900E+02   -9.302861E+02   5.169380E+02 \r\n             0.0              -5.173757E+00   1.129514E+02  -5.721819E+00   -87.2333    1.132279E+02   -5.450272E+00   5.933909E+01 \r\n0      34    1.510220E+00     -5.745136E+02   6.358517E+01  -7.265750E+01   -83.5854    7.175377E+01   -5.826822E+02   3.272180E+02 \r\n             0.0              -3.196878E+00   6.983296E+01   1.497602E+01    78.8499    7.278474E+01   -6.148659E+00   3.946670E+01 \r\n0      38    1.510220E+00     -5.745114E+02   6.358002E+01  -7.266557E+01   -83.5846    7.175052E+01   -5.826819E+02   3.272162E+02 \r\n             0.0              -3.197573E+00   6.983179E+01   1.497517E+01    78.8504    7.278326E+01   -6.149052E+00   3.946616E+01 \r\n0      42    1.510220E+00      5.744816E+02  -6.349718E+01  -7.265248E+01    -6.4154    5.826506E+02   -7.166620E+01   3.271584E+02 \r\n             0.0               3.195150E+00  -6.974895E+01   1.497354E+01    11.1603    6.149204E+00   -7.270300E+01   3.942610E+01 \r\n0      46    1.510220E+00      5.744733E+02  -6.349714E+01  -7.266260E+01    -6.4163    5.826447E+02   -7.166849E+01   3.271566E+02 \r\n             0.0               3.189751E+00  -6.974776E+01   1.497517E+01    11.1623    6.144669E+00   -7.270268E+01   3.942368E+01 \r\n0      50    1.510220E+00      9.294730E+02  -1.027726E+02   2.776242E+01     1.5395    9.302191E+02   -1.035188E+02   5.168690E+02 \r\n             0.0               5.163900E+00  -1.128772E+02  -5.720089E+00    -2.7678    5.440441E+00   -1.131537E+02   5.929707E+01 \r\n0      54    1.510220E+00      9.294769E+02  -1.027694E+02   2.777699E+01     1.5403    9.302238E+02   -1.035163E+02   5.168701E+02 \r\n             0.0               5.169165E+00  -1.128750E+02  -5.719757E+00    -2.7676    5.445667E+00   -1.131515E+02   5.929860E+01 \r\n0      58    1.510220E+00     -4.228090E-02   5.281875E-02   8.979506E+01    45.0152    8.980035E+01   -8.978980E+01   8.979507E+01 \r\n             0.0               4.596710E-04   5.627344E-02  -1.851348E+01   -45.0432    1.854186E+01   -1.848513E+01   1.851350E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.200696E+01    (CYCLIC FREQUENCY =  2.254705E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      62    1.510220E+00     -4.895809E-02   5.598685E-02   8.977144E+01    45.0167    8.977497E+01   -8.976794E+01   8.977145E+01 \r\n             0.0              -7.279396E-03   5.630264E-02  -1.851784E+01   -45.0492    1.854237E+01   -1.849335E+01   1.851786E+01 \r\n0      66    1.510220E+00     -9.296722E+02   1.028669E+02   2.776058E+01    88.4610    1.036128E+02   -9.304180E+02   5.170154E+02 \r\n             0.0              -5.192958E+00   1.129777E+02  -5.715561E+00   -87.2374    1.132535E+02   -5.468758E+00   5.936113E+01 \r\n0      70    1.510220E+00     -9.296622E+02   1.028638E+02   2.778544E+01    88.4596    1.036110E+02   -9.304094E+02   5.170102E+02 \r\n             0.0              -5.179877E+00   1.129757E+02  -5.714626E+00   -87.2375    1.132514E+02   -5.455624E+00   5.935353E+01 \r\n0      74    1.510220E+00     -5.744465E+02   6.355655E+01  -7.266763E+01   -83.5836    7.172862E+01   -5.826186E+02   3.271736E+02 \r\n             0.0              -3.204375E+00   6.981228E+01   1.498430E+01    78.8425    7.276770E+01   -6.159794E+00   3.946375E+01 \r\n0      78    1.510220E+00     -5.744471E+02   6.355659E+01  -7.268759E+01   -83.5819    7.173306E+01   -5.826237E+02   3.271783E+02 \r\n             0.0              -3.202138E+00   6.981119E+01   1.497977E+01    78.8451    7.276501E+01   -6.155964E+00   3.946049E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       2    1.510220E+00     -9.317251E+00   1.952325E+01  -3.391389E+00   -83.3828    1.991668E+01   -9.710682E+00   1.481368E+01 \r\n             0.0              -5.118811E-02   1.943207E+01  -4.772182E+00   -76.9505    2.053817E+01   -1.157280E+00   1.084772E+01 \r\n0       6    1.510220E+00     -9.317182E+00   1.952280E+01  -3.392085E+00   -83.3814    1.991640E+01   -9.710777E+00   1.481359E+01 \r\n             0.0              -5.117261E-02   1.943205E+01  -4.772913E+00   -76.9487    2.053846E+01   -1.157588E+00   1.084803E+01 \r\n0      10    1.510220E+00     -2.716768E+01   5.666193E+01  -3.056252E+00   -87.9148    5.677320E+01   -2.727896E+01   4.202608E+01 \r\n             0.0              -1.497213E-01   5.639886E+01  -4.305798E+00   -85.6706    5.672485E+01   -4.757023E-01   2.860027E+01 \r\n0      14    1.510220E+00     -2.716756E+01   5.666157E+01  -3.056796E+00   -87.9144    5.677288E+01   -2.727888E+01   4.202588E+01 \r\n             0.0              -1.496368E-01   5.639879E+01  -4.306448E+00   -85.6699    5.672486E+01   -4.757118E-01   2.860029E+01 \r\n0      18    1.510220E+00     -4.235827E+01   8.825633E+01  -2.427737E+00   -88.9355    8.830145E+01   -4.240339E+01   6.535242E+01 \r\n             0.0              -2.335147E-01   8.784687E+01  -3.416803E+00   -87.7818    8.797922E+01   -3.658600E-01   4.417254E+01 \r\n0      22    1.510220E+00     -4.235814E+01   8.825452E+01  -2.428083E+00   -88.9354    8.829964E+01   -4.240326E+01   6.535145E+01 \r\n             0.0              -2.333834E-01   8.784676E+01  -3.417327E+00   -87.7815    8.797914E+01   -3.657684E-01   4.417245E+01 \r\n0      26    1.510220E+00     -5.335112E+01   1.112080E+02  -1.562831E+00   -89.4559    1.112228E+02   -5.336596E+01   8.229440E+01 \r\n             0.0              -2.941287E-01   1.106915E+02  -2.193089E+00   -88.8684    1.107348E+02   -3.374481E-01   5.553613E+01 \r\n0      30    1.510220E+00     -5.335094E+01   1.112062E+02  -1.563245E+00   -89.4558    1.112210E+02   -5.336578E+01   8.229340E+01 \r\n             0.0              -2.939483E-01   1.106914E+02  -2.193451E+00   -88.8682    1.107347E+02   -3.372803E-01   5.553599E+01 \r\n0      34    1.510220E+00     -5.909879E+01   1.232713E+02  -5.405791E-01   -89.8302    1.232729E+02   -5.910039E+01   9.118662E+01 \r\n             0.0              -3.259930E-01   1.226987E+02  -7.553790E-01   -89.6482    1.227033E+02   -3.306351E-01   6.151698E+01 \r\n0      38    1.510220E+00     -5.909819E+01   1.232705E+02  -5.411600E-01   -89.8300    1.232721E+02   -5.909979E+01   9.118597E+01 \r\n             0.0              -3.253983E-01   1.226985E+02  -7.558006E-01   -89.6480    1.227032E+02   -3.300438E-01   6.151661E+01 \r\n0      42    1.510220E+00     -5.909996E+01   1.232722E+02   5.375404E-01    89.8311    1.232738E+02   -5.910155E+01   9.118768E+01 \r\n             0.0              -3.262142E-01   1.226991E+02   7.555966E-01    89.6481    1.227037E+02   -3.308601E-01   6.151730E+01 \r\n0      46    1.510220E+00     -5.910020E+01   1.232715E+02   5.375702E-01    89.8311    1.232731E+02   -5.910178E+01   9.118744E+01 \r\n             0.0              -3.264537E-01   1.226989E+02   7.553787E-01    89.6482    1.227036E+02   -3.310928E-01   6.151734E+01 \r\n0      50    1.510220E+00     -5.335324E+01   1.112085E+02   1.560103E+00    89.4569    1.112233E+02   -5.336803E+01   8.229565E+01 \r\n             0.0              -2.946036E-01   1.106926E+02   2.193105E+00    88.8684    1.107359E+02   -3.379211E-01   5.553690E+01 \r\n0      54    1.510220E+00     -5.335307E+01   1.112078E+02   1.560209E+00    89.4568    1.112226E+02   -5.336786E+01   8.229521E+01 \r\n             0.0              -2.944418E-01   1.106924E+02   2.193352E+00    88.8683    1.107357E+02   -3.377686E-01   5.553675E+01 \r\n0      58    1.510220E+00     -4.236049E+01   8.825817E+01   2.425261E+00    88.9367    8.830318E+01   -4.240550E+01   6.535434E+01 \r\n             0.0              -2.338928E-01   8.784814E+01   3.416876E+00    87.7818    8.798050E+01   -3.662453E-01   4.417337E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0             BUCKLING SOLUTION                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.228891E+01    (CYCLIC FREQUENCY =  2.407876E-01 HZ)\r\n\r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 1 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0      62    1.510220E+00     -4.236030E+01   8.825693E+01   2.425831E+00    88.9364    8.830196E+01   -4.240533E+01   6.535365E+01 \r\n             0.0              -2.337449E-01   8.784804E+01   3.417305E+00    87.7815    8.798042E+01   -3.661232E-01   4.417327E+01 \r\n0      66    1.510220E+00     -2.716907E+01   5.666352E+01   3.054881E+00    87.9158    5.677470E+01   -2.728024E+01   4.202747E+01 \r\n             0.0              -1.500043E-01   5.639989E+01   4.305948E+00    85.6705    5.672589E+01   -4.759998E-01   2.860094E+01 \r\n0      70    1.510220E+00     -2.716890E+01   5.666261E+01   3.055169E+00    87.9156    5.677380E+01   -2.728009E+01   4.202694E+01 \r\n             0.0              -1.498675E-01   5.639983E+01   4.306484E+00    85.6700    5.672590E+01   -4.759445E-01   2.860092E+01 \r\n0      74    1.510220E+00     -9.317866E+00   1.952422E+01   3.390936E+00    83.3840    1.991753E+01   -9.711172E+00   1.481435E+01 \r\n             0.0              -5.148113E-02   1.943248E+01   4.772472E+00    76.9502    2.053866E+01   -1.157665E+00   1.084816E+01 \r\n0      78    1.510220E+00     -9.317472E+00   1.952392E+01   3.391609E+00    83.3826    1.991739E+01   -9.710941E+00   1.481416E+01 \r\n             0.0              -5.121076E-02   1.943245E+01   4.773004E+00    76.9487    2.053889E+01   -1.157644E+00   1.084827E+01 \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +Y,+X,-Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.153226E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       2   -   X0 = -8.711188E-01, Y0 = -0.298235E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    3   MODAL  DEFORM.     2 - SUBCASE       1 - MODE   9.942567E-01 - EIGENVALUE                                     \r\n          PLOT    4   MODAL  DEFORM.     2 - SUBCASE       2 - MODE   1.274364E+00 - EIGENVALUE                                     \r\n          PLOT    5   MODAL  DEFORM.     2 - SUBCASE       3 - MODE   2.006962E+00 - EIGENVALUE                                     \r\n          PLOT    6   MODAL  DEFORM.     2 - SUBCASE       4 - MODE   2.288906E+00 - EIGENVALUE                                     \r\n                                                 ORIGIN      2  USED IN THIS PLOT                                                   \r\n1     SYMMETRIC BUCKLING OF A CYLINDER                                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Y,+X,-Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 1.077510E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       2   -   X0 = -8.711188E-01, Y0 = -0.298235E+01     (INCHES)                                                  \r\n          ORIGIN       1   -   X0 = -5.598906E-01, Y0 = -0.361539E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    7   MODAL  DEFORM.     2 - SUBCASE       1 - MODE   9.942567E-01 - EIGENVALUE                                     \r\n          PLOT    8   MODAL  DEFORM.     2 - SUBCASE       2 - MODE   1.274364E+00 - EIGENVALUE                                     \r\n          PLOT    9   MODAL  DEFORM.     2 - SUBCASE       3 - MODE   2.006962E+00 - EIGENVALUE                                     \r\n          PLOT   10   MODAL  DEFORM.     2 - SUBCASE       4 - MODE   2.288906E+00 - EIGENVALUE                                     \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  SYMMETRIC BUCKLING OF A CYLINDER                                   \r\n DATE:  5/17/95\r\n END TIME: 15:48:29\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d05021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D05021A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   5,0                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    =  BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                 \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                          \r\n                  3      LABEL    =  CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                      \r\n                  4      OUTPUT                                                                          \r\n                  5      DISP  =  ALL                                                                    \r\n                  6      ELSTRESS = ALL                                                                  \r\n                  7      SPC   =  2                                                                      \r\n                  8      SUBCASE 1                                                                       \r\n                  9      LABEL = STATIC SOLUTION                                                         \r\n                 10      LOAD  = 3                                                                       \r\n                 11      OLOAD = ALL                                                                     \r\n                 12      SUBCASE 2                                                                       \r\n                 13      LABEL = BUCKLING SOLUTION                                                       \r\n                 14      METHOD= 4                                                                       \r\n                 15      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    44, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRSHL  1       6       1       2       3       5       7       4       +TR1    \r\n                    2-        +TR1                                                                            \r\n                    3-        CTRSHL  2       7       9       8       7       5       3       6       +TR2    \r\n                    4-        +TR2                                                                            \r\n                    5-        CTRSHL  3       8       7       8       9       11      13      10      +TR3    \r\n                    6-        +TR3                                                                            \r\n                    7-        CTRSHL  4       9       15      14      13      11      9       12      +TR4    \r\n                    8-        +TR4                                                                            \r\n                    9-        EIGB    4       INV     .0      10.0    1       1       0               +ABC    \r\n                   10-        +ABC    MAX                                                                     \r\n                   11-        FORCE   3       13              1.6666+2        -1.0                            \r\n                   12-        FORCE   3       14              6.6666+2        -1.0                            \r\n                   13-        FORCE   3       15              1.6666+2        -1.0                            \r\n                   14-        GRDSET                                                  56                      \r\n                   15-        GRID    1               .0      .0      .0                                      \r\n                   16-        GRID    2                                                                       \r\n                   17-        GRID    3               1.495349.0      .0                                      \r\n                   18-        GRID    4                                                                       \r\n                   19-        GRID    5                                                                       \r\n                   20-        GRID    6                                                                       \r\n                   21-        GRID    7               .0      1.5     .0                                      \r\n                   22-        GRID    8                                                                       \r\n                   23-        GRID    9               1.2476741.5     .0                                      \r\n                   24-        GRID    10                                                                      \r\n                   25-        GRID    11                                                                      \r\n                   26-        GRID    12                                                                      \r\n                   27-        GRID    13              .0      3.0     .0                                      \r\n                   28-        GRID    14                                                                      \r\n                   29-        GRID    15              1.0     3.0     .0                                      \r\n                   30-        MAT1    5       3.0+7   1.5+7                                                   \r\n                   31-        PTRSHL  6       5       2.990698        2.4953485       2.229135        +PT1    \r\n                   32-        +PT1    1.294828                                                        +PT2    \r\n                   33-        +PT2                                                                            \r\n                   34-        PTRSHL  7       5       2.495348        2.9906985       1.294828        +PT3    \r\n                   35-        +PT3    2.229135                                                        +PT4    \r\n                   36-        +PT4                                                                            \r\n                   37-        PTRSHL  8       5       2.495348        2.0     5       1.294828        +PT5    \r\n                   38-        +PT5    .666667                                                         +PT6    \r\n                   39-        +PT6                                                                            \r\n                   40-        PTRSHL  9       5       2.0             2.4953485       .666667         +PT7    \r\n                   41-        +PT7    1.294828                                                        +PT8    \r\n                   42-        +PT8                                                                            \r\n                   43-        SPC1    2       1       4       7       10      13                              \r\n                   44-        SPC1    2       1234    1       2       3                                       \r\n                              ENDDATA\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE             72\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    4.800\r\n                                        RMS WAVEFRONT    5.086\r\n                                        RMS BANDWIDTH    5.138\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    4.600\r\n                                        RMS WAVEFRONT    4.865\r\n                                        RMS BANDWIDTH    4.892\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        7         7\r\n                                        PROFILE (P)                         72        69\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         7\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.800     4.600\r\n                                        RMS WAVEFRONT (C-RMS)            5.086     4.865\r\n                                        RMS BANDWITCH (B-RMS)            5.138     4.892\r\n                                        NUMBER OF GRID POINTS (N)                     15\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 4\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          11\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                        51\r\n                                        MATRIX DENSITY, PERCENT                   52.000\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       3       4       4       3\r\n                         SEQGP          5       5       6       7       7       6       8       8\r\n                         SEQGP          9      10      10       9      11      11      12      15\r\n                         SEQGP         13      12      14      14      15      13\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRSHL    ELEMENTS (ELEMENT TYPE  75) STARTING WITH ID        1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   9.3527906E-16\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      0.0           -5.992832E-06   0.0            0.0            0.0            0.0                           \r\n             5      G      3.807299E-07  -5.575588E-06   0.0            0.0            0.0            0.0                           \r\n             6      G      7.487714E-07  -5.337256E-06   0.0            0.0            0.0            0.0                           \r\n             7      G      0.0           -1.312869E-05   0.0            0.0            0.0            0.0                           \r\n             8      G      2.120722E-07  -1.226996E-05   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.428727E-08  -1.007003E-05   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0           -2.223141E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -7.072856E-08  -2.034450E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.304273E-07  -1.810257E-05   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -3.487301E-05   0.0            0.0            0.0            0.0                           \r\n            14      G     -2.971972E-06  -3.098459E-05   0.0            0.0            0.0            0.0                           \r\n            15      G     -5.150994E-06  -2.503208E-05   0.0            0.0            0.0            0.0                           \r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            13      G      0.0           -1.666600E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -6.666600E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      0.0           -1.666600E+02   0.0            0.0            0.0            0.0                           \r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   T R I A N G U L A R   T H I N   S H E L L   E L E M E N T S   ( C T R S H L )\r\n0 ELEMENT  POINT     FIBER           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)           MAX\r\n   ID.      NO.     DISTANCE       NORMAL-X      NORMAL-Y      SHEAR-XY        ANGLE         MAJOR         MINOR          SHEAR\r\n0       1    1    0.0            0.0          -2.168527E+02  0.0            0.0           0.0          -2.168527E+02   1.084263E+02 \r\n                  0.0            0.0          -2.168527E+02  0.0            0.0           0.0          -2.168527E+02   1.084263E+02 \r\n             3    0.0            0.0          -1.834732E+02  1.522919E+01   4.712855E+00  1.255508E+00 -1.847287E+02   9.299212E+01 \r\n                  0.0            0.0          -1.834732E+02  1.522919E+01   4.712855E+00  1.255508E+00 -1.847287E+02   9.299212E+01 \r\n             5    0.0            3.055312E+01 -3.082949E+02  1.674164E+01   2.821681E+00  3.137828E+01 -3.091201E+02   1.702492E+02 \r\n                  0.0            3.055312E+01 -3.082949E+02  1.674164E+01   2.821681E+00  3.137828E+01 -3.091201E+02   1.702492E+02 \r\n             C    1.412791E+00   1.018437E+01 -2.362070E+02  1.065694E+01   2.472009E+00  1.064445E+01 -2.366671E+02   1.236557E+02 \r\n                 -1.412791E+00   1.018437E+01 -2.362070E+02  1.065694E+01   2.472009E+00  1.064445E+01 -2.366671E+02   1.236557E+02 \r\n0       2    1    0.0           -2.214884E+01 -1.544285E+02  3.651297E+01   1.445061E+01 -1.273951E+01 -1.638378E+02   7.554916E+01 \r\n                  0.0           -2.214884E+01 -1.544285E+02  3.651297E+01   1.445061E+01 -1.273951E+01 -1.638378E+02   7.554916E+01 \r\n             3    0.0            2.098088E+01 -3.326553E+02 -2.478417E-01  -4.015503E-02  2.098103E+01 -3.326555E+02   1.768183E+02 \r\n                  0.0            2.098088E+01 -3.326553E+02 -2.478417E-01  -4.015503E-02  2.098103E+01 -3.326555E+02   1.768183E+02 \r\n             5    0.0            3.598183E+01 -2.339383E+02  7.853348E+00   1.665147E+00  3.621014E+01 -2.341666E+02   1.351884E+02 \r\n                  0.0            3.598183E+01 -2.339383E+02  7.853348E+00   1.665147E+00  3.621014E+01 -2.341666E+02   1.351884E+02 \r\n             C    1.330232E+00   1.160462E+01 -2.403408E+02  1.470619E+01   3.329316E+00  1.246014E+01 -2.411963E+02   1.268282E+02 \r\n                 -1.330232E+00   1.160462E+01 -2.403408E+02  1.470619E+01   3.329316E+00  1.246014E+01 -2.411963E+02   1.268282E+02 \r\n0       3    1    0.0            2.098087E+01 -2.933313E+02  4.523544E+00   8.243666E-01  2.104596E+01 -2.933964E+02   1.572212E+02 \r\n                  0.0            2.098087E+01 -2.933313E+02  4.523544E+00   8.243666E-01  2.104596E+01 -2.933964E+02   1.572212E+02 \r\n             3    0.0           -2.214883E+01 -2.110770E+02  5.770906E+01   1.571059E+01 -5.916039E+00 -2.273098E+02   1.106969E+02 \r\n                  0.0           -2.214883E+01 -2.110770E+02  5.770906E+01   1.571059E+01 -5.916039E+00 -2.273098E+02   1.106969E+02 \r\n             5    0.0           -6.218619E+00 -5.764418E+02  5.396814E+01   5.359289E+00 -1.155823E+00 -5.815046E+02   2.901744E+02 \r\n                  0.0           -6.218619E+00 -5.764418E+02  5.396814E+01   5.359289E+00 -1.155823E+00 -5.815046E+02   2.901744E+02 \r\n             C    1.165116E+00  -2.462194E+00 -3.602833E+02  3.873361E+01   6.107920E+00  1.682663E+00 -3.644282E+02   1.830554E+02 \r\n                 -1.165116E+00  -2.462194E+00 -3.602833E+02  3.873361E+01   6.107920E+00  1.682663E+00 -3.644282E+02   1.830554E+02 \r\n0       4    1    0.0           -1.069529E+02 -1.859252E+02  5.115073E+01   2.616670E+01 -8.182048E+01 -2.110575E+02   6.461853E+01 \r\n                  0.0           -1.069529E+02 -1.859252E+02  5.115073E+01   2.616670E+01 -8.182048E+01 -2.110575E+02   6.461853E+01 \r\n             3    0.0           -2.021068E+02 -5.236680E+02  4.223232E+00   7.523227E-01 -2.020514E+02 -5.237234E+02   1.608360E+02 \r\n                  0.0           -2.021068E+02 -5.236680E+02  4.223232E+00   7.523227E-01 -2.020514E+02 -5.237234E+02   1.608360E+02 \r\n             5    0.0            1.473660E+02 -3.476870E+02  4.608984E+01   5.273887E+00  1.516205E+02 -3.519415E+02   2.517810E+02 \r\n                  0.0            1.473660E+02 -3.476870E+02  4.608984E+01   5.273887E+00  1.516205E+02 -3.519415E+02   2.517810E+02 \r\n             C    1.082558E+00  -5.389786E+01 -3.524266E+02  3.382141E+01   6.383460E+00 -5.011406E+01 -3.562104E+02   1.530482E+02 \r\n                 -1.082558E+00  -5.389786E+01 -3.524266E+02  3.382141E+01   6.383460E+00 -5.011406E+01 -3.562104E+02   1.530482E+02 \r\n                        0 ROOTS BELOW   5.000000E+00\r\n                        0 ROOTS BELOW   1.714400E+04\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         1\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         2\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        12\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0      CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                                                                               \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                       NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND   *\r\n                                     *  AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX  *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        1.714425E+04        1.309360E+02        2.083912E+01        0.0                 0.0                      \r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0     BUCKLING SOLUTION                                                                                      SUBCASE 2              \r\n      EIGENVALUE =  0.171442E+05    (CYCLIC FREQUENCY =  2.083912E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      0.0            3.300937E-15   5.489956E-02   1.487820E-01   0.0            0.0                           \r\n             5      G     -2.809953E-15  -1.879220E-16   5.599702E-02   1.489336E-01   0.0            0.0                           \r\n             6      G     -4.282085E-15  -1.694891E-15   5.622306E-02   1.539915E-01   0.0            0.0                           \r\n             7      G      0.0            1.064478E-14   2.308899E-01   3.299996E-01   0.0            0.0                           \r\n             8      G     -4.639889E-15   1.652585E-15   2.311183E-01   3.248821E-01   0.0            0.0                           \r\n             9      G     -8.322388E-15  -4.812174E-15   2.310203E-01   3.040076E-01   0.0            0.0                           \r\n            10      G      0.0            1.690316E-14   5.543922E-01   5.289490E-01   0.0            0.0                           \r\n            11      G      5.476993E-15   6.433272E-15   5.553837E-01   5.377403E-01   0.0            0.0                           \r\n            12      G      1.093953E-14  -1.604526E-14   5.563720E-01   5.331293E-01   0.0            0.0                           \r\n            13      G      0.0            2.000533E-14   1.000000E+00   6.190717E-01   0.0            0.0                           \r\n            14      G      1.317487E-14   7.085228E-15   9.983684E-01   6.228292E-01   0.0            0.0                           \r\n            15      G      2.264062E-14  -1.258609E-14   9.993376E-01   6.217160E-01   0.0            0.0                           \r\n1      BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                                                                                   \r\n0     BUCKLING SOLUTION                                                                                      SUBCASE 2              \r\n      EIGENVALUE =  0.171442E+05    (CYCLIC FREQUENCY =  2.083912E+01 HZ)\r\n\r\n                  S T R E S S E S   I N   T R I A N G U L A R   T H I N   S H E L L   E L E M E N T S   ( C T R S H L )\r\n0 ELEMENT  POINT     FIBER           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL STRESSES (ZERO SHEAR)           MAX\r\n   ID.      NO.     DISTANCE       NORMAL-X      NORMAL-Y      SHEAR-XY        ANGLE         MAJOR         MINOR          SHEAR\r\n0       1    1    0.0            0.0           5.117947E-08  0.0            9.000000E+01  5.117947E-08  0.0            2.558973E-08 \r\n                  0.0            0.0           5.117947E-08  0.0            9.000000E+01  5.117947E-08  0.0            2.558973E-08 \r\n             3    0.0            0.0          -2.279293E-07 -1.123981E-07  -2.230175E+01  4.610182E-08 -2.740311E-07   1.600664E-07 \r\n                  0.0            0.0          -2.279293E-07 -1.123981E-07  -2.230175E+01  4.610182E-08 -2.740311E-07   1.600664E-07 \r\n             5    0.0           -2.254954E-07  3.746116E-07 -1.399884E-07  -7.749442E+01  4.056606E-07 -2.565444E-07   3.311025E-07 \r\n                  0.0           -2.254954E-07  3.746116E-07 -1.399884E-07  -7.749442E+01  4.056606E-07 -2.565444E-07   3.311025E-07 \r\n             C    1.412791E+00   1.141763E+04 -8.502552E+06 -1.238360E+05  -8.331341E-01  1.321850E+04 -8.504352E+06   4.258786E+06 \r\n                 -1.412791E+00  -1.141763E+04  8.502552E+06  1.238360E+05   8.916686E+01  8.504352E+06 -1.321850E+04   4.258786E+06 \r\n0       2    1    0.0           -1.540691E-07 -1.944373E-07 -2.161656E-07  -4.233279E+01  4.285266E-08 -3.913592E-07   2.171059E-07 \r\n                  0.0           -1.540691E-07 -1.944373E-07 -2.161656E-07  -4.233279E+01  4.285266E-08 -3.913592E-07   2.171059E-07 \r\n             3    0.0           -2.461501E-07  1.620482E-07 -2.568959E-07  -6.423325E+01  2.860527E-07 -3.701545E-07   3.281036E-07 \r\n                  0.0           -2.461501E-07  1.620482E-07 -2.568959E-07  -6.423325E+01  2.860527E-07 -3.701545E-07   3.281036E-07 \r\n             5    0.0            5.852144E-08 -1.912653E-09  3.013164E-08   2.245946E+01  7.097740E-08 -1.436862E-08   4.267301E-08 \r\n                  0.0            5.852144E-08 -1.912653E-09  3.013164E-08   2.245946E+01  7.097740E-08 -1.436862E-08   4.267301E-08 \r\n             C    1.330232E+00  -2.427988E+05 -9.202873E+06 -3.868189E+05  -2.467419E+00 -2.261305E+05 -9.219542E+06   4.496706E+06 \r\n                 -1.330232E+00   2.427988E+05  9.202873E+06  3.868189E+05   8.753259E+01  9.219542E+06  2.261305E+05   4.496706E+06 \r\n0       3    1    0.0           -2.461501E-07  3.134599E-07 -2.466006E-07  -6.930465E+01  4.066196E-07 -3.393099E-07   3.729648E-07 \r\n                  0.0           -2.461501E-07  3.134599E-07 -2.466006E-07  -6.930465E+01  4.066196E-07 -3.393099E-07   3.729648E-07 \r\n             3    0.0           -1.540692E-07  1.952440E-07  2.796175E-07   6.099500E+01  3.502703E-07 -3.090956E-07   3.296830E-07 \r\n                  0.0           -1.540692E-07  1.952440E-07  2.796175E-07   6.099500E+01  3.502703E-07 -3.090956E-07   3.296830E-07 \r\n             5    0.0            7.268812E-07  6.096218E-08 -3.176625E-07  -2.182657E+01  8.541081E-07 -6.626465E-08   4.601864E-07 \r\n                  0.0            7.268812E-07  6.096218E-08 -3.176625E-07  -2.182657E+01  8.541081E-07 -6.626465E-08   4.601864E-07 \r\n             C    1.165116E+00   2.815825E+05 -9.590976E+06 -1.433773E+05  -8.318617E-01  2.836645E+05 -9.593058E+06   4.938361E+06 \r\n                 -1.165116E+00  -2.815825E+05  9.590976E+06  1.433773E+05   8.916814E+01  9.593058E+06 -2.836645E+05   4.938361E+06 \r\n0       4    1    0.0            4.566724E-07  2.038867E-07 -4.952920E-07  -3.784215E+01  8.414442E-07 -1.808851E-07   5.111647E-07 \r\n                  0.0            4.566724E-07  2.038867E-07 -4.952920E-07  -3.784215E+01  8.414442E-07 -1.808851E-07   5.111647E-07 \r\n             3    0.0            9.017651E-07  1.130778E-07 -2.136017E-07  -1.422140E+01  9.558996E-07  5.894339E-08   4.484781E-07 \r\n                  0.0            9.017651E-07  1.130778E-07 -2.136017E-07  -1.422140E+01  9.558996E-07  5.894339E-08   4.484781E-07 \r\n             5    0.0           -2.371428E-08 -1.027116E-06 -4.009517E-07  -1.931566E+01  1.168200E-07 -1.167650E-06   6.422351E-07 \r\n                  0.0           -2.371428E-08 -1.027116E-06 -4.009517E-07  -1.931566E+01  1.168200E-07 -1.167650E-06   6.422351E-07 \r\n             C    1.082558E+00  -3.133684E+05 -4.851619E+06 -2.431370E+04  -3.069506E-01 -3.132382E+05 -4.851749E+06   2.269256E+06 \r\n                 -1.082558E+00   3.133684E+05  4.851619E+06  2.431370E+04   8.969305E+01  4.851749E+06  3.132382E+05   2.269256E+06 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =   BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE               \r\n DATE:  5/17/95\r\n END TIME: 15:49:16\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d06011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D06011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     TIME  100                                                                       \r\n     SOL   6,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                         \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                          \r\n                  3      MAXLINES = 50000                                                                \r\n                  4      $   ECHO = NONE                                                                 \r\n                  5           SPC = 10                                                                   \r\n                  6          LOAD = 600                                                                  \r\n                  7          PLCOEFFICIENT = 23                                                          \r\n                  8      OUTPUT                                                                          \r\n                  9      $                                                                               \r\n                 10      SET 1 = 1 THRU 26,42,43,50,77,107,137,167,195,222,249,272,293,341,347,          \r\n                 11              348                                                                     \r\n                 12      SET 2 = 1 THRU 36, 196, 200                                                     \r\n                 13      $                                                                               \r\n                 14            DISPLACEMENT = 2                                                          \r\n                 15            OLOAD    = ALL                                                            \r\n                 16            SPCFORCE = ALL                                                            \r\n                 17            STRESS   = 1                                                              \r\n                 18      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   670, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRMEM  1       1       7       8       9                                       \r\n                    2-        CTRMEM  2       1       8       12      9                                       \r\n                    3-        CTRMEM  3       1       9       10      12                                      \r\n                    4-        CTRMEM  4       1       10      11      12                                      \r\n                    5-        CTRMEM  5       1       12      13      11                                      \r\n                    6-        CTRMEM  6       1       13      14      11                                      \r\n                    7-        CTRMEM  7       1       15      16      1                                       \r\n                    8-        CTRMEM  8       1       1       2       16                                      \r\n                    9-        CTRMEM  9       1       16      17      2                                       \r\n                   10-        CTRMEM  10      1       2       3       17                                      \r\n                   11-        CTRMEM  11      1       17      18      3                                       \r\n                   12-        CTRMEM  12      1       3       4       18                                      \r\n                   13-        CTRMEM  13      1       18      19      4                                       \r\n                   14-        CTRMEM  14      1       19      20      4                                       \r\n                   15-        CTRMEM  15      1       4       5       20                                      \r\n                   16-        CTRMEM  16      1       5       6       20                                      \r\n                   17-        CTRMEM  17      1       20      21      6                                       \r\n                   18-        CTRMEM  18      1       21      22      6                                       \r\n                   19-        CTRMEM  19      1       6       7       22                                      \r\n                   20-        CTRMEM  20      1       7       22      9       90.0                            \r\n                   21-        CTRMEM  21      1       22      23      9                                       \r\n                   22-        CTRMEM  22      1       9       10      23                                      \r\n                   23-        CTRMEM  23      1       10      11      23                                      \r\n                   24-        CTRMEM  24      1       23      24      11                                      \r\n                   25-        CTRMEM  25      1       14      24      11      90.0                            \r\n                   26-        CTRMEM  26      1       14      26      24                                      \r\n                   27-        CTRMEM  27      1       24      25      26                                      \r\n                   28-        CTRMEM  28      1       15      16      27                                      \r\n                   29-        CTRMEM  29      1       27      28      16                                      \r\n                   30-        CTRMEM  30      1       16      17      28                                      \r\n                   31-        CTRMEM  31      1       28      29      17                                      \r\n                   32-        CTRMEM  32      1       17      18      29                                      \r\n                   33-        CTRMEM  33      1       29      30      18                                      \r\n                   34-        CTRMEM  34      1       18      19      30                                      \r\n                   35-        CTRMEM  35      1       19      20      30                                      \r\n                   36-        CTRMEM  36      1       30      31      20                                      \r\n                   37-        CTRMEM  37      1       31      32      20                                      \r\n                   38-        CTRMEM  38      1       20      21      32                                      \r\n                   39-        CTRMEM  39      1       21      22      32                                      \r\n                   40-        CTRMEM  40      1       32      33      22                                      \r\n                   41-        CTRMEM  41      1       33      34      22                                      \r\n                   42-        CTRMEM  42      1       22      23      34                                      \r\n                   43-        CTRMEM  43      1       23      24      34                                      \r\n                   44-        CTRMEM  44      1       34      35      24                                      \r\n                   45-        CTRMEM  45      1       35      36      24                                      \r\n                   46-        CTRMEM  46      1       24      25      36                                      \r\n                   47-        CTRMEM  47      1       25      38      36                                      \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRMEM  48      1       36      37      38                                      \r\n                   49-        CTRMEM  49      1       25      38      26                                      \r\n                   50-        CTRMEM  50      1       26      39      38                                      \r\n                   51-        CTRMEM  51      1       40      41      27                                      \r\n                   52-        CTRMEM  52      1       27      28      41                                      \r\n                   53-        CTRMEM  53      1       41      42      28                                      \r\n                   54-        CTRMEM  54      1       28      29      42                                      \r\n                   55-        CTRMEM  55      1       42      43      29                                      \r\n                   56-        CTRMEM  56      1       29      30      43                                      \r\n                   57-        CTRMEM  57      1       43      44      30                                      \r\n                   58-        CTRMEM  58      1       44      45      30                                      \r\n                   59-        CTRMEM  59      1       30      31      45                                      \r\n                   60-        CTRMEM  60      1       31      32      45                                      \r\n                   61-        CTRMEM  61      1       45      46      32                                      \r\n                   62-        CTRMEM  62      1       46      47      32                                      \r\n                   63-        CTRMEM  63      1       32      33      47                                      \r\n                   64-        CTRMEM  64      1       33      34      47                                      \r\n                   65-        CTRMEM  65      1       47      48      34                                      \r\n                   66-        CTRMEM  66      1       48      49      34                                      \r\n                   67-        CTRMEM  67      1       34      35      49                                      \r\n                   68-        CTRMEM  68      1       35      36      49                                      \r\n                   69-        CTRMEM  69      1       49      50      36                                      \r\n                   70-        CTRMEM  70      1       50      51      36                                      \r\n                   71-        CTRMEM  71      1       36      37      51                                      \r\n                   72-        CTRMEM  72      1       37      53      51                                      \r\n                   73-        CTRMEM  73      1       51      52      53                                      \r\n                   74-        CTRMEM  74      1       37      53      38                                      \r\n                   75-        CTRMEM  75      1       38      54      53                                      \r\n                   76-        CTRMEM  76      1       38      54      55                                      \r\n                   77-        CTRMEM  77      1       39      55      38                                      \r\n                   78-        CTRMEM  78      1       40      41      56                                      \r\n                   79-        CTRMEM  79      1       56      57      41                                      \r\n                   80-        CTRMEM  80      1       41      42      57                                      \r\n                   81-        CTRMEM  81      1       57      58      42                                      \r\n                   82-        CTRMEM  82      1       42      43      58                                      \r\n                   83-        CTRMEM  83      1       58      59      43                                      \r\n                   84-        CTRMEM  84      1       43      44      59                                      \r\n                   85-        CTRMEM  85      1       44      45      59                                      \r\n                   86-        CTRMEM  86      1       59      60      45                                      \r\n                   87-        CTRMEM  87      1       60      61      45                                      \r\n                   88-        CTRMEM  88      1       45      46      61                                      \r\n                   89-        CTRMEM  89      1       46      47      61                                      \r\n                   90-        CTRMEM  90      1       61      62      47                                      \r\n                   91-        CTRMEM  91      1       62      63      47                                      \r\n                   92-        CTRMEM  92      1       47      48      63                                      \r\n                   93-        CTRMEM  93      1       48      49      63                                      \r\n                   94-        CTRMEM  94      1       63      64      49                                      \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CTRMEM  95      1       64      65      49                                      \r\n                   96-        CTRMEM  96      1       49      50      65                                      \r\n                   97-        CTRMEM  97      1       50      51      65                                      \r\n                   98-        CTRMEM  98      1       65      66      51                                      \r\n                   99-        CTRMEM  99      1       66      67      51                                      \r\n                  100-        CTRMEM  100     1       51      52      67                                      \r\n                  101-        CTRMEM  101     1       52      69      67                                      \r\n                  102-        CTRMEM  102     1       67      68      69                                      \r\n                  103-        CTRMEM  103     1       52      69      53                                      \r\n                  104-        CTRMEM  104     1       70      69      53      90.0                            \r\n                  105-        CTRMEM  105     1       54      70      53                                      \r\n                  106-        CTRMEM  106     1       54      70      55                                      \r\n                  107-        CTRMEM  107     1       55      71      70                                      \r\n                  108-        CTRMEM  108     1       72      73      56                                      \r\n                  109-        CTRMEM  109     1       56      57      73                                      \r\n                  110-        CTRMEM  110     1       73      74      57                                      \r\n                  111-        CTRMEM  111     1       57      58      74                                      \r\n                  112-        CTRMEM  112     1       74      75      58                                      \r\n                  113-        CTRMEM  113     1       58      59      75                                      \r\n                  114-        CTRMEM  114     1       75      76      59                                      \r\n                  115-        CTRMEM  115     1       59      60      76                                      \r\n                  116-        CTRMEM  116     1       60      61      76                                      \r\n                  117-        CTRMEM  117     1       76      77      61                                      \r\n                  118-        CTRMEM  118     1       77      78      61                                      \r\n                  119-        CTRMEM  119     1       61      62      78                                      \r\n                  120-        CTRMEM  120     1       62      63      78                                      \r\n                  121-        CTRMEM  121     1       78      79      63                                      \r\n                  122-        CTRMEM  122     1       79      80      63                                      \r\n                  123-        CTRMEM  123     1       63      64      80                                      \r\n                  124-        CTRMEM  124     1       64      65      80                                      \r\n                  125-        CTRMEM  125     1       80      81      65                                      \r\n                  126-        CTRMEM  126     1       81      82      65                                      \r\n                  127-        CTRMEM  127     1       65      66      82                                      \r\n                  128-        CTRMEM  128     1       66      67      82                                      \r\n                  129-        CTRMEM  129     1       82      83      67                                      \r\n                  130-        CTRMEM  130     1       83      84      67                                      \r\n                  131-        CTRMEM  131     1       67      68      84                                      \r\n                  132-        CTRMEM  132     1       68      85      84                                      \r\n                  133-        CTRMEM  133     1       68      85      69                                      \r\n                  134-        CTRMEM  134     1       86      85      69      90.0                            \r\n                  135-        CTRMEM  135     1       70      69      86      90.0                            \r\n                  136-        CTRMEM  136     1       87      86      70      90.0                            \r\n                  137-        CTRMEM  137     1       71      87      70                                      \r\n                  138-        CTRMEM  138     1       72      73      88                                      \r\n                  139-        CTRMEM  139     1       88      89      73                                      \r\n                  140-        CTRMEM  140     1       73      74      89                                      \r\n                  141-        CTRMEM  141     1       89      90      74                                      \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CTRMEM  142     1       74      75      90                                      \r\n                  143-        CTRMEM  143     1       90      91      75                                      \r\n                  144-        CTRMEM  144     1       75      76      91                                      \r\n                  145-        CTRMEM  145     1       91      92      76                                      \r\n                  146-        CTRMEM  146     1       76      77      92                                      \r\n                  147-        CTRMEM  147     1       77      78      92                                      \r\n                  148-        CTRMEM  148     1       92      93      78                                      \r\n                  149-        CTRMEM  149     1       93      94      78                                      \r\n                  150-        CTRMEM  150     1       78      79      94                                      \r\n                  151-        CTRMEM  151     1       79      80      94                                      \r\n                  152-        CTRMEM  152     1       94      95      80                                      \r\n                  153-        CTRMEM  153     1       95      96      80                                      \r\n                  154-        CTRMEM  154     1       80      81      96                                      \r\n                  155-        CTRMEM  155     1       81      82      96                                      \r\n                  156-        CTRMEM  156     1       96      97      82                                      \r\n                  157-        CTRMEM  157     1       97      98      82                                      \r\n                  158-        CTRMEM  158     1       82      83      98                                      \r\n                  159-        CTRMEM  159     1       83      84      98                                      \r\n                  160-        CTRMEM  160     1       98      99      84                                      \r\n                  161-        CTRMEM  161     1       85      99      84      90.0                            \r\n                  162-        CTRMEM  162     1       85      99      100     90.0                            \r\n                  163-        CTRMEM  163     1       101     100     85      90.0                            \r\n                  164-        CTRMEM  164     1       86      85      101     90.0                            \r\n                  165-        CTRMEM  165     1       102     101     86      90.0                            \r\n                  166-        CTRMEM  166     1       86      87      102     90.0                            \r\n                  167-        CTRMEM  167     1       87      103     102                                     \r\n                  168-        CTRMEM  168     1       104     105     88                                      \r\n                  169-        CTRMEM  169     1       88      89      105                                     \r\n                  170-        CTRMEM  170     1       105     106     89                                      \r\n                  171-        CTRMEM  171     1       89      90      106                                     \r\n                  172-        CTRMEM  172     1       106     107     90                                      \r\n                  173-        CTRMEM  173     1       90      91      107                                     \r\n                  174-        CTRMEM  174     1       107     108     91                                      \r\n                  175-        CTRMEM  175     1       91      92      108                                     \r\n                  176-        CTRMEM  176     1       108     109     92                                      \r\n                  177-        CTRMEM  177     1       92      93      109                                     \r\n                  178-        CTRMEM  178     1       93      94      109                                     \r\n                  179-        CTRMEM  179     1       109     110     94                                      \r\n                  180-        CTRMEM  180     1       94      95      110                                     \r\n                  181-        CTRMEM  181     1       95      96      110                                     \r\n                  182-        CTRMEM  182     1       110     111     96                                      \r\n                  183-        CTRMEM  183     1       96      97      111                                     \r\n                  184-        CTRMEM  184     1       97      98      111                                     \r\n                  185-        CTRMEM  185     1       111     112     98                                      \r\n                  186-        CTRMEM  186     1       98      99      112                                     \r\n                  187-        CTRMEM  187     1       112     113     99                                      \r\n                  188-        CTRMEM  188     1       100     113     99      90.0                            \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CTRMEM  189     1       100     113     114     90.0                            \r\n                  190-        CTRMEM  190     1       115     114     100     90.0                            \r\n                  191-        CTRMEM  191     1       101     100     115     90.0                            \r\n                  192-        CTRMEM  192     1       116     115     101     90.0                            \r\n                  193-        CTRMEM  193     1       102     101     116     90.0                            \r\n                  194-        CTRMEM  194     1       116     117     102     90.0                            \r\n                  195-        CTRMEM  195     1       103     117     102                                     \r\n                  196-        CTRMEM  196     1       104     105     118                                     \r\n                  197-        CTRMEM  197     1       118     119     105                                     \r\n                  198-        CTRMEM  198     1       105     106     119                                     \r\n                  199-        CTRMEM  199     1       119     120     106                                     \r\n                  200-        CTRMEM  200     1       106     107     120                                     \r\n                  201-        CTRMEM  201     1       120     121     107                                     \r\n                  202-        CTRMEM  202     1       107     108     121                                     \r\n                  203-        CTRMEM  203     1       121     122     108                                     \r\n                  204-        CTRMEM  204     1       108     109     122                                     \r\n                  205-        CTRMEM  205     1       122     123     109                                     \r\n                  206-        CTRMEM  206     1       109     110     123                                     \r\n                  207-        CTRMEM  207     1       123     124     110                                     \r\n                  208-        CTRMEM  208     1       110     111     124                                     \r\n                  209-        CTRMEM  209     1       124     125     111                                     \r\n                  210-        CTRMEM  210     1       111     112     125                                     \r\n                  211-        CTRMEM  211     1       125     126     112                                     \r\n                  212-        CTRMEM  212     1       112     113     126                                     \r\n                  213-        CTRMEM  213     1       126     127     113                                     \r\n                  214-        CTRMEM  214     1       114     127     113     90.0                            \r\n                  215-        CTRMEM  215     1       114     129     127                                     \r\n                  216-        CTRMEM  216     1       127     128     129                                     \r\n                  217-        CTRMEM  217     1       114     129     115                                     \r\n                  218-        CTRMEM  218     1       115     130     129                                     \r\n                  219-        CTRMEM  219     1       115     130     131                                     \r\n                  220-        CTRMEM  220     1       116     131     115                                     \r\n                  221-        CTRMEM  221     1       116     131     117                                     \r\n                  222-        CTRMEM  222     1       117     132     131                                     \r\n                  223-        CTRMEM  223     1       118     119     133                                     \r\n                  224-        CTRMEM  224     1       133     134     119                                     \r\n                  225-        CTRMEM  225     1       134     135     119                                     \r\n                  226-        CTRMEM  226     1       119     120     135                                     \r\n                  227-        CTRMEM  227     1       120     121     135                                     \r\n                  228-        CTRMEM  228     1       135     136     121                                     \r\n                  229-        CTRMEM  229     1       136     137     121                                     \r\n                  230-        CTRMEM  230     1       121     122     137                                     \r\n                  231-        CTRMEM  231     1       122     123     137                                     \r\n                  232-        CTRMEM  232     1       137     138     123                                     \r\n                  233-        CTRMEM  233     1       138     139     123                                     \r\n                  234-        CTRMEM  234     1       123     124     139                                     \r\n                  235-        CTRMEM  235     1       124     125     139                                     \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CTRMEM  236     1       139     140     125                                     \r\n                  237-        CTRMEM  237     1       140     141     125                                     \r\n                  238-        CTRMEM  238     1       125     126     141                                     \r\n                  239-        CTRMEM  239     1       126     127     141                                     \r\n                  240-        CTRMEM  240     1       141     142     127                                     \r\n                  241-        CTRMEM  241     1       142     143     127                                     \r\n                  242-        CTRMEM  242     1       127     128     143                                     \r\n                  243-        CTRMEM  243     1       128     144     143                                     \r\n                  244-        CTRMEM  244     1       128     144     129                                     \r\n                  245-        CTRMEM  245     1       145     144     129     90.0                            \r\n                  246-        CTRMEM  246     1       130     145     129                                     \r\n                  247-        CTRMEM  247     1       130     145     131                                     \r\n                  248-        CTRMEM  248     1       146     145     131     90.0                            \r\n                  249-        CTRMEM  249     1       132     146     131                                     \r\n                  250-        CTRMEM  250     1       147     148     133                                     \r\n                  251-        CTRMEM  251     1       133     134     148                                     \r\n                  252-        CTRMEM  252     1       134     135     148                                     \r\n                  253-        CTRMEM  253     1       148     149     135                                     \r\n                  254-        CTRMEM  254     1       135     136     149                                     \r\n                  255-        CTRMEM  255     1       136     137     149                                     \r\n                  256-        CTRMEM  256     1       149     150     137                                     \r\n                  257-        CTRMEM  257     1       137     138     150                                     \r\n                  258-        CTRMEM  258     1       138     139     150                                     \r\n                  259-        CTRMEM  259     1       150     151     139                                     \r\n                  260-        CTRMEM  260     1       139     140     151                                     \r\n                  261-        CTRMEM  261     1       140     141     151                                     \r\n                  262-        CTRMEM  262     1       151     152     141                                     \r\n                  263-        CTRMEM  263     1       141     142     152                                     \r\n                  264-        CTRMEM  264     1       142     143     152                                     \r\n                  265-        CTRMEM  265     1       152     153     143                                     \r\n                  266-        CTRMEM  266     1       144     153     143     90.0                            \r\n                  267-        CTRMEM  267     1       153     154     144                                     \r\n                  268-        CTRMEM  268     1       144     155     154                                     \r\n                  269-        CTRMEM  269     1       144     155     156                                     \r\n                  270-        CTRMEM  270     1       145     156     144                                     \r\n                  271-        CTRMEM  271     1       145     156     146                                     \r\n                  272-        CTRMEM  272     1       146     157     156                                     \r\n                  273-        CTRMEM  273     1       147     148     158                                     \r\n                  274-        CTRMEM  274     1       158     159     148                                     \r\n                  275-        CTRMEM  275     1       148     149     159                                     \r\n                  276-        CTRMEM  276     1       159     160     149                                     \r\n                  277-        CTRMEM  277     1       149     150     160                                     \r\n                  278-        CTRMEM  278     1       160     161     150                                     \r\n                  279-        CTRMEM  279     1       150     151     161                                     \r\n                  280-        CTRMEM  280     1       161     162     151                                     \r\n                  281-        CTRMEM  281     1       151     152     162                                     \r\n                  282-        CTRMEM  282     1       162     163     152                                     \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CTRMEM  283     1       152     153     163                                     \r\n                  284-        CTRMEM  284     1       163     164     153                                     \r\n                  285-        CTRMEM  285     1       153     154     164                                     \r\n                  286-        CTRMEM  286     1       164     165     154                                     \r\n                  287-        CTRMEM  287     1       154     166     165                                     \r\n                  288-        CTRMEM  288     1       154     166     167                                     \r\n                  289-        CTRMEM  289     1       155     167     154                                     \r\n                  290-        CTRMEM  290     1       155     167     156                                     \r\n                  291-        CTRMEM  291     1       156     168     167                                     \r\n                  292-        CTRMEM  292     1       156     168     169                                     \r\n                  293-        CTRMEM  293     1       157     169     156                                     \r\n                  294-        CTRMEM  294     1       170     171     158                                     \r\n                  295-        CTRMEM  295     1       158     159     171                                     \r\n                  296-        CTRMEM  296     1       159     160     171                                     \r\n                  297-        CTRMEM  297     1       171     172     160                                     \r\n                  298-        CTRMEM  298     1       172     173     160                                     \r\n                  299-        CTRMEM  299     1       160     161     173                                     \r\n                  300-        CTRMEM  300     1       161     162     173                                     \r\n                  301-        CTRMEM  301     1       173     174     162                                     \r\n                  302-        CTRMEM  302     1       174     175     162                                     \r\n                  303-        CTRMEM  303     1       162     163     175                                     \r\n                  304-        CTRMEM  304     1       163     164     175                                     \r\n                  305-        CTRMEM  305     1       175     176     164                                     \r\n                  306-        CTRMEM  306     1       176     177     164                                     \r\n                  307-        CTRMEM  307     1       164     165     177                                     \r\n                  308-        CTRMEM  308     1       170     171     178                                     \r\n                  309-        CTRMEM  309     1       178     179     171                                     \r\n                  310-        CTRMEM  310     1       171     172     179                                     \r\n                  311-        CTRMEM  311     1       179     180     172                                     \r\n                  312-        CTRMEM  312     1       172     173     180                                     \r\n                  313-        CTRMEM  313     1       173     174     180                                     \r\n                  314-        CTRMEM  314     1       180     181     174                                     \r\n                  315-        CTRMEM  315     1       174     175     181                                     \r\n                  316-        CTRMEM  316     1       181     182     175                                     \r\n                  317-        CTRMEM  317     1       175     176     182                                     \r\n                  318-        CTRMEM  318     1       182     183     176                                     \r\n                  319-        CTRMEM  319     1       176     177     183                                     \r\n                  320-        CTRMEM  320     1       184     185     178                                     \r\n                  321-        CTRMEM  321     1       178     179     185                                     \r\n                  322-        CTRMEM  322     1       179     180     185                                     \r\n                  323-        CTRMEM  323     1       185     186     180                                     \r\n                  324-        CTRMEM  324     1       186     187     180                                     \r\n                  325-        CTRMEM  325     1       180     181     187                                     \r\n                  326-        CTRMEM  326     1       181     182     187                                     \r\n                  327-        CTRMEM  327     1       187     188     182                                     \r\n                  328-        CTRMEM  328     1       188     189     182                                     \r\n                  329-        CTRMEM  329     1       182     183     189                                     \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CTRMEM  330     1       184     185     190                                     \r\n                  331-        CTRMEM  331     1       190     191     185                                     \r\n                  332-        CTRMEM  332     1       191     192     185                                     \r\n                  333-        CTRMEM  333     1       185     186     192                                     \r\n                  334-        CTRMEM  334     1       186     187     192                                     \r\n                  335-        CTRMEM  335     1       192     193     187                                     \r\n                  336-        CTRMEM  336     1       193     194     187                                     \r\n                  337-        CTRMEM  337     1       187     188     194                                     \r\n                  338-        CTRMEM  338     1       188     189     194                                     \r\n                  339-        CTRMEM  339     1       194     195     189                                     \r\n                  340-        CTRMEM  340     1       190     191     196                                     \r\n                  341-        CTRMEM  341     1       196     197     191                                     \r\n                  342-        CTRMEM  342     1       191     192     197                                     \r\n                  343-        CTRMEM  343     1       197     198     192                                     \r\n                  344-        CTRMEM  344     1       192     193     198                                     \r\n                  345-        CTRMEM  345     1       198     199     193                                     \r\n                  346-        CTRMEM  346     1       193     194     199                                     \r\n                  347-        CTRMEM  347     1       199     200     194                                     \r\n                  348-        CTRMEM  348     1       194     195     200                                     \r\n                  349-        FORCE   600     196             100.    0.0     .375                            \r\n                  350-        FORCE   600     197             100.    0.0     .75                             \r\n                  351-        FORCE   600     198             100.    0.0     .75                             \r\n                  352-        FORCE   600     199             100.    0.0     .75                             \r\n                  353-        FORCE   600     200             100.    0.0     .375                            \r\n                  354-        GRDSET                                                  3456                    \r\n                  355-        GRID    1               0.0     0.0                                             \r\n                  356-        GRID    2               .2      .0                                              \r\n                  357-        GRID    3               .4      .0                                              \r\n                  358-        GRID    4               .6      .0                                              \r\n                  359-        GRID    5               .7      .0                                              \r\n                  360-        GRID    6               .8      .0                                              \r\n                  361-        GRID    7               .9      .0                                              \r\n                  362-        GRID    8               .95     .0                                              \r\n                  363-        GRID    9               .95     .05                                             \r\n                  364-        GRID    10              1.0     .05                                             \r\n                  365-        GRID    11              1.05    .05                                             \r\n                  366-        GRID    12              1.0     .0                                              \r\n                  367-        GRID    13              1.05    .0                                              \r\n                  368-        GRID    14              1.1     .0                                              \r\n                  369-        GRID    15              .0      .1                                              \r\n                  370-        GRID    16              .1      .1                                              \r\n                  371-        GRID    17              .3      .1                                              \r\n                  372-        GRID    18              .5      .1                                              \r\n                  373-        GRID    19              .6      .1                                              \r\n                  374-        GRID    20              .7      .1                                              \r\n                  375-        GRID    21              .8      .1                                              \r\n                  376-        GRID    22              .9      .1                                              \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        GRID    23              1.0     .1                                              \r\n                  378-        GRID    24              1.1     .1                                              \r\n                  379-        GRID    25              1.2     .1                                              \r\n                  380-        GRID    26              1.2     .0                                              \r\n                  381-        GRID    27              .0      .2                                              \r\n                  382-        GRID    28              .2      .2                                              \r\n                  383-        GRID    29              .4      .2                                              \r\n                  384-        GRID    30              .6      .2                                              \r\n                  385-        GRID    31              .7      .2                                              \r\n                  386-        GRID    32              .8      .2                                              \r\n                  387-        GRID    33              .9      .2                                              \r\n                  388-        GRID    34              1.0     .2                                              \r\n                  389-        GRID    35              1.1     .2                                              \r\n                  390-        GRID    36              1.2     .2                                              \r\n                  391-        GRID    37              1.3     .2                                              \r\n                  392-        GRID    38              1.3     .1                                              \r\n                  393-        GRID    39              1.3     .0                                              \r\n                  394-        GRID    40              .0      .3                                              \r\n                  395-        GRID    41              .1      .3                                              \r\n                  396-        GRID    42              .3      .3                                              \r\n                  397-        GRID    43              .5      .3                                              \r\n                  398-        GRID    44              .6      .3                                              \r\n                  399-        GRID    45              .7      .3                                              \r\n                  400-        GRID    46              .8      .3                                              \r\n                  401-        GRID    47              .9      .3                                              \r\n                  402-        GRID    48              1.0     .3                                              \r\n                  403-        GRID    49              1.1     .3                                              \r\n                  404-        GRID    50              1.2     .3                                              \r\n                  405-        GRID    51              1.3     .3                                              \r\n                  406-        GRID    52              1.4     .3                                              \r\n                  407-        GRID    53              1.4     .2                                              \r\n                  408-        GRID    54              1.4     .1                                              \r\n                  409-        GRID    55              1.4     .0                                              \r\n                  410-        GRID    56              .0      .4                                              \r\n                  411-        GRID    57              .2      .4                                              \r\n                  412-        GRID    58              .4      .4                                              \r\n                  413-        GRID    59              .6      .4                                              \r\n                  414-        GRID    60              .7      .4                                              \r\n                  415-        GRID    61              .8      .4                                              \r\n                  416-        GRID    62              .9      .4                                              \r\n                  417-        GRID    63              1.0     .4                                              \r\n                  418-        GRID    64              1.1     .4                                              \r\n                  419-        GRID    65              1.2     .4                                              \r\n                  420-        GRID    66              1.3     .4                                              \r\n                  421-        GRID    67              1.4     .4                                              \r\n                  422-        GRID    68              1.5     .4                                              \r\n                  423-        GRID    69              1.5     .3                                              \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    70              1.5     .1                                              \r\n                  425-        GRID    71              1.5     .0                                              \r\n                  426-        GRID    72              .0      .5                                              \r\n                  427-        GRID    73              .1      .5                                              \r\n                  428-        GRID    74              .3      .5                                              \r\n                  429-        GRID    75              .5      .5                                              \r\n                  430-        GRID    76              .7      .5                                              \r\n                  431-        GRID    77              .8      .5                                              \r\n                  432-        GRID    78              .9      .5                                              \r\n                  433-        GRID    79              1.0     .5                                              \r\n                  434-        GRID    80              1.1     .5                                              \r\n                  435-        GRID    81              1.2     .5                                              \r\n                  436-        GRID    82              1.3     .5                                              \r\n                  437-        GRID    83              1.4     .5                                              \r\n                  438-        GRID    84              1.5     .5                                              \r\n                  439-        GRID    85              1.6     .4                                              \r\n                  440-        GRID    86              1.6     .2                                              \r\n                  441-        GRID    87              1.6     .0                                              \r\n                  442-        GRID    88              .0      .6                                              \r\n                  443-        GRID    89              .2      .6                                              \r\n                  444-        GRID    90              .4      .6                                              \r\n                  445-        GRID    91              .6      .6                                              \r\n                  446-        GRID    92              .8      .6                                              \r\n                  447-        GRID    93              .9      .6                                              \r\n                  448-        GRID    94              1.0     .6                                              \r\n                  449-        GRID    95              1.1     .6                                              \r\n                  450-        GRID    96              1.2     .6                                              \r\n                  451-        GRID    97              1.3     .6                                              \r\n                  452-        GRID    98              1.4     .6                                              \r\n                  453-        GRID    99              1.6     .6                                              \r\n                  454-        GRID    100             1.7     .5                                              \r\n                  455-        GRID    101             1.7     .3                                              \r\n                  456-        GRID    102             1.7     .1                                              \r\n                  457-        GRID    103             1.7     .0                                              \r\n                  458-        GRID    104             .0      .7                                              \r\n                  459-        GRID    105             .1      .7                                              \r\n                  460-        GRID    106             .3      .7                                              \r\n                  461-        GRID    107             .5      .7                                              \r\n                  462-        GRID    108             .7      .7                                              \r\n                  463-        GRID    109             .9      .7                                              \r\n                  464-        GRID    110             1.1     .7                                              \r\n                  465-        GRID    111             1.3     .7                                              \r\n                  466-        GRID    112             1.5     .7                                              \r\n                  467-        GRID    113             1.7     .7                                              \r\n                  468-        GRID    114             1.8     .6                                              \r\n                  469-        GRID    115             1.8     .4                                              \r\n                  470-        GRID    116             1.8     .2                                              \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        GRID    117             1.8     .0                                              \r\n                  472-        GRID    118             .0      .8                                              \r\n                  473-        GRID    119             .2      .8                                              \r\n                  474-        GRID    120             .4      .8                                              \r\n                  475-        GRID    121             .6      .8                                              \r\n                  476-        GRID    122             .8      .8                                              \r\n                  477-        GRID    123             1.0     .8                                              \r\n                  478-        GRID    124             1.2     .8                                              \r\n                  479-        GRID    125             1.4     .8                                              \r\n                  480-        GRID    126             1.6     .8                                              \r\n                  481-        GRID    127             1.8     .8                                              \r\n                  482-        GRID    128             2.0     .8                                              \r\n                  483-        GRID    129             2.0     .6                                              \r\n                  484-        GRID    130             2.0     .4                                              \r\n                  485-        GRID    131             2.0     .2                                              \r\n                  486-        GRID    132             2.0     .0                                              \r\n                  487-        GRID    133             .0      1.0                                             \r\n                  488-        GRID    134             .2      1.0                                             \r\n                  489-        GRID    135             .4      1.0                                             \r\n                  490-        GRID    136             .6      1.0                                             \r\n                  491-        GRID    137             .8      1.0                                             \r\n                  492-        GRID    138             1.0     1.0                                             \r\n                  493-        GRID    139             1.2     1.0                                             \r\n                  494-        GRID    140             1.4     1.0                                             \r\n                  495-        GRID    141             1.6     1.0                                             \r\n                  496-        GRID    142             1.8     1.0                                             \r\n                  497-        GRID    143             2.0     1.0                                             \r\n                  498-        GRID    144             2.2     .8                                              \r\n                  499-        GRID    145             2.2     .4                                              \r\n                  500-        GRID    146             2.2     .0                                              \r\n                  501-        GRID    147             .0      1.2                                             \r\n                  502-        GRID    148             .2      1.2                                             \r\n                  503-        GRID    149             .6      1.2                                             \r\n                  504-        GRID    150             1.0     1.2                                             \r\n                  505-        GRID    151             1.4     1.2                                             \r\n                  506-        GRID    152             1.8     1.2                                             \r\n                  507-        GRID    153             2.2     1.2                                             \r\n                  508-        GRID    154             2.6     1.2                                             \r\n                  509-        GRID    155             2.6     .8                                              \r\n                  510-        GRID    156             2.6     .4                                              \r\n                  511-        GRID    157             2.6     .0                                              \r\n                  512-        GRID    158             .0      1.6                                             \r\n                  513-        GRID    159             .4      1.6                                             \r\n                  514-        GRID    160             .8      1.6                                             \r\n                  515-        GRID    161             1.2     1.6                                             \r\n                  516-        GRID    162             1.6     1.6                                             \r\n                  517-        GRID    163             2.0     1.6                                             \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        GRID    164             2.5     1.6                                             \r\n                  519-        GRID    165             3.0     1.6                                             \r\n                  520-        GRID    166             3.0     1.2                                             \r\n                  521-        GRID    167             3.0     .8                                              \r\n                  522-        GRID    168             3.0     .4                                              \r\n                  523-        GRID    169             3.0     .0                                              \r\n                  524-        GRID    170             .0      2.1                                             \r\n                  525-        GRID    171             .4      2.1                                             \r\n                  526-        GRID    172             .8      2.1                                             \r\n                  527-        GRID    173             1.2     2.1                                             \r\n                  528-        GRID    174             1.6     2.1                                             \r\n                  529-        GRID    175             2.0     2.1                                             \r\n                  530-        GRID    176             2.5     2.1                                             \r\n                  531-        GRID    177             3.0     2.1                                             \r\n                  532-        GRID    178             .0      2.6                                             \r\n                  533-        GRID    179             .6      2.6                                             \r\n                  534-        GRID    180             1.2     2.6                                             \r\n                  535-        GRID    181             1.8     2.6                                             \r\n                  536-        GRID    182             2.4     2.6                                             \r\n                  537-        GRID    183             3.0     2.6                                             \r\n                  538-        GRID    184             .0      3.2                                             \r\n                  539-        GRID    185             .6      3.2                                             \r\n                  540-        GRID    186             1.2     3.2                                             \r\n                  541-        GRID    187             1.8     3.2                                             \r\n                  542-        GRID    188             2.4     3.2                                             \r\n                  543-        GRID    189             3.0     3.2                                             \r\n                  544-        GRID    190             .0      3.8                                             \r\n                  545-        GRID    191             .6      3.8                                             \r\n                  546-        GRID    192             1.2     3.8                                             \r\n                  547-        GRID    193             1.8     3.8                                             \r\n                  548-        GRID    194             2.4     3.8                                             \r\n                  549-        GRID    195             3.0     3.8                                             \r\n                  550-        GRID    196             .0      4.5                                             \r\n                  551-        GRID    197             .75     4.5                                             \r\n                  552-        GRID    198             1.5     4.5                                             \r\n                  553-        GRID    199             2.25    4.5                                             \r\n                  554-        GRID    200             3.0     4.5                                             \r\n                  555-        LOAD    2300    23.     1.0     600                                             \r\n                  556-        MAT1    60      10.8+6          .3333                                   +M1     \r\n                  557-        +M1     11.5+3  11.5+3                                                          \r\n                  558-        MATS1   60      101                                                             \r\n                  559-        PLFACT  23      23.     25.     28.     31.     34.     37.     40.     +A-PLF  \r\n                  560-        +A-PLF  44.     48.     52.     56.     60.     65.     70.     75.     +B-PLF  \r\n                  561-        +B-PLF  80.     85.     90.     95.     100.    105.    110.    115.    +C-PLF  \r\n                  562-        +C-PLF  120.    125.    130.                                                    \r\n                  563-        PTRMEM  1       60      1.0                                                     \r\n                  564-        SPC1    10      1       1       15      27      40      56      72      + SPC1-1\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        + SPC1-188      104     118     133     147     158     170     178     + SPC2-1\r\n                  566-        + SPC2-1184     190     196                                                     \r\n                  567-        SPC1    10      2       12      13      14      26      39      55      + SPC1-2\r\n                  568-        + SPC1-271      87      103     117     132     146     157     169             \r\n                  569-        TABLES1 101                                                             *TAB100 \r\n                  570-        *TAB100 -8.4495168E-02  -3.4765000E04   -8.2418240E-02  -3.453E04       *TAB101 \r\n                  571-        *TAB101 -8.0372998E-02  -3.4295000E04   -7.8359272E-02  -3.406E04       *TAB102 \r\n                  572-        *TAB102 -7.6376893E-02  -3.3825000E04   -7.4425689E-02  -3.359E04       *TAB103 \r\n                  573-        *TAB103 -7.2505489E-02  -3.3355000E04   -7.0616119E-02  -3.312E04       *TAB104 \r\n                  574-        *TAB104 -6.8757406E-02  -3.2885000E04   -6.6929175E-02  -3.265E04       *TAB105 \r\n                  575-        *TAB105 -6.5131251E-02  -3.2415000E04   -6.3363456E-02  -3.218E04       *TAB106 \r\n                  576-        *TAB106 -6.1625615E-02  -3.1945000E04   -5.9917548E-02  -3.171E04       *TAB107 \r\n                  577-        *TAB107 -5.8239075E-02  -3.1475000E04   -5.65918E-02    -3.124E04       *TAB108 \r\n                  578-        *TAB108 -5.497193E-02   -3.1005000E04   -5.3379419E-02  -3.077E04       *TAB109 \r\n                  579-        *TAB109 -5.1817513E-02  -3.0535000E04   -5.0284289E-02  -3.030E04       *TAB110 \r\n                  580-        *TAB110 -4.8779562E-02  -3.0065000E04   -4.7303146E-02  -2.983E04       *TAB111 \r\n                  581-        *TAB111 -4.5854852E-02  -2.9595000E04   -4.4434491E-02  -2.936E04       *TAB112 \r\n                  582-        *TAB112 -4.3041873E-02  -2.9125000E04   -4.1676807E-02  -2.889E04       *TAB113 \r\n                  583-        *TAB113 -4.0339100E-02  -2.8655000E04   -3.9028558E-02  -2.842E04       *TAB114 \r\n                  584-        *TAB114 -3.7744987E-02  -2.8185000E04   -3.6488188E-02  -2.795E04       *TAB115 \r\n                  585-        *TAB115 -3.5257966E-02  -2.7715000E04   -3.4054121E-02  -2.748E04       *TAB116 \r\n                  586-        *TAB116 -3.2876451E-02  -2.7245000E04   -3.1724757E-02  -2.701E04       *TAB117 \r\n                  587-        *TAB117 -3.0598832E-02  -2.6775000E04   -2.9498474E-02  -2.654E04       *TAB118 \r\n                  588-        *TAB118 -2.8423475E-02  -2.6305000E04   -2.7373628E-02  -2.607E04       *TAB119 \r\n                  589-        *TAB119 -2.6348724E-02  -2.5835000E04   -2.5348551E-02  -2.560E04       *TAB120 \r\n                  590-        *TAB120 -2.4372896E-02  -2.5365000E04   -2.3421545E-02  -2.513E04       *TAB121 \r\n                  591-        *TAB121 -2.2494282E-02  -2.4895000E04   -2.159888E-02   -2.466E04       *TAB122 \r\n                  592-        *TAB122 -2.0711145E-02  -2.4425000E04   -1.9854830E-02  -2.419E04       *TAB123 \r\n                  593-        *TAB123 -1.9021719E-02  -2.3955000E04   -1.8211588E-02  -2.372E04       *TAB124 \r\n                  594-        *TAB124 -1.7424207E-02  -2.3485000E04   -1.6659349E-02  -2.325E04       *TAB125 \r\n                  595-        *TAB125 -1.5916779E-02  -2.3015000E04   -1.5196266E-02  -2.278E04       *TAB126 \r\n                  596-        *TAB126 -1.4497571E-02  -2.2545000E04   -1.382457E-02   -2.231E04       *TAB127 \r\n                  597-        *TAB127 -1.3164682E-02  -2.2075000E04   -1.2532E-02     -2.184E04       *TAB128 \r\n                  598-        *TAB128 -1.1916171E-02  -2.1605000E04   -1.1322939E-02  -2.137E04       *TAB129 \r\n                  599-        *TAB129 -1.07556E-02    -2.1135000E04   -1.0197266E-02  -2.090E04       *TAB130 \r\n                  600-        *TAB130 -9.6643119E-03  -2.0665000E04   -9.1509324E-03  -2.043E04       *TAB131 \r\n                  601-        *TAB131 -8.6568637E-03  -2.0195000E04   -8.1818386E-03  -1.996E04       *TAB132 \r\n                  602-        *TAB132 -7.7255861E-03  -1.9725000E04   -7.2878319E-03  -1.949E04       *TAB133 \r\n                  603-        *TAB133 -6.8682978E-03  -1.9255000E04   -6.4667017E-03  -1.902E04       *TAB134 \r\n                  604-        *TAB134 -6.0827573E-03  -1.8785000E04   -5.7161741E-03  -1.855E04       *TAB135 \r\n                  605-        *TAB135 -5.3666571E-03  -1.8315000E04   -5.0339064E-03  -1.808E04       *TAB136 \r\n                  606-        *TAB136 -4.7176173E-03  -1.7845000E04   -4.4174798E-03  -1.761E04       *TAB137 \r\n                  607-        *TAB137 -4.1331784E-03  -1.7375000E04   -3.8643916E-03  -1.714E04       *TAB138 \r\n                  608-        *TAB138 -3.6107919E-03  -1.6905000E04   -3.372451E-03   -1.667E04       *TAB139 \r\n                  609-        *TAB139 -3.1478101E-03  -1.6435000E04   -2.9377381E-03  -1.620E04       *TAB140 \r\n                  610-        *TAB140 -2.7414724E-03  -1.5965000E04   -2.5586479E-03  -1.573E04       *TAB141 \r\n                  611-        *TAB141 -2.3888897E-03  -1.5495000E04   -2.2318132E-03  -1.526E04       *TAB142 \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        *TAB142 -2.087227E-03   -1.5025000E04   -1.9541106E-03  -1.479E04       *TAB143 \r\n                  613-        *TAB143 -1.8326559E-03  -1.4555000E04   -1.7222231E-03  -1.432E04       *TAB144 \r\n                  614-        *TAB144 -1.6223604E-03  -1.4085000E04   -1.5325975E-03  -1.385E04       *TAB145 \r\n                  615-        *TAB145 -1.4524432E-03  -1.3615000E04   -1.3813823E-03  -1.338E04       *TAB146 \r\n                  616-        *TAB146 -1.3188712E-03  -1.3145000E04   -1.2643326E-03  -1.291E04       *TAB147 \r\n                  617-        *TAB147 -1.2171483E-03  -1.2675000E04   -1.1766480E-03  -1.244E04       *TAB148 \r\n                  618-        *TAB148 -1.142932E-03   -1.2205000E04   -1.1126483E-03  -1.197E04       *TAB149 \r\n                  619-        *TAB149 -1.0873249E-03  -1.1735000E04   -1.0648148E-03  -1.150E04       *TAB150 \r\n                  620-        *TAB150 0.              0.              1.0648148E-03   1.150E04        *TAB151 \r\n                  621-        *TAB151 1.0873249E-03   1.1735000E04    1.1126483E-03   1.197E04        *TAB152 \r\n                  622-        *TAB152 1.142932E-03    1.2205000E04    1.1766480E-03   1.244E04        *TAB153 \r\n                  623-        *TAB153 1.2171483E-03   1.2675000E04    1.2643326E-03   1.291E04        *TAB154 \r\n                  624-        *TAB154 1.3188712E-03   1.3145000E04    1.3813823E-03   1.338E04        *TAB155 \r\n                  625-        *TAB155 1.4524432E-03   1.3615000E04    1.5325975E-03   1.385E04        *TAB156 \r\n                  626-        *TAB156 1.6223604E-03   1.4085000E04    1.7222231E-03   1.432E04        *TAB157 \r\n                  627-        *TAB157 1.8326559E-03   1.4555000E04    1.9541106E-03   1.479E04        *TAB158 \r\n                  628-        *TAB158 2.087227E-03    1.5025000E04    2.2318132E-03   1.526E04        *TAB159 \r\n                  629-        *TAB159 2.3888897E-03   1.5495000E04    2.5586479E-03   1.573E04        *TAB160 \r\n                  630-        *TAB160 2.7414724E-03   1.5965000E04    2.9377381E-03   1.620E04        *TAB161 \r\n                  631-        *TAB161 3.1478101E-03   1.6435000E04    3.372451E-03    1.667E04        *TAB162 \r\n                  632-        *TAB162 3.6107919E-03   1.6905000E04    3.8643916E-03   1.714E04        *TAB163 \r\n                  633-        *TAB163 4.1331784E-03   1.7375000E04    4.4174798E-03   1.761E04        *TAB164 \r\n                  634-        *TAB164 4.7176173E-03   1.7845000E04    5.0339064E-03   1.808E04        *TAB165 \r\n                  635-        *TAB165 5.3666571E-03   1.8315000E04    5.7161741E-03   1.855E04        *TAB166 \r\n                  636-        *TAB166 6.0827573E-03   1.8785000E04    6.4667017E-03   1.902E04        *TAB167 \r\n                  637-        *TAB167 6.8682978E-03   1.9255000E04    7.2878319E-03   1.949E04        *TAB168 \r\n                  638-        *TAB168 7.7255861E-03   1.9725000E04    8.1818386E-03   1.996E04        *TAB169 \r\n                  639-        *TAB169 8.6568637E-03   2.0195000E04    9.1509324E-03   2.043E04        *TAB170 \r\n                  640-        *TAB170 9.6643119E-03   2.0665000E04    1.0197266E-02   2.090E04        *TAB171 \r\n                  641-        *TAB171 1.07556E-02     2.1135000E04    1.1322939E-02   2.137E04        *TAB172 \r\n                  642-        *TAB172 1.1916171E-02   2.1605000E04    1.2532E-02      2.184E04        *TAB173 \r\n                  643-        *TAB173 1.3164682E-02   2.2075000E04    1.382457E-02    2.231E04        *TAB174 \r\n                  644-        *TAB174 1.4497571E-02   2.2545000E04    1.5196266E-02   2.278E04        *TAB175 \r\n                  645-        *TAB175 1.5916779E-02   2.3015000E04    1.6659349E-02   2.325E04        *TAB176 \r\n                  646-        *TAB176 1.7424207E-02   2.3485000E04    1.8211588E-02   2.372E04        *TAB177 \r\n                  647-        *TAB177 1.9021719E-02   2.3955000E04    1.9854830E-02   2.419E04        *TAB178 \r\n                  648-        *TAB178 2.0711145E-02   2.4425000E04    2.159888E-02    2.466E04        *TAB179 \r\n                  649-        *TAB179 2.2494282E-02   2.4895000E04    2.3421545E-02   2.513E04        *TAB180 \r\n                  650-        *TAB180 2.4372896E-02   2.5365000E04    2.5348551E-02   2.560E04        *TAB181 \r\n                  651-        *TAB181 2.6348724E-02   2.5835000E04    2.7373628E-02   2.607E04        *TAB182 \r\n                  652-        *TAB182 2.8423475E-02   2.6305000E04    2.9498474E-02   2.654E04        *TAB183 \r\n                  653-        *TAB183 3.0598832E-02   2.6775000E04    3.1724757E-02   2.701E04        *TAB184 \r\n                  654-        *TAB184 3.2876451E-02   2.7245000E04    3.4054121E-02   2.748E04        *TAB185 \r\n                  655-        *TAB185 3.5257966E-02   2.7715000E04    3.6488188E-02   2.795E04        *TAB186 \r\n                  656-        *TAB186 3.7744987E-02   2.8185000E04    3.9028558E-02   2.842E04        *TAB187 \r\n                  657-        *TAB187 4.0339100E-02   2.8655000E04    4.1676807E-02   2.889E04        *TAB188 \r\n                  658-        *TAB188 4.3041873E-02   2.9125000E04    4.4434491E-02   2.936E04        *TAB189 \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        *TAB189 4.5854852E-02   2.9595000E04    4.7303146E-02   2.983E04        *TAB190 \r\n                  660-        *TAB190 4.8779562E-02   3.0065000E04    5.0284289E-02   3.030E04        *TAB191 \r\n                  661-        *TAB191 5.1817513E-02   3.0535000E04    5.3379419E-02   3.077E04        *TAB192 \r\n                  662-        *TAB192 5.497193E-02    3.1005000E04    5.65918E-02     3.124E04        *TAB193 \r\n                  663-        *TAB193 5.8239075E-02   3.1475000E04    5.9917548E-02   3.171E04        *TAB194 \r\n                  664-        *TAB194 6.1625615E-02   3.1945000E04    6.3363456E-02   3.218E04        *TAB195 \r\n                  665-        *TAB195 6.5131251E-02   3.2415000E04    6.6929175E-02   3.265E04        *TAB196 \r\n                  666-        *TAB196 6.8757406E-02   3.2885000E04    7.0616119E-02   3.312E04        *TAB197 \r\n                  667-        *TAB197 7.2505489E-02   3.3355000E04    7.4425689E-02   3.359E04        *TAB198 \r\n                  668-        *TAB198 7.6376893E-02   3.3825000E04    7.8359272E-02   3.406E04        *TAB199 \r\n                  669-        *TAB199 8.0372998E-02   3.4295000E04    8.2418240E-02   3.453E04        *TAB200 \r\n                  670-        *TAB200 8.4495168E-02   3.4765000E04    ENDT                                    \r\n                              ENDDATA\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           18\r\n                                        PROFILE           2664\r\n                                        MAX WAVEFRONT       18\r\n                                        AVG WAVEFRONT   13.320\r\n                                        RMS WAVEFRONT   13.824\r\n                                        RMS BANDWIDTH   14.116\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           20\r\n                                        PROFILE           2731\r\n                                        MAX WAVEFRONT       20\r\n                                        AVG WAVEFRONT   13.655\r\n                                        RMS WAVEFRONT   14.308\r\n                                        RMS BANDWIDTH   14.578\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       18        18\r\n                                        PROFILE (P)                       2664      2664\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           18        18\r\n                                        AVERAGE WAVEFRONT (C-AVG)       13.320    13.320\r\n                                        RMS WAVEFRONT (C-RMS)           13.824    13.824\r\n                                        RMS BANDWITCH (B-RMS)           14.116    14.116\r\n                                        NUMBER OF GRID POINTS (N)                    200\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               348\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       547\r\n                                        MATRIX DENSITY, PERCENT                    3.235\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -3.5371095E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 1                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -2.110844E+03   9.926816E+02  -8.339707E+02      -75.8724       1.202587E+03  -2.320749E+03   1.761668E+03          \r\n        2        3.368844E+03   2.819061E+03  -4.645718E+03      -43.3069       7.747796E+03  -1.559892E+03   4.653844E+03          \r\n        3        1.702391E+03   1.156698E+04   2.875220E+03       74.8802       1.234384E+04   9.255332E+02   5.709151E+03          \r\n        4        2.313574E+03   1.177069E+04  -7.912041E+02      -85.2505       1.183642E+04   2.247837E+03   4.794293E+03          \r\n        5        5.452864E+03   8.041355E+03   9.387305E+02       72.0231       8.345948E+03   5.148271E+03   1.598839E+03          \r\n        6        3.575399E+03   7.415596E+03   9.387305E+02       76.9731       7.632784E+03   3.358211E+03   2.137286E+03          \r\n        7       -2.011592E+03  -8.791406E+01   1.009668E+02       87.0037      -8.262921E+01  -2.016877E+03   9.671237E+02          \r\n        8       -2.457252E+03   1.325898E+02  -4.467175E+01      -89.0121       1.333602E+02  -2.458022E+03   1.295691E+03          \r\n        9       -2.000892E+03  -1.872812E+02   1.054626E+01       89.6668      -1.872199E+02  -2.000953E+03   9.068665E+02          \r\n       10       -2.373406E+03   2.153789E+02  -1.808179E+01      -89.5998       2.155052E+02  -2.373533E+03   1.294519E+03          \r\n       11       -1.867499E+03  -2.162266E+02  -4.958496E-01      -89.9828      -2.162264E+02  -1.867499E+03   8.256364E+02          \r\n       12       -2.394116E+03   1.611836E+02   3.780078E+01       89.1527       1.617427E+02  -2.394675E+03   1.278209E+03          \r\n       13       -1.623542E+03  -1.356484E+02  -1.562432E+02      -84.0696      -1.194184E+02  -1.639772E+03   7.601768E+02          \r\n       14       -1.352038E+03  -4.516016E+01   1.689521E+02       82.7516      -2.367151E+01  -1.373527E+03   6.749276E+02          \r\n       15       -2.419209E+03   1.165430E+02   5.743115E+01       88.7032       1.178430E+02  -2.420509E+03   1.269176E+03          \r\n       16       -2.241884E+03   1.756445E+02  -2.347534E+02      -84.5047       1.982291E+02  -2.264468E+03   1.231349E+03          \r\n       17       -9.471055E+02  -5.647070E+01  -3.093115E+01      -88.0133      -5.539777E+01  -9.481784E+02   4.463903E+02          \r\n       18       -9.249414E+01   2.283730E+02   7.522290E+02       51.0198       8.370867E+02  -7.012078E+02   7.691472E+02          \r\n       19       -1.520587E+03   2.742539E+02  -4.066519E+02      -77.8116       3.620894E+02  -1.608422E+03   9.852559E+02          \r\n       20        1.376915E+03   1.787730E+03  -1.904756E+03      -48.0775       3.498122E+03  -3.334766E+02   1.915799E+03          \r\n       21       -5.722109E+02   3.181932E+03   2.043496E+03       66.2847       4.079617E+03  -1.469896E+03   2.774756E+03          \r\n       22        4.803701E+02   7.900552E+03  -3.486403E+03      -68.3902       9.281608E+03  -9.006865E+02   5.091147E+03          \r\n       23        1.091554E+03   8.104261E+03   1.800186E+02       88.5305       8.108879E+03   1.086936E+03   3.510972E+03          \r\n       24        6.914993E+02   8.004172E+03  -5.497168E+01      -89.5693       8.004586E+03   6.910862E+02   3.656750E+03          \r\n       25        5.489620E+03   2.586328E+03  -2.099131E+02       -4.1141       5.504719E+03   2.571229E+03   1.466745E+03          \r\n       26        2.167361E+03   5.349979E+03   8.085464E+02       76.5324       5.543610E+03   1.973730E+03   1.784940E+03          \r\n       42        1.394253E+02   5.317053E+03  -2.466880E+03      -68.1908       6.304194E+03  -8.477163E+02   3.575955E+03          \r\n       43       -2.470522E+02   5.188241E+03  -4.259531E+02      -85.5461       5.221420E+03  -2.802307E+02   2.750825E+03          \r\n       50        1.568395E+03   3.866182E+03   2.445918E+02       83.9908       3.891930E+03   1.542648E+03   1.174641E+03          \r\n       77        1.079212E+03   3.703137E+03   2.445918E+02       84.7197       3.725742E+03   1.056607E+03   1.334568E+03          \r\n      107        8.197924E+02   3.297656E+03   1.198398E+02       87.2375       3.303438E+03   8.140098E+02   1.244714E+03          \r\n      137        5.801146E+02   3.217770E+03   1.198389E+02       87.4040       3.223204E+03   5.746809E+02   1.324261E+03          \r\n      167        5.956633E+02   3.055296E+03   9.054834E+01       87.8945       3.058625E+03   5.923344E+02   1.233146E+03          \r\n      195        4.145696E+02   2.994938E+03   9.054785E+01       87.9927       2.998111E+03   4.113961E+02   1.293357E+03          \r\n      222        3.187869E+02   2.834319E+03   7.267188E+01       88.3466       2.836416E+03   3.166892E+02   1.259864E+03          \r\n      249        1.734451E+02   2.785876E+03   7.267139E+01       88.4078       2.787896E+03   1.714250E+02   1.308236E+03          \r\n      272        1.186440E+02   2.584610E+03   5.286182E+01       88.7725       2.585742E+03   1.175114E+02   1.234115E+03          \r\n      293        1.292084E+01   2.549372E+03   5.286182E+01       88.8066       2.550473E+03   1.181970E+01   1.269327E+03          \r\n      341        3.081870E+02   2.287555E+03   1.730324E+01       89.4992       2.287706E+03   3.080358E+02   9.898351E+02          \r\n      347        1.521875E+01   2.319389E+03   1.703375E+01       89.5765       2.319515E+03   1.509290E+01   1.152211E+03          \r\n      348        3.280762E+00   2.315025E+03  -1.349622E+01      -89.6655       2.315104E+03   3.202026E+00   1.155951E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -1.1010932E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 2                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -2.298424E+03   1.090362E+03  -9.047258E+02      -75.9500       1.316776E+03  -2.524837E+03   1.920807E+03          \r\n        2        3.686546E+03   3.085152E+03  -5.080246E+03      -43.3063       8.474986E+03  -1.703288E+03   5.089137E+03          \r\n        3        1.867471E+03   1.231457E+04   3.040838E+03       74.8973       1.313521E+04   1.046836E+03   6.044185E+03          \r\n        4        2.548232E+03   1.286891E+04  -8.204644E+02      -85.4830       1.293373E+04   2.483415E+03   5.225158E+03          \r\n        5        5.906925E+03   8.767659E+03   1.013482E+03       72.3403       9.090316E+03   5.584267E+03   1.753025E+03          \r\n        6        3.879957E+03   8.092070E+03   1.013482E+03       77.1510       8.323238E+03   3.648788E+03   2.337225E+03          \r\n        7       -2.186566E+03  -9.553125E+01   1.097244E+02       87.0044      -8.978943E+01  -2.192308E+03   1.051259E+03          \r\n        8       -2.670836E+03   1.440903E+02  -4.855567E+01      -89.0121       1.449276E+02  -2.671673E+03   1.408300E+03          \r\n        9       -2.174935E+03  -2.035049E+02   1.147572E+01       89.6665      -2.034380E+02  -2.175002E+03   9.857819E+02          \r\n       10       -2.579644E+03   2.340459E+02  -1.968552E+01      -89.5992       2.341836E+02  -2.579781E+03   1.406982E+03          \r\n       11       -2.029984E+03  -2.349243E+02  -4.892883E-01      -89.9844      -2.349242E+02  -2.029984E+03   8.975299E+02          \r\n       12       -2.601881E+03   1.751643E+02   4.094476E+01       89.1555       1.757679E+02  -2.602484E+03   1.389126E+03          \r\n       13       -1.764973E+03  -1.473052E+02  -1.695619E+02      -84.0801      -1.297230E+02  -1.782555E+03   8.264159E+02          \r\n       14       -1.470158E+03  -4.904810E+01   1.836460E+02       82.7544      -2.569965E+01  -1.493507E+03   7.339035E+02          \r\n       15       -2.628742E+03   1.264705E+02   6.213815E+01       88.7087       1.278711E+02  -2.630143E+03   1.379007E+03          \r\n       16       -2.435756E+03   1.907915E+02  -2.551208E+02      -84.5032       2.153423E+02  -2.460307E+03   1.337825E+03          \r\n       17       -1.030437E+03  -6.138037E+01  -3.318671E+01      -88.0409      -6.024518E+01  -1.031572E+03   4.856633E+02          \r\n       18       -1.030190E+02   2.477297E+02   8.166064E+02       51.0604       9.075813E+02  -7.628705E+02   8.352259E+02          \r\n       19       -1.652338E+03   2.965929E+02  -4.414664E+02      -77.8139       3.919290E+02  -1.747674E+03   1.069802E+03          \r\n       20        1.494915E+03   1.942991E+03  -2.066308E+03      -48.0940       3.797371E+03  -3.594652E+02   2.078418E+03          \r\n       21       -6.299410E+02   3.434172E+03   2.224737E+03       66.2042       4.415205E+03  -1.610974E+03   3.013089E+03          \r\n       22        4.830080E+02   8.560197E+03  -3.784596E+03      -68.4298       1.005635E+04  -1.013144E+03   5.534746E+03          \r\n       23        1.182387E+03   8.793302E+03   1.840790E+02       88.6153       8.797751E+03   1.177938E+03   3.809906E+03          \r\n       24        7.520250E+02   8.711074E+03  -5.592029E+01      -89.5975       8.711467E+03   7.516323E+02   3.979917E+03          \r\n       25        5.979705E+03   2.822877E+03  -2.210607E+02       -3.9863       5.995110E+03   2.807472E+03   1.593819E+03          \r\n       26        2.359795E+03   5.825361E+03   8.810909E+02       76.5237       6.036506E+03   2.148650E+03   1.943928E+03          \r\n       42        1.489076E+02   5.770950E+03  -2.680081E+03      -68.1830       6.843829E+03  -9.239707E+02   3.883900E+03          \r\n       43       -2.750119E+02   5.629659E+03  -4.716503E+02      -85.4617       5.667096E+03  -3.124487E+02   2.989772E+03          \r\n       50        1.708071E+03   4.204824E+03   2.665269E+02       83.9742       4.232959E+03   1.679937E+03   1.276511E+03          \r\n       77        1.175018E+03   4.027157E+03   2.665269E+02       84.7069       4.051849E+03   1.150325E+03   1.450762E+03          \r\n      107        8.924372E+02   3.585498E+03   1.305016E+02       87.2322       3.591807E+03   8.861281E+02   1.352839E+03          \r\n      137        6.314365E+02   3.498506E+03   1.305005E+02       87.3992       3.504434E+03   6.255088E+02   1.439462E+03          \r\n      167        6.482867E+02   3.321683E+03   9.855981E+01       87.8915       3.325312E+03   6.446582E+02   1.340327E+03          \r\n      195        4.511702E+02   3.255984E+03   9.855927E+01       87.9900       3.259443E+03   4.477112E+02   1.405866E+03          \r\n      222        3.468970E+02   3.081231E+03   7.907980E+01       88.3448       3.083516E+03   3.446118E+02   1.369452E+03          \r\n      249        1.887395E+02   3.028517E+03   7.907928E+01       88.4061       3.030718E+03   1.865391E+02   1.422089E+03          \r\n      272        1.290908E+02   2.809570E+03   5.751456E+01       88.7714       2.810804E+03   1.278573E+02   1.341473E+03          \r\n      293        1.406216E+01   2.771231E+03   5.751456E+01       88.8055       2.772430E+03   1.286304E+01   1.379783E+03          \r\n      341        3.351897E+02   2.486465E+03   1.881826E+01       89.4989       2.486629E+03   3.350250E+02   1.075802E+03          \r\n      347        1.655319E+01   2.521088E+03   1.852719E+01       89.5762       2.521225E+03   1.641614E+01   1.252404E+03          \r\n      348        3.568237E+00   2.516343E+03  -1.467972E+01      -89.6653       2.516429E+03   3.482544E+00   1.256473E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =  -1.2735752E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 3                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -2.611442E+03   1.267077E+03  -9.983611E+02      -76.3799       1.508976E+03  -2.853341E+03   2.181158E+03          \r\n        2        4.184539E+03   3.532177E+03  -5.797621E+03      -43.3899       9.665148E+03  -1.948432E+03   5.806790E+03          \r\n        3        2.179864E+03   1.323016E+04   3.133792E+03       75.2193       1.405701E+04   1.353011E+03   6.352001E+03          \r\n        4        2.979676E+03   1.415931E+04  -7.340194E+02      -86.2595       1.420730E+04   2.931688E+03   5.637805E+03          \r\n        5        6.584316E+03   9.962083E+03   1.120194E+03       73.2223       1.029981E+04   6.246586E+03   2.026613E+03          \r\n        6        4.343926E+03   9.215360E+03   1.120193E+03       77.6511       9.460604E+03   4.098682E+03   2.680961E+03          \r\n        7       -2.449237E+03  -1.068750E+02   1.227918E+02       87.0074      -1.004556E+02  -2.455656E+03   1.177600E+03          \r\n        8       -2.991013E+03   1.612505E+02  -5.437203E+01      -89.0121       1.621880E+02  -2.991950E+03   1.577069E+03          \r\n        9       -2.436218E+03  -2.276577E+02   1.289644E+01       89.6654      -2.275824E+02  -2.436293E+03   1.104356E+03          \r\n       10       -2.888698E+03   2.618403E+02  -2.215039E+01      -89.5972       2.619961E+02  -2.888854E+03   1.575425E+03          \r\n       11       -2.274073E+03  -2.626670E+02  -3.814392E-01      -89.9891      -2.626669E+02  -2.274073E+03   1.005703E+03          \r\n       12       -2.912698E+03   1.959468E+02   4.538797E+01       89.1637       1.966093E+02  -2.913361E+03   1.554985E+03          \r\n       13       -1.977921E+03  -1.645132E+02  -1.889757E+02      -84.1135      -1.450293E+02  -1.997405E+03   9.261877E+02          \r\n       14       -1.648928E+03  -5.486426E+01   2.054430E+02       82.7730      -2.881250E+01  -1.674980E+03   8.230839E+02          \r\n       15       -2.941620E+03   1.408403E+02   6.882343E+01       88.7216       1.423762E+02  -2.943156E+03   1.542766E+03          \r\n       16       -2.725580E+03   2.128457E+02  -2.848603E+02      -84.5136       2.402062E+02  -2.752940E+03   1.496573E+03          \r\n       17       -1.157848E+03  -6.965723E+01  -3.646942E+01      -88.0827      -6.843634E+01  -1.159069E+03   5.453164E+02          \r\n       18       -1.241946E+02   2.748613E+02   9.098990E+02       51.1842       1.006852E+03  -8.561856E+02   9.315190E+02          \r\n       19       -1.852152E+03   3.235840E+02  -4.900610E+02      -77.8747       4.288700E+02  -1.957438E+03   1.193154E+03          \r\n       20        1.669344E+03   2.185535E+03  -2.298273E+03      -48.2037       4.240159E+03  -3.852802E+02   2.312720E+03          \r\n       21       -7.318291E+02   3.767885E+03   2.502993E+03       65.9757       4.883563E+03  -1.847508E+03   3.365536E+03          \r\n       22        4.012054E+02   9.441055E+03  -4.199259E+03      -68.5531       1.109069E+04  -1.248432E+03   6.169562E+03          \r\n       23        1.266597E+03   9.747058E+03   1.342812E+02       89.0931       9.749184E+03   1.264472E+03   4.242356E+03          \r\n       24        8.444509E+02   9.804937E+03  -4.320581E+01      -89.7237       9.805145E+03   8.442432E+02   4.480451E+03          \r\n       25        6.750392E+03   3.200130E+03  -2.179339E+02       -3.4996       6.763720E+03   3.186802E+03   1.788459E+03          \r\n       26        2.663705E+03   6.571602E+03   9.993550E+02       76.4562       6.812334E+03   2.422973E+03   2.194681E+03          \r\n       42        1.531638E+02   6.423127E+03  -2.992361E+03      -68.1667       7.622004E+03  -1.045713E+03   4.333859E+03          \r\n       43       -3.371783E+02   6.259698E+03  -5.678211E+02      -85.1162       6.308216E+03  -3.856960E+02   3.346956E+03          \r\n       50        1.929062E+03   4.720398E+03   3.018759E+02       83.8976       4.752672E+03   1.896789E+03   1.427942E+03          \r\n       77        1.325311E+03   4.519167E+03   3.018759E+02       84.6477       4.547449E+03   1.297029E+03   1.625210E+03          \r\n      107        1.005778E+03   4.020524E+03   1.472906E+02       87.2096       4.027703E+03   9.985992E+02   1.514552E+03          \r\n      137        7.111997E+02   3.922341E+03   1.472895E+02       87.3793       3.929083E+03   7.044580E+02   1.612312E+03          \r\n      167        7.297770E+02   3.723369E+03   1.110062E+02       87.8793       3.727479E+03   7.256665E+02   1.500906E+03          \r\n      195        5.077682E+02   3.649373E+03   1.110056E+02       87.9789       3.653291E+03   5.038507E+02   1.574720E+03          \r\n      222        3.902487E+02   3.452935E+03   8.896179E+01       88.3376       3.455517E+03   3.876669E+02   1.533925E+03          \r\n      249        2.123276E+02   3.393634E+03   8.896124E+01       88.3995       3.396119E+03   2.098419E+02   1.593139E+03          \r\n      272        1.451532E+02   3.147639E+03   6.466251E+01       88.7668       3.149031E+03   1.437614E+02   1.502635E+03          \r\n      293        1.582846E+01   3.104535E+03   6.466251E+01       88.8012       3.105888E+03   1.447522E+01   1.545706E+03          \r\n      341        3.762971E+02   2.784807E+03   2.112127E+01       89.4976       2.784993E+03   3.761119E+02   1.204440E+03          \r\n      347        1.858789E+01   2.823675E+03   2.080344E+01       89.5751       2.823830E+03   1.843359E+01   1.402698E+03          \r\n      348        4.006348E+00   2.818351E+03  -1.648434E+01      -89.6644       2.818448E+03   3.909790E+00   1.407269E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     4, EPSILON SUB E =  -1.9546727E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 4                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -2.956177E+03   1.470670E+03  -1.077306E+03      -77.0236       1.718919E+03  -3.204426E+03   2.461672E+03          \r\n        2        4.671755E+03   4.002645E+03  -6.550627E+03      -43.5382       1.089636E+04  -2.221965E+03   6.559165E+03          \r\n        3        2.530040E+03   1.399828E+04   3.154240E+03       75.5928       1.480858E+04   1.719747E+03   6.544416E+03          \r\n        4        3.428887E+03   1.504646E+04  -5.690099E+02      -87.2027       1.507427E+04   3.401084E+03   5.836591E+03          \r\n        5        7.256990E+03   1.125860E+04   1.222097E+03       74.2917       1.160231E+04   6.913282E+03   2.344514E+03          \r\n        6        4.812792E+03   1.044395E+04   1.222097E+03       78.2684       1.069774E+04   4.559006E+03   3.069367E+03          \r\n        7       -2.712112E+03  -1.181260E+02   1.357859E+02       87.0117      -1.110375E+02  -2.719200E+03   1.304081E+03          \r\n        8       -3.310930E+03   1.783140E+02  -6.018372E+01      -89.0121       1.793517E+02  -3.311968E+03   1.745660E+03          \r\n        9       -2.697707E+03  -2.516104E+02   1.435452E+01       89.6638      -2.515261E+02  -2.697791E+03   1.223132E+03          \r\n       10       -3.197330E+03   2.894277E+02  -2.470746E+01      -89.5940       2.896028E+02  -3.197505E+03   1.743554E+03          \r\n       11       -2.518504E+03  -2.900708E+02  -1.273499E-01      -89.9967      -2.900708E+02  -2.518504E+03   1.114217E+03          \r\n       12       -3.222292E+03   2.165845E+02   4.941440E+01       89.1769       2.172944E+02  -3.223002E+03   1.720148E+03          \r\n       13       -2.191704E+03  -1.813154E+02  -2.075958E+02      -84.1656      -1.601027E+02  -2.212917E+03   1.026407E+03          \r\n       14       -1.829451E+03  -6.058057E+01   2.271745E+02       82.7973      -3.187073E+01  -1.858161E+03   9.131451E+02          \r\n       15       -3.252128E+03   1.545630E+02   7.473077E+01       88.7439       1.562015E+02  -3.253767E+03   1.704984E+03          \r\n       16       -3.012645E+03   2.343823E+02  -3.142113E+02      -84.5233       2.645087E+02  -3.042771E+03   1.653640E+03          \r\n       17       -1.288236E+03  -7.838086E+01  -3.872498E+01      -88.1686      -7.714264E+01  -1.289474E+03   6.061659E+02          \r\n       18       -1.526279E+02   3.001191E+02   1.000082E+03       51.3771       1.099128E+03  -9.516368E+02   1.025382E+03          \r\n       19       -2.051289E+03   3.423638E+02  -5.359457E+02      -77.9384       4.568845E+02  -2.165810E+03   1.311347E+03          \r\n       20        1.841366E+03   2.446169E+03  -2.520678E+03      -48.4205       4.682520E+03  -3.949849E+02   2.538752E+03          \r\n       21       -8.604601E+02   4.043526E+03   2.796814E+03       65.6207       5.311001E+03  -2.127934E+03   3.719468E+03          \r\n       22        3.279845E+02   1.006983E+04  -4.500843E+03      -68.6307       1.183091E+04  -1.433096E+03   6.632004E+03          \r\n       23        1.312380E+03   1.071844E+04   3.237231E+01       89.8028       1.071855E+04   1.312269E+03   4.703143E+03          \r\n       24        9.541332E+02   1.095774E+04  -2.631714E+00      -89.9849       1.095774E+04   9.541323E+02   5.001806E+03          \r\n       25        7.555459E+03   3.590103E+03  -1.942232E+02       -2.7974       7.564950E+03   3.580613E+03   1.992168E+03          \r\n       26        2.979727E+03   7.352021E+03   1.124609E+03       76.3888       7.624325E+03   2.707423E+03   2.458451E+03          \r\n       42        1.380501E+02   7.039353E+03  -3.293759E+03      -68.1663       8.359010E+03  -1.181607E+03   4.770308E+03          \r\n       43       -4.130932E+02   6.855658E+03  -6.937224E+02      -84.5967       6.921274E+03  -4.787092E+02   3.699992E+03          \r\n       50        2.160455E+03   5.244336E+03   3.393235E+02       83.7946       5.281230E+03   2.123560E+03   1.578835E+03          \r\n       77        1.481808E+03   5.018143E+03   3.393235E+02       84.5683       5.050408E+03   1.449544E+03   1.800432E+03          \r\n      107        1.123488E+03   4.459263E+03   1.648508E+02       87.1777       4.467390E+03   1.115361E+03   1.676014E+03          \r\n      137        7.937897E+02   4.349374E+03   1.648495E+02       87.3511       4.357000E+03   7.861631E+02   1.785418E+03          \r\n      167        8.139551E+02   4.127451E+03   1.239000E+02       87.8615       4.132077E+03   8.093286E+02   1.661374E+03          \r\n      195        5.661587E+02   4.044860E+03   1.238993E+02       87.9628       4.049267E+03   5.617516E+02   1.743758E+03          \r\n      222        4.348758E+02   3.826153E+03   9.913428E+01       88.3270       3.829048E+03   4.319803E+02   1.698534E+03          \r\n      249        2.366098E+02   3.760071E+03   9.913367E+01       88.3897       3.762857E+03   2.338229E+02   1.764517E+03          \r\n      272        1.616433E+02   3.486424E+03   7.199530E+01       88.7601       3.487982E+03   1.600851E+02   1.663949E+03          \r\n      293        1.765321E+01   3.438432E+03   7.199530E+01       88.7948       3.439946E+03   1.613879E+01   1.711904E+03          \r\n      341        4.180813E+02   3.083125E+03   2.345873E+01       89.4957       3.083332E+03   4.178749E+02   1.332728E+03          \r\n      347        2.065936E+01   3.126306E+03   2.312005E+01       89.5735       3.126478E+03   2.048730E+01   1.552995E+03          \r\n      348        4.451904E+00   3.120396E+03  -1.832186E+01      -89.6631       3.120504E+03   4.344116E+00   1.558080E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     5, EPSILON SUB E =  -1.9107916E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 5                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -3.261072E+03   1.643077E+03  -1.157585E+03      -77.3644       1.902584E+03  -3.520579E+03   2.711581E+03          \r\n        2        4.958138E+03   4.260957E+03  -7.061625E+03      -43.5870       1.167977E+04  -2.460677E+03   7.070224E+03          \r\n        3        2.955638E+03   1.465932E+04   3.226483E+03       75.5647       1.548986E+04   2.125097E+03   6.682384E+03          \r\n        4        3.888430E+03   1.578405E+04  -3.295228E+02      -88.4145       1.579318E+04   3.879309E+03   5.956933E+03          \r\n        5        7.855103E+03   1.263174E+04   1.301622E+03       75.7049       1.296340E+04   7.523442E+03   2.719977E+03          \r\n        6        5.251854E+03   1.176408E+04   1.301622E+03       79.1055       1.201460E+04   5.001332E+03   3.506633E+03          \r\n        7       -2.975535E+03  -1.292856E+02   1.486962E+02       87.0175      -1.215383E+02  -2.983282E+03   1.430872E+03          \r\n        8       -3.630913E+03   1.952739E+02  -6.598356E+01      -89.0123       1.964115E+02  -3.632051E+03   1.914231E+03          \r\n        9       -2.959766E+03  -2.753545E+02   1.584886E+01       89.6617      -2.752609E+02  -2.959860E+03   1.342299E+03          \r\n       10       -3.505868E+03   3.168125E+02  -2.736435E+01      -89.5899       3.170083E+02  -3.506064E+03   1.911536E+03          \r\n       11       -2.763751E+03  -3.171299E+02   3.178101E-01       89.9926      -3.171298E+02  -2.763751E+03   1.223311E+03          \r\n       12       -3.530697E+03   2.372461E+02   5.282898E+01       89.1969       2.379867E+02  -3.531438E+03   1.884712E+03          \r\n       13       -2.407111E+03  -1.974326E+02  -2.250660E+02      -84.2429      -1.747416E+02  -2.429802E+03   1.127530E+03          \r\n       14       -2.013014E+03  -6.608496E+01   2.491205E+02       82.8227      -3.471411E+01  -2.044385E+03   1.004835E+03          \r\n       15       -3.559474E+03   1.675586E+02   7.910724E+01       88.7846       1.692369E+02  -3.561152E+03   1.865194E+03          \r\n       16       -3.294131E+03   2.559976E+02  -3.444465E+02      -84.5092       2.891083E+02  -3.327242E+03   1.808175E+03          \r\n       17       -1.424300E+03  -8.538184E+01  -3.769354E+01      -88.3887      -8.432153E+01  -1.425360E+03   6.705192E+02          \r\n       18       -1.952443E+02   3.242632E+02   1.086711E+03       51.7215       1.181833E+03  -1.052814E+03   1.117324E+03          \r\n       19       -2.245115E+03   3.607236E+02  -5.833230E+02      -77.9409       4.853423E+02  -2.369733E+03   1.427538E+03          \r\n       20        1.997395E+03   2.665392E+03  -2.727902E+03      -48.4902       5.079667E+03  -4.168799E+02   2.748273E+03          \r\n       21       -1.020761E+03   4.203475E+03   3.097946E+03       65.0684       5.643570E+03  -2.460856E+03   4.052213E+03          \r\n       22        3.518188E+02   1.050744E+04  -4.732227E+03      -68.5088       1.237067E+04  -1.511417E+03   6.941045E+03          \r\n       23        1.359601E+03   1.175300E+04  -1.053054E+02      -89.4196       1.175407E+04   1.358535E+03   5.197768E+03          \r\n       24        1.086522E+03   1.216438E+04   6.988098E+01       89.6386       1.216482E+04   1.086082E+03   5.539370E+03          \r\n       25        8.396792E+03   3.995523E+03  -1.456312E+02       -1.8931       8.401605E+03   3.990709E+03   2.205448E+03          \r\n       26        3.299511E+03   8.164811E+03   1.251362E+03       76.3893       8.467795E+03   2.996528E+03   2.735634E+03          \r\n       42        1.208466E+02   7.628638E+03  -3.594144E+03      -68.1227       9.071819E+03  -1.322334E+03   5.197077E+03          \r\n       43       -4.954246E+02   7.423238E+03  -8.459073E+02      -83.9701       7.512593E+03  -5.847795E+02   4.048686E+03          \r\n       50        2.398292E+03   5.776847E+03   3.779167E+02       83.6949       5.818604E+03   2.356535E+03   1.731034E+03          \r\n       77        1.642458E+03   5.524927E+03   3.779167E+02       84.4918       5.561371E+03   1.606014E+03   1.977678E+03          \r\n      107        1.244551E+03   4.902084E+03   1.829742E+02       87.1432       4.911215E+03   1.235420E+03   1.837898E+03          \r\n      137        8.786064E+02   4.780114E+03   1.829729E+02       87.3208       4.788677E+03   8.700442E+02   1.959316E+03          \r\n      167        9.003918E+02   4.534188E+03   1.371678E+02       87.8413       4.539358E+03   8.952213E+02   1.822068E+03          \r\n      195        6.260604E+02   4.442751E+03   1.371669E+02       87.9444       4.447675E+03   6.211373E+02   1.913269E+03          \r\n      222        4.806281E+02   4.201057E+03   1.095658E+02       88.3146       4.204281E+03   4.774041E+02   1.863438E+03          \r\n      249        2.614991E+02   4.128021E+03   1.095652E+02       88.3782       4.131123E+03   2.583969E+02   1.936363E+03          \r\n      272        1.785295E+02   3.826049E+03   7.950116E+01       88.7520       3.827781E+03   1.767975E+02   1.825492E+03          \r\n      293        1.952770E+01   3.773053E+03   7.950116E+01       88.7872       3.774736E+03   1.784448E+01   1.878446E+03          \r\n      341        4.605841E+02   3.381415E+03   2.583372E+01       89.4933       3.381643E+03   4.603555E+02   1.460644E+03          \r\n      347        2.276849E+01   3.428983E+03   2.547825E+01       89.5715       3.429173E+03   2.257800E+01   1.703298E+03          \r\n      348        4.906250E+00   3.422478E+03  -2.019289E+01      -89.6615       3.422597E+03   4.786987E+00   1.708905E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     6, EPSILON SUB E =  -1.7487273E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 6                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -3.564249E+03   1.804975E+03  -1.229694E+03      -77.6949       2.073208E+03  -3.832481E+03   2.952845E+03          \r\n        2        5.089233E+03   4.389109E+03  -7.423787E+03      -43.6501       1.217121E+04  -2.692865E+03   7.432036E+03          \r\n        3        3.410426E+03   1.525147E+04   3.313938E+03       75.3813       1.611584E+04   2.546055E+03   6.784893E+03          \r\n        4        4.356136E+03   1.643279E+04  -3.833740E+01      -89.8181       1.643291E+04   4.356015E+03   6.038448E+03          \r\n        5        8.364840E+03   1.385343E+04   1.340907E+03       76.9796       1.416351E+04   8.054764E+03   3.054373E+03          \r\n        6        5.660298E+03   1.308692E+04   1.363629E+03       79.9177       1.332938E+04   5.417834E+03   3.955776E+03          \r\n        7       -3.239441E+03  -1.403408E+02   1.615112E+02       87.0247      -1.319463E+02  -3.247835E+03   1.557945E+03          \r\n        8       -3.950844E+03   2.121104E+02  -7.176479E+01      -89.0127       2.133468E+02  -3.952081E+03   2.082714E+03          \r\n        9       -3.222330E+03  -2.988589E+02   1.737309E+01       89.6595      -2.987556E+02  -3.222433E+03   1.461839E+03          \r\n       10       -3.814242E+03   3.439292E+02  -3.009140E+01      -89.5854       3.441470E+02  -3.814460E+03   2.079303E+03          \r\n       11       -3.009734E+03  -3.437979E+02   8.932495E-01       89.9808      -3.437976E+02  -3.009734E+03   1.332968E+03          \r\n       12       -3.838219E+03   2.577129E+02   5.585489E+01       89.2189       2.584744E+02  -3.838980E+03   2.048727E+03          \r\n       13       -2.623918E+03  -2.131147E+02  -2.417339E+02      -84.3301      -1.891147E+02  -2.647918E+03   1.229402E+03          \r\n       14       -2.199120E+03  -7.153516E+01   2.708309E+02       82.8583      -3.760095E+01  -2.233054E+03   1.097727E+03          \r\n       15       -3.864979E+03   1.799028E+02   8.279962E+01       88.8278       1.815970E+02  -3.866673E+03   2.024135E+03          \r\n       16       -3.573681E+03   2.769927E+02  -3.740940E+02      -84.5022       3.129993E+02  -3.609687E+03   1.961343E+03          \r\n       17       -1.564415E+03  -9.261963E+01  -3.584827E+01      -88.6056      -9.174695E+01  -1.565288E+03   7.367704E+02          \r\n       18       -2.469165E+02   3.465034E+02   1.169074E+03       52.1205       1.255932E+03  -1.156345E+03   1.206139E+03          \r\n       19       -2.440457E+03   3.757874E+02  -6.279717E+02      -77.9824       5.094681E+02  -2.574138E+03   1.541803E+03          \r\n       20        2.142193E+03   2.859294E+03  -2.920016E+03      -48.5002       5.442690E+03  -4.412029E+02   2.941947E+03          \r\n       21       -1.193291E+03   4.294911E+03   3.395017E+03       64.4738       5.916154E+03  -2.814534E+03   4.365344E+03          \r\n       22        4.447048E+02   1.089090E+04  -4.921816E+03      -68.3505       1.284450E+04  -1.508897E+03   7.176699E+03          \r\n       23        1.442633E+03   1.281668E+04  -2.974182E+02      -88.5031       1.282445E+04   1.434861E+03   5.694795E+03          \r\n       24        1.302327E+03   1.323246E+04   1.693020E+02       89.1871       1.323486E+04   1.299925E+03   5.967468E+03          \r\n       25        9.307219E+03   4.420958E+03  -1.081738E+02       -1.2676       9.309612E+03   4.418564E+03   2.445524E+03          \r\n       26        3.614660E+03   9.038479E+03   1.371882E+03       76.5832       9.365732E+03   3.287406E+03   3.039164E+03          \r\n       42        1.051674E+02   8.190674E+03  -3.891182E+03      -68.0472       9.759083E+03  -1.463242E+03   5.611163E+03          \r\n       43       -6.155259E+02   7.950470E+03  -1.027713E+03      -83.2534       8.072045E+03  -7.371011E+02   4.404573E+03          \r\n       50        2.644584E+03   6.320811E+03   4.177935E+02       83.5973       6.367694E+03   2.597701E+03   1.884997E+03          \r\n       77        1.808998E+03   6.042309E+03   4.177935E+02       84.4171       6.083148E+03   1.768159E+03   2.157495E+03          \r\n      107        1.370563E+03   5.349915E+03   2.019410E+02       87.1023       5.360137E+03   1.360341E+03   1.999898E+03          \r\n      137        9.666851E+02   5.215302E+03   2.019396E+02       87.2849       5.224878E+03   9.571084E+02   2.133885E+03          \r\n      167        9.900959E+02   4.944104E+03   1.509834E+02       87.8164       4.949860E+03   9.843389E+02   1.982761E+03          \r\n      195        6.881337E+02   4.843458E+03   1.509825E+02       87.9218       4.848937E+03   6.826550E+02   2.083141E+03          \r\n      222        5.279409E+02   4.577944E+03   1.203547E+02       88.2993       4.581518E+03   5.243674E+02   2.028575E+03          \r\n      249        2.872342E+02   4.497715E+03   1.203541E+02       88.3640       4.501153E+03   2.837969E+02   2.108678E+03          \r\n      272        1.959426E+02   4.166625E+03   8.723489E+01       88.7420       4.168541E+03   1.940269E+02   1.987257E+03          \r\n      293        2.147314E+01   4.108475E+03   8.723489E+01       88.7778       4.110336E+03   1.961194E+01   2.045362E+03          \r\n      341        5.039310E+02   3.679672E+03   2.825187E+01       89.4903       3.679923E+03   5.036796E+02   1.588122E+03          \r\n      347        2.492297E+01   3.731714E+03   2.788638E+01       89.5690       3.731924E+03   2.471301E+01   1.853606E+03          \r\n      348        5.370422E+00   3.724605E+03  -2.210445E+01      -89.6595       3.724736E+03   5.239014E+00   1.859749E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     7, EPSILON SUB E =  -6.7620530E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 7                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -3.913787E+03   1.983367E+03  -1.279736E+03      -78.2691       2.249107E+03  -4.179526E+03   3.214316E+03          \r\n        2        5.100250E+03   4.471184E+03  -7.734297E+03      -43.8356       1.252641E+04  -2.954974E+03   7.740690E+03          \r\n        3        3.843618E+03   1.578384E+04   3.410088E+03       75.1326       1.668912E+04   2.938343E+03   6.875387E+03          \r\n        4        4.794911E+03   1.700131E+04   2.180378E+02       88.9770       1.700520E+04   4.791017E+03   6.107094E+03          \r\n        5        8.728380E+03   1.472655E+04   1.320312E+03       78.1195       1.500431E+04   8.450616E+03   3.276849E+03          \r\n        6        6.025636E+03   1.420124E+04   1.382427E+03       80.6577       1.442867E+04   5.798206E+03   4.315230E+03          \r\n        7       -3.503880E+03  -1.512495E+02   1.741954E+02       87.0337      -1.422230E+02  -3.512906E+03   1.685342E+03          \r\n        8       -4.270572E+03   2.287754E+02  -7.751943E+01      -89.0132       2.301106E+02  -4.271907E+03   2.251009E+03          \r\n        9       -3.485444E+03  -3.220327E+02   1.893352E+01       89.6571      -3.219194E+02  -3.485558E+03   1.581819E+03          \r\n       10       -4.122292E+03   3.706602E+02  -3.289413E+01      -89.5806       3.709011E+02  -4.122533E+03   2.246717E+03          \r\n       11       -3.256521E+03  -3.699346E+02   1.597046E+00       89.9683      -3.699337E+02  -3.256521E+03   1.443294E+03          \r\n       12       -4.144738E+03   2.777729E+02   5.853503E+01       89.2418       2.785476E+02  -4.145513E+03   2.212030E+03          \r\n       13       -2.842213E+03  -2.284253E+02  -2.576282E+02      -84.4241      -2.032742E+02  -2.867365E+03   1.332045E+03          \r\n       14       -2.387870E+03  -7.699902E+01   2.919750E+02       82.9092      -4.067932E+01  -2.424189E+03   1.191755E+03          \r\n       15       -4.168928E+03   1.914961E+02   8.619287E+01       88.8680       1.931992E+02  -4.170631E+03   2.181915E+03          \r\n       16       -3.853031E+03   2.967847E+02  -4.020865E+02      -84.5164       3.353848E+02  -3.891631E+03   2.113508E+03          \r\n       17       -1.708301E+03  -1.015059E+02  -3.455389E+01      -88.7686      -1.007631E+02  -1.709043E+03   8.041401E+02          \r\n       18       -3.059772E+02   3.658887E+02   1.246402E+03       52.5420       1.320835E+03  -1.260923E+03   1.290879E+03          \r\n       19       -2.641185E+03   3.815059E+02  -6.664630E+02      -78.1019       5.219285E+02  -2.781607E+03   1.651768E+03          \r\n       20        2.282834E+03   3.063375E+03  -3.099035E+03      -48.5888       5.796617E+03  -4.504070E+02   3.123512E+03          \r\n       21       -1.370508E+03   4.370482E+03   3.685636E+03       63.9563       6.171566E+03  -3.171593E+03   4.671580E+03          \r\n       22        6.403608E+02   1.134788E+04  -5.074376E+03      -68.2673       1.337057E+04  -1.382331E+03   7.376451E+03          \r\n       23        1.640575E+03   1.367609E+04  -5.052516E+02      -87.6003       1.369726E+04   1.619402E+03   6.038931E+03          \r\n       24        1.627288E+03   1.403199E+04   3.029561E+02       88.6018       1.403938E+04   1.619894E+03   6.209743E+03          \r\n       25        1.033321E+04   4.872071E+03  -7.026181E+01       -0.7370       1.033411E+04   4.871167E+03   2.731472E+03          \r\n       26        3.927042E+03   1.001823E+04   1.486682E+03       76.9905       1.036171E+04   3.583555E+03   3.389080E+03          \r\n       42        7.177893E+01   8.697774E+03  -4.167684E+03      -67.9908       1.038240E+04  -1.612851E+03   5.997627E+03          \r\n       43       -7.891252E+02   8.410838E+03  -1.254422E+03      -82.3731       8.578812E+03  -9.570996E+02   4.767956E+03          \r\n       50        2.907346E+03   6.883026E+03   4.605849E+02       83.4773       6.935688E+03   2.854685E+03   2.040501E+03          \r\n       77        1.986177E+03   6.576000E+03   4.605850E+02       84.3258       6.621763E+03   1.940414E+03   2.340675E+03          \r\n      107        1.504945E+03   5.805239E+03   2.223895E+02       87.0474       5.816709E+03   1.493475E+03   2.161617E+03          \r\n      137        1.060171E+03   5.656994E+03   2.223879E+02       87.2367       5.667728E+03   1.049437E+03   2.309146E+03          \r\n      167        1.085034E+03   5.358682E+03   1.656854E+02       87.7831       5.365096E+03   1.078621E+03   2.143238E+03          \r\n      195        7.536687E+02   5.248236E+03   1.656845E+02       87.8917       5.254336E+03   7.475696E+02   2.253383E+03          \r\n      222        5.776975E+02   4.957708E+03   1.317022E+02       88.2793       4.961664E+03   5.737412E+02   2.193961E+03          \r\n      249        3.142959E+02   4.869915E+03   1.317015E+02       88.3454       4.873719E+03   3.104915E+02   2.281614E+03          \r\n      272        2.141653E+02   4.508555E+03   9.531738E+01       88.7291       4.510669E+03   2.120510E+02   2.149309E+03          \r\n      293        2.353094E+01   4.445016E+03   9.531738E+01       88.7656       4.447070E+03   2.147681E+01   2.212797E+03          \r\n      341        5.484943E+02   3.977884E+03   3.073146E+01       89.4866       3.978159E+03   5.482190E+02   1.714970E+03          \r\n      347        2.714380E+01   4.034524E+03   3.036708E+01       89.5659       4.034754E+03   2.691370E+01   2.003920E+03          \r\n      348        5.848694E+00   4.026796E+03  -2.407517E+01      -89.6570       4.026940E+03   5.704468E+00   2.010618E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     8, EPSILON SUB E =  -2.4551402E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 8                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -4.416239E+03   2.237582E+03  -1.333556E+03      -79.0786       2.494901E+03  -4.673559E+03   3.584230E+03          \r\n        2        5.018742E+03   4.530272E+03  -8.101422E+03      -44.1366       1.287961E+04  -3.330596E+03   8.105103E+03          \r\n        3        4.401063E+03   1.642387E+04   3.546094E+03       74.7319       1.739185E+04   3.433087E+03   6.979382E+03          \r\n        4        5.348163E+03   1.767580E+04   4.705171E+02       87.8174       1.769373E+04   5.330229E+03   6.181751E+03          \r\n        5        9.035358E+03   1.562709E+04   1.252577E+03       79.5955       1.585708E+04   8.805365E+03   3.525859E+03          \r\n        6        6.450292E+03   1.523249E+04   1.332484E+03       81.5598       1.543021E+04   6.252571E+03   4.588819E+03          \r\n        7       -3.857032E+03  -1.656143E+02   1.909573E+02       87.0466      -1.557623E+02  -3.866884E+03   1.855561E+03          \r\n        8       -4.696528E+03   2.507949E+02  -8.517555E+01      -89.0140       2.522610E+02  -4.697994E+03   2.475127E+03          \r\n        9       -3.836830E+03  -3.525312E+02   2.107617E+01       89.6534      -3.524038E+02  -3.836957E+03   1.742277E+03          \r\n       10       -4.532424E+03   4.058652E+02  -3.677631E+01      -89.5733       4.061392E+02  -4.532698E+03   2.469418E+03          \r\n       11       -3.586364E+03  -4.041113E+02   2.752197E+00       89.9504      -4.041089E+02  -3.586366E+03   1.591129E+03          \r\n       12       -4.551694E+03   3.040205E+02   6.155273E+01       89.2738       3.048005E+02  -4.552475E+03   2.428637E+03          \r\n       13       -3.134751E+03  -2.483379E+02  -2.777112E+02      -84.5540      -2.218612E+02  -3.161228E+03   1.469683E+03          \r\n       14       -2.642239E+03  -8.419043E+01   3.197038E+02       82.9830      -4.483936E+01  -2.681590E+03   1.318375E+03          \r\n       15       -4.571257E+03   2.058574E+02   9.006812E+01       88.9202       2.075549E+02  -4.572954E+03   2.390255E+03          \r\n       16       -4.223905E+03   3.216304E+02  -4.374163E+02      -84.5530       3.633401E+02  -4.265615E+03   2.314478E+03          \r\n       17       -1.903602E+03  -1.151270E+02  -3.350317E+01      -88.9272      -1.144996E+02  -1.904229E+03   8.948647E+02          \r\n       18       -3.914629E+02   3.888682E+02   1.342748E+03       53.1012       1.396988E+03  -1.399583E+03   1.398285E+03          \r\n       19       -2.914663E+03   3.858628E+02  -7.111512E+02      -78.3436       5.325706E+02  -3.061370E+03   1.796970E+03          \r\n       20        2.470653E+03   3.340336E+03  -3.331122E+03      -48.7186       6.264878E+03  -4.538892E+02   3.359384E+03          \r\n       21       -1.627129E+03   4.446365E+03   4.079116E+03       63.3331       6.494991E+03  -3.675754E+03   5.085373E+03          \r\n       22        1.002852E+03   1.197656E+04  -5.241005E+03      -68.1564       1.407744E+04  -1.098027E+03   7.587735E+03          \r\n       23        2.019380E+03   1.454575E+04  -7.392285E+02      -86.6343       1.458922E+04   1.975906E+03   6.306656E+03          \r\n       24        2.099324E+03   1.485658E+04   5.124375E+02       87.7035       1.487713E+04   2.078774E+03   6.399176E+03          \r\n       25        1.182690E+04   5.488742E+03   3.166150E+01        0.2862       1.182706E+04   5.488584E+03   3.169238E+03          \r\n       26        4.345679E+03   1.144592E+04   1.639669E+03       77.6048       1.180628E+04   3.985317E+03   3.910481E+03          \r\n       42        1.608545E+01   9.263035E+03  -4.483791E+03      -67.9394       1.108013E+04  -1.801006E+03   6.440567E+03          \r\n       43       -1.046102E+03   8.985597E+03  -1.603142E+03      -81.1377       9.235562E+03  -1.296068E+03   5.265815E+03          \r\n       50        3.277205E+03   7.654867E+03   5.214141E+02       83.3005       7.716114E+03   3.215958E+03   2.250078E+03          \r\n       77        2.234377E+03   7.307292E+03   5.214142E+02       84.1918       7.360330E+03   2.181338E+03   2.589496E+03          \r\n      107        1.693416E+03   6.421491E+03   2.513107E+02       86.9660       6.434811E+03   1.680095E+03   2.377358E+03          \r\n      137        1.190798E+03   6.253967E+03   2.513090E+02       87.1654       6.266410E+03   1.178355E+03   2.544027E+03          \r\n      167        1.217398E+03   5.917110E+03   1.862635E+02       87.7339       5.924481E+03   1.210028E+03   2.357227E+03          \r\n      195        8.448763E+02   5.792947E+03   1.862626E+02       87.8473       5.799949E+03   8.378750E+02   2.481037E+03          \r\n      222        6.467876E+02   5.467545E+03   1.474619E+02       88.2496       5.472052E+03   6.422810E+02   2.414885E+03          \r\n      249        3.518670E+02   5.369247E+03   1.474611E+02       88.3180       5.373577E+03   3.475371E+02   2.513020E+03          \r\n      272        2.393903E+02   4.966116E+03   1.064954E+02       88.7100       4.968515E+03   2.369919E+02   2.365761E+03          \r\n      293        2.640010E+01   4.895126E+03   1.064954E+02       88.7476       4.897455E+03   2.407153E+01   2.436692E+03          \r\n      341        6.093685E+02   4.375444E+03   3.411167E+01       89.4811       4.375753E+03   6.090596E+02   1.883347E+03          \r\n      347        3.018372E+01   4.438364E+03   3.376132E+01       89.5612       4.438623E+03   2.992505E+01   2.204349E+03          \r\n      348        6.503418E+00   4.429796E+03  -2.677307E+01      -89.6532       4.429958E+03   6.341309E+00   2.211808E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     9, EPSILON SUB E =  -1.9905101E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 9                                  \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -4.928631E+03   2.493911E+03  -1.396472E+03      -79.6899       2.747948E+03  -5.182668E+03   3.965308E+03          \r\n        2        4.893380E+03   4.535138E+03  -8.425535E+03      -44.3911       1.314170E+04  -3.713180E+03   8.427439E+03          \r\n        3        4.924994E+03   1.698732E+04   3.687189E+03       74.2801       1.802512E+04   3.887191E+03   7.068967E+03          \r\n        4        5.864738E+03   1.827094E+04   6.679475E+02       86.9270       1.830680E+04   5.828880E+03   6.238958E+03          \r\n        5        9.248522E+03   1.633209E+04   1.171837E+03       80.8463       1.652092E+04   9.059699E+03   3.730609E+03          \r\n        6        6.822689E+03   1.598490E+04   1.253991E+03       82.3457       1.615343E+04   6.654161E+03   4.749636E+03          \r\n        7       -4.210181E+03  -1.797783E+02   2.075845E+02       87.0594      -1.691150E+02  -4.220845E+03   2.025865E+03          \r\n        8       -5.121520E+03   2.726230E+02  -9.283946E+01      -89.0143       2.742205E+02  -5.123117E+03   2.698669E+03          \r\n        9       -4.188169E+03  -3.826191E+02   2.330545E+01       89.6491      -3.824764E+02  -4.188312E+03   1.902918E+03          \r\n       10       -4.941213E+03   4.406289E+02  -4.085593E+01      -89.5651       4.409390E+02  -4.941523E+03   2.691231E+03          \r\n       11       -3.916201E+03  -4.375498E+02   4.144165E+00       89.9317      -4.375449E+02  -3.916206E+03   1.739331E+03          \r\n       12       -4.956144E+03   3.295293E+02   6.407709E+01       89.3055       3.303059E+02  -4.956921E+03   2.643613E+03          \r\n       13       -3.427546E+03  -2.679966E+02  -2.968583E+02      -84.6788      -2.403469E+02  -3.455196E+03   1.607424E+03          \r\n       14       -2.897496E+03  -9.133887E+01   3.467653E+02       83.0589      -4.912317E+01  -2.939712E+03   1.445294E+03          \r\n       15       -4.970317E+03   2.189971E+02   9.388806E+01       88.9638       2.206951E+02  -4.972016E+03   2.596355E+03          \r\n       16       -4.595008E+03   3.440879E+02  -4.691939E+02      -84.6212       3.882642E+02  -4.639184E+03   2.513724E+03          \r\n       17       -2.098253E+03  -1.320752E+02  -3.598865E+01      -88.9517      -1.314167E+02  -2.098912E+03   9.837476E+02          \r\n       18       -4.743464E+02   4.091724E+02   1.429573E+03       53.5860       1.463685E+03  -1.528859E+03   1.496272E+03          \r\n       19       -3.201425E+03   4.032891E+02  -7.462831E+02      -78.7538       5.516830E+02  -3.349819E+03   1.950751E+03          \r\n       20        2.665811E+03   3.586823E+03  -3.568479E+03      -48.6766       6.724387E+03  -4.717527E+02   3.598070E+03          \r\n       21       -1.913471E+03   4.485875E+03   4.488604E+03       62.7415       6.798504E+03  -4.226101E+03   5.512302E+03          \r\n       22        1.403843E+03   1.254450E+04  -5.392447E+03      -67.9648       1.472705E+04  -7.787017E+02   7.752875E+03          \r\n       23        2.442912E+03   1.524355E+04  -9.414955E+02      -85.8159       1.531243E+04   2.374035E+03   6.469198E+03          \r\n       24        2.552542E+03   1.552176E+04   7.291196E+02       86.7924       1.556262E+04   2.511681E+03   6.525471E+03          \r\n       25        1.338126E+04   6.095860E+03   1.679865E+02        1.3202       1.338514E+04   6.091989E+03   3.646573E+03          \r\n       26        4.755975E+03   1.292873E+04   1.787293E+03       78.1882       1.330249E+04   4.382207E+03   4.460144E+03          \r\n       42       -2.872070E+00   9.684149E+03  -4.716012E+03      -67.8821       1.160084E+04  -1.919566E+03   6.760205E+03          \r\n       43       -1.306162E+03   9.607479E+03  -1.989540E+03      -79.9842       9.958855E+03  -1.657539E+03   5.808197E+03          \r\n       50        3.651007E+03   8.448043E+03   5.821073E+02       83.1792       8.517670E+03   3.581381E+03   2.468144E+03          \r\n       77        2.486792E+03   8.060009E+03   5.821074E+02       84.1004       8.120159E+03   2.426641E+03   2.846759E+03          \r\n      107        1.887672E+03   7.047158E+03   2.810200E+02       86.8915       7.062419E+03   1.872410E+03   2.595004E+03          \r\n      137        1.325636E+03   6.859830E+03   2.810181E+02       87.1005       6.874062E+03   1.311403E+03   2.781330E+03          \r\n      167        1.354648E+03   6.481173E+03   2.076179E+02       87.6846       6.489568E+03   1.346253E+03   2.571657E+03          \r\n      195        9.394167E+02   6.342776E+03   2.076168E+02       87.8028       6.350741E+03   9.314509E+02   2.709645E+03          \r\n      222        7.184393E+02   5.980768E+03   1.638042E+02       88.2188       5.985862E+03   7.133455E+02   2.636258E+03          \r\n      249        3.908343E+02   5.871576E+03   1.638033E+02       88.2896       5.876468E+03   3.859431E+02   2.745262E+03          \r\n      272        2.655162E+02   5.425238E+03   1.180642E+02       88.6899       5.427938E+03   2.628159E+02   2.582561E+03          \r\n      293        2.938843E+01   5.346536E+03   1.180642E+02       88.7286       5.349156E+03   2.676782E+01   2.661194E+03          \r\n      341        6.716622E+02   4.772954E+03   3.756295E+01       89.4753       4.773298E+03   6.713181E+02   2.050990E+03          \r\n      347        3.330170E+01   4.842296E+03   3.724109E+01       89.5563       4.842584E+03   3.301343E+01   2.404785E+03          \r\n      348        7.173950E+00   4.832873E+03  -2.954062E+01      -89.6493       4.833053E+03   6.993164E+00   2.413030E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    10, EPSILON SUB E =  -3.7727411E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 10                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -5.484552E+03   2.764717E+03  -1.463337E+03      -80.2332       3.016606E+03  -5.736441E+03   4.376524E+03          \r\n        2        4.711204E+03   4.504348E+03  -8.732415E+03      -44.6607       1.334080E+04  -4.125251E+03   8.733027E+03          \r\n        3        5.389910E+03   1.750725E+04   3.822690E+03       73.8752       1.861241E+04   4.284752E+03   7.163828E+03          \r\n        4        6.304544E+03   1.881293E+04   8.467888E+02       86.1447       1.886999E+04   6.247479E+03   6.311256E+03          \r\n        5        9.380688E+03   1.694149E+04   1.084452E+03       81.9969       1.709396E+04   9.228220E+03   3.932870E+03          \r\n        6        7.132716E+03   1.661986E+04   1.163515E+03       83.1092       1.676047E+04   6.992105E+03   4.884182E+03          \r\n        7       -4.563356E+03  -1.936504E+02   2.239635E+02       87.0736      -1.822014E+02  -4.574806E+03   2.196302E+03          \r\n        8       -5.545125E+03   2.941025E+02  -1.004482E+02      -89.0148       2.958301E+02  -5.546853E+03   2.921341E+03          \r\n        9       -4.539526E+03  -4.120537E+02   2.557999E+01       89.6449      -4.118953E+02  -4.539685E+03   2.063895E+03          \r\n       10       -5.348550E+03   4.745186E+02  -4.496649E+01      -89.5576       4.748657E+02  -5.348897E+03   2.911881E+03          \r\n       11       -4.246346E+03  -4.699990E+02   5.541199E+00       89.9159      -4.699908E+02  -4.246354E+03   1.888182E+03          \r\n       12       -5.359253E+03   3.537510E+02   6.675415E+01       89.3306       3.545308E+02  -5.360033E+03   2.857282E+03          \r\n       13       -3.721354E+03  -2.878076E+02  -3.158541E+02      -84.7876      -2.589938E+02  -3.750168E+03   1.745587E+03          \r\n       14       -3.154945E+03  -9.903125E+01   3.714196E+02       83.1687      -5.453638E+01  -3.199440E+03   1.572452E+03          \r\n       15       -5.370445E+03   2.315371E+02   9.984808E+01       88.9792       2.333162E+02  -5.372225E+03   2.802770E+03          \r\n       16       -4.975398E+03   3.632065E+02  -4.948911E+02      -84.7483       4.086956E+02  -5.020888E+03   2.714792E+03          \r\n       17       -2.294124E+03  -1.543887E+02  -4.606641E+01      -88.7672      -1.533973E+02  -2.295115E+03   1.070859E+03          \r\n       18       -5.567502E+02   4.246768E+02   1.503001E+03       54.0406       1.515043E+03  -1.647116E+03   1.581079E+03          \r\n       19       -3.518466E+03   4.352886E+02  -7.651716E+02      -79.4203       5.782063E+02  -3.661384E+03   2.119795E+03          \r\n       20        2.869566E+03   3.785105E+03  -3.807144E+03      -48.4282       7.161902E+03  -5.072305E+02   3.834566E+03          \r\n       21       -2.234958E+03   4.496920E+03   4.905402E+03       62.2284       7.080142E+03  -4.818180E+03   5.949161E+03          \r\n       22        1.795342E+03   1.309221E+04  -5.516348E+03      -67.8389       1.533902E+04  -4.514702E+02   7.895244E+03          \r\n       23        2.844457E+03   1.585259E+04  -1.116875E+03      -85.1281       1.594779E+04   2.749259E+03   6.599265E+03          \r\n       24        3.009754E+03   1.611460E+04   9.228296E+02       85.9917       1.617926E+04   2.945088E+03   6.617087E+03          \r\n       25        1.499251E+04   6.621315E+03   3.157554E+02        2.1571       1.500441E+04   6.609423E+03   4.197491E+03          \r\n       26        5.153738E+03   1.405590E+04   1.881156E+03       78.5448       1.443709E+04   4.772546E+03   4.832274E+03          \r\n       42        1.029138E+01   1.003812E+04  -4.872511E+03      -67.9097       1.201567E+04  -1.967268E+03   6.991471E+03          \r\n       43       -1.549824E+03   1.029670E+04  -2.420459E+03      -78.8866       1.077216E+04  -2.025286E+03   6.398721E+03          \r\n       50        4.022133E+03   9.289697E+03   6.396980E+02       83.1741       9.366270E+03   3.945560E+03   2.710355E+03          \r\n       77        2.742737E+03   8.863274E+03   6.396981E+02       84.0966       8.929419E+03   2.676593E+03   3.126413E+03          \r\n      107        2.092563E+03   7.692984E+03   3.119120E+02       86.8220       7.710303E+03   2.075245E+03   2.817529E+03          \r\n      137        1.468744E+03   7.485064E+03   3.119099E+02       87.0401       7.501191E+03   1.452617E+03   3.024287E+03          \r\n      167        1.502364E+03   7.056468E+03   2.306134E+02       87.6264       7.066026E+03   1.492805E+03   2.786611E+03          \r\n      195        1.041143E+03   6.902742E+03   2.306122E+02       87.7505       6.911801E+03   1.032084E+03   2.939858E+03          \r\n      222        7.956306E+02   6.500415E+03   1.813989E+02       88.1806       6.506177E+03   7.898682E+02   2.858154E+03          \r\n      249        4.328362E+02   6.379496E+03   1.813979E+02       88.2544       6.385024E+03   4.273076E+02   2.978858E+03          \r\n      272        2.935461E+02   5.887151E+03   1.304516E+02       88.6647       5.890191E+03   2.905056E+02   2.799843E+03          \r\n      293        3.264375E+01   5.800191E+03   1.304516E+02       88.7050       5.803140E+03   2.969458E+01   2.886723E+03          \r\n      341        7.365284E+02   5.170372E+03   4.113902E+01       89.4685       5.170753E+03   7.361467E+02   2.217303E+03          \r\n      347        3.656653E+01   5.246393E+03   4.088007E+01       89.5505       5.246714E+03   3.624561E+01   2.605234E+03          \r\n      348        7.873047E+00   5.236094E+03  -3.243977E+01      -89.6445       5.236295E+03   7.671631E+00   2.614312E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    11, EPSILON SUB E =  -5.5137551E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 11                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -6.088538E+03   3.047835E+03  -1.537060E+03      -80.7017       3.299491E+03  -6.340193E+03   4.819842E+03          \r\n        2        4.474349E+03   4.440910E+03  -9.025821E+03      -44.9469       1.348347E+04  -4.568208E+03   9.025837E+03          \r\n        3        5.768511E+03   1.797816E+04   3.960979E+03       73.5117       1.915057E+04   4.596095E+03   7.277240E+03          \r\n        4        6.621860E+03   1.929961E+04   1.027715E+03       85.3954       1.938238E+04   6.539089E+03   6.421646E+03          \r\n        5        9.463048E+03   1.747082E+04   9.882173E+02       83.0678       1.759097E+04   9.342898E+03   4.124036E+03          \r\n        6        7.413708E+03   1.716688E+04   1.061116E+03       83.8621       1.728098E+04   7.299597E+03   4.990694E+03          \r\n        7       -4.915379E+03  -2.071475E+02   2.400914E+02       87.0883      -1.949358E+02  -4.927591E+03   2.366327E+03          \r\n        8       -5.965856E+03   3.151992E+02  -1.080468E+02      -89.0148       3.170574E+02  -5.967714E+03   3.142386E+03          \r\n        9       -4.889609E+03  -4.407236E+02   2.795764E+01       89.6400      -4.405481E+02  -4.889785E+03   2.224618E+03          \r\n       10       -5.752662E+03   5.074268E+02  -4.923120E+01      -89.5495       5.078140E+02  -5.753049E+03   3.130432E+03          \r\n       11       -4.575095E+03  -5.012402E+02   7.001648E+00       89.9015      -5.012283E+02  -4.575106E+03   2.036939E+03          \r\n       12       -5.759074E+03   3.761660E+02   6.964813E+01       89.3497       3.769565E+02  -5.759864E+03   3.068410E+03          \r\n       13       -4.013650E+03  -3.081826E+02  -3.349329E+02      -84.8764      -2.781519E+02  -4.043681E+03   1.882765E+03          \r\n       14       -3.410934E+03  -1.073066E+02   3.932556E+02       83.3043      -6.113965E+01  -3.457101E+03   1.697981E+03          \r\n       15       -5.770403E+03   2.433853E+02   1.089755E+02       88.9622       2.453594E+02  -5.772377E+03   3.008868E+03          \r\n       16       -5.367191E+03   3.777764E+02  -5.121833E+02      -84.9450       4.230818E+02  -5.412497E+03   2.917789E+03          \r\n       17       -2.484392E+03  -1.849814E+02  -6.786694E+01      -88.3109      -1.829801E+02  -2.486393E+03   1.151707E+03          \r\n       18       -6.235940E+02   4.352207E+02   1.561749E+03       54.3629       1.554853E+03  -1.743226E+03   1.649039E+03          \r\n       19       -3.873310E+03   4.878311E+02  -7.624144E+02      -80.3642       6.172743E+02  -4.002753E+03   2.310014E+03          \r\n       20        3.083093E+03   3.913262E+03  -4.046517E+03      -47.9284       7.565928E+03  -5.695735E+02   4.067751E+03          \r\n       21       -2.582911E+03   4.481818E+03   5.320974E+03       61.7892       7.336187E+03  -5.437279E+03   6.386733E+03          \r\n       22        2.137065E+03   1.361730E+04  -5.606918E+03      -67.8363       1.590130E+04  -1.469360E+02   8.024120E+03          \r\n       23        3.158526E+03   1.637686E+04  -1.256583E+03      -84.6175       1.649525E+04   3.040131E+03   6.727561E+03          \r\n       24        3.399070E+03   1.664716E+04   1.063827E+03       85.4381       1.673204E+04   3.314188E+03   6.708928E+03          \r\n       25        1.663066E+04   6.978689E+03   4.704653E+02        2.7840       1.665354E+04   6.955812E+03   4.848865E+03          \r\n       26        5.521266E+03   1.480000E+04   1.910166E+03       78.8108       1.517785E+04   5.143417E+03   5.017217E+03          \r\n       42        1.035437E+02   1.044812E+04  -4.988124E+03      -68.0192       1.246151E+04  -1.909844E+03   7.185678E+03          \r\n       43       -1.704493E+03   1.081572E+04  -2.818982E+03      -77.8788       1.142115E+04  -2.309923E+03   6.865538E+03          \r\n       50        4.381431E+03   1.018024E+04   6.916086E+02       83.2918       1.026159E+04   4.300086E+03   2.980750E+03          \r\n       77        2.998215E+03   9.719215E+03   6.916086E+02       84.1853       9.789645E+03   2.927785E+03   3.430930E+03          \r\n      107        2.306578E+03   8.360979E+03   3.434508E+02       86.7636       8.380399E+03   2.287157E+03   3.046621E+03          \r\n      137        1.619682E+03   8.132034E+03   3.434485E+02       86.9895       8.150097E+03   1.601619E+03   3.274239E+03          \r\n      167        1.660854E+03   7.644353E+03   2.552207E+02       87.5620       7.655219E+03   1.649987E+03   3.002616E+03          \r\n      195        1.150419E+03   7.474224E+03   2.552194E+02       87.6926       7.484507E+03   1.140135E+03   3.172186E+03          \r\n      222        8.788705E+02   7.027250E+03   2.003537E+02       88.1356       7.033772E+03   8.723486E+02   3.080712E+03          \r\n      249        4.781666E+02   6.893697E+03   2.003526E+02       88.2130       6.899948E+03   4.719158E+02   3.214016E+03          \r\n      272        3.237125E+02   6.352122E+03   1.437603E+02       88.6347       6.355548E+03   3.202861E+02   3.017631E+03          \r\n      293        3.619266E+01   6.256290E+03   1.437603E+02       88.6767       6.259611E+03   3.287207E+01   3.113369E+03          \r\n      341        8.043326E+02   5.567688E+03   4.485546E+01       89.4605       5.568111E+03   8.039102E+02   2.382100E+03          \r\n      347        4.000110E+01   5.650681E+03   4.470291E+01       89.5435       5.651037E+03   3.964478E+01   2.805696E+03          \r\n      348        8.603516E+00   5.639482E+03  -3.549104E+01      -89.6389       5.639706E+03   8.379883E+00   2.815663E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    12, EPSILON SUB E =  -1.7538386E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 12                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -6.729025E+03   3.334059E+03  -1.624672E+03      -81.0524       3.589857E+03  -6.984824E+03   5.287341E+03          \r\n        2        4.199537E+03   4.345137E+03  -9.303884E+03      -45.2242       1.357651E+04  -5.031832E+03   9.304169E+03          \r\n        3        6.066865E+03   1.839430E+04   4.110676E+03       73.1500       1.963930E+04   4.821867E+03   7.408718E+03          \r\n        4        6.843639E+03   1.973466E+04   1.216365E+03       84.6566       1.984843E+04   6.729870E+03   6.559278E+03          \r\n        5        9.526582E+03   1.791741E+04   9.035271E+02       83.9232       1.801360E+04   9.430393E+03   4.291604E+03          \r\n        6        7.653393E+03   1.762655E+04   9.696553E+02       84.4980       1.771995E+04   7.559991E+03   5.079980E+03          \r\n        7       -5.264881E+03  -2.202695E+02   2.559956E+02       87.1024      -2.073120E+02  -5.277838E+03   2.535263E+03          \r\n        8       -6.382394E+03   3.359297E+02  -1.156548E+02      -89.0141       3.379202E+02  -6.384384E+03   3.361152E+03          \r\n        9       -5.236989E+03  -4.686592E+02   3.044208E+01       89.6342      -4.684648E+02  -5.237184E+03   2.384359E+03          \r\n       10       -6.152208E+03   5.393711E+02  -5.364432E+01      -89.5407       5.398010E+02  -6.152639E+03   3.346220E+03          \r\n       11       -4.900795E+03  -5.313799E+02   8.474304E+00       89.8889      -5.313635E+02  -4.900812E+03   2.184724E+03          \r\n       12       -6.154532E+03   3.968184E+02   7.291748E+01       89.3624       3.976299E+02  -6.155344E+03   3.276487E+03          \r\n       13       -4.302472E+03  -3.292959E+02  -3.544209E+02      -84.9422      -2.979280E+02  -4.333840E+03   2.017956E+03          \r\n       14       -3.663052E+03  -1.161875E+02   4.122977E+02       83.4560      -6.889148E+01  -3.710348E+03   1.820728E+03          \r\n       15       -6.169577E+03   2.549541E+02   1.215875E+02       88.9162       2.572544E+02  -6.171877E+03   3.214566E+03          \r\n       16       -5.769495E+03   3.883027E+02  -5.216650E+02      -85.1918       4.321836E+02  -5.813376E+03   3.122780E+03          \r\n       17       -2.666537E+03  -2.230391E+02  -1.012816E+02      -87.6305      -2.188481E+02  -2.670728E+03   1.225940E+03          \r\n       18       -6.716221E+02   4.418633E+02   1.607781E+03       54.5500       1.586568E+03  -1.816327E+03   1.701447E+03          \r\n       19       -4.262996E+03   5.642891E+02  -7.404808E+02      -81.4723       6.753213E+02  -4.374028E+03   2.524675E+03          \r\n       20        3.311941E+03   3.980794E+03  -4.296802E+03      -47.2252       7.956164E+03  -6.634287E+02   4.309796E+03          \r\n       21       -2.950078E+03   4.439423E+03   5.735066E+03       61.3956       7.566854E+03  -6.077509E+03   6.822182E+03          \r\n       22        2.436285E+03   1.410360E+04  -5.682548E+03      -67.8759       1.641383E+04   1.260552E+02   8.143889E+03          \r\n       23        3.402802E+03   1.683627E+04  -1.387780E+03      -84.1630       1.697814E+04   3.260932E+03   6.858605E+03          \r\n       24        3.670417E+03   1.710536E+04   1.201581E+03       84.9293       1.721198E+04   3.563798E+03   6.824093E+03          \r\n       25        1.822661E+04   7.261395E+03   6.354561E+02        3.3057       1.826332E+04   7.224691E+03   5.519312E+03          \r\n       26        5.860538E+03   1.535895E+04   1.914586E+03       79.0219       1.573035E+04   5.489138E+03   5.120605E+03          \r\n       42        2.763657E+02   1.091950E+04  -5.070417E+03      -68.1922       1.294832E+04  -1.752457E+03   7.350388E+03          \r\n       43       -1.795359E+03   1.115726E+04  -3.171595E+03      -76.9540       1.189216E+04  -2.530263E+03   7.211212E+03          \r\n       50        4.718398E+03   1.110961E+04   7.372446E+02       83.5044       1.119355E+04   4.634458E+03   3.279544E+03          \r\n       77        3.243911E+03   1.061816E+04   7.372444E+02       84.3464       1.069114E+04   3.170927E+03   3.760107E+03          \r\n      107        2.521467E+03   9.052981E+03   3.736118E+02       86.7368       9.074283E+03   2.500165E+03   3.287059E+03          \r\n      137        1.774249E+03   8.803932E+03   3.736094E+02       86.9663       8.823732E+03   1.754448E+03   3.534642E+03          \r\n      167        1.827329E+03   8.245774E+03   2.806919E+02       87.5007       8.258026E+03   1.815077E+03   3.221475E+03          \r\n      195        1.265952E+03   8.058666E+03   2.806904E+02       87.6378       8.070245E+03   1.254373E+03   3.407936E+03          \r\n      222        9.681086E+02   7.561391E+03   2.206281E+02       88.0856       7.568766E+03   9.607341E+02   3.304016E+03          \r\n      249        5.268563E+02   7.414324E+03   2.206269E+02       88.1671       7.421384E+03   5.197964E+02   3.450794E+03          \r\n      272        3.561596E+02   6.819923E+03   1.580542E+02       88.6001       6.823786E+03   3.522971E+02   3.235744E+03          \r\n      293        4.005176E+01   6.714563E+03   1.580542E+02       88.6442       6.718304E+03   3.631104E+01   3.340997E+03          \r\n      341        8.750923E+02   5.964911E+03   4.870738E+01       89.4518       5.965377E+03   8.746262E+02   2.545375E+03          \r\n      347        4.361444E+01   6.055158E+03   4.871738E+01       89.5357       6.055553E+03   4.321948E+01   3.006167E+03          \r\n      348        9.363281E+00   6.043047E+03  -3.870280E+01      -89.6325       6.043295E+03   9.114990E+00   3.017090E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    13, EPSILON SUB E =  -5.7001897E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 13                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -7.608748E+03   3.693543E+03  -1.765975E+03      -81.3230       3.963049E+03  -7.878254E+03   5.920651E+03          \r\n        2        3.797606E+03   4.180839E+03  -9.640374E+03      -45.5693       1.363150E+04  -5.653056E+03   9.642278E+03          \r\n        3        6.318799E+03   1.885853E+04   4.309584E+03       72.7487       2.019679E+04   4.980529E+03   7.608133E+03          \r\n        4        7.022766E+03   2.023555E+04   1.444313E+03       83.8339       2.039159E+04   6.866728E+03   6.762431E+03          \r\n        5        9.551508E+03   1.841303E+04   8.257966E+02       84.7212       1.848933E+04   9.475209E+03   4.507058E+03          \r\n        6        7.842202E+03   1.812611E+04   8.835029E+02       85.1253       1.820146E+04   7.766852E+03   5.217306E+03          \r\n        7       -5.696249E+03  -2.359951E+02   2.754178E+02       87.1197      -2.221379E+02  -5.710105E+03   2.743984E+03          \r\n        8       -6.894564E+03   3.610977E+02  -1.250984E+02      -89.0125       3.632539E+02  -6.896720E+03   3.629987E+03          \r\n        9       -5.665423E+03  -5.022373E+02   3.363739E+01       89.6267      -5.020183E+02  -5.665642E+03   2.581812E+03          \r\n       10       -6.643045E+03   5.774121E+02  -5.914383E+01      -89.5307       5.778965E+02  -6.643530E+03   3.610713E+03          \r\n       11       -5.301823E+03  -5.673633E+02   1.002771E+01       89.8786      -5.673420E+02  -5.301845E+03   2.367251E+03          \r\n       12       -6.642054E+03   4.199521E+02   7.820892E+01       89.3656       4.208184E+02  -6.642920E+03   3.531869E+03          \r\n       13       -4.657521E+03  -3.568438E+02  -3.801616E+02      -84.9871      -3.234976E+02  -4.690867E+03   2.183685E+03          \r\n       14       -3.972409E+03  -1.285068E+02   4.310159E+02       83.6800      -8.077014E+01  -4.020146E+03   1.969688E+03          \r\n       15       -6.669413E+03   2.701465E+02   1.436140E+02       88.8149       2.731174E+02  -6.672384E+03   3.472751E+03          \r\n       16       -6.289833E+03   3.966621E+02  -5.231901E+02      -85.5529       4.373518E+02  -6.330522E+03   3.383937E+03          \r\n       17       -2.885869E+03  -2.780391E+02  -1.591719E+02      -86.5201      -2.683597E+02  -2.895548E+03   1.313594E+03          \r\n       18       -7.139219E+02   4.458682E+02   1.648755E+03       54.6888       1.613735E+03  -1.881789E+03   1.747762E+03          \r\n       19       -4.800250E+03   7.014980E+02  -6.910104E+02      -82.9496       7.869602E+02  -4.885713E+03   2.836336E+03          \r\n       20        3.656573E+03   4.065873E+03  -4.675610E+03      -46.2531       8.541310E+03  -8.188633E+02   4.680086E+03          \r\n       21       -3.372349E+03   4.308120E+03   6.169791E+03       60.9496       7.735190E+03  -6.799420E+03   7.267305E+03          \r\n       22        2.746168E+03   1.466392E+04  -5.783457E+03      -67.9279       1.700906E+04   4.010342E+02   8.304012E+03          \r\n       23        3.648254E+03   1.735791E+04  -1.576491E+03      -83.5241       1.753686E+04   3.469307E+03   7.033776E+03          \r\n       24        3.905518E+03   1.760784E+04   1.413308E+03       84.1721       1.775210E+04   3.761262E+03   6.995417E+03          \r\n       25        2.023504E+04   7.603470E+03   8.486755E+02        3.8266       2.029180E+04   7.546706E+03   6.372549E+03          \r\n       26        6.236249E+03   1.593405E+04   1.910928E+03       79.2454       1.629701E+04   5.873289E+03   5.211859E+03          \r\n       42        5.372246E+02   1.155061E+04  -5.128494E+03      -68.5183       1.356889E+04  -1.481048E+03   7.524967E+03          \r\n       43       -1.874616E+03   1.148166E+04  -3.570124E+03      -75.9356       1.237606E+04  -2.769014E+03   7.572538E+03          \r\n       50        5.121384E+03   1.239840E+04   7.894167E+02       83.8794       1.248305E+04   5.036731E+03   3.723159E+03          \r\n       77        3.542552E+03   1.187217E+04   7.894166E+02       84.6336       1.194633E+04   3.468397E+03   4.238964E+03          \r\n      107        2.801015E+03   9.982146E+03   4.106464E+02       86.7378       1.000555E+04   2.777608E+03   3.613972E+03          \r\n      137        1.979731E+03   9.708411E+03   4.106437E+02       86.9671       9.730168E+03   1.957973E+03   3.886097E+03          \r\n      167        2.055006E+03   9.032356E+03   3.147285E+02       87.4225       9.046524E+03   2.040838E+03   3.502843E+03          \r\n      195        1.425557E+03   8.822560E+03   3.147266E+02       87.5680       8.835926E+03   1.412190E+03   3.711868E+03          \r\n      222        1.094407E+03   8.246880E+03   2.492102E+02       88.0069       8.255553E+03   1.085735E+03   3.584909E+03          \r\n      249        5.959907E+02   8.080760E+03   2.492090E+02       88.0951       8.089048E+03   5.877021E+02   3.750673E+03          \r\n      272        4.023602E+02   7.411196E+03   1.783495E+02       88.5433       7.415731E+03   3.978247E+02   3.508953E+03          \r\n      293        4.566211E+01   7.292307E+03   1.783495E+02       88.5910       7.296693E+03   4.127539E+01   3.627709E+03          \r\n      341        9.700508E+02   6.461240E+03   5.380917E+01       89.4386       6.461767E+03   9.695234E+02   2.746122E+03          \r\n      347        4.853723E+01   6.561178E+03   5.416869E+01       89.5235       6.561629E+03   4.808667E+01   3.256771E+03          \r\n      348        1.037781E+01   6.547902E+03  -4.308302E+01      -89.6224       6.548186E+03   1.009399E+01   3.269046E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    14, EPSILON SUB E =   5.0038826E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 14                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -8.577302E+03   4.054899E+03  -1.948083E+03      -81.4293       4.348500E+03  -8.870902E+03   6.609702E+03          \r\n        2        3.339680E+03   3.965893E+03  -9.968896E+03      -45.8995       1.362660E+04  -6.321025E+03   9.973812E+03          \r\n        3        6.461196E+03   1.927830E+04   4.518782E+03       72.4058       2.071123E+04   5.028259E+03   7.841488E+03          \r\n        4        7.131350E+03   2.070951E+04   1.647996E+03       83.1779       2.090667E+04   6.934193E+03   6.986238E+03          \r\n        5        9.506463E+03   1.885452E+04   7.886372E+02       85.2114       1.892059E+04   9.440397E+03   4.740096E+03          \r\n        6        7.878707E+03   1.856060E+04   8.391125E+02       85.5356       1.862611E+04   7.813193E+03   5.406459E+03          \r\n        7       -6.120475E+03  -2.509590E+02   2.941446E+02       87.1382      -2.362551E+02  -6.135179E+03   2.949462E+03          \r\n        8       -7.396192E+03   3.852031E+02  -1.342407E+02      -89.0120       3.875183E+02  -7.398507E+03   3.893013E+03          \r\n        9       -6.086611E+03  -5.341963E+02   3.668512E+01       89.6215      -5.339539E+02  -6.086854E+03   2.776450E+03          \r\n       10       -7.124627E+03   6.128916E+02  -6.395248E+01      -89.5265       6.134202E+02  -7.125155E+03   3.869288E+03          \r\n       11       -5.696271E+03  -6.017793E+02   1.052606E+01       89.8816      -6.017576E+02  -5.696293E+03   2.547268E+03          \r\n       12       -7.126019E+03   4.403096E+02   8.639709E+01       89.3459       4.412959E+02  -7.127005E+03   3.784151E+03          \r\n       13       -5.007810E+03  -3.859346E+02  -4.094077E+02      -84.9768      -3.499492E+02  -5.043795E+03   2.346923E+03          \r\n       14       -4.278605E+03  -1.429023E+02   4.425396E+02       83.9602      -9.607886E+01  -4.325429E+03   2.114675E+03          \r\n       15       -7.179289E+03   2.880693E+02   1.749342E+02       88.6587       2.921653E+02  -7.183385E+03   3.737775E+03          \r\n       16       -6.839899E+03   4.011895E+02  -5.143199E+02      -85.9574       4.375381E+02  -6.876248E+03   3.656893E+03          \r\n       17       -3.104329E+03  -3.374678E+02  -2.349592E+02      -85.1805      -3.176571E+02  -3.124140E+03   1.403241E+03          \r\n       18       -7.510205E+02   4.468867E+02   1.676406E+03       54.8305       1.628124E+03  -1.932258E+03   1.780191E+03          \r\n       19       -5.398452E+03   8.839297E+02  -6.237319E+02      -84.3846       9.452568E+02  -5.459779E+03   3.202518E+03          \r\n       20        4.072184E+03   4.167278E+03  -5.139421E+03      -45.2650       9.259373E+03  -1.019910E+03   5.139641E+03          \r\n       21       -3.751975E+03   4.083878E+03   6.514519E+03       60.5117       7.767866E+03  -7.435962E+03   7.601914E+03          \r\n       22        2.985409E+03   1.516249E+04  -5.906984E+03      -67.9336       1.755704E+04   5.908604E+02   8.483087E+03          \r\n       23        3.844285E+03   1.783638E+04  -1.788826E+03      -82.8286       1.806145E+04   3.619212E+03   7.221118E+03          \r\n       24        4.051274E+03   1.804891E+04   1.668064E+03       83.2972       1.824494E+04   3.855241E+03   7.194851E+03          \r\n       25        2.226846E+04   7.969760E+03   1.059761E+03        4.2158       2.234658E+04   7.891642E+03   7.227471E+03          \r\n       26        6.534339E+03   1.641053E+04   1.919777E+03       79.3777       1.677058E+04   6.174291E+03   5.298145E+03          \r\n       42        8.104863E+02   1.218840E+04  -5.153182E+03      -68.9145       1.417535E+04  -1.176462E+03   7.675904E+03          \r\n       43       -1.946269E+03   1.173189E+04  -3.930886E+03      -75.0555       1.278109E+04  -2.995463E+03   7.888275E+03          \r\n       50        5.483698E+03   1.360373E+04   8.293296E+02       84.2276       1.368756E+04   5.399862E+03   4.143851E+03          \r\n       77        3.822429E+03   1.307864E+04   8.319409E+02       84.9047       1.315282E+04   3.748250E+03   4.702283E+03          \r\n      107        3.051979E+03   1.099704E+04   4.371453E+02       86.8602       1.102101E+04   3.027999E+03   3.996508E+03          \r\n      137        2.177698E+03   1.070563E+04   4.371423E+02       87.0732       1.072798E+04   2.155348E+03   4.286318E+03          \r\n      167        2.291370E+03   9.875464E+03   3.479656E+02       87.3786       9.891396E+03   2.275438E+03   3.807979E+03          \r\n      195        1.595447E+03   9.643513E+03   3.479634E+02       87.5289       9.658529E+03   1.580431E+03   4.039049E+03          \r\n      222        1.237258E+03   8.961100E+03   2.812782E+02       87.9171       8.971329E+03   1.227028E+03   3.872151E+03          \r\n      249        6.747054E+02   8.773604E+03   2.812769E+02       88.0133       8.783361E+03   6.649482E+02   4.059207E+03          \r\n      272        4.564900E+02   8.012407E+03   2.021091E+02       88.4689       8.017810E+03   4.510881E+02   3.783361E+03          \r\n      293        5.227310E+01   7.877680E+03   2.021091E+02       88.5215       7.882896E+03   4.705640E+01   3.917920E+03          \r\n      341        1.074484E+03   6.957294E+03   5.931097E+01       89.4224       6.957892E+03   1.073886E+03   2.942003E+03          \r\n      347        5.407129E+01   7.067815E+03   6.026776E+01       89.5077       7.068333E+03   5.355347E+01   3.507390E+03          \r\n      348        1.148425E+01   7.053358E+03  -4.801460E+01      -89.6094       7.053686E+03   1.115723E+01   3.521264E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    15, EPSILON SUB E =   3.0775343E-16\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 15                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -9.500917E+03   4.296981E+03  -2.111538E+03      -81.4912       4.612884E+03  -9.816820E+03   7.214852E+03          \r\n        2        2.886645E+03   3.867479E+03  -1.027602E+04      -46.3662       1.366478E+04  -6.910654E+03   1.028772E+04          \r\n        3        6.513462E+03   1.967764E+04   4.728253E+03       72.1542       2.119988E+04   4.991213E+03   8.104335E+03          \r\n        4        7.191699E+03   2.117815E+04   1.814832E+03       82.7260       2.140980E+04   6.960050E+03   7.224876E+03          \r\n        5        9.429733E+03   1.925888E+04   7.972114E+02       85.3931       1.932312E+04   9.365493E+03   4.978812E+03          \r\n        6        7.790668E+03   1.894212E+04   8.418481E+02       85.7070       1.900531E+04   7.727473E+03   5.638919E+03          \r\n        7       -6.537625E+03  -2.652568E+02   3.119868E+02       87.1595      -2.497769E+02  -6.553104E+03   3.151664E+03          \r\n        8       -7.887657E+03   4.080479E+02  -1.427886E+02      -89.0142       4.105051E+02  -7.890114E+03   4.150310E+03          \r\n        9       -6.500970E+03  -5.645889E+02   3.926514E+01       89.6210      -5.643291E+02  -6.501230E+03   2.968450E+03          \r\n       10       -7.599030E+03   6.456357E+02  -6.730560E+01      -89.5323       6.461851E+02  -7.599580E+03   4.122882E+03          \r\n       11       -6.086011E+03  -6.351992E+02   9.254211E+00       89.9027      -6.351836E+02  -6.086027E+03   2.725422E+03          \r\n       12       -7.612002E+03   4.586631E+02   9.878705E+01       89.2988       4.598721E+02  -7.613211E+03   4.036542E+03          \r\n       13       -5.357332E+03  -4.163877E+02  -4.437124E+02      -84.9089      -3.768572E+02  -5.396862E+03   2.510003E+03          \r\n       14       -4.587433E+03  -1.597930E+02   4.463834E+02       84.3000      -1.152380E+02  -4.631987E+03   2.258375E+03          \r\n       15       -7.708124E+03   3.102979E+02   2.163154E+02       88.4558       3.161292E+02  -7.713955E+03   4.015042E+03          \r\n       16       -7.426187E+03   4.042695E+02  -4.982480E+02      -86.3738       4.358455E+02  -7.457763E+03   3.946804E+03          \r\n       17       -3.333695E+03  -3.959736E+02  -3.248702E+02      -83.7643      -3.604764E+02  -3.369192E+03   1.504358E+03          \r\n       18       -8.036333E+02   4.472920E+02   1.698420E+03       55.1084       1.631756E+03  -1.988097E+03   1.809926E+03          \r\n       19       -6.052637E+03   1.101187E+03  -5.495586E+02      -85.6327       1.143158E+03  -6.094608E+03   3.618883E+03          \r\n       20        4.519929E+03   4.204631E+03  -5.709877E+03      -44.2092       1.007433E+04  -1.349773E+03   5.712053E+03          \r\n       21       -4.142841E+03   3.763940E+03   6.821986E+03       60.0463       7.695269E+03  -8.074169E+03   7.884719E+03          \r\n       22        3.152203E+03   1.561170E+04  -6.054880E+03      -67.9078       1.806937E+04   6.945264E+02   8.687423E+03          \r\n       23        4.000966E+03   1.829099E+04  -2.015208E+03      -82.1246       1.856974E+04   3.722215E+03   7.423764E+03          \r\n       24        4.117565E+03   1.844669E+04   1.953938E+03       82.3726       1.870835E+04   3.855901E+03   7.426225E+03          \r\n       25        2.434947E+04   8.369805E+03   1.261214E+03        4.4851       2.444840E+04   8.270875E+03   8.088764E+03          \r\n       26        6.761793E+03   1.682600E+04   1.949053E+03       79.4137       1.719027E+04   6.397521E+03   5.396374E+03          \r\n       42        1.075239E+03   1.281916E+04  -5.155648E+03      -69.3582       1.476133E+04  -8.669321E+02   7.814129E+03          \r\n       43       -2.051177E+03   1.191896E+04  -4.271147E+03      -74.2778       1.312132E+04  -3.253530E+03   8.187423E+03          \r\n       50        5.761742E+03   1.443890E+04   8.362449E+02       84.5451       1.451875E+04   5.681885E+03   4.418434E+03          \r\n       77        4.080319E+03   1.397307E+04   8.451790E+02       85.1518       1.404476E+04   4.008631E+03   5.018062E+03          \r\n      107        3.283158E+03   1.207766E+04   4.595850E+02       87.0167       1.210161E+04   3.259207E+03   4.421201E+03          \r\n      137        2.363998E+03   1.177130E+04   4.595818E+02       87.2097       1.179370E+04   2.341599E+03   4.726049E+03          \r\n      167        2.510149E+03   1.079812E+04   3.756865E+02       87.4099       1.081512E+04   2.493155E+03   4.160981E+03          \r\n      195        1.758784E+03   1.054769E+04   3.756841E+02       87.5568       1.056372E+04   1.742755E+03   4.410483E+03          \r\n      222        1.389515E+03   9.721570E+03   3.149696E+02       87.8382       9.733460E+03   1.377626E+03   4.177917E+03          \r\n      249        7.595806E+02   9.511617E+03   3.149681E+02       87.9416       9.522938E+03   7.482598E+02   4.387339E+03          \r\n      272        5.200823E+02   8.628944E+03   2.301810E+02       88.3753       8.635473E+03   5.135532E+02   4.060960E+03          \r\n      293        5.972157E+01   8.475503E+03   2.301810E+02       88.4345       8.481794E+03   5.343066E+01   4.214182E+03          \r\n      341        1.191844E+03   7.453006E+03   6.532078E+01       89.4023       7.453688E+03   1.191163E+03   3.131262E+03          \r\n      347        6.048364E+01   7.575301E+03   6.728847E+01       89.4870       7.575903E+03   5.988086E+01   3.758011E+03          \r\n      348        1.271570E+01   7.559678E+03  -5.374034E+01      -89.5920       7.560061E+03   1.233301E+01   3.773864E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    16, EPSILON SUB E =  -3.3749909E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 16                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.027222E+04   4.337271E+03  -2.218849E+03      -81.5518       4.666830E+03  -1.060178E+04   7.634306E+03          \r\n        2        2.500248E+03   3.997475E+03  -1.055362E+04      -47.0287       1.382900E+04  -7.331276E+03   1.058014E+04          \r\n        3        6.486030E+03   2.006660E+04   4.934631E+03       71.9967       2.167027E+04   4.882354E+03   8.393958E+03          \r\n        4        7.218002E+03   2.165428E+04   1.937235E+03       82.4884       2.190972E+04   6.962560E+03   7.473579E+03          \r\n        5        9.372118E+03   1.963597E+04   8.525444E+02       85.2839       1.970630E+04   9.301785E+03   5.202258E+03          \r\n        6        7.625918E+03   1.928841E+04   8.936514E+02       85.6435       1.935649E+04   7.557838E+03   5.899328E+03          \r\n        7       -6.948601E+03  -2.790391E+02   3.288437E+02       87.1841      -2.628645E+02  -6.964775E+03   3.350955E+03          \r\n        8       -8.370379E+03   4.295742E+02  -1.505352E+02      -89.0203       4.321484E+02  -8.372953E+03   4.402551E+03          \r\n        9       -6.909687E+03  -5.936172E+02   4.114932E+01       89.6267      -5.933491E+02  -6.909955E+03   3.158303E+03          \r\n       10       -8.068806E+03   6.758486E+02  -6.873544E+01      -89.5497       6.763884E+02  -8.069346E+03   4.372867E+03          \r\n       11       -6.473207E+03  -6.681602E+02   5.832092E+00       89.9424      -6.681543E+02  -6.473212E+03   2.902529E+03          \r\n       12       -8.104419E+03   4.757148E+02   1.160118E+02       89.2255       4.772832E+02  -8.105987E+03   4.291635E+03          \r\n       13       -5.709130E+03  -4.481143E+02  -4.838981E+02      -84.7883      -4.039766E+02  -5.753268E+03   2.674646E+03          \r\n       14       -4.902534E+03  -1.792910E+02   4.427523E+02       84.6908      -1.381462E+02  -4.943679E+03   2.402766E+03          \r\n       15       -8.261580E+03   3.381182E+02   2.677094E+02       88.2187       3.464438E+02  -8.269906E+03   4.308175E+03          \r\n       16       -8.050364E+03   4.085176E+02  -4.789209E+02      -86.7698       4.355464E+02  -8.077393E+03   4.256470E+03          \r\n       17       -3.580435E+03  -4.494619E+02  -4.241282E+02      -82.4205      -3.930259E+02  -3.636871E+03   1.621923E+03          \r\n       18       -8.846892E+02   4.490254E+02   1.721199E+03       55.5891       1.628035E+03  -2.063699E+03   1.845867E+03          \r\n       19       -6.753295E+03   1.347086E+03  -4.784723E+02      -86.6313       1.375250E+03  -6.781459E+03   4.078355E+03          \r\n       20        4.979400E+03   4.134237E+03  -6.411664E+03      -43.1146       1.098239E+04  -1.868755E+03   6.425574E+03          \r\n       21       -4.567543E+03   3.339740E+03   7.116703E+03       59.5271       7.527274E+03  -8.755077E+03   8.141176E+03          \r\n       22        3.243367E+03   1.601206E+04  -6.233391E+03      -67.8427       1.855044E+04   7.049873E+02   8.922728E+03          \r\n       23        4.126369E+03   1.873147E+04  -2.253454E+03      -81.4253       1.907125E+04   3.786583E+03   7.642334E+03          \r\n       24        4.125768E+03   1.881546E+04   2.259203E+03       81.4513       1.915506E+04   3.786164E+03   7.684447E+03          \r\n       25        2.649018E+04   8.804491E+03   1.448613E+03        4.6517       2.660805E+04   8.686623E+03   8.960713E+03          \r\n       26        6.945002E+03   1.719574E+04   1.994511E+03       79.3684       1.757014E+04   6.570600E+03   5.499771E+03          \r\n       42        1.311440E+03   1.342281E+04  -5.156980E+03      -69.7913       1.532110E+04  -5.868521E+02   7.953978E+03          \r\n       43       -2.205797E+03   1.204463E+04  -4.603815E+03      -73.5661       1.340256E+04  -3.563730E+03   8.483146E+03          \r\n       50        5.962041E+03   1.505993E+04   8.242161E+02       84.8650       1.513400E+04   5.887975E+03   4.623012E+03          \r\n       77        4.301269E+03   1.462935E+04   8.365569E+02       85.3991       1.469667E+04   4.233948E+03   5.231360E+03          \r\n      107        3.513552E+03   1.318123E+04   4.837136E+02       87.1428       1.320538E+04   3.489411E+03   4.857983E+03          \r\n      137        2.545934E+03   1.286256E+04   4.839126E+02       87.3203       1.288521E+04   2.523285E+03   5.180964E+03          \r\n      167        2.710807E+03   1.179614E+04   4.017559E+02       87.4729       1.181387E+04   2.693077E+03   4.560395E+03          \r\n      195        1.907304E+03   1.152833E+04   4.017532E+02       87.6130       1.154507E+04   1.890557E+03   4.827259E+03          \r\n      222        1.536002E+03   1.054586E+04   3.471031E+02       87.7970       1.055921E+04   1.522649E+03   4.518282E+03          \r\n      249        8.418004E+02   1.031449E+04   3.471016E+02       87.9043       1.032719E+04   8.290991E+02   4.749045E+03          \r\n      272        5.916113E+02   9.267640E+03   2.623352E+02       88.2697       9.275564E+03   5.836865E+02   4.345939E+03          \r\n      293        6.694276E+01   9.092766E+03   2.623352E+02       88.3366       9.100385E+03   5.932373E+01   4.520530E+03          \r\n      341        1.325487E+03   7.948339E+03   7.191428E+01       89.3780       7.949120E+03   1.324706E+03   3.312207E+03          \r\n      347        6.807214E+01   8.083863E+03   7.553029E+01       89.4602       8.084575E+03   6.736060E+01   4.008607E+03          \r\n      348        1.410083E+01   8.067152E+03  -6.053316E+01      -89.5694       8.067607E+03   1.364600E+01   4.026980E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    17, EPSILON SUB E =   1.1001674E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 17                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.109057E+04   4.135338E+03  -2.428774E+03      -81.1528       4.513380E+03  -1.146861E+04   7.990994E+03          \r\n        2        2.150233E+03   4.247883E+03  -1.081202E+04      -47.7703       1.406183E+04  -7.663715E+03   1.086277E+04          \r\n        3        6.398135E+03   2.044183E+04   5.142312E+03       71.8918       2.212341E+04   4.716551E+03   8.703432E+03          \r\n        4        7.216066E+03   2.213400E+04   2.029794E+03       82.3884       2.240525E+04   6.944816E+03   7.730216E+03          \r\n        5        9.322344E+03   1.999110E+04   9.442925E+02       84.9807       2.007404E+04   9.239409E+03   5.417313E+03          \r\n        6        7.394429E+03   1.959556E+04   9.836211E+02       85.4204       1.967435E+04   7.315641E+03   6.179353E+03          \r\n        7       -7.354734E+03  -2.925938E+02   3.447587E+02       87.2118      -2.758032E+02  -7.371524E+03   3.547861E+03          \r\n        8       -8.846768E+03   4.499629E+02  -1.573720E+02      -89.0305       4.526260E+02  -8.849431E+03   4.651028E+03          \r\n        9       -7.314383E+03  -6.218203E+02   4.221158E+01       89.6386      -6.215540E+02  -7.314649E+03   3.346548E+03          \r\n       10       -8.536779E+03   7.044844E+02  -6.818759E+01      -89.5773       7.049873E+02  -8.537282E+03   4.621135E+03          \r\n       11       -6.860261E+03  -7.013652E+02   5.141602E-01       89.9952      -7.013652E+02  -6.860261E+03   3.079448E+03          \r\n       12       -8.604501E+03   4.931152E+02   1.369360E+02       89.1379       4.951763E+02  -8.606562E+03   4.550869E+03          \r\n       13       -6.066128E+03  -4.798105E+02  -5.283206E+02      -84.6446      -4.302842E+02  -6.115654E+03   2.842685E+03          \r\n       14       -5.227303E+03  -2.002461E+02   4.353191E+02       85.0872      -1.628281E+02  -5.264721E+03   2.550947E+03          \r\n       15       -8.834441E+03   3.702930E+02   3.238860E+02       87.9873       3.816753E+02  -8.845824E+03   4.613750E+03          \r\n       16       -8.695225E+03   4.166963E+02  -4.630983E+02      -87.0980       4.401719E+02  -8.718700E+03   4.579436E+03          \r\n       17       -3.849930E+03  -4.947695E+02  -5.204258E+02      -81.3824      -4.158993E+02  -3.928800E+03   1.756451E+03          \r\n       18       -1.007484E+03   4.526123E+02   1.756081E+03       56.2870       1.624351E+03  -2.179222E+03   1.901786E+03          \r\n       19       -7.459571E+03   1.564485E+03  -4.209310E+02      -87.3351       1.584077E+03  -7.479163E+03   4.531620E+03          \r\n       20        5.494542E+03   4.049877E+03  -7.036596E+03      -42.0695       1.184578E+04  -2.301365E+03   7.073574E+03          \r\n       21       -4.956271E+03   2.946857E+03   7.403837E+03       59.0448       7.387650E+03  -9.397064E+03   8.392357E+03          \r\n       22        3.268480E+03   1.636674E+04  -6.441332E+03      -67.7377       1.900357E+04   6.316504E+02   9.185960E+03          \r\n       23        4.222736E+03   1.915819E+04  -2.502965E+03      -80.7352       1.956649E+04   3.814438E+03   7.876027E+03          \r\n       24        4.092846E+03   1.915633E+04   2.584896E+03       80.5289       1.958755E+04   3.661622E+03   7.962964E+03          \r\n       25        2.867153E+04   9.268257E+03   1.629381E+03        4.7669       2.880740E+04   9.132381E+03   9.837510E+03          \r\n       26        7.098092E+03   1.753634E+04   2.047943E+03       79.2877       1.792376E+04   6.710672E+03   5.606542E+03          \r\n       42        1.517215E+03   1.398612E+04  -5.179461E+03      -70.1404       1.585692E+04  -3.535918E+02   8.105257E+03          \r\n       43       -2.379432E+03   1.215396E+04  -4.914965E+03      -72.9634       1.366005E+04  -3.885520E+03   8.772786E+03          \r\n       50        6.099999E+03   1.558190E+04   8.021770E+02       85.1982       1.564929E+04   6.032612E+03   4.808338E+03          \r\n       77        4.481777E+03   1.516992E+04   8.160454E+02       85.6590       1.523187E+04   4.419831E+03   5.406017E+03          \r\n      107        3.701141E+03   1.410182E+04   4.932791E+02       87.2907       1.412517E+04   3.677798E+03   5.223684E+03          \r\n      137        2.713860E+03   1.378248E+04   4.940107E+02       87.4496       1.380449E+04   2.691854E+03   5.556316E+03          \r\n      167        2.900147E+03   1.282089E+04   4.281982E+02       87.5331       1.283933E+04   2.881699E+03   4.978817E+03          \r\n      195        2.043763E+03   1.253529E+04   4.281907E+02       87.6668       1.255274E+04   2.026317E+03   5.263209E+03          \r\n      222        1.663336E+03   1.143323E+04   3.765634E+02       87.7960       1.144773E+04   1.648844E+03   4.899441E+03          \r\n      249        9.102152E+02   1.118222E+04   3.765615E+02       87.9034       1.119601E+04   8.964287E+02   5.149791E+03          \r\n      272        6.629561E+02   9.935332E+03   2.959462E+02       88.1738       9.944768E+03   6.535200E+02   4.645624E+03          \r\n      293        7.106584E+01   9.738053E+03   2.959462E+02       88.2481       9.747104E+03   6.201367E+01   4.842545E+03          \r\n      341        1.478078E+03   8.443359E+03   7.906072E+01       89.3498       8.444257E+03   1.477181E+03   3.483538E+03          \r\n      347        7.720349E+01   8.593693E+03   8.534070E+01       89.4259       8.594549E+03   7.634766E+01   4.259101E+03          \r\n      348        1.564929E+01   8.576141E+03  -6.873344E+01      -89.5400       8.576692E+03   1.509766E+01   4.280797E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    18, EPSILON SUB E =  -4.2926630E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 18                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.200020E+04   3.662535E+03  -2.789450E+03      -80.1973       4.144492E+03  -1.248216E+04   8.313326E+03          \r\n        2        1.845780E+03   4.604516E+03  -1.105653E+04      -48.5556       1.436738E+04  -7.917089E+03   1.114224E+04          \r\n        3        6.259549E+03   2.081295E+04   5.353242E+03       71.8296       2.256994E+04   4.502559E+03   9.033688E+03          \r\n        4        7.196985E+03   2.263016E+04   2.090387E+03       82.4213       2.290829E+04   6.918859E+03   7.994713E+03          \r\n        5        9.289411E+03   2.032980E+04   1.077502E+03       84.4776       2.043397E+04   9.185233E+03   5.624370E+03          \r\n        6        7.094314E+03   1.987145E+04   1.117595E+03       85.0386       1.996847E+04   6.997297E+03   6.485587E+03          \r\n        7       -7.760621E+03  -3.063672E+02   3.598018E+02       87.2430      -2.890405E+02  -7.777947E+03   3.744453E+03          \r\n        8       -9.323236E+03   4.694473E+02  -1.630833E+02      -89.0462       4.721621E+02  -9.325951E+03   4.899057E+03          \r\n        9       -7.720090E+03  -6.499180E+02   4.212726E+01       89.6586      -6.496667E+02  -7.720341E+03   3.535337E+03          \r\n       10       -9.010935E+03   7.322559E+02  -6.495813E+01      -89.6180       7.326890E+02  -9.011367E+03   4.872028E+03          \r\n       11       -7.253072E+03  -7.360742E+02  -7.431885E+00      -89.9347      -7.360657E+02  -7.253081E+03   3.258508E+03          \r\n       12       -9.124111E+03   5.116582E+02   1.632702E+02       89.0295       5.144238E+02  -9.126877E+03   4.820650E+03          \r\n       13       -6.433942E+03  -5.123652E+02  -5.798313E+02      -84.4598      -4.561233E+02  -6.490185E+03   3.017031E+03          \r\n       14       -5.565264E+03  -2.228496E+02   4.245074E+02       85.4850      -1.893286E+02  -5.598785E+03   2.704728E+03          \r\n       15       -9.442708E+03   4.094551E+02   3.868361E+02       87.7549       4.246206E+02  -9.457873E+03   4.941247E+03          \r\n       16       -9.374850E+03   4.320762E+02  -4.546903E+02      -87.3511       4.531123E+02  -9.395886E+03   4.924499E+03          \r\n       17       -4.147196E+03  -5.260703E+02  -6.127595E+02      -80.6512      -4.251907E+02  -4.248075E+03   1.911442E+03          \r\n       18       -1.167955E+03   4.669043E+02   1.826713E+03       57.0539       1.650742E+03  -2.351793E+03   2.001268E+03          \r\n       19       -8.160898E+03   1.735439E+03  -3.955100E+02      -87.7150       1.751221E+03  -8.176680E+03   4.963951E+03          \r\n       20        6.037518E+03   3.979389E+03  -7.509964E+03      -41.0988       1.258859E+04  -2.571688E+03   7.580141E+03          \r\n       21       -5.304841E+03   2.643697E+03   7.685249E+03       58.6724       7.321472E+03  -9.982615E+03   8.652044E+03          \r\n       22        3.223729E+03   1.667296E+04  -6.686995E+03      -67.5804       1.943183E+04   4.648672E+02   9.483479E+03          \r\n       23        4.289758E+03   1.958038E+04  -2.760099E+03      -80.0747       2.006335E+04   3.806790E+03   8.128281E+03          \r\n       24        4.013293E+03   1.947761E+04   2.922614E+03       79.6472       2.001153E+04   3.479379E+03   8.266073E+03          \r\n       25        3.092574E+04   9.763536E+03   1.802235E+03        4.8331       3.107813E+04   9.611149E+03   1.073349E+04          \r\n       26        7.222175E+03   1.785919E+04   2.107869E+03       79.1901       1.826167E+04   6.819701E+03   5.720982E+03          \r\n       42        1.663085E+03   1.448169E+04  -5.251468E+03      -70.3352       1.635835E+04  -2.135688E+02   8.285957E+03          \r\n       43       -2.570996E+03   1.227384E+04  -5.200996E+03      -72.4902       1.391468E+04  -4.211837E+03   9.063257E+03          \r\n       50        6.172957E+03   1.605750E+04   7.720310E+02       85.5608       1.611744E+04   6.113020E+03   5.002208E+03          \r\n       77        4.614275E+03   1.566002E+04   7.866516E+02       85.9468       1.571577E+04   4.558534E+03   5.578617E+03          \r\n      107        3.812043E+03   1.480824E+04   4.972568E+02       87.4161       1.483068E+04   3.789603E+03   5.520539E+03          \r\n      137        2.816381E+03   1.448412E+04   4.984114E+02       87.5584       1.450537E+04   2.795130E+03   5.855122E+03          \r\n      167        3.025087E+03   1.369628E+04   4.390383E+02       87.6480       1.371431E+04   3.007054E+03   5.353627E+03          \r\n      195        2.147095E+03   1.339853E+04   4.389585E+02       87.7692       1.341562E+04   2.129997E+03   5.642814E+03          \r\n      222        1.774144E+03   1.235710E+04   4.064458E+02       87.8038       1.237269E+04   1.758557E+03   5.307066E+03          \r\n      249        9.613436E+02   1.208403E+04   4.063588E+02       87.9105       1.209886E+04   9.465176E+02   5.576171E+03          \r\n      272        7.232245E+02   1.065817E+04   3.277399E+02       88.1126       1.066897E+04   7.124248E+02   4.978273E+03          \r\n      293        6.774716E+01   1.043970E+04   3.277399E+02       88.1919       1.045004E+04   5.740137E+01   5.196321E+03          \r\n      341        1.655662E+03   8.938229E+03   8.667628E+01       89.3182       8.939260E+03   1.654630E+03   3.642315E+03          \r\n      347        8.876843E+01   9.105217E+03   9.755265E+01       89.3802       9.106271E+03   8.771338E+01   4.509279E+03          \r\n      348        1.741724E+01   9.087506E+03  -7.917289E+01      -89.4999       9.088197E+03   1.672607E+01   4.535735E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    19, EPSILON SUB E =   5.3295927E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 19                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.295221E+04   3.014789E+03  -3.237241E+03      -78.9639       3.646160E+03  -1.358358E+04   8.614872E+03          \r\n        2        1.586449E+03   5.049352E+03  -1.130141E+04      -49.3552       1.475117E+04  -8.115373E+03   1.143327E+04          \r\n        3        6.115001E+03   2.120956E+04   5.572134E+03       71.7808       2.304365E+04   4.280912E+03   9.381371E+03          \r\n        4        7.195793E+03   2.317079E+04   2.130883E+03       82.5313       2.345014E+04   6.916442E+03   8.266852E+03          \r\n        5        9.289469E+03   2.067533E+04   1.252735E+03       83.7949       2.081153E+04   9.153266E+03   5.829134E+03          \r\n        6        6.740376E+03   2.013131E+04   1.296357E+03       84.5211       2.025566E+04   6.616031E+03   6.819812E+03          \r\n        7       -8.175213E+03  -3.211738E+02   3.743293E+02       87.2775      -3.033735E+02  -8.193014E+03   3.944820E+03          \r\n        8       -9.812298E+03   4.886719E+02  -1.675017E+02      -89.0686       4.913945E+02  -9.815021E+03   5.153208E+03          \r\n        9       -8.136332E+03  -6.793047E+02   4.049359E+01       89.6889      -6.790850E+02  -8.136552E+03   3.728733E+03          \r\n       10       -9.505693E+03   7.605332E+02  -5.811020E+01      -89.6757       7.608618E+02  -9.506021E+03   5.133442E+03          \r\n       11       -7.662256E+03  -7.744258E+02  -1.901581E+01      -89.8418      -7.743733E+02  -7.662309E+03   3.443968E+03          \r\n       12       -9.683037E+03   5.327812E+02   1.974223E+02       88.8933       5.365952E+02  -9.686852E+03   5.111723E+03          \r\n       13       -6.823150E+03  -5.473145E+02  -6.423958E+02      -84.2151      -4.822336E+02  -6.888230E+03   3.202999E+03          \r\n       14       -5.925503E+03  -2.481465E+02   4.101776E+02       85.8889      -2.186650E+02  -5.954984E+03   2.868160E+03          \r\n       15       -1.011268E+04   4.581367E+02   4.601113E+02       87.5124       4.781260E+02  -1.013267E+04   5.305399E+03          \r\n       16       -1.011859E+04   4.561719E+02  -4.541979E+02      -87.5451       4.756440E+02  -1.013806E+04   5.306854E+03          \r\n       17       -4.477712E+03  -5.441484E+02  -7.060211E+02      -80.1266      -4.212659E+02  -4.600595E+03   2.089664E+03          \r\n       18       -1.359127E+03   4.952656E+02   1.939463E+03       57.7755       1.717770E+03  -2.581631E+03   2.149700E+03          \r\n       19       -8.885150E+03   1.885080E+03  -4.053018E+02      -87.8479       1.900311E+03  -8.900381E+03   5.400346E+03          \r\n       20        6.584114E+03   3.920136E+03  -7.927628E+03      -40.2312       1.329087E+04  -2.786624E+03   8.038749E+03          \r\n       21       -5.644844E+03   2.377361E+03   7.974889E+03       58.3504       7.293062E+03  -1.056054E+04   8.926803E+03          \r\n       22        3.136375E+03   1.695950E+04  -6.973666E+03      -67.3719       1.986638E+04   2.295000E+02   9.818438E+03          \r\n       23        4.347310E+03   2.002701E+04  -3.021078E+03      -79.4629       2.058896E+04   3.785365E+03   8.401795E+03          \r\n       24        3.906947E+03   1.980692E+04   3.268161E+03       78.8265       2.045247E+04   3.261402E+03   8.595532E+03          \r\n       25        3.336034E+04   1.031426E+04   1.979588E+03        4.8740       3.352914E+04   1.014545E+04   1.169184E+04          \r\n       26        7.338853E+03   1.817949E+04   2.178261E+03       79.0531       1.860080E+04   6.917539E+03   5.841632E+03          \r\n       42        1.752980E+03   1.492602E+04  -5.377879E+03      -70.3842       1.684267E+04  -1.636641E+02   8.503166E+03          \r\n       43       -2.783564E+03   1.240849E+04  -5.480370E+03      -72.0952       1.417911E+04  -4.554185E+03   9.366646E+03          \r\n       50        6.193472E+03   1.652275E+04   7.367354E+02       85.9408       1.657504E+04   6.141190E+03   5.216922E+03          \r\n       77        4.704901E+03   1.614092E+04   7.518362E+02       86.2547       1.619013E+04   4.655685E+03   5.767223E+03          \r\n      107        3.839334E+03   1.542348E+04   5.270239E+02       87.4005       1.544741E+04   3.815407E+03   5.816001E+03          \r\n      137        2.783768E+03   1.507270E+04   5.285498E+02       87.5417       1.509539E+04   2.761077E+03   6.167155E+03          \r\n      167        2.992911E+03   1.436555E+04   4.329229E+02       87.8231       1.438201E+04   2.976455E+03   5.702777E+03          \r\n      195        2.127186E+03   1.406248E+04   4.328086E+02       87.9259       1.407816E+04   2.111511E+03   5.983322E+03          \r\n      222        1.870991E+03   1.314558E+04   4.351763E+02       87.7929       1.316235E+04   1.854219E+03   5.654066E+03          \r\n      249        1.001605E+03   1.282918E+04   4.342148E+02       87.9003       1.284510E+04   9.856860E+02   5.929708E+03          \r\n      272        7.650774E+02   1.148128E+04   3.555577E+02       88.1017       1.149306E+04   7.532930E+02   5.369885E+03          \r\n      293        5.396411E+01   1.124426E+04   3.555577E+02       88.1819       1.125555E+04   4.267773E+01   5.606435E+03          \r\n      341        1.860196E+03   9.433384E+03   9.437815E+01       89.2861       9.434561E+03   1.859020E+03   3.787770E+03          \r\n      347        1.037505E+02   9.618537E+03   1.129951E+02       89.3197       9.619879E+03   1.024082E+02   4.758735E+03          \r\n      348        1.944250E+01   9.602191E+03  -9.279123E+01      -89.4453       9.603090E+03   1.854395E+01   4.792273E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    20, EPSILON SUB E =  -6.7865533E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 20                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.395977E+04   2.241090E+03  -3.751230E+03      -77.5758       3.067512E+03  -1.478620E+04   8.926854E+03          \r\n        2        1.362509E+03   5.578695E+03  -1.157104E+04      -50.1627       1.523211E+04  -8.290902E+03   1.176150E+04          \r\n        3        6.002372E+03   2.168670E+04   5.813439E+03       71.7251       2.360648E+04   4.082588E+03   9.761946E+03          \r\n        4        7.245725E+03   2.380613E+04   2.162108E+03       82.6829       2.408376E+04   6.968097E+03   8.557832E+03          \r\n        5        9.338059E+03   2.105517E+04   1.476798E+03       82.9259       2.123844E+04   9.154793E+03   6.041822E+03          \r\n        6        6.333319E+03   2.039514E+04   1.527944E+03       83.8696       2.055925E+04   6.169208E+03   7.195019E+03          \r\n        7       -8.615894E+03  -3.385801E+02   3.891477E+02       87.3142      -3.203252E+02  -8.634148E+03   4.156912E+03          \r\n        8       -1.033828E+04   5.090059E+02  -1.704301E+02      -89.1001       5.116831E+02  -1.034096E+04   5.426321E+03          \r\n        9       -8.581490E+03  -7.127207E+02   3.665256E+01       89.7331      -7.125500E+02  -8.581661E+03   3.934555E+03          \r\n       10       -1.004842E+04   7.921074E+02  -4.612604E+01      -89.7562       7.923037E+02  -1.004861E+04   5.420458E+03          \r\n       11       -8.108113E+03  -8.204238E+02  -3.582324E+01      -89.7184      -8.202478E+02  -8.108289E+03   3.644021E+03          \r\n       12       -1.031701E+04   5.595293E+02   2.430756E+02       88.7204       5.649590E+02  -1.032244E+04   5.443701E+03          \r\n       13       -7.254320E+03  -5.870020E+02  -7.221426E+02      -83.8887      -5.096826E+02  -7.331640E+03   3.410979E+03          \r\n       14       -6.327083E+03  -2.779707E+02   3.925586E+02       86.3024      -2.526021E+02  -6.352452E+03   3.049925E+03          \r\n       15       -1.088967E+04   5.205527E+02   5.485294E+02       87.2540       5.468618E+02  -1.091598E+04   5.731423E+03          \r\n       16       -1.097359E+04   4.925879E+02  -4.646112E+02      -87.6834       5.113833E+02  -1.099238E+04   5.751884E+03          \r\n       17       -4.857922E+03  -5.490840E+02  -8.039757E+02      -79.7678      -4.039600E+02  -5.003046E+03   2.299543E+03          \r\n       18       -1.587359E+03   5.409824E+02   2.106249E+03       58.4025       1.836630E+03  -2.883007E+03   2.359819E+03          \r\n       19       -9.671316E+03   2.026412E+03  -4.564987E+02      -87.7686       2.044200E+03  -9.689104E+03   5.866652E+03          \r\n       20        7.136788E+03   3.881496E+03  -8.351371E+03      -39.4858       1.401765E+04  -2.999362E+03   8.508504E+03          \r\n       21       -5.988776E+03   2.121762E+03   8.298451E+03       58.0219       7.302807E+03  -1.116982E+04   9.236314E+03          \r\n       22        3.035229E+03   1.727261E+04  -7.312999E+03      -67.1143       2.035959E+04  -5.175098E+01   1.020567E+04          \r\n       23        4.421176E+03   2.054773E+04  -3.291846E+03      -78.8961       2.119379E+04   3.775108E+03   8.709343E+03          \r\n       24        3.795857E+03   2.018506E+04   3.637005E+03       78.0335       2.095591E+04   3.025009E+03   8.965452E+03          \r\n       25        3.618729E+04   1.097283E+04   2.186896E+03        4.9204       3.637556E+04   1.078456E+04   1.279550E+04          \r\n       26        7.477283E+03   1.852639E+04   2.269239E+03       78.8347       1.897428E+04   7.029388E+03   5.972447E+03          \r\n       42        1.803810E+03   1.535875E+04  -5.568623E+03      -70.2961       1.735303E+04  -1.904746E+02   8.771752E+03          \r\n       43       -3.013907E+03   1.258160E+04  -5.776127E+03      -71.7355       1.448790E+04  -4.920205E+03   9.704051E+03          \r\n       50        6.172108E+03   1.702362E+04   6.964932E+02       86.3425       1.706814E+04   6.127586E+03   5.470275E+03          \r\n       77        4.764149E+03   1.665401E+04   7.114692E+02       86.5878       1.669644E+04   4.721727E+03   5.987354E+03          \r\n      107        3.772608E+03   1.601988E+04   6.038379E+02       87.1842       1.604958E+04   3.742909E+03   6.153337E+03          \r\n      137        2.563101E+03   1.560391E+04   6.056743E+02       87.3465       1.563198E+04   2.535032E+03   6.548475E+03          \r\n      167        2.742369E+03   1.491381E+04   4.254160E+02       88.0006       1.492867E+04   2.727518E+03   6.100574E+03          \r\n      195        1.891801E+03   1.459894E+04   4.251567E+02       88.0859       1.461315E+04   1.877591E+03   6.367780E+03          \r\n      222        1.913999E+03   1.379861E+04   4.869871E+02       87.6575       1.381854E+04   1.894077E+03   5.962229E+03          \r\n      249        9.416351E+02   1.342492E+04   4.853828E+02       87.7767       1.344376E+04   9.227905E+02   6.260485E+03          \r\n      272        7.936323E+02   1.231755E+04   3.777712E+02       88.1245       1.232992E+04   7.812622E+02   5.774331E+03          \r\n      293        3.881366E+01   1.204531E+04   3.770493E+02       88.2031       1.205714E+04   2.698438E+01   6.015080E+03          \r\n      341        2.063397E+03   9.929419E+03   1.012776E+02       89.2625       9.930723E+03   2.062094E+03   3.934314E+03          \r\n      347        1.198596E+02   1.013192E+04   1.294089E+02       89.2596       1.013359E+04   1.181870E+02   5.007700E+03          \r\n      348        2.117395E+01   1.011800E+04  -1.074817E+02      -89.3902       1.011914E+04   2.002979E+01   5.049555E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    21, EPSILON SUB E =  -1.8153488E-14\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 21                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.501053E+04   1.430594E+03  -4.304283E+03      -76.1817       2.489282E+03  -1.606922E+04   9.279252E+03          \r\n        2        1.183449E+03   6.154777E+03  -1.188968E+04      -50.9041       1.581585E+04  -8.477619E+03   1.214673E+04          \r\n        3        5.951786E+03   2.228539E+04   6.083159E+03       71.6594       2.430198E+04   3.935196E+03   1.018339E+04          \r\n        4        7.373085E+03   2.457818E+04   2.195270E+03       82.8422       2.485387E+04   7.097399E+03   8.878235E+03          \r\n        5        9.461880E+03   2.149231E+04   1.766233E+03       81.8182       2.174625E+04   9.207933E+03   6.269161E+03          \r\n        6        5.864430E+03   2.067190E+04   1.831221E+03       83.0537       2.089500E+04   5.641327E+03   7.626838E+03          \r\n        7       -9.106430E+03  -3.602188E+02   4.053569E+02       87.3521      -3.414722E+02  -9.125176E+03   4.391852E+03          \r\n        8       -1.093235E+04   5.321719E+02  -1.719550E+02      -89.1409       5.347505E+02  -1.093493E+04   5.734840E+03          \r\n        9       -9.080124E+03  -7.531562E+02   3.021719E+01       89.7921      -7.530464E+02  -9.080234E+03   4.163594E+03          \r\n       10       -1.067179E+04   8.303164E+02  -2.816376E+01      -89.8597       8.303853E+02  -1.067186E+04   5.751123E+03          \r\n       11       -8.616672E+03  -8.781406E+02  -5.850909E+01      -89.5668      -8.776985E+02  -8.617114E+03   3.869708E+03          \r\n       12       -1.106172E+04   5.967148E+02   3.010773E+02       88.5217       6.044849E+02  -1.106949E+04   5.836990E+03          \r\n       13       -7.755888E+03  -6.323320E+02  -8.203021E+02      -83.5153      -5.390920E+02  -7.849129E+03   3.655018E+03          \r\n       14       -6.802417E+03  -3.145625E+02   3.764551E+02       86.6902      -2.927920E+02  -6.824188E+03   3.265698E+03          \r\n       15       -1.180665E+04   6.072891E+02   6.512791E+02       87.0050       6.413638E+02  -1.184073E+04   6.241046E+03          \r\n       16       -1.197097E+04   5.309492E+02  -4.869630E+02      -87.7728       5.498882E+02  -1.198991E+04   6.269897E+03          \r\n       17       -5.323326E+03  -5.375430E+02  -9.207866E+02      -79.4766      -3.664966E+02  -5.494372E+03   2.563938E+03          \r\n       18       -1.857354E+03   6.176484E+02   2.354589E+03       58.8625       2.040128E+03  -3.279834E+03   2.659981E+03          \r\n       19       -1.053716E+04   2.153773E+03  -5.670553E+02      -87.4467       2.179060E+03  -1.056245E+04   6.370755E+03          \r\n       20        7.671609E+03   3.879285E+03  -8.808986E+03      -38.9261       1.478620E+04  -3.235306E+03   9.010753E+03          \r\n       21       -6.358609E+03   1.881305E+03   8.665022E+03       57.7148       7.355964E+03  -1.183327E+04   9.594616E+03          \r\n       22        2.942834E+03   1.765582E+04  -7.712006E+03      -66.8242       2.095733E+04  -3.586758E+02   1.065800E+04          \r\n       23        4.530945E+03   2.118368E+04  -3.575831E+03      -78.3792       2.191904E+04   3.795582E+03   9.061731E+03          \r\n       24        3.667264E+03   2.063855E+04   4.035937E+03       77.2817       2.154944E+04   2.756369E+03   9.396536E+03          \r\n       25        3.958526E+04   1.178668E+04   2.442001E+03        4.9824       3.979815E+04   1.157379E+04   1.411218E+04          \r\n       26        7.657571E+03   1.891741E+04   2.388986E+03       78.5033       1.940331E+04   7.171672E+03   6.115818E+03          \r\n       42        1.807621E+03   1.579432E+04  -5.842253E+03      -70.0623       1.791354E+04  -3.115957E+02   9.112567E+03          \r\n       43       -3.262620E+03   1.282338E+04  -6.094840E+03      -71.4229       1.487181E+04  -5.311049E+03   1.009143E+04          \r\n       50        6.111766E+03   1.758129E+04   6.493306E+02       86.7700       1.761793E+04   6.075122E+03   5.771404E+03          \r\n       77        4.798992E+03   1.722133E+04   6.634492E+02       86.9515       1.725666E+04   4.763659E+03   6.246501E+03          \r\n      107        3.610209E+03   1.662413E+04   7.403701E+02       86.7544       1.666611E+04   3.568224E+03   6.548944E+03          \r\n      137        2.127479E+03   1.608894E+04   7.423652E+02       86.9649       1.612830E+04   2.088116E+03   7.020092E+03          \r\n      167        2.242066E+03   1.536230E+04   4.241768E+02       88.1502       1.537600E+04   2.228367E+03   6.573814E+03          \r\n      195        1.394300E+03   1.502231E+04   4.235972E+02       88.2214       1.503547E+04   1.381145E+03   6.827161E+03          \r\n      222        1.893347E+03   1.436915E+04   5.808159E+02       87.3402       1.439613E+04   1.866365E+03   6.264881E+03          \r\n      249        7.340257E+02   1.390408E+04   5.785110E+02       87.4897       1.392945E+04   7.086626E+02   6.610391E+03          \r\n      272        8.186877E+02   1.297997E+04   3.979585E+02       88.1278       1.299297E+04   8.056787E+02   6.093648E+03          \r\n      293        2.444662E+01   1.266391E+04   3.962837E+02       88.2060       1.267633E+04   1.203369E+01   6.332146E+03          \r\n      341        2.229595E+03   1.042646E+04   1.067485E+02       89.2540       1.042785E+04   2.228205E+03   4.099824E+03          \r\n      347        1.338098E+02   1.064256E+04   1.434023E+02       89.2183       1.064451E+04   1.318530E+02   5.256330E+03          \r\n      348        2.250562E+01   1.063166E+04  -1.202583E+02      -89.3506       1.063303E+04   2.114258E+01   5.305941E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    22, EPSILON SUB E =  -3.5187739E-15\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 22                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.593667E+04   8.921758E+02  -4.798680E+03      -75.1521       2.164333E+03  -1.720883E+04   9.686581E+03          \r\n        2        1.150373E+03   6.597457E+03  -1.228835E+04      -51.2484       1.646046E+04  -8.712632E+03   1.258655E+04          \r\n        3        6.044083E+03   2.303238E+04   6.366415E+03       71.5741       2.515339E+04   3.923062E+03   1.061517E+04          \r\n        4        7.619409E+03   2.547958E+04   2.250440E+03       82.9278       2.575878E+04   7.340212E+03   9.209284E+03          \r\n        5        9.767227E+03   2.197036E+04   2.119388E+03       80.4226       2.232796E+04   9.409620E+03   6.459173E+03          \r\n        6        5.438753E+03   2.095828E+04   2.209097E+03       82.0545       2.126660E+04   5.130429E+03   8.068086E+03          \r\n        7       -9.664840E+03  -3.850977E+02   4.242447E+02       87.3879      -3.657427E+02  -9.684195E+03   4.659226E+03          \r\n        8       -1.159467E+04   5.587188E+02  -1.736270E+02      -89.1817       5.611992E+02  -1.159715E+04   6.079173E+03          \r\n        9       -9.648681E+03  -8.000508E+02   2.345288E+01       89.8481      -7.999888E+02  -9.648742E+03   4.424377E+03          \r\n       10       -1.135972E+04   8.821367E+02  -1.441071E+01      -89.9326       8.821538E+02  -1.135973E+04   6.120944E+03          \r\n       11       -9.212283E+03  -9.398711E+02  -6.871301E+01      -89.5241      -9.393003E+02  -9.212854E+03   4.136777E+03          \r\n       12       -1.182167E+04   6.442578E+02   3.389370E+02       88.4437       6.534668E+02  -1.183088E+04   6.242174E+03          \r\n       13       -8.381709E+03  -6.701875E+02  -8.900254E+02      -83.5010      -5.687983E+02  -8.483098E+03   3.957150E+03          \r\n       14       -7.452146E+03  -3.603945E+02   3.986438E+02       86.7927      -3.380562E+02  -7.474485E+03   3.568214E+03          \r\n       15       -1.265199E+04   6.849219E+02   7.252930E+02       86.8963       7.242490E+02  -1.269132E+04   6.707785E+03          \r\n       16       -1.289838E+04   5.192617E+02  -4.788988E+02      -87.9585       5.363325E+02  -1.291546E+04   6.725894E+03          \r\n       17       -5.975071E+03  -5.208086E+02  -1.111297E+03      -78.9146      -3.030757E+02  -6.192804E+03   2.944864E+03          \r\n       18       -2.185284E+03   7.423047E+02   2.684749E+03       59.3002       2.336381E+03  -3.779360E+03   3.057871E+03          \r\n       19       -1.132493E+04   2.213168E+03  -7.003820E+02      -87.0464       2.249305E+03  -1.136107E+04   6.805186E+03          \r\n       20        8.269609E+03   3.985598E+03  -9.298037E+03      -38.5135       1.566918E+04  -3.413974E+03   9.541577E+03          \r\n       21       -6.820121E+03   1.698652E+03   9.035254E+03       57.6200       7.428169E+03  -1.254964E+04   9.988903E+03          \r\n       22        2.910557E+03   1.815165E+04  -8.137268E+03      -66.5609       2.167955E+04  -6.173428E+02   1.114845E+04          \r\n       23        4.690082E+03   2.194148E+04  -3.834437E+03      -78.0166       2.275536E+04   3.876206E+03   9.439577E+03          \r\n       24        3.475212E+03   2.116679E+04   4.410085E+03       76.7507       2.220517E+04   2.436831E+03   9.884169E+03          \r\n       25        4.343108E+04   1.272908E+04   2.744918E+03        5.0690       4.367456E+04   1.248559E+04   1.559448E+04          \r\n       26        7.903114E+03   1.932342E+04   2.553261E+03       77.9542       1.986827E+04   7.358271E+03   6.254999E+03          \r\n       42        1.728257E+03   1.619997E+04  -6.202465E+03      -69.6987       1.849450E+04  -5.662686E+02   9.530384E+03          \r\n       43       -3.521721E+03   1.316800E+04  -6.403745E+03      -71.2489       1.534191E+04  -5.695637E+03   1.051877E+04          \r\n       50        6.025346E+03   1.816912E+04   6.002134E+02       87.1773       1.819871E+04   5.995752E+03   6.101480E+03          \r\n       77        4.812314E+03   1.781741E+04   6.128286E+02       87.3081       1.784622E+04   4.783500E+03   6.531360E+03          \r\n      107        3.367669E+03   1.720904E+04   9.309292E+02       86.1694       1.727137E+04   3.305338E+03   6.983018E+03          \r\n      137        1.504025E+03   1.649609E+04   9.327192E+02       86.4536       1.655390E+04   1.446220E+03   7.553838E+03          \r\n      167        1.516679E+03   1.568528E+04   4.314570E+02       88.2574       1.569840E+04   1.503552E+03   7.097426E+03          \r\n      195        6.548473E+02   1.530652E+04   4.303857E+02       88.3189       1.531915E+04   6.422163E+02   7.338469E+03          \r\n      222        1.815103E+03   1.486847E+04   7.146328E+02       86.8757       1.490748E+04   1.776096E+03   6.565691E+03          \r\n      249        3.892258E+02   1.427339E+04   7.112495E+02       87.0751       1.430973E+04   3.528853E+02   6.978422E+03          \r\n      272        8.400362E+02   1.351294E+04   4.245793E+02       88.0833       1.352715E+04   8.258271E+02   6.350663E+03          \r\n      293       -6.872009E+00   1.315615E+04   4.223313E+02       88.1642       1.316969E+04  -2.040869E+01   6.595048E+03          \r\n      341        2.352946E+03   1.092352E+04   1.113401E+02       89.2558       1.092496E+04   2.351499E+03   4.286732E+03          \r\n      347        1.439670E+02   1.114983E+04   1.535202E+02       89.2010       1.115197E+04   1.418257E+02   5.505071E+03          \r\n      348        2.301392E+01   1.114165E+04  -1.295790E+02      -89.3324       1.114316E+04   2.150391E+01   5.560828E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    23, EPSILON SUB E =  -1.9014023E-14\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 23                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.672293E+04   6.805312E+02  -5.221559E+03      -74.5169       2.126942E+03  -1.816934E+04   1.014814E+04          \r\n        2        1.265430E+03   6.864664E+03  -1.276678E+04      -51.1843       1.713519E+04  -9.005097E+03   1.307014E+04          \r\n        3        6.274346E+03   2.390810E+04   6.650889E+03       71.4857       2.613530E+04   4.047145E+03   1.104408E+04          \r\n        4        7.966530E+03   2.647658E+04   2.333142E+03       82.9254       2.676614E+04   7.676975E+03   9.544582E+03          \r\n        5        1.024946E+04   2.246798E+04   2.514619E+03       78.8138       2.296526E+04   9.752182E+03   6.606542E+03          \r\n        6        5.091620E+03   2.124559E+04   2.643230E+03       80.9395       2.166710E+04   4.670113E+03   8.498493E+03          \r\n        7       -1.032218E+04  -3.986250E+02   4.419767E+02       87.4549      -3.789790E+02  -1.034182E+04   4.981422E+03          \r\n        8       -1.217101E+04   5.709375E+02  -1.723104E+02      -89.2254       5.732671E+02  -1.217334E+04   6.373303E+03          \r\n        9       -1.031634E+04  -8.303828E+02   1.775769E+01       89.8927      -8.303496E+02  -1.031638E+04   4.743013E+03          \r\n       10       -1.195897E+04   9.216797E+02  -4.200317E+00      -89.9813       9.216807E+02  -1.195897E+04   6.440327E+03          \r\n       11       -9.929940E+03  -9.803281E+02  -6.776990E+01      -89.5662      -9.798149E+02  -9.930453E+03   4.475319E+03          \r\n       12       -1.245615E+04   6.689531E+02   3.658336E+02       88.4047       6.791421E+02  -1.246634E+04   6.572743E+03          \r\n       13       -9.168393E+03  -6.951523E+02  -9.602542E+02      -83.6147      -5.876919E+02  -9.275854E+03   4.344081E+03          \r\n       14       -8.278879E+03  -3.987148E+02   4.356392E+02       86.8453      -3.747046E+02  -8.302889E+03   3.964092E+03          \r\n       15       -1.334661E+04   7.642617E+02   7.907920E+02       86.8024       8.084404E+02  -1.339078E+04   7.099612E+03          \r\n       16       -1.372189E+04   4.420352E+02  -4.155071E+02      -88.3211       4.542139E+02  -1.373407E+04   7.094140E+03          \r\n       17       -6.754174E+03  -4.483828E+02  -1.459409E+03      -77.5808      -1.269978E+02  -7.075559E+03   3.474281E+03          \r\n       18       -2.670852E+03   9.125625E+02   3.155837E+03       59.7927       2.749839E+03  -4.508128E+03   3.628983E+03          \r\n       19       -1.202545E+04   2.139430E+03  -8.796759E+02      -86.4599       2.193851E+03  -1.207987E+04   7.136861E+03          \r\n       20        8.987536E+03   4.235551E+03  -9.804192E+03      -38.1887       1.669953E+04  -3.476446E+03   1.008799E+04          \r\n       21       -7.428773E+03   1.573422E+03   9.374271E+03       57.8241       7.471211E+03  -1.332656E+04   1.039889E+04          \r\n       22        2.956906E+03   1.876572E+04  -8.559067E+03      -66.3614       2.251195E+04  -7.893223E+02   1.165063E+04          \r\n       23        4.895615E+03   2.279797E+04  -4.055840E+03      -77.8122       2.367397E+04   4.019615E+03   9.827177E+03          \r\n       24        3.189374E+03   2.174636E+04   4.741655E+03       76.4656       2.288774E+04   2.047994E+03   1.041987E+04          \r\n       25        4.754240E+04   1.375165E+04   3.084079E+03        5.1724       4.782158E+04   1.347247E+04   1.717455E+04          \r\n       26        8.199894E+03   1.971841E+04   2.763783E+03       77.1822       2.034723E+04   7.571072E+03   6.388080E+03          \r\n       42        1.566806E+03   1.658382E+04  -6.617384E+03      -69.3048       1.908368E+04  -9.330557E+02   1.000837E+04          \r\n       43       -3.805705E+03   1.360880E+04  -6.684592E+03      -71.2432       1.587880E+04  -6.075702E+03   1.097725E+04          \r\n       50        5.921225E+03   1.876376E+04   5.540801E+02       87.5341       1.878762E+04   5.897364E+03   6.445126E+03          \r\n       77        4.802328E+03   1.842093E+04   5.648252E+02       87.6291       1.844432E+04   4.778942E+03   6.832688E+03          \r\n      107        3.072332E+03   1.775932E+04   1.153742E+03       85.5356       1.784940E+04   2.982252E+03   7.433574E+03          \r\n      137        7.639473E+02   1.681918E+04   1.154653E+03       85.9075       1.690179E+04   6.813325E+02   8.110231E+03          \r\n      167        6.339521E+02   1.588534E+04   4.493047E+02       88.3140       1.589857E+04   6.207271E+02   7.638921E+03          \r\n      195       -2.628934E+02   1.545353E+04   4.475479E+02       88.3702       1.546627E+04  -2.756279E+02   7.870948E+03          \r\n      222        1.693927E+03   1.531059E+04   8.785498E+02       86.3236       1.536704E+04   1.637478E+03   6.864782E+03          \r\n      249       -5.803003E+01   1.455042E+04   8.734180E+02       86.5906       1.460245E+04  -1.100654E+02   7.356258E+03          \r\n      272        8.651749E+02   1.398230E+04   4.568613E+02       88.0076       1.399820E+04   8.492817E+02   6.574457E+03          \r\n      293       -4.607959E+01   1.358845E+04   4.543970E+02       88.0933       1.360357E+04  -6.120703E+01   6.832391E+03          \r\n      341        2.428966E+03   1.141984E+04   1.153526E+02       89.2651       1.142132E+04   2.427486E+03   4.496919E+03          \r\n      347        1.531877E+02   1.164779E+04   1.622573E+02       89.1914       1.165008E+04   1.508975E+02   5.749590E+03          \r\n      348        4.148682E+00   1.165235E+04  -1.381518E+02      -89.3206       1.165399E+04   2.510254E+00   5.825741E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    24, EPSILON SUB E =  -1.8031199E-14\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 24                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.748610E+04   5.556719E+02  -5.617982E+03      -74.0432       2.162020E+03  -1.909245E+04   1.062723E+04          \r\n        2        1.416850E+03   7.111266E+03  -1.328495E+04      -51.0483       1.785069E+04  -9.322570E+03   1.358663E+04          \r\n        3        6.584275E+03   2.485825E+04   6.958923E+03       71.3532       2.720652E+04   4.236005E+03   1.148526E+04          \r\n        4        8.377617E+03   2.754522E+04   2.437410E+03       82.8654       2.785031E+04   8.072526E+03   9.888892E+03          \r\n        5        1.081318E+04   2.297599E+04   2.914795E+03       77.1959       2.363843E+04   1.015074E+04   6.743848E+03          \r\n        6        4.801824E+03   2.153360E+04   3.096576E+03       79.8442       2.208829E+04   4.247125E+03   8.920585E+03          \r\n        7       -1.111143E+04  -3.991875E+02   4.586951E+02       87.5526      -3.795820E+02  -1.113104E+04   5.375727E+03          \r\n        8       -1.266227E+04   5.675469E+02  -1.683464E+02      -89.2711       5.696890E+02  -1.266441E+04   6.617050E+03          \r\n        9       -1.111907E+04  -8.415781E+02   1.459460E+01       89.9186      -8.415571E+02  -1.111910E+04   5.138769E+03          \r\n       10       -1.247063E+04   9.413125E+02   5.902527E+00       89.9748       9.413149E+02  -1.247063E+04   6.705975E+03          \r\n       11       -1.080316E+04  -9.996953E+02  -6.474670E+01      -89.6216      -9.992676E+02  -1.080358E+04   4.902158E+03          \r\n       12       -1.299903E+04   6.709922E+02   3.929922E+02       88.3546       6.822808E+02  -1.301032E+04   6.846298E+03          \r\n       13       -1.013696E+04  -7.110703E+02  -1.048676E+03      -83.7277      -5.958096E+02  -1.025222E+04   4.828205E+03          \r\n       14       -9.286404E+03  -4.276328E+02   4.782502E+02       86.9188      -4.018887E+02  -9.312148E+03   4.455130E+03          \r\n       15       -1.396245E+04   8.546016E+02   8.607495E+02       86.6864       9.044365E+02  -1.401228E+04   7.458360E+03          \r\n       16       -1.451400E+04   3.153672E+02  -3.092003E+02      -88.8060       3.218110E+02  -1.452044E+04   7.421127E+03          \r\n       17       -7.654683E+03  -3.342031E+02  -1.979500E+03      -75.7975       1.667803E+02  -8.155666E+03   4.161223E+03          \r\n       18       -3.295990E+03   1.118523E+03   3.785768E+03       60.1220       3.293505E+03  -5.470972E+03   4.382239E+03          \r\n       19       -1.270773E+04   1.953422E+03  -1.093502E+03      -85.7579       2.034532E+03  -1.278884E+04   7.411686E+03          \r\n       20        9.846307E+03   4.579820E+03  -1.032219E+04      -37.8444       1.786583E+04  -3.439707E+03   1.065277E+04          \r\n       21       -8.119051E+03   1.490648E+03   9.693684E+03       58.1831       7.504952E+03  -1.413335E+04   1.081915E+04          \r\n       22        3.059750E+03   1.943630E+04  -8.999731E+03      -66.1485       2.341532E+04  -9.192686E+02   1.216729E+04          \r\n       23        5.138859E+03   2.371496E+04  -4.269044E+03      -77.6576       2.464907E+04   4.204747E+03   1.022216E+04          \r\n       24        2.871012E+03   2.235923E+04   5.062980E+03       76.2719       2.359608E+04   1.634163E+03   1.098096E+04          \r\n       25        5.181893E+04   1.482690E+04   3.457683E+03        5.2944       5.213934E+04   1.450648E+04   1.881643E+04          \r\n       26        8.530810E+03   2.009549E+04   3.012394E+03       76.2410       2.083312E+04   7.793183E+03   6.519967E+03          \r\n       42        1.368371E+03   1.696801E+04  -7.065489E+03      -68.9140       1.969237E+04  -1.355987E+03   1.052418E+04          \r\n       43       -4.124621E+03   1.410096E+04  -6.949261E+03      -71.3357       1.644833E+04  -6.471986E+03   1.146016E+04          \r\n       50        5.819197E+03   1.935879E+04   5.195791E+02       87.8056       1.937870E+04   5.799288E+03   6.789707E+03          \r\n       77        4.771296E+03   1.902094E+04   5.283271E+02       87.8796       1.904050E+04   4.751735E+03   7.144384E+03          \r\n      107        2.753933E+03   1.827346E+04   1.391141E+03       84.9181       1.839717E+04   2.630220E+03   7.883475E+03          \r\n      137       -2.740796E+01   1.707085E+04   1.390223E+03       85.3818       1.718315E+04  -1.397070E+02   8.661428E+03          \r\n      167       -3.554539E+02   1.596765E+04   4.803184E+02       88.3160       1.598177E+04  -3.695757E+02   8.175674E+03          \r\n      195       -1.313383E+03   1.546620E+04   4.776211E+02       88.3709       1.547979E+04  -1.326967E+03   8.403376E+03          \r\n      222        1.531549E+03   1.570148E+04   1.064693E+03       85.7269       1.578103E+04   1.451998E+03   7.164518E+03          \r\n      249       -5.897609E+02   1.474165E+04   1.056628E+03       86.0760       1.481413E+04  -6.622397E+02   7.738185E+03          \r\n      272        8.948616E+02   1.441988E+04   4.913975E+02       87.9220       1.443771E+04   8.770312E+02   6.780339E+03          \r\n      293       -8.529987E+01   1.398679E+04   4.887690E+02       88.0131       1.400374E+04  -1.022559E+02   7.052999E+03          \r\n      341        2.448001E+03   1.191496E+04   1.190523E+02       89.2796       1.191646E+04   2.446504E+03   4.734979E+03          \r\n      347        1.657773E+02   1.212313E+04   1.643959E+02       89.2125       1.212539E+04   1.635176E+02   5.980937E+03          \r\n      348       -4.127686E+01   1.216101E+04  -1.523051E+02      -89.2850       1.216291E+04  -4.317676E+01   6.103045E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    25, EPSILON SUB E =   2.1353777E-14\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 25                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.826500E+04   4.192031E+02  -6.007087E+03      -73.6292       2.183854E+03  -2.002965E+04   1.110675E+04          \r\n        2        1.564867E+03   7.396398E+03  -1.382274E+04      -50.9557       1.860755E+04  -9.646288E+03   1.412692E+04          \r\n        3        6.923719E+03   2.586449E+04   7.277896E+03       71.2290       2.833797E+04   4.450236E+03   1.194387E+04          \r\n        4        8.813396E+03   2.867339E+04   2.541154E+03       82.8228       2.899338E+04   8.493402E+03   1.024999E+04          \r\n        5        1.138390E+04   2.348703E+04   3.306713E+03       75.6734       2.433153E+04   1.053940E+04   6.896067E+03          \r\n        6        4.525465E+03   2.181315E+04   3.551744E+03       78.8312       2.251441E+04   3.824207E+03   9.345102E+03          \r\n        7       -1.204743E+04  -3.897500E+02   4.751836E+02       87.6697      -3.704126E+02  -1.206677E+04   5.848176E+03          \r\n        8       -1.310843E+04   5.529453E+02  -1.631902E+02      -89.3157       5.548945E+02  -1.311038E+04   6.832639E+03          \r\n        9       -1.207363E+04  -8.386719E+02   1.355847E+01       89.9309      -8.386558E+02  -1.207364E+04   5.617495E+03          \r\n       10       -1.293351E+04   9.457578E+02   1.539758E+01       89.9364       9.457749E+02  -1.293353E+04   6.939650E+03          \r\n       11       -1.183667E+04  -1.006031E+03  -6.161511E+01      -89.6741      -1.005681E+03  -1.183702E+04   5.415668E+03          \r\n       12       -1.349507E+04   6.587812E+02   4.229277E+02       88.2900       6.714077E+02  -1.350770E+04   7.089552E+03          \r\n       13       -1.128531E+04  -7.240156E+02  -1.159817E+03      -83.8063      -5.981470E+02  -1.141118E+04   5.406515E+03          \r\n       14       -1.046907E+04  -4.520156E+02   5.330229E+02       86.9626      -4.237324E+02  -1.049735E+04   5.036809E+03          \r\n       15       -1.454479E+04   9.638672E+02   9.402202E+02       86.5433       1.020661E+03  -1.460159E+04   7.811124E+03          \r\n       16       -1.527246E+04   1.889453E+02  -2.125598E+02      -89.2125       1.918667E+02  -1.527539E+04   7.733626E+03          \r\n       17       -8.800016E+03  -2.550312E+02  -2.595860E+03      -74.3591       4.717441E+02  -9.526791E+03   4.999268E+03          \r\n       18       -4.042770E+03   1.330523E+03   4.511158E+03       60.3881       3.894459E+03  -6.606706E+03   5.250583E+03          \r\n       19       -1.335716E+04   1.718641E+03  -1.288011E+03      -85.1517       1.827891E+03  -1.346641E+04   7.647151E+03          \r\n       20        1.083717E+04   4.970102E+03  -1.084341E+04      -37.4309       1.913686E+04  -3.329583E+03   1.123322E+04          \r\n       21       -8.844910E+03   1.426195E+03   1.000551E+04       58.5851       7.537159E+03  -1.495587E+04   1.124652E+04          \r\n       22        3.197598E+03   2.015575E+04  -9.445620E+03      -65.9567       2.436976E+04  -1.016414E+03   1.269309E+04          \r\n       23        5.410400E+03   2.467563E+04  -4.475880E+03      -77.5388       2.566473E+04   4.421303E+03   1.062171E+04          \r\n       24        2.546684E+03   2.299562E+04   5.384626E+03       76.1134       2.432685E+04   1.215463E+03   1.155569E+04          \r\n       25        5.616836E+04   1.592575E+04   3.854069E+03        5.4216       5.653415E+04   1.555996E+04   2.048709E+04          \r\n       26        8.865934E+03   2.045060E+04   3.286705E+03       75.2142       2.131811E+04   7.998420E+03   6.659844E+03          \r\n       42        1.161713E+03   1.739073E+04  -7.508410E+03      -68.6108       2.033160E+04  -1.779161E+03   1.105538E+04          \r\n       43       -4.477994E+03   1.462050E+04  -7.203489E+03      -71.4854       1.703279E+04  -6.890285E+03   1.196154E+04          \r\n       50        5.717616E+03   1.994835E+04   4.989023E+02       87.9946       1.996582E+04   5.700146E+03   7.132838E+03          \r\n       77        4.712893E+03   1.961027E+04   5.058242E+02       88.0576       1.962743E+04   4.695738E+03   7.465845E+03          \r\n      107        2.434782E+03   1.875592E+04   1.629387E+03       84.3542       1.891700E+04   2.273705E+03   8.321646E+03          \r\n      137       -8.201016E+02   1.727220E+04   1.625526E+03       84.9065       1.741709E+04  -9.649893E+02   9.191038E+03          \r\n      167       -1.411852E+03   1.594408E+04   5.293496E+02       88.2547       1.596021E+04  -1.427981E+03   8.694096E+03          \r\n      195       -2.466419E+03   1.534790E+04   5.252305E+02       88.3127       1.536337E+04  -2.481891E+03   8.922630E+03          \r\n      222        1.318128E+03   1.604096E+04   1.268518E+03       85.1114       1.614946E+04   1.209631E+03   7.469912E+03          \r\n      249       -1.206263E+03   1.484862E+04   1.255888E+03       85.5541       1.494627E+04  -1.303910E+03   8.125090E+03          \r\n      272        9.235496E+02   1.483848E+04   5.252505E+02       87.8413       1.485828E+04   9.037515E+02   6.977265E+03          \r\n      293       -1.242105E+02   1.436635E+04   5.225151E+02       87.9375       1.438516E+04  -1.430278E+02   7.264096E+03          \r\n      341        2.398142E+03   1.241254E+04   1.226330E+02       89.2985       1.241404E+04   2.396641E+03   5.008701E+03          \r\n      347        1.838286E+02   1.259587E+04   1.593670E+02       89.2645       1.259792E+04   1.817822E+02   6.208067E+03          \r\n      348       -1.040923E+02   1.266196E+04  -1.746213E+02      -89.2165       1.266435E+04  -1.064800E+02   6.385415E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER    26, EPSILON SUB E =  -2.7624929E-14\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 26                                 \r\n \r\n                      S T R E S S E S   I N   T R I A N G U L A R   M E M B R A N E S      ( C T R M E M )\r\n  ELEMENT           STRESSES IN ELEMENT COORD SYSTEM            PRINCIPAL           PRINCIPAL STRESSES            MAX\r\n    ID.           NORMAL-X       NORMAL-Y       SHEAR-XY      STRESS ANGLE         MAJOR          MINOR          SHEAR\r\n        1       -1.905495E+04   2.874922E+02  -6.391353E+03      -73.2704       2.208592E+03  -2.097605E+04   1.159232E+04          \r\n        2        1.715633E+03   7.700266E+03  -1.437920E+04      -50.8777       1.939520E+04  -9.979298E+03   1.468725E+04          \r\n        3        7.301122E+03   2.693710E+04   7.586008E+03       71.1540       2.952638E+04   4.711839E+03   1.240727E+04          \r\n        4        9.282664E+03   2.985047E+04   2.633811E+03       82.8174       3.018238E+04   8.950748E+03   1.061582E+04          \r\n        5        1.193545E+04   2.401091E+04   3.680496E+03       74.3171       2.504426E+04   1.090210E+04   7.071082E+03          \r\n        6        4.261963E+03   2.209298E+04   3.992996E+03       77.9369       2.294632E+04   3.408628E+03   9.768845E+03          \r\n        7       -1.286042E+04  -3.910312E+02   4.766358E+02       87.8141      -3.728389E+02  -1.287861E+04   6.252885E+03          \r\n        8       -1.354160E+04   5.481953E+02  -1.571636E+02      -89.3610       5.499478E+02  -1.354335E+04   7.046651E+03          \r\n        9       -1.296903E+04  -8.392109E+02   1.417383E+01       89.9330      -8.391943E+02  -1.296904E+04   6.064925E+03          \r\n       10       -1.338009E+04   9.489688E+02   2.401782E+01       89.9040       9.490088E+02  -1.338013E+04   7.164571E+03          \r\n       11       -1.290762E+04  -1.006938E+03  -5.812427E+01      -89.7202      -1.006653E+03  -1.290791E+04   5.950627E+03          \r\n       12       -1.397562E+04   6.336719E+02   4.552629E+02       88.2168       6.478452E+02  -1.398979E+04   7.318820E+03          \r\n       13       -1.248789E+04  -7.712578E+02  -1.285191E+03      -83.8133      -6.319429E+02  -1.262721E+04   5.997633E+03          \r\n       14       -1.173874E+04  -4.597031E+02   6.100000E+02       86.9133      -4.268086E+02  -1.177164E+04   5.672414E+03          \r\n       15       -1.510608E+04   1.099031E+03   1.052597E+03       86.2991       1.167116E+03  -1.517416E+04   8.170640E+03          \r\n       16       -1.597331E+04   1.389844E+02  -1.853857E+02      -89.3409       1.411172E+02  -1.597545E+04   8.058281E+03          \r\n       17       -1.035663E+04  -2.861094E+02  -3.195858E+03      -73.7984       6.424673E+02  -1.128521E+04   5.963838E+03          \r\n       18       -4.921805E+03   1.525281E+03   5.234525E+03       60.8129       4.449216E+03  -7.845739E+03   6.147478E+03          \r\n       19       -1.393463E+04   1.510555E+03  -1.424491E+03      -84.7744       1.640835E+03  -1.406491E+04   7.852874E+03          \r\n       20        1.189110E+04   5.404516E+03  -1.136987E+04      -37.0395       2.047121E+04  -3.175590E+03   1.182340E+04          \r\n       21       -9.581156E+03   1.357945E+03   1.031550E+04       58.9669       7.564248E+03  -1.578746E+04   1.167585E+04          \r\n       22        3.368283E+03   2.093782E+04  -9.881724E+03      -65.8184       2.537503E+04  -1.068923E+03   1.322197E+04          \r\n       23        5.711260E+03   2.567838E+04  -4.662566E+03      -77.4831       2.671348E+04   4.676153E+03   1.101866E+04          \r\n       24        2.252242E+03   2.366701E+04   5.697152E+03       75.9918       2.508834E+04   8.309160E+02   1.212871E+04          \r\n       25        6.054399E+04   1.703085E+04   4.263271E+03        5.5434       6.095776E+04   1.661708E+04   2.217034E+04          \r\n       26        9.197650E+03   2.078331E+04   3.580394E+03       74.1404       2.180048E+04   8.180480E+03   6.809999E+03          \r\n       42        9.668184E+02   1.789389E+04  -7.917072E+03      -68.4554       2.101964E+04  -2.158928E+03   1.158928E+04          \r\n       43       -4.856059E+03   1.515563E+04  -7.455208E+03      -71.6554       1.762765E+04  -7.328077E+03   1.247786E+04          \r\n       50        5.633398E+03   2.053400E+04   4.957930E+02       88.0964       2.055048E+04   5.616920E+03   7.466780E+03          \r\n       77        4.636298E+03   2.018828E+04   5.013066E+02       88.1557       2.020442E+04   4.620155E+03   7.792132E+03          \r\n      107        2.136227E+03   1.921470E+04   1.856342E+03       83.8677       1.941415E+04   1.936780E+03   8.738685E+03          \r\n      137       -1.568388E+03   1.744804E+04   1.848314E+03       84.4997       1.762602E+04  -1.746370E+03   9.686195E+03          \r\n      167       -2.496134E+03   1.582996E+04   6.010352E+02       88.1236       1.584965E+04  -2.515824E+03   9.182739E+03          \r\n      195       -3.691850E+03   1.510535E+04   5.946992E+02       88.1897       1.512415E+04  -3.710645E+03   9.417396E+03          \r\n      222        1.047217E+03   1.632654E+04   1.487138E+03       84.4923       1.646994E+04   9.038193E+02   7.783059E+03          \r\n      249       -1.907489E+03   1.486786E+04   1.467581E+03       85.0378       1.499528E+04  -2.034912E+03   8.515097E+03          \r\n      272        9.457738E+02   1.524183E+04   5.559590E+02       87.7763       1.526342E+04   9.241851E+02   7.169615E+03          \r\n      293       -1.634848E+02   1.473588E+04   5.533062E+02       87.8762       1.475640E+04  -1.840039E+02   7.470203E+03          \r\n      341        2.278297E+03   1.294697E+04   1.194044E+02       89.3589       1.294831E+04   2.276960E+03   5.335674E+03          \r\n      347        2.061387E+02   1.306905E+04   1.435672E+02       89.3606       1.307065E+04   2.045366E+02   6.433059E+03          \r\n      348       -1.704590E+02   1.315023E+04  -2.045999E+02      -89.1202       1.315337E+04  -1.736006E+02   6.663487E+03          \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ESTL     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER WARNING MESSAGE 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT- PURGED OR INADEQUATE AND IS THUS NOT PROCESSING\r\n     ANY REQUESTS FOR STRESSES OR FORCES.\r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 1                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.437253E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.632304E-05   4.319053E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.160436E-05   4.015893E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.369347E-04   3.499186E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.596944E-04   3.061367E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.809947E-04   2.551406E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.959206E-04   1.738305E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.072247E-04   1.104440E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.541339E-04   1.182969E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.641010E-04   5.092394E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.715528E-04   2.881442E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.959782E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.831417E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.780316E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            4.491192E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -1.835453E-05   4.466263E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -5.425214E-05   4.260661E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -8.750086E-05   3.846349E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.021150E-04   3.536730E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.144945E-04   3.146818E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.230898E-04   2.575406E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.246510E-04   1.810626E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.397690E-04   8.675934E-05   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.580680E-04   4.284813E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.611345E-04   3.707331E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.744741E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            4.561752E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -2.767431E-05   4.441231E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -5.343026E-05   4.131817E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -7.399905E-05   3.601039E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -8.170740E-05   3.186863E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -8.628595E-05   2.663865E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -9.691533E-05   2.034875E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.063749E-04   1.355610E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.265434E-04   9.416053E-05   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.428651E-04   7.426023E-05   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.100686E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -1.692889E-04   1.035016E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 2                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.824684E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.034928E-05   4.696237E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -9.956503E-05   4.366805E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.488292E-04   3.805361E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.735597E-04   3.329737E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.967018E-04   2.775778E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.129165E-04   1.892941E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.252398E-04   1.204212E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.675362E-04   1.290158E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.785089E-04   5.574863E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.866034E-04   3.147629E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.129331E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.991152E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.936389E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            4.883318E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -1.995115E-05   4.856227E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -5.897166E-05   4.632802E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -9.511395E-05   4.182599E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.110017E-04   3.846191E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.244629E-04   3.422573E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.338146E-04   2.801895E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.355330E-04   1.971397E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.519640E-04   9.463387E-05   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.718841E-04   4.665594E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.752241E-04   4.033215E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.897667E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            4.960014E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -3.008486E-05   4.829045E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -5.808600E-05   4.492819E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -8.045345E-05   3.916092E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -8.883888E-05   3.466101E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -9.382609E-05   2.897955E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.053673E-04   2.214576E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.156315E-04   1.476091E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.375752E-04   1.024718E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.553327E-04   8.077969E-05   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.196499E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -1.839802E-04   1.125074E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 3                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            5.410534E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -5.638440E-05   5.266806E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.114949E-04   4.898240E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.666432E-04   4.270262E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.943151E-04   3.738649E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.202088E-04   3.119708E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.383570E-04   2.134724E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.524021E-04   1.363605E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.876154E-04   1.462562E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -2.003632E-04   6.430339E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -2.095395E-04   3.596078E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.384796E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -2.233687E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.174778E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            5.476224E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -2.234828E-05   5.445906E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -6.605828E-05   5.195916E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.065495E-04   4.692283E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.243559E-04   4.316070E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.394545E-04   3.842471E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.499603E-04   3.148991E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.519585E-04   2.221845E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.703628E-04   1.074742E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.928029E-04   5.262768E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.965883E-04   4.532966E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.130945E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            5.562127E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -3.371329E-05   5.415580E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -6.509878E-05   5.039411E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -9.019169E-05   4.394341E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -9.960899E-05   3.891181E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.052336E-04   3.256166E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.181109E-04   2.492052E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.295362E-04   1.664750E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.542024E-04   1.153186E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.741623E-04   9.075186E-05   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.340520E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -2.059299E-04   1.260331E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 4                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.001653E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.241411E-05   5.842744E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.234103E-04   5.435341E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -1.844192E-04   4.741461E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.150085E-04   4.154700E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.436267E-04   3.471904E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.636767E-04   2.387937E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.796320E-04   1.534731E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.076112E-04   1.648433E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -2.223238E-04   7.389058E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -2.327871E-04   4.092522E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.640988E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -2.478743E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.417084E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            6.074415E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -2.474758E-05   6.040888E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -7.315211E-05   5.764514E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.180007E-04   5.207899E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.377347E-04   4.792311E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.544871E-04   4.269375E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.661734E-04   3.504403E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.685127E-04   2.482942E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.889587E-04   1.214879E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -2.139410E-04   5.887850E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.181997E-04   5.044760E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.368076E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            6.169527E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -3.735554E-05   6.007506E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -7.214383E-05   5.591699E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -9.999456E-05   4.878945E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.104649E-04   4.323260E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.167591E-04   3.622403E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.309392E-04   2.778567E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.434779E-04   1.862411E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.709253E-04   1.285863E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.931380E-04   1.009370E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.484880E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -2.277817E-04   1.395779E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 5                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.598615E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -6.844442E-05   6.424632E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.353233E-04   5.978705E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.021709E-04   5.219577E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.356461E-04   4.578651E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.669374E-04   3.833145E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.888387E-04   2.654064E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.064716E-04   1.724722E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.278283E-04   1.851111E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -2.444018E-04   8.430413E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -2.562429E-04   4.635940E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.891866E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -2.723119E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.661503E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            6.678472E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -2.715225E-05   6.641758E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -8.026318E-05   6.339197E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.294864E-04   5.730070E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.511651E-04   5.275583E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.696002E-04   4.704015E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.825247E-04   3.869195E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -1.853332E-04   2.756751E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.077571E-04   1.366182E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -2.352533E-04   6.541745E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.400062E-04   5.569240E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.607968E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            6.782807E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -4.101812E-05   6.605424E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -7.923547E-05   6.150308E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.098899E-04   5.370616E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.214459E-04   4.763144E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.284584E-04   3.997791E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.438843E-04   3.075255E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.574424E-04   2.068809E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.877214E-04   1.422786E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -2.122309E-04   1.113446E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.629604E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -2.495303E-04   1.531438E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 6                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            7.202274E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -7.447298E-05   7.013339E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.472299E-04   6.529248E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.198987E-04   5.705618E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.562407E-04   5.011486E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -2.901852E-04   4.204541E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.139417E-04   2.933455E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.332280E-04   1.931443E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.482080E-04   2.070005E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -2.666471E-04   9.555749E-05   0.0            0.0            0.0            0.0                           \r\n            11      G     -2.799192E-04   5.186816E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.142226E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -2.967601E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.907498E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            7.289252E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -2.956170E-05   7.249374E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -8.738985E-05   6.920851E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.410037E-04   6.259747E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.646415E-04   5.766862E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -1.847830E-04   5.147420E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -1.989825E-04   4.244245E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.023381E-04   3.043565E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.266417E-04   1.530949E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -2.568770E-04   7.253439E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.621136E-04   6.113598E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.851745E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            7.402817E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -4.470094E-05   7.210202E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -8.637313E-05   6.716144E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.198730E-04   5.870293E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.325407E-04   5.211777E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.403099E-04   4.383122E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.569408E-04   3.383024E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.714562E-04   2.286099E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -2.046286E-04   1.566036E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -2.314677E-04   1.220630E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.774756E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -2.711570E-04   1.667344E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 7                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            7.815418E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.049673E-05   7.611701E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.591233E-04   7.089940E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.375921E-04   6.202827E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -2.767843E-04   5.456676E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -3.133765E-04   4.589963E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.390092E-04   3.230392E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.601890E-04   2.156500E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.685986E-04   2.308714E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -2.890537E-04   1.076371E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -3.039135E-04   5.780730E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.396863E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -3.215225E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -3.156560E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            7.909547E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -3.197655E-05   7.866537E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -9.453415E-05   7.512359E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.525568E-04   6.800015E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.781686E-04   6.269391E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.000409E-04   5.603064E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.155453E-04   4.633284E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.195075E-04   3.347227E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.456852E-04   1.717171E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -2.789487E-04   8.064210E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.846820E-04   6.690581E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -3.102119E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            8.032349E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -4.840924E-05   7.824677E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -9.356840E-05   7.292179E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.299632E-04   6.381189E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.437714E-04   5.672583E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.523386E-04   4.782037E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.701480E-04   3.706054E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -1.855829E-04   2.520305E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -2.217124E-04   1.719474E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -2.509133E-04   1.332817E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            1.920526E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -2.926076E-04   1.803603E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 8                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            8.644324E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -8.852072E-05   8.421098E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.749596E-04   7.849707E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.611267E-04   6.879210E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.040884E-04   6.065195E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -3.441913E-04   5.120938E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -3.723697E-04   3.647236E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -3.962679E-04   2.478042E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.958119E-04   2.649779E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -3.190592E-04   1.247562E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -3.361666E-04   6.691796E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.739180E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -3.550093E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -3.492477E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            8.748021E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -3.520215E-05   8.700872E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.040786E-04   8.312858E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.679985E-04   7.533079E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -1.962576E-04   6.952958E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.204630E-04   6.225329E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.377336E-04   5.169025E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.425584E-04   3.772914E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.713463E-04   1.988560E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -3.087630E-04   9.256948E-05   0.0            0.0            0.0            0.0                           \r\n            25      G     -3.152401E-04   7.498352E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -3.443333E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            8.883152E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -5.338391E-05   8.655610E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.032312E-04   8.072464E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.435491E-04   7.075876E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.589187E-04   6.301693E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.686119E-04   5.330387E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -1.879779E-04   4.155421E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.046427E-04   2.852843E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -2.447160E-04   1.935875E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -2.770836E-04   1.488447E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            2.115629E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -3.209980E-04   1.985710E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 9                                  \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            9.484031E-04   0.0            0.0            0.0            0.0                           \r\n             2      G     -9.652567E-05   9.241494E-04   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.907493E-04   8.621077E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -2.845637E-04   7.568529E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.312609E-04   6.688135E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -3.748693E-04   5.668710E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.057566E-04   4.082669E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.324226E-04   2.817798E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -3.231756E-04   3.009308E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -3.491890E-04   1.426885E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -3.685392E-04   7.669715E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -4.082606E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -3.887001E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -3.830426E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            9.597315E-04   0.0            0.0            0.0            0.0                           \r\n            16      G     -3.842833E-05   9.546061E-04   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.136254E-04   9.124576E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.834470E-04   8.278267E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -2.143565E-04   7.649493E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.409033E-04   6.861801E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.599239E-04   5.721235E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.655788E-04   4.218809E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -2.971400E-04   2.274217E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -3.388838E-04   1.050879E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -3.462058E-04   8.338042E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -3.789134E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            9.744770E-04   0.0            0.0            0.0            0.0                           \r\n            28      G     -5.837997E-05   9.497562E-04   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.129447E-04   8.864374E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.572366E-04   7.783430E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.742001E-04   6.944877E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -1.850742E-04   5.894385E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.059870E-04   4.622690E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.239295E-04   3.204107E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -2.680673E-04   2.164382E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -3.036618E-04   1.650000E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            2.311450E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -3.491827E-04   2.168223E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 10                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.034284E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.045028E-04   1.008132E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.064789E-04   9.412849E-04   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.079078E-04   8.280201E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.583486E-04   7.335253E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -4.055381E-04   6.243457E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.394597E-04   4.546129E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -4.691173E-04   3.183740E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -3.509439E-04   3.396366E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -3.799432E-04   1.620259E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -4.018266E-04   8.728378E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -4.432705E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -4.233017E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -4.179445E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.046574E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -4.165566E-05   1.041044E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.231776E-04   9.956083E-04   0.0            0.0            0.0            0.0                           \r\n            18      G     -1.989127E-04   9.044672E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -2.324816E-04   8.368398E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.613884E-04   7.522429E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.821538E-04   6.299961E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -2.886195E-04   4.695017E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.231915E-04   2.583068E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -3.694269E-04   1.183140E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -3.779358E-04   9.246350E-05   0.0            0.0            0.0            0.0                           \r\n            26      G     -4.142614E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.062550E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -6.340670E-05   1.035896E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.227270E-04   9.676673E-04   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.710405E-04   8.513160E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -1.896057E-04   7.611769E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.016667E-04   6.483963E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.240214E-04   5.118091E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.430676E-04   3.586116E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -2.919485E-04   2.422506E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -3.312629E-04   1.825969E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            2.508589E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -3.769922E-04   2.351483E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 11                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.122279E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.124243E-04   1.094266E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.220871E-04   1.022727E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.310584E-04   9.016839E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -3.852391E-04   8.009312E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -4.361013E-04   6.848414E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -4.734707E-04   5.038918E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -5.063614E-04   3.576033E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -3.790486E-04   3.811086E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -4.113502E-04   1.826822E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -4.362576E-04   9.829058E-05   0.0            0.0            0.0            0.0                           \r\n            12      G     -4.790289E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -4.588505E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -4.538400E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.135531E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -4.487348E-05   1.129602E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.327015E-04   1.080948E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -2.143317E-04   9.834614E-04   0.0            0.0            0.0            0.0                           \r\n            19      G     -2.505441E-04   9.112170E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -2.817957E-04   8.209927E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.042284E-04   6.907957E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.113456E-04   5.203621E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.490928E-04   2.913245E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -4.006493E-04   1.321177E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.106036E-04   1.021933E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -4.503642E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.152734E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -6.845059E-05   1.124183E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.325499E-04   1.051152E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.849114E-04   9.267433E-04   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.050691E-04   8.304953E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.183002E-04   7.101628E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.420273E-04   5.645215E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.620743E-04   4.006930E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.164864E-04   2.705967E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -3.601077E-04   2.015629E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            2.707219E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -4.043725E-04   2.535573E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 12                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.212288E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.202660E-04   1.182449E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.375249E-04   1.106324E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.539470E-04   9.777201E-04   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.118595E-04   8.708762E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -4.664791E-04   7.481498E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.076927E-04   5.557718E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -5.439902E-04   3.990503E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -4.073262E-04   4.248691E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -4.431748E-04   2.042368E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -4.714922E-04   1.091392E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -5.153964E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -4.951059E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -4.904849E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.226497E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -4.806912E-05   1.220176E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.421577E-04   1.168367E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -2.296334E-04   1.064690E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -2.684549E-04   9.879490E-04   0.0            0.0            0.0            0.0                           \r\n            20      G     -3.020134E-04   8.922768E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.260153E-04   7.543138E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.335976E-04   5.741527E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -3.747031E-04   3.259024E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -4.327280E-04   1.456103E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.442503E-04   1.121826E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -4.870540E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.244919E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -7.348588E-05   1.214506E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.423577E-04   1.136772E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -1.987505E-04   1.004488E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.204627E-04   9.022841E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.348075E-04   7.745445E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.598230E-04   6.201455E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -2.807431E-04   4.462158E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.415528E-04   3.002693E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -3.904724E-04   2.209596E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            2.907341E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -4.313180E-04   2.720471E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 13                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.329150E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.299059E-04   1.297096E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.564892E-04   1.215440E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -3.820823E-04   1.077751E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.446697E-04   9.635461E-04   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.041332E-04   8.328772E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.507448E-04   6.258393E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -5.916698E-04   4.549432E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -4.425754E-04   4.837837E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -4.834623E-04   2.329294E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -5.166631E-04   1.229116E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -5.618286E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -5.416903E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -5.379537E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.344544E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -5.201473E-05   1.337744E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.538300E-04   1.282116E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -2.485100E-04   1.170982E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -2.905340E-04   1.088820E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -3.269189E-04   9.866300E-04   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.527819E-04   8.392089E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.607683E-04   6.471487E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.067290E-04   3.723680E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -4.743566E-04   1.626087E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -4.883179E-04   1.260311E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -5.346970E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.364472E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -7.974481E-05   1.331796E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.545437E-04   1.248369E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.159016E-04   1.106566E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.394609E-04   9.971606E-04   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.550578E-04   8.604210E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -2.815310E-04   6.953757E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.032935E-04   5.087917E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -3.736116E-04   3.403980E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -4.308714E-04   2.473314E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            3.160855E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -4.640354E-04   2.953433E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 14                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.452278E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.393441E-04   1.418098E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.750646E-04   1.331160E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -4.097456E-04   1.184789E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -4.771095E-04   1.063439E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.416801E-04   9.250701E-04   0.0            0.0            0.0            0.0                           \r\n             7      G     -5.943936E-04   7.027516E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.403703E-04   5.162506E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -4.779251E-04   5.482666E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -5.246049E-04   2.639488E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -5.633997E-04   1.371501E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -6.097261E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -5.901708E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -5.879914E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.468843E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -5.589657E-05   1.461580E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.653144E-04   1.402291E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -2.670866E-04   1.284043E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -3.122642E-04   1.196670E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -3.514398E-04   1.088262E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -3.791421E-04   9.315257E-04   0.0            0.0            0.0            0.0                           \r\n            22      G     -3.874752E-04   7.275962E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.391302E-04   4.230961E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -5.180041E-04   1.798976E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -5.350981E-04   1.406038E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -5.853082E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.490249E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -8.594333E-05   1.455395E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.665976E-04   1.366504E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.327873E-04   1.215563E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.580572E-04   1.099192E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.747094E-04   9.537131E-04   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.025311E-04   7.780950E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.249607E-04   5.780567E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -4.064579E-04   3.842090E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -4.736589E-04   2.763821E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            3.419352E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -4.953396E-04   3.189130E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 15                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.583958E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.485863E-04   1.547750E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -2.932941E-04   1.455783E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -4.370881E-04   1.301083E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.094172E-04   1.172711E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -5.794259E-04   1.026697E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.388671E-04   7.884324E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -6.913561E-04   5.840043E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -5.140281E-04   6.200317E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -5.674779E-04   2.980135E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -6.127309E-04   1.520986E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -6.604308E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -6.417820E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -6.418495E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.601678E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -5.971495E-05   1.593974E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.766185E-04   1.531196E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -2.854018E-04   1.406171E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -3.337217E-04   1.313760E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -3.757048E-04   1.199372E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.053503E-04   1.033318E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.141718E-04   8.173076E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -4.725376E-04   4.793547E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -5.646793E-04   1.977849E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -5.856022E-04   1.556922E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -6.402166E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.624533E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -9.207038E-05   1.587596E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.784933E-04   1.493479E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.493648E-04   1.333764E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.762180E-04   1.210605E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -2.937441E-04   1.056593E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.229027E-04   8.702202E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.460883E-04   6.554301E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -4.405740E-04   4.322510E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -5.193229E-04   3.078502E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            3.684929E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -5.246932E-04   3.428785E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 16                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.726517E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.576585E-04   1.688381E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.112524E-04   1.591618E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -4.642704E-04   1.428866E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.418099E-04   1.293507E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -6.176112E-04   1.139713E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -6.842989E-04   8.847839E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -7.457147E-04   6.590704E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -5.513048E-04   7.005861E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -6.127353E-04   3.356750E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -6.654604E-04   1.678525E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -7.150925E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -6.974834E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -7.004000E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.745378E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -6.347775E-05   1.737259E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.877709E-04   1.671158E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -3.035211E-04   1.539658E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -3.550005E-04   1.442336E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -3.998410E-04   1.322134E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.316061E-04   1.146601E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.411834E-04   9.180983E-04   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.074930E-04   5.422088E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -6.152269E-04   2.164644E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -6.407207E-04   1.717408E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -7.001548E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.769652E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -9.812775E-05   1.730728E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -1.902356E-04   1.631613E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.656461E-04   1.463432E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -2.939633E-04   1.333598E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.121613E-04   1.171146E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.426454E-04   9.737166E-04   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.671128E-04   7.421803E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -4.767444E-04   4.852792E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -5.689861E-04   3.421684E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            3.959826E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -5.515559E-04   3.673743E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 17                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.881845E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.666063E-04   1.841860E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.290432E-04   1.740463E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -4.914294E-04   1.569798E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -5.743724E-04   1.427416E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -6.561699E-04   1.265602E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -7.300681E-04   9.939799E-04   0.0            0.0            0.0            0.0                           \r\n             8      G     -8.036261E-04   7.417664E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -5.899442E-04   7.902082E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -6.606788E-04   3.769982E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -7.219731E-04   1.844200E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -7.740567E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -7.576687E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -7.640597E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            1.901834E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -6.719642E-05   1.893321E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -1.988099E-04   1.824030E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -3.215228E-04   1.686251E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -3.762099E-04   1.584077E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -4.239929E-04   1.458109E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.581134E-04   1.272902E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.688388E-04   1.031487E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.445440E-04   6.119452E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -6.702699E-04   2.358821E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -7.009897E-04   1.889350E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -7.654639E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            1.927497E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.041145E-04   1.886668E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.018329E-04   1.782728E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.817017E-04   1.606286E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -3.114484E-04   1.469815E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.302394E-04   1.298939E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.621321E-04   1.089946E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -3.884634E-04   8.391060E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -5.155617E-04   5.436509E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -6.233929E-04   3.794867E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            4.246175E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -5.754399E-04   3.925265E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 18                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.056082E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.755501E-04   2.014303E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.469390E-04   1.908337E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.190620E-04   1.729675E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -6.077581E-04   1.579941E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -6.958959E-04   1.409429E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -7.768153E-04   1.120353E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -8.667468E-04   8.342932E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -6.308098E-04   8.914343E-04   0.0            0.0            0.0            0.0                           \r\n            10      G     -7.125311E-04   4.230093E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -7.837599E-04   2.021504E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -8.390827E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -8.240773E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -8.347007E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            2.077196E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -7.091212E-05   2.068312E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.098653E-04   1.995909E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -3.396382E-04   1.851901E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -3.976306E-04   1.744787E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -4.484730E-04   1.612873E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -4.852494E-04   1.417357E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -4.975047E-04   1.161608E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -5.847386E-04   6.903387E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -7.315282E-04   2.564813E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -7.683582E-04   2.079109E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -8.381007E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            2.104232E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.100717E-04   2.061555E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.133670E-04   1.952876E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -2.976474E-04   1.768164E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -3.288280E-04   1.624903E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.481631E-04   1.445363E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -3.818765E-04   1.223451E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -4.109155E-04   9.490550E-04   0.0            0.0            0.0            0.0                           \r\n            35      G     -5.584310E-04   6.091835E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -6.844992E-04   4.211792E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            4.550510E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -5.952129E-04   4.187992E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 19                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.259663E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.847255E-04   2.216077E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.654511E-04   2.105401E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.480550E-04   1.918241E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -6.431048E-04   1.760385E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -7.382034E-04   1.579952E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -8.262908E-04   1.271436E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -9.377820E-04   9.422433E-04   0.0            0.0            0.0            0.0                           \r\n             9      G     -6.752234E-04   1.010535E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -7.702809E-04   4.764730E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -8.533759E-04   2.220726E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -9.130825E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -8.996328E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -9.154589E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            2.281919E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -7.470525E-05   2.272676E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.211852E-04   2.197116E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -3.582989E-04   2.046637E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -4.197872E-04   1.934231E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -4.738871E-04   1.795835E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -5.136681E-04   1.588732E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -5.277810E-04   1.316310E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -6.293957E-04   7.820556E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -8.015656E-04   2.793265E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -8.456878E-04   2.298865E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -9.211925E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            2.310337E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.160807E-04   2.265805E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.249938E-04   2.152274E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -3.136830E-04   1.958883E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -3.463169E-04   1.808292E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.661334E-04   1.619287E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -4.021207E-04   1.382284E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -4.348045E-04   1.078483E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -6.069099E-04   6.856634E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -7.549258E-04   4.697194E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            4.884312E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -6.102215E-04   4.472370E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 20                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.514856E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -1.945914E-04   2.469312E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -3.855623E-04   2.353379E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.800716E-04   2.156420E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -6.825084E-04   1.988875E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -7.856361E-04   1.796315E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -8.814389E-04   1.464679E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.022516E-03   1.077648E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -7.260037E-04   1.161054E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -8.382645E-04   5.433239E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -9.364591E-04   2.463206E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.002385E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -9.907720E-04   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.013333E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            2.538310E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -7.873191E-05   2.528702E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.332493E-04   2.449690E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -3.783357E-04   2.291920E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -4.436939E-04   2.173372E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -5.014201E-04   2.027302E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -5.447062E-04   1.806223E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -5.610735E-04   1.513288E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -6.815328E-04   8.973253E-04   0.0            0.0            0.0            0.0                           \r\n            24      G     -8.861824E-04   3.065616E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -9.395155E-04   2.572271E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.021806E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            2.568171E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.223004E-04   2.521645E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.370177E-04   2.402756E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -3.302104E-04   2.199499E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -3.643389E-04   2.040319E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -3.845296E-04   1.840084E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -4.232690E-04   1.584326E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -4.607447E-04   1.241842E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -6.644144E-04   7.814756E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -8.405521E-04   5.305659E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            5.271541E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -6.248947E-04   4.809162E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 21                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.851079E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.057357E-04   2.803266E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.084865E-04   2.681070E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -6.170163E-04   2.472149E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -7.287606E-04   2.292284E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -8.421681E-04   2.084119E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -9.464566E-04   1.723120E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.129146E-03   1.255604E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -7.873330E-04   1.360114E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -9.226828E-04   6.308238E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.040890E-03   2.771557E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.116024E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.106618E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.138244E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            2.875847E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -8.320713E-05   2.865838E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.467089E-04   2.782790E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -4.008569E-04   2.616273E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -4.707193E-04   2.490230E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -5.327339E-04   2.334638E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -5.803648E-04   2.095569E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -5.994687E-04   1.775630E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -7.457627E-04   1.048821E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -9.939870E-04   3.403605E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.059386E-03   2.928366E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.149966E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            2.907287E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.290004E-04   2.858469E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.499638E-04   2.733272E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -3.479644E-04   2.518160E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -3.836872E-04   2.348346E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -4.041395E-04   2.133979E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -4.466818E-04   1.853341E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -4.906188E-04   1.457705E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -7.365601E-04   9.069982E-04   0.0            0.0            0.0            0.0                           \r\n            36      G     -9.503025E-04   6.102344E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            5.743139E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -6.451036E-04   5.239259E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 22                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            3.287335E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.185607E-04   3.236783E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.345702E-04   3.107023E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -6.592664E-04   2.883744E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -7.854881E-04   2.687548E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -9.149957E-04   2.459487E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.029951E-03   2.058277E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.266662E-03   1.483800E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -8.655117E-04   1.615978E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.030598E-03   7.420566E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.174337E-03   3.146965E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.263081E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.255742E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.298743E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            3.313596E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -8.830082E-05   3.303121E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.620420E-04   3.215184E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -4.268387E-04   3.038318E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -5.023790E-04   2.903406E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -5.702681E-04   2.736676E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.239854E-04   2.473104E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -6.465103E-04   2.115806E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -8.276033E-04   1.241661E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.132997E-03   3.800649E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.213531E-03   3.371322E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.313826E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            3.346840E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.365002E-04   3.295295E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.646178E-04   3.162673E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -3.684434E-04   2.933674E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.061165E-04   2.750781E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -4.269198E-04   2.517923E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -4.756159E-04   2.203092E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -5.284568E-04   1.734780E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -8.295793E-04   1.065969E-03   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.092324E-03   7.103420E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            6.318441E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -6.722758E-04   5.785450E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 23                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            3.839112E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.337499E-04   3.785332E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -4.654133E-04   3.646471E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.105274E-04   3.405653E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -8.573242E-04   3.187570E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.010364E-03   2.933481E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.139742E-03   2.475138E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.442023E-03   1.765749E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -9.658865E-04   1.931831E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.167429E-03   8.780249E-04   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.342264E-03   3.584280E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.450038E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.444240E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.500861E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            3.867277E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -9.434552E-05   3.856364E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -2.802636E-04   3.762596E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -4.581006E-04   3.573481E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -5.408479E-04   3.427511E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -6.162737E-04   3.247075E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.774285E-04   2.950173E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -7.049749E-04   2.539318E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -9.312053E-04   1.477144E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.309151E-03   4.244807E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.408008E-03   3.898783E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.519183E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            3.902717E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.453675E-04   3.848005E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -2.821046E-04   3.706653E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -3.931313E-04   3.460858E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.334801E-04   3.261564E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -4.551614E-04   3.003802E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.132652E-04   2.640806E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -5.782645E-04   2.076506E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -9.487110E-04   1.259248E-03   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.272901E-03   8.309792E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            7.013422E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -7.068147E-04   6.466685E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 24                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.519287E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.520267E-04   4.461656E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.029795E-04   4.311647E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.737161E-04   4.049057E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -9.472809E-04   3.802649E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.131562E-03   3.515369E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.279640E-03   2.980664E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.660071E-03   2.105795E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.092028E-03   2.312120E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.336929E-03   1.040397E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.548554E-03   4.084238E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.681443E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.676573E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -1.749242E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            4.549883E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -1.016517E-04   4.538557E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -3.023661E-04   4.437800E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -4.962542E-04   4.233659E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -5.879205E-04   4.073757E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -6.725861E-04   3.876152E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -7.424313E-04   3.535897E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -7.764017E-04   3.053293E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.059254E-03   1.757605E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.526869E-03   4.731469E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.647337E-03   4.511401E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -1.770571E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            4.588028E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.560750E-04   4.529600E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -3.032821E-04   4.377677E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -4.231261E-04   4.111023E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -4.669313E-04   3.891151E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -4.899520E-04   3.600877E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -5.612138E-04   3.173940E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -6.420832E-04   2.487065E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.097252E-03   1.488206E-03   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.496366E-03   9.724506E-04   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            7.842475E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -7.514886E-04   7.304844E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 25                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            5.339699E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -2.738980E-04   5.277482E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -5.481207E-04   5.113932E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -8.498915E-04   4.824625E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.057611E-03   4.542011E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.281691E-03   4.211749E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.452365E-03   3.580845E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -1.924719E-03   2.507408E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.246905E-03   2.760644E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.542190E-03   1.230506E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -1.796400E-03   4.647119E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -1.961151E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -1.956532E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.047925E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            5.373311E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -1.104344E-04   5.361567E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -3.288577E-04   5.252394E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -5.418457E-04   5.029899E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -6.441050E-04   4.852749E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -7.396459E-04   4.633802E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -8.203403E-04   4.236545E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -8.618795E-04   3.663811E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.213993E-03   2.085060E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -1.790046E-03   5.257317E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -1.935645E-03   5.212105E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.072070E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            5.414790E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.688567E-04   5.351912E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -3.284731E-04   5.187106E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -4.584724E-04   4.894805E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -5.062880E-04   4.649545E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -5.312733E-04   4.315902E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -6.201816E-04   3.808822E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -7.214295E-04   2.970210E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.278118E-03   1.754237E-03   0.0            0.0            0.0            0.0                           \r\n            36      G     -1.766753E-03   1.135507E-03   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            8.820200E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -8.138594E-04   8.324232E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 26                                 \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.313093E-03   0.0            0.0            0.0            0.0                           \r\n             2      G     -3.011654E-04   6.245582E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -6.041674E-04   6.065681E-03   0.0            0.0            0.0            0.0                           \r\n             4      G     -9.434450E-04   5.744233E-03   0.0            0.0            0.0            0.0                           \r\n             5      G     -1.194367E-03   5.415299E-03   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.467760E-03   5.027776E-03   0.0            0.0            0.0            0.0                           \r\n             7      G     -1.663497E-03   4.280501E-03   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.242392E-03   2.973333E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -1.436147E-03   3.280476E-03   0.0            0.0            0.0            0.0                           \r\n            10      G     -1.788921E-03   1.449577E-03   0.0            0.0            0.0            0.0                           \r\n            11      G     -2.091561E-03   5.275808E-04   0.0            0.0            0.0            0.0                           \r\n            12      G     -2.295604E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            13      G     -2.290478E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            14      G     -2.403487E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            6.350945E-03   0.0            0.0            0.0            0.0                           \r\n            16      G     -1.216248E-04   6.338724E-03   0.0            0.0            0.0            0.0                           \r\n            17      G     -3.620912E-04   6.219390E-03   0.0            0.0            0.0            0.0                           \r\n            18      G     -5.984569E-04   5.974532E-03   0.0            0.0            0.0            0.0                           \r\n            19      G     -7.129787E-04   5.776204E-03   0.0            0.0            0.0            0.0                           \r\n            20      G     -8.202521E-04   5.530676E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -9.152637E-04   5.057088E-03   0.0            0.0            0.0            0.0                           \r\n            22      G     -9.655431E-04   4.375346E-03   0.0            0.0            0.0            0.0                           \r\n            23      G     -1.400402E-03   2.461419E-03   0.0            0.0            0.0            0.0                           \r\n            24      G     -2.104860E-03   5.822023E-04   0.0            0.0            0.0            0.0                           \r\n            25      G     -2.279218E-03   6.002701E-04   0.0            0.0            0.0            0.0                           \r\n            26      G     -2.430205E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            6.396993E-03   0.0            0.0            0.0            0.0                           \r\n            28      G     -1.848908E-04   6.328728E-03   0.0            0.0            0.0            0.0                           \r\n            29      G     -3.597069E-04   6.148241E-03   0.0            0.0            0.0            0.0                           \r\n            30      G     -5.011510E-04   5.823979E-03   0.0            0.0            0.0            0.0                           \r\n            31      G     -5.527865E-04   5.547673E-03   0.0            0.0            0.0            0.0                           \r\n            32      G     -5.821152E-04   5.155725E-03   0.0            0.0            0.0            0.0                           \r\n            33      G     -6.934781E-04   4.550612E-03   0.0            0.0            0.0            0.0                           \r\n            34      G     -8.201170E-04   3.528967E-03   0.0            0.0            0.0            0.0                           \r\n            35      G     -1.496206E-03   2.058547E-03   0.0            0.0            0.0            0.0                           \r\n            36      G     -2.089841E-03   1.320596E-03   0.0            0.0            0.0            0.0                           \r\n           196      G      0.0            9.967404E-03   0.0            0.0            0.0            0.0                           \r\n           200      G     -9.032273E-04   9.549099E-03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 1                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            8.625000E+02   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            1.725000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            1.725000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            1.725000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            8.625000E+02   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 2                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            9.375000E+02   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            1.875000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            1.875000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            1.875000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            9.375000E+02   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 3                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.050000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            2.100000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            2.100000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            2.100000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.050000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 4                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.162500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            2.325000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            2.325000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            2.325000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.162500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 5                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.275000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            2.550000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            2.550000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            2.550000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.275000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 6                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.387500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            2.775000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            2.775000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            2.775000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.387500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 7                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.500000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            3.000000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            3.000000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            3.000000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.500000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 8                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.650000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            3.300000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            3.300000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            3.300000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.650000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 9                                  \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.800000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            3.600000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            3.600000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            3.600000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.800000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 10                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            1.950000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            3.900000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            3.900000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            3.900000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            1.950000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 11                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            2.100000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            4.200000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            4.200000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            4.200000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            2.100000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 12                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            2.250000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            4.500000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            4.500000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            4.500000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            2.250000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 13                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            2.437500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            4.875000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            4.875000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            4.875000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            2.437500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 14                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            2.625000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            5.250000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            5.250000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            5.250000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            2.625000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 15                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            2.812500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            5.625000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            5.625000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            5.625000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            2.812500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 16                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.000000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            6.000000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            6.000000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            6.000000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.000000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 17                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.187500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            6.375000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            6.375000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            6.375000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.187500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 18                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.375000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            6.750000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            6.750000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            6.750000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.375000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 19                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.562500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            7.125000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            7.125000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            7.125000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.562500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 20                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.750000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            7.500000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            7.500000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            7.500000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.750000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 21                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            3.937500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            7.875000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            7.875000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            7.875000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            3.937500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 22                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            4.125000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            8.250000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            8.250000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            8.250000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            4.125000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 23                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            4.312500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            8.625000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            8.625000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            8.625000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            4.312500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 24                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            4.500000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            9.000000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            9.000000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            9.000000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            4.500000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 25                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            4.687500E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            9.375000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            9.375000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            9.375000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            4.687500E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 26                                 \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           196      G      0.0            4.875000E+03   0.0            0.0            0.0            0.0                           \r\n           197      G      0.0            9.750000E+03   0.0            0.0            0.0            0.0                           \r\n           198      G      0.0            9.750000E+03   0.0            0.0            0.0            0.0                           \r\n           199      G      0.0            9.750000E+03   0.0            0.0            0.0            0.0                           \r\n           200      G      0.0            4.875000E+03   0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 1                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.301445E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -7.230526E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -3.864238E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -4.164509E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      1.977940E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -4.064867E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      1.515721E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -3.784658E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.083805E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -3.420300E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      7.580692E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -3.257713E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      4.714183E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -3.120133E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      2.617237E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -3.025116E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.068254E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -4.389857E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      2.747067E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -5.620196E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -3.028189E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -8.124249E+02   0.0            0.0            0.0            0.0                           \r\n           147      G     -6.419218E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.026796E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -8.976216E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -4.665675E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -9.831983E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.041294E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.064404E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.374231E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.198928E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 2                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.414557E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -7.819300E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -4.214933E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -4.539519E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      2.149995E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -4.421599E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      1.647722E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -4.115989E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.178369E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -3.718921E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      8.243638E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -3.542003E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      5.128170E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -3.392203E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      2.848736E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -3.288832E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.164703E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -4.772376E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      3.033861E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -6.109749E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -3.287612E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -8.831650E+02   0.0            0.0            0.0            0.0                           \r\n           147      G     -6.974761E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.116160E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -9.756877E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -5.071325E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.069052E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.132340E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.157606E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.494611E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.303973E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 3                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.584088E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -8.576818E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -4.794361E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -5.138547E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      2.408310E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -4.965433E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      1.846347E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -4.619781E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.321174E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -4.170204E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      9.249125E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -3.971433E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      5.760979E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -3.802500E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      3.207364E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -3.686370E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.319679E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -5.348489E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      3.602777E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -6.846570E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -3.665454E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -9.895543E+02   0.0            0.0            0.0            0.0                           \r\n           147      G     -7.800349E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.250435E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.092824E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -5.679604E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.198890E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.270384E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.299319E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.677789E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.463877E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   129\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 4                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.753449E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -9.204364E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -5.425640E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -5.773103E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      2.666854E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -5.520571E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      2.045651E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -5.131237E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.465049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -4.625671E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.026708E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -4.404319E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      6.407220E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -4.215377E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      3.578936E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -4.086154E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.486416E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -5.927289E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      4.330154E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -7.586226E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -4.030408E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.096263E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -8.617168E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.384971E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.210009E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -6.287711E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.329929E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.410094E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.443181E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.863897E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.626403E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   130\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 5                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.922796E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -9.701652E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -6.098953E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -6.445475E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      2.925975E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -6.090123E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      2.245976E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -5.650884E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.610320E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -5.086288E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.130025E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -4.841100E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      7.069039E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -4.631268E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      3.964995E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -4.488467E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.665824E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -6.509175E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      5.223314E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -8.329080E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -4.383163E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.203339E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -9.427670E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.519821E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.327611E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -6.895942E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.462520E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.551776E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.589432E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -2.053173E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.791713E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   131\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 6                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.092059E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.011223E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -6.740769E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -7.164039E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      3.185610E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -6.687539E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      2.447319E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -6.181558E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.757033E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -5.553790E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.234955E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -5.282609E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      7.747731E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -5.050742E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      4.367066E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -4.893778E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      1.859560E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -7.094636E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      6.307818E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -9.075662E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -4.720751E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.310836E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.022840E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.655020E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.445407E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -7.504088E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.596711E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.695616E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.738415E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -2.246133E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -1.960293E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   132\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 7                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.261143E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.045994E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -7.247476E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -7.972590E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      3.445822E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -7.328027E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      2.649943E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -6.729510E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      1.905633E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -6.031227E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.342046E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -5.731118E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      8.449463E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -5.475370E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      4.791360E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -5.303456E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      2.073562E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -7.685243E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      7.666992E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -9.827625E+02   0.0            0.0            0.0            0.0                           \r\n           133      G     -5.035502E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.418934E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.101274E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.790714E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.563209E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -8.111945E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.733012E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -1.842428E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -1.891271E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -2.444368E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -2.133582E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   133\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 8                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.486330E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.086341E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -7.734872E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -9.174319E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      3.793387E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -8.227679E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      2.921613E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -7.481077E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      2.106049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -6.679473E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.487473E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -6.337730E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      9.413437E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -6.047851E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      5.384414E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -5.855026E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      2.383835E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -8.479044E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      9.816633E+00   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.083679E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -5.427374E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.563800E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.203898E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -1.972249E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.720359E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -8.922239E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -1.917352E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -2.041798E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -2.099752E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -2.715016E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -2.370274E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   134\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 9                                  \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.710971E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.121390E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -8.099789E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.043183E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      4.140994E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -9.164982E+02   0.0            0.0            0.0            0.0                           \r\n            27      G      3.194301E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -8.254023E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      2.308357E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -7.341577E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.635255E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -6.953495E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      1.040399E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -6.627291E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      6.003841E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -6.411971E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      2.718855E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -9.279247E+02   0.0            0.0            0.0            0.0                           \r\n           118      G      1.230719E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.185235E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -5.789637E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.709379E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.304213E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -2.154355E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -1.877146E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -9.732209E+02   0.0            0.0            0.0            0.0                           \r\n           170      G     -2.103923E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -2.244473E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -2.312666E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -2.991771E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -2.612464E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   135\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 10                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.934768E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.153426E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -8.410103E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.150472E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      4.488710E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.019890E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      3.468500E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -9.076483E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      2.513426E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -8.035657E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.786545E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -7.589026E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      1.143475E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -7.221430E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      6.664453E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -6.979601E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      3.093785E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.009183E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      1.536408E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.287991E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.097782E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -1.856262E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.399548E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -2.337469E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.032099E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.054077E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -2.293589E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -2.452479E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -2.533333E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -3.279455E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -2.864609E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   136\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 11                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.156997E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.182295E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -8.677649E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.236510E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      4.835358E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.133135E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      3.743445E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -9.949726E+02   0.0            0.0            0.0            0.0                           \r\n            40      G      2.720922E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -8.765272E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      1.941381E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -8.246508E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      1.250951E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -7.832340E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      7.371925E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -7.559285E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      3.515791E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.091852E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      1.910229E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.392095E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.338036E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.004607E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.488303E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -2.521683E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.184081E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.134748E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -2.486226E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -2.666170E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -2.762635E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -3.579500E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -3.128129E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   137\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 12                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.377022E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.208409E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -8.902523E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.310988E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      5.179559E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.246681E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      4.017776E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.086388E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      2.929553E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -9.528789E+02   0.0            0.0            0.0            0.0                           \r\n            56      G      2.098682E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -8.928459E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      1.361995E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -8.462499E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      8.120735E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -8.152217E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      3.982244E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.176082E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      2.351142E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.497572E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.504084E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.154407E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.568921E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -2.706898E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.331084E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.215127E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -2.680298E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -2.884459E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -3.000059E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -3.891680E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -3.403089E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   138\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 13                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.647540E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.239006E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -9.149213E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.397255E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      5.604453E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.352070E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      4.358628E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.213528E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      3.191428E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.057408E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      2.299062E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -9.845281E+02   0.0            0.0            0.0            0.0                           \r\n            72      G      1.506866E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -9.298251E+02   0.0            0.0            0.0            0.0                           \r\n            88      G      9.132317E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -8.927454E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      4.651106E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.285307E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      3.036561E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.632764E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.548965E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.345121E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.650095E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -2.940701E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.501101E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.314820E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -2.923710E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -3.165847E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -3.314059E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -4.308306E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -3.771959E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   139\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 14                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      3.912289E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.268633E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -9.366401E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.478744E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      6.022437E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.420934E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      4.696207E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.334249E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      3.453441E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.170567E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      2.502803E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.085134E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      1.657978E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.021302E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.022951E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -9.759484E+02   0.0            0.0            0.0            0.0                           \r\n           104      G      5.423207E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.401429E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      3.890594E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.773471E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.366891E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.541561E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.701308E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -3.178018E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.647453E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.413372E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.164767E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -3.457124E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -3.651939E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -4.762766E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -4.177440E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   140\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 15                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.171216E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.298225E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -9.561409E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.557974E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      6.433641E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.471406E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      5.030128E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.421045E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      3.714606E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.283379E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      2.708703E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.192448E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      1.814020E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.120984E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.140475E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.067290E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      6.296896E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.528584E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      4.920283E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -1.923319E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -5.910577E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.747730E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.711947E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -3.420889E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.756677E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.510587E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.396489E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -3.757455E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -4.020277E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -5.267817E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -4.632784E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   141\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 16                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.424879E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.328175E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -9.741373E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.635642E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      6.838998E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.511777E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      5.360626E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.485081E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      3.974417E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.368759E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      2.915664E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.302200E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      1.973378E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.226296E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.264244E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.166223E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      7.258030E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.668228E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      6.110379E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.086035E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -5.162188E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -2.968558E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.674807E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -3.672081E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.815249E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.606808E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.609305E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -4.063638E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -4.423914E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -5.835099E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -5.150813E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   142\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 17                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.674449E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.358303E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -9.906497E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.712147E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      7.239827E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.545943E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      5.687733E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.538284E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      4.231615E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.433991E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      3.121182E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.394252E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.132429E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.337205E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.390141E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.267808E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      8.262375E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.814772E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      7.397107E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.261546E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -4.165302E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -3.207217E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.590096E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -3.934677E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.809566E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.703205E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.787112E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -4.365552E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -4.861594E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -6.471315E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -5.741554E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   143\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 18                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.923060E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.389428E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.006034E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.788614E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      7.640700E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.576823E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      6.013866E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.586607E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      4.486519E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.490772E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      3.323725E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.464677E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.287958E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.455040E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.513825E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.354736E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      9.257328E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -1.952289E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      8.697503E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.444105E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -3.002706E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -3.467208E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.463185E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -4.219574E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.720844E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.804094E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.902049E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -4.645435E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -5.332743E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -7.193038E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -6.427570E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   144\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 19                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.177064E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.423362E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.021257E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.868978E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      8.050450E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.606495E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      6.343781E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.633938E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      4.739947E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.546619E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      3.520944E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.524886E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.434839E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.586139E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.628355E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.421396E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.016001E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.076957E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      9.878837E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.597381E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -1.840950E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -3.730019E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.313686E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -4.545108E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.549095E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -1.917467E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.931794E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -4.881037E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -5.824626E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -7.999645E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -7.215286E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   145\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 20                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.448929E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.463516E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.037536E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -1.960939E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      8.486193E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.638139E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      6.686653E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.684630E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      4.993370E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.608340E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      3.708014E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.581282E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.562657E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.743753E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.719431E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.475625E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.079867E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.209605E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      1.066017E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.722193E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -1.102125E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -3.960495E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.206572E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -4.872429E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.382827E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.041518E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.922204E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -5.070069E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -6.279510E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -8.783326E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -7.996410E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   146\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 21                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.754831E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.512987E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.055730E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.070222E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      8.971326E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.673011E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      7.057571E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.740837E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      5.253911E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.679780E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      3.885565E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.635754E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.666278E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -1.939996E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.777414E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.519201E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.104258E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.362487E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      1.081279E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.827093E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -1.181807E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -4.182794E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.205771E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.128441E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.322471E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.171669E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -3.951434E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -5.242407E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -6.652778E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -9.424542E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -8.634852E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   147\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 22                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.096268E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.572992E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.075459E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.193009E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      9.523441E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.708641E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      7.472814E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.799957E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      5.536160E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.757756E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      4.065787E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.685347E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.756308E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -2.172520E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.809927E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.549536E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.094269E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.533330E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      1.037987E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.913848E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -2.131274E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -4.409594E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.321255E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.333371E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.377966E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.294644E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -4.043834E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -5.432723E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -6.971454E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -9.923931E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -9.108669E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   148\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 23                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.392648E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.641651E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.096055E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.323693E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      1.017487E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.743027E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      7.965348E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.859771E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      5.865812E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.838460E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      4.270098E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.728971E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.849596E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -2.436782E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.830777E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.566856E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.060925E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.717621E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      9.505948E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -2.985589E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -3.811583E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -4.648826E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.532634E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.513658E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.544700E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.399042E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -4.227341E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -5.692641E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -7.284389E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.029854E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -9.399268E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   149\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 24                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.644657E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.715080E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.117284E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.459897E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      1.095855E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.775992E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      8.561036E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.919424E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      6.260306E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.919037E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      4.509545E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.767170E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      2.951412E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -2.727461E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.842447E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.571558E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      1.004884E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -2.911619E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      8.196846E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -3.043508E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -6.126877E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -4.904898E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -1.819145E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.680808E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -2.845096E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.486266E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -4.532112E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -6.081337E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -7.630699E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.056379E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -9.467655E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   150\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 25                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      6.873404E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.791682E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.138630E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.598635E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      1.187548E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.808042E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      9.274359E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -1.978277E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      6.728282E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -1.997600E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      4.790727E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.801214E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      3.067199E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -3.039701E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.849543E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.564393E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      9.310640E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -3.111246E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      6.521801E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -3.087696E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -9.027861E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -5.179782E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -2.186662E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.840419E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -3.270160E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.562684E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -4.960377E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -6.616006E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -8.070538E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.077268E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -9.263033E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                          /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   151\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                                                                                   \r\n0                                                                                    LOAD FACTOR 26                                 \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      7.087701E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            12      G      0.0           -1.871181E+03   0.0            0.0            0.0            0.0                           \r\n            13      G      0.0           -1.160410E+03   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -2.738544E+03   0.0            0.0            0.0            0.0                           \r\n            15      G      1.265886E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -1.839818E+03   0.0            0.0            0.0            0.0                           \r\n            27      G      1.017402E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            39      G      0.0           -2.036389E+03   0.0            0.0            0.0            0.0                           \r\n            40      G      7.318008E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            55      G      0.0           -2.072548E+03   0.0            0.0            0.0            0.0                           \r\n            56      G      5.151075E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G      0.0           -1.832737E+03   0.0            0.0            0.0            0.0                           \r\n            72      G      3.226018E+02   0.0            0.0            0.0            0.0            0.0                           \r\n            87      G      0.0           -3.369070E+03   0.0            0.0            0.0            0.0                           \r\n            88      G      1.876572E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      0.0           -1.546449E+03   0.0            0.0            0.0            0.0                           \r\n           104      G      8.610998E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           117      G      0.0           -3.312552E+03   0.0            0.0            0.0            0.0                           \r\n           118      G      4.782116E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           132      G      0.0           -3.117485E+03   0.0            0.0            0.0            0.0                           \r\n           133      G     -1.231636E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           146      G      0.0           -5.473612E+03   0.0            0.0            0.0            0.0                           \r\n           147      G     -2.633490E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           157      G      0.0           -5.995012E+03   0.0            0.0            0.0            0.0                           \r\n           158      G     -3.772632E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           169      G      0.0           -2.634194E+03   0.0            0.0            0.0            0.0                           \r\n           170      G     -5.469943E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           178      G     -7.285244E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           184      G     -8.665781E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           190      G     -1.102904E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           196      G     -8.743794E+02   0.0            0.0            0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                       \r\n DATE:  5/17/95\r\n END TIME: 15:52:37\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d07011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D07011A,NASTRAN                                                           \r\n     TIME  15                                                                        \r\n     APP   DISP                                                                      \r\n     SOL   7,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPLEX EIGENVALUES OF A 500 CELL STRING                             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                          \r\n                  3       CMETHOD = 1   $  FEER                                                          \r\n                  4      OUTPUT                                                                          \r\n                  5         SET 1 = 1,51,101,151,201,251,301,351,401,451,501                             \r\n                  6          DISP = 1                                                                    \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   758, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CDAMP3  60002   401     2       0                                               \r\n                    2-        CDAMP3  60003   401     3       0       60004   401     4       0               \r\n                    3-        CDAMP3  60005   401     5       0       60006   401     6       0               \r\n                    4-        CDAMP3  60007   401     7       0       60008   401     8       0               \r\n                    5-        CDAMP3  60009   401     9       0       60010   401     10      0               \r\n                    6-        CDAMP3  60011   401     11      0       60012   401     12      0               \r\n                    7-        CDAMP3  60013   401     13      0       60014   401     14      0               \r\n                    8-        CDAMP3  60015   401     15      0       60016   401     16      0               \r\n                    9-        CDAMP3  60017   401     17      0       60018   401     18      0               \r\n                   10-        CDAMP3  60019   401     19      0       60020   401     20      0               \r\n                   11-        CDAMP3  60021   401     21      0       60022   401     22      0               \r\n                   12-        CDAMP3  60023   401     23      0       60024   401     24      0               \r\n                   13-        CDAMP3  60025   401     25      0       60026   401     26      0               \r\n                   14-        CDAMP3  60027   401     27      0       60028   401     28      0               \r\n                   15-        CDAMP3  60029   401     29      0       60030   401     30      0               \r\n                   16-        CDAMP3  60031   401     31      0       60032   401     32      0               \r\n                   17-        CDAMP3  60033   401     33      0       60034   401     34      0               \r\n                   18-        CDAMP3  60035   401     35      0       60036   401     36      0               \r\n                   19-        CDAMP3  60037   401     37      0       60038   401     38      0               \r\n                   20-        CDAMP3  60039   401     39      0       60040   401     40      0               \r\n                   21-        CDAMP3  60041   401     41      0       60042   401     42      0               \r\n                   22-        CDAMP3  60043   401     43      0       60044   401     44      0               \r\n                   23-        CDAMP3  60045   401     45      0       60046   401     46      0               \r\n                   24-        CDAMP3  60047   401     47      0       60048   401     48      0               \r\n                   25-        CDAMP3  60049   401     49      0       60050   401     50      0               \r\n                   26-        CDAMP3  60051   401     51      0       60052   401     52      0               \r\n                   27-        CDAMP3  60053   401     53      0       60054   401     54      0               \r\n                   28-        CDAMP3  60055   401     55      0       60056   401     56      0               \r\n                   29-        CDAMP3  60057   401     57      0       60058   401     58      0               \r\n                   30-        CDAMP3  60059   401     59      0       60060   401     60      0               \r\n                   31-        CDAMP3  60061   401     61      0       60062   401     62      0               \r\n                   32-        CDAMP3  60063   401     63      0       60064   401     64      0               \r\n                   33-        CDAMP3  60065   401     65      0       60066   401     66      0               \r\n                   34-        CDAMP3  60067   401     67      0       60068   401     68      0               \r\n                   35-        CDAMP3  60069   401     69      0       60070   401     70      0               \r\n                   36-        CDAMP3  60071   401     71      0       60072   401     72      0               \r\n                   37-        CDAMP3  60073   401     73      0       60074   401     74      0               \r\n                   38-        CDAMP3  60075   401     75      0       60076   401     76      0               \r\n                   39-        CDAMP3  60077   401     77      0       60078   401     78      0               \r\n                   40-        CDAMP3  60079   401     79      0       60080   401     80      0               \r\n                   41-        CDAMP3  60081   401     81      0       60082   401     82      0               \r\n                   42-        CDAMP3  60083   401     83      0       60084   401     84      0               \r\n                   43-        CDAMP3  60085   401     85      0       60086   401     86      0               \r\n                   44-        CDAMP3  60087   401     87      0       60088   401     88      0               \r\n                   45-        CDAMP3  60089   401     89      0       60090   401     90      0               \r\n                   46-        CDAMP3  60091   401     91      0       60092   401     92      0               \r\n                   47-        CDAMP3  60093   401     93      0       60094   401     94      0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CDAMP3  60095   401     95      0       60096   401     96      0               \r\n                   49-        CDAMP3  60097   401     97      0       60098   401     98      0               \r\n                   50-        CDAMP3  60099   401     99      0       60100   401     100     0               \r\n                   51-        CDAMP3  60101   401     101     0       60102   401     102     0               \r\n                   52-        CDAMP3  60103   401     103     0       60104   401     104     0               \r\n                   53-        CDAMP3  60105   401     105     0       60106   401     106     0               \r\n                   54-        CDAMP3  60107   401     107     0       60108   401     108     0               \r\n                   55-        CDAMP3  60109   401     109     0       60110   401     110     0               \r\n                   56-        CDAMP3  60111   401     111     0       60112   401     112     0               \r\n                   57-        CDAMP3  60113   401     113     0       60114   401     114     0               \r\n                   58-        CDAMP3  60115   401     115     0       60116   401     116     0               \r\n                   59-        CDAMP3  60117   401     117     0       60118   401     118     0               \r\n                   60-        CDAMP3  60119   401     119     0       60120   401     120     0               \r\n                   61-        CDAMP3  60121   401     121     0       60122   401     122     0               \r\n                   62-        CDAMP3  60123   401     123     0       60124   401     124     0               \r\n                   63-        CDAMP3  60125   401     125     0       60126   401     126     0               \r\n                   64-        CDAMP3  60127   401     127     0       60128   401     128     0               \r\n                   65-        CDAMP3  60129   401     129     0       60130   401     130     0               \r\n                   66-        CDAMP3  60131   401     131     0       60132   401     132     0               \r\n                   67-        CDAMP3  60133   401     133     0       60134   401     134     0               \r\n                   68-        CDAMP3  60135   401     135     0       60136   401     136     0               \r\n                   69-        CDAMP3  60137   401     137     0       60138   401     138     0               \r\n                   70-        CDAMP3  60139   401     139     0       60140   401     140     0               \r\n                   71-        CDAMP3  60141   401     141     0       60142   401     142     0               \r\n                   72-        CDAMP3  60143   401     143     0       60144   401     144     0               \r\n                   73-        CDAMP3  60145   401     145     0       60146   401     146     0               \r\n                   74-        CDAMP3  60147   401     147     0       60148   401     148     0               \r\n                   75-        CDAMP3  60149   401     149     0       60150   401     150     0               \r\n                   76-        CDAMP3  60151   401     151     0       60152   401     152     0               \r\n                   77-        CDAMP3  60153   401     153     0       60154   401     154     0               \r\n                   78-        CDAMP3  60155   401     155     0       60156   401     156     0               \r\n                   79-        CDAMP3  60157   401     157     0       60158   401     158     0               \r\n                   80-        CDAMP3  60159   401     159     0       60160   401     160     0               \r\n                   81-        CDAMP3  60161   401     161     0       60162   401     162     0               \r\n                   82-        CDAMP3  60163   401     163     0       60164   401     164     0               \r\n                   83-        CDAMP3  60165   401     165     0       60166   401     166     0               \r\n                   84-        CDAMP3  60167   401     167     0       60168   401     168     0               \r\n                   85-        CDAMP3  60169   401     169     0       60170   401     170     0               \r\n                   86-        CDAMP3  60171   401     171     0       60172   401     172     0               \r\n                   87-        CDAMP3  60173   401     173     0       60174   401     174     0               \r\n                   88-        CDAMP3  60175   401     175     0       60176   401     176     0               \r\n                   89-        CDAMP3  60177   401     177     0       60178   401     178     0               \r\n                   90-        CDAMP3  60179   401     179     0       60180   401     180     0               \r\n                   91-        CDAMP3  60181   401     181     0       60182   401     182     0               \r\n                   92-        CDAMP3  60183   401     183     0       60184   401     184     0               \r\n                   93-        CDAMP3  60185   401     185     0       60186   401     186     0               \r\n                   94-        CDAMP3  60187   401     187     0       60188   401     188     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CDAMP3  60189   401     189     0       60190   401     190     0               \r\n                   96-        CDAMP3  60191   401     191     0       60192   401     192     0               \r\n                   97-        CDAMP3  60193   401     193     0       60194   401     194     0               \r\n                   98-        CDAMP3  60195   401     195     0       60196   401     196     0               \r\n                   99-        CDAMP3  60197   401     197     0       60198   401     198     0               \r\n                  100-        CDAMP3  60199   401     199     0       60200   401     200     0               \r\n                  101-        CDAMP3  60201   401     201     0       60202   401     202     0               \r\n                  102-        CDAMP3  60203   401     203     0       60204   401     204     0               \r\n                  103-        CDAMP3  60205   401     205     0       60206   401     206     0               \r\n                  104-        CDAMP3  60207   401     207     0       60208   401     208     0               \r\n                  105-        CDAMP3  60209   401     209     0       60210   401     210     0               \r\n                  106-        CDAMP3  60211   401     211     0       60212   401     212     0               \r\n                  107-        CDAMP3  60213   401     213     0       60214   401     214     0               \r\n                  108-        CDAMP3  60215   401     215     0       60216   401     216     0               \r\n                  109-        CDAMP3  60217   401     217     0       60218   401     218     0               \r\n                  110-        CDAMP3  60219   401     219     0       60220   401     220     0               \r\n                  111-        CDAMP3  60221   401     221     0       60222   401     222     0               \r\n                  112-        CDAMP3  60223   401     223     0       60224   401     224     0               \r\n                  113-        CDAMP3  60225   401     225     0       60226   401     226     0               \r\n                  114-        CDAMP3  60227   401     227     0       60228   401     228     0               \r\n                  115-        CDAMP3  60229   401     229     0       60230   401     230     0               \r\n                  116-        CDAMP3  60231   401     231     0       60232   401     232     0               \r\n                  117-        CDAMP3  60233   401     233     0       60234   401     234     0               \r\n                  118-        CDAMP3  60235   401     235     0       60236   401     236     0               \r\n                  119-        CDAMP3  60237   401     237     0       60238   401     238     0               \r\n                  120-        CDAMP3  60239   401     239     0       60240   401     240     0               \r\n                  121-        CDAMP3  60241   401     241     0       60242   401     242     0               \r\n                  122-        CDAMP3  60243   401     243     0       60244   401     244     0               \r\n                  123-        CDAMP3  60245   401     245     0       60246   401     246     0               \r\n                  124-        CDAMP3  60247   401     247     0       60248   401     248     0               \r\n                  125-        CDAMP3  60249   401     249     0       60250   401     250     0               \r\n                  126-        CDAMP3  60251   401     251     0       60252   401     252     0               \r\n                  127-        CDAMP3  60253   401     253     0       60254   401     254     0               \r\n                  128-        CDAMP3  60255   401     255     0       60256   401     256     0               \r\n                  129-        CDAMP3  60257   401     257     0       60258   401     258     0               \r\n                  130-        CDAMP3  60259   401     259     0       60260   401     260     0               \r\n                  131-        CDAMP3  60261   401     261     0       60262   401     262     0               \r\n                  132-        CDAMP3  60263   401     263     0       60264   401     264     0               \r\n                  133-        CDAMP3  60265   401     265     0       60266   401     266     0               \r\n                  134-        CDAMP3  60267   401     267     0       60268   401     268     0               \r\n                  135-        CDAMP3  60269   401     269     0       60270   401     270     0               \r\n                  136-        CDAMP3  60271   401     271     0       60272   401     272     0               \r\n                  137-        CDAMP3  60273   401     273     0       60274   401     274     0               \r\n                  138-        CDAMP3  60275   401     275     0       60276   401     276     0               \r\n                  139-        CDAMP3  60277   401     277     0       60278   401     278     0               \r\n                  140-        CDAMP3  60279   401     279     0       60280   401     280     0               \r\n                  141-        CDAMP3  60281   401     281     0       60282   401     282     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CDAMP3  60283   401     283     0       60284   401     284     0               \r\n                  143-        CDAMP3  60285   401     285     0       60286   401     286     0               \r\n                  144-        CDAMP3  60287   401     287     0       60288   401     288     0               \r\n                  145-        CDAMP3  60289   401     289     0       60290   401     290     0               \r\n                  146-        CDAMP3  60291   401     291     0       60292   401     292     0               \r\n                  147-        CDAMP3  60293   401     293     0       60294   401     294     0               \r\n                  148-        CDAMP3  60295   401     295     0       60296   401     296     0               \r\n                  149-        CDAMP3  60297   401     297     0       60298   401     298     0               \r\n                  150-        CDAMP3  60299   401     299     0       60300   401     300     0               \r\n                  151-        CDAMP3  60301   401     301     0       60302   401     302     0               \r\n                  152-        CDAMP3  60303   401     303     0       60304   401     304     0               \r\n                  153-        CDAMP3  60305   401     305     0       60306   401     306     0               \r\n                  154-        CDAMP3  60307   401     307     0       60308   401     308     0               \r\n                  155-        CDAMP3  60309   401     309     0       60310   401     310     0               \r\n                  156-        CDAMP3  60311   401     311     0       60312   401     312     0               \r\n                  157-        CDAMP3  60313   401     313     0       60314   401     314     0               \r\n                  158-        CDAMP3  60315   401     315     0       60316   401     316     0               \r\n                  159-        CDAMP3  60317   401     317     0       60318   401     318     0               \r\n                  160-        CDAMP3  60319   401     319     0       60320   401     320     0               \r\n                  161-        CDAMP3  60321   401     321     0       60322   401     322     0               \r\n                  162-        CDAMP3  60323   401     323     0       60324   401     324     0               \r\n                  163-        CDAMP3  60325   401     325     0       60326   401     326     0               \r\n                  164-        CDAMP3  60327   401     327     0       60328   401     328     0               \r\n                  165-        CDAMP3  60329   401     329     0       60330   401     330     0               \r\n                  166-        CDAMP3  60331   401     331     0       60332   401     332     0               \r\n                  167-        CDAMP3  60333   401     333     0       60334   401     334     0               \r\n                  168-        CDAMP3  60335   401     335     0       60336   401     336     0               \r\n                  169-        CDAMP3  60337   401     337     0       60338   401     338     0               \r\n                  170-        CDAMP3  60339   401     339     0       60340   401     340     0               \r\n                  171-        CDAMP3  60341   401     341     0       60342   401     342     0               \r\n                  172-        CDAMP3  60343   401     343     0       60344   401     344     0               \r\n                  173-        CDAMP3  60345   401     345     0       60346   401     346     0               \r\n                  174-        CDAMP3  60347   401     347     0       60348   401     348     0               \r\n                  175-        CDAMP3  60349   401     349     0       60350   401     350     0               \r\n                  176-        CDAMP3  60351   401     351     0       60352   401     352     0               \r\n                  177-        CDAMP3  60353   401     353     0       60354   401     354     0               \r\n                  178-        CDAMP3  60355   401     355     0       60356   401     356     0               \r\n                  179-        CDAMP3  60357   401     357     0       60358   401     358     0               \r\n                  180-        CDAMP3  60359   401     359     0       60360   401     360     0               \r\n                  181-        CDAMP3  60361   401     361     0       60362   401     362     0               \r\n                  182-        CDAMP3  60363   401     363     0       60364   401     364     0               \r\n                  183-        CDAMP3  60365   401     365     0       60366   401     366     0               \r\n                  184-        CDAMP3  60367   401     367     0       60368   401     368     0               \r\n                  185-        CDAMP3  60369   401     369     0       60370   401     370     0               \r\n                  186-        CDAMP3  60371   401     371     0       60372   401     372     0               \r\n                  187-        CDAMP3  60373   401     373     0       60374   401     374     0               \r\n                  188-        CDAMP3  60375   401     375     0       60376   401     376     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CDAMP3  60377   401     377     0       60378   401     378     0               \r\n                  190-        CDAMP3  60379   401     379     0       60380   401     380     0               \r\n                  191-        CDAMP3  60381   401     381     0       60382   401     382     0               \r\n                  192-        CDAMP3  60383   401     383     0       60384   401     384     0               \r\n                  193-        CDAMP3  60385   401     385     0       60386   401     386     0               \r\n                  194-        CDAMP3  60387   401     387     0       60388   401     388     0               \r\n                  195-        CDAMP3  60389   401     389     0       60390   401     390     0               \r\n                  196-        CDAMP3  60391   401     391     0       60392   401     392     0               \r\n                  197-        CDAMP3  60393   401     393     0       60394   401     394     0               \r\n                  198-        CDAMP3  60395   401     395     0       60396   401     396     0               \r\n                  199-        CDAMP3  60397   401     397     0       60398   401     398     0               \r\n                  200-        CDAMP3  60399   401     399     0       60400   401     400     0               \r\n                  201-        CDAMP3  60401   401     401     0       60402   401     402     0               \r\n                  202-        CDAMP3  60403   401     403     0       60404   401     404     0               \r\n                  203-        CDAMP3  60405   401     405     0       60406   401     406     0               \r\n                  204-        CDAMP3  60407   401     407     0       60408   401     408     0               \r\n                  205-        CDAMP3  60409   401     409     0       60410   401     410     0               \r\n                  206-        CDAMP3  60411   401     411     0       60412   401     412     0               \r\n                  207-        CDAMP3  60413   401     413     0       60414   401     414     0               \r\n                  208-        CDAMP3  60415   401     415     0       60416   401     416     0               \r\n                  209-        CDAMP3  60417   401     417     0       60418   401     418     0               \r\n                  210-        CDAMP3  60419   401     419     0       60420   401     420     0               \r\n                  211-        CDAMP3  60421   401     421     0       60422   401     422     0               \r\n                  212-        CDAMP3  60423   401     423     0       60424   401     424     0               \r\n                  213-        CDAMP3  60425   401     425     0       60426   401     426     0               \r\n                  214-        CDAMP3  60427   401     427     0       60428   401     428     0               \r\n                  215-        CDAMP3  60429   401     429     0       60430   401     430     0               \r\n                  216-        CDAMP3  60431   401     431     0       60432   401     432     0               \r\n                  217-        CDAMP3  60433   401     433     0       60434   401     434     0               \r\n                  218-        CDAMP3  60435   401     435     0       60436   401     436     0               \r\n                  219-        CDAMP3  60437   401     437     0       60438   401     438     0               \r\n                  220-        CDAMP3  60439   401     439     0       60440   401     440     0               \r\n                  221-        CDAMP3  60441   401     441     0       60442   401     442     0               \r\n                  222-        CDAMP3  60443   401     443     0       60444   401     444     0               \r\n                  223-        CDAMP3  60445   401     445     0       60446   401     446     0               \r\n                  224-        CDAMP3  60447   401     447     0       60448   401     448     0               \r\n                  225-        CDAMP3  60449   401     449     0       60450   401     450     0               \r\n                  226-        CDAMP3  60451   401     451     0       60452   401     452     0               \r\n                  227-        CDAMP3  60453   401     453     0       60454   401     454     0               \r\n                  228-        CDAMP3  60455   401     455     0       60456   401     456     0               \r\n                  229-        CDAMP3  60457   401     457     0       60458   401     458     0               \r\n                  230-        CDAMP3  60459   401     459     0       60460   401     460     0               \r\n                  231-        CDAMP3  60461   401     461     0       60462   401     462     0               \r\n                  232-        CDAMP3  60463   401     463     0       60464   401     464     0               \r\n                  233-        CDAMP3  60465   401     465     0       60466   401     466     0               \r\n                  234-        CDAMP3  60467   401     467     0       60468   401     468     0               \r\n                  235-        CDAMP3  60469   401     469     0       60470   401     470     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CDAMP3  60471   401     471     0       60472   401     472     0               \r\n                  237-        CDAMP3  60473   401     473     0       60474   401     474     0               \r\n                  238-        CDAMP3  60475   401     475     0       60476   401     476     0               \r\n                  239-        CDAMP3  60477   401     477     0       60478   401     478     0               \r\n                  240-        CDAMP3  60479   401     479     0       60480   401     480     0               \r\n                  241-        CDAMP3  60481   401     481     0       60482   401     482     0               \r\n                  242-        CDAMP3  60483   401     483     0       60484   401     484     0               \r\n                  243-        CDAMP3  60485   401     485     0       60486   401     486     0               \r\n                  244-        CDAMP3  60487   401     487     0       60488   401     488     0               \r\n                  245-        CDAMP3  60489   401     489     0       60490   401     490     0               \r\n                  246-        CDAMP3  60491   401     491     0       60492   401     492     0               \r\n                  247-        CDAMP3  60493   401     493     0       60494   401     494     0               \r\n                  248-        CDAMP3  60495   401     495     0       60496   401     496     0               \r\n                  249-        CDAMP3  60497   401     497     0       60498   401     498     0               \r\n                  250-        CDAMP3  60499   401     499     0       60500   401     500     0               \r\n                  251-        CELAS3  1       101     0       2       2       101     2       3               \r\n                  252-        CELAS3  3       101     3       4       4       101     4       5               \r\n                  253-        CELAS3  5       101     5       6       6       101     6       7               \r\n                  254-        CELAS3  7       101     7       8       8       101     8       9               \r\n                  255-        CELAS3  9       101     9       10      10      101     10      11              \r\n                  256-        CELAS3  11      101     11      12      12      101     12      13              \r\n                  257-        CELAS3  13      101     13      14      14      101     14      15              \r\n                  258-        CELAS3  15      101     15      16      16      101     16      17              \r\n                  259-        CELAS3  17      101     17      18      18      101     18      19              \r\n                  260-        CELAS3  19      101     19      20      20      101     20      21              \r\n                  261-        CELAS3  21      101     21      22      22      101     22      23              \r\n                  262-        CELAS3  23      101     23      24      24      101     24      25              \r\n                  263-        CELAS3  25      101     25      26      26      101     26      27              \r\n                  264-        CELAS3  27      101     27      28      28      101     28      29              \r\n                  265-        CELAS3  29      101     29      30      30      101     30      31              \r\n                  266-        CELAS3  31      101     31      32      32      101     32      33              \r\n                  267-        CELAS3  33      101     33      34      34      101     34      35              \r\n                  268-        CELAS3  35      101     35      36      36      101     36      37              \r\n                  269-        CELAS3  37      101     37      38      38      101     38      39              \r\n                  270-        CELAS3  39      101     39      40      40      101     40      41              \r\n                  271-        CELAS3  41      101     41      42      42      101     42      43              \r\n                  272-        CELAS3  43      101     43      44      44      101     44      45              \r\n                  273-        CELAS3  45      101     45      46      46      101     46      47              \r\n                  274-        CELAS3  47      101     47      48      48      101     48      49              \r\n                  275-        CELAS3  49      101     49      50      50      101     50      51              \r\n                  276-        CELAS3  51      101     51      52      52      101     52      53              \r\n                  277-        CELAS3  53      101     53      54      54      101     54      55              \r\n                  278-        CELAS3  55      101     55      56      56      101     56      57              \r\n                  279-        CELAS3  57      101     57      58      58      101     58      59              \r\n                  280-        CELAS3  59      101     59      60      60      101     60      61              \r\n                  281-        CELAS3  61      101     61      62      62      101     62      63              \r\n                  282-        CELAS3  63      101     63      64      64      101     64      65              \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CELAS3  65      101     65      66      66      101     66      67              \r\n                  284-        CELAS3  67      101     67      68      68      101     68      69              \r\n                  285-        CELAS3  69      101     69      70      70      101     70      71              \r\n                  286-        CELAS3  71      101     71      72      72      101     72      73              \r\n                  287-        CELAS3  73      101     73      74      74      101     74      75              \r\n                  288-        CELAS3  75      101     75      76      76      101     76      77              \r\n                  289-        CELAS3  77      101     77      78      78      101     78      79              \r\n                  290-        CELAS3  79      101     79      80      80      101     80      81              \r\n                  291-        CELAS3  81      101     81      82      82      101     82      83              \r\n                  292-        CELAS3  83      101     83      84      84      101     84      85              \r\n                  293-        CELAS3  85      101     85      86      86      101     86      87              \r\n                  294-        CELAS3  87      101     87      88      88      101     88      89              \r\n                  295-        CELAS3  89      101     89      90      90      101     90      91              \r\n                  296-        CELAS3  91      101     91      92      92      101     92      93              \r\n                  297-        CELAS3  93      101     93      94      94      101     94      95              \r\n                  298-        CELAS3  95      101     95      96      96      101     96      97              \r\n                  299-        CELAS3  97      101     97      98      98      101     98      99              \r\n                  300-        CELAS3  99      101     99      100     100     101     100     101             \r\n                  301-        CELAS3  101     101     101     102     102     101     102     103             \r\n                  302-        CELAS3  103     101     103     104     104     101     104     105             \r\n                  303-        CELAS3  105     101     105     106     106     101     106     107             \r\n                  304-        CELAS3  107     101     107     108     108     101     108     109             \r\n                  305-        CELAS3  109     101     109     110     110     101     110     111             \r\n                  306-        CELAS3  111     101     111     112     112     101     112     113             \r\n                  307-        CELAS3  113     101     113     114     114     101     114     115             \r\n                  308-        CELAS3  115     101     115     116     116     101     116     117             \r\n                  309-        CELAS3  117     101     117     118     118     101     118     119             \r\n                  310-        CELAS3  119     101     119     120     120     101     120     121             \r\n                  311-        CELAS3  121     101     121     122     122     101     122     123             \r\n                  312-        CELAS3  123     101     123     124     124     101     124     125             \r\n                  313-        CELAS3  125     101     125     126     126     101     126     127             \r\n                  314-        CELAS3  127     101     127     128     128     101     128     129             \r\n                  315-        CELAS3  129     101     129     130     130     101     130     131             \r\n                  316-        CELAS3  131     101     131     132     132     101     132     133             \r\n                  317-        CELAS3  133     101     133     134     134     101     134     135             \r\n                  318-        CELAS3  135     101     135     136     136     101     136     137             \r\n                  319-        CELAS3  137     101     137     138     138     101     138     139             \r\n                  320-        CELAS3  139     101     139     140     140     101     140     141             \r\n                  321-        CELAS3  141     101     141     142     142     101     142     143             \r\n                  322-        CELAS3  143     101     143     144     144     101     144     145             \r\n                  323-        CELAS3  145     101     145     146     146     101     146     147             \r\n                  324-        CELAS3  147     101     147     148     148     101     148     149             \r\n                  325-        CELAS3  149     101     149     150     150     101     150     151             \r\n                  326-        CELAS3  151     101     151     152     152     101     152     153             \r\n                  327-        CELAS3  153     101     153     154     154     101     154     155             \r\n                  328-        CELAS3  155     101     155     156     156     101     156     157             \r\n                  329-        CELAS3  157     101     157     158     158     101     158     159             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CELAS3  159     101     159     160     160     101     160     161             \r\n                  331-        CELAS3  161     101     161     162     162     101     162     163             \r\n                  332-        CELAS3  163     101     163     164     164     101     164     165             \r\n                  333-        CELAS3  165     101     165     166     166     101     166     167             \r\n                  334-        CELAS3  167     101     167     168     168     101     168     169             \r\n                  335-        CELAS3  169     101     169     170     170     101     170     171             \r\n                  336-        CELAS3  171     101     171     172     172     101     172     173             \r\n                  337-        CELAS3  173     101     173     174     174     101     174     175             \r\n                  338-        CELAS3  175     101     175     176     176     101     176     177             \r\n                  339-        CELAS3  177     101     177     178     178     101     178     179             \r\n                  340-        CELAS3  179     101     179     180     180     101     180     181             \r\n                  341-        CELAS3  181     101     181     182     182     101     182     183             \r\n                  342-        CELAS3  183     101     183     184     184     101     184     185             \r\n                  343-        CELAS3  185     101     185     186     186     101     186     187             \r\n                  344-        CELAS3  187     101     187     188     188     101     188     189             \r\n                  345-        CELAS3  189     101     189     190     190     101     190     191             \r\n                  346-        CELAS3  191     101     191     192     192     101     192     193             \r\n                  347-        CELAS3  193     101     193     194     194     101     194     195             \r\n                  348-        CELAS3  195     101     195     196     196     101     196     197             \r\n                  349-        CELAS3  197     101     197     198     198     101     198     199             \r\n                  350-        CELAS3  199     101     199     200     200     101     200     201             \r\n                  351-        CELAS3  201     101     201     202     202     101     202     203             \r\n                  352-        CELAS3  203     101     203     204     204     101     204     205             \r\n                  353-        CELAS3  205     101     205     206     206     101     206     207             \r\n                  354-        CELAS3  207     101     207     208     208     101     208     209             \r\n                  355-        CELAS3  209     101     209     210     210     101     210     211             \r\n                  356-        CELAS3  211     101     211     212     212     101     212     213             \r\n                  357-        CELAS3  213     101     213     214     214     101     214     215             \r\n                  358-        CELAS3  215     101     215     216     216     101     216     217             \r\n                  359-        CELAS3  217     101     217     218     218     101     218     219             \r\n                  360-        CELAS3  219     101     219     220     220     101     220     221             \r\n                  361-        CELAS3  221     101     221     222     222     101     222     223             \r\n                  362-        CELAS3  223     101     223     224     224     101     224     225             \r\n                  363-        CELAS3  225     101     225     226     226     101     226     227             \r\n                  364-        CELAS3  227     101     227     228     228     101     228     229             \r\n                  365-        CELAS3  229     101     229     230     230     101     230     231             \r\n                  366-        CELAS3  231     101     231     232     232     101     232     233             \r\n                  367-        CELAS3  233     101     233     234     234     101     234     235             \r\n                  368-        CELAS3  235     101     235     236     236     101     236     237             \r\n                  369-        CELAS3  237     101     237     238     238     101     238     239             \r\n                  370-        CELAS3  239     101     239     240     240     101     240     241             \r\n                  371-        CELAS3  241     101     241     242     242     101     242     243             \r\n                  372-        CELAS3  243     101     243     244     244     101     244     245             \r\n                  373-        CELAS3  245     101     245     246     246     101     246     247             \r\n                  374-        CELAS3  247     101     247     248     248     101     248     249             \r\n                  375-        CELAS3  249     101     249     250     250     101     250     251             \r\n                  376-        CELAS3  251     101     251     252     252     101     252     253             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CELAS3  253     101     253     254     254     101     254     255             \r\n                  378-        CELAS3  255     101     255     256     256     101     256     257             \r\n                  379-        CELAS3  257     101     257     258     258     101     258     259             \r\n                  380-        CELAS3  259     101     259     260     260     101     260     261             \r\n                  381-        CELAS3  261     101     261     262     262     101     262     263             \r\n                  382-        CELAS3  263     101     263     264     264     101     264     265             \r\n                  383-        CELAS3  265     101     265     266     266     101     266     267             \r\n                  384-        CELAS3  267     101     267     268     268     101     268     269             \r\n                  385-        CELAS3  269     101     269     270     270     101     270     271             \r\n                  386-        CELAS3  271     101     271     272     272     101     272     273             \r\n                  387-        CELAS3  273     101     273     274     274     101     274     275             \r\n                  388-        CELAS3  275     101     275     276     276     101     276     277             \r\n                  389-        CELAS3  277     101     277     278     278     101     278     279             \r\n                  390-        CELAS3  279     101     279     280     280     101     280     281             \r\n                  391-        CELAS3  281     101     281     282     282     101     282     283             \r\n                  392-        CELAS3  283     101     283     284     284     101     284     285             \r\n                  393-        CELAS3  285     101     285     286     286     101     286     287             \r\n                  394-        CELAS3  287     101     287     288     288     101     288     289             \r\n                  395-        CELAS3  289     101     289     290     290     101     290     291             \r\n                  396-        CELAS3  291     101     291     292     292     101     292     293             \r\n                  397-        CELAS3  293     101     293     294     294     101     294     295             \r\n                  398-        CELAS3  295     101     295     296     296     101     296     297             \r\n                  399-        CELAS3  297     101     297     298     298     101     298     299             \r\n                  400-        CELAS3  299     101     299     300     300     101     300     301             \r\n                  401-        CELAS3  301     101     301     302     302     101     302     303             \r\n                  402-        CELAS3  303     101     303     304     304     101     304     305             \r\n                  403-        CELAS3  305     101     305     306     306     101     306     307             \r\n                  404-        CELAS3  307     101     307     308     308     101     308     309             \r\n                  405-        CELAS3  309     101     309     310     310     101     310     311             \r\n                  406-        CELAS3  311     101     311     312     312     101     312     313             \r\n                  407-        CELAS3  313     101     313     314     314     101     314     315             \r\n                  408-        CELAS3  315     101     315     316     316     101     316     317             \r\n                  409-        CELAS3  317     101     317     318     318     101     318     319             \r\n                  410-        CELAS3  319     101     319     320     320     101     320     321             \r\n                  411-        CELAS3  321     101     321     322     322     101     322     323             \r\n                  412-        CELAS3  323     101     323     324     324     101     324     325             \r\n                  413-        CELAS3  325     101     325     326     326     101     326     327             \r\n                  414-        CELAS3  327     101     327     328     328     101     328     329             \r\n                  415-        CELAS3  329     101     329     330     330     101     330     331             \r\n                  416-        CELAS3  331     101     331     332     332     101     332     333             \r\n                  417-        CELAS3  333     101     333     334     334     101     334     335             \r\n                  418-        CELAS3  335     101     335     336     336     101     336     337             \r\n                  419-        CELAS3  337     101     337     338     338     101     338     339             \r\n                  420-        CELAS3  339     101     339     340     340     101     340     341             \r\n                  421-        CELAS3  341     101     341     342     342     101     342     343             \r\n                  422-        CELAS3  343     101     343     344     344     101     344     345             \r\n                  423-        CELAS3  345     101     345     346     346     101     346     347             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        CELAS3  347     101     347     348     348     101     348     349             \r\n                  425-        CELAS3  349     101     349     350     350     101     350     351             \r\n                  426-        CELAS3  351     101     351     352     352     101     352     353             \r\n                  427-        CELAS3  353     101     353     354     354     101     354     355             \r\n                  428-        CELAS3  355     101     355     356     356     101     356     357             \r\n                  429-        CELAS3  357     101     357     358     358     101     358     359             \r\n                  430-        CELAS3  359     101     359     360     360     101     360     361             \r\n                  431-        CELAS3  361     101     361     362     362     101     362     363             \r\n                  432-        CELAS3  363     101     363     364     364     101     364     365             \r\n                  433-        CELAS3  365     101     365     366     366     101     366     367             \r\n                  434-        CELAS3  367     101     367     368     368     101     368     369             \r\n                  435-        CELAS3  369     101     369     370     370     101     370     371             \r\n                  436-        CELAS3  371     101     371     372     372     101     372     373             \r\n                  437-        CELAS3  373     101     373     374     374     101     374     375             \r\n                  438-        CELAS3  375     101     375     376     376     101     376     377             \r\n                  439-        CELAS3  377     101     377     378     378     101     378     379             \r\n                  440-        CELAS3  379     101     379     380     380     101     380     381             \r\n                  441-        CELAS3  381     101     381     382     382     101     382     383             \r\n                  442-        CELAS3  383     101     383     384     384     101     384     385             \r\n                  443-        CELAS3  385     101     385     386     386     101     386     387             \r\n                  444-        CELAS3  387     101     387     388     388     101     388     389             \r\n                  445-        CELAS3  389     101     389     390     390     101     390     391             \r\n                  446-        CELAS3  391     101     391     392     392     101     392     393             \r\n                  447-        CELAS3  393     101     393     394     394     101     394     395             \r\n                  448-        CELAS3  395     101     395     396     396     101     396     397             \r\n                  449-        CELAS3  397     101     397     398     398     101     398     399             \r\n                  450-        CELAS3  399     101     399     400     400     101     400     401             \r\n                  451-        CELAS3  401     101     401     402     402     101     402     403             \r\n                  452-        CELAS3  403     101     403     404     404     101     404     405             \r\n                  453-        CELAS3  405     101     405     406     406     101     406     407             \r\n                  454-        CELAS3  407     101     407     408     408     101     408     409             \r\n                  455-        CELAS3  409     101     409     410     410     101     410     411             \r\n                  456-        CELAS3  411     101     411     412     412     101     412     413             \r\n                  457-        CELAS3  413     101     413     414     414     101     414     415             \r\n                  458-        CELAS3  415     101     415     416     416     101     416     417             \r\n                  459-        CELAS3  417     101     417     418     418     101     418     419             \r\n                  460-        CELAS3  419     101     419     420     420     101     420     421             \r\n                  461-        CELAS3  421     101     421     422     422     101     422     423             \r\n                  462-        CELAS3  423     101     423     424     424     101     424     425             \r\n                  463-        CELAS3  425     101     425     426     426     101     426     427             \r\n                  464-        CELAS3  427     101     427     428     428     101     428     429             \r\n                  465-        CELAS3  429     101     429     430     430     101     430     431             \r\n                  466-        CELAS3  431     101     431     432     432     101     432     433             \r\n                  467-        CELAS3  433     101     433     434     434     101     434     435             \r\n                  468-        CELAS3  435     101     435     436     436     101     436     437             \r\n                  469-        CELAS3  437     101     437     438     438     101     438     439             \r\n                  470-        CELAS3  439     101     439     440     440     101     440     441             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        CELAS3  441     101     441     442     442     101     442     443             \r\n                  472-        CELAS3  443     101     443     444     444     101     444     445             \r\n                  473-        CELAS3  445     101     445     446     446     101     446     447             \r\n                  474-        CELAS3  447     101     447     448     448     101     448     449             \r\n                  475-        CELAS3  449     101     449     450     450     101     450     451             \r\n                  476-        CELAS3  451     101     451     452     452     101     452     453             \r\n                  477-        CELAS3  453     101     453     454     454     101     454     455             \r\n                  478-        CELAS3  455     101     455     456     456     101     456     457             \r\n                  479-        CELAS3  457     101     457     458     458     101     458     459             \r\n                  480-        CELAS3  459     101     459     460     460     101     460     461             \r\n                  481-        CELAS3  461     101     461     462     462     101     462     463             \r\n                  482-        CELAS3  463     101     463     464     464     101     464     465             \r\n                  483-        CELAS3  465     101     465     466     466     101     466     467             \r\n                  484-        CELAS3  467     101     467     468     468     101     468     469             \r\n                  485-        CELAS3  469     101     469     470     470     101     470     471             \r\n                  486-        CELAS3  471     101     471     472     472     101     472     473             \r\n                  487-        CELAS3  473     101     473     474     474     101     474     475             \r\n                  488-        CELAS3  475     101     475     476     476     101     476     477             \r\n                  489-        CELAS3  477     101     477     478     478     101     478     479             \r\n                  490-        CELAS3  479     101     479     480     480     101     480     481             \r\n                  491-        CELAS3  481     101     481     482     482     101     482     483             \r\n                  492-        CELAS3  483     101     483     484     484     101     484     485             \r\n                  493-        CELAS3  485     101     485     486     486     101     486     487             \r\n                  494-        CELAS3  487     101     487     488     488     101     488     489             \r\n                  495-        CELAS3  489     101     489     490     490     101     490     491             \r\n                  496-        CELAS3  491     101     491     492     492     101     492     493             \r\n                  497-        CELAS3  493     101     493     494     494     101     494     495             \r\n                  498-        CELAS3  495     101     495     496     496     101     496     497             \r\n                  499-        CELAS3  497     101     497     498     498     101     498     499             \r\n                  500-        CELAS3  499     101     499     500     500     101     500     0               \r\n                  501-        CMASS3  40002   301     2       0                                               \r\n                  502-        CMASS3  40003   301     3       0       40004   301     4       0               \r\n                  503-        CMASS3  40005   301     5       0       40006   301     6       0               \r\n                  504-        CMASS3  40007   301     7       0       40008   301     8       0               \r\n                  505-        CMASS3  40009   301     9       0       40010   301     10      0               \r\n                  506-        CMASS3  40011   301     11      0       40012   301     12      0               \r\n                  507-        CMASS3  40013   301     13      0       40014   301     14      0               \r\n                  508-        CMASS3  40015   301     15      0       40016   301     16      0               \r\n                  509-        CMASS3  40017   301     17      0       40018   301     18      0               \r\n                  510-        CMASS3  40019   301     19      0       40020   301     20      0               \r\n                  511-        CMASS3  40021   301     21      0       40022   301     22      0               \r\n                  512-        CMASS3  40023   301     23      0       40024   301     24      0               \r\n                  513-        CMASS3  40025   301     25      0       40026   301     26      0               \r\n                  514-        CMASS3  40027   301     27      0       40028   301     28      0               \r\n                  515-        CMASS3  40029   301     29      0       40030   301     30      0               \r\n                  516-        CMASS3  40031   301     31      0       40032   301     32      0               \r\n                  517-        CMASS3  40033   301     33      0       40034   301     34      0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        CMASS3  40035   301     35      0       40036   301     36      0               \r\n                  519-        CMASS3  40037   301     37      0       40038   301     38      0               \r\n                  520-        CMASS3  40039   301     39      0       40040   301     40      0               \r\n                  521-        CMASS3  40041   301     41      0       40042   301     42      0               \r\n                  522-        CMASS3  40043   301     43      0       40044   301     44      0               \r\n                  523-        CMASS3  40045   301     45      0       40046   301     46      0               \r\n                  524-        CMASS3  40047   301     47      0       40048   301     48      0               \r\n                  525-        CMASS3  40049   301     49      0       40050   301     50      0               \r\n                  526-        CMASS3  40051   301     51      0       40052   301     52      0               \r\n                  527-        CMASS3  40053   301     53      0       40054   301     54      0               \r\n                  528-        CMASS3  40055   301     55      0       40056   301     56      0               \r\n                  529-        CMASS3  40057   301     57      0       40058   301     58      0               \r\n                  530-        CMASS3  40059   301     59      0       40060   301     60      0               \r\n                  531-        CMASS3  40061   301     61      0       40062   301     62      0               \r\n                  532-        CMASS3  40063   301     63      0       40064   301     64      0               \r\n                  533-        CMASS3  40065   301     65      0       40066   301     66      0               \r\n                  534-        CMASS3  40067   301     67      0       40068   301     68      0               \r\n                  535-        CMASS3  40069   301     69      0       40070   301     70      0               \r\n                  536-        CMASS3  40071   301     71      0       40072   301     72      0               \r\n                  537-        CMASS3  40073   301     73      0       40074   301     74      0               \r\n                  538-        CMASS3  40075   301     75      0       40076   301     76      0               \r\n                  539-        CMASS3  40077   301     77      0       40078   301     78      0               \r\n                  540-        CMASS3  40079   301     79      0       40080   301     80      0               \r\n                  541-        CMASS3  40081   301     81      0       40082   301     82      0               \r\n                  542-        CMASS3  40083   301     83      0       40084   301     84      0               \r\n                  543-        CMASS3  40085   301     85      0       40086   301     86      0               \r\n                  544-        CMASS3  40087   301     87      0       40088   301     88      0               \r\n                  545-        CMASS3  40089   301     89      0       40090   301     90      0               \r\n                  546-        CMASS3  40091   301     91      0       40092   301     92      0               \r\n                  547-        CMASS3  40093   301     93      0       40094   301     94      0               \r\n                  548-        CMASS3  40095   301     95      0       40096   301     96      0               \r\n                  549-        CMASS3  40097   301     97      0       40098   301     98      0               \r\n                  550-        CMASS3  40099   301     99      0       40100   301     100     0               \r\n                  551-        CMASS3  40101   301     101     0       40102   301     102     0               \r\n                  552-        CMASS3  40103   301     103     0       40104   301     104     0               \r\n                  553-        CMASS3  40105   301     105     0       40106   301     106     0               \r\n                  554-        CMASS3  40107   301     107     0       40108   301     108     0               \r\n                  555-        CMASS3  40109   301     109     0       40110   301     110     0               \r\n                  556-        CMASS3  40111   301     111     0       40112   301     112     0               \r\n                  557-        CMASS3  40113   301     113     0       40114   301     114     0               \r\n                  558-        CMASS3  40115   301     115     0       40116   301     116     0               \r\n                  559-        CMASS3  40117   301     117     0       40118   301     118     0               \r\n                  560-        CMASS3  40119   301     119     0       40120   301     120     0               \r\n                  561-        CMASS3  40121   301     121     0       40122   301     122     0               \r\n                  562-        CMASS3  40123   301     123     0       40124   301     124     0               \r\n                  563-        CMASS3  40125   301     125     0       40126   301     126     0               \r\n                  564-        CMASS3  40127   301     127     0       40128   301     128     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        CMASS3  40129   301     129     0       40130   301     130     0               \r\n                  566-        CMASS3  40131   301     131     0       40132   301     132     0               \r\n                  567-        CMASS3  40133   301     133     0       40134   301     134     0               \r\n                  568-        CMASS3  40135   301     135     0       40136   301     136     0               \r\n                  569-        CMASS3  40137   301     137     0       40138   301     138     0               \r\n                  570-        CMASS3  40139   301     139     0       40140   301     140     0               \r\n                  571-        CMASS3  40141   301     141     0       40142   301     142     0               \r\n                  572-        CMASS3  40143   301     143     0       40144   301     144     0               \r\n                  573-        CMASS3  40145   301     145     0       40146   301     146     0               \r\n                  574-        CMASS3  40147   301     147     0       40148   301     148     0               \r\n                  575-        CMASS3  40149   301     149     0       40150   301     150     0               \r\n                  576-        CMASS3  40151   301     151     0       40152   301     152     0               \r\n                  577-        CMASS3  40153   301     153     0       40154   301     154     0               \r\n                  578-        CMASS3  40155   301     155     0       40156   301     156     0               \r\n                  579-        CMASS3  40157   301     157     0       40158   301     158     0               \r\n                  580-        CMASS3  40159   301     159     0       40160   301     160     0               \r\n                  581-        CMASS3  40161   301     161     0       40162   301     162     0               \r\n                  582-        CMASS3  40163   301     163     0       40164   301     164     0               \r\n                  583-        CMASS3  40165   301     165     0       40166   301     166     0               \r\n                  584-        CMASS3  40167   301     167     0       40168   301     168     0               \r\n                  585-        CMASS3  40169   301     169     0       40170   301     170     0               \r\n                  586-        CMASS3  40171   301     171     0       40172   301     172     0               \r\n                  587-        CMASS3  40173   301     173     0       40174   301     174     0               \r\n                  588-        CMASS3  40175   301     175     0       40176   301     176     0               \r\n                  589-        CMASS3  40177   301     177     0       40178   301     178     0               \r\n                  590-        CMASS3  40179   301     179     0       40180   301     180     0               \r\n                  591-        CMASS3  40181   301     181     0       40182   301     182     0               \r\n                  592-        CMASS3  40183   301     183     0       40184   301     184     0               \r\n                  593-        CMASS3  40185   301     185     0       40186   301     186     0               \r\n                  594-        CMASS3  40187   301     187     0       40188   301     188     0               \r\n                  595-        CMASS3  40189   301     189     0       40190   301     190     0               \r\n                  596-        CMASS3  40191   301     191     0       40192   301     192     0               \r\n                  597-        CMASS3  40193   301     193     0       40194   301     194     0               \r\n                  598-        CMASS3  40195   301     195     0       40196   301     196     0               \r\n                  599-        CMASS3  40197   301     197     0       40198   301     198     0               \r\n                  600-        CMASS3  40199   301     199     0       40200   301     200     0               \r\n                  601-        CMASS3  40201   301     201     0       40202   301     202     0               \r\n                  602-        CMASS3  40203   301     203     0       40204   301     204     0               \r\n                  603-        CMASS3  40205   301     205     0       40206   301     206     0               \r\n                  604-        CMASS3  40207   301     207     0       40208   301     208     0               \r\n                  605-        CMASS3  40209   301     209     0       40210   301     210     0               \r\n                  606-        CMASS3  40211   301     211     0       40212   301     212     0               \r\n                  607-        CMASS3  40213   301     213     0       40214   301     214     0               \r\n                  608-        CMASS3  40215   301     215     0       40216   301     216     0               \r\n                  609-        CMASS3  40217   301     217     0       40218   301     218     0               \r\n                  610-        CMASS3  40219   301     219     0       40220   301     220     0               \r\n                  611-        CMASS3  40221   301     221     0       40222   301     222     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        CMASS3  40223   301     223     0       40224   301     224     0               \r\n                  613-        CMASS3  40225   301     225     0       40226   301     226     0               \r\n                  614-        CMASS3  40227   301     227     0       40228   301     228     0               \r\n                  615-        CMASS3  40229   301     229     0       40230   301     230     0               \r\n                  616-        CMASS3  40231   301     231     0       40232   301     232     0               \r\n                  617-        CMASS3  40233   301     233     0       40234   301     234     0               \r\n                  618-        CMASS3  40235   301     235     0       40236   301     236     0               \r\n                  619-        CMASS3  40237   301     237     0       40238   301     238     0               \r\n                  620-        CMASS3  40239   301     239     0       40240   301     240     0               \r\n                  621-        CMASS3  40241   301     241     0       40242   301     242     0               \r\n                  622-        CMASS3  40243   301     243     0       40244   301     244     0               \r\n                  623-        CMASS3  40245   301     245     0       40246   301     246     0               \r\n                  624-        CMASS3  40247   301     247     0       40248   301     248     0               \r\n                  625-        CMASS3  40249   301     249     0       40250   301     250     0               \r\n                  626-        CMASS3  40251   301     251     0       40252   301     252     0               \r\n                  627-        CMASS3  40253   301     253     0       40254   301     254     0               \r\n                  628-        CMASS3  40255   301     255     0       40256   301     256     0               \r\n                  629-        CMASS3  40257   301     257     0       40258   301     258     0               \r\n                  630-        CMASS3  40259   301     259     0       40260   301     260     0               \r\n                  631-        CMASS3  40261   301     261     0       40262   301     262     0               \r\n                  632-        CMASS3  40263   301     263     0       40264   301     264     0               \r\n                  633-        CMASS3  40265   301     265     0       40266   301     266     0               \r\n                  634-        CMASS3  40267   301     267     0       40268   301     268     0               \r\n                  635-        CMASS3  40269   301     269     0       40270   301     270     0               \r\n                  636-        CMASS3  40271   301     271     0       40272   301     272     0               \r\n                  637-        CMASS3  40273   301     273     0       40274   301     274     0               \r\n                  638-        CMASS3  40275   301     275     0       40276   301     276     0               \r\n                  639-        CMASS3  40277   301     277     0       40278   301     278     0               \r\n                  640-        CMASS3  40279   301     279     0       40280   301     280     0               \r\n                  641-        CMASS3  40281   301     281     0       40282   301     282     0               \r\n                  642-        CMASS3  40283   301     283     0       40284   301     284     0               \r\n                  643-        CMASS3  40285   301     285     0       40286   301     286     0               \r\n                  644-        CMASS3  40287   301     287     0       40288   301     288     0               \r\n                  645-        CMASS3  40289   301     289     0       40290   301     290     0               \r\n                  646-        CMASS3  40291   301     291     0       40292   301     292     0               \r\n                  647-        CMASS3  40293   301     293     0       40294   301     294     0               \r\n                  648-        CMASS3  40295   301     295     0       40296   301     296     0               \r\n                  649-        CMASS3  40297   301     297     0       40298   301     298     0               \r\n                  650-        CMASS3  40299   301     299     0       40300   301     300     0               \r\n                  651-        CMASS3  40301   301     301     0       40302   301     302     0               \r\n                  652-        CMASS3  40303   301     303     0       40304   301     304     0               \r\n                  653-        CMASS3  40305   301     305     0       40306   301     306     0               \r\n                  654-        CMASS3  40307   301     307     0       40308   301     308     0               \r\n                  655-        CMASS3  40309   301     309     0       40310   301     310     0               \r\n                  656-        CMASS3  40311   301     311     0       40312   301     312     0               \r\n                  657-        CMASS3  40313   301     313     0       40314   301     314     0               \r\n                  658-        CMASS3  40315   301     315     0       40316   301     316     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        CMASS3  40317   301     317     0       40318   301     318     0               \r\n                  660-        CMASS3  40319   301     319     0       40320   301     320     0               \r\n                  661-        CMASS3  40321   301     321     0       40322   301     322     0               \r\n                  662-        CMASS3  40323   301     323     0       40324   301     324     0               \r\n                  663-        CMASS3  40325   301     325     0       40326   301     326     0               \r\n                  664-        CMASS3  40327   301     327     0       40328   301     328     0               \r\n                  665-        CMASS3  40329   301     329     0       40330   301     330     0               \r\n                  666-        CMASS3  40331   301     331     0       40332   301     332     0               \r\n                  667-        CMASS3  40333   301     333     0       40334   301     334     0               \r\n                  668-        CMASS3  40335   301     335     0       40336   301     336     0               \r\n                  669-        CMASS3  40337   301     337     0       40338   301     338     0               \r\n                  670-        CMASS3  40339   301     339     0       40340   301     340     0               \r\n                  671-        CMASS3  40341   301     341     0       40342   301     342     0               \r\n                  672-        CMASS3  40343   301     343     0       40344   301     344     0               \r\n                  673-        CMASS3  40345   301     345     0       40346   301     346     0               \r\n                  674-        CMASS3  40347   301     347     0       40348   301     348     0               \r\n                  675-        CMASS3  40349   301     349     0       40350   301     350     0               \r\n                  676-        CMASS3  40351   301     351     0       40352   301     352     0               \r\n                  677-        CMASS3  40353   301     353     0       40354   301     354     0               \r\n                  678-        CMASS3  40355   301     355     0       40356   301     356     0               \r\n                  679-        CMASS3  40357   301     357     0       40358   301     358     0               \r\n                  680-        CMASS3  40359   301     359     0       40360   301     360     0               \r\n                  681-        CMASS3  40361   301     361     0       40362   301     362     0               \r\n                  682-        CMASS3  40363   301     363     0       40364   301     364     0               \r\n                  683-        CMASS3  40365   301     365     0       40366   301     366     0               \r\n                  684-        CMASS3  40367   301     367     0       40368   301     368     0               \r\n                  685-        CMASS3  40369   301     369     0       40370   301     370     0               \r\n                  686-        CMASS3  40371   301     371     0       40372   301     372     0               \r\n                  687-        CMASS3  40373   301     373     0       40374   301     374     0               \r\n                  688-        CMASS3  40375   301     375     0       40376   301     376     0               \r\n                  689-        CMASS3  40377   301     377     0       40378   301     378     0               \r\n                  690-        CMASS3  40379   301     379     0       40380   301     380     0               \r\n                  691-        CMASS3  40381   301     381     0       40382   301     382     0               \r\n                  692-        CMASS3  40383   301     383     0       40384   301     384     0               \r\n                  693-        CMASS3  40385   301     385     0       40386   301     386     0               \r\n                  694-        CMASS3  40387   301     387     0       40388   301     388     0               \r\n                  695-        CMASS3  40389   301     389     0       40390   301     390     0               \r\n                  696-        CMASS3  40391   301     391     0       40392   301     392     0               \r\n                  697-        CMASS3  40393   301     393     0       40394   301     394     0               \r\n                  698-        CMASS3  40395   301     395     0       40396   301     396     0               \r\n                  699-        CMASS3  40397   301     397     0       40398   301     398     0               \r\n                  700-        CMASS3  40399   301     399     0       40400   301     400     0               \r\n                  701-        CMASS3  40401   301     401     0       40402   301     402     0               \r\n                  702-        CMASS3  40403   301     403     0       40404   301     404     0               \r\n                  703-        CMASS3  40405   301     405     0       40406   301     406     0               \r\n                  704-        CMASS3  40407   301     407     0       40408   301     408     0               \r\n                  705-        CMASS3  40409   301     409     0       40410   301     410     0               \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        CMASS3  40411   301     411     0       40412   301     412     0               \r\n                  707-        CMASS3  40413   301     413     0       40414   301     414     0               \r\n                  708-        CMASS3  40415   301     415     0       40416   301     416     0               \r\n                  709-        CMASS3  40417   301     417     0       40418   301     418     0               \r\n                  710-        CMASS3  40419   301     419     0       40420   301     420     0               \r\n                  711-        CMASS3  40421   301     421     0       40422   301     422     0               \r\n                  712-        CMASS3  40423   301     423     0       40424   301     424     0               \r\n                  713-        CMASS3  40425   301     425     0       40426   301     426     0               \r\n                  714-        CMASS3  40427   301     427     0       40428   301     428     0               \r\n                  715-        CMASS3  40429   301     429     0       40430   301     430     0               \r\n                  716-        CMASS3  40431   301     431     0       40432   301     432     0               \r\n                  717-        CMASS3  40433   301     433     0       40434   301     434     0               \r\n                  718-        CMASS3  40435   301     435     0       40436   301     436     0               \r\n                  719-        CMASS3  40437   301     437     0       40438   301     438     0               \r\n                  720-        CMASS3  40439   301     439     0       40440   301     440     0               \r\n                  721-        CMASS3  40441   301     441     0       40442   301     442     0               \r\n                  722-        CMASS3  40443   301     443     0       40444   301     444     0               \r\n                  723-        CMASS3  40445   301     445     0       40446   301     446     0               \r\n                  724-        CMASS3  40447   301     447     0       40448   301     448     0               \r\n                  725-        CMASS3  40449   301     449     0       40450   301     450     0               \r\n                  726-        CMASS3  40451   301     451     0       40452   301     452     0               \r\n                  727-        CMASS3  40453   301     453     0       40454   301     454     0               \r\n                  728-        CMASS3  40455   301     455     0       40456   301     456     0               \r\n                  729-        CMASS3  40457   301     457     0       40458   301     458     0               \r\n                  730-        CMASS3  40459   301     459     0       40460   301     460     0               \r\n                  731-        CMASS3  40461   301     461     0       40462   301     462     0               \r\n                  732-        CMASS3  40463   301     463     0       40464   301     464     0               \r\n                  733-        CMASS3  40465   301     465     0       40466   301     466     0               \r\n                  734-        CMASS3  40467   301     467     0       40468   301     468     0               \r\n                  735-        CMASS3  40469   301     469     0       40470   301     470     0               \r\n                  736-        CMASS3  40471   301     471     0       40472   301     472     0               \r\n                  737-        CMASS3  40473   301     473     0       40474   301     474     0               \r\n                  738-        CMASS3  40475   301     475     0       40476   301     476     0               \r\n                  739-        CMASS3  40477   301     477     0       40478   301     478     0               \r\n                  740-        CMASS3  40479   301     479     0       40480   301     480     0               \r\n                  741-        CMASS3  40481   301     481     0       40482   301     482     0               \r\n                  742-        CMASS3  40483   301     483     0       40484   301     484     0               \r\n                  743-        CMASS3  40485   301     485     0       40486   301     486     0               \r\n                  744-        CMASS3  40487   301     487     0       40488   301     488     0               \r\n                  745-        CMASS3  40489   301     489     0       40490   301     490     0               \r\n                  746-        CMASS3  40491   301     491     0       40492   301     492     0               \r\n                  747-        CMASS3  40493   301     493     0       40494   301     494     0               \r\n                  748-        CMASS3  40495   301     495     0       40496   301     496     0               \r\n                  749-        CMASS3  40497   301     497     0       40498   301     498     0               \r\n                  750-        CMASS3  40499   301     499     0       40500   301     500     0               \r\n                  751-        EIGC    1       FEER    MAX                                             +CFEER  \r\n                  752-        +CFEER  -1.0    12.0                                                            \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        EIGC    7       DET     MAX                     1.0-5                   +EIGC7  \r\n                  754-        +EIGC7  -.5     5.0     -.9     16.0    10.0    2       2                       \r\n                  755-        PARAM   G       .05                                                             \r\n                  756-        PDAMP   401     6.283185                                                        \r\n                  757-        PELAS   101     1.0+07  .05     10.0                                            \r\n                  758-        PMASS   301     10.0                                                            \r\n                              ENDDATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION DAMP3    ELEMENTS (ELEMENT TYPE  22) STARTING WITH ID    60002\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS3    ELEMENTS (ELEMENT TYPE  13) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS3    ELEMENTS (ELEMENT TYPE  27) STARTING WITH ID    40002\r\n0*** USER WARNING MESSAGE 3150\r\n\r\n     DESIRED NUMBER OF EIGENVALUES       0   INVALID. SET = 1.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    0     CBAR =    0\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH1 (N =   499)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3165\r\n\r\n         3 SOLUTIONS HAVE BEEN ACCEPTED AND   9 SOLUTIONS HAVE BEEN REJECTED.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3166\r\n\r\n     2 MORE ACCURATE EIGENSOLUTIONS THAN THE    1 REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD  1 OF  1\r\n\r\n     CENTERED AT  -1.00000000D+00  1.20000000D+01. USE DIAG 12 TO DETERMINE ERROR ESTIMATES.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3160\r\n\r\n     MINIMUM OPEN CORE NOT USED BY FEER  1956994 WORDS (     7827K BYTES).\r\n\r\n\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                       C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (FEER METHOD)\r\n0\r\n0\r\n0                                   NUMBER OF EIGENVALUES EXTRACTED  . . . . . . . . .        3\r\n0                                   NUMBER OF STARTING POINTS USED . . . . . . . . . .        1\r\n0                                   NUMBER OF STARTING POINT OR SHIFT POINT MOVES  . .        0\r\n0                                   TOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .        1\r\n0                                   TOTAL NUMBER OF VECTOR ITERATIONS  . . . . . . . .       11\r\n0\r\n0                                   REASON FOR TERMINATION . . . . . . . . . . . . . .        0*\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.7.3)\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                        C O M P L E X   E I G E N V A L U E   S U M M A R Y\r\n0                ROOT     EXTRACTION                  EIGENVALUE                     FREQUENCY              DAMPING\r\n                  NO.        ORDER             (REAL)           (IMAG)                (CYCLES)            COEFFICIENT\r\n                      1           2         -6.283178E-01     6.283177E+00          9.999987E-01          2.000000E-01              \r\n                      2           1         -9.418869E-01     1.257803E+01          2.001856E+00          1.497670E-01              \r\n                      3           3         -1.255580E+00     1.887015E+01          3.003278E+00          1.330758E-01              \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK QPC      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -6.283178E-01,  6.283177E+00    (CYCLIC FREQUENCY =  9.999987E-01HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S      3.090176E-01                                                                                             \r\n                          -3.698150E-07                                                                                             \r\n0          101      S      5.877853E-01                                                                                             \r\n                           8.813436E-08                                                                                             \r\n0          151      S      8.090159E-01                                                                                             \r\n                           1.944262E-07                                                                                             \r\n0          201      S      9.510561E-01                                                                                             \r\n                           4.378122E-08                                                                                             \r\n0          251      S      1.000000E+00                                                                                             \r\n                           0.0                                                                                                      \r\n0          301      S      9.510566E-01                                                                                             \r\n                          -2.280782E-07                                                                                             \r\n0          351      S      8.090177E-01                                                                                             \r\n                          -4.654652E-07                                                                                             \r\n0          401      S      5.877855E-01                                                                                             \r\n                          -1.366458E-07                                                                                             \r\n0          451      S      3.090166E-01                                                                                             \r\n                           2.995830E-07                                                                                             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -9.418869E-01,  1.257803E+01    (CYCLIC FREQUENCY =  2.001856E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S      5.877852E-01                                                                                             \r\n                           4.561104E-08                                                                                             \r\n0          101      S      9.510566E-01                                                                                             \r\n                           6.643128E-08                                                                                             \r\n0          151      S      9.510565E-01                                                                                             \r\n                           4.098018E-08                                                                                             \r\n0          201      S      5.877852E-01                                                                                             \r\n                          -1.095674E-08                                                                                             \r\n0          251      S     -5.732428E-10                                                                                             \r\n                          -1.768000E-09                                                                                             \r\n0          301      S     -5.877852E-01                                                                                             \r\n                          -2.015995E-08                                                                                             \r\n0          351      S     -9.510565E-01                                                                                             \r\n                          -1.552909E-08                                                                                             \r\n0          401      S     -9.510565E-01                                                                                             \r\n                          -4.664578E-08                                                                                             \r\n0          451      S     -5.877853E-01                                                                                             \r\n                           1.662234E-08                                                                                             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -1.255580E+00,  1.887015E+01    (CYCLIC FREQUENCY =  3.003278E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S     -8.090212E-01                                                                                             \r\n                           3.180331E-06                                                                                             \r\n0          101      S     -9.510600E-01                                                                                             \r\n                           1.012757E-06                                                                                             \r\n0          151      S     -3.090076E-01                                                                                             \r\n                          -3.094987E-06                                                                                             \r\n0          201      S      5.877863E-01                                                                                             \r\n                           3.051199E-07                                                                                             \r\n0          251      S      1.000000E+00                                                                                             \r\n                           0.0                                                                                                      \r\n0          301      S      5.877882E-01                                                                                             \r\n                           5.469935E-07                                                                                             \r\n0          351      S     -3.090219E-01                                                                                             \r\n                           5.589221E-06                                                                                             \r\n0          401      S     -9.510580E-01                                                                                             \r\n                           1.454733E-06                                                                                             \r\n0          451      S     -8.090148E-01                                                                                             \r\n                          -3.636868E-06                                                                                             \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPLEX EIGENVALUES OF A 500 CELL STRING                           \r\n DATE:  5/17/95\r\n END TIME: 15:53:26\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d07012a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D07012A,NASTRAN                                                           \r\n     TIME  15                                                                        \r\n     APP   DISP                                                                      \r\n     SOL   7,1                                                                       \r\n     DIAG  14                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\n     EQUIV   G2,GEOM2/TRUE $                                                         \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPLEX EIGENVALUES OF A 500 CELL STRING                             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                          \r\n                  3       CMETHOD = 1 $ FEER                                                             \r\n                  4      OUTPUT                                                                          \r\n                  5         SET 1 = 1,51,101,151,201,251,301,351,401,451,501                             \r\n                  6          DISP = 1                                                                    \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =     5, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        EIGC    1       FEER    MAX                                             +CFEER  \r\n                    2-        +CFEER  -1.0    12.0                                                            \r\n                    3-        EIGC    7       DET     MAX                     1.0-5                   +EIGC7  \r\n                    4-        +EIGC7  -.5     5.0     -.9     16.0    10.0    2       2                       \r\n                    5-        PARAM   G       .10                                                             \r\n                              ENDDATA\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $     \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,,,,/,G2,,,/C,N,5 $                                             \r\n\r\n       1  EQUIV   G2,GEOM2/TRUE $                                                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     GOD=SAVE/GMD=SAVE $                                            \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/MINUS1=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS, \r\n                   ELSETS/NOGPDT $                                                \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $                         \r\n\r\n      21  PRTMSG   PLOTX1// $                                                     \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS $                                                    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N, \r\n                   NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/           \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/MINUS1 $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR3,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $                      \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $       \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  COND     LBLM,NOMGG $                                                   \r\n\r\n      78  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      79  LABEL    LBLM $                                                         \r\n\r\n      80  COND     LBLB,NOBGG $                                                   \r\n\r\n      81  SMP2     USET,GO,BFF/BAA $                                              \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  LABEL    LBLB $                                                         \r\n\r\n      83  COND     LBL5,NOK4GG $                                                  \r\n\r\n      84  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      85  LABEL    LBL5 $                                                         \r\n\r\n      86  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $                          \r\n\r\n      87  COND     ERROR1,NOEED $                                                 \r\n\r\n      88  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      89  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      90  PARAM    //*MPY*/REPEATE/1/-1 $                                         \r\n\r\n      91  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      92  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      93  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      94  COND     LBL13,NOFL $                                                   \r\n\r\n      95  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      96  LABEL    LBL13 $                                                        \r\n\r\n      97  PURGE    PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC,           \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n      98  CASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $                \r\n\r\n      99  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     100  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     101  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     102  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     103  COND     LBLFL2,NOFL $                                                  \r\n\r\n     104  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     105  COND     LBLFL2,NOABFL $                                                \r\n\r\n     106  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     107  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     108  LABEL    LBLFL2 $                                                       \r\n\r\n     109  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     110  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     111  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     112  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     113  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                    MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                 \r\n\r\n     114  COND     LBL18,NOGPDT $                                                 \r\n\r\n     115  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/         \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     116  LABEL    LBL18 $                                                        \r\n\r\n     117  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     118  CEAD     KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $          \r\n\r\n     119  OFP      OCEIGS,CLAMA,,,,//S,N,CARDNO $                                 \r\n\r\n     120  COND     LBL16,EIGVS $                                                  \r\n\r\n     121  VDR      CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/       \r\n                   0/S,N,NOD/S,N,NOP/0 $                                          \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     122  COND     LBL15,NOD $                                                    \r\n\r\n     123  OFP      OPHID,,,,,//S,N,CARDNO $                                       \r\n\r\n     124  LABEL    LBL15 $                                                        \r\n\r\n     125  COND     LBL16,NOP $                                                    \r\n\r\n     126  EQUIV    PHID,CPHIP/NOA $                                               \r\n\r\n     127  COND     LBL17,NOA $                                                    \r\n\r\n     128  SDR1     USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $        \r\n\r\n     129  LABEL    LBL17 $                                                        \r\n\r\n     130  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/      \r\n                   ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $                          \r\n\r\n     131  OFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $                       \r\n\r\n     132  LABEL    LBL16 $                                                        \r\n\r\n     136  JUMP     FINIS $                                                        \r\n\r\n     137  LABEL    ERROR1 $                                                       \r\n\r\n     138  PRTPARM  //-1/*DIRCEAD* $                                               \r\n\r\n     139  LABEL    ERROR3 $                                                       \r\n\r\n     140  PRTPARM  //-3/*DIRCEAD* $                                               \r\n\r\n     141  LABEL    FINIS $                                                        \r\n\r\n     142  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     143  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                          500 1.0E+07 0.0E+00 1.0E+01 6.3E+00\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION DAMP4    ELEMENTS (ELEMENT TYPE  23) STARTING WITH ID  2000002\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS4    ELEMENTS (ELEMENT TYPE  14) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS4    ELEMENTS (ELEMENT TYPE  28) STARTING WITH ID  1000002\r\n0*** USER WARNING MESSAGE 3150\r\n\r\n     DESIRED NUMBER OF EIGENVALUES       0   INVALID. SET = 1.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    0     CBAR =    0\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH1 (N =   499)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3165\r\n\r\n         3 SOLUTIONS HAVE BEEN ACCEPTED AND   9 SOLUTIONS HAVE BEEN REJECTED.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3166\r\n\r\n     2 MORE ACCURATE EIGENSOLUTIONS THAN THE    1 REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD  1 OF  1\r\n\r\n     CENTERED AT  -1.00000000D+00  1.20000000D+01. USE DIAG 12 TO DETERMINE ERROR ESTIMATES.\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3160\r\n\r\n     MINIMUM OPEN CORE NOT USED BY FEER  1956994 WORDS (     7827K BYTES).\r\n\r\n\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                       C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (FEER METHOD)\r\n0\r\n0\r\n0                                   NUMBER OF EIGENVALUES EXTRACTED  . . . . . . . . .        3\r\n0                                   NUMBER OF STARTING POINTS USED . . . . . . . . . .        1\r\n0                                   NUMBER OF STARTING POINT OR SHIFT POINT MOVES  . .        0\r\n0                                   TOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .        1\r\n0                                   TOTAL NUMBER OF VECTOR ITERATIONS  . . . . . . . .       11\r\n0\r\n0                                   REASON FOR TERMINATION . . . . . . . . . . . . . .        0*\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.7.3)\r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                        C O M P L E X   E I G E N V A L U E   S U M M A R Y\r\n0                ROOT     EXTRACTION                  EIGENVALUE                     FREQUENCY              DAMPING\r\n                  NO.        ORDER             (REAL)           (IMAG)                (CYCLES)            COEFFICIENT\r\n                      1           2         -6.291610E-01     6.283138E+00          9.999925E-01          2.002697E-01              \r\n                      2           1         -9.427287E-01     1.257801E+01          2.001853E+00          1.499010E-01              \r\n                      3           3         -1.256423E+00     1.887015E+01          3.003278E+00          1.331652E-01              \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -6.291610E-01,  6.283138E+00    (CYCLIC FREQUENCY =  9.999925E-01HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S      3.090178E-01                                                                                             \r\n                          -2.708081E-07                                                                                             \r\n0          101      S      5.877855E-01                                                                                             \r\n                           1.741698E-07                                                                                             \r\n0          151      S      8.090159E-01                                                                                             \r\n                           2.492660E-07                                                                                             \r\n0          201      S      9.510562E-01                                                                                             \r\n                           4.779254E-08                                                                                             \r\n0          251      S      1.000000E+00                                                                                             \r\n                           0.0                                                                                                      \r\n0          301      S      9.510567E-01                                                                                             \r\n                          -1.930243E-07                                                                                             \r\n0          351      S      8.090178E-01                                                                                             \r\n                          -3.785461E-07                                                                                             \r\n0          401      S      5.877855E-01                                                                                             \r\n                          -5.418331E-08                                                                                             \r\n0          451      S      3.090166E-01                                                                                             \r\n                           3.527991E-07                                                                                             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -9.427287E-01,  1.257801E+01    (CYCLIC FREQUENCY =  2.001853E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S     -5.877852E-01                                                                                             \r\n                           1.598926E-08                                                                                             \r\n0          101      S     -9.510565E-01                                                                                             \r\n                          -6.663403E-08                                                                                             \r\n0          151      S     -9.510565E-01                                                                                             \r\n                          -1.006823E-08                                                                                             \r\n0          201      S     -5.877852E-01                                                                                             \r\n                          -1.512422E-08                                                                                             \r\n0          251      S      4.733862E-09                                                                                             \r\n                          -2.046830E-09                                                                                             \r\n0          301      S      5.877852E-01                                                                                             \r\n                           1.512422E-08                                                                                             \r\n0          351      S      9.510565E-01                                                                                             \r\n                           4.118171E-08                                                                                             \r\n0          401      S      9.510565E-01                                                                                             \r\n                           4.118171E-08                                                                                             \r\n0          451      S      5.877852E-01                                                                                             \r\n                           9.463058E-09                                                                                             \r\n1     COMPLEX EIGENVALUES OF A 500 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      COMPLEX EIGENVALUE = -1.256423E+00,  1.887015E+01    (CYCLIC FREQUENCY =  3.003278E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           51      S     -8.090213E-01                                                                                             \r\n                           3.231901E-06                                                                                             \r\n0          101      S     -9.510603E-01                                                                                             \r\n                           1.040824E-06                                                                                             \r\n0          151      S     -3.090079E-01                                                                                             \r\n                          -3.091190E-06                                                                                             \r\n0          201      S      5.877863E-01                                                                                             \r\n                           2.610405E-07                                                                                             \r\n0          251      S      1.000000E+00                                                                                             \r\n                           0.0                                                                                                      \r\n0          301      S      5.877883E-01                                                                                             \r\n                           5.838824E-07                                                                                             \r\n0          351      S     -3.090220E-01                                                                                             \r\n                           5.590288E-06                                                                                             \r\n0          401      S     -9.510583E-01                                                                                             \r\n                           1.446354E-06                                                                                             \r\n0          451      S     -8.090150E-01                                                                                             \r\n                          -3.641407E-06                                                                                             \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPLEX EIGENVALUES OF A 500 CELL STRING                           \r\n DATE:  5/17/95\r\n END TIME: 15:54:14\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d07021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D07021A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   7,3                                                                       \r\n     TIME  100                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                          \r\n                  3      LABEL    = HARMONIC 3 USING 1/12 SYMMETRY.                                      \r\n                  4       CMETHOD = 1                                                                    \r\n                  5           SPC = 3                                                                    \r\n                  6       AXISYMMETRIC = FLUID                                                           \r\n                  7      OUTPUT                                                                          \r\n                  8          HARMONICS = 3                                                               \r\n                  9            SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                  \r\n                 10                      106,107, 122,123, 138,139, 154,155, 170,171                     \r\n                 11       DISPLACEMENT = 100                                                             \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   293, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIF    1       .0      1.8-2   2.88+3  NO                              +AXIF   \r\n                    2-        +AXIF   3                                                                       \r\n                    3-        BDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n                    4-        +BDY-1  122     138     154     170                                             \r\n                    5-        CFLUID2 1001    17      1                                                       \r\n                    6-        CFLUID2 2001    33      17                                                      \r\n                    7-        CFLUID2 3001    49      33                                                      \r\n                    8-        CFLUID2 4001    65      49                                                      \r\n                    9-        CFLUID2 5001    81      65                                                      \r\n                   10-        CFLUID2 6001    97      81                                                      \r\n                   11-        CFLUID2 7001    113     97                                                      \r\n                   12-        CFLUID2 8001    129     113                                                     \r\n                   13-        CFLUID2 9001    145     129                                                     \r\n                   14-        CFLUID2 10001   161     145                                                     \r\n                   15-        CFLUID4 1002    18      2       1       17                                      \r\n                   16-        CFLUID4 1003    19      3       2       18                                      \r\n                   17-        CFLUID4 1004    20      4       3       19                                      \r\n                   18-        CFLUID4 1005    21      5       4       20                                      \r\n                   19-        CFLUID4 1006    22      6       5       21                                      \r\n                   20-        CFLUID4 1007    23      7       6       22                                      \r\n                   21-        CFLUID4 1008    24      8       7       23                                      \r\n                   22-        CFLUID4 1009    25      9       8       24                                      \r\n                   23-        CFLUID4 1010    26      10      9       25                                      \r\n                   24-        CFLUID4 2002    34      18      17      33                                      \r\n                   25-        CFLUID4 2003    35      19      18      34                                      \r\n                   26-        CFLUID4 2004    36      20      19      35                                      \r\n                   27-        CFLUID4 2005    37      21      20      36                                      \r\n                   28-        CFLUID4 2006    38      22      21      37                                      \r\n                   29-        CFLUID4 2007    39      23      22      38                                      \r\n                   30-        CFLUID4 2008    40      24      23      39                                      \r\n                   31-        CFLUID4 2009    41      25      24      40                                      \r\n                   32-        CFLUID4 2010    42      26      25      41                                      \r\n                   33-        CFLUID4 3002    50      34      33      49                                      \r\n                   34-        CFLUID4 3003    51      35      34      50                                      \r\n                   35-        CFLUID4 3004    52      36      35      51                                      \r\n                   36-        CFLUID4 3005    53      37      36      52                                      \r\n                   37-        CFLUID4 3006    54      38      37      53                                      \r\n                   38-        CFLUID4 3007    55      39      38      54                                      \r\n                   39-        CFLUID4 3008    56      40      39      55                                      \r\n                   40-        CFLUID4 3009    57      41      40      56                                      \r\n                   41-        CFLUID4 3010    58      42      41      57                                      \r\n                   42-        CFLUID4 4002    66      50      49      65                                      \r\n                   43-        CFLUID4 4003    67      51      50      66                                      \r\n                   44-        CFLUID4 4004    68      52      51      67                                      \r\n                   45-        CFLUID4 4005    69      53      52      68                                      \r\n                   46-        CFLUID4 4006    70      54      53      69                                      \r\n                   47-        CFLUID4 4007    71      55      54      70                                      \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CFLUID4 4008    72      56      55      71                                      \r\n                   49-        CFLUID4 4009    73      57      56      72                                      \r\n                   50-        CFLUID4 4010    74      58      57      73                                      \r\n                   51-        CFLUID4 5002    82      66      65      81                                      \r\n                   52-        CFLUID4 5003    83      67      66      82                                      \r\n                   53-        CFLUID4 5004    84      68      67      83                                      \r\n                   54-        CFLUID4 5005    85      69      68      84                                      \r\n                   55-        CFLUID4 5006    86      70      69      85                                      \r\n                   56-        CFLUID4 5007    87      71      70      86                                      \r\n                   57-        CFLUID4 5008    88      72      71      87                                      \r\n                   58-        CFLUID4 5009    89      73      72      88                                      \r\n                   59-        CFLUID4 5010    90      74      73      89                                      \r\n                   60-        CFLUID4 6002    98      82      81      97                                      \r\n                   61-        CFLUID4 6003    99      83      82      98                                      \r\n                   62-        CFLUID4 6004    100     84      83      99                                      \r\n                   63-        CFLUID4 6005    101     85      84      100                                     \r\n                   64-        CFLUID4 6006    102     86      85      101                                     \r\n                   65-        CFLUID4 6007    103     87      86      102                                     \r\n                   66-        CFLUID4 6008    104     88      87      103                                     \r\n                   67-        CFLUID4 6009    105     89      88      104                                     \r\n                   68-        CFLUID4 6010    106     90      89      105                                     \r\n                   69-        CFLUID4 7002    114     98      97      113                                     \r\n                   70-        CFLUID4 7003    115     99      98      114                                     \r\n                   71-        CFLUID4 7004    116     100     99      115                                     \r\n                   72-        CFLUID4 7005    117     101     100     116                                     \r\n                   73-        CFLUID4 7006    118     102     101     117                                     \r\n                   74-        CFLUID4 7007    119     103     102     118                                     \r\n                   75-        CFLUID4 7008    120     104     103     119                                     \r\n                   76-        CFLUID4 7009    121     105     104     120                                     \r\n                   77-        CFLUID4 7010    122     106     105     121                                     \r\n                   78-        CFLUID4 8002    130     114     113     129                                     \r\n                   79-        CFLUID4 8003    131     115     114     130                                     \r\n                   80-        CFLUID4 8004    132     116     115     131                                     \r\n                   81-        CFLUID4 8005    133     117     116     132                                     \r\n                   82-        CFLUID4 8006    134     118     117     133                                     \r\n                   83-        CFLUID4 8007    135     119     118     134                                     \r\n                   84-        CFLUID4 8008    136     120     119     135                                     \r\n                   85-        CFLUID4 8009    137     121     120     136                                     \r\n                   86-        CFLUID4 8010    138     122     121     137                                     \r\n                   87-        CFLUID4 9002    146     130     129     145                                     \r\n                   88-        CFLUID4 9003    147     131     130     146                                     \r\n                   89-        CFLUID4 9004    148     132     131     147                                     \r\n                   90-        CFLUID4 9005    149     133     132     148                                     \r\n                   91-        CFLUID4 9006    150     134     133     149                                     \r\n                   92-        CFLUID4 9007    151     135     134     150                                     \r\n                   93-        CFLUID4 9008    152     136     135     151                                     \r\n                   94-        CFLUID4 9009    153     137     136     152                                     \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CFLUID4 9010    154     138     137     153                                     \r\n                   96-        CFLUID4 10002   162     146     145     161                                     \r\n                   97-        CFLUID4 10003   163     147     146     162                                     \r\n                   98-        CFLUID4 10004   164     148     147     163                                     \r\n                   99-        CFLUID4 10005   165     149     148     164                                     \r\n                  100-        CFLUID4 10006   166     150     149     165                                     \r\n                  101-        CFLUID4 10007   167     151     150     166                                     \r\n                  102-        CFLUID4 10008   168     152     151     167                                     \r\n                  103-        CFLUID4 10009   169     153     152     168                                     \r\n                  104-        CFLUID4 10010   170     154     153     169                                     \r\n                  105-        CORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n                  106-        +CORD2C 1.0     .0      .0                                                      \r\n                  107-        CQUAD1  1011    1       27      28      12      11                              \r\n                  108-        CQUAD1  1012    1       28      29      13      12                              \r\n                  109-        CQUAD1  1013    1       29      30      14      13                              \r\n                  110-        CQUAD1  1014    1       30      31      15      14                              \r\n                  111-        CQUAD1  1015    1       31      32      16      15                              \r\n                  112-        CQUAD1  2011    1       43      44      28      27                              \r\n                  113-        CQUAD1  2012    1       44      45      29      28                              \r\n                  114-        CQUAD1  2013    1       45      46      30      29                              \r\n                  115-        CQUAD1  2014    1       46      47      31      30                              \r\n                  116-        CQUAD1  2015    1       47      48      32      31                              \r\n                  117-        CQUAD1  3011    1       59      60      44      43                              \r\n                  118-        CQUAD1  3012    1       60      61      45      44                              \r\n                  119-        CQUAD1  3013    1       61      62      46      45                              \r\n                  120-        CQUAD1  3014    1       62      63      47      46                              \r\n                  121-        CQUAD1  3015    1       63      64      48      47                              \r\n                  122-        CQUAD1  4011    1       75      76      60      59                              \r\n                  123-        CQUAD1  4012    1       76      77      61      60                              \r\n                  124-        CQUAD1  4013    1       77      78      62      61                              \r\n                  125-        CQUAD1  4014    1       78      79      63      62                              \r\n                  126-        CQUAD1  4015    1       79      80      64      63                              \r\n                  127-        CQUAD1  5011    1       91      92      76      75                              \r\n                  128-        CQUAD1  5012    1       92      93      77      76                              \r\n                  129-        CQUAD1  5013    1       93      94      78      77                              \r\n                  130-        CQUAD1  5014    1       94      95      79      78                              \r\n                  131-        CQUAD1  5015    1       95      96      80      79                              \r\n                  132-        CQUAD1  6011    1       107     108     92      91                              \r\n                  133-        CQUAD1  6012    1       108     109     93      92                              \r\n                  134-        CQUAD1  6013    1       109     110     94      93                              \r\n                  135-        CQUAD1  6014    1       110     111     95      94                              \r\n                  136-        CQUAD1  6015    1       111     112     96      95                              \r\n                  137-        CQUAD1  7011    1       123     124     108     107                             \r\n                  138-        CQUAD1  7012    1       124     125     109     108                             \r\n                  139-        CQUAD1  7013    1       125     126     110     109                             \r\n                  140-        CQUAD1  7014    1       126     127     111     110                             \r\n                  141-        CQUAD1  7015    1       127     128     112     111                             \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQUAD1  8011    1       139     140     124     123                             \r\n                  143-        CQUAD1  8012    1       140     141     125     124                             \r\n                  144-        CQUAD1  8013    1       141     142     126     125                             \r\n                  145-        CQUAD1  8014    1       142     143     127     126                             \r\n                  146-        CQUAD1  8015    1       143     144     128     127                             \r\n                  147-        CQUAD1  9011    1       155     156     140     139                             \r\n                  148-        CQUAD1  9012    1       156     157     141     140                             \r\n                  149-        CQUAD1  9013    1       157     158     142     141                             \r\n                  150-        CQUAD1  9014    1       158     159     143     142                             \r\n                  151-        CQUAD1  9015    1       159     160     144     143                             \r\n                  152-        CQUAD1  10011   1       171     172     156     155                             \r\n                  153-        CQUAD1  10012   1       172     173     157     156                             \r\n                  154-        CQUAD1  10013   1       173     174     158     157                             \r\n                  155-        CQUAD1  10014   1       174     175     159     158                             \r\n                  156-        CQUAD1  10015   1       175     176     160     159                             \r\n                  157-        EIGC    1       DET     MAX                                             +EIGC   \r\n                  158-        +EIGC   .1      9.8     .1      10.8    1.0     1       1                       \r\n                  159-        FLSYM   12      S       A                                                       \r\n                  160-        FSLIST          AXIS    1       2       3       4       5       6       +FSL-2  \r\n                  161-        +FSL-2  7       8       9       10                                              \r\n                  162-        FSLIST          170     169     168     167     166     165     164     +FSL-1  \r\n                  163-        +FSL-1  163     162     161     AXIS                                            \r\n                  164-        GRIDB   11                      .00             1               10              \r\n                  165-        GRIDB   12                      6.00000         1               10              \r\n                  166-        GRIDB   13                      12.0000         1               10              \r\n                  167-        GRIDB   14                      18.0000         1               10              \r\n                  168-        GRIDB   15                      24.0000         1               10              \r\n                  169-        GRIDB   16                      30.0000         1               10              \r\n                  170-        GRIDB   27                      .00             1               26              \r\n                  171-        GRIDB   28                      6.00000         1               26              \r\n                  172-        GRIDB   29                      12.0000         1               26              \r\n                  173-        GRIDB   30                      18.0000         1               26              \r\n                  174-        GRIDB   31                      24.0000         1               26              \r\n                  175-        GRIDB   32                      30.0000         1               26              \r\n                  176-        GRIDB   43                      .00             1               42              \r\n                  177-        GRIDB   44                      6.00000         1               42              \r\n                  178-        GRIDB   45                      12.0000         1               42              \r\n                  179-        GRIDB   46                      18.0000         1               42              \r\n                  180-        GRIDB   47                      24.0000         1               42              \r\n                  181-        GRIDB   48                      30.0000         1               42              \r\n                  182-        GRIDB   59                      .00             1               58              \r\n                  183-        GRIDB   60                      6.00000         1               58              \r\n                  184-        GRIDB   61                      12.0000         1               58              \r\n                  185-        GRIDB   62                      18.0000         1               58              \r\n                  186-        GRIDB   63                      24.0000         1               58              \r\n                  187-        GRIDB   64                      30.0000         1               58              \r\n                  188-        GRIDB   75                      .00             1               74              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRIDB   76                      6.00000         1               74              \r\n                  190-        GRIDB   77                      12.0000         1               74              \r\n                  191-        GRIDB   78                      18.0000         1               74              \r\n                  192-        GRIDB   79                      24.0000         1               74              \r\n                  193-        GRIDB   80                      30.0000         1               74              \r\n                  194-        GRIDB   91                      .00             1               90              \r\n                  195-        GRIDB   92                      6.00000         1               90              \r\n                  196-        GRIDB   93                      12.0000         1               90              \r\n                  197-        GRIDB   94                      18.0000         1               90              \r\n                  198-        GRIDB   95                      24.0000         1               90              \r\n                  199-        GRIDB   96                      30.0000         1               90              \r\n                  200-        GRIDB   107                     .00             1               106             \r\n                  201-        GRIDB   108                     6.00000         1               106             \r\n                  202-        GRIDB   109                     12.0000         1               106             \r\n                  203-        GRIDB   110                     18.0000         1               106             \r\n                  204-        GRIDB   111                     24.0000         1               106             \r\n                  205-        GRIDB   112                     30.0000         1               106             \r\n                  206-        GRIDB   123                     .00             1               122             \r\n                  207-        GRIDB   124                     6.00000         1               122             \r\n                  208-        GRIDB   125                     12.0000         1               122             \r\n                  209-        GRIDB   126                     18.0000         1               122             \r\n                  210-        GRIDB   127                     24.0000         1               122             \r\n                  211-        GRIDB   128                     30.0000         1               122             \r\n                  212-        GRIDB   139                     .00             1               138             \r\n                  213-        GRIDB   140                     6.00000         1               138             \r\n                  214-        GRIDB   141                     12.0000         1               138             \r\n                  215-        GRIDB   142                     18.0000         1               138             \r\n                  216-        GRIDB   143                     24.0000         1               138             \r\n                  217-        GRIDB   144                     30.0000         1               138             \r\n                  218-        GRIDB   155                     .00             1               154             \r\n                  219-        GRIDB   156                     6.00000         1               154             \r\n                  220-        GRIDB   157                     12.0000         1               154             \r\n                  221-        GRIDB   158                     18.0000         1               154             \r\n                  222-        GRIDB   159                     24.0000         1               154             \r\n                  223-        GRIDB   160                     30.0000         1               154             \r\n                  224-        GRIDB   171                     .00             1               170             \r\n                  225-        GRIDB   172                     6.00000         1               170             \r\n                  226-        GRIDB   173                     12.0000         1               170             \r\n                  227-        GRIDB   174                     18.0000         1               170             \r\n                  228-        GRIDB   175                     24.0000         1               170             \r\n                  229-        GRIDB   176                     30.0000         1               170             \r\n                  230-        MAT1    2       1.6+5   6.0+4           6.0-2                                   \r\n                  231-        PQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n                  232-        +PQUAD1 .0      .005                                                            \r\n                  233-        RINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\n                  234-        RINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\n                  235-        RINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        RINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\n                  237-        RINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\n                  238-        RINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\n                  239-        RINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\n                  240-        RINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\n                  241-        RINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\n                  242-        RINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\n                  243-        RINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\n                  244-        RINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\n                  245-        RINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\n                  246-        RINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\n                  247-        RINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\n                  248-        RINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\n                  249-        RINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\n                  250-        RINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\n                  251-        RINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\n                  252-        RINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\n                  253-        RINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\n                  254-        RINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\n                  255-        RINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\n                  256-        RINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\n                  257-        RINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\n                  258-        RINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\n                  259-        RINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\n                  260-        RINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\n                  261-        RINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\n                  262-        RINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\n                  263-        RINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\n                  264-        RINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\n                  265-        RINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\n                  266-        RINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\n                  267-        RINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\n                  268-        RINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\n                  269-        RINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\n                  270-        RINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\n                  271-        RINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\n                  272-        RINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\n                  273-        RINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\n                  274-        RINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\n                  275-        RINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\n                  276-        RINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\n                  277-        RINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\n                  278-        RINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\n                  279-        RINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\n                  280-        RINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\n                  281-        RINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\n                  282-        RINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        RINGFL  161     1.00000         .00     162     2.00000         .00             \r\n                  284-        RINGFL  163     3.00000         .00     164     4.00000         .00             \r\n                  285-        RINGFL  165     5.00000         .00     166     6.00000         .00             \r\n                  286-        RINGFL  167     7.00000         .00     168     8.00000         .00             \r\n                  287-        RINGFL  169     9.00000         .00     170     10.0000         .00             \r\n                  288-        SPC1    3       126     11      12      13      14      15      16      H=3     \r\n                  289-        SPC1    3       126     171     172     173     174     175     176     H=3     \r\n                  290-        SPC1    3       135     16      32      48      64      80      96      H=3     \r\n                  291-        SPC1    3       135     112     128     144     160     176             H=3     \r\n                  292-        SPC1    3       246     11      27      43      59      75      91      H=3     \r\n                  293-        SPC1    3       246     107     123     139     155     171             H=3     \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC FLUID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID2   ELEMENTS (ELEMENT TYPE  43) STARTING WITH ID  1001008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID4   ELEMENTS (ELEMENT TYPE  45) STARTING WITH ID  1002008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLMASS   ELEMENTS (ELEMENT TYPE  46) STARTING WITH ID  1000008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID     1011\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n\r\n      HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   26     BBAR =   41\r\n                                        C =   25     CBAR =    9\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   390)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        1\r\n0                                       NUMBER OF PASSES THROUGH STARTING POINTS . .        1\r\n0                                       NUMBER OF CRITERIA CHANGES . . . . . . . . .        0\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .        0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .        9\r\n0                                       NUMBER OF FAILURES TO ITERATE TO A ROOT  . .        0\r\n0                                       NUMBER OF PREDICTIONS OUTSIDE REGION . . . .        0\r\n0\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .        1*\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.7.3)\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0                                        S W E P T   D E T E R M I N A N T   F U N C T I O N\r\n\r\n                                          - P -                                   - DET(P) -\r\n          STARTING POINT          REAL             IMAG                    MAGNITUDE         PHASE     SCALE FACTOR\r\n                    1          1.000000E-01    9.925000E+00              8.967416E+00         3.2910        394                     \r\n                    2          1.000000E-01    1.017500E+01              7.744371E+00         3.4323        394                     \r\n                    3          1.000000E-01    1.042500E+01              6.645852E+00         3.5820        394                     \r\n                    4          1.000000E-01    1.067500E+01              0.0                  0.0                                   \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n \r\n                                        C O M P L E X   E I G E N V A L U E   S U M M A R Y\r\n0                ROOT     EXTRACTION                  EIGENVALUE                     FREQUENCY              DAMPING\r\n                  NO.        ORDER             (REAL)           (IMAG)                (CYCLES)            COEFFICIENT\r\n                      1           1          4.592091E-15     1.002093E+01          1.594880E+00         -9.165003E-16              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n      COMPLEX EIGENVALUE =  4.592091E-15,  1.002093E+01    (CYCLIC FREQUENCY =  1.594880E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           11      G      0.0            0.0            1.161377E-02   0.0           -7.186808E-02   0.0                           \r\n                           0.0            0.0           -2.326366E-15   0.0            4.117336E-12   0.0                           \r\n0           27      G      7.085057E-02   0.0            1.104535E-02   0.0           -6.835061E-02   0.0                           \r\n                          -1.178238E-13   0.0           -1.570706E-15   0.0           -1.461604E-12   0.0                           \r\n0           43      G      1.347658E-01   0.0            9.395737E-03   0.0           -5.814250E-02   0.0                           \r\n                          -5.890827E-14   0.0           -6.915944E-16   0.0            1.317430E-12   0.0                           \r\n0           59      G      1.854892E-01   0.0            6.826403E-03   0.0           -4.224300E-02   0.0                           \r\n                          -8.502950E-14   0.0           -6.911596E-16   0.0           -1.307094E-12   0.0                           \r\n0           75      G      2.180556E-01   0.0            3.588852E-03   0.0           -2.220846E-02   0.0                           \r\n                          -1.139714E-13   0.0           -5.256428E-16   0.0           -7.959817E-13   0.0                           \r\n0           91      G      2.292773E-01   0.0           -1.895204E-15   0.0           -5.027729E-11   0.0                           \r\n                          -1.294711E-13   0.0            2.571127E-17   0.0            9.520798E-13   0.0                           \r\n0           92      G      2.180656E-01  -1.896995E-02  -1.016390E-14  -4.119590E-09  -1.708484E-11   1.924441E-02                  \r\n                           3.937864E-14   4.823519E-15   1.915965E-16   7.800572E-11   3.229827E-13  -4.773225E-13                  \r\n0           93      G      1.855030E-01  -3.608377E-02   7.751169E-15   1.471785E-09   7.660970E-12   3.666915E-02                  \r\n                           6.911968E-14  -6.575531E-16  -9.938799E-17  -2.973011E-11  -1.529058E-13  -1.010091E-12                  \r\n0           94      G      1.347438E-01  -4.966391E-02   5.752503E-15  -7.501391E-09   2.911956E-11   5.044576E-02                  \r\n                           2.582273E-14  -5.289248E-15  -1.705267E-16   1.430719E-10  -5.821752E-13  -2.232975E-13                  \r\n0           95      G      7.084744E-02  -5.838190E-02  -1.872563E-14  -3.217726E-09  -9.124673E-12   5.926369E-02                  \r\n                          -1.073888E-13  -7.344981E-16   3.723785E-16   5.997366E-11   1.038686E-13   5.958968E-13                  \r\n0           96      G      0.0           -6.138620E-02   0.0           -3.030095E-08   0.0            6.235021E-02                  \r\n                           0.0            5.050047E-15   0.0            5.735971E-10   0.0           -1.545998E-13                  \r\n0          107      G      2.180556E-01   0.0           -3.588852E-03   0.0            2.220846E-02   0.0                           \r\n                          -1.272063E-13   0.0            5.313474E-16   0.0           -2.316317E-13   0.0                           \r\n0          123      G      1.854892E-01   0.0           -6.826403E-03   0.0            4.224300E-02   0.0                           \r\n                          -1.138986E-13   0.0            1.092284E-15   0.0           -3.855338E-13   0.0                           \r\n0          139      G      1.347658E-01   0.0           -9.395737E-03   0.0            5.814250E-02   0.0                           \r\n                          -6.469016E-14   0.0            1.256983E-15   0.0            3.338869E-15   0.0                           \r\n0          155      G      7.085057E-02   0.0           -1.104535E-02   0.0            6.835061E-02   0.0                           \r\n                          -4.955990E-14   0.0            1.287111E-15   0.0           -7.176929E-13   0.0                           \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n      COMPLEX EIGENVALUE =  4.592091E-15,  1.002093E+01    (CYCLIC FREQUENCY =  1.594880E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          171      G      0.0            0.0           -1.161377E-02   0.0            7.186808E-02   0.0                           \r\n                           0.0            0.0            1.528548E-15   0.0            2.717848E-13   0.0                           \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                                                                                   \r\n0     HARMONIC 3 USING 1/12 SYMMETRY.                                                                                               \r\n      COMPLEX EIGENVALUE =  4.592091E-15,  1.002093E+01    (CYCLIC FREQUENCY =  1.594880E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n0          3        10   0.0               26   3.090170E-01      42   5.877852E-01      58   8.090170E-01      74   9.510565E-01\r\n                         0.0                   -3.379288E-17          -3.180506E-17          -3.180506E-17           1.855295E-16\r\n0          3        81   2.992692E-04      82   4.144787E-03      83   1.562802E-02      84   3.948979E-02      85   8.193990E-02\r\n                         2.087725E-17           2.206269E-17           2.766378E-17           3.694025E-17           5.168322E-17\r\n0          3        86   1.513172E-01      87   2.590021E-01      88   4.206335E-01      89   6.577473E-01      90   1.000000E+00\r\n                         7.487441E-17           1.060169E-16           1.431228E-16           1.537244E-16           0.0\r\n0          3       106   9.510565E-01     122   8.090170E-01     138   5.877852E-01     154   3.090170E-01     170   0.0\r\n                         6.891096E-16           7.050122E-16           7.566953E-16           7.182642E-16           0.0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER          \r\n DATE:  5/17/95\r\n END TIME: 15:57: 1\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d07022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D07022A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   7,3                                                                       \r\n     TIME  40                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                          \r\n                  3      LABEL    = HARMONIC 5 USING 1/20 SYMMETRY.                                      \r\n                  4       CMETHOD = 1                                                                    \r\n                  5           SPC = 3                                                                    \r\n                  6       AXISYMMETRIC = FLUID                                                           \r\n                  7      OUTPUT                                                                          \r\n                  8          HARMONICS = 5                                                               \r\n                  9            SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                  \r\n                 10                      106,107, 122,123, 138,139, 154,155, 170,171                     \r\n                 11       DISPLACEMENT = 100                                                             \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   251, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIF    1       .0      1.8-2   2.88+3  NO                              +AXIF   \r\n                    2-        +AXIF   5                                                                       \r\n                    3-        BDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n                    4-        +BDY-1  122     138     154     170                                             \r\n                    5-        CFLUID2 1001    17      1                                                       \r\n                    6-        CFLUID2 2001    33      17                                                      \r\n                    7-        CFLUID2 3001    49      33                                                      \r\n                    8-        CFLUID2 4001    65      49                                                      \r\n                    9-        CFLUID2 5001    81      65                                                      \r\n                   10-        CFLUID2 6001    97      81                                                      \r\n                   11-        CFLUID2 7001    113     97                                                      \r\n                   12-        CFLUID2 8001    129     113                                                     \r\n                   13-        CFLUID2 9001    145     129                                                     \r\n                   14-        CFLUID2 10001   161     145                                                     \r\n                   15-        CFLUID4 1002    18      2       1       17                                      \r\n                   16-        CFLUID4 1003    19      3       2       18                                      \r\n                   17-        CFLUID4 1004    20      4       3       19                                      \r\n                   18-        CFLUID4 1005    21      5       4       20                                      \r\n                   19-        CFLUID4 1006    22      6       5       21                                      \r\n                   20-        CFLUID4 1007    23      7       6       22                                      \r\n                   21-        CFLUID4 1008    24      8       7       23                                      \r\n                   22-        CFLUID4 1009    25      9       8       24                                      \r\n                   23-        CFLUID4 1010    26      10      9       25                                      \r\n                   24-        CFLUID4 2002    34      18      17      33                                      \r\n                   25-        CFLUID4 2003    35      19      18      34                                      \r\n                   26-        CFLUID4 2004    36      20      19      35                                      \r\n                   27-        CFLUID4 2005    37      21      20      36                                      \r\n                   28-        CFLUID4 2006    38      22      21      37                                      \r\n                   29-        CFLUID4 2007    39      23      22      38                                      \r\n                   30-        CFLUID4 2008    40      24      23      39                                      \r\n                   31-        CFLUID4 2009    41      25      24      40                                      \r\n                   32-        CFLUID4 2010    42      26      25      41                                      \r\n                   33-        CFLUID4 3002    50      34      33      49                                      \r\n                   34-        CFLUID4 3003    51      35      34      50                                      \r\n                   35-        CFLUID4 3004    52      36      35      51                                      \r\n                   36-        CFLUID4 3005    53      37      36      52                                      \r\n                   37-        CFLUID4 3006    54      38      37      53                                      \r\n                   38-        CFLUID4 3007    55      39      38      54                                      \r\n                   39-        CFLUID4 3008    56      40      39      55                                      \r\n                   40-        CFLUID4 3009    57      41      40      56                                      \r\n                   41-        CFLUID4 3010    58      42      41      57                                      \r\n                   42-        CFLUID4 4002    66      50      49      65                                      \r\n                   43-        CFLUID4 4003    67      51      50      66                                      \r\n                   44-        CFLUID4 4004    68      52      51      67                                      \r\n                   45-        CFLUID4 4005    69      53      52      68                                      \r\n                   46-        CFLUID4 4006    70      54      53      69                                      \r\n                   47-        CFLUID4 4007    71      55      54      70                                      \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CFLUID4 4008    72      56      55      71                                      \r\n                   49-        CFLUID4 4009    73      57      56      72                                      \r\n                   50-        CFLUID4 4010    74      58      57      73                                      \r\n                   51-        CFLUID4 5002    82      66      65      81                                      \r\n                   52-        CFLUID4 5003    83      67      66      82                                      \r\n                   53-        CFLUID4 5004    84      68      67      83                                      \r\n                   54-        CFLUID4 5005    85      69      68      84                                      \r\n                   55-        CFLUID4 5006    86      70      69      85                                      \r\n                   56-        CFLUID4 5007    87      71      70      86                                      \r\n                   57-        CFLUID4 5008    88      72      71      87                                      \r\n                   58-        CFLUID4 5009    89      73      72      88                                      \r\n                   59-        CFLUID4 5010    90      74      73      89                                      \r\n                   60-        CFLUID4 6002    98      82      81      97                                      \r\n                   61-        CFLUID4 6003    99      83      82      98                                      \r\n                   62-        CFLUID4 6004    100     84      83      99                                      \r\n                   63-        CFLUID4 6005    101     85      84      100                                     \r\n                   64-        CFLUID4 6006    102     86      85      101                                     \r\n                   65-        CFLUID4 6007    103     87      86      102                                     \r\n                   66-        CFLUID4 6008    104     88      87      103                                     \r\n                   67-        CFLUID4 6009    105     89      88      104                                     \r\n                   68-        CFLUID4 6010    106     90      89      105                                     \r\n                   69-        CFLUID4 7002    114     98      97      113                                     \r\n                   70-        CFLUID4 7003    115     99      98      114                                     \r\n                   71-        CFLUID4 7004    116     100     99      115                                     \r\n                   72-        CFLUID4 7005    117     101     100     116                                     \r\n                   73-        CFLUID4 7006    118     102     101     117                                     \r\n                   74-        CFLUID4 7007    119     103     102     118                                     \r\n                   75-        CFLUID4 7008    120     104     103     119                                     \r\n                   76-        CFLUID4 7009    121     105     104     120                                     \r\n                   77-        CFLUID4 7010    122     106     105     121                                     \r\n                   78-        CFLUID4 8002    130     114     113     129                                     \r\n                   79-        CFLUID4 8003    131     115     114     130                                     \r\n                   80-        CFLUID4 8004    132     116     115     131                                     \r\n                   81-        CFLUID4 8005    133     117     116     132                                     \r\n                   82-        CFLUID4 8006    134     118     117     133                                     \r\n                   83-        CFLUID4 8007    135     119     118     134                                     \r\n                   84-        CFLUID4 8008    136     120     119     135                                     \r\n                   85-        CFLUID4 8009    137     121     120     136                                     \r\n                   86-        CFLUID4 8010    138     122     121     137                                     \r\n                   87-        CFLUID4 9002    146     130     129     145                                     \r\n                   88-        CFLUID4 9003    147     131     130     146                                     \r\n                   89-        CFLUID4 9004    148     132     131     147                                     \r\n                   90-        CFLUID4 9005    149     133     132     148                                     \r\n                   91-        CFLUID4 9006    150     134     133     149                                     \r\n                   92-        CFLUID4 9007    151     135     134     150                                     \r\n                   93-        CFLUID4 9008    152     136     135     151                                     \r\n                   94-        CFLUID4 9009    153     137     136     152                                     \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CFLUID4 9010    154     138     137     153                                     \r\n                   96-        CFLUID4 10002   162     146     145     161                                     \r\n                   97-        CFLUID4 10003   163     147     146     162                                     \r\n                   98-        CFLUID4 10004   164     148     147     163                                     \r\n                   99-        CFLUID4 10005   165     149     148     164                                     \r\n                  100-        CFLUID4 10006   166     150     149     165                                     \r\n                  101-        CFLUID4 10007   167     151     150     166                                     \r\n                  102-        CFLUID4 10008   168     152     151     167                                     \r\n                  103-        CFLUID4 10009   169     153     152     168                                     \r\n                  104-        CFLUID4 10010   170     154     153     169                                     \r\n                  105-        CORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n                  106-        +CORD2C 1.0     .0      .0                                                      \r\n                  107-        CQUAD1  1011    1       27      28      12      11                              \r\n                  108-        CQUAD1  1012    1       28      29      13      12                              \r\n                  109-        CQUAD1  1013    1       29      30      14      13                              \r\n                  110-        CQUAD1  2011    1       43      44      28      27                              \r\n                  111-        CQUAD1  2012    1       44      45      29      28                              \r\n                  112-        CQUAD1  2013    1       45      46      30      29                              \r\n                  113-        CQUAD1  3011    1       59      60      44      43                              \r\n                  114-        CQUAD1  3012    1       60      61      45      44                              \r\n                  115-        CQUAD1  3013    1       61      62      46      45                              \r\n                  116-        CQUAD1  4011    1       75      76      60      59                              \r\n                  117-        CQUAD1  4012    1       76      77      61      60                              \r\n                  118-        CQUAD1  4013    1       77      78      62      61                              \r\n                  119-        CQUAD1  5011    1       91      92      76      75                              \r\n                  120-        CQUAD1  5012    1       92      93      77      76                              \r\n                  121-        CQUAD1  5013    1       93      94      78      77                              \r\n                  122-        CQUAD1  6011    1       107     108     92      91                              \r\n                  123-        CQUAD1  6012    1       108     109     93      92                              \r\n                  124-        CQUAD1  6013    1       109     110     94      93                              \r\n                  125-        CQUAD1  7011    1       123     124     108     107                             \r\n                  126-        CQUAD1  7012    1       124     125     109     108                             \r\n                  127-        CQUAD1  7013    1       125     126     110     109                             \r\n                  128-        CQUAD1  8011    1       139     140     124     123                             \r\n                  129-        CQUAD1  8012    1       140     141     125     124                             \r\n                  130-        CQUAD1  8013    1       141     142     126     125                             \r\n                  131-        CQUAD1  9011    1       155     156     140     139                             \r\n                  132-        CQUAD1  9012    1       156     157     141     140                             \r\n                  133-        CQUAD1  9013    1       157     158     142     141                             \r\n                  134-        CQUAD1  10011   1       171     172     156     155                             \r\n                  135-        CQUAD1  10012   1       172     173     157     156                             \r\n                  136-        CQUAD1  10013   1       173     174     158     157                             \r\n                  137-        EIGC    1       DET     MAX                                             +EIGC   \r\n                  138-        +EIGC   1.0     .0      1.0     20.0    20.0    1       1                       \r\n                  139-        FLSYM   20      S       A                                                       \r\n                  140-        FSLIST          AXIS    1       2       3       4       5       6       +FSL-2  \r\n                  141-        +FSL-2  7       8       9       10                                              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        FSLIST          170     169     168     167     166     165     164     +FSL-1  \r\n                  143-        +FSL-1  163     162     161     AXIS                                            \r\n                  144-        GRIDB   11                      .00             1               10              \r\n                  145-        GRIDB   12                      6.00000         1               10              \r\n                  146-        GRIDB   13                      12.0000         1               10              \r\n                  147-        GRIDB   14                      18.0000         1               10              \r\n                  148-        GRIDB   27                      .00             1               26              \r\n                  149-        GRIDB   28                      6.00000         1               26              \r\n                  150-        GRIDB   29                      12.0000         1               26              \r\n                  151-        GRIDB   30                      18.0000         1               26              \r\n                  152-        GRIDB   43                      .00             1               42              \r\n                  153-        GRIDB   44                      6.00000         1               42              \r\n                  154-        GRIDB   45                      12.0000         1               42              \r\n                  155-        GRIDB   46                      18.0000         1               42              \r\n                  156-        GRIDB   59                      .00             1               58              \r\n                  157-        GRIDB   60                      6.00000         1               58              \r\n                  158-        GRIDB   61                      12.0000         1               58              \r\n                  159-        GRIDB   62                      18.0000         1               58              \r\n                  160-        GRIDB   75                      .00             1               74              \r\n                  161-        GRIDB   76                      6.00000         1               74              \r\n                  162-        GRIDB   77                      12.0000         1               74              \r\n                  163-        GRIDB   78                      18.0000         1               74              \r\n                  164-        GRIDB   91                      .00             1               90              \r\n                  165-        GRIDB   92                      6.00000         1               90              \r\n                  166-        GRIDB   93                      12.0000         1               90              \r\n                  167-        GRIDB   94                      18.0000         1               90              \r\n                  168-        GRIDB   107                     .00             1               106             \r\n                  169-        GRIDB   108                     6.00000         1               106             \r\n                  170-        GRIDB   109                     12.0000         1               106             \r\n                  171-        GRIDB   110                     18.0000         1               106             \r\n                  172-        GRIDB   123                     .00             1               122             \r\n                  173-        GRIDB   124                     6.00000         1               122             \r\n                  174-        GRIDB   125                     12.0000         1               122             \r\n                  175-        GRIDB   126                     18.0000         1               122             \r\n                  176-        GRIDB   139                     .00             1               138             \r\n                  177-        GRIDB   140                     6.00000         1               138             \r\n                  178-        GRIDB   141                     12.0000         1               138             \r\n                  179-        GRIDB   142                     18.0000         1               138             \r\n                  180-        GRIDB   155                     .00             1               154             \r\n                  181-        GRIDB   156                     6.00000         1               154             \r\n                  182-        GRIDB   157                     12.0000         1               154             \r\n                  183-        GRIDB   158                     18.0000         1               154             \r\n                  184-        GRIDB   171                     .00             1               170             \r\n                  185-        GRIDB   172                     6.00000         1               170             \r\n                  186-        GRIDB   173                     12.0000         1               170             \r\n                  187-        GRIDB   174                     18.0000         1               170             \r\n                  188-        MAT1    2       1.6+5   6.0+4           6.0-2                                   \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        PQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n                  190-        +PQUAD1 .0      .005                                                            \r\n                  191-        RINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\n                  192-        RINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\n                  193-        RINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\n                  194-        RINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\n                  195-        RINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\n                  196-        RINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\n                  197-        RINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\n                  198-        RINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\n                  199-        RINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\n                  200-        RINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\n                  201-        RINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\n                  202-        RINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\n                  203-        RINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\n                  204-        RINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\n                  205-        RINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\n                  206-        RINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\n                  207-        RINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\n                  208-        RINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\n                  209-        RINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\n                  210-        RINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\n                  211-        RINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\n                  212-        RINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\n                  213-        RINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\n                  214-        RINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\n                  215-        RINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\n                  216-        RINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\n                  217-        RINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\n                  218-        RINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\n                  219-        RINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\n                  220-        RINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\n                  221-        RINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\n                  222-        RINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\n                  223-        RINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\n                  224-        RINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\n                  225-        RINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\n                  226-        RINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\n                  227-        RINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\n                  228-        RINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\n                  229-        RINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\n                  230-        RINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\n                  231-        RINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\n                  232-        RINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\n                  233-        RINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\n                  234-        RINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\n                  235-        RINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        RINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\n                  237-        RINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\n                  238-        RINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\n                  239-        RINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\n                  240-        RINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\n                  241-        RINGFL  161     1.00000         .00     162     2.00000         .00             \r\n                  242-        RINGFL  163     3.00000         .00     164     4.00000         .00             \r\n                  243-        RINGFL  165     5.00000         .00     166     6.00000         .00             \r\n                  244-        RINGFL  167     7.00000         .00     168     8.00000         .00             \r\n                  245-        RINGFL  169     9.00000         .00     170     10.0000         .00             \r\n                  246-        SPC1    3       126     11      12      13      14                      H=5     \r\n                  247-        SPC1    3       126     171     172     173     174                     H=5     \r\n                  248-        SPC1    3       135     14      30      46      62      78      94      H=5     \r\n                  249-        SPC1    3       135     110     126     142     158     174             H=5     \r\n                  250-        SPC1    3       246     11      27      43      59      75      91      H=5     \r\n                  251-        SPC1    3       246     107     123     139     155     171             H=5     \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC FLUID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID2   ELEMENTS (ELEMENT TYPE  43) STARTING WITH ID  1001012\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID4   ELEMENTS (ELEMENT TYPE  45) STARTING WITH ID  1002012\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLMASS   ELEMENTS (ELEMENT TYPE  46) STARTING WITH ID  1000012\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID     1011\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n\r\n      HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =   29\r\n                                        C =   18     CBAR =    9\r\n                                        R =   49\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   270)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        1\r\n0                                       NUMBER OF PASSES THROUGH STARTING POINTS . .        1\r\n0                                       NUMBER OF CRITERIA CHANGES . . . . . . . . .        0\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .        0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .       12\r\n0                                       NUMBER OF FAILURES TO ITERATE TO A ROOT  . .        0\r\n0                                       NUMBER OF PREDICTIONS OUTSIDE REGION . . . .        0\r\n0\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .        1*\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.7.3)\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0                                        S W E P T   D E T E R M I N A N T   F U N C T I O N\r\n\r\n                                          - P -                                   - DET(P) -\r\n          STARTING POINT          REAL             IMAG                    MAGNITUDE         PHASE     SCALE FACTOR\r\n                    1          1.000000E+00    2.500000E+00              2.306401E+00         5.1657        361                     \r\n                    2          1.000000E+00    7.500000E+00              8.867628E+00        17.7315        360                     \r\n                    3          1.000000E+00    1.250000E+01              7.329873E+00        47.8212        359                     \r\n                    4          1.000000E+00    1.750000E+01              0.0                  0.0                                   \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n \r\n                                        C O M P L E X   E I G E N V A L U E   S U M M A R Y\r\n0                ROOT     EXTRACTION                  EIGENVALUE                     FREQUENCY              DAMPING\r\n                  NO.        ORDER             (REAL)           (IMAG)                (CYCLES)            COEFFICIENT\r\n                      1           1          9.915575E-18     6.590021E+00          1.048834E+00         -3.009270E-18              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n      COMPLEX EIGENVALUE =  9.915575E-18,  6.590021E+00    (CYCLIC FREQUENCY =  1.048834E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           11      G      0.0            0.0            4.210155E-02   0.0           -2.351226E-01   0.0                           \r\n                           0.0            0.0            2.112055E-17   0.0           -7.624402E-14   0.0                           \r\n0           27      G      2.337823E-01   0.0            4.004095E-02   0.0           -2.236149E-01   0.0                           \r\n                           1.239072E-15   0.0            1.714491E-17   0.0            3.722252E-14   0.0                           \r\n0           43      G      4.446804E-01   0.0            3.406087E-02   0.0           -1.902182E-01   0.0                           \r\n                           1.881799E-16   0.0            1.615101E-17   0.0           -1.067689E-14   0.0                           \r\n0           59      G      6.120501E-01   0.0            2.474667E-02   0.0           -1.382016E-01   0.0                           \r\n                           6.493533E-16   0.0            2.397803E-17   0.0            1.484236E-15   0.0                           \r\n0           75      G      7.195080E-01   0.0            1.301009E-02   0.0           -7.265688E-02   0.0                           \r\n                           2.193224E-15   0.0            1.855295E-17   0.0           -1.547797E-14   0.0                           \r\n0           91      G      7.565355E-01   0.0            5.190891E-16   0.0           -1.580193E-13   0.0                           \r\n                           2.863780E-15   0.0           -8.748766E-18   0.0            2.809148E-14   0.0                           \r\n0           92      G      6.551837E-01  -7.276373E-02  -4.498130E-16  -5.535026E-11  -2.824077E-13   1.818829E-01                  \r\n                          -7.831996E-16  -1.036977E-16   3.881394E-18   3.691389E-12  -4.633658E-15  -7.246916E-15                  \r\n0           93      G      3.782857E-01  -1.260315E-01   6.860676E-16  -2.224554E-11  -7.291080E-13   3.150529E-01                  \r\n                          -1.435866E-15   7.619962E-18   2.253856E-18   3.578926E-13   5.541024E-18  -1.479664E-14                  \r\n0           94      G      0.0           -1.455292E-01   0.0            3.865656E-11   0.0            3.638218E-01                  \r\n                           0.0            8.150046E-17   0.0            1.843810E-12   0.0            3.078929E-14                  \r\n0          107      G      7.195080E-01   0.0           -1.301009E-02   0.0            7.265688E-02   0.0                           \r\n                           1.027038E-15   0.0           -2.936170E-17   0.0            9.989274E-15   0.0                           \r\n0          123      G      6.120501E-01   0.0           -2.474667E-02   0.0            1.382016E-01   0.0                           \r\n                          -7.328416E-16   0.0           -1.747622E-17   0.0            4.727027E-15   0.0                           \r\n0          139      G      4.446804E-01   0.0           -3.406087E-02   0.0            1.902182E-01   0.0                           \r\n                           2.981724E-16   0.0           -5.549320E-18   0.0           -1.462701E-14   0.0                           \r\n0          155      G      2.337823E-01   0.0           -4.004095E-02   0.0            2.236149E-01   0.0                           \r\n                           2.259484E-16   0.0           -8.282568E-18   0.0            1.393360E-14   0.0                           \r\n0          171      G      0.0            0.0           -4.210155E-02   0.0            2.351226E-01   0.0                           \r\n                           0.0            0.0           -8.613870E-18   0.0           -6.765201E-16   0.0                           \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                                                                                   \r\n0     HARMONIC 5 USING 1/20 SYMMETRY.                                                                                               \r\n      COMPLEX EIGENVALUE =  9.915575E-18,  6.590021E+00    (CYCLIC FREQUENCY =  1.048834E+00HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n     HARMONIC   POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1        POINT-ID     T1\r\n0          5        10   0.0               26   3.090170E-01      42   5.877852E-01      58   8.090170E-01      74   9.510565E-01\r\n                         0.0                   -2.650422E-18          -1.325211E-18          -1.325211E-18           0.0\r\n0          5        81  -8.609773E-06      82   8.941122E-05      83   1.300925E-03      84   6.568529E-03      85   2.205637E-02\r\n                         2.299140E-20           2.329472E-20           3.105963E-20           4.141284E-20           8.282568E-20\r\n0          5        86   5.895907E-02      87   1.360715E-01      88   2.834775E-01      89   5.478450E-01      90   1.000000E+00\r\n                         0.0                    3.313027E-19           0.0                    1.325211E-18           0.0\r\n0          5       106   9.510565E-01     122   8.090170E-01     138   5.877852E-01     154   3.090170E-01     170   0.0\r\n                         5.300843E-18           3.975632E-18           0.0                    0.0                    0.0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER          \r\n DATE:  5/17/95\r\n END TIME: 15:58:27\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d08011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D08011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   8,1                                                                       \r\n     TIME  12                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 10X10 PLATE                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                          \r\n                  3           SPC = 37                                                                   \r\n                  4         DLOAD = 8                                                                    \r\n                  5      FREQUENCY= 8                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1,4,7,11  45,55,  78,88,  111,114,117,121                            \r\n                  8         DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n                  9         SPCFORCE(SORT2,PHASE) = 1                                                    \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   337, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       2       THRU    109                                             \r\n                    2-        CQUAD1  1       23      1       2       13      12      .00                     \r\n                    3-        CQUAD1  2       23      2       3       14      13      .00                     \r\n                    4-        CQUAD1  3       23      3       4       15      14      .00                     \r\n                    5-        CQUAD1  4       23      4       5       16      15      .00                     \r\n                    6-        CQUAD1  5       23      5       6       17      16      .00                     \r\n                    7-        CQUAD1  6       23      6       7       18      17      .00                     \r\n                    8-        CQUAD1  7       23      7       8       19      18      .00                     \r\n                    9-        CQUAD1  8       23      8       9       20      19      .00                     \r\n                   10-        CQUAD1  9       23      9       10      21      20      .00                     \r\n                   11-        CQUAD1  10      23      10      11      22      21      .00                     \r\n                   12-        CQUAD1  12      23      12      13      24      23      .00                     \r\n                   13-        CQUAD1  13      23      13      14      25      24      .00                     \r\n                   14-        CQUAD1  14      23      14      15      26      25      .00                     \r\n                   15-        CQUAD1  15      23      15      16      27      26      .00                     \r\n                   16-        CQUAD1  16      23      16      17      28      27      .00                     \r\n                   17-        CQUAD1  17      23      17      18      29      28      .00                     \r\n                   18-        CQUAD1  18      23      18      19      30      29      .00                     \r\n                   19-        CQUAD1  19      23      19      20      31      30      .00                     \r\n                   20-        CQUAD1  20      23      20      21      32      31      .00                     \r\n                   21-        CQUAD1  21      23      21      22      33      32      .00                     \r\n                   22-        CQUAD1  23      23      23      24      35      34      .00                     \r\n                   23-        CQUAD1  24      23      24      25      36      35      .00                     \r\n                   24-        CQUAD1  25      23      25      26      37      36      .00                     \r\n                   25-        CQUAD1  26      23      26      27      38      37      .00                     \r\n                   26-        CQUAD1  27      23      27      28      39      38      .00                     \r\n                   27-        CQUAD1  28      23      28      29      40      39      .00                     \r\n                   28-        CQUAD1  29      23      29      30      41      40      .00                     \r\n                   29-        CQUAD1  30      23      30      31      42      41      .00                     \r\n                   30-        CQUAD1  31      23      31      32      43      42      .00                     \r\n                   31-        CQUAD1  32      23      32      33      44      43      .00                     \r\n                   32-        CQUAD1  34      23      34      35      46      45      .00                     \r\n                   33-        CQUAD1  35      23      35      36      47      46      .00                     \r\n                   34-        CQUAD1  36      23      36      37      48      47      .00                     \r\n                   35-        CQUAD1  37      23      37      38      49      48      .00                     \r\n                   36-        CQUAD1  38      23      38      39      50      49      .00                     \r\n                   37-        CQUAD1  39      23      39      40      51      50      .00                     \r\n                   38-        CQUAD1  40      23      40      41      52      51      .00                     \r\n                   39-        CQUAD1  41      23      41      42      53      52      .00                     \r\n                   40-        CQUAD1  42      23      42      43      54      53      .00                     \r\n                   41-        CQUAD1  43      23      43      44      55      54      .00                     \r\n                   42-        CQUAD1  45      23      45      46      57      56      .00                     \r\n                   43-        CQUAD1  46      23      46      47      58      57      .00                     \r\n                   44-        CQUAD1  47      23      47      48      59      58      .00                     \r\n                   45-        CQUAD1  48      23      48      49      60      59      .00                     \r\n                   46-        CQUAD1  49      23      49      50      61      60      .00                     \r\n                   47-        CQUAD1  50      23      50      51      62      61      .00                     \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD1  51      23      51      52      63      62      .00                     \r\n                   49-        CQUAD1  52      23      52      53      64      63      .00                     \r\n                   50-        CQUAD1  53      23      53      54      65      64      .00                     \r\n                   51-        CQUAD1  54      23      54      55      66      65      .00                     \r\n                   52-        CQUAD1  56      23      56      57      68      67      .00                     \r\n                   53-        CQUAD1  57      23      57      58      69      68      .00                     \r\n                   54-        CQUAD1  58      23      58      59      70      69      .00                     \r\n                   55-        CQUAD1  59      23      59      60      71      70      .00                     \r\n                   56-        CQUAD1  60      23      60      61      72      71      .00                     \r\n                   57-        CQUAD1  61      23      61      62      73      72      .00                     \r\n                   58-        CQUAD1  62      23      62      63      74      73      .00                     \r\n                   59-        CQUAD1  63      23      63      64      75      74      .00                     \r\n                   60-        CQUAD1  64      23      64      65      76      75      .00                     \r\n                   61-        CQUAD1  65      23      65      66      77      76      .00                     \r\n                   62-        CQUAD1  67      23      67      68      79      78      .00                     \r\n                   63-        CQUAD1  68      23      68      69      80      79      .00                     \r\n                   64-        CQUAD1  69      23      69      70      81      80      .00                     \r\n                   65-        CQUAD1  70      23      70      71      82      81      .00                     \r\n                   66-        CQUAD1  71      23      71      72      83      82      .00                     \r\n                   67-        CQUAD1  72      23      72      73      84      83      .00                     \r\n                   68-        CQUAD1  73      23      73      74      85      84      .00                     \r\n                   69-        CQUAD1  74      23      74      75      86      85      .00                     \r\n                   70-        CQUAD1  75      23      75      76      87      86      .00                     \r\n                   71-        CQUAD1  76      23      76      77      88      87      .00                     \r\n                   72-        CQUAD1  78      23      78      79      90      89      .00                     \r\n                   73-        CQUAD1  79      23      79      80      91      90      .00                     \r\n                   74-        CQUAD1  80      23      80      81      92      91      .00                     \r\n                   75-        CQUAD1  81      23      81      82      93      92      .00                     \r\n                   76-        CQUAD1  82      23      82      83      94      93      .00                     \r\n                   77-        CQUAD1  83      23      83      84      95      94      .00                     \r\n                   78-        CQUAD1  84      23      84      85      96      95      .00                     \r\n                   79-        CQUAD1  85      23      85      86      97      96      .00                     \r\n                   80-        CQUAD1  86      23      86      87      98      97      .00                     \r\n                   81-        CQUAD1  87      23      87      88      99      98      .00                     \r\n                   82-        CQUAD1  89      23      89      90      101     100     .00                     \r\n                   83-        CQUAD1  90      23      90      91      102     101     .00                     \r\n                   84-        CQUAD1  91      23      91      92      103     102     .00                     \r\n                   85-        CQUAD1  92      23      92      93      104     103     .00                     \r\n                   86-        CQUAD1  93      23      93      94      105     104     .00                     \r\n                   87-        CQUAD1  94      23      94      95      106     105     .00                     \r\n                   88-        CQUAD1  95      23      95      96      107     106     .00                     \r\n                   89-        CQUAD1  96      23      96      97      108     107     .00                     \r\n                   90-        CQUAD1  97      23      97      98      109     108     .00                     \r\n                   91-        CQUAD1  98      23      98      99      110     109     .00                     \r\n                   92-        CQUAD1  100     23      100     101     112     111     .00                     \r\n                   93-        CQUAD1  101     23      101     102     113     112     .00                     \r\n                   94-        CQUAD1  102     23      102     103     114     113     .00                     \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD1  103     23      103     104     115     114     .00                     \r\n                   96-        CQUAD1  104     23      104     105     116     115     .00                     \r\n                   97-        CQUAD1  105     23      105     106     117     116     .00                     \r\n                   98-        CQUAD1  106     23      106     107     118     117     .00                     \r\n                   99-        CQUAD1  107     23      107     108     119     118     .00                     \r\n                  100-        CQUAD1  108     23      108     109     120     119     .00                     \r\n                  101-        CQUAD1  109     23      109     110     121     120     .00                     \r\n                  102-        DAREA  *37              1               3               2.5000000E-01           \r\n                  103-        DAREA  *37              2               3               4.9384417E-01           \r\n                  104-        DAREA  *37              3               3               4.7552826E-01           \r\n                  105-        DAREA  *37              4               3               4.4550326E-01           \r\n                  106-        DAREA  *37              5               3               4.0450850E-01           \r\n                  107-        DAREA  *37              6               3               3.5355339E-01           \r\n                  108-        DAREA  *37              7               3               2.9389263E-01           \r\n                  109-        DAREA  *37              8               3               2.2699525E-01           \r\n                  110-        DAREA  *37              9               3               1.5450850E-01           \r\n                  111-        DAREA  *37              10              3               7.8217242E-02           \r\n                  112-        DAREA  *37              12              3               4.9384417E-01           \r\n                  113-        DAREA  *37              13              3               9.7552826E-01           \r\n                  114-        DAREA  *37              14              3               9.3934743E-01           \r\n                  115-        DAREA  *37              15              3               8.8003676E-01           \r\n                  116-        DAREA  *37              16              3               7.9905665E-01           \r\n                  117-        DAREA  *37              17              3               6.9840112E-01           \r\n                  118-        DAREA  *37              18              3               5.8054864E-01           \r\n                  119-        DAREA  *37              19              3               4.4840113E-01           \r\n                  120-        DAREA  *37              20              3               3.0521249E-01           \r\n                  121-        DAREA  *37              21              3               1.5450851E-01           \r\n                  122-        DAREA  *37              23              3               4.7552826E-01           \r\n                  123-        DAREA  *37              24              3               9.3934743E-01           \r\n                  124-        DAREA  *37              25              3               9.0450849E-01           \r\n                  125-        DAREA  *37              26              3               8.4739757E-01           \r\n                  126-        DAREA  *37              27              3               7.6942088E-01           \r\n                  127-        DAREA  *37              28              3               6.7249851E-01           \r\n                  128-        DAREA  *37              29              3               5.5901700E-01           \r\n                  129-        DAREA  *37              30              3               4.3177063E-01           \r\n                  130-        DAREA  *37              31              3               2.9389264E-01           \r\n                  131-        DAREA  *37              32              3               1.4877803E-01           \r\n                  132-        DAREA  *37              34              3               4.4550326E-01           \r\n                  133-        DAREA  *37              35              3               8.8003676E-01           \r\n                  134-        DAREA  *37              36              3               8.4739757E-01           \r\n                  135-        DAREA  *37              37              3               7.9389263E-01           \r\n                  136-        DAREA  *37              38              3               7.2083942E-01           \r\n                  137-        DAREA  *37              39              3               6.3003676E-01           \r\n                  138-        DAREA  *37              40              3               5.2372050E-01           \r\n                  139-        DAREA  *37              41              3               4.0450851E-01           \r\n                  140-        DAREA  *37              42              3               2.7533617E-01           \r\n                  141-        DAREA  *37              43              3               1.3938414E-01           \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        DAREA  *37              45              3               4.0450850E-01           \r\n                  143-        DAREA  *37              46              3               7.9905665E-01           \r\n                  144-        DAREA  *37              47              3               7.6942088E-01           \r\n                  145-        DAREA  *37              48              3               7.2083942E-01           \r\n                  146-        DAREA  *37              49              3               6.5450849E-01           \r\n                  147-        DAREA  *37              50              3               5.7206140E-01           \r\n                  148-        DAREA  *37              51              3               4.7552826E-01           \r\n                  149-        DAREA  *37              52              3               3.6728603E-01           \r\n                  150-        DAREA  *37              53              3               2.5000001E-01           \r\n                  151-        DAREA  *37              54              3               1.2655815E-01           \r\n                  152-        DAREA  *37              56              3               3.5355339E-01           \r\n                  153-        DAREA  *37              57              3               6.9840112E-01           \r\n                  154-        DAREA  *37              58              3               6.7249851E-01           \r\n                  155-        DAREA  *37              59              3               6.3003676E-01           \r\n                  156-        DAREA  *37              60              3               5.7206140E-01           \r\n                  157-        DAREA  *37              61              3               5.0000000E-01           \r\n                  158-        DAREA  *37              62              3               4.1562694E-01           \r\n                  159-        DAREA  *37              63              3               3.2101976E-01           \r\n                  160-        DAREA  *37              64              3               2.1850802E-01           \r\n                  161-        DAREA  *37              65              3               1.1061588E-01           \r\n                  162-        DAREA  *37              67              3               2.9389263E-01           \r\n                  163-        DAREA  *37              68              3               5.8054864E-01           \r\n                  164-        DAREA  *37              69              3               5.5901700E-01           \r\n                  165-        DAREA  *37              70              3               5.2372050E-01           \r\n                  166-        DAREA  *37              71              3               4.7552826E-01           \r\n                  167-        DAREA  *37              72              3               4.1562694E-01           \r\n                  168-        DAREA  *37              73              3               3.4549151E-01           \r\n                  169-        DAREA  *37              74              3               2.6684893E-01           \r\n                  170-        DAREA  *37              75              3               1.8163564E-01           \r\n                  171-        DAREA  *37              76              3               9.1949883E-02           \r\n                  172-        DAREA  *37              78              3               2.2699525E-01           \r\n                  173-        DAREA  *37              79              3               4.4840113E-01           \r\n                  174-        DAREA  *37              80              3               4.3177063E-01           \r\n                  175-        DAREA  *37              81              3               4.0450851E-01           \r\n                  176-        DAREA  *37              82              3               3.6728603E-01           \r\n                  177-        DAREA  *37              83              3               3.2101976E-01           \r\n                  178-        DAREA  *37              84              3               2.6684893E-01           \r\n                  179-        DAREA  *37              85              3               2.0610738E-01           \r\n                  180-        DAREA  *37              86              3               1.4029079E-01           \r\n                  181-        DAREA  *37              87              3               7.1019771E-02           \r\n                  182-        DAREA  *37              89              3               1.5450850E-01           \r\n                  183-        DAREA  *37              90              3               3.0521249E-01           \r\n                  184-        DAREA  *37              91              3               2.9389264E-01           \r\n                  185-        DAREA  *37              92              3               2.7533617E-01           \r\n                  186-        DAREA  *37              93              3               2.5000001E-01           \r\n                  187-        DAREA  *37              94              3               2.1850802E-01           \r\n                  188-        DAREA  *37              95              3               1.8163564E-01           \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        DAREA  *37              96              3               1.4029079E-01           \r\n                  190-        DAREA  *37              97              3               9.5491510E-02           \r\n                  191-        DAREA  *37              98              3               4.8340916E-02           \r\n                  192-        DAREA  *37              100             3               7.8217242E-02           \r\n                  193-        DAREA  *37              101             3               1.5450851E-01           \r\n                  194-        DAREA  *37              102             3               1.4877803E-01           \r\n                  195-        DAREA  *37              103             3               1.3938414E-01           \r\n                  196-        DAREA  *37              104             3               1.2655815E-01           \r\n                  197-        DAREA  *37              105             3               1.1061588E-01           \r\n                  198-        DAREA  *37              106             3               9.1949883E-02           \r\n                  199-        DAREA  *37              107             3               7.1019771E-02           \r\n                  200-        DAREA  *37              108             3               4.8340916E-02           \r\n                  201-        DAREA  *37              109             3               2.4471748E-02           \r\n                  202-        FREQ    8       .0      8.0     9.0     10.0    11.0                            \r\n                  203-        GRDSET                                                  126                     \r\n                  204-        GRID    1               .0      .0      .0                                      \r\n                  205-        GRID    2               1.0     .0      .0                                      \r\n                  206-        GRID    3               2.0     .0      .0                                      \r\n                  207-        GRID    4               3.0     .0      .0                                      \r\n                  208-        GRID    5               4.0     .0      .0                                      \r\n                  209-        GRID    6               5.0     .0      .0                                      \r\n                  210-        GRID    7               6.0     .0      .0                                      \r\n                  211-        GRID    8               7.0     .0      .0                                      \r\n                  212-        GRID    9               8.0     .0      .0                                      \r\n                  213-        GRID    10              9.0     .0      .0                                      \r\n                  214-        GRID    11              10.0    .0      .0                                      \r\n                  215-        GRID    12              .0      1.0     .0                                      \r\n                  216-        GRID    13              1.0     1.0     .0                                      \r\n                  217-        GRID    14              2.0     1.0     .0                                      \r\n                  218-        GRID    15              3.0     1.0     .0                                      \r\n                  219-        GRID    16              4.0     1.0     .0                                      \r\n                  220-        GRID    17              5.0     1.0     .0                                      \r\n                  221-        GRID    18              6.0     1.0     .0                                      \r\n                  222-        GRID    19              7.0     1.0     .0                                      \r\n                  223-        GRID    20              8.0     1.0     .0                                      \r\n                  224-        GRID    21              9.0     1.0     .0                                      \r\n                  225-        GRID    22              10.0    1.0     .0                                      \r\n                  226-        GRID    23              .0      2.0     .0                                      \r\n                  227-        GRID    24              1.0     2.0     .0                                      \r\n                  228-        GRID    25              2.0     2.0     .0                                      \r\n                  229-        GRID    26              3.0     2.0     .0                                      \r\n                  230-        GRID    27              4.0     2.0     .0                                      \r\n                  231-        GRID    28              5.0     2.0     .0                                      \r\n                  232-        GRID    29              6.0     2.0     .0                                      \r\n                  233-        GRID    30              7.0     2.0     .0                                      \r\n                  234-        GRID    31              8.0     2.0     .0                                      \r\n                  235-        GRID    32              9.0     2.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRID    33              10.0    2.0     .0                                      \r\n                  237-        GRID    34              .0      3.0     .0                                      \r\n                  238-        GRID    35              1.0     3.0     .0                                      \r\n                  239-        GRID    36              2.0     3.0     .0                                      \r\n                  240-        GRID    37              3.0     3.0     .0                                      \r\n                  241-        GRID    38              4.0     3.0     .0                                      \r\n                  242-        GRID    39              5.0     3.0     .0                                      \r\n                  243-        GRID    40              6.0     3.0     .0                                      \r\n                  244-        GRID    41              7.0     3.0     .0                                      \r\n                  245-        GRID    42              8.0     3.0     .0                                      \r\n                  246-        GRID    43              9.0     3.0     .0                                      \r\n                  247-        GRID    44              10.0    3.0     .0                                      \r\n                  248-        GRID    45              .0      4.0     .0                                      \r\n                  249-        GRID    46              1.0     4.0     .0                                      \r\n                  250-        GRID    47              2.0     4.0     .0                                      \r\n                  251-        GRID    48              3.0     4.0     .0                                      \r\n                  252-        GRID    49              4.0     4.0     .0                                      \r\n                  253-        GRID    50              5.0     4.0     .0                                      \r\n                  254-        GRID    51              6.0     4.0     .0                                      \r\n                  255-        GRID    52              7.0     4.0     .0                                      \r\n                  256-        GRID    53              8.0     4.0     .0                                      \r\n                  257-        GRID    54              9.0     4.0     .0                                      \r\n                  258-        GRID    55              10.0    4.0     .0                                      \r\n                  259-        GRID    56              .0      5.0     .0                                      \r\n                  260-        GRID    57              1.0     5.0     .0                                      \r\n                  261-        GRID    58              2.0     5.0     .0                                      \r\n                  262-        GRID    59              3.0     5.0     .0                                      \r\n                  263-        GRID    60              4.0     5.0     .0                                      \r\n                  264-        GRID    61              5.0     5.0     .0                                      \r\n                  265-        GRID    62              6.0     5.0     .0                                      \r\n                  266-        GRID    63              7.0     5.0     .0                                      \r\n                  267-        GRID    64              8.0     5.0     .0                                      \r\n                  268-        GRID    65              9.0     5.0     .0                                      \r\n                  269-        GRID    66              10.0    5.0     .0                                      \r\n                  270-        GRID    67              .0      6.0     .0                                      \r\n                  271-        GRID    68              1.0     6.0     .0                                      \r\n                  272-        GRID    69              2.0     6.0     .0                                      \r\n                  273-        GRID    70              3.0     6.0     .0                                      \r\n                  274-        GRID    71              4.0     6.0     .0                                      \r\n                  275-        GRID    72              5.0     6.0     .0                                      \r\n                  276-        GRID    73              6.0     6.0     .0                                      \r\n                  277-        GRID    74              7.0     6.0     .0                                      \r\n                  278-        GRID    75              8.0     6.0     .0                                      \r\n                  279-        GRID    76              9.0     6.0     .0                                      \r\n                  280-        GRID    77              10.0    6.0     .0                                      \r\n                  281-        GRID    78              .0      7.0     .0                                      \r\n                  282-        GRID    79              1.0     7.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        GRID    80              2.0     7.0     .0                                      \r\n                  284-        GRID    81              3.0     7.0     .0                                      \r\n                  285-        GRID    82              4.0     7.0     .0                                      \r\n                  286-        GRID    83              5.0     7.0     .0                                      \r\n                  287-        GRID    84              6.0     7.0     .0                                      \r\n                  288-        GRID    85              7.0     7.0     .0                                      \r\n                  289-        GRID    86              8.0     7.0     .0                                      \r\n                  290-        GRID    87              9.0     7.0     .0                                      \r\n                  291-        GRID    88              10.0    7.0     .0                                      \r\n                  292-        GRID    89              .0      8.0     .0                                      \r\n                  293-        GRID    90              1.0     8.0     .0                                      \r\n                  294-        GRID    91              2.0     8.0     .0                                      \r\n                  295-        GRID    92              3.0     8.0     .0                                      \r\n                  296-        GRID    93              4.0     8.0     .0                                      \r\n                  297-        GRID    94              5.0     8.0     .0                                      \r\n                  298-        GRID    95              6.0     8.0     .0                                      \r\n                  299-        GRID    96              7.0     8.0     .0                                      \r\n                  300-        GRID    97              8.0     8.0     .0                                      \r\n                  301-        GRID    98              9.0     8.0     .0                                      \r\n                  302-        GRID    99              10.0    8.0     .0                                      \r\n                  303-        GRID    100             .0      9.0     .0                                      \r\n                  304-        GRID    101             1.0     9.0     .0                                      \r\n                  305-        GRID    102             2.0     9.0     .0                                      \r\n                  306-        GRID    103             3.0     9.0     .0                                      \r\n                  307-        GRID    104             4.0     9.0     .0                                      \r\n                  308-        GRID    105             5.0     9.0     .0                                      \r\n                  309-        GRID    106             6.0     9.0     .0                                      \r\n                  310-        GRID    107             7.0     9.0     .0                                      \r\n                  311-        GRID    108             8.0     9.0     .0                                      \r\n                  312-        GRID    109             9.0     9.0     .0                                      \r\n                  313-        GRID    110             10.0    9.0     .0                                      \r\n                  314-        GRID    111             .0      10.0    .0                                      \r\n                  315-        GRID    112             1.0     10.0    .0                                      \r\n                  316-        GRID    113             2.0     10.0    .0                                      \r\n                  317-        GRID    114             3.0     10.0    .0                                      \r\n                  318-        GRID    115             4.0     10.0    .0                                      \r\n                  319-        GRID    116             5.0     10.0    .0                                      \r\n                  320-        GRID    117             6.0     10.0    .0                                      \r\n                  321-        GRID    118             7.0     10.0    .0                                      \r\n                  322-        GRID    119             8.0     10.0    .0                                      \r\n                  323-        GRID    120             9.0     10.0    .0                                      \r\n                  324-        GRID    121             10.0    10.0    .0                                      \r\n                  325-        MAT1    8       3.0+7           .300                                            \r\n                  326-        PQUAD1  23                      8       .6666667                13.55715        \r\n                  327-        RLOAD1  8       37                      1                                       \r\n                  328-        SPC1    37      4       1       2       3       4       5       6       +41001H \r\n                  329-        +41001H 7       8       9       10      11                                      \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        SPC1    37      5       1       12      23      34      45      56      +31001H \r\n                  331-        +31001H 67      78      89      100     111                                     \r\n                  332-        SPC1    37      34      11      22      33      44      55      66      +11001H \r\n                  333-        +11001H 77      88      99      110     121                                     \r\n                  334-        SPC1    37      35      111     112     113     114     115     116     +21001H \r\n                  335-        +21001H 117     118     119     120     121                                     \r\n                  336-        TABLED1 1                                                               +T1     \r\n                  337-        +T1     .0      10.0    100.0   40.0    ENDT                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE           1441\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT   11.909\r\n                                        RMS WAVEFRONT   12.184\r\n                                        RMS BANDWIDTH   12.325\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE           1476\r\n                                        MAX WAVEFRONT       17\r\n                                        AVG WAVEFRONT   12.198\r\n                                        RMS WAVEFRONT   12.609\r\n                                        RMS BANDWIDTH   13.093\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       13        13\r\n                                        PROFILE (P)                       1441      1441\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           13        13\r\n                                        AVERAGE WAVEFRONT (C-AVG)       11.909    11.909\r\n                                        RMS WAVEFRONT (C-RMS)           12.184    12.184\r\n                                        RMS BANDWITCH (B-RMS)           12.325    12.325\r\n                                        NUMBER OF GRID POINTS (N)                    121\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               100\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       420\r\n                                        MATRIX DENSITY, PERCENT                    6.564\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK B2PP     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            6.603571E+01   6.603571E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.286568E+02   2.286568E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            4.470245E+02   4.470245E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            2.906904E+04   2.906904E+04   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            4.112285E+02   4.112285E+02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.176765E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            4.074694E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            7.966035E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.180141E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            7.328146E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            7.762963E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.688022E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            5.255088E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            3.417271E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            4.834281E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.149553E+01   1.173293E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            7.443094E+01   4.062674E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.455126E+02   7.942535E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            9.462373E+03   5.164860E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.338605E+02   7.306528E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      45\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.068480E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            3.699745E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            7.233008E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            4.703470E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            6.653818E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            3.478050E+01   5.615477E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            1.204318E+02   1.944428E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            2.354444E+02   3.801361E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.531044E+04   2.471943E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            2.165909E+02   3.496963E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      78\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            5.995917E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            2.076160E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            4.058897E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            2.639414E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            3.733877E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      88\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.951753E+01   8.512338E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.758187E+01   2.947502E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.321227E+02   5.762372E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            8.591655E+03   3.747147E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.215428E+02   5.300944E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     111\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.149553E+01   0.0            1.173293E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            7.443094E+01   0.0            4.062674E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.455126E+02   0.0            7.942535E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            9.462373E+03   0.0            5.164860E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.338605E+02   0.0            7.306528E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     114\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            3.830532E+01   0.0            4.337253E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            1.326369E+02   0.0            1.501827E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            2.593054E+02   0.0            2.936075E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.686207E+04   0.0            1.909267E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            2.385412E+02   0.0            2.700966E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     117\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.526951E+01   0.0            7.729041E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            8.749881E+01   0.0            2.676276E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.710604E+02   0.0            5.232125E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.112369E+04   0.0            3.402338E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.573625E+02   0.0            4.813157E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     121\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.426342E+02   4.776810E-01   4.776810E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.938884E+02   1.654029E+00   1.654029E+00   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            9.655529E+02   3.233631E+00   3.233631E+00   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            6.278782E+04   2.102761E+02   2.102761E+02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            8.882352E+02   2.974694E+00   2.974694E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.873926E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.488702E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.268542E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            8.249059E-02   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.166963E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.669681E-04   0.0            1.335168E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.781475E-04   0.0            4.623182E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.130280E-03   0.0            9.038331E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            7.349966E-02   0.0            5.877432E-03   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.039771E-03   0.0            8.314577E-05   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.101466E-04   0.0            2.379286E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.813963E-04   0.0            8.238571E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.456306E-04   0.0            1.610642E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            4.848675E-02   0.0            1.047366E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.859234E-04   0.0            1.481668E-04   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.940959E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.018343E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.990864E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            1.294616E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.831443E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      45\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.516038E-04   1.728652E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.249470E-04   5.985672E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.026272E-03   1.170200E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            6.673629E-02   7.609560E-03   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            9.440926E-04   1.076495E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.379286E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            8.238571E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.610642E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            1.047366E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.481668E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      78\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.507448E-05   2.620414E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            2.945809E-04   9.073506E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            5.759062E-04   1.773872E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.744994E-02   1.153511E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            5.297899E-04   1.631828E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      88\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.335168E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            4.623182E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            9.038331E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.877432E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            8.314577E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     111\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.940959E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.018343E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.990864E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.294616E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.831443E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     114\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.620414E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            9.073506E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.773872E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.153511E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.631828E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     117\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.728652E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            5.985672E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.170200E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            7.609560E-03   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.076495E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     121\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 10X10 PLATE                                \r\n DATE:  5/17/95\r\n END TIME: 15:59:52\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d08012a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D08012A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   8,1                                                                       \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 20X20 PLATE                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                          \r\n                  3           SPC = 37                                                                   \r\n                  4         DLOAD =  8                                                                   \r\n                  5      FREQUENCY= 8                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1,7,13,21,  169,189,  295,315,  421,427,433,441                      \r\n                  8         DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n                  9         SPCFORCE(SORT2,PHASE) = 1                                                    \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =  1261, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CNGRNT  1       2       THRU    419                                             \r\n                    2-        CQUAD1  1       23      1       2       23      22      .00                     \r\n                    3-        CQUAD1  2       23      2       3       24      23      .00                     \r\n                    4-        CQUAD1  3       23      3       4       25      24      .00                     \r\n                    5-        CQUAD1  4       23      4       5       26      25      .00                     \r\n                    6-        CQUAD1  5       23      5       6       27      26      .00                     \r\n                    7-        CQUAD1  6       23      6       7       28      27      .00                     \r\n                    8-        CQUAD1  7       23      7       8       29      28      .00                     \r\n                    9-        CQUAD1  8       23      8       9       30      29      .00                     \r\n                   10-        CQUAD1  9       23      9       10      31      30      .00                     \r\n                   11-        CQUAD1  10      23      10      11      32      31      .00                     \r\n                   12-        CQUAD1  11      23      11      12      33      32      .00                     \r\n                   13-        CQUAD1  12      23      12      13      34      33      .00                     \r\n                   14-        CQUAD1  13      23      13      14      35      34      .00                     \r\n                   15-        CQUAD1  14      23      14      15      36      35      .00                     \r\n                   16-        CQUAD1  15      23      15      16      37      36      .00                     \r\n                   17-        CQUAD1  16      23      16      17      38      37      .00                     \r\n                   18-        CQUAD1  17      23      17      18      39      38      .00                     \r\n                   19-        CQUAD1  18      23      18      19      40      39      .00                     \r\n                   20-        CQUAD1  19      23      19      20      41      40      .00                     \r\n                   21-        CQUAD1  20      23      20      21      42      41      .00                     \r\n                   22-        CQUAD1  22      23      22      23      44      43      .00                     \r\n                   23-        CQUAD1  23      23      23      24      45      44      .00                     \r\n                   24-        CQUAD1  24      23      24      25      46      45      .00                     \r\n                   25-        CQUAD1  25      23      25      26      47      46      .00                     \r\n                   26-        CQUAD1  26      23      26      27      48      47      .00                     \r\n                   27-        CQUAD1  27      23      27      28      49      48      .00                     \r\n                   28-        CQUAD1  28      23      28      29      50      49      .00                     \r\n                   29-        CQUAD1  29      23      29      30      51      50      .00                     \r\n                   30-        CQUAD1  30      23      30      31      52      51      .00                     \r\n                   31-        CQUAD1  31      23      31      32      53      52      .00                     \r\n                   32-        CQUAD1  32      23      32      33      54      53      .00                     \r\n                   33-        CQUAD1  33      23      33      34      55      54      .00                     \r\n                   34-        CQUAD1  34      23      34      35      56      55      .00                     \r\n                   35-        CQUAD1  35      23      35      36      57      56      .00                     \r\n                   36-        CQUAD1  36      23      36      37      58      57      .00                     \r\n                   37-        CQUAD1  37      23      37      38      59      58      .00                     \r\n                   38-        CQUAD1  38      23      38      39      60      59      .00                     \r\n                   39-        CQUAD1  39      23      39      40      61      60      .00                     \r\n                   40-        CQUAD1  40      23      40      41      62      61      .00                     \r\n                   41-        CQUAD1  41      23      41      42      63      62      .00                     \r\n                   42-        CQUAD1  43      23      43      44      65      64      .00                     \r\n                   43-        CQUAD1  44      23      44      45      66      65      .00                     \r\n                   44-        CQUAD1  45      23      45      46      67      66      .00                     \r\n                   45-        CQUAD1  46      23      46      47      68      67      .00                     \r\n                   46-        CQUAD1  47      23      47      48      69      68      .00                     \r\n                   47-        CQUAD1  48      23      48      49      70      69      .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD1  49      23      49      50      71      70      .00                     \r\n                   49-        CQUAD1  50      23      50      51      72      71      .00                     \r\n                   50-        CQUAD1  51      23      51      52      73      72      .00                     \r\n                   51-        CQUAD1  52      23      52      53      74      73      .00                     \r\n                   52-        CQUAD1  53      23      53      54      75      74      .00                     \r\n                   53-        CQUAD1  54      23      54      55      76      75      .00                     \r\n                   54-        CQUAD1  55      23      55      56      77      76      .00                     \r\n                   55-        CQUAD1  56      23      56      57      78      77      .00                     \r\n                   56-        CQUAD1  57      23      57      58      79      78      .00                     \r\n                   57-        CQUAD1  58      23      58      59      80      79      .00                     \r\n                   58-        CQUAD1  59      23      59      60      81      80      .00                     \r\n                   59-        CQUAD1  60      23      60      61      82      81      .00                     \r\n                   60-        CQUAD1  61      23      61      62      83      82      .00                     \r\n                   61-        CQUAD1  62      23      62      63      84      83      .00                     \r\n                   62-        CQUAD1  64      23      64      65      86      85      .00                     \r\n                   63-        CQUAD1  65      23      65      66      87      86      .00                     \r\n                   64-        CQUAD1  66      23      66      67      88      87      .00                     \r\n                   65-        CQUAD1  67      23      67      68      89      88      .00                     \r\n                   66-        CQUAD1  68      23      68      69      90      89      .00                     \r\n                   67-        CQUAD1  69      23      69      70      91      90      .00                     \r\n                   68-        CQUAD1  70      23      70      71      92      91      .00                     \r\n                   69-        CQUAD1  71      23      71      72      93      92      .00                     \r\n                   70-        CQUAD1  72      23      72      73      94      93      .00                     \r\n                   71-        CQUAD1  73      23      73      74      95      94      .00                     \r\n                   72-        CQUAD1  74      23      74      75      96      95      .00                     \r\n                   73-        CQUAD1  75      23      75      76      97      96      .00                     \r\n                   74-        CQUAD1  76      23      76      77      98      97      .00                     \r\n                   75-        CQUAD1  77      23      77      78      99      98      .00                     \r\n                   76-        CQUAD1  78      23      78      79      100     99      .00                     \r\n                   77-        CQUAD1  79      23      79      80      101     100     .00                     \r\n                   78-        CQUAD1  80      23      80      81      102     101     .00                     \r\n                   79-        CQUAD1  81      23      81      82      103     102     .00                     \r\n                   80-        CQUAD1  82      23      82      83      104     103     .00                     \r\n                   81-        CQUAD1  83      23      83      84      105     104     .00                     \r\n                   82-        CQUAD1  85      23      85      86      107     106     .00                     \r\n                   83-        CQUAD1  86      23      86      87      108     107     .00                     \r\n                   84-        CQUAD1  87      23      87      88      109     108     .00                     \r\n                   85-        CQUAD1  88      23      88      89      110     109     .00                     \r\n                   86-        CQUAD1  89      23      89      90      111     110     .00                     \r\n                   87-        CQUAD1  90      23      90      91      112     111     .00                     \r\n                   88-        CQUAD1  91      23      91      92      113     112     .00                     \r\n                   89-        CQUAD1  92      23      92      93      114     113     .00                     \r\n                   90-        CQUAD1  93      23      93      94      115     114     .00                     \r\n                   91-        CQUAD1  94      23      94      95      116     115     .00                     \r\n                   92-        CQUAD1  95      23      95      96      117     116     .00                     \r\n                   93-        CQUAD1  96      23      96      97      118     117     .00                     \r\n                   94-        CQUAD1  97      23      97      98      119     118     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD1  98      23      98      99      120     119     .00                     \r\n                   96-        CQUAD1  99      23      99      100     121     120     .00                     \r\n                   97-        CQUAD1  100     23      100     101     122     121     .00                     \r\n                   98-        CQUAD1  101     23      101     102     123     122     .00                     \r\n                   99-        CQUAD1  102     23      102     103     124     123     .00                     \r\n                  100-        CQUAD1  103     23      103     104     125     124     .00                     \r\n                  101-        CQUAD1  104     23      104     105     126     125     .00                     \r\n                  102-        CQUAD1  106     23      106     107     128     127     .00                     \r\n                  103-        CQUAD1  107     23      107     108     129     128     .00                     \r\n                  104-        CQUAD1  108     23      108     109     130     129     .00                     \r\n                  105-        CQUAD1  109     23      109     110     131     130     .00                     \r\n                  106-        CQUAD1  110     23      110     111     132     131     .00                     \r\n                  107-        CQUAD1  111     23      111     112     133     132     .00                     \r\n                  108-        CQUAD1  112     23      112     113     134     133     .00                     \r\n                  109-        CQUAD1  113     23      113     114     135     134     .00                     \r\n                  110-        CQUAD1  114     23      114     115     136     135     .00                     \r\n                  111-        CQUAD1  115     23      115     116     137     136     .00                     \r\n                  112-        CQUAD1  116     23      116     117     138     137     .00                     \r\n                  113-        CQUAD1  117     23      117     118     139     138     .00                     \r\n                  114-        CQUAD1  118     23      118     119     140     139     .00                     \r\n                  115-        CQUAD1  119     23      119     120     141     140     .00                     \r\n                  116-        CQUAD1  120     23      120     121     142     141     .00                     \r\n                  117-        CQUAD1  121     23      121     122     143     142     .00                     \r\n                  118-        CQUAD1  122     23      122     123     144     143     .00                     \r\n                  119-        CQUAD1  123     23      123     124     145     144     .00                     \r\n                  120-        CQUAD1  124     23      124     125     146     145     .00                     \r\n                  121-        CQUAD1  125     23      125     126     147     146     .00                     \r\n                  122-        CQUAD1  127     23      127     128     149     148     .00                     \r\n                  123-        CQUAD1  128     23      128     129     150     149     .00                     \r\n                  124-        CQUAD1  129     23      129     130     151     150     .00                     \r\n                  125-        CQUAD1  130     23      130     131     152     151     .00                     \r\n                  126-        CQUAD1  131     23      131     132     153     152     .00                     \r\n                  127-        CQUAD1  132     23      132     133     154     153     .00                     \r\n                  128-        CQUAD1  133     23      133     134     155     154     .00                     \r\n                  129-        CQUAD1  134     23      134     135     156     155     .00                     \r\n                  130-        CQUAD1  135     23      135     136     157     156     .00                     \r\n                  131-        CQUAD1  136     23      136     137     158     157     .00                     \r\n                  132-        CQUAD1  137     23      137     138     159     158     .00                     \r\n                  133-        CQUAD1  138     23      138     139     160     159     .00                     \r\n                  134-        CQUAD1  139     23      139     140     161     160     .00                     \r\n                  135-        CQUAD1  140     23      140     141     162     161     .00                     \r\n                  136-        CQUAD1  141     23      141     142     163     162     .00                     \r\n                  137-        CQUAD1  142     23      142     143     164     163     .00                     \r\n                  138-        CQUAD1  143     23      143     144     165     164     .00                     \r\n                  139-        CQUAD1  144     23      144     145     166     165     .00                     \r\n                  140-        CQUAD1  145     23      145     146     167     166     .00                     \r\n                  141-        CQUAD1  146     23      146     147     168     167     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQUAD1  148     23      148     149     170     169     .00                     \r\n                  143-        CQUAD1  149     23      149     150     171     170     .00                     \r\n                  144-        CQUAD1  150     23      150     151     172     171     .00                     \r\n                  145-        CQUAD1  151     23      151     152     173     172     .00                     \r\n                  146-        CQUAD1  152     23      152     153     174     173     .00                     \r\n                  147-        CQUAD1  153     23      153     154     175     174     .00                     \r\n                  148-        CQUAD1  154     23      154     155     176     175     .00                     \r\n                  149-        CQUAD1  155     23      155     156     177     176     .00                     \r\n                  150-        CQUAD1  156     23      156     157     178     177     .00                     \r\n                  151-        CQUAD1  157     23      157     158     179     178     .00                     \r\n                  152-        CQUAD1  158     23      158     159     180     179     .00                     \r\n                  153-        CQUAD1  159     23      159     160     181     180     .00                     \r\n                  154-        CQUAD1  160     23      160     161     182     181     .00                     \r\n                  155-        CQUAD1  161     23      161     162     183     182     .00                     \r\n                  156-        CQUAD1  162     23      162     163     184     183     .00                     \r\n                  157-        CQUAD1  163     23      163     164     185     184     .00                     \r\n                  158-        CQUAD1  164     23      164     165     186     185     .00                     \r\n                  159-        CQUAD1  165     23      165     166     187     186     .00                     \r\n                  160-        CQUAD1  166     23      166     167     188     187     .00                     \r\n                  161-        CQUAD1  167     23      167     168     189     188     .00                     \r\n                  162-        CQUAD1  169     23      169     170     191     190     .00                     \r\n                  163-        CQUAD1  170     23      170     171     192     191     .00                     \r\n                  164-        CQUAD1  171     23      171     172     193     192     .00                     \r\n                  165-        CQUAD1  172     23      172     173     194     193     .00                     \r\n                  166-        CQUAD1  173     23      173     174     195     194     .00                     \r\n                  167-        CQUAD1  174     23      174     175     196     195     .00                     \r\n                  168-        CQUAD1  175     23      175     176     197     196     .00                     \r\n                  169-        CQUAD1  176     23      176     177     198     197     .00                     \r\n                  170-        CQUAD1  177     23      177     178     199     198     .00                     \r\n                  171-        CQUAD1  178     23      178     179     200     199     .00                     \r\n                  172-        CQUAD1  179     23      179     180     201     200     .00                     \r\n                  173-        CQUAD1  180     23      180     181     202     201     .00                     \r\n                  174-        CQUAD1  181     23      181     182     203     202     .00                     \r\n                  175-        CQUAD1  182     23      182     183     204     203     .00                     \r\n                  176-        CQUAD1  183     23      183     184     205     204     .00                     \r\n                  177-        CQUAD1  184     23      184     185     206     205     .00                     \r\n                  178-        CQUAD1  185     23      185     186     207     206     .00                     \r\n                  179-        CQUAD1  186     23      186     187     208     207     .00                     \r\n                  180-        CQUAD1  187     23      187     188     209     208     .00                     \r\n                  181-        CQUAD1  188     23      188     189     210     209     .00                     \r\n                  182-        CQUAD1  190     23      190     191     212     211     .00                     \r\n                  183-        CQUAD1  191     23      191     192     213     212     .00                     \r\n                  184-        CQUAD1  192     23      192     193     214     213     .00                     \r\n                  185-        CQUAD1  193     23      193     194     215     214     .00                     \r\n                  186-        CQUAD1  194     23      194     195     216     215     .00                     \r\n                  187-        CQUAD1  195     23      195     196     217     216     .00                     \r\n                  188-        CQUAD1  196     23      196     197     218     217     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CQUAD1  197     23      197     198     219     218     .00                     \r\n                  190-        CQUAD1  198     23      198     199     220     219     .00                     \r\n                  191-        CQUAD1  199     23      199     200     221     220     .00                     \r\n                  192-        CQUAD1  200     23      200     201     222     221     .00                     \r\n                  193-        CQUAD1  201     23      201     202     223     222     .00                     \r\n                  194-        CQUAD1  202     23      202     203     224     223     .00                     \r\n                  195-        CQUAD1  203     23      203     204     225     224     .00                     \r\n                  196-        CQUAD1  204     23      204     205     226     225     .00                     \r\n                  197-        CQUAD1  205     23      205     206     227     226     .00                     \r\n                  198-        CQUAD1  206     23      206     207     228     227     .00                     \r\n                  199-        CQUAD1  207     23      207     208     229     228     .00                     \r\n                  200-        CQUAD1  208     23      208     209     230     229     .00                     \r\n                  201-        CQUAD1  209     23      209     210     231     230     .00                     \r\n                  202-        CQUAD1  211     23      211     212     233     232     .00                     \r\n                  203-        CQUAD1  212     23      212     213     234     233     .00                     \r\n                  204-        CQUAD1  213     23      213     214     235     234     .00                     \r\n                  205-        CQUAD1  214     23      214     215     236     235     .00                     \r\n                  206-        CQUAD1  215     23      215     216     237     236     .00                     \r\n                  207-        CQUAD1  216     23      216     217     238     237     .00                     \r\n                  208-        CQUAD1  217     23      217     218     239     238     .00                     \r\n                  209-        CQUAD1  218     23      218     219     240     239     .00                     \r\n                  210-        CQUAD1  219     23      219     220     241     240     .00                     \r\n                  211-        CQUAD1  220     23      220     221     242     241     .00                     \r\n                  212-        CQUAD1  221     23      221     222     243     242     .00                     \r\n                  213-        CQUAD1  222     23      222     223     244     243     .00                     \r\n                  214-        CQUAD1  223     23      223     224     245     244     .00                     \r\n                  215-        CQUAD1  224     23      224     225     246     245     .00                     \r\n                  216-        CQUAD1  225     23      225     226     247     246     .00                     \r\n                  217-        CQUAD1  226     23      226     227     248     247     .00                     \r\n                  218-        CQUAD1  227     23      227     228     249     248     .00                     \r\n                  219-        CQUAD1  228     23      228     229     250     249     .00                     \r\n                  220-        CQUAD1  229     23      229     230     251     250     .00                     \r\n                  221-        CQUAD1  230     23      230     231     252     251     .00                     \r\n                  222-        CQUAD1  232     23      232     233     254     253     .00                     \r\n                  223-        CQUAD1  233     23      233     234     255     254     .00                     \r\n                  224-        CQUAD1  234     23      234     235     256     255     .00                     \r\n                  225-        CQUAD1  235     23      235     236     257     256     .00                     \r\n                  226-        CQUAD1  236     23      236     237     258     257     .00                     \r\n                  227-        CQUAD1  237     23      237     238     259     258     .00                     \r\n                  228-        CQUAD1  238     23      238     239     260     259     .00                     \r\n                  229-        CQUAD1  239     23      239     240     261     260     .00                     \r\n                  230-        CQUAD1  240     23      240     241     262     261     .00                     \r\n                  231-        CQUAD1  241     23      241     242     263     262     .00                     \r\n                  232-        CQUAD1  242     23      242     243     264     263     .00                     \r\n                  233-        CQUAD1  243     23      243     244     265     264     .00                     \r\n                  234-        CQUAD1  244     23      244     245     266     265     .00                     \r\n                  235-        CQUAD1  245     23      245     246     267     266     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CQUAD1  246     23      246     247     268     267     .00                     \r\n                  237-        CQUAD1  247     23      247     248     269     268     .00                     \r\n                  238-        CQUAD1  248     23      248     249     270     269     .00                     \r\n                  239-        CQUAD1  249     23      249     250     271     270     .00                     \r\n                  240-        CQUAD1  250     23      250     251     272     271     .00                     \r\n                  241-        CQUAD1  251     23      251     252     273     272     .00                     \r\n                  242-        CQUAD1  253     23      253     254     275     274     .00                     \r\n                  243-        CQUAD1  254     23      254     255     276     275     .00                     \r\n                  244-        CQUAD1  255     23      255     256     277     276     .00                     \r\n                  245-        CQUAD1  256     23      256     257     278     277     .00                     \r\n                  246-        CQUAD1  257     23      257     258     279     278     .00                     \r\n                  247-        CQUAD1  258     23      258     259     280     279     .00                     \r\n                  248-        CQUAD1  259     23      259     260     281     280     .00                     \r\n                  249-        CQUAD1  260     23      260     261     282     281     .00                     \r\n                  250-        CQUAD1  261     23      261     262     283     282     .00                     \r\n                  251-        CQUAD1  262     23      262     263     284     283     .00                     \r\n                  252-        CQUAD1  263     23      263     264     285     284     .00                     \r\n                  253-        CQUAD1  264     23      264     265     286     285     .00                     \r\n                  254-        CQUAD1  265     23      265     266     287     286     .00                     \r\n                  255-        CQUAD1  266     23      266     267     288     287     .00                     \r\n                  256-        CQUAD1  267     23      267     268     289     288     .00                     \r\n                  257-        CQUAD1  268     23      268     269     290     289     .00                     \r\n                  258-        CQUAD1  269     23      269     270     291     290     .00                     \r\n                  259-        CQUAD1  270     23      270     271     292     291     .00                     \r\n                  260-        CQUAD1  271     23      271     272     293     292     .00                     \r\n                  261-        CQUAD1  272     23      272     273     294     293     .00                     \r\n                  262-        CQUAD1  274     23      274     275     296     295     .00                     \r\n                  263-        CQUAD1  275     23      275     276     297     296     .00                     \r\n                  264-        CQUAD1  276     23      276     277     298     297     .00                     \r\n                  265-        CQUAD1  277     23      277     278     299     298     .00                     \r\n                  266-        CQUAD1  278     23      278     279     300     299     .00                     \r\n                  267-        CQUAD1  279     23      279     280     301     300     .00                     \r\n                  268-        CQUAD1  280     23      280     281     302     301     .00                     \r\n                  269-        CQUAD1  281     23      281     282     303     302     .00                     \r\n                  270-        CQUAD1  282     23      282     283     304     303     .00                     \r\n                  271-        CQUAD1  283     23      283     284     305     304     .00                     \r\n                  272-        CQUAD1  284     23      284     285     306     305     .00                     \r\n                  273-        CQUAD1  285     23      285     286     307     306     .00                     \r\n                  274-        CQUAD1  286     23      286     287     308     307     .00                     \r\n                  275-        CQUAD1  287     23      287     288     309     308     .00                     \r\n                  276-        CQUAD1  288     23      288     289     310     309     .00                     \r\n                  277-        CQUAD1  289     23      289     290     311     310     .00                     \r\n                  278-        CQUAD1  290     23      290     291     312     311     .00                     \r\n                  279-        CQUAD1  291     23      291     292     313     312     .00                     \r\n                  280-        CQUAD1  292     23      292     293     314     313     .00                     \r\n                  281-        CQUAD1  293     23      293     294     315     314     .00                     \r\n                  282-        CQUAD1  295     23      295     296     317     316     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CQUAD1  296     23      296     297     318     317     .00                     \r\n                  284-        CQUAD1  297     23      297     298     319     318     .00                     \r\n                  285-        CQUAD1  298     23      298     299     320     319     .00                     \r\n                  286-        CQUAD1  299     23      299     300     321     320     .00                     \r\n                  287-        CQUAD1  300     23      300     301     322     321     .00                     \r\n                  288-        CQUAD1  301     23      301     302     323     322     .00                     \r\n                  289-        CQUAD1  302     23      302     303     324     323     .00                     \r\n                  290-        CQUAD1  303     23      303     304     325     324     .00                     \r\n                  291-        CQUAD1  304     23      304     305     326     325     .00                     \r\n                  292-        CQUAD1  305     23      305     306     327     326     .00                     \r\n                  293-        CQUAD1  306     23      306     307     328     327     .00                     \r\n                  294-        CQUAD1  307     23      307     308     329     328     .00                     \r\n                  295-        CQUAD1  308     23      308     309     330     329     .00                     \r\n                  296-        CQUAD1  309     23      309     310     331     330     .00                     \r\n                  297-        CQUAD1  310     23      310     311     332     331     .00                     \r\n                  298-        CQUAD1  311     23      311     312     333     332     .00                     \r\n                  299-        CQUAD1  312     23      312     313     334     333     .00                     \r\n                  300-        CQUAD1  313     23      313     314     335     334     .00                     \r\n                  301-        CQUAD1  314     23      314     315     336     335     .00                     \r\n                  302-        CQUAD1  316     23      316     317     338     337     .00                     \r\n                  303-        CQUAD1  317     23      317     318     339     338     .00                     \r\n                  304-        CQUAD1  318     23      318     319     340     339     .00                     \r\n                  305-        CQUAD1  319     23      319     320     341     340     .00                     \r\n                  306-        CQUAD1  320     23      320     321     342     341     .00                     \r\n                  307-        CQUAD1  321     23      321     322     343     342     .00                     \r\n                  308-        CQUAD1  322     23      322     323     344     343     .00                     \r\n                  309-        CQUAD1  323     23      323     324     345     344     .00                     \r\n                  310-        CQUAD1  324     23      324     325     346     345     .00                     \r\n                  311-        CQUAD1  325     23      325     326     347     346     .00                     \r\n                  312-        CQUAD1  326     23      326     327     348     347     .00                     \r\n                  313-        CQUAD1  327     23      327     328     349     348     .00                     \r\n                  314-        CQUAD1  328     23      328     329     350     349     .00                     \r\n                  315-        CQUAD1  329     23      329     330     351     350     .00                     \r\n                  316-        CQUAD1  330     23      330     331     352     351     .00                     \r\n                  317-        CQUAD1  331     23      331     332     353     352     .00                     \r\n                  318-        CQUAD1  332     23      332     333     354     353     .00                     \r\n                  319-        CQUAD1  333     23      333     334     355     354     .00                     \r\n                  320-        CQUAD1  334     23      334     335     356     355     .00                     \r\n                  321-        CQUAD1  335     23      335     336     357     356     .00                     \r\n                  322-        CQUAD1  337     23      337     338     359     358     .00                     \r\n                  323-        CQUAD1  338     23      338     339     360     359     .00                     \r\n                  324-        CQUAD1  339     23      339     340     361     360     .00                     \r\n                  325-        CQUAD1  340     23      340     341     362     361     .00                     \r\n                  326-        CQUAD1  341     23      341     342     363     362     .00                     \r\n                  327-        CQUAD1  342     23      342     343     364     363     .00                     \r\n                  328-        CQUAD1  343     23      343     344     365     364     .00                     \r\n                  329-        CQUAD1  344     23      344     345     366     365     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CQUAD1  345     23      345     346     367     366     .00                     \r\n                  331-        CQUAD1  346     23      346     347     368     367     .00                     \r\n                  332-        CQUAD1  347     23      347     348     369     368     .00                     \r\n                  333-        CQUAD1  348     23      348     349     370     369     .00                     \r\n                  334-        CQUAD1  349     23      349     350     371     370     .00                     \r\n                  335-        CQUAD1  350     23      350     351     372     371     .00                     \r\n                  336-        CQUAD1  351     23      351     352     373     372     .00                     \r\n                  337-        CQUAD1  352     23      352     353     374     373     .00                     \r\n                  338-        CQUAD1  353     23      353     354     375     374     .00                     \r\n                  339-        CQUAD1  354     23      354     355     376     375     .00                     \r\n                  340-        CQUAD1  355     23      355     356     377     376     .00                     \r\n                  341-        CQUAD1  356     23      356     357     378     377     .00                     \r\n                  342-        CQUAD1  358     23      358     359     380     379     .00                     \r\n                  343-        CQUAD1  359     23      359     360     381     380     .00                     \r\n                  344-        CQUAD1  360     23      360     361     382     381     .00                     \r\n                  345-        CQUAD1  361     23      361     362     383     382     .00                     \r\n                  346-        CQUAD1  362     23      362     363     384     383     .00                     \r\n                  347-        CQUAD1  363     23      363     364     385     384     .00                     \r\n                  348-        CQUAD1  364     23      364     365     386     385     .00                     \r\n                  349-        CQUAD1  365     23      365     366     387     386     .00                     \r\n                  350-        CQUAD1  366     23      366     367     388     387     .00                     \r\n                  351-        CQUAD1  367     23      367     368     389     388     .00                     \r\n                  352-        CQUAD1  368     23      368     369     390     389     .00                     \r\n                  353-        CQUAD1  369     23      369     370     391     390     .00                     \r\n                  354-        CQUAD1  370     23      370     371     392     391     .00                     \r\n                  355-        CQUAD1  371     23      371     372     393     392     .00                     \r\n                  356-        CQUAD1  372     23      372     373     394     393     .00                     \r\n                  357-        CQUAD1  373     23      373     374     395     394     .00                     \r\n                  358-        CQUAD1  374     23      374     375     396     395     .00                     \r\n                  359-        CQUAD1  375     23      375     376     397     396     .00                     \r\n                  360-        CQUAD1  376     23      376     377     398     397     .00                     \r\n                  361-        CQUAD1  377     23      377     378     399     398     .00                     \r\n                  362-        CQUAD1  379     23      379     380     401     400     .00                     \r\n                  363-        CQUAD1  380     23      380     381     402     401     .00                     \r\n                  364-        CQUAD1  381     23      381     382     403     402     .00                     \r\n                  365-        CQUAD1  382     23      382     383     404     403     .00                     \r\n                  366-        CQUAD1  383     23      383     384     405     404     .00                     \r\n                  367-        CQUAD1  384     23      384     385     406     405     .00                     \r\n                  368-        CQUAD1  385     23      385     386     407     406     .00                     \r\n                  369-        CQUAD1  386     23      386     387     408     407     .00                     \r\n                  370-        CQUAD1  387     23      387     388     409     408     .00                     \r\n                  371-        CQUAD1  388     23      388     389     410     409     .00                     \r\n                  372-        CQUAD1  389     23      389     390     411     410     .00                     \r\n                  373-        CQUAD1  390     23      390     391     412     411     .00                     \r\n                  374-        CQUAD1  391     23      391     392     413     412     .00                     \r\n                  375-        CQUAD1  392     23      392     393     414     413     .00                     \r\n                  376-        CQUAD1  393     23      393     394     415     414     .00                     \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CQUAD1  394     23      394     395     416     415     .00                     \r\n                  378-        CQUAD1  395     23      395     396     417     416     .00                     \r\n                  379-        CQUAD1  396     23      396     397     418     417     .00                     \r\n                  380-        CQUAD1  397     23      397     398     419     418     .00                     \r\n                  381-        CQUAD1  398     23      398     399     420     419     .00                     \r\n                  382-        CQUAD1  400     23      400     401     422     421     .00                     \r\n                  383-        CQUAD1  401     23      401     402     423     422     .00                     \r\n                  384-        CQUAD1  402     23      402     403     424     423     .00                     \r\n                  385-        CQUAD1  403     23      403     404     425     424     .00                     \r\n                  386-        CQUAD1  404     23      404     405     426     425     .00                     \r\n                  387-        CQUAD1  405     23      405     406     427     426     .00                     \r\n                  388-        CQUAD1  406     23      406     407     428     427     .00                     \r\n                  389-        CQUAD1  407     23      407     408     429     428     .00                     \r\n                  390-        CQUAD1  408     23      408     409     430     429     .00                     \r\n                  391-        CQUAD1  409     23      409     410     431     430     .00                     \r\n                  392-        CQUAD1  410     23      410     411     432     431     .00                     \r\n                  393-        CQUAD1  411     23      411     412     433     432     .00                     \r\n                  394-        CQUAD1  412     23      412     413     434     433     .00                     \r\n                  395-        CQUAD1  413     23      413     414     435     434     .00                     \r\n                  396-        CQUAD1  414     23      414     415     436     435     .00                     \r\n                  397-        CQUAD1  415     23      415     416     437     436     .00                     \r\n                  398-        CQUAD1  416     23      416     417     438     437     .00                     \r\n                  399-        CQUAD1  417     23      417     418     439     438     .00                     \r\n                  400-        CQUAD1  418     23      418     419     440     439     .00                     \r\n                  401-        CQUAD1  419     23      419     420     441     440     .00                     \r\n                  402-        DAREA  *37              1               3               2.5000000E-01           \r\n                  403-        DAREA  *37              2               3               4.9845867E-01           \r\n                  404-        DAREA  *37              3               3               4.9384417E-01           \r\n                  405-        DAREA  *37              4               3               4.8618496E-01           \r\n                  406-        DAREA  *37              5               3               4.7552826E-01           \r\n                  407-        DAREA  *37              6               3               4.6193977E-01           \r\n                  408-        DAREA  *37              7               3               4.4550326E-01           \r\n                  409-        DAREA  *37              8               3               4.2632008E-01           \r\n                  410-        DAREA  *37              9               3               4.0450850E-01           \r\n                  411-        DAREA  *37              10              3               3.8020299E-01           \r\n                  412-        DAREA  *37              11              3               3.5355339E-01           \r\n                  413-        DAREA  *37              12              3               3.2472403E-01           \r\n                  414-        DAREA  *37              13              3               2.9389263E-01           \r\n                  415-        DAREA  *37              14              3               2.6124929E-01           \r\n                  416-        DAREA  *37              15              3               2.2699525E-01           \r\n                  417-        DAREA  *37              16              3               1.9134172E-01           \r\n                  418-        DAREA  *37              17              3               1.5450850E-01           \r\n                  419-        DAREA  *37              18              3               1.1672269E-01           \r\n                  420-        DAREA  *37              19              3               7.8217242E-02           \r\n                  421-        DAREA  *37              20              3               3.9229557E-02           \r\n                  422-        DAREA  *37              22              3               4.9845867E-01           \r\n                  423-        DAREA  *37              23              3               9.9384417E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        DAREA  *37              24              3               9.8464362E-01           \r\n                  425-        DAREA  *37              25              3               9.6937243E-01           \r\n                  426-        DAREA  *37              26              3               9.4812473E-01           \r\n                  427-        DAREA  *37              27              3               9.2103152E-01           \r\n                  428-        DAREA  *37              28              3               8.8825985E-01           \r\n                  429-        DAREA  *37              29              3               8.5001176E-01           \r\n                  430-        DAREA  *37              30              3               8.0652306E-01           \r\n                  431-        DAREA  *37              31              3               7.5806189E-01           \r\n                  432-        DAREA  *37              32              3               7.0492700E-01           \r\n                  433-        DAREA  *37              33              3               6.4744603E-01           \r\n                  434-        DAREA  *37              34              3               5.8597331E-01           \r\n                  435-        DAREA  *37              35              3               5.2088789E-01           \r\n                  436-        DAREA  *37              36              3               4.5259101E-01           \r\n                  437-        DAREA  *37              37              3               3.8150376E-01           \r\n                  438-        DAREA  *37              38              3               3.0806441E-01           \r\n                  439-        DAREA  *37              39              3               2.3272575E-01           \r\n                  440-        DAREA  *37              40              3               1.5595225E-01           \r\n                  441-        DAREA  *37              41              3               7.8217250E-02           \r\n                  442-        DAREA  *37              43              3               4.9384417E-01           \r\n                  443-        DAREA  *37              44              3               9.8464362E-01           \r\n                  444-        DAREA  *37              45              3               9.7552826E-01           \r\n                  445-        DAREA  *37              46              3               9.6039844E-01           \r\n                  446-        DAREA  *37              47              3               9.3934743E-01           \r\n                  447-        DAREA  *37              48              3               9.1250504E-01           \r\n                  448-        DAREA  *37              49              3               8.8003676E-01           \r\n                  449-        DAREA  *37              50              3               8.4214275E-01           \r\n                  450-        DAREA  *37              51              3               7.9905665E-01           \r\n                  451-        DAREA  *37              52              3               7.5104411E-01           \r\n                  452-        DAREA  *37              53              3               6.9840112E-01           \r\n                  453-        DAREA  *37              54              3               6.4145228E-01           \r\n                  454-        DAREA  *37              55              3               5.8054864E-01           \r\n                  455-        DAREA  *37              56              3               5.1606575E-01           \r\n                  456-        DAREA  *37              57              3               4.4840113E-01           \r\n                  457-        DAREA  *37              58              3               3.7797197E-01           \r\n                  458-        DAREA  *37              59              3               3.0521249E-01           \r\n                  459-        DAREA  *37              60              3               2.3057128E-01           \r\n                  460-        DAREA  *37              61              3               1.5450851E-01           \r\n                  461-        DAREA  *37              62              3               7.7493152E-02           \r\n                  462-        DAREA  *37              64              3               4.8618496E-01           \r\n                  463-        DAREA  *37              65              3               9.6937243E-01           \r\n                  464-        DAREA  *37              66              3               9.6039844E-01           \r\n                  465-        DAREA  *37              67              3               9.4550326E-01           \r\n                  466-        DAREA  *37              68              3               9.2477875E-01           \r\n                  467-        DAREA  *37              69              3               8.9835267E-01           \r\n                  468-        DAREA  *37              70              3               8.6638795E-01           \r\n                  469-        DAREA  *37              71              3               8.2908165E-01           \r\n                  470-        DAREA  *37              72              3               7.8666379E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        DAREA  *37              73              3               7.3939589E-01           \r\n                  472-        DAREA  *37              74              3               6.8756936E-01           \r\n                  473-        DAREA  *37              75              3               6.3150375E-01           \r\n                  474-        DAREA  *37              76              3               5.7154471E-01           \r\n                  475-        DAREA  *37              77              3               5.0806190E-01           \r\n                  476-        DAREA  *37              78              3               4.4144671E-01           \r\n                  477-        DAREA  *37              79              3               3.7210987E-01           \r\n                  478-        DAREA  *37              80              3               3.0047884E-01           \r\n                  479-        DAREA  *37              81              3               2.2699527E-01           \r\n                  480-        DAREA  *37              82              3               1.5211219E-01           \r\n                  481-        DAREA  *37              83              3               7.6291282E-02           \r\n                  482-        DAREA  *37              85              3               4.7552826E-01           \r\n                  483-        DAREA  *37              86              3               9.4812473E-01           \r\n                  484-        DAREA  *37              87              3               9.3934743E-01           \r\n                  485-        DAREA  *37              88              3               9.2477875E-01           \r\n                  486-        DAREA  *37              89              3               9.0450849E-01           \r\n                  487-        DAREA  *37              90              3               8.7866165E-01           \r\n                  488-        DAREA  *37              91              3               8.4739757E-01           \r\n                  489-        DAREA  *37              92              3               8.1090898E-01           \r\n                  490-        DAREA  *37              93              3               7.6942088E-01           \r\n                  491-        DAREA  *37              94              3               7.2318906E-01           \r\n                  492-        DAREA  *37              95              3               6.7249851E-01           \r\n                  493-        DAREA  *37              96              3               6.1766180E-01           \r\n                  494-        DAREA  *37              97              3               5.5901700E-01           \r\n                  495-        DAREA  *37              98              3               4.9692567E-01           \r\n                  496-        DAREA  *37              99              3               4.3177063E-01           \r\n                  497-        DAREA  *37              100             3               3.6395358E-01           \r\n                  498-        DAREA  *37              101             3               2.9389264E-01           \r\n                  499-        DAREA  *37              102             3               2.2201975E-01           \r\n                  500-        DAREA  *37              103             3               1.4877803E-01           \r\n                  501-        DAREA  *37              104             3               7.4619051E-02           \r\n                  502-        DAREA  *37              106             3               4.6193977E-01           \r\n                  503-        DAREA  *37              107             3               9.2103152E-01           \r\n                  504-        DAREA  *37              108             3               9.1250504E-01           \r\n                  505-        DAREA  *37              109             3               8.9835267E-01           \r\n                  506-        DAREA  *37              110             3               8.7866165E-01           \r\n                  507-        DAREA  *37              111             3               8.5355339E-01           \r\n                  508-        DAREA  *37              112             3               8.2318269E-01           \r\n                  509-        DAREA  *37              113             3               7.8773680E-01           \r\n                  510-        DAREA  *37              114             3               7.4743424E-01           \r\n                  511-        DAREA  *37              115             3               7.0252351E-01           \r\n                  512-        DAREA  *37              116             3               6.5328148E-01           \r\n                  513-        DAREA  *37              117             3               6.0001177E-01           \r\n                  514-        DAREA  *37              118             3               5.4304276E-01           \r\n                  515-        DAREA  *37              119             3               4.8272574E-01           \r\n                  516-        DAREA  *37              120             3               4.1943254E-01           \r\n                  517-        DAREA  *37              121             3               3.5355340E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        DAREA  *37              122             3               2.8549449E-01           \r\n                  519-        DAREA  *37              123             3               2.1567541E-01           \r\n                  520-        DAREA  *37              124             3               1.4452662E-01           \r\n                  521-        DAREA  *37              125             3               7.2486769E-02           \r\n                  522-        DAREA  *37              127             3               4.4550326E-01           \r\n                  523-        DAREA  *37              128             3               8.8825985E-01           \r\n                  524-        DAREA  *37              129             3               8.8003676E-01           \r\n                  525-        DAREA  *37              130             3               8.6638795E-01           \r\n                  526-        DAREA  *37              131             3               8.4739757E-01           \r\n                  527-        DAREA  *37              132             3               8.2318269E-01           \r\n                  528-        DAREA  *37              133             3               7.9389263E-01           \r\n                  529-        DAREA  *37              134             3               7.5970795E-01           \r\n                  530-        DAREA  *37              135             3               7.2083942E-01           \r\n                  531-        DAREA  *37              136             3               6.7752668E-01           \r\n                  532-        DAREA  *37              137             3               6.3003676E-01           \r\n                  533-        DAREA  *37              138             3               5.7866246E-01           \r\n                  534-        DAREA  *37              139             3               5.2372050E-01           \r\n                  535-        DAREA  *37              140             3               4.6554964E-01           \r\n                  536-        DAREA  *37              141             3               4.0450851E-01           \r\n                  537-        DAREA  *37              142             3               3.4097344E-01           \r\n                  538-        DAREA  *37              143             3               2.7533617E-01           \r\n                  539-        DAREA  *37              144             3               2.0800136E-01           \r\n                  540-        DAREA  *37              145             3               1.3938414E-01           \r\n                  541-        DAREA  *37              146             3               6.9907582E-02           \r\n                  542-        DAREA  *37              148             3               4.2632008E-01           \r\n                  543-        DAREA  *37              149             3               8.5001176E-01           \r\n                  544-        DAREA  *37              150             3               8.4214275E-01           \r\n                  545-        DAREA  *37              151             3               8.2908165E-01           \r\n                  546-        DAREA  *37              152             3               8.1090898E-01           \r\n                  547-        DAREA  *37              153             3               7.8773680E-01           \r\n                  548-        DAREA  *37              154             3               7.5970795E-01           \r\n                  549-        DAREA  *37              155             3               7.2699525E-01           \r\n                  550-        DAREA  *37              156             3               6.8980038E-01           \r\n                  551-        DAREA  *37              157             3               6.4835268E-01           \r\n                  552-        DAREA  *37              158             3               6.0290764E-01           \r\n                  553-        DAREA  *37              159             3               5.5374550E-01           \r\n                  554-        DAREA  *37              160             3               5.0116932E-01           \r\n                  555-        DAREA  *37              161             3               4.4550327E-01           \r\n                  556-        DAREA  *37              162             3               3.8709054E-01           \r\n                  557-        DAREA  *37              163             3               3.2629127E-01           \r\n                  558-        DAREA  *37              164             3               2.6348031E-01           \r\n                  559-        DAREA  *37              165             3               1.9904491E-01           \r\n                  560-        DAREA  *37              166             3               1.3338232E-01           \r\n                  561-        DAREA  *37              167             3               6.6897391E-02           \r\n                  562-        DAREA  *37              169             3               4.0450850E-01           \r\n                  563-        DAREA  *37              170             3               8.0652306E-01           \r\n                  564-        DAREA  *37              171             3               7.9905665E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        DAREA  *37              172             3               7.8666379E-01           \r\n                  566-        DAREA  *37              173             3               7.6942088E-01           \r\n                  567-        DAREA  *37              174             3               7.4743424E-01           \r\n                  568-        DAREA  *37              175             3               7.2083942E-01           \r\n                  569-        DAREA  *37              176             3               6.8980038E-01           \r\n                  570-        DAREA  *37              177             3               6.5450849E-01           \r\n                  571-        DAREA  *37              178             3               6.1518135E-01           \r\n                  572-        DAREA  *37              179             3               5.7206140E-01           \r\n                  573-        DAREA  *37              180             3               5.2541451E-01           \r\n                  574-        DAREA  *37              181             3               4.7552826E-01           \r\n                  575-        DAREA  *37              182             3               4.2271023E-01           \r\n                  576-        DAREA  *37              183             3               3.6728603E-01           \r\n                  577-        DAREA  *37              184             3               3.0959741E-01           \r\n                  578-        DAREA  *37              185             3               2.5000001E-01           \r\n                  579-        DAREA  *37              186             3               1.8886128E-01           \r\n                  580-        DAREA  *37              187             3               1.2655815E-01           \r\n                  581-        DAREA  *37              188             3               6.3474756E-02           \r\n                  582-        DAREA  *37              190             3               3.8020299E-01           \r\n                  583-        DAREA  *37              191             3               7.5806189E-01           \r\n                  584-        DAREA  *37              192             3               7.5104411E-01           \r\n                  585-        DAREA  *37              193             3               7.3939589E-01           \r\n                  586-        DAREA  *37              194             3               7.2318906E-01           \r\n                  587-        DAREA  *37              195             3               7.0252351E-01           \r\n                  588-        DAREA  *37              196             3               6.7752668E-01           \r\n                  589-        DAREA  *37              197             3               6.4835268E-01           \r\n                  590-        DAREA  *37              198             3               6.1518135E-01           \r\n                  591-        DAREA  *37              199             3               5.7821724E-01           \r\n                  592-        DAREA  *37              200             3               5.3768822E-01           \r\n                  593-        DAREA  *37              201             3               4.9384418E-01           \r\n                  594-        DAREA  *37              202             3               4.4695542E-01           \r\n                  595-        DAREA  *37              203             3               3.9731104E-01           \r\n                  596-        DAREA  *37              204             3               3.4521709E-01           \r\n                  597-        DAREA  *37              205             3               2.9099477E-01           \r\n                  598-        DAREA  *37              206             3               2.3497838E-01           \r\n                  599-        DAREA  *37              207             3               1.7751326E-01           \r\n                  600-        DAREA  *37              208             3               1.1895372E-01           \r\n                  601-        DAREA  *37              209             3               5.9660778E-02           \r\n                  602-        DAREA  *37              211             3               3.5355339E-01           \r\n                  603-        DAREA  *37              212             3               7.0492700E-01           \r\n                  604-        DAREA  *37              213             3               6.9840112E-01           \r\n                  605-        DAREA  *37              214             3               6.8756936E-01           \r\n                  606-        DAREA  *37              215             3               6.7249851E-01           \r\n                  607-        DAREA  *37              216             3               6.5328148E-01           \r\n                  608-        DAREA  *37              217             3               6.3003676E-01           \r\n                  609-        DAREA  *37              218             3               6.0290764E-01           \r\n                  610-        DAREA  *37              219             3               5.7206140E-01           \r\n                  611-        DAREA  *37              220             3               5.3768822E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        DAREA  *37              221             3               5.0000000E-01           \r\n                  613-        DAREA  *37              222             3               4.5922913E-01           \r\n                  614-        DAREA  *37              223             3               4.1562694E-01           \r\n                  615-        DAREA  *37              224             3               3.6946229E-01           \r\n                  616-        DAREA  *37              225             3               3.2101976E-01           \r\n                  617-        DAREA  *37              226             3               2.7059806E-01           \r\n                  618-        DAREA  *37              227             3               2.1850802E-01           \r\n                  619-        DAREA  *37              228             3               1.6507082E-01           \r\n                  620-        DAREA  *37              229             3               1.1061588E-01           \r\n                  621-        DAREA  *37              230             3               5.5478971E-02           \r\n                  622-        DAREA  *37              232             3               3.2472403E-01           \r\n                  623-        DAREA  *37              233             3               6.4744603E-01           \r\n                  624-        DAREA  *37              234             3               6.4145228E-01           \r\n                  625-        DAREA  *37              235             3               6.3150375E-01           \r\n                  626-        DAREA  *37              236             3               6.1766180E-01           \r\n                  627-        DAREA  *37              237             3               6.0001177E-01           \r\n                  628-        DAREA  *37              238             3               5.7866246E-01           \r\n                  629-        DAREA  *37              239             3               5.5374550E-01           \r\n                  630-        DAREA  *37              240             3               5.2541451E-01           \r\n                  631-        DAREA  *37              241             3               4.9384418E-01           \r\n                  632-        DAREA  *37              242             3               4.5922913E-01           \r\n                  633-        DAREA  *37              243             3               4.2178278E-01           \r\n                  634-        DAREA  *37              244             3               3.8173600E-01           \r\n                  635-        DAREA  *37              245             3               3.3933569E-01           \r\n                  636-        DAREA  *37              246             3               2.9484325E-01           \r\n                  637-        DAREA  *37              247             3               2.4853302E-01           \r\n                  638-        DAREA  *37              248             3               2.0069049E-01           \r\n                  639-        DAREA  *37              249             3               1.5161065E-01           \r\n                  640-        DAREA  *37              250             3               1.0159607E-01           \r\n                  641-        DAREA  *37              251             3               5.0955119E-02           \r\n                  642-        DAREA  *37              253             3               2.9389263E-01           \r\n                  643-        DAREA  *37              254             3               5.8597331E-01           \r\n                  644-        DAREA  *37              255             3               5.8054864E-01           \r\n                  645-        DAREA  *37              256             3               5.7154471E-01           \r\n                  646-        DAREA  *37              257             3               5.5901700E-01           \r\n                  647-        DAREA  *37              258             3               5.4304276E-01           \r\n                  648-        DAREA  *37              259             3               5.2372050E-01           \r\n                  649-        DAREA  *37              260             3               5.0116932E-01           \r\n                  650-        DAREA  *37              261             3               4.7552826E-01           \r\n                  651-        DAREA  *37              262             3               4.4695542E-01           \r\n                  652-        DAREA  *37              263             3               4.1562694E-01           \r\n                  653-        DAREA  *37              264             3               3.8173600E-01           \r\n                  654-        DAREA  *37              265             3               3.4549151E-01           \r\n                  655-        DAREA  *37              266             3               3.0711696E-01           \r\n                  656-        DAREA  *37              267             3               2.6684893E-01           \r\n                  657-        DAREA  *37              268             3               2.2493569E-01           \r\n                  658-        DAREA  *37              269             3               1.8163564E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        DAREA  *37              270             3               1.3721576E-01           \r\n                  660-        DAREA  *37              271             3               9.1949883E-02           \r\n                  661-        DAREA  *37              272             3               4.6117110E-02           \r\n                  662-        DAREA  *37              274             3               2.6124929E-01           \r\n                  663-        DAREA  *37              275             3               5.2088789E-01           \r\n                  664-        DAREA  *37              276             3               5.1606575E-01           \r\n                  665-        DAREA  *37              277             3               5.0806190E-01           \r\n                  666-        DAREA  *37              278             3               4.9692567E-01           \r\n                  667-        DAREA  *37              279             3               4.8272574E-01           \r\n                  668-        DAREA  *37              280             3               4.6554964E-01           \r\n                  669-        DAREA  *37              281             3               4.4550327E-01           \r\n                  670-        DAREA  *37              282             3               4.2271023E-01           \r\n                  671-        DAREA  *37              283             3               3.9731104E-01           \r\n                  672-        DAREA  *37              284             3               3.6946229E-01           \r\n                  673-        DAREA  *37              285             3               3.3933569E-01           \r\n                  674-        DAREA  *37              286             3               3.0711696E-01           \r\n                  675-        DAREA  *37              287             3               2.7300476E-01           \r\n                  676-        DAREA  *37              288             3               2.3720939E-01           \r\n                  677-        DAREA  *37              289             3               1.9995156E-01           \r\n                  678-        DAREA  *37              290             3               1.6146095E-01           \r\n                  679-        DAREA  *37              291             3               1.2197488E-01           \r\n                  680-        DAREA  *37              292             3               8.1736795E-02           \r\n                  681-        DAREA  *37              293             3               4.0994775E-02           \r\n                  682-        DAREA  *37              295             3               2.2699525E-01           \r\n                  683-        DAREA  *37              296             3               4.5259101E-01           \r\n                  684-        DAREA  *37              297             3               4.4840113E-01           \r\n                  685-        DAREA  *37              298             3               4.4144671E-01           \r\n                  686-        DAREA  *37              299             3               4.3177063E-01           \r\n                  687-        DAREA  *37              300             3               4.1943254E-01           \r\n                  688-        DAREA  *37              301             3               4.0450851E-01           \r\n                  689-        DAREA  *37              302             3               3.8709054E-01           \r\n                  690-        DAREA  *37              303             3               3.6728603E-01           \r\n                  691-        DAREA  *37              304             3               3.4521709E-01           \r\n                  692-        DAREA  *37              305             3               3.2101976E-01           \r\n                  693-        DAREA  *37              306             3               2.9484325E-01           \r\n                  694-        DAREA  *37              307             3               2.6684893E-01           \r\n                  695-        DAREA  *37              308             3               2.3720939E-01           \r\n                  696-        DAREA  *37              309             3               2.0610738E-01           \r\n                  697-        DAREA  *37              310             3               1.7373465E-01           \r\n                  698-        DAREA  *37              311             3               1.4029079E-01           \r\n                  699-        DAREA  *37              312             3               1.0598199E-01           \r\n                  700-        DAREA  *37              313             3               7.1019771E-02           \r\n                  701-        DAREA  *37              314             3               3.5619693E-02           \r\n                  702-        DAREA  *37              316             3               1.9134172E-01           \r\n                  703-        DAREA  *37              317             3               3.8150376E-01           \r\n                  704-        DAREA  *37              318             3               3.7797197E-01           \r\n                  705-        DAREA  *37              319             3               3.7210987E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        DAREA  *37              320             3               3.6395358E-01           \r\n                  707-        DAREA  *37              321             3               3.5355340E-01           \r\n                  708-        DAREA  *37              322             3               3.4097344E-01           \r\n                  709-        DAREA  *37              323             3               3.2629127E-01           \r\n                  710-        DAREA  *37              324             3               3.0959741E-01           \r\n                  711-        DAREA  *37              325             3               2.9099477E-01           \r\n                  712-        DAREA  *37              326             3               2.7059806E-01           \r\n                  713-        DAREA  *37              327             3               2.4853302E-01           \r\n                  714-        DAREA  *37              328             3               2.2493569E-01           \r\n                  715-        DAREA  *37              329             3               1.9995156E-01           \r\n                  716-        DAREA  *37              330             3               1.7373465E-01           \r\n                  717-        DAREA  *37              331             3               1.4644662E-01           \r\n                  718-        DAREA  *37              332             3               1.1825569E-01           \r\n                  719-        DAREA  *37              333             3               8.9335684E-02           \r\n                  720-        DAREA  *37              334             3               5.9864887E-02           \r\n                  721-        DAREA  *37              335             3               3.0025004E-02           \r\n                  722-        DAREA  *37              337             3               1.5450850E-01           \r\n                  723-        DAREA  *37              338             3               3.0806441E-01           \r\n                  724-        DAREA  *37              339             3               3.0521249E-01           \r\n                  725-        DAREA  *37              340             3               3.0047884E-01           \r\n                  726-        DAREA  *37              341             3               2.9389264E-01           \r\n                  727-        DAREA  *37              342             3               2.8549449E-01           \r\n                  728-        DAREA  *37              343             3               2.7533617E-01           \r\n                  729-        DAREA  *37              344             3               2.6348031E-01           \r\n                  730-        DAREA  *37              345             3               2.5000001E-01           \r\n                  731-        DAREA  *37              346             3               2.3497838E-01           \r\n                  732-        DAREA  *37              347             3               2.1850802E-01           \r\n                  733-        DAREA  *37              348             3               2.0069049E-01           \r\n                  734-        DAREA  *37              349             3               1.8163564E-01           \r\n                  735-        DAREA  *37              350             3               1.6146095E-01           \r\n                  736-        DAREA  *37              351             3               1.4029079E-01           \r\n                  737-        DAREA  *37              352             3               1.1825569E-01           \r\n                  738-        DAREA  *37              353             3               9.5491510E-02           \r\n                  739-        DAREA  *37              354             3               7.2138594E-02           \r\n                  740-        DAREA  *37              355             3               4.8340916E-02           \r\n                  741-        DAREA  *37              356             3               2.4245200E-02           \r\n                  742-        DAREA  *37              358             3               1.1672269E-01           \r\n                  743-        DAREA  *37              359             3               2.3272575E-01           \r\n                  744-        DAREA  *37              360             3               2.3057128E-01           \r\n                  745-        DAREA  *37              361             3               2.2699527E-01           \r\n                  746-        DAREA  *37              362             3               2.2201975E-01           \r\n                  747-        DAREA  *37              363             3               2.1567541E-01           \r\n                  748-        DAREA  *37              364             3               2.0800136E-01           \r\n                  749-        DAREA  *37              365             3               1.9904491E-01           \r\n                  750-        DAREA  *37              366             3               1.8886128E-01           \r\n                  751-        DAREA  *37              367             3               1.7751326E-01           \r\n                  752-        DAREA  *37              368             3               1.6507082E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        DAREA  *37              369             3               1.5161065E-01           \r\n                  754-        DAREA  *37              370             3               1.3721576E-01           \r\n                  755-        DAREA  *37              371             3               1.2197488E-01           \r\n                  756-        DAREA  *37              372             3               1.0598199E-01           \r\n                  757-        DAREA  *37              373             3               8.9335684E-02           \r\n                  758-        DAREA  *37              374             3               7.2138594E-02           \r\n                  759-        DAREA  *37              375             3               5.4496748E-02           \r\n                  760-        DAREA  *37              376             3               3.6518908E-02           \r\n                  761-        DAREA  *37              377             3               1.8315918E-02           \r\n                  762-        DAREA  *37              379             3               7.8217242E-02           \r\n                  763-        DAREA  *37              380             3               1.5595225E-01           \r\n                  764-        DAREA  *37              381             3               1.5450851E-01           \r\n                  765-        DAREA  *37              382             3               1.5211219E-01           \r\n                  766-        DAREA  *37              383             3               1.4877803E-01           \r\n                  767-        DAREA  *37              384             3               1.4452662E-01           \r\n                  768-        DAREA  *37              385             3               1.3938414E-01           \r\n                  769-        DAREA  *37              386             3               1.3338232E-01           \r\n                  770-        DAREA  *37              387             3               1.2655815E-01           \r\n                  771-        DAREA  *37              388             3               1.1895372E-01           \r\n                  772-        DAREA  *37              389             3               1.1061588E-01           \r\n                  773-        DAREA  *37              390             3               1.0159607E-01           \r\n                  774-        DAREA  *37              391             3               9.1949883E-02           \r\n                  775-        DAREA  *37              392             3               8.1736795E-02           \r\n                  776-        DAREA  *37              393             3               7.1019771E-02           \r\n                  777-        DAREA  *37              394             3               5.9864887E-02           \r\n                  778-        DAREA  *37              395             3               4.8340916E-02           \r\n                  779-        DAREA  *37              396             3               3.6518908E-02           \r\n                  780-        DAREA  *37              397             3               2.4471748E-02           \r\n                  781-        DAREA  *37              398             3               1.2273711E-02           \r\n                  782-        DAREA  *37              400             3               3.9229557E-02           \r\n                  783-        DAREA  *37              401             3               7.8217250E-02           \r\n                  784-        DAREA  *37              402             3               7.7493152E-02           \r\n                  785-        DAREA  *37              403             3               7.6291282E-02           \r\n                  786-        DAREA  *37              404             3               7.4619051E-02           \r\n                  787-        DAREA  *37              405             3               7.2486769E-02           \r\n                  788-        DAREA  *37              406             3               6.9907582E-02           \r\n                  789-        DAREA  *37              407             3               6.6897391E-02           \r\n                  790-        DAREA  *37              408             3               6.3474756E-02           \r\n                  791-        DAREA  *37              409             3               5.9660778E-02           \r\n                  792-        DAREA  *37              410             3               5.5478971E-02           \r\n                  793-        DAREA  *37              411             3               5.0955119E-02           \r\n                  794-        DAREA  *37              412             3               4.6117110E-02           \r\n                  795-        DAREA  *37              413             3               4.0994775E-02           \r\n                  796-        DAREA  *37              414             3               3.5619693E-02           \r\n                  797-        DAREA  *37              415             3               3.0025004E-02           \r\n                  798-        DAREA  *37              416             3               2.4245200E-02           \r\n                  799-        DAREA  *37              417             3               1.8315918E-02           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  800-        DAREA  *37              418             3               1.2273711E-02           \r\n                  801-        DAREA  *37              419             3               6.1558325E-03           \r\n                  802-        FREQ    8       .0      8.0     9.0     10.0    11.0                            \r\n                  803-        GRDSET                                                  126                     \r\n                  804-        GRID    1               .0      .0      .0                                      \r\n                  805-        GRID    2               .5      .0      .0                                      \r\n                  806-        GRID    3               1.0     .0      .0                                      \r\n                  807-        GRID    4               1.5     .0      .0                                      \r\n                  808-        GRID    5               2.0     .0      .0                                      \r\n                  809-        GRID    6               2.5     .0      .0                                      \r\n                  810-        GRID    7               3.0     .0      .0                                      \r\n                  811-        GRID    8               3.5     .0      .0                                      \r\n                  812-        GRID    9               4.0     .0      .0                                      \r\n                  813-        GRID    10              4.5     .0      .0                                      \r\n                  814-        GRID    11              5.0     .0      .0                                      \r\n                  815-        GRID    12              5.5     .0      .0                                      \r\n                  816-        GRID    13              6.0     .0      .0                                      \r\n                  817-        GRID    14              6.5     .0      .0                                      \r\n                  818-        GRID    15              7.0     .0      .0                                      \r\n                  819-        GRID    16              7.5     .0      .0                                      \r\n                  820-        GRID    17              8.0     .0      .0                                      \r\n                  821-        GRID    18              8.5     .0      .0                                      \r\n                  822-        GRID    19              9.0     .0      .0                                      \r\n                  823-        GRID    20              9.5     .0      .0                                      \r\n                  824-        GRID    21              10.0    .0      .0                                      \r\n                  825-        GRID    22              .0      .5      .0                                      \r\n                  826-        GRID    23              .5      .5      .0                                      \r\n                  827-        GRID    24              1.0     .5      .0                                      \r\n                  828-        GRID    25              1.5     .5      .0                                      \r\n                  829-        GRID    26              2.0     .5      .0                                      \r\n                  830-        GRID    27              2.5     .5      .0                                      \r\n                  831-        GRID    28              3.0     .5      .0                                      \r\n                  832-        GRID    29              3.5     .5      .0                                      \r\n                  833-        GRID    30              4.0     .5      .0                                      \r\n                  834-        GRID    31              4.5     .5      .0                                      \r\n                  835-        GRID    32              5.0     .5      .0                                      \r\n                  836-        GRID    33              5.5     .5      .0                                      \r\n                  837-        GRID    34              6.0     .5      .0                                      \r\n                  838-        GRID    35              6.5     .5      .0                                      \r\n                  839-        GRID    36              7.0     .5      .0                                      \r\n                  840-        GRID    37              7.5     .5      .0                                      \r\n                  841-        GRID    38              8.0     .5      .0                                      \r\n                  842-        GRID    39              8.5     .5      .0                                      \r\n                  843-        GRID    40              9.0     .5      .0                                      \r\n                  844-        GRID    41              9.5     .5      .0                                      \r\n                  845-        GRID    42              10.0    .5      .0                                      \r\n                  846-        GRID    43              .0      1.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  847-        GRID    44              .5      1.0     .0                                      \r\n                  848-        GRID    45              1.0     1.0     .0                                      \r\n                  849-        GRID    46              1.5     1.0     .0                                      \r\n                  850-        GRID    47              2.0     1.0     .0                                      \r\n                  851-        GRID    48              2.5     1.0     .0                                      \r\n                  852-        GRID    49              3.0     1.0     .0                                      \r\n                  853-        GRID    50              3.5     1.0     .0                                      \r\n                  854-        GRID    51              4.0     1.0     .0                                      \r\n                  855-        GRID    52              4.5     1.0     .0                                      \r\n                  856-        GRID    53              5.0     1.0     .0                                      \r\n                  857-        GRID    54              5.5     1.0     .0                                      \r\n                  858-        GRID    55              6.0     1.0     .0                                      \r\n                  859-        GRID    56              6.5     1.0     .0                                      \r\n                  860-        GRID    57              7.0     1.0     .0                                      \r\n                  861-        GRID    58              7.5     1.0     .0                                      \r\n                  862-        GRID    59              8.0     1.0     .0                                      \r\n                  863-        GRID    60              8.5     1.0     .0                                      \r\n                  864-        GRID    61              9.0     1.0     .0                                      \r\n                  865-        GRID    62              9.5     1.0     .0                                      \r\n                  866-        GRID    63              10.0    1.0     .0                                      \r\n                  867-        GRID    64              .0      1.5     .0                                      \r\n                  868-        GRID    65              .5      1.5     .0                                      \r\n                  869-        GRID    66              1.0     1.5     .0                                      \r\n                  870-        GRID    67              1.5     1.5     .0                                      \r\n                  871-        GRID    68              2.0     1.5     .0                                      \r\n                  872-        GRID    69              2.5     1.5     .0                                      \r\n                  873-        GRID    70              3.0     1.5     .0                                      \r\n                  874-        GRID    71              3.5     1.5     .0                                      \r\n                  875-        GRID    72              4.0     1.5     .0                                      \r\n                  876-        GRID    73              4.5     1.5     .0                                      \r\n                  877-        GRID    74              5.0     1.5     .0                                      \r\n                  878-        GRID    75              5.5     1.5     .0                                      \r\n                  879-        GRID    76              6.0     1.5     .0                                      \r\n                  880-        GRID    77              6.5     1.5     .0                                      \r\n                  881-        GRID    78              7.0     1.5     .0                                      \r\n                  882-        GRID    79              7.5     1.5     .0                                      \r\n                  883-        GRID    80              8.0     1.5     .0                                      \r\n                  884-        GRID    81              8.5     1.5     .0                                      \r\n                  885-        GRID    82              9.0     1.5     .0                                      \r\n                  886-        GRID    83              9.5     1.5     .0                                      \r\n                  887-        GRID    84              10.0    1.5     .0                                      \r\n                  888-        GRID    85              .0      2.0     .0                                      \r\n                  889-        GRID    86              .5      2.0     .0                                      \r\n                  890-        GRID    87              1.0     2.0     .0                                      \r\n                  891-        GRID    88              1.5     2.0     .0                                      \r\n                  892-        GRID    89              2.0     2.0     .0                                      \r\n                  893-        GRID    90              2.5     2.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  894-        GRID    91              3.0     2.0     .0                                      \r\n                  895-        GRID    92              3.5     2.0     .0                                      \r\n                  896-        GRID    93              4.0     2.0     .0                                      \r\n                  897-        GRID    94              4.5     2.0     .0                                      \r\n                  898-        GRID    95              5.0     2.0     .0                                      \r\n                  899-        GRID    96              5.5     2.0     .0                                      \r\n                  900-        GRID    97              6.0     2.0     .0                                      \r\n                  901-        GRID    98              6.5     2.0     .0                                      \r\n                  902-        GRID    99              7.0     2.0     .0                                      \r\n                  903-        GRID    100             7.5     2.0     .0                                      \r\n                  904-        GRID    101             8.0     2.0     .0                                      \r\n                  905-        GRID    102             8.5     2.0     .0                                      \r\n                  906-        GRID    103             9.0     2.0     .0                                      \r\n                  907-        GRID    104             9.5     2.0     .0                                      \r\n                  908-        GRID    105             10.0    2.0     .0                                      \r\n                  909-        GRID    106             .0      2.5     .0                                      \r\n                  910-        GRID    107             .5      2.5     .0                                      \r\n                  911-        GRID    108             1.0     2.5     .0                                      \r\n                  912-        GRID    109             1.5     2.5     .0                                      \r\n                  913-        GRID    110             2.0     2.5     .0                                      \r\n                  914-        GRID    111             2.5     2.5     .0                                      \r\n                  915-        GRID    112             3.0     2.5     .0                                      \r\n                  916-        GRID    113             3.5     2.5     .0                                      \r\n                  917-        GRID    114             4.0     2.5     .0                                      \r\n                  918-        GRID    115             4.5     2.5     .0                                      \r\n                  919-        GRID    116             5.0     2.5     .0                                      \r\n                  920-        GRID    117             5.5     2.5     .0                                      \r\n                  921-        GRID    118             6.0     2.5     .0                                      \r\n                  922-        GRID    119             6.5     2.5     .0                                      \r\n                  923-        GRID    120             7.0     2.5     .0                                      \r\n                  924-        GRID    121             7.5     2.5     .0                                      \r\n                  925-        GRID    122             8.0     2.5     .0                                      \r\n                  926-        GRID    123             8.5     2.5     .0                                      \r\n                  927-        GRID    124             9.0     2.5     .0                                      \r\n                  928-        GRID    125             9.5     2.5     .0                                      \r\n                  929-        GRID    126             10.0    2.5     .0                                      \r\n                  930-        GRID    127             .0      3.0     .0                                      \r\n                  931-        GRID    128             .5      3.0     .0                                      \r\n                  932-        GRID    129             1.0     3.0     .0                                      \r\n                  933-        GRID    130             1.5     3.0     .0                                      \r\n                  934-        GRID    131             2.0     3.0     .0                                      \r\n                  935-        GRID    132             2.5     3.0     .0                                      \r\n                  936-        GRID    133             3.0     3.0     .0                                      \r\n                  937-        GRID    134             3.5     3.0     .0                                      \r\n                  938-        GRID    135             4.0     3.0     .0                                      \r\n                  939-        GRID    136             4.5     3.0     .0                                      \r\n                  940-        GRID    137             5.0     3.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  941-        GRID    138             5.5     3.0     .0                                      \r\n                  942-        GRID    139             6.0     3.0     .0                                      \r\n                  943-        GRID    140             6.5     3.0     .0                                      \r\n                  944-        GRID    141             7.0     3.0     .0                                      \r\n                  945-        GRID    142             7.5     3.0     .0                                      \r\n                  946-        GRID    143             8.0     3.0     .0                                      \r\n                  947-        GRID    144             8.5     3.0     .0                                      \r\n                  948-        GRID    145             9.0     3.0     .0                                      \r\n                  949-        GRID    146             9.5     3.0     .0                                      \r\n                  950-        GRID    147             10.0    3.0     .0                                      \r\n                  951-        GRID    148             .0      3.5     .0                                      \r\n                  952-        GRID    149             .5      3.5     .0                                      \r\n                  953-        GRID    150             1.0     3.5     .0                                      \r\n                  954-        GRID    151             1.5     3.5     .0                                      \r\n                  955-        GRID    152             2.0     3.5     .0                                      \r\n                  956-        GRID    153             2.5     3.5     .0                                      \r\n                  957-        GRID    154             3.0     3.5     .0                                      \r\n                  958-        GRID    155             3.5     3.5     .0                                      \r\n                  959-        GRID    156             4.0     3.5     .0                                      \r\n                  960-        GRID    157             4.5     3.5     .0                                      \r\n                  961-        GRID    158             5.0     3.5     .0                                      \r\n                  962-        GRID    159             5.5     3.5     .0                                      \r\n                  963-        GRID    160             6.0     3.5     .0                                      \r\n                  964-        GRID    161             6.5     3.5     .0                                      \r\n                  965-        GRID    162             7.0     3.5     .0                                      \r\n                  966-        GRID    163             7.5     3.5     .0                                      \r\n                  967-        GRID    164             8.0     3.5     .0                                      \r\n                  968-        GRID    165             8.5     3.5     .0                                      \r\n                  969-        GRID    166             9.0     3.5     .0                                      \r\n                  970-        GRID    167             9.5     3.5     .0                                      \r\n                  971-        GRID    168             10.0    3.5     .0                                      \r\n                  972-        GRID    169             .0      4.0     .0                                      \r\n                  973-        GRID    170             .5      4.0     .0                                      \r\n                  974-        GRID    171             1.0     4.0     .0                                      \r\n                  975-        GRID    172             1.5     4.0     .0                                      \r\n                  976-        GRID    173             2.0     4.0     .0                                      \r\n                  977-        GRID    174             2.5     4.0     .0                                      \r\n                  978-        GRID    175             3.0     4.0     .0                                      \r\n                  979-        GRID    176             3.5     4.0     .0                                      \r\n                  980-        GRID    177             4.0     4.0     .0                                      \r\n                  981-        GRID    178             4.5     4.0     .0                                      \r\n                  982-        GRID    179             5.0     4.0     .0                                      \r\n                  983-        GRID    180             5.5     4.0     .0                                      \r\n                  984-        GRID    181             6.0     4.0     .0                                      \r\n                  985-        GRID    182             6.5     4.0     .0                                      \r\n                  986-        GRID    183             7.0     4.0     .0                                      \r\n                  987-        GRID    184             7.5     4.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  988-        GRID    185             8.0     4.0     .0                                      \r\n                  989-        GRID    186             8.5     4.0     .0                                      \r\n                  990-        GRID    187             9.0     4.0     .0                                      \r\n                  991-        GRID    188             9.5     4.0     .0                                      \r\n                  992-        GRID    189             10.0    4.0     .0                                      \r\n                  993-        GRID    190             .0      4.5     .0                                      \r\n                  994-        GRID    191             .5      4.5     .0                                      \r\n                  995-        GRID    192             1.0     4.5     .0                                      \r\n                  996-        GRID    193             1.5     4.5     .0                                      \r\n                  997-        GRID    194             2.0     4.5     .0                                      \r\n                  998-        GRID    195             2.5     4.5     .0                                      \r\n                  999-        GRID    196             3.0     4.5     .0                                      \r\n                 1000-        GRID    197             3.5     4.5     .0                                      \r\n                 1001-        GRID    198             4.0     4.5     .0                                      \r\n                 1002-        GRID    199             4.5     4.5     .0                                      \r\n                 1003-        GRID    200             5.0     4.5     .0                                      \r\n                 1004-        GRID    201             5.5     4.5     .0                                      \r\n                 1005-        GRID    202             6.0     4.5     .0                                      \r\n                 1006-        GRID    203             6.5     4.5     .0                                      \r\n                 1007-        GRID    204             7.0     4.5     .0                                      \r\n                 1008-        GRID    205             7.5     4.5     .0                                      \r\n                 1009-        GRID    206             8.0     4.5     .0                                      \r\n                 1010-        GRID    207             8.5     4.5     .0                                      \r\n                 1011-        GRID    208             9.0     4.5     .0                                      \r\n                 1012-        GRID    209             9.5     4.5     .0                                      \r\n                 1013-        GRID    210             10.0    4.5     .0                                      \r\n                 1014-        GRID    211             .0      5.0     .0                                      \r\n                 1015-        GRID    212             .5      5.0     .0                                      \r\n                 1016-        GRID    213             1.0     5.0     .0                                      \r\n                 1017-        GRID    214             1.5     5.0     .0                                      \r\n                 1018-        GRID    215             2.0     5.0     .0                                      \r\n                 1019-        GRID    216             2.5     5.0     .0                                      \r\n                 1020-        GRID    217             3.0     5.0     .0                                      \r\n                 1021-        GRID    218             3.5     5.0     .0                                      \r\n                 1022-        GRID    219             4.0     5.0     .0                                      \r\n                 1023-        GRID    220             4.5     5.0     .0                                      \r\n                 1024-        GRID    221             5.0     5.0     .0                                      \r\n                 1025-        GRID    222             5.5     5.0     .0                                      \r\n                 1026-        GRID    223             6.0     5.0     .0                                      \r\n                 1027-        GRID    224             6.5     5.0     .0                                      \r\n                 1028-        GRID    225             7.0     5.0     .0                                      \r\n                 1029-        GRID    226             7.5     5.0     .0                                      \r\n                 1030-        GRID    227             8.0     5.0     .0                                      \r\n                 1031-        GRID    228             8.5     5.0     .0                                      \r\n                 1032-        GRID    229             9.0     5.0     .0                                      \r\n                 1033-        GRID    230             9.5     5.0     .0                                      \r\n                 1034-        GRID    231             10.0    5.0     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1035-        GRID    232             .0      5.5     .0                                      \r\n                 1036-        GRID    233             .5      5.5     .0                                      \r\n                 1037-        GRID    234             1.0     5.5     .0                                      \r\n                 1038-        GRID    235             1.5     5.5     .0                                      \r\n                 1039-        GRID    236             2.0     5.5     .0                                      \r\n                 1040-        GRID    237             2.5     5.5     .0                                      \r\n                 1041-        GRID    238             3.0     5.5     .0                                      \r\n                 1042-        GRID    239             3.5     5.5     .0                                      \r\n                 1043-        GRID    240             4.0     5.5     .0                                      \r\n                 1044-        GRID    241             4.5     5.5     .0                                      \r\n                 1045-        GRID    242             5.0     5.5     .0                                      \r\n                 1046-        GRID    243             5.5     5.5     .0                                      \r\n                 1047-        GRID    244             6.0     5.5     .0                                      \r\n                 1048-        GRID    245             6.5     5.5     .0                                      \r\n                 1049-        GRID    246             7.0     5.5     .0                                      \r\n                 1050-        GRID    247             7.5     5.5     .0                                      \r\n                 1051-        GRID    248             8.0     5.5     .0                                      \r\n                 1052-        GRID    249             8.5     5.5     .0                                      \r\n                 1053-        GRID    250             9.0     5.5     .0                                      \r\n                 1054-        GRID    251             9.5     5.5     .0                                      \r\n                 1055-        GRID    252             10.0    5.5     .0                                      \r\n                 1056-        GRID    253             .0      6.0     .0                                      \r\n                 1057-        GRID    254             .5      6.0     .0                                      \r\n                 1058-        GRID    255             1.0     6.0     .0                                      \r\n                 1059-        GRID    256             1.5     6.0     .0                                      \r\n                 1060-        GRID    257             2.0     6.0     .0                                      \r\n                 1061-        GRID    258             2.5     6.0     .0                                      \r\n                 1062-        GRID    259             3.0     6.0     .0                                      \r\n                 1063-        GRID    260             3.5     6.0     .0                                      \r\n                 1064-        GRID    261             4.0     6.0     .0                                      \r\n                 1065-        GRID    262             4.5     6.0     .0                                      \r\n                 1066-        GRID    263             5.0     6.0     .0                                      \r\n                 1067-        GRID    264             5.5     6.0     .0                                      \r\n                 1068-        GRID    265             6.0     6.0     .0                                      \r\n                 1069-        GRID    266             6.5     6.0     .0                                      \r\n                 1070-        GRID    267             7.0     6.0     .0                                      \r\n                 1071-        GRID    268             7.5     6.0     .0                                      \r\n                 1072-        GRID    269             8.0     6.0     .0                                      \r\n                 1073-        GRID    270             8.5     6.0     .0                                      \r\n                 1074-        GRID    271             9.0     6.0     .0                                      \r\n                 1075-        GRID    272             9.5     6.0     .0                                      \r\n                 1076-        GRID    273             10.0    6.0     .0                                      \r\n                 1077-        GRID    274             .0      6.5     .0                                      \r\n                 1078-        GRID    275             .5      6.5     .0                                      \r\n                 1079-        GRID    276             1.0     6.5     .0                                      \r\n                 1080-        GRID    277             1.5     6.5     .0                                      \r\n                 1081-        GRID    278             2.0     6.5     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1082-        GRID    279             2.5     6.5     .0                                      \r\n                 1083-        GRID    280             3.0     6.5     .0                                      \r\n                 1084-        GRID    281             3.5     6.5     .0                                      \r\n                 1085-        GRID    282             4.0     6.5     .0                                      \r\n                 1086-        GRID    283             4.5     6.5     .0                                      \r\n                 1087-        GRID    284             5.0     6.5     .0                                      \r\n                 1088-        GRID    285             5.5     6.5     .0                                      \r\n                 1089-        GRID    286             6.0     6.5     .0                                      \r\n                 1090-        GRID    287             6.5     6.5     .0                                      \r\n                 1091-        GRID    288             7.0     6.5     .0                                      \r\n                 1092-        GRID    289             7.5     6.5     .0                                      \r\n                 1093-        GRID    290             8.0     6.5     .0                                      \r\n                 1094-        GRID    291             8.5     6.5     .0                                      \r\n                 1095-        GRID    292             9.0     6.5     .0                                      \r\n                 1096-        GRID    293             9.5     6.5     .0                                      \r\n                 1097-        GRID    294             10.0    6.5     .0                                      \r\n                 1098-        GRID    295             .0      7.0     .0                                      \r\n                 1099-        GRID    296             .5      7.0     .0                                      \r\n                 1100-        GRID    297             1.0     7.0     .0                                      \r\n                 1101-        GRID    298             1.5     7.0     .0                                      \r\n                 1102-        GRID    299             2.0     7.0     .0                                      \r\n                 1103-        GRID    300             2.5     7.0     .0                                      \r\n                 1104-        GRID    301             3.0     7.0     .0                                      \r\n                 1105-        GRID    302             3.5     7.0     .0                                      \r\n                 1106-        GRID    303             4.0     7.0     .0                                      \r\n                 1107-        GRID    304             4.5     7.0     .0                                      \r\n                 1108-        GRID    305             5.0     7.0     .0                                      \r\n                 1109-        GRID    306             5.5     7.0     .0                                      \r\n                 1110-        GRID    307             6.0     7.0     .0                                      \r\n                 1111-        GRID    308             6.5     7.0     .0                                      \r\n                 1112-        GRID    309             7.0     7.0     .0                                      \r\n                 1113-        GRID    310             7.5     7.0     .0                                      \r\n                 1114-        GRID    311             8.0     7.0     .0                                      \r\n                 1115-        GRID    312             8.5     7.0     .0                                      \r\n                 1116-        GRID    313             9.0     7.0     .0                                      \r\n                 1117-        GRID    314             9.5     7.0     .0                                      \r\n                 1118-        GRID    315             10.0    7.0     .0                                      \r\n                 1119-        GRID    316             .0      7.5     .0                                      \r\n                 1120-        GRID    317             .5      7.5     .0                                      \r\n                 1121-        GRID    318             1.0     7.5     .0                                      \r\n                 1122-        GRID    319             1.5     7.5     .0                                      \r\n                 1123-        GRID    320             2.0     7.5     .0                                      \r\n                 1124-        GRID    321             2.5     7.5     .0                                      \r\n                 1125-        GRID    322             3.0     7.5     .0                                      \r\n                 1126-        GRID    323             3.5     7.5     .0                                      \r\n                 1127-        GRID    324             4.0     7.5     .0                                      \r\n                 1128-        GRID    325             4.5     7.5     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1129-        GRID    326             5.0     7.5     .0                                      \r\n                 1130-        GRID    327             5.5     7.5     .0                                      \r\n                 1131-        GRID    328             6.0     7.5     .0                                      \r\n                 1132-        GRID    329             6.5     7.5     .0                                      \r\n                 1133-        GRID    330             7.0     7.5     .0                                      \r\n                 1134-        GRID    331             7.5     7.5     .0                                      \r\n                 1135-        GRID    332             8.0     7.5     .0                                      \r\n                 1136-        GRID    333             8.5     7.5     .0                                      \r\n                 1137-        GRID    334             9.0     7.5     .0                                      \r\n                 1138-        GRID    335             9.5     7.5     .0                                      \r\n                 1139-        GRID    336             10.0    7.5     .0                                      \r\n                 1140-        GRID    337             .0      8.0     .0                                      \r\n                 1141-        GRID    338             .5      8.0     .0                                      \r\n                 1142-        GRID    339             1.0     8.0     .0                                      \r\n                 1143-        GRID    340             1.5     8.0     .0                                      \r\n                 1144-        GRID    341             2.0     8.0     .0                                      \r\n                 1145-        GRID    342             2.5     8.0     .0                                      \r\n                 1146-        GRID    343             3.0     8.0     .0                                      \r\n                 1147-        GRID    344             3.5     8.0     .0                                      \r\n                 1148-        GRID    345             4.0     8.0     .0                                      \r\n                 1149-        GRID    346             4.5     8.0     .0                                      \r\n                 1150-        GRID    347             5.0     8.0     .0                                      \r\n                 1151-        GRID    348             5.5     8.0     .0                                      \r\n                 1152-        GRID    349             6.0     8.0     .0                                      \r\n                 1153-        GRID    350             6.5     8.0     .0                                      \r\n                 1154-        GRID    351             7.0     8.0     .0                                      \r\n                 1155-        GRID    352             7.5     8.0     .0                                      \r\n                 1156-        GRID    353             8.0     8.0     .0                                      \r\n                 1157-        GRID    354             8.5     8.0     .0                                      \r\n                 1158-        GRID    355             9.0     8.0     .0                                      \r\n                 1159-        GRID    356             9.5     8.0     .0                                      \r\n                 1160-        GRID    357             10.0    8.0     .0                                      \r\n                 1161-        GRID    358             .0      8.5     .0                                      \r\n                 1162-        GRID    359             .5      8.5     .0                                      \r\n                 1163-        GRID    360             1.0     8.5     .0                                      \r\n                 1164-        GRID    361             1.5     8.5     .0                                      \r\n                 1165-        GRID    362             2.0     8.5     .0                                      \r\n                 1166-        GRID    363             2.5     8.5     .0                                      \r\n                 1167-        GRID    364             3.0     8.5     .0                                      \r\n                 1168-        GRID    365             3.5     8.5     .0                                      \r\n                 1169-        GRID    366             4.0     8.5     .0                                      \r\n                 1170-        GRID    367             4.5     8.5     .0                                      \r\n                 1171-        GRID    368             5.0     8.5     .0                                      \r\n                 1172-        GRID    369             5.5     8.5     .0                                      \r\n                 1173-        GRID    370             6.0     8.5     .0                                      \r\n                 1174-        GRID    371             6.5     8.5     .0                                      \r\n                 1175-        GRID    372             7.0     8.5     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1176-        GRID    373             7.5     8.5     .0                                      \r\n                 1177-        GRID    374             8.0     8.5     .0                                      \r\n                 1178-        GRID    375             8.5     8.5     .0                                      \r\n                 1179-        GRID    376             9.0     8.5     .0                                      \r\n                 1180-        GRID    377             9.5     8.5     .0                                      \r\n                 1181-        GRID    378             10.0    8.5     .0                                      \r\n                 1182-        GRID    379             .0      9.0     .0                                      \r\n                 1183-        GRID    380             .5      9.0     .0                                      \r\n                 1184-        GRID    381             1.0     9.0     .0                                      \r\n                 1185-        GRID    382             1.5     9.0     .0                                      \r\n                 1186-        GRID    383             2.0     9.0     .0                                      \r\n                 1187-        GRID    384             2.5     9.0     .0                                      \r\n                 1188-        GRID    385             3.0     9.0     .0                                      \r\n                 1189-        GRID    386             3.5     9.0     .0                                      \r\n                 1190-        GRID    387             4.0     9.0     .0                                      \r\n                 1191-        GRID    388             4.5     9.0     .0                                      \r\n                 1192-        GRID    389             5.0     9.0     .0                                      \r\n                 1193-        GRID    390             5.5     9.0     .0                                      \r\n                 1194-        GRID    391             6.0     9.0     .0                                      \r\n                 1195-        GRID    392             6.5     9.0     .0                                      \r\n                 1196-        GRID    393             7.0     9.0     .0                                      \r\n                 1197-        GRID    394             7.5     9.0     .0                                      \r\n                 1198-        GRID    395             8.0     9.0     .0                                      \r\n                 1199-        GRID    396             8.5     9.0     .0                                      \r\n                 1200-        GRID    397             9.0     9.0     .0                                      \r\n                 1201-        GRID    398             9.5     9.0     .0                                      \r\n                 1202-        GRID    399             10.0    9.0     .0                                      \r\n                 1203-        GRID    400             .0      9.5     .0                                      \r\n                 1204-        GRID    401             .5      9.5     .0                                      \r\n                 1205-        GRID    402             1.0     9.5     .0                                      \r\n                 1206-        GRID    403             1.5     9.5     .0                                      \r\n                 1207-        GRID    404             2.0     9.5     .0                                      \r\n                 1208-        GRID    405             2.5     9.5     .0                                      \r\n                 1209-        GRID    406             3.0     9.5     .0                                      \r\n                 1210-        GRID    407             3.5     9.5     .0                                      \r\n                 1211-        GRID    408             4.0     9.5     .0                                      \r\n                 1212-        GRID    409             4.5     9.5     .0                                      \r\n                 1213-        GRID    410             5.0     9.5     .0                                      \r\n                 1214-        GRID    411             5.5     9.5     .0                                      \r\n                 1215-        GRID    412             6.0     9.5     .0                                      \r\n                 1216-        GRID    413             6.5     9.5     .0                                      \r\n                 1217-        GRID    414             7.0     9.5     .0                                      \r\n                 1218-        GRID    415             7.5     9.5     .0                                      \r\n                 1219-        GRID    416             8.0     9.5     .0                                      \r\n                 1220-        GRID    417             8.5     9.5     .0                                      \r\n                 1221-        GRID    418             9.0     9.5     .0                                      \r\n                 1222-        GRID    419             9.5     9.5     .0                                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1223-        GRID    420             10.0    9.5     .0                                      \r\n                 1224-        GRID    421             .0      10.0    .0                                      \r\n                 1225-        GRID    422             .5      10.0    .0                                      \r\n                 1226-        GRID    423             1.0     10.0    .0                                      \r\n                 1227-        GRID    424             1.5     10.0    .0                                      \r\n                 1228-        GRID    425             2.0     10.0    .0                                      \r\n                 1229-        GRID    426             2.5     10.0    .0                                      \r\n                 1230-        GRID    427             3.0     10.0    .0                                      \r\n                 1231-        GRID    428             3.5     10.0    .0                                      \r\n                 1232-        GRID    429             4.0     10.0    .0                                      \r\n                 1233-        GRID    430             4.5     10.0    .0                                      \r\n                 1234-        GRID    431             5.0     10.0    .0                                      \r\n                 1235-        GRID    432             5.5     10.0    .0                                      \r\n                 1236-        GRID    433             6.0     10.0    .0                                      \r\n                 1237-        GRID    434             6.5     10.0    .0                                      \r\n                 1238-        GRID    435             7.0     10.0    .0                                      \r\n                 1239-        GRID    436             7.5     10.0    .0                                      \r\n                 1240-        GRID    437             8.0     10.0    .0                                      \r\n                 1241-        GRID    438             8.5     10.0    .0                                      \r\n                 1242-        GRID    439             9.0     10.0    .0                                      \r\n                 1243-        GRID    440             9.5     10.0    .0                                      \r\n                 1244-        GRID    441             10.0    10.0    .0                                      \r\n                 1245-        MAT1    8       3.0+7           .300                                            \r\n                 1246-        PQUAD1  23                      8       .6666667                13.55715        \r\n                 1247-        RLOAD1  8       37                      1                                       \r\n                 1248-        SPC1    37      4       1       2       3       4       5       6       +41001H \r\n                 1249-        +41001H 7       8       9       10      11      12      13      14      +41002H \r\n                 1250-        +41002H 15      16      17      18      19      20      21                      \r\n                 1251-        SPC1    37      5       1       22      43      64      85      106     +31001H \r\n                 1252-        +31001H 127     148     169     190     211     232     253     274     +31002H \r\n                 1253-        +31002H 295     316     337     358     379     400     421                     \r\n                 1254-        SPC1    37      34      21      42      63      84      105     126     +11001H \r\n                 1255-        +11001H 147     168     189     210     231     252     273     294     +11002H \r\n                 1256-        +11002H 315     336     357     378     399     420     441                     \r\n                 1257-        SPC1    37      35      421     422     423     424     425     426     +21001H \r\n                 1258-        +21001H 427     428     429     430     431     432     433     434     +21002H \r\n                 1259-        +21002H 435     436     437     438     439     440     441                     \r\n                 1260-        TABLED1 1                                                               +T1     \r\n                 1261-        +T1     .0      2.5     100.0   10.0    ENDT                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           23\r\n                                        PROFILE           9681\r\n                                        MAX WAVEFRONT       23\r\n                                        AVG WAVEFRONT   21.952\r\n                                        RMS WAVEFRONT   22.250\r\n                                        RMS BANDWIDTH   22.404\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           35\r\n                                        PROFILE          10110\r\n                                        MAX WAVEFRONT       33\r\n                                        AVG WAVEFRONT   22.925\r\n                                        RMS WAVEFRONT   23.639\r\n                                        RMS BANDWIDTH   24.188\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       23        23\r\n                                        PROFILE (P)                       9681      9681\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           23        23\r\n                                        AVERAGE WAVEFRONT (C-AVG)       21.952    21.952\r\n                                        RMS WAVEFRONT (C-RMS)           22.250    22.250\r\n                                        RMS BANDWITCH (B-RMS)           22.404    22.404\r\n                                        NUMBER OF GRID POINTS (N)                    441\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               400\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                      1640\r\n                                        MATRIX DENSITY, PERCENT                    1.913\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK B2PP     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            3.295143E+01   3.295143E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.136489E+02   1.136489E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            2.209514E+02   2.209514E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.788203E+04   5.788203E+04   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            2.078062E+02   2.078062E+02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            5.871988E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.025238E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            3.937383E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.031465E+05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            3.703134E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            3.873673E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.336023E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            2.597439E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            6.804441E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            2.442908E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.074419E+01   3.016930E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.705651E+01   1.040534E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.204370E+01   2.022961E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.887309E+04   5.299496E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.775757E+01   1.902608E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     169\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            5.331654E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.838878E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            3.575069E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            9.365509E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            3.362375E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     189\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.738446E+01   7.052916E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.995869E+01   2.432538E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.165692E+02   4.729238E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.053730E+04   1.238905E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.096340E+02   4.447879E-01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     295\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.991928E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.031910E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            2.006197E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.255578E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.886841E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     315\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            9.755518E+00   1.069131E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.364661E+01   3.687414E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            6.541431E+01   7.168914E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.713641E+04   1.878021E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.152258E+01   6.742409E-01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     421\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.074419E+01   0.0            3.016930E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.705651E+01   0.0            1.040534E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.204370E+01   0.0            2.022961E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.887309E+04   0.0            5.299496E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.775757E+01   0.0            1.902608E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     427\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.914628E+01   0.0            5.447495E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.603519E+01   0.0            1.878831E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.283828E+02   0.0            3.652744E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.363209E+04   0.0            9.568993E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.207449E+02   0.0            3.435429E-01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     433\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.263055E+01   0.0            9.707507E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.356254E+01   0.0            3.348102E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            8.469245E+01   0.0            6.509238E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.218665E+04   0.0            1.705207E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            7.965379E+01   0.0            6.121980E-01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     441\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.420475E+02   5.999569E-02   5.999569E-02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.899194E+02   2.069241E-01   2.069241E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            9.524806E+02   4.022930E-01   4.022930E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.495187E+05   1.053876E+02   1.053876E+02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            8.958141E+02   3.783592E-01   3.783592E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.869791E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.448877E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.253763E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.284450E-01   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.179173E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.665996E-04   0.0            1.333102E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.745991E-04   0.0            4.597844E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.117111E-03   0.0            8.938934E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.926466E-01   0.0            2.341708E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.050650E-03   0.0            8.407125E-05   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.099036E-04   0.0            2.375605E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.790555E-04   0.0            8.193418E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.369437E-04   0.0            1.592930E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.930551E-01   0.0            4.172954E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.931003E-04   0.0            1.498161E-04   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.936409E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.012762E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.968969E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.158055E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.851828E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     169\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.512693E-04   1.725978E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.217251E-04   5.952867E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.014316E-03   1.157331E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.657176E-01   3.031829E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            9.539707E-04   1.088477E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     189\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.375605E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            8.193418E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.592930E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            4.172954E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.498161E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     295\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.488676E-05   2.616359E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            2.927729E-04   9.023777E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            5.691967E-04   1.754364E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.491109E-01   4.595860E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            5.353331E-04   1.649991E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     315\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.333102E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            4.597844E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            8.938934E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            2.341708E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            8.407125E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     421\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.936409E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.012762E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.968969E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.158055E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.851828E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     427\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.616359E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            9.023777E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.754364E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            4.595860E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.649991E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     433\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.725978E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            5.952867E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.157331E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            3.031829E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.088477E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     441\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 20X20 PLATE                                \r\n DATE:  5/17/95\r\n END TIME: 16: 1:45\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d08013a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D08013A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   8,1                                                                       \r\n     DIAG  14                                                                        \r\n     TIME  12                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                           \r\n     EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 10X10 PLATE                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                          \r\n                  3           SPC = 10010                                                                \r\n                  4         DLOAD = 8                                                                    \r\n                  5      FREQUENCY= 8                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1,4,7,11  45,55,  78,88,  111,114,117,121                            \r\n                  8         DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n                  9         SPCFORCE(SORT2,PHASE) = 1                                                    \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   106, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        DAREA  *37              1               3               2.5000000E-01           \r\n                    2-        DAREA  *37              2               3               4.9384417E-01           \r\n                    3-        DAREA  *37              3               3               4.7552826E-01           \r\n                    4-        DAREA  *37              4               3               4.4550326E-01           \r\n                    5-        DAREA  *37              5               3               4.0450850E-01           \r\n                    6-        DAREA  *37              6               3               3.5355339E-01           \r\n                    7-        DAREA  *37              7               3               2.9389263E-01           \r\n                    8-        DAREA  *37              8               3               2.2699525E-01           \r\n                    9-        DAREA  *37              9               3               1.5450850E-01           \r\n                   10-        DAREA  *37              10              3               7.8217242E-02           \r\n                   11-        DAREA  *37              12              3               4.9384417E-01           \r\n                   12-        DAREA  *37              13              3               9.7552826E-01           \r\n                   13-        DAREA  *37              14              3               9.3934743E-01           \r\n                   14-        DAREA  *37              15              3               8.8003676E-01           \r\n                   15-        DAREA  *37              16              3               7.9905665E-01           \r\n                   16-        DAREA  *37              17              3               6.9840112E-01           \r\n                   17-        DAREA  *37              18              3               5.8054864E-01           \r\n                   18-        DAREA  *37              19              3               4.4840113E-01           \r\n                   19-        DAREA  *37              20              3               3.0521249E-01           \r\n                   20-        DAREA  *37              21              3               1.5450851E-01           \r\n                   21-        DAREA  *37              23              3               4.7552826E-01           \r\n                   22-        DAREA  *37              24              3               9.3934743E-01           \r\n                   23-        DAREA  *37              25              3               9.0450849E-01           \r\n                   24-        DAREA  *37              26              3               8.4739757E-01           \r\n                   25-        DAREA  *37              27              3               7.6942088E-01           \r\n                   26-        DAREA  *37              28              3               6.7249851E-01           \r\n                   27-        DAREA  *37              29              3               5.5901700E-01           \r\n                   28-        DAREA  *37              30              3               4.3177063E-01           \r\n                   29-        DAREA  *37              31              3               2.9389264E-01           \r\n                   30-        DAREA  *37              32              3               1.4877803E-01           \r\n                   31-        DAREA  *37              34              3               4.4550326E-01           \r\n                   32-        DAREA  *37              35              3               8.8003676E-01           \r\n                   33-        DAREA  *37              36              3               8.4739757E-01           \r\n                   34-        DAREA  *37              37              3               7.9389263E-01           \r\n                   35-        DAREA  *37              38              3               7.2083942E-01           \r\n                   36-        DAREA  *37              39              3               6.3003676E-01           \r\n                   37-        DAREA  *37              40              3               5.2372050E-01           \r\n                   38-        DAREA  *37              41              3               4.0450851E-01           \r\n                   39-        DAREA  *37              42              3               2.7533617E-01           \r\n                   40-        DAREA  *37              43              3               1.3938414E-01           \r\n                   41-        DAREA  *37              45              3               4.0450850E-01           \r\n                   42-        DAREA  *37              46              3               7.9905665E-01           \r\n                   43-        DAREA  *37              47              3               7.6942088E-01           \r\n                   44-        DAREA  *37              48              3               7.2083942E-01           \r\n                   45-        DAREA  *37              49              3               6.5450849E-01           \r\n                   46-        DAREA  *37              50              3               5.7206140E-01           \r\n                   47-        DAREA  *37              51              3               4.7552826E-01           \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        DAREA  *37              52              3               3.6728603E-01           \r\n                   49-        DAREA  *37              53              3               2.5000001E-01           \r\n                   50-        DAREA  *37              54              3               1.2655815E-01           \r\n                   51-        DAREA  *37              56              3               3.5355339E-01           \r\n                   52-        DAREA  *37              57              3               6.9840112E-01           \r\n                   53-        DAREA  *37              58              3               6.7249851E-01           \r\n                   54-        DAREA  *37              59              3               6.3003676E-01           \r\n                   55-        DAREA  *37              60              3               5.7206140E-01           \r\n                   56-        DAREA  *37              61              3               5.0000000E-01           \r\n                   57-        DAREA  *37              62              3               4.1562694E-01           \r\n                   58-        DAREA  *37              63              3               3.2101976E-01           \r\n                   59-        DAREA  *37              64              3               2.1850802E-01           \r\n                   60-        DAREA  *37              65              3               1.1061588E-01           \r\n                   61-        DAREA  *37              67              3               2.9389263E-01           \r\n                   62-        DAREA  *37              68              3               5.8054864E-01           \r\n                   63-        DAREA  *37              69              3               5.5901700E-01           \r\n                   64-        DAREA  *37              70              3               5.2372050E-01           \r\n                   65-        DAREA  *37              71              3               4.7552826E-01           \r\n                   66-        DAREA  *37              72              3               4.1562694E-01           \r\n                   67-        DAREA  *37              73              3               3.4549151E-01           \r\n                   68-        DAREA  *37              74              3               2.6684893E-01           \r\n                   69-        DAREA  *37              75              3               1.8163564E-01           \r\n                   70-        DAREA  *37              76              3               9.1949883E-02           \r\n                   71-        DAREA  *37              78              3               2.2699525E-01           \r\n                   72-        DAREA  *37              79              3               4.4840113E-01           \r\n                   73-        DAREA  *37              80              3               4.3177063E-01           \r\n                   74-        DAREA  *37              81              3               4.0450851E-01           \r\n                   75-        DAREA  *37              82              3               3.6728603E-01           \r\n                   76-        DAREA  *37              83              3               3.2101976E-01           \r\n                   77-        DAREA  *37              84              3               2.6684893E-01           \r\n                   78-        DAREA  *37              85              3               2.0610738E-01           \r\n                   79-        DAREA  *37              86              3               1.4029079E-01           \r\n                   80-        DAREA  *37              87              3               7.1019771E-02           \r\n                   81-        DAREA  *37              89              3               1.5450850E-01           \r\n                   82-        DAREA  *37              90              3               3.0521249E-01           \r\n                   83-        DAREA  *37              91              3               2.9389264E-01           \r\n                   84-        DAREA  *37              92              3               2.7533617E-01           \r\n                   85-        DAREA  *37              93              3               2.5000001E-01           \r\n                   86-        DAREA  *37              94              3               2.1850802E-01           \r\n                   87-        DAREA  *37              95              3               1.8163564E-01           \r\n                   88-        DAREA  *37              96              3               1.4029079E-01           \r\n                   89-        DAREA  *37              97              3               9.5491510E-02           \r\n                   90-        DAREA  *37              98              3               4.8340916E-02           \r\n                   91-        DAREA  *37              100             3               7.8217242E-02           \r\n                   92-        DAREA  *37              101             3               1.5450851E-01           \r\n                   93-        DAREA  *37              102             3               1.4877803E-01           \r\n                   94-        DAREA  *37              103             3               1.3938414E-01           \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        DAREA  *37              104             3               1.2655815E-01           \r\n                   96-        DAREA  *37              105             3               1.1061588E-01           \r\n                   97-        DAREA  *37              106             3               9.1949883E-02           \r\n                   98-        DAREA  *37              107             3               7.1019771E-02           \r\n                   99-        DAREA  *37              108             3               4.8340916E-02           \r\n                  100-        DAREA  *37              109             3               2.4471748E-02           \r\n                  101-        FREQ    8       .0      8.0     9.0     10.0    11.0                            \r\n                  102-        MAT1    8       3.0+7           .300                                            \r\n                  103-        PQUAD1  101                     8       .6666667                13.55715        \r\n                  104-        RLOAD1  8       37                      1                                       \r\n                  105-        TABLED1 1                                                               +T1     \r\n                  106-        +T1     .0      10.0    100.0   40.0    ENDT                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                   \r\n\r\n       1  EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1//$                                                      \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR4,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                  \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N,         \r\n                   NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $                           \r\n\r\n      90  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      91  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      92  PARAM    //*MPY*/REPEATF/-1/1 $                                         \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBL13,NOFL $                                                   \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBL13 $                                                        \r\n\r\n      99  PURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,              \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n     100  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n     101  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     102  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     103  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     104  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     105  COND     LBLFL2,NOFL $                                                  \r\n\r\n     106  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     107  COND     LBLFL2,NOABFL $                                                \r\n\r\n     108  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     109  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     110  LABEL    LBLFL2 $                                                       \r\n\r\n     111  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     112  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     113  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     114  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                   MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                  \r\n\r\n     116  COND     LBL18,NOGPDT $                                                 \r\n\r\n     117  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/       \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     118  LABEL    LBL18 $                                                        \r\n\r\n     119  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     120  COND     ERROR1,NOFRL $                                                 \r\n\r\n     121  COND     ERROR2,NODLT $                                                 \r\n\r\n     122  FRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n                   *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/                      \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NONCUP/FRQSET $                                                \r\n\r\n     123  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     124  VDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/         \r\n                   *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                       \r\n\r\n     125  COND     LBL15,NOD $                                                    \r\n\r\n     126  COND     LBL15A,NOSORT2 $                                               \r\n\r\n     127  SDR3     OUDVC1,,,,,/OUDVC2,,,,, $                                      \r\n\r\n     128  OFP      OUDVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     129  XYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     130  XYPLOT   XYPLTFA// $                                                    \r\n\r\n     131  JUMP     LBL15 $                                                        \r\n\r\n     132  LABEL    LBL15A $                                                       \r\n\r\n     133  OFP      OUDVC1,,,,,//S,N,CARDNO $                                      \r\n\r\n     134  LABEL    LBL15 $                                                        \r\n\r\n     135  COND     LBL20,NOP $                                                    \r\n\r\n     136  EQUIV    UDVF,UPVC/NOA $                                                \r\n\r\n     137  COND     LBL19,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $       \r\n\r\n     139  LABEL    LBL19 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, \r\n                   PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     141  COND     LBL17,NOSORT2 $                                                \r\n\r\n     142  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n\r\n     143  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     145  XYPLOT   XYPLTF// $                                                     \r\n\r\n     146  COND     LBL16,NOPSDL $                                                 \r\n\r\n     147  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     148  COND     LBL16,NORD $                                                   \r\n\r\n     149  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     150  XYPLOT   XYPLTR// $                                                     \r\n\r\n     151  JUMP     LBL16 $                                                        \r\n\r\n     152  LABEL    LBL17 $                                                        \r\n\r\n     153  PURGE    PSDF/NOSORT2 $                                                 \r\n\r\n     154  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     155  LABEL    LBL16 $                                                        \r\n\r\n     156  PURGE    PSDF/NOPSDL $                                                  \r\n\r\n     157  COND     LBL20,JUMPPLOT $                                               \r\n\r\n     158  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,          \r\n                   GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/               \r\n                   S,N,PFILE $                                                    \r\n\r\n     159  PRTMSG   PLOTX2// $                                                     \r\n\r\n     160  LABEL    LBL20 $                                                        \r\n\r\n     164  JUMP     FINIS $                                                        \r\n\r\n     165  LABEL    ERROR2 $                                                       \r\n\r\n     166  PRTPARM  //-2/*DIRFRRD* $                                               \r\n\r\n     167  LABEL    ERROR1 $                                                       \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     168  PRTPARM  //-1/*DIRFRRD* $                                               \r\n\r\n     169  LABEL    ERROR4 $                                                       \r\n\r\n     170  PRTPARM  //-4/*DIRFRRD* $                                               \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     173  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                           10      10 1.0E+00 1.0E+00     126 0.0E+00 0.0E+00\r\n                            4       5      35      34       0       0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            6.603571E+01   6.603571E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.286568E+02   2.286568E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            4.470245E+02   4.470245E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            2.906904E+04   2.906904E+04   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            4.112285E+02   4.112285E+02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.176765E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            4.074694E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            7.966035E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.180141E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            7.328146E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            7.762963E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.688022E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            5.255088E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            3.417271E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            4.834281E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.149553E+01   1.173293E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            7.443094E+01   4.062674E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.455126E+02   7.942535E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            9.462373E+03   5.164860E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.338605E+02   7.306528E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      45\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.068480E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            3.699745E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            7.233008E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            4.703470E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            6.653818E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            3.478050E+01   5.615477E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            1.204318E+02   1.944428E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            2.354444E+02   3.801361E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.531044E+04   2.471943E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            2.165909E+02   3.496963E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      78\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            5.995917E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            2.076160E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            4.058897E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            2.639414E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            3.733877E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      88\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.951753E+01   8.512338E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.758187E+01   2.947502E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.321227E+02   5.762372E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            8.591655E+03   3.747147E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.215428E+02   5.300944E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     111\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.149553E+01   0.0            1.173293E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            7.443094E+01   0.0            4.062674E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.455126E+02   0.0            7.942535E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            9.462373E+03   0.0            5.164860E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.338605E+02   0.0            7.306528E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     114\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            3.830532E+01   0.0            4.337253E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            1.326369E+02   0.0            1.501827E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            2.593054E+02   0.0            2.936075E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.686207E+04   0.0            1.909267E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            2.385412E+02   0.0            2.700966E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     117\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.526951E+01   0.0            7.729041E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            8.749881E+01   0.0            2.676276E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.710604E+02   0.0            5.232125E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.112369E+04   0.0            3.402338E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.573625E+02   0.0            4.813157E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     121\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.426342E+02   4.776810E-01   4.776810E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.938884E+02   1.654029E+00   1.654029E+00   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            9.655529E+02   3.233631E+00   3.233631E+00   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            6.278782E+04   2.102761E+02   2.102761E+02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            8.882352E+02   2.974694E+00   2.974694E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.873926E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.488702E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.268542E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            8.249059E-02   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.166963E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.669681E-04   0.0            1.335168E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.781475E-04   0.0            4.623182E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.130280E-03   0.0            9.038331E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            7.349966E-02   0.0            5.877432E-03   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.039771E-03   0.0            8.314577E-05   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.101466E-04   0.0            2.379286E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.813963E-04   0.0            8.238571E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.456306E-04   0.0            1.610642E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            4.848675E-02   0.0            1.047366E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.859234E-04   0.0            1.481668E-04   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.940959E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.018343E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.990864E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            1.294616E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.831443E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      45\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.516038E-04   1.728652E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.249470E-04   5.985672E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.026272E-03   1.170200E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            6.673629E-02   7.609560E-03   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            9.440926E-04   1.076495E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      55\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.379286E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            8.238571E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.610642E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            1.047366E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.481668E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      78\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.507448E-05   2.620414E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            2.945809E-04   9.073506E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            5.759062E-04   1.773872E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.744994E-02   1.153511E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            5.297899E-04   1.631828E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      88\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.335168E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            4.623182E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            9.038331E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.877432E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            8.314577E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     111\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.940959E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.018343E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.990864E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.294616E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.831443E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     114\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.620414E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            9.073506E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.773872E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.153511E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.631828E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     117\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.728652E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            5.985672E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.170200E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            7.609560E-03   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.076495E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 10X10 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     121\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 10X10 PLATE                                \r\n DATE:  5/17/95\r\n END TIME: 16: 3: 5\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d08014a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D08014A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   8,1                                                                       \r\n     DIAG  14                                                                        \r\n     TIME  30                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                           \r\n     EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 20X20 PLATE                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                          \r\n                  3           SPC = 20020                                                                \r\n                  4         DLOAD = 8                                                                    \r\n                  5      FREQUENCY= 8                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 1,7,13,21,  169,189,  295,315,  421,427,433,441                      \r\n                  8         DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n                  9         SPCFORCE(SORT2,PHASE) = 1                                                    \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   406, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        DAREA  *37              1               3               2.5000000E-01           \r\n                    2-        DAREA  *37              2               3               4.9845867E-01           \r\n                    3-        DAREA  *37              3               3               4.9384417E-01           \r\n                    4-        DAREA  *37              4               3               4.8618496E-01           \r\n                    5-        DAREA  *37              5               3               4.7552826E-01           \r\n                    6-        DAREA  *37              6               3               4.6193977E-01           \r\n                    7-        DAREA  *37              7               3               4.4550326E-01           \r\n                    8-        DAREA  *37              8               3               4.2632008E-01           \r\n                    9-        DAREA  *37              9               3               4.0450850E-01           \r\n                   10-        DAREA  *37              10              3               3.8020299E-01           \r\n                   11-        DAREA  *37              11              3               3.5355339E-01           \r\n                   12-        DAREA  *37              12              3               3.2472403E-01           \r\n                   13-        DAREA  *37              13              3               2.9389263E-01           \r\n                   14-        DAREA  *37              14              3               2.6124929E-01           \r\n                   15-        DAREA  *37              15              3               2.2699525E-01           \r\n                   16-        DAREA  *37              16              3               1.9134172E-01           \r\n                   17-        DAREA  *37              17              3               1.5450850E-01           \r\n                   18-        DAREA  *37              18              3               1.1672269E-01           \r\n                   19-        DAREA  *37              19              3               7.8217242E-02           \r\n                   20-        DAREA  *37              20              3               3.9229557E-02           \r\n                   21-        DAREA  *37              22              3               4.9845867E-01           \r\n                   22-        DAREA  *37              23              3               9.9384417E-01           \r\n                   23-        DAREA  *37              24              3               9.8464362E-01           \r\n                   24-        DAREA  *37              25              3               9.6937243E-01           \r\n                   25-        DAREA  *37              26              3               9.4812473E-01           \r\n                   26-        DAREA  *37              27              3               9.2103152E-01           \r\n                   27-        DAREA  *37              28              3               8.8825985E-01           \r\n                   28-        DAREA  *37              29              3               8.5001176E-01           \r\n                   29-        DAREA  *37              30              3               8.0652306E-01           \r\n                   30-        DAREA  *37              31              3               7.5806189E-01           \r\n                   31-        DAREA  *37              32              3               7.0492700E-01           \r\n                   32-        DAREA  *37              33              3               6.4744603E-01           \r\n                   33-        DAREA  *37              34              3               5.8597331E-01           \r\n                   34-        DAREA  *37              35              3               5.2088789E-01           \r\n                   35-        DAREA  *37              36              3               4.5259101E-01           \r\n                   36-        DAREA  *37              37              3               3.8150376E-01           \r\n                   37-        DAREA  *37              38              3               3.0806441E-01           \r\n                   38-        DAREA  *37              39              3               2.3272575E-01           \r\n                   39-        DAREA  *37              40              3               1.5595225E-01           \r\n                   40-        DAREA  *37              41              3               7.8217250E-02           \r\n                   41-        DAREA  *37              43              3               4.9384417E-01           \r\n                   42-        DAREA  *37              44              3               9.8464362E-01           \r\n                   43-        DAREA  *37              45              3               9.7552826E-01           \r\n                   44-        DAREA  *37              46              3               9.6039844E-01           \r\n                   45-        DAREA  *37              47              3               9.3934743E-01           \r\n                   46-        DAREA  *37              48              3               9.1250504E-01           \r\n                   47-        DAREA  *37              49              3               8.8003676E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        DAREA  *37              50              3               8.4214275E-01           \r\n                   49-        DAREA  *37              51              3               7.9905665E-01           \r\n                   50-        DAREA  *37              52              3               7.5104411E-01           \r\n                   51-        DAREA  *37              53              3               6.9840112E-01           \r\n                   52-        DAREA  *37              54              3               6.4145228E-01           \r\n                   53-        DAREA  *37              55              3               5.8054864E-01           \r\n                   54-        DAREA  *37              56              3               5.1606575E-01           \r\n                   55-        DAREA  *37              57              3               4.4840113E-01           \r\n                   56-        DAREA  *37              58              3               3.7797197E-01           \r\n                   57-        DAREA  *37              59              3               3.0521249E-01           \r\n                   58-        DAREA  *37              60              3               2.3057128E-01           \r\n                   59-        DAREA  *37              61              3               1.5450851E-01           \r\n                   60-        DAREA  *37              62              3               7.7493152E-02           \r\n                   61-        DAREA  *37              64              3               4.8618496E-01           \r\n                   62-        DAREA  *37              65              3               9.6937243E-01           \r\n                   63-        DAREA  *37              66              3               9.6039844E-01           \r\n                   64-        DAREA  *37              67              3               9.4550326E-01           \r\n                   65-        DAREA  *37              68              3               9.2477875E-01           \r\n                   66-        DAREA  *37              69              3               8.9835267E-01           \r\n                   67-        DAREA  *37              70              3               8.6638795E-01           \r\n                   68-        DAREA  *37              71              3               8.2908165E-01           \r\n                   69-        DAREA  *37              72              3               7.8666379E-01           \r\n                   70-        DAREA  *37              73              3               7.3939589E-01           \r\n                   71-        DAREA  *37              74              3               6.8756936E-01           \r\n                   72-        DAREA  *37              75              3               6.3150375E-01           \r\n                   73-        DAREA  *37              76              3               5.7154471E-01           \r\n                   74-        DAREA  *37              77              3               5.0806190E-01           \r\n                   75-        DAREA  *37              78              3               4.4144671E-01           \r\n                   76-        DAREA  *37              79              3               3.7210987E-01           \r\n                   77-        DAREA  *37              80              3               3.0047884E-01           \r\n                   78-        DAREA  *37              81              3               2.2699527E-01           \r\n                   79-        DAREA  *37              82              3               1.5211219E-01           \r\n                   80-        DAREA  *37              83              3               7.6291282E-02           \r\n                   81-        DAREA  *37              85              3               4.7552826E-01           \r\n                   82-        DAREA  *37              86              3               9.4812473E-01           \r\n                   83-        DAREA  *37              87              3               9.3934743E-01           \r\n                   84-        DAREA  *37              88              3               9.2477875E-01           \r\n                   85-        DAREA  *37              89              3               9.0450849E-01           \r\n                   86-        DAREA  *37              90              3               8.7866165E-01           \r\n                   87-        DAREA  *37              91              3               8.4739757E-01           \r\n                   88-        DAREA  *37              92              3               8.1090898E-01           \r\n                   89-        DAREA  *37              93              3               7.6942088E-01           \r\n                   90-        DAREA  *37              94              3               7.2318906E-01           \r\n                   91-        DAREA  *37              95              3               6.7249851E-01           \r\n                   92-        DAREA  *37              96              3               6.1766180E-01           \r\n                   93-        DAREA  *37              97              3               5.5901700E-01           \r\n                   94-        DAREA  *37              98              3               4.9692567E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        DAREA  *37              99              3               4.3177063E-01           \r\n                   96-        DAREA  *37              100             3               3.6395358E-01           \r\n                   97-        DAREA  *37              101             3               2.9389264E-01           \r\n                   98-        DAREA  *37              102             3               2.2201975E-01           \r\n                   99-        DAREA  *37              103             3               1.4877803E-01           \r\n                  100-        DAREA  *37              104             3               7.4619051E-02           \r\n                  101-        DAREA  *37              106             3               4.6193977E-01           \r\n                  102-        DAREA  *37              107             3               9.2103152E-01           \r\n                  103-        DAREA  *37              108             3               9.1250504E-01           \r\n                  104-        DAREA  *37              109             3               8.9835267E-01           \r\n                  105-        DAREA  *37              110             3               8.7866165E-01           \r\n                  106-        DAREA  *37              111             3               8.5355339E-01           \r\n                  107-        DAREA  *37              112             3               8.2318269E-01           \r\n                  108-        DAREA  *37              113             3               7.8773680E-01           \r\n                  109-        DAREA  *37              114             3               7.4743424E-01           \r\n                  110-        DAREA  *37              115             3               7.0252351E-01           \r\n                  111-        DAREA  *37              116             3               6.5328148E-01           \r\n                  112-        DAREA  *37              117             3               6.0001177E-01           \r\n                  113-        DAREA  *37              118             3               5.4304276E-01           \r\n                  114-        DAREA  *37              119             3               4.8272574E-01           \r\n                  115-        DAREA  *37              120             3               4.1943254E-01           \r\n                  116-        DAREA  *37              121             3               3.5355340E-01           \r\n                  117-        DAREA  *37              122             3               2.8549449E-01           \r\n                  118-        DAREA  *37              123             3               2.1567541E-01           \r\n                  119-        DAREA  *37              124             3               1.4452662E-01           \r\n                  120-        DAREA  *37              125             3               7.2486769E-02           \r\n                  121-        DAREA  *37              127             3               4.4550326E-01           \r\n                  122-        DAREA  *37              128             3               8.8825985E-01           \r\n                  123-        DAREA  *37              129             3               8.8003676E-01           \r\n                  124-        DAREA  *37              130             3               8.6638795E-01           \r\n                  125-        DAREA  *37              131             3               8.4739757E-01           \r\n                  126-        DAREA  *37              132             3               8.2318269E-01           \r\n                  127-        DAREA  *37              133             3               7.9389263E-01           \r\n                  128-        DAREA  *37              134             3               7.5970795E-01           \r\n                  129-        DAREA  *37              135             3               7.2083942E-01           \r\n                  130-        DAREA  *37              136             3               6.7752668E-01           \r\n                  131-        DAREA  *37              137             3               6.3003676E-01           \r\n                  132-        DAREA  *37              138             3               5.7866246E-01           \r\n                  133-        DAREA  *37              139             3               5.2372050E-01           \r\n                  134-        DAREA  *37              140             3               4.6554964E-01           \r\n                  135-        DAREA  *37              141             3               4.0450851E-01           \r\n                  136-        DAREA  *37              142             3               3.4097344E-01           \r\n                  137-        DAREA  *37              143             3               2.7533617E-01           \r\n                  138-        DAREA  *37              144             3               2.0800136E-01           \r\n                  139-        DAREA  *37              145             3               1.3938414E-01           \r\n                  140-        DAREA  *37              146             3               6.9907582E-02           \r\n                  141-        DAREA  *37              148             3               4.2632008E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        DAREA  *37              149             3               8.5001176E-01           \r\n                  143-        DAREA  *37              150             3               8.4214275E-01           \r\n                  144-        DAREA  *37              151             3               8.2908165E-01           \r\n                  145-        DAREA  *37              152             3               8.1090898E-01           \r\n                  146-        DAREA  *37              153             3               7.8773680E-01           \r\n                  147-        DAREA  *37              154             3               7.5970795E-01           \r\n                  148-        DAREA  *37              155             3               7.2699525E-01           \r\n                  149-        DAREA  *37              156             3               6.8980038E-01           \r\n                  150-        DAREA  *37              157             3               6.4835268E-01           \r\n                  151-        DAREA  *37              158             3               6.0290764E-01           \r\n                  152-        DAREA  *37              159             3               5.5374550E-01           \r\n                  153-        DAREA  *37              160             3               5.0116932E-01           \r\n                  154-        DAREA  *37              161             3               4.4550327E-01           \r\n                  155-        DAREA  *37              162             3               3.8709054E-01           \r\n                  156-        DAREA  *37              163             3               3.2629127E-01           \r\n                  157-        DAREA  *37              164             3               2.6348031E-01           \r\n                  158-        DAREA  *37              165             3               1.9904491E-01           \r\n                  159-        DAREA  *37              166             3               1.3338232E-01           \r\n                  160-        DAREA  *37              167             3               6.6897391E-02           \r\n                  161-        DAREA  *37              169             3               4.0450850E-01           \r\n                  162-        DAREA  *37              170             3               8.0652306E-01           \r\n                  163-        DAREA  *37              171             3               7.9905665E-01           \r\n                  164-        DAREA  *37              172             3               7.8666379E-01           \r\n                  165-        DAREA  *37              173             3               7.6942088E-01           \r\n                  166-        DAREA  *37              174             3               7.4743424E-01           \r\n                  167-        DAREA  *37              175             3               7.2083942E-01           \r\n                  168-        DAREA  *37              176             3               6.8980038E-01           \r\n                  169-        DAREA  *37              177             3               6.5450849E-01           \r\n                  170-        DAREA  *37              178             3               6.1518135E-01           \r\n                  171-        DAREA  *37              179             3               5.7206140E-01           \r\n                  172-        DAREA  *37              180             3               5.2541451E-01           \r\n                  173-        DAREA  *37              181             3               4.7552826E-01           \r\n                  174-        DAREA  *37              182             3               4.2271023E-01           \r\n                  175-        DAREA  *37              183             3               3.6728603E-01           \r\n                  176-        DAREA  *37              184             3               3.0959741E-01           \r\n                  177-        DAREA  *37              185             3               2.5000001E-01           \r\n                  178-        DAREA  *37              186             3               1.8886128E-01           \r\n                  179-        DAREA  *37              187             3               1.2655815E-01           \r\n                  180-        DAREA  *37              188             3               6.3474756E-02           \r\n                  181-        DAREA  *37              190             3               3.8020299E-01           \r\n                  182-        DAREA  *37              191             3               7.5806189E-01           \r\n                  183-        DAREA  *37              192             3               7.5104411E-01           \r\n                  184-        DAREA  *37              193             3               7.3939589E-01           \r\n                  185-        DAREA  *37              194             3               7.2318906E-01           \r\n                  186-        DAREA  *37              195             3               7.0252351E-01           \r\n                  187-        DAREA  *37              196             3               6.7752668E-01           \r\n                  188-        DAREA  *37              197             3               6.4835268E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        DAREA  *37              198             3               6.1518135E-01           \r\n                  190-        DAREA  *37              199             3               5.7821724E-01           \r\n                  191-        DAREA  *37              200             3               5.3768822E-01           \r\n                  192-        DAREA  *37              201             3               4.9384418E-01           \r\n                  193-        DAREA  *37              202             3               4.4695542E-01           \r\n                  194-        DAREA  *37              203             3               3.9731104E-01           \r\n                  195-        DAREA  *37              204             3               3.4521709E-01           \r\n                  196-        DAREA  *37              205             3               2.9099477E-01           \r\n                  197-        DAREA  *37              206             3               2.3497838E-01           \r\n                  198-        DAREA  *37              207             3               1.7751326E-01           \r\n                  199-        DAREA  *37              208             3               1.1895372E-01           \r\n                  200-        DAREA  *37              209             3               5.9660778E-02           \r\n                  201-        DAREA  *37              211             3               3.5355339E-01           \r\n                  202-        DAREA  *37              212             3               7.0492700E-01           \r\n                  203-        DAREA  *37              213             3               6.9840112E-01           \r\n                  204-        DAREA  *37              214             3               6.8756936E-01           \r\n                  205-        DAREA  *37              215             3               6.7249851E-01           \r\n                  206-        DAREA  *37              216             3               6.5328148E-01           \r\n                  207-        DAREA  *37              217             3               6.3003676E-01           \r\n                  208-        DAREA  *37              218             3               6.0290764E-01           \r\n                  209-        DAREA  *37              219             3               5.7206140E-01           \r\n                  210-        DAREA  *37              220             3               5.3768822E-01           \r\n                  211-        DAREA  *37              221             3               5.0000000E-01           \r\n                  212-        DAREA  *37              222             3               4.5922913E-01           \r\n                  213-        DAREA  *37              223             3               4.1562694E-01           \r\n                  214-        DAREA  *37              224             3               3.6946229E-01           \r\n                  215-        DAREA  *37              225             3               3.2101976E-01           \r\n                  216-        DAREA  *37              226             3               2.7059806E-01           \r\n                  217-        DAREA  *37              227             3               2.1850802E-01           \r\n                  218-        DAREA  *37              228             3               1.6507082E-01           \r\n                  219-        DAREA  *37              229             3               1.1061588E-01           \r\n                  220-        DAREA  *37              230             3               5.5478971E-02           \r\n                  221-        DAREA  *37              232             3               3.2472403E-01           \r\n                  222-        DAREA  *37              233             3               6.4744603E-01           \r\n                  223-        DAREA  *37              234             3               6.4145228E-01           \r\n                  224-        DAREA  *37              235             3               6.3150375E-01           \r\n                  225-        DAREA  *37              236             3               6.1766180E-01           \r\n                  226-        DAREA  *37              237             3               6.0001177E-01           \r\n                  227-        DAREA  *37              238             3               5.7866246E-01           \r\n                  228-        DAREA  *37              239             3               5.5374550E-01           \r\n                  229-        DAREA  *37              240             3               5.2541451E-01           \r\n                  230-        DAREA  *37              241             3               4.9384418E-01           \r\n                  231-        DAREA  *37              242             3               4.5922913E-01           \r\n                  232-        DAREA  *37              243             3               4.2178278E-01           \r\n                  233-        DAREA  *37              244             3               3.8173600E-01           \r\n                  234-        DAREA  *37              245             3               3.3933569E-01           \r\n                  235-        DAREA  *37              246             3               2.9484325E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        DAREA  *37              247             3               2.4853302E-01           \r\n                  237-        DAREA  *37              248             3               2.0069049E-01           \r\n                  238-        DAREA  *37              249             3               1.5161065E-01           \r\n                  239-        DAREA  *37              250             3               1.0159607E-01           \r\n                  240-        DAREA  *37              251             3               5.0955119E-02           \r\n                  241-        DAREA  *37              253             3               2.9389263E-01           \r\n                  242-        DAREA  *37              254             3               5.8597331E-01           \r\n                  243-        DAREA  *37              255             3               5.8054864E-01           \r\n                  244-        DAREA  *37              256             3               5.7154471E-01           \r\n                  245-        DAREA  *37              257             3               5.5901700E-01           \r\n                  246-        DAREA  *37              258             3               5.4304276E-01           \r\n                  247-        DAREA  *37              259             3               5.2372050E-01           \r\n                  248-        DAREA  *37              260             3               5.0116932E-01           \r\n                  249-        DAREA  *37              261             3               4.7552826E-01           \r\n                  250-        DAREA  *37              262             3               4.4695542E-01           \r\n                  251-        DAREA  *37              263             3               4.1562694E-01           \r\n                  252-        DAREA  *37              264             3               3.8173600E-01           \r\n                  253-        DAREA  *37              265             3               3.4549151E-01           \r\n                  254-        DAREA  *37              266             3               3.0711696E-01           \r\n                  255-        DAREA  *37              267             3               2.6684893E-01           \r\n                  256-        DAREA  *37              268             3               2.2493569E-01           \r\n                  257-        DAREA  *37              269             3               1.8163564E-01           \r\n                  258-        DAREA  *37              270             3               1.3721576E-01           \r\n                  259-        DAREA  *37              271             3               9.1949883E-02           \r\n                  260-        DAREA  *37              272             3               4.6117110E-02           \r\n                  261-        DAREA  *37              274             3               2.6124929E-01           \r\n                  262-        DAREA  *37              275             3               5.2088789E-01           \r\n                  263-        DAREA  *37              276             3               5.1606575E-01           \r\n                  264-        DAREA  *37              277             3               5.0806190E-01           \r\n                  265-        DAREA  *37              278             3               4.9692567E-01           \r\n                  266-        DAREA  *37              279             3               4.8272574E-01           \r\n                  267-        DAREA  *37              280             3               4.6554964E-01           \r\n                  268-        DAREA  *37              281             3               4.4550327E-01           \r\n                  269-        DAREA  *37              282             3               4.2271023E-01           \r\n                  270-        DAREA  *37              283             3               3.9731104E-01           \r\n                  271-        DAREA  *37              284             3               3.6946229E-01           \r\n                  272-        DAREA  *37              285             3               3.3933569E-01           \r\n                  273-        DAREA  *37              286             3               3.0711696E-01           \r\n                  274-        DAREA  *37              287             3               2.7300476E-01           \r\n                  275-        DAREA  *37              288             3               2.3720939E-01           \r\n                  276-        DAREA  *37              289             3               1.9995156E-01           \r\n                  277-        DAREA  *37              290             3               1.6146095E-01           \r\n                  278-        DAREA  *37              291             3               1.2197488E-01           \r\n                  279-        DAREA  *37              292             3               8.1736795E-02           \r\n                  280-        DAREA  *37              293             3               4.0994775E-02           \r\n                  281-        DAREA  *37              295             3               2.2699525E-01           \r\n                  282-        DAREA  *37              296             3               4.5259101E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        DAREA  *37              297             3               4.4840113E-01           \r\n                  284-        DAREA  *37              298             3               4.4144671E-01           \r\n                  285-        DAREA  *37              299             3               4.3177063E-01           \r\n                  286-        DAREA  *37              300             3               4.1943254E-01           \r\n                  287-        DAREA  *37              301             3               4.0450851E-01           \r\n                  288-        DAREA  *37              302             3               3.8709054E-01           \r\n                  289-        DAREA  *37              303             3               3.6728603E-01           \r\n                  290-        DAREA  *37              304             3               3.4521709E-01           \r\n                  291-        DAREA  *37              305             3               3.2101976E-01           \r\n                  292-        DAREA  *37              306             3               2.9484325E-01           \r\n                  293-        DAREA  *37              307             3               2.6684893E-01           \r\n                  294-        DAREA  *37              308             3               2.3720939E-01           \r\n                  295-        DAREA  *37              309             3               2.0610738E-01           \r\n                  296-        DAREA  *37              310             3               1.7373465E-01           \r\n                  297-        DAREA  *37              311             3               1.4029079E-01           \r\n                  298-        DAREA  *37              312             3               1.0598199E-01           \r\n                  299-        DAREA  *37              313             3               7.1019771E-02           \r\n                  300-        DAREA  *37              314             3               3.5619693E-02           \r\n                  301-        DAREA  *37              316             3               1.9134172E-01           \r\n                  302-        DAREA  *37              317             3               3.8150376E-01           \r\n                  303-        DAREA  *37              318             3               3.7797197E-01           \r\n                  304-        DAREA  *37              319             3               3.7210987E-01           \r\n                  305-        DAREA  *37              320             3               3.6395358E-01           \r\n                  306-        DAREA  *37              321             3               3.5355340E-01           \r\n                  307-        DAREA  *37              322             3               3.4097344E-01           \r\n                  308-        DAREA  *37              323             3               3.2629127E-01           \r\n                  309-        DAREA  *37              324             3               3.0959741E-01           \r\n                  310-        DAREA  *37              325             3               2.9099477E-01           \r\n                  311-        DAREA  *37              326             3               2.7059806E-01           \r\n                  312-        DAREA  *37              327             3               2.4853302E-01           \r\n                  313-        DAREA  *37              328             3               2.2493569E-01           \r\n                  314-        DAREA  *37              329             3               1.9995156E-01           \r\n                  315-        DAREA  *37              330             3               1.7373465E-01           \r\n                  316-        DAREA  *37              331             3               1.4644662E-01           \r\n                  317-        DAREA  *37              332             3               1.1825569E-01           \r\n                  318-        DAREA  *37              333             3               8.9335684E-02           \r\n                  319-        DAREA  *37              334             3               5.9864887E-02           \r\n                  320-        DAREA  *37              335             3               3.0025004E-02           \r\n                  321-        DAREA  *37              337             3               1.5450850E-01           \r\n                  322-        DAREA  *37              338             3               3.0806441E-01           \r\n                  323-        DAREA  *37              339             3               3.0521249E-01           \r\n                  324-        DAREA  *37              340             3               3.0047884E-01           \r\n                  325-        DAREA  *37              341             3               2.9389264E-01           \r\n                  326-        DAREA  *37              342             3               2.8549449E-01           \r\n                  327-        DAREA  *37              343             3               2.7533617E-01           \r\n                  328-        DAREA  *37              344             3               2.6348031E-01           \r\n                  329-        DAREA  *37              345             3               2.5000001E-01           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        DAREA  *37              346             3               2.3497838E-01           \r\n                  331-        DAREA  *37              347             3               2.1850802E-01           \r\n                  332-        DAREA  *37              348             3               2.0069049E-01           \r\n                  333-        DAREA  *37              349             3               1.8163564E-01           \r\n                  334-        DAREA  *37              350             3               1.6146095E-01           \r\n                  335-        DAREA  *37              351             3               1.4029079E-01           \r\n                  336-        DAREA  *37              352             3               1.1825569E-01           \r\n                  337-        DAREA  *37              353             3               9.5491510E-02           \r\n                  338-        DAREA  *37              354             3               7.2138594E-02           \r\n                  339-        DAREA  *37              355             3               4.8340916E-02           \r\n                  340-        DAREA  *37              356             3               2.4245200E-02           \r\n                  341-        DAREA  *37              358             3               1.1672269E-01           \r\n                  342-        DAREA  *37              359             3               2.3272575E-01           \r\n                  343-        DAREA  *37              360             3               2.3057128E-01           \r\n                  344-        DAREA  *37              361             3               2.2699527E-01           \r\n                  345-        DAREA  *37              362             3               2.2201975E-01           \r\n                  346-        DAREA  *37              363             3               2.1567541E-01           \r\n                  347-        DAREA  *37              364             3               2.0800136E-01           \r\n                  348-        DAREA  *37              365             3               1.9904491E-01           \r\n                  349-        DAREA  *37              366             3               1.8886128E-01           \r\n                  350-        DAREA  *37              367             3               1.7751326E-01           \r\n                  351-        DAREA  *37              368             3               1.6507082E-01           \r\n                  352-        DAREA  *37              369             3               1.5161065E-01           \r\n                  353-        DAREA  *37              370             3               1.3721576E-01           \r\n                  354-        DAREA  *37              371             3               1.2197488E-01           \r\n                  355-        DAREA  *37              372             3               1.0598199E-01           \r\n                  356-        DAREA  *37              373             3               8.9335684E-02           \r\n                  357-        DAREA  *37              374             3               7.2138594E-02           \r\n                  358-        DAREA  *37              375             3               5.4496748E-02           \r\n                  359-        DAREA  *37              376             3               3.6518908E-02           \r\n                  360-        DAREA  *37              377             3               1.8315918E-02           \r\n                  361-        DAREA  *37              379             3               7.8217242E-02           \r\n                  362-        DAREA  *37              380             3               1.5595225E-01           \r\n                  363-        DAREA  *37              381             3               1.5450851E-01           \r\n                  364-        DAREA  *37              382             3               1.5211219E-01           \r\n                  365-        DAREA  *37              383             3               1.4877803E-01           \r\n                  366-        DAREA  *37              384             3               1.4452662E-01           \r\n                  367-        DAREA  *37              385             3               1.3938414E-01           \r\n                  368-        DAREA  *37              386             3               1.3338232E-01           \r\n                  369-        DAREA  *37              387             3               1.2655815E-01           \r\n                  370-        DAREA  *37              388             3               1.1895372E-01           \r\n                  371-        DAREA  *37              389             3               1.1061588E-01           \r\n                  372-        DAREA  *37              390             3               1.0159607E-01           \r\n                  373-        DAREA  *37              391             3               9.1949883E-02           \r\n                  374-        DAREA  *37              392             3               8.1736795E-02           \r\n                  375-        DAREA  *37              393             3               7.1019771E-02           \r\n                  376-        DAREA  *37              394             3               5.9864887E-02           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        DAREA  *37              395             3               4.8340916E-02           \r\n                  378-        DAREA  *37              396             3               3.6518908E-02           \r\n                  379-        DAREA  *37              397             3               2.4471748E-02           \r\n                  380-        DAREA  *37              398             3               1.2273711E-02           \r\n                  381-        DAREA  *37              400             3               3.9229557E-02           \r\n                  382-        DAREA  *37              401             3               7.8217250E-02           \r\n                  383-        DAREA  *37              402             3               7.7493152E-02           \r\n                  384-        DAREA  *37              403             3               7.6291282E-02           \r\n                  385-        DAREA  *37              404             3               7.4619051E-02           \r\n                  386-        DAREA  *37              405             3               7.2486769E-02           \r\n                  387-        DAREA  *37              406             3               6.9907582E-02           \r\n                  388-        DAREA  *37              407             3               6.6897391E-02           \r\n                  389-        DAREA  *37              408             3               6.3474756E-02           \r\n                  390-        DAREA  *37              409             3               5.9660778E-02           \r\n                  391-        DAREA  *37              410             3               5.5478971E-02           \r\n                  392-        DAREA  *37              411             3               5.0955119E-02           \r\n                  393-        DAREA  *37              412             3               4.6117110E-02           \r\n                  394-        DAREA  *37              413             3               4.0994775E-02           \r\n                  395-        DAREA  *37              414             3               3.5619693E-02           \r\n                  396-        DAREA  *37              415             3               3.0025004E-02           \r\n                  397-        DAREA  *37              416             3               2.4245200E-02           \r\n                  398-        DAREA  *37              417             3               1.8315918E-02           \r\n                  399-        DAREA  *37              418             3               1.2273711E-02           \r\n                  400-        DAREA  *37              419             3               6.1558325E-03           \r\n                  401-        FREQ    8       .0      8.0     9.0     10.0    11.0                            \r\n                  402-        MAT1    8       3.0+7           .300                                            \r\n                  403-        PQUAD1  101                     8       .6666667                13.55715        \r\n                  404-        RLOAD1  8       37                      1                                       \r\n                  405-        TABLED1 1                                                               +T1     \r\n                  406-        +T1     .0      2.5     100.0   10.0    ENDT                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                   \r\n\r\n       1  EQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1//$                                                      \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR4,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                  \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N,         \r\n                   NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $                           \r\n\r\n      90  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      91  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      92  PARAM    //*MPY*/REPEATF/-1/1 $                                         \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBL13,NOFL $                                                   \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBL13 $                                                        \r\n\r\n      99  PURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,              \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n     100  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n     101  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     102  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     103  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     104  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     105  COND     LBLFL2,NOFL $                                                  \r\n\r\n     106  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     107  COND     LBLFL2,NOABFL $                                                \r\n\r\n     108  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     109  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     110  LABEL    LBLFL2 $                                                       \r\n\r\n     111  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     112  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     113  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     114  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                   MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                  \r\n\r\n     116  COND     LBL18,NOGPDT $                                                 \r\n\r\n     117  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/       \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     118  LABEL    LBL18 $                                                        \r\n\r\n     119  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     120  COND     ERROR1,NOFRL $                                                 \r\n\r\n     121  COND     ERROR2,NODLT $                                                 \r\n\r\n     122  FRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n                   *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/                      \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NONCUP/FRQSET $                                                \r\n\r\n     123  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     124  VDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/         \r\n                   *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                       \r\n\r\n     125  COND     LBL15,NOD $                                                    \r\n\r\n     126  COND     LBL15A,NOSORT2 $                                               \r\n\r\n     127  SDR3     OUDVC1,,,,,/OUDVC2,,,,, $                                      \r\n\r\n     128  OFP      OUDVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     129  XYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     130  XYPLOT   XYPLTFA// $                                                    \r\n\r\n     131  JUMP     LBL15 $                                                        \r\n\r\n     132  LABEL    LBL15A $                                                       \r\n\r\n     133  OFP      OUDVC1,,,,,//S,N,CARDNO $                                      \r\n\r\n     134  LABEL    LBL15 $                                                        \r\n\r\n     135  COND     LBL20,NOP $                                                    \r\n\r\n     136  EQUIV    UDVF,UPVC/NOA $                                                \r\n\r\n     137  COND     LBL19,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $       \r\n\r\n     139  LABEL    LBL19 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, \r\n                   PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     141  COND     LBL17,NOSORT2 $                                                \r\n\r\n     142  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n\r\n     143  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     145  XYPLOT   XYPLTF// $                                                     \r\n\r\n     146  COND     LBL16,NOPSDL $                                                 \r\n\r\n     147  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     148  COND     LBL16,NORD $                                                   \r\n\r\n     149  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     150  XYPLOT   XYPLTR// $                                                     \r\n\r\n     151  JUMP     LBL16 $                                                        \r\n\r\n     152  LABEL    LBL17 $                                                        \r\n\r\n     153  PURGE    PSDF/NOSORT2 $                                                 \r\n\r\n     154  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     155  LABEL    LBL16 $                                                        \r\n\r\n     156  PURGE    PSDF/NOPSDL $                                                  \r\n\r\n     157  COND     LBL20,JUMPPLOT $                                               \r\n\r\n     158  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,          \r\n                   GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/               \r\n                   S,N,PFILE $                                                    \r\n\r\n     159  PRTMSG   PLOTX2// $                                                     \r\n\r\n     160  LABEL    LBL20 $                                                        \r\n\r\n     164  JUMP     FINIS $                                                        \r\n\r\n     165  LABEL    ERROR2 $                                                       \r\n\r\n     166  PRTPARM  //-2/*DIRFRRD* $                                               \r\n\r\n     167  LABEL    ERROR1 $                                                       \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     168  PRTPARM  //-1/*DIRFRRD* $                                               \r\n\r\n     169  LABEL    ERROR4 $                                                       \r\n\r\n     170  PRTPARM  //-4/*DIRFRRD* $                                               \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     173  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                           20      20 5.0E-01 5.0E-01     126 0.0E+00 0.0E+00\r\n                            4       5      35      34       0       0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        1\r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            3.295143E+01   3.295143E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.136489E+02   1.136489E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            2.209514E+02   2.209514E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.788203E+04   5.788203E+04   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            2.078062E+02   2.078062E+02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            5.871988E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            2.025238E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            3.937383E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            1.031465E+05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            3.703134E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            3.873673E+01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.336023E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            2.597439E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            6.804441E+04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            2.442908E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.074419E+01   3.016930E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.705651E+01   1.040534E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.204370E+01   2.022961E+00   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.887309E+04   5.299496E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.775757E+01   1.902608E+00   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     169\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            5.331654E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.838878E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            3.575069E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            9.365509E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            3.362375E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     189\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.738446E+01   7.052916E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.995869E+01   2.432538E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.165692E+02   4.729238E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.053730E+04   1.238905E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.096340E+02   4.447879E-01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     295\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.991928E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.031910E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            2.006197E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.255578E+04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.886841E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     315\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            9.755518E+00   1.069131E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.364661E+01   3.687414E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            6.541431E+01   7.168914E-01   0.0            0.0                           \r\n                             0.0            0.0          180.0000       180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.713641E+04   1.878021E+02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.152258E+01   6.742409E-01   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     421\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.074419E+01   0.0            3.016930E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.705651E+01   0.0            1.040534E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.204370E+01   0.0            2.022961E+00   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.887309E+04   0.0            5.299496E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.775757E+01   0.0            1.902608E+00   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     427\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.914628E+01   0.0            5.447495E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.603519E+01   0.0            1.878831E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.283828E+02   0.0            3.652744E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.363209E+04   0.0            9.568993E+01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.207449E+02   0.0            3.435429E-01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     433\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.263055E+01   0.0            9.707507E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.356254E+01   0.0            3.348102E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            8.469245E+01   0.0            6.509238E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.218665E+04   0.0            1.705207E+02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            7.965379E+01   0.0            6.121980E-01   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     441\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.420475E+02   5.999569E-02   5.999569E-02   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            4.899194E+02   2.069241E-01   2.069241E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            9.524806E+02   4.022930E-01   4.022930E-01   0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.495187E+05   1.053876E+02   1.053876E+02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            8.958141E+02   3.783592E-01   3.783592E-01   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.869791E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            6.448877E-04   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.253763E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            3.284450E-01   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.179173E-03   0.0            0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       7\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.665996E-04   0.0            1.333102E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.745991E-04   0.0            4.597844E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.117111E-03   0.0            8.938934E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.926466E-01   0.0            2.341708E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            1.050650E-03   0.0            8.407125E-05   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.099036E-04   0.0            2.375605E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            3.790555E-04   0.0            8.193418E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            7.369437E-04   0.0            1.592930E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.930551E-01   0.0            4.172954E-02   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            6.931003E-04   0.0            1.498161E-04   0.0                           \r\n                             0.0            0.0          180.0000         0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.936409E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            1.012762E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.968969E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            5.158055E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.851828E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     169\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.512693E-04   1.725978E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            5.217251E-04   5.952867E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            1.014316E-03   1.157331E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            2.657176E-01   3.031829E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            9.539707E-04   1.088477E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     189\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            2.375605E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            8.193418E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            1.592930E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            4.172954E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            1.498161E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     295\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.488676E-05   2.616359E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            2.927729E-04   9.023777E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            5.691967E-04   1.754364E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            1.491109E-01   4.595860E-02   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            5.353331E-04   1.649991E-04   0.0            0.0                           \r\n                             0.0            0.0          180.0000         0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     315\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            1.333102E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            4.597844E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            8.938934E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            2.341708E-02   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            8.407125E-05   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     421\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.936409E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            1.012762E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.968969E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            5.158055E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.851828E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     427\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            2.616359E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            9.023777E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.754364E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            4.595860E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.649991E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     433\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            1.725978E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            5.952867E-05   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            1.157331E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0          180.0000         0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            3.031829E-02   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            1.088477E-04   0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     FREQUENCY RESPONSE OF A 20X20 PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     441\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  8.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  9.000000E+00     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.000000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.100000E+01     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 20X20 PLATE                                \r\n DATE:  5/17/95\r\n END TIME: 16: 5: 7\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d09011a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D09011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   9,1                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                          \r\n                  3      TSTEP = 32                                                                      \r\n                  4      IC    = 32                                                                      \r\n                  5      DLOAD = 32                                                                      \r\n                  6      K2PP  = KCOMP                                                                   \r\n                  7      M2PP  = MCOMP                                                                   \r\n                  8      B2PP  = BCOMP                                                                   \r\n                  9        OUTPUT                                                                        \r\n                 10      SVELO = ALL                                                                     \r\n                 11      DISP(SORT2)=ALL                                                                 \r\n                 12      OLOAD(SORT2)=ALL                                                                \r\n                 13      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                            \r\n                 14      OUTPUT(XYOUT)                                                                   \r\n                 15      PLOTTER = NASTPLT                                                               \r\n                 16        CAMERA = 3                                                                    \r\n                 17      SKIP BETWEEN FRAMES = 1                                                         \r\n                 18        TCURVE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *          \r\n                 19        XTITLE =                   TIME (SECONDS)                                     \r\n                 20      $                                                                               \r\n                 21              YVALUE PRINT SKIP = 1                                                   \r\n                 22              XDIVISIONS = 25                                                         \r\n                 23              XVALUE PRINT SKIP = 1                                                   \r\n                 24      $ * * * * * * * * * * * * * * *  FULL FRAME PLOTS  * * * * * * * * * * *        \r\n                 25              YGRID LINES = YES                                                       \r\n                 26              XGRID LINES = YES                                                       \r\n                 27              YDIVISIONS = 22                                                         \r\n                 28      $                                                                               \r\n                 29           YTITLE = EPOINT 10         DISPLACEMENT *INCH*                             \r\n                 30      XYPLOT DISP / 10(T1)                                                            \r\n                 31      $                                                                               \r\n                 32              YDIVISIONS = 20                                                         \r\n                 33           YTITLE = EPOINT 11         DISPLACEMENT *INCH*                             \r\n                 34      XYPLOT DISP / 11(T1)                                                            \r\n                 35      $                                                                               \r\n                 36           YTITLE = EPOINT 12         DISPLACEMENT *INCH*                             \r\n                 37      XYPLOT DISP / 12(T1)                                                            \r\n                 38      $                                                                               \r\n                 39           YTITLE = EPOINT 13         DISPLACEMENT *INCH*                             \r\n                 40      XYPLOT DISP / 13(T1)                                                            \r\n                 41      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    36, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        DAREA   1       10              -1.5    11              -1.0                    \r\n                    2-        DAREA   1       12              -13.5   13              36.0                    \r\n                    3-        DELAY   1       10              1.0     11              1.0                     \r\n                    4-        DELAY   1       12              1.0     13              1.0                     \r\n                    5-        DMIG    BCOMP   0       1       1       2                                       \r\n                    6-        DMIG    BCOMP   11      0               10      0       -15.0           +BC1    \r\n                    7-        +BC1    11      0       30.0            12      0       -15.0                   \r\n                    8-        DMIG    BCOMP   12      0               11      0       -24.0           +BC2    \r\n                    9-        +BC2    12      0       48.0            13      0       -24.0                   \r\n                   10-        DMIG    BCOMP   13      0               12      0       -2.0            +BC3    \r\n                   11-        +BC3    13      0       4.0                                                     \r\n                   12-        DMIG    KCOMP   0       1       1       2                                       \r\n                   13-        DMIG    KCOMP   10      0               10      0       2000.           +KC1    \r\n                   14-        +KC1    11      0       -1000.                                                  \r\n                   15-        DMIG    KCOMP   12      0               11      0       -100.0          +KC2    \r\n                   16-        +KC2    12      0       200.0           13      0       -100.0                  \r\n                   17-        DMIG    KCOMP   13      0               12      0       -20.0           +KC3    \r\n                   18-        +KC3    13      0       40.0                                                    \r\n                   19-        DMIG    MCOMP   0       1       1       2                                       \r\n                   20-        DMIG    MCOMP   10      0               10      0       20.0            +MC1    \r\n                   21-        +MC1    11      0       -10.0                                                   \r\n                   22-        DMIG    MCOMP   11      0               10      0       -1.5            +MC2    \r\n                   23-        +MC2    11      0       3.0             12      0       -1.5                    \r\n                   24-        DMIG    MCOMP   12      0               11      0       -4.0            +MC4    \r\n                   25-        +MC4    12      0       8.0             13      0       -4.0                    \r\n                   26-        EPOINT  10      11      12      13                                              \r\n                   27-        TABLED1 1                                                               +T1     \r\n                   28-        +T1     -1.0    .0      .0      .0      .00     1.0     100.0   1.0     +T2     \r\n                   29-        +T2     ENDT                                                                    \r\n                   30-        TIC     32      10              .0      10.                                     \r\n                   31-        TIC     32      11              .0      .5                                      \r\n                   32-        TIC     32      12              .0      .0                                      \r\n                   33-        TIC     32      13              -10.0   .0                                      \r\n                   34-        TLOAD1  32      1       1               1                                       \r\n                   35-        TSTEP   32      200     .005    10                                      +S1     \r\n                   36-        +S1             100     .015    5                                               \r\n                              ENDDATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GMD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GMD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    0     CBAR =    0\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                           V E L O C I T Y   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      1.000000E+01                                                                                             \r\n   4.999999E-02     E      8.769266E+00                                                                                             \r\n   1.000000E-01     E      5.401150E+00                                                                                             \r\n   1.500000E-01     E      7.114526E-01                                                                                             \r\n   1.999999E-01     E     -4.152327E+00                                                                                             \r\n   2.499999E-01     E     -8.000093E+00                                                                                             \r\n   2.999999E-01     E     -9.890356E+00                                                                                             \r\n   3.499998E-01     E     -9.360596E+00                                                                                             \r\n   3.999998E-01     E     -6.540436E+00                                                                                             \r\n   4.499997E-01     E     -2.119929E+00                                                                                             \r\n   4.999997E-01     E      2.819293E+00                                                                                             \r\n   5.499997E-01     E      7.068676E+00                                                                                             \r\n   5.999996E-01     E      9.588459E+00                                                                                             \r\n   6.499996E-01     E      9.762089E+00                                                                                             \r\n   6.999995E-01     E      7.547080E+00                                                                                             \r\n   7.499995E-01     E      3.485413E+00                                                                                             \r\n   7.999994E-01     E     -1.429083E+00                                                                                             \r\n   8.499994E-01     E     -5.993903E+00                                                                                             \r\n   8.999993E-01     E     -9.092105E+00                                                                                             \r\n   9.499993E-01     E     -9.965603E+00                                                                                             \r\n   9.999992E-01     E     -8.484121E+00                                                                                             \r\n   1.014999E+00     E     -7.565701E+00                                                                                             \r\n   1.074999E+00     E     -2.545711E+00                                                                                             \r\n   1.149999E+00     E      4.729038E+00                                                                                             \r\n   1.224999E+00     E      9.479601E+00                                                                                             \r\n   1.299999E+00     E      9.170304E+00                                                                                             \r\n   1.374999E+00     E      3.966239E+00                                                                                             \r\n   1.449999E+00     E     -3.354858E+00                                                                                             \r\n   1.524999E+00     E     -8.885256E+00                                                                                             \r\n   1.599999E+00     E     -9.673034E+00                                                                                             \r\n   1.674999E+00     E     -5.297704E+00                                                                                             \r\n   1.749999E+00     E      1.905343E+00                                                                                             \r\n   1.824998E+00     E      8.091389E+00                                                                                             \r\n   1.899998E+00     E      9.958551E+00                                                                                             \r\n   1.974998E+00     E      6.510207E+00                                                                                             \r\n   2.049999E+00     E     -4.130439E-01                                                                                             \r\n   2.124999E+00     E     -7.115828E+00                                                                                             \r\n   2.200000E+00     E     -1.002045E+01                                                                                             \r\n   2.275000E+00     E     -7.576522E+00                                                                                             \r\n   2.350001E+00     E     -1.088531E+00                                                                                             \r\n   2.425001E+00     E      5.980478E+00                                                                                             \r\n   2.500002E+00     E      9.857328E+00                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                           V E L O C I T Y   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      5.000000E-01                                                                                             \r\n   4.999999E-02     E      3.112683E-01                                                                                             \r\n   1.000000E-01     E      1.887741E-01                                                                                             \r\n   1.500000E-01     E      1.144853E-01                                                                                             \r\n   1.999999E-01     E      6.943163E-02                                                                                             \r\n   2.499999E-01     E      4.210803E-02                                                                                             \r\n   2.999999E-01     E      2.553715E-02                                                                                             \r\n   3.499998E-01     E      1.548745E-02                                                                                             \r\n   3.999998E-01     E      9.392634E-03                                                                                             \r\n   4.499997E-01     E      5.696327E-03                                                                                             \r\n   4.999997E-01     E      3.454637E-03                                                                                             \r\n   5.499997E-01     E      2.095125E-03                                                                                             \r\n   5.999996E-01     E      1.270625E-03                                                                                             \r\n   6.499996E-01     E      7.705928E-04                                                                                             \r\n   6.999995E-01     E      4.673394E-04                                                                                             \r\n   7.499995E-01     E      2.834262E-04                                                                                             \r\n   7.999994E-01     E      1.718888E-04                                                                                             \r\n   8.499994E-01     E      1.042449E-04                                                                                             \r\n   8.999993E-01     E      6.322116E-05                                                                                             \r\n   9.499993E-01     E      3.834158E-05                                                                                             \r\n   9.999992E-01     E      2.349529E-03                                                                                             \r\n   1.014999E+00     E      8.998503E-03                                                                                             \r\n   1.074999E+00     E      4.863206E-02                                                                                             \r\n   1.149999E+00     E      7.576972E-02                                                                                             \r\n   1.224999E+00     E      8.857056E-02                                                                                             \r\n   1.299999E+00     E      9.460873E-02                                                                                             \r\n   1.374999E+00     E      9.745693E-02                                                                                             \r\n   1.449999E+00     E      9.880044E-02                                                                                             \r\n   1.524999E+00     E      9.943417E-02                                                                                             \r\n   1.599999E+00     E      9.973309E-02                                                                                             \r\n   1.674999E+00     E      9.987410E-02                                                                                             \r\n   1.749999E+00     E      9.994061E-02                                                                                             \r\n   1.824998E+00     E      9.997199E-02                                                                                             \r\n   1.899998E+00     E      9.998678E-02                                                                                             \r\n   1.974998E+00     E      9.999377E-02                                                                                             \r\n   2.049999E+00     E      9.999706E-02                                                                                             \r\n   2.124999E+00     E      9.999862E-02                                                                                             \r\n   2.200000E+00     E      9.999935E-02                                                                                             \r\n   2.275000E+00     E      9.999969E-02                                                                                             \r\n   2.350001E+00     E      9.999985E-02                                                                                             \r\n   2.425001E+00     E      9.999993E-02                                                                                             \r\n   2.500002E+00     E      9.999996E-02                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                           V E L O C I T Y   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E     -2.824090E-14                                                                                             \r\n   1.000000E-01     E      1.846157E-13                                                                                             \r\n   1.500000E-01     E      3.540349E-13                                                                                             \r\n   1.999999E-01     E     -3.459248E-14                                                                                             \r\n   2.499999E-01     E     -5.351599E-14                                                                                             \r\n   2.999999E-01     E     -1.424381E-13                                                                                             \r\n   3.499998E-01     E     -4.642623E-14                                                                                             \r\n   3.999998E-01     E     -6.567125E-14                                                                                             \r\n   4.499997E-01     E      4.065043E-14                                                                                             \r\n   4.999997E-01     E      7.945870E-14                                                                                             \r\n   5.499997E-01     E      4.015872E-14                                                                                             \r\n   5.999996E-01     E      1.285577E-13                                                                                             \r\n   6.499996E-01     E      2.880673E-14                                                                                             \r\n   6.999995E-01     E      9.794269E-14                                                                                             \r\n   7.499995E-01     E      2.944112E-13                                                                                             \r\n   7.999994E-01     E      1.211047E-13                                                                                             \r\n   8.499994E-01     E      1.863393E-13                                                                                             \r\n   8.999993E-01     E     -3.502401E-14                                                                                             \r\n   9.499993E-01     E     -8.198095E-14                                                                                             \r\n   9.999992E-01     E      2.388060E-03                                                                                             \r\n   1.014999E+00     E      9.334106E-03                                                                                             \r\n   1.074999E+00     E      5.393201E-02                                                                                             \r\n   1.149999E+00     E      8.759638E-02                                                                                             \r\n   1.224999E+00     E      9.927376E-02                                                                                             \r\n   1.299999E+00     E      9.561767E-02                                                                                             \r\n   1.374999E+00     E      8.258826E-02                                                                                             \r\n   1.449999E+00     E      6.503657E-02                                                                                             \r\n   1.524999E+00     E      4.656331E-02                                                                                             \r\n   1.599999E+00     E      2.956876E-02                                                                                             \r\n   1.674999E+00     E      1.541880E-02                                                                                             \r\n   1.749999E+00     E      4.666585E-03                                                                                             \r\n   1.824998E+00     E     -2.715090E-03                                                                                             \r\n   1.899998E+00     E     -7.120654E-03                                                                                             \r\n   1.974998E+00     E     -9.134681E-03                                                                                             \r\n   2.049999E+00     E     -9.397662E-03                                                                                             \r\n   2.124999E+00     E     -8.514103E-03                                                                                             \r\n   2.200000E+00     E     -6.997929E-03                                                                                             \r\n   2.275000E+00     E     -5.247781E-03                                                                                             \r\n   2.350001E+00     E     -3.544156E-03                                                                                             \r\n   2.425001E+00     E     -2.060800E-03                                                                                             \r\n   2.500002E+00     E     -8.839135E-04                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                           V E L O C I T Y   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      6.203616E+01                                                                                             \r\n   1.000000E-01     E      3.756202E+01                                                                                             \r\n   1.500000E-01     E      2.272955E+01                                                                                             \r\n   1.999999E-01     E      1.374248E+01                                                                                             \r\n   2.499999E-01     E      8.298950E+00                                                                                             \r\n   2.999999E-01     E      5.003276E+00                                                                                             \r\n   3.499998E-01     E      3.009255E+00                                                                                             \r\n   3.999998E-01     E      1.803873E+00                                                                                             \r\n   4.499997E-01     E      1.076142E+00                                                                                             \r\n   4.999997E-01     E      6.375653E-01                                                                                             \r\n   5.499997E-01     E      3.739158E-01                                                                                             \r\n   5.999996E-01     E      2.159887E-01                                                                                             \r\n   6.499996E-01     E      1.218726E-01                                                                                             \r\n   6.999995E-01     E      6.619807E-02                                                                                             \r\n   7.499995E-01     E      3.362007E-02                                                                                             \r\n   7.999994E-01     E      1.486620E-02                                                                                             \r\n   8.499994E-01     E      4.341558E-03                                                                                             \r\n   8.999993E-01     E     -1.323032E-03                                                                                             \r\n   9.499993E-01     E     -4.150650E-03                                                                                             \r\n   9.999992E-01     E      5.014814E+00                                                                                             \r\n   1.014999E+00     E      5.747711E+00                                                                                             \r\n   1.074999E+00     E      5.208082E+00                                                                                             \r\n   1.149999E+00     E      2.329447E+00                                                                                             \r\n   1.224999E+00     E      1.193548E+00                                                                                             \r\n   1.299999E+00     E      4.872352E-01                                                                                             \r\n   1.374999E+00     E      2.878540E-01                                                                                             \r\n   1.449999E+00     E      9.016828E-02                                                                                             \r\n   1.524999E+00     E      7.782674E-02                                                                                             \r\n   1.599999E+00     E      9.139004E-03                                                                                             \r\n   1.674999E+00     E      2.572602E-02                                                                                             \r\n   1.749999E+00     E     -4.556411E-03                                                                                             \r\n   1.824998E+00     E      1.083286E-02                                                                                             \r\n   1.899998E+00     E     -5.000210E-03                                                                                             \r\n   1.974998E+00     E      5.508720E-03                                                                                             \r\n   2.049999E+00     E     -3.526489E-03                                                                                             \r\n   2.124999E+00     E      3.103670E-03                                                                                             \r\n   2.200000E+00     E     -2.246930E-03                                                                                             \r\n   2.275000E+00     E      1.828576E-03                                                                                             \r\n   2.350001E+00     E     -1.385867E-03                                                                                             \r\n   2.425001E+00     E      1.096407E-03                                                                                             \r\n   2.500002E+00     E     -8.451193E-04                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK BGPDP    MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                                     L O A D   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      0.0                                                                                                      \r\n   1.000000E-01     E      0.0                                                                                                      \r\n   1.500000E-01     E      0.0                                                                                                      \r\n   1.999999E-01     E      0.0                                                                                                      \r\n   2.499999E-01     E      0.0                                                                                                      \r\n   2.999999E-01     E      0.0                                                                                                      \r\n   3.499998E-01     E      0.0                                                                                                      \r\n   3.999998E-01     E      0.0                                                                                                      \r\n   4.499997E-01     E      0.0                                                                                                      \r\n   4.999997E-01     E      0.0                                                                                                      \r\n   5.499997E-01     E      0.0                                                                                                      \r\n   5.999996E-01     E      0.0                                                                                                      \r\n   6.499996E-01     E      0.0                                                                                                      \r\n   6.999995E-01     E      0.0                                                                                                      \r\n   7.499995E-01     E      0.0                                                                                                      \r\n   7.999994E-01     E      0.0                                                                                                      \r\n   8.499994E-01     E      0.0                                                                                                      \r\n   8.999993E-01     E      0.0                                                                                                      \r\n   9.499993E-01     E      0.0                                                                                                      \r\n   9.999992E-01     E      0.0                                                                                                      \r\n   1.014999E+00     E     -1.500000E+00                                                                                             \r\n   1.074999E+00     E     -1.500000E+00                                                                                             \r\n   1.149999E+00     E     -1.500000E+00                                                                                             \r\n   1.224999E+00     E     -1.500000E+00                                                                                             \r\n   1.299999E+00     E     -1.500000E+00                                                                                             \r\n   1.374999E+00     E     -1.500000E+00                                                                                             \r\n   1.449999E+00     E     -1.500000E+00                                                                                             \r\n   1.524999E+00     E     -1.500000E+00                                                                                             \r\n   1.599999E+00     E     -1.500000E+00                                                                                             \r\n   1.674999E+00     E     -1.500000E+00                                                                                             \r\n   1.749999E+00     E     -1.500000E+00                                                                                             \r\n   1.824998E+00     E     -1.500000E+00                                                                                             \r\n   1.899998E+00     E     -1.500000E+00                                                                                             \r\n   1.974998E+00     E     -1.500000E+00                                                                                             \r\n   2.049999E+00     E     -1.500000E+00                                                                                             \r\n   2.124999E+00     E     -1.500000E+00                                                                                             \r\n   2.200000E+00     E     -1.500000E+00                                                                                             \r\n   2.275000E+00     E     -1.500000E+00                                                                                             \r\n   2.350001E+00     E     -1.500000E+00                                                                                             \r\n   2.425001E+00     E     -1.500000E+00                                                                                             \r\n   2.500002E+00     E     -1.500000E+00                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                                     L O A D   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      0.0                                                                                                      \r\n   1.000000E-01     E      0.0                                                                                                      \r\n   1.500000E-01     E      0.0                                                                                                      \r\n   1.999999E-01     E      0.0                                                                                                      \r\n   2.499999E-01     E      0.0                                                                                                      \r\n   2.999999E-01     E      0.0                                                                                                      \r\n   3.499998E-01     E      0.0                                                                                                      \r\n   3.999998E-01     E      0.0                                                                                                      \r\n   4.499997E-01     E      0.0                                                                                                      \r\n   4.999997E-01     E      0.0                                                                                                      \r\n   5.499997E-01     E      0.0                                                                                                      \r\n   5.999996E-01     E      0.0                                                                                                      \r\n   6.499996E-01     E      0.0                                                                                                      \r\n   6.999995E-01     E      0.0                                                                                                      \r\n   7.499995E-01     E      0.0                                                                                                      \r\n   7.999994E-01     E      0.0                                                                                                      \r\n   8.499994E-01     E      0.0                                                                                                      \r\n   8.999993E-01     E      0.0                                                                                                      \r\n   9.499993E-01     E      0.0                                                                                                      \r\n   9.999992E-01     E      0.0                                                                                                      \r\n   1.014999E+00     E     -1.000000E+00                                                                                             \r\n   1.074999E+00     E     -1.000000E+00                                                                                             \r\n   1.149999E+00     E     -1.000000E+00                                                                                             \r\n   1.224999E+00     E     -1.000000E+00                                                                                             \r\n   1.299999E+00     E     -1.000000E+00                                                                                             \r\n   1.374999E+00     E     -1.000000E+00                                                                                             \r\n   1.449999E+00     E     -1.000000E+00                                                                                             \r\n   1.524999E+00     E     -1.000000E+00                                                                                             \r\n   1.599999E+00     E     -1.000000E+00                                                                                             \r\n   1.674999E+00     E     -1.000000E+00                                                                                             \r\n   1.749999E+00     E     -1.000000E+00                                                                                             \r\n   1.824998E+00     E     -1.000000E+00                                                                                             \r\n   1.899998E+00     E     -1.000000E+00                                                                                             \r\n   1.974998E+00     E     -1.000000E+00                                                                                             \r\n   2.049999E+00     E     -1.000000E+00                                                                                             \r\n   2.124999E+00     E     -1.000000E+00                                                                                             \r\n   2.200000E+00     E     -1.000000E+00                                                                                             \r\n   2.275000E+00     E     -1.000000E+00                                                                                             \r\n   2.350001E+00     E     -1.000000E+00                                                                                             \r\n   2.425001E+00     E     -1.000000E+00                                                                                             \r\n   2.500002E+00     E     -1.000000E+00                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                                     L O A D   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      0.0                                                                                                      \r\n   1.000000E-01     E      0.0                                                                                                      \r\n   1.500000E-01     E      0.0                                                                                                      \r\n   1.999999E-01     E      0.0                                                                                                      \r\n   2.499999E-01     E      0.0                                                                                                      \r\n   2.999999E-01     E      0.0                                                                                                      \r\n   3.499998E-01     E      0.0                                                                                                      \r\n   3.999998E-01     E      0.0                                                                                                      \r\n   4.499997E-01     E      0.0                                                                                                      \r\n   4.999997E-01     E      0.0                                                                                                      \r\n   5.499997E-01     E      0.0                                                                                                      \r\n   5.999996E-01     E      0.0                                                                                                      \r\n   6.499996E-01     E      0.0                                                                                                      \r\n   6.999995E-01     E      0.0                                                                                                      \r\n   7.499995E-01     E      0.0                                                                                                      \r\n   7.999994E-01     E      0.0                                                                                                      \r\n   8.499994E-01     E      0.0                                                                                                      \r\n   8.999993E-01     E      0.0                                                                                                      \r\n   9.499993E-01     E      0.0                                                                                                      \r\n   9.999992E-01     E      0.0                                                                                                      \r\n   1.014999E+00     E     -1.350000E+01                                                                                             \r\n   1.074999E+00     E     -1.350000E+01                                                                                             \r\n   1.149999E+00     E     -1.350000E+01                                                                                             \r\n   1.224999E+00     E     -1.350000E+01                                                                                             \r\n   1.299999E+00     E     -1.350000E+01                                                                                             \r\n   1.374999E+00     E     -1.350000E+01                                                                                             \r\n   1.449999E+00     E     -1.350000E+01                                                                                             \r\n   1.524999E+00     E     -1.350000E+01                                                                                             \r\n   1.599999E+00     E     -1.350000E+01                                                                                             \r\n   1.674999E+00     E     -1.350000E+01                                                                                             \r\n   1.749999E+00     E     -1.350000E+01                                                                                             \r\n   1.824998E+00     E     -1.350000E+01                                                                                             \r\n   1.899998E+00     E     -1.350000E+01                                                                                             \r\n   1.974998E+00     E     -1.350000E+01                                                                                             \r\n   2.049999E+00     E     -1.350000E+01                                                                                             \r\n   2.124999E+00     E     -1.350000E+01                                                                                             \r\n   2.200000E+00     E     -1.350000E+01                                                                                             \r\n   2.275000E+00     E     -1.350000E+01                                                                                             \r\n   2.350001E+00     E     -1.350000E+01                                                                                             \r\n   2.425001E+00     E     -1.350000E+01                                                                                             \r\n   2.500002E+00     E     -1.350000E+01                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                                     L O A D   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      0.0                                                                                                      \r\n   1.000000E-01     E      0.0                                                                                                      \r\n   1.500000E-01     E      0.0                                                                                                      \r\n   1.999999E-01     E      0.0                                                                                                      \r\n   2.499999E-01     E      0.0                                                                                                      \r\n   2.999999E-01     E      0.0                                                                                                      \r\n   3.499998E-01     E      0.0                                                                                                      \r\n   3.999998E-01     E      0.0                                                                                                      \r\n   4.499997E-01     E      0.0                                                                                                      \r\n   4.999997E-01     E      0.0                                                                                                      \r\n   5.499997E-01     E      0.0                                                                                                      \r\n   5.999996E-01     E      0.0                                                                                                      \r\n   6.499996E-01     E      0.0                                                                                                      \r\n   6.999995E-01     E      0.0                                                                                                      \r\n   7.499995E-01     E      0.0                                                                                                      \r\n   7.999994E-01     E      0.0                                                                                                      \r\n   8.499994E-01     E      0.0                                                                                                      \r\n   8.999993E-01     E      0.0                                                                                                      \r\n   9.499993E-01     E      0.0                                                                                                      \r\n   9.999992E-01     E      0.0                                                                                                      \r\n   1.014999E+00     E      3.600000E+01                                                                                             \r\n   1.074999E+00     E      3.600000E+01                                                                                             \r\n   1.149999E+00     E      3.600000E+01                                                                                             \r\n   1.224999E+00     E      3.600000E+01                                                                                             \r\n   1.299999E+00     E      3.600000E+01                                                                                             \r\n   1.374999E+00     E      3.600000E+01                                                                                             \r\n   1.449999E+00     E      3.600000E+01                                                                                             \r\n   1.524999E+00     E      3.600000E+01                                                                                             \r\n   1.599999E+00     E      3.600000E+01                                                                                             \r\n   1.674999E+00     E      3.600000E+01                                                                                             \r\n   1.749999E+00     E      3.600000E+01                                                                                             \r\n   1.824998E+00     E      3.600000E+01                                                                                             \r\n   1.899998E+00     E      3.600000E+01                                                                                             \r\n   1.974998E+00     E      3.600000E+01                                                                                             \r\n   2.049999E+00     E      3.600000E+01                                                                                             \r\n   2.124999E+00     E      3.600000E+01                                                                                             \r\n   2.200000E+00     E      3.600000E+01                                                                                             \r\n   2.275000E+00     E      3.600000E+01                                                                                             \r\n   2.350001E+00     E      3.600000E+01                                                                                             \r\n   2.425001E+00     E      3.600000E+01                                                                                             \r\n   2.500002E+00     E      3.600000E+01                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      4.792385E-01                                                                                             \r\n   1.000000E-01     E      8.412145E-01                                                                                             \r\n   1.500000E-01     E      9.973578E-01                                                                                             \r\n   1.999999E-01     E      9.094625E-01                                                                                             \r\n   2.499999E-01     E      5.990351E-01                                                                                             \r\n   2.999999E-01     E      1.420328E-01                                                                                             \r\n   3.499998E-01     E     -3.497228E-01                                                                                             \r\n   3.999998E-01     E     -7.559065E-01                                                                                             \r\n   4.499997E-01     E     -9.771311E-01                                                                                             \r\n   4.999997E-01     E     -9.592662E-01                                                                                             \r\n   5.499997E-01     E     -7.066831E-01                                                                                             \r\n   5.999996E-01     E     -2.811852E-01                                                                                             \r\n   6.499996E-01     E      2.131146E-01                                                                                             \r\n   6.999995E-01     E      6.552684E-01                                                                                             \r\n   7.499995E-01     E      9.370877E-01                                                                                             \r\n   7.999994E-01     E      9.896156E-01                                                                                             \r\n   8.499994E-01     E      7.999993E-01                                                                                             \r\n   8.999993E-01     E      4.146350E-01                                                                                             \r\n   9.499993E-01     E     -7.218431E-02                                                                                             \r\n   9.999992E-01     E     -5.413412E-01                                                                                             \r\n   1.014999E+00     E     -6.622213E-01                                                                                             \r\n   1.074999E+00     E     -9.761183E-01                                                                                             \r\n   1.149999E+00     E     -8.898796E-01                                                                                             \r\n   1.224999E+00     E     -3.286562E-01                                                                                             \r\n   1.299999E+00     E      4.079918E-01                                                                                             \r\n   1.374999E+00     E      9.268689E-01                                                                                             \r\n   1.449999E+00     E      9.510177E-01                                                                                             \r\n   1.524999E+00     E      4.675485E-01                                                                                             \r\n   1.599999E+00     E     -2.654808E-01                                                                                             \r\n   1.674999E+00     E     -8.568062E-01                                                                                             \r\n   1.749999E+00     E     -9.908002E-01                                                                                             \r\n   1.824998E+00     E     -5.959418E-01                                                                                             \r\n   1.899998E+00     E      1.170083E-01                                                                                             \r\n   1.974998E+00     E      7.675037E-01                                                                                             \r\n   2.049999E+00     E      1.008334E+00                                                                                             \r\n   2.124999E+00     E      7.109531E-01                                                                                             \r\n   2.200000E+00     E      3.409162E-02                                                                                             \r\n   2.275000E+00     E     -6.609666E-01                                                                                             \r\n   2.350001E+00     E     -1.003225E+00                                                                                             \r\n   2.425001E+00     E     -8.099996E-01                                                                                             \r\n   2.500002E+00     E     -1.844260E-01                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E      2.014262E-02                                                                                             \r\n   1.000000E-01     E      3.238439E-02                                                                                             \r\n   1.500000E-01     E      3.980862E-02                                                                                             \r\n   1.999999E-01     E      4.431118E-02                                                                                             \r\n   2.499999E-01     E      4.704183E-02                                                                                             \r\n   2.999999E-01     E      4.869788E-02                                                                                             \r\n   3.499998E-01     E      4.970222E-02                                                                                             \r\n   3.999998E-01     E      5.031132E-02                                                                                             \r\n   4.499997E-01     E      5.068072E-02                                                                                             \r\n   4.999997E-01     E      5.090475E-02                                                                                             \r\n   5.499997E-01     E      5.104062E-02                                                                                             \r\n   5.999996E-01     E      5.112302E-02                                                                                             \r\n   6.499996E-01     E      5.117299E-02                                                                                             \r\n   6.999995E-01     E      5.120330E-02                                                                                             \r\n   7.499995E-01     E      5.122167E-02                                                                                             \r\n   7.999994E-01     E      5.123282E-02                                                                                             \r\n   8.499994E-01     E      5.123958E-02                                                                                             \r\n   8.999993E-01     E      5.124368E-02                                                                                             \r\n   9.499993E-01     E      5.124617E-02                                                                                             \r\n   9.999992E-01     E      5.124767E-02                                                                                             \r\n   1.014999E+00     E      5.131778E-02                                                                                             \r\n   1.074999E+00     E      5.310797E-02                                                                                             \r\n   1.149999E+00     E      5.790946E-02                                                                                             \r\n   1.224999E+00     E      6.413658E-02                                                                                             \r\n   1.299999E+00     E      7.103616E-02                                                                                             \r\n   1.374999E+00     E      7.825294E-02                                                                                             \r\n   1.449999E+00     E      8.561935E-02                                                                                             \r\n   1.524999E+00     E      9.305633E-02                                                                                             \r\n   1.599999E+00     E      1.005266E-01                                                                                             \r\n   1.674999E+00     E      1.080126E-01                                                                                             \r\n   1.749999E+00     E      1.155060E-01                                                                                             \r\n   1.824998E+00     E      1.230028E-01                                                                                             \r\n   1.899998E+00     E      1.305014E-01                                                                                             \r\n   1.974998E+00     E      1.380007E-01                                                                                             \r\n   2.049999E+00     E      1.455004E-01                                                                                             \r\n   2.124999E+00     E      1.530002E-01                                                                                             \r\n   2.200000E+00     E      1.605001E-01                                                                                             \r\n   2.275000E+00     E      1.680001E-01                                                                                             \r\n   2.350001E+00     E      1.755001E-01                                                                                             \r\n   2.425001E+00     E      1.830001E-01                                                                                             \r\n   2.500002E+00     E      1.905001E-01                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E      0.0                                                                                                      \r\n   4.999999E-02     E     -1.184228E-15                                                                                             \r\n   1.000000E-01     E      3.882862E-15                                                                                             \r\n   1.500000E-01     E      2.010485E-14                                                                                             \r\n   1.999999E-01     E      3.239200E-14                                                                                             \r\n   2.499999E-01     E      2.860100E-14                                                                                             \r\n   2.999999E-01     E      2.436178E-14                                                                                             \r\n   3.499998E-01     E      1.853145E-14                                                                                             \r\n   3.999998E-01     E      1.671899E-14                                                                                             \r\n   4.499997E-01     E      1.549336E-14                                                                                             \r\n   4.999997E-01     E      2.181434E-14                                                                                             \r\n   5.499997E-01     E      2.453583E-14                                                                                             \r\n   5.999996E-01     E      2.739759E-14                                                                                             \r\n   6.499996E-01     E      3.217911E-14                                                                                             \r\n   6.999995E-01     E      3.372266E-14                                                                                             \r\n   7.499995E-01     E      4.338184E-14                                                                                             \r\n   7.999994E-01     E      5.353078E-14                                                                                             \r\n   8.499994E-01     E      6.948427E-14                                                                                             \r\n   8.999993E-01     E      6.936534E-14                                                                                             \r\n   9.499993E-01     E      6.727865E-14                                                                                             \r\n   9.999992E-01     E      6.517399E-14                                                                                             \r\n   1.014999E+00     E      7.164179E-05                                                                                             \r\n   1.074999E+00     E      2.002976E-03                                                                                             \r\n   1.149999E+00     E      7.481610E-03                                                                                             \r\n   1.224999E+00     E      1.461472E-02                                                                                             \r\n   1.299999E+00     E      2.200534E-02                                                                                             \r\n   1.374999E+00     E      2.873345E-02                                                                                             \r\n   1.449999E+00     E      3.428620E-02                                                                                             \r\n   1.524999E+00     E      3.846793E-02                                                                                             \r\n   1.599999E+00     E      4.130714E-02                                                                                             \r\n   1.674999E+00     E      4.297225E-02                                                                                             \r\n   1.749999E+00     E      4.370203E-02                                                                                             \r\n   1.824998E+00     E      4.375346E-02                                                                                             \r\n   1.899998E+00     E      4.336637E-02                                                                                             \r\n   1.974998E+00     E      4.274281E-02                                                                                             \r\n   2.049999E+00     E      4.203815E-02                                                                                             \r\n   2.124999E+00     E      4.136059E-02                                                                                             \r\n   2.200000E+00     E      4.077611E-02                                                                                             \r\n   2.275000E+00     E      4.031641E-02                                                                                             \r\n   2.350001E+00     E      3.998773E-02                                                                                             \r\n   2.425001E+00     E      3.977942E-02                                                                                             \r\n   2.500002E+00     E      3.967119E-02                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      13\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              E     -1.000000E+01                                                                                             \r\n   4.999999E-02     E     -6.293332E+00                                                                                             \r\n   1.000000E-01     E     -3.833388E+00                                                                                             \r\n   1.500000E-01     E     -2.339044E+00                                                                                             \r\n   1.999999E-01     E     -1.430647E+00                                                                                             \r\n   2.499999E-01     E     -8.779122E-01                                                                                             \r\n   2.999999E-01     E     -5.411401E-01                                                                                             \r\n   3.499998E-01     E     -3.355734E-01                                                                                             \r\n   3.999998E-01     E     -2.097769E-01                                                                                             \r\n   4.499997E-01     E     -1.325286E-01                                                                                             \r\n   4.999997E-01     E     -8.486808E-02                                                                                             \r\n   5.499997E-01     E     -5.527525E-02                                                                                             \r\n   5.999996E-01     E     -3.674486E-02                                                                                             \r\n   6.499996E-01     E     -2.501265E-02                                                                                             \r\n   6.999995E-01     E     -1.747893E-02                                                                                             \r\n   7.499995E-01     E     -1.255557E-02                                                                                             \r\n   7.999994E-01     E     -9.269634E-03                                                                                             \r\n   8.499994E-01     E     -7.022767E-03                                                                                             \r\n   8.999993E-01     E     -5.445038E-03                                                                                             \r\n   9.499993E-01     E     -4.306122E-03                                                                                             \r\n   9.999992E-01     E     -3.461279E-03                                                                                             \r\n   1.014999E+00     E      1.101781E-01                                                                                             \r\n   1.074999E+00     E      5.225659E-01                                                                                             \r\n   1.149999E+00     E      7.380897E-01                                                                                             \r\n   1.224999E+00     E      9.054512E-01                                                                                             \r\n   1.299999E+00     E      9.330319E-01                                                                                             \r\n   1.374999E+00     E      9.859173E-01                                                                                             \r\n   1.449999E+00     E      9.797748E-01                                                                                             \r\n   1.524999E+00     E      1.001053E+00                                                                                             \r\n   1.599999E+00     E      9.922608E-01                                                                                             \r\n   1.674999E+00     E      1.002765E+00                                                                                             \r\n   1.749999E+00     E      9.963126E-01                                                                                             \r\n   1.824998E+00     E      1.002147E+00                                                                                             \r\n   1.899998E+00     E      9.979881E-01                                                                                             \r\n   1.974998E+00     E      1.001406E+00                                                                                             \r\n   2.049999E+00     E      9.988303E-01                                                                                             \r\n   2.124999E+00     E      1.000875E+00                                                                                             \r\n   2.200000E+00     E      9.993022E-01                                                                                             \r\n   2.275000E+00     E      1.000535E+00                                                                                             \r\n   2.350001E+00     E      9.995797E-01                                                                                             \r\n   2.425001E+00     E      1.000325E+00                                                                                             \r\n   2.500002E+00     E      9.997458E-01                                                                                             \r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       10( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    1\r\n\r\n\r\n     CURVE  TITLE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *                                                    \r\n      X-AXIS TITLE =                   TIME (SECONDS)                                                                               \r\n      Y-AXIS TITLE = EPOINT 10         DISPLACEMENT *INCH*                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.003225E+00 AT X =   2.350001E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.008334E+00 AT X =   2.049999E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.003225E+00 AT X =   2.350001E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.008334E+00 AT X =   2.049999E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       11( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    2\r\n\r\n\r\n     CURVE  TITLE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *                                                    \r\n      X-AXIS TITLE =                   TIME (SECONDS)                                                                               \r\n      Y-AXIS TITLE = EPOINT 11         DISPLACEMENT *INCH*                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.905001E-01 AT X =   2.500002E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.905001E-01 AT X =   2.500002E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       12( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    3\r\n\r\n\r\n     CURVE  TITLE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *                                                    \r\n      X-AXIS TITLE =                   TIME (SECONDS)                                                                               \r\n      Y-AXIS TITLE = EPOINT 12         DISPLACEMENT *INCH*                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.184228E-15 AT X =   4.999999E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.375346E-02 AT X =   1.824998E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.184228E-15 AT X =   4.999999E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.375346E-02 AT X =   1.824998E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       13( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    4\r\n\r\n\r\n     CURVE  TITLE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *                                                    \r\n      X-AXIS TITLE =                   TIME (SECONDS)                                                                               \r\n      Y-AXIS TITLE = EPOINT 13         DISPLACEMENT *INCH*                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.000000E+01 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.002765E+00 AT X =   1.674999E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.500002E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.000000E+01 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.002765E+00 AT X =   1.674999E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                        \r\n DATE:  5/17/95\r\n END TIME: 16: 5:39\r\n TOTAL WALL CLOCK TIME      1 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d09021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D09021A,NASTRAN                                                           \r\n     TIME  26                                                                        \r\n     APP   DISP                                                                      \r\n     SOL   9,1                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRANSIENT ANALYSIS OF A 1000 CELL STRING                             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                          \r\n                  3         LABEL = TRAVELING WAVE PROBLEM                                               \r\n                  4         TSTEP = 9                                                                    \r\n                  5            IC = 9                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500          \r\n                  8         DISPLACEMENT = 1                                                             \r\n                  9         VELOCITY = 1                                                                 \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =  1022, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CELAS3  1       101     0       2       2       101     2       3               \r\n                    2-        CELAS3  3       101     3       4       4       101     4       5               \r\n                    3-        CELAS3  5       101     5       6       6       101     6       7               \r\n                    4-        CELAS3  7       101     7       8       8       101     8       9               \r\n                    5-        CELAS3  9       101     9       10      10      101     10      11              \r\n                    6-        CELAS3  11      101     11      12      12      101     12      13              \r\n                    7-        CELAS3  13      101     13      14      14      101     14      15              \r\n                    8-        CELAS3  15      101     15      16      16      101     16      17              \r\n                    9-        CELAS3  17      101     17      18      18      101     18      19              \r\n                   10-        CELAS3  19      101     19      20      20      101     20      21              \r\n                   11-        CELAS3  21      101     21      22      22      101     22      23              \r\n                   12-        CELAS3  23      101     23      24      24      101     24      25              \r\n                   13-        CELAS3  25      101     25      26      26      101     26      27              \r\n                   14-        CELAS3  27      101     27      28      28      101     28      29              \r\n                   15-        CELAS3  29      101     29      30      30      101     30      31              \r\n                   16-        CELAS3  31      101     31      32      32      101     32      33              \r\n                   17-        CELAS3  33      101     33      34      34      101     34      35              \r\n                   18-        CELAS3  35      101     35      36      36      101     36      37              \r\n                   19-        CELAS3  37      101     37      38      38      101     38      39              \r\n                   20-        CELAS3  39      101     39      40      40      101     40      41              \r\n                   21-        CELAS3  41      101     41      42      42      101     42      43              \r\n                   22-        CELAS3  43      101     43      44      44      101     44      45              \r\n                   23-        CELAS3  45      101     45      46      46      101     46      47              \r\n                   24-        CELAS3  47      101     47      48      48      101     48      49              \r\n                   25-        CELAS3  49      101     49      50      50      101     50      51              \r\n                   26-        CELAS3  51      101     51      52      52      101     52      53              \r\n                   27-        CELAS3  53      101     53      54      54      101     54      55              \r\n                   28-        CELAS3  55      101     55      56      56      101     56      57              \r\n                   29-        CELAS3  57      101     57      58      58      101     58      59              \r\n                   30-        CELAS3  59      101     59      60      60      101     60      61              \r\n                   31-        CELAS3  61      101     61      62      62      101     62      63              \r\n                   32-        CELAS3  63      101     63      64      64      101     64      65              \r\n                   33-        CELAS3  65      101     65      66      66      101     66      67              \r\n                   34-        CELAS3  67      101     67      68      68      101     68      69              \r\n                   35-        CELAS3  69      101     69      70      70      101     70      71              \r\n                   36-        CELAS3  71      101     71      72      72      101     72      73              \r\n                   37-        CELAS3  73      101     73      74      74      101     74      75              \r\n                   38-        CELAS3  75      101     75      76      76      101     76      77              \r\n                   39-        CELAS3  77      101     77      78      78      101     78      79              \r\n                   40-        CELAS3  79      101     79      80      80      101     80      81              \r\n                   41-        CELAS3  81      101     81      82      82      101     82      83              \r\n                   42-        CELAS3  83      101     83      84      84      101     84      85              \r\n                   43-        CELAS3  85      101     85      86      86      101     86      87              \r\n                   44-        CELAS3  87      101     87      88      88      101     88      89              \r\n                   45-        CELAS3  89      101     89      90      90      101     90      91              \r\n                   46-        CELAS3  91      101     91      92      92      101     92      93              \r\n                   47-        CELAS3  93      101     93      94      94      101     94      95              \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CELAS3  95      101     95      96      96      101     96      97              \r\n                   49-        CELAS3  97      101     97      98      98      101     98      99              \r\n                   50-        CELAS3  99      101     99      100     100     101     100     101             \r\n                   51-        CELAS3  101     101     101     102     102     101     102     103             \r\n                   52-        CELAS3  103     101     103     104     104     101     104     105             \r\n                   53-        CELAS3  105     101     105     106     106     101     106     107             \r\n                   54-        CELAS3  107     101     107     108     108     101     108     109             \r\n                   55-        CELAS3  109     101     109     110     110     101     110     111             \r\n                   56-        CELAS3  111     101     111     112     112     101     112     113             \r\n                   57-        CELAS3  113     101     113     114     114     101     114     115             \r\n                   58-        CELAS3  115     101     115     116     116     101     116     117             \r\n                   59-        CELAS3  117     101     117     118     118     101     118     119             \r\n                   60-        CELAS3  119     101     119     120     120     101     120     121             \r\n                   61-        CELAS3  121     101     121     122     122     101     122     123             \r\n                   62-        CELAS3  123     101     123     124     124     101     124     125             \r\n                   63-        CELAS3  125     101     125     126     126     101     126     127             \r\n                   64-        CELAS3  127     101     127     128     128     101     128     129             \r\n                   65-        CELAS3  129     101     129     130     130     101     130     131             \r\n                   66-        CELAS3  131     101     131     132     132     101     132     133             \r\n                   67-        CELAS3  133     101     133     134     134     101     134     135             \r\n                   68-        CELAS3  135     101     135     136     136     101     136     137             \r\n                   69-        CELAS3  137     101     137     138     138     101     138     139             \r\n                   70-        CELAS3  139     101     139     140     140     101     140     141             \r\n                   71-        CELAS3  141     101     141     142     142     101     142     143             \r\n                   72-        CELAS3  143     101     143     144     144     101     144     145             \r\n                   73-        CELAS3  145     101     145     146     146     101     146     147             \r\n                   74-        CELAS3  147     101     147     148     148     101     148     149             \r\n                   75-        CELAS3  149     101     149     150     150     101     150     151             \r\n                   76-        CELAS3  151     101     151     152     152     101     152     153             \r\n                   77-        CELAS3  153     101     153     154     154     101     154     155             \r\n                   78-        CELAS3  155     101     155     156     156     101     156     157             \r\n                   79-        CELAS3  157     101     157     158     158     101     158     159             \r\n                   80-        CELAS3  159     101     159     160     160     101     160     161             \r\n                   81-        CELAS3  161     101     161     162     162     101     162     163             \r\n                   82-        CELAS3  163     101     163     164     164     101     164     165             \r\n                   83-        CELAS3  165     101     165     166     166     101     166     167             \r\n                   84-        CELAS3  167     101     167     168     168     101     168     169             \r\n                   85-        CELAS3  169     101     169     170     170     101     170     171             \r\n                   86-        CELAS3  171     101     171     172     172     101     172     173             \r\n                   87-        CELAS3  173     101     173     174     174     101     174     175             \r\n                   88-        CELAS3  175     101     175     176     176     101     176     177             \r\n                   89-        CELAS3  177     101     177     178     178     101     178     179             \r\n                   90-        CELAS3  179     101     179     180     180     101     180     181             \r\n                   91-        CELAS3  181     101     181     182     182     101     182     183             \r\n                   92-        CELAS3  183     101     183     184     184     101     184     185             \r\n                   93-        CELAS3  185     101     185     186     186     101     186     187             \r\n                   94-        CELAS3  187     101     187     188     188     101     188     189             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CELAS3  189     101     189     190     190     101     190     191             \r\n                   96-        CELAS3  191     101     191     192     192     101     192     193             \r\n                   97-        CELAS3  193     101     193     194     194     101     194     195             \r\n                   98-        CELAS3  195     101     195     196     196     101     196     197             \r\n                   99-        CELAS3  197     101     197     198     198     101     198     199             \r\n                  100-        CELAS3  199     101     199     200     200     101     200     201             \r\n                  101-        CELAS3  201     101     201     202     202     101     202     203             \r\n                  102-        CELAS3  203     101     203     204     204     101     204     205             \r\n                  103-        CELAS3  205     101     205     206     206     101     206     207             \r\n                  104-        CELAS3  207     101     207     208     208     101     208     209             \r\n                  105-        CELAS3  209     101     209     210     210     101     210     211             \r\n                  106-        CELAS3  211     101     211     212     212     101     212     213             \r\n                  107-        CELAS3  213     101     213     214     214     101     214     215             \r\n                  108-        CELAS3  215     101     215     216     216     101     216     217             \r\n                  109-        CELAS3  217     101     217     218     218     101     218     219             \r\n                  110-        CELAS3  219     101     219     220     220     101     220     221             \r\n                  111-        CELAS3  221     101     221     222     222     101     222     223             \r\n                  112-        CELAS3  223     101     223     224     224     101     224     225             \r\n                  113-        CELAS3  225     101     225     226     226     101     226     227             \r\n                  114-        CELAS3  227     101     227     228     228     101     228     229             \r\n                  115-        CELAS3  229     101     229     230     230     101     230     231             \r\n                  116-        CELAS3  231     101     231     232     232     101     232     233             \r\n                  117-        CELAS3  233     101     233     234     234     101     234     235             \r\n                  118-        CELAS3  235     101     235     236     236     101     236     237             \r\n                  119-        CELAS3  237     101     237     238     238     101     238     239             \r\n                  120-        CELAS3  239     101     239     240     240     101     240     241             \r\n                  121-        CELAS3  241     101     241     242     242     101     242     243             \r\n                  122-        CELAS3  243     101     243     244     244     101     244     245             \r\n                  123-        CELAS3  245     101     245     246     246     101     246     247             \r\n                  124-        CELAS3  247     101     247     248     248     101     248     249             \r\n                  125-        CELAS3  249     101     249     250     250     101     250     251             \r\n                  126-        CELAS3  251     101     251     252     252     101     252     253             \r\n                  127-        CELAS3  253     101     253     254     254     101     254     255             \r\n                  128-        CELAS3  255     101     255     256     256     101     256     257             \r\n                  129-        CELAS3  257     101     257     258     258     101     258     259             \r\n                  130-        CELAS3  259     101     259     260     260     101     260     261             \r\n                  131-        CELAS3  261     101     261     262     262     101     262     263             \r\n                  132-        CELAS3  263     101     263     264     264     101     264     265             \r\n                  133-        CELAS3  265     101     265     266     266     101     266     267             \r\n                  134-        CELAS3  267     101     267     268     268     101     268     269             \r\n                  135-        CELAS3  269     101     269     270     270     101     270     271             \r\n                  136-        CELAS3  271     101     271     272     272     101     272     273             \r\n                  137-        CELAS3  273     101     273     274     274     101     274     275             \r\n                  138-        CELAS3  275     101     275     276     276     101     276     277             \r\n                  139-        CELAS3  277     101     277     278     278     101     278     279             \r\n                  140-        CELAS3  279     101     279     280     280     101     280     281             \r\n                  141-        CELAS3  281     101     281     282     282     101     282     283             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CELAS3  283     101     283     284     284     101     284     285             \r\n                  143-        CELAS3  285     101     285     286     286     101     286     287             \r\n                  144-        CELAS3  287     101     287     288     288     101     288     289             \r\n                  145-        CELAS3  289     101     289     290     290     101     290     291             \r\n                  146-        CELAS3  291     101     291     292     292     101     292     293             \r\n                  147-        CELAS3  293     101     293     294     294     101     294     295             \r\n                  148-        CELAS3  295     101     295     296     296     101     296     297             \r\n                  149-        CELAS3  297     101     297     298     298     101     298     299             \r\n                  150-        CELAS3  299     101     299     300     300     101     300     301             \r\n                  151-        CELAS3  301     101     301     302     302     101     302     303             \r\n                  152-        CELAS3  303     101     303     304     304     101     304     305             \r\n                  153-        CELAS3  305     101     305     306     306     101     306     307             \r\n                  154-        CELAS3  307     101     307     308     308     101     308     309             \r\n                  155-        CELAS3  309     101     309     310     310     101     310     311             \r\n                  156-        CELAS3  311     101     311     312     312     101     312     313             \r\n                  157-        CELAS3  313     101     313     314     314     101     314     315             \r\n                  158-        CELAS3  315     101     315     316     316     101     316     317             \r\n                  159-        CELAS3  317     101     317     318     318     101     318     319             \r\n                  160-        CELAS3  319     101     319     320     320     101     320     321             \r\n                  161-        CELAS3  321     101     321     322     322     101     322     323             \r\n                  162-        CELAS3  323     101     323     324     324     101     324     325             \r\n                  163-        CELAS3  325     101     325     326     326     101     326     327             \r\n                  164-        CELAS3  327     101     327     328     328     101     328     329             \r\n                  165-        CELAS3  329     101     329     330     330     101     330     331             \r\n                  166-        CELAS3  331     101     331     332     332     101     332     333             \r\n                  167-        CELAS3  333     101     333     334     334     101     334     335             \r\n                  168-        CELAS3  335     101     335     336     336     101     336     337             \r\n                  169-        CELAS3  337     101     337     338     338     101     338     339             \r\n                  170-        CELAS3  339     101     339     340     340     101     340     341             \r\n                  171-        CELAS3  341     101     341     342     342     101     342     343             \r\n                  172-        CELAS3  343     101     343     344     344     101     344     345             \r\n                  173-        CELAS3  345     101     345     346     346     101     346     347             \r\n                  174-        CELAS3  347     101     347     348     348     101     348     349             \r\n                  175-        CELAS3  349     101     349     350     350     101     350     351             \r\n                  176-        CELAS3  351     101     351     352     352     101     352     353             \r\n                  177-        CELAS3  353     101     353     354     354     101     354     355             \r\n                  178-        CELAS3  355     101     355     356     356     101     356     357             \r\n                  179-        CELAS3  357     101     357     358     358     101     358     359             \r\n                  180-        CELAS3  359     101     359     360     360     101     360     361             \r\n                  181-        CELAS3  361     101     361     362     362     101     362     363             \r\n                  182-        CELAS3  363     101     363     364     364     101     364     365             \r\n                  183-        CELAS3  365     101     365     366     366     101     366     367             \r\n                  184-        CELAS3  367     101     367     368     368     101     368     369             \r\n                  185-        CELAS3  369     101     369     370     370     101     370     371             \r\n                  186-        CELAS3  371     101     371     372     372     101     372     373             \r\n                  187-        CELAS3  373     101     373     374     374     101     374     375             \r\n                  188-        CELAS3  375     101     375     376     376     101     376     377             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CELAS3  377     101     377     378     378     101     378     379             \r\n                  190-        CELAS3  379     101     379     380     380     101     380     381             \r\n                  191-        CELAS3  381     101     381     382     382     101     382     383             \r\n                  192-        CELAS3  383     101     383     384     384     101     384     385             \r\n                  193-        CELAS3  385     101     385     386     386     101     386     387             \r\n                  194-        CELAS3  387     101     387     388     388     101     388     389             \r\n                  195-        CELAS3  389     101     389     390     390     101     390     391             \r\n                  196-        CELAS3  391     101     391     392     392     101     392     393             \r\n                  197-        CELAS3  393     101     393     394     394     101     394     395             \r\n                  198-        CELAS3  395     101     395     396     396     101     396     397             \r\n                  199-        CELAS3  397     101     397     398     398     101     398     399             \r\n                  200-        CELAS3  399     101     399     400     400     101     400     401             \r\n                  201-        CELAS3  401     101     401     402     402     101     402     403             \r\n                  202-        CELAS3  403     101     403     404     404     101     404     405             \r\n                  203-        CELAS3  405     101     405     406     406     101     406     407             \r\n                  204-        CELAS3  407     101     407     408     408     101     408     409             \r\n                  205-        CELAS3  409     101     409     410     410     101     410     411             \r\n                  206-        CELAS3  411     101     411     412     412     101     412     413             \r\n                  207-        CELAS3  413     101     413     414     414     101     414     415             \r\n                  208-        CELAS3  415     101     415     416     416     101     416     417             \r\n                  209-        CELAS3  417     101     417     418     418     101     418     419             \r\n                  210-        CELAS3  419     101     419     420     420     101     420     421             \r\n                  211-        CELAS3  421     101     421     422     422     101     422     423             \r\n                  212-        CELAS3  423     101     423     424     424     101     424     425             \r\n                  213-        CELAS3  425     101     425     426     426     101     426     427             \r\n                  214-        CELAS3  427     101     427     428     428     101     428     429             \r\n                  215-        CELAS3  429     101     429     430     430     101     430     431             \r\n                  216-        CELAS3  431     101     431     432     432     101     432     433             \r\n                  217-        CELAS3  433     101     433     434     434     101     434     435             \r\n                  218-        CELAS3  435     101     435     436     436     101     436     437             \r\n                  219-        CELAS3  437     101     437     438     438     101     438     439             \r\n                  220-        CELAS3  439     101     439     440     440     101     440     441             \r\n                  221-        CELAS3  441     101     441     442     442     101     442     443             \r\n                  222-        CELAS3  443     101     443     444     444     101     444     445             \r\n                  223-        CELAS3  445     101     445     446     446     101     446     447             \r\n                  224-        CELAS3  447     101     447     448     448     101     448     449             \r\n                  225-        CELAS3  449     101     449     450     450     101     450     451             \r\n                  226-        CELAS3  451     101     451     452     452     101     452     453             \r\n                  227-        CELAS3  453     101     453     454     454     101     454     455             \r\n                  228-        CELAS3  455     101     455     456     456     101     456     457             \r\n                  229-        CELAS3  457     101     457     458     458     101     458     459             \r\n                  230-        CELAS3  459     101     459     460     460     101     460     461             \r\n                  231-        CELAS3  461     101     461     462     462     101     462     463             \r\n                  232-        CELAS3  463     101     463     464     464     101     464     465             \r\n                  233-        CELAS3  465     101     465     466     466     101     466     467             \r\n                  234-        CELAS3  467     101     467     468     468     101     468     469             \r\n                  235-        CELAS3  469     101     469     470     470     101     470     471             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CELAS3  471     101     471     472     472     101     472     473             \r\n                  237-        CELAS3  473     101     473     474     474     101     474     475             \r\n                  238-        CELAS3  475     101     475     476     476     101     476     477             \r\n                  239-        CELAS3  477     101     477     478     478     101     478     479             \r\n                  240-        CELAS3  479     101     479     480     480     101     480     481             \r\n                  241-        CELAS3  481     101     481     482     482     101     482     483             \r\n                  242-        CELAS3  483     101     483     484     484     101     484     485             \r\n                  243-        CELAS3  485     101     485     486     486     101     486     487             \r\n                  244-        CELAS3  487     101     487     488     488     101     488     489             \r\n                  245-        CELAS3  489     101     489     490     490     101     490     491             \r\n                  246-        CELAS3  491     101     491     492     492     101     492     493             \r\n                  247-        CELAS3  493     101     493     494     494     101     494     495             \r\n                  248-        CELAS3  495     101     495     496     496     101     496     497             \r\n                  249-        CELAS3  497     101     497     498     498     101     498     499             \r\n                  250-        CELAS3  499     101     499     500     500     101     500     501             \r\n                  251-        CELAS3  501     101     501     502     502     101     502     503             \r\n                  252-        CELAS3  503     101     503     504     504     101     504     505             \r\n                  253-        CELAS3  505     101     505     506     506     101     506     507             \r\n                  254-        CELAS3  507     101     507     508     508     101     508     509             \r\n                  255-        CELAS3  509     101     509     510     510     101     510     511             \r\n                  256-        CELAS3  511     101     511     512     512     101     512     513             \r\n                  257-        CELAS3  513     101     513     514     514     101     514     515             \r\n                  258-        CELAS3  515     101     515     516     516     101     516     517             \r\n                  259-        CELAS3  517     101     517     518     518     101     518     519             \r\n                  260-        CELAS3  519     101     519     520     520     101     520     521             \r\n                  261-        CELAS3  521     101     521     522     522     101     522     523             \r\n                  262-        CELAS3  523     101     523     524     524     101     524     525             \r\n                  263-        CELAS3  525     101     525     526     526     101     526     527             \r\n                  264-        CELAS3  527     101     527     528     528     101     528     529             \r\n                  265-        CELAS3  529     101     529     530     530     101     530     531             \r\n                  266-        CELAS3  531     101     531     532     532     101     532     533             \r\n                  267-        CELAS3  533     101     533     534     534     101     534     535             \r\n                  268-        CELAS3  535     101     535     536     536     101     536     537             \r\n                  269-        CELAS3  537     101     537     538     538     101     538     539             \r\n                  270-        CELAS3  539     101     539     540     540     101     540     541             \r\n                  271-        CELAS3  541     101     541     542     542     101     542     543             \r\n                  272-        CELAS3  543     101     543     544     544     101     544     545             \r\n                  273-        CELAS3  545     101     545     546     546     101     546     547             \r\n                  274-        CELAS3  547     101     547     548     548     101     548     549             \r\n                  275-        CELAS3  549     101     549     550     550     101     550     551             \r\n                  276-        CELAS3  551     101     551     552     552     101     552     553             \r\n                  277-        CELAS3  553     101     553     554     554     101     554     555             \r\n                  278-        CELAS3  555     101     555     556     556     101     556     557             \r\n                  279-        CELAS3  557     101     557     558     558     101     558     559             \r\n                  280-        CELAS3  559     101     559     560     560     101     560     561             \r\n                  281-        CELAS3  561     101     561     562     562     101     562     563             \r\n                  282-        CELAS3  563     101     563     564     564     101     564     565             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CELAS3  565     101     565     566     566     101     566     567             \r\n                  284-        CELAS3  567     101     567     568     568     101     568     569             \r\n                  285-        CELAS3  569     101     569     570     570     101     570     571             \r\n                  286-        CELAS3  571     101     571     572     572     101     572     573             \r\n                  287-        CELAS3  573     101     573     574     574     101     574     575             \r\n                  288-        CELAS3  575     101     575     576     576     101     576     577             \r\n                  289-        CELAS3  577     101     577     578     578     101     578     579             \r\n                  290-        CELAS3  579     101     579     580     580     101     580     581             \r\n                  291-        CELAS3  581     101     581     582     582     101     582     583             \r\n                  292-        CELAS3  583     101     583     584     584     101     584     585             \r\n                  293-        CELAS3  585     101     585     586     586     101     586     587             \r\n                  294-        CELAS3  587     101     587     588     588     101     588     589             \r\n                  295-        CELAS3  589     101     589     590     590     101     590     591             \r\n                  296-        CELAS3  591     101     591     592     592     101     592     593             \r\n                  297-        CELAS3  593     101     593     594     594     101     594     595             \r\n                  298-        CELAS3  595     101     595     596     596     101     596     597             \r\n                  299-        CELAS3  597     101     597     598     598     101     598     599             \r\n                  300-        CELAS3  599     101     599     600     600     101     600     601             \r\n                  301-        CELAS3  601     101     601     602     602     101     602     603             \r\n                  302-        CELAS3  603     101     603     604     604     101     604     605             \r\n                  303-        CELAS3  605     101     605     606     606     101     606     607             \r\n                  304-        CELAS3  607     101     607     608     608     101     608     609             \r\n                  305-        CELAS3  609     101     609     610     610     101     610     611             \r\n                  306-        CELAS3  611     101     611     612     612     101     612     613             \r\n                  307-        CELAS3  613     101     613     614     614     101     614     615             \r\n                  308-        CELAS3  615     101     615     616     616     101     616     617             \r\n                  309-        CELAS3  617     101     617     618     618     101     618     619             \r\n                  310-        CELAS3  619     101     619     620     620     101     620     621             \r\n                  311-        CELAS3  621     101     621     622     622     101     622     623             \r\n                  312-        CELAS3  623     101     623     624     624     101     624     625             \r\n                  313-        CELAS3  625     101     625     626     626     101     626     627             \r\n                  314-        CELAS3  627     101     627     628     628     101     628     629             \r\n                  315-        CELAS3  629     101     629     630     630     101     630     631             \r\n                  316-        CELAS3  631     101     631     632     632     101     632     633             \r\n                  317-        CELAS3  633     101     633     634     634     101     634     635             \r\n                  318-        CELAS3  635     101     635     636     636     101     636     637             \r\n                  319-        CELAS3  637     101     637     638     638     101     638     639             \r\n                  320-        CELAS3  639     101     639     640     640     101     640     641             \r\n                  321-        CELAS3  641     101     641     642     642     101     642     643             \r\n                  322-        CELAS3  643     101     643     644     644     101     644     645             \r\n                  323-        CELAS3  645     101     645     646     646     101     646     647             \r\n                  324-        CELAS3  647     101     647     648     648     101     648     649             \r\n                  325-        CELAS3  649     101     649     650     650     101     650     651             \r\n                  326-        CELAS3  651     101     651     652     652     101     652     653             \r\n                  327-        CELAS3  653     101     653     654     654     101     654     655             \r\n                  328-        CELAS3  655     101     655     656     656     101     656     657             \r\n                  329-        CELAS3  657     101     657     658     658     101     658     659             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CELAS3  659     101     659     660     660     101     660     661             \r\n                  331-        CELAS3  661     101     661     662     662     101     662     663             \r\n                  332-        CELAS3  663     101     663     664     664     101     664     665             \r\n                  333-        CELAS3  665     101     665     666     666     101     666     667             \r\n                  334-        CELAS3  667     101     667     668     668     101     668     669             \r\n                  335-        CELAS3  669     101     669     670     670     101     670     671             \r\n                  336-        CELAS3  671     101     671     672     672     101     672     673             \r\n                  337-        CELAS3  673     101     673     674     674     101     674     675             \r\n                  338-        CELAS3  675     101     675     676     676     101     676     677             \r\n                  339-        CELAS3  677     101     677     678     678     101     678     679             \r\n                  340-        CELAS3  679     101     679     680     680     101     680     681             \r\n                  341-        CELAS3  681     101     681     682     682     101     682     683             \r\n                  342-        CELAS3  683     101     683     684     684     101     684     685             \r\n                  343-        CELAS3  685     101     685     686     686     101     686     687             \r\n                  344-        CELAS3  687     101     687     688     688     101     688     689             \r\n                  345-        CELAS3  689     101     689     690     690     101     690     691             \r\n                  346-        CELAS3  691     101     691     692     692     101     692     693             \r\n                  347-        CELAS3  693     101     693     694     694     101     694     695             \r\n                  348-        CELAS3  695     101     695     696     696     101     696     697             \r\n                  349-        CELAS3  697     101     697     698     698     101     698     699             \r\n                  350-        CELAS3  699     101     699     700     700     101     700     701             \r\n                  351-        CELAS3  701     101     701     702     702     101     702     703             \r\n                  352-        CELAS3  703     101     703     704     704     101     704     705             \r\n                  353-        CELAS3  705     101     705     706     706     101     706     707             \r\n                  354-        CELAS3  707     101     707     708     708     101     708     709             \r\n                  355-        CELAS3  709     101     709     710     710     101     710     711             \r\n                  356-        CELAS3  711     101     711     712     712     101     712     713             \r\n                  357-        CELAS3  713     101     713     714     714     101     714     715             \r\n                  358-        CELAS3  715     101     715     716     716     101     716     717             \r\n                  359-        CELAS3  717     101     717     718     718     101     718     719             \r\n                  360-        CELAS3  719     101     719     720     720     101     720     721             \r\n                  361-        CELAS3  721     101     721     722     722     101     722     723             \r\n                  362-        CELAS3  723     101     723     724     724     101     724     725             \r\n                  363-        CELAS3  725     101     725     726     726     101     726     727             \r\n                  364-        CELAS3  727     101     727     728     728     101     728     729             \r\n                  365-        CELAS3  729     101     729     730     730     101     730     731             \r\n                  366-        CELAS3  731     101     731     732     732     101     732     733             \r\n                  367-        CELAS3  733     101     733     734     734     101     734     735             \r\n                  368-        CELAS3  735     101     735     736     736     101     736     737             \r\n                  369-        CELAS3  737     101     737     738     738     101     738     739             \r\n                  370-        CELAS3  739     101     739     740     740     101     740     741             \r\n                  371-        CELAS3  741     101     741     742     742     101     742     743             \r\n                  372-        CELAS3  743     101     743     744     744     101     744     745             \r\n                  373-        CELAS3  745     101     745     746     746     101     746     747             \r\n                  374-        CELAS3  747     101     747     748     748     101     748     749             \r\n                  375-        CELAS3  749     101     749     750     750     101     750     751             \r\n                  376-        CELAS3  751     101     751     752     752     101     752     753             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CELAS3  753     101     753     754     754     101     754     755             \r\n                  378-        CELAS3  755     101     755     756     756     101     756     757             \r\n                  379-        CELAS3  757     101     757     758     758     101     758     759             \r\n                  380-        CELAS3  759     101     759     760     760     101     760     761             \r\n                  381-        CELAS3  761     101     761     762     762     101     762     763             \r\n                  382-        CELAS3  763     101     763     764     764     101     764     765             \r\n                  383-        CELAS3  765     101     765     766     766     101     766     767             \r\n                  384-        CELAS3  767     101     767     768     768     101     768     769             \r\n                  385-        CELAS3  769     101     769     770     770     101     770     771             \r\n                  386-        CELAS3  771     101     771     772     772     101     772     773             \r\n                  387-        CELAS3  773     101     773     774     774     101     774     775             \r\n                  388-        CELAS3  775     101     775     776     776     101     776     777             \r\n                  389-        CELAS3  777     101     777     778     778     101     778     779             \r\n                  390-        CELAS3  779     101     779     780     780     101     780     781             \r\n                  391-        CELAS3  781     101     781     782     782     101     782     783             \r\n                  392-        CELAS3  783     101     783     784     784     101     784     785             \r\n                  393-        CELAS3  785     101     785     786     786     101     786     787             \r\n                  394-        CELAS3  787     101     787     788     788     101     788     789             \r\n                  395-        CELAS3  789     101     789     790     790     101     790     791             \r\n                  396-        CELAS3  791     101     791     792     792     101     792     793             \r\n                  397-        CELAS3  793     101     793     794     794     101     794     795             \r\n                  398-        CELAS3  795     101     795     796     796     101     796     797             \r\n                  399-        CELAS3  797     101     797     798     798     101     798     799             \r\n                  400-        CELAS3  799     101     799     800     800     101     800     801             \r\n                  401-        CELAS3  801     101     801     802     802     101     802     803             \r\n                  402-        CELAS3  803     101     803     804     804     101     804     805             \r\n                  403-        CELAS3  805     101     805     806     806     101     806     807             \r\n                  404-        CELAS3  807     101     807     808     808     101     808     809             \r\n                  405-        CELAS3  809     101     809     810     810     101     810     811             \r\n                  406-        CELAS3  811     101     811     812     812     101     812     813             \r\n                  407-        CELAS3  813     101     813     814     814     101     814     815             \r\n                  408-        CELAS3  815     101     815     816     816     101     816     817             \r\n                  409-        CELAS3  817     101     817     818     818     101     818     819             \r\n                  410-        CELAS3  819     101     819     820     820     101     820     821             \r\n                  411-        CELAS3  821     101     821     822     822     101     822     823             \r\n                  412-        CELAS3  823     101     823     824     824     101     824     825             \r\n                  413-        CELAS3  825     101     825     826     826     101     826     827             \r\n                  414-        CELAS3  827     101     827     828     828     101     828     829             \r\n                  415-        CELAS3  829     101     829     830     830     101     830     831             \r\n                  416-        CELAS3  831     101     831     832     832     101     832     833             \r\n                  417-        CELAS3  833     101     833     834     834     101     834     835             \r\n                  418-        CELAS3  835     101     835     836     836     101     836     837             \r\n                  419-        CELAS3  837     101     837     838     838     101     838     839             \r\n                  420-        CELAS3  839     101     839     840     840     101     840     841             \r\n                  421-        CELAS3  841     101     841     842     842     101     842     843             \r\n                  422-        CELAS3  843     101     843     844     844     101     844     845             \r\n                  423-        CELAS3  845     101     845     846     846     101     846     847             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        CELAS3  847     101     847     848     848     101     848     849             \r\n                  425-        CELAS3  849     101     849     850     850     101     850     851             \r\n                  426-        CELAS3  851     101     851     852     852     101     852     853             \r\n                  427-        CELAS3  853     101     853     854     854     101     854     855             \r\n                  428-        CELAS3  855     101     855     856     856     101     856     857             \r\n                  429-        CELAS3  857     101     857     858     858     101     858     859             \r\n                  430-        CELAS3  859     101     859     860     860     101     860     861             \r\n                  431-        CELAS3  861     101     861     862     862     101     862     863             \r\n                  432-        CELAS3  863     101     863     864     864     101     864     865             \r\n                  433-        CELAS3  865     101     865     866     866     101     866     867             \r\n                  434-        CELAS3  867     101     867     868     868     101     868     869             \r\n                  435-        CELAS3  869     101     869     870     870     101     870     871             \r\n                  436-        CELAS3  871     101     871     872     872     101     872     873             \r\n                  437-        CELAS3  873     101     873     874     874     101     874     875             \r\n                  438-        CELAS3  875     101     875     876     876     101     876     877             \r\n                  439-        CELAS3  877     101     877     878     878     101     878     879             \r\n                  440-        CELAS3  879     101     879     880     880     101     880     881             \r\n                  441-        CELAS3  881     101     881     882     882     101     882     883             \r\n                  442-        CELAS3  883     101     883     884     884     101     884     885             \r\n                  443-        CELAS3  885     101     885     886     886     101     886     887             \r\n                  444-        CELAS3  887     101     887     888     888     101     888     889             \r\n                  445-        CELAS3  889     101     889     890     890     101     890     891             \r\n                  446-        CELAS3  891     101     891     892     892     101     892     893             \r\n                  447-        CELAS3  893     101     893     894     894     101     894     895             \r\n                  448-        CELAS3  895     101     895     896     896     101     896     897             \r\n                  449-        CELAS3  897     101     897     898     898     101     898     899             \r\n                  450-        CELAS3  899     101     899     900     900     101     900     901             \r\n                  451-        CELAS3  901     101     901     902     902     101     902     903             \r\n                  452-        CELAS3  903     101     903     904     904     101     904     905             \r\n                  453-        CELAS3  905     101     905     906     906     101     906     907             \r\n                  454-        CELAS3  907     101     907     908     908     101     908     909             \r\n                  455-        CELAS3  909     101     909     910     910     101     910     911             \r\n                  456-        CELAS3  911     101     911     912     912     101     912     913             \r\n                  457-        CELAS3  913     101     913     914     914     101     914     915             \r\n                  458-        CELAS3  915     101     915     916     916     101     916     917             \r\n                  459-        CELAS3  917     101     917     918     918     101     918     919             \r\n                  460-        CELAS3  919     101     919     920     920     101     920     921             \r\n                  461-        CELAS3  921     101     921     922     922     101     922     923             \r\n                  462-        CELAS3  923     101     923     924     924     101     924     925             \r\n                  463-        CELAS3  925     101     925     926     926     101     926     927             \r\n                  464-        CELAS3  927     101     927     928     928     101     928     929             \r\n                  465-        CELAS3  929     101     929     930     930     101     930     931             \r\n                  466-        CELAS3  931     101     931     932     932     101     932     933             \r\n                  467-        CELAS3  933     101     933     934     934     101     934     935             \r\n                  468-        CELAS3  935     101     935     936     936     101     936     937             \r\n                  469-        CELAS3  937     101     937     938     938     101     938     939             \r\n                  470-        CELAS3  939     101     939     940     940     101     940     941             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        CELAS3  941     101     941     942     942     101     942     943             \r\n                  472-        CELAS3  943     101     943     944     944     101     944     945             \r\n                  473-        CELAS3  945     101     945     946     946     101     946     947             \r\n                  474-        CELAS3  947     101     947     948     948     101     948     949             \r\n                  475-        CELAS3  949     101     949     950     950     101     950     951             \r\n                  476-        CELAS3  951     101     951     952     952     101     952     953             \r\n                  477-        CELAS3  953     101     953     954     954     101     954     955             \r\n                  478-        CELAS3  955     101     955     956     956     101     956     957             \r\n                  479-        CELAS3  957     101     957     958     958     101     958     959             \r\n                  480-        CELAS3  959     101     959     960     960     101     960     961             \r\n                  481-        CELAS3  961     101     961     962     962     101     962     963             \r\n                  482-        CELAS3  963     101     963     964     964     101     964     965             \r\n                  483-        CELAS3  965     101     965     966     966     101     966     967             \r\n                  484-        CELAS3  967     101     967     968     968     101     968     969             \r\n                  485-        CELAS3  969     101     969     970     970     101     970     971             \r\n                  486-        CELAS3  971     101     971     972     972     101     972     973             \r\n                  487-        CELAS3  973     101     973     974     974     101     974     975             \r\n                  488-        CELAS3  975     101     975     976     976     101     976     977             \r\n                  489-        CELAS3  977     101     977     978     978     101     978     979             \r\n                  490-        CELAS3  979     101     979     980     980     101     980     981             \r\n                  491-        CELAS3  981     101     981     982     982     101     982     983             \r\n                  492-        CELAS3  983     101     983     984     984     101     984     985             \r\n                  493-        CELAS3  985     101     985     986     986     101     986     987             \r\n                  494-        CELAS3  987     101     987     988     988     101     988     989             \r\n                  495-        CELAS3  989     101     989     990     990     101     990     991             \r\n                  496-        CELAS3  991     101     991     992     992     101     992     993             \r\n                  497-        CELAS3  993     101     993     994     994     101     994     995             \r\n                  498-        CELAS3  995     101     995     996     996     101     996     997             \r\n                  499-        CELAS3  997     101     997     998     998     101     998     999             \r\n                  500-        CELAS3  999     101     999     1000    1000    101     1000    0               \r\n                  501-        CMASS3  40002   301     2       0                                               \r\n                  502-        CMASS3  40003   301     3       0       40004   301     4       0               \r\n                  503-        CMASS3  40005   301     5       0       40006   301     6       0               \r\n                  504-        CMASS3  40007   301     7       0       40008   301     8       0               \r\n                  505-        CMASS3  40009   301     9       0       40010   301     10      0               \r\n                  506-        CMASS3  40011   301     11      0       40012   301     12      0               \r\n                  507-        CMASS3  40013   301     13      0       40014   301     14      0               \r\n                  508-        CMASS3  40015   301     15      0       40016   301     16      0               \r\n                  509-        CMASS3  40017   301     17      0       40018   301     18      0               \r\n                  510-        CMASS3  40019   301     19      0       40020   301     20      0               \r\n                  511-        CMASS3  40021   301     21      0       40022   301     22      0               \r\n                  512-        CMASS3  40023   301     23      0       40024   301     24      0               \r\n                  513-        CMASS3  40025   301     25      0       40026   301     26      0               \r\n                  514-        CMASS3  40027   301     27      0       40028   301     28      0               \r\n                  515-        CMASS3  40029   301     29      0       40030   301     30      0               \r\n                  516-        CMASS3  40031   301     31      0       40032   301     32      0               \r\n                  517-        CMASS3  40033   301     33      0       40034   301     34      0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        CMASS3  40035   301     35      0       40036   301     36      0               \r\n                  519-        CMASS3  40037   301     37      0       40038   301     38      0               \r\n                  520-        CMASS3  40039   301     39      0       40040   301     40      0               \r\n                  521-        CMASS3  40041   301     41      0       40042   301     42      0               \r\n                  522-        CMASS3  40043   301     43      0       40044   301     44      0               \r\n                  523-        CMASS3  40045   301     45      0       40046   301     46      0               \r\n                  524-        CMASS3  40047   301     47      0       40048   301     48      0               \r\n                  525-        CMASS3  40049   301     49      0       40050   301     50      0               \r\n                  526-        CMASS3  40051   301     51      0       40052   301     52      0               \r\n                  527-        CMASS3  40053   301     53      0       40054   301     54      0               \r\n                  528-        CMASS3  40055   301     55      0       40056   301     56      0               \r\n                  529-        CMASS3  40057   301     57      0       40058   301     58      0               \r\n                  530-        CMASS3  40059   301     59      0       40060   301     60      0               \r\n                  531-        CMASS3  40061   301     61      0       40062   301     62      0               \r\n                  532-        CMASS3  40063   301     63      0       40064   301     64      0               \r\n                  533-        CMASS3  40065   301     65      0       40066   301     66      0               \r\n                  534-        CMASS3  40067   301     67      0       40068   301     68      0               \r\n                  535-        CMASS3  40069   301     69      0       40070   301     70      0               \r\n                  536-        CMASS3  40071   301     71      0       40072   301     72      0               \r\n                  537-        CMASS3  40073   301     73      0       40074   301     74      0               \r\n                  538-        CMASS3  40075   301     75      0       40076   301     76      0               \r\n                  539-        CMASS3  40077   301     77      0       40078   301     78      0               \r\n                  540-        CMASS3  40079   301     79      0       40080   301     80      0               \r\n                  541-        CMASS3  40081   301     81      0       40082   301     82      0               \r\n                  542-        CMASS3  40083   301     83      0       40084   301     84      0               \r\n                  543-        CMASS3  40085   301     85      0       40086   301     86      0               \r\n                  544-        CMASS3  40087   301     87      0       40088   301     88      0               \r\n                  545-        CMASS3  40089   301     89      0       40090   301     90      0               \r\n                  546-        CMASS3  40091   301     91      0       40092   301     92      0               \r\n                  547-        CMASS3  40093   301     93      0       40094   301     94      0               \r\n                  548-        CMASS3  40095   301     95      0       40096   301     96      0               \r\n                  549-        CMASS3  40097   301     97      0       40098   301     98      0               \r\n                  550-        CMASS3  40099   301     99      0       40100   301     100     0               \r\n                  551-        CMASS3  40101   301     101     0       40102   301     102     0               \r\n                  552-        CMASS3  40103   301     103     0       40104   301     104     0               \r\n                  553-        CMASS3  40105   301     105     0       40106   301     106     0               \r\n                  554-        CMASS3  40107   301     107     0       40108   301     108     0               \r\n                  555-        CMASS3  40109   301     109     0       40110   301     110     0               \r\n                  556-        CMASS3  40111   301     111     0       40112   301     112     0               \r\n                  557-        CMASS3  40113   301     113     0       40114   301     114     0               \r\n                  558-        CMASS3  40115   301     115     0       40116   301     116     0               \r\n                  559-        CMASS3  40117   301     117     0       40118   301     118     0               \r\n                  560-        CMASS3  40119   301     119     0       40120   301     120     0               \r\n                  561-        CMASS3  40121   301     121     0       40122   301     122     0               \r\n                  562-        CMASS3  40123   301     123     0       40124   301     124     0               \r\n                  563-        CMASS3  40125   301     125     0       40126   301     126     0               \r\n                  564-        CMASS3  40127   301     127     0       40128   301     128     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        CMASS3  40129   301     129     0       40130   301     130     0               \r\n                  566-        CMASS3  40131   301     131     0       40132   301     132     0               \r\n                  567-        CMASS3  40133   301     133     0       40134   301     134     0               \r\n                  568-        CMASS3  40135   301     135     0       40136   301     136     0               \r\n                  569-        CMASS3  40137   301     137     0       40138   301     138     0               \r\n                  570-        CMASS3  40139   301     139     0       40140   301     140     0               \r\n                  571-        CMASS3  40141   301     141     0       40142   301     142     0               \r\n                  572-        CMASS3  40143   301     143     0       40144   301     144     0               \r\n                  573-        CMASS3  40145   301     145     0       40146   301     146     0               \r\n                  574-        CMASS3  40147   301     147     0       40148   301     148     0               \r\n                  575-        CMASS3  40149   301     149     0       40150   301     150     0               \r\n                  576-        CMASS3  40151   301     151     0       40152   301     152     0               \r\n                  577-        CMASS3  40153   301     153     0       40154   301     154     0               \r\n                  578-        CMASS3  40155   301     155     0       40156   301     156     0               \r\n                  579-        CMASS3  40157   301     157     0       40158   301     158     0               \r\n                  580-        CMASS3  40159   301     159     0       40160   301     160     0               \r\n                  581-        CMASS3  40161   301     161     0       40162   301     162     0               \r\n                  582-        CMASS3  40163   301     163     0       40164   301     164     0               \r\n                  583-        CMASS3  40165   301     165     0       40166   301     166     0               \r\n                  584-        CMASS3  40167   301     167     0       40168   301     168     0               \r\n                  585-        CMASS3  40169   301     169     0       40170   301     170     0               \r\n                  586-        CMASS3  40171   301     171     0       40172   301     172     0               \r\n                  587-        CMASS3  40173   301     173     0       40174   301     174     0               \r\n                  588-        CMASS3  40175   301     175     0       40176   301     176     0               \r\n                  589-        CMASS3  40177   301     177     0       40178   301     178     0               \r\n                  590-        CMASS3  40179   301     179     0       40180   301     180     0               \r\n                  591-        CMASS3  40181   301     181     0       40182   301     182     0               \r\n                  592-        CMASS3  40183   301     183     0       40184   301     184     0               \r\n                  593-        CMASS3  40185   301     185     0       40186   301     186     0               \r\n                  594-        CMASS3  40187   301     187     0       40188   301     188     0               \r\n                  595-        CMASS3  40189   301     189     0       40190   301     190     0               \r\n                  596-        CMASS3  40191   301     191     0       40192   301     192     0               \r\n                  597-        CMASS3  40193   301     193     0       40194   301     194     0               \r\n                  598-        CMASS3  40195   301     195     0       40196   301     196     0               \r\n                  599-        CMASS3  40197   301     197     0       40198   301     198     0               \r\n                  600-        CMASS3  40199   301     199     0       40200   301     200     0               \r\n                  601-        CMASS3  40201   301     201     0       40202   301     202     0               \r\n                  602-        CMASS3  40203   301     203     0       40204   301     204     0               \r\n                  603-        CMASS3  40205   301     205     0       40206   301     206     0               \r\n                  604-        CMASS3  40207   301     207     0       40208   301     208     0               \r\n                  605-        CMASS3  40209   301     209     0       40210   301     210     0               \r\n                  606-        CMASS3  40211   301     211     0       40212   301     212     0               \r\n                  607-        CMASS3  40213   301     213     0       40214   301     214     0               \r\n                  608-        CMASS3  40215   301     215     0       40216   301     216     0               \r\n                  609-        CMASS3  40217   301     217     0       40218   301     218     0               \r\n                  610-        CMASS3  40219   301     219     0       40220   301     220     0               \r\n                  611-        CMASS3  40221   301     221     0       40222   301     222     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        CMASS3  40223   301     223     0       40224   301     224     0               \r\n                  613-        CMASS3  40225   301     225     0       40226   301     226     0               \r\n                  614-        CMASS3  40227   301     227     0       40228   301     228     0               \r\n                  615-        CMASS3  40229   301     229     0       40230   301     230     0               \r\n                  616-        CMASS3  40231   301     231     0       40232   301     232     0               \r\n                  617-        CMASS3  40233   301     233     0       40234   301     234     0               \r\n                  618-        CMASS3  40235   301     235     0       40236   301     236     0               \r\n                  619-        CMASS3  40237   301     237     0       40238   301     238     0               \r\n                  620-        CMASS3  40239   301     239     0       40240   301     240     0               \r\n                  621-        CMASS3  40241   301     241     0       40242   301     242     0               \r\n                  622-        CMASS3  40243   301     243     0       40244   301     244     0               \r\n                  623-        CMASS3  40245   301     245     0       40246   301     246     0               \r\n                  624-        CMASS3  40247   301     247     0       40248   301     248     0               \r\n                  625-        CMASS3  40249   301     249     0       40250   301     250     0               \r\n                  626-        CMASS3  40251   301     251     0       40252   301     252     0               \r\n                  627-        CMASS3  40253   301     253     0       40254   301     254     0               \r\n                  628-        CMASS3  40255   301     255     0       40256   301     256     0               \r\n                  629-        CMASS3  40257   301     257     0       40258   301     258     0               \r\n                  630-        CMASS3  40259   301     259     0       40260   301     260     0               \r\n                  631-        CMASS3  40261   301     261     0       40262   301     262     0               \r\n                  632-        CMASS3  40263   301     263     0       40264   301     264     0               \r\n                  633-        CMASS3  40265   301     265     0       40266   301     266     0               \r\n                  634-        CMASS3  40267   301     267     0       40268   301     268     0               \r\n                  635-        CMASS3  40269   301     269     0       40270   301     270     0               \r\n                  636-        CMASS3  40271   301     271     0       40272   301     272     0               \r\n                  637-        CMASS3  40273   301     273     0       40274   301     274     0               \r\n                  638-        CMASS3  40275   301     275     0       40276   301     276     0               \r\n                  639-        CMASS3  40277   301     277     0       40278   301     278     0               \r\n                  640-        CMASS3  40279   301     279     0       40280   301     280     0               \r\n                  641-        CMASS3  40281   301     281     0       40282   301     282     0               \r\n                  642-        CMASS3  40283   301     283     0       40284   301     284     0               \r\n                  643-        CMASS3  40285   301     285     0       40286   301     286     0               \r\n                  644-        CMASS3  40287   301     287     0       40288   301     288     0               \r\n                  645-        CMASS3  40289   301     289     0       40290   301     290     0               \r\n                  646-        CMASS3  40291   301     291     0       40292   301     292     0               \r\n                  647-        CMASS3  40293   301     293     0       40294   301     294     0               \r\n                  648-        CMASS3  40295   301     295     0       40296   301     296     0               \r\n                  649-        CMASS3  40297   301     297     0       40298   301     298     0               \r\n                  650-        CMASS3  40299   301     299     0       40300   301     300     0               \r\n                  651-        CMASS3  40301   301     301     0       40302   301     302     0               \r\n                  652-        CMASS3  40303   301     303     0       40304   301     304     0               \r\n                  653-        CMASS3  40305   301     305     0       40306   301     306     0               \r\n                  654-        CMASS3  40307   301     307     0       40308   301     308     0               \r\n                  655-        CMASS3  40309   301     309     0       40310   301     310     0               \r\n                  656-        CMASS3  40311   301     311     0       40312   301     312     0               \r\n                  657-        CMASS3  40313   301     313     0       40314   301     314     0               \r\n                  658-        CMASS3  40315   301     315     0       40316   301     316     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        CMASS3  40317   301     317     0       40318   301     318     0               \r\n                  660-        CMASS3  40319   301     319     0       40320   301     320     0               \r\n                  661-        CMASS3  40321   301     321     0       40322   301     322     0               \r\n                  662-        CMASS3  40323   301     323     0       40324   301     324     0               \r\n                  663-        CMASS3  40325   301     325     0       40326   301     326     0               \r\n                  664-        CMASS3  40327   301     327     0       40328   301     328     0               \r\n                  665-        CMASS3  40329   301     329     0       40330   301     330     0               \r\n                  666-        CMASS3  40331   301     331     0       40332   301     332     0               \r\n                  667-        CMASS3  40333   301     333     0       40334   301     334     0               \r\n                  668-        CMASS3  40335   301     335     0       40336   301     336     0               \r\n                  669-        CMASS3  40337   301     337     0       40338   301     338     0               \r\n                  670-        CMASS3  40339   301     339     0       40340   301     340     0               \r\n                  671-        CMASS3  40341   301     341     0       40342   301     342     0               \r\n                  672-        CMASS3  40343   301     343     0       40344   301     344     0               \r\n                  673-        CMASS3  40345   301     345     0       40346   301     346     0               \r\n                  674-        CMASS3  40347   301     347     0       40348   301     348     0               \r\n                  675-        CMASS3  40349   301     349     0       40350   301     350     0               \r\n                  676-        CMASS3  40351   301     351     0       40352   301     352     0               \r\n                  677-        CMASS3  40353   301     353     0       40354   301     354     0               \r\n                  678-        CMASS3  40355   301     355     0       40356   301     356     0               \r\n                  679-        CMASS3  40357   301     357     0       40358   301     358     0               \r\n                  680-        CMASS3  40359   301     359     0       40360   301     360     0               \r\n                  681-        CMASS3  40361   301     361     0       40362   301     362     0               \r\n                  682-        CMASS3  40363   301     363     0       40364   301     364     0               \r\n                  683-        CMASS3  40365   301     365     0       40366   301     366     0               \r\n                  684-        CMASS3  40367   301     367     0       40368   301     368     0               \r\n                  685-        CMASS3  40369   301     369     0       40370   301     370     0               \r\n                  686-        CMASS3  40371   301     371     0       40372   301     372     0               \r\n                  687-        CMASS3  40373   301     373     0       40374   301     374     0               \r\n                  688-        CMASS3  40375   301     375     0       40376   301     376     0               \r\n                  689-        CMASS3  40377   301     377     0       40378   301     378     0               \r\n                  690-        CMASS3  40379   301     379     0       40380   301     380     0               \r\n                  691-        CMASS3  40381   301     381     0       40382   301     382     0               \r\n                  692-        CMASS3  40383   301     383     0       40384   301     384     0               \r\n                  693-        CMASS3  40385   301     385     0       40386   301     386     0               \r\n                  694-        CMASS3  40387   301     387     0       40388   301     388     0               \r\n                  695-        CMASS3  40389   301     389     0       40390   301     390     0               \r\n                  696-        CMASS3  40391   301     391     0       40392   301     392     0               \r\n                  697-        CMASS3  40393   301     393     0       40394   301     394     0               \r\n                  698-        CMASS3  40395   301     395     0       40396   301     396     0               \r\n                  699-        CMASS3  40397   301     397     0       40398   301     398     0               \r\n                  700-        CMASS3  40399   301     399     0       40400   301     400     0               \r\n                  701-        CMASS3  40401   301     401     0       40402   301     402     0               \r\n                  702-        CMASS3  40403   301     403     0       40404   301     404     0               \r\n                  703-        CMASS3  40405   301     405     0       40406   301     406     0               \r\n                  704-        CMASS3  40407   301     407     0       40408   301     408     0               \r\n                  705-        CMASS3  40409   301     409     0       40410   301     410     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        CMASS3  40411   301     411     0       40412   301     412     0               \r\n                  707-        CMASS3  40413   301     413     0       40414   301     414     0               \r\n                  708-        CMASS3  40415   301     415     0       40416   301     416     0               \r\n                  709-        CMASS3  40417   301     417     0       40418   301     418     0               \r\n                  710-        CMASS3  40419   301     419     0       40420   301     420     0               \r\n                  711-        CMASS3  40421   301     421     0       40422   301     422     0               \r\n                  712-        CMASS3  40423   301     423     0       40424   301     424     0               \r\n                  713-        CMASS3  40425   301     425     0       40426   301     426     0               \r\n                  714-        CMASS3  40427   301     427     0       40428   301     428     0               \r\n                  715-        CMASS3  40429   301     429     0       40430   301     430     0               \r\n                  716-        CMASS3  40431   301     431     0       40432   301     432     0               \r\n                  717-        CMASS3  40433   301     433     0       40434   301     434     0               \r\n                  718-        CMASS3  40435   301     435     0       40436   301     436     0               \r\n                  719-        CMASS3  40437   301     437     0       40438   301     438     0               \r\n                  720-        CMASS3  40439   301     439     0       40440   301     440     0               \r\n                  721-        CMASS3  40441   301     441     0       40442   301     442     0               \r\n                  722-        CMASS3  40443   301     443     0       40444   301     444     0               \r\n                  723-        CMASS3  40445   301     445     0       40446   301     446     0               \r\n                  724-        CMASS3  40447   301     447     0       40448   301     448     0               \r\n                  725-        CMASS3  40449   301     449     0       40450   301     450     0               \r\n                  726-        CMASS3  40451   301     451     0       40452   301     452     0               \r\n                  727-        CMASS3  40453   301     453     0       40454   301     454     0               \r\n                  728-        CMASS3  40455   301     455     0       40456   301     456     0               \r\n                  729-        CMASS3  40457   301     457     0       40458   301     458     0               \r\n                  730-        CMASS3  40459   301     459     0       40460   301     460     0               \r\n                  731-        CMASS3  40461   301     461     0       40462   301     462     0               \r\n                  732-        CMASS3  40463   301     463     0       40464   301     464     0               \r\n                  733-        CMASS3  40465   301     465     0       40466   301     466     0               \r\n                  734-        CMASS3  40467   301     467     0       40468   301     468     0               \r\n                  735-        CMASS3  40469   301     469     0       40470   301     470     0               \r\n                  736-        CMASS3  40471   301     471     0       40472   301     472     0               \r\n                  737-        CMASS3  40473   301     473     0       40474   301     474     0               \r\n                  738-        CMASS3  40475   301     475     0       40476   301     476     0               \r\n                  739-        CMASS3  40477   301     477     0       40478   301     478     0               \r\n                  740-        CMASS3  40479   301     479     0       40480   301     480     0               \r\n                  741-        CMASS3  40481   301     481     0       40482   301     482     0               \r\n                  742-        CMASS3  40483   301     483     0       40484   301     484     0               \r\n                  743-        CMASS3  40485   301     485     0       40486   301     486     0               \r\n                  744-        CMASS3  40487   301     487     0       40488   301     488     0               \r\n                  745-        CMASS3  40489   301     489     0       40490   301     490     0               \r\n                  746-        CMASS3  40491   301     491     0       40492   301     492     0               \r\n                  747-        CMASS3  40493   301     493     0       40494   301     494     0               \r\n                  748-        CMASS3  40495   301     495     0       40496   301     496     0               \r\n                  749-        CMASS3  40497   301     497     0       40498   301     498     0               \r\n                  750-        CMASS3  40499   301     499     0       40500   301     500     0               \r\n                  751-        CMASS3  40501   301     501     0       40502   301     502     0               \r\n                  752-        CMASS3  40503   301     503     0       40504   301     504     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        CMASS3  40505   301     505     0       40506   301     506     0               \r\n                  754-        CMASS3  40507   301     507     0       40508   301     508     0               \r\n                  755-        CMASS3  40509   301     509     0       40510   301     510     0               \r\n                  756-        CMASS3  40511   301     511     0       40512   301     512     0               \r\n                  757-        CMASS3  40513   301     513     0       40514   301     514     0               \r\n                  758-        CMASS3  40515   301     515     0       40516   301     516     0               \r\n                  759-        CMASS3  40517   301     517     0       40518   301     518     0               \r\n                  760-        CMASS3  40519   301     519     0       40520   301     520     0               \r\n                  761-        CMASS3  40521   301     521     0       40522   301     522     0               \r\n                  762-        CMASS3  40523   301     523     0       40524   301     524     0               \r\n                  763-        CMASS3  40525   301     525     0       40526   301     526     0               \r\n                  764-        CMASS3  40527   301     527     0       40528   301     528     0               \r\n                  765-        CMASS3  40529   301     529     0       40530   301     530     0               \r\n                  766-        CMASS3  40531   301     531     0       40532   301     532     0               \r\n                  767-        CMASS3  40533   301     533     0       40534   301     534     0               \r\n                  768-        CMASS3  40535   301     535     0       40536   301     536     0               \r\n                  769-        CMASS3  40537   301     537     0       40538   301     538     0               \r\n                  770-        CMASS3  40539   301     539     0       40540   301     540     0               \r\n                  771-        CMASS3  40541   301     541     0       40542   301     542     0               \r\n                  772-        CMASS3  40543   301     543     0       40544   301     544     0               \r\n                  773-        CMASS3  40545   301     545     0       40546   301     546     0               \r\n                  774-        CMASS3  40547   301     547     0       40548   301     548     0               \r\n                  775-        CMASS3  40549   301     549     0       40550   301     550     0               \r\n                  776-        CMASS3  40551   301     551     0       40552   301     552     0               \r\n                  777-        CMASS3  40553   301     553     0       40554   301     554     0               \r\n                  778-        CMASS3  40555   301     555     0       40556   301     556     0               \r\n                  779-        CMASS3  40557   301     557     0       40558   301     558     0               \r\n                  780-        CMASS3  40559   301     559     0       40560   301     560     0               \r\n                  781-        CMASS3  40561   301     561     0       40562   301     562     0               \r\n                  782-        CMASS3  40563   301     563     0       40564   301     564     0               \r\n                  783-        CMASS3  40565   301     565     0       40566   301     566     0               \r\n                  784-        CMASS3  40567   301     567     0       40568   301     568     0               \r\n                  785-        CMASS3  40569   301     569     0       40570   301     570     0               \r\n                  786-        CMASS3  40571   301     571     0       40572   301     572     0               \r\n                  787-        CMASS3  40573   301     573     0       40574   301     574     0               \r\n                  788-        CMASS3  40575   301     575     0       40576   301     576     0               \r\n                  789-        CMASS3  40577   301     577     0       40578   301     578     0               \r\n                  790-        CMASS3  40579   301     579     0       40580   301     580     0               \r\n                  791-        CMASS3  40581   301     581     0       40582   301     582     0               \r\n                  792-        CMASS3  40583   301     583     0       40584   301     584     0               \r\n                  793-        CMASS3  40585   301     585     0       40586   301     586     0               \r\n                  794-        CMASS3  40587   301     587     0       40588   301     588     0               \r\n                  795-        CMASS3  40589   301     589     0       40590   301     590     0               \r\n                  796-        CMASS3  40591   301     591     0       40592   301     592     0               \r\n                  797-        CMASS3  40593   301     593     0       40594   301     594     0               \r\n                  798-        CMASS3  40595   301     595     0       40596   301     596     0               \r\n                  799-        CMASS3  40597   301     597     0       40598   301     598     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  800-        CMASS3  40599   301     599     0       40600   301     600     0               \r\n                  801-        CMASS3  40601   301     601     0       40602   301     602     0               \r\n                  802-        CMASS3  40603   301     603     0       40604   301     604     0               \r\n                  803-        CMASS3  40605   301     605     0       40606   301     606     0               \r\n                  804-        CMASS3  40607   301     607     0       40608   301     608     0               \r\n                  805-        CMASS3  40609   301     609     0       40610   301     610     0               \r\n                  806-        CMASS3  40611   301     611     0       40612   301     612     0               \r\n                  807-        CMASS3  40613   301     613     0       40614   301     614     0               \r\n                  808-        CMASS3  40615   301     615     0       40616   301     616     0               \r\n                  809-        CMASS3  40617   301     617     0       40618   301     618     0               \r\n                  810-        CMASS3  40619   301     619     0       40620   301     620     0               \r\n                  811-        CMASS3  40621   301     621     0       40622   301     622     0               \r\n                  812-        CMASS3  40623   301     623     0       40624   301     624     0               \r\n                  813-        CMASS3  40625   301     625     0       40626   301     626     0               \r\n                  814-        CMASS3  40627   301     627     0       40628   301     628     0               \r\n                  815-        CMASS3  40629   301     629     0       40630   301     630     0               \r\n                  816-        CMASS3  40631   301     631     0       40632   301     632     0               \r\n                  817-        CMASS3  40633   301     633     0       40634   301     634     0               \r\n                  818-        CMASS3  40635   301     635     0       40636   301     636     0               \r\n                  819-        CMASS3  40637   301     637     0       40638   301     638     0               \r\n                  820-        CMASS3  40639   301     639     0       40640   301     640     0               \r\n                  821-        CMASS3  40641   301     641     0       40642   301     642     0               \r\n                  822-        CMASS3  40643   301     643     0       40644   301     644     0               \r\n                  823-        CMASS3  40645   301     645     0       40646   301     646     0               \r\n                  824-        CMASS3  40647   301     647     0       40648   301     648     0               \r\n                  825-        CMASS3  40649   301     649     0       40650   301     650     0               \r\n                  826-        CMASS3  40651   301     651     0       40652   301     652     0               \r\n                  827-        CMASS3  40653   301     653     0       40654   301     654     0               \r\n                  828-        CMASS3  40655   301     655     0       40656   301     656     0               \r\n                  829-        CMASS3  40657   301     657     0       40658   301     658     0               \r\n                  830-        CMASS3  40659   301     659     0       40660   301     660     0               \r\n                  831-        CMASS3  40661   301     661     0       40662   301     662     0               \r\n                  832-        CMASS3  40663   301     663     0       40664   301     664     0               \r\n                  833-        CMASS3  40665   301     665     0       40666   301     666     0               \r\n                  834-        CMASS3  40667   301     667     0       40668   301     668     0               \r\n                  835-        CMASS3  40669   301     669     0       40670   301     670     0               \r\n                  836-        CMASS3  40671   301     671     0       40672   301     672     0               \r\n                  837-        CMASS3  40673   301     673     0       40674   301     674     0               \r\n                  838-        CMASS3  40675   301     675     0       40676   301     676     0               \r\n                  839-        CMASS3  40677   301     677     0       40678   301     678     0               \r\n                  840-        CMASS3  40679   301     679     0       40680   301     680     0               \r\n                  841-        CMASS3  40681   301     681     0       40682   301     682     0               \r\n                  842-        CMASS3  40683   301     683     0       40684   301     684     0               \r\n                  843-        CMASS3  40685   301     685     0       40686   301     686     0               \r\n                  844-        CMASS3  40687   301     687     0       40688   301     688     0               \r\n                  845-        CMASS3  40689   301     689     0       40690   301     690     0               \r\n                  846-        CMASS3  40691   301     691     0       40692   301     692     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  847-        CMASS3  40693   301     693     0       40694   301     694     0               \r\n                  848-        CMASS3  40695   301     695     0       40696   301     696     0               \r\n                  849-        CMASS3  40697   301     697     0       40698   301     698     0               \r\n                  850-        CMASS3  40699   301     699     0       40700   301     700     0               \r\n                  851-        CMASS3  40701   301     701     0       40702   301     702     0               \r\n                  852-        CMASS3  40703   301     703     0       40704   301     704     0               \r\n                  853-        CMASS3  40705   301     705     0       40706   301     706     0               \r\n                  854-        CMASS3  40707   301     707     0       40708   301     708     0               \r\n                  855-        CMASS3  40709   301     709     0       40710   301     710     0               \r\n                  856-        CMASS3  40711   301     711     0       40712   301     712     0               \r\n                  857-        CMASS3  40713   301     713     0       40714   301     714     0               \r\n                  858-        CMASS3  40715   301     715     0       40716   301     716     0               \r\n                  859-        CMASS3  40717   301     717     0       40718   301     718     0               \r\n                  860-        CMASS3  40719   301     719     0       40720   301     720     0               \r\n                  861-        CMASS3  40721   301     721     0       40722   301     722     0               \r\n                  862-        CMASS3  40723   301     723     0       40724   301     724     0               \r\n                  863-        CMASS3  40725   301     725     0       40726   301     726     0               \r\n                  864-        CMASS3  40727   301     727     0       40728   301     728     0               \r\n                  865-        CMASS3  40729   301     729     0       40730   301     730     0               \r\n                  866-        CMASS3  40731   301     731     0       40732   301     732     0               \r\n                  867-        CMASS3  40733   301     733     0       40734   301     734     0               \r\n                  868-        CMASS3  40735   301     735     0       40736   301     736     0               \r\n                  869-        CMASS3  40737   301     737     0       40738   301     738     0               \r\n                  870-        CMASS3  40739   301     739     0       40740   301     740     0               \r\n                  871-        CMASS3  40741   301     741     0       40742   301     742     0               \r\n                  872-        CMASS3  40743   301     743     0       40744   301     744     0               \r\n                  873-        CMASS3  40745   301     745     0       40746   301     746     0               \r\n                  874-        CMASS3  40747   301     747     0       40748   301     748     0               \r\n                  875-        CMASS3  40749   301     749     0       40750   301     750     0               \r\n                  876-        CMASS3  40751   301     751     0       40752   301     752     0               \r\n                  877-        CMASS3  40753   301     753     0       40754   301     754     0               \r\n                  878-        CMASS3  40755   301     755     0       40756   301     756     0               \r\n                  879-        CMASS3  40757   301     757     0       40758   301     758     0               \r\n                  880-        CMASS3  40759   301     759     0       40760   301     760     0               \r\n                  881-        CMASS3  40761   301     761     0       40762   301     762     0               \r\n                  882-        CMASS3  40763   301     763     0       40764   301     764     0               \r\n                  883-        CMASS3  40765   301     765     0       40766   301     766     0               \r\n                  884-        CMASS3  40767   301     767     0       40768   301     768     0               \r\n                  885-        CMASS3  40769   301     769     0       40770   301     770     0               \r\n                  886-        CMASS3  40771   301     771     0       40772   301     772     0               \r\n                  887-        CMASS3  40773   301     773     0       40774   301     774     0               \r\n                  888-        CMASS3  40775   301     775     0       40776   301     776     0               \r\n                  889-        CMASS3  40777   301     777     0       40778   301     778     0               \r\n                  890-        CMASS3  40779   301     779     0       40780   301     780     0               \r\n                  891-        CMASS3  40781   301     781     0       40782   301     782     0               \r\n                  892-        CMASS3  40783   301     783     0       40784   301     784     0               \r\n                  893-        CMASS3  40785   301     785     0       40786   301     786     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  894-        CMASS3  40787   301     787     0       40788   301     788     0               \r\n                  895-        CMASS3  40789   301     789     0       40790   301     790     0               \r\n                  896-        CMASS3  40791   301     791     0       40792   301     792     0               \r\n                  897-        CMASS3  40793   301     793     0       40794   301     794     0               \r\n                  898-        CMASS3  40795   301     795     0       40796   301     796     0               \r\n                  899-        CMASS3  40797   301     797     0       40798   301     798     0               \r\n                  900-        CMASS3  40799   301     799     0       40800   301     800     0               \r\n                  901-        CMASS3  40801   301     801     0       40802   301     802     0               \r\n                  902-        CMASS3  40803   301     803     0       40804   301     804     0               \r\n                  903-        CMASS3  40805   301     805     0       40806   301     806     0               \r\n                  904-        CMASS3  40807   301     807     0       40808   301     808     0               \r\n                  905-        CMASS3  40809   301     809     0       40810   301     810     0               \r\n                  906-        CMASS3  40811   301     811     0       40812   301     812     0               \r\n                  907-        CMASS3  40813   301     813     0       40814   301     814     0               \r\n                  908-        CMASS3  40815   301     815     0       40816   301     816     0               \r\n                  909-        CMASS3  40817   301     817     0       40818   301     818     0               \r\n                  910-        CMASS3  40819   301     819     0       40820   301     820     0               \r\n                  911-        CMASS3  40821   301     821     0       40822   301     822     0               \r\n                  912-        CMASS3  40823   301     823     0       40824   301     824     0               \r\n                  913-        CMASS3  40825   301     825     0       40826   301     826     0               \r\n                  914-        CMASS3  40827   301     827     0       40828   301     828     0               \r\n                  915-        CMASS3  40829   301     829     0       40830   301     830     0               \r\n                  916-        CMASS3  40831   301     831     0       40832   301     832     0               \r\n                  917-        CMASS3  40833   301     833     0       40834   301     834     0               \r\n                  918-        CMASS3  40835   301     835     0       40836   301     836     0               \r\n                  919-        CMASS3  40837   301     837     0       40838   301     838     0               \r\n                  920-        CMASS3  40839   301     839     0       40840   301     840     0               \r\n                  921-        CMASS3  40841   301     841     0       40842   301     842     0               \r\n                  922-        CMASS3  40843   301     843     0       40844   301     844     0               \r\n                  923-        CMASS3  40845   301     845     0       40846   301     846     0               \r\n                  924-        CMASS3  40847   301     847     0       40848   301     848     0               \r\n                  925-        CMASS3  40849   301     849     0       40850   301     850     0               \r\n                  926-        CMASS3  40851   301     851     0       40852   301     852     0               \r\n                  927-        CMASS3  40853   301     853     0       40854   301     854     0               \r\n                  928-        CMASS3  40855   301     855     0       40856   301     856     0               \r\n                  929-        CMASS3  40857   301     857     0       40858   301     858     0               \r\n                  930-        CMASS3  40859   301     859     0       40860   301     860     0               \r\n                  931-        CMASS3  40861   301     861     0       40862   301     862     0               \r\n                  932-        CMASS3  40863   301     863     0       40864   301     864     0               \r\n                  933-        CMASS3  40865   301     865     0       40866   301     866     0               \r\n                  934-        CMASS3  40867   301     867     0       40868   301     868     0               \r\n                  935-        CMASS3  40869   301     869     0       40870   301     870     0               \r\n                  936-        CMASS3  40871   301     871     0       40872   301     872     0               \r\n                  937-        CMASS3  40873   301     873     0       40874   301     874     0               \r\n                  938-        CMASS3  40875   301     875     0       40876   301     876     0               \r\n                  939-        CMASS3  40877   301     877     0       40878   301     878     0               \r\n                  940-        CMASS3  40879   301     879     0       40880   301     880     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  941-        CMASS3  40881   301     881     0       40882   301     882     0               \r\n                  942-        CMASS3  40883   301     883     0       40884   301     884     0               \r\n                  943-        CMASS3  40885   301     885     0       40886   301     886     0               \r\n                  944-        CMASS3  40887   301     887     0       40888   301     888     0               \r\n                  945-        CMASS3  40889   301     889     0       40890   301     890     0               \r\n                  946-        CMASS3  40891   301     891     0       40892   301     892     0               \r\n                  947-        CMASS3  40893   301     893     0       40894   301     894     0               \r\n                  948-        CMASS3  40895   301     895     0       40896   301     896     0               \r\n                  949-        CMASS3  40897   301     897     0       40898   301     898     0               \r\n                  950-        CMASS3  40899   301     899     0       40900   301     900     0               \r\n                  951-        CMASS3  40901   301     901     0       40902   301     902     0               \r\n                  952-        CMASS3  40903   301     903     0       40904   301     904     0               \r\n                  953-        CMASS3  40905   301     905     0       40906   301     906     0               \r\n                  954-        CMASS3  40907   301     907     0       40908   301     908     0               \r\n                  955-        CMASS3  40909   301     909     0       40910   301     910     0               \r\n                  956-        CMASS3  40911   301     911     0       40912   301     912     0               \r\n                  957-        CMASS3  40913   301     913     0       40914   301     914     0               \r\n                  958-        CMASS3  40915   301     915     0       40916   301     916     0               \r\n                  959-        CMASS3  40917   301     917     0       40918   301     918     0               \r\n                  960-        CMASS3  40919   301     919     0       40920   301     920     0               \r\n                  961-        CMASS3  40921   301     921     0       40922   301     922     0               \r\n                  962-        CMASS3  40923   301     923     0       40924   301     924     0               \r\n                  963-        CMASS3  40925   301     925     0       40926   301     926     0               \r\n                  964-        CMASS3  40927   301     927     0       40928   301     928     0               \r\n                  965-        CMASS3  40929   301     929     0       40930   301     930     0               \r\n                  966-        CMASS3  40931   301     931     0       40932   301     932     0               \r\n                  967-        CMASS3  40933   301     933     0       40934   301     934     0               \r\n                  968-        CMASS3  40935   301     935     0       40936   301     936     0               \r\n                  969-        CMASS3  40937   301     937     0       40938   301     938     0               \r\n                  970-        CMASS3  40939   301     939     0       40940   301     940     0               \r\n                  971-        CMASS3  40941   301     941     0       40942   301     942     0               \r\n                  972-        CMASS3  40943   301     943     0       40944   301     944     0               \r\n                  973-        CMASS3  40945   301     945     0       40946   301     946     0               \r\n                  974-        CMASS3  40947   301     947     0       40948   301     948     0               \r\n                  975-        CMASS3  40949   301     949     0       40950   301     950     0               \r\n                  976-        CMASS3  40951   301     951     0       40952   301     952     0               \r\n                  977-        CMASS3  40953   301     953     0       40954   301     954     0               \r\n                  978-        CMASS3  40955   301     955     0       40956   301     956     0               \r\n                  979-        CMASS3  40957   301     957     0       40958   301     958     0               \r\n                  980-        CMASS3  40959   301     959     0       40960   301     960     0               \r\n                  981-        CMASS3  40961   301     961     0       40962   301     962     0               \r\n                  982-        CMASS3  40963   301     963     0       40964   301     964     0               \r\n                  983-        CMASS3  40965   301     965     0       40966   301     966     0               \r\n                  984-        CMASS3  40967   301     967     0       40968   301     968     0               \r\n                  985-        CMASS3  40969   301     969     0       40970   301     970     0               \r\n                  986-        CMASS3  40971   301     971     0       40972   301     972     0               \r\n                  987-        CMASS3  40973   301     973     0       40974   301     974     0               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  988-        CMASS3  40975   301     975     0       40976   301     976     0               \r\n                  989-        CMASS3  40977   301     977     0       40978   301     978     0               \r\n                  990-        CMASS3  40979   301     979     0       40980   301     980     0               \r\n                  991-        CMASS3  40981   301     981     0       40982   301     982     0               \r\n                  992-        CMASS3  40983   301     983     0       40984   301     984     0               \r\n                  993-        CMASS3  40985   301     985     0       40986   301     986     0               \r\n                  994-        CMASS3  40987   301     987     0       40988   301     988     0               \r\n                  995-        CMASS3  40989   301     989     0       40990   301     990     0               \r\n                  996-        CMASS3  40991   301     991     0       40992   301     992     0               \r\n                  997-        CMASS3  40993   301     993     0       40994   301     994     0               \r\n                  998-        CMASS3  40995   301     995     0       40996   301     996     0               \r\n                  999-        CMASS3  40997   301     997     0       40998   301     998     0               \r\n                 1000-        CMASS3  40999   301     999     0       41000   301     1000    0               \r\n                 1001-        PELAS   101     1.0+7           10.0                                            \r\n                 1002-        PMASS   301     10.000                                                          \r\n                 1003-        TIC     9       2               .2                                              \r\n                 1004-        TIC     9       3               .4                                              \r\n                 1005-        TIC     9       4               .6                                              \r\n                 1006-        TIC     9       5               .8                                              \r\n                 1007-        TIC     9       6               1.0                                             \r\n                 1008-        TIC     9       7               1.2                                             \r\n                 1009-        TIC     9       8               1.4                                             \r\n                 1010-        TIC     9       9               1.6                                             \r\n                 1011-        TIC     9       10              1.8                                             \r\n                 1012-        TIC     9       11              2.0                                             \r\n                 1013-        TIC     9       12              1.8                                             \r\n                 1014-        TIC     9       13              1.6                                             \r\n                 1015-        TIC     9       14              1.4                                             \r\n                 1016-        TIC     9       15              1.2                                             \r\n                 1017-        TIC     9       16              1.0                                             \r\n                 1018-        TIC     9       17              .8                                              \r\n                 1019-        TIC     9       18              .6                                              \r\n                 1020-        TIC     9       19              .4                                              \r\n                 1021-        TIC     9       20              .2                                              \r\n                 1022-        TSTEP   9       50      .5-3    1                                               \r\n                              ENDDATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS3    ELEMENTS (ELEMENT TYPE  13) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS3    ELEMENTS (ELEMENT TYPE  27) STARTING WITH ID    40002\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK BGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      2.000000E-01                                                                                             \r\n   5.000000E-04     S      2.000000E-01                                                                                             \r\n   1.000000E-03     S      2.000000E-01                                                                                             \r\n   1.500000E-03     S      2.000000E-01                                                                                             \r\n   2.000000E-03     S      2.000000E-01                                                                                             \r\n   2.500000E-03     S      2.000000E-01                                                                                             \r\n   3.000000E-03     S      1.999998E-01                                                                                             \r\n   3.500000E-03     S      1.999990E-01                                                                                             \r\n   4.000000E-03     S      1.999956E-01                                                                                             \r\n   4.500000E-03     S      1.999835E-01                                                                                             \r\n   5.000000E-03     S      1.999446E-01                                                                                             \r\n   5.500000E-03     S      1.998319E-01                                                                                             \r\n   6.000001E-03     S      1.995340E-01                                                                                             \r\n   6.500001E-03     S      1.988126E-01                                                                                             \r\n   7.000001E-03     S      1.972024E-01                                                                                             \r\n   7.500001E-03     S      1.938779E-01                                                                                             \r\n   8.000000E-03     S      1.875103E-01                                                                                             \r\n   8.500000E-03     S      1.761744E-01                                                                                             \r\n   9.000001E-03     S      1.574026E-01                                                                                             \r\n   9.500001E-03     S      1.284937E-01                                                                                             \r\n   1.000000E-02     S      8.715715E-02                                                                                             \r\n   1.050000E-02     S      3.246389E-02                                                                                             \r\n   1.100000E-02     S     -3.409207E-02                                                                                             \r\n   1.150000E-02     S     -1.077998E-01                                                                                             \r\n   1.200000E-02     S     -1.806858E-01                                                                                             \r\n   1.250000E-02     S     -2.426100E-01                                                                                             \r\n   1.300000E-02     S     -2.835702E-01                                                                                             \r\n   1.350000E-02     S     -2.967559E-01                                                                                             \r\n   1.400000E-02     S     -2.813740E-01                                                                                             \r\n   1.450000E-02     S     -2.440163E-01                                                                                             \r\n   1.500000E-02     S     -1.975956E-01                                                                                             \r\n   1.550000E-02     S     -1.577016E-01                                                                                             \r\n   1.600000E-02     S     -1.373513E-01                                                                                             \r\n   1.650000E-02     S     -1.420684E-01                                                                                             \r\n   1.700000E-02     S     -1.674549E-01                                                                                             \r\n   1.750000E-02     S     -2.006427E-01                                                                                             \r\n   1.800000E-02     S     -2.254013E-01                                                                                             \r\n   1.850000E-02     S     -2.289192E-01                                                                                             \r\n   1.900000E-02     S     -2.072501E-01                                                                                             \r\n   1.949999E-02     S     -1.667930E-01                                                                                             \r\n   1.999999E-02     S     -1.209343E-01                                                                                             \r\n   2.049999E-02     S     -8.337127E-02                                                                                             \r\n   2.099999E-02     S     -6.142456E-02                                                                                             \r\n   2.149999E-02     S     -5.281368E-02                                                                                             \r\n   2.199999E-02     S     -4.766349E-02                                                                                             \r\n   2.249999E-02     S     -3.473721E-02                                                                                             \r\n   2.299999E-02     S     -8.517647E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.684618E-02                                                                                             \r\n   2.399999E-02     S      5.909642E-02                                                                                             \r\n   2.449999E-02     S      7.426479E-02                                                                                             \r\n   2.499999E-02     S      6.447019E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      6.000000E-01                                                                                             \r\n   5.000000E-04     S      6.000000E-01                                                                                             \r\n   1.000000E-03     S      6.000000E-01                                                                                             \r\n   1.500000E-03     S      6.000000E-01                                                                                             \r\n   2.000000E-03     S      5.999995E-01                                                                                             \r\n   2.500000E-03     S      5.999969E-01                                                                                             \r\n   3.000000E-03     S      5.999851E-01                                                                                             \r\n   3.500000E-03     S      5.999399E-01                                                                                             \r\n   4.000000E-03     S      5.997904E-01                                                                                             \r\n   4.500000E-03     S      5.993536E-01                                                                                             \r\n   5.000000E-03     S      5.982147E-01                                                                                             \r\n   5.500000E-03     S      5.955372E-01                                                                                             \r\n   6.000001E-03     S      5.898156E-01                                                                                             \r\n   6.500001E-03     S      5.786372E-01                                                                                             \r\n   7.000001E-03     S      5.585829E-01                                                                                             \r\n   7.500001E-03     S      5.254398E-01                                                                                             \r\n   8.000000E-03     S      4.748784E-01                                                                                             \r\n   8.500000E-03     S      4.036039E-01                                                                                             \r\n   9.000001E-03     S      3.107565E-01                                                                                             \r\n   9.500001E-03     S      1.990760E-01                                                                                             \r\n   1.000000E-02     S      7.521704E-02                                                                                             \r\n   1.050000E-02     S     -5.124467E-02                                                                                             \r\n   1.100000E-02     S     -1.701098E-01                                                                                             \r\n   1.150000E-02     S     -2.734966E-01                                                                                             \r\n   1.200000E-02     S     -3.582492E-01                                                                                             \r\n   1.250000E-02     S     -4.265984E-01                                                                                             \r\n   1.300000E-02     S     -4.844747E-01                                                                                             \r\n   1.350000E-02     S     -5.379733E-01                                                                                             \r\n   1.400000E-02     S     -5.895417E-01                                                                                             \r\n   1.450000E-02     S     -6.358776E-01                                                                                             \r\n   1.500000E-02     S     -6.689011E-01                                                                                             \r\n   1.550000E-02     S     -6.796689E-01                                                                                             \r\n   1.600000E-02     S     -6.634405E-01                                                                                             \r\n   1.650000E-02     S     -6.232280E-01                                                                                             \r\n   1.700000E-02     S     -5.696836E-01                                                                                             \r\n   1.750000E-02     S     -5.169850E-01                                                                                             \r\n   1.800000E-02     S     -4.765571E-01                                                                                             \r\n   1.850000E-02     S     -4.518040E-01                                                                                             \r\n   1.900000E-02     S     -4.366774E-01                                                                                             \r\n   1.949999E-02     S     -4.189520E-01                                                                                             \r\n   1.999999E-02     S     -3.865716E-01                                                                                             \r\n   2.049999E-02     S     -3.337749E-01                                                                                             \r\n   2.099999E-02     S     -2.638749E-01                                                                                             \r\n   2.149999E-02     S     -1.874562E-01                                                                                             \r\n   2.199999E-02     S     -1.172585E-01                                                                                             \r\n   2.249999E-02     S     -6.266554E-02                                                                                             \r\n   2.299999E-02     S     -2.661881E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.096438E-03                                                                                             \r\n   2.399999E-02     S      4.815150E-03                                                                                             \r\n   2.449999E-02     S      1.147075E-02                                                                                             \r\n   2.499999E-02     S      1.676299E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      8.000000E-01                                                                                             \r\n   5.000000E-04     S      8.000000E-01                                                                                             \r\n   1.000000E-03     S      8.000000E-01                                                                                             \r\n   1.500000E-03     S      7.999992E-01                                                                                             \r\n   2.000000E-03     S      7.999949E-01                                                                                             \r\n   2.500000E-03     S      7.999733E-01                                                                                             \r\n   3.000000E-03     S      7.998867E-01                                                                                             \r\n   3.500000E-03     S      7.995940E-01                                                                                             \r\n   4.000000E-03     S      7.987384E-01                                                                                             \r\n   4.500000E-03     S      7.965374E-01                                                                                             \r\n   5.000000E-03     S      7.914917E-01                                                                                             \r\n   5.500000E-03     S      7.810838E-01                                                                                             \r\n   6.000001E-03     S      7.616301E-01                                                                                             \r\n   6.500001E-03     S      7.285125E-01                                                                                             \r\n   7.000001E-03     S      6.769831E-01                                                                                             \r\n   7.500001E-03     S      6.035454E-01                                                                                             \r\n   8.000000E-03     S      5.075912E-01                                                                                             \r\n   8.500000E-03     S      3.926423E-01                                                                                             \r\n   9.000001E-03     S      2.664276E-01                                                                                             \r\n   9.500001E-03     S      1.393080E-01                                                                                             \r\n   1.000000E-02     S      2.124779E-02                                                                                             \r\n   1.050000E-02     S     -8.164138E-02                                                                                             \r\n   1.100000E-02     S     -1.694285E-01                                                                                             \r\n   1.150000E-02     S     -2.482141E-01                                                                                             \r\n   1.200000E-02     S     -3.271649E-01                                                                                             \r\n   1.250000E-02     S     -4.138179E-01                                                                                             \r\n   1.300000E-02     S     -5.098243E-01                                                                                             \r\n   1.350000E-02     S     -6.093398E-01                                                                                             \r\n   1.400000E-02     S     -7.010622E-01                                                                                             \r\n   1.450000E-02     S     -7.730126E-01                                                                                             \r\n   1.500000E-02     S     -8.175996E-01                                                                                             \r\n   1.550000E-02     S     -8.342679E-01                                                                                             \r\n   1.600000E-02     S     -8.283781E-01                                                                                             \r\n   1.650000E-02     S     -8.071674E-01                                                                                             \r\n   1.700000E-02     S     -7.753937E-01                                                                                             \r\n   1.750000E-02     S     -7.334365E-01                                                                                             \r\n   1.800000E-02     S     -6.790191E-01                                                                                             \r\n   1.850000E-02     S     -6.112984E-01                                                                                             \r\n   1.900000E-02     S     -5.343794E-01                                                                                             \r\n   1.949999E-02     S     -4.575346E-01                                                                                             \r\n   1.999999E-02     S     -3.914919E-01                                                                                             \r\n   2.049999E-02     S     -3.428312E-01                                                                                             \r\n   2.099999E-02     S     -3.100227E-01                                                                                             \r\n   2.149999E-02     S     -2.838856E-01                                                                                             \r\n   2.199999E-02     S     -2.525902E-01                                                                                             \r\n   2.249999E-02     S     -2.084266E-01                                                                                             \r\n   2.299999E-02     S     -1.523059E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.323521E-02                                                                                             \r\n   2.399999E-02     S     -4.307547E-02                                                                                             \r\n   2.449999E-02     S     -9.814604E-03                                                                                             \r\n   2.499999E-02     S      6.520586E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.000000E+00                                                                                             \r\n   5.000000E-04     S      9.999999E-01                                                                                             \r\n   1.000000E-03     S      9.999991E-01                                                                                             \r\n   1.500000E-03     S      9.999921E-01                                                                                             \r\n   2.000000E-03     S      9.999532E-01                                                                                             \r\n   2.500000E-03     S      9.997867E-01                                                                                             \r\n   3.000000E-03     S      9.992087E-01                                                                                             \r\n   3.500000E-03     S      9.975169E-01                                                                                             \r\n   4.000000E-03     S      9.932414E-01                                                                                             \r\n   4.500000E-03     S      9.837537E-01                                                                                             \r\n   5.000000E-03     S      9.650443E-01                                                                                             \r\n   5.500000E-03     S      9.319757E-01                                                                                             \r\n   6.000001E-03     S      8.792740E-01                                                                                             \r\n   6.500001E-03     S      8.032469E-01                                                                                             \r\n   7.000001E-03     S      7.037528E-01                                                                                             \r\n   7.500001E-03     S      5.855225E-01                                                                                             \r\n   8.000000E-03     S      4.578661E-01                                                                                             \r\n   8.500000E-03     S      3.323105E-01                                                                                             \r\n   9.000001E-03     S      2.187158E-01                                                                                             \r\n   9.500001E-03     S      1.214363E-01                                                                                             \r\n   1.000000E-02     S      3.747671E-02                                                                                             \r\n   1.050000E-02     S     -4.207973E-02                                                                                             \r\n   1.100000E-02     S     -1.276788E-01                                                                                             \r\n   1.150000E-02     S     -2.259402E-01                                                                                             \r\n   1.200000E-02     S     -3.361223E-01                                                                                             \r\n   1.250000E-02     S     -4.504136E-01                                                                                             \r\n   1.300000E-02     S     -5.579979E-01                                                                                             \r\n   1.350000E-02     S     -6.506143E-01                                                                                             \r\n   1.400000E-02     S     -7.263325E-01                                                                                             \r\n   1.450000E-02     S     -7.892278E-01                                                                                             \r\n   1.500000E-02     S     -8.451061E-01                                                                                             \r\n   1.550000E-02     S     -8.959538E-01                                                                                             \r\n   1.600000E-02     S     -9.367247E-01                                                                                             \r\n   1.650000E-02     S     -9.567593E-01                                                                                             \r\n   1.700000E-02     S     -9.452867E-01                                                                                             \r\n   1.750000E-02     S     -8.978496E-01                                                                                             \r\n   1.800000E-02     S     -8.198157E-01                                                                                             \r\n   1.850000E-02     S     -7.248560E-01                                                                                             \r\n   1.900000E-02     S     -6.293044E-01                                                                                             \r\n   1.949999E-02     S     -5.457208E-01                                                                                             \r\n   1.999999E-02     S     -4.792122E-01                                                                                             \r\n   2.049999E-02     S     -4.280668E-01                                                                                             \r\n   2.099999E-02     S     -3.874177E-01                                                                                             \r\n   2.149999E-02     S     -3.529460E-01                                                                                             \r\n   2.199999E-02     S     -3.221437E-01                                                                                             \r\n   2.249999E-02     S     -2.929160E-01                                                                                             \r\n   2.299999E-02     S     -2.615582E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.226805E-01                                                                                             \r\n   2.399999E-02     S     -1.720253E-01                                                                                             \r\n   2.449999E-02     S     -1.105208E-01                                                                                             \r\n   2.499999E-02     S     -4.634988E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.800000E+00                                                                                             \r\n   5.000000E-04     S      1.797927E+00                                                                                             \r\n   1.000000E-03     S      1.787102E+00                                                                                             \r\n   1.500000E-03     S      1.755303E+00                                                                                             \r\n   2.000000E-03     S      1.690605E+00                                                                                             \r\n   2.500000E-03     S      1.589987E+00                                                                                             \r\n   3.000000E-03     S      1.464497E+00                                                                                             \r\n   3.500000E-03     S      1.334881E+00                                                                                             \r\n   4.000000E-03     S      1.220342E+00                                                                                             \r\n   4.500000E-03     S      1.127921E+00                                                                                             \r\n   5.000000E-03     S      1.049639E+00                                                                                             \r\n   5.500000E-03     S      9.691646E-01                                                                                             \r\n   6.000001E-03     S      8.733443E-01                                                                                             \r\n   6.500001E-03     S      7.607322E-01                                                                                             \r\n   7.000001E-03     S      6.416159E-01                                                                                             \r\n   7.500001E-03     S      5.300467E-01                                                                                             \r\n   8.000000E-03     S      4.338370E-01                                                                                             \r\n   8.500000E-03     S      3.495873E-01                                                                                             \r\n   9.000001E-03     S      2.659540E-01                                                                                             \r\n   9.500001E-03     S      1.724412E-01                                                                                             \r\n   1.000000E-02     S      6.725135E-02                                                                                             \r\n   1.050000E-02     S     -4.130216E-02                                                                                             \r\n   1.100000E-02     S     -1.405079E-01                                                                                             \r\n   1.150000E-02     S     -2.217086E-01                                                                                             \r\n   1.200000E-02     S     -2.853948E-01                                                                                             \r\n   1.250000E-02     S     -3.395713E-01                                                                                             \r\n   1.300000E-02     S     -3.930537E-01                                                                                             \r\n   1.350000E-02     S     -4.489467E-01                                                                                             \r\n   1.400000E-02     S     -5.031651E-01                                                                                             \r\n   1.450000E-02     S     -5.488954E-01                                                                                             \r\n   1.500000E-02     S     -5.833790E-01                                                                                             \r\n   1.550000E-02     S     -6.116607E-01                                                                                             \r\n   1.600000E-02     S     -6.442282E-01                                                                                             \r\n   1.650000E-02     S     -6.900287E-01                                                                                             \r\n   1.700000E-02     S     -7.498215E-01                                                                                             \r\n   1.750000E-02     S     -8.146790E-01                                                                                             \r\n   1.800000E-02     S     -8.708181E-01                                                                                             \r\n   1.850000E-02     S     -9.074854E-01                                                                                             \r\n   1.900000E-02     S     -9.225335E-01                                                                                             \r\n   1.949999E-02     S     -9.220529E-01                                                                                             \r\n   1.999999E-02     S     -9.146458E-01                                                                                             \r\n   2.049999E-02     S     -9.045979E-01                                                                                             \r\n   2.099999E-02     S     -8.887582E-01                                                                                             \r\n   2.149999E-02     S     -8.591183E-01                                                                                             \r\n   2.199999E-02     S     -8.090271E-01                                                                                             \r\n   2.249999E-02     S     -7.385848E-01                                                                                             \r\n   2.299999E-02     S     -6.556048E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -5.718018E-01                                                                                             \r\n   2.399999E-02     S     -4.970895E-01                                                                                             \r\n   2.449999E-02     S     -4.357861E-01                                                                                             \r\n   2.499999E-02     S     -3.866993E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.800000E+00                                                                                             \r\n   5.000000E-04     S      1.797927E+00                                                                                             \r\n   1.000000E-03     S      1.787102E+00                                                                                             \r\n   1.500000E-03     S      1.755303E+00                                                                                             \r\n   2.000000E-03     S      1.690605E+00                                                                                             \r\n   2.500000E-03     S      1.589987E+00                                                                                             \r\n   3.000000E-03     S      1.464497E+00                                                                                             \r\n   3.500000E-03     S      1.334882E+00                                                                                             \r\n   4.000000E-03     S      1.220344E+00                                                                                             \r\n   4.500000E-03     S      1.127929E+00                                                                                             \r\n   5.000000E-03     S      1.049666E+00                                                                                             \r\n   5.500000E-03     S      9.692486E-01                                                                                             \r\n   6.000001E-03     S      8.735773E-01                                                                                             \r\n   6.500001E-03     S      7.613259E-01                                                                                             \r\n   7.000001E-03     S      6.430146E-01                                                                                             \r\n   7.500001E-03     S      5.331078E-01                                                                                             \r\n   8.000000E-03     S      4.400819E-01                                                                                             \r\n   8.500000E-03     S      3.615001E-01                                                                                             \r\n   9.000001E-03     S      2.872527E-01                                                                                             \r\n   9.500001E-03     S      2.081943E-01                                                                                             \r\n   1.000000E-02     S      1.236727E-01                                                                                             \r\n   1.050000E-02     S      4.246569E-02                                                                                             \r\n   1.100000E-02     S     -2.346244E-02                                                                                             \r\n   1.150000E-02     S     -6.781024E-02                                                                                             \r\n   1.200000E-02     S     -9.505592E-02                                                                                             \r\n   1.250000E-02     S     -1.182763E-01                                                                                             \r\n   1.300000E-02     S     -1.512924E-01                                                                                             \r\n   1.350000E-02     S     -2.006232E-01                                                                                             \r\n   1.400000E-02     S     -2.625974E-01                                                                                             \r\n   1.450000E-02     S     -3.271393E-01                                                                                             \r\n   1.500000E-02     S     -3.850937E-01                                                                                             \r\n   1.550000E-02     S     -4.338149E-01                                                                                             \r\n   1.600000E-02     S     -4.774528E-01                                                                                             \r\n   1.650000E-02     S     -5.224614E-01                                                                                             \r\n   1.700000E-02     S     -5.721989E-01                                                                                             \r\n   1.750000E-02     S     -6.247362E-01                                                                                             \r\n   1.800000E-02     S     -6.751533E-01                                                                                             \r\n   1.850000E-02     S     -7.200260E-01                                                                                             \r\n   1.900000E-02     S     -7.602227E-01                                                                                             \r\n   1.949999E-02     S     -7.996759E-01                                                                                             \r\n   1.999999E-02     S     -8.411381E-01                                                                                             \r\n   2.049999E-02     S     -8.824293E-01                                                                                             \r\n   2.099999E-02     S     -9.163634E-01                                                                                             \r\n   2.149999E-02     S     -9.346734E-01                                                                                             \r\n   2.199999E-02     S     -9.330769E-01                                                                                             \r\n   2.249999E-02     S     -9.136242E-01                                                                                             \r\n   2.299999E-02     S     -8.824862E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.448462E-01                                                                                             \r\n   2.399999E-02     S     -8.008913E-01                                                                                             \r\n   2.449999E-02     S     -7.461870E-01                                                                                             \r\n   2.499999E-02     S     -6.764216E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.400000E+00                                                                                             \r\n   5.000000E-04     S      1.399989E+00                                                                                             \r\n   1.000000E-03     S      1.399878E+00                                                                                             \r\n   1.500000E-03     S      1.399263E+00                                                                                             \r\n   2.000000E-03     S      1.396911E+00                                                                                             \r\n   2.500000E-03     S      1.390008E+00                                                                                             \r\n   3.000000E-03     S      1.373571E+00                                                                                             \r\n   3.500000E-03     S      1.340733E+00                                                                                             \r\n   4.000000E-03     S      1.284532E+00                                                                                             \r\n   4.500000E-03     S      1.201017E+00                                                                                             \r\n   5.000000E-03     S      1.092389E+00                                                                                             \r\n   5.500000E-03     S      9.681978E-01                                                                                             \r\n   6.000001E-03     S      8.431584E-01                                                                                             \r\n   6.500001E-03     S      7.319025E-01                                                                                             \r\n   7.000001E-03     S      6.430621E-01                                                                                             \r\n   7.500001E-03     S      5.759653E-01                                                                                             \r\n   8.000000E-03     S      5.220922E-01                                                                                             \r\n   8.500000E-03     S      4.706844E-01                                                                                             \r\n   9.000001E-03     S      4.152273E-01                                                                                             \r\n   9.500001E-03     S      3.567752E-01                                                                                             \r\n   1.000000E-02     S      3.019874E-01                                                                                             \r\n   1.050000E-02     S      2.572139E-01                                                                                             \r\n   1.100000E-02     S      2.227143E-01                                                                                             \r\n   1.150000E-02     S      1.911625E-01                                                                                             \r\n   1.200000E-02     S      1.517596E-01                                                                                             \r\n   1.250000E-02     S      9.737088E-02                                                                                             \r\n   1.300000E-02     S      2.980537E-02                                                                                             \r\n   1.350000E-02     S     -4.062866E-02                                                                                             \r\n   1.400000E-02     S     -1.013719E-01                                                                                             \r\n   1.450000E-02     S     -1.457147E-01                                                                                             \r\n   1.500000E-02     S     -1.773312E-01                                                                                             \r\n   1.550000E-02     S     -2.080542E-01                                                                                             \r\n   1.600000E-02     S     -2.502044E-01                                                                                             \r\n   1.650000E-02     S     -3.085220E-01                                                                                             \r\n   1.700000E-02     S     -3.771063E-01                                                                                             \r\n   1.750000E-02     S     -4.434403E-01                                                                                             \r\n   1.800000E-02     S     -4.967796E-01                                                                                             \r\n   1.850000E-02     S     -5.352274E-01                                                                                             \r\n   1.900000E-02     S     -5.667236E-01                                                                                             \r\n   1.949999E-02     S     -6.033499E-01                                                                                             \r\n   1.999999E-02     S     -6.529068E-01                                                                                             \r\n   2.049999E-02     S     -7.135251E-01                                                                                             \r\n   2.099999E-02     S     -7.748904E-01                                                                                             \r\n   2.149999E-02     S     -8.250577E-01                                                                                             \r\n   2.199999E-02     S     -8.580109E-01                                                                                             \r\n   2.249999E-02     S     -8.767303E-01                                                                                             \r\n   2.299999E-02     S     -8.897819E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.040138E-01                                                                                             \r\n   2.399999E-02     S     -9.186167E-01                                                                                             \r\n   2.449999E-02     S     -9.247617E-01                                                                                             \r\n   2.499999E-02     S     -9.110588E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.000000E+00                                                                                             \r\n   5.000000E-04     S      1.000000E+00                                                                                             \r\n   1.000000E-03     S      9.999996E-01                                                                                             \r\n   1.500000E-03     S      9.999961E-01                                                                                             \r\n   2.000000E-03     S      9.999766E-01                                                                                             \r\n   2.500000E-03     S      9.998934E-01                                                                                             \r\n   3.000000E-03     S      9.996044E-01                                                                                             \r\n   3.500000E-03     S      9.987585E-01                                                                                             \r\n   4.000000E-03     S      9.966207E-01                                                                                             \r\n   4.500000E-03     S      9.918768E-01                                                                                             \r\n   5.000000E-03     S      9.825222E-01                                                                                             \r\n   5.500000E-03     S      9.659878E-01                                                                                             \r\n   6.000001E-03     S      9.396369E-01                                                                                             \r\n   6.500001E-03     S      9.016234E-01                                                                                             \r\n   7.000001E-03     S      8.518763E-01                                                                                             \r\n   7.500001E-03     S      7.927610E-01                                                                                             \r\n   8.000000E-03     S      7.289321E-01                                                                                             \r\n   8.500000E-03     S      6.661525E-01                                                                                             \r\n   9.000001E-03     S      6.093503E-01                                                                                             \r\n   9.500001E-03     S      5.606978E-01                                                                                             \r\n   1.000000E-02     S      5.186869E-01                                                                                             \r\n   1.050000E-02     S      4.788362E-01                                                                                             \r\n   1.100000E-02     S      4.358766E-01                                                                                             \r\n   1.150000E-02     S      3.864088E-01                                                                                             \r\n   1.200000E-02     S      3.306412E-01                                                                                             \r\n   1.250000E-02     S      2.721987E-01                                                                                             \r\n   1.300000E-02     S      2.160326E-01                                                                                             \r\n   1.350000E-02     S      1.655702E-01                                                                                             \r\n   1.400000E-02     S      1.207588E-01                                                                                             \r\n   1.450000E-02     S      7.818323E-02                                                                                             \r\n   1.500000E-02     S      3.320773E-02                                                                                             \r\n   1.550000E-02     S     -1.715590E-02                                                                                             \r\n   1.600000E-02     S     -7.243516E-02                                                                                             \r\n   1.650000E-02     S     -1.290782E-01                                                                                             \r\n   1.700000E-02     S     -1.827828E-01                                                                                             \r\n   1.750000E-02     S     -2.312724E-01                                                                                             \r\n   1.800000E-02     S     -2.757182E-01                                                                                             \r\n   1.850000E-02     S     -3.198912E-01                                                                                             \r\n   1.900000E-02     S     -3.676163E-01                                                                                             \r\n   1.949999E-02     S     -4.202256E-01                                                                                             \r\n   1.999999E-02     S     -4.757032E-01                                                                                             \r\n   2.049999E-02     S     -5.300686E-01                                                                                             \r\n   2.099999E-02     S     -5.800328E-01                                                                                             \r\n   2.149999E-02     S     -6.251019E-01                                                                                             \r\n   2.199999E-02     S     -6.676880E-01                                                                                             \r\n   2.249999E-02     S     -7.111528E-01                                                                                             \r\n   2.299999E-02     S     -7.571254E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.039213E-01                                                                                             \r\n   2.399999E-02     S     -8.471164E-01                                                                                             \r\n   2.449999E-02     S     -8.818358E-01                                                                                             \r\n   2.499999E-02     S     -9.051509E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      6.000000E-01                                                                                             \r\n   5.000000E-04     S      6.000054E-01                                                                                             \r\n   1.000000E-03     S      6.000610E-01                                                                                             \r\n   1.500000E-03     S      6.003687E-01                                                                                             \r\n   2.000000E-03     S      6.015443E-01                                                                                             \r\n   2.500000E-03     S      6.049935E-01                                                                                             \r\n   3.000000E-03     S      6.132034E-01                                                                                             \r\n   3.500000E-03     S      6.295885E-01                                                                                             \r\n   4.000000E-03     S      6.575766E-01                                                                                             \r\n   4.500000E-03     S      6.990065E-01                                                                                             \r\n   5.000000E-03     S      7.524667E-01                                                                                             \r\n   5.500000E-03     S      8.125540E-01                                                                                             \r\n   6.000001E-03     S      8.707821E-01                                                                                             \r\n   6.500001E-03     S      9.180257E-01                                                                                             \r\n   7.000001E-03     S      9.474029E-01                                                                                             \r\n   7.500001E-03     S      9.560875E-01                                                                                             \r\n   8.000000E-03     S      9.450853E-01                                                                                             \r\n   8.500000E-03     S      9.172885E-01                                                                                             \r\n   9.000001E-03     S      8.752737E-01                                                                                             \r\n   9.500001E-03     S      8.204954E-01                                                                                             \r\n   1.000000E-02     S      7.544727E-01                                                                                             \r\n   1.050000E-02     S      6.809542E-01                                                                                             \r\n   1.100000E-02     S      6.070179E-01                                                                                             \r\n   1.150000E-02     S      5.415317E-01                                                                                             \r\n   1.200000E-02     S      4.912033E-01                                                                                             \r\n   1.250000E-02     S      4.564521E-01                                                                                             \r\n   1.300000E-02     S      4.300266E-01                                                                                             \r\n   1.350000E-02     S      3.999715E-01                                                                                             \r\n   1.400000E-02     S      3.558412E-01                                                                                             \r\n   1.450000E-02     S      2.947007E-01                                                                                             \r\n   1.500000E-02     S      2.231410E-01                                                                                             \r\n   1.550000E-02     S      1.537081E-01                                                                                             \r\n   1.600000E-02     S      9.759292E-02                                                                                             \r\n   1.650000E-02     S      5.793717E-02                                                                                             \r\n   1.700000E-02     S      2.795235E-02                                                                                             \r\n   1.750000E-02     S     -4.851677E-03                                                                                             \r\n   1.800000E-02     S     -5.088966E-02                                                                                             \r\n   1.850000E-02     S     -1.120615E-01                                                                                             \r\n   1.900000E-02     S     -1.807438E-01                                                                                             \r\n   1.949999E-02     S     -2.448371E-01                                                                                             \r\n   1.999999E-02     S     -2.955827E-01                                                                                             \r\n   2.049999E-02     S     -3.330705E-01                                                                                             \r\n   2.099999E-02     S     -3.659039E-01                                                                                             \r\n   2.149999E-02     S     -4.053376E-01                                                                                             \r\n   2.199999E-02     S     -4.578297E-01                                                                                             \r\n   2.249999E-02     S     -5.209293E-01                                                                                             \r\n   2.299999E-02     S     -5.851241E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.402619E-01                                                                                             \r\n   2.399999E-02     S     -6.821428E-01                                                                                             \r\n   2.449999E-02     S     -7.148568E-01                                                                                             \r\n   2.499999E-02     S     -7.473989E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      2.000000E-01                                                                                             \r\n   5.000000E-04     S      2.010363E-01                                                                                             \r\n   1.000000E-03     S      2.064490E-01                                                                                             \r\n   1.500000E-03     S      2.223486E-01                                                                                             \r\n   2.000000E-03     S      2.546977E-01                                                                                             \r\n   2.500000E-03     S      3.050067E-01                                                                                             \r\n   3.000000E-03     S      3.677514E-01                                                                                             \r\n   3.500000E-03     S      4.325583E-01                                                                                             \r\n   4.000000E-03     S      4.898247E-01                                                                                             \r\n   4.500000E-03     S      5.360226E-01                                                                                             \r\n   5.000000E-03     S      5.751243E-01                                                                                             \r\n   5.500000E-03     S      6.152461E-01                                                                                             \r\n   6.000001E-03     S      6.628502E-01                                                                                             \r\n   6.500001E-03     S      7.184113E-01                                                                                             \r\n   7.000001E-03     S      7.762957E-01                                                                                             \r\n   7.500001E-03     S      8.285968E-01                                                                                             \r\n   8.000000E-03     S      8.699627E-01                                                                                             \r\n   8.500000E-03     S      8.999402E-01                                                                                             \r\n   9.000001E-03     S      9.213197E-01                                                                                             \r\n   9.500001E-03     S      9.359522E-01                                                                                             \r\n   1.000000E-02     S      9.413618E-01                                                                                             \r\n   1.050000E-02     S      9.309060E-01                                                                                             \r\n   1.100000E-02     S      8.976805E-01                                                                                             \r\n   1.150000E-02     S      8.396563E-01                                                                                             \r\n   1.200000E-02     S      7.625707E-01                                                                                             \r\n   1.250000E-02     S      6.785023E-01                                                                                             \r\n   1.300000E-02     S      6.008325E-01                                                                                             \r\n   1.350000E-02     S      5.385284E-01                                                                                             \r\n   1.400000E-02     S      4.929370E-01                                                                                             \r\n   1.450000E-02     S      4.585474E-01                                                                                             \r\n   1.500000E-02     S      4.267458E-01                                                                                             \r\n   1.550000E-02     S      3.900952E-01                                                                                             \r\n   1.600000E-02     S      3.449168E-01                                                                                             \r\n   1.650000E-02     S      2.914712E-01                                                                                             \r\n   1.700000E-02     S      2.325777E-01                                                                                             \r\n   1.750000E-02     S      1.720247E-01                                                                                             \r\n   1.800000E-02     S      1.135298E-01                                                                                             \r\n   1.850000E-02     S      6.008010E-02                                                                                             \r\n   1.900000E-02     S      1.314841E-02                                                                                             \r\n   1.949999E-02     S     -2.822081E-02                                                                                             \r\n   1.999999E-02     S     -6.771046E-02                                                                                             \r\n   2.049999E-02     S     -1.105603E-01                                                                                             \r\n   2.099999E-02     S     -1.609545E-01                                                                                             \r\n   2.149999E-02     S     -2.192941E-01                                                                                             \r\n   2.199999E-02     S     -2.812855E-01                                                                                             \r\n   2.249999E-02     S     -3.399476E-01                                                                                             \r\n   2.299999E-02     S     -3.897291E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -4.302279E-01                                                                                             \r\n   2.399999E-02     S     -4.668834E-01                                                                                             \r\n   2.449999E-02     S     -5.078064E-01                                                                                             \r\n   2.499999E-02     S     -5.585265E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.036297E-03                                                                                             \r\n   1.000000E-03     S      6.448957E-03                                                                                             \r\n   1.500000E-03     S      2.234865E-02                                                                                             \r\n   2.000000E-03     S      5.469774E-02                                                                                             \r\n   2.500000E-03     S      1.050067E-01                                                                                             \r\n   3.000000E-03     S      1.677516E-01                                                                                             \r\n   3.500000E-03     S      2.325593E-01                                                                                             \r\n   4.000000E-03     S      2.898291E-01                                                                                             \r\n   4.500000E-03     S      3.360392E-01                                                                                             \r\n   5.000000E-03     S      3.751797E-01                                                                                             \r\n   5.500000E-03     S      4.154142E-01                                                                                             \r\n   6.000001E-03     S      4.633162E-01                                                                                             \r\n   6.500001E-03     S      5.195987E-01                                                                                             \r\n   7.000001E-03     S      5.790933E-01                                                                                             \r\n   7.500001E-03     S      6.347188E-01                                                                                             \r\n   8.000000E-03     S      6.824524E-01                                                                                             \r\n   8.500000E-03     S      7.237657E-01                                                                                             \r\n   9.000001E-03     S      7.639171E-01                                                                                             \r\n   9.500001E-03     S      8.074585E-01                                                                                             \r\n   1.000000E-02     S      8.542047E-01                                                                                             \r\n   1.050000E-02     S      8.984423E-01                                                                                             \r\n   1.100000E-02     S      9.317729E-01                                                                                             \r\n   1.150000E-02     S      9.474572E-01                                                                                             \r\n   1.200000E-02     S      9.432592E-01                                                                                             \r\n   1.250000E-02     S      9.211190E-01                                                                                             \r\n   1.300000E-02     S      8.844186E-01                                                                                             \r\n   1.350000E-02     S      8.353205E-01                                                                                             \r\n   1.400000E-02     S      7.743906E-01                                                                                             \r\n   1.450000E-02     S      7.027317E-01                                                                                             \r\n   1.500000E-02     S      6.246831E-01                                                                                             \r\n   1.550000E-02     S      5.484668E-01                                                                                             \r\n   1.600000E-02     S      4.835350E-01                                                                                             \r\n   1.650000E-02     S      4.358509E-01                                                                                             \r\n   1.700000E-02     S      4.041026E-01                                                                                             \r\n   1.750000E-02     S      3.795864E-01                                                                                             \r\n   1.800000E-02     S      3.502883E-01                                                                                             \r\n   1.850000E-02     S      3.069992E-01                                                                                             \r\n   1.900000E-02     S      2.479411E-01                                                                                             \r\n   1.949999E-02     S      1.792513E-01                                                                                             \r\n   1.999999E-02     S      1.111955E-01                                                                                             \r\n   2.049999E-02     S      5.248595E-02                                                                                             \r\n   2.099999E-02     S      6.008454E-03                                                                                             \r\n   2.149999E-02     S     -3.185295E-02                                                                                             \r\n   2.199999E-02     S     -6.839571E-02                                                                                             \r\n   2.249999E-02     S     -1.103272E-01                                                                                             \r\n   2.299999E-02     S     -1.605586E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.175282E-01                                                                                             \r\n   2.399999E-02     S     -2.768478E-01                                                                                             \r\n   2.449999E-02     S     -3.338889E-01                                                                                             \r\n   2.499999E-02     S     -3.858312E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      5.341882E-06                                                                                             \r\n   1.000000E-03     S      6.100017E-05                                                                                             \r\n   1.500000E-03     S      3.687272E-04                                                                                             \r\n   2.000000E-03     S      1.544845E-03                                                                                             \r\n   2.500000E-03     S      4.996617E-03                                                                                             \r\n   3.000000E-03     S      1.321833E-02                                                                                             \r\n   3.500000E-03     S      2.964850E-02                                                                                             \r\n   4.000000E-03     S      5.778622E-02                                                                                             \r\n   4.500000E-03     S      9.965292E-02                                                                                             \r\n   5.000000E-03     S      1.542519E-01                                                                                             \r\n   5.500000E-03     S      2.170168E-01                                                                                             \r\n   6.000001E-03     S      2.809666E-01                                                                                             \r\n   6.500001E-03     S      3.393884E-01                                                                                             \r\n   7.000001E-03     S      3.888200E-01                                                                                             \r\n   7.500001E-03     S      4.306477E-01                                                                                             \r\n   8.000000E-03     S      4.702069E-01                                                                                             \r\n   8.500000E-03     S      5.136846E-01                                                                                             \r\n   9.000001E-03     S      5.645174E-01                                                                                             \r\n   9.500001E-03     S      6.214199E-01                                                                                             \r\n   1.000000E-02     S      6.792572E-01                                                                                             \r\n   1.050000E-02     S      7.322027E-01                                                                                             \r\n   1.100000E-02     S      7.771376E-01                                                                                             \r\n   1.150000E-02     S      8.150524E-01                                                                                             \r\n   1.200000E-02     S      8.495089E-01                                                                                             \r\n   1.250000E-02     S      8.831770E-01                                                                                             \r\n   1.300000E-02     S      9.147737E-01                                                                                             \r\n   1.350000E-02     S      9.385077E-01                                                                                             \r\n   1.400000E-02     S      9.465010E-01                                                                                             \r\n   1.450000E-02     S      9.327147E-01                                                                                             \r\n   1.500000E-02     S      8.959718E-01                                                                                             \r\n   1.550000E-02     S      8.403403E-01                                                                                             \r\n   1.600000E-02     S      7.729259E-01                                                                                             \r\n   1.650000E-02     S      7.007511E-01                                                                                             \r\n   1.700000E-02     S      6.287532E-01                                                                                             \r\n   1.750000E-02     S      5.598412E-01                                                                                             \r\n   1.800000E-02     S      4.962709E-01                                                                                             \r\n   1.850000E-02     S      4.406257E-01                                                                                             \r\n   1.900000E-02     S      3.951437E-01                                                                                             \r\n   1.949999E-02     S      3.596787E-01                                                                                             \r\n   1.999999E-02     S      3.300071E-01                                                                                             \r\n   2.049999E-02     S      2.983392E-01                                                                                             \r\n   2.099999E-02     S      2.565179E-01                                                                                             \r\n   2.149999E-02     S      2.003841E-01                                                                                             \r\n   2.199999E-02     S      1.326146E-01                                                                                             \r\n   2.249999E-02     S      6.193501E-02                                                                                             \r\n   2.299999E-02     S     -1.255329E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -5.049701E-02                                                                                             \r\n   2.399999E-02     S     -8.683186E-02                                                                                             \r\n   2.449999E-02     S     -1.181399E-01                                                                                             \r\n   2.499999E-02     S     -1.546051E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      2.753621E-08                                                                                             \r\n   1.000000E-03     S      4.575246E-07                                                                                             \r\n   1.500000E-03     S      3.951048E-06                                                                                             \r\n   2.000000E-03     S      2.342787E-05                                                                                             \r\n   2.500000E-03     S      1.066403E-04                                                                                             \r\n   3.000000E-03     S      3.956272E-04                                                                                             \r\n   3.500000E-03     S      1.241516E-03                                                                                             \r\n   4.000000E-03     S      3.379296E-03                                                                                             \r\n   4.500000E-03     S      8.123136E-03                                                                                             \r\n   5.000000E-03     S      1.747783E-02                                                                                             \r\n   5.500000E-03     S      3.401216E-02                                                                                             \r\n   6.000001E-03     S      6.036302E-02                                                                                             \r\n   6.500001E-03     S      9.837656E-02                                                                                             \r\n   7.000001E-03     S      1.481236E-01                                                                                             \r\n   7.500001E-03     S      2.072386E-01                                                                                             \r\n   8.000000E-03     S      2.710666E-01                                                                                             \r\n   8.500000E-03     S      3.338439E-01                                                                                             \r\n   9.000001E-03     S      3.906396E-01                                                                                             \r\n   9.500001E-03     S      4.392751E-01                                                                                             \r\n   1.000000E-02     S      4.812445E-01                                                                                             \r\n   1.050000E-02     S      5.209986E-01                                                                                             \r\n   1.100000E-02     S      5.637447E-01                                                                                             \r\n   1.150000E-02     S      6.127631E-01                                                                                             \r\n   1.200000E-02     S      6.676286E-01                                                                                             \r\n   1.250000E-02     S      7.243420E-01                                                                                             \r\n   1.300000E-02     S      7.773429E-01                                                                                             \r\n   1.350000E-02     S      8.222662E-01                                                                                             \r\n   1.400000E-02     S      8.578080E-01                                                                                             \r\n   1.450000E-02     S      8.855462E-01                                                                                             \r\n   1.500000E-02     S      9.078065E-01                                                                                             \r\n   1.550000E-02     S      9.249170E-01                                                                                             \r\n   1.600000E-02     S      9.336708E-01                                                                                             \r\n   1.650000E-02     S      9.281455E-01                                                                                             \r\n   1.700000E-02     S      9.025937E-01                                                                                             \r\n   1.750000E-02     S      8.548018E-01                                                                                             \r\n   1.800000E-02     S      7.879553E-01                                                                                             \r\n   1.850000E-02     S      7.099068E-01                                                                                             \r\n   1.900000E-02     S      6.302618E-01                                                                                             \r\n   1.949999E-02     S      5.569333E-01                                                                                             \r\n   1.999999E-02     S      4.939697E-01                                                                                             \r\n   2.049999E-02     S      4.415077E-01                                                                                             \r\n   2.099999E-02     S      3.973182E-01                                                                                             \r\n   2.149999E-02     S      3.585570E-01                                                                                             \r\n   2.199999E-02     S      3.225475E-01                                                                                             \r\n   2.249999E-02     S      2.864743E-01                                                                                             \r\n   2.299999E-02     S      2.468962E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.001918E-01                                                                                             \r\n   2.399999E-02     S      1.442204E-01                                                                                             \r\n   2.449999E-02     S      8.024967E-02                                                                                             \r\n   2.499999E-02     S      1.355148E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.419430E-10                                                                                             \r\n   1.000000E-03     S      3.095995E-09                                                                                             \r\n   1.500000E-03     S      3.476829E-08                                                                                             \r\n   2.000000E-03     S      2.665547E-07                                                                                             \r\n   2.500000E-03     S      1.563009E-06                                                                                             \r\n   3.000000E-03     S      7.452692E-06                                                                                             \r\n   3.500000E-03     S      3.001892E-05                                                                                             \r\n   4.000000E-03     S      1.048187E-04                                                                                             \r\n   4.500000E-03     S      3.232342E-04                                                                                             \r\n   5.000000E-03     S      8.926425E-04                                                                                             \r\n   5.500000E-03     S      2.231439E-03                                                                                             \r\n   6.000001E-03     S      5.092412E-03                                                                                             \r\n   6.500001E-03     S      1.068204E-02                                                                                             \r\n   7.000001E-03     S      2.071070E-02                                                                                             \r\n   7.500001E-03     S      3.728655E-02                                                                                             \r\n   8.000000E-03     S      6.257898E-02                                                                                             \r\n   8.500000E-03     S      9.824612E-02                                                                                             \r\n   9.000001E-03     S      1.447414E-01                                                                                             \r\n   9.500001E-03     S      2.007437E-01                                                                                             \r\n   1.000000E-02     S      2.630195E-01                                                                                             \r\n   1.050000E-02     S      3.269516E-01                                                                                             \r\n   1.100000E-02     S      3.877303E-01                                                                                             \r\n   1.150000E-02     S      4.418766E-01                                                                                             \r\n   1.200000E-02     S      4.884985E-01                                                                                             \r\n   1.250000E-02     S      5.296552E-01                                                                                             \r\n   1.300000E-02     S      5.695024E-01                                                                                             \r\n   1.350000E-02     S      6.124359E-01                                                                                             \r\n   1.400000E-02     S      6.609933E-01                                                                                             \r\n   1.450000E-02     S      7.144975E-01                                                                                             \r\n   1.500000E-02     S      7.691550E-01                                                                                             \r\n   1.550000E-02     S      8.196149E-01                                                                                             \r\n   1.600000E-02     S      8.612108E-01                                                                                             \r\n   1.650000E-02     S      8.916873E-01                                                                                             \r\n   1.700000E-02     S      9.114488E-01                                                                                             \r\n   1.750000E-02     S      9.221938E-01                                                                                             \r\n   1.800000E-02     S      9.247667E-01                                                                                             \r\n   1.850000E-02     S      9.175997E-01                                                                                             \r\n   1.900000E-02     S      8.968557E-01                                                                                             \r\n   1.949999E-02     S      8.584104E-01                                                                                             \r\n   1.999999E-02     S      8.006791E-01                                                                                             \r\n   2.049999E-02     S      7.266707E-01                                                                                             \r\n   2.099999E-02     S      6.439676E-01                                                                                             \r\n   2.149999E-02     S      5.624333E-01                                                                                             \r\n   2.199999E-02     S      4.907136E-01                                                                                             \r\n   2.249999E-02     S      4.332642E-01                                                                                             \r\n   2.299999E-02     S      3.893180E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      3.540983E-01                                                                                             \r\n   2.399999E-02     S      3.213845E-01                                                                                             \r\n   2.449999E-02     S      2.859658E-01                                                                                             \r\n   2.499999E-02     S      2.448725E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      7.316847E-13                                                                                             \r\n   1.000000E-03     S      1.976111E-11                                                                                             \r\n   1.500000E-03     S      2.732149E-10                                                                                             \r\n   2.000000E-03     S      2.568786E-09                                                                                             \r\n   2.500000E-03     S      1.842298E-08                                                                                             \r\n   3.000000E-03     S      1.072459E-07                                                                                             \r\n   3.500000E-03     S      5.267838E-07                                                                                             \r\n   4.000000E-03     S      2.241700E-06                                                                                             \r\n   4.500000E-03     S      8.423373E-06                                                                                             \r\n   5.000000E-03     S      2.835150E-05                                                                                             \r\n   5.500000E-03     S      8.643097E-05                                                                                             \r\n   6.000001E-03     S      2.407648E-04                                                                                             \r\n   6.500001E-03     S      6.172184E-04                                                                                             \r\n   7.000001E-03     S      1.464671E-03                                                                                             \r\n   7.500001E-03     S      3.232914E-03                                                                                             \r\n   8.000000E-03     S      6.664257E-03                                                                                             \r\n   8.500000E-03     S      1.287318E-02                                                                                             \r\n   9.000001E-03     S      2.336930E-02                                                                                             \r\n   9.500001E-03     S      3.996704E-02                                                                                             \r\n   1.000000E-02     S      6.453443E-02                                                                                             \r\n   1.050000E-02     S      9.857380E-02                                                                                             \r\n   1.100000E-02     S      1.426997E-01                                                                                             \r\n   1.150000E-02     S      1.961637E-01                                                                                             \r\n   1.200000E-02     S      2.566326E-01                                                                                             \r\n   1.250000E-02     S      3.204101E-01                                                                                             \r\n   1.300000E-02     S      3.831763E-01                                                                                             \r\n   1.350000E-02     S      4.411136E-01                                                                                             \r\n   1.400000E-02     S      4.920754E-01                                                                                             \r\n   1.450000E-02     S      5.363302E-01                                                                                             \r\n   1.500000E-02     S      5.764828E-01                                                                                             \r\n   1.550000E-02     S      6.164597E-01                                                                                             \r\n   1.600000E-02     S      6.598482E-01                                                                                             \r\n   1.650000E-02     S      7.082295E-01                                                                                             \r\n   1.700000E-02     S      7.602433E-01                                                                                             \r\n   1.750000E-02     S      8.118554E-01                                                                                             \r\n   1.800000E-02     S      8.577665E-01                                                                                             \r\n   1.850000E-02     S      8.933265E-01                                                                                             \r\n   1.900000E-02     S      9.160266E-01                                                                                             \r\n   1.949999E-02     S      9.258191E-01                                                                                             \r\n   1.999999E-02     S      9.241289E-01                                                                                             \r\n   2.049999E-02     S      9.121538E-01                                                                                             \r\n   2.099999E-02     S      8.895078E-01                                                                                             \r\n   2.149999E-02     S      8.541276E-01                                                                                             \r\n   2.199999E-02     S      8.036714E-01                                                                                             \r\n   2.249999E-02     S      7.377344E-01                                                                                             \r\n   2.299999E-02     S      6.596111E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      5.764343E-01                                                                                             \r\n   2.399999E-02     S      4.973155E-01                                                                                             \r\n   2.449999E-02     S      4.301952E-01                                                                                             \r\n   2.499999E-02     S      3.788729E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      2.663014E-24                                                                                             \r\n   1.000000E-03     S      1.411090E-22                                                                                             \r\n   1.500000E-03     S      3.783356E-21                                                                                             \r\n   2.000000E-03     S      6.836586E-20                                                                                             \r\n   2.500000E-03     S      9.358414E-19                                                                                             \r\n   3.000000E-03     S      1.034294E-17                                                                                             \r\n   3.500000E-03     S      9.606728E-17                                                                                             \r\n   4.000000E-03     S      7.707984E-16                                                                                             \r\n   4.500000E-03     S      5.450389E-15                                                                                             \r\n   5.000000E-03     S      3.448476E-14                                                                                             \r\n   5.500000E-03     S      1.975619E-13                                                                                             \r\n   6.000001E-03     S      1.034673E-12                                                                                             \r\n   6.500001E-03     S      4.992576E-12                                                                                             \r\n   7.000001E-03     S      2.234080E-11                                                                                             \r\n   7.500001E-03     S      9.322124E-11                                                                                             \r\n   8.000000E-03     S      3.644298E-10                                                                                             \r\n   8.500000E-03     S      1.340156E-09                                                                                             \r\n   9.000001E-03     S      4.652307E-09                                                                                             \r\n   9.500001E-03     S      1.529295E-08                                                                                             \r\n   1.000000E-02     S      4.773123E-08                                                                                             \r\n   1.050000E-02     S      1.417895E-07                                                                                             \r\n   1.100000E-02     S      4.017368E-07                                                                                             \r\n   1.150000E-02     S      1.087725E-06                                                                                             \r\n   1.200000E-02     S      2.819116E-06                                                                                             \r\n   1.250000E-02     S      7.004569E-06                                                                                             \r\n   1.300000E-02     S      1.670759E-05                                                                                             \r\n   1.350000E-02     S      3.830343E-05                                                                                             \r\n   1.400000E-02     S      8.449369E-05                                                                                             \r\n   1.450000E-02     S      1.795125E-04                                                                                             \r\n   1.500000E-02     S      3.676406E-04                                                                                             \r\n   1.550000E-02     S      7.263440E-04                                                                                             \r\n   1.600000E-02     S      1.385300E-03                                                                                             \r\n   1.650000E-02     S      2.552022E-03                                                                                             \r\n   1.700000E-02     S      4.543450E-03                                                                                             \r\n   1.750000E-02     S      7.820583E-03                                                                                             \r\n   1.800000E-02     S      1.301988E-02                                                                                             \r\n   1.850000E-02     S      2.097135E-02                                                                                             \r\n   1.900000E-02     S      3.268982E-02                                                                                             \r\n   1.949999E-02     S      4.932455E-02                                                                                             \r\n   1.999999E-02     S      7.205509E-02                                                                                             \r\n   2.049999E-02     S      1.019298E-01                                                                                             \r\n   2.099999E-02     S      1.396576E-01                                                                                             \r\n   2.149999E-02     S      1.853842E-01                                                                                             \r\n   2.199999E-02     S      2.385010E-01                                                                                             \r\n   2.249999E-02     S      2.975496E-01                                                                                             \r\n   2.299999E-02     S      3.602812E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      4.239054E-01                                                                                             \r\n   2.399999E-02     S      4.855189E-01                                                                                             \r\n   2.449999E-02     S      5.426449E-01                                                                                             \r\n   2.499999E-02     S      5.937552E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      9.692211E-36                                                                                             \r\n   1.000000E-03     S      7.653863E-34                                                                                             \r\n   1.500000E-03     S      3.046266E-32                                                                                             \r\n   2.000000E-03     S      8.143689E-31                                                                                             \r\n   2.500000E-03     S      1.644398E-29                                                                                             \r\n   3.000000E-03     S      2.674122E-28                                                                                             \r\n   3.500000E-03     S      3.646797E-27                                                                                             \r\n   4.000000E-03     S      4.288266E-26                                                                                             \r\n   4.500000E-03     S      4.437156E-25                                                                                             \r\n   5.000000E-03     S      4.102858E-24                                                                                             \r\n   5.500000E-03     S      3.431593E-23                                                                                             \r\n   6.000001E-03     S      2.621665E-22                                                                                             \r\n   6.500001E-03     S      1.844253E-21                                                                                             \r\n   7.000001E-03     S      1.202660E-20                                                                                             \r\n   7.500001E-03     S      7.311678E-20                                                                                             \r\n   8.000000E-03     S      4.164505E-19                                                                                             \r\n   8.500000E-03     S      2.231615E-18                                                                                             \r\n   9.000001E-03     S      1.129251E-17                                                                                             \r\n   9.500001E-03     S      5.413665E-17                                                                                             \r\n   1.000000E-02     S      2.465900E-16                                                                                             \r\n   1.050000E-02     S      1.069943E-15                                                                                             \r\n   1.100000E-02     S      4.432509E-15                                                                                             \r\n   1.150000E-02     S      1.756893E-14                                                                                             \r\n   1.200000E-02     S      6.675194E-14                                                                                             \r\n   1.250000E-02     S      2.435268E-13                                                                                             \r\n   1.300000E-02     S      8.544149E-13                                                                                             \r\n   1.350000E-02     S      2.886998E-12                                                                                             \r\n   1.400000E-02     S      9.406852E-12                                                                                             \r\n   1.450000E-02     S      2.959239E-11                                                                                             \r\n   1.500000E-02     S      8.997669E-11                                                                                             \r\n   1.550000E-02     S      2.646869E-10                                                                                             \r\n   1.600000E-02     S      7.540354E-10                                                                                             \r\n   1.650000E-02     S      2.082001E-09                                                                                             \r\n   1.700000E-02     S      5.576280E-09                                                                                             \r\n   1.750000E-02     S      1.449776E-08                                                                                             \r\n   1.800000E-02     S      3.661376E-08                                                                                             \r\n   1.850000E-02     S      8.987653E-08                                                                                             \r\n   1.900000E-02     S      2.145643E-07                                                                                             \r\n   1.949999E-02     S      4.984357E-07                                                                                             \r\n   1.999999E-02     S      1.127234E-06                                                                                             \r\n   2.049999E-02     S      2.482946E-06                                                                                             \r\n   2.099999E-02     S      5.329031E-06                                                                                             \r\n   2.149999E-02     S      1.114859E-05                                                                                             \r\n   2.199999E-02     S      2.274210E-05                                                                                             \r\n   2.249999E-02     S      4.524950E-05                                                                                             \r\n   2.299999E-02     S      8.783948E-05                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.664044E-04                                                                                             \r\n   2.399999E-02     S      3.077034E-04                                                                                             \r\n   2.449999E-02     S      5.554855E-04                                                                                             \r\n   2.499999E-02     S      9.791619E-04                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      3.410034E-07                                                                                             \r\n   1.000000E-03     S      5.813917E-07                                                                                             \r\n   1.500000E-03     S     -2.940163E-06                                                                                             \r\n   2.000000E-03     S     -3.334588E-05                                                                                             \r\n   2.500000E-03     S     -2.052975E-04                                                                                             \r\n   3.000000E-03     S     -1.003573E-03                                                                                             \r\n   3.500000E-03     S     -4.201705E-03                                                                                             \r\n   4.000000E-03     S     -1.548357E-02                                                                                             \r\n   4.500000E-03     S     -5.098340E-02                                                                                             \r\n   5.000000E-03     S     -1.516142E-01                                                                                             \r\n   5.500000E-03     S     -4.105894E-01                                                                                             \r\n   6.000001E-03     S     -1.019275E+00                                                                                             \r\n   6.500001E-03     S     -2.331598E+00                                                                                             \r\n   7.000001E-03     S     -4.934654E+00                                                                                             \r\n   7.500001E-03     S     -9.692177E+00                                                                                             \r\n   8.000000E-03     S     -1.770351E+01                                                                                             \r\n   8.500000E-03     S     -3.010762E+01                                                                                             \r\n   9.000001E-03     S     -4.768073E+01                                                                                             \r\n   9.500001E-03     S     -7.024547E+01                                                                                             \r\n   1.000000E-02     S     -9.602981E+01                                                                                             \r\n   1.050000E-02     S     -1.212492E+02                                                                                             \r\n   1.100000E-02     S     -1.402637E+02                                                                                             \r\n   1.150000E-02     S     -1.465937E+02                                                                                             \r\n   1.200000E-02     S     -1.348102E+02                                                                                             \r\n   1.250000E-02     S     -1.028845E+02                                                                                             \r\n   1.300000E-02     S     -5.414581E+01                                                                                             \r\n   1.350000E-02     S      2.196195E+00                                                                                             \r\n   1.400000E-02     S      5.273956E+01                                                                                             \r\n   1.450000E-02     S      8.377840E+01                                                                                             \r\n   1.500000E-02     S      8.631466E+01                                                                                             \r\n   1.550000E-02     S      6.024429E+01                                                                                             \r\n   1.600000E-02     S      1.563319E+01                                                                                             \r\n   1.650000E-02     S     -3.010360E+01                                                                                             \r\n   1.700000E-02     S     -5.857425E+01                                                                                             \r\n   1.750000E-02     S     -5.794637E+01                                                                                             \r\n   1.800000E-02     S     -2.827649E+01                                                                                             \r\n   1.850000E-02     S      1.815122E+01                                                                                             \r\n   1.900000E-02     S      6.212618E+01                                                                                             \r\n   1.949999E-02     S      8.631575E+01                                                                                             \r\n   1.999999E-02     S      8.342169E+01                                                                                             \r\n   2.049999E-02     S      5.950977E+01                                                                                             \r\n   2.099999E-02     S      3.055760E+01                                                                                             \r\n   2.149999E-02     S      1.376106E+01                                                                                             \r\n   2.199999E-02     S      1.807646E+01                                                                                             \r\n   2.249999E-02     S      3.914585E+01                                                                                             \r\n   2.299999E-02     S      6.158339E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      6.761407E+01                                                                                             \r\n   2.399999E-02     S      4.741862E+01                                                                                             \r\n   2.449999E-02     S      5.373764E+00                                                                                             \r\n   2.499999E-02     S     -4.150204E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.334598E-05                                                                                             \r\n   1.000000E-03     S     -8.192464E-05                                                                                             \r\n   1.500000E-03     S     -5.406925E-04                                                                                             \r\n   2.000000E-03     S     -3.064563E-03                                                                                             \r\n   2.500000E-03     S     -1.437132E-02                                                                                             \r\n   3.000000E-03     S     -5.690387E-02                                                                                             \r\n   3.500000E-03     S     -1.947229E-01                                                                                             \r\n   4.000000E-03     S     -5.864248E-01                                                                                             \r\n   4.500000E-03     S     -1.575635E+00                                                                                             \r\n   5.000000E-03     S     -3.816333E+00                                                                                             \r\n   5.500000E-03     S     -8.399201E+00                                                                                             \r\n   6.000001E-03     S     -1.689998E+01                                                                                             \r\n   6.500001E-03     S     -3.123265E+01                                                                                             \r\n   7.000001E-03     S     -5.319742E+01                                                                                             \r\n   7.500001E-03     S     -8.370447E+01                                                                                             \r\n   8.000000E-03     S     -1.218359E+02                                                                                             \r\n   8.500000E-03     S     -1.641219E+02                                                                                             \r\n   9.000001E-03     S     -2.045279E+02                                                                                             \r\n   9.500001E-03     S     -2.355395E+02                                                                                             \r\n   1.000000E-02     S     -2.503206E+02                                                                                             \r\n   1.050000E-02     S     -2.453269E+02                                                                                             \r\n   1.100000E-02     S     -2.222519E+02                                                                                             \r\n   1.150000E-02     S     -1.881393E+02                                                                                             \r\n   1.200000E-02     S     -1.531018E+02                                                                                             \r\n   1.250000E-02     S     -1.262256E+02                                                                                             \r\n   1.300000E-02     S     -1.113749E+02                                                                                             \r\n   1.350000E-02     S     -1.050669E+02                                                                                             \r\n   1.400000E-02     S     -9.790433E+01                                                                                             \r\n   1.450000E-02     S     -7.935943E+01                                                                                             \r\n   1.500000E-02     S     -4.379127E+01                                                                                             \r\n   1.550000E-02     S      5.460579E+00                                                                                             \r\n   1.600000E-02     S      5.644092E+01                                                                                             \r\n   1.650000E-02     S      9.375700E+01                                                                                             \r\n   1.700000E-02     S      1.062429E+02                                                                                             \r\n   1.750000E-02     S      9.312646E+01                                                                                             \r\n   1.800000E-02     S      6.518102E+01                                                                                             \r\n   1.850000E-02     S      3.987963E+01                                                                                             \r\n   1.900000E-02     S      3.285201E+01                                                                                             \r\n   1.949999E-02     S      5.010585E+01                                                                                             \r\n   1.999999E-02     S      8.517708E+01                                                                                             \r\n   2.049999E-02     S      1.226967E+02                                                                                             \r\n   2.099999E-02     S      1.463187E+02                                                                                             \r\n   2.149999E-02     S      1.466164E+02                                                                                             \r\n   2.199999E-02     S      1.247906E+02                                                                                             \r\n   2.249999E-02     S      9.063966E+01                                                                                             \r\n   2.299999E-02     S      5.656911E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      3.143396E+01                                                                                             \r\n   2.399999E-02     S      1.756719E+01                                                                                             \r\n   2.449999E-02     S      1.194785E+01                                                                                             \r\n   2.499999E-02     S      9.805065E+00                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -7.531835E-05                                                                                             \r\n   1.000000E-03     S     -7.488501E-04                                                                                             \r\n   1.500000E-03     S     -5.051047E-03                                                                                             \r\n   2.000000E-03     S     -2.596167E-02                                                                                             \r\n   2.500000E-03     S     -1.081533E-01                                                                                             \r\n   3.000000E-03     S     -3.792736E-01                                                                                             \r\n   3.500000E-03     S     -1.148388E+00                                                                                             \r\n   4.000000E-03     S     -3.056652E+00                                                                                             \r\n   4.500000E-03     S     -7.246668E+00                                                                                             \r\n   5.000000E-03     S     -1.545359E+01                                                                                             \r\n   5.500000E-03     S     -2.986160E+01                                                                                             \r\n   6.000001E-03     S     -5.257126E+01                                                                                             \r\n   6.500001E-03     S     -8.464697E+01                                                                                             \r\n   7.000001E-03     S     -1.249671E+02                                                                                             \r\n   7.500001E-03     S     -1.693919E+02                                                                                             \r\n   8.000000E-03     S     -2.109030E+02                                                                                             \r\n   8.500000E-03     S     -2.411637E+02                                                                                             \r\n   9.000001E-03     S     -2.533343E+02                                                                                             \r\n   9.500001E-03     S     -2.451798E+02                                                                                             \r\n   1.000000E-02     S     -2.209494E+02                                                                                             \r\n   1.050000E-02     S     -1.906763E+02                                                                                             \r\n   1.100000E-02     S     -1.665727E+02                                                                                             \r\n   1.150000E-02     S     -1.577364E+02                                                                                             \r\n   1.200000E-02     S     -1.656038E+02                                                                                             \r\n   1.250000E-02     S     -1.826595E+02                                                                                             \r\n   1.300000E-02     S     -1.955220E+02                                                                                             \r\n   1.350000E-02     S     -1.912378E+02                                                                                             \r\n   1.400000E-02     S     -1.636728E+02                                                                                             \r\n   1.450000E-02     S     -1.165374E+02                                                                                             \r\n   1.500000E-02     S     -6.125519E+01                                                                                             \r\n   1.550000E-02     S     -1.077846E+01                                                                                             \r\n   1.600000E-02     S      2.710047E+01                                                                                             \r\n   1.650000E-02     S      5.298438E+01                                                                                             \r\n   1.700000E-02     S      7.373092E+01                                                                                             \r\n   1.750000E-02     S      9.637457E+01                                                                                             \r\n   1.800000E-02     S      1.221380E+02                                                                                             \r\n   1.850000E-02     S      1.446397E+02                                                                                             \r\n   1.900000E-02     S      1.537638E+02                                                                                             \r\n   1.949999E-02     S      1.428875E+02                                                                                             \r\n   1.999999E-02     S      1.147034E+02                                                                                             \r\n   2.049999E-02     S      8.146926E+01                                                                                             \r\n   2.099999E-02     S      5.894560E+01                                                                                             \r\n   2.149999E-02     S      5.743248E+01                                                                                             \r\n   2.199999E-02     S      7.545905E+01                                                                                             \r\n   2.249999E-02     S      1.002843E+02                                                                                             \r\n   2.299999E-02     S      1.151913E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.092304E+02                                                                                             \r\n   2.399999E-02     S      8.342061E+01                                                                                             \r\n   2.449999E-02     S      4.959605E+01                                                                                             \r\n   2.499999E-02     S      2.273301E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -9.030352E-04                                                                                             \r\n   1.000000E-03     S     -7.828590E-03                                                                                             \r\n   1.500000E-03     S     -4.592682E-02                                                                                             \r\n   2.000000E-03     S     -2.053816E-01                                                                                             \r\n   2.500000E-03     S     -7.444196E-01                                                                                             \r\n   3.000000E-03     S     -2.269780E+00                                                                                             \r\n   3.500000E-03     S     -5.967357E+00                                                                                             \r\n   4.000000E-03     S     -1.376324E+01                                                                                             \r\n   4.500000E-03     S     -2.819705E+01                                                                                             \r\n   5.000000E-03     S     -5.177805E+01                                                                                             \r\n   5.500000E-03     S     -8.577039E+01                                                                                             \r\n   6.000001E-03     S     -1.287288E+02                                                                                             \r\n   6.500001E-03     S     -1.755212E+02                                                                                             \r\n   7.000001E-03     S     -2.177243E+02                                                                                             \r\n   7.500001E-03     S     -2.458866E+02                                                                                             \r\n   8.000000E-03     S     -2.532121E+02                                                                                             \r\n   8.500000E-03     S     -2.391503E+02                                                                                             \r\n   9.000001E-03     S     -2.108742E+02                                                                                             \r\n   9.500001E-03     S     -1.812391E+02                                                                                             \r\n   1.000000E-02     S     -1.635160E+02                                                                                             \r\n   1.050000E-02     S     -1.651555E+02                                                                                             \r\n   1.100000E-02     S     -1.838605E+02                                                                                             \r\n   1.150000E-02     S     -2.084435E+02                                                                                             \r\n   1.200000E-02     S     -2.244733E+02                                                                                             \r\n   1.250000E-02     S     -2.218757E+02                                                                                             \r\n   1.300000E-02     S     -2.002007E+02                                                                                             \r\n   1.350000E-02     S     -1.683346E+02                                                                                             \r\n   1.400000E-02     S     -1.386135E+02                                                                                             \r\n   1.450000E-02     S     -1.187735E+02                                                                                             \r\n   1.500000E-02     S     -1.067261E+02                                                                                             \r\n   1.550000E-02     S     -9.161859E+01                                                                                             \r\n   1.600000E-02     S     -6.080544E+01                                                                                             \r\n   1.650000E-02     S     -8.562041E+00                                                                                             \r\n   1.700000E-02     S      5.890973E+01                                                                                             \r\n   1.750000E-02     S      1.254710E+02                                                                                             \r\n   1.800000E-02     S      1.729936E+02                                                                                             \r\n   1.850000E-02     S      1.905112E+02                                                                                             \r\n   1.900000E-02     S      1.791352E+02                                                                                             \r\n   1.949999E-02     S      1.500922E+02                                                                                             \r\n   1.999999E-02     S      1.176540E+02                                                                                             \r\n   2.049999E-02     S      9.179446E+01                                                                                             \r\n   2.099999E-02     S      7.512075E+01                                                                                             \r\n   2.149999E-02     S      6.527404E+01                                                                                             \r\n   2.199999E-02     S      6.002999E+01                                                                                             \r\n   2.249999E-02     S      6.058546E+01                                                                                             \r\n   2.299999E-02     S      7.023552E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      8.953293E+01                                                                                             \r\n   2.399999E-02     S      1.121597E+02                                                                                             \r\n   2.449999E-02     S      1.256754E+02                                                                                             \r\n   2.499999E-02     S      1.178821E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.289789E+01                                                                                             \r\n   1.000000E-03     S     -4.262465E+01                                                                                             \r\n   1.500000E-03     S     -9.649753E+01                                                                                             \r\n   2.000000E-03     S     -1.653160E+02                                                                                             \r\n   2.500000E-03     S     -2.261077E+02                                                                                             \r\n   3.000000E-03     S     -2.551053E+02                                                                                             \r\n   3.500000E-03     S     -2.441551E+02                                                                                             \r\n   4.000000E-03     S     -2.069601E+02                                                                                             \r\n   4.500000E-03     S     -1.707030E+02                                                                                             \r\n   5.000000E-03     S     -1.587567E+02                                                                                             \r\n   5.500000E-03     S     -1.762944E+02                                                                                             \r\n   6.000001E-03     S     -2.084323E+02                                                                                             \r\n   6.500001E-03     S     -2.317285E+02                                                                                             \r\n   7.000001E-03     S     -2.306854E+02                                                                                             \r\n   7.500001E-03     S     -2.077789E+02                                                                                             \r\n   8.000000E-03     S     -1.804594E+02                                                                                             \r\n   8.500000E-03     S     -1.678830E+02                                                                                             \r\n   9.000001E-03     S     -1.771461E+02                                                                                             \r\n   9.500001E-03     S     -1.987026E+02                                                                                             \r\n   1.000000E-02     S     -2.137433E+02                                                                                             \r\n   1.050000E-02     S     -2.077592E+02                                                                                             \r\n   1.100000E-02     S     -1.804064E+02                                                                                             \r\n   1.150000E-02     S     -1.448868E+02                                                                                             \r\n   1.200000E-02     S     -1.178627E+02                                                                                             \r\n   1.250000E-02     S     -1.076590E+02                                                                                             \r\n   1.300000E-02     S     -1.093755E+02                                                                                             \r\n   1.350000E-02     S     -1.101114E+02                                                                                             \r\n   1.400000E-02     S     -9.994864E+01                                                                                             \r\n   1.450000E-02     S     -8.021390E+01                                                                                             \r\n   1.500000E-02     S     -6.276532E+01                                                                                             \r\n   1.550000E-02     S     -6.084921E+01                                                                                             \r\n   1.600000E-02     S     -7.836794E+01                                                                                             \r\n   1.650000E-02     S     -1.055933E+02                                                                                             \r\n   1.700000E-02     S     -1.246504E+02                                                                                             \r\n   1.750000E-02     S     -1.209967E+02                                                                                             \r\n   1.800000E-02     S     -9.280633E+01                                                                                             \r\n   1.850000E-02     S     -5.171532E+01                                                                                             \r\n   1.900000E-02     S     -1.456752E+01                                                                                             \r\n   1.949999E-02     S      7.887696E+00                                                                                             \r\n   1.999999E-02     S      1.745502E+01                                                                                             \r\n   2.049999E-02     S      2.588759E+01                                                                                             \r\n   2.099999E-02     S      4.547959E+01                                                                                             \r\n   2.149999E-02     S      7.973110E+01                                                                                             \r\n   2.199999E-02     S      1.205334E+02                                                                                             \r\n   2.249999E-02     S      1.534222E+02                                                                                             \r\n   2.299999E-02     S      1.667831E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.585153E+02                                                                                             \r\n   2.399999E-02     S      1.360156E+02                                                                                             \r\n   2.449999E-02     S      1.103902E+02                                                                                             \r\n   2.499999E-02     S      8.969443E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.289789E+01                                                                                             \r\n   1.000000E-03     S     -4.262465E+01                                                                                             \r\n   1.500000E-03     S     -9.649753E+01                                                                                             \r\n   2.000000E-03     S     -1.653160E+02                                                                                             \r\n   2.500000E-03     S     -2.261076E+02                                                                                             \r\n   3.000000E-03     S     -2.551048E+02                                                                                             \r\n   3.500000E-03     S     -2.441530E+02                                                                                             \r\n   4.000000E-03     S     -2.069524E+02                                                                                             \r\n   4.500000E-03     S     -1.706775E+02                                                                                             \r\n   5.000000E-03     S     -1.586809E+02                                                                                             \r\n   5.500000E-03     S     -1.760891E+02                                                                                             \r\n   6.000001E-03     S     -2.079227E+02                                                                                             \r\n   6.500001E-03     S     -2.305627E+02                                                                                             \r\n   7.000001E-03     S     -2.282181E+02                                                                                             \r\n   7.500001E-03     S     -2.029328E+02                                                                                             \r\n   8.000000E-03     S     -1.716077E+02                                                                                             \r\n   8.500000E-03     S     -1.528292E+02                                                                                             \r\n   9.000001E-03     S     -1.533058E+02                                                                                             \r\n   9.500001E-03     S     -1.635800E+02                                                                                             \r\n   1.000000E-02     S     -1.657286E+02                                                                                             \r\n   1.050000E-02     S     -1.471351E+02                                                                                             \r\n   1.100000E-02     S     -1.102759E+02                                                                                             \r\n   1.150000E-02     S     -7.159347E+01                                                                                             \r\n   1.200000E-02     S     -5.046605E+01                                                                                             \r\n   1.250000E-02     S     -5.623652E+01                                                                                             \r\n   1.300000E-02     S     -8.234692E+01                                                                                             \r\n   1.350000E-02     S     -1.113050E+02                                                                                             \r\n   1.400000E-02     S     -1.265160E+02                                                                                             \r\n   1.450000E-02     S     -1.224963E+02                                                                                             \r\n   1.500000E-02     S     -1.066756E+02                                                                                             \r\n   1.550000E-02     S     -9.235905E+01                                                                                             \r\n   1.600000E-02     S     -8.864647E+01                                                                                             \r\n   1.650000E-02     S     -9.474614E+01                                                                                             \r\n   1.700000E-02     S     -1.022749E+02                                                                                             \r\n   1.750000E-02     S     -1.029544E+02                                                                                             \r\n   1.800000E-02     S     -9.528965E+01                                                                                             \r\n   1.850000E-02     S     -8.506940E+01                                                                                             \r\n   1.900000E-02     S     -7.965003E+01                                                                                             \r\n   1.949999E-02     S     -8.091541E+01                                                                                             \r\n   1.999999E-02     S     -8.275336E+01                                                                                             \r\n   2.049999E-02     S     -7.522523E+01                                                                                             \r\n   2.099999E-02     S     -5.224413E+01                                                                                             \r\n   2.149999E-02     S     -1.671347E+01                                                                                             \r\n   2.199999E-02     S      2.104925E+01                                                                                             \r\n   2.249999E-02     S      5.059069E+01                                                                                             \r\n   2.299999E-02     S      6.877804E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      8.159486E+01                                                                                             \r\n   2.399999E-02     S      9.865917E+01                                                                                             \r\n   2.449999E-02     S      1.244697E+02                                                                                             \r\n   2.499999E-02     S      1.531320E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.219732E-01                                                                                             \r\n   1.000000E-03     S     -7.266989E-01                                                                                             \r\n   1.500000E-03     S     -2.967398E+00                                                                                             \r\n   2.000000E-03     S     -9.254255E+00                                                                                             \r\n   2.500000E-03     S     -2.333982E+01                                                                                             \r\n   3.000000E-03     S     -4.927536E+01                                                                                             \r\n   3.500000E-03     S     -8.903842E+01                                                                                             \r\n   4.000000E-03     S     -1.397156E+02                                                                                             \r\n   4.500000E-03     S     -1.921436E+02                                                                                             \r\n   5.000000E-03     S     -2.328196E+02                                                                                             \r\n   5.500000E-03     S     -2.492303E+02                                                                                             \r\n   6.000001E-03     S     -2.362952E+02                                                                                             \r\n   6.500001E-03     S     -2.000964E+02                                                                                             \r\n   7.000001E-03     S     -1.559373E+02                                                                                             \r\n   7.500001E-03     S     -1.209698E+02                                                                                             \r\n   8.000000E-03     S     -1.052809E+02                                                                                             \r\n   8.500000E-03     S     -1.068649E+02                                                                                             \r\n   9.000001E-03     S     -1.139092E+02                                                                                             \r\n   9.500001E-03     S     -1.132399E+02                                                                                             \r\n   1.000000E-02     S     -9.956128E+01                                                                                             \r\n   1.050000E-02     S     -7.927309E+01                                                                                             \r\n   1.100000E-02     S     -6.605138E+01                                                                                             \r\n   1.150000E-02     S     -7.095470E+01                                                                                             \r\n   1.200000E-02     S     -9.379162E+01                                                                                             \r\n   1.250000E-02     S     -1.219542E+02                                                                                             \r\n   1.300000E-02     S     -1.379995E+02                                                                                             \r\n   1.350000E-02     S     -1.311772E+02                                                                                             \r\n   1.400000E-02     S     -1.050860E+02                                                                                             \r\n   1.450000E-02     S     -7.595927E+01                                                                                             \r\n   1.500000E-02     S     -6.233951E+01                                                                                             \r\n   1.550000E-02     S     -7.287329E+01                                                                                             \r\n   1.600000E-02     S     -1.004678E+02                                                                                             \r\n   1.650000E-02     S     -1.269019E+02                                                                                             \r\n   1.700000E-02     S     -1.349184E+02                                                                                             \r\n   1.750000E-02     S     -1.196732E+02                                                                                             \r\n   1.800000E-02     S     -9.178699E+01                                                                                             \r\n   1.850000E-02     S     -6.994408E+01                                                                                             \r\n   1.900000E-02     S     -6.812253E+01                                                                                             \r\n   1.949999E-02     S     -8.618313E+01                                                                                             \r\n   1.999999E-02     S     -1.101752E+02                                                                                             \r\n   2.049999E-02     S     -1.219836E+02                                                                                             \r\n   2.099999E-02     S     -1.115326E+02                                                                                             \r\n   2.149999E-02     S     -8.312055E+01                                                                                             \r\n   2.199999E-02     S     -5.167252E+01                                                                                             \r\n   2.249999E-02     S     -3.177096E+01                                                                                             \r\n   2.299999E-02     S     -2.728356E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.883476E+01                                                                                             \r\n   2.399999E-02     S     -2.074787E+01                                                                                             \r\n   2.449999E-02     S      7.557844E+00                                                                                             \r\n   2.499999E-02     S      5.373360E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -4.455106E-04                                                                                             \r\n   1.000000E-03     S     -3.905079E-03                                                                                             \r\n   1.500000E-03     S     -2.295648E-02                                                                                             \r\n   2.000000E-03     S     -1.026923E-01                                                                                             \r\n   2.500000E-03     S     -3.722202E-01                                                                                             \r\n   3.000000E-03     S     -1.134904E+00                                                                                             \r\n   3.500000E-03     S     -2.983689E+00                                                                                             \r\n   4.000000E-03     S     -6.881623E+00                                                                                             \r\n   4.500000E-03     S     -1.409852E+01                                                                                             \r\n   5.000000E-03     S     -2.588902E+01                                                                                             \r\n   5.500000E-03     S     -4.288520E+01                                                                                             \r\n   6.000001E-03     S     -6.436443E+01                                                                                             \r\n   6.500001E-03     S     -8.776067E+01                                                                                             \r\n   7.000001E-03     S     -1.088624E+02                                                                                             \r\n   7.500001E-03     S     -1.229441E+02                                                                                             \r\n   8.000000E-03     S     -1.266084E+02                                                                                             \r\n   8.500000E-03     S     -1.195819E+02                                                                                             \r\n   9.000001E-03     S     -1.054547E+02                                                                                             \r\n   9.500001E-03     S     -9.066341E+01                                                                                             \r\n   1.000000E-02     S     -8.186157E+01                                                                                             \r\n   1.050000E-02     S     -8.281026E+01                                                                                             \r\n   1.100000E-02     S     -9.242741E+01                                                                                             \r\n   1.150000E-02     S     -1.052355E+02                                                                                             \r\n   1.200000E-02     S     -1.142101E+02                                                                                             \r\n   1.250000E-02     S     -1.146085E+02                                                                                             \r\n   1.300000E-02     S     -1.066286E+02                                                                                             \r\n   1.350000E-02     S     -9.527380E+01                                                                                             \r\n   1.400000E-02     S     -8.738693E+01                                                                                             \r\n   1.450000E-02     S     -8.755111E+01                                                                                             \r\n   1.500000E-02     S     -9.533913E+01                                                                                             \r\n   1.550000E-02     S     -1.056429E+02                                                                                             \r\n   1.600000E-02     S     -1.119223E+02                                                                                             \r\n   1.650000E-02     S     -1.103477E+02                                                                                             \r\n   1.700000E-02     S     -1.021942E+02                                                                                             \r\n   1.750000E-02     S     -9.293530E+01                                                                                             \r\n   1.800000E-02     S     -8.861890E+01                                                                                             \r\n   1.850000E-02     S     -9.189816E+01                                                                                             \r\n   1.900000E-02     S     -1.003343E+02                                                                                             \r\n   1.949999E-02     S     -1.080869E+02                                                                                             \r\n   1.999999E-02     S     -1.098431E+02                                                                                             \r\n   2.049999E-02     S     -1.043296E+02                                                                                             \r\n   2.099999E-02     S     -9.503320E+01                                                                                             \r\n   2.149999E-02     S     -8.765514E+01                                                                                             \r\n   2.199999E-02     S     -8.605090E+01                                                                                             \r\n   2.249999E-02     S     -8.943742E+01                                                                                             \r\n   2.299999E-02     S     -9.276853E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.999100E+01                                                                                             \r\n   2.399999E-02     S     -7.791452E+01                                                                                             \r\n   2.449999E-02     S     -5.803454E+01                                                                                             \r\n   2.499999E-02     S     -3.510950E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.098682E-02                                                                                             \r\n   1.000000E-03     S      3.633034E-01                                                                                             \r\n   1.500000E-03     S      1.483304E+00                                                                                             \r\n   2.000000E-03     S      4.624825E+00                                                                                             \r\n   2.500000E-03     S      1.165911E+01                                                                                             \r\n   3.000000E-03     S      2.459498E+01                                                                                             \r\n   3.500000E-03     S      4.437316E+01                                                                                             \r\n   4.000000E-03     S      6.941800E+01                                                                                             \r\n   4.500000E-03     S      9.489009E+01                                                                                             \r\n   5.000000E-03     S      1.135475E+02                                                                                             \r\n   5.500000E-03     S      1.183155E+02                                                                                             \r\n   6.000001E-03     S      1.054717E+02                                                                                             \r\n   6.500001E-03     S      7.662074E+01                                                                                             \r\n   7.000001E-03     S      3.806184E+01                                                                                             \r\n   7.500001E-03     S     -2.317552E+00                                                                                             \r\n   8.000000E-03     S     -3.879902E+01                                                                                             \r\n   8.500000E-03     S     -6.981163E+01                                                                                             \r\n   9.000001E-03     S     -9.679312E+01                                                                                             \r\n   9.500001E-03     S     -1.208010E+02                                                                                             \r\n   1.000000E-02     S     -1.395412E+02                                                                                             \r\n   1.050000E-02     S     -1.474548E+02                                                                                             \r\n   1.100000E-02     S     -1.394225E+02                                                                                             \r\n   1.150000E-02     S     -1.158146E+02                                                                                             \r\n   1.200000E-02     S     -8.507956E+01                                                                                             \r\n   1.250000E-02     S     -6.117678E+01                                                                                             \r\n   1.300000E-02     S     -5.648062E+01                                                                                             \r\n   1.350000E-02     S     -7.418537E+01                                                                                             \r\n   1.400000E-02     S     -1.052708E+02                                                                                             \r\n   1.450000E-02     S     -1.327002E+02                                                                                             \r\n   1.500000E-02     S     -1.409926E+02                                                                                             \r\n   1.550000E-02     S     -1.255480E+02                                                                                             \r\n   1.600000E-02     S     -9.577095E+01                                                                                             \r\n   1.650000E-02     S     -6.964057E+01                                                                                             \r\n   1.700000E-02     S     -6.278885E+01                                                                                             \r\n   1.750000E-02     S     -7.884200E+01                                                                                             \r\n   1.800000E-02     S     -1.072098E+02                                                                                             \r\n   1.850000E-02     S     -1.298541E+02                                                                                             \r\n   1.900000E-02     S     -1.327756E+02                                                                                             \r\n   1.949999E-02     S     -1.148389E+02                                                                                             \r\n   1.999999E-02     S     -8.823332E+01                                                                                             \r\n   2.049999E-02     S     -7.032122E+01                                                                                             \r\n   2.099999E-02     S     -7.226711E+01                                                                                             \r\n   2.149999E-02     S     -9.192577E+01                                                                                             \r\n   2.199999E-02     S     -1.155918E+02                                                                                             \r\n   2.249999E-02     S     -1.272944E+02                                                                                             \r\n   2.299999E-02     S     -1.193325E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.701871E+01                                                                                             \r\n   2.399999E-02     S     -7.459489E+01                                                                                             \r\n   2.449999E-02     S     -6.525615E+01                                                                                             \r\n   2.499999E-02     S     -7.211802E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.448957E+00                                                                                             \r\n   1.000000E-03     S      2.131235E+01                                                                                             \r\n   1.500000E-03     S      4.824878E+01                                                                                             \r\n   2.000000E-03     S      8.265799E+01                                                                                             \r\n   2.500000E-03     S      1.130536E+02                                                                                             \r\n   3.000000E-03     S      1.275516E+02                                                                                             \r\n   3.500000E-03     S      1.220733E+02                                                                                             \r\n   4.000000E-03     S      1.034643E+02                                                                                             \r\n   4.500000E-03     S      8.529959E+01                                                                                             \r\n   5.000000E-03     S      7.922345E+01                                                                                             \r\n   5.500000E-03     S      8.772591E+01                                                                                             \r\n   6.000001E-03     S      1.031652E+02                                                                                             \r\n   6.500001E-03     S      1.134455E+02                                                                                             \r\n   7.000001E-03     S      1.101855E+02                                                                                             \r\n   7.500001E-03     S      9.366700E+01                                                                                             \r\n   8.000000E-03     S      7.134342E+01                                                                                             \r\n   8.500000E-03     S      5.135701E+01                                                                                             \r\n   9.000001E-03     S      3.601205E+01                                                                                             \r\n   9.500001E-03     S      2.004214E+01                                                                                             \r\n   1.000000E-02     S     -5.046202E+00                                                                                             \r\n   1.050000E-02     S     -4.368137E+01                                                                                             \r\n   1.100000E-02     S     -9.124971E+01                                                                                             \r\n   1.150000E-02     S     -1.351097E+02                                                                                             \r\n   1.200000E-02     S     -1.611540E+02                                                                                             \r\n   1.250000E-02     S     -1.617383E+02                                                                                             \r\n   1.300000E-02     S     -1.399739E+02                                                                                             \r\n   1.350000E-02     S     -1.078954E+02                                                                                             \r\n   1.400000E-02     S     -7.998098E+01                                                                                             \r\n   1.450000E-02     S     -6.619127E+01                                                                                             \r\n   1.500000E-02     S     -6.845220E+01                                                                                             \r\n   1.550000E-02     S     -8.182899E+01                                                                                             \r\n   1.600000E-02     S     -9.862402E+01                                                                                             \r\n   1.650000E-02     S     -1.123391E+02                                                                                             \r\n   1.700000E-02     S     -1.194464E+02                                                                                             \r\n   1.750000E-02     S     -1.190478E+02                                                                                             \r\n   1.800000E-02     S     -1.119446E+02                                                                                             \r\n   1.850000E-02     S     -1.003814E+02                                                                                             \r\n   1.900000E-02     S     -8.830091E+01                                                                                             \r\n   1.949999E-02     S     -8.085886E+01                                                                                             \r\n   1.999999E-02     S     -8.233946E+01                                                                                             \r\n   2.049999E-02     S     -9.324399E+01                                                                                             \r\n   2.099999E-02     S     -1.087339E+02                                                                                             \r\n   2.149999E-02     S     -1.203310E+02                                                                                             \r\n   2.199999E-02     S     -1.206534E+02                                                                                             \r\n   2.249999E-02     S     -1.084436E+02                                                                                             \r\n   2.299999E-02     S     -9.028031E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -7.715427E+01                                                                                             \r\n   2.399999E-02     S     -7.757847E+01                                                                                             \r\n   2.449999E-02     S     -9.164309E+01                                                                                             \r\n   2.499999E-02     S     -1.102674E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.448957E+00                                                                                             \r\n   1.000000E-03     S      2.131235E+01                                                                                             \r\n   1.500000E-03     S      4.824878E+01                                                                                             \r\n   2.000000E-03     S      8.265802E+01                                                                                             \r\n   2.500000E-03     S      1.130538E+02                                                                                             \r\n   3.000000E-03     S      1.275526E+02                                                                                             \r\n   3.500000E-03     S      1.220775E+02                                                                                             \r\n   4.000000E-03     S      1.034798E+02                                                                                             \r\n   4.500000E-03     S      8.535057E+01                                                                                             \r\n   5.000000E-03     S      7.937506E+01                                                                                             \r\n   5.500000E-03     S      8.813651E+01                                                                                             \r\n   6.000001E-03     S      1.041844E+02                                                                                             \r\n   6.500001E-03     S      1.157771E+02                                                                                             \r\n   7.000001E-03     S      1.151202E+02                                                                                             \r\n   7.500001E-03     S      1.033592E+02                                                                                             \r\n   8.000000E-03     S      8.904693E+01                                                                                             \r\n   8.500000E-03     S      8.146464E+01                                                                                             \r\n   9.000001E-03     S      8.369279E+01                                                                                             \r\n   9.500001E-03     S      9.028764E+01                                                                                             \r\n   1.000000E-02     S      9.098373E+01                                                                                             \r\n   1.050000E-02     S      7.756819E+01                                                                                             \r\n   1.100000E-02     S      4.901491E+01                                                                                             \r\n   1.150000E-02     S      1.148630E+01                                                                                             \r\n   1.200000E-02     S     -2.633818E+01                                                                                             \r\n   1.250000E-02     S     -5.884061E+01                                                                                             \r\n   1.300000E-02     S     -8.579851E+01                                                                                             \r\n   1.350000E-02     S     -1.100280E+02                                                                                             \r\n   1.400000E-02     S     -1.325888E+02                                                                                             \r\n   1.450000E-02     S     -1.497075E+02                                                                                             \r\n   1.500000E-02     S     -1.542649E+02                                                                                             \r\n   1.550000E-02     S     -1.411482E+02                                                                                             \r\n   1.600000E-02     S     -1.126159E+02                                                                                             \r\n   1.650000E-02     S     -7.943240E+01                                                                                             \r\n   1.700000E-02     S     -5.626441E+01                                                                                             \r\n   1.750000E-02     S     -5.381424E+01                                                                                             \r\n   1.800000E-02     S     -7.258719E+01                                                                                             \r\n   1.850000E-02     S     -1.023472E+02                                                                                             \r\n   1.900000E-02     S     -1.277480E+02                                                                                             \r\n   1.949999E-02     S     -1.367456E+02                                                                                             \r\n   1.999999E-02     S     -1.267653E+02                                                                                             \r\n   2.049999E-02     S     -1.051870E+02                                                                                             \r\n   2.099999E-02     S     -8.433890E+01                                                                                             \r\n   2.149999E-02     S     -7.440416E+01                                                                                             \r\n   2.199999E-02     S     -7.847427E+01                                                                                             \r\n   2.249999E-02     S     -9.216285E+01                                                                                             \r\n   2.299999E-02     S     -1.072010E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.162892E+02                                                                                             \r\n   2.399999E-02     S     -1.163607E+02                                                                                             \r\n   2.449999E-02     S     -1.089834E+02                                                                                             \r\n   2.499999E-02     S     -9.853654E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.100016E-02                                                                                             \r\n   1.000000E-03     S      3.633853E-01                                                                                             \r\n   1.500000E-03     S      1.483845E+00                                                                                             \r\n   2.000000E-03     S      4.627890E+00                                                                                             \r\n   2.500000E-03     S      1.167349E+01                                                                                             \r\n   3.000000E-03     S      2.465188E+01                                                                                             \r\n   3.500000E-03     S      4.456788E+01                                                                                             \r\n   4.000000E-03     S      7.000442E+01                                                                                             \r\n   4.500000E-03     S      9.646573E+01                                                                                             \r\n   5.000000E-03     S      1.173638E+02                                                                                             \r\n   5.500000E-03     S      1.267147E+02                                                                                             \r\n   6.000001E-03     S      1.223716E+02                                                                                             \r\n   6.500001E-03     S      1.078534E+02                                                                                             \r\n   7.000001E-03     S      9.125926E+01                                                                                             \r\n   7.500001E-03     S      8.138693E+01                                                                                             \r\n   8.000000E-03     S      8.303695E+01                                                                                             \r\n   8.500000E-03     S      9.431039E+01                                                                                             \r\n   9.000001E-03     S      1.077352E+02                                                                                             \r\n   9.500001E-03     S      1.147398E+02                                                                                             \r\n   1.000000E-02     S      1.107828E+02                                                                                             \r\n   1.050000E-02     S      9.788049E+01                                                                                             \r\n   1.100000E-02     S      8.284966E+01                                                                                             \r\n   1.150000E-02     S      7.237128E+01                                                                                             \r\n   1.200000E-02     S      6.812469E+01                                                                                             \r\n   1.250000E-02     S      6.526476E+01                                                                                             \r\n   1.300000E-02     S      5.533064E+01                                                                                             \r\n   1.350000E-02     S      3.172729E+01                                                                                             \r\n   1.400000E-02     S     -5.792996E+00                                                                                             \r\n   1.450000E-02     S     -5.052917E+01                                                                                             \r\n   1.500000E-02     S     -9.237444E+01                                                                                             \r\n   1.550000E-02     S     -1.230459E+02                                                                                             \r\n   1.600000E-02     S     -1.395892E+02                                                                                             \r\n   1.650000E-02     S     -1.441727E+02                                                                                             \r\n   1.700000E-02     S     -1.409099E+02                                                                                             \r\n   1.750000E-02     S     -1.324823E+02                                                                                             \r\n   1.800000E-02     S     -1.192154E+02                                                                                             \r\n   1.850000E-02     S     -1.011272E+02                                                                                             \r\n   1.900000E-02     S     -8.094701E+01                                                                                             \r\n   1.949999E-02     S     -6.513660E+01                                                                                             \r\n   1.999999E-02     S     -6.133947E+01                                                                                             \r\n   2.049999E-02     S     -7.348925E+01                                                                                             \r\n   2.099999E-02     S     -9.795518E+01                                                                                             \r\n   2.149999E-02     S     -1.239032E+02                                                                                             \r\n   2.199999E-02     S     -1.384491E+02                                                                                             \r\n   2.249999E-02     S     -1.338699E+02                                                                                             \r\n   2.299999E-02     S     -1.124320E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.557653E+01                                                                                             \r\n   2.399999E-02     S     -6.764285E+01                                                                                             \r\n   2.449999E-02     S     -6.777320E+01                                                                                             \r\n   2.499999E-02     S     -8.485841E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      4.575246E-04                                                                                             \r\n   1.000000E-03     S      3.923512E-03                                                                                             \r\n   1.500000E-03     S      2.297034E-02                                                                                             \r\n   2.000000E-03     S      1.026893E-01                                                                                             \r\n   2.500000E-03     S      3.721993E-01                                                                                             \r\n   3.000000E-03     S      1.134876E+00                                                                                             \r\n   3.500000E-03     S      2.983668E+00                                                                                             \r\n   4.000000E-03     S      6.881619E+00                                                                                             \r\n   4.500000E-03     S      1.409853E+01                                                                                             \r\n   5.000000E-03     S      2.588903E+01                                                                                             \r\n   5.500000E-03     S      4.288520E+01                                                                                             \r\n   6.000001E-03     S      6.436440E+01                                                                                             \r\n   6.500001E-03     S      8.776055E+01                                                                                             \r\n   7.000001E-03     S      1.088621E+02                                                                                             \r\n   7.500001E-03     S      1.229431E+02                                                                                             \r\n   8.000000E-03     S      1.266052E+02                                                                                             \r\n   8.500000E-03     S      1.195729E+02                                                                                             \r\n   9.000001E-03     S      1.054312E+02                                                                                             \r\n   9.500001E-03     S      9.060491E+01                                                                                             \r\n   1.000000E-02     S      8.172347E+01                                                                                             \r\n   1.050000E-02     S      8.250024E+01                                                                                             \r\n   1.100000E-02     S      9.176453E+01                                                                                             \r\n   1.150000E-02     S      1.038838E+02                                                                                             \r\n   1.200000E-02     S      1.115789E+02                                                                                             \r\n   1.250000E-02     S      1.097143E+02                                                                                             \r\n   1.300000E-02     S      9.792424E+01                                                                                             \r\n   1.350000E-02     S      8.046513E+01                                                                                             \r\n   1.400000E-02     S      6.328001E+01                                                                                             \r\n   1.450000E-02     S      4.999856E+01                                                                                             \r\n   1.500000E-02     S      3.937080E+01                                                                                             \r\n   1.550000E-02     S      2.586429E+01                                                                                             \r\n   1.600000E-02     S      3.228400E+00                                                                                             \r\n   1.650000E-02     S     -3.107715E+01                                                                                             \r\n   1.700000E-02     S     -7.334369E+01                                                                                             \r\n   1.750000E-02     S     -1.146383E+02                                                                                             \r\n   1.800000E-02     S     -1.448949E+02                                                                                             \r\n   1.850000E-02     S     -1.576935E+02                                                                                             \r\n   1.900000E-02     S     -1.529734E+02                                                                                             \r\n   1.949999E-02     S     -1.362921E+02                                                                                             \r\n   1.999999E-02     S     -1.154256E+02                                                                                             \r\n   2.049999E-02     S     -9.665149E+01                                                                                             \r\n   2.099999E-02     S     -8.295075E+01                                                                                             \r\n   2.149999E-02     S     -7.477072E+01                                                                                             \r\n   2.199999E-02     S     -7.208267E+01                                                                                             \r\n   2.249999E-02     S     -7.565134E+01                                                                                             \r\n   2.299999E-02     S     -8.628249E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.026758E+02                                                                                             \r\n   2.399999E-02     S     -1.199421E+02                                                                                             \r\n   2.449999E-02     S     -1.306689E+02                                                                                             \r\n   2.499999E-02     S     -1.286256E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      3.095995E-06                                                                                             \r\n   1.000000E-03     S      3.462635E-05                                                                                             \r\n   1.500000E-03     S      2.634587E-04                                                                                             \r\n   2.000000E-03     S      1.528241E-03                                                                                             \r\n   2.500000E-03     S      7.186137E-03                                                                                             \r\n   3.000000E-03     S      2.845591E-02                                                                                             \r\n   3.500000E-03     S      9.736596E-02                                                                                             \r\n   4.000000E-03     S      2.932153E-01                                                                                             \r\n   4.500000E-03     S      7.878238E-01                                                                                             \r\n   5.000000E-03     S      1.908205E+00                                                                                             \r\n   5.500000E-03     S      4.199769E+00                                                                                             \r\n   6.000001E-03     S      8.450599E+00                                                                                             \r\n   6.500001E-03     S      1.561829E+01                                                                                             \r\n   7.000001E-03     S      2.660452E+01                                                                                             \r\n   7.500001E-03     S      4.186828E+01                                                                                             \r\n   8.000000E-03     S      6.095956E+01                                                                                             \r\n   8.500000E-03     S      8.216244E+01                                                                                             \r\n   9.000001E-03     S      1.024976E+02                                                                                             \r\n   9.500001E-03     S      1.182781E+02                                                                                             \r\n   1.000000E-02     S      1.262079E+02                                                                                             \r\n   1.050000E-02     S      1.247107E+02                                                                                             \r\n   1.100000E-02     S      1.149250E+02                                                                                             \r\n   1.150000E-02     S      1.007682E+02                                                                                             \r\n   1.200000E-02     S      8.777860E+01                                                                                             \r\n   1.250000E-02     S      8.100390E+01                                                                                             \r\n   1.300000E-02     S      8.278075E+01                                                                                             \r\n   1.350000E-02     S      9.149094E+01                                                                                             \r\n   1.400000E-02     S      1.020616E+02                                                                                             \r\n   1.450000E-02     S      1.081617E+02                                                                                             \r\n   1.500000E-02     S      1.051174E+02                                                                                             \r\n   1.550000E-02     S      9.205575E+01                                                                                             \r\n   1.600000E-02     S      7.207236E+01                                                                                             \r\n   1.650000E-02     S      5.023798E+01                                                                                             \r\n   1.700000E-02     S      3.050651E+01                                                                                             \r\n   1.750000E-02     S      1.331787E+01                                                                                             \r\n   1.800000E-02     S     -4.594038E+00                                                                                             \r\n   1.850000E-02     S     -2.791097E+01                                                                                             \r\n   1.900000E-02     S     -5.918939E+01                                                                                             \r\n   1.949999E-02     S     -9.617658E+01                                                                                             \r\n   1.999999E-02     S     -1.317396E+02                                                                                             \r\n   2.049999E-02     S     -1.567115E+02                                                                                             \r\n   2.099999E-02     S     -1.642375E+02                                                                                             \r\n   2.149999E-02     S     -1.532540E+02                                                                                             \r\n   2.199999E-02     S     -1.291691E+02                                                                                             \r\n   2.249999E-02     S     -1.013955E+02                                                                                             \r\n   2.299999E-02     S     -7.916584E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.793356E+01                                                                                             \r\n   2.399999E-02     S     -6.813251E+01                                                                                             \r\n   2.449999E-02     S     -7.651194E+01                                                                                             \r\n   2.499999E-02     S     -8.873295E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.976111E-08                                                                                             \r\n   1.000000E-03     S      2.724832E-07                                                                                             \r\n   1.500000E-03     S      2.549025E-06                                                                                             \r\n   2.000000E-03     S      1.814976E-05                                                                                             \r\n   2.500000E-03     S      1.046771E-04                                                                                             \r\n   3.000000E-03     S      5.083607E-04                                                                                             \r\n   3.500000E-03     S      2.134454E-03                                                                                             \r\n   4.000000E-03     S      7.896589E-03                                                                                             \r\n   4.500000E-03     S      2.610980E-02                                                                                             \r\n   5.000000E-03     S      7.800759E-02                                                                                             \r\n   5.500000E-03     S      2.124133E-01                                                                                             \r\n   6.000001E-03     S      5.307874E-01                                                                                             \r\n   6.500001E-03     S      1.223907E+00                                                                                             \r\n   7.000001E-03     S      2.615695E+00                                                                                             \r\n   7.500001E-03     S      5.199585E+00                                                                                             \r\n   8.000000E-03     S      9.640268E+00                                                                                             \r\n   8.500000E-03     S      1.670504E+01                                                                                             \r\n   9.000001E-03     S      2.709386E+01                                                                                             \r\n   9.500001E-03     S      4.116514E+01                                                                                             \r\n   1.000000E-02     S      5.860675E+01                                                                                             \r\n   1.050000E-02     S      7.816526E+01                                                                                             \r\n   1.100000E-02     S      9.758993E+01                                                                                             \r\n   1.150000E-02     S      1.139329E+02                                                                                             \r\n   1.200000E-02     S      1.242464E+02                                                                                             \r\n   1.250000E-02     S      1.265437E+02                                                                                             \r\n   1.300000E-02     S      1.207034E+02                                                                                             \r\n   1.350000E-02     S      1.088991E+02                                                                                             \r\n   1.400000E-02     S      9.521656E+01                                                                                             \r\n   1.450000E-02     S      8.440733E+01                                                                                             \r\n   1.500000E-02     S      8.012959E+01                                                                                             \r\n   1.550000E-02     S      8.336539E+01                                                                                             \r\n   1.600000E-02     S      9.176973E+01                                                                                             \r\n   1.650000E-02     S      1.003951E+02                                                                                             \r\n   1.700000E-02     S      1.036259E+02                                                                                             \r\n   1.750000E-02     S      9.752321E+01                                                                                             \r\n   1.800000E-02     S      8.147112E+01                                                                                             \r\n   1.850000E-02     S      5.826008E+01                                                                                             \r\n   1.900000E-02     S      3.249257E+01                                                                                             \r\n   1.949999E-02     S      8.102295E+00                                                                                             \r\n   1.999999E-02     S     -1.366529E+01                                                                                             \r\n   2.049999E-02     S     -3.462105E+01                                                                                             \r\n   2.099999E-02     S     -5.802620E+01                                                                                             \r\n   2.149999E-02     S     -8.583639E+01                                                                                             \r\n   2.199999E-02     S     -1.163932E+02                                                                                             \r\n   2.249999E-02     S     -1.440603E+02                                                                                             \r\n   2.299999E-02     S     -1.613001E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.622956E+02                                                                                             \r\n   2.399999E-02     S     -1.462391E+02                                                                                             \r\n   2.449999E-02     S     -1.184426E+02                                                                                             \r\n   2.499999E-02     S     -8.851847E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.411090E-19                                                                                             \r\n   1.000000E-03     S      3.780692E-18                                                                                             \r\n   1.500000E-03     S      6.822475E-17                                                                                             \r\n   2.000000E-03     S      9.320580E-16                                                                                             \r\n   2.500000E-03     S      1.027457E-14                                                                                             \r\n   3.000000E-03     S      9.513144E-14                                                                                             \r\n   3.500000E-03     S      7.604554E-13                                                                                             \r\n   4.000000E-03     S      5.354322E-12                                                                                             \r\n   4.500000E-03     S      3.371396E-11                                                                                             \r\n   5.000000E-03     S      1.921115E-10                                                                                             \r\n   5.500000E-03     S      1.000188E-09                                                                                             \r\n   6.000001E-03     S      4.795014E-09                                                                                             \r\n   6.500001E-03     S      2.130613E-08                                                                                             \r\n   7.000001E-03     S      8.822866E-08                                                                                             \r\n   7.500001E-03     S      3.420890E-07                                                                                             \r\n   8.000000E-03     S      1.246935E-06                                                                                             \r\n   8.500000E-03     S      4.287876E-06                                                                                             \r\n   9.000001E-03     S      1.395280E-05                                                                                             \r\n   9.500001E-03     S      4.307892E-05                                                                                             \r\n   1.000000E-02     S      1.264966E-04                                                                                             \r\n   1.050000E-02     S      3.540055E-04                                                                                             \r\n   1.100000E-02     S      9.459354E-04                                                                                             \r\n   1.150000E-02     S      2.417379E-03                                                                                             \r\n   1.200000E-02     S      5.916844E-03                                                                                             \r\n   1.250000E-02     S      1.388848E-02                                                                                             \r\n   1.300000E-02     S      3.129886E-02                                                                                             \r\n   1.350000E-02     S      6.778610E-02                                                                                             \r\n   1.400000E-02     S      1.412091E-01                                                                                             \r\n   1.450000E-02     S      2.831469E-01                                                                                             \r\n   1.500000E-02     S      5.468314E-01                                                                                             \r\n   1.550000E-02     S      1.017660E+00                                                                                             \r\n   1.600000E-02     S      1.825678E+00                                                                                             \r\n   1.650000E-02     S      3.158149E+00                                                                                             \r\n   1.700000E-02     S      5.268560E+00                                                                                             \r\n   1.750000E-02     S      8.476431E+00                                                                                             \r\n   1.800000E-02     S      1.315077E+01                                                                                             \r\n   1.850000E-02     S      1.966994E+01                                                                                             \r\n   1.900000E-02     S      2.835319E+01                                                                                             \r\n   1.949999E-02     S      3.936527E+01                                                                                             \r\n   1.999999E-02     S      5.260522E+01                                                                                             \r\n   2.049999E-02     S      6.760252E+01                                                                                             \r\n   2.099999E-02     S      8.345447E+01                                                                                             \r\n   2.149999E-02     S      9.884339E+01                                                                                             \r\n   2.199999E-02     S      1.121654E+02                                                                                             \r\n   2.249999E-02     S      1.217802E+02                                                                                             \r\n   2.299999E-02     S      1.263557E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.252377E+02                                                                                             \r\n   2.399999E-02     S      1.187395E+02                                                                                             \r\n   2.449999E-02     S      1.082362E+02                                                                                             \r\n   2.499999E-02     S      9.597374E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      7.653862E-31                                                                                             \r\n   1.000000E-03     S      3.045296E-29                                                                                             \r\n   1.500000E-03     S      8.136034E-28                                                                                             \r\n   2.000000E-03     S      1.641352E-26                                                                                             \r\n   2.500000E-03     S      2.665979E-25                                                                                             \r\n   3.000000E-03     S      3.630353E-24                                                                                             \r\n   3.500000E-03     S      4.261524E-23                                                                                             \r\n   4.000000E-03     S      4.400688E-22                                                                                             \r\n   4.500000E-03     S      4.059976E-21                                                                                             \r\n   5.000000E-03     S      3.387222E-20                                                                                             \r\n   5.500000E-03     S      2.580637E-19                                                                                             \r\n   6.000001E-03     S      1.809937E-18                                                                                             \r\n   6.500001E-03     S      1.176444E-17                                                                                             \r\n   7.000001E-03     S      7.127252E-17                                                                                             \r\n   7.500001E-03     S      4.044239E-16                                                                                             \r\n   8.000000E-03     S      2.158499E-15                                                                                             \r\n   8.500000E-03     S      1.087606E-14                                                                                             \r\n   9.000001E-03     S      5.190504E-14                                                                                             \r\n   9.500001E-03     S      2.352974E-13                                                                                             \r\n   1.000000E-02     S      1.015806E-12                                                                                             \r\n   1.050000E-02     S      4.185919E-12                                                                                             \r\n   1.100000E-02     S      1.649898E-11                                                                                             \r\n   1.150000E-02     S      6.231942E-11                                                                                             \r\n   1.200000E-02     S      2.259578E-10                                                                                             \r\n   1.250000E-02     S      7.876629E-10                                                                                             \r\n   1.300000E-02     S      2.643471E-09                                                                                             \r\n   1.350000E-02     S      8.552437E-09                                                                                             \r\n   1.400000E-02     S      2.670540E-08                                                                                             \r\n   1.450000E-02     S      8.056983E-08                                                                                             \r\n   1.500000E-02     S      2.350945E-07                                                                                             \r\n   1.550000E-02     S      6.640587E-07                                                                                             \r\n   1.600000E-02     S      1.817314E-06                                                                                             \r\n   1.650000E-02     S      4.822245E-06                                                                                             \r\n   1.700000E-02     S      1.241576E-05                                                                                             \r\n   1.750000E-02     S      3.103748E-05                                                                                             \r\n   1.800000E-02     S      7.537876E-05                                                                                             \r\n   1.850000E-02     S      1.779505E-04                                                                                             \r\n   1.900000E-02     S      4.085591E-04                                                                                             \r\n   1.949999E-02     S      9.126693E-04                                                                                             \r\n   1.999999E-02     S      1.984511E-03                                                                                             \r\n   2.049999E-02     S      4.201797E-03                                                                                             \r\n   2.099999E-02     S      8.665642E-03                                                                                             \r\n   2.149999E-02     S      1.741306E-02                                                                                             \r\n   2.199999E-02     S      3.410091E-02                                                                                             \r\n   2.249999E-02     S      6.509738E-02                                                                                             \r\n   2.299999E-02     S      1.211549E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.198639E-01                                                                                             \r\n   2.399999E-02     S      3.890812E-01                                                                                             \r\n   2.449999E-02     S      6.714585E-01                                                                                             \r\n   2.499999E-02     S      1.130033E+00                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      1.286378E-38                                                                                             \r\n   2.449999E-02     S      5.984403E-38                                                                                             \r\n   2.499999E-02     S      2.730881E-37                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRANSIENT ANALYSIS OF A 1000 CELL STRING                           \r\n DATE:  5/17/95\r\n END TIME: 16: 6:53\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d09022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D09022A,NASTRAN                                                           \r\n     ALTER   1 $                                                                     \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\n     EQUIV   G2,GEOM2/TRUE $                                                         \r\n     ENDALTER $                                                                      \r\n     TIME    16                                                                      \r\n     APP     DISP                                                                    \r\n     SOL     9,1                                                                     \r\n     DIAG    14                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRANSIENT ANALYSIS OF A 1000 CELL STRING                             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                          \r\n                  3         LABEL = TRAVELING WAVE PROBLEM                                               \r\n                  4         TSTEP = 9                                                                    \r\n                  5            IC = 9                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500          \r\n                  8         DISPLACEMENT = 1                                                             \r\n                  9         VELOCITY = 1                                                                 \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    20, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        TIC     9       2               .2                                              \r\n                    2-        TIC     9       3               .4                                              \r\n                    3-        TIC     9       4               .6                                              \r\n                    4-        TIC     9       5               .8                                              \r\n                    5-        TIC     9       6               1.0                                             \r\n                    6-        TIC     9       7               1.2                                             \r\n                    7-        TIC     9       8               1.4                                             \r\n                    8-        TIC     9       9               1.6                                             \r\n                    9-        TIC     9       10              1.8                                             \r\n                   10-        TIC     9       11              2.0                                             \r\n                   11-        TIC     9       12              1.8                                             \r\n                   12-        TIC     9       13              1.6                                             \r\n                   13-        TIC     9       14              1.4                                             \r\n                   14-        TIC     9       15              1.2                                             \r\n                   15-        TIC     9       16              1.0                                             \r\n                   16-        TIC     9       17              .8                                              \r\n                   17-        TIC     9       18              .6                                              \r\n                   18-        TIC     9       19              .4                                              \r\n                   19-        TIC     9       20              .2                                              \r\n                   20-        TSTEP   9       50      .5-3    1                                               \r\n                              ENDDATA\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $     \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,,,,/,G2,,,/C,N,5 $                                             \r\n\r\n       1  EQUIV   G2,GEOM2/TRUE $                                                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $                       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1// $                                                     \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS                                                      \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,                                                  \r\n                   K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $           \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR3,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1  $                                                        \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $                   \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $                   \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $               \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/                 \r\n                   NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      90  COND     ERROR1,NOTRL $                                                 \r\n\r\n      91  PURGE    PNLD/NONLFT$                                                   \r\n\r\n      92  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBLFL3,NOFL $                                                  \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBLFL3 $                                                       \r\n\r\n      99  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     100  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     101  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     102  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     103  COND     LBLFL2,NOFL $                                                  \r\n\r\n     104  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     105  COND     LBLFL2,NOABFL $                                                \r\n\r\n     106  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     107  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     108  LABEL    LBLFL2 $                                                       \r\n\r\n     109  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     110  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     111  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     112  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     113  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     114  COND     LBL16,NOGPDT $                                                 \r\n\r\n     115  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/       \r\n                   C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/                    \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     116  LABEL    LBL16 $                                                        \r\n\r\n     117  EQUIV    M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $               \r\n\r\n     118  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n     119  PARAM    //*MPY*/REPEATT/1/-1 $                                         \r\n\r\n     121  PURGE    PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,     \r\n                   OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $           \r\n\r\n     122  CASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $                 \r\n\r\n     123  PARAM    //*MPY*/NCOL/0/1 $                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  TRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,  \r\n                   MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $                       \r\n\r\n     125  EQUIV    PPT,PDT/NOSET $                                                \r\n\r\n     126  TRD      CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/\r\n                   NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $                              \r\n\r\n     127  VDR      CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/            \r\n                   *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $                      \r\n\r\n     128  COND     LBL15,NOD $                                                    \r\n\r\n     129  SDR3     OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $                              \r\n\r\n     130  OFP      OUDV2,OPNL2,,,,//S,N,CARDNO $                                  \r\n\r\n     131  XYTRAN   XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/          \r\n                   S,N,CARDNO $                                                   \r\n\r\n     132  XYPLOT   XYPLTTA// $                                                    \r\n\r\n     133  LABEL    LBL15 $                                                        \r\n\r\n     134  PARAM    //*AND*/PJUMP/NOP/JUMPPLOT $                                   \r\n\r\n     135  COND     LBL18,PJUMP $                                                  \r\n\r\n     136  EQUIV    UDVT,UPV/NOA $                                                 \r\n\r\n     137  COND     LBL17,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $         \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n                   PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $             \r\n\r\n     141  SDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/                                    \r\n                   OPP2,OQP2,OUPV2,OES2,OEF2, $                                   \r\n\r\n     142  OFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     143  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n\r\n      TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     145  COND     P2,JUMPPLOT $                                                  \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, \r\n                   ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n\r\n     148  LABEL    P2 $                                                           \r\n\r\n     149  XYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/          \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     150  XYPLOT   XYPLTT// $                                                     \r\n\r\n     151  LABEL    LBL18 $                                                        \r\n\r\n     155  JUMP     FINIS $                                                        \r\n\r\n     156  LABEL    ERROR1 $                                                       \r\n\r\n     157  PRTPARM  //-1/*DIRTRD* $                                                \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*DIRTRD* $                                                \r\n\r\n     160  LABEL    FINIS  $                                                       \r\n\r\n     161  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     162  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                         1000 1.0E+07 0.0E+00 1.0E+01 0.0E+00\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS4    ELEMENTS (ELEMENT TYPE  14) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS4    ELEMENTS (ELEMENT TYPE  28) STARTING WITH ID  1000002\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK BGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      2.000000E-01                                                                                             \r\n   5.000000E-04     S      2.000000E-01                                                                                             \r\n   1.000000E-03     S      2.000000E-01                                                                                             \r\n   1.500000E-03     S      2.000000E-01                                                                                             \r\n   2.000000E-03     S      2.000000E-01                                                                                             \r\n   2.500000E-03     S      2.000000E-01                                                                                             \r\n   3.000000E-03     S      1.999998E-01                                                                                             \r\n   3.500000E-03     S      1.999990E-01                                                                                             \r\n   4.000000E-03     S      1.999956E-01                                                                                             \r\n   4.500000E-03     S      1.999835E-01                                                                                             \r\n   5.000000E-03     S      1.999446E-01                                                                                             \r\n   5.500000E-03     S      1.998319E-01                                                                                             \r\n   6.000001E-03     S      1.995340E-01                                                                                             \r\n   6.500001E-03     S      1.988126E-01                                                                                             \r\n   7.000001E-03     S      1.972024E-01                                                                                             \r\n   7.500001E-03     S      1.938779E-01                                                                                             \r\n   8.000000E-03     S      1.875103E-01                                                                                             \r\n   8.500000E-03     S      1.761744E-01                                                                                             \r\n   9.000001E-03     S      1.574026E-01                                                                                             \r\n   9.500001E-03     S      1.284937E-01                                                                                             \r\n   1.000000E-02     S      8.715715E-02                                                                                             \r\n   1.050000E-02     S      3.246389E-02                                                                                             \r\n   1.100000E-02     S     -3.409207E-02                                                                                             \r\n   1.150000E-02     S     -1.077998E-01                                                                                             \r\n   1.200000E-02     S     -1.806858E-01                                                                                             \r\n   1.250000E-02     S     -2.426100E-01                                                                                             \r\n   1.300000E-02     S     -2.835702E-01                                                                                             \r\n   1.350000E-02     S     -2.967559E-01                                                                                             \r\n   1.400000E-02     S     -2.813740E-01                                                                                             \r\n   1.450000E-02     S     -2.440163E-01                                                                                             \r\n   1.500000E-02     S     -1.975956E-01                                                                                             \r\n   1.550000E-02     S     -1.577016E-01                                                                                             \r\n   1.600000E-02     S     -1.373513E-01                                                                                             \r\n   1.650000E-02     S     -1.420684E-01                                                                                             \r\n   1.700000E-02     S     -1.674549E-01                                                                                             \r\n   1.750000E-02     S     -2.006427E-01                                                                                             \r\n   1.800000E-02     S     -2.254013E-01                                                                                             \r\n   1.850000E-02     S     -2.289192E-01                                                                                             \r\n   1.900000E-02     S     -2.072501E-01                                                                                             \r\n   1.949999E-02     S     -1.667930E-01                                                                                             \r\n   1.999999E-02     S     -1.209343E-01                                                                                             \r\n   2.049999E-02     S     -8.337127E-02                                                                                             \r\n   2.099999E-02     S     -6.142456E-02                                                                                             \r\n   2.149999E-02     S     -5.281368E-02                                                                                             \r\n   2.199999E-02     S     -4.766349E-02                                                                                             \r\n   2.249999E-02     S     -3.473721E-02                                                                                             \r\n   2.299999E-02     S     -8.517647E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.684618E-02                                                                                             \r\n   2.399999E-02     S      5.909642E-02                                                                                             \r\n   2.449999E-02     S      7.426479E-02                                                                                             \r\n   2.499999E-02     S      6.447019E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      6.000000E-01                                                                                             \r\n   5.000000E-04     S      6.000000E-01                                                                                             \r\n   1.000000E-03     S      6.000000E-01                                                                                             \r\n   1.500000E-03     S      6.000000E-01                                                                                             \r\n   2.000000E-03     S      5.999995E-01                                                                                             \r\n   2.500000E-03     S      5.999969E-01                                                                                             \r\n   3.000000E-03     S      5.999851E-01                                                                                             \r\n   3.500000E-03     S      5.999399E-01                                                                                             \r\n   4.000000E-03     S      5.997904E-01                                                                                             \r\n   4.500000E-03     S      5.993536E-01                                                                                             \r\n   5.000000E-03     S      5.982147E-01                                                                                             \r\n   5.500000E-03     S      5.955372E-01                                                                                             \r\n   6.000001E-03     S      5.898156E-01                                                                                             \r\n   6.500001E-03     S      5.786372E-01                                                                                             \r\n   7.000001E-03     S      5.585829E-01                                                                                             \r\n   7.500001E-03     S      5.254398E-01                                                                                             \r\n   8.000000E-03     S      4.748784E-01                                                                                             \r\n   8.500000E-03     S      4.036039E-01                                                                                             \r\n   9.000001E-03     S      3.107565E-01                                                                                             \r\n   9.500001E-03     S      1.990760E-01                                                                                             \r\n   1.000000E-02     S      7.521704E-02                                                                                             \r\n   1.050000E-02     S     -5.124467E-02                                                                                             \r\n   1.100000E-02     S     -1.701098E-01                                                                                             \r\n   1.150000E-02     S     -2.734966E-01                                                                                             \r\n   1.200000E-02     S     -3.582492E-01                                                                                             \r\n   1.250000E-02     S     -4.265984E-01                                                                                             \r\n   1.300000E-02     S     -4.844747E-01                                                                                             \r\n   1.350000E-02     S     -5.379733E-01                                                                                             \r\n   1.400000E-02     S     -5.895417E-01                                                                                             \r\n   1.450000E-02     S     -6.358776E-01                                                                                             \r\n   1.500000E-02     S     -6.689011E-01                                                                                             \r\n   1.550000E-02     S     -6.796689E-01                                                                                             \r\n   1.600000E-02     S     -6.634405E-01                                                                                             \r\n   1.650000E-02     S     -6.232280E-01                                                                                             \r\n   1.700000E-02     S     -5.696836E-01                                                                                             \r\n   1.750000E-02     S     -5.169850E-01                                                                                             \r\n   1.800000E-02     S     -4.765571E-01                                                                                             \r\n   1.850000E-02     S     -4.518040E-01                                                                                             \r\n   1.900000E-02     S     -4.366774E-01                                                                                             \r\n   1.949999E-02     S     -4.189520E-01                                                                                             \r\n   1.999999E-02     S     -3.865716E-01                                                                                             \r\n   2.049999E-02     S     -3.337749E-01                                                                                             \r\n   2.099999E-02     S     -2.638749E-01                                                                                             \r\n   2.149999E-02     S     -1.874562E-01                                                                                             \r\n   2.199999E-02     S     -1.172585E-01                                                                                             \r\n   2.249999E-02     S     -6.266554E-02                                                                                             \r\n   2.299999E-02     S     -2.661881E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.096438E-03                                                                                             \r\n   2.399999E-02     S      4.815150E-03                                                                                             \r\n   2.449999E-02     S      1.147075E-02                                                                                             \r\n   2.499999E-02     S      1.676299E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      8.000000E-01                                                                                             \r\n   5.000000E-04     S      8.000000E-01                                                                                             \r\n   1.000000E-03     S      8.000000E-01                                                                                             \r\n   1.500000E-03     S      7.999992E-01                                                                                             \r\n   2.000000E-03     S      7.999949E-01                                                                                             \r\n   2.500000E-03     S      7.999733E-01                                                                                             \r\n   3.000000E-03     S      7.998867E-01                                                                                             \r\n   3.500000E-03     S      7.995940E-01                                                                                             \r\n   4.000000E-03     S      7.987384E-01                                                                                             \r\n   4.500000E-03     S      7.965374E-01                                                                                             \r\n   5.000000E-03     S      7.914917E-01                                                                                             \r\n   5.500000E-03     S      7.810838E-01                                                                                             \r\n   6.000001E-03     S      7.616301E-01                                                                                             \r\n   6.500001E-03     S      7.285125E-01                                                                                             \r\n   7.000001E-03     S      6.769831E-01                                                                                             \r\n   7.500001E-03     S      6.035454E-01                                                                                             \r\n   8.000000E-03     S      5.075912E-01                                                                                             \r\n   8.500000E-03     S      3.926423E-01                                                                                             \r\n   9.000001E-03     S      2.664276E-01                                                                                             \r\n   9.500001E-03     S      1.393080E-01                                                                                             \r\n   1.000000E-02     S      2.124779E-02                                                                                             \r\n   1.050000E-02     S     -8.164138E-02                                                                                             \r\n   1.100000E-02     S     -1.694285E-01                                                                                             \r\n   1.150000E-02     S     -2.482141E-01                                                                                             \r\n   1.200000E-02     S     -3.271649E-01                                                                                             \r\n   1.250000E-02     S     -4.138179E-01                                                                                             \r\n   1.300000E-02     S     -5.098243E-01                                                                                             \r\n   1.350000E-02     S     -6.093398E-01                                                                                             \r\n   1.400000E-02     S     -7.010622E-01                                                                                             \r\n   1.450000E-02     S     -7.730126E-01                                                                                             \r\n   1.500000E-02     S     -8.175996E-01                                                                                             \r\n   1.550000E-02     S     -8.342679E-01                                                                                             \r\n   1.600000E-02     S     -8.283781E-01                                                                                             \r\n   1.650000E-02     S     -8.071674E-01                                                                                             \r\n   1.700000E-02     S     -7.753937E-01                                                                                             \r\n   1.750000E-02     S     -7.334365E-01                                                                                             \r\n   1.800000E-02     S     -6.790191E-01                                                                                             \r\n   1.850000E-02     S     -6.112984E-01                                                                                             \r\n   1.900000E-02     S     -5.343794E-01                                                                                             \r\n   1.949999E-02     S     -4.575346E-01                                                                                             \r\n   1.999999E-02     S     -3.914919E-01                                                                                             \r\n   2.049999E-02     S     -3.428312E-01                                                                                             \r\n   2.099999E-02     S     -3.100227E-01                                                                                             \r\n   2.149999E-02     S     -2.838856E-01                                                                                             \r\n   2.199999E-02     S     -2.525902E-01                                                                                             \r\n   2.249999E-02     S     -2.084266E-01                                                                                             \r\n   2.299999E-02     S     -1.523059E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.323521E-02                                                                                             \r\n   2.399999E-02     S     -4.307547E-02                                                                                             \r\n   2.449999E-02     S     -9.814604E-03                                                                                             \r\n   2.499999E-02     S      6.520586E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.000000E+00                                                                                             \r\n   5.000000E-04     S      9.999999E-01                                                                                             \r\n   1.000000E-03     S      9.999991E-01                                                                                             \r\n   1.500000E-03     S      9.999921E-01                                                                                             \r\n   2.000000E-03     S      9.999532E-01                                                                                             \r\n   2.500000E-03     S      9.997867E-01                                                                                             \r\n   3.000000E-03     S      9.992087E-01                                                                                             \r\n   3.500000E-03     S      9.975169E-01                                                                                             \r\n   4.000000E-03     S      9.932414E-01                                                                                             \r\n   4.500000E-03     S      9.837537E-01                                                                                             \r\n   5.000000E-03     S      9.650443E-01                                                                                             \r\n   5.500000E-03     S      9.319757E-01                                                                                             \r\n   6.000001E-03     S      8.792740E-01                                                                                             \r\n   6.500001E-03     S      8.032469E-01                                                                                             \r\n   7.000001E-03     S      7.037528E-01                                                                                             \r\n   7.500001E-03     S      5.855225E-01                                                                                             \r\n   8.000000E-03     S      4.578661E-01                                                                                             \r\n   8.500000E-03     S      3.323105E-01                                                                                             \r\n   9.000001E-03     S      2.187158E-01                                                                                             \r\n   9.500001E-03     S      1.214363E-01                                                                                             \r\n   1.000000E-02     S      3.747671E-02                                                                                             \r\n   1.050000E-02     S     -4.207973E-02                                                                                             \r\n   1.100000E-02     S     -1.276788E-01                                                                                             \r\n   1.150000E-02     S     -2.259402E-01                                                                                             \r\n   1.200000E-02     S     -3.361223E-01                                                                                             \r\n   1.250000E-02     S     -4.504136E-01                                                                                             \r\n   1.300000E-02     S     -5.579979E-01                                                                                             \r\n   1.350000E-02     S     -6.506143E-01                                                                                             \r\n   1.400000E-02     S     -7.263325E-01                                                                                             \r\n   1.450000E-02     S     -7.892278E-01                                                                                             \r\n   1.500000E-02     S     -8.451061E-01                                                                                             \r\n   1.550000E-02     S     -8.959538E-01                                                                                             \r\n   1.600000E-02     S     -9.367247E-01                                                                                             \r\n   1.650000E-02     S     -9.567593E-01                                                                                             \r\n   1.700000E-02     S     -9.452867E-01                                                                                             \r\n   1.750000E-02     S     -8.978496E-01                                                                                             \r\n   1.800000E-02     S     -8.198157E-01                                                                                             \r\n   1.850000E-02     S     -7.248560E-01                                                                                             \r\n   1.900000E-02     S     -6.293044E-01                                                                                             \r\n   1.949999E-02     S     -5.457208E-01                                                                                             \r\n   1.999999E-02     S     -4.792122E-01                                                                                             \r\n   2.049999E-02     S     -4.280668E-01                                                                                             \r\n   2.099999E-02     S     -3.874177E-01                                                                                             \r\n   2.149999E-02     S     -3.529460E-01                                                                                             \r\n   2.199999E-02     S     -3.221437E-01                                                                                             \r\n   2.249999E-02     S     -2.929160E-01                                                                                             \r\n   2.299999E-02     S     -2.615582E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.226805E-01                                                                                             \r\n   2.399999E-02     S     -1.720253E-01                                                                                             \r\n   2.449999E-02     S     -1.105208E-01                                                                                             \r\n   2.499999E-02     S     -4.634988E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.800000E+00                                                                                             \r\n   5.000000E-04     S      1.797927E+00                                                                                             \r\n   1.000000E-03     S      1.787102E+00                                                                                             \r\n   1.500000E-03     S      1.755303E+00                                                                                             \r\n   2.000000E-03     S      1.690605E+00                                                                                             \r\n   2.500000E-03     S      1.589987E+00                                                                                             \r\n   3.000000E-03     S      1.464497E+00                                                                                             \r\n   3.500000E-03     S      1.334881E+00                                                                                             \r\n   4.000000E-03     S      1.220342E+00                                                                                             \r\n   4.500000E-03     S      1.127921E+00                                                                                             \r\n   5.000000E-03     S      1.049639E+00                                                                                             \r\n   5.500000E-03     S      9.691646E-01                                                                                             \r\n   6.000001E-03     S      8.733443E-01                                                                                             \r\n   6.500001E-03     S      7.607322E-01                                                                                             \r\n   7.000001E-03     S      6.416159E-01                                                                                             \r\n   7.500001E-03     S      5.300467E-01                                                                                             \r\n   8.000000E-03     S      4.338370E-01                                                                                             \r\n   8.500000E-03     S      3.495873E-01                                                                                             \r\n   9.000001E-03     S      2.659540E-01                                                                                             \r\n   9.500001E-03     S      1.724412E-01                                                                                             \r\n   1.000000E-02     S      6.725135E-02                                                                                             \r\n   1.050000E-02     S     -4.130216E-02                                                                                             \r\n   1.100000E-02     S     -1.405079E-01                                                                                             \r\n   1.150000E-02     S     -2.217086E-01                                                                                             \r\n   1.200000E-02     S     -2.853948E-01                                                                                             \r\n   1.250000E-02     S     -3.395713E-01                                                                                             \r\n   1.300000E-02     S     -3.930537E-01                                                                                             \r\n   1.350000E-02     S     -4.489467E-01                                                                                             \r\n   1.400000E-02     S     -5.031651E-01                                                                                             \r\n   1.450000E-02     S     -5.488954E-01                                                                                             \r\n   1.500000E-02     S     -5.833790E-01                                                                                             \r\n   1.550000E-02     S     -6.116607E-01                                                                                             \r\n   1.600000E-02     S     -6.442282E-01                                                                                             \r\n   1.650000E-02     S     -6.900287E-01                                                                                             \r\n   1.700000E-02     S     -7.498215E-01                                                                                             \r\n   1.750000E-02     S     -8.146790E-01                                                                                             \r\n   1.800000E-02     S     -8.708181E-01                                                                                             \r\n   1.850000E-02     S     -9.074854E-01                                                                                             \r\n   1.900000E-02     S     -9.225335E-01                                                                                             \r\n   1.949999E-02     S     -9.220529E-01                                                                                             \r\n   1.999999E-02     S     -9.146458E-01                                                                                             \r\n   2.049999E-02     S     -9.045979E-01                                                                                             \r\n   2.099999E-02     S     -8.887582E-01                                                                                             \r\n   2.149999E-02     S     -8.591183E-01                                                                                             \r\n   2.199999E-02     S     -8.090271E-01                                                                                             \r\n   2.249999E-02     S     -7.385848E-01                                                                                             \r\n   2.299999E-02     S     -6.556048E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -5.718018E-01                                                                                             \r\n   2.399999E-02     S     -4.970895E-01                                                                                             \r\n   2.449999E-02     S     -4.357861E-01                                                                                             \r\n   2.499999E-02     S     -3.866993E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.800000E+00                                                                                             \r\n   5.000000E-04     S      1.797927E+00                                                                                             \r\n   1.000000E-03     S      1.787102E+00                                                                                             \r\n   1.500000E-03     S      1.755303E+00                                                                                             \r\n   2.000000E-03     S      1.690605E+00                                                                                             \r\n   2.500000E-03     S      1.589987E+00                                                                                             \r\n   3.000000E-03     S      1.464497E+00                                                                                             \r\n   3.500000E-03     S      1.334882E+00                                                                                             \r\n   4.000000E-03     S      1.220344E+00                                                                                             \r\n   4.500000E-03     S      1.127929E+00                                                                                             \r\n   5.000000E-03     S      1.049666E+00                                                                                             \r\n   5.500000E-03     S      9.692486E-01                                                                                             \r\n   6.000001E-03     S      8.735773E-01                                                                                             \r\n   6.500001E-03     S      7.613259E-01                                                                                             \r\n   7.000001E-03     S      6.430146E-01                                                                                             \r\n   7.500001E-03     S      5.331078E-01                                                                                             \r\n   8.000000E-03     S      4.400819E-01                                                                                             \r\n   8.500000E-03     S      3.615001E-01                                                                                             \r\n   9.000001E-03     S      2.872527E-01                                                                                             \r\n   9.500001E-03     S      2.081943E-01                                                                                             \r\n   1.000000E-02     S      1.236727E-01                                                                                             \r\n   1.050000E-02     S      4.246569E-02                                                                                             \r\n   1.100000E-02     S     -2.346244E-02                                                                                             \r\n   1.150000E-02     S     -6.781024E-02                                                                                             \r\n   1.200000E-02     S     -9.505592E-02                                                                                             \r\n   1.250000E-02     S     -1.182763E-01                                                                                             \r\n   1.300000E-02     S     -1.512924E-01                                                                                             \r\n   1.350000E-02     S     -2.006232E-01                                                                                             \r\n   1.400000E-02     S     -2.625974E-01                                                                                             \r\n   1.450000E-02     S     -3.271393E-01                                                                                             \r\n   1.500000E-02     S     -3.850937E-01                                                                                             \r\n   1.550000E-02     S     -4.338149E-01                                                                                             \r\n   1.600000E-02     S     -4.774528E-01                                                                                             \r\n   1.650000E-02     S     -5.224614E-01                                                                                             \r\n   1.700000E-02     S     -5.721989E-01                                                                                             \r\n   1.750000E-02     S     -6.247362E-01                                                                                             \r\n   1.800000E-02     S     -6.751533E-01                                                                                             \r\n   1.850000E-02     S     -7.200260E-01                                                                                             \r\n   1.900000E-02     S     -7.602227E-01                                                                                             \r\n   1.949999E-02     S     -7.996759E-01                                                                                             \r\n   1.999999E-02     S     -8.411381E-01                                                                                             \r\n   2.049999E-02     S     -8.824293E-01                                                                                             \r\n   2.099999E-02     S     -9.163634E-01                                                                                             \r\n   2.149999E-02     S     -9.346734E-01                                                                                             \r\n   2.199999E-02     S     -9.330769E-01                                                                                             \r\n   2.249999E-02     S     -9.136242E-01                                                                                             \r\n   2.299999E-02     S     -8.824862E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.448462E-01                                                                                             \r\n   2.399999E-02     S     -8.008913E-01                                                                                             \r\n   2.449999E-02     S     -7.461870E-01                                                                                             \r\n   2.499999E-02     S     -6.764216E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.400000E+00                                                                                             \r\n   5.000000E-04     S      1.399989E+00                                                                                             \r\n   1.000000E-03     S      1.399878E+00                                                                                             \r\n   1.500000E-03     S      1.399263E+00                                                                                             \r\n   2.000000E-03     S      1.396911E+00                                                                                             \r\n   2.500000E-03     S      1.390008E+00                                                                                             \r\n   3.000000E-03     S      1.373571E+00                                                                                             \r\n   3.500000E-03     S      1.340733E+00                                                                                             \r\n   4.000000E-03     S      1.284532E+00                                                                                             \r\n   4.500000E-03     S      1.201017E+00                                                                                             \r\n   5.000000E-03     S      1.092389E+00                                                                                             \r\n   5.500000E-03     S      9.681978E-01                                                                                             \r\n   6.000001E-03     S      8.431584E-01                                                                                             \r\n   6.500001E-03     S      7.319025E-01                                                                                             \r\n   7.000001E-03     S      6.430621E-01                                                                                             \r\n   7.500001E-03     S      5.759653E-01                                                                                             \r\n   8.000000E-03     S      5.220922E-01                                                                                             \r\n   8.500000E-03     S      4.706844E-01                                                                                             \r\n   9.000001E-03     S      4.152273E-01                                                                                             \r\n   9.500001E-03     S      3.567752E-01                                                                                             \r\n   1.000000E-02     S      3.019874E-01                                                                                             \r\n   1.050000E-02     S      2.572139E-01                                                                                             \r\n   1.100000E-02     S      2.227143E-01                                                                                             \r\n   1.150000E-02     S      1.911625E-01                                                                                             \r\n   1.200000E-02     S      1.517596E-01                                                                                             \r\n   1.250000E-02     S      9.737088E-02                                                                                             \r\n   1.300000E-02     S      2.980537E-02                                                                                             \r\n   1.350000E-02     S     -4.062866E-02                                                                                             \r\n   1.400000E-02     S     -1.013719E-01                                                                                             \r\n   1.450000E-02     S     -1.457147E-01                                                                                             \r\n   1.500000E-02     S     -1.773312E-01                                                                                             \r\n   1.550000E-02     S     -2.080542E-01                                                                                             \r\n   1.600000E-02     S     -2.502044E-01                                                                                             \r\n   1.650000E-02     S     -3.085220E-01                                                                                             \r\n   1.700000E-02     S     -3.771063E-01                                                                                             \r\n   1.750000E-02     S     -4.434403E-01                                                                                             \r\n   1.800000E-02     S     -4.967796E-01                                                                                             \r\n   1.850000E-02     S     -5.352274E-01                                                                                             \r\n   1.900000E-02     S     -5.667236E-01                                                                                             \r\n   1.949999E-02     S     -6.033499E-01                                                                                             \r\n   1.999999E-02     S     -6.529068E-01                                                                                             \r\n   2.049999E-02     S     -7.135251E-01                                                                                             \r\n   2.099999E-02     S     -7.748904E-01                                                                                             \r\n   2.149999E-02     S     -8.250577E-01                                                                                             \r\n   2.199999E-02     S     -8.580109E-01                                                                                             \r\n   2.249999E-02     S     -8.767303E-01                                                                                             \r\n   2.299999E-02     S     -8.897819E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.040138E-01                                                                                             \r\n   2.399999E-02     S     -9.186167E-01                                                                                             \r\n   2.449999E-02     S     -9.247617E-01                                                                                             \r\n   2.499999E-02     S     -9.110588E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      1.000000E+00                                                                                             \r\n   5.000000E-04     S      1.000000E+00                                                                                             \r\n   1.000000E-03     S      9.999996E-01                                                                                             \r\n   1.500000E-03     S      9.999961E-01                                                                                             \r\n   2.000000E-03     S      9.999766E-01                                                                                             \r\n   2.500000E-03     S      9.998934E-01                                                                                             \r\n   3.000000E-03     S      9.996044E-01                                                                                             \r\n   3.500000E-03     S      9.987585E-01                                                                                             \r\n   4.000000E-03     S      9.966207E-01                                                                                             \r\n   4.500000E-03     S      9.918768E-01                                                                                             \r\n   5.000000E-03     S      9.825222E-01                                                                                             \r\n   5.500000E-03     S      9.659878E-01                                                                                             \r\n   6.000001E-03     S      9.396369E-01                                                                                             \r\n   6.500001E-03     S      9.016234E-01                                                                                             \r\n   7.000001E-03     S      8.518763E-01                                                                                             \r\n   7.500001E-03     S      7.927610E-01                                                                                             \r\n   8.000000E-03     S      7.289321E-01                                                                                             \r\n   8.500000E-03     S      6.661525E-01                                                                                             \r\n   9.000001E-03     S      6.093503E-01                                                                                             \r\n   9.500001E-03     S      5.606978E-01                                                                                             \r\n   1.000000E-02     S      5.186869E-01                                                                                             \r\n   1.050000E-02     S      4.788362E-01                                                                                             \r\n   1.100000E-02     S      4.358766E-01                                                                                             \r\n   1.150000E-02     S      3.864088E-01                                                                                             \r\n   1.200000E-02     S      3.306412E-01                                                                                             \r\n   1.250000E-02     S      2.721987E-01                                                                                             \r\n   1.300000E-02     S      2.160326E-01                                                                                             \r\n   1.350000E-02     S      1.655702E-01                                                                                             \r\n   1.400000E-02     S      1.207588E-01                                                                                             \r\n   1.450000E-02     S      7.818323E-02                                                                                             \r\n   1.500000E-02     S      3.320773E-02                                                                                             \r\n   1.550000E-02     S     -1.715590E-02                                                                                             \r\n   1.600000E-02     S     -7.243516E-02                                                                                             \r\n   1.650000E-02     S     -1.290782E-01                                                                                             \r\n   1.700000E-02     S     -1.827828E-01                                                                                             \r\n   1.750000E-02     S     -2.312724E-01                                                                                             \r\n   1.800000E-02     S     -2.757182E-01                                                                                             \r\n   1.850000E-02     S     -3.198912E-01                                                                                             \r\n   1.900000E-02     S     -3.676163E-01                                                                                             \r\n   1.949999E-02     S     -4.202256E-01                                                                                             \r\n   1.999999E-02     S     -4.757032E-01                                                                                             \r\n   2.049999E-02     S     -5.300686E-01                                                                                             \r\n   2.099999E-02     S     -5.800328E-01                                                                                             \r\n   2.149999E-02     S     -6.251019E-01                                                                                             \r\n   2.199999E-02     S     -6.676880E-01                                                                                             \r\n   2.249999E-02     S     -7.111528E-01                                                                                             \r\n   2.299999E-02     S     -7.571254E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.039213E-01                                                                                             \r\n   2.399999E-02     S     -8.471164E-01                                                                                             \r\n   2.449999E-02     S     -8.818358E-01                                                                                             \r\n   2.499999E-02     S     -9.051509E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      6.000000E-01                                                                                             \r\n   5.000000E-04     S      6.000054E-01                                                                                             \r\n   1.000000E-03     S      6.000610E-01                                                                                             \r\n   1.500000E-03     S      6.003687E-01                                                                                             \r\n   2.000000E-03     S      6.015443E-01                                                                                             \r\n   2.500000E-03     S      6.049935E-01                                                                                             \r\n   3.000000E-03     S      6.132034E-01                                                                                             \r\n   3.500000E-03     S      6.295885E-01                                                                                             \r\n   4.000000E-03     S      6.575766E-01                                                                                             \r\n   4.500000E-03     S      6.990065E-01                                                                                             \r\n   5.000000E-03     S      7.524667E-01                                                                                             \r\n   5.500000E-03     S      8.125540E-01                                                                                             \r\n   6.000001E-03     S      8.707821E-01                                                                                             \r\n   6.500001E-03     S      9.180257E-01                                                                                             \r\n   7.000001E-03     S      9.474029E-01                                                                                             \r\n   7.500001E-03     S      9.560875E-01                                                                                             \r\n   8.000000E-03     S      9.450853E-01                                                                                             \r\n   8.500000E-03     S      9.172885E-01                                                                                             \r\n   9.000001E-03     S      8.752737E-01                                                                                             \r\n   9.500001E-03     S      8.204954E-01                                                                                             \r\n   1.000000E-02     S      7.544727E-01                                                                                             \r\n   1.050000E-02     S      6.809542E-01                                                                                             \r\n   1.100000E-02     S      6.070179E-01                                                                                             \r\n   1.150000E-02     S      5.415317E-01                                                                                             \r\n   1.200000E-02     S      4.912033E-01                                                                                             \r\n   1.250000E-02     S      4.564521E-01                                                                                             \r\n   1.300000E-02     S      4.300266E-01                                                                                             \r\n   1.350000E-02     S      3.999715E-01                                                                                             \r\n   1.400000E-02     S      3.558412E-01                                                                                             \r\n   1.450000E-02     S      2.947007E-01                                                                                             \r\n   1.500000E-02     S      2.231410E-01                                                                                             \r\n   1.550000E-02     S      1.537081E-01                                                                                             \r\n   1.600000E-02     S      9.759292E-02                                                                                             \r\n   1.650000E-02     S      5.793717E-02                                                                                             \r\n   1.700000E-02     S      2.795235E-02                                                                                             \r\n   1.750000E-02     S     -4.851677E-03                                                                                             \r\n   1.800000E-02     S     -5.088966E-02                                                                                             \r\n   1.850000E-02     S     -1.120615E-01                                                                                             \r\n   1.900000E-02     S     -1.807438E-01                                                                                             \r\n   1.949999E-02     S     -2.448371E-01                                                                                             \r\n   1.999999E-02     S     -2.955827E-01                                                                                             \r\n   2.049999E-02     S     -3.330705E-01                                                                                             \r\n   2.099999E-02     S     -3.659039E-01                                                                                             \r\n   2.149999E-02     S     -4.053376E-01                                                                                             \r\n   2.199999E-02     S     -4.578297E-01                                                                                             \r\n   2.249999E-02     S     -5.209293E-01                                                                                             \r\n   2.299999E-02     S     -5.851241E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.402619E-01                                                                                             \r\n   2.399999E-02     S     -6.821428E-01                                                                                             \r\n   2.449999E-02     S     -7.148568E-01                                                                                             \r\n   2.499999E-02     S     -7.473989E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      2.000000E-01                                                                                             \r\n   5.000000E-04     S      2.010363E-01                                                                                             \r\n   1.000000E-03     S      2.064490E-01                                                                                             \r\n   1.500000E-03     S      2.223486E-01                                                                                             \r\n   2.000000E-03     S      2.546977E-01                                                                                             \r\n   2.500000E-03     S      3.050067E-01                                                                                             \r\n   3.000000E-03     S      3.677514E-01                                                                                             \r\n   3.500000E-03     S      4.325583E-01                                                                                             \r\n   4.000000E-03     S      4.898247E-01                                                                                             \r\n   4.500000E-03     S      5.360226E-01                                                                                             \r\n   5.000000E-03     S      5.751243E-01                                                                                             \r\n   5.500000E-03     S      6.152461E-01                                                                                             \r\n   6.000001E-03     S      6.628502E-01                                                                                             \r\n   6.500001E-03     S      7.184113E-01                                                                                             \r\n   7.000001E-03     S      7.762957E-01                                                                                             \r\n   7.500001E-03     S      8.285968E-01                                                                                             \r\n   8.000000E-03     S      8.699627E-01                                                                                             \r\n   8.500000E-03     S      8.999402E-01                                                                                             \r\n   9.000001E-03     S      9.213197E-01                                                                                             \r\n   9.500001E-03     S      9.359522E-01                                                                                             \r\n   1.000000E-02     S      9.413618E-01                                                                                             \r\n   1.050000E-02     S      9.309060E-01                                                                                             \r\n   1.100000E-02     S      8.976805E-01                                                                                             \r\n   1.150000E-02     S      8.396563E-01                                                                                             \r\n   1.200000E-02     S      7.625707E-01                                                                                             \r\n   1.250000E-02     S      6.785023E-01                                                                                             \r\n   1.300000E-02     S      6.008325E-01                                                                                             \r\n   1.350000E-02     S      5.385284E-01                                                                                             \r\n   1.400000E-02     S      4.929370E-01                                                                                             \r\n   1.450000E-02     S      4.585474E-01                                                                                             \r\n   1.500000E-02     S      4.267458E-01                                                                                             \r\n   1.550000E-02     S      3.900952E-01                                                                                             \r\n   1.600000E-02     S      3.449168E-01                                                                                             \r\n   1.650000E-02     S      2.914712E-01                                                                                             \r\n   1.700000E-02     S      2.325777E-01                                                                                             \r\n   1.750000E-02     S      1.720247E-01                                                                                             \r\n   1.800000E-02     S      1.135298E-01                                                                                             \r\n   1.850000E-02     S      6.008010E-02                                                                                             \r\n   1.900000E-02     S      1.314841E-02                                                                                             \r\n   1.949999E-02     S     -2.822081E-02                                                                                             \r\n   1.999999E-02     S     -6.771046E-02                                                                                             \r\n   2.049999E-02     S     -1.105603E-01                                                                                             \r\n   2.099999E-02     S     -1.609545E-01                                                                                             \r\n   2.149999E-02     S     -2.192941E-01                                                                                             \r\n   2.199999E-02     S     -2.812855E-01                                                                                             \r\n   2.249999E-02     S     -3.399476E-01                                                                                             \r\n   2.299999E-02     S     -3.897291E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -4.302279E-01                                                                                             \r\n   2.399999E-02     S     -4.668834E-01                                                                                             \r\n   2.449999E-02     S     -5.078064E-01                                                                                             \r\n   2.499999E-02     S     -5.585265E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.036297E-03                                                                                             \r\n   1.000000E-03     S      6.448957E-03                                                                                             \r\n   1.500000E-03     S      2.234865E-02                                                                                             \r\n   2.000000E-03     S      5.469774E-02                                                                                             \r\n   2.500000E-03     S      1.050067E-01                                                                                             \r\n   3.000000E-03     S      1.677516E-01                                                                                             \r\n   3.500000E-03     S      2.325593E-01                                                                                             \r\n   4.000000E-03     S      2.898291E-01                                                                                             \r\n   4.500000E-03     S      3.360392E-01                                                                                             \r\n   5.000000E-03     S      3.751797E-01                                                                                             \r\n   5.500000E-03     S      4.154142E-01                                                                                             \r\n   6.000001E-03     S      4.633162E-01                                                                                             \r\n   6.500001E-03     S      5.195987E-01                                                                                             \r\n   7.000001E-03     S      5.790933E-01                                                                                             \r\n   7.500001E-03     S      6.347188E-01                                                                                             \r\n   8.000000E-03     S      6.824524E-01                                                                                             \r\n   8.500000E-03     S      7.237657E-01                                                                                             \r\n   9.000001E-03     S      7.639171E-01                                                                                             \r\n   9.500001E-03     S      8.074585E-01                                                                                             \r\n   1.000000E-02     S      8.542047E-01                                                                                             \r\n   1.050000E-02     S      8.984423E-01                                                                                             \r\n   1.100000E-02     S      9.317729E-01                                                                                             \r\n   1.150000E-02     S      9.474572E-01                                                                                             \r\n   1.200000E-02     S      9.432592E-01                                                                                             \r\n   1.250000E-02     S      9.211190E-01                                                                                             \r\n   1.300000E-02     S      8.844186E-01                                                                                             \r\n   1.350000E-02     S      8.353205E-01                                                                                             \r\n   1.400000E-02     S      7.743906E-01                                                                                             \r\n   1.450000E-02     S      7.027317E-01                                                                                             \r\n   1.500000E-02     S      6.246831E-01                                                                                             \r\n   1.550000E-02     S      5.484668E-01                                                                                             \r\n   1.600000E-02     S      4.835350E-01                                                                                             \r\n   1.650000E-02     S      4.358509E-01                                                                                             \r\n   1.700000E-02     S      4.041026E-01                                                                                             \r\n   1.750000E-02     S      3.795864E-01                                                                                             \r\n   1.800000E-02     S      3.502883E-01                                                                                             \r\n   1.850000E-02     S      3.069992E-01                                                                                             \r\n   1.900000E-02     S      2.479411E-01                                                                                             \r\n   1.949999E-02     S      1.792513E-01                                                                                             \r\n   1.999999E-02     S      1.111955E-01                                                                                             \r\n   2.049999E-02     S      5.248595E-02                                                                                             \r\n   2.099999E-02     S      6.008454E-03                                                                                             \r\n   2.149999E-02     S     -3.185295E-02                                                                                             \r\n   2.199999E-02     S     -6.839571E-02                                                                                             \r\n   2.249999E-02     S     -1.103272E-01                                                                                             \r\n   2.299999E-02     S     -1.605586E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.175282E-01                                                                                             \r\n   2.399999E-02     S     -2.768478E-01                                                                                             \r\n   2.449999E-02     S     -3.338889E-01                                                                                             \r\n   2.499999E-02     S     -3.858312E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      5.341882E-06                                                                                             \r\n   1.000000E-03     S      6.100017E-05                                                                                             \r\n   1.500000E-03     S      3.687272E-04                                                                                             \r\n   2.000000E-03     S      1.544845E-03                                                                                             \r\n   2.500000E-03     S      4.996617E-03                                                                                             \r\n   3.000000E-03     S      1.321833E-02                                                                                             \r\n   3.500000E-03     S      2.964850E-02                                                                                             \r\n   4.000000E-03     S      5.778622E-02                                                                                             \r\n   4.500000E-03     S      9.965292E-02                                                                                             \r\n   5.000000E-03     S      1.542519E-01                                                                                             \r\n   5.500000E-03     S      2.170168E-01                                                                                             \r\n   6.000001E-03     S      2.809666E-01                                                                                             \r\n   6.500001E-03     S      3.393884E-01                                                                                             \r\n   7.000001E-03     S      3.888200E-01                                                                                             \r\n   7.500001E-03     S      4.306477E-01                                                                                             \r\n   8.000000E-03     S      4.702069E-01                                                                                             \r\n   8.500000E-03     S      5.136846E-01                                                                                             \r\n   9.000001E-03     S      5.645174E-01                                                                                             \r\n   9.500001E-03     S      6.214199E-01                                                                                             \r\n   1.000000E-02     S      6.792572E-01                                                                                             \r\n   1.050000E-02     S      7.322027E-01                                                                                             \r\n   1.100000E-02     S      7.771376E-01                                                                                             \r\n   1.150000E-02     S      8.150524E-01                                                                                             \r\n   1.200000E-02     S      8.495089E-01                                                                                             \r\n   1.250000E-02     S      8.831770E-01                                                                                             \r\n   1.300000E-02     S      9.147737E-01                                                                                             \r\n   1.350000E-02     S      9.385077E-01                                                                                             \r\n   1.400000E-02     S      9.465010E-01                                                                                             \r\n   1.450000E-02     S      9.327147E-01                                                                                             \r\n   1.500000E-02     S      8.959718E-01                                                                                             \r\n   1.550000E-02     S      8.403403E-01                                                                                             \r\n   1.600000E-02     S      7.729259E-01                                                                                             \r\n   1.650000E-02     S      7.007511E-01                                                                                             \r\n   1.700000E-02     S      6.287532E-01                                                                                             \r\n   1.750000E-02     S      5.598412E-01                                                                                             \r\n   1.800000E-02     S      4.962709E-01                                                                                             \r\n   1.850000E-02     S      4.406257E-01                                                                                             \r\n   1.900000E-02     S      3.951437E-01                                                                                             \r\n   1.949999E-02     S      3.596787E-01                                                                                             \r\n   1.999999E-02     S      3.300071E-01                                                                                             \r\n   2.049999E-02     S      2.983392E-01                                                                                             \r\n   2.099999E-02     S      2.565179E-01                                                                                             \r\n   2.149999E-02     S      2.003841E-01                                                                                             \r\n   2.199999E-02     S      1.326146E-01                                                                                             \r\n   2.249999E-02     S      6.193501E-02                                                                                             \r\n   2.299999E-02     S     -1.255329E-03                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -5.049701E-02                                                                                             \r\n   2.399999E-02     S     -8.683186E-02                                                                                             \r\n   2.449999E-02     S     -1.181399E-01                                                                                             \r\n   2.499999E-02     S     -1.546051E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      2.753621E-08                                                                                             \r\n   1.000000E-03     S      4.575246E-07                                                                                             \r\n   1.500000E-03     S      3.951048E-06                                                                                             \r\n   2.000000E-03     S      2.342787E-05                                                                                             \r\n   2.500000E-03     S      1.066403E-04                                                                                             \r\n   3.000000E-03     S      3.956272E-04                                                                                             \r\n   3.500000E-03     S      1.241516E-03                                                                                             \r\n   4.000000E-03     S      3.379296E-03                                                                                             \r\n   4.500000E-03     S      8.123136E-03                                                                                             \r\n   5.000000E-03     S      1.747783E-02                                                                                             \r\n   5.500000E-03     S      3.401216E-02                                                                                             \r\n   6.000001E-03     S      6.036302E-02                                                                                             \r\n   6.500001E-03     S      9.837656E-02                                                                                             \r\n   7.000001E-03     S      1.481236E-01                                                                                             \r\n   7.500001E-03     S      2.072386E-01                                                                                             \r\n   8.000000E-03     S      2.710666E-01                                                                                             \r\n   8.500000E-03     S      3.338439E-01                                                                                             \r\n   9.000001E-03     S      3.906396E-01                                                                                             \r\n   9.500001E-03     S      4.392751E-01                                                                                             \r\n   1.000000E-02     S      4.812445E-01                                                                                             \r\n   1.050000E-02     S      5.209986E-01                                                                                             \r\n   1.100000E-02     S      5.637447E-01                                                                                             \r\n   1.150000E-02     S      6.127631E-01                                                                                             \r\n   1.200000E-02     S      6.676286E-01                                                                                             \r\n   1.250000E-02     S      7.243420E-01                                                                                             \r\n   1.300000E-02     S      7.773429E-01                                                                                             \r\n   1.350000E-02     S      8.222662E-01                                                                                             \r\n   1.400000E-02     S      8.578080E-01                                                                                             \r\n   1.450000E-02     S      8.855462E-01                                                                                             \r\n   1.500000E-02     S      9.078065E-01                                                                                             \r\n   1.550000E-02     S      9.249170E-01                                                                                             \r\n   1.600000E-02     S      9.336708E-01                                                                                             \r\n   1.650000E-02     S      9.281455E-01                                                                                             \r\n   1.700000E-02     S      9.025937E-01                                                                                             \r\n   1.750000E-02     S      8.548018E-01                                                                                             \r\n   1.800000E-02     S      7.879553E-01                                                                                             \r\n   1.850000E-02     S      7.099068E-01                                                                                             \r\n   1.900000E-02     S      6.302618E-01                                                                                             \r\n   1.949999E-02     S      5.569333E-01                                                                                             \r\n   1.999999E-02     S      4.939697E-01                                                                                             \r\n   2.049999E-02     S      4.415077E-01                                                                                             \r\n   2.099999E-02     S      3.973182E-01                                                                                             \r\n   2.149999E-02     S      3.585570E-01                                                                                             \r\n   2.199999E-02     S      3.225475E-01                                                                                             \r\n   2.249999E-02     S      2.864743E-01                                                                                             \r\n   2.299999E-02     S      2.468962E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.001918E-01                                                                                             \r\n   2.399999E-02     S      1.442204E-01                                                                                             \r\n   2.449999E-02     S      8.024967E-02                                                                                             \r\n   2.499999E-02     S      1.355148E-02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.419430E-10                                                                                             \r\n   1.000000E-03     S      3.095995E-09                                                                                             \r\n   1.500000E-03     S      3.476829E-08                                                                                             \r\n   2.000000E-03     S      2.665547E-07                                                                                             \r\n   2.500000E-03     S      1.563009E-06                                                                                             \r\n   3.000000E-03     S      7.452692E-06                                                                                             \r\n   3.500000E-03     S      3.001892E-05                                                                                             \r\n   4.000000E-03     S      1.048187E-04                                                                                             \r\n   4.500000E-03     S      3.232342E-04                                                                                             \r\n   5.000000E-03     S      8.926425E-04                                                                                             \r\n   5.500000E-03     S      2.231439E-03                                                                                             \r\n   6.000001E-03     S      5.092412E-03                                                                                             \r\n   6.500001E-03     S      1.068204E-02                                                                                             \r\n   7.000001E-03     S      2.071070E-02                                                                                             \r\n   7.500001E-03     S      3.728655E-02                                                                                             \r\n   8.000000E-03     S      6.257898E-02                                                                                             \r\n   8.500000E-03     S      9.824612E-02                                                                                             \r\n   9.000001E-03     S      1.447414E-01                                                                                             \r\n   9.500001E-03     S      2.007437E-01                                                                                             \r\n   1.000000E-02     S      2.630195E-01                                                                                             \r\n   1.050000E-02     S      3.269516E-01                                                                                             \r\n   1.100000E-02     S      3.877303E-01                                                                                             \r\n   1.150000E-02     S      4.418766E-01                                                                                             \r\n   1.200000E-02     S      4.884985E-01                                                                                             \r\n   1.250000E-02     S      5.296552E-01                                                                                             \r\n   1.300000E-02     S      5.695024E-01                                                                                             \r\n   1.350000E-02     S      6.124359E-01                                                                                             \r\n   1.400000E-02     S      6.609933E-01                                                                                             \r\n   1.450000E-02     S      7.144975E-01                                                                                             \r\n   1.500000E-02     S      7.691550E-01                                                                                             \r\n   1.550000E-02     S      8.196149E-01                                                                                             \r\n   1.600000E-02     S      8.612108E-01                                                                                             \r\n   1.650000E-02     S      8.916873E-01                                                                                             \r\n   1.700000E-02     S      9.114488E-01                                                                                             \r\n   1.750000E-02     S      9.221938E-01                                                                                             \r\n   1.800000E-02     S      9.247667E-01                                                                                             \r\n   1.850000E-02     S      9.175997E-01                                                                                             \r\n   1.900000E-02     S      8.968557E-01                                                                                             \r\n   1.949999E-02     S      8.584104E-01                                                                                             \r\n   1.999999E-02     S      8.006791E-01                                                                                             \r\n   2.049999E-02     S      7.266707E-01                                                                                             \r\n   2.099999E-02     S      6.439676E-01                                                                                             \r\n   2.149999E-02     S      5.624333E-01                                                                                             \r\n   2.199999E-02     S      4.907136E-01                                                                                             \r\n   2.249999E-02     S      4.332642E-01                                                                                             \r\n   2.299999E-02     S      3.893180E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      3.540983E-01                                                                                             \r\n   2.399999E-02     S      3.213845E-01                                                                                             \r\n   2.449999E-02     S      2.859658E-01                                                                                             \r\n   2.499999E-02     S      2.448725E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      7.316847E-13                                                                                             \r\n   1.000000E-03     S      1.976111E-11                                                                                             \r\n   1.500000E-03     S      2.732149E-10                                                                                             \r\n   2.000000E-03     S      2.568786E-09                                                                                             \r\n   2.500000E-03     S      1.842298E-08                                                                                             \r\n   3.000000E-03     S      1.072459E-07                                                                                             \r\n   3.500000E-03     S      5.267838E-07                                                                                             \r\n   4.000000E-03     S      2.241700E-06                                                                                             \r\n   4.500000E-03     S      8.423373E-06                                                                                             \r\n   5.000000E-03     S      2.835150E-05                                                                                             \r\n   5.500000E-03     S      8.643097E-05                                                                                             \r\n   6.000001E-03     S      2.407648E-04                                                                                             \r\n   6.500001E-03     S      6.172184E-04                                                                                             \r\n   7.000001E-03     S      1.464671E-03                                                                                             \r\n   7.500001E-03     S      3.232914E-03                                                                                             \r\n   8.000000E-03     S      6.664257E-03                                                                                             \r\n   8.500000E-03     S      1.287318E-02                                                                                             \r\n   9.000001E-03     S      2.336930E-02                                                                                             \r\n   9.500001E-03     S      3.996704E-02                                                                                             \r\n   1.000000E-02     S      6.453443E-02                                                                                             \r\n   1.050000E-02     S      9.857380E-02                                                                                             \r\n   1.100000E-02     S      1.426997E-01                                                                                             \r\n   1.150000E-02     S      1.961637E-01                                                                                             \r\n   1.200000E-02     S      2.566326E-01                                                                                             \r\n   1.250000E-02     S      3.204101E-01                                                                                             \r\n   1.300000E-02     S      3.831763E-01                                                                                             \r\n   1.350000E-02     S      4.411136E-01                                                                                             \r\n   1.400000E-02     S      4.920754E-01                                                                                             \r\n   1.450000E-02     S      5.363302E-01                                                                                             \r\n   1.500000E-02     S      5.764828E-01                                                                                             \r\n   1.550000E-02     S      6.164597E-01                                                                                             \r\n   1.600000E-02     S      6.598482E-01                                                                                             \r\n   1.650000E-02     S      7.082295E-01                                                                                             \r\n   1.700000E-02     S      7.602433E-01                                                                                             \r\n   1.750000E-02     S      8.118554E-01                                                                                             \r\n   1.800000E-02     S      8.577665E-01                                                                                             \r\n   1.850000E-02     S      8.933265E-01                                                                                             \r\n   1.900000E-02     S      9.160266E-01                                                                                             \r\n   1.949999E-02     S      9.258191E-01                                                                                             \r\n   1.999999E-02     S      9.241289E-01                                                                                             \r\n   2.049999E-02     S      9.121538E-01                                                                                             \r\n   2.099999E-02     S      8.895078E-01                                                                                             \r\n   2.149999E-02     S      8.541276E-01                                                                                             \r\n   2.199999E-02     S      8.036714E-01                                                                                             \r\n   2.249999E-02     S      7.377344E-01                                                                                             \r\n   2.299999E-02     S      6.596111E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      5.764343E-01                                                                                             \r\n   2.399999E-02     S      4.973155E-01                                                                                             \r\n   2.449999E-02     S      4.301952E-01                                                                                             \r\n   2.499999E-02     S      3.788729E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      2.663014E-24                                                                                             \r\n   1.000000E-03     S      1.411090E-22                                                                                             \r\n   1.500000E-03     S      3.783356E-21                                                                                             \r\n   2.000000E-03     S      6.836586E-20                                                                                             \r\n   2.500000E-03     S      9.358414E-19                                                                                             \r\n   3.000000E-03     S      1.034294E-17                                                                                             \r\n   3.500000E-03     S      9.606728E-17                                                                                             \r\n   4.000000E-03     S      7.707984E-16                                                                                             \r\n   4.500000E-03     S      5.450389E-15                                                                                             \r\n   5.000000E-03     S      3.448476E-14                                                                                             \r\n   5.500000E-03     S      1.975619E-13                                                                                             \r\n   6.000001E-03     S      1.034673E-12                                                                                             \r\n   6.500001E-03     S      4.992576E-12                                                                                             \r\n   7.000001E-03     S      2.234080E-11                                                                                             \r\n   7.500001E-03     S      9.322124E-11                                                                                             \r\n   8.000000E-03     S      3.644298E-10                                                                                             \r\n   8.500000E-03     S      1.340156E-09                                                                                             \r\n   9.000001E-03     S      4.652307E-09                                                                                             \r\n   9.500001E-03     S      1.529295E-08                                                                                             \r\n   1.000000E-02     S      4.773123E-08                                                                                             \r\n   1.050000E-02     S      1.417895E-07                                                                                             \r\n   1.100000E-02     S      4.017368E-07                                                                                             \r\n   1.150000E-02     S      1.087725E-06                                                                                             \r\n   1.200000E-02     S      2.819116E-06                                                                                             \r\n   1.250000E-02     S      7.004569E-06                                                                                             \r\n   1.300000E-02     S      1.670759E-05                                                                                             \r\n   1.350000E-02     S      3.830343E-05                                                                                             \r\n   1.400000E-02     S      8.449369E-05                                                                                             \r\n   1.450000E-02     S      1.795125E-04                                                                                             \r\n   1.500000E-02     S      3.676406E-04                                                                                             \r\n   1.550000E-02     S      7.263440E-04                                                                                             \r\n   1.600000E-02     S      1.385300E-03                                                                                             \r\n   1.650000E-02     S      2.552022E-03                                                                                             \r\n   1.700000E-02     S      4.543450E-03                                                                                             \r\n   1.750000E-02     S      7.820583E-03                                                                                             \r\n   1.800000E-02     S      1.301988E-02                                                                                             \r\n   1.850000E-02     S      2.097135E-02                                                                                             \r\n   1.900000E-02     S      3.268982E-02                                                                                             \r\n   1.949999E-02     S      4.932455E-02                                                                                             \r\n   1.999999E-02     S      7.205509E-02                                                                                             \r\n   2.049999E-02     S      1.019298E-01                                                                                             \r\n   2.099999E-02     S      1.396576E-01                                                                                             \r\n   2.149999E-02     S      1.853842E-01                                                                                             \r\n   2.199999E-02     S      2.385010E-01                                                                                             \r\n   2.249999E-02     S      2.975496E-01                                                                                             \r\n   2.299999E-02     S      3.602812E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      4.239054E-01                                                                                             \r\n   2.399999E-02     S      4.855189E-01                                                                                             \r\n   2.449999E-02     S      5.426449E-01                                                                                             \r\n   2.499999E-02     S      5.937552E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      9.692211E-36                                                                                             \r\n   1.000000E-03     S      7.653863E-34                                                                                             \r\n   1.500000E-03     S      3.046266E-32                                                                                             \r\n   2.000000E-03     S      8.143689E-31                                                                                             \r\n   2.500000E-03     S      1.644398E-29                                                                                             \r\n   3.000000E-03     S      2.674122E-28                                                                                             \r\n   3.500000E-03     S      3.646797E-27                                                                                             \r\n   4.000000E-03     S      4.288266E-26                                                                                             \r\n   4.500000E-03     S      4.437156E-25                                                                                             \r\n   5.000000E-03     S      4.102858E-24                                                                                             \r\n   5.500000E-03     S      3.431593E-23                                                                                             \r\n   6.000001E-03     S      2.621665E-22                                                                                             \r\n   6.500001E-03     S      1.844253E-21                                                                                             \r\n   7.000001E-03     S      1.202660E-20                                                                                             \r\n   7.500001E-03     S      7.311678E-20                                                                                             \r\n   8.000000E-03     S      4.164505E-19                                                                                             \r\n   8.500000E-03     S      2.231615E-18                                                                                             \r\n   9.000001E-03     S      1.129251E-17                                                                                             \r\n   9.500001E-03     S      5.413665E-17                                                                                             \r\n   1.000000E-02     S      2.465900E-16                                                                                             \r\n   1.050000E-02     S      1.069943E-15                                                                                             \r\n   1.100000E-02     S      4.432509E-15                                                                                             \r\n   1.150000E-02     S      1.756893E-14                                                                                             \r\n   1.200000E-02     S      6.675194E-14                                                                                             \r\n   1.250000E-02     S      2.435268E-13                                                                                             \r\n   1.300000E-02     S      8.544149E-13                                                                                             \r\n   1.350000E-02     S      2.886998E-12                                                                                             \r\n   1.400000E-02     S      9.406852E-12                                                                                             \r\n   1.450000E-02     S      2.959239E-11                                                                                             \r\n   1.500000E-02     S      8.997669E-11                                                                                             \r\n   1.550000E-02     S      2.646869E-10                                                                                             \r\n   1.600000E-02     S      7.540354E-10                                                                                             \r\n   1.650000E-02     S      2.082001E-09                                                                                             \r\n   1.700000E-02     S      5.576280E-09                                                                                             \r\n   1.750000E-02     S      1.449776E-08                                                                                             \r\n   1.800000E-02     S      3.661376E-08                                                                                             \r\n   1.850000E-02     S      8.987653E-08                                                                                             \r\n   1.900000E-02     S      2.145643E-07                                                                                             \r\n   1.949999E-02     S      4.984357E-07                                                                                             \r\n   1.999999E-02     S      1.127234E-06                                                                                             \r\n   2.049999E-02     S      2.482946E-06                                                                                             \r\n   2.099999E-02     S      5.329031E-06                                                                                             \r\n   2.149999E-02     S      1.114859E-05                                                                                             \r\n   2.199999E-02     S      2.274210E-05                                                                                             \r\n   2.249999E-02     S      4.524950E-05                                                                                             \r\n   2.299999E-02     S      8.783948E-05                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.664044E-04                                                                                             \r\n   2.399999E-02     S      3.077034E-04                                                                                             \r\n   2.449999E-02     S      5.554855E-04                                                                                             \r\n   2.499999E-02     S      9.791619E-04                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      3.410034E-07                                                                                             \r\n   1.000000E-03     S      5.813917E-07                                                                                             \r\n   1.500000E-03     S     -2.940163E-06                                                                                             \r\n   2.000000E-03     S     -3.334588E-05                                                                                             \r\n   2.500000E-03     S     -2.052975E-04                                                                                             \r\n   3.000000E-03     S     -1.003573E-03                                                                                             \r\n   3.500000E-03     S     -4.201705E-03                                                                                             \r\n   4.000000E-03     S     -1.548357E-02                                                                                             \r\n   4.500000E-03     S     -5.098340E-02                                                                                             \r\n   5.000000E-03     S     -1.516142E-01                                                                                             \r\n   5.500000E-03     S     -4.105894E-01                                                                                             \r\n   6.000001E-03     S     -1.019275E+00                                                                                             \r\n   6.500001E-03     S     -2.331598E+00                                                                                             \r\n   7.000001E-03     S     -4.934654E+00                                                                                             \r\n   7.500001E-03     S     -9.692177E+00                                                                                             \r\n   8.000000E-03     S     -1.770351E+01                                                                                             \r\n   8.500000E-03     S     -3.010762E+01                                                                                             \r\n   9.000001E-03     S     -4.768073E+01                                                                                             \r\n   9.500001E-03     S     -7.024547E+01                                                                                             \r\n   1.000000E-02     S     -9.602981E+01                                                                                             \r\n   1.050000E-02     S     -1.212492E+02                                                                                             \r\n   1.100000E-02     S     -1.402637E+02                                                                                             \r\n   1.150000E-02     S     -1.465937E+02                                                                                             \r\n   1.200000E-02     S     -1.348102E+02                                                                                             \r\n   1.250000E-02     S     -1.028845E+02                                                                                             \r\n   1.300000E-02     S     -5.414581E+01                                                                                             \r\n   1.350000E-02     S      2.196195E+00                                                                                             \r\n   1.400000E-02     S      5.273956E+01                                                                                             \r\n   1.450000E-02     S      8.377840E+01                                                                                             \r\n   1.500000E-02     S      8.631466E+01                                                                                             \r\n   1.550000E-02     S      6.024429E+01                                                                                             \r\n   1.600000E-02     S      1.563319E+01                                                                                             \r\n   1.650000E-02     S     -3.010360E+01                                                                                             \r\n   1.700000E-02     S     -5.857425E+01                                                                                             \r\n   1.750000E-02     S     -5.794637E+01                                                                                             \r\n   1.800000E-02     S     -2.827649E+01                                                                                             \r\n   1.850000E-02     S      1.815122E+01                                                                                             \r\n   1.900000E-02     S      6.212618E+01                                                                                             \r\n   1.949999E-02     S      8.631575E+01                                                                                             \r\n   1.999999E-02     S      8.342169E+01                                                                                             \r\n   2.049999E-02     S      5.950977E+01                                                                                             \r\n   2.099999E-02     S      3.055760E+01                                                                                             \r\n   2.149999E-02     S      1.376106E+01                                                                                             \r\n   2.199999E-02     S      1.807646E+01                                                                                             \r\n   2.249999E-02     S      3.914585E+01                                                                                             \r\n   2.299999E-02     S      6.158339E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       2\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      6.761407E+01                                                                                             \r\n   2.399999E-02     S      4.741862E+01                                                                                             \r\n   2.449999E-02     S      5.373764E+00                                                                                             \r\n   2.499999E-02     S     -4.150204E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.334598E-05                                                                                             \r\n   1.000000E-03     S     -8.192464E-05                                                                                             \r\n   1.500000E-03     S     -5.406925E-04                                                                                             \r\n   2.000000E-03     S     -3.064563E-03                                                                                             \r\n   2.500000E-03     S     -1.437132E-02                                                                                             \r\n   3.000000E-03     S     -5.690387E-02                                                                                             \r\n   3.500000E-03     S     -1.947229E-01                                                                                             \r\n   4.000000E-03     S     -5.864248E-01                                                                                             \r\n   4.500000E-03     S     -1.575635E+00                                                                                             \r\n   5.000000E-03     S     -3.816333E+00                                                                                             \r\n   5.500000E-03     S     -8.399201E+00                                                                                             \r\n   6.000001E-03     S     -1.689998E+01                                                                                             \r\n   6.500001E-03     S     -3.123265E+01                                                                                             \r\n   7.000001E-03     S     -5.319742E+01                                                                                             \r\n   7.500001E-03     S     -8.370447E+01                                                                                             \r\n   8.000000E-03     S     -1.218359E+02                                                                                             \r\n   8.500000E-03     S     -1.641219E+02                                                                                             \r\n   9.000001E-03     S     -2.045279E+02                                                                                             \r\n   9.500001E-03     S     -2.355395E+02                                                                                             \r\n   1.000000E-02     S     -2.503206E+02                                                                                             \r\n   1.050000E-02     S     -2.453269E+02                                                                                             \r\n   1.100000E-02     S     -2.222519E+02                                                                                             \r\n   1.150000E-02     S     -1.881393E+02                                                                                             \r\n   1.200000E-02     S     -1.531018E+02                                                                                             \r\n   1.250000E-02     S     -1.262256E+02                                                                                             \r\n   1.300000E-02     S     -1.113749E+02                                                                                             \r\n   1.350000E-02     S     -1.050669E+02                                                                                             \r\n   1.400000E-02     S     -9.790433E+01                                                                                             \r\n   1.450000E-02     S     -7.935943E+01                                                                                             \r\n   1.500000E-02     S     -4.379127E+01                                                                                             \r\n   1.550000E-02     S      5.460579E+00                                                                                             \r\n   1.600000E-02     S      5.644092E+01                                                                                             \r\n   1.650000E-02     S      9.375700E+01                                                                                             \r\n   1.700000E-02     S      1.062429E+02                                                                                             \r\n   1.750000E-02     S      9.312646E+01                                                                                             \r\n   1.800000E-02     S      6.518102E+01                                                                                             \r\n   1.850000E-02     S      3.987963E+01                                                                                             \r\n   1.900000E-02     S      3.285201E+01                                                                                             \r\n   1.949999E-02     S      5.010585E+01                                                                                             \r\n   1.999999E-02     S      8.517708E+01                                                                                             \r\n   2.049999E-02     S      1.226967E+02                                                                                             \r\n   2.099999E-02     S      1.463187E+02                                                                                             \r\n   2.149999E-02     S      1.466164E+02                                                                                             \r\n   2.199999E-02     S      1.247906E+02                                                                                             \r\n   2.249999E-02     S      9.063966E+01                                                                                             \r\n   2.299999E-02     S      5.656911E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       4\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      3.143396E+01                                                                                             \r\n   2.399999E-02     S      1.756719E+01                                                                                             \r\n   2.449999E-02     S      1.194785E+01                                                                                             \r\n   2.499999E-02     S      9.805065E+00                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -7.531835E-05                                                                                             \r\n   1.000000E-03     S     -7.488501E-04                                                                                             \r\n   1.500000E-03     S     -5.051047E-03                                                                                             \r\n   2.000000E-03     S     -2.596167E-02                                                                                             \r\n   2.500000E-03     S     -1.081533E-01                                                                                             \r\n   3.000000E-03     S     -3.792736E-01                                                                                             \r\n   3.500000E-03     S     -1.148388E+00                                                                                             \r\n   4.000000E-03     S     -3.056652E+00                                                                                             \r\n   4.500000E-03     S     -7.246668E+00                                                                                             \r\n   5.000000E-03     S     -1.545359E+01                                                                                             \r\n   5.500000E-03     S     -2.986160E+01                                                                                             \r\n   6.000001E-03     S     -5.257126E+01                                                                                             \r\n   6.500001E-03     S     -8.464697E+01                                                                                             \r\n   7.000001E-03     S     -1.249671E+02                                                                                             \r\n   7.500001E-03     S     -1.693919E+02                                                                                             \r\n   8.000000E-03     S     -2.109030E+02                                                                                             \r\n   8.500000E-03     S     -2.411637E+02                                                                                             \r\n   9.000001E-03     S     -2.533343E+02                                                                                             \r\n   9.500001E-03     S     -2.451798E+02                                                                                             \r\n   1.000000E-02     S     -2.209494E+02                                                                                             \r\n   1.050000E-02     S     -1.906763E+02                                                                                             \r\n   1.100000E-02     S     -1.665727E+02                                                                                             \r\n   1.150000E-02     S     -1.577364E+02                                                                                             \r\n   1.200000E-02     S     -1.656038E+02                                                                                             \r\n   1.250000E-02     S     -1.826595E+02                                                                                             \r\n   1.300000E-02     S     -1.955220E+02                                                                                             \r\n   1.350000E-02     S     -1.912378E+02                                                                                             \r\n   1.400000E-02     S     -1.636728E+02                                                                                             \r\n   1.450000E-02     S     -1.165374E+02                                                                                             \r\n   1.500000E-02     S     -6.125519E+01                                                                                             \r\n   1.550000E-02     S     -1.077846E+01                                                                                             \r\n   1.600000E-02     S      2.710047E+01                                                                                             \r\n   1.650000E-02     S      5.298438E+01                                                                                             \r\n   1.700000E-02     S      7.373092E+01                                                                                             \r\n   1.750000E-02     S      9.637457E+01                                                                                             \r\n   1.800000E-02     S      1.221380E+02                                                                                             \r\n   1.850000E-02     S      1.446397E+02                                                                                             \r\n   1.900000E-02     S      1.537638E+02                                                                                             \r\n   1.949999E-02     S      1.428875E+02                                                                                             \r\n   1.999999E-02     S      1.147034E+02                                                                                             \r\n   2.049999E-02     S      8.146926E+01                                                                                             \r\n   2.099999E-02     S      5.894560E+01                                                                                             \r\n   2.149999E-02     S      5.743248E+01                                                                                             \r\n   2.199999E-02     S      7.545905E+01                                                                                             \r\n   2.249999E-02     S      1.002843E+02                                                                                             \r\n   2.299999E-02     S      1.151913E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       5\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.092304E+02                                                                                             \r\n   2.399999E-02     S      8.342061E+01                                                                                             \r\n   2.449999E-02     S      4.959605E+01                                                                                             \r\n   2.499999E-02     S      2.273301E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -9.030352E-04                                                                                             \r\n   1.000000E-03     S     -7.828590E-03                                                                                             \r\n   1.500000E-03     S     -4.592682E-02                                                                                             \r\n   2.000000E-03     S     -2.053816E-01                                                                                             \r\n   2.500000E-03     S     -7.444196E-01                                                                                             \r\n   3.000000E-03     S     -2.269780E+00                                                                                             \r\n   3.500000E-03     S     -5.967357E+00                                                                                             \r\n   4.000000E-03     S     -1.376324E+01                                                                                             \r\n   4.500000E-03     S     -2.819705E+01                                                                                             \r\n   5.000000E-03     S     -5.177805E+01                                                                                             \r\n   5.500000E-03     S     -8.577039E+01                                                                                             \r\n   6.000001E-03     S     -1.287288E+02                                                                                             \r\n   6.500001E-03     S     -1.755212E+02                                                                                             \r\n   7.000001E-03     S     -2.177243E+02                                                                                             \r\n   7.500001E-03     S     -2.458866E+02                                                                                             \r\n   8.000000E-03     S     -2.532121E+02                                                                                             \r\n   8.500000E-03     S     -2.391503E+02                                                                                             \r\n   9.000001E-03     S     -2.108742E+02                                                                                             \r\n   9.500001E-03     S     -1.812391E+02                                                                                             \r\n   1.000000E-02     S     -1.635160E+02                                                                                             \r\n   1.050000E-02     S     -1.651555E+02                                                                                             \r\n   1.100000E-02     S     -1.838605E+02                                                                                             \r\n   1.150000E-02     S     -2.084435E+02                                                                                             \r\n   1.200000E-02     S     -2.244733E+02                                                                                             \r\n   1.250000E-02     S     -2.218757E+02                                                                                             \r\n   1.300000E-02     S     -2.002007E+02                                                                                             \r\n   1.350000E-02     S     -1.683346E+02                                                                                             \r\n   1.400000E-02     S     -1.386135E+02                                                                                             \r\n   1.450000E-02     S     -1.187735E+02                                                                                             \r\n   1.500000E-02     S     -1.067261E+02                                                                                             \r\n   1.550000E-02     S     -9.161859E+01                                                                                             \r\n   1.600000E-02     S     -6.080544E+01                                                                                             \r\n   1.650000E-02     S     -8.562041E+00                                                                                             \r\n   1.700000E-02     S      5.890973E+01                                                                                             \r\n   1.750000E-02     S      1.254710E+02                                                                                             \r\n   1.800000E-02     S      1.729936E+02                                                                                             \r\n   1.850000E-02     S      1.905112E+02                                                                                             \r\n   1.900000E-02     S      1.791352E+02                                                                                             \r\n   1.949999E-02     S      1.500922E+02                                                                                             \r\n   1.999999E-02     S      1.176540E+02                                                                                             \r\n   2.049999E-02     S      9.179446E+01                                                                                             \r\n   2.099999E-02     S      7.512075E+01                                                                                             \r\n   2.149999E-02     S      6.527404E+01                                                                                             \r\n   2.199999E-02     S      6.002999E+01                                                                                             \r\n   2.249999E-02     S      6.058546E+01                                                                                             \r\n   2.299999E-02     S      7.023552E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =       6\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      8.953293E+01                                                                                             \r\n   2.399999E-02     S      1.121597E+02                                                                                             \r\n   2.449999E-02     S      1.256754E+02                                                                                             \r\n   2.499999E-02     S      1.178821E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.289789E+01                                                                                             \r\n   1.000000E-03     S     -4.262465E+01                                                                                             \r\n   1.500000E-03     S     -9.649753E+01                                                                                             \r\n   2.000000E-03     S     -1.653160E+02                                                                                             \r\n   2.500000E-03     S     -2.261077E+02                                                                                             \r\n   3.000000E-03     S     -2.551053E+02                                                                                             \r\n   3.500000E-03     S     -2.441551E+02                                                                                             \r\n   4.000000E-03     S     -2.069601E+02                                                                                             \r\n   4.500000E-03     S     -1.707030E+02                                                                                             \r\n   5.000000E-03     S     -1.587567E+02                                                                                             \r\n   5.500000E-03     S     -1.762944E+02                                                                                             \r\n   6.000001E-03     S     -2.084323E+02                                                                                             \r\n   6.500001E-03     S     -2.317285E+02                                                                                             \r\n   7.000001E-03     S     -2.306854E+02                                                                                             \r\n   7.500001E-03     S     -2.077789E+02                                                                                             \r\n   8.000000E-03     S     -1.804594E+02                                                                                             \r\n   8.500000E-03     S     -1.678830E+02                                                                                             \r\n   9.000001E-03     S     -1.771461E+02                                                                                             \r\n   9.500001E-03     S     -1.987026E+02                                                                                             \r\n   1.000000E-02     S     -2.137433E+02                                                                                             \r\n   1.050000E-02     S     -2.077592E+02                                                                                             \r\n   1.100000E-02     S     -1.804064E+02                                                                                             \r\n   1.150000E-02     S     -1.448868E+02                                                                                             \r\n   1.200000E-02     S     -1.178627E+02                                                                                             \r\n   1.250000E-02     S     -1.076590E+02                                                                                             \r\n   1.300000E-02     S     -1.093755E+02                                                                                             \r\n   1.350000E-02     S     -1.101114E+02                                                                                             \r\n   1.400000E-02     S     -9.994864E+01                                                                                             \r\n   1.450000E-02     S     -8.021390E+01                                                                                             \r\n   1.500000E-02     S     -6.276532E+01                                                                                             \r\n   1.550000E-02     S     -6.084921E+01                                                                                             \r\n   1.600000E-02     S     -7.836794E+01                                                                                             \r\n   1.650000E-02     S     -1.055933E+02                                                                                             \r\n   1.700000E-02     S     -1.246504E+02                                                                                             \r\n   1.750000E-02     S     -1.209967E+02                                                                                             \r\n   1.800000E-02     S     -9.280633E+01                                                                                             \r\n   1.850000E-02     S     -5.171532E+01                                                                                             \r\n   1.900000E-02     S     -1.456752E+01                                                                                             \r\n   1.949999E-02     S      7.887696E+00                                                                                             \r\n   1.999999E-02     S      1.745502E+01                                                                                             \r\n   2.049999E-02     S      2.588759E+01                                                                                             \r\n   2.099999E-02     S      4.547959E+01                                                                                             \r\n   2.149999E-02     S      7.973110E+01                                                                                             \r\n   2.199999E-02     S      1.205334E+02                                                                                             \r\n   2.249999E-02     S      1.534222E+02                                                                                             \r\n   2.299999E-02     S      1.667831E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      10\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.585153E+02                                                                                             \r\n   2.399999E-02     S      1.360156E+02                                                                                             \r\n   2.449999E-02     S      1.103902E+02                                                                                             \r\n   2.499999E-02     S      8.969443E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.289789E+01                                                                                             \r\n   1.000000E-03     S     -4.262465E+01                                                                                             \r\n   1.500000E-03     S     -9.649753E+01                                                                                             \r\n   2.000000E-03     S     -1.653160E+02                                                                                             \r\n   2.500000E-03     S     -2.261076E+02                                                                                             \r\n   3.000000E-03     S     -2.551048E+02                                                                                             \r\n   3.500000E-03     S     -2.441530E+02                                                                                             \r\n   4.000000E-03     S     -2.069524E+02                                                                                             \r\n   4.500000E-03     S     -1.706775E+02                                                                                             \r\n   5.000000E-03     S     -1.586809E+02                                                                                             \r\n   5.500000E-03     S     -1.760891E+02                                                                                             \r\n   6.000001E-03     S     -2.079227E+02                                                                                             \r\n   6.500001E-03     S     -2.305627E+02                                                                                             \r\n   7.000001E-03     S     -2.282181E+02                                                                                             \r\n   7.500001E-03     S     -2.029328E+02                                                                                             \r\n   8.000000E-03     S     -1.716077E+02                                                                                             \r\n   8.500000E-03     S     -1.528292E+02                                                                                             \r\n   9.000001E-03     S     -1.533058E+02                                                                                             \r\n   9.500001E-03     S     -1.635800E+02                                                                                             \r\n   1.000000E-02     S     -1.657286E+02                                                                                             \r\n   1.050000E-02     S     -1.471351E+02                                                                                             \r\n   1.100000E-02     S     -1.102759E+02                                                                                             \r\n   1.150000E-02     S     -7.159347E+01                                                                                             \r\n   1.200000E-02     S     -5.046605E+01                                                                                             \r\n   1.250000E-02     S     -5.623652E+01                                                                                             \r\n   1.300000E-02     S     -8.234692E+01                                                                                             \r\n   1.350000E-02     S     -1.113050E+02                                                                                             \r\n   1.400000E-02     S     -1.265160E+02                                                                                             \r\n   1.450000E-02     S     -1.224963E+02                                                                                             \r\n   1.500000E-02     S     -1.066756E+02                                                                                             \r\n   1.550000E-02     S     -9.235905E+01                                                                                             \r\n   1.600000E-02     S     -8.864647E+01                                                                                             \r\n   1.650000E-02     S     -9.474614E+01                                                                                             \r\n   1.700000E-02     S     -1.022749E+02                                                                                             \r\n   1.750000E-02     S     -1.029544E+02                                                                                             \r\n   1.800000E-02     S     -9.528965E+01                                                                                             \r\n   1.850000E-02     S     -8.506940E+01                                                                                             \r\n   1.900000E-02     S     -7.965003E+01                                                                                             \r\n   1.949999E-02     S     -8.091541E+01                                                                                             \r\n   1.999999E-02     S     -8.275336E+01                                                                                             \r\n   2.049999E-02     S     -7.522523E+01                                                                                             \r\n   2.099999E-02     S     -5.224413E+01                                                                                             \r\n   2.149999E-02     S     -1.671347E+01                                                                                             \r\n   2.199999E-02     S      2.104925E+01                                                                                             \r\n   2.249999E-02     S      5.059069E+01                                                                                             \r\n   2.299999E-02     S      6.877804E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      12\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      8.159486E+01                                                                                             \r\n   2.399999E-02     S      9.865917E+01                                                                                             \r\n   2.449999E-02     S      1.244697E+02                                                                                             \r\n   2.499999E-02     S      1.531320E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -1.219732E-01                                                                                             \r\n   1.000000E-03     S     -7.266989E-01                                                                                             \r\n   1.500000E-03     S     -2.967398E+00                                                                                             \r\n   2.000000E-03     S     -9.254255E+00                                                                                             \r\n   2.500000E-03     S     -2.333982E+01                                                                                             \r\n   3.000000E-03     S     -4.927536E+01                                                                                             \r\n   3.500000E-03     S     -8.903842E+01                                                                                             \r\n   4.000000E-03     S     -1.397156E+02                                                                                             \r\n   4.500000E-03     S     -1.921436E+02                                                                                             \r\n   5.000000E-03     S     -2.328196E+02                                                                                             \r\n   5.500000E-03     S     -2.492303E+02                                                                                             \r\n   6.000001E-03     S     -2.362952E+02                                                                                             \r\n   6.500001E-03     S     -2.000964E+02                                                                                             \r\n   7.000001E-03     S     -1.559373E+02                                                                                             \r\n   7.500001E-03     S     -1.209698E+02                                                                                             \r\n   8.000000E-03     S     -1.052809E+02                                                                                             \r\n   8.500000E-03     S     -1.068649E+02                                                                                             \r\n   9.000001E-03     S     -1.139092E+02                                                                                             \r\n   9.500001E-03     S     -1.132399E+02                                                                                             \r\n   1.000000E-02     S     -9.956128E+01                                                                                             \r\n   1.050000E-02     S     -7.927309E+01                                                                                             \r\n   1.100000E-02     S     -6.605138E+01                                                                                             \r\n   1.150000E-02     S     -7.095470E+01                                                                                             \r\n   1.200000E-02     S     -9.379162E+01                                                                                             \r\n   1.250000E-02     S     -1.219542E+02                                                                                             \r\n   1.300000E-02     S     -1.379995E+02                                                                                             \r\n   1.350000E-02     S     -1.311772E+02                                                                                             \r\n   1.400000E-02     S     -1.050860E+02                                                                                             \r\n   1.450000E-02     S     -7.595927E+01                                                                                             \r\n   1.500000E-02     S     -6.233951E+01                                                                                             \r\n   1.550000E-02     S     -7.287329E+01                                                                                             \r\n   1.600000E-02     S     -1.004678E+02                                                                                             \r\n   1.650000E-02     S     -1.269019E+02                                                                                             \r\n   1.700000E-02     S     -1.349184E+02                                                                                             \r\n   1.750000E-02     S     -1.196732E+02                                                                                             \r\n   1.800000E-02     S     -9.178699E+01                                                                                             \r\n   1.850000E-02     S     -6.994408E+01                                                                                             \r\n   1.900000E-02     S     -6.812253E+01                                                                                             \r\n   1.949999E-02     S     -8.618313E+01                                                                                             \r\n   1.999999E-02     S     -1.101752E+02                                                                                             \r\n   2.049999E-02     S     -1.219836E+02                                                                                             \r\n   2.099999E-02     S     -1.115326E+02                                                                                             \r\n   2.149999E-02     S     -8.312055E+01                                                                                             \r\n   2.199999E-02     S     -5.167252E+01                                                                                             \r\n   2.249999E-02     S     -3.177096E+01                                                                                             \r\n   2.299999E-02     S     -2.728356E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      14\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -2.883476E+01                                                                                             \r\n   2.399999E-02     S     -2.074787E+01                                                                                             \r\n   2.449999E-02     S      7.557844E+00                                                                                             \r\n   2.499999E-02     S      5.373360E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S     -4.455106E-04                                                                                             \r\n   1.000000E-03     S     -3.905079E-03                                                                                             \r\n   1.500000E-03     S     -2.295648E-02                                                                                             \r\n   2.000000E-03     S     -1.026923E-01                                                                                             \r\n   2.500000E-03     S     -3.722202E-01                                                                                             \r\n   3.000000E-03     S     -1.134904E+00                                                                                             \r\n   3.500000E-03     S     -2.983689E+00                                                                                             \r\n   4.000000E-03     S     -6.881623E+00                                                                                             \r\n   4.500000E-03     S     -1.409852E+01                                                                                             \r\n   5.000000E-03     S     -2.588902E+01                                                                                             \r\n   5.500000E-03     S     -4.288520E+01                                                                                             \r\n   6.000001E-03     S     -6.436443E+01                                                                                             \r\n   6.500001E-03     S     -8.776067E+01                                                                                             \r\n   7.000001E-03     S     -1.088624E+02                                                                                             \r\n   7.500001E-03     S     -1.229441E+02                                                                                             \r\n   8.000000E-03     S     -1.266084E+02                                                                                             \r\n   8.500000E-03     S     -1.195819E+02                                                                                             \r\n   9.000001E-03     S     -1.054547E+02                                                                                             \r\n   9.500001E-03     S     -9.066341E+01                                                                                             \r\n   1.000000E-02     S     -8.186157E+01                                                                                             \r\n   1.050000E-02     S     -8.281026E+01                                                                                             \r\n   1.100000E-02     S     -9.242741E+01                                                                                             \r\n   1.150000E-02     S     -1.052355E+02                                                                                             \r\n   1.200000E-02     S     -1.142101E+02                                                                                             \r\n   1.250000E-02     S     -1.146085E+02                                                                                             \r\n   1.300000E-02     S     -1.066286E+02                                                                                             \r\n   1.350000E-02     S     -9.527380E+01                                                                                             \r\n   1.400000E-02     S     -8.738693E+01                                                                                             \r\n   1.450000E-02     S     -8.755111E+01                                                                                             \r\n   1.500000E-02     S     -9.533913E+01                                                                                             \r\n   1.550000E-02     S     -1.056429E+02                                                                                             \r\n   1.600000E-02     S     -1.119223E+02                                                                                             \r\n   1.650000E-02     S     -1.103477E+02                                                                                             \r\n   1.700000E-02     S     -1.021942E+02                                                                                             \r\n   1.750000E-02     S     -9.293530E+01                                                                                             \r\n   1.800000E-02     S     -8.861890E+01                                                                                             \r\n   1.850000E-02     S     -9.189816E+01                                                                                             \r\n   1.900000E-02     S     -1.003343E+02                                                                                             \r\n   1.949999E-02     S     -1.080869E+02                                                                                             \r\n   1.999999E-02     S     -1.098431E+02                                                                                             \r\n   2.049999E-02     S     -1.043296E+02                                                                                             \r\n   2.099999E-02     S     -9.503320E+01                                                                                             \r\n   2.149999E-02     S     -8.765514E+01                                                                                             \r\n   2.199999E-02     S     -8.605090E+01                                                                                             \r\n   2.249999E-02     S     -8.943742E+01                                                                                             \r\n   2.299999E-02     S     -9.276853E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      16\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.999100E+01                                                                                             \r\n   2.399999E-02     S     -7.791452E+01                                                                                             \r\n   2.449999E-02     S     -5.803454E+01                                                                                             \r\n   2.499999E-02     S     -3.510950E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.098682E-02                                                                                             \r\n   1.000000E-03     S      3.633034E-01                                                                                             \r\n   1.500000E-03     S      1.483304E+00                                                                                             \r\n   2.000000E-03     S      4.624825E+00                                                                                             \r\n   2.500000E-03     S      1.165911E+01                                                                                             \r\n   3.000000E-03     S      2.459498E+01                                                                                             \r\n   3.500000E-03     S      4.437316E+01                                                                                             \r\n   4.000000E-03     S      6.941800E+01                                                                                             \r\n   4.500000E-03     S      9.489009E+01                                                                                             \r\n   5.000000E-03     S      1.135475E+02                                                                                             \r\n   5.500000E-03     S      1.183155E+02                                                                                             \r\n   6.000001E-03     S      1.054717E+02                                                                                             \r\n   6.500001E-03     S      7.662074E+01                                                                                             \r\n   7.000001E-03     S      3.806184E+01                                                                                             \r\n   7.500001E-03     S     -2.317552E+00                                                                                             \r\n   8.000000E-03     S     -3.879902E+01                                                                                             \r\n   8.500000E-03     S     -6.981163E+01                                                                                             \r\n   9.000001E-03     S     -9.679312E+01                                                                                             \r\n   9.500001E-03     S     -1.208010E+02                                                                                             \r\n   1.000000E-02     S     -1.395412E+02                                                                                             \r\n   1.050000E-02     S     -1.474548E+02                                                                                             \r\n   1.100000E-02     S     -1.394225E+02                                                                                             \r\n   1.150000E-02     S     -1.158146E+02                                                                                             \r\n   1.200000E-02     S     -8.507956E+01                                                                                             \r\n   1.250000E-02     S     -6.117678E+01                                                                                             \r\n   1.300000E-02     S     -5.648062E+01                                                                                             \r\n   1.350000E-02     S     -7.418537E+01                                                                                             \r\n   1.400000E-02     S     -1.052708E+02                                                                                             \r\n   1.450000E-02     S     -1.327002E+02                                                                                             \r\n   1.500000E-02     S     -1.409926E+02                                                                                             \r\n   1.550000E-02     S     -1.255480E+02                                                                                             \r\n   1.600000E-02     S     -9.577095E+01                                                                                             \r\n   1.650000E-02     S     -6.964057E+01                                                                                             \r\n   1.700000E-02     S     -6.278885E+01                                                                                             \r\n   1.750000E-02     S     -7.884200E+01                                                                                             \r\n   1.800000E-02     S     -1.072098E+02                                                                                             \r\n   1.850000E-02     S     -1.298541E+02                                                                                             \r\n   1.900000E-02     S     -1.327756E+02                                                                                             \r\n   1.949999E-02     S     -1.148389E+02                                                                                             \r\n   1.999999E-02     S     -8.823332E+01                                                                                             \r\n   2.049999E-02     S     -7.032122E+01                                                                                             \r\n   2.099999E-02     S     -7.226711E+01                                                                                             \r\n   2.149999E-02     S     -9.192577E+01                                                                                             \r\n   2.199999E-02     S     -1.155918E+02                                                                                             \r\n   2.249999E-02     S     -1.272944E+02                                                                                             \r\n   2.299999E-02     S     -1.193325E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      18\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -9.701871E+01                                                                                             \r\n   2.399999E-02     S     -7.459489E+01                                                                                             \r\n   2.449999E-02     S     -6.525615E+01                                                                                             \r\n   2.499999E-02     S     -7.211802E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.448957E+00                                                                                             \r\n   1.000000E-03     S      2.131235E+01                                                                                             \r\n   1.500000E-03     S      4.824878E+01                                                                                             \r\n   2.000000E-03     S      8.265799E+01                                                                                             \r\n   2.500000E-03     S      1.130536E+02                                                                                             \r\n   3.000000E-03     S      1.275516E+02                                                                                             \r\n   3.500000E-03     S      1.220733E+02                                                                                             \r\n   4.000000E-03     S      1.034643E+02                                                                                             \r\n   4.500000E-03     S      8.529959E+01                                                                                             \r\n   5.000000E-03     S      7.922345E+01                                                                                             \r\n   5.500000E-03     S      8.772591E+01                                                                                             \r\n   6.000001E-03     S      1.031652E+02                                                                                             \r\n   6.500001E-03     S      1.134455E+02                                                                                             \r\n   7.000001E-03     S      1.101855E+02                                                                                             \r\n   7.500001E-03     S      9.366700E+01                                                                                             \r\n   8.000000E-03     S      7.134342E+01                                                                                             \r\n   8.500000E-03     S      5.135701E+01                                                                                             \r\n   9.000001E-03     S      3.601205E+01                                                                                             \r\n   9.500001E-03     S      2.004214E+01                                                                                             \r\n   1.000000E-02     S     -5.046202E+00                                                                                             \r\n   1.050000E-02     S     -4.368137E+01                                                                                             \r\n   1.100000E-02     S     -9.124971E+01                                                                                             \r\n   1.150000E-02     S     -1.351097E+02                                                                                             \r\n   1.200000E-02     S     -1.611540E+02                                                                                             \r\n   1.250000E-02     S     -1.617383E+02                                                                                             \r\n   1.300000E-02     S     -1.399739E+02                                                                                             \r\n   1.350000E-02     S     -1.078954E+02                                                                                             \r\n   1.400000E-02     S     -7.998098E+01                                                                                             \r\n   1.450000E-02     S     -6.619127E+01                                                                                             \r\n   1.500000E-02     S     -6.845220E+01                                                                                             \r\n   1.550000E-02     S     -8.182899E+01                                                                                             \r\n   1.600000E-02     S     -9.862402E+01                                                                                             \r\n   1.650000E-02     S     -1.123391E+02                                                                                             \r\n   1.700000E-02     S     -1.194464E+02                                                                                             \r\n   1.750000E-02     S     -1.190478E+02                                                                                             \r\n   1.800000E-02     S     -1.119446E+02                                                                                             \r\n   1.850000E-02     S     -1.003814E+02                                                                                             \r\n   1.900000E-02     S     -8.830091E+01                                                                                             \r\n   1.949999E-02     S     -8.085886E+01                                                                                             \r\n   1.999999E-02     S     -8.233946E+01                                                                                             \r\n   2.049999E-02     S     -9.324399E+01                                                                                             \r\n   2.099999E-02     S     -1.087339E+02                                                                                             \r\n   2.149999E-02     S     -1.203310E+02                                                                                             \r\n   2.199999E-02     S     -1.206534E+02                                                                                             \r\n   2.249999E-02     S     -1.084436E+02                                                                                             \r\n   2.299999E-02     S     -9.028031E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      20\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -7.715427E+01                                                                                             \r\n   2.399999E-02     S     -7.757847E+01                                                                                             \r\n   2.449999E-02     S     -9.164309E+01                                                                                             \r\n   2.499999E-02     S     -1.102674E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.448957E+00                                                                                             \r\n   1.000000E-03     S      2.131235E+01                                                                                             \r\n   1.500000E-03     S      4.824878E+01                                                                                             \r\n   2.000000E-03     S      8.265802E+01                                                                                             \r\n   2.500000E-03     S      1.130538E+02                                                                                             \r\n   3.000000E-03     S      1.275526E+02                                                                                             \r\n   3.500000E-03     S      1.220775E+02                                                                                             \r\n   4.000000E-03     S      1.034798E+02                                                                                             \r\n   4.500000E-03     S      8.535057E+01                                                                                             \r\n   5.000000E-03     S      7.937506E+01                                                                                             \r\n   5.500000E-03     S      8.813651E+01                                                                                             \r\n   6.000001E-03     S      1.041844E+02                                                                                             \r\n   6.500001E-03     S      1.157771E+02                                                                                             \r\n   7.000001E-03     S      1.151202E+02                                                                                             \r\n   7.500001E-03     S      1.033592E+02                                                                                             \r\n   8.000000E-03     S      8.904693E+01                                                                                             \r\n   8.500000E-03     S      8.146464E+01                                                                                             \r\n   9.000001E-03     S      8.369279E+01                                                                                             \r\n   9.500001E-03     S      9.028764E+01                                                                                             \r\n   1.000000E-02     S      9.098373E+01                                                                                             \r\n   1.050000E-02     S      7.756819E+01                                                                                             \r\n   1.100000E-02     S      4.901491E+01                                                                                             \r\n   1.150000E-02     S      1.148630E+01                                                                                             \r\n   1.200000E-02     S     -2.633818E+01                                                                                             \r\n   1.250000E-02     S     -5.884061E+01                                                                                             \r\n   1.300000E-02     S     -8.579851E+01                                                                                             \r\n   1.350000E-02     S     -1.100280E+02                                                                                             \r\n   1.400000E-02     S     -1.325888E+02                                                                                             \r\n   1.450000E-02     S     -1.497075E+02                                                                                             \r\n   1.500000E-02     S     -1.542649E+02                                                                                             \r\n   1.550000E-02     S     -1.411482E+02                                                                                             \r\n   1.600000E-02     S     -1.126159E+02                                                                                             \r\n   1.650000E-02     S     -7.943240E+01                                                                                             \r\n   1.700000E-02     S     -5.626441E+01                                                                                             \r\n   1.750000E-02     S     -5.381424E+01                                                                                             \r\n   1.800000E-02     S     -7.258719E+01                                                                                             \r\n   1.850000E-02     S     -1.023472E+02                                                                                             \r\n   1.900000E-02     S     -1.277480E+02                                                                                             \r\n   1.949999E-02     S     -1.367456E+02                                                                                             \r\n   1.999999E-02     S     -1.267653E+02                                                                                             \r\n   2.049999E-02     S     -1.051870E+02                                                                                             \r\n   2.099999E-02     S     -8.433890E+01                                                                                             \r\n   2.149999E-02     S     -7.440416E+01                                                                                             \r\n   2.199999E-02     S     -7.847427E+01                                                                                             \r\n   2.249999E-02     S     -9.216285E+01                                                                                             \r\n   2.299999E-02     S     -1.072010E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      22\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.162892E+02                                                                                             \r\n   2.399999E-02     S     -1.163607E+02                                                                                             \r\n   2.449999E-02     S     -1.089834E+02                                                                                             \r\n   2.499999E-02     S     -9.853654E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      6.100016E-02                                                                                             \r\n   1.000000E-03     S      3.633853E-01                                                                                             \r\n   1.500000E-03     S      1.483845E+00                                                                                             \r\n   2.000000E-03     S      4.627890E+00                                                                                             \r\n   2.500000E-03     S      1.167349E+01                                                                                             \r\n   3.000000E-03     S      2.465188E+01                                                                                             \r\n   3.500000E-03     S      4.456788E+01                                                                                             \r\n   4.000000E-03     S      7.000442E+01                                                                                             \r\n   4.500000E-03     S      9.646573E+01                                                                                             \r\n   5.000000E-03     S      1.173638E+02                                                                                             \r\n   5.500000E-03     S      1.267147E+02                                                                                             \r\n   6.000001E-03     S      1.223716E+02                                                                                             \r\n   6.500001E-03     S      1.078534E+02                                                                                             \r\n   7.000001E-03     S      9.125926E+01                                                                                             \r\n   7.500001E-03     S      8.138693E+01                                                                                             \r\n   8.000000E-03     S      8.303695E+01                                                                                             \r\n   8.500000E-03     S      9.431039E+01                                                                                             \r\n   9.000001E-03     S      1.077352E+02                                                                                             \r\n   9.500001E-03     S      1.147398E+02                                                                                             \r\n   1.000000E-02     S      1.107828E+02                                                                                             \r\n   1.050000E-02     S      9.788049E+01                                                                                             \r\n   1.100000E-02     S      8.284966E+01                                                                                             \r\n   1.150000E-02     S      7.237128E+01                                                                                             \r\n   1.200000E-02     S      6.812469E+01                                                                                             \r\n   1.250000E-02     S      6.526476E+01                                                                                             \r\n   1.300000E-02     S      5.533064E+01                                                                                             \r\n   1.350000E-02     S      3.172729E+01                                                                                             \r\n   1.400000E-02     S     -5.792996E+00                                                                                             \r\n   1.450000E-02     S     -5.052917E+01                                                                                             \r\n   1.500000E-02     S     -9.237444E+01                                                                                             \r\n   1.550000E-02     S     -1.230459E+02                                                                                             \r\n   1.600000E-02     S     -1.395892E+02                                                                                             \r\n   1.650000E-02     S     -1.441727E+02                                                                                             \r\n   1.700000E-02     S     -1.409099E+02                                                                                             \r\n   1.750000E-02     S     -1.324823E+02                                                                                             \r\n   1.800000E-02     S     -1.192154E+02                                                                                             \r\n   1.850000E-02     S     -1.011272E+02                                                                                             \r\n   1.900000E-02     S     -8.094701E+01                                                                                             \r\n   1.949999E-02     S     -6.513660E+01                                                                                             \r\n   1.999999E-02     S     -6.133947E+01                                                                                             \r\n   2.049999E-02     S     -7.348925E+01                                                                                             \r\n   2.099999E-02     S     -9.795518E+01                                                                                             \r\n   2.149999E-02     S     -1.239032E+02                                                                                             \r\n   2.199999E-02     S     -1.384491E+02                                                                                             \r\n   2.249999E-02     S     -1.338699E+02                                                                                             \r\n   2.299999E-02     S     -1.124320E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      24\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -8.557653E+01                                                                                             \r\n   2.399999E-02     S     -6.764285E+01                                                                                             \r\n   2.449999E-02     S     -6.777320E+01                                                                                             \r\n   2.499999E-02     S     -8.485841E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      4.575246E-04                                                                                             \r\n   1.000000E-03     S      3.923512E-03                                                                                             \r\n   1.500000E-03     S      2.297034E-02                                                                                             \r\n   2.000000E-03     S      1.026893E-01                                                                                             \r\n   2.500000E-03     S      3.721993E-01                                                                                             \r\n   3.000000E-03     S      1.134876E+00                                                                                             \r\n   3.500000E-03     S      2.983668E+00                                                                                             \r\n   4.000000E-03     S      6.881619E+00                                                                                             \r\n   4.500000E-03     S      1.409853E+01                                                                                             \r\n   5.000000E-03     S      2.588903E+01                                                                                             \r\n   5.500000E-03     S      4.288520E+01                                                                                             \r\n   6.000001E-03     S      6.436440E+01                                                                                             \r\n   6.500001E-03     S      8.776055E+01                                                                                             \r\n   7.000001E-03     S      1.088621E+02                                                                                             \r\n   7.500001E-03     S      1.229431E+02                                                                                             \r\n   8.000000E-03     S      1.266052E+02                                                                                             \r\n   8.500000E-03     S      1.195729E+02                                                                                             \r\n   9.000001E-03     S      1.054312E+02                                                                                             \r\n   9.500001E-03     S      9.060491E+01                                                                                             \r\n   1.000000E-02     S      8.172347E+01                                                                                             \r\n   1.050000E-02     S      8.250024E+01                                                                                             \r\n   1.100000E-02     S      9.176453E+01                                                                                             \r\n   1.150000E-02     S      1.038838E+02                                                                                             \r\n   1.200000E-02     S      1.115789E+02                                                                                             \r\n   1.250000E-02     S      1.097143E+02                                                                                             \r\n   1.300000E-02     S      9.792424E+01                                                                                             \r\n   1.350000E-02     S      8.046513E+01                                                                                             \r\n   1.400000E-02     S      6.328001E+01                                                                                             \r\n   1.450000E-02     S      4.999856E+01                                                                                             \r\n   1.500000E-02     S      3.937080E+01                                                                                             \r\n   1.550000E-02     S      2.586429E+01                                                                                             \r\n   1.600000E-02     S      3.228400E+00                                                                                             \r\n   1.650000E-02     S     -3.107715E+01                                                                                             \r\n   1.700000E-02     S     -7.334369E+01                                                                                             \r\n   1.750000E-02     S     -1.146383E+02                                                                                             \r\n   1.800000E-02     S     -1.448949E+02                                                                                             \r\n   1.850000E-02     S     -1.576935E+02                                                                                             \r\n   1.900000E-02     S     -1.529734E+02                                                                                             \r\n   1.949999E-02     S     -1.362921E+02                                                                                             \r\n   1.999999E-02     S     -1.154256E+02                                                                                             \r\n   2.049999E-02     S     -9.665149E+01                                                                                             \r\n   2.099999E-02     S     -8.295075E+01                                                                                             \r\n   2.149999E-02     S     -7.477072E+01                                                                                             \r\n   2.199999E-02     S     -7.208267E+01                                                                                             \r\n   2.249999E-02     S     -7.565134E+01                                                                                             \r\n   2.299999E-02     S     -8.628249E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      26\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.026758E+02                                                                                             \r\n   2.399999E-02     S     -1.199421E+02                                                                                             \r\n   2.449999E-02     S     -1.306689E+02                                                                                             \r\n   2.499999E-02     S     -1.286256E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      3.095995E-06                                                                                             \r\n   1.000000E-03     S      3.462635E-05                                                                                             \r\n   1.500000E-03     S      2.634587E-04                                                                                             \r\n   2.000000E-03     S      1.528241E-03                                                                                             \r\n   2.500000E-03     S      7.186137E-03                                                                                             \r\n   3.000000E-03     S      2.845591E-02                                                                                             \r\n   3.500000E-03     S      9.736596E-02                                                                                             \r\n   4.000000E-03     S      2.932153E-01                                                                                             \r\n   4.500000E-03     S      7.878238E-01                                                                                             \r\n   5.000000E-03     S      1.908205E+00                                                                                             \r\n   5.500000E-03     S      4.199769E+00                                                                                             \r\n   6.000001E-03     S      8.450599E+00                                                                                             \r\n   6.500001E-03     S      1.561829E+01                                                                                             \r\n   7.000001E-03     S      2.660452E+01                                                                                             \r\n   7.500001E-03     S      4.186828E+01                                                                                             \r\n   8.000000E-03     S      6.095956E+01                                                                                             \r\n   8.500000E-03     S      8.216244E+01                                                                                             \r\n   9.000001E-03     S      1.024976E+02                                                                                             \r\n   9.500001E-03     S      1.182781E+02                                                                                             \r\n   1.000000E-02     S      1.262079E+02                                                                                             \r\n   1.050000E-02     S      1.247107E+02                                                                                             \r\n   1.100000E-02     S      1.149250E+02                                                                                             \r\n   1.150000E-02     S      1.007682E+02                                                                                             \r\n   1.200000E-02     S      8.777860E+01                                                                                             \r\n   1.250000E-02     S      8.100390E+01                                                                                             \r\n   1.300000E-02     S      8.278075E+01                                                                                             \r\n   1.350000E-02     S      9.149094E+01                                                                                             \r\n   1.400000E-02     S      1.020616E+02                                                                                             \r\n   1.450000E-02     S      1.081617E+02                                                                                             \r\n   1.500000E-02     S      1.051174E+02                                                                                             \r\n   1.550000E-02     S      9.205575E+01                                                                                             \r\n   1.600000E-02     S      7.207236E+01                                                                                             \r\n   1.650000E-02     S      5.023798E+01                                                                                             \r\n   1.700000E-02     S      3.050651E+01                                                                                             \r\n   1.750000E-02     S      1.331787E+01                                                                                             \r\n   1.800000E-02     S     -4.594038E+00                                                                                             \r\n   1.850000E-02     S     -2.791097E+01                                                                                             \r\n   1.900000E-02     S     -5.918939E+01                                                                                             \r\n   1.949999E-02     S     -9.617658E+01                                                                                             \r\n   1.999999E-02     S     -1.317396E+02                                                                                             \r\n   2.049999E-02     S     -1.567115E+02                                                                                             \r\n   2.099999E-02     S     -1.642375E+02                                                                                             \r\n   2.149999E-02     S     -1.532540E+02                                                                                             \r\n   2.199999E-02     S     -1.291691E+02                                                                                             \r\n   2.249999E-02     S     -1.013955E+02                                                                                             \r\n   2.299999E-02     S     -7.916584E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      28\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -6.793356E+01                                                                                             \r\n   2.399999E-02     S     -6.813251E+01                                                                                             \r\n   2.449999E-02     S     -7.651194E+01                                                                                             \r\n   2.499999E-02     S     -8.873295E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.976111E-08                                                                                             \r\n   1.000000E-03     S      2.724832E-07                                                                                             \r\n   1.500000E-03     S      2.549025E-06                                                                                             \r\n   2.000000E-03     S      1.814976E-05                                                                                             \r\n   2.500000E-03     S      1.046771E-04                                                                                             \r\n   3.000000E-03     S      5.083607E-04                                                                                             \r\n   3.500000E-03     S      2.134454E-03                                                                                             \r\n   4.000000E-03     S      7.896589E-03                                                                                             \r\n   4.500000E-03     S      2.610980E-02                                                                                             \r\n   5.000000E-03     S      7.800759E-02                                                                                             \r\n   5.500000E-03     S      2.124133E-01                                                                                             \r\n   6.000001E-03     S      5.307874E-01                                                                                             \r\n   6.500001E-03     S      1.223907E+00                                                                                             \r\n   7.000001E-03     S      2.615695E+00                                                                                             \r\n   7.500001E-03     S      5.199585E+00                                                                                             \r\n   8.000000E-03     S      9.640268E+00                                                                                             \r\n   8.500000E-03     S      1.670504E+01                                                                                             \r\n   9.000001E-03     S      2.709386E+01                                                                                             \r\n   9.500001E-03     S      4.116514E+01                                                                                             \r\n   1.000000E-02     S      5.860675E+01                                                                                             \r\n   1.050000E-02     S      7.816526E+01                                                                                             \r\n   1.100000E-02     S      9.758993E+01                                                                                             \r\n   1.150000E-02     S      1.139329E+02                                                                                             \r\n   1.200000E-02     S      1.242464E+02                                                                                             \r\n   1.250000E-02     S      1.265437E+02                                                                                             \r\n   1.300000E-02     S      1.207034E+02                                                                                             \r\n   1.350000E-02     S      1.088991E+02                                                                                             \r\n   1.400000E-02     S      9.521656E+01                                                                                             \r\n   1.450000E-02     S      8.440733E+01                                                                                             \r\n   1.500000E-02     S      8.012959E+01                                                                                             \r\n   1.550000E-02     S      8.336539E+01                                                                                             \r\n   1.600000E-02     S      9.176973E+01                                                                                             \r\n   1.650000E-02     S      1.003951E+02                                                                                             \r\n   1.700000E-02     S      1.036259E+02                                                                                             \r\n   1.750000E-02     S      9.752321E+01                                                                                             \r\n   1.800000E-02     S      8.147112E+01                                                                                             \r\n   1.850000E-02     S      5.826008E+01                                                                                             \r\n   1.900000E-02     S      3.249257E+01                                                                                             \r\n   1.949999E-02     S      8.102295E+00                                                                                             \r\n   1.999999E-02     S     -1.366529E+01                                                                                             \r\n   2.049999E-02     S     -3.462105E+01                                                                                             \r\n   2.099999E-02     S     -5.802620E+01                                                                                             \r\n   2.149999E-02     S     -8.583639E+01                                                                                             \r\n   2.199999E-02     S     -1.163932E+02                                                                                             \r\n   2.249999E-02     S     -1.440603E+02                                                                                             \r\n   2.299999E-02     S     -1.613001E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      30\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S     -1.622956E+02                                                                                             \r\n   2.399999E-02     S     -1.462391E+02                                                                                             \r\n   2.449999E-02     S     -1.184426E+02                                                                                             \r\n   2.499999E-02     S     -8.851847E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      1.411090E-19                                                                                             \r\n   1.000000E-03     S      3.780692E-18                                                                                             \r\n   1.500000E-03     S      6.822475E-17                                                                                             \r\n   2.000000E-03     S      9.320580E-16                                                                                             \r\n   2.500000E-03     S      1.027457E-14                                                                                             \r\n   3.000000E-03     S      9.513144E-14                                                                                             \r\n   3.500000E-03     S      7.604554E-13                                                                                             \r\n   4.000000E-03     S      5.354322E-12                                                                                             \r\n   4.500000E-03     S      3.371396E-11                                                                                             \r\n   5.000000E-03     S      1.921115E-10                                                                                             \r\n   5.500000E-03     S      1.000188E-09                                                                                             \r\n   6.000001E-03     S      4.795014E-09                                                                                             \r\n   6.500001E-03     S      2.130613E-08                                                                                             \r\n   7.000001E-03     S      8.822866E-08                                                                                             \r\n   7.500001E-03     S      3.420890E-07                                                                                             \r\n   8.000000E-03     S      1.246935E-06                                                                                             \r\n   8.500000E-03     S      4.287876E-06                                                                                             \r\n   9.000001E-03     S      1.395280E-05                                                                                             \r\n   9.500001E-03     S      4.307892E-05                                                                                             \r\n   1.000000E-02     S      1.264966E-04                                                                                             \r\n   1.050000E-02     S      3.540055E-04                                                                                             \r\n   1.100000E-02     S      9.459354E-04                                                                                             \r\n   1.150000E-02     S      2.417379E-03                                                                                             \r\n   1.200000E-02     S      5.916844E-03                                                                                             \r\n   1.250000E-02     S      1.388848E-02                                                                                             \r\n   1.300000E-02     S      3.129886E-02                                                                                             \r\n   1.350000E-02     S      6.778610E-02                                                                                             \r\n   1.400000E-02     S      1.412091E-01                                                                                             \r\n   1.450000E-02     S      2.831469E-01                                                                                             \r\n   1.500000E-02     S      5.468314E-01                                                                                             \r\n   1.550000E-02     S      1.017660E+00                                                                                             \r\n   1.600000E-02     S      1.825678E+00                                                                                             \r\n   1.650000E-02     S      3.158149E+00                                                                                             \r\n   1.700000E-02     S      5.268560E+00                                                                                             \r\n   1.750000E-02     S      8.476431E+00                                                                                             \r\n   1.800000E-02     S      1.315077E+01                                                                                             \r\n   1.850000E-02     S      1.966994E+01                                                                                             \r\n   1.900000E-02     S      2.835319E+01                                                                                             \r\n   1.949999E-02     S      3.936527E+01                                                                                             \r\n   1.999999E-02     S      5.260522E+01                                                                                             \r\n   2.049999E-02     S      6.760252E+01                                                                                             \r\n   2.099999E-02     S      8.345447E+01                                                                                             \r\n   2.149999E-02     S      9.884339E+01                                                                                             \r\n   2.199999E-02     S      1.121654E+02                                                                                             \r\n   2.249999E-02     S      1.217802E+02                                                                                             \r\n   2.299999E-02     S      1.263557E+02                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      40\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      1.252377E+02                                                                                             \r\n   2.399999E-02     S      1.187395E+02                                                                                             \r\n   2.449999E-02     S      1.082362E+02                                                                                             \r\n   2.499999E-02     S      9.597374E+01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      7.653862E-31                                                                                             \r\n   1.000000E-03     S      3.045296E-29                                                                                             \r\n   1.500000E-03     S      8.136034E-28                                                                                             \r\n   2.000000E-03     S      1.641352E-26                                                                                             \r\n   2.500000E-03     S      2.665979E-25                                                                                             \r\n   3.000000E-03     S      3.630353E-24                                                                                             \r\n   3.500000E-03     S      4.261524E-23                                                                                             \r\n   4.000000E-03     S      4.400688E-22                                                                                             \r\n   4.500000E-03     S      4.059976E-21                                                                                             \r\n   5.000000E-03     S      3.387222E-20                                                                                             \r\n   5.500000E-03     S      2.580637E-19                                                                                             \r\n   6.000001E-03     S      1.809937E-18                                                                                             \r\n   6.500001E-03     S      1.176444E-17                                                                                             \r\n   7.000001E-03     S      7.127252E-17                                                                                             \r\n   7.500001E-03     S      4.044239E-16                                                                                             \r\n   8.000000E-03     S      2.158499E-15                                                                                             \r\n   8.500000E-03     S      1.087606E-14                                                                                             \r\n   9.000001E-03     S      5.190504E-14                                                                                             \r\n   9.500001E-03     S      2.352974E-13                                                                                             \r\n   1.000000E-02     S      1.015806E-12                                                                                             \r\n   1.050000E-02     S      4.185919E-12                                                                                             \r\n   1.100000E-02     S      1.649898E-11                                                                                             \r\n   1.150000E-02     S      6.231942E-11                                                                                             \r\n   1.200000E-02     S      2.259578E-10                                                                                             \r\n   1.250000E-02     S      7.876629E-10                                                                                             \r\n   1.300000E-02     S      2.643471E-09                                                                                             \r\n   1.350000E-02     S      8.552437E-09                                                                                             \r\n   1.400000E-02     S      2.670540E-08                                                                                             \r\n   1.450000E-02     S      8.056983E-08                                                                                             \r\n   1.500000E-02     S      2.350945E-07                                                                                             \r\n   1.550000E-02     S      6.640587E-07                                                                                             \r\n   1.600000E-02     S      1.817314E-06                                                                                             \r\n   1.650000E-02     S      4.822245E-06                                                                                             \r\n   1.700000E-02     S      1.241576E-05                                                                                             \r\n   1.750000E-02     S      3.103748E-05                                                                                             \r\n   1.800000E-02     S      7.537876E-05                                                                                             \r\n   1.850000E-02     S      1.779505E-04                                                                                             \r\n   1.900000E-02     S      4.085591E-04                                                                                             \r\n   1.949999E-02     S      9.126693E-04                                                                                             \r\n   1.999999E-02     S      1.984511E-03                                                                                             \r\n   2.049999E-02     S      4.201797E-03                                                                                             \r\n   2.099999E-02     S      8.665642E-03                                                                                             \r\n   2.149999E-02     S      1.741306E-02                                                                                             \r\n   2.199999E-02     S      3.410091E-02                                                                                             \r\n   2.249999E-02     S      6.509738E-02                                                                                             \r\n   2.299999E-02     S      1.211549E-01                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =      50\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      2.198639E-01                                                                                             \r\n   2.399999E-02     S      3.890812E-01                                                                                             \r\n   2.449999E-02     S      6.714585E-01                                                                                             \r\n   2.499999E-02     S      1.130033E+00                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     100\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      1.286378E-38                                                                                             \r\n   2.449999E-02     S      5.984403E-38                                                                                             \r\n   2.499999E-02     S      2.730881E-37                                                                                             \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     200\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              S      0.0                                                                                                      \r\n   5.000000E-04     S      0.0                                                                                                      \r\n   1.000000E-03     S      0.0                                                                                                      \r\n   1.500000E-03     S      0.0                                                                                                      \r\n   2.000000E-03     S      0.0                                                                                                      \r\n   2.500000E-03     S      0.0                                                                                                      \r\n   3.000000E-03     S      0.0                                                                                                      \r\n   3.500000E-03     S      0.0                                                                                                      \r\n   4.000000E-03     S      0.0                                                                                                      \r\n   4.500000E-03     S      0.0                                                                                                      \r\n   5.000000E-03     S      0.0                                                                                                      \r\n   5.500000E-03     S      0.0                                                                                                      \r\n   6.000001E-03     S      0.0                                                                                                      \r\n   6.500001E-03     S      0.0                                                                                                      \r\n   7.000001E-03     S      0.0                                                                                                      \r\n   7.500001E-03     S      0.0                                                                                                      \r\n   8.000000E-03     S      0.0                                                                                                      \r\n   8.500000E-03     S      0.0                                                                                                      \r\n   9.000001E-03     S      0.0                                                                                                      \r\n   9.500001E-03     S      0.0                                                                                                      \r\n   1.000000E-02     S      0.0                                                                                                      \r\n   1.050000E-02     S      0.0                                                                                                      \r\n   1.100000E-02     S      0.0                                                                                                      \r\n   1.150000E-02     S      0.0                                                                                                      \r\n   1.200000E-02     S      0.0                                                                                                      \r\n   1.250000E-02     S      0.0                                                                                                      \r\n   1.300000E-02     S      0.0                                                                                                      \r\n   1.350000E-02     S      0.0                                                                                                      \r\n   1.400000E-02     S      0.0                                                                                                      \r\n   1.450000E-02     S      0.0                                                                                                      \r\n   1.500000E-02     S      0.0                                                                                                      \r\n   1.550000E-02     S      0.0                                                                                                      \r\n   1.600000E-02     S      0.0                                                                                                      \r\n   1.650000E-02     S      0.0                                                                                                      \r\n   1.700000E-02     S      0.0                                                                                                      \r\n   1.750000E-02     S      0.0                                                                                                      \r\n   1.800000E-02     S      0.0                                                                                                      \r\n   1.850000E-02     S      0.0                                                                                                      \r\n   1.900000E-02     S      0.0                                                                                                      \r\n   1.949999E-02     S      0.0                                                                                                      \r\n   1.999999E-02     S      0.0                                                                                                      \r\n   2.049999E-02     S      0.0                                                                                                      \r\n   2.099999E-02     S      0.0                                                                                                      \r\n   2.149999E-02     S      0.0                                                                                                      \r\n   2.199999E-02     S      0.0                                                                                                      \r\n   2.249999E-02     S      0.0                                                                                                      \r\n   2.299999E-02     S      0.0                                                                                                      \r\n1     TRANSIENT ANALYSIS OF A 1000 CELL STRING                              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                                                                                   \r\n0     TRAVELING WAVE PROBLEM                                                                                                        \r\n      POINT-ID =     500\r\n                                                V E L O C I T Y    V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349999E-02     S      0.0                                                                                                      \r\n   2.399999E-02     S      0.0                                                                                                      \r\n   2.449999E-02     S      0.0                                                                                                      \r\n   2.499999E-02     S      0.0                                                                                                      \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRANSIENT ANALYSIS OF A 1000 CELL STRING                           \r\n DATE:  5/17/95\r\n END TIME: 16: 8:13\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d09031a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D09031A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   9,3                                                                       \r\n     TIME  100                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                          \r\n                  3         LABEL = THIRD HARMONIC ANALYSIS.                                             \r\n                  4         TSTEP = 10                                                                   \r\n                  5         DLOAD = 10                                                                   \r\n                  6           SPC = 3                                                                    \r\n                  7         AXISYMMETRIC = FLUID                                                         \r\n                  8         OUTPUT                                                                       \r\n                  9         HARMONICS = 3                                                                \r\n                 10           SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                   \r\n                 11                     106,107, 122,123, 138,139, 154,155, 170,171                      \r\n                 12         DISPLACEMENT = 100                                                           \r\n                 13      PLOTID   = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                          \r\n                 14      OUTPUT(XYPLOT)                                                                  \r\n                 15       PLOTTER = NASTPLT                                                              \r\n                 16        XTGRID = YES                                                                  \r\n                 17        YTGRID = YES                                                                  \r\n                 18        XBGRID = YES                                                                  \r\n                 19        YBGRID = YES                                                                  \r\n                 20        XDIVISIONS = 10                                                               \r\n                 21        CURVELINESYMBOL = 1                                                           \r\n                 22        XTITLE  =                                     TIME (SECONDS)                  \r\n                 23        YTTITLE =  R DISP      -INCHES-                                               \r\n                 24        YBTITLE =  R DISP      -INCHES-                                               \r\n                 25      $                                                                               \r\n                 26      TCURVE = PLOTTED  *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18)             \r\n                 27        XYPLOT DISP   /91(T1,), 110(,T1)                                              \r\n                 28      TCURVE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)            \r\n                 29        XYPLOT DISP   /59(T1,), 62(T1,), 123(,T1),126(,T1)                            \r\n                 30      $                                                                               \r\n                 31        YTTITLE =  PRESSURE     *LB/INCH*                                             \r\n                 32        YBTITLE =  PRESSURE     *LB/INCH*                                             \r\n                 33      TCURVE = PLOTTED PRESPT (Z=5,A=0)  *TOP 5301(R=3)  *BOTTOM 5801(R=8)            \r\n                 34        XYPLOT DISP   / 5301(T1,), 5801(,T1)                                          \r\n                 35      TCURVE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501         \r\n                 36        XYPLOT DISP   / 5501(T1,T1), 3501(T1,), 7501(,T1)                             \r\n                 37        YTITLE = R DISP       -INCH-                                                  \r\n                 38      TCURVE = PLOTTED  DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES.         \r\n                 39        XYPLOT DISP   /  91(T1), 110(T1)                                              \r\n                 40         YTITLE = HARMONIC PRESSURE                                                   \r\n                 41      TCURVE = PLOTTED RINGFL (R=5,Z=5)  * 85                                         \r\n                 42           XYPLOT DISP / 4000085 (T1)                                                 \r\n                 43      $                                                                               \r\n                 44      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   333, INCLUDING   0 COMMENT CARDS)\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIF    1       .0      1.8-2   .00     NO                              +AXIF   \r\n                    2-        +AXIF   3                                                                       \r\n                    3-        BDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n                    4-        +BDY-1  122     138     154     170                                             \r\n                    5-        CFLUID2 1001    17      1                                                       \r\n                    6-        CFLUID2 2001    33      17                                                      \r\n                    7-        CFLUID2 3001    49      33                                                      \r\n                    8-        CFLUID2 4001    65      49                                                      \r\n                    9-        CFLUID2 5001    81      65                                                      \r\n                   10-        CFLUID2 6001    97      81                                                      \r\n                   11-        CFLUID2 7001    113     97                                                      \r\n                   12-        CFLUID2 8001    129     113                                                     \r\n                   13-        CFLUID2 9001    145     129                                                     \r\n                   14-        CFLUID2 10001   161     145                                                     \r\n                   15-        CFLUID4 1002    18      2       1       17                                      \r\n                   16-        CFLUID4 1003    19      3       2       18                                      \r\n                   17-        CFLUID4 1004    20      4       3       19                                      \r\n                   18-        CFLUID4 1005    21      5       4       20                                      \r\n                   19-        CFLUID4 1006    22      6       5       21                                      \r\n                   20-        CFLUID4 1007    23      7       6       22                                      \r\n                   21-        CFLUID4 1008    24      8       7       23                                      \r\n                   22-        CFLUID4 1009    25      9       8       24                                      \r\n                   23-        CFLUID4 1010    26      10      9       25                                      \r\n                   24-        CFLUID4 2002    34      18      17      33                                      \r\n                   25-        CFLUID4 2003    35      19      18      34                                      \r\n                   26-        CFLUID4 2004    36      20      19      35                                      \r\n                   27-        CFLUID4 2005    37      21      20      36                                      \r\n                   28-        CFLUID4 2006    38      22      21      37                                      \r\n                   29-        CFLUID4 2007    39      23      22      38                                      \r\n                   30-        CFLUID4 2008    40      24      23      39                                      \r\n                   31-        CFLUID4 2009    41      25      24      40                                      \r\n                   32-        CFLUID4 2010    42      26      25      41                                      \r\n                   33-        CFLUID4 3002    50      34      33      49                                      \r\n                   34-        CFLUID4 3003    51      35      34      50                                      \r\n                   35-        CFLUID4 3004    52      36      35      51                                      \r\n                   36-        CFLUID4 3005    53      37      36      52                                      \r\n                   37-        CFLUID4 3006    54      38      37      53                                      \r\n                   38-        CFLUID4 3007    55      39      38      54                                      \r\n                   39-        CFLUID4 3008    56      40      39      55                                      \r\n                   40-        CFLUID4 3009    57      41      40      56                                      \r\n                   41-        CFLUID4 3010    58      42      41      57                                      \r\n                   42-        CFLUID4 4002    66      50      49      65                                      \r\n                   43-        CFLUID4 4003    67      51      50      66                                      \r\n                   44-        CFLUID4 4004    68      52      51      67                                      \r\n                   45-        CFLUID4 4005    69      53      52      68                                      \r\n                   46-        CFLUID4 4006    70      54      53      69                                      \r\n                   47-        CFLUID4 4007    71      55      54      70                                      \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CFLUID4 4008    72      56      55      71                                      \r\n                   49-        CFLUID4 4009    73      57      56      72                                      \r\n                   50-        CFLUID4 4010    74      58      57      73                                      \r\n                   51-        CFLUID4 5002    82      66      65      81                                      \r\n                   52-        CFLUID4 5003    83      67      66      82                                      \r\n                   53-        CFLUID4 5004    84      68      67      83                                      \r\n                   54-        CFLUID4 5005    85      69      68      84                                      \r\n                   55-        CFLUID4 5006    86      70      69      85                                      \r\n                   56-        CFLUID4 5007    87      71      70      86                                      \r\n                   57-        CFLUID4 5008    88      72      71      87                                      \r\n                   58-        CFLUID4 5009    89      73      72      88                                      \r\n                   59-        CFLUID4 5010    90      74      73      89                                      \r\n                   60-        CFLUID4 6002    98      82      81      97                                      \r\n                   61-        CFLUID4 6003    99      83      82      98                                      \r\n                   62-        CFLUID4 6004    100     84      83      99                                      \r\n                   63-        CFLUID4 6005    101     85      84      100                                     \r\n                   64-        CFLUID4 6006    102     86      85      101                                     \r\n                   65-        CFLUID4 6007    103     87      86      102                                     \r\n                   66-        CFLUID4 6008    104     88      87      103                                     \r\n                   67-        CFLUID4 6009    105     89      88      104                                     \r\n                   68-        CFLUID4 6010    106     90      89      105                                     \r\n                   69-        CFLUID4 7002    114     98      97      113                                     \r\n                   70-        CFLUID4 7003    115     99      98      114                                     \r\n                   71-        CFLUID4 7004    116     100     99      115                                     \r\n                   72-        CFLUID4 7005    117     101     100     116                                     \r\n                   73-        CFLUID4 7006    118     102     101     117                                     \r\n                   74-        CFLUID4 7007    119     103     102     118                                     \r\n                   75-        CFLUID4 7008    120     104     103     119                                     \r\n                   76-        CFLUID4 7009    121     105     104     120                                     \r\n                   77-        CFLUID4 7010    122     106     105     121                                     \r\n                   78-        CFLUID4 8002    130     114     113     129                                     \r\n                   79-        CFLUID4 8003    131     115     114     130                                     \r\n                   80-        CFLUID4 8004    132     116     115     131                                     \r\n                   81-        CFLUID4 8005    133     117     116     132                                     \r\n                   82-        CFLUID4 8006    134     118     117     133                                     \r\n                   83-        CFLUID4 8007    135     119     118     134                                     \r\n                   84-        CFLUID4 8008    136     120     119     135                                     \r\n                   85-        CFLUID4 8009    137     121     120     136                                     \r\n                   86-        CFLUID4 8010    138     122     121     137                                     \r\n                   87-        CFLUID4 9002    146     130     129     145                                     \r\n                   88-        CFLUID4 9003    147     131     130     146                                     \r\n                   89-        CFLUID4 9004    148     132     131     147                                     \r\n                   90-        CFLUID4 9005    149     133     132     148                                     \r\n                   91-        CFLUID4 9006    150     134     133     149                                     \r\n                   92-        CFLUID4 9007    151     135     134     150                                     \r\n                   93-        CFLUID4 9008    152     136     135     151                                     \r\n                   94-        CFLUID4 9009    153     137     136     152                                     \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CFLUID4 9010    154     138     137     153                                     \r\n                   96-        CFLUID4 10002   162     146     145     161                                     \r\n                   97-        CFLUID4 10003   163     147     146     162                                     \r\n                   98-        CFLUID4 10004   164     148     147     163                                     \r\n                   99-        CFLUID4 10005   165     149     148     164                                     \r\n                  100-        CFLUID4 10006   166     150     149     165                                     \r\n                  101-        CFLUID4 10007   167     151     150     166                                     \r\n                  102-        CFLUID4 10008   168     152     151     167                                     \r\n                  103-        CFLUID4 10009   169     153     152     168                                     \r\n                  104-        CFLUID4 10010   170     154     153     169                                     \r\n                  105-        CORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n                  106-        +CORD2C 1.0     .0      .0                                                      \r\n                  107-        CQUAD1  1011    1       27      28      12      11                              \r\n                  108-        CQUAD1  1012    1       28      29      13      12                              \r\n                  109-        CQUAD1  1013    1       29      30      14      13                              \r\n                  110-        CQUAD1  1014    1       30      31      15      14                              \r\n                  111-        CQUAD1  1015    1       31      32      16      15                              \r\n                  112-        CQUAD1  2011    1       43      44      28      27                              \r\n                  113-        CQUAD1  2012    1       44      45      29      28                              \r\n                  114-        CQUAD1  2013    1       45      46      30      29                              \r\n                  115-        CQUAD1  2014    1       46      47      31      30                              \r\n                  116-        CQUAD1  2015    1       47      48      32      31                              \r\n                  117-        CQUAD1  3011    1       59      60      44      43                              \r\n                  118-        CQUAD1  3012    1       60      61      45      44                              \r\n                  119-        CQUAD1  3013    1       61      62      46      45                              \r\n                  120-        CQUAD1  3014    1       62      63      47      46                              \r\n                  121-        CQUAD1  3015    1       63      64      48      47                              \r\n                  122-        CQUAD1  4011    1       75      76      60      59                              \r\n                  123-        CQUAD1  4012    1       76      77      61      60                              \r\n                  124-        CQUAD1  4013    1       77      78      62      61                              \r\n                  125-        CQUAD1  4014    1       78      79      63      62                              \r\n                  126-        CQUAD1  4015    1       79      80      64      63                              \r\n                  127-        CQUAD1  5011    1       91      92      76      75                              \r\n                  128-        CQUAD1  5012    1       92      93      77      76                              \r\n                  129-        CQUAD1  5013    1       93      94      78      77                              \r\n                  130-        CQUAD1  5014    1       94      95      79      78                              \r\n                  131-        CQUAD1  5015    1       95      96      80      79                              \r\n                  132-        CQUAD1  6011    1       107     108     92      91                              \r\n                  133-        CQUAD1  6012    1       108     109     93      92                              \r\n                  134-        CQUAD1  6013    1       109     110     94      93                              \r\n                  135-        CQUAD1  6014    1       110     111     95      94                              \r\n                  136-        CQUAD1  6015    1       111     112     96      95                              \r\n                  137-        CQUAD1  7011    1       123     124     108     107                             \r\n                  138-        CQUAD1  7012    1       124     125     109     108                             \r\n                  139-        CQUAD1  7013    1       125     126     110     109                             \r\n                  140-        CQUAD1  7014    1       126     127     111     110                             \r\n                  141-        CQUAD1  7015    1       127     128     112     111                             \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CQUAD1  8011    1       139     140     124     123                             \r\n                  143-        CQUAD1  8012    1       140     141     125     124                             \r\n                  144-        CQUAD1  8013    1       141     142     126     125                             \r\n                  145-        CQUAD1  8014    1       142     143     127     126                             \r\n                  146-        CQUAD1  8015    1       143     144     128     127                             \r\n                  147-        CQUAD1  9011    1       155     156     140     139                             \r\n                  148-        CQUAD1  9012    1       156     157     141     140                             \r\n                  149-        CQUAD1  9013    1       157     158     142     141                             \r\n                  150-        CQUAD1  9014    1       158     159     143     142                             \r\n                  151-        CQUAD1  9015    1       159     160     144     143                             \r\n                  152-        CQUAD1  10011   1       171     172     156     155                             \r\n                  153-        CQUAD1  10012   1       172     173     157     156                             \r\n                  154-        CQUAD1  10013   1       173     174     158     157                             \r\n                  155-        CQUAD1  10014   1       174     175     159     158                             \r\n                  156-        CQUAD1  10015   1       175     176     160     159                             \r\n                  157-        DAREA   1       27      1       .32345  28      1       .61525                  \r\n                  158-        DAREA   1       29      1       .52336  30      1       .38024                  \r\n                  159-        DAREA   1       31      1       .19991  32      1       3.23-10                 \r\n                  160-        DAREA   1       43      1       .61525  44      1       1.17027                 \r\n                  161-        DAREA   1       45      1       .99549  46      1       .72327                  \r\n                  162-        DAREA   1       47      1       .38024  48      1       6.14-10                 \r\n                  163-        DAREA   1       59      1       .84681  60      1       1.61074                 \r\n                  164-        DAREA   1       61      1       1.37017 62      1       .99549                  \r\n                  165-        DAREA   1       63      1       .52336  64      1       8.44-10                 \r\n                  166-        DAREA   1       75      1       .99549  76      1       1.89353                 \r\n                  167-        DAREA   1       77      1       1.61074 78      1       1.17027                 \r\n                  168-        DAREA   1       79      1       .61525  80      1       9.93-10                 \r\n                  169-        DAREA   1       91      1       1.04672 92      1       1.99098                 \r\n                  170-        DAREA   1       93      1       1.69363 94      1       1.23049                 \r\n                  171-        DAREA   1       95      1       .64691  96      1       1.044-9                 \r\n                  172-        DAREA   1       107     1       .99549  108     1       1.89353                 \r\n                  173-        DAREA   1       109     1       1.61074 110     1       1.17027                 \r\n                  174-        DAREA   1       111     1       .61525  112     1       9.93-10                 \r\n                  175-        DAREA   1       123     1       .84681  124     1       1.61074                 \r\n                  176-        DAREA   1       125     1       1.37017 126     1       .99549                  \r\n                  177-        DAREA   1       127     1       .52336  128     1       8.44-10                 \r\n                  178-        DAREA   1       139     1       .61525  140     1       1.17027                 \r\n                  179-        DAREA   1       141     1       .99549  142     1       .72327                  \r\n                  180-        DAREA   1       143     1       .38024  144     1       6.14-10                 \r\n                  181-        DAREA   1       155     1       .32345  156     1       .61525                  \r\n                  182-        DAREA   1       157     1       .52336  158     1       .38024                  \r\n                  183-        DAREA   1       159     1       .19991  160     1       3.23-10                 \r\n                  184-        FLSYM   12      S       A                                                       \r\n                  185-        FSLIST          AXIS    1       2       3       4       5       6       +FSL-1  \r\n                  186-        +FSL-1  7       8       9       10                                              \r\n                  187-        FSLIST          170     169     168     167     166     165     164     +FSL-2  \r\n                  188-        +FSL-2  163     162     161     AXIS                                            \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRIDB   11                      0.0             1       4       10              \r\n                  190-        GRIDB   12                      6.00000         1       4       10              \r\n                  191-        GRIDB   13                      12.0000         1       4       10              \r\n                  192-        GRIDB   14                      18.0000         1       4       10              \r\n                  193-        GRIDB   15                      24.0000         1       4       10              \r\n                  194-        GRIDB   16                      30.0000         1       4       10              \r\n                  195-        GRIDB   27                      0.0             1       4       26              \r\n                  196-        GRIDB   28                      6.00000         1       4       26              \r\n                  197-        GRIDB   29                      12.0000         1       4       26              \r\n                  198-        GRIDB   30                      18.0000         1       4       26              \r\n                  199-        GRIDB   31                      24.0000         1       4       26              \r\n                  200-        GRIDB   32                      30.0000         1       4       26              \r\n                  201-        GRIDB   43                      0.0             1       4       42              \r\n                  202-        GRIDB   44                      6.00000         1       4       42              \r\n                  203-        GRIDB   45                      12.0000         1       4       42              \r\n                  204-        GRIDB   46                      18.0000         1       4       42              \r\n                  205-        GRIDB   47                      24.0000         1       4       42              \r\n                  206-        GRIDB   48                      30.0000         1       4       42              \r\n                  207-        GRIDB   59                      0.0             1       4       58              \r\n                  208-        GRIDB   60                      6.00000         1       4       58              \r\n                  209-        GRIDB   61                      12.0000         1       4       58              \r\n                  210-        GRIDB   62                      18.0000         1       4       58              \r\n                  211-        GRIDB   63                      24.0000         1       4       58              \r\n                  212-        GRIDB   64                      30.0000         1       4       58              \r\n                  213-        GRIDB   75                      0.0             1       4       74              \r\n                  214-        GRIDB   76                      6.00000         1       4       74              \r\n                  215-        GRIDB   77                      12.0000         1       4       74              \r\n                  216-        GRIDB   78                      18.0000         1       4       74              \r\n                  217-        GRIDB   79                      24.0000         1       4       74              \r\n                  218-        GRIDB   80                      30.0000         1       4       74              \r\n                  219-        GRIDB   91                      0.0             1       4       90              \r\n                  220-        GRIDB   92                      6.00000         1       4       90              \r\n                  221-        GRIDB   93                      12.0000         1       4       90              \r\n                  222-        GRIDB   94                      18.0000         1       4       90              \r\n                  223-        GRIDB   95                      24.0000         1       4       90              \r\n                  224-        GRIDB   96                      30.0000         1       4       90              \r\n                  225-        GRIDB   107                     0.0             1       4       106             \r\n                  226-        GRIDB   108                     6.00000         1       4       106             \r\n                  227-        GRIDB   109                     12.0000         1       4       106             \r\n                  228-        GRIDB   110                     18.0000         1       4       106             \r\n                  229-        GRIDB   111                     24.0000         1       4       106             \r\n                  230-        GRIDB   112                     30.0000         1       4       106             \r\n                  231-        GRIDB   123                     0.0             1       4       122             \r\n                  232-        GRIDB   124                     6.00000         1       4       122             \r\n                  233-        GRIDB   125                     12.0000         1       4       122             \r\n                  234-        GRIDB   126                     18.0000         1       4       122             \r\n                  235-        GRIDB   127                     24.0000         1       4       122             \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRIDB   128                     30.0000         1       4       122             \r\n                  237-        GRIDB   139                     0.0             1       4       138             \r\n                  238-        GRIDB   140                     6.00000         1       4       138             \r\n                  239-        GRIDB   141                     12.0000         1       4       138             \r\n                  240-        GRIDB   142                     18.0000         1       4       138             \r\n                  241-        GRIDB   143                     24.0000         1       4       138             \r\n                  242-        GRIDB   144                     30.0000         1       4       138             \r\n                  243-        GRIDB   155                     0.0             1       4       154             \r\n                  244-        GRIDB   156                     6.00000         1       4       154             \r\n                  245-        GRIDB   157                     12.0000         1       4       154             \r\n                  246-        GRIDB   158                     18.0000         1       4       154             \r\n                  247-        GRIDB   159                     24.0000         1       4       154             \r\n                  248-        GRIDB   160                     30.0000         1       4       154             \r\n                  249-        GRIDB   171                     0.0             1       4       170             \r\n                  250-        GRIDB   172                     6.00000         1       4       170             \r\n                  251-        GRIDB   173                     12.0000         1       4       170             \r\n                  252-        GRIDB   174                     18.0000         1       4       170             \r\n                  253-        GRIDB   175                     24.0000         1       4       170             \r\n                  254-        GRIDB   176                     30.0000         1       4       170             \r\n                  255-        MAT1    2       1.6+5   6.0+4           6.0-2                                   \r\n                  256-        PQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n                  257-        +PQUAD1 .0      .005                                                            \r\n                  258-        PRESPT  21              1501    +0.0                                            \r\n                  259-        PRESPT  53              3501    +0.0                                            \r\n                  260-        PRESPT  81              5101    +0.0                                            \r\n                  261-        PRESPT  82              5201    +0.0                                            \r\n                  262-        PRESPT  83              5301    +0.0                                            \r\n                  263-        PRESPT  84              5401    +0.0                                            \r\n                  264-        PRESPT  85              5501    +0.0    5502    30.0    5503    60.0            \r\n                  265-        PRESPT  86              5601    +0.0                                            \r\n                  266-        PRESPT  87              5701    +0.0                                            \r\n                  267-        PRESPT  88              5801    +0.0                                            \r\n                  268-        PRESPT  89              5901    +0.0                                            \r\n                  269-        PRESPT  117             7501    +0.0                                            \r\n                  270-        PRESPT  149             9501    +0.0                                            \r\n                  271-        RINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\n                  272-        RINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\n                  273-        RINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\n                  274-        RINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\n                  275-        RINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\n                  276-        RINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\n                  277-        RINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\n                  278-        RINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\n                  279-        RINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\n                  280-        RINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\n                  281-        RINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\n                  282-        RINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        RINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\n                  284-        RINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\n                  285-        RINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\n                  286-        RINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\n                  287-        RINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\n                  288-        RINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\n                  289-        RINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\n                  290-        RINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\n                  291-        RINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\n                  292-        RINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\n                  293-        RINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\n                  294-        RINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\n                  295-        RINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\n                  296-        RINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\n                  297-        RINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\n                  298-        RINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\n                  299-        RINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\n                  300-        RINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\n                  301-        RINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\n                  302-        RINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\n                  303-        RINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\n                  304-        RINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\n                  305-        RINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\n                  306-        RINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\n                  307-        RINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\n                  308-        RINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\n                  309-        RINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\n                  310-        RINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\n                  311-        RINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\n                  312-        RINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\n                  313-        RINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\n                  314-        RINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\n                  315-        RINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\n                  316-        RINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\n                  317-        RINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\n                  318-        RINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\n                  319-        RINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\n                  320-        RINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\n                  321-        RINGFL  161     1.00000         0.0     162     2.00000         0.0             \r\n                  322-        RINGFL  163     3.00000         0.0     164     4.00000         0.0             \r\n                  323-        RINGFL  165     5.00000         0.0     166     6.00000         0.0             \r\n                  324-        RINGFL  167     7.00000         0.0     168     8.00000         0.0             \r\n                  325-        RINGFL  169     9.00000         0.0     170     10.0000         0.0             \r\n                  326-        SPC1    3       126     11      12      13      14      15      16              \r\n                  327-        SPC1    3       126     171     172     173     174     175     176             \r\n                  328-        SPC1    3       135     16      32      48      64      80      96      H=3     \r\n                  329-        SPC1    3       135     112     128     144     160     176             H=3     \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        SPC1    3       246     11      27      43      59      75      91      H=3     \r\n                  331-        SPC1    3       246     107     123     139     155     171             H=3     \r\n                  332-        TLOAD2  10      1                       .0      1.0     .0      .0              \r\n                  333-        TSTEP   10      50      .02     2                                               \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC FLUID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT     1501\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT     3501\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT     5101\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5201 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5301 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5401 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5501 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5502 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5503 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5601 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5701 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5801 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     5901 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     7501 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.     9501 NOT CONNECTED\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n\r\n      THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID2   ELEMENTS (ELEMENT TYPE  43) STARTING WITH ID  1001008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLUID4   ELEMENTS (ELEMENT TYPE  45) STARTING WITH ID  1002008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FLMASS   ELEMENTS (ELEMENT TYPE  46) STARTING WITH ID  1000008\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID     1011\r\n0*** USER INFORMATION MESSAGE 3028      B =   23     BBAR =   34\r\n                                        C =   21     CBAR =    9\r\n                                        R =   56\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC  REAL    DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =   335)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0            0.0            1.172473E-03   0.0           -7.448046E-03   0.0                           \r\n   8.000000E-02     G      0.0            0.0            5.498284E-03   0.0           -3.420134E-02   0.0                           \r\n   1.200000E-01     G      0.0            0.0            1.256124E-02   0.0           -7.793691E-02   0.0                           \r\n   1.600000E-01     G      0.0            0.0            2.125505E-02   0.0           -1.317777E-01   0.0                           \r\n   2.000000E-01     G      0.0            0.0            3.022066E-02   0.0           -1.872522E-01   0.0                           \r\n   2.400000E-01     G      0.0            0.0            3.803502E-02   0.0           -2.356479E-01   0.0                           \r\n   2.800000E-01     G      0.0            0.0            4.347844E-02   0.0           -2.693559E-01   0.0                           \r\n   3.200000E-01     G      0.0            0.0            4.569780E-02   0.0           -2.830696E-01   0.0                           \r\n   3.600000E-01     G      0.0            0.0            4.433180E-02   0.0           -2.746364E-01   0.0                           \r\n   4.000000E-01     G      0.0            0.0            3.960761E-02   0.0           -2.453847E-01   0.0                           \r\n   4.400001E-01     G      0.0            0.0            3.226523E-02   0.0           -1.999104E-01   0.0                           \r\n   4.800001E-01     G      0.0            0.0            2.344991E-02   0.0           -1.453606E-01   0.0                           \r\n   5.200000E-01     G      0.0            0.0            1.456164E-02   0.0           -9.031925E-02   0.0                           \r\n   5.600000E-01     G      0.0            0.0            6.989846E-03   0.0           -4.343792E-02   0.0                           \r\n   6.000000E-01     G      0.0            0.0            1.920301E-03   0.0           -1.208147E-02   0.0                           \r\n   6.399999E-01     G      0.0            0.0            1.634114E-04   0.0           -1.177379E-03   0.0                           \r\n   6.799999E-01     G      0.0            0.0            1.983430E-03   0.0           -1.245040E-02   0.0                           \r\n   7.199998E-01     G      0.0            0.0            7.095142E-03   0.0           -4.411817E-02   0.0                           \r\n   7.599998E-01     G      0.0            0.0            1.470591E-02   0.0           -9.120239E-02   0.0                           \r\n   7.999998E-01     G      0.0            0.0            2.360501E-02   0.0           -1.463072E-01   0.0                           \r\n   8.399997E-01     G      0.0            0.0            3.239991E-02   0.0           -2.007700E-01   0.0                           \r\n   8.799997E-01     G      0.0            0.0            3.971460E-02   0.0           -2.460269E-01   0.0                           \r\n   9.199997E-01     G      0.0            0.0            4.438431E-02   0.0           -2.749573E-01   0.0                           \r\n   9.599996E-01     G      0.0            0.0            4.568599E-02   0.0           -2.830216E-01   0.0                           \r\n   9.999996E-01     G      0.0            0.0            4.341624E-02   0.0           -2.689449E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      27\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      7.341438E-03   0.0            1.115102E-03   0.0           -7.087710E-03   0.0                           \r\n   8.000000E-02     G      3.370503E-02   0.0            5.229196E-03   0.0           -3.253101E-02   0.0                           \r\n   1.200000E-01     G      7.680206E-02   0.0            1.194647E-02   0.0           -7.412641E-02   0.0                           \r\n   1.600000E-01     G      1.298560E-01   0.0            2.021476E-02   0.0           -1.253303E-01   0.0                           \r\n   2.000000E-01     G      1.845229E-01   0.0            2.874157E-02   0.0           -1.780919E-01   0.0                           \r\n   2.400000E-01     G      2.322126E-01   0.0            3.617347E-02   0.0           -2.241184E-01   0.0                           \r\n   2.800000E-01     G      2.654277E-01   0.0            4.135047E-02   0.0           -2.561752E-01   0.0                           \r\n   3.200000E-01     G      2.789421E-01   0.0            4.346121E-02   0.0           -2.692189E-01   0.0                           \r\n   3.600000E-01     G      2.706322E-01   0.0            4.216207E-02   0.0           -2.611988E-01   0.0                           \r\n   4.000000E-01     G      2.418065E-01   0.0            3.766908E-02   0.0           -2.333782E-01   0.0                           \r\n   4.400001E-01     G      1.969951E-01   0.0            3.068607E-02   0.0           -1.901288E-01   0.0                           \r\n   4.800001E-01     G      1.432425E-01   0.0            2.230221E-02   0.0           -1.382504E-01   0.0                           \r\n   5.200000E-01     G      8.900399E-02   0.0            1.384896E-02   0.0           -8.590242E-02   0.0                           \r\n   5.600000E-01     G      4.280549E-02   0.0            6.647750E-03   0.0           -4.131532E-02   0.0                           \r\n   6.000000E-01     G      1.190678E-02   0.0            1.826322E-03   0.0           -1.149273E-02   0.0                           \r\n   6.399999E-01     G      1.163649E-03   0.0            1.554361E-04   0.0           -1.124853E-03   0.0                           \r\n   6.799999E-01     G      1.227042E-02   0.0            1.886363E-03   0.0           -1.184372E-02   0.0                           \r\n   7.199998E-01     G      4.347592E-02   0.0            6.747890E-03   0.0           -4.196222E-02   0.0                           \r\n   7.599998E-01     G      8.987405E-02   0.0            1.398617E-02   0.0           -8.674253E-02   0.0                           \r\n   7.999998E-01     G      1.441751E-01   0.0            2.244971E-02   0.0           -1.391499E-01   0.0                           \r\n   8.399997E-01     G      1.978428E-01   0.0            3.081416E-02   0.0           -1.909474E-01   0.0                           \r\n   8.799997E-01     G      2.424388E-01   0.0            3.777083E-02   0.0           -2.339878E-01   0.0                           \r\n   9.199997E-01     G      2.709489E-01   0.0            4.221201E-02   0.0           -2.615050E-01   0.0                           \r\n   9.599996E-01     G      2.788943E-01   0.0            4.344997E-02   0.0           -2.691725E-01   0.0                           \r\n   9.999996E-01     G      2.650228E-01   0.0            4.129131E-02   0.0           -2.557848E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      43\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.396785E-02   0.0            9.485719E-04   0.0           -6.028959E-03   0.0                           \r\n   8.000000E-02     G      6.411415E-02   0.0            4.448249E-03   0.0           -2.767453E-02   0.0                           \r\n   1.200000E-01     G      1.460896E-01   0.0            1.016228E-02   0.0           -6.305572E-02   0.0                           \r\n   1.600000E-01     G      2.470027E-01   0.0            1.719570E-02   0.0           -1.066115E-01   0.0                           \r\n   2.000000E-01     G      3.509873E-01   0.0            2.444906E-02   0.0           -1.514951E-01   0.0                           \r\n   2.400000E-01     G      4.416984E-01   0.0            3.077102E-02   0.0           -1.906483E-01   0.0                           \r\n   2.800000E-01     G      5.048757E-01   0.0            3.517481E-02   0.0           -2.179144E-01   0.0                           \r\n   3.200000E-01     G      5.305825E-01   0.0            3.697032E-02   0.0           -2.290116E-01   0.0                           \r\n   3.600000E-01     G      5.147769E-01   0.0            3.586523E-02   0.0           -2.221906E-01   0.0                           \r\n   4.000000E-01     G      4.599464E-01   0.0            3.204325E-02   0.0           -1.985237E-01   0.0                           \r\n   4.400001E-01     G      3.747092E-01   0.0            2.610313E-02   0.0           -1.617323E-01   0.0                           \r\n   4.800001E-01     G      2.724672E-01   0.0            1.897141E-02   0.0           -1.176038E-01   0.0                           \r\n   5.200000E-01     G      1.692989E-01   0.0            1.178065E-02   0.0           -7.307459E-02   0.0                           \r\n   5.600000E-01     G      8.142390E-02   0.0            5.654919E-03   0.0           -3.514425E-02   0.0                           \r\n   6.000000E-01     G      2.265004E-02   0.0            1.553571E-03   0.0           -9.775708E-03   0.0                           \r\n   6.399999E-01     G      2.218145E-03   0.0            1.322520E-04   0.0           -9.593955E-04   0.0                           \r\n   6.799999E-01     G      2.334205E-02   0.0            1.604648E-03   0.0           -1.007460E-02   0.0                           \r\n   7.199998E-01     G      8.269887E-02   0.0            5.740099E-03   0.0           -3.569462E-02   0.0                           \r\n   7.599998E-01     G      1.709542E-01   0.0            1.189737E-02   0.0           -7.378878E-02   0.0                           \r\n   7.999998E-01     G      2.742404E-01   0.0            1.909689E-02   0.0           -1.183691E-01   0.0                           \r\n   8.399997E-01     G      3.763226E-01   0.0            2.621210E-02   0.0           -1.624293E-01   0.0                           \r\n   8.799997E-01     G      4.611480E-01   0.0            3.212980E-02   0.0           -1.990415E-01   0.0                           \r\n   9.199997E-01     G      5.153798E-01   0.0            3.590770E-02   0.0           -2.224513E-01   0.0                           \r\n   9.599996E-01     G      5.304914E-01   0.0            3.696077E-02   0.0           -2.289726E-01   0.0                           \r\n   9.999996E-01     G      5.041057E-01   0.0            3.512448E-02   0.0           -2.175818E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      59\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.922378E-02   0.0            6.891849E-04   0.0           -4.380530E-03   0.0                           \r\n   8.000000E-02     G      8.824663E-02   0.0            3.231867E-03   0.0           -2.010901E-02   0.0                           \r\n   1.200000E-01     G      2.010739E-01   0.0            7.383340E-03   0.0           -4.581302E-02   0.0                           \r\n   1.600000E-01     G      3.399688E-01   0.0            1.249341E-02   0.0           -7.745740E-02   0.0                           \r\n   2.000000E-01     G      4.830924E-01   0.0            1.776330E-02   0.0           -1.100694E-01   0.0                           \r\n   2.400000E-01     G      6.079462E-01   0.0            2.235647E-02   0.0           -1.385152E-01   0.0                           \r\n   2.800000E-01     G      6.949001E-01   0.0            2.555600E-02   0.0           -1.583244E-01   0.0                           \r\n   3.200000E-01     G      7.302833E-01   0.0            2.686052E-02   0.0           -1.663864E-01   0.0                           \r\n   3.600000E-01     G      7.085304E-01   0.0            2.605764E-02   0.0           -1.614335E-01   0.0                           \r\n   4.000000E-01     G      6.330611E-01   0.0            2.328079E-02   0.0           -1.442359E-01   0.0                           \r\n   4.400001E-01     G      5.157415E-01   0.0            1.896503E-02   0.0           -1.175056E-01   0.0                           \r\n   4.800001E-01     G      3.750188E-01   0.0            1.378356E-02   0.0           -8.544514E-02   0.0                           \r\n   5.200000E-01     G      2.330206E-01   0.0            8.559164E-03   0.0           -5.309394E-02   0.0                           \r\n   5.600000E-01     G      1.120688E-01   0.0            4.108538E-03   0.0           -2.553283E-02   0.0                           \r\n   6.000000E-01     G      3.117407E-02   0.0            1.128746E-03   0.0           -7.103801E-03   0.0                           \r\n   6.399999E-01     G      3.053781E-03   0.0            9.610655E-05   0.0           -6.978477E-04   0.0                           \r\n   6.799999E-01     G      3.212697E-02   0.0            1.165859E-03   0.0           -7.321349E-03   0.0                           \r\n   7.199998E-01     G      1.138236E-01   0.0            4.170423E-03   0.0           -2.593260E-02   0.0                           \r\n   7.599998E-01     G      2.352985E-01   0.0            8.643961E-03   0.0           -5.361235E-02   0.0                           \r\n   7.999998E-01     G      3.774597E-01   0.0            1.387472E-02   0.0           -8.600190E-02   0.0                           \r\n   8.399997E-01     G      5.179623E-01   0.0            1.904420E-02   0.0           -1.180113E-01   0.0                           \r\n   8.799997E-01     G      6.347148E-01   0.0            2.334367E-02   0.0           -1.446127E-01   0.0                           \r\n   9.199997E-01     G      7.093598E-01   0.0            2.608850E-02   0.0           -1.616219E-01   0.0                           \r\n   9.599996E-01     G      7.301588E-01   0.0            2.685358E-02   0.0           -1.663593E-01   0.0                           \r\n   9.999996E-01     G      6.938396E-01   0.0            2.551943E-02   0.0           -1.580821E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      75\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.260100E-02   0.0            3.623331E-04   0.0           -2.305232E-03   0.0                           \r\n   8.000000E-02     G      1.037433E-01   0.0            1.699105E-03   0.0           -1.057449E-02   0.0                           \r\n   1.200000E-01     G      2.363787E-01   0.0            3.881659E-03   0.0           -2.408732E-02   0.0                           \r\n   1.600000E-01     G      3.996579E-01   0.0            6.568177E-03   0.0           -4.072319E-02   0.0                           \r\n   2.000000E-01     G      5.679125E-01   0.0            9.338733E-03   0.0           -5.786930E-02   0.0                           \r\n   2.400000E-01     G      7.146861E-01   0.0            1.175350E-02   0.0           -7.282434E-02   0.0                           \r\n   2.800000E-01     G      8.169056E-01   0.0            1.343559E-02   0.0           -8.323748E-02   0.0                           \r\n   3.200000E-01     G      8.585010E-01   0.0            1.412142E-02   0.0           -8.747663E-02   0.0                           \r\n   3.600000E-01     G      8.329310E-01   0.0            1.369932E-02   0.0           -8.487279E-02   0.0                           \r\n   4.000000E-01     G      7.442097E-01   0.0            1.223945E-02   0.0           -7.583214E-02   0.0                           \r\n   4.400001E-01     G      6.062918E-01   0.0            9.970508E-03   0.0           -6.177668E-02   0.0                           \r\n   4.800001E-01     G      4.408637E-01   0.0            7.246459E-03   0.0           -4.492483E-02   0.0                           \r\n   5.200000E-01     G      2.739353E-01   0.0            4.499827E-03   0.0           -2.791455E-02   0.0                           \r\n   5.600000E-01     G      1.317456E-01   0.0            2.159992E-03   0.0           -1.342565E-02   0.0                           \r\n   6.000000E-01     G      3.664966E-02   0.0            5.934225E-04   0.0           -3.736118E-03   0.0                           \r\n   6.399999E-01     G      3.592473E-03   0.0            5.053749E-05   0.0           -3.698142E-04   0.0                           \r\n   6.799999E-01     G      3.777024E-02   0.0            6.129372E-04   0.0           -3.850891E-03   0.0                           \r\n   7.199998E-01     G      1.338083E-01   0.0            2.192524E-03   0.0           -1.363517E-02   0.0                           \r\n   7.599998E-01     G      2.766128E-01   0.0            4.544407E-03   0.0           -2.818779E-02   0.0                           \r\n   7.999998E-01     G      4.437335E-01   0.0            7.294387E-03   0.0           -4.521700E-02   0.0                           \r\n   8.399997E-01     G      6.089023E-01   0.0            1.001213E-02   0.0           -6.204293E-02   0.0                           \r\n   8.799997E-01     G      7.461537E-01   0.0            1.227250E-02   0.0           -7.602983E-02   0.0                           \r\n   9.199997E-01     G      8.339058E-01   0.0            1.371554E-02   0.0           -8.497231E-02   0.0                           \r\n   9.599996E-01     G      8.583551E-01   0.0            1.411777E-02   0.0           -8.746175E-02   0.0                           \r\n   9.999996E-01     G      8.156588E-01   0.0            1.341637E-02   0.0           -8.311109E-02   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      91\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.376437E-02   0.0            4.137240E-16   0.0            1.778554E-14   0.0                           \r\n   8.000000E-02     G      1.090833E-01   0.0            2.345418E-15   0.0            3.833046E-13   0.0                           \r\n   1.200000E-01     G      2.485435E-01   0.0           -1.369925E-15   0.0           -1.331300E-13   0.0                           \r\n   1.600000E-01     G      4.202253E-01   0.0            2.624836E-15   0.0            1.171753E-13   0.0                           \r\n   2.000000E-01     G      5.971391E-01   0.0            5.506101E-16   0.0            7.820407E-13   0.0                           \r\n   2.400000E-01     G      7.514666E-01   0.0           -3.218358E-15   0.0           -1.746122E-12   0.0                           \r\n   2.800000E-01     G      8.589451E-01   0.0            2.177896E-15   0.0           -2.102879E-12   0.0                           \r\n   3.200000E-01     G      9.026821E-01   0.0           -1.336678E-15   0.0           -2.061030E-13   0.0                           \r\n   3.600000E-01     G      8.757957E-01   0.0           -1.653532E-15   0.0           -1.545250E-12   0.0                           \r\n   4.000000E-01     G      7.825097E-01   0.0           -2.266910E-15   0.0           -1.639408E-12   0.0                           \r\n   4.400001E-01     G      6.374918E-01   0.0           -3.007987E-15   0.0            3.065390E-12   0.0                           \r\n   4.800001E-01     G      4.635533E-01   0.0            7.571615E-15   0.0           -3.220229E-12   0.0                           \r\n   5.200000E-01     G      2.880326E-01   0.0            1.464286E-15   0.0           -5.338278E-13   0.0                           \r\n   5.600000E-01     G      1.385262E-01   0.0           -5.139761E-15   0.0            3.354928E-12   0.0                           \r\n   6.000000E-01     G      3.853544E-02   0.0            5.337946E-15   0.0           -2.861772E-12   0.0                           \r\n   6.399999E-01     G      3.778856E-03   0.0           -6.308178E-15   0.0           -2.766403E-13   0.0                           \r\n   6.799999E-01     G      3.971393E-02   0.0            4.949448E-16   0.0            2.985028E-12   0.0                           \r\n   7.199998E-01     G      1.406947E-01   0.0            6.652085E-15   0.0           -2.586096E-12   0.0                           \r\n   7.599998E-01     G      2.908483E-01   0.0           -6.222164E-15   0.0           -4.001747E-13   0.0                           \r\n   7.999998E-01     G      4.665704E-01   0.0            2.862064E-15   0.0            2.026505E-12   0.0                           \r\n   8.399997E-01     G      6.402371E-01   0.0            2.871316E-15   0.0           -3.041327E-12   0.0                           \r\n   8.799997E-01     G      7.845532E-01   0.0           -8.102090E-15   0.0            2.253533E-12   0.0                           \r\n   9.199997E-01     G      8.768212E-01   0.0            2.310895E-15   0.0           -8.348742E-13   0.0                           \r\n   9.599996E-01     G      9.025282E-01   0.0           -1.076903E-15   0.0           -2.431388E-12   0.0                           \r\n   9.999996E-01     G      8.576347E-01   0.0           -1.886639E-15   0.0            1.332869E-12   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      92\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.260074E-02  -1.950406E-03   4.142405E-16   0.0           -6.859767E-14   1.993687E-03                  \r\n   8.000000E-02     G      1.037451E-01  -9.010918E-03   1.817518E-15   0.0            5.708360E-14   9.146721E-03                  \r\n   1.200000E-01     G      2.363869E-01  -2.054910E-02  -2.551433E-15   0.0            2.416523E-14   2.083841E-02                  \r\n   1.600000E-01     G      3.996707E-01  -3.475256E-02   1.451704E-15   0.0            1.226380E-13   3.523096E-02                  \r\n   2.000000E-01     G      5.679289E-01  -4.939157E-02   1.143681E-15   0.0            2.684894E-13   5.006296E-02                  \r\n   2.400000E-01     G      7.147114E-01  -6.215947E-02  -2.493521E-15   0.0            3.303385E-13   6.300066E-02                  \r\n   2.800000E-01     G      8.169399E-01  -7.105191E-02  -4.964634E-16   0.0            5.386227E-13   7.200997E-02                  \r\n   3.200000E-01     G      8.585345E-01  -7.467207E-02  -3.672564E-15   0.0            6.922026E-13   7.567722E-02                  \r\n   3.600000E-01     G      8.329593E-01  -7.244594E-02  -3.760177E-16   0.0           -4.171304E-13   7.342050E-02                  \r\n   4.000000E-01     G      7.442396E-01  -6.472787E-02   2.996483E-15   0.0           -5.478790E-13   6.559681E-02                  \r\n   4.400001E-01     G      6.063230E-01  -5.273090E-02  -1.640104E-15   0.0            1.300915E-12   5.343264E-02                  \r\n   4.800001E-01     G      4.408874E-01  -3.833777E-02  -2.402911E-16   0.0           -1.731633E-13   3.885135E-02                  \r\n   5.200000E-01     G      2.739478E-01  -2.381622E-02   1.730769E-16   0.0           -1.134351E-12   2.414030E-02                  \r\n   5.600000E-01     G      1.317484E-01  -1.144703E-02  -6.233334E-16   0.0            1.102557E-12   1.161612E-02                  \r\n   6.000000E-01     G      3.664268E-02  -3.172364E-03   5.516774E-15   0.0           -6.617106E-13   3.243315E-03                  \r\n   6.399999E-01     G      3.579726E-03  -2.976845E-04  -4.749169E-15   0.0           -5.007787E-13   3.365625E-04                  \r\n   6.799999E-01     G      3.775948E-02  -3.271090E-03  -4.596302E-17   0.0            1.094869E-12   3.347042E-03                  \r\n   7.199998E-01     G      1.338067E-01  -1.162477E-02   4.876774E-15   0.0           -8.206911E-13   1.180484E-02                  \r\n   7.599998E-01     G      2.766227E-01  -2.404971E-02  -5.530567E-15   0.0           -6.343191E-13   2.437980E-02                  \r\n   7.999998E-01     G      4.437579E-01  -3.858831E-02   4.354075E-15   0.0           -3.287037E-16   3.910298E-02                  \r\n   8.399997E-01     G      6.089382E-01  -5.295651E-02   1.211060E-15   0.0           -1.686664E-12   5.365820E-02                  \r\n   8.799997E-01     G      7.461882E-01  -6.489819E-02  -5.768907E-15   0.0           -7.535099E-13   6.576206E-02                  \r\n   9.199997E-01     G      8.339348E-01  -7.253103E-02   2.374284E-15   0.0           -1.319950E-12   7.350541E-02                  \r\n   9.599996E-01     G      8.583848E-01  -7.465774E-02  -3.456726E-15   0.0            1.040036E-12   7.566625E-02                  \r\n   9.999996E-01     G      8.156897E-01  -7.094487E-02  -7.998902E-16   0.0           -9.457382E-13   7.190454E-02                  \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      93\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.922783E-02  -3.710001E-03   1.460000E-16   0.0            1.063934E-14   3.796774E-03                  \r\n   8.000000E-02     G      8.825850E-02  -1.714023E-02   2.273778E-15   0.0           -1.316794E-14   1.741649E-02                  \r\n   1.200000E-01     G      2.010931E-01  -3.908768E-02  -4.465324E-16   0.0           -1.906415E-15   3.968520E-02                  \r\n   1.600000E-01     G      3.399968E-01  -6.610481E-02  -3.716432E-18   0.0            3.877797E-14   6.710280E-02                  \r\n   2.000000E-01     G      4.831298E-01  -9.395024E-02  -1.643237E-15   0.0           -2.409833E-14   9.536032E-02                  \r\n   2.400000E-01     G      6.079882E-01  -1.182365E-01  -3.316819E-15   0.0            3.572858E-14   1.200168E-01                  \r\n   2.800000E-01     G      6.949428E-01  -1.351511E-01   1.087655E-15   0.0            8.413874E-14   1.371926E-01                  \r\n   3.200000E-01     G      7.303283E-01  -1.420372E-01  -2.091808E-15   0.0           -2.694941E-13   1.441769E-01                  \r\n   3.600000E-01     G      7.085808E-01  -1.378030E-01  -1.831566E-15   0.0            2.950639E-13   1.398789E-01                  \r\n   4.000000E-01     G      6.331128E-01  -1.231225E-01   1.760028E-15   0.0           -1.591517E-14   1.249735E-01                  \r\n   4.400001E-01     G      5.157924E-01  -1.003030E-01  -3.009009E-15   0.0           -9.463132E-14   1.018113E-01                  \r\n   4.800001E-01     G      3.750656E-01  -7.292519E-02   1.822469E-15   0.0            2.934402E-14   7.402691E-02                  \r\n   5.200000E-01     G      2.330523E-01  -4.530274E-02  -1.354332E-16   0.0            1.837017E-13   4.599484E-02                  \r\n   5.600000E-01     G      1.120787E-01  -2.177403E-02  -7.917930E-16   0.0           -3.359068E-13   2.211858E-02                  \r\n   6.000000E-01     G      3.116599E-02  -6.033637E-03   3.861048E-15   0.0            3.942441E-13   6.151287E-03                  \r\n   6.399999E-01     G      3.037074E-03  -5.650976E-04   9.172278E-16   0.0           -3.584357E-13   5.987148E-04                  \r\n   6.799999E-01     G      3.211341E-02  -6.221084E-03  -1.293219E-16   0.0           -7.904801E-14   6.338299E-03                  \r\n   7.199998E-01     G      1.138248E-01  -2.211165E-02   1.058736E-15   0.0            3.646126E-13   2.246440E-02                  \r\n   7.599998E-01     G      2.353255E-01  -4.574660E-02  -3.231679E-15   0.0           -9.917000E-14   4.644595E-02                  \r\n   7.999998E-01     G      3.775073E-01  -7.340179E-02   4.017156E-15   0.0           -7.509640E-14   7.451054E-02                  \r\n   8.399997E-01     G      5.180188E-01  -1.007324E-01  -1.412110E-15   0.0            3.770839E-13   1.022518E-01                  \r\n   8.799997E-01     G      6.347737E-01  -1.234469E-01  -3.842253E-15   0.0           -6.199937E-13   1.252999E-01                  \r\n   9.199997E-01     G      7.094137E-01  -1.379650E-01   2.224600E-15   0.0            4.595726E-13   1.400380E-01                  \r\n   9.599996E-01     G      7.302033E-01  -1.420099E-01  -4.185986E-15   0.0           -3.550683E-13   1.441487E-01                  \r\n   9.999996E-01     G      6.938776E-01  -1.349472E-01  -2.260591E-15   0.0           -6.007595E-13   1.369810E-01                  \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      94\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.396763E-02  -5.106438E-03  -9.144112E-17   0.0           -1.343876E-14   5.224888E-03                  \r\n   8.000000E-02     G      6.411625E-02  -2.359167E-02   2.227106E-15   0.0           -6.795180E-14   2.396816E-02                  \r\n   1.200000E-01     G      1.460865E-01  -5.379961E-02   7.435336E-16   0.0           -6.106882E-15   5.460573E-02                  \r\n   1.600000E-01     G      2.469852E-01  -9.098493E-02   3.678179E-17   0.0            6.462172E-14   9.232518E-02                  \r\n   2.000000E-01     G      3.509501E-01  -1.293098E-01  -2.242628E-15   0.0            2.705183E-13   1.311956E-01                  \r\n   2.400000E-01     G      4.416390E-01  -1.627356E-01  -5.428473E-16   0.0           -5.122246E-13   1.651052E-01                  \r\n   2.800000E-01     G      5.047966E-01  -1.860153E-01   2.061974E-15   0.0           -1.656725E-13   1.887223E-01                  \r\n   3.200000E-01     G      5.304950E-01  -1.954927E-01  -2.172629E-15   0.0            7.786253E-13   1.983387E-01                  \r\n   3.600000E-01     G      5.146942E-01  -1.896654E-01  -1.606108E-15   0.0           -8.175106E-13   1.924384E-01                  \r\n   4.000000E-01     G      4.598830E-01  -1.694605E-01   1.157426E-15   0.0           -1.997496E-13   1.719438E-01                  \r\n   4.400001E-01     G      3.746706E-01  -1.380535E-01  -3.973975E-15   0.0            9.153396E-13   1.400771E-01                  \r\n   4.800001E-01     G      2.724513E-01  -1.003724E-01   2.792483E-15   0.0           -7.151128E-13   1.018569E-01                  \r\n   5.200000E-01     G      1.692957E-01  -6.235402E-02   4.092740E-15   0.0           -2.980604E-13   6.328568E-02                  \r\n   5.600000E-01     G      8.142289E-02  -2.996953E-02  -3.383589E-15   0.0            9.925747E-13   3.042981E-02                  \r\n   6.000000E-01     G      2.264945E-02  -8.304477E-03   1.534658E-15   0.0           -7.354076E-13   8.455335E-03                  \r\n   6.399999E-01     G      2.216264E-03  -7.774392E-04  -2.530147E-16   0.0           -2.191926E-13   8.174272E-04                  \r\n   6.799999E-01     G      2.333713E-02  -8.562172E-03  -4.829288E-16   0.0            8.675449E-13   8.714234E-03                  \r\n   7.199998E-01     G      8.269166E-02  -3.043381E-02   4.006451E-15   0.0           -8.002893E-13   3.090664E-02                  \r\n   7.599998E-01     G      1.709440E-01  -6.296454E-02  -5.904415E-16   0.0           -2.088134E-13   6.390407E-02                  \r\n   7.999998E-01     G      2.742238E-01  -1.010283E-01  -1.363897E-15   0.0            1.215115E-12   1.025188E-01                  \r\n   8.399997E-01     G      3.762882E-01  -1.386448E-01  -1.782955E-15   0.0           -6.472819E-13   1.406795E-01                  \r\n   8.799997E-01     G      4.610913E-01  -1.699074E-01   5.563361E-16   0.0           -5.503335E-13   1.723916E-01                  \r\n   9.199997E-01     G      5.153031E-01  -1.898888E-01   4.614276E-15   0.0            5.804627E-13   1.926647E-01                  \r\n   9.599996E-01     G      5.304046E-01  -1.954552E-01  -8.405404E-15   0.0           -1.542232E-13   1.983073E-01                  \r\n   9.999996E-01     G      5.040229E-01  -1.857345E-01  -6.377830E-16   0.0           -4.461275E-13   1.884357E-01                  \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      95\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      7.345352E-03  -6.003026E-03  -2.737600E-15   0.0            2.525338E-14   6.140167E-03                  \r\n   8.000000E-02     G      3.371520E-02  -2.773383E-02  -3.663040E-15   0.0           -3.255608E-15   2.816888E-02                  \r\n   1.200000E-01     G      7.681640E-02  -6.324533E-02  -1.204367E-15   0.0           -6.430021E-13   6.417675E-02                  \r\n   1.600000E-01     G      1.298733E-01  -1.069587E-01   1.866025E-15   0.0            3.742189E-13   1.084953E-01                  \r\n   2.000000E-01     G      1.845406E-01  -1.520110E-01   3.104093E-15   0.0           -1.066725E-12   1.541582E-01                  \r\n   2.400000E-01     G      2.322240E-01  -1.913038E-01   1.201134E-15   0.0           -1.997096E-12   1.939922E-01                  \r\n   2.800000E-01     G      2.654275E-01  -2.186694E-01   2.863734E-16   0.0            2.554954E-12   2.217345E-01                  \r\n   3.200000E-01     G      2.789347E-01  -2.298099E-01  -1.258461E-16   0.0            3.598613E-13   2.330213E-01                  \r\n   3.600000E-01     G      2.706252E-01  -2.229595E-01   1.054521E-15   0.0           -2.955892E-12   2.260797E-01                  \r\n   4.000000E-01     G      2.418020E-01  -1.992083E-01   4.463715E-15   0.0            2.225643E-12   2.020075E-01                  \r\n   4.400001E-01     G      1.970000E-01  -1.622888E-01  -1.070288E-15   0.0            4.078110E-13   1.645800E-01                  \r\n   4.800001E-01     G      1.432581E-01  -1.179936E-01  -9.198557E-16   0.0           -2.923794E-12   1.196801E-01                  \r\n   5.200000E-01     G      8.902417E-02  -7.330152E-02  -6.888051E-16   0.0            2.861442E-12   7.436754E-02                  \r\n   5.600000E-01     G      4.282192E-02  -3.523191E-02  -3.989075E-15   0.0           -1.532106E-13   3.576977E-02                  \r\n   6.000000E-01     G      1.191777E-02  -9.763284E-03  -1.257290E-15   0.0           -2.848684E-12   9.955195E-03                  \r\n   6.399999E-01     G      1.172122E-03  -9.146013E-04  -1.921621E-15   0.0            3.178790E-12   9.803830E-04                  \r\n   6.799999E-01     G      1.227654E-02  -1.006590E-02  -1.814904E-15   0.0           -4.063066E-13   1.025780E-02                  \r\n   7.199998E-01     G      4.348475E-02  -3.577727E-02  -4.279069E-15   0.0           -2.427200E-12   3.632909E-02                  \r\n   7.599998E-01     G      8.989043E-02  -7.401887E-02   2.750057E-15   0.0            2.757374E-12   7.509068E-02                  \r\n   7.999998E-01     G      1.441918E-01  -1.187647E-01   3.507373E-15   0.0           -9.698200E-13   1.204574E-01                  \r\n   8.399997E-01     G      1.978538E-01  -1.629843E-01  -7.430688E-16   0.0           -1.482400E-12   1.652901E-01                  \r\n   8.799997E-01     G      2.424405E-01  -1.997342E-01  -6.699185E-16   0.0            3.859241E-12   2.025376E-01                  \r\n   9.199997E-01     G      2.709443E-01  -2.232225E-01   4.657771E-15   0.0           -3.763128E-12   2.263484E-01                  \r\n   9.599996E-01     G      2.788853E-01  -2.297658E-01  -1.118109E-15   0.0            1.991172E-12   2.329826E-01                  \r\n   9.999996E-01     G      2.650165E-01  -2.183389E-01   8.402475E-15   0.0            1.204468E-12   2.213953E-01                  \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =      96\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0           -6.312042E-03   0.0            0.0            0.0            6.461481E-03                  \r\n   8.000000E-02     G      0.0           -2.916137E-02   0.0            0.0            0.0            2.963767E-02                  \r\n   1.200000E-01     G      0.0           -6.650057E-02   0.0            0.0            0.0            6.751927E-02                  \r\n   1.600000E-01     G      0.0           -1.124637E-01   0.0            0.0            0.0            1.141548E-01                  \r\n   2.000000E-01     G      0.0           -1.598345E-01   0.0            0.0            0.0            1.622043E-01                  \r\n   2.400000E-01     G      0.0           -2.011492E-01   0.0            0.0            0.0            2.041130E-01                  \r\n   2.800000E-01     G      0.0           -2.299226E-01   0.0            0.0            0.0            2.332919E-01                  \r\n   3.200000E-01     G      0.0           -2.416361E-01   0.0            0.0            0.0            2.451597E-01                  \r\n   3.600000E-01     G      0.0           -2.344330E-01   0.0            0.0            0.0            2.378568E-01                  \r\n   4.000000E-01     G      0.0           -2.094597E-01   0.0            0.0            0.0            2.125204E-01                  \r\n   4.400001E-01     G      0.0           -1.706405E-01   0.0            0.0            0.0            1.731445E-01                  \r\n   4.800001E-01     G      0.0           -1.240662E-01   0.0            0.0            0.0            1.259154E-01                  \r\n   5.200000E-01     G      0.0           -7.707445E-02   0.0            0.0            0.0            7.825388E-02                  \r\n   5.600000E-01     G      0.0           -3.704573E-02   0.0            0.0            0.0            3.764699E-02                  \r\n   6.000000E-01     G      0.0           -1.026631E-02   0.0            0.0            0.0            1.048456E-02                  \r\n   6.399999E-01     G      0.0           -9.621077E-04   0.0            0.0            0.0            1.037711E-03                  \r\n   6.799999E-01     G      0.0           -1.058431E-02   0.0            0.0            0.0            1.079675E-02                  \r\n   7.199998E-01     G      0.0           -3.761889E-02   0.0            0.0            0.0            3.822631E-02                  \r\n   7.599998E-01     G      0.0           -7.782861E-02   0.0            0.0            0.0            7.901478E-02                  \r\n   7.999998E-01     G      0.0           -1.248770E-01   0.0            0.0            0.0            1.267377E-01                  \r\n   8.399997E-01     G      0.0           -1.713720E-01   0.0            0.0            0.0            1.738983E-01                  \r\n   8.799997E-01     G      0.0           -2.100128E-01   0.0            0.0            0.0            2.130836E-01                  \r\n   9.199997E-01     G      0.0           -2.347096E-01   0.0            0.0            0.0            2.381359E-01                  \r\n   9.599996E-01     G      0.0           -2.415896E-01   0.0            0.0            0.0            2.451151E-01                  \r\n   9.999996E-01     G      0.0           -2.295749E-01   0.0            0.0            0.0            2.329269E-01                  \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =     107\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      2.260100E-02   0.0           -3.623331E-04   0.0            2.305232E-03   0.0                           \r\n   8.000000E-02     G      1.037433E-01   0.0           -1.699105E-03   0.0            1.057449E-02   0.0                           \r\n   1.200000E-01     G      2.363787E-01   0.0           -3.881659E-03   0.0            2.408732E-02   0.0                           \r\n   1.600000E-01     G      3.996579E-01   0.0           -6.568177E-03   0.0            4.072319E-02   0.0                           \r\n   2.000000E-01     G      5.679125E-01   0.0           -9.338733E-03   0.0            5.786930E-02   0.0                           \r\n   2.400000E-01     G      7.146861E-01   0.0           -1.175350E-02   0.0            7.282434E-02   0.0                           \r\n   2.800000E-01     G      8.169056E-01   0.0           -1.343559E-02   0.0            8.323748E-02   0.0                           \r\n   3.200000E-01     G      8.585010E-01   0.0           -1.412142E-02   0.0            8.747663E-02   0.0                           \r\n   3.600000E-01     G      8.329310E-01   0.0           -1.369932E-02   0.0            8.487279E-02   0.0                           \r\n   4.000000E-01     G      7.442097E-01   0.0           -1.223945E-02   0.0            7.583214E-02   0.0                           \r\n   4.400001E-01     G      6.062918E-01   0.0           -9.970508E-03   0.0            6.177668E-02   0.0                           \r\n   4.800001E-01     G      4.408637E-01   0.0           -7.246459E-03   0.0            4.492483E-02   0.0                           \r\n   5.200000E-01     G      2.739353E-01   0.0           -4.499827E-03   0.0            2.791455E-02   0.0                           \r\n   5.600000E-01     G      1.317456E-01   0.0           -2.159992E-03   0.0            1.342565E-02   0.0                           \r\n   6.000000E-01     G      3.664966E-02   0.0           -5.934225E-04   0.0            3.736118E-03   0.0                           \r\n   6.399999E-01     G      3.592473E-03   0.0           -5.053749E-05   0.0            3.698142E-04   0.0                           \r\n   6.799999E-01     G      3.777024E-02   0.0           -6.129372E-04   0.0            3.850891E-03   0.0                           \r\n   7.199998E-01     G      1.338083E-01   0.0           -2.192524E-03   0.0            1.363517E-02   0.0                           \r\n   7.599998E-01     G      2.766128E-01   0.0           -4.544407E-03   0.0            2.818779E-02   0.0                           \r\n   7.999998E-01     G      4.437335E-01   0.0           -7.294387E-03   0.0            4.521700E-02   0.0                           \r\n   8.399997E-01     G      6.089023E-01   0.0           -1.001213E-02   0.0            6.204293E-02   0.0                           \r\n   8.799997E-01     G      7.461537E-01   0.0           -1.227250E-02   0.0            7.602983E-02   0.0                           \r\n   9.199997E-01     G      8.339058E-01   0.0           -1.371554E-02   0.0            8.497231E-02   0.0                           \r\n   9.599996E-01     G      8.583551E-01   0.0           -1.411777E-02   0.0            8.746175E-02   0.0                           \r\n   9.999996E-01     G      8.156588E-01   0.0           -1.341637E-02   0.0            8.311109E-02   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =     123\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.922378E-02   0.0           -6.891849E-04   0.0            4.380530E-03   0.0                           \r\n   8.000000E-02     G      8.824663E-02   0.0           -3.231867E-03   0.0            2.010901E-02   0.0                           \r\n   1.200000E-01     G      2.010739E-01   0.0           -7.383340E-03   0.0            4.581302E-02   0.0                           \r\n   1.600000E-01     G      3.399688E-01   0.0           -1.249341E-02   0.0            7.745740E-02   0.0                           \r\n   2.000000E-01     G      4.830924E-01   0.0           -1.776330E-02   0.0            1.100694E-01   0.0                           \r\n   2.400000E-01     G      6.079462E-01   0.0           -2.235647E-02   0.0            1.385152E-01   0.0                           \r\n   2.800000E-01     G      6.949001E-01   0.0           -2.555600E-02   0.0            1.583244E-01   0.0                           \r\n   3.200000E-01     G      7.302833E-01   0.0           -2.686052E-02   0.0            1.663864E-01   0.0                           \r\n   3.600000E-01     G      7.085304E-01   0.0           -2.605764E-02   0.0            1.614335E-01   0.0                           \r\n   4.000000E-01     G      6.330611E-01   0.0           -2.328079E-02   0.0            1.442359E-01   0.0                           \r\n   4.400001E-01     G      5.157415E-01   0.0           -1.896503E-02   0.0            1.175056E-01   0.0                           \r\n   4.800001E-01     G      3.750188E-01   0.0           -1.378356E-02   0.0            8.544514E-02   0.0                           \r\n   5.200000E-01     G      2.330206E-01   0.0           -8.559164E-03   0.0            5.309394E-02   0.0                           \r\n   5.600000E-01     G      1.120688E-01   0.0           -4.108538E-03   0.0            2.553283E-02   0.0                           \r\n   6.000000E-01     G      3.117407E-02   0.0           -1.128746E-03   0.0            7.103801E-03   0.0                           \r\n   6.399999E-01     G      3.053781E-03   0.0           -9.610655E-05   0.0            6.978477E-04   0.0                           \r\n   6.799999E-01     G      3.212697E-02   0.0           -1.165859E-03   0.0            7.321349E-03   0.0                           \r\n   7.199998E-01     G      1.138236E-01   0.0           -4.170423E-03   0.0            2.593260E-02   0.0                           \r\n   7.599998E-01     G      2.352985E-01   0.0           -8.643961E-03   0.0            5.361235E-02   0.0                           \r\n   7.999998E-01     G      3.774597E-01   0.0           -1.387472E-02   0.0            8.600190E-02   0.0                           \r\n   8.399997E-01     G      5.179623E-01   0.0           -1.904420E-02   0.0            1.180113E-01   0.0                           \r\n   8.799997E-01     G      6.347148E-01   0.0           -2.334367E-02   0.0            1.446127E-01   0.0                           \r\n   9.199997E-01     G      7.093598E-01   0.0           -2.608850E-02   0.0            1.616219E-01   0.0                           \r\n   9.599996E-01     G      7.301588E-01   0.0           -2.685358E-02   0.0            1.663593E-01   0.0                           \r\n   9.999996E-01     G      6.938396E-01   0.0           -2.551943E-02   0.0            1.580821E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =     139\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      1.396785E-02   0.0           -9.485719E-04   0.0            6.028959E-03   0.0                           \r\n   8.000000E-02     G      6.411415E-02   0.0           -4.448249E-03   0.0            2.767453E-02   0.0                           \r\n   1.200000E-01     G      1.460896E-01   0.0           -1.016228E-02   0.0            6.305572E-02   0.0                           \r\n   1.600000E-01     G      2.470027E-01   0.0           -1.719570E-02   0.0            1.066115E-01   0.0                           \r\n   2.000000E-01     G      3.509873E-01   0.0           -2.444906E-02   0.0            1.514951E-01   0.0                           \r\n   2.400000E-01     G      4.416984E-01   0.0           -3.077102E-02   0.0            1.906483E-01   0.0                           \r\n   2.800000E-01     G      5.048757E-01   0.0           -3.517481E-02   0.0            2.179144E-01   0.0                           \r\n   3.200000E-01     G      5.305825E-01   0.0           -3.697032E-02   0.0            2.290116E-01   0.0                           \r\n   3.600000E-01     G      5.147769E-01   0.0           -3.586523E-02   0.0            2.221906E-01   0.0                           \r\n   4.000000E-01     G      4.599464E-01   0.0           -3.204325E-02   0.0            1.985237E-01   0.0                           \r\n   4.400001E-01     G      3.747092E-01   0.0           -2.610313E-02   0.0            1.617323E-01   0.0                           \r\n   4.800001E-01     G      2.724672E-01   0.0           -1.897141E-02   0.0            1.176038E-01   0.0                           \r\n   5.200000E-01     G      1.692989E-01   0.0           -1.178065E-02   0.0            7.307459E-02   0.0                           \r\n   5.600000E-01     G      8.142390E-02   0.0           -5.654919E-03   0.0            3.514425E-02   0.0                           \r\n   6.000000E-01     G      2.265004E-02   0.0           -1.553571E-03   0.0            9.775708E-03   0.0                           \r\n   6.399999E-01     G      2.218145E-03   0.0           -1.322520E-04   0.0            9.593955E-04   0.0                           \r\n   6.799999E-01     G      2.334205E-02   0.0           -1.604648E-03   0.0            1.007460E-02   0.0                           \r\n   7.199998E-01     G      8.269887E-02   0.0           -5.740099E-03   0.0            3.569462E-02   0.0                           \r\n   7.599998E-01     G      1.709542E-01   0.0           -1.189737E-02   0.0            7.378878E-02   0.0                           \r\n   7.999998E-01     G      2.742404E-01   0.0           -1.909689E-02   0.0            1.183691E-01   0.0                           \r\n   8.399997E-01     G      3.763226E-01   0.0           -2.621210E-02   0.0            1.624293E-01   0.0                           \r\n   8.799997E-01     G      4.611480E-01   0.0           -3.212980E-02   0.0            1.990415E-01   0.0                           \r\n   9.199997E-01     G      5.153798E-01   0.0           -3.590770E-02   0.0            2.224513E-01   0.0                           \r\n   9.599996E-01     G      5.304914E-01   0.0           -3.696077E-02   0.0            2.289726E-01   0.0                           \r\n   9.999996E-01     G      5.041057E-01   0.0           -3.512448E-02   0.0            2.175818E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =     155\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      7.341438E-03   0.0           -1.115102E-03   0.0            7.087710E-03   0.0                           \r\n   8.000000E-02     G      3.370503E-02   0.0           -5.229196E-03   0.0            3.253101E-02   0.0                           \r\n   1.200000E-01     G      7.680206E-02   0.0           -1.194647E-02   0.0            7.412641E-02   0.0                           \r\n   1.600000E-01     G      1.298560E-01   0.0           -2.021476E-02   0.0            1.253303E-01   0.0                           \r\n   2.000000E-01     G      1.845229E-01   0.0           -2.874157E-02   0.0            1.780919E-01   0.0                           \r\n   2.400000E-01     G      2.322126E-01   0.0           -3.617347E-02   0.0            2.241184E-01   0.0                           \r\n   2.800000E-01     G      2.654277E-01   0.0           -4.135047E-02   0.0            2.561752E-01   0.0                           \r\n   3.200000E-01     G      2.789421E-01   0.0           -4.346121E-02   0.0            2.692189E-01   0.0                           \r\n   3.600000E-01     G      2.706322E-01   0.0           -4.216207E-02   0.0            2.611988E-01   0.0                           \r\n   4.000000E-01     G      2.418065E-01   0.0           -3.766908E-02   0.0            2.333782E-01   0.0                           \r\n   4.400001E-01     G      1.969951E-01   0.0           -3.068607E-02   0.0            1.901288E-01   0.0                           \r\n   4.800001E-01     G      1.432425E-01   0.0           -2.230221E-02   0.0            1.382504E-01   0.0                           \r\n   5.200000E-01     G      8.900399E-02   0.0           -1.384896E-02   0.0            8.590242E-02   0.0                           \r\n   5.600000E-01     G      4.280549E-02   0.0           -6.647750E-03   0.0            4.131532E-02   0.0                           \r\n   6.000000E-01     G      1.190678E-02   0.0           -1.826322E-03   0.0            1.149273E-02   0.0                           \r\n   6.399999E-01     G      1.163649E-03   0.0           -1.554361E-04   0.0            1.124854E-03   0.0                           \r\n   6.799999E-01     G      1.227042E-02   0.0           -1.886363E-03   0.0            1.184372E-02   0.0                           \r\n   7.199998E-01     G      4.347592E-02   0.0           -6.747890E-03   0.0            4.196222E-02   0.0                           \r\n   7.599998E-01     G      8.987405E-02   0.0           -1.398617E-02   0.0            8.674253E-02   0.0                           \r\n   7.999998E-01     G      1.441751E-01   0.0           -2.244971E-02   0.0            1.391499E-01   0.0                           \r\n   8.399997E-01     G      1.978428E-01   0.0           -3.081416E-02   0.0            1.909474E-01   0.0                           \r\n   8.799997E-01     G      2.424388E-01   0.0           -3.777083E-02   0.0            2.339878E-01   0.0                           \r\n   9.199997E-01     G      2.709489E-01   0.0           -4.221201E-02   0.0            2.615050E-01   0.0                           \r\n   9.599996E-01     G      2.788943E-01   0.0           -4.344997E-02   0.0            2.691725E-01   0.0                           \r\n   9.999996E-01     G      2.650228E-01   0.0           -4.129131E-02   0.0            2.557848E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n      POINT-ID =     171\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-02     G      0.0            0.0           -1.172473E-03   0.0            7.448046E-03   0.0                           \r\n   8.000000E-02     G      0.0            0.0           -5.498284E-03   0.0            3.420134E-02   0.0                           \r\n   1.200000E-01     G      0.0            0.0           -1.256124E-02   0.0            7.793691E-02   0.0                           \r\n   1.600000E-01     G      0.0            0.0           -2.125505E-02   0.0            1.317777E-01   0.0                           \r\n   2.000000E-01     G      0.0            0.0           -3.022066E-02   0.0            1.872522E-01   0.0                           \r\n   2.400000E-01     G      0.0            0.0           -3.803502E-02   0.0            2.356479E-01   0.0                           \r\n   2.800000E-01     G      0.0            0.0           -4.347844E-02   0.0            2.693559E-01   0.0                           \r\n   3.200000E-01     G      0.0            0.0           -4.569780E-02   0.0            2.830696E-01   0.0                           \r\n   3.600000E-01     G      0.0            0.0           -4.433180E-02   0.0            2.746364E-01   0.0                           \r\n   4.000000E-01     G      0.0            0.0           -3.960761E-02   0.0            2.453847E-01   0.0                           \r\n   4.400001E-01     G      0.0            0.0           -3.226523E-02   0.0            1.999104E-01   0.0                           \r\n   4.800001E-01     G      0.0            0.0           -2.344991E-02   0.0            1.453606E-01   0.0                           \r\n   5.200000E-01     G      0.0            0.0           -1.456164E-02   0.0            9.031925E-02   0.0                           \r\n   5.600000E-01     G      0.0            0.0           -6.989846E-03   0.0            4.343792E-02   0.0                           \r\n   6.000000E-01     G      0.0            0.0           -1.920301E-03   0.0            1.208147E-02   0.0                           \r\n   6.399999E-01     G      0.0            0.0           -1.634114E-04   0.0            1.177379E-03   0.0                           \r\n   6.799999E-01     G      0.0            0.0           -1.983430E-03   0.0            1.245040E-02   0.0                           \r\n   7.199998E-01     G      0.0            0.0           -7.095142E-03   0.0            4.411817E-02   0.0                           \r\n   7.599998E-01     G      0.0            0.0           -1.470591E-02   0.0            9.120239E-02   0.0                           \r\n   7.999998E-01     G      0.0            0.0           -2.360501E-02   0.0            1.463072E-01   0.0                           \r\n   8.399997E-01     G      0.0            0.0           -3.239991E-02   0.0            2.007700E-01   0.0                           \r\n   8.799997E-01     G      0.0            0.0           -3.971460E-02   0.0            2.460269E-01   0.0                           \r\n   9.199997E-01     G      0.0            0.0           -4.438431E-02   0.0            2.749573E-01   0.0                           \r\n   9.599996E-01     G      0.0            0.0           -4.568599E-02   0.0            2.830216E-01   0.0                           \r\n   9.999996E-01     G      0.0            0.0           -4.341624E-02   0.0            2.689449E-01   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       91( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = PLOTTED  *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18)                                                     \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.026821E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.026821E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      110(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = PLOTTED  *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18)                                                     \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.045310E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.045310E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       59( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.302833E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.302833E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       62( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF UPPER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.291801E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.291801E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      123(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.302833E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.302833E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      126(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF LOWER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  R DISP      -INCHES-                                                                                          \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.291801E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.291801E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     5301( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (Z=5,A=0)  *TOP 5301(R=3)  *BOTTOM 5801(R=8)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.055301E-02 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.051542E-02 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.055301E-02 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.051542E-02 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     5801(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (Z=5,A=0)  *TOP 5301(R=3)  *BOTTOM 5801(R=8)                                                    \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -8.240583E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  8.230442E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -8.240583E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  8.230442E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     3501( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.296850E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.295254E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.296850E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.295254E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     5501( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF UPPER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     5501(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     7501(--, 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF LOWER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE =  PRESSURE     *LB/INCH*                                                                                        \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.296850E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.295254E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.296850E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.295254E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       91( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    5\r\n\r\n\r\n     CURVE  TITLE = PLOTTED  DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES.                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE = R DISP       -INCH-                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.026821E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.026821E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      110( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    5\r\n\r\n\r\n     CURVE  TITLE = PLOTTED  DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES.                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE = R DISP       -INCH-                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.045310E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.045310E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                                                                                   \r\n0     THIRD HARMONIC ANALYSIS.                                                                                                      \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE  4000085( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = PLOTTED RINGFL (R=5,Z=5)  * 85                                                                                 \r\n      X-AXIS TITLE =                                     TIME (SECONDS)                                                             \r\n      Y-AXIS TITLE = HARMONIC PRESSURE                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.999996E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.602994E-01 AT X =   6.399999E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.601022E-01 AT X =   3.200000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.             \r\n DATE:  5/17/95\r\n END TIME: 16:10: 8\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d09041a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D09041A,NASTRAN                                                           \r\n     APP   HEAT                                                                      \r\n     SOL   9,1                                                                       \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                           \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                          \r\n                  3      TEMP(MATERIAL) = 60                                                             \r\n                  4      SPC    = 21                                                                     \r\n                  5      IC     = 60                                                                     \r\n                  6      DLOAD  = 70                                                                     \r\n                  7      TSTEP  = 80                                                                     \r\n                  8      SET 21 = 21                                                                     \r\n                  9      OUTPUT                                                                          \r\n                 10      THERMAL= ALL                                                                    \r\n                 11      OLOAD  = ALL                                                                    \r\n                 12      SPCF   = 21                                                                     \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    25, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CELAS2  28      3.0+8   20      1       21      1                               \r\n                    2-        CHBDY   31      2       LINE    10      12                                      \r\n                    3-        CHBDY   33      2       LINE    12      14                                      \r\n                    4-        CHBDY   35      2       LINE    14      16                                      \r\n                    5-        CHBDY   37      2       LINE    16      18                                      \r\n                    6-        CHBDY   39      2       LINE    18      20                                      \r\n                    7-        CROD    11      1       10      12      13      1       12      14              \r\n                    8-        CROD    15      1       14      16      17      1       16      18              \r\n                    9-        CROD    19      1       18      20                                              \r\n                   10-        DAREA   70      20      0       1.5+8                                           \r\n                   11-        GRID    10              .0      .0      .0                                      \r\n                   12-        GRID    12              .2      .0      .0                                      \r\n                   13-        GRID    14              .4      .0      .0                                      \r\n                   14-        GRID    16              .6      .0      .0                                      \r\n                   15-        GRID    18              .8      .0      .0                                      \r\n                   16-        GRID    20              1.0     .0      .0                                      \r\n                   17-        GRID    21              1.0                                                     \r\n                   18-        MAT4    1       1.0     2.4674                                                  \r\n                   19-        PHBDY   2               1.0                                                     \r\n                   20-        PROD    1       1       1.0                                                     \r\n                   21-        QBDY1   70      100.0   31      33      35      37      39                      \r\n                   22-        SPC     21      21      1                                                       \r\n                   23-        TEMPD   60      .0                                                              \r\n                   24-        TLOAD2  70      70      0               .0      100.0                           \r\n                   25-        TSTEP   80      100     .05     2                                               \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID       28\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HBDY     ELEMENTS (ELEMENT TYPE  52) STARTING WITH ID       31\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       11\r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      1.000000E+01                                                                                             \r\n   1.000000E-01     S      1.000000E+01                                                                                             \r\n   2.000000E-01     S      1.000000E+01                                                                                             \r\n   3.000000E-01     S      1.000000E+01                                                                                             \r\n   4.000000E-01     S      1.000000E+01                                                                                             \r\n   5.000001E-01     S      1.000000E+01                                                                                             \r\n   6.000001E-01     S      1.000000E+01                                                                                             \r\n   7.000001E-01     S      1.000000E+01                                                                                             \r\n   8.000001E-01     S      1.000000E+01                                                                                             \r\n   9.000002E-01     S      1.000000E+01                                                                                             \r\n   1.000000E+00     S      1.000000E+01                                                                                             \r\n   1.100000E+00     S      1.000000E+01                                                                                             \r\n   1.200000E+00     S      1.000000E+01                                                                                             \r\n   1.300000E+00     S      1.000000E+01                                                                                             \r\n   1.400000E+00     S      1.000000E+01                                                                                             \r\n   1.500000E+00     S      1.000000E+01                                                                                             \r\n   1.600000E+00     S      1.000000E+01                                                                                             \r\n   1.699999E+00     S      1.000000E+01                                                                                             \r\n   1.799999E+00     S      1.000000E+01                                                                                             \r\n   1.899999E+00     S      1.000000E+01                                                                                             \r\n   1.999999E+00     S      1.000000E+01                                                                                             \r\n   2.099999E+00     S      1.000000E+01                                                                                             \r\n   2.199999E+00     S      1.000000E+01                                                                                             \r\n   2.299999E+00     S      1.000000E+01                                                                                             \r\n   2.399999E+00     S      1.000000E+01                                                                                             \r\n   2.499999E+00     S      1.000000E+01                                                                                             \r\n   2.599999E+00     S      1.000000E+01                                                                                             \r\n   2.699999E+00     S      1.000000E+01                                                                                             \r\n   2.799999E+00     S      1.000000E+01                                                                                             \r\n   2.899998E+00     S      1.000000E+01                                                                                             \r\n   2.999998E+00     S      1.000000E+01                                                                                             \r\n   3.099998E+00     S      1.000000E+01                                                                                             \r\n   3.199998E+00     S      1.000000E+01                                                                                             \r\n   3.299998E+00     S      1.000000E+01                                                                                             \r\n   3.399998E+00     S      1.000000E+01                                                                                             \r\n   3.499998E+00     S      1.000000E+01                                                                                             \r\n   3.599998E+00     S      1.000000E+01                                                                                             \r\n   3.699998E+00     S      1.000000E+01                                                                                             \r\n   3.799998E+00     S      1.000000E+01                                                                                             \r\n   3.899997E+00     S      1.000000E+01                                                                                             \r\n   3.999997E+00     S      1.000000E+01                                                                                             \r\n   4.099998E+00     S      1.000000E+01                                                                                             \r\n   4.199998E+00     S      1.000000E+01                                                                                             \r\n   4.299998E+00     S      1.000000E+01                                                                                             \r\n   4.399999E+00     S      1.000000E+01                                                                                             \r\n   4.499999E+00     S      1.000000E+01                                                                                             \r\n   4.599999E+00     S      1.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      1.000000E+01                                                                                             \r\n   4.800000E+00     S      1.000000E+01                                                                                             \r\n   4.900001E+00     S      1.000000E+01                                                                                             \r\n   5.000001E+00     S      1.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      2.000000E+01                                                                                             \r\n   1.000000E-01     S      2.000000E+01                                                                                             \r\n   2.000000E-01     S      2.000000E+01                                                                                             \r\n   3.000000E-01     S      2.000000E+01                                                                                             \r\n   4.000000E-01     S      2.000000E+01                                                                                             \r\n   5.000001E-01     S      2.000000E+01                                                                                             \r\n   6.000001E-01     S      2.000000E+01                                                                                             \r\n   7.000001E-01     S      2.000000E+01                                                                                             \r\n   8.000001E-01     S      2.000000E+01                                                                                             \r\n   9.000002E-01     S      2.000000E+01                                                                                             \r\n   1.000000E+00     S      2.000000E+01                                                                                             \r\n   1.100000E+00     S      2.000000E+01                                                                                             \r\n   1.200000E+00     S      2.000000E+01                                                                                             \r\n   1.300000E+00     S      2.000000E+01                                                                                             \r\n   1.400000E+00     S      2.000000E+01                                                                                             \r\n   1.500000E+00     S      2.000000E+01                                                                                             \r\n   1.600000E+00     S      2.000000E+01                                                                                             \r\n   1.699999E+00     S      2.000000E+01                                                                                             \r\n   1.799999E+00     S      2.000000E+01                                                                                             \r\n   1.899999E+00     S      2.000000E+01                                                                                             \r\n   1.999999E+00     S      2.000000E+01                                                                                             \r\n   2.099999E+00     S      2.000000E+01                                                                                             \r\n   2.199999E+00     S      2.000000E+01                                                                                             \r\n   2.299999E+00     S      2.000000E+01                                                                                             \r\n   2.399999E+00     S      2.000000E+01                                                                                             \r\n   2.499999E+00     S      2.000000E+01                                                                                             \r\n   2.599999E+00     S      2.000000E+01                                                                                             \r\n   2.699999E+00     S      2.000000E+01                                                                                             \r\n   2.799999E+00     S      2.000000E+01                                                                                             \r\n   2.899998E+00     S      2.000000E+01                                                                                             \r\n   2.999998E+00     S      2.000000E+01                                                                                             \r\n   3.099998E+00     S      2.000000E+01                                                                                             \r\n   3.199998E+00     S      2.000000E+01                                                                                             \r\n   3.299998E+00     S      2.000000E+01                                                                                             \r\n   3.399998E+00     S      2.000000E+01                                                                                             \r\n   3.499998E+00     S      2.000000E+01                                                                                             \r\n   3.599998E+00     S      2.000000E+01                                                                                             \r\n   3.699998E+00     S      2.000000E+01                                                                                             \r\n   3.799998E+00     S      2.000000E+01                                                                                             \r\n   3.899997E+00     S      2.000000E+01                                                                                             \r\n   3.999997E+00     S      2.000000E+01                                                                                             \r\n   4.099998E+00     S      2.000000E+01                                                                                             \r\n   4.199998E+00     S      2.000000E+01                                                                                             \r\n   4.299998E+00     S      2.000000E+01                                                                                             \r\n   4.399999E+00     S      2.000000E+01                                                                                             \r\n   4.499999E+00     S      2.000000E+01                                                                                             \r\n   4.599999E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      2.000000E+01                                                                                             \r\n   4.800000E+00     S      2.000000E+01                                                                                             \r\n   4.900001E+00     S      2.000000E+01                                                                                             \r\n   5.000001E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      2.000000E+01                                                                                             \r\n   1.000000E-01     S      2.000000E+01                                                                                             \r\n   2.000000E-01     S      2.000000E+01                                                                                             \r\n   3.000000E-01     S      2.000000E+01                                                                                             \r\n   4.000000E-01     S      2.000000E+01                                                                                             \r\n   5.000001E-01     S      2.000000E+01                                                                                             \r\n   6.000001E-01     S      2.000000E+01                                                                                             \r\n   7.000001E-01     S      2.000000E+01                                                                                             \r\n   8.000001E-01     S      2.000000E+01                                                                                             \r\n   9.000002E-01     S      2.000000E+01                                                                                             \r\n   1.000000E+00     S      2.000000E+01                                                                                             \r\n   1.100000E+00     S      2.000000E+01                                                                                             \r\n   1.200000E+00     S      2.000000E+01                                                                                             \r\n   1.300000E+00     S      2.000000E+01                                                                                             \r\n   1.400000E+00     S      2.000000E+01                                                                                             \r\n   1.500000E+00     S      2.000000E+01                                                                                             \r\n   1.600000E+00     S      2.000000E+01                                                                                             \r\n   1.699999E+00     S      2.000000E+01                                                                                             \r\n   1.799999E+00     S      2.000000E+01                                                                                             \r\n   1.899999E+00     S      2.000000E+01                                                                                             \r\n   1.999999E+00     S      2.000000E+01                                                                                             \r\n   2.099999E+00     S      2.000000E+01                                                                                             \r\n   2.199999E+00     S      2.000000E+01                                                                                             \r\n   2.299999E+00     S      2.000000E+01                                                                                             \r\n   2.399999E+00     S      2.000000E+01                                                                                             \r\n   2.499999E+00     S      2.000000E+01                                                                                             \r\n   2.599999E+00     S      2.000000E+01                                                                                             \r\n   2.699999E+00     S      2.000000E+01                                                                                             \r\n   2.799999E+00     S      2.000000E+01                                                                                             \r\n   2.899998E+00     S      2.000000E+01                                                                                             \r\n   2.999998E+00     S      2.000000E+01                                                                                             \r\n   3.099998E+00     S      2.000000E+01                                                                                             \r\n   3.199998E+00     S      2.000000E+01                                                                                             \r\n   3.299998E+00     S      2.000000E+01                                                                                             \r\n   3.399998E+00     S      2.000000E+01                                                                                             \r\n   3.499998E+00     S      2.000000E+01                                                                                             \r\n   3.599998E+00     S      2.000000E+01                                                                                             \r\n   3.699998E+00     S      2.000000E+01                                                                                             \r\n   3.799998E+00     S      2.000000E+01                                                                                             \r\n   3.899997E+00     S      2.000000E+01                                                                                             \r\n   3.999997E+00     S      2.000000E+01                                                                                             \r\n   4.099998E+00     S      2.000000E+01                                                                                             \r\n   4.199998E+00     S      2.000000E+01                                                                                             \r\n   4.299998E+00     S      2.000000E+01                                                                                             \r\n   4.399999E+00     S      2.000000E+01                                                                                             \r\n   4.499999E+00     S      2.000000E+01                                                                                             \r\n   4.599999E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      2.000000E+01                                                                                             \r\n   4.800000E+00     S      2.000000E+01                                                                                             \r\n   4.900001E+00     S      2.000000E+01                                                                                             \r\n   5.000001E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      2.000000E+01                                                                                             \r\n   1.000000E-01     S      2.000000E+01                                                                                             \r\n   2.000000E-01     S      2.000000E+01                                                                                             \r\n   3.000000E-01     S      2.000000E+01                                                                                             \r\n   4.000000E-01     S      2.000000E+01                                                                                             \r\n   5.000001E-01     S      2.000000E+01                                                                                             \r\n   6.000001E-01     S      2.000000E+01                                                                                             \r\n   7.000001E-01     S      2.000000E+01                                                                                             \r\n   8.000001E-01     S      2.000000E+01                                                                                             \r\n   9.000002E-01     S      2.000000E+01                                                                                             \r\n   1.000000E+00     S      2.000000E+01                                                                                             \r\n   1.100000E+00     S      2.000000E+01                                                                                             \r\n   1.200000E+00     S      2.000000E+01                                                                                             \r\n   1.300000E+00     S      2.000000E+01                                                                                             \r\n   1.400000E+00     S      2.000000E+01                                                                                             \r\n   1.500000E+00     S      2.000000E+01                                                                                             \r\n   1.600000E+00     S      2.000000E+01                                                                                             \r\n   1.699999E+00     S      2.000000E+01                                                                                             \r\n   1.799999E+00     S      2.000000E+01                                                                                             \r\n   1.899999E+00     S      2.000000E+01                                                                                             \r\n   1.999999E+00     S      2.000000E+01                                                                                             \r\n   2.099999E+00     S      2.000000E+01                                                                                             \r\n   2.199999E+00     S      2.000000E+01                                                                                             \r\n   2.299999E+00     S      2.000000E+01                                                                                             \r\n   2.399999E+00     S      2.000000E+01                                                                                             \r\n   2.499999E+00     S      2.000000E+01                                                                                             \r\n   2.599999E+00     S      2.000000E+01                                                                                             \r\n   2.699999E+00     S      2.000000E+01                                                                                             \r\n   2.799999E+00     S      2.000000E+01                                                                                             \r\n   2.899998E+00     S      2.000000E+01                                                                                             \r\n   2.999998E+00     S      2.000000E+01                                                                                             \r\n   3.099998E+00     S      2.000000E+01                                                                                             \r\n   3.199998E+00     S      2.000000E+01                                                                                             \r\n   3.299998E+00     S      2.000000E+01                                                                                             \r\n   3.399998E+00     S      2.000000E+01                                                                                             \r\n   3.499998E+00     S      2.000000E+01                                                                                             \r\n   3.599998E+00     S      2.000000E+01                                                                                             \r\n   3.699998E+00     S      2.000000E+01                                                                                             \r\n   3.799998E+00     S      2.000000E+01                                                                                             \r\n   3.899997E+00     S      2.000000E+01                                                                                             \r\n   3.999997E+00     S      2.000000E+01                                                                                             \r\n   4.099998E+00     S      2.000000E+01                                                                                             \r\n   4.199998E+00     S      2.000000E+01                                                                                             \r\n   4.299998E+00     S      2.000000E+01                                                                                             \r\n   4.399999E+00     S      2.000000E+01                                                                                             \r\n   4.499999E+00     S      2.000000E+01                                                                                             \r\n   4.599999E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      2.000000E+01                                                                                             \r\n   4.800000E+00     S      2.000000E+01                                                                                             \r\n   4.900001E+00     S      2.000000E+01                                                                                             \r\n   5.000001E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      18\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      2.000000E+01                                                                                             \r\n   1.000000E-01     S      2.000000E+01                                                                                             \r\n   2.000000E-01     S      2.000000E+01                                                                                             \r\n   3.000000E-01     S      2.000000E+01                                                                                             \r\n   4.000000E-01     S      2.000000E+01                                                                                             \r\n   5.000001E-01     S      2.000000E+01                                                                                             \r\n   6.000001E-01     S      2.000000E+01                                                                                             \r\n   7.000001E-01     S      2.000000E+01                                                                                             \r\n   8.000001E-01     S      2.000000E+01                                                                                             \r\n   9.000002E-01     S      2.000000E+01                                                                                             \r\n   1.000000E+00     S      2.000000E+01                                                                                             \r\n   1.100000E+00     S      2.000000E+01                                                                                             \r\n   1.200000E+00     S      2.000000E+01                                                                                             \r\n   1.300000E+00     S      2.000000E+01                                                                                             \r\n   1.400000E+00     S      2.000000E+01                                                                                             \r\n   1.500000E+00     S      2.000000E+01                                                                                             \r\n   1.600000E+00     S      2.000000E+01                                                                                             \r\n   1.699999E+00     S      2.000000E+01                                                                                             \r\n   1.799999E+00     S      2.000000E+01                                                                                             \r\n   1.899999E+00     S      2.000000E+01                                                                                             \r\n   1.999999E+00     S      2.000000E+01                                                                                             \r\n   2.099999E+00     S      2.000000E+01                                                                                             \r\n   2.199999E+00     S      2.000000E+01                                                                                             \r\n   2.299999E+00     S      2.000000E+01                                                                                             \r\n   2.399999E+00     S      2.000000E+01                                                                                             \r\n   2.499999E+00     S      2.000000E+01                                                                                             \r\n   2.599999E+00     S      2.000000E+01                                                                                             \r\n   2.699999E+00     S      2.000000E+01                                                                                             \r\n   2.799999E+00     S      2.000000E+01                                                                                             \r\n   2.899998E+00     S      2.000000E+01                                                                                             \r\n   2.999998E+00     S      2.000000E+01                                                                                             \r\n   3.099998E+00     S      2.000000E+01                                                                                             \r\n   3.199998E+00     S      2.000000E+01                                                                                             \r\n   3.299998E+00     S      2.000000E+01                                                                                             \r\n   3.399998E+00     S      2.000000E+01                                                                                             \r\n   3.499998E+00     S      2.000000E+01                                                                                             \r\n   3.599998E+00     S      2.000000E+01                                                                                             \r\n   3.699998E+00     S      2.000000E+01                                                                                             \r\n   3.799998E+00     S      2.000000E+01                                                                                             \r\n   3.899997E+00     S      2.000000E+01                                                                                             \r\n   3.999997E+00     S      2.000000E+01                                                                                             \r\n   4.099998E+00     S      2.000000E+01                                                                                             \r\n   4.199998E+00     S      2.000000E+01                                                                                             \r\n   4.299998E+00     S      2.000000E+01                                                                                             \r\n   4.399999E+00     S      2.000000E+01                                                                                             \r\n   4.499999E+00     S      2.000000E+01                                                                                             \r\n   4.599999E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      18\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      2.000000E+01                                                                                             \r\n   4.800000E+00     S      2.000000E+01                                                                                             \r\n   4.900001E+00     S      2.000000E+01                                                                                             \r\n   5.000001E+00     S      2.000000E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      20\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      1.500000E+08                                                                                             \r\n   1.000000E-01     S      1.500000E+08                                                                                             \r\n   2.000000E-01     S      1.500000E+08                                                                                             \r\n   3.000000E-01     S      1.500000E+08                                                                                             \r\n   4.000000E-01     S      1.500000E+08                                                                                             \r\n   5.000001E-01     S      1.500000E+08                                                                                             \r\n   6.000001E-01     S      1.500000E+08                                                                                             \r\n   7.000001E-01     S      1.500000E+08                                                                                             \r\n   8.000001E-01     S      1.500000E+08                                                                                             \r\n   9.000002E-01     S      1.500000E+08                                                                                             \r\n   1.000000E+00     S      1.500000E+08                                                                                             \r\n   1.100000E+00     S      1.500000E+08                                                                                             \r\n   1.200000E+00     S      1.500000E+08                                                                                             \r\n   1.300000E+00     S      1.500000E+08                                                                                             \r\n   1.400000E+00     S      1.500000E+08                                                                                             \r\n   1.500000E+00     S      1.500000E+08                                                                                             \r\n   1.600000E+00     S      1.500000E+08                                                                                             \r\n   1.699999E+00     S      1.500000E+08                                                                                             \r\n   1.799999E+00     S      1.500000E+08                                                                                             \r\n   1.899999E+00     S      1.500000E+08                                                                                             \r\n   1.999999E+00     S      1.500000E+08                                                                                             \r\n   2.099999E+00     S      1.500000E+08                                                                                             \r\n   2.199999E+00     S      1.500000E+08                                                                                             \r\n   2.299999E+00     S      1.500000E+08                                                                                             \r\n   2.399999E+00     S      1.500000E+08                                                                                             \r\n   2.499999E+00     S      1.500000E+08                                                                                             \r\n   2.599999E+00     S      1.500000E+08                                                                                             \r\n   2.699999E+00     S      1.500000E+08                                                                                             \r\n   2.799999E+00     S      1.500000E+08                                                                                             \r\n   2.899998E+00     S      1.500000E+08                                                                                             \r\n   2.999998E+00     S      1.500000E+08                                                                                             \r\n   3.099998E+00     S      1.500000E+08                                                                                             \r\n   3.199998E+00     S      1.500000E+08                                                                                             \r\n   3.299998E+00     S      1.500000E+08                                                                                             \r\n   3.399998E+00     S      1.500000E+08                                                                                             \r\n   3.499998E+00     S      1.500000E+08                                                                                             \r\n   3.599998E+00     S      1.500000E+08                                                                                             \r\n   3.699998E+00     S      1.500000E+08                                                                                             \r\n   3.799998E+00     S      1.500000E+08                                                                                             \r\n   3.899997E+00     S      1.500000E+08                                                                                             \r\n   3.999997E+00     S      1.500000E+08                                                                                             \r\n   4.099998E+00     S      1.500000E+08                                                                                             \r\n   4.199998E+00     S      1.500000E+08                                                                                             \r\n   4.299998E+00     S      1.500000E+08                                                                                             \r\n   4.399999E+00     S      1.500000E+08                                                                                             \r\n   4.499999E+00     S      1.500000E+08                                                                                             \r\n   4.599999E+00     S      1.500000E+08                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      20\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      1.500000E+08                                                                                             \r\n   4.800000E+00     S      1.500000E+08                                                                                             \r\n   4.900001E+00     S      1.500000E+08                                                                                             \r\n   5.000001E+00     S      1.500000E+08                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      0.0                                                                                                      \r\n   2.000000E-01     S      0.0                                                                                                      \r\n   3.000000E-01     S      0.0                                                                                                      \r\n   4.000000E-01     S      0.0                                                                                                      \r\n   5.000001E-01     S      0.0                                                                                                      \r\n   6.000001E-01     S      0.0                                                                                                      \r\n   7.000001E-01     S      0.0                                                                                                      \r\n   8.000001E-01     S      0.0                                                                                                      \r\n   9.000002E-01     S      0.0                                                                                                      \r\n   1.000000E+00     S      0.0                                                                                                      \r\n   1.100000E+00     S      0.0                                                                                                      \r\n   1.200000E+00     S      0.0                                                                                                      \r\n   1.300000E+00     S      0.0                                                                                                      \r\n   1.400000E+00     S      0.0                                                                                                      \r\n   1.500000E+00     S      0.0                                                                                                      \r\n   1.600000E+00     S      0.0                                                                                                      \r\n   1.699999E+00     S      0.0                                                                                                      \r\n   1.799999E+00     S      0.0                                                                                                      \r\n   1.899999E+00     S      0.0                                                                                                      \r\n   1.999999E+00     S      0.0                                                                                                      \r\n   2.099999E+00     S      0.0                                                                                                      \r\n   2.199999E+00     S      0.0                                                                                                      \r\n   2.299999E+00     S      0.0                                                                                                      \r\n   2.399999E+00     S      0.0                                                                                                      \r\n   2.499999E+00     S      0.0                                                                                                      \r\n   2.599999E+00     S      0.0                                                                                                      \r\n   2.699999E+00     S      0.0                                                                                                      \r\n   2.799999E+00     S      0.0                                                                                                      \r\n   2.899998E+00     S      0.0                                                                                                      \r\n   2.999998E+00     S      0.0                                                                                                      \r\n   3.099998E+00     S      0.0                                                                                                      \r\n   3.199998E+00     S      0.0                                                                                                      \r\n   3.299998E+00     S      0.0                                                                                                      \r\n   3.399998E+00     S      0.0                                                                                                      \r\n   3.499998E+00     S      0.0                                                                                                      \r\n   3.599998E+00     S      0.0                                                                                                      \r\n   3.699998E+00     S      0.0                                                                                                      \r\n   3.799998E+00     S      0.0                                                                                                      \r\n   3.899997E+00     S      0.0                                                                                                      \r\n   3.999997E+00     S      0.0                                                                                                      \r\n   4.099998E+00     S      0.0                                                                                                      \r\n   4.199998E+00     S      0.0                                                                                                      \r\n   4.299998E+00     S      0.0                                                                                                      \r\n   4.399999E+00     S      0.0                                                                                                      \r\n   4.499999E+00     S      0.0                                                                                                      \r\n   4.599999E+00     S      0.0                                                                                                      \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                                     L O A D   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      0.0                                                                                                      \r\n   4.800000E+00     S      0.0                                                                                                      \r\n   4.900001E+00     S      0.0                                                                                                      \r\n   5.000001E+00     S      0.0                                                                                                      \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S     -1.500000E+08                                                                                             \r\n   2.000000E-01     S     -1.500001E+08                                                                                             \r\n   3.000000E-01     S     -1.500000E+08                                                                                             \r\n   4.000000E-01     S     -1.500000E+08                                                                                             \r\n   5.000001E-01     S     -1.500000E+08                                                                                             \r\n   6.000001E-01     S     -1.500000E+08                                                                                             \r\n   7.000001E-01     S     -1.500000E+08                                                                                             \r\n   8.000001E-01     S     -1.500000E+08                                                                                             \r\n   9.000002E-01     S     -1.500000E+08                                                                                             \r\n   1.000000E+00     S     -1.500000E+08                                                                                             \r\n   1.100000E+00     S     -1.500000E+08                                                                                             \r\n   1.200000E+00     S     -1.500000E+08                                                                                             \r\n   1.300000E+00     S     -1.500000E+08                                                                                             \r\n   1.400000E+00     S     -1.500000E+08                                                                                             \r\n   1.500000E+00     S     -1.500000E+08                                                                                             \r\n   1.600000E+00     S     -1.500000E+08                                                                                             \r\n   1.699999E+00     S     -1.500000E+08                                                                                             \r\n   1.799999E+00     S     -1.500000E+08                                                                                             \r\n   1.899999E+00     S     -1.500000E+08                                                                                             \r\n   1.999999E+00     S     -1.500000E+08                                                                                             \r\n   2.099999E+00     S     -1.500000E+08                                                                                             \r\n   2.199999E+00     S     -1.500000E+08                                                                                             \r\n   2.299999E+00     S     -1.500000E+08                                                                                             \r\n   2.399999E+00     S     -1.500000E+08                                                                                             \r\n   2.499999E+00     S     -1.500000E+08                                                                                             \r\n   2.599999E+00     S     -1.500000E+08                                                                                             \r\n   2.699999E+00     S     -1.500000E+08                                                                                             \r\n   2.799999E+00     S     -1.500000E+08                                                                                             \r\n   2.899998E+00     S     -1.500000E+08                                                                                             \r\n   2.999998E+00     S     -1.500000E+08                                                                                             \r\n   3.099998E+00     S     -1.500000E+08                                                                                             \r\n   3.199998E+00     S     -1.500000E+08                                                                                             \r\n   3.299998E+00     S     -1.500001E+08                                                                                             \r\n   3.399998E+00     S     -1.500001E+08                                                                                             \r\n   3.499998E+00     S     -1.500001E+08                                                                                             \r\n   3.599998E+00     S     -1.500001E+08                                                                                             \r\n   3.699998E+00     S     -1.500001E+08                                                                                             \r\n   3.799998E+00     S     -1.500001E+08                                                                                             \r\n   3.899997E+00     S     -1.500001E+08                                                                                             \r\n   3.999997E+00     S     -1.500001E+08                                                                                             \r\n   4.099998E+00     S     -1.500001E+08                                                                                             \r\n   4.199998E+00     S     -1.500001E+08                                                                                             \r\n   4.299998E+00     S     -1.500001E+08                                                                                             \r\n   4.399999E+00     S     -1.500001E+08                                                                                             \r\n   4.499999E+00     S     -1.500001E+08                                                                                             \r\n   4.599999E+00     S     -1.500001E+08                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S     -1.500001E+08                                                                                             \r\n   4.800000E+00     S     -1.500001E+08                                                                                             \r\n   4.900001E+00     S     -1.500001E+08                                                                                             \r\n   5.000001E+00     S     -1.500001E+08                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      3.138144E+00                                                                                             \r\n   2.000000E-01     S      7.147243E+00                                                                                             \r\n   3.000000E-01     S      1.101120E+01                                                                                             \r\n   4.000000E-01     S      1.463225E+01                                                                                             \r\n   5.000001E-01     S      1.796781E+01                                                                                             \r\n   6.000001E-01     S      2.101374E+01                                                                                             \r\n   7.000001E-01     S      2.378349E+01                                                                                             \r\n   8.000001E-01     S      2.629698E+01                                                                                             \r\n   9.000002E-01     S      2.857572E+01                                                                                             \r\n   1.000000E+00     S      3.064066E+01                                                                                             \r\n   1.100000E+00     S      3.251144E+01                                                                                             \r\n   1.200000E+00     S      3.420613E+01                                                                                             \r\n   1.300000E+00     S      3.574123E+01                                                                                             \r\n   1.400000E+00     S      3.713172E+01                                                                                             \r\n   1.500000E+00     S      3.839123E+01                                                                                             \r\n   1.600000E+00     S      3.953207E+01                                                                                             \r\n   1.699999E+00     S      4.056544E+01                                                                                             \r\n   1.799999E+00     S      4.150144E+01                                                                                             \r\n   1.899999E+00     S      4.234925E+01                                                                                             \r\n   1.999999E+00     S      4.311718E+01                                                                                             \r\n   2.099999E+00     S      4.381277E+01                                                                                             \r\n   2.199999E+00     S      4.444282E+01                                                                                             \r\n   2.299999E+00     S      4.501350E+01                                                                                             \r\n   2.399999E+00     S      4.553043E+01                                                                                             \r\n   2.499999E+00     S      4.599865E+01                                                                                             \r\n   2.599999E+00     S      4.642275E+01                                                                                             \r\n   2.699999E+00     S      4.680689E+01                                                                                             \r\n   2.799999E+00     S      4.715485E+01                                                                                             \r\n   2.899998E+00     S      4.747001E+01                                                                                             \r\n   2.999998E+00     S      4.775549E+01                                                                                             \r\n   3.099998E+00     S      4.801407E+01                                                                                             \r\n   3.199998E+00     S      4.824828E+01                                                                                             \r\n   3.299998E+00     S      4.846043E+01                                                                                             \r\n   3.399998E+00     S      4.865259E+01                                                                                             \r\n   3.499998E+00     S      4.882665E+01                                                                                             \r\n   3.599998E+00     S      4.898430E+01                                                                                             \r\n   3.699998E+00     S      4.912711E+01                                                                                             \r\n   3.799998E+00     S      4.925646E+01                                                                                             \r\n   3.899997E+00     S      4.937362E+01                                                                                             \r\n   3.999997E+00     S      4.947975E+01                                                                                             \r\n   4.099998E+00     S      4.957587E+01                                                                                             \r\n   4.199998E+00     S      4.966294E+01                                                                                             \r\n   4.299998E+00     S      4.974181E+01                                                                                             \r\n   4.399999E+00     S      4.981324E+01                                                                                             \r\n   4.499999E+00     S      4.987794E+01                                                                                             \r\n   4.599999E+00     S      4.993655E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      10\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      4.998963E+01                                                                                             \r\n   4.800000E+00     S      5.003772E+01                                                                                             \r\n   4.900001E+00     S      5.008127E+01                                                                                             \r\n   5.000001E+00     S      5.012072E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      3.133965E+00                                                                                             \r\n   2.000000E-01     S      7.102941E+00                                                                                             \r\n   3.000000E-01     S      1.086757E+01                                                                                             \r\n   4.000000E-01     S      1.435395E+01                                                                                             \r\n   5.000001E-01     S      1.754525E+01                                                                                             \r\n   6.000001E-01     S      2.045044E+01                                                                                             \r\n   7.000001E-01     S      2.308827E+01                                                                                             \r\n   8.000001E-01     S      2.548033E+01                                                                                             \r\n   9.000002E-01     S      2.764824E+01                                                                                             \r\n   1.000000E+00     S      2.961241E+01                                                                                             \r\n   1.100000E+00     S      3.139176E+01                                                                                             \r\n   1.200000E+00     S      3.300356E+01                                                                                             \r\n   1.300000E+00     S      3.446355E+01                                                                                             \r\n   1.400000E+00     S      3.578601E+01                                                                                             \r\n   1.500000E+00     S      3.698387E+01                                                                                             \r\n   1.600000E+00     S      3.806888E+01                                                                                             \r\n   1.699999E+00     S      3.905167E+01                                                                                             \r\n   1.799999E+00     S      3.994186E+01                                                                                             \r\n   1.899999E+00     S      4.074817E+01                                                                                             \r\n   1.999999E+00     S      4.147852E+01                                                                                             \r\n   2.099999E+00     S      4.214006E+01                                                                                             \r\n   2.199999E+00     S      4.273928E+01                                                                                             \r\n   2.299999E+00     S      4.328204E+01                                                                                             \r\n   2.399999E+00     S      4.377365E+01                                                                                             \r\n   2.499999E+00     S      4.421895E+01                                                                                             \r\n   2.599999E+00     S      4.462230E+01                                                                                             \r\n   2.699999E+00     S      4.498765E+01                                                                                             \r\n   2.799999E+00     S      4.531857E+01                                                                                             \r\n   2.899998E+00     S      4.561831E+01                                                                                             \r\n   2.999998E+00     S      4.588982E+01                                                                                             \r\n   3.099998E+00     S      4.613573E+01                                                                                             \r\n   3.199998E+00     S      4.635849E+01                                                                                             \r\n   3.299998E+00     S      4.656025E+01                                                                                             \r\n   3.399998E+00     S      4.674301E+01                                                                                             \r\n   3.499998E+00     S      4.690855E+01                                                                                             \r\n   3.599998E+00     S      4.705849E+01                                                                                             \r\n   3.699998E+00     S      4.719431E+01                                                                                             \r\n   3.799998E+00     S      4.731732E+01                                                                                             \r\n   3.899997E+00     S      4.742875E+01                                                                                             \r\n   3.999997E+00     S      4.752968E+01                                                                                             \r\n   4.099998E+00     S      4.762110E+01                                                                                             \r\n   4.199998E+00     S      4.770391E+01                                                                                             \r\n   4.299998E+00     S      4.777891E+01                                                                                             \r\n   4.399999E+00     S      4.784685E+01                                                                                             \r\n   4.499999E+00     S      4.790838E+01                                                                                             \r\n   4.599999E+00     S      4.796413E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      12\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      4.801461E+01                                                                                             \r\n   4.800000E+00     S      4.806034E+01                                                                                             \r\n   4.900001E+00     S      4.810177E+01                                                                                             \r\n   5.000001E+00     S      4.813929E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      3.109555E+00                                                                                             \r\n   2.000000E-01     S      6.901321E+00                                                                                             \r\n   3.000000E-01     S      1.031607E+01                                                                                             \r\n   4.000000E-01     S      1.337816E+01                                                                                             \r\n   5.000001E-01     S      1.613534E+01                                                                                             \r\n   6.000001E-01     S      1.862523E+01                                                                                             \r\n   7.000001E-01     S      2.087721E+01                                                                                             \r\n   8.000001E-01     S      2.291557E+01                                                                                             \r\n   9.000002E-01     S      2.476124E+01                                                                                             \r\n   1.000000E+00     S      2.643274E+01                                                                                             \r\n   1.100000E+00     S      2.794664E+01                                                                                             \r\n   1.200000E+00     S      2.931784E+01                                                                                             \r\n   1.300000E+00     S      3.055984E+01                                                                                             \r\n   1.400000E+00     S      3.168481E+01                                                                                             \r\n   1.500000E+00     S      3.270378E+01                                                                                             \r\n   1.600000E+00     S      3.362676E+01                                                                                             \r\n   1.699999E+00     S      3.446276E+01                                                                                             \r\n   1.799999E+00     S      3.522001E+01                                                                                             \r\n   1.899999E+00     S      3.590590E+01                                                                                             \r\n   1.999999E+00     S      3.652718E+01                                                                                             \r\n   2.099999E+00     S      3.708992E+01                                                                                             \r\n   2.199999E+00     S      3.759964E+01                                                                                             \r\n   2.299999E+00     S      3.806133E+01                                                                                             \r\n   2.399999E+00     S      3.847953E+01                                                                                             \r\n   2.499999E+00     S      3.885833E+01                                                                                             \r\n   2.599999E+00     S      3.920144E+01                                                                                             \r\n   2.699999E+00     S      3.951221E+01                                                                                             \r\n   2.799999E+00     S      3.979371E+01                                                                                             \r\n   2.899998E+00     S      4.004869E+01                                                                                             \r\n   2.999998E+00     S      4.027964E+01                                                                                             \r\n   3.099998E+00     S      4.048884E+01                                                                                             \r\n   3.199998E+00     S      4.067833E+01                                                                                             \r\n   3.299998E+00     S      4.084995E+01                                                                                             \r\n   3.399998E+00     S      4.100542E+01                                                                                             \r\n   3.499998E+00     S      4.114623E+01                                                                                             \r\n   3.599998E+00     S      4.127378E+01                                                                                             \r\n   3.699998E+00     S      4.138932E+01                                                                                             \r\n   3.799998E+00     S      4.149396E+01                                                                                             \r\n   3.899997E+00     S      4.158874E+01                                                                                             \r\n   3.999997E+00     S      4.167460E+01                                                                                             \r\n   4.099998E+00     S      4.175237E+01                                                                                             \r\n   4.199998E+00     S      4.182280E+01                                                                                             \r\n   4.299998E+00     S      4.188660E+01                                                                                             \r\n   4.399999E+00     S      4.194440E+01                                                                                             \r\n   4.499999E+00     S      4.199674E+01                                                                                             \r\n   4.599999E+00     S      4.204416E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      14\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      4.208710E+01                                                                                             \r\n   4.800000E+00     S      4.212600E+01                                                                                             \r\n   4.900001E+00     S      4.216124E+01                                                                                             \r\n   5.000001E+00     S      4.219316E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      2.997884E+00                                                                                             \r\n   2.000000E-01     S      6.269045E+00                                                                                             \r\n   3.000000E-01     S      8.959939E+00                                                                                             \r\n   4.000000E-01     S      1.127363E+01                                                                                             \r\n   5.000001E-01     S      1.331530E+01                                                                                             \r\n   6.000001E-01     S      1.514104E+01                                                                                             \r\n   7.000001E-01     S      1.678449E+01                                                                                             \r\n   8.000001E-01     S      1.826862E+01                                                                                             \r\n   9.000002E-01     S      1.961096E+01                                                                                             \r\n   1.000000E+00     S      2.082598E+01                                                                                             \r\n   1.100000E+00     S      2.192616E+01                                                                                             \r\n   1.200000E+00     S      2.292251E+01                                                                                             \r\n   1.300000E+00     S      2.382493E+01                                                                                             \r\n   1.400000E+00     S      2.464229E+01                                                                                             \r\n   1.500000E+00     S      2.538262E+01                                                                                             \r\n   1.600000E+00     S      2.605320E+01                                                                                             \r\n   1.699999E+00     S      2.666060E+01                                                                                             \r\n   1.799999E+00     S      2.721077E+01                                                                                             \r\n   1.899999E+00     S      2.770910E+01                                                                                             \r\n   1.999999E+00     S      2.816049E+01                                                                                             \r\n   2.099999E+00     S      2.856934E+01                                                                                             \r\n   2.199999E+00     S      2.893967E+01                                                                                             \r\n   2.299999E+00     S      2.927512E+01                                                                                             \r\n   2.399999E+00     S      2.957895E+01                                                                                             \r\n   2.499999E+00     S      2.985416E+01                                                                                             \r\n   2.599999E+00     S      3.010345E+01                                                                                             \r\n   2.699999E+00     S      3.032924E+01                                                                                             \r\n   2.799999E+00     S      3.053376E+01                                                                                             \r\n   2.899998E+00     S      3.071901E+01                                                                                             \r\n   2.999998E+00     S      3.088681E+01                                                                                             \r\n   3.099998E+00     S      3.103880E+01                                                                                             \r\n   3.199998E+00     S      3.117647E+01                                                                                             \r\n   3.299998E+00     S      3.130116E+01                                                                                             \r\n   3.399998E+00     S      3.141411E+01                                                                                             \r\n   3.499998E+00     S      3.151642E+01                                                                                             \r\n   3.599998E+00     S      3.160909E+01                                                                                             \r\n   3.699998E+00     S      3.169303E+01                                                                                             \r\n   3.799998E+00     S      3.176906E+01                                                                                             \r\n   3.899997E+00     S      3.183793E+01                                                                                             \r\n   3.999997E+00     S      3.190030E+01                                                                                             \r\n   4.099998E+00     S      3.195680E+01                                                                                             \r\n   4.199998E+00     S      3.200798E+01                                                                                             \r\n   4.299998E+00     S      3.205434E+01                                                                                             \r\n   4.399999E+00     S      3.209632E+01                                                                                             \r\n   4.499999E+00     S      3.213436E+01                                                                                             \r\n   4.599999E+00     S      3.216880E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      16\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      3.220001E+01                                                                                             \r\n   4.800000E+00     S      3.222827E+01                                                                                             \r\n   4.900001E+00     S      3.225388E+01                                                                                             \r\n   5.000001E+00     S      3.227707E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      18\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      2.510051E+00                                                                                             \r\n   2.000000E-01     S      4.543471E+00                                                                                             \r\n   3.000000E-01     S      6.056288E+00                                                                                             \r\n   4.000000E-01     S      7.311525E+00                                                                                             \r\n   5.000001E-01     S      8.401373E+00                                                                                             \r\n   6.000001E-01     S      9.368353E+00                                                                                             \r\n   7.000001E-01     S      1.023547E+01                                                                                             \r\n   8.000001E-01     S      1.101707E+01                                                                                             \r\n   9.000002E-01     S      1.172338E+01                                                                                             \r\n   1.000000E+00     S      1.236241E+01                                                                                             \r\n   1.100000E+00     S      1.294091E+01                                                                                             \r\n   1.200000E+00     S      1.346478E+01                                                                                             \r\n   1.300000E+00     S      1.393923E+01                                                                                             \r\n   1.400000E+00     S      1.436895E+01                                                                                             \r\n   1.500000E+00     S      1.475817E+01                                                                                             \r\n   1.600000E+00     S      1.511072E+01                                                                                             \r\n   1.699999E+00     S      1.543005E+01                                                                                             \r\n   1.799999E+00     S      1.571929E+01                                                                                             \r\n   1.899999E+00     S      1.598128E+01                                                                                             \r\n   1.999999E+00     S      1.621858E+01                                                                                             \r\n   2.099999E+00     S      1.643353E+01                                                                                             \r\n   2.199999E+00     S      1.662823E+01                                                                                             \r\n   2.299999E+00     S      1.680458E+01                                                                                             \r\n   2.399999E+00     S      1.696431E+01                                                                                             \r\n   2.499999E+00     S      1.710900E+01                                                                                             \r\n   2.599999E+00     S      1.724006E+01                                                                                             \r\n   2.699999E+00     S      1.735876E+01                                                                                             \r\n   2.799999E+00     S      1.746629E+01                                                                                             \r\n   2.899998E+00     S      1.756368E+01                                                                                             \r\n   2.999998E+00     S      1.765189E+01                                                                                             \r\n   3.099998E+00     S      1.773180E+01                                                                                             \r\n   3.199998E+00     S      1.780418E+01                                                                                             \r\n   3.299998E+00     S      1.786973E+01                                                                                             \r\n   3.399998E+00     S      1.792911E+01                                                                                             \r\n   3.499998E+00     S      1.798290E+01                                                                                             \r\n   3.599998E+00     S      1.803162E+01                                                                                             \r\n   3.699998E+00     S      1.807575E+01                                                                                             \r\n   3.799998E+00     S      1.811572E+01                                                                                             \r\n   3.899997E+00     S      1.815193E+01                                                                                             \r\n   3.999997E+00     S      1.818472E+01                                                                                             \r\n   4.099998E+00     S      1.821442E+01                                                                                             \r\n   4.199998E+00     S      1.824133E+01                                                                                             \r\n   4.299998E+00     S      1.826570E+01                                                                                             \r\n   4.399999E+00     S      1.828778E+01                                                                                             \r\n   4.499999E+00     S      1.830777E+01                                                                                             \r\n   4.599999E+00     S      1.832588E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      18\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      1.834229E+01                                                                                             \r\n   4.800000E+00     S      1.835714E+01                                                                                             \r\n   4.900001E+00     S      1.837060E+01                                                                                             \r\n   5.000001E+00     S      1.838279E+01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      20\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      5.000001E-01                                                                                             \r\n   2.000000E-01     S      5.000002E-01                                                                                             \r\n   3.000000E-01     S      5.000002E-01                                                                                             \r\n   4.000000E-01     S      5.000001E-01                                                                                             \r\n   5.000001E-01     S      5.000001E-01                                                                                             \r\n   6.000001E-01     S      5.000001E-01                                                                                             \r\n   7.000001E-01     S      5.000001E-01                                                                                             \r\n   8.000001E-01     S      5.000001E-01                                                                                             \r\n   9.000002E-01     S      5.000001E-01                                                                                             \r\n   1.000000E+00     S      5.000001E-01                                                                                             \r\n   1.100000E+00     S      5.000001E-01                                                                                             \r\n   1.200000E+00     S      5.000001E-01                                                                                             \r\n   1.300000E+00     S      5.000001E-01                                                                                             \r\n   1.400000E+00     S      5.000001E-01                                                                                             \r\n   1.500000E+00     S      5.000001E-01                                                                                             \r\n   1.600000E+00     S      5.000001E-01                                                                                             \r\n   1.699999E+00     S      5.000001E-01                                                                                             \r\n   1.799999E+00     S      5.000001E-01                                                                                             \r\n   1.899999E+00     S      5.000001E-01                                                                                             \r\n   1.999999E+00     S      5.000002E-01                                                                                             \r\n   2.099999E+00     S      5.000002E-01                                                                                             \r\n   2.199999E+00     S      5.000002E-01                                                                                             \r\n   2.299999E+00     S      5.000002E-01                                                                                             \r\n   2.399999E+00     S      5.000002E-01                                                                                             \r\n   2.499999E+00     S      5.000002E-01                                                                                             \r\n   2.599999E+00     S      5.000002E-01                                                                                             \r\n   2.699999E+00     S      5.000002E-01                                                                                             \r\n   2.799999E+00     S      5.000002E-01                                                                                             \r\n   2.899998E+00     S      5.000002E-01                                                                                             \r\n   2.999998E+00     S      5.000002E-01                                                                                             \r\n   3.099998E+00     S      5.000002E-01                                                                                             \r\n   3.199998E+00     S      5.000002E-01                                                                                             \r\n   3.299998E+00     S      5.000002E-01                                                                                             \r\n   3.399998E+00     S      5.000003E-01                                                                                             \r\n   3.499998E+00     S      5.000003E-01                                                                                             \r\n   3.599998E+00     S      5.000003E-01                                                                                             \r\n   3.699998E+00     S      5.000003E-01                                                                                             \r\n   3.799998E+00     S      5.000003E-01                                                                                             \r\n   3.899997E+00     S      5.000003E-01                                                                                             \r\n   3.999997E+00     S      5.000003E-01                                                                                             \r\n   4.099998E+00     S      5.000003E-01                                                                                             \r\n   4.199998E+00     S      5.000003E-01                                                                                             \r\n   4.299998E+00     S      5.000003E-01                                                                                             \r\n   4.399999E+00     S      5.000003E-01                                                                                             \r\n   4.499999E+00     S      5.000003E-01                                                                                             \r\n   4.599999E+00     S      5.000003E-01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      20\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      5.000003E-01                                                                                             \r\n   4.800000E+00     S      5.000003E-01                                                                                             \r\n   4.900001E+00     S      5.000003E-01                                                                                             \r\n   5.000001E+00     S      5.000003E-01                                                                                             \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   0.0              S      0.0                                                                                                      \r\n   1.000000E-01     S      0.0                                                                                                      \r\n   2.000000E-01     S      0.0                                                                                                      \r\n   3.000000E-01     S      0.0                                                                                                      \r\n   4.000000E-01     S      0.0                                                                                                      \r\n   5.000001E-01     S      0.0                                                                                                      \r\n   6.000001E-01     S      0.0                                                                                                      \r\n   7.000001E-01     S      0.0                                                                                                      \r\n   8.000001E-01     S      0.0                                                                                                      \r\n   9.000002E-01     S      0.0                                                                                                      \r\n   1.000000E+00     S      0.0                                                                                                      \r\n   1.100000E+00     S      0.0                                                                                                      \r\n   1.200000E+00     S      0.0                                                                                                      \r\n   1.300000E+00     S      0.0                                                                                                      \r\n   1.400000E+00     S      0.0                                                                                                      \r\n   1.500000E+00     S      0.0                                                                                                      \r\n   1.600000E+00     S      0.0                                                                                                      \r\n   1.699999E+00     S      0.0                                                                                                      \r\n   1.799999E+00     S      0.0                                                                                                      \r\n   1.899999E+00     S      0.0                                                                                                      \r\n   1.999999E+00     S      0.0                                                                                                      \r\n   2.099999E+00     S      0.0                                                                                                      \r\n   2.199999E+00     S      0.0                                                                                                      \r\n   2.299999E+00     S      0.0                                                                                                      \r\n   2.399999E+00     S      0.0                                                                                                      \r\n   2.499999E+00     S      0.0                                                                                                      \r\n   2.599999E+00     S      0.0                                                                                                      \r\n   2.699999E+00     S      0.0                                                                                                      \r\n   2.799999E+00     S      0.0                                                                                                      \r\n   2.899998E+00     S      0.0                                                                                                      \r\n   2.999998E+00     S      0.0                                                                                                      \r\n   3.099998E+00     S      0.0                                                                                                      \r\n   3.199998E+00     S      0.0                                                                                                      \r\n   3.299998E+00     S      0.0                                                                                                      \r\n   3.399998E+00     S      0.0                                                                                                      \r\n   3.499998E+00     S      0.0                                                                                                      \r\n   3.599998E+00     S      0.0                                                                                                      \r\n   3.699998E+00     S      0.0                                                                                                      \r\n   3.799998E+00     S      0.0                                                                                                      \r\n   3.899997E+00     S      0.0                                                                                                      \r\n   3.999997E+00     S      0.0                                                                                                      \r\n   4.099998E+00     S      0.0                                                                                                      \r\n   4.199998E+00     S      0.0                                                                                                      \r\n   4.299998E+00     S      0.0                                                                                                      \r\n   4.399999E+00     S      0.0                                                                                                      \r\n   4.499999E+00     S      0.0                                                                                                      \r\n   4.599999E+00     S      0.0                                                                                                      \r\n1     LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                            /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      21\r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      TIME        TYPE        VALUE\r\n   4.700000E+00     S      0.0                                                                                                      \r\n   4.800000E+00     S      0.0                                                                                                      \r\n   4.900001E+00     S      0.0                                                                                                      \r\n   5.000001E+00     S      0.0                                                                                                      \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                         \r\n DATE:  5/17/95\r\n END TIME: 16:10:45\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d10011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D10011A,NASTRAN                                                           \r\n     TIME  25                                                                        \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   10,1                                                                      \r\n     DIAG  14                                                                        \r\n     ALTER 88 $                                                                      \r\n     MATGPR   GPLD,USETD,SILD,PHIA // C,N,H / C,N,A  $                               \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM               \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                          \r\n                  3         LABEL = FLEXIBLE STRUCTURE CASE                                              \r\n                  4           MPC = 101                                                                  \r\n                  5        METHOD = 2                                                                    \r\n                  6           TFL =  20                                                                  \r\n                  7       CMETHOD =  11                                                                  \r\n                  8      OUTPUT                                                                          \r\n                  9        SET 1  =  1,100,101,1010 THRU 1090                                            \r\n                 10                  SVECTOR(SORT1,PHASE)  = ALL                                         \r\n                 11              DISPLACEMENT(SORT1,PHASE) =  1                                          \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   135, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR                                   .0      10.0    .0      1               \r\n                    2-        CBAR    1       10      1       2                                               \r\n                    3-        CBAR    2       10      2       3                                               \r\n                    4-        CBAR    3       10      3       4                                               \r\n                    5-        CBAR    4       10      4       5                                               \r\n                    6-        CBAR    5       10      5       6                                               \r\n                    7-        CBAR    6       10      6       7                                               \r\n                    8-        CBAR    7       10      7       8                                               \r\n                    9-        CBAR    8       10      8       9                                               \r\n                   10-        CBAR    9       10      9       10                                              \r\n                   11-        CBAR    10      20      10      11                                              \r\n                   12-        CBAR    11      20      11      12                                              \r\n                   13-        CBAR    12      20      12      13                                              \r\n                   14-        CBAR    13      20      13      14                                              \r\n                   15-        CBAR    14      20      14      15                                              \r\n                   16-        CBAR    15      20      15      16                                              \r\n                   17-        CELAS4  1001    2.0261+71001            1002    32.417+71002                    \r\n                   18-        CELAS4  1003    164.11+71003            1004    518.68+71004                    \r\n                   19-        CMASS4  2001    2.5+3   1001    2001    2002    2.5+3   1002    2002            \r\n                   20-        CMASS4  2003    2.5+3   1003    2003    2004    2.5+3   1004    2004            \r\n                   21-        CONM2   101     1               3333.333                                        \r\n                   22-        CONM2   102     2               6666.667                                        \r\n                   23-        CONM2   103     3               6666.667                                        \r\n                   24-        CONM2   104     4               6666.667                                        \r\n                   25-        CONM2   105     5               6666.667                                        \r\n                   26-        CONM2   106     6               6666.667                                        \r\n                   27-        CONM2   107     7               6666.667                                        \r\n                   28-        CONM2   108     8               6666.667                                        \r\n                   29-        CONM2   109     9               6666.667                                        \r\n                   30-        CONM2   110     10              5000.000                                        \r\n                   31-        CONM2   111     11              3333.333                                        \r\n                   32-        CONM2   112     12              3333.333                                        \r\n                   33-        CONM2   113     13              3333.333                                        \r\n                   34-        CONM2   114     14              3333.333                                        \r\n                   35-        CONM2   115     15              3333.333                                        \r\n                   36-        CONM2   116     16              2500.0                                          \r\n                   37-        CONM2   117     17              1666.667                                        \r\n                   38-        CONM2   118     18              1666.667                                        \r\n                   39-        CONM2   119     19              833.333                                         \r\n                   40-        EIGC    11      DET     MAX                                             +EC     \r\n                   41-        +EC     -2.0    -1.0    -2.0    10.0    10.0    6       6                       \r\n                   42-        EIGC    12      INV     MAX                                             +EC1    \r\n                   43-        +EC1    .0      -1.0    .0      10.0    10.0    6       6                       \r\n                   44-        EIGC    13      INV     MAX                                             EIGC13  \r\n                   45-        +IGC13  -1.0    .0      -1.0    10.0    10.0    6       6                       \r\n                   46-        EIGP    11      .0      .0      2                                               \r\n                   47-        EIGR    1       INV     .0      1.0     1       2       2               +E1     \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +E1     MASS                                                                    \r\n                   49-        EIGR    2       INV     .0      12.0    5       7                       +E2     \r\n                   50-        +E2     MASS                                                                    \r\n                   51-        EPOINT  1010    1011    1030    1040    1050    1060    1070    1080            \r\n                   52-        EPOINT  1020    1021                                                            \r\n                   53-        GRDSET                                                  1345                    \r\n                   54-        GRID    1               .0      .0      .0                                      \r\n                   55-        GRID    2               16.66667.0      .0                                      \r\n                   56-        GRID    3               33.33333.0      .0                                      \r\n                   57-        GRID    4               50.0    .0      .0                                      \r\n                   58-        GRID    5               66.66666.0      .0                                      \r\n                   59-        GRID    6               83.33333.0      .0                                      \r\n                   60-        GRID    7               100.0   .0      .0                                      \r\n                   61-        GRID    8               116.6667.0      .0                                      \r\n                   62-        GRID    9               133.3333.0      .0                                      \r\n                   63-        GRID    10              150.000 .0      .0                                      \r\n                   64-        GRID    11              166.6667.0      .0                                      \r\n                   65-        GRID    12              183.3333.0      .0                                      \r\n                   66-        GRID    13              200.00  .0      .0                                      \r\n                   67-        GRID    14              216.6667.0      .0                                      \r\n                   68-        GRID    15              233.3333.0      .0                                      \r\n                   69-        GRID    16              250.000 .0      .0                                      \r\n                   70-        GRID    17              266.6667.0      .0              123456                  \r\n                   71-        GRID    18              283.3333.0      .0              123456                  \r\n                   72-        GRID    19              300.000 .0      .0                                      \r\n                   73-        GRID    100             166.176 .0      .0                                      \r\n                   74-        GRID    101             116.176 .0      .0                                      \r\n                   75-        MAT1    1       10.4+6  4.0+6                                                   \r\n                   76-        MPC     3       16      6       -1.0    1001            .0628318        +161    \r\n                   77-        +161            1002            .12566371003            .1884955        +162    \r\n                   78-        +162            1004            .251327419      2       .02             +163    \r\n                   79-        +163            16      2       -.02                                            \r\n                   80-        MPC     3       19      6       -1.0    1001            -.062832        +191    \r\n                   81-        +191            1002            .12566371003            -.188496        +192    \r\n                   82-        +192            1004            .251327419      2       .02             +193    \r\n                   83-        +193            16      2       -0.02                                           \r\n                   84-        MPC     3       2001            1.57079616      2       1.0             +201    \r\n                   85-        +201            19      2       1.0                                             \r\n                   86-        MPC     3       2002            1.57079616      2       .5              +202    \r\n                   87-        +202            19      2       -0.5                                            \r\n                   88-        MPC     3       2003            1.57079616      2       .3333333        +203    \r\n                   89-        +203            19      2       .3333333                                        \r\n                   90-        MPC     3       2004            1.57079616      2       .25             +204    \r\n                   91-        +204            19      2       -0.25                                           \r\n                   92-        MPC     100     8       2       1.0     101     2       -1.0            +MPC2   \r\n                   93-        +MPC2           101     6       -.491                                           \r\n                   94-        MPC     100     8       6       1.0     101     6       -1.0                    \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        MPC     100     11      2       1.0     100     2       -1.0            +MPC1   \r\n                   96-        +MPC1           100     6       -.491                                           \r\n                   97-        MPC     100     11      6       1.0     100     6       -1.0                    \r\n                   98-        MPCADD  101     100     3                                                       \r\n                   99-        PARAM   GRDPNT  101                                                             \r\n                  100-        PARAM   LMODES  4                                                               \r\n                  101-        PBAR    10      1       4.0+2   6.0+4   6.0+4                                   \r\n                  102-        PBAR    20      1       2.0+2   2.0+4   2.0+4                                   \r\n                  103-        SEQGP   100     10.5    101     7.5                                             \r\n                  104-        SPOINT  1001    1002    1003    1004    2001    2002    2003    2004            \r\n                  105-        SUPORT  101     2       101     6                                               \r\n                  106-        TF      20      1       2       .0      .0      50.0                    +T6     \r\n                  107-        +T6     1       6       .0      .0      -150.0                          +T61    \r\n                  108-        +T61    1070    0       -4.25+6         -150.0                                  \r\n                  109-        TF      20      1       6                                               +T7     \r\n                  110-        +T7     1060            1.0                                             +T71    \r\n                  111-        TF      20      1010            1.0                                     +T8     \r\n                  112-        +T8     100     2       -1.0                                            +T81    \r\n                  113-        +T81    1080            -1.0    .0      .0                                      \r\n                  114-        TF      20      1011            1.0                                     +T9     \r\n                  115-        +T9     100     6       -1.0+2                                                  \r\n                  116-        TF      20      1020            1.0                                             \r\n                  117-        TF      20      1021            .01                                             \r\n                  118-        TF      20      1030            1.0                                     +T1     \r\n                  119-        +T1     1020            -16.0                                           +T11    \r\n                  120-        +T11    1021            -15.0                                           +T12    \r\n                  121-        +T12    1010            -16.0   -28.0                                   +T13    \r\n                  122-        +T13    1011            -15.0   -7.0                                            \r\n                  123-        TF      20      1040            1.0                                     +T2     \r\n                  124-        +T2     1030            -1.0                                            +T21    \r\n                  125-        +T21    1070            100.0   14.14                                           \r\n                  126-        TF      20      1050            1.0                                     +T3     \r\n                  127-        +T3     1040            -1.0                                                    \r\n                  128-        TF      20      1060            1.0                                     +T4     \r\n                  129-        +T4     1050            -500.0                                                  \r\n                  130-        TF      20      1070            .0      .0      500.0                   +T5     \r\n                  131-        +T5     1060            -1.0                                            +T51    \r\n                  132-        +T51    1       6       .0      .0      500.0                           +T52    \r\n                  133-        +T52    1       2       .0      .0      -150.0                                  \r\n                  134-        TF      20      1080                            8.5+4                   +TX     \r\n                  135-        +TX     1       6       -4.25+6                                                 \r\n                              ENDDATA\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $      \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $                    \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $                         \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR5,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      32  LABEL    JMPKGGX $                                                      \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11,NOGENL $                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11 $                                                        \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST                                                   \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      47  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      48  PARAM    //*AND*/NOSR/REACT/SINGLE $                                    \r\n\r\n      49  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR,  \r\n                   DM,MR/REACT $                                                  \r\n\r\n      50  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      51  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USET,RG/GM $                                                   \r\n\r\n      53  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      54  LABEL    LBL2 $                                                         \r\n\r\n      55  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      56  COND     LBL3,SINGLE $                                                  \r\n\r\n      57  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      58  LABEL    LBL3 $                                                         \r\n\r\n      59  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      60  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      61  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      65  COND     LBL6,REACT $                                                   \r\n\r\n      66  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      67  RBMG2    KLL/LLL $                                                      \r\n\r\n      68  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      69  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      70  LABEL    LBL6 $                                                         \r\n\r\n      71  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/                           \r\n                   NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $                       \r\n\r\n      72  COND     ERROR2,NOEED $                                                 \r\n\r\n      73  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n      74  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      75  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      76  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      77  COND     ERROR4,NEIGV $                                                 \r\n\r\n      78  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      79  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      80  PARAM    //*MPY*/REPEATE/1/-1 $                                         \r\n\r\n      82  PURGE    PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1,     \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n      83  CASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $                \r\n\r\n      84  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      85  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n      86  EQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $              \r\n\r\n      87  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,                \r\n                   M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/                         \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/-1/-1/                                  \r\n                   -1/-1 $                                                        \r\n\r\n      88  GKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n                   NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/                \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $                    \r\n\r\n      88  MATGPR   GPLD,USETD,SILD,PHIA // C,N,H / C,N,A  $                       \r\n\r\n      89  CEAD     KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $          \r\n\r\n      90  OFP      OCEIGS,,,,,//S,N,CARDNO $                                      \r\n\r\n      91  COND     LBL17,EIGVS $                                                  \r\n\r\n      92  OFP      CLAMA,,,,,//S,N,CARDNO $                                       \r\n\r\n      93  VDR      CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/       \r\n                   NOSORT2/S,N,NOH/S,N,NOP/FMODE $                                \r\n\r\n      94  COND     LBL16,NOH $                                                    \r\n\r\n      95  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n\r\n      96  LABEL    LBL16 $                                                        \r\n\r\n      97  COND     LBL17,NOP $                                                    \r\n\r\n      98  DDR1     PHIH,PHIDH/CPHID $                                             \r\n\r\n      99  EQUIV    CPHID,CPHIP/NOA $                                              \r\n\r\n     100  COND     LBLNOA,NOA $                                                   \r\n\r\n     101  SDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $        \r\n\r\n     102  LABEL    LBLNOA $                                                       \r\n\r\n     103  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/      \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $                        \r\n\r\n     104  OFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $                       \r\n\r\n     105  LABEL    LBL17 $                                                        \r\n\r\n     109  JUMP     FINIS $                                                        \r\n\r\n     110  LABEL    ERROR2 $                                                       \r\n\r\n     111  PRTPARM  //-2/*MDLCEAD* $                                               \r\n\r\n     112  LABEL    ERROR1 $                                                       \r\n\r\n     113  PRTPARM  //-1/*MDLCEAD* $                                               \r\n\r\n     114  LABEL    ERROR4 $                                                       \r\n\r\n     115  PRTPARM  //-4/*MDLCEAD* $                                               \r\n\r\n     116  LABEL    ERROR5 $                                                       \r\n\r\n     117  PRTPARM  //-5/*MDLCEAD* $                                               \r\n\r\n     118  LABEL    FINIS $                                                        \r\n\r\n     119  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     120  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      101\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT      100\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS4    ELEMENTS (ELEMENT TYPE  14) STARTING WITH ID     1001\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS4    ELEMENTS (ELEMENT TYPE  28) STARTING WITH ID     2001\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID      101\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =      101\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  8.50000010D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  8.50000010D+04  0.00000000D+00  0.00000000D+00  0.00000000D+00  3.95741486D+01 *\r\n                *  0.00000000D+00  0.00000000D+00  8.50000010D+04  0.00000000D+00 -3.95741486D+01  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -3.95741486D+01  0.00000000D+00  5.02525875D+08  0.00000000D+00 *\r\n                *  0.00000000D+00  3.95741486D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  5.02525875D+08 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            8.500000098D+04      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            8.500000098D+04      4.655782134D-04  0.000000000D+00  0.000000000D+00\r\n                            Z            8.500000098D+04      4.655782134D-04  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  5.025258748D+08  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  5.025258748D+08  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00                                    *\r\n                                      *                   5.025258748D+08                   *\r\n                                      *                                    5.025258748D+08  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        0   MPC      101\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n           101   G          1          2                                                                                            \r\n           101   G          1          6                                                                                            \r\n           100   G          1          2                                                                                            \r\n           100   G          1          6                                                                                            \r\n            19   G          1          2                                                                                            \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   1.0238161E-15\r\n                        5 ROOTS BELOW   2.842446E+03\r\n                        4 ROOTS BELOW   1.737006E+03\r\n                        6 ROOTS BELOW   4.828913E+03\r\n                        3 ROOTS BELOW   5.607305E+02\r\n                        7 ROOTS BELOW   1.085725E+04\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         7\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         5\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        35\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         5 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        0.0                 0.0                 0.0                 1.000000E+00        0.0                      \r\n        2         2        0.0                 0.0                 0.0                 1.000000E+00        0.0                      \r\n        3         6        7.971887E+01        8.928542E+00        1.421022E+00        1.000000E+00        7.971887E+01             \r\n        4         5        5.795970E+02        2.407482E+01        3.831627E+00        1.000000E+00        5.795970E+02             \r\n        5         3        1.739272E+03        4.170459E+01        6.637491E+00        1.000000E+00        1.739272E+03             \r\n        6         4        4.828728E+03        6.948904E+01        1.105952E+01        1.000000E+00        4.828728E+03             \r\n        7         7        1.085697E+04        1.041968E+02        1.658343E+01        1.000000E+00        1.085697E+04             \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- H).\r\n             1 T2  3.40661E-03        1 R3  3.47094E-18        2 T2  3.40661E-03        2 R3  3.47094E-18        3 T2  3.40661E-03\r\n             3 R3  3.29739E-18        4 T2  3.40661E-03        4 R3  3.29739E-18        5 T2  3.40661E-03        5 R3  3.12385E-18\r\n             6 T2  3.40661E-03        6 R3  2.60321E-18        7 T2  3.40661E-03        7 R3  1.56192E-18      101 T2  3.40661E-03\r\n             9 T2  3.40661E-03        9 R3  3.30933E-19       10 T2  3.40661E-03       10 R3  5.90953E-19      100 T2  3.40661E-03\r\n           100 R3  1.47738E-18       12 T2  3.40661E-03       12 R3  2.35199E-18       13 T2  3.40661E-03       13 R3  3.09659E-18\r\n            14 T2  3.40661E-03       14 R3  3.62845E-18       15 T2  3.40661E-03       15 R3  3.89438E-18       16 T2  3.40661E-03\r\n            19 T2  3.40661E-03     1001  S -4.19855E-18     1002  S -7.34025E-20     1003  S -2.81287E-19     1004  S -9.17517E-21\r\n0COLUMN       2 (       2- H).\r\n             1 T2 -5.12943E-03        1 R3  4.33476E-05        2 T2 -4.40697E-03        2 R3  4.33476E-05        3 T2 -3.68451E-03\r\n             3 R3  4.33476E-05        4 T2 -2.96205E-03        4 R3  4.33476E-05        5 T2 -2.23960E-03        5 R3  4.33476E-05\r\n             6 T2 -1.51714E-03        6 R3  4.33476E-05        7 T2 -7.94676E-04        7 R3  4.33476E-05      101 T2 -9.34979E-05\r\n           101 R3  4.33476E-05        9 T2  6.50242E-04        9 R3  4.33476E-05       10 T2  1.37270E-03       10 R3  4.33476E-05\r\n           100 T2  2.07388E-03      100 R3  4.33476E-05       12 T2  2.81762E-03       12 R3  4.33476E-05       13 T2  3.54008E-03\r\n            13 R3  4.33476E-05       14 T2  4.26254E-03       14 R3  4.33476E-05       15 T2  4.98500E-03       15 R3  4.33476E-05\r\n            16 T2  5.70746E-03       19 T2  7.87484E-03     1001  S -5.87829E-18     1002  S -3.24766E-19     1003  S -4.75615E-19\r\n          1004  S -4.05951E-20\r\n0COLUMN       3 (       3- H).\r\n             1 T2 -4.99347E-03        1 R3  7.95627E-05        2 T2 -3.66907E-03        2 R3  7.92673E-05        3 T2 -2.35692E-03\r\n             3 R3  7.79473E-05        4 T2 -1.08048E-03        4 R3  7.48897E-05        5 T2  1.27488E-04        5 R3  6.96880E-05\r\n             6 T2  1.22991E-03        6 R3  6.22294E-05        7 T2  2.19016E-03        7 R3  5.26746E-05      101 T2  2.95600E-03\r\n           101 R3  4.14279E-05        9 T2  3.56508E-03        9 R3  2.91008E-05       10 T2  3.94466E-03       10 R3  1.64667E-05\r\n           100 T2  3.92132E-03      100 R3 -2.00407E-05       12 T2  3.29407E-03       12 R3 -5.34093E-05       13 T2  2.15570E-03\r\n            13 R3 -8.23610E-05       14 T2  5.78611E-04       14 R3 -1.05929E-04       15 T2 -1.34264E-03       15 R3 -1.23627E-04\r\n            16 T2 -3.51043E-03       19 T2 -1.16033E-02     1001  S  2.64667E-04     1002  S  4.62015E-05     1003  S  1.28238E-05\r\n          1004  S  5.62328E-06\r\n0COLUMN       4 (       4- H).\r\n             1 T2  5.13048E-03        1 R3 -1.29009E-04        2 T2  2.99258E-03        2 R3 -1.26803E-04        3 T2  9.42525E-04\r\n             3 R3 -1.17611E-04        4 T2 -8.70157E-04        4 R3 -9.80477E-05        5 T2 -2.26777E-03        5 R3 -6.80522E-05\r\n             6 T2 -3.09560E-03        6 R3 -3.03227E-05        7 T2 -3.26119E-03        7 R3  1.05281E-05      101 T2 -2.78177E-03\r\n           101 R3  4.90331E-05        9 T2 -1.66855E-03        9 R3  8.00157E-05       10 T2 -1.53440E-04       10 R3  9.96695E-05\r\n           100 T2  1.67256E-03      100 R3  1.20042E-04       12 T2  3.64432E-03       12 R3  1.03762E-04       13 T2  5.02512E-03\r\n            13 R3  5.77644E-05       14 T2  5.46684E-03       14 R3 -6.76575E-06       15 T2  4.77183E-03       15 R3 -7.62933E-05\r\n            16 T2  2.96934E-03       19 T2 -1.24642E-02     1001  S  1.79087E-03     1002  S  2.85124E-04     1003  S  7.58856E-05\r\n          1004  S  3.34313E-05\r\n0COLUMN       5 (       5- H).\r\n             1 T2 -5.22129E-03        1 R3  1.76962E-04        2 T2 -2.30935E-03        2 R3  1.70225E-04        3 T2  3.44883E-04\r\n             3 R3  1.44052E-04        4 T2  2.35622E-03        4 R3  9.33734E-05        5 T2  3.35992E-03        5 R3  2.51610E-05\r\n             6 T2  3.17947E-03        6 R3 -4.58333E-05        7 T2  1.91045E-03        7 R3 -1.02732E-04      101 T2 -2.86536E-05\r\n           101 R3 -1.32400E-04        9 T2 -2.32554E-03        9 R3 -1.30147E-04       10 T2 -4.28925E-03       10 R3 -1.02218E-04\r\n           100 T2 -5.03083E-03      100 R3  1.56878E-05       12 T2 -3.82320E-03       12 R3  1.23357E-04       13 T2 -1.15833E-03\r\n            13 R3  1.86546E-04       14 T2  2.04075E-03       14 R3  1.85968E-04       15 T2  4.70531E-03       15 R3  1.25040E-04\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n            16 T2  6.01853E-03       19 T2 -1.13698E-02     1001  S  4.15318E-03     1002  S  5.81170E-04     1003  S  1.45268E-04\r\n          1004  S  6.47650E-05\r\n0COLUMN       6 (       6- H).\r\n             1 T2  5.02201E-03        1 R3 -2.28247E-04        2 T2  1.31784E-03        2 R3 -2.10256E-04        3 T2 -1.73414E-03\r\n             3 R3 -1.46838E-04        4 T2 -3.34096E-03        4 R3 -4.09772E-05        5 T2 -3.06628E-03        5 R3  7.09627E-05\r\n             6 T2 -1.19681E-03        6 R3  1.43073E-04        7 T2  1.31187E-03        7 R3  1.44809E-04      101 T2  3.20597E-03\r\n           101 R3  7.69942E-05        9 T2  3.67330E-03        9 R3 -2.77290E-05       10 T2  2.38976E-03       10 R3 -1.19800E-04\r\n           100 T2 -7.64581E-04      100 R3 -2.40566E-04       12 T2 -4.60418E-03       12 R3 -1.76848E-04       13 T2 -6.08032E-03\r\n            13 R3  1.23835E-05       14 T2 -4.13207E-03       14 R3  2.12294E-04       15 T2  4.45693E-04       15 R3  3.13124E-04\r\n            16 T2  5.53485E-03       19 T2 -8.92146E-03     1001  S  6.85917E-03     1002  S  7.04730E-04     1003  S  1.46049E-04\r\n          1004  S  6.89052E-05\r\n0COLUMN       7 (       7- H).\r\n             1 T2 -5.49284E-03        1 R3  3.18052E-04        2 T2 -4.37790E-04        2 R3  2.73806E-04        3 T2  3.10323E-03\r\n             3 R3  1.34018E-04        4 T2  3.73722E-03        4 R3 -5.83741E-05        5 T2  1.47742E-03        5 R3 -1.93167E-04\r\n             6 T2 -1.91499E-03        6 R3 -1.86354E-04        7 T2 -3.98682E-03        7 R3 -4.49821E-05      101 T2 -3.26177E-03\r\n           101 R3  1.35869E-04        9 T2  1.18655E-04        9 R3  2.40496E-04       10 T2  4.12268E-03       10 R3  2.19340E-04\r\n           100 T2  5.53154E-03      100 R3 -6.63075E-05       12 T2  2.24659E-03       12 R3 -2.91810E-04       13 T2 -2.85405E-03\r\n            13 R3 -2.69997E-04       14 T2 -5.46088E-03       14 R3 -1.55439E-05       15 T2 -3.19606E-03       15 R3  2.70613E-04\r\n            16 T2  2.57352E-03       19 T2 -6.65810E-03     1001  S  8.12610E-03     1002  S  3.67233E-04     1003  S  1.26729E-05\r\n          1004  S  1.90941E-05\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n\r\n      FLEXIBLE STRUCTURE CASE                                                                                                       \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    3     BBAR =    4\r\n                                        C =    4     CBAR =    3\r\n                                        R =    6\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH2 (N =    14)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        3\r\n0                                       NUMBER OF PASSES THROUGH STARTING POINTS . .        2\r\n0                                       NUMBER OF CRITERIA CHANGES . . . . . . . . .        0\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .        0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .       39\r\n0                                       NUMBER OF FAILURES TO ITERATE TO A ROOT  . .        0\r\n0                                       NUMBER OF PREDICTIONS OUTSIDE REGION . . . .       20\r\n0\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .        2*\r\n\r\n0                                       (* EIGENVALUES OUTSIDE FREQ. RANGE \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.7.3)\r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n                    C O M P L E X   E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (DETERMINANT METHOD)\r\n0                                        S W E P T   D E T E R M I N A N T   F U N C T I O N\r\n\r\n                                          - P -                                   - DET(P) -\r\n          STARTING POINT          REAL             IMAG                    MAGNITUDE         PHASE     SCALE FACTOR\r\n                    1         -2.000000E+00   -6.071429E-01              7.405122E+00       359.8199         11                     \r\n                    2         -2.000000E+00    1.785714E-01              7.411725E+00         0.0540         11                     \r\n                    3         -2.000000E+00    9.642857E-01              7.394118E+00         0.2767         11                     \r\n                    4         -2.000000E+00    1.750000E+00              7.352310E+00         0.4380         11                     \r\n                    5         -2.000000E+00    2.535714E+00              7.286363E+00         0.4874         11                     \r\n                    6         -2.000000E+00    3.321429E+00              7.196495E+00         0.3732         11                     \r\n                    7         -2.000000E+00    4.107143E+00              7.083232E+00         0.0420         11                     \r\n                    8         -2.000000E+00    4.892857E+00              6.947610E+00       359.4387         11                     \r\n                    9         -2.000000E+00    5.678571E+00              6.791417E+00       358.5054         11                     \r\n                   10         -2.000000E+00    6.464286E+00              6.617452E+00       357.1823         11                     \r\n                   11         -2.000000E+00    7.250000E+00              6.429790E+00       355.4084         11                     \r\n                   12         -2.000000E+00    8.035714E+00              6.233998E+00       353.1243         11                     \r\n                   13         -2.000000E+00    8.821428E+00              6.037257E+00       350.2773         11                     \r\n                   14         -2.000000E+00    9.607142E+00              5.848268E+00       346.8303         11                     \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n \r\n                                        C O M P L E X   E I G E N V A L U E   S U M M A R Y\r\n0                ROOT     EXTRACTION                  EIGENVALUE                     FREQUENCY              DAMPING\r\n                  NO.        ORDER             (REAL)           (IMAG)                (CYCLES)            COEFFICIENT\r\n                      1           2         -1.414853E+00    -1.312848E-19              0.0                   0.0                   \r\n                      2           1         -5.075583E-01    -8.188429E-01          1.303229E-01          1.239697E+00              \r\n                      3           3          5.202224E-01     3.824517E+00          6.086907E-01         -2.720461E-01              \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE = -1.414853E+00, -1.312848E-19    (CYCLIC FREQUENCY =  2.089462E-20HZ)\r\n                             C O M P L E X   E I G E N V E C T O R   N O .          1   (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      M      2.999425E-01   4.516107E-01   1.076886E-02   1.554570E-03                                                \r\n                           180.0000         0.0000         0.0000       180.0000                                                    \r\n0         1010      E      4.698019E-04   1.917380E-03                                                                              \r\n                             0.0000         0.0000                                                                                  \r\n0         1020      E      1.788062E-21   3.828549E-19                                                                              \r\n                             0.0000         0.0171                                                                                  \r\n0         1030      E      1.323753E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      4.155003E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n0         1080      E      5.153737E-04                                                                                             \r\n                             0.0000                                                                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE = -5.075583E-01, -8.188429E-01    (CYCLIC FREQUENCY =  1.303229E-01HZ)\r\n                             C O M P L E X   E I G E N V E C T O R   N O .          2   (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      M      6.302099E-01   9.488792E-01   1.080934E-02   1.520700E-03                                                \r\n                            64.0805       244.0806       359.8948       180.4131                                                    \r\n0         1010      E      2.250608E-03   4.130849E-03                                                                              \r\n                           124.0834       243.5831                                                                                  \r\n0         1020      E     -6.103754E-22   1.061599E-18                                                                              \r\n                             0.0000        47.9706                                                                                  \r\n0         1030      E      1.814407E-03                                                                                             \r\n                           166.0885                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      4.047787E-05                                                                                             \r\n                           180.4945                                                                                                 \r\n0         1080      E      2.191593E-03                                                                                             \r\n                           129.0040                                                                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE =  5.202224E-01,  3.824517E+00    (CYCLIC FREQUENCY =  6.086907E-01HZ)\r\n                             C O M P L E X   E I G E N V E C T O R   N O .          3   (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      M      3.498182E-02   5.267026E-02   1.166434E-02   1.388280E-03                                                \r\n                            16.7802       196.7803       357.8045       180.8850                                                    \r\n0         1010      E      5.593424E-05   2.667241E-04                                                                              \r\n                             4.3950       194.1661                                                                                  \r\n0         1020      E      6.337845E-22   2.047490E-19                                                                              \r\n                             0.0000        48.9835                                                                                  \r\n0         1030      E      2.736893E-03                                                                                             \r\n                           228.1013                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      3.607164E-05                                                                                             \r\n                           181.2862                                                                                                 \r\n0         1080      E      4.303362E-06                                                                                             \r\n                            48.1516                                                                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE = -1.414853E+00, -1.312848E-19    (CYCLIC FREQUENCY =  2.089462E-20HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      0.0            3.400044E-03   0.0            0.0            0.0            2.063359E-05                  \r\n                             0.0          180.0000         0.0            0.0            0.0            0.0000                      \r\n0          100      G      0.0            4.557195E-05   0.0            0.0            0.0            1.917380E-05                  \r\n                             0.0          180.0000         0.0            0.0            0.0            0.0000                      \r\n0          101      G      0.0            1.027854E-03   0.0            0.0            0.0            1.994614E-05                  \r\n                             0.0          180.0000         0.0            0.0            0.0            0.0000                      \r\n0         1010      E      4.698019E-04   1.917380E-03                                                                              \r\n                             0.0000         0.0000                                                                                  \r\n0         1020      E      0.0            3.828549E-19                                                                              \r\n                             0.0            0.0171                                                                                  \r\n0         1030      E      1.323753E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      4.155003E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n0         1080      E      5.153737E-04                                                                                             \r\n                             0.0000                                                                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE = -5.075583E-01, -8.188429E-01    (CYCLIC FREQUENCY =  1.303229E-01HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      0.0            6.987349E-03   0.0            0.0            0.0            4.068120E-05                  \r\n                             0.0           64.5363         0.0            0.0            0.0          245.4187                      \r\n0          100      G      0.0            1.995967E-04   0.0            0.0            0.0            4.130849E-05                  \r\n                             0.0           53.7251         0.0            0.0            0.0          243.5831                      \r\n0          101      G      0.0            2.251623E-03   0.0            0.0            0.0            4.097108E-05                  \r\n                             0.0           63.2521         0.0            0.0            0.0          244.5508                      \r\n0         1010      E      2.250608E-03   4.130849E-03                                                                              \r\n                           124.0834       243.5831                                                                                  \r\n0         1020      E      0.0            1.061599E-18                                                                              \r\n                             0.0           47.9706                                                                                  \r\n0         1030      E      1.814407E-03                                                                                             \r\n                           166.0885                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      4.047787E-05                                                                                             \r\n                           180.4945                                                                                                 \r\n0         1080      E      2.191593E-03                                                                                             \r\n                           129.0040                                                                                                 \r\n1     COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                                                                                   \r\n0     FLEXIBLE STRUCTURE CASE                                                                                                       \r\n      COMPLEX EIGENVALUE =  5.202224E-01,  3.824517E+00    (CYCLIC FREQUENCY =  6.086907E-01HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      0.0            3.280733E-04   0.0            0.0            0.0            1.282192E-06                  \r\n                             0.0           20.4310         0.0            0.0            0.0          212.6596                      \r\n0          100      G      0.0            5.290975E-05   0.0            0.0            0.0            2.667242E-06                  \r\n                             0.0            1.1704         0.0            0.0            0.0          194.1661                      \r\n0          101      G      0.0            1.608827E-04   0.0            0.0            0.0            1.896691E-06                  \r\n                             0.0           12.4064         0.0            0.0            0.0          200.9674                      \r\n0         1010      E      5.593424E-05   2.667241E-04                                                                              \r\n                             4.3950       194.1661                                                                                  \r\n0         1020      E      0.0            2.047490E-19                                                                              \r\n                             0.0           48.9835                                                                                  \r\n0         1030      E      2.736893E-03                                                                                             \r\n                           228.1013                                                                                                 \r\n0         1040      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1050      E      2.000000E-03                                                                                             \r\n                             0.0000                                                                                                 \r\n0         1060      E      1.000000E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0         1070      E      3.607164E-05                                                                                             \r\n                           181.2862                                                                                                 \r\n0         1080      E      4.303362E-06                                                                                             \r\n                            48.1516                                                                                                 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM             \r\n DATE:  5/17/95\r\n END TIME: 16:11:19\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d10021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D10021A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   10,0                                                                      \r\n     TIME  10                                                                        \r\n     DIAG  14,18                                                                     \r\n     ALTER 66 $                                                                      \r\n     MATGPR   GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $                                     \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)              \r\n                  3      LABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n                  4          ECHO = BOTH                                                                 \r\n                  5          SPC  = 1                                                                    \r\n                  6       METHOD  = 10                                                                   \r\n                  7       CMETHOD = 20                                                                   \r\n                  8       FMETHOD = 30                                                                   \r\n                  9      OUTPUT(XYOUT)                                                                   \r\n                 10       XTITLE  = VELOCITY                                                             \r\n                 11       YTTITLE = DAMPING (G)                                                          \r\n                 12       YBTITLE = FREQUENCY (F)                                                        \r\n                 13       TCURVE  = V-G AND V-F DATA POINTS                                              \r\n                 14      CURVELINESYMBOL = -1                                                            \r\n                 15      XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\n                 16      BEGIN BULK                                                                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              AERO    0       1.3+4   2.0706  1.145-7                                                       \r\n                              CAERO1  101     1       1       6       4                       1       +CA101                \r\n                              +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706                        \r\n                              CBAR    1       1       1       2       0.0     0.0     1.      1                             \r\n                              CBAR    2       1       2       3       0.0     0.0     1.      1                             \r\n                              CBAR    3       1       3       4       0.0     0.0     1.      1                             \r\n                              CBAR    4       1       4       5       0.0     0.0     1.      1                             \r\n                              CBAR    5       1       5       6       0.0     0.0     1.      1                             \r\n                              CBAR    6       1       6       7       0.0     0.0     1.      1                             \r\n                              CBAR    7       1       7       8       0.0     0.0     1.      1                             \r\n                              CBAR    8       1       8       9       0.0     0.0     1.      1                             \r\n                              CBAR    9       1       9       10      0.0     0.0     1.      1                             \r\n                              CBAR    10      1       10      11      0.0     0.0     1.      1                             \r\n                              CMASS2  12      2.8-6   2       5                                                             \r\n                              CMASS2  13      2.8-6   3       5                                                             \r\n                              CMASS2  14      2.8-6   4       5                                                             \r\n                              CMASS2  15      2.8-6   5       5                                                             \r\n                              CMASS2  16      2.8-6   6       5                                                             \r\n                              CMASS2  17      2.8-6   7       5                                                             \r\n                              CMASS2  18      2.8-6   8       5                                                             \r\n                              CMASS2  19      2.8-6   9       5                                                             \r\n                              CMASS2  20      2.8-6   10      5                                                             \r\n                              CMASS2  21      1.4-6   11      5                                                             \r\n                              CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1                   \r\n                              +C1     .96593  -.25882 0.0                                                                   \r\n                              EIGC    20      HESS    MAX                                             +EC                   \r\n                              +EC                                                     3                                     \r\n                              EIGR    10      GIV     .3      .1              6                       +ER                   \r\n                              +ER     MAX                                                                                   \r\n                              FLFACT  1       .967                                                                          \r\n                              FLFACT  2       .45                                                                           \r\n                              FLFACT  3       .2      .16667  .14286  .125    .11111  .1                                    \r\n                              FLUTTER 30      KE      1       2       3       L       3                                     \r\n                              GRDSET          1                               1       126                                   \r\n                              GRID    1               0.0     .0      0.0                                                   \r\n                              GRID    2               0.0     .572    0.0                                                   \r\n                              GRID    3               0.0     1.144   0.0                                                   \r\n                              GRID    4               0.0     1.716   0.0                                                   \r\n                              GRID    5               0.0     2.288   0.0                                                   \r\n                              GRID    6               0.0     2.86    0.0                                                   \r\n                              GRID    7               0.0     3.432   0.0                                                   \r\n                              GRID    8               0.0     4.004   0.0                                                   \r\n                              GRID    9               0.0     4.576   0.0                                                   \r\n                              GRID    10              0.0     5.148   0.0                                                   \r\n                              GRID    11              0.0     5.72    0.0                                                   \r\n                              MAT1    1       10.4+6  3.9+6           2.61-4                                                \r\n                              MKAERO1 .45                                                             +MK                   \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +MK     .0001   .1      .2                                                                    \r\n                              PAERO1  1                                                                                     \r\n                              PARAM   COUPMASS1                                                                             \r\n                              PARAM   LMODES  3                                                                             \r\n                              PBAR    1       1       7.175-2 9.83-6          36.8-6                                        \r\n                              SET1    100     1       THRU    11                                                            \r\n                              SPC1    1       345     1                                                                     \r\n                              SPLINE2 100     101     101     124     100     0.0     1.      1       +SP                   \r\n                              +SP     0.0     0.0                                                                           \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     56\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO    0       1.3+4   2.0706  1.145-7                                         \r\n                    2-        CAERO1  101     1       1       6       4                       1       +CA101  \r\n                    3-        +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\n                    4-        CBAR    1       1       1       2       0.0     0.0     1.      1               \r\n                    5-        CBAR    2       1       2       3       0.0     0.0     1.      1               \r\n                    6-        CBAR    3       1       3       4       0.0     0.0     1.      1               \r\n                    7-        CBAR    4       1       4       5       0.0     0.0     1.      1               \r\n                    8-        CBAR    5       1       5       6       0.0     0.0     1.      1               \r\n                    9-        CBAR    6       1       6       7       0.0     0.0     1.      1               \r\n                   10-        CBAR    7       1       7       8       0.0     0.0     1.      1               \r\n                   11-        CBAR    8       1       8       9       0.0     0.0     1.      1               \r\n                   12-        CBAR    9       1       9       10      0.0     0.0     1.      1               \r\n                   13-        CBAR    10      1       10      11      0.0     0.0     1.      1               \r\n                   14-        CMASS2  12      2.8-6   2       5                                               \r\n                   15-        CMASS2  13      2.8-6   3       5                                               \r\n                   16-        CMASS2  14      2.8-6   4       5                                               \r\n                   17-        CMASS2  15      2.8-6   5       5                                               \r\n                   18-        CMASS2  16      2.8-6   6       5                                               \r\n                   19-        CMASS2  17      2.8-6   7       5                                               \r\n                   20-        CMASS2  18      2.8-6   8       5                                               \r\n                   21-        CMASS2  19      2.8-6   9       5                                               \r\n                   22-        CMASS2  20      2.8-6   10      5                                               \r\n                   23-        CMASS2  21      1.4-6   11      5                                               \r\n                   24-        CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n                   25-        +C1     .96593  -.25882 0.0                                                     \r\n                   26-        EIGC    20      HESS    MAX                                             +EC     \r\n                   27-        +EC                                                     3                       \r\n                   28-        EIGR    10      GIV     .3      .1              6                       +ER     \r\n                   29-        +ER     MAX                                                                     \r\n                   30-        FLFACT  1       .967                                                            \r\n                   31-        FLFACT  2       .45                                                             \r\n                   32-        FLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\n                   33-        FLUTTER 30      KE      1       2       3       L       3                       \r\n                   34-        GRDSET          1                               1       126                     \r\n                   35-        GRID    1               0.0     .0      0.0                                     \r\n                   36-        GRID    2               0.0     .572    0.0                                     \r\n                   37-        GRID    3               0.0     1.144   0.0                                     \r\n                   38-        GRID    4               0.0     1.716   0.0                                     \r\n                   39-        GRID    5               0.0     2.288   0.0                                     \r\n                   40-        GRID    6               0.0     2.86    0.0                                     \r\n                   41-        GRID    7               0.0     3.432   0.0                                     \r\n                   42-        GRID    8               0.0     4.004   0.0                                     \r\n                   43-        GRID    9               0.0     4.576   0.0                                     \r\n                   44-        GRID    10              0.0     5.148   0.0                                     \r\n                   45-        GRID    11              0.0     5.72    0.0                                     \r\n                   46-        MAT1    1       10.4+6  3.9+6           2.61-4                                  \r\n                   47-        MKAERO1 .45                                                             +MK     \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +MK     .0001   .1      .2                                                      \r\n                   49-        PAERO1  1                                                                       \r\n                   50-        PARAM   COUPMASS1                                                               \r\n                   51-        PARAM   LMODES  3                                                               \r\n                   52-        PBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\n                   53-        SET1    100     1       THRU    11                                              \r\n                   54-        SPC1    1       345     1                                                       \r\n                   55-        SPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n                   56-        +SP     0.0     0.0                                                             \r\n                              ENDDATA\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/           \r\n                   CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/   \r\n                   QKHL=APPEND/ $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/MINUS1=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  COND     ERROR5,NOGPDT $                                                \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      12  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      13  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      14  COND     ERROR1,NOSIMP $                                                \r\n\r\n      15  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      16  PARAM    //*ADD*/NOMGG /1/0 $                                           \r\n\r\n      17  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                           \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      19  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      20  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      21  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      22  LABEL    JMPKGGX $                                                      \r\n\r\n      23  COND     ERROR1,NOMGG $                                                 \r\n\r\n      24  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      25  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      26  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      27  GPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      28  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      29  LABEL    LGPWG $                                                        \r\n\r\n      30  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      31  COND     LBL11,NOGENL $                                                 \r\n\r\n      32  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      33  LABEL    LBL11 $                                                        \r\n\r\n      34  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      35  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/                  \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      36  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      37  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      38  PURGE    GM/MPCF1/DM,MR/REACT $                                         \r\n\r\n      39  COND     LBL2,MPCF1 $                                                   \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  MCE1     USET,RG/GM $                                                   \r\n\r\n      41  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      42  LABEL    LBL2 $                                                         \r\n\r\n      43  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      44  COND     LBL3,SINGLE $                                                  \r\n\r\n      45  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      46  LABEL    LBL3 $                                                         \r\n\r\n      47  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      48  PURGE    GO/OMIT $                                                      \r\n\r\n      49  COND     LBL5,OMIT $                                                    \r\n\r\n      50  PARAM    //*PREC*/PREC $                                                \r\n\r\n      51  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      52  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      53  LABEL    LBL5 $                                                         \r\n\r\n      54  COND     LBL6,REACT $                                                   \r\n\r\n      55  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      56  RBMG2    KLL/LLL/ $                                                     \r\n\r\n      57  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      58  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      59  LABEL    LBL6 $                                                         \r\n\r\n      60  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $                          \r\n\r\n      61  COND     ERROR2,NOEED $                                                 \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      62  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      63  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      64  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      65  COND     ERROR4,NEIGV $                                                 \r\n\r\n      66  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      66  MATGPR   GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $                             \r\n\r\n      67  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      68  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $                    \r\n\r\n      69  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/      \r\n                   *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/                    \r\n                   NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/                          \r\n                   -1/-1/   -1/-1 $                                               \r\n\r\n      70  GKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,        \r\n                   PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/           \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $          \r\n\r\n      71  APD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n                   USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/   \r\n                   S,N,LUSETA/S,N,BOV $                                           \r\n\r\n      72  PARAM    //*MPY*/PFILE/0/1 $                                            \r\n\r\n      73  PURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $                     \r\n\r\n      74  COND     SKPPLT,JUMPPLOT $                                              \r\n\r\n      75  PARAM    //*MPY*/PLTFLG/0/1 $                                           \r\n\r\n      76  PLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/   \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      77  PRTMSG   PLTSETA // $                                                   \r\n\r\n      78  COND     SKPPLT,JUMPPLOT $                                              \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      79  PLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,    ,,,,,,/PLOTX2/  \r\n                   NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      80  PRTMSG   PLOTX2 // $                                                    \r\n\r\n      81  LABEL    SKPPLT $                                                       \r\n\r\n      82  COND     ERROR2,NOEED $                                                 \r\n\r\n      83  GI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $           \r\n\r\n      84  PARAM    //*ADD*/DESTRY/0/1/ $                                          \r\n\r\n      85  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $                \r\n\r\n      86  COND     NODJE,    NODJE $                                              \r\n\r\n      87  INPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $             \r\n\r\n      88  LABEL    NODJE $                                                        \r\n\r\n      89  PARAM    //*ADD*/XQHHL/1/0 $                                            \r\n\r\n      90  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,  \r\n                   QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $                          \r\n\r\n      91  PARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $                                 \r\n\r\n      92  LABEL    LOOPTOP $                                                      \r\n\r\n      93  FA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/            \r\n                   S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $                              \r\n\r\n      94  EQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH,     \r\n                   CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $                           \r\n\r\n      95  COND     VDR,NOCEAD $                                                   \r\n\r\n      96  CEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $       \r\n\r\n      97  COND     LBLZAP,EIGVS $                                                 \r\n\r\n      98  LABEL    VDR $                                                          \r\n\r\n      99  VDR      CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   123/S,N,NOH/S,N,NOP/FMODE $                                    \r\n\r\n     100  COND     LBL16,NOH $                                                    \r\n\r\n     101  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n\r\n     102  LABEL    LBL16 $                                                        \r\n\r\n     103  FA2      PHIH,CLAMA,FSAVE/    PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/       \r\n                   C,Y,VREF=1.0/C,Y,PRINT=YES $                                   \r\n\r\n     104  COND     CONTINUE,TSTART $                                              \r\n\r\n     105  LABEL    LBLZAP $                                                       \r\n\r\n     106  COND     CONTINUE,FLOOP $                                               \r\n\r\n     107  REPT     LOOPTOP,100 $                                                  \r\n\r\n     108  JUMP     ERROR3 $                                                       \r\n\r\n     109  LABEL    CONTINUE $                                                     \r\n\r\n     110  PARAML   XYCDB//*PRES*////NOXYCDB $                                     \r\n\r\n     111  COND     NOXYOUT,NOXYCDB $                                              \r\n\r\n     112  XYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/        \r\n                   S,N,NOXYPL $                                                   \r\n\r\n     113  COND     NOXYOUT,NOXYPL $                                               \r\n\r\n     114  XYPLOT   XYPLTCE// $                                                    \r\n\r\n     115  LABEL    NOXYOUT $                                                      \r\n\r\n     116  PARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $                                \r\n\r\n     117  COND     FINIS,PJUMP $                                                  \r\n\r\n     118  MODACC   CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $       \r\n\r\n     119  ADR      CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/          \r\n                   C,Y,MACH = 0.0/*FLUTTER* $                                     \r\n\r\n     120  DDR1     CPHIH1,PHIDH/CPHID $                                           \r\n\r\n     121  EQUIV    CPHID ,CPHIP/NOA $                                             \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     122  PURGE    QPC/NOA $                                                      \r\n\r\n     123  COND     LBL14,NOA $                                                    \r\n\r\n     124  SDR1     USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $      \r\n\r\n     125  LABEL    LBL14 $                                                        \r\n\r\n     126  EQUIV    CPHID ,CPHIA/NOUE $                                            \r\n\r\n     127  COND     LBLNOE,NOUE $                                                  \r\n\r\n     128  VEC      USETA/RP/*D*/*A*/*E* $                                         \r\n\r\n     129  PARTN    CPHID ,,RP/CPHIA,,,/1/3 $                                      \r\n\r\n     130  LABEL    LBLNOE $                                                       \r\n\r\n     131  MPYAD    GTKA,CPHIA,/CPHIK/1/1/0/PREC $                                 \r\n\r\n     132  UMERGE   USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $                            \r\n\r\n     133  UMERGE   USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $                      \r\n\r\n     134  UMERGE   USETA,QPC,/QPAC/*PA*/*P*/*K* $                                 \r\n\r\n     135  SDR2     CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA,   \r\n                   EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $         \r\n\r\n     136  OFP      OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $                     \r\n\r\n     137  COND     FINIS,JUMPPLOT $                                               \r\n\r\n     138  PLOT     PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,,  \r\n                   /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N,                      \r\n                   PFILE $                                                        \r\n\r\n     139  PRTMSG   PLOTX3// $                                                     \r\n\r\n     140  JUMP     FINIS $                                                        \r\n\r\n     141  LABEL    ERROR3 $                                                       \r\n\r\n     142  PRTPARM  //-3/*FLUTTER* $                                               \r\n\r\n     143  LABEL    ERROR2 $                                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  PRTPARM  //-2/*FLUTTER* $                                               \r\n\r\n     145  LABEL    ERROR1 $                                                       \r\n\r\n     146  PRTPARM  //-1/*FLUTTER* $                                               \r\n\r\n     147  LABEL    ERROR4 $                                                       \r\n\r\n     148  PRTPARM  //-4/*FLUTTER* $                                               \r\n\r\n     149  LABEL    ERROR5 $                                                       \r\n\r\n     150  PRTPARM  //-5/*FLUTTER* $                                               \r\n\r\n     151  LABEL    FINIS $                                                        \r\n\r\n     152  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     153  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS2    ELEMENTS (ELEMENT TYPE  26) STARTING WITH ID       12\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        29        6.304402E+04        2.510857E+02        3.996152E+01        2.677916E-05        1.688266E+00             \r\n        2        30        2.206506E+06        1.485431E+03        2.364137E+02        1.400000E-05        3.089108E+01             \r\n        3        28        2.476139E+06        1.573575E+03        2.504423E+02        2.677572E-05        6.630042E+01             \r\n        4        26        1.942194E+07        4.407033E+03        7.014010E+02        1.420851E-05        2.759567E+02             \r\n        5        27        1.953390E+07        4.419717E+03        7.034197E+02        1.400000E-05        2.734746E+02             \r\n        6        25        5.249256E+07        7.245175E+03        1.153105E+03        1.399999E-05        7.348956E+02             \r\n        7        24        7.468510E+07        8.642055E+03        1.375426E+03        0.0                 0.0                      \r\n        8        23        9.785626E+07        9.892232E+03        1.574398E+03        0.0                 0.0                      \r\n        9        22        1.511845E+08        1.229571E+04        1.956923E+03        0.0                 0.0                      \r\n       10        20        2.047278E+08        1.430831E+04        2.277239E+03        0.0                 0.0                      \r\n       11        21        2.072571E+08        1.439643E+04        2.291262E+03        0.0                 0.0                      \r\n       12        19        2.605854E+08        1.614266E+04        2.569183E+03        0.0                 0.0                      \r\n       13        18        3.059491E+08        1.749140E+04        2.783843E+03        0.0                 0.0                      \r\n       14        17        3.389078E+08        1.840945E+04        2.929954E+03        0.0                 0.0                      \r\n       15        16        3.562351E+08        1.887419E+04        3.003921E+03        0.0                 0.0                      \r\n       16        15        4.594797E+08        2.143548E+04        3.411562E+03        0.0                 0.0                      \r\n       17        14        9.045066E+08        3.007502E+04        4.786587E+03        0.0                 0.0                      \r\n       18        13        1.623464E+09        4.029223E+04        6.412708E+03        0.0                 0.0                      \r\n       19        12        2.714134E+09        5.209736E+04        8.291552E+03        0.0                 0.0                      \r\n       20        11        4.194444E+09        6.476452E+04        1.030759E+04        0.0                 0.0                      \r\n       21        10        7.430217E+09        8.619871E+04        1.371895E+04        0.0                 0.0                      \r\n       22         9        1.084491E+10        1.041389E+05        1.657422E+04        0.0                 0.0                      \r\n       23         8        1.593668E+10        1.262406E+05        2.009181E+04        0.0                 0.0                      \r\n       24         7        2.321477E+10        1.523639E+05        2.424947E+04        0.0                 0.0                      \r\n       25         6        3.352112E+10        1.830877E+05        2.913932E+04        0.0                 0.0                      \r\n       26         5        4.794975E+10        2.189743E+05        3.485085E+04        0.0                 0.0                      \r\n       27         4        6.754208E+10        2.598886E+05        4.136255E+04        0.0                 0.0                      \r\n       28         3        9.205609E+10        3.034075E+05        4.828880E+04        0.0                 0.0                      \r\n       29         2        1.167387E+11        3.416705E+05        5.437855E+04        0.0                 0.0                      \r\n       30         1        1.828392E+11        4.275971E+05        6.805419E+04        0.0                 0.0                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- H).\r\n             2 T3  1.67735E-02        2 R1  5.72388E-02        2 R2  3.01054E-09        3 T3  6.38710E-02        3 R1  1.06035E-01\r\n             3 R2  3.03284E-09        4 T3  1.36483E-01        4 R1  1.46474E-01        4 R2 -7.48494E-09        5 T3  2.29884E-01\r\n             5 R1  1.78774E-01        5 R2 -8.72457E-09        6 T3  3.39523E-01        6 R1  2.03331E-01        6 R2  3.99158E-09\r\n             7 T3  4.61135E-01        7 R1  2.20760E-01        7 R2  7.35782E-11        8 T3  5.90876E-01        8 R1  2.31925E-01\r\n             8 R2 -3.15805E-10        9 T3  7.25478E-01        9 R1  2.37964E-01        9 R2  2.17289E-10       10 T3  8.62400E-01\r\n            10 R1  2.40300E-01       10 R2  5.58286E-10       11 T3  1.00000E+00       11 R1  2.40648E-01       11 R2  4.86563E-10\r\n0COLUMN       2 (       2- H).\r\n             2 T3 -7.46044E-09        2 R1 -1.88336E-08        2 R2  1.56434E-01        3 T3 -2.28561E-08        3 R1 -2.59106E-08\r\n             3 R2  3.09017E-01        4 T3 -2.58240E-08        4 R1 -2.26935E-08        4 R2  4.53990E-01        5 T3 -5.68907E-08\r\n             5 R1 -2.57682E-08        5 R2  5.87785E-01        6 T3 -7.27691E-08        6 R1 -2.17948E-09        6 R2  7.07107E-01\r\n             7 T3 -2.14620E-08        7 R1  2.90025E-08        7 R2  8.09017E-01        8 T3 -5.17652E-08        8 R1  4.09725E-08\r\n             8 R2  8.91007E-01        9 T3 -2.56568E-08        9 R1  5.40314E-08        9 R2  9.51057E-01       10 T3  1.10070E-07\r\n            10 R1  6.21463E-08       10 R2  9.87688E-01       11 T3  2.13897E-08       11 R1  6.16105E-08       11 R2  1.00000E+00\r\n0COLUMN       3 (       3- H).\r\n             2 T3 -9.26293E-02        2 R1 -2.93280E-01        2 R2 -3.47704E-08        3 T3 -3.01055E-01        3 R1 -4.06302E-01\r\n             3 R2 -6.19249E-08        4 T3 -5.26133E-01        4 R1 -3.55778E-01        4 R2 -4.46378E-08        5 T3 -6.83470E-01\r\n             5 R1 -1.76822E-01        5 R2 -7.01620E-08        6 T3 -7.13666E-01        6 R1  7.92204E-02        6 R2 -1.22805E-07\r\n             7 T3 -5.89476E-01        7 R1  3.53042E-01        7 R2 -1.26697E-07        8 T3 -3.17052E-01        8 R1  5.89324E-01\r\n             8 R2 -1.45986E-07        9 T3  7.00358E-02        9 R1  7.49587E-01        9 R2 -1.52911E-07       10 T3  5.23752E-01\r\n            10 R1  8.23344E-01       10 R2 -1.56358E-07       11 T3  1.00000E+00       11 R1  8.35801E-01       11 R2 -1.61307E-07\r\n0COLUMN       4 (       4- H).\r\n             2 T3  1.66212E-01        2 R1  4.79761E-01        2 R2 -3.32192E-07        3 T3  4.40551E-01        3 R1  3.97278E-01\r\n             3 R2 -5.90702E-07        4 T3  5.51134E-01        4 R1 -4.52344E-02        4 R2 -7.67610E-07        5 T3  3.83288E-01\r\n             5 R1 -5.17263E-01        5 R2 -7.29061E-07        6 T3  1.43548E-02        6 R1 -7.07374E-01        6 R2 -5.46079E-07\r\n             7 T3 -3.45266E-01        7 R1 -4.83040E-01        7 R2 -2.34486E-07        8 T3 -4.79119E-01        8 R1  4.54486E-02\r\n             8 R2  1.04545E-07        9 T3 -2.87782E-01        9 R1  6.03327E-01        9 R2  4.31755E-07       10 T3  1.66523E-01\r\n            10 R1  9.34987E-01       10 R2  6.64389E-07       11 T3  7.28774E-01       11 R1  1.00000E+00       11 R2  7.29213E-07\r\n0COLUMN       5 (       5- H).\r\n             2 T3 -1.21821E-07        2 R1 -3.61570E-07        2 R2 -4.53991E-01        3 T3 -3.24342E-07        3 R1 -3.01407E-07\r\n             3 R2 -8.09017E-01        4 T3 -4.35062E-07        4 R1  3.05368E-08        4 R2 -9.87688E-01        5 T3 -2.76111E-07\r\n             5 R1  3.94483E-07        5 R2 -9.51057E-01        6 T3  8.62920E-09        6 R1  5.18704E-07        6 R2 -7.07107E-01\r\n             7 T3  2.43395E-07        7 R1  3.57616E-07        7 R2 -3.09017E-01        8 T3  3.43037E-07        8 R1 -4.78102E-08\r\n             8 R2  1.56435E-01        9 T3  1.93511E-07        9 R1 -4.58635E-07        9 R2  5.87786E-01       10 T3 -6.62254E-08\r\n            10 R1 -6.86214E-07       10 R2  8.91007E-01       11 T3 -6.01408E-07       11 R1 -7.47646E-07       11 R2  1.00000E+00\r\n0COLUMN       6 (       6- H).\r\n             2 T3  2.18324E-09        2 R1  1.29194E-08        2 R2  7.07107E-01        3 T3  3.18404E-09        3 R1  2.75766E-09\r\n             3 R2  1.00000E+00        4 T3  1.93508E-08        4 R1 -2.43256E-08        4 R2  7.07107E-01        5 T3 -3.49928E-09\r\n             5 R1 -7.19701E-09        5 R2 -4.07056E-07        6 T3  2.49600E-10        6 R1  7.66200E-09        6 R2 -7.07107E-01\r\n             7 T3 -4.19797E-08        7 R1  1.57023E-08        7 R2 -1.00000E+00        8 T3  1.80972E-08        8 R1  9.91273E-09\r\n             8 R2 -7.07106E-01        9 T3  1.56192E-08        9 R1 -2.44623E-08        9 R2  4.28747E-07       10 T3  4.15805E-08\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n            10 R1 -1.38289E-08       10 R2  7.07106E-01       11 T3 -8.64965E-08       11 R1 -5.46747E-08       11 R2  9.99999E-01\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    1     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.2000       5.0000000E+00     1.2874204E+03     3.0572996E-02     3.9582600E+01     1.9680149E+01     1.2874204E+03\r\n        0.1667       5.9998803E+00     1.6037177E+03    -7.3209979E-02     4.1090294E+01    -5.8704067E+01     1.6037177E+03\r\n        0.1429       6.9998603E+00     1.8892721E+03    -8.6503170E-02     4.1491489E+01    -8.1714012E+01     1.8892721E+03\r\n        0.1250       8.0000000E+00     2.1841025E+03    -1.0020997E-01     4.1969803E+01    -1.0943443E+02     2.1841025E+03\r\n        0.1111       9.0000896E+00     1.9975132E+03    -1.0382280E+01     3.4119034E+01    -1.0369371E+04     1.9975132E+03\r\n        0.1000       1.0000000E+01     1.7181267E+03    -1.1323216E+01     2.6412474E+01    -9.7273604E+03     1.7181267E+03\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    2     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.2000       5.0000000E+00     6.9128677E+03     1.0722351E-01     2.1254073E+02     3.7061096E+02     6.9128677E+03\r\n        0.1667       5.9998803E+00     9.8083525E+03     5.8240853E-02     2.5130862E+02     2.8562341E+02     9.8083525E+03\r\n        0.1429       6.9998603E+00     4.1483218E+03    -6.3117208E+00     9.1103897E+01    -1.3091524E+04     4.1483218E+03\r\n        0.1250       8.0000000E+00     2.5764182E+03    -8.8236256E+00     4.9508556E+01    -1.1366675E+04     2.5764182E+03\r\n        0.1111       9.0000896E+00     2.4901931E+03    -1.1443459E-01     4.2534378E+01    -1.4248212E+02     2.4901931E+03\r\n        0.1000       1.0000000E+01     2.8099954E+03    -1.2936074E-01     4.3197590E+01    -1.8175154E+02     2.8099954E+03\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    3     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.2000       5.0000000E+00     8.1558384E+03    -1.0921552E-02     2.5075668E+02    -4.4537205E+01     8.1558384E+03\r\n        0.1667       5.9998803E+00     1.0555138E+04    -2.7270651E+00     2.7044269E+02    -1.4392273E+04     1.0555138E+04\r\n        0.1429       6.9998603E+00     1.1285730E+04     8.4197670E-02     2.4785301E+02     4.7511609E+02     1.1285730E+04\r\n        0.1250       8.0000000E+00     1.2570811E+04     1.1620019E-01     2.4156120E+02     7.3036530E+02     1.2570811E+04\r\n        0.1111       9.0000896E+00     1.3588004E+04     1.5205432E-01     2.3209337E+02     1.0330574E+03     1.3588004E+04\r\n        0.1000       1.0000000E+01     1.4283637E+04     1.8880093E-01     2.1957996E+02     1.3483820E+03     1.4283637E+04\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         4\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         5\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         6\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n1         K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0         V-G AND V-F DATA POINTS                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY                                                                                                       \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY (F)                                          I I  DAMPING (G)                                            I\r\n             I                                                         I I                                                         I\r\n             I  0.000000E+00         1.500000E+02         3.000000E+02 I I -1.200000E+01        -5.000000E+00         2.000000E+00 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  0.0000E+00 I                            I                            I I                            I                            I\r\n  2.9630E+02 I                            I                            I I                            I                            I\r\n  5.9259E+02 I                            I                            I I                            I                            I\r\n  8.8889E+02 I                            I                            I I                            I                            I\r\n  1.1852E+03 I       *                    I                            I I                            I                    *       I\r\n  1.4815E+03 I       *                    I                            I I                            I                   *        I\r\n  1.7778E+03 I    *  *                    I                            I I  *                         I                   *        I\r\n  2.0741E+03 I      **                    I                            I I      *                     I                   *        I\r\n  2.3704E+03 I       0                    I                            I I                            I                   0        I\r\n  2.6667E+03 I       0 0                  I                            I I            0               I                   0        I\r\n  2.9630E+03 I                            I                            I I                            I                            I\r\n  3.2593E+03 I                            I                            I I                            I                            I\r\n  3.5556E+03 I                            I                            I I                            I                            I\r\n  3.8519E+03 I                            I                            I I                            I                            I\r\n  4.1481E+03 I                 0          I                            I I                       0    I                            I\r\n  4.4444E+03 I                            I                            I I                            I                            I\r\n  4.7407E+03 I                            I                            I I                            I                            I\r\n  5.0370E+03 I                            I                            I I                            I                            I\r\n  5.3333E+03 I                            I                            I I                            I                            I\r\n  5.6296E+03 I                            I                            I I                            I                            I\r\n  5.9259E+03 I                            I                            I I                            I                            I\r\n  6.2222E+03 I                            I                            I I                            I                            I\r\n  6.5185E+03 I                            I                            I I                            I                            I\r\n  6.8148E+03 I                            I           0                I I                            I                    0       I\r\n  7.1111E+03 I                            I                            I I                            I                            I\r\n  7.4074E+03 I                            I                            I I                            I                            I\r\n  7.7037E+03 I                            I                            I I                            I                            I\r\n  8.0000E+03 I                            I                            I I                            I                            I\r\n  8.2963E+03 I                            I                  A         I I                            I                    A       I\r\n  8.5926E+03 I                            I                            I I                            I                            I\r\n1 8.8889E+03 I                            I                            I I                            I                            I\r\n  9.1852E+03 I                            I                            I I                            I                            I\r\n  9.4815E+03 I                            I                            I I                            I                            I\r\n  9.7778E+03 I                            I                   0        I I                            I                    0       I\r\n  1.0074E+04 I                            I                            I I                            I                            I\r\n  1.0370E+04 I                            I                            I I                            I                            I\r\n  1.0667E+04 I                            I                      A     I I                            I        A                   I\r\n  1.0963E+04 I                            I                            I I                            I                            I\r\n  1.1259E+04 I                            I                  A         I I                            I                    A       I\r\n  1.1556E+04 I                            I                            I I                            I                            I\r\n  1.1852E+04 I                            I                            I I                            I                            I\r\n  1.2148E+04 I                            I                            I I                            I                            I\r\n  1.2444E+04 I                            I                 A          I I                            I                    A       I\r\n  1.2741E+04 I                            I                            I I                            I                            I\r\n  1.3037E+04 I                            I                            I I                            I                            I\r\n  1.3333E+04 I                            I                            I I                            I                            I\r\n  1.3630E+04 I                            I               A            I I                            I                    A       I\r\n  1.3926E+04 I                            I                            I I                            I                            I\r\n  1.4222E+04 I                            I            A               I I                            I                    A       I\r\n  1.4519E+04 I                            I                            I I                            I                            I\r\n  1.4815E+04 I                            I                            I I                            I                            I\r\n  1.5111E+04 I                            I                            I I                            I                            I\r\n  1.5407E+04 I                            I                            I I                            I                            I\r\n  1.5704E+04 I                            I                            I I                            I                            I\r\n  1.6000E+04 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GMD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PLTPARA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ELSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING        \r\n DATE:  5/17/95\r\n END TIME: 16:12: 6\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d10022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D10022A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   10,0                                                                      \r\n     TIME  10                                                                        \r\n     DIAG  14,18                                                                     \r\n     ALTER 66 $                                                                      \r\n     MATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                                      \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)               \r\n                  3      LABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n                  4          ECHO = BOTH                                                                 \r\n                  5          SPC  = 1                                                                    \r\n                  6        METHOD = 10                                                                   \r\n                  7       CMETHOD = 20                                                                   \r\n                  8       FMETHOD = 30                                                                   \r\n                  9      OUTPUT(XYOUT)                                                                   \r\n                 10       XTITLE  = VELOCITY                                                             \r\n                 11       YTTITLE = DAMPING (G)                                                          \r\n                 12       YBTITLE = FREQUENCY (F)                                                        \r\n                 13       TCURVE  = V-G AND V-F DATA POINTS                                              \r\n                 14      CURVELINESYMBOL = -1                                                            \r\n                 15      XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\n                 16      BEGIN BULK                                                                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              AERO    0       1.3+4   2.0706  1.145-7                                                       \r\n                              CAERO1  101     1       1       6       4                       1       +CA101                \r\n                              +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706                        \r\n                              CBAR    1       1       1       2       0.0     0.0     1.      1                             \r\n                              CBAR    2       1       2       3       0.0     0.0     1.      1                             \r\n                              CBAR    3       1       3       4       0.0     0.0     1.      1                             \r\n                              CBAR    4       1       4       5       0.0     0.0     1.      1                             \r\n                              CBAR    5       1       5       6       0.0     0.0     1.      1                             \r\n                              CBAR    6       1       6       7       0.0     0.0     1.      1                             \r\n                              CBAR    7       1       7       8       0.0     0.0     1.      1                             \r\n                              CBAR    8       1       8       9       0.0     0.0     1.      1                             \r\n                              CBAR    9       1       9       10      0.0     0.0     1.      1                             \r\n                              CBAR    10      1       10      11      0.0     0.0     1.      1                             \r\n                              CMASS2  12      2.8-6   2       5                                                             \r\n                              CMASS2  13      2.8-6   3       5                                                             \r\n                              CMASS2  14      2.8-6   4       5                                                             \r\n                              CMASS2  15      2.8-6   5       5                                                             \r\n                              CMASS2  16      2.8-6   6       5                                                             \r\n                              CMASS2  17      2.8-6   7       5                                                             \r\n                              CMASS2  18      2.8-6   8       5                                                             \r\n                              CMASS2  19      2.8-6   9       5                                                             \r\n                              CMASS2  20      2.8-6   10      5                                                             \r\n                              CMASS2  21      1.4-6   11      5                                                             \r\n                              CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1                   \r\n                              +C1     .96593  -.25882 0.0                                                                   \r\n                              EIGC    20      HESS    MAX                                             +EC                   \r\n                              +EC                                                     3                                     \r\n                              EIGR    10      GIV     .3      .1              6                       +ER                   \r\n                              +ER     MAX                                                                                   \r\n                              FLFACT  1       .967                                                                          \r\n                              FLFACT  2       .45                                                                           \r\n                              FLFACT  3       .2      .16667  .14286  .125    .11111  .1                                    \r\n                              FLUTTER 30      K       1       2       3       L       3                                     \r\n                              GRDSET          1                               1       126                                   \r\n                              GRID    1               0.0     .0      0.0                                                   \r\n                              GRID    2               0.0     .572    0.0                                                   \r\n                              GRID    3               0.0     1.144   0.0                                                   \r\n                              GRID    4               0.0     1.716   0.0                                                   \r\n                              GRID    5               0.0     2.288   0.0                                                   \r\n                              GRID    6               0.0     2.86    0.0                                                   \r\n                              GRID    7               0.0     3.432   0.0                                                   \r\n                              GRID    8               0.0     4.004   0.0                                                   \r\n                              GRID    9               0.0     4.576   0.0                                                   \r\n                              GRID    10              0.0     5.148   0.0                                                   \r\n                              GRID    11              0.0     5.72    0.0                                                   \r\n                              MAT1    1       10.4+6  3.9+6           2.61-4                                                \r\n                              MKAERO1 .45                                                             +MK                   \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +MK     .0001   .1      .2                                                                    \r\n                              PAERO1  1                                                                                     \r\n                              PARAM   COUPMASS1                                                                             \r\n                              PARAM   LMODES  3                                                                             \r\n                              PBAR    1       1       7.175-2 9.83-6          36.8-6                                        \r\n                              SET1    100     1       THRU    11                                                            \r\n                              SPC1    1       345     1                                                                     \r\n                              SPLINE2 100     101     101     124     100     0.0     1.      1       +SP                   \r\n                              +SP     0.0     0.0                                                                           \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     56\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO    0       1.3+4   2.0706  1.145-7                                         \r\n                    2-        CAERO1  101     1       1       6       4                       1       +CA101  \r\n                    3-        +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\n                    4-        CBAR    1       1       1       2       0.0     0.0     1.      1               \r\n                    5-        CBAR    2       1       2       3       0.0     0.0     1.      1               \r\n                    6-        CBAR    3       1       3       4       0.0     0.0     1.      1               \r\n                    7-        CBAR    4       1       4       5       0.0     0.0     1.      1               \r\n                    8-        CBAR    5       1       5       6       0.0     0.0     1.      1               \r\n                    9-        CBAR    6       1       6       7       0.0     0.0     1.      1               \r\n                   10-        CBAR    7       1       7       8       0.0     0.0     1.      1               \r\n                   11-        CBAR    8       1       8       9       0.0     0.0     1.      1               \r\n                   12-        CBAR    9       1       9       10      0.0     0.0     1.      1               \r\n                   13-        CBAR    10      1       10      11      0.0     0.0     1.      1               \r\n                   14-        CMASS2  12      2.8-6   2       5                                               \r\n                   15-        CMASS2  13      2.8-6   3       5                                               \r\n                   16-        CMASS2  14      2.8-6   4       5                                               \r\n                   17-        CMASS2  15      2.8-6   5       5                                               \r\n                   18-        CMASS2  16      2.8-6   6       5                                               \r\n                   19-        CMASS2  17      2.8-6   7       5                                               \r\n                   20-        CMASS2  18      2.8-6   8       5                                               \r\n                   21-        CMASS2  19      2.8-6   9       5                                               \r\n                   22-        CMASS2  20      2.8-6   10      5                                               \r\n                   23-        CMASS2  21      1.4-6   11      5                                               \r\n                   24-        CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n                   25-        +C1     .96593  -.25882 0.0                                                     \r\n                   26-        EIGC    20      HESS    MAX                                             +EC     \r\n                   27-        +EC                                                     3                       \r\n                   28-        EIGR    10      GIV     .3      .1              6                       +ER     \r\n                   29-        +ER     MAX                                                                     \r\n                   30-        FLFACT  1       .967                                                            \r\n                   31-        FLFACT  2       .45                                                             \r\n                   32-        FLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\n                   33-        FLUTTER 30      K       1       2       3       L       3                       \r\n                   34-        GRDSET          1                               1       126                     \r\n                   35-        GRID    1               0.0     .0      0.0                                     \r\n                   36-        GRID    2               0.0     .572    0.0                                     \r\n                   37-        GRID    3               0.0     1.144   0.0                                     \r\n                   38-        GRID    4               0.0     1.716   0.0                                     \r\n                   39-        GRID    5               0.0     2.288   0.0                                     \r\n                   40-        GRID    6               0.0     2.86    0.0                                     \r\n                   41-        GRID    7               0.0     3.432   0.0                                     \r\n                   42-        GRID    8               0.0     4.004   0.0                                     \r\n                   43-        GRID    9               0.0     4.576   0.0                                     \r\n                   44-        GRID    10              0.0     5.148   0.0                                     \r\n                   45-        GRID    11              0.0     5.72    0.0                                     \r\n                   46-        MAT1    1       10.4+6  3.9+6           2.61-4                                  \r\n                   47-        MKAERO1 .45                                                             +MK     \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +MK     .0001   .1      .2                                                      \r\n                   49-        PAERO1  1                                                                       \r\n                   50-        PARAM   COUPMASS1                                                               \r\n                   51-        PARAM   LMODES  3                                                               \r\n                   52-        PBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\n                   53-        SET1    100     1       THRU    11                                              \r\n                   54-        SPC1    1       345     1                                                       \r\n                   55-        SPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n                   56-        +SP     0.0     0.0                                                             \r\n                              ENDDATA\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/           \r\n                   CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/   \r\n                   QKHL=APPEND/ $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/MINUS1=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  COND     ERROR5,NOGPDT $                                                \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      12  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      13  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      14  COND     ERROR1,NOSIMP $                                                \r\n\r\n      15  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      16  PARAM    //*ADD*/NOMGG /1/0 $                                           \r\n\r\n      17  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                           \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      19  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      20  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      21  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      22  LABEL    JMPKGGX $                                                      \r\n\r\n      23  COND     ERROR1,NOMGG $                                                 \r\n\r\n      24  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      25  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      26  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      27  GPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      28  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      29  LABEL    LGPWG $                                                        \r\n\r\n      30  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      31  COND     LBL11,NOGENL $                                                 \r\n\r\n      32  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      33  LABEL    LBL11 $                                                        \r\n\r\n      34  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      35  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/                  \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      36  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      37  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      38  PURGE    GM/MPCF1/DM,MR/REACT $                                         \r\n\r\n      39  COND     LBL2,MPCF1 $                                                   \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  MCE1     USET,RG/GM $                                                   \r\n\r\n      41  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      42  LABEL    LBL2 $                                                         \r\n\r\n      43  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      44  COND     LBL3,SINGLE $                                                  \r\n\r\n      45  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      46  LABEL    LBL3 $                                                         \r\n\r\n      47  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      48  PURGE    GO/OMIT $                                                      \r\n\r\n      49  COND     LBL5,OMIT $                                                    \r\n\r\n      50  PARAM    //*PREC*/PREC $                                                \r\n\r\n      51  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      52  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      53  LABEL    LBL5 $                                                         \r\n\r\n      54  COND     LBL6,REACT $                                                   \r\n\r\n      55  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      56  RBMG2    KLL/LLL/ $                                                     \r\n\r\n      57  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      58  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      59  LABEL    LBL6 $                                                         \r\n\r\n      60  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $                          \r\n\r\n      61  COND     ERROR2,NOEED $                                                 \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      62  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      63  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      64  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      65  COND     ERROR4,NEIGV $                                                 \r\n\r\n      66  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      66  MATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                              \r\n\r\n      67  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      68  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $                    \r\n\r\n      69  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/      \r\n                   *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/                    \r\n                   NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/                          \r\n                   -1/-1/   -1/-1 $                                               \r\n\r\n      70  GKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,        \r\n                   PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/           \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $          \r\n\r\n      71  APD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n                   USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/   \r\n                   S,N,LUSETA/S,N,BOV $                                           \r\n\r\n      72  PARAM    //*MPY*/PFILE/0/1 $                                            \r\n\r\n      73  PURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $                     \r\n\r\n      74  COND     SKPPLT,JUMPPLOT $                                              \r\n\r\n      75  PARAM    //*MPY*/PLTFLG/0/1 $                                           \r\n\r\n      76  PLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/   \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      77  PRTMSG   PLTSETA // $                                                   \r\n\r\n      78  COND     SKPPLT,JUMPPLOT $                                              \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      79  PLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,    ,,,,,,/PLOTX2/  \r\n                   NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      80  PRTMSG   PLOTX2 // $                                                    \r\n\r\n      81  LABEL    SKPPLT $                                                       \r\n\r\n      82  COND     ERROR2,NOEED $                                                 \r\n\r\n      83  GI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $           \r\n\r\n      84  PARAM    //*ADD*/DESTRY/0/1/ $                                          \r\n\r\n      85  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $                \r\n\r\n      86  COND     NODJE,    NODJE $                                              \r\n\r\n      87  INPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $             \r\n\r\n      88  LABEL    NODJE $                                                        \r\n\r\n      89  PARAM    //*ADD*/XQHHL/1/0 $                                            \r\n\r\n      90  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,  \r\n                   QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $                          \r\n\r\n      91  PARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $                                 \r\n\r\n      92  LABEL    LOOPTOP $                                                      \r\n\r\n      93  FA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/            \r\n                   S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $                              \r\n\r\n      94  EQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH,     \r\n                   CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $                           \r\n\r\n      95  COND     VDR,NOCEAD $                                                   \r\n\r\n      96  CEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $       \r\n\r\n      97  COND     LBLZAP,EIGVS $                                                 \r\n\r\n      98  LABEL    VDR $                                                          \r\n\r\n      99  VDR      CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   123/S,N,NOH/S,N,NOP/FMODE $                                    \r\n\r\n     100  COND     LBL16,NOH $                                                    \r\n\r\n     101  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n\r\n     102  LABEL    LBL16 $                                                        \r\n\r\n     103  FA2      PHIH,CLAMA,FSAVE/    PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/       \r\n                   C,Y,VREF=1.0/C,Y,PRINT=YES $                                   \r\n\r\n     104  COND     CONTINUE,TSTART $                                              \r\n\r\n     105  LABEL    LBLZAP $                                                       \r\n\r\n     106  COND     CONTINUE,FLOOP $                                               \r\n\r\n     107  REPT     LOOPTOP,100 $                                                  \r\n\r\n     108  JUMP     ERROR3 $                                                       \r\n\r\n     109  LABEL    CONTINUE $                                                     \r\n\r\n     110  PARAML   XYCDB//*PRES*////NOXYCDB $                                     \r\n\r\n     111  COND     NOXYOUT,NOXYCDB $                                              \r\n\r\n     112  XYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/        \r\n                   S,N,NOXYPL $                                                   \r\n\r\n     113  COND     NOXYOUT,NOXYPL $                                               \r\n\r\n     114  XYPLOT   XYPLTCE// $                                                    \r\n\r\n     115  LABEL    NOXYOUT $                                                      \r\n\r\n     116  PARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $                                \r\n\r\n     117  COND     FINIS,PJUMP $                                                  \r\n\r\n     118  MODACC   CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $       \r\n\r\n     119  ADR      CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/          \r\n                   C,Y,MACH = 0.0/*FLUTTER* $                                     \r\n\r\n     120  DDR1     CPHIH1,PHIDH/CPHID $                                           \r\n\r\n     121  EQUIV    CPHID ,CPHIP/NOA $                                             \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     122  PURGE    QPC/NOA $                                                      \r\n\r\n     123  COND     LBL14,NOA $                                                    \r\n\r\n     124  SDR1     USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $      \r\n\r\n     125  LABEL    LBL14 $                                                        \r\n\r\n     126  EQUIV    CPHID ,CPHIA/NOUE $                                            \r\n\r\n     127  COND     LBLNOE,NOUE $                                                  \r\n\r\n     128  VEC      USETA/RP/*D*/*A*/*E* $                                         \r\n\r\n     129  PARTN    CPHID ,,RP/CPHIA,,,/1/3 $                                      \r\n\r\n     130  LABEL    LBLNOE $                                                       \r\n\r\n     131  MPYAD    GTKA,CPHIA,/CPHIK/1/1/0/PREC $                                 \r\n\r\n     132  UMERGE   USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $                            \r\n\r\n     133  UMERGE   USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $                      \r\n\r\n     134  UMERGE   USETA,QPC,/QPAC/*PA*/*P*/*K* $                                 \r\n\r\n     135  SDR2     CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA,   \r\n                   EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $         \r\n\r\n     136  OFP      OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $                     \r\n\r\n     137  COND     FINIS,JUMPPLOT $                                               \r\n\r\n     138  PLOT     PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,,  \r\n                   /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N,                      \r\n                   PFILE $                                                        \r\n\r\n     139  PRTMSG   PLOTX3// $                                                     \r\n\r\n     140  JUMP     FINIS $                                                        \r\n\r\n     141  LABEL    ERROR3 $                                                       \r\n\r\n     142  PRTPARM  //-3/*FLUTTER* $                                               \r\n\r\n     143  LABEL    ERROR2 $                                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  PRTPARM  //-2/*FLUTTER* $                                               \r\n\r\n     145  LABEL    ERROR1 $                                                       \r\n\r\n     146  PRTPARM  //-1/*FLUTTER* $                                               \r\n\r\n     147  LABEL    ERROR4 $                                                       \r\n\r\n     148  PRTPARM  //-4/*FLUTTER* $                                               \r\n\r\n     149  LABEL    ERROR5 $                                                       \r\n\r\n     150  PRTPARM  //-5/*FLUTTER* $                                               \r\n\r\n     151  LABEL    FINIS $                                                        \r\n\r\n     152  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     153  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS2    ELEMENTS (ELEMENT TYPE  26) STARTING WITH ID       12\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        29        6.304402E+04        2.510857E+02        3.996152E+01        2.677916E-05        1.688266E+00             \r\n        2        30        2.206506E+06        1.485431E+03        2.364137E+02        1.400000E-05        3.089108E+01             \r\n        3        28        2.476139E+06        1.573575E+03        2.504423E+02        2.677572E-05        6.630042E+01             \r\n        4        26        1.942194E+07        4.407033E+03        7.014010E+02        1.420851E-05        2.759567E+02             \r\n        5        27        1.953390E+07        4.419717E+03        7.034197E+02        1.400000E-05        2.734746E+02             \r\n        6        25        5.249256E+07        7.245175E+03        1.153105E+03        1.399999E-05        7.348956E+02             \r\n        7        24        7.468510E+07        8.642055E+03        1.375426E+03        0.0                 0.0                      \r\n        8        23        9.785626E+07        9.892232E+03        1.574398E+03        0.0                 0.0                      \r\n        9        22        1.511845E+08        1.229571E+04        1.956923E+03        0.0                 0.0                      \r\n       10        20        2.047278E+08        1.430831E+04        2.277239E+03        0.0                 0.0                      \r\n       11        21        2.072571E+08        1.439643E+04        2.291262E+03        0.0                 0.0                      \r\n       12        19        2.605854E+08        1.614266E+04        2.569183E+03        0.0                 0.0                      \r\n       13        18        3.059491E+08        1.749140E+04        2.783843E+03        0.0                 0.0                      \r\n       14        17        3.389078E+08        1.840945E+04        2.929954E+03        0.0                 0.0                      \r\n       15        16        3.562351E+08        1.887419E+04        3.003921E+03        0.0                 0.0                      \r\n       16        15        4.594797E+08        2.143548E+04        3.411562E+03        0.0                 0.0                      \r\n       17        14        9.045066E+08        3.007502E+04        4.786587E+03        0.0                 0.0                      \r\n       18        13        1.623464E+09        4.029223E+04        6.412708E+03        0.0                 0.0                      \r\n       19        12        2.714134E+09        5.209736E+04        8.291552E+03        0.0                 0.0                      \r\n       20        11        4.194444E+09        6.476452E+04        1.030759E+04        0.0                 0.0                      \r\n       21        10        7.430217E+09        8.619871E+04        1.371895E+04        0.0                 0.0                      \r\n       22         9        1.084491E+10        1.041389E+05        1.657422E+04        0.0                 0.0                      \r\n       23         8        1.593668E+10        1.262406E+05        2.009181E+04        0.0                 0.0                      \r\n       24         7        2.321477E+10        1.523639E+05        2.424947E+04        0.0                 0.0                      \r\n       25         6        3.352112E+10        1.830877E+05        2.913932E+04        0.0                 0.0                      \r\n       26         5        4.794975E+10        2.189743E+05        3.485085E+04        0.0                 0.0                      \r\n       27         4        6.754208E+10        2.598886E+05        4.136255E+04        0.0                 0.0                      \r\n       28         3        9.205609E+10        3.034075E+05        4.828880E+04        0.0                 0.0                      \r\n       29         2        1.167387E+11        3.416705E+05        5.437855E+04        0.0                 0.0                      \r\n       30         1        1.828392E+11        4.275971E+05        6.805419E+04        0.0                 0.0                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- H).\r\n             2 T3  1.67735E-02        2 R1  5.72388E-02        2 R2  3.01054E-09        3 T3  6.38710E-02        3 R1  1.06035E-01\r\n             3 R2  3.03284E-09        4 T3  1.36483E-01        4 R1  1.46474E-01        4 R2 -7.48494E-09        5 T3  2.29884E-01\r\n             5 R1  1.78774E-01        5 R2 -8.72457E-09        6 T3  3.39523E-01        6 R1  2.03331E-01        6 R2  3.99158E-09\r\n             7 T3  4.61135E-01        7 R1  2.20760E-01        7 R2  7.35782E-11        8 T3  5.90876E-01        8 R1  2.31925E-01\r\n             8 R2 -3.15805E-10        9 T3  7.25478E-01        9 R1  2.37964E-01        9 R2  2.17289E-10       10 T3  8.62400E-01\r\n            10 R1  2.40300E-01       10 R2  5.58286E-10       11 T3  1.00000E+00       11 R1  2.40648E-01       11 R2  4.86563E-10\r\n0COLUMN       2 (       2- H).\r\n             2 T3 -7.46044E-09        2 R1 -1.88336E-08        2 R2  1.56434E-01        3 T3 -2.28561E-08        3 R1 -2.59106E-08\r\n             3 R2  3.09017E-01        4 T3 -2.58240E-08        4 R1 -2.26935E-08        4 R2  4.53990E-01        5 T3 -5.68907E-08\r\n             5 R1 -2.57682E-08        5 R2  5.87785E-01        6 T3 -7.27691E-08        6 R1 -2.17948E-09        6 R2  7.07107E-01\r\n             7 T3 -2.14620E-08        7 R1  2.90025E-08        7 R2  8.09017E-01        8 T3 -5.17652E-08        8 R1  4.09725E-08\r\n             8 R2  8.91007E-01        9 T3 -2.56568E-08        9 R1  5.40314E-08        9 R2  9.51057E-01       10 T3  1.10070E-07\r\n            10 R1  6.21463E-08       10 R2  9.87688E-01       11 T3  2.13897E-08       11 R1  6.16105E-08       11 R2  1.00000E+00\r\n0COLUMN       3 (       3- H).\r\n             2 T3 -9.26293E-02        2 R1 -2.93280E-01        2 R2 -3.47704E-08        3 T3 -3.01055E-01        3 R1 -4.06302E-01\r\n             3 R2 -6.19249E-08        4 T3 -5.26133E-01        4 R1 -3.55778E-01        4 R2 -4.46378E-08        5 T3 -6.83470E-01\r\n             5 R1 -1.76822E-01        5 R2 -7.01620E-08        6 T3 -7.13666E-01        6 R1  7.92204E-02        6 R2 -1.22805E-07\r\n             7 T3 -5.89476E-01        7 R1  3.53042E-01        7 R2 -1.26697E-07        8 T3 -3.17052E-01        8 R1  5.89324E-01\r\n             8 R2 -1.45986E-07        9 T3  7.00358E-02        9 R1  7.49587E-01        9 R2 -1.52911E-07       10 T3  5.23752E-01\r\n            10 R1  8.23344E-01       10 R2 -1.56358E-07       11 T3  1.00000E+00       11 R1  8.35801E-01       11 R2 -1.61307E-07\r\n0COLUMN       4 (       4- H).\r\n             2 T3  1.66212E-01        2 R1  4.79761E-01        2 R2 -3.32192E-07        3 T3  4.40551E-01        3 R1  3.97278E-01\r\n             3 R2 -5.90702E-07        4 T3  5.51134E-01        4 R1 -4.52344E-02        4 R2 -7.67610E-07        5 T3  3.83288E-01\r\n             5 R1 -5.17263E-01        5 R2 -7.29061E-07        6 T3  1.43548E-02        6 R1 -7.07374E-01        6 R2 -5.46079E-07\r\n             7 T3 -3.45266E-01        7 R1 -4.83040E-01        7 R2 -2.34486E-07        8 T3 -4.79119E-01        8 R1  4.54486E-02\r\n             8 R2  1.04545E-07        9 T3 -2.87782E-01        9 R1  6.03327E-01        9 R2  4.31755E-07       10 T3  1.66523E-01\r\n            10 R1  9.34987E-01       10 R2  6.64389E-07       11 T3  7.28774E-01       11 R1  1.00000E+00       11 R2  7.29213E-07\r\n0COLUMN       5 (       5- H).\r\n             2 T3 -1.21821E-07        2 R1 -3.61570E-07        2 R2 -4.53991E-01        3 T3 -3.24342E-07        3 R1 -3.01407E-07\r\n             3 R2 -8.09017E-01        4 T3 -4.35062E-07        4 R1  3.05368E-08        4 R2 -9.87688E-01        5 T3 -2.76111E-07\r\n             5 R1  3.94483E-07        5 R2 -9.51057E-01        6 T3  8.62920E-09        6 R1  5.18704E-07        6 R2 -7.07107E-01\r\n             7 T3  2.43395E-07        7 R1  3.57616E-07        7 R2 -3.09017E-01        8 T3  3.43037E-07        8 R1 -4.78102E-08\r\n             8 R2  1.56435E-01        9 T3  1.93511E-07        9 R1 -4.58635E-07        9 R2  5.87786E-01       10 T3 -6.62254E-08\r\n            10 R1 -6.86214E-07       10 R2  8.91007E-01       11 T3 -6.01408E-07       11 R1 -7.47646E-07       11 R2  1.00000E+00\r\n0COLUMN       6 (       6- H).\r\n             2 T3  2.18324E-09        2 R1  1.29194E-08        2 R2  7.07107E-01        3 T3  3.18404E-09        3 R1  2.75766E-09\r\n             3 R2  1.00000E+00        4 T3  1.93508E-08        4 R1 -2.43256E-08        4 R2  7.07107E-01        5 T3 -3.49928E-09\r\n             5 R1 -7.19701E-09        5 R2 -4.07056E-07        6 T3  2.49600E-10        6 R1  7.66200E-09        6 R2 -7.07107E-01\r\n             7 T3 -4.19797E-08        7 R1  1.57023E-08        7 R2 -1.00000E+00        8 T3  1.80972E-08        8 R1  9.91273E-09\r\n             8 R2 -7.07106E-01        9 T3  1.56192E-08        9 R1 -2.44623E-08        9 R2  4.28747E-07       10 T3  4.15805E-08\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n            10 R1 -1.38289E-08       10 R2  7.07106E-01       11 T3 -8.64965E-08       11 R1 -5.46747E-08       11 R2  9.99999E-01\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    1     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.2000       5.0000000E+00     1.2874235E+03     3.0572511E-02     3.9582695E+01     1.9679884E+01     1.2874235E+03\r\n        0.2000       5.0000000E+00     6.9128682E+03     1.0722353E-01     2.1254073E+02     3.7061105E+02     6.9128682E+03\r\n        0.2000       5.0000000E+00     8.1558389E+03    -1.0921556E-02     2.5075670E+02    -4.4537224E+01     8.1558389E+03\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    2     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1667       5.9998803E+00     1.6037052E+03    -7.3212676E-02     4.1089977E+01    -5.8705772E+01     1.6037052E+03\r\n        0.1667       5.9998803E+00     9.8083525E+03     5.8240879E-02     2.5130862E+02     2.8562354E+02     9.8083525E+03\r\n        0.1667       5.9998803E+00     1.0555138E+04    -2.7270653E+00     2.7044269E+02    -1.4392275E+04     1.0555138E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    3     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1429       6.9998603E+00     1.8892764E+03    -8.6502783E-02     4.1491585E+01    -8.1713829E+01     1.8892764E+03\r\n        0.1429       6.9998603E+00     4.1483213E+03    -6.3117223E+00     9.1103889E+01    -1.3091526E+04     4.1483213E+03\r\n        0.1429       6.9998603E+00     1.1285730E+04     8.4197730E-02     2.4785301E+02     4.7511642E+02     1.1285730E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    4     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1250       8.0000000E+00     2.1840916E+03    -1.0021098E-01     4.1969593E+01    -1.0943497E+02     2.1840916E+03\r\n        0.1250       8.0000000E+00     2.5764182E+03    -8.8236246E+00     4.9508556E+01    -1.1366674E+04     2.5764182E+03\r\n        0.1250       8.0000000E+00     1.2570813E+04     1.1619978E-01     2.4156126E+02     7.3036292E+02     1.2570813E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    5     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1111       9.0000896E+00     1.9975138E+03    -1.0382277E+01     3.4119041E+01    -1.0369371E+04     1.9975138E+03\r\n        0.1111       9.0000896E+00     2.4902073E+03    -1.1443201E-01     4.2534618E+01    -1.4247971E+02     2.4902073E+03\r\n        0.1111       9.0000896E+00     1.3588002E+04     1.5205437E-01     2.3209334E+02     1.0330575E+03     1.3588002E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    2     CBAR =    0\r\n                                        R =    2\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     3)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    6     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.7181267E+03    -1.1323216E+01     2.6412474E+01    -9.7273604E+03     1.7181267E+03\r\n        0.1000       1.0000000E+01     2.8099841E+03    -1.2936279E-01     4.3197414E+01    -1.8175369E+02     2.8099841E+03\r\n        0.1000       1.0000000E+01     1.4283638E+04     1.8880087E-01     2.1957997E+02     1.3483816E+03     1.4283638E+04\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)                                                                        \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0         V-G AND V-F DATA POINTS                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY                                                                                                       \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY (F)                                          I I  DAMPING (G)                                            I\r\n             I                                                         I I                                                         I\r\n             I  0.000000E+00         1.500000E+02         3.000000E+02 I I -1.200000E+01        -5.000000E+00         2.000000E+00 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  0.0000E+00 I                            I                            I I                            I                            I\r\n  2.9630E+02 I                            I                            I I                            I                            I\r\n  5.9259E+02 I                            I                            I I                            I                            I\r\n  8.8889E+02 I                            I                            I I                            I                            I\r\n  1.1852E+03 I       *                    I                            I I                            I                    *       I\r\n  1.4815E+03 I       0                    I                            I I                            I                   0        I\r\n  1.7778E+03 I    D  A                    I                            I I  D                         I                   A        I\r\n  2.0741E+03 I      CB                    I                            I I      C                     I                   B        I\r\n  2.3704E+03 I       C                    I                            I I                            I                   C        I\r\n  2.6667E+03 I       D B                  I                            I I            B               I                   D        I\r\n  2.9630E+03 I                            I                            I I                            I                            I\r\n  3.2593E+03 I                            I                            I I                            I                            I\r\n  3.5556E+03 I                            I                            I I                            I                            I\r\n  3.8519E+03 I                            I                            I I                            I                            I\r\n  4.1481E+03 I                 A          I                            I I                       A    I                            I\r\n  4.4444E+03 I                            I                            I I                            I                            I\r\n  4.7407E+03 I                            I                            I I                            I                            I\r\n  5.0370E+03 I                            I                            I I                            I                            I\r\n  5.3333E+03 I                            I                            I I                            I                            I\r\n  5.6296E+03 I                            I                            I I                            I                            I\r\n  5.9259E+03 I                            I                            I I                            I                            I\r\n  6.2222E+03 I                            I                            I I                            I                            I\r\n  6.5185E+03 I                            I                            I I                            I                            I\r\n  6.8148E+03 I                            I           *                I I                            I                    *       I\r\n  7.1111E+03 I                            I                            I I                            I                            I\r\n  7.4074E+03 I                            I                            I I                            I                            I\r\n  7.7037E+03 I                            I                            I I                            I                            I\r\n  8.0000E+03 I                            I                            I I                            I                            I\r\n  8.2963E+03 I                            I                  *         I I                            I                    *       I\r\n  8.5926E+03 I                            I                            I I                            I                            I\r\n1 8.8889E+03 I                            I                            I I                            I                            I\r\n  9.1852E+03 I                            I                            I I                            I                            I\r\n  9.4815E+03 I                            I                            I I                            I                            I\r\n  9.7778E+03 I                            I                   0        I I                            I                    0       I\r\n  1.0074E+04 I                            I                            I I                            I                            I\r\n  1.0370E+04 I                            I                            I I                            I                            I\r\n  1.0667E+04 I                            I                      0     I I                            I        0                   I\r\n  1.0963E+04 I                            I                            I I                            I                            I\r\n  1.1259E+04 I                            I                  A         I I                            I                    A       I\r\n  1.1556E+04 I                            I                            I I                            I                            I\r\n  1.1852E+04 I                            I                            I I                            I                            I\r\n  1.2148E+04 I                            I                            I I                            I                            I\r\n  1.2444E+04 I                            I                 B          I I                            I                    B       I\r\n  1.2741E+04 I                            I                            I I                            I                            I\r\n  1.3037E+04 I                            I                            I I                            I                            I\r\n  1.3333E+04 I                            I                            I I                            I                            I\r\n  1.3630E+04 I                            I               C            I I                            I                    C       I\r\n  1.3926E+04 I                            I                            I I                            I                            I\r\n  1.4222E+04 I                            I            D               I I                            I                    D       I\r\n  1.4519E+04 I                            I                            I I                            I                            I\r\n  1.4815E+04 I                            I                            I I                            I                            I\r\n  1.5111E+04 I                            I                            I I                            I                            I\r\n  1.5407E+04 I                            I                            I I                            I                            I\r\n  1.5704E+04 I                            I                            I I                            I                            I\r\n  1.6000E+04 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GMD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PLTPARA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ELSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING        \r\n DATE:  5/17/95\r\n END TIME: 16:12:38\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d10023a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D10023A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   10,0                                                                      \r\n     TIME  10                                                                        \r\n     DIAG  14,18                                                                     \r\n     ALTER    66 $                                                                   \r\n     MATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                                      \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)              \r\n                  3      LABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n                  4          ECHO = BOTH                                                                 \r\n                  5           SPC = 1                                                                    \r\n                  6        METHOD = 10                                                                   \r\n                  7       CMETHOD = 20                                                                   \r\n                  8       FMETHOD = 30                                                                   \r\n                  9      OUTPUT(XYOUT)                                                                   \r\n                 10       XTITLE  = VELOCITY                                                             \r\n                 11       YTTITLE = DAMPING (G)                                                          \r\n                 12       YBTITLE = FREQUENCY (F)                                                        \r\n                 13       TCURVE  = V-G AND V-F DATA POINTS                                              \r\n                 14      CURVELINESYMBOL = -1                                                            \r\n                 15      XYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\n                 16      BEGIN BULK                                                                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              AERO    0       1.3+4   2.0706  1.145-7                                                       \r\n                              CAERO1  101     1       1       6       4                       1       +CA101                \r\n                              +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706                        \r\n                              CBAR    1       1       1       2       0.0     0.0     1.      1                             \r\n                              CBAR    2       1       2       3       0.0     0.0     1.      1                             \r\n                              CBAR    3       1       3       4       0.0     0.0     1.      1                             \r\n                              CBAR    4       1       4       5       0.0     0.0     1.      1                             \r\n                              CBAR    5       1       5       6       0.0     0.0     1.      1                             \r\n                              CBAR    6       1       6       7       0.0     0.0     1.      1                             \r\n                              CBAR    7       1       7       8       0.0     0.0     1.      1                             \r\n                              CBAR    8       1       8       9       0.0     0.0     1.      1                             \r\n                              CBAR    9       1       9       10      0.0     0.0     1.      1                             \r\n                              CBAR    10      1       10      11      0.0     0.0     1.      1                             \r\n                              CMASS2  12      2.8-6   2       5                                                             \r\n                              CMASS2  13      2.8-6   3       5                                                             \r\n                              CMASS2  14      2.8-6   4       5                                                             \r\n                              CMASS2  15      2.8-6   5       5                                                             \r\n                              CMASS2  16      2.8-6   6       5                                                             \r\n                              CMASS2  17      2.8-6   7       5                                                             \r\n                              CMASS2  18      2.8-6   8       5                                                             \r\n                              CMASS2  19      2.8-6   9       5                                                             \r\n                              CMASS2  20      2.8-6   10      5                                                             \r\n                              CMASS2  21      1.4-6   11      5                                                             \r\n                              CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1                   \r\n                              +C1     .96593  -.25882 0.0                                                                   \r\n                              EIGC    20      HESS    MAX                                             +EC                   \r\n                              +EC                                                     3                                     \r\n                              EIGR    10      GIV     .3      .1              6                       +ER                   \r\n                              +ER     MAX                                                                                   \r\n                              FLFACT  1       .967                                                                          \r\n                              FLFACT  2       .45                                                                           \r\n                              FLFACT  3       .2      .16667  .14286  .125    .11111  .1                                    \r\n                              FLFACT  4       4000.   5000.   5500.   5980.   6100.   6200.                                 \r\n                              FLUTTER 30      PK      1       2       4       L       3                                     \r\n                              GRDSET          1                               1       126                                   \r\n                              GRID    1               0.0     .0      0.0                                                   \r\n                              GRID    2               0.0     .572    0.0                                                   \r\n                              GRID    3               0.0     1.144   0.0                                                   \r\n                              GRID    4               0.0     1.716   0.0                                                   \r\n                              GRID    5               0.0     2.288   0.0                                                   \r\n                              GRID    6               0.0     2.86    0.0                                                   \r\n                              GRID    7               0.0     3.432   0.0                                                   \r\n                              GRID    8               0.0     4.004   0.0                                                   \r\n                              GRID    9               0.0     4.576   0.0                                                   \r\n                              GRID    10              0.0     5.148   0.0                                                   \r\n                              GRID    11              0.0     5.72    0.0                                                   \r\n                              MAT1    1       10.4+6  3.9+6           2.61-4                                                \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              MKAERO1 .45                                                             +MK                   \r\n                              +MK     .0001   .1      .2                                                                    \r\n                              PAERO1  1                                                                                     \r\n                              PARAM   COUPMASS1                                                                             \r\n                              PARAM   LMODES  3                                                                             \r\n                              PBAR    1       1       7.175-2 9.83-6          36.8-6                                        \r\n                              SET1    100     1       THRU    11                                                            \r\n                              SPC1    1       345     1                                                                     \r\n                              SPLINE2 100     101     101     124     100     0.0     1.      1       +SP                   \r\n                              +SP     0.0     0.0                                                                           \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     57\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO    0       1.3+4   2.0706  1.145-7                                         \r\n                    2-        CAERO1  101     1       1       6       4                       1       +CA101  \r\n                    3-        +CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\n                    4-        CBAR    1       1       1       2       0.0     0.0     1.      1               \r\n                    5-        CBAR    2       1       2       3       0.0     0.0     1.      1               \r\n                    6-        CBAR    3       1       3       4       0.0     0.0     1.      1               \r\n                    7-        CBAR    4       1       4       5       0.0     0.0     1.      1               \r\n                    8-        CBAR    5       1       5       6       0.0     0.0     1.      1               \r\n                    9-        CBAR    6       1       6       7       0.0     0.0     1.      1               \r\n                   10-        CBAR    7       1       7       8       0.0     0.0     1.      1               \r\n                   11-        CBAR    8       1       8       9       0.0     0.0     1.      1               \r\n                   12-        CBAR    9       1       9       10      0.0     0.0     1.      1               \r\n                   13-        CBAR    10      1       10      11      0.0     0.0     1.      1               \r\n                   14-        CMASS2  12      2.8-6   2       5                                               \r\n                   15-        CMASS2  13      2.8-6   3       5                                               \r\n                   16-        CMASS2  14      2.8-6   4       5                                               \r\n                   17-        CMASS2  15      2.8-6   5       5                                               \r\n                   18-        CMASS2  16      2.8-6   6       5                                               \r\n                   19-        CMASS2  17      2.8-6   7       5                                               \r\n                   20-        CMASS2  18      2.8-6   8       5                                               \r\n                   21-        CMASS2  19      2.8-6   9       5                                               \r\n                   22-        CMASS2  20      2.8-6   10      5                                               \r\n                   23-        CMASS2  21      1.4-6   11      5                                               \r\n                   24-        CORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n                   25-        +C1     .96593  -.25882 0.0                                                     \r\n                   26-        EIGC    20      HESS    MAX                                             +EC     \r\n                   27-        +EC                                                     3                       \r\n                   28-        EIGR    10      GIV     .3      .1              6                       +ER     \r\n                   29-        +ER     MAX                                                                     \r\n                   30-        FLFACT  1       .967                                                            \r\n                   31-        FLFACT  2       .45                                                             \r\n                   32-        FLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\n                   33-        FLFACT  4       4000.   5000.   5500.   5980.   6100.   6200.                   \r\n                   34-        FLUTTER 30      PK      1       2       4       L       3                       \r\n                   35-        GRDSET          1                               1       126                     \r\n                   36-        GRID    1               0.0     .0      0.0                                     \r\n                   37-        GRID    2               0.0     .572    0.0                                     \r\n                   38-        GRID    3               0.0     1.144   0.0                                     \r\n                   39-        GRID    4               0.0     1.716   0.0                                     \r\n                   40-        GRID    5               0.0     2.288   0.0                                     \r\n                   41-        GRID    6               0.0     2.86    0.0                                     \r\n                   42-        GRID    7               0.0     3.432   0.0                                     \r\n                   43-        GRID    8               0.0     4.004   0.0                                     \r\n                   44-        GRID    9               0.0     4.576   0.0                                     \r\n                   45-        GRID    10              0.0     5.148   0.0                                     \r\n                   46-        GRID    11              0.0     5.72    0.0                                     \r\n                   47-        MAT1    1       10.4+6  3.9+6           2.61-4                                  \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        MKAERO1 .45                                                             +MK     \r\n                   49-        +MK     .0001   .1      .2                                                      \r\n                   50-        PAERO1  1                                                                       \r\n                   51-        PARAM   COUPMASS1                                                               \r\n                   52-        PARAM   LMODES  3                                                               \r\n                   53-        PBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\n                   54-        SET1    100     1       THRU    11                                              \r\n                   55-        SPC1    1       345     1                                                       \r\n                   56-        SPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n                   57-        +SP     0.0     0.0                                                             \r\n                              ENDDATA\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/           \r\n                   CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/   \r\n                   QKHL=APPEND/ $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/MINUS1=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  COND     ERROR5,NOGPDT $                                                \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      12  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      13  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      14  COND     ERROR1,NOSIMP $                                                \r\n\r\n      15  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      16  PARAM    //*ADD*/NOMGG /1/0 $                                           \r\n\r\n      17  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                           \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      19  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      20  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      21  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      22  LABEL    JMPKGGX $                                                      \r\n\r\n      23  COND     ERROR1,NOMGG $                                                 \r\n\r\n      24  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      25  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      26  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      27  GPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      28  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      29  LABEL    LGPWG $                                                        \r\n\r\n      30  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      31  COND     LBL11,NOGENL $                                                 \r\n\r\n      32  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      33  LABEL    LBL11 $                                                        \r\n\r\n      34  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      35  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/                  \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      36  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      37  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      38  PURGE    GM/MPCF1/DM,MR/REACT $                                         \r\n\r\n      39  COND     LBL2,MPCF1 $                                                   \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  MCE1     USET,RG/GM $                                                   \r\n\r\n      41  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      42  LABEL    LBL2 $                                                         \r\n\r\n      43  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      44  COND     LBL3,SINGLE $                                                  \r\n\r\n      45  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      46  LABEL    LBL3 $                                                         \r\n\r\n      47  EQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $                                   \r\n\r\n      48  PURGE    GO/OMIT $                                                      \r\n\r\n      49  COND     LBL5,OMIT $                                                    \r\n\r\n      50  PARAM    //*PREC*/PREC $                                                \r\n\r\n      51  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      52  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      53  LABEL    LBL5 $                                                         \r\n\r\n      54  COND     LBL6,REACT $                                                   \r\n\r\n      55  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      56  RBMG2    KLL/LLL/ $                                                     \r\n\r\n      57  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      58  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      59  LABEL    LBL6 $                                                         \r\n\r\n      60  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $                          \r\n\r\n      61  COND     ERROR2,NOEED $                                                 \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      62  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      63  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      64  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      65  COND     ERROR4,NEIGV $                                                 \r\n\r\n      66  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      66  MATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                              \r\n\r\n      67  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      68  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $                    \r\n\r\n      69  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/      \r\n                   *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/                    \r\n                   NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/                          \r\n                   -1/-1/   -1/-1 $                                               \r\n\r\n      70  GKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,        \r\n                   PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/           \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $          \r\n\r\n      71  APD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n                   USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/   \r\n                   S,N,LUSETA/S,N,BOV $                                           \r\n\r\n      72  PARAM    //*MPY*/PFILE/0/1 $                                            \r\n\r\n      73  PURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $                     \r\n\r\n      74  COND     SKPPLT,JUMPPLOT $                                              \r\n\r\n      75  PARAM    //*MPY*/PLTFLG/0/1 $                                           \r\n\r\n      76  PLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/   \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      77  PRTMSG   PLTSETA // $                                                   \r\n\r\n      78  COND     SKPPLT,JUMPPLOT $                                              \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      79  PLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,    ,,,,,,/PLOTX2/  \r\n                   NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      80  PRTMSG   PLOTX2 // $                                                    \r\n\r\n      81  LABEL    SKPPLT $                                                       \r\n\r\n      82  COND     ERROR2,NOEED $                                                 \r\n\r\n      83  GI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $           \r\n\r\n      84  PARAM    //*ADD*/DESTRY/0/1/ $                                          \r\n\r\n      85  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $                \r\n\r\n      86  COND     NODJE,    NODJE $                                              \r\n\r\n      87  INPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $             \r\n\r\n      88  LABEL    NODJE $                                                        \r\n\r\n      89  PARAM    //*ADD*/XQHHL/1/0 $                                            \r\n\r\n      90  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,  \r\n                   QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $                          \r\n\r\n      91  PARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $                                 \r\n\r\n      92  LABEL    LOOPTOP $                                                      \r\n\r\n      93  FA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/            \r\n                   S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $                              \r\n\r\n      94  EQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH,     \r\n                   CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $                           \r\n\r\n      95  COND     VDR,NOCEAD $                                                   \r\n\r\n      96  CEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $       \r\n\r\n      97  COND     LBLZAP,EIGVS $                                                 \r\n\r\n      98  LABEL    VDR $                                                          \r\n\r\n      99  VDR      CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   123/S,N,NOH/S,N,NOP/FMODE $                                    \r\n\r\n     100  COND     LBL16,NOH $                                                    \r\n\r\n     101  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n\r\n     102  LABEL    LBL16 $                                                        \r\n\r\n     103  FA2      PHIH,CLAMA,FSAVE/    PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/       \r\n                   C,Y,VREF=1.0/C,Y,PRINT=YES $                                   \r\n\r\n     104  COND     CONTINUE,TSTART $                                              \r\n\r\n     105  LABEL    LBLZAP $                                                       \r\n\r\n     106  COND     CONTINUE,FLOOP $                                               \r\n\r\n     107  REPT     LOOPTOP,100 $                                                  \r\n\r\n     108  JUMP     ERROR3 $                                                       \r\n\r\n     109  LABEL    CONTINUE $                                                     \r\n\r\n     110  PARAML   XYCDB//*PRES*////NOXYCDB $                                     \r\n\r\n     111  COND     NOXYOUT,NOXYCDB $                                              \r\n\r\n     112  XYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/        \r\n                   S,N,NOXYPL $                                                   \r\n\r\n     113  COND     NOXYOUT,NOXYPL $                                               \r\n\r\n     114  XYPLOT   XYPLTCE// $                                                    \r\n\r\n     115  LABEL    NOXYOUT $                                                      \r\n\r\n     116  PARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $                                \r\n\r\n     117  COND     FINIS,PJUMP $                                                  \r\n\r\n     118  MODACC   CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $       \r\n\r\n     119  ADR      CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/          \r\n                   C,Y,MACH = 0.0/*FLUTTER* $                                     \r\n\r\n     120  DDR1     CPHIH1,PHIDH/CPHID $                                           \r\n\r\n     121  EQUIV    CPHID ,CPHIP/NOA $                                             \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     122  PURGE    QPC/NOA $                                                      \r\n\r\n     123  COND     LBL14,NOA $                                                    \r\n\r\n     124  SDR1     USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $      \r\n\r\n     125  LABEL    LBL14 $                                                        \r\n\r\n     126  EQUIV    CPHID ,CPHIA/NOUE $                                            \r\n\r\n     127  COND     LBLNOE,NOUE $                                                  \r\n\r\n     128  VEC      USETA/RP/*D*/*A*/*E* $                                         \r\n\r\n     129  PARTN    CPHID ,,RP/CPHIA,,,/1/3 $                                      \r\n\r\n     130  LABEL    LBLNOE $                                                       \r\n\r\n     131  MPYAD    GTKA,CPHIA,/CPHIK/1/1/0/PREC $                                 \r\n\r\n     132  UMERGE   USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $                            \r\n\r\n     133  UMERGE   USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $                      \r\n\r\n     134  UMERGE   USETA,QPC,/QPAC/*PA*/*P*/*K* $                                 \r\n\r\n     135  SDR2     CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA,   \r\n                   EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $         \r\n\r\n     136  OFP      OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $                     \r\n\r\n     137  COND     FINIS,JUMPPLOT $                                               \r\n\r\n     138  PLOT     PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,,  \r\n                   /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N,                      \r\n                   PFILE $                                                        \r\n\r\n     139  PRTMSG   PLOTX3// $                                                     \r\n\r\n     140  JUMP     FINIS $                                                        \r\n\r\n     141  LABEL    ERROR3 $                                                       \r\n\r\n     142  PRTPARM  //-3/*FLUTTER* $                                               \r\n\r\n     143  LABEL    ERROR2 $                                                       \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     144  PRTPARM  //-2/*FLUTTER* $                                               \r\n\r\n     145  LABEL    ERROR1 $                                                       \r\n\r\n     146  PRTPARM  //-1/*FLUTTER* $                                               \r\n\r\n     147  LABEL    ERROR4 $                                                       \r\n\r\n     148  PRTPARM  //-4/*FLUTTER* $                                               \r\n\r\n     149  LABEL    ERROR5 $                                                       \r\n\r\n     150  PRTPARM  //-5/*FLUTTER* $                                               \r\n\r\n     151  LABEL    FINIS $                                                        \r\n\r\n     152  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     153  END      $                                                              \r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS2    ELEMENTS (ELEMENT TYPE  26) STARTING WITH ID       12\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        29        6.304402E+04        2.510857E+02        3.996152E+01        2.677916E-05        1.688266E+00             \r\n        2        30        2.206506E+06        1.485431E+03        2.364137E+02        1.400000E-05        3.089108E+01             \r\n        3        28        2.476139E+06        1.573575E+03        2.504423E+02        2.677572E-05        6.630042E+01             \r\n        4        26        1.942194E+07        4.407033E+03        7.014010E+02        1.420851E-05        2.759567E+02             \r\n        5        27        1.953390E+07        4.419717E+03        7.034197E+02        1.400000E-05        2.734746E+02             \r\n        6        25        5.249256E+07        7.245175E+03        1.153105E+03        1.399999E-05        7.348956E+02             \r\n        7        24        7.468510E+07        8.642055E+03        1.375426E+03        0.0                 0.0                      \r\n        8        23        9.785626E+07        9.892232E+03        1.574398E+03        0.0                 0.0                      \r\n        9        22        1.511845E+08        1.229571E+04        1.956923E+03        0.0                 0.0                      \r\n       10        20        2.047278E+08        1.430831E+04        2.277239E+03        0.0                 0.0                      \r\n       11        21        2.072571E+08        1.439643E+04        2.291262E+03        0.0                 0.0                      \r\n       12        19        2.605854E+08        1.614266E+04        2.569183E+03        0.0                 0.0                      \r\n       13        18        3.059491E+08        1.749140E+04        2.783843E+03        0.0                 0.0                      \r\n       14        17        3.389078E+08        1.840945E+04        2.929954E+03        0.0                 0.0                      \r\n       15        16        3.562351E+08        1.887419E+04        3.003921E+03        0.0                 0.0                      \r\n       16        15        4.594797E+08        2.143548E+04        3.411562E+03        0.0                 0.0                      \r\n       17        14        9.045066E+08        3.007502E+04        4.786587E+03        0.0                 0.0                      \r\n       18        13        1.623464E+09        4.029223E+04        6.412708E+03        0.0                 0.0                      \r\n       19        12        2.714134E+09        5.209736E+04        8.291552E+03        0.0                 0.0                      \r\n       20        11        4.194444E+09        6.476452E+04        1.030759E+04        0.0                 0.0                      \r\n       21        10        7.430217E+09        8.619871E+04        1.371895E+04        0.0                 0.0                      \r\n       22         9        1.084491E+10        1.041389E+05        1.657422E+04        0.0                 0.0                      \r\n       23         8        1.593668E+10        1.262406E+05        2.009181E+04        0.0                 0.0                      \r\n       24         7        2.321477E+10        1.523639E+05        2.424947E+04        0.0                 0.0                      \r\n       25         6        3.352112E+10        1.830877E+05        2.913932E+04        0.0                 0.0                      \r\n       26         5        4.794975E+10        2.189743E+05        3.485085E+04        0.0                 0.0                      \r\n       27         4        6.754208E+10        2.598886E+05        4.136255E+04        0.0                 0.0                      \r\n       28         3        9.205609E+10        3.034075E+05        4.828880E+04        0.0                 0.0                      \r\n       29         2        1.167387E+11        3.416705E+05        5.437855E+04        0.0                 0.0                      \r\n       30         1        1.828392E+11        4.275971E+05        6.805419E+04        0.0                 0.0                      \r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n0COLUMN       1 (       1- H).\r\n             2 T3  1.67735E-02        2 R1  5.72388E-02        2 R2  3.01054E-09        3 T3  6.38710E-02        3 R1  1.06035E-01\r\n             3 R2  3.03284E-09        4 T3  1.36483E-01        4 R1  1.46474E-01        4 R2 -7.48494E-09        5 T3  2.29884E-01\r\n             5 R1  1.78774E-01        5 R2 -8.72457E-09        6 T3  3.39523E-01        6 R1  2.03331E-01        6 R2  3.99158E-09\r\n             7 T3  4.61135E-01        7 R1  2.20760E-01        7 R2  7.35782E-11        8 T3  5.90876E-01        8 R1  2.31925E-01\r\n             8 R2 -3.15805E-10        9 T3  7.25478E-01        9 R1  2.37964E-01        9 R2  2.17289E-10       10 T3  8.62400E-01\r\n            10 R1  2.40300E-01       10 R2  5.58286E-10       11 T3  1.00000E+00       11 R1  2.40648E-01       11 R2  4.86563E-10\r\n0COLUMN       2 (       2- H).\r\n             2 T3 -7.46044E-09        2 R1 -1.88336E-08        2 R2  1.56434E-01        3 T3 -2.28561E-08        3 R1 -2.59106E-08\r\n             3 R2  3.09017E-01        4 T3 -2.58240E-08        4 R1 -2.26935E-08        4 R2  4.53990E-01        5 T3 -5.68907E-08\r\n             5 R1 -2.57682E-08        5 R2  5.87785E-01        6 T3 -7.27691E-08        6 R1 -2.17948E-09        6 R2  7.07107E-01\r\n             7 T3 -2.14620E-08        7 R1  2.90025E-08        7 R2  8.09017E-01        8 T3 -5.17652E-08        8 R1  4.09725E-08\r\n             8 R2  8.91007E-01        9 T3 -2.56568E-08        9 R1  5.40314E-08        9 R2  9.51057E-01       10 T3  1.10070E-07\r\n            10 R1  6.21463E-08       10 R2  9.87688E-01       11 T3  2.13897E-08       11 R1  6.16105E-08       11 R2  1.00000E+00\r\n0COLUMN       3 (       3- H).\r\n             2 T3 -9.26293E-02        2 R1 -2.93280E-01        2 R2 -3.47704E-08        3 T3 -3.01055E-01        3 R1 -4.06302E-01\r\n             3 R2 -6.19249E-08        4 T3 -5.26133E-01        4 R1 -3.55778E-01        4 R2 -4.46378E-08        5 T3 -6.83470E-01\r\n             5 R1 -1.76822E-01        5 R2 -7.01620E-08        6 T3 -7.13666E-01        6 R1  7.92204E-02        6 R2 -1.22805E-07\r\n             7 T3 -5.89476E-01        7 R1  3.53042E-01        7 R2 -1.26697E-07        8 T3 -3.17052E-01        8 R1  5.89324E-01\r\n             8 R2 -1.45986E-07        9 T3  7.00358E-02        9 R1  7.49587E-01        9 R2 -1.52911E-07       10 T3  5.23752E-01\r\n            10 R1  8.23344E-01       10 R2 -1.56358E-07       11 T3  1.00000E+00       11 R1  8.35801E-01       11 R2 -1.61307E-07\r\n0COLUMN       4 (       4- H).\r\n             2 T3  1.66212E-01        2 R1  4.79761E-01        2 R2 -3.32192E-07        3 T3  4.40551E-01        3 R1  3.97278E-01\r\n             3 R2 -5.90702E-07        4 T3  5.51134E-01        4 R1 -4.52344E-02        4 R2 -7.67610E-07        5 T3  3.83288E-01\r\n             5 R1 -5.17263E-01        5 R2 -7.29061E-07        6 T3  1.43548E-02        6 R1 -7.07374E-01        6 R2 -5.46079E-07\r\n             7 T3 -3.45266E-01        7 R1 -4.83040E-01        7 R2 -2.34486E-07        8 T3 -4.79119E-01        8 R1  4.54486E-02\r\n             8 R2  1.04545E-07        9 T3 -2.87782E-01        9 R1  6.03327E-01        9 R2  4.31755E-07       10 T3  1.66523E-01\r\n            10 R1  9.34987E-01       10 R2  6.64389E-07       11 T3  7.28774E-01       11 R1  1.00000E+00       11 R2  7.29213E-07\r\n0COLUMN       5 (       5- H).\r\n             2 T3 -1.21821E-07        2 R1 -3.61570E-07        2 R2 -4.53991E-01        3 T3 -3.24342E-07        3 R1 -3.01407E-07\r\n             3 R2 -8.09017E-01        4 T3 -4.35062E-07        4 R1  3.05368E-08        4 R2 -9.87688E-01        5 T3 -2.76111E-07\r\n             5 R1  3.94483E-07        5 R2 -9.51057E-01        6 T3  8.62920E-09        6 R1  5.18704E-07        6 R2 -7.07107E-01\r\n             7 T3  2.43395E-07        7 R1  3.57616E-07        7 R2 -3.09017E-01        8 T3  3.43037E-07        8 R1 -4.78102E-08\r\n             8 R2  1.56435E-01        9 T3  1.93511E-07        9 R1 -4.58635E-07        9 R2  5.87786E-01       10 T3 -6.62254E-08\r\n            10 R1 -6.86214E-07       10 R2  8.91007E-01       11 T3 -6.01408E-07       11 R1 -7.47646E-07       11 R2  1.00000E+00\r\n0COLUMN       6 (       6- H).\r\n             2 T3  2.18324E-09        2 R1  1.29194E-08        2 R2  7.07107E-01        3 T3  3.18404E-09        3 R1  2.75766E-09\r\n             3 R2  1.00000E+00        4 T3  1.93508E-08        4 R1 -2.43256E-08        4 R2  7.07107E-01        5 T3 -3.49928E-09\r\n             5 R1 -7.19701E-09        5 R2 -4.07056E-07        6 T3  2.49600E-10        6 R1  7.66200E-09        6 R2 -7.07107E-01\r\n             7 T3 -4.19797E-08        7 R1  1.57023E-08        7 R2 -1.00000E+00        8 T3  1.80972E-08        8 R1  9.91273E-09\r\n             8 R2 -7.07106E-01        9 T3  1.56192E-08        9 R1 -2.44623E-08        9 R2  4.28747E-07       10 T3  4.15805E-08\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                PHIA                                                                                                               \r\n         POINT          VALUE     POINT          VALUE     P0INT          VALUE     POINT          VALUE      POINT          VALUE  \r\n                                                                                                                                    \r\n            10 R1 -1.38289E-08       10 R2  7.07106E-01       11 T3 -8.64965E-08       11 R1 -5.46747E-08       11 R2  9.99999E-01\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   12     BBAR =    3\r\n                                        C =   13     CBAR =   20\r\n                                        R =   14\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    24)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    1     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = PK  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.0802       1.2473847E+01     4.0000000E+03    -2.9506537E-01     4.9296200E+01    -4.5696358E+01     3.0973718E+02\r\n        0.0748       1.3373007E+01     5.0000000E+03    -4.0563366E-01     5.7477100E+01    -7.3245125E+01     3.6113928E+02\r\n        0.0759       1.3179515E+01     5.5000000E+03    -4.9069270E-01     6.4153023E+01    -9.8895523E+01     4.0308536E+02\r\n        0.0800       1.2492304E+01     5.9800000E+03    -6.4905137E-01     7.3588936E+01    -1.5005190E+02     4.6237296E+02\r\n        0.0813       1.2301638E+01     6.1000000E+03    -7.2274333E-01     7.6229103E+01    -1.7308315E+02     4.7896158E+02\r\n        0.0820       1.2201963E+01     6.2000000E+03    -8.0324262E-01     7.8111664E+01    -1.9711176E+02     4.9079007E+02\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    2     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = PK  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.3299       3.0309095E+00     4.0000000E+03    -7.0399038E-02     2.0288080E+02    -4.4870152E+01     1.2747377E+03\r\n        0.2328       4.2953811E+00     5.0000000E+03    -8.7106556E-02     1.7894608E+02    -4.8969189E+01     1.1243514E+03\r\n        0.1920       5.2076502E+00     5.5000000E+03    -7.8567430E-02     1.6235840E+02    -4.0074413E+01     1.0201279E+03\r\n        0.1542       6.4864011E+00     5.9800000E+03    -1.4726860E-02     1.4172658E+02    -6.5570927E+00     8.9049438E+02\r\n        0.1449       6.8995705E+00     6.1000000E+03     2.7509496E-02     1.3591321E+02     1.1746113E+01     8.5396790E+02\r\n        0.1377       7.2626681E+00     6.2000000E+03     7.7624932E-02     1.3123491E+02     3.2003723E+01     8.2457330E+02\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n0     K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    3     MACH NUMBER =  0.4500     DENSITY RATIO =  9.6700E-01     METHOD = PK  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.4072       2.4556196E+00     4.0000000E+03    -2.8958725E-02     2.5041064E+02    -2.2781490E+01     1.5733766E+03\r\n        0.3262       3.0651748E+00     5.0000000E+03    -3.5419848E-02     2.5076599E+02    -2.7903919E+01     1.5756093E+03\r\n        0.2969       3.3685458E+00     5.5000000E+03    -3.8616292E-02     2.5100023E+02    -3.0450512E+01     1.5770811E+03\r\n        0.2733       3.6587436E+00     5.9800000E+03    -4.1674566E-02     2.5125987E+02    -3.2896076E+01     1.5787124E+03\r\n        0.2680       3.7311203E+00     6.1000000E+03    -4.2438012E-02     2.5133008E+02    -3.3508068E+01     1.5791536E+03\r\n        0.2638       3.7913790E+00     6.2000000E+03    -4.3073926E-02     2.5139023E+02    -3.4018311E+01     1.5795315E+03\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         4\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         5\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n0*** USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID         6\r\n     - VG - CURVE IS BEING PASSED OVER.  THE ID COULD NOT BE FOUND IN DATA BLOCK       102\r\n1         K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0         V-G AND V-F DATA POINTS                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY                                                                                                       \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY (F)                                          I I  DAMPING (G)                                            I\r\n             I                                                         I I                                                         I\r\n             I  0.000000E+00         1.500000E+02         3.000000E+02 I I -1.000000E+00        -4.000000E-01         2.000000E-01 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  4.0000E+03 I         *                  I         0        A         I I                            I    *          0 A          I\r\n  4.1000E+03 I                            I                            I I                            I                            I\r\n  4.2000E+03 I                            I                            I I                            I                            I\r\n  4.3000E+03 I                            I                            I I                            I                            I\r\n  4.4000E+03 I                            I                            I I                            I                            I\r\n  4.5000E+03 I                            I                            I I                            I                            I\r\n  4.6000E+03 I                            I                            I I                            I                            I\r\n  4.7000E+03 I                            I                            I I                            I                            I\r\n  4.8000E+03 I                            I                            I I                            I                            I\r\n  4.9000E+03 I                            I                            I I                            I                            I\r\n  5.0000E+03 I          *                 I     0            A         I I                            *              0  A          I\r\n  5.1000E+03 I                            I                            I I                            I                            I\r\n  5.2000E+03 I                            I                            I I                            I                            I\r\n  5.3000E+03 I                            I                            I I                            I                            I\r\n  5.4000E+03 I                            I                            I I                            I                            I\r\n  5.5000E+03 I           *                I 0                 A        I I                        *   I               0A           I\r\n  5.6000E+03 I                            I                            I I                            I                            I\r\n  5.7000E+03 I                            I                            I I                            I                            I\r\n  5.8000E+03 I                            I                            I I                            I                            I\r\n  5.9000E+03 I                            I                            I I                            I                            I\r\n  6.0000E+03 I             *            0 I                   A        I I                *           I                A 0         I\r\n  6.1000E+03 I              *          0  I                   A        I I            *               I                A   0       I\r\n  6.2000E+03 I              *         0   I                   A        I I         *                  I                A     0     I\r\n  6.3000E+03 I                            I                            I I                            I                            I\r\n  6.4000E+03 I                            I                            I I                            I                            I\r\n  6.5000E+03 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)                                                                       \r\n\r\n      K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)                                                                 \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GMD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PLTPARA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ELSETSA  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING        \r\n DATE:  5/17/95\r\n END TIME: 16:13: 8\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11011a.out",
    "content": "     NASTRAN FILES=(NPTP,PLT2)                                                       \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11011A,NASTRAN                                                           \r\n     CHKPNT YES                                                                      \r\n     APP    DISPLACEMENT                                                             \r\n     SOL    11,3                                                                     \r\n     DIAG   14                                                                       \r\n     TIME   25                                                                       \r\n     ALTER  86 $                                                                     \r\n     MATPRN   PHIA,,,,// $                                                           \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   D11011A ,NASTRAN , 5/17/95,   58417,\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      MAXLINES = 50000                                                                \r\n                  2      TITLE    = FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM             \r\n                  3      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                          \r\n                  4           SPC = 11                                                                   \r\n                  5        METHOD = 2                                                                    \r\n                  6      FREQUENCY= 508                                                                  \r\n                  7        RANDOM = 11                                                                   \r\n                  8      SDAMPING = 11                                                                   \r\n                  9      OUTPUT                                                                          \r\n                 10        SET  2 = 5,10                                                                 \r\n                 11        SET  6 = 6                                                                    \r\n                 12        SET 10 = 6,11                                                                 \r\n                 13        DISP(SORT2,PHASE)    = 10                                                     \r\n                 14        ACCELER(SORT2,PHASE) = 10                                                     \r\n                 15        OLOAD = 6                                                                     \r\n                 16        ELFORCE(SORT2,PHASE) = 2                                                      \r\n                 17      SUBCASE 1                                                                       \r\n                 18              LABEL =   THREE POINTS LOADED WITH TWO SETS                             \r\n                 19              DLOAD = 506                                                             \r\n                 20      SUBCASE 2                                                                       \r\n                 21              LABEL =   ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                \r\n                 22              DLOAD = 507                                                             \r\n                 23      SUBCASE 3                                                                       \r\n                 24              LABEL =   ONE POINT LOADED WITH TWO TABULAR LOADS                       \r\n                 25              DLOAD = 510                                                             \r\n                 26      $                                                                               \r\n                 27      $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n                 28      $                                                                               \r\n                 29      $                                                                               \r\n                 30      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                            \r\n                 31      OUTPUT(XYOUT)                                                                   \r\n                 32      PLOTTER = NASTPLT                                                               \r\n                 33              CAMERA = 3                                                              \r\n                 34              SKIP BETWEEN FRAMES = 1                                                 \r\n                 35              XGRID LINE = YES                                                        \r\n                 36              YGRID LINE = YES                                                        \r\n                 37           XTITLE =                       FREQUENCY (HERTZ)                           \r\n                 38           YTITLE = S                                                                 \r\n                 39           TCURVE = POWER SPECTRAL DENSITY OF POINT 6  DISPLACEMENT                   \r\n                 40         XYPLOT,XYPRINT DISP PSDF /  6(T3)                                            \r\n                 41      $                                                                               \r\n                 42           TCURVE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION                    \r\n                 43         XYPLOT ACCELERATION PSDF / 6(T3)                                             \r\n                 44      $                                                                               \r\n                 45           XTITLE =                      TIME LAG (SECONDS)                           \r\n                 46           YTITLE = R                                                                 \r\n                 47           TCURVE = AUTOCORRELATION FUNCTION FOR POINT 6  DISPLACEMENT                \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48         XYPLOT,XYPRINT DISP AUTO /  6(T3)                                            \r\n                 49      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    81, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    3       1       3       4       20.     .0      1.      1               \r\n                    2-        CBAR    4       1       4       5       20.     .0      1.      1               \r\n                    3-        CBAR    5       1       5       6       20.     .0      1.      1               \r\n                    4-        CBAR    6       1       6       7       20.     .0      1.      1               \r\n                    5-        CBAR    7       1       7       8       20.     .0      1.      1               \r\n                    6-        CBAR    8       1       8       9       20.     .0      1.      1               \r\n                    7-        CBAR    9       1       9       10      20.     .0      1.      1               \r\n                    8-        CBAR    10      1       10      11      20.     .0      1.      1               \r\n                    9-        CONM2  *11              1                               5.34604-3       *M1     \r\n                   10-        *M1     .0                                                                      \r\n                   11-        CONM2  *12              2                               1.069208-2      *M2     \r\n                   12-        *M2     .0              .0                                                      \r\n                   13-        CONM2  *13              3                               5.34604-3       *M3     \r\n                   14-        *M3                                                                             \r\n                   15-        DAREA   2       5       5       -100.                                           \r\n                   16-        DAREA   2       6       3       50.     5       3       50.                     \r\n                   17-        DAREA   2       7       3       50.     7       5       100.                    \r\n                   18-        DAREA   3       6       3       100.                                            \r\n                   19-        DAREA   510     6       3       1.0                                             \r\n                   20-        DELAY   1       6       3       .5555-2                                         \r\n                   21-        DLOAD   506     1.      1.      5       1.      6                               \r\n                   22-        DLOAD   507     1.      1.      5       1.      7                               \r\n                   23-        DLOAD   510     2.0     1.0     5101    1.0     5102                            \r\n                   24-        DPHASE  1       6       3       30.                                             \r\n                   25-        DPHASE  5102    6       3       -30.0                                           \r\n                   26-        EIGR    2       INV     40.0    1000.0  3       5                       +EG     \r\n                   27-        +EG     MASS                                                                    \r\n                   28-        FREQ1   508     .0      5.0     40                                              \r\n                   29-        GENEL   1101            2       1       2       3       2       5       +1      \r\n                   30-        +1      3       1       3       3       3       5                       +2      \r\n                   31-        +2      UD              1       1       1       3       1       5       *30     \r\n                   32-        *30     Z               .89044935-8     .0              .0              *31     \r\n                   33-        *31     .89044935-8     .0              .0              3.08928-6       *40     \r\n                   34-        *40     -2.31696-6      .0              7.7232005-6     -2.31696-6      *41     \r\n                   35-        *41     2.31696-6       .0              -6.950884-6     2.31696-6       *50     \r\n                   36-        *50     1.7808987-8     .0              .0              24.714241-6     *51     \r\n                   37-        *51     -9.26784-6      4.6339203-6                                     +60     \r\n                   38-        +60     S       1.0     .0      .0      .0      1.0     -2.0    .0      +70     \r\n                   39-        +70     .0      1.0     1.0     .0      .0      .0      1.0     -4.0    +80     \r\n                   40-        +80     .0      .0      1.0                                                     \r\n                   41-        GRDSET                                                  246                     \r\n                   42-        GRID    1               .0      .0      .0                                      \r\n                   43-        GRID    2               2.      .0      .0                                      \r\n                   44-        GRID    3               4.      .0      .0                                      \r\n                   45-        GRID    4               6.      .0      .0                                      \r\n                   46-        GRID    5               8.      .0      .0                                      \r\n                   47-        GRID    6               10.     .0      .0                                      \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    7               12.     .0      .0                                      \r\n                   49-        GRID    8               14.     .0      .0                                      \r\n                   50-        GRID    9               16.     .0      .0                                      \r\n                   51-        GRID    10              18.     .0      .0                                      \r\n                   52-        GRID    11              20.     .0      .0                                      \r\n                   53-        MAT1    1       10.4+6  4.+6            .2523-3                                 \r\n                   54-        PARAM   GRDPNT  0                                                               \r\n                   55-        PARAM   LMODES  4                                                               \r\n                   56-        PBAR    1       1       21.18922.083    .083                                    \r\n                   57-        RANDPS  11      1       1       .5              11                              \r\n                   58-        RANDPS  11      1       3       .5              11                              \r\n                   59-        RANDPS  11      2       2       1.0             11                              \r\n                   60-        RANDPS  11      3       3       .5              11                              \r\n                   61-        RANDT1  11      100     .0      .1                                              \r\n                   62-        RLOAD1  5101    510                     5101                                    \r\n                   63-        RLOAD1  5102    510             5102            5102                            \r\n                   64-        RLOAD2  5       2                       1                                       \r\n                   65-        RLOAD2  6       3               1       1       2                               \r\n                   66-        RLOAD2  7       3       1               1                                       \r\n                   67-        SPC     1       1       13              11      13                              \r\n                   68-        SPC     11      1       13              11      3                               \r\n                   69-        TABDMP1 11                                                              +DAMP   \r\n                   70-        +DAMP   .0      .0      50.0    .02     ENDT                                    \r\n                   71-        TABLED1 1                                                               +TAUU   \r\n                   72-        +TAUU   .0      1.      100.    1.      ENDT                                    \r\n                   73-        TABLED1 2                                                               +TAD21  \r\n                   74-        +TAD21  .0      30.     100.    30.     ENDT                                    \r\n                   75-        TABLED1 5101                                                            +TAD30  \r\n                   76-        +TAD30  .0      75.0    100.    75.0    ENDT                                    \r\n                   77-        TABLED1 5102                                                            +TAD31  \r\n                   78-        +TAD31  .0      50.0    100.    50.0    ENDT                                    \r\n                   79-        TABRND1 11                                                              +TR     \r\n                   80-        +TR     -1.0    .0      .0      100.0   100.0   100.0   100.0   .0      +TR2    \r\n                   81-        +TR2    101.0   .0      ENDT                                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $                    \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR7,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      32  LABEL    JMPKGGX $                                                      \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11,NOGENL $                                                 \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11 $                                                        \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      47  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      48  PARAM    //*AND*/NOSR/REACT/SINGLE $                                    \r\n\r\n      49  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR,  \r\n                   MRR,DM,MR/REACT/MDD/MODACC $                                   \r\n\r\n      50  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      51  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USET,RG/GM $                                                   \r\n\r\n      53  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      54  LABEL    LBL2 $                                                         \r\n\r\n      55  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      56  COND     LBL3,SINGLE $                                                  \r\n\r\n      57  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      58  LABEL    LBL3 $                                                         \r\n\r\n      59  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      60  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      61  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      65  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      66  COND     LBL6,REACT $                                                   \r\n\r\n      67  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      68  JUMP     LBL8 $                                                         \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  COND     LBL7,MODACC $                                                  \r\n\r\n      71  LABEL    LBL8 $                                                         \r\n\r\n      72  RBMG2    KLL/LLL $                                                      \r\n\r\n      73  COND     LBL7,REACT $                                                   \r\n\r\n      74  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      75  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      76  LABEL    LBL7 $                                                         \r\n\r\n      77  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,   \r\n                   EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/         \r\n                   S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $                   \r\n\r\n      78  COND     ERROR2,NOEED $                                                 \r\n\r\n      79  PURGE    UEVF/NOUE $                                                    \r\n\r\n      80  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      81  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      82  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      83  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      84  COND     ERROR4,NEIGV $                                                 \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      85  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      86  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      86  MATPRN   PHIA,,,,// $                                                   \r\n\r\n      87  PARAM    //*MPY*/REPEATF/1/-1 $                                         \r\n\r\n      89  PURGE    OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP,    \r\n                   B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2,    \r\n                   IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1,  \r\n                   ZEFC1/NEVER $                                                  \r\n\r\n      90  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n      91  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      92  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n      93  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n      94  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $      \r\n\r\n      95  GKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,                   \r\n                   GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/              \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/-1/-1/                                  \r\n                   1/V,Y,MODACC = -1 $                                            \r\n\r\n      96  GKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n                   NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/                \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $                    \r\n\r\n      97  COND     ERROR5,NOFRL $                                                 \r\n\r\n      98  COND     ERROR6,NODLT $                                                 \r\n\r\n      99  FRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF,   \r\n                   PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/                    \r\n                   OMIT/NONCUP/S,N,FRQSET $                                       \r\n\r\n     100  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     101  VDR      CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $                    \r\n\r\n     102  COND     LBL16,NOH $                                                    \r\n\r\n     103  COND     LBL16A,NOSORT2 $                                               \r\n\r\n     104  SDR3     OUHVC1,,,,,/OUHVC2,,,,, $                                      \r\n\r\n     105  OFP      OUHVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     106  XYTRAN   XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     107  XYPLOT   XYPLTFA // $                                                   \r\n\r\n     108  JUMP     LBL16 $                                                        \r\n\r\n     109  LABEL    LBL16A $                                                       \r\n\r\n     110  OFP      OUHVC1,,,,,//S,N,CARDNO $                                      \r\n\r\n     111  LABEL    LBL16 $                                                        \r\n\r\n     112  COND     LBL14,NOP $                                                    \r\n\r\n     113  PARAM    //*NOT*/NOMOD/V,Y,MODACC $                                     \r\n\r\n     114  COND     LBDDRM,MODACC $                                                \r\n\r\n     115  DDR1     UHVF,PHIDH/UDV1F $                                             \r\n\r\n     118  EQUIV    UDV1F,UPVC/NOA $                                               \r\n\r\n     119  COND     LBLNOA,NOA $                                                   \r\n\r\n     120  SDR1     USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $      \r\n\r\n     121  LABEL    LBLNOA $                                                       \r\n\r\n     122  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,       \r\n                   XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     123  COND     LBL18,NOSORT2 $                                                \r\n\r\n     124  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     125  JUMP     P2A $                                                          \r\n\r\n     126  LABEL    LBDDRM $                                                       \r\n\r\n     127  SDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $        \r\n\r\n     128  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/  \r\n                   ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $               \r\n\r\n     129  SDR2     CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA,     \r\n                   ,,,,,,/*FREQ* $                                                \r\n\r\n     130  EQUIV    OPPCA,OPPC1/MODACC $                                           \r\n\r\n     131  COND     LBLSORT,NOSORT2 $                                              \r\n\r\n     132  SDR3     IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $    \r\n\r\n     133  EQUIV    OPPCB,OPPC2/MODACC $                                           \r\n\r\n     134  DDRMM    CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/       \r\n                   ZUPVC2,ZQPC2,ZESC2,ZEFC2,  $                                   \r\n\r\n     135  EQUIV    ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/    \r\n                   ZEFC2,OEFC2/MODACC $                                           \r\n\r\n     136  JUMP     P2A $                                                          \r\n\r\n     137  LABEL    LBLSORT $                                                      \r\n\r\n     138  DDRMM    CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/            \r\n                   ZUPVC1,ZQPC1,ZESC1,ZEFC1, $                                    \r\n\r\n     139  EQUIV    ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/    \r\n                   ZEFC1,OEFC1/MODACC $                                           \r\n\r\n     140  JUMP     LBL18 $                                                        \r\n\r\n     141  LABEL    P2A $                                                          \r\n\r\n     142  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n\r\n     143  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     144  XYPLOT   XYPLTF// $                                                     \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     145  COND     LBL21,JUMPPLOT $                                               \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/        \r\n                   PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                  \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n\r\n     148  LABEL    LBL21 $                                                        \r\n\r\n     149  COND     LBL14,NOPSDL $                                                 \r\n\r\n     150  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     151  COND     LBL14,NORD $                                                   \r\n\r\n     152  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     153  XYPLOT   XYPLTR// $                                                     \r\n\r\n     154  JUMP     LBL14 $                                                        \r\n\r\n     155  LABEL    LBL18 $                                                        \r\n\r\n     156  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     157  LABEL    LBL14 $                                                        \r\n\r\n     161  JUMP     FINIS $                                                        \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*MDLFRRD* $                                               \r\n\r\n     164  LABEL    ERROR1 $                                                       \r\n\r\n     165  PRTPARM  //-1/*MDLFRRD* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*MDLFRRD* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*MDLFRRD* $                                               \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  LABEL    ERROR6 $                                                       \r\n\r\n     171  PRTPARM  //-6/*MDLFRRD* $                                               \r\n\r\n     172  LABEL    ERROR7 $                                                       \r\n\r\n     173  PRTPARM  //-7/*MDLFRRD* $                                               \r\n\r\n     174  LABEL    FINIS $                                                        \r\n\r\n     175  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     176  END      $                                                              \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER     6\r\n         3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n         5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9\r\n         6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10\r\n         7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11\r\n         8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12\r\n         9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        10,   REENTER AT DMAP SEQUENCE NUMBER     7\r\n        11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13\r\n        12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        13,   REENTER AT DMAP SEQUENCE NUMBER     8\r\n        14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14\r\n        15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15\r\n \r\n        16,   REENTER AT DMAP SEQUENCE NUMBER     9\r\n        17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16\r\n        18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17\r\n        19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18\r\n \r\n        20,   REENTER AT DMAP SEQUENCE NUMBER    10\r\n        21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19\r\n        22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20\r\n \r\n        23,   REENTER AT DMAP SEQUENCE NUMBER    12\r\n        24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21\r\n        25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        29,   REENTER AT DMAP SEQUENCE NUMBER    22\r\n        30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22\r\n        31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        32,   REENTER AT DMAP SEQUENCE NUMBER    23\r\n        33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23\r\n        34,   GEI     ,   FLAGS = 0,   REEL =  1,   FILE =     24\r\n        35,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     25\r\n        36,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     26\r\n        37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        40,   REENTER AT DMAP SEQUENCE NUMBER    24\r\n        41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27\r\n        42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     28\r\n        43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     29\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID       11\r\n \r\n        44,   REENTER AT DMAP SEQUENCE NUMBER    28\r\n        45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     30\r\n        46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     31\r\n        47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     32\r\n        48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     33\r\n        49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34\r\n \r\n        50,   REENTER AT DMAP SEQUENCE NUMBER    29\r\n        51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     35\r\n        52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        53,   REENTER AT DMAP SEQUENCE NUMBER    31\r\n        54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     36\r\n        55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37\r\n \r\n        56,   REENTER AT DMAP SEQUENCE NUMBER    32\r\n        57,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38\r\n        58,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        59,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        60,   REENTER AT DMAP SEQUENCE NUMBER    35\r\n        61,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     39\r\n        62,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40\r\n \r\n        63,   REENTER AT DMAP SEQUENCE NUMBER    36\r\n        64,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     41\r\n        65,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        66,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n \r\n        67,   REENTER AT DMAP SEQUENCE NUMBER    38\r\n        68,   OGPWG   ,   FLAGS = 0,   REEL =  1,   FILE =     42\r\n        69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     43\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  1.06920804D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  1.06920804D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.06920806D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  1.06920804D-01  0.00000000D+00 -1.06920806D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -1.06920806D+00  0.00000000D+00  1.43273880D+01  0.00000000D+00 *\r\n                *  0.00000000D+00  1.06920806D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.43273880D+01 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            1.069208042D-01      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            1.069208042D-01      1.000000016D+01  0.000000000D+00  0.000000000D+00\r\n                            Z            1.069208042D-01      1.000000016D+01  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.635307274D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  3.635307274D+00  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00                                    *\r\n                                      *                   3.635307274D+00                   *\r\n                                      *                                    3.635307274D+00  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        70,   REENTER AT DMAP SEQUENCE NUMBER    41\r\n        71,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44\r\n        72,   KGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        73,   REENTER AT DMAP SEQUENCE NUMBER    43\r\n        74,   KGG     ,   FLAGS = 0,   REEL =  1,   FILE =     45\r\n        75,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46\r\n \r\n        76,   REENTER AT DMAP SEQUENCE NUMBER    45\r\n        77,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     47\r\n        78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     48\r\n \r\n        79,   REENTER AT DMAP SEQUENCE NUMBER    47\r\n        80,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     49\r\n        81,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     50\r\n        82,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        83,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        84,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        85,   REENTER AT DMAP SEQUENCE NUMBER    50\r\n        86,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51\r\n        87,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        88,   GMD     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        89,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        90,   GOD     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        91,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        92,   PSF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        93,   QPC     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        94,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        95,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        96,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        97,   MRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        98,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        99,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       100,   MDD     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       101,   REENTER AT DMAP SEQUENCE NUMBER    51\r\n       102,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     45\r\n       103,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     45\r\n       104,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     39\r\n       105,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     39\r\n       106,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52\r\n \r\n       107,   REENTER AT DMAP SEQUENCE NUMBER    56\r\n       108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53\r\n       109,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       110,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       111,   REENTER AT DMAP SEQUENCE NUMBER    58\r\n       112,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     54\r\n       113,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     55\r\n       114,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     56\r\n       115,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     57\r\n \r\n       116,   REENTER AT DMAP SEQUENCE NUMBER    60\r\n       117,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     54\r\n       118,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     54\r\n       119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58\r\n \r\n       120,   REENTER AT DMAP SEQUENCE NUMBER    61\r\n       121,   MFF     ,   FLAGS = 4,   REEL =  1,   FILE =     56\r\n       122,   MAA     ,   FLAGS = 4,   REEL =  1,   FILE =     56\r\n       123,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59\r\n \r\n       124,   REENTER AT DMAP SEQUENCE NUMBER    66\r\n       125,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     54\r\n       126,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60\r\n \r\n       127,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       128,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =     61\r\n       129,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =     62\r\n       130,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =     63\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       131,   DLT     ,   FLAGS = 0,   REEL =  1,   FILE =     64\r\n       132,   PSDL    ,   FLAGS = 0,   REEL =  1,   FILE =     65\r\n       133,   FRL     ,   FLAGS = 0,   REEL =  1,   FILE =     66\r\n       134,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =     67\r\n       135,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =     68\r\n       136,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     69\r\n       137,   TFPOOL  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       138,   REENTER AT DMAP SEQUENCE NUMBER    80\r\n       139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70\r\n       140,   UEVF    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       141,   REENTER AT DMAP SEQUENCE NUMBER    81\r\n       142,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     71\r\n                        3 ROOTS BELOW   1.977079E+07\r\n                        4 ROOTS BELOW   2.504728E+07\r\n                        2 ROOTS BELOW   7.947336E+06\r\n                        1 ROOTS BELOW   9.148082E+05\r\n                        2 ROOTS BELOW   1.593585E+06\r\n                        5 ROOTS BELOW   6.055407E+07\r\n \r\n       143,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       144,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =     72\r\n       145,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =     73\r\n       146,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =     74\r\n       147,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =     75\r\n       148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         5\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         6\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        38\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         5 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         4        9.829971E+04        3.135278E+02        4.989950E+01        1.000000E+00        9.829971E+04             \r\n        2         3        1.572445E+06        1.253972E+03        1.995758E+02        1.000000E+00        1.572445E+06             \r\n        3         2        7.951687E+06        2.819874E+03        4.487968E+02        1.000000E+00        7.951687E+06             \r\n        4         1        2.504079E+07        5.004078E+03        7.964236E+02        1.000000E+00        2.504079E+07             \r\n        5         5        6.054949E+07        7.781355E+03        1.238441E+03        1.000000E+00        6.054949E+07             \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0      MATRIX PHIA     (GINO NAME 101 ) IS A S.P.REAL      5 COLUMN X     30 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU     30     --------------------------------------------------\r\n \r\n  -6.79356E-01  5.49235E-18  1.33653E+00 -6.46080E-01  1.08510E-17  2.54216E+00 -5.49562E-01  1.60436E-17  3.49894E+00 -3.99299E-01\r\n   2.08382E-17  4.11330E+00 -2.09951E-01  2.51160E-17  4.32501E+00 -2.03680E-08  2.87707E-17  4.11330E+00  2.09951E-01  3.17118E-17\r\n   3.49894E+00  3.99299E-01  3.38663E-17  2.54216E+00  5.49562E-01  3.51808E-17  1.33653E+00  6.46080E-01  3.56226E-17  6.79356E-01\r\n0COLUMN      2      ROWS      1 THRU     30     --------------------------------------------------\r\n \r\n  -1.35750E+00  1.09026E-30  2.54216E+00 -1.09824E+00  2.15399E-30  4.11330E+00 -4.19490E-01  3.18474E-30  4.11330E+00  4.19490E-01\r\n   4.13650E-30  2.54216E+00  1.09824E+00  4.98566E-30 -4.00243E-08  1.35750E+00  5.71114E-30 -2.54216E+00  1.09824E+00  6.29497E-30\r\n  -4.11330E+00  4.19490E-01  6.72264E-30 -4.11330E+00 -4.19490E-01  6.98357E-30 -2.54216E+00 -1.09824E+00  7.07127E-30 -1.35750E+00\r\n0COLUMN      3      ROWS      1 THRU     30     --------------------------------------------------\r\n \r\n   2.02817E+00  1.79053E-26 -3.49898E+00  1.19213E+00  3.53748E-26 -4.11330E+00 -6.26739E-01  5.23028E-26 -1.33649E+00 -1.92891E+00\r\n   6.79334E-26  2.54216E+00 -1.64082E+00  8.18790E-26  4.32498E+00 -8.99271E-09  9.37936E-26  2.54216E+00  1.64082E+00  1.03382E-25\r\n  -1.33649E+00  1.92891E+00  1.10405E-25 -4.11330E+00  6.26739E-01  1.14691E-25 -3.49898E+00 -1.19213E+00  1.16131E-25 -2.02817E+00\r\n0COLUMN      4      ROWS      1 THRU     30     --------------------------------------------------\r\n \r\n   2.67211E+00  2.78950E-22 -4.11330E+00  8.25726E-01  5.51112E-22 -2.54216E+00 -2.16178E+00  8.14837E-22  2.54216E+00 -2.16178E+00\r\n   1.05835E-21  4.11330E+00  8.25727E-01  1.27561E-21  2.69007E-07  2.67211E+00  1.46123E-21 -4.11330E+00  8.25728E-01  1.61061E-21\r\n  -2.54216E+00 -2.16178E+00  1.72003E-21  2.54216E+00 -2.16178E+00  1.78679E-21  4.11330E+00  8.25727E-01  1.80923E-21  2.67211E+00\r\n0COLUMN      5      ROWS      1 THRU     30     --------------------------------------------------\r\n \r\n   3.24373E+00  1.20156E-17 -4.32497E+00 -1.06180E-05  2.37388E-17  1.97822E-05 -3.24374E+00  3.50986E-17  4.32501E+00 -4.11783E-06\r\n   4.55878E-17  3.50060E-05  3.24373E+00  5.49462E-17 -4.32494E+00  5.57132E-07  6.29417E-17  3.35333E-05 -3.24373E+00  6.93759E-17\r\n   4.32501E+00  2.95807E-06  7.40893E-17  2.14562E-05  3.24374E+00  7.69649E-17 -4.32497E+00  5.49087E-06  7.79315E-17 -3.24373E+00\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      30\r\n0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT.\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       149,   REENTER AT DMAP SEQUENCE NUMBER    90\r\n       150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77\r\n       151,   OUHVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       152,   OUHVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       153,   XYPLTFA ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       154,   OPPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       155,   OQPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       156,   OUPVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       157,   OESC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       158,   OEFC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       159,   OPPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       160,   OQPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       161,   OUPVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       162,   OESC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       163,   OEFC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       164,   XYPLTF  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       165,   PSDF    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       166,   AUTO    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       167,   XYPLTR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       168,   K2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       169,   M2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       170,   B2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       171,   K2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       172,   M2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       173,   B2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       174,   OPPCA   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       175,   IQP1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       176,   IPHIP1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       177,   IES1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       178,   IEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       179,   OPPCB   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       180,   IQP2    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       181,   IPHIP2  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       182,   IES2    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       183,   IEF2    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       184,   ZQPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       185,   ZUPVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       186,   ZESC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       187,   ZEFC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       188,   ZQPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       189,   ZUPVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       190,   ZESC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       191,   ZEFC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       192,   REENTER AT DMAP SEQUENCE NUMBER    91\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       193,   CASEXX  ,   FLAGS = 0,   REEL =  1,   FILE =     78\r\n       194,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     79\r\n \r\n       195,   REENTER AT DMAP SEQUENCE NUMBER    92\r\n       196,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80\r\n \r\n       197,   REENTER AT DMAP SEQUENCE NUMBER    93\r\n       198,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     81\r\n \r\n       199,   REENTER AT DMAP SEQUENCE NUMBER    95\r\n       200,   MDD     ,   FLAGS = 4,   REEL =  1,   FILE =     56\r\n       201,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82\r\n \r\n       202,   REENTER AT DMAP SEQUENCE NUMBER    96\r\n       203,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83\r\n \r\n       204,   REENTER AT DMAP SEQUENCE NUMBER    97\r\n       205,   MHH     ,   FLAGS = 0,   REEL =  1,   FILE =     84\r\n       206,   BHH     ,   FLAGS = 0,   REEL =  1,   FILE =     85\r\n       207,   KHH     ,   FLAGS = 0,   REEL =  1,   FILE =     86\r\n       208,   PHIDH   ,   FLAGS = 0,   REEL =  1,   FILE =     87\r\n       209,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88\r\n \r\n       210,   REENTER AT DMAP SEQUENCE NUMBER   100\r\n       211,   UHVF    ,   FLAGS = 0,   REEL =  1,   FILE =     89\r\n       212,   PSF     ,   FLAGS = 0,   REEL =  1,   FILE =     90\r\n       213,   PDF     ,   FLAGS = 0,   REEL =  1,   FILE =     91\r\n       214,   PPF     ,   FLAGS = 0,   REEL =  1,   FILE =     92\r\n       215,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     93\r\n \r\n       216,   REENTER AT DMAP SEQUENCE NUMBER   101\r\n       217,   PDF     ,   FLAGS = 0,   REEL =  1,   FILE =     94\r\n       218,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95\r\n \r\n       219,   REENTER AT DMAP SEQUENCE NUMBER   102\r\n       220,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     96\r\n \r\n       221,   REENTER AT DMAP SEQUENCE NUMBER   128\r\n       222,   PHIPH   ,   FLAGS = 0,   REEL =  1,   FILE =     97\r\n       223,   QPH     ,   FLAGS = 0,   REEL =  1,   FILE =     98\r\n       224,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     99\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       225,   REENTER AT DMAP SEQUENCE NUMBER   129\r\n       226,   IPHIP1  ,   FLAGS = 0,   REEL =  1,   FILE =    100\r\n       227,   IEF1    ,   FLAGS = 0,   REEL =  1,   FILE =    101\r\n       228,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    102\r\n0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n \r\n       229,   REENTER AT DMAP SEQUENCE NUMBER   130\r\n       230,   OPPCA   ,   FLAGS = 0,   REEL =  1,   FILE =    103\r\n       231,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    104\r\n \r\n       232,   REENTER AT DMAP SEQUENCE NUMBER   131\r\n       233,   OPPCA   ,   FLAGS = 4,   REEL =  1,   FILE =    103\r\n       234,   OPPC1   ,   FLAGS = 4,   REEL =  1,   FILE =    103\r\n       235,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    105\r\n \r\n       236,   REENTER AT DMAP SEQUENCE NUMBER   133\r\n       237,   IPHIP2  ,   FLAGS = 0,   REEL =  1,   FILE =    106\r\n       238,   IEF2    ,   FLAGS = 0,   REEL =  1,   FILE =    107\r\n       239,   OPPCB   ,   FLAGS = 0,   REEL =  1,   FILE =    108\r\n       240,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    109\r\n \r\n       241,   REENTER AT DMAP SEQUENCE NUMBER   134\r\n       242,   OPPCB   ,   FLAGS = 4,   REEL =  1,   FILE =    108\r\n       243,   OPPC2   ,   FLAGS = 4,   REEL =  1,   FILE =    108\r\n       244,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    110\r\n \r\n       245,   REENTER AT DMAP SEQUENCE NUMBER   135\r\n       246,   ZUPVC2  ,   FLAGS = 0,   REEL =  1,   FILE =    111\r\n       247,   ZEFC2   ,   FLAGS = 0,   REEL =  1,   FILE =    112\r\n       248,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113\r\n \r\n       249,   REENTER AT DMAP SEQUENCE NUMBER   136\r\n       250,   ZUPVC2  ,   FLAGS = 4,   REEL =  1,   FILE =    111\r\n       251,   OUPVC2  ,   FLAGS = 4,   REEL =  1,   FILE =    111\r\n       252,   ZEFC2   ,   FLAGS = 4,   REEL =  1,   FILE =    112\r\n       253,   OEFC2   ,   FLAGS = 4,   REEL =  1,   FILE =    112\r\n       254,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    114\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  2.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  2.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  3.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  3.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  4.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  4.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  5.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  5.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  6.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  6.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  7.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  8.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  8.500001E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  9.000000E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  9.500001E+01     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.000000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.050000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.100000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.150000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.200000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.250000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.300000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.350000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.400000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.450000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.550000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.600000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.650000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.700000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.750000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.800000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.850000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.900000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  1.950000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n0  2.000000E+02     G      0.0            0.0            1.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660255E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.500000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            1.484811E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.736310E+01   0.0            0.0            0.0                           \r\n0  1.000000E+01     G      0.0            0.0            1.439705E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.419874E+01   0.0            0.0            0.0                           \r\n0  1.500000E+01     G      0.0            0.0            1.366052E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.999547E+01   0.0            0.0            0.0                           \r\n0  2.000000E+01     G      0.0            0.0            1.266089E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.427341E+01   0.0            0.0            0.0                           \r\n0  2.500000E+01     G      0.0            0.0            1.142854E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.659884E+01   0.0            0.0            0.0                           \r\n0  3.000000E+01     G      0.0            0.0            1.000091E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -8.659731E+01   0.0            0.0            0.0                           \r\n0  3.500000E+01     G      0.0            0.0            8.421349E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.396508E+01   0.0            0.0            0.0                           \r\n0  4.000000E+01     G      0.0            0.0            6.737856E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.847836E+01   0.0            0.0            0.0                           \r\n0  4.500000E+01     G      0.0            0.0            5.001569E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.000000E+02   0.0            0.0            0.0                           \r\n0  5.000000E+01     G      0.0            0.0            3.265236E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.848380E+01   0.0            0.0            0.0                           \r\n0  5.500000E+01     G      0.0            0.0            1.581602E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.397582E+01   0.0            0.0            0.0                           \r\n0  6.000000E+01     G      0.0            0.0            1.812744E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -8.661300E+01   0.0            0.0            0.0                           \r\n0  6.500000E+01     G      0.0            0.0           -1.426140E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.661902E+01   0.0            0.0            0.0                           \r\n0  7.000000E+01     G      0.0            0.0           -2.658875E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.429746E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      0.0            0.0           -3.658945E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.002265E+01   0.0            0.0            0.0                           \r\n0  8.000000E+01     G      0.0            0.0           -4.395972E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.422823E+01   0.0            0.0            0.0                           \r\n0  8.500001E+01     G      0.0            0.0           -4.847563E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.739399E+01   0.0            0.0            0.0                           \r\n0  9.000000E+01     G      0.0            0.0           -4.999999E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.139098E-02   0.0            0.0            0.0                           \r\n0  9.500001E+01     G      0.0            0.0           -4.848653E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.733219E+01   0.0            0.0            0.0                           \r\n0  1.000000E+02     G      0.0            0.0           -4.398119E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.416924E+01   0.0            0.0            0.0                           \r\n0  1.050000E+02     G      0.0            0.0           -3.662084E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.996828E+01   0.0            0.0            0.0                           \r\n0  1.100000E+02     G      0.0            0.0           -2.662911E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.424935E+01   0.0            0.0            0.0                           \r\n0  1.150000E+02     G      0.0            0.0           -1.430950E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.657864E+01   0.0            0.0            0.0                           \r\n0  1.200000E+02     G      0.0            0.0           -3.624725E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.658160E+01   0.0            0.0            0.0                           \r\n0  1.250000E+02     G      0.0            0.0            1.575704E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.395435E+01   0.0            0.0            0.0                           \r\n0  1.300000E+02     G      0.0            0.0            3.259053E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.847289E+01   0.0            0.0            0.0                           \r\n0  1.350000E+02     G      0.0            0.0            4.995289E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.999998E+01   0.0            0.0            0.0                           \r\n0  1.400000E+02     G      0.0            0.0            6.731673E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.848924E+01   0.0            0.0            0.0                           \r\n0  1.450000E+02     G      0.0            0.0            8.415446E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.398655E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            9.995468E+01   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.662868E+01   0.0            0.0            0.0                           \r\n0  1.550000E+02     G      0.0            0.0            1.142373E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.663920E+01   0.0            0.0            0.0                           \r\n0  1.600000E+02     G      0.0            0.0            1.265686E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.432150E+01   0.0            0.0            0.0                           \r\n0  1.650000E+02     G      0.0            0.0            1.365737E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.004985E+01   0.0            0.0            0.0                           \r\n0  1.700000E+02     G      0.0            0.0            1.439490E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.425768E+01   0.0            0.0            0.0                           \r\n0  1.750000E+02     G      0.0            0.0            1.484702E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.742490E+01   0.0            0.0            0.0                           \r\n0  1.800000E+02     G      0.0            0.0            1.500000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.278196E-02   0.0            0.0            0.0                           \r\n0  1.850000E+02     G      0.0            0.0            1.484920E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.730124E+01   0.0            0.0            0.0                           \r\n0  1.900000E+02     G      0.0            0.0            1.439919E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.413974E+01   0.0            0.0            0.0                           \r\n0  1.950000E+02     G      0.0            0.0            1.366365E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.994107E+01   0.0            0.0            0.0                           \r\n0  2.000000E+02     G      0.0            0.0            1.266493E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.422531E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  2.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  2.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  3.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  3.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  4.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  4.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  5.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  5.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  6.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  6.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  7.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  8.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  8.500001E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  9.000000E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  9.500001E+01     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.000000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.050000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.100000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.150000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.200000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.250000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.300000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.350000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.400000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.450000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.550000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.600000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.650000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.700000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.750000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.800000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.850000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.900000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  1.950000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n0  2.000000E+02     G      0.0            0.0            2.000000E+02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.660254E+01   0.0            0.0            0.0                           \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      2.263311E-19   0.0            4.290329E-02   0.0            1.977287E-10   0.0                           \r\n                            22.9204         0.0           22.8839         0.0          203.4038         0.0                         \r\n0  5.000000E+00     G      2.288209E-19   0.0            4.333244E-02   0.0            1.997519E-10   0.0                           \r\n                            22.8046         0.0           22.7685         0.0          203.2834         0.0                         \r\n0  1.000000E+01     G      2.362125E-19   0.0            4.467375E-02   0.0            2.060750E-10   0.0                           \r\n                            22.6816         0.0           22.6467         0.0          203.1463         0.0                         \r\n0  1.500000E+01     G      2.494978E-19   0.0            4.710654E-02   0.0            2.175422E-10   0.0                           \r\n                            22.5425         0.0           22.5096         0.0          202.9836         0.0                         \r\n0  2.000000E+01     G      2.927501E-19   0.0            5.100101E-02   0.0            2.358967E-10   0.0                           \r\n                            22.3743         0.0           22.3445         0.0          202.7823         0.0                         \r\n0  2.500000E+01     G      3.280549E-19   0.0            5.708125E-02   0.0            2.645479E-10   0.0                           \r\n                            22.1555         0.0           22.1299         0.0          202.5204         0.0                         \r\n0  3.000000E+01     G      3.847618E-19   0.0            6.684714E-02   0.0            3.105581E-10   0.0                           \r\n                            21.8438         0.0           21.8237         0.0          202.1555         0.0                         \r\n0  3.500000E+01     G      4.835186E-19   0.0            8.385430E-02   0.0            3.906693E-10   0.0                           \r\n                            21.3419         0.0           21.3285         0.0          201.5899         0.0                         \r\n0  4.000000E+01     G      6.868304E-19   0.0            1.188662E-01   0.0            5.555621E-10   0.0                           \r\n                            20.3572         0.0           20.3521         0.0          200.5309         0.0                         \r\n0  4.500000E+01     G      1.309877E-18   0.0            2.261569E-01   0.0            1.060792E-09   0.0                           \r\n                            17.4144         0.0           17.4192         0.0          197.5025         0.0                         \r\n0  5.000000E+01     G      1.204430E-17   0.0            2.073971E+00   0.0            9.765926E-09   0.0                           \r\n                           281.5223         0.0          281.5387         0.0          101.5132         0.0                         \r\n0  5.500000E+01     G      1.137639E-18   0.0            1.953149E-01   0.0            9.235634E-10   0.0                           \r\n                           208.7662         0.0          208.7959         0.0           28.6475         0.0                         \r\n0  6.000000E+01     G      5.504119E-19   0.0            9.418759E-02   0.0            4.473616E-10   0.0                           \r\n                           206.0019         0.0          206.0472         0.0           25.7611         0.0                         \r\n0  6.500000E+01     G      3.524060E-19   0.0            6.008779E-02   0.0            2.867334E-10   0.0                           \r\n                           205.0573         0.0          205.1203         0.0           24.6807         0.0                         \r\n0  7.000000E+01     G      2.307831E-19   0.0            4.310098E-02   0.0            2.066691E-10   0.0                           \r\n                           204.5774         0.0          204.6607         0.0           24.0509         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      1.778482E-19   0.0            3.299710E-02   0.0            1.590019E-10   0.0                           \r\n                           204.2853         0.0          204.3914         0.0           23.5936         0.0                         \r\n0  8.000000E+01     G      1.428291E-19   0.0            2.633717E-02   0.0            1.275384E-10   0.0                           \r\n                           204.0878         0.0          204.2196         0.0           23.2145         0.0                         \r\n0  8.500001E+01     G      1.180805E-19   0.0            2.164162E-02   0.0            1.053111E-10   0.0                           \r\n                           203.9447         0.0          204.1053         0.0           22.8722         0.0                         \r\n0  9.000000E+01     G      0.0            0.0            1.816947E-02   0.0            8.882947E-11   0.0                           \r\n                             0.0            0.0          204.0286         0.0           22.5449         0.0                         \r\n0  9.500001E+01     G      0.0            0.0            1.550897E-02   0.0            7.615268E-11   0.0                           \r\n                             0.0            0.0          203.9785         0.0           22.2197         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            1.341328E-02   0.0            6.611611E-11   0.0                           \r\n                             0.0            0.0          203.9487         0.0           21.8876         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            1.172557E-02   0.0            5.797833E-11   0.0                           \r\n                             0.0            0.0          203.9352         0.0           21.5416         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            1.034155E-02   0.0            5.124459E-11   0.0                           \r\n                             0.0            0.0          203.9355         0.0           21.1756         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            9.189215E-03   0.0            4.557129E-11   0.0                           \r\n                             0.0            0.0          203.9480         0.0           20.7837         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            8.217335E-03   0.0            4.071147E-11   0.0                           \r\n                             0.0            0.0          203.9717         0.0           20.3596         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            7.388483E-03   0.0            3.648160E-11   0.0                           \r\n                             0.0            0.0          204.0062         0.0           19.8961         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            6.674713E-03   0.0            3.274073E-11   0.0                           \r\n                             0.0            0.0          204.0513         0.0           19.3849         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            6.054765E-03   0.0            2.937645E-11   0.0                           \r\n                             0.0            0.0          204.1071         0.0           18.8155         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            5.512181E-03   0.0            2.629492E-11   0.0                           \r\n                             0.0            0.0          204.1740         0.0           18.1749         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            5.034046E-03   0.0            2.341306E-11   0.0                           \r\n                             0.0            0.0          204.2523         0.0           17.4465         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            4.610086E-03   0.0            2.065146E-11   0.0                           \r\n                             0.0            0.0          204.3428         0.0           16.6091         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            4.232032E-03   0.0            1.792671E-11   0.0                           \r\n                             0.0            0.0          204.4465         0.0           15.6365         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            3.893162E-03   0.0            1.514119E-11   0.0                           \r\n                             0.0            0.0          204.5644         0.0           14.4996         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            3.587958E-03   0.0            1.216730E-11   0.0                           \r\n                             0.0            0.0          204.6979         0.0           13.1844         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            3.311852E-03   0.0            8.819674E-12   0.0                           \r\n                             0.0            0.0          204.8486         0.0           11.7955         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            3.061033E-03   0.0            4.804388E-12   0.0                           \r\n                             0.0            0.0          205.0183         0.0           11.4751         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            2.832296E-03   0.0            6.839879E-13   0.0                           \r\n                             0.0            0.0          205.2092         0.0          132.8233         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            2.622930E-03   0.0            7.923606E-12   0.0                           \r\n                             0.0            0.0          205.4240         0.0          170.5033         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            2.430628E-03   0.0            1.952810E-11   0.0                           \r\n                             0.0            0.0          205.6658         0.0          161.2411         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            2.253416E-03   0.0            3.760130E-11   0.0                           \r\n                             0.0            0.0          205.9380         0.0          141.0956         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            2.089594E-03   0.0            5.463362E-11   0.0                           \r\n                             0.0            0.0          206.2451         0.0          108.1429         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.485278E-19   0.0            0.0            0.0            6.371139E-03   0.0                           \r\n                            22.9204         0.0            0.0            0.0           23.0357         0.0                         \r\n0  5.000000E+00     G      3.520619E-19   0.0            0.0            0.0            6.438503E-03   0.0                           \r\n                            22.8046         0.0            0.0            0.0           22.9187         0.0                         \r\n0  1.000000E+01     G      3.631077E-19   0.0            0.0            0.0            6.649052E-03   0.0                           \r\n                            22.6816         0.0            0.0            0.0           22.7918         0.0                         \r\n0  1.500000E+01     G      3.831421E-19   0.0            0.0            0.0            7.030953E-03   0.0                           \r\n                            22.5425         0.0            0.0            0.0           22.6457         0.0                         \r\n0  2.000000E+01     G      4.152142E-19   0.0            0.0            0.0            7.642348E-03   0.0                           \r\n                            22.3743         0.0            0.0            0.0           22.4675         0.0                         \r\n0  2.500000E+01     G      4.652878E-19   0.0            0.0            0.0            8.596970E-03   0.0                           \r\n                            22.1555         0.0            0.0            0.0           22.2351         0.0                         \r\n0  3.000000E+01     G      5.457164E-19   0.0            0.0            0.0            1.013040E-02   0.0                           \r\n                            21.8438         0.0            0.0            0.0           21.9061         0.0                         \r\n0  3.500000E+01     G      6.857853E-19   0.0            0.0            0.0            1.280114E-02   0.0                           \r\n                            21.3419         0.0            0.0            0.0           21.3829         0.0                         \r\n0  4.000000E+01     G      9.741471E-19   0.0            0.0            0.0            1.829984E-02   0.0                           \r\n                            20.3572         0.0            0.0            0.0           20.3728         0.0                         \r\n0  4.500000E+01     G      1.857828E-18   0.0            0.0            0.0            3.515197E-02   0.0                           \r\n                            17.4144         0.0            0.0            0.0           17.4002         0.0                         \r\n0  5.000000E+01     G      1.708271E-17   0.0            0.0            0.0            3.258202E-01   0.0                           \r\n                           281.5223         0.0            0.0            0.0          281.4737         0.0                         \r\n0  5.500000E+01     G      1.613540E-18   0.0            0.0            0.0            3.104773E-02   0.0                           \r\n                           208.7662         0.0            0.0            0.0          208.6783         0.0                         \r\n0  6.000000E+01     G      7.806617E-19   0.0            0.0            0.0            1.516667E-02   0.0                           \r\n                           206.0019         0.0            0.0            0.0          205.8700         0.0                         \r\n0  6.500000E+01     G      4.998254E-19   0.0            0.0            0.0            9.812208E-03   0.0                           \r\n                           205.0573         0.0            0.0            0.0          204.8761         0.0                         \r\n0  7.000000E+01     G      3.599350E-19   0.0            0.0            0.0            7.145513E-03   0.0                           \r\n                           204.5774         0.0            0.0            0.0          204.3419         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      2.767347E-19   0.0            0.0            0.0            5.559928E-03   0.0                           \r\n                           204.2853         0.0            0.0            0.0          203.9901         0.0                         \r\n0  8.000000E+01     G      2.025778E-19   0.0            0.0            0.0            4.515345E-03   0.0                           \r\n                           204.0878         0.0            0.0            0.0          203.7274         0.0                         \r\n0  8.500001E+01     G      1.674763E-19   0.0            0.0            0.0            3.779391E-03   0.0                           \r\n                           203.9447         0.0            0.0            0.0          203.5135         0.0                         \r\n0  9.000000E+01     G      1.414786E-19   0.0            0.0            0.0            3.235694E-03   0.0                           \r\n                           203.8358         0.0            0.0            0.0          203.3282         0.0                         \r\n0  9.500001E+01     G      1.215361E-19   0.0            0.0            0.0            2.819583E-03   0.0                           \r\n                           203.7499         0.0            0.0            0.0          203.1601         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            0.0            0.0            2.492296E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.0024         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            0.0            0.0            2.229203E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.8507         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            0.0            0.0            2.013926E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.7020         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            0.0            0.0            1.835163E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.5542         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            0.0            0.0            1.684869E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.4058         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            0.0            0.0            1.557170E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.2556         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            0.0            0.0            1.447681E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.1029         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            0.0            0.0            1.353068E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.9469         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            0.0            0.0            1.270750E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.7870         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            0.0            0.0            1.198706E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.6228         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            0.0            0.0            1.135325E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.4539         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            0.0            0.0            1.079316E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.2799         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            0.0            0.0            1.029629E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.1006         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            0.0            0.0            9.854039E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          200.9155         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            0.0            0.0            9.459308E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          200.7245         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            0.0            0.0            9.106190E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          200.5272         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            0.0            0.0            8.789730E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          200.3234         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            0.0            0.0            8.505759E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          200.1128         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            0.0            0.0            8.250745E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          199.8951         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            0.0            0.0            8.021687E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          199.6699         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            0.0            0.0            7.816022E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          199.4370         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      2.449874E-16   0.0            4.276741E+01   0.0            1.971472E-07   0.0                           \r\n                           202.8046         0.0          202.7685         0.0           23.2834         0.0                         \r\n0  1.000000E+01     G      1.010695E-15   0.0            1.763649E+02   0.0            8.135514E-07   0.0                           \r\n                           202.6816         0.0          202.6467         0.0           23.1463         0.0                         \r\n0  1.500000E+01     G      2.399535E-15   0.0            4.184307E+02   0.0            1.932350E-06   0.0                           \r\n                           202.5425         0.0          202.5096         0.0           22.9837         0.0                         \r\n0  2.000000E+01     G      4.622925E-15   0.0            8.053757E+02   0.0            3.725132E-06   0.0                           \r\n                           202.3743         0.0          202.3445         0.0           22.7823         0.0                         \r\n0  2.500000E+01     G      8.094431E-15   0.0            1.408423E+03   0.0            6.527458E-06   0.0                           \r\n                           202.1555         0.0          202.1299         0.0           22.5204         0.0                         \r\n0  3.000000E+01     G      1.367081E-14   0.0            2.375118E+03   0.0            1.103431E-05   0.0                           \r\n                           201.8438         0.0          201.8237         0.0           22.1555         0.0                         \r\n0  3.500000E+01     G      2.338347E-14   0.0            4.055283E+03   0.0            1.889318E-05   0.0                           \r\n                           201.3418         0.0          201.3285         0.0           21.5899         0.0                         \r\n0  4.000000E+01     G      4.338397E-14   0.0            7.508243E+03   0.0            3.509234E-05   0.0                           \r\n                           200.3572         0.0          200.3521         0.0           20.5309         0.0                         \r\n0  4.500000E+01     G      1.047165E-13   0.0            1.807984E+04   0.0            8.480375E-05   0.0                           \r\n                           197.4144         0.0          197.4192         0.0           17.5025         0.0                         \r\n0  5.000000E+01     G      1.188725E-12   0.0            2.046927E+05   0.0            9.638583E-04   0.0                           \r\n                           101.5224         0.0          101.5387         0.0          281.5132         0.0                         \r\n0  5.500000E+01     G      1.358594E-13   0.0            2.332494E+04   0.0            1.102940E-04   0.0                           \r\n                            28.7662         0.0           28.7959         0.0          208.6475         0.0                         \r\n0  6.000000E+01     G      7.822582E-14   0.0            1.338616E+04   0.0            6.358008E-05   0.0                           \r\n                            26.0019         0.0           26.0473         0.0          205.7611         0.0                         \r\n0  6.500000E+01     G      5.878002E-14   0.0            1.002242E+04   0.0            4.782607E-05   0.0                           \r\n                            25.0573         0.0           25.1203         0.0          204.6807         0.0                         \r\n0  7.000000E+01     G      4.909134E-14   0.0            8.337637E+03   0.0            3.997896E-05   0.0                           \r\n                            24.5774         0.0           24.6607         0.0          204.0509         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      4.332823E-14   0.0            7.327539E+03   0.0            3.530893E-05   0.0                           \r\n                            24.2853         0.0           24.3914         0.0          203.5935         0.0                         \r\n0  8.000000E+01     G      3.952969E-14   0.0            6.654400E+03   0.0            3.222410E-05   0.0                           \r\n                            24.0878         0.0           24.2196         0.0          203.2145         0.0                         \r\n0  8.500001E+01     G      3.685186E-14   0.0            6.172874E+03   0.0            3.003806E-05   0.0                           \r\n                            23.9447         0.0           24.1053         0.0          202.8722         0.0                         \r\n0  9.000000E+01     G      3.487212E-14   0.0            5.810147E+03   0.0            2.840546E-05   0.0                           \r\n                            23.8358         0.0           24.0286         0.0          202.5449         0.0                         \r\n0  9.500001E+01     G      3.335555E-14   0.0            5.525735E+03   0.0            2.713265E-05   0.0                           \r\n                            23.7499         0.0           23.9785         0.0          202.2197         0.0                         \r\n0  1.000000E+02     G      3.216135E-14   0.0            5.295352E+03   0.0            2.610159E-05   0.0                           \r\n                            23.6802         0.0           23.9487         0.0          201.8876         0.0                         \r\n0  1.050000E+02     G      3.120004E-14   0.0            5.103551E+03   0.0            2.523505E-05   0.0                           \r\n                            23.6224         0.0           23.9352         0.0          201.5416         0.0                         \r\n0  1.100000E+02     G      3.041211E-14   0.0            4.940043E+03   0.0            2.447897E-05   0.0                           \r\n                            23.5736         0.0           23.9355         0.0          201.1756         0.0                         \r\n0  1.150000E+02     G      2.975650E-14   0.0            4.797709E+03   0.0            2.379287E-05   0.0                           \r\n                            23.5317         0.0           23.9480         0.0          200.7837         0.0                         \r\n0  1.200000E+02     G      2.920398E-14   0.0            4.671467E+03   0.0            2.314403E-05   0.0                           \r\n                            23.4953         0.0           23.9717         0.0          200.3596         0.0                         \r\n0  1.250000E+02     G      2.873319E-14   0.0            4.557588E+03   0.0            2.250369E-05   0.0                           \r\n                            23.4634         0.0           24.0062         0.0          199.8961         0.0                         \r\n0  1.300000E+02     G      2.832817E-14   0.0            4.453270E+03   0.0            2.184413E-05   0.0                           \r\n                            23.4352         0.0           24.0513         0.0          199.3849         0.0                         \r\n0  1.350000E+02     G      2.797683E-14   0.0            4.356368E+03   0.0            2.113619E-05   0.0                           \r\n                            23.4100         0.0           24.1071         0.0          198.8155         0.0                         \r\n0  1.400000E+02     G      2.766975E-14   0.0            4.265199E+03   0.0            2.034640E-05   0.0                           \r\n                            23.3873         0.0           24.1739         0.0          198.1749         0.0                         \r\n0  1.450000E+02     G      2.739958E-14   0.0            4.178428E+03   0.0            1.943363E-05   0.0                           \r\n                            23.3668         0.0           24.2523         0.0          197.4465         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      2.716046E-14   0.0            4.094976E+03   0.0            1.834396E-05   0.0                           \r\n                            23.3482         0.0           24.3428         0.0          196.6091         0.0                         \r\n0  1.550000E+02     G      2.694767E-14   0.0            4.013951E+03   0.0            1.700293E-05   0.0                           \r\n                            23.3311         0.0           24.4465         0.0          195.6365         0.0                         \r\n0  1.600000E+02     G      2.675738E-14   0.0            3.934615E+03   0.0            1.530241E-05   0.0                           \r\n                            23.3155         0.0           24.5644         0.0          194.4996         0.0                         \r\n0  1.650000E+02     G      2.658645E-14   0.0            3.856337E+03   0.0            1.307742E-05   0.0                           \r\n                            23.3011         0.0           24.6979         0.0          193.1844         0.0                         \r\n0  1.700000E+02     G      2.643227E-14   0.0            3.778580E+03   0.0            1.006260E-05   0.0                           \r\n                            23.2877         0.0           24.8486         0.0          191.7955         0.0                         \r\n0  1.750000E+02     G      2.629268E-14   0.0            3.700871E+03   0.0            5.808633E-06   0.0                           \r\n                            23.2753         0.0           25.0183         0.0          191.4751         0.0                         \r\n0  1.800000E+02     G      2.616586E-14   0.0            3.622792E+03   0.0            8.748894E-07   0.0                           \r\n                            23.2638         0.0           25.2092         0.0          312.8233         0.0                         \r\n0  1.850000E+02     G      2.605024E-14   0.0            3.543969E+03   0.0            1.070597E-05   0.0                           \r\n                            23.2531         0.0           25.4240         0.0          350.5032         0.0                         \r\n0  1.900000E+02     G      2.594454E-14   0.0            3.464061E+03   0.0            2.783089E-05   0.0                           \r\n                            23.2430         0.0           25.6658         0.0          341.2411         0.0                         \r\n0  1.950000E+02     G      2.584763E-14   0.0            3.382754E+03   0.0            5.644584E-05   0.0                           \r\n                            23.2335         0.0           25.9380         0.0          321.0956         0.0                         \r\n0  2.000000E+02     G      2.575853E-14   0.0            3.299755E+03   0.0            8.627396E-05   0.0                           \r\n                            23.2247         0.0           26.2450         0.0          288.1429         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      3.474713E-16   0.0            0.0            0.0            6.354548E+00   0.0                           \r\n                           202.8046         0.0            0.0            0.0          202.9187         0.0                         \r\n0  1.000000E+01     G      1.433492E-15   0.0            0.0            0.0            2.624941E+01   0.0                           \r\n                           202.6816         0.0            0.0            0.0          202.7918         0.0                         \r\n0  1.500000E+01     G      3.403315E-15   0.0            0.0            0.0            6.245346E+01   0.0                           \r\n                           202.5425         0.0            0.0            0.0          202.6457         0.0                         \r\n0  2.000000E+01     G      6.556800E-15   0.0            0.0            0.0            1.206831E+02   0.0                           \r\n                           202.3743         0.0            0.0            0.0          202.4675         0.0                         \r\n0  2.500000E+01     G      1.148052E-14   0.0            0.0            0.0            2.121217E+02   0.0                           \r\n                           202.1555         0.0            0.0            0.0          202.2350         0.0                         \r\n0  3.000000E+01     G      1.938962E-14   0.0            0.0            0.0            3.599391E+02   0.0                           \r\n                           201.8438         0.0            0.0            0.0          201.9061         0.0                         \r\n0  3.500000E+01     G      3.316531E-14   0.0            0.0            0.0            6.190766E+02   0.0                           \r\n                           201.3418         0.0            0.0            0.0          201.3829         0.0                         \r\n0  4.000000E+01     G      6.153246E-14   0.0            0.0            0.0            1.155918E+03   0.0                           \r\n                           200.3572         0.0            0.0            0.0          200.3728         0.0                         \r\n0  4.500000E+01     G      1.485218E-13   0.0            0.0            0.0            2.810182E+03   0.0                           \r\n                           197.4144         0.0            0.0            0.0          197.4002         0.0                         \r\n0  5.000000E+01     G      1.685996E-12   0.0            0.0            0.0            3.215716E+04   0.0                           \r\n                           101.5224         0.0            0.0            0.0          101.4737         0.0                         \r\n0  5.500000E+01     G      1.926925E-13   0.0            0.0            0.0            3.707789E+03   0.0                           \r\n                            28.7662         0.0            0.0            0.0           28.6783         0.0                         \r\n0  6.000000E+01     G      1.109495E-13   0.0            0.0            0.0            2.155522E+03   0.0                           \r\n                            26.0019         0.0            0.0            0.0           25.8700         0.0                         \r\n0  6.500000E+01     G      8.336903E-14   0.0            0.0            0.0            1.636640E+03   0.0                           \r\n                            25.0573         0.0            0.0            0.0           24.8761         0.0                         \r\n0  7.000000E+01     G      6.962736E-14   0.0            0.0            0.0            1.382258E+03   0.0                           \r\n                            24.5774         0.0            0.0            0.0           24.3419         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      6.145340E-14   0.0            0.0            0.0            1.234672E+03   0.0                           \r\n                            24.2853         0.0            0.0            0.0           23.9901         0.0                         \r\n0  8.000000E+01     G      5.606585E-14   0.0            0.0            0.0            1.140856E+03   0.0                           \r\n                            24.0878         0.0            0.0            0.0           23.7274         0.0                         \r\n0  8.500001E+01     G      5.226783E-14   0.0            0.0            0.0            1.078002E+03   0.0                           \r\n                            23.9447         0.0            0.0            0.0           23.5135         0.0                         \r\n0  9.000000E+01     G      4.945991E-14   0.0            0.0            0.0            1.034695E+03   0.0                           \r\n                            23.8358         0.0            0.0            0.0           23.3282         0.0                         \r\n0  9.500001E+01     G      4.730893E-14   0.0            0.0            0.0            1.004597E+03   0.0                           \r\n                            23.7499         0.0            0.0            0.0           23.1601         0.0                         \r\n0  1.000000E+02     G      4.561517E-14   0.0            0.0            0.0            9.839189E+02   0.0                           \r\n                            23.6802         0.0            0.0            0.0           23.0024         0.0                         \r\n0  1.050000E+02     G      4.425172E-14   0.0            0.0            0.0            9.702597E+02   0.0                           \r\n                            23.6224         0.0            0.0            0.0           22.8507         0.0                         \r\n0  1.100000E+02     G      4.313419E-14   0.0            0.0            0.0            9.620303E+02   0.0                           \r\n                            23.5736         0.0            0.0            0.0           22.7020         0.0                         \r\n0  1.150000E+02     G      4.220433E-14   0.0            0.0            0.0            9.581425E+02   0.0                           \r\n                            23.5317         0.0            0.0            0.0           22.5542         0.0                         \r\n0  1.200000E+02     G      4.142067E-14   0.0            0.0            0.0            9.578298E+02   0.0                           \r\n                            23.4953         0.0            0.0            0.0           22.4058         0.0                         \r\n0  1.250000E+02     G      4.075293E-14   0.0            0.0            0.0            9.605407E+02   0.0                           \r\n                            23.4634         0.0            0.0            0.0           22.2557         0.0                         \r\n0  1.300000E+02     G      4.017849E-14   0.0            0.0            0.0            9.658713E+02   0.0                           \r\n                            23.4352         0.0            0.0            0.0           22.1029         0.0                         \r\n0  1.350000E+02     G      3.968017E-14   0.0            0.0            0.0            9.735244E+02   0.0                           \r\n                            23.4100         0.0            0.0            0.0           21.9469         0.0                         \r\n0  1.400000E+02     G      3.924464E-14   0.0            0.0            0.0            9.832775E+02   0.0                           \r\n                            23.3873         0.0            0.0            0.0           21.7870         0.0                         \r\n0  1.450000E+02     G      3.886145E-14   0.0            0.0            0.0            9.949661E+02   0.0                           \r\n                            23.3668         0.0            0.0            0.0           21.6228         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      3.852229E-14   0.0            0.0            0.0            1.008469E+03   0.0                           \r\n                            23.3482         0.0            0.0            0.0           21.4539         0.0                         \r\n0  1.550000E+02     G      3.822049E-14   0.0            0.0            0.0            1.023697E+03   0.0                           \r\n                            23.3311         0.0            0.0            0.0           21.2799         0.0                         \r\n0  1.600000E+02     G      3.795060E-14   0.0            0.0            0.0            1.040592E+03   0.0                           \r\n                            23.3155         0.0            0.0            0.0           21.1005         0.0                         \r\n0  1.650000E+02     G      3.770816E-14   0.0            0.0            0.0            1.059112E+03   0.0                           \r\n                            23.3011         0.0            0.0            0.0           20.9155         0.0                         \r\n0  1.700000E+02     G      3.748949E-14   0.0            0.0            0.0            1.079238E+03   0.0                           \r\n                            23.2877         0.0            0.0            0.0           20.7245         0.0                         \r\n0  1.750000E+02     G      3.729151E-14   0.0            0.0            0.0            1.100963E+03   0.0                           \r\n                            23.2753         0.0            0.0            0.0           20.5272         0.0                         \r\n0  1.800000E+02     G      3.711162E-14   0.0            0.0            0.0            1.124295E+03   0.0                           \r\n                            23.2638         0.0            0.0            0.0           20.3234         0.0                         \r\n0  1.850000E+02     G      3.694765E-14   0.0            0.0            0.0            1.149255E+03   0.0                           \r\n                            23.2531         0.0            0.0            0.0           20.1128         0.0                         \r\n0  1.900000E+02     G      3.679772E-14   0.0            0.0            0.0            1.175872E+03   0.0                           \r\n                            23.2430         0.0            0.0            0.0           19.8951         0.0                         \r\n0  1.950000E+02     G      3.666027E-14   0.0            0.0            0.0            1.204189E+03   0.0                           \r\n                            23.2335         0.0            0.0            0.0           19.6699         0.0                         \r\n0  2.000000E+02     G      3.653390E-14   0.0            0.0            0.0            1.234257E+03   0.0                           \r\n                            23.2247         0.0            0.0            0.0           19.4370         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      2.815840E-19   0.0            4.915885E-02   0.0            2.268060E-10   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.0000         0.0                         \r\n0  5.000000E+00     G      2.827040E-19   0.0            4.947056E-02   0.0            2.282880E-10   0.0                           \r\n                           355.9628         0.0          355.9684         0.0          175.8892         0.0                         \r\n0  1.000000E+01     G      2.862551E-19   0.0            5.044671E-02   0.0            2.329268E-10   0.0                           \r\n                           351.9342         0.0          351.9452         0.0          171.7903         0.0                         \r\n0  1.500000E+01     G      2.928706E-19   0.0            5.222386E-02   0.0            2.413647E-10   0.0                           \r\n                           347.9221         0.0          347.9381         0.0          167.7146         0.0                         \r\n0  2.000000E+01     G      3.038469E-19   0.0            5.508387E-02   0.0            2.549276E-10   0.0                           \r\n                           343.9323         0.0          343.9528         0.0          163.6718         0.0                         \r\n0  2.500000E+01     G      3.424129E-19   0.0            5.957813E-02   0.0            2.762103E-10   0.0                           \r\n                           339.9650         0.0          339.9893         0.0          159.6667         0.0                         \r\n0  3.000000E+01     G      3.847727E-19   0.0            6.684867E-02   0.0            3.105894E-10   0.0                           \r\n                           336.0052         0.0          336.0321         0.0          155.6894         0.0                         \r\n0  3.500000E+01     G      4.589992E-19   0.0            7.960276E-02   0.0            3.708145E-10   0.0                           \r\n                           331.9896         0.0          332.0176         0.0          151.6838         0.0                         \r\n0  4.000000E+01     G      6.126810E-19   0.0            1.060352E-01   0.0            4.954867E-10   0.0                           \r\n                           327.6712         0.0          327.6984         0.0          147.4116         0.0                         \r\n0  4.500000E+01     G      1.085712E-18   0.0            1.874544E-01   0.0            8.792140E-10   0.0                           \r\n                           321.6367         0.0          321.6603         0.0          141.4713         0.0                         \r\n0  5.000000E+01     G      9.159187E-18   0.0            1.577105E+00   0.0            7.430581E-09   0.0                           \r\n                           222.9833         0.0          222.9995         0.0           42.9756         0.0                         \r\n0  5.500000E+01     G      7.823071E-19   0.0            1.342911E-01   0.0            6.363130E-10   0.0                           \r\n                           147.9256         0.0          147.9294         0.0          328.1602         0.0                         \r\n0  6.000000E+01     G      3.365866E-19   0.0            5.757769E-02   0.0            2.748670E-10   0.0                           \r\n                           143.5177         0.0          143.5021         0.0          324.1063         0.0                         \r\n0  6.500000E+01     G      1.879818E-19   0.0            3.202890E-02   0.0            1.545197E-10   0.0                           \r\n                           141.9013         0.0          141.8574         0.0          322.9860         0.0                         \r\n0  7.000000E+01     G      0.0            0.0            1.959773E-02   0.0            9.607263E-11   0.0                           \r\n                             0.0            0.0          142.1554         0.0          323.9790         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      0.0            0.0            1.251753E-02   0.0            6.297618E-11   0.0                           \r\n                             0.0            0.0          144.9863         0.0          327.6113         0.0                         \r\n0  8.000000E+01     G      0.0            0.0            8.224799E-03   0.0            4.316837E-11   0.0                           \r\n                             0.0            0.0          151.6506         0.0          334.8196         0.0                         \r\n0  8.500001E+01     G      0.0            0.0            5.685082E-03   0.0            3.167396E-11   0.0                           \r\n                             0.0            0.0          163.7647         0.0          346.1971         0.0                         \r\n0  9.000000E+01     G      0.0            0.0            4.421912E-03   0.0            2.593934E-11   0.0                           \r\n                             0.0            0.0          181.0256         0.0            0.3687         0.0                         \r\n0  9.500001E+01     G      0.0            0.0            4.058918E-03   0.0            2.397381E-11   0.0                           \r\n                             0.0            0.0          198.4021         0.0           13.6432         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            4.167400E-03   0.0            2.397241E-11   0.0                           \r\n                             0.0            0.0          210.7588         0.0           23.2006         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            4.426185E-03   0.0            2.468303E-11   0.0                           \r\n                             0.0            0.0          217.6988         0.0           28.8260         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            4.682277E-03   0.0            2.545666E-11   0.0                           \r\n                             0.0            0.0          220.8651         0.0           31.4811         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            4.881089E-03   0.0            2.601453E-11   0.0                           \r\n                             0.0            0.0          221.6646         0.0           32.1189         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            5.009304E-03   0.0            2.625420E-11   0.0                           \r\n                             0.0            0.0          220.9758         0.0           31.4153         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            5.068968E-03   0.0            2.614854E-11   0.0                           \r\n                             0.0            0.0          219.3203         0.0           29.8157         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            5.067271E-03   0.0            2.569958E-11   0.0                           \r\n                             0.0            0.0          217.0134         0.0           27.6176         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            5.012643E-03   0.0            2.491807E-11   0.0                           \r\n                             0.0            0.0          214.2532         0.0           25.0318         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            4.913280E-03   0.0            2.381407E-11   0.0                           \r\n                             0.0            0.0          211.1690         0.0           22.2253         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            4.776661E-03   0.0            2.239221E-11   0.0                           \r\n                             0.0            0.0          207.8486         0.0           19.3563         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            4.609428E-03   0.0            2.064900E-11   0.0                           \r\n                             0.0            0.0          204.3538         0.0           16.6142         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            4.417434E-03   0.0            1.857157E-11   0.0                           \r\n                             0.0            0.0          200.7295         0.0           14.2879         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            4.205812E-03   0.0            1.614025E-11   0.0                           \r\n                             0.0            0.0          197.0098         0.0           12.9242         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            3.979072E-03   0.0            1.334876E-11   0.0                           \r\n                             0.0            0.0          193.2211         0.0           13.7689         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            3.741192E-03   0.0            1.031259E-11   0.0                           \r\n                             0.0            0.0          189.3851         0.0           20.2090         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            3.495686E-03   0.0            7.854692E-12   0.0                           \r\n                             0.0            0.0          185.5199         0.0           41.5917         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            3.245664E-03   0.0            9.096193E-12   0.0                           \r\n                             0.0            0.0          181.6416         0.0           79.3067         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            2.993888E-03   0.0            1.644266E-11   0.0                           \r\n                             0.0            0.0          177.7654         0.0           97.6669         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            2.742818E-03   0.0            3.017811E-11   0.0                           \r\n                             0.0            0.0          173.9057         0.0           95.0833         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            2.494639E-03   0.0            5.145622E-11   0.0                           \r\n                             0.0            0.0          170.0779         0.0           76.6525         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            2.251294E-03   0.0            6.918550E-11   0.0                           \r\n                             0.0            0.0          166.2981         0.0           43.0705         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.993770E-19   0.0            0.0            0.0            7.302478E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      4.009655E-19   0.0            0.0            0.0            7.352855E-03   0.0                           \r\n                           355.9628         0.0            0.0            0.0          355.9452         0.0                         \r\n0  1.000000E+01     G      4.060021E-19   0.0            0.0            0.0            7.510414E-03   0.0                           \r\n                           351.9342         0.0            0.0            0.0          351.8996         0.0                         \r\n0  1.500000E+01     G      4.153850E-19   0.0            0.0            0.0            7.796574E-03   0.0                           \r\n                           347.9221         0.0            0.0            0.0          347.8716         0.0                         \r\n0  2.000000E+01     G      4.484725E-19   0.0            0.0            0.0            8.255555E-03   0.0                           \r\n                           343.9323         0.0            0.0            0.0          343.8679         0.0                         \r\n0  2.500000E+01     G      4.856520E-19   0.0            0.0            0.0            8.973887E-03   0.0                           \r\n                           339.9650         0.0            0.0            0.0          339.8893         0.0                         \r\n0  3.000000E+01     G      5.457318E-19   0.0            0.0            0.0            1.013087E-02   0.0                           \r\n                           336.0052         0.0            0.0            0.0          335.9218         0.0                         \r\n0  3.500000E+01     G      6.510090E-19   0.0            0.0            0.0            1.215166E-02   0.0                           \r\n                           331.9896         0.0            0.0            0.0          331.9033         0.0                         \r\n0  4.000000E+01     G      8.689794E-19   0.0            0.0            0.0            1.632349E-02   0.0                           \r\n                           327.6712         0.0            0.0            0.0          327.5883         0.0                         \r\n0  4.500000E+01     G      1.539890E-18   0.0            0.0            0.0            2.913599E-02   0.0                           \r\n                           321.6367         0.0            0.0            0.0          321.5657         0.0                         \r\n0  5.000000E+01     G      1.299068E-17   0.0            0.0            0.0            2.478020E-01   0.0                           \r\n                           222.9833         0.0            0.0            0.0          222.9349         0.0                         \r\n0  5.500000E+01     G      1.109564E-18   0.0            0.0            0.0            2.135902E-02   0.0                           \r\n                           147.9256         0.0            0.0            0.0          147.9145         0.0                         \r\n0  6.000000E+01     G      4.773885E-19   0.0            0.0            0.0            9.283893E-03   0.0                           \r\n                           143.5177         0.0            0.0            0.0          143.5629         0.0                         \r\n0  6.500000E+01     G      2.666189E-19   0.0            0.0            0.0            5.245012E-03   0.0                           \r\n                           141.9013         0.0            0.0            0.0          142.0269         0.0                         \r\n0  7.000000E+01     G      1.295733E-19   0.0            0.0            0.0            3.267244E-03   0.0                           \r\n                           142.2383         0.0            0.0            0.0          142.4713         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      0.0            0.0            0.0            0.0            2.131995E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          145.4717         0.0                         \r\n0  8.000000E+01     G      0.0            0.0            0.0            0.0            1.438607E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          152.2416         0.0                         \r\n0  8.500001E+01     G      0.0            0.0            0.0            0.0            1.027054E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          164.1310         0.0                         \r\n0  9.000000E+01     G      0.0            0.0            0.0            0.0            8.242049E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          180.5227         0.0                         \r\n0  9.500001E+01     G      0.0            0.0            0.0            0.0            7.714883E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          196.7755         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            0.0            0.0            8.017089E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          208.4338         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            0.0            0.0            8.628450E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          215.0944         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            0.0            0.0            9.283150E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          218.1737         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            0.0            0.0            9.874438E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          218.9516         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            0.0            0.0            1.036710E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          218.2563         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            0.0            0.0            1.075473E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          216.5920         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            0.0            0.0            1.104183E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          214.2687         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            0.0            0.0            1.123653E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          211.4835         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            0.0            0.0            1.134763E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          208.3661         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            0.0            0.0            1.138350E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          205.0054         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            0.0            0.0            1.135165E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.4642         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            0.0            0.0            1.125875E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          197.7887         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            0.0            0.0            1.111059E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          194.0140         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            0.0            0.0            1.091229E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          190.1678         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            0.0            0.0            1.066833E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          186.2730         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            0.0            0.0            1.038271E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          182.3492         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            0.0            0.0            1.005902E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          178.4144         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            0.0            0.0            9.700533E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          174.4857         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            0.0            0.0            9.310279E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          170.5806         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            0.0            0.0            8.891113E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          166.7179         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            0.0            0.0            8.445768E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          162.9187         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      2.797118E-16   0.0            4.882549E+01   0.0            2.253113E-07   0.0                           \r\n                           175.9628         0.0          175.9684         0.0          355.8893         0.0                         \r\n0  1.000000E+01     G      1.141381E-15   0.0            1.991556E+02   0.0            9.195583E-07   0.0                           \r\n                           171.9342         0.0          171.9452         0.0          351.7903         0.0                         \r\n0  1.500000E+01     G      2.660355E-15   0.0            4.638860E+02   0.0            2.143957E-06   0.0                           \r\n                           167.9221         0.0          167.9381         0.0          347.7146         0.0                         \r\n0  2.000000E+01     G      4.993218E-15   0.0            8.698497E+02   0.0            4.025655E-06   0.0                           \r\n                           163.9323         0.0          163.9528         0.0          343.6718         0.0                         \r\n0  2.500000E+01     G      8.448700E-15   0.0            1.470031E+03   0.0            6.815216E-06   0.0                           \r\n                           159.9650         0.0          159.9893         0.0          339.6667         0.0                         \r\n0  3.000000E+01     G      1.367120E-14   0.0            2.375172E+03   0.0            1.103542E-05   0.0                           \r\n                           156.0052         0.0          156.0321         0.0          335.6894         0.0                         \r\n0  3.500000E+01     G      2.219769E-14   0.0            3.849674E+03   0.0            1.793299E-05   0.0                           \r\n                           151.9895         0.0          152.0176         0.0          331.6838         0.0                         \r\n0  4.000000E+01     G      3.870029E-14   0.0            6.697763E+03   0.0            3.129765E-05   0.0                           \r\n                           147.6712         0.0          147.6984         0.0          327.4116         0.0                         \r\n0  4.500000E+01     G      8.679594E-14   0.0            1.498581E+04   0.0            7.028771E-05   0.0                           \r\n                           141.6367         0.0          141.6603         0.0          321.4713         0.0                         \r\n0  5.000000E+01     G      9.039756E-13   0.0            1.556540E+05   0.0            7.333690E-04   0.0                           \r\n                            42.9833         0.0           42.9995         0.0          222.9756         0.0                         \r\n0  5.500000E+01     G      9.342485E-14   0.0            1.603734E+04   0.0            7.598991E-05   0.0                           \r\n                           327.9256         0.0          327.9293         0.0          148.1602         0.0                         \r\n0  6.000000E+01     G      4.783648E-14   0.0            8.183075E+03   0.0            3.906474E-05   0.0                           \r\n                           323.5177         0.0          323.5021         0.0          144.1063         0.0                         \r\n0  6.500000E+01     G      3.135468E-14   0.0            5.342302E+03   0.0            2.577331E-05   0.0                           \r\n                           321.9012         0.0          321.8574         0.0          142.9860         0.0                         \r\n0  7.000000E+01     G      2.235421E-14   0.0            3.791068E+03   0.0            1.858470E-05   0.0                           \r\n                           322.2383         0.0          322.1554         0.0          143.9790         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      1.648364E-14   0.0            2.779719E+03   0.0            1.398488E-05   0.0                           \r\n                           325.1157         0.0          324.9863         0.0          147.6113         0.0                         \r\n0  8.000000E+01     G      1.241146E-14   0.0            2.078094E+03   0.0            1.090700E-05   0.0                           \r\n                           331.8111         0.0          331.6505         0.0          154.8196         0.0                         \r\n0  8.500001E+01     G      9.771346E-15   0.0            1.621565E+03   0.0            9.034415E-06   0.0                           \r\n                           343.8665         0.0          343.7646         0.0          166.1970         0.0                         \r\n0  9.000000E+01     G      8.595861E-15   0.0            1.414018E+03   0.0            8.294757E-06   0.0                           \r\n                             0.8826         0.0            1.0256         0.0          180.3687         0.0                         \r\n0  9.500001E+01     G      8.839998E-15   0.0            1.446163E+03   0.0            8.541694E-06   0.0                           \r\n                            17.9330         0.0           18.4021         0.0          193.6432         0.0                         \r\n0  1.000000E+02     G      1.009108E-14   0.0            1.645224E+03   0.0            9.463927E-06   0.0                           \r\n                            30.0825         0.0           30.7588         0.0          203.2006         0.0                         \r\n0  1.050000E+02     G      1.186157E-14   0.0            1.926495E+03   0.0            1.074328E-05   0.0                           \r\n                            36.9341         0.0           37.6988         0.0          208.8260         0.0                         \r\n0  1.100000E+02     G      1.384001E-14   0.0            2.236672E+03   0.0            1.216037E-05   0.0                           \r\n                            40.0654         0.0           40.8651         0.0          211.4811         0.0                         \r\n0  1.150000E+02     G      1.586443E-14   0.0            2.548427E+03   0.0            1.358224E-05   0.0                           \r\n                            40.8470         0.0           41.6646         0.0          212.1189         0.0                         \r\n0  1.200000E+02     G      1.785062E-14   0.0            2.847736E+03   0.0            1.492523E-05   0.0                           \r\n                            40.1432         0.0           40.9758         0.0          211.4152         0.0                         \r\n0  1.250000E+02     G      1.975090E-14   0.0            3.126794E+03   0.0            1.612974E-05   0.0                           \r\n                            38.4705         0.0           39.3202         0.0          209.8157         0.0                         \r\n0  1.300000E+02     G      2.153517E-14   0.0            3.380808E+03   0.0            1.714638E-05   0.0                           \r\n                            36.1427         0.0           37.0134         0.0          207.6176         0.0                         \r\n0  1.350000E+02     G      2.318240E-14   0.0            3.606568E+03   0.0            1.792841E-05   0.0                           \r\n                            33.3575         0.0           34.2532         0.0          205.0318         0.0                         \r\n0  1.400000E+02     G      2.467655E-14   0.0            3.801783E+03   0.0            1.842678E-05   0.0                           \r\n                            30.2442         0.0           31.1690         0.0          202.2253         0.0                         \r\n0  1.450000E+02     G      2.600481E-14   0.0            3.964790E+03   0.0            1.858630E-05   0.0                           \r\n                            26.8907         0.0           27.8486         0.0          199.3563         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      2.715660E-14   0.0            4.094392E+03   0.0            1.834177E-05   0.0                           \r\n                            23.3589         0.0           24.3538         0.0          196.6142         0.0                         \r\n0  1.550000E+02     G      2.812320E-14   0.0            4.189799E+03   0.0            1.761456E-05   0.0                           \r\n                            19.6941         0.0           20.7295         0.0          194.2879         0.0                         \r\n0  1.600000E+02     G      2.889750E-14   0.0            4.250593E+03   0.0            1.631210E-05   0.0                           \r\n                            15.9304         0.0           17.0098         0.0          192.9242         0.0                         \r\n0  1.650000E+02     G      2.947392E-14   0.0            4.276707E+03   0.0            1.434725E-05   0.0                           \r\n                            12.0945         0.0           13.2211         0.0          193.7690         0.0                         \r\n0  1.700000E+02     G      2.984847E-14   0.0            4.268425E+03   0.0            1.176590E-05   0.0                           \r\n                             8.2083         0.0            9.3851         0.0          200.2090         0.0                         \r\n0  1.750000E+02     G      3.001860E-14   0.0            4.226377E+03   0.0            9.496531E-06   0.0                           \r\n                             4.2905         0.0            5.5199         0.0          221.5918         0.0                         \r\n0  1.800000E+02     G      2.998337E-14   0.0            4.151531E+03   0.0            1.163495E-05   0.0                           \r\n                             0.3575         0.0            1.6416         0.0          259.3066         0.0                         \r\n0  1.850000E+02     G      2.974337E-14   0.0            4.045189E+03   0.0            2.221648E-05   0.0                           \r\n                           356.4253         0.0          357.7654         0.0          277.6669         0.0                         \r\n0  1.900000E+02     G      2.930078E-14   0.0            3.908985E+03   0.0            4.300897E-05   0.0                           \r\n                           352.5096         0.0          353.9057         0.0          275.0833         0.0                         \r\n0  1.950000E+02     G      2.865944E-14   0.0            3.744870E+03   0.0            7.724439E-05   0.0                           \r\n                           348.6270         0.0          350.0779         0.0          256.6525         0.0                         \r\n0  2.000000E+02     G      2.782478E-14   0.0            3.555101E+03   0.0            1.092534E-04   0.0                           \r\n                           344.7962         0.0          346.2981         0.0          223.0705         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      3.967216E-16   0.0            0.0            0.0            7.256977E+00   0.0                           \r\n                           175.9628         0.0            0.0            0.0          175.9452         0.0                         \r\n0  1.000000E+01     G      1.618846E-15   0.0            0.0            0.0            2.964993E+01   0.0                           \r\n                           171.9342         0.0            0.0            0.0          171.8996         0.0                         \r\n0  1.500000E+01     G      3.773242E-15   0.0            0.0            0.0            6.925420E+01   0.0                           \r\n                           167.9221         0.0            0.0            0.0          167.8716         0.0                         \r\n0  2.000000E+01     G      7.081994E-15   0.0            0.0            0.0            1.303665E+02   0.0                           \r\n                           163.9323         0.0            0.0            0.0          163.8679         0.0                         \r\n0  2.500000E+01     G      1.198298E-14   0.0            0.0            0.0            2.214218E+02   0.0                           \r\n                           159.9650         0.0            0.0            0.0          159.8893         0.0                         \r\n0  3.000000E+01     G      1.939017E-14   0.0            0.0            0.0            3.599557E+02   0.0                           \r\n                           156.0052         0.0            0.0            0.0          155.9218         0.0                         \r\n0  3.500000E+01     G      3.148349E-14   0.0            0.0            0.0            5.876674E+02   0.0                           \r\n                           151.9895         0.0            0.0            0.0          151.9033         0.0                         \r\n0  4.000000E+01     G      5.488949E-14   0.0            0.0            0.0            1.031081E+03   0.0                           \r\n                           147.6712         0.0            0.0            0.0          147.5883         0.0                         \r\n0  4.500000E+01     G      1.231047E-13   0.0            0.0            0.0            2.329241E+03   0.0                           \r\n                           141.6367         0.0            0.0            0.0          141.5657         0.0                         \r\n0  5.000000E+01     G      1.282129E-12   0.0            0.0            0.0            2.445708E+04   0.0                           \r\n                            42.9833         0.0            0.0            0.0           42.9349         0.0                         \r\n0  5.500000E+01     G      1.325066E-13   0.0            0.0            0.0            2.550741E+03   0.0                           \r\n                           327.9256         0.0            0.0            0.0          327.9145         0.0                         \r\n0  6.000000E+01     G      6.784756E-14   0.0            0.0            0.0            1.319448E+03   0.0                           \r\n                           323.5177         0.0            0.0            0.0          323.5629         0.0                         \r\n0  6.500000E+01     G      4.447105E-14   0.0            0.0            0.0            8.748487E+02   0.0                           \r\n                           321.9012         0.0            0.0            0.0          322.0269         0.0                         \r\n0  7.000000E+01     G      3.170548E-14   0.0            0.0            0.0            6.320297E+02   0.0                           \r\n                           322.2383         0.0            0.0            0.0          322.4713         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      2.337912E-14   0.0            0.0            0.0            4.734438E+02   0.0                           \r\n                           325.1157         0.0            0.0            0.0          325.4717         0.0                         \r\n0  8.000000E+01     G      1.760346E-14   0.0            0.0            0.0            3.634811E+02   0.0                           \r\n                           331.8111         0.0            0.0            0.0          332.2416         0.0                         \r\n0  8.500001E+01     G      1.385892E-14   0.0            0.0            0.0            2.929483E+02   0.0                           \r\n                           343.8665         0.0            0.0            0.0          344.1310         0.0                         \r\n0  9.000000E+01     G      1.219171E-14   0.0            0.0            0.0            2.635603E+02   0.0                           \r\n                             0.8826         0.0            0.0            0.0            0.5227         0.0                         \r\n0  9.500001E+01     G      1.253797E-14   0.0            0.0            0.0            2.748757E+02   0.0                           \r\n                            17.9330         0.0            0.0            0.0           16.7755         0.0                         \r\n0  1.000000E+02     G      1.431241E-14   0.0            0.0            0.0            3.165020E+02   0.0                           \r\n                            30.0825         0.0            0.0            0.0           28.4338         0.0                         \r\n0  1.050000E+02     G      1.682354E-14   0.0            0.0            0.0            3.755530E+02   0.0                           \r\n                            36.9341         0.0            0.0            0.0           35.0944         0.0                         \r\n0  1.100000E+02     G      1.962960E-14   0.0            0.0            0.0            4.434458E+02   0.0                           \r\n                            40.0654         0.0            0.0            0.0           38.1737         0.0                         \r\n0  1.150000E+02     G      2.250089E-14   0.0            0.0            0.0            5.155465E+02   0.0                           \r\n                            40.8470         0.0            0.0            0.0           38.9515         0.0                         \r\n0  1.200000E+02     G      2.531794E-14   0.0            0.0            0.0            5.893583E+02   0.0                           \r\n                            40.1432         0.0            0.0            0.0           38.2563         0.0                         \r\n0  1.250000E+02     G      2.801314E-14   0.0            0.0            0.0            6.634056E+02   0.0                           \r\n                            38.4705         0.0            0.0            0.0           36.5920         0.0                         \r\n0  1.300000E+02     G      3.054382E-14   0.0            0.0            0.0            7.366943E+02   0.0                           \r\n                            36.1427         0.0            0.0            0.0           34.2687         0.0                         \r\n0  1.350000E+02     G      3.288012E-14   0.0            0.0            0.0            8.084615E+02   0.0                           \r\n                            33.3575         0.0            0.0            0.0           31.4835         0.0                         \r\n0  1.400000E+02     G      3.499931E-14   0.0            0.0            0.0            8.780536E+02   0.0                           \r\n                            30.2442         0.0            0.0            0.0           28.3661         0.0                         \r\n0  1.450000E+02     G      3.688321E-14   0.0            0.0            0.0            9.448686E+02   0.0                           \r\n                            26.8907         0.0            0.0            0.0           25.0054         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      3.851683E-14   0.0            0.0            0.0            1.008327E+03   0.0                           \r\n                            23.3589         0.0            0.0            0.0           21.4642         0.0                         \r\n0  1.550000E+02     G      3.988777E-14   0.0            0.0            0.0            1.067857E+03   0.0                           \r\n                            19.6941         0.0            0.0            0.0           17.7887         0.0                         \r\n0  1.600000E+02     G      4.098598E-14   0.0            0.0            0.0            1.122890E+03   0.0                           \r\n                            15.9304         0.0            0.0            0.0           14.0140         0.0                         \r\n0  1.650000E+02     G      4.180354E-14   0.0            0.0            0.0            1.172853E+03   0.0                           \r\n                            12.0945         0.0            0.0            0.0           10.1678         0.0                         \r\n0  1.700000E+02     G      4.233476E-14   0.0            0.0            0.0            1.217178E+03   0.0                           \r\n                             8.2083         0.0            0.0            0.0            6.2730         0.0                         \r\n0  1.750000E+02     G      4.257606E-14   0.0            0.0            0.0            1.255297E+03   0.0                           \r\n                             4.2905         0.0            0.0            0.0            2.3492         0.0                         \r\n0  1.800000E+02     G      4.252609E-14   0.0            0.0            0.0            1.286650E+03   0.0                           \r\n                             0.3575         0.0            0.0            0.0          358.4143         0.0                         \r\n0  1.850000E+02     G      4.218569E-14   0.0            0.0            0.0            1.310686E+03   0.0                           \r\n                           356.4253         0.0            0.0            0.0          354.4857         0.0                         \r\n0  1.900000E+02     G      4.155797E-14   0.0            0.0            0.0            1.326874E+03   0.0                           \r\n                           352.5096         0.0            0.0            0.0          350.5806         0.0                         \r\n0  1.950000E+02     G      4.064834E-14   0.0            0.0            0.0            1.334704E+03   0.0                           \r\n                           348.6270         0.0            0.0            0.0          346.7179         0.0                         \r\n0  2.000000E+02     G      3.946452E-14   0.0            0.0            0.0            1.333702E+03   0.0                           \r\n                           344.7962         0.0            0.0            0.0          342.9187         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      2.210118E-19   0.0            4.198609E-02   0.0            1.976533E-10   0.0                           \r\n                            23.4132         0.0           23.4132         0.0          203.4132         0.0                         \r\n0  5.000000E+00     G      2.234477E-19   0.0            4.240669E-02   0.0            1.996383E-10   0.0                           \r\n                            23.2975         0.0           23.2975         0.0          203.2975         0.0                         \r\n0  1.000000E+01     G      2.306708E-19   0.0            4.372127E-02   0.0            2.058422E-10   0.0                           \r\n                            23.1745         0.0           23.1746         0.0          203.1745         0.0                         \r\n0  1.500000E+01     G      2.436504E-19   0.0            4.610560E-02   0.0            2.170926E-10   0.0                           \r\n                            23.0353         0.0           23.0357         0.0          203.0356         0.0                         \r\n0  2.000000E+01     G      2.869241E-19   0.0            4.992249E-02   0.0            2.350983E-10   0.0                           \r\n                            22.8671         0.0           22.8680         0.0          202.8679         0.0                         \r\n0  2.500000E+01     G      3.215262E-19   0.0            5.588160E-02   0.0            2.632018E-10   0.0                           \r\n                            22.6483         0.0           22.6500         0.0          202.6498         0.0                         \r\n0  3.000000E+01     G      3.771045E-19   0.0            6.545296E-02   0.0            3.083262E-10   0.0                           \r\n                            22.3366         0.0           22.3396         0.0          202.3394         0.0                         \r\n0  3.500000E+01     G      4.738960E-19   0.0            8.212139E-02   0.0            3.868831E-10   0.0                           \r\n                            21.8347         0.0           21.8395         0.0          201.8393         0.0                         \r\n0  4.000000E+01     G      6.731616E-19   0.0            1.164360E-01   0.0            5.485529E-10   0.0                           \r\n                            20.8501         0.0           20.8573         0.0          200.8575         0.0                         \r\n0  4.500000E+01     G      1.283809E-18   0.0            2.215902E-01   0.0            1.043842E-09   0.0                           \r\n                            17.9073         0.0           17.9177         0.0          197.9186         0.0                         \r\n0  5.000000E+01     G      1.180461E-17   0.0            2.032681E+00   0.0            9.572552E-09   0.0                           \r\n                           282.0152         0.0          282.0296         0.0          102.0319         0.0                         \r\n0  5.500000E+01     G      1.114999E-18   0.0            1.914883E-01   0.0            9.012976E-10   0.0                           \r\n                           209.2590         0.0          209.2783         0.0           29.2831         0.0                         \r\n0  6.000000E+01     G      5.394580E-19   0.0            9.237530E-02   0.0            4.344178E-10   0.0                           \r\n                           206.4948         0.0          206.5201         0.0           26.5288         0.0                         \r\n0  6.500000E+01     G      3.453927E-19   0.0            5.895477E-02   0.0            2.768941E-10   0.0                           \r\n                           205.5501         0.0          205.5826         0.0           25.5974         0.0                         \r\n0  7.000000E+01     G      2.252920E-19   0.0            4.230642E-02   0.0            1.983405E-10   0.0                           \r\n                           205.0702         0.0          205.1112         0.0           25.1352         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      1.736258E-19   0.0            3.240393E-02   0.0            1.515376E-10   0.0                           \r\n                           204.7782         0.0          204.8291         0.0           24.8664         0.0                         \r\n0  8.000000E+01     G      1.394432E-19   0.0            2.587682E-02   0.0            1.206107E-10   0.0                           \r\n                           204.5806         0.0          204.6432         0.0           24.6995         0.0                         \r\n0  8.500001E+01     G      1.152843E-19   0.0            2.127498E-02   0.0            9.872814E-11   0.0                           \r\n                           204.4375         0.0          204.5135         0.0           24.5965         0.0                         \r\n0  9.000000E+01     G      0.0            0.0            1.787220E-02   0.0            8.246735E-11   0.0                           \r\n                             0.0            0.0          204.4201         0.0           24.5401         0.0                         \r\n0  9.500001E+01     G      0.0            0.0            1.526490E-02   0.0            6.992441E-11   0.0                           \r\n                             0.0            0.0          204.3519         0.0           24.5232         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            1.321119E-02   0.0            5.995614E-11   0.0                           \r\n                             0.0            0.0          204.3023         0.0           24.5442         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            1.155735E-02   0.0            5.183389E-11   0.0                           \r\n                             0.0            0.0          204.2673         0.0           24.6061         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            1.020116E-02   0.0            4.507048E-11   0.0                           \r\n                             0.0            0.0          204.2443         0.0           24.7166         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            9.072066E-03   0.0            3.932656E-11   0.0                           \r\n                             0.0            0.0          204.2316         0.0           24.8886         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            8.119845E-03   0.0            3.435694E-11   0.0                           \r\n                             0.0            0.0          204.2280         0.0           25.1429         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            7.307819E-03   0.0            2.997818E-11   0.0                           \r\n                             0.0            0.0          204.2330         0.0           25.5124         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            6.608599E-03   0.0            2.604795E-11   0.0                           \r\n                             0.0            0.0          204.2460         0.0           26.0507         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            6.001348E-03   0.0            2.245166E-11   0.0                           \r\n                             0.0            0.0          204.2670         0.0           26.8475         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            5.469935E-03   0.0            1.909338E-11   0.0                           \r\n                             0.0            0.0          204.2961         0.0           28.0632         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            5.001706E-03   0.0            1.589068E-11   0.0                           \r\n                             0.0            0.0          204.3334         0.0           30.0069         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            4.586585E-03   0.0            1.277578E-11   0.0                           \r\n                             0.0            0.0          204.3793         0.0           33.3397         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            4.216474E-03   0.0            9.717064E-12   0.0                           \r\n                             0.0            0.0          204.4345         0.0           39.6921         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            3.884780E-03   0.0            6.835961E-12   0.0                           \r\n                             0.0            0.0          204.4995         0.0           53.8176         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            3.586097E-03   0.0            5.009830E-12   0.0                           \r\n                             0.0            0.0          204.5751         0.0           88.1602         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            3.315946E-03   0.0            6.524429E-12   0.0                           \r\n                             0.0            0.0          204.6624         0.0          132.7064         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            3.070592E-03   0.0            1.139177E-11   0.0                           \r\n                             0.0            0.0          204.7626         0.0          153.0809         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            2.846890E-03   0.0            1.898654E-11   0.0                           \r\n                             0.0            0.0          204.8772         0.0          159.0806         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            2.642184E-03   0.0            3.042688E-11   0.0                           \r\n                             0.0            0.0          205.0077         0.0          157.8363         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            2.454211E-03   0.0            4.843606E-11   0.0                           \r\n                             0.0            0.0          205.1562         0.0          149.7644         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            2.281033E-03   0.0            7.540135E-11   0.0                           \r\n                             0.0            0.0          205.3249         0.0          131.1334         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            2.120980E-03   0.0            9.635441E-11   0.0                           \r\n                             0.0            0.0          205.5168         0.0           99.4380         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.415917E-19   0.0            0.0            0.0            6.274050E-03   0.0                           \r\n                            23.4132         0.0            0.0            0.0           23.4132         0.0                         \r\n0  5.000000E+00     G      3.450554E-19   0.0            0.0            0.0            6.340077E-03   0.0                           \r\n                            23.2975         0.0            0.0            0.0           23.2974         0.0                         \r\n0  1.000000E+01     G      3.558814E-19   0.0            0.0            0.0            6.546449E-03   0.0                           \r\n                            23.1745         0.0            0.0            0.0           23.1741         0.0                         \r\n0  1.500000E+01     G      3.755171E-19   0.0            0.0            0.0            6.920774E-03   0.0                           \r\n                            23.0353         0.0            0.0            0.0           23.0341         0.0                         \r\n0  2.000000E+01     G      4.069509E-19   0.0            0.0            0.0            7.520040E-03   0.0                           \r\n                            22.8671         0.0            0.0            0.0           22.8644         0.0                         \r\n0  2.500000E+01     G      4.560280E-19   0.0            0.0            0.0            8.455720E-03   0.0                           \r\n                            22.6483         0.0            0.0            0.0           22.6429         0.0                         \r\n0  3.000000E+01     G      5.348560E-19   0.0            0.0            0.0            9.958724E-03   0.0                           \r\n                            22.3366         0.0            0.0            0.0           22.3272         0.0                         \r\n0  3.500000E+01     G      6.721373E-19   0.0            0.0            0.0            1.257644E-02   0.0                           \r\n                            21.8347         0.0            0.0            0.0           21.8198         0.0                         \r\n0  4.000000E+01     G      9.547603E-19   0.0            0.0            0.0            1.796595E-02   0.0                           \r\n                            20.8501         0.0            0.0            0.0           20.8280         0.0                         \r\n0  4.500000E+01     G      1.820855E-18   0.0            0.0            0.0            3.448332E-02   0.0                           \r\n                            17.9073         0.0            0.0            0.0           17.8759         0.0                         \r\n0  5.000000E+01     G      1.674274E-17   0.0            0.0            0.0            3.193431E-01   0.0                           \r\n                           282.0152         0.0            0.0            0.0          281.9722         0.0                         \r\n0  5.500000E+01     G      1.581428E-18   0.0            0.0            0.0            3.040147E-02   0.0                           \r\n                           209.2590         0.0            0.0            0.0          209.2019         0.0                         \r\n0  6.000000E+01     G      7.651256E-19   0.0            0.0            0.0            1.483565E-02   0.0                           \r\n                           206.4948         0.0            0.0            0.0          206.4209         0.0                         \r\n0  6.500000E+01     G      4.898782E-19   0.0            0.0            0.0            9.587435E-03   0.0                           \r\n                           205.5501         0.0            0.0            0.0          205.4565         0.0                         \r\n0  7.000000E+01     G      3.527718E-19   0.0            0.0            0.0            6.973610E-03   0.0                           \r\n                           205.0702         0.0            0.0            0.0          204.9537         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      2.712273E-19   0.0            0.0            0.0            5.419418E-03   0.0                           \r\n                           204.7782         0.0            0.0            0.0          204.6353         0.0                         \r\n0  8.000000E+01     G      1.977754E-19   0.0            0.0            0.0            4.395478E-03   0.0                           \r\n                           204.5806         0.0            0.0            0.0          204.4079         0.0                         \r\n0  8.500001E+01     G      1.635103E-19   0.0            0.0            0.0            3.674028E-03   0.0                           \r\n                           204.4375         0.0            0.0            0.0          204.2311         0.0                         \r\n0  9.000000E+01     G      1.381309E-19   0.0            0.0            0.0            3.141007E-03   0.0                           \r\n                           204.3286         0.0            0.0            0.0          204.0846         0.0                         \r\n0  9.500001E+01     G      1.186622E-19   0.0            0.0            0.0            2.733030E-03   0.0                           \r\n                           204.2427         0.0            0.0            0.0          203.9569         0.0                         \r\n0  1.000000E+02     G      0.0            0.0            0.0            0.0            2.412102E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.8410         0.0                         \r\n0  1.050000E+02     G      0.0            0.0            0.0            0.0            2.154084E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.7325         0.0                         \r\n0  1.100000E+02     G      0.0            0.0            0.0            0.0            1.942924E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.6283         0.0                         \r\n0  1.150000E+02     G      0.0            0.0            0.0            0.0            1.767540E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.5261         0.0                         \r\n0  1.200000E+02     G      0.0            0.0            0.0            0.0            1.620049E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.4244         0.0                         \r\n0  1.250000E+02     G      0.0            0.0            0.0            0.0            1.494694E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.3219         0.0                         \r\n0  1.300000E+02     G      0.0            0.0            0.0            0.0            1.387176E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.2176         0.0                         \r\n0  1.350000E+02     G      0.0            0.0            0.0            0.0            1.294226E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.1108         0.0                         \r\n0  1.400000E+02     G      0.0            0.0            0.0            0.0            1.213315E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          203.0008         0.0                         \r\n0  1.450000E+02     G      0.0            0.0            0.0            0.0            1.142460E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.8869         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      0.0            0.0            0.0            0.0            1.080083E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.7688         0.0                         \r\n0  1.550000E+02     G      0.0            0.0            0.0            0.0            1.024919E-03   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.6460         0.0                         \r\n0  1.600000E+02     G      0.0            0.0            0.0            0.0            9.759358E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.5181         0.0                         \r\n0  1.650000E+02     G      0.0            0.0            0.0            0.0            9.322920E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.3846         0.0                         \r\n0  1.700000E+02     G      0.0            0.0            0.0            0.0            8.932902E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.2453         0.0                         \r\n0  1.750000E+02     G      0.0            0.0            0.0            0.0            8.583505E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          202.0997         0.0                         \r\n0  1.800000E+02     G      0.0            0.0            0.0            0.0            8.269869E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.9475         0.0                         \r\n0  1.850000E+02     G      0.0            0.0            0.0            0.0            7.987900E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.7884         0.0                         \r\n0  1.900000E+02     G      0.0            0.0            0.0            0.0            7.734127E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.6219         0.0                         \r\n0  1.950000E+02     G      0.0            0.0            0.0            0.0            7.505600E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.4478         0.0                         \r\n0  2.000000E+02     G      0.0            0.0            0.0            0.0            7.299795E-04   0.0                           \r\n                             0.0            0.0            0.0            0.0          201.2656         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      2.401119E-16   0.0            4.185373E+01   0.0            1.970352E-07   0.0                           \r\n                           203.2975         0.0          203.2975         0.0           23.2975         0.0                         \r\n0  1.000000E+01     G      9.905810E-16   0.0            1.726047E+02   0.0            8.126324E-07   0.0                           \r\n                           203.1745         0.0          203.1746         0.0           23.1745         0.0                         \r\n0  1.500000E+01     G      2.351781E-15   0.0            4.095397E+02   0.0            1.928356E-06   0.0                           \r\n                           203.0353         0.0          203.0357         0.0           23.0356         0.0                         \r\n0  2.000000E+01     G      4.530924E-15   0.0            7.883444E+02   0.0            3.712524E-06   0.0                           \r\n                           202.8671         0.0          202.8680         0.0           22.8679         0.0                         \r\n0  2.500000E+01     G      7.933342E-15   0.0            1.378823E+03   0.0            6.494245E-06   0.0                           \r\n                           202.6483         0.0          202.6501         0.0           22.6498         0.0                         \r\n0  3.000000E+01     G      1.339874E-14   0.0            2.325582E+03   0.0            1.095501E-05   0.0                           \r\n                           202.3366         0.0          202.3396         0.0           22.3394         0.0                         \r\n0  3.500000E+01     G      2.291811E-14   0.0            3.971478E+03   0.0            1.871008E-05   0.0                           \r\n                           201.8347         0.0          201.8395         0.0           21.8393         0.0                         \r\n0  4.000000E+01     G      4.252057E-14   0.0            7.354737E+03   0.0            3.464961E-05   0.0                           \r\n                           200.8501         0.0          200.8573         0.0           20.8575         0.0                         \r\n0  4.500000E+01     G      1.026325E-13   0.0            1.771476E+04   0.0            8.344865E-05   0.0                           \r\n                           197.9073         0.0          197.9177         0.0           17.9186         0.0                         \r\n0  5.000000E+01     G      1.165068E-12   0.0            2.006175E+05   0.0            9.447730E-04   0.0                           \r\n                           102.0152         0.0          102.0296         0.0          282.0319         0.0                         \r\n0  5.500000E+01     G      1.331557E-13   0.0            2.286796E+04   0.0            1.076350E-04   0.0                           \r\n                            29.2590         0.0           29.2783         0.0          209.2831         0.0                         \r\n0  6.000000E+01     G      7.666903E-14   0.0            1.312859E+04   0.0            6.174047E-05   0.0                           \r\n                            26.4948         0.0           26.5201         0.0          206.5288         0.0                         \r\n0  6.500000E+01     G      5.761023E-14   0.0            9.833438E+03   0.0            4.618491E-05   0.0                           \r\n                            25.5501         0.0           25.5825         0.0          205.5974         0.0                         \r\n0  7.000000E+01     G      4.811436E-14   0.0            8.183934E+03   0.0            3.836783E-05   0.0                           \r\n                            25.0702         0.0           25.1112         0.0          205.1352         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      4.246594E-14   0.0            7.195816E+03   0.0            3.365137E-05   0.0                           \r\n                            24.7782         0.0           24.8291         0.0          204.8664         0.0                         \r\n0  8.000000E+01     G      3.874300E-14   0.0            6.538086E+03   0.0            3.047372E-05   0.0                           \r\n                            24.5806         0.0           24.6432         0.0          204.6994         0.0                         \r\n0  8.500001E+01     G      3.611847E-14   0.0            6.068296E+03   0.0            2.816039E-05   0.0                           \r\n                            24.4375         0.0           24.5135         0.0          204.5965         0.0                         \r\n0  9.000000E+01     G      3.417812E-14   0.0            5.715084E+03   0.0            2.637101E-05   0.0                           \r\n                            24.3286         0.0           24.4201         0.0          204.5401         0.0                         \r\n0  9.500001E+01     G      3.269173E-14   0.0            5.438775E+03   0.0            2.491356E-05   0.0                           \r\n                            24.2427         0.0           24.3519         0.0          204.5232         0.0                         \r\n0  1.000000E+02     G      3.152129E-14   0.0            5.215569E+03   0.0            2.366974E-05   0.0                           \r\n                            24.1730         0.0           24.3023         0.0          204.5442         0.0                         \r\n0  1.050000E+02     G      3.057912E-14   0.0            5.030333E+03   0.0            2.256068E-05   0.0                           \r\n                            24.1152         0.0           24.2673         0.0          204.6061         0.0                         \r\n0  1.100000E+02     G      2.980688E-14   0.0            4.872982E+03   0.0            2.152967E-05   0.0                           \r\n                            24.0664         0.0           24.2443         0.0          204.7166         0.0                         \r\n0  1.150000E+02     G      2.916432E-14   0.0            4.736545E+03   0.0            2.053248E-05   0.0                           \r\n                            24.0245         0.0           24.2316         0.0          204.8886         0.0                         \r\n0  1.200000E+02     G      2.862278E-14   0.0            4.616045E+03   0.0            1.953156E-05   0.0                           \r\n                            23.9882         0.0           24.2280         0.0          205.1429         0.0                         \r\n0  1.250000E+02     G      2.816136E-14   0.0            4.507831E+03   0.0            1.849205E-05   0.0                           \r\n                            23.9563         0.0           24.2330         0.0          205.5124         0.0                         \r\n0  1.300000E+02     G      2.776441E-14   0.0            4.409160E+03   0.0            1.737880E-05   0.0                           \r\n                            23.9280         0.0           24.2460         0.0          206.0507         0.0                         \r\n0  1.350000E+02     G      2.742006E-14   0.0            4.317935E+03   0.0            1.615384E-05   0.0                           \r\n                            23.9028         0.0           24.2670         0.0          206.8475         0.0                         \r\n0  1.400000E+02     G      2.711909E-14   0.0            4.232510E+03   0.0            1.477402E-05   0.0                           \r\n                            23.8801         0.0           24.2961         0.0          208.0632         0.0                         \r\n0  1.450000E+02     G      2.685430E-14   0.0            4.151585E+03   0.0            1.318980E-05   0.0                           \r\n                            23.8596         0.0           24.3334         0.0          210.0069         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =       6\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      2.661993E-14   0.0            4.074101E+03   0.0            1.134827E-05   0.0                           \r\n                            23.8410         0.0           24.3794         0.0          213.3397         0.0                         \r\n0  1.550000E+02     G      2.641138E-14   0.0            3.999195E+03   0.0            9.216334E-06   0.0                           \r\n                            23.8240         0.0           24.4345         0.0          219.6921         0.0                         \r\n0  1.600000E+02     G      2.622487E-14   0.0            3.926144E+03   0.0            6.908747E-06   0.0                           \r\n                            23.8083         0.0           24.4995         0.0          233.8176         0.0                         \r\n0  1.650000E+02     G      2.605735E-14   0.0            3.854338E+03   0.0            5.384565E-06   0.0                           \r\n                            23.7939         0.0           24.5751         0.0          268.1602         0.0                         \r\n0  1.700000E+02     G      2.590624E-14   0.0            3.783251E+03   0.0            7.443894E-06   0.0                           \r\n                            23.7805         0.0           24.6624         0.0          312.7064         0.0                         \r\n0  1.750000E+02     G      2.576943E-14   0.0            3.712427E+03   0.0            1.377295E-05   0.0                           \r\n                            23.7682         0.0           24.7627         0.0          333.0809         0.0                         \r\n0  1.800000E+02     G      2.564512E-14   0.0            3.641459E+03   0.0            2.428570E-05   0.0                           \r\n                            23.7566         0.0           24.8772         0.0          339.0805         0.0                         \r\n0  1.850000E+02     G      2.553181E-14   0.0            3.569984E+03   0.0            4.111124E-05   0.0                           \r\n                            23.7459         0.0           25.0077         0.0          337.8363         0.0                         \r\n0  1.900000E+02     G      2.542821E-14   0.0            3.497670E+03   0.0            6.902967E-05   0.0                           \r\n                            23.7358         0.0           25.1562         0.0          329.7644         0.0                         \r\n0  1.950000E+02     G      2.533322E-14   0.0            3.424211E+03   0.0            1.131900E-04   0.0                           \r\n                            23.7264         0.0           25.3249         0.0          311.1335         0.0                         \r\n0  2.000000E+02     G      2.524590E-14   0.0            3.349317E+03   0.0            1.521568E-04   0.0                           \r\n                            23.7175         0.0           25.5167         0.0          279.4380         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  5.000000E+00     G      3.405561E-16   0.0            0.0            0.0            6.257406E+00   0.0                           \r\n                           203.2975         0.0            0.0            0.0          203.2974         0.0                         \r\n0  1.000000E+01     G      1.404964E-15   0.0            0.0            0.0            2.584435E+01   0.0                           \r\n                           203.1744         0.0            0.0            0.0          203.1741         0.0                         \r\n0  1.500000E+01     G      3.335585E-15   0.0            0.0            0.0            6.147478E+01   0.0                           \r\n                           203.0353         0.0            0.0            0.0          203.0341         0.0                         \r\n0  2.000000E+01     G      6.426311E-15   0.0            0.0            0.0            1.187517E+02   0.0                           \r\n                           202.8671         0.0            0.0            0.0          202.8644         0.0                         \r\n0  2.500000E+01     G      1.125204E-14   0.0            0.0            0.0            2.086365E+02   0.0                           \r\n                           202.6483         0.0            0.0            0.0          202.6429         0.0                         \r\n0  3.000000E+01     G      1.900374E-14   0.0            0.0            0.0            3.538392E+02   0.0                           \r\n                           202.3366         0.0            0.0            0.0          202.3273         0.0                         \r\n0  3.500000E+01     G      3.250528E-14   0.0            0.0            0.0            6.082099E+02   0.0                           \r\n                           201.8347         0.0            0.0            0.0          201.8198         0.0                         \r\n0  4.000000E+01     G      6.030789E-14   0.0            0.0            0.0            1.134828E+03   0.0                           \r\n                           200.8501         0.0            0.0            0.0          200.8280         0.0                         \r\n0  4.500000E+01     G      1.455660E-13   0.0            0.0            0.0            2.756727E+03   0.0                           \r\n                           197.9073         0.0            0.0            0.0          197.8759         0.0                         \r\n0  5.000000E+01     G      1.652443E-12   0.0            0.0            0.0            3.151790E+04   0.0                           \r\n                           102.0152         0.0            0.0            0.0          101.9722         0.0                         \r\n0  5.500000E+01     G      1.888577E-13   0.0            0.0            0.0            3.630611E+03   0.0                           \r\n                            29.2590         0.0            0.0            0.0           29.2019         0.0                         \r\n0  6.000000E+01     G      1.087414E-13   0.0            0.0            0.0            2.108477E+03   0.0                           \r\n                            26.4948         0.0            0.0            0.0           26.4209         0.0                         \r\n0  6.500000E+01     G      8.170988E-14   0.0            0.0            0.0            1.599149E+03   0.0                           \r\n                            25.5501         0.0            0.0            0.0           25.4565         0.0                         \r\n0  7.000000E+01     G      6.824169E-14   0.0            0.0            0.0            1.349005E+03   0.0                           \r\n                            25.0702         0.0            0.0            0.0           24.9537         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+01     G      6.023041E-14   0.0            0.0            0.0            1.203469E+03   0.0                           \r\n                            24.7782         0.0            0.0            0.0           24.6353         0.0                         \r\n0  8.000000E+01     G      5.495007E-14   0.0            0.0            0.0            1.110570E+03   0.0                           \r\n                            24.5806         0.0            0.0            0.0           24.4079         0.0                         \r\n0  8.500001E+01     G      5.122764E-14   0.0            0.0            0.0            1.047949E+03   0.0                           \r\n                            24.4375         0.0            0.0            0.0           24.2311         0.0                         \r\n0  9.000000E+01     G      4.847560E-14   0.0            0.0            0.0            1.004416E+03   0.0                           \r\n                            24.3286         0.0            0.0            0.0           24.0846         0.0                         \r\n0  9.500001E+01     G      4.636742E-14   0.0            0.0            0.0            9.737587E+02   0.0                           \r\n                            24.2427         0.0            0.0            0.0           23.9569         0.0                         \r\n0  1.000000E+02     G      4.470736E-14   0.0            0.0            0.0            9.522598E+02   0.0                           \r\n                            24.1730         0.0            0.0            0.0           23.8410         0.0                         \r\n0  1.050000E+02     G      4.337106E-14   0.0            0.0            0.0            9.375644E+02   0.0                           \r\n                            24.1152         0.0            0.0            0.0           23.7325         0.0                         \r\n0  1.100000E+02     G      4.227577E-14   0.0            0.0            0.0            9.281129E+02   0.0                           \r\n                            24.0664         0.0            0.0            0.0           23.6283         0.0                         \r\n0  1.150000E+02     G      4.136441E-14   0.0            0.0            0.0            9.228363E+02   0.0                           \r\n                            24.0245         0.0            0.0            0.0           23.5261         0.0                         \r\n0  1.200000E+02     G      4.059634E-14   0.0            0.0            0.0            9.209806E+02   0.0                           \r\n                            23.9882         0.0            0.0            0.0           23.4244         0.0                         \r\n0  1.250000E+02     G      3.994190E-14   0.0            0.0            0.0            9.220024E+02   0.0                           \r\n                            23.9563         0.0            0.0            0.0           23.3219         0.0                         \r\n0  1.300000E+02     G      3.937889E-14   0.0            0.0            0.0            9.255031E+02   0.0                           \r\n                            23.9280         0.0            0.0            0.0           23.2176         0.0                         \r\n0  1.350000E+02     G      3.889048E-14   0.0            0.0            0.0            9.311878E+02   0.0                           \r\n                            23.9028         0.0            0.0            0.0           23.1108         0.0                         \r\n0  1.400000E+02     G      3.846361E-14   0.0            0.0            0.0            9.388351E+02   0.0                           \r\n                            23.8801         0.0            0.0            0.0           23.0008         0.0                         \r\n0  1.450000E+02     G      3.808806E-14   0.0            0.0            0.0            9.482802E+02   0.0                           \r\n                            23.8596         0.0            0.0            0.0           22.8870         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.500000E+02     G      3.775565E-14   0.0            0.0            0.0            9.593996E+02   0.0                           \r\n                            23.8410         0.0            0.0            0.0           22.7689         0.0                         \r\n0  1.550000E+02     G      3.745985E-14   0.0            0.0            0.0            9.721034E+02   0.0                           \r\n                            23.8240         0.0            0.0            0.0           22.6460         0.0                         \r\n0  1.600000E+02     G      3.719533E-14   0.0            0.0            0.0            9.863271E+02   0.0                           \r\n                            23.8083         0.0            0.0            0.0           22.5181         0.0                         \r\n0  1.650000E+02     G      3.695772E-14   0.0            0.0            0.0            1.002027E+03   0.0                           \r\n                            23.7939         0.0            0.0            0.0           22.3846         0.0                         \r\n0  1.700000E+02     G      3.674340E-14   0.0            0.0            0.0            1.019178E+03   0.0                           \r\n                            23.7806         0.0            0.0            0.0           22.2453         0.0                         \r\n0  1.750000E+02     G      3.654936E-14   0.0            0.0            0.0            1.037769E+03   0.0                           \r\n                            23.7682         0.0            0.0            0.0           22.0997         0.0                         \r\n0  1.800000E+02     G      3.637306E-14   0.0            0.0            0.0            1.057800E+03   0.0                           \r\n                            23.7566         0.0            0.0            0.0           21.9475         0.0                         \r\n0  1.850000E+02     G      3.621235E-14   0.0            0.0            0.0            1.079284E+03   0.0                           \r\n                            23.7459         0.0            0.0            0.0           21.7884         0.0                         \r\n0  1.900000E+02     G      3.606541E-14   0.0            0.0            0.0            1.102245E+03   0.0                           \r\n                            23.7358         0.0            0.0            0.0           21.6220         0.0                         \r\n0  1.950000E+02     G      3.593069E-14   0.0            0.0            0.0            1.126716E+03   0.0                           \r\n                            23.7264         0.0            0.0            0.0           21.4478         0.0                         \r\n0  2.000000E+02     G      3.580683E-14   0.0            0.0            0.0            1.152737E+03   0.0                           \r\n                            23.7175         0.0            0.0            0.0           21.2656         0.0                         \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            9.354828E+02  0.0            1.030157E+03  0.0            4.734637E+01  0.0            4.611529E-12   0.0         \r\n                  202.7174        0.0          202.6068        0.0           21.5138        0.0           22.9204         0.0       \r\n0  5.000000E+00   9.442548E+02  0.0            1.039388E+03  0.0            4.757596E+01  0.0            4.658291E-12   0.0         \r\n                  202.6036        0.0          202.4939        0.0           21.4053        0.0           22.8046         0.0       \r\n0  1.000000E+01   9.716707E+02  0.0            1.068238E+03  0.0            4.829322E+01  0.0            4.804442E-12   0.0         \r\n                  202.4868        0.0          202.3801        0.0           21.3069        0.0           22.6816         0.0       \r\n0  1.500000E+01   1.021393E+03  0.0            1.120561E+03  0.0            4.959293E+01  0.0            5.069526E-12   0.0         \r\n                  202.3587        0.0          202.2575        0.0           21.2152        0.0           22.5425         0.0       \r\n0  2.000000E+01   1.100984E+03  0.0            1.204308E+03  0.0            5.167073E+01  0.0            5.493886E-12   0.0         \r\n                  202.2071        0.0          202.1143        0.0           21.1250        0.0           22.3743         0.0       \r\n0  2.500000E+01   1.225232E+03  0.0            1.335036E+03  0.0            5.490927E+01  0.0            6.156433E-12   0.0         \r\n                  202.0111        0.0          201.9301        0.0           21.0258        0.0           22.1555         0.0       \r\n0  3.000000E+01   1.424771E+03  0.0            1.544961E+03  0.0            6.010108E+01  0.0            7.220620E-12   0.0         \r\n                  201.7293        0.0          201.6642        0.0           20.8921        0.0           21.8438         0.0       \r\n0  3.500000E+01   1.772222E+03  0.0            1.910464E+03  0.0            6.912478E+01  0.0            9.073935E-12   0.0         \r\n                  201.2653        0.0          201.2210        0.0           20.6534        0.0           21.3419         0.0       \r\n0  4.000000E+01   2.487413E+03  0.0            2.662743E+03  0.0            8.766587E+01  0.0            1.288938E-11   0.0         \r\n                  200.3276        0.0          200.3102        0.0           20.0628        0.0           20.3572         0.0       \r\n0  4.500000E+01   4.678746E+03  0.0            4.967482E+03  0.0            1.443699E+02  0.0            2.458176E-11   0.0         \r\n                  197.4422        0.0          197.4589        0.0           17.7296        0.0           17.4144         0.0       \r\n0  5.000000E+01   4.234944E+04  0.0            4.453345E+04  0.0            1.092237E+03  0.0            2.260291E-10   0.0         \r\n                  101.6192        0.0          101.6790        0.0          282.8392        0.0          281.5223         0.0       \r\n0  5.500000E+01   3.929663E+03  0.0            4.086570E+03  0.0            7.855529E+01  0.0            2.134947E-11   0.0         \r\n                   28.9456        0.0           29.0598        0.0          211.9158        0.0          208.7662         0.0       \r\n0  6.000000E+01   1.863734E+03  0.0            1.913355E+03  0.0            2.499225E+01  0.0            1.032929E-11   0.0         \r\n                   26.2796        0.0           26.4620        0.0          213.2810        0.0          206.0019         0.0       \r\n0  6.500000E+01   1.167021E+03  0.0            1.180398E+03  0.0            7.231908E+00  0.0            6.613416E-12   0.0         \r\n                   25.4510        0.0           25.7195        0.0          227.9391        0.0          205.0573         0.0       \r\n0  7.000000E+01   8.198580E+02  0.0            8.151066E+02  0.0            3.590834E+00  0.0            4.762462E-12   0.0         \r\n                   25.1081        0.0           25.4855        0.0          336.7178        0.0          204.5774         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   6.132747E+02  0.0            5.976743E+02  0.0            8.263032E+00  0.0            3.661602E-12   0.0         \r\n                   24.9773        0.0           25.4934        0.0            5.9659        0.0          204.2853         0.0       \r\n0  8.000000E+01   4.770239E+02  0.0            4.542129E+02  0.0            1.174882E+01  0.0            2.936068E-12   0.0         \r\n                   24.9698        0.0           25.6639        0.0           11.4279        0.0          204.0878         0.0       \r\n0  8.500001E+01   3.808834E+02  0.0            3.529352E+02  0.0            1.428408E+01  0.0            2.424623E-12   0.0         \r\n                   25.0508        0.0           25.9759        0.0           13.5457        0.0          203.9447         0.0       \r\n0  9.000000E+01   3.097184E+02  0.0            2.779249E+02  0.0            1.620514E+01  0.0            2.046521E-12   0.0         \r\n                   25.2069        0.0           26.4359        0.0           14.6083        0.0          203.8358         0.0       \r\n0  9.500001E+01   2.551182E+02  0.0            2.203394E+02  0.0            1.771567E+01  0.0            1.756886E-12   0.0         \r\n                   25.4352        0.0           27.0710        0.0           15.2094        0.0          203.7499         0.0       \r\n0  1.000000E+02   2.120418E+02  0.0            1.748829E+02  0.0            1.894110E+01  0.0            1.528822E-12   0.0         \r\n                   25.7401        0.0           27.9322        0.0           15.5690        0.0          203.6802         0.0       \r\n0  1.050000E+02   1.772865E+02  0.0            1.381972E+02  0.0            1.996219E+01  0.0            1.345238E-12   0.0         \r\n                   26.1316        0.0           29.1053        0.0           15.7865        0.0          203.6224         0.0       \r\n0  1.100000E+02   1.487232E+02  0.0            1.080611E+02  0.0            2.083309E+01  0.0            1.194769E-12   0.0         \r\n                   26.6260        0.0           30.7360        0.0           15.9134        0.0          203.5736         0.0       \r\n0  1.150000E+02   1.248833E+02  0.0            8.296330E+01  0.0            2.159142E+01  0.0            1.069569E-12   0.0         \r\n                   27.2476        0.0           33.0855        0.0           15.9787        0.0          203.5317         0.0       \r\n0  1.200000E+02   1.047232E+02  0.0            6.187334E+01  0.0            2.226409E+01  0.0            9.640560E-13   0.0         \r\n                   28.0316        0.0           36.6594        0.0           16.0000        0.0          203.4953         0.0       \r\n0  1.250000E+02   8.748266E+01  0.0            4.414425E+01  0.0            2.287092E+01  0.0            8.741512E-13   0.0         \r\n                   29.0296        0.0           42.5515        0.0           15.9884        0.0          203.4634         0.0       \r\n0  1.300000E+02   7.259776E+01  0.0            2.958955E+01  0.0            2.342680E+01  0.0            7.968098E-13   0.0         \r\n                   30.3193        0.0           53.4562        0.0           15.9514        0.0          203.4352         0.0       \r\n0  1.350000E+02   5.964526E+01  0.0            1.905482E+01  0.0            2.394316E+01  0.0            7.297157E-13   0.0         \r\n                   32.0219        0.0           76.2955        0.0           15.8941        0.0          203.4100         0.0       \r\n0  1.400000E+02   4.830762E+01  0.0            1.564074E+01  0.0            2.442899E+01  0.0            6.710764E-13   0.0         \r\n                   34.3352        0.0          117.0679        0.0           15.8201        0.0          203.3873         0.0       \r\n0  1.450000E+02   3.835432E+01  0.0            2.013535E+01  0.0            2.489142E+01  0.0            6.194849E-13   0.0         \r\n                   37.6015        0.0          150.5347        0.0           15.7320        0.0          203.3668         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   2.963962E+01  0.0            2.766916E+01  0.0            2.533623E+01  0.0            5.738222E-13   0.0         \r\n                   42.4548        0.0          166.7256        0.0           15.6316        0.0          203.3482         0.0       \r\n0  1.550000E+02   2.213056E+01  0.0            3.562258E+01  0.0            2.576820E+01  0.0            5.331883E-13   0.0         \r\n                   50.1569        0.0          174.8432        0.0           15.5203        0.0          203.3311         0.0       \r\n0  1.600000E+02   1.600792E+01  0.0            4.331237E+01  0.0            2.619132E+01  0.0            4.968513E-13   0.0         \r\n                   63.3047        0.0          179.4816        0.0           15.3991        0.0          203.3155         0.0       \r\n0  1.650000E+02   1.191777E+01  0.0            5.058184E+01  0.0            2.660899E+01  0.0            4.642108E-13   0.0         \r\n                   86.1401        0.0          182.4066        0.0           15.2686        0.0          203.3010         0.0       \r\n0  1.700000E+02   1.096707E+01  0.0            5.741827E+01  0.0            2.702415E+01  0.0            4.347698E-13   0.0         \r\n                  117.5688        0.0          184.3798        0.0           15.1295        0.0          203.2877         0.0       \r\n0  1.750000E+02   1.307078E+01  0.0            6.385226E+01  0.0            2.743937E+01  0.0            4.081141E-13   0.0         \r\n                  143.5597        0.0          185.7735        0.0           14.9821        0.0          203.2753         0.0       \r\n0  1.800000E+02   1.668994E+01  0.0            6.992687E+01  0.0            2.785697E+01  0.0            3.838952E-13   0.0         \r\n                  158.9642        0.0          186.7888        0.0           14.8266        0.0          203.2638         0.0       \r\n0  1.850000E+02   2.078283E+01  0.0            7.568686E+01  0.0            2.827905E+01  0.0            3.618188E-13   0.0         \r\n                  167.8305        0.0          187.5431        0.0           14.6630        0.0          203.2531         0.0       \r\n0  1.900000E+02   2.494575E+01  0.0            8.117487E+01  0.0            2.870754E+01  0.0            3.416343E-13   0.0         \r\n                  173.2865        0.0          188.1095        0.0           14.4914        0.0          203.2430         0.0       \r\n0  1.950000E+02   2.903654E+01  0.0            8.643030E+01  0.0            2.914427E+01  0.0            3.231277E-13   0.0         \r\n                  176.8791        0.0          188.5353        0.0           14.3117        0.0          203.2335         0.0       \r\n0  2.000000E+02   3.300833E+01  0.0            9.148916E+01  0.0            2.959097E+01  0.0            3.061144E-13   0.0         \r\n                  179.3722        0.0          188.8527        0.0           14.1237        0.0          203.2247         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            1.830121E+02  0.0            1.155043E-03  0.0            9.150663E+01  0.0            4.762778E-13   0.0         \r\n                  204.3487        0.0           23.0772        0.0          204.3487        0.0           22.9204         0.0       \r\n0  5.000000E+00   1.858488E+02  0.0            1.167436E-03  0.0            9.292496E+01  0.0            4.811073E-13   0.0         \r\n                  204.2107        0.0           22.9597        0.0          204.2107        0.0           22.8046         0.0       \r\n0  1.000000E+01   1.947159E+02  0.0            1.206170E-03  0.0            9.735853E+01  0.0            4.962018E-13   0.0         \r\n                  204.0200        0.0           22.8313        0.0          204.0200        0.0           22.6816         0.0       \r\n0  1.500000E+01   2.108035E+02  0.0            1.276428E-03  0.0            1.054024E+02  0.0            5.235797E-13   0.0         \r\n                  203.7681        0.0           22.6827        0.0          203.7681        0.0           22.5425         0.0       \r\n0  2.000000E+01   2.365691E+02  0.0            1.388908E-03  0.0            1.182852E+02  0.0            5.674074E-13   0.0         \r\n                  203.4453        0.0           22.5007        0.0          203.4453        0.0           22.3743         0.0       \r\n0  2.500000E+01   2.768202E+02  0.0            1.564535E-03  0.0            1.384108E+02  0.0            6.358351E-13   0.0         \r\n                  203.0350        0.0           22.2633        0.0          203.0350        0.0           22.1555         0.0       \r\n0  3.000000E+01   3.415155E+02  0.0            1.846658E-03  0.0            1.707587E+02  0.0            7.457442E-13   0.0         \r\n                  202.5011        0.0           21.9280        0.0          202.5011        0.0           21.8438         0.0       \r\n0  3.500000E+01   4.542653E+02  0.0            2.338035E-03  0.0            2.271338E+02  0.0            9.371542E-13   0.0         \r\n                  201.7531        0.0           21.3972        0.0          201.7531        0.0           21.3418         0.0       \r\n0  4.000000E+01   6.865510E+02  0.0            3.349746E-03  0.0            3.432772E+02  0.0            1.331213E-12   0.0         \r\n                  200.5048        0.0           20.3782        0.0          200.5048        0.0           20.3572         0.0       \r\n0  4.500000E+01   1.398918E+03  0.0            6.450471E-03  0.0            6.994623E+02  0.0            2.538799E-12   0.0         \r\n                  197.2868        0.0           17.3953        0.0          197.2868        0.0           17.4144         0.0       \r\n0  5.000000E+01   1.378779E+04  0.0            5.995254E-02  0.0            6.893927E+03  0.0            2.334424E-11   0.0         \r\n                  101.1129        0.0          281.4571        0.0          101.1129        0.0          281.5223         0.0       \r\n0  5.500000E+01   1.399353E+03  0.0            5.729979E-03  0.0            6.996795E+02  0.0            2.204969E-12   0.0         \r\n                   28.0725        0.0          208.6488        0.0           28.0725        0.0          208.7662         0.0       \r\n0  6.000000E+01   7.287396E+02  0.0            2.808066E-03  0.0            3.643712E+02  0.0            1.066807E-12   0.0         \r\n                   25.0247        0.0          205.8262        0.0           25.0247        0.0          206.0019         0.0       \r\n0  6.500000E+01   5.027852E+02  0.0            1.822942E-03  0.0            2.513935E+02  0.0            6.830322E-13   0.0         \r\n                   23.7993        0.0          204.8169        0.0           23.7993        0.0          205.0573         0.0       \r\n0  7.000000E+01   3.904093E+02  0.0            1.332348E-03  0.0            1.952053E+02  0.0            4.918662E-13   0.0         \r\n                   23.0434        0.0          204.2660        0.0           23.0434        0.0          204.5774         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   3.237372E+02  0.0            1.040675E-03  0.0            1.618691E+02  0.0            3.781695E-13   0.0         \r\n                   22.4808        0.0          203.8965        0.0           22.4808        0.0          204.2853         0.0       \r\n0  8.000000E+01   2.799496E+02  0.0            8.485475E-04  0.0            1.399753E+02  0.0            3.032365E-13   0.0         \r\n                   22.0188        0.0          203.6150        0.0           22.0188        0.0          204.0878         0.0       \r\n0  8.500001E+01   2.492286E+02  0.0            7.132103E-04  0.0            1.246147E+02  0.0            2.504146E-13   0.0         \r\n                   21.6175        0.0          203.3814        0.0           21.6175        0.0          203.9447         0.0       \r\n0  9.000000E+01   2.266575E+02  0.0            6.132522E-04  0.0            1.133290E+02  0.0            2.113642E-13   0.0         \r\n                   21.2565        0.0          203.1755        0.0           21.2565        0.0          203.8358         0.0       \r\n0  9.500001E+01   2.095041E+02  0.0            5.367746E-04  0.0            1.047523E+02  0.0            1.814508E-13   0.0         \r\n                   20.9245        0.0          202.9862        0.0           20.9245        0.0          203.7499         0.0       \r\n0  1.000000E+02   1.961313E+02  0.0            4.766452E-04  0.0            9.806589E+01  0.0            1.578965E-13   0.0         \r\n                   20.6143        0.0          202.8065        0.0           20.6143        0.0          203.6802         0.0       \r\n0  1.050000E+02   1.854990E+02  0.0            4.283329E-04  0.0            9.274970E+01  0.0            1.389360E-13   0.0         \r\n                   20.3210        0.0          202.6323        0.0           20.3210        0.0          203.6224         0.0       \r\n0  1.100000E+02   1.769159E+02  0.0            3.888244E-04  0.0            8.845815E+01  0.0            1.233955E-13   0.0         \r\n                   20.0412        0.0          202.4606        0.0           20.0412        0.0          203.5736         0.0       \r\n0  1.150000E+02   1.699053E+02  0.0            3.560400E-04  0.0            8.495280E+01  0.0            1.104649E-13   0.0         \r\n                   19.7724        0.0          202.2896        0.0           19.7724        0.0          203.5317         0.0       \r\n0  1.200000E+02   1.641280E+02  0.0            3.284998E-04  0.0            8.206418E+01  0.0            9.956751E-14   0.0         \r\n                   19.5125        0.0          202.1176        0.0           19.5125        0.0          203.4953         0.0       \r\n0  1.250000E+02   1.593371E+02  0.0            3.051235E-04  0.0            7.966869E+01  0.0            9.028216E-14   0.0         \r\n                   19.2600        0.0          201.9438        0.0           19.2600        0.0          203.4634         0.0       \r\n0  1.300000E+02   1.553481E+02  0.0            2.851042E-04  0.0            7.767419E+01  0.0            8.229436E-14   0.0         \r\n                   19.0135        0.0          201.7674        0.0           19.0135        0.0          203.4352         0.0       \r\n0  1.350000E+02   1.520213E+02  0.0            2.678288E-04  0.0            7.601080E+01  0.0            7.536490E-14   0.0         \r\n                   18.7718        0.0          201.5876        0.0           18.7718        0.0          203.4100         0.0       \r\n0  1.400000E+02   1.492491E+02  0.0            2.528227E-04  0.0            7.462468E+01  0.0            6.930864E-14   0.0         \r\n                   18.5339        0.0          201.4042        0.0           18.5339        0.0          203.3873         0.0       \r\n0  1.450000E+02   1.469472E+02  0.0            2.397141E-04  0.0            7.347371E+01  0.0            6.398028E-14   0.0         \r\n                   18.2989        0.0          201.2167        0.0           18.2989        0.0          203.3668         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       THREE POINTS LOADED WITH TWO SETS                                                                    SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   1.450490E+02  0.0            2.282072E-04  0.0            7.252460E+01  0.0            5.926424E-14   0.0         \r\n                   18.0659        0.0          201.0247        0.0           18.0659        0.0          203.3482         0.0       \r\n0  1.550000E+02   1.435015E+02  0.0            2.180645E-04  0.0            7.175085E+01  0.0            5.506758E-14   0.0         \r\n                   17.8343        0.0          200.8280        0.0           17.8343        0.0          203.3311         0.0       \r\n0  1.600000E+02   1.422619E+02  0.0            2.090932E-04  0.0            7.113110E+01  0.0            5.131470E-14   0.0         \r\n                   17.6034        0.0          200.6263        0.0           17.6034        0.0          203.3155         0.0       \r\n0  1.650000E+02   1.412958E+02  0.0            2.011355E-04  0.0            7.064803E+01  0.0            4.794359E-14   0.0         \r\n                   17.3723        0.0          200.4194        0.0           17.3724        0.0          203.3010         0.0       \r\n0  1.700000E+02   1.405750E+02  0.0            1.940610E-04  0.0            7.028759E+01  0.0            4.490294E-14   0.0         \r\n                   17.1407        0.0          200.2071        0.0           17.1407        0.0          203.2877         0.0       \r\n0  1.750000E+02   1.400765E+02  0.0            1.877615E-04  0.0            7.003833E+01  0.0            4.214994E-14   0.0         \r\n                   16.9078        0.0          199.9890        0.0           16.9078        0.0          203.2753         0.0       \r\n0  1.800000E+02   1.397816E+02  0.0            1.821463E-04  0.0            6.989088E+01  0.0            3.964862E-14   0.0         \r\n                   16.6731        0.0          199.7651        0.0           16.6731        0.0          203.2638         0.0       \r\n0  1.850000E+02   1.396750E+02  0.0            1.771391E-04  0.0            6.983759E+01  0.0            3.736857E-14   0.0         \r\n                   16.4359        0.0          199.5350        0.0           16.4359        0.0          203.2531         0.0       \r\n0  1.900000E+02   1.397444E+02  0.0            1.726754E-04  0.0            6.987230E+01  0.0            3.528392E-14   0.0         \r\n                   16.1958        0.0          199.2984        0.0           16.1958        0.0          203.2430         0.0       \r\n0  1.950000E+02   1.399798E+02  0.0            1.687005E-04  0.0            6.999000E+01  0.0            3.337256E-14   0.0         \r\n                   15.9521        0.0          199.0551        0.0           15.9521        0.0          203.2335         0.0       \r\n0  2.000000E+02   1.403733E+02  0.0            1.651679E-04  0.0            7.018675E+01  0.0            3.161544E-14   0.0         \r\n                   15.7042        0.0          198.8047        0.0           15.7042        0.0          203.2247         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            1.071489E+03  0.0            1.179633E+03  0.0            5.407232E+01  0.0            5.284338E-12   0.0         \r\n                  180.0000        0.0          180.0000        0.0            0.0           0.0            0.0            0.0       \r\n0  5.000000E+00   1.077627E+03  0.0            1.185912E+03  0.0            5.414252E+01  0.0            5.318554E-12   0.0         \r\n                  175.9938        0.0          176.0108        0.0          356.1794        0.0          355.9628         0.0       \r\n0  1.000000E+01   1.096883E+03  0.0            1.205632E+03  0.0            5.437559E+01  0.0            5.425670E-12   0.0         \r\n                  171.9955        0.0          172.0290        0.0          352.3675        0.0          351.9342         0.0       \r\n0  1.500000E+01   1.132050E+03  0.0            1.241737E+03  0.0            5.484585E+01  0.0            5.620563E-12   0.0         \r\n                  168.0119        0.0          168.0613        0.0          348.5720        0.0          347.9221         0.0       \r\n0  2.000000E+01   1.188894E+03  0.0            1.300297E+03  0.0            5.570592E+01  0.0            5.933942E-12   0.0         \r\n                  164.0478        0.0          164.1120        0.0          344.7972        0.0          343.9323         0.0       \r\n0  2.500000E+01   1.278687E+03  0.0            1.393177E+03  0.0            5.725208E+01  0.0            6.425881E-12   0.0         \r\n                  160.1023        0.0          160.1794        0.0          341.0404        0.0          339.9650         0.0       \r\n0  3.000000E+01   1.424769E+03  0.0            1.544935E+03  0.0            6.009358E+01  0.0            7.220824E-12   0.0         \r\n                  156.1584        0.0          156.2456        0.0          337.2793        0.0          336.0052         0.0       \r\n0  3.500000E+01   1.682444E+03  0.0            1.813746E+03  0.0            6.566612E+01  0.0            8.613795E-12   0.0         \r\n                  152.1506        0.0          152.2437        0.0          333.4367        0.0          331.9896         0.0       \r\n0  4.000000E+01   2.219074E+03  0.0            2.375624E+03  0.0            7.829682E+01  0.0            1.149786E-11   0.0         \r\n                  147.8287        0.0          147.9215        0.0          329.2368        0.0          327.6712         0.0       \r\n0  4.500000E+01   3.878141E+03  0.0            4.117538E+03  0.0            1.197335E+02  0.0            2.037498E-11   0.0         \r\n                  141.7748        0.0          141.8579        0.0          323.2047        0.0          321.6367         0.0       \r\n0  5.000000E+01   3.219735E+04  0.0            3.385284E+04  0.0            8.279254E+02  0.0            1.718856E-10   0.0         \r\n                   43.0794        0.0           43.1389        0.0          224.2948        0.0          222.9833         0.0       \r\n0  5.500000E+01   2.699974E+03  0.0            2.806252E+03  0.0            5.314004E+01  0.0            1.468114E-11   0.0         \r\n                  327.9482        0.0          327.9627        0.0          148.3293        0.0          147.9256         0.0       \r\n0  6.000000E+01   1.137309E+03  0.0            1.165958E+03  0.0            1.433882E+01  0.0            6.316542E-12   0.0         \r\n                  323.4222        0.0          323.3593        0.0          140.8622        0.0          143.5177         0.0       \r\n0  6.500000E+01   6.196766E+02  0.0            6.248115E+02  0.0            2.765038E+00  0.0            3.527755E-12   0.0         \r\n                  321.6263        0.0          321.4372        0.0          119.7403        0.0          141.9013         0.0       \r\n0  7.000000E+01   3.698486E+02  0.0            3.652437E+02  0.0            2.612310E+00  0.0            2.168633E-12   0.0         \r\n                  321.7060        0.0          321.3212        0.0          349.7031        0.0          142.2383         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   2.289823E+02  0.0            2.200229E+02  0.0            4.662857E+00  0.0            1.393007E-12   0.0         \r\n                  324.2586        0.0          323.5980        0.0          340.0423        0.0          145.1157         0.0       \r\n0  8.000000E+01   1.443882E+02  0.0            1.334630E+02  0.0            5.578142E+00  0.0            9.218618E-13   0.0         \r\n                  330.7022        0.0          329.7697        0.0          341.9284        0.0          151.8111         0.0       \r\n0  8.500001E+01   9.452886E+01  0.0            8.257177E+01  0.0            6.003141E+00  0.0            6.428937E-13   0.0         \r\n                  343.1237        0.0          342.4196        0.0          347.9716        0.0          163.8665         0.0       \r\n0  9.000000E+01   6.945064E+01  0.0            5.676931E+01  0.0            6.374343E+00  0.0            5.044605E-13   0.0         \r\n                    1.9867        0.0            3.1811        0.0          356.6608        0.0          180.8826         0.0       \r\n0  9.500001E+01   6.148090E+01  0.0            4.818067E+01  0.0            6.973650E+00  0.0            4.656158E-13   0.0         \r\n                   21.6902        0.0           26.1116        0.0            6.2453        0.0          197.9330         0.0       \r\n0  1.000000E+02   6.175145E+01  0.0            4.727287E+01  0.0            7.926461E+00  0.0            4.796897E-13   0.0         \r\n                   35.6239        0.0           42.4748        0.0           14.7873        0.0          210.0825         0.0       \r\n0  1.050000E+02   6.386520E+01  0.0            4.730520E+01  0.0            9.224891E+00  0.0            5.114303E-13   0.0         \r\n                   43.3723        0.0           51.8589        0.0           21.1383        0.0          216.9341         0.0       \r\n0  1.100000E+02   6.511831E+01  0.0            4.580103E+01  0.0            1.079437E+01  0.0            5.437180E-13   0.0         \r\n                   47.0532        0.0           57.1794        0.0           25.1526        0.0          220.0654         0.0       \r\n0  1.150000E+02   6.475872E+01  0.0            4.232802E+01  0.0            1.254925E+01  0.0            5.702321E-13   0.0         \r\n                   48.3388        0.0           60.6857        0.0           27.2006        0.0          220.8470         0.0       \r\n0  1.200000E+02   6.275978E+01  0.0            3.714656E+01  0.0            1.441548E+01  0.0            5.892689E-13   0.0         \r\n                   48.2264        0.0           63.9822        0.0           27.7478        0.0          220.1432         0.0       \r\n0  1.250000E+02   5.932736E+01  0.0            3.077773E+01  0.0            1.633390E+01  0.0            6.008825E-13   0.0         \r\n                   47.3072        0.0           68.7211        0.0           27.1876        0.0          218.4705         0.0       \r\n0  1.300000E+02   5.472517E+01  0.0            2.400409E+01  0.0            1.825761E+01  0.0            6.057375E-13   0.0         \r\n                   45.9639        0.0           77.5649        0.0           25.8148        0.0          216.1427         0.0       \r\n0  1.350000E+02   4.921636E+01  0.0            1.828289E+01  0.0            2.014864E+01  0.0            6.046632E-13   0.0         \r\n                   44.4863        0.0           95.4823        0.0           23.8416        0.0          213.3575         0.0       \r\n0  1.400000E+02   4.304663E+01  0.0            1.642262E+01  0.0            2.197547E+01  0.0            5.984821E-13   0.0         \r\n                   43.1496        0.0          125.3846        0.0           21.4197        0.0          210.2442         0.0       \r\n0  1.450000E+02   3.644509E+01  0.0            2.026088E+01  0.0            2.371129E+01  0.0            5.879501E-13   0.0         \r\n                   42.2961        0.0          152.5048        0.0           18.6591        0.0          206.8907         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   2.963577E+01  0.0            2.766802E+01  0.0            2.533288E+01  0.0            5.737407E-13   0.0         \r\n                   42.4698        0.0          166.7309        0.0           15.6406        0.0          203.3589         0.0       \r\n0  1.550000E+02   2.286872E+01  0.0            3.642219E+01  0.0            2.681986E+01  0.0            5.564474E-13   0.0         \r\n                   44.7294        0.0          172.8194        0.0           12.4252        0.0          199.6941         0.0       \r\n0  1.600000E+02   1.651114E+01  0.0            4.550950E+01  0.0            2.815425E+01  0.0            5.365906E-13   0.0         \r\n                   51.5035        0.0          174.8869        0.0            9.0597        0.0          195.9304         0.0       \r\n0  1.650000E+02   1.136168E+01  0.0            5.445230E+01  0.0            2.932016E+01  0.0            5.146273E-13   0.0         \r\n                   68.6887        0.0          174.8568        0.0            5.5814        0.0          192.0945         0.0       \r\n0  1.700000E+02   9.340127E+00  0.0            6.297414E+01  0.0            3.030359E+01  0.0            4.909609E-13   0.0         \r\n                  102.4673        0.0          173.6340        0.0            2.0210        0.0          188.2083         0.0       \r\n0  1.750000E+02   1.167357E+01  0.0            7.088631E+01  0.0            3.109234E+01  0.0            4.659476E-13   0.0         \r\n                  133.1297        0.0          171.6855        0.0          358.4048        0.0          184.2905         0.0       \r\n0  1.800000E+02   1.615996E+01  0.0            7.804697E+01  0.0            3.167599E+01  0.0            4.399043E-13   0.0         \r\n                  147.2879        0.0          169.2755        0.0          354.7558        0.0          180.3575         0.0       \r\n0  1.850000E+02   2.106919E+01  0.0            8.434379E+01  0.0            3.204583E+01  0.0            4.131135E-13   0.0         \r\n                  152.6677        0.0          166.5669        0.0          351.0961        0.0          176.4253         0.0       \r\n0  1.900000E+02   2.578781E+01  0.0            8.968629E+01  0.0            3.219494E+01  0.0            3.858289E-13   0.0         \r\n                  154.1987        0.0          163.6689        0.0          347.4471        0.0          172.5096         0.0       \r\n0  1.950000E+02   3.007425E+01  0.0            9.400175E+01  0.0            3.211822E+01  0.0            3.582789E-13   0.0         \r\n                  153.8763        0.0          160.6609        0.0          343.8315        0.0          168.6270         0.0       \r\n0  2.000000E+02   3.380748E+01  0.0            9.723360E+01  0.0            3.181252E+01  0.0            3.306698E-13   0.0         \r\n                  152.5805        0.0          157.6060        0.0          340.2739        0.0          164.7962         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            2.102971E+02  0.0            1.324006E-03  0.0            1.051492E+02  0.0            5.457654E-13   0.0         \r\n                  180.0000        0.0            0.0           0.0          180.0000        0.0            0.0            0.0       \r\n0  5.000000E+00   2.127605E+02  0.0            1.333341E-03  0.0            1.063809E+02  0.0            5.492992E-13   0.0         \r\n                  175.7465        0.0          355.9389        0.0          175.7465        0.0          355.9628         0.0       \r\n0  1.000000E+01   2.204198E+02  0.0            1.362530E-03  0.0            1.102106E+02  0.0            5.603621E-13   0.0         \r\n                  171.5146        0.0          351.8872        0.0          171.5146        0.0          351.9342         0.0       \r\n0  1.500000E+01   2.341724E+02  0.0            1.415511E-03  0.0            1.170869E+02  0.0            5.804907E-13   0.0         \r\n                  167.3246        0.0          347.8536        0.0          167.3246        0.0          347.9221         0.0       \r\n0  2.000000E+01   2.558743E+02  0.0            1.500419E-03  0.0            1.279379E+02  0.0            6.128564E-13   0.0         \r\n                  163.1931        0.0          343.8449        0.0          163.1931        0.0          343.9323         0.0       \r\n0  2.500000E+01   2.891654E+02  0.0            1.633172E-03  0.0            1.445836E+02  0.0            6.636637E-13   0.0         \r\n                  159.1293        0.0          339.8625        0.0          159.1293        0.0          339.9650         0.0       \r\n0  3.000000E+01   3.416048E+02  0.0            1.846755E-03  0.0            1.708033E+02  0.0            7.457653E-13   0.0         \r\n                  155.1254        0.0          335.8924        0.0          155.1254        0.0          336.0052         0.0       \r\n0  3.500000E+01   4.311479E+02  0.0            2.219393E-03  0.0            2.155750E+02  0.0            8.896310E-13   0.0         \r\n                  151.1245        0.0          331.8731        0.0          151.1245        0.0          331.9896         0.0       \r\n0  4.000000E+01   6.122241E+02  0.0            2.987935E-03  0.0            3.061136E+02  0.0            1.187497E-12   0.0         \r\n                  146.8853        0.0          327.5596        0.0          146.8854        0.0          327.6712         0.0       \r\n0  4.500000E+01   1.159477E+03  0.0            5.346508E-03  0.0            5.797413E+02  0.0            2.104324E-12   0.0         \r\n                  141.0012        0.0          321.5413        0.0          141.0012        0.0          321.6367         0.0       \r\n0  5.000000E+01   1.049552E+04  0.0            4.559865E-02  0.0            5.247784E+03  0.0            1.775231E-11   0.0         \r\n                   42.5772        0.0          222.9185        0.0           42.5772        0.0          222.9833         0.0       \r\n0  5.500000E+01   9.653431E+02  0.0            3.942432E-03  0.0            4.826735E+02  0.0            1.516265E-12   0.0         \r\n                  327.8383        0.0          147.9108        0.0          327.8383        0.0          147.9256         0.0       \r\n0  6.000000E+01   4.488638E+02  0.0            1.719450E-03  0.0            2.244328E+02  0.0            6.523712E-13   0.0         \r\n                  323.8506        0.0          143.5779        0.0          323.8506        0.0          143.5177         0.0       \r\n0  6.500000E+01   2.720630E+02  0.0            9.750983E-04  0.0            1.360320E+02  0.0            3.643458E-13   0.0         \r\n                  322.7635        0.0          142.0679        0.0          322.7635        0.0          141.9013         0.0       \r\n0  7.000000E+01   1.825661E+02  0.0            6.100175E-04  0.0            9.128336E+01  0.0            2.239760E-13   0.0         \r\n                  323.7226        0.0          142.5460        0.0          323.7226        0.0          142.2383         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   1.291578E+02  0.0            4.000523E-04  0.0            6.457909E+01  0.0            1.438695E-13   0.0         \r\n                  327.2075        0.0          145.5835        0.0          327.2075        0.0          145.1157         0.0       \r\n0  8.000000E+01   9.534576E+01  0.0            2.715755E-04  0.0            4.767302E+01  0.0            9.520970E-14   0.0         \r\n                  334.1230        0.0          152.3733        0.0          334.1230        0.0          151.8111         0.0       \r\n0  8.500001E+01   7.492873E+01  0.0            1.952564E-04  0.0            3.746446E+01  0.0            6.639794E-14   0.0         \r\n                  345.1565        0.0          164.2095        0.0          345.1565        0.0          163.8665         0.0       \r\n0  9.000000E+01   6.531602E+01  0.0            1.577253E-04  0.0            3.265809E+01  0.0            5.210059E-14   0.0         \r\n                  359.2666        0.0          180.4190        0.0          359.2666        0.0          180.8826         0.0       \r\n0  9.500001E+01   6.427637E+01  0.0            1.482400E-04  0.0            3.213826E+01  0.0            4.808871E-14   0.0         \r\n                   12.9839        0.0          196.4479        0.0           12.9839        0.0          197.9330         0.0       \r\n0  1.000000E+02   6.885846E+01  0.0            1.544337E-04  0.0            3.442931E+01  0.0            4.954226E-14   0.0         \r\n                   23.2370        0.0          207.9724        0.0           23.2370        0.0          210.0825         0.0       \r\n0  1.050000E+02   7.637560E+01  0.0            1.666522E-04  0.0            3.818788E+01  0.0            5.282042E-14   0.0         \r\n                   29.5192        0.0          214.5856        0.0           29.5192        0.0          216.9341         0.0       \r\n0  1.100000E+02   8.512075E+01  0.0            1.798860E-04  0.0            4.256046E+01  0.0            5.615509E-14   0.0         \r\n                   32.7056        0.0          217.6584        0.0           32.7056        0.0          220.0654         0.0       \r\n0  1.150000E+02   9.418413E+01  0.0            1.920749E-04  0.0            4.709216E+01  0.0            5.889346E-14   0.0         \r\n                   33.7592        0.0          218.4445        0.0           33.7592        0.0          220.8470         0.0       \r\n0  1.200000E+02   1.031014E+02  0.0            2.025053E-04  0.0            5.155081E+01  0.0            6.085957E-14   0.0         \r\n                   33.3776        0.0          217.7615        0.0           33.3776        0.0          220.1432         0.0       \r\n0  1.250000E+02   1.116292E+02  0.0            2.110150E-04  0.0            5.581473E+01  0.0            6.205902E-14   0.0         \r\n                   32.0184        0.0          216.1100        0.0           32.0184        0.0          218.4705         0.0       \r\n0  1.300000E+02   1.196313E+02  0.0            2.176552E-04  0.0            5.981575E+01  0.0            6.256044E-14   0.0         \r\n                   29.9774        0.0          213.7988        0.0           29.9774        0.0          216.1427         0.0       \r\n0  1.350000E+02   1.270237E+02  0.0            2.225517E-04  0.0            6.351197E+01  0.0            6.244950E-14   0.0         \r\n                   27.4494        0.0          211.0247        0.0           27.4494        0.0          213.3575         0.0       \r\n0  1.400000E+02   1.337489E+02  0.0            2.258474E-04  0.0            6.687457E+01  0.0            6.181112E-14   0.0         \r\n                   24.5662        0.0          207.9176        0.0           24.5662        0.0          210.2442         0.0       \r\n0  1.450000E+02   1.397629E+02  0.0            2.276803E-04  0.0            6.988155E+01  0.0            6.072337E-14   0.0         \r\n                   21.4196        0.0          204.5667        0.0           21.4196        0.0          206.8907         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                                                       SUBCASE 2              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   1.450292E+02  0.0            2.281752E-04  0.0            7.251472E+01  0.0            5.925583E-14   0.0         \r\n                   18.0755        0.0          201.0349        0.0           18.0755        0.0          203.3589         0.0       \r\n0  1.550000E+02   1.495163E+02  0.0            2.274425E-04  0.0            7.475824E+01  0.0            5.746978E-14   0.0         \r\n                   14.5830        0.0          197.3687        0.0           14.5830        0.0          199.6941         0.0       \r\n0  1.600000E+02   1.531957E+02  0.0            2.255788E-04  0.0            7.659797E+01  0.0            5.541897E-14   0.0         \r\n                   10.9797        0.0          193.6033        0.0           10.9797        0.0          195.9304         0.0       \r\n0  1.650000E+02   1.560423E+02  0.0            2.226683E-04  0.0            7.802124E+01  0.0            5.315061E-14   0.0         \r\n                    7.2956        0.0          189.7666        0.0            7.2956        0.0          192.0945         0.0       \r\n0  1.700000E+02   1.580338E+02  0.0            2.187857E-04  0.0            7.901700E+01  0.0            5.070634E-14   0.0         \r\n                    3.5553        0.0          185.8816        0.0            3.5553        0.0          188.2083         0.0       \r\n0  1.750000E+02   1.591512E+02  0.0            2.139972E-04  0.0            7.957571E+01  0.0            4.812298E-14   0.0         \r\n                  359.7803        0.0          181.9683        0.0          359.7803        0.0          184.2905         0.0       \r\n0  1.800000E+02   1.593792E+02  0.0            2.083629E-04  0.0            7.968972E+01  0.0            4.543323E-14   0.0         \r\n                  355.9902        0.0          178.0447        0.0          355.9903        0.0          180.3575         0.0       \r\n0  1.850000E+02   1.587066E+02  0.0            2.019378E-04  0.0            7.935339E+01  0.0            4.266629E-14   0.0         \r\n                  352.2038        0.0          174.1281        0.0          352.2038        0.0          176.4253         0.0       \r\n0  1.900000E+02   1.571265E+02  0.0            1.947740E-04  0.0            7.856335E+01  0.0            3.984833E-14   0.0         \r\n                  348.4399        0.0          170.2363        0.0          348.4399        0.0          172.5096         0.0       \r\n0  1.950000E+02   1.546375E+02  0.0            1.869212E-04  0.0            7.731883E+01  0.0            3.700298E-14   0.0         \r\n                  344.7189        0.0          166.3882        0.0          344.7189        0.0          168.6270         0.0       \r\n0  2.000000E+02   1.512437E+02  0.0            1.784281E-04  0.0            7.562193E+01  0.0            3.415151E-14   0.0         \r\n                  341.0637        0.0          162.6052        0.0          341.0637        0.0          164.7962         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            9.091774E+02  0.0            9.965700E+02  0.0            4.369627E+01  0.0            4.519754E-12   0.0         \r\n                  203.4132        0.0          203.4132        0.0           23.4132        0.0           23.4132         0.0       \r\n0  5.000000E+00   9.177738E+02  0.0            1.005616E+03  0.0            4.392102E+01  0.0            4.565585E-12   0.0         \r\n                  203.2975        0.0          203.2976        0.0           23.2980        0.0           23.2975         0.0       \r\n0  1.000000E+01   9.446410E+02  0.0            1.033887E+03  0.0            4.462313E+01  0.0            4.708828E-12   0.0         \r\n                  203.1751        0.0          203.1754        0.0           23.1791        0.0           23.1745         0.0       \r\n0  1.500000E+01   9.933684E+02  0.0            1.085159E+03  0.0            4.589544E+01  0.0            4.968636E-12   0.0         \r\n                  203.0374        0.0          203.0386        0.0           23.0514        0.0           23.0353         0.0       \r\n0  2.000000E+01   1.071366E+03  0.0            1.167225E+03  0.0            4.792954E+01  0.0            5.384551E-12   0.0         \r\n                  202.8722        0.0          202.8750        0.0           22.9067        0.0           22.8671         0.0       \r\n0  2.500000E+01   1.193128E+03  0.0            1.295328E+03  0.0            5.110021E+01  0.0            6.033912E-12   0.0         \r\n                  202.6582        0.0          202.6639        0.0           22.7297        0.0           22.6483         0.0       \r\n0  3.000000E+01   1.388675E+03  0.0            1.501042E+03  0.0            5.618366E+01  0.0            7.076921E-12   0.0         \r\n                  202.3540        0.0          202.3639        0.0           22.4870        0.0           22.3366         0.0       \r\n0  3.500000E+01   1.729179E+03  0.0            1.859217E+03  0.0            6.501962E+01  0.0            8.893351E-12   0.0         \r\n                  201.8626        0.0          201.8788        0.0           22.0949        0.0           21.8347         0.0       \r\n0  4.000000E+01   2.430077E+03  0.0            2.596425E+03  0.0            8.317564E+01  0.0            1.263287E-11   0.0         \r\n                  200.8923        0.0          200.9173        0.0           21.2829        0.0           20.8501         0.0       \r\n0  4.500000E+01   4.577644E+03  0.0            4.855034E+03  0.0            1.387032E+02  0.0            2.409255E-11   0.0         \r\n                  197.9684        0.0          198.0054        0.0           18.6151        0.0           17.9073         0.0       \r\n0  5.000000E+01   4.150477E+04  0.0            4.364398E+04  0.0            1.069787E+03  0.0            2.215308E-10   0.0         \r\n                  102.1007        0.0          102.1535        0.0          283.1782        0.0          282.0152         0.0       \r\n0  5.500000E+01   3.858775E+03  0.0            4.017680E+03  0.0            7.949275E+01  0.0            2.092459E-11   0.0         \r\n                   29.3752        0.0           29.4488        0.0          211.2371        0.0          209.2590         0.0       \r\n0  6.000000E+01   1.834166E+03  0.0            1.888059E+03  0.0            2.699626E+01  0.0            1.012372E-11   0.0         \r\n                   26.6492        0.0           26.7500        0.0          210.1762        0.0          206.4948         0.0       \r\n0  6.500000E+01   1.151392E+03  0.0            1.169808E+03  0.0            9.309927E+00  0.0            6.481800E-12   0.0         \r\n                   25.7516        0.0           25.8875        0.0          214.3224        0.0          205.5501         0.0       \r\n0  7.000000E+01   8.111816E+02  0.0            8.118510E+02  0.0            1.326552E+00  0.0            4.667683E-12   0.0         \r\n                   25.3292        0.0           25.5105        0.0          280.8083        0.0          205.0702         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   6.087410E+02  0.0            5.987877E+02  0.0            5.134537E+00  0.0            3.588732E-12   0.0         \r\n                   25.1069        0.0           25.3467        0.0           10.9794        0.0          204.7782         0.0       \r\n0  8.000000E+01   4.752274E+02  0.0            4.582100E+02  0.0            8.605281E+00  0.0            2.877637E-12   0.0         \r\n                   24.9936        0.0           25.3093        0.0           16.5573        0.0          204.5806         0.0       \r\n0  8.500001E+01   3.810224E+02  0.0            3.589660E+02  0.0            1.110911E+01  0.0            2.376371E-12   0.0         \r\n                   24.9520        0.0           25.3666        0.0           18.2381        0.0          204.4375         0.0       \r\n0  9.000000E+01   3.112934E+02  0.0            2.854554E+02  0.0            1.299644E+01  0.0            2.005792E-12   0.0         \r\n                   24.9652        0.0           25.5097        0.0           18.9746        0.0          204.3286         0.0       \r\n0  9.500001E+01   2.577974E+02  0.0            2.290092E+02  0.0            1.447418E+01  0.0            1.721922E-12   0.0         \r\n                   25.0261        0.0           25.7432        0.0           19.3441        0.0          204.2427         0.0       \r\n0  1.000000E+02   2.155933E+02  0.0            1.844317E+02  0.0            1.566821E+01  0.0            1.498397E-12   0.0         \r\n                   25.1334        0.0           26.0832        0.0           19.5347        0.0          204.1730         0.0       \r\n0  1.050000E+02   1.815416E+02  0.0            1.484226E+02  0.0            1.665906E+01  0.0            1.318467E-12   0.0         \r\n                   25.2892        0.0           26.5588        0.0           19.6248        0.0          204.1152         0.0       \r\n0  1.100000E+02   1.535546E+02  0.0            1.187892E+02  0.0            1.750050E+01  0.0            1.170992E-12   0.0         \r\n                   25.4996        0.0           27.2197        0.0           19.6528        0.0          204.0664         0.0       \r\n0  1.150000E+02   1.301913E+02  0.0            9.402124E+01  0.0            1.822980E+01  0.0            1.048284E-12   0.0         \r\n                   25.7741        0.0           28.1492        0.0           19.6395        0.0          204.0245         0.0       \r\n0  1.200000E+02   1.104263E+02  0.0            7.305027E+01  0.0            1.887358E+01  0.0            9.448701E-13   0.0         \r\n                   26.1269        0.0           29.4957        0.0           19.5970        0.0          203.9882         0.0       \r\n0  1.250000E+02   9.351117E+01  0.0            5.510919E+01  0.0            1.945137E+01  0.0            8.567544E-13   0.0         \r\n                   26.5786        0.0           31.5459        0.0           19.5329        0.0          203.9563         0.0       \r\n0  1.300000E+02   7.888757E+01  0.0            3.965644E+01  0.0            1.997787E+01  0.0            7.809522E-13   0.0         \r\n                   27.1591        0.0           34.9246        0.0           19.4520        0.0          203.9280         0.0       \r\n0  1.350000E+02   6.613182E+01  0.0            2.637115E+01  0.0            2.046432E+01  0.0            7.151935E-13   0.0         \r\n                   27.9130        0.0           41.2623        0.0           19.3576        0.0          203.9028         0.0       \r\n0  1.400000E+02   5.491774E+01  0.0            1.536792E+01  0.0            2.091953E+01  0.0            6.577211E-13   0.0         \r\n                   28.9090        0.0           56.0837        0.0           19.2518        0.0          203.8801         0.0       \r\n0  1.450000E+02   4.499247E+01  0.0            8.798289E+00  0.0            2.135050E+01  0.0            6.071564E-13   0.0         \r\n                   30.2577        0.0           99.6733        0.0           19.1363        0.0          203.8596         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =       5\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   3.616049E+01  0.0            1.168843E+01  0.0            2.176289E+01  0.0            5.624024E-13   0.0         \r\n                   32.1484        0.0          154.3357        0.0           19.0121        0.0          203.8410         0.0       \r\n0  1.550000E+02   2.827609E+01  0.0            1.884678E+01  0.0            2.216134E+01  0.0            5.225772E-13   0.0         \r\n                   34.9303        0.0          174.3724        0.0           18.8799        0.0          203.8240         0.0       \r\n0  1.600000E+02   2.124665E+01  0.0            2.629103E+01  0.0            2.254974E+01  0.0            4.869633E-13   0.0         \r\n                   39.3167        0.0          182.2397        0.0           18.7402        0.0          203.8083         0.0       \r\n0  1.650000E+02   1.506450E+01  0.0            3.338420E+01  0.0            2.293139E+01  0.0            4.549724E-13   0.0         \r\n                   46.9648        0.0          186.2117        0.0           18.5935        0.0          203.7939         0.0       \r\n0  1.700000E+02   9.942478E+00  0.0            4.004146E+01  0.0            2.330910E+01  0.0            4.261173E-13   0.0         \r\n                   62.2651        0.0          188.5391        0.0           18.4398        0.0          203.7805         0.0       \r\n0  1.750000E+02   6.823878E+00  0.0            4.628185E+01  0.0            2.368535E+01  0.0            3.999921E-13   0.0         \r\n                   94.9965        0.0          190.0291        0.0           18.2794        0.0          203.7682         0.0       \r\n0  1.800000E+02   7.376647E+00  0.0            5.214791E+01  0.0            2.406236E+01  0.0            3.762552E-13   0.0         \r\n                  137.5549        0.0          191.0360        0.0           18.1121        0.0          203.7567         0.0       \r\n0  1.850000E+02   1.050928E+01  0.0            5.768567E+01  0.0            2.444209E+01  0.0            3.546181E-13   0.0         \r\n                  161.5867        0.0          191.7387        0.0           17.9379        0.0          203.7459         0.0       \r\n0  1.900000E+02   1.433553E+01  0.0            6.293898E+01  0.0            2.482640E+01  0.0            3.348353E-13   0.0         \r\n                  172.7747        0.0          192.2366        0.0           17.7567        0.0          203.7358         0.0       \r\n0  1.950000E+02   1.823746E+01  0.0            6.794803E+01  0.0            2.521696E+01  0.0            3.166970E-13   0.0         \r\n                  178.7025        0.0          192.5894        0.0           17.5683        0.0          203.7264         0.0       \r\n0  2.000000E+02   2.205458E+01  0.0            7.274917E+01  0.0            2.561541E+01  0.0            3.000223E-13   0.0         \r\n                  182.2447        0.0          192.8346        0.0           17.3724        0.0          203.7175         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  0.0            1.898882E+02  0.0            1.139378E-03  0.0            9.494466E+01  0.0            4.667993E-13   0.0         \r\n                  203.4132        0.0           23.4132        0.0          203.4132        0.0           23.4132         0.0       \r\n0  5.000000E+00   1.926707E+02  0.0            1.151525E-03  0.0            9.633591E+01  0.0            4.715326E-13   0.0         \r\n                  203.2970        0.0           23.2974        0.0          203.2970        0.0           23.2975         0.0       \r\n0  1.000000E+01   2.013686E+02  0.0            1.189492E-03  0.0            1.006849E+02  0.0            4.863267E-13   0.0         \r\n                  203.1704        0.0           23.1740        0.0          203.1704        0.0           23.1745         0.0       \r\n0  1.500000E+01   2.171492E+02  0.0            1.258358E-03  0.0            1.085752E+02  0.0            5.131598E-13   0.0         \r\n                  203.0220        0.0           23.0337        0.0          203.0220        0.0           23.0353         0.0       \r\n0  2.000000E+01   2.424221E+02  0.0            1.368608E-03  0.0            1.212117E+02  0.0            5.561154E-13   0.0         \r\n                  202.8364        0.0           22.8634        0.0          202.8364        0.0           22.8671         0.0       \r\n0  2.500000E+01   2.819005E+02  0.0            1.540755E-03  0.0            1.409510E+02  0.0            6.231812E-13   0.0         \r\n                  202.5904        0.0           22.6410        0.0          202.5904        0.0           22.6483         0.0       \r\n0  3.000000E+01   3.453481E+02  0.0            1.817284E-03  0.0            1.726749E+02  0.0            7.309030E-13   0.0         \r\n                  202.2406        0.0           22.3240        0.0          202.2406        0.0           22.3366         0.0       \r\n0  3.500000E+01   4.559121E+02  0.0            2.298915E-03  0.0            2.279572E+02  0.0            9.185037E-13   0.0         \r\n                  201.6890        0.0           21.8147        0.0          201.6890        0.0           21.8347         0.0       \r\n0  4.000000E+01   6.836718E+02  0.0            3.290552E-03  0.0            3.418375E+02  0.0            1.304720E-12   0.0         \r\n                  200.6434        0.0           20.8203        0.0          200.6434        0.0           20.8501         0.0       \r\n0  4.500000E+01   1.382090E+03  0.0            6.329721E-03  0.0            6.910480E+02  0.0            2.488274E-12   0.0         \r\n                  197.6285        0.0           17.8651        0.0          197.6285        0.0           17.9073         0.0       \r\n0  5.000000E+01   1.351588E+04  0.0            5.876117E-02  0.0            6.757967E+03  0.0            2.287966E-11   0.0         \r\n                  101.6539        0.0          281.9576        0.0          101.6539        0.0          282.0152         0.0       \r\n0  5.500000E+01   1.361360E+03  0.0            5.608950E-03  0.0            6.806826E+02  0.0            2.161088E-12   0.0         \r\n                   28.8057        0.0          209.1828        0.0           28.8057        0.0          209.2590         0.0       \r\n0  6.000000E+01   7.037911E+02  0.0            2.744985E-03  0.0            3.518969E+02  0.0            1.045576E-12   0.0         \r\n                   25.9408        0.0          206.3964        0.0           25.9409        0.0          206.4948         0.0       \r\n0  6.500000E+01   4.822092E+02  0.0            1.779389E-03  0.0            2.411055E+02  0.0            6.694391E-13   0.0         \r\n                   24.8879        0.0          205.4258        0.0           24.8879        0.0          205.5501         0.0       \r\n0  7.000000E+01   3.719853E+02  0.0            1.298508E-03  0.0            1.859933E+02  0.0            4.820774E-13   0.0         \r\n                   24.2929        0.0          204.9160        0.0           24.2929        0.0          205.0702         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  7.500000E+01   3.065697E+02  0.0            1.012599E-03  0.0            1.532853E+02  0.0            3.706435E-13   0.0         \r\n                   23.8797        0.0          204.5897        0.0           23.8797        0.0          204.7782         0.0       \r\n0  8.000000E+01   2.635885E+02  0.0            8.242577E-04  0.0            1.317947E+02  0.0            2.972018E-13   0.0         \r\n                   23.5558        0.0          204.3536        0.0           23.5558        0.0          204.5806         0.0       \r\n0  8.500001E+01   2.334157E+02  0.0            6.915779E-04  0.0            1.167082E+02  0.0            2.454311E-13   0.0         \r\n                   23.2816        0.0          204.1672        0.0           23.2816        0.0          204.4375         0.0       \r\n0  9.000000E+01   2.112305E+02  0.0            5.935726E-04  0.0            1.056156E+02  0.0            2.071578E-13   0.0         \r\n                   23.0374        0.0          204.0103        0.0           23.0374        0.0          204.3286         0.0       \r\n0  9.500001E+01   1.943543E+02  0.0            5.185795E-04  0.0            9.717739E+01  0.0            1.778398E-13   0.0         \r\n                   22.8124        0.0          203.8714        0.0           22.8124        0.0          204.2427         0.0       \r\n0  1.000000E+02   1.811816E+02  0.0            4.596080E-04  0.0            9.059101E+01  0.0            1.547541E-13   0.0         \r\n                   22.6001        0.0          203.7435        0.0           22.6001        0.0          204.1730         0.0       \r\n0  1.050000E+02   1.706926E+02  0.0            4.122164E-04  0.0            8.534653E+01  0.0            1.361710E-13   0.0         \r\n                   22.3965        0.0          203.6222        0.0           22.3965        0.0          204.1152         0.0       \r\n0  1.100000E+02   1.622096E+02  0.0            3.734512E-04  0.0            8.110499E+01  0.0            1.209398E-13   0.0         \r\n                   22.1988        0.0          203.5045        0.0           22.1988        0.0          204.0664         0.0       \r\n0  1.150000E+02   1.552648E+02  0.0            3.412741E-04  0.0            7.763260E+01  0.0            1.082665E-13   0.0         \r\n                   22.0052        0.0          203.3881        0.0           22.0052        0.0          204.0245         0.0       \r\n0  1.200000E+02   1.495259E+02  0.0            3.142345E-04  0.0            7.476312E+01  0.0            9.758600E-14   0.0         \r\n                   21.8142        0.0          203.2716        0.0           21.8142        0.0          203.9882         0.0       \r\n0  1.250000E+02   1.447503E+02  0.0            2.912733E-04  0.0            7.237529E+01  0.0            8.848544E-14   0.0         \r\n                   21.6248        0.0          203.1537        0.0           21.6248        0.0          203.9563         0.0       \r\n0  1.300000E+02   1.407572E+02  0.0            2.715996E-04  0.0            7.037874E+01  0.0            8.065659E-14   0.0         \r\n                   21.4361        0.0          203.0335        0.0           21.4362        0.0          203.9280         0.0       \r\n0  1.350000E+02   1.374094E+02  0.0            2.546124E-04  0.0            6.870484E+01  0.0            7.386505E-14   0.0         \r\n                   21.2476        0.0          202.9103        0.0           21.2476        0.0          203.9028         0.0       \r\n0  1.400000E+02   1.346012E+02  0.0            2.398464E-04  0.0            6.730072E+01  0.0            6.792930E-14   0.0         \r\n                   21.0586        0.0          202.7834        0.0           21.0586        0.0          203.8801         0.0       \r\n0  1.450000E+02   1.322498E+02  0.0            2.269370E-04  0.0            6.612499E+01  0.0            6.270699E-14   0.0         \r\n                   20.8685        0.0          202.6524        0.0           20.8685        0.0          203.8596         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0       ONE POINT LOADED WITH TWO TABULAR LOADS                                                              SUBCASE 3              \r\n      ELEMENT-ID =      10\r\n\r\n                             C O M P L E X   F O R C E S   I N   B A R   E L E M E N T S   ( C B A R )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                     BEND-MOMENT-END-A            BEND-MOMENT-END-B                  SHEAR\r\n    FREQUENCY      PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2        FORCE          TORQUE\r\n0  1.500000E+02   1.302897E+02  0.0            2.155941E-04  0.0            6.514495E+01  0.0            5.808481E-14   0.0         \r\n                   20.6771        0.0          202.5168        0.0           20.6771        0.0          203.8410         0.0       \r\n0  1.550000E+02   1.286688E+02  0.0            2.055850E-04  0.0            6.433449E+01  0.0            5.397167E-14   0.0         \r\n                   20.4837        0.0          202.3762        0.0           20.4837        0.0          203.8240         0.0       \r\n0  1.600000E+02   1.273449E+02  0.0            1.967206E-04  0.0            6.367255E+01  0.0            5.029348E-14   0.0         \r\n                   20.2881        0.0          202.2303        0.0           20.2881        0.0          203.8083         0.0       \r\n0  1.650000E+02   1.262840E+02  0.0            1.888459E-04  0.0            6.314208E+01  0.0            4.698946E-14   0.0         \r\n                   20.0897        0.0          202.0786        0.0           20.0897        0.0          203.7939         0.0       \r\n0  1.700000E+02   1.254581E+02  0.0            1.818330E-04  0.0            6.272917E+01  0.0            4.400931E-14   0.0         \r\n                   19.8884        0.0          201.9211        0.0           19.8884        0.0          203.7805         0.0       \r\n0  1.750000E+02   1.248447E+02  0.0            1.755758E-04  0.0            6.242244E+01  0.0            4.131111E-14   0.0         \r\n                   19.6835        0.0          201.7572        0.0           19.6835        0.0          203.7682         0.0       \r\n0  1.800000E+02   1.244250E+02  0.0            1.699850E-04  0.0            6.221256E+01  0.0            3.885956E-14   0.0         \r\n                   19.4749        0.0          201.5867        0.0           19.4749        0.0          203.7566         0.0       \r\n0  1.850000E+02   1.241837E+02  0.0            1.649857E-04  0.0            6.209191E+01  0.0            3.662489E-14   0.0         \r\n                   19.2619        0.0          201.4093        0.0           19.2619        0.0          203.7459         0.0       \r\n0  1.900000E+02   1.241084E+02  0.0            1.605145E-04  0.0            6.205425E+01  0.0            3.458173E-14   0.0         \r\n                   19.0444        0.0          201.2246        0.0           19.0444        0.0          203.7358         0.0       \r\n0  1.950000E+02   1.241889E+02  0.0            1.565178E-04  0.0            6.209455E+01  0.0            3.270841E-14   0.0         \r\n                   18.8217        0.0          201.0324        0.0           18.8217        0.0          203.7264         0.0       \r\n0  2.000000E+02   1.244173E+02  0.0            1.529493E-04  0.0            6.220874E+01  0.0            3.098625E-14   0.0         \r\n                   18.5935        0.0          200.8323        0.0           18.5935        0.0          203.7175         0.0       \r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       255,   REENTER AT DMAP SEQUENCE NUMBER   144\r\n       256,   XYPLTF  ,   FLAGS = 0,   REEL =  1,   FILE =    115\r\n       257,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116\r\n \r\n       258,   REENTER AT DMAP SEQUENCE NUMBER   151\r\n       259,   PSDF    ,   FLAGS = 0,   REEL =  1,   FILE =    117\r\n       260,   AUTO    ,   FLAGS = 0,   REEL =  1,   FILE =    118\r\n       261,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    119\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   7.516472E+01\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   4.993961E+01\r\n      POWER-SPECTRAL-DENSITY-FUNCTION (PSDF)\r\n      DISPLACEMENT    CURVE        6( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    1\r\n\r\n\r\n     CURVE  TITLE = POWER SPECTRAL DENSITY OF POINT 6  DISPLACEMENT                                                                \r\n      X-AXIS TITLE =                       FREQUENCY (HERTZ)                                                                        \r\n      Y-AXIS TITLE = S                                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.000000E+02)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.050000E+02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.091940E+03 AT X =   5.000000E+01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.000000E+02)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.050000E+02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.091940E+03 AT X =   5.000000E+01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        6     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         6.019619E-01\r\n                                  2             5.000000E+00         6.122857E-01\r\n                                  3             1.000000E+01         6.451628E-01\r\n                                  4             1.500000E+01         7.071491E-01\r\n                                  5             2.000000E+01         8.126903E-01\r\n                                  6             2.500000E+01         9.929726E-01\r\n                                  7             3.000000E+01         1.322022E+00\r\n                                  8             3.500000E+01         2.011029E+00\r\n                                  9             4.000000E+01         3.892651E+00\r\n                                 10             4.500000E+01         1.353760E+01\r\n                                 11             5.000000E+01         1.091940E+03\r\n                                 12             5.500000E+01         9.284113E+00\r\n                                 13             6.000000E+01         2.071775E+00\r\n                                 14             6.500000E+01         8.111300E-01\r\n                                 15             7.000000E+01         4.031226E-01\r\n                                 16             7.500000E+01         2.295305E-01\r\n                                 17             8.000000E+01         1.430779E-01\r\n                                 18             8.500001E+01         9.532253E-02\r\n                                 19             9.000000E+01         6.690467E-02\r\n                                 20             9.500001E+01         4.899855E-02\r\n                                 21             1.000000E+02         1.858976E-02\r\n                                 22             1.050000E+02         0.000000E+00\r\n                                 23             1.100000E+02         0.000000E+00\r\n                                 24             1.150000E+02         0.000000E+00\r\n                                 25             1.200000E+02         0.000000E+00\r\n                                 26             1.250000E+02         0.000000E+00\r\n                                 27             1.300000E+02         0.000000E+00\r\n                                 28             1.350000E+02         0.000000E+00\r\n                                 29             1.400000E+02         0.000000E+00\r\n                                 30             1.450000E+02         0.000000E+00\r\n                                 31             1.500000E+02         0.000000E+00\r\n                                 32             1.550000E+02         0.000000E+00\r\n                                 33             1.600000E+02         0.000000E+00\r\n                                 34             1.650000E+02         0.000000E+00\r\n                                 35             1.700000E+02         0.000000E+00\r\n                                 36             1.750000E+02         0.000000E+00\r\n                                 37             1.800000E+02         0.000000E+00\r\n                                 38             1.850000E+02         0.000000E+00\r\n                                 39             1.900000E+02         0.000000E+00\r\n                                 40             1.950000E+02         0.000000E+00\r\n                                 41             2.000000E+02         0.000000E+00\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   7.416824E+06\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   5.034361E+01\r\n      POWER-SPECTRAL-DENSITY-FUNCTION (PSDF)\r\n      ACCELERATION    CURVE        6( 3)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    2\r\n\r\n\r\n     CURVE  TITLE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION                                                                 \r\n      X-AXIS TITLE =                       FREQUENCY (HERTZ)                                                                        \r\n      Y-AXIS TITLE = S                                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  2.000000E+02)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.063648E+13 AT X =   5.000000E+01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  2.000000E+02)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.063648E+13 AT X =   5.000000E+01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   7.516472E+01\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   4.993961E+01\r\n      AUTOCORRELATION\r\n      DISPLACEMENT    CURVE        6( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    3\r\n\r\n\r\n     CURVE  TITLE = AUTOCORRELATION FUNCTION FOR POINT 6  DISPLACEMENT                                                             \r\n      X-AXIS TITLE =                      TIME LAG (SECONDS)                                                                        \r\n      Y-AXIS TITLE = R                                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  1.000000E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -5.546012E+03 AT X =   1.000000E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.649735E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  1.000000E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -5.546012E+03 AT X =   1.000000E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.649735E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        6     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         5.649735E+03\r\n                                  2             1.000000E-03         5.373677E+03\r\n                                  3             2.000000E-03         4.573630E+03\r\n                                  4             3.000000E-03         3.328448E+03\r\n                                  5             4.000000E-03         1.761134E+03\r\n                                  6             5.000000E-03         2.661172E+01\r\n                                  7             6.000000E-03        -1.704422E+03\r\n                                  8             7.000000E-03        -3.261853E+03\r\n                                  9             8.000000E-03        -4.493528E+03\r\n                                 10             9.000001E-03        -5.279925E+03\r\n                                 11             1.000000E-02        -5.546012E+03\r\n                                 12             1.100000E-02        -5.268292E+03\r\n                                 13             1.200000E-02        -4.476950E+03\r\n                                 14             1.300000E-02        -3.252503E+03\r\n                                 15             1.400000E-02        -1.717549E+03\r\n                                 16             1.500000E-02        -2.448969E+01\r\n                                 17             1.600000E-02         1.659709E+03\r\n                                 18             1.700000E-02         3.170055E+03\r\n                                 19             1.800000E-02         4.359768E+03\r\n                                 20             1.900000E-02         5.114649E+03\r\n                                 21             2.000000E-02         5.364037E+03\r\n                                 22             2.100000E-02         5.087506E+03\r\n                                 23             2.200000E-02         4.316478E+03\r\n                                 24             2.300000E-02         3.130729E+03\r\n                                 25             2.400000E-02         1.650118E+03\r\n                                 26             2.500000E-02         2.238895E+01\r\n                                 27             2.600000E-02        -1.591629E+03\r\n                                 28             2.700000E-02        -3.034017E+03\r\n                                 29             2.800000E-02        -4.165293E+03\r\n                                 30             2.900000E-02        -4.878009E+03\r\n                                 31             3.000000E-02        -5.106972E+03\r\n                                 32             3.100000E-02        -4.835204E+03\r\n                                 33             3.200000E-02        -4.095082E+03\r\n                                 34             3.300000E-02        -2.964589E+03\r\n                                 35             3.400000E-02        -1.559016E+03\r\n                                 36             3.500000E-02        -1.930793E+01\r\n                                 37             3.600000E-02         1.502302E+03\r\n                                 38             3.700000E-02         2.857252E+03\r\n                                 39             3.800000E-02         3.915331E+03\r\n                                 40             3.900000E-02         4.577169E+03\r\n                                 41             4.000000E-02         4.783661E+03\r\n                                 42             4.100000E-02         4.521163E+03\r\n                                 43             4.200000E-02         3.822238E+03\r\n                                 44             4.300000E-02         2.761755E+03\r\n                                 45             4.400000E-02         1.448908E+03\r\n                                 46             4.500000E-02         1.594582E+01\r\n                                 47             4.600000E-02        -1.395211E+03\r\n                                 48             4.700000E-02        -2.647055E+03\r\n                                 49             4.800000E-02        -3.620011E+03\r\n                                 50             4.900000E-02        -4.223825E+03\r\n                                 51             5.000000E-02        -4.406004E+03\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        6     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                 52             5.100000E-02        -4.156268E+03\r\n                                 53             5.200000E-02        -3.506857E+03\r\n                                 54             5.300000E-02        -2.528557E+03\r\n                                 55             5.400000E-02        -1.323049E+03\r\n                                 56             5.500000E-02        -1.233339E+01\r\n                                 57             5.600000E-02         1.273648E+03\r\n                                 58             5.700000E-02         2.409929E+03\r\n                                 59             5.800000E-02         3.288695E+03\r\n                                 60             5.900000E-02         3.829546E+03\r\n                                 61             6.000000E-02         3.986819E+03\r\n                                 62             6.100000E-02         3.753354E+03\r\n                                 63             6.200000E-02         3.160405E+03\r\n                                 64             6.300000E-02         2.273716E+03\r\n                                 65             6.400000E-02         1.186344E+03\r\n                                 66             6.500001E-02         8.872251E+00\r\n                                 67             6.600000E-02        -1.141811E+03\r\n                                 68             6.700000E-02        -2.154213E+03\r\n                                 69             6.800000E-02        -2.932959E+03\r\n                                 70             6.900001E-02        -3.407856E+03\r\n                                 71             7.000000E-02        -3.540165E+03\r\n                                 72             7.100000E-02        -3.325613E+03\r\n                                 73             7.200000E-02        -2.793965E+03\r\n                                 74             7.300001E-02        -2.005237E+03\r\n                                 75             7.400000E-02        -1.043035E+03\r\n                                 76             7.500000E-02        -5.677233E+00\r\n                                 77             7.600001E-02         1.003764E+03\r\n                                 78             7.700001E-02         1.887773E+03\r\n                                 79             7.800000E-02         2.563791E+03\r\n                                 80             7.900000E-02         2.971927E+03\r\n                                 81             8.000001E-02         3.080155E+03\r\n                                 82             8.100000E-02         2.886718E+03\r\n                                 83             8.200000E-02         2.419386E+03\r\n                                 84             8.300000E-02         1.731895E+03\r\n                                 85             8.400001E-02         8.978558E+02\r\n                                 86             8.500000E-02         2.982811E+00\r\n                                 87             8.600000E-02        -8.637531E+02\r\n                                 88             8.700000E-02        -1.618931E+03\r\n                                 89             8.800001E-02        -2.192682E+03\r\n                                 90             8.900000E-02        -2.535162E+03\r\n                                 91             9.000000E-02        -2.620755E+03\r\n                                 92             9.100001E-02        -2.449807E+03\r\n                                 93             9.200001E-02        -2.047721E+03\r\n                                 94             9.300000E-02        -1.461633E+03\r\n                                 95             9.400000E-02        -7.550023E+02\r\n                                 96             9.500001E-02        -8.285813E-01\r\n                                 97             9.600000E-02         7.258314E+02\r\n                                 98             9.700000E-02         1.355352E+03\r\n                                 99             9.800000E-02         1.830158E+03\r\n                                100             9.900001E-02         2.109926E+03\r\n                                101             1.000000E-01         2.174933E+03\r\n1     FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       262,   REENTER AT DMAP SEQUENCE NUMBER   153\r\n       263,   XYPLTR  ,   FLAGS = 0,   REEL =  1,   FILE =    120\r\n       264,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121\r\n \r\n       265,   REENTER AT DMAP SEQUENCE NUMBER   176\r\n       266,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    122\r\n       267,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM           \r\n DATE:  5/17/95\r\n END TIME: 16:14:22\r\n TOTAL WALL CLOCK TIME      5 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11011b.out",
    "content": "     NASTRAN FILES = OPTP                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11011B,RESTART                                                           \r\n     $ INSERT THE RESTART DICTIONARY HERE                                            \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  D11011A ,NASTRAN , 5/17/95,   58417,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER     6                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n              9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER     7                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER     8                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER     9                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    10                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    22                             \r\n             30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n             31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             32,   REENTER AT DMAP SEQUENCE NUMBER    23                             \r\n             33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             34,   GEI     ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             35,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             36,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n             37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             40,   REENTER AT DMAP SEQUENCE NUMBER    24                             \r\n             41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             44,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             50,   REENTER AT DMAP SEQUENCE NUMBER    29                             \r\n             51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             53,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             56,   REENTER AT DMAP SEQUENCE NUMBER    32                             \r\n             57,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             58,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             59,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             60,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             61,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             62,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             63,   REENTER AT DMAP SEQUENCE NUMBER    36                             \r\n             64,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             65,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             66,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             67,   REENTER AT DMAP SEQUENCE NUMBER    38                             \r\n             68,   OGPWG   ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             70,   REENTER AT DMAP SEQUENCE NUMBER    41                             \r\n             71,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             72,   KGG     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             73,   REENTER AT DMAP SEQUENCE NUMBER    43                             \r\n             74,   KGG     ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n             75,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n             76,   REENTER AT DMAP SEQUENCE NUMBER    45                             \r\n             77,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n             78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n             79,   REENTER AT DMAP SEQUENCE NUMBER    47                             \r\n             80,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n             81,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n             82,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             83,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             84,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             85,   REENTER AT DMAP SEQUENCE NUMBER    50                             \r\n             86,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n             87,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             88,   GMD     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             89,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             90,   GOD     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             91,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             92,   PSF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             93,   QPC     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             94,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             95,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             96,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             97,   MRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             98,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             99,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            100,   MDD     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            101,   REENTER AT DMAP SEQUENCE NUMBER    51                             \r\n            102,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     45               \r\n            103,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     45               \r\n            104,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     39               \r\n            105,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     39               \r\n            106,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n            107,   REENTER AT DMAP SEQUENCE NUMBER    56                             \r\n            108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n            109,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            110,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            111,   REENTER AT DMAP SEQUENCE NUMBER    58                             \r\n            112,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n            113,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            114,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            115,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            116,   REENTER AT DMAP SEQUENCE NUMBER    60                             \r\n            117,   KFF     ,   FLAGS = 4,   REEL =  1,   FILE =     54               \r\n            118,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     54               \r\n            119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            120,   REENTER AT DMAP SEQUENCE NUMBER    61                             \r\n            121,   MFF     ,   FLAGS = 4,   REEL =  1,   FILE =     56               \r\n            122,   MAA     ,   FLAGS = 4,   REEL =  1,   FILE =     56               \r\n            123,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            124,   REENTER AT DMAP SEQUENCE NUMBER    66                             \r\n            125,   KLL     ,   FLAGS = 4,   REEL =  1,   FILE =     54               \r\n            126,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            127,   REENTER AT DMAP SEQUENCE NUMBER    78                             \r\n            128,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            129,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            130,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            131,   DLT     ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            132,   PSDL    ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            133,   FRL     ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n            134,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n            135,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            136,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            137,   TFPOOL  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            138,   REENTER AT DMAP SEQUENCE NUMBER    80                             \r\n            139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            140,   UEVF    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            141,   REENTER AT DMAP SEQUENCE NUMBER    81                             \r\n            142,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n            143,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            144,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n            145,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            146,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            147,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            149,   REENTER AT DMAP SEQUENCE NUMBER    90                             \r\n            150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            151,   OUHVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            152,   OUHVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            153,   XYPLTFA ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            154,   OPPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            155,   OQPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            156,   OUPVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            157,   OESC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            158,   OEFC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            159,   OPPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            160,   OQPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            161,   OUPVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            162,   OESC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            163,   OEFC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            164,   XYPLTF  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            165,   PSDF    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            166,   AUTO    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            167,   XYPLTR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            168,   K2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            169,   M2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            170,   B2PP    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            171,   K2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            172,   M2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            173,   B2DD    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            174,   OPPCA   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            175,   IQP1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            176,   IPHIP1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            177,   IES1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            178,   IEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            179,   OPPCB   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            180,   IQP2    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            181,   IPHIP2  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            182,   IES2    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            183,   IEF2    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            184,   ZQPC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            185,   ZUPVC2  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            186,   ZESC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            187,   ZEFC2   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            188,   ZQPC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            189,   ZUPVC1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            190,   ZESC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            191,   ZEFC1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            192,   REENTER AT DMAP SEQUENCE NUMBER    91                             \r\n            193,   CASEXX  ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            194,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     79               \r\n            195,   REENTER AT DMAP SEQUENCE NUMBER    92                             \r\n            196,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80               \r\n            197,   REENTER AT DMAP SEQUENCE NUMBER    93                             \r\n            198,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     81               \r\n            199,   REENTER AT DMAP SEQUENCE NUMBER    95                             \r\n            200,   MDD     ,   FLAGS = 4,   REEL =  1,   FILE =     56               \r\n            201,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82               \r\n            202,   REENTER AT DMAP SEQUENCE NUMBER    96                             \r\n            203,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83               \r\n            204,   REENTER AT DMAP SEQUENCE NUMBER    97                             \r\n            205,   MHH     ,   FLAGS = 0,   REEL =  1,   FILE =     84               \r\n            206,   BHH     ,   FLAGS = 0,   REEL =  1,   FILE =     85               \r\n            207,   KHH     ,   FLAGS = 0,   REEL =  1,   FILE =     86               \r\n            208,   PHIDH   ,   FLAGS = 0,   REEL =  1,   FILE =     87               \r\n            209,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88               \r\n            210,   REENTER AT DMAP SEQUENCE NUMBER   100                             \r\n            211,   UHVF    ,   FLAGS = 0,   REEL =  1,   FILE =     89               \r\n            212,   PSF     ,   FLAGS = 0,   REEL =  1,   FILE =     90               \r\n            213,   PDF     ,   FLAGS = 0,   REEL =  1,   FILE =     91               \r\n            214,   PPF     ,   FLAGS = 0,   REEL =  1,   FILE =     92               \r\n            215,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     93               \r\n            216,   REENTER AT DMAP SEQUENCE NUMBER   101                             \r\n            217,   PDF     ,   FLAGS = 0,   REEL =  1,   FILE =     94               \r\n            218,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95               \r\n            219,   REENTER AT DMAP SEQUENCE NUMBER   102                             \r\n            220,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     96               \r\n            221,   REENTER AT DMAP SEQUENCE NUMBER   128                             \r\n            222,   PHIPH   ,   FLAGS = 0,   REEL =  1,   FILE =     97               \r\n            223,   QPH     ,   FLAGS = 0,   REEL =  1,   FILE =     98               \r\n            224,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     99               \r\n            225,   REENTER AT DMAP SEQUENCE NUMBER   129                             \r\n            226,   IPHIP1  ,   FLAGS = 0,   REEL =  1,   FILE =    100               \r\n            227,   IEF1    ,   FLAGS = 0,   REEL =  1,   FILE =    101               \r\n            228,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    102               \r\n            229,   REENTER AT DMAP SEQUENCE NUMBER   130                             \r\n            230,   OPPCA   ,   FLAGS = 0,   REEL =  1,   FILE =    103               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            231,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    104               \r\n            232,   REENTER AT DMAP SEQUENCE NUMBER   131                             \r\n            233,   OPPCA   ,   FLAGS = 4,   REEL =  1,   FILE =    103               \r\n            234,   OPPC1   ,   FLAGS = 4,   REEL =  1,   FILE =    103               \r\n            235,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    105               \r\n            236,   REENTER AT DMAP SEQUENCE NUMBER   133                             \r\n            237,   IPHIP2  ,   FLAGS = 0,   REEL =  1,   FILE =    106               \r\n            238,   IEF2    ,   FLAGS = 0,   REEL =  1,   FILE =    107               \r\n            239,   OPPCB   ,   FLAGS = 0,   REEL =  1,   FILE =    108               \r\n            240,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    109               \r\n            241,   REENTER AT DMAP SEQUENCE NUMBER   134                             \r\n            242,   OPPCB   ,   FLAGS = 4,   REEL =  1,   FILE =    108               \r\n            243,   OPPC2   ,   FLAGS = 4,   REEL =  1,   FILE =    108               \r\n            244,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    110               \r\n            245,   REENTER AT DMAP SEQUENCE NUMBER   135                             \r\n            246,   ZUPVC2  ,   FLAGS = 0,   REEL =  1,   FILE =    111               \r\n            247,   ZEFC2   ,   FLAGS = 0,   REEL =  1,   FILE =    112               \r\n            248,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113               \r\n            249,   REENTER AT DMAP SEQUENCE NUMBER   136                             \r\n            250,   ZUPVC2  ,   FLAGS = 4,   REEL =  1,   FILE =    111               \r\n            251,   OUPVC2  ,   FLAGS = 4,   REEL =  1,   FILE =    111               \r\n            252,   ZEFC2   ,   FLAGS = 4,   REEL =  1,   FILE =    112               \r\n            253,   OEFC2   ,   FLAGS = 4,   REEL =  1,   FILE =    112               \r\n            254,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    114               \r\n            255,   REENTER AT DMAP SEQUENCE NUMBER   144                             \r\n            256,   XYPLTF  ,   FLAGS = 0,   REEL =  1,   FILE =    115               \r\n            257,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116               \r\n            258,   REENTER AT DMAP SEQUENCE NUMBER   151                             \r\n            259,   PSDF    ,   FLAGS = 0,   REEL =  1,   FILE =    117               \r\n            260,   AUTO    ,   FLAGS = 0,   REEL =  1,   FILE =    118               \r\n            261,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    119               \r\n            262,   REENTER AT DMAP SEQUENCE NUMBER   153                             \r\n            263,   XYPLTR  ,   FLAGS = 0,   REEL =  1,   FILE =    120               \r\n            264,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121               \r\n            265,   REENTER AT DMAP SEQUENCE NUMBER   176                             \r\n            266,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    122               \r\n            267,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,9                                                                       \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION =  11, NEW SOLUTION =   1, BIT NUMBER = 197\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD        \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                          \r\n                  3      LABEL    = RIGID FORMAT SWITCH FROM 11 TO 1                                     \r\n                  4        SPC    = 1                                                                    \r\n                  5        DEFORM = 1102                                                                 \r\n                  6        LOAD   = 1101                                                                 \r\n                  7      OUTPUT                                                                          \r\n                  8        DISPLACEMENTS = ALL                                                           \r\n                  9        OLOAD         = ALL                                                           \r\n                 10        ELFORCE       = ALL                                                           \r\n                 11      BEGIN BULK                                                                      \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              DEFORM  1102    10      0.089045                                                              \r\n                              GRAV    1101            32.2    0.0     0.0     1.0                                           \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=      2\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    3       1       3       4       20.     .0      1.      1               \r\n                    2-        CBAR    4       1       4       5       20.     .0      1.      1               \r\n                    3-        CBAR    5       1       5       6       20.     .0      1.      1               \r\n                    4-        CBAR    6       1       6       7       20.     .0      1.      1               \r\n                    5-        CBAR    7       1       7       8       20.     .0      1.      1               \r\n                    6-        CBAR    8       1       8       9       20.     .0      1.      1               \r\n                    7-        CBAR    9       1       9       10      20.     .0      1.      1               \r\n                    8-        CBAR    10      1       10      11      20.     .0      1.      1               \r\n                    9-        CONM2  *11              1                               5.34604-3       *M1     \r\n                   10-        *M1     .0                                                                      \r\n                   11-        CONM2  *12              2                               1.069208-2      *M2     \r\n                   12-        *M2     .0              .0                                                      \r\n                   13-        CONM2  *13              3                               5.34604-3       *M3     \r\n                   14-        *M3                                                                             \r\n                   15-        DAREA   2       5       5       -100.                                           \r\n                   16-        DAREA   2       6       3       50.     5       3       50.                     \r\n                   17-        DAREA   2       7       3       50.     7       5       100.                    \r\n                   18-        DAREA   3       6       3       100.                                            \r\n                   19-        DAREA   510     6       3       1.0                                             \r\n                   20-        DEFORM  1102    10      0.089045                                                \r\n                   21-        DELAY   1       6       3       .5555-2                                         \r\n                   22-        DLOAD   506     1.      1.      5       1.      6                               \r\n                   23-        DLOAD   507     1.      1.      5       1.      7                               \r\n                   24-        DLOAD   510     2.0     1.0     5101    1.0     5102                            \r\n                   25-        DPHASE  1       6       3       30.                                             \r\n                   26-        DPHASE  5102    6       3       -30.0                                           \r\n                   27-        EIGR    2       INV     40.0    1000.0  3       5                       +EG     \r\n                   28-        +EG     MASS                                                                    \r\n                   29-        FREQ1   508     .0      5.0     40                                              \r\n                   30-        GENEL   1101            2       1       2       3       2       5       +1      \r\n                   31-        +1      3       1       3       3       3       5                       +2      \r\n                   32-        +2      UD              1       1       1       3       1       5       *30     \r\n                   33-        *30     Z               .89044935-8     .0              .0              *31     \r\n                   34-        *31     .89044935-8     .0              .0              3.08928-6       *40     \r\n                   35-        *40     -2.31696-6      .0              7.7232005-6     -2.31696-6      *41     \r\n                   36-        *41     2.31696-6       .0              -6.950884-6     2.31696-6       *50     \r\n                   37-        *50     1.7808987-8     .0              .0              24.714241-6     *51     \r\n                   38-        *51     -9.26784-6      4.6339203-6                                     +60     \r\n                   39-        +60     S       1.0     .0      .0      .0      1.0     -2.0    .0      +70     \r\n                   40-        +70     .0      1.0     1.0     .0      .0      .0      1.0     -4.0    +80     \r\n                   41-        +80     .0      .0      1.0                                                     \r\n                   42-        GRAV    1101            32.2    0.0     0.0     1.0                             \r\n                   43-        GRDSET                                                  246                     \r\n                   44-        GRID    1               .0      .0      .0                                      \r\n                   45-        GRID    2               2.      .0      .0                                      \r\n                   46-        GRID    3               4.      .0      .0                                      \r\n                   47-        GRID    4               6.      .0      .0                                      \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    5               8.      .0      .0                                      \r\n                   49-        GRID    6               10.     .0      .0                                      \r\n                   50-        GRID    7               12.     .0      .0                                      \r\n                   51-        GRID    8               14.     .0      .0                                      \r\n                   52-        GRID    9               16.     .0      .0                                      \r\n                   53-        GRID    10              18.     .0      .0                                      \r\n                   54-        GRID    11              20.     .0      .0                                      \r\n                   55-        MAT1    1       10.4+6  4.+6            .2523-3                                 \r\n                   56-        PARAM   GRDPNT  0                                                               \r\n                   57-        PARAM   LMODES  4                                                               \r\n                   58-        PBAR    1       1       21.18922.083    .083                                    \r\n                   59-        RANDPS  11      1       1       .5              11                              \r\n                   60-        RANDPS  11      1       3       .5              11                              \r\n                   61-        RANDPS  11      2       2       1.0             11                              \r\n                   62-        RANDPS  11      3       3       .5              11                              \r\n                   63-        RANDT1  11      100     .0      .1                                              \r\n                   64-        RLOAD1  5101    510                     5101                                    \r\n                   65-        RLOAD1  5102    510             5102            5102                            \r\n                   66-        RLOAD2  5       2                       1                                       \r\n                   67-        RLOAD2  6       3               1       1       2                               \r\n                   68-        RLOAD2  7       3       1               1                                       \r\n                   69-        SPC     1       1       13              11      13                              \r\n                   70-        SPC     11      1       13              11      3                               \r\n                   71-        TABDMP1 11                                                              +DAMP   \r\n                   72-        +DAMP   .0      .0      50.0    .02     ENDT                                    \r\n                   73-        TABLED1 1                                                               +TAUU   \r\n                   74-        +TAUU   .0      1.      100.    1.      ENDT                                    \r\n                   75-        TABLED1 2                                                               +TAD21  \r\n                   76-        +TAD21  .0      30.     100.    30.     ENDT                                    \r\n                   77-        TABLED1 5101                                                            +TAD30  \r\n                   78-        +TAD30  .0      75.0    100.    75.0    ENDT                                    \r\n                   79-        TABLED1 5102                                                            +TAD31  \r\n                   80-        +TAD31  .0      50.0    100.    50.0    ENDT                                    \r\n                   81-        TABRND1 11                                                              +TR     \r\n                   82-        +TR     -1.0    .0      .0      100.0   100.0   100.0   100.0   .0      +TR2    \r\n                   83-        +TR2    101.0   .0      ENDT                                                    \r\n                              ENDDATA\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   2           SPC$                   10\r\n                   3           LOAD$                  59\r\n                   5           DEFORM$                59\r\n                  17           POUT$                  19\r\n                  31           NOLOOP$                31\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     1\r\n                  26           GRAV                   61\r\n     3\r\n                  19           DEFORM                 59\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n+  +\r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n+  +\r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n+  *\r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n+  +\r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n+  *\r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n+  *\r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n+  *\r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n+  *\r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n+  *\r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n+  *\r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n+  +\r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n+  *\r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n+  *\r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n+  *\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n+  *\r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n+  +\r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n+  *\r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n+  *\r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n+  *\r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      52  LABEL    LBL1 $                                                         \r\n+  +\r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n+  +\r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n+  *\r\n\r\n      59  LABEL    LBL11 $                                                        \r\n+  +\r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n+  *\r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n+  *\r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n+  *\r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n+  *\r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n+  +\r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n+  *\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n+  *\r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n+  *\r\n\r\n      73  LABEL    LBL3 $                                                         \r\n+  +\r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n+  *\r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n+  *\r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n+  *\r\n\r\n      77  LABEL    LBL5 $                                                         \r\n+  +\r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n+  *\r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n+  *\r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n+  *\r\n\r\n      81  LABEL    LBL6 $                                                         \r\n+  +\r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n+  *\r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n+  *\r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n+  *\r\n\r\n      85  LABEL    LBL7 $                                                         \r\n+  +\r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n+  *\r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n+  *\r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n+  *\r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n+  *\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n+  +\r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n+  *\r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n+  *\r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n+  *\r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n+  *\r\n\r\n      95  LABEL    LBL9 $                                                         \r\n+  +\r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n+  *\r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n+  *\r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n+  *\r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n+  *\r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n+  *\r\n\r\n     102  LABEL    LBL8 $                                                         \r\n+  +\r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n+  *\r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n+  *\r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n+  *\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n+  *\r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n+  +\r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n+  *\r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n+  *\r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n+  *\r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n+  *\r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n+  *\r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n+  +\r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n+  *\r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n+  *\r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n+  *\r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n+  *\r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n+  *\r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n+  *\r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n+  *\r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n+  +\r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n+  +\r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n+  +\r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n+  *\r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n+  *\r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n+  *\r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n+  *\r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n+  *\r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n+  *\r\n\r\n     151  LABEL    DPLOT $                                                        \r\n+  +\r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n+  +\r\n\r\n     159  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n+  *\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n+  *\r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n+  *\r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n+  *\r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n+  +\r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n+  *\r\n\r\n     170  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n+  +\r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n+  *\r\n0*** USER WARNING MESSAGE   54,\r\n     PARAMETER NAMED LMODES   NOT REFERENCED\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     CSTM      (PURGED)\r\n     MPTX      (PURGED)\r\n     PCOMPS    (PURGED)\r\n     EPTX      (PURGED)\r\n     GM        (PURGED)\r\n     GPL              1         7\r\n     EQEXIN           1         8\r\n     GPDT             1         9\r\n     BGPDT            1        10\r\n     SIL              1        11\r\n     BGPDP            1        16\r\n     ECT              1        19\r\n     EST              1        23\r\n     GPECT            1        25\r\n     KGG              1        45\r\n     KNN              1        45\r\n     GPST             1        47\r\n     XVPS             1       122\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID       11\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  1.06920804D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  1.06920804D-01  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.06920806D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  1.06920804D-01  0.00000000D+00 -1.06920806D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -1.06920806D+00  0.00000000D+00  1.43273880D+01  0.00000000D+00 *\r\n                *  0.00000000D+00  1.06920806D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  1.43273880D+01 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            1.069208042D-01      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            1.069208042D-01      1.000000016D+01  0.000000000D+00  0.000000000D+00\r\n                            Z            1.069208042D-01      1.000000016D+01  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  3.635307274D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  3.635307274D+00  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00                                    *\r\n                                      *                   3.635307274D+00                   *\r\n                                      *                                    3.635307274D+00  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n\r\n      RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -9.4723509E-17\r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0           -6.580981E-05   0.0                           \r\n             2      G     -8.769585E-03   0.0            1.292265E-04   0.0           -6.222019E-05   0.0                           \r\n             3      G     -1.753917E-02   0.0            2.446264E-04   0.0           -5.224900E-05   0.0                           \r\n             4      G     -2.647740E-02   0.0            3.350318E-04   0.0           -3.749165E-05   0.0                           \r\n             5      G     -3.541563E-02   0.0            3.924658E-04   0.0           -1.954352E-05   0.0                           \r\n             6      G     -4.435386E-02   0.0            4.121423E-04   0.0            2.779750E-13   0.0                           \r\n             7      G     -5.329209E-02   0.0            3.924658E-04   0.0            1.954352E-05   0.0                           \r\n             8      G     -6.223032E-02   0.0            3.350318E-04   0.0            3.749165E-05   0.0                           \r\n             9      G     -7.116855E-02   0.0            2.446264E-04   0.0            5.224900E-05   0.0                           \r\n            10      G     -8.010677E-02   0.0            1.292265E-04   0.0            6.222018E-05   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            6.580981E-05   0.0                           \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            1.721425E-01   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             4      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             5      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             6      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             7      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             8      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n             9      G      0.0            0.0            3.442850E-01   0.0            0.0            0.0                           \r\n            10      G     -9.811330E+06   0.0            3.442850E-01   0.0            0.0            0.0                           \r\n            11      G      9.811330E+06   0.0            1.721425E-01   0.0            0.0            0.0                           \r\n1     10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                                                                                   \r\n0     RIGID FORMAT SWITCH FROM 11 TO 1                                                                                              \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            3    -5.508545E+00  0.0           -7.229980E+00  0.0            8.607178E-01  0.0           -9.848494E+05   0.0         \r\n            4    -7.229950E+00  0.0           -8.262787E+00  0.0            5.164185E-01  0.0           -9.848492E+05   0.0         \r\n            5    -8.262878E+00  0.0           -8.607117E+00  0.0            1.721191E-01  0.0           -9.848495E+05   0.0         \r\n            6    -8.607117E+00  0.0           -8.262878E+00  0.0           -1.721191E-01  0.0           -9.848495E+05   0.0         \r\n            7    -8.262848E+00  0.0           -7.230011E+00  0.0           -5.164185E-01  0.0           -9.848490E+05   0.0         \r\n            8    -7.229980E+00  0.0           -5.508545E+00  0.0           -8.607178E-01  0.0           -9.848500E+05   0.0         \r\n            9    -5.508560E+00  0.0           -3.098557E+00  0.0           -1.205002E+00  0.0           -9.848485E+05   0.0         \r\n           10    -3.098564E+00  0.0           -7.629395E-06  0.0           -1.549278E+00  0.0           -9.848500E+05   0.0         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD      \r\n DATE:  5/17/95\r\n END TIME: 16:16:26\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11021a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11021A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     TIME  35                                                                        \r\n     SOL   11,1                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 500 CELL STRING                              \r\n                  2      OUTPUT                                                                          \r\n                  3      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                          \r\n                  4        METHOD = 10                                                                   \r\n                  5          FREQ = 11                                                                   \r\n                  6         DLOAD = 11                                                                   \r\n                  7      OUTPUT                                                                          \r\n                  8         SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451                           \r\n                  9         SET 2 = 1 THRU 5                                                             \r\n                 10         DISPLACEMENT(PHASE,SORT2)  = 1                                               \r\n                 11         SDISPLACEMENT(PHASE,SORT2) = 2                                               \r\n                 12      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                            \r\n                 13      OUTPUT(XYOUT)                                                                   \r\n                 14      PLOTTER = NASTPLT                                                               \r\n                 15              CAMERA = 3                                                              \r\n                 16              SKIP BETWEEN FRAMES = 1                                                 \r\n                 17        CURVE LINE AND SYMBOLS = 1                                                    \r\n                 18        XLOG   = YES                                                                  \r\n                 19        YTLOG  = YES                                                                  \r\n                 20        XTGRID = YES                                                                  \r\n                 21        XBGRID = YES                                                                  \r\n                 22        YTGRID = YES                                                                  \r\n                 23        YBGRID = YES                                                                  \r\n                 24        XTITLE =                              FREQUENCY (HERTZ)                       \r\n                 25        YTTITLE= MAGNITUDE  *INCH*                                                    \r\n                 26        YBTITLE= PHASE  *DEGREE*                                                      \r\n                 27      $                                                                               \r\n                 28      $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n                 29      $                                                                               \r\n                 30          TCURVE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *         \r\n                 31      XYPLOT DISP  /   51(T1RM,T1IP)                                                  \r\n                 32          TCURVE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *         \r\n                 33      XYPLOT DISP  /  101(T1RM,T1IP)                                                  \r\n                 34          TCURVE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *         \r\n                 35      XYPLOT DISP  /  151(T1RM,T1IP)                                                  \r\n                 36          TCURVE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *         \r\n                 37      XYPLOT DISP  /  201(T1RM,T1IP)                                                  \r\n                 38          TCURVE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *         \r\n                 39      XYPLOT DISP  /  251(T1RM,T1IP)                                                  \r\n                 40      $                                                                               \r\n                 41      $ *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *        \r\n                 42      $                                                                               \r\n                 43        YLOG   = YES                                                                  \r\n                 44        YTITLE = MAGNITUDE  *INCH*                                                    \r\n                 45        XGRID LINES = YES                                                             \r\n                 46        YGRID LINES = YES                                                             \r\n                 47        TCURVE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *        \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48      XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3)                             \r\n                 49        YLOG   = NO                                                                   \r\n                 50        YTITLE = REAL PART  *POUNDS*                                                  \r\n                 51        TCURVE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *         \r\n                 52      XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2)                                       \r\n                 53      $                                                                               \r\n                 54      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   763, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CELAS3  1       101     0       2       2       101     2       3               \r\n                    2-        CELAS3  3       101     3       4       4       101     4       5               \r\n                    3-        CELAS3  5       101     5       6       6       101     6       7               \r\n                    4-        CELAS3  7       101     7       8       8       101     8       9               \r\n                    5-        CELAS3  9       101     9       10      10      101     10      11              \r\n                    6-        CELAS3  11      101     11      12      12      101     12      13              \r\n                    7-        CELAS3  13      101     13      14      14      101     14      15              \r\n                    8-        CELAS3  15      101     15      16      16      101     16      17              \r\n                    9-        CELAS3  17      101     17      18      18      101     18      19              \r\n                   10-        CELAS3  19      101     19      20      20      101     20      21              \r\n                   11-        CELAS3  21      101     21      22      22      101     22      23              \r\n                   12-        CELAS3  23      101     23      24      24      101     24      25              \r\n                   13-        CELAS3  25      101     25      26      26      101     26      27              \r\n                   14-        CELAS3  27      101     27      28      28      101     28      29              \r\n                   15-        CELAS3  29      101     29      30      30      101     30      31              \r\n                   16-        CELAS3  31      101     31      32      32      101     32      33              \r\n                   17-        CELAS3  33      101     33      34      34      101     34      35              \r\n                   18-        CELAS3  35      101     35      36      36      101     36      37              \r\n                   19-        CELAS3  37      101     37      38      38      101     38      39              \r\n                   20-        CELAS3  39      101     39      40      40      101     40      41              \r\n                   21-        CELAS3  41      101     41      42      42      101     42      43              \r\n                   22-        CELAS3  43      101     43      44      44      101     44      45              \r\n                   23-        CELAS3  45      101     45      46      46      101     46      47              \r\n                   24-        CELAS3  47      101     47      48      48      101     48      49              \r\n                   25-        CELAS3  49      101     49      50      50      101     50      51              \r\n                   26-        CELAS3  51      101     51      52      52      101     52      53              \r\n                   27-        CELAS3  53      101     53      54      54      101     54      55              \r\n                   28-        CELAS3  55      101     55      56      56      101     56      57              \r\n                   29-        CELAS3  57      101     57      58      58      101     58      59              \r\n                   30-        CELAS3  59      101     59      60      60      101     60      61              \r\n                   31-        CELAS3  61      101     61      62      62      101     62      63              \r\n                   32-        CELAS3  63      101     63      64      64      101     64      65              \r\n                   33-        CELAS3  65      101     65      66      66      101     66      67              \r\n                   34-        CELAS3  67      101     67      68      68      101     68      69              \r\n                   35-        CELAS3  69      101     69      70      70      101     70      71              \r\n                   36-        CELAS3  71      101     71      72      72      101     72      73              \r\n                   37-        CELAS3  73      101     73      74      74      101     74      75              \r\n                   38-        CELAS3  75      101     75      76      76      101     76      77              \r\n                   39-        CELAS3  77      101     77      78      78      101     78      79              \r\n                   40-        CELAS3  79      101     79      80      80      101     80      81              \r\n                   41-        CELAS3  81      101     81      82      82      101     82      83              \r\n                   42-        CELAS3  83      101     83      84      84      101     84      85              \r\n                   43-        CELAS3  85      101     85      86      86      101     86      87              \r\n                   44-        CELAS3  87      101     87      88      88      101     88      89              \r\n                   45-        CELAS3  89      101     89      90      90      101     90      91              \r\n                   46-        CELAS3  91      101     91      92      92      101     92      93              \r\n                   47-        CELAS3  93      101     93      94      94      101     94      95              \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CELAS3  95      101     95      96      96      101     96      97              \r\n                   49-        CELAS3  97      101     97      98      98      101     98      99              \r\n                   50-        CELAS3  99      101     99      100     100     101     100     101             \r\n                   51-        CELAS3  101     101     101     102     102     101     102     103             \r\n                   52-        CELAS3  103     101     103     104     104     101     104     105             \r\n                   53-        CELAS3  105     101     105     106     106     101     106     107             \r\n                   54-        CELAS3  107     101     107     108     108     101     108     109             \r\n                   55-        CELAS3  109     101     109     110     110     101     110     111             \r\n                   56-        CELAS3  111     101     111     112     112     101     112     113             \r\n                   57-        CELAS3  113     101     113     114     114     101     114     115             \r\n                   58-        CELAS3  115     101     115     116     116     101     116     117             \r\n                   59-        CELAS3  117     101     117     118     118     101     118     119             \r\n                   60-        CELAS3  119     101     119     120     120     101     120     121             \r\n                   61-        CELAS3  121     101     121     122     122     101     122     123             \r\n                   62-        CELAS3  123     101     123     124     124     101     124     125             \r\n                   63-        CELAS3  125     101     125     126     126     101     126     127             \r\n                   64-        CELAS3  127     101     127     128     128     101     128     129             \r\n                   65-        CELAS3  129     101     129     130     130     101     130     131             \r\n                   66-        CELAS3  131     101     131     132     132     101     132     133             \r\n                   67-        CELAS3  133     101     133     134     134     101     134     135             \r\n                   68-        CELAS3  135     101     135     136     136     101     136     137             \r\n                   69-        CELAS3  137     101     137     138     138     101     138     139             \r\n                   70-        CELAS3  139     101     139     140     140     101     140     141             \r\n                   71-        CELAS3  141     101     141     142     142     101     142     143             \r\n                   72-        CELAS3  143     101     143     144     144     101     144     145             \r\n                   73-        CELAS3  145     101     145     146     146     101     146     147             \r\n                   74-        CELAS3  147     101     147     148     148     101     148     149             \r\n                   75-        CELAS3  149     101     149     150     150     101     150     151             \r\n                   76-        CELAS3  151     101     151     152     152     101     152     153             \r\n                   77-        CELAS3  153     101     153     154     154     101     154     155             \r\n                   78-        CELAS3  155     101     155     156     156     101     156     157             \r\n                   79-        CELAS3  157     101     157     158     158     101     158     159             \r\n                   80-        CELAS3  159     101     159     160     160     101     160     161             \r\n                   81-        CELAS3  161     101     161     162     162     101     162     163             \r\n                   82-        CELAS3  163     101     163     164     164     101     164     165             \r\n                   83-        CELAS3  165     101     165     166     166     101     166     167             \r\n                   84-        CELAS3  167     101     167     168     168     101     168     169             \r\n                   85-        CELAS3  169     101     169     170     170     101     170     171             \r\n                   86-        CELAS3  171     101     171     172     172     101     172     173             \r\n                   87-        CELAS3  173     101     173     174     174     101     174     175             \r\n                   88-        CELAS3  175     101     175     176     176     101     176     177             \r\n                   89-        CELAS3  177     101     177     178     178     101     178     179             \r\n                   90-        CELAS3  179     101     179     180     180     101     180     181             \r\n                   91-        CELAS3  181     101     181     182     182     101     182     183             \r\n                   92-        CELAS3  183     101     183     184     184     101     184     185             \r\n                   93-        CELAS3  185     101     185     186     186     101     186     187             \r\n                   94-        CELAS3  187     101     187     188     188     101     188     189             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CELAS3  189     101     189     190     190     101     190     191             \r\n                   96-        CELAS3  191     101     191     192     192     101     192     193             \r\n                   97-        CELAS3  193     101     193     194     194     101     194     195             \r\n                   98-        CELAS3  195     101     195     196     196     101     196     197             \r\n                   99-        CELAS3  197     101     197     198     198     101     198     199             \r\n                  100-        CELAS3  199     101     199     200     200     101     200     201             \r\n                  101-        CELAS3  201     101     201     202     202     101     202     203             \r\n                  102-        CELAS3  203     101     203     204     204     101     204     205             \r\n                  103-        CELAS3  205     101     205     206     206     101     206     207             \r\n                  104-        CELAS3  207     101     207     208     208     101     208     209             \r\n                  105-        CELAS3  209     101     209     210     210     101     210     211             \r\n                  106-        CELAS3  211     101     211     212     212     101     212     213             \r\n                  107-        CELAS3  213     101     213     214     214     101     214     215             \r\n                  108-        CELAS3  215     101     215     216     216     101     216     217             \r\n                  109-        CELAS3  217     101     217     218     218     101     218     219             \r\n                  110-        CELAS3  219     101     219     220     220     101     220     221             \r\n                  111-        CELAS3  221     101     221     222     222     101     222     223             \r\n                  112-        CELAS3  223     101     223     224     224     101     224     225             \r\n                  113-        CELAS3  225     101     225     226     226     101     226     227             \r\n                  114-        CELAS3  227     101     227     228     228     101     228     229             \r\n                  115-        CELAS3  229     101     229     230     230     101     230     231             \r\n                  116-        CELAS3  231     101     231     232     232     101     232     233             \r\n                  117-        CELAS3  233     101     233     234     234     101     234     235             \r\n                  118-        CELAS3  235     101     235     236     236     101     236     237             \r\n                  119-        CELAS3  237     101     237     238     238     101     238     239             \r\n                  120-        CELAS3  239     101     239     240     240     101     240     241             \r\n                  121-        CELAS3  241     101     241     242     242     101     242     243             \r\n                  122-        CELAS3  243     101     243     244     244     101     244     245             \r\n                  123-        CELAS3  245     101     245     246     246     101     246     247             \r\n                  124-        CELAS3  247     101     247     248     248     101     248     249             \r\n                  125-        CELAS3  249     101     249     250     250     101     250     251             \r\n                  126-        CELAS3  251     101     251     252     252     101     252     253             \r\n                  127-        CELAS3  253     101     253     254     254     101     254     255             \r\n                  128-        CELAS3  255     101     255     256     256     101     256     257             \r\n                  129-        CELAS3  257     101     257     258     258     101     258     259             \r\n                  130-        CELAS3  259     101     259     260     260     101     260     261             \r\n                  131-        CELAS3  261     101     261     262     262     101     262     263             \r\n                  132-        CELAS3  263     101     263     264     264     101     264     265             \r\n                  133-        CELAS3  265     101     265     266     266     101     266     267             \r\n                  134-        CELAS3  267     101     267     268     268     101     268     269             \r\n                  135-        CELAS3  269     101     269     270     270     101     270     271             \r\n                  136-        CELAS3  271     101     271     272     272     101     272     273             \r\n                  137-        CELAS3  273     101     273     274     274     101     274     275             \r\n                  138-        CELAS3  275     101     275     276     276     101     276     277             \r\n                  139-        CELAS3  277     101     277     278     278     101     278     279             \r\n                  140-        CELAS3  279     101     279     280     280     101     280     281             \r\n                  141-        CELAS3  281     101     281     282     282     101     282     283             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CELAS3  283     101     283     284     284     101     284     285             \r\n                  143-        CELAS3  285     101     285     286     286     101     286     287             \r\n                  144-        CELAS3  287     101     287     288     288     101     288     289             \r\n                  145-        CELAS3  289     101     289     290     290     101     290     291             \r\n                  146-        CELAS3  291     101     291     292     292     101     292     293             \r\n                  147-        CELAS3  293     101     293     294     294     101     294     295             \r\n                  148-        CELAS3  295     101     295     296     296     101     296     297             \r\n                  149-        CELAS3  297     101     297     298     298     101     298     299             \r\n                  150-        CELAS3  299     101     299     300     300     101     300     301             \r\n                  151-        CELAS3  301     101     301     302     302     101     302     303             \r\n                  152-        CELAS3  303     101     303     304     304     101     304     305             \r\n                  153-        CELAS3  305     101     305     306     306     101     306     307             \r\n                  154-        CELAS3  307     101     307     308     308     101     308     309             \r\n                  155-        CELAS3  309     101     309     310     310     101     310     311             \r\n                  156-        CELAS3  311     101     311     312     312     101     312     313             \r\n                  157-        CELAS3  313     101     313     314     314     101     314     315             \r\n                  158-        CELAS3  315     101     315     316     316     101     316     317             \r\n                  159-        CELAS3  317     101     317     318     318     101     318     319             \r\n                  160-        CELAS3  319     101     319     320     320     101     320     321             \r\n                  161-        CELAS3  321     101     321     322     322     101     322     323             \r\n                  162-        CELAS3  323     101     323     324     324     101     324     325             \r\n                  163-        CELAS3  325     101     325     326     326     101     326     327             \r\n                  164-        CELAS3  327     101     327     328     328     101     328     329             \r\n                  165-        CELAS3  329     101     329     330     330     101     330     331             \r\n                  166-        CELAS3  331     101     331     332     332     101     332     333             \r\n                  167-        CELAS3  333     101     333     334     334     101     334     335             \r\n                  168-        CELAS3  335     101     335     336     336     101     336     337             \r\n                  169-        CELAS3  337     101     337     338     338     101     338     339             \r\n                  170-        CELAS3  339     101     339     340     340     101     340     341             \r\n                  171-        CELAS3  341     101     341     342     342     101     342     343             \r\n                  172-        CELAS3  343     101     343     344     344     101     344     345             \r\n                  173-        CELAS3  345     101     345     346     346     101     346     347             \r\n                  174-        CELAS3  347     101     347     348     348     101     348     349             \r\n                  175-        CELAS3  349     101     349     350     350     101     350     351             \r\n                  176-        CELAS3  351     101     351     352     352     101     352     353             \r\n                  177-        CELAS3  353     101     353     354     354     101     354     355             \r\n                  178-        CELAS3  355     101     355     356     356     101     356     357             \r\n                  179-        CELAS3  357     101     357     358     358     101     358     359             \r\n                  180-        CELAS3  359     101     359     360     360     101     360     361             \r\n                  181-        CELAS3  361     101     361     362     362     101     362     363             \r\n                  182-        CELAS3  363     101     363     364     364     101     364     365             \r\n                  183-        CELAS3  365     101     365     366     366     101     366     367             \r\n                  184-        CELAS3  367     101     367     368     368     101     368     369             \r\n                  185-        CELAS3  369     101     369     370     370     101     370     371             \r\n                  186-        CELAS3  371     101     371     372     372     101     372     373             \r\n                  187-        CELAS3  373     101     373     374     374     101     374     375             \r\n                  188-        CELAS3  375     101     375     376     376     101     376     377             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CELAS3  377     101     377     378     378     101     378     379             \r\n                  190-        CELAS3  379     101     379     380     380     101     380     381             \r\n                  191-        CELAS3  381     101     381     382     382     101     382     383             \r\n                  192-        CELAS3  383     101     383     384     384     101     384     385             \r\n                  193-        CELAS3  385     101     385     386     386     101     386     387             \r\n                  194-        CELAS3  387     101     387     388     388     101     388     389             \r\n                  195-        CELAS3  389     101     389     390     390     101     390     391             \r\n                  196-        CELAS3  391     101     391     392     392     101     392     393             \r\n                  197-        CELAS3  393     101     393     394     394     101     394     395             \r\n                  198-        CELAS3  395     101     395     396     396     101     396     397             \r\n                  199-        CELAS3  397     101     397     398     398     101     398     399             \r\n                  200-        CELAS3  399     101     399     400     400     101     400     401             \r\n                  201-        CELAS3  401     101     401     402     402     101     402     403             \r\n                  202-        CELAS3  403     101     403     404     404     101     404     405             \r\n                  203-        CELAS3  405     101     405     406     406     101     406     407             \r\n                  204-        CELAS3  407     101     407     408     408     101     408     409             \r\n                  205-        CELAS3  409     101     409     410     410     101     410     411             \r\n                  206-        CELAS3  411     101     411     412     412     101     412     413             \r\n                  207-        CELAS3  413     101     413     414     414     101     414     415             \r\n                  208-        CELAS3  415     101     415     416     416     101     416     417             \r\n                  209-        CELAS3  417     101     417     418     418     101     418     419             \r\n                  210-        CELAS3  419     101     419     420     420     101     420     421             \r\n                  211-        CELAS3  421     101     421     422     422     101     422     423             \r\n                  212-        CELAS3  423     101     423     424     424     101     424     425             \r\n                  213-        CELAS3  425     101     425     426     426     101     426     427             \r\n                  214-        CELAS3  427     101     427     428     428     101     428     429             \r\n                  215-        CELAS3  429     101     429     430     430     101     430     431             \r\n                  216-        CELAS3  431     101     431     432     432     101     432     433             \r\n                  217-        CELAS3  433     101     433     434     434     101     434     435             \r\n                  218-        CELAS3  435     101     435     436     436     101     436     437             \r\n                  219-        CELAS3  437     101     437     438     438     101     438     439             \r\n                  220-        CELAS3  439     101     439     440     440     101     440     441             \r\n                  221-        CELAS3  441     101     441     442     442     101     442     443             \r\n                  222-        CELAS3  443     101     443     444     444     101     444     445             \r\n                  223-        CELAS3  445     101     445     446     446     101     446     447             \r\n                  224-        CELAS3  447     101     447     448     448     101     448     449             \r\n                  225-        CELAS3  449     101     449     450     450     101     450     451             \r\n                  226-        CELAS3  451     101     451     452     452     101     452     453             \r\n                  227-        CELAS3  453     101     453     454     454     101     454     455             \r\n                  228-        CELAS3  455     101     455     456     456     101     456     457             \r\n                  229-        CELAS3  457     101     457     458     458     101     458     459             \r\n                  230-        CELAS3  459     101     459     460     460     101     460     461             \r\n                  231-        CELAS3  461     101     461     462     462     101     462     463             \r\n                  232-        CELAS3  463     101     463     464     464     101     464     465             \r\n                  233-        CELAS3  465     101     465     466     466     101     466     467             \r\n                  234-        CELAS3  467     101     467     468     468     101     468     469             \r\n                  235-        CELAS3  469     101     469     470     470     101     470     471             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CELAS3  471     101     471     472     472     101     472     473             \r\n                  237-        CELAS3  473     101     473     474     474     101     474     475             \r\n                  238-        CELAS3  475     101     475     476     476     101     476     477             \r\n                  239-        CELAS3  477     101     477     478     478     101     478     479             \r\n                  240-        CELAS3  479     101     479     480     480     101     480     481             \r\n                  241-        CELAS3  481     101     481     482     482     101     482     483             \r\n                  242-        CELAS3  483     101     483     484     484     101     484     485             \r\n                  243-        CELAS3  485     101     485     486     486     101     486     487             \r\n                  244-        CELAS3  487     101     487     488     488     101     488     489             \r\n                  245-        CELAS3  489     101     489     490     490     101     490     491             \r\n                  246-        CELAS3  491     101     491     492     492     101     492     493             \r\n                  247-        CELAS3  493     101     493     494     494     101     494     495             \r\n                  248-        CELAS3  495     101     495     496     496     101     496     497             \r\n                  249-        CELAS3  497     101     497     498     498     101     498     499             \r\n                  250-        CELAS3  499     101     499     500     500     101     500     0               \r\n                  251-        CMASS3  40002   301     2       0                                               \r\n                  252-        CMASS3  40003   301     3       0       40004   301     4       0               \r\n                  253-        CMASS3  40005   301     5       0       40006   301     6       0               \r\n                  254-        CMASS3  40007   301     7       0       40008   301     8       0               \r\n                  255-        CMASS3  40009   301     9       0       40010   301     10      0               \r\n                  256-        CMASS3  40011   301     11      0       40012   301     12      0               \r\n                  257-        CMASS3  40013   301     13      0       40014   301     14      0               \r\n                  258-        CMASS3  40015   301     15      0       40016   301     16      0               \r\n                  259-        CMASS3  40017   301     17      0       40018   301     18      0               \r\n                  260-        CMASS3  40019   301     19      0       40020   301     20      0               \r\n                  261-        CMASS3  40021   301     21      0       40022   301     22      0               \r\n                  262-        CMASS3  40023   301     23      0       40024   301     24      0               \r\n                  263-        CMASS3  40025   301     25      0       40026   301     26      0               \r\n                  264-        CMASS3  40027   301     27      0       40028   301     28      0               \r\n                  265-        CMASS3  40029   301     29      0       40030   301     30      0               \r\n                  266-        CMASS3  40031   301     31      0       40032   301     32      0               \r\n                  267-        CMASS3  40033   301     33      0       40034   301     34      0               \r\n                  268-        CMASS3  40035   301     35      0       40036   301     36      0               \r\n                  269-        CMASS3  40037   301     37      0       40038   301     38      0               \r\n                  270-        CMASS3  40039   301     39      0       40040   301     40      0               \r\n                  271-        CMASS3  40041   301     41      0       40042   301     42      0               \r\n                  272-        CMASS3  40043   301     43      0       40044   301     44      0               \r\n                  273-        CMASS3  40045   301     45      0       40046   301     46      0               \r\n                  274-        CMASS3  40047   301     47      0       40048   301     48      0               \r\n                  275-        CMASS3  40049   301     49      0       40050   301     50      0               \r\n                  276-        CMASS3  40051   301     51      0       40052   301     52      0               \r\n                  277-        CMASS3  40053   301     53      0       40054   301     54      0               \r\n                  278-        CMASS3  40055   301     55      0       40056   301     56      0               \r\n                  279-        CMASS3  40057   301     57      0       40058   301     58      0               \r\n                  280-        CMASS3  40059   301     59      0       40060   301     60      0               \r\n                  281-        CMASS3  40061   301     61      0       40062   301     62      0               \r\n                  282-        CMASS3  40063   301     63      0       40064   301     64      0               \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CMASS3  40065   301     65      0       40066   301     66      0               \r\n                  284-        CMASS3  40067   301     67      0       40068   301     68      0               \r\n                  285-        CMASS3  40069   301     69      0       40070   301     70      0               \r\n                  286-        CMASS3  40071   301     71      0       40072   301     72      0               \r\n                  287-        CMASS3  40073   301     73      0       40074   301     74      0               \r\n                  288-        CMASS3  40075   301     75      0       40076   301     76      0               \r\n                  289-        CMASS3  40077   301     77      0       40078   301     78      0               \r\n                  290-        CMASS3  40079   301     79      0       40080   301     80      0               \r\n                  291-        CMASS3  40081   301     81      0       40082   301     82      0               \r\n                  292-        CMASS3  40083   301     83      0       40084   301     84      0               \r\n                  293-        CMASS3  40085   301     85      0       40086   301     86      0               \r\n                  294-        CMASS3  40087   301     87      0       40088   301     88      0               \r\n                  295-        CMASS3  40089   301     89      0       40090   301     90      0               \r\n                  296-        CMASS3  40091   301     91      0       40092   301     92      0               \r\n                  297-        CMASS3  40093   301     93      0       40094   301     94      0               \r\n                  298-        CMASS3  40095   301     95      0       40096   301     96      0               \r\n                  299-        CMASS3  40097   301     97      0       40098   301     98      0               \r\n                  300-        CMASS3  40099   301     99      0       40100   301     100     0               \r\n                  301-        CMASS3  40101   301     101     0       40102   301     102     0               \r\n                  302-        CMASS3  40103   301     103     0       40104   301     104     0               \r\n                  303-        CMASS3  40105   301     105     0       40106   301     106     0               \r\n                  304-        CMASS3  40107   301     107     0       40108   301     108     0               \r\n                  305-        CMASS3  40109   301     109     0       40110   301     110     0               \r\n                  306-        CMASS3  40111   301     111     0       40112   301     112     0               \r\n                  307-        CMASS3  40113   301     113     0       40114   301     114     0               \r\n                  308-        CMASS3  40115   301     115     0       40116   301     116     0               \r\n                  309-        CMASS3  40117   301     117     0       40118   301     118     0               \r\n                  310-        CMASS3  40119   301     119     0       40120   301     120     0               \r\n                  311-        CMASS3  40121   301     121     0       40122   301     122     0               \r\n                  312-        CMASS3  40123   301     123     0       40124   301     124     0               \r\n                  313-        CMASS3  40125   301     125     0       40126   301     126     0               \r\n                  314-        CMASS3  40127   301     127     0       40128   301     128     0               \r\n                  315-        CMASS3  40129   301     129     0       40130   301     130     0               \r\n                  316-        CMASS3  40131   301     131     0       40132   301     132     0               \r\n                  317-        CMASS3  40133   301     133     0       40134   301     134     0               \r\n                  318-        CMASS3  40135   301     135     0       40136   301     136     0               \r\n                  319-        CMASS3  40137   301     137     0       40138   301     138     0               \r\n                  320-        CMASS3  40139   301     139     0       40140   301     140     0               \r\n                  321-        CMASS3  40141   301     141     0       40142   301     142     0               \r\n                  322-        CMASS3  40143   301     143     0       40144   301     144     0               \r\n                  323-        CMASS3  40145   301     145     0       40146   301     146     0               \r\n                  324-        CMASS3  40147   301     147     0       40148   301     148     0               \r\n                  325-        CMASS3  40149   301     149     0       40150   301     150     0               \r\n                  326-        CMASS3  40151   301     151     0       40152   301     152     0               \r\n                  327-        CMASS3  40153   301     153     0       40154   301     154     0               \r\n                  328-        CMASS3  40155   301     155     0       40156   301     156     0               \r\n                  329-        CMASS3  40157   301     157     0       40158   301     158     0               \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CMASS3  40159   301     159     0       40160   301     160     0               \r\n                  331-        CMASS3  40161   301     161     0       40162   301     162     0               \r\n                  332-        CMASS3  40163   301     163     0       40164   301     164     0               \r\n                  333-        CMASS3  40165   301     165     0       40166   301     166     0               \r\n                  334-        CMASS3  40167   301     167     0       40168   301     168     0               \r\n                  335-        CMASS3  40169   301     169     0       40170   301     170     0               \r\n                  336-        CMASS3  40171   301     171     0       40172   301     172     0               \r\n                  337-        CMASS3  40173   301     173     0       40174   301     174     0               \r\n                  338-        CMASS3  40175   301     175     0       40176   301     176     0               \r\n                  339-        CMASS3  40177   301     177     0       40178   301     178     0               \r\n                  340-        CMASS3  40179   301     179     0       40180   301     180     0               \r\n                  341-        CMASS3  40181   301     181     0       40182   301     182     0               \r\n                  342-        CMASS3  40183   301     183     0       40184   301     184     0               \r\n                  343-        CMASS3  40185   301     185     0       40186   301     186     0               \r\n                  344-        CMASS3  40187   301     187     0       40188   301     188     0               \r\n                  345-        CMASS3  40189   301     189     0       40190   301     190     0               \r\n                  346-        CMASS3  40191   301     191     0       40192   301     192     0               \r\n                  347-        CMASS3  40193   301     193     0       40194   301     194     0               \r\n                  348-        CMASS3  40195   301     195     0       40196   301     196     0               \r\n                  349-        CMASS3  40197   301     197     0       40198   301     198     0               \r\n                  350-        CMASS3  40199   301     199     0       40200   301     200     0               \r\n                  351-        CMASS3  40201   301     201     0       40202   301     202     0               \r\n                  352-        CMASS3  40203   301     203     0       40204   301     204     0               \r\n                  353-        CMASS3  40205   301     205     0       40206   301     206     0               \r\n                  354-        CMASS3  40207   301     207     0       40208   301     208     0               \r\n                  355-        CMASS3  40209   301     209     0       40210   301     210     0               \r\n                  356-        CMASS3  40211   301     211     0       40212   301     212     0               \r\n                  357-        CMASS3  40213   301     213     0       40214   301     214     0               \r\n                  358-        CMASS3  40215   301     215     0       40216   301     216     0               \r\n                  359-        CMASS3  40217   301     217     0       40218   301     218     0               \r\n                  360-        CMASS3  40219   301     219     0       40220   301     220     0               \r\n                  361-        CMASS3  40221   301     221     0       40222   301     222     0               \r\n                  362-        CMASS3  40223   301     223     0       40224   301     224     0               \r\n                  363-        CMASS3  40225   301     225     0       40226   301     226     0               \r\n                  364-        CMASS3  40227   301     227     0       40228   301     228     0               \r\n                  365-        CMASS3  40229   301     229     0       40230   301     230     0               \r\n                  366-        CMASS3  40231   301     231     0       40232   301     232     0               \r\n                  367-        CMASS3  40233   301     233     0       40234   301     234     0               \r\n                  368-        CMASS3  40235   301     235     0       40236   301     236     0               \r\n                  369-        CMASS3  40237   301     237     0       40238   301     238     0               \r\n                  370-        CMASS3  40239   301     239     0       40240   301     240     0               \r\n                  371-        CMASS3  40241   301     241     0       40242   301     242     0               \r\n                  372-        CMASS3  40243   301     243     0       40244   301     244     0               \r\n                  373-        CMASS3  40245   301     245     0       40246   301     246     0               \r\n                  374-        CMASS3  40247   301     247     0       40248   301     248     0               \r\n                  375-        CMASS3  40249   301     249     0       40250   301     250     0               \r\n                  376-        CMASS3  40251   301     251     0       40252   301     252     0               \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        CMASS3  40253   301     253     0       40254   301     254     0               \r\n                  378-        CMASS3  40255   301     255     0       40256   301     256     0               \r\n                  379-        CMASS3  40257   301     257     0       40258   301     258     0               \r\n                  380-        CMASS3  40259   301     259     0       40260   301     260     0               \r\n                  381-        CMASS3  40261   301     261     0       40262   301     262     0               \r\n                  382-        CMASS3  40263   301     263     0       40264   301     264     0               \r\n                  383-        CMASS3  40265   301     265     0       40266   301     266     0               \r\n                  384-        CMASS3  40267   301     267     0       40268   301     268     0               \r\n                  385-        CMASS3  40269   301     269     0       40270   301     270     0               \r\n                  386-        CMASS3  40271   301     271     0       40272   301     272     0               \r\n                  387-        CMASS3  40273   301     273     0       40274   301     274     0               \r\n                  388-        CMASS3  40275   301     275     0       40276   301     276     0               \r\n                  389-        CMASS3  40277   301     277     0       40278   301     278     0               \r\n                  390-        CMASS3  40279   301     279     0       40280   301     280     0               \r\n                  391-        CMASS3  40281   301     281     0       40282   301     282     0               \r\n                  392-        CMASS3  40283   301     283     0       40284   301     284     0               \r\n                  393-        CMASS3  40285   301     285     0       40286   301     286     0               \r\n                  394-        CMASS3  40287   301     287     0       40288   301     288     0               \r\n                  395-        CMASS3  40289   301     289     0       40290   301     290     0               \r\n                  396-        CMASS3  40291   301     291     0       40292   301     292     0               \r\n                  397-        CMASS3  40293   301     293     0       40294   301     294     0               \r\n                  398-        CMASS3  40295   301     295     0       40296   301     296     0               \r\n                  399-        CMASS3  40297   301     297     0       40298   301     298     0               \r\n                  400-        CMASS3  40299   301     299     0       40300   301     300     0               \r\n                  401-        CMASS3  40301   301     301     0       40302   301     302     0               \r\n                  402-        CMASS3  40303   301     303     0       40304   301     304     0               \r\n                  403-        CMASS3  40305   301     305     0       40306   301     306     0               \r\n                  404-        CMASS3  40307   301     307     0       40308   301     308     0               \r\n                  405-        CMASS3  40309   301     309     0       40310   301     310     0               \r\n                  406-        CMASS3  40311   301     311     0       40312   301     312     0               \r\n                  407-        CMASS3  40313   301     313     0       40314   301     314     0               \r\n                  408-        CMASS3  40315   301     315     0       40316   301     316     0               \r\n                  409-        CMASS3  40317   301     317     0       40318   301     318     0               \r\n                  410-        CMASS3  40319   301     319     0       40320   301     320     0               \r\n                  411-        CMASS3  40321   301     321     0       40322   301     322     0               \r\n                  412-        CMASS3  40323   301     323     0       40324   301     324     0               \r\n                  413-        CMASS3  40325   301     325     0       40326   301     326     0               \r\n                  414-        CMASS3  40327   301     327     0       40328   301     328     0               \r\n                  415-        CMASS3  40329   301     329     0       40330   301     330     0               \r\n                  416-        CMASS3  40331   301     331     0       40332   301     332     0               \r\n                  417-        CMASS3  40333   301     333     0       40334   301     334     0               \r\n                  418-        CMASS3  40335   301     335     0       40336   301     336     0               \r\n                  419-        CMASS3  40337   301     337     0       40338   301     338     0               \r\n                  420-        CMASS3  40339   301     339     0       40340   301     340     0               \r\n                  421-        CMASS3  40341   301     341     0       40342   301     342     0               \r\n                  422-        CMASS3  40343   301     343     0       40344   301     344     0               \r\n                  423-        CMASS3  40345   301     345     0       40346   301     346     0               \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        CMASS3  40347   301     347     0       40348   301     348     0               \r\n                  425-        CMASS3  40349   301     349     0       40350   301     350     0               \r\n                  426-        CMASS3  40351   301     351     0       40352   301     352     0               \r\n                  427-        CMASS3  40353   301     353     0       40354   301     354     0               \r\n                  428-        CMASS3  40355   301     355     0       40356   301     356     0               \r\n                  429-        CMASS3  40357   301     357     0       40358   301     358     0               \r\n                  430-        CMASS3  40359   301     359     0       40360   301     360     0               \r\n                  431-        CMASS3  40361   301     361     0       40362   301     362     0               \r\n                  432-        CMASS3  40363   301     363     0       40364   301     364     0               \r\n                  433-        CMASS3  40365   301     365     0       40366   301     366     0               \r\n                  434-        CMASS3  40367   301     367     0       40368   301     368     0               \r\n                  435-        CMASS3  40369   301     369     0       40370   301     370     0               \r\n                  436-        CMASS3  40371   301     371     0       40372   301     372     0               \r\n                  437-        CMASS3  40373   301     373     0       40374   301     374     0               \r\n                  438-        CMASS3  40375   301     375     0       40376   301     376     0               \r\n                  439-        CMASS3  40377   301     377     0       40378   301     378     0               \r\n                  440-        CMASS3  40379   301     379     0       40380   301     380     0               \r\n                  441-        CMASS3  40381   301     381     0       40382   301     382     0               \r\n                  442-        CMASS3  40383   301     383     0       40384   301     384     0               \r\n                  443-        CMASS3  40385   301     385     0       40386   301     386     0               \r\n                  444-        CMASS3  40387   301     387     0       40388   301     388     0               \r\n                  445-        CMASS3  40389   301     389     0       40390   301     390     0               \r\n                  446-        CMASS3  40391   301     391     0       40392   301     392     0               \r\n                  447-        CMASS3  40393   301     393     0       40394   301     394     0               \r\n                  448-        CMASS3  40395   301     395     0       40396   301     396     0               \r\n                  449-        CMASS3  40397   301     397     0       40398   301     398     0               \r\n                  450-        CMASS3  40399   301     399     0       40400   301     400     0               \r\n                  451-        CMASS3  40401   301     401     0       40402   301     402     0               \r\n                  452-        CMASS3  40403   301     403     0       40404   301     404     0               \r\n                  453-        CMASS3  40405   301     405     0       40406   301     406     0               \r\n                  454-        CMASS3  40407   301     407     0       40408   301     408     0               \r\n                  455-        CMASS3  40409   301     409     0       40410   301     410     0               \r\n                  456-        CMASS3  40411   301     411     0       40412   301     412     0               \r\n                  457-        CMASS3  40413   301     413     0       40414   301     414     0               \r\n                  458-        CMASS3  40415   301     415     0       40416   301     416     0               \r\n                  459-        CMASS3  40417   301     417     0       40418   301     418     0               \r\n                  460-        CMASS3  40419   301     419     0       40420   301     420     0               \r\n                  461-        CMASS3  40421   301     421     0       40422   301     422     0               \r\n                  462-        CMASS3  40423   301     423     0       40424   301     424     0               \r\n                  463-        CMASS3  40425   301     425     0       40426   301     426     0               \r\n                  464-        CMASS3  40427   301     427     0       40428   301     428     0               \r\n                  465-        CMASS3  40429   301     429     0       40430   301     430     0               \r\n                  466-        CMASS3  40431   301     431     0       40432   301     432     0               \r\n                  467-        CMASS3  40433   301     433     0       40434   301     434     0               \r\n                  468-        CMASS3  40435   301     435     0       40436   301     436     0               \r\n                  469-        CMASS3  40437   301     437     0       40438   301     438     0               \r\n                  470-        CMASS3  40439   301     439     0       40440   301     440     0               \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        CMASS3  40441   301     441     0       40442   301     442     0               \r\n                  472-        CMASS3  40443   301     443     0       40444   301     444     0               \r\n                  473-        CMASS3  40445   301     445     0       40446   301     446     0               \r\n                  474-        CMASS3  40447   301     447     0       40448   301     448     0               \r\n                  475-        CMASS3  40449   301     449     0       40450   301     450     0               \r\n                  476-        CMASS3  40451   301     451     0       40452   301     452     0               \r\n                  477-        CMASS3  40453   301     453     0       40454   301     454     0               \r\n                  478-        CMASS3  40455   301     455     0       40456   301     456     0               \r\n                  479-        CMASS3  40457   301     457     0       40458   301     458     0               \r\n                  480-        CMASS3  40459   301     459     0       40460   301     460     0               \r\n                  481-        CMASS3  40461   301     461     0       40462   301     462     0               \r\n                  482-        CMASS3  40463   301     463     0       40464   301     464     0               \r\n                  483-        CMASS3  40465   301     465     0       40466   301     466     0               \r\n                  484-        CMASS3  40467   301     467     0       40468   301     468     0               \r\n                  485-        CMASS3  40469   301     469     0       40470   301     470     0               \r\n                  486-        CMASS3  40471   301     471     0       40472   301     472     0               \r\n                  487-        CMASS3  40473   301     473     0       40474   301     474     0               \r\n                  488-        CMASS3  40475   301     475     0       40476   301     476     0               \r\n                  489-        CMASS3  40477   301     477     0       40478   301     478     0               \r\n                  490-        CMASS3  40479   301     479     0       40480   301     480     0               \r\n                  491-        CMASS3  40481   301     481     0       40482   301     482     0               \r\n                  492-        CMASS3  40483   301     483     0       40484   301     484     0               \r\n                  493-        CMASS3  40485   301     485     0       40486   301     486     0               \r\n                  494-        CMASS3  40487   301     487     0       40488   301     488     0               \r\n                  495-        CMASS3  40489   301     489     0       40490   301     490     0               \r\n                  496-        CMASS3  40491   301     491     0       40492   301     492     0               \r\n                  497-        CMASS3  40493   301     493     0       40494   301     494     0               \r\n                  498-        CMASS3  40495   301     495     0       40496   301     496     0               \r\n                  499-        CMASS3  40497   301     497     0       40498   301     498     0               \r\n                  500-        CMASS3  40499   301     499     0       40500   301     500     0               \r\n                  501-        DAREA   11      2               1.0     3               1.0                     \r\n                  502-        DAREA   11      4               1.0     5               1.0                     \r\n                  503-        DAREA   11      6               1.0     7               1.0                     \r\n                  504-        DAREA   11      8               1.0     9               1.0                     \r\n                  505-        DAREA   11      10              1.0     11              1.0                     \r\n                  506-        DAREA   11      12              1.0     13              1.0                     \r\n                  507-        DAREA   11      14              1.0     15              1.0                     \r\n                  508-        DAREA   11      16              1.0     17              1.0                     \r\n                  509-        DAREA   11      18              1.0     19              1.0                     \r\n                  510-        DAREA   11      20              1.0     21              1.0                     \r\n                  511-        DAREA   11      22              1.0     23              1.0                     \r\n                  512-        DAREA   11      24              1.0     25              1.0                     \r\n                  513-        DAREA   11      26              1.0     27              1.0                     \r\n                  514-        DAREA   11      28              1.0     29              1.0                     \r\n                  515-        DAREA   11      30              1.0     31              1.0                     \r\n                  516-        DAREA   11      32              1.0     33              1.0                     \r\n                  517-        DAREA   11      34              1.0     35              1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        DAREA   11      36              1.0     37              1.0                     \r\n                  519-        DAREA   11      38              1.0     39              1.0                     \r\n                  520-        DAREA   11      40              1.0     41              1.0                     \r\n                  521-        DAREA   11      42              1.0     43              1.0                     \r\n                  522-        DAREA   11      44              1.0     45              1.0                     \r\n                  523-        DAREA   11      46              1.0     47              1.0                     \r\n                  524-        DAREA   11      48              1.0     49              1.0                     \r\n                  525-        DAREA   11      50              1.0     51              1.0                     \r\n                  526-        DAREA   11      52              1.0     53              1.0                     \r\n                  527-        DAREA   11      54              1.0     55              1.0                     \r\n                  528-        DAREA   11      56              1.0     57              1.0                     \r\n                  529-        DAREA   11      58              1.0     59              1.0                     \r\n                  530-        DAREA   11      60              1.0     61              1.0                     \r\n                  531-        DAREA   11      62              1.0     63              1.0                     \r\n                  532-        DAREA   11      64              1.0     65              1.0                     \r\n                  533-        DAREA   11      66              1.0     67              1.0                     \r\n                  534-        DAREA   11      68              1.0     69              1.0                     \r\n                  535-        DAREA   11      70              1.0     71              1.0                     \r\n                  536-        DAREA   11      72              1.0     73              1.0                     \r\n                  537-        DAREA   11      74              1.0     75              1.0                     \r\n                  538-        DAREA   11      76              1.0     77              1.0                     \r\n                  539-        DAREA   11      78              1.0     79              1.0                     \r\n                  540-        DAREA   11      80              1.0     81              1.0                     \r\n                  541-        DAREA   11      82              1.0     83              1.0                     \r\n                  542-        DAREA   11      84              1.0     85              1.0                     \r\n                  543-        DAREA   11      86              1.0     87              1.0                     \r\n                  544-        DAREA   11      88              1.0     89              1.0                     \r\n                  545-        DAREA   11      90              1.0     91              1.0                     \r\n                  546-        DAREA   11      92              1.0     93              1.0                     \r\n                  547-        DAREA   11      94              1.0     95              1.0                     \r\n                  548-        DAREA   11      96              1.0     97              1.0                     \r\n                  549-        DAREA   11      98              1.0     99              1.0                     \r\n                  550-        DAREA   11      100             1.0     101             1.0                     \r\n                  551-        DAREA   11      102             1.0     103             1.0                     \r\n                  552-        DAREA   11      104             1.0     105             1.0                     \r\n                  553-        DAREA   11      106             1.0     107             1.0                     \r\n                  554-        DAREA   11      108             1.0     109             1.0                     \r\n                  555-        DAREA   11      110             1.0     111             1.0                     \r\n                  556-        DAREA   11      112             1.0     113             1.0                     \r\n                  557-        DAREA   11      114             1.0     115             1.0                     \r\n                  558-        DAREA   11      116             1.0     117             1.0                     \r\n                  559-        DAREA   11      118             1.0     119             1.0                     \r\n                  560-        DAREA   11      120             1.0     121             1.0                     \r\n                  561-        DAREA   11      122             1.0     123             1.0                     \r\n                  562-        DAREA   11      124             1.0     125             1.0                     \r\n                  563-        DAREA   11      126             1.0     127             1.0                     \r\n                  564-        DAREA   11      128             1.0     129             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        DAREA   11      130             1.0     131             1.0                     \r\n                  566-        DAREA   11      132             1.0     133             1.0                     \r\n                  567-        DAREA   11      134             1.0     135             1.0                     \r\n                  568-        DAREA   11      136             1.0     137             1.0                     \r\n                  569-        DAREA   11      138             1.0     139             1.0                     \r\n                  570-        DAREA   11      140             1.0     141             1.0                     \r\n                  571-        DAREA   11      142             1.0     143             1.0                     \r\n                  572-        DAREA   11      144             1.0     145             1.0                     \r\n                  573-        DAREA   11      146             1.0     147             1.0                     \r\n                  574-        DAREA   11      148             1.0     149             1.0                     \r\n                  575-        DAREA   11      150             1.0     151             1.0                     \r\n                  576-        DAREA   11      152             1.0     153             1.0                     \r\n                  577-        DAREA   11      154             1.0     155             1.0                     \r\n                  578-        DAREA   11      156             1.0     157             1.0                     \r\n                  579-        DAREA   11      158             1.0     159             1.0                     \r\n                  580-        DAREA   11      160             1.0     161             1.0                     \r\n                  581-        DAREA   11      162             1.0     163             1.0                     \r\n                  582-        DAREA   11      164             1.0     165             1.0                     \r\n                  583-        DAREA   11      166             1.0     167             1.0                     \r\n                  584-        DAREA   11      168             1.0     169             1.0                     \r\n                  585-        DAREA   11      170             1.0     171             1.0                     \r\n                  586-        DAREA   11      172             1.0     173             1.0                     \r\n                  587-        DAREA   11      174             1.0     175             1.0                     \r\n                  588-        DAREA   11      176             1.0     177             1.0                     \r\n                  589-        DAREA   11      178             1.0     179             1.0                     \r\n                  590-        DAREA   11      180             1.0     181             1.0                     \r\n                  591-        DAREA   11      182             1.0     183             1.0                     \r\n                  592-        DAREA   11      184             1.0     185             1.0                     \r\n                  593-        DAREA   11      186             1.0     187             1.0                     \r\n                  594-        DAREA   11      188             1.0     189             1.0                     \r\n                  595-        DAREA   11      190             1.0     191             1.0                     \r\n                  596-        DAREA   11      192             1.0     193             1.0                     \r\n                  597-        DAREA   11      194             1.0     195             1.0                     \r\n                  598-        DAREA   11      196             1.0     197             1.0                     \r\n                  599-        DAREA   11      198             1.0     199             1.0                     \r\n                  600-        DAREA   11      200             1.0     201             1.0                     \r\n                  601-        DAREA   11      202             1.0     203             1.0                     \r\n                  602-        DAREA   11      204             1.0     205             1.0                     \r\n                  603-        DAREA   11      206             1.0     207             1.0                     \r\n                  604-        DAREA   11      208             1.0     209             1.0                     \r\n                  605-        DAREA   11      210             1.0     211             1.0                     \r\n                  606-        DAREA   11      212             1.0     213             1.0                     \r\n                  607-        DAREA   11      214             1.0     215             1.0                     \r\n                  608-        DAREA   11      216             1.0     217             1.0                     \r\n                  609-        DAREA   11      218             1.0     219             1.0                     \r\n                  610-        DAREA   11      220             1.0     221             1.0                     \r\n                  611-        DAREA   11      222             1.0     223             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        DAREA   11      224             1.0     225             1.0                     \r\n                  613-        DAREA   11      226             1.0     227             1.0                     \r\n                  614-        DAREA   11      228             1.0     229             1.0                     \r\n                  615-        DAREA   11      230             1.0     231             1.0                     \r\n                  616-        DAREA   11      232             1.0     233             1.0                     \r\n                  617-        DAREA   11      234             1.0     235             1.0                     \r\n                  618-        DAREA   11      236             1.0     237             1.0                     \r\n                  619-        DAREA   11      238             1.0     239             1.0                     \r\n                  620-        DAREA   11      240             1.0     241             1.0                     \r\n                  621-        DAREA   11      242             1.0     243             1.0                     \r\n                  622-        DAREA   11      244             1.0     245             1.0                     \r\n                  623-        DAREA   11      246             1.0     247             1.0                     \r\n                  624-        DAREA   11      248             1.0     249             1.0                     \r\n                  625-        DAREA   11      250             1.0     251             1.0                     \r\n                  626-        DAREA   11      252             1.0     253             1.0                     \r\n                  627-        DAREA   11      254             1.0     255             1.0                     \r\n                  628-        DAREA   11      256             1.0     257             1.0                     \r\n                  629-        DAREA   11      258             1.0     259             1.0                     \r\n                  630-        DAREA   11      260             1.0     261             1.0                     \r\n                  631-        DAREA   11      262             1.0     263             1.0                     \r\n                  632-        DAREA   11      264             1.0     265             1.0                     \r\n                  633-        DAREA   11      266             1.0     267             1.0                     \r\n                  634-        DAREA   11      268             1.0     269             1.0                     \r\n                  635-        DAREA   11      270             1.0     271             1.0                     \r\n                  636-        DAREA   11      272             1.0     273             1.0                     \r\n                  637-        DAREA   11      274             1.0     275             1.0                     \r\n                  638-        DAREA   11      276             1.0     277             1.0                     \r\n                  639-        DAREA   11      278             1.0     279             1.0                     \r\n                  640-        DAREA   11      280             1.0     281             1.0                     \r\n                  641-        DAREA   11      282             1.0     283             1.0                     \r\n                  642-        DAREA   11      284             1.0     285             1.0                     \r\n                  643-        DAREA   11      286             1.0     287             1.0                     \r\n                  644-        DAREA   11      288             1.0     289             1.0                     \r\n                  645-        DAREA   11      290             1.0     291             1.0                     \r\n                  646-        DAREA   11      292             1.0     293             1.0                     \r\n                  647-        DAREA   11      294             1.0     295             1.0                     \r\n                  648-        DAREA   11      296             1.0     297             1.0                     \r\n                  649-        DAREA   11      298             1.0     299             1.0                     \r\n                  650-        DAREA   11      300             1.0     301             1.0                     \r\n                  651-        DAREA   11      302             1.0     303             1.0                     \r\n                  652-        DAREA   11      304             1.0     305             1.0                     \r\n                  653-        DAREA   11      306             1.0     307             1.0                     \r\n                  654-        DAREA   11      308             1.0     309             1.0                     \r\n                  655-        DAREA   11      310             1.0     311             1.0                     \r\n                  656-        DAREA   11      312             1.0     313             1.0                     \r\n                  657-        DAREA   11      314             1.0     315             1.0                     \r\n                  658-        DAREA   11      316             1.0     317             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        DAREA   11      318             1.0     319             1.0                     \r\n                  660-        DAREA   11      320             1.0     321             1.0                     \r\n                  661-        DAREA   11      322             1.0     323             1.0                     \r\n                  662-        DAREA   11      324             1.0     325             1.0                     \r\n                  663-        DAREA   11      326             1.0     327             1.0                     \r\n                  664-        DAREA   11      328             1.0     329             1.0                     \r\n                  665-        DAREA   11      330             1.0     331             1.0                     \r\n                  666-        DAREA   11      332             1.0     333             1.0                     \r\n                  667-        DAREA   11      334             1.0     335             1.0                     \r\n                  668-        DAREA   11      336             1.0     337             1.0                     \r\n                  669-        DAREA   11      338             1.0     339             1.0                     \r\n                  670-        DAREA   11      340             1.0     341             1.0                     \r\n                  671-        DAREA   11      342             1.0     343             1.0                     \r\n                  672-        DAREA   11      344             1.0     345             1.0                     \r\n                  673-        DAREA   11      346             1.0     347             1.0                     \r\n                  674-        DAREA   11      348             1.0     349             1.0                     \r\n                  675-        DAREA   11      350             1.0     351             1.0                     \r\n                  676-        DAREA   11      352             1.0     353             1.0                     \r\n                  677-        DAREA   11      354             1.0     355             1.0                     \r\n                  678-        DAREA   11      356             1.0     357             1.0                     \r\n                  679-        DAREA   11      358             1.0     359             1.0                     \r\n                  680-        DAREA   11      360             1.0     361             1.0                     \r\n                  681-        DAREA   11      362             1.0     363             1.0                     \r\n                  682-        DAREA   11      364             1.0     365             1.0                     \r\n                  683-        DAREA   11      366             1.0     367             1.0                     \r\n                  684-        DAREA   11      368             1.0     369             1.0                     \r\n                  685-        DAREA   11      370             1.0     371             1.0                     \r\n                  686-        DAREA   11      372             1.0     373             1.0                     \r\n                  687-        DAREA   11      374             1.0     375             1.0                     \r\n                  688-        DAREA   11      376             1.0     377             1.0                     \r\n                  689-        DAREA   11      378             1.0     379             1.0                     \r\n                  690-        DAREA   11      380             1.0     381             1.0                     \r\n                  691-        DAREA   11      382             1.0     383             1.0                     \r\n                  692-        DAREA   11      384             1.0     385             1.0                     \r\n                  693-        DAREA   11      386             1.0     387             1.0                     \r\n                  694-        DAREA   11      388             1.0     389             1.0                     \r\n                  695-        DAREA   11      390             1.0     391             1.0                     \r\n                  696-        DAREA   11      392             1.0     393             1.0                     \r\n                  697-        DAREA   11      394             1.0     395             1.0                     \r\n                  698-        DAREA   11      396             1.0     397             1.0                     \r\n                  699-        DAREA   11      398             1.0     399             1.0                     \r\n                  700-        DAREA   11      400             1.0     401             1.0                     \r\n                  701-        DAREA   11      402             1.0     403             1.0                     \r\n                  702-        DAREA   11      404             1.0     405             1.0                     \r\n                  703-        DAREA   11      406             1.0     407             1.0                     \r\n                  704-        DAREA   11      408             1.0     409             1.0                     \r\n                  705-        DAREA   11      410             1.0     411             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        DAREA   11      412             1.0     413             1.0                     \r\n                  707-        DAREA   11      414             1.0     415             1.0                     \r\n                  708-        DAREA   11      416             1.0     417             1.0                     \r\n                  709-        DAREA   11      418             1.0     419             1.0                     \r\n                  710-        DAREA   11      420             1.0     421             1.0                     \r\n                  711-        DAREA   11      422             1.0     423             1.0                     \r\n                  712-        DAREA   11      424             1.0     425             1.0                     \r\n                  713-        DAREA   11      426             1.0     427             1.0                     \r\n                  714-        DAREA   11      428             1.0     429             1.0                     \r\n                  715-        DAREA   11      430             1.0     431             1.0                     \r\n                  716-        DAREA   11      432             1.0     433             1.0                     \r\n                  717-        DAREA   11      434             1.0     435             1.0                     \r\n                  718-        DAREA   11      436             1.0     437             1.0                     \r\n                  719-        DAREA   11      438             1.0     439             1.0                     \r\n                  720-        DAREA   11      440             1.0     441             1.0                     \r\n                  721-        DAREA   11      442             1.0     443             1.0                     \r\n                  722-        DAREA   11      444             1.0     445             1.0                     \r\n                  723-        DAREA   11      446             1.0     447             1.0                     \r\n                  724-        DAREA   11      448             1.0     449             1.0                     \r\n                  725-        DAREA   11      450             1.0     451             1.0                     \r\n                  726-        DAREA   11      452             1.0     453             1.0                     \r\n                  727-        DAREA   11      454             1.0     455             1.0                     \r\n                  728-        DAREA   11      456             1.0     457             1.0                     \r\n                  729-        DAREA   11      458             1.0     459             1.0                     \r\n                  730-        DAREA   11      460             1.0     461             1.0                     \r\n                  731-        DAREA   11      462             1.0     463             1.0                     \r\n                  732-        DAREA   11      464             1.0     465             1.0                     \r\n                  733-        DAREA   11      466             1.0     467             1.0                     \r\n                  734-        DAREA   11      468             1.0     469             1.0                     \r\n                  735-        DAREA   11      470             1.0     471             1.0                     \r\n                  736-        DAREA   11      472             1.0     473             1.0                     \r\n                  737-        DAREA   11      474             1.0     475             1.0                     \r\n                  738-        DAREA   11      476             1.0     477             1.0                     \r\n                  739-        DAREA   11      478             1.0     479             1.0                     \r\n                  740-        DAREA   11      480             1.0     481             1.0                     \r\n                  741-        DAREA   11      482             1.0     483             1.0                     \r\n                  742-        DAREA   11      484             1.0     485             1.0                     \r\n                  743-        DAREA   11      486             1.0     487             1.0                     \r\n                  744-        DAREA   11      488             1.0     489             1.0                     \r\n                  745-        DAREA   11      490             1.0     491             1.0                     \r\n                  746-        DAREA   11      492             1.0     493             1.0                     \r\n                  747-        DAREA   11      494             1.0     495             1.0                     \r\n                  748-        DAREA   11      496             1.0     497             1.0                     \r\n                  749-        DAREA   11      498             1.0     499             1.0                     \r\n                  750-        DAREA   11      500             1.0                                             \r\n                  751-        EIGR    10      FEER    10.5                    20                      +FEER   \r\n                  752-        +FEER   MAX                                                                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        EIGR    11      INV     .0      21.0    20      20                      +EIGR   \r\n                  754-        +EIGR   MAX                                                                     \r\n                  755-        FREQ2   11      .1      10.0    15                                              \r\n                  756-        PARAM   LMODES  20                                                              \r\n                  757-        PARAM   MODACC  1                                                               \r\n                  758-        PELAS   101     1.0+7                                                           \r\n                  759-        PMASS   301     10.000                                                          \r\n                  760-        RLOAD1  11      11                      1                                       \r\n                  761-        TABLED1 1                                                               *T1     \r\n                  762-        *T1     -10.0           310.022767      100.0           310.022767      *T2     \r\n                  763-        *T2     ENDT                                                                    \r\n                              ENDDATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS3    ELEMENTS (ELEMENT TYPE  13) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS3    ELEMENTS (ELEMENT TYPE  27) STARTING WITH ID    40002\r\n                       10 ROOTS BELOW   4.352496E+03\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST   28 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n0*** USER INFORMATION MESSAGE 2392\r\n       30 MORE ACCURATE EIGENSOLUTIONS THAN THE   20 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        50\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        49\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *        10 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1        14        3.947829E+01        6.283175E+00        9.999983E-01        2.500000E+03        9.869572E+04             \r\n        2        13        1.579116E+02        1.256629E+01        1.999987E+00        2.500000E+03        3.947790E+05             \r\n        3        12        3.552952E+02        1.884928E+01        2.999956E+00        2.500000E+03        8.882381E+05             \r\n        4        11        6.316215E+02        2.513208E+01        3.999895E+00        2.500395E+03        1.579303E+06             \r\n        5         9        9.868793E+02        3.141463E+01        4.999794E+00        2.500000E+03        2.467198E+06             \r\n        6         8        1.421055E+03        3.769688E+01        5.999645E+00        2.500000E+03        3.552637E+06             \r\n        7         7        1.934131E+03        4.397875E+01        6.999435E+00        2.500000E+03        4.835326E+06             \r\n        8         5        2.526087E+03        5.026019E+01        7.999157E+00        2.500395E+03        6.316214E+06             \r\n        9         3        3.196900E+03        5.654113E+01        8.998800E+00        2.500000E+03        7.992250E+06             \r\n       10         1        3.946543E+03        6.282152E+01        9.998355E+00        2.500000E+03        9.866358E+06             \r\n       11         2        4.774987E+03        6.910128E+01        1.099781E+01        2.500000E+03        1.193747E+07             \r\n       12         4        5.682200E+03        7.538036E+01        1.199716E+01        2.500395E+03        1.420774E+07             \r\n       13         6        6.668144E+03        8.165871E+01        1.299639E+01        2.500000E+03        1.667036E+07             \r\n       14        10        7.732782E+03        8.793623E+01        1.399549E+01        2.500000E+03        1.933195E+07             \r\n       15        15        8.876070E+03        9.421290E+01        1.499445E+01        2.500000E+03        2.219018E+07             \r\n       16        16        1.009797E+04        1.004886E+02        1.599326E+01        2.500395E+03        2.524890E+07             \r\n       17        17        1.139842E+04        1.067634E+02        1.699192E+01        2.500000E+03        2.849605E+07             \r\n       18        18        1.277738E+04        1.130371E+02        1.799041E+01        2.500000E+03        3.194345E+07             \r\n       19        19        1.423479E+04        1.193096E+02        1.898872E+01        2.500000E+03        3.558698E+07             \r\n       20        20        1.577060E+04        1.255810E+02        1.998684E+01        2.509896E+03        3.958256E+07             \r\n       21        21        1.738474E+04        1.318512E+02        2.098477E+01        2.500000E+03        4.346184E+07             \r\n       22        22        1.907715E+04        1.381201E+02        2.198249E+01        2.500000E+03        4.769287E+07             \r\n       23        23        2.084776E+04        1.443875E+02        2.297999E+01        2.500000E+03        5.211941E+07             \r\n       24        24        2.269651E+04        1.506536E+02        2.397727E+01        2.500395E+03        5.675024E+07             \r\n       25        25        2.462332E+04        1.569182E+02        2.497431E+01        2.500000E+03        6.155830E+07             \r\n       26        26        2.662811E+04        1.631812E+02        2.597110E+01        2.500000E+03        6.657028E+07             \r\n       27        27        2.871081E+04        1.694426E+02        2.696763E+01        2.500007E+03        7.177723E+07             \r\n       28        28        3.087133E+04        1.757024E+02        2.796390E+01        2.500088E+03        7.718103E+07             \r\n       29        29        3.310961E+04        1.819605E+02        2.895991E+01        2.495139E+03        8.261308E+07             \r\n       30        30        3.542555E+04        1.882168E+02        2.995563E+01        2.491476E+03        8.826191E+07             \r\n       31        31        3.782025E+04        1.944743E+02        3.095154E+01        2.444926E+03        9.246770E+07             \r\n       32        32        4.030271E+04        2.007554E+02        3.195121E+01        2.361995E+03        9.519482E+07             \r\n       33        33        4.297868E+04        2.073130E+02        3.299488E+01        1.948319E+03        8.373618E+07             \r\n       34        34        4.591303E+04        2.142733E+02        3.410265E+01        1.528425E+03        7.017460E+07             \r\n       35        35        4.960907E+04        2.227309E+02        3.544873E+01        1.184151E+03        5.874463E+07             \r\n       36        36        5.361830E+04        2.315563E+02        3.685332E+01        1.133319E+03        6.076662E+07             \r\n       37        37        5.719057E+04        2.391455E+02        3.806119E+01        1.309213E+03        7.487463E+07             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n       38        38        6.403630E+04        2.530540E+02        4.027479E+01        7.650125E+02        4.898857E+07             \r\n       39        39        7.181550E+04        2.679841E+02        4.265100E+01        5.460549E+02        3.921521E+07             \r\n       40        40        8.142555E+04        2.853516E+02        4.541512E+01        5.035842E+02        4.100462E+07             \r\n       41        41        9.763046E+04        3.124587E+02        4.972935E+01        3.665581E+02        3.578723E+07             \r\n       42        42        1.198863E+05        3.462460E+02        5.510677E+01        3.108511E+02        3.726679E+07             \r\n       43        43        1.497063E+05        3.869189E+02        6.158006E+01        4.401808E+02        6.589783E+07             \r\n       44        44        1.725240E+05        4.153600E+02        6.610661E+01        3.963076E+02        6.837255E+07             \r\n       45        45        3.055958E+05        5.528071E+02        8.798199E+01        5.203714E+02        1.590233E+08             \r\n       46        46        3.964821E+05        6.296683E+02        1.002148E+02        2.336386E+02        9.263354E+07             \r\n       47        47        5.166735E+05        7.188000E+02        1.144006E+02        3.767520E+02        1.946578E+08             \r\n       48        48        1.025290E+06        1.012566E+03        1.611549E+02        3.210023E+02        3.291204E+08             \r\n       49        49        1.905251E+06        1.380308E+03        2.196829E+02        2.568323E+02        4.893301E+08             \r\n       50        50        3.806958E+06        1.951143E+03        3.105340E+02        3.094826E+02        1.178187E+09             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      1.009971E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      1.018695E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      1.035219E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      1.067207E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      1.131834E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      1.274442E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      1.661215E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      3.782303E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      2.782357E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      6.613363E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      2.745687E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      1.319615E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      6.733594E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      3.534792E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      1.882388E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      1.009967E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      1.014772E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      1.016933E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      1.020951E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      1.028458E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      1.042626E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      1.069860E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      1.124116E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      1.240352E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      1.533327E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.584893E+00     M      2.720916E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.154435E+00     M      6.310188E-16                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      8.846136E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      3.417073E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      1.601204E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      8.078865E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      4.217589E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       3\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      3.707345E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.359356E-01     M      3.710845E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.847850E-01     M      3.717329E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.511887E-01     M      3.729372E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.414549E-01     M      3.751831E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  4.641589E-01     M      3.794051E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  6.309574E-01     M      3.874622E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  8.576961E-01     M      4.032875E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.165915E+00     M      4.362094E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      5.136996E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      7.647303E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      7.883182E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      4.865970E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     M      1.642850E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     M      7.386984E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       3\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      3.662412E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      4.249798E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.359356E-01     M      4.252052E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.847850E-01     M      4.256225E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.511887E-01     M      4.263957E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.414549E-01     M      4.278319E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  4.641589E-01     M      4.305114E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  6.309574E-01     M      4.355520E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  8.576961E-01     M      4.451837E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.165915E+00     M      4.641504E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      5.038135E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      5.982856E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      9.155063E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      4.523591E-16                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      5.113954E-18                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     M      1.782648E-18                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      8.089285E-19                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       5\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      8.002168E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      8.004884E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      8.009908E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      8.019208E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      8.036449E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      8.068505E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      8.128416E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      8.241499E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      8.458954E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.584893E+00     M      8.892520E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.154435E+00     M      9.822865E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.928645E+00     M      1.217696E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     M      2.185569E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     M      4.662631E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      6.866906E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       5\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      2.666030E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      3.519336E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      3.546610E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      3.598255E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      3.698185E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      3.899905E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      4.344373E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      5.546772E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      1.211539E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      8.141406E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      1.519473E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      1.107240E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.114967E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      3.535540E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      6.547387E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      4.137104E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.574604E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     101\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      6.260206E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      6.311814E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      6.409547E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      6.598697E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      6.980663E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      7.822850E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.010379E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      2.258607E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      1.596912E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      3.429138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      9.185459E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.686515E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      9.016667E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      4.365984E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      7.179653E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     101\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.964182E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     151\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      8.219904E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      8.290569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      8.424406E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      8.683484E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      9.206856E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.036160E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.349259E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.065641E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.244463E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      5.265272E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      2.067326E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      1.263957E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      8.930793E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      1.617553E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     S      1.696870E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     151\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572965E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     201\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.396498E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.479266E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      9.636043E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      9.939569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.055289E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.190672E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.558046E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.574398E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.670884E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      6.581994E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.050576E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      5.877138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      3.395493E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      2.107926E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      3.292501E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     201\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.083981E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     251\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.788824E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.875740E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      1.004038E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      1.035913E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.100330E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.242543E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.628562E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.748164E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.819601E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      7.059558E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.434792E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      9.106178E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      1.904558E-05                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     S      7.129662E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      1.275858E-02                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     251\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572599E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     301\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.396498E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.479266E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      9.636043E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      9.939569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.055289E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.190672E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.558046E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.574398E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.670884E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      6.581994E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.050576E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      5.877138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      3.395493E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      2.107926E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      3.292501E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     301\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.083981E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     351\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      8.219904E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      8.290569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      8.424406E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      8.683484E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      9.206856E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.036160E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.349259E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.065641E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.244463E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      5.265272E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      2.067326E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      1.263957E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      8.930793E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      1.617553E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     S      1.696870E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     351\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572965E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     401\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      6.260206E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      6.311814E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      6.409547E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      6.598697E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      6.980663E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      7.822850E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.010379E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      2.258607E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      1.596912E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      3.429138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      9.185459E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.686515E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      9.016667E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      4.365984E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      7.179653E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     401\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.964182E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     451\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      3.519336E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      3.546610E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      3.598255E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      3.698185E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      3.899905E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      4.344373E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      5.546772E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      1.211539E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      8.141406E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      1.519473E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      1.107240E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.114967E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      3.535540E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      6.547387E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      4.137104E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     451\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.574604E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    5\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    5\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-FORCE   CURVE      251( 2)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *                                                   \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = REAL PART  *POUNDS*                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.387000E+03 AT X =   2.928645E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.985664E+02 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.387000E+03 AT X =   2.928645E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.985664E+02 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ELEMENT-FORCE   CURVE   ID =      251     COMPONENT =  2     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.000000E-01         1.567602E+02\r\n                                  2             1.359356E-01         1.585484E+02\r\n                                  3             1.847850E-01         1.621246E+02\r\n                                  4             2.511887E-01         1.680851E+02\r\n                                  5             3.414549E-01         1.800060E+02\r\n                                  6             4.641589E-01         2.074242E+02\r\n                                  7             6.309574E-01         2.825260E+02\r\n                                  8             8.576961E-01         6.985664E+02\r\n                                  9             1.165915E+00        -6.008148E+02\r\n                                 10             1.584893E+00        -1.949072E+02\r\n                                 11             2.154435E+00        -1.597404E+02\r\n                                 12             2.928645E+00        -1.387000E+03\r\n                                 13             3.981073E+00         1.548787E+02\r\n                                 14             5.411697E+00        -2.574921E+02\r\n                                 15             7.356425E+00         2.906472E+02\r\n                                 16             1.000000E+01        -1.566112E+02\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 500 CELL STRING                            \r\n DATE:  5/17/95\r\n END TIME: 16:17:46\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11022a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11022A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     TIME  26                                                                        \r\n     SOL   11,1                                                                      \r\n     DIAG  14                                                                        \r\n     ALTER 1 $                                                                       \r\n     PARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\n     INPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\n     EQUIV   G2,GEOM2/TRUE $                                                         \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQUENCY RESPONSE OF A 500 CELL STRING                              \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                          \r\n                  3        METHOD = 10                                                                   \r\n                  4          FREQ = 11                                                                   \r\n                  5         DLOAD = 11                                                                   \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451                           \r\n                  8         SET 2 = 1 THRU 5                                                             \r\n                  9         DISPLACEMENT(PHASE,SORT2)  = 1                                               \r\n                 10         SDISPLACEMENT(PHASE,SORT2) = 2                                               \r\n                 11      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                            \r\n                 12      OUTPUT(XYOUT)                                                                   \r\n                 13      PLOTTER = NASTPLT                                                               \r\n                 14              CAMERA = 3                                                              \r\n                 15              SKIP BETWEEN FRAMES = 1                                                 \r\n                 16        CURVE LINE AND SYMBOLS = 1                                                    \r\n                 17        XLOG   = YES                                                                  \r\n                 18        YTLOG  = YES                                                                  \r\n                 19        XTGRID = YES                                                                  \r\n                 20        XBGRID = YES                                                                  \r\n                 21        YTGRID = YES                                                                  \r\n                 22        YBGRID = YES                                                                  \r\n                 23        XTITLE =                              FREQUENCY (HERTZ)                       \r\n                 24        YTTITLE = MAGNITUDE  *INCH*                                                   \r\n                 25        YBTITLE = PHASE  *DEGREE*                                                     \r\n                 26      $                                                                               \r\n                 27      $ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n                 28      $                                                                               \r\n                 29          TCURVE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *         \r\n                 30      XYPLOT DISP  /   51(T1RM,T1IP)                                                  \r\n                 31          TCURVE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *         \r\n                 32      XYPLOT DISP  /  101(T1RM,T1IP)                                                  \r\n                 33          TCURVE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *         \r\n                 34      XYPLOT DISP  /  151(T1RM,T1IP)                                                  \r\n                 35          TCURVE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *         \r\n                 36      XYPLOT DISP  /  201(T1RM,T1IP)                                                  \r\n                 37          TCURVE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *         \r\n                 38      XYPLOT DISP  /  251(T1RM,T1IP)                                                  \r\n                 39      $                                                                               \r\n                 40      $ *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *        \r\n                 41      $                                                                               \r\n                 42        YLOG   = YES                                                                  \r\n                 43        YTITLE = MAGNITUDE  *INCH*                                                    \r\n                 44        XGRID LINES = YES                                                             \r\n                 45        YGRID LINES = YES                                                             \r\n                 46        TCURVE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *        \r\n                 47      XYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3)                             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48        YLOG   = NO                                                                   \r\n                 49        YTITLE = REAL PART  *POUNDS*                                                  \r\n                 50        TCURVE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *         \r\n                 51      XYPLOT, XYPRINT ELFORCE RESPONSE / 251(2)                                       \r\n                 52      $                                                                               \r\n                 53      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   261, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        DAREA   11      2               1.0     3               1.0                     \r\n                    2-        DAREA   11      4               1.0     5               1.0                     \r\n                    3-        DAREA   11      6               1.0     7               1.0                     \r\n                    4-        DAREA   11      8               1.0     9               1.0                     \r\n                    5-        DAREA   11      10              1.0     11              1.0                     \r\n                    6-        DAREA   11      12              1.0     13              1.0                     \r\n                    7-        DAREA   11      14              1.0     15              1.0                     \r\n                    8-        DAREA   11      16              1.0     17              1.0                     \r\n                    9-        DAREA   11      18              1.0     19              1.0                     \r\n                   10-        DAREA   11      20              1.0     21              1.0                     \r\n                   11-        DAREA   11      22              1.0     23              1.0                     \r\n                   12-        DAREA   11      24              1.0     25              1.0                     \r\n                   13-        DAREA   11      26              1.0     27              1.0                     \r\n                   14-        DAREA   11      28              1.0     29              1.0                     \r\n                   15-        DAREA   11      30              1.0     31              1.0                     \r\n                   16-        DAREA   11      32              1.0     33              1.0                     \r\n                   17-        DAREA   11      34              1.0     35              1.0                     \r\n                   18-        DAREA   11      36              1.0     37              1.0                     \r\n                   19-        DAREA   11      38              1.0     39              1.0                     \r\n                   20-        DAREA   11      40              1.0     41              1.0                     \r\n                   21-        DAREA   11      42              1.0     43              1.0                     \r\n                   22-        DAREA   11      44              1.0     45              1.0                     \r\n                   23-        DAREA   11      46              1.0     47              1.0                     \r\n                   24-        DAREA   11      48              1.0     49              1.0                     \r\n                   25-        DAREA   11      50              1.0     51              1.0                     \r\n                   26-        DAREA   11      52              1.0     53              1.0                     \r\n                   27-        DAREA   11      54              1.0     55              1.0                     \r\n                   28-        DAREA   11      56              1.0     57              1.0                     \r\n                   29-        DAREA   11      58              1.0     59              1.0                     \r\n                   30-        DAREA   11      60              1.0     61              1.0                     \r\n                   31-        DAREA   11      62              1.0     63              1.0                     \r\n                   32-        DAREA   11      64              1.0     65              1.0                     \r\n                   33-        DAREA   11      66              1.0     67              1.0                     \r\n                   34-        DAREA   11      68              1.0     69              1.0                     \r\n                   35-        DAREA   11      70              1.0     71              1.0                     \r\n                   36-        DAREA   11      72              1.0     73              1.0                     \r\n                   37-        DAREA   11      74              1.0     75              1.0                     \r\n                   38-        DAREA   11      76              1.0     77              1.0                     \r\n                   39-        DAREA   11      78              1.0     79              1.0                     \r\n                   40-        DAREA   11      80              1.0     81              1.0                     \r\n                   41-        DAREA   11      82              1.0     83              1.0                     \r\n                   42-        DAREA   11      84              1.0     85              1.0                     \r\n                   43-        DAREA   11      86              1.0     87              1.0                     \r\n                   44-        DAREA   11      88              1.0     89              1.0                     \r\n                   45-        DAREA   11      90              1.0     91              1.0                     \r\n                   46-        DAREA   11      92              1.0     93              1.0                     \r\n                   47-        DAREA   11      94              1.0     95              1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        DAREA   11      96              1.0     97              1.0                     \r\n                   49-        DAREA   11      98              1.0     99              1.0                     \r\n                   50-        DAREA   11      100             1.0     101             1.0                     \r\n                   51-        DAREA   11      102             1.0     103             1.0                     \r\n                   52-        DAREA   11      104             1.0     105             1.0                     \r\n                   53-        DAREA   11      106             1.0     107             1.0                     \r\n                   54-        DAREA   11      108             1.0     109             1.0                     \r\n                   55-        DAREA   11      110             1.0     111             1.0                     \r\n                   56-        DAREA   11      112             1.0     113             1.0                     \r\n                   57-        DAREA   11      114             1.0     115             1.0                     \r\n                   58-        DAREA   11      116             1.0     117             1.0                     \r\n                   59-        DAREA   11      118             1.0     119             1.0                     \r\n                   60-        DAREA   11      120             1.0     121             1.0                     \r\n                   61-        DAREA   11      122             1.0     123             1.0                     \r\n                   62-        DAREA   11      124             1.0     125             1.0                     \r\n                   63-        DAREA   11      126             1.0     127             1.0                     \r\n                   64-        DAREA   11      128             1.0     129             1.0                     \r\n                   65-        DAREA   11      130             1.0     131             1.0                     \r\n                   66-        DAREA   11      132             1.0     133             1.0                     \r\n                   67-        DAREA   11      134             1.0     135             1.0                     \r\n                   68-        DAREA   11      136             1.0     137             1.0                     \r\n                   69-        DAREA   11      138             1.0     139             1.0                     \r\n                   70-        DAREA   11      140             1.0     141             1.0                     \r\n                   71-        DAREA   11      142             1.0     143             1.0                     \r\n                   72-        DAREA   11      144             1.0     145             1.0                     \r\n                   73-        DAREA   11      146             1.0     147             1.0                     \r\n                   74-        DAREA   11      148             1.0     149             1.0                     \r\n                   75-        DAREA   11      150             1.0     151             1.0                     \r\n                   76-        DAREA   11      152             1.0     153             1.0                     \r\n                   77-        DAREA   11      154             1.0     155             1.0                     \r\n                   78-        DAREA   11      156             1.0     157             1.0                     \r\n                   79-        DAREA   11      158             1.0     159             1.0                     \r\n                   80-        DAREA   11      160             1.0     161             1.0                     \r\n                   81-        DAREA   11      162             1.0     163             1.0                     \r\n                   82-        DAREA   11      164             1.0     165             1.0                     \r\n                   83-        DAREA   11      166             1.0     167             1.0                     \r\n                   84-        DAREA   11      168             1.0     169             1.0                     \r\n                   85-        DAREA   11      170             1.0     171             1.0                     \r\n                   86-        DAREA   11      172             1.0     173             1.0                     \r\n                   87-        DAREA   11      174             1.0     175             1.0                     \r\n                   88-        DAREA   11      176             1.0     177             1.0                     \r\n                   89-        DAREA   11      178             1.0     179             1.0                     \r\n                   90-        DAREA   11      180             1.0     181             1.0                     \r\n                   91-        DAREA   11      182             1.0     183             1.0                     \r\n                   92-        DAREA   11      184             1.0     185             1.0                     \r\n                   93-        DAREA   11      186             1.0     187             1.0                     \r\n                   94-        DAREA   11      188             1.0     189             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        DAREA   11      190             1.0     191             1.0                     \r\n                   96-        DAREA   11      192             1.0     193             1.0                     \r\n                   97-        DAREA   11      194             1.0     195             1.0                     \r\n                   98-        DAREA   11      196             1.0     197             1.0                     \r\n                   99-        DAREA   11      198             1.0     199             1.0                     \r\n                  100-        DAREA   11      200             1.0     201             1.0                     \r\n                  101-        DAREA   11      202             1.0     203             1.0                     \r\n                  102-        DAREA   11      204             1.0     205             1.0                     \r\n                  103-        DAREA   11      206             1.0     207             1.0                     \r\n                  104-        DAREA   11      208             1.0     209             1.0                     \r\n                  105-        DAREA   11      210             1.0     211             1.0                     \r\n                  106-        DAREA   11      212             1.0     213             1.0                     \r\n                  107-        DAREA   11      214             1.0     215             1.0                     \r\n                  108-        DAREA   11      216             1.0     217             1.0                     \r\n                  109-        DAREA   11      218             1.0     219             1.0                     \r\n                  110-        DAREA   11      220             1.0     221             1.0                     \r\n                  111-        DAREA   11      222             1.0     223             1.0                     \r\n                  112-        DAREA   11      224             1.0     225             1.0                     \r\n                  113-        DAREA   11      226             1.0     227             1.0                     \r\n                  114-        DAREA   11      228             1.0     229             1.0                     \r\n                  115-        DAREA   11      230             1.0     231             1.0                     \r\n                  116-        DAREA   11      232             1.0     233             1.0                     \r\n                  117-        DAREA   11      234             1.0     235             1.0                     \r\n                  118-        DAREA   11      236             1.0     237             1.0                     \r\n                  119-        DAREA   11      238             1.0     239             1.0                     \r\n                  120-        DAREA   11      240             1.0     241             1.0                     \r\n                  121-        DAREA   11      242             1.0     243             1.0                     \r\n                  122-        DAREA   11      244             1.0     245             1.0                     \r\n                  123-        DAREA   11      246             1.0     247             1.0                     \r\n                  124-        DAREA   11      248             1.0     249             1.0                     \r\n                  125-        DAREA   11      250             1.0     251             1.0                     \r\n                  126-        DAREA   11      252             1.0     253             1.0                     \r\n                  127-        DAREA   11      254             1.0     255             1.0                     \r\n                  128-        DAREA   11      256             1.0     257             1.0                     \r\n                  129-        DAREA   11      258             1.0     259             1.0                     \r\n                  130-        DAREA   11      260             1.0     261             1.0                     \r\n                  131-        DAREA   11      262             1.0     263             1.0                     \r\n                  132-        DAREA   11      264             1.0     265             1.0                     \r\n                  133-        DAREA   11      266             1.0     267             1.0                     \r\n                  134-        DAREA   11      268             1.0     269             1.0                     \r\n                  135-        DAREA   11      270             1.0     271             1.0                     \r\n                  136-        DAREA   11      272             1.0     273             1.0                     \r\n                  137-        DAREA   11      274             1.0     275             1.0                     \r\n                  138-        DAREA   11      276             1.0     277             1.0                     \r\n                  139-        DAREA   11      278             1.0     279             1.0                     \r\n                  140-        DAREA   11      280             1.0     281             1.0                     \r\n                  141-        DAREA   11      282             1.0     283             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        DAREA   11      284             1.0     285             1.0                     \r\n                  143-        DAREA   11      286             1.0     287             1.0                     \r\n                  144-        DAREA   11      288             1.0     289             1.0                     \r\n                  145-        DAREA   11      290             1.0     291             1.0                     \r\n                  146-        DAREA   11      292             1.0     293             1.0                     \r\n                  147-        DAREA   11      294             1.0     295             1.0                     \r\n                  148-        DAREA   11      296             1.0     297             1.0                     \r\n                  149-        DAREA   11      298             1.0     299             1.0                     \r\n                  150-        DAREA   11      300             1.0     301             1.0                     \r\n                  151-        DAREA   11      302             1.0     303             1.0                     \r\n                  152-        DAREA   11      304             1.0     305             1.0                     \r\n                  153-        DAREA   11      306             1.0     307             1.0                     \r\n                  154-        DAREA   11      308             1.0     309             1.0                     \r\n                  155-        DAREA   11      310             1.0     311             1.0                     \r\n                  156-        DAREA   11      312             1.0     313             1.0                     \r\n                  157-        DAREA   11      314             1.0     315             1.0                     \r\n                  158-        DAREA   11      316             1.0     317             1.0                     \r\n                  159-        DAREA   11      318             1.0     319             1.0                     \r\n                  160-        DAREA   11      320             1.0     321             1.0                     \r\n                  161-        DAREA   11      322             1.0     323             1.0                     \r\n                  162-        DAREA   11      324             1.0     325             1.0                     \r\n                  163-        DAREA   11      326             1.0     327             1.0                     \r\n                  164-        DAREA   11      328             1.0     329             1.0                     \r\n                  165-        DAREA   11      330             1.0     331             1.0                     \r\n                  166-        DAREA   11      332             1.0     333             1.0                     \r\n                  167-        DAREA   11      334             1.0     335             1.0                     \r\n                  168-        DAREA   11      336             1.0     337             1.0                     \r\n                  169-        DAREA   11      338             1.0     339             1.0                     \r\n                  170-        DAREA   11      340             1.0     341             1.0                     \r\n                  171-        DAREA   11      342             1.0     343             1.0                     \r\n                  172-        DAREA   11      344             1.0     345             1.0                     \r\n                  173-        DAREA   11      346             1.0     347             1.0                     \r\n                  174-        DAREA   11      348             1.0     349             1.0                     \r\n                  175-        DAREA   11      350             1.0     351             1.0                     \r\n                  176-        DAREA   11      352             1.0     353             1.0                     \r\n                  177-        DAREA   11      354             1.0     355             1.0                     \r\n                  178-        DAREA   11      356             1.0     357             1.0                     \r\n                  179-        DAREA   11      358             1.0     359             1.0                     \r\n                  180-        DAREA   11      360             1.0     361             1.0                     \r\n                  181-        DAREA   11      362             1.0     363             1.0                     \r\n                  182-        DAREA   11      364             1.0     365             1.0                     \r\n                  183-        DAREA   11      366             1.0     367             1.0                     \r\n                  184-        DAREA   11      368             1.0     369             1.0                     \r\n                  185-        DAREA   11      370             1.0     371             1.0                     \r\n                  186-        DAREA   11      372             1.0     373             1.0                     \r\n                  187-        DAREA   11      374             1.0     375             1.0                     \r\n                  188-        DAREA   11      376             1.0     377             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        DAREA   11      378             1.0     379             1.0                     \r\n                  190-        DAREA   11      380             1.0     381             1.0                     \r\n                  191-        DAREA   11      382             1.0     383             1.0                     \r\n                  192-        DAREA   11      384             1.0     385             1.0                     \r\n                  193-        DAREA   11      386             1.0     387             1.0                     \r\n                  194-        DAREA   11      388             1.0     389             1.0                     \r\n                  195-        DAREA   11      390             1.0     391             1.0                     \r\n                  196-        DAREA   11      392             1.0     393             1.0                     \r\n                  197-        DAREA   11      394             1.0     395             1.0                     \r\n                  198-        DAREA   11      396             1.0     397             1.0                     \r\n                  199-        DAREA   11      398             1.0     399             1.0                     \r\n                  200-        DAREA   11      400             1.0     401             1.0                     \r\n                  201-        DAREA   11      402             1.0     403             1.0                     \r\n                  202-        DAREA   11      404             1.0     405             1.0                     \r\n                  203-        DAREA   11      406             1.0     407             1.0                     \r\n                  204-        DAREA   11      408             1.0     409             1.0                     \r\n                  205-        DAREA   11      410             1.0     411             1.0                     \r\n                  206-        DAREA   11      412             1.0     413             1.0                     \r\n                  207-        DAREA   11      414             1.0     415             1.0                     \r\n                  208-        DAREA   11      416             1.0     417             1.0                     \r\n                  209-        DAREA   11      418             1.0     419             1.0                     \r\n                  210-        DAREA   11      420             1.0     421             1.0                     \r\n                  211-        DAREA   11      422             1.0     423             1.0                     \r\n                  212-        DAREA   11      424             1.0     425             1.0                     \r\n                  213-        DAREA   11      426             1.0     427             1.0                     \r\n                  214-        DAREA   11      428             1.0     429             1.0                     \r\n                  215-        DAREA   11      430             1.0     431             1.0                     \r\n                  216-        DAREA   11      432             1.0     433             1.0                     \r\n                  217-        DAREA   11      434             1.0     435             1.0                     \r\n                  218-        DAREA   11      436             1.0     437             1.0                     \r\n                  219-        DAREA   11      438             1.0     439             1.0                     \r\n                  220-        DAREA   11      440             1.0     441             1.0                     \r\n                  221-        DAREA   11      442             1.0     443             1.0                     \r\n                  222-        DAREA   11      444             1.0     445             1.0                     \r\n                  223-        DAREA   11      446             1.0     447             1.0                     \r\n                  224-        DAREA   11      448             1.0     449             1.0                     \r\n                  225-        DAREA   11      450             1.0     451             1.0                     \r\n                  226-        DAREA   11      452             1.0     453             1.0                     \r\n                  227-        DAREA   11      454             1.0     455             1.0                     \r\n                  228-        DAREA   11      456             1.0     457             1.0                     \r\n                  229-        DAREA   11      458             1.0     459             1.0                     \r\n                  230-        DAREA   11      460             1.0     461             1.0                     \r\n                  231-        DAREA   11      462             1.0     463             1.0                     \r\n                  232-        DAREA   11      464             1.0     465             1.0                     \r\n                  233-        DAREA   11      466             1.0     467             1.0                     \r\n                  234-        DAREA   11      468             1.0     469             1.0                     \r\n                  235-        DAREA   11      470             1.0     471             1.0                     \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        DAREA   11      472             1.0     473             1.0                     \r\n                  237-        DAREA   11      474             1.0     475             1.0                     \r\n                  238-        DAREA   11      476             1.0     477             1.0                     \r\n                  239-        DAREA   11      478             1.0     479             1.0                     \r\n                  240-        DAREA   11      480             1.0     481             1.0                     \r\n                  241-        DAREA   11      482             1.0     483             1.0                     \r\n                  242-        DAREA   11      484             1.0     485             1.0                     \r\n                  243-        DAREA   11      486             1.0     487             1.0                     \r\n                  244-        DAREA   11      488             1.0     489             1.0                     \r\n                  245-        DAREA   11      490             1.0     491             1.0                     \r\n                  246-        DAREA   11      492             1.0     493             1.0                     \r\n                  247-        DAREA   11      494             1.0     495             1.0                     \r\n                  248-        DAREA   11      496             1.0     497             1.0                     \r\n                  249-        DAREA   11      498             1.0     499             1.0                     \r\n                  250-        DAREA   11      500             1.0                                             \r\n                  251-        EIGR    10      FEER    10.5                    20                      +FEER   \r\n                  252-        +FEER   MAX                                                                     \r\n                  253-        EIGR    11      INV     .0      21.0    20      20                      +EIGR   \r\n                  254-        +EIGR   MAX                                                                     \r\n                  255-        FREQ2   11      .1      10.0    15                                              \r\n                  256-        PARAM   LMODES  20                                                              \r\n                  257-        PARAM   MODACC  1                                                               \r\n                  258-        RLOAD1  11      11                      1                                       \r\n                  259-        TABLED1 1                                                               *T1     \r\n                  260-        *T1     -10.0           310.022767      100.0           310.022767      *T2     \r\n                  261-        *T2     ENDT                                                                    \r\n                              ENDDATA\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ \r\n\r\n       1  PARAM   //C,N,NOP/V,N,TRUE=-1 $                                         \r\n\r\n       1  INPUT,  ,,,,/,G2,,,/C,N,5 $                                             \r\n\r\n       1  EQUIV   G2,GEOM2/TRUE $                                                 \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $                    \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR7,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      32  LABEL    JMPKGGX $                                                      \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11,NOGENL $                                                 \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11 $                                                        \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      47  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      48  PARAM    //*AND*/NOSR/REACT/SINGLE $                                    \r\n\r\n      49  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR,  \r\n                   MRR,DM,MR/REACT/MDD/MODACC $                                   \r\n\r\n      50  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      51  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USET,RG/GM $                                                   \r\n\r\n      53  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      54  LABEL    LBL2 $                                                         \r\n\r\n      55  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      56  COND     LBL3,SINGLE $                                                  \r\n\r\n      57  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      58  LABEL    LBL3 $                                                         \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      59  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      60  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      61  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      63  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      65  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      66  COND     LBL6,REACT $                                                   \r\n\r\n      67  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      68  JUMP     LBL8 $                                                         \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  COND     LBL7,MODACC $                                                  \r\n\r\n      71  LABEL    LBL8 $                                                         \r\n\r\n      72  RBMG2    KLL/LLL $                                                      \r\n\r\n      73  COND     LBL7,REACT $                                                   \r\n\r\n      74  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      75  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      76  LABEL    LBL7 $                                                         \r\n\r\n      77  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,   \r\n                   EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/         \r\n                   S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $                   \r\n\r\n      78  COND     ERROR2,NOEED $                                                 \r\n\r\n      79  PURGE    UEVF/NOUE $                                                    \r\n\r\n      80  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      81  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      82  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n                   NEIGV $                                                        \r\n\r\n      83  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      84  COND     ERROR4,NEIGV $                                                 \r\n\r\n      85  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      86  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      87  PARAM    //*MPY*/REPEATF/1/-1 $                                         \r\n\r\n      89  PURGE    OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP,    \r\n                   B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2,    \r\n                   IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1,  \r\n                   ZEFC1/NEVER $                                                  \r\n\r\n      90  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n      91  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      92  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n      93  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n      94  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $      \r\n\r\n      95  GKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,                   \r\n                   GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/              \r\n                   0.0/0.0/NOK2PP/NOM2PP/NOB2PP/                                  \r\n                   MPCF1/SINGLE/OMIT/NOUE/-1/-1/                                  \r\n                   1/V,Y,MODACC = -1 $                                            \r\n\r\n      96  GKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n                   NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/                \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $                    \r\n\r\n      97  COND     ERROR5,NOFRL $                                                 \r\n\r\n      98  COND     ERROR6,NODLT $                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      99  FRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF,   \r\n                   PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/                    \r\n                   OMIT/NONCUP/S,N,FRQSET $                                       \r\n\r\n     100  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     101  VDR      CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/         \r\n                   *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $                    \r\n\r\n     102  COND     LBL16,NOH $                                                    \r\n\r\n     103  COND     LBL16A,NOSORT2 $                                               \r\n\r\n     104  SDR3     OUHVC1,,,,,/OUHVC2,,,,, $                                      \r\n\r\n     105  OFP      OUHVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     106  XYTRAN   XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     107  XYPLOT   XYPLTFA // $                                                   \r\n\r\n     108  JUMP     LBL16 $                                                        \r\n\r\n     109  LABEL    LBL16A $                                                       \r\n\r\n     110  OFP      OUHVC1,,,,,//S,N,CARDNO $                                      \r\n\r\n     111  LABEL    LBL16 $                                                        \r\n\r\n     112  COND     LBL14,NOP $                                                    \r\n\r\n     113  PARAM    //*NOT*/NOMOD/V,Y,MODACC $                                     \r\n\r\n     114  COND     LBDDRM,MODACC $                                                \r\n\r\n     115  DDR1     UHVF,PHIDH/UDV1F $                                             \r\n\r\n     116  DDR2     USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/       \r\n                   *FREQRESP*/NOUE/REACT/FRQSET $                                 \r\n\r\n     117  EQUIV    UDV2F,UDV1F/NOMOD $                                            \r\n\r\n     118  EQUIV    UDV1F,UPVC/NOA $                                               \r\n\r\n     119  COND     LBLNOA,NOA $                                                   \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     120  SDR1     USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $      \r\n\r\n     121  LABEL    LBLNOA $                                                       \r\n\r\n     122  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,       \r\n                   XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     123  COND     LBL18,NOSORT2 $                                                \r\n\r\n     124  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n\r\n     125  JUMP     P2A $                                                          \r\n\r\n     126  LABEL    LBDDRM $                                                       \r\n\r\n     127  SDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $        \r\n\r\n     128  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/  \r\n                   ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $               \r\n\r\n     129  SDR2     CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA,     \r\n                   ,,,,,,/*FREQ* $                                                \r\n\r\n     130  EQUIV    OPPCA,OPPC1/MODACC $                                           \r\n\r\n     131  COND     LBLSORT,NOSORT2 $                                              \r\n\r\n     132  SDR3     IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $    \r\n\r\n     133  EQUIV    OPPCB,OPPC2/MODACC $                                           \r\n\r\n     134  DDRMM    CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/       \r\n                   ZUPVC2,ZQPC2,ZESC2,ZEFC2,  $                                   \r\n\r\n     135  EQUIV    ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/    \r\n                   ZEFC2,OEFC2/MODACC $                                           \r\n\r\n     136  JUMP     P2A $                                                          \r\n\r\n     137  LABEL    LBLSORT $                                                      \r\n\r\n     138  DDRMM    CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/            \r\n                   ZUPVC1,ZQPC1,ZESC1,ZEFC1, $                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     139  EQUIV    ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/    \r\n                   ZEFC1,OEFC1/MODACC $                                           \r\n\r\n     140  JUMP     LBL18 $                                                        \r\n\r\n     141  LABEL    P2A $                                                          \r\n\r\n     142  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n\r\n     143  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     144  XYPLOT   XYPLTF// $                                                     \r\n\r\n     145  COND     LBL21,JUMPPLOT $                                               \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/        \r\n                   PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                  \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n\r\n     148  LABEL    LBL21 $                                                        \r\n\r\n     149  COND     LBL14,NOPSDL $                                                 \r\n\r\n     150  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     151  COND     LBL14,NORD $                                                   \r\n\r\n     152  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     153  XYPLOT   XYPLTR// $                                                     \r\n\r\n     154  JUMP     LBL14 $                                                        \r\n\r\n     155  LABEL    LBL18 $                                                        \r\n\r\n     156  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     157  LABEL    LBL14 $                                                        \r\n\r\n     161  JUMP     FINIS $                                                        \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     163  PRTPARM  //-2/*MDLFRRD* $                                               \r\n\r\n     164  LABEL    ERROR1 $                                                       \r\n\r\n     165  PRTPARM  //-1/*MDLFRRD* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*MDLFRRD* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*MDLFRRD* $                                               \r\n\r\n     170  LABEL    ERROR6 $                                                       \r\n\r\n     171  PRTPARM  //-6/*MDLFRRD* $                                               \r\n\r\n     172  LABEL    ERROR7 $                                                       \r\n\r\n     173  PRTPARM  //-7/*MDLFRRD* $                                               \r\n\r\n     174  LABEL    FINIS $                                                        \r\n\r\n     175  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     176  END      $                                                              \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n                    * U T I L I T Y   M O D U L E   I N P U T *\r\n\r\n\r\n                    INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO RIGHT ADJUST)\r\n\r\n\r\n                    *   1  **   2  **   3  **   4  **   5  **   6  **   7  **   8  **   9  **  10  *\r\n\r\n\r\n\r\n                          500 1.0E+07 0.0E+00 1.0E+01 0.0E+00\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS4    ELEMENTS (ELEMENT TYPE  14) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS4    ELEMENTS (ELEMENT TYPE  28) STARTING WITH ID  1000002\r\n                       10 ROOTS BELOW   4.352496E+03\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST   28 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n0*** USER INFORMATION MESSAGE 2392\r\n       30 MORE ACCURATE EIGENSOLUTIONS THAN THE   20 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        50\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        49\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *        10 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1        14        3.947829E+01        6.283175E+00        9.999983E-01        2.500000E+03        9.869572E+04             \r\n        2        13        1.579116E+02        1.256629E+01        1.999987E+00        2.500000E+03        3.947790E+05             \r\n        3        12        3.552952E+02        1.884928E+01        2.999956E+00        2.500000E+03        8.882381E+05             \r\n        4        11        6.316215E+02        2.513208E+01        3.999895E+00        2.500395E+03        1.579303E+06             \r\n        5         9        9.868793E+02        3.141463E+01        4.999794E+00        2.500000E+03        2.467198E+06             \r\n        6         8        1.421055E+03        3.769688E+01        5.999645E+00        2.500000E+03        3.552637E+06             \r\n        7         7        1.934131E+03        4.397875E+01        6.999435E+00        2.500000E+03        4.835326E+06             \r\n        8         5        2.526087E+03        5.026019E+01        7.999157E+00        2.500395E+03        6.316214E+06             \r\n        9         3        3.196900E+03        5.654113E+01        8.998800E+00        2.500000E+03        7.992250E+06             \r\n       10         1        3.946543E+03        6.282152E+01        9.998355E+00        2.500000E+03        9.866358E+06             \r\n       11         2        4.774987E+03        6.910128E+01        1.099781E+01        2.500000E+03        1.193747E+07             \r\n       12         4        5.682200E+03        7.538036E+01        1.199716E+01        2.500395E+03        1.420774E+07             \r\n       13         6        6.668144E+03        8.165871E+01        1.299639E+01        2.500000E+03        1.667036E+07             \r\n       14        10        7.732782E+03        8.793623E+01        1.399549E+01        2.500000E+03        1.933195E+07             \r\n       15        15        8.876070E+03        9.421290E+01        1.499445E+01        2.500000E+03        2.219018E+07             \r\n       16        16        1.009797E+04        1.004886E+02        1.599326E+01        2.500395E+03        2.524890E+07             \r\n       17        17        1.139842E+04        1.067634E+02        1.699192E+01        2.500000E+03        2.849605E+07             \r\n       18        18        1.277738E+04        1.130371E+02        1.799041E+01        2.500000E+03        3.194345E+07             \r\n       19        19        1.423479E+04        1.193096E+02        1.898872E+01        2.500000E+03        3.558698E+07             \r\n       20        20        1.577060E+04        1.255810E+02        1.998684E+01        2.509896E+03        3.958256E+07             \r\n       21        21        1.738474E+04        1.318512E+02        2.098477E+01        2.500000E+03        4.346184E+07             \r\n       22        22        1.907715E+04        1.381201E+02        2.198249E+01        2.500000E+03        4.769287E+07             \r\n       23        23        2.084776E+04        1.443875E+02        2.297999E+01        2.500000E+03        5.211941E+07             \r\n       24        24        2.269651E+04        1.506536E+02        2.397727E+01        2.500395E+03        5.675024E+07             \r\n       25        25        2.462332E+04        1.569182E+02        2.497431E+01        2.500000E+03        6.155830E+07             \r\n       26        26        2.662811E+04        1.631812E+02        2.597110E+01        2.500000E+03        6.657028E+07             \r\n       27        27        2.871081E+04        1.694426E+02        2.696763E+01        2.500007E+03        7.177723E+07             \r\n       28        28        3.087133E+04        1.757024E+02        2.796390E+01        2.500088E+03        7.718103E+07             \r\n       29        29        3.310961E+04        1.819605E+02        2.895991E+01        2.495139E+03        8.261308E+07             \r\n       30        30        3.542555E+04        1.882168E+02        2.995563E+01        2.491476E+03        8.826191E+07             \r\n       31        31        3.782025E+04        1.944743E+02        3.095154E+01        2.444926E+03        9.246770E+07             \r\n       32        32        4.030271E+04        2.007554E+02        3.195121E+01        2.361995E+03        9.519482E+07             \r\n       33        33        4.297868E+04        2.073130E+02        3.299488E+01        1.948319E+03        8.373618E+07             \r\n       34        34        4.591303E+04        2.142733E+02        3.410265E+01        1.528425E+03        7.017460E+07             \r\n       35        35        4.960907E+04        2.227309E+02        3.544873E+01        1.184151E+03        5.874463E+07             \r\n       36        36        5.361830E+04        2.315563E+02        3.685332E+01        1.133319E+03        6.076662E+07             \r\n       37        37        5.719057E+04        2.391455E+02        3.806119E+01        1.309213E+03        7.487463E+07             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n       38        38        6.403630E+04        2.530540E+02        4.027479E+01        7.650125E+02        4.898857E+07             \r\n       39        39        7.181550E+04        2.679841E+02        4.265100E+01        5.460549E+02        3.921521E+07             \r\n       40        40        8.142555E+04        2.853516E+02        4.541512E+01        5.035842E+02        4.100462E+07             \r\n       41        41        9.763046E+04        3.124587E+02        4.972935E+01        3.665581E+02        3.578723E+07             \r\n       42        42        1.198863E+05        3.462460E+02        5.510677E+01        3.108511E+02        3.726679E+07             \r\n       43        43        1.497063E+05        3.869189E+02        6.158006E+01        4.401808E+02        6.589783E+07             \r\n       44        44        1.725240E+05        4.153600E+02        6.610661E+01        3.963076E+02        6.837255E+07             \r\n       45        45        3.055958E+05        5.528071E+02        8.798199E+01        5.203714E+02        1.590233E+08             \r\n       46        46        3.964821E+05        6.296683E+02        1.002148E+02        2.336386E+02        9.263354E+07             \r\n       47        47        5.166735E+05        7.188000E+02        1.144006E+02        3.767520E+02        1.946578E+08             \r\n       48        48        1.025290E+06        1.012566E+03        1.611549E+02        3.210023E+02        3.291204E+08             \r\n       49        49        1.905251E+06        1.380308E+03        2.196829E+02        2.568323E+02        4.893301E+08             \r\n       50        50        3.806958E+06        1.951143E+03        3.105340E+02        3.094826E+02        1.178187E+09             \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      1.009971E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      1.018695E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      1.035219E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      1.067207E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      1.131834E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      1.274442E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      1.661215E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      3.782303E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      2.782357E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      6.613363E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      2.745687E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      1.319615E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      6.733594E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      3.534792E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      1.882388E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      1.009967E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      1.014772E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      1.016933E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      1.020951E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      1.028458E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      1.042626E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      1.069860E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      1.124116E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      1.240352E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      1.533327E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.584893E+00     M      2.720916E-16                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.154435E+00     M      6.310188E-16                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      8.846136E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      3.417073E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      1.601204E-17                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      8.078865E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      4.217589E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       3\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      3.707345E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.359356E-01     M      3.710845E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.847850E-01     M      3.717329E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.511887E-01     M      3.729372E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.414549E-01     M      3.751831E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  4.641589E-01     M      3.794051E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  6.309574E-01     M      3.874622E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  8.576961E-01     M      4.032875E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.165915E+00     M      4.362094E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      5.136996E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      7.647303E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      7.883182E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      4.865970E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     M      1.642850E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     M      7.386984E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       3\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      3.662412E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      4.249798E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.359356E-01     M      4.252052E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.847850E-01     M      4.256225E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.511887E-01     M      4.263957E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.414549E-01     M      4.278319E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  4.641589E-01     M      4.305114E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  6.309574E-01     M      4.355520E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  8.576961E-01     M      4.451837E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.165915E+00     M      4.641504E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     M      5.038135E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     M      5.982856E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     M      9.155063E-18                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     M      4.523591E-16                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     M      5.113954E-18                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     M      1.782648E-18                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       4\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      8.089285E-19                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       5\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     M      8.002168E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     M      8.004884E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     M      8.009908E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     M      8.019208E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     M      8.036449E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     M      8.068505E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     M      8.128416E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     M      8.241499E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     M      8.458954E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.584893E+00     M      8.892520E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.154435E+00     M      9.822865E-03                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.928645E+00     M      1.217696E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     M      2.185569E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     M      4.662631E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     M      6.866906E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       5\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     M      2.666030E-03                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      3.519336E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      3.546610E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      3.598255E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      3.698185E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      3.899905E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      4.344373E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      5.546772E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      1.211539E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      8.141406E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      1.519473E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      1.107240E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.114967E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      3.535540E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      6.547387E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      4.137104E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      51\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.574604E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     101\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      6.260206E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      6.311814E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      6.409547E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      6.598697E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      6.980663E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      7.822850E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.010379E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      2.258607E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      1.596912E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      3.429138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      9.185459E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.686515E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      9.016667E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      4.365984E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      7.179653E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     101\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.964182E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     151\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      8.219904E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      8.290569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      8.424406E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      8.683484E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      9.206856E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.036160E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.349259E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.065641E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.244463E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      5.265272E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      2.067326E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      1.263957E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      8.930793E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      1.617553E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     S      1.696870E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     151\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572965E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     201\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.396498E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.479266E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      9.636043E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      9.939569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.055289E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.190672E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.558046E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.574398E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.670884E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      6.581994E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.050576E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      5.877138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      3.395493E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      2.107926E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      3.292501E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     201\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.083981E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     251\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.788824E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.875740E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      1.004038E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      1.035913E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.100330E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.242543E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.628562E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.748164E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.819601E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      7.059558E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.434792E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      9.106178E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      1.904558E-05                                                                                             \r\n                             0.0                                                                                                    \r\n0  5.411697E+00     S      7.129662E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      1.275858E-02                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     251\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572599E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     301\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      9.396498E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      9.479266E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      9.636043E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      9.939569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      1.055289E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.190672E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.558046E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.574398E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.670884E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      6.581994E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      3.050576E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      5.877138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  3.981073E+00     S      3.395493E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      2.107926E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      3.292501E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     301\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.083981E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     351\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      8.219904E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      8.290569E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      8.424406E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      8.683484E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      9.206856E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      1.036160E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.349259E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      3.065641E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      2.244463E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      5.265272E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      2.067326E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      1.263957E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      8.930793E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      1.617553E-02                                                                                             \r\n                             0.0                                                                                                    \r\n0  7.356425E+00     S      1.696870E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     351\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.572965E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     401\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      6.260206E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      6.311814E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      6.409547E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      6.598697E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      6.980663E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      7.822850E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      1.010379E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      2.258607E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      1.596912E+00                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      3.429138E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      9.185459E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.686515E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      9.016667E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      4.365984E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      7.179653E-03                                                                                             \r\n                             0.0                                                                                                    \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     401\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      2.964182E-05                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     451\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E-01     S      3.519336E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.359356E-01     S      3.546610E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.847850E-01     S      3.598255E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  2.511887E-01     S      3.698185E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.414549E-01     S      3.899905E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  4.641589E-01     S      4.344373E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  6.309574E-01     S      5.546772E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  8.576961E-01     S      1.211539E+00                                                                                             \r\n                             0.0                                                                                                    \r\n0  1.165915E+00     S      8.141406E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  1.584893E+00     S      1.519473E-01                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.154435E+00     S      1.107240E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  2.928645E+00     S      6.114967E-01                                                                                             \r\n                             0.0                                                                                                    \r\n0  3.981073E+00     S      3.535540E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  5.411697E+00     S      6.547387E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n0  7.356425E+00     S      4.137104E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =     451\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.000000E+01     S      1.574604E-02                                                                                             \r\n                           180.0000                                                                                                 \r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    1\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    2\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    3\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    4\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251( 1,--)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF UPPER FRAME    5\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251(--, 7)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF LOWER FRAME    5\r\n\r\n\r\n     CURVE  TITLE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *                                                     \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = PHASE  *DEGREE*                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.800000E+02 AT X =   1.165915E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.107240E-02 AT X =   2.154435E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.211539E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.964182E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.258607E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      151( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.572965E-02 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.065641E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      201( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  2.083981E-05 AT X =   1.000000E+01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.574398E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      251( 1)\r\n \r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *                                                  \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = MAGNITUDE  *INCH*                                                                                              \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  1.904558E-05 AT X =   3.981073E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.748164E+00 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-FORCE   CURVE      251( 2)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *                                                   \r\n      X-AXIS TITLE =                              FREQUENCY (HERTZ)                                                                 \r\n      Y-AXIS TITLE = REAL PART  *POUNDS*                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.387000E+03 AT X =   2.928645E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.985664E+02 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.000000E-01 TO  X =  1.000000E+01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.387000E+03 AT X =   2.928645E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.985664E+02 AT X =   8.576961E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     FREQUENCY RESPONSE OF A 500 CELL STRING                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ELEMENT-FORCE   CURVE   ID =      251     COMPONENT =  2     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.000000E-01         1.567602E+02\r\n                                  2             1.359356E-01         1.585484E+02\r\n                                  3             1.847850E-01         1.621246E+02\r\n                                  4             2.511887E-01         1.680851E+02\r\n                                  5             3.414549E-01         1.800060E+02\r\n                                  6             4.641589E-01         2.074242E+02\r\n                                  7             6.309574E-01         2.825260E+02\r\n                                  8             8.576961E-01         6.985664E+02\r\n                                  9             1.165915E+00        -6.008148E+02\r\n                                 10             1.584893E+00        -1.949072E+02\r\n                                 11             2.154435E+00        -1.597404E+02\r\n                                 12             2.928645E+00        -1.387000E+03\r\n                                 13             3.981073E+00         1.548787E+02\r\n                                 14             5.411697E+00        -2.574921E+02\r\n                                 15             7.356425E+00         2.906472E+02\r\n                                 16             1.000000E+01        -1.566112E+02\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQUENCY RESPONSE OF A 500 CELL STRING                            \r\n DATE:  5/17/95\r\n END TIME: 16:18:49\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11031a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11031A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   11,0                                                                      \r\n     TIME  25                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = JET TRANSPORT WING DYNAMIC ANALYSIS                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                          \r\n                  3      LABEL    = SYMMETRIC RESPONSE , STIFF AILERON                                   \r\n                  4        ECHO   = BOTH                                                                 \r\n                  5      $                                                                               \r\n                  6      $       MODEL DESCRIPTION           JET TRANSPORT WING EXAMPLE                  \r\n                  7      $                               SYMMETRIC RESPONSE TO A RANDOM                  \r\n                  8      $                               GUST WITH A STIFF AILERON                       \r\n                  9      $                                                                               \r\n                 10        SPC    = 14   $  SYM , NO PITCH                                               \r\n                 11        MPC    = 1                                                                    \r\n                 12        METHOD = 10   $  GIVENS                                                       \r\n                 13        SDAMP  = 2000                                                                 \r\n                 14        FREQ   = 40                                                                   \r\n                 15        RANDOM = 1031 $  EMPIRICAL PSDF                                               \r\n                 16      OUTPUT                                                                          \r\n                 17      $                                                                               \r\n                 18      $       SOLUTION                   RANDOM ANALYSIS USING                        \r\n                 19      $                               DOUBLET-LATTICE METHOD AERODYNAMICS             \r\n                 20      $                               AT MACH NO. OF .62                              \r\n                 21      $                                                                               \r\n                 22        SET 1 = 1  , 2 , 12 $                                                         \r\n                 23        SET 2 = 1 , 9 THRU 12 , 1040                                                  \r\n                 24        SET 3 = 11                                                                    \r\n                 25        SET 4 = 1001 , 1022 , 1023 , 1040 , 1041 $                                    \r\n                 26        SDISP(IMAG) = 1                                                               \r\n                 27        DISP(IMAG)  = 2                                                               \r\n                 28        SPCF(IMAG)  = 3                                                               \r\n                 29        AEROF = 4                                                                     \r\n                 30      SUBCASE 1                                                                       \r\n                 31        LABEL =  RANDOM GUST ANALYSIS                                                 \r\n                 32        GUST  = 3002                                                                  \r\n                 33      $                                                                               \r\n                 34      $           PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT        \r\n                 35      $       AND WING ROOT BENDING MOMENTS                                           \r\n                 36      $                                                                               \r\n                 37      OUTPUT(XYOUT)    $ FREQ RESP PACKAGE (COMPLEX NUMBERS)                          \r\n                 38        CURVELINESYMBOL = 1                                                           \r\n                 39        XTITLE  =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE           \r\n                 40        YTITLE  = MODAL DEFLECTION                                                    \r\n                 41        TCURVE  =     FIRST MODE (PLUNGE)                                             \r\n                 42        XYPAPERPLOT   SDISP /   1(T1RM) , 1(T1IP)                                     \r\n                 43        TCURVE  =     SECOND MODE (WING BENDING)                                      \r\n                 44        XYPAPERPLOT   SDISP /   2(T1RM) , 2(T1IP)                                     \r\n                 45        TCURVE  =     TWELFTH MODE  (AILERON)                                         \r\n                 46        XYPAPERPLOT   SDISP /  12(T1RM) , 12(T1IP)                                    \r\n                 47        YTITLE  = PHYSICAL DEFLECTION                                                 \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48        TCURVE  =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                        \r\n                 49        XYPAPERPLOT    DISP /   9(T3RM) ,  9(T3IP) , 10(T3RM) , 10(T3IP)              \r\n                 50        TCURVE  =     FUSELAGE PLUNGE                                                 \r\n                 51        XYPAPERPLOT    DISP /  11(T3RM) , 11(T3IP)                                    \r\n                 52        TCURVE  =     AILERON DEFLECTION                                              \r\n                 53        XYPAPERPLOT    DISP /  12(R2RM) , 12(R2IP)                                    \r\n                 54        TCURVE  =     AERODYNAMIC BOX NEAR TIP , PITCH                                \r\n                 55        XYPAPERPLOT    DISP /  1040(R2RM) , 1040(R2IP)                                \r\n                 56        TCURVE  =     WING ROOT BENDING MOMENT                                        \r\n                 57        YTITLE  = ROTATIONAL CONSTRAINTS                                              \r\n                 58        XYPAPERPLOT    SPCF /  11(R3RM) , 11(R3IP)                                    \r\n                 59      $ RANDOM ANALYSIS OUTPUT REQUESTS                                               \r\n                 60        XTITLE  = FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS              \r\n                 61        TCURVE  =   POWER SPECTRAL DENSITY FUNCTION                                   \r\n                 62        YTITLE  = FUSELAGE PLUNGE  (11T3)         , PSDF , GUST LOAD                  \r\n                 63        XYPAPERPLOT  DISP  PSDF     /  11(T3)                                         \r\n                 64        YTITLE  = WING TIP DISPLACEMENT (9T3)     , PSDF , GUST LOAD                  \r\n                 65        XYPAPERPLOT  DISP  PSDF     /   9(T3)                                         \r\n                 66        YTITLE  = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD                  \r\n                 67        XYPAPERPLOT  SPCF  PSDF     /  11(R3)                                         \r\n                 68      BEGIN BULK                                                                      \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              AEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1                  \r\n                              +AE1    .74                                                                                   \r\n                              AEFACT  2       .74     .82     .90     .974                                                  \r\n                              AEFACT  3       .974    1.00                                                                  \r\n                              AEFACT  4       0.0     .375    .750    1.00                                                  \r\n                              AEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00                          \r\n                              AERO    1       8360.   131.232 1.1468-71                               SYM                   \r\n                              CAERO1  1001    1000    0                       1       4       1       +CA01                 \r\n                              +CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CAERO1  1022    1000    0                       2       5       1       +CA22                 \r\n                              +CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CAERO1  1040    1000    0                       3       4       1       +CA40                 \r\n                              +CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CELAS2  3       5142671.12      5                                                             \r\n                              CMASS2  2       13967.2 12      5                                                             \r\n                              CMASS2  121     5248.7  1       3                                                             \r\n                              CMASS2  122     134.9   1       3       2       3                                             \r\n                              CMASS2  123     790.3   2       3                                                             \r\n                              CMASS2  341     9727.   3       3                                                             \r\n                              CMASS2  342     11005.  3       3       4       3                                             \r\n                              CMASS2  343     473.    4       3                                                             \r\n                              CMASS2  561     3253.6  5       3                                                             \r\n                              CMASS2  562     -139.7  5       3       6       3                                             \r\n                              CMASS2  563     946.3   6       3                                                             \r\n                              CMASS2  781     2617.8  7       3                                                             \r\n                              CMASS2  782     21.     7       3       8       3                                             \r\n                              CMASS2  783     782.3   8       3                                                             \r\n                              CMASS2  9101    494.8   9       3                                                             \r\n                              CMASS2  9102    -7.3    9       3       10      3                                             \r\n                              CMASS2  9103    185.2   10      3                                                             \r\n                              CONM1   1       11                                                      +51                   \r\n                              +51     17400.                          4.37+7                          +52                   \r\n                              +52             4.35+09                                                                       \r\n                              CORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1                   \r\n                              +C1     -1.     0.0     0.0                                                                   \r\n                              DAREA   9999    11      1       1.                                      DUMMY                 \r\n                              EIGR    10      GIV     0.0     1.              12                      +EIGR                 \r\n                              +EIGR   MAX                                                                                   \r\n                              FREQ1   40      0.0     .25     39                                                            \r\n                              GENEL   432             1       3       2       3       3       3       +01                   \r\n                              +01     4       3       5       3       6       3       7       3       +02                   \r\n                              +02     8       3       9       3       10      3                       +03                   \r\n                              +03     UD              11      3       11      4       11      5       +03A                  \r\n                              +03A    11      6                                                       +04                   \r\n                              +04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05                   \r\n                              +05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06                   \r\n                              +06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07                   \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08                   \r\n                              +08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09                   \r\n                              +09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10                   \r\n                              +10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11                   \r\n                              +11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12                   \r\n                              +12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13                   \r\n                              +13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14                   \r\n                              +14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15                   \r\n                              +15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16                   \r\n                              +16     413.0                                                                                 \r\n                              GRID    1               20.25   90.                     12456                                 \r\n                              GRID    2               -81.    90.                     12456                                 \r\n                              GRID    3               17.85   186.                    12456                                 \r\n                              GRID    4               -71.4   186.                    12456                                 \r\n                              GRID    5               15.8    268.                    12456                                 \r\n                              GRID    6               -63.2   268.                    12456                                 \r\n                              GRID    7               13.3    368.                    12456                                 \r\n                              GRID    8               -53.2   368.                    12456                                 \r\n                              GRID    9               11.05   458.                    12456                                 \r\n                              GRID    10              -44.2   458.                    12456                                 \r\n                              GRID    11              .0      .0                      126                                   \r\n                              GRID    12              -86.45  368.                    1246                                  \r\n                              GUST    3002    3002    1.1962-40.0     8360.                                                 \r\n                              MKAERO1 .62                                                             +MK                   \r\n                              +MK     .02     .10     .50                                                                   \r\n                              MPC     1       12      3       -1.0    8       3       1.5             +MPC1                 \r\n                              +MPC1           7       3       -0.5    12      5       33.25                                 \r\n                              PAERO1  1000                                                                                  \r\n                              PARAM   GUSTAERO1                                                                             \r\n                              PARAM   LMODES  12                                                                            \r\n                              PARAM   MACH    .62                                                                           \r\n                              PARAM   Q       4.00747                                                                       \r\n                              PARAM   WTMASS  .0025907                                                                      \r\n                              RANDPS  1031    1       1       1.              1032                                          \r\n                              RLOAD1  3002    9999                    1004                                                  \r\n                              SET1    14      1       THRU    11                                                            \r\n                              SET1    15      8       10      12                                                            \r\n                              SPC     14      11      45                                                                    \r\n                              SPLINE1 104     1022    1026    1039    15                                                    \r\n                              SPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1                  \r\n                              +SP1    -1.0    -1.0                                                                          \r\n                              SPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2                  \r\n                              +SP2    -1.0    -1.0                                                                          \r\n                              SPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3                  \r\n                              +SP3    -1.0    -1.0                                                                          \r\n                              SUPORT  11      3                                                                             \r\n                              TABDMP1 2000                                                            +T2000                \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +T2000  0.0     .06     10.     .06     ENDT                                                  \r\n                              TABLED1 1004                                                             T1004                \r\n                              +T1004  0.0     0.0     .01     1.      10.     1.      ENDT                                  \r\n                              TABRND1 1032                                                            +001                  \r\n                              +001    .00     2.8708+0.25     1.2641+0.50     4.7188-1.75     2.3080-1+002                  \r\n                              +002    1.00    1.3456-11.25    8.7595-21.50    6.1402-21.75    4.5369-2+003                  \r\n                              +003    2.00    3.4865-22.25    2.7618-22.50    2.2412-22.75    1.8547-2+004                  \r\n                              +004    3.00    1.5601-23.25    1.3304-23.50    1.1478-23.75    1.0004-2+005                  \r\n                              +005    4.00    8.7964-34.25    7.7947-34.50    6.9547-34.75    6.2434-3+006                  \r\n                              +006    5.00    5.6359-35.25    5.1128-35.50    4.6593-35.75    4.2636-3+007                  \r\n                              +007    6.00    3.9162-36.25    3.6095-36.50    3.3375-36.75    3.0951-3+008                  \r\n                              +008    7.00    2.8782-37.25    2.6833-37.50    2.5076-37.75    2.3485-3+009                  \r\n                              +009    8.00    2.2042-38.25    2.0727-38.50    1.9526-38.75    1.8427-3+010                  \r\n                              +010    9.00    1.7418-39.25    1.6490-39.50    1.5634-39.75    1.4843-3+011                  \r\n                              +011    ENDT                                                                                  \r\n                              TSTEP   41      40      .1      1                                                             \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=    110\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1    \r\n                    2-        +AE1    .74                                                                     \r\n                    3-        AEFACT  2       .74     .82     .90     .974                                    \r\n                    4-        AEFACT  3       .974    1.00                                                    \r\n                    5-        AEFACT  4       0.0     .375    .750    1.00                                    \r\n                    6-        AEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00            \r\n                    7-        AERO    1       8360.   131.232 1.1468-71                               SYM     \r\n                    8-        CAERO1  1001    1000    0                       1       4       1       +CA01   \r\n                    9-        +CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   10-        CAERO1  1022    1000    0                       2       5       1       +CA22   \r\n                   11-        +CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   12-        CAERO1  1040    1000    0                       3       4       1       +CA40   \r\n                   13-        +CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   14-        CELAS2  3       5142671.12      5                                               \r\n                   15-        CMASS2  2       13967.2 12      5                                               \r\n                   16-        CMASS2  121     5248.7  1       3                                               \r\n                   17-        CMASS2  122     134.9   1       3       2       3                               \r\n                   18-        CMASS2  123     790.3   2       3                                               \r\n                   19-        CMASS2  341     9727.   3       3                                               \r\n                   20-        CMASS2  342     11005.  3       3       4       3                               \r\n                   21-        CMASS2  343     473.    4       3                                               \r\n                   22-        CMASS2  561     3253.6  5       3                                               \r\n                   23-        CMASS2  562     -139.7  5       3       6       3                               \r\n                   24-        CMASS2  563     946.3   6       3                                               \r\n                   25-        CMASS2  781     2617.8  7       3                                               \r\n                   26-        CMASS2  782     21.     7       3       8       3                               \r\n                   27-        CMASS2  783     782.3   8       3                                               \r\n                   28-        CMASS2  9101    494.8   9       3                                               \r\n                   29-        CMASS2  9102    -7.3    9       3       10      3                               \r\n                   30-        CMASS2  9103    185.2   10      3                                               \r\n                   31-        CONM1   1       11                                                      +51     \r\n                   32-        +51     17400.                          4.37+7                          +52     \r\n                   33-        +52             4.35+09                                                         \r\n                   34-        CORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1     \r\n                   35-        +C1     -1.     0.0     0.0                                                     \r\n                   36-        DAREA   9999    11      1       1.                                      DUMMY   \r\n                   37-        EIGR    10      GIV     0.0     1.              12                      +EIGR   \r\n                   38-        +EIGR   MAX                                                                     \r\n                   39-        FREQ1   40      0.0     .25     39                                              \r\n                   40-        GENEL   432             1       3       2       3       3       3       +01     \r\n                   41-        +01     4       3       5       3       6       3       7       3       +02     \r\n                   42-        +02     8       3       9       3       10      3                       +03     \r\n                   43-        +03     UD              11      3       11      4       11      5       +03A    \r\n                   44-        +03A    11      6                                                       +04     \r\n                   45-        +04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05     \r\n                   46-        +05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06     \r\n                   47-        +06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07     \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08     \r\n                   49-        +08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09     \r\n                   50-        +09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10     \r\n                   51-        +10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11     \r\n                   52-        +11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12     \r\n                   53-        +12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13     \r\n                   54-        +13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14     \r\n                   55-        +14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15     \r\n                   56-        +15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16     \r\n                   57-        +16     413.0                                                                   \r\n                   58-        GRID    1               20.25   90.                     12456                   \r\n                   59-        GRID    2               -81.    90.                     12456                   \r\n                   60-        GRID    3               17.85   186.                    12456                   \r\n                   61-        GRID    4               -71.4   186.                    12456                   \r\n                   62-        GRID    5               15.8    268.                    12456                   \r\n                   63-        GRID    6               -63.2   268.                    12456                   \r\n                   64-        GRID    7               13.3    368.                    12456                   \r\n                   65-        GRID    8               -53.2   368.                    12456                   \r\n                   66-        GRID    9               11.05   458.                    12456                   \r\n                   67-        GRID    10              -44.2   458.                    12456                   \r\n                   68-        GRID    11              .0      .0                      126                     \r\n                   69-        GRID    12              -86.45  368.                    1246                    \r\n                   70-        GUST    3002    3002    1.1962-40.0     8360.                                   \r\n                   71-        MKAERO1 .62                                                             +MK     \r\n                   72-        +MK     .02     .10     .50                                                     \r\n                   73-        MPC     1       12      3       -1.0    8       3       1.5             +MPC1   \r\n                   74-        +MPC1           7       3       -0.5    12      5       33.25                   \r\n                   75-        PAERO1  1000                                                                    \r\n                   76-        PARAM   GUSTAERO1                                                               \r\n                   77-        PARAM   LMODES  12                                                              \r\n                   78-        PARAM   MACH    .62                                                             \r\n                   79-        PARAM   Q       4.00747                                                         \r\n                   80-        PARAM   WTMASS  .0025907                                                        \r\n                   81-        RANDPS  1031    1       1       1.              1032                            \r\n                   82-        RLOAD1  3002    9999                    1004                                    \r\n                   83-        SET1    14      1       THRU    11                                              \r\n                   84-        SET1    15      8       10      12                                              \r\n                   85-        SPC     14      11      45                                                      \r\n                   86-        SPLINE1 104     1022    1026    1039    15                                      \r\n                   87-        SPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1    \r\n                   88-        +SP1    -1.0    -1.0                                                            \r\n                   89-        SPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2    \r\n                   90-        +SP2    -1.0    -1.0                                                            \r\n                   91-        SPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3    \r\n                   92-        +SP3    -1.0    -1.0                                                            \r\n                   93-        SUPORT  11      3                                                               \r\n                   94-        TABDMP1 2000                                                            +T2000  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        +T2000  0.0     .06     10.     .06     ENDT                                    \r\n                   96-        TABLED1 1004                                                             T1004  \r\n                   97-        +T1004  0.0     0.0     .01     1.      10.     1.      ENDT                    \r\n                   98-        TABRND1 1032                                                            +001    \r\n                   99-        +001    .00     2.8708+0.25     1.2641+0.50     4.7188-1.75     2.3080-1+002    \r\n                  100-        +002    1.00    1.3456-11.25    8.7595-21.50    6.1402-21.75    4.5369-2+003    \r\n                  101-        +003    2.00    3.4865-22.25    2.7618-22.50    2.2412-22.75    1.8547-2+004    \r\n                  102-        +004    3.00    1.5601-23.25    1.3304-23.50    1.1478-23.75    1.0004-2+005    \r\n                  103-        +005    4.00    8.7964-34.25    7.7947-34.50    6.9547-34.75    6.2434-3+006    \r\n                  104-        +006    5.00    5.6359-35.25    5.1128-35.50    4.6593-35.75    4.2636-3+007    \r\n                  105-        +007    6.00    3.9162-36.25    3.6095-36.50    3.3375-36.75    3.0951-3+008    \r\n                  106-        +008    7.00    2.8782-37.25    2.6833-37.50    2.5076-37.75    2.3485-3+009    \r\n                  107-        +009    8.00    2.2042-38.25    2.0727-38.50    1.9526-38.75    1.8427-3+010    \r\n                  108-        +010    9.00    1.7418-39.25    1.6490-39.50    1.5634-39.75    1.4843-3+011    \r\n                  109-        +011    ENDT                                                                    \r\n                  110-        TSTEP   41      40      .1      1                                               \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS2    ELEMENTS (ELEMENT TYPE  26) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM1    ELEMENTS (ELEMENT TYPE  29) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   2.0067149E-16\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      12, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        12\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        12\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        11        0.0                 0.0                 0.0                 1.085996E+02        0.0                      \r\n        2        10        2.344038E+02        1.531025E+01        2.436702E+00        7.333811E+00        1.719073E+03             \r\n        3         9        5.021460E+02        2.240862E+01        3.566442E+00        4.860579E+01        2.440721E+04             \r\n        4         8        2.873470E+03        5.360476E+01        8.531462E+00        6.036275E+00        1.734505E+04             \r\n        5         7        6.346819E+03        7.966693E+01        1.267939E+01        1.389629E+01        8.819726E+04             \r\n        6         6        8.746056E+03        9.352035E+01        1.488422E+01        3.997501E+00        3.496237E+04             \r\n        7         5        1.766041E+04        1.328925E+02        2.115050E+01        3.884947E+00        6.860977E+04             \r\n        8         4        2.401137E+04        1.549560E+02        2.466202E+01        3.570773E+00        8.573913E+04             \r\n        9         3        4.211877E+04        2.052286E+02        3.266314E+01        3.142323E+00        1.323508E+05             \r\n       10         2        6.020940E+04        2.453760E+02        3.905281E+01        1.016273E+00        6.118916E+04             \r\n       11         1        9.492829E+04        3.081043E+02        4.903633E+01        8.935863E+00        8.482661E+05             \r\n       12        12        1.421223E+05        3.769911E+02        6.000000E+01        3.618483E+01        5.142671E+06             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        1          FREQUENCY =   0.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n              0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n              0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n              0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n              0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n              0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        2          FREQUENCY =   2.500000E-01  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.402053E+00   2.284433E+00\r\n              0.000000E+00   0.000000E+00  -4.940160E+01   4.698257E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.005743E-01   1.053318E+00\r\n              0.000000E+00   0.000000E+00  -5.382338E+00   6.295222E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.780447E-01   4.278406E-01\r\n              0.000000E+00   0.000000E+00  -2.259408E+00   2.557016E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.578719E-01   1.948000E-01\r\n              0.000000E+00   0.000000E+00  -1.504100E+00   1.855927E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.515316E-02   4.903822E-02\r\n              0.000000E+00   0.000000E+00  -4.301895E-01   4.672039E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        3          FREQUENCY =   5.000000E-01  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.982867E-01   2.306365E+00\r\n              0.000000E+00   0.000000E+00  -1.436124E+01   4.743364E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -8.140898E-02   1.000678E+00\r\n              0.000000E+00   0.000000E+00  -4.865455E-01   5.980614E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.706399E-02   4.118764E-01\r\n              0.000000E+00   0.000000E+00  -2.812811E-01   2.461605E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.087976E-03   1.809572E-01\r\n              0.000000E+00   0.000000E+00  -3.894770E-02   1.724042E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -7.182358E-03   4.780058E-02\r\n              0.000000E+00   0.000000E+00  -6.842883E-02   4.554126E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        4          FREQUENCY =   7.499999E-01  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.118851E-01   1.805306E+00\r\n              0.000000E+00   0.000000E+00   2.301073E+00   3.712865E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.959583E-01   6.900358E-01\r\n              0.000000E+00   0.000000E+00   1.768813E+00   4.124042E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.071071E-01   2.916312E-01\r\n              0.000000E+00   0.000000E+00   6.401322E-01   1.742953E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.599411E-02   1.181500E-01\r\n              0.000000E+00   0.000000E+00   6.287485E-01   1.125655E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.083683E-02   3.448702E-02\r\n              0.000000E+00   0.000000E+00   1.032462E-01   3.285699E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        5          FREQUENCY =   1.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.728532E-01   1.351751E+00\r\n              0.000000E+00   0.000000E+00   9.724891E+00   2.780066E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.445305E-01   3.944474E-01\r\n              0.000000E+00   0.000000E+00   2.656764E+00   2.357439E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.703117E-01   1.770817E-01\r\n              0.000000E+00   0.000000E+00   1.017879E+00   1.058340E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.228974E-02   5.751444E-02\r\n              0.000000E+00   0.000000E+00   8.792760E-01   5.479599E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.868470E-02   2.158384E-02\r\n              0.000000E+00   0.000000E+00   1.780156E-01   2.056367E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        6          FREQUENCY =   1.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.339365E-01   1.002302E+00\r\n              0.000000E+00   0.000000E+00   1.303780E+01   2.061374E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.786380E-01   1.360785E-01\r\n              0.000000E+00   0.000000E+00   2.860610E+00   8.132821E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.888397E-01   7.697631E-02\r\n              0.000000E+00   0.000000E+00   1.128613E+00   4.600539E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.584768E-02   2.790635E-03\r\n              0.000000E+00   0.000000E+00   9.131739E-01   2.658733E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.163349E-02   9.944121E-03\r\n              0.000000E+00   0.000000E+00   2.061097E-01   9.474110E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        7          FREQUENCY =   1.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.980062E-01   7.410462E-01\r\n              0.000000E+00   0.000000E+00   1.435548E+01   1.524065E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.326235E-01  -9.973019E-02\r\n              0.000000E+00   0.000000E+00   2.585601E+00  -5.960434E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.770162E-01  -1.510696E-02\r\n              0.000000E+00   0.000000E+00   1.057948E+00  -9.028771E-02   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   8.200706E-02  -4.940379E-02\r\n              0.000000E+00   0.000000E+00   7.813093E-01  -4.706867E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.126580E-02  -1.455490E-03\r\n              0.000000E+00   0.000000E+00   2.026066E-01  -1.386697E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        8          FREQUENCY =   1.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   7.097093E-01   5.565007E-01\r\n              0.000000E+00   0.000000E+00   1.459617E+01   1.144522E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.902003E-01  -3.226295E-01\r\n              0.000000E+00   0.000000E+00   1.734400E+00  -1.928216E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.290054E-01  -1.045625E-01\r\n              0.000000E+00   0.000000E+00   7.710091E-01  -6.249241E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.488456E-02  -1.014822E-01\r\n              0.000000E+00   0.000000E+00   4.276306E-01  -9.668553E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.662625E-02  -1.383614E-02\r\n              0.000000E+00   0.000000E+00   1.584040E-01  -1.318217E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR        9          FREQUENCY =   2.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   7.001869E-01   4.643757E-01\r\n              0.000000E+00   0.000000E+00   1.440033E+01   9.550537E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.599123E-02  -4.902402E-01\r\n              0.000000E+00   0.000000E+00  -1.553378E-01  -2.929951E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.339418E-02  -1.787133E-01\r\n              0.000000E+00   0.000000E+00   8.005115E-02  -1.068091E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.732190E-02  -1.436715E-01\r\n              0.000000E+00   0.000000E+00  -3.555786E-01  -1.368808E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.730669E-03  -2.685361E-02\r\n              0.000000E+00   0.000000E+00   2.601604E-02  -2.558436E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       10          FREQUENCY =   2.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   7.772623E-01   5.169348E-01\r\n              0.000000E+00   0.000000E+00   1.598549E+01   1.063149E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.827615E-01  -3.111113E-01\r\n              0.000000E+00   0.000000E+00  -3.482909E+00  -1.859376E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.071642E-01  -1.284111E-01\r\n              0.000000E+00   0.000000E+00  -1.238130E+00  -7.674567E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.887154E-01  -1.023940E-01\r\n              0.000000E+00   0.000000E+00  -1.797956E+00  -9.755431E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.007463E-02  -2.739676E-02\r\n              0.000000E+00   0.000000E+00  -2.865314E-01  -2.610184E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       11          FREQUENCY =   2.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.230625E+00   5.104005E-01\r\n              0.000000E+00   0.000000E+00   2.530954E+01   1.049710E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.370990E-01   6.066022E-01\r\n              0.000000E+00   0.000000E+00  -3.807662E+00   3.625396E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.624075E-01   2.277428E-01\r\n              0.000000E+00   0.000000E+00  -1.568295E+00   1.361119E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.301175E-01   1.388990E-01\r\n              0.000000E+00   0.000000E+00  -2.192409E+00   1.323338E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.328496E-02   2.003928E-02\r\n              0.000000E+00   0.000000E+00  -5.076640E-01   1.909211E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       12          FREQUENCY =   2.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.781764E+00  -6.818798E-02\r\n              0.000000E+00   0.000000E+00   3.664450E+01  -1.402383E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.529716E-01   9.330393E-01\r\n              0.000000E+00   0.000000E+00   2.109557E+00   5.576368E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.139250E-01   4.015257E-01\r\n              0.000000E+00   0.000000E+00   6.808803E-01   2.399743E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.138483E-03   2.590508E-01\r\n              0.000000E+00   0.000000E+00   1.084663E-02   2.468067E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.149008E-02   6.184461E-02\r\n              0.000000E+00   0.000000E+00  -1.094700E-01   5.892149E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       13          FREQUENCY =   3.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.013966E+00  -1.320209E+00\r\n              0.000000E+00   0.000000E+00   4.142004E+01  -2.715196E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.209981E+00   1.927490E-01\r\n              0.000000E+00   0.000000E+00   7.231527E+00   1.151977E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.002210E-01   1.561576E-01\r\n              0.000000E+00   0.000000E+00   2.989602E+00   9.332861E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.202039E-01   1.334554E-01\r\n              0.000000E+00   0.000000E+00   2.097959E+00   1.271476E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.996016E-02   5.144263E-02\r\n              0.000000E+00   0.000000E+00   4.759876E-01   4.901114E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       14          FREQUENCY =   3.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   8.505885E-02  -2.966458E+00\r\n              0.000000E+00   0.000000E+00   1.749355E+00  -6.100939E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.559639E-01  -1.377472E+00\r\n              0.000000E+00   0.000000E+00   3.322753E+00  -8.232541E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.468482E-01  -5.268956E-01\r\n              0.000000E+00   0.000000E+00   2.072961E+00  -3.149025E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.604778E-01  -2.019795E-01\r\n              0.000000E+00   0.000000E+00   1.528927E+00  -1.924328E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.927990E-02  -3.908950E-02\r\n              0.000000E+00   0.000000E+00   6.600534E-01  -3.724190E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       15          FREQUENCY =   3.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.434974E+00  -1.053545E+00\r\n              0.000000E+00   0.000000E+00  -2.951226E+01  -2.166764E+01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -7.219125E-01  -5.893652E-01\r\n              0.000000E+00   0.000000E+00  -4.314555E+00  -3.522377E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.342878E-01  -3.078627E-01\r\n              0.000000E+00   0.000000E+00  -1.400235E+00  -1.839961E+00   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.052467E-01  -1.057002E-01\r\n              0.000000E+00   0.000000E+00  -1.002721E+00  -1.007042E+00   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.131767E-02  -4.548838E-02\r\n              0.000000E+00   0.000000E+00  -1.078274E-01  -4.333836E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       16          FREQUENCY =   3.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.408030E-01  -1.683781E-01\r\n              0.000000E+00   0.000000E+00  -1.934894E+01  -3.462934E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.469025E-01   8.016444E-03\r\n              0.000000E+00   0.000000E+00  -3.268598E+00   4.791101E-02   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.150967E-01  -5.256270E-02\r\n              0.000000E+00   0.000000E+00  -1.285540E+00  -3.141443E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.086797E-02   6.781103E-03\r\n              0.000000E+00   0.000000E+00  -8.657304E-01   6.460588E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.308336E-02  -1.463906E-02\r\n              0.000000E+00   0.000000E+00  -2.199231E-01  -1.394714E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       17          FREQUENCY =   4.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.826490E-01   4.905881E-02\r\n              0.000000E+00   0.000000E+00  -1.198300E+01   1.008963E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.361277E-01   1.700975E-01\r\n              0.000000E+00   0.000000E+00  -2.008888E+00   1.016599E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.464518E-01   3.104208E-02\r\n              0.000000E+00   0.000000E+00  -8.752784E-01   1.855249E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.599318E-02   3.973825E-02\r\n              0.000000E+00   0.000000E+00  -5.334663E-01   3.786000E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.968419E-02  -1.138737E-03\r\n              0.000000E+00   0.000000E+00  -1.875380E-01  -1.084913E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       18          FREQUENCY =   4.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.783524E-01   1.064707E-01\r\n              0.000000E+00   0.000000E+00  -7.781349E+00   2.189718E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.002832E-01   2.098788E-01\r\n              0.000000E+00   0.000000E+00  -1.197005E+00   1.254354E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.742308E-02   5.978215E-02\r\n              0.000000E+00   0.000000E+00  -5.822551E-01   3.572918E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.165800E-02   4.822352E-02\r\n              0.000000E+00   0.000000E+00  -3.016166E-01   4.594420E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.557779E-02   4.960145E-03\r\n              0.000000E+00   0.000000E+00  -1.484150E-01   4.725702E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       19          FREQUENCY =   4.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.554521E-01   1.179657E-01\r\n              0.000000E+00   0.000000E+00  -5.253733E+00   2.426130E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.128616E-01   2.117959E-01\r\n              0.000000E+00   0.000000E+00  -6.745244E-01   1.265811E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.420644E-02   6.949525E-02\r\n              0.000000E+00   0.000000E+00  -3.837339E-01   4.153427E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.541724E-02   4.875131E-02\r\n              0.000000E+00   0.000000E+00  -1.468854E-01   4.644706E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.225461E-02   8.037665E-03\r\n              0.000000E+00   0.000000E+00  -1.167540E-01   7.657760E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       20          FREQUENCY =   4.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.769019E-01   1.144390E-01\r\n              0.000000E+00   0.000000E+00  -3.638238E+00   2.353599E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -5.428051E-02   2.009802E-01\r\n              0.000000E+00   0.000000E+00  -3.244105E-01   1.201171E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.108643E-02   7.175188E-02\r\n              0.000000E+00   0.000000E+00  -2.455557E-01   4.288296E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.279050E-03   4.648831E-02\r\n              0.000000E+00   0.000000E+00  -4.076798E-02   4.429102E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.671462E-03   9.737354E-03\r\n              0.000000E+00   0.000000E+00  -9.214336E-02   9.277113E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       21          FREQUENCY =   5.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.242331E-01   1.059692E-01\r\n              0.000000E+00   0.000000E+00  -2.555028E+00   2.179404E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.345647E-02   1.861199E-01\r\n              0.000000E+00   0.000000E+00  -8.042314E-02   1.112358E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.441947E-02   7.089436E-02\r\n              0.000000E+00   0.000000E+00  -1.459445E-01   4.237045E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.625720E-03   4.328309E-02\r\n              0.000000E+00   0.000000E+00   3.454341E-02   4.123729E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -7.639130E-03   1.075075E-02\r\n              0.000000E+00   0.000000E+00  -7.278063E-02   1.024261E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       22          FREQUENCY =   5.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -8.760464E-02   9.624889E-02\r\n              0.000000E+00   0.000000E+00  -1.801713E+00   1.979494E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.596543E-02   1.705000E-01\r\n              0.000000E+00   0.000000E+00   9.541827E-02   1.019005E+00   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.199891E-02   6.874235E-02\r\n              0.000000E+00   0.000000E+00  -7.171224E-02   4.108428E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.420868E-03   3.985499E-02\r\n              0.000000E+00   0.000000E+00   8.975581E-02   3.797123E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.000527E-03   1.140141E-02\r\n              0.000000E+00   0.000000E+00  -5.716907E-02   1.086251E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       23          FREQUENCY =   5.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.140843E-02   8.669876E-02\r\n              0.000000E+00   0.000000E+00  -1.262951E+00   1.783082E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.779411E-02   1.553883E-01\r\n              0.000000E+00   0.000000E+00   2.258789E-01   9.286878E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.456202E-03   6.611303E-02\r\n              0.000000E+00   0.000000E+00  -1.467968E-02   3.951288E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.380047E-02   3.648948E-02\r\n              0.000000E+00   0.000000E+00   1.314817E-01   3.476479E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.641787E-03   1.185360E-02\r\n              0.000000E+00   0.000000E+00  -4.422389E-02   1.129334E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       24          FREQUENCY =   5.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -4.226223E-02   7.784895E-02\r\n              0.000000E+00   0.000000E+00  -8.691828E-01   1.601073E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.441611E-02   1.412317E-01\r\n              0.000000E+00   0.000000E+00   3.252215E-01   8.440803E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.088361E-03   6.338564E-02\r\n              0.000000E+00   0.000000E+00   3.041087E-02   3.788281E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.720928E-02   3.329038E-02\r\n              0.000000E+00   0.000000E+00   1.639588E-01   3.171689E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -3.481476E-03   1.219609E-02\r\n              0.000000E+00   0.000000E+00  -3.316923E-02   1.161963E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       25          FREQUENCY =   6.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.802829E-02   6.985895E-02\r\n              0.000000E+00   0.000000E+00  -5.764419E-01   1.436748E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.738675E-02   1.281252E-01\r\n              0.000000E+00   0.000000E+00   4.027414E-01   7.657482E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.122128E-02   6.073349E-02\r\n              0.000000E+00   0.000000E+00   6.706461E-02   3.629775E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.994314E-02   3.028025E-02\r\n              0.000000E+00   0.000000E+00   1.900052E-01   2.884903E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.459987E-03   1.247897E-02\r\n              0.000000E+00   0.000000E+00  -2.343714E-02   1.188915E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       26          FREQUENCY =   6.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.730097E-02   6.273092E-02\r\n              0.000000E+00   0.000000E+00  -3.558194E-01   1.290149E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   7.775445E-02   1.160080E-01\r\n              0.000000E+00   0.000000E+00   4.647045E-01   6.933292E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.634721E-02   5.822783E-02\r\n              0.000000E+00   0.000000E+00   9.770011E-02   3.480023E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.220590E-02   2.744280E-02\r\n              0.000000E+00   0.000000E+00   2.115632E-01   2.614571E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -1.531765E-03   1.273129E-02\r\n              0.000000E+00   0.000000E+00  -1.459365E-02   1.212954E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       27          FREQUENCY =   6.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -9.122704E-03   5.640346E-02\r\n              0.000000E+00   0.000000E+00  -1.876217E-01   1.160016E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   8.624814E-02   1.047477E-01\r\n              0.000000E+00   0.000000E+00   5.154677E-01   6.260312E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.075574E-02   5.588583E-02\r\n              0.000000E+00   0.000000E+00   1.240480E-01   3.340051E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.414337E-02   2.473990E-02\r\n              0.000000E+00   0.000000E+00   2.300223E-01   2.357055E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -6.595895E-04   1.296961E-02\r\n              0.000000E+00   0.000000E+00  -6.284130E-03   1.235660E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       28          FREQUENCY =   6.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00  -2.817096E-03   5.079245E-02\r\n              0.000000E+00   0.000000E+00  -5.793809E-02   1.044618E+00   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.338781E-02   9.417382E-02\r\n              0.000000E+00   0.000000E+00   5.581381E-01   5.628358E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.466216E-02   5.369274E-02\r\n              0.000000E+00   0.000000E+00   1.473949E-01   3.208981E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.586365E-02   2.211605E-02\r\n              0.000000E+00   0.000000E+00   2.464118E-01   2.107072E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.899476E-04   1.320209E-02\r\n              0.000000E+00   0.000000E+00   1.809692E-03   1.257809E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       29          FREQUENCY =   7.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.116844E-03   4.581043E-02\r\n              0.000000E+00   0.000000E+00   4.353547E-02   9.421558E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.955249E-02   8.408135E-02\r\n              0.000000E+00   0.000000E+00   5.949818E-01   5.025173E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.823484E-02   5.160893E-02\r\n              0.000000E+00   0.000000E+00   1.687473E-01   3.084440E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.744908E-02   1.949286E-02\r\n              0.000000E+00   0.000000E+00   2.615167E-01   1.857152E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.051139E-03   1.342917E-02\r\n              0.000000E+00   0.000000E+00   1.001455E-02   1.279443E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       30          FREQUENCY =   7.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.080749E-03   4.136856E-02\r\n              0.000000E+00   0.000000E+00   1.250586E-01   8.508022E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.050145E-01   7.420872E-02\r\n              0.000000E+00   0.000000E+00   6.276261E-01   4.435131E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.161294E-02   4.956339E-02\r\n              0.000000E+00   0.000000E+00   1.889366E-01   2.962187E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.895854E-02   1.675067E-02\r\n              0.000000E+00   0.000000E+00   2.758979E-01   1.595894E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.964905E-03   1.363996E-02\r\n              0.000000E+00   0.000000E+00   1.872031E-02   1.299526E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       31          FREQUENCY =   7.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.447400E-03   3.735822E-02\r\n              0.000000E+00   0.000000E+00   1.942987E-01   7.683237E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.099283E-01   6.417671E-02\r\n              0.000000E+00   0.000000E+00   6.569932E-01   3.835562E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.491301E-02   4.742604E-02\r\n              0.000000E+00   0.000000E+00   2.086598E-01   2.834448E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.040715E-02   1.368552E-02\r\n              0.000000E+00   0.000000E+00   2.896994E-01   1.303866E-01   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.986776E-03   1.379862E-02\r\n              0.000000E+00   0.000000E+00   2.845604E-02   1.314642E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       32          FREQUENCY =   7.750000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.264586E-02   3.356681E-02\r\n              0.000000E+00   0.000000E+00   2.600798E-01   6.903483E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.141855E-01   5.335916E-02\r\n              0.000000E+00   0.000000E+00   6.824371E-01   3.189045E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.819686E-02   4.493207E-02\r\n              0.000000E+00   0.000000E+00   2.282859E-01   2.685394E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.166223E-02   9.920117E-03\r\n              0.000000E+00   0.000000E+00   3.016570E-01   9.451233E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.191944E-03   1.380064E-02\r\n              0.000000E+00   0.000000E+00   3.993809E-02   1.314834E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       33          FREQUENCY =   8.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.619847E-02   2.934010E-02\r\n              0.000000E+00   0.000000E+00   3.331440E-01   6.034204E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.167533E-01   4.080053E-02\r\n              0.000000E+00   0.000000E+00   6.977834E-01   2.438470E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.123430E-02   4.153471E-02\r\n              0.000000E+00   0.000000E+00   2.464393E-01   2.482347E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.199546E-02   4.836980E-03\r\n              0.000000E+00   0.000000E+00   3.048318E-01   4.608355E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.613033E-03   1.334281E-02\r\n              0.000000E+00   0.000000E+00   5.347731E-02   1.271216E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       34          FREQUENCY =   8.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.979174E-02   2.272154E-02\r\n              0.000000E+00   0.000000E+00   4.070452E-01   4.673003E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.138349E-01   2.699642E-02\r\n              0.000000E+00   0.000000E+00   6.803413E-01   1.613458E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.249774E-02   3.676171E-02\r\n              0.000000E+00   0.000000E+00   2.539904E-01   2.197087E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.881813E-02  -1.261694E-03\r\n              0.000000E+00   0.000000E+00   2.745603E-01  -1.202062E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.709493E-03   1.179713E-02\r\n              0.000000E+00   0.000000E+00   6.392366E-02   1.123953E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       35          FREQUENCY =   8.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.873335E-02   1.329255E-02\r\n              0.000000E+00   0.000000E+00   3.852776E-01   2.733800E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.041312E-01   2.139023E-02\r\n              0.000000E+00   0.000000E+00   6.223469E-01   1.278401E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.986052E-02   3.396872E-02\r\n              0.000000E+00   0.000000E+00   2.382289E-01   2.030162E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.106829E-02  -2.050087E-03\r\n              0.000000E+00   0.000000E+00   2.007249E-01  -1.953193E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.628857E-03   1.001178E-02\r\n              0.000000E+00   0.000000E+00   5.362808E-02   9.538568E-02   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       36          FREQUENCY =   8.750001E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.311785E-02   8.529437E-03\r\n              0.000000E+00   0.000000E+00   2.697869E-01   1.754196E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.027887E-01   2.478085E-02\r\n              0.000000E+00   0.000000E+00   6.143233E-01   1.481043E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.893133E-02   3.607936E-02\r\n              0.000000E+00   0.000000E+00   2.326755E-01   2.156306E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.883693E-02   3.294815E-03\r\n              0.000000E+00   0.000000E+00   1.794659E-01   3.139083E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.955563E-03   1.078825E-02\r\n              0.000000E+00   0.000000E+00   3.768602E-02   1.027834E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       37          FREQUENCY =   9.000000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   9.509849E-03   7.250216E-03\r\n              0.000000E+00   0.000000E+00   1.955832E-01   1.491106E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.083628E-01   2.383149E-02\r\n              0.000000E+00   0.000000E+00   6.476371E-01   1.424304E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.147367E-02   3.778587E-02\r\n              0.000000E+00   0.000000E+00   2.478699E-01   2.258296E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.136635E-02   5.857687E-03\r\n              0.000000E+00   0.000000E+00   2.035646E-01   5.580822E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   3.902249E-03   1.233781E-02\r\n              0.000000E+00   0.000000E+00   3.717806E-02   1.175466E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       38          FREQUENCY =   9.250000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   7.481626E-03   6.074779E-03\r\n              0.000000E+00   0.000000E+00   1.538700E-01   1.249363E-01   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.140772E-01   1.895181E-02\r\n              0.000000E+00   0.000000E+00   6.817895E-01   1.132666E-01   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.485193E-02   3.807312E-02\r\n              0.000000E+00   0.000000E+00   2.680603E-01   2.275464E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.410224E-02   5.822272E-03\r\n              0.000000E+00   0.000000E+00   2.296304E-01   5.547080E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.611365E-03   1.349571E-02\r\n              0.000000E+00   0.000000E+00   4.393406E-02   1.285783E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       39          FREQUENCY =   9.500000E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.867166E-03   4.528333E-03\r\n              0.000000E+00   0.000000E+00   1.206664E-01   9.313145E-02   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.188837E-01   1.238034E-02\r\n              0.000000E+00   0.000000E+00   7.105160E-01   7.399185E-02   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.828897E-02   3.761144E-02\r\n              0.000000E+00   0.000000E+00   2.886020E-01   2.247871E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.629250E-02   4.693840E-03\r\n              0.000000E+00   0.000000E+00   2.504977E-01   4.471982E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.556583E-03   1.433328E-02\r\n              0.000000E+00   0.000000E+00   5.293948E-02   1.365581E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n                                            AERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE)\r\n                              VECTOR       40          FREQUENCY =   9.750001E+00  HERTZ\r\n BOX OR                T1 / R1                       T2 / R2                       T3 / R3\r\n BODY ELMT.    REAL          IMAGINARY       REAL          IMAGINARY       REAL          IMAGINARY   \r\n0      1001   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   4.206554E-03   2.725017E-03\r\n              0.000000E+00   0.000000E+00   8.651377E-02   5.604380E-02   0.000000E+00   0.000000E+00\r\n0      1022   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   1.229903E-01   4.992227E-03\r\n              0.000000E+00   0.000000E+00   7.350593E-01   2.983630E-02   0.000000E+00   0.000000E+00\r\n0      1023   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   5.172228E-02   3.677215E-02\r\n              0.000000E+00   0.000000E+00   3.091214E-01   2.197711E-01   0.000000E+00   0.000000E+00\r\n0      1040   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   2.805060E-02   3.085883E-03\r\n              0.000000E+00   0.000000E+00   2.672477E-01   2.940026E-02   0.000000E+00   0.000000E+00\r\n0      1041   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   6.601362E-03   1.499078E-02\r\n              0.000000E+00   0.000000E+00   6.289344E-02   1.428223E-01   0.000000E+00   0.000000E+00\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              M      0.0                                                                                                      \r\n                           0.0                                                                                                      \r\n0  2.500000E-01     M      3.114450E-01                                                                                             \r\n                           4.323355E-01                                                                                             \r\n0  5.000000E-01     M      1.629601E-01                                                                                             \r\n                           1.017685E-01                                                                                             \r\n0  7.500000E-01     M      8.968991E-02                                                                                             \r\n                           3.065937E-02                                                                                             \r\n0  1.000000E+00     M      5.423544E-02                                                                                             \r\n                           9.671766E-03                                                                                             \r\n0  1.250000E+00     M      3.534052E-02                                                                                             \r\n                           2.171450E-03                                                                                             \r\n0  1.500000E+00     M      2.425301E-02                                                                                             \r\n                          -8.369849E-04                                                                                             \r\n0  1.750000E+00     M      1.712413E-02                                                                                             \r\n                          -2.090524E-03                                                                                             \r\n0  2.000000E+00     M      1.202866E-02                                                                                             \r\n                          -2.421402E-03                                                                                             \r\n0  2.250000E+00     M      8.130451E-03                                                                                             \r\n                          -1.584145E-03                                                                                             \r\n0  2.500000E+00     M      6.707335E-03                                                                                             \r\n                           4.801080E-04                                                                                             \r\n0  2.750000E+00     M      7.574859E-03                                                                                             \r\n                           6.491101E-04                                                                                             \r\n0  3.000000E+00     M      8.033418E-03                                                                                             \r\n                          -1.224297E-03                                                                                             \r\n0  3.250000E+00     M      5.346889E-03                                                                                             \r\n                          -4.514555E-03                                                                                             \r\n0  3.500000E+00     M      1.872982E-03                                                                                             \r\n                          -2.486753E-03                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     M      1.737488E-03                                                                                             \r\n                          -1.073876E-03                                                                                             \r\n0  4.000000E+00     M      1.747597E-03                                                                                             \r\n                          -6.268192E-04                                                                                             \r\n0  4.250000E+00     M      1.671045E-03                                                                                             \r\n                          -4.479946E-04                                                                                             \r\n0  4.500000E+00     M      1.554514E-03                                                                                             \r\n                          -3.568822E-04                                                                                             \r\n0  4.750000E+00     M      1.427856E-03                                                                                             \r\n                          -3.006621E-04                                                                                             \r\n0  5.000000E+00     M      1.304476E-03                                                                                             \r\n                          -2.608735E-04                                                                                             \r\n0  5.250000E+00     M      1.189762E-03                                                                                             \r\n                          -2.300983E-04                                                                                             \r\n0  5.500000E+00     M      1.085429E-03                                                                                             \r\n                          -2.049874E-04                                                                                             \r\n0  5.750000E+00     M      9.915426E-04                                                                                             \r\n                          -1.838585E-04                                                                                             \r\n0  6.000000E+00     M      9.074579E-04                                                                                             \r\n                          -1.657727E-04                                                                                             \r\n0  6.250000E+00     M      8.322669E-04                                                                                             \r\n                          -1.501443E-04                                                                                             \r\n0  6.500000E+00     M      7.650061E-04                                                                                             \r\n                          -1.365720E-04                                                                                             \r\n0  6.750000E+00     M      7.047513E-04                                                                                             \r\n                          -1.247503E-04                                                                                             \r\n0  7.000000E+00     M      6.506611E-04                                                                                             \r\n                          -1.144363E-04                                                                                             \r\n0  7.250000E+00     M      6.019893E-04                                                                                             \r\n                          -1.054259E-04                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     M      5.580896E-04                                                                                             \r\n                          -9.753803E-05                                                                                             \r\n0  7.750000E+00     M      5.184174E-04                                                                                             \r\n                          -9.062186E-05                                                                                             \r\n0  8.000000E+00     M      4.825436E-04                                                                                             \r\n                          -8.457301E-05                                                                                             \r\n0  8.250000E+00     M      4.501078E-04                                                                                             \r\n                          -7.946410E-05                                                                                             \r\n0  8.500000E+00     M      4.203345E-04                                                                                             \r\n                          -7.548278E-05                                                                                             \r\n0  8.750000E+00     M      3.924955E-04                                                                                             \r\n                          -7.185632E-05                                                                                             \r\n0  9.000000E+00     M      3.669632E-04                                                                                             \r\n                          -6.824667E-05                                                                                             \r\n0  9.250000E+00     M      3.436472E-04                                                                                             \r\n                          -6.489589E-05                                                                                             \r\n0  9.500000E+00     M      3.222628E-04                                                                                             \r\n                          -6.184547E-05                                                                                             \r\n0  9.750000E+00     M      3.025868E-04                                                                                             \r\n                          -5.904782E-05                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              M      0.0                                                                                                      \r\n                           0.0                                                                                                      \r\n0  2.500000E-01     M     -1.020417E-02                                                                                             \r\n                          -1.358562E-02                                                                                             \r\n0  5.000000E-01     M     -2.198427E-02                                                                                             \r\n                          -1.249901E-02                                                                                             \r\n0  7.500000E-01     M     -2.867539E-02                                                                                             \r\n                          -7.739765E-03                                                                                             \r\n0  1.000000E+00     M     -3.328894E-02                                                                                             \r\n                          -2.687760E-03                                                                                             \r\n0  1.250000E+00     M     -3.767930E-02                                                                                             \r\n                           2.816204E-03                                                                                             \r\n0  1.500000E+00     M     -4.284607E-02                                                                                             \r\n                           9.970486E-03                                                                                             \r\n0  1.750000E+00     M     -4.917197E-02                                                                                             \r\n                           2.139654E-02                                                                                             \r\n0  2.000000E+00     M     -5.429920E-02                                                                                             \r\n                           4.303339E-02                                                                                             \r\n0  2.250000E+00     M     -4.121246E-02                                                                                             \r\n                           8.200699E-02                                                                                             \r\n0  2.500000E+00     M      1.978656E-02                                                                                             \r\n                           1.001137E-01                                                                                             \r\n0  2.750000E+00     M      6.149106E-02                                                                                             \r\n                           5.837946E-02                                                                                             \r\n0  3.000000E+00     M      6.617086E-02                                                                                             \r\n                           1.728431E-02                                                                                             \r\n0  3.250000E+00     M      4.328691E-02                                                                                             \r\n                          -2.194090E-02                                                                                             \r\n0  3.500000E+00     M      1.132768E-02                                                                                             \r\n                          -1.295315E-02                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     M      8.053047E-03                                                                                             \r\n                          -3.783827E-03                                                                                             \r\n0  4.000000E+00     M      7.507435E-03                                                                                             \r\n                          -1.265001E-03                                                                                             \r\n0  4.250000E+00     M      6.879327E-03                                                                                             \r\n                          -5.136989E-04                                                                                             \r\n0  4.500000E+00     M      6.193020E-03                                                                                             \r\n                          -2.675925E-04                                                                                             \r\n0  4.750000E+00     M      5.536656E-03                                                                                             \r\n                          -1.830470E-04                                                                                             \r\n0  5.000000E+00     M      4.945181E-03                                                                                             \r\n                          -1.532143E-04                                                                                             \r\n0  5.250000E+00     M      4.425630E-03                                                                                             \r\n                          -1.418638E-04                                                                                             \r\n0  5.500000E+00     M      3.973910E-03                                                                                             \r\n                          -1.362466E-04                                                                                             \r\n0  5.750000E+00     M      3.582306E-03                                                                                             \r\n                          -1.319923E-04                                                                                             \r\n0  6.000000E+00     M      3.242557E-03                                                                                             \r\n                          -1.278116E-04                                                                                             \r\n0  6.250000E+00     M      2.947030E-03                                                                                             \r\n                          -1.235187E-04                                                                                             \r\n0  6.500000E+00     M      2.689070E-03                                                                                             \r\n                          -1.193029E-04                                                                                             \r\n0  6.750000E+00     M      2.463047E-03                                                                                             \r\n                          -1.154322E-04                                                                                             \r\n0  7.000000E+00     M      2.264263E-03                                                                                             \r\n                          -1.122043E-04                                                                                             \r\n0  7.250000E+00     M      2.088831E-03                                                                                             \r\n                          -1.099666E-04                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       2\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     M      1.933516E-03                                                                                             \r\n                          -1.092302E-04                                                                                             \r\n0  7.750000E+00     M      1.795426E-03                                                                                             \r\n                          -1.110078E-04                                                                                             \r\n0  8.000000E+00     M      1.670859E-03                                                                                             \r\n                          -1.172985E-04                                                                                             \r\n0  8.250000E+00     M      1.551244E-03                                                                                             \r\n                          -1.292021E-04                                                                                             \r\n0  8.500000E+00     M      1.427606E-03                                                                                             \r\n                          -1.318608E-04                                                                                             \r\n0  8.750000E+00     M      1.322734E-03                                                                                             \r\n                          -1.156306E-04                                                                                             \r\n0  9.000000E+00     M      1.240222E-03                                                                                             \r\n                          -1.028858E-04                                                                                             \r\n0  9.250000E+00     M      1.167745E-03                                                                                             \r\n                          -9.642880E-05                                                                                             \r\n0  9.500000E+00     M      1.101493E-03                                                                                             \r\n                          -9.301616E-05                                                                                             \r\n0  9.750000E+00     M      1.040576E-03                                                                                             \r\n                          -9.093717E-05                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              M      0.0                                                                                                      \r\n                           0.0                                                                                                      \r\n0  2.500000E-01     M     -1.175835E-06                                                                                             \r\n                          -1.685480E-06                                                                                             \r\n0  5.000000E-01     M     -2.497567E-06                                                                                             \r\n                          -1.662873E-06                                                                                             \r\n0  7.500000E-01     M     -3.133872E-06                                                                                             \r\n                          -1.219106E-06                                                                                             \r\n0  1.000000E+00     M     -3.428145E-06                                                                                             \r\n                          -7.935174E-07                                                                                             \r\n0  1.250000E+00     M     -3.571089E-06                                                                                             \r\n                          -4.162946E-07                                                                                             \r\n0  1.500000E+00     M     -3.631021E-06                                                                                             \r\n                          -4.677236E-08                                                                                             \r\n0  1.750000E+00     M     -3.597116E-06                                                                                             \r\n                           3.785961E-07                                                                                             \r\n0  2.000000E+00     M     -3.318364E-06                                                                                             \r\n                           9.220487E-07                                                                                             \r\n0  2.250000E+00     M     -2.339189E-06                                                                                             \r\n                           1.320135E-06                                                                                             \r\n0  2.500000E+00     M     -1.064916E-06                                                                                             \r\n                           1.252695E-07                                                                                             \r\n0  2.750000E+00     M     -1.936275E-06                                                                                             \r\n                          -1.784042E-06                                                                                             \r\n0  3.000000E+00     M     -4.402194E-06                                                                                             \r\n                          -2.267188E-06                                                                                             \r\n0  3.250000E+00     M     -6.626625E-06                                                                                             \r\n                           1.294211E-06                                                                                             \r\n0  3.500000E+00     M     -3.090225E-06                                                                                             \r\n                           2.978114E-06                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     M     -1.916620E-06                                                                                             \r\n                           1.794110E-06                                                                                             \r\n0  4.000000E+00     M     -1.746473E-06                                                                                             \r\n                           1.090984E-06                                                                                             \r\n0  4.250000E+00     M     -1.760633E-06                                                                                             \r\n                           7.011125E-07                                                                                             \r\n0  4.500000E+00     M     -1.808437E-06                                                                                             \r\n                           4.613964E-07                                                                                             \r\n0  4.750000E+00     M     -1.858034E-06                                                                                             \r\n                           2.992472E-07                                                                                             \r\n0  5.000000E+00     M     -1.902610E-06                                                                                             \r\n                           1.807258E-07                                                                                             \r\n0  5.250000E+00     M     -1.941446E-06                                                                                             \r\n                           8.853200E-08                                                                                             \r\n0  5.500000E+00     M     -1.975335E-06                                                                                             \r\n                           1.314276E-08                                                                                             \r\n0  5.750000E+00     M     -2.005331E-06                                                                                             \r\n                          -5.102714E-08                                                                                             \r\n0  6.000000E+00     M     -2.032439E-06                                                                                             \r\n                          -1.074393E-07                                                                                             \r\n0  6.250000E+00     M     -2.057573E-06                                                                                             \r\n                          -1.583529E-07                                                                                             \r\n0  6.500000E+00     M     -2.081588E-06                                                                                             \r\n                          -2.053134E-07                                                                                             \r\n0  6.750000E+00     M     -2.105380E-06                                                                                             \r\n                          -2.494357E-07                                                                                             \r\n0  7.000000E+00     M     -2.130034E-06                                                                                             \r\n                          -2.915218E-07                                                                                             \r\n0  7.250000E+00     M     -2.157094E-06                                                                                             \r\n                          -3.320518E-07                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                               C O M P L E X   D I S P L A C E M E N T   V E C T O R  (SOLUTION SET)\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     M     -2.189083E-06                                                                                             \r\n                          -3.708340E-07                                                                                             \r\n0  7.750000E+00     M     -2.230408E-06                                                                                             \r\n                          -4.054728E-07                                                                                             \r\n0  8.000000E+00     M     -2.287232E-06                                                                                             \r\n                          -4.255896E-07                                                                                             \r\n0  8.250000E+00     M     -2.350083E-06                                                                                             \r\n                          -3.993948E-07                                                                                             \r\n0  8.500000E+00     M     -2.336881E-06                                                                                             \r\n                          -3.276002E-07                                                                                             \r\n0  8.750000E+00     M     -2.259446E-06                                                                                             \r\n                          -3.396210E-07                                                                                             \r\n0  9.000000E+00     M     -2.228757E-06                                                                                             \r\n                          -4.066948E-07                                                                                             \r\n0  9.250000E+00     M     -2.232742E-06                                                                                             \r\n                          -4.721832E-07                                                                                             \r\n0  9.500000E+00     M     -2.251068E-06                                                                                             \r\n                          -5.303115E-07                                                                                             \r\n0  9.750000E+00     M     -2.276633E-06                                                                                             \r\n                          -5.843483E-07                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        1( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    1\r\n\r\n\r\n     CURVE  TITLE =     FIRST MODE (PLUNGE)                                                                                        \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.114450E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.114450E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        1( 7)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    1\r\n\r\n\r\n     CURVE  TITLE =     FIRST MODE (PLUNGE)                                                                                        \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.514555E-03 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.323355E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.514555E-03 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.323355E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        2( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    2\r\n\r\n\r\n     CURVE  TITLE =     SECOND MODE (WING BENDING)                                                                                 \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -5.429920E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.617086E-02 AT X =   3.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -5.429920E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.617086E-02 AT X =   3.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        2( 7)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    2\r\n\r\n\r\n     CURVE  TITLE =     SECOND MODE (WING BENDING)                                                                                 \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.194090E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.001137E-01 AT X =   2.500000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.194090E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.001137E-01 AT X =   2.500000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE       12( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    3\r\n\r\n\r\n     CURVE  TITLE =     TWELFTH MODE  (AILERON)                                                                                    \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.626625E-06 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.626625E-06 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE       12( 7)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    3\r\n\r\n\r\n     CURVE  TITLE =     TWELFTH MODE  (AILERON)                                                                                    \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.267188E-06 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.978114E-06 AT X =   3.500000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.267188E-06 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.978114E-06 AT X =   3.500000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             FIRST MODE (PLUNGE)                                                                                                   \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -9.999999E-02                                       2.000000E-01                                       5.000000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                   0                                      I                                                          I\r\n  2.5000E-01 I                                                          I                     *                       0            I\r\n  5.0000E-01 I                                       0           *      I                                                          I\r\n  7.5000E-01 I                         0          *                     I                                                          I\r\n  1.0000E+00 I                     0       *                            I                                                          I\r\n  1.2500E+00 I                   0      *                               I                                                          I\r\n  1.5000E+00 I                   0   *                                  I                                                          I\r\n  1.7500E+00 I                  0   *                                   I                                                          I\r\n  2.0000E+00 I                  0  *                                    I                                                          I\r\n  2.2500E+00 I                  0 *                                     I                                                          I\r\n  2.5000E+00 I                   0*                                     I                                                          I\r\n  2.7500E+00 I                   0*                                     I                                                          I\r\n  3.0000E+00 I                  0 *                                     I                                                          I\r\n  3.2500E+00 I                  0 *                                     I                                                          I\r\n  3.5000E+00 I                  0*                                      I                                                          I\r\n  3.7500E+00 I                  0*                                      I                                                          I\r\n  4.0000E+00 I                   0                                      I                                                          I\r\n  4.2500E+00 I                   0                                      I                                                          I\r\n  4.5000E+00 I                   0                                      I                                                          I\r\n  4.7500E+00 I                   0                                      I                                                          I\r\n  5.0000E+00 I                   0                                      I                                                          I\r\n  5.2500E+00 I                   0                                      I                                                          I\r\n  5.5000E+00 I                   0                                      I                                                          I\r\n  5.7500E+00 I                   0                                      I                                                          I\r\n  6.0000E+00 I                   0                                      I                                                          I\r\n  6.2500E+00 I                   0                                      I                                                          I\r\n  6.5000E+00 I                   0                                      I                                                          I\r\n  6.7500E+00 I                   0                                      I                                                          I\r\n  7.0000E+00 I                   0                                      I                                                          I\r\n  7.2500E+00 I                   0                                      I                                                          I\r\n1 7.5000E+00 I                   0                                      I                                                          I\r\n  7.7500E+00 I                   0                                      I                                                          I\r\n  8.0000E+00 I                   0                                      I                                                          I\r\n  8.2500E+00 I                   0                                      I                                                          I\r\n  8.5000E+00 I                   0                                      I                                                          I\r\n  8.7500E+00 I                   0                                      I                                                          I\r\n  9.0000E+00 I                   0                                      I                                                          I\r\n  9.2500E+00 I                   0                                      I                                                          I\r\n  9.5000E+00 I                   0                                      I                                                          I\r\n  9.7500E+00 I                   0                                      I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *   *  \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             SECOND MODE (WING BENDING)                                                                                            \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -6.000000E-02                                       3.000000E-02                                       1.200000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                      0                   I                                                          I\r\n  2.5000E-01 I                             0  *                         I                                                          I\r\n  5.0000E-01 I                        *     0                           I                                                          I\r\n  7.5000E-01 I                    *            0                        I                                                          I\r\n  1.0000E+00 I                 *                   0                    I                                                          I\r\n  1.2500E+00 I              *                         0                 I                                                          I\r\n  1.5000E+00 I          *                                  0            I                                                          I\r\n  1.7500E+00 I      *                                             0     I                                                          I\r\n  2.0000E+00 I   *                                                      I        0                                                 I\r\n  2.2500E+00 I           *                                              I                                 0                        I\r\n  2.5000E+00 I                                                   *      I                                             0            I\r\n  2.7500E+00 I                                                          I                  0 *                                     I\r\n  3.0000E+00 I                                                  0       I                       *                                  I\r\n  3.2500E+00 I                        0                                 I        *                                                 I\r\n  3.5000E+00 I                              0               *           I                                                          I\r\n  3.7500E+00 I                                    0       *             I                                                          I\r\n  4.0000E+00 I                                      0    *              I                                                          I\r\n  4.2500E+00 I                                      0    *              I                                                          I\r\n  4.5000E+00 I                                      0   *               I                                                          I\r\n  4.7500E+00 I                                      0   *               I                                                          I\r\n  5.0000E+00 I                                      0   *               I                                                          I\r\n  5.2500E+00 I                                      0  *                I                                                          I\r\n  5.5000E+00 I                                      0  *                I                                                          I\r\n  5.7500E+00 I                                      0  *                I                                                          I\r\n  6.0000E+00 I                                      0 *                 I                                                          I\r\n  6.2500E+00 I                                      0 *                 I                                                          I\r\n  6.5000E+00 I                                      0 *                 I                                                          I\r\n  6.7500E+00 I                                      0 *                 I                                                          I\r\n  7.0000E+00 I                                      0 *                 I                                                          I\r\n  7.2500E+00 I                                      0 *                 I                                                          I\r\n1 7.5000E+00 I                                      0 *                 I                                                          I\r\n  7.7500E+00 I                                      0 *                 I                                                          I\r\n  8.0000E+00 I                                      0*                  I                                                          I\r\n  8.2500E+00 I                                      0*                  I                                                          I\r\n  8.5000E+00 I                                      0*                  I                                                          I\r\n  8.7500E+00 I                                      0*                  I                                                          I\r\n  9.0000E+00 I                                      0*                  I                                                          I\r\n  9.2500E+00 I                                      0*                  I                                                          I\r\n  9.5000E+00 I                                      0*                  I                                                          I\r\n  9.7500E+00 I                                      0*                  I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *   ***\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             TWELFTH MODE  (AILERON)                                                                                               \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -8.000000E-06                                      -2.000000E-06                                       4.000000E-06 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                   0                                      I\r\n  2.5000E-01 I                                                          I  0    *                                                  I\r\n  5.0000E-01 I                                                     *    I  0                                                       I\r\n  7.5000E-01 I                                               *          I       0                                                  I\r\n  1.0000E+00 I                                            *             I           0                                              I\r\n  1.2500E+00 I                                           *              I               0                                          I\r\n  1.5000E+00 I                                          *               I                  0                                       I\r\n  1.7500E+00 I                                          *               I                      0                                   I\r\n  2.0000E+00 I                                             *            I                            0                             I\r\n  2.2500E+00 I                                                       *  I                                0                         I\r\n  2.5000E+00 I                                                          I        *           0                                     I\r\n  2.7500E+00 I                                                          I*0                                                        I\r\n  3.0000E+00 I                                  *                    0  I                                                          I\r\n  3.2500E+00 I             *                                            I                               0                          I\r\n  3.5000E+00 I                                               *          I                                                0         I\r\n  3.7500E+00 I                                                          I*                                   0                     I\r\n  4.0000E+00 I                                                          I *                           0                            I\r\n  4.2500E+00 I                                                          I *                        0                               I\r\n  4.5000E+00 I                                                          I *                     0                                  I\r\n  4.7500E+00 I                                                          I*                     0                                   I\r\n  5.0000E+00 I                                                          I*                   0                                     I\r\n  5.2500E+00 I                                                          I*                   0                                     I\r\n  5.5000E+00 I                                                          *                   0                                      I\r\n  5.7500E+00 I                                                          *                  0                                       I\r\n  6.0000E+00 I                                                          *                  0                                       I\r\n  6.2500E+00 I                                                         *I                 0                                        I\r\n  6.5000E+00 I                                                         *I                 0                                        I\r\n  6.7500E+00 I                                                         *I                0                                         I\r\n  7.0000E+00 I                                                         *I                0                                         I\r\n  7.2500E+00 I                                                        * I               0                                          I\r\n1 7.5000E+00 I                                                        * I               0                                          I\r\n  7.7500E+00 I                                                        * I               0                                          I\r\n  8.0000E+00 I                                                       *  I              0                                           I\r\n  8.2500E+00 I                                                       *  I               0                                          I\r\n  8.5000E+00 I                                                       *  I               0                                          I\r\n  8.7500E+00 I                                                       *  I               0                                          I\r\n  9.0000E+00 I                                                        * I               0                                          I\r\n  9.2500E+00 I                                                        * I              0                                           I\r\n  9.5000E+00 I                                                        * I             0                                            I\r\n  9.7500E+00 I                                                       *  I             0                                            I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED\r\n0*** USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            3.126528E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.339400E-01   0.0            0.0            0.0                           \r\n0  5.000000E-01     G      0.0            0.0            1.655679E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.032435E-01   0.0            0.0            0.0                           \r\n0  7.500000E-01     G      0.0            0.0            9.310263E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.156764E-02   0.0            0.0            0.0                           \r\n0  1.000000E+00     G      0.0            0.0            5.821524E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.973172E-03   0.0            0.0            0.0                           \r\n0  1.250000E+00     G      0.0            0.0            3.987122E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.802180E-03   0.0            0.0            0.0                           \r\n0  1.500000E+00     G      0.0            0.0            2.944019E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.092698E-03   0.0            0.0            0.0                           \r\n0  1.750000E+00     G      0.0            0.0            2.312076E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.783204E-03   0.0            0.0            0.0                           \r\n0  2.000000E+00     G      0.0            0.0            1.868672E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.865692E-03   0.0            0.0            0.0                           \r\n0  2.250000E+00     G      0.0            0.0            1.311415E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.202622E-02   0.0            0.0            0.0                           \r\n0  2.500000E+00     G      0.0            0.0            3.804375E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.230903E-02   0.0            0.0            0.0                           \r\n0  2.750000E+00     G      0.0            0.0           -8.311295E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.701591E-03   0.0            0.0            0.0                           \r\n0  3.000000E+00     G      0.0            0.0           -1.098738E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.978356E-03   0.0            0.0            0.0                           \r\n0  3.250000E+00     G      0.0            0.0           -3.313963E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.923027E-04   0.0            0.0            0.0                           \r\n0  3.500000E+00     G      0.0            0.0            8.136989E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.665542E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            9.681137E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.284996E-04   0.0            0.0            0.0                           \r\n0  4.000000E+00     G      0.0            0.0            9.388528E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.910761E-04   0.0            0.0            0.0                           \r\n0  4.250000E+00     G      0.0            0.0            8.766251E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.390794E-04   0.0            0.0            0.0                           \r\n0  4.500000E+00     G      0.0            0.0            8.062983E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.919333E-04   0.0            0.0            0.0                           \r\n0  4.750000E+00     G      0.0            0.0            7.358552E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.519622E-04   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            6.687205E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.183359E-04   0.0            0.0            0.0                           \r\n0  5.250000E+00     G      0.0            0.0            6.063642E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.898850E-04   0.0            0.0            0.0                           \r\n0  5.500000E+00     G      0.0            0.0            5.492695E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.656119E-04   0.0            0.0            0.0                           \r\n0  5.750000E+00     G      0.0            0.0            4.974164E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.447319E-04   0.0            0.0            0.0                           \r\n0  6.000000E+00     G      0.0            0.0            4.505382E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.266295E-04   0.0            0.0            0.0                           \r\n0  6.250000E+00     G      0.0            0.0            4.082677E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.108096E-04   0.0            0.0            0.0                           \r\n0  6.500000E+00     G      0.0            0.0            3.702226E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.686207E-05   0.0            0.0            0.0                           \r\n0  6.750000E+00     G      0.0            0.0            3.360605E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -8.443289E-05   0.0            0.0            0.0                           \r\n0  7.000000E+00     G      0.0            0.0            3.055331E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.321160E-05   0.0            0.0            0.0                           \r\n0  7.250000E+00     G      0.0            0.0            2.785601E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.293232E-05   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       1\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            2.553794E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.343485E-05   0.0            0.0            0.0                           \r\n0  7.750000E+00     G      0.0            0.0            2.368539E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.498876E-05   0.0            0.0            0.0                           \r\n0  8.000000E+00     G      0.0            0.0            2.247913E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.971007E-05   0.0            0.0            0.0                           \r\n0  8.250000E+00     G      0.0            0.0            2.185162E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.588740E-05   0.0            0.0            0.0                           \r\n0  8.500000E+00     G      0.0            0.0            1.977264E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.832081E-05   0.0            0.0            0.0                           \r\n0  8.750000E+00     G      0.0            0.0            1.571680E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.480077E-05   0.0            0.0            0.0                           \r\n0  9.000000E+00     G      0.0            0.0            1.253172E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.559999E-05   0.0            0.0            0.0                           \r\n0  9.250000E+00     G      0.0            0.0            1.023952E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.526184E-05   0.0            0.0            0.0                           \r\n0  9.500000E+00     G      0.0            0.0            8.349407E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.645049E-05   0.0            0.0            0.0                           \r\n0  9.750000E+00     G      0.0            0.0            6.634438E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.882693E-05   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       9\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            3.009413E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.183691E-01   0.0            0.0            0.0                           \r\n0  5.000000E-01     G      0.0            0.0            1.403604E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.895625E-02   0.0            0.0            0.0                           \r\n0  7.500000E-01     G      0.0            0.0            6.027050E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.277595E-02   0.0            0.0            0.0                           \r\n0  1.000000E+00     G      0.0            0.0            2.017875E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.002943E-03   0.0            0.0            0.0                           \r\n0  1.250000E+00     G      0.0            0.0           -3.064563E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.151837E-03   0.0            0.0            0.0                           \r\n0  1.500000E+00     G      0.0            0.0           -1.921153E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.425146E-03   0.0            0.0            0.0                           \r\n0  1.750000E+00     G      0.0            0.0           -3.246129E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.968730E-02   0.0            0.0            0.0                           \r\n0  2.000000E+00     G      0.0            0.0           -4.231660E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.093817E-02   0.0            0.0            0.0                           \r\n0  2.250000E+00     G      0.0            0.0           -3.269433E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.016153E-02   0.0            0.0            0.0                           \r\n0  2.500000E+00     G      0.0            0.0            2.626705E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.916788E-02   0.0            0.0            0.0                           \r\n0  2.750000E+00     G      0.0            0.0            6.722347E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.774097E-02   0.0            0.0            0.0                           \r\n0  3.000000E+00     G      0.0            0.0            7.123531E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.630418E-02   0.0            0.0            0.0                           \r\n0  3.250000E+00     G      0.0            0.0            4.715220E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.347680E-02   0.0            0.0            0.0                           \r\n0  3.500000E+00     G      0.0            0.0            1.407226E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.402180E-02   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       9\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            1.037490E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.562517E-03   0.0            0.0            0.0                           \r\n0  4.000000E+00     G      0.0            0.0            9.488233E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.930025E-03   0.0            0.0            0.0                           \r\n0  4.250000E+00     G      0.0            0.0            8.558088E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.111525E-03   0.0            0.0            0.0                           \r\n0  4.500000E+00     G      0.0            0.0            7.608646E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -8.150103E-04   0.0            0.0            0.0                           \r\n0  4.750000E+00     G      0.0            0.0            6.724573E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.891829E-04   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            5.935688E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.248089E-04   0.0            0.0            0.0                           \r\n0  5.250000E+00     G      0.0            0.0            5.243824E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.847552E-04   0.0            0.0            0.0                           \r\n0  5.500000E+00     G      0.0            0.0            4.640140E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.558516E-04   0.0            0.0            0.0                           \r\n0  5.750000E+00     G      0.0            0.0            4.112692E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.335125E-04   0.0            0.0            0.0                           \r\n0  6.000000E+00     G      0.0            0.0            3.649385E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.163694E-04   0.0            0.0            0.0                           \r\n0  6.250000E+00     G      0.0            0.0            3.238925E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.042846E-04   0.0            0.0            0.0                           \r\n0  6.500000E+00     G      0.0            0.0            2.870847E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.976285E-04   0.0            0.0            0.0                           \r\n0  6.750000E+00     G      0.0            0.0            2.535035E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.969482E-04   0.0            0.0            0.0                           \r\n0  7.000000E+00     G      0.0            0.0            2.220727E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.027455E-04   0.0            0.0            0.0                           \r\n0  7.250000E+00     G      0.0            0.0            1.914622E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.147865E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =       9\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            1.597114E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.295710E-04   0.0            0.0            0.0                           \r\n0  7.750000E+00     G      0.0            0.0            1.235250E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.304604E-04   0.0            0.0            0.0                           \r\n0  8.000000E+00     G      0.0            0.0            7.800313E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.485172E-04   0.0            0.0            0.0                           \r\n0  8.250000E+00     G      0.0            0.0            2.749205E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.191623E-05   0.0            0.0            0.0                           \r\n0  8.500000E+00     G      0.0            0.0            2.702591E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.771376E-04   0.0            0.0            0.0                           \r\n0  8.750000E+00     G      0.0            0.0            7.650936E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.970996E-04   0.0            0.0            0.0                           \r\n0  9.000000E+00     G      0.0            0.0            9.989027E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.269410E-04   0.0            0.0            0.0                           \r\n0  9.250000E+00     G      0.0            0.0            1.019709E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.573369E-04   0.0            0.0            0.0                           \r\n0  9.500000E+00     G      0.0            0.0            9.624558E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.428867E-04   0.0            0.0            0.0                           \r\n0  9.750000E+00     G      0.0            0.0            8.795383E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.700672E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      10\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            3.018999E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.196384E-01   0.0            0.0            0.0                           \r\n0  5.000000E-01     G      0.0            0.0            1.423565E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.007952E-02   0.0            0.0            0.0                           \r\n0  7.500000E-01     G      0.0            0.0            6.274033E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.343099E-02   0.0            0.0            0.0                           \r\n0  1.000000E+00     G      0.0            0.0            2.282928E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.214994E-03   0.0            0.0            0.0                           \r\n0  1.250000E+00     G      0.0            0.0           -3.820162E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.977893E-03   0.0            0.0            0.0                           \r\n0  1.500000E+00     G      0.0            0.0           -1.660451E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            8.913625E-03   0.0            0.0            0.0                           \r\n0  1.750000E+00     G      0.0            0.0           -3.005930E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.890371E-02   0.0            0.0            0.0                           \r\n0  2.000000E+00     G      0.0            0.0           -4.031666E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.008904E-02   0.0            0.0            0.0                           \r\n0  2.250000E+00     G      0.0            0.0           -3.110466E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            7.998531E-02   0.0            0.0            0.0                           \r\n0  2.500000E+00     G      0.0            0.0            2.912802E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.003403E-01   0.0            0.0            0.0                           \r\n0  2.750000E+00     G      0.0            0.0            7.294210E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.793918E-02   0.0            0.0            0.0                           \r\n0  3.000000E+00     G      0.0            0.0            7.893202E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.231949E-02   0.0            0.0            0.0                           \r\n0  3.250000E+00     G      0.0            0.0            4.912619E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.429494E-02   0.0            0.0            0.0                           \r\n0  3.500000E+00     G      0.0            0.0            9.818899E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.886165E-02   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      10\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            7.504333E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.016524E-03   0.0            0.0            0.0                           \r\n0  4.000000E+00     G      0.0            0.0            7.836235E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.426225E-03   0.0            0.0            0.0                           \r\n0  4.250000E+00     G      0.0            0.0            7.647485E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.292309E-03   0.0            0.0            0.0                           \r\n0  4.500000E+00     G      0.0            0.0            7.165889E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -8.835110E-04   0.0            0.0            0.0                           \r\n0  4.750000E+00     G      0.0            0.0            6.594483E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.213202E-04   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            6.025096E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.520180E-04   0.0            0.0            0.0                           \r\n0  5.250000E+00     G      0.0            0.0            5.493636E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.207235E-04   0.0            0.0            0.0                           \r\n0  5.500000E+00     G      0.0            0.0            5.011145E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.065614E-04   0.0            0.0            0.0                           \r\n0  5.750000E+00     G      0.0            0.0            4.577909E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.014505E-04   0.0            0.0            0.0                           \r\n0  6.000000E+00     G      0.0            0.0            4.189701E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.024435E-04   0.0            0.0            0.0                           \r\n0  6.250000E+00     G      0.0            0.0            3.840476E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.087497E-04   0.0            0.0            0.0                           \r\n0  6.500000E+00     G      0.0            0.0            3.523374E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.205646E-04   0.0            0.0            0.0                           \r\n0  6.750000E+00     G      0.0            0.0            3.230802E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.385186E-04   0.0            0.0            0.0                           \r\n0  7.000000E+00     G      0.0            0.0            2.953760E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.633633E-04   0.0            0.0            0.0                           \r\n0  7.250000E+00     G      0.0            0.0            2.680114E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.952455E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      10\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            2.390814E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.311609E-04   0.0            0.0            0.0                           \r\n0  7.750000E+00     G      0.0            0.0            2.052518E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.549815E-04   0.0            0.0            0.0                           \r\n0  8.000000E+00     G      0.0            0.0            1.613934E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.972880E-04   0.0            0.0            0.0                           \r\n0  8.250000E+00     G      0.0            0.0            1.114805E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.294027E-04   0.0            0.0            0.0                           \r\n0  8.500000E+00     G      0.0            0.0            1.119566E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.111269E-04   0.0            0.0            0.0                           \r\n0  8.750000E+00     G      0.0            0.0            1.649132E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.290962E-04   0.0            0.0            0.0                           \r\n0  9.000000E+00     G      0.0            0.0            1.919704E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.379462E-04   0.0            0.0            0.0                           \r\n0  9.250000E+00     G      0.0            0.0            1.971277E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.397888E-04   0.0            0.0            0.0                           \r\n0  9.500000E+00     G      0.0            0.0            1.941347E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.371209E-05   0.0            0.0            0.0                           \r\n0  9.750000E+00     G      0.0            0.0            1.884305E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.321323E-05   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            3.132168E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.346990E-01   0.0            0.0            0.0                           \r\n0  5.000000E-01     G      0.0            0.0            1.667741E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.039466E-01   0.0            0.0            0.0                           \r\n0  7.500000E-01     G      0.0            0.0            9.465816E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.201625E-02   0.0            0.0            0.0                           \r\n0  1.000000E+00     G      0.0            0.0            5.999244E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.016093E-02   0.0            0.0            0.0                           \r\n0  1.250000E+00     G      0.0            0.0            4.184164E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.722401E-03   0.0            0.0            0.0                           \r\n0  1.500000E+00     G      0.0            0.0            3.162564E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.495179E-03   0.0            0.0            0.0                           \r\n0  1.750000E+00     G      0.0            0.0            2.556290E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.666076E-03   0.0            0.0            0.0                           \r\n0  2.000000E+00     G      0.0            0.0            2.134022E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.611267E-03   0.0            0.0            0.0                           \r\n0  2.250000E+00     G      0.0            0.0            1.530139E-02   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.527301E-02   0.0            0.0            0.0                           \r\n0  2.500000E+00     G      0.0            0.0            3.802375E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.626125E-02   0.0            0.0            0.0                           \r\n0  2.750000E+00     G      0.0            0.0           -2.172605E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -9.264422E-03   0.0            0.0            0.0                           \r\n0  3.000000E+00     G      0.0            0.0           -2.415164E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.597685E-03   0.0            0.0            0.0                           \r\n0  3.250000E+00     G      0.0            0.0           -1.798836E-03   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.841834E-03   0.0            0.0            0.0                           \r\n0  3.500000E+00     G      0.0            0.0           -4.281405E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -7.824706E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            1.053879E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.167864E-04   0.0            0.0            0.0                           \r\n0  4.000000E+00     G      0.0            0.0            3.078543E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -5.074815E-04   0.0            0.0            0.0                           \r\n0  4.250000E+00     G      0.0            0.0            3.969777E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -4.243806E-04   0.0            0.0            0.0                           \r\n0  4.500000E+00     G      0.0            0.0            4.331501E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.619891E-04   0.0            0.0            0.0                           \r\n0  4.750000E+00     G      0.0            0.0            4.413634E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -3.144711E-04   0.0            0.0            0.0                           \r\n0  5.000000E+00     G      0.0            0.0            4.342487E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.775058E-04   0.0            0.0            0.0                           \r\n0  5.250000E+00     G      0.0            0.0            4.187517E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.482067E-04   0.0            0.0            0.0                           \r\n0  5.500000E+00     G      0.0            0.0            3.988253E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.246745E-04   0.0            0.0            0.0                           \r\n0  5.750000E+00     G      0.0            0.0            3.767323E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -2.056469E-04   0.0            0.0            0.0                           \r\n0  6.000000E+00     G      0.0            0.0            3.537278E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.902731E-04   0.0            0.0            0.0                           \r\n0  6.250000E+00     G      0.0            0.0            3.304289E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.779745E-04   0.0            0.0            0.0                           \r\n0  6.500000E+00     G      0.0            0.0            3.070054E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.683607E-04   0.0            0.0            0.0                           \r\n0  6.750000E+00     G      0.0            0.0            2.832436E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.611669E-04   0.0            0.0            0.0                           \r\n0  7.000000E+00     G      0.0            0.0            2.584943E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.561934E-04   0.0            0.0            0.0                           \r\n0  7.250000E+00     G      0.0            0.0            2.314419E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.531656E-04   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            1.995546E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.512799E-04   0.0            0.0            0.0                           \r\n0  7.750000E+00     G      0.0            0.0            1.580092E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.475193E-04   0.0            0.0            0.0                           \r\n0  8.000000E+00     G      0.0            0.0            9.947665E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.301298E-04   0.0            0.0            0.0                           \r\n0  8.250000E+00     G      0.0            0.0            3.267134E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0           -6.246080E-05   0.0            0.0            0.0                           \r\n0  8.500000E+00     G      0.0            0.0            4.953140E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.066748E-05   0.0            0.0            0.0                           \r\n0  8.750000E+00     G      0.0            0.0            1.457813E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.455163E-05   0.0            0.0            0.0                           \r\n0  9.000000E+00     G      0.0            0.0            1.960439E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            6.442404E-05   0.0            0.0            0.0                           \r\n0  9.250000E+00     G      0.0            0.0            2.104976E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.487308E-05   0.0            0.0            0.0                           \r\n0  9.500000E+00     G      0.0            0.0            2.120532E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.422042E-05   0.0            0.0            0.0                           \r\n0  9.750000E+00     G      0.0            0.0            2.095843E-04   0.0            0.0            0.0                           \r\n                           0.0            0.0           -1.413049E-07   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            3.062985E-01   0.0           -1.175835E-06   0.0                           \r\n                           0.0            0.0            4.254776E-01   0.0           -1.685480E-06   0.0                           \r\n0  5.000000E-01     G      0.0            0.0            1.517886E-01   0.0           -2.497567E-06   0.0                           \r\n                           0.0            0.0            9.540812E-02   0.0           -1.662873E-06   0.0                           \r\n0  7.500000E-01     G      0.0            0.0            7.495934E-02   0.0           -3.133872E-06   0.0                           \r\n                           0.0            0.0            2.667905E-02   0.0           -1.219106E-06   0.0                           \r\n0  1.000000E+00     G      0.0            0.0            3.687748E-02   0.0           -3.428145E-06   0.0                           \r\n                           0.0            0.0            8.285180E-03   0.0           -7.935174E-07   0.0                           \r\n0  1.250000E+00     G      0.0            0.0            1.531508E-02   0.0           -3.571089E-06   0.0                           \r\n                           0.0            0.0            3.731316E-03   0.0           -4.162946E-07   0.0                           \r\n0  1.500000E+00     G      0.0            0.0            9.528095E-04   0.0           -3.631021E-06   0.0                           \r\n                           0.0            0.0            4.757681E-03   0.0           -4.677236E-08   0.0                           \r\n0  1.750000E+00     G      0.0            0.0           -1.031635E-02   0.0           -3.597116E-06   0.0                           \r\n                           0.0            0.0            1.028089E-02   0.0            3.785961E-07   0.0                           \r\n0  2.000000E+00     G      0.0            0.0           -1.901574E-02   0.0           -3.318364E-06   0.0                           \r\n                           0.0            0.0            2.333876E-02   0.0            9.220487E-07   0.0                           \r\n0  2.250000E+00     G      0.0            0.0           -1.511369E-02   0.0           -2.339189E-06   0.0                           \r\n                           0.0            0.0            4.924252E-02   0.0            1.320135E-06   0.0                           \r\n0  2.500000E+00     G      0.0            0.0            2.324158E-02   0.0           -1.064916E-06   0.0                           \r\n                           0.0            0.0            6.407001E-02   0.0            1.252695E-07   0.0                           \r\n0  2.750000E+00     G      0.0            0.0            5.378950E-02   0.0           -1.936275E-06   0.0                           \r\n                           0.0            0.0            3.669604E-02   0.0           -1.784042E-06   0.0                           \r\n0  3.000000E+00     G      0.0            0.0            5.971932E-02   0.0           -4.402194E-06   0.0                           \r\n                           0.0            0.0            3.325148E-03   0.0           -2.267188E-06   0.0                           \r\n0  3.250000E+00     G      0.0            0.0            3.438508E-02   0.0           -6.626625E-06   0.0                           \r\n                           0.0            0.0           -3.393329E-02   0.0            1.294211E-06   0.0                           \r\n0  3.500000E+00     G      0.0            0.0            2.217485E-03   0.0           -3.090225E-06   0.0                           \r\n                           0.0            0.0           -1.754100E-02   0.0            2.978114E-06   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            2.097643E-03   0.0           -1.916620E-06   0.0                           \r\n                           0.0            0.0           -5.552955E-03   0.0            1.794110E-06   0.0                           \r\n0  4.000000E+00     G      0.0            0.0            3.539018E-03   0.0           -1.746473E-06   0.0                           \r\n                           0.0            0.0           -2.157957E-03   0.0            1.090984E-06   0.0                           \r\n0  4.250000E+00     G      0.0            0.0            4.146873E-03   0.0           -1.760633E-06   0.0                           \r\n                           0.0            0.0           -1.050269E-03   0.0            7.011125E-07   0.0                           \r\n0  4.500000E+00     G      0.0            0.0            4.282755E-03   0.0           -1.808437E-06   0.0                           \r\n                           0.0            0.0           -6.360663E-04   0.0            4.613964E-07   0.0                           \r\n0  4.750000E+00     G      0.0            0.0            4.203037E-03   0.0           -1.858034E-06   0.0                           \r\n                           0.0            0.0           -4.671465E-04   0.0            2.992472E-07   0.0                           \r\n0  5.000000E+00     G      0.0            0.0            4.032369E-03   0.0           -1.902610E-06   0.0                           \r\n                           0.0            0.0           -3.949342E-04   0.0            1.807258E-07   0.0                           \r\n0  5.250000E+00     G      0.0            0.0            3.829579E-03   0.0           -1.941446E-06   0.0                           \r\n                           0.0            0.0           -3.639269E-04   0.0            8.853200E-08   0.0                           \r\n0  5.500000E+00     G      0.0            0.0            3.622420E-03   0.0           -1.975335E-06   0.0                           \r\n                           0.0            0.0           -3.516310E-04   0.0            1.314276E-08   0.0                           \r\n0  5.750000E+00     G      0.0            0.0            3.423723E-03   0.0           -2.005331E-06   0.0                           \r\n                           0.0            0.0           -3.484628E-04   0.0           -5.102714E-08   0.0                           \r\n0  6.000000E+00     G      0.0            0.0            3.238982E-03   0.0           -2.032439E-06   0.0                           \r\n                           0.0            0.0           -3.502611E-04   0.0           -1.074393E-07   0.0                           \r\n0  6.250000E+00     G      0.0            0.0            3.070031E-03   0.0           -2.057573E-06   0.0                           \r\n                           0.0            0.0           -3.552559E-04   0.0           -1.583529E-07   0.0                           \r\n0  6.500000E+00     G      0.0            0.0            2.916852E-03   0.0           -2.081588E-06   0.0                           \r\n                           0.0            0.0           -3.627972E-04   0.0           -2.053134E-07   0.0                           \r\n0  6.750000E+00     G      0.0            0.0            2.778480E-03   0.0           -2.105380E-06   0.0                           \r\n                           0.0            0.0           -3.727622E-04   0.0           -2.494357E-07   0.0                           \r\n0  7.000000E+00     G      0.0            0.0            2.653396E-03   0.0           -2.130034E-06   0.0                           \r\n                           0.0            0.0           -3.853291E-04   0.0           -2.915218E-07   0.0                           \r\n0  7.250000E+00     G      0.0            0.0            2.539587E-03   0.0           -2.157094E-06   0.0                           \r\n                           0.0            0.0           -4.008424E-04   0.0           -3.320518E-07   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      12\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            2.434230E-03   0.0           -2.189083E-06   0.0                           \r\n                           0.0            0.0           -4.196159E-04   0.0           -3.708340E-07   0.0                           \r\n0  7.750000E+00     G      0.0            0.0            2.332703E-03   0.0           -2.230408E-06   0.0                           \r\n                           0.0            0.0           -4.412028E-04   0.0           -4.054728E-07   0.0                           \r\n0  8.000000E+00     G      0.0            0.0            2.226948E-03   0.0           -2.287232E-06   0.0                           \r\n                           0.0            0.0           -4.605359E-04   0.0           -4.255896E-07   0.0                           \r\n0  8.250000E+00     G      0.0            0.0            2.112692E-03   0.0           -2.350083E-06   0.0                           \r\n                           0.0            0.0           -4.539641E-04   0.0           -3.993948E-07   0.0                           \r\n0  8.500000E+00     G      0.0            0.0            2.042685E-03   0.0           -2.336881E-06   0.0                           \r\n                           0.0            0.0           -3.969372E-04   0.0           -3.276002E-07   0.0                           \r\n0  8.750000E+00     G      0.0            0.0            2.047908E-03   0.0           -2.259446E-06   0.0                           \r\n                           0.0            0.0           -3.767279E-04   0.0           -3.396210E-07   0.0                           \r\n0  9.000000E+00     G      0.0            0.0            2.047352E-03   0.0           -2.228757E-06   0.0                           \r\n                           0.0            0.0           -4.081603E-04   0.0           -4.066948E-07   0.0                           \r\n0  9.250000E+00     G      0.0            0.0            2.031447E-03   0.0           -2.232742E-06   0.0                           \r\n                           0.0            0.0           -4.506852E-04   0.0           -4.721832E-07   0.0                           \r\n0  9.500000E+00     G      0.0            0.0            2.011524E-03   0.0           -2.251068E-06   0.0                           \r\n                           0.0            0.0           -4.943162E-04   0.0           -5.303115E-07   0.0                           \r\n0  9.750000E+00     G      0.0            0.0            1.993217E-03   0.0           -2.276633E-06   0.0                           \r\n                           0.0            0.0           -5.389154E-04   0.0           -5.843483E-07   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =    1040\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0           -2.992280E-01   0.0            1.735123E-05   0.0                           \r\n                           0.0            0.0           -4.160938E-01   0.0            2.297862E-05   0.0                           \r\n0  5.000000E-01     G      0.0            0.0           -1.366840E-01   0.0            3.612933E-05   0.0                           \r\n                           0.0            0.0           -8.687768E-02   0.0            2.033058E-05   0.0                           \r\n0  7.500000E-01     G      0.0            0.0           -5.550395E-02   0.0            4.470300E-05   0.0                           \r\n                           0.0            0.0           -2.150752E-02   0.0            1.185607E-05   0.0                           \r\n0  1.000000E+00     G      0.0            0.0           -1.469250E-02   0.0            4.797371E-05   0.0                           \r\n                           0.0            0.0           -6.585336E-03   0.0            3.838031E-06   0.0                           \r\n0  1.250000E+00     G      0.0            0.0            9.204414E-03   0.0            4.855292E-05   0.0                           \r\n                           0.0            0.0           -5.644580E-03   0.0           -3.148281E-06   0.0                           \r\n0  1.500000E+00     G      0.0            0.0            2.609339E-02   0.0            4.718597E-05   0.0                           \r\n                           0.0            0.0           -1.107079E-02   0.0           -9.258281E-06   0.0                           \r\n0  1.750000E+00     G      0.0            0.0            4.021861E-02   0.0            4.347501E-05   0.0                           \r\n                           0.0            0.0           -2.312014E-02   0.0           -1.418262E-05   0.0                           \r\n0  2.000000E+00     G      0.0            0.0            5.069509E-02   0.0            3.619793E-05   0.0                           \r\n                           0.0            0.0           -4.765252E-02   0.0           -1.536871E-05   0.0                           \r\n0  2.250000E+00     G      0.0            0.0            3.888470E-02   0.0            2.877228E-05   0.0                           \r\n                           0.0            0.0           -9.257004E-02   0.0           -3.189647E-06   0.0                           \r\n0  2.500000E+00     G      0.0            0.0           -2.911924E-02   0.0            5.178231E-05   0.0                           \r\n                           0.0            0.0           -1.138319E-01   0.0            2.122064E-05   0.0                           \r\n0  2.750000E+00     G      0.0            0.0           -7.573327E-02   0.0            1.035047E-04   0.0                           \r\n                           0.0            0.0           -6.609556E-02   0.0            3.587577E-06   0.0                           \r\n0  3.000000E+00     G      0.0            0.0           -7.996145E-02   0.0            1.393072E-04   0.0                           \r\n                           0.0            0.0           -1.905856E-02   0.0           -7.212107E-05   0.0                           \r\n0  3.250000E+00     G      0.0            0.0           -5.303321E-02   0.0            3.572829E-05   0.0                           \r\n                           0.0            0.0            2.549811E-02   0.0           -1.958035E-04   0.0                           \r\n0  3.500000E+00     G      0.0            0.0           -1.612052E-02   0.0           -7.698398E-05   0.0                           \r\n                           0.0            0.0            1.534963E-02   0.0           -8.759919E-05   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =    1040\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0           -1.180272E-02   0.0           -5.195603E-05   0.0                           \r\n                           0.0            0.0            4.986625E-03   0.0           -2.631688E-05   0.0                           \r\n0  4.000000E+00     G      0.0            0.0           -1.068063E-02   0.0           -2.990043E-05   0.0                           \r\n                           0.0            0.0            2.117746E-03   0.0           -8.980996E-06   0.0                           \r\n0  4.250000E+00     G      0.0            0.0           -9.556823E-03   0.0           -1.648147E-05   0.0                           \r\n                           0.0            0.0            1.234375E-03   0.0           -3.272113E-06   0.0                           \r\n0  4.500000E+00     G      0.0            0.0           -8.439226E-03   0.0           -8.013682E-06   0.0                           \r\n                           0.0            0.0            9.184921E-04   0.0           -1.239827E-06   0.0                           \r\n0  4.750000E+00     G      0.0            0.0           -7.411476E-03   0.0           -2.354566E-06   0.0                           \r\n                           0.0            0.0            7.863673E-04   0.0           -5.816678E-07   0.0                           \r\n0  5.000000E+00     G      0.0            0.0           -6.500649E-03   0.0            1.618247E-06   0.0                           \r\n                           0.0            0.0            7.195999E-04   0.0           -4.924701E-07   0.0                           \r\n0  5.250000E+00     G      0.0            0.0           -5.705048E-03   0.0            4.521506E-06   0.0                           \r\n                           0.0            0.0            6.784187E-04   0.0           -6.510083E-07   0.0                           \r\n0  5.500000E+00     G      0.0            0.0           -5.012407E-03   0.0            6.715038E-06   0.0                           \r\n                           0.0            0.0            6.489976E-04   0.0           -9.178216E-07   0.0                           \r\n0  5.750000E+00     G      0.0            0.0           -4.407758E-03   0.0            8.420217E-06   0.0                           \r\n                           0.0            0.0            6.267158E-04   0.0           -1.229646E-06   0.0                           \r\n0  6.000000E+00     G      0.0            0.0           -3.876408E-03   0.0            9.779469E-06   0.0                           \r\n                           0.0            0.0            6.103604E-04   0.0           -1.557898E-06   0.0                           \r\n0  6.250000E+00     G      0.0            0.0           -3.404767E-03   0.0            1.088781E-05   0.0                           \r\n                           0.0            0.0            6.000073E-04   0.0           -1.890767E-06   0.0                           \r\n0  6.500000E+00     G      0.0            0.0           -2.980232E-03   0.0            1.181046E-05   0.0                           \r\n                           0.0            0.0            5.962630E-04   0.0           -2.225083E-06   0.0                           \r\n0  6.750000E+00     G      0.0            0.0           -2.590468E-03   0.0            1.259307E-05   0.0                           \r\n                           0.0            0.0            5.999142E-04   0.0           -2.562356E-06   0.0                           \r\n0  7.000000E+00     G      0.0            0.0           -2.222039E-03   0.0            1.326758E-05   0.0                           \r\n                           0.0            0.0            6.116452E-04   0.0           -2.907106E-06   0.0                           \r\n0  7.250000E+00     G      0.0            0.0           -1.857850E-03   0.0            1.385506E-05   0.0                           \r\n                           0.0            0.0            6.310977E-04   0.0           -3.266220E-06   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =    1040\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0           -1.472032E-03   0.0            1.436561E-05   0.0                           \r\n                           0.0            0.0            6.533819E-04   0.0           -3.648680E-06   0.0                           \r\n0  7.750000E+00     G      0.0            0.0           -1.020436E-03   0.0            1.479220E-05   0.0                           \r\n                           0.0            0.0            6.554936E-04   0.0           -4.063725E-06   0.0                           \r\n0  8.000000E+00     G      0.0            0.0           -4.373197E-04   0.0            1.509328E-05   0.0                           \r\n                           0.0            0.0            5.427140E-04   0.0           -4.502636E-06   0.0                           \r\n0  8.250000E+00     G      0.0            0.0            2.152092E-04   0.0            1.520156E-05   0.0                           \r\n                           0.0            0.0            1.197841E-05   0.0           -4.841387E-06   0.0                           \r\n0  8.500000E+00     G      0.0            0.0            1.831635E-04   0.0            1.537209E-05   0.0                           \r\n                           0.0            0.0           -9.968827E-04   0.0           -4.814682E-06   0.0                           \r\n0  8.750000E+00     G      0.0            0.0           -5.243518E-04   0.0            1.600071E-05   0.0                           \r\n                           0.0            0.0           -1.291218E-03   0.0           -4.850751E-06   0.0                           \r\n0  9.000000E+00     G      0.0            0.0           -8.681878E-04   0.0            1.666609E-05   0.0                           \r\n                           0.0            0.0           -1.054609E-03   0.0           -5.230687E-06   0.0                           \r\n0  9.250000E+00     G      0.0            0.0           -9.179890E-04   0.0            1.722295E-05   0.0                           \r\n                           0.0            0.0           -8.211488E-04   0.0           -5.747487E-06   0.0                           \r\n0  9.500000E+00     G      0.0            0.0           -8.591309E-04   0.0            1.771748E-05   0.0                           \r\n                           0.0            0.0           -6.642584E-04   0.0           -6.319910E-06   0.0                           \r\n0  9.750000E+00     G      0.0            0.0           -7.633464E-04   0.0            1.818583E-05   0.0                           \r\n                           0.0            0.0           -5.649246E-04   0.0           -6.937209E-06   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.500000E-01     G      0.0            0.0            0.0            8.462132E+03  -1.340444E+03   7.182308E+03                  \r\n                           0.0            0.0            0.0            1.135478E+04  -1.795752E+03   9.602159E+03                  \r\n0  5.000000E-01     G      0.0            0.0            0.0            1.820879E+04  -2.804113E+03   1.547514E+04                  \r\n                           0.0            0.0            0.0            1.053625E+04  -1.620926E+03   8.881257E+03                  \r\n0  7.500000E-01     G      0.0            0.0            0.0            2.369398E+04  -3.503784E+03   2.018462E+04                  \r\n                           0.0            0.0            0.0            6.691285E+03  -9.997816E+02   5.582648E+03                  \r\n0  1.000000E+00     G      0.0            0.0            0.0            2.741576E+04  -3.818389E+03   2.343201E+04                  \r\n                           0.0            0.0            0.0            2.652799E+03  -4.126063E+02   2.093669E+03                  \r\n0  1.250000E+00     G      0.0            0.0            0.0            3.090958E+04  -3.954559E+03   2.652622E+04                  \r\n                           0.0            0.0            0.0           -1.671904E+03   9.662432E+01  -1.685561E+03                  \r\n0  1.500000E+00     G      0.0            0.0            0.0            3.500591E+04  -3.982542E+03   3.018110E+04                  \r\n                           0.0            0.0            0.0           -7.201257E+03   5.400986E+02  -6.576491E+03                  \r\n0  1.750000E+00     G      0.0            0.0            0.0            4.006509E+04  -3.899979E+03   3.470022E+04                  \r\n                           0.0            0.0            0.0           -1.594686E+04   8.981782E+02  -1.438227E+04                  \r\n0  2.000000E+00     G      0.0            0.0            0.0            4.440654E+04  -3.676129E+03   3.854909E+04                  \r\n                           0.0            0.0            0.0           -3.249594E+04   1.003777E+03  -2.921896E+04                  \r\n0  2.250000E+00     G      0.0            0.0            0.0            3.519350E+04  -3.668062E+03   3.015089E+04                  \r\n                           0.0            0.0            0.0           -6.259009E+04   2.767292E+02  -5.621118E+04                  \r\n0  2.500000E+00     G      0.0            0.0            0.0           -1.081591E+04  -5.995302E+03  -1.135186E+04                  \r\n                           0.0            0.0            0.0           -7.763158E+04  -8.632272E+02  -6.954719E+04                  \r\n0  2.750000E+00     G      0.0            0.0            0.0           -4.294112E+04  -1.025758E+04  -4.029500E+04                  \r\n                           0.0            0.0            0.0           -4.694953E+04   1.488371E+03  -4.170321E+04                  \r\n0  3.000000E+00     G      0.0            0.0            0.0           -4.679352E+04  -1.327096E+04  -4.381543E+04                  \r\n                           0.0            0.0            0.0           -1.698288E+04   9.275810E+03  -1.431746E+04                  \r\n0  3.250000E+00     G      0.0            0.0            0.0           -3.219282E+04  -1.624763E+03  -2.993898E+04                  \r\n                           0.0            0.0            0.0            1.103026E+04   2.189741E+04   1.160191E+04                  \r\n0  3.500000E+00     G      0.0            0.0            0.0           -9.940383E+03   1.025223E+04  -9.175410E+03                  \r\n                           0.0            0.0            0.0            7.007556E+03   9.721934E+03   7.243281E+03                  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  3.750000E+00     G      0.0            0.0            0.0           -6.789740E+03   7.414454E+03  -6.483723E+03                  \r\n                           0.0            0.0            0.0            1.359090E+03   3.022335E+03   1.745933E+03                  \r\n0  4.000000E+00     G      0.0            0.0            0.0           -5.892844E+03   4.992492E+03  -5.803404E+03                  \r\n                           0.0            0.0            0.0           -1.685565E+02   1.084047E+03   2.442141E+02                  \r\n0  4.250000E+00     G      0.0            0.0            0.0           -5.135996E+03   3.522676E+03  -5.196343E+03                  \r\n                           0.0            0.0            0.0           -5.948411E+02   4.046397E+02  -1.876869E+02                  \r\n0  4.500000E+00     G      0.0            0.0            0.0           -4.443180E+03   2.593564E+03  -4.616878E+03                  \r\n                           0.0            0.0            0.0           -7.194379E+02   1.291837E+02  -3.213233E+02                  \r\n0  4.750000E+00     G      0.0            0.0            0.0           -3.833496E+03   1.971183E+03  -4.095306E+03                  \r\n                           0.0            0.0            0.0           -7.575144E+02   9.157261E+00  -3.657781E+02                  \r\n0  5.000000E+00     G      0.0            0.0            0.0           -3.309915E+03   1.533777E+03  -3.641071E+03                  \r\n                           0.0            0.0            0.0           -7.738340E+02  -4.350785E+01  -3.849103E+02                  \r\n0  5.250000E+00     G      0.0            0.0            0.0           -2.865580E+03   1.214600E+03  -3.251615E+03                  \r\n                           0.0            0.0            0.0           -7.892352E+02  -6.483321E+01  -3.997349E+02                  \r\n0  5.500000E+00     G      0.0            0.0            0.0           -2.490964E+03   9.747090E+02  -2.920339E+03                  \r\n                           0.0            0.0            0.0           -8.106160E+02  -7.111607E+01  -4.174016E+02                  \r\n0  5.750000E+00     G      0.0            0.0            0.0           -2.177115E+03   7.901040E+02  -2.640218E+03                  \r\n                           0.0            0.0            0.0           -8.403834E+02  -7.027665E+01  -4.404072E+02                  \r\n0  6.000000E+00     G      0.0            0.0            0.0           -1.916982E+03   6.452802E+02  -2.405311E+03                  \r\n                           0.0            0.0            0.0           -8.796973E+02  -6.635644E+01  -4.697950E+02                  \r\n0  6.250000E+00     G      0.0            0.0            0.0           -1.706035E+03   5.298190E+02  -2.211442E+03                  \r\n                           0.0            0.0            0.0           -9.296577E+02  -6.148084E+01  -5.063438E+02                  \r\n0  6.500000E+00     G      0.0            0.0            0.0           -1.542894E+03   4.364668E+02  -2.056707E+03                  \r\n                           0.0            0.0            0.0           -9.917339E+02  -5.678640E+01  -5.510018E+02                  \r\n0  6.750000E+00     G      0.0            0.0            0.0           -1.430455E+03   3.599989E+02  -1.942291E+03                  \r\n                           0.0            0.0            0.0           -1.067838E+03  -5.287743E+01  -6.050006E+02                  \r\n0  7.000000E+00     G      0.0            0.0            0.0           -1.378290E+03   2.965043E+02  -1.874126E+03                  \r\n                           0.0            0.0            0.0           -1.159867E+03  -5.006791E+01  -6.695430E+02                  \r\n0  7.250000E+00     G      0.0            0.0            0.0           -1.407748E+03   2.428858E+02  -1.866402E+03                  \r\n                           0.0            0.0            0.0           -1.267688E+03  -4.848632E+01  -7.444045E+02                  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n      POINT-ID =      11\r\n                         C O M P L E X   F O R C E S   O F   S I N G L E   P O I N T   C O N S T R A I N T\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  7.500000E+00     G      0.0            0.0            0.0           -1.562932E+03   1.964266E+02  -1.949126E+03                  \r\n                           0.0            0.0            0.0           -1.381342E+03  -4.805186E+01  -8.225139E+02                  \r\n0  7.750000E+00     G      0.0            0.0            0.0           -1.931924E+03   1.543158E+02  -2.182714E+03                  \r\n                           0.0            0.0            0.0           -1.450357E+03  -4.813356E+01  -8.686384E+02                  \r\n0  8.000000E+00     G      0.0            0.0            0.0           -2.654738E+03   1.133651E+02  -2.663138E+03                  \r\n                           0.0            0.0            0.0           -1.262540E+03  -4.600669E+01  -7.354910E+02                  \r\n0  8.250000E+00     G      0.0            0.0            0.0           -3.587109E+03   7.413447E+01  -3.288345E+03                  \r\n                           0.0            0.0            0.0           -1.321157E+02  -3.269617E+01   5.113803E+01                  \r\n0  8.500000E+00     G      0.0            0.0            0.0           -3.015852E+03   5.790603E+01  -2.872124E+03                  \r\n                           0.0            0.0            0.0            2.088888E+03  -5.542829E+00   1.588773E+03                  \r\n0  8.750000E+00     G      0.0            0.0            0.0           -9.336844E+02   6.521484E+01  -1.417066E+03                  \r\n                           0.0            0.0            0.0            2.699689E+03   5.441346E-01   2.008365E+03                  \r\n0  9.000000E+00     G      0.0            0.0            0.0            3.110637E+02   6.496008E+01  -5.471329E+02                  \r\n                           0.0            0.0            0.0            2.095874E+03  -1.026402E+01   1.590476E+03                  \r\n0  9.250000E+00     G      0.0            0.0            0.0            8.730125E+02   5.817813E+01  -1.518726E+02                  \r\n                           0.0            0.0            0.0            1.485180E+03  -2.227331E+01   1.170542E+03                  \r\n0  9.500000E+00     G      0.0            0.0            0.0            1.176743E+03   4.989185E+01   6.293475E+01                  \r\n                           0.0            0.0            0.0            1.034345E+03  -3.316045E+01   8.628602E+02                  \r\n0  9.750000E+00     G      0.0            0.0            0.0            1.391651E+03   4.195687E+01   2.142059E+02                  \r\n                           0.0            0.0            0.0            6.981124E+02  -4.346574E+01   6.357991E+02                  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        9( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.231660E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.009413E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.231660E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.009413E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        9( 9)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.347680E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.183691E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.347680E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.183691E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       10( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.031666E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.018999E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.031666E-02 AT X =   2.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.018999E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       10( 9)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.429494E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.196384E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.429494E-02 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.196384E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       11( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    5\r\n\r\n\r\n     CURVE  TITLE =     FUSELAGE PLUNGE                                                                                            \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.415164E-03 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.132168E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.415164E-03 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.132168E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       11( 9)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    5\r\n\r\n\r\n     CURVE  TITLE =     FUSELAGE PLUNGE                                                                                            \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.626125E-02 AT X =   2.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.346990E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.626125E-02 AT X =   2.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.346990E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       12( 5)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    6\r\n\r\n\r\n     CURVE  TITLE =     AILERON DEFLECTION                                                                                         \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.626625E-06 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.626625E-06 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       12(11)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    6\r\n\r\n\r\n     CURVE  TITLE =     AILERON DEFLECTION                                                                                         \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.267188E-06 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.978114E-06 AT X =   3.500000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.267188E-06 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.978114E-06 AT X =   3.500000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     1040( 5)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    7\r\n\r\n\r\n     CURVE  TITLE =     AERODYNAMIC BOX NEAR TIP , PITCH                                                                           \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -7.698398E-05 AT X =   3.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.393072E-04 AT X =   3.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -7.698398E-05 AT X =   3.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.393072E-04 AT X =   3.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     1040(11)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    7\r\n\r\n\r\n     CURVE  TITLE =     AERODYNAMIC BOX NEAR TIP , PITCH                                                                           \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.958035E-04 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.297862E-05 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.958035E-04 AT X =   3.250000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.297862E-05 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S P C F         CURVE       11( 6)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    8\r\n\r\n\r\n     CURVE  TITLE =     WING ROOT BENDING MOMENT                                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = ROTATIONAL CONSTRAINTS                                                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.381543E+04 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.854909E+04 AT X =   2.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.381543E+04 AT X =   3.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.854909E+04 AT X =   2.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S P C F         CURVE       11(12)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    8\r\n\r\n\r\n     CURVE  TITLE =     WING ROOT BENDING MOMENT                                                                                   \r\n      X-AXIS TITLE =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n      Y-AXIS TITLE = ROTATIONAL CONSTRAINTS                                                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.954719E+04 AT X =   2.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.160191E+04 AT X =   3.250000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.954719E+04 AT X =   2.500000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.160191E+04 AT X =   3.250000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  * * \r\n                                                           *  *  *  *  *  *  *  *  * * \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****    * \r\n\r\n0             WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                              \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -9.999999E-02                                       2.000000E-01                                       5.000000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                   B                                      I                                                          I\r\n  2.5000E-01 I                                                          I                   A                      B               I\r\n  5.0000E-01 I                                    B         *A          I                                                          I\r\n  7.5000E-01 I                       B       A                          I                                                          I\r\n  1.0000E+00 I                    B  A                                  I                                                          I\r\n  1.2500E+00 I                  *AB                                     I                                                          I\r\n  1.5000E+00 I               A    B0                                    I                                                          I\r\n  1.7500E+00 I            *A        B0                                  I                                                          I\r\n  2.0000E+00 I          *A               B                              I                                                          I\r\n  2.2500E+00 I            *A                    B                       I                                                          I\r\n  2.5000E+00 I                        A             B                   I                                                          I\r\n  2.7500E+00 I                              B *A                        I                                                          I\r\n  3.0000E+00 I                     B0          *A                       I                                                          I\r\n  3.2500E+00 I            B 0             A                             I                                                          I\r\n  3.5000E+00 I               B0    A                                    I                                                          I\r\n  3.7500E+00 I                 B0 A*                                    I                                                          I\r\n  4.0000E+00 I                  B A*                                    I                                                          I\r\n  4.2500E+00 I                  B A                                     I                                                          I\r\n  4.5000E+00 I                  B0A                                     I                                                          I\r\n  4.7500E+00 I                   BA                                     I                                                          I\r\n  5.0000E+00 I                   BA                                     I                                                          I\r\n  5.2500E+00 I                   BA                                     I                                                          I\r\n  5.5000E+00 I                   BA                                     I                                                          I\r\n  5.7500E+00 I                   BA                                     I                                                          I\r\n  6.0000E+00 I                   B                                      I                                                          I\r\n  6.2500E+00 I                   B                                      I                                                          I\r\n  6.5000E+00 I                   B                                      I                                                          I\r\n  6.7500E+00 I                   B                                      I                                                          I\r\n  7.0000E+00 I                   B                                      I                                                          I\r\n  7.2500E+00 I                   B                                      I                                                          I\r\n1 7.5000E+00 I                   B                                      I                                                          I\r\n  7.7500E+00 I                   B                                      I                                                          I\r\n  8.0000E+00 I                   B                                      I                                                          I\r\n  8.2500E+00 I                   B                                      I                                                          I\r\n  8.5000E+00 I                   B                                      I                                                          I\r\n  8.7500E+00 I                   B                                      I                                                          I\r\n  9.0000E+00 I                   B                                      I                                                          I\r\n  9.2500E+00 I                   B                                      I                                                          I\r\n  9.5000E+00 I                   B                                      I                                                          I\r\n  9.7500E+00 I                   B                                      I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *   \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             FUSELAGE PLUNGE                                                                                                       \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -9.999999E-02                                       2.000000E-01                                       5.000000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                   0                                      I                                                          I\r\n  2.5000E-01 I                                                          I                     *                       0            I\r\n  5.0000E-01 I                                       0           *      I                                                          I\r\n  7.5000E-01 I                         0           *                    I                                                          I\r\n  1.0000E+00 I                     0        *                           I                                                          I\r\n  1.2500E+00 I                   0       *                              I                                                          I\r\n  1.5000E+00 I                  0      *                                I                                                          I\r\n  1.7500E+00 I                  0     *                                 I                                                          I\r\n  2.0000E+00 I                 0     *                                  I                                                          I\r\n  2.2500E+00 I                0     *                                   I                                                          I\r\n  2.5000E+00 I               0   *                                      I                                                          I\r\n  2.7500E+00 I                 0*                                       I                                                          I\r\n  3.0000E+00 I                  0                                       I                                                          I\r\n  3.2500E+00 I                  0                                       I                                                          I\r\n  3.5000E+00 I                   0                                      I                                                          I\r\n  3.7500E+00 I                   0                                      I                                                          I\r\n  4.0000E+00 I                   0                                      I                                                          I\r\n  4.2500E+00 I                   0                                      I                                                          I\r\n  4.5000E+00 I                   0                                      I                                                          I\r\n  4.7500E+00 I                   0                                      I                                                          I\r\n  5.0000E+00 I                   0                                      I                                                          I\r\n  5.2500E+00 I                   0                                      I                                                          I\r\n  5.5000E+00 I                   0                                      I                                                          I\r\n  5.7500E+00 I                   0                                      I                                                          I\r\n  6.0000E+00 I                   0                                      I                                                          I\r\n  6.2500E+00 I                   0                                      I                                                          I\r\n  6.5000E+00 I                   0                                      I                                                          I\r\n  6.7500E+00 I                   0                                      I                                                          I\r\n  7.0000E+00 I                   0                                      I                                                          I\r\n  7.2500E+00 I                   0                                      I                                                          I\r\n1 7.5000E+00 I                   0                                      I                                                          I\r\n  7.7500E+00 I                   0                                      I                                                          I\r\n  8.0000E+00 I                   0                                      I                                                          I\r\n  8.2500E+00 I                   0                                      I                                                          I\r\n  8.5000E+00 I                   0                                      I                                                          I\r\n  8.7500E+00 I                   0                                      I                                                          I\r\n  9.0000E+00 I                   0                                      I                                                          I\r\n  9.2500E+00 I                   0                                      I                                                          I\r\n  9.5000E+00 I                   0                                      I                                                          I\r\n  9.7500E+00 I                   0                                      I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *   \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             AILERON DEFLECTION                                                                                                    \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -8.000000E-06                                      -2.000000E-06                                       4.000000E-06 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                   0                                      I\r\n  2.5000E-01 I                                                          I  0    *                                                  I\r\n  5.0000E-01 I                                                     *    I  0                                                       I\r\n  7.5000E-01 I                                               *          I       0                                                  I\r\n  1.0000E+00 I                                            *             I           0                                              I\r\n  1.2500E+00 I                                           *              I               0                                          I\r\n  1.5000E+00 I                                          *               I                  0                                       I\r\n  1.7500E+00 I                                          *               I                      0                                   I\r\n  2.0000E+00 I                                             *            I                            0                             I\r\n  2.2500E+00 I                                                       *  I                                0                         I\r\n  2.5000E+00 I                                                          I        *           0                                     I\r\n  2.7500E+00 I                                                          I*0                                                        I\r\n  3.0000E+00 I                                  *                    0  I                                                          I\r\n  3.2500E+00 I             *                                            I                               0                          I\r\n  3.5000E+00 I                                               *          I                                                0         I\r\n  3.7500E+00 I                                                          I*                                   0                     I\r\n  4.0000E+00 I                                                          I *                           0                            I\r\n  4.2500E+00 I                                                          I *                        0                               I\r\n  4.5000E+00 I                                                          I *                     0                                  I\r\n  4.7500E+00 I                                                          I*                     0                                   I\r\n  5.0000E+00 I                                                          I*                   0                                     I\r\n  5.2500E+00 I                                                          I*                   0                                     I\r\n  5.5000E+00 I                                                          *                   0                                      I\r\n  5.7500E+00 I                                                          *                  0                                       I\r\n  6.0000E+00 I                                                          *                  0                                       I\r\n  6.2500E+00 I                                                         *I                 0                                        I\r\n  6.5000E+00 I                                                         *I                 0                                        I\r\n  6.7500E+00 I                                                         *I                0                                         I\r\n  7.0000E+00 I                                                         *I                0                                         I\r\n  7.2500E+00 I                                                        * I               0                                          I\r\n1 7.5000E+00 I                                                        * I               0                                          I\r\n  7.7500E+00 I                                                        * I               0                                          I\r\n  8.0000E+00 I                                                       *  I              0                                           I\r\n  8.2500E+00 I                                                       *  I               0                                          I\r\n  8.5000E+00 I                                                       *  I               0                                          I\r\n  8.7500E+00 I                                                       *  I               0                                          I\r\n  9.0000E+00 I                                                        * I               0                                          I\r\n  9.2500E+00 I                                                        * I              0                                           I\r\n  9.5000E+00 I                                                        * I             0                                            I\r\n  9.7500E+00 I                                                       *  I             0                                            I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *   *  \r\n                                                           ****  ****  ****  ****  *   \r\n\r\n0             AERODYNAMIC BOX NEAR TIP , PITCH                                                                                      \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -2.000000E-04                                      -2.500000E-05                                       1.500000E-04 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I       0                                                  I\r\n  2.5000E-01 I                                                          I             * 0                                          I\r\n  5.0000E-01 I                                                          I              0     *                                     I\r\n  7.5000E-01 I                                                          I           0          *                                   I\r\n  1.0000E+00 I                                                          I         0              *                                 I\r\n  1.2500E+00 I                                                          I      0                 *                                 I\r\n  1.5000E+00 I                                                          I    0                  *                                  I\r\n  1.7500E+00 I                                                          I   0                  *                                   I\r\n  2.0000E+00 I                                                          I  0                 *                                     I\r\n  2.2500E+00 I                                                          I      0          *                                        I\r\n  2.5000E+00 I                                                          I               0         *                                I\r\n  2.7500E+00 I                                                          I         0                                *               I\r\n  3.0000E+00 I                                          0               I                                                      *   I\r\n  3.2500E+00 I0                                                         I                   *                                      I\r\n  3.5000E+00 I                                     0  *                 I                                                          I\r\n  3.7500E+00 I                                                 *        0                                                          I\r\n  4.0000E+00 I                                                        * I    0                                                     I\r\n  4.2500E+00 I                                                          I  *   0                                                   I\r\n  4.5000E+00 I                                                          I     * 0                                                  I\r\n  4.7500E+00 I                                                          I       0                                                  I\r\n  5.0000E+00 I                                                          I       0*                                                 I\r\n  5.2500E+00 I                                                          I       0 *                                                I\r\n  5.5000E+00 I                                                          I       0  *                                               I\r\n  5.7500E+00 I                                                          I       0  *                                               I\r\n  6.0000E+00 I                                                          I       0   *                                              I\r\n  6.2500E+00 I                                                          I       0   *                                              I\r\n  6.5000E+00 I                                                          I       0   *                                              I\r\n  6.7500E+00 I                                                          I       0    *                                             I\r\n  7.0000E+00 I                                                          I      0     *                                             I\r\n  7.2500E+00 I                                                          I      0     *                                             I\r\n1 7.5000E+00 I                                                          I      0     *                                             I\r\n  7.7500E+00 I                                                          I      0     *                                             I\r\n  8.0000E+00 I                                                          I      0      *                                            I\r\n  8.2500E+00 I                                                          I      0      *                                            I\r\n  8.5000E+00 I                                                          I      0      *                                            I\r\n  8.7500E+00 I                                                          I      0      *                                            I\r\n  9.0000E+00 I                                                          I      0      *                                            I\r\n  9.2500E+00 I                                                          I     0       *                                            I\r\n  9.5000E+00 I                                                          I     0       *                                            I\r\n  9.7500E+00 I                                                          I     0        *                                           I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0      RANDOM GUST ANALYSIS                                                                                  SUBCASE 1              \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             WING ROOT BENDING MOMENT                                                                                              \r\n0    X-AXIS TITLE =   FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE                                                      \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  ROTATIONAL CONSTRAINTS                                                                                             I\r\n             I                                                                                                                     I\r\n             I -8.000000E+04                                      -2.000000E+04                                       4.000000E+04 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                   0                                      I\r\n  2.5000E-01 I                                                          I                          * 0                             I\r\n  5.0000E-01 I                                                          I                           0      *                       I\r\n  7.5000E-01 I                                                          I                        0              *                  I\r\n  1.0000E+00 I                                                          I                     0                    *               I\r\n  1.2500E+00 I                                                          I                 0                           *            I\r\n  1.5000E+00 I                                                          I            0                                   *         I\r\n  1.7500E+00 I                                                          I     0                                               *    I\r\n  2.0000E+00 I                                                 0        I                                                         *I\r\n  2.2500E+00 I                      0                                   I                                                *         I\r\n  2.5000E+00 I         0                                                I        *                                                 I\r\n  2.7500E+00 I                                     0*                   I                                                          I\r\n  3.0000E+00 I                                   *                      I     0                                                    I\r\n  3.2500E+00 I                                                *         I                              0                           I\r\n  3.5000E+00 I                                                          I          *               0                               I\r\n  3.7500E+00 I                                                          I            *       0                                     I\r\n  4.0000E+00 I                                                          I             *     0                                      I\r\n  4.2500E+00 I                                                          I              *   0                                       I\r\n  4.5000E+00 I                                                          I              *   0                                       I\r\n  4.7500E+00 I                                                          I               *  0                                       I\r\n  5.0000E+00 I                                                          I               *  0                                       I\r\n  5.2500E+00 I                                                          I               *  0                                       I\r\n  5.5000E+00 I                                                          I                * 0                                       I\r\n  5.7500E+00 I                                                          I                * 0                                       I\r\n  6.0000E+00 I                                                          I                * 0                                       I\r\n  6.2500E+00 I                                                          I                * 0                                       I\r\n  6.5000E+00 I                                                          I                 *0                                       I\r\n  6.7500E+00 I                                                          I                 *0                                       I\r\n  7.0000E+00 I                                                          I                 *0                                       I\r\n  7.2500E+00 I                                                          I                 *0                                       I\r\n1 7.5000E+00 I                                                          I                 *0                                       I\r\n  7.7500E+00 I                                                          I                 *0                                       I\r\n  8.0000E+00 I                                                          I                * 0                                       I\r\n  8.2500E+00 I                                                          I               *   0                                      I\r\n  8.5000E+00 I                                                          I                *   0                                     I\r\n  8.7500E+00 I                                                          I                 *   0                                    I\r\n  9.0000E+00 I                                                          I                  * 0                                     I\r\n  9.2500E+00 I                                                          I                   *0                                     I\r\n  9.5000E+00 I                                                          I                   *0                                     I\r\n  9.7500E+00 I                                                          I                   0                                      I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   3.099176E-01\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   2.961935E-01\r\n      POWER-SPECTRAL-DENSITY-FUNCTION (PSDF)\r\n      DISPLACEMENT    CURVE       11( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    9\r\n\r\n\r\n     CURVE  TITLE =   POWER SPECTRAL DENSITY FUNCTION                                                                              \r\n      X-AXIS TITLE = FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n      Y-AXIS TITLE = FUSELAGE PLUNGE  (11T3)         , PSDF , GUST LOAD                                                             \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.628826E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.628826E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   2.961114E-01\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   3.120188E-01\r\n      POWER-SPECTRAL-DENSITY-FUNCTION (PSDF)\r\n      DISPLACEMENT    CURVE        9( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME   10\r\n\r\n\r\n     CURVE  TITLE =   POWER SPECTRAL DENSITY FUNCTION                                                                              \r\n      X-AXIS TITLE = FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n      Y-AXIS TITLE = WING TIP DISPLACEMENT (9T3)     , PSDF , GUST LOAD                                                             \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.357428E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.357428E-01 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     ROOT MEAN SQUARE VALUE =   1.665699E+04\r\n      FREQUENCY OF ZERO CROSSINGS (N ZERO) =   1.692268E+00\r\n      POWER-SPECTRAL-DENSITY-FUNCTION (PSDF)\r\n      S P C F         CURVE       11( 6)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME   11\r\n\r\n\r\n     CURVE  TITLE =   POWER SPECTRAL DENSITY FUNCTION                                                                              \r\n      X-AXIS TITLE = FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n      Y-AXIS TITLE = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD                                                             \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.817612E+08 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  9.750000E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   0.000000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.817612E+08 AT X =   2.500000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0           POWER SPECTRAL DENSITY FUNCTION                                                                                         \r\n0    X-AXIS TITLE =  FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  FUSELAGE PLUNGE  (11T3)         , PSDF , GUST LOAD                                                                 I\r\n             I                                                                                                                     I\r\n             I  0.000000E+00                                       2.000000E-01                                       4.000000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 *                                                          I                                                          I\r\n  2.5000E-01 I                                                          I                                               *          I\r\n  5.0000E-01 I    *                                                     I                                                          I\r\n  7.5000E-01 I*                                                         I                                                          I\r\n  1.0000E+00 *                                                          I                                                          I\r\n  1.2500E+00 *                                                          I                                                          I\r\n  1.5000E+00 *                                                          I                                                          I\r\n  1.7500E+00 *                                                          I                                                          I\r\n  2.0000E+00 *                                                          I                                                          I\r\n  2.2500E+00 *                                                          I                                                          I\r\n  2.5000E+00 *                                                          I                                                          I\r\n  2.7500E+00 *                                                          I                                                          I\r\n  3.0000E+00 *                                                          I                                                          I\r\n  3.2500E+00 *                                                          I                                                          I\r\n  3.5000E+00 *                                                          I                                                          I\r\n  3.7500E+00 *                                                          I                                                          I\r\n  4.0000E+00 *                                                          I                                                          I\r\n  4.2500E+00 *                                                          I                                                          I\r\n  4.5000E+00 *                                                          I                                                          I\r\n  4.7500E+00 *                                                          I                                                          I\r\n  5.0000E+00 *                                                          I                                                          I\r\n  5.2500E+00 *                                                          I                                                          I\r\n  5.5000E+00 *                                                          I                                                          I\r\n  5.7500E+00 *                                                          I                                                          I\r\n  6.0000E+00 *                                                          I                                                          I\r\n  6.2500E+00 *                                                          I                                                          I\r\n  6.5000E+00 *                                                          I                                                          I\r\n  6.7500E+00 *                                                          I                                                          I\r\n  7.0000E+00 *                                                          I                                                          I\r\n  7.2500E+00 *                                                          I                                                          I\r\n1 7.5000E+00 *                                                          I                                                          I\r\n  7.7500E+00 *                                                          I                                                          I\r\n  8.0000E+00 *                                                          I                                                          I\r\n  8.2500E+00 *                                                          I                                                          I\r\n  8.5000E+00 *                                                          I                                                          I\r\n  8.7500E+00 *                                                          I                                                          I\r\n  9.0000E+00 *                                                          I                                                          I\r\n  9.2500E+00 *                                                          I                                                          I\r\n  9.5000E+00 *                                                          I                                                          I\r\n  9.7500E+00 *                                                          I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****   **   ****\r\n                                                           *  *  *  *  *  *    *   *  *\r\n                                                           *  *  *  *  *  *    *   *  *\r\n                                                           *  *  *  *  *  *    *   *  *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0           POWER SPECTRAL DENSITY FUNCTION                                                                                         \r\n0    X-AXIS TITLE =  FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  WING TIP DISPLACEMENT (9T3)     , PSDF , GUST LOAD                                                                 I\r\n             I                                                                                                                     I\r\n             I  0.000000E+00                                       1.750000E-01                                       3.500000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 *                                                          I                                                          I\r\n  2.5000E-01 I                                                          I                                                     *    I\r\n  5.0000E-01 I   *                                                      I                                                          I\r\n  7.5000E-01 *                                                          I                                                          I\r\n  1.0000E+00 *                                                          I                                                          I\r\n  1.2500E+00 *                                                          I                                                          I\r\n  1.5000E+00 *                                                          I                                                          I\r\n  1.7500E+00 *                                                          I                                                          I\r\n  2.0000E+00 *                                                          I                                                          I\r\n  2.2500E+00 *                                                          I                                                          I\r\n  2.5000E+00 *                                                          I                                                          I\r\n  2.7500E+00 *                                                          I                                                          I\r\n  3.0000E+00 *                                                          I                                                          I\r\n  3.2500E+00 *                                                          I                                                          I\r\n  3.5000E+00 *                                                          I                                                          I\r\n  3.7500E+00 *                                                          I                                                          I\r\n  4.0000E+00 *                                                          I                                                          I\r\n  4.2500E+00 *                                                          I                                                          I\r\n  4.5000E+00 *                                                          I                                                          I\r\n  4.7500E+00 *                                                          I                                                          I\r\n  5.0000E+00 *                                                          I                                                          I\r\n  5.2500E+00 *                                                          I                                                          I\r\n  5.5000E+00 *                                                          I                                                          I\r\n  5.7500E+00 *                                                          I                                                          I\r\n  6.0000E+00 *                                                          I                                                          I\r\n  6.2500E+00 *                                                          I                                                          I\r\n  6.5000E+00 *                                                          I                                                          I\r\n  6.7500E+00 *                                                          I                                                          I\r\n  7.0000E+00 *                                                          I                                                          I\r\n  7.2500E+00 *                                                          I                                                          I\r\n1 7.5000E+00 *                                                          I                                                          I\r\n  7.7500E+00 *                                                          I                                                          I\r\n  8.0000E+00 *                                                          I                                                          I\r\n  8.2500E+00 *                                                          I                                                          I\r\n  8.5000E+00 *                                                          I                                                          I\r\n  8.7500E+00 *                                                          I                                                          I\r\n  9.0000E+00 *                                                          I                                                          I\r\n  9.2500E+00 *                                                          I                                                          I\r\n  9.5000E+00 *                                                          I                                                          I\r\n  9.7500E+00 *                                                          I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                                                                                   \r\n0     SYMMETRIC RESPONSE , STIFF AILERON                                                                                            \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****   **    ** \r\n                                                           *  *  *  *  *  *    *     * \r\n                                                           *  *  *  *  *  *    *     * \r\n                                                           *  *  *  *  *  *    *     * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0           POWER SPECTRAL DENSITY FUNCTION                                                                                         \r\n0    X-AXIS TITLE =  FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS                                                         \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD                                                                 I\r\n             I                                                                                                                     I\r\n             I  0.000000E+00                                       1.000000E+08                                       2.000000E+08 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 *                                                          I                                                          I\r\n  2.5000E-01 I                                                          I                                               *          I\r\n  5.0000E-01 I                                                          I                             *                            I\r\n  7.5000E-01 I                                                          I*                                                         I\r\n  1.0000E+00 I                                           *              I                                                          I\r\n  1.2500E+00 I                                    *                     I                                                          I\r\n  1.5000E+00 I                                  *                       I                                                          I\r\n  1.7500E+00 I                                     *                    I                                                          I\r\n  2.0000E+00 I                                               *          I                                                          I\r\n  2.2500E+00 I                                                          I      *                                                   I\r\n  2.5000E+00 I                                                          I      *                                                   I\r\n  2.7500E+00 I                                    *                     I                                                          I\r\n  3.0000E+00 I                   *                                      I                                                          I\r\n  3.2500E+00 I       *                                                  I                                                          I\r\n  3.5000E+00 I*                                                         I                                                          I\r\n  3.7500E+00 *                                                          I                                                          I\r\n  4.0000E+00 *                                                          I                                                          I\r\n  4.2500E+00 *                                                          I                                                          I\r\n  4.5000E+00 *                                                          I                                                          I\r\n  4.7500E+00 *                                                          I                                                          I\r\n  5.0000E+00 *                                                          I                                                          I\r\n  5.2500E+00 *                                                          I                                                          I\r\n  5.5000E+00 *                                                          I                                                          I\r\n  5.7500E+00 *                                                          I                                                          I\r\n  6.0000E+00 *                                                          I                                                          I\r\n  6.2500E+00 *                                                          I                                                          I\r\n  6.5000E+00 *                                                          I                                                          I\r\n  6.7500E+00 *                                                          I                                                          I\r\n  7.0000E+00 *                                                          I                                                          I\r\n  7.2500E+00 *                                                          I                                                          I\r\n1 7.5000E+00 *                                                          I                                                          I\r\n  7.7500E+00 *                                                          I                                                          I\r\n  8.0000E+00 *                                                          I                                                          I\r\n  8.2500E+00 *                                                          I                                                          I\r\n  8.5000E+00 *                                                          I                                                          I\r\n  8.7500E+00 *                                                          I                                                          I\r\n  9.0000E+00 *                                                          I                                                          I\r\n  9.2500E+00 *                                                          I                                                          I\r\n  9.5000E+00 *                                                          I                                                          I\r\n  9.7500E+00 *                                                          I                                                          I\r\n  1.0000E+01 I                                                          I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  JET TRANSPORT WING DYNAMIC ANALYSIS                                \r\n DATE:  5/17/95\r\n END TIME: 16:19:47\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d11032a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D11032A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   11,0                                                                      \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = JET TRANSPORT WING DYNAMIC ANALYSIS                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                          \r\n                  3      LABEL    = SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS           \r\n                  4        ECHO   = BOTH                                                                 \r\n                  5      $                                                                               \r\n                  6      $       MODEL DESCRIPTION           JET TRANSPORT WING EXAMPLE                  \r\n                  7      $                               SYMMETRIC RESPONSE TO A SQUARE                  \r\n                  8      $                               EDGE GUST WITH A STIFF AILERON                  \r\n                  9      $                                                                               \r\n                 10        SPC    = 14    $  SYM , NO PITCH                                              \r\n                 11        MPC    = 1                                                                    \r\n                 12        METHOD = 10    $  GIVENS                                                      \r\n                 13        SDAMP  = 2000                                                                 \r\n                 14        FREQ   = 40                                                                   \r\n                 15        TSTEP  = 41                                                                   \r\n                 16      $$$$$$$ TWELVE MODES AND FORTY TWO BOXES    AERO CALC THREE K VALUES            \r\n                 17        GUST   = 1011  $  SQUARE                                                      \r\n                 18        DLOAD  = 9999  $  NEEDED TO FORCE APPROACH TRANSIENT GUST                     \r\n                 19      OUTPUT                                                                          \r\n                 20      $                                                                               \r\n                 21      $       SOLUTION                TRANSIENT ANALYSIS USING                        \r\n                 22      $                               DOUBLET-LATTICE METHOD AERODYNAMICS             \r\n                 23      $                               AT MACH NO. OF 0.62                             \r\n                 24      $                                                                               \r\n                 25        SET 1 = 1 , 2 , 12 $                                                          \r\n                 26        SET 2 = 1 , 9 THRU 12 , 1040                                                  \r\n                 27        SET 3 = 11                                                                    \r\n                 28        SDISP = 1                                                                     \r\n                 29        DISP  = 2                                                                     \r\n                 30        SPCF  = 3                                                                     \r\n                 31      $                                                                               \r\n                 32      $       PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT            \r\n                 33      $       AND WING ROOT BENDING MOMENT TIME HISTORIES                             \r\n                 34      $                                                                               \r\n                 35      OUTPUT(XYOUT)    $ TRANSIENT PACKAGE (REAL NUMBERS)                             \r\n                 36        CURVELINESYMBOL = 1                                                           \r\n                 37        XTITLE  =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                  \r\n                 38        TCURVE  =     FIRST MODE (PLUNGE)                                             \r\n                 39        YTITLE  = MODAL DEFLECTION                                                    \r\n                 40        XYPAPERPLOT   SDISP /   1(T1)                                                 \r\n                 41        TCURVE  =     SECOND MODE (WING BENDING)                                      \r\n                 42        XYPAPERPLOT   SDISP /   2(T1)                                                 \r\n                 43        TCURVE  =     TWELFTH MODE  (AILERON)                                         \r\n                 44        XYPAPERPLOT   SDISP /  12(T1)                                                 \r\n                 45        YTITLE  = PHYSICAL DEFLECTION                                                 \r\n                 46        TCURVE  =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                        \r\n                 47        XYPAPERPLOT   DISP /   9(T3) , 10(T3)                                         \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48        TCURVE  =     FUSELAGE PLUNGE                                                 \r\n                 49        XYPAPERPLOT   DISP /  11(T3)                                                  \r\n                 50        TCURVE  =     AILERON DEFLECTION                                              \r\n                 51        XYPAPERPLOT   DISP /  12(R2)                                                  \r\n                 52        TCURVE  =     AERODYNAMIC BOX NEAR TIP , PITCH                                \r\n                 53        XYPAPERPLOT   DISP /  1040(R2)                                                \r\n                 54        YTITLE  = ROTATIONAL CONSTRAINTS                                              \r\n                 55        TCURVE  =     WING ROOT BENDING MOMENT                                        \r\n                 56        XYPAPERPLOT   SPCF /  11(R3)                                                  \r\n                 57      BEGIN BULK                                                                      \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              AEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1                  \r\n                              +AE1    .74                                                                                   \r\n                              AEFACT  2       .74     .82     .90     .974                                                  \r\n                              AEFACT  3       .974    1.00                                                                  \r\n                              AEFACT  4       0.0     .375    .750    1.00                                                  \r\n                              AEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00                          \r\n                              AERO    1       8360.   131.232 1.1468-71                               SYM                   \r\n                              CAERO1  1001    1000    0                       1       4       1       +CA01                 \r\n                              +CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CAERO1  1022    1000    0                       2       5       1       +CA22                 \r\n                              +CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CAERO1  1040    1000    0                       3       4       1       +CA40                 \r\n                              +CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.                          \r\n                              CELAS2  3       5142671.12      5                                                             \r\n                              CMASS2  2       13967.2 12      5                                                             \r\n                              CMASS2  121     5248.7  1       3                                                             \r\n                              CMASS2  122     134.9   1       3       2       3                                             \r\n                              CMASS2  123     790.3   2       3                                                             \r\n                              CMASS2  341     9727.   3       3                                                             \r\n                              CMASS2  342     11005.  3       3       4       3                                             \r\n                              CMASS2  343     473.    4       3                                                             \r\n                              CMASS2  561     3253.6  5       3                                                             \r\n                              CMASS2  562     -139.7  5       3       6       3                                             \r\n                              CMASS2  563     946.3   6       3                                                             \r\n                              CMASS2  781     2617.8  7       3                                                             \r\n                              CMASS2  782     21.     7       3       8       3                                             \r\n                              CMASS2  783     782.3   8       3                                                             \r\n                              CMASS2  9101    494.8   9       3                                                             \r\n                              CMASS2  9102    -7.3    9       3       10      3                                             \r\n                              CMASS2  9103    185.2   10      3                                                             \r\n                              CONM1   1       11                                                      +51                   \r\n                              +51     17400.                          4.37+7                          +52                   \r\n                              +52             4.35+09                                                                       \r\n                              CORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1                   \r\n                              +C1     -1.     0.0     0.0                                                                   \r\n                              DAREA   1001    12      5       5142671.                                                      \r\n                              DAREA   9999    11      1       1.                                      DUMMY                 \r\n                              EIGR    10      GIV     0.0     1.              12                      +EIGR                 \r\n                              +EIGR   MAX                                                                                   \r\n                              FREQ1   40      0.0     .25     39                                                            \r\n                              GENEL   432             1       3       2       3       3       3       +01                   \r\n                              +01     4       3       5       3       6       3       7       3       +02                   \r\n                              +02     8       3       9       3       10      3                       +03                   \r\n                              +03     UD              11      3       11      4       11      5       +03A                  \r\n                              +03A    11      6                                                       +04                   \r\n                              +04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05                   \r\n                              +05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06                   \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07                   \r\n                              +07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08                   \r\n                              +08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09                   \r\n                              +09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10                   \r\n                              +10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11                   \r\n                              +11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12                   \r\n                              +12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13                   \r\n                              +13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14                   \r\n                              +14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15                   \r\n                              +15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16                   \r\n                              +16     413.0                                                                                 \r\n                              GRID    1               20.25   90.                     12456                                 \r\n                              GRID    2               -81.    90.                     12456                                 \r\n                              GRID    3               17.85   186.                    12456                                 \r\n                              GRID    4               -71.4   186.                    12456                                 \r\n                              GRID    5               15.8    268.                    12456                                 \r\n                              GRID    6               -63.2   268.                    12456                                 \r\n                              GRID    7               13.3    368.                    12456                                 \r\n                              GRID    8               -53.2   368.                    12456                                 \r\n                              GRID    9               11.05   458.                    12456                                 \r\n                              GRID    10              -44.2   458.                    12456                                 \r\n                              GRID    11              .0      .0                      126                                   \r\n                              GRID    12              -86.45  368.                    1246                                  \r\n                              GUST    1011    1000    1.      0.0     8360.                                                 \r\n                              MKAERO1 .62                                                             +MK                   \r\n                              +MK     .02     .10     .50                                                                   \r\n                              MPC     1       12      3       -1.0    8       3       1.5             +MPC1                 \r\n                              +MPC1           7       3       -0.5    12      5       33.25                                 \r\n                              PAERO1  1000                                                                                  \r\n                              PARAM   GUSTAERO1                                                                             \r\n                              PARAM   IFTM    0                                                                             \r\n                              PARAM   LMODES  12                                                                            \r\n                              PARAM   MACH    .62                                                                           \r\n                              PARAM   Q       4.00747                                                                       \r\n                              PARAM   WTMASS  .0025907                                                                      \r\n                              SET1    14      1       THRU    11                                                            \r\n                              SET1    15      8       10      12                                                            \r\n                              SPC     14      11      45                                                                    \r\n                              SPLINE1 104     1022    1026    1039    15                                                    \r\n                              SPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1                  \r\n                              +SP1    -1.0    -1.0                                                                          \r\n                              SPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2                  \r\n                              +SP2    -1.0    -1.0                                                                          \r\n                              SPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3                  \r\n                              +SP3    -1.0    -1.0                                                                          \r\n                              SUPORT  11      3                                                                             \r\n                              TABDMP1 2000                                                            +T2000                \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              +T2000  0.0     .06     10.     .06     ENDT                                                  \r\n                              TABLED1 1003                                                            +T1003                \r\n                              +T1003  0.0     1.      1.      1.      1.      -1.     2.      -1.     +T1003A               \r\n                              +T1003A ENDT                                                                                  \r\n                              TLOAD1  1000    1001                    1003                                                  \r\n                              TLOAD1  9999    9999                    1003                            DUMIE                 \r\n                              TSTEP   41      40      .1      1                                                             \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=    101\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1    \r\n                    2-        +AE1    .74                                                                     \r\n                    3-        AEFACT  2       .74     .82     .90     .974                                    \r\n                    4-        AEFACT  3       .974    1.00                                                    \r\n                    5-        AEFACT  4       0.0     .375    .750    1.00                                    \r\n                    6-        AEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00            \r\n                    7-        AERO    1       8360.   131.232 1.1468-71                               SYM     \r\n                    8-        CAERO1  1001    1000    0                       1       4       1       +CA01   \r\n                    9-        +CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   10-        CAERO1  1022    1000    0                       2       5       1       +CA22   \r\n                   11-        +CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   12-        CAERO1  1040    1000    0                       3       4       1       +CA40   \r\n                   13-        +CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\n                   14-        CELAS2  3       5142671.12      5                                               \r\n                   15-        CMASS2  2       13967.2 12      5                                               \r\n                   16-        CMASS2  121     5248.7  1       3                                               \r\n                   17-        CMASS2  122     134.9   1       3       2       3                               \r\n                   18-        CMASS2  123     790.3   2       3                                               \r\n                   19-        CMASS2  341     9727.   3       3                                               \r\n                   20-        CMASS2  342     11005.  3       3       4       3                               \r\n                   21-        CMASS2  343     473.    4       3                                               \r\n                   22-        CMASS2  561     3253.6  5       3                                               \r\n                   23-        CMASS2  562     -139.7  5       3       6       3                               \r\n                   24-        CMASS2  563     946.3   6       3                                               \r\n                   25-        CMASS2  781     2617.8  7       3                                               \r\n                   26-        CMASS2  782     21.     7       3       8       3                               \r\n                   27-        CMASS2  783     782.3   8       3                                               \r\n                   28-        CMASS2  9101    494.8   9       3                                               \r\n                   29-        CMASS2  9102    -7.3    9       3       10      3                               \r\n                   30-        CMASS2  9103    185.2   10      3                                               \r\n                   31-        CONM1   1       11                                                      +51     \r\n                   32-        +51     17400.                          4.37+7                          +52     \r\n                   33-        +52             4.35+09                                                         \r\n                   34-        CORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1     \r\n                   35-        +C1     -1.     0.0     0.0                                                     \r\n                   36-        DAREA   1001    12      5       5142671.                                        \r\n                   37-        DAREA   9999    11      1       1.                                      DUMMY   \r\n                   38-        EIGR    10      GIV     0.0     1.              12                      +EIGR   \r\n                   39-        +EIGR   MAX                                                                     \r\n                   40-        FREQ1   40      0.0     .25     39                                              \r\n                   41-        GENEL   432             1       3       2       3       3       3       +01     \r\n                   42-        +01     4       3       5       3       6       3       7       3       +02     \r\n                   43-        +02     8       3       9       3       10      3                       +03     \r\n                   44-        +03     UD              11      3       11      4       11      5       +03A    \r\n                   45-        +03A    11      6                                                       +04     \r\n                   46-        +04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05     \r\n                   47-        +05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06     \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07     \r\n                   49-        +07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08     \r\n                   50-        +08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09     \r\n                   51-        +09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10     \r\n                   52-        +10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11     \r\n                   53-        +11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12     \r\n                   54-        +12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13     \r\n                   55-        +13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14     \r\n                   56-        +14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15     \r\n                   57-        +15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16     \r\n                   58-        +16     413.0                                                                   \r\n                   59-        GRID    1               20.25   90.                     12456                   \r\n                   60-        GRID    2               -81.    90.                     12456                   \r\n                   61-        GRID    3               17.85   186.                    12456                   \r\n                   62-        GRID    4               -71.4   186.                    12456                   \r\n                   63-        GRID    5               15.8    268.                    12456                   \r\n                   64-        GRID    6               -63.2   268.                    12456                   \r\n                   65-        GRID    7               13.3    368.                    12456                   \r\n                   66-        GRID    8               -53.2   368.                    12456                   \r\n                   67-        GRID    9               11.05   458.                    12456                   \r\n                   68-        GRID    10              -44.2   458.                    12456                   \r\n                   69-        GRID    11              .0      .0                      126                     \r\n                   70-        GRID    12              -86.45  368.                    1246                    \r\n                   71-        GUST    1011    1000    1.      0.0     8360.                                   \r\n                   72-        MKAERO1 .62                                                             +MK     \r\n                   73-        +MK     .02     .10     .50                                                     \r\n                   74-        MPC     1       12      3       -1.0    8       3       1.5             +MPC1   \r\n                   75-        +MPC1           7       3       -0.5    12      5       33.25                   \r\n                   76-        PAERO1  1000                                                                    \r\n                   77-        PARAM   GUSTAERO1                                                               \r\n                   78-        PARAM   IFTM    0                                                               \r\n                   79-        PARAM   LMODES  12                                                              \r\n                   80-        PARAM   MACH    .62                                                             \r\n                   81-        PARAM   Q       4.00747                                                         \r\n                   82-        PARAM   WTMASS  .0025907                                                        \r\n                   83-        SET1    14      1       THRU    11                                              \r\n                   84-        SET1    15      8       10      12                                              \r\n                   85-        SPC     14      11      45                                                      \r\n                   86-        SPLINE1 104     1022    1026    1039    15                                      \r\n                   87-        SPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1    \r\n                   88-        +SP1    -1.0    -1.0                                                            \r\n                   89-        SPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2    \r\n                   90-        +SP2    -1.0    -1.0                                                            \r\n                   91-        SPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3    \r\n                   92-        +SP3    -1.0    -1.0                                                            \r\n                   93-        SUPORT  11      3                                                               \r\n                   94-        TABDMP1 2000                                                            +T2000  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        +T2000  0.0     .06     10.     .06     ENDT                                    \r\n                   96-        TABLED1 1003                                                            +T1003  \r\n                   97-        +T1003  0.0     1.      1.      1.      1.      -1.     2.      -1.     +T1003A \r\n                   98-        +T1003A ENDT                                                                    \r\n                   99-        TLOAD1  1000    1001                    1003                                    \r\n                  100-        TLOAD1  9999    9999                    1003                            DUMIE   \r\n                  101-        TSTEP   41      40      .1      1                                               \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION MASS2    ELEMENTS (ELEMENT TYPE  26) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM1    ELEMENTS (ELEMENT TYPE  29) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   2.0067149E-16\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      12, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        12\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        12\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        11        0.0                 0.0                 0.0                 1.085996E+02        0.0                      \r\n        2        10        2.344038E+02        1.531025E+01        2.436702E+00        7.333811E+00        1.719073E+03             \r\n        3         9        5.021460E+02        2.240862E+01        3.566442E+00        4.860579E+01        2.440721E+04             \r\n        4         8        2.873470E+03        5.360476E+01        8.531462E+00        6.036275E+00        1.734505E+04             \r\n        5         7        6.346819E+03        7.966693E+01        1.267939E+01        1.389629E+01        8.819726E+04             \r\n        6         6        8.746056E+03        9.352035E+01        1.488422E+01        3.997501E+00        3.496237E+04             \r\n        7         5        1.766041E+04        1.328925E+02        2.115050E+01        3.884947E+00        6.860977E+04             \r\n        8         4        2.401137E+04        1.549560E+02        2.466202E+01        3.570773E+00        8.573913E+04             \r\n        9         3        4.211877E+04        2.052286E+02        3.266314E+01        3.142323E+00        1.323508E+05             \r\n       10         2        6.020940E+04        2.453760E+02        3.905281E+01        1.016273E+00        6.118916E+04             \r\n       11         1        9.492829E+04        3.081043E+02        4.903633E+01        8.935863E+00        8.482661E+05             \r\n       12        12        1.421223E+05        3.769911E+02        6.000000E+01        3.618483E+01        5.142671E+06             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n\r\n      SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATC12 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   21     BBAR =    3\r\n                                        C =   22     CBAR =   38\r\n                                        R =   23\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH5 (N =    42)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =       1\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              M      2.064302E+03                                                                                             \r\n   1.000000E-01     M      2.007178E+03                                                                                             \r\n   2.000000E-01     M      1.804343E+03                                                                                             \r\n   3.000000E-01     M      1.468994E+03                                                                                             \r\n   4.000000E-01     M      1.029565E+03                                                                                             \r\n   5.000000E-01     M      4.977738E+02                                                                                             \r\n   6.000000E-01     M     -9.984888E+01                                                                                             \r\n   7.000000E-01     M     -7.396495E+02                                                                                             \r\n   8.000001E-01     M     -1.425045E+03                                                                                             \r\n   9.000001E-01     M     -2.148120E+03                                                                                             \r\n   1.000000E+00     M     -2.891008E+03                                                                                             \r\n   1.100000E+00     M     -3.529493E+03                                                                                             \r\n   1.200000E+00     M     -3.897287E+03                                                                                             \r\n   1.300000E+00     M     -4.010867E+03                                                                                             \r\n   1.400000E+00     M     -3.927728E+03                                                                                             \r\n   1.500000E+00     M     -3.669541E+03                                                                                             \r\n   1.600000E+00     M     -3.284251E+03                                                                                             \r\n   1.700000E+00     M     -2.820430E+03                                                                                             \r\n   1.800000E+00     M     -2.270575E+03                                                                                             \r\n   1.900000E+00     M     -1.647163E+03                                                                                             \r\n   2.000000E+00     M     -9.876846E+02                                                                                             \r\n   2.100000E+00     M     -3.546162E+02                                                                                             \r\n   2.200000E+00     M      1.711103E+02                                                                                             \r\n   2.300000E+00     M      5.843103E+02                                                                                             \r\n   2.400000E+00     M      9.111294E+02                                                                                             \r\n   2.500000E+00     M      1.163260E+03                                                                                             \r\n   2.600000E+00     M      1.358389E+03                                                                                             \r\n   2.700000E+00     M      1.520520E+03                                                                                             \r\n   2.799999E+00     M      1.646492E+03                                                                                             \r\n   2.899999E+00     M      1.738113E+03                                                                                             \r\n   2.999999E+00     M      1.814391E+03                                                                                             \r\n   3.099999E+00     M      1.876932E+03                                                                                             \r\n   3.199999E+00     M      1.921834E+03                                                                                             \r\n   3.299999E+00     M      1.957562E+03                                                                                             \r\n   3.399999E+00     M      1.987032E+03                                                                                             \r\n   3.499999E+00     M      2.008507E+03                                                                                             \r\n   3.599999E+00     M      2.025710E+03                                                                                             \r\n   3.699999E+00     M      2.039560E+03                                                                                             \r\n   3.799999E+00     M      2.049129E+03                                                                                             \r\n   3.899998E+00     M      2.057171E+03                                                                                             \r\n   3.999998E+00     M      2.064302E+03                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =       2\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              M      3.274581E+00                                                                                             \r\n   1.000000E-01     M     -1.394210E+02                                                                                             \r\n   2.000000E-01     M     -3.233884E+02                                                                                             \r\n   3.000000E-01     M     -2.056410E+02                                                                                             \r\n   4.000000E-01     M      4.530801E+00                                                                                             \r\n   5.000000E-01     M     -4.254552E+01                                                                                             \r\n   6.000000E-01     M     -1.455252E+02                                                                                             \r\n   7.000000E-01     M     -6.785136E+01                                                                                             \r\n   8.000001E-01     M      4.404564E+00                                                                                             \r\n   9.000001E-01     M     -3.001151E+01                                                                                             \r\n   1.000000E+00     M     -4.671601E+01                                                                                             \r\n   1.100000E+00     M      2.552000E+02                                                                                             \r\n   1.200000E+00     M      6.299709E+02                                                                                             \r\n   1.300000E+00     M      4.055769E+02                                                                                             \r\n   1.400000E+00     M     -2.158282E+01                                                                                             \r\n   1.500000E+00     M      6.732695E+01                                                                                             \r\n   1.600000E+00     M      2.897078E+02                                                                                             \r\n   1.700000E+00     M      1.361279E+02                                                                                             \r\n   1.800000E+00     M     -1.919180E+01                                                                                             \r\n   1.900000E+00     M      5.478932E+01                                                                                             \r\n   2.000000E+00     M      9.172913E+01                                                                                             \r\n   2.100000E+00     M     -9.658281E+01                                                                                             \r\n   2.200000E+00     M     -3.021485E+02                                                                                             \r\n   2.300000E+00     M     -1.950714E+02                                                                                             \r\n   2.400000E+00     M      2.697473E+01                                                                                             \r\n   2.500000E+00     M     -9.954379E+00                                                                                             \r\n   2.600000E+00     M     -1.414489E+02                                                                                             \r\n   2.700000E+00     M     -7.214790E+01                                                                                             \r\n   2.799999E+00     M      2.180060E+01                                                                                             \r\n   2.899999E+00     M     -1.844679E+01                                                                                             \r\n   2.999999E+00     M     -4.828806E+01                                                                                             \r\n   3.099999E+00     M     -1.919609E+01                                                                                             \r\n   3.199999E+00     M     -4.433849E+00                                                                                             \r\n   3.299999E+00     M     -4.865630E+00                                                                                             \r\n   3.399999E+00     M     -9.923538E+00                                                                                             \r\n   3.499999E+00     M     -1.482605E+01                                                                                             \r\n   3.599999E+00     M     -2.733705E+00                                                                                             \r\n   3.699999E+00     M      3.870281E+00                                                                                             \r\n   3.799999E+00     M     -7.013237E+00                                                                                             \r\n   3.899998E+00     M     -6.330189E+00                                                                                             \r\n   3.999998E+00     M      3.274910E+00                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =      12\r\n                                       D I S P L A C E M E N T   V E C T O R   (SOLUTION SET)\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              M     -1.110722E-02                                                                                             \r\n   1.000000E-01     M     -2.299328E-02                                                                                             \r\n   2.000000E-01     M     -1.959787E-02                                                                                             \r\n   3.000000E-01     M     -1.715913E-02                                                                                             \r\n   4.000000E-01     M     -1.478000E-02                                                                                             \r\n   5.000000E-01     M     -6.099394E-03                                                                                             \r\n   6.000000E-01     M     -6.095690E-03                                                                                             \r\n   7.000000E-01     M     -9.238105E-03                                                                                             \r\n   8.000001E-01     M     -3.204325E-03                                                                                             \r\n   9.000001E-01     M      2.945682E-04                                                                                             \r\n   1.000000E+00     M      1.709031E-02                                                                                             \r\n   1.100000E+00     M      4.383963E-02                                                                                             \r\n   1.200000E+00     M      3.836090E-02                                                                                             \r\n   1.300000E+00     M      3.214826E-02                                                                                             \r\n   1.400000E+00     M      2.892522E-02                                                                                             \r\n   1.500000E+00     M      1.209898E-02                                                                                             \r\n   1.600000E+00     M      1.124370E-02                                                                                             \r\n   1.700000E+00     M      1.879606E-02                                                                                             \r\n   1.800000E+00     M      7.562626E-03                                                                                             \r\n   1.900000E+00     M      1.079835E-03                                                                                             \r\n   2.000000E+00     M     -2.338416E-03                                                                                             \r\n   2.100000E+00     M     -1.770537E-02                                                                                             \r\n   2.200000E+00     M     -1.851004E-02                                                                                             \r\n   2.300000E+00     M     -1.365891E-02                                                                                             \r\n   2.400000E+00     M     -1.274790E-02                                                                                             \r\n   2.500000E+00     M     -5.750404E-03                                                                                             \r\n   2.600000E+00     M     -4.206950E-03                                                                                             \r\n   2.700000E+00     M     -8.766694E-03                                                                                             \r\n   2.799999E+00     M     -4.215205E-03                                                                                             \r\n   2.899999E+00     M     -1.371025E-04                                                                                             \r\n   2.999999E+00     M     -3.644643E-03                                                                                             \r\n   3.099999E+00     M     -3.141020E-03                                                                                             \r\n   3.199999E+00     M     -2.529959E-04                                                                                             \r\n   3.299999E+00     M     -1.330228E-03                                                                                             \r\n   3.399999E+00     M     -1.397380E-03                                                                                             \r\n   3.499999E+00     M     -2.492365E-04                                                                                             \r\n   3.599999E+00     M     -9.410278E-04                                                                                             \r\n   3.699999E+00     M     -7.913033E-04                                                                                             \r\n   3.799999E+00     M     -1.431867E-04                                                                                             \r\n   3.899998E+00     M     -1.237293E-03                                                                                             \r\n   3.999998E+00     M     -1.110661E-02                                                                                             \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        1( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    1\r\n\r\n\r\n     CURVE  TITLE =     FIRST MODE (PLUNGE)                                                                                        \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.010867E+03 AT X =   1.300000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.064302E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.010867E+03 AT X =   1.300000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.064302E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE        2( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    2\r\n\r\n\r\n     CURVE  TITLE =     SECOND MODE (WING BENDING)                                                                                 \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.233884E+02 AT X =   2.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.299709E+02 AT X =   1.200000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.233884E+02 AT X =   2.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.299709E+02 AT X =   1.200000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S-DISPLACEMENT  CURVE       12( 1)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    3\r\n\r\n\r\n     CURVE  TITLE =     TWELFTH MODE  (AILERON)                                                                                    \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = MODAL DEFLECTION                                                                                               \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.299328E-02 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.383963E-02 AT X =   1.100000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.299328E-02 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.383963E-02 AT X =   1.100000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             FIRST MODE (PLUNGE)                                                                                                   \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -5.000000E+03                                      -1.000000E+03                                       3.000000E+03 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                                            *             I\r\n  1.0000E-01 I                                                          I                                           *              I\r\n  2.0000E-01 I                                                          I                                        *                 I\r\n  3.0000E-01 I                                                          I                                   *                      I\r\n  4.0000E-01 I                                                          I                             *                            I\r\n  5.0000E-01 I                                                          I                     *                                    I\r\n  6.0000E-01 I                                                          I            *                                             I\r\n  7.0000E-01 I                                                          I   *                                                      I\r\n  8.0000E-01 I                                                    *     I                                                          I\r\n  9.0000E-01 I                                         *                I                                                          I\r\n  1.0000E+00 I                              *                           I                                                          I\r\n  1.1000E+00 I                     *                                    I                                                          I\r\n  1.2000E+00 I               *                                          I                                                          I\r\n  1.3000E+00 I              *                                           I                                                          I\r\n  1.4000E+00 I               *                                          I                                                          I\r\n  1.5000E+00 I                   *                                      I                                                          I\r\n  1.6000E+00 I                        *                                 I                                                          I\r\n  1.7000E+00 I                               *                          I                                                          I\r\n  1.8000E+00 I                                       *                  I                                                          I\r\n  1.9000E+00 I                                                *         I                                                          I\r\n  2.0000E+00 I                                                          *                                                          I\r\n  2.1000E+00 I                                                          I         *                                                I\r\n  2.2000E+00 I                                                          I                *                                         I\r\n  2.3000E+00 I                                                          I                      *                                   I\r\n  2.4000E+00 I                                                          I                           *                              I\r\n  2.5000E+00 I                                                          I                               *                          I\r\n  2.6000E+00 I                                                          I                                  *                       I\r\n  2.7000E+00 I                                                          I                                    *                     I\r\n  2.8000E+00 I                                                          I                                      *                   I\r\n  2.9000E+00 I                                                          I                                       *                  I\r\n1 3.0000E+00 I                                                          I                                         *                I\r\n  3.1000E+00 I                                                          I                                         *                I\r\n  3.2000E+00 I                                                          I                                          *               I\r\n  3.3000E+00 I                                                          I                                           *              I\r\n  3.4000E+00 I                                                          I                                           *              I\r\n  3.5000E+00 I                                                          I                                           *              I\r\n  3.6000E+00 I                                                          I                                            *             I\r\n  3.7000E+00 I                                                          I                                            *             I\r\n  3.8000E+00 I                                                          I                                            *             I\r\n  3.9000E+00 I                                                          I                                            *             I\r\n  4.0000E+00 I                                                          I                                            *             I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *   *  \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             SECOND MODE (WING BENDING)                                                                                            \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -4.000000E+02                                       2.000000E+02                                       8.000000E+02 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                       *                  I                                                          I\r\n  1.0000E-01 I                         *                                I                                                          I\r\n  2.0000E-01 I       *                                                  I                                                          I\r\n  3.0000E-01 I                  *                                       I                                                          I\r\n  4.0000E-01 I                                       *                  I                                                          I\r\n  5.0000E-01 I                                  *                       I                                                          I\r\n  6.0000E-01 I                        *                                 I                                                          I\r\n  7.0000E-01 I                                *                         I                                                          I\r\n  8.0000E-01 I                                       *                  I                                                          I\r\n  9.0000E-01 I                                   *                      I                                                          I\r\n  1.0000E+00 I                                  *                       I                                                          I\r\n  1.1000E+00 I                                                          I    *                                                     I\r\n  1.2000E+00 I                                                          I                                         *                I\r\n  1.3000E+00 I                                                          I                   *                                      I\r\n  1.4000E+00 I                                    *                     I                                                          I\r\n  1.5000E+00 I                                             *            I                                                          I\r\n  1.6000E+00 I                                                          I        *                                                 I\r\n  1.7000E+00 I                                                    *     I                                                          I\r\n  1.8000E+00 I                                    *                     I                                                          I\r\n  1.9000E+00 I                                            *             I                                                          I\r\n  2.0000E+00 I                                               *          I                                                          I\r\n  2.1000E+00 I                             *                            I                                                          I\r\n  2.2000E+00 I         *                                                I                                                          I\r\n  2.3000E+00 I                   *                                      I                                                          I\r\n  2.4000E+00 I                                         *                I                                                          I\r\n  2.5000E+00 I                                     *                    I                                                          I\r\n  2.6000E+00 I                        *                                 I                                                          I\r\n  2.7000E+00 I                               *                          I                                                          I\r\n  2.8000E+00 I                                        *                 I                                                          I\r\n  2.9000E+00 I                                     *                    I                                                          I\r\n1 3.0000E+00 I                                  *                       I                                                          I\r\n  3.1000E+00 I                                    *                     I                                                          I\r\n  3.2000E+00 I                                      *                   I                                                          I\r\n  3.3000E+00 I                                      *                   I                                                          I\r\n  3.4000E+00 I                                     *                    I                                                          I\r\n  3.5000E+00 I                                     *                    I                                                          I\r\n  3.6000E+00 I                                      *                   I                                                          I\r\n  3.7000E+00 I                                       *                  I                                                          I\r\n  3.8000E+00 I                                      *                   I                                                          I\r\n  3.9000E+00 I                                      *                   I                                                          I\r\n  4.0000E+00 I                                       *                  I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *   ***\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             TWELFTH MODE  (AILERON)                                                                                               \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  MODAL DEFLECTION                                                                                                   I\r\n             I                                                                                                                     I\r\n             I -3.000000E-02                                       1.000000E-02                                       5.000000E-02 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                           *                              I                                                          I\r\n  1.0000E-01 I         *                                                I                                                          I\r\n  2.0000E-01 I              *                                           I                                                          I\r\n  3.0000E-01 I                  *                                       I                                                          I\r\n  4.0000E-01 I                     *                                    I                                                          I\r\n  5.0000E-01 I                                  *                       I                                                          I\r\n  6.0000E-01 I                                  *                       I                                                          I\r\n  7.0000E-01 I                              *                           I                                                          I\r\n  8.0000E-01 I                                       *                  I                                                          I\r\n  9.0000E-01 I                                            *             I                                                          I\r\n  1.0000E+00 I                                                          I         *                                                I\r\n  1.1000E+00 I                                                          I                                                 *        I\r\n  1.2000E+00 I                                                          I                                         *                I\r\n  1.3000E+00 I                                                          I                                *                         I\r\n  1.4000E+00 I                                                          I                           *                              I\r\n  1.5000E+00 I                                                          I  *                                                       I\r\n  1.6000E+00 I                                                          I *                                                        I\r\n  1.7000E+00 I                                                          I            *                                             I\r\n  1.8000E+00 I                                                      *   I                                                          I\r\n  1.9000E+00 I                                             *            I                                                          I\r\n  2.0000E+00 I                                        *                 I                                                          I\r\n  2.1000E+00 I                 *                                        I                                                          I\r\n  2.2000E+00 I                *                                         I                                                          I\r\n  2.3000E+00 I                       *                                  I                                                          I\r\n  2.4000E+00 I                        *                                 I                                                          I\r\n  2.5000E+00 I                                   *                      I                                                          I\r\n  2.6000E+00 I                                     *                    I                                                          I\r\n  2.7000E+00 I                              *                           I                                                          I\r\n  2.8000E+00 I                                     *                    I                                                          I\r\n  2.9000E+00 I                                           *              I                                                          I\r\n1 3.0000E+00 I                                      *                   I                                                          I\r\n  3.1000E+00 I                                       *                  I                                                          I\r\n  3.2000E+00 I                                           *              I                                                          I\r\n  3.3000E+00 I                                         *                I                                                          I\r\n  3.4000E+00 I                                         *                I                                                          I\r\n  3.5000E+00 I                                           *              I                                                          I\r\n  3.6000E+00 I                                          *               I                                                          I\r\n  3.7000E+00 I                                          *               I                                                          I\r\n  3.8000E+00 I                                           *              I                                                          I\r\n  3.9000E+00 I                                         *                I                                                          I\r\n  4.0000E+00 I                           *                              I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            2.063498E+03   0.0            0.0            0.0                           \r\n   1.000000E-01     G      0.0            0.0            2.022883E+03   0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            1.843626E+03   0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            1.494639E+03   0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            1.027708E+03   0.0            0.0            0.0                           \r\n   5.000000E-01     G      0.0            0.0            5.020403E+02   0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0           -8.131599E+01   0.0            0.0            0.0                           \r\n   7.000000E-01     G      0.0            0.0           -7.315193E+02   0.0            0.0            0.0                           \r\n   8.000001E-01     G      0.0            0.0           -1.426337E+03   0.0            0.0            0.0                           \r\n   9.000001E-01     G      0.0            0.0           -2.144231E+03   0.0            0.0            0.0                           \r\n   1.000000E+00     G      0.0            0.0           -2.884605E+03   0.0            0.0            0.0                           \r\n   1.100000E+00     G      0.0            0.0           -3.558310E+03   0.0            0.0            0.0                           \r\n   1.200000E+00     G      0.0            0.0           -3.973629E+03   0.0            0.0            0.0                           \r\n   1.300000E+00     G      0.0            0.0           -4.061571E+03   0.0            0.0            0.0                           \r\n   1.400000E+00     G      0.0            0.0           -3.922640E+03   0.0            0.0            0.0                           \r\n   1.500000E+00     G      0.0            0.0           -3.675711E+03   0.0            0.0            0.0                           \r\n   1.600000E+00     G      0.0            0.0           -3.321181E+03   0.0            0.0            0.0                           \r\n   1.700000E+00     G      0.0            0.0           -2.836856E+03   0.0            0.0            0.0                           \r\n   1.800000E+00     G      0.0            0.0           -2.266551E+03   0.0            0.0            0.0                           \r\n   1.900000E+00     G      0.0            0.0           -1.654186E+03   0.0            0.0            0.0                           \r\n   2.000000E+00     G      0.0            0.0           -9.994463E+02   0.0            0.0            0.0                           \r\n   2.100000E+00     G      0.0            0.0           -3.435209E+02   0.0            0.0            0.0                           \r\n   2.200000E+00     G      0.0            0.0            2.076604E+02   0.0            0.0            0.0                           \r\n   2.300000E+00     G      0.0            0.0            6.087262E+02   0.0            0.0            0.0                           \r\n   2.400000E+00     G      0.0            0.0            9.068658E+02   0.0            0.0            0.0                           \r\n   2.500000E+00     G      0.0            0.0            1.163298E+03   0.0            0.0            0.0                           \r\n   2.600000E+00     G      0.0            0.0            1.376413E+03   0.0            0.0            0.0                           \r\n   2.700000E+00     G      0.0            0.0            1.529460E+03   0.0            0.0            0.0                           \r\n   2.799999E+00     G      0.0            0.0            1.642889E+03   0.0            0.0            0.0                           \r\n   2.899999E+00     G      0.0            0.0            1.740427E+03   0.0            0.0            0.0                           \r\n   2.999999E+00     G      0.0            0.0            1.820555E+03   0.0            0.0            0.0                           \r\n   3.099999E+00     G      0.0            0.0            1.878949E+03   0.0            0.0            0.0                           \r\n   3.199999E+00     G      0.0            0.0            1.922343E+03   0.0            0.0            0.0                           \r\n   3.299999E+00     G      0.0            0.0            1.958206E+03   0.0            0.0            0.0                           \r\n   3.399999E+00     G      0.0            0.0            1.988065E+03   0.0            0.0            0.0                           \r\n   3.499999E+00     G      0.0            0.0            2.010374E+03   0.0            0.0            0.0                           \r\n   3.599999E+00     G      0.0            0.0            2.026084E+03   0.0            0.0            0.0                           \r\n   3.699999E+00     G      0.0            0.0            2.038916E+03   0.0            0.0            0.0                           \r\n   3.799999E+00     G      0.0            0.0            2.050000E+03   0.0            0.0            0.0                           \r\n   3.899998E+00     G      0.0            0.0            2.057991E+03   0.0            0.0            0.0                           \r\n   3.999998E+00     G      0.0            0.0            2.063498E+03   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =       9\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            2.065569E+03   0.0            0.0            0.0                           \r\n   1.000000E-01     G      0.0            0.0            1.864147E+03   0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            1.477287E+03   0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            1.260171E+03   0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            1.027672E+03   0.0            0.0            0.0                           \r\n   5.000000E-01     G      0.0            0.0            4.521985E+02   0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0           -2.441459E+02   0.0            0.0            0.0                           \r\n   7.000000E-01     G      0.0            0.0           -8.097794E+02   0.0            0.0            0.0                           \r\n   8.000001E-01     G      0.0            0.0           -1.423359E+03   0.0            0.0            0.0                           \r\n   9.000001E-01     G      0.0            0.0           -2.177196E+03   0.0            0.0            0.0                           \r\n   1.000000E+00     G      0.0            0.0           -2.934821E+03   0.0            0.0            0.0                           \r\n   1.100000E+00     G      0.0            0.0           -3.268601E+03   0.0            0.0            0.0                           \r\n   1.200000E+00     G      0.0            0.0           -3.259711E+03   0.0            0.0            0.0                           \r\n   1.300000E+00     G      0.0            0.0           -3.599414E+03   0.0            0.0            0.0                           \r\n   1.400000E+00     G      0.0            0.0           -3.937007E+03   0.0            0.0            0.0                           \r\n   1.500000E+00     G      0.0            0.0           -3.595702E+03   0.0            0.0            0.0                           \r\n   1.600000E+00     G      0.0            0.0           -2.997221E+03   0.0            0.0            0.0                           \r\n   1.700000E+00     G      0.0            0.0           -2.680011E+03   0.0            0.0            0.0                           \r\n   1.800000E+00     G      0.0            0.0           -2.283676E+03   0.0            0.0            0.0                           \r\n   1.900000E+00     G      0.0            0.0           -1.593742E+03   0.0            0.0            0.0                           \r\n   2.000000E+00     G      0.0            0.0           -8.970982E+02   0.0            0.0            0.0                           \r\n   2.100000E+00     G      0.0            0.0           -4.514829E+02   0.0            0.0            0.0                           \r\n   2.200000E+00     G      0.0            0.0           -1.346823E+02   0.0            0.0            0.0                           \r\n   2.300000E+00     G      0.0            0.0            3.864014E+02   0.0            0.0            0.0                           \r\n   2.400000E+00     G      0.0            0.0            9.328888E+02   0.0            0.0            0.0                           \r\n   2.500000E+00     G      0.0            0.0            1.149841E+03   0.0            0.0            0.0                           \r\n   2.600000E+00     G      0.0            0.0            1.218463E+03   0.0            0.0            0.0                           \r\n   2.700000E+00     G      0.0            0.0            1.446945E+03   0.0            0.0            0.0                           \r\n   2.799999E+00     G      0.0            0.0            1.664918E+03   0.0            0.0            0.0                           \r\n   2.899999E+00     G      0.0            0.0            1.720154E+03   0.0            0.0            0.0                           \r\n   2.999999E+00     G      0.0            0.0            1.766351E+03   0.0            0.0            0.0                           \r\n   3.099999E+00     G      0.0            0.0            1.855938E+03   0.0            0.0            0.0                           \r\n   3.199999E+00     G      0.0            0.0            1.917106E+03   0.0            0.0            0.0                           \r\n   3.299999E+00     G      0.0            0.0            1.952840E+03   0.0            0.0            0.0                           \r\n   3.399999E+00     G      0.0            0.0            1.976445E+03   0.0            0.0            0.0                           \r\n   3.499999E+00     G      0.0            0.0            1.993663E+03   0.0            0.0            0.0                           \r\n   3.599999E+00     G      0.0            0.0            2.022904E+03   0.0            0.0            0.0                           \r\n   3.699999E+00     G      0.0            0.0            2.042845E+03   0.0            0.0            0.0                           \r\n   3.799999E+00     G      0.0            0.0            2.042119E+03   0.0            0.0            0.0                           \r\n   3.899998E+00     G      0.0            0.0            2.050786E+03   0.0            0.0            0.0                           \r\n   3.999998E+00     G      0.0            0.0            2.065570E+03   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            2.069288E+03   0.0            0.0            0.0                           \r\n   1.000000E-01     G      0.0            0.0            1.882753E+03   0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            1.495964E+03   0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            1.267095E+03   0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            1.042469E+03   0.0            0.0            0.0                           \r\n   5.000000E-01     G      0.0            0.0            4.635686E+02   0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0           -2.451654E+02   0.0            0.0            0.0                           \r\n   7.000000E-01     G      0.0            0.0           -8.037244E+02   0.0            0.0            0.0                           \r\n   8.000001E-01     G      0.0            0.0           -1.415128E+03   0.0            0.0            0.0                           \r\n   9.000001E-01     G      0.0            0.0           -2.178450E+03   0.0            0.0            0.0                           \r\n   1.000000E+00     G      0.0            0.0           -2.938882E+03   0.0            0.0            0.0                           \r\n   1.100000E+00     G      0.0            0.0           -3.301116E+03   0.0            0.0            0.0                           \r\n   1.200000E+00     G      0.0            0.0           -3.298004E+03   0.0            0.0            0.0                           \r\n   1.300000E+00     G      0.0            0.0           -3.611802E+03   0.0            0.0            0.0                           \r\n   1.400000E+00     G      0.0            0.0           -3.964293E+03   0.0            0.0            0.0                           \r\n   1.500000E+00     G      0.0            0.0           -3.619564E+03   0.0            0.0            0.0                           \r\n   1.600000E+00     G      0.0            0.0           -2.994708E+03   0.0            0.0            0.0                           \r\n   1.700000E+00     G      0.0            0.0           -2.690915E+03   0.0            0.0            0.0                           \r\n   1.800000E+00     G      0.0            0.0           -2.301489E+03   0.0            0.0            0.0                           \r\n   1.900000E+00     G      0.0            0.0           -1.592075E+03   0.0            0.0            0.0                           \r\n   2.000000E+00     G      0.0            0.0           -8.962755E+02   0.0            0.0            0.0                           \r\n   2.100000E+00     G      0.0            0.0           -4.425208E+02   0.0            0.0            0.0                           \r\n   2.200000E+00     G      0.0            0.0           -1.157500E+02   0.0            0.0            0.0                           \r\n   2.300000E+00     G      0.0            0.0            3.922905E+02   0.0            0.0            0.0                           \r\n   2.400000E+00     G      0.0            0.0            9.429612E+02   0.0            0.0            0.0                           \r\n   2.500000E+00     G      0.0            0.0            1.162097E+03   0.0            0.0            0.0                           \r\n   2.600000E+00     G      0.0            0.0            1.217182E+03   0.0            0.0            0.0                           \r\n   2.700000E+00     G      0.0            0.0            1.450146E+03   0.0            0.0            0.0                           \r\n   2.799999E+00     G      0.0            0.0            1.674348E+03   0.0            0.0            0.0                           \r\n   2.899999E+00     G      0.0            0.0            1.719919E+03   0.0            0.0            0.0                           \r\n   2.999999E+00     G      0.0            0.0            1.765870E+03   0.0            0.0            0.0                           \r\n   3.099999E+00     G      0.0            0.0            1.860885E+03   0.0            0.0            0.0                           \r\n   3.199999E+00     G      0.0            0.0            1.917790E+03   0.0            0.0            0.0                           \r\n   3.299999E+00     G      0.0            0.0            1.952415E+03   0.0            0.0            0.0                           \r\n   3.399999E+00     G      0.0            0.0            1.978861E+03   0.0            0.0            0.0                           \r\n   3.499999E+00     G      0.0            0.0            1.993899E+03   0.0            0.0            0.0                           \r\n   3.599999E+00     G      0.0            0.0            2.022692E+03   0.0            0.0            0.0                           \r\n   3.699999E+00     G      0.0            0.0            2.044492E+03   0.0            0.0            0.0                           \r\n   3.799999E+00     G      0.0            0.0            2.042270E+03   0.0            0.0            0.0                           \r\n   3.899998E+00     G      0.0            0.0            2.050609E+03   0.0            0.0            0.0                           \r\n   3.999998E+00     G      0.0            0.0            2.069288E+03   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            2.063936E+03   0.0            0.0            0.0                           \r\n   1.000000E-01     G      0.0            0.0            2.032315E+03   0.0            0.0            0.0                           \r\n   2.000000E-01     G      0.0            0.0            1.859970E+03   0.0            0.0            0.0                           \r\n   3.000000E-01     G      0.0            0.0            1.503467E+03   0.0            0.0            0.0                           \r\n   4.000000E-01     G      0.0            0.0            1.029672E+03   0.0            0.0            0.0                           \r\n   5.000000E-01     G      0.0            0.0            5.058488E+02   0.0            0.0            0.0                           \r\n   6.000000E-01     G      0.0            0.0           -7.559833E+01   0.0            0.0            0.0                           \r\n   7.000000E-01     G      0.0            0.0           -7.279618E+02   0.0            0.0            0.0                           \r\n   8.000001E-01     G      0.0            0.0           -1.425176E+03   0.0            0.0            0.0                           \r\n   9.000001E-01     G      0.0            0.0           -2.143169E+03   0.0            0.0            0.0                           \r\n   1.000000E+00     G      0.0            0.0           -2.883321E+03   0.0            0.0            0.0                           \r\n   1.100000E+00     G      0.0            0.0           -3.575487E+03   0.0            0.0            0.0                           \r\n   1.200000E+00     G      0.0            0.0           -4.005847E+03   0.0            0.0            0.0                           \r\n   1.300000E+00     G      0.0            0.0           -4.078746E+03   0.0            0.0            0.0                           \r\n   1.400000E+00     G      0.0            0.0           -3.925650E+03   0.0            0.0            0.0                           \r\n   1.500000E+00     G      0.0            0.0           -3.682824E+03   0.0            0.0            0.0                           \r\n   1.600000E+00     G      0.0            0.0           -3.332505E+03   0.0            0.0            0.0                           \r\n   1.700000E+00     G      0.0            0.0           -2.843768E+03   0.0            0.0            0.0                           \r\n   1.800000E+00     G      0.0            0.0           -2.268671E+03   0.0            0.0            0.0                           \r\n   1.900000E+00     G      0.0            0.0           -1.656245E+03   0.0            0.0            0.0                           \r\n   2.000000E+00     G      0.0            0.0           -1.003027E+03   0.0            0.0            0.0                           \r\n   2.100000E+00     G      0.0            0.0           -3.373033E+02   0.0            0.0            0.0                           \r\n   2.200000E+00     G      0.0            0.0            2.232864E+02   0.0            0.0            0.0                           \r\n   2.300000E+00     G      0.0            0.0            6.169357E+02   0.0            0.0            0.0                           \r\n   2.400000E+00     G      0.0            0.0            9.070787E+02   0.0            0.0            0.0                           \r\n   2.500000E+00     G      0.0            0.0            1.165985E+03   0.0            0.0            0.0                           \r\n   2.600000E+00     G      0.0            0.0            1.381981E+03   0.0            0.0            0.0                           \r\n   2.700000E+00     G      0.0            0.0            1.532689E+03   0.0            0.0            0.0                           \r\n   2.799999E+00     G      0.0            0.0            1.643534E+03   0.0            0.0            0.0                           \r\n   2.899999E+00     G      0.0            0.0            1.741217E+03   0.0            0.0            0.0                           \r\n   2.999999E+00     G      0.0            0.0            1.822413E+03   0.0            0.0            0.0                           \r\n   3.099999E+00     G      0.0            0.0            1.880476E+03   0.0            0.0            0.0                           \r\n   3.199999E+00     G      0.0            0.0            1.922591E+03   0.0            0.0            0.0                           \r\n   3.299999E+00     G      0.0            0.0            1.958343E+03   0.0            0.0            0.0                           \r\n   3.399999E+00     G      0.0            0.0            1.988899E+03   0.0            0.0            0.0                           \r\n   3.499999E+00     G      0.0            0.0            2.010991E+03   0.0            0.0            0.0                           \r\n   3.599999E+00     G      0.0            0.0            2.026122E+03   0.0            0.0            0.0                           \r\n   3.699999E+00     G      0.0            0.0            2.039041E+03   0.0            0.0            0.0                           \r\n   3.799999E+00     G      0.0            0.0            2.050315E+03   0.0            0.0            0.0                           \r\n   3.899998E+00     G      0.0            0.0            2.058197E+03   0.0            0.0            0.0                           \r\n   3.999998E+00     G      0.0            0.0            2.063936E+03   0.0            0.0            0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =      12\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            2.070141E+03   0.0           -1.110722E-02   0.0                           \r\n   1.000000E-01     G      0.0            0.0            1.945028E+03   0.0           -2.299328E-02   0.0                           \r\n   2.000000E-01     G      0.0            0.0            1.627890E+03   0.0           -1.959787E-02   0.0                           \r\n   3.000000E-01     G      0.0            0.0            1.347901E+03   0.0           -1.715913E-02   0.0                           \r\n   4.000000E-01     G      0.0            0.0            1.051156E+03   0.0           -1.478000E-02   0.0                           \r\n   5.000000E-01     G      0.0            0.0            4.867600E+02   0.0           -6.099394E-03   0.0                           \r\n   6.000000E-01     G      0.0            0.0           -1.925655E+02   0.0           -6.095690E-03   0.0                           \r\n   7.000000E-01     G      0.0            0.0           -7.743485E+02   0.0           -9.238105E-03   0.0                           \r\n   8.000001E-01     G      0.0            0.0           -1.411194E+03   0.0           -3.204325E-03   0.0                           \r\n   9.000001E-01     G      0.0            0.0           -2.168667E+03   0.0            2.945682E-04   0.0                           \r\n   1.000000E+00     G      0.0            0.0           -2.923285E+03   0.0            1.709031E-02   0.0                           \r\n   1.100000E+00     G      0.0            0.0           -3.413547E+03   0.0            4.383963E-02   0.0                           \r\n   1.200000E+00     G      0.0            0.0           -3.556476E+03   0.0            3.836090E-02   0.0                           \r\n   1.300000E+00     G      0.0            0.0           -3.770318E+03   0.0            3.214826E-02   0.0                           \r\n   1.400000E+00     G      0.0            0.0           -3.975432E+03   0.0            2.892522E-02   0.0                           \r\n   1.500000E+00     G      0.0            0.0           -3.660234E+03   0.0            1.209898E-02   0.0                           \r\n   1.600000E+00     G      0.0            0.0           -3.099033E+03   0.0            1.124370E-02   0.0                           \r\n   1.700000E+00     G      0.0            0.0           -2.748942E+03   0.0            1.879606E-02   0.0                           \r\n   1.800000E+00     G      0.0            0.0           -2.306479E+03   0.0            7.562626E-03   0.0                           \r\n   1.900000E+00     G      0.0            0.0           -1.610207E+03   0.0            1.079835E-03   0.0                           \r\n   2.000000E+00     G      0.0            0.0           -9.302241E+02   0.0           -2.338416E-03   0.0                           \r\n   2.100000E+00     G      0.0            0.0           -4.031586E+02   0.0           -1.770537E-02   0.0                           \r\n   2.200000E+00     G      0.0            0.0            8.815657E+00   0.0           -1.851004E-02   0.0                           \r\n   2.300000E+00     G      0.0            0.0            4.686606E+02   0.0           -1.365891E-02   0.0                           \r\n   2.400000E+00     G      0.0            0.0            9.400485E+02   0.0           -1.274790E-02   0.0                           \r\n   2.500000E+00     G      0.0            0.0            1.173980E+03   0.0           -5.750404E-03   0.0                           \r\n   2.600000E+00     G      0.0            0.0            1.268070E+03   0.0           -4.206950E-03   0.0                           \r\n   2.700000E+00     G      0.0            0.0            1.479060E+03   0.0           -8.766694E-03   0.0                           \r\n   2.799999E+00     G      0.0            0.0            1.672758E+03   0.0           -4.215205E-03   0.0                           \r\n   2.899999E+00     G      0.0            0.0            1.726080E+03   0.0           -1.371025E-04   0.0                           \r\n   2.999999E+00     G      0.0            0.0            1.783369E+03   0.0           -3.644643E-03   0.0                           \r\n   3.099999E+00     G      0.0            0.0            1.871678E+03   0.0           -3.141020E-03   0.0                           \r\n   3.199999E+00     G      0.0            0.0            1.919771E+03   0.0           -2.529959E-04   0.0                           \r\n   3.299999E+00     G      0.0            0.0            1.953756E+03   0.0           -1.330228E-03   0.0                           \r\n   3.399999E+00     G      0.0            0.0            1.984225E+03   0.0           -1.397380E-03   0.0                           \r\n   3.499999E+00     G      0.0            0.0            1.999495E+03   0.0           -2.492365E-04   0.0                           \r\n   3.599999E+00     G      0.0            0.0            2.023528E+03   0.0           -9.410278E-04   0.0                           \r\n   3.699999E+00     G      0.0            0.0            2.044230E+03   0.0           -7.913033E-04   0.0                           \r\n   3.799999E+00     G      0.0            0.0            2.044917E+03   0.0           -1.431867E-04   0.0                           \r\n   3.899998E+00     G      0.0            0.0            2.052796E+03   0.0           -1.237293E-03   0.0                           \r\n   3.999998E+00     G      0.0            0.0            2.070141E+03   0.0           -1.110661E-02   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =    1040\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0           -2.065000E+03   0.0            6.731594E-02   0.0                           \r\n   1.000000E-01     G      0.0            0.0           -1.840742E+03   0.0            3.367608E-01   0.0                           \r\n   2.000000E-01     G      0.0            0.0           -1.425894E+03   0.0            3.380474E-01   0.0                           \r\n   3.000000E-01     G      0.0            0.0           -1.227091E+03   0.0            1.253194E-01   0.0                           \r\n   4.000000E-01     G      0.0            0.0           -1.025317E+03   0.0            2.678291E-01   0.0                           \r\n   5.000000E-01     G      0.0            0.0           -4.442044E+02   0.0            2.057974E-01   0.0                           \r\n   6.000000E-01     G      0.0            0.0            2.659632E+02   0.0           -1.845288E-02   0.0                           \r\n   7.000000E-01     G      0.0            0.0            8.212617E+02   0.0            1.095909E-01   0.0                           \r\n   8.000001E-01     G      0.0            0.0            1.423959E+03   0.0            1.489908E-01   0.0                           \r\n   9.000001E-01     G      0.0            0.0            2.181396E+03   0.0           -2.270357E-02   0.0                           \r\n   1.000000E+00     G      0.0            0.0            2.940364E+03   0.0           -7.351384E-02   0.0                           \r\n   1.100000E+00     G      0.0            0.0            3.226108E+03   0.0           -5.885241E-01   0.0                           \r\n   1.200000E+00     G      0.0            0.0            3.159400E+03   0.0           -6.930916E-01   0.0                           \r\n   1.300000E+00     G      0.0            0.0            3.534366E+03   0.0           -2.242247E-01   0.0                           \r\n   1.400000E+00     G      0.0            0.0            3.934462E+03   0.0           -4.938799E-01   0.0                           \r\n   1.500000E+00     G      0.0            0.0            3.582230E+03   0.0           -4.319123E-01   0.0                           \r\n   1.600000E+00     G      0.0            0.0            2.953887E+03   0.0            4.546180E-02   0.0                           \r\n   1.700000E+00     G      0.0            0.0            2.657086E+03   0.0           -1.973463E-01   0.0                           \r\n   1.800000E+00     G      0.0            0.0            2.283748E+03   0.0           -3.224172E-01   0.0                           \r\n   1.900000E+00     G      0.0            0.0            1.585866E+03   0.0            3.016706E-02   0.0                           \r\n   2.000000E+00     G      0.0            0.0            8.836729E+02   0.0            1.488817E-02   0.0                           \r\n   2.100000E+00     G      0.0            0.0            4.668138E+02   0.0            1.622071E-01   0.0                           \r\n   2.200000E+00     G      0.0            0.0            1.827681E+02   0.0            3.426673E-01   0.0                           \r\n   2.300000E+00     G      0.0            0.0           -3.551424E+02   0.0            1.065937E-01   0.0                           \r\n   2.400000E+00     G      0.0            0.0           -9.345300E+02   0.0            1.823113E-01   0.0                           \r\n   2.500000E+00     G      0.0            0.0           -1.146651E+03   0.0            2.218428E-01   0.0                           \r\n   2.600000E+00     G      0.0            0.0           -1.197411E+03   0.0           -2.317570E-02   0.0                           \r\n   2.700000E+00     G      0.0            0.0           -1.435183E+03   0.0            5.793654E-02   0.0                           \r\n   2.799999E+00     G      0.0            0.0           -1.666672E+03   0.0            1.706786E-01   0.0                           \r\n   2.899999E+00     G      0.0            0.0           -1.717493E+03   0.0           -4.257983E-03   0.0                           \r\n   2.999999E+00     G      0.0            0.0           -1.759039E+03   0.0           -8.691429E-03   0.0                           \r\n   3.099999E+00     G      0.0            0.0           -1.852181E+03   0.0            8.955587E-02   0.0                           \r\n   3.199999E+00     G      0.0            0.0           -1.916274E+03   0.0            1.237866E-02   0.0                           \r\n   3.299999E+00     G      0.0            0.0           -1.952131E+03   0.0           -7.688629E-03   0.0                           \r\n   3.399999E+00     G      0.0            0.0           -1.974613E+03   0.0            4.373834E-02   0.0                           \r\n   3.499999E+00     G      0.0            0.0           -1.991376E+03   0.0            4.274166E-03   0.0                           \r\n   3.599999E+00     G      0.0            0.0           -2.022439E+03   0.0           -3.832736E-03   0.0                           \r\n   3.699999E+00     G      0.0            0.0           -2.043164E+03   0.0            2.981645E-02   0.0                           \r\n   3.799999E+00     G      0.0            0.0           -2.041035E+03   0.0            2.749625E-03   0.0                           \r\n   3.899998E+00     G      0.0            0.0           -2.049771E+03   0.0           -3.204404E-03   0.0                           \r\n   3.999998E+00     G      0.0            0.0           -2.065000E+03   0.0            6.731123E-02   0.0                           \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n      POINT-ID =      11\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            2.183842E+05  -3.129226E+06  -2.566727E+06                  \r\n   1.000000E-01     G      0.0            0.0            0.0            1.263607E+08  -3.057032E+07   1.039209E+08                  \r\n   2.000000E-01     G      0.0            0.0            0.0            2.625764E+08  -3.081451E+07   2.280248E+08                  \r\n   3.000000E-01     G      0.0            0.0            0.0            1.597191E+08  -4.173922E+06   1.394008E+08                  \r\n   4.000000E-01     G      0.0            0.0            0.0            1.853800E+06  -2.137149E+07  -2.679841E+06                  \r\n   5.000000E-01     G      0.0            0.0            0.0            4.040059E+07  -1.976332E+07   3.232064E+07                  \r\n   6.000000E-01     G      0.0            0.0            0.0            1.135909E+08   3.763946E+06   1.001285E+08                  \r\n   7.000000E-01     G      0.0            0.0            0.0            5.432721E+07  -8.480054E+06   4.685489E+07                  \r\n   8.000001E-01     G      0.0            0.0            0.0            2.149500E+05  -1.396424E+07  -1.649121E+06                  \r\n   9.000001E-01     G      0.0            0.0            0.0            2.325135E+07   2.235380E+06   2.050128E+07                  \r\n   1.000000E+00     G      0.0            0.0            0.0            3.209131E+07   7.879609E+05   3.316813E+07                  \r\n   1.100000E+00     G      0.0            0.0            0.0           -2.328166E+08   5.307592E+07  -1.909845E+08                  \r\n   1.200000E+00     G      0.0            0.0            0.0           -5.126238E+08   6.428876E+07  -4.450428E+08                  \r\n   1.300000E+00     G      0.0            0.0            0.0           -3.142871E+08   5.886246E+06  -2.746721E+08                  \r\n   1.400000E+00     G      0.0            0.0            0.0            7.045710E+06   3.822939E+07   1.453730E+07                  \r\n   1.500000E+00     G      0.0            0.0            0.0           -6.778435E+07   4.173702E+07  -5.286813E+07                  \r\n   1.600000E+00     G      0.0            0.0            0.0           -2.263909E+08  -8.494419E+06  -1.995502E+08                  \r\n   1.700000E+00     G      0.0            0.0            0.0           -1.088090E+08   1.406240E+07  -9.385458E+07                  \r\n   1.800000E+00     G      0.0            0.0            0.0            6.470409E+06   2.958301E+07   9.968232E+06                  \r\n   1.900000E+00     G      0.0            0.0            0.0           -4.408194E+07  -4.497926E+06  -3.800241E+07                  \r\n   2.000000E+00     G      0.0            0.0            0.0           -6.976742E+07   7.189612E+05  -6.361345E+07                  \r\n   2.100000E+00     G      0.0            0.0            0.0            9.006583E+07  -1.408924E+07   7.330578E+07                  \r\n   2.200000E+00     G      0.0            0.0            0.0            2.462900E+08  -3.313195E+07   2.140517E+08                  \r\n   2.300000E+00     G      0.0            0.0            0.0            1.504838E+08  -3.050910E+06   1.319378E+08                  \r\n   2.400000E+00     G      0.0            0.0            0.0           -1.796642E+07  -1.243421E+07  -1.939174E+07                  \r\n   2.500000E+00     G      0.0            0.0            0.0            1.575666E+07  -2.195534E+07   1.033126E+07                  \r\n   2.600000E+00     G      0.0            0.0            0.0            1.108252E+08   3.735464E+06   9.777962E+07                  \r\n   2.700000E+00     G      0.0            0.0            0.0            5.659907E+07  -2.733830E+06   4.928219E+07                  \r\n   2.799999E+00     G      0.0            0.0            0.0           -1.248469E+07  -1.562547E+07  -1.329507E+07                  \r\n   2.899999E+00     G      0.0            0.0            0.0            1.571370E+07   1.192700E+06   1.318122E+07                  \r\n   2.999999E+00     G      0.0            0.0            0.0            3.745796E+07   1.622420E+06   3.301228E+07                  \r\n   3.099999E+00     G      0.0            0.0            0.0            1.638992E+07  -8.416313E+06   1.375774E+07                  \r\n   3.199999E+00     G      0.0            0.0            0.0            3.757460E+06  -3.425045E+05   2.966170E+06                  \r\n   3.299999E+00     G      0.0            0.0            0.0            4.085065E+06   1.338622E+06   3.334150E+06                  \r\n   3.399999E+00     G      0.0            0.0            0.0            9.067496E+06  -4.423534E+06   7.534804E+06                  \r\n   3.499999E+00     G      0.0            0.0            0.0            1.162638E+07  -1.856149E+04   1.021557E+07                  \r\n   3.599999E+00     G      0.0            0.0            0.0            1.974877E+06   9.949620E+05   1.642066E+06                  \r\n   3.699999E+00     G      0.0            0.0            0.0           -2.116454E+06  -2.848247E+06  -2.281750E+06                  \r\n   3.799999E+00     G      0.0            0.0            0.0            5.799244E+06   6.555239E+03   4.975870E+06                  \r\n   3.899998E+00     G      0.0            0.0            0.0            5.116250E+06   1.069721E+06   4.319319E+06                  \r\n   3.999998E+00     G      0.0            0.0            0.0            2.178892E+05  -3.129086E+06  -2.566966E+06                  \r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        9( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.937007E+03 AT X =   1.400000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.065570E+03 AT X =   3.999998E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.937007E+03 AT X =   1.400000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.065570E+03 AT X =   3.999998E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       10( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    4\r\n\r\n\r\n     CURVE  TITLE =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                   \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.964293E+03 AT X =   1.400000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.069288E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.964293E+03 AT X =   1.400000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.069288E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       11( 3)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    5\r\n\r\n\r\n     CURVE  TITLE =     FUSELAGE PLUNGE                                                                                            \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.078746E+03 AT X =   1.300000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.063936E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.078746E+03 AT X =   1.300000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.063936E+03 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       12( 5)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    6\r\n\r\n\r\n     CURVE  TITLE =     AILERON DEFLECTION                                                                                         \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.299328E-02 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.383963E-02 AT X =   1.100000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -2.299328E-02 AT X =   1.000000E-01\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.383963E-02 AT X =   1.100000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE     1040( 5)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    7\r\n\r\n\r\n     CURVE  TITLE =     AERODYNAMIC BOX NEAR TIP , PITCH                                                                           \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = PHYSICAL DEFLECTION                                                                                            \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.930916E-01 AT X =   1.200000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.426673E-01 AT X =   2.200000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.930916E-01 AT X =   1.200000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.426673E-01 AT X =   2.200000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      S P C F         CURVE       11( 6)\r\n \r\n      THIS CURVE WILL BE PAPER-PLOTTED FRAME    8\r\n\r\n\r\n     CURVE  TITLE =     WING ROOT BENDING MOMENT                                                                                   \r\n      X-AXIS TITLE =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n      Y-AXIS TITLE = ROTATIONAL CONSTRAINTS                                                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.450428E+08 AT X =   1.200000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.280248E+08 AT X =   2.000000E-01\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  3.999998E+00)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -4.450428E+08 AT X =   1.200000E+00\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.280248E+08 AT X =   2.000000E-01\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  * * \r\n                                                           *  *  *  *  *  *  *  *  * * \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****    * \r\n\r\n0             WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                                                                              \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -4.000000E+03                                      -5.000000E+02                                       3.000000E+03 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                                          0               I\r\n  1.0000E-01 I                                                          I                                       0                  I\r\n  2.0000E-01 I                                                          I                                *0                        I\r\n  3.0000E-01 I                                                          I                             0                            I\r\n  4.0000E-01 I                                                          I                         0                                I\r\n  5.0000E-01 I                                                          I               0                                          I\r\n  6.0000E-01 I                                                          I   0                                                      I\r\n  7.0000E-01 I                                                     0    I                                                          I\r\n  8.0000E-01 I                                          *0              I                                                          I\r\n  9.0000E-01 I                              0                           I                                                          I\r\n  1.0000E+00 I                 0                                        I                                                          I\r\n  1.1000E+00 I           0                                              I                                                          I\r\n  1.2000E+00 I           0                                              I                                                          I\r\n  1.3000E+00 I      0                                                   I                                                          I\r\n  1.4000E+00 I0                                                         I                                                          I\r\n  1.5000E+00 I     0*                                                   I                                                          I\r\n  1.6000E+00 I                0                                         I                                                          I\r\n  1.7000E+00 I                     0                                    I                                                          I\r\n  1.8000E+00 I                            0                             I                                                          I\r\n  1.9000E+00 I                                        0                 I                                                          I\r\n  2.0000E+00 I                                                   0      I                                                          I\r\n  2.1000E+00 I                                                          I0                                                         I\r\n  2.2000E+00 I                                                          I     0                                                    I\r\n  2.3000E+00 I                                                          I              0                                           I\r\n  2.4000E+00 I                                                          I                       0                                  I\r\n  2.5000E+00 I                                                          I                           0                              I\r\n  2.6000E+00 I                                                          I                            0                             I\r\n  2.7000E+00 I                                                          I                                0                         I\r\n  2.8000E+00 I                                                          I                                   *0                     I\r\n  2.9000E+00 I                                                          I                                    0                     I\r\n1 3.0000E+00 I                                                          I                                     0                    I\r\n  3.1000E+00 I                                                          I                                       0                  I\r\n  3.2000E+00 I                                                          I                                        0                 I\r\n  3.3000E+00 I                                                          I                                        0                 I\r\n  3.4000E+00 I                                                          I                                         0                I\r\n  3.5000E+00 I                                                          I                                         0                I\r\n  3.6000E+00 I                                                          I                                          0               I\r\n  3.7000E+00 I                                                          I                                          0               I\r\n  3.8000E+00 I                                                          I                                          0               I\r\n  3.9000E+00 I                                                          I                                          0               I\r\n  4.0000E+00 I                                                          I                                          0               I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *   \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             FUSELAGE PLUNGE                                                                                                       \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -5.000000E+03                                      -1.000000E+03                                       3.000000E+03 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                                            *             I\r\n  1.0000E-01 I                                                          I                                            *             I\r\n  2.0000E-01 I                                                          I                                         *                I\r\n  3.0000E-01 I                                                          I                                    *                     I\r\n  4.0000E-01 I                                                          I                             *                            I\r\n  5.0000E-01 I                                                          I                     *                                    I\r\n  6.0000E-01 I                                                          I             *                                            I\r\n  7.0000E-01 I                                                          I   *                                                      I\r\n  8.0000E-01 I                                                    *     I                                                          I\r\n  9.0000E-01 I                                         *                I                                                          I\r\n  1.0000E+00 I                              *                           I                                                          I\r\n  1.1000E+00 I                    *                                     I                                                          I\r\n  1.2000E+00 I              *                                           I                                                          I\r\n  1.3000E+00 I             *                                            I                                                          I\r\n  1.4000E+00 I               *                                          I                                                          I\r\n  1.5000E+00 I                  *                                       I                                                          I\r\n  1.6000E+00 I                        *                                 I                                                          I\r\n  1.7000E+00 I                               *                          I                                                          I\r\n  1.8000E+00 I                                       *                  I                                                          I\r\n  1.9000E+00 I                                                *         I                                                          I\r\n  2.0000E+00 I                                                          *                                                          I\r\n  2.1000E+00 I                                                          I         *                                                I\r\n  2.2000E+00 I                                                          I                 *                                        I\r\n  2.3000E+00 I                                                          I                       *                                  I\r\n  2.4000E+00 I                                                          I                           *                              I\r\n  2.5000E+00 I                                                          I                               *                          I\r\n  2.6000E+00 I                                                          I                                  *                       I\r\n  2.7000E+00 I                                                          I                                    *                     I\r\n  2.8000E+00 I                                                          I                                      *                   I\r\n  2.9000E+00 I                                                          I                                       *                  I\r\n1 3.0000E+00 I                                                          I                                         *                I\r\n  3.1000E+00 I                                                          I                                         *                I\r\n  3.2000E+00 I                                                          I                                          *               I\r\n  3.3000E+00 I                                                          I                                           *              I\r\n  3.4000E+00 I                                                          I                                           *              I\r\n  3.5000E+00 I                                                          I                                           *              I\r\n  3.6000E+00 I                                                          I                                            *             I\r\n  3.7000E+00 I                                                          I                                            *             I\r\n  3.8000E+00 I                                                          I                                            *             I\r\n  3.9000E+00 I                                                          I                                            *             I\r\n  4.0000E+00 I                                                          I                                            *             I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *   \r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             AILERON DEFLECTION                                                                                                    \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -3.000000E-02                                       1.000000E-02                                       5.000000E-02 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                           *                              I                                                          I\r\n  1.0000E-01 I         *                                                I                                                          I\r\n  2.0000E-01 I              *                                           I                                                          I\r\n  3.0000E-01 I                  *                                       I                                                          I\r\n  4.0000E-01 I                     *                                    I                                                          I\r\n  5.0000E-01 I                                  *                       I                                                          I\r\n  6.0000E-01 I                                  *                       I                                                          I\r\n  7.0000E-01 I                              *                           I                                                          I\r\n  8.0000E-01 I                                       *                  I                                                          I\r\n  9.0000E-01 I                                            *             I                                                          I\r\n  1.0000E+00 I                                                          I         *                                                I\r\n  1.1000E+00 I                                                          I                                                 *        I\r\n  1.2000E+00 I                                                          I                                         *                I\r\n  1.3000E+00 I                                                          I                                *                         I\r\n  1.4000E+00 I                                                          I                           *                              I\r\n  1.5000E+00 I                                                          I  *                                                       I\r\n  1.6000E+00 I                                                          I *                                                        I\r\n  1.7000E+00 I                                                          I            *                                             I\r\n  1.8000E+00 I                                                      *   I                                                          I\r\n  1.9000E+00 I                                             *            I                                                          I\r\n  2.0000E+00 I                                        *                 I                                                          I\r\n  2.1000E+00 I                 *                                        I                                                          I\r\n  2.2000E+00 I                *                                         I                                                          I\r\n  2.3000E+00 I                       *                                  I                                                          I\r\n  2.4000E+00 I                        *                                 I                                                          I\r\n  2.5000E+00 I                                   *                      I                                                          I\r\n  2.6000E+00 I                                     *                    I                                                          I\r\n  2.7000E+00 I                              *                           I                                                          I\r\n  2.8000E+00 I                                     *                    I                                                          I\r\n  2.9000E+00 I                                           *              I                                                          I\r\n1 3.0000E+00 I                                      *                   I                                                          I\r\n  3.1000E+00 I                                       *                  I                                                          I\r\n  3.2000E+00 I                                           *              I                                                          I\r\n  3.3000E+00 I                                         *                I                                                          I\r\n  3.4000E+00 I                                         *                I                                                          I\r\n  3.5000E+00 I                                           *              I                                                          I\r\n  3.6000E+00 I                                          *               I                                                          I\r\n  3.7000E+00 I                                          *               I                                                          I\r\n  3.8000E+00 I                                           *              I                                                          I\r\n  3.9000E+00 I                                         *                I                                                          I\r\n  4.0000E+00 I                           *                              I                                                          I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *   *  \r\n                                                           ****  ****  ****  ****  *   \r\n\r\n0             AERODYNAMIC BOX NEAR TIP , PITCH                                                                                      \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  PHYSICAL DEFLECTION                                                                                                I\r\n             I                                                                                                                     I\r\n             I -8.000000E-01                                      -2.000000E-01                                       4.000000E-01 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I                         *                                I\r\n  1.0000E-01 I                                                          I                                                    *     I\r\n  2.0000E-01 I                                                          I                                                    *     I\r\n  3.0000E-01 I                                                          I                               *                          I\r\n  4.0000E-01 I                                                          I                                             *            I\r\n  5.0000E-01 I                                                          I                                       *                  I\r\n  6.0000E-01 I                                                          I                 *                                        I\r\n  7.0000E-01 I                                                          I                             *                            I\r\n  8.0000E-01 I                                                          I                                 *                        I\r\n  9.0000E-01 I                                                          I                *                                         I\r\n  1.0000E+00 I                                                          I           *                                              I\r\n  1.1000E+00 I                    *                                     I                                                          I\r\n  1.2000E+00 I          *                                               I                                                          I\r\n  1.3000E+00 I                                                        * I                                                          I\r\n  1.4000E+00 I                             *                            I                                                          I\r\n  1.5000E+00 I                                   *                      I                                                          I\r\n  1.6000E+00 I                                                          I                       *                                  I\r\n  1.7000E+00 I                                                          *                                                          I\r\n  1.8000E+00 I                                              *           I                                                          I\r\n  1.9000E+00 I                                                          I                      *                                   I\r\n  2.0000E+00 I                                                          I                    *                                     I\r\n  2.1000E+00 I                                                          I                                   *                      I\r\n  2.2000E+00 I                                                          I                                                    *     I\r\n  2.3000E+00 I                                                          I                             *                            I\r\n  2.4000E+00 I                                                          I                                     *                    I\r\n  2.5000E+00 I                                                          I                                        *                 I\r\n  2.6000E+00 I                                                          I                *                                         I\r\n  2.7000E+00 I                                                          I                        *                                 I\r\n  2.8000E+00 I                                                          I                                   *                      I\r\n  2.9000E+00 I                                                          I                  *                                       I\r\n1 3.0000E+00 I                                                          I                  *                                       I\r\n  3.1000E+00 I                                                          I                           *                              I\r\n  3.2000E+00 I                                                          I                    *                                     I\r\n  3.3000E+00 I                                                          I                  *                                       I\r\n  3.4000E+00 I                                                          I                       *                                  I\r\n  3.5000E+00 I                                                          I                   *                                      I\r\n  3.6000E+00 I                                                          I                  *                                       I\r\n  3.7000E+00 I                                                          I                      *                                   I\r\n  3.8000E+00 I                                                          I                   *                                      I\r\n  3.9000E+00 I                                                          I                  *                                       I\r\n  4.0000E+00 I                                                          I                         *                                I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n1     JET TRANSPORT WING DYNAMIC ANALYSIS                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                                                                                   \r\n0     SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS                                                                    \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           *  *  *  *  *  *  *  *  ****\r\n                                                           *  *  *  *  *  *  *  *  *  *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0             WING ROOT BENDING MOMENT                                                                                              \r\n0    X-AXIS TITLE =   TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                                                             \r\n0\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n             I                                                                                                                     I\r\n             I  ROTATIONAL CONSTRAINTS                                                                                             I\r\n             I                                                                                                                     I\r\n             I -5.000000E+08                                      -1.000000E+08                                       3.000000E+08 I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n  0.0000E+00 I                                                          I             *                                            I\r\n  1.0000E-01 I                                                          I                             *                            I\r\n  2.0000E-01 I                                                          I                                               *          I\r\n  3.0000E-01 I                                                          I                                  *                       I\r\n  4.0000E-01 I                                                          I             *                                            I\r\n  5.0000E-01 I                                                          I                   *                                      I\r\n  6.0000E-01 I                                                          I                             *                            I\r\n  7.0000E-01 I                                                          I                     *                                    I\r\n  8.0000E-01 I                                                          I              *                                           I\r\n  9.0000E-01 I                                                          I                 *                                        I\r\n  1.0000E+00 I                                                          I                   *                                      I\r\n  1.1000E+00 I                                             *            I                                                          I\r\n  1.2000E+00 I       *                                                  I                                                          I\r\n  1.3000E+00 I                                *                         I                                                          I\r\n  1.4000E+00 I                                                          I                *                                         I\r\n  1.5000E+00 I                                                          I      *                                                   I\r\n  1.6000E+00 I                                           *              I                                                          I\r\n  1.7000E+00 I                                                          I*                                                         I\r\n  1.8000E+00 I                                                          I               *                                          I\r\n  1.9000E+00 I                                                          I        *                                                 I\r\n  2.0000E+00 I                                                          I    *                                                     I\r\n  2.1000E+00 I                                                          I                         *                                I\r\n  2.2000E+00 I                                                          I                                             *            I\r\n  2.3000E+00 I                                                          I                                 *                        I\r\n  2.4000E+00 I                                                          I           *                                              I\r\n  2.5000E+00 I                                                          I               *                                          I\r\n  2.6000E+00 I                                                          I                            *                             I\r\n  2.7000E+00 I                                                          I                     *                                    I\r\n  2.8000E+00 I                                                          I            *                                             I\r\n  2.9000E+00 I                                                          I                *                                         I\r\n1 3.0000E+00 I                                                          I                   *                                      I\r\n  3.1000E+00 I                                                          I                *                                         I\r\n  3.2000E+00 I                                                          I              *                                           I\r\n  3.3000E+00 I                                                          I              *                                           I\r\n  3.4000E+00 I                                                          I               *                                          I\r\n  3.5000E+00 I                                                          I               *                                          I\r\n  3.6000E+00 I                                                          I              *                                           I\r\n  3.7000E+00 I                                                          I             *                                            I\r\n  3.8000E+00 I                                                          I              *                                           I\r\n  3.9000E+00 I                                                          I              *                                           I\r\n  4.0000E+00 I                                                          I             *                                            I\r\n             +---------------------------------------------------------------------------------------------------------------------+\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  JET TRANSPORT WING DYNAMIC ANALYSIS                                \r\n DATE:  5/17/95\r\n END TIME: 16:20:48\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d12011a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D12011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   12,3                                                                      \r\n     TIME  100                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                   \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                          \r\n                  3         DLOAD = 516                                                                  \r\n                  4         SDAMP = 15                                                                   \r\n                  5         TSTEP = 516                                                                  \r\n                  6        METHOD = 2                                                                    \r\n                  7      OUTPUT                                                                          \r\n                  8         SET 1 = 1, 26, 51, 75, 100                                                   \r\n                  9         SET 2 = 1, 26, 76                                                            \r\n                 10         DISPLACEMENT = 2                                                             \r\n                 11         STRESS = 1                                                                   \r\n                 12      PLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                            \r\n                 13      OUTPUT(PLOT)                                                                    \r\n                 14      PLOTTER NASTPLT                                                                 \r\n                 15              CAMERA = 3                                                              \r\n                 16      CSCALE = 2.0                                                                    \r\n                 17              SET 1 INCLUDE BAR,                                                      \r\n                 18                EXCLUDE GRID POINTS 1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,        \r\n                 19                19,20,22,23,24,25,26,27,28,29,30,32,33,34,35,36,37,38,39,40,          \r\n                 20                42,43,44,45,46,47,48,49,50,52,53,54,55,56,57,58,59,60,62,63,          \r\n                 21                64,65,66,67,68,69,70,72,73,74,75,76,77,78,79,80,82,83,84,85,          \r\n                 22                86,87,88,89,90,92,93,94,95,96,97,98,99,100                            \r\n                 23              MAXIMUM DEFORMATION  2.0                                                \r\n                 24      STEREO PROJECTION                                                               \r\n                 25               FIND SCALE, ORIGIN 100, VANTAGE POINT, SET 1                           \r\n                 26      PTITLE = PAPER COPY OF STEREOSCOPIC PROJECTION OF DEFORMATIONS                  \r\n                 27               PLOT TRANSIENT DEFORMATION 1, TIME 0.012, 0.013,                       \r\n                 28               MAXIMUM DEFORMATION 0.76, SET 1, ORIGIN 100, SHAPE                     \r\n                 29      ORTHOGRAPHIC PROJECTION                                                         \r\n                 30               FIND SCALE, ORIGIN 1, REGION 0.0,0.0,1.0,0.5                           \r\n                 31               FIND SCALE, ORIGIN 2, REGION 0.0,0.5,1.0,1.0                           \r\n                 32      PTITLE = DEFLECTIONS OF BARS WITH VECTORS                                       \r\n                 33               PLOT TRANSIENT DEFORMATION 1, TIME .012, .016,                         \r\n0*** USER WARNING MESSAGE 361\r\n+                               - A NEW ORIGIN       2 WAS DEFINED IN A FIND CARD, BUT IT IS NOT USED BY THE IMMEDIATE PLOT CARD\r\n     (ORIGIN     100 WILL BE USED FOR THIS PLOT)\r\n\r\n                 34               MAXIMUM DEFORMATION 1.0,                                               \r\n                 35               SET 1, ORIGIN 1, SHAPE ,                                               \r\n                 36               SET 1, ORIGIN 2, VECTOR Z                                              \r\n                 37      $                                                                               \r\n                 38      $                                                                               \r\n                 39      OUTPUT(XYOUT)                                                                   \r\n                 40      PLOTTER = NASTPLT                                                               \r\n                 41           CAMERA = 3                                                                 \r\n                 42           SKIP BETWEEN FRAMES = 1                                                    \r\n                 43           YGRID LINES = YES                                                          \r\n                 44           XGRID LINES = YES                                                          \r\n                 45           YDIVISIONS  = 10                                                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 46           XDIVISIONS  = 10                                                           \r\n                 47           XVALUE PRINT SKIP = 1                                                      \r\n                 48           YVALUE PRINT SKIP = 1                                                      \r\n                 49           XTITLE =                     TIME (SECONDS)                                \r\n                 50           YTITLE =      D I S P  * INCH *                                            \r\n                 51           TCURVE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *         \r\n                 52      XYPLOT,XYPRINT,DISP RESP /  51(T3)                                              \r\n                 53           TCURVE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *         \r\n                 54      XYPLOT,XYPRINT,DISP RESP / 101(T3)                                              \r\n                 55           YTITLE = ACCELERATION                                                      \r\n                 56           TCURVE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *         \r\n                 57      XYPLOT,XYPRINT,ACCE RESP /  51(T3)                                              \r\n                 58           TCURVE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *         \r\n                 59      XYPLOT,XYPRINT,ACCE RESP / 101(T3)                                              \r\n                 60      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   231, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR                                   10.0    .0      100.0   1               \r\n                    2-        CBAR    1       17      1       2                                               \r\n                    3-        CBAR    2       17      2       3                                               \r\n                    4-        CBAR    3       17      3       4                                               \r\n                    5-        CBAR    4       17      4       5                                               \r\n                    6-        CBAR    5       17      5       6                                               \r\n                    7-        CBAR    6       17      6       7                                               \r\n                    8-        CBAR    7       17      7       8                                               \r\n                    9-        CBAR    8       17      8       9                                               \r\n                   10-        CBAR    9       17      9       10                                              \r\n                   11-        CBAR    10      17      10      11                                              \r\n                   12-        CBAR    11      17      11      12                                              \r\n                   13-        CBAR    12      17      12      13                                              \r\n                   14-        CBAR    13      17      13      14                                              \r\n                   15-        CBAR    14      17      14      15                                              \r\n                   16-        CBAR    15      17      15      16                                              \r\n                   17-        CBAR    16      17      16      17                                              \r\n                   18-        CBAR    17      17      17      18                                              \r\n                   19-        CBAR    18      17      18      19                                              \r\n                   20-        CBAR    19      17      19      20                                              \r\n                   21-        CBAR    20      17      20      21                                              \r\n                   22-        CBAR    21      17      21      22                                              \r\n                   23-        CBAR    22      17      22      23                                              \r\n                   24-        CBAR    23      17      23      24                                              \r\n                   25-        CBAR    24      17      24      25                                              \r\n                   26-        CBAR    25      17      25      26                                              \r\n                   27-        CBAR    26      17      26      27                                              \r\n                   28-        CBAR    27      17      27      28                                              \r\n                   29-        CBAR    28      17      28      29                                              \r\n                   30-        CBAR    29      17      29      30                                              \r\n                   31-        CBAR    30      17      30      31                                              \r\n                   32-        CBAR    31      17      31      32                                              \r\n                   33-        CBAR    32      17      32      33                                              \r\n                   34-        CBAR    33      17      33      34                                              \r\n                   35-        CBAR    34      17      34      35                                              \r\n                   36-        CBAR    35      17      35      36                                              \r\n                   37-        CBAR    36      17      36      37                                              \r\n                   38-        CBAR    37      17      37      38                                              \r\n                   39-        CBAR    38      17      38      39                                              \r\n                   40-        CBAR    39      17      39      40                                              \r\n                   41-        CBAR    40      17      40      41                                              \r\n                   42-        CBAR    41      17      41      42                                              \r\n                   43-        CBAR    42      17      42      43                                              \r\n                   44-        CBAR    43      17      43      44                                              \r\n                   45-        CBAR    44      17      44      45                                              \r\n                   46-        CBAR    45      17      45      46                                              \r\n                   47-        CBAR    46      17      46      47                                              \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CBAR    47      17      47      48                                              \r\n                   49-        CBAR    48      17      48      49                                              \r\n                   50-        CBAR    49      17      49      50                                              \r\n                   51-        CBAR    50      17      50      51                                              \r\n                   52-        CBAR    51      17      51      52                                              \r\n                   53-        CBAR    52      17      52      53                                              \r\n                   54-        CBAR    53      17      53      54                                              \r\n                   55-        CBAR    54      17      54      55                                              \r\n                   56-        CBAR    55      17      55      56                                              \r\n                   57-        CBAR    56      17      56      57                                              \r\n                   58-        CBAR    57      17      57      58                                              \r\n                   59-        CBAR    58      17      58      59                                              \r\n                   60-        CBAR    59      17      59      60                                              \r\n                   61-        CBAR    60      17      60      61                                              \r\n                   62-        CBAR    61      17      61      62                                              \r\n                   63-        CBAR    62      17      62      63                                              \r\n                   64-        CBAR    63      17      63      64                                              \r\n                   65-        CBAR    64      17      64      65                                              \r\n                   66-        CBAR    65      17      65      66                                              \r\n                   67-        CBAR    66      17      66      67                                              \r\n                   68-        CBAR    67      17      67      68                                              \r\n                   69-        CBAR    68      17      68      69                                              \r\n                   70-        CBAR    69      17      69      70                                              \r\n                   71-        CBAR    70      17      70      71                                              \r\n                   72-        CBAR    71      17      71      72                                              \r\n                   73-        CBAR    72      17      72      73                                              \r\n                   74-        CBAR    73      17      73      74                                              \r\n                   75-        CBAR    74      17      74      75                                              \r\n                   76-        CBAR    75      17      75      76                                              \r\n                   77-        CBAR    76      17      76      77                                              \r\n                   78-        CBAR    77      17      77      78                                              \r\n                   79-        CBAR    78      17      78      79                                              \r\n                   80-        CBAR    79      17      79      80                                              \r\n                   81-        CBAR    80      17      80      81                                              \r\n                   82-        CBAR    81      17      81      82                                              \r\n                   83-        CBAR    82      17      82      83                                              \r\n                   84-        CBAR    83      17      83      84                                              \r\n                   85-        CBAR    84      17      84      85                                              \r\n                   86-        CBAR    85      17      85      86                                              \r\n                   87-        CBAR    86      17      86      87                                              \r\n                   88-        CBAR    87      17      87      88                                              \r\n                   89-        CBAR    88      17      88      89                                              \r\n                   90-        CBAR    89      17      89      90                                              \r\n                   91-        CBAR    90      17      90      91                                              \r\n                   92-        CBAR    91      17      91      92                                              \r\n                   93-        CBAR    92      17      92      93                                              \r\n                   94-        CBAR    93      17      93      94                                              \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CBAR    94      17      94      95                                              \r\n                   96-        CBAR    95      17      95      96                                              \r\n                   97-        CBAR    96      17      96      97                                              \r\n                   98-        CBAR    97      17      97      98                                              \r\n                   99-        CBAR    98      17      98      99                                              \r\n                  100-        CBAR    99      17      99      100                                             \r\n                  101-        CBAR    100     17      100     101                                             \r\n                  102-        CONM2   20      1               10.0                                    +M1     \r\n                  103-        +M1                     1666.66                                                 \r\n                  104-        DAREA   1       101     3       100.                                            \r\n                  105-        EIGR    2       INV     .0      1500.   5       6                       PEG     \r\n                  106-        +EG     MASS                                                                    \r\n                  107-        GRDSET                                                  1246                    \r\n                  108-        GRID    1               .00     .00     .00                                     \r\n                  109-        GRID    2               .20     .00     .00                                     \r\n                  110-        GRID    3               .40     .00     .00                                     \r\n                  111-        GRID    4               .60     .00     .00                                     \r\n                  112-        GRID    5               .80     .00     .00                                     \r\n                  113-        GRID    6               1.00    .00     .00                                     \r\n                  114-        GRID    7               1.20    .00     .00                                     \r\n                  115-        GRID    8               1.40    .00     .00                                     \r\n                  116-        GRID    9               1.60    .00     .00                                     \r\n                  117-        GRID    10              1.80    .00     .00                                     \r\n                  118-        GRID    11              2.00    .00     .00                                     \r\n                  119-        GRID    12              2.20    .00     .00                                     \r\n                  120-        GRID    13              2.40    .00     .00                                     \r\n                  121-        GRID    14              2.60    .00     .00                                     \r\n                  122-        GRID    15              2.80    .00     .00                                     \r\n                  123-        GRID    16              3.00    .00     .00                                     \r\n                  124-        GRID    17              3.20    .00     .00                                     \r\n                  125-        GRID    18              3.40    .00     .00                                     \r\n                  126-        GRID    19              3.60    .00     .00                                     \r\n                  127-        GRID    20              3.80    .00     .00                                     \r\n                  128-        GRID    21              4.00    .00     .00                                     \r\n                  129-        GRID    22              4.20    .00     .00                                     \r\n                  130-        GRID    23              4.40    .00     .00                                     \r\n                  131-        GRID    24              4.60    .00     .00                                     \r\n                  132-        GRID    25              4.80    .00     .00                                     \r\n                  133-        GRID    26              5.00    .00     .00                                     \r\n                  134-        GRID    27              5.20    .00     .00                                     \r\n                  135-        GRID    28              5.40    .00     .00                                     \r\n                  136-        GRID    29              5.60    .00     .00                                     \r\n                  137-        GRID    30              5.80    .00     .00                                     \r\n                  138-        GRID    31              6.00    .00     .00                                     \r\n                  139-        GRID    32              6.20    .00     .00                                     \r\n                  140-        GRID    33              6.40    .00     .00                                     \r\n                  141-        GRID    34              6.60    .00     .00                                     \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    35              6.80    .00     .00                                     \r\n                  143-        GRID    36              7.00    .00     .00                                     \r\n                  144-        GRID    37              7.20    .00     .00                                     \r\n                  145-        GRID    38              7.40    .00     .00                                     \r\n                  146-        GRID    39              7.60    .00     .00                                     \r\n                  147-        GRID    40              7.80    .00     .00                                     \r\n                  148-        GRID    41              8.00    .00     .00                                     \r\n                  149-        GRID    42              8.20    .00     .00                                     \r\n                  150-        GRID    43              8.40    .00     .00                                     \r\n                  151-        GRID    44              8.60    .00     .00                                     \r\n                  152-        GRID    45              8.80    .00     .00                                     \r\n                  153-        GRID    46              9.00    .00     .00                                     \r\n                  154-        GRID    47              9.20    .00     .00                                     \r\n                  155-        GRID    48              9.40    .00     .00                                     \r\n                  156-        GRID    49              9.60    .00     .00                                     \r\n                  157-        GRID    50              9.80    .00     .00                                     \r\n                  158-        GRID    51              10.00   .00     .00                                     \r\n                  159-        GRID    52              10.20   .00     .00                                     \r\n                  160-        GRID    53              10.40   .00     .00                                     \r\n                  161-        GRID    54              10.60   .00     .00                                     \r\n                  162-        GRID    55              10.80   .00     .00                                     \r\n                  163-        GRID    56              11.00   .00     .00                                     \r\n                  164-        GRID    57              11.20   .00     .00                                     \r\n                  165-        GRID    58              11.40   .00     .00                                     \r\n                  166-        GRID    59              11.60   .00     .00                                     \r\n                  167-        GRID    60              11.80   .00     .00                                     \r\n                  168-        GRID    61              12.00   .00     .00                                     \r\n                  169-        GRID    62              12.20   .00     .00                                     \r\n                  170-        GRID    63              12.40   .00     .00                                     \r\n                  171-        GRID    64              12.60   .00     .00                                     \r\n                  172-        GRID    65              12.80   .00     .00                                     \r\n                  173-        GRID    66              13.00   .00     .00                                     \r\n                  174-        GRID    67              13.20   .00     .00                                     \r\n                  175-        GRID    68              13.40   .00     .00                                     \r\n                  176-        GRID    69              13.60   .00     .00                                     \r\n                  177-        GRID    70              13.80   .00     .00                                     \r\n                  178-        GRID    71              14.00   .00     .00                                     \r\n                  179-        GRID    72              14.20   .00     .00                                     \r\n                  180-        GRID    73              14.40   .00     .00                                     \r\n                  181-        GRID    74              14.60   .00     .00                                     \r\n                  182-        GRID    75              14.80   .00     .00                                     \r\n                  183-        GRID    76              15.00   .00     .00                                     \r\n                  184-        GRID    77              15.20   .00     .00                                     \r\n                  185-        GRID    78              15.40   .00     .00                                     \r\n                  186-        GRID    79              15.60   .00     .00                                     \r\n                  187-        GRID    80              15.80   .00     .00                                     \r\n                  188-        GRID    81              16.00   .00     .00                                     \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    82              16.20   .00     .00                                     \r\n                  190-        GRID    83              16.40   .00     .00                                     \r\n                  191-        GRID    84              16.60   .00     .00                                     \r\n                  192-        GRID    85              16.80   .00     .00                                     \r\n                  193-        GRID    86              17.00   .00     .00                                     \r\n                  194-        GRID    87              17.20   .00     .00                                     \r\n                  195-        GRID    88              17.40   .00     .00                                     \r\n                  196-        GRID    89              17.60   .00     .00                                     \r\n                  197-        GRID    90              17.80   .00     .00                                     \r\n                  198-        GRID    91              18.00   .00     .00                                     \r\n                  199-        GRID    92              18.20   .00     .00                                     \r\n                  200-        GRID    93              18.40   .00     .00                                     \r\n                  201-        GRID    94              18.60   .00     .00                                     \r\n                  202-        GRID    95              18.80   .00     .00                                     \r\n                  203-        GRID    96              19.00   .00     .00                                     \r\n                  204-        GRID    97              19.20   .00     .00                                     \r\n                  205-        GRID    98              19.40   .00     .00                                     \r\n                  206-        GRID    99              19.60   .00     .00                                     \r\n                  207-        GRID    100             19.80   .00     .00                                     \r\n                  208-        GRID    101             20.00   .00     .00                                     \r\n                  209-        MAT1    1       10.4+6  4.+6            .2523-3                         +MAT1   \r\n                  210-        +MAT1   111.111 11.1111                                                         \r\n                  211-        OMIT1   53      2       3       4       5       6       7       8       +100    \r\n                  212-        +100    9       10      12      13      14      15      16      17      +200    \r\n                  213-        +200    18      19      20      22      23      24      25      26      +300    \r\n                  214-        +300    27      28      29      30      32      33      34      35      +400    \r\n                  215-        +400    36      37      38      39      40      42      43      44      +500    \r\n                  216-        +500    45      46      47      48      49      50      52      53      +600    \r\n                  217-        +600    54      55      56      57      58      59      60      62      +700    \r\n                  218-        +700    63      64      65      66      67      68      69      70      +800    \r\n                  219-        +800    72      73      74      75      76      77      78      79      +900    \r\n                  220-        +900    80      82      83      84      85      86      87      88      +101    \r\n                  221-        +101    89      90      92      93      94      95      96      97      +201    \r\n                  222-        +201    98      99      100                                                     \r\n                  223-        PARAM   GRDPNT  0                                                               \r\n                  224-        PARAM   LMODES  6                                                               \r\n                  225-        PBAR    17      1       1.      .083    .083                            +PBAR   \r\n                  226-        +PBAR   1.11111 -1.11111                                                        \r\n                  227-        SUPORT  1       3       1       5                                               \r\n                  228-        TABDMP1 15                                                              +TD11   \r\n                  229-        +TD11   10.     .01     100.    .1      3000.   .1      ENDT                    \r\n                  230-        TLOAD2  516     1                       .0      .1      60.                     \r\n                  231-        TSTEP   516     104     .001388 1                                               \r\n                              ENDDATA\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE            201\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.990\r\n                                        RMS WAVEFRONT    1.993\r\n                                        RMS BANDWIDTH    1.993\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE            201\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.990\r\n                                        RMS WAVEFRONT    1.993\r\n                                        RMS BANDWIDTH    1.993\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        2         2\r\n                                        PROFILE (P)                        201       201\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            2         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        1.990     1.990\r\n                                        RMS WAVEFRONT (C-RMS)            1.993     1.993\r\n                                        RMS BANDWITCH (B-RMS)            1.993     1.993\r\n                                        NUMBER OF GRID POINTS (N)                    101\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               101\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                       100\r\n                                        MATRIX DENSITY, PERCENT                    2.951\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID       20\r\n0*** USER WARNING MESSAGE 3041\r\n0EXTERNAL GRID POINT        0 DOES NOT EXIST OR IS NOT A GEOMETRIC GRID POINT.\r\n     THE BASIC ORIGIN WILL BE USED.\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                           O U T P U T   F R O M   G R I D   P O I N T   W E I G H T   G E N E R A T O R\r\n0                                                     REFERENCE POINT =        0\r\n \r\n \r\n                                     MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n                ***                                                                                             ***\r\n                *  1.00050460D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  1.00050460D+01  0.00000000D+00  0.00000000D+00  0.00000000D+00  5.04600001D-02 *\r\n                *  0.00000000D+00  0.00000000D+00  1.00050460D+01  0.00000000D+00 -5.04600001D-02  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                *  0.00000000D+00  0.00000000D+00 -5.04600001D-02  0.00000000D+00  1.66733287D+03  0.00000000D+00 *\r\n                *  0.00000000D+00  5.04600001D-02  0.00000000D+00  0.00000000D+00  0.00000000D+00  6.72833641D-01 *\r\n                ***                                                                                             ***\r\n                                        S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n                                        ***                                             ***\r\n                                        *  1.00000000D+00  0.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  1.00000000D+00  0.00000000D+00 *\r\n                                        *  0.00000000D+00  0.00000000D+00  1.00000000D+00 *\r\n                                        ***                                             ***\r\n                         DIRECTION\r\n                    MASS AXIS SYSTEM (S)       MASS                 X-C.G.           Y-C.G.           Z-C.G.\r\n                            X            1.000504600D+01      0.000000000D+00  0.000000000D+00  0.000000000D+00\r\n                            Y            1.000504600D+01      5.043455078D-03  0.000000000D+00  0.000000000D+00\r\n                            Z            1.000504600D+01      5.043455078D-03  0.000000000D+00  0.000000000D+00\r\n\r\n                                                 I(S) - INERTIAS RELATIVE TO C.G. \r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.667332613D+03  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  6.725791480D-01  *\r\n                                      ***                                                 ***\r\n                                                      I(Q) - PRINCIPAL INERTIAS\r\n                                      ***                                                 ***\r\n                                      *  0.000000000D+00                                    *\r\n                                      *                   1.667332613D+03                   *\r\n                                      *                                    6.725791480D-01  *\r\n                                      ***                                                 ***\r\n                                            Q - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q\r\n                                      ***                                                 ***\r\n                                      *  1.000000000D+00  0.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  1.000000000D+00  0.000000000D+00  *\r\n                                      *  0.000000000D+00  0.000000000D+00  1.000000000D+00  *\r\n                                      ***                                                 ***\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     0, EPSILON SUB E =   2.4080388E-10\r\n                        4 ROOTS BELOW   4.441322E+07\r\n                        3 ROOTS BELOW   8.555596E+06\r\n                        4 ROOTS BELOW   1.038047E+07\r\n                        3 ROOTS BELOW   3.606654E+06\r\n                        3 ROOTS BELOW   2.645093E+05\r\n                        6 ROOTS BELOW   3.129416E+08\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         6\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         6\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        43\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         4 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        0.0                 0.0                 0.0                 1.000000E+00        0.0                      \r\n        2         2        0.0                 0.0                 0.0                 1.000000E+00        0.0                      \r\n        3         4        2.645093E+05        5.143047E+02        8.185413E+01        1.000000E+00        2.645093E+05             \r\n        4         3        1.038045E+07        3.221871E+03        5.127766E+02        1.000000E+00        1.038045E+07             \r\n        5         5        8.139799E+07        9.022084E+03        1.435909E+03        1.000000E+00        8.139799E+07             \r\n        6         6        3.129361E+08        1.769000E+04        2.815451E+03        1.000000E+00        3.129361E+08             \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.388000E-03     G      0.0            0.0           -3.439803E-06   0.0            5.301812E-08   0.0                           \r\n   2.776000E-03     G      0.0            0.0           -7.865411E-06   0.0           -3.886734E-07   0.0                           \r\n   4.164000E-03     G      0.0            0.0            4.556459E-06   0.0           -2.669590E-06   0.0                           \r\n   5.552000E-03     G      0.0            0.0            4.935118E-05   0.0           -7.719822E-06   0.0                           \r\n   6.940000E-03     G      0.0            0.0            1.233662E-04   0.0           -1.499197E-05   0.0                           \r\n   8.328000E-03     G      0.0            0.0            2.035001E-04   0.0           -2.230587E-05   0.0                           \r\n   9.716000E-03     G      0.0            0.0            2.565595E-04   0.0           -2.663774E-05   0.0                           \r\n   1.110400E-02     G      0.0            0.0            2.526740E-04   0.0           -2.544430E-05   0.0                           \r\n   1.249200E-02     G      0.0            0.0            1.806257E-04   0.0           -1.800987E-05   0.0                           \r\n   1.388000E-02     G      0.0            0.0            5.756821E-05   0.0           -6.136567E-06   0.0                           \r\n   1.526800E-02     G      0.0            0.0           -7.535313E-05   0.0            6.302783E-06   0.0                           \r\n   1.665600E-02     G      0.0            0.0           -1.691092E-04   0.0            1.479640E-05   0.0                           \r\n   1.804400E-02     G      0.0            0.0           -1.862068E-04   0.0            1.598011E-05   0.0                           \r\n   1.943200E-02     G      0.0            0.0           -1.163019E-04   0.0            9.043863E-06   0.0                           \r\n   2.082000E-02     G      0.0            0.0            1.833397E-05   0.0           -3.842927E-06   0.0                           \r\n   2.220800E-02     G      0.0            0.0            1.709697E-04   0.0           -1.830567E-05   0.0                           \r\n   2.359600E-02     G      0.0            0.0            2.886277E-04   0.0           -2.941492E-05   0.0                           \r\n   2.498400E-02     G      0.0            0.0            3.320228E-04   0.0           -3.351362E-05   0.0                           \r\n   2.637200E-02     G      0.0            0.0            2.894129E-04   0.0           -2.949606E-05   0.0                           \r\n   2.776000E-02     G      0.0            0.0            1.794583E-04   0.0           -1.907189E-05   0.0                           \r\n   2.914800E-02     G      0.0            0.0            4.240592E-05   0.0           -5.972191E-06   0.0                           \r\n   3.053601E-02     G      0.0            0.0           -7.609128E-05   0.0            5.514911E-06   0.0                           \r\n   3.192401E-02     G      0.0            0.0           -1.413395E-04   0.0            1.205377E-05   0.0                           \r\n   3.331200E-02     G      0.0            0.0           -1.399179E-04   0.0            1.224726E-05   0.0                           \r\n   3.470000E-02     G      0.0            0.0           -8.097512E-05   0.0            6.808949E-06   0.0                           \r\n   3.608800E-02     G      0.0            0.0            1.062476E-05   0.0           -2.013727E-06   0.0                           \r\n   3.747600E-02     G      0.0            0.0            1.053076E-04   0.0           -1.141868E-05   0.0                           \r\n   3.886400E-02     G      0.0            0.0            1.788806E-04   0.0           -1.898844E-05   0.0                           \r\n   4.025200E-02     G      0.0            0.0            2.180954E-04   0.0           -2.325887E-05   0.0                           \r\n   4.163999E-02     G      0.0            0.0            2.208405E-04   0.0           -2.381842E-05   0.0                           \r\n   4.302799E-02     G      0.0            0.0            1.926291E-04   0.0           -2.106202E-05   0.0                           \r\n   4.441599E-02     G      0.0            0.0            1.422759E-04   0.0           -1.583750E-05   0.0                           \r\n   4.580399E-02     G      0.0            0.0            7.921772E-05   0.0           -9.190974E-06   0.0                           \r\n   4.719199E-02     G      0.0            0.0            1.320878E-05   0.0           -2.280269E-06   0.0                           \r\n   4.857999E-02     G      0.0            0.0           -4.473601E-05   0.0            3.625199E-06   0.0                           \r\n   4.996799E-02     G      0.0            0.0           -8.216485E-05   0.0            7.211421E-06   0.0                           \r\n   5.135598E-02     G      0.0            0.0           -8.727529E-05   0.0            7.362879E-06   0.0                           \r\n   5.274398E-02     G      0.0            0.0           -5.319285E-05   0.0            3.558888E-06   0.0                           \r\n   5.413198E-02     G      0.0            0.0            1.736473E-05   0.0           -3.740878E-06   0.0                           \r\n   5.551998E-02     G      0.0            0.0            1.097262E-04   0.0           -1.295011E-05   0.0                           \r\n   5.690798E-02     G      0.0            0.0            1.993211E-04   0.0           -2.161711E-05   0.0                           \r\n   5.829598E-02     G      0.0            0.0            2.584164E-04   0.0           -2.709489E-05   0.0                           \r\n   5.968397E-02     G      0.0            0.0            2.655405E-04   0.0           -2.742427E-05   0.0                           \r\n   6.107197E-02     G      0.0            0.0            2.140208E-04   0.0           -2.210152E-05   0.0                           \r\n   6.245997E-02     G      0.0            0.0            1.159798E-04   0.0           -1.240589E-05   0.0                           \r\n   6.384797E-02     G      0.0            0.0           -2.956020E-07   0.0           -1.110795E-06   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   6.523597E-02     G      0.0            0.0           -9.910753E-05   0.0            8.361571E-06   0.0                           \r\n   6.662397E-02     G      0.0            0.0           -1.492163E-04   0.0            1.305805E-05   0.0                           \r\n   6.801197E-02     G      0.0            0.0           -1.344880E-04   0.0            1.148427E-05   0.0                           \r\n   6.939997E-02     G      0.0            0.0           -5.938682E-05   0.0            4.106972E-06   0.0                           \r\n   7.078797E-02     G      0.0            0.0            5.265209E-05   0.0           -6.808600E-06   0.0                           \r\n   7.217596E-02     G      0.0            0.0            1.672366E-04   0.0           -1.795683E-05   0.0                           \r\n   7.356396E-02     G      0.0            0.0            2.503737E-04   0.0           -2.606404E-05   0.0                           \r\n   7.495196E-02     G      0.0            0.0            2.790838E-04   0.0           -2.889690E-05   0.0                           \r\n   7.633996E-02     G      0.0            0.0            2.477497E-04   0.0           -2.587745E-05   0.0                           \r\n   7.772796E-02     G      0.0            0.0            1.684814E-04   0.0           -1.813851E-05   0.0                           \r\n   7.911596E-02     G      0.0            0.0            6.601420E-05   0.0           -8.058236E-06   0.0                           \r\n   8.050396E-02     G      0.0            0.0           -3.056983E-05   0.0            1.520955E-06   0.0                           \r\n   8.189195E-02     G      0.0            0.0           -9.630631E-05   0.0            8.112528E-06   0.0                           \r\n   8.327995E-02     G      0.0            0.0           -1.164665E-04   0.0            1.020216E-05   0.0                           \r\n   8.466795E-02     G      0.0            0.0           -8.902832E-05   0.0            7.524753E-06   0.0                           \r\n   8.605595E-02     G      0.0            0.0           -2.358862E-05   0.0            9.933751E-07   0.0                           \r\n   8.744395E-02     G      0.0            0.0            6.221067E-05   0.0           -7.632811E-06   0.0                           \r\n   8.883195E-02     G      0.0            0.0            1.473445E-04   0.0           -1.621414E-05   0.0                           \r\n   9.021994E-02     G      0.0            0.0            2.119959E-04   0.0           -2.271275E-05   0.0                           \r\n   9.160794E-02     G      0.0            0.0            2.413938E-04   0.0           -2.561020E-05   0.0                           \r\n   9.299594E-02     G      0.0            0.0            2.285905E-04   0.0           -2.421127E-05   0.0                           \r\n   9.438394E-02     G      0.0            0.0            1.759764E-04   0.0           -1.880000E-05   0.0                           \r\n   9.577194E-02     G      0.0            0.0            9.524221E-05   0.0           -1.061615E-05   0.0                           \r\n   9.715994E-02     G      0.0            0.0            5.461055E-06   0.0           -1.629014E-06   0.0                           \r\n   9.854794E-02     G      0.0            0.0           -7.080670E-05   0.0            5.884189E-06   0.0                           \r\n   9.993593E-02     G      0.0            0.0           -1.129158E-04   0.0            9.892343E-06   0.0                           \r\n   1.013239E-01     G      0.0            0.0           -1.072432E-04   0.0            9.160995E-06   0.0                           \r\n   1.027119E-01     G      0.0            0.0           -4.842878E-05   0.0            3.766276E-06   0.0                           \r\n   1.040999E-01     G      0.0            0.0            3.685717E-05   0.0           -3.972328E-06   0.0                           \r\n   1.054879E-01     G      0.0            0.0            1.113415E-04   0.0           -1.076288E-05   0.0                           \r\n   1.068759E-01     G      0.0            0.0            1.446313E-04   0.0           -1.394097E-05   0.0                           \r\n   1.082639E-01     G      0.0            0.0            1.270186E-04   0.0           -1.269231E-05   0.0                           \r\n   1.096519E-01     G      0.0            0.0            7.394583E-05   0.0           -8.359993E-06   0.0                           \r\n   1.110399E-01     G      0.0            0.0            1.699153E-05   0.0           -3.678347E-06   0.0                           \r\n   1.124279E-01     G      0.0            0.0           -1.258318E-05   0.0           -1.383019E-06   0.0                           \r\n   1.138159E-01     G      0.0            0.0            1.740854E-06   0.0           -2.922984E-06   0.0                           \r\n   1.152039E-01     G      0.0            0.0            5.494988E-05   0.0           -7.851504E-06   0.0                           \r\n   1.165919E-01     G      0.0            0.0            1.237701E-04   0.0           -1.413741E-05   0.0                           \r\n   1.179799E-01     G      0.0            0.0            1.787383E-04   0.0           -1.921833E-05   0.0                           \r\n   1.193679E-01     G      0.0            0.0            1.987391E-04   0.0           -2.125151E-05   0.0                           \r\n   1.207559E-01     G      0.0            0.0            1.804682E-04   0.0           -1.994507E-05   0.0                           \r\n   1.221439E-01     G      0.0            0.0            1.388838E-04   0.0           -1.660581E-05   0.0                           \r\n   1.235319E-01     G      0.0            0.0            9.916695E-05   0.0           -1.343088E-05   0.0                           \r\n   1.249199E-01     G      0.0            0.0            8.422782E-05   0.0           -1.241591E-05   0.0                           \r\n   1.263079E-01     G      0.0            0.0            1.038980E-04   0.0           -1.441810E-05   0.0                           \r\n   1.276959E-01     G      0.0            0.0            1.510167E-04   0.0           -1.881443E-05   0.0                           \r\n   1.290839E-01     G      0.0            0.0            2.058337E-04   0.0           -2.388224E-05   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   1.304719E-01     G      0.0            0.0            2.460711E-04   0.0           -2.767822E-05   0.0                           \r\n   1.318599E-01     G      0.0            0.0            2.576143E-04   0.0           -2.897219E-05   0.0                           \r\n   1.332479E-01     G      0.0            0.0            2.407652E-04   0.0           -2.779069E-05   0.0                           \r\n   1.346359E-01     G      0.0            0.0            2.092839E-04   0.0           -2.533312E-05   0.0                           \r\n   1.360239E-01     G      0.0            0.0            1.830835E-04   0.0           -2.333592E-05   0.0                           \r\n   1.374119E-01     G      0.0            0.0            1.784393E-04   0.0           -2.321853E-05   0.0                           \r\n   1.387999E-01     G      0.0            0.0            2.004833E-04   0.0           -2.542833E-05   0.0                           \r\n   1.401879E-01     G      0.0            0.0            2.413973E-04   0.0           -2.928346E-05   0.0                           \r\n   1.415759E-01     G      0.0            0.0            2.848533E-04   0.0           -3.336028E-05   0.0                           \r\n   1.429639E-01     G      0.0            0.0            3.142455E-04   0.0           -3.621081E-05   0.0                           \r\n   1.443519E-01     G      0.0            0.0            3.205830E-04   0.0           -3.705097E-05   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.388000E-03     G      0.0            0.0            3.346191E-03   0.0           -1.603686E-03   0.0                           \r\n   2.776000E-03     G      0.0            0.0            1.799773E-02   0.0           -7.075692E-03   0.0                           \r\n   4.164000E-03     G      0.0            0.0            3.245640E-02   0.0           -1.205978E-02   0.0                           \r\n   5.552000E-03     G      0.0            0.0            2.809707E-02   0.0           -1.032686E-02   0.0                           \r\n   6.940000E-03     G      0.0            0.0            3.562276E-03   0.0           -1.180603E-03   0.0                           \r\n   8.328000E-03     G      0.0            0.0           -3.010948E-02   0.0            1.158703E-02   0.0                           \r\n   9.716000E-03     G      0.0            0.0           -6.037429E-02   0.0            2.297566E-02   0.0                           \r\n   1.110400E-02     G      0.0            0.0           -7.236374E-02   0.0            2.729096E-02   0.0                           \r\n   1.249200E-02     G      0.0            0.0           -5.503862E-02   0.0            2.065059E-02   0.0                           \r\n   1.388000E-02     G      0.0            0.0           -1.209156E-02   0.0            4.465953E-03   0.0                           \r\n   1.526800E-02     G      0.0            0.0            3.983499E-02   0.0           -1.512903E-02   0.0                           \r\n   1.665600E-02     G      0.0            0.0            8.073091E-02   0.0           -3.053899E-02   0.0                           \r\n   1.804400E-02     G      0.0            0.0            9.407398E-02   0.0           -3.548751E-02   0.0                           \r\n   1.943200E-02     G      0.0            0.0            7.293751E-02   0.0           -2.745185E-02   0.0                           \r\n   2.082000E-02     G      0.0            0.0            2.460171E-02   0.0           -9.206388E-03   0.0                           \r\n   2.220800E-02     G      0.0            0.0           -3.235627E-02   0.0            1.229417E-02   0.0                           \r\n   2.359600E-02     G      0.0            0.0           -7.679952E-02   0.0            2.907711E-02   0.0                           \r\n   2.498400E-02     G      0.0            0.0           -9.322059E-02   0.0            3.527009E-02   0.0                           \r\n   2.637200E-02     G      0.0            0.0           -7.703325E-02   0.0            2.915876E-02   0.0                           \r\n   2.776000E-02     G      0.0            0.0           -3.604644E-02   0.0            1.369330E-02   0.0                           \r\n   2.914800E-02     G      0.0            0.0            1.333605E-02   0.0           -4.962231E-03   0.0                           \r\n   3.053601E-02     G      0.0            0.0            5.347558E-02   0.0           -2.015746E-02   0.0                           \r\n   3.192401E-02     G      0.0            0.0            7.224403E-02   0.0           -2.729673E-02   0.0                           \r\n   3.331200E-02     G      0.0            0.0            6.658104E-02   0.0           -2.520827E-02   0.0                           \r\n   3.470000E-02     G      0.0            0.0            4.226969E-02   0.0           -1.605674E-02   0.0                           \r\n   3.608800E-02     G      0.0            0.0            1.031460E-02   0.0           -3.975099E-03   0.0                           \r\n   3.747600E-02     G      0.0            0.0           -1.823092E-02   0.0            6.866673E-03   0.0                           \r\n   3.886400E-02     G      0.0            0.0           -3.631631E-02   0.0            1.378501E-02   0.0                           \r\n   4.025200E-02     G      0.0            0.0           -4.226635E-02   0.0            1.611569E-02   0.0                           \r\n   4.163999E-02     G      0.0            0.0           -3.859251E-02   0.0            1.477629E-02   0.0                           \r\n   4.302799E-02     G      0.0            0.0           -2.935519E-02   0.0            1.127883E-02   0.0                           \r\n   4.441599E-02     G      0.0            0.0           -1.765581E-02   0.0            6.794477E-03   0.0                           \r\n   4.580399E-02     G      0.0            0.0           -4.633224E-03   0.0            1.776880E-03   0.0                           \r\n   4.719199E-02     G      0.0            0.0            9.729233E-03   0.0           -3.744511E-03   0.0                           \r\n   4.857999E-02     G      0.0            0.0            2.485072E-02   0.0           -9.516674E-03   0.0                           \r\n   4.996799E-02     G      0.0            0.0            3.818675E-02   0.0           -1.455832E-02   0.0                           \r\n   5.135598E-02     G      0.0            0.0            4.529386E-02   0.0           -1.719181E-02   0.0                           \r\n   5.274398E-02     G      0.0            0.0            4.156195E-02   0.0           -1.569670E-02   0.0                           \r\n   5.413198E-02     G      0.0            0.0            2.484149E-02   0.0           -9.292253E-03   0.0                           \r\n   5.551998E-02     G      0.0            0.0           -2.460740E-03   0.0            1.083482E-03   0.0                           \r\n   5.690798E-02     G      0.0            0.0           -3.311022E-02   0.0            1.268084E-02   0.0                           \r\n   5.829598E-02     G      0.0            0.0           -5.705976E-02   0.0            2.170396E-02   0.0                           \r\n   5.968397E-02     G      0.0            0.0           -6.511977E-02   0.0            2.469521E-02   0.0                           \r\n   6.107197E-02     G      0.0            0.0           -5.279030E-02   0.0            1.997524E-02   0.0                           \r\n   6.245997E-02     G      0.0            0.0           -2.255312E-02   0.0            8.500353E-03   0.0                           \r\n   6.384797E-02     G      0.0            0.0            1.649231E-02   0.0           -6.280657E-03   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   6.523597E-02     G      0.0            0.0            5.164590E-02   0.0           -1.956775E-02   0.0                           \r\n   6.662397E-02     G      0.0            0.0            7.114290E-02   0.0           -2.692088E-02   0.0                           \r\n   6.801197E-02     G      0.0            0.0            6.842663E-02   0.0           -2.586999E-02   0.0                           \r\n   6.939997E-02     G      0.0            0.0            4.448099E-02   0.0           -1.679268E-02   0.0                           \r\n   7.078797E-02     G      0.0            0.0            7.354266E-03   0.0           -2.733418E-03   0.0                           \r\n   7.217596E-02     G      0.0            0.0           -3.085117E-02   0.0            1.173254E-02   0.0                           \r\n   7.356396E-02     G      0.0            0.0           -5.827514E-02   0.0            2.212025E-02   0.0                           \r\n   7.495196E-02     G      0.0            0.0           -6.721932E-02   0.0            2.551503E-02   0.0                           \r\n   7.633996E-02     G      0.0            0.0           -5.630552E-02   0.0            2.138930E-02   0.0                           \r\n   7.772796E-02     G      0.0            0.0           -3.028488E-02   0.0            1.153381E-02   0.0                           \r\n   7.911596E-02     G      0.0            0.0            2.148204E-03   0.0           -7.646724E-04   0.0                           \r\n   8.050396E-02     G      0.0            0.0            3.149816E-02   0.0           -1.190878E-02   0.0                           \r\n   8.189195E-02     G      0.0            0.0            5.034440E-02   0.0           -1.907896E-02   0.0                           \r\n   8.327995E-02     G      0.0            0.0            5.505057E-02   0.0           -2.088422E-02   0.0                           \r\n   8.466795E-02     G      0.0            0.0            4.601499E-02   0.0           -1.746333E-02   0.0                           \r\n   8.605595E-02     G      0.0            0.0            2.676345E-02   0.0           -1.014729E-02   0.0                           \r\n   8.744395E-02     G      0.0            0.0            2.511488E-03   0.0           -9.178431E-04   0.0                           \r\n   8.883195E-02     G      0.0            0.0           -2.120220E-02   0.0            8.112021E-03   0.0                           \r\n   9.021994E-02     G      0.0            0.0           -3.948911E-02   0.0            1.507256E-02   0.0                           \r\n   9.160794E-02     G      0.0            0.0           -4.869914E-02   0.0            1.856761E-02   0.0                           \r\n   9.299594E-02     G      0.0            0.0           -4.681949E-02   0.0            1.783136E-02   0.0                           \r\n   9.438394E-02     G      0.0            0.0           -3.384397E-02   0.0            1.286982E-02   0.0                           \r\n   9.577194E-02     G      0.0            0.0           -1.207076E-02   0.0            4.570294E-03   0.0                           \r\n   9.715994E-02     G      0.0            0.0            1.391800E-02   0.0           -5.313071E-03   0.0                           \r\n   9.854794E-02     G      0.0            0.0            3.788796E-02   0.0           -1.440566E-02   0.0                           \r\n   9.993593E-02     G      0.0            0.0            5.330899E-02   0.0           -2.023087E-02   0.0                           \r\n   1.013239E-01     G      0.0            0.0            5.585606E-02   0.0           -2.090281E-02   0.0                           \r\n   1.027119E-01     G      0.0            0.0            3.012451E-02   0.0           -1.137916E-02   0.0                           \r\n   1.040999E-01     G      0.0            0.0           -6.712433E-03   0.0            2.532091E-03   0.0                           \r\n   1.054879E-01     G      0.0            0.0           -3.857062E-02   0.0            1.453742E-02   0.0                           \r\n   1.068759E-01     G      0.0            0.0           -5.127206E-02   0.0            1.923023E-02   0.0                           \r\n   1.082639E-01     G      0.0            0.0           -3.832243E-02   0.0            1.437423E-02   0.0                           \r\n   1.096519E-01     G      0.0            0.0           -7.496847E-03   0.0            2.864559E-03   0.0                           \r\n   1.110399E-01     G      0.0            0.0            2.465571E-02   0.0           -9.210233E-03   0.0                           \r\n   1.124279E-01     G      0.0            0.0            4.329157E-02   0.0           -1.622161E-02   0.0                           \r\n   1.138159E-01     G      0.0            0.0            4.074797E-02   0.0           -1.524224E-02   0.0                           \r\n   1.152039E-01     G      0.0            0.0            1.897907E-02   0.0           -7.064306E-03   0.0                           \r\n   1.165919E-01     G      0.0            0.0           -1.066986E-02   0.0            4.045530E-03   0.0                           \r\n   1.179799E-01     G      0.0            0.0           -3.335661E-02   0.0            1.256159E-02   0.0                           \r\n   1.193679E-01     G      0.0            0.0           -3.878569E-02   0.0            1.461230E-02   0.0                           \r\n   1.207559E-01     G      0.0            0.0           -2.553284E-02   0.0            9.640204E-03   0.0                           \r\n   1.221439E-01     G      0.0            0.0           -8.194351E-04   0.0            3.693237E-04   0.0                           \r\n   1.235319E-01     G      0.0            0.0            2.305629E-02   0.0           -8.578036E-03   0.0                           \r\n   1.249199E-01     G      0.0            0.0            3.472165E-02   0.0           -1.294883E-02   0.0                           \r\n   1.263079E-01     G      0.0            0.0            2.933968E-02   0.0           -1.092917E-02   0.0                           \r\n   1.276959E-01     G      0.0            0.0            1.050401E-02   0.0           -3.858516E-03   0.0                           \r\n   1.290839E-01     G      0.0            0.0           -1.210465E-02   0.0            4.628698E-03   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      26\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   1.304719E-01     G      0.0            0.0           -2.757514E-02   0.0            1.043506E-02   0.0                           \r\n   1.318599E-01     G      0.0            0.0           -2.893979E-02   0.0            1.095041E-02   0.0                           \r\n   1.332479E-01     G      0.0            0.0           -1.633493E-02   0.0            6.227287E-03   0.0                           \r\n   1.346359E-01     G      0.0            0.0            3.452407E-03   0.0           -1.191169E-03   0.0                           \r\n   1.360239E-01     G      0.0            0.0            2.063760E-02   0.0           -7.634277E-03   0.0                           \r\n   1.374119E-01     G      0.0            0.0            2.723701E-02   0.0           -1.010544E-02   0.0                           \r\n   1.387999E-01     G      0.0            0.0            2.072143E-02   0.0           -7.656716E-03   0.0                           \r\n   1.401879E-01     G      0.0            0.0            4.926320E-03   0.0           -1.727666E-03   0.0                           \r\n   1.415759E-01     G      0.0            0.0           -1.211656E-02   0.0            4.669627E-03   0.0                           \r\n   1.429639E-01     G      0.0            0.0           -2.224461E-02   0.0            8.473350E-03   0.0                           \r\n   1.443519E-01     G      0.0            0.0           -2.104436E-02   0.0            8.027297E-03   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      76\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.388000E-03     G      0.0            0.0            4.365433E-02   0.0           -6.241297E-03   0.0                           \r\n   2.776000E-03     G      0.0            0.0            1.421330E-01   0.0           -1.622561E-02   0.0                           \r\n   4.164000E-03     G      0.0            0.0            2.130956E-01   0.0           -2.124420E-02   0.0                           \r\n   5.552000E-03     G      0.0            0.0            1.781807E-01   0.0           -1.705708E-02   0.0                           \r\n   6.940000E-03     G      0.0            0.0            1.613650E-02   0.0           -6.312003E-04   0.0                           \r\n   8.328000E-03     G      0.0            0.0           -2.205137E-01   0.0            2.432217E-02   0.0                           \r\n   9.716000E-03     G      0.0            0.0           -4.279027E-01   0.0            4.567880E-02   0.0                           \r\n   1.110400E-02     G      0.0            0.0           -4.977542E-01   0.0            5.177722E-02   0.0                           \r\n   1.249200E-02     G      0.0            0.0           -3.716961E-01   0.0            3.795450E-02   0.0                           \r\n   1.388000E-02     G      0.0            0.0           -7.631418E-02   0.0            7.117844E-03   0.0                           \r\n   1.526800E-02     G      0.0            0.0            2.826927E-01   0.0           -3.038896E-02   0.0                           \r\n   1.665600E-02     G      0.0            0.0            5.641156E-01   0.0           -5.961811E-02   0.0                           \r\n   1.804400E-02     G      0.0            0.0            6.510106E-01   0.0           -6.818572E-02   0.0                           \r\n   1.943200E-02     G      0.0            0.0            5.012413E-01   0.0           -5.216339E-02   0.0                           \r\n   2.082000E-02     G      0.0            0.0            1.668379E-01   0.0           -1.713645E-02   0.0                           \r\n   2.220800E-02     G      0.0            0.0           -2.273142E-01   0.0            2.411481E-02   0.0                           \r\n   2.359600E-02     G      0.0            0.0           -5.352947E-01   0.0            5.636930E-02   0.0                           \r\n   2.498400E-02     G      0.0            0.0           -6.485760E-01   0.0            6.819521E-02   0.0                           \r\n   2.637200E-02     G      0.0            0.0           -5.364931E-01   0.0            5.646544E-02   0.0                           \r\n   2.776000E-02     G      0.0            0.0           -2.532676E-01   0.0            2.685261E-02   0.0                           \r\n   2.914800E-02     G      0.0            0.0            8.934155E-02   0.0           -9.101062E-03   0.0                           \r\n   3.053601E-02     G      0.0            0.0            3.697622E-01   0.0           -3.871899E-02   0.0                           \r\n   3.192401E-02     G      0.0            0.0            5.029680E-01   0.0           -5.300674E-02   0.0                           \r\n   3.331200E-02     G      0.0            0.0            4.667817E-01   0.0           -4.953431E-02   0.0                           \r\n   3.470000E-02     G      0.0            0.0            3.001146E-01   0.0           -3.224902E-02   0.0                           \r\n   3.608800E-02     G      0.0            0.0            7.782222E-02   0.0           -8.858294E-03   0.0                           \r\n   3.747600E-02     G      0.0            0.0           -1.237624E-01   0.0            1.266081E-02   0.0                           \r\n   3.886400E-02     G      0.0            0.0           -2.544915E-01   0.0            2.692398E-02   0.0                           \r\n   4.025200E-02     G      0.0            0.0           -3.008301E-01   0.0            3.231220E-02   0.0                           \r\n   4.163999E-02     G      0.0            0.0           -2.783053E-01   0.0            3.025390E-02   0.0                           \r\n   4.302799E-02     G      0.0            0.0           -2.137476E-01   0.0            2.342728E-02   0.0                           \r\n   4.441599E-02     G      0.0            0.0           -1.286417E-01   0.0            1.408599E-02   0.0                           \r\n   4.580399E-02     G      0.0            0.0           -3.231800E-02   0.0            3.356593E-03   0.0                           \r\n   4.719199E-02     G      0.0            0.0            7.315902E-02   0.0           -8.317775E-03   0.0                           \r\n   4.857999E-02     G      0.0            0.0            1.817124E-01   0.0           -2.008533E-02   0.0                           \r\n   4.996799E-02     G      0.0            0.0            2.744653E-01   0.0           -2.983869E-02   0.0                           \r\n   5.135598E-02     G      0.0            0.0            3.206459E-01   0.0           -3.435637E-02   0.0                           \r\n   5.274398E-02     G      0.0            0.0            2.895575E-01   0.0           -3.055162E-02   0.0                           \r\n   5.413198E-02     G      0.0            0.0            1.681962E-01   0.0           -1.725881E-02   0.0                           \r\n   5.551998E-02     G      0.0            0.0           -2.498478E-02   0.0            3.402455E-03   0.0                           \r\n   5.690798E-02     G      0.0            0.0           -2.387764E-01   0.0            2.595318E-02   0.0                           \r\n   5.829598E-02     G      0.0            0.0           -4.034549E-01   0.0            4.307609E-02   0.0                           \r\n   5.968397E-02     G      0.0            0.0           -4.561112E-01   0.0            4.825914E-02   0.0                           \r\n   6.107197E-02     G      0.0            0.0           -3.667816E-01   0.0            3.848940E-02   0.0                           \r\n   6.245997E-02     G      0.0            0.0           -1.538275E-01   0.0            1.581317E-02   0.0                           \r\n   6.384797E-02     G      0.0            0.0            1.189361E-01   0.0           -1.300195E-02   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      76\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   6.523597E-02     G      0.0            0.0            3.632573E-01   0.0           -3.868138E-02   0.0                           \r\n   6.662397E-02     G      0.0            0.0            4.977795E-01   0.0           -5.271649E-02   0.0                           \r\n   6.801197E-02     G      0.0            0.0            4.774312E-01   0.0           -5.042222E-02   0.0                           \r\n   6.939997E-02     G      0.0            0.0            3.093980E-01   0.0           -3.259051E-02   0.0                           \r\n   7.078797E-02     G      0.0            0.0            4.976156E-02   0.0           -5.132130E-03   0.0                           \r\n   7.217596E-02     G      0.0            0.0           -2.173128E-01   0.0            2.310047E-02   0.0                           \r\n   7.356396E-02     G      0.0            0.0           -4.092667E-01   0.0            4.341612E-02   0.0                           \r\n   7.495196E-02     G      0.0            0.0           -4.722965E-01   0.0            5.012870E-02   0.0                           \r\n   7.633996E-02     G      0.0            0.0           -3.964153E-01   0.0            4.214675E-02   0.0                           \r\n   7.772796E-02     G      0.0            0.0           -2.143333E-01   0.0            2.287707E-02   0.0                           \r\n   7.911596E-02     G      0.0            0.0            1.349256E-02   0.0           -1.321830E-03   0.0                           \r\n   8.050396E-02     G      0.0            0.0            2.205628E-01   0.0           -2.340743E-02   0.0                           \r\n   8.189195E-02     G      0.0            0.0            3.544029E-01   0.0           -3.777057E-02   0.0                           \r\n   8.327995E-02     G      0.0            0.0            3.887309E-01   0.0           -4.154438E-02   0.0                           \r\n   8.466795E-02     G      0.0            0.0            3.255934E-01   0.0           -3.486983E-02   0.0                           \r\n   8.605595E-02     G      0.0            0.0            1.893934E-01   0.0           -2.030201E-02   0.0                           \r\n   8.744395E-02     G      0.0            0.0            1.701069E-02   0.0           -1.783779E-03   0.0                           \r\n   8.883195E-02     G      0.0            0.0           -1.518702E-01   0.0            1.638975E-02   0.0                           \r\n   9.021994E-02     G      0.0            0.0           -2.819318E-01   0.0            3.036703E-02   0.0                           \r\n   9.160794E-02     G      0.0            0.0           -3.467956E-01   0.0            3.727096E-02   0.0                           \r\n   9.299594E-02     G      0.0            0.0           -3.321655E-01   0.0            3.556762E-02   0.0                           \r\n   9.438394E-02     G      0.0            0.0           -2.385064E-01   0.0            2.535954E-02   0.0                           \r\n   9.577194E-02     G      0.0            0.0           -8.292542E-02   0.0            8.563142E-03   0.0                           \r\n   9.715994E-02     G      0.0            0.0            1.013760E-01   0.0           -1.119062E-02   0.0                           \r\n   9.854794E-02     G      0.0            0.0            2.699593E-01   0.0           -2.911568E-02   0.0                           \r\n   9.993593E-02     G      0.0            0.0            3.769271E-01   0.0           -4.033486E-02   0.0                           \r\n   1.013239E-01     G      0.0            0.0            3.754478E-01   0.0           -3.823087E-02   0.0                           \r\n   1.027119E-01     G      0.0            0.0            2.094664E-01   0.0           -2.187916E-02   0.0                           \r\n   1.040999E-01     G      0.0            0.0           -4.587235E-02   0.0            4.718856E-03   0.0                           \r\n   1.054879E-01     G      0.0            0.0           -2.650304E-01   0.0            2.742118E-02   0.0                           \r\n   1.068759E-01     G      0.0            0.0           -3.463113E-01   0.0            3.537359E-02   0.0                           \r\n   1.082639E-01     G      0.0            0.0           -2.584733E-01   0.0            2.636396E-02   0.0                           \r\n   1.096519E-01     G      0.0            0.0           -5.282632E-02   0.0            5.542277E-03   0.0                           \r\n   1.110399E-01     G      0.0            0.0            1.661138E-01   0.0           -1.697441E-02   0.0                           \r\n   1.124279E-01     G      0.0            0.0            2.939105E-01   0.0           -3.018831E-02   0.0                           \r\n   1.138159E-01     G      0.0            0.0            2.752622E-01   0.0           -2.817241E-02   0.0                           \r\n   1.152039E-01     G      0.0            0.0            1.271883E-01   0.0           -1.296287E-02   0.0                           \r\n   1.165919E-01     G      0.0            0.0           -7.274424E-02   0.0            7.440393E-03   0.0                           \r\n   1.179799E-01     G      0.0            0.0           -2.266428E-01   0.0            2.321609E-02   0.0                           \r\n   1.193679E-01     G      0.0            0.0           -2.641360E-01   0.0            2.710778E-02   0.0                           \r\n   1.207559E-01     G      0.0            0.0           -1.740930E-01   0.0            1.786054E-02   0.0                           \r\n   1.221439E-01     G      0.0            0.0           -6.411734E-03   0.0            6.610034E-04   0.0                           \r\n   1.235319E-01     G      0.0            0.0            1.550000E-01   0.0           -1.585028E-02   0.0                           \r\n   1.249199E-01     G      0.0            0.0            2.339155E-01   0.0           -2.392886E-02   0.0                           \r\n   1.263079E-01     G      0.0            0.0            1.975962E-01   0.0           -2.022361E-02   0.0                           \r\n   1.276959E-01     G      0.0            0.0            6.984286E-02   0.0           -7.130284E-03   0.0                           \r\n   1.290839E-01     G      0.0            0.0           -8.355491E-02   0.0            8.596296E-03   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      POINT-ID =      76\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   1.304719E-01     G      0.0            0.0           -1.883809E-01   0.0            1.933113E-02   0.0                           \r\n   1.318599E-01     G      0.0            0.0           -1.976499E-01   0.0            2.027843E-02   0.0                           \r\n   1.332479E-01     G      0.0            0.0           -1.123741E-01   0.0            1.154872E-02   0.0                           \r\n   1.346359E-01     G      0.0            0.0            2.163670E-02   0.0           -2.178846E-03   0.0                           \r\n   1.360239E-01     G      0.0            0.0            1.380645E-01   0.0           -1.410892E-02   0.0                           \r\n   1.374119E-01     G      0.0            0.0            1.826991E-01   0.0           -1.867910E-02   0.0                           \r\n   1.387999E-01     G      0.0            0.0            1.384535E-01   0.0           -1.414288E-02   0.0                           \r\n   1.401879E-01     G      0.0            0.0            3.136883E-02   0.0           -3.172070E-03   0.0                           \r\n   1.415759E-01     G      0.0            0.0           -8.418217E-02   0.0            8.666964E-03   0.0                           \r\n   1.429639E-01     G      0.0            0.0           -1.528985E-01   0.0            1.570957E-02   0.0                           \r\n   1.443519E-01     G      0.0            0.0           -1.448347E-01   0.0            1.488481E-02   0.0                           \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.388000E-03     -1.733121E+03   0.0            0.0            0.0            0.0             0.0           -1.733121E+03         \r\n                   -1.902216E+03   0.0            0.0            0.0                            0.0           -1.902216E+03 -9.9E-01\r\n                                                                                                                                    \r\n  2.776000E-03     -1.710767E+04   0.0            0.0            0.0            0.0             0.0           -1.710767E+04         \r\n                   -1.705642E+04   0.0            0.0            0.0                            0.0           -1.705642E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.164000E-03     -3.424315E+04   0.0            0.0            0.0            0.0             0.0           -3.424315E+04         \r\n                   -3.373216E+04   0.0            0.0            0.0                            0.0           -3.373216E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.552000E-03     -3.005407E+04   0.0            0.0            0.0            0.0             0.0           -3.005407E+04         \r\n                   -2.955192E+04   0.0            0.0            0.0                            0.0           -2.955192E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.940000E-03     -4.027473E+03   0.0            0.0            0.0            0.0             0.0           -4.027473E+03         \r\n                   -3.913852E+03   0.0            0.0            0.0                            0.0           -3.913852E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.328000E-03      3.060659E+04   0.0            0.0            0.0            0.0             3.060659E+04   0.0          -1.0E+00\r\n                    3.031333E+04   0.0            0.0            0.0                            3.031333E+04   0.0                  \r\n                                                                                                                                    \r\n  9.716000E-03      6.210199E+04   0.0            0.0            0.0            0.0             6.210199E+04   0.0          -1.0E+00\r\n                    6.139441E+04   0.0            0.0            0.0                            6.139441E+04   0.0                  \r\n                                                                                                                                    \r\n  1.110400E-02      7.544948E+04   0.0            0.0            0.0            0.0             7.544948E+04   0.0          -1.0E+00\r\n                    7.446672E+04   0.0            0.0            0.0                            7.446672E+04   0.0                  \r\n                                                                                                                                    \r\n  1.249200E-02      5.788283E+04   0.0            0.0            0.0            0.0             5.788283E+04   0.0          -1.0E+00\r\n                    5.707171E+04   0.0            0.0            0.0                            5.707171E+04   0.0                  \r\n                                                                                                                                    \r\n  1.388000E-02      1.316947E+04   0.0            0.0            0.0            0.0             1.316947E+04   0.0          -9.9E-01\r\n                    1.293783E+04   0.0            0.0            0.0                            1.293783E+04   0.0                  \r\n                                                                                                                                    \r\n  1.526800E-02     -4.072243E+04   0.0            0.0            0.0            0.0             0.0           -4.072243E+04         \r\n                   -4.027035E+04   0.0            0.0            0.0                            0.0           -4.027035E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.665600E-02     -8.324382E+04   0.0            0.0            0.0            0.0             0.0           -8.324382E+04         \r\n                   -8.224135E+04   0.0            0.0            0.0                            0.0           -8.224135E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.804400E-02     -9.745927E+04   0.0            0.0            0.0            0.0             0.0           -9.745927E+04         \r\n                   -9.623274E+04   0.0            0.0            0.0                            0.0           -9.623274E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.943200E-02     -7.576463E+04   0.0            0.0            0.0            0.0             0.0           -7.576463E+04         \r\n                   -7.478355E+04   0.0            0.0            0.0                            0.0           -7.478355E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.082000E-02     -2.559564E+04   0.0            0.0            0.0            0.0             0.0           -2.559564E+04         \r\n                   -2.524891E+04   0.0            0.0            0.0                            0.0           -2.524891E+04 -1.0E+00\r\n                                                                                                                                    \r\n  2.220800E-02      3.350380E+04   0.0            0.0            0.0            0.0             3.350380E+04   0.0          -1.0E+00\r\n                    3.310387E+04   0.0            0.0            0.0                            3.310387E+04   0.0                  \r\n                                                                                                                                    \r\n  2.359600E-02      7.958317E+04   0.0            0.0            0.0            0.0             7.958317E+04   0.0          -1.0E+00\r\n                    7.860451E+04   0.0            0.0            0.0                            7.860451E+04   0.0                  \r\n                                                                                                                                    \r\n  2.498400E-02      9.664696E+04   0.0            0.0            0.0            0.0             9.664696E+04   0.0          -1.0E+00\r\n                    9.544976E+04   0.0            0.0            0.0                            9.544976E+04   0.0                  \r\n                                                                                                                                    \r\n  2.637200E-02      7.985766E+04   0.0            0.0            0.0            0.0             7.985766E+04   0.0          -1.0E+00\r\n                    7.887213E+04   0.0            0.0            0.0                            7.887213E+04   0.0                  \r\n                                                                                                                                    \r\n  2.776000E-02      3.729953E+04   0.0            0.0            0.0            0.0             3.729953E+04   0.0          -1.0E+00\r\n                    3.685488E+04   0.0            0.0            0.0                            3.685488E+04   0.0                  \r\n                                                                                                                                    \r\n  2.914800E-02     -1.388289E+04   0.0            0.0            0.0            0.0             0.0           -1.388289E+04         \r\n                   -1.368811E+04   0.0            0.0            0.0                            0.0           -1.368811E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.053601E-02     -5.535439E+04   0.0            0.0            0.0            0.0             0.0           -5.535439E+04         \r\n                   -5.465736E+04   0.0            0.0            0.0                            0.0           -5.465736E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.192401E-02     -7.460884E+04   0.0            0.0            0.0            0.0             0.0           -7.460884E+04         \r\n                   -7.369577E+04   0.0            0.0            0.0                            0.0           -7.369577E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.331200E-02     -6.853538E+04   0.0            0.0            0.0            0.0             0.0           -6.853538E+04         \r\n                   -6.772362E+04   0.0            0.0            0.0                            0.0           -6.772362E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.470000E-02     -4.320491E+04   0.0            0.0            0.0            0.0             0.0           -4.320491E+04         \r\n                   -4.272600E+04   0.0            0.0            0.0                            0.0           -4.272600E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.608800E-02     -1.012389E+04   0.0            0.0            0.0            0.0             0.0           -1.012389E+04         \r\n                   -1.005337E+04   0.0            0.0            0.0                            0.0           -1.005337E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.747600E-02      1.922738E+04   0.0            0.0            0.0            0.0             1.922738E+04   0.0          -9.9E-01\r\n                    1.896023E+04   0.0            0.0            0.0                            1.896023E+04   0.0                  \r\n                                                                                                                                    \r\n  3.886400E-02      3.762445E+04   0.0            0.0            0.0            0.0             3.762445E+04   0.0          -1.0E+00\r\n                    3.717059E+04   0.0            0.0            0.0                            3.717059E+04   0.0                  \r\n                                                                                                                                    \r\n  4.025200E-02      4.345728E+04   0.0            0.0            0.0            0.0             4.345728E+04   0.0          -1.0E+00\r\n                    4.297200E+04   0.0            0.0            0.0                            4.297200E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  4.163999E-02      3.945324E+04   0.0            0.0            0.0            0.0             3.945324E+04   0.0          -1.0E+00\r\n                    3.904227E+04   0.0            0.0            0.0                            3.904227E+04   0.0                  \r\n                                                                                                                                    \r\n  4.302799E-02      2.990958E+04   0.0            0.0            0.0            0.0             2.990958E+04   0.0          -1.0E+00\r\n                    2.961390E+04   0.0            0.0            0.0                            2.961390E+04   0.0                  \r\n                                                                                                                                    \r\n  4.441599E-02      1.804367E+04   0.0            0.0            0.0            0.0             1.804367E+04   0.0          -9.9E-01\r\n                    1.786395E+04   0.0            0.0            0.0                            1.786395E+04   0.0                  \r\n                                                                                                                                    \r\n  4.580399E-02      4.941009E+03   0.0            0.0            0.0            0.0             4.941009E+03   0.0          -9.8E-01\r\n                    4.875958E+03   0.0            0.0            0.0                            4.875958E+03   0.0                  \r\n                                                                                                                                    \r\n  4.719199E-02     -9.559622E+03   0.0            0.0            0.0            0.0             0.0           -9.559622E+03         \r\n                   -9.491334E+03   0.0            0.0            0.0                            0.0           -9.491334E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.857999E-02     -2.499107E+04   0.0            0.0            0.0            0.0             0.0           -2.499107E+04         \r\n                   -2.475983E+04   0.0            0.0            0.0                            0.0           -2.475983E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.996799E-02     -3.879704E+04   0.0            0.0            0.0            0.0             0.0           -3.879704E+04         \r\n                   -3.839519E+04   0.0            0.0            0.0                            0.0           -3.839519E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.135598E-02     -4.636890E+04   0.0            0.0            0.0            0.0             0.0           -4.636890E+04         \r\n                   -4.584677E+04   0.0            0.0            0.0                            0.0           -4.584677E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.274398E-02     -4.284370E+04   0.0            0.0            0.0            0.0             0.0           -4.284370E+04         \r\n                   -4.232297E+04   0.0            0.0            0.0                            0.0           -4.232297E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.413198E-02     -2.586757E+04   0.0            0.0            0.0            0.0             0.0           -2.586757E+04         \r\n                   -2.551497E+04   0.0            0.0            0.0                            0.0           -2.551497E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.551998E-02      2.180752E+03   0.0            0.0            0.0            0.0             2.180752E+03   0.0          -9.5E-01\r\n                    2.213759E+03   0.0            0.0            0.0                            2.213759E+03   0.0                  \r\n                                                                                                                                    \r\n  5.690798E-02      3.387037E+04   0.0            0.0            0.0            0.0             3.387037E+04   0.0          -1.0E+00\r\n                    3.351688E+04   0.0            0.0            0.0                            3.351688E+04   0.0                  \r\n                                                                                                                                    \r\n  5.829598E-02      5.878945E+04   0.0            0.0            0.0            0.0             5.878945E+04   0.0          -1.0E+00\r\n                    5.811249E+04   0.0            0.0            0.0                            5.811249E+04   0.0                  \r\n                                                                                                                                    \r\n  5.968397E-02      6.735786E+04   0.0            0.0            0.0            0.0             6.735786E+04   0.0          -1.0E+00\r\n                    6.654703E+04   0.0            0.0            0.0                            6.654703E+04   0.0                  \r\n                                                                                                                                    \r\n  6.107197E-02      5.482892E+04   0.0            0.0            0.0            0.0             5.482892E+04   0.0          -1.0E+00\r\n                    5.414352E+04   0.0            0.0            0.0                            5.414352E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  6.245997E-02      2.369951E+04   0.0            0.0            0.0            0.0             2.369951E+04   0.0          -1.0E+00\r\n                    2.337702E+04   0.0            0.0            0.0                            2.337702E+04   0.0                  \r\n                                                                                                                                    \r\n  6.384797E-02     -1.664456E+04   0.0            0.0            0.0            0.0             0.0           -1.664456E+04         \r\n                   -1.647838E+04   0.0            0.0            0.0                            0.0           -1.647838E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.523597E-02     -5.304986E+04   0.0            0.0            0.0            0.0             0.0           -5.304986E+04         \r\n                   -5.243237E+04   0.0            0.0            0.0                            0.0           -5.243237E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.662397E-02     -7.330569E+04   0.0            0.0            0.0            0.0             0.0           -7.330569E+04         \r\n                   -7.242902E+04   0.0            0.0            0.0                            0.0           -7.242902E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.801197E-02     -7.058912E+04   0.0            0.0            0.0            0.0             0.0           -7.058912E+04         \r\n                   -6.973400E+04   0.0            0.0            0.0                            0.0           -6.973400E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.939997E-02     -4.589618E+04   0.0            0.0            0.0            0.0             0.0           -4.589618E+04         \r\n                   -4.533396E+04   0.0            0.0            0.0                            0.0           -4.533396E+04 -1.0E+00\r\n                                                                                                                                    \r\n  7.078797E-02     -7.552585E+03   0.0            0.0            0.0            0.0             0.0           -7.552585E+03         \r\n                   -7.452498E+03   0.0            0.0            0.0                            0.0           -7.452498E+03 -1.0E+00\r\n                                                                                                                                    \r\n  7.217596E-02      3.191173E+04   0.0            0.0            0.0            0.0             3.191173E+04   0.0          -1.0E+00\r\n                    3.153527E+04   0.0            0.0            0.0                            3.153527E+04   0.0                  \r\n                                                                                                                                    \r\n  7.356396E-02      6.022271E+04   0.0            0.0            0.0            0.0             6.022271E+04   0.0          -1.0E+00\r\n                    5.950634E+04   0.0            0.0            0.0                            5.950634E+04   0.0                  \r\n                                                                                                                                    \r\n  7.495196E-02      6.942764E+04   0.0            0.0            0.0            0.0             6.942764E+04   0.0          -1.0E+00\r\n                    6.860435E+04   0.0            0.0            0.0                            6.860435E+04   0.0                  \r\n                                                                                                                                    \r\n  7.633996E-02      5.812638E+04   0.0            0.0            0.0            0.0             5.812638E+04   0.0          -1.0E+00\r\n                    5.744281E+04   0.0            0.0            0.0                            5.744281E+04   0.0                  \r\n                                                                                                                                    \r\n  7.772796E-02      3.125998E+04   0.0            0.0            0.0            0.0             3.125998E+04   0.0          -1.0E+00\r\n                    3.089933E+04   0.0            0.0            0.0                            3.089933E+04   0.0                  \r\n                                                                                                                                    \r\n  7.911596E-02     -2.169287E+03   0.0            0.0            0.0            0.0             0.0           -2.169287E+03         \r\n                   -2.135360E+03   0.0            0.0            0.0                            0.0           -2.135360E+03 -9.9E-01\r\n                                                                                                                                    \r\n  8.050396E-02     -3.236088E+04   0.0            0.0            0.0            0.0             0.0           -3.236088E+04         \r\n                   -3.197801E+04   0.0            0.0            0.0                            0.0           -3.197801E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.189195E-02     -5.168939E+04   0.0            0.0            0.0            0.0             0.0           -5.168939E+04         \r\n                   -5.109032E+04   0.0            0.0            0.0                            0.0           -5.109032E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  8.327995E-02     -5.645569E+04   0.0            0.0            0.0            0.0             0.0           -5.645569E+04         \r\n                   -5.581082E+04   0.0            0.0            0.0                            0.0           -5.581082E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.466795E-02     -4.711998E+04   0.0            0.0            0.0            0.0             0.0           -4.711998E+04         \r\n                   -4.658800E+04   0.0            0.0            0.0                            0.0           -4.658800E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.605595E-02     -2.734067E+04   0.0            0.0            0.0            0.0             0.0           -2.734067E+04         \r\n                   -2.703417E+04   0.0            0.0            0.0                            0.0           -2.703417E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.744395E-02     -2.477433E+03   0.0            0.0            0.0            0.0             0.0           -2.477433E+03         \r\n                   -2.447731E+03   0.0            0.0            0.0                            0.0           -2.447731E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.883195E-02      2.181223E+04   0.0            0.0            0.0            0.0             2.181223E+04   0.0          -9.9E-01\r\n                    2.157428E+04   0.0            0.0            0.0                            2.157428E+04   0.0                  \r\n                                                                                                                                    \r\n  9.021994E-02      4.055431E+04   0.0            0.0            0.0            0.0             4.055431E+04   0.0          -1.0E+00\r\n                    4.010828E+04   0.0            0.0            0.0                            4.010828E+04   0.0                  \r\n                                                                                                                                    \r\n  9.160794E-02      5.003546E+04   0.0            0.0            0.0            0.0             5.003546E+04   0.0          -1.0E+00\r\n                    4.947890E+04   0.0            0.0            0.0                            4.947890E+04   0.0                  \r\n                                                                                                                                    \r\n  9.299594E-02      4.819160E+04   0.0            0.0            0.0            0.0             4.819160E+04   0.0          -1.0E+00\r\n                    4.764500E+04   0.0            0.0            0.0                            4.764500E+04   0.0                  \r\n                                                                                                                                    \r\n  9.438394E-02      3.498305E+04   0.0            0.0            0.0            0.0             3.498305E+04   0.0          -1.0E+00\r\n                    3.457166E+04   0.0            0.0            0.0                            3.457166E+04   0.0                  \r\n                                                                                                                                    \r\n  9.577194E-02      1.271495E+04   0.0            0.0            0.0            0.0             1.271495E+04   0.0          -9.9E-01\r\n                    1.254464E+04   0.0            0.0            0.0                            1.254464E+04   0.0                  \r\n                                                                                                                                    \r\n  9.715994E-02     -1.395667E+04   0.0            0.0            0.0            0.0             0.0           -1.395667E+04         \r\n                   -1.382652E+04   0.0            0.0            0.0                            0.0           -1.382652E+04 -1.0E+00\r\n                                                                                                                                    \r\n  9.854794E-02     -3.864866E+04   0.0            0.0            0.0            0.0             0.0           -3.864866E+04         \r\n                   -3.822873E+04   0.0            0.0            0.0                            0.0           -3.822873E+04 -1.0E+00\r\n                                                                                                                                    \r\n  9.993593E-02     -5.463223E+04   0.0            0.0            0.0            0.0             0.0           -5.463223E+04         \r\n                   -5.401241E+04   0.0            0.0            0.0                            0.0           -5.401241E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.013239E-01     -5.870312E+04   0.0            0.0            0.0            0.0             0.0           -5.870312E+04         \r\n                   -5.787101E+04   0.0            0.0            0.0                            0.0           -5.787101E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.027119E-01     -3.111315E+04   0.0            0.0            0.0            0.0             0.0           -3.111315E+04         \r\n                   -3.072902E+04   0.0            0.0            0.0                            0.0           -3.072902E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.040999E-01      7.053278E+03   0.0            0.0            0.0            0.0             7.053278E+03   0.0          -9.8E-01\r\n                    6.957729E+03   0.0            0.0            0.0                            6.957729E+03   0.0                  \r\n                                                                                                                                    \r\n  1.054879E-01      4.018779E+04   0.0            0.0            0.0            0.0             4.018779E+04   0.0          -1.0E+00\r\n                    3.966220E+04   0.0            0.0            0.0                            3.966220E+04   0.0                  \r\n                                                                                                                                    \r\n  1.068759E-01      5.386201E+04   0.0            0.0            0.0            0.0             5.386201E+04   0.0          -1.0E+00\r\n                    5.310933E+04   0.0            0.0            0.0                            5.310933E+04   0.0                  \r\n                                                                                                                                    \r\n  1.082639E-01      4.032888E+04   0.0            0.0            0.0            0.0             4.032888E+04   0.0          -1.0E+00\r\n                    3.976115E+04   0.0            0.0            0.0                            3.976115E+04   0.0                  \r\n                                                                                                                                    \r\n  1.096519E-01      7.831553E+03   0.0            0.0            0.0            0.0             7.831553E+03   0.0          -9.9E-01\r\n                    7.736317E+03   0.0            0.0            0.0                            7.736317E+03   0.0                  \r\n                                                                                                                                    \r\n  1.110399E-01     -2.573632E+04   0.0            0.0            0.0            0.0             0.0           -2.573632E+04         \r\n                   -2.537883E+04   0.0            0.0            0.0                            0.0           -2.537883E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.124279E-01     -4.511761E+04   0.0            0.0            0.0            0.0             0.0           -4.511761E+04         \r\n                   -4.450618E+04   0.0            0.0            0.0                            0.0           -4.450618E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.138159E-01     -4.253904E+04   0.0            0.0            0.0            0.0             0.0           -4.253904E+04         \r\n                   -4.195231E+04   0.0            0.0            0.0                            0.0           -4.195231E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.152039E-01     -1.976666E+04   0.0            0.0            0.0            0.0             0.0           -1.976666E+04         \r\n                   -1.948932E+04   0.0            0.0            0.0                            0.0           -1.948932E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.165919E-01      1.137092E+04   0.0            0.0            0.0            0.0             1.137092E+04   0.0          -9.9E-01\r\n                    1.121149E+04   0.0            0.0            0.0                            1.121149E+04   0.0                  \r\n                                                                                                                                    \r\n  1.179799E-01      3.513365E+04   0.0            0.0            0.0            0.0             3.513365E+04   0.0          -1.0E+00\r\n                    3.464804E+04   0.0            0.0            0.0                            3.464804E+04   0.0                  \r\n                                                                                                                                    \r\n  1.193679E-01      4.078607E+04   0.0            0.0            0.0            0.0             4.078607E+04   0.0          -1.0E+00\r\n                    4.022776E+04   0.0            0.0            0.0                            4.022776E+04   0.0                  \r\n                                                                                                                                    \r\n  1.207559E-01      2.694659E+04   0.0            0.0            0.0            0.0             2.694659E+04   0.0          -1.0E+00\r\n                    2.657623E+04   0.0            0.0            0.0                            2.657623E+04   0.0                  \r\n                                                                                                                                    \r\n  1.221439E-01      1.105227E+03   0.0            0.0            0.0            0.0             1.105227E+03   0.0          -9.0E-01\r\n                    1.088075E+03   0.0            0.0            0.0                            1.088075E+03   0.0                  \r\n                                                                                                                                    \r\n  1.235319E-01     -2.390300E+04   0.0            0.0            0.0            0.0             0.0           -2.390300E+04         \r\n                   -2.357360E+04   0.0            0.0            0.0                            0.0           -2.357360E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.249199E-01     -3.610769E+04   0.0            0.0            0.0            0.0             0.0           -3.610769E+04         \r\n                   -3.560987E+04   0.0            0.0            0.0                            0.0           -3.560987E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.263079E-01     -3.044119E+04   0.0            0.0            0.0            0.0             0.0           -3.044119E+04         \r\n                   -3.002310E+04   0.0            0.0            0.0                            0.0           -3.002310E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.276959E-01     -1.070730E+04   0.0            0.0            0.0            0.0             0.0           -1.070730E+04         \r\n                   -1.056033E+04   0.0            0.0            0.0                            0.0           -1.056033E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.290839E-01      1.297156E+04   0.0            0.0            0.0            0.0             1.297156E+04   0.0          -9.9E-01\r\n                    1.279377E+04   0.0            0.0            0.0                            1.279377E+04   0.0                  \r\n                                                                                                                                    \r\n  1.304719E-01      2.919101E+04   0.0            0.0            0.0            0.0             2.919101E+04   0.0          -1.0E+00\r\n                    2.878940E+04   0.0            0.0            0.0                            2.878940E+04   0.0                  \r\n                                                                                                                                    \r\n  1.318599E-01      3.063820E+04   0.0            0.0            0.0            0.0             3.063820E+04   0.0          -1.0E+00\r\n                    3.021635E+04   0.0            0.0            0.0                            3.021635E+04   0.0                  \r\n                                                                                                                                    \r\n  1.332479E-01      1.744931E+04   0.0            0.0            0.0            0.0             1.744931E+04   0.0          -9.9E-01\r\n                    1.720935E+04   0.0            0.0            0.0                            1.720935E+04   0.0                  \r\n                                                                                                                                    \r\n  1.346359E-01     -3.255519E+03   0.0            0.0            0.0            0.0             0.0           -3.255519E+03         \r\n                   -3.210506E+03   0.0            0.0            0.0                            0.0           -3.210506E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.360239E-01     -2.123191E+04   0.0            0.0            0.0            0.0             0.0           -2.123191E+04         \r\n                   -2.093999E+04   0.0            0.0            0.0                            0.0           -2.093999E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.374119E-01     -2.812853E+04   0.0            0.0            0.0            0.0             0.0           -2.812853E+04         \r\n                   -2.774156E+04   0.0            0.0            0.0                            0.0           -2.774156E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.387999E-01     -2.129320E+04   0.0            0.0            0.0            0.0             0.0           -2.129320E+04         \r\n                   -2.100011E+04   0.0            0.0            0.0                            0.0           -2.100011E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.401879E-01     -4.738219E+03   0.0            0.0            0.0            0.0             0.0           -4.738219E+03         \r\n                   -4.673042E+03   0.0            0.0            0.0                            0.0           -4.673042E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.415759E-01      1.312248E+04   0.0            0.0            0.0            0.0             1.312248E+04   0.0          -9.9E-01\r\n                    1.294184E+04   0.0            0.0            0.0                            1.294184E+04   0.0                  \r\n                                                                                                                                    \r\n  1.429639E-01      2.374104E+04   0.0            0.0            0.0            0.0             2.374104E+04   0.0          -1.0E+00\r\n                    2.341439E+04   0.0            0.0            0.0                            2.341439E+04   0.0                  \r\n                                                                                                                                    \r\n  1.443519E-01      2.249893E+04   0.0            0.0            0.0            0.0             2.249893E+04   0.0          -1.0E+00\r\n                    2.218936E+04   0.0            0.0            0.0                            2.218936E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.388000E-03     -5.270243E+03   0.0            0.0            0.0            0.0             0.0           -5.270243E+03         \r\n                   -5.349225E+03   0.0            0.0            0.0                            0.0           -5.349225E+03 -1.0E+00\r\n                                                                                                                                    \r\n  2.776000E-03     -1.525434E+04   0.0            0.0            0.0            0.0             0.0           -1.525434E+04         \r\n                   -1.512582E+04   0.0            0.0            0.0                            0.0           -1.512582E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.164000E-03     -2.153278E+04   0.0            0.0            0.0            0.0             0.0           -2.153278E+04         \r\n                   -2.102943E+04   0.0            0.0            0.0                            0.0           -2.102943E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.552000E-03     -1.784804E+04   0.0            0.0            0.0            0.0             0.0           -1.784804E+04         \r\n                   -1.738753E+04   0.0            0.0            0.0                            0.0           -1.738753E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.940000E-03     -1.578814E+03   0.0            0.0            0.0            0.0             0.0           -1.578814E+03         \r\n                   -1.507863E+03   0.0            0.0            0.0                            0.0           -1.507863E+03 -9.9E-01\r\n                                                                                                                                    \r\n  8.328000E-03      2.277106E+04   0.0            0.0            0.0            0.0             2.277106E+04   0.0          -1.0E+00\r\n                    2.241765E+04   0.0            0.0            0.0                            2.241765E+04   0.0                  \r\n                                                                                                                                    \r\n  9.716000E-03      4.397586E+04   0.0            0.0            0.0            0.0             4.397586E+04   0.0          -1.0E+00\r\n                    4.322620E+04   0.0            0.0            0.0                            4.322620E+04   0.0                  \r\n                                                                                                                                    \r\n  1.110400E-02      5.074961E+04   0.0            0.0            0.0            0.0             5.074961E+04   0.0          -1.0E+00\r\n                    4.974292E+04   0.0            0.0            0.0                            4.974292E+04   0.0                  \r\n                                                                                                                                    \r\n  1.249200E-02      3.773758E+04   0.0            0.0            0.0            0.0             3.773758E+04   0.0          -1.0E+00\r\n                    3.694508E+04   0.0            0.0            0.0                            3.694508E+04   0.0                  \r\n                                                                                                                                    \r\n  1.388000E-02      7.665655E+03   0.0            0.0            0.0            0.0             7.665655E+03   0.0          -9.9E-01\r\n                    7.467530E+03   0.0            0.0            0.0                            7.467530E+03   0.0                  \r\n                                                                                                                                    \r\n  1.526800E-02     -2.900265E+04   0.0            0.0            0.0            0.0             0.0           -2.900265E+04         \r\n                   -2.851001E+04   0.0            0.0            0.0                            0.0           -2.851001E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.665600E-02     -5.773756E+04   0.0            0.0            0.0            0.0             0.0           -5.773756E+04         \r\n                   -5.668803E+04   0.0            0.0            0.0                            0.0           -5.668803E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.804400E-02     -6.647919E+04   0.0            0.0            0.0            0.0             0.0           -6.647919E+04         \r\n                   -6.519404E+04   0.0            0.0            0.0                            0.0           -6.519404E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.943200E-02     -5.109767E+04   0.0            0.0            0.0            0.0             0.0           -5.109767E+04         \r\n                   -5.011240E+04   0.0            0.0            0.0                            0.0           -5.011240E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.082000E-02     -1.696451E+04   0.0            0.0            0.0            0.0             0.0           -1.696451E+04         \r\n                   -1.662716E+04   0.0            0.0            0.0                            0.0           -1.662716E+04 -1.0E+00\r\n                                                                                                                                    \r\n  2.220800E-02      2.328646E+04   0.0            0.0            0.0            0.0             2.328646E+04   0.0          -1.0E+00\r\n                    2.286879E+04   0.0            0.0            0.0                            2.286879E+04   0.0                  \r\n                                                                                                                                    \r\n  2.359600E-02      5.476568E+04   0.0            0.0            0.0            0.0             5.476568E+04   0.0          -1.0E+00\r\n                    5.373757E+04   0.0            0.0            0.0                            5.373757E+04   0.0                  \r\n                                                                                                                                    \r\n  2.498400E-02      6.631855E+04   0.0            0.0            0.0            0.0             6.631855E+04   0.0          -1.0E+00\r\n                    6.509766E+04   0.0            0.0            0.0                            6.509766E+04   0.0                  \r\n                                                                                                                                    \r\n  2.637200E-02      5.485938E+04   0.0            0.0            0.0            0.0             5.485938E+04   0.0          -1.0E+00\r\n                    5.385269E+04   0.0            0.0            0.0                            5.385269E+04   0.0                  \r\n                                                                                                                                    \r\n  2.776000E-02      2.596383E+04   0.0            0.0            0.0            0.0             2.596383E+04   0.0          -1.0E+00\r\n                    2.548190E+04   0.0            0.0            0.0                            2.548190E+04   0.0                  \r\n                                                                                                                                    \r\n  2.914800E-02     -9.047850E+03   0.0            0.0            0.0            0.0             0.0           -9.047850E+03         \r\n                   -8.860433E+03   0.0            0.0            0.0                            0.0           -8.860433E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.053601E-02     -3.775097E+04   0.0            0.0            0.0            0.0             0.0           -3.775097E+04         \r\n                   -3.702272E+04   0.0            0.0            0.0                            0.0           -3.702272E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.192401E-02     -5.143235E+04   0.0            0.0            0.0            0.0             0.0           -5.143235E+04         \r\n                   -5.046849E+04   0.0            0.0            0.0                            0.0           -5.046849E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.331200E-02     -4.779112E+04   0.0            0.0            0.0            0.0             0.0           -4.779112E+04         \r\n                   -4.693436E+04   0.0            0.0            0.0                            0.0           -4.693436E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.470000E-02     -3.080318E+04   0.0            0.0            0.0            0.0             0.0           -3.080318E+04         \r\n                   -3.028913E+04   0.0            0.0            0.0                            0.0           -3.028913E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.608800E-02     -8.083995E+03   0.0            0.0            0.0            0.0             0.0           -8.083995E+03         \r\n                   -7.979577E+03   0.0            0.0            0.0                            0.0           -7.979577E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.747600E-02      1.259370E+04   0.0            0.0            0.0            0.0             1.259370E+04   0.0          -9.9E-01\r\n                    1.232596E+04   0.0            0.0            0.0                            1.232596E+04   0.0                  \r\n                                                                                                                                    \r\n  3.886400E-02      2.607092E+04   0.0            0.0            0.0            0.0             2.607092E+04   0.0          -1.0E+00\r\n                    2.558900E+04   0.0            0.0            0.0                            2.558900E+04   0.0                  \r\n                                                                                                                                    \r\n  4.025200E-02      3.090358E+04   0.0            0.0            0.0            0.0             3.090358E+04   0.0          -1.0E+00\r\n                    3.037882E+04   0.0            0.0            0.0                            3.037882E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  4.163999E-02      2.868136E+04   0.0            0.0            0.0            0.0             2.868136E+04   0.0          -1.0E+00\r\n                    2.821015E+04   0.0            0.0            0.0                            2.821015E+04   0.0                  \r\n                                                                                                                                    \r\n  4.302799E-02      2.206825E+04   0.0            0.0            0.0            0.0             2.206825E+04   0.0          -9.9E-01\r\n                    2.172555E+04   0.0            0.0            0.0                            2.172555E+04   0.0                  \r\n                                                                                                                                    \r\n  4.441599E-02      1.328647E+04   0.0            0.0            0.0            0.0             1.328647E+04   0.0          -9.9E-01\r\n                    1.307763E+04   0.0            0.0            0.0                            1.307763E+04   0.0                  \r\n                                                                                                                                    \r\n  4.580399E-02      3.315760E+03   0.0            0.0            0.0            0.0             3.315760E+03   0.0          -9.7E-01\r\n                    3.251503E+03   0.0            0.0            0.0                            3.251503E+03   0.0                  \r\n                                                                                                                                    \r\n  4.719199E-02     -7.588680E+03   0.0            0.0            0.0            0.0             0.0           -7.588680E+03         \r\n                   -7.486940E+03   0.0            0.0            0.0                            0.0           -7.486940E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.857999E-02     -1.876170E+04   0.0            0.0            0.0            0.0             0.0           -1.876170E+04         \r\n                   -1.848325E+04   0.0            0.0            0.0                            0.0           -1.848325E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.996799E-02     -2.824629E+04   0.0            0.0            0.0            0.0             0.0           -2.824629E+04         \r\n                   -2.777507E+04   0.0            0.0            0.0                            0.0           -2.777507E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.135598E-02     -3.289823E+04   0.0            0.0            0.0            0.0             0.0           -3.289823E+04         \r\n                   -3.234134E+04   0.0            0.0            0.0                            0.0           -3.234134E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.274398E-02     -2.960506E+04   0.0            0.0            0.0            0.0             0.0           -2.960506E+04         \r\n                   -2.905887E+04   0.0            0.0            0.0                            0.0           -2.905887E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.413198E-02     -1.709168E+04   0.0            0.0            0.0            0.0             0.0           -1.709168E+04         \r\n                   -1.674362E+04   0.0            0.0            0.0                            0.0           -1.674362E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.551998E-02      2.729666E+03   0.0            0.0            0.0            0.0             2.729666E+03   0.0          -9.6E-01\r\n                    2.729666E+03   0.0            0.0            0.0                            2.729666E+03   0.0                  \r\n                                                                                                                                    \r\n  5.690798E-02      2.460506E+04   0.0            0.0            0.0            0.0             2.460506E+04   0.0          -1.0E+00\r\n                    2.419810E+04   0.0            0.0            0.0                            2.419810E+04   0.0                  \r\n                                                                                                                                    \r\n  5.829598E-02      4.139889E+04   0.0            0.0            0.0            0.0             4.139889E+04   0.0          -1.0E+00\r\n                    4.067064E+04   0.0            0.0            0.0                            4.067064E+04   0.0                  \r\n                                                                                                                                    \r\n  5.968397E-02      4.670678E+04   0.0            0.0            0.0            0.0             4.670678E+04   0.0          -1.0E+00\r\n                    4.585002E+04   0.0            0.0            0.0                            4.585002E+04   0.0                  \r\n                                                                                                                                    \r\n  6.107197E-02      3.750331E+04   0.0            0.0            0.0            0.0             3.750331E+04   0.0          -1.0E+00\r\n                    3.679648E+04   0.0            0.0            0.0                            3.679648E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  6.245997E-02      1.566933E+04   0.0            0.0            0.0            0.0             1.566933E+04   0.0          -9.9E-01\r\n                    1.535340E+04   0.0            0.0            0.0                            1.535340E+04   0.0                  \r\n                                                                                                                                    \r\n  6.384797E-02     -1.224564E+04   0.0            0.0            0.0            0.0             0.0           -1.224564E+04         \r\n                   -1.204751E+04   0.0            0.0            0.0                            0.0           -1.204751E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.523597E-02     -3.722218E+04   0.0            0.0            0.0            0.0             0.0           -3.722218E+04         \r\n                   -3.653678E+04   0.0            0.0            0.0                            0.0           -3.653678E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.662397E-02     -5.095042E+04   0.0            0.0            0.0            0.0             0.0           -5.095042E+04         \r\n                   -5.002940E+04   0.0            0.0            0.0                            0.0           -5.002940E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.801197E-02     -4.884868E+04   0.0            0.0            0.0            0.0             0.0           -4.884868E+04         \r\n                   -4.792766E+04   0.0            0.0            0.0                            0.0           -4.792766E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.939997E-02     -3.162648E+04   0.0            0.0            0.0            0.0             0.0           -3.162648E+04         \r\n                   -3.103745E+04   0.0            0.0            0.0                            0.0           -3.103745E+04 -1.0E+00\r\n                                                                                                                                    \r\n  7.078797E-02     -5.052706E+03   0.0            0.0            0.0            0.0             0.0           -5.052706E+03         \r\n                   -4.953643E+03   0.0            0.0            0.0                            0.0           -4.953643E+03 -1.0E+00\r\n                                                                                                                                    \r\n  7.217596E-02      2.228244E+04   0.0            0.0            0.0            0.0             2.228244E+04   0.0          -1.0E+00\r\n                    2.187548E+04   0.0            0.0            0.0                            2.187548E+04   0.0                  \r\n                                                                                                                                    \r\n  7.356396E-02      4.193436E+04   0.0            0.0            0.0            0.0             4.193436E+04   0.0          -1.0E+00\r\n                    4.118470E+04   0.0            0.0            0.0                            4.118470E+04   0.0                  \r\n                                                                                                                                    \r\n  7.495196E-02      4.839353E+04   0.0            0.0            0.0            0.0             4.839353E+04   0.0          -1.0E+00\r\n                    4.753677E+04   0.0            0.0            0.0                            4.753677E+04   0.0                  \r\n                                                                                                                                    \r\n  7.633996E-02      4.064253E+04   0.0            0.0            0.0            0.0             4.064253E+04   0.0          -1.0E+00\r\n                    3.991429E+04   0.0            0.0            0.0                            3.991429E+04   0.0                  \r\n                                                                                                                                    \r\n  7.772796E-02      2.200466E+04   0.0            0.0            0.0            0.0             2.200466E+04   0.0          -9.9E-01\r\n                    2.161912E+04   0.0            0.0            0.0                            2.161912E+04   0.0                  \r\n                                                                                                                                    \r\n  7.911596E-02     -1.338268E+03   0.0            0.0            0.0            0.0             0.0           -1.338268E+03         \r\n                   -1.307479E+03   0.0            0.0            0.0                            0.0           -1.307479E+03 -9.9E-01\r\n                                                                                                                                    \r\n  8.050396E-02     -2.257695E+04   0.0            0.0            0.0            0.0             0.0           -2.257695E+04         \r\n                   -2.216999E+04   0.0            0.0            0.0                            0.0           -2.216999E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.189195E-02     -3.631857E+04   0.0            0.0            0.0            0.0             0.0           -3.631857E+04         \r\n                   -3.567600E+04   0.0            0.0            0.0                            0.0           -3.567600E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  8.327995E-02     -3.986609E+04   0.0            0.0            0.0            0.0             0.0           -3.986609E+04         \r\n                   -3.918068E+04   0.0            0.0            0.0                            0.0           -3.918068E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.466795E-02     -3.340693E+04   0.0            0.0            0.0            0.0             0.0           -3.340693E+04         \r\n                   -3.281791E+04   0.0            0.0            0.0                            0.0           -3.281791E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.605595E-02     -1.942769E+04   0.0            0.0            0.0            0.0             0.0           -1.942769E+04         \r\n                   -1.909570E+04   0.0            0.0            0.0                            0.0           -1.909570E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.744395E-02     -1.724396E+03   0.0            0.0            0.0            0.0             0.0           -1.724396E+03         \r\n                   -1.693606E+03   0.0            0.0            0.0                            0.0           -1.693606E+03 -9.9E-01\r\n                                                                                                                                    \r\n  8.883195E-02      1.562917E+04   0.0            0.0            0.0            0.0             1.562917E+04   0.0          -9.9E-01\r\n                    1.536143E+04   0.0            0.0            0.0                            1.536143E+04   0.0                  \r\n                                                                                                                                    \r\n  9.021994E-02      2.898926E+04   0.0            0.0            0.0            0.0             2.898926E+04   0.0          -1.0E+00\r\n                    2.849662E+04   0.0            0.0            0.0                            2.849662E+04   0.0                  \r\n                                                                                                                                    \r\n  9.160794E-02      3.563584E+04   0.0            0.0            0.0            0.0             3.563584E+04   0.0          -1.0E+00\r\n                    3.503611E+04   0.0            0.0            0.0                            3.503611E+04   0.0                  \r\n                                                                                                                                    \r\n  9.299594E-02      3.410974E+04   0.0            0.0            0.0            0.0             3.410974E+04   0.0          -1.0E+00\r\n                    3.352071E+04   0.0            0.0            0.0                            3.352071E+04   0.0                  \r\n                                                                                                                                    \r\n  9.438394E-02      2.445781E+04   0.0            0.0            0.0            0.0             2.445781E+04   0.0          -1.0E+00\r\n                    2.402943E+04   0.0            0.0            0.0                            2.402943E+04   0.0                  \r\n                                                                                                                                    \r\n  9.577194E-02      8.467194E+03   0.0            0.0            0.0            0.0             8.467194E+03   0.0          -9.9E-01\r\n                    8.295842E+03   0.0            0.0            0.0                            8.295842E+03   0.0                  \r\n                                                                                                                                    \r\n  9.715994E-02     -1.045514E+04   0.0            0.0            0.0            0.0             0.0           -1.045514E+04         \r\n                   -1.029450E+04   0.0            0.0            0.0                            0.0           -1.029450E+04 -1.0E+00\r\n                                                                                                                                    \r\n  9.854794E-02     -2.773090E+04   0.0            0.0            0.0            0.0             0.0           -2.773090E+04         \r\n                   -2.725968E+04   0.0            0.0            0.0                            0.0           -2.725968E+04 -1.0E+00\r\n                                                                                                                                    \r\n  9.993593E-02     -3.866128E+04   0.0            0.0            0.0            0.0             0.0           -3.866128E+04         \r\n                   -3.799729E+04   0.0            0.0            0.0                            0.0           -3.799729E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.013239E-01     -3.805886E+04   0.0            0.0            0.0            0.0             0.0           -3.805886E+04         \r\n                   -3.724495E+04   0.0            0.0            0.0                            0.0           -3.724495E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.027119E-01     -2.149262E+04   0.0            0.0            0.0            0.0             0.0           -2.149262E+04         \r\n                   -2.109637E+04   0.0            0.0            0.0                            0.0           -2.109637E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.040999E-01      4.677037E+03   0.0            0.0            0.0            0.0             4.677037E+03   0.0          -9.8E-01\r\n                    4.583329E+03   0.0            0.0            0.0                            4.583329E+03   0.0                  \r\n                                                                                                                                    \r\n  1.054879E-01      2.708163E+04   0.0            0.0            0.0            0.0             2.708163E+04   0.0          -1.0E+00\r\n                    2.655687E+04   0.0            0.0            0.0                            2.655687E+04   0.0                  \r\n                                                                                                                                    \r\n  1.068759E-01      3.516061E+04   0.0            0.0            0.0            0.0             3.516061E+04   0.0          -1.0E+00\r\n                    3.443236E+04   0.0            0.0            0.0                            3.443236E+04   0.0                  \r\n                                                                                                                                    \r\n  1.082639E-01      2.623826E+04   0.0            0.0            0.0            0.0             2.623826E+04   0.0          -1.0E+00\r\n                    2.568137E+04   0.0            0.0            0.0                            2.568137E+04   0.0                  \r\n                                                                                                                                    \r\n  1.096519E-01      5.444272E+03   0.0            0.0            0.0            0.0             5.444272E+03   0.0          -9.8E-01\r\n                    5.347887E+03   0.0            0.0            0.0                            5.347887E+03   0.0                  \r\n                                                                                                                                    \r\n  1.110399E-01     -1.685407E+04   0.0            0.0            0.0            0.0             0.0           -1.685407E+04         \r\n                   -1.650601E+04   0.0            0.0            0.0                            0.0           -1.650601E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.124279E-01     -2.989957E+04   0.0            0.0            0.0            0.0             0.0           -2.989957E+04         \r\n                   -2.929984E+04   0.0            0.0            0.0                            0.0           -2.929984E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.138159E-01     -2.795178E+04   0.0            0.0            0.0            0.0             0.0           -2.795178E+04         \r\n                   -2.737347E+04   0.0            0.0            0.0                            0.0           -2.737347E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.152039E-01     -1.288151E+04   0.0            0.0            0.0            0.0             0.0           -1.288151E+04         \r\n                   -1.260842E+04   0.0            0.0            0.0                            0.0           -1.260842E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.165919E-01      7.412978E+03   0.0            0.0            0.0            0.0             7.412978E+03   0.0          -9.9E-01\r\n                    7.257690E+03   0.0            0.0            0.0                            7.257690E+03   0.0                  \r\n                                                                                                                                    \r\n  1.179799E-01      2.306557E+04   0.0            0.0            0.0            0.0             2.306557E+04   0.0          -1.0E+00\r\n                    2.259436E+04   0.0            0.0            0.0                            2.259436E+04   0.0                  \r\n                                                                                                                                    \r\n  1.193679E-01      2.689422E+04   0.0            0.0            0.0            0.0             2.689422E+04   0.0          -1.0E+00\r\n                    2.634803E+04   0.0            0.0            0.0                            2.634803E+04   0.0                  \r\n                                                                                                                                    \r\n  1.207559E-01      1.773760E+04   0.0            0.0            0.0            0.0             1.773760E+04   0.0          -9.9E-01\r\n                    1.737348E+04   0.0            0.0            0.0                            1.737348E+04   0.0                  \r\n                                                                                                                                    \r\n  1.221439E-01      6.822073E+02   0.0            0.0            0.0            0.0             6.822073E+02   0.0          -8.4E-01\r\n                    6.658084E+02   0.0            0.0            0.0                            6.658084E+02   0.0                  \r\n                                                                                                                                    \r\n  1.235319E-01     -1.571618E+04   0.0            0.0            0.0            0.0             0.0           -1.571618E+04         \r\n                   -1.539490E+04   0.0            0.0            0.0                            0.0           -1.539490E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      26\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.249199E-01     -2.373492E+04   0.0            0.0            0.0            0.0             0.0           -2.373492E+04         \r\n                   -2.325299E+04   0.0            0.0            0.0                            0.0           -2.325299E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.263079E-01     -2.004349E+04   0.0            0.0            0.0            0.0             0.0           -2.004349E+04         \r\n                   -1.964724E+04   0.0            0.0            0.0                            0.0           -1.964724E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.276959E-01     -7.054879E+03   0.0            0.0            0.0            0.0             0.0           -7.054879E+03         \r\n                   -6.910301E+03   0.0            0.0            0.0                            0.0           -6.910301E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.290839E-01      8.549188E+03   0.0            0.0            0.0            0.0             8.549188E+03   0.0          -9.9E-01\r\n                    8.375159E+03   0.0            0.0            0.0                            8.375159E+03   0.0                  \r\n                                                                                                                                    \r\n  1.304719E-01      1.920681E+04   0.0            0.0            0.0            0.0             1.920681E+04   0.0          -9.9E-01\r\n                    1.881056E+04   0.0            0.0            0.0                            1.881056E+04   0.0                  \r\n                                                                                                                                    \r\n  1.318599E-01      2.015058E+04   0.0            0.0            0.0            0.0             2.015058E+04   0.0          -9.9E-01\r\n                    1.973291E+04   0.0            0.0            0.0                            1.973291E+04   0.0                  \r\n                                                                                                                                    \r\n  1.332479E-01      1.148593E+04   0.0            0.0            0.0            0.0             1.148593E+04   0.0          -9.9E-01\r\n                    1.124497E+04   0.0            0.0            0.0                            1.124497E+04   0.0                  \r\n                                                                                                                                    \r\n  1.346359E-01     -2.137715E+03   0.0            0.0            0.0            0.0             0.0           -2.137715E+03         \r\n                   -2.093539E+03   0.0            0.0            0.0                            0.0           -2.093539E+03 -9.9E-01\r\n                                                                                                                                    \r\n  1.360239E-01     -1.397254E+04   0.0            0.0            0.0            0.0             0.0           -1.397254E+04         \r\n                   -1.368874E+04   0.0            0.0            0.0                            0.0           -1.368874E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.374119E-01     -1.851069E+04   0.0            0.0            0.0            0.0             0.0           -1.851069E+04         \r\n                   -1.812515E+04   0.0            0.0            0.0                            0.0           -1.812515E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.387999E-01     -1.400601E+04   0.0            0.0            0.0            0.0             0.0           -1.400601E+04         \r\n                   -1.372221E+04   0.0            0.0            0.0                            0.0           -1.372221E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.401879E-01     -3.116630E+03   0.0            0.0            0.0            0.0             0.0           -3.116630E+03         \r\n                   -3.053712E+03   0.0            0.0            0.0                            0.0           -3.053712E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.415759E-01      8.631183E+03   0.0            0.0            0.0            0.0             8.631183E+03   0.0          -9.9E-01\r\n                    8.454476E+03   0.0            0.0            0.0                            8.454476E+03   0.0                  \r\n                                                                                                                                    \r\n  1.429639E-01      1.561913E+04   0.0            0.0            0.0            0.0             1.561913E+04   0.0          -9.9E-01\r\n                    1.530320E+04   0.0            0.0            0.0                            1.530320E+04   0.0                  \r\n                                                                                                                                    \r\n  1.443519E-01      1.480588E+04   0.0            0.0            0.0            0.0             1.480588E+04   0.0          -9.9E-01\r\n                    1.450066E+04   0.0            0.0            0.0                            1.450066E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.388000E-03     -5.753006E+03   0.0            0.0            0.0            0.0             0.0           -5.753006E+03         \r\n                   -5.710168E+03   0.0            0.0            0.0                            0.0           -5.710168E+03 -1.0E+00\r\n                                                                                                                                    \r\n  2.776000E-03     -1.080320E+04   0.0            0.0            0.0            0.0             0.0           -1.080320E+04         \r\n                   -1.058901E+04   0.0            0.0            0.0                            0.0           -1.058901E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.164000E-03     -9.879508E+03   0.0            0.0            0.0            0.0             0.0           -9.879508E+03         \r\n                   -9.536805E+03   0.0            0.0            0.0                            0.0           -9.536805E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.552000E-03     -7.161974E+03   0.0            0.0            0.0            0.0             0.0           -7.161974E+03         \r\n                   -6.819271E+03   0.0            0.0            0.0                            0.0           -6.819271E+03 -1.0E+00\r\n                                                                                                                                    \r\n  6.940000E-03      5.722886E+02   0.0            0.0            0.0            0.0             5.722886E+02   0.0          -8.4E-01\r\n                    7.008024E+02   0.0            0.0            0.0                            7.008024E+02   0.0                  \r\n                                                                                                                                    \r\n  8.328000E-03      1.441766E+04   0.0            0.0            0.0            0.0             1.441766E+04   0.0          -9.9E-01\r\n                    1.411779E+04   0.0            0.0            0.0                            1.411779E+04   0.0                  \r\n                                                                                                                                    \r\n  9.716000E-03      2.562246E+04   0.0            0.0            0.0            0.0             2.562246E+04   0.0          -1.0E+00\r\n                    2.502273E+04   0.0            0.0            0.0                            2.502273E+04   0.0                  \r\n                                                                                                                                    \r\n  1.110400E-02      2.725566E+04   0.0            0.0            0.0            0.0             2.725566E+04   0.0          -1.0E+00\r\n                    2.648458E+04   0.0            0.0            0.0                            2.648458E+04   0.0                  \r\n                                                                                                                                    \r\n  1.249200E-02      1.914322E+04   0.0            0.0            0.0            0.0             1.914322E+04   0.0          -9.9E-01\r\n                    1.850065E+04   0.0            0.0            0.0                            1.850065E+04   0.0                  \r\n                                                                                                                                    \r\n  1.388000E-02      2.891563E+03   0.0            0.0            0.0            0.0             2.891563E+03   0.0          -9.6E-01\r\n                    2.709502E+03   0.0            0.0            0.0                            2.709502E+03   0.0                  \r\n                                                                                                                                    \r\n  1.526800E-02     -1.716196E+04   0.0            0.0            0.0            0.0             0.0           -1.716196E+04         \r\n                   -1.677642E+04   0.0            0.0            0.0                            0.0           -1.677642E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.665600E-02     -3.261041E+04   0.0            0.0            0.0            0.0             0.0           -3.261041E+04         \r\n                   -3.175365E+04   0.0            0.0            0.0                            0.0           -3.175365E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.804400E-02     -3.651938E+04   0.0            0.0            0.0            0.0             0.0           -3.651938E+04         \r\n                   -3.557694E+04   0.0            0.0            0.0                            0.0           -3.557694E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.943200E-02     -2.757695E+04   0.0            0.0            0.0            0.0             0.0           -2.757695E+04         \r\n                   -2.680587E+04   0.0            0.0            0.0                            0.0           -2.680587E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.082000E-02     -8.835333E+03   0.0            0.0            0.0            0.0             0.0           -8.835333E+03         \r\n                   -8.556886E+03   0.0            0.0            0.0                            0.0           -8.556886E+03 -1.0E+00\r\n                                                                                                                                    \r\n  2.220800E-02      1.323961E+04   0.0            0.0            0.0            0.0             1.323961E+04   0.0          -9.9E-01\r\n                    1.289691E+04   0.0            0.0            0.0                            1.289691E+04   0.0                  \r\n                                                                                                                                    \r\n  2.359600E-02      3.057561E+04   0.0            0.0            0.0            0.0             3.057561E+04   0.0          -1.0E+00\r\n                    2.980453E+04   0.0            0.0            0.0                            2.980453E+04   0.0                  \r\n                                                                                                                                    \r\n  2.498400E-02      3.689421E+04   0.0            0.0            0.0            0.0             3.689421E+04   0.0          -1.0E+00\r\n                    3.586610E+04   0.0            0.0            0.0                            3.586610E+04   0.0                  \r\n                                                                                                                                    \r\n  2.637200E-02      3.052206E+04   0.0            0.0            0.0            0.0             3.052206E+04   0.0          -1.0E+00\r\n                    2.975098E+04   0.0            0.0            0.0                            2.975098E+04   0.0                  \r\n                                                                                                                                    \r\n  2.776000E-02      1.477910E+04   0.0            0.0            0.0            0.0             1.477910E+04   0.0          -9.9E-01\r\n                    1.439356E+04   0.0            0.0            0.0                            1.439356E+04   0.0                  \r\n                                                                                                                                    \r\n  2.914800E-02     -4.578309E+03   0.0            0.0            0.0            0.0             0.0           -4.578309E+03         \r\n                   -4.428376E+03   0.0            0.0            0.0                            0.0           -4.428376E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.053601E-02     -2.077642E+04   0.0            0.0            0.0            0.0             0.0           -2.077642E+04         \r\n                   -2.017669E+04   0.0            0.0            0.0                            0.0           -2.017669E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.192401E-02     -2.880854E+04   0.0            0.0            0.0            0.0             0.0           -2.880854E+04         \r\n                   -2.803746E+04   0.0            0.0            0.0                            0.0           -2.803746E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.331200E-02     -2.728244E+04   0.0            0.0            0.0            0.0             0.0           -2.728244E+04         \r\n                   -2.659703E+04   0.0            0.0            0.0                            0.0           -2.659703E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.470000E-02     -1.823291E+04   0.0            0.0            0.0            0.0             0.0           -1.823291E+04         \r\n                   -1.784737E+04   0.0            0.0            0.0                            0.0           -1.784737E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.608800E-02     -5.575630E+03   0.0            0.0            0.0            0.0             0.0           -5.575630E+03         \r\n                   -5.489955E+03   0.0            0.0            0.0                            0.0           -5.489955E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.747600E-02      6.412310E+03   0.0            0.0            0.0            0.0             6.412310E+03   0.0          -9.8E-01\r\n                    6.198120E+03   0.0            0.0            0.0                            6.198120E+03   0.0                  \r\n                                                                                                                                    \r\n  3.886400E-02      1.472555E+04   0.0            0.0            0.0            0.0             1.472555E+04   0.0          -9.9E-01\r\n                    1.429717E+04   0.0            0.0            0.0                            1.429717E+04   0.0                  \r\n                                                                                                                                    \r\n  4.025200E-02      1.823291E+04   0.0            0.0            0.0            0.0             1.823291E+04   0.0          -9.9E-01\r\n                    1.780453E+04   0.0            0.0            0.0                            1.780453E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  4.163999E-02      1.745647E+04   0.0            0.0            0.0            0.0             1.745647E+04   0.0          -9.9E-01\r\n                    1.711377E+04   0.0            0.0            0.0                            1.711377E+04   0.0                  \r\n                                                                                                                                    \r\n  4.302799E-02      1.373493E+04   0.0            0.0            0.0            0.0             1.373493E+04   0.0          -9.9E-01\r\n                    1.347790E+04   0.0            0.0            0.0                            1.347790E+04   0.0                  \r\n                                                                                                                                    \r\n  4.441599E-02      8.246311E+03   0.0            0.0            0.0            0.0             8.246311E+03   0.0          -9.9E-01\r\n                    8.074958E+03   0.0            0.0            0.0                            8.074958E+03   0.0                  \r\n                                                                                                                                    \r\n  4.580399E-02      1.767066E+03   0.0            0.0            0.0            0.0             1.767066E+03   0.0          -9.4E-01\r\n                    1.708164E+03   0.0            0.0            0.0                            1.708164E+03   0.0                  \r\n                                                                                                                                    \r\n  4.719199E-02     -5.214185E+03   0.0            0.0            0.0            0.0             0.0           -5.214185E+03         \r\n                   -5.149928E+03   0.0            0.0            0.0                            0.0           -5.149928E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.857999E-02     -1.198125E+04   0.0            0.0            0.0            0.0             0.0           -1.198125E+04         \r\n                   -1.174564E+04   0.0            0.0            0.0                            0.0           -1.174564E+04 -1.0E+00\r\n                                                                                                                                    \r\n  4.996799E-02     -1.724229E+04   0.0            0.0            0.0            0.0             0.0           -1.724229E+04         \r\n                   -1.689958E+04   0.0            0.0            0.0                            0.0           -1.689958E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.135598E-02     -1.930386E+04   0.0            0.0            0.0            0.0             0.0           -1.930386E+04         \r\n                   -1.887548E+04   0.0            0.0            0.0                            0.0           -1.887548E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.274398E-02     -1.662649E+04   0.0            0.0            0.0            0.0             0.0           -1.662649E+04         \r\n                   -1.619811E+04   0.0            0.0            0.0                            0.0           -1.619811E+04 -1.0E+00\r\n                                                                                                                                    \r\n  5.413198E-02     -8.848720E+03   0.0            0.0            0.0            0.0             0.0           -8.848720E+03         \r\n                   -8.570272E+03   0.0            0.0            0.0                            0.0           -8.570272E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.551998E-02      2.705821E+03   0.0            0.0            0.0            0.0             2.705821E+03   0.0          -9.6E-01\r\n                    2.713853E+03   0.0            0.0            0.0                            2.713853E+03   0.0                  \r\n                                                                                                                                    \r\n  5.690798E-02      1.496652E+04   0.0            0.0            0.0            0.0             1.496652E+04   0.0          -9.9E-01\r\n                    1.466665E+04   0.0            0.0            0.0                            1.466665E+04   0.0                  \r\n                                                                                                                                    \r\n  5.829598E-02      2.401604E+04   0.0            0.0            0.0            0.0             2.401604E+04   0.0          -1.0E+00\r\n                    2.341631E+04   0.0            0.0            0.0                            2.341631E+04   0.0                  \r\n                                                                                                                                    \r\n  5.968397E-02      2.642568E+04   0.0            0.0            0.0            0.0             2.642568E+04   0.0          -1.0E+00\r\n                    2.574027E+04   0.0            0.0            0.0                            2.574027E+04   0.0                  \r\n                                                                                                                                    \r\n  6.107197E-02      2.072287E+04   0.0            0.0            0.0            0.0             2.072287E+04   0.0          -9.9E-01\r\n                    2.012314E+04   0.0            0.0            0.0                            2.012314E+04   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  6.245997E-02      8.139215E+03   0.0            0.0            0.0            0.0             8.139215E+03   0.0          -9.9E-01\r\n                    7.882188E+03   0.0            0.0            0.0                            7.882188E+03   0.0                  \r\n                                                                                                                                    \r\n  6.384797E-02     -7.597047E+03   0.0            0.0            0.0            0.0             0.0           -7.597047E+03         \r\n                   -7.447114E+03   0.0            0.0            0.0                            0.0           -7.447114E+03 -1.0E+00\r\n                                                                                                                                    \r\n  6.523597E-02     -2.147254E+04   0.0            0.0            0.0            0.0             0.0           -2.147254E+04         \r\n                   -2.095848E+04   0.0            0.0            0.0                            0.0           -2.095848E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.662397E-02     -2.894241E+04   0.0            0.0            0.0            0.0             0.0           -2.894241E+04         \r\n                   -2.817133E+04   0.0            0.0            0.0                            0.0           -2.817133E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.801197E-02     -2.749662E+04   0.0            0.0            0.0            0.0             0.0           -2.749662E+04         \r\n                   -2.681122E+04   0.0            0.0            0.0                            0.0           -2.681122E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.939997E-02     -1.769744E+04   0.0            0.0            0.0            0.0             0.0           -1.769744E+04         \r\n                   -1.722622E+04   0.0            0.0            0.0                            0.0           -1.722622E+04 -1.0E+00\r\n                                                                                                                                    \r\n  7.078797E-02     -2.680720E+03   0.0            0.0            0.0            0.0             0.0           -2.680720E+03         \r\n                   -2.595044E+03   0.0            0.0            0.0                            0.0           -2.595044E+03 -1.0E+00\r\n                                                                                                                                    \r\n  7.217596E-02      1.275768E+04   0.0            0.0            0.0            0.0             1.275768E+04   0.0          -9.9E-01\r\n                    1.241498E+04   0.0            0.0            0.0                            1.241498E+04   0.0                  \r\n                                                                                                                                    \r\n  7.356396E-02      2.390895E+04   0.0            0.0            0.0            0.0             2.390895E+04   0.0          -1.0E+00\r\n                    2.330921E+04   0.0            0.0            0.0                            2.330921E+04   0.0                  \r\n                                                                                                                                    \r\n  7.495196E-02      2.763049E+04   0.0            0.0            0.0            0.0             2.763049E+04   0.0          -1.0E+00\r\n                    2.685941E+04   0.0            0.0            0.0                            2.685941E+04   0.0                  \r\n                                                                                                                                    \r\n  7.633996E-02      2.331992E+04   0.0            0.0            0.0            0.0             2.331992E+04   0.0          -1.0E+00\r\n                    2.276303E+04   0.0            0.0            0.0                            2.276303E+04   0.0                  \r\n                                                                                                                                    \r\n  7.772796E-02      1.275768E+04   0.0            0.0            0.0            0.0             1.275768E+04   0.0          -9.9E-01\r\n                    1.245782E+04   0.0            0.0            0.0                            1.245782E+04   0.0                  \r\n                                                                                                                                    \r\n  7.911596E-02     -6.040825E+02   0.0            0.0            0.0            0.0             0.0           -6.040825E+02         \r\n                   -5.799860E+02   0.0            0.0            0.0                            0.0           -5.799860E+02 -9.8E-01\r\n                                                                                                                                    \r\n  8.050396E-02     -1.290494E+04   0.0            0.0            0.0            0.0             0.0           -1.290494E+04         \r\n                   -1.256224E+04   0.0            0.0            0.0                            0.0           -1.256224E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.189195E-02     -2.099061E+04   0.0            0.0            0.0            0.0             0.0           -2.099061E+04         \r\n                   -2.047655E+04   0.0            0.0            0.0                            0.0           -2.047655E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  8.327995E-02     -2.321283E+04   0.0            0.0            0.0            0.0             0.0           -2.321283E+04         \r\n                   -2.265594E+04   0.0            0.0            0.0                            0.0           -2.265594E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.466795E-02     -1.957160E+04   0.0            0.0            0.0            0.0             0.0           -1.957160E+04         \r\n                   -1.914322E+04   0.0            0.0            0.0                            0.0           -1.914322E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.605595E-02     -1.143238E+04   0.0            0.0            0.0            0.0             0.0           -1.143238E+04         \r\n                   -1.115394E+04   0.0            0.0            0.0                            0.0           -1.115394E+04 -1.0E+00\r\n                                                                                                                                    \r\n  8.744395E-02     -9.772413E+02   0.0            0.0            0.0            0.0             0.0           -9.772413E+02         \r\n                   -9.504676E+02   0.0            0.0            0.0                            0.0           -9.504676E+02 -9.9E-01\r\n                                                                                                                                    \r\n  8.883195E-02      9.317261E+03   0.0            0.0            0.0            0.0             9.317261E+03   0.0          -9.9E-01\r\n                    9.103070E+03   0.0            0.0            0.0                            9.103070E+03   0.0                  \r\n                                                                                                                                    \r\n  9.021994E-02      1.724229E+04   0.0            0.0            0.0            0.0             1.724229E+04   0.0          -9.9E-01\r\n                    1.681391E+04   0.0            0.0            0.0                            1.681391E+04   0.0                  \r\n                                                                                                                                    \r\n  9.160794E-02      2.107093E+04   0.0            0.0            0.0            0.0             2.107093E+04   0.0          -9.9E-01\r\n                    2.059971E+04   0.0            0.0            0.0                            2.059971E+04   0.0                  \r\n                                                                                                                                    \r\n  9.299594E-02      1.994643E+04   0.0            0.0            0.0            0.0             1.994643E+04   0.0          -9.9E-01\r\n                    1.951805E+04   0.0            0.0            0.0                            1.951805E+04   0.0                  \r\n                                                                                                                                    \r\n  9.438394E-02      1.401605E+04   0.0            0.0            0.0            0.0             1.401605E+04   0.0          -9.9E-01\r\n                    1.367335E+04   0.0            0.0            0.0                            1.367335E+04   0.0                  \r\n                                                                                                                                    \r\n  9.577194E-02      4.451133E+03   0.0            0.0            0.0            0.0             4.451133E+03   0.0          -9.8E-01\r\n                    4.311910E+03   0.0            0.0            0.0                            4.311910E+03   0.0                  \r\n                                                                                                                                    \r\n  9.715994E-02     -6.653273E+03   0.0            0.0            0.0            0.0             0.0           -6.653273E+03         \r\n                   -6.524759E+03   0.0            0.0            0.0                            0.0           -6.524759E+03 -1.0E+00\r\n                                                                                                                                    \r\n  9.854794E-02     -1.657294E+04   0.0            0.0            0.0            0.0             0.0           -1.657294E+04         \r\n                   -1.618740E+04   0.0            0.0            0.0                            0.0           -1.618740E+04 -1.0E+00\r\n                                                                                                                                    \r\n  9.993593E-02     -2.259703E+04   0.0            0.0            0.0            0.0             0.0           -2.259703E+04         \r\n                   -2.204014E+04   0.0            0.0            0.0                            0.0           -2.204014E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.013239E-01     -1.911645E+04   0.0            0.0            0.0            0.0             0.0           -1.911645E+04         \r\n                   -1.847388E+04   0.0            0.0            0.0                            0.0           -1.847388E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.027119E-01     -1.191431E+04   0.0            0.0            0.0            0.0             0.0           -1.191431E+04         \r\n                   -1.152877E+04   0.0            0.0            0.0                            0.0           -1.152877E+04 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.040999E-01      2.436410E+03   0.0            0.0            0.0            0.0             2.436410E+03   0.0          -9.5E-01\r\n                    2.356089E+03   0.0            0.0            0.0                            2.356089E+03   0.0                  \r\n                                                                                                                                    \r\n  1.054879E-01      1.445782E+04   0.0            0.0            0.0            0.0             1.445782E+04   0.0          -9.9E-01\r\n                    1.402944E+04   0.0            0.0            0.0                            1.402944E+04   0.0                  \r\n                                                                                                                                    \r\n  1.068759E-01      1.785808E+04   0.0            0.0            0.0            0.0             1.785808E+04   0.0          -9.9E-01\r\n                    1.730119E+04   0.0            0.0            0.0                            1.730119E+04   0.0                  \r\n                                                                                                                                    \r\n  1.082639E-01      1.325300E+04   0.0            0.0            0.0            0.0             1.325300E+04   0.0          -9.9E-01\r\n                    1.282462E+04   0.0            0.0            0.0                            1.282462E+04   0.0                  \r\n                                                                                                                                    \r\n  1.096519E-01      3.042166E+03   0.0            0.0            0.0            0.0             3.042166E+03   0.0          -9.6E-01\r\n                    2.945781E+03   0.0            0.0            0.0                            2.945781E+03   0.0                  \r\n                                                                                                                                    \r\n  1.110399E-01     -8.607756E+03   0.0            0.0            0.0            0.0             0.0           -8.607756E+03         \r\n                   -8.329309E+03   0.0            0.0            0.0                            0.0           -8.329309E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.124279E-01     -1.555554E+04   0.0            0.0            0.0            0.0             0.0           -1.555554E+04         \r\n                   -1.508432E+04   0.0            0.0            0.0                            0.0           -1.508432E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.138159E-01     -1.435072E+04   0.0            0.0            0.0            0.0             0.0           -1.435072E+04         \r\n                   -1.387950E+04   0.0            0.0            0.0                            0.0           -1.387950E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.152039E-01     -6.532791E+03   0.0            0.0            0.0            0.0             0.0           -6.532791E+03         \r\n                   -6.318602E+03   0.0            0.0            0.0                            0.0           -6.318602E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.165919E-01      3.755017E+03   0.0            0.0            0.0            0.0             3.755017E+03   0.0          -9.7E-01\r\n                    3.626503E+03   0.0            0.0            0.0                            3.626503E+03   0.0                  \r\n                                                                                                                                    \r\n  1.179799E-01      1.182060E+04   0.0            0.0            0.0            0.0             1.182060E+04   0.0          -9.9E-01\r\n                    1.143506E+04   0.0            0.0            0.0                            1.143506E+04   0.0                  \r\n                                                                                                                                    \r\n  1.193679E-01      1.389557E+04   0.0            0.0            0.0            0.0             1.389557E+04   0.0          -9.9E-01\r\n                    1.346719E+04   0.0            0.0            0.0                            1.346719E+04   0.0                  \r\n                                                                                                                                    \r\n  1.207559E-01      9.143230E+03   0.0            0.0            0.0            0.0             9.143230E+03   0.0          -9.9E-01\r\n                    8.843365E+03   0.0            0.0            0.0                            8.843365E+03   0.0                  \r\n                                                                                                                                    \r\n  1.221439E-01      3.133364E+02   0.0            0.0            0.0            0.0             3.133364E+02   0.0          -6.5E-01\r\n                    3.026269E+02   0.0            0.0            0.0                            3.026269E+02   0.0                  \r\n                                                                                                                                    \r\n  1.235319E-01     -8.072281E+03   0.0            0.0            0.0            0.0             0.0           -8.072281E+03         \r\n                   -7.836673E+03   0.0            0.0            0.0                            0.0           -7.836673E+03 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      51\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.249199E-01     -1.219544E+04   0.0            0.0            0.0            0.0             0.0           -1.219544E+04         \r\n                   -1.180989E+04   0.0            0.0            0.0                            0.0           -1.180989E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.263079E-01     -1.033466E+04   0.0            0.0            0.0            0.0             0.0           -1.033466E+04         \r\n                   -9.991958E+03   0.0            0.0            0.0                            0.0           -9.991958E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.276959E-01     -3.634535E+03   0.0            0.0            0.0            0.0             0.0           -3.634535E+03         \r\n                   -3.516730E+03   0.0            0.0            0.0                            0.0           -3.516730E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.290839E-01      4.410973E+03   0.0            0.0            0.0            0.0             4.410973E+03   0.0          -9.7E-01\r\n                    4.271750E+03   0.0            0.0            0.0                            4.271750E+03   0.0                  \r\n                                                                                                                                    \r\n  1.304719E-01      9.879508E+03   0.0            0.0            0.0            0.0             9.879508E+03   0.0          -9.9E-01\r\n                    9.558224E+03   0.0            0.0            0.0                            9.558224E+03   0.0                  \r\n                                                                                                                                    \r\n  1.318599E-01      1.036144E+04   0.0            0.0            0.0            0.0             1.036144E+04   0.0          -9.9E-01\r\n                    1.001873E+04   0.0            0.0            0.0                            1.001873E+04   0.0                  \r\n                                                                                                                                    \r\n  1.332479E-01      5.910302E+03   0.0            0.0            0.0            0.0             5.910302E+03   0.0          -9.8E-01\r\n                    5.717531E+03   0.0            0.0            0.0                            5.717531E+03   0.0                  \r\n                                                                                                                                    \r\n  1.346359E-01     -1.094376E+03   0.0            0.0            0.0            0.0             0.0           -1.094376E+03         \r\n                   -1.056893E+03   0.0            0.0            0.0                            0.0           -1.056893E+03 -9.9E-01\r\n                                                                                                                                    \r\n  1.360239E-01     -7.188748E+03   0.0            0.0            0.0            0.0             0.0           -7.188748E+03         \r\n                   -6.953140E+03   0.0            0.0            0.0                            0.0           -6.953140E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.374119E-01     -9.518063E+03   0.0            0.0            0.0            0.0             0.0           -9.518063E+03         \r\n                   -9.218198E+03   0.0            0.0            0.0                            0.0           -9.218198E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.387999E-01     -7.202135E+03   0.0            0.0            0.0            0.0             0.0           -7.202135E+03         \r\n                   -6.966526E+03   0.0            0.0            0.0                            0.0           -6.966526E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.401879E-01     -1.603077E+03   0.0            0.0            0.0            0.0             0.0           -1.603077E+03         \r\n                   -1.549530E+03   0.0            0.0            0.0                            0.0           -1.549530E+03 -9.9E-01\r\n                                                                                                                                    \r\n  1.415759E-01      4.437747E+03   0.0            0.0            0.0            0.0             4.437747E+03   0.0          -9.7E-01\r\n                    4.298523E+03   0.0            0.0            0.0                            4.298523E+03   0.0                  \r\n                                                                                                                                    \r\n  1.429639E-01      8.045508E+03   0.0            0.0            0.0            0.0             8.045508E+03   0.0          -9.9E-01\r\n                    7.788480E+03   0.0            0.0            0.0                            7.788480E+03   0.0                  \r\n                                                                                                                                    \r\n  1.443519E-01      7.617127E+03   0.0            0.0            0.0            0.0             7.617127E+03   0.0          -9.9E-01\r\n                    7.381519E+03   0.0            0.0            0.0                            7.381519E+03   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.388000E-03     -3.808564E+03   0.0            0.0            0.0            0.0             0.0           -3.808564E+03         \r\n                   -3.647921E+03   0.0            0.0            0.0                            0.0           -3.647921E+03 -1.0E+00\r\n                                                                                                                                    \r\n  2.776000E-03     -5.060236E+03   0.0            0.0            0.0            0.0             0.0           -5.060236E+03         \r\n                   -4.803208E+03   0.0            0.0            0.0                            0.0           -4.803208E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.164000E-03     -2.543505E+03   0.0            0.0            0.0            0.0             0.0           -2.543505E+03         \r\n                   -2.286477E+03   0.0            0.0            0.0                            0.0           -2.286477E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.552000E-03     -4.551535E+02   0.0            0.0            0.0            0.0             0.0           -4.551535E+02         \r\n                   -3.266397E+02   0.0            0.0            0.0                            0.0           -3.266397E+02 -9.8E-01\r\n                                                                                                                                    \r\n  6.940000E-03      2.508365E+03   0.0            0.0            0.0            0.0             2.508365E+03   0.0          -9.6E-01\r\n                    2.465526E+03   0.0            0.0            0.0                            2.465526E+03   0.0                  \r\n                                                                                                                                    \r\n  8.328000E-03      7.523419E+03   0.0            0.0            0.0            0.0             7.523419E+03   0.0          -9.9E-01\r\n                    7.095040E+03   0.0            0.0            0.0                            7.095040E+03   0.0                  \r\n                                                                                                                                    \r\n  9.716000E-03      1.081659E+04   0.0            0.0            0.0            0.0             1.081659E+04   0.0          -9.9E-01\r\n                    1.013118E+04   0.0            0.0            0.0                            1.013118E+04   0.0                  \r\n                                                                                                                                    \r\n  1.110400E-02      1.001338E+04   0.0            0.0            0.0            0.0             1.001338E+04   0.0          -9.9E-01\r\n                    9.327970E+03   0.0            0.0            0.0                            9.327970E+03   0.0                  \r\n                                                                                                                                    \r\n  1.249200E-02      5.890222E+03   0.0            0.0            0.0            0.0             5.890222E+03   0.0          -9.8E-01\r\n                    5.461842E+03   0.0            0.0            0.0                            5.461842E+03   0.0                  \r\n                                                                                                                                    \r\n  1.388000E-02     -4.819272E+02   0.0            0.0            0.0            0.0             0.0           -4.819272E+02         \r\n                   -5.461841E+02   0.0            0.0            0.0                            0.0           -5.461841E+02 -9.8E-01\r\n                                                                                                                                    \r\n  1.526800E-02     -7.925025E+03   0.0            0.0            0.0            0.0             0.0           -7.925025E+03         \r\n                   -7.496646E+03   0.0            0.0            0.0                            0.0           -7.496646E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.665600E-02     -1.327977E+04   0.0            0.0            0.0            0.0             0.0           -1.327977E+04         \r\n                   -1.242301E+04   0.0            0.0            0.0                            0.0           -1.242301E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.804400E-02     -1.402944E+04   0.0            0.0            0.0            0.0             0.0           -1.402944E+04         \r\n                   -1.317268E+04   0.0            0.0            0.0                            0.0           -1.317268E+04 -1.0E+00\r\n                                                                                                                                    \r\n  1.943200E-02     -1.001338E+04   0.0            0.0            0.0            0.0             0.0           -1.001338E+04         \r\n                   -9.499322E+03   0.0            0.0            0.0                            0.0           -9.499322E+03 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.082000E-02     -2.811242E+03   0.0            0.0            0.0            0.0             0.0           -2.811242E+03         \r\n                   -2.597052E+03   0.0            0.0            0.0                            0.0           -2.597052E+03 -1.0E+00\r\n                                                                                                                                    \r\n  2.220800E-02      5.568937E+03   0.0            0.0            0.0            0.0             5.568937E+03   0.0          -9.8E-01\r\n                    5.311909E+03   0.0            0.0            0.0                            5.311909E+03   0.0                  \r\n                                                                                                                                    \r\n  2.359600E-02      1.220882E+04   0.0            0.0            0.0            0.0             1.220882E+04   0.0          -9.9E-01\r\n                    1.135206E+04   0.0            0.0            0.0                            1.135206E+04   0.0                  \r\n                                                                                                                                    \r\n  2.498400E-02      1.435072E+04   0.0            0.0            0.0            0.0             1.435072E+04   0.0          -9.9E-01\r\n                    1.366531E+04   0.0            0.0            0.0                            1.366531E+04   0.0                  \r\n                                                                                                                                    \r\n  2.637200E-02      1.210173E+04   0.0            0.0            0.0            0.0             1.210173E+04   0.0          -9.9E-01\r\n                    1.158767E+04   0.0            0.0            0.0                            1.158767E+04   0.0                  \r\n                                                                                                                                    \r\n  2.776000E-02      6.131185E+03   0.0            0.0            0.0            0.0             6.131185E+03   0.0          -9.8E-01\r\n                    5.788482E+03   0.0            0.0            0.0                            5.788482E+03   0.0                  \r\n                                                                                                                                    \r\n  2.914800E-02     -1.378847E+03   0.0            0.0            0.0            0.0             0.0           -1.378847E+03         \r\n                   -1.293172E+03   0.0            0.0            0.0                            0.0           -1.293172E+03 -9.9E-01\r\n                                                                                                                                    \r\n  3.053601E-02     -7.978573E+03   0.0            0.0            0.0            0.0             0.0           -7.978573E+03         \r\n                   -7.550193E+03   0.0            0.0            0.0                            0.0           -7.550193E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.192401E-02     -1.161980E+04   0.0            0.0            0.0            0.0             0.0           -1.161980E+04         \r\n                   -1.093439E+04   0.0            0.0            0.0                            0.0           -1.093439E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.331200E-02     -1.156625E+04   0.0            0.0            0.0            0.0             0.0           -1.156625E+04         \r\n                   -1.088085E+04   0.0            0.0            0.0                            0.0           -1.088085E+04 -1.0E+00\r\n                                                                                                                                    \r\n  3.470000E-02     -8.299858E+03   0.0            0.0            0.0            0.0             0.0           -8.299858E+03         \r\n                   -7.871478E+03   0.0            0.0            0.0                            0.0           -7.871478E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.608800E-02     -3.279783E+03   0.0            0.0            0.0            0.0             0.0           -3.279783E+03         \r\n                   -3.151269E+03   0.0            0.0            0.0                            0.0           -3.151269E+03 -1.0E+00\r\n                                                                                                                                    \r\n  3.747600E-02      1.967870E+03   0.0            0.0            0.0            0.0             1.967870E+03   0.0          -9.4E-01\r\n                    1.796518E+03   0.0            0.0            0.0                            1.796518E+03   0.0                  \r\n                                                                                                                                    \r\n  3.886400E-02      6.077638E+03   0.0            0.0            0.0            0.0             6.077638E+03   0.0          -9.8E-01\r\n                    5.734935E+03   0.0            0.0            0.0                            5.734935E+03   0.0                  \r\n                                                                                                                                    \r\n  4.025200E-02      8.246311E+03   0.0            0.0            0.0            0.0             8.246311E+03   0.0          -9.9E-01\r\n                    7.903607E+03   0.0            0.0            0.0                            7.903607E+03   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  4.163999E-02      8.460500E+03   0.0            0.0            0.0            0.0             8.460500E+03   0.0          -9.9E-01\r\n                    8.032121E+03   0.0            0.0            0.0                            8.032121E+03   0.0                  \r\n                                                                                                                                    \r\n  4.302799E-02      6.934397E+03   0.0            0.0            0.0            0.0             6.934397E+03   0.0          -9.8E-01\r\n                    6.591694E+03   0.0            0.0            0.0                            6.591694E+03   0.0                  \r\n                                                                                                                                    \r\n  4.441599E-02      4.123155E+03   0.0            0.0            0.0            0.0             4.123155E+03   0.0          -9.7E-01\r\n                    3.866127E+03   0.0            0.0            0.0                            3.866127E+03   0.0                  \r\n                                                                                                                                    \r\n  4.580399E-02      5.923689E+02   0.0            0.0            0.0            0.0             5.923689E+02   0.0          -8.1E-01\r\n                    5.495309E+02   0.0            0.0            0.0                            5.495309E+02   0.0                  \r\n                                                                                                                                    \r\n  4.719199E-02     -3.078979E+03   0.0            0.0            0.0            0.0             0.0           -3.078979E+03         \r\n                   -2.971885E+03   0.0            0.0            0.0                            0.0           -2.971885E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.857999E-02     -6.318602E+03   0.0            0.0            0.0            0.0             0.0           -6.318602E+03         \r\n                   -6.018736E+03   0.0            0.0            0.0                            0.0           -6.018736E+03 -1.0E+00\r\n                                                                                                                                    \r\n  4.996799E-02     -8.353405E+03   0.0            0.0            0.0            0.0             0.0           -8.353405E+03         \r\n                   -7.925025E+03   0.0            0.0            0.0                            0.0           -7.925025E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.135598E-02     -8.674690E+03   0.0            0.0            0.0            0.0             0.0           -8.674690E+03         \r\n                   -8.160635E+03   0.0            0.0            0.0                            0.0           -8.160635E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.274398E-02     -6.693434E+03   0.0            0.0            0.0            0.0             0.0           -6.693434E+03         \r\n                   -6.350730E+03   0.0            0.0            0.0                            0.0           -6.350730E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.413198E-02     -2.811242E+03   0.0            0.0            0.0            0.0             0.0           -2.811242E+03         \r\n                   -2.639890E+03   0.0            0.0            0.0                            0.0           -2.639890E+03 -1.0E+00\r\n                                                                                                                                    \r\n  5.551998E-02      2.305888E+03   0.0            0.0            0.0            0.0             2.305888E+03   0.0          -9.5E-01\r\n                    2.220212E+03   0.0            0.0            0.0                            2.220212E+03   0.0                  \r\n                                                                                                                                    \r\n  5.690798E-02      7.255682E+03   0.0            0.0            0.0            0.0             7.255682E+03   0.0          -9.8E-01\r\n                    6.912979E+03   0.0            0.0            0.0                            6.912979E+03   0.0                  \r\n                                                                                                                                    \r\n  5.829598E-02      1.049530E+04   0.0            0.0            0.0            0.0             1.049530E+04   0.0          -9.9E-01\r\n                    9.895573E+03   0.0            0.0            0.0                            9.895573E+03   0.0                  \r\n                                                                                                                                    \r\n  5.968397E-02      1.081659E+04   0.0            0.0            0.0            0.0             1.081659E+04   0.0          -9.9E-01\r\n                    1.030253E+04   0.0            0.0            0.0                            1.030253E+04   0.0                  \r\n                                                                                                                                    \r\n  6.107197E-02      7.978573E+03   0.0            0.0            0.0            0.0             7.978573E+03   0.0          -9.9E-01\r\n                    7.635870E+03   0.0            0.0            0.0                            7.635870E+03   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  6.245997E-02      2.597052E+03   0.0            0.0            0.0            0.0             2.597052E+03   0.0          -9.6E-01\r\n                    2.425701E+03   0.0            0.0            0.0                            2.425701E+03   0.0                  \r\n                                                                                                                                    \r\n  6.384797E-02     -3.828644E+03   0.0            0.0            0.0            0.0             0.0           -3.828644E+03         \r\n                   -3.657292E+03   0.0            0.0            0.0                            0.0           -3.657292E+03 -1.0E+00\r\n                                                                                                                                    \r\n  6.523597E-02     -9.263712E+03   0.0            0.0            0.0            0.0             0.0           -9.263712E+03         \r\n                   -8.749657E+03   0.0            0.0            0.0                            0.0           -8.749657E+03 -1.0E+00\r\n                                                                                                                                    \r\n  6.662397E-02     -1.204818E+04   0.0            0.0            0.0            0.0             0.0           -1.204818E+04         \r\n                   -1.136277E+04   0.0            0.0            0.0                            0.0           -1.136277E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.801197E-02     -1.119142E+04   0.0            0.0            0.0            0.0             0.0           -1.119142E+04         \r\n                   -1.050601E+04   0.0            0.0            0.0                            0.0           -1.050601E+04 -1.0E+00\r\n                                                                                                                                    \r\n  6.939997E-02     -7.121813E+03   0.0            0.0            0.0            0.0             0.0           -7.121813E+03         \r\n                   -6.693435E+03   0.0            0.0            0.0                            0.0           -6.693435E+03 -1.0E+00\r\n                                                                                                                                    \r\n  7.078797E-02     -8.969201E+02   0.0            0.0            0.0            0.0             0.0           -8.969201E+02         \r\n                   -8.433727E+02   0.0            0.0            0.0                            0.0           -8.433727E+02 -9.9E-01\r\n                                                                                                                                    \r\n  7.217596E-02      5.408295E+03   0.0            0.0            0.0            0.0             5.408295E+03   0.0          -9.8E-01\r\n                    5.151267E+03   0.0            0.0            0.0                            5.151267E+03   0.0                  \r\n                                                                                                                                    \r\n  7.356396E-02      1.001338E+04   0.0            0.0            0.0            0.0             1.001338E+04   0.0          -9.9E-01\r\n                    9.413646E+03   0.0            0.0            0.0                            9.413646E+03   0.0                  \r\n                                                                                                                                    \r\n  7.495196E-02      1.156625E+04   0.0            0.0            0.0            0.0             1.156625E+04   0.0          -9.9E-01\r\n                    1.105220E+04   0.0            0.0            0.0                            1.105220E+04   0.0                  \r\n                                                                                                                                    \r\n  7.633996E-02      9.906282E+03   0.0            0.0            0.0            0.0             9.906282E+03   0.0          -9.9E-01\r\n                    9.306552E+03   0.0            0.0            0.0                            9.306552E+03   0.0                  \r\n                                                                                                                                    \r\n  7.772796E-02      5.542164E+03   0.0            0.0            0.0            0.0             5.542164E+03   0.0          -9.8E-01\r\n                    5.199460E+03   0.0            0.0            0.0                            5.199460E+03   0.0                  \r\n                                                                                                                                    \r\n  7.911596E-02     -1.204818E+02   0.0            0.0            0.0            0.0             0.0           -1.204818E+02         \r\n                   -1.097723E+02   0.0            0.0            0.0                            0.0           -1.097723E+02 -9.1E-01\r\n                                                                                                                                    \r\n  8.050396E-02     -5.488616E+03   0.0            0.0            0.0            0.0             0.0           -5.488616E+03         \r\n                   -5.145912E+03   0.0            0.0            0.0                            0.0           -5.145912E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.189195E-02     -9.103070E+03   0.0            0.0            0.0            0.0             0.0           -9.103070E+03         \r\n                   -8.589015E+03   0.0            0.0            0.0                            0.0           -8.589015E+03 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  8.327995E-02     -1.022757E+04   0.0            0.0            0.0            0.0             0.0           -1.022757E+04         \r\n                   -9.713512E+03   0.0            0.0            0.0                            0.0           -9.713512E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.466795E-02     -8.728237E+03   0.0            0.0            0.0            0.0             0.0           -8.728237E+03         \r\n                   -8.214183E+03   0.0            0.0            0.0                            0.0           -8.214183E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.605595E-02     -5.113783E+03   0.0            0.0            0.0            0.0             0.0           -5.113783E+03         \r\n                   -4.856756E+03   0.0            0.0            0.0                            0.0           -4.856756E+03 -1.0E+00\r\n                                                                                                                                    \r\n  8.744395E-02     -3.781790E+02   0.0            0.0            0.0            0.0             0.0           -3.781790E+02         \r\n                   -3.567601E+02   0.0            0.0            0.0                            0.0           -3.567601E+02 -9.7E-01\r\n                                                                                                                                    \r\n  8.883195E-02      4.364119E+03   0.0            0.0            0.0            0.0             4.364119E+03   0.0          -9.7E-01\r\n                    4.149929E+03   0.0            0.0            0.0                            4.149929E+03   0.0                  \r\n                                                                                                                                    \r\n  9.021994E-02      7.925025E+03   0.0            0.0            0.0            0.0             7.925025E+03   0.0          -9.9E-01\r\n                    7.582322E+03   0.0            0.0            0.0                            7.582322E+03   0.0                  \r\n                                                                                                                                    \r\n  9.160794E-02      9.584998E+03   0.0            0.0            0.0            0.0             9.584998E+03   0.0          -9.9E-01\r\n                    9.156617E+03   0.0            0.0            0.0                            9.156617E+03   0.0                  \r\n                                                                                                                                    \r\n  9.299594E-02      8.835333E+03   0.0            0.0            0.0            0.0             8.835333E+03   0.0          -9.9E-01\r\n                    8.406953E+03   0.0            0.0            0.0                            8.406953E+03   0.0                  \r\n                                                                                                                                    \r\n  9.438394E-02      5.970543E+03   0.0            0.0            0.0            0.0             5.970543E+03   0.0          -9.8E-01\r\n                    5.542164E+03   0.0            0.0            0.0                            5.542164E+03   0.0                  \r\n                                                                                                                                    \r\n  9.577194E-02      1.459169E+03   0.0            0.0            0.0            0.0             1.459169E+03   0.0          -9.2E-01\r\n                    1.373493E+03   0.0            0.0            0.0                            1.373493E+03   0.0                  \r\n                                                                                                                                    \r\n  9.715994E-02     -3.507359E+03   0.0            0.0            0.0            0.0             0.0           -3.507359E+03         \r\n                   -3.357427E+03   0.0            0.0            0.0                            0.0           -3.357427E+03 -1.0E+00\r\n                                                                                                                                    \r\n  9.854794E-02     -7.764383E+03   0.0            0.0            0.0            0.0             0.0           -7.764383E+03         \r\n                   -7.421680E+03   0.0            0.0            0.0                            0.0           -7.421680E+03 -1.0E+00\r\n                                                                                                                                    \r\n  9.993593E-02     -1.006692E+04   0.0            0.0            0.0            0.0             0.0           -1.006692E+04         \r\n                   -9.552869E+03   0.0            0.0            0.0                            0.0           -9.552869E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.013239E-01     -5.783126E+03   0.0            0.0            0.0            0.0             0.0           -5.783126E+03         \r\n                   -5.440423E+03   0.0            0.0            0.0                            0.0           -5.440423E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.027119E-01     -3.989287E+03   0.0            0.0            0.0            0.0             0.0           -3.989287E+03         \r\n                   -3.732259E+03   0.0            0.0            0.0                            0.0           -3.732259E+03 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.040999E-01      7.630515E+02   0.0            0.0            0.0            0.0             7.630515E+02   0.0          -8.5E-01\r\n                    7.095040E+02   0.0            0.0            0.0                            7.095040E+02   0.0                  \r\n                                                                                                                                    \r\n  1.054879E-01      4.712177E+03   0.0            0.0            0.0            0.0             4.712177E+03   0.0          -9.8E-01\r\n                    4.369474E+03   0.0            0.0            0.0                            4.369474E+03   0.0                  \r\n                                                                                                                                    \r\n  1.068759E-01      5.515389E+03   0.0            0.0            0.0            0.0             5.515389E+03   0.0          -9.8E-01\r\n                    5.172686E+03   0.0            0.0            0.0                            5.172686E+03   0.0                  \r\n                                                                                                                                    \r\n  1.082639E-01      4.096381E+03   0.0            0.0            0.0            0.0             4.096381E+03   0.0          -9.7E-01\r\n                    3.668002E+03   0.0            0.0            0.0                            3.668002E+03   0.0                  \r\n                                                                                                                                    \r\n  1.096519E-01      1.024095E+03   0.0            0.0            0.0            0.0             1.024095E+03   0.0          -8.9E-01\r\n                    9.598385E+02   0.0            0.0            0.0                            9.598385E+02   0.0                  \r\n                                                                                                                                    \r\n  1.110399E-01     -2.650600E+03   0.0            0.0            0.0            0.0             0.0           -2.650600E+03         \r\n                   -2.479248E+03   0.0            0.0            0.0                            0.0           -2.479248E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.124279E-01     -4.926368E+03   0.0            0.0            0.0            0.0             0.0           -4.926368E+03         \r\n                   -4.583664E+03   0.0            0.0            0.0                            0.0           -4.583664E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.138159E-01     -4.497987E+03   0.0            0.0            0.0            0.0             0.0           -4.497987E+03         \r\n                   -4.155284E+03   0.0            0.0            0.0                            0.0           -4.155284E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.152039E-01     -2.008030E+03   0.0            0.0            0.0            0.0             0.0           -2.008030E+03         \r\n                   -1.879516E+03   0.0            0.0            0.0                            0.0           -1.879516E+03 -9.9E-01\r\n                                                                                                                                    \r\n  1.165919E-01      1.151271E+03   0.0            0.0            0.0            0.0             1.151271E+03   0.0          -9.0E-01\r\n                    1.087014E+03   0.0            0.0            0.0                            1.087014E+03   0.0                  \r\n                                                                                                                                    \r\n  1.179799E-01      3.694775E+03   0.0            0.0            0.0            0.0             3.694775E+03   0.0          -9.7E-01\r\n                    3.352072E+03   0.0            0.0            0.0                            3.352072E+03   0.0                  \r\n                                                                                                                                    \r\n  1.193679E-01      4.337345E+03   0.0            0.0            0.0            0.0             4.337345E+03   0.0          -9.7E-01\r\n                    4.165994E+03   0.0            0.0            0.0                            4.165994E+03   0.0                  \r\n                                                                                                                                    \r\n  1.207559E-01      2.838016E+03   0.0            0.0            0.0            0.0             2.838016E+03   0.0          -9.6E-01\r\n                    2.666664E+03   0.0            0.0            0.0                            2.666664E+03   0.0                  \r\n                                                                                                                                    \r\n  1.221439E-01      8.534128E+01   0.0            0.0            0.0            0.0             8.534128E+01   0.0           3.0E-01\r\n                    7.998654E+01   0.0            0.0            0.0                            7.998654E+01   0.0                  \r\n                                                                                                                                    \r\n  1.235319E-01     -2.516731E+03   0.0            0.0            0.0            0.0             0.0           -2.516731E+03         \r\n                   -2.345379E+03   0.0            0.0            0.0                            0.0           -2.345379E+03 -1.0E+00\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =      75\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.249199E-01     -3.801870E+03   0.0            0.0            0.0            0.0             0.0           -3.801870E+03         \r\n                   -3.459167E+03   0.0            0.0            0.0                            0.0           -3.459167E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.263079E-01     -3.212848E+03   0.0            0.0            0.0            0.0             0.0           -3.212848E+03         \r\n                   -2.955821E+03   0.0            0.0            0.0                            0.0           -2.955821E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.276959E-01     -1.137884E+03   0.0            0.0            0.0            0.0             0.0           -1.137884E+03         \r\n                   -1.073627E+03   0.0            0.0            0.0                            0.0           -1.073627E+03 -9.9E-01\r\n                                                                                                                                    \r\n  1.290839E-01      1.378847E+03   0.0            0.0            0.0            0.0             1.378847E+03   0.0          -9.2E-01\r\n                    1.293172E+03   0.0            0.0            0.0                            1.293172E+03   0.0                  \r\n                                                                                                                                    \r\n  1.304719E-01      3.078979E+03   0.0            0.0            0.0            0.0             3.078979E+03   0.0          -9.6E-01\r\n                    2.864790E+03   0.0            0.0            0.0                            2.864790E+03   0.0                  \r\n                                                                                                                                    \r\n  1.318599E-01      3.239622E+03   0.0            0.0            0.0            0.0             3.239622E+03   0.0          -9.7E-01\r\n                    2.982594E+03   0.0            0.0            0.0                            2.982594E+03   0.0                  \r\n                                                                                                                                    \r\n  1.332479E-01      1.847388E+03   0.0            0.0            0.0            0.0             1.847388E+03   0.0          -9.4E-01\r\n                    1.718874E+03   0.0            0.0            0.0                            1.718874E+03   0.0                  \r\n                                                                                                                                    \r\n  1.346359E-01     -3.413651E+02   0.0            0.0            0.0            0.0             0.0           -3.413651E+02         \r\n                   -3.199462E+02   0.0            0.0            0.0                            0.0           -3.199462E+02 -9.7E-01\r\n                                                                                                                                    \r\n  1.360239E-01     -2.248994E+03   0.0            0.0            0.0            0.0             0.0           -2.248994E+03         \r\n                   -2.077642E+03   0.0            0.0            0.0                            0.0           -2.077642E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.374119E-01     -2.998658E+03   0.0            0.0            0.0            0.0             0.0           -2.998658E+03         \r\n                   -2.784469E+03   0.0            0.0            0.0                            0.0           -2.784469E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.387999E-01     -2.275768E+03   0.0            0.0            0.0            0.0             0.0           -2.275768E+03         \r\n                   -2.061578E+03   0.0            0.0            0.0                            0.0           -2.061578E+03 -1.0E+00\r\n                                                                                                                                    \r\n  1.401879E-01     -5.020075E+02   0.0            0.0            0.0            0.0             0.0           -5.020075E+02         \r\n                   -4.591696E+02   0.0            0.0            0.0                            0.0           -4.591696E+02 -9.8E-01\r\n                                                                                                                                    \r\n  1.415759E-01      1.378847E+03   0.0            0.0            0.0            0.0             1.378847E+03   0.0          -9.2E-01\r\n                    1.293172E+03   0.0            0.0            0.0                            1.293172E+03   0.0                  \r\n                                                                                                                                    \r\n  1.429639E-01      2.489957E+03   0.0            0.0            0.0            0.0             2.489957E+03   0.0          -9.6E-01\r\n                    2.361444E+03   0.0            0.0            0.0                            2.361444E+03   0.0                  \r\n                                                                                                                                    \r\n  1.443519E-01      2.356089E+03   0.0            0.0            0.0            0.0             2.356089E+03   0.0          -9.5E-01\r\n                    2.184737E+03   0.0            0.0            0.0                            2.184737E+03   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.388000E-03      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -3.1E-01\r\n                    1.606428E+02   0.0            0.0            0.0                            1.606428E+02   0.0                  \r\n                                                                                                                                    \r\n  2.776000E-03      8.032121E+01   0.0            0.0            0.0            0.0             8.032121E+01   0.0          -3.3E-01\r\n                    1.659975E+02   0.0            0.0            0.0                            1.659975E+02   0.0                  \r\n                                                                                                                                    \r\n  4.164000E-03      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0           1.1E+00\r\n                    5.354747E+01   0.0            0.0            0.0                            5.354747E+01   0.0                  \r\n                                                                                                                                    \r\n  5.552000E-03      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -8.567628E+01   0.0            0.0            0.0                            0.0           -8.567628E+01 -8.7E-01\r\n                                                                                                                                    \r\n  6.940000E-03     -4.016060E+01   0.0            0.0            0.0            0.0             0.0           -4.016060E+01         \r\n                   -1.258369E+02   0.0            0.0            0.0                            0.0           -1.258369E+02 -9.1E-01\r\n                                                                                                                                    \r\n  8.328000E-03     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -3.105763E+02   0.0            0.0            0.0                            0.0           -3.105763E+02 -9.6E-01\r\n                                                                                                                                    \r\n  9.716000E-03     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -4.498000E+02   0.0            0.0            0.0                            0.0           -4.498000E+02 -9.8E-01\r\n                                                                                                                                    \r\n  1.110400E-02     -2.141899E+02   0.0            0.0            0.0            0.0             0.0           -2.141899E+02         \r\n                   -2.141899E+02   0.0            0.0            0.0                            0.0           -2.141899E+02 -9.5E-01\r\n                                                                                                                                    \r\n  1.249200E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -1.713526E+02   0.0            0.0            0.0                            0.0           -1.713526E+02 -9.4E-01\r\n                                                                                                                                    \r\n  1.388000E-02      1.338687E+01   0.0            0.0            0.0            0.0             1.338687E+01   0.0           9.8E-01\r\n                    5.622501E+01   0.0            0.0            0.0                            5.622501E+01   0.0                  \r\n                                                                                                                                    \r\n  1.526800E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  1.665600E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -7.5E-01\r\n                    4.498000E+02   0.0            0.0            0.0                            4.498000E+02   0.0                  \r\n                                                                                                                                    \r\n  1.804400E-02      2.141899E+02   0.0            0.0            0.0            0.0             2.141899E+02   0.0          -8.0E-01\r\n                    5.568950E+02   0.0            0.0            0.0                            5.568950E+02   0.0                  \r\n                                                                                                                                    \r\n  1.943200E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.082000E-02      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0           1.1E+00\r\n                    5.354747E+01   0.0            0.0            0.0                            5.354747E+01   0.0                  \r\n                                                                                                                                    \r\n  2.220800E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -1.927712E+02   0.0            0.0            0.0                            0.0           -1.927712E+02 -9.4E-01\r\n                                                                                                                                    \r\n  2.359600E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  2.498400E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -4.498000E+02   0.0            0.0            0.0                            0.0           -4.498000E+02 -9.8E-01\r\n                                                                                                                                    \r\n  2.637200E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  2.776000E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -2.249000E+02   0.0            0.0            0.0                            0.0           -2.249000E+02 -9.5E-01\r\n                                                                                                                                    \r\n  2.914800E-02      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0           6.0E-01\r\n                    6.961188E+01   0.0            0.0            0.0                            6.961188E+01   0.0                  \r\n                                                                                                                                    \r\n  3.053601E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0          -3.5E-01\r\n                    1.713526E+02   0.0            0.0            0.0                            1.713526E+02   0.0                  \r\n                                                                                                                                    \r\n  3.192401E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  3.331200E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  3.470000E-02      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -5.1E-01\r\n                    2.249000E+02   0.0            0.0            0.0                            2.249000E+02   0.0                  \r\n                                                                                                                                    \r\n  3.608800E-02      4.016060E+01   0.0            0.0            0.0            0.0             4.016060E+01   0.0          -1.2E-01\r\n                    1.258369E+02   0.0            0.0            0.0                            1.258369E+02   0.0                  \r\n                                                                                                                                    \r\n  3.747600E-02     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -2.677374E+01   0.0            0.0            0.0                            0.0           -2.677374E+01 -5.9E-01\r\n                                                                                                                                    \r\n  3.886400E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -1.927712E+02   0.0            0.0            0.0                            0.0           -1.927712E+02 -9.4E-01\r\n                                                                                                                                    \r\n  4.025200E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  4.163999E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -2.249000E+02   0.0            0.0            0.0                            0.0           -2.249000E+02 -9.5E-01\r\n                                                                                                                                    \r\n  4.302799E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -1.927712E+02   0.0            0.0            0.0                            0.0           -1.927712E+02 -9.4E-01\r\n                                                                                                                                    \r\n  4.441599E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  4.580399E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -2.141907E+01   0.0            0.0            0.0                            0.0           -2.141907E+01 -4.8E-01\r\n                                                                                                                                    \r\n  4.719199E-02      4.016060E+01   0.0            0.0            0.0            0.0             4.016060E+01   0.0           3.4E-01\r\n                    8.299874E+01   0.0            0.0            0.0                            8.299874E+01   0.0                  \r\n                                                                                                                                    \r\n  4.857999E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  4.996799E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  5.135598E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  5.274398E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  5.413198E-02      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0          -1.2E-02\r\n                    1.124500E+02   0.0            0.0            0.0                            1.124500E+02   0.0                  \r\n                                                                                                                                    \r\n  5.551998E-02     -3.346717E+01   0.0            0.0            0.0            0.0             0.0           -3.346717E+01         \r\n                   -9.772438E+01   0.0            0.0            0.0                            0.0           -9.772438E+01 -8.9E-01\r\n                                                                                                                                    \r\n  5.690798E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  5.829598E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  5.968397E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  6.107197E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -1.713526E+02   0.0            0.0            0.0                            0.0           -1.713526E+02 -9.4E-01\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  6.245997E-02     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -2.677374E+01   0.0            0.0            0.0                            0.0           -2.677374E+01 -5.9E-01\r\n                                                                                                                                    \r\n  6.384797E-02      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -2.0E-01\r\n                    1.392238E+02   0.0            0.0            0.0                            1.392238E+02   0.0                  \r\n                                                                                                                                    \r\n  6.523597E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  6.662397E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0          -6.8E-01\r\n                    3.427051E+02   0.0            0.0            0.0                            3.427051E+02   0.0                  \r\n                                                                                                                                    \r\n  6.801197E-02      2.141899E+02   0.0            0.0            0.0            0.0             2.141899E+02   0.0          -7.1E-01\r\n                    3.855424E+02   0.0            0.0            0.0                            3.855424E+02   0.0                  \r\n                                                                                                                                    \r\n  6.939997E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0           3.8E-02\r\n                    1.070949E+02   0.0            0.0            0.0                            1.070949E+02   0.0                  \r\n                                                                                                                                    \r\n  7.078797E-02      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  7.217596E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -2.249000E+02   0.0            0.0            0.0                            0.0           -2.249000E+02 -9.5E-01\r\n                                                                                                                                    \r\n  7.356396E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  7.495196E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -4.498000E+02   0.0            0.0            0.0                            0.0           -4.498000E+02 -9.8E-01\r\n                                                                                                                                    \r\n  7.633996E-02     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -2.784475E+02   0.0            0.0            0.0                            0.0           -2.784475E+02 -9.6E-01\r\n                                                                                                                                    \r\n  7.772796E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  7.911596E-02      3.346717E+00   0.0            0.0            0.0            0.0             3.346717E+00   0.0           3.2E+01\r\n                   -2.008051E+00   0.0            0.0            0.0                            0.0           -2.008051E+00  4.5E+00\r\n                                                                                                                                    \r\n  8.050396E-02      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -2.0E-01\r\n                    1.392238E+02   0.0            0.0            0.0                            1.392238E+02   0.0                  \r\n                                                                                                                                    \r\n  8.189195E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  8.327995E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  8.466795E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  8.605595E-02      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -2.0E-01\r\n                    1.392238E+02   0.0            0.0            0.0                            1.392238E+02   0.0                  \r\n                                                                                                                                    \r\n  8.744395E-02      3.346717E+00   0.0            0.0            0.0            0.0             3.346717E+00   0.0           3.2E+01\r\n                    3.346717E+00   0.0            0.0            0.0                            3.346717E+00   0.0                  \r\n                                                                                                                                    \r\n  8.883195E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  9.021994E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -2.249000E+02   0.0            0.0            0.0                            0.0           -2.249000E+02 -9.5E-01\r\n                                                                                                                                    \r\n  9.160794E-02     -2.141899E+02   0.0            0.0            0.0            0.0             0.0           -2.141899E+02         \r\n                   -3.855424E+02   0.0            0.0            0.0                            0.0           -3.855424E+02 -9.7E-01\r\n                                                                                                                                    \r\n  9.299594E-02     -1.606424E+02   0.0            0.0            0.0            0.0             0.0           -1.606424E+02         \r\n                   -3.319950E+02   0.0            0.0            0.0                            0.0           -3.319950E+02 -9.7E-01\r\n                                                                                                                                    \r\n  9.438394E-02     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  9.577194E-02     -1.338687E+01   0.0            0.0            0.0            0.0             0.0           -1.338687E+01         \r\n                   -1.338687E+01   0.0            0.0            0.0                            0.0           -1.338687E+01 -1.7E-01\r\n                                                                                                                                    \r\n  9.715994E-02      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0          -1.2E-02\r\n                    1.124500E+02   0.0            0.0            0.0                            1.124500E+02   0.0                  \r\n                                                                                                                                    \r\n  9.854794E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  9.993593E-02      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0          -6.0E-01\r\n                    2.784475E+02   0.0            0.0            0.0                            2.784475E+02   0.0                  \r\n                                                                                                                                    \r\n  1.013239E-01      1.070949E+02   0.0            0.0            0.0            0.0             1.070949E+02   0.0           3.8E-02\r\n                    1.070949E+02   0.0            0.0            0.0                            1.070949E+02   0.0                  \r\n                                                                                                                                    \r\n  1.027119E-01      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0           1.1E+00\r\n                    5.354747E+01   0.0            0.0            0.0                            5.354747E+01   0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.040999E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -2.141907E+01   0.0            0.0            0.0                            0.0           -2.141907E+01 -4.8E-01\r\n                                                                                                                                    \r\n  1.054879E-01     -1.070949E+02   0.0            0.0            0.0            0.0             0.0           -1.070949E+02         \r\n                   -1.927712E+02   0.0            0.0            0.0                            0.0           -1.927712E+02 -9.4E-01\r\n                                                                                                                                    \r\n  1.068759E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.082639E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -8.567628E+01   0.0            0.0            0.0                            0.0           -8.567628E+01 -8.7E-01\r\n                                                                                                                                    \r\n  1.096519E-01     -1.338687E+01   0.0            0.0            0.0            0.0             0.0           -1.338687E+01         \r\n                   -3.480594E+01   0.0            0.0            0.0                            0.0           -3.480594E+01 -6.8E-01\r\n                                                                                                                                    \r\n  1.110399E-01      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0          -1.2E-02\r\n                    1.124500E+02   0.0            0.0            0.0                            1.124500E+02   0.0                  \r\n                                                                                                                                    \r\n  1.124279E-01      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -5.1E-01\r\n                    2.249000E+02   0.0            0.0            0.0                            2.249000E+02   0.0                  \r\n                                                                                                                                    \r\n  1.138159E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.152039E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0           1.6E+00\r\n                    4.283814E+01   0.0            0.0            0.0                            4.283814E+01   0.0                  \r\n                                                                                                                                    \r\n  1.165919E-01     -1.338687E+01   0.0            0.0            0.0            0.0             0.0           -1.338687E+01         \r\n                   -1.338687E+01   0.0            0.0            0.0                            0.0           -1.338687E+01 -1.7E-01\r\n                                                                                                                                    \r\n  1.179799E-01     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  1.193679E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -8.567628E+01   0.0            0.0            0.0                            0.0           -8.567628E+01 -8.7E-01\r\n                                                                                                                                    \r\n  1.207559E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  1.221439E-01     -1.673358E+00   0.0            0.0            0.0            0.0             0.0           -1.673358E+00  1.1E+02\r\n                    1.004025E+00   0.0            0.0            0.0                            1.004025E+00   0.0           5.6E+00\r\n                                                                                                                                    \r\n  1.235319E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n      ELEMENT-ID =     100\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.249199E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0           3.0E-01\r\n                    8.567628E+01   0.0            0.0            0.0                            8.567628E+01   0.0                  \r\n                                                                                                                                    \r\n  1.263079E-01      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -2.0E-01\r\n                    1.392238E+02   0.0            0.0            0.0                            1.392238E+02   0.0                  \r\n                                                                                                                                    \r\n  1.276959E-01      1.338687E+01   0.0            0.0            0.0            0.0             1.338687E+01   0.0           7.3E+00\r\n                    1.338687E+01   0.0            0.0            0.0                            1.338687E+01   0.0                  \r\n                                                                                                                                    \r\n  1.290839E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                   -4.283814E+01   0.0            0.0            0.0                            0.0           -4.283814E+01 -7.4E-01\r\n                                                                                                                                    \r\n  1.304719E-01     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -5.354747E+01   0.0            0.0            0.0                            0.0           -5.354747E+01 -7.9E-01\r\n                                                                                                                                    \r\n  1.318599E-01     -5.354747E+01   0.0            0.0            0.0            0.0             0.0           -5.354747E+01         \r\n                   -1.392238E+02   0.0            0.0            0.0                            0.0           -1.392238E+02 -9.2E-01\r\n                                                                                                                                    \r\n  1.332479E-01     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -6.961188E+01   0.0            0.0            0.0                            0.0           -6.961188E+01 -8.4E-01\r\n                                                                                                                                    \r\n  1.346359E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0           9.4E+00\r\n                    1.070954E+01   0.0            0.0            0.0                            1.070954E+01   0.0                  \r\n                                                                                                                                    \r\n  1.360239E-01      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0          -1.2E-02\r\n                    1.124500E+02   0.0            0.0            0.0                            1.124500E+02   0.0                  \r\n                                                                                                                                    \r\n  1.374119E-01      5.354747E+01   0.0            0.0            0.0            0.0             5.354747E+01   0.0          -2.0E-01\r\n                    1.392238E+02   0.0            0.0            0.0                            1.392238E+02   0.0                  \r\n                                                                                                                                    \r\n  1.387999E-01      2.677374E+01   0.0            0.0            0.0            0.0             2.677374E+01   0.0          -1.2E-02\r\n                    1.124500E+02   0.0            0.0            0.0                            1.124500E+02   0.0                  \r\n                                                                                                                                    \r\n  1.401879E-01      0.0            0.0            0.0            0.0            0.0             0.0            0.0           9.4E+00\r\n                    1.070954E+01   0.0            0.0            0.0                            1.070954E+01   0.0                  \r\n                                                                                                                                    \r\n  1.415759E-01     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -2.677374E+01   0.0            0.0            0.0                            0.0           -2.677374E+01 -5.9E-01\r\n                                                                                                                                    \r\n  1.429639E-01     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -1.124500E+02   0.0            0.0            0.0                            0.0           -1.124500E+02 -9.0E-01\r\n                                                                                                                                    \r\n  1.443519E-01     -2.677374E+01   0.0            0.0            0.0            0.0             0.0           -2.677374E+01         \r\n                   -2.677374E+01   0.0            0.0            0.0                            0.0           -2.677374E+01 -5.9E-01\r\n                                                                                                                                    \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  2.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON BOTH FILM + PAPER                                                                    \r\n                                                                                                                                    \r\n          1 BLANK FRAMES WILL BE INSERTED ON FILM ONLY BETWEEN EACH OF THE FOLLOWING PLOTS                                          \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          STEREOSCOPIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALES - (MODEL-TO-PLOT SIZE = 8.123460E-01,  OBJECT-TO-MODEL SIZE = 0.500000E+00)                                        \r\n          VANTAGE POINT (INCHES) - R0 = 3.279869E+01, S0(L) = 0.143747E+01, S0(R) = 0.419347E+01, T0 =-0.162577E+01                 \r\n          PROJECTION PLANE SEPARATION (INCHES) = 2.000000E+00                                                                       \r\n          OCULAR SEPARATION (INCHES) = 2.756000E+00                                                                                 \r\n                                                                                                                                    \r\n          ORIGIN     100   -   X0(L) =  9.640638E+00, X0(R) =  0.308177E+02, Y0 = -0.171367E+02     (INCHES)                        \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    1   TRANS. DEFORM.     1 - SUBCASE     516 - LOAD   1.249200E-02 - TIME                                           \r\n                                                 ORIGIN    100  USED IN THIS PLOT                                                   \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  2.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON BOTH FILM + PAPER                                                                    \r\n                                                                                                                                    \r\n          1 BLANK FRAMES WILL BE INSERTED ON FILM ONLY BETWEEN EACH OF THE FOLLOWING PLOTS                                          \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.361321E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -2.044880E+00, Y0 = -0.257946E+01     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 = -1.677686E+00, Y0 = -0.574408E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    3   TRANS. DEFORM.     1 - SUBCASE     516 - LOAD   1.249200E-02 - TIME                                           \r\n          PLOT    4   TRANS. DEFORM.     1 - SUBCASE     516 - LOAD   1.388000E-02 - TIME                                           \r\n          PLOT    5   TRANS. DEFORM.     1 - SUBCASE     516 - LOAD   1.526800E-02 - TIME                                           \r\n                                                 ORIGIN      2  USED IN THIS PLOT                                                   \r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       51( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *                                                      \r\n      X-AXIS TITLE =                     TIME (SECONDS)                                                                             \r\n      Y-AXIS TITLE =      D I S P  * INCH *                                                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.303100E-01 AT X =   2.498400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.322570E-01 AT X =   1.804400E-02\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -3.303100E-01 AT X =   2.498400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.322570E-01 AT X =   1.804400E-02\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         0.000000E+00\r\n                                  2             1.388000E-03         1.749043E-02\r\n                                  3             2.776000E-03         6.849734E-02\r\n                                  4             4.164000E-03         1.116551E-01\r\n                                  5             5.552000E-03         9.504765E-02\r\n                                  6             6.940000E-03         1.053091E-02\r\n                                  7             8.328000E-03        -1.095144E-01\r\n                                  8             9.716000E-03        -2.160316E-01\r\n                                  9             1.110400E-02        -2.549437E-01\r\n                                 10             1.249200E-02        -1.921652E-01\r\n                                 11             1.388000E-02        -4.098973E-02\r\n                                 12             1.526800E-02         1.424015E-01\r\n                                 13             1.665600E-02         2.865285E-01\r\n                                 14             1.804400E-02         3.322570E-01\r\n                                 15             1.943200E-02         2.566832E-01\r\n                                 16             2.082000E-02         8.597113E-02\r\n                                 17             2.220800E-02        -1.152530E-01\r\n                                 18             2.359600E-02        -2.723921E-01\r\n                                 19             2.498400E-02        -3.303100E-01\r\n                                 20             2.637200E-02        -2.730998E-01\r\n                                 21             2.776000E-02        -1.284126E-01\r\n                                 22             2.914800E-02         4.626717E-02\r\n                                 23             3.053601E-02         1.887517E-01\r\n                                 24             3.192401E-02         2.559007E-01\r\n                                 25             3.331200E-02         2.366529E-01\r\n                                 26             3.470000E-02         1.511663E-01\r\n                                 27             3.608800E-02         3.798332E-02\r\n                                 28             3.747600E-02        -6.388950E-02\r\n                                 29             3.886400E-02        -1.291952E-01\r\n                                 30             4.025200E-02        -1.515235E-01\r\n                                 31             4.163999E-02        -1.392808E-01\r\n                                 32             4.302799E-02        -1.064889E-01\r\n                                 33             4.441599E-02        -6.410828E-02\r\n                                 34             4.580399E-02        -1.653035E-02\r\n                                 35             4.719199E-02         3.575153E-02\r\n                                 36             4.857999E-02         9.016525E-02\r\n                                 37             4.996799E-02         1.373997E-01\r\n                                 38             5.135598E-02         1.617500E-01\r\n                                 39             5.274398E-02         1.472344E-01\r\n                                 40             5.413198E-02         8.673263E-02\r\n                                 41             5.551998E-02        -1.079772E-02\r\n                                 42             5.690798E-02        -1.195081E-01\r\n                                 43             5.829598E-02        -2.038530E-01\r\n                                 44             5.968397E-02        -2.315398E-01\r\n                                 45             6.107197E-02        -1.869683E-01\r\n                                 46             6.245997E-02        -7.920627E-02\r\n                                 47             6.384797E-02         5.938523E-02\r\n                                 48             6.523597E-02         1.838459E-01\r\n                                 49             6.662397E-02         2.526268E-01\r\n                                 50             6.801197E-02         2.426398E-01\r\n                                 51             6.939997E-02         1.574560E-01\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                 52             7.078797E-02         2.560599E-02\r\n                                 53             7.217596E-02        -1.100492E-01\r\n                                 54             7.356396E-02        -2.074866E-01\r\n                                 55             7.495196E-02        -2.393745E-01\r\n                                 56             7.633996E-02        -2.007295E-01\r\n                                 57             7.772796E-02        -1.082936E-01\r\n                                 58             7.911596E-02         7.144091E-03\r\n                                 59             8.050396E-02         1.118376E-01\r\n                                 60             8.189195E-02         1.792864E-01\r\n                                 61             8.327995E-02         1.963605E-01\r\n                                 62             8.466795E-02         1.642867E-01\r\n                                 63             8.605595E-02         9.552170E-02\r\n                                 64             8.744395E-02         8.690083E-03\r\n                                 65             8.883195E-02        -7.629749E-02\r\n                                 66             9.021994E-02        -1.417937E-01\r\n                                 67             9.160794E-02        -1.746193E-01\r\n                                 68             9.299594E-02        -1.675700E-01\r\n                                 69             9.438394E-02        -1.207518E-01\r\n                                 70             9.577194E-02        -4.258823E-02\r\n                                 71             9.715994E-02         5.035497E-02\r\n                                 72             9.854794E-02         1.357245E-01\r\n                                 73             9.993593E-02         1.902706E-01\r\n                                 74             1.013239E-01         1.944442E-01\r\n                                 75             1.027119E-01         1.067888E-01\r\n                                 76             1.040999E-01        -2.360307E-02\r\n                                 77             1.054879E-01        -1.359107E-01\r\n                                 78             1.068759E-01        -1.790060E-01\r\n                                 79             1.082639E-01        -1.337145E-01\r\n                                 80             1.096519E-01        -2.684071E-02\r\n                                 81             1.110399E-01         8.586286E-02\r\n                                 82             1.124279E-01         1.514307E-01\r\n                                 83             1.138159E-01         1.421362E-01\r\n                                 84             1.152039E-01         6.585731E-02\r\n                                 85             1.165919E-01        -3.754779E-02\r\n                                 86             1.179799E-01        -1.169266E-01\r\n                                 87             1.193679E-01        -1.361141E-01\r\n                                 88             1.207559E-01        -8.972091E-02\r\n                                 89             1.221439E-01        -3.262767E-03\r\n                                 90             1.235319E-01         8.010235E-02\r\n                                 91             1.249199E-01         1.208426E-01\r\n                                 92             1.263079E-01         1.020563E-01\r\n                                 93             1.276959E-01         3.615609E-02\r\n                                 94             1.290839E-01        -4.295759E-02\r\n                                 95             1.304719E-01        -9.705742E-02\r\n                                 96             1.318599E-01        -1.018451E-01\r\n                                 97             1.332479E-01        -5.782165E-02\r\n                                 98             1.346359E-01         1.133263E-02\r\n                                 99             1.360239E-01         7.140251E-02\r\n                                100             1.374119E-01         9.444311E-02\r\n                                101             1.387999E-01         7.162559E-02\r\n                                102             1.401879E-01         1.637442E-02\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                103             1.415759E-01        -4.324254E-02\r\n                                104             1.429639E-01        -7.868848E-02\r\n                                105             1.443519E-01        -7.452134E-02\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE      101( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *                                                      \r\n      X-AXIS TITLE =                     TIME (SECONDS)                                                                             \r\n      Y-AXIS TITLE =      D I S P  * INCH *                                                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -9.976625E-01 AT X =   2.498400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.997069E-01 AT X =   1.804400E-02\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -9.976625E-01 AT X =   2.498400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.997069E-01 AT X =   1.804400E-02\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         0.000000E+00\r\n                                  2             1.388000E-03         7.723872E-02\r\n                                  3             2.776000E-03         2.262012E-01\r\n                                  4             4.164000E-03         3.205386E-01\r\n                                  5             5.552000E-03         2.633045E-01\r\n                                  6             6.940000E-03         1.745296E-02\r\n                                  7             8.328000E-03        -3.466618E-01\r\n                                  8             9.716000E-03        -6.624677E-01\r\n                                  9             1.110400E-02        -7.620759E-01\r\n                                 10             1.249200E-02        -5.644733E-01\r\n                                 11             1.388000E-02        -1.113241E-01\r\n                                 12             1.526800E-02         4.392738E-01\r\n                                 13             1.665600E-02         8.696855E-01\r\n                                 14             1.804400E-02         9.997069E-01\r\n                                 15             1.943200E-02         7.675585E-01\r\n                                 16             2.082000E-02         2.539624E-01\r\n                                 17             2.220800E-02        -3.510861E-01\r\n                                 18             2.359600E-02        -8.239511E-01\r\n                                 19             2.498400E-02        -9.976625E-01\r\n                                 20             2.637200E-02        -8.256274E-01\r\n                                 21             2.776000E-02        -3.910216E-01\r\n                                 22             2.914800E-02         1.355499E-01\r\n                                 23             3.053601E-02         5.677651E-01\r\n                                 24             3.192401E-02         7.745152E-01\r\n                                 25             3.331200E-02         7.210318E-01\r\n                                 26             3.470000E-02         4.662092E-01\r\n                                 27             3.608800E-02         1.241408E-01\r\n                                 28             3.747600E-02        -1.880655E-01\r\n                                 29             3.886400E-02        -3.925510E-01\r\n                                 30             4.025200E-02        -4.672115E-01\r\n                                 31             4.163999E-02        -4.345875E-01\r\n                                 32             4.302799E-02        -3.350197E-01\r\n                                 33             4.441599E-02        -2.015273E-01\r\n                                 34             4.580399E-02        -4.941432E-02\r\n                                 35             4.719199E-02         1.166631E-01\r\n                                 36             4.857999E-02         2.859598E-01\r\n                                 37             4.996799E-02         4.286370E-01\r\n                                 38             5.135598E-02         4.974545E-01\r\n                                 39             5.274398E-02         4.461163E-01\r\n                                 40             5.413198E-02         2.559412E-01\r\n                                 41             5.551998E-02        -4.350854E-02\r\n                                 42             5.690798E-02        -3.728405E-01\r\n                                 43             5.829598E-02        -6.248938E-01\r\n                                 44             5.968397E-02        -7.035705E-01\r\n                                 45             6.107197E-02        -5.636826E-01\r\n                                 46             6.245997E-02        -2.342330E-01\r\n                                 47             6.384797E-02         1.862342E-01\r\n                                 48             6.523597E-02         5.619959E-01\r\n                                 49             6.662397E-02         7.682050E-01\r\n                                 50             6.801197E-02         7.358833E-01\r\n                                 51             6.939997E-02         4.763267E-01\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                 52             7.078797E-02         7.589497E-02\r\n                                 53             7.217596E-02        -3.359235E-01\r\n                                 54             7.356396E-02        -6.320636E-01\r\n                                 55             7.495196E-02        -7.295730E-01\r\n                                 56             7.633996E-02        -6.128195E-01\r\n                                 57             7.772796E-02        -3.319086E-01\r\n                                 58             7.911596E-02         2.014856E-02\r\n                                 59             8.050396E-02         3.407274E-01\r\n                                 60             8.189195E-02         5.485079E-01\r\n                                 61             8.327995E-02         6.023847E-01\r\n                                 62             8.466795E-02         5.050207E-01\r\n                                 63             8.605595E-02         2.938865E-01\r\n                                 64             8.744395E-02         2.613967E-02\r\n                                 65             8.883195E-02        -2.363712E-01\r\n                                 66             9.021994E-02        -4.384143E-01\r\n                                 67             9.160794E-02        -5.387349E-01\r\n                                 68             9.299594E-02        -5.151430E-01\r\n                                 69             9.438394E-02        -3.687051E-01\r\n                                 70             9.577194E-02        -1.265103E-01\r\n                                 71             9.715994E-02         1.594517E-01\r\n                                 72             9.854794E-02         4.200789E-01\r\n                                 73             9.993593E-02         5.844343E-01\r\n                                 74             1.013239E-01         5.695511E-01\r\n                                 75             1.027119E-01         3.209443E-01\r\n                                 76             1.040999E-01        -6.986048E-02\r\n                                 77             1.054879E-01        -4.045559E-01\r\n                                 78             1.068759E-01        -5.259836E-01\r\n                                 79             1.082639E-01        -3.923548E-01\r\n                                 80             1.096519E-01        -8.107455E-02\r\n                                 81             1.110399E-01         2.523459E-01\r\n                                 82             1.124279E-01         4.473753E-01\r\n                                 83             1.138159E-01         4.184102E-01\r\n                                 84             1.152039E-01         1.930220E-01\r\n                                 85             1.165919E-01        -1.105331E-01\r\n                                 86             1.179799E-01        -3.446014E-01\r\n                                 87             1.193679E-01        -4.019049E-01\r\n                                 88             1.207559E-01        -2.648553E-01\r\n                                 89             1.221439E-01        -9.758829E-03\r\n                                 90             1.235319E-01         2.355385E-01\r\n                                 91             1.249199E-01         3.555018E-01\r\n                                 92             1.263079E-01         3.003663E-01\r\n                                 93             1.276959E-01         1.060764E-01\r\n                                 94             1.290839E-01        -1.272431E-01\r\n                                 95             1.304719E-01        -2.866142E-01\r\n                                 96             1.318599E-01        -3.006944E-01\r\n                                 97             1.332479E-01        -1.710623E-01\r\n                                 98             1.346359E-01         3.270512E-02\r\n                                 99             1.360239E-01         2.097582E-01\r\n                                100             1.374119E-01         2.776153E-01\r\n                                101             1.387999E-01         2.103176E-01\r\n                                102             1.401879E-01         4.748539E-02\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                103             1.415759E-01        -1.282255E-01\r\n                                104             1.429639E-01        -2.327298E-01\r\n                                105             1.443519E-01        -2.204751E-01\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ACCELERATION    CURVE       51( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *                                                      \r\n      X-AXIS TITLE =                     TIME (SECONDS)                                                                             \r\n      Y-AXIS TITLE = ACCELERATION                                                                                                   \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.637497E+04 AT X =   1.804400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.287795E+04 AT X =   2.498400E-02\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -6.637497E+04 AT X =   1.804400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  6.287795E+04 AT X =   2.498400E-02\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         2.813025E+04\r\n                                  2             1.388000E-03         3.823744E+04\r\n                                  3             2.776000E-03         2.578989E+04\r\n                                  4             4.164000E-03        -4.750047E+04\r\n                                  5             5.552000E-03        -4.881896E+04\r\n                                  6             6.940000E-03        -4.125725E+03\r\n                                  7             8.328000E-03         1.059572E+04\r\n                                  8             9.716000E-03         2.745978E+04\r\n                                  9             1.110400E-02         5.804474E+04\r\n                                 10             1.249200E-02         5.329425E+04\r\n                                 11             1.388000E-02         1.317381E+04\r\n                                 12             1.526800E-02        -2.422111E+04\r\n                                 13             1.665600E-02        -5.109366E+04\r\n                                 14             1.804400E-02        -6.637497E+04\r\n                                 15             1.943200E-02        -5.391699E+04\r\n                                 16             2.082000E-02        -1.561593E+04\r\n                                 17             2.220800E-02         2.547642E+04\r\n                                 18             2.359600E-02         5.368011E+04\r\n                                 19             2.498400E-02         6.287795E+04\r\n                                 20             2.637200E-02         4.869686E+04\r\n                                 21             2.776000E-02         1.646603E+04\r\n                                 22             2.914800E-02        -1.795893E+04\r\n                                 23             3.053601E-02        -4.106732E+04\r\n                                 24             3.192401E-02        -4.731144E+04\r\n                                 25             3.331200E-02        -3.684114E+04\r\n                                 26             3.470000E-02        -1.568362E+04\r\n                                 27             3.608800E-02         5.901471E+03\r\n                                 28             3.747600E-02         1.977666E+04\r\n                                 29             3.886400E-02         2.357993E+04\r\n                                 30             4.025200E-02         1.945395E+04\r\n                                 31             4.163999E-02         1.197155E+04\r\n                                 32             4.302799E-02         5.882438E+03\r\n                                 33             4.441599E-02         3.268846E+03\r\n                                 34             4.580399E-02         2.620024E+03\r\n                                 35             4.719199E-02         7.455621E+02\r\n                                 36             4.857999E-02        -4.648697E+03\r\n                                 37             4.996799E-02        -1.327491E+04\r\n                                 38             5.135598E-02        -2.183719E+04\r\n                                 39             5.274398E-02        -2.538069E+04\r\n                                 40             5.413198E-02        -2.005447E+04\r\n                                 41             5.551998E-02        -5.580399E+03\r\n                                 42             5.690798E-02         1.400117E+04\r\n                                 43             5.829598E-02         3.160186E+04\r\n                                 44             5.968397E-02         3.990899E+04\r\n                                 45             6.107197E-02         3.463466E+04\r\n                                 46             6.245997E-02         1.663535E+04\r\n                                 47             6.384797E-02        -8.158046E+03\r\n                                 48             6.523597E-02        -3.095900E+04\r\n                                 49             6.662397E-02        -4.354002E+04\r\n                                 50             6.801197E-02        -4.144321E+04\r\n                                 51             6.939997E-02        -2.564071E+04\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                 52             7.078797E-02        -1.990080E+03\r\n                                 53             7.217596E-02         2.117864E+04\r\n                                 54             7.356396E-02         3.625852E+04\r\n                                 55             7.495196E-02         3.903356E+04\r\n                                 56             7.633996E-02         2.982617E+04\r\n                                 57             7.772796E-02         1.283454E+04\r\n                                 58             7.911596E-02        -5.853189E+03\r\n                                 59             8.050396E-02        -2.060734E+04\r\n                                 60             8.189195E-02        -2.800835E+04\r\n                                 61             8.327995E-02        -2.744698E+04\r\n                                 62             8.466795E-02        -2.058865E+04\r\n                                 63             8.605595E-02        -1.020054E+04\r\n                                 64             8.744395E-02         9.978672E+02\r\n                                 65             8.883195E-02         1.097683E+04\r\n                                 66             9.021994E-02         1.842987E+04\r\n                                 67             9.160794E-02         2.245424E+04\r\n                                 68             9.299594E-02         2.228913E+04\r\n                                 69             9.438394E-02         1.741417E+04\r\n                                 70             9.577194E-02         8.006321E+03\r\n                                 71             9.715994E-02        -4.541350E+03\r\n                                 72             9.854794E-02        -1.745806E+04\r\n                                 73             9.993593E-02        -2.708979E+04\r\n                                 74             1.013239E-01        -5.934801E+04\r\n                                 75             1.027119E-01        -1.055618E+04\r\n                                 76             1.040999E-01         1.087224E+04\r\n                                 77             1.054879E-01         2.909780E+04\r\n                                 78             1.068759E-01         5.048494E+04\r\n                                 79             1.082639E-01         3.761383E+04\r\n                                 80             1.096519E-01        -3.875897E+02\r\n                                 81             1.110399E-01        -2.712853E+04\r\n                                 82             1.124279E-01        -3.783608E+04\r\n                                 83             1.138159E-01        -3.633577E+04\r\n                                 84             1.152039E-01        -1.626763E+04\r\n                                 85             1.165919E-01         1.388320E+04\r\n                                 86             1.179799E-01         3.346539E+04\r\n                                 87             1.193679E-01         3.470626E+04\r\n                                 88             1.207559E-01         2.139606E+04\r\n                                 89             1.221439E-01        -1.211638E+03\r\n                                 90             1.235319E-01        -2.326561E+04\r\n                                 91             1.249199E-01        -3.258568E+04\r\n                                 92             1.263079E-01        -2.526081E+04\r\n                                 93             1.276959E-01        -6.912656E+03\r\n                                 94             1.290839E-01         1.346239E+04\r\n                                 95             1.304719E-01         2.672452E+04\r\n                                 96             1.318599E-01         2.652542E+04\r\n                                 97             1.332479E-01         1.349438E+04\r\n                                 98             1.346359E-01        -5.075038E+03\r\n                                 99             1.360239E-01        -2.006377E+04\r\n                                100             1.374119E-01        -2.481011E+04\r\n                                101             1.387999E-01        -1.754683E+04\r\n                                102             1.401879E-01        -2.282217E+03\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =       51     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                103             1.415759E-01         1.318091E+04\r\n                                104             1.429639E-01         2.146324E+04\r\n                                105             1.443519E-01         1.912619E+04\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ACCELERATION    CURVE      101( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT FILM  PLOTTER WITHOUT TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      CAMERA 3 USED. (PAPER AND 35MM FILM)\r\n      DENSITY =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *                                                      \r\n      X-AXIS TITLE =                     TIME (SECONDS)                                                                             \r\n      Y-AXIS TITLE = ACCELERATION                                                                                                   \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.898740E+05 AT X =   1.804400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.171249E+05 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  0.000000E+00 TO  X =  1.443519E-01)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE = -1.898740E+05 AT X =   1.804400E-02\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.171249E+05 AT X =   0.000000E+00\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             0.000000E+00         3.171249E+05\r\n                                  2             1.388000E-03         9.845326E+04\r\n                                  3             2.776000E-03        -4.035689E+04\r\n                                  4             4.164000E-03        -4.925758E+04\r\n                                  5             5.552000E-03        -8.206073E+04\r\n                                  6             6.940000E-03        -8.646681E+04\r\n                                  7             8.328000E-03         1.814528E+04\r\n                                  8             9.716000E-03         1.261048E+05\r\n                                  9             1.110400E-02         1.540965E+05\r\n                                 10             1.249200E-02         1.301929E+05\r\n                                 11             1.388000E-02         6.062271E+04\r\n                                 12             1.526800E-02        -5.690327E+04\r\n                                 13             1.665600E-02        -1.604271E+05\r\n                                 14             1.804400E-02        -1.898740E+05\r\n                                 15             1.943200E-02        -1.451811E+05\r\n                                 16             2.082000E-02        -4.944468E+04\r\n                                 17             2.220800E-02         6.768463E+04\r\n                                 18             2.359600E-02         1.577580E+05\r\n                                 19             2.498400E-02         1.806229E+05\r\n                                 20             2.637200E-02         1.345292E+05\r\n                                 21             2.776000E-02         4.539338E+04\r\n                                 22             2.914800E-02        -5.154821E+04\r\n                                 23             3.053601E-02        -1.196134E+05\r\n                                 24             3.192401E-02        -1.353655E+05\r\n                                 25             3.331200E-02        -1.014873E+05\r\n                                 26             3.470000E-02        -4.049111E+04\r\n                                 27             3.608800E-02         2.026535E+04\r\n                                 28             3.747600E-02         5.910531E+04\r\n                                 29             3.886400E-02         6.740855E+04\r\n                                 30             4.025200E-02         5.214193E+04\r\n                                 31             4.163999E-02         2.907404E+04\r\n                                 32             4.302799E-02         1.198544E+04\r\n                                 33             4.441599E-02         6.039787E+03\r\n                                 34             4.580399E-02         6.917350E+03\r\n                                 35             4.719199E-02         4.710083E+03\r\n                                 36             4.857999E-02        -8.709955E+03\r\n                                 37             4.996799E-02        -3.312411E+04\r\n                                 38             5.135598E-02        -5.879572E+04\r\n                                 39             5.274398E-02        -7.114071E+04\r\n                                 40             5.413198E-02        -5.843600E+04\r\n                                 41             5.551998E-02        -1.892242E+04\r\n                                 42             5.690798E-02         3.636603E+04\r\n                                 43             5.829598E-02         8.708584E+04\r\n                                 44             5.968397E-02         1.120127E+05\r\n                                 45             6.107197E-02         9.844830E+04\r\n                                 46             6.245997E-02         4.835300E+04\r\n                                 47             6.384797E-02        -2.160792E+04\r\n                                 48             6.523597E-02        -8.633956E+04\r\n                                 49             6.662397E-02        -1.222526E+05\r\n                                 50             6.801197E-02        -1.165413E+05\r\n                                 51             6.939997E-02        -7.193895E+04\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                 52             7.078797E-02        -5.170703E+03\r\n                                 53             7.217596E-02         5.999100E+04\r\n                                 54             7.356396E-02         1.019585E+05\r\n                                 55             7.495196E-02         1.089758E+05\r\n                                 56             7.633996E-02         8.230376E+04\r\n                                 57             7.772796E-02         3.418627E+04\r\n                                 58             7.911596E-02        -1.795683E+04\r\n                                 59             8.050396E-02        -5.831638E+04\r\n                                 60             8.189195E-02        -7.765264E+04\r\n                                 61             8.327995E-02        -7.483258E+04\r\n                                 62             8.466795E-02        -5.507498E+04\r\n                                 63             8.605595E-02        -2.641331E+04\r\n                                 64             8.744395E-02         3.659427E+03\r\n                                 65             8.883195E-02         2.994626E+04\r\n                                 66             9.021994E-02         4.943254E+04\r\n                                 67             9.160794E-02         6.012005E+04\r\n                                 68             9.299594E-02         6.008125E+04\r\n                                 69             9.438394E-02         4.766258E+04\r\n                                 70             9.577194E-02         2.286375E+04\r\n                                 71             9.715994E-02        -1.099199E+04\r\n                                 72             9.854794E-02        -4.657574E+04\r\n                                 73             9.993593E-02        -7.378285E+04\r\n                                 74             1.013239E-01        -1.321221E+05\r\n                                 75             1.027119E-01        -9.432895E+04\r\n                                 76             1.040999E-01         2.930060E+04\r\n                                 77             1.054879E-01         1.275696E+05\r\n                                 78             1.068759E-01         1.343836E+05\r\n                                 79             1.082639E-01         8.973870E+04\r\n                                 80             1.096519E-01         1.627036E+04\r\n                                 81             1.110399E-01        -7.325133E+04\r\n                                 82             1.124279E-01        -1.252604E+05\r\n                                 83             1.138159E-01        -1.060156E+05\r\n                                 84             1.152039E-01        -3.956612E+04\r\n                                 85             1.165919E-01         3.696648E+04\r\n                                 86             1.179799E-01         9.480388E+04\r\n                                 87             1.193679E-01         1.062910E+05\r\n                                 88             1.207559E-01         6.393413E+04\r\n                                 89             1.221439E-01        -6.478202E+03\r\n                                 90             1.235319E-01        -6.799441E+04\r\n                                 91             1.249199E-01        -9.439389E+04\r\n                                 92             1.263079E-01        -7.544641E+04\r\n                                 93             1.276959E-01        -2.102819E+04\r\n                                 94             1.290839E-01         4.057045E+04\r\n                                 95             1.304719E-01         7.882841E+04\r\n                                 96             1.318599E-01         7.757045E+04\r\n                                 97             1.332479E-01         3.995714E+04\r\n                                 98             1.346359E-01        -1.464575E+04\r\n                                 99             1.360239E-01        -5.937016E+04\r\n                                100             1.374119E-01        -7.322045E+04\r\n                                101             1.387999E-01        -5.151574E+04\r\n                                102             1.401879E-01        -6.735034E+03\r\n1     TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                    /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                                                                                   \r\n0                                                                                                                                   \r\n\r\n\r\n     ACCELERATION    CURVE   ID =      101     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                103             1.415759E-01         3.872327E+04\r\n                                104             1.429639E-01         6.330587E+04\r\n                                105             1.443519E-01         5.642220E+04\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                 \r\n DATE:  5/17/95\r\n END TIME: 16:22:16\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d13011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D13011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   13,0                                                                      \r\n     TIME  25                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                    \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                          \r\n                  3           SPC = 2                                                                    \r\n                  4           SET 1 = 11,21,31,41,51,61,71,81,91                                         \r\n                  5           DISPLACEMENT = 1                                                           \r\n                  6           ELFORCE = 1                                                                \r\n                  7      SUBCASE 20                                                                      \r\n                  8         LABEL = STATICS SOLUTION.                                                    \r\n                  9          LOAD = 100                                                                  \r\n                 10         OLOAD = ALL                                                                  \r\n                 11      SUBCASE 40                                                                      \r\n                 12         LABEL = SECOND ORDER STATICS SOLUTION.                                       \r\n                 13         DSCOEFFICIENT = DEFAULT                                                      \r\n                 14      SUBCASE 80                                                                      \r\n                 15         LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                     \r\n                 16        METHOD = 101                                                                  \r\n                 17      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   209, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR                                   .0      1.      .0      1               \r\n                    2-        CBAR    1       1       1       2                                               \r\n                    3-        CBAR    2       1       2       3                                               \r\n                    4-        CBAR    3       1       3       4                                               \r\n                    5-        CBAR    4       1       4       5                                               \r\n                    6-        CBAR    5       1       5       6                                               \r\n                    7-        CBAR    6       1       6       7                                               \r\n                    8-        CBAR    7       1       7       8                                               \r\n                    9-        CBAR    8       1       8       9                                               \r\n                   10-        CBAR    9       1       9       10                                              \r\n                   11-        CBAR    10      1       10      11                                              \r\n                   12-        CBAR    11      1       11      12                                              \r\n                   13-        CBAR    12      1       12      13                                              \r\n                   14-        CBAR    13      1       13      14                                              \r\n                   15-        CBAR    14      1       14      15                                              \r\n                   16-        CBAR    15      1       15      16                                              \r\n                   17-        CBAR    16      1       16      17                                              \r\n                   18-        CBAR    17      1       17      18                                              \r\n                   19-        CBAR    18      1       18      19                                              \r\n                   20-        CBAR    19      1       19      20                                              \r\n                   21-        CBAR    20      1       20      21                                              \r\n                   22-        CBAR    21      1       21      22                                              \r\n                   23-        CBAR    22      1       22      23                                              \r\n                   24-        CBAR    23      1       23      24                                              \r\n                   25-        CBAR    24      1       24      25                                              \r\n                   26-        CBAR    25      1       25      26                                              \r\n                   27-        CBAR    26      1       26      27                                              \r\n                   28-        CBAR    27      1       27      28                                              \r\n                   29-        CBAR    28      1       28      29                                              \r\n                   30-        CBAR    29      1       29      30                                              \r\n                   31-        CBAR    30      1       30      31                                              \r\n                   32-        CBAR    31      1       31      32                                              \r\n                   33-        CBAR    32      1       32      33                                              \r\n                   34-        CBAR    33      1       33      34                                              \r\n                   35-        CBAR    34      1       34      35                                              \r\n                   36-        CBAR    35      1       35      36                                              \r\n                   37-        CBAR    36      1       36      37                                              \r\n                   38-        CBAR    37      1       37      38                                              \r\n                   39-        CBAR    38      1       38      39                                              \r\n                   40-        CBAR    39      1       39      40                                              \r\n                   41-        CBAR    40      1       40      41                                              \r\n                   42-        CBAR    41      1       41      42                                              \r\n                   43-        CBAR    42      1       42      43                                              \r\n                   44-        CBAR    43      1       43      44                                              \r\n                   45-        CBAR    44      1       44      45                                              \r\n                   46-        CBAR    45      1       45      46                                              \r\n                   47-        CBAR    46      1       46      47                                              \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CBAR    47      1       47      48                                              \r\n                   49-        CBAR    48      1       48      49                                              \r\n                   50-        CBAR    49      1       49      50                                              \r\n                   51-        CBAR    50      1       50      51                                              \r\n                   52-        CBAR    51      1       51      52                                              \r\n                   53-        CBAR    52      1       52      53                                              \r\n                   54-        CBAR    53      1       53      54                                              \r\n                   55-        CBAR    54      1       54      55                                              \r\n                   56-        CBAR    55      1       55      56                                              \r\n                   57-        CBAR    56      1       56      57                                              \r\n                   58-        CBAR    57      1       57      58                                              \r\n                   59-        CBAR    58      1       58      59                                              \r\n                   60-        CBAR    59      1       59      60                                              \r\n                   61-        CBAR    60      1       60      61                                              \r\n                   62-        CBAR    61      1       61      62                                              \r\n                   63-        CBAR    62      1       62      63                                              \r\n                   64-        CBAR    63      1       63      64                                              \r\n                   65-        CBAR    64      1       64      65                                              \r\n                   66-        CBAR    65      1       65      66                                              \r\n                   67-        CBAR    66      1       66      67                                              \r\n                   68-        CBAR    67      1       67      68                                              \r\n                   69-        CBAR    68      1       68      69                                              \r\n                   70-        CBAR    69      1       69      70                                              \r\n                   71-        CBAR    70      1       70      71                                              \r\n                   72-        CBAR    71      1       71      72                                              \r\n                   73-        CBAR    72      1       72      73                                              \r\n                   74-        CBAR    73      1       73      74                                              \r\n                   75-        CBAR    74      1       74      75                                              \r\n                   76-        CBAR    75      1       75      76                                              \r\n                   77-        CBAR    76      1       76      77                                              \r\n                   78-        CBAR    77      1       77      78                                              \r\n                   79-        CBAR    78      1       78      79                                              \r\n                   80-        CBAR    79      1       79      80                                              \r\n                   81-        CBAR    80      1       80      81                                              \r\n                   82-        CBAR    81      1       81      82                                              \r\n                   83-        CBAR    82      1       82      83                                              \r\n                   84-        CBAR    83      1       83      84                                              \r\n                   85-        CBAR    84      1       84      85                                              \r\n                   86-        CBAR    85      1       85      86                                              \r\n                   87-        CBAR    86      1       86      87                                              \r\n                   88-        CBAR    87      1       87      88                                              \r\n                   89-        CBAR    88      1       88      89                                              \r\n                   90-        CBAR    89      1       89      90                                              \r\n                   91-        CBAR    90      1       90      91                                              \r\n                   92-        CBAR    91      1       91      92                                              \r\n                   93-        CBAR    92      1       92      93                                              \r\n                   94-        CBAR    93      1       93      94                                              \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CBAR    94      1       94      95                                              \r\n                   96-        CBAR    95      1       95      96                                              \r\n                   97-        CBAR    96      1       96      97                                              \r\n                   98-        CBAR    97      1       97      98                                              \r\n                   99-        CBAR    98      1       98      99                                              \r\n                  100-        CBAR    99      1       99      100                                             \r\n                  101-        CBAR    100     1       100     101                                             \r\n                  102-        EIGR    101     INV     .0      200.0   3       3       3       1.-4    +EIG1   \r\n                  103-        +EIG1   MAX                                                                     \r\n                  104-        FORCE1  100     101     3423.17 101     1                                       \r\n                  105-        GRDSET                                                  345                     \r\n                  106-        GRID    1               .0                                                      \r\n                  107-        GRID    2               1.0                                                     \r\n                  108-        GRID    3               2.0                                                     \r\n                  109-        GRID    4               3.0                                                     \r\n                  110-        GRID    5               4.0                                                     \r\n                  111-        GRID    6               5.0                                                     \r\n                  112-        GRID    7               6.0                                                     \r\n                  113-        GRID    8               7.0                                                     \r\n                  114-        GRID    9               8.0                                                     \r\n                  115-        GRID    10              9.0                                                     \r\n                  116-        GRID    11              10.0                                                    \r\n                  117-        GRID    12              11.0                                                    \r\n                  118-        GRID    13              12.0                                                    \r\n                  119-        GRID    14              13.0                                                    \r\n                  120-        GRID    15              14.0                                                    \r\n                  121-        GRID    16              15.0                                                    \r\n                  122-        GRID    17              16.0                                                    \r\n                  123-        GRID    18              17.0                                                    \r\n                  124-        GRID    19              18.0                                                    \r\n                  125-        GRID    20              19.0                                                    \r\n                  126-        GRID    21              20.0                                                    \r\n                  127-        GRID    22              21.0                                                    \r\n                  128-        GRID    23              22.0                                                    \r\n                  129-        GRID    24              23.0                                                    \r\n                  130-        GRID    25              24.0                                                    \r\n                  131-        GRID    26              25.0                                                    \r\n                  132-        GRID    27              26.0                                                    \r\n                  133-        GRID    28              27.0                                                    \r\n                  134-        GRID    29              28.0                                                    \r\n                  135-        GRID    30              29.0                                                    \r\n                  136-        GRID    31              30.0                                                    \r\n                  137-        GRID    32              31.0                                                    \r\n                  138-        GRID    33              32.0                                                    \r\n                  139-        GRID    34              33.0                                                    \r\n                  140-        GRID    35              34.0                                                    \r\n                  141-        GRID    36              35.0                                                    \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    37              36.0                                                    \r\n                  143-        GRID    38              37.0                                                    \r\n                  144-        GRID    39              38.0                                                    \r\n                  145-        GRID    40              39.0                                                    \r\n                  146-        GRID    41              40.0                                                    \r\n                  147-        GRID    42              41.0                                                    \r\n                  148-        GRID    43              42.0                                                    \r\n                  149-        GRID    44              43.0                                                    \r\n                  150-        GRID    45              44.0                                                    \r\n                  151-        GRID    46              45.0                                                    \r\n                  152-        GRID    47              46.0                                                    \r\n                  153-        GRID    48              47.0                                                    \r\n                  154-        GRID    49              48.0                                                    \r\n                  155-        GRID    50              49.0                                                    \r\n                  156-        GRID    51              50.0                                                    \r\n                  157-        GRID    52              51.0                                                    \r\n                  158-        GRID    53              52.0                                                    \r\n                  159-        GRID    54              53.0                                                    \r\n                  160-        GRID    55              54.0                                                    \r\n                  161-        GRID    56              55.0                                                    \r\n                  162-        GRID    57              56.0                                                    \r\n                  163-        GRID    58              57.0                                                    \r\n                  164-        GRID    59              58.0                                                    \r\n                  165-        GRID    60              59.0                                                    \r\n                  166-        GRID    61              60.0                                                    \r\n                  167-        GRID    62              61.0                                                    \r\n                  168-        GRID    63              62.0                                                    \r\n                  169-        GRID    64              63.0                                                    \r\n                  170-        GRID    65              64.0                                                    \r\n                  171-        GRID    66              65.0                                                    \r\n                  172-        GRID    67              66.0                                                    \r\n                  173-        GRID    68              67.0                                                    \r\n                  174-        GRID    69              68.0                                                    \r\n                  175-        GRID    70              69.0                                                    \r\n                  176-        GRID    71              70.0                                                    \r\n                  177-        GRID    72              71.0                                                    \r\n                  178-        GRID    73              72.0                                                    \r\n                  179-        GRID    74              73.0                                                    \r\n                  180-        GRID    75              74.0                                                    \r\n                  181-        GRID    76              75.0                                                    \r\n                  182-        GRID    77              76.0                                                    \r\n                  183-        GRID    78              77.0                                                    \r\n                  184-        GRID    79              78.0                                                    \r\n                  185-        GRID    80              79.0                                                    \r\n                  186-        GRID    81              80.0                                                    \r\n                  187-        GRID    82              81.0                                                    \r\n                  188-        GRID    83              82.0                                                    \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    84              83.0                                                    \r\n                  190-        GRID    85              84.0                                                    \r\n                  191-        GRID    86              85.0                                                    \r\n                  192-        GRID    87              86.0                                                    \r\n                  193-        GRID    88              87.0                                                    \r\n                  194-        GRID    89              88.0                                                    \r\n                  195-        GRID    90              89.0                                                    \r\n                  196-        GRID    91              90.0                                                    \r\n                  197-        GRID    92              91.0                                                    \r\n                  198-        GRID    93              92.0                                                    \r\n                  199-        GRID    94              93.0                                                    \r\n                  200-        GRID    95              94.0                                                    \r\n                  201-        GRID    96              95.0                                                    \r\n                  202-        GRID    97              96.0                                                    \r\n                  203-        GRID    98              97.0                                                    \r\n                  204-        GRID    99              98.0                                                    \r\n                  205-        GRID    100             99.0                                                    \r\n                  206-        GRID    101             100.0                                                   \r\n                  207-        MAT1    22      10.4E6          .3      2.0E-4                                  \r\n                  208-        PBAR    1       22      2.0     .666667 .666667                                 \r\n                  209-        SPC     2       1       12      .0      101     2       .0                      \r\n                              ENDDATA\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE            201\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.990\r\n                                        RMS WAVEFRONT    1.993\r\n                                        RMS BANDWIDTH    1.993\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            2\r\n                                        PROFILE            201\r\n                                        MAX WAVEFRONT        2\r\n                                        AVG WAVEFRONT    1.990\r\n                                        RMS WAVEFRONT    1.993\r\n                                        RMS BANDWIDTH    1.993\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        2         2\r\n                                        PROFILE (P)                        201       201\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            2         2\r\n                                        AVERAGE WAVEFRONT (C-AVG)        1.990     1.990\r\n                                        RMS WAVEFRONT (C-RMS)            1.993     1.993\r\n                                        RMS BANDWITCH (B-RMS)            1.993     1.993\r\n                                        NUMBER OF GRID POINTS (N)                    101\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               100\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           2\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                       100\r\n                                        MATRIX DENSITY, PERCENT                    2.951\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6605491E-14\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     STATICS SOLUTION.                                                                                      SUBCASE 20             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G     -1.645755E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G     -3.291510E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G     -4.937264E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            41      G     -6.583019E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -8.228774E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            61      G     -9.874528E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G     -1.152028E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            81      G     -1.316604E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            91      G     -1.481179E-02   0.0            0.0            0.0            0.0            0.0                           \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     STATICS SOLUTION.                                                                                      SUBCASE 20             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -3.423170E+03   0.0            0.0            0.0            0.0            0.0                           \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     STATICS SOLUTION.                                                                                      SUBCASE 20             \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           11     0.0           0.0            0.0           0.0            0.0           0.0           -3.423168E+03   0.0         \r\n           21     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           31     0.0           0.0            0.0           0.0            0.0           0.0           -3.423180E+03   0.0         \r\n           41     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           51     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n           61     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           71     0.0           0.0            0.0           0.0            0.0           0.0           -3.423188E+03   0.0         \r\n           81     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n           91     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    DET                 2.938762E+05\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    POWER                   2206\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6605491E-14\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     SECOND ORDER STATICS SOLUTION.                                                                         SUBCASE 40             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G     -1.645755E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            21      G     -3.291510E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            31      G     -4.937264E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            41      G     -6.583019E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            51      G     -8.228774E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            61      G     -9.874528E-03   0.0            0.0            0.0            0.0            0.0                           \r\n            71      G     -1.152028E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            81      G     -1.316604E-02   0.0            0.0            0.0            0.0            0.0                           \r\n            91      G     -1.481179E-02   0.0            0.0            0.0            0.0            0.0                           \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     SECOND ORDER STATICS SOLUTION.                                                                         SUBCASE 40             \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           11     0.0           0.0            0.0           0.0            0.0           0.0           -3.423168E+03   0.0         \r\n           21     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           31     0.0           0.0            0.0           0.0            0.0           0.0           -3.423180E+03   0.0         \r\n           41     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           51     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n           61     0.0           0.0            0.0           0.0            0.0           0.0           -3.423172E+03   0.0         \r\n           71     0.0           0.0            0.0           0.0            0.0           0.0           -3.423188E+03   0.0         \r\n           81     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n           91     0.0           0.0            0.0           0.0            0.0           0.0           -3.423156E+03   0.0         \r\n                        2 ROOTS BELOW   7.895683E+05\r\n                        3 ROOTS BELOW   1.300175E+06\r\n                        1 ROOTS BELOW   2.360860E+05\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         3\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         3\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        20\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         6*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.93E-08\r\n0                                                                              . . .         2\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         1\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                       NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND   *\r\n                                     *  AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX  *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         3        8.437918E+03        9.185814E+01        1.461968E+01        2.000000E-02        1.687584E+02             \r\n        2         2        2.363627E+05        4.861714E+02        7.737659E+01        1.999999E-02        4.727252E+03             \r\n        3         1        1.291607E+06        1.136489E+03        1.808778E+02        2.000000E-02        2.583214E+04             \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.843792E+04    (CYCLIC FREQUENCY =  1.461968E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      2.957333E-18   3.090170E-01   0.0            0.0            0.0            2.987832E-02                  \r\n            21      G      5.841847E-18   5.877853E-01   0.0            0.0            0.0            2.541602E-02                  \r\n            31      G      8.582515E-18   8.090171E-01   0.0            0.0            0.0            1.846582E-02                  \r\n            41      G      1.111185E-17   9.510566E-01   0.0            0.0            0.0            9.708056E-03                  \r\n            51      G      1.336758E-17   1.000000E+00   0.0            0.0            0.0           -3.963003E-10                  \r\n            61      G      1.529415E-17   9.510565E-01   0.0            0.0            0.0           -9.708056E-03                  \r\n            71      G      1.684414E-17   8.090171E-01   0.0            0.0            0.0           -1.846582E-02                  \r\n            81      G      1.797936E-17   5.877853E-01   0.0            0.0            0.0           -2.541602E-02                  \r\n            91      G      1.867187E-17   3.090170E-01   0.0            0.0            0.0           -2.987832E-02                  \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.236363E+06    (CYCLIC FREQUENCY =  7.737659E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G     -1.814206E-28  -5.877850E-01   0.0            0.0            0.0           -5.083202E-02                  \r\n            21      G     -3.583741E-28  -9.510562E-01   0.0            0.0            0.0           -1.941611E-02                  \r\n            31      G     -5.265032E-28  -9.510563E-01   0.0            0.0            0.0            1.941609E-02                  \r\n            41      G     -6.816679E-28  -5.877853E-01   0.0            0.0            0.0            5.083201E-02                  \r\n            51      G     -8.200478E-28  -2.232630E-07   0.0            0.0            0.0            6.283184E-02                  \r\n            61      G     -9.382355E-28   5.877850E-01   0.0            0.0            0.0            5.083204E-02                  \r\n            71      G     -1.033320E-27   9.510565E-01   0.0            0.0            0.0            1.941613E-02                  \r\n            81      G     -1.102962E-27   9.510567E-01   0.0            0.0            0.0           -1.941610E-02                  \r\n            91      G     -1.145445E-27   5.877854E-01   0.0            0.0            0.0           -5.083204E-02                  \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.129161E+07    (CYCLIC FREQUENCY =  1.808778E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            11      G      8.480357E-22  -8.090171E-01   0.0            0.0            0.0           -5.539744E-02                  \r\n            21      G      1.675190E-21  -9.510567E-01   0.0            0.0            0.0            2.912415E-02                  \r\n            31      G      2.461096E-21  -3.090172E-01   0.0            0.0            0.0            8.963493E-02                  \r\n            41      G      3.186401E-21   5.877851E-01   0.0            0.0            0.0            7.624803E-02                  \r\n            51      G      3.833246E-21   1.000000E+00   0.0            0.0            0.0            1.407593E-08                  \r\n            61      G      4.385704E-21   5.877854E-01   0.0            0.0            0.0           -7.624801E-02                  \r\n            71      G      4.830172E-21  -3.090168E-01   0.0            0.0            0.0           -8.963493E-02                  \r\n            81      G      5.155704E-21  -9.510563E-01   0.0            0.0            0.0           -2.912416E-02                  \r\n            91      G      5.354287E-21  -8.090168E-01   0.0            0.0            0.0            5.539742E-02                  \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.843792E+04    (CYCLIC FREQUENCY =  1.461968E+01 HZ)\r\n\r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           11    -2.114000E+03  0.0           -2.318000E+03  0.0            2.040000E+02  0.0            6.092737E-12   0.0         \r\n           21    -4.022000E+03  0.0           -4.194000E+03  0.0            1.720000E+02  0.0            5.859077E-12   0.0         \r\n           31    -5.536000E+03  0.0           -5.656000E+03  0.0            1.200000E+02  0.0            5.481157E-12   0.0         \r\n           41    -6.512000E+03  0.0           -6.576000E+03  0.0            6.400000E+01  0.0            4.968262E-12   0.0         \r\n           51    -6.844000E+03  0.0           -6.844000E+03  0.0            0.0           0.0            4.333034E-12   0.0         \r\n           61    -6.512000E+03  0.0           -6.440000E+03  0.0           -7.200000E+01  0.0            3.591127E-12   0.0         \r\n           71    -5.540000E+03  0.0           -5.404000E+03  0.0           -1.360000E+02  0.0            2.760764E-12   0.0         \r\n           81    -4.026000E+03  0.0           -3.846000E+03  0.0           -1.800000E+02  0.0            1.862482E-12   0.0         \r\n           91    -2.117000E+03  0.0           -1.909000E+03  0.0           -2.080000E+02  0.0            9.182655E-13   0.0         \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.236363E+06    (CYCLIC FREQUENCY =  7.737659E+01 HZ)\r\n\r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           11     1.609200E+04  0.0            1.745600E+04  0.0           -1.364000E+03  0.0           -3.737653E-22   0.0         \r\n           21     2.603600E+04  0.0            2.651600E+04  0.0           -4.800000E+02  0.0           -3.594318E-22   0.0         \r\n           31     2.603600E+04  0.0            2.546000E+04  0.0            5.760000E+02  0.0           -3.362465E-22   0.0         \r\n           41     1.609400E+04  0.0            1.467000E+04  0.0            1.424000E+03  0.0           -3.047837E-22   0.0         \r\n           51     0.0           0.0           -1.719250E+03  0.0            1.719250E+03  0.0           -2.658158E-22   0.0         \r\n           61    -1.609000E+04  0.0           -1.745000E+04  0.0            1.360000E+03  0.0           -2.202998E-22   0.0         \r\n           71    -2.604400E+04  0.0           -2.652400E+04  0.0            4.800000E+02  0.0           -1.693668E-22   0.0         \r\n           81    -2.604400E+04  0.0           -2.545200E+04  0.0           -5.920000E+02  0.0           -1.142576E-22   0.0         \r\n           91    -1.609800E+04  0.0           -1.467000E+04  0.0           -1.428000E+03  0.0           -5.633552E-23   0.0         \r\n1     NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                                                       SUBCASE 80             \r\n      EIGENVALUE =  0.129161E+07    (CYCLIC FREQUENCY =  1.808778E+02 HZ)\r\n\r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n           11     4.986000E+04  0.0            5.305200E+04  0.0           -3.192000E+03  0.0            1.747136E-15   0.0         \r\n           21     5.861200E+04  0.0            5.656400E+04  0.0            2.048000E+03  0.0            1.680137E-15   0.0         \r\n           31     1.904500E+04  0.0            1.344500E+04  0.0            5.600000E+03  0.0            1.571761E-15   0.0         \r\n           41    -3.622600E+04  0.0           -4.075800E+04  0.0            4.532000E+03  0.0            1.424682E-15   0.0         \r\n           51    -6.163200E+04  0.0           -6.136000E+04  0.0           -2.720000E+02  0.0            1.242530E-15   0.0         \r\n           61    -3.622600E+04  0.0           -3.137400E+04  0.0           -4.852000E+03  0.0            1.029782E-15   0.0         \r\n           71     1.904500E+04  0.0            2.447700E+04  0.0           -5.432000E+03  0.0            7.916777E-16   0.0         \r\n           81     5.861600E+04  0.0            6.015200E+04  0.0           -1.536000E+03  0.0            5.340848E-16   0.0         \r\n           91     4.985800E+04  0.0            4.623400E+04  0.0            3.624000E+03  0.0            2.633188E-16   0.0         \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                  \r\n DATE:  5/17/95\r\n END TIME: 16:23:19\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d14011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D14011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   14,0                                                                      \r\n     TIME  15                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     DIHEDRAL CYCLIC SYMMETRY                                                                                                      \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = STATIC ANALYSIS OF A CIRCULAR PLATE                                  \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                          \r\n                  3      LABEL    = DIHEDRAL CYCLIC SYMMETRY                                             \r\n                  4         SPC   = 101                                                                  \r\n                  5      OUTPUT                                                                          \r\n                  6         OLOAD = ALL                                                                  \r\n                  7         DISP  = ALL                                                                  \r\n                  8         SPCF  = ALL                                                                  \r\n                  9      SUBCASE  1                                                                      \r\n                 10      LABEL    = SEGMENT  1 RIGHT                                                     \r\n                 11      SUBCASE  2                                                                      \r\n                 12      LABEL    = SEGMENT  1 LEFT                                                      \r\n                 13      SUBCASE  3                                                                      \r\n                 14      LABEL    = SEGMENT  2 RIGHT                                                     \r\n                 15          LOAD = 102                                                                  \r\n                 16      SUBCASE  4                                                                      \r\n                 17      LABEL    = SEGMENT  2 LEFT                                                      \r\n                 18          LOAD = 102                                                                  \r\n                 19      SUBCASE  5                                                                      \r\n                 20      LABEL    = SEGMENT  3 RIGHT                                                     \r\n                 21      SUBCASE  6                                                                      \r\n                 22      LABEL    = SEGMENT  3 LEFT                                                      \r\n                 23      SUBCASE  7                                                                      \r\n                 24      LABEL    = SEGMENT  4 RIGHT                                                     \r\n                 25      SUBCASE  8                                                                      \r\n                 26      LABEL    = SEGMENT  4 LEFT                                                      \r\n                 27      SUBCASE  9                                                                      \r\n                 28      LABEL    = SEGMENT  5 RIGHT                                                     \r\n                 29      SUBCASE  10                                                                     \r\n                 30      LABEL    = SEGMENT  5 LEFT                                                      \r\n                 31      SUBCASE  11                                                                     \r\n                 32      LABEL    = SEGMENT  6 RIGHT                                                     \r\n                 33      SUBCASE  12                                                                     \r\n                 34      LABEL    = SEGMENT  6 LEFT                                                      \r\n                 35      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    58, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     DIHEDRAL CYCLIC SYMMETRY                                                                                                      \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       1       10      20      .0      .0      1.      1               \r\n                    2-        CBAR    2       1       20      30      .0      .0      1.      1               \r\n                    3-        CBAR    3       1       30      40      .0      .0      1.      1               \r\n                    4-        CBAR    4       1       40      50      .0      .0      1.      1               \r\n                    5-        CBAR    5       1       50      60      .0      .0      1.      1               \r\n                    6-        CNGRNT  10      11                                                              \r\n                    7-        CNGRNT  20      21                                                              \r\n                    8-        CNGRNT  30      31                                                              \r\n                    9-        CNGRNT  40      41                                                              \r\n                   10-        CNGRNT  50      51                                                              \r\n                   11-        CORD2C  1       0       .0      .0      .0      .0      .0      1.      +C1     \r\n                   12-        +C1     1.      .0      .0                                                      \r\n                   13-        CQUAD2  10      1       10      11      21      20                              \r\n                   14-        CQUAD2  11      1       11      12      22      21                              \r\n                   15-        CQUAD2  20      1       20      21      31      30                              \r\n                   16-        CQUAD2  21      1       21      22      32      31                              \r\n                   17-        CQUAD2  30      1       30      31      41      40                              \r\n                   18-        CQUAD2  31      1       31      32      42      41                              \r\n                   19-        CQUAD2  40      1       40      41      51      50                              \r\n                   20-        CQUAD2  41      1       41      42      52      51                              \r\n                   21-        CQUAD2  50      1       50      51      61      60                              \r\n                   22-        CQUAD2  51      1       51      52      62      61                              \r\n                   23-        CYJOIN  1       C       10      20      30      40      50      60      CYC SYM \r\n                   24-        CYJOIN  2       C       12      22      32      42      52      62      CYC SYM \r\n                   25-        GRDSET          1                               1                               \r\n                   26-        GRID    10              1.0     .0      .0                                      \r\n                   27-        GRID    11              1.0     15.0    .0                                      \r\n                   28-        GRID    12              1.0     30.0    .0                                      \r\n                   29-        GRID    20              .68     .0      .0                                      \r\n                   30-        GRID    21              .68     15.0    .0                                      \r\n                   31-        GRID    22              .68     30.0    .0                                      \r\n                   32-        GRID    30              .46     .0      .0                                      \r\n                   33-        GRID    31              .46     15.0    .0                                      \r\n                   34-        GRID    32              .46     30.0    .0                                      \r\n                   35-        GRID    40              .31     .0      .0                                      \r\n                   36-        GRID    41              .31     15.0    .0                                      \r\n                   37-        GRID    42              .31     30.0    .0                                      \r\n                   38-        GRID    50              .21     .0      .0                                      \r\n                   39-        GRID    51              .21     15.0    .0                                      \r\n                   40-        GRID    52              .21     30.0    .0                                      \r\n                   41-        GRID    60              .14     .0      .0                                      \r\n                   42-        GRID    61              .14     15.0    .0                                      \r\n                   43-        GRID    62              .14     30.0    .0                                      \r\n                   44-        MAT1    1       10.6 +6         .325    2.59 -4 12.9 -6                         \r\n                   45-        PARAM   CTYPE   DRL                                                     CYC SYM \r\n                   46-        PARAM   KMAX    2                                                       CYC SYM \r\n                   47-        PARAM   NLOAD   1                                                       CYC SYM \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n\r\n      DIHEDRAL CYCLIC SYMMETRY                                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        PARAM   NSEGS   6                                                       CYC SYM \r\n                   49-        PBAR    1       1       1.8 -3  5.4 -7  5.4 -7  1.0 -6                  +PB1    \r\n                   50-        +PB1    .0      .03     .03     .0      .03     .03     .03     -.03            \r\n                   51-        PLOAD2  102     200.    10      20      30      40      50                      \r\n                   52-        PLOAD2  102     200.    11      21      31      41      51                      \r\n                   53-        PQUAD2  1       1       .01                                                     \r\n                   54-        SPC1    110     12346   10      11      12                                      \r\n                   55-        SPC1    112     126     10      11      12      20      21      22              \r\n                   56-        SPC1    112     126     30      31      32      40      41      42              \r\n                   57-        SPC1    112     126     50      51      52      60      61      62              \r\n                   58-        SPCADD  101     110     112                                                     \r\n                              ENDDATA\r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     DIHEDRAL CYCLIC SYMMETRY                                                                                                      \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             75\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    4.167\r\n                                        RMS WAVEFRONT    4.314\r\n                                        RMS BANDWIDTH    4.340\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            5\r\n                                        PROFILE             75\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    4.167\r\n                                        RMS WAVEFRONT    4.314\r\n                                        RMS BANDWIDTH    4.340\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        5         5\r\n                                        PROFILE (P)                         75        75\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         5\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.167     4.167\r\n                                        RMS WAVEFRONT (C-RMS)            4.314     4.314\r\n                                        RMS BANDWITCH (B-RMS)            4.340     4.340\r\n                                        NUMBER OF GRID POINTS (N)                     18\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                15\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        47\r\n                                        MATRIX DENSITY, PERCENT                   34.568\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID       10\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   7.8874060E-12\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.3753489E-13\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -1.1051278E-13\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.3485315E-14\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   1.5350107E-14\r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  1 RIGHT                                                                                       SUBCASE  1             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.704151E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.570597E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.537518E+00   0.0                           \r\n            20      G      0.0            0.0            8.591709E-01  -8.520176E-02   2.639599E+00   0.0                           \r\n            21      G      0.0            0.0            8.499529E-01  -2.960548E-02   2.611420E+00   0.0                           \r\n            22      G      0.0            0.0            8.418425E-01  -6.794942E-02   2.578168E+00   0.0                           \r\n            30      G      0.0            0.0            1.429755E+00  -1.235337E-01   2.543543E+00   0.0                           \r\n            31      G      0.0            0.0            1.418559E+00  -8.465990E-02   2.480609E+00   0.0                           \r\n            32      G      0.0            0.0            1.405209E+00  -1.444451E-01   2.457530E+00   0.0                           \r\n            40      G      0.0            0.0            1.807006E+00  -1.404946E-01   2.488273E+00   0.0                           \r\n            41      G      0.0            0.0            1.794705E+00  -1.700269E-01   2.438059E+00   0.0                           \r\n            42      G      0.0            0.0            1.778308E+00  -2.329114E-01   2.424057E+00   0.0                           \r\n            50      G      0.0            0.0            2.054798E+00  -1.489652E-01   2.469095E+00   0.0                           \r\n            51      G      0.0            0.0            2.041777E+00  -2.939673E-01   2.390893E+00   0.0                           \r\n            52      G      0.0            0.0            2.023903E+00  -3.485231E-01   2.400145E+00   0.0                           \r\n            60      G      0.0            0.0            2.227529E+00  -1.527064E-01   2.466277E+00   0.0                           \r\n            61      G      0.0            0.0            2.215657E+00  -4.109062E-01   2.470276E+00   0.0                           \r\n            62      G      0.0            0.0            2.198039E+00  -5.063493E-01   2.491856E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  1 LEFT                                                                                        SUBCASE  2             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.529001E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.487567E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.537518E+00   0.0                           \r\n            20      G      0.0            0.0            8.098704E-01   7.301385E-02   2.527312E+00   0.0                           \r\n            21      G      0.0            0.0            8.260631E-01   1.118910E-01   2.548529E+00   0.0                           \r\n            22      G      0.0            0.0            8.418425E-01   6.794942E-02   2.578168E+00   0.0                           \r\n            30      G      0.0            0.0            1.365307E+00   1.146068E-01   2.518203E+00   0.0                           \r\n            31      G      0.0            0.0            1.384778E+00   1.892099E-01   2.461961E+00   0.0                           \r\n            32      G      0.0            0.0            1.405209E+00   1.444451E-01   2.457530E+00   0.0                           \r\n            40      G      0.0            0.0            1.742529E+00   1.388522E-01   2.509851E+00   0.0                           \r\n            41      G      0.0            0.0            1.758546E+00   2.444614E-01   2.445217E+00   0.0                           \r\n            42      G      0.0            0.0            1.778308E+00   2.329114E-01   2.424057E+00   0.0                           \r\n            50      G      0.0            0.0            1.993389E+00   1.527640E-01   2.506962E+00   0.0                           \r\n            51      G      0.0            0.0            2.005807E+00   3.030707E-01   2.434576E+00   0.0                           \r\n            52      G      0.0            0.0            2.023903E+00   3.485231E-01   2.400145E+00   0.0                           \r\n            60      G      0.0            0.0            2.168903E+00   1.591318E-01   2.507204E+00   0.0                           \r\n            61      G      0.0            0.0            2.180373E+00   4.240170E-01   2.510406E+00   0.0                           \r\n            62      G      0.0            0.0            2.198039E+00   5.063493E-01   2.491856E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 RIGHT                                                                                       SUBCASE  3             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.724071E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.787945E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.846493E+00   0.0                           \r\n            20      G      0.0            0.0            8.654410E-01   5.478878E-02   2.658608E+00   0.0                           \r\n            21      G      0.0            0.0            8.999742E-01   2.363210E-01   2.677019E+00   0.0                           \r\n            22      G      0.0            0.0            9.211573E-01  -1.247810E-02   2.668724E+00   0.0                           \r\n            30      G      0.0            0.0            1.440028E+00   7.069373E-02   2.560843E+00   0.0                           \r\n            31      G      0.0            0.0            1.462626E+00   2.084255E-01   2.393745E+00   0.0                           \r\n            32      G      0.0            0.0            1.474797E+00  -3.936955E-02   2.313599E+00   0.0                           \r\n            40      G      0.0            0.0            1.819767E+00   7.188975E-02   2.504165E+00   0.0                           \r\n            41      G      0.0            0.0            1.827736E+00   9.065955E-02   2.376126E+00   0.0                           \r\n            42      G      0.0            0.0            1.828517E+00  -8.643451E-02   2.308295E+00   0.0                           \r\n            50      G      0.0            0.0            2.069109E+00   7.068379E-02   2.484266E+00   0.0                           \r\n            51      G      0.0            0.0            2.069627E+00  -3.641295E-02   2.350338E+00   0.0                           \r\n            52      G      0.0            0.0            2.064318E+00  -1.591761E-01   2.312408E+00   0.0                           \r\n            60      G      0.0            0.0            2.242894E+00   6.992778E-02   2.481261E+00   0.0                           \r\n            61      G      0.0            0.0            2.240858E+00  -1.250292E-01   2.440074E+00   0.0                           \r\n            62      G      0.0            0.0            2.233295E+00  -2.633290E-01   2.423925E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 LEFT                                                                                        SUBCASE  4             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.684232E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.771978E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.846493E+00   0.0                           \r\n            20      G      0.0            0.0            8.529007E-01   1.156147E-01   2.620589E+00   0.0                           \r\n            21      G      0.0            0.0            8.950950E-01   2.693222E-01   2.657194E+00   0.0                           \r\n            22      G      0.0            0.0            9.211573E-01   1.247810E-02   2.668724E+00   0.0                           \r\n            30      G      0.0            0.0            1.419482E+00   1.763737E-01   2.526244E+00   0.0                           \r\n            31      G      0.0            0.0            1.453080E+00   2.922194E-01   2.371307E+00   0.0                           \r\n            32      G      0.0            0.0            1.474797E+00   3.936955E-02   2.313599E+00   0.0                           \r\n            40      G      0.0            0.0            1.794246E+00   2.090995E-01   2.472380E+00   0.0                           \r\n            41      G      0.0            0.0            1.814138E+00   2.520227E-01   2.352566E+00   0.0                           \r\n            42      G      0.0            0.0            1.828517E+00   8.643451E-02   2.308295E+00   0.0                           \r\n            50      G      0.0            0.0            2.040487E+00   2.272466E-01   2.453923E+00   0.0                           \r\n            51      G      0.0            0.0            2.053174E+00   2.412030E-01   2.342133E+00   0.0                           \r\n            52      G      0.0            0.0            2.064318E+00   1.591761E-01   2.312408E+00   0.0                           \r\n            60      G      0.0            0.0            2.212164E+00   2.354850E-01   2.451294E+00   0.0                           \r\n            61      G      0.0            0.0            2.222473E+00   3.107352E-01   2.431482E+00   0.0                           \r\n            62      G      0.0            0.0            2.233295E+00   2.633290E-01   2.423925E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  3 RIGHT                                                                                       SUBCASE  5             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.616576E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.529082E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.537518E+00   0.0                           \r\n            20      G      0.0            0.0            8.345206E-01  -6.093952E-03   2.583455E+00   0.0                           \r\n            21      G      0.0            0.0            8.380080E-01   4.114275E-02   2.579974E+00   0.0                           \r\n            22      G      0.0            0.0            8.418425E-01  -2.255141E-17   2.578168E+00   0.0                           \r\n            30      G      0.0            0.0            1.397531E+00  -4.463441E-03   2.530873E+00   0.0                           \r\n            31      G      0.0            0.0            1.401668E+00   5.227499E-02   2.471285E+00   0.0                           \r\n            32      G      0.0            0.0            1.405209E+00  -2.775558E-17   2.457530E+00   0.0                           \r\n            40      G      0.0            0.0            1.774768E+00  -8.212163E-04   2.499062E+00   0.0                           \r\n            41      G      0.0            0.0            1.776626E+00   3.721724E-02   2.441638E+00   0.0                           \r\n            42      G      0.0            0.0            1.778308E+00  -6.245005E-17   2.424057E+00   0.0                           \r\n            50      G      0.0            0.0            2.024094E+00   1.899396E-03   2.488028E+00   0.0                           \r\n            51      G      0.0            0.0            2.023792E+00   4.551693E-03   2.412735E+00   0.0                           \r\n            52      G      0.0            0.0            2.023903E+00  -7.632783E-17   2.400145E+00   0.0                           \r\n            60      G      0.0            0.0            2.198216E+00   3.212710E-03   2.486741E+00   0.0                           \r\n            61      G      0.0            0.0            2.198015E+00   6.555397E-03   2.490341E+00   0.0                           \r\n            62      G      0.0            0.0            2.198039E+00  -1.179612E-16   2.491856E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  3 LEFT                                                                                        SUBCASE  6             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.616576E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.529082E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.537518E+00   0.0                           \r\n            20      G      0.0            0.0            8.345206E-01  -6.093952E-03   2.583455E+00   0.0                           \r\n            21      G      0.0            0.0            8.380080E-01   4.114275E-02   2.579974E+00   0.0                           \r\n            22      G      0.0            0.0            8.418425E-01   2.255141E-17   2.578168E+00   0.0                           \r\n            30      G      0.0            0.0            1.397531E+00  -4.463441E-03   2.530873E+00   0.0                           \r\n            31      G      0.0            0.0            1.401668E+00   5.227499E-02   2.471285E+00   0.0                           \r\n            32      G      0.0            0.0            1.405209E+00   2.775558E-17   2.457530E+00   0.0                           \r\n            40      G      0.0            0.0            1.774768E+00  -8.212163E-04   2.499062E+00   0.0                           \r\n            41      G      0.0            0.0            1.776626E+00   3.721724E-02   2.441638E+00   0.0                           \r\n            42      G      0.0            0.0            1.778308E+00   6.245005E-17   2.424057E+00   0.0                           \r\n            50      G      0.0            0.0            2.024094E+00   1.899396E-03   2.488028E+00   0.0                           \r\n            51      G      0.0            0.0            2.023792E+00   4.551693E-03   2.412735E+00   0.0                           \r\n            52      G      0.0            0.0            2.023903E+00   7.632783E-17   2.400145E+00   0.0                           \r\n            60      G      0.0            0.0            2.198216E+00   3.212710E-03   2.486741E+00   0.0                           \r\n            61      G      0.0            0.0            2.198015E+00   6.555397E-03   2.490341E+00   0.0                           \r\n            62      G      0.0            0.0            2.198039E+00   1.179612E-16   2.491856E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  4 RIGHT                                                                                       SUBCASE  7             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.489163E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.339323E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.328870E+00   0.0                           \r\n            20      G      0.0            0.0            7.973301E-01  -1.218790E-02   2.489294E+00   0.0                           \r\n            21      G      0.0            0.0            7.885561E-01  -4.221665E-02   2.477708E+00   0.0                           \r\n            22      G      0.0            0.0            7.854477E-01   1.247810E-02   2.484175E+00   0.0                           \r\n            30      G      0.0            0.0            1.344761E+00  -8.926882E-03   2.483604E+00   0.0                           \r\n            31      G      0.0            0.0            1.343115E+00  -4.590699E-04   2.476472E+00   0.0                           \r\n            32      G      0.0            0.0            1.345008E+00   3.936955E-02   2.499769E+00   0.0                           \r\n            40      G      0.0            0.0            1.717008E+00  -1.642434E-03   2.478066E+00   0.0                           \r\n            41      G      0.0            0.0            1.718905E+00   5.202486E-02   2.455163E+00   0.0                           \r\n            42      G      0.0            0.0            1.724493E+00   8.643451E-02   2.467436E+00   0.0                           \r\n            50      G      0.0            0.0            1.964767E+00   3.798790E-03   2.476618E+00   0.0                           \r\n            51      G      0.0            0.0            1.967004E+00   9.343869E-02   2.435513E+00   0.0                           \r\n            52      G      0.0            0.0            1.973915E+00   1.591761E-01   2.437227E+00   0.0                           \r\n            60      G      0.0            0.0            2.138173E+00   6.425418E-03   2.477237E+00   0.0                           \r\n            61      G      0.0            0.0            2.141845E+00   1.789423E-01   2.508615E+00   0.0                           \r\n            62      G      0.0            0.0            2.150216E+00   2.633290E-01   2.521042E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  4 LEFT                                                                                        SUBCASE  8             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.529001E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.355290E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.328870E+00   0.0                           \r\n            20      G      0.0            0.0            8.098704E-01  -7.301386E-02   2.527312E+00   0.0                           \r\n            21      G      0.0            0.0            7.934353E-01  -7.521781E-02   2.497533E+00   0.0                           \r\n            22      G      0.0            0.0            7.854477E-01  -1.247810E-02   2.484175E+00   0.0                           \r\n            30      G      0.0            0.0            1.365307E+00  -1.146068E-01   2.518203E+00   0.0                           \r\n            31      G      0.0            0.0            1.352662E+00  -8.425290E-02   2.498910E+00   0.0                           \r\n            32      G      0.0            0.0            1.345008E+00  -3.936955E-02   2.499769E+00   0.0                           \r\n            40      G      0.0            0.0            1.742529E+00  -1.388522E-01   2.509851E+00   0.0                           \r\n            41      G      0.0            0.0            1.732503E+00  -1.093383E-01   2.478723E+00   0.0                           \r\n            42      G      0.0            0.0            1.724493E+00  -8.643451E-02   2.467436E+00   0.0                           \r\n            50      G      0.0            0.0            1.993389E+00  -1.527640E-01   2.506962E+00   0.0                           \r\n            51      G      0.0            0.0            1.983457E+00  -1.841772E-01   2.443718E+00   0.0                           \r\n            52      G      0.0            0.0            1.973915E+00  -1.591761E-01   2.437227E+00   0.0                           \r\n            60      G      0.0            0.0            2.168903E+00  -1.591318E-01   2.507204E+00   0.0                           \r\n            61      G      0.0            0.0            2.160230E+00  -2.568221E-01   2.517206E+00   0.0                           \r\n            62      G      0.0            0.0            2.150216E+00  -2.633290E-01   2.521042E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  5 RIGHT                                                                                       SUBCASE  9             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.401587E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.374896E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.429196E+00   0.0                           \r\n            20      G      0.0            0.0            7.726799E-01   9.129571E-02   2.433150E+00   0.0                           \r\n            21      G      0.0            0.0            7.915651E-01   1.238499E-01   2.450953E+00   0.0                           \r\n            22      G      0.0            0.0            8.083677E-01   6.794942E-02   2.480739E+00   0.0                           \r\n            30      G      0.0            0.0            1.312538E+00   1.279971E-01   2.470934E+00   0.0                           \r\n            31      G      0.0            0.0            1.333403E+00   1.979954E-01   2.406014E+00   0.0                           \r\n            32      G      0.0            0.0            1.354396E+00   1.444451E-01   2.398078E+00   0.0                           \r\n            40      G      0.0            0.0            1.684770E+00   1.413158E-01   2.488855E+00   0.0                           \r\n            41      G      0.0            0.0            1.701015E+00   2.468374E-01   2.418535E+00   0.0                           \r\n            42      G      0.0            0.0            1.720886E+00   2.329114E-01   2.395051E+00   0.0                           \r\n            50      G      0.0            0.0            1.934063E+00   1.470658E-01   2.495552E+00   0.0                           \r\n            51      G      0.0            0.0            1.946293E+00   3.010721E-01   2.421839E+00   0.0                           \r\n            52      G      0.0            0.0            1.964341E+00   3.485231E-01   2.386573E+00   0.0                           \r\n            60      G      0.0            0.0            2.108860E+00   1.494937E-01   2.497700E+00   0.0                           \r\n            61      G      0.0            0.0            2.120069E+00   4.193240E-01   2.500982E+00   0.0                           \r\n            62      G      0.0            0.0            2.137650E+00   5.063493E-01   2.482297E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  5 LEFT                                                                                        SUBCASE  10            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.576738E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.457925E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.429196E+00   0.0                           \r\n            20      G      0.0            0.0            8.219804E-01  -6.691990E-02   2.545437E+00   0.0                           \r\n            21      G      0.0            0.0            8.154549E-01  -1.764658E-02   2.513844E+00   0.0                           \r\n            22      G      0.0            0.0            8.083677E-01  -6.794942E-02   2.480739E+00   0.0                           \r\n            30      G      0.0            0.0            1.376985E+00  -1.101434E-01   2.496275E+00   0.0                           \r\n            31      G      0.0            0.0            1.367184E+00  -7.587438E-02   2.424662E+00   0.0                           \r\n            32      G      0.0            0.0            1.354396E+00  -1.444451E-01   2.398078E+00   0.0                           \r\n            40      G      0.0            0.0            1.749247E+00  -1.380310E-01   2.467277E+00   0.0                           \r\n            41      G      0.0            0.0            1.737173E+00  -1.676509E-01   2.411377E+00   0.0                           \r\n            42      G      0.0            0.0            1.720886E+00  -2.329114E-01   2.395051E+00   0.0                           \r\n            50      G      0.0            0.0            1.995471E+00  -1.546634E-01   2.457685E+00   0.0                           \r\n            51      G      0.0            0.0            1.982263E+00  -2.959659E-01   2.378156E+00   0.0                           \r\n            52      G      0.0            0.0            1.964341E+00  -3.485231E-01   2.386573E+00   0.0                           \r\n            60      G      0.0            0.0            2.167486E+00  -1.623445E-01   2.456774E+00   0.0                           \r\n            61      G      0.0            0.0            2.155353E+00  -4.155992E-01   2.460852E+00   0.0                           \r\n            62      G      0.0            0.0            2.137650E+00  -5.063493E-01   2.482297E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  6 RIGHT                                                                                       SUBCASE  11            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.509082E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.347306E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.328870E+00   0.0                           \r\n            20      G      0.0            0.0            8.036003E-01  -4.260088E-02   2.508303E+00   0.0                           \r\n            21      G      0.0            0.0            7.909957E-01  -5.871723E-02   2.487621E+00   0.0                           \r\n            22      G      0.0            0.0            7.854477E-01  -1.561251E-17   2.484175E+00   0.0                           \r\n            30      G      0.0            0.0            1.355034E+00  -6.176685E-02   2.500904E+00   0.0                           \r\n            31      G      0.0            0.0            1.347889E+00  -4.235598E-02   2.487691E+00   0.0                           \r\n            32      G      0.0            0.0            1.345008E+00   0.0            2.499769E+00   0.0                           \r\n            40      G      0.0            0.0            1.729769E+00  -7.024731E-02   2.493958E+00   0.0                           \r\n            41      G      0.0            0.0            1.725704E+00  -2.865670E-02   2.466943E+00   0.0                           \r\n            42      G      0.0            0.0            1.724493E+00   2.081668E-17   2.467436E+00   0.0                           \r\n            50      G      0.0            0.0            1.979078E+00  -7.448258E-02   2.491790E+00   0.0                           \r\n            51      G      0.0            0.0            1.975231E+00  -4.536928E-02   2.439616E+00   0.0                           \r\n            52      G      0.0            0.0            1.973915E+00   3.469447E-17   2.437227E+00   0.0                           \r\n            60      G      0.0            0.0            2.153538E+00  -7.635320E-02   2.492221E+00   0.0                           \r\n            61      G      0.0            0.0            2.151038E+00  -3.893990E-02   2.512911E+00   0.0                           \r\n            62      G      0.0            0.0            2.150216E+00   2.081668E-17   2.521042E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  6 LEFT                                                                                        SUBCASE  12            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            2.509082E+00   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            2.347306E+00   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            2.328870E+00   0.0                           \r\n            20      G      0.0            0.0            8.036003E-01  -4.260088E-02   2.508303E+00   0.0                           \r\n            21      G      0.0            0.0            7.909957E-01  -5.871723E-02   2.487621E+00   0.0                           \r\n            22      G      0.0            0.0            7.854477E-01   1.561251E-17   2.484175E+00   0.0                           \r\n            30      G      0.0            0.0            1.355034E+00  -6.176685E-02   2.500904E+00   0.0                           \r\n            31      G      0.0            0.0            1.347889E+00  -4.235598E-02   2.487691E+00   0.0                           \r\n            32      G      0.0            0.0            1.345008E+00   0.0            2.499769E+00   0.0                           \r\n            40      G      0.0            0.0            1.729769E+00  -7.024731E-02   2.493958E+00   0.0                           \r\n            41      G      0.0            0.0            1.725704E+00  -2.865670E-02   2.466943E+00   0.0                           \r\n            42      G      0.0            0.0            1.724493E+00  -2.081668E-17   2.467436E+00   0.0                           \r\n            50      G      0.0            0.0            1.979078E+00  -7.448258E-02   2.491790E+00   0.0                           \r\n            51      G      0.0            0.0            1.975231E+00  -4.536928E-02   2.439616E+00   0.0                           \r\n            52      G      0.0            0.0            1.973915E+00  -3.469447E-17   2.437227E+00   0.0                           \r\n            60      G      0.0            0.0            2.153538E+00  -7.635320E-02   2.492221E+00   0.0                           \r\n            61      G      0.0            0.0            2.151038E+00  -3.893990E-02   2.512911E+00   0.0                           \r\n            62      G      0.0            0.0            2.150216E+00  -2.081668E-17   2.521042E+00   0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 RIGHT                                                                                       SUBCASE  3             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            3.699386E+00   0.0            0.0            0.0                           \r\n            11      G      0.0            0.0            7.398774E+00   0.0            0.0            0.0                           \r\n            12      G      0.0            0.0            3.699386E+00   0.0            0.0            0.0                           \r\n            20      G      0.0            0.0            4.984855E+00   0.0            0.0            0.0                           \r\n            21      G      0.0            0.0            9.969708E+00   0.0            0.0            0.0                           \r\n            22      G      0.0            0.0            4.984854E+00   0.0            0.0            0.0                           \r\n            30      G      0.0            0.0            2.314273E+00   0.0            0.0            0.0                           \r\n            31      G      0.0            0.0            4.628547E+00   0.0            0.0            0.0                           \r\n            32      G      0.0            0.0            2.314274E+00   0.0            0.0            0.0                           \r\n            40      G      0.0            0.0            1.056844E+00   0.0            0.0            0.0                           \r\n            41      G      0.0            0.0            2.113689E+00   0.0            0.0            0.0                           \r\n            42      G      0.0            0.0            1.056844E+00   0.0            0.0            0.0                           \r\n            50      G      0.0            0.0            4.839916E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            0.0            9.679833E-01   0.0            0.0            0.0                           \r\n            52      G      0.0            0.0            4.839916E-01   0.0            0.0            0.0                           \r\n            60      G      0.0            0.0            1.479582E-01   0.0            0.0            0.0                           \r\n            61      G      0.0            0.0            2.959164E-01   0.0            0.0            0.0                           \r\n            62      G      0.0            0.0            1.479582E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 LEFT                                                                                        SUBCASE  4             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            3.699386E+00   0.0            0.0            0.0                           \r\n            11      G      0.0            0.0            7.398774E+00   0.0            0.0            0.0                           \r\n            12      G      0.0            0.0            3.699386E+00   0.0            0.0            0.0                           \r\n            20      G      0.0            0.0            4.984855E+00   0.0            0.0            0.0                           \r\n            21      G      0.0            0.0            9.969708E+00   0.0            0.0            0.0                           \r\n            22      G      0.0            0.0            4.984854E+00   0.0            0.0            0.0                           \r\n            30      G      0.0            0.0            2.314273E+00   0.0            0.0            0.0                           \r\n            31      G      0.0            0.0            4.628547E+00   0.0            0.0            0.0                           \r\n            32      G      0.0            0.0            2.314274E+00   0.0            0.0            0.0                           \r\n            40      G      0.0            0.0            1.056844E+00   0.0            0.0            0.0                           \r\n            41      G      0.0            0.0            2.113689E+00   0.0            0.0            0.0                           \r\n            42      G      0.0            0.0            1.056844E+00   0.0            0.0            0.0                           \r\n            50      G      0.0            0.0            4.839916E-01   0.0            0.0            0.0                           \r\n            51      G      0.0            0.0            9.679833E-01   0.0            0.0            0.0                           \r\n            52      G      0.0            0.0            4.839916E-01   0.0            0.0            0.0                           \r\n            60      G      0.0            0.0            1.479582E-01   0.0            0.0            0.0                           \r\n            61      G      0.0            0.0            2.959164E-01   0.0            0.0            0.0                           \r\n            62      G      0.0            0.0            1.479582E-01   0.0            0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  1 RIGHT                                                                                       SUBCASE  1             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -8.125777E+00   1.453688E+00   0.0            0.0                           \r\n            11      G      0.0            0.0           -2.062801E+00   3.890130E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -8.534118E-01  -3.367221E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  1 LEFT                                                                                        SUBCASE  2             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -4.869309E-01  -5.720784E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.982264E+00   3.875184E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -1.146020E+00  -3.422496E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 RIGHT                                                                                       SUBCASE  3             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -1.152948E+01  -2.893607E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.018505E+01  -1.044188E-01   0.0            0.0                           \r\n            12      G      0.0            0.0           -5.770414E+00  -3.822416E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  2 LEFT                                                                                        SUBCASE  4             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -1.114741E+01  -1.062002E+00   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.028117E+01  -9.939736E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -5.778800E+00  -3.842532E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  3 RIGHT                                                                                       SUBCASE  5             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -4.306354E+00   4.408050E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -2.022532E+00   3.882657E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -9.997160E-01  -3.394858E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  3 LEFT                                                                                        SUBCASE  6             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -4.306354E+00   4.408050E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -2.022532E+00   3.882657E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -9.997160E-01  -3.394858E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  4 RIGHT                                                                                       SUBCASE  7             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -5.245669E-01   4.848132E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.604943E+00   1.123431E-01   0.0            0.0                           \r\n            12      G      0.0            0.0           -4.453216E-01  -3.081148E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  4 LEFT                                                                                        SUBCASE  8             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -9.066368E-01   1.257455E+00   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.508828E+00   1.073216E-01   0.0            0.0                           \r\n            12      G      0.0            0.0           -4.369358E-01  -3.061032E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  5 RIGHT                                                                                       SUBCASE  9             \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            3.361873E+00  -8.279068E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.862775E+00   4.002872E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -1.104350E+00  -3.212575E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  5 LEFT                                                                                        SUBCASE  10            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -4.276973E+00   1.197860E+00   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.943312E+00   4.017818E-02   0.0            0.0                           \r\n            12      G      0.0            0.0           -8.117416E-01  -3.157299E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  6 RIGHT                                                                                       SUBCASE  11            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -7.156019E-01   8.711339E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.556885E+00   1.098323E-01   0.0            0.0                           \r\n            12      G      0.0            0.0           -4.411287E-01  -3.071090E-01   0.0            0.0                           \r\n1     STATIC ANALYSIS OF A CIRCULAR PLATE                                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                                                                                   \r\n0     SEGMENT  6 LEFT                                                                                        SUBCASE  12            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0           -7.156019E-01   8.711339E-01   0.0            0.0                           \r\n            11      G      0.0            0.0           -1.556885E+00   1.098323E-01   0.0            0.0                           \r\n            12      G      0.0            0.0           -4.411287E-01  -3.071090E-01   0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  STATIC ANALYSIS OF A CIRCULAR PLATE                                \r\n DATE:  5/17/95\r\n END TIME: 16:23:51\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/d15011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    D15011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   15,3                                                                      \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                            \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                          \r\n                  3      LABEL    = ROTATIONAL CYCLIC SYMMETRY                                           \r\n                  4      SPC      = 101                                                                  \r\n                  5      METHOD   = 1                                                                    \r\n                  6      VECTOR   = ALL                                                                  \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    92, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       1       10      20      .0      .0      1.      1               \r\n                    2-        CBAR    2       1       20      30      .0      .0      1.      1               \r\n                    3-        CBAR    3       1       30      40      .0      .0      1.      1               \r\n                    4-        CBAR    4       1       40      50      .0      .0      1.      1               \r\n                    5-        CBAR    5       1       50      60      .0      .0      1.      1               \r\n                    6-        CBAR    110     1       14      24      .0      .0      1.0     1               \r\n                    7-        CBAR    120     1       24      34      .0      .0      1.0     1               \r\n                    8-        CBAR    130     1       34      44      .0      .0      1.0     1               \r\n                    9-        CBAR    140     1       44      54      .0      .0      1.0     1               \r\n                   10-        CBAR    150     1       54      64      .0      .0      1.0     1               \r\n                   11-        CNGRNT  1       110                                                             \r\n                   12-        CNGRNT  2       120                                                             \r\n                   13-        CNGRNT  3       130                                                             \r\n                   14-        CNGRNT  4       140                                                             \r\n                   15-        CNGRNT  5       150                                                             \r\n                   16-        CNGRNT  10      11      12      13                                              \r\n                   17-        CNGRNT  20      21      22      23                                              \r\n                   18-        CNGRNT  30      31      32      33                                              \r\n                   19-        CNGRNT  40      41      42      43                                              \r\n                   20-        CNGRNT  50      51      52      53                                              \r\n                   21-        CORD2C  1       0       .0      .0      .0      .0      .0      1.      +C1     \r\n                   22-        +C1     1.      .0      .0                                                      \r\n                   23-        CQUAD2  10      1       10      11      21      20                              \r\n                   24-        CQUAD2  11      1       11      12      22      21                              \r\n                   25-        CQUAD2  12      1       12      13      23      22                              \r\n                   26-        CQUAD2  13      1       13      14      24      23                              \r\n                   27-        CQUAD2  20      1       20      21      31      30                              \r\n                   28-        CQUAD2  21      1       21      22      32      31                              \r\n                   29-        CQUAD2  22      1       22      23      33      32                              \r\n                   30-        CQUAD2  23      1       23      24      34      33                              \r\n                   31-        CQUAD2  30      1       30      31      41      40                              \r\n                   32-        CQUAD2  31      1       31      32      42      41                              \r\n                   33-        CQUAD2  32      1       32      33      43      42                              \r\n                   34-        CQUAD2  33      1       33      34      44      43                              \r\n                   35-        CQUAD2  40      1       40      41      51      50                              \r\n                   36-        CQUAD2  41      1       41      42      52      51                              \r\n                   37-        CQUAD2  42      1       42      43      53      52                              \r\n                   38-        CQUAD2  43      1       43      44      54      53                              \r\n                   39-        CQUAD2  50      1       50      51      61      60                              \r\n                   40-        CQUAD2  51      1       51      52      62      61                              \r\n                   41-        CQUAD2  52      1       52      53      63      62                              \r\n                   42-        CQUAD2  53      1       53      54      64      63                              \r\n                   43-        CYJOIN  1       C       10      20      30      40      50      60      CYC SYM \r\n                   44-        CYJOIN  2       C       14      24      34      44      54      64      CYC SYM \r\n                   45-        EIGR    1       INV     .0      12000.0 6       6                       +EIG1   \r\n                   46-        +EIG1   MAX                                                                     \r\n                   47-        GRDSET          1                               1                               \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n\r\n      ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    10              1.0     .0      .0                                      \r\n                   49-        GRID    11              1.0     15.0    .0                                      \r\n                   50-        GRID    12              1.0     30.0    .0                                      \r\n                   51-        GRID    13              1.0     45.0    .0                                      \r\n                   52-        GRID    14              1.0     60.0    .0                                      \r\n                   53-        GRID    20              .68     .0      .0                                      \r\n                   54-        GRID    21              .68     15.0    .0                                      \r\n                   55-        GRID    22              .68     30.0    .0                                      \r\n                   56-        GRID    23              .68     45.0    .0                                      \r\n                   57-        GRID    24              .68     60.0    .0                                      \r\n                   58-        GRID    30              .46     .0      .0                                      \r\n                   59-        GRID    31              .46     15.0    .0                                      \r\n                   60-        GRID    32              .46     30.0    .0                                      \r\n                   61-        GRID    33              .46     45.0    .0                                      \r\n                   62-        GRID    34              .46     60.0    .0                                      \r\n                   63-        GRID    40              .31     .0      .0                                      \r\n                   64-        GRID    41              .31     15.0    .0                                      \r\n                   65-        GRID    42              .31     30.0    .0                                      \r\n                   66-        GRID    43              .31     45.0    .0                                      \r\n                   67-        GRID    44              .31     60.0    .0                                      \r\n                   68-        GRID    50              .21     .0      .0                                      \r\n                   69-        GRID    51              .21     15.0    .0                                      \r\n                   70-        GRID    52              .21     30.0    .0                                      \r\n                   71-        GRID    53              .21     45.0    .0                                      \r\n                   72-        GRID    54              .21     60.0    .0                                      \r\n                   73-        GRID    60              .14     .0      .0                                      \r\n                   74-        GRID    61              .14     15.0    .0                                      \r\n                   75-        GRID    62              .14     30.0    .0                                      \r\n                   76-        GRID    63              .14     45.0    .0                                      \r\n                   77-        GRID    64              .14     60.0    .0                                      \r\n                   78-        MAT1    1       10.6 +6         .325    2.59-4  12.9-6                          \r\n                   79-        PARAM   CTYPE   ROT                                                     CYC SYM \r\n                   80-        PARAM   KINDEX  2                                                       CYC SYM \r\n                   81-        PARAM   NSEGS   6                                                       CYC SYM \r\n                   82-        PBAR    1       1       1.8  -3 5.4  -7 5.4 -7  1.0 -6                  +PB1    \r\n                   83-        +PB1    .0      .03     .03     .0      .03     .03     .03     -.03            \r\n                   84-        PQUAD2  1       1       .01                                                     \r\n                   85-        SPC1    110     12346   10      THRU    14                                      \r\n                   86-        SPC1    112     126     10      THRU    14                                      \r\n                   87-        SPC1    112     126     20      THRU    24                                      \r\n                   88-        SPC1    112     126     30      THRU    34                                      \r\n                   89-        SPC1    112     126     40      THRU    44                                      \r\n                   90-        SPC1    112     126     50      THRU    54                                      \r\n                   91-        SPC1    112     126     60      THRU    64                                      \r\n                   92-        SPCADD  101     110     112                                                     \r\n                              ENDDATA\r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            179\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.967\r\n                                        RMS WAVEFRONT    6.178\r\n                                        RMS BANDWIDTH    6.264\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            179\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    5.967\r\n                                        RMS WAVEFRONT    6.199\r\n                                        RMS BANDWIDTH    6.535\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        7         7\r\n                                        PROFILE (P)                        179       179\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         7\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.967     5.967\r\n                                        RMS WAVEFRONT (C-RMS)            6.178     6.178\r\n                                        RMS BANDWITCH (B-RMS)            6.264     6.264\r\n                                        NUMBER OF GRID POINTS (N)                     30\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                30\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        89\r\n                                        MATRIX DENSITY, PERCENT                   23.111\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID       10\r\n                        4 ROOTS BELOW   2.842446E+09\r\n                        2 ROOTS BELOW   1.847186E+09\r\n                        0 ROOTS BELOW   7.249167E+08\r\n                        4 ROOTS BELOW   5.243110E+09\r\n                        6 ROOTS BELOW   9.099439E+09\r\n                        8 ROOTS BELOW   9.246057E+09\r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         5\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         6\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        42\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         8 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         2        7.259556E+08        2.694356E+04        4.288201E+03        1.951024E-08        1.416357E+01             \r\n        2         1        1.849364E+09        4.300424E+04        6.844337E+03        1.579538E-08        2.921141E+01             \r\n        3         4        1.849364E+09        4.300424E+04        6.844337E+03        1.579538E-08        2.921141E+01             \r\n        4         3        5.243132E+09        7.240948E+04        1.152433E+04        2.586905E-09        1.356348E+01             \r\n        5         5        9.246057E+09        9.615642E+04        1.530377E+04        4.135707E-09        3.823899E+01             \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.725956E+09    (CYCLIC FREQUENCY =  4.288201E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -7.536714E-02   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -4.072452E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -5.916908E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -5.266432E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -2.603087E-01   0.0                           \r\n            20      G      0.0            0.0           -2.038059E-02  -2.413704E-01  -4.002938E-02   0.0                           \r\n            21      G      0.0            0.0           -9.479422E-02  -4.664890E-01  -1.231171E-01   0.0                           \r\n            22      G      0.0            0.0           -1.487562E-01  -1.031668E-01  -1.591766E-01   0.0                           \r\n            23      G      0.0            0.0           -1.272146E-01   3.173066E-01  -1.797072E-01   0.0                           \r\n            24      G      0.0            0.0           -7.039203E-02   1.664701E-01  -1.382565E-01   0.0                           \r\n            30      G      0.0            0.0           -2.393268E-02  -3.451336E-01   7.584304E-03   0.0                           \r\n            31      G      0.0            0.0           -8.161111E-02  -4.969153E-01   1.880436E-01   0.0                           \r\n            32      G      0.0            0.0           -1.248449E-01  -1.661474E-01   3.074646E-01   0.0                           \r\n            33      G      0.0            0.0           -1.182927E-01   2.381727E-01   2.168362E-01   0.0                           \r\n            34      G      0.0            0.0           -8.266051E-02   2.380343E-01   2.619524E-02   0.0                           \r\n            40      G      0.0            0.0           -2.079405E-02  -3.853831E-01   3.232019E-02   0.0                           \r\n            41      G      0.0            0.0           -5.523067E-02  -4.264289E-01   1.686444E-01   0.0                           \r\n            42      G      0.0            0.0           -8.227098E-02  -2.119622E-01   2.648634E-01   0.0                           \r\n            43      G      0.0            0.0           -8.704036E-02   8.847205E-02   2.266364E-01   0.0                           \r\n            44      G      0.0            0.0           -7.182008E-02   2.657938E-01   1.116299E-01   0.0                           \r\n            50      G      0.0            0.0           -1.710160E-02  -4.025331E-01   4.047792E-02   0.0                           \r\n            51      G      0.0            0.0           -3.993769E-02  -4.089349E-01   1.424543E-01   0.0                           \r\n            52      G      0.0            0.0           -5.875663E-02  -2.588466E-01   2.228129E-01   0.0                           \r\n            53      G      0.0            0.0           -6.621922E-02  -6.584552E-03   2.268930E-01   0.0                           \r\n            54      G      0.0            0.0           -5.906682E-02   2.776220E-01   1.398057E-01   0.0                           \r\n            60      G      0.0            0.0           -1.420611E-02  -4.090829E-01   4.190206E-02   0.0                           \r\n            61      G      0.0            0.0           -3.044997E-02  -4.402837E-01   1.275101E-01   0.0                           \r\n            62      G      0.0            0.0           -4.487359E-02  -3.180928E-01   1.913506E-01   0.0                           \r\n            63      G      0.0            0.0           -5.235903E-02  -6.407879E-02   2.026283E-01   0.0                           \r\n            64      G      0.0            0.0           -4.906614E-02   2.821393E-01   1.447245E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.725956E+09    (CYCLIC FREQUENCY =  4.288201E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -3.440919E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -3.362092E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -1.882126E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            3.914601E-02   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0            2.373158E-01   0.0                           \r\n            20      G      0.0            0.0           -9.304845E-02   5.286785E-02  -1.827559E-01   0.0                           \r\n            21      G      0.0            0.0           -8.627030E-02   1.098353E-01  -1.371154E-01   0.0                           \r\n            22      G      0.0            0.0           -4.731828E-02   3.243295E-01  -5.063291E-02   0.0                           \r\n            23      G      0.0            0.0            1.565089E-02   3.591551E-01   4.078923E-02   0.0                           \r\n            24      G      0.0            0.0            6.417434E-02   1.825990E-01   1.260444E-01   0.0                           \r\n            30      G      0.0            0.0           -1.092657E-01   7.559530E-02   3.462646E-02   0.0                           \r\n            31      G      0.0            0.0           -8.945267E-02   2.897962E-01   1.096530E-01   0.0                           \r\n            32      G      0.0            0.0           -3.971227E-02   5.223238E-01   9.780229E-02   0.0                           \r\n            33      G      0.0            0.0            2.586469E-02   5.236224E-01   1.913638E-02   0.0                           \r\n            34      G      0.0            0.0            7.535915E-02   2.610968E-01  -2.388143E-02   0.0                           \r\n            40      G      0.0            0.0           -9.493615E-02   8.441123E-02   1.475592E-01   0.0                           \r\n            41      G      0.0            0.0           -7.262833E-02   4.493306E-01   1.540237E-01   0.0                           \r\n            42      G      0.0            0.0           -2.616981E-02   6.663533E-01   8.425114E-02   0.0                           \r\n            43      G      0.0            0.0            2.737294E-02   6.131169E-01  -2.828777E-02   0.0                           \r\n            44      G      0.0            0.0            6.547626E-02   2.915459E-01  -1.017697E-01   0.0                           \r\n            50      G      0.0            0.0           -7.807811E-02   8.816762E-02   1.848037E-01   0.0                           \r\n            51      G      0.0            0.0           -5.819497E-02   5.891494E-01   1.914700E-01   0.0                           \r\n            52      G      0.0            0.0           -1.869006E-02   8.137455E-01   7.087522E-02   0.0                           \r\n            53      G      0.0            0.0            2.442723E-02   7.171341E-01  -7.398319E-02   0.0                           \r\n            54      G      0.0            0.0            5.384948E-02   3.045200E-01  -1.274568E-01   0.0                           \r\n            60      G      0.0            0.0           -6.485861E-02   8.960225E-02   1.913056E-01   0.0                           \r\n            61      G      0.0            0.0           -4.760864E-02   7.329575E-01   1.705831E-01   0.0                           \r\n            62      G      0.0            0.0           -1.427397E-02   1.000000E+00   6.086720E-02   0.0                           \r\n            63      G      0.0            0.0            2.126769E-02   8.526255E-01  -6.556851E-02   0.0                           \r\n            64      G      0.0            0.0            4.473216E-02   3.094751E-01  -1.319411E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.184936E+10    (CYCLIC FREQUENCY =  6.844337E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            1.736460E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            4.585972E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            3.455166E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -2.925720E-02   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -2.644711E-01   0.0                           \r\n            20      G      0.0            0.0            4.736148E-02   1.845953E-01   9.166744E-02   0.0                           \r\n            21      G      0.0            0.0            9.858717E-02   1.523408E-01   3.891764E-02   0.0                           \r\n            22      G      0.0            0.0            7.101270E-02  -4.435492E-01  -3.621241E-02   0.0                           \r\n            23      G      0.0            0.0           -2.563776E-02  -5.185763E-01  -8.233972E-02   0.0                           \r\n            24      G      0.0            0.0           -7.213381E-02   4.302983E-02  -1.396139E-01   0.0                           \r\n            30      G      0.0            0.0            5.552736E-02   1.622728E-01  -1.756587E-02   0.0                           \r\n            31      G      0.0            0.0            6.431352E-02  -1.214587E-01  -2.878819E-01   0.0                           \r\n            32      G      0.0            0.0            2.173330E-02  -5.621525E-01  -2.939019E-01   0.0                           \r\n            33      G      0.0            0.0           -5.085830E-02  -5.257182E-01  -6.999098E-02   0.0                           \r\n            34      G      0.0            0.0           -8.457083E-02   3.782634E-02   2.675366E-02   0.0                           \r\n            40      G      0.0            0.0            4.808522E-02   1.130408E-01  -7.791118E-02   0.0                           \r\n            41      G      0.0            0.0            3.690974E-02  -3.568712E-01  -1.430562E-01   0.0                           \r\n            42      G      0.0            0.0           -5.013169E-03  -6.313805E-01  -7.085504E-02   0.0                           \r\n            43      G      0.0            0.0           -5.294726E-02  -4.896728E-01   7.461009E-02   0.0                           \r\n            44      G      0.0            0.0           -7.323609E-02   2.635020E-02   1.186625E-01   0.0                           \r\n            50      G      0.0            0.0            3.907244E-02   8.743789E-02  -9.956909E-02   0.0                           \r\n            51      G      0.0            0.0            2.641332E-02  -4.875620E-01  -1.298029E-01   0.0                           \r\n            52      G      0.0            0.0           -8.026207E-03  -7.163366E-01   2.756412E-03   0.0                           \r\n            53      G      0.0            0.0           -4.383083E-02  -5.349127E-01   1.524296E-01   0.0                           \r\n            54      G      0.0            0.0           -5.950919E-02   2.038207E-02   1.516485E-01   0.0                           \r\n            60      G      0.0            0.0            3.193291E-02   7.887370E-02  -1.034049E-01   0.0                           \r\n            61      G      0.0            0.0            2.049434E-02  -5.844045E-01  -9.449413E-02   0.0                           \r\n            62      G      0.0            0.0           -7.207097E-03  -8.326616E-01   1.690398E-02   0.0                           \r\n            63      G      0.0            0.0           -3.551585E-02  -6.178299E-01   1.339996E-01   0.0                           \r\n            64      G      0.0            0.0           -4.863536E-02   1.838574E-02   1.574906E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.184936E+10    (CYCLIC FREQUENCY =  6.844337E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -2.051304E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            5.102668E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            9.622596E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            6.854402E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -4.781660E-02   0.0                           \r\n            20      G      0.0            0.0           -5.594878E-02   1.562628E-01  -1.082880E-01   0.0                           \r\n            21      G      0.0            0.0            7.927906E-02   1.000000E+00  -8.223456E-02   0.0                           \r\n            22      G      0.0            0.0            1.977696E-01   1.592643E-01  -1.008510E-01   0.0                           \r\n            23      G      0.0            0.0            1.238842E-01  -8.684965E-01  -3.869530E-02   0.0                           \r\n            24      G      0.0            0.0           -1.304185E-02  -2.379956E-01  -2.524232E-02   0.0                           \r\n            30      G      0.0            0.0           -6.559524E-02   1.373663E-01   2.075080E-02   0.0                           \r\n            31      G      0.0            0.0           -1.940924E-03   6.791193E-01  -4.592173E-01   0.0                           \r\n            32      G      0.0            0.0            6.052699E-02   2.018509E-01  -8.185136E-01   0.0                           \r\n            33      G      0.0            0.0            3.941358E-02  -4.467389E-01  -5.374547E-01   0.0                           \r\n            34      G      0.0            0.0           -1.529048E-02  -2.092155E-01   4.837086E-03   0.0                           \r\n            40      G      0.0            0.0           -5.680374E-02   9.569073E-02   9.203757E-02   0.0                           \r\n            41      G      0.0            0.0           -3.846454E-02   3.369089E-01  -5.623234E-02   0.0                           \r\n            42      G      0.0            0.0           -1.396163E-02   2.267085E-01  -1.973305E-01   0.0                           \r\n            43      G      0.0            0.0           -6.199773E-03  -3.294218E-02  -1.343894E-01   0.0                           \r\n            44      G      0.0            0.0           -1.324115E-02  -1.457416E-01   2.145427E-02   0.0                           \r\n            50      G      0.0            0.0           -4.615681E-02   7.401749E-02   1.176224E-01   0.0                           \r\n            51      G      0.0            0.0           -3.686499E-02   2.495046E-01   8.217808E-02   0.0                           \r\n            52      G      0.0            0.0           -2.235289E-02   2.572135E-01   7.676714E-03   0.0                           \r\n            53      G      0.0            0.0           -1.164257E-02   1.176333E-01  -1.916253E-02   0.0                           \r\n            54      G      0.0            0.0           -1.075931E-02  -1.127322E-01   2.741818E-02   0.0                           \r\n            60      G      0.0            0.0           -3.772280E-02   6.676778E-02   1.221536E-01   0.0                           \r\n            61      G      0.0            0.0           -3.097310E-02   2.623867E-01   9.603339E-02   0.0                           \r\n            62      G      0.0            0.0           -2.007168E-02   2.989821E-01   4.707719E-02   0.0                           \r\n            63      G      0.0            0.0           -1.086164E-02   1.692971E-01   1.398862E-02   0.0                           \r\n            64      G      0.0            0.0           -8.793312E-03  -1.016905E-01   2.847443E-02   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.184936E+10    (CYCLIC FREQUENCY =  6.844337E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -2.051293E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            5.102689E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            9.622605E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            6.854395E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -4.781735E-02   0.0                           \r\n            20      G      0.0            0.0           -5.594850E-02   1.562625E-01  -1.082875E-01   0.0                           \r\n            21      G      0.0            0.0            7.927945E-02   1.000000E+00  -8.223452E-02   0.0                           \r\n            22      G      0.0            0.0            1.977697E-01   1.592624E-01  -1.008511E-01   0.0                           \r\n            23      G      0.0            0.0            1.238841E-01  -8.684976E-01  -3.869538E-02   0.0                           \r\n            24      G      0.0            0.0           -1.304205E-02  -2.379963E-01  -2.524261E-02   0.0                           \r\n            30      G      0.0            0.0           -6.559493E-02   1.373657E-01   2.075056E-02   0.0                           \r\n            31      G      0.0            0.0           -1.940712E-03   6.791183E-01  -4.592183E-01   0.0                           \r\n            32      G      0.0            0.0            6.052706E-02   2.018495E-01  -8.185141E-01   0.0                           \r\n            33      G      0.0            0.0            3.941349E-02  -4.467399E-01  -5.374543E-01   0.0                           \r\n            34      G      0.0            0.0           -1.529067E-02  -2.092165E-01   4.837363E-03   0.0                           \r\n            40      G      0.0            0.0           -5.680349E-02   9.569007E-02   9.203698E-02   0.0                           \r\n            41      G      0.0            0.0           -3.846439E-02   3.369077E-01  -5.623243E-02   0.0                           \r\n            42      G      0.0            0.0           -1.396157E-02   2.267072E-01  -1.973303E-01   0.0                           \r\n            43      G      0.0            0.0           -6.199813E-03  -3.294330E-02  -1.343891E-01   0.0                           \r\n            44      G      0.0            0.0           -1.324128E-02  -1.457427E-01   2.145479E-02   0.0                           \r\n            50      G      0.0            0.0           -4.615664E-02   7.401685E-02   1.176217E-01   0.0                           \r\n            51      G      0.0            0.0           -3.686487E-02   2.495034E-01   8.217768E-02   0.0                           \r\n            52      G      0.0            0.0           -2.235283E-02   2.572122E-01   7.676681E-03   0.0                           \r\n            53      G      0.0            0.0           -1.164258E-02   1.176320E-01  -1.916224E-02   0.0                           \r\n            54      G      0.0            0.0           -1.075939E-02  -1.127333E-01   2.741875E-02   0.0                           \r\n            60      G      0.0            0.0           -3.772267E-02   6.676716E-02   1.221529E-01   0.0                           \r\n            61      G      0.0            0.0           -3.097300E-02   2.623856E-01   9.603295E-02   0.0                           \r\n            62      G      0.0            0.0           -2.007162E-02   2.989809E-01   4.707707E-02   0.0                           \r\n            63      G      0.0            0.0           -1.086162E-02   1.692958E-01   1.398885E-02   0.0                           \r\n            64      G      0.0            0.0           -8.793348E-03  -1.016917E-01   2.847500E-02   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.184936E+10    (CYCLIC FREQUENCY =  6.844337E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -1.736462E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -4.585979E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -3.455173E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            2.925656E-02   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0            2.644703E-01   0.0                           \r\n            20      G      0.0            0.0           -4.736155E-02  -1.845962E-01  -9.166750E-02   0.0                           \r\n            21      G      0.0            0.0           -9.858746E-02  -1.523421E-01  -3.891873E-02   0.0                           \r\n            22      G      0.0            0.0           -7.101311E-02   4.435490E-01   3.621078E-02   0.0                           \r\n            23      G      0.0            0.0            2.563742E-02   5.185771E-01   8.233837E-02   0.0                           \r\n            24      G      0.0            0.0            7.213359E-02  -4.302916E-02   1.396135E-01   0.0                           \r\n            30      G      0.0            0.0           -5.552740E-02  -1.622743E-01   1.756605E-02   0.0                           \r\n            31      G      0.0            0.0           -6.431394E-02   1.214551E-01   2.878821E-01   0.0                           \r\n            32      G      0.0            0.0           -2.173400E-02   5.621519E-01   2.939022E-01   0.0                           \r\n            33      G      0.0            0.0            5.085775E-02   5.257209E-01   6.999104E-02   0.0                           \r\n            34      G      0.0            0.0            8.457058E-02  -3.782505E-02  -2.675354E-02   0.0                           \r\n            40      G      0.0            0.0           -4.808523E-02  -1.130425E-01   7.791144E-02   0.0                           \r\n            41      G      0.0            0.0           -3.690997E-02   3.568682E-01   1.430580E-01   0.0                           \r\n            42      G      0.0            0.0            5.012766E-03   6.313797E-01   7.085787E-02   0.0                           \r\n            43      G      0.0            0.0            5.294690E-02   4.896745E-01  -7.460810E-02   0.0                           \r\n            44      G      0.0            0.0            7.323588E-02  -2.634879E-02  -1.186621E-01   0.0                           \r\n            50      G      0.0            0.0           -3.907242E-02  -8.743957E-02   9.956936E-02   0.0                           \r\n            51      G      0.0            0.0           -2.641342E-02   4.875599E-01   1.298038E-01   0.0                           \r\n            52      G      0.0            0.0            8.026018E-03   7.163355E-01  -2.754891E-03   0.0                           \r\n            53      G      0.0            0.0            4.383063E-02   5.349131E-01  -1.524284E-01   0.0                           \r\n            54      G      0.0            0.0            5.950903E-02  -2.038068E-02  -1.516480E-01   0.0                           \r\n            60      G      0.0            0.0           -3.193288E-02  -7.887540E-02   1.034051E-01   0.0                           \r\n            61      G      0.0            0.0           -2.049438E-02   5.844024E-01   9.449476E-02   0.0                           \r\n            62      G      0.0            0.0            7.206989E-03   8.326601E-01  -1.690307E-02   0.0                           \r\n            63      G      0.0            0.0            3.551571E-02   6.178297E-01  -1.339988E-01   0.0                           \r\n            64      G      0.0            0.0            4.863523E-02  -1.838435E-02  -1.574901E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.524313E+10    (CYCLIC FREQUENCY =  1.152433E+04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            1.381758E-01   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0            3.856366E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0            5.715094E-02   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -2.922373E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -1.053251E-01   0.0                           \r\n            20      G      0.0            0.0            2.534877E-02   4.580095E-02  -4.305257E-02   0.0                           \r\n            21      G      0.0            0.0            5.831124E-02  -1.915582E-02  -7.629408E-02   0.0                           \r\n            22      G      0.0            0.0            4.758733E-03  -4.362848E-01  -4.133434E-02   0.0                           \r\n            23      G      0.0            0.0           -5.160214E-02  -4.205896E-02   1.915334E-02   0.0                           \r\n            24      G      0.0            0.0           -1.932222E-02   1.080818E-01   3.281702E-02   0.0                           \r\n            30      G      0.0            0.0           -4.344035E-03   7.921172E-02  -1.930773E-01   0.0                           \r\n            31      G      0.0            0.0            8.398209E-05  -3.214549E-02  -3.123719E-01   0.0                           \r\n            32      G      0.0            0.0           -1.321664E-02  -1.156404E-01  -6.291242E-02   0.0                           \r\n            33      G      0.0            0.0           -1.789889E-02   1.051288E-01   2.094846E-01   0.0                           \r\n            34      G      0.0            0.0            3.311261E-03   1.869250E-01   1.471741E-01   0.0                           \r\n            40      G      0.0            0.0           -3.392317E-02   9.476028E-02  -1.877853E-01   0.0                           \r\n            41      G      0.0            0.0           -2.767643E-02   1.190280E-01  -8.077212E-02   0.0                           \r\n            42      G      0.0            0.0           -1.445124E-02   2.023746E-01   3.534038E-02   0.0                           \r\n            43      G      0.0            0.0            5.875458E-03   2.745203E-01   1.113386E-01   0.0                           \r\n            44      G      0.0            0.0            2.585810E-02   2.236167E-01   1.431403E-01   0.0                           \r\n            50      G      0.0            0.0           -5.145512E-02   1.010387E-01  -1.629114E-01   0.0                           \r\n            51      G      0.0            0.0           -3.751628E-02   3.948424E-01  -4.498323E-02   0.0                           \r\n            52      G      0.0            0.0           -1.144448E-02   5.508235E-01   2.644275E-02   0.0                           \r\n            53      G      0.0            0.0            1.796674E-02   5.077032E-01   6.755827E-02   0.0                           \r\n            54      G      0.0            0.0            3.922191E-02   2.384327E-01   1.241800E-01   0.0                           \r\n            60      G      0.0            0.0           -6.255963E-02   1.036592E-01  -1.557391E-01   0.0                           \r\n            61      G      0.0            0.0           -4.409731E-02   7.441538E-01  -5.216912E-02   0.0                           \r\n            62      G      0.0            0.0           -1.041193E-02   1.000000E+00   8.471924E-03   0.0                           \r\n            63      G      0.0            0.0            2.496820E-02   8.341178E-01   5.266275E-02   0.0                           \r\n            64      G      0.0            0.0            4.768637E-02   2.446167E-01   1.187129E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.524313E+10    (CYCLIC FREQUENCY =  1.152433E+04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -4.184317E-02   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -1.206531E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -2.445787E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -2.790522E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -9.874213E-02   0.0                           \r\n            20      G      0.0            0.0           -7.676256E-03   1.512453E-01   1.303742E-02   0.0                           \r\n            21      G      0.0            0.0           -1.514144E-03  -5.615935E-02   1.111162E-01   0.0                           \r\n            22      G      0.0            0.0           -2.036515E-02  -1.019469E-01   1.768913E-01   0.0                           \r\n            23      G      0.0            0.0           -2.719765E-02   4.185522E-02   1.334195E-01   0.0                           \r\n            24      G      0.0            0.0           -1.811455E-02  -1.152875E-01   3.076591E-02   0.0                           \r\n            30      G      0.0            0.0            1.315485E-03   2.615754E-01   5.846876E-02   0.0                           \r\n            31      G      0.0            0.0            4.022077E-02   3.022618E-01   1.591835E-01   0.0                           \r\n            32      G      0.0            0.0            5.656102E-02  -2.702172E-02   2.692359E-01   0.0                           \r\n            33      G      0.0            0.0            3.601871E-02  -2.852077E-01   2.811259E-01   0.0                           \r\n            34      G      0.0            0.0            3.104302E-03  -1.993871E-01   1.379755E-01   0.0                           \r\n            40      G      0.0            0.0            1.027281E-02   3.129203E-01   5.686622E-02   0.0                           \r\n            41      G      0.0            0.0            4.272892E-02   3.786974E-01  -8.785047E-02   0.0                           \r\n            42      G      0.0            0.0            6.184453E-02   4.728896E-02  -1.512405E-01   0.0                           \r\n            43      G      0.0            0.0            5.056901E-02  -2.867368E-01  -4.295986E-02   0.0                           \r\n            44      G      0.0            0.0            2.424192E-02  -2.385250E-01   1.341938E-01   0.0                           \r\n            50      G      0.0            0.0            1.558193E-02   3.336532E-01   4.933377E-02   0.0                           \r\n            51      G      0.0            0.0            3.534907E-02   3.469448E-01  -6.145405E-02   0.0                           \r\n            52      G      0.0            0.0            4.897701E-02   1.287112E-01  -1.131625E-01   0.0                           \r\n            53      G      0.0            0.0            4.831382E-02  -1.360466E-01  -3.515645E-02   0.0                           \r\n            54      G      0.0            0.0            3.677047E-02  -2.543287E-01   1.164186E-01   0.0                           \r\n            60      G      0.0            0.0            1.894466E-02   3.423067E-01   4.716180E-02   0.0                           \r\n            61      G      0.0            0.0            3.286253E-02   3.768997E-01  -1.330440E-02   0.0                           \r\n            62      G      0.0            0.0            4.455817E-02   2.336705E-01  -3.625593E-02   0.0                           \r\n            63      G      0.0            0.0            4.900110E-02  -8.104252E-03   1.119173E-02   0.0                           \r\n            64      G      0.0            0.0            4.470589E-02  -2.609249E-01   1.112931E-01   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.924606E+10    (CYCLIC FREQUENCY =  1.530377E+04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0            4.893882E-03   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -5.286995E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -1.279395E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            3.413101E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -6.333756E-03   0.0                           \r\n            20      G      0.0            0.0            4.720588E-03   4.732300E-02   3.877539E-02   0.0                           \r\n            21      G      0.0            0.0           -5.630494E-02  -1.280055E-01   1.902265E-01   0.0                           \r\n            22      G      0.0            0.0           -6.665536E-03   4.459296E-01   1.212342E-01   0.0                           \r\n            23      G      0.0            0.0            4.720217E-02  -8.580338E-02  -3.019522E-02   0.0                           \r\n            24      G      0.0            0.0           -6.109350E-03   2.102862E-02  -5.018251E-02   0.0                           \r\n            30      G      0.0            0.0            1.732902E-02   1.872091E-01   6.577487E-02   0.0                           \r\n            31      G      0.0            0.0            3.367570E-02   6.693871E-02   3.331544E-01   0.0                           \r\n            32      G      0.0            0.0            3.290442E-02  -1.391944E-01   7.269690E-02   0.0                           \r\n            33      G      0.0            0.0            3.075926E-03  -3.626743E-01  -2.237298E-01   0.0                           \r\n            34      G      0.0            0.0           -2.242696E-02   8.318945E-02  -8.512463E-02   0.0                           \r\n            40      G      0.0            0.0            2.712760E-02   2.010297E-01   6.061678E-02   0.0                           \r\n            41      G      0.0            0.0            3.666748E-02  -7.634004E-02  -1.869090E-01   0.0                           \r\n            42      G      0.0            0.0            1.571115E-02  -3.949039E-01  -2.139063E-01   0.0                           \r\n            43      G      0.0            0.0           -2.103181E-02  -3.949628E-01  -8.561336E-02   0.0                           \r\n            44      G      0.0            0.0           -3.510810E-02   8.933091E-02  -7.844906E-02   0.0                           \r\n            50      G      0.0            0.0            3.269599E-02   1.824512E-01   5.019081E-02   0.0                           \r\n            51      G      0.0            0.0            2.736037E-02  -3.367685E-01  -9.295514E-02   0.0                           \r\n            52      G      0.0            0.0            6.235373E-04  -6.065282E-01  -8.769936E-02   0.0                           \r\n            53      G      0.0            0.0           -3.017475E-02  -4.683205E-01  -2.022097E-02   0.0                           \r\n            54      G      0.0            0.0           -4.231461E-02   8.107527E-02  -6.495593E-02   0.0                           \r\n            60      G      0.0            0.0            3.607067E-02   1.728772E-01   4.687250E-02   0.0                           \r\n            61      G      0.0            0.0            2.563952E-02  -5.833523E-01  -4.013754E-02   0.0                           \r\n            62      G      0.0            0.0           -3.288041E-03  -8.824413E-01  -3.229791E-02   0.0                           \r\n            63      G      0.0            0.0           -3.345207E-02  -6.502656E-01  -6.572365E-03   0.0                           \r\n            64      G      0.0            0.0           -4.668204E-02   7.682088E-02  -6.066144E-02   0.0                           \r\n1     NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                             /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                                                                                   \r\n0     ROTATIONAL CYCLIC SYMMETRY                                                                                                    \r\n      EIGENVALUE =  0.924606E+10    (CYCLIC FREQUENCY =  1.530377E+04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            10      G      0.0            0.0            0.0            0.0           -4.488108E-03   0.0                           \r\n            11      G      0.0            0.0            0.0            0.0           -3.252451E-01   0.0                           \r\n            12      G      0.0            0.0            0.0            0.0           -5.760457E-01   0.0                           \r\n            13      G      0.0            0.0            0.0            0.0           -5.184744E-01   0.0                           \r\n            14      G      0.0            0.0            0.0            0.0           -1.994172E-03   0.0                           \r\n            20      G      0.0            0.0           -4.329037E-03   5.160371E-02  -3.555879E-02   0.0                           \r\n            21      G      0.0            0.0           -8.998287E-03  -7.126559E-02   3.357905E-01   0.0                           \r\n            22      G      0.0            0.0           -3.001189E-02  -9.904097E-02   5.458534E-01   0.0                           \r\n            23      G      0.0            0.0           -3.198718E-02   1.187527E-01   3.847464E-01   0.0                           \r\n            24      G      0.0            0.0           -1.923630E-03  -6.678477E-02  -1.580108E-02   0.0                           \r\n            30      G      0.0            0.0           -1.589151E-02   2.041441E-01  -6.031831E-02   0.0                           \r\n            31      G      0.0            0.0            7.933833E-02   1.000000E+00   1.844995E-01   0.0                           \r\n            32      G      0.0            0.0            1.481510E-01   3.091548E-02   3.273180E-01   0.0                           \r\n            33      G      0.0            0.0            8.613461E-02  -9.343166E-01   3.081836E-01   0.0                           \r\n            34      G      0.0            0.0           -7.061613E-03  -2.641999E-01  -2.680354E-02   0.0                           \r\n            40      G      0.0            0.0           -2.487722E-02   2.192150E-01  -5.558806E-02   0.0                           \r\n            41      G      0.0            0.0            2.879206E-02   7.696323E-01  -6.022628E-01   0.0                           \r\n            42      G      0.0            0.0            7.073896E-02   8.770858E-02  -9.631063E-01   0.0                           \r\n            43      G      0.0            0.0            4.160715E-02  -6.649554E-01  -6.247607E-01   0.0                           \r\n            44      G      0.0            0.0           -1.105458E-02  -2.837043E-01  -2.470163E-02   0.0                           \r\n            50      G      0.0            0.0           -2.998366E-02   1.989559E-01  -4.602697E-02   0.0                           \r\n            51      G      0.0            0.0           -1.272510E-02   3.855597E-01  -2.467086E-01   0.0                           \r\n            52      G      0.0            0.0            2.807498E-03   1.347105E-01  -3.948635E-01   0.0                           \r\n            53      G      0.0            0.0            5.350675E-05  -2.067486E-01  -2.628632E-01   0.0                           \r\n            54      G      0.0            0.0           -1.332373E-02  -2.574853E-01  -2.045302E-02   0.0                           \r\n            60      G      0.0            0.0           -3.307837E-02   1.885158E-01  -4.298395E-02   0.0                           \r\n            61      G      0.0            0.0           -2.415000E-02   2.876310E-01  -1.014278E-01   0.0                           \r\n            62      G      0.0            0.0           -1.480427E-02   1.959909E-01  -1.454207E-01   0.0                           \r\n            63      G      0.0            0.0           -1.102571E-02  -1.364352E-02  -1.088828E-01   0.0                           \r\n            64      G      0.0            0.0           -1.469893E-02  -2.439740E-01  -1.910080E-02   0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                          \r\n DATE:  5/17/95\r\n END TIME: 16:24:30\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t00001a.out",
    "content": "     NASTRAN  FILES=(INPT1,INPT2)                                                    \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T00001A,NASTRAN                                                           \r\n     $                                                                               \r\n     $     THIS DEMO PROBLEM DEMONSTRATES AN EASY WAY TO GENERATE VARIOUS            \r\n     $     FORMS OF NASTRAN GINO DATA BLOCKS USING THE NEW INPUTT4 MODULE,           \r\n     $     AND TO ALTER DATA BLOCK TRAILER BY THE NEW MATGEN, OPTION 10              \r\n     $                                                                               \r\n     $     TO COPY FROM INP1 THE FOLLOWING MATRICES                                  \r\n     $        A 4X4 SQUARE      MATRIX OF FORM 1 TO SQR                              \r\n     $        A 2X5 RECTANGULAR MATRIX OF FORM 2 TO REC                              \r\n     $        A 1X6 DIAGONAL    MATRIX OF FORM 3 TO DI1                              \r\n     $        A 5X5 DIAONGL     MATRIX OF FORM 2 TO DI5                              \r\n     $        A 4X4 SYMMETRIC   MATRIX OF FORM 6 TO SYM                              \r\n     $     TO COPY FROM INP2 THE FOLLOWING MATRICES                                  \r\n     $        A 1X6 ROW VECTOR         OF FORM 7 TO RV1                              \r\n     $        A 6X1 ROW VECTOR         OF FORM 2 TO RV6                              \r\n     $        A 1X4 IDENTITY    MATRIX OF FORM 8 TO ID1                              \r\n     $        A 4X4 IDENTITY    MATRIX OF FORM 2 TO ID4                              \r\n     $        A 1X6 COLUMN      MATRIX OF FORM 2 TO CMX                              \r\n     $     AND TO ALTER THE TRAILER OF SYM, FROM SYMMETRIC TO SQUARE                 \r\n     $                                                                               \r\n     $     NOTE - THERE IS NO DOCUMENTATION AVAILABLE IN THE USER'S MANUAL           \r\n     $     4/93   ABOUT THE NEW CAPABILITIES BEING PERFORMED HERE.                   \r\n     $          - USER CAN GENERATE GINO DATA BLOCKS THRU THE DMIG CARDS.            \r\n     $            HOWEVER, INPUT VIA DMIG CARDS IS LIMITED TO ONLY SQAURE            \r\n     $            (FORM 1), RECTANGULAR (FORM 2) AND SYMMETRIC (FORM 6)              \r\n     $            MATRICES                                                           \r\n     $                                                                               \r\n     APP   DMAP                                                                      \r\n     DIAG  8,15                                                                      \r\n     BEGIN $                                                                         \r\n     (SEE NASTRAN SOURCE PROGRAM COMPILATION FOR LISTING OF DMAP SEQUENCE)\r\n     END $                                                                           \r\n     TIME  5                                                                         \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      BEGIN                                                                           \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =     0, INCLUDING   0 COMMENT CARDS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              ENDDATA\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN $                                                                 \r\n\r\n       2  $                                                                       \r\n\r\n       2  $  CDC USER, USE FORTRAN UNITS 11(UT1) AND 12(UT2) INSTEAD OF 15(INP1)  \r\n\r\n       2  $  AND 16(INP2) HERE.                                                   \r\n\r\n       2  $  REWIND TAPE BEFORE READING, PARAMETER -1                             \r\n\r\n       2  $  INP1 & INP2 TAPES ARE ASCII FORMATTED TAPES, PARAMETERS -15 & -16    \r\n\r\n       2  $  RECORDS IN MSC/OUTPUT4 FORMAT, 80 COLUMN PER RECORD, PARAMETER -4    \r\n\r\n       2  $  (COSMIC/OUTPUT4 AND INPUTT4 USE 132-COLUMN-PER-RECORD FORMAT)        \r\n\r\n       2  $  MATPRN MUST HAVE A $ AT END OF LINE. ELSEWHERE $ SIGN IS OPTIONAL.   \r\n\r\n       2  $                                                                       \r\n\r\n       2  INPUTT4   /SQR,REC,DI1,DI5,SYM/-1/-15//-4                               \r\n\r\n       3  INPUTT4   /RV1,RV6,ID1,ID4,CMX/-1/-16//-4 $                             \r\n\r\n       4  MATPRN     SQR,REC,DI1,DI5,SYM// $                                      \r\n\r\n       5  MATPRN     RV1,RV6,ID1,ID4,CMX// $                                      \r\n\r\n       6  $                                                                       \r\n\r\n       6  MATGEN     SYM//10///1 $  OPTION 10, CHANGING THE 3RD TRAILER WORD TO 1 \r\n\r\n       7  MATPRN     SYM,,,,// $                                                  \r\n\r\n       8  END $                                                                   \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE. INPUTT4 MODULE OPENING FORTRAN TAPE  15\r\n (t00001a.inp1                                )\r\n FOR FORMATTED   READ.\r\n     READING DATA BLOCK NO.   1 - SQUARE   FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   2 - RECTANG  FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   3 - DIAGONAL FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   4 - DIAGON2  FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   5 - SYMMETRC FROM INPUT TAPE\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n\r\n                                                                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE SUCCESSFULLY RECOVERED FROM USER \r\n     FORMATTED   INPUT TAPE \r\nt00001a.inp1                                 TO NASTRAN GINO FILES\r\n     SQUARE   ==COPIED TO== SQR         MATRIX TYPE = RDP ,  SIZE (     4 X     4)\r\n     RECTANG  ==COPIED TO== REC         MATRIX TYPE = RSP ,  SIZE (     2 X     5)\r\n     DIAGONAL ==COPIED TO== DI1         MATRIX TYPE = RDP ,  SIZE (     1 X     6)\r\n     DIAGON2  ==COPIED TO== DI5         MATRIX TYPE = RDP ,  SIZE (     5 X     5)\r\n     SYMMETRC ==COPIED TO== SYM         MATRIX TYPE = RDP ,  SIZE (     4 X     4)\r\n0*** USER INFORMATION MESSAGE. INPUTT4 MODULE OPENING FORTRAN TAPE  16\r\n (t00001a.inp2                                )\r\n FOR FORMATTED   READ.\r\n     READING DATA BLOCK NO.   1 - ROWVEC   FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   2 - COLVEC   FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   3 - IDENT    FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   4 - IDENT    FROM INPUT TAPE\r\n     READING DATA BLOCK NO.   5 - COLMAT   FROM INPUT TAPE\r\n0*** USER INFORMATION MESSAGE FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE SUCCESSFULLY RECOVERED FROM USER \r\n     FORMATTED   INPUT TAPE \r\nt00001a.inp2                                 TO NASTRAN GINO FILES\r\n     ROWVEC   ==COPIED TO== RV1         MATRIX TYPE = RSP ,  SIZE (     1 X     6)\r\n     COLVEC   ==COPIED TO== RV6         MATRIX TYPE = RDP ,  SIZE (     6 X     1)\r\n     IDENT    ==COPIED TO== ID1         MATRIX TYPE = RDP ,  SIZE (     1 X     4)\r\n     IDENT    ==COPIED TO== ID4         MATRIX TYPE = RDP ,  SIZE (     4 X     4)\r\n     COLMAT   ==COPIED TO== CMX         MATRIX TYPE = RDP ,  SIZE (     1 X     6)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX SQR      (GINO NAME 101 ) IS A D.P.REAL      4 COLUMN X      4 ROW SQUARE   MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n   1.234568D+03  2.224568D+02 -3.334568D+00 -3.456789D+00\r\n0COLUMN      2      ROWS      2 THRU      3     --------------------------------------------------\r\n \r\n   1.234568D+03 -2.234568D+03\r\n0COLUMN      3      ROWS      1 THRU      3     --------------------------------------------------\r\n \r\n   2.234568D+03  7.224568D+02 -6.334568D+00\r\n0COLUMN      4      ROWS      3 THRU      4     --------------------------------------------------\r\n \r\n  -9.034568D+02 -6.234568D+03\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       8\r\n0THE DENSITY OF THIS MATRIX IS  68.75 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX REC      (GINO NAME 102 ) IS A S.P.REAL      2 COLUMN X      5 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n   1.23457E+03  2.22457E+02 -3.33457E+00 -3.45679E+00\r\n0COLUMN      2      ROWS      3 THRU      4     --------------------------------------------------\r\n \r\n  -3.45679E+00 -2.23457E+03\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       4\r\n0THE DENSITY OF THIS MATRIX IS  60.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX DI1      (GINO NAME 103 ) IS A D.P.REAL      1 COLUMN X      6 ROW DIAGONAL MATRIX.\r\n0DIAGONAL ELEMENTS FOR COLUMNS     1 TO      6 ARE\r\n\r\n\r\n\r\n   1.100000D+03  2.200000D+02 -3.300000D+03  4.400000D+02  5.500000D+04 -6.600000D+02\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      12\r\n0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX DI5      (GINO NAME 104 ) IS A D.P.REAL      5 COLUMN X      5 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.111100D+03\r\n0COLUMN      2      ROWS      2 THRU      2     --------------------------------------------------\r\n \r\n   2.220000D+02\r\n0COLUMN      3      ROWS      3 THRU      3     --------------------------------------------------\r\n \r\n  -3.333333D+00\r\n0COLUMN      4      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   4.440400D+03\r\n0COLUMN      5      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   5.500000D+05\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       2\r\n0THE DENSITY OF THIS MATRIX IS  20.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX SYM      (GINO NAME 105 ) IS A D.P.REAL      4 COLUMN X      4 ROW SYMMETRC MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      3     --------------------------------------------------\r\n \r\n   1.100000D+03  2.200000D+03 -3.300000D+03\r\n0COLUMN      2      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n   2.200000D+03 -4.400000D+02  5.500000D+04 -6.600000D+04\r\n0COLUMN      3      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n  -3.300000D+03  5.500000D+03 -7.700000D+03  8.800000D+03\r\n0COLUMN      4      ROWS      2 THRU      4     --------------------------------------------------\r\n \r\n  -6.600000D+03  8.800000D+03 -9.900000D+03\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       8\r\n0THE DENSITY OF THIS MATRIX IS  87.50 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX RV1      (GINO NAME 101 ) IS A S.P.REAL      6 COLUMN X      1 ROW VECTOR   MATRIX.\r\n0ROW ELEMENTS FOR COLUMNS     1 TO      6 ARE\r\n\r\n\r\n\r\n   1.10000E+03  2.20000E+03 -3.30000E+03  4.40000E+02  5.50000E+04 -6.60000E+02\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       6\r\n0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX RV6      (GINO NAME 102 ) IS A D.P.REAL      6 COLUMN X      1 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   9.876543D+00\r\n0COLUMN      2      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n  -8.876543D+00\r\n0COLUMN      3      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n  -7.776543D+00\r\n0COLUMN      4      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   6.676543D+00\r\n0COLUMN      5      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   5.576543D+00\r\n0COLUMN      6      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n  -4.476543D+00\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       2\r\n0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX ID1      (GINO NAME 103 ) IS A D.P.REAL      1 COLUMN X      4 ROW IDENTITY MATRIX.\r\n0IDENTITY MATRIX\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0    TABLE   ID1                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n RECORD NO.     0\r\n          ID1                                                                                                                       \r\n\r\n RECORD NO.     1\r\n0STRING NO.    1   ROW POSITION=    1   STRING TYPE=RDP   STRING TRAILERS=YES   NUMBER OF TERMS=    4\r\n   1.0000000D+00  1.0000000D+00  1.0000000D+00  1.0000000D+00\r\n\r\n RECORD NO.     2\r\n\r\n\r\n END OF FILE\r\n0TRAILER WORD1 =       1 WORD2 =       4 WORD3 =       8 WORD4 =       2 WORD5 =       8 WORD6 =   10000\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX ID4      (GINO NAME 104 ) IS A D.P.REAL      4 COLUMN X      4 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.000000D+00\r\n0COLUMN      2      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.000000D+00\r\n0COLUMN      3      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.000000D+00\r\n0COLUMN      4      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.000000D+00\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       2\r\n0THE DENSITY OF THIS MATRIX IS  25.00 PERCENT.\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX CMX      (GINO NAME 105 ) IS A D.P.REAL      1 COLUMN X      6 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      6     --------------------------------------------------\r\n \r\n   1.111000D+00  2.222200D+01  3.333330D+02 -4.440000D+01  5.500000D+00 -6.666666D+04\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      12\r\n0THE DENSITY OF THIS MATRIX IS 100.00 PERCENT.\r\n0*** USER INFORMATION MESSAGE FROM MATGEN MODULE, OPTION 10. TRAILER OF SYM      -\r\n     OLD -       4      4      6      2      8   8750\r\n     NEW -       4      4      1      2      8   8750\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0      MATRIX SYM      (GINO NAME 101 ) IS A D.P.REAL      4 COLUMN X      4 ROW SQUARE   MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      3     --------------------------------------------------\r\n \r\n   1.100000D+03  2.200000D+03 -3.300000D+03\r\n0COLUMN      2      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n   2.200000D+03 -4.400000D+02  5.500000D+04 -6.600000D+04\r\n0COLUMN      3      ROWS      1 THRU      4     --------------------------------------------------\r\n \r\n  -3.300000D+03  5.500000D+03 -7.700000D+03  8.800000D+03\r\n0COLUMN      4      ROWS      2 THRU      4     --------------------------------------------------\r\n \r\n  -6.600000D+03  8.800000D+03 -9.900000D+03\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       8\r\n0THE DENSITY OF THIS MATRIX IS  87.50 PERCENT.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =                                                                     \r\n DATE:  5/17/95\r\n END TIME: 16:31: 4\r\n TOTAL WALL CLOCK TIME      1 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01181a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01181A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                 \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-18-1A                                   \r\n                  3      LABEL    = POINT TEMPERATURE AND GRAVITY LOAD                                   \r\n                  4          LOAD = 10                                                                   \r\n                  5          TEMPERATURE(LOAD) = 2                                                       \r\n                  6          SPC  = 1                                                                    \r\n                  7      OUTPUT                                                                          \r\n                  8          DISPLACEMENTS = ALL                                                         \r\n                  9          ELSTRESS  = ALL                                                             \r\n                 10          OLOAD     = ALL                                                             \r\n                 11          ELFORCE   = ALL                                                             \r\n                 12          SPCFORCES = ALL                                                             \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    52, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       20      13      1       0.      0.      1.0     1               \r\n                    2-        CBAR    3       20      2       3       0.      0.      1.      1               \r\n                    3-        CBAR    4       21      3       4       0.      0.      1.      1               \r\n                    4-        CBAR    5       20      4       5       0.      0.      1.      1               \r\n                    5-        CBAR    6       20      5       6       0.      0.      1.      1               \r\n                    6-        CBAR    8       20      7       8       0.      0.      1.      1               \r\n                    7-        CBAR    9       20      5       9       0.      0.      1.      1               \r\n                    8-        CBAR    11      20      10      11      0.      1.      0.      1               \r\n                    9-        CBAR    12      20      11      12      0.      1.      0.      1               \r\n                   10-        CELAS2  101     1.0+4   9       1       14      1                               \r\n                   11-        CELAS2  102     1.0+5   11      2       15      2                               \r\n                   12-        CELBOW  2       10      1       2       -15.0   0.0     0.0     1               \r\n                   13-        CELBOW  7       10      6       7       -15.0   0.0     0.0     1               \r\n                   14-        CELBOW  10      10      9       10      0.0     0.0     15.0    1               \r\n                   15-        FORCE   1       3               1000.   0.      1.      0.                      \r\n                   16-        FORCE   1       4               -200.   0.      1.      0.                      \r\n                   17-        FORCE   1       8               3000.   1.      0.      0.                      \r\n                   18-        FORCE   1       8               2000.   0.      0.      1.                      \r\n                   19-        FORCE   1       8               1000.   0.      1.      0.                      \r\n                   20-        GRAV    3       0       1.      0.      -1.     0.                              \r\n                   21-        GRID    1               0.      105.    0.                                      \r\n                   22-        GRID    2               -15.    120.    0.                                      \r\n                   23-        GRID    3               -120.   120.    0.                                      \r\n                   24-        GRID    4               -133.   120.    0.                                      \r\n                   25-        GRID    5               -200.   120.    0.                                      \r\n                   26-        GRID    6               -200.   225.    0.                                      \r\n                   27-        GRID    7               -215.   240.    0.                                      \r\n                   28-        GRID    8               -440.   240.    0.                                      \r\n                   29-        GRID    9               -235.   120.    0.                                      \r\n                   30-        GRID    10              -250.   120.    15.                                     \r\n                   31-        GRID    11              -250.   120.    120.                                    \r\n                   32-        GRID    12              -250.   120.    240.                                    \r\n                   33-        GRID    13              0.      0.      0.                                      \r\n                   34-        GRID    14              -245.   120.    0.                                      \r\n                   35-        GRID    15              -250.   130.    120.                                    \r\n                   36-        GRID    16              -240.   120.    240.                                    \r\n                   37-        GRID    17              -250.   130.    240.                                    \r\n                   38-        GRID    18              -250.   120.    250.                                    \r\n                   39-        LOAD    10      1.      1.      1       1.      3                               \r\n                   40-        MAT1    11      27.9+6          0.333           6.81-6  0.                      \r\n                   41-        PBAR    20      11      16.085  211.33  211.33  422.66  6.61                    \r\n                   42-        PBAR    21      11      54.915  551.8   551.8   1103.6  6.61                    \r\n                   43-        PELBOW  10      11      16.085  211.33  211.33  422.66  6.61            +P1     \r\n                   44-        +P1     5.37    0.      5.37    90.     5.37    180.    5.37    270.    +P2     \r\n                   45-        +P2     2.0     2.0     1.0     1.0     5.767   5.767   15.     90.             \r\n                   46-        SPC     1       12      1       0.2                                             \r\n                   47-        SPC     1       12      3       0.3                                             \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n\r\n      POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPC     1       12      2       0.1                                             \r\n                   49-        SPC1    1       123     12                                                      \r\n                   50-        SPC1    1       456     12                                                      \r\n                   51-        SPC1    1       123456  13      THRU    18                                      \r\n                   52-        TEMPD   2       740.                                                            \r\n                              ENDDATA\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           13\r\n                                        PROFILE             50\r\n                                        MAX WAVEFRONT        5\r\n                                        AVG WAVEFRONT    3.333\r\n                                        RMS WAVEFRONT    3.464\r\n                                        RMS BANDWIDTH    4.442\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            3\r\n                                        PROFILE             33\r\n                                        MAX WAVEFRONT        3\r\n                                        AVG WAVEFRONT    2.200\r\n                                        RMS WAVEFRONT    2.266\r\n                                        RMS BANDWIDTH    2.352\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       13         3\r\n                                        PROFILE (P)                         50        33\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            5         3\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.333     2.200\r\n                                        RMS WAVEFRONT (C-RMS)            3.464     2.266\r\n                                        RMS BANDWITCH (B-RMS)            4.442     2.352\r\n                                        NUMBER OF GRID POINTS (N)                     18\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                14\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           3\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                        14\r\n                                        MATRIX DENSITY, PERCENT                   19.111\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF NON-ACTIVE GRID POINTS                  3\r\n                                        NO. OF SEQGP CARDS GENERATED                   5\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       2       2       3       3       5       4       7\r\n                         SEQGP          5       9       6       8       7       6       8       4\r\n                         SEQGP          9      11      10      12      11      14      12      13\r\n                         SEQGP         13       1      14      10      15      15      16      16\r\n                         SEQGP         17      17      18      18\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       16\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       17\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       18\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELAS2    ELEMENTS (ELEMENT TYPE  12) STARTING WITH ID      101\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ELBOW    ELEMENTS (ELEMENT TYPE  81) STARTING WITH ID        2\r\n0*** SYSTEM WARNING MESSAGE 4015, ELEMENT THERMAL AND DEFORMATION LOADING NOT COMPUTED FOR ILLEGAL ELEMENT TYPE       81\r\n                                  IN MODULE SSG1.\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   9.4749783E-16\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      5.038649E-01   5.281864E-01  -9.195849E-02  -8.692930E-04  -3.550957E-03  -6.353205E-03                  \r\n             2      G      5.702674E-01   5.672655E-01  -1.586360E-01   8.661342E-05  -4.651631E-03  -1.457964E-04                  \r\n             3      G      4.356607E-02   4.153025E-01  -6.545666E-01   3.464240E-03  -3.912368E-03   2.039121E-03                  \r\n             4      G     -2.185780E-02   3.891372E-01  -7.043164E-01   3.624396E-03  -3.736268E-03   1.979320E-03                  \r\n             5      G     -3.579434E-01   3.214919E-01  -8.441837E-01   5.779644E-03  -7.963566E-05  -3.861917E-04                  \r\n             6      G     -3.297779E-02   8.503972E-01  -7.838152E-02   8.183773E-03   1.131487E-02  -4.868690E-03                  \r\n             7      G      5.035120E-02   9.397321E-01   2.813487E-01   1.104570E-02   1.796971E-02  -6.450568E-03                  \r\n             8      G     -1.082010E+00   2.556206E+00   5.612461E+00   1.104570E-02   2.655589E-02  -7.551208E-03                  \r\n             9      G     -5.337445E-01   3.278520E-01  -8.476988E-01   5.006436E-03   4.606084E-05  -3.554765E-05                  \r\n            10      G     -5.032873E-01   2.636950E-01  -8.314428E-01   3.545830E-03   3.285278E-03  -3.686313E-04                  \r\n            11      G     -8.863562E-02   3.850545E-02  -3.034362E-01   4.114572E-04   3.966885E-03  -1.966034E-04                  \r\n            12      G      2.000000E-01   1.000000E-01   3.000000E-01   0.0            0.0            0.0                           \r\n            13      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            14      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            18      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.261114E+06   0.0            0.0            0.0            0.0                           \r\n             2      G      2.261539E+06  -4.248972E+02   0.0            0.0            0.0            0.0                           \r\n             3      G      5.459469E+06   6.100100E+02   0.0            0.0            0.0            0.0                           \r\n             4      G     -5.459469E+06  -4.644000E+02   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -2.262223E+06   0.0            0.0            0.0            0.0                           \r\n             6      G      0.0            2.261114E+06   0.0            0.0            0.0            0.0                           \r\n             7      G      2.261539E+06  -8.214973E+02   0.0            0.0            0.0            0.0                           \r\n             8      G     -2.258539E+06   2.563750E+02   2.000000E+03   0.0            0.0            0.0                           \r\n             9      G     -2.261539E+06  -1.935472E+02   0.0            0.0            0.0            0.0                           \r\n            10      G      0.0           -4.248972E+02  -2.261539E+06   0.0            0.0            0.0                           \r\n            11      G      0.0           -7.436250E+02  -2.500000E-01   0.0            0.0            0.0                           \r\n            12      G      0.0           -3.966000E+02   2.261539E+06   0.0            0.0            0.0                           \r\n            13      G      0.0           -2.261886E+06   0.0            0.0            0.0            0.0                           \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            12      G      2.072750E+03   3.925337E+03  -4.831085E+03   1.915076E+05  -3.192748E+05   7.246777E+03                  \r\n            13      G     -1.040994E+04   4.409537E+03   2.831085E+03   1.974457E+05   1.495861E+05   9.032761E+05                  \r\n            14      G      5.337445E+03   0.0            0.0            0.0            0.0            0.0                           \r\n            15      G      0.0           -3.850545E+03   0.0            0.0            0.0            0.0                           \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1    -1.974457E+05  9.032763E+05   9.981820E+04 -1.897681E+05  -2.831085E+03  1.040995E+04  -4.062500E+03  -1.495861E+05\r\n            3    -1.071200E+05 -2.913541E+05   1.901440E+05  4.597294E+04  -2.831086E+03 -3.212639E+03  -1.041000E+04  -1.422845E+05\r\n            4     1.901760E+05  4.596800E+04   2.269920E+05  9.568000E+04  -2.832000E+03 -3.824000E+03  -1.041050E+04  -1.422845E+05\r\n            5     2.269480E+05  9.566725E+04   4.166313E+05  3.206700E+05  -2.831094E+03 -3.358250E+03  -1.041000E+04  -1.422845E+05\r\n            6     2.400001E+05  4.092075E+05   3.000033E+04  9.420772E+04   1.999998E+03  2.999998E+03  -9.902500E+02   4.800000E+05\r\n            8     4.500000E+05  5.768425E+04   0.0           9.375000E-02   2.000000E+03  2.563740E+02  -3.000000E+03   0.0         \r\n            9    -6.336800E+04 -8.853700E+04   1.057214E+05 -2.960138E+04  -4.831125E+03 -1.683875E+03  -7.410000E+03   9.771544E+04\r\n           11     1.200704E+05 -1.470939E+05   2.319408E+05  7.054481E+04  -1.065432E+03 -2.072750E+03  -4.831250E+03   7.246777E+03\r\n           12     2.319409E+05  7.054481E+04  -1.915076E+05  3.192748E+05   3.528738E+03 -2.072750E+03  -4.831000E+03   7.246778E+03\r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                              F O R C E S   I N   S C A L A R   S P R I N G S        ( C E L A S 2 )\r\n      ELEMENT         FORCE            ELEMENT         FORCE            ELEMENT         FORCE            ELEMENT         FORCE\r\n        ID.                              ID.                              ID.                              ID.\r\n          101     -5.337444E+03            102      3.850545E+03                                                                    \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                          F O R C E S    I N    C U R V E D    B E A M    E L E M E N T S        ( C E L B O W )\r\n\r\n     ELEMENT           -BENDING MOMENT-                     -SHEAR-                  -AXIAL FORCE-       -TORQUE-\r\n       ID.       PLANE-1 END-A  PLANE-2 END-A     PLANE-1 END-A  PLANE-2 END-A             END-A             END-A\r\n                         END-B          END-B             END-B                            END-B             END-B\r\n\r\n\r\n            2     -2.122910E+06   9.981812E+04     -5.746718E+05  -2.831094E+03     -5.678993E+05     -1.495862E+05                 \r\n                  -2.021324E+06  -1.071198E+05      5.678993E+05                    -5.746718E+05     -1.422845E+05                 \r\n\r\n\r\n            7     -2.406891E+06   2.999988E+04     -5.672623E+05   2.000000E+03     -5.648269E+05      4.799998E+05                 \r\n                  -2.370360E+06   4.499998E+05      5.648269E+05                    -5.672623E+05      1.446701E-01                 \r\n\r\n\r\n           10     -2.206959E+06  -2.960150E+04     -5.690932E+05  -1.490344E+03     -5.663349E+05      9.771600E+04                 \r\n                  -2.165584E+06   1.200712E+05      5.663349E+05                    -5.690932E+05      7.246349E+03                 \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     0.0            0.0            0.0            0.0           -2.525645E+02  -2.525645E+02  -2.525645E+02                 \r\n             0.0            0.0            0.0            0.0                          -2.525645E+02  -2.525645E+02                 \r\n0      3     0.0            0.0            0.0            0.0           -6.471868E+02  -6.471868E+02  -6.471868E+02                 \r\n             0.0            0.0            0.0            0.0                          -6.471868E+02  -6.471868E+02                 \r\n0      4     0.0            0.0            0.0            0.0           -1.895748E+02  -1.895748E+02  -1.895748E+02                 \r\n             0.0            0.0            0.0            0.0                          -1.895748E+02  -1.895748E+02                 \r\n0      5     0.0            0.0            0.0            0.0           -6.471868E+02  -6.471868E+02  -6.471868E+02                 \r\n             0.0            0.0            0.0            0.0                          -6.471868E+02  -6.471868E+02                 \r\n0      6     0.0            0.0            0.0            0.0           -6.156357E+01  -6.156357E+01  -6.156357E+01                 \r\n             0.0            0.0            0.0            0.0                          -6.156357E+01  -6.156357E+01                 \r\n0      8     0.0            0.0            0.0            0.0           -1.865092E+02  -1.865092E+02  -1.865092E+02                 \r\n             0.0            0.0            0.0            0.0                          -1.865092E+02  -1.865092E+02                 \r\n0      9     0.0            0.0            0.0            0.0           -4.606777E+02  -4.606777E+02  -4.606777E+02                 \r\n             0.0            0.0            0.0            0.0                          -4.606777E+02  -4.606777E+02                 \r\n0     11     0.0            0.0            0.0            0.0           -3.003575E+02  -3.003575E+02  -3.003575E+02                 \r\n             0.0            0.0            0.0            0.0                          -3.003575E+02  -3.003575E+02                 \r\n0     12     0.0            0.0            0.0            0.0           -3.003419E+02  -3.003419E+02  -3.003419E+02                 \r\n             0.0            0.0            0.0            0.0                          -3.003419E+02  -3.003419E+02                 \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                              S T R E S S E S   I N   S C A L A R   S P R I N G S        ( C E L A S 2 )\r\n      ELEMENT         STRESS           ELEMENT         STRESS           ELEMENT         STRESS           ELEMENT         STRESS\r\n        ID.                              ID.                              ID.                              ID.\r\n          101      0.0                     102      0.0                                                                             \r\n1     3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-18-1A                                                                                            \r\n0     POINT TEMPERATURE AND GRAVITY LOAD                                                                                            \r\n \r\n                          S T R E S S E S    I N    C U R V E D    B E A M    E L E M E N T S        ( C E L B O W )\r\n\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      2    -2.536428E+03   5.394420E+04   2.536423E+03  -5.394420E+04  -3.530614E+04   1.863805E+04  -8.925034E+04                 \r\n             2.721968E+03   5.136284E+04  -2.721972E+03  -5.136284E+04  -3.572719E+04   1.563566E+04  -8.709003E+04                 \r\n0      7    -7.623117E+02   6.116029E+04   7.623063E+02  -6.116029E+04  -3.511514E+04   2.604515E+04  -9.627542E+04                 \r\n            -1.143472E+04   6.023202E+04   1.143471E+04  -6.023202E+04  -3.526654E+04   2.496548E+04  -9.549856E+04                 \r\n0     10     7.521888E+02   5.607993E+04  -7.521937E+02  -5.607993E+04  -3.520888E+04   2.087104E+04  -9.128881E+04                 \r\n            -3.051067E+03   5.502856E+04   3.051062E+03  -5.502856E+04  -3.538037E+04   1.964819E+04  -9.040892E+04                 \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)               \r\n DATE:  5/17/95\r\n END TIME: 16:31:53\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01191a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01191A,NASTRAN                                                           \r\n     DIAG  14                                                                        \r\n     APP   HEAT                                                                      \r\n     SOL   1                                                                         \r\n     TIME  20                                                                        \r\n     ALTER   67,67 $                                                                 \r\n     MAGBDY  GEOM1,HEQEXIN/PER/S,N,IPG $                                             \r\n     SSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/                 \r\n             HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                              \r\n     ALTER   77 $                                                                    \r\n     SDR1,   ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $                       \r\n     SDR1,   ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $                       \r\n     SDR1,   ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $                       \r\n     ALTER   84 $                                                                    \r\n     EMFLD   HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM,                     \r\n             HCCENG/HOEH1/V,N,HLUSET $                                               \r\n     ALTER   85 $                                                                    \r\n     OFP     HOEH1,,,,,//S,N,CARDNO $                                                \r\n     PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$        \r\n     OUTPUT2 PROCOF,,,,//0/11 $                                                      \r\n     TABPT   PROCOF,,,,// $                                                          \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS               \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-19-1A                                   \r\n                  3      DISP    = ALL                                                                   \r\n                  4      OLOAD   = ALL                                                                   \r\n                  5      ELFORCE = ALL                                                                   \r\n                  6      SUBCASE 1                                                                       \r\n                  7         LOAD = 6                                                                     \r\n                  8      SUBCASE 2                                                                       \r\n                  9         LOAD = 5                                                                     \r\n                 10      SUBCASE 3                                                                       \r\n                 11         LOAD = 7                                                                     \r\n                 12      SUBCOM  4                                                                       \r\n                 13       SUBSEQ = .5,.5,0.                                                              \r\n                 14      SUBCASE 5                                                                       \r\n                 15         LOAD = 13                                                                    \r\n                 16      SUBCASE 6                                                                       \r\n                 17         LOAD = 12                                                                    \r\n                 18      SUBCASE 7                                                                       \r\n                 19         LOAD = 11                                                                    \r\n                 20      SUBCASE 100                                                                     \r\n                 21         LOAD = 100                                                                   \r\n                 22      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   108, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BFIELD  0       6       THRU    8                                               \r\n                    2-        BFIELD  1       5       1       2       3       100                             \r\n                    3-        BFIELD  2       -1                                                              \r\n                    4-        CEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM12   \r\n                    5-        +CM12   0.      1.25    0.      0.                                              \r\n                    6-        CIS2D8  100     1       110     111     112     113     210     211     +CIS    \r\n                    7-        +CIS    212     213                                                             \r\n                    8-        CORD2R  1               0.      0.      0.      0.      0.      1.      +C1     \r\n                    9-        +C1     0.      1.      1.                                                      \r\n                   10-        CORD2R  2               0.      0.      0.      0.      0.      1.      +C2     \r\n                   11-        +C2     -1.     0.      1.                                                      \r\n                   12-        CQDMEM  1       1       10      11      12      13                              \r\n                   13-        CQDMEM  3       1       21      18      19      20                              \r\n                   14-        CQUAD1  2       2       15      14      17      16                              \r\n                   15-        CQUAD2  4       3       24      25      22      23                              \r\n                   16-        CTRIA1  5       4       5       4       6                                       \r\n                   17-        CTRIA2  6       5       9       7       8                                       \r\n                   18-        CTRIA2  7       5       27      28      26                                      \r\n                   19-        CTRMEM  8       6       1       2       3                                       \r\n                   20-        GEMLOOP 13      5.              5.      0.      0.      4.94    .65     +G1     \r\n                   21-        +G1     0.      4.77    1.28    0.      4.5     1.88    0.      4.12    +G2     \r\n                   22-        +G2     2.41    0.      3.66    2.87    0.      3.13    3.25    0.      +G3     \r\n                   23-        +G3     2.53    3.52    0.      1.9     3.69    0.      1.25    3.75    +G4     \r\n                   24-        +G4     0.      .6      3.69    0.      -.03    3.52    0.      -.62    +G5     \r\n                   25-        +G5     3.25    0.      -1.16   2.87    0.      -1.62   2.41    0.      +G6     \r\n                   26-        +G6     ENDT                                                                    \r\n                   27-        GEMLOOP 13      5.              1.9     -3.69   0.      2.53    -3.52   +G13    \r\n                   28-        +G13    0.      3.12    -3.25   0.      3.66    -2.87   0.      4.12    +G14    \r\n                   29-        +G14    -2.41   0.      4.5     -1.87   0.      4.77    -1.28   0.      +G15    \r\n                   30-        +G15    4.94    -.65    0.      5.      0.      0.      ENDT                    \r\n                   31-        GEMLOOP 13      5.              -1.62   2.41    0.      -2.     1.87    +G7     \r\n                   32-        +G7     0.      -2.27   1.28    0.      -2.44   .65     0.      -2.5    +G8     \r\n                   33-        +G8     0.      0.      -2.44   -.65    0.      -2.27   -1.28   0.      +G9     \r\n                   34-        +G9     -2.     -1.87   0.      -1.62   -2.41   0.      -1.16   -2.87   +G10    \r\n                   35-        +G10    0.      -.62    -3.25   0.      -.03    -3.52   0.      .6      +G11    \r\n                   36-        +G11    -3.69   0.      1.25    -3.75   0.      1.9     -3.69   0.      +G12    \r\n                   37-        +G12    ENDT                                                                    \r\n                   38-        GRID    1               0.      0.                      1                       \r\n                   39-        GRID    2               2.82842 2.82842                                         \r\n                   40-        GRID    3               1.41421 1.41421 2.                                      \r\n                   41-        GRID    4               0.      0.                      1                       \r\n                   42-        GRID    5               2.82842 2.82842                                         \r\n                   43-        GRID    6               1.41421 1.41421 2.                                      \r\n                   44-        GRID    7               0.      0.                      1                       \r\n                   45-        GRID    8               2.82842 2.82842                                         \r\n                   46-        GRID    9               1.41421 1.41421 2.                                      \r\n                   47-        GRID    10              0.      0.                      1                       \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    11              2.82842 2.82842                                         \r\n                   49-        GRID    12              2.82842 2.82842 2.                                      \r\n                   50-        GRID    13              0.      0.      2.                                      \r\n                   51-        GRID    14              0.      0.                      1                       \r\n                   52-        GRID    15              2.82842 2.82842                                         \r\n                   53-        GRID    16              2.82842 2.82842 2.                                      \r\n                   54-        GRID    17              0.      0.      2.                                      \r\n                   55-        GRID    18              0.      0.                      1                       \r\n                   56-        GRID    19              2.82842 2.82842                                         \r\n                   57-        GRID    20              2.82842 2.82842 2.                                      \r\n                   58-        GRID    21              0.      0.      2.                                      \r\n                   59-        GRID    22              0.      0.                      1                       \r\n                   60-        GRID    23              2.82842 2.82842                                         \r\n                   61-        GRID    24              2.82842 2.82842 2.                                      \r\n                   62-        GRID    25              0.      0.      2.                                      \r\n                   63-        GRID    26              0.      0.                      1                       \r\n                   64-        GRID    27              2.82842 2.82842                                         \r\n                   65-        GRID    28              1.41421 1.41421 2.                                      \r\n                   66-        GRID    110             0.      0.                      1                       \r\n                   67-        GRID    111             2.82842 2.82842                                         \r\n                   68-        GRID    112             2.82842 2.82842 2.                                      \r\n                   69-        GRID    113             0.      0.      2.                                      \r\n                   70-        GRID    210             1.41421 1.41421                                         \r\n                   71-        GRID    211             2.82842 2.82842 1.                                      \r\n                   72-        GRID    212             1.41421 1.41421 2.                                      \r\n                   73-        GRID    213             0.      0.      1.                                      \r\n                   74-        LOAD    7       1.      1.      5       1.      6                               \r\n                   75-        MAT4    1       250.                                                            \r\n                   76-        MDIPOLE 11      0       5.      0.      0.      10.     10.     10.     +M1     \r\n                   77-        +M1     0.      0.                                                              \r\n                   78-        PIS2D8  1       1       2.                                                      \r\n                   79-        PQDMEM  1       1       2.                                                      \r\n                   80-        PQUAD1  2       1       2.      1       2.      1       2.                      \r\n                   81-        PQUAD2  3       1       2.                                                      \r\n                   82-        PTRIA1  4       1       2.      1       2.      1       2.                      \r\n                   83-        PTRIA2  5       1       2.                                                      \r\n                   84-        PTRMEM  6       1       2.                                                      \r\n                   85-        REMFLUX 6               7312.5  8625.   10500.  100                             \r\n                   86-        REMFLUX 6               7312.5  8625.   10500.  1       THRU    4               \r\n                   87-        REMFLUX 6               6333.3337833.3339583.3336       5       8               \r\n                   88-        REMFLUX 6               6333.3337833.3339583.3337                               \r\n                   89-        SPCFLD  5               10.     20.     30.     26      22                      \r\n                   90-        SPCFLD  5               33.     37.     42.5    211                             \r\n                   91-        SPCFLD  5               10.     20.     30.     7       18                      \r\n                   92-        SPCFLD  5               17.5    25.     31.     210                             \r\n                   93-        SPCFLD  5               25.     30.     32.     2       11      111             \r\n                   94-        SPCFLD  5               41.     44.     53.     212                             \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        SPCFLD  5               25.5    32.     41.5    213                             \r\n                   96-        SPCFLD  5               10.     20.     30.     4       14                      \r\n                   97-        SPCFLD  5               10.     20.     30.     1       10      110             \r\n                   98-        SPCFLD  5               41.     44.     53.     28      24      25              \r\n                   99-        SPCFLD  5               25.     30.     32.     5       15                      \r\n                  100-        SPCFLD  5               25.     30.     32.     8       19                      \r\n                  101-        SPCFLD  5               25.     30.     32.     27      23                      \r\n                  102-        SPCFLD  5               41.     44.     53.     6       16      17              \r\n                  103-        SPCFLD  5               41.     44.     53.     9       20      21              \r\n                  104-        SPCFLD  5               41.     44.     53.     112     113                     \r\n                  105-        SPCFLD  5               41.     44.     53.     3       12      13              \r\n                  106-        SPCFLD  100             10.     20.     30.     210     THRU    213             \r\n                  107-        SPCFLD  100             10.     20.     30.     10      THRU    13              \r\n                  108-        SPCFLD  100             10.     20.     30.     110     THRU    113             \r\n                              ENDDATA\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $          \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $        \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/       \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $                      \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/    \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ \r\n                   HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    HP1 $                                                          \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $                          \r\n\r\n      22  TA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/    \r\n                   HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $                         \r\n\r\n      23  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      24  COND     ERROR4,NOELMT $                                                \r\n\r\n      25  PURGE    HKGGX/NOSIMP $                                                 \r\n\r\n      26  COND     HLBL1,NOSIMP $                                                 \r\n\r\n      27  PARAM    //*ADD*/HNOKGG/1/0 $                                           \r\n\r\n      28  EMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $        \r\n\r\n      29  PURGE    HKGGX/HNOKGG $                                                 \r\n\r\n      30  COND     HLBL1,HNOKGG $                                                 \r\n\r\n      31  EMA      HGPECT,HKDICT,HKELM/HKGGX $                                    \r\n\r\n      32  PURGE    HKDICT,HKELM/MINUS1 $                                          \r\n\r\n      33  LABEL    HLBL1 $                                                        \r\n\r\n      34  EQUIV    HKGGX,HKGG/NOGENL $                                            \r\n\r\n      35  COND     HLBL11A,NOGENL $                                               \r\n\r\n      36  SMA3     HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $                         \r\n\r\n      37  LABEL    HLBL11A $                                                      \r\n\r\n      38  GPSTGEN  HKGG,HSIL/GPST $                                               \r\n\r\n      39  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      40  LABEL    HLBL11 $                                                       \r\n\r\n      41  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET,          \r\n                   HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/    \r\n                   S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/     \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      43  COND     ERROR3,NOL $                                                   \r\n\r\n      44  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      45  PURGE    HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV,      \r\n                   HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $                     \r\n\r\n      46  EQUIV    HKGG,HKNN/MPCF1 $                                              \r\n\r\n      47  COND     HLBL2,MPCF1 $                                                  \r\n\r\n      48  MCE1     HUSET,RG/GM $                                                  \r\n\r\n      49  MCE2     HUSET,GM,HKGG,,,/HKNN,,, $                                     \r\n\r\n      50  LABEL    HLBL2 $                                                        \r\n\r\n      51  EQUIV    HKNN,HKFF/SINGLE $                                             \r\n\r\n      52  COND     HLBL3,SINGLE $                                                 \r\n\r\n      53  SCE1     HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $                              \r\n\r\n      54  LABEL    HLBL3 $                                                        \r\n\r\n      55  EQUIV    HKFF,HKAA/OMIT $                                               \r\n\r\n      56  COND     HLBL5,OMIT $                                                   \r\n\r\n      57  SMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $                        \r\n\r\n      58  LABEL    HLBL5 $                                                        \r\n\r\n      59  EQUIV    HKAA,HKLL/REACT $                                              \r\n\r\n      60  COND     HLBL6,REACT $                                                  \r\n\r\n      61  RBMG1    HUSET,HKAA,/HKLL,HKLR,HKRR,,, $                                \r\n\r\n      62  LABEL    HLBL6 $                                                        \r\n\r\n      63  RBMG2    HKLL/HLLL $                                                    \r\n\r\n      64  COND     HLBL7,REACT $                                                  \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      65  RBMG3    HLLL,HKLR,HKRR/HDM $                                           \r\n\r\n      66  LABEL    HLBL7 $                                                        \r\n\r\n      67  MAGBDY  GEOM1,HEQEXIN/PER/S,N,IPG $                                     \r\n\r\n      67  SSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/         \r\n                  HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                      \r\n\r\n      68  EQUIV    HPG,HPL/NOSET $                                                \r\n\r\n      69  COND     HLBL10,NOSET $                                                 \r\n\r\n      70  SSG2     HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $                 \r\n\r\n      71  LABEL    HLBL10 $                                                       \r\n\r\n      72  SSG3     HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/       \r\n                   V,Y,IRES=-1/NSKIP/S,N,EPSI $                                   \r\n\r\n      73  COND     HLBL9,IRES $                                                   \r\n\r\n      74  MATGPR   GPL,HUSET,HSIL,HRULV//*L* $                                    \r\n\r\n      75  MATGPR   GPL,HUSET,HSIL,HRUOV//*O* $                                    \r\n\r\n      76  LABEL    HLBL9 $                                                        \r\n\r\n      77  SDR1     HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG,    \r\n                   HQG/NSKIP/*HSTATICS* $                                         \r\n\r\n      77  SDR1,   ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $               \r\n\r\n      77  SDR1,   ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $               \r\n\r\n      77  SDR1,   ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $               \r\n\r\n      78  COND     HLBL8,HREPEAT $                                                \r\n\r\n      79  REPT     HLBL11,100 $                                                   \r\n\r\n      80  JUMP     ERROR1 $                                                       \r\n\r\n      81  PARAM    //*NOT*/HTEST/HREPEAT $                                        \r\n\r\n      82  COND     ERROR2,HTEST $                                                 \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      83  LABEL    HLBL8 $                                                        \r\n\r\n      84  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV,      \r\n                   HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/           \r\n                   *STATICS* $                                                    \r\n\r\n      84  EMFLD   HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM,             \r\n                  HCCENG/HOEH1/V,N,HLUSET $                                       \r\n\r\n      85  OFP      HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $                       \r\n\r\n      85  OFP     HOEH1,,,,,//S,N,CARDNO $                                        \r\n\r\n      85  PROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$\r\n\r\n      85  OUTPUT2 PROCOF,,,,//0/11 $                                              \r\n\r\n      85  TABPT   PROCOF,,,,// $                                                  \r\n\r\n      86  COND     HP2,JUMPPLOT $                                                 \r\n\r\n      87  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1,    \r\n                   HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/                 \r\n                   S,N,PFILE $                                                    \r\n\r\n      88  PRTMSG   PLOTX2// $                                                     \r\n\r\n      89  LABEL    HP2 $                                                          \r\n\r\n      90  JUMP     FINIS $                                                        \r\n\r\n      91  LABEL    ERROR1 $                                                       \r\n\r\n      92  PRTPARM  //-1/*HSTA* $                                                  \r\n\r\n      93  LABEL    ERROR2 $                                                       \r\n\r\n      94  PRTPARM  //-2/*HSTA* $                                                  \r\n\r\n      95  LABEL    ERROR3 $                                                       \r\n\r\n      96  PRTPARM  //-3/*HSTA* $                                                  \r\n\r\n      97  LABEL    ERROR4 $                                                       \r\n\r\n      98  PRTPARM  //-4/*HSTA* $                                                  \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      99  LABEL    FINIS $                                                        \r\n\r\n     100  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     101  END      $                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MAGBDY     INSTRUCTION NO.  67\r\n     DATA BLOCK NAMED HEQEXIN  APPEARS AS INPUT BEFORE BEING DEFINED\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            100\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    2.778\r\n                                        RMS WAVEFRONT    3.249\r\n                                        RMS BANDWIDTH    3.249\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            100\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    2.778\r\n                                        RMS WAVEFRONT    3.249\r\n                                        RMS BANDWIDTH    3.249\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                        100       100\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        2.778     2.778\r\n                                        RMS WAVEFRONT (C-RMS)            3.249     3.249\r\n                                        RMS BANDWITCH (B-RMS)            3.249     3.249\r\n                                        NUMBER OF GRID POINTS (N)                     36\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 9\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           9\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        64\r\n                                        MATRIX DENSITY, PERCENT                   12.654\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK HEQEXIN  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IS2D8    ELEMENTS (ELEMENT TYPE  80) STARTING WITH ID      100\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QDMEM    ELEMENTS (ELEMENT TYPE  16) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD1    ELEMENTS (ELEMENT TYPE  19) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID        4\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA1    ELEMENTS (ELEMENT TYPE   6) STARTING WITH ID        5\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        6\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRMEM    ELEMENTS (ELEMENT TYPE   9) STARTING WITH ID        8\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK HEQEXIN  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (    9,    1), TO (    9,    7)\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.1190513E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -4.0494909E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =  -3.5833078E-16\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     4, EPSILON SUB E =  -4.3837492E-17\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     5, EPSILON SUB E =   4.5067096E-17\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     6, EPSILON SUB E =   7.1159569E-17\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     7, EPSILON SUB E =  -4.0974073E-16\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK HEQEXIN  MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.602771E+02  -1.568052E+02                  \r\n             7      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.803118E+02  -2.643118E+02                  \r\n            13      S     -8.400000E+01   0.0           -1.803118E+02  -2.643118E+02  -8.400000E+01   0.0                           \r\n            19      S     -1.803118E+02  -2.643118E+02  -8.400000E+01   0.0           -1.803118E+02  -2.643118E+02                  \r\n            25      S     -8.400000E+01   0.0           -1.602771E+02  -1.568052E+02                                                \r\n           110      S      0.0           -1.803118E+02  -2.643117E+02  -8.399998E+01                                                \r\n           210      S     -9.015587E+01  -2.223118E+02  -1.741559E+02  -4.199999E+01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.602771E+02  -1.568052E+02                  \r\n             7      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.760382E+02  -2.643118E+02                  \r\n            13      S     -7.972639E+01   0.0           -1.760382E+02  -2.643118E+02  -7.972639E+01   0.0                           \r\n            19      S     -1.760382E+02  -2.643118E+02  -7.972639E+01   0.0           -1.760382E+02  -2.643118E+02                  \r\n            25      S     -7.972639E+01   0.0           -1.602771E+02  -1.568052E+02                                                \r\n           110      S      0.0           -1.671576E+02  -2.580859E+02  -6.528661E+01                                                \r\n           210      S     -7.473998E+01  -2.073717E+02  -1.616862E+02  -2.689331E+01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -3.205542E+02  -3.136104E+02   0.0           -3.205542E+02  -3.136104E+02                  \r\n             7      S      0.0           -3.205543E+02  -3.136104E+02   0.0           -3.563499E+02  -5.286235E+02                  \r\n            13      S     -1.637264E+02   0.0           -3.563499E+02  -5.286235E+02  -1.637264E+02   0.0                           \r\n            19      S     -3.563499E+02  -5.286235E+02  -1.637264E+02   0.0           -3.563499E+02  -5.286235E+02                  \r\n            25      S     -1.637264E+02   0.0           -3.205543E+02  -3.136104E+02                                                \r\n           110      S      0.0           -3.474694E+02  -5.223976E+02  -1.492866E+02                                                \r\n           210      S     -1.648958E+02  -4.296835E+02  -3.358421E+02  -6.889330E+01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.602771E+02  -1.568052E+02                  \r\n             7      S      0.0           -1.602771E+02  -1.568052E+02   0.0           -1.781750E+02  -2.643118E+02                  \r\n            13      S     -8.186319E+01   0.0           -1.781750E+02  -2.643118E+02  -8.186319E+01   0.0                           \r\n            19      S     -1.781750E+02  -2.643118E+02  -8.186319E+01   0.0           -1.781750E+02  -2.643118E+02                  \r\n            25      S     -8.186319E+01   0.0           -1.602771E+02  -1.568052E+02                                                \r\n           110      S      0.0           -1.737347E+02  -2.611988E+02  -7.464330E+01                                                \r\n           210      S     -8.244792E+01  -2.148418E+02  -1.679211E+02  -3.444665E+01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -2.876360E-01  -1.594546E+00   0.0           -2.876360E-01  -1.594546E+00                  \r\n             7      S      0.0           -2.876360E-01  -1.594545E+00   0.0           -3.880714E-01  -1.767931E+00                  \r\n            13      S     -1.256972E+00   0.0           -3.880714E-01  -1.767931E+00  -1.256972E+00   0.0                           \r\n            19      S     -3.880714E-01  -1.767931E+00  -1.256972E+00   0.0           -3.880714E-01  -1.767931E+00                  \r\n            25      S     -1.256972E+00   0.0           -2.876360E-01  -1.594545E+00                                                \r\n           110      S      0.0           -8.759369E-02  -1.690579E+00  -1.217009E+00                                                \r\n           210      S      8.366556E-02  -1.126326E+00  -1.206402E+00  -6.304914E-01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -2.846147E-01  -1.587854E+00   0.0           -2.846147E-01  -1.587854E+00                  \r\n             7      S      0.0           -2.846147E-01  -1.587854E+00   0.0           -3.840474E-01  -1.760479E+00                  \r\n            13      S     -1.253651E+00   0.0           -3.840472E-01  -1.760478E+00  -1.253651E+00   0.0                           \r\n            19      S     -3.840474E-01  -1.760479E+00  -1.253651E+00   0.0           -3.840474E-01  -1.760479E+00                  \r\n            25      S     -1.253651E+00   0.0           -2.846147E-01  -1.587854E+00                                                \r\n           110      S      0.0           -8.631366E-02  -1.685932E+00  -1.214901E+00                                                \r\n           210      S      8.181333E-02  -1.120497E+00  -1.203998E+00  -6.294569E-01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0            5.141344E-02   5.421922E-02   0.0            5.141344E-02   5.421922E-02                  \r\n             7      S      0.0            5.141344E-02   5.421921E-02   0.0            4.809584E-02   7.312070E-02                  \r\n            13      S      2.341378E-02   0.0            4.809583E-02   7.312069E-02   2.341378E-02   0.0                           \r\n            19      S      4.809584E-02   7.312070E-02   2.341378E-02   0.0            4.809584E-02   7.312070E-02                  \r\n            25      S      2.341378E-02   0.0            5.141344E-02   5.421922E-02                                                \r\n           110      S      0.0            4.194599E-02   6.114474E-02   1.281794E-02                                                \r\n           210      S     -2.405571E-03   5.656438E-02   2.613910E-02   4.891117E-03                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0            0.0            0.0           -8.485258E+01  -1.448526E+02                  \r\n            13      S     -5.999999E+01   0.0            0.0            0.0            0.0            0.0                           \r\n            19      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      S      0.0            0.0            0.0            0.0                                                         \r\n           110      S      0.0           -8.485259E+01  -1.448526E+02  -5.999996E+01                                                \r\n           210      S     -4.242628E+01  -1.148526E+02  -1.024263E+02  -2.999998E+01                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.920131E+04  -8.680720E+02  -3.833323E+04   3.920131E+04  -8.680720E+02  -3.833323E+04                  \r\n             7      S      3.920130E+04  -8.680740E+02  -3.833323E+04   6.453892E+04   1.946086E+04  -6.453893E+04                  \r\n            13      S     -1.946086E+04   6.453892E+04   1.946086E+04  -6.453892E+04  -1.946086E+04   6.453892E+04                  \r\n            19      S      1.946086E+04  -6.453893E+04  -1.946086E+04   6.453893E+04   1.946086E+04  -6.453892E+04                  \r\n            25      S     -1.946086E+04   3.920130E+04  -8.680740E+02  -3.833323E+04                                                \r\n           110      S      2.151297E+04   6.486952E+03  -2.151297E+04  -6.486957E+03                                                \r\n           210      S      5.599986E+04  -3.005203E+04  -5.599986E+04   3.005204E+04                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.920130E+04  -8.680739E+02  -3.833323E+04   3.920130E+04  -8.680739E+02  -3.833323E+04                  \r\n             7      S      3.920130E+04  -8.680759E+02  -3.833323E+04   6.186792E+04   2.213186E+04  -6.720992E+04                  \r\n            13      S     -1.678986E+04   6.186792E+04   2.213186E+04  -6.720992E+04  -1.678986E+04   6.186792E+04                  \r\n            19      S      2.213186E+04  -6.720992E+04  -1.678986E+04   6.186792E+04   2.213186E+04  -6.720992E+04                  \r\n            25      S     -1.678986E+04   3.920130E+04  -8.680759E+02  -3.833323E+04                                                \r\n           110      S      9.433347E+03  -2.843848E+01  -3.238828E+04  -1.224247E+04                                                \r\n           210      S      5.992823E+04  -1.560762E+04  -5.403566E+04   4.494089E+04                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      7.840261E+04  -1.736146E+03  -7.666647E+04   7.840261E+04  -1.736146E+03  -7.666647E+04                  \r\n             7      S      7.840261E+04  -1.736150E+03  -7.666647E+04   1.264068E+05   4.159273E+04  -1.317488E+05                  \r\n            13      S     -3.625073E+04   1.264068E+05   4.159273E+04  -1.317488E+05  -3.625072E+04   1.264068E+05                  \r\n            19      S      4.159273E+04  -1.317488E+05  -3.625073E+04   1.264068E+05   4.159273E+04  -1.317488E+05                  \r\n            25      S     -3.625072E+04   7.840261E+04  -1.736150E+03  -7.666647E+04                                                \r\n           110      S      3.094631E+04   6.458514E+03  -5.390125E+04  -1.872943E+04                                                \r\n           210      S      1.159281E+05  -4.565966E+04  -1.100355E+05   7.499293E+04                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.920130E+04  -8.680729E+02  -3.833323E+04   3.920130E+04  -8.680729E+02  -3.833323E+04                  \r\n             7      S      3.920130E+04  -8.680750E+02  -3.833323E+04   6.320342E+04   2.079636E+04  -6.587442E+04                  \r\n            13      S     -1.812536E+04   6.320342E+04   2.079636E+04  -6.587442E+04  -1.812536E+04   6.320342E+04                  \r\n            19      S      2.079636E+04  -6.587442E+04  -1.812536E+04   6.320342E+04   2.079636E+04  -6.587442E+04                  \r\n            25      S     -1.812536E+04   3.920130E+04  -8.680750E+02  -3.833323E+04                                                \r\n           110      S      1.547316E+04   3.229257E+03  -2.695062E+04  -9.364715E+03                                                \r\n           210      S      5.796404E+04  -2.282983E+04  -5.501776E+04   3.749646E+04                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.986356E+02   3.267264E+02  -7.253619E+02   3.986356E+02   3.267264E+02  -7.253619E+02                  \r\n             7      S      3.986355E+02   3.267263E+02  -7.253619E+02   6.769934E+02   6.414192E+02  -7.537983E+02                  \r\n            13      S     -5.646143E+02   6.769934E+02   6.414192E+02  -7.537983E+02  -5.646143E+02   6.769934E+02                  \r\n            19      S      6.414192E+02  -7.537983E+02  -5.646143E+02   6.769934E+02   6.414192E+02  -7.537983E+02                  \r\n            25      S     -5.646142E+02   3.986355E+02   3.267263E+02  -7.253619E+02                                                \r\n           110      S      2.683082E+02   4.090473E+02  -1.280367E+02  -1.079526E+02                                                \r\n           210      S      9.983201E+02  -5.119836E+02  -7.484164E+02  -1.792863E+02                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.969626E+02   3.258087E+02  -7.227713E+02   3.969626E+02   3.258087E+02  -7.227713E+02                  \r\n             7      S      3.969626E+02   3.258087E+02  -7.227712E+02   6.748302E+02   6.402078E+02  -7.515674E+02                  \r\n            13      S     -5.634706E+02   6.748301E+02   6.402078E+02  -7.515674E+02  -5.634706E+02   6.748302E+02                  \r\n            19      S      6.402078E+02  -7.515674E+02  -5.634706E+02   6.748301E+02   6.402078E+02  -7.515674E+02                  \r\n            25      S     -5.634706E+02   3.969626E+02   3.258087E+02  -7.227712E+02                                                \r\n           110      S      2.670606E+02   4.065747E+02  -1.291658E+02  -1.083812E+02                                                \r\n           210      S      9.944961E+02  -5.062684E+02  -7.469031E+02  -1.774130E+02                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S     -1.355480E+01  -7.014089E-01   1.425621E+01  -1.355480E+01  -7.014089E-01   1.425621E+01                  \r\n             7      S     -1.355480E+01  -7.014085E-01   1.425621E+01  -1.771886E+01  -6.500403E+00   1.872578E+01                  \r\n            13      S      5.493482E+00  -1.771886E+01  -6.500402E+00   1.872578E+01   5.493482E+00  -1.771886E+01                  \r\n            19      S     -6.500403E+00   1.872578E+01   5.493482E+00  -1.771886E+01  -6.500403E+00   1.872578E+01                  \r\n            25      S      5.493481E+00  -1.355480E+01  -7.014090E-01   1.425621E+01                                                \r\n           110      S      5.990481E-02  -5.015969E-02   8.008190E+00   5.459590E+00                                                \r\n           210      S     -2.904379E+01   1.582254E+01   6.229857E+00  -6.486140E+00                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n            10      S      4.060652E+04   1.939332E+04  -4.060652E+04  -1.939332E+04                                                \r\n           110      S      1.353550E+04   6.464438E+03  -1.353551E+04  -6.464438E+03                                                \r\n           210      S      3.999990E+04  -1.414214E+04  -3.999989E+04   1.414214E+04                                                \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -4.507807E+01    -4.200001E+01                      1.126952E+04     1.050000E+04\r\n             3    QDMEM        4.200000E+01    -4.507807E+01                     -1.050000E+04     1.126952E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        4.507806E+01    -4.200000E+01                     -1.126952E+04     1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        4.507806E+01     4.200000E+01                     -1.126952E+04    -1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        4.006938E+01    -3.833334E+01                     -1.001735E+04     9.583335E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        5.543909E+01    -1.227642E+00                     -1.385977E+04     3.069105E+02\r\n             7    TRIA2        1.227501E+00     5.543909E+01                     -3.068752E+02    -1.385977E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -4.006938E+01    -3.833333E+01                      1.001735E+04     9.583333E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -4.507806E+01    -4.200000E+01                      1.126951E+04     1.050000E+04\r\n             3    QDMEM        4.200000E+01    -4.507806E+01                     -1.050000E+04     1.126952E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        4.507806E+01    -4.200000E+01                     -1.126952E+04     1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        4.507806E+01     4.200001E+01                     -1.126952E+04    -1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        4.006938E+01    -3.833333E+01                     -1.001735E+04     9.583333E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        5.543909E+01    -1.227638E+00                     -1.385977E+04     3.069095E+02\r\n             7    TRIA2        1.227501E+00     5.543909E+01                     -3.068752E+02    -1.385977E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -4.006938E+01    -3.833332E+01                      1.001735E+04     9.583331E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -9.015613E+01    -8.400001E+01                      2.253903E+04     2.100000E+04\r\n             3    QDMEM        8.400000E+01    -9.015613E+01                     -2.100000E+04     2.253903E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        9.015613E+01    -8.400000E+01                     -2.253903E+04     2.100000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        9.015613E+01     8.400000E+01                     -2.253903E+04    -2.100000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        8.013877E+01    -7.666667E+01                     -2.003469E+04     1.916667E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        1.108782E+02    -2.455292E+00                     -2.771954E+04     6.138229E+02\r\n             7    TRIA2        2.455009E+00     1.108782E+02                     -6.137524E+02    -2.771954E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -8.013877E+01    -7.666666E+01                      2.003469E+04     1.916666E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -4.507806E+01    -4.200000E+01                      1.126952E+04     1.050000E+04\r\n             3    QDMEM        4.199999E+01    -4.507806E+01                     -1.050000E+04     1.126952E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        4.507806E+01    -4.200000E+01                     -1.126952E+04     1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        4.507806E+01     4.200000E+01                     -1.126952E+04    -1.050000E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        4.006938E+01    -3.833333E+01                     -1.001735E+04     9.583333E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        5.543909E+01    -1.227638E+00                     -1.385977E+04     3.069095E+02\r\n             7    TRIA2        1.227501E+00     5.543909E+01                     -3.068752E+02    -1.385977E+04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -4.006938E+01    -3.833332E+01                      1.001735E+04     9.583331E+03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -1.123791E-01    -6.592081E-01                      2.809479E+01     1.648020E+02\r\n             3    QDMEM        6.592080E-01    -1.123792E-01                     -1.648020E+02     2.809479E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        1.123792E-01    -6.592081E-01                     -2.809479E+01     1.648020E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        1.123791E-01     6.592081E-01                     -2.809479E+01    -1.648020E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        7.190918E-02    -7.253638E-01                     -1.797729E+01     1.813409E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        5.637577E-01     4.620614E-01                     -1.409394E+02    -1.155154E+02\r\n             7    TRIA2       -4.620629E-01     5.637565E-01                      1.155157E+02    -1.409391E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -7.190918E-02    -7.253638E-01                      1.797729E+01     1.813409E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -1.113596E-01    -6.575208E-01                      2.783990E+01     1.643802E+02\r\n             3    QDMEM        6.575207E-01    -1.113596E-01                     -1.643802E+02     2.783991E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        1.113596E-01    -6.575207E-01                     -2.783989E+01     1.643802E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        1.113596E-01     6.575208E-01                     -2.783991E+01    -1.643802E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        7.115387E-02    -7.227731E-01                     -1.778847E+01     1.806933E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        5.613917E-01     4.607636E-01                     -1.403479E+02    -1.151909E+02\r\n             7    TRIA2       -4.607651E-01     5.613905E-01                      1.151913E+02    -1.403476E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM       -7.115387E-02    -7.227731E-01                      1.778847E+01     1.806933E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM        1.222538E-02     1.210966E-02                     -3.056344E+00    -3.027415E+00\r\n             3    QDMEM       -1.210966E-02     1.222538E-02                      3.027415E+00    -3.056344E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1       -1.222537E-02     1.210966E-02                      3.056344E+00    -3.027415E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2       -1.222538E-02    -1.210966E-02                      3.056344E+00     3.027415E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1       -1.285339E-02     1.425625E-02                      3.213349E+00    -3.564062E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2       -1.916941E-02    -9.919442E-04                      4.792353E+00     2.479860E-01\r\n             7    TRIA2        9.919908E-04    -1.916941E-02                     -2.479977E-01     4.792352E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM        1.285339E-02     1.425625E-02                     -3.213349E+00    -3.564061E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             1    QDMEM       -2.121320E+01    -3.000000E+01                      5.303300E+03     7.500000E+03\r\n             3    QDMEM        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             2    QUAD1        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             4    QUAD2        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             5    TRIA1        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             6    TRIA2        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n             7    TRIA2        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n             8    TRMEM        0.000000E+00     0.000000E+00                      0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -3.187501E+01    -3.187501E+01    -4.200001E+01     6.562480E+02     6.562520E+02    -1.953125E-03\r\n             3    QDMEM       -3.187501E+01    -3.187501E+01    -4.200000E+01     6.562476E+02     6.562524E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -3.187500E+01    -3.187500E+01    -4.200000E+01     6.562490E+02     6.562510E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -3.187500E+01    -3.187500E+01    -4.200000E+01     6.562510E+02    -6.562490E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -2.833333E+01    -2.833333E+01    -3.833334E+01     7.500005E+02     7.499995E+02    -1.953125E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -2.833333E+01    -2.833333E+01    -3.833333E+01    -7.499995E+02     7.500005E+02     0.000000E+00\r\n             7    TRIA2       -2.833333E+01    -2.833333E+01    -3.833333E+01    -7.500000E+02     7.500000E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -2.833333E+01    -2.833333E+01    -3.833333E+01    -7.499995E+02     7.500005E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -2.625002E+00     2.624998E+00    -3.814697E-06     6.562495E+02     6.562505E+02    -9.536743E-04\r\n             3    QDMEM       -2.625008E+00     2.624992E+00     0.000000E+00     6.562481E+02     6.562519E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -2.625004E+00     2.624996E+00    -3.814697E-06     6.562490E+02     6.562510E+02    -9.536743E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -2.625004E+00     2.624996E+00    -7.629395E-06     6.562510E+02    -6.562490E+02    -1.907349E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -2.999996E+00     3.000004E+00     0.000000E+00     7.500010E+02     7.499990E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -2.999996E+00     3.000004E+00    -3.814697E-06    -7.499990E+02     7.500010E+02    -9.536743E-04\r\n             7    TRIA2       -2.999998E+00     3.000002E+00     0.000000E+00    -7.499995E+02     7.500005E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 2              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -2.999996E+00     3.000004E+00     7.629395E-06    -7.499990E+02     7.500010E+02     1.907349E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -3.450001E+01    -2.925001E+01    -4.200001E+01     1.312498E+03     1.312502E+03    -1.953125E-03\r\n             3    QDMEM       -3.450002E+01    -2.925002E+01    -4.200000E+01     1.312496E+03     1.312504E+03     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -3.450001E+01    -2.925001E+01    -4.200000E+01     1.312498E+03     1.312502E+03     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -3.450001E+01    -2.925001E+01    -4.200000E+01     1.312502E+03    -1.312498E+03     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -3.133333E+01    -2.533333E+01    -3.833334E+01     1.500000E+03     1.500000E+03    -1.953125E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -3.133333E+01    -2.533333E+01    -3.833332E+01    -1.500000E+03     1.500000E+03     1.953125E-03\r\n             7    TRIA2       -3.133333E+01    -2.533333E+01    -3.833333E+01    -1.500000E+03     1.500000E+03     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 3              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -3.133333E+01    -2.533333E+01    -3.833332E+01    -1.500000E+03     1.500000E+03     1.953125E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -1.725000E+01    -1.462500E+01    -2.100000E+01     6.562490E+02     6.562510E+02     0.000000E+00\r\n             3    QDMEM       -1.725001E+01    -1.462501E+01    -2.099999E+01     6.562480E+02     6.562520E+02     1.953125E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -1.725000E+01    -1.462500E+01    -2.100000E+01     6.562490E+02     6.562510E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -1.725000E+01    -1.462500E+01    -2.100000E+01     6.562510E+02    -6.562490E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -1.566666E+01    -1.266666E+01    -1.916667E+01     7.500007E+02     7.499993E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -1.566666E+01    -1.266666E+01    -1.916667E+01    -7.499993E+02     7.500007E+02    -9.765625E-04\r\n             7    TRIA2       -1.566667E+01    -1.266667E+01    -1.916667E+01    -7.499998E+02     7.500002E+02     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCOM  4              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -1.566666E+01    -1.266666E+01    -1.916666E+01    -7.499993E+02     7.500007E+02     1.953125E-03\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -6.715304E-02     2.720498E-02    -1.488525E-02     6.801246E+00     1.678826E+01    -3.721312E+00\r\n             3    QDMEM       -6.715306E-02     2.720497E-02    -1.488519E-02     6.801242E+00     1.678827E+01    -3.721297E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -6.715305E-02     2.720498E-02    -1.488525E-02     6.801244E+00     1.678826E+01    -3.721312E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   107\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -6.715304E-02     2.720498E-02    -1.488525E-02     1.678826E+01    -6.801246E+00    -3.721312E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   108\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -4.148611E-02     3.028449E-02    -2.495229E-02     7.571124E+00     1.037153E+01    -6.238073E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   109\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -4.148609E-02     3.028451E-02    -2.495223E-02    -1.037152E+01     7.571127E+00    -6.238058E+00\r\n             7    TRIA2       -4.148608E-02     3.028452E-02    -2.495223E-02    -1.037152E+01     7.571131E+00    -6.238058E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   110\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 5              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -4.148611E-02     3.028449E-02    -2.495229E-02    -1.037153E+01     7.571124E+00    -6.238073E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   111\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -6.646805E-02     2.697241E-02    -1.485234E-02     6.743102E+00     1.661701E+01    -3.713086E+00\r\n             3    QDMEM       -6.646807E-02     2.697239E-02    -1.485229E-02     6.743098E+00     1.661702E+01    -3.713071E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   112\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1       -6.646802E-02     2.697244E-02    -1.485229E-02     6.743111E+00     1.661700E+01    -3.713071E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   113\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2       -6.646806E-02     2.697240E-02    -1.485234E-02     1.661702E+01    -6.743100E+00    -3.713086E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   114\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1       -4.098652E-02     3.001150E-02    -2.461004E-02     7.502874E+00     1.024663E+01    -6.152511E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   115\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2       -4.098652E-02     3.001150E-02    -2.460998E-02    -1.024663E+01     7.502874E+00    -6.152496E+00\r\n             7    TRIA2       -4.098650E-02     3.001151E-02    -2.460998E-02    -1.024663E+01     7.502878E+00    -6.152496E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   116\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 6              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM       -4.098652E-02     3.001150E-02    -2.461004E-02    -1.024663E+01     7.502874E+00    -6.152511E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   117\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM        6.058245E-03    -7.906745E-03    -3.284845E-03    -1.976686E+00    -1.514561E+00    -8.212112E-01\r\n             3    QDMEM        6.058245E-03    -7.906745E-03    -3.284846E-03    -1.976686E+00    -1.514561E+00    -8.212114E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   118\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1        6.058243E-03    -7.906747E-03    -3.284845E-03    -1.976687E+00    -1.514561E+00    -8.212112E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   119\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2        6.058244E-03    -7.906746E-03    -3.284845E-03    -1.514561E+00     1.976686E+00    -8.212112E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   120\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1        9.858947E-03    -9.752034E-03    -1.652496E-03    -2.438009E+00    -2.464737E+00    -4.131240E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   121\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2        9.858945E-03    -9.752036E-03    -1.652497E-03     2.464736E+00    -2.438009E+00    -4.131242E-01\r\n             7    TRIA2        9.858947E-03    -9.752034E-03    -1.652497E-03     2.464737E+00    -2.438009E+00    -4.131242E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   122\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 7              \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM        9.858947E-03    -9.752034E-03    -1.652499E-03     2.464737E+00    -2.438009E+00    -4.131247E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   123\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             1    QDMEM       -4.999997E+00     5.000003E+00     0.000000E+00     1.250001E+03     1.249999E+03     0.000000E+00\r\n             3    QDMEM        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   124\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             2    QUAD1        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   125\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             4    QUAD2        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   126\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             5    TRIA1        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   127\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             6    TRIA2        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n             7    TRIA2        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE   128\r\n      NASTRAN TEST PROBLEM NO. T01-19-1A                                                                                            \r\n0                                                                                                            SUBCASE 100            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n             8    TRMEM        0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n0*** SYSTEM INFORMATION MESSAGE, NO PROLAT CARD FOUND\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS             \r\n DATE:  5/17/95\r\n END TIME: 16:32:24\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01201a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01201A,NASTRAN                                                           \r\n     APP   HEAT                                                                      \r\n     SOL   1,0                                                                       \r\n     TIME  10                                                                        \r\n     DIAG  14                                                                        \r\n     ALTER   67,67 $                                                                 \r\n     SSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/                    \r\n             HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                              \r\n     ALTER   84 $                                                                    \r\n     EMFLD   HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/          \r\n             V,N,HLUSET $                                                            \r\n     ALTER   85 $                                                                    \r\n     OFP     HOEH1,,,,,//S,N,CARDNO$                                                 \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS               \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-20-1A                                   \r\n                  3      DISP     = ALL                                                                  \r\n                  4      ELFORCE  = ALL                                                                  \r\n                  5      OLOAD    = ALL                                                                  \r\n                  6      SUBCASE  1                                                                      \r\n                  7         LOAD  = 50                                                                   \r\n                  8      SUBCASE  2                                                                      \r\n                  9         LOAD  = 51                                                                   \r\n                 10      SUBCASE  3                                                                      \r\n                 11         LOAD  = 12                                                                   \r\n                 12      SUBCOM   20                                                                     \r\n                 13        SUBSEQ = .5,.5,0.                                                             \r\n                 14      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    49, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM12   \r\n                    2-        +CM12   0.      1.25    0.      0.                                              \r\n                    3-        CEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM13   \r\n                    4-        +CM13   0.      1.25    0.      0.                                              \r\n                    5-        CHEXA1  20      2       21      22      23      24      25      26      +E1     \r\n                    6-        +E1     27      28                                                              \r\n                    7-        CHEXA2  22      2       31      32      33      34      35      36      +E2     \r\n                    8-        +E2     37      38                                                              \r\n                    9-        CTETRA  16      2       1       2       3       4                               \r\n                   10-        CWEDGE  18      2       11      12      13      14      15      16              \r\n                   11-        GRID    1               1.      0.      3.              1                       \r\n                   12-        GRID    2               2.      0.      3.                                      \r\n                   13-        GRID    3               3.      2.      3.                                      \r\n                   14-        GRID    4               2.      1.      5.                                      \r\n                   15-        GRID    11              1.      2.      1.              1                       \r\n                   16-        GRID    12              3.      1.      -3.                                     \r\n                   17-        GRID    13              6.      2.      2.                                      \r\n                   18-        GRID    14              1.      6.      1.                                      \r\n                   19-        GRID    15              4.      4.      -3.                                     \r\n                   20-        GRID    16              5.      6.      1.                                      \r\n                   21-        GRID    21              1.      2.      1.              1                       \r\n                   22-        GRID    22              2.      .5      3.                                      \r\n                   23-        GRID    23              7.      2.      4.                                      \r\n                   24-        GRID    24              5.      3.      2.                                      \r\n                   25-        GRID    25              1.5     5.      2.                                      \r\n                   26-        GRID    26              2.5     5.      3.                                      \r\n                   27-        GRID    27              7.      6.      4.                                      \r\n                   28-        GRID    28              6.      9.      3.                                      \r\n                   29-        GRID    31              1.      2.      1.              1                       \r\n                   30-        GRID    32              2.      .5      3.                                      \r\n                   31-        GRID    33              7.      2.      4.                                      \r\n                   32-        GRID    34              5.      3.      2.                                      \r\n                   33-        GRID    35              1.5     5.      2.                                      \r\n                   34-        GRID    36              2.5     5.      3.                                      \r\n                   35-        GRID    37              7.      6.      4.                                      \r\n                   36-        GRID    38              6.      9.      3.                                      \r\n                   37-        MAT4    2       250.                                                            \r\n                   38-        MDIPOLE 12      0       5.      0.      0.      10.     10.     10.     +M1     \r\n                   39-        +M1     0.      0.                                                              \r\n                   40-        REMFLUX 51              750.    1000.   500.    20                              \r\n                   41-        REMFLUX 51              1000.   250.    750.    22                              \r\n                   42-        REMFLUX 51              500.    0.      250.    16                              \r\n                   43-        REMFLUX 51              250.    500.    750.    18                              \r\n                   44-        SPCFLD  50      0       2.      0.      1.      1       2       3               \r\n                   45-        SPCFLD  50      0       2.      0.      1.      4                               \r\n                   46-        SPCFLD  50      0       1.      2.      3.      11      12      13              \r\n                   47-        SPCFLD  50      0       1.      2.      3.      14      15      16              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPCFLD  50      0       3.      4.      2.      21      THRU    28              \r\n                   49-        SPCFLD  50      0       4.      1.      3.      31      THRU    38              \r\n                              ENDDATA\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $          \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $        \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/       \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $                      \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/    \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     HP1,JUMPPLOT $                                                 \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/ \r\n                   HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $               \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    HP1 $                                                          \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $                          \r\n\r\n      22  TA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/    \r\n                   HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $                         \r\n\r\n      23  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      24  COND     ERROR4,NOELMT $                                                \r\n\r\n      25  PURGE    HKGGX/NOSIMP $                                                 \r\n\r\n      26  COND     HLBL1,NOSIMP $                                                 \r\n\r\n      27  PARAM    //*ADD*/HNOKGG/1/0 $                                           \r\n\r\n      28  EMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $        \r\n\r\n      29  PURGE    HKGGX/HNOKGG $                                                 \r\n\r\n      30  COND     HLBL1,HNOKGG $                                                 \r\n\r\n      31  EMA      HGPECT,HKDICT,HKELM/HKGGX $                                    \r\n\r\n      32  PURGE    HKDICT,HKELM/MINUS1 $                                          \r\n\r\n      33  LABEL    HLBL1 $                                                        \r\n\r\n      34  EQUIV    HKGGX,HKGG/NOGENL $                                            \r\n\r\n      35  COND     HLBL11A,NOGENL $                                               \r\n\r\n      36  SMA3     HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $                         \r\n\r\n      37  LABEL    HLBL11A $                                                      \r\n\r\n      38  GPSTGEN  HKGG,HSIL/GPST $                                               \r\n\r\n      39  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      40  LABEL    HLBL11 $                                                       \r\n\r\n      41  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET,          \r\n                   HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/    \r\n                   S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/     \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      43  COND     ERROR3,NOL $                                                   \r\n\r\n      44  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      45  PURGE    HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV,      \r\n                   HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $                     \r\n\r\n      46  EQUIV    HKGG,HKNN/MPCF1 $                                              \r\n\r\n      47  COND     HLBL2,MPCF1 $                                                  \r\n\r\n      48  MCE1     HUSET,RG/GM $                                                  \r\n\r\n      49  MCE2     HUSET,GM,HKGG,,,/HKNN,,, $                                     \r\n\r\n      50  LABEL    HLBL2 $                                                        \r\n\r\n      51  EQUIV    HKNN,HKFF/SINGLE $                                             \r\n\r\n      52  COND     HLBL3,SINGLE $                                                 \r\n\r\n      53  SCE1     HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $                              \r\n\r\n      54  LABEL    HLBL3 $                                                        \r\n\r\n      55  EQUIV    HKFF,HKAA/OMIT $                                               \r\n\r\n      56  COND     HLBL5,OMIT $                                                   \r\n\r\n      57  SMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $                        \r\n\r\n      58  LABEL    HLBL5 $                                                        \r\n\r\n      59  EQUIV    HKAA,HKLL/REACT $                                              \r\n\r\n      60  COND     HLBL6,REACT $                                                  \r\n\r\n      61  RBMG1    HUSET,HKAA,/HKLL,HKLR,HKRR,,, $                                \r\n\r\n      62  LABEL    HLBL6 $                                                        \r\n\r\n      63  RBMG2    HKLL/HLLL $                                                    \r\n\r\n      64  COND     HLBL7,REACT $                                                  \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      65  RBMG3    HLLL,HKLR,HKRR/HDM $                                           \r\n\r\n      66  LABEL    HLBL7 $                                                        \r\n\r\n      67  SSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/            \r\n                  HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                      \r\n\r\n      68  EQUIV    HPG,HPL/NOSET $                                                \r\n\r\n      69  COND     HLBL10,NOSET $                                                 \r\n\r\n      70  SSG2     HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $                 \r\n\r\n      71  LABEL    HLBL10 $                                                       \r\n\r\n      72  SSG3     HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/       \r\n                   V,Y,IRES=-1/NSKIP/S,N,EPSI $                                   \r\n\r\n      73  COND     HLBL9,IRES $                                                   \r\n\r\n      74  MATGPR   GPL,HUSET,HSIL,HRULV//*L* $                                    \r\n\r\n      75  MATGPR   GPL,HUSET,HSIL,HRUOV//*O* $                                    \r\n\r\n      76  LABEL    HLBL9 $                                                        \r\n\r\n      77  SDR1     HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG,    \r\n                   HQG/NSKIP/*HSTATICS* $                                         \r\n\r\n      78  COND     HLBL8,HREPEAT $                                                \r\n\r\n      79  REPT     HLBL11,100 $                                                   \r\n\r\n      80  JUMP     ERROR1 $                                                       \r\n\r\n      81  PARAM    //*NOT*/HTEST/HREPEAT $                                        \r\n\r\n      82  COND     ERROR2,HTEST $                                                 \r\n\r\n      83  LABEL    HLBL8 $                                                        \r\n\r\n      84  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV,      \r\n                   HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/           \r\n                   *STATICS* $                                                    \r\n\r\n      84  EMFLD   HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/  \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                  V,N,HLUSET $                                                    \r\n\r\n      85  OFP      HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $                       \r\n\r\n      85  OFP     HOEH1,,,,,//S,N,CARDNO$                                         \r\n\r\n      86  COND     HP2,JUMPPLOT $                                                 \r\n\r\n      87  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1,    \r\n                   HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/                 \r\n                   S,N,PFILE $                                                    \r\n\r\n      88  PRTMSG   PLOTX2// $                                                     \r\n\r\n      89  LABEL    HP2 $                                                          \r\n\r\n      90  JUMP     FINIS $                                                        \r\n\r\n      91  LABEL    ERROR1 $                                                       \r\n\r\n      92  PRTPARM  //-1/*HSTA* $                                                  \r\n\r\n      93  LABEL    ERROR2 $                                                       \r\n\r\n      94  PRTPARM  //-2/*HSTA* $                                                  \r\n\r\n      95  LABEL    ERROR3 $                                                       \r\n\r\n      96  PRTPARM  //-3/*HSTA* $                                                  \r\n\r\n      97  LABEL    ERROR4 $                                                       \r\n\r\n      98  PRTPARM  //-4/*HSTA* $                                                  \r\n\r\n      99  LABEL    FINIS $                                                        \r\n\r\n     100  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     101  END      $                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            103\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    3.962\r\n                                        RMS WAVEFRONT    4.511\r\n                                        RMS BANDWIDTH    4.511\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            103\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    3.962\r\n                                        RMS WAVEFRONT    4.511\r\n                                        RMS BANDWIDTH    4.511\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                        103       103\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.962     3.962\r\n                                        RMS WAVEFRONT (C-RMS)            4.511     4.511\r\n                                        RMS BANDWITCH (B-RMS)            4.511     4.511\r\n                                        NUMBER OF GRID POINTS (N)                     26\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 4\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           4\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        77\r\n                                        MATRIX DENSITY, PERCENT                   26.627\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA1    ELEMENTS (ELEMENT TYPE  41) STARTING WITH ID       20\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA2    ELEMENTS (ELEMENT TYPE  42) STARTING WITH ID       22\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TETRA    ELEMENTS (ELEMENT TYPE  39) STARTING WITH ID       16\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION WEDGE    ELEMENTS (ELEMENT TYPE  40) STARTING WITH ID       18\r\n0*** USER WARNING MESSAGE 4000, ONE SIDE OF ELEMENT        18 CONNECTING FOUR POINTS IS NOT APPROXIMATELY PLANER.\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (    4,    1), TO (    4,    3)\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6306777E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   2.2724452E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     3, EPSILON SUB E =   1.4132512E-15\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -2.000000E+00  -4.000000E+00  -4.000000E+00                                                \r\n            11      S      0.0            1.200000E+01  -8.000000E+00  -8.000000E+00   4.999998E+00  -1.200000E+01                  \r\n            21      S      0.0           -1.000000E+00  -2.400000E+01  -1.800000E+01  -1.550000E+01  -2.050000E+01                  \r\n            27      S     -4.000000E+01  -4.700000E+01                                                                              \r\n            31      S      0.0           -8.499998E+00  -3.299999E+01  -2.000000E+01  -7.999998E+00  -1.500000E+01                  \r\n            37      S     -3.699999E+01  -3.299999E+01                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -2.000000E+00  -4.000000E+00  -4.000000E+00                                                \r\n            11      S      0.0            1.200000E+01  -8.000000E+00  -8.000000E+00   5.000000E+00  -1.200000E+01                  \r\n            21      S      0.0           -9.999999E-01  -2.400000E+01  -1.800000E+01  -1.550000E+01  -2.050000E+01                  \r\n            27      S     -4.000000E+01  -4.700000E+01                                                                              \r\n            31      S      0.0           -8.500001E+00  -3.300000E+01  -2.000000E+01  -8.000001E+00  -1.500000E+01                  \r\n            37      S     -3.700000E+01  -3.300000E+01                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -6.558833E-02  -2.706673E-01  -1.126974E+00                                                \r\n            11      S      0.0            3.038230E+00  -8.174294E-01   2.705287E-01   1.053199E+00   4.066616E-01                  \r\n            21      S      0.0           -5.082290E-01  -1.533721E+00  -1.203064E+00  -1.283453E+00  -1.435301E+00                  \r\n            27      S     -2.610754E+00  -3.221736E+00                                                                              \r\n            31      S      0.0           -5.194401E-01  -1.662314E+00  -1.315280E+00  -1.344715E+00  -1.560846E+00                  \r\n            37      S     -2.638896E+00  -3.284950E+00                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                                              T E M P E R A T U R E   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      0.0           -2.000000E+00  -4.000000E+00  -4.000000E+00                                                \r\n            11      S      0.0            1.200000E+01  -8.000000E+00  -8.000000E+00   4.999999E+00  -1.200000E+01                  \r\n            21      S      0.0           -1.000000E+00  -2.400000E+01  -1.800000E+01  -1.550000E+01  -2.050000E+01                  \r\n            27      S     -4.000000E+01  -4.700000E+01                                                                              \r\n            31      S      0.0           -8.500000E+00  -3.300000E+01  -2.000000E+01  -8.000000E+00  -1.500000E+01                  \r\n            37      S     -3.700000E+01  -3.300000E+01                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.750000E+02  -3.333333E+02   4.166666E+01  -8.333333E+01                                                \r\n            11      S      1.875003E+02   4.041666E+03  -1.854167E+03  -9.791666E+02   2.291666E+03  -3.687500E+03                  \r\n            21      S      4.750000E+03   8.749997E+02  -2.291665E+02   1.375000E+03   2.083333E+02  -3.312500E+03                  \r\n            27      S     -2.458333E+03  -1.208333E+03                                                                              \r\n            31      S      3.937500E+03  -9.062497E+02  -2.265625E+03   2.885416E+03   2.317708E+03  -2.786458E+03                  \r\n            37      S     -4.296874E+03   1.114583E+03                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.750000E+02  -3.333333E+02   4.166667E+01  -8.333334E+01                                                \r\n            11      S      1.875001E+02   4.041667E+03  -1.854167E+03  -9.791666E+02   2.291667E+03  -3.687500E+03                  \r\n            21      S      4.750000E+03   8.750000E+02  -2.291666E+02   1.375000E+03   2.083333E+02  -3.312500E+03                  \r\n            27      S     -2.458333E+03  -1.208333E+03                                                                              \r\n            31      S      3.937500E+03  -9.062502E+02  -2.265625E+03   2.885417E+03   2.317708E+03  -2.786458E+03                  \r\n            37      S     -4.296875E+03   1.114583E+03                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      2.577845E+01   6.928348E-01   1.484706E+01  -4.131835E+01                                                \r\n            11      S     -7.203434E+02   1.454882E+03  -6.256616E+02   7.093627E+00  -5.502642E+02   4.342934E+02                  \r\n            21      S      6.252248E+02  -1.857528E+02   3.674830E+01   4.066843E+01  -7.506778E+01  -2.815413E+02                  \r\n            27      S      1.513343E+00  -1.617930E+02                                                                              \r\n            31      S      5.438952E+02  -1.668041E+02   9.372454E-01   1.542883E+02  -1.104139E+02  -2.262326E+02                  \r\n            37      S     -7.924213E+01  -1.164280E+02                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE      ID   VALUE     ID+1 VALUE    ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE\r\n             1      S      3.750000E+02  -3.333333E+02   4.166666E+01  -8.333333E+01                                                \r\n            11      S      1.875002E+02   4.041667E+03  -1.854167E+03  -9.791666E+02   2.291667E+03  -3.687500E+03                  \r\n            21      S      4.750000E+03   8.749999E+02  -2.291666E+02   1.375000E+03   2.083333E+02  -3.312500E+03                  \r\n            27      S     -2.458333E+03  -1.208333E+03                                                                              \r\n            31      S      3.937500E+03  -9.062499E+02  -2.265625E+03   2.885416E+03   2.317708E+03  -2.786458E+03                  \r\n            37      S     -4.296875E+03   1.114583E+03                                                                              \r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            20    HEXA1       -3.000001E+00    -4.000000E+00    -2.000002E+00     7.500002E+02     1.000000E+03     5.000005E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            22    HEXA2       -3.999999E+00    -9.999998E-01    -3.000000E+00     9.999998E+02     2.499999E+02     7.500000E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            16    TETRA       -2.000000E+00     0.000000E+00    -9.999999E-01     5.000000E+02     0.000000E+00     2.500000E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            18    WEDGE       -1.000000E+00    -2.000000E+00    -3.000000E+00     2.500001E+02     5.000000E+02     7.499999E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            20    HEXA1       -3.000001E+00    -4.000000E+00    -2.000002E+00     7.500002E+02     1.000000E+03     5.000005E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            22    HEXA2       -4.000000E+00    -1.000000E+00    -3.000001E+00     1.000000E+03     2.500000E+02     7.500004E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            16    TETRA       -2.000000E+00     0.000000E+00    -1.000000E+00     5.000000E+02     0.000000E+00     2.500000E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            18    WEDGE       -1.000000E+00    -2.000000E+00    -3.000000E+00     2.500001E+02     5.000000E+02     7.500000E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            20    HEXA1       -1.451954E-01    -2.858005E-01    -1.399450E-01     3.629885E+01     7.145011E+01     3.498626E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            22    HEXA2       -1.505974E-01    -2.687044E-01    -1.565849E-01     3.764934E+01     6.717610E+01     3.914623E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            16    TETRA       -6.558833E-02    -6.974534E-02    -4.958202E-01     1.639708E+01     1.743633E+01     1.239550E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            18    WEDGE        3.911342E-01    -2.894688E-01    -3.064600E-01    -9.778355E+01     7.236719E+01     7.661500E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            20    HEXA1       -3.000001E+00    -4.000000E+00    -2.000002E+00     7.500002E+02     1.000000E+03     5.000005E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            22    HEXA2       -4.000000E+00    -1.000000E+00    -3.000000E+00     1.000000E+03     2.500001E+02     7.500001E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            16    TETRA       -2.000000E+00     0.000000E+00    -1.000000E+00     5.000000E+02     0.000000E+00     2.500000E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   T E M P E R A T U R E   G R A D I E N T S   A N D   F L U X E S\r\n \r\n    ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX           Z-FLUX\r\n            18    WEDGE       -1.000000E+00    -2.000000E+00    -3.000000E+00     2.500001E+02     5.000000E+02     7.499999E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            20    HEXA1       -7.152557E-07     0.000000E+00    -1.907349E-06    -1.788139E-04     0.000000E+00    -4.768372E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            22    HEXA2        7.152557E-07     2.384186E-07     0.000000E+00     1.788139E-04     5.960464E-05     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            16    TETRA        1.192093E-07     0.000000E+00     5.960464E-08     2.980232E-05     0.000000E+00     1.490116E-05\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            18    WEDGE       -2.384186E-07     0.000000E+00     4.768372E-07    -5.960464E-05     0.000000E+00     1.192093E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            20    HEXA1       -3.000001E+00    -4.000000E+00    -2.000002E+00    -1.831055E-04     0.000000E+00    -4.882812E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            22    HEXA2       -4.000000E+00    -1.000000E+00    -3.000001E+00    -1.220703E-04    -3.051758E-05    -3.662109E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            16    TETRA       -2.000000E+00     0.000000E+00    -1.000000E+00     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  2             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            18    WEDGE       -1.000000E+00    -2.000000E+00    -3.000000E+00    -9.155273E-05     3.051758E-05     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            20    HEXA1        1.824987E-02    -1.688451E-02    -7.305020E-02     4.562468E+00    -4.221127E+00    -1.826255E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            22    HEXA2        1.284792E-02     2.115369E-04    -8.969009E-02     3.211979E+00     5.288422E-02    -2.242252E+01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            16    TETRA       -1.453012E-04     7.337257E-04    -7.843077E-04    -3.632531E-02     1.834314E-01    -1.960769E-01\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCASE  3             \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            18    WEDGE       -6.035613E-01    -1.922793E+00    -3.367156E+00    -1.508903E+02    -4.806983E+02    -8.417891E+02\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            20    HEXA1       -1.500001E+00    -2.000000E+00    -1.000002E+00    -1.831055E-04     0.000000E+00    -4.730225E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            22    HEXA2       -2.000000E+00    -5.000004E-01    -1.500000E+00    -1.220703E-04    -9.155273E-05    -1.220703E-04\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            16    TETRA       -1.000000E+00     0.000000E+00    -5.000000E-01     0.000000E+00     0.000000E+00     0.000000E+00\r\n1     ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T01-20-1A                                                                                            \r\n0                                                                                                            SUBCOM   20            \r\n \r\n                   F I N I T E   E L E M E N T   M A G N E T I C   F I E L D   A N D   I N D U C T I O N\r\n\r\n \r\n    ELEMENT-ID   EL-TYPE         X-FIELD          Y-FIELD          Z-FIELD        X-INDUCTION      Y-INDUCTION      Z-INDUCTION\r\n            18    WEDGE       -5.000002E-01    -1.000000E+00    -1.500000E+00    -6.103516E-05     0.000000E+00     1.220703E-04\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS             \r\n DATE:  5/17/95\r\n END TIME: 16:33:36\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01211a.out",
    "content": "     NASTRAN BANDTMTH=2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01211A,NASTRAN                                                           \r\n     DIAG  14                                                                        \r\n     TIME  5                                                                         \r\n     SOL   1                                                                         \r\n     APP   DISP                                                                      \r\n     ALTER 41 $                                                                      \r\n     MATPRN KGGX,,,,//$                                                              \r\n     EXIT $                                                                          \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = WEDGE ELEMENT PROBLEM                                                \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-21-1A                                   \r\n                  3      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    65, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHEXA2  1       1       21      22      23      24      25      26      +C1     \r\n                    2-        +C1     27      28                                                              \r\n                    3-        CTETRA  3       1       31      32      33      35                              \r\n                    4-        CTETRA  5       1       1       2       3       5                               \r\n                    5-        CTETRA  6       1       1       2       3       5                               \r\n                    6-        CTETRA  7       1       1       2       3       6                               \r\n                    7-        CTETRA  8       1       1       2       3       6                               \r\n                    8-        CTETRA  9       1       1       2       3       7                               \r\n                    9-        CTETRA  10      1       1       2       3       7                               \r\n                   10-        CTETRA  11      1       1       5       6       7                               \r\n                   11-        CTETRA  12      1       1       5       6       7                               \r\n                   12-        CTETRA  13      1       2       5       6       7                               \r\n                   13-        CTETRA  14      1       2       5       6       7                               \r\n                   14-        CTETRA  15      1       3       5       6       7                               \r\n                   15-        CTETRA  16      1       3       5       6       7                               \r\n                   16-        CTETRA  17      1       1       2       5       7                               \r\n                   17-        CTETRA  18      1       2       3       5       7                               \r\n                   18-        CTETRA  19      1       1       3       5       6                               \r\n                   19-        CTETRA  20      1       2       3       5       6                               \r\n                   20-        CTETRA  21      1       1       3       6       7                               \r\n                   21-        CTETRA  22      1       1       2       6       7                               \r\n                   22-        CWEDGE  2       1       11      12      13      15      16      17              \r\n                   23-        CWEDGE  4       1       41      43      44      45      47      48              \r\n                   24-        CWEDGE  30      1       41      42      43      45      46      47              \r\n                   25-        GRID    1                                                                       \r\n                   26-        GRID    2               2.                                                      \r\n                   27-        GRID    3               2.      3.                                              \r\n                   28-        GRID    4               0.      3.                                              \r\n                   29-        GRID    5               0.      0.      4.                                      \r\n                   30-        GRID    6               2.      0.      4.                                      \r\n                   31-        GRID    7               2.      3.      4.                                      \r\n                   32-        GRID    8               0.      3.      4.                                      \r\n                   33-        GRID    11                                                                      \r\n                   34-        GRID    12              2.                                                      \r\n                   35-        GRID    13              2.      3.                                              \r\n                   36-        GRID    14              0.      3.                                              \r\n                   37-        GRID    15              0.      0.      4.                                      \r\n                   38-        GRID    16              2.      0.      4.                                      \r\n                   39-        GRID    17              2.      3.      4.                                      \r\n                   40-        GRID    18              0.      3.      4.                                      \r\n                   41-        GRID    21                                                                      \r\n                   42-        GRID    22              2.                                                      \r\n                   43-        GRID    23              2.      3.                                              \r\n                   44-        GRID    24              0.      3.                                              \r\n                   45-        GRID    25              0.      0.      4.                                      \r\n                   46-        GRID    26              2.      0.      4.                                      \r\n                   47-        GRID    27              2.      3.      4.                                      \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    28              0.      3.      4.                                      \r\n                   49-        GRID    31                                                                      \r\n                   50-        GRID    32              2.                                                      \r\n                   51-        GRID    33              2.      3.                                              \r\n                   52-        GRID    34              0.      3.                                              \r\n                   53-        GRID    35              0.      0.      4.                                      \r\n                   54-        GRID    36              2.      0.      4.                                      \r\n                   55-        GRID    37              2.      3.      4.                                      \r\n                   56-        GRID    38              0.      3.      4.                                      \r\n                   57-        GRID    41                                                                      \r\n                   58-        GRID    42              2.                                                      \r\n                   59-        GRID    43              2.      3.                                              \r\n                   60-        GRID    44              0.      3.                                              \r\n                   61-        GRID    45              0.      0.      4.                                      \r\n                   62-        GRID    46              2.      0.      4.                                      \r\n                   63-        GRID    47              2.      3.      4.                                      \r\n                   64-        GRID    48              0.      3.      4.                                      \r\n                   65-        MAT1    1       3.+7            .3                                              \r\n                              ENDDATA\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  MATPRN KGGX,,,,//$                                                      \r\n\r\n      41  EXIT $                                                                  \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      95  LABEL    LBL9 $                                                         \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     102  LABEL    LBL8 $                                                         \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n\r\n     228  END      $                                                              \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 2,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            124\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    3.875\r\n                                        RMS WAVEFRONT    4.402\r\n                                        RMS BANDWIDTH    4.402\r\n\r\n                               AFTER RESEQUENCING BY REVERSE CUTHILL-MCKEE (CM) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            120\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    3.750\r\n                                        RMS WAVEFRONT    4.213\r\n                                        RMS BANDWIDTH    4.213\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            120\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    3.750\r\n                                        RMS WAVEFRONT    4.213\r\n                                        RMS BANDWIDTH    4.213\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                        124       120\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.875     3.750\r\n                                        RMS WAVEFRONT (C-RMS)            4.402     4.213\r\n                                        RMS BANDWITCH (B-RMS)            4.402     4.213\r\n                                        NUMBER OF GRID POINTS (N)                     40\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                23\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           5\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        88\r\n                                        MATRIX DENSITY, PERCENT                   20.312\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                          CM AND GPS\r\n                                        NO. OF NON-ACTIVE GRID POINTS                  8\r\n                                        NO. OF SEQGP CARDS GENERATED                  10\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1      10       2       9       3       8       4      33\r\n                         SEQGP          5       7       6       6       7       5       8      34\r\n                         SEQGP         11      16      12      15      13      14      14      35\r\n                         SEQGP         15      13      16      12      17      11      18      36\r\n                         SEQGP         21      32      22      31      23      30      24      29\r\n                         SEQGP         25      28      26      27      27      26      28      25\r\n                         SEQGP         31       4      32       3      33       2      34      37\r\n                         SEQGP         35       1      36      38      37      39      38      40\r\n                         SEQGP         41      22      42      18      43      21      44      24\r\n                         SEQGP         45      20      46      17      47      19      48      23\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        4\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT        8\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT       14\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       18 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       34 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       36 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       37 NOT CONNECTED\r\n0*** USER WARNING MESSAGE 2015, EXTERNAL GRID PT.       38 NOT CONNECTED\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA2    ELEMENTS (ELEMENT TYPE  42) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TETRA    ELEMENTS (ELEMENT TYPE  39) STARTING WITH ID        3\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION WEDGE    ELEMENTS (ELEMENT TYPE  40) STARTING WITH ID        2\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0      MATRIX KGGX     (GINO NAME 101 ) IS A D.P.REAL    240 COLUMN X    240 ROW SYMMETRC MATRIX.\r\n0COLUMN      1      ROWS      1 THRU     21     --------------------------------------------------\r\n \r\n   2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  5.769231D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06  0.000000D+00 -5.769231D+06\r\n0COLUMN      2      ROWS      2 THRU     20     --------------------------------------------------\r\n \r\n   2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.846154D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.846154D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06\r\n0COLUMN      3      ROWS      3 THRU     21     --------------------------------------------------\r\n \r\n   1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  5.769232D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  8.653847D+06 -5.769232D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -8.653847D+06  0.000000D+00\r\n  -1.009616D+07\r\n0COLUMNS       4 THRU       6 ARE NULL.\r\n0COLUMN      7      ROWS      7 THRU     20     --------------------------------------------------\r\n \r\n   5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  7.692308D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -7.692308D+06\r\n0COLUMN      8      ROWS      3 THRU     21     --------------------------------------------------\r\n \r\n   5.769232D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.794872D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  1.153846D+07 -1.794872D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.153846D+07  0.000000D+00\r\n  -5.769232D+06\r\n0COLUMN      9      ROWS      2 THRU     20     --------------------------------------------------\r\n \r\n   3.846154D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  5.128205D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -3.846154D+06\r\n0COLUMNS      10 THRU      12 ARE NULL.\r\n0COLUMN     13      ROWS      3 THRU     21     --------------------------------------------------\r\n \r\n   8.653847D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.551283D+07 -1.923077D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07  7.692308D+06\r\n  -8.653847D+06\r\n0COLUMN     14      ROWS      3 THRU     21     --------------------------------------------------\r\n \r\n  -5.769232D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.692308D+06 -1.794872D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -1.923077D+07  2.948718D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.153846D+07 -1.153846D+07\r\n   5.769232D+06\r\n0COLUMN     15      ROWS      1 THRU     21     --------------------------------------------------\r\n \r\n   5.769231D+06 -3.846154D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.769231D+06  3.846154D+06 -1.153846D+07\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMNS      16 THRU      18 ARE NULL.\r\n0COLUMN     19      ROWS      1 THRU     21     --------------------------------------------------\r\n \r\n  -2.884616D+06  0.000000D+00 -8.653847D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.153846D+07  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07  1.153846D+07 -5.769231D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   4.326924D+07  0.000000D+00  1.442308D+07\r\n0COLUMN     20      ROWS      2 THRU     20     --------------------------------------------------\r\n \r\n  -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -7.692308D+06  0.000000D+00 -3.846154D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  7.692308D+06 -1.153846D+07  3.846154D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+07\r\n0COLUMN     21      ROWS      1 THRU     21     --------------------------------------------------\r\n \r\n  -5.769231D+06  0.000000D+00 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.769232D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -8.653847D+06  5.769232D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+07  0.000000D+00  2.163462D+07\r\n0COLUMNS      22 THRU      24 ARE NULL.\r\n0COLUMN     25      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   1.442308D+08 -1.923077D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -8.141026D+07  6.538462D+07  1.730769D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.551283D+07 -4.615385D+07 -1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -9.807694D+07  1.923077D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.525642D+07  3.846153D+06  1.730769D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.551283D+07 -2.307692D+07 -1.730769D+07\r\n0COLUMN     26      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n  -1.923077D+07  2.019231D+08  2.884616D+07  0.000000D+00  0.000000D+00  0.000000D+00  8.846155D+07 -1.551282D+08  5.769233D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -6.923078D+07 -2.948718D+07  1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.923077D+07 -4.038462D+07 -5.769233D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.538462D+07 -6.410259D+06 -2.884616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.461539D+07  2.948718D+07 -1.730769D+07\r\n0COLUMN     27      ROWS     26 THRU     57     --------------------------------------------------\r\n \r\n   2.884616D+07  1.298077D+08  0.000000D+00  0.000000D+00  0.000000D+00  2.596154D+07 -5.769233D+06 -5.256410D+07  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -2.596154D+07  1.153846D+07 -1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   5.769233D+06 -8.365386D+07  0.000000D+00  0.000000D+00  0.000000D+00  2.596154D+07 -2.884616D+07  6.410257D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -2.596154D+07 -1.153846D+07  1.666667D+07\r\n0COLUMNS      28 THRU      30 ARE NULL.\r\n0COLUMN     31      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -8.141026D+07  8.846155D+07  2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.269231D+08 -1.538462D+08  4.326924D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.282052D+08  6.538462D+07  8.653849D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   3.525642D+07  1.538462D+07 -2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.730769D+07 -1.923077D+07 -8.653849D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.525642D+07  3.846153D+06 -4.326924D+07\r\n0COLUMN     32      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   6.538462D+07 -1.551282D+08 -5.769233D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.538462D+08  2.826923D+08 -2.884616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.846155D+07 -1.102564D+08 -1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   3.846153D+06 -6.410259D+06  2.884616D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07 -1.730769D+07  5.769233D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.538462D+07  6.410259D+06  1.730769D+07\r\n0COLUMN     33      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   1.730769D+07  5.769233D+06 -5.256410D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+07 -2.884616D+07  2.105769D+08\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -8.653849D+06 -1.153846D+07 -9.743590D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.730769D+07  2.884616D+07  6.410257D+06  0.000000D+00  0.000000D+00  0.000000D+00  8.653849D+06 -5.769233D+06 -6.057693D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+07  1.153846D+07 -6.410257D+06\r\n0COLUMNS      34 THRU      36 ARE NULL.\r\n0COLUMN     37      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n  -4.551283D+07 -6.923078D+07 -2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -3.282052D+08  8.846155D+07 -8.653849D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.910257D+08 -1.923077D+07 -4.326924D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   4.551283D+07 -3.461539D+07  2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -3.525642D+07  1.538462D+07  4.326924D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.756410D+07  1.923077D+07  8.653849D+06\r\n0COLUMN     38      ROWS     25 THRU     56     --------------------------------------------------\r\n \r\n  -4.615385D+07 -2.948718D+07  1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  6.538462D+07 -1.102564D+08 -1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07  1.570513D+08  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.307692D+07  2.948718D+07  1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  3.846153D+06  6.410259D+06 -1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.923077D+07 -5.320513D+07\r\n0COLUMN     39      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n  -1.730769D+07  1.730769D+07 -1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00  8.653849D+06 -1.730769D+07 -9.743590D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+07  0.000000D+00  1.746795D+08  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.730769D+07  1.730769D+07  1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+07 -1.730769D+07 -6.410257D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -8.653849D+06  0.000000D+00 -7.083334D+07\r\n0COLUMNS      40 THRU      42 ARE NULL.\r\n0COLUMN     43      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n  -9.807694D+07  1.923077D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.525642D+07  3.846153D+06 -1.730769D+07\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.551283D+07 -2.307692D+07  1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+08 -1.923077D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -8.141026D+07  6.538462D+07 -1.730769D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.551283D+07 -4.615385D+07  1.730769D+07\r\n0COLUMN     44      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   1.923077D+07 -4.038462D+07  5.769233D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.538462D+07 -6.410259D+06  2.884616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.461539D+07  2.948718D+07  1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.923077D+07  2.019231D+08 -2.884616D+07  0.000000D+00  0.000000D+00  0.000000D+00  8.846155D+07 -1.551282D+08 -5.769233D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -6.923078D+07 -2.948718D+07 -1.730769D+07\r\n0COLUMN     45      ROWS     26 THRU     57     --------------------------------------------------\r\n \r\n  -5.769233D+06 -8.365386D+07  0.000000D+00  0.000000D+00  0.000000D+00 -2.596154D+07  2.884616D+07  6.410257D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  2.596154D+07  1.153846D+07  1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+07  1.298077D+08  0.000000D+00  0.000000D+00  0.000000D+00 -2.596154D+07  5.769233D+06 -5.256410D+07  0.000000D+00\r\n   0.000000D+00  0.000000D+00  2.596154D+07 -1.153846D+07 -1.666667D+07\r\n0COLUMNS      46 THRU      48 ARE NULL.\r\n0COLUMN     49      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   3.525642D+07  1.538462D+07  2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.730769D+07 -1.923077D+07  8.653849D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.525642D+07  3.846153D+06  4.326924D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -8.141026D+07  8.846155D+07 -2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.269231D+08 -1.538462D+08 -4.326924D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.282052D+08  6.538462D+07 -8.653849D+06\r\n0COLUMN     50      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   3.846153D+06 -6.410259D+06 -2.884616D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07 -1.730769D+07 -5.769233D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.538462D+07  6.410259D+06 -1.730769D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.538462D+07 -1.551282D+08  5.769233D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.538462D+08  2.826923D+08  2.884616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.846155D+07 -1.102564D+08  1.730769D+07\r\n0COLUMN     51      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   1.730769D+07 -2.884616D+07  6.410257D+06  0.000000D+00  0.000000D+00  0.000000D+00 -8.653849D+06  5.769233D+06 -6.057693D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+07 -1.153846D+07 -6.410257D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.730769D+07 -5.769233D+06 -5.256410D+07  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+07  2.884616D+07  2.105769D+08\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.653849D+06  1.153846D+07 -9.743590D+07\r\n0COLUMNS      52 THRU      54 ARE NULL.\r\n0COLUMN     55      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n   4.551283D+07 -3.461539D+07 -2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -3.525642D+07  1.538462D+07 -4.326924D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.756410D+07  1.923077D+07 -8.653849D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -4.551283D+07 -6.923078D+07  2.596154D+07  0.000000D+00  0.000000D+00  0.000000D+00 -3.282052D+08  8.846155D+07  8.653849D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.910257D+08 -1.923077D+07  4.326924D+07\r\n0COLUMN     56      ROWS     25 THRU     56     --------------------------------------------------\r\n \r\n  -2.307692D+07  2.948718D+07 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  3.846153D+06  6.410259D+06  1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.923077D+07 -5.320513D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.615385D+07 -2.948718D+07 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  6.538462D+07 -1.102564D+08  1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07  1.570513D+08\r\n0COLUMN     57      ROWS     25 THRU     57     --------------------------------------------------\r\n \r\n  -1.730769D+07 -1.730769D+07  1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+07  1.730769D+07 -6.410257D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.653849D+06  0.000000D+00 -7.083334D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.730769D+07 -1.730769D+07 -1.666667D+07  0.000000D+00  0.000000D+00  0.000000D+00 -8.653849D+06  1.730769D+07 -9.743590D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+07  0.000000D+00  1.746795D+08\r\n0COLUMNS      58 THRU      60 ARE NULL.\r\n0COLUMN     61      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   2.403846D+07 -3.205129D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.089744D+07  2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.585471D+06 -7.692308D+06 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.634616D+07  3.205129D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  6.410255D+05  2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.585471D+06 -3.846154D+06 -2.884616D+06\r\n0COLUMN     62      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -3.205129D+06  3.365385D+07  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -2.585470D+07  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.153846D+07 -4.914530D+06  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   3.205129D+06 -6.730770D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06 -1.068376D+06 -4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.769232D+06  4.914530D+06 -2.884616D+06\r\n0COLUMN     63      ROWS     62 THRU     93     --------------------------------------------------\r\n \r\n   4.807693D+06  2.163462D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+06 -9.615388D+05 -8.760684D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -4.326924D+06  1.923077D+06 -2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   9.615388D+05 -1.394231D+07  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+06 -4.807693D+06  1.068376D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -4.326924D+06 -1.923077D+06  2.777778D+06\r\n0COLUMNS      64 THRU      66 ARE NULL.\r\n0COLUMN     67      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -1.356838D+07  1.474359D+07  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.115386D+07 -2.564103D+07  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.089744D+07  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   5.876069D+06  2.564103D+06 -4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  6.410255D+05 -7.211539D+06\r\n0COLUMN     68      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   1.089744D+07 -2.585470D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.564103D+07  4.711539D+07 -4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -1.837607D+07 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.410255D+05 -1.068376D+06  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06 -2.884616D+06  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06  1.068376D+06  2.884616D+06\r\n0COLUMN     69      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   2.884616D+06  9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -4.807693D+06  3.509616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -1.923077D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06  4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06 -9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  1.923077D+06 -1.068376D+06\r\n0COLUMNS      70 THRU      72 ARE NULL.\r\n0COLUMN     73      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -7.585471D+06 -1.153846D+07 -4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.474359D+07 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.517095D+07 -3.205129D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.585471D+06 -5.769232D+06  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  2.564103D+06  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.594017D+06  3.205129D+06  1.442308D+06\r\n0COLUMN     74      ROWS     61 THRU     92     --------------------------------------------------\r\n \r\n  -7.692308D+06 -4.914530D+06  1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -1.837607D+07 -1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06  2.617522D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -3.846154D+06  4.914530D+06  1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05  1.068376D+06 -1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.205129D+06 -8.867522D+06\r\n0COLUMN     75      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -2.884616D+06  2.884616D+06 -2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06 -2.884616D+06 -1.623932D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  0.000000D+00  2.911325D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.884616D+06  2.884616D+06  2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -2.884616D+06 -1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  0.000000D+00 -1.180556D+07\r\n0COLUMNS      76 THRU      78 ARE NULL.\r\n0COLUMN     79      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -1.634616D+07  3.205129D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  6.410255D+05 -2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.585471D+06 -3.846154D+06  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.403846D+07 -3.205129D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.089744D+07 -2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.585471D+06 -7.692308D+06  2.884616D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMN     80      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   3.205129D+06 -6.730770D+06  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06 -1.068376D+06  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.769232D+06  4.914530D+06  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -3.205129D+06  3.365385D+07 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -2.585470D+07 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.153846D+07 -4.914530D+06 -2.884616D+06\r\n0COLUMN     81      ROWS     62 THRU     93     --------------------------------------------------\r\n \r\n  -9.615388D+05 -1.394231D+07  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+06  4.807693D+06  1.068376D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  4.326924D+06  1.923077D+06  2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.807693D+06  2.163462D+07  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+06  9.615388D+05 -8.760684D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  4.326924D+06 -1.923077D+06 -2.777778D+06\r\n0COLUMNS      82 THRU      84 ARE NULL.\r\n0COLUMN     85      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   5.876069D+06  2.564103D+06  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -3.205129D+06  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  6.410255D+05  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.356838D+07  1.474359D+07 -4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.115386D+07 -2.564103D+07 -7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.089744D+07 -1.442308D+06\r\n0COLUMN     86      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   6.410255D+05 -1.068376D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06 -2.884616D+06 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06  1.068376D+06 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.089744D+07 -2.585470D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.564103D+07  4.711539D+07  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -1.837607D+07  2.884616D+06\r\n0COLUMN     87      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   2.884616D+06 -4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -1.923077D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06 -9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  4.807693D+06  3.509616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  1.923077D+06 -1.623932D+07\r\n0COLUMNS      88 THRU      90 ARE NULL.\r\n0COLUMN     91      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n   7.585471D+06 -5.769232D+06 -4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  2.564103D+06 -7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.594017D+06  3.205129D+06 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -7.585471D+06 -1.153846D+07  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.474359D+07  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.517095D+07 -3.205129D+06  7.211539D+06\r\n0COLUMN     92      ROWS     61 THRU     92     --------------------------------------------------\r\n \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -3.846154D+06  4.914530D+06 -1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05  1.068376D+06  1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.205129D+06 -8.867522D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -7.692308D+06 -4.914530D+06 -1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -1.837607D+07  1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06  2.617522D+07\r\n0COLUMN     93      ROWS     61 THRU     93     --------------------------------------------------\r\n \r\n  -2.884616D+06 -2.884616D+06  2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  2.884616D+06 -1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  0.000000D+00 -1.180556D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.884616D+06 -2.884616D+06 -2.777778D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  2.884616D+06 -1.623932D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06  0.000000D+00  2.911325D+07\r\n0COLUMNS      94 THRU      96 ARE NULL.\r\n0COLUMN     97      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n   7.115386D+07 -2.564103D+07  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.474359D+07  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.470086D+07  1.089744D+07  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  2.564103D+06 -4.326924D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  6.410255D+05 -7.211539D+06\r\n0COLUMN     98      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n  -2.564103D+07  4.711539D+07 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06 -2.884616D+06  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -2.585470D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.474359D+07 -1.837607D+07 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05 -1.068376D+06  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06  1.068376D+06  2.884616D+06\r\n0COLUMN     99      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n   7.211539D+06 -4.807693D+06  3.509616D+07  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06 -9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.884616D+06  9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+06 -1.923077D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  4.807693D+06  1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  1.923077D+06 -1.068376D+06\r\n0COLUMNS     100 THRU     102 ARE NULL.\r\n0COLUMN    103      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n  -2.884616D+06 -3.205129D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.115386D+07 -2.564103D+07 -7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  2.564103D+06  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.876069D+06  6.410255D+05  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.474359D+07 -4.326924D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.089744D+07 -1.442308D+06\r\n0COLUMN    104      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n  -3.205129D+06 -2.884616D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.564103D+07  4.711539D+07  4.807693D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05 -1.068376D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.564103D+06  1.068376D+06 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -2.585470D+07  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -1.837607D+07  2.884616D+06\r\n0COLUMN    105      ROWS     97 THRU    129     --------------------------------------------------\r\n \r\n  -1.442308D+06  9.615388D+05 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  4.807693D+06  3.509616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.884616D+06 -4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211539D+06 -1.923077D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -9.615388D+05 -8.760684D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  1.923077D+06 -1.623932D+07\r\n0COLUMNS     106 THRU     108 ARE NULL.\r\n0COLUMN    109      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n  -1.356838D+07  1.089744D+07  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  6.410255D+05  2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.920941D+07 -6.410257D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.517094D+07 -1.923077D+07  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.094017D+07  6.410257D+06 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.517094D+07 -9.615386D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.470086D+07  1.474359D+07  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  2.564103D+06 -7.211539D+06\r\n0COLUMN    110      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   1.474359D+07 -2.585470D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06 -1.068376D+06 -4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -6.410257D+06  5.982907D+07  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.923077D+07 -9.829061D+06  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  6.410257D+06 -1.559829D+07 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.615386D+06  9.829061D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.089744D+07 -1.837607D+07  1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05  1.068376D+06  1.923077D+06\r\n0COLUMN    111      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   4.326924D+06 -9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+06 -4.807693D+06  1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06  4.807693D+06  5.074787D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+06 -9.615388D+05 -5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  9.615388D+05 -2.574787D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06 -4.807693D+06  5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+06  2.884616D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  2.884616D+06 -1.068376D+06\r\n0COLUMNS     112 THRU     114 ARE NULL.\r\n0COLUMN    115      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n  -5.470086D+07  1.474359D+07 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  2.564103D+06  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.517094D+07 -1.923077D+07 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   8.920941D+07 -6.410257D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.517094D+07 -9.615386D+06  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.094017D+07  6.410257D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.356838D+07  1.089744D+07 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  6.410255D+05 -2.884616D+06\r\n0COLUMN    116      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   1.089744D+07 -1.837607D+07 -1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05  1.068376D+06 -1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07 -9.829061D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -6.410257D+06  5.982907D+07 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -9.615386D+06  9.829061D+06  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.410257D+06 -1.559829D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.474359D+07 -2.585470D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06 -1.068376D+06  4.807693D+06\r\n0COLUMN    117      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   1.442308D+06 -2.884616D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -2.884616D+06 -1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  9.615388D+05 -5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -7.211539D+06 -4.807693D+06  5.074787D+07  0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06  4.807693D+06  5.555556D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -9.615388D+05 -2.574787D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.326924D+06  9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+06  4.807693D+06  1.068376D+06\r\n0COLUMNS     118 THRU     120 ARE NULL.\r\n0COLUMN    121      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   5.876069D+06  6.410255D+05 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.089744D+07 -2.884616D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.094017D+07  6.410257D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.517094D+07 -9.615386D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  8.920941D+07 -6.410257D+06 -7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.517094D+07 -1.923077D+07 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.876069D+06  2.564103D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.474359D+07 -1.442308D+06\r\n0COLUMN    122      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   2.564103D+06 -1.068376D+06  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -2.585470D+07 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.410257D+06 -1.559829D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -9.615386D+06  9.829061D+06  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -6.410257D+06  5.982907D+07 -4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07 -9.829061D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.410255D+05  1.068376D+06 -1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -1.837607D+07 -1.923077D+06\r\n0COLUMN    123      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n  -4.326924D+06  4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.326924D+06  9.615388D+05 -8.760684D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -9.615388D+05 -2.574787D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211539D+06  4.807693D+06  5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06 -4.807693D+06  5.074787D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  9.615388D+05 -5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211539D+06 -2.884616D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06 -2.884616D+06 -1.623932D+07\r\n0COLUMNS     124 THRU     126 ARE NULL.\r\n0COLUMN    127      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n  -5.876069D+06  2.564103D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.474359D+07  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.517094D+07 -9.615386D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.094017D+07  6.410257D+06 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.517094D+07 -1.923077D+07  1.442308D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.920941D+07 -6.410257D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   5.876069D+06  6.410255D+05  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.089744D+07  2.884616D+06\r\n0COLUMN    128      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n   6.410255D+05  1.068376D+06  1.923077D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -1.837607D+07  1.923077D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.615386D+06  9.829061D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.410257D+06 -1.559829D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.923077D+07 -9.829061D+06  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -6.410257D+06  5.982907D+07  4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.564103D+06 -1.068376D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -2.585470D+07  9.615388D+05\r\n0COLUMN    129      ROWS     97 THRU    141     --------------------------------------------------\r\n \r\n  -7.211539D+06  2.884616D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  2.884616D+06 -1.623932D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06 -4.807693D+06  5.555556D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+06  9.615388D+05 -2.574787D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -9.615388D+05 -5.555556D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06  4.807693D+06  5.074787D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   4.326924D+06 -4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00  4.326924D+06 -9.615388D+05 -8.760684D+06\r\n0COLUMNS     130 THRU     132 ARE NULL.\r\n0COLUMN    133      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n  -5.470086D+07  1.089744D+07 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.356838D+07  1.474359D+07 -4.326924D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.876069D+06  6.410255D+05  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   5.876069D+06  2.564103D+06  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.115386D+07 -2.564103D+07 -7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -3.205129D+06  1.442308D+06\r\n0COLUMN    134      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n   1.474359D+07 -1.837607D+07  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.089744D+07 -2.585470D+07  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.564103D+06  1.068376D+06 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.410255D+05 -1.068376D+06 -4.807693D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.564103D+07  4.711539D+07  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06 -2.884616D+06 -9.615388D+05\r\n0COLUMN    135      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n   1.442308D+06  1.923077D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -9.615388D+05 -8.760684D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -1.923077D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.884616D+06 -4.807693D+06  1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -7.211539D+06  4.807693D+06  3.509616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  9.615388D+05 -1.009616D+07\r\n0COLUMNS     136 THRU     138 ARE NULL.\r\n0COLUMN    139      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n  -5.876069D+06  6.410255D+05 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  5.876069D+06  2.564103D+06 -4.326924D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.470086D+07  1.089744D+07  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.356838D+07  1.474359D+07  4.326924D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -3.205129D+06 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.115386D+07 -2.564103D+07  7.211539D+06\r\n0COLUMN    140      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n   2.564103D+06  1.068376D+06  2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.410255D+05 -1.068376D+06  4.807693D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.474359D+07 -1.837607D+07 -2.884616D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.089744D+07 -2.585470D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -3.205129D+06 -2.884616D+06  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.564103D+07  4.711539D+07 -4.807693D+06\r\n0COLUMN    141      ROWS    109 THRU    141     --------------------------------------------------\r\n \r\n  -7.211539D+06  1.923077D+06 -1.068376D+06  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  4.807693D+06  1.068376D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -1.923077D+06 -1.623932D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   2.884616D+06  9.615388D+05 -8.760684D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06 -9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211539D+06 -4.807693D+06  3.509616D+07\r\n0COLUMNS     142 THRU     144 ARE NULL.\r\n0COLUMN    145      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   6.049680D+07 -1.442308D+07 -1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07 -1.923078D+06 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.065705D+07  1.442308D+07 -7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.128205D+06  1.923078D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  0.000000D+00  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06 -9.615388D+05  1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  8.092950D+06  9.615388D+05  7.211541D+05\r\n0COLUMN    146      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -1.442308D+07  4.046475D+07  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  1.923078D+06 -1.153846D+07  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+07 -6.650642D+06  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.923078D+06 -1.794872D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05  8.814108D+05 -4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05 -2.323719D+06 -7.211539D+06\r\n0COLUMN    147      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -1.081731D+07  7.211539D+06  3.345353D+07  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  0.000000D+00 -1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211541D+05 -4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -9.615388D+05 -5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07  4.807694D+05 -4.126603D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -7.211541D+05 -7.211539D+06 -9.214747D+05\r\n0COLUMNS     148 THRU     150 ARE NULL.\r\n0COLUMN    151      ROWS    145 THRU    183     --------------------------------------------------\r\n \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -4.038462D+07  1.923078D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07  1.442308D+07  1.081731D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06 -1.923078D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.065705D+07 -1.442308D+07  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06  9.615388D+05 -1.081731D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  0.000000D+00 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   8.092950D+06 -9.615388D+05 -7.211541D+05\r\n0COLUMN    152      ROWS    145 THRU    183     --------------------------------------------------\r\n \r\n  -1.923078D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+07  4.046475D+07  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.923078D+06 -1.794872D+07  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+07 -6.650642D+06  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05  8.814108D+05 -4.807694D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   9.615388D+05 -2.323719D+06 -7.211539D+06\r\n0COLUMN    153      ROWS    145 THRU    183     --------------------------------------------------\r\n \r\n  -1.442308D+06  0.000000D+00 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07  7.211539D+06  3.345353D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05 -5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -7.211541D+05 -4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07  4.807694D+05 -4.126603D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  9.615388D+05 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211541D+05 -7.211539D+06 -9.214747D+05\r\n0COLUMNS     154 THRU     156 ARE NULL.\r\n0COLUMN    157      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -1.065705D+07  1.442308D+07  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  1.923078D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07 -1.442308D+07  1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.038462D+07 -1.923078D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.092950D+06  9.615388D+05 -7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06  0.000000D+00 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06 -9.615388D+05 -1.081731D+07\r\n0COLUMN    158      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   1.442308D+07 -6.650642D+06 -4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.923078D+06 -1.794872D+07 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07  4.046475D+07 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.923078D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05 -2.323719D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -2.884616D+06  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05  8.814108D+05  4.807694D+05\r\n0COLUMN    159      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -7.211541D+05  4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05 -5.128205D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07 -7.211539D+06  3.345353D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+06  0.000000D+00 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  7.211541D+05  7.211539D+06 -9.214747D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+06 -9.615388D+05 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07 -4.807694D+05 -4.126603D+06\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMNS     160 THRU     162 ARE NULL.\r\n0COLUMN    163      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -5.128205D+06 -1.923078D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.065705D+07 -1.442308D+07 -7.211541D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07  1.923078D+06 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.049680D+07  1.442308D+07 -1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00  8.092950D+06 -9.615388D+05  7.211541D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -9.535258D+06  9.615388D+05  1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  0.000000D+00  1.442308D+06\r\n0COLUMN    164      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   1.923078D+06 -1.794872D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07 -6.650642D+06 -4.807694D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.923078D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+07  4.046475D+07 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05 -2.323719D+06  7.211539D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -9.615388D+05  8.814108D+05  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  9.615388D+05\r\n0COLUMN    165      ROWS    146 THRU    189     --------------------------------------------------\r\n \r\n   9.615388D+05 -5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.211541D+05  4.807694D+05 -1.642628D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  1.442308D+06  0.000000D+00 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07\r\n  -7.211539D+06  3.345353D+07  0.000000D+00  0.000000D+00  0.000000D+00 -7.211541D+05  7.211539D+06 -9.214747D+05  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07\r\n  -4.807694D+05 -4.126603D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -9.615388D+05 -1.009616D+07\r\n0COLUMNS     166 THRU     168 ARE NULL.\r\n0COLUMN    169      ROWS    145 THRU    188     --------------------------------------------------\r\n \r\n  -2.884616D+06  0.000000D+00 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06 -9.615388D+05 -1.081731D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   8.092950D+06  9.615388D+05 -7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07 -1.442308D+07  1.081731D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07 -1.923078D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.065705D+07  1.442308D+07  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  1.923078D+06\r\n0COLUMN    170      ROWS    146 THRU    189     --------------------------------------------------\r\n \r\n  -2.884616D+06  9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05  8.814108D+05  4.807694D+05  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05\r\n  -2.323719D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07  4.046475D+07 -7.211539D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  1.923078D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+07\r\n  -6.650642D+06 -4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.923078D+06 -1.794872D+07 -9.615388D+05\r\n0COLUMN    171      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   1.442308D+06 -9.615388D+05 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07 -4.807694D+05 -4.126603D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211541D+05  7.211539D+06 -9.214747D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07 -7.211539D+06  3.345353D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  0.000000D+00 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -7.211541D+05  4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05 -5.128205D+06\r\n0COLUMNS     172 THRU     174 ARE NULL.\r\n0COLUMN    175      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -9.535258D+06  9.615388D+05  1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  0.000000D+00  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  8.092950D+06 -9.615388D+05  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -4.038462D+07  1.923078D+06 -1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07  1.442308D+07 -1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.128205D+06 -1.923078D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.065705D+07 -1.442308D+07 -7.211541D+05\r\n0COLUMN    176      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n  -9.615388D+05  8.814108D+05  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05 -2.323719D+06  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.923078D+06 -1.153846D+07  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+07  4.046475D+07 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.923078D+06 -1.794872D+07 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07 -6.650642D+06 -4.807694D+05\r\n0COLUMN    177      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   1.081731D+07 -4.807694D+05 -4.126603D+06  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06 -9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211541D+05  7.211539D+06 -9.214747D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+06  0.000000D+00 -1.153846D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07 -7.211539D+06  3.345353D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  9.615388D+05 -5.128205D+06  0.000000D+00  0.000000D+00  0.000000D+00  7.211541D+05  4.807694D+05 -1.642628D+06\r\n0COLUMNS     178 THRU     180 ARE NULL.\r\n0COLUMN    181      ROWS    151 THRU    189     --------------------------------------------------\r\n \r\n   8.092950D+06  9.615388D+05  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06  0.000000D+00  1.442308D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06 -9.615388D+05  1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.065705D+07  1.442308D+07 -7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06  1.923078D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07 -1.442308D+07 -1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.038462D+07 -1.923078D+06 -1.442308D+06\r\n0COLUMN    182      ROWS    151 THRU    188     --------------------------------------------------\r\n \r\n  -9.615388D+05 -2.323719D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.884616D+06 -9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00  9.615388D+05  8.814108D+05 -4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+07 -6.650642D+06  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.923078D+06 -1.794872D+07  9.615388D+05\r\n1     WEDGE ELEMENT PROBLEM                                                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T01-21-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGGX        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07  4.046475D+07  7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.923078D+06 -1.153846D+07\r\n0COLUMN    183      ROWS    151 THRU    189     --------------------------------------------------\r\n \r\n  -7.211541D+05 -7.211539D+06 -9.214747D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+06  9.615388D+05 -1.009616D+07\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07  4.807694D+05 -4.126603D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   7.211541D+05 -4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05 -5.128205D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07  7.211539D+06  3.345353D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+06  0.000000D+00 -1.153846D+07\r\n0COLUMNS     184 THRU     186 ARE NULL.\r\n0COLUMN    187      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   8.092950D+06 -9.615388D+05 -7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.535258D+06  9.615388D+05 -1.081731D+07  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.884616D+06  0.000000D+00 -1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00 -5.128205D+06 -1.923078D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.065705D+07 -1.442308D+07  7.211541D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -4.038462D+07  1.923078D+06  1.442308D+06  0.000000D+00  0.000000D+00  0.000000D+00  6.049680D+07  1.442308D+07  1.081731D+07\r\n0COLUMN    188      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   9.615388D+05 -2.323719D+06 -7.211539D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05  8.814108D+05 -4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -2.884616D+06 -9.615388D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.923078D+06 -1.794872D+07  9.615388D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.442308D+07 -6.650642D+06  4.807694D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.923078D+06 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.442308D+07  4.046475D+07  7.211539D+06\r\n0COLUMN    189      ROWS    145 THRU    189     --------------------------------------------------\r\n \r\n   7.211541D+05 -7.211539D+06 -9.214747D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.081731D+07  4.807694D+05 -4.126603D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   1.442308D+06  9.615388D+05 -1.009616D+07  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.615388D+05 -5.128205D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -7.211541D+05 -4.807694D+05 -1.642628D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.442308D+06  0.000000D+00 -1.153846D+07  0.000000D+00  0.000000D+00  0.000000D+00  1.081731D+07  7.211539D+06  3.345353D+07\r\n0COLUMNS     190 THRU     240 ARE NULL.\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      48\r\n0THE DENSITY OF THIS MATRIX IS   2.86 PERCENT.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  WEDGE ELEMENT PROBLEM                                              \r\n DATE:  5/17/95\r\n END TIME: 16:34: 3\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01221a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01221A,NASTRAN                                                           \r\n     DIAG   14                                                                       \r\n     APP    DISP                                                                     \r\n     SOL    1,0                                                                      \r\n     TIME   20                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ANISOTROPIC IHEX2 ELEMENT PROBLEM                                    \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-22-1A                                   \r\n                  3      SPCF  = ALL                                                                     \r\n                  4      SPC   = 11                                                                      \r\n                  5      OLOAD = ALL                                                                     \r\n                  6      DISP  = ALL                                                                     \r\n                  7      STRESS= ALL                                                                     \r\n                  8      SUBCASE 1                                                                       \r\n                  9      LOAD  = 29                                                                      \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    95, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CIHEX2  10101   1       1       2       3       5       8       7       CIH    1\r\n                    2-        +IH    16       4       29      30      32      31      41      42      CIH    2\r\n                    3-        +IH    243      45      48      47      46      44                              \r\n                    4-        CIHEX2  10201   1       6       7       8       10      13      12      CIH    3\r\n                    5-        +IH    311      9       31      32      34      33      46      47      CIH    4\r\n                    6-        +IH    448      50      53      52      51      49                              \r\n                    7-        CIHEX2  10301   1       11      12      13      15      18      17      CIH    5\r\n                    8-        +IH    516      14      33      34      36      35      51      52      CIH    6\r\n                    9-        +IH    653      55      58      57      56      54                              \r\n                   10-        CIHEX2  10401   1       16      17      18      20      23      22      CIH    7\r\n                   11-        +IH    721      19      35      36      38      37      56      57      CIH    8\r\n                   12-        +IH    858      60      63      62      61      59                              \r\n                   13-        CIHEX2  10501   1       21      22      23      25      28      27      CIH    9\r\n                   14-        +IH    926      24      37      38      40      39      61      62      CIH   10\r\n                   15-        +IH   1063      65      68      67      66      64                              \r\n                   16-        CORD2R  30              0.      0.      0.      0.      0.      1.      +C1     \r\n                   17-        +C1     1.      0.      1.                                                      \r\n                   18-        GRDSET                                                  456                     \r\n                   19-        GRID    1               .000    0.000   0.000                                   \r\n                   20-        GRID    2               .500    0.000   0.000                                   \r\n                   21-        GRID    3               1.000   0.000   0.000                                   \r\n                   22-        GRID    4               .000    1.000   0.000                                   \r\n                   23-        GRID    5               1.000   1.000   0.000                                   \r\n                   24-        GRID    6               .000    2.000   0.000                                   \r\n                   25-        GRID    7               .500    2.000   0.000                                   \r\n                   26-        GRID    8               1.000   2.000   0.000                                   \r\n                   27-        GRID    9               .000    3.000   0.000                                   \r\n                   28-        GRID    10              1.000   3.000   0.000                                   \r\n                   29-        GRID    11              .000    4.000   0.000                                   \r\n                   30-        GRID    12              .500    4.000   0.000                                   \r\n                   31-        GRID    13              1.000   4.000   0.000                                   \r\n                   32-        GRID    14              -.000   5.000   0.000                                   \r\n                   33-        GRID    15              1.000   5.000   0.000                                   \r\n                   34-        GRID    16              -.000   6.000   0.000                                   \r\n                   35-        GRID    17              .500    6.000   0.000                                   \r\n                   36-        GRID    18              1.000   6.000   0.000                                   \r\n                   37-        GRID    19              .000    7.000   0.000                                   \r\n                   38-        GRID    20              1.000   7.000   0.000                                   \r\n                   39-        GRID    21              .000    8.000   0.000                                   \r\n                   40-        GRID    22              .500    8.000   0.000                                   \r\n                   41-        GRID    23              1.000   8.000   0.000                                   \r\n                   42-        GRID    24              .000    9.000   0.000                                   \r\n                   43-        GRID    25              1.000   9.000   0.000                                   \r\n                   44-        GRID    26              .000    10.000  0.000                                   \r\n                   45-        GRID    27              .500    10.000  0.000                                   \r\n                   46-        GRID    28              1.000   10.000  0.000                                   \r\n                   47-        GRID    29              -.000   0.000   .500                                    \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    30              1.000   0.000   .500                                    \r\n                   49-        GRID    31              -.000   2.000   .500                                    \r\n                   50-        GRID    32              1.000   2.000   .500                                    \r\n                   51-        GRID    33              -.000   4.000   .500                                    \r\n                   52-        GRID    34              1.000   4.000   .500                                    \r\n                   53-        GRID    35              -.000   6.000   .500                                    \r\n                   54-        GRID    36              1.000   6.000   .500                                    \r\n                   55-        GRID    37              -.000   8.000   .500                                    \r\n                   56-        GRID    38              1.000   8.000   .500                                    \r\n                   57-        GRID    39              -.000   10.000  .500                                    \r\n                   58-        GRID    40              1.000   10.000  .500                                    \r\n                   59-        GRID    41              .000    0.000   1.000                                   \r\n                   60-        GRID    42              .500    0.000   1.000                                   \r\n                   61-        GRID    43              1.000   0.000   1.000                                   \r\n                   62-        GRID    44              .000    1.000   1.000                                   \r\n                   63-        GRID    45              1.000   1.000   1.000                                   \r\n                   64-        GRID    46              .000    2.000   1.000                                   \r\n                   65-        GRID    47              .500    2.000   1.000                                   \r\n                   66-        GRID    48              1.000   2.000   1.000                                   \r\n                   67-        GRID    49              .000    3.000   1.000                                   \r\n                   68-        GRID    50              1.000   3.000   1.000                                   \r\n                   69-        GRID    51              .000    4.000   1.000                                   \r\n                   70-        GRID    52              .500    4.000   1.000                                   \r\n                   71-        GRID    53              1.000   4.000   1.000                                   \r\n                   72-        GRID    54              -.000   5.000   1.000                                   \r\n                   73-        GRID    55              1.000   5.000   1.000                                   \r\n                   74-        GRID    56              -.000   6.000   1.000                                   \r\n                   75-        GRID    57              .500    6.000   1.000                                   \r\n                   76-        GRID    58              1.000   6.000   1.000                                   \r\n                   77-        GRID    59              .000    7.000   1.000                                   \r\n                   78-        GRID    60              1.000   7.000   1.000                                   \r\n                   79-        GRID    61              .000    8.000   1.000                                   \r\n                   80-        GRID    62              .500    8.000   1.000                                   \r\n                   81-        GRID    63              1.000   8.000   1.000                                   \r\n                   82-        GRID    64              .000    9.000   1.000                                   \r\n                   83-        GRID    65              1.000   9.000   1.000                                   \r\n                   84-        GRID    66              .000    10.000  1.000                                   \r\n                   85-        GRID    67              .500    10.000  1.000                                   \r\n                   86-        GRID    68              1.000   10.000  1.000                                   \r\n                   87-        MAT6    31      .232+7  -.211+7 .0316+7 .158+7  .105+7  .0526+7 .737+7  +M1     \r\n                   88-        +M1     -.211+7 -.553+7 -.368+7 -.184+7 .232+7  .158+7  .105+7  .0526+7 +M2     \r\n                   89-        +M2     .664+7  .276+7  .138+7  .434+7  .0921+7 .296+7  7.324-4                 \r\n                   90-        PIHEX   1       31      30      3                                               \r\n                   91-        PLOAD3  29      -10.    10501   26      68                                      \r\n                   92-        SPC1    11      1       1       29      41                                      \r\n                   93-        SPC1    11      2       1       2       3       29      30      41              \r\n                   94-        SPC1    11      2       42      43                                              \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        SPC1    11      123     1                                                       \r\n                              ENDDATA\r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $                        \r\n\r\n       2  FILE     OPTP2=SAVE/EST1=SAVE $                                         \r\n\r\n       3  FILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $             \r\n\r\n       4  SETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $                                 \r\n\r\n       5  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       6  COMPOFF  1,INTERACT $                                                   \r\n\r\n       7  PRECHK   ALL $                                                          \r\n\r\n       8  COMPON   1,INTERACT $                                                   \r\n\r\n      10  COMPOFF  LBLINT02,SYS21 $                                               \r\n\r\n      11  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n      12  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n      13  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n      14  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n      15  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      16  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      17  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      20  PRTMSG   PLTSETX// $                                                    \r\n\r\n      21  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      22  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      23  COND     P1,JUMPPLOT $                                                  \r\n\r\n      24  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      25  PRTMSG   PLOTX1// $                                                     \r\n\r\n      26  LABEL    P1 $                                                           \r\n\r\n      27  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $               \r\n\r\n      28  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      29  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      30  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      31  PARAM    //*AND*/NOELMT/NOGENL/NOSIMP $                                 \r\n\r\n      32  COND     ERROR4,NOELMT $                                                \r\n\r\n      33  PURGE    KGGX/NOSIMP $                                                  \r\n\r\n      34  OPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $     \r\n\r\n      35  LABEL    LOOPTOP $                                                      \r\n\r\n      36  COND     LBL1,NOSIMP $                                                  \r\n\r\n      37  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      38  EQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $                             \r\n\r\n      39  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      40  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      41  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  LABEL    JMPKGG $                                                       \r\n\r\n      43  PURGE    MGG/NOMGG $                                                    \r\n\r\n      44  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      45  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      46  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      47  LABEL    JMPMGG $                                                       \r\n\r\n      48  COND     LBL1,GRDPNT $                                                  \r\n\r\n      49  COND     ERROR2,NOMGG $                                                 \r\n\r\n      50  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      51  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      52  LABEL    LBL1 $                                                         \r\n\r\n      53  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      54  COND     LBL11A,NOGENL $                                                \r\n\r\n      55  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      56  LABEL    LBL11A $                                                       \r\n\r\n      57  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      58  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      61  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      62  COND     ERROR3,NOL $                                                   \r\n\r\n      63  PARAM    //*AND*/NOSR/SINGLE/REACT $                                    \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  PURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n                   KFS,KSS/SINGLE/QG/NOSR $                                       \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      66  COND     LBL2,MPCF2 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  COND     LBL5,OMIT $                                                    \r\n\r\n      76  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      77  LABEL    LBL5 $                                                         \r\n\r\n      78  EQUIV    KAA,KLL/REACT $                                                \r\n\r\n      79  COND     LBL6,REACT $                                                   \r\n\r\n      80  RBMG1    USET,KAA,/KLL,KLR,KRR,,, $                                     \r\n\r\n      81  LABEL    LBL6 $                                                         \r\n\r\n      82  RBMG2    KLL/LLL $                                                      \r\n\r\n      83  COND     LBL7,REACT $                                                   \r\n\r\n      84  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      85  LABEL    LBL7 $                                                         \r\n\r\n      86  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PG,,,,/LUSET/NSKIP/COMPS $                                     \r\n\r\n      87  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      88  COND     LBL10,NOSET $                                                  \r\n\r\n      89  SSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $                          \r\n\r\n      90  LABEL    LBL10 $                                                        \r\n\r\n      91  SSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   NSKIP/S,N,EPSI $                                               \r\n\r\n      92  COND     LBL9,IRES $                                                    \r\n\r\n      93  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      94  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      95  LABEL    LBL9 $                                                         \r\n\r\n      96  SDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/      \r\n                   *STATICS* $                                                    \r\n\r\n      97  COND     LBL8,REPEAT $                                                  \r\n\r\n      98  REPT     LBL11,360 $                                                    \r\n\r\n      99  JUMP     ERROR1 $                                                       \r\n\r\n     100  PARAM    //*NOT*/TEST/REPEAT $                                          \r\n\r\n     101  COND     ERROR5,TEST $                                                  \r\n\r\n     102  LABEL    LBL8 $                                                         \r\n\r\n     103  GPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n                   *STATICS* $                                                    \r\n\r\n     104  PURGE    KDICT,KELM/REPEAT $                                            \r\n\r\n     105  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     106  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n     107  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/       \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $                               \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     108  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n     109  LABEL    NOMPCF $                                                       \r\n\r\n     110  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,     \r\n                   XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,        \r\n                   OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $             \r\n\r\n     111  COND     LBLSTRS,STRESS $                                               \r\n\r\n     112  CURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/              \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     113  LABEL    LBLSTRS $                                                      \r\n\r\n     114  PURGE    OES1M/STRESS $                                                 \r\n\r\n     115  COND     LBLSTRN,STRNFLG $                                              \r\n\r\n     116  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/    \r\n                   ,,,OES1A,,,,/*STATICS*//1 $                                    \r\n\r\n     117  COND     LBLSTRN,STRAIN $                                               \r\n\r\n     118  CURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/           \r\n                   V,Y,NINTPTS $                                                  \r\n\r\n     119  LABEL    LBLSTRN $                                                      \r\n\r\n     120  PURGE    OES1A/STRNFLG $                                                \r\n\r\n     121  COND     LBL17,NOSORT2 $                                                \r\n\r\n     122  SDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $        \r\n\r\n     123  PARAM    //*SUB*/PRTSORT2/NOSORT2/1 $                                   \r\n\r\n     124  COND     LBLSORT1,PRTSORT2 $                                            \r\n\r\n     125  OFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     126  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     127  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     128  JUMP     LBLXYPLT $                                                     \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     129  LABEL    LBLSORT1 $                                                     \r\n\r\n     130  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     131  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     132  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n     133  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n     134  LABEL    LBLXYPLT $                                                     \r\n\r\n     135  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n\r\n     136  XYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,      \r\n                   PFILE/S,N,CARDNO $                                             \r\n\r\n     137  XYPLOT   XYPLTT// $                                                     \r\n\r\n     138  JUMP     DPLOT $                                                        \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  PURGE    OUGV2/NOSORT2 $                                                \r\n\r\n     141  COND     LBLOFP,COUNT $                                                 \r\n\r\n     142  OPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,      \r\n                   CARDNO $                                                       \r\n\r\n     143  EQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $                           \r\n\r\n     144  COND     LOOPEND,PRINT $                                                \r\n\r\n     145  LABEL    LBLOFP $                                                       \r\n\r\n     146  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n     147  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n     148  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $              \r\n\r\n     149  OFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $                                \r\n\r\n     150  OFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $                 \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     151  LABEL    DPLOT $                                                        \r\n\r\n     152  COND     P2,JUMPPLOT $                                                  \r\n\r\n     153  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $     \r\n\r\n     154  PRTMSG   PLOTX2// $                                                     \r\n\r\n     155  LABEL    P2 $                                                           \r\n\r\n     156  LABEL    LOOPEND $                                                      \r\n\r\n     157  COND     FINIS,COUNT $                                                  \r\n\r\n     158  REPT     LOOPTOP,360 $                                                  \r\n\r\n     159  JUMP     FINIS $                                                        \r\n\r\n     160  LABEL    ERROR1 $                                                       \r\n\r\n     161  PRTPARM  //-1/*STATICS* $                                               \r\n\r\n     162  LABEL    ERROR2 $                                                       \r\n\r\n     163  PRTPARM  //-2/*STATICS* $                                               \r\n\r\n     164  LABEL    ERROR3 $                                                       \r\n\r\n     165  PRTPARM  //-3/*STATICS* $                                               \r\n\r\n     166  LABEL    ERROR4 $                                                       \r\n\r\n     167  PRTPARM  //-4/*STATICS* $                                               \r\n\r\n     168  LABEL    ERROR5 $                                                       \r\n\r\n     169  PRTPARM  //-5/*STATICS* $                                               \r\n\r\n     170  LABEL    FINIS $                                                        \r\n\r\n     171  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     172  LABEL    LBLINT02 $                                                     \r\n\r\n     173  COMPON   LBLINT01,SYS21 $                                               \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     228  END      $                                                              \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           48\r\n                                        PROFILE           1746\r\n                                        MAX WAVEFRONT       48\r\n                                        AVG WAVEFRONT   25.676\r\n                                        RMS WAVEFRONT   28.578\r\n                                        RMS BANDWIDTH   31.538\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           20\r\n                                        PROFILE            906\r\n                                        MAX WAVEFRONT       20\r\n                                        AVG WAVEFRONT   13.324\r\n                                        RMS WAVEFRONT   14.108\r\n                                        RMS BANDWIDTH   14.108\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       48        20\r\n                                        PROFILE (P)                       1746       906\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           48        20\r\n                                        AVERAGE WAVEFRONT (C-AVG)       25.676    13.324\r\n                                        RMS WAVEFRONT (C-RMS)           28.578    14.108\r\n                                        RMS BANDWITCH (B-RMS)           31.538    14.108\r\n                                        NUMBER OF GRID POINTS (N)                     68\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 5\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          31\r\n                                        MINIMUM NODAL DEGREE                          19\r\n                                        NUMBER OF UNIQUE EDGES                       838\r\n                                        MATRIX DENSITY, PERCENT                   37.716\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  17\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       3       3       4       5\r\n                         SEQGP          5       4       6      15       7      14       8      13\r\n                         SEQGP          9      22      10      21      11      27      12      26\r\n                         SEQGP         13      25      14      34      15      33      16      39\r\n                         SEQGP         17      38      18      37      19      46      20      45\r\n                         SEQGP         21      51      22      50      23      49      24      61\r\n                         SEQGP         25      57      26      60      27      59      28      58\r\n                         SEQGP         29       6      30       7      31      17      32      16\r\n                         SEQGP         33      29      34      28      35      41      36      40\r\n                         SEQGP         37      53      38      52      39      63      40      62\r\n                         SEQGP         41       8      42       9      43      10      44      12\r\n                         SEQGP         45      11      46      20      47      19      48      18\r\n                         SEQGP         49      24      50      23      51      32      52      31\r\n                         SEQGP         53      30      54      36      55      35      56      44\r\n                         SEQGP         57      43      58      42      59      48      60      47\r\n                         SEQGP         61      56      62      55      63      54      64      68\r\n                         SEQGP         65      64      66      67      67      66      68      65\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IHEX2    ELEMENTS (ELEMENT TYPE  66) STARTING WITH ID    10101\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.1360995E-14\r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.008730E-06   0.0           -4.993066E-07   0.0            0.0            0.0                           \r\n             3      G     -2.017460E-06   0.0           -9.986132E-07   0.0            0.0            0.0                           \r\n             4      G     -3.019118E-06  -6.026180E-06  -2.001656E-06   0.0            0.0            0.0                           \r\n             5      G     -5.036578E-06  -6.026180E-06  -3.000269E-06   0.0            0.0            0.0                           \r\n             6      G     -6.038237E-06  -1.205236E-05  -4.003312E-06   0.0            0.0            0.0                           \r\n             7      G     -7.046966E-06  -1.205236E-05  -4.502619E-06   0.0            0.0            0.0                           \r\n             8      G     -8.055697E-06  -1.205236E-05  -5.001926E-06   0.0            0.0            0.0                           \r\n             9      G     -9.057355E-06  -1.807854E-05  -6.004969E-06   0.0            0.0            0.0                           \r\n            10      G     -1.107481E-05  -1.807854E-05  -7.003582E-06   0.0            0.0            0.0                           \r\n            11      G     -1.207647E-05  -2.410472E-05  -8.006625E-06   0.0            0.0            0.0                           \r\n            12      G     -1.308520E-05  -2.410472E-05  -8.505932E-06   0.0            0.0            0.0                           \r\n            13      G     -1.409393E-05  -2.410472E-05  -9.005238E-06   0.0            0.0            0.0                           \r\n            14      G     -1.509559E-05  -3.013090E-05  -1.000828E-05   0.0            0.0            0.0                           \r\n            15      G     -1.711305E-05  -3.013090E-05  -1.100689E-05   0.0            0.0            0.0                           \r\n            16      G     -1.811471E-05  -3.615708E-05  -1.200994E-05   0.0            0.0            0.0                           \r\n            17      G     -1.912344E-05  -3.615708E-05  -1.250924E-05   0.0            0.0            0.0                           \r\n            18      G     -2.013217E-05  -3.615708E-05  -1.300855E-05   0.0            0.0            0.0                           \r\n            19      G     -2.113383E-05  -4.218326E-05  -1.401159E-05   0.0            0.0            0.0                           \r\n            20      G     -2.315129E-05  -4.218326E-05  -1.501021E-05   0.0            0.0            0.0                           \r\n            21      G     -2.415295E-05  -4.820944E-05  -1.601325E-05   0.0            0.0            0.0                           \r\n            22      G     -2.516168E-05  -4.820944E-05  -1.651256E-05   0.0            0.0            0.0                           \r\n            23      G     -2.617041E-05  -4.820944E-05  -1.701186E-05   0.0            0.0            0.0                           \r\n            24      G     -2.717207E-05  -5.423562E-05  -1.801491E-05   0.0            0.0            0.0                           \r\n            25      G     -2.918952E-05  -5.423562E-05  -1.901352E-05   0.0            0.0            0.0                           \r\n            26      G     -3.019118E-05  -6.026180E-05  -2.001656E-05   0.0            0.0            0.0                           \r\n            27      G     -3.119991E-05  -6.026180E-05  -2.051587E-05   0.0            0.0            0.0                           \r\n            28      G     -3.220864E-05  -6.026180E-05  -2.101518E-05   0.0            0.0            0.0                           \r\n            29      G      0.0            0.0           -1.008730E-06   0.0            0.0            0.0                           \r\n            30      G     -2.017460E-06   0.0           -2.007343E-06   0.0            0.0            0.0                           \r\n            31      G     -6.038237E-06  -1.205236E-05  -5.012042E-06   0.0            0.0            0.0                           \r\n            32      G     -8.055697E-06  -1.205236E-05  -6.010655E-06   0.0            0.0            0.0                           \r\n            33      G     -1.207647E-05  -2.410472E-05  -9.015354E-06   0.0            0.0            0.0                           \r\n            34      G     -1.409393E-05  -2.410472E-05  -1.001397E-05   0.0            0.0            0.0                           \r\n            35      G     -1.811471E-05  -3.615708E-05  -1.301867E-05   0.0            0.0            0.0                           \r\n            36      G     -2.013217E-05  -3.615708E-05  -1.401728E-05   0.0            0.0            0.0                           \r\n            37      G     -2.415295E-05  -4.820944E-05  -1.702198E-05   0.0            0.0            0.0                           \r\n            38      G     -2.617041E-05  -4.820944E-05  -1.802059E-05   0.0            0.0            0.0                           \r\n            39      G     -3.019118E-05  -6.026180E-05  -2.102529E-05   0.0            0.0            0.0                           \r\n            40      G     -3.220864E-05  -6.026180E-05  -2.202391E-05   0.0            0.0            0.0                           \r\n            41      G      0.0            0.0           -2.017460E-06   0.0            0.0            0.0                           \r\n            42      G     -1.008730E-06   0.0           -2.516766E-06   0.0            0.0            0.0                           \r\n            43      G     -2.017460E-06   0.0           -3.016073E-06   0.0            0.0            0.0                           \r\n            44      G     -3.019118E-06  -6.026180E-06  -4.019116E-06   0.0            0.0            0.0                           \r\n            45      G     -5.036578E-06  -6.026180E-06  -5.017729E-06   0.0            0.0            0.0                           \r\n            46      G     -6.038237E-06  -1.205236E-05  -6.020772E-06   0.0            0.0            0.0                           \r\n            47      G     -7.046966E-06  -1.205236E-05  -6.520078E-06   0.0            0.0            0.0                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -8.055697E-06  -1.205236E-05  -7.019385E-06   0.0            0.0            0.0                           \r\n            49      G     -9.057355E-06  -1.807854E-05  -8.022428E-06   0.0            0.0            0.0                           \r\n            50      G     -1.107481E-05  -1.807854E-05  -9.021041E-06   0.0            0.0            0.0                           \r\n            51      G     -1.207647E-05  -2.410472E-05  -1.002408E-05   0.0            0.0            0.0                           \r\n            52      G     -1.308520E-05  -2.410472E-05  -1.052339E-05   0.0            0.0            0.0                           \r\n            53      G     -1.409393E-05  -2.410472E-05  -1.102270E-05   0.0            0.0            0.0                           \r\n            54      G     -1.509559E-05  -3.013090E-05  -1.202574E-05   0.0            0.0            0.0                           \r\n            55      G     -1.711305E-05  -3.013090E-05  -1.302435E-05   0.0            0.0            0.0                           \r\n            56      G     -1.811471E-05  -3.615708E-05  -1.402740E-05   0.0            0.0            0.0                           \r\n            57      G     -1.912344E-05  -3.615708E-05  -1.452670E-05   0.0            0.0            0.0                           \r\n            58      G     -2.013217E-05  -3.615708E-05  -1.502601E-05   0.0            0.0            0.0                           \r\n            59      G     -2.113383E-05  -4.218326E-05  -1.602905E-05   0.0            0.0            0.0                           \r\n            60      G     -2.315129E-05  -4.218326E-05  -1.702767E-05   0.0            0.0            0.0                           \r\n            61      G     -2.415295E-05  -4.820944E-05  -1.803071E-05   0.0            0.0            0.0                           \r\n            62      G     -2.516168E-05  -4.820944E-05  -1.853002E-05   0.0            0.0            0.0                           \r\n            63      G     -2.617041E-05  -4.820944E-05  -1.902932E-05   0.0            0.0            0.0                           \r\n            64      G     -2.717207E-05  -5.423562E-05  -2.003236E-05   0.0            0.0            0.0                           \r\n            65      G     -2.918952E-05  -5.423562E-05  -2.103098E-05   0.0            0.0            0.0                           \r\n            66      G     -3.019118E-05  -6.026180E-05  -2.203402E-05   0.0            0.0            0.0                           \r\n            67      G     -3.119991E-05  -6.026180E-05  -2.253333E-05   0.0            0.0            0.0                           \r\n            68      G     -3.220864E-05  -6.026180E-05  -2.303263E-05   0.0            0.0            0.0                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            26      G      7.726091E-16   8.333333E-01   2.104165E-15   0.0            0.0            0.0                           \r\n            27      G     -5.627817E-16  -3.333333E+00   5.091605E-15   0.0            0.0            0.0                           \r\n            28      G     -1.239037E-15   8.333333E-01  -4.835481E-16   0.0            0.0            0.0                           \r\n            39      G      3.283144E-15  -3.333333E+00   2.954980E-15   0.0            0.0            0.0                           \r\n            40      G     -2.913069E-15  -3.333333E+00  -1.104608E-15   0.0            0.0            0.0                           \r\n            66      G      6.839256E-16   8.333333E-01  -1.551861E-15   0.0            0.0            0.0                           \r\n            67      G      9.328560E-16  -3.333333E+00  -3.241233E-15   0.0            0.0            0.0                           \r\n            68      G     -4.025348E-16   8.333333E-01  -9.939418E-16   0.0            0.0            0.0                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.529710E-13  -8.333333E-01  -5.417888E-14   0.0            0.0            0.0                           \r\n             2      G      0.0            3.333333E+00   0.0            0.0            0.0            0.0                           \r\n             3      G      0.0           -8.333333E-01   0.0            0.0            0.0            0.0                           \r\n            29      G     -5.084821E-14   3.333333E+00   0.0            0.0            0.0            0.0                           \r\n            30      G      0.0            3.333333E+00   0.0            0.0            0.0            0.0                           \r\n            41      G     -3.234080E-13  -8.333333E-01   0.0            0.0            0.0            0.0                           \r\n            42      G      0.0            3.333333E+00   0.0            0.0            0.0            0.0                           \r\n            43      G      0.0           -8.333333E-01   0.0            0.0            0.0            0.0                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10101        1  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333338E+00   4.714052E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        2  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333334E+00   4.714047E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        3  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333330E+00   4.714041E+00            \r\n                    Y -9.999990E+00  YZ  0.0           B -9.999990E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        5  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333336E+00   4.714049E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        8  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333341E+00   4.714056E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        7  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333335E+00   4.714047E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        6  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333328E+00   4.714037E+00            \r\n                    Y -9.999983E+00  YZ  0.0           B -9.999983E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        4  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333333E+00   4.714045E+00            \r\n                    Y -9.999999E+00  YZ  0.0           B -9.999999E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       29  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333336E+00   4.714048E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       30  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333338E+00   4.714051E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       32  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333327E+00   4.714036E+00            \r\n                    Y -9.999982E+00  YZ  0.0           B -9.999982E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10101       31  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333327E+00   4.714036E+00            \r\n                    Y -9.999980E+00  YZ  0.0           B -9.999980E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       41  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333332E+00   4.714044E+00            \r\n                    Y -9.999997E+00  YZ  0.0           B -9.999997E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       42  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333338E+00   4.714052E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       43  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333344E+00   4.714060E+00            \r\n                    Y -1.000003E+01  YZ  0.0           B -1.000003E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       45  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333328E+00   4.714039E+00            \r\n                    Y -9.999986E+00  YZ  0.0           B -9.999986E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       48  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333313E+00   4.714016E+00            \r\n                    Y -9.999938E+00  YZ  0.0           B -9.999938E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       47  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333319E+00   4.714025E+00            \r\n                    Y -9.999958E+00  YZ  0.0           B -9.999958E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       46  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333325E+00   4.714034E+00            \r\n                    Y -9.999975E+00  YZ  0.0           B -9.999975E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101       44  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333329E+00   4.714039E+00            \r\n                    Y -9.999988E+00  YZ  0.0           B -9.999988E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10101        0  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333331E+00   4.714043E+00            \r\n                    Y -9.999994E+00  YZ  0.0           B -9.999994E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201        6  X  0.0           XY -1.035674E-04  A  0.0           LX  0.0  0.00 0.0    3.333318E+00   4.714024E+00            \r\n                    Y -9.999955E+00  YZ  0.0           B -9.999955E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10201        7  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333330E+00   4.714041E+00            \r\n                    Y -9.999990E+00  YZ  0.0           B -9.999990E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201        8  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333341E+00   4.714056E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       10  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333334E+00   4.714046E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       13  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333326E+00   4.714035E+00            \r\n                    Y -9.999977E+00  YZ  0.0           B -9.999977E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       12  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333331E+00   4.714042E+00            \r\n                    Y -9.999993E+00  YZ  0.0           B -9.999993E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       11  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333335E+00   4.714048E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201        9  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333327E+00   4.714036E+00            \r\n                    Y -9.999982E+00  YZ  0.0           B -9.999982E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       31  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333324E+00   4.714032E+00            \r\n                    Y -9.999971E+00  YZ  0.0           B -9.999971E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       32  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333339E+00   4.714054E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       34  X  0.0           XY -1.141221E-04  A  0.0           LX  0.0  0.00 0.0    3.333320E+00   4.714026E+00            \r\n                    Y -9.999960E+00  YZ  0.0           B -9.999960E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       33  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333341E+00   4.714056E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10201       46  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333328E+00   4.714038E+00            \r\n                    Y -9.999985E+00  YZ  0.0           B -9.999985E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       47  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333333E+00   4.714045E+00            \r\n                    Y -9.999999E+00  YZ  0.0           B -9.999999E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       48  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333337E+00   4.714050E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       50  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333326E+00   4.714035E+00            \r\n                    Y -9.999977E+00  YZ  0.0           B -9.999977E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       53  X  0.0           XY -2.210707E-04  A  0.0           LX  0.0  0.00 0.0    3.333314E+00   4.714017E+00            \r\n                    Y -9.999941E+00  YZ -1.975064E-04  B -9.999941E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10201       52  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333330E+00   4.714041E+00            \r\n                    Y -9.999990E+00  YZ  0.0           B -9.999990E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       51  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333346E+00   4.714063E+00            \r\n                    Y -1.000004E+01  YZ  0.0           B -1.000004E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201       49  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333338E+00   4.714051E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10201        0  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333331E+00   4.714042E+00            \r\n                    Y -9.999992E+00  YZ  0.0           B -9.999992E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       11  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333361E+00   4.714085E+00            \r\n                    Y -1.000008E+01  YZ  0.0           B -1.000008E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       12  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333342E+00   4.714058E+00            \r\n                    Y -1.000003E+01  YZ  0.0           B -1.000003E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10301       13  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333322E+00   4.714029E+00            \r\n                    Y -9.999967E+00  YZ  0.0           B -9.999967E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       15  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333319E+00   4.714025E+00            \r\n                    Y -9.999957E+00  YZ  0.0           B -9.999957E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       18  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333315E+00   4.714020E+00            \r\n                    Y -9.999946E+00  YZ  0.0           B -9.999946E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       17  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333313E+00   4.714017E+00            \r\n                    Y -9.999940E+00  YZ  0.0           B -9.999940E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       16  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333310E+00   4.714012E+00            \r\n                    Y -9.999930E+00  YZ  0.0           B -9.999930E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       14  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333336E+00   4.714049E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       33  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333334E+00   4.714046E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       34  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333345E+00   4.714062E+00            \r\n                    Y -1.000003E+01  YZ  0.0           B -1.000003E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       36  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333336E+00   4.714048E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       35  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333320E+00   4.714026E+00            \r\n                    Y -9.999959E+00  YZ  0.0           B -9.999959E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       51  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333306E+00   4.714007E+00            \r\n                    Y -9.999919E+00  YZ  0.0           B -9.999919E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10301       52  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333337E+00   4.714050E+00            \r\n                    Y -1.000001E+01  YZ  0.0           B -1.000001E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       53  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333367E+00   4.714093E+00            \r\n                    Y -1.000010E+01  YZ  0.0           B -1.000010E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       55  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333361E+00   4.714085E+00            \r\n                    Y -1.000008E+01  YZ  0.0           B -1.000008E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       58  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333355E+00   4.714076E+00            \r\n                    Y -1.000006E+01  YZ  0.0           B -1.000006E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       57  X  0.0           XY  1.045035E-04  A  0.0           LX  0.0  0.00 0.0    3.333342E+00   4.714057E+00            \r\n                    Y -1.000003E+01  YZ  0.0           B -1.000003E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       56  X  0.0           XY  1.507328E-04  A  0.0           LX  0.0  0.00 0.0    3.333328E+00   4.714037E+00            \r\n                    Y -9.999984E+00  YZ  0.0           B -9.999984E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301       54  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333318E+00   4.714023E+00            \r\n                    Y -9.999952E+00  YZ  0.0           B -9.999952E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10301        0  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333333E+00   4.714046E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       16  X  0.0           XY -3.923041E-04  A  0.0           LX  0.0  0.00 0.0    3.333207E+00   4.713866E+00            \r\n                    Y -9.999620E+00  YZ -1.635757E-04  B -9.999620E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401       17  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333293E+00   4.713988E+00            \r\n                    Y -9.999879E+00  YZ  0.0           B -9.999879E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       18  X  0.0           XY  3.067409E-04  A  0.0           LX  0.0  0.00 0.0    3.333378E+00   4.714109E+00            \r\n                    Y -1.000013E+01  YZ  1.079207E-04  B -1.000013E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10401       20  X  0.0           XY  1.870388E-04  A  0.0           LX  0.0  0.00 0.0    3.333353E+00   4.714074E+00            \r\n                    Y -1.000006E+01  YZ  1.402576E-04  B -1.000006E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401       23  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333328E+00   4.714037E+00            \r\n                    Y -9.999984E+00  YZ  1.725945E-04  B -9.999984E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401       22  X  0.0           XY  1.010189E-04  A  0.0           LX  0.0  0.00 0.0    3.333330E+00   4.714041E+00            \r\n                    Y -9.999990E+00  YZ  0.0           B -9.999990E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       21  X  0.0           XY  1.347011E-04  A  0.0           LX  0.0  0.00 0.0    3.333331E+00   4.714042E+00            \r\n                    Y -9.999993E+00  YZ  0.0           B -9.999993E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       19  X  0.0           XY -1.288015E-04  A  0.0           LX  0.0  0.00 0.0    3.333269E+00   4.713955E+00            \r\n                    Y -9.999808E+00  YZ  0.0           B -9.999808E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       35  X  0.0           XY -1.174918E-04  A  0.0           LX  0.0  0.00 0.0    3.333312E+00   4.714015E+00            \r\n                    Y -9.999935E+00  YZ  0.0           B -9.999935E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       36  X  0.0           XY  1.551596E-04  A  0.0           LX  0.0  0.00 0.0    3.333360E+00   4.714083E+00            \r\n                    Y -1.000008E+01  YZ  0.0           B -1.000008E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       38  X  0.0           XY -1.393699E-04  A  0.0           LX  0.0  0.00 0.0    3.333318E+00   4.714024E+00            \r\n                    Y -9.999955E+00  YZ  0.0           B -9.999955E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       37  X  0.0           XY  1.544562E-04  A  0.0           LX  0.0  0.00 0.0    3.333333E+00   4.714046E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       56  X  0.0           XY  1.573205E-04  A  0.0           LX  0.0  0.00 0.0    3.333416E+00   4.714162E+00            \r\n                    Y -1.000025E+01  YZ  1.752240E-04  B -1.000025E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401       57  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333379E+00   4.714110E+00            \r\n                    Y -1.000014E+01  YZ  0.0           B -1.000014E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10401       58  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333342E+00   4.714057E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  1.596552E-04  C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       60  X  0.0           XY -1.712492E-04  A  0.0           LX  0.0  0.00 0.0    3.333325E+00   4.714034E+00            \r\n                    Y -9.999975E+00  YZ  0.0           B -9.999975E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       63  X  0.0           XY -3.460766E-04  A  0.0           LX  0.0  0.00 0.0    3.333308E+00   4.714009E+00            \r\n                    Y -9.999923E+00  YZ  0.0           B -9.999923E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX -1.047638E-04  C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401       62  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333322E+00   4.714028E+00            \r\n                    Y -9.999965E+00  YZ  0.0           B -9.999965E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       61  X  0.0           XY  1.742113E-04  A  0.0           LX  0.0  0.00 0.0    3.333335E+00   4.714047E+00            \r\n                    Y -1.000000E+01  YZ  0.0           B -1.000000E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10401       59  X  0.0           XY  1.657659E-04  A  0.0           LX  0.0  0.00 0.0    3.333376E+00   4.714105E+00            \r\n                    Y -1.000013E+01  YZ  1.173884E-04  B -1.000013E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10401        0  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333331E+00   4.714042E+00            \r\n                    Y -9.999992E+00  YZ  0.0           B -9.999992E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       21  X  0.0           XY -1.815047E-04  A  0.0           LX  0.0  0.00 0.0    3.333295E+00   4.713990E+00            \r\n                    Y -9.999884E+00  YZ  0.0           B -9.999884E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       22  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333339E+00   4.714054E+00            \r\n                    Y -1.000002E+01  YZ  0.0           B -1.000002E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       23  X  0.0           XY  1.737319E-04  A  0.0           LX  0.0  0.00 0.0    3.333383E+00   4.714116E+00            \r\n                    Y -1.000015E+01  YZ  1.363936E-04  B -1.000015E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  1.505077E-04  ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       25  X  0.0           XY  1.653482E-04  A  0.0           LX  0.0  0.00 0.0    3.333332E+00   4.714044E+00            \r\n                    Y -9.999997E+00  YZ  0.0           B -9.999997E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10501       28  X  0.0           XY  1.569645E-04  A  0.0           LX  0.0  0.00 0.0    3.333281E+00   4.713971E+00            \r\n                    Y -9.999844E+00  YZ  0.0           B -9.999843E+00  LY  0.0 -1.00 0.0                                           \r\n                    Z -1.412053E-04  ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       27  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333322E+00   4.714029E+00            \r\n                    Y -9.999967E+00  YZ  0.0           B -9.999967E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       26  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333362E+00   4.714086E+00            \r\n                    Y -1.000009E+01  YZ  0.0           B -1.000009E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  1.556012E-04  ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       24  X  0.0           XY -1.019733E-04  A  0.0           LX  0.0  0.00 0.0    3.333329E+00   4.714039E+00            \r\n                    Y -9.999987E+00  YZ  0.0           B -9.999987E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       37  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333283E+00   4.713975E+00            \r\n                    Y -9.999850E+00  YZ -1.020533E-04  B -9.999850E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       38  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333385E+00   4.714118E+00            \r\n                    Y -1.000015E+01  YZ  0.0           B -1.000015E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       40  X  0.0           XY -1.745008E-04  A  0.0           LX  0.0  0.00 0.0    3.333230E+00   4.713900E+00            \r\n                    Y -9.999691E+00  YZ -1.197447E-04  B -9.999691E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX -1.035354E-04  C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       39  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333405E+00   4.714147E+00            \r\n                    Y -1.000022E+01  YZ  0.0           B -1.000022E+01  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       61  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333271E+00   4.713958E+00            \r\n                    Y -9.999814E+00  YZ -1.816037E-04  B -9.999814E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       62  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333329E+00   4.714039E+00            \r\n                    Y -9.999987E+00  YZ -1.352529E-04  B -9.999987E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       63  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333386E+00   4.714119E+00            \r\n                    Y -1.000016E+01  YZ  0.0           B -1.000016E+01  LY  0.0  1.00 0.0                                           \r\n                    Z -1.038763E-04  ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n1     ANISOTROPIC IHEX2 ELEMENT PROBLEM                                     /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T01-22-1A                                                                                            \r\n0                                                                                                            SUBCASE 1              \r\n \r\n                     S T R E S S E S   I N   I S O P A R A M E T R I C   S O L I D   ( C I H E X 2 )\r\n  ELEMENT     GRID           STRESSES IN BASIC COORDINATESYSTEM             DIR. COSINES\r\n       ID    POINT        NORMAL            SHEAR          PRINCIPAL          A    B    C    MEAN STRESS     MAX SHEAR\r\n0   10501       65  X  0.0           XY -2.446793E-04  A  0.0           LX  0.0  0.00 0.0    3.333283E+00   4.713974E+00            \r\n                    Y -9.999848E+00  YZ -1.651929E-04  B -9.999848E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX -1.022756E-04  C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       68  X  0.0           XY -5.059661E-04  A  0.0           LX  0.0  0.00 0.0    3.333179E+00   4.713827E+00            \r\n                    Y -9.999537E+00  YZ -2.414838E-04  B -9.999537E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX -1.831275E-04  C  0.0           LZ  0.0  0.00 0.0                                           \r\n0   10501       67  X  0.0           XY -1.576870E-04  A  0.0           LX  0.0  0.00 0.0    3.333313E+00   4.714017E+00            \r\n                    Y -9.999940E+00  YZ  0.0           B -9.999940E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       66  X  0.0           XY  1.905922E-04  A  0.0           LX  0.0  0.00 0.0    3.333447E+00   4.714206E+00            \r\n                    Y -1.000034E+01  YZ  0.0           B -1.000034E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501       64  X  0.0           XY  1.202176E-04  A  0.0           LX  0.0  0.00 0.0    3.333360E+00   4.714083E+00            \r\n                    Y -1.000008E+01  YZ  0.0           B -1.000008E+01  LY  0.0 -1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n0   10501        0  X  0.0           XY  0.0           A  0.0           LX  0.0  0.0  0.0    3.333326E+00   4.714035E+00            \r\n                    Y -9.999977E+00  YZ  0.0           B -9.999977E+00  LY  0.0  1.00 0.0                                           \r\n                    Z  0.0           ZX  0.0           C  0.0           LZ  0.0  0.0  0.0                                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ANISOTROPIC IHEX2 ELEMENT PROBLEM                                  \r\n DATE:  5/17/95\r\n END TIME: 16:34:53\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01231a.out",
    "content": "     NASTRAN FILES=(INP1,INP2)                                                       \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01231A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1                                                                         \r\n     DIAG  8,15,-2,-14,-7                                                            \r\n     TIME  30                                                                        \r\n     $                                                                               \r\n     ALTER 113 $                                                                     \r\n     $                                                                               \r\n     $PRINT OQG1 TABLE FOR LATER COMPARISION                                         \r\n     OFP    OQG1,,,,, //S,N,CARDNO $                                                 \r\n     $                                                                               \r\n     $CDC USERS, USE UT1 (UNIT 11) AND UT2 (UNIT 12) INSTEAD OF INP1 AND INP2        \r\n     $IN THIS DEMO PROBLEM                                                           \r\n     $                                                                               \r\n     $COPY TABLE OQG1 TO INP1 (UNIT 15) AND COPY OQG1 TO MYFOOT (IN PACKED           \r\n     $GINO FILE)                                                                     \r\n     DUMMOD5 OQG1,,OQG1,,/,,MYFOOT,,/6/15/6/0/0/+1  $                                \r\n     $                                                                               \r\n     $PRINT  MYFOOT, IN MATRIX FORMAT, WHICH SHOULD CONTAIN OQG1 DATA                \r\n     $PRINT  MATRIX KGG FOR LATER COMPARISON                                         \r\n     MATPRN  MYFOOT,KGG,,,// $                                                       \r\n     $                                                                               \r\n     $COPY   MYFOOT AND KGG TO INP2 (UNIT 16), SEQUENTIAL FORMATTED TAPE             \r\n     OUTPUT5 MYFOOT,KGG,,,//-1/16/*YOURFEET*/1  $                                    \r\n     $                                                                               \r\n     $RECOVER THE 2 FILES FROM INP2 (UNIT 16) AND MAKE THEM NASTRAN GINO FILES       \r\n     INPUTT5 /OMYFOOT,OKGG,,,/-1/16/*YOURFEET*/1  $                                  \r\n     $                                                                               \r\n     $RECOVER THE BINARY FILE IN INP1 (UNIT 15) WHICH WAS SAVED IN DUMMOD5           \r\n     INPUTT5  /OQG1X,,,,/-1/15/*XXXXXXXX*/0  $                                       \r\n     $                                                                               \r\n     $TABLE  PRINT OQG1X AND OMYFOOT, AND MATRIX PRINT OKGG FOR VERIFICATION         \r\n     TABPT   OQG1X,OMYFOOT,,, // $                                                   \r\n     MATPRN  OKGG,,,, // $                                                           \r\n     $                                                                               \r\n     $JUMP TO FINISH                                                                 \r\n     JUMP  FINIS $                                                                   \r\n     $                                                                               \r\n     ENDALTER                                                                        \r\n     $                                                                               \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                     \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-23-1A                                   \r\n                  3      LOAD    = 10                                                                    \r\n                  4      SPC     = 1                                                                     \r\n                  5      SPCFORCE= ALL                                                                   \r\n                  6      DISP    = NONE                                                                  \r\n                  7      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    43, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR           5                       0.      0.      1.      1               \r\n                    2-        CBAR    1       2       1       2       1.0     0.0     0.0     1               \r\n                    3-        CBAR    2       5       1       3                                               \r\n                    4-        CBAR    3       5       3       5                                               \r\n                    5-        CBAR    4       5       7       9                                               \r\n                    6-        CBAR    5       5       9       11                                              \r\n                    7-        CBAR    6       5       2       4                                               \r\n                    8-        CBAR    7       5       4       6                                               \r\n                    9-        CBAR    8       5       6       8                                               \r\n                   10-        CBAR    9       5       8       10                                              \r\n                   11-        CBAR    10      5       5       7                                               \r\n                   12-        CBAR    11      3       7       6                                               \r\n                   13-        CBAR    12      3       5       6       1.0     0.0     0.0     1               \r\n                   14-        FORCE   10      1               110.0   0.0     0.0     -1.0                    \r\n                   15-        GRDSET                                                  246                     \r\n                   16-        GRID    1               200.    0.0     10.0                                    \r\n                   17-        GRID    2               200.    0.0     0.0                                     \r\n                   18-        GRID    3               150.0   0.0     10.0                                    \r\n                   19-        GRID    4               150.0   0.0     0.0                                     \r\n                   20-        GRID    5               100.    0.0     10.0                                    \r\n                   21-        GRID    6               100.    0.0     0.0                                     \r\n                   22-        GRID    7               76.     0.0     10.0                                    \r\n                   23-        GRID    8               50.0    0.0     0.0                                     \r\n                   24-        GRID    9               25.86   0.0     10.0                                    \r\n                   25-        GRID    10              0.      0.0     0.0                                     \r\n                   26-        GRID    11              -24.    0.0     10.0                                    \r\n                   27-        MAT1    6061    1.+7            0.3     0.1                                     \r\n                   28-        PBAR    1       6061    100.    100.    100.    100.                    +P1     \r\n                   29-        +P1     -1.0    1.0     1.0     1.0     1.0     -1.0    -1.0    -1.0            \r\n                   30-        PBAR    2       6061    1.359   .752    .752    1.504                   +P2     \r\n                   31-        +P2     -1.0    1.0     1.0     1.0     1.0     -1.0    -1.0    -1.0            \r\n                   32-        PBAR    3       6061    .25     .08     .08     .09                     +P3     \r\n                   33-        +P3     -.25    1.0     .25     1.0     .25     -1.0    -.25    1.0             \r\n                   34-        PBAR    4       6061    .25     .08     .08     .09                     +P4     \r\n                   35-        +P4     -.25    1.0     .25     1.0     .25     -1.0    -.25    1.0             \r\n                   36-        PBAR    5       6061    2.718   1.504   1.504   3.0                     +P5     \r\n                   37-        +P5     -1.0    6.0     1.0     6.0     1.0     -6.0    -1.0    -6.0            \r\n                   38-        SPC1    1       3       1       2       4       6                               \r\n                   39-        SPC1    1       13      10      11                                              \r\n                   40-        SPCD    10      1       3       -1.0                                            \r\n                   41-        SPCD    10      2       3       -1.0                                            \r\n                   42-        SPCD    10      4       3       -1.0                                            \r\n                   43-        SPCD    10      6       3       -1.0                                            \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE, THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT USED -\r\n\r\n             1        4\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   3.4866033E-17\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            1.120520E+02   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0           -1.199711E+01   0.0            0.0            0.0                           \r\n             4      G      0.0            0.0            7.452454E+01   0.0            0.0            0.0                           \r\n             6      G      0.0            0.0           -1.316064E+02   0.0            0.0            0.0                           \r\n            10      G      4.760130E+02   0.0            3.414592E+01   0.0            0.0            0.0                           \r\n            11      G     -4.760130E+02   0.0            3.288108E+01   0.0            0.0            0.0                           \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** MODULE DUMMOD5 CALLED BY USER DMAP ALTER.\r\n     PARAMETERS ARE    P=    6,   15,    6,    0,    0,     Q=    1     R=   0\r\n\r\n  COLUMN=    1\r\n      0.000000E+00    0.000000E+00    0.000000E+00    0.112052E+03    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00   -0.119971E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00    0.745245E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00   -0.131606E+03    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.476013E+03    0.000000E+00    0.341459E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00   -0.476013E+03    0.000000E+00    0.328811E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n0*** USER INFORMATION MESSAGE, MODULE DUMMOD5 SUCCESSFULLY COPIED TABULAR DATA FROM OQG1     TO OUTPUT TAPE\r\n     (FORTRAN UNIT  15) IN BANDED MATRIX FORM\r\n\r\n\r\n     GRID-ID ARRAY FOLLOWS/FROM OQG1    \r\n            1       2       4       6      10      11\r\n  COLUMN=    1\r\n      0.000000E+00    0.000000E+00    0.000000E+00    0.112052E+03    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00   -0.119971E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00    0.745245E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.000000E+00    0.000000E+00   -0.131606E+03    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00    0.476013E+03    0.000000E+00    0.341459E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n      0.000000E+00   -0.476013E+03    0.000000E+00    0.328811E+02    0.000000E+00    0.000000E+00    0.000000E+00    0.000000E+00\r\n0*** USER INFORMATION MESSAGE, MODULE DUMMOD5 SUCCESSFULLY PROCESSED TABULAR DATA FROM OQG1     TO DATA BLOCK MYFOOT  \r\n     IN GINO PACKED FORM\r\n\r\n\r\n     GRID-ID ARRAY FOLLOWS/FROM OQG1    \r\n            1       2       4       6      10      11\r\n0*** USER INFORMATION MESSAGE, FOLLOWING DATA BLOCKS WERE COPIED TO FORTRAN UNIT 15 BY MODULE DUMMOD5\r\n     USING UNFORMATTED (BINARY) WRITE\r\n      OQG1    \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0      MATRIX MYFOOT   (GINO NAME 101 ) IS A S.P.REAL      1 COLUMN X     48 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU     44     --------------------------------------------------\r\n \r\n   0.00000E+00  0.00000E+00  0.00000E+00  1.12052E+02  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00\r\n   0.00000E+00 -1.19971E+01  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  7.45245E+01\r\n   0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00 -1.31606E+02  0.00000E+00  0.00000E+00\r\n   0.00000E+00  0.00000E+00  0.00000E+00  4.76013E+02  0.00000E+00  3.41459E+01  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00\r\n   0.00000E+00 -4.76013E+02  0.00000E+00  3.28811E+01\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      14\r\n0THE DENSITY OF THIS MATRIX IS  29.16 PERCENT.\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0      MATRIX KGG      (GINO NAME 102 ) IS A D.P.REAL     66 COLUMN X     66 ROW SYMMETRC MATRIX.\r\n0COLUMN      1      ROWS      1 THRU     13     --------------------------------------------------\r\n \r\n   6.338400D+05  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00 -9.024000D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -4.512000D+05  0.000000D+00 -5.436000D+05\r\n0COLUMN      2      ROWS      2 THRU     18     --------------------------------------------------\r\n \r\n   9.168384D+04  0.000000D+00  4.512000D+05  0.000000D+00 -3.609600D+04  0.000000D+00 -9.024000D+04  0.000000D+00  4.512000D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04\r\n0COLUMN      3      ROWS      3 THRU     17     --------------------------------------------------\r\n \r\n   1.360444D+06  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00 -1.359000D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN      4      ROWS      2 THRU     16     --------------------------------------------------\r\n \r\n   4.512000D+05  0.000000D+00  3.238769D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00  1.504000D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN      5      ROWS      1 THRU     17     --------------------------------------------------\r\n \r\n  -4.512000D+05  0.000000D+00  3.609600D+04  0.000000D+00  4.211200D+06  0.000000D+00  4.512000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  1.504000D+06  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN      6      ROWS      2 THRU     18     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.781662D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -5.784615D+05  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05\r\n0COLUMN      7      ROWS      1 THRU     19     --------------------------------------------------\r\n \r\n  -9.024000D+04  0.000000D+00  0.000000D+00  0.000000D+00  4.512000D+05  0.000000D+00  6.338400D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.436000D+05\r\n0COLUMN      8      ROWS      2 THRU     24     --------------------------------------------------\r\n \r\n  -9.024000D+04  0.000000D+00 -4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  9.168384D+04  0.000000D+00 -4.512000D+05\r\n   0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04\r\n0COLUMN      9      ROWS      3 THRU     23     --------------------------------------------------\r\n \r\n  -1.359000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.360444D+06  0.000000D+00  3.609600D+04\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     10      ROWS      2 THRU     22     --------------------------------------------------\r\n \r\n   4.512000D+05  0.000000D+00  1.504000D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00  3.238769D+06\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     11      ROWS      1 THRU     23     --------------------------------------------------\r\n \r\n  -4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.504000D+06  0.000000D+00  4.512000D+05  0.000000D+00  3.609600D+04\r\n   0.000000D+00  4.211200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     12      ROWS      6 THRU     24     --------------------------------------------------\r\n \r\n  -5.784615D+05  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.781662D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.016000D+05\r\n0COLUMN     13      ROWS      1 THRU     25     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     14      ROWS      2 THRU     30     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     15      ROWS      3 THRU     29     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     16      ROWS      4 THRU     28     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     17      ROWS      3 THRU     29     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     18      ROWS      2 THRU     30     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     19      ROWS      7 THRU     31     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     20      ROWS      8 THRU     36     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     21      ROWS      9 THRU     35     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     22      ROWS     10 THRU     34     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     23      ROWS      9 THRU     35     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     24      ROWS      8 THRU     36     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     25      ROWS     13 THRU     37     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.685700D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -9.600000D+03  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00 -1.132500D+06\r\n0COLUMN     26      ROWS     14 THRU     42     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.409939D+04  0.000000D+00  4.800000D+04  0.000000D+00 -1.205707D+05  0.000000D+00\r\n  -9.600000D+03  0.000000D+00  4.800000D+04  0.000000D+00  0.000000D+00  0.000000D+00 -1.305556D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -1.566667D+05\r\n0COLUMN     27      ROWS     15 THRU     41     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.644994D+05  0.000000D+00  1.205707D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.500000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.305556D+04  0.000000D+00  1.566667D+05\r\n0COLUMN     28      ROWS     16 THRU     40     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.800000D+04  0.000000D+00  1.031538D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00\r\n   1.600000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -4.807692D+05\r\n0COLUMN     29      ROWS     15 THRU     41     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -4.800000D+04  0.000000D+00  1.205707D+05  0.000000D+00  4.029867D+06  0.000000D+00  4.800000D+04  0.000000D+00\r\n   0.000000D+00  0.000000D+00  1.600000D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.566667D+05  0.000000D+00  1.253333D+06\r\n0COLUMN     30      ROWS     14 THRU     42     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.205707D+05  0.000000D+00  0.000000D+00  0.000000D+00  3.744482D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.461539D+04  0.000000D+00  1.566667D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  1.253333D+06\r\n0COLUMN     31      ROWS     19 THRU     43     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.600000D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.800000D+04  0.000000D+00  1.178811D+06  0.000000D+00 -3.394354D+04  0.000000D+00  5.073100D+04  0.000000D+00\r\n  -8.201070D+04  0.000000D+00  3.394354D+04  0.000000D+00  2.730997D+03  0.000000D+00 -5.436000D+05\r\n0COLUMN     32      ROWS     20 THRU     48     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00 -9.600000D+03  0.000000D+00 -4.800000D+04\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.303388D+04  0.000000D+00 -5.073100D+04  0.000000D+00 -6.554392D+03  0.000000D+00\r\n  -5.461994D+02  0.000000D+00 -2.730997D+03  0.000000D+00 -6.554392D+03  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     33      ROWS     21 THRU     47     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00 -2.500000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.394354D+04  0.000000D+00  2.675770D+05  0.000000D+00  6.554392D+03  0.000000D+00  3.394354D+04  0.000000D+00\r\n  -1.468934D+04  0.000000D+00  6.554392D+03  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     34      ROWS     22 THRU     46     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  4.800000D+04  0.000000D+00  1.600000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -5.073100D+04  0.000000D+00  8.110893D+05  0.000000D+00  3.896922D+04  0.000000D+00  2.730997D+03  0.000000D+00\r\n  -2.240819D+03  0.000000D+00  2.657470D+04  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     35      ROWS     21 THRU     47     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00 -4.800000D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.600000D+05\r\n   0.000000D+00  5.073100D+04  0.000000D+00  6.554392D+03  0.000000D+00  2.849477D+06  0.000000D+00 -2.730997D+03  0.000000D+00\r\n  -6.554392D+03  0.000000D+00  6.153846D+04  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     36      ROWS     20 THRU     48     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.461539D+04  0.000000D+00 -6.554392D+03  0.000000D+00  3.896922D+04  0.000000D+00  2.547855D+06  0.000000D+00\r\n   6.554392D+03  0.000000D+00  2.657470D+04  0.000000D+00  5.046567D+04  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     37      ROWS     25 THRU     49     --------------------------------------------------\r\n \r\n  -1.132500D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -8.201070D+04  0.000000D+00  3.394354D+04\r\n   0.000000D+00 -2.730997D+03  0.000000D+00  1.756593D+06  0.000000D+00 -3.394354D+04  0.000000D+00 -2.730997D+03  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.420822D+05\r\n0COLUMN     38      ROWS     26 THRU     54     --------------------------------------------------\r\n \r\n  -1.305556D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.566667D+05  0.000000D+00 -5.461994D+02  0.000000D+00  2.730997D+03\r\n   0.000000D+00  6.554392D+03  0.000000D+00  1.503353D+04  0.000000D+00  2.730997D+03  0.000000D+00  1.273263D+05  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.431779D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.589471D+04\r\n0COLUMN     39      ROWS     27 THRU     53     --------------------------------------------------\r\n \r\n  -1.305556D+04  0.000000D+00 -1.566667D+05  0.000000D+00  3.394354D+04  0.000000D+00 -1.468934D+04  0.000000D+00 -6.554392D+03\r\n   0.000000D+00 -3.394354D+04  0.000000D+00  2.917668D+04  0.000000D+00 -1.273263D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.431779D+03  0.000000D+00  3.589471D+04\r\n0COLUMN     40      ROWS     28 THRU     52     --------------------------------------------------\r\n \r\n  -4.807692D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.730997D+03  0.000000D+00 -2.240819D+03  0.000000D+00  2.657470D+04\r\n   0.000000D+00  2.730997D+03  0.000000D+00  7.404449D+05  0.000000D+00  3.896922D+04  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.301249D+05\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMN     41      ROWS     27 THRU     53     --------------------------------------------------\r\n \r\n   1.566667D+05  0.000000D+00  1.253333D+06  0.000000D+00  2.730997D+03  0.000000D+00  6.554392D+03  0.000000D+00  6.153846D+04\r\n   0.000000D+00 -2.730997D+03  0.000000D+00 -1.273263D+05  0.000000D+00  3.829584D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.589471D+04  0.000000D+00  5.999202D+05\r\n0COLUMN     42      ROWS     26 THRU     54     --------------------------------------------------\r\n \r\n  -1.566667D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.253333D+06  0.000000D+00 -6.554392D+03  0.000000D+00  2.657470D+04\r\n   0.000000D+00  5.046567D+04  0.000000D+00  1.273263D+05  0.000000D+00  3.896922D+04  0.000000D+00  3.813347D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.589471D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  5.999202D+05\r\n0COLUMN     43      ROWS     31 THRU     55     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     44      ROWS     32 THRU     60     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     45      ROWS     33 THRU     59     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     46      ROWS     34 THRU     58     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     47      ROWS     33 THRU     59     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     48      ROWS     32 THRU     60     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     49      ROWS     37 THRU     61     --------------------------------------------------\r\n \r\n  -5.420822D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087208D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.451263D+05\r\n0COLUMN     50      ROWS     38 THRU     66     --------------------------------------------------\r\n \r\n  -1.431779D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887816D+03  0.000000D+00  0.000000D+00  0.000000D+00 -4.042798D+02  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.456036D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.629899D+04\r\n0COLUMN     51      ROWS     39 THRU     65     --------------------------------------------------\r\n \r\n  -1.431779D+03  0.000000D+00 -3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887816D+03  0.000000D+00  4.042798D+02  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.456036D+03  0.000000D+00  3.629899D+04\r\n0COLUMN     52      ROWS     40 THRU     64     --------------------------------------------------\r\n \r\n  -2.301249D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615421D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.314172D+05\r\n0COLUMN     53      ROWS     39 THRU     65     --------------------------------------------------\r\n \r\n   3.589471D+04  0.000000D+00  5.999202D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.042798D+02  0.000000D+00  2.406419D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.629899D+04  0.000000D+00  6.032892D+05\r\n0COLUMN     54      ROWS     38 THRU     66     --------------------------------------------------\r\n \r\n  -3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  5.999202D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.042798D+02  0.000000D+00  0.000000D+00  0.000000D+00  2.406419D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.032892D+05\r\n0COLUMN     55      ROWS     43 THRU     55     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  5.436000D+05\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMN     56      ROWS     44 THRU     60     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04\r\n0COLUMN     57      ROWS     45 THRU     59     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.443840D+03  0.000000D+00 -3.609600D+04\r\n0COLUMN     58      ROWS     46 THRU     58     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.307692D+05\r\n0COLUMN     59      ROWS     45 THRU     59     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  1.203200D+06\r\n0COLUMN     60      ROWS     44 THRU     60     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.203200D+06\r\n0COLUMN     61      ROWS     49 THRU     61     --------------------------------------------------\r\n \r\n  -5.451263D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  5.451263D+05\r\n0COLUMN     62      ROWS     50 THRU     66     --------------------------------------------------\r\n \r\n  -1.456036D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.456036D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04\r\n0COLUMN     63      ROWS     51 THRU     65     --------------------------------------------------\r\n \r\n  -1.456036D+03  0.000000D+00 -3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.456036D+03  0.000000D+00 -3.629899D+04\r\n0COLUMN     64      ROWS     52 THRU     64     --------------------------------------------------\r\n \r\n  -2.314172D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.314172D+05\r\n0COLUMN     65      ROWS     51 THRU     65     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   3.629899D+04  0.000000D+00  6.032892D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.629899D+04  0.000000D+00  1.206578D+06\r\n0COLUMN     66      ROWS     50 THRU     66     --------------------------------------------------\r\n \r\n  -3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.032892D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.206578D+06\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      24\r\n0THE DENSITY OF THIS MATRIX IS   8.76 PERCENT.\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  KGG         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE, MODULE OUTPUT5 CALLED BY USER DMAP ALTER, ON FORMATTD TAPE,\r\n     WITH FOLLOWING REQUEST  (P1=-1)\r\n     REWIND, WRITE A TAPE HEADER RECORD, THEN FOLLOWED BY DATA BLOCKS WRITING.\r\n     AT END, NO EOF AND NO REWIND\r\n\r\n     MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK MYFOOT   AND WROTE IT OUT TO\r\n     FORTRAN UNIT  16, IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS)\r\n         NO. OF COLS =       1\r\n         NO. OF ROWS =      48\r\n                FORM =       2\r\n                TYPE =       1\r\n     SYSTEM BUFFSIZE =    1028\r\n     IN FORTRAN FORMATTED RECORDS - (3I8,/,(10E13.6))\r\n\r\n     MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK KGG      AND WROTE IT OUT TO\r\n     FORTRAN UNIT  16, IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS)\r\n         NO. OF COLS =      66\r\n         NO. OF ROWS =      66\r\n                FORM =       6\r\n                TYPE =       2\r\n     SYSTEM BUFFSIZE =    1028\r\n     IN FORTRAN FORMATTED RECORDS - (3I8,/,(5D26.17))\r\n\r\n     SUMMARY FROM OUTPUT5 MODULE\r\n\r\n                DATA BLOCKS WRITTEN TO FORTRAN UNIT  16\r\n                 (BY \u0000\u0000\u0000\u0000 MACHINE, FORMATTD RECORDS)\r\n\r\n\r\n                      FILE        NAME        TYPE\r\n                 ------------------------------------\r\n                        1         MYFOOT      MTRX\r\n                        2         KGG         MTRX\r\n\r\n     THIS FORMATTED OUTPUT FILE CAN BE VIEWED OR EDITED VIA SYSTEM EDITOR\r\n\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE, MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON FORMATTD INPUT FILE,\r\n     WITH THE FOLLOWING REQUEST.  (P1=-1)\r\n     REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ TAPE. AT END, NO REWIND\r\n\r\n     MODULE INPUTT5 IS NOW PROCESSING TAPE YOURFEET WHICH WAS WRITTEN BY \u0000\u0000\u0000\u0000    MACHINE\r\n     ON   5/17/95    SYSTEM BUFFSIZE=    1028\r\n     TAPE IN FORMATTED RECORDS\r\n\r\n\r\n     MATRIX DATA BLOCK MYFOOT   WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT  16 TO OMYFOOT \r\n        GINO UNIT =     201\r\n      NO. OF COLS =       1\r\n      NO. OF ROWS =      48\r\n             FORM =       2\r\n             TYPE =       1\r\n   NON-ZERO WORDS =       8\r\n          DENSITY =    1666\r\n\r\n     MATRIX DATA BLOCK KGG      WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT  16 TO OKGG    \r\n        GINO UNIT =     202\r\n      NO. OF COLS =      66\r\n      NO. OF ROWS =      66\r\n             FORM =       6\r\n             TYPE =       2\r\n   NON-ZERO WORDS =      24\r\n          DENSITY =     876\r\n\r\n     SUMMARY FROM INPUTT5 MODLUE -\r\n\r\n                                  FILES RECOVERED FROM FORTRAN UNIT   16\r\n                            (WRITTEN BY \u0000\u0000\u0000\u0000     MACHINE FORMATTD RECORDS)\r\n\r\n                                     FILE        NAME        TYPE\r\n                                 ------------------------------------\r\n                                       1       MYFOOT        MTRX\r\n                                       2       KGG           MTRX\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE, MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON BINARY   INPUT FILE,\r\n     WITH THE FOLLOWING REQUEST.  (P1=-1)\r\n     REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ TAPE. AT END, NO REWIND\r\n\r\n     MODULE INPUTT5 IS NOW PROCESSING TAPE XXXXXXXX WHICH WAS WRITTEN BY \u0000\u0000\u0000\u0000    MACHINE\r\n     ON   5/17/95    SYSTEM BUFFSIZE=    1028\r\n     TAPE IN BINARY RECORDS\r\n\r\n\r\n     MATRIX DATA BLOCK OQG1     WAS SUCESSFULLY RECOVERED FROM FORTRAN UNIT  15 TO OQG1X   \r\n        GINO UNIT =     201\r\n      NO. OF COLS =       1\r\n      NO. OF ROWS =      48\r\n             FORM =       2\r\n             TYPE =       1\r\n   NON-ZERO WORDS =      13\r\n          DENSITY =    2708\r\n\r\n     SUMMARY FROM INPUTT5 MODLUE -\r\n\r\n                                  FILES RECOVERED FROM FORTRAN UNIT   15\r\n                            (WRITTEN BY \u0000\u0000\u0000\u0000     MACHINE BINARY   RECORDS)\r\n\r\n                                     FILE        NAME        TYPE\r\n                                 ------------------------------------\r\n                                       1       OQG1          MTRX\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    TABLE   OQG1X                                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE, TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P., D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY\r\n\r\n RECORD NO.     0\r\n          OQG1         X                                                                                                            \r\n\r\n RECORD NO.     1\r\n0STRING NO.    1   ROW POSITION=    4   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   1.1205201E+02\r\n0STRING NO.    2   ROW POSITION=    9   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   0.0000000E+00\r\n0STRING NO.    3   ROW POSITION=   12   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n  -1.1997112E+01\r\n0STRING NO.    4   ROW POSITION=   17   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   0.0000000E+00\r\n0STRING NO.    5   ROW POSITION=   20   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   7.4524544E+01\r\n0STRING NO.    6   ROW POSITION=   25   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   0.0000000E+00\r\n0STRING NO.    7   ROW POSITION=   28   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n  -1.3160645E+02\r\n0STRING NO.    8   ROW POSITION=   33   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    2\r\n   0.0000000E+00  4.7601303E+02\r\n0STRING NO.    9   ROW POSITION=   36   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   3.4145924E+01\r\n0STRING NO.   10   ROW POSITION=   41   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    2\r\n   0.0000000E+00 -4.7601303E+02\r\n0STRING NO.   11   ROW POSITION=   44   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   3.2881084E+01\r\n\r\n RECORD NO.     2\r\n\r\n\r\n END OF FILE\r\n0TRAILER WORD1 =       1 WORD2 =      48 WORD3 =       2 WORD4 =       1 WORD5 =      13 WORD6 =    2708\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    TABLE   OMYFOOT                                                                                                                \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n RECORD NO.     0\r\n          OMYF         OOT                                                                                                          \r\n\r\n RECORD NO.     1\r\n0STRING NO.    1   ROW POSITION=    4   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   1.1205200E+02\r\n0STRING NO.    2   ROW POSITION=   12   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n  -1.1997100E+01\r\n0STRING NO.    3   ROW POSITION=   20   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   7.4524498E+01\r\n0STRING NO.    4   ROW POSITION=   28   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n  -1.3160600E+02\r\n0STRING NO.    5   ROW POSITION=   34   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   4.7601300E+02\r\n0STRING NO.    6   ROW POSITION=   36   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   3.4145901E+01\r\n0STRING NO.    7   ROW POSITION=   42   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n  -4.7601300E+02\r\n0STRING NO.    8   ROW POSITION=   44   STRING TYPE=RSP   STRING TRAILERS=YES   NUMBER OF TERMS=    1\r\n   3.2881100E+01\r\n\r\n RECORD NO.     2\r\n\r\n\r\n END OF FILE\r\n0TRAILER WORD1 =       1 WORD2 =      48 WORD3 =       2 WORD4 =       1 WORD5 =       8 WORD6 =    1666\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0      MATRIX OKGG     (GINO NAME 101 ) IS A D.P.REAL     66 COLUMN X     66 ROW SYMMETRC MATRIX.\r\n0COLUMN      1      ROWS      1 THRU     13     --------------------------------------------------\r\n \r\n   6.338400D+05  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00 -9.024000D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -4.512000D+05  0.000000D+00 -5.436000D+05\r\n0COLUMN      2      ROWS      2 THRU     18     --------------------------------------------------\r\n \r\n   9.168384D+04  0.000000D+00  4.512000D+05  0.000000D+00 -3.609600D+04  0.000000D+00 -9.024000D+04  0.000000D+00  4.512000D+05\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04\r\n0COLUMN      3      ROWS      3 THRU     17     --------------------------------------------------\r\n \r\n   1.360444D+06  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00 -1.359000D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN      4      ROWS      2 THRU     16     --------------------------------------------------\r\n \r\n   4.512000D+05  0.000000D+00  3.238769D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00  1.504000D+06\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN      5      ROWS      1 THRU     17     --------------------------------------------------\r\n \r\n  -4.512000D+05  0.000000D+00  3.609600D+04  0.000000D+00  4.211200D+06  0.000000D+00  4.512000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  1.504000D+06  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN      6      ROWS      2 THRU     18     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.781662D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -5.784615D+05  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05\r\n0COLUMN      7      ROWS      1 THRU     19     --------------------------------------------------\r\n \r\n  -9.024000D+04  0.000000D+00  0.000000D+00  0.000000D+00  4.512000D+05  0.000000D+00  6.338400D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -5.436000D+05\r\n0COLUMN      8      ROWS      2 THRU     24     --------------------------------------------------\r\n \r\n  -9.024000D+04  0.000000D+00 -4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  9.168384D+04  0.000000D+00 -4.512000D+05\r\n   0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04\r\n0COLUMN      9      ROWS      3 THRU     23     --------------------------------------------------\r\n \r\n  -1.359000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.360444D+06  0.000000D+00  3.609600D+04\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     10      ROWS      2 THRU     22     --------------------------------------------------\r\n \r\n   4.512000D+05  0.000000D+00  1.504000D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.512000D+05  0.000000D+00  3.238769D+06\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     11      ROWS      1 THRU     23     --------------------------------------------------\r\n \r\n  -4.512000D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.504000D+06  0.000000D+00  4.512000D+05  0.000000D+00  3.609600D+04\r\n   0.000000D+00  4.211200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     12      ROWS      6 THRU     24     --------------------------------------------------\r\n \r\n  -5.784615D+05  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.781662D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00\r\n   6.016000D+05\r\n0COLUMN     13      ROWS      1 THRU     25     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     14      ROWS      2 THRU     30     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     15      ROWS      3 THRU     29     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     16      ROWS      4 THRU     28     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     17      ROWS      3 THRU     29     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     18      ROWS      2 THRU     30     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     19      ROWS      7 THRU     31     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     20      ROWS      8 THRU     36     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     21      ROWS      9 THRU     35     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     22      ROWS     10 THRU     34     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     23      ROWS      9 THRU     35     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     24      ROWS      8 THRU     36     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     25      ROWS     13 THRU     37     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.685700D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -9.600000D+03  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00 -1.132500D+06\r\n0COLUMN     26      ROWS     14 THRU     42     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.409939D+04  0.000000D+00  4.800000D+04  0.000000D+00 -1.205707D+05  0.000000D+00\r\n  -9.600000D+03  0.000000D+00  4.800000D+04  0.000000D+00  0.000000D+00  0.000000D+00 -1.305556D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -1.566667D+05\r\n0COLUMN     27      ROWS     15 THRU     41     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.644994D+05  0.000000D+00  1.205707D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n  -2.500000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.305556D+04  0.000000D+00  1.566667D+05\r\n0COLUMN     28      ROWS     16 THRU     40     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.800000D+04  0.000000D+00  1.031538D+06  0.000000D+00  0.000000D+00  0.000000D+00 -4.800000D+04  0.000000D+00\r\n   1.600000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -4.807692D+05\r\n0COLUMN     29      ROWS     15 THRU     41     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -4.800000D+04  0.000000D+00  1.205707D+05  0.000000D+00  4.029867D+06  0.000000D+00  4.800000D+04  0.000000D+00\r\n   0.000000D+00  0.000000D+00  1.600000D+05  0.000000D+00  0.000000D+00  0.000000D+00 -1.566667D+05  0.000000D+00  1.253333D+06\r\n0COLUMN     30      ROWS     14 THRU     42     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.205707D+05  0.000000D+00  0.000000D+00  0.000000D+00  3.744482D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.461539D+04  0.000000D+00  1.566667D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00  1.253333D+06\r\n0COLUMN     31      ROWS     19 THRU     43     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -9.600000D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00  4.800000D+04  0.000000D+00  1.178811D+06  0.000000D+00 -3.394354D+04  0.000000D+00  5.073100D+04  0.000000D+00\r\n  -8.201070D+04  0.000000D+00  3.394354D+04  0.000000D+00  2.730997D+03  0.000000D+00 -5.436000D+05\r\n0COLUMN     32      ROWS     20 THRU     48     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00 -9.600000D+03  0.000000D+00 -4.800000D+04\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.303388D+04  0.000000D+00 -5.073100D+04  0.000000D+00 -6.554392D+03  0.000000D+00\r\n  -5.461994D+02  0.000000D+00 -2.730997D+03  0.000000D+00 -6.554392D+03  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     33      ROWS     21 THRU     47     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00 -2.500000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.394354D+04  0.000000D+00  2.675770D+05  0.000000D+00  6.554392D+03  0.000000D+00  3.394354D+04  0.000000D+00\r\n  -1.468934D+04  0.000000D+00  6.554392D+03  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     34      ROWS     22 THRU     46     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  4.800000D+04  0.000000D+00  1.600000D+05  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -5.073100D+04  0.000000D+00  8.110893D+05  0.000000D+00  3.896922D+04  0.000000D+00  2.730997D+03  0.000000D+00\r\n  -2.240819D+03  0.000000D+00  2.657470D+04  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     35      ROWS     21 THRU     47     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00 -4.800000D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.600000D+05\r\n   0.000000D+00  5.073100D+04  0.000000D+00  6.554392D+03  0.000000D+00  2.849477D+06  0.000000D+00 -2.730997D+03  0.000000D+00\r\n  -6.554392D+03  0.000000D+00  6.153846D+04  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     36      ROWS     20 THRU     48     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.461539D+04  0.000000D+00 -6.554392D+03  0.000000D+00  3.896922D+04  0.000000D+00  2.547855D+06  0.000000D+00\r\n   6.554392D+03  0.000000D+00  2.657470D+04  0.000000D+00  5.046567D+04  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     37      ROWS     25 THRU     49     --------------------------------------------------\r\n \r\n  -1.132500D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -8.201070D+04  0.000000D+00  3.394354D+04\r\n   0.000000D+00 -2.730997D+03  0.000000D+00  1.756593D+06  0.000000D+00 -3.394354D+04  0.000000D+00 -2.730997D+03  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.420822D+05\r\n0COLUMN     38      ROWS     26 THRU     54     --------------------------------------------------\r\n \r\n  -1.305556D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.566667D+05  0.000000D+00 -5.461994D+02  0.000000D+00  2.730997D+03\r\n   0.000000D+00  6.554392D+03  0.000000D+00  1.503353D+04  0.000000D+00  2.730997D+03  0.000000D+00  1.273263D+05  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.431779D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.589471D+04\r\n0COLUMN     39      ROWS     27 THRU     53     --------------------------------------------------\r\n \r\n  -1.305556D+04  0.000000D+00 -1.566667D+05  0.000000D+00  3.394354D+04  0.000000D+00 -1.468934D+04  0.000000D+00 -6.554392D+03\r\n   0.000000D+00 -3.394354D+04  0.000000D+00  2.917668D+04  0.000000D+00 -1.273263D+05  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.431779D+03  0.000000D+00  3.589471D+04\r\n0COLUMN     40      ROWS     28 THRU     52     --------------------------------------------------\r\n \r\n  -4.807692D+05  0.000000D+00  0.000000D+00  0.000000D+00 -2.730997D+03  0.000000D+00 -2.240819D+03  0.000000D+00  2.657470D+04\r\n   0.000000D+00  2.730997D+03  0.000000D+00  7.404449D+05  0.000000D+00  3.896922D+04  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.301249D+05\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMN     41      ROWS     27 THRU     53     --------------------------------------------------\r\n \r\n   1.566667D+05  0.000000D+00  1.253333D+06  0.000000D+00  2.730997D+03  0.000000D+00  6.554392D+03  0.000000D+00  6.153846D+04\r\n   0.000000D+00 -2.730997D+03  0.000000D+00 -1.273263D+05  0.000000D+00  3.829584D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.589471D+04  0.000000D+00  5.999202D+05\r\n0COLUMN     42      ROWS     26 THRU     54     --------------------------------------------------\r\n \r\n  -1.566667D+05  0.000000D+00  0.000000D+00  0.000000D+00  1.253333D+06  0.000000D+00 -6.554392D+03  0.000000D+00  2.657470D+04\r\n   0.000000D+00  5.046567D+04  0.000000D+00  1.273263D+05  0.000000D+00  3.896922D+04  0.000000D+00  3.813347D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.589471D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  5.999202D+05\r\n0COLUMN     43      ROWS     31 THRU     55     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087200D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.436000D+05\r\n0COLUMN     44      ROWS     32 THRU     60     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.609600D+04\r\n0COLUMN     45      ROWS     33 THRU     59     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887680D+03  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.443840D+03  0.000000D+00  3.609600D+04\r\n0COLUMN     46      ROWS     34 THRU     58     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615385D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.307692D+05\r\n0COLUMN     47      ROWS     33 THRU     59     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  6.016000D+05\r\n0COLUMN     48      ROWS     32 THRU     60     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.406400D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.016000D+05\r\n0COLUMN     49      ROWS     37 THRU     61     --------------------------------------------------\r\n \r\n  -5.420822D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.087208D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -5.451263D+05\r\n0COLUMN     50      ROWS     38 THRU     66     --------------------------------------------------\r\n \r\n  -1.431779D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887816D+03  0.000000D+00  0.000000D+00  0.000000D+00 -4.042798D+02  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.456036D+03  0.000000D+00  0.000000D+00\r\n   0.000000D+00 -3.629899D+04\r\n0COLUMN     51      ROWS     39 THRU     65     --------------------------------------------------\r\n \r\n  -1.431779D+03  0.000000D+00 -3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.887816D+03  0.000000D+00  4.042798D+02  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -1.456036D+03  0.000000D+00  3.629899D+04\r\n0COLUMN     52      ROWS     40 THRU     64     --------------------------------------------------\r\n \r\n  -2.301249D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.615421D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.314172D+05\r\n0COLUMN     53      ROWS     39 THRU     65     --------------------------------------------------\r\n \r\n   3.589471D+04  0.000000D+00  5.999202D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  4.042798D+02  0.000000D+00  2.406419D+06  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -3.629899D+04  0.000000D+00  6.032892D+05\r\n0COLUMN     54      ROWS     38 THRU     66     --------------------------------------------------\r\n \r\n  -3.589471D+04  0.000000D+00  0.000000D+00  0.000000D+00  5.999202D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -4.042798D+02  0.000000D+00  0.000000D+00  0.000000D+00  2.406419D+06  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00\r\n   0.000000D+00  6.032892D+05\r\n0COLUMN     55      ROWS     43 THRU     55     --------------------------------------------------\r\n \r\n  -5.436000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  5.436000D+05\r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0COLUMN     56      ROWS     44 THRU     60     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.443840D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04\r\n0COLUMN     57      ROWS     45 THRU     59     --------------------------------------------------\r\n \r\n  -1.443840D+03  0.000000D+00 -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.443840D+03  0.000000D+00 -3.609600D+04\r\n0COLUMN     58      ROWS     46 THRU     58     --------------------------------------------------\r\n \r\n  -2.307692D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.307692D+05\r\n0COLUMN     59      ROWS     45 THRU     59     --------------------------------------------------\r\n \r\n   3.609600D+04  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.609600D+04  0.000000D+00  1.203200D+06\r\n0COLUMN     60      ROWS     44 THRU     60     --------------------------------------------------\r\n \r\n  -3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.016000D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.609600D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.203200D+06\r\n0COLUMN     61      ROWS     49 THRU     61     --------------------------------------------------\r\n \r\n  -5.451263D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  5.451263D+05\r\n0COLUMN     62      ROWS     50 THRU     66     --------------------------------------------------\r\n \r\n  -1.456036D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.456036D+03  0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04\r\n0COLUMN     63      ROWS     51 THRU     65     --------------------------------------------------\r\n \r\n  -1.456036D+03  0.000000D+00 -3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  1.456036D+03  0.000000D+00 -3.629899D+04\r\n0COLUMN     64      ROWS     52 THRU     64     --------------------------------------------------\r\n \r\n  -2.314172D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  2.314172D+05\r\n0COLUMN     65      ROWS     51 THRU     65     --------------------------------------------------\r\n \r\n1     DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                      /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T01-23-1A                                                                                            \r\n0                                                                                                                                   \r\n0    MATRIX  OKGG        CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   3.629899D+04  0.000000D+00  6.032892D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -3.629899D+04  0.000000D+00  1.206578D+06\r\n0COLUMN     66      ROWS     50 THRU     66     --------------------------------------------------\r\n \r\n  -3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  6.032892D+05  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00  3.629899D+04  0.000000D+00  0.000000D+00  0.000000D+00  1.206578D+06\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =      24\r\n0THE DENSITY OF THIS MATRIX IS   8.76 PERCENT.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                   \r\n DATE:  5/17/95\r\n END TIME: 16:35:36\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01241a.out",
    "content": "     NASTRAN  TITLEOPT=-1, BANDIT=-1                                                 \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01241A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   1,0                                                                       \r\n     TIME  10                                                                        \r\n     ALTER 58                                                                        \r\n         TABPT   EPT,,,,  //      $                                                  \r\n         MATPRN  KGGX,,,, //      $                                                  \r\n         PARAML  EPT //*TABLE1*/1/6      /V,N,RSP    $                               \r\n         PARAML  EPT //*TABLE1*/1/4     //V,N,INT    $                               \r\n         PARAML  EPT //*TABLE2*/1/4     //V,N,INT2   $ INTENTIONAL ERROR             \r\n         PARAML  EPT //*TABLE2*/1/6    ///V,N,RDP    $                               \r\n         PARAML  EPT //*TABLE2*/1/6      /RSPX/INTX/V,N,RDPX  $                      \r\n         PARAML  EPT //*TABLE1*/1/1   ////V,N,BCD    $                               \r\n         PARAML  EPT //*TABLE2*/1/6  /////V,N,SCPLX  $                               \r\n         PARAML  EPT //*TABLE2*/1/6 //////V,N,DCPLX  $                               \r\n         PARAML  EPT //*TABLE4*/1/6 //////V,N,DCPLX4 $                               \r\n         PARAML  EPT //*TABLE2*/1/9      /V,N,LAST   $                               \r\n         PARAML  EPT //*TABLE1*/1/9      /V,N,LAST1  $                               \r\n         PARAML  KGGX//*MATRIX*/7/1      /V,N,R1     $                               \r\n         PARAML  KGGX//*MATRIX*/3/1     //V,N,I1     $                               \r\n         PARAML  KGGX//*MATRIX*/1/3    ///V,N,D1     $                               \r\n         PARAML  KGGX//*MATRIX*/1/3   ////V,N,B1     $                               \r\n         PARAML  KGGX//*MATRIX*/7/13 /////V,N,CS1    $                               \r\n         PARAML  KGGX//*MATRIX*/13/7//////V,N,CD1    $                               \r\n         PARAML  KGGX//*MATRIX*/13/19  ///V,N,D13    $                               \r\n         SCALAR  KGGX//         1/1      /V,N,SP1    $                               \r\n         SCALAR  KGGX//         1/3      /V,N,SP2    $                               \r\n         SCALAR  KGGX//         3/1      /V,N,SP3    $                               \r\n         SCALAR  KGGX//         7/13     /V,N,SP4    $                               \r\n         SCALAR  KGGX//        19/13    //V,N,DP4    $                               \r\n         SCALAR  KGGX//         7/13   ///V,N,CSP4   $                               \r\n         SCALAR  KGGX//        13/7   ////V,N,CDP4   $                               \r\n         PARAMR  //*ADD*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $                     \r\n         PARAMR  //*SUB*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $                     \r\n         PARAMR  //*ABS*     /V,N,ABSR1  /V,N,R1               $                     \r\n         PARAMR  //*ABS*     /V,N,ABSRX //V,N,R1     $ INTENTIONAL ERROR INPUT       \r\n         PARAMR  //*SQRT*    /V,N,SQTR1  /V,N,R1               $                     \r\n         PARAMR  //*SQRT*    /V,N,SQTR1  /V,N,ABSR1            $                     \r\n         PARAMR  //*MPYC* ////V,N,CMPY   /V,N,SCPLX /V,N,CS1   $                     \r\n         PARAMR  //*COMPLEX*//V,N,R1     /V,N,SP4   /V,N,OUTC  $                     \r\n         PARAMR  //*LE*     //V,N,R1     /V,N,SP4////V,N,LEFLG $                     \r\n         PARAMD  //*MPY*     /V,N,RDPDP  /V,N,RDPX  /V,N,RDPX  $                     \r\n         PARAMD  //*MPY*     /V,N,RDPDX //V,N,RDPX  /V,N,RDPY  $ ERROR INPUT         \r\n         PARAMD  //*DIV*     /V,N,DP4X   /V,N,DP4   /V,N,RDPX  $                     \r\n         PARAMD  //*EXP*     /V,N,EXPX   /V,N,DP4   /V,N,RDP   $                     \r\n         PARAMD  //*CONJ* ////V,N,CONJX  /V,N,CDP4             $                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n         PARAMD  //*DIVC* ////V,N,DIVCX  /V,N,DCPLX4/V,N,CDP4  $                     \r\n         PARAMD  //*EQ*     //V,N,EXPX   /V,N,DP4////V,N,EQFLG $                     \r\n         PRTPARM // 0   $                                                            \r\n         JUMP    FINIS  $                                                            \r\n     ENDALTER                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                          \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-24-1A                                   \r\n                  3          SPC  = 1                                                                    \r\n                  4          LOAD = 1                                                                    \r\n                  5          DISP = ALL                                                                  \r\n                  6      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    11, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CROD    60      5       1       2       61      5       2       3               \r\n                    2-        CROD    62      5       3       4                                               \r\n                    3-        FORCE   1       4       0       -1.     .0      .0      100.                    \r\n                    4-        GRDSET                                                  456                     \r\n                    5-        GRID    1               .0      .0      .0                                      \r\n                    6-        GRID    2               10.     .0      .0                                      \r\n                    7-        GRID    3               30.     .0      .0                                      \r\n                    8-        GRID    4               50.     .0      .0                                      \r\n                    9-        MAT1    6       1.04+7  4.+6                                                    \r\n                   10-        PROD    5       6       2.1                                                     \r\n                   11-        SPC1    1       123     1                                                       \r\n                              ENDDATA\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION ROD      ELEMENTS (ELEMENT TYPE   1) STARTING WITH ID       60\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0    TABLE   EPT                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE, TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P., D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY\r\n\r\n RECORD NO.     0\r\n          EPT                                                                                                                       \r\n\r\n RECORD NO.     1\r\n           902            9           29            5            6 2.100000E+00 0.000000E+00 0.000000E+00 0.000000E+00              \r\n\r\n RECORD NO.     2\r\n    2147483647   2147483647   2147483647                                                                                            \r\n\r\n RECORD NO.     3\r\n\r\n\r\n END OF FILE\r\n0TRAILER WORD1 =     128 WORD2 =       0 WORD3 =       0 WORD4 =       0 WORD5 =       0 WORD6 =       0\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0      MATRIX KGGX     (GINO NAME 101 ) IS A D.P.REAL     24 COLUMN X     24 ROW SYMMETRC MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      7     --------------------------------------------------\r\n \r\n   2.184000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00 -2.184000D+06\r\n0COLUMNS       2 THRU       6 ARE NULL.\r\n0COLUMN      7      ROWS      1 THRU     13     --------------------------------------------------\r\n \r\n  -2.184000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  3.276000D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.092000D+06\r\n0COLUMNS       8 THRU      12 ARE NULL.\r\n0COLUMN     13      ROWS      7 THRU     19     --------------------------------------------------\r\n \r\n  -1.092000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  2.184000D+06  0.000000D+00  0.000000D+00\r\n   0.000000D+00  0.000000D+00  0.000000D+00 -1.092000D+06\r\n0COLUMNS      14 THRU      18 ARE NULL.\r\n0COLUMN     19      ROWS     13 THRU     19     --------------------------------------------------\r\n \r\n  -1.092000D+06  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  0.000000D+00  1.092000D+06\r\n0COLUMNS      20 THRU      24 ARE NULL.\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       6\r\n0THE DENSITY OF THIS MATRIX IS   1.73 PERCENT.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORD     6             =\r\n+                                                                       0.20999999E+01   = RSP     \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORD     4             =\r\n+                                                                                    5   = INT     \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     4 AND     5  =\r\n+                                                                      (INVALID REQUEST) = INT2    \r\n0*** USER WARNING MESSAGE - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA WORDS.  OUPUT PARAMETER INT2     NOT SAVED\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                       0.20999999D+01   = RDP     \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                       0.20124998E+01   = RSPX    \r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                      (INVALID REQUEST) = INTX    \r\n0*** USER WARNING MESSAGE - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA WORDS.  OUPUT PARAMETER INTX     NOT SAVED\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                       0.20999999D+01   = RDPX    \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORD     1             =\r\n+                                                                      (INVALID REQUEST) = BCD     \r\n0*** USER WARNING MESSAGE - ILLEGAL OUTPUT REQUESTED. ORIG. DATA TYPE IS INTEGER,  PARAMETER BCD      NOT SAVED\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                      ( 0.20999999E+01, 0.00000000E+00)  = SCPLX   \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 AND     7  =\r\n+                                                                      ( 0.20999999D+01, 0.00000000D+00)  = DCPLX   \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE4   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     6 THRU    9  =\r\n+                                                                      ( 0.20999999D+01, 0.00000000D+00)  = DCPLX4  \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE2   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORDS     9 AND    10  =\r\n+                                                                      (INVALID REQUEST) = LAST    \r\n0*** USER WARNING MESSAGE - E-O-R ENCOUNTERED.  PARAMETER LAST     NOT SAVED\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE EPT      RECORD     1 WORD     9             =\r\n+                                                                       0.00000000E+00   = LAST1   \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (    7-ROW,    1-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      -0.21840000E+07   = R1      \r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (    3-ROW,    1-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      (INVALID INTEGER) = I1      \r\n0*** USER WARNING MESSAGE - OUTPUT PARAMETER I1       NOT SAVED\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (    1-ROW,    3-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                       0.00000000D+00   = D1      \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (    1-ROW,    3-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      (INVALID BCD WORD)= B1      \r\n0*** USER WARNING MESSAGE - OUTPUT PARAMETER B1       NOT SAVED\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (    7-ROW,   13-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      (-0.10920000E+07, 0.00000000E+00)  = CS1     \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (   13-ROW,    7-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      (-0.10920000D+07, 0.00000000D+00)  = CD1     \r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - MATRIX   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     ELEMENT (   13-ROW,   19-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n+                                                                      -0.10920000D+07   = D13     \r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                          0.21840000E+07  = SP1     \r\n+    ELEMENT (    1-ROW,    1-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                          0.00000000E+00  = SP2     \r\n+    ELEMENT (    1-ROW,    3-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                          0.00000000E+00  = SP3     \r\n+    ELEMENT (    3-ROW,    1-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                         -0.10920000E+07  = SP4     \r\n+    ELEMENT (    7-ROW,   13-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                         -0.10920000D+07  = DP4     \r\n+    ELEMENT (   19-ROW,   13-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                         (-0.10920000E+07, 0.00000000E+00)  = CSP4    \r\n+    ELEMENT (    7-ROW,   13-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n0*** USER INFORMATION MESSAGE FROM SCALAR MODULE -\r\n     (ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                                                                         (-0.10920000D+07, 0.00000000D+00)  = CDP4    \r\n+    ELEMENT (   13-ROW,    7-COL) OF D.P. REAL  INPUT FILE KGGX     =\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      SP4      = -0.109200E+07  (INPUT)\r\n                      R1SP4    = -0.327600E+07  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      SP4      = -0.109200E+07  (INPUT)\r\n                      R1SP4    = -0.109200E+07  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ABS     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      ABSR1    =  0.218400E+07  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ABS     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      ABSRX    =  0.000000E+00  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SQRT    \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n     ERROR - OPERATING ON A NEGATIVE NUMBER          \r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      SQTR1    =  0.000000E+00  (OUTPUT)\r\n0*** USER WARNING MESSAGE - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT VALUE REMAINS         \r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SQRT    \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      ABSR1    =  0.218400E+07  (INPUT)\r\n                      SQTR1    =  0.147784E+04  (OUTPUT)\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPYC    \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      SCPLX    = ( 0.210000E+01, 0.000000E+00)   (INPUT)\r\n                      CS1      = (-0.109200E+07, 0.000000E+00)   (INPUT)\r\n                      CMPY     = (-0.229320E+07, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      SP4      = -0.109200E+07  (INPUT)\r\n                      OUTC     = (-0.218400E+07,-0.109200E+07)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = LE      \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      R1       = -0.218400E+07  (INPUT)\r\n                      SP4      = -0.109200E+07  (INPUT)\r\n                      LEFLG    =        -1      (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = MPY     \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      RDPX     =  0.20999999D+01  (INPUT)\r\n                      RDPX     =  0.20999999D+01  (INPUT)\r\n                      RDPDP    =  0.44099996D+01  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = MPY     \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      3RD PARM =  0.00000000D+00  (INPUT)\r\n                      RDPX     =  0.20999999D+01  (INPUT)\r\n                      RDPDX    =  0.00000000D+00  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = DIV     \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      DP4      = -0.10920000D+07  (INPUT)\r\n                      RDPX     =  0.20999999D+01  (INPUT)\r\n                      DP4X     = -0.52000002D+06  (OUTPUT)\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = EXP     \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      DP4      = -0.10920000D+07  (INPUT)\r\n                      EXPX     =  0.00000000D+00  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = CONJ    \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      CDP4     = (-0.10920000D+07, 0.00000000D+00)   (INPUT)\r\n                      CONJX    = (-0.10920000D+07, 0.00000000D+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = DIVC    \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      DCPLX4   = ( 0.20999999D+01, 0.00000000D+00)   (INPUT)\r\n                      CDP4     = (-0.10920000D+07, 0.00000000D+00)   (INPUT)\r\n                      DIVCX    = (-0.19230768D-05, 0.00000000D+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMD MODULE - OP CODE = EQ      \r\n     (ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n                      EXPX     =  0.00000000D+00  (INPUT)\r\n                      DP4      = -0.10920000D+07  (INPUT)\r\n                      EQFLG    =           0      (OUTPUT)\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    INTERACT            0.000000E+00\r\n                    SYS21               0.000000E+00\r\n                    CARDNO              0.000000E+00\r\n                    LUSET                     24\r\n                    NOGPDT              0.000000E+00\r\n                    ALWAYS                    -1\r\n                    ISOP                       1\r\n                    LUSEP                     24\r\n                    JUMPPLOT                  -1\r\n                    NSIL                0.000000E+00\r\n                    PLTFLG                     1\r\n                    PFILE               0.000000E+00\r\n                    NOGRAV                    -1\r\n                    NEVER                      1\r\n                    NOMGG                     -1\r\n                    GRDPNT                    -1\r\n                    NOSIMP                     3\r\n                    NOGENL                    -1\r\n                    GENEL               0.000000E+00\r\n                    COMPS                      1\r\n                    NOELMT                     1\r\n                    PRINT                      1\r\n                    TSTART                     2\r\n                    COUNT                     -1\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    NOKGGX                     3\r\n                    NSKIP               0.000000E+00\r\n                    RSP                 2.100000E+00\r\n                    INT                        5\r\n                    INT2                0.000000E+00\r\n                    RDP                 2.0999999046325684D+00\r\n                    RSPX                2.012500E+00\r\n                    INTX                0.000000E+00\r\n                    RDPX                2.0999999046325684D+00\r\n                    BCD               (VOID)  \r\n                    SCPLX             (  2.100000E+00  0.000000E+00)\r\n                    DCPLX             (  2.0999999046325684D+00  0.0000000000000000D+00)\r\n                    DCPLX4            (  2.0999999046325684D+00  0.0000000000000000D+00)\r\n                    LAST                0.000000E+00\r\n                    LAST1               0.000000E+00\r\n                    R1                 -2.184000E+06\r\n                    I1                  0.000000E+00\r\n                    D1                (  0.000000E+00  0.000000E+00)\r\n                    B1                (VOID)  \r\n                    CS1               ( -1.092000E+06  0.000000E+00)\r\n                    CD1               ( -1.0920000000000000D+06  0.0000000000000000D+00)\r\n                    D13               ( -1.104141E+01  0.000000E+00)\r\n                    SP1                 2.184000E+06\r\n                    SP2                 0.000000E+00\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    SP3                 0.000000E+00\r\n                    SP4                -1.092000E+06\r\n                    DP4               ( -1.104141E+01  0.000000E+00)\r\n                    CSP4              ( -1.092000E+06  0.000000E+00)\r\n                    CDP4              ( -1.0920000000000000D+06  0.0000000000000000D+00)\r\n                    R1SP4              -1.092000E+06\r\n                    ABSR1               2.184000E+06\r\n                    ABSRX               0.000000E+00\r\n                    SQTR1               1.477836E+03\r\n                    CMPY              ( -2.293200E+06  0.000000E+00)\r\n                    OUTC               -3.8913930285289718D+48\r\n                    LEFLG                     -1\r\n                    RDPDP             (  2.275625E+00 -6.813627E+28)\r\n                    RDPDX             (  0.000000E+00  0.000000E+00)\r\n                    RDPY              (  0.0000000000000000D+00  0.0000000000000000D+00)\r\n                    DP4X              ( -9.983643E+00  2.255056E-24)\r\n                    EXPX              (  0.000000E+00  0.000000E+00)\r\n                    CONJX             ( -1.0920000000000000D+06  0.0000000000000000D+00)\r\n                    DIVCX             ( -1.9230768357441102D-06  0.0000000000000000D+00)\r\n                    EQFLG               0.000000E+00\r\n                    MPCF1               0.000000E+00\r\n                    MPCF2               0.000000E+00\r\n                    SINGLE                     1\r\n                    OMIT                0.000000E+00\r\n1     TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-24-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    REACT                      1\r\n                    REPEAT                     1\r\n                    NOSET               0.000000E+00\r\n                    NOL                        1\r\n                    NOA                       -1\r\n                    NOSR                       1\r\n                    IRES                      -1\r\n                    EPSI                       1\r\n                    TEST                       1\r\n                    OPT                 0.000000E+00\r\n                    GRDEQ                     -1\r\n                    NOSORT2                    1\r\n                    STRNFLG                   -1\r\n                    STRESS                    -1\r\n                    NINTPTS             0.000000E+00\r\n                    STRAIN                    -1\r\n                    PRTSORT2                   1\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                        \r\n DATE:  5/17/95\r\n END TIME: 16:36:10\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01251a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01251A,NASTRAN                                                           \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  30                                                                        \r\n     DIAG  48                                                                        \r\n     CEND                                                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n                                                                                                         \r\n                                                                                                         \r\n                                        DIAG 48 -      NASTRAN RELEASE NEWS                              \r\n                                        ===================================                              \r\n                                                                                                         \r\n                                                                                                         \r\n                         NASTRAN RELEASE NEWS -                                                          \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                                                                                                         \r\n                         95 RELEASE                                                                      \r\n                         ----------                                                                      \r\n                         NEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD        \r\n                         SUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD.  IN            \r\n                         ADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER           \r\n                         EIGENVALUE ANALYSIS.                                                            \r\n                                                                                                         \r\n                         THE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES:                      \r\n                                                                                                         \r\n                                 DIAG                       DESCRIPTION                                  \r\n                                                                                                         \r\n                                 45              PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION      \r\n                                                 METHOD                                                  \r\n                                 47              PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD             \r\n                                                 SUBSTITUTION METHOD                                     \r\n                                                                                                         \r\n                         DIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW        \r\n                         MATRIX MULTIPLY/ADD METHODS.                                                    \r\n                                                                                                         \r\n                         IN ADDITION, THE \"SYSTEM(58)=\" PARAMETER ON THE \"NASTRAN\" CARD MAY BE           \r\n                         USED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD.  THE OLD METHODS       \r\n                         ARE 1, 2 AND 3 (TRANSPOSE ONLY).  THE NEW METHODS ARE 10, 11, 20, 21, 30,       \r\n                         31, 32, 40 AND 41.  A METHOD IS SELECTED BASED ON THE DENSITY OF THE            \r\n                         MATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX         \r\n                         UNLESS \"SYSTEM(58)\" IS USED.                                                    \r\n                                                                                                         \r\n                         THE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW:                     \r\n                                                                                                         \r\n                            ------------------------------------------------------------------------     \r\n                            METHOD     METHOD OF READING MATRIX    MULTIPLE COLUMNS OF MATRIX STORED     \r\n                                          A        B       C           A         B        D              \r\n                            ------------------------------------------------------------------------     \r\n                            OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED)                            \r\n                              1         INTPK   UNPACK   UNPACK       NO         YES      YES            \r\n                              2T        GETSTR  UNPACK   INTPK        YES        NO       NO             \r\n                              2NT       GETSTR  INTPK    INTPK        YES        NO       NO             \r\n                              3T        UNPACK  GETSTR   INTPK        YES        NO       NO             \r\n                            NEW METHODS                                                                  \r\n                              10        UNPACK  UNPACK   UNPACK       YES        NO       NO             \r\n                              11        UNPACK  GETSTR   UNPACK       YES        NO       NO             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                              20        UNPACK  UNPACK   UNPACK       NO         YES      YES            \r\n                              21        GETSTR  UNPACK   UNPACK       NO         YES      YES            \r\n                              30        GETSTR  UNPACK   UNPACK       YES        NO       NO             \r\n                              31        GETSTR  GETSTR   UNPACK       YES        NO       NO             \r\n                              32        GETSTR  GETSTR   GETSTR       YES        NO       NO             \r\n                              40        UNPACK  GETSTR   UNPACK       NO         YES      YES            \r\n                              41        GETSTR  GETSTR   UNPACK       NO         YES      YES            \r\n                            ------------------------------------------------------------------------     \r\n                                                                                                         \r\n                         AS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES,          \r\n                         USE THE FOLLOWING \"NASTRAN\" CARD:                                               \r\n                                                                                                         \r\n                                         NASTRAN SYSTEM(58)=10                                           \r\n                                                                                                         \r\n                         THE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS:      \r\n                                                                                                         \r\n                                 DIAG                       DESCRIPTION                                  \r\n                                                                                                         \r\n                                 42              OLD FEER METHOD WITHOUT USING IN-MEMORY WORKING         \r\n                                                 MATRICES FOR FINDING SOLUTION                           \r\n                                 43              OLD FEER METHOD WITHOUT USING IN-MEMORY ORTHOGONAL      \r\n                                                 VECTORS                                                 \r\n                                 44              OLD SYMMETRIC DECOMPOSITION METHOD                      \r\n                                 46              OLD FORWARD/BACKWARD SUBSTITUTION METHOD                \r\n                                 49              OLD MATRIX MULTIPLY/ADD METHOD                          \r\n                                                                                                         \r\n                                                                                                         \r\n                         THE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE.       \r\n                         DETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN         \r\n                         MAINTENANCE CONTRACTOR.                                                         \r\n                                                                                                         \r\n                         SPR NO.    MODULE                     DESCRIPTION                               \r\n                         -------    ------    ------------------------------------------------------     \r\n                         93-026     GPTSG     MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT           \r\n                                              PLATFORMS.                                                 \r\n                         93-033     ANISOP    MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR \"MAT6\"       \r\n                                              CARD.                                                      \r\n                         94-001     SDR2      PROVIDE FOR SORT-2 STRESS OUTPUT FOR \"TRAPRG\" ELEMENT.     \r\n                         94-002     EMG       DAMPING COEFFICIENT ON \"MAT1\" CARD WAS BEING IGNORED       \r\n                                              FOR THE \"TRAPRG\" ELEMENT.                                  \r\n                         94-003     TRD       ALLOW FOR TRANSIENT APPEND FEATURE.                        \r\n                         94-004     SDR2      ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR     \r\n                                              THE \"QUAD4\" ELEMENT.                                       \r\n                         94-005     DPD       CORRECT A PROBLEM RELATING TO REFERENCING A                \r\n                                              NON-EXISTING GRID POINT WITH THE \"NOLIN1\" CARD.            \r\n                         94-006     PLOT      CORRECT A PROBLEM USING \"CELAS2\" ELEMENTS IN PLOT          \r\n                                              REQUESTS WHEN USING RIGID FORMAT 12.                       \r\n                         94-007     SDR2      CORRECT PROBLEMS RELATING TO THE PROCESSING OF \"E\"         \r\n                                              POINTS.  ERROR AFFECTED THE CALCULATION OF ELEMENT         \r\n                                              FORCE AND STRESS DATA.                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                         94-008     MPYAD     COSMETIC CHANGE FOR OUTPUT OF DIAG 19.                     \r\n                         94-009     NSINFO    USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN    \r\n                                              TIME CONSTANTS ARE SUPPLIED IN THE \"NASINFO\" FILE TO       \r\n                                              NASTRAN.                                                   \r\n                         94-010     MPYAD     WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE.     \r\n                                              MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES     \r\n                                              REQUIRED.                                                  \r\n                         94-011     DECOMP    SUBROUTINE \"DETFBS\" DID NOT PERFORM THE CORRECT            \r\n                                              FORWARD/BACKWARD SUBSTITUTION WHEN \"DECOMP\" DECOMPOSED     \r\n                                              AN UNSYMMETRIX MATRIX WITH THE PARAMETER \"CBAR\" NON-ZERO.  \r\n                         94-012     DBMMGR    INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE       \r\n                                              IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS        \r\n                                              ISSUED.                                                    \r\n                         94-013     DBMMGR    CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT     \r\n                                              RESULTED IN ERROR MESSAGE 2026 IN MODULE \"SSG1\".           \r\n                         94-015     MCE2      PROBLEM WITH USING THE \"RFORCE\" CARD.                      \r\n                         94-016     OUTPT2    UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER       \r\n                                              THAN 1028.                                                 \r\n                         94-017     SDR2      UNABLE TO GET STRAIN OUTPUT FOR THE \"QUAD4\" ELEMENT        \r\n                                              WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT.         \r\n                         94-018     CDCOMP    FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A            \r\n                                              SINGULAR MATRIX.                                           \r\n                                                                                                         \r\n                         IN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED:              \r\n                                                                                                         \r\n                         NCL NO.    MODULE                     DESCRIPTION                               \r\n                         -------    ------    ------------------------------------------------------     \r\n                         93-002     FBS       OPTIMIZE THE SYMMETRIX FORWARD/BACKWARD SUBSTITUTION       \r\n                                              METHOD.                                                    \r\n                         93-003     SDCOMP    OPTIMIZE THE SYMMETRIX DECOMPOSITION METHOD.               \r\n                         93-004     MPYAD     OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS.                  \r\n                         93-007     FEER      OPTIMIZE THE FEER EIGENVALUE METHOD.                       \r\n                                                                                                         \r\n                                                                                                         \r\n                         AN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS.  THE IN-MEMORY           \r\n                         DATA BASE ELIMINATES I/O TO DISK.  LOGIC EXISTS TO AUTOMATICALLY WRITE          \r\n                         FILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED.  THE COMMON     \r\n                         /ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY           \r\n                         DATA BASE.  THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F            \r\n                         (SEE ARRAY \"IZ\" AND VARIABLE \"LENOPC\").   ALL REMAINING SPACE AFTER             \r\n                         ALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE.  THE USER             \r\n                         CONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU.  THE             \r\n                         USER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE            \r\n                         IN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU.                \r\n                         USERS ARE ENCOURAGED TO RECOMPILE \"NASTRN.F\" WITH A LARGER ALLOCATION           \r\n                         FOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION.      \r\n                         A LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE          \r\n                         IN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN           \r\n                         THE IN-MEMORY DATA BASE.  USERS SHOULD ALWAYS ALLOCATE SUFFICIENT               \r\n                         OPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    D I A G   4 8                                                                                             \r\n\r\n\r\n\r\n                         3023).  IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE.  HOWEVER,             \r\n                         THERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY           \r\n                         DATA BASE.                                                                      \r\n                                                                                                         \r\n                         AT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN         \r\n                         SHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT          \r\n                         OF DISK I/O FOR THE NASTRAN EXECUTION.                                          \r\n                                                                                                         \r\n                         THE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES.  THE       \r\n                         FILES ARE IN ASCII, 80 COLUMN FORMAT.  THE USER CAN EXAMINE THESE FILES WITH    \r\n                         A SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED  \r\n                         WITH THIS NASTRAN RELEASE.  THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR   \r\n                         PRINT A PORTION OF THE FILE QUICKLY.  THE ENTIRE MANUAL IS STORED IN THE        \r\n                         FOLLOWING FILES:                                                                \r\n                                                                                                         \r\n                             EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS                               \r\n                             CASE.TXT - THE CASE CONTROL SECTIONS                                        \r\n                             BULK.TXT - INPUT BULK DATA SECTIONS                                         \r\n                             MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES                 \r\n                             PLOT.TXT - NASTRAN PLOTTING                                                 \r\n                             SUBS.TXT - SUBSTRUCTURING SECTIONS                                          \r\n                             INTR.TXT - INTRODUCTION AND GENERAL INFORMATION                             \r\n                             UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT                  \r\n                             DMAP.TXT - NASTRAN DMAPS                                                    \r\n                             DICT.TXT - NASTRAN DICTIONARY                                               \r\n                             RFMT.TXT - NASTRAN RIGID FORMATS                                            \r\n                                                                                                         \r\n                         A UTILITY PROGRAM, \"NASTHELP\", IS PROVIDED TO ALLOW FOR EASY ACCESS TO          \r\n                         THE ABOVE TEXT FILES.  NASTHELP IS USER FRIENDLY AND REQUIRES NO                \r\n                         WRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND                    \r\n                         THE .TXT FILES MUST BE IN THE SAME DIRECTORY.                                   \r\n                                                                                                         \r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                       \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-25-1A                                   \r\n                  3      $                                                                               \r\n                  4      $   MODEL: A SQUARE PLATE OF A 4X4 MESH WITH THREE CORNERS                      \r\n                  5      $          PINNED AND A TRANSVERSE POINT LOAD AT THE FREE                       \r\n                  6      $          CORNER TO SIMULATE A PURE TWIST LOADING.  THE                        \r\n                  7      $          LAMINATE LAYUP IS OF A CROSS-PLY CONFIGURATION                       \r\n                  8      $          [0/90/0].                                                            \r\n                  9      $                                                                               \r\n                 10      $       * * T3 DEFLECTION AT GRID 1 * *                                         \r\n                 11      $                                                                               \r\n                 12      $              THEORETICAL                                                      \r\n                 13      $        -----------------------------------------------                        \r\n                 14      $              -3.750E-2                                                        \r\n                 15      $                                                                               \r\n                 16      $                                                                               \r\n                 17      $       * * TAU FOR ELEMENT 1, ALL LAYERS * *                                   \r\n                 18      $                                                                               \r\n                 19      $              THEORETICAL                                                      \r\n                 20      $        -----------------------------------------------                        \r\n                 21      $       PLY 1  -5.0E1                                                           \r\n                 22      $       PLY 2   0.0                                                             \r\n                 23      $       PLY 3   5.0E1                                                           \r\n                 24      $                                                                               \r\n                 25      $                                                                               \r\n                 26      $                                                                               \r\n                 27      $   REFERENCES:  JONES R. M., MECHANICS OF COMPOSITE MATERIALS.                 \r\n                 28      $               M GRAW-HILL BOOK COMPANY.  (PAGE 181)                           \r\n                 29      $                                                                               \r\n                 30      $                                                                               \r\n                 31      $                                                                               \r\n                 32      SPC   = 1                                                                       \r\n                 33      SUBCASE 1                                                                       \r\n                 34      LABEL = LAYER STRESS REQUEST                                                    \r\n                 35      DISP  = ALL                                                                     \r\n                 36      STRESS(LAYER) = ALL                                                             \r\n                 37      FORCE = ALL                                                                     \r\n                 38      LOAD  = 1                                                                       \r\n                 39      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    20, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD4  1       3       1       2       5       4                               \r\n                    2-        CQUAD4  2       3       2       3       6       5                               \r\n                    3-        CQUAD4  3       3       4       5       8       7                               \r\n                    4-        CQUAD4  4       3       5       6       9       8                               \r\n                    5-        FORCE   1       1               1.0     0.0     0.0     -1.0                    \r\n                    6-        GRID    1               0.0     0.0                                             \r\n                    7-        GRID    2               2.5     0.0                                             \r\n                    8-        GRID    3               5.0     0.0                                             \r\n                    9-        GRID    4               0.0     2.5                                             \r\n                   10-        GRID    5               2.5     2.5                                             \r\n                   11-        GRID    6               5.0     2.5                                             \r\n                   12-        GRID    7               0.0     5.0                                             \r\n                   13-        GRID    8               2.5     5.0                                             \r\n                   14-        GRID    9               5.0     5.0                                             \r\n                   15-        MAT8    3       2.0  E+75.0  E+5.25     25.0E+04                        +MAT8   \r\n                   16-        +MAT8                           1.6 E+051.2 E+042.0 E+053.0 E+041.5 E+04        \r\n                   17-        PCOMP1  3                       1.2 E+04HILL    3       .0666666        +PCOMP1 \r\n                   18-        +PCOMP1 0.0     90.0    0.0                                                     \r\n                   19-        SPC1    1       6       1       2       4       5       6       8               \r\n                   20-        SPC1    1       1236    3       7       9                                       \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   5.8260119E-13\r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n0     LAYER STRESS REQUEST                                                                                   SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      4.271714E-20  -8.437079E-20  -3.756645E-02   7.512521E-03  -7.500790E-03   0.0                           \r\n             2      G      3.481981E-20  -1.662561E-19  -1.878408E-02   3.756645E-03  -7.500790E-03   0.0                           \r\n             3      G      0.0            0.0            0.0            7.686622E-07  -7.500790E-03   0.0                           \r\n             4      G      1.302344E-19  -6.966333E-20  -1.878403E-02   7.512521E-03  -3.756645E-03   0.0                           \r\n             5      G      1.309938E-19  -1.656408E-19  -9.393273E-03   3.756645E-03  -3.756645E-03   0.0                           \r\n             6      G      1.411491E-19  -1.481973E-20  -8.019110E-07   7.686622E-07  -3.756645E-03   0.0                           \r\n             7      G      0.0            0.0            0.0            7.512521E-03  -1.249936E-05   0.0                           \r\n             8      G      4.744560E-21  -1.864604E-19  -8.592691E-07   3.756645E-03  -1.249936E-05   0.0                           \r\n             9      G      0.0            0.0            0.0            7.686622E-07  -1.249936E-05   0.0                           \r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n0     LAYER STRESS REQUEST                                                                                   SUBCASE 1              \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           1        -5.68434E-15   9.09494E-14   0.00000E+00  -1.05184E-08  -1.02846E-07  -5.00000E-01   2.48649E-02   7.33309E-03\r\n0           2        -1.20792E-14   0.00000E+00   0.00000E+00  -1.34433E-09  -1.31445E-08  -5.00000E-01   2.74109E-02  -4.87559E-02\r\n0           3         0.00000E+00   0.00000E+00   0.00000E+00  -1.05184E-08  -1.02846E-07  -5.00000E-01  -2.74106E-02   4.87720E-02\r\n0           4         2.13163E-15  -6.82120E-14   0.00000E+00  -1.34433E-09  -1.31445E-08  -5.00000E-01  -2.48675E-02  -7.34994E-03\r\n1     LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                        /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-25-1A                                                                                            \r\n0     LAYER STRESS REQUEST                                                                                   SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       1     1  -3.44993E-07  -1.37997E-06  -5.00001E+01       0.000       1.71976E-01   1.99994E-02     0.000    \r\n              2  -1.26621E-11   2.38190E-13  -3.63798E-06       0.000       1.71976E-01   1.99994E-02     0.000    \r\n              3   3.44993E-07   1.37997E-06   5.00001E+01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               0.000    \r\n0       2     1  -1.86175E-07  -7.44698E-07  -5.00001E+01       0.000       1.89586E-01  -1.32971E-01     0.000    \r\n              2  -1.26626E-11   2.36435E-13  -3.63798E-06       0.000       1.89586E-01  -1.32971E-01     0.000    \r\n              3   1.86174E-07   7.44698E-07   5.00001E+01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               0.000    \r\n0       3     1  -3.44976E-07  -1.37990E-06  -5.00001E+01       0.000      -1.89584E-01   1.33015E-01     0.000    \r\n              2  -1.26618E-11   2.39456E-13  -3.63798E-06       0.000      -1.89584E-01   1.33015E-01     0.000    \r\n              3   3.44976E-07   1.37990E-06   5.00001E+01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               0.000    \r\n0       4     1  -1.86157E-07  -7.44629E-07  -5.00001E+01       0.000      -1.71994E-01  -2.00453E-02     0.000    \r\n              2  -1.70054E-11   2.12299E-13  -3.63798E-06       0.000      -1.71994E-01  -2.00453E-02     0.000    \r\n              3   1.86157E-07   7.44629E-07   5.00001E+01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               0.000    \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                     \r\n DATE:  5/17/95\r\n END TIME: 16:36:39\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01261a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01261A,NASTRAN                                                           \r\n     DIAG  40                                                                        \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-26-1A                                                                                            \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                           \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-26-1A                                   \r\n                  3      LABEL    = MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                  \r\n                  4      $                                                                               \r\n                  5      $    MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE                    \r\n                  6      $           OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0].                    \r\n                  7      $           UNDER A UNIFORM PRESSURE LOADING.                                   \r\n                  8      $                                                                               \r\n                  9      $       * * T3 DEFLECTION AT GRID 25 * *                                        \r\n                 10      $                                                                               \r\n                 11      $           THEORETICAL                                                         \r\n                 12      $        ----------------------------------------------                         \r\n                 13      $           -1.836E-3                                                           \r\n                 14      $                                                                               \r\n                 15      $                                                                               \r\n                 16      $                                                                               \r\n                 17      $   REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS.                   \r\n                 18      $              M GRAW-HILL BOOK COMPANY.  (PAGE 248-250)                        \r\n                 19      $                                                                               \r\n                 20      $                                                                               \r\n                 21      SET 1 = 2,7,12,17                                                               \r\n                 22      DISP  = ALL                                                                     \r\n                 23      STRESS(LAYER) = 1                                                               \r\n                 24      FORCE = 1                                                                       \r\n                 25      SUBCASE 1                                                                       \r\n                 26          SUBTITLE = SIMPLE SUPPORTS, UNIFORM LOAD                                    \r\n                 27          SPC  = 1                                                                    \r\n                 28          LOAD = 1                                                                    \r\n                 29      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    53, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-26-1A                                                                                            \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                           \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD4  2       1       1       6       7       2                               \r\n                    2-        CQUAD4  3       1       6       11      12      7                               \r\n                    3-        CQUAD4  4       1       11      16      17      12                              \r\n                    4-        CQUAD4  5       1       16      21      22      17                              \r\n                    5-        CQUAD4  6       1       2       7       8       3                               \r\n                    6-        CQUAD4  7       1       7       12      13      8                               \r\n                    7-        CQUAD4  8       1       12      17      18      13                              \r\n                    8-        CQUAD4  9       1       17      22      23      18                              \r\n                    9-        CQUAD4  10      1       3       8       9       4                               \r\n                   10-        CQUAD4  11      1       8       13      14      9                               \r\n                   11-        CQUAD4  12      1       13      18      19      14                              \r\n                   12-        CQUAD4  13      1       18      23      24      19                              \r\n                   13-        CQUAD4  14      1       4       9       10      5                               \r\n                   14-        CQUAD4  15      1       9       14      15      10                              \r\n                   15-        CQUAD4  16      1       14      19      20      15                              \r\n                   16-        CQUAD4  17      1       19      24      25      20                              \r\n                   17-        GRID    1               0.000   0.000   0.000                                   \r\n                   18-        GRID    2               0.000   .250    0.000                                   \r\n                   19-        GRID    3               0.000   .500    0.000                                   \r\n                   20-        GRID    4               0.000   .750    0.000                                   \r\n                   21-        GRID    5               0.000   1.000   0.000                                   \r\n                   22-        GRID    6               .250    0.000   0.000                                   \r\n                   23-        GRID    7               .250    .250    0.000                                   \r\n                   24-        GRID    8               .250    .500    0.000                                   \r\n                   25-        GRID    9               .250    .750    0.000                                   \r\n                   26-        GRID    10              .250    1.000   0.000                                   \r\n                   27-        GRID    11              .500    0.000   0.000                                   \r\n                   28-        GRID    12              .500    .250    0.000                                   \r\n                   29-        GRID    13              .500    .500    0.000                                   \r\n                   30-        GRID    14              .500    .750    0.000                                   \r\n                   31-        GRID    15              .500    1.000   0.000                                   \r\n                   32-        GRID    16              .750    0.000   0.000                                   \r\n                   33-        GRID    17              .750    .250    0.000                                   \r\n                   34-        GRID    18              .750    .500    0.000                                   \r\n                   35-        GRID    19              .750    .750    0.000                                   \r\n                   36-        GRID    20              .750    1.000   0.000                                   \r\n                   37-        GRID    21              1.000   0.000   0.000                                   \r\n                   38-        GRID    22              1.000   .250    0.000                                   \r\n                   39-        GRID    23              1.000   .500    0.000                                   \r\n                   40-        GRID    24              1.000   .750    0.000                                   \r\n                   41-        GRID    25              1.000   1.000   0.000                                   \r\n                   42-        MAT8    1       20.0E+06.50  E+6.25     .250 E+6                                \r\n                   43-        PARAM   AUTOSPC 1                                                               \r\n                   44-        PCOMP   1       -.001                                                   +PC1    \r\n                   45-        +PC1    1       .000666 0.0     YES     1       .000666 90.0    YES     +PC2    \r\n                   46-        +PC2    1       .000666 0.0     YES                                             \r\n                   47-        PLOAD4  1       2       -1.0E-04                        THRU    17              \r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-26-1A                                                                                            \r\n\r\n      MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                           \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPC1    1       15      22      23      24                                      \r\n                   49-        SPC1    1       24      10      15      20                                      \r\n                   50-        SPC1    1       1234    2       3       4       5                               \r\n                   51-        SPC1    1       1235    6       11      16      21                              \r\n                   52-        SPC1    1       1245    25                                                      \r\n                   53-        SPC1    1       12345   1                                                       \r\n                              ENDDATA\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-26-1A                                                                                            \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                           \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            145\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    5.800\r\n                                        RMS WAVEFRONT    6.043\r\n                                        RMS BANDWIDTH    6.148\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            145\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    5.800\r\n                                        RMS WAVEFRONT    6.070\r\n                                        RMS BANDWIDTH    6.478\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        7         7\r\n                                        PROFILE (P)                        145       145\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         7\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.800     5.800\r\n                                        RMS WAVEFRONT (C-RMS)            6.043     6.043\r\n                                        RMS BANDWITCH (B-RMS)            6.148     6.148\r\n                                        NUMBER OF GRID POINTS (N)                     25\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        72\r\n                                        MATRIX DENSITY, PERCENT                   27.040\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n\r\n\r\n         THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES.\r\n\r\n\r\n PSHELL             1   100000001  1.9980E-03   200000001  1.0000E+00   300000001  1.0000E+00  0.0000E+00\r\n          -9.9900E-04  9.9900E-04   400000001         0.0         0.0  0.0000E+00\r\n\r\n MAT2       100000001  1.3521E+07  1.2520E+05  0.0000E+00  7.0110E+06  0.0000E+00  2.5000E+05  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       200000001  1.9308E+07  1.2520E+05  0.0000E+00  1.2241E+06  0.0000E+00  2.5000E+05  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       300000001  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       400000001  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE\r\n     APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-26-1A                                                                                            \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                           \r\n\r\n\r\n                                A U T O M A T I C A L L Y   G E N E R A T E D   S P C 1   C A R D S\r\n                CARD \r\n                COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++\r\n\r\n                   1-        SPC1           1       6       1       2       3       4       5       6\r\n                   2-        SPC1           1       6       7       8       9      10      11      12\r\n                   3-        SPC1           1       6      13      14      15      16      17      18\r\n                   4-        SPC1           1       6      19      20      21      22      23      24\r\n                   5-        SPC1           1       6      25\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.0122815E-12\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      SIMPLE SUPPORTS, UNIFORM LOAD                                                                                                 \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                    SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            1.262711E-03   0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            2.158530E-03   0.0                           \r\n             4      G      0.0            0.0            0.0            0.0            2.634356E-03   0.0                           \r\n             5      G      0.0            0.0            0.0            0.0            2.778547E-03   0.0                           \r\n             6      G      0.0            0.0            0.0           -1.392570E-03   0.0            0.0                           \r\n             7      G     -4.469569E-23   1.195123E-23  -3.171683E-04  -1.144243E-03   1.147424E-03   0.0                           \r\n             8      G     -7.758552E-23   1.350141E-23  -5.450347E-04  -6.806349E-04   1.974323E-03   0.0                           \r\n             9      G     -9.484205E-23   8.311058E-24  -6.673746E-04  -3.013071E-04   2.415793E-03   0.0                           \r\n            10      G     -9.999072E-23   0.0           -7.045808E-04   0.0            2.548728E-03   0.0                           \r\n            11      G      0.0            0.0            0.0           -2.524514E-03   0.0            0.0                           \r\n            12      G     -5.273265E-23   2.589130E-23  -5.776741E-04  -2.095490E-03   8.496172E-04   0.0                           \r\n            13      G     -9.190890E-23   2.913814E-23  -9.967480E-04  -1.259430E-03   1.479917E-03   0.0                           \r\n            14      G     -1.125496E-22   1.786515E-23  -1.222715E-03  -5.524652E-04   1.821150E-03   0.0                           \r\n            15      G     -1.186819E-22   0.0           -1.291190E-03   0.0            1.922708E-03   0.0                           \r\n            16      G      0.0            0.0            0.0           -3.250013E-03   0.0            0.0                           \r\n            17      G     -3.355534E-23   3.448619E-23  -7.463068E-04  -2.718339E-03   4.485454E-04   0.0                           \r\n            18      G     -5.863987E-23   3.894970E-23  -1.292017E-03  -1.649412E-03   7.875820E-04   0.0                           \r\n            19      G     -7.190301E-23   2.392138E-23  -1.587553E-03  -7.189288E-04   9.739256E-04   0.0                           \r\n            20      G     -7.583031E-23   0.0           -1.676857E-03   0.0            1.029066E-03   0.0                           \r\n            21      G      0.0            0.0            0.0           -3.499354E-03   0.0            0.0                           \r\n            22      G      0.0            3.755175E-23  -8.045167E-04  -2.934397E-03   0.0            0.0                           \r\n            23      G      0.0            4.242933E-23  -1.394497E-03  -1.787323E-03   0.0            0.0                           \r\n            24      G      0.0            2.606165E-23  -1.714601E-03  -7.773828E-04   0.0            0.0                           \r\n            25      G      0.0            0.0           -1.811241E-03   0.0            0.0            0.0                           \r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      SIMPLE SUPPORTS, UNIFORM LOAD                                                                                                 \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                    SUBCASE 1              \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           2        -2.97725E-11   0.00000E+00   0.00000E+00   3.00037E-06   4.23287E-07  -1.64404E-06  -1.33411E-05  -2.40974E-06\r\n0           7        -1.90544E-09  -5.95450E-11   0.00000E+00   2.05499E-05   2.24678E-06  -9.92763E-07  -2.57885E-05   5.04416E-06\r\n0          12        -1.90544E-09   0.00000E+00   0.00000E+00   3.97880E-05   2.92082E-06  -3.60258E-07  -2.27885E-05   1.25677E-05\r\n0          17        -1.90544E-09  -1.19090E-10   0.00000E+00   5.16594E-05   2.76828E-06  -3.77513E-08  -9.17540E-06   1.50271E-05\r\n1     COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      SIMPLE SUPPORTS, UNIFORM LOAD                                                                                                 \r\n0     MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                    SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       2     1   3.11746E+00   1.84870E-01  -1.64733E+00       0.000      -9.23650E-03  -6.57860E-04     0.000    \r\n              2  -3.95686E-13   7.46578E-15  -1.13687E-07       0.000      -9.23650E-03  -6.57861E-04     0.000    \r\n              3  -3.11746E+00  -1.84870E-01   1.64733E+00       0.000      -1.98591E-09  -1.32604E-09     0.000    \r\n                                                                                                                          0.000\r\n0       7     1   2.13543E+01   9.99044E-01  -9.94751E-01       0.000      -1.78543E-02   1.37706E-03     0.000    \r\n              2   2.27018E-06  -1.42331E-08   5.68434E-08       0.000      -1.78543E-02   1.37706E-03     0.000    \r\n              3  -2.13543E+01  -9.99044E-01   9.94751E-01       0.000      -3.83878E-09   2.77572E-09     0.000    \r\n                                                                                                                          0.000\r\n0      12     1   4.13511E+01   1.34898E+00  -3.60980E-01       0.000      -1.57773E-02   3.43099E-03     0.000    \r\n              2  -1.42330E-08  -5.69324E-08   2.84217E-08       0.000      -1.57773E-02   3.43099E-03     0.000    \r\n              3  -4.13511E+01  -1.34898E+00   3.60980E-01       0.000      -3.39222E-09   6.91579E-09     0.000    \r\n                                                                                                                          0.000\r\n0      17     1   5.36927E+01   1.33212E+00  -3.78269E-02       0.000      -6.35245E-03   4.10241E-03     0.000    \r\n              2  -2.30576E-06  -1.28098E-07   1.77635E-09       0.000      -6.35245E-03   4.10242E-03     0.000    \r\n              3  -5.36927E+01  -1.33212E+00   3.78269E-02       0.000      -1.36582E-09   8.26917E-09     0.000    \r\n                                                                                                                          0.000\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                            \r\n DATE:  5/17/95\r\n END TIME: 16:37:14\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01271a.out",
    "content": "     NASTRAN FILES=PLT2                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01271A,NASTRAN                                                           \r\n     DIAG  40                                                                        \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  100                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-27-1A                                   \r\n                  3      LABEL    = TUBE UNDER CONSTANT PRESSURE P                                       \r\n                  4      $                                                                               \r\n                  5      $                                                                               \r\n                  6      $    MODEL: SECTION OF A OPEN TUBE RADIUS R, UNDER PRESSURE P.                  \r\n                  7      $           SYMMETRIC LAYUP [45/-45/0/90/90/0/-45/45]                           \r\n                  8      $                                                                               \r\n                  9      $        * *  HOOP LOADING FY FOR ELEMENT ID 8 * *                              \r\n                 10      $                                                                               \r\n                 11      $                                                                               \r\n                 12      $        HOOP LOADING FY = P * R = 10.5 * 50 = 5.25E5                           \r\n                 13      $                                                                               \r\n                 14      $        THEORETICAL                                                            \r\n                 15      $        ------------------------------------------------                       \r\n                 16      $        5.25E2                                                                 \r\n                 17      $                                                                               \r\n                 18      $                                                                               \r\n                 19      $        * * LAYER STRESSES FOR ELEMENT ID 8 * *                                \r\n                 20      $                                                                               \r\n                 21      $        ------------------------------------------------------                 \r\n                 22      $                   SIG1           SIG2       TAU12                             \r\n                 23      $         LAYER 1  2.524E2       1.741E1      2.277E1                           \r\n                 24      $         LAYER 2  2.494E2       1.751E1     -2.276E1                           \r\n                 25      $         LAYER 3 -2.259E2       3.231E1      1.944E-2                          \r\n                 26      $         LAYER 4  7.271E2       2.652E0      1.556E-2                          \r\n                 27      $         LAYER 5  7.270E2       2.660E0      5.054E-2                          \r\n                 28      $         LAYER 6 -2.253E2       3.230E1     -8.551E-2                          \r\n                 29      $         LAYER 7  2.534E2       1.741E1     -2.273E1                           \r\n                 30      $         LAYER 8  2.477E2       1.759E1      2.272E1                           \r\n                 31      $                                                                               \r\n                 32      $                                                                               \r\n                 33      $                                                                               \r\n                 34      SPC   = 1                                                                       \r\n                 35      SET 1 = 29,45,61,77                                                             \r\n                 36      SET 2 = 8,24                                                                    \r\n                 37      DISP(PRINT)   = 1                                                               \r\n                 38      STRESS(LAYER) = 2                                                               \r\n                 39      FORCE(PRINT)  = 2                                                               \r\n                 40      SUBCASE 1                                                                       \r\n                 41        LOAD = 1                                                                      \r\n                 42      OUTPUT(PLOT)                                                                    \r\n                 43      SET 1  = ALL                                                                    \r\n                 44      PLOT SET 1                                                                      \r\n                 45      PLOT SET 1, HIDD                                                                \r\n                 46      BEGIN BULK                                                                      \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   283, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1               0.0     0.0     0.0     0.0     0.0     1.0     +MOR1001\r\n                    2-        +MOR10011.0     0.0     0.0                                                     \r\n                    3-        CQUAD4  1       2       17      33      35      19                              \r\n                    4-        CQUAD4  2       2       19      35      37      21                              \r\n                    5-        CQUAD4  3       2       17      18      34      33                              \r\n                    6-        CQUAD4  4       2       18      20      36      34                              \r\n                    7-        CQUAD4  5       2       24      26      42      40                              \r\n                    8-        CQUAD4  6       2       26      28      44      42                              \r\n                    9-        CQUAD4  7       2       24      40      38      22                              \r\n                   10-        CQUAD4  8       2       22      38      36      20                              \r\n                   11-        CQUAD4  9       2       25      23      39      41                              \r\n                   12-        CQUAD4  10      2       23      21      37      39                              \r\n                   13-        CQUAD4  11      2       25      41      43      27                              \r\n                   14-        CQUAD4  12      2       27      43      45      29                              \r\n                   15-        CQUAD4  13      2       32      48      46      30                              \r\n                   16-        CQUAD4  14      2       30      46      44      28                              \r\n                   17-        CQUAD4  15      2       32      31      47      48                              \r\n                   18-        CQUAD4  16      2       31      29      45      47                              \r\n                   19-        CQUAD4  17      2       33      49      51      35                              \r\n                   20-        CQUAD4  18      2       35      51      53      37                              \r\n                   21-        CQUAD4  19      2       33      34      50      49                              \r\n                   22-        CQUAD4  20      2       34      36      52      50                              \r\n                   23-        CQUAD4  21      2       40      42      58      56                              \r\n                   24-        CQUAD4  22      2       42      44      60      58                              \r\n                   25-        CQUAD4  23      2       40      56      54      38                              \r\n                   26-        CQUAD4  24      2       38      54      52      36                              \r\n                   27-        CQUAD4  25      2       41      39      55      57                              \r\n                   28-        CQUAD4  26      2       39      37      53      55                              \r\n                   29-        CQUAD4  27      2       41      57      59      43                              \r\n                   30-        CQUAD4  28      2       43      59      61      45                              \r\n                   31-        CQUAD4  29      2       48      64      62      46                              \r\n                   32-        CQUAD4  30      2       46      62      60      44                              \r\n                   33-        CQUAD4  31      2       48      47      63      64                              \r\n                   34-        CQUAD4  32      2       47      45      61      63                              \r\n                   35-        CQUAD4  33      2       49      65      67      51                              \r\n                   36-        CQUAD4  34      2       51      67      69      53                              \r\n                   37-        CQUAD4  35      2       49      50      66      65                              \r\n                   38-        CQUAD4  36      2       50      52      68      66                              \r\n                   39-        CQUAD4  37      2       56      58      74      72                              \r\n                   40-        CQUAD4  38      2       58      60      76      74                              \r\n                   41-        CQUAD4  39      2       56      72      70      54                              \r\n                   42-        CQUAD4  40      2       54      70      68      52                              \r\n                   43-        CQUAD4  41      2       57      55      71      73                              \r\n                   44-        CQUAD4  42      2       55      53      69      71                              \r\n                   45-        CQUAD4  43      2       57      73      75      59                              \r\n                   46-        CQUAD4  44      2       59      75      77      61                              \r\n                   47-        CQUAD4  45      2       64      80      78      62                              \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD4  46      2       62      78      76      60                              \r\n                   49-        CQUAD4  47      2       64      63      79      80                              \r\n                   50-        CQUAD4  48      2       63      61      77      79                              \r\n                   51-        CQUAD4  49      2       65      81      83      67                              \r\n                   52-        CQUAD4  50      2       67      83      85      69                              \r\n                   53-        CQUAD4  51      2       65      66      82      81                              \r\n                   54-        CQUAD4  52      2       66      68      84      82                              \r\n                   55-        CQUAD4  53      2       72      74      90      88                              \r\n                   56-        CQUAD4  54      2       74      76      92      90                              \r\n                   57-        CQUAD4  55      2       72      88      86      70                              \r\n                   58-        CQUAD4  56      2       70      86      84      68                              \r\n                   59-        CQUAD4  57      2       73      71      87      89                              \r\n                   60-        CQUAD4  58      2       71      69      85      87                              \r\n                   61-        CQUAD4  59      2       73      89      91      75                              \r\n                   62-        CQUAD4  60      2       75      91      93      77                              \r\n                   63-        CQUAD4  61      2       80      96      94      78                              \r\n                   64-        CQUAD4  62      2       78      94      92      76                              \r\n                   65-        CQUAD4  63      2       80      79      95      96                              \r\n                   66-        CQUAD4  64      2       79      77      93      95                              \r\n                   67-        CQUAD4  65      2       81      97      99      83                              \r\n                   68-        CQUAD4  66      2       83      99      101     85                              \r\n                   69-        CQUAD4  67      2       81      82      98      97                              \r\n                   70-        CQUAD4  68      2       82      84      100     98                              \r\n                   71-        CQUAD4  69      2       88      90      106     104                             \r\n                   72-        CQUAD4  70      2       90      92      108     106                             \r\n                   73-        CQUAD4  71      2       88      104     102     86                              \r\n                   74-        CQUAD4  72      2       86      102     100     84                              \r\n                   75-        CQUAD4  73      2       89      87      103     105                             \r\n                   76-        CQUAD4  74      2       87      85      101     103                             \r\n                   77-        CQUAD4  75      2       89      105     107     91                              \r\n                   78-        CQUAD4  76      2       91      107     109     93                              \r\n                   79-        CQUAD4  77      2       96      112     110     94                              \r\n                   80-        CQUAD4  78      2       94      110     108     92                              \r\n                   81-        CQUAD4  79      2       96      95      111     112                             \r\n                   82-        CQUAD4  80      2       95      93      109     111                             \r\n                   83-        CQUAD4  81      2       97      113     115     99                              \r\n                   84-        CQUAD4  82      2       99      115     117     101                             \r\n                   85-        CQUAD4  83      2       97      98      114     113                             \r\n                   86-        CQUAD4  84      2       98      100     116     114                             \r\n                   87-        CQUAD4  85      2       104     106     122     120                             \r\n                   88-        CQUAD4  86      2       106     108     124     122                             \r\n                   89-        CQUAD4  87      2       104     120     118     102                             \r\n                   90-        CQUAD4  88      2       102     118     116     100                             \r\n                   91-        CQUAD4  89      2       105     103     119     121                             \r\n                   92-        CQUAD4  90      2       103     101     117     119                             \r\n                   93-        CQUAD4  91      2       105     121     123     107                             \r\n                   94-        CQUAD4  92      2       107     123     125     109                             \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD4  93      2       112     128     126     110                             \r\n                   96-        CQUAD4  94      2       110     126     124     108                             \r\n                   97-        CQUAD4  95      2       112     111     127     128                             \r\n                   98-        CQUAD4  96      2       111     109     125     127                             \r\n                   99-        CQUAD4  97      2       113     129     131     115                             \r\n                  100-        CQUAD4  98      2       115     131     133     117                             \r\n                  101-        CQUAD4  99      2       113     114     130     129                             \r\n                  102-        CQUAD4  100     2       114     116     132     130                             \r\n                  103-        CQUAD4  101     2       120     122     138     136                             \r\n                  104-        CQUAD4  102     2       122     124     140     138                             \r\n                  105-        CQUAD4  103     2       120     136     134     118                             \r\n                  106-        CQUAD4  104     2       118     134     132     116                             \r\n                  107-        CQUAD4  105     2       121     119     135     137                             \r\n                  108-        CQUAD4  106     2       119     117     133     135                             \r\n                  109-        CQUAD4  107     2       121     137     139     123                             \r\n                  110-        CQUAD4  108     2       123     139     141     125                             \r\n                  111-        CQUAD4  109     2       128     144     142     126                             \r\n                  112-        CQUAD4  110     2       126     142     140     124                             \r\n                  113-        CQUAD4  111     2       128     127     143     144                             \r\n                  114-        CQUAD4  112     2       127     125     141     143                             \r\n                  115-        CQUAD4  113     2       1       17      19      3                               \r\n                  116-        CQUAD4  114     2       3       19      21      5                               \r\n                  117-        CQUAD4  115     2       1       2       18      17                              \r\n                  118-        CQUAD4  116     2       2       4       20      18                              \r\n                  119-        CQUAD4  117     2       8       10      26      24                              \r\n                  120-        CQUAD4  118     2       10      12      28      26                              \r\n                  121-        CQUAD4  119     2       8       24      22      6                               \r\n                  122-        CQUAD4  120     2       6       22      20      4                               \r\n                  123-        CQUAD4  121     2       9       7       23      25                              \r\n                  124-        CQUAD4  122     2       7       5       21      23                              \r\n                  125-        CQUAD4  123     2       9       25      27      11                              \r\n                  126-        CQUAD4  124     2       11      27      29      13                              \r\n                  127-        CQUAD4  125     2       16      32      30      14                              \r\n                  128-        CQUAD4  126     2       14      30      28      12                              \r\n                  129-        CQUAD4  127     2       16      15      31      32                              \r\n                  130-        CQUAD4  128     2       15      13      29      31                              \r\n                  131-        GRID    1       1       50.000  180.000 0.000                                   \r\n                  132-        GRID    2       1       50.000  202.500 0.000                                   \r\n                  133-        GRID    3       1       50.000  157.500 0.000                                   \r\n                  134-        GRID    4       1       50.000  225.000 0.000                                   \r\n                  135-        GRID    5       1       50.000  135.000 0.000                                   \r\n                  136-        GRID    6       1       50.000  247.500 0.000                                   \r\n                  137-        GRID    7       1       50.000  112.500 0.000                                   \r\n                  138-        GRID    8       1       50.000  270.000 0.000                                   \r\n                  139-        GRID    9       1       50.000  90.000  0.000                                   \r\n                  140-        GRID    10      1       50.000  292.500 0.000                                   \r\n                  141-        GRID    11      1       50.000  67.500  0.000                                   \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    12      1       50.000  315.000 0.000                                   \r\n                  143-        GRID    13      1       50.000  45.000  0.000                                   \r\n                  144-        GRID    14      1       50.000  337.500 0.000                                   \r\n                  145-        GRID    15      1       50.000  22.500  0.000                                   \r\n                  146-        GRID    16      1       50.000  0.000   0.000                                   \r\n                  147-        GRID    17      1       50.000  180.000 10.000                                  \r\n                  148-        GRID    18      1       50.000  202.500 10.000                                  \r\n                  149-        GRID    19      1       50.000  157.500 10.000                                  \r\n                  150-        GRID    20      1       50.000  225.000 10.000                                  \r\n                  151-        GRID    21      1       50.000  135.000 10.000                                  \r\n                  152-        GRID    22      1       50.000  247.500 10.000                                  \r\n                  153-        GRID    23      1       50.000  112.500 10.000                                  \r\n                  154-        GRID    24      1       50.000  270.000 10.000                                  \r\n                  155-        GRID    25      1       50.000  90.000  10.000                                  \r\n                  156-        GRID    26      1       50.000  292.500 10.000                                  \r\n                  157-        GRID    27      1       50.000  67.500  10.000                                  \r\n                  158-        GRID    28      1       50.000  315.000 10.000                                  \r\n                  159-        GRID    29      1       50.000  45.000  10.000                                  \r\n                  160-        GRID    30      1       50.000  337.500 10.000                                  \r\n                  161-        GRID    31      1       50.000  22.500  10.000                                  \r\n                  162-        GRID    32      1       50.000  0.000   10.000                                  \r\n                  163-        GRID    33      1       50.000  180.000 20.000                                  \r\n                  164-        GRID    34      1       50.000  202.500 20.000                                  \r\n                  165-        GRID    35      1       50.000  157.500 20.000                                  \r\n                  166-        GRID    36      1       50.000  225.000 20.000                                  \r\n                  167-        GRID    37      1       50.000  135.000 20.000                                  \r\n                  168-        GRID    38      1       50.000  247.500 20.000                                  \r\n                  169-        GRID    39      1       50.000  112.500 20.000                                  \r\n                  170-        GRID    40      1       50.000  270.000 20.000                                  \r\n                  171-        GRID    41      1       50.000  90.000  20.000                                  \r\n                  172-        GRID    42      1       50.000  292.500 20.000                                  \r\n                  173-        GRID    43      1       50.000  67.500  20.000                                  \r\n                  174-        GRID    44      1       50.000  315.000 20.000                                  \r\n                  175-        GRID    45      1       50.000  45.000  20.000                                  \r\n                  176-        GRID    46      1       50.000  337.500 20.000                                  \r\n                  177-        GRID    47      1       50.000  22.500  20.000                                  \r\n                  178-        GRID    48      1       50.000  0.000   20.000                                  \r\n                  179-        GRID    49      1       50.000  180.000 30.000                                  \r\n                  180-        GRID    50      1       50.000  202.500 30.000                                  \r\n                  181-        GRID    51      1       50.000  157.500 30.000                                  \r\n                  182-        GRID    52      1       50.000  225.000 30.000                                  \r\n                  183-        GRID    53      1       50.000  135.000 30.000                                  \r\n                  184-        GRID    54      1       50.000  247.500 30.000                                  \r\n                  185-        GRID    55      1       50.000  112.500 30.000                                  \r\n                  186-        GRID    56      1       50.000  270.000 30.000                                  \r\n                  187-        GRID    57      1       50.000  90.000  30.000                                  \r\n                  188-        GRID    58      1       50.000  292.500 30.000                                  \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    59      1       50.000  67.500  30.000                                  \r\n                  190-        GRID    60      1       50.000  315.000 30.000                                  \r\n                  191-        GRID    61      1       50.000  45.000  30.000                                  \r\n                  192-        GRID    62      1       50.000  337.500 30.000                                  \r\n                  193-        GRID    63      1       50.000  22.500  30.000                                  \r\n                  194-        GRID    64      1       50.000  0.000   30.000                                  \r\n                  195-        GRID    65      1       50.000  180.000 40.000                                  \r\n                  196-        GRID    66      1       50.000  202.500 40.000                                  \r\n                  197-        GRID    67      1       50.000  157.500 40.000                                  \r\n                  198-        GRID    68      1       50.000  225.000 40.000                                  \r\n                  199-        GRID    69      1       50.000  135.000 40.000                                  \r\n                  200-        GRID    70      1       50.000  247.500 40.000                                  \r\n                  201-        GRID    71      1       50.000  112.500 40.000                                  \r\n                  202-        GRID    72      1       50.000  270.000 40.000                                  \r\n                  203-        GRID    73      1       50.000  90.000  40.000                                  \r\n                  204-        GRID    74      1       50.000  292.500 40.000                                  \r\n                  205-        GRID    75      1       50.000  67.500  40.000                                  \r\n                  206-        GRID    76      1       50.000  315.000 40.000                                  \r\n                  207-        GRID    77      1       50.000  45.000  40.000                                  \r\n                  208-        GRID    78      1       50.000  337.500 40.000                                  \r\n                  209-        GRID    79      1       50.000  22.500  40.000                                  \r\n                  210-        GRID    80      1       50.000  0.000   40.000                                  \r\n                  211-        GRID    81      1       50.000  180.000 50.000                                  \r\n                  212-        GRID    82      1       50.000  202.500 50.000                                  \r\n                  213-        GRID    83      1       50.000  157.500 50.000                                  \r\n                  214-        GRID    84      1       50.000  225.000 50.000                                  \r\n                  215-        GRID    85      1       50.000  135.000 50.000                                  \r\n                  216-        GRID    86      1       50.000  247.500 50.000                                  \r\n                  217-        GRID    87      1       50.000  112.500 50.000                                  \r\n                  218-        GRID    88      1       50.000  270.000 50.000                                  \r\n                  219-        GRID    89      1       50.000  90.000  50.000                                  \r\n                  220-        GRID    90      1       50.000  292.500 50.000                                  \r\n                  221-        GRID    91      1       50.000  67.500  50.000                                  \r\n                  222-        GRID    92      1       50.000  315.000 50.000                                  \r\n                  223-        GRID    93      1       50.000  45.000  50.000                                  \r\n                  224-        GRID    94      1       50.000  337.500 50.000                                  \r\n                  225-        GRID    95      1       50.000  22.500  50.000                                  \r\n                  226-        GRID    96      1       50.000  0.000   50.000                                  \r\n                  227-        GRID    97      1       50.000  180.000 60.000                                  \r\n                  228-        GRID    98      1       50.000  202.500 60.000                                  \r\n                  229-        GRID    99      1       50.000  157.500 60.000                                  \r\n                  230-        GRID    100     1       50.000  225.000 60.000                                  \r\n                  231-        GRID    101     1       50.000  135.000 60.000                                  \r\n                  232-        GRID    102     1       50.000  247.500 60.000                                  \r\n                  233-        GRID    103     1       50.000  112.500 60.000                                  \r\n                  234-        GRID    104     1       50.000  270.000 60.000                                  \r\n                  235-        GRID    105     1       50.000  90.000  60.000                                  \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRID    106     1       50.000  292.500 60.000                                  \r\n                  237-        GRID    107     1       50.000  67.500  60.000                                  \r\n                  238-        GRID    108     1       50.000  315.000 60.000                                  \r\n                  239-        GRID    109     1       50.000  45.000  60.000                                  \r\n                  240-        GRID    110     1       50.000  337.500 60.000                                  \r\n                  241-        GRID    111     1       50.000  22.500  60.000                                  \r\n                  242-        GRID    112     1       50.000  0.000   60.000                                  \r\n                  243-        GRID    113     1       50.000  180.000 70.000                                  \r\n                  244-        GRID    114     1       50.000  202.500 70.000                                  \r\n                  245-        GRID    115     1       50.000  157.500 70.000                                  \r\n                  246-        GRID    116     1       50.000  225.000 70.000                                  \r\n                  247-        GRID    117     1       50.000  135.000 70.000                                  \r\n                  248-        GRID    118     1       50.000  247.500 70.000                                  \r\n                  249-        GRID    119     1       50.000  112.500 70.000                                  \r\n                  250-        GRID    120     1       50.000  270.000 70.000                                  \r\n                  251-        GRID    121     1       50.000  90.000  70.000                                  \r\n                  252-        GRID    122     1       50.000  292.500 70.000                                  \r\n                  253-        GRID    123     1       50.000  67.500  70.000                                  \r\n                  254-        GRID    124     1       50.000  315.000 70.000                                  \r\n                  255-        GRID    125     1       50.000  45.000  70.000                                  \r\n                  256-        GRID    126     1       50.000  337.500 70.000                                  \r\n                  257-        GRID    127     1       50.000  22.500  70.000                                  \r\n                  258-        GRID    128     1       50.000  0.000   70.000                                  \r\n                  259-        GRID    129     1       50.000  180.000 80.000                                  \r\n                  260-        GRID    130     1       50.000  202.500 80.000                                  \r\n                  261-        GRID    131     1       50.000  157.500 80.000                                  \r\n                  262-        GRID    132     1       50.000  225.000 80.000                                  \r\n                  263-        GRID    133     1       50.000  135.000 80.000                                  \r\n                  264-        GRID    134     1       50.000  247.500 80.000                                  \r\n                  265-        GRID    135     1       50.000  112.500 80.000                                  \r\n                  266-        GRID    136     1       50.000  270.000 80.000                                  \r\n                  267-        GRID    137     1       50.000  90.000  80.000                                  \r\n                  268-        GRID    138     1       50.000  292.500 80.000                                  \r\n                  269-        GRID    139     1       50.000  67.500  80.000                                  \r\n                  270-        GRID    140     1       50.000  315.000 80.000                                  \r\n                  271-        GRID    141     1       50.000  45.000  80.000                                  \r\n                  272-        GRID    142     1       50.000  337.500 80.000                                  \r\n                  273-        GRID    143     1       50.000  22.500  80.000                                  \r\n                  274-        GRID    144     1       50.000  0.000   80.000                                  \r\n                  275-        MAT8    1       73.8 E+33.75 E+30.4     1.74 E+3                        +MA1    \r\n                  276-        +MA1                            1680.   -229.0  20.9    -137.0  82.9            \r\n                  277-        PCOMP   2       -0.96           10000.0 HILL                    SYM     +PC1    \r\n                  278-        +PC1    1       .24     45.0    YES                     -45.0   YES     +PC2    \r\n                  279-        +PC2                    0.0     YES                     90.0    YES             \r\n                  280-        PLOAD4  1       1       10.5                            THRU    128             \r\n                  281-        SPC1    1       3       1       9       16      24                              \r\n                  282-        SPC1    1       145     9       24      136     137                             \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        SPC1    1       245     1       16      129     144                             \r\n                              ENDDATA\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           19\r\n                                        PROFILE           2453\r\n                                        MAX WAVEFRONT       19\r\n                                        AVG WAVEFRONT   17.035\r\n                                        RMS WAVEFRONT   17.518\r\n                                        RMS BANDWIDTH   17.769\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           29\r\n                                        PROFILE           2878\r\n                                        MAX WAVEFRONT       29\r\n                                        AVG WAVEFRONT   19.986\r\n                                        RMS WAVEFRONT   21.431\r\n                                        RMS BANDWIDTH   21.941\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       19        19\r\n                                        PROFILE (P)                       2453      2453\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           19        19\r\n                                        AVERAGE WAVEFRONT (C-AVG)       17.035    17.035\r\n                                        RMS WAVEFRONT (C-RMS)           17.518    17.518\r\n                                        RMS BANDWITCH (B-RMS)           17.769    17.769\r\n                                        NUMBER OF GRID POINTS (N)                    144\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               128\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           5\r\n                                        NUMBER OF UNIQUE EDGES                       528\r\n                                        MATRIX DENSITY, PERCENT                    5.787\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.653119E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       0   -   X0 = -3.253665E+00, Y0 = -0.153062E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      0  USED IN THIS PLOT                                                   \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT MICROFILM PLOTTER WITHOUT TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE REQUESTED ON PAPER ONLY                                                                           \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 5.653119E-02                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       0   -   X0 = -3.253665E+00, Y0 = -0.153062E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      0  USED IN THIS PLOT                                                   \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n\r\n\r\n\r\n\r\n\r\n         THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES.\r\n\r\n\r\n PSHELL             2   100000002  1.9200E+00   200000002  1.0000E+00   300000002  1.0000E+00  0.0000E+00\r\n          -9.6000E-01  9.6000E-01           0         0.0         0.0  0.0000E+00\r\n\r\n MAT2       100000002  3.0568E+04  1.0037E+04  0.0000E+00  3.0568E+04  0.0000E+00  1.0265E+04  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       200000002  2.7484E+04  1.6431E+04  4.9658E+03  2.0863E+04  4.9658E+03  1.6659E+04  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       300000002  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        1\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        1   MPC        0\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n             3   G          1          6                                    5                                                       \r\n             6   G          1          6                                    4                                                       \r\n            11   G          1          6                                    4                                                       \r\n            14   G          1          6                                    5                                                       \r\n            19   G          1          6                                    5                                                       \r\n            22   G          1          6                                    4                                                       \r\n            27   G          1          6                                    4                                                       \r\n            30   G          1          6                                    5                                                       \r\n            35   G          1          6                                    5                                                       \r\n            38   G          1          6                                    4                                                       \r\n            43   G          1          6                                    4                                                       \r\n            46   G          1          6                                    5                                                       \r\n            51   G          1          6                                    5                                                       \r\n            54   G          1          6                                    4                                                       \r\n            59   G          1          6                                    4                                                       \r\n            62   G          1          6                                    5                                                       \r\n            67   G          1          6                                    5                                                       \r\n            70   G          1          6                                    4                                                       \r\n            75   G          1          6                                    4                                                       \r\n            78   G          1          6                                    5                                                       \r\n            83   G          1          6                                    5                                                       \r\n            86   G          1          6                                    4                                                       \r\n            91   G          1          6                                    4                                                       \r\n            94   G          1          6                                    5                                                       \r\n            99   G          1          6                                    5                                                       \r\n           102   G          1          6                                    4                                                       \r\n           107   G          1          6                                    4                                                       \r\n           110   G          1          6                                    5                                                       \r\n           115   G          1          6                                    5                                                       \r\n           118   G          1          6                                    4                                                       \r\n           123   G          1          6                                    4                                                       \r\n           126   G          1          6                                    5                                                       \r\n           131   G          1          6                                    5                                                       \r\n           134   G          1          6                                    4                                                       \r\n           139   G          1          6                                    4                                                       \r\n           142   G          1          6                                    5                                                       \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n\r\n      TUBE UNDER CONSTANT PRESSURE P                                                                                                \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   5.9258493E-15\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                         SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            29      G      3.520101E-01   3.550113E-01  -2.920907E-02   2.350948E-04  -1.891600E-04   1.684360E-04                  \r\n            45      G      3.498916E-01   3.529612E-01  -6.149850E-02   1.693388E-04  -2.354490E-04   8.040613E-05                  \r\n            61      G      3.480139E-01   3.510054E-01  -9.381203E-02   2.247578E-04  -1.522831E-04  -7.958212E-06                  \r\n            77      G      3.460445E-01   3.489399E-01  -1.261243E-01   1.785456E-04  -2.306766E-04  -1.139520E-04                  \r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                         SUBCASE 1              \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           8        -1.94407E-01   5.14856E+02  -4.19790E-01   1.63009E-01   1.69312E-01   7.97282E-01   6.00325E-02   7.72557E-03\r\n0          24        -2.39557E-01   5.15045E+02  -4.94258E-01   2.74835E-01   2.33053E-01   9.49503E-01   1.08823E-01   5.54346E-02\r\n1     QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                 /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T01-27-1A                                                                                            \r\n0     TUBE UNDER CONSTANT PRESSURE P                                                                         SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       8     1   2.52140E+02   1.74012E+01   2.27333E+01       0.789       1.62871E-02   2.78250E-03     0.000    \r\n              2   2.49392E+02   1.74928E+01  -2.27339E+01       0.796       2.79207E-02   4.77001E-03     0.000    \r\n              3  -2.25709E+02   3.22841E+01   1.49924E-02       3.496  *    5.23030E-02   4.98167E-03     0.000    \r\n              4   7.26766E+02   2.64885E+00   1.97078E-02       0.203       5.27160E-02   6.37017E-03     0.000    \r\n              5   7.26838E+02   2.65263E+00   5.44100E-02       0.203       5.23030E-02   4.98167E-03     0.000    \r\n              6  -2.25567E+02   3.22978E+01  -8.91141E-02       3.497  *    2.79207E-02   4.77001E-03     0.000    \r\n              7   2.53325E+02   1.74006E+01  -2.27369E+01       0.790       1.62871E-02   2.78250E-03     0.000    \r\n              8   2.47471E+02   1.75888E+01   2.27375E+01       0.804      -9.33565E-09  -9.56948E-10     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               3.497  * \r\n0      24     1   2.52615E+02   1.74032E+01   2.27302E+01       0.790       2.95241E-02   1.99658E-02     0.000    \r\n              2   2.49349E+02   1.75081E+01  -2.27346E+01       0.797       5.06127E-02   3.42271E-02     0.000    \r\n              3  -2.25693E+02   3.22948E+01   1.75600E-02       3.498  *    9.48112E-02   3.57458E-02     0.000    \r\n              4   7.27025E+02   2.64921E+00   2.32348E-02       0.203       9.55598E-02   4.57090E-02     0.000    \r\n              5   7.27151E+02   2.64856E+00   6.40317E-02       0.203       9.48112E-02   3.57458E-02     0.000    \r\n              6  -2.25876E+02   3.23103E+01  -1.04831E-01       3.502  *    5.06127E-02   3.42271E-02     0.000    \r\n              7   2.53783E+02   1.73865E+01  -2.27569E+01       0.789       2.95241E-02   1.99658E-02     0.000    \r\n              8   2.46861E+02   1.76052E+01   2.27613E+01       0.805      -1.69230E-08  -6.86656E-09     0.000    \r\n                                             HILL FAILURE THEORY WAS USED FOR THIS ELEMENT.                               3.502  * \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S              \r\n DATE:  5/17/95\r\n END TIME: 16:38:48\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01281a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01281A,NASTRAN                                                           \r\n     DIAG  40                                                                        \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-28-1A                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                  \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-28-1A                                   \r\n                  3      LABEL    = REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                       \r\n                  4      $                                                                               \r\n                  5      $    MODEL: CANTILEVERED BEAM MODEL UNDER A) EXTENSIONAL AND                    \r\n                  6      $           B) BENDING LOADINGS.  SIMULATION OF EQUIVALENT                      \r\n                  7      $           ISOTROPIC PROPERTIES. LAMINATE CONFIGURATION                        \r\n                  8      $           [0/0/0/0]                                                           \r\n                  9      $                                                                               \r\n                 10      $       * * T1 DEFLECTION AT GRIDS 13 AND 14 * *                                \r\n                 11      $                                                                               \r\n                 12      $           THEORETICAL                                                         \r\n                 13      $        --------------------------------------------------                     \r\n                 14      $ SUBCASE 1 (EXTENSIONAL)                                                       \r\n                 15      $                                                                               \r\n                 16      $ GRID 13   3.0E-5                                                              \r\n                 17      $ GRID 14   3.0E-5                                                              \r\n                 18      $                                                                               \r\n                 19      $       * * T3 DEFLECTION AT GRIDS 13 AND 14 * *                                \r\n                 20      $                                                                               \r\n                 21      $           THEORETICAL                                                         \r\n                 22      $        --------------------------------------------------                     \r\n                 23      $ SUBCASE 2 (BENDING)                                                           \r\n                 24      $                                                                               \r\n                 25      $ GRID 13   4.320E-1                                                            \r\n                 26      $ GRID 14   4.320E-1                                                            \r\n                 27      $                                                                               \r\n                 28      $                                                                               \r\n                 29      $       * * BENDING MOMENT DISTRIBUTION FROM     * *                            \r\n                 30      $       * * THE FREE END TO THE CANTILEVERED END * *                            \r\n                 31      $           NOTE: THE BENDING MOMENTS ARE AT THE ELEMENT CENTER                 \r\n                 32      $                                                                               \r\n                 33      $           THEORETICAL                                                         \r\n                 34      $        ----------------------------------------------------                   \r\n                 35      $           2.500E0                                                             \r\n                 36      $           7.500E0                                                             \r\n                 37      $           1.250E1                                                             \r\n                 38      $           1.750E1                                                             \r\n                 39      $           2.250E1                                                             \r\n                 40      $           2.750E1                                                             \r\n                 41      $                                                                               \r\n                 42      $                                                                               \r\n                 43      $       * * DIRECT LAYER BENDING STRESS           * *                           \r\n                 44      $       * * ELEMENT 6 (LARGEST BENDING MOMENT)    * *                           \r\n                 45      $                                                                               \r\n                 46      $        --------------------------------------                                 \r\n                 47      $                                                                               \r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-28-1A                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                                                \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48      $           LAYER 1   1.238E4                                                   \r\n                 49      $           LAYER 2   4.125E3                                                   \r\n                 50      $           LAYER 3  -4.125E3                                                   \r\n                 51      $           LAYER 4  -1.238E4                                                   \r\n                 52      $                                                                               \r\n                 53      $                                                                               \r\n                 54      $                                                                               \r\n                 55      STRESS(LAYER) = ALL                                                             \r\n                 56      DISP  = ALL                                                                     \r\n                 57      FORCE = ALL                                                                     \r\n                 58      SPC   = 1                                                                       \r\n                 59      SUBCASE 1                                                                       \r\n                 60         SUBTITLE = EXTENSION                                                         \r\n                 61             LOAD = 1                                                                 \r\n                 62      SUBCASE 2                                                                       \r\n                 63         SUBTITLE = OUT-OF-PLANE SHEAR                                                \r\n                 64             LOAD = 2                                                                 \r\n                 65      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    29, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-28-1A                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                                                \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD4  1       1       3       5       6       4                               \r\n                    2-        CQUAD4  2       1       5       7       8       6                               \r\n                    3-        CQUAD4  3       1       7       9       10      8                               \r\n                    4-        CQUAD4  4       1       9       11      12      10                              \r\n                    5-        CQUAD4  5       1       11      13      14      12                              \r\n                    6-        CQUAD4  6       1       1       3       4       2                               \r\n                    7-        FORCE   1       13              0.5     1.0     0.0     0.0                     \r\n                    8-        FORCE   1       14              0.5     1.0     0.0     0.0                     \r\n                    9-        FORCE   2       13              0.5     0.0     0.0     1.0                     \r\n                   10-        FORCE   2       14              0.5     0.0     0.0     1.0                     \r\n                   11-        GRID    1               0.0     0.0     0.0                                     \r\n                   12-        GRID    2               0.0     0.200   0.0                                     \r\n                   13-        GRID    3               1.0     0.0     0.0                                     \r\n                   14-        GRID    4               1.0     0.2     0.0                                     \r\n                   15-        GRID    5               2.0     0.0     0.0                                     \r\n                   16-        GRID    6               2.0     0.2     0.0                                     \r\n                   17-        GRID    7               3.0     0.0     0.0                                     \r\n                   18-        GRID    8               3.0     0.2     0.0                                     \r\n                   19-        GRID    9               4.0     0.0     0.0                                     \r\n                   20-        GRID    10              4.0     0.2     0.0                                     \r\n                   21-        GRID    11              5.0     0.0     0.0                                     \r\n                   22-        GRID    12              5.0     0.2     0.0                                     \r\n                   23-        GRID    13              6.0     0.0     0.0                                     \r\n                   24-        GRID    14              6.0     0.2     0.0                                     \r\n                   25-        MAT1    1       .100E+08        0.300                                           \r\n                   26-        PARAM   AUTOSPC 1                                                               \r\n                   27-        PCOMP2  1                                       1               SYM     +PC1    \r\n                   28-        +PC1    0.025   0.0     0.025   0.0                                             \r\n                   29-        SPC1    1       123456  1       2                                               \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-28-1A                                                                                            \r\n\r\n      REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                                                \r\n\r\n\r\n\r\n\r\n\r\n\r\n         THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES.\r\n\r\n\r\n PSHELL             1   100000001  1.0000E-01   200000001  1.0000E+00   300000001  1.0000E+00  0.0000E+00\r\n          -5.0000E-02  5.0000E-02           0         0.0         0.0  0.0000E+00\r\n\r\n MAT2       100000001  1.0989E+07  3.2967E+06  0.0000E+00  1.0989E+07  0.0000E+00  3.8462E+06  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       200000001  1.0989E+07  3.2967E+06  0.0000E+00  1.0989E+07  0.0000E+00  3.8462E+06  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       300000001  9.1575E+06  2.7473E+06  2.7473E+06  9.1575E+06  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE\r\n     APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-28-1A                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                                                \r\n\r\n\r\n                                A U T O M A T I C A L L Y   G E N E R A T E D   S P C 1   C A R D S\r\n                CARD \r\n                COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++\r\n\r\n                   1-        SPC1           1       6       3       4       5       6       7       8\r\n                   2-        SPC1           1       6       9      10      11      12      13      14\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.6654409E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   4.5279097E-10\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      EXTENSION                                                                                                                     \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      4.830334E-06   1.868894E-07   3.534389E-19   4.801656E-20  -7.077067E-19   0.0                           \r\n             4      G      4.830334E-06  -1.868894E-07   3.576165E-19  -6.194137E-21  -7.141831E-19   0.0                           \r\n             5      G      9.872059E-06   1.409277E-07   1.413599E-18   6.161675E-20  -1.413499E-18   0.0                           \r\n             6      G      9.872059E-06  -1.409277E-07   1.422228E-18   2.460397E-20  -1.414290E-18   0.0                           \r\n             7      G      1.486180E-05   1.522316E-07   3.132712E-18   7.919731E-20  -2.025671E-18   0.0                           \r\n             8      G      1.486180E-05  -1.522316E-07   3.145129E-18   4.499848E-20  -2.030819E-18   0.0                           \r\n             9      G      1.986432E-05   1.494493E-07   5.406692E-18   9.165050E-20  -2.522861E-18   0.0                           \r\n            10      G      1.986432E-05  -1.494493E-07   5.422503E-18   6.646425E-20  -2.523213E-18   0.0                           \r\n            11      G      2.486371E-05   1.501431E-07   8.093936E-18   9.755435E-20  -2.852271E-18   0.0                           \r\n            12      G      2.486371E-05  -1.501431E-07   8.112150E-18   8.451565E-20  -2.855712E-18   0.0                           \r\n            13      G      2.986382E-05   1.499336E-07   1.101250E-17   1.004409E-19  -2.985302E-18   0.0                           \r\n            14      G      2.986382E-05  -1.499336E-07   1.103208E-17   9.533790E-20  -2.984058E-18   0.0                           \r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      OUT-OF-PLANE SHEAR                                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      1.538416E-17   6.324988E-17   1.572489E-02   1.098561E-03  -3.176609E-02   0.0                           \r\n             4      G     -9.743610E-18   6.303713E-17   1.573726E-02  -1.232554E-03  -3.179058E-02   0.0                           \r\n             5      G      2.734927E-17   2.353727E-16   6.075447E-02   6.023572E-04  -5.909372E-02   0.0                           \r\n             6      G     -1.626324E-17   2.352330E-16   6.076431E-02  -7.073987E-04  -5.906426E-02   0.0                           \r\n             7      G      3.582399E-17   4.846585E-16   1.302129E-01   5.557361E-04  -7.999959E-02   0.0                           \r\n             8      G     -2.017207E-17   4.845348E-16   1.302125E-01  -5.547790E-04  -8.000879E-02   0.0                           \r\n             9      G      4.115942E-17   7.828216E-16   2.175888E-01   2.966714E-04  -9.501883E-02   0.0                           \r\n            10      G     -2.202862E-17   7.827365E-16   2.176004E-01  -4.219873E-04  -9.503330E-02   0.0                           \r\n            11      G      4.386239E-17   1.107002E-15   3.167015E-01   1.105182E-04  -1.040144E-01   0.0                           \r\n            12      G     -2.256928E-17   1.106962E-15   3.167124E-01  -2.247507E-04  -1.039986E-01   0.0                           \r\n            13      G      4.464473E-17   1.441258E-15   4.221351E-01   5.391156E-05  -1.070726E-01   0.0                           \r\n            14      G     -2.260016E-17   1.441244E-15   4.221345E-01  -5.407363E-05  -1.070654E-01   0.0                           \r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      EXTENSION                                                                                                                     \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 1              \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           1         5.00000E+00  -1.39086E-01   6.01229E-08   0.00000E+00  -9.93411E-11   0.00000E+00  -7.98689E-19   4.56767E-18\r\n0           2         5.00000E+00   3.42033E-02   6.23091E-07   0.00000E+00   0.00000E+00   3.78956E-16  -1.47048E-18   8.40891E-18\r\n0           3         5.00000E+00  -8.40502E-03  -2.18629E-07   0.00000E+00  -6.20882E-12   0.00000E+00   8.26280E-19  -5.21908E-18\r\n0           4         5.00000E+00   2.03876E-03   6.83214E-07   3.17891E-09   0.00000E+00   0.00000E+00  -1.65827E-18   9.13937E-18\r\n0           5         5.00000E+00  -3.83854E-04  -1.01116E-06   0.00000E+00  -1.94026E-13  -7.57912E-16  -2.19296E-18   1.14089E-17\r\n0           6         5.00000E+00   5.65553E-01   1.55773E-07   0.00000E+00   3.97364E-10   9.47390E-17   1.31617E-18  -7.26755E-18\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      OUT-OF-PLANE SHEAR                                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 2              \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           1        -2.44141E-05   0.00000E+00   0.00000E+00   2.25000E+01  -8.35149E-01   6.51443E-04  -7.93326E+00   7.96025E+01\r\n0           2        -1.22070E-05   2.38419E-08   0.00000E+00   1.75000E+01   2.07769E-01   7.54847E-04  -4.76300E-01   3.87754E+01\r\n0           3        -1.83105E-05   0.00000E+00   2.98023E-09   1.25000E+01  -6.07814E-02  -1.26670E-03  -1.55263E+00   4.46070E+01\r\n0           4        -6.10352E-06  -3.81470E-07  -1.49012E-09   7.50000E+00   5.43181E-02   7.34167E-04  -8.02099E+00   8.00446E+01\r\n0           5        -1.52588E-06   0.00000E+00   0.00000E+00   2.50000E+00  -1.73445E-01  -1.34425E-04  -9.92666E-01   4.15731E+01\r\n0           6         0.00000E+00   0.00000E+00   0.00000E+00   2.75000E+01   3.39351E+00  -1.85093E-03  -2.14368E+00   4.79180E+01\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      EXTENSION                                                                                                                     \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       1     1   5.00000E+01  -1.39086E+00   6.01229E-07       0.000      -8.98525E-18   5.13863E-17     0.000    \r\n              2   5.00000E+01  -1.39086E+00   6.01229E-07       0.000      -1.19803E-17   6.85151E-17     0.000    \r\n              3   5.00000E+01  -1.39086E+00   6.01229E-07       0.000      -8.98525E-18   5.13863E-17     0.000    \r\n              4   5.00000E+01  -1.39086E+00   6.01229E-07       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       2     1   5.00000E+01   3.42033E-01   6.23091E-06       0.000      -1.65429E-17   9.46002E-17     0.000    \r\n              2   5.00000E+01   3.42033E-01   6.23091E-06       0.000      -2.20572E-17   1.26134E-16     0.000    \r\n              3   5.00000E+01   3.42033E-01   6.23091E-06       0.000      -1.65429E-17   9.46002E-17     0.000    \r\n              4   5.00000E+01   3.42033E-01   6.23091E-06       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       3     1   5.00000E+01  -8.40511E-02  -2.18629E-06       0.000       9.29565E-18  -5.87147E-17     0.000    \r\n              2   5.00000E+01  -8.40511E-02  -2.18629E-06       0.000       1.23942E-17  -7.82862E-17     0.000    \r\n              3   5.00000E+01  -8.40511E-02  -2.18629E-06       0.000       9.29565E-18  -5.87147E-17     0.000    \r\n              4   5.00000E+01  -8.40511E-02  -2.18629E-06       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       4     1   5.00000E+01   2.03857E-02   6.83214E-06       0.000      -1.86556E-17   1.02818E-16     0.000    \r\n              2   5.00000E+01   2.03857E-02   6.83214E-06       0.000      -2.48741E-17   1.37090E-16     0.000    \r\n              3   5.00000E+01   2.03857E-02   6.83214E-06       0.000      -1.86556E-17   1.02818E-16     0.000    \r\n              4   5.00000E+01   2.03857E-02   6.83214E-06       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       5     1   5.00000E+01  -3.83949E-03  -1.01116E-05       0.000      -2.46708E-17   1.28350E-16     0.000    \r\n              2   5.00000E+01  -3.83949E-03  -1.01116E-05       0.000      -3.28943E-17   1.71133E-16     0.000    \r\n              3   5.00000E+01  -3.83949E-03  -1.01116E-05       0.000      -2.46708E-17   1.28350E-16     0.000    \r\n              4   5.00000E+01  -3.83949E-03  -1.01116E-05       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       6     1   5.00000E+01   5.65553E+00   1.55773E-06       0.000       1.48069E-17  -8.17600E-17     0.000    \r\n              2   5.00000E+01   5.65553E+00   1.55773E-06       0.000       1.97425E-17  -1.09013E-16     0.000    \r\n              3   5.00000E+01   5.65553E+00   1.55773E-06       0.000       1.48069E-17  -8.17600E-17     0.000    \r\n              4   5.00000E+01   5.65553E+00   1.55773E-06       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n1     COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                   /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      OUT-OF-PLANE SHEAR                                                                                                            \r\n0     REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                                                         SUBCASE 2              \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       1     1   1.01250E+04  -3.75817E+02   2.93150E-01       0.000      -8.92492E+01   8.95528E+02     0.000    \r\n              2   3.37500E+03  -1.25272E+02   9.77165E-02       0.000      -1.18999E+02   1.19404E+03     0.000    \r\n              3  -3.37500E+03   1.25273E+02  -9.77165E-02       0.000      -8.92492E+01   8.95528E+02     0.000    \r\n              4  -1.01250E+04   3.75817E+02  -2.93150E-01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       2     1   7.87500E+03   9.34956E+01   3.39681E-01       0.000      -5.35838E+00   4.36223E+02     0.000    \r\n              2   2.62500E+03   3.11655E+01   1.13227E-01       0.000      -7.14451E+00   5.81631E+02     0.000    \r\n              3  -2.62500E+03  -3.11655E+01  -1.13227E-01       0.000      -5.35838E+00   4.36223E+02     0.000    \r\n              4  -7.87500E+03  -9.34956E+01  -3.39681E-01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       3     1   5.62500E+03  -2.73506E+01  -5.70013E-01       0.000      -1.74670E+01   5.01829E+02     0.000    \r\n              2   1.87500E+03  -9.11688E+00  -1.90004E-01       0.000      -2.32894E+01   6.69105E+02     0.000    \r\n              3  -1.87500E+03   9.11670E+00   1.90004E-01       0.000      -1.74670E+01   5.01829E+02     0.000    \r\n              4  -5.62500E+03   2.73503E+01   5.70013E-01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       4     1   3.37500E+03   2.44430E+01   3.30375E-01       0.000      -9.02361E+01   9.00501E+02     0.000    \r\n              2   1.12500E+03   8.14771E+00   1.10125E-01       0.000      -1.20315E+02   1.20067E+03     0.000    \r\n              3  -1.12500E+03  -8.14771E+00  -1.10125E-01       0.000      -9.02361E+01   9.00501E+02     0.000    \r\n              4  -3.37500E+03  -2.44430E+01  -3.30375E-01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       5     1   1.12500E+03  -7.80509E+01  -6.04912E-02       0.000      -1.11675E+01   4.67697E+02     0.000    \r\n              2   3.75000E+02  -2.60169E+01  -2.01637E-02       0.000      -1.48900E+01   6.23596E+02     0.000    \r\n              3  -3.75000E+02   2.60169E+01   2.01637E-02       0.000      -1.11675E+01   4.67697E+02     0.000    \r\n              4  -1.12500E+03   7.80509E+01   6.04912E-02       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       6     1   1.23750E+04   1.52708E+03  -8.32917E-01       0.000      -2.41164E+01   5.39078E+02     0.000    \r\n              2   4.12500E+03   5.09027E+02  -2.77639E-01       0.000      -3.21552E+01   7.18770E+02     0.000    \r\n              3  -4.12500E+03  -5.09026E+02   2.77639E-01       0.000      -2.41164E+01   5.39078E+02     0.000    \r\n              4  -1.23750E+04  -1.52708E+03   8.32917E-01       0.000       0.00000E+00   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                \r\n DATE:  5/17/95\r\n END TIME: 16:39:17\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01291a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01291A,NASTRAN                                                           \r\n     DIAG  40                                                                        \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL        \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-29-1A                                   \r\n                  3      $                                                                               \r\n                  4      $                                                                               \r\n                  5      $    MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL.                               \r\n                  6      $           SYMMETRIC ANGLE PLY LAYUP                                           \r\n                  7      $           [ 45/-45/15/-15/-15/15/-45/45 ]                                     \r\n                  8      $                                                                               \r\n                  9      $                                                                               \r\n                 10      SPC  = 1                                                                        \r\n                 11      LOAD = 1                                                                        \r\n                 12      DISP = ALL                                                                      \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   168, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1               0.0     0.0     0.0     -1.0    0.0     0.0     +MOR1001\r\n                    2-        +MOR10010.0     0.0     1.0                                                     \r\n                    3-        CORD2R  2       0       0.0     0.0     0.0     0.0     0.0     1.0     +C2     \r\n                    4-        +C2     1.0     0.0     0.0                                                     \r\n                    5-        CORD2R  3       0       0.0     0.0     0.0     0.0     0.0     1.0     +C3     \r\n                    6-        +C3     1.0     0.0     0.0                                                     \r\n                    7-        CQUAD4  2       1       1       2       11      10                              \r\n                    8-        CQUAD4  3       1       2       3       12      11                              \r\n                    9-        CQUAD4  4       1       3       4       13      12                              \r\n                   10-        CQUAD4  5       1       4       5       14      13                              \r\n                   11-        CQUAD4  6       1       5       6       15      14                              \r\n                   12-        CQUAD4  7       1       6       7       16      15                              \r\n                   13-        CQUAD4  8       1       7       8       17      16                              \r\n                   14-        CQUAD4  9       1       8       9       18      17                              \r\n                   15-        CQUAD4  10      1       10      11      20      19                              \r\n                   16-        CQUAD4  11      1       11      12      21      20                              \r\n                   17-        CQUAD4  12      1       12      13      22      21                              \r\n                   18-        CQUAD4  13      1       13      14      23      22                              \r\n                   19-        CQUAD4  14      1       14      15      24      23                              \r\n                   20-        CQUAD4  15      1       15      16      25      24                              \r\n                   21-        CQUAD4  16      1       16      17      26      25                              \r\n                   22-        CQUAD4  17      1       17      18      27      26                              \r\n                   23-        CQUAD4  18      1       19      20      29      28                              \r\n                   24-        CQUAD4  19      1       20      21      30      29                              \r\n                   25-        CQUAD4  20      1       21      22      31      30                              \r\n                   26-        CQUAD4  21      1       22      23      32      31                              \r\n                   27-        CQUAD4  22      1       23      24      33      32                              \r\n                   28-        CQUAD4  23      1       24      25      34      33                              \r\n                   29-        CQUAD4  24      1       25      26      35      34                              \r\n                   30-        CQUAD4  25      1       26      27      36      35                              \r\n                   31-        CQUAD4  26      1       28      29      38      37                              \r\n                   32-        CQUAD4  27      1       29      30      39      38                              \r\n                   33-        CQUAD4  28      1       30      31      40      39                              \r\n                   34-        CQUAD4  29      1       31      32      41      40                              \r\n                   35-        CQUAD4  30      1       32      33      42      41                              \r\n                   36-        CQUAD4  31      1       33      34      43      42                              \r\n                   37-        CQUAD4  32      1       34      35      44      43                              \r\n                   38-        CQUAD4  33      1       35      36      45      44                              \r\n                   39-        CQUAD4  34      1       37      38      47      46                              \r\n                   40-        CQUAD4  35      1       38      39      48      47                              \r\n                   41-        CQUAD4  36      1       39      40      49      48                              \r\n                   42-        CQUAD4  37      1       40      41      50      49                              \r\n                   43-        CQUAD4  38      1       41      42      51      50                              \r\n                   44-        CQUAD4  39      1       42      43      52      51                              \r\n                   45-        CQUAD4  40      1       43      44      53      52                              \r\n                   46-        CQUAD4  41      1       44      45      54      53                              \r\n                   47-        CQUAD4  42      1       46      47      56      55                              \r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD4  43      1       47      48      57      56                              \r\n                   49-        CQUAD4  44      1       48      49      58      57                              \r\n                   50-        CQUAD4  45      1       49      50      59      58                              \r\n                   51-        CQUAD4  46      1       50      51      60      59                              \r\n                   52-        CQUAD4  47      1       51      52      61      60                              \r\n                   53-        CQUAD4  48      1       52      53      62      61                              \r\n                   54-        CQUAD4  49      1       53      54      63      62                              \r\n                   55-        CQUAD4  50      1       55      56      65      64                              \r\n                   56-        CQUAD4  51      1       56      57      66      65                              \r\n                   57-        CQUAD4  52      1       57      58      67      66                              \r\n                   58-        CQUAD4  53      1       58      59      68      67                              \r\n                   59-        CQUAD4  54      1       59      60      69      68                              \r\n                   60-        CQUAD4  55      1       60      61      70      69                              \r\n                   61-        CQUAD4  56      1       61      62      71      70                              \r\n                   62-        CQUAD4  57      1       62      63      72      71                              \r\n                   63-        CQUAD4  58      1       64      65      74      73                              \r\n                   64-        CQUAD4  59      1       65      66      75      74                              \r\n                   65-        CQUAD4  60      1       66      67      76      75                              \r\n                   66-        CQUAD4  61      1       67      68      77      76                              \r\n                   67-        CQUAD4  62      1       68      69      78      77                              \r\n                   68-        CQUAD4  63      1       69      70      79      78                              \r\n                   69-        CQUAD4  64      1       70      71      80      79                              \r\n                   70-        CQUAD4  65      1       71      72      81      80                              \r\n                   71-        CRIGD1  1       81      5001                                                    \r\n                   72-        GRID    1       1       25.000  0.000   0.000   1                               \r\n                   73-        GRID    2       1       25.000  5.000   0.000   1                               \r\n                   74-        GRID    3       1       25.000  10.000  0.000   1                               \r\n                   75-        GRID    4       1       25.000  15.000  0.000   1                               \r\n                   76-        GRID    5       1       25.000  20.000  0.000   1                               \r\n                   77-        GRID    6       1       25.000  25.000  0.000   1                               \r\n                   78-        GRID    7       1       25.000  30.000  0.000   1                               \r\n                   79-        GRID    8       1       25.000  35.000  0.000   1                               \r\n                   80-        GRID    9       1       25.000  40.000  0.000   1                               \r\n                   81-        GRID    10      1       25.000  0.000   3.125   1                               \r\n                   82-        GRID    11      1       25.000  5.000   3.125   1                               \r\n                   83-        GRID    12      1       25.000  10.000  3.125   1                               \r\n                   84-        GRID    13      1       25.000  15.000  3.125   1                               \r\n                   85-        GRID    14      1       25.000  20.000  3.125   1                               \r\n                   86-        GRID    15      1       25.000  25.000  3.125   1                               \r\n                   87-        GRID    16      1       25.000  30.000  3.125   1                               \r\n                   88-        GRID    17      1       25.000  35.000  3.125   1                               \r\n                   89-        GRID    18      1       25.000  40.000  3.125   1                               \r\n                   90-        GRID    19      1       25.000  0.000   6.250   1                               \r\n                   91-        GRID    20      1       25.000  5.000   6.250   1                               \r\n                   92-        GRID    21      1       25.000  10.000  6.250   1                               \r\n                   93-        GRID    22      1       25.000  15.000  6.250   1                               \r\n                   94-        GRID    23      1       25.000  20.000  6.250   1                               \r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        GRID    24      1       25.000  25.000  6.250   1                               \r\n                   96-        GRID    25      1       25.000  30.000  6.250   1                               \r\n                   97-        GRID    26      1       25.000  35.000  6.250   1                               \r\n                   98-        GRID    27      1       25.000  40.000  6.250   1                               \r\n                   99-        GRID    28      1       25.000  0.000   9.375   1                               \r\n                  100-        GRID    29      1       25.000  5.000   9.375   1                               \r\n                  101-        GRID    30      1       25.000  10.000  9.375   1                               \r\n                  102-        GRID    31      1       25.000  15.000  9.375   1                               \r\n                  103-        GRID    32      1       25.000  20.000  9.375   1                               \r\n                  104-        GRID    33      1       25.000  25.000  9.375   1                               \r\n                  105-        GRID    34      1       25.000  30.000  9.375   1                               \r\n                  106-        GRID    35      1       25.000  35.000  9.375   1                               \r\n                  107-        GRID    36      1       25.000  40.000  9.375   1                               \r\n                  108-        GRID    37      1       25.000  0.000   12.500  1                               \r\n                  109-        GRID    38      1       25.000  5.000   12.500  1                               \r\n                  110-        GRID    39      1       25.000  10.000  12.500  1                               \r\n                  111-        GRID    40      1       25.000  15.000  12.500  1                               \r\n                  112-        GRID    41      1       25.000  20.000  12.500  1                               \r\n                  113-        GRID    42      1       25.000  25.000  12.500  1                               \r\n                  114-        GRID    43      1       25.000  30.000  12.500  1                               \r\n                  115-        GRID    44      1       25.000  35.000  12.500  1                               \r\n                  116-        GRID    45      1       25.000  40.000  12.500  1                               \r\n                  117-        GRID    46      1       25.000  0.000   15.625  1                               \r\n                  118-        GRID    47      1       25.000  5.000   15.625  1                               \r\n                  119-        GRID    48      1       25.000  10.000  15.625  1                               \r\n                  120-        GRID    49      1       25.000  15.000  15.625  1                               \r\n                  121-        GRID    50      1       25.000  20.000  15.625  1                               \r\n                  122-        GRID    51      1       25.000  25.000  15.625  1                               \r\n                  123-        GRID    52      1       25.000  30.000  15.625  1                               \r\n                  124-        GRID    53      1       25.000  35.000  15.625  1                               \r\n                  125-        GRID    54      1       25.000  40.000  15.625  1                               \r\n                  126-        GRID    55      1       25.000  0.000   18.750  1                               \r\n                  127-        GRID    56      1       25.000  5.000   18.750  1                               \r\n                  128-        GRID    57      1       25.000  10.000  18.750  1                               \r\n                  129-        GRID    58      1       25.000  15.000  18.750  1                               \r\n                  130-        GRID    59      1       25.000  20.000  18.750  1                               \r\n                  131-        GRID    60      1       25.000  25.000  18.750  1                               \r\n                  132-        GRID    61      1       25.000  30.000  18.750  1                               \r\n                  133-        GRID    62      1       25.000  35.000  18.750  1                               \r\n                  134-        GRID    63      1       25.000  40.000  18.750  1                               \r\n                  135-        GRID    64      1       25.000  0.000   21.875  1                               \r\n                  136-        GRID    65      1       25.000  5.000   21.875  1                               \r\n                  137-        GRID    66      1       25.000  10.000  21.875  1                               \r\n                  138-        GRID    67      1       25.000  15.000  21.875  1                               \r\n                  139-        GRID    68      1       25.000  20.000  21.875  1                               \r\n                  140-        GRID    69      1       25.000  25.000  21.875  1                               \r\n                  141-        GRID    70      1       25.000  30.000  21.875  1                               \r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    71      1       25.000  35.000  21.875  1                               \r\n                  143-        GRID    72      1       25.000  40.000  21.875  1                               \r\n                  144-        GRID    73      1       25.000  0.000   25.000  1                               \r\n                  145-        GRID    74      1       25.000  5.000   25.000  1                               \r\n                  146-        GRID    75      1       25.000  10.000  25.000  1                               \r\n                  147-        GRID    76      1       25.000  15.000  25.000  1                               \r\n                  148-        GRID    77      1       25.000  20.000  25.000  1                               \r\n                  149-        GRID    78      1       25.000  25.000  25.000  1                               \r\n                  150-        GRID    79      1       25.000  30.000  25.000  1                               \r\n                  151-        GRID    80      1       25.000  35.000  25.000  1                               \r\n                  152-        GRID    81      1       25.000  40.000  25.000  1                               \r\n                  153-        GRID    5001    1       25.0    40.0    25.0    3                               \r\n                  154-        MAT8    1       20.0 E+70.5 E+070.25    0.25 E+70.25 E+70.25 E+7                \r\n                  155-        PARAM   AUTOSPC 1                                                               \r\n                  156-        PCOMP   1                                                               +PC1    \r\n                  157-        +PC1    1       .03125  45.0    YES                     -45.0   YES     +PC2    \r\n                  158-        +PC2    1       .03125  15.0    YES                     -15.0   YES     +PC3    \r\n                  159-        +PC3    1       .03125  -15.0   YES                     15.0    YES     +PC4    \r\n                  160-        +PC4    1       .03125  -45.0   YES                     45.0    YES             \r\n                  161-        PLOAD4  1       2       90.0                            THRU    65      +PL1    \r\n                  162-        +PL1    2       0.0     0.0     -1.0                                            \r\n                  163-        SPC1    1       12      1       2       3       4       5       6       +SP10001\r\n                  164-        +SP100017       8       9                                                       \r\n                  165-        SPC1    1       26      1       10      19      28      37      46      +SP10005\r\n                  166-        +SP1000555      64      73                                                      \r\n                  167-        SPC1    1       35      73      74      75      76      77      78      +SP10003\r\n                  168-        +SP1000379      80      81                                                      \r\n                              ENDDATA\r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           11\r\n                                        PROFILE            801\r\n                                        MAX WAVEFRONT       11\r\n                                        AVG WAVEFRONT    9.889\r\n                                        RMS WAVEFRONT   10.155\r\n                                        RMS BANDWIDTH   10.290\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           16\r\n                                        PROFILE            817\r\n                                        MAX WAVEFRONT       14\r\n                                        AVG WAVEFRONT   10.086\r\n                                        RMS WAVEFRONT   10.452\r\n                                        RMS BANDWIDTH   10.925\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       11        11\r\n                                        PROFILE (P)                        801       801\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           11        11\r\n                                        AVERAGE WAVEFRONT (C-AVG)        9.889     9.889\r\n                                        RMS WAVEFRONT (C-RMS)           10.155    10.155\r\n                                        RMS BANDWITCH (B-RMS)           10.290    10.290\r\n                                        NUMBER OF GRID POINTS (N)                     82\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                64\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       272\r\n                                        MATRIX DENSITY, PERCENT                    9.526\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n\r\n\r\n         THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES.\r\n\r\n\r\n PSHELL             1   100000001  2.5000E-01   200000001  1.0000E+00   300000001  1.0000E+00  0.0000E+00\r\n          -1.2500E-01  1.2500E-01   400000001         0.0         0.0  0.0000E+00\r\n\r\n MAT2       100000001  1.1482E+08  3.1380E+07  0.0000E+00  3.0248E+07  0.0000E+00  3.2628E+07  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       200000001  6.9547E+07  4.4937E+07  1.7978E+07  4.8404E+07  1.4064E+07  4.6185E+07  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       300000001  1.8727E+06  0.0000E+00  0.0000E+00  2.1638E+06  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       400000001 -9.3132E-10  0.0000E+00  0.0000E+00 -4.6566E-10  0.0000E+00 -4.6566E-10  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT     5001\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        2\r\n0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4\r\n\r\n0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE\r\n     APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.\r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                A U T O M A T I C A L L Y   G E N E R A T E D   S P C 1   C A R D S\r\n                CARD \r\n                COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++\r\n\r\n                   1-        SPC1           1       4       1       9      10      18      19      27\r\n                   2-        SPC1           1       4      28      36      37      45      46      54\r\n                   3-        SPC1           1       4      55      63      64      72\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.8571016E-13\r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            2.899564E-02   0.0            8.625546E-03   0.0                           \r\n             2      G      0.0            0.0            3.017557E-02   5.725482E-02   1.896960E-03   1.115188E-03                  \r\n             3      G      0.0            0.0            3.269306E-02   1.056870E-01  -1.404650E-02   1.548842E-03                  \r\n             4      G      0.0            0.0            3.377349E-02   1.371243E-01  -3.737132E-02   2.159184E-03                  \r\n             5      G      0.0            0.0            2.929746E-02   1.592472E-01  -6.642547E-02   2.454772E-03                  \r\n             6      G      0.0            0.0            1.394483E-02   1.674581E-01  -9.953078E-02   2.853242E-03                  \r\n             7      G      0.0            0.0           -1.857785E-02   1.628319E-01  -1.345009E-01   2.620562E-03                  \r\n             8      G      0.0            0.0           -7.529143E-02   1.332506E-01  -1.684601E-01   3.031616E-03                  \r\n             9      G      0.0            0.0           -1.639529E-01   0.0           -1.942351E-01   1.629148E-03                  \r\n            10      G      3.229542E-02   0.0            2.892486E-02   0.0            7.964384E-03   0.0                           \r\n            11      G      1.497283E-02  -2.220311E-03   3.001600E-02   6.858427E-02   4.942628E-03   1.550408E-02                  \r\n            12      G     -3.198040E-02  -1.626468E-03   3.233238E-02   1.041797E-01  -8.778524E-03   2.681453E-02                  \r\n            13      G     -1.015888E-01   4.059293E-03   3.323820E-02   1.359712E-01  -2.971412E-02   3.623423E-02                  \r\n            14      G     -1.893344E-01   1.660417E-02   2.868276E-02   1.566852E-01  -5.640581E-02   4.380335E-02                  \r\n            15      G     -2.897798E-01   3.731973E-02   1.348193E-02   1.657657E-01  -8.696624E-02   4.882053E-02                  \r\n            16      G     -3.959515E-01   6.693327E-02  -1.841717E-02   1.586989E-01  -1.191799E-01   5.080279E-02                  \r\n            17      G     -4.998755E-01   1.054282E-01  -7.360949E-02   1.478272E-01  -1.509882E-01   4.933311E-02                  \r\n            18      G     -5.936927E-01   1.518261E-01  -1.586922E-01   0.0           -1.751578E-01   4.535493E-02                  \r\n            19      G      6.090258E-02   0.0            2.821701E-02   0.0            5.622067E-03   0.0                           \r\n            20      G      2.951520E-02  -3.868122E-03   2.907328E-02   7.248543E-02   2.026448E-03   2.846012E-02                  \r\n            21      G     -5.812308E-02  -2.460957E-03   3.087526E-02   1.174794E-01  -9.886149E-03   5.161848E-02                  \r\n            22      G     -1.911845E-01   8.700500E-03   3.125524E-02   1.469402E-01  -2.897359E-02   7.051452E-02                  \r\n            23      G     -3.592701E-01   3.309438E-02   2.650590E-02   1.610630E-01  -5.302827E-02   8.498292E-02                  \r\n            24      G     -5.505790E-01   7.314442E-02   1.189345E-02   1.589259E-01  -7.995253E-02   9.418880E-02                  \r\n            25      G     -7.514147E-01   1.300325E-01  -1.796114E-02   1.465427E-01  -1.078509E-01   9.748510E-02                  \r\n            26      G     -9.478584E-01   2.035301E-01  -6.864892E-02   1.249873E-01  -1.353272E-01   9.554208E-02                  \r\n            27      G     -1.130176E+00   2.921465E-01  -1.455881E-01   0.0           -1.577956E-01   9.144332E-02                  \r\n            28      G      7.992071E-02   0.0            2.631155E-02   0.0            7.379559E-04   0.0                           \r\n            29      G      3.692570E-02  -4.838938E-03   2.691968E-02   8.530802E-02   9.856989E-04   3.919034E-02                  \r\n            30      G     -8.604135E-02  -2.335971E-03   2.804812E-02   9.957778E-02  -9.504352E-03   7.276747E-02                  \r\n            31      G     -2.746689E-01   1.389926E-02   2.775921E-02   1.138240E-01  -2.540007E-02   9.991711E-02                  \r\n            32      G     -5.129053E-01   4.884833E-02   2.292241E-02   1.194014E-01  -4.562375E-02   1.200528E-01                  \r\n            33      G     -7.826692E-01   1.058663E-01   9.551525E-03   1.170826E-01  -6.843191E-02   1.323491E-01                  \r\n            34      G     -1.064788E+00   1.865032E-01  -1.683461E-02   1.104471E-01  -9.243312E-02   1.369275E-01                  \r\n            35      G     -1.342523E+00   2.905575E-01  -6.093396E-02   1.134538E-01  -1.173138E-01   1.359932E-01                  \r\n            36      G     -1.606568E+00   4.165486E-01  -1.276789E-01   0.0           -1.374066E-01   1.340813E-01                  \r\n            37      G      9.111481E-02   0.0            2.320636E-02   0.0            8.203459E-04   0.0                           \r\n            38      G      3.812192E-02  -5.167392E-03   2.352739E-02   6.647225E-02  -1.824821E-03   4.783016E-02                  \r\n            39      G     -1.126332E-01  -1.367456E-03   2.404442E-02   1.031336E-01  -8.646183E-03   8.961146E-02                  \r\n            40      G     -3.456871E-01   1.930683E-02   2.322238E-02   1.207159E-01  -2.074476E-02   1.239404E-01                  \r\n            41      G     -6.409738E-01   6.308063E-02   1.864158E-02   1.257583E-01  -3.653977E-02   1.490356E-01                  \r\n            42      G     -9.754177E-01   1.341401E-01   7.174413E-03   1.204130E-01  -5.481802E-02   1.643408E-01                  \r\n            43      G     -1.325969E+00   2.344973E-01  -1.477512E-02   1.095870E-01  -7.458538E-02   1.707507E-01                  \r\n            44      G     -1.673849E+00   3.641651E-01  -5.111113E-02   9.127031E-02  -9.483767E-02   1.713979E-01                  \r\n            45      G     -2.010344E+00   5.217552E-01  -1.058831E-01   0.0           -1.127465E-01   1.722045E-01                  \r\n            46      G      9.356097E-02   0.0            1.886566E-02   0.0           -5.991992E-03   0.0                           \r\n            47      G      3.530085E-02  -4.975086E-03   1.900014E-02   9.266894E-02  -5.291671E-04   5.354195E-02                  \r\n1     COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-29-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -1.353854E-01   1.504413E-04   1.900132E-02   7.637139E-02  -6.603403E-03   1.020970E-01                  \r\n            49      G     -4.015175E-01   2.442709E-02   1.789914E-02   7.315119E-02  -1.532609E-02   1.418891E-01                  \r\n            50      G     -7.401790E-01   7.506831E-02   1.399365E-02   6.909098E-02  -2.698910E-02   1.713187E-01                  \r\n            51      G     -1.125102E+00   1.570122E-01   4.962201E-03   6.430767E-02  -4.082906E-02   1.895055E-01                  \r\n            52      G     -1.530234E+00   2.727434E-01  -1.193661E-02   6.199219E-02  -5.605701E-02   1.978610E-01                  \r\n            53      G     -1.935240E+00   4.225408E-01  -3.964049E-02   7.547092E-02  -7.276974E-02   2.003550E-01                  \r\n            54      G     -2.330566E+00   6.051728E-01  -8.128059E-02   0.0           -8.526150E-02   2.029887E-01                  \r\n            55      G      9.444383E-02   0.0            1.341944E-02   0.0            1.611832E-03   0.0                           \r\n            56      G      3.002082E-02  -4.455318E-03   1.334750E-02   4.320000E-02  -3.952390E-03   5.764867E-02                  \r\n            57      G     -1.534824E-01   1.867822E-03   1.309156E-02   8.697563E-02  -5.401087E-03   1.097168E-01                  \r\n            58      G     -4.412707E-01   2.873573E-02   1.208535E-02   9.986024E-02  -1.032157E-02   1.542405E-01                  \r\n            59      G     -8.102633E-01   8.416884E-02   9.236316E-03   1.003214E-01  -1.774203E-02   1.872265E-01                  \r\n            60      G     -1.231426E+00   1.737581E-01   3.030256E-03   8.976886E-02  -2.692107E-02   2.078252E-01                  \r\n            61      G     -1.676202E+00   3.004031E-01  -8.358393E-03   7.271206E-02  -3.712994E-02   2.177250E-01                  \r\n            62      G     -2.122948E+00   4.646077E-01  -2.698542E-02   4.590473E-02  -4.736068E-02   2.216620E-01                  \r\n            63      G     -2.563775E+00   6.654020E-01  -5.490253E-02   0.0           -5.911697E-02   2.271640E-01                  \r\n            64      G      8.182470E-02   0.0            7.020907E-03   0.0           -1.740015E-02   0.0                           \r\n            65      G      2.139186E-02  -3.751520E-03   6.966338E-03   9.953668E-02  -7.478923E-04   5.675038E-02                  \r\n            66      G     -1.645208E-01   3.365430E-03   6.725371E-03   3.839648E-02  -1.735847E-03   1.135830E-01                  \r\n            67      G     -4.634902E-01   3.170485E-02   6.093581E-03   1.807599E-02  -3.660017E-03   1.611325E-01                  \r\n            68      G     -8.498142E-01   8.986308E-02   4.576935E-03   1.794365E-03  -7.167116E-03   1.966604E-01                  \r\n            69      G     -1.292948E+00   1.838779E-01   1.416779E-03  -5.290289E-03  -1.205355E-02   2.191020E-01                  \r\n            70      G     -1.762964E+00   3.169888E-01  -4.297093E-03  -7.718697E-04  -1.819778E-02   2.304700E-01                  \r\n            71      G     -2.236855E+00   4.899319E-01  -1.357198E-02   2.774042E-02  -2.594543E-02   2.353228E-01                  \r\n            72      G     -2.704947E+00   7.017896E-01  -2.771374E-02   0.0           -2.775393E-02   2.415532E-01                  \r\n            73      G      8.774255E-02   0.0            0.0           -4.773707E-01   0.0            0.0                           \r\n            74      G      2.208306E-02  -3.579336E-03   0.0           -8.017362E-05   0.0            5.820425E-02                  \r\n            75      G     -1.673827E-01   3.892042E-03   0.0            8.918486E-02   0.0            1.134582E-01                  \r\n            76      G     -4.695131E-01   3.275507E-02   0.0            1.009819E-01   0.0            1.625737E-01                  \r\n            77      G     -8.615965E-01   9.178473E-02   0.0            9.832776E-02   0.0            1.994962E-01                  \r\n            78      G     -1.312415E+00   1.872231E-01   0.0            7.920962E-02   0.0            2.229738E-01                  \r\n            79      G     -1.791753E+00   3.224472E-01   0.0            5.202624E-02   0.0            2.354358E-01                  \r\n            80      G     -2.278099E+00   4.983991E-01   0.0            5.247600E-03   0.0            2.423907E-01                  \r\n            81      G     -2.761726E+00   7.144707E-01   0.0           -1.846150E-01   0.0            2.487458E-01                  \r\n          5001      G      0.0           -1.227887E+00  -2.574858E+00  -2.487458E-01  -1.186682E-01  -1.414233E-01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL      \r\n DATE:  5/17/95\r\n END TIME: 16:40: 0\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01301a.out",
    "content": "     NASTRAN FILES=(INP1,INP2)                                                       \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01301A,NASTRAN                                                           \r\n     SOL   1                                                                         \r\n     TIME  10                                                                        \r\n     APP   DISP                                                                      \r\n     $DIAG 15,-2,-14                                                                 \r\n     ALTER      110                                                                  \r\n     DATABASE   EQEXIN,BGPDT,GEOM2,CSTM,OUGV1,,//C,N,15/C,N,+1/C,N,+1  $             \r\n     $ALTER     131                                                                  \r\n     $DATABASE  EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1  $                     \r\n     ALTER      147                                                                  \r\n     DATABASE   EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1  $                     \r\n     JUMP       FINIS                                                                \r\n     ENDALTER                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TESTING DATABASE MODULE                                              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-30-1A                                   \r\n                  3      SPC   = 10                                                                      \r\n                  4      DISP  = ALL                                                                     \r\n                  5      STRES = ALL                                                                     \r\n                  6      ELFOR = ALL                                                                     \r\n                  7      ECHO  = NONE                                                                    \r\n                  8      LOAD  = 20                                                                      \r\n                  9      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    14, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   8.9120300E-15\r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE, DATABASE NEW DMAP FORMAT\r\n\r\n     DATABASE   EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC  $\r\n     FIRST 4 FILES ARE FIXED IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER\r\n     FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE SELECTIVELY OMITTED\r\n0*** USER INFORMATION MESSAGE -\r\n     DATABASE MODULE TRANSFERRED THE FOLLOWING  3 SETS OF DATA TO OUTPUT FILE  INP1\r\n+                                                                                     (FORTRAN UNIT 15),   FORMATTED   \r\n\r\n     1. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC RECTANGULAR COORDINATES\r\n\r\n     2. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ARE EXTERNAL NUMBERS\r\n\r\n     3. DISPLCNT DATA FROM INPUT FILE OUGV1   \r\n+                                              , IN NASTRAN GLOBAL COORDINATE SYSTEM,\r\n+                                                                                          1 SUBCASES\r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G     -1.478750E-05   2.560278E-05   3.564502E-03   5.329478E-05  -6.608641E-03   0.0                           \r\n             4      G      2.161250E-05   2.813055E-05   2.632305E-03   1.793343E-03  -4.833373E-03   0.0                           \r\n             5      G      2.433680E-05   6.963935E-05   8.925877E-03   2.351535E-03  -7.309748E-03   0.0                           \r\n             6      G     -1.206319E-05   7.422730E-05   1.128044E-02   2.280297E-03  -8.315651E-03   0.0                           \r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                    F O R C E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S     ( Q U A D 4 )\r\n\r\n      ELEMENT            - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID          FX            FY            FXY           MX            MY            MXY           VX            VY\r\n \r\n0           1   -7.91647E-01   9.99998E+00   1.00000E+01  -2.32494E+00  -1.50000E+01  -1.74130E+00  -1.95114E-01  -1.04572E+01      \r\n0           2    6.09027E+00   1.00000E+01   1.00000E+01   7.64107E-01  -5.00000E+00  -2.67614E+00  -1.04445E+00  -1.04571E+01      \r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   Q U A D R I L A T E R A L   E L E M E N T S      ( C Q U A D 4 )\r\n                                                  (IN STRESS COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN STRESS COORD. SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -5.000000E-02     -1.402881E+03  -8.900000E+03  -9.447805E+02    -7.0731   -1.285654E+03   -9.017228E+03   3.865787E+03 \r\n             5.000000E-02      1.387048E+03   9.100000E+03   1.144781E+03    81.7333    9.266325E+03    1.220723E+03   4.022801E+03 \r\n0       2   -5.000000E-02      5.193671E+02  -2.900000E+03  -1.505682E+03   -20.6848    1.087862E+03   -3.468495E+03   2.278179E+03 \r\n             5.000000E-02     -3.975616E+02   3.100000E+03   1.705682E+03    67.8574    3.794084E+03   -1.091645E+03   2.442865E+03 \r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER INFORMATION MESSAGE, DATABASE NEW DMAP FORMAT\r\n\r\n     DATABASE   EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC  $\r\n     FIRST 4 FILES ARE FIXED IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER\r\n     FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE SELECTIVELY OMITTED\r\n1     TESTING DATABASE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-30-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE -\r\n     DATABASE MODULE TRANSFERRED THE FOLLOWING  3 SETS OF DATA TO OUTPUT FILE  INP2\r\n+                                                                                     (FORTRAN UNIT 16),   FORMATTED   \r\n\r\n     1. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC RECTANGULAR COORDINATES\r\n\r\n     2. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ARE EXTERNAL NUMBERS\r\n\r\n     3. E.STRESS DATA FROM INPUT FILE OES1    \r\n+                                                 1 SUBCASES\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TESTING DATABASE MODULE                                            \r\n DATE:  5/17/95\r\n END TIME: 16:40:39\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01311a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01311A,NASTRAN                                                           \r\n     SOL   1                                                                         \r\n     APP   DISP                                                                      \r\n     TIME  10                                                                        \r\n     DIAG  2,8,15                                                                    \r\n     ALTER     50                                                                    \r\n     GINOFILE  /XXX/C,N,303 $                                                        \r\n     MATPRN    XXX,,,, // $                                                          \r\n     JUMP      FINIS $                                                               \r\n     ENDALTER                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TESTING GINOFILE MODULE                                              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-31-1A                                   \r\n                  3      LABEL    = TO CAPTURE SCRATCH 3 OF GPWG MODULE                                  \r\n                  4      SPC   = 10                                                                      \r\n                  5      DISP  = ALL                                                                     \r\n                  6      STRES = ALL                                                                     \r\n                  7      ELFOR = ALL                                                                     \r\n                  8      $ECHO = NONE                                                                    \r\n                  9      LOAD  = 20                                                                      \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    15, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD4  1       1       1       2       3       4                               \r\n                    2-        CQUAD4  2       1       4       3       6       5                               \r\n                    3-        FORCE   20      6               10.0    1.0     1.0     1.0                     \r\n                    4-        FORCE   25      4               -1.0    1.0     1.0     1.0                     \r\n                    5-        GRID    1               0.0                                                     \r\n                    6-        GRID    2               0.0     1.0                                             \r\n                    7-        GRID    3               1.0     1.0                                             \r\n                    8-        GRID    4               1.0     0.0                                             \r\n                    9-        GRID    5               2.0     0.0                                             \r\n                   10-        GRID    6               2.0     1.0                                             \r\n                   11-        MAT1    100     3.0E+7          .3      1.0                                     \r\n                   12-        PARAM   GRDPNT  1                                                               \r\n                   13-        PSHELL  1       100     .1      100     1.0     100     .8333                   \r\n                   14-        SPC1    10      6       1       THRU    6                                       \r\n                   15-        SPC1    10      123456  1       2                                               \r\n                              ENDDATA\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n \r\n     FIAT AT END OF PREFACE             58            100             62\r\n \r\n     EQUIV  APPEND    LTU  TAPE  UNIT  FILE NAME                               ---TRAILER---\r\n       0       0        6    0     23  GEOM1   \r\n+                                                         0         0         8         0         0         0\r\n       0       0       33    0     24  EPT     \r\n+                                                         0         0         0        64         0         0\r\n       0       0      158    0     25  MPT     \r\n+                                                     32768         0         0         0         0         0\r\n       0       0        0    0     26          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     27          \r\n+                                                         0         0         0         0         0         0\r\n       0       0      158    0     28  CASECC  \r\n+                                                         1         1       200         0         0         0\r\n       0       0        0    0     29          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     30          \r\n+                                                         0         0         0         0         0         0\r\n       0       0      158    0     31  GEOM2   \r\n+                                                         0         0         0      1024         0         0\r\n       0       0       24    0     32  GEOM3   \r\n+                                                         0         0        64         0         0         0\r\n       0       0      158    0     33  GEOM4   \r\n+                                                         0         0         0        64         0         0\r\n       0       0        0    0     34          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     35          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     36          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     37          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     38          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     39          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     40          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     41          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     42          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     43          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     44          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     45          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     46          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     47          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     48          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     49          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     50          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     51          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     52          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     53          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     54          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     55          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     56          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     57          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     58          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     59          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     60          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     61          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     62          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     63          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     64          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     65          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     66          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     67          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     68          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     69          \r\n+                                                         0         0         0         0         0         0\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n\r\n      TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       0       0        0    0     70          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     71          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     72          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     73          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     74          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     75          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     76          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     77          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     78          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     79          \r\n+                                                         0         0         0         0         0         0\r\n       0       0        0    0     80          \r\n+                                                         0         0         0         0         0         0\r\n       0       0      158    0  16383  EDT     \r\n+                                                         0         0         0         0         0         0\r\n       0       0      158    0  16383  DIT     \r\n+                                                         0         0         0         0         0         0\r\n       0       0       15    0  16383  PCDB    \r\n+                                                         0         0         0         0         0         0\r\n       0       0      158    0  16383  XYCDB   \r\n+                                                         0         0         0         0         0         0\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0FIAT AFTER SFA  58 100  72  OSCAR STR    4, STP   51\r\n\r\n EQ AP  LTU  TP  UNIT  NTU  OF SG KN TR DATA-BLK      *      *   TRAILER   *      *      *  PRI BLKS   SEC FLS/BLKS   TER FLS/BLKS\r\n  0  0     6  0    23     6  1 -1  1  0 GEOM1         0      0      8      0      0      0        3         0/    0        0/    0\r\n  0  0    33  0    24    33  1 -1  1  0 EPT           0      0      0     64      0      0        3         0/    0        0/    0\r\n  0  0   158  0    25    82  0 -1  1  0 MPT       32768      0      0      0      0      0        3         0/    0        0/    0\r\n  0  0   158  0    26    89  0 -1  3  0 GPL           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    27    59  0 -1  3  0 EQEXIN        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    28    59  0 -1  1  0 CASECC        1      1    200      0      0      0        3         0/    0        0/    0\r\n  0  0   158  0    29    59  0 -1  3  0 GPDT          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    30    59  0 -1  3  0 CSTM          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    31   158  0 -1  1  0 GEOM2         0      0      0   1024      0      0        3         0/    0        0/    0\r\n  0  0    24  0    32    24  1 -1  1  0 GEOM3         0      0     64      0      0      0        3         0/    0        0/    0\r\n  0  0   158  0    33   158  0  0  0  0 GEOM4         0      0      0     64      0      0        3         0/    0        0/    0\r\n  0  0   158  0    34    59  0 -1  3  0 BGPDT         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    35    57  0 -1  3  0 SIL           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0 16383  0    36 32705  0 -1  3  0 SCRATCH1      0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0 16383  0    37 32706  0 -1  3  0 SCRATCH2      0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     8  0    38     8  1 -1  3  0 MPTA          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    39    97  0 -1  3  0 ECT           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0 16383  0    40 32707  0 -1  3  0 SCRATCH3      0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0 16383  0    41 32708  0 -1  3  0 SCRATCH4      0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    17  0    42    17  1 -1  3  0 PLTSETX       0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    43   154  0 -1  3  0 PLTPAR        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    44   154  0 -1  3  0 GPSETS        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    45   154  0 -1  3  0 ELSETS        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    46    82  0 -1  3  0 GPTT          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    47    56  0 -1  3  0 GEI           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    48    97  0 -1  3  0 GPECT         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    29  0    49    29  1 -1  3  0 MPTX          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    50    82  0 -1  3  0 PCOMPS        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    29  0    51    29  1 -1  3  0 EPTX          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    44  0    52    44  1 -1  3  0 MELM          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    44  0    53    44  1 -1  3  0 MDICT         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    56  0    54    54  0 -1  3  0 KGGX          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    93  0    55    82  0 -1  3  0 MGG           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    56     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    57     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    58     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    59     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    60     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    61     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    62     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    63     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    64     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    65     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    66     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    67     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    68     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    69     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n\r\n      TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n  0  0     0  0    70     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    71     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    72     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    73     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    74     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    75     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    76     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    77     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    78     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    79     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0     0  0    80     0  0  0  0  0               0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0 32767   158  0  0  0  0 EDT           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0 32767    82  0 -1  1  0 DIT           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    15  0 32767    15  0 -1  1  0 PCDB          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0 32767   158  0  0  0  0 XYCDB         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    23   105  0 -1  2  0 BGPDP         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    38   154  0 -1  2  0 SIP           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    23  0    42    23  1 -1  2  0 PLOTX1        0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    42    82  0 -1  2  0 SLT           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    32    82  0 -1  2  0 EST           0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0   158  0    49    37  0 -1  2  0 OPTP1         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    97  0    24    97  0 -1  2  0 KELM          0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    97  0    51    97  0 -1  2  0 KDICT         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    52  0    52    52  0 -1  2  0 OGPWG         0      0      0      0      0      0        0         0/    0        0/    0\r\n  0  0    50  0    53    50  0 -1  2  0 XXX           0      0      0      0      0      0        0         0/    0        0/    0\r\n                               EACH BLOCK CONTAINS 1024 WORDS.\r\n POOL FILE CONTENTS   EQ    SIZE   FILE   DATA BLOCK\r\n                       0      0      1   XOSCAR  \r\n\r\n\r\n\r\n                            MEMORY DATA BASE DIRECTORY\r\n\r\n    UNIT    NAME   CURRENT  IN-MEM   DISK \r\n                    BLOCK   BLOCKS  BLOCKS \r\n\r\n      8   NPTP           1       0       1\r\n     22   POOL           1       4       0\r\n     23   GEOM1          1       1       0\r\n     24   EPT            1       1       0\r\n     25   MPT            1       1       0\r\n     28   CASE           1       1       0\r\n     31   GEOM2          1       1       0\r\n     32   GEOM3          1       1       0\r\n     33   GEOM4          1       1       0\r\n     38   IFPFILE        1       1       0\r\n     39   SCRATCH1       1       1       0\r\n     41   SCRATC15       1       5       0\r\n\r\n CURRENT IN-MEMORY BLOCKS =      18\r\n CURRENT DISK BLOCKS      =       1\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD4    ELEMENTS (ELEMENT TYPE  64) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE FROM GINOFILE MODULE\r\n     TRAILER OF SCRATCH3 FILE IN PREVIOUS MODULE = (303)   36    6    2    1    3    2824\r\n     MATRIX CONTENTS OF THIS FILE WILL BE TRANSFERRED TO GINO FILE XXX     \r\n\r\n0*** USER INFORMATION MESSAGE, DATA TRANSFER FROM PREVIOUS SCRATCH3 FILE TO XXX      IS ACCOMPLISHED\r\n     TRAILER OF THE NEW GINO FILE XXX       = (201)   36    6    2    1    3    2824\r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0      MATRIX XXX      (GINO NAME 101 ) IS A S.P.REAL     36 COLUMN X      6 ROW RECTANG  MATRIX.\r\n0COLUMN      1      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN      2      ROWS      2 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00\r\n0COLUMN      3      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00\r\n0COLUMN      4      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN      5      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN      6      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN      7      ROWS      1 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00 -1.00000E+00\r\n0COLUMN      8      ROWS      2 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00\r\n0COLUMN      9      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00  1.00000E+00  0.00000E+00\r\n0COLUMN     10      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     11      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     12      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     13      ROWS      1 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00 -1.00000E+00\r\n0COLUMN     14      ROWS      2 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  1.00000E+00\r\n0COLUMN     15      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0    MATRIX  XXX         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   1.00000E+00  1.00000E+00 -1.00000E+00\r\n0COLUMN     16      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     17      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     18      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     19      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     20      ROWS      2 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  1.00000E+00\r\n0COLUMN     21      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00 -1.00000E+00\r\n0COLUMN     22      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     23      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     24      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     25      ROWS      1 THRU      1     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     26      ROWS      2 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  2.00000E+00\r\n0COLUMN     27      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00 -2.00000E+00\r\n0COLUMN     28      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     29      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n1     TESTING GINOFILE MODULE                                               /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-31-1A                                                                                            \r\n0     TO CAPTURE SCRATCH 3 OF GPWG MODULE                                                                                           \r\n0    MATRIX  XXX         CONTINUED                                                                                                  \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n   1.00000E+00\r\n0COLUMN     30      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     31      ROWS      1 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00 -1.00000E+00\r\n0COLUMN     32      ROWS      2 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00  0.00000E+00  0.00000E+00  0.00000E+00  2.00000E+00\r\n0COLUMN     33      ROWS      3 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00  1.00000E+00 -2.00000E+00\r\n0COLUMN     34      ROWS      4 THRU      4     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     35      ROWS      5 THRU      5     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0COLUMN     36      ROWS      6 THRU      6     --------------------------------------------------\r\n \r\n   1.00000E+00\r\n0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =       3\r\n0THE DENSITY OF THIS MATRIX IS  28.24 PERCENT.\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TESTING GINOFILE MODULE                                            \r\n DATE:  5/17/95\r\n END TIME: 16:41:21\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01321a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01321A,NASTRAN                                                           \r\n     SOL   1,0                                                                       \r\n     DIAG  40                                                                        \r\n     APP   DISP                                                                      \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD          \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-32-1A                                   \r\n                  3      LABEL    = MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                   \r\n                  4      $                                                                               \r\n                  5      $    MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE                    \r\n                  6      $           OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0].                    \r\n                  7      $           UNDER A UNIFORM PRESSURE LOADING.                                   \r\n                  8      $                                                                               \r\n                  9      $       * * COMPARISON OF T3 DEFLECTION AT GRID 25 * *                          \r\n                 10      $                                                                               \r\n                 11      $         COSMIC/NASTRAN          MSC/NASTRAN                                   \r\n                 12      $        CTRIA3      CQUAD4          CTRIA3        THEORETICAL                  \r\n                 13      $      --------------------------------------------------------                 \r\n                 14      $      -1.685E-3*  -1.855E-3       -1.622E-3        -1.836E-3                   \r\n                 15      $               * PLOAD CARDS WERE USED, NOT PLOAD4                             \r\n                 16      $                                                                               \r\n                 17      $                                                                               \r\n                 18      $   REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS.                   \r\n                 19      $              M GRAW-HILL BOOK COMPANY.  (PAGE 248-250)                        \r\n                 20      $                                                                               \r\n                 21      $                                                                               \r\n                 22      SET 1 = 2,7,12,17                                                               \r\n                 23      DISP  = ALL                                                                     \r\n                 24      OLOAD = ALL                                                                     \r\n                 25      FORCE = 1                                                                       \r\n                 26      SPC   = 1                                                                       \r\n                 27      LOAD  = 1                                                                       \r\n                 28      STRESS(LAYER) = 1                                                               \r\n                 29      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    69, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRIA3  1       1       1       6       2                                       \r\n                    2-        CTRIA3  2       1       2       6       7       45.0                            \r\n                    3-        CTRIA3  3       1       6       11      7                                       \r\n                    4-        CTRIA3  4       1       7       11      12      45.0                            \r\n                    5-        CTRIA3  5       1       11      16      12                                      \r\n                    6-        CTRIA3  6       1       12      16      17      45.0                            \r\n                    7-        CTRIA3  7       1       16      21      17                                      \r\n                    8-        CTRIA3  8       1       17      21      22      45.0                            \r\n                    9-        CTRIA3  9       1       2       7       3                                       \r\n                   10-        CTRIA3  10      1       3       7       8       45.0                            \r\n                   11-        CTRIA3  11      1       7       12      8                                       \r\n                   12-        CTRIA3  12      1       8       12      13      45.0                            \r\n                   13-        CTRIA3  13      1       12      17      13                                      \r\n                   14-        CTRIA3  14      1       13      17      18      45.0                            \r\n                   15-        CTRIA3  15      1       17      22      18                                      \r\n                   16-        CTRIA3  16      1       18      22      23      45.0                            \r\n                   17-        CTRIA3  17      1       3       8       4                                       \r\n                   18-        CTRIA3  18      1       4       8       9       45.0                            \r\n                   19-        CTRIA3  19      1       8       13      9                                       \r\n                   20-        CTRIA3  20      1       9       13      14      45.0                            \r\n                   21-        CTRIA3  21      1       13      18      14                                      \r\n                   22-        CTRIA3  22      1       14      18      19      45.0                            \r\n                   23-        CTRIA3  23      1       18      23      19                                      \r\n                   24-        CTRIA3  24      1       19      23      24      45.0                            \r\n                   25-        CTRIA3  25      1       4       9       5                                       \r\n                   26-        CTRIA3  26      1       5       9       10      45.0                            \r\n                   27-        CTRIA3  27      1       9       14      10                                      \r\n                   28-        CTRIA3  28      1       10      14      15      45.0                            \r\n                   29-        CTRIA3  29      1       14      19      15                                      \r\n                   30-        CTRIA3  30      1       15      19      20      45.0                            \r\n                   31-        CTRIA3  31      1       19      24      20                                      \r\n                   32-        CTRIA3  32      1       20      24      25      45.0                            \r\n                   33-        GRID    1               0.000   0.000   0.000                                   \r\n                   34-        GRID    2               0.000   0.250   0.000                                   \r\n                   35-        GRID    3               0.000   0.500   0.000                                   \r\n                   36-        GRID    4               0.000   0.750   0.000                                   \r\n                   37-        GRID    5               0.000   1.000   0.000                                   \r\n                   38-        GRID    6               0.250   0.000   0.000                                   \r\n                   39-        GRID    7               0.250   0.250   0.000                                   \r\n                   40-        GRID    8               0.250   0.500   0.000                                   \r\n                   41-        GRID    9               0.250   0.750   0.000                                   \r\n                   42-        GRID    10              0.250   1.000   0.000                                   \r\n                   43-        GRID    11              0.500   0.000   0.000                                   \r\n                   44-        GRID    12              0.500   0.250   0.000                                   \r\n                   45-        GRID    13              0.500   0.500   0.000                                   \r\n                   46-        GRID    14              0.500   0.750   0.000                                   \r\n                   47-        GRID    15              0.500   1.000   0.000                                   \r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n\r\n      MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    16              0.750   0.000   0.000                                   \r\n                   49-        GRID    17              0.750   0.250   0.000                                   \r\n                   50-        GRID    18              0.750   0.500   0.000                                   \r\n                   51-        GRID    19              0.750   0.750   0.000                                   \r\n                   52-        GRID    20              0.750   1.000   0.000                                   \r\n                   53-        GRID    21              1.000   0.000   0.000                                   \r\n                   54-        GRID    22              1.000   0.250   0.000                                   \r\n                   55-        GRID    23              1.000   0.500   0.000                                   \r\n                   56-        GRID    24              1.000   0.750   0.000                                   \r\n                   57-        GRID    25              1.000   1.000   0.000                                   \r\n                   58-        MAT8    1       20.0+06 .50+6   .25     .250+6                                  \r\n                   59-        PCOMP   1       -.001                                                   +PC1    \r\n                   60-        +PC1    1       .000666 0.0     YES     1       .000666 90.0    YES     +PC2    \r\n                   61-        +PC2    1       .000666 0.0     YES                                             \r\n                   62-        PLOAD4  1       1       -1.0-04                         THRU    32              \r\n                   63-        SPC1    1       6       1       THRU    25                                      \r\n                   64-        SPC1    1       15      22      23      24                                      \r\n                   65-        SPC1    1       24      10      15      20                                      \r\n                   66-        SPC1    1       1234    2       3       4       5                               \r\n                   67-        SPC1    1       1235    6       11      16      21                              \r\n                   68-        SPC1    1       1245    25                                                      \r\n                   69-        SPC1    1       12345   1                                                       \r\n                              ENDDATA\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            129\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    5.160\r\n                                        RMS WAVEFRONT    5.355\r\n                                        RMS BANDWIDTH    5.430\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            115\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.600\r\n                                        RMS WAVEFRONT    4.796\r\n                                        RMS BANDWIDTH    4.796\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        6         6\r\n                                        PROFILE (P)                        129       115\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.160     4.600\r\n                                        RMS WAVEFRONT (C-RMS)            5.355     4.796\r\n                                        RMS BANDWITCH (B-RMS)            5.430     4.796\r\n                                        NUMBER OF GRID POINTS (N)                     25\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                32\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                        56\r\n                                        MATRIX DENSITY, PERCENT                   21.920\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   7\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       3       3       6       4      10\r\n                         SEQGP          5      15       6       2       7       5       8       9\r\n                         SEQGP          9      14      10      19      11       4      12       8\r\n                         SEQGP         13      13      14      18      15      22      16       7\r\n                         SEQGP         17      12      18      17      19      21      20      24\r\n                         SEQGP         21      11      22      16      23      20      24      23\r\n                         SEQGP         25      25\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n\r\n\r\n         THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL AND MAT2 ENTRIES.\r\n\r\n\r\n PSHELL             1   100000001  1.9980E-03   200000001  1.0000E+00   300000001  1.0000E+00  0.0000E+00\r\n          -9.9900E-04  9.9900E-04   400000001         0.0         0.0  0.0000E+00\r\n\r\n MAT2       100000001  1.3521E+07  1.2520E+05  0.0000E+00  7.0110E+06  0.0000E+00  2.5000E+05  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       200000001  1.9308E+07  1.2520E+05  0.0000E+00  1.2241E+06  0.0000E+00  2.5000E+05  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       300000001  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n\r\n MAT2       400000001  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00  0.0000E+00\r\n                  0.0         0.0         0.0         0.0         0.0         0.0         0.0         0.0\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA3    ELEMENTS (ELEMENT TYPE  83) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   5.0329729E-14\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            1.174108E-03   0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            2.058508E-03   0.0                           \r\n             4      G      0.0            0.0            0.0            0.0            2.531769E-03   0.0                           \r\n             5      G      0.0            0.0            0.0            0.0            2.712162E-03   0.0                           \r\n             6      G      0.0            0.0            0.0           -1.205491E-03   0.0            0.0                           \r\n             7      G      0.0            0.0           -2.845027E-04  -1.039763E-03   1.089696E-03   0.0                           \r\n             8      G      0.0            0.0           -4.949340E-04  -6.172197E-04   1.885620E-03   0.0                           \r\n             9      G      0.0            0.0           -6.108230E-04  -2.823236E-04   2.317570E-03   0.0                           \r\n            10      G      0.0            0.0           -6.506284E-04   0.0            2.433288E-03   0.0                           \r\n            11      G      0.0            0.0            0.0           -2.270027E-03   0.0            0.0                           \r\n            12      G      0.0            0.0           -5.257187E-04  -1.911599E-03   8.229751E-04   0.0                           \r\n            13      G      0.0            0.0           -9.090877E-04  -1.163206E-03   1.418107E-03   0.0                           \r\n            14      G      0.0            0.0           -1.119404E-03  -5.145338E-04   1.740601E-03   0.0                           \r\n            15      G      0.0            0.0           -1.187044E-03   0.0            1.808347E-03   0.0                           \r\n            16      G      0.0            0.0            0.0           -3.017362E-03   0.0            0.0                           \r\n            17      G      0.0            0.0           -6.887648E-04  -2.467892E-03   4.426815E-04   0.0                           \r\n            18      G      0.0            0.0           -1.183425E-03  -1.520135E-03   7.572556E-04   0.0                           \r\n            19      G      0.0            0.0           -1.453424E-03  -6.589617E-04   9.274684E-04   0.0                           \r\n            20      G      0.0            0.0           -1.536301E-03   0.0            9.534608E-04   0.0                           \r\n            21      G      0.0            0.0            0.0           -3.372213E-03   0.0            0.0                           \r\n            22      G      0.0            0.0           -7.507061E-04  -2.642528E-03   0.0            0.0                           \r\n            23      G      0.0            0.0           -1.282222E-03  -1.624640E-03   0.0            0.0                           \r\n            24      G      0.0            0.0           -1.570616E-03  -6.878410E-04   0.0            0.0                           \r\n            25      G      0.0            0.0           -1.656966E-03   0.0            0.0            0.0                           \r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.041667E-06   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n             4      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n             5      G      0.0            0.0           -2.083333E-06   0.0            0.0            0.0                           \r\n             6      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n             7      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n             8      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n             9      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            10      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            11      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            12      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            13      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            14      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            15      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            16      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            17      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            18      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            19      G      0.0            0.0           -6.250000E-06   0.0            0.0            0.0                           \r\n            20      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            21      G      0.0            0.0           -2.083333E-06   0.0            0.0            0.0                           \r\n            22      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            23      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            24      G      0.0            0.0           -3.125000E-06   0.0            0.0            0.0                           \r\n            25      G      0.0            0.0           -1.041667E-06   0.0            0.0            0.0                           \r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n \r\n                      F O R C E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( T R I A 3 )\r\n\r\n      ELEMENT                  - MEMBRANE  FORCES -                      - BENDING   MOMENTS -           - TRANSVERSE SHEAR FORCES -\r\n        ID                FX            FY            FXY           MX            MY            MXY           VX            VY\r\n0           2         0.00000E+00   0.00000E+00   3.89329E-06   1.06252E-06   1.91043E-06  -1.59166E-06  -2.47440E-05   0.00000E+00\r\n0           7         0.00000E+00   0.00000E+00   1.82895E-07   1.78829E-06  -5.30094E-07   5.00982E-05  -1.00028E-04   0.00000E+00\r\n0          12         0.00000E+00   0.00000E+00   1.41782E-05   1.26613E-05   1.08284E-05  -1.90515E-05   2.08444E-06   0.00000E+00\r\n0          17         0.00000E+00   0.00000E+00   8.87498E-06   5.75467E-08  -7.24808E-07  -6.16088E-05   1.08991E-04   0.00000E+00\r\n1     CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-32-1A                                                                                            \r\n0     MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                                                                            \r\n \r\n                    S T R E S S E S   I N   L A Y E R E D   C O M P O S I T E   E L E M E N T S   ( T R I A 3 )\r\n0 ELEMENT   PLY *STRESSES IN FIBER AND MATRIX DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESSES*  * SHEAR BOND  *   *MAXIMUM*\r\n    ID      ID  *  NORMAL-1      NORMAL-2      SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z      SHEAR-2Z*  *FAILURE INDEX*   * INDEX *\r\n\r\n0       2     1   4.55979E+00   2.49249E-01  -1.41822E+00       0.000      -1.71311E-02   0.00000E+00     0.000    \r\n              2   3.87700E-07   7.33655E-09   6.19754E-08       0.000      -1.71311E-02   0.00000E+00     0.000    \r\n              3  -4.55979E+00  -2.49249E-01   1.41822E+00       0.000      -5.52496E-09   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0       7     1   1.83261E-01   7.33039E-01  -5.31156E-01       0.000      -6.92532E-02   0.00000E+00     0.000    \r\n              2   1.28134E-06   8.00835E-09   2.32112E-08       0.000      -6.92532E-02   0.00000E+00     0.000    \r\n              3  -1.83261E-01  -7.33039E-01   5.31156E-01       0.000      -2.23348E-08   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0      12     1   2.51977E+01   1.15435E+00  -7.59984E-01       0.000       1.44313E-03   0.00000E+00     0.000    \r\n              2   1.75203E-06   3.81630E-08   3.32109E-08       0.000       1.44313E-03   0.00000E+00     0.000    \r\n              3  -2.51977E+01  -1.15435E+00   7.59984E-01       0.000       4.65423E-10   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n0      17     1   9.22592E+00   5.76620E-02  -7.26260E-01       0.000       7.54586E-02   0.00000E+00     0.000    \r\n              2   2.51991E-09   1.00792E-08   3.17372E-08       0.000       7.54586E-02   0.00000E+00     0.000    \r\n              3  -9.22592E+00  -5.76620E-02   7.26260E-01       0.000       2.43361E-08   0.00000E+00     0.000    \r\n                                                                                                                          0.000\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD        \r\n DATE:  5/17/95\r\n END TIME: 16:41:51\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01331a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01331A,NASTRAN                                                           \r\n     SOL   1,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = CTRIA3 3-NODE SHELL ROOF TEST                                        \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-33-1A                                   \r\n                  3      LABEL    = LAMINATED COMPOSITE SHELL                                            \r\n                  4      $                                                                               \r\n                  5      $                                                                               \r\n                  6      $    MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL.                               \r\n                  7      $           SYMMETRIC ANGLE PLY LAYUP                                           \r\n                  8      $           [ 45/-45/15/-15/-15/15/-45/45 ]                                     \r\n                  9      $                                                                               \r\n                 10      $                                                                               \r\n                 11      $       * * COMPARISION OF T1 DEFLECTIONS AT * *                                \r\n                 12      $       * * GRID POINTS 34,35,36,43,44,45    * *                                \r\n                 13      $                                                                               \r\n                 14      $                COSMIC/NASTRAN           MSC/NASTRAN                           \r\n                 15      $   USING:     CTRIA3      CQUAD4      CTRIA3     CQUAD4                        \r\n                 16      $           -----------------------------------------------                     \r\n                 17      $   GRID 34    -0.9839    -1.1187     -0.9928    -1.0662                        \r\n                 18      $   GRID 35    -1.2566    -1.4143     -1.2466    -1.3441                        \r\n                 19      $   GRID 36    -1.5126    -1.6911     -1.5300    -1.6074                        \r\n                 20      $   GRID 43    -1.2343    -1.3918     -1.2262    -1.3267                        \r\n                 21      $   GRID 44    -1.5792    -1.7590     -1.5955    -1.6739                        \r\n                 22      $   GRID 45    -1.9093    -2.1082     -1.9309    -2.0079                        \r\n                 23      $                                                                               \r\n                 24      $                                                                               \r\n                 25      SPC  = 1                                                                        \r\n                 26      LOAD = 1                                                                        \r\n                 27      DISP = ALL                                                                      \r\n                 28      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   358, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1               0.0     0.0     0.0     -1.0    0.0     0.0     +MOR1001\r\n                    2-        +MOR10010.0     0.0     1.0                                                     \r\n                    3-        CORD2R  2       0       0.0     0.0     0.0     0.0     0.0     1.0     +C2     \r\n                    4-        +C2     1.0     0.0     0.0                                                     \r\n                    5-        CORD2R  3       0       0.0     0.0     0.0     0.0     0.0     1.0     +C3     \r\n                    6-        +C3     1.0     0.0     0.0                                                     \r\n                    7-        CRIGD1  1       81      5001                                                    \r\n                    8-        CTRIA3  1       1       1       2       10                                      \r\n                    9-        CTRIA3  2       1       10      2       11      45.000                          \r\n                   10-        CTRIA3  3       1       2       3       11                                      \r\n                   11-        CTRIA3  4       1       11      3       12      45.000                          \r\n                   12-        CTRIA3  5       1       3       4       12                                      \r\n                   13-        CTRIA3  6       1       12      4       13      45.000                          \r\n                   14-        CTRIA3  7       1       4       5       13                                      \r\n                   15-        CTRIA3  8       1       13      5       14      45.000                          \r\n                   16-        CTRIA3  9       1       5       6       14                                      \r\n                   17-        CTRIA3  10      1       14      6       15      45.000                          \r\n                   18-        CTRIA3  11      1       6       7       15                                      \r\n                   19-        CTRIA3  12      1       15      7       16      45.000                          \r\n                   20-        CTRIA3  13      1       7       8       16                                      \r\n                   21-        CTRIA3  14      1       16      8       17      45.000                          \r\n                   22-        CTRIA3  15      1       8       9       17                                      \r\n                   23-        CTRIA3  16      1       17      9       18      45.000                          \r\n                   24-        CTRIA3  17      1       10      11      19                                      \r\n                   25-        CTRIA3  18      1       19      11      20      45.000                          \r\n                   26-        CTRIA3  19      1       11      12      20                                      \r\n                   27-        CTRIA3  20      1       20      12      21      45.000                          \r\n                   28-        CTRIA3  21      1       12      13      21                                      \r\n                   29-        CTRIA3  22      1       21      13      22      45.000                          \r\n                   30-        CTRIA3  23      1       13      14      22                                      \r\n                   31-        CTRIA3  24      1       22      14      23      45.000                          \r\n                   32-        CTRIA3  25      1       14      15      23                                      \r\n                   33-        CTRIA3  26      1       23      15      24      45.000                          \r\n                   34-        CTRIA3  27      1       15      16      24                                      \r\n                   35-        CTRIA3  28      1       24      16      25      45.000                          \r\n                   36-        CTRIA3  29      1       16      17      25                                      \r\n                   37-        CTRIA3  30      1       25      17      26      45.000                          \r\n                   38-        CTRIA3  31      1       17      18      26                                      \r\n                   39-        CTRIA3  32      1       26      18      27      45.000                          \r\n                   40-        CTRIA3  33      1       19      20      28                                      \r\n                   41-        CTRIA3  34      1       28      20      29      45.000                          \r\n                   42-        CTRIA3  35      1       20      21      29                                      \r\n                   43-        CTRIA3  36      1       29      21      30      45.000                          \r\n                   44-        CTRIA3  37      1       21      22      30                                      \r\n                   45-        CTRIA3  38      1       30      22      31      45.000                          \r\n                   46-        CTRIA3  39      1       22      23      31                                      \r\n                   47-        CTRIA3  40      1       31      23      32      45.000                          \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRIA3  41      1       23      24      32                                      \r\n                   49-        CTRIA3  42      1       32      24      33      45.000                          \r\n                   50-        CTRIA3  43      1       24      25      33                                      \r\n                   51-        CTRIA3  44      1       33      25      34      45.000                          \r\n                   52-        CTRIA3  45      1       25      26      34                                      \r\n                   53-        CTRIA3  46      1       34      26      35      45.000                          \r\n                   54-        CTRIA3  47      1       26      27      35                                      \r\n                   55-        CTRIA3  48      1       35      27      36      45.000                          \r\n                   56-        CTRIA3  49      1       28      29      37                                      \r\n                   57-        CTRIA3  50      1       37      29      38      45.000                          \r\n                   58-        CTRIA3  51      1       29      30      38                                      \r\n                   59-        CTRIA3  52      1       38      30      39      45.000                          \r\n                   60-        CTRIA3  53      1       30      31      39                                      \r\n                   61-        CTRIA3  54      1       39      31      40      45.000                          \r\n                   62-        CTRIA3  55      1       31      32      40                                      \r\n                   63-        CTRIA3  56      1       40      32      41      45.000                          \r\n                   64-        CTRIA3  57      1       32      33      41                                      \r\n                   65-        CTRIA3  58      1       41      33      42      45.000                          \r\n                   66-        CTRIA3  59      1       33      34      42                                      \r\n                   67-        CTRIA3  60      1       42      34      43      45.000                          \r\n                   68-        CTRIA3  61      1       34      35      43                                      \r\n                   69-        CTRIA3  62      1       43      35      44      45.000                          \r\n                   70-        CTRIA3  63      1       35      36      44                                      \r\n                   71-        CTRIA3  64      1       44      36      45      45.000                          \r\n                   72-        CTRIA3  65      1       37      38      46                                      \r\n                   73-        CTRIA3  66      1       46      38      47      45.000                          \r\n                   74-        CTRIA3  67      1       38      39      47                                      \r\n                   75-        CTRIA3  68      1       47      39      48      45.000                          \r\n                   76-        CTRIA3  69      1       39      40      48                                      \r\n                   77-        CTRIA3  70      1       48      40      49      45.000                          \r\n                   78-        CTRIA3  71      1       40      41      49                                      \r\n                   79-        CTRIA3  72      1       49      41      50      45.000                          \r\n                   80-        CTRIA3  73      1       41      42      50                                      \r\n                   81-        CTRIA3  74      1       50      42      51      45.000                          \r\n                   82-        CTRIA3  75      1       42      43      51                                      \r\n                   83-        CTRIA3  76      1       51      43      52      45.000                          \r\n                   84-        CTRIA3  77      1       43      44      52                                      \r\n                   85-        CTRIA3  78      1       52      44      53      45.000                          \r\n                   86-        CTRIA3  79      1       44      45      53                                      \r\n                   87-        CTRIA3  80      1       53      45      54      45.000                          \r\n                   88-        CTRIA3  81      1       46      47      55                                      \r\n                   89-        CTRIA3  82      1       55      47      56      45.000                          \r\n                   90-        CTRIA3  83      1       47      48      56                                      \r\n                   91-        CTRIA3  84      1       56      48      57      45.000                          \r\n                   92-        CTRIA3  85      1       48      49      57                                      \r\n                   93-        CTRIA3  86      1       57      49      58      45.000                          \r\n                   94-        CTRIA3  87      1       49      50      58                                      \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CTRIA3  88      1       58      50      59      45.000                          \r\n                   96-        CTRIA3  89      1       50      51      59                                      \r\n                   97-        CTRIA3  90      1       59      51      60      45.000                          \r\n                   98-        CTRIA3  91      1       51      52      60                                      \r\n                   99-        CTRIA3  92      1       60      52      61      45.000                          \r\n                  100-        CTRIA3  93      1       52      53      61                                      \r\n                  101-        CTRIA3  94      1       61      53      62      45.000                          \r\n                  102-        CTRIA3  95      1       53      54      62                                      \r\n                  103-        CTRIA3  96      1       62      54      63      45.000                          \r\n                  104-        CTRIA3  97      1       55      56      64                                      \r\n                  105-        CTRIA3  98      1       64      56      65      45.000                          \r\n                  106-        CTRIA3  99      1       56      57      65                                      \r\n                  107-        CTRIA3  100     1       65      57      66      45.000                          \r\n                  108-        CTRIA3  101     1       57      58      66                                      \r\n                  109-        CTRIA3  102     1       66      58      67      45.000                          \r\n                  110-        CTRIA3  103     1       58      59      67                                      \r\n                  111-        CTRIA3  104     1       67      59      68      45.000                          \r\n                  112-        CTRIA3  105     1       59      60      68                                      \r\n                  113-        CTRIA3  106     1       68      60      69      45.000                          \r\n                  114-        CTRIA3  107     1       60      61      69                                      \r\n                  115-        CTRIA3  108     1       69      61      70      45.000                          \r\n                  116-        CTRIA3  109     1       61      62      70                                      \r\n                  117-        CTRIA3  110     1       70      62      71      45.000                          \r\n                  118-        CTRIA3  111     1       62      63      71                                      \r\n                  119-        CTRIA3  112     1       71      63      72      45.000                          \r\n                  120-        CTRIA3  113     1       64      65      73                                      \r\n                  121-        CTRIA3  114     1       73      65      74      45.000                          \r\n                  122-        CTRIA3  115     1       65      66      74                                      \r\n                  123-        CTRIA3  116     1       74      66      75      45.000                          \r\n                  124-        CTRIA3  117     1       66      67      75                                      \r\n                  125-        CTRIA3  118     1       75      67      76      45.000                          \r\n                  126-        CTRIA3  119     1       67      68      76                                      \r\n                  127-        CTRIA3  120     1       76      68      77      45.000                          \r\n                  128-        CTRIA3  121     1       68      69      77                                      \r\n                  129-        CTRIA3  122     1       77      69      78      45.000                          \r\n                  130-        CTRIA3  123     1       69      70      78                                      \r\n                  131-        CTRIA3  124     1       78      70      79      45.000                          \r\n                  132-        CTRIA3  125     1       70      71      79                                      \r\n                  133-        CTRIA3  126     1       79      71      80      45.000                          \r\n                  134-        CTRIA3  127     1       71      72      80                                      \r\n                  135-        CTRIA3  128     1       80      72      81      45.000                          \r\n                  136-        GRID    1       1       25.000  0.000   0.000   1                               \r\n                  137-        GRID    2       1       25.000  5.000   0.000   1                               \r\n                  138-        GRID    3       1       25.000  10.000  0.000   1                               \r\n                  139-        GRID    4       1       25.000  15.000  0.000   1                               \r\n                  140-        GRID    5       1       25.000  20.000  0.000   1                               \r\n                  141-        GRID    6       1       25.000  25.000  0.000   1                               \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        GRID    7       1       25.000  30.000  0.000   1                               \r\n                  143-        GRID    8       1       25.000  35.000  0.000   1                               \r\n                  144-        GRID    9       1       25.000  40.000  0.000   1                               \r\n                  145-        GRID    10      1       25.000  0.000   3.125   1                               \r\n                  146-        GRID    11      1       25.000  5.000   3.125   1                               \r\n                  147-        GRID    12      1       25.000  10.000  3.125   1                               \r\n                  148-        GRID    13      1       25.000  15.000  3.125   1                               \r\n                  149-        GRID    14      1       25.000  20.000  3.125   1                               \r\n                  150-        GRID    15      1       25.000  25.000  3.125   1                               \r\n                  151-        GRID    16      1       25.000  30.000  3.125   1                               \r\n                  152-        GRID    17      1       25.000  35.000  3.125   1                               \r\n                  153-        GRID    18      1       25.000  40.000  3.125   1                               \r\n                  154-        GRID    19      1       25.000  0.000   6.250   1                               \r\n                  155-        GRID    20      1       25.000  5.000   6.250   1                               \r\n                  156-        GRID    21      1       25.000  10.000  6.250   1                               \r\n                  157-        GRID    22      1       25.000  15.000  6.250   1                               \r\n                  158-        GRID    23      1       25.000  20.000  6.250   1                               \r\n                  159-        GRID    24      1       25.000  25.000  6.250   1                               \r\n                  160-        GRID    25      1       25.000  30.000  6.250   1                               \r\n                  161-        GRID    26      1       25.000  35.000  6.250   1                               \r\n                  162-        GRID    27      1       25.000  40.000  6.250   1                               \r\n                  163-        GRID    28      1       25.000  0.000   9.375   1                               \r\n                  164-        GRID    29      1       25.000  5.000   9.375   1                               \r\n                  165-        GRID    30      1       25.000  10.000  9.375   1                               \r\n                  166-        GRID    31      1       25.000  15.000  9.375   1                               \r\n                  167-        GRID    32      1       25.000  20.000  9.375   1                               \r\n                  168-        GRID    33      1       25.000  25.000  9.375   1                               \r\n                  169-        GRID    34      1       25.000  30.000  9.375   1                               \r\n                  170-        GRID    35      1       25.000  35.000  9.375   1                               \r\n                  171-        GRID    36      1       25.000  40.000  9.375   1                               \r\n                  172-        GRID    37      1       25.000  0.000   12.500  1                               \r\n                  173-        GRID    38      1       25.000  5.000   12.500  1                               \r\n                  174-        GRID    39      1       25.000  10.000  12.500  1                               \r\n                  175-        GRID    40      1       25.000  15.000  12.500  1                               \r\n                  176-        GRID    41      1       25.000  20.000  12.500  1                               \r\n                  177-        GRID    42      1       25.000  25.000  12.500  1                               \r\n                  178-        GRID    43      1       25.000  30.000  12.500  1                               \r\n                  179-        GRID    44      1       25.000  35.000  12.500  1                               \r\n                  180-        GRID    45      1       25.000  40.000  12.500  1                               \r\n                  181-        GRID    46      1       25.000  0.000   15.625  1                               \r\n                  182-        GRID    47      1       25.000  5.000   15.625  1                               \r\n                  183-        GRID    48      1       25.000  10.000  15.625  1                               \r\n                  184-        GRID    49      1       25.000  15.000  15.625  1                               \r\n                  185-        GRID    50      1       25.000  20.000  15.625  1                               \r\n                  186-        GRID    51      1       25.000  25.000  15.625  1                               \r\n                  187-        GRID    52      1       25.000  30.000  15.625  1                               \r\n                  188-        GRID    53      1       25.000  35.000  15.625  1                               \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        GRID    54      1       25.000  40.000  15.625  1                               \r\n                  190-        GRID    55      1       25.000  0.000   18.750  1                               \r\n                  191-        GRID    56      1       25.000  5.000   18.750  1                               \r\n                  192-        GRID    57      1       25.000  10.000  18.750  1                               \r\n                  193-        GRID    58      1       25.000  15.000  18.750  1                               \r\n                  194-        GRID    59      1       25.000  20.000  18.750  1                               \r\n                  195-        GRID    60      1       25.000  25.000  18.750  1                               \r\n                  196-        GRID    61      1       25.000  30.000  18.750  1                               \r\n                  197-        GRID    62      1       25.000  35.000  18.750  1                               \r\n                  198-        GRID    63      1       25.000  40.000  18.750  1                               \r\n                  199-        GRID    64      1       25.000  0.000   21.875  1                               \r\n                  200-        GRID    65      1       25.000  5.000   21.875  1                               \r\n                  201-        GRID    66      1       25.000  10.000  21.875  1                               \r\n                  202-        GRID    67      1       25.000  15.000  21.875  1                               \r\n                  203-        GRID    68      1       25.000  20.000  21.875  1                               \r\n                  204-        GRID    69      1       25.000  25.000  21.875  1                               \r\n                  205-        GRID    70      1       25.000  30.000  21.875  1                               \r\n                  206-        GRID    71      1       25.000  35.000  21.875  1                               \r\n                  207-        GRID    72      1       25.000  40.000  21.875  1                               \r\n                  208-        GRID    73      1       25.000  0.000   25.000  1                               \r\n                  209-        GRID    74      1       25.000  5.000   25.000  1                               \r\n                  210-        GRID    75      1       25.000  10.000  25.000  1                               \r\n                  211-        GRID    76      1       25.000  15.000  25.000  1                               \r\n                  212-        GRID    77      1       25.000  20.000  25.000  1                               \r\n                  213-        GRID    78      1       25.000  25.000  25.000  1                               \r\n                  214-        GRID    79      1       25.000  30.000  25.000  1                               \r\n                  215-        GRID    80      1       25.000  35.000  25.000  1                               \r\n                  216-        GRID    81      1       25.000  40.000  25.000  1                               \r\n                  217-        GRID    5001    1       25.0    40.0    25.0    3                               \r\n                  218-        MAT8    1       20.0 E+70.5 E+070.25    0.25 E+70.25 E+70.25 E+7                \r\n                  219-        PARAM   AUTOSPC 1                                                               \r\n                  220-        PCOMP   1                                                               +PC1    \r\n                  221-        +PC1    1       .03125  45.0    YES                     -45.0   YES     +PC2    \r\n                  222-        +PC2    1       .03125  15.0    YES                     -15.0   YES     +PC3    \r\n                  223-        +PC3    1       .03125  -15.0   YES                     15.0    YES     +PC4    \r\n                  224-        +PC4    1       .03125  -45.0   YES                     45.0    YES             \r\n                  225-        PLOAD   1       -0.9E+0224      25      33                                      \r\n                  226-        PLOAD   1       -0.9E+0220      12      21                                      \r\n                  227-        PLOAD   1       -0.9E+0257      49      58                                      \r\n                  228-        PLOAD   1       -0.9E+0212      13      21                                      \r\n                  229-        PLOAD   1       -0.9E+0249      50      58                                      \r\n                  230-        PLOAD   1       -0.9E+0221      13      22                                      \r\n                  231-        PLOAD   1       -0.9E+021       2       10                                      \r\n                  232-        PLOAD   1       -0.9E+0213      14      22                                      \r\n                  233-        PLOAD   1       -0.9E+0210      2       11                                      \r\n                  234-        PLOAD   1       -0.9E+0222      14      23                                      \r\n                  235-        PLOAD   1       -0.9E+022       3       11                                      \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        PLOAD   1       -0.9E+0214      15      23                                      \r\n                  237-        PLOAD   1       -0.9E+0211      3       12                                      \r\n                  238-        PLOAD   1       -0.9E+0223      15      24                                      \r\n                  239-        PLOAD   1       -0.9E+023       4       12                                      \r\n                  240-        PLOAD   1       -0.9E+0215      16      24                                      \r\n                  241-        PLOAD   1       -0.9E+0212      4       13                                      \r\n                  242-        PLOAD   1       -0.9E+0224      16      25                                      \r\n                  243-        PLOAD   1       -0.9E+024       5       13                                      \r\n                  244-        PLOAD   1       -0.9E+0216      17      25                                      \r\n                  245-        PLOAD   1       -0.9E+0213      5       14                                      \r\n                  246-        PLOAD   1       -0.9E+0225      17      26                                      \r\n                  247-        PLOAD   1       -0.9E+025       6       14                                      \r\n                  248-        PLOAD   1       -0.9E+0217      18      26                                      \r\n                  249-        PLOAD   1       -0.9E+0214      6       15                                      \r\n                  250-        PLOAD   1       -0.9E+0226      18      27                                      \r\n                  251-        PLOAD   1       -0.9E+026       7       15                                      \r\n                  252-        PLOAD   1       -0.9E+0219      20      28                                      \r\n                  253-        PLOAD   1       -0.9E+0215      7       16                                      \r\n                  254-        PLOAD   1       -0.9E+0228      20      29                                      \r\n                  255-        PLOAD   1       -0.9E+027       8       16                                      \r\n                  256-        PLOAD   1       -0.9E+0220      21      29                                      \r\n                  257-        PLOAD   1       -0.9E+0216      8       17                                      \r\n                  258-        PLOAD   1       -0.9E+0229      21      30                                      \r\n                  259-        PLOAD   1       -0.9E+028       9       17                                      \r\n                  260-        PLOAD   1       -0.9E+0221      22      30                                      \r\n                  261-        PLOAD   1       -0.9E+0217      9       18                                      \r\n                  262-        PLOAD   1       -0.9E+0230      22      31                                      \r\n                  263-        PLOAD   1       -0.9E+0210      11      19                                      \r\n                  264-        PLOAD   1       -0.9E+0222      23      31                                      \r\n                  265-        PLOAD   1       -0.9E+0219      11      20                                      \r\n                  266-        PLOAD   1       -0.9E+0231      23      32                                      \r\n                  267-        PLOAD   1       -0.9E+0211      12      20                                      \r\n                  268-        PLOAD   1       -0.9E+0223      24      32                                      \r\n                  269-        PLOAD   1       -0.9E+0248      49      57                                      \r\n                  270-        PLOAD   1       -0.9E+0232      24      33                                      \r\n                  271-        PLOAD   1       -0.9E+0244      36      45                                      \r\n                  272-        PLOAD   1       -0.9E+0269      61      70                                      \r\n                  273-        PLOAD   1       -0.9E+0237      38      46                                      \r\n                  274-        PLOAD   1       -0.9E+0233      25      34                                      \r\n                  275-        PLOAD   1       -0.9E+0258      50      59                                      \r\n                  276-        PLOAD   1       -0.9E+0225      26      34                                      \r\n                  277-        PLOAD   1       -0.9E+0250      51      59                                      \r\n                  278-        PLOAD   1       -0.9E+0234      26      35                                      \r\n                  279-        PLOAD   1       -0.9E+0259      51      60                                      \r\n                  280-        PLOAD   1       -0.9E+0226      27      35                                      \r\n                  281-        PLOAD   1       -0.9E+0251      52      60                                      \r\n                  282-        PLOAD   1       -0.9E+0235      27      36                                      \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        PLOAD   1       -0.9E+0260      52      61                                      \r\n                  284-        PLOAD   1       -0.9E+0228      29      37                                      \r\n                  285-        PLOAD   1       -0.9E+0252      53      61                                      \r\n                  286-        PLOAD   1       -0.9E+0237      29      38                                      \r\n                  287-        PLOAD   1       -0.9E+0261      53      62                                      \r\n                  288-        PLOAD   1       -0.9E+0229      30      38                                      \r\n                  289-        PLOAD   1       -0.9E+0253      54      62                                      \r\n                  290-        PLOAD   1       -0.9E+0238      30      39                                      \r\n                  291-        PLOAD   1       -0.9E+0262      54      63                                      \r\n                  292-        PLOAD   1       -0.9E+0230      31      39                                      \r\n                  293-        PLOAD   1       -0.9E+0255      56      64                                      \r\n                  294-        PLOAD   1       -0.9E+0239      31      40                                      \r\n                  295-        PLOAD   1       -0.9E+0264      56      65                                      \r\n                  296-        PLOAD   1       -0.9E+0231      32      40                                      \r\n                  297-        PLOAD   1       -0.9E+0256      57      65                                      \r\n                  298-        PLOAD   1       -0.9E+0240      32      41                                      \r\n                  299-        PLOAD   1       -0.9E+0265      57      66                                      \r\n                  300-        PLOAD   1       -0.9E+0232      33      41                                      \r\n                  301-        PLOAD   1       -0.9E+0257      58      66                                      \r\n                  302-        PLOAD   1       -0.9E+0241      33      42                                      \r\n                  303-        PLOAD   1       -0.9E+0266      58      67                                      \r\n                  304-        PLOAD   1       -0.9E+0233      34      42                                      \r\n                  305-        PLOAD   1       -0.9E+0258      59      67                                      \r\n                  306-        PLOAD   1       -0.9E+0242      34      43                                      \r\n                  307-        PLOAD   1       -0.9E+0267      59      68                                      \r\n                  308-        PLOAD   1       -0.9E+0234      35      43                                      \r\n                  309-        PLOAD   1       -0.9E+0259      60      68                                      \r\n                  310-        PLOAD   1       -0.9E+0243      35      44                                      \r\n                  311-        PLOAD   1       -0.9E+0268      60      69                                      \r\n                  312-        PLOAD   1       -0.9E+0235      36      44                                      \r\n                  313-        PLOAD   1       -0.9E+0260      61      69                                      \r\n                  314-        PLOAD   1       -0.9E+0275      67      76                                      \r\n                  315-        PLOAD   1       -0.9E+0242      43      51                                      \r\n                  316-        PLOAD   1       -0.9E+0267      68      76                                      \r\n                  317-        PLOAD   1       -0.9E+0261      62      70                                      \r\n                  318-        PLOAD   1       -0.9E+0246      38      47                                      \r\n                  319-        PLOAD   1       -0.9E+0270      62      71                                      \r\n                  320-        PLOAD   1       -0.9E+0238      39      47                                      \r\n                  321-        PLOAD   1       -0.9E+0262      63      71                                      \r\n                  322-        PLOAD   1       -0.9E+0247      39      48                                      \r\n                  323-        PLOAD   1       -0.9E+0271      63      72                                      \r\n                  324-        PLOAD   1       -0.9E+0239      40      48                                      \r\n                  325-        PLOAD   1       -0.9E+0264      65      73                                      \r\n                  326-        PLOAD   1       -0.9E+0248      40      49                                      \r\n                  327-        PLOAD   1       -0.9E+0273      65      74                                      \r\n                  328-        PLOAD   1       -0.9E+0240      41      49                                      \r\n                  329-        PLOAD   1       -0.9E+0265      66      74                                      \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n\r\n      LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        PLOAD   1       -0.9E+0249      41      50                                      \r\n                  331-        PLOAD   1       -0.9E+0274      66      75                                      \r\n                  332-        PLOAD   1       -0.9E+0241      42      50                                      \r\n                  333-        PLOAD   1       -0.9E+0266      67      75                                      \r\n                  334-        PLOAD   1       -0.9E+0250      42      51                                      \r\n                  335-        PLOAD   1       -0.9E+0269      70      78                                      \r\n                  336-        PLOAD   1       -0.9E+0253      45      54                                      \r\n                  337-        PLOAD   1       -0.9E+0278      70      79                                      \r\n                  338-        PLOAD   1       -0.9E+0251      43      52                                      \r\n                  339-        PLOAD   1       -0.9E+0276      68      77                                      \r\n                  340-        PLOAD   1       -0.9E+0243      44      52                                      \r\n                  341-        PLOAD   1       -0.9E+0268      69      77                                      \r\n                  342-        PLOAD   1       -0.9E+0252      44      53                                      \r\n                  343-        PLOAD   1       -0.9E+0277      69      78                                      \r\n                  344-        PLOAD   1       -0.9E+0244      45      53                                      \r\n                  345-        PLOAD   1       -0.9E+0280      72      81                                      \r\n                  346-        PLOAD   1       -0.9E+0279      71      80                                      \r\n                  347-        PLOAD   1       -0.9E+0247      48      56                                      \r\n                  348-        PLOAD   1       -0.9E+0246      47      55                                      \r\n                  349-        PLOAD   1       -0.9E+0270      71      79                                      \r\n                  350-        PLOAD   1       -0.9E+0255      47      56                                      \r\n                  351-        PLOAD   1       -0.9E+0271      72      80                                      \r\n                  352-        PLOAD   1       -0.9E+0256      48      57                                      \r\n                  353-        SPC1    1       12      1       2       3       4       5       6       +SP10001\r\n                  354-        +SP100017       8       9                                                       \r\n                  355-        SPC1    1       26      1       10      19      28      37      46      +SP10005\r\n                  356-        +SP1000555      64      73                                                      \r\n                  357-        SPC1    1       35      73      74      75      76      77      78      +SP10003\r\n                  358-        +SP1000379      80      81                                                      \r\n                              ENDDATA\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            737\r\n                                        MAX WAVEFRONT       10\r\n                                        AVG WAVEFRONT    9.099\r\n                                        RMS WAVEFRONT    9.339\r\n                                        RMS BANDWIDTH    9.450\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            597\r\n                                        MAX WAVEFRONT       10\r\n                                        AVG WAVEFRONT    7.370\r\n                                        RMS WAVEFRONT    7.696\r\n                                        RMS BANDWIDTH    7.696\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       10        10\r\n                                        PROFILE (P)                        737       597\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           10        10\r\n                                        AVERAGE WAVEFRONT (C-AVG)        9.099     7.370\r\n                                        RMS WAVEFRONT (C-RMS)            9.339     7.696\r\n                                        RMS BANDWITCH (B-RMS)            9.450     7.696\r\n                                        NUMBER OF GRID POINTS (N)                     82\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               128\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           6\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                       208\r\n                                        MATRIX DENSITY, PERCENT                    7.575\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF NON-ACTIVE GRID POINTS                  1\r\n                                        NO. OF SEQGP CARDS GENERATED                  21\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       3       4       4       7\r\n                         SEQGP          5      11       6      16       7      22       8      29\r\n                         SEQGP          9      37      10       3      11       5      12       8\r\n                         SEQGP         13      12      14      17      15      23      16      30\r\n                         SEQGP         17      38      18      46      19       6      20       9\r\n                         SEQGP         21      13      22      18      23      24      24      31\r\n                         SEQGP         25      39      26      47      27      54      28      10\r\n                         SEQGP         29      14      30      19      31      25      32      32\r\n                         SEQGP         33      40      34      48      35      55      36      61\r\n                         SEQGP         37      15      38      20      39      26      40      33\r\n                         SEQGP         41      41      42      49      43      56      44      62\r\n                         SEQGP         45      67      46      21      47      27      48      34\r\n                         SEQGP         49      42      50      50      51      57      52      63\r\n                         SEQGP         53      68      54      72      55      28      56      35\r\n                         SEQGP         57      43      58      51      59      58      60      64\r\n                         SEQGP         61      69      62      73      63      76      64      36\r\n                         SEQGP         65      44      66      52      67      59      68      65\r\n                         SEQGP         69      70      70      74      71      77      72      79\r\n                         SEQGP         73      45      74      53      75      60      76      66\r\n                         SEQGP         77      71      78      75      79      78      80      80\r\n                         SEQGP         81      81    5001      82\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECTED TO EXTERNAL GRID POINT     5001\r\n     OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL ELEMENT.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA3    ELEMENTS (ELEMENT TYPE  83) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4\r\n\r\n0*** USER INFORMATION MESSAGE 2435, AT USER'S REQUEST, ALL POTENTIAL SINGULARITIES HAVE BEEN REMOVED BY THE\r\n     APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINTOUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n\r\n\r\n                                A U T O M A T I C A L L Y   G E N E R A T E D   S P C 1   C A R D S\r\n                CARD \r\n                COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++\r\n\r\n                   1-        SPC1           1       4       1       9      10      18      19      27\r\n                   2-        SPC1           1       4      28      36      37      45      46      54\r\n                   3-        SPC1           1       4      55      63      64      72\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -4.7590930E-13\r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            1.476632E-02   0.0            1.361577E-02   0.0                           \r\n             2      G      0.0            0.0            1.612430E-02   3.240866E-02   7.457401E-03   1.813536E-03                  \r\n             3      G      0.0            0.0            1.942165E-02   1.313583E-01  -7.714266E-03  -5.444879E-04                  \r\n             4      G      0.0            0.0            2.215707E-02   1.976693E-01  -2.931338E-02  -1.561425E-03                  \r\n             5      G      0.0            0.0            2.054041E-02   2.512435E-01  -5.650781E-02  -2.533445E-03                  \r\n             6      G      0.0            0.0            9.672613E-03   2.884153E-01  -8.757029E-02  -3.402307E-03                  \r\n             7      G      0.0            0.0           -1.624593E-02   3.007700E-01  -1.200356E-01  -4.131102E-03                  \r\n             8      G      0.0            0.0           -6.365567E-02   2.776172E-01  -1.504282E-01  -4.490628E-03                  \r\n             9      G      0.0            0.0           -1.393812E-01   0.0           -1.643894E-01  -5.448328E-03                  \r\n            10      G      4.368079E-02   0.0            1.470382E-02   0.0            1.151774E-02   0.0                           \r\n            11      G      2.826460E-02  -3.264060E-03   1.605108E-02   8.395085E-02   8.155212E-03   1.493468E-02                  \r\n            12      G     -1.482767E-02  -3.972459E-03   1.922503E-02   1.250123E-01  -5.081127E-03   2.591116E-02                  \r\n            13      G     -7.955507E-02   4.956496E-05   2.184063E-02   1.604297E-01  -2.528225E-02   3.501230E-02                  \r\n            14      G     -1.617897E-01   1.051909E-02   2.020436E-02   1.832168E-01  -5.096499E-02   4.241037E-02                  \r\n            15      G     -2.565453E-01   2.873135E-02   9.543336E-03   1.904393E-01  -8.039025E-02   4.734479E-02                  \r\n            16      G     -3.567530E-01   5.541636E-02  -1.573480E-02   1.797232E-01  -1.114484E-01   4.872810E-02                  \r\n            17      G     -4.531212E-01   9.051100E-02  -6.169983E-02   1.563872E-01  -1.420324E-01   4.565817E-02                  \r\n            18      G     -5.343322E-01   1.328572E-01  -1.344101E-01   0.0           -1.650818E-01   3.715053E-02                  \r\n            19      G      8.354100E-02   0.0            1.460463E-02   0.0            8.452275E-03   0.0                           \r\n            20      G      5.485845E-02  -6.135860E-03   1.576311E-02   8.662643E-02   6.857768E-03   2.687921E-02                  \r\n            21      G     -2.710051E-02  -7.396240E-03   1.850582E-02   1.249557E-01  -4.624480E-03   4.874576E-02                  \r\n            22      G     -1.524425E-01   4.739210E-04   2.065561E-02   1.543775E-01  -2.283171E-02   6.676696E-02                  \r\n            23      G     -3.120428E-01   2.086394E-02   1.880291E-02   1.705106E-01  -4.615084E-02   8.086339E-02                  \r\n            24      G     -4.952009E-01   5.623502E-02   8.573799E-03   1.721471E-01  -7.276708E-02   9.005840E-02                  \r\n            25      G     -6.886350E-01   1.078973E-01  -1.504324E-02   1.632245E-01  -1.009693E-01   9.333318E-02                  \r\n            26      G     -8.776217E-01   1.757793E-01  -5.733755E-02   1.534654E-01  -1.296031E-01   9.074441E-02                  \r\n            27      G     -1.049165E+00   2.584161E-01  -1.236248E-01   0.0           -1.518993E-01   8.408474E-02                  \r\n            28      G      1.165276E-01   0.0            1.401822E-02   0.0            5.616561E-03   0.0                           \r\n            29      G      7.638280E-02  -8.429412E-03   1.489280E-02   9.887142E-02   5.185642E-03   3.709026E-02                  \r\n            30      G     -3.927647E-02  -9.976242E-03   1.701572E-02   1.280838E-01  -4.640824E-03   6.886442E-02                  \r\n            31      G     -2.181161E-01   1.456804E-03   1.851162E-02   1.488879E-01  -2.028534E-02   9.518006E-02                  \r\n            32      G     -4.463317E-01   3.076087E-02   1.643791E-02   1.580755E-01  -4.040500E-02   1.153411E-01                  \r\n            33      G     -7.077197E-01   8.141617E-02   7.045454E-03   1.553744E-01  -6.342491E-02   1.283439E-01                  \r\n            34      G     -9.838973E-01   1.552549E-01  -1.391041E-02   1.444551E-01  -8.793311E-02   1.336525E-01                  \r\n            35      G     -1.256662E+00   2.523483E-01  -5.089923E-02   1.320272E-01  -1.130087E-01   1.322963E-01                  \r\n            36      G     -1.512646E+00   3.712141E-01  -1.084606E-01   0.0           -1.328700E-01   1.278532E-01                  \r\n            37      G      1.416514E-01   0.0            1.274414E-02   0.0            2.554011E-03   0.0                           \r\n            38      G      9.209165E-02  -1.009583E-02   1.328759E-02   1.049389E-01   3.458405E-03   4.545155E-02                  \r\n            39      G     -5.137526E-02  -1.167173E-02   1.472694E-02   1.227285E-01  -4.346095E-03   8.551659E-02                  \r\n            40      G     -2.747473E-01   2.899270E-03   1.556273E-02   1.362093E-01  -1.685280E-02   1.189154E-01                  \r\n            41      G     -5.604916E-01   3.978036E-02   1.343083E-02   1.394321E-01  -3.318005E-02   1.443206E-01                  \r\n            42      G     -8.878148E-01   1.033430E-01   5.308664E-03   1.329748E-01  -5.205030E-02   1.606955E-01                  \r\n            43      G     -1.234267E+00   1.959281E-01  -1.222982E-02   1.214676E-01  -7.233547E-02   1.680550E-01                  \r\n            44      G     -1.579237E+00   3.178310E-01  -4.279045E-02   1.141291E-01  -9.345141E-02   1.683716E-01                  \r\n            45      G     -1.909306E+00   4.676761E-01  -9.003444E-02   0.0           -1.103693E-01   1.663368E-01                  \r\n            46      G      1.585378E-01   0.0            1.070311E-02   0.0           -3.328169E-04   0.0                           \r\n            47      G      1.020917E-01  -1.115414E-02   1.092876E-02   9.868991E-02   1.837582E-03   5.151105E-02                  \r\n1     CTRIA3 3-NODE SHELL ROOF TEST                                         /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T01-33-1A                                                                                            \r\n0     LAMINATED COMPOSITE SHELL                                                                                                     \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            48      G     -6.221554E-02  -1.256684E-02   1.171812E-02   1.181452E-01  -3.483321E-03   9.817949E-02                  \r\n            49      G     -3.200939E-01   4.571117E-03   1.201176E-02   1.233944E-01  -1.286091E-02   1.375043E-01                  \r\n            50      G     -6.512788E-01   4.746797E-02   1.006676E-02   1.199054E-01  -2.532743E-02   1.673537E-01                  \r\n            51      G     -1.031257E+00   1.212685E-01   3.596507E-03   1.095177E-01  -3.989143E-02   1.866436E-01                  \r\n            52      G     -1.434353E+00   2.287850E-01  -9.991133E-03   9.726882E-02  -5.572496E-02   1.959046E-01                  \r\n            53      G     -1.838202E+00   3.705619E-01  -3.339333E-02   8.642069E-02  -7.228898E-02   1.979190E-01                  \r\n            54      G     -2.229472E+00   5.453926E-01  -6.932449E-02   0.0           -8.547089E-02   1.981847E-01                  \r\n            55      G      1.688758E-01   0.0            7.928717E-03   0.0           -1.660477E-03   0.0                           \r\n            56      G      1.080009E-01  -1.169143E-02   7.812442E-03   1.191570E-01   1.410223E-03   5.540279E-02                  \r\n            57      G     -7.047816E-02  -1.286582E-02   8.058028E-03   1.048704E-01  -2.586255E-03   1.070393E-01                  \r\n            58      G     -3.529196E-01   6.135373E-03   8.046384E-03   1.046178E-01  -8.673639E-03   1.509623E-01                  \r\n            59      G     -7.173160E-01   5.337093E-02   6.576134E-03   9.723432E-02  -1.716859E-02   1.842807E-01                  \r\n            60      G     -1.136188E+00   1.346255E-01   2.061665E-03   8.429071E-02  -2.724381E-02   2.058199E-01                  \r\n            61      G     -1.581390E+00   2.530920E-01  -7.243004E-03   7.151503E-02  -3.817934E-02   2.166686E-01                  \r\n            62      G     -2.029629E+00   4.095342E-01  -2.309459E-02   7.429370E-02  -5.004311E-02   2.203675E-01                  \r\n            63      G     -2.467970E+00   6.029455E-01  -4.722723E-02   0.0           -6.007985E-02   2.227727E-01                  \r\n            64      G      1.701814E-01   0.0            4.341663E-03   0.0           -6.951284E-03   0.0                           \r\n            65      G      1.092746E-01  -1.175825E-02   4.012782E-03   5.440501E-02  -1.511940E-03   5.643111E-02                  \r\n            66      G     -7.531665E-02  -1.281391E-02   4.029745E-03   1.019095E-01  -9.911228E-04   1.113292E-01                  \r\n            67      G     -3.725972E-01   7.206552E-03   3.976562E-03   9.881937E-02  -4.479321E-03   1.592970E-01                  \r\n            68      G     -7.591181E-01   5.706110E-02   3.171894E-03   8.436855E-02  -1.003476E-02   1.954991E-01                  \r\n            69      G     -1.204372E+00   1.429999E-01   7.929749E-04   6.339598E-02  -1.680592E-02   2.186134E-01                  \r\n            70      G     -1.677765E+00   2.684474E-01  -4.026213E-03   4.313004E-02  -2.403194E-02   2.302631E-01                  \r\n            71      G     -2.155000E+00   4.342829E-01  -1.209223E-02   1.261481E-02  -3.079128E-02   2.346718E-01                  \r\n            72      G     -2.624267E+00   6.396778E-01  -2.407039E-02   0.0           -3.432401E-02   2.395364E-01                  \r\n            73      G      1.669937E-01   0.0            0.0           -6.855841E-02   0.0            0.0                           \r\n            74      G      1.072162E-01  -1.189289E-02   0.0            1.943815E-01   0.0            5.693102E-02                  \r\n            75      G     -7.771769E-02  -1.293489E-02   0.0            1.544966E-01   0.0            1.154741E-01                  \r\n            76      G     -3.814609E-01   7.503990E-03   0.0            1.241305E-01   0.0            1.650839E-01                  \r\n            77      G     -7.779929E-01   5.849572E-02   0.0            8.962285E-02   0.0            2.022918E-01                  \r\n            78      G     -1.235319E+00   1.464317E-01   0.0            5.829030E-02   0.0            2.257639E-01                  \r\n            79      G     -1.721251E+00   2.747352E-01   0.0            4.354972E-02   0.0            2.374775E-01                  \r\n            80      G     -2.211147E+00   4.441631E-01   0.0            9.365188E-02   0.0            2.441724E-01                  \r\n            81      G     -2.697874E+00   6.538841E-01   0.0           -3.394067E-01   0.0            2.429941E-01                  \r\n          5001      G      0.0           -1.233256E+00  -2.487000E+00  -2.429941E-01  -2.181664E-01  -2.600006E-01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  CTRIA3 3-NODE SHELL ROOF TEST                                      \r\n DATE:  5/17/95\r\n END TIME: 16:42:30\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t01341a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T01341A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   1                                                                         \r\n     TIME  30                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TESTING ENFORCE DISPLACEMENT WITH SPCD                               \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T01-34-1A                                   \r\n                  3      ECHO     = BOTH                                                                 \r\n                  4      LOAD     = 10                                                                   \r\n                  5      SPC      = 1                                                                    \r\n                  6      SPCFORCE = ALL                                                                  \r\n                  7      DISP     = ALL                                                                  \r\n                  8      STRESS   = ALL                                                                  \r\n                  9      BEGIN BULK                                                                      \r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              -FF-    GRDSET,8)246                                                                                  \r\n                              -FF-    GRID,10,,0.0, 0.0, 0.0                                                                        \r\n                              -FF-    =(9),*(-1),,*(10.),==                                                                         \r\n                              -FF-    SPC1,1,13,10                                                                                  \r\n                              -FF-    SPC1,1,3,1 THRU 9                                                                             \r\n                              -FF-    CBAR,1,2,1,2, 0.0,1.0,0.0,1                                                                   \r\n                              -FF-    =(8),*(1),=,*(1),/,==                                                                         \r\n                              -FF-    PBAR,2,6061,100.,100.,100.,100.                                                               \r\n                              -FF-    ,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0                                                          \r\n                              -FF-    MAT1,6061,1.+7,,0.3,0.1                                                                       \r\n                              -FF-    SPCD,10,1,3,-1.00                                                                             \r\n                              -FF-    SPCD,10,2,3,-0.82                                                                             \r\n                              -FF-    SPCD,10,3,3,-0.74                                                                             \r\n                              -FF-    SPCD,10,4,3,-0.58                                                                             \r\n                              -FF-    SPCD,10,5,3,-0.40                                                                             \r\n                              -FF-    SPCD,10,6,3,-0.29                                                                             \r\n                              -FF-    SPCD,10,7,3,-0.16                                                                             \r\n                              -FF-    SPCD,10,8,3,-0.07                                                                             \r\n                              -FF-    SPCD,10,9,3,-0.01                                                                             \r\n                              -FF-    FORCE,10,1,,110.0,0.0,0.0,-1.0                                                                \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     20\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       2       1       2       0.0     1.0     0.0     1               \r\n                    2-        CBAR    2       2       2       3       0.0     1.0     0.0     1               \r\n                    3-        CBAR    3       2       3       4       0.0     1.0     0.0     1               \r\n                    4-        CBAR    4       2       4       5       0.0     1.0     0.0     1               \r\n                    5-        CBAR    5       2       5       6       0.0     1.0     0.0     1               \r\n                    6-        CBAR    6       2       6       7       0.0     1.0     0.0     1               \r\n                    7-        CBAR    7       2       7       8       0.0     1.0     0.0     1               \r\n                    8-        CBAR    8       2       8       9       0.0     1.0     0.0     1               \r\n                    9-        CBAR    9       2       9       10      0.0     1.0     0.0     1               \r\n                   10-        FORCE   10      1               110.0   0.0     0.0     -1.0                    \r\n                   11-        GRDSET                                                  246                     \r\n                   12-        GRID    1               90.     0.0     0.0                                     \r\n                   13-        GRID    2               80.     0.0     0.0                                     \r\n                   14-        GRID    3               70.     0.0     0.0                                     \r\n                   15-        GRID    4               60.     0.0     0.0                                     \r\n                   16-        GRID    5               50.     0.0     0.0                                     \r\n                   17-        GRID    6               40.     0.0     0.0                                     \r\n                   18-        GRID    7               30.     0.0     0.0                                     \r\n                   19-        GRID    8               20.     0.0     0.0                                     \r\n                   20-        GRID    9               10.     0.0     0.0                                     \r\n                   21-        GRID    10              0.0     0.0     0.0                                     \r\n                   22-        MAT1    6061    1.+7            0.3     0.1                                     \r\n                   23-        PBAR    2       6061    100.    100.    100.    100.                    +C0N0001\r\n                   24-        +C0N0001-1.0    1.0     1.0     1.0     1.0     -1.0    -1.0    -1.0            \r\n                   25-        SPC1    1       3       1       THRU    9                                       \r\n                   26-        SPC1    1       13      10                                                      \r\n                   27-        SPCD    10      1       3       -1.00                                           \r\n                   28-        SPCD    10      2       3       -0.82                                           \r\n                   29-        SPCD    10      3       3       -0.74                                           \r\n                   30-        SPCD    10      4       3       -0.58                                           \r\n                   31-        SPCD    10      5       3       -0.40                                           \r\n                   32-        SPCD    10      6       3       -0.29                                           \r\n                   33-        SPCD    10      7       3       -0.16                                           \r\n                   34-        SPCD    10      8       3       -0.07                                           \r\n                   35-        SPCD    10      9       3       -0.01                                           \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.2697815E-18\r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.000000E+00   0.0            2.117524E-02   0.0                           \r\n             2      G      0.0            0.0           -8.200000E-01   0.0            1.164952E-02   0.0                           \r\n             3      G      0.0            0.0           -7.400000E-01   0.0            1.022666E-02   0.0                           \r\n             4      G      0.0            0.0           -5.800000E-01   0.0            1.944383E-02   0.0                           \r\n             5      G      0.0            0.0           -4.000000E-01   0.0            1.399803E-02   0.0                           \r\n             6      G      0.0            0.0           -2.900000E-01   0.0            1.156407E-02   0.0                           \r\n             7      G      0.0            0.0           -1.600000E-01   0.0            1.174571E-02   0.0                           \r\n             8      G      0.0            0.0           -7.000000E-02   0.0            7.453077E-03   0.0                           \r\n             9      G      0.0            0.0           -1.000000E-02   0.0            3.441978E-03   0.0                           \r\n            10      G      0.0            0.0            0.0            0.0           -2.209891E-04   0.0                           \r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0           -1.904043E+05   0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            5.430857E+05   0.0            0.0            0.0                           \r\n             3      G      0.0            0.0           -4.923422E+05   0.0            0.0            0.0                           \r\n             4      G      0.0            0.0           -1.371762E+04   0.0            0.0            0.0                           \r\n             5      G      0.0            0.0            3.672138E+05   0.0            0.0            0.0                           \r\n             6      G      0.0            0.0           -3.751385E+05   0.0            0.0            0.0                           \r\n             7      G      0.0            0.0            2.333406E+05   0.0            0.0            0.0                           \r\n             8      G      0.0            0.0           -1.382242E+05   0.0            0.0            0.0                           \r\n             9      G      0.0            0.0            1.395561E+05   0.0            0.0            0.0                           \r\n            10      G      0.0            0.0           -7.325934E+04   0.0            0.0            0.0                           \r\n1     TESTING ENFORCE DISPLACEMENT WITH SPCD                                /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T01-34-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     0.0            0.0            0.0            0.0            0.0            0.0            0.0                          \r\n            -1.905150E+04  -1.905150E+04   1.905150E+04   1.905150E+04                  1.905150E+04  -1.905150E+04                 \r\n0      2    -1.905140E+04  -1.905140E+04   1.905140E+04   1.905140E+04   0.0            1.905140E+04  -1.905140E+04                 \r\n             1.620580E+04   1.620580E+04  -1.620580E+04  -1.620580E+04                  1.620580E+04  -1.620580E+04                 \r\n0      3     1.620572E+04   1.620572E+04  -1.620572E+04  -1.620572E+04   0.0            1.620572E+04  -1.620572E+04                 \r\n             2.228620E+03   2.228620E+03  -2.228620E+03  -2.228620E+03                  2.228620E+03  -2.228620E+03                 \r\n0      4     2.228620E+03   2.228620E+03  -2.228620E+03  -2.228620E+03   0.0            2.228620E+03  -2.228620E+03                 \r\n            -1.312023E+04  -1.312023E+04   1.312023E+04   1.312023E+04                  1.312023E+04  -1.312023E+04                 \r\n0      5    -1.312022E+04  -1.312022E+04   1.312022E+04   1.312022E+04   0.0            1.312022E+04  -1.312022E+04                 \r\n             8.252305E+03   8.252305E+03  -8.252305E+03  -8.252305E+03                  8.252305E+03  -8.252305E+03                 \r\n0      6     8.252300E+03   8.252300E+03  -8.252300E+03  -8.252300E+03   0.0            8.252300E+03  -8.252300E+03                 \r\n            -7.889025E+03  -7.889025E+03   7.889025E+03   7.889025E+03                  7.889025E+03  -7.889025E+03                 \r\n0      7    -7.889010E+03  -7.889010E+03   7.889010E+03   7.889010E+03   0.0            7.889010E+03  -7.889010E+03                 \r\n            -6.962600E+02  -6.962600E+02   6.962600E+02   6.962600E+02                  6.962600E+02  -6.962600E+02                 \r\n0      8    -6.962637E+02  -6.962637E+02   6.962637E+02   6.962637E+02   0.0            6.962637E+02  -6.962637E+02                 \r\n            -7.325933E+03  -7.325933E+03   7.325933E+03   7.325933E+03                  7.325933E+03  -7.325933E+03                 \r\n0      9    -7.325934E+03  -7.325934E+03   7.325934E+03   7.325934E+03   0.0            7.325934E+03  -7.325934E+03                 \r\n             0.0            0.0            0.0            0.0                           0.0            0.0                          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TESTING ENFORCE DISPLACEMENT WITH SPCD                             \r\n DATE:  5/17/95\r\n END TIME: 16:42:58\r\n TOTAL WALL CLOCK TIME      2 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03091a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03091A,NASTRAN                                                           \r\n     SOL   3                                                                         \r\n     TIME  20                                                                        \r\n     APP   DISP                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                 \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-09-1A                                   \r\n                  3        METHOD = 1                                                                    \r\n                  4        AXISYM = COSINE                                                               \r\n                  5      SUBCASE  1                                                                      \r\n                  6         DISP  = ALL                                                                  \r\n                  7         MODES = 5                                                                    \r\n                  8      SUBCASE  6                                                                      \r\n                  9         DISP  = NONE                                                                 \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    94, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AXIC    1                                                                       \r\n                    2-        CTRAPAX 1       1       1       2       6       5                               \r\n                    3-        CTRAPAX 2       1       2       3       7       6                               \r\n                    4-        CTRAPAX 3       1       3       4       8       7                               \r\n                    5-        CTRAPAX 5       1       5       6       10      9                               \r\n                    6-        CTRAPAX 6       1       6       7       11      10                              \r\n                    7-        CTRAPAX 7       1       7       8       12      11                              \r\n                    8-        CTRAPAX 9       1       9       10      14      13                              \r\n                    9-        CTRAPAX 10      1       10      11      15      14                              \r\n                   10-        CTRAPAX 11      1       11      12      16      15                              \r\n                   11-        CTRAPAX 13      1       13      14      18      17                              \r\n                   12-        CTRAPAX 14      1       14      15      19      18                              \r\n                   13-        CTRAPAX 15      1       15      16      20      19                              \r\n                   14-        CTRAPAX 17      1       17      18      22      21                              \r\n                   15-        CTRAPAX 18      1       18      19      23      22                              \r\n                   16-        CTRAPAX 19      1       19      20      24      23                              \r\n                   17-        CTRAPAX 21      1       21      22      26      25                              \r\n                   18-        CTRAPAX 22      1       22      23      27      26                              \r\n                   19-        CTRAPAX 23      1       23      24      28      27                              \r\n                   20-        CTRAPAX 25      1       25      26      30      29                              \r\n                   21-        CTRAPAX 26      1       26      27      31      30                              \r\n                   22-        CTRAPAX 27      1       27      28      32      31                              \r\n                   23-        CTRAPAX 29      1       29      30      34      33                              \r\n                   24-        CTRAPAX 30      1       30      31      35      34                              \r\n                   25-        CTRAPAX 31      1       31      32      36      35                              \r\n                   26-        CTRAPAX 33      1       33      34      38      37                              \r\n                   27-        CTRAPAX 34      1       34      35      39      38                              \r\n                   28-        CTRAPAX 35      1       35      36      40      39                              \r\n                   29-        CTRAPAX 37      1       37      38      42      41                              \r\n                   30-        CTRAPAX 38      1       38      39      43      42                              \r\n                   31-        CTRAPAX 39      1       39      40      44      43                              \r\n                   32-        CTRAPAX 41      1       41      42      46      45                              \r\n                   33-        CTRAPAX 42      1       42      43      47      46                              \r\n                   34-        CTRAPAX 43      1       43      44      48      47                              \r\n                   35-        CTRAPAX 45      1       45      46      50      49                              \r\n                   36-        CTRAPAX 46      1       46      47      51      50                              \r\n                   37-        CTRAPAX 47      1       47      48      52      51                              \r\n                   38-        EIGR    1       INV     0.      5000.   10      10              1.-3    +E      \r\n                   39-        +E      MAX                                                                     \r\n                   40-        MAT1    1       3.+7            .3      7.8-3                                   \r\n                   41-        PARAM   COUPMASS1                                                               \r\n                   42-        PTRAPAX 1               1                                                       \r\n                   43-        RINGAX  1               5.0000  2.0000                  2456                    \r\n                   44-        RINGAX  2               5.4167  2.0000                  2456                    \r\n                   45-        RINGAX  3               5.8333  2.0000                  2456                    \r\n                   46-        RINGAX  4               6.2500  2.0000                  2456                    \r\n                   47-        RINGAX  5               5.0000  2.2917                  2456                    \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        RINGAX  6               5.4167  2.2917                  2456                    \r\n                   49-        RINGAX  7               5.8333  2.2917                  2456                    \r\n                   50-        RINGAX  8               6.2500  2.2917                  2456                    \r\n                   51-        RINGAX  9               5.0000  2.5833                  2456                    \r\n                   52-        RINGAX  10              5.4167  2.5833                  2456                    \r\n                   53-        RINGAX  11              5.8333  2.5833                  2456                    \r\n                   54-        RINGAX  12              6.2500  2.5833                  2456                    \r\n                   55-        RINGAX  13              5.0000  2.8750                  2456                    \r\n                   56-        RINGAX  14              5.4167  2.8750                  2456                    \r\n                   57-        RINGAX  15              5.8333  2.8750                  2456                    \r\n                   58-        RINGAX  16              6.2500  2.8750                  2456                    \r\n                   59-        RINGAX  17              5.0000  3.1667                  2456                    \r\n                   60-        RINGAX  18              5.4167  3.1667                  2456                    \r\n                   61-        RINGAX  19              5.8333  3.1667                  2456                    \r\n                   62-        RINGAX  20              6.2500  3.1667                  2456                    \r\n                   63-        RINGAX  21              5.0000  3.4583                  2456                    \r\n                   64-        RINGAX  22              5.4167  3.4583                  2456                    \r\n                   65-        RINGAX  23              5.8333  3.4583                  2456                    \r\n                   66-        RINGAX  24              6.2500  3.4583                  2456                    \r\n                   67-        RINGAX  25              5.0000  3.7500                  2456                    \r\n                   68-        RINGAX  26              5.4167  3.7500                  2456                    \r\n                   69-        RINGAX  27              5.8333  3.7500                  2456                    \r\n                   70-        RINGAX  28              6.2500  3.7500                  2456                    \r\n                   71-        RINGAX  29              5.0000  4.0417                  2456                    \r\n                   72-        RINGAX  30              5.4167  4.0417                  2456                    \r\n                   73-        RINGAX  31              5.8333  4.0417                  2456                    \r\n                   74-        RINGAX  32              6.2500  4.0417                  2456                    \r\n                   75-        RINGAX  33              5.0000  4.3333                  2456                    \r\n                   76-        RINGAX  34              5.4167  4.3333                  2456                    \r\n                   77-        RINGAX  35              5.8333  4.3333                  2456                    \r\n                   78-        RINGAX  36              6.2500  4.3333                  2456                    \r\n                   79-        RINGAX  37              5.0000  4.6250                  2456                    \r\n                   80-        RINGAX  38              5.4167  4.6250                  2456                    \r\n                   81-        RINGAX  39              5.8333  4.6250                  2456                    \r\n                   82-        RINGAX  40              6.2500  4.6250                  2456                    \r\n                   83-        RINGAX  41              5.0000  4.9167                  2456                    \r\n                   84-        RINGAX  42              5.4167  4.9167                  2456                    \r\n                   85-        RINGAX  43              5.8333  4.9167                  2456                    \r\n                   86-        RINGAX  44              6.2500  4.9167                  2456                    \r\n                   87-        RINGAX  45              5.0000  5.2083                  2456                    \r\n                   88-        RINGAX  46              5.4167  5.2083                  2456                    \r\n                   89-        RINGAX  47              5.8333  5.2083                  2456                    \r\n                   90-        RINGAX  48              6.2500  5.2083                  2456                    \r\n                   91-        RINGAX  49              5.0000  5.5000                  2456                    \r\n                   92-        RINGAX  50              5.4167  5.5000                  2456                    \r\n                   93-        RINGAX  51              5.8333  5.5000                  2456                    \r\n                   94-        RINGAX  52              6.2500  5.5000                  2456                    \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF AXISYMMETRIC SOLID DATA\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPAX   ELEMENTS (ELEMENT TYPE  71) STARTING WITH ID     1001\r\n                        6 ROOTS BELOW   2.467401E+08\r\n                        5 ROOTS BELOW   1.689509E+08\r\n                        4 ROOTS BELOW   1.553757E+08\r\n                        3 ROOTS BELOW   1.222577E+08\r\n                        1 ROOTS BELOW   3.811508E+07\r\n                        2 ROOTS BELOW   4.690468E+07\r\n                        7 ROOTS BELOW   1.156938E+09\r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         7\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         7\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        64\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.43E-08\r\n0                                                                              . . .         3\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         1\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         7 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         6       -4.758504E-01        6.898191E-01        1.097881E-01        1.206074E+00       -5.739107E-01             \r\n        2         5        4.690455E+07        6.848689E+03        1.090003E+03        5.882022E-01        2.758936E+07             \r\n        3         4        1.088195E+08        1.043166E+04        1.660250E+03        4.238784E-01        4.612622E+07             \r\n        4         3        1.222931E+08        1.105862E+04        1.760034E+03        1.115104E+00        1.363694E+08             \r\n        5         2        1.561220E+08        1.249488E+04        1.988622E+03        2.121759E-01        3.312532E+07             \r\n        6         1        1.694655E+08        1.301789E+04        2.071862E+03        5.580937E-01        9.457763E+07             \r\n        7         7        1.154310E+09        3.397514E+04        5.407312E+03        3.974966E-01        4.588343E+08             \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE = -0.475850E+00    (CYCLIC FREQUENCY =  1.097881E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             1      0     -3.361333E-06   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n             2      0     -3.284431E-06   0.0            9.999991E-01   0.0            0.0            0.0                           \r\n             3      0     -3.215174E-06   0.0            9.999983E-01   0.0            0.0            0.0                           \r\n             4      0     -3.150460E-06   0.0            9.999975E-01   0.0            0.0            0.0                           \r\n             5      0     -2.807547E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n             6      0     -2.742344E-06   0.0            9.999991E-01   0.0            0.0            0.0                           \r\n             7      0     -2.684300E-06   0.0            9.999983E-01   0.0            0.0            0.0                           \r\n             8      0     -2.630576E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n             9      0     -2.253496E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            10      0     -2.201454E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            11      0     -2.154827E-06   0.0            9.999984E-01   0.0            0.0            0.0                           \r\n            12      0     -2.111465E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            13      0     -1.698928E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            14      0     -1.660389E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            15      0     -1.625295E-06   0.0            9.999984E-01   0.0            0.0            0.0                           \r\n            16      0     -1.592016E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            17      0     -1.142849E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            18      0     -1.118003E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            19      0     -1.094440E-06   0.0            9.999985E-01   0.0            0.0            0.0                           \r\n            20      0     -1.071086E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            21      0     -5.841291E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            22      0     -5.729829E-07   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            23      0     -5.609310E-07   0.0            9.999985E-01   0.0            0.0            0.0                           \r\n            24      0     -5.475186E-07   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            25      0     -2.121099E-08   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            26      0     -2.365891E-08   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            27      0     -2.316297E-08   0.0            9.999985E-01   0.0            0.0            0.0                           \r\n            28      0     -1.993791E-08   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            29      0      5.464240E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            30      0      5.305666E-07   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            31      0      5.193846E-07   0.0            9.999985E-01   0.0            0.0            0.0                           \r\n            32      0      5.120261E-07   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            33      0      1.118615E-06   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            34      0      1.089580E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            35      0      1.066593E-06   0.0            9.999985E-01   0.0            0.0            0.0                           \r\n            36      0      1.048221E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            37      0      1.695136E-06   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            38      0      1.653152E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            39      0      1.618221E-06   0.0            9.999984E-01   0.0            0.0            0.0                           \r\n            40      0      1.588407E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            41      0      2.274542E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            42      0      2.219830E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n            43      0      2.172836E-06   0.0            9.999984E-01   0.0            0.0            0.0                           \r\n            44      0      2.131194E-06   0.0            9.999976E-01   0.0            0.0            0.0                           \r\n            45      0      2.854774E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            46      0      2.787544E-06   0.0            9.999992E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE = -0.475850E+00    (CYCLIC FREQUENCY =  1.097881E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            47      0      2.728574E-06   0.0            9.999983E-01   0.0            0.0            0.0                           \r\n            48      0      2.674866E-06   0.0            9.999975E-01   0.0            0.0            0.0                           \r\n            49      0      3.433663E-06   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            50      0      3.354399E-06   0.0            9.999991E-01   0.0            0.0            0.0                           \r\n            51      0      3.283783E-06   0.0            9.999982E-01   0.0            0.0            0.0                           \r\n            52      0      3.218461E-06   0.0            9.999974E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.469045E+08    (CYCLIC FREQUENCY =  1.090003E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             1      0     -9.965931E-05   0.0            3.304831E-05   0.0            0.0            0.0                           \r\n             2      0     -9.736842E-05   0.0            9.606859E-06   0.0            0.0            0.0                           \r\n             3      0     -9.531625E-05   0.0           -1.342217E-05   0.0            0.0            0.0                           \r\n             4      0     -9.340864E-05   0.0           -3.591328E-05   0.0            0.0            0.0                           \r\n             5      0     -8.304563E-05   0.0            3.464297E-05   0.0            0.0            0.0                           \r\n             6      0     -8.110349E-05   0.0            1.106402E-05   0.0            0.0            0.0                           \r\n             7      0     -7.938762E-05   0.0           -1.208771E-05   0.0            0.0            0.0                           \r\n             8      0     -7.781218E-05   0.0           -3.468357E-05   0.0            0.0            0.0                           \r\n             9      0     -6.640884E-05   0.0            3.589424E-05   0.0            0.0            0.0                           \r\n            10      0     -6.484381E-05   0.0            1.224985E-05   0.0            0.0            0.0                           \r\n            11      0     -6.347164E-05   0.0           -1.098743E-05   0.0            0.0            0.0                           \r\n            12      0     -6.222529E-05   0.0           -3.362897E-05   0.0            0.0            0.0                           \r\n            13      0     -4.977771E-05   0.0            3.683699E-05   0.0            0.0            0.0                           \r\n            14      0     -4.859734E-05   0.0            1.316751E-05   0.0            0.0            0.0                           \r\n            15      0     -4.757097E-05   0.0           -1.012202E-05   0.0            0.0            0.0                           \r\n            16      0     -4.664563E-05   0.0           -3.278059E-05   0.0            0.0            0.0                           \r\n            17      0     -3.316699E-05   0.0            3.749433E-05   0.0            0.0            0.0                           \r\n            18      0     -3.237715E-05   0.0            1.381965E-05   0.0            0.0            0.0                           \r\n            19      0     -3.169449E-05   0.0           -9.498061E-06   0.0            0.0            0.0                           \r\n            20      0     -3.108249E-05   0.0           -3.216007E-05   0.0            0.0            0.0                           \r\n            21      0     -1.658088E-05   0.0            3.788236E-05   0.0            0.0            0.0                           \r\n            22      0     -1.618500E-05   0.0            1.420933E-05   0.0            0.0            0.0                           \r\n            23      0     -1.584410E-05   0.0           -9.121423E-06   0.0            0.0            0.0                           \r\n            24      0     -1.553952E-05   0.0           -3.178199E-05   0.0            0.0            0.0                           \r\n            25      0     -2.990176E-13   0.0            3.801073E-05   0.0            0.0            0.0                           \r\n            26      0     -2.951373E-13   0.0            1.433903E-05   0.0            0.0            0.0                           \r\n            27      0     -2.880118E-13   0.0           -8.995426E-06   0.0            0.0            0.0                           \r\n            28      0     -2.784114E-13   0.0           -3.165493E-05   0.0            0.0            0.0                           \r\n            29      0      1.658088E-05   0.0            3.788236E-05   0.0            0.0            0.0                           \r\n            30      0      1.618500E-05   0.0            1.420933E-05   0.0            0.0            0.0                           \r\n            31      0      1.584410E-05   0.0           -9.121423E-06   0.0            0.0            0.0                           \r\n            32      0      1.553952E-05   0.0           -3.178199E-05   0.0            0.0            0.0                           \r\n            33      0      3.316699E-05   0.0            3.749433E-05   0.0            0.0            0.0                           \r\n            34      0      3.237715E-05   0.0            1.381965E-05   0.0            0.0            0.0                           \r\n            35      0      3.169449E-05   0.0           -9.498061E-06   0.0            0.0            0.0                           \r\n            36      0      3.108249E-05   0.0           -3.216007E-05   0.0            0.0            0.0                           \r\n            37      0      4.977771E-05   0.0            3.683699E-05   0.0            0.0            0.0                           \r\n            38      0      4.859733E-05   0.0            1.316751E-05   0.0            0.0            0.0                           \r\n            39      0      4.757097E-05   0.0           -1.012202E-05   0.0            0.0            0.0                           \r\n            40      0      4.664563E-05   0.0           -3.278059E-05   0.0            0.0            0.0                           \r\n            41      0      6.640884E-05   0.0            3.589424E-05   0.0            0.0            0.0                           \r\n            42      0      6.484381E-05   0.0            1.224985E-05   0.0            0.0            0.0                           \r\n            43      0      6.347164E-05   0.0           -1.098742E-05   0.0            0.0            0.0                           \r\n            44      0      6.222529E-05   0.0           -3.362897E-05   0.0            0.0            0.0                           \r\n            45      0      8.304563E-05   0.0            3.464297E-05   0.0            0.0            0.0                           \r\n            46      0      8.110348E-05   0.0            1.106402E-05   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.469045E+08    (CYCLIC FREQUENCY =  1.090003E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            47      0      7.938762E-05   0.0           -1.208771E-05   0.0            0.0            0.0                           \r\n            48      0      7.781218E-05   0.0           -3.468357E-05   0.0            0.0            0.0                           \r\n            49      0      9.965931E-05   0.0            3.304831E-05   0.0            0.0            0.0                           \r\n            50      0      9.736842E-05   0.0            9.606859E-06   0.0            0.0            0.0                           \r\n            51      0      9.531625E-05   0.0           -1.342217E-05   0.0            0.0            0.0                           \r\n            52      0      9.340864E-05   0.0           -3.591328E-05   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.108819E+09    (CYCLIC FREQUENCY =  1.660250E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             1      0      1.000000E+00   0.0           -3.316128E-01   0.0            0.0            0.0                           \r\n             2      0      9.770127E-01   0.0           -9.639699E-02   0.0            0.0            0.0                           \r\n             3      0      9.564208E-01   0.0            1.346806E-01   0.0            0.0            0.0                           \r\n             4      0      9.372795E-01   0.0            3.603605E-01   0.0            0.0            0.0                           \r\n             5      0      8.332952E-01   0.0           -3.476140E-01   0.0            0.0            0.0                           \r\n             6      0      8.138074E-01   0.0           -1.110184E-01   0.0            0.0            0.0                           \r\n             7      0      7.965901E-01   0.0            1.212903E-01   0.0            0.0            0.0                           \r\n             8      0      7.807818E-01   0.0            3.480214E-01   0.0            0.0            0.0                           \r\n             9      0      6.663585E-01   0.0           -3.601694E-01   0.0            0.0            0.0                           \r\n            10      0      6.506548E-01   0.0           -1.229173E-01   0.0            0.0            0.0                           \r\n            11      0      6.368862E-01   0.0            1.102499E-01   0.0            0.0            0.0                           \r\n            12      0      6.243801E-01   0.0            3.374393E-01   0.0            0.0            0.0                           \r\n            13      0      4.994788E-01   0.0           -3.696292E-01   0.0            0.0            0.0                           \r\n            14      0      4.876347E-01   0.0           -1.321252E-01   0.0            0.0            0.0                           \r\n            15      0      4.773359E-01   0.0            1.015662E-01   0.0            0.0            0.0                           \r\n            16      0      4.680508E-01   0.0            3.289265E-01   0.0            0.0            0.0                           \r\n            17      0      3.328038E-01   0.0           -3.762251E-01   0.0            0.0            0.0                           \r\n            18      0      3.248783E-01   0.0           -1.386689E-01   0.0            0.0            0.0                           \r\n            19      0      3.180284E-01   0.0            9.530529E-02   0.0            0.0            0.0                           \r\n            20      0      3.118874E-01   0.0            3.227001E-01   0.0            0.0            0.0                           \r\n            21      0      1.663756E-01   0.0           -3.801186E-01   0.0            0.0            0.0                           \r\n            22      0      1.624033E-01   0.0           -1.425791E-01   0.0            0.0            0.0                           \r\n            23      0      1.589826E-01   0.0            9.152605E-02   0.0            0.0            0.0                           \r\n            24      0      1.559264E-01   0.0            3.189064E-01   0.0            0.0            0.0                           \r\n            25      0      3.014657E-09   0.0           -3.814068E-01   0.0            0.0            0.0                           \r\n            26      0      2.975396E-09   0.0           -1.438804E-01   0.0            0.0            0.0                           \r\n            27      0      2.903608E-09   0.0            9.026176E-02   0.0            0.0            0.0                           \r\n            28      0      2.807007E-09   0.0            3.176314E-01   0.0            0.0            0.0                           \r\n            29      0     -1.663756E-01   0.0           -3.801186E-01   0.0            0.0            0.0                           \r\n            30      0     -1.624033E-01   0.0           -1.425791E-01   0.0            0.0            0.0                           \r\n            31      0     -1.589826E-01   0.0            9.152605E-02   0.0            0.0            0.0                           \r\n            32      0     -1.559264E-01   0.0            3.189064E-01   0.0            0.0            0.0                           \r\n            33      0     -3.328038E-01   0.0           -3.762251E-01   0.0            0.0            0.0                           \r\n            34      0     -3.248783E-01   0.0           -1.386689E-01   0.0            0.0            0.0                           \r\n            35      0     -3.180284E-01   0.0            9.530529E-02   0.0            0.0            0.0                           \r\n            36      0     -3.118874E-01   0.0            3.227001E-01   0.0            0.0            0.0                           \r\n            37      0     -4.994788E-01   0.0           -3.696292E-01   0.0            0.0            0.0                           \r\n            38      0     -4.876346E-01   0.0           -1.321252E-01   0.0            0.0            0.0                           \r\n            39      0     -4.773359E-01   0.0            1.015662E-01   0.0            0.0            0.0                           \r\n            40      0     -4.680508E-01   0.0            3.289265E-01   0.0            0.0            0.0                           \r\n            41      0     -6.663585E-01   0.0           -3.601694E-01   0.0            0.0            0.0                           \r\n            42      0     -6.506548E-01   0.0           -1.229173E-01   0.0            0.0            0.0                           \r\n            43      0     -6.368862E-01   0.0            1.102499E-01   0.0            0.0            0.0                           \r\n            44      0     -6.243801E-01   0.0            3.374393E-01   0.0            0.0            0.0                           \r\n            45      0     -8.332952E-01   0.0           -3.476140E-01   0.0            0.0            0.0                           \r\n            46      0     -8.138073E-01   0.0           -1.110184E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.108819E+09    (CYCLIC FREQUENCY =  1.660250E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            47      0     -7.965901E-01   0.0            1.212903E-01   0.0            0.0            0.0                           \r\n            48      0     -7.807818E-01   0.0            3.480214E-01   0.0            0.0            0.0                           \r\n            49      0     -1.000000E+00   0.0           -3.316128E-01   0.0            0.0            0.0                           \r\n            50      0     -9.770127E-01   0.0           -9.639699E-02   0.0            0.0            0.0                           \r\n            51      0     -9.564208E-01   0.0            1.346806E-01   0.0            0.0            0.0                           \r\n            52      0     -9.372795E-01   0.0            3.603605E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.122293E+09    (CYCLIC FREQUENCY =  1.760034E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             1      0      9.797873E-01   0.0            1.082766E-01   0.0            0.0            0.0                           \r\n             2      0      9.571791E-01   0.0            9.849149E-02   0.0            0.0            0.0                           \r\n             3      0      9.370077E-01   0.0            8.924261E-02   0.0            0.0            0.0                           \r\n             4      0      9.182331E-01   0.0            8.006150E-02   0.0            0.0            0.0                           \r\n             5      0      9.860328E-01   0.0            9.072368E-02   0.0            0.0            0.0                           \r\n             6      0      9.632818E-01   0.0            8.267042E-02   0.0            0.0            0.0                           \r\n             7      0      9.429893E-01   0.0            7.484650E-02   0.0            0.0            0.0                           \r\n             8      0      9.241526E-01   0.0            6.709372E-02   0.0            0.0            0.0                           \r\n             9      0      9.910371E-01   0.0            7.293779E-02   0.0            0.0            0.0                           \r\n            10      0      9.682822E-01   0.0            6.653246E-02   0.0            0.0            0.0                           \r\n            11      0      9.479811E-01   0.0            6.021316E-02   0.0            0.0            0.0                           \r\n            12      0      9.291136E-01   0.0            5.391906E-02   0.0            0.0            0.0                           \r\n            13      0      9.949406E-01   0.0            5.492388E-02   0.0            0.0            0.0                           \r\n            14      0      9.721913E-01   0.0            5.012247E-02   0.0            0.0            0.0                           \r\n            15      0      9.519057E-01   0.0            4.535472E-02   0.0            0.0            0.0                           \r\n            16      0      9.330276E-01   0.0            4.058349E-02   0.0            0.0            0.0                           \r\n            17      0      9.977446E-01   0.0            3.672466E-02   0.0            0.0            0.0                           \r\n            18      0      9.750016E-01   0.0            3.351833E-02   0.0            0.0            0.0                           \r\n            19      0      9.547262E-01   0.0            3.032718E-02   0.0            0.0            0.0                           \r\n            20      0      9.358434E-01   0.0            2.712557E-02   0.0            0.0            0.0                           \r\n            21      0      9.994348E-01   0.0            1.839958E-02   0.0            0.0            0.0                           \r\n            22      0      9.766956E-01   0.0            1.679330E-02   0.0            0.0            0.0                           \r\n            23      0      9.564246E-01   0.0            1.519361E-02   0.0            0.0            0.0                           \r\n            24      0      9.375387E-01   0.0            1.358696E-02   0.0            0.0            0.0                           \r\n            25      0      1.000000E+00   0.0            5.626747E-10   0.0            0.0            0.0                           \r\n            26      0      9.772620E-01   0.0            2.122909E-10   0.0            0.0            0.0                           \r\n            27      0      9.569921E-01   0.0           -1.330876E-10   0.0            0.0            0.0                           \r\n            28      0      9.381050E-01   0.0           -4.684615E-10   0.0            0.0            0.0                           \r\n            29      0      9.994348E-01   0.0           -1.839958E-02   0.0            0.0            0.0                           \r\n            30      0      9.766956E-01   0.0           -1.679329E-02   0.0            0.0            0.0                           \r\n            31      0      9.564246E-01   0.0           -1.519361E-02   0.0            0.0            0.0                           \r\n            32      0      9.375387E-01   0.0           -1.358696E-02   0.0            0.0            0.0                           \r\n            33      0      9.977446E-01   0.0           -3.672466E-02   0.0            0.0            0.0                           \r\n            34      0      9.750016E-01   0.0           -3.351833E-02   0.0            0.0            0.0                           \r\n            35      0      9.547262E-01   0.0           -3.032718E-02   0.0            0.0            0.0                           \r\n            36      0      9.358434E-01   0.0           -2.712557E-02   0.0            0.0            0.0                           \r\n            37      0      9.949406E-01   0.0           -5.492388E-02   0.0            0.0            0.0                           \r\n            38      0      9.721913E-01   0.0           -5.012247E-02   0.0            0.0            0.0                           \r\n            39      0      9.519057E-01   0.0           -4.535472E-02   0.0            0.0            0.0                           \r\n            40      0      9.330276E-01   0.0           -4.058349E-02   0.0            0.0            0.0                           \r\n            41      0      9.910371E-01   0.0           -7.293779E-02   0.0            0.0            0.0                           \r\n            42      0      9.682822E-01   0.0           -6.653246E-02   0.0            0.0            0.0                           \r\n            43      0      9.479811E-01   0.0           -6.021316E-02   0.0            0.0            0.0                           \r\n            44      0      9.291136E-01   0.0           -5.391906E-02   0.0            0.0            0.0                           \r\n            45      0      9.860328E-01   0.0           -9.072367E-02   0.0            0.0            0.0                           \r\n            46      0      9.632818E-01   0.0           -8.267042E-02   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.122293E+09    (CYCLIC FREQUENCY =  1.760034E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            47      0      9.429893E-01   0.0           -7.484650E-02   0.0            0.0            0.0                           \r\n            48      0      9.241526E-01   0.0           -6.709373E-02   0.0            0.0            0.0                           \r\n            49      0      9.797873E-01   0.0           -1.082766E-01   0.0            0.0            0.0                           \r\n            50      0      9.571791E-01   0.0           -9.849149E-02   0.0            0.0            0.0                           \r\n            51      0      9.370077E-01   0.0           -8.924261E-02   0.0            0.0            0.0                           \r\n            52      0      9.182331E-01   0.0           -8.006150E-02   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.156122E+09    (CYCLIC FREQUENCY =  1.988622E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n             1      0     -1.568144E-08   0.0           -1.519164E-09   0.0            0.0            0.0                           \r\n             2      0     -1.531964E-08   0.0           -1.481126E-09   0.0            0.0            0.0                           \r\n             3      0     -1.499679E-08   0.0           -1.449405E-09   0.0            0.0            0.0                           \r\n             4      0     -1.469632E-08   0.0           -1.416125E-09   0.0            0.0            0.0                           \r\n             5      0     -1.569770E-08   0.0           -1.239156E-09   0.0            0.0            0.0                           \r\n             6      0     -1.533538E-08   0.0           -1.228649E-09   0.0            0.0            0.0                           \r\n             7      0     -1.501229E-08   0.0           -1.219626E-09   0.0            0.0            0.0                           \r\n             8      0     -1.471246E-08   0.0           -1.209010E-09   0.0            0.0            0.0                           \r\n             9      0     -1.569460E-08   0.0           -9.572009E-10   0.0            0.0            0.0                           \r\n            10      0     -1.533405E-08   0.0           -9.725728E-10   0.0            0.0            0.0                           \r\n            11      0     -1.501249E-08   0.0           -9.873037E-10   0.0            0.0            0.0                           \r\n            12      0     -1.471378E-08   0.0           -9.995348E-10   0.0            0.0            0.0                           \r\n            13      0     -1.567445E-08   0.0           -6.732053E-10   0.0            0.0            0.0                           \r\n            14      0     -1.531585E-08   0.0           -7.135781E-10   0.0            0.0            0.0                           \r\n            15      0     -1.499621E-08   0.0           -7.526292E-10   0.0            0.0            0.0                           \r\n            16      0     -1.469890E-08   0.0           -7.885649E-10   0.0            0.0            0.0                           \r\n            17      0     -1.563735E-08   0.0           -3.877205E-10   0.0            0.0            0.0                           \r\n            18      0     -1.528074E-08   0.0           -4.528601E-10   0.0            0.0            0.0                           \r\n            19      0     -1.496293E-08   0.0           -5.165035E-10   0.0            0.0            0.0                           \r\n            20      0     -1.466706E-08   0.0           -5.768028E-10   0.0            0.0            0.0                           \r\n            21      0     -1.558309E-08   0.0           -1.015900E-10   0.0            0.0            0.0                           \r\n            22      0     -1.522845E-08   0.0           -1.915408E-10   0.0            0.0            0.0                           \r\n            23      0     -1.491236E-08   0.0           -2.799331E-10   0.0            0.0            0.0                           \r\n            24      0     -1.461794E-08   0.0           -3.649656E-10   0.0            0.0            0.0                           \r\n            25      0     -1.551140E-08   0.0            1.844362E-10   0.0            0.0            0.0                           \r\n            26      0     -1.515870E-08   0.0            6.957605E-11   0.0            0.0            0.0                           \r\n            27      0     -1.484429E-08   0.0           -4.364761E-11   0.0            0.0            0.0                           \r\n            28      0     -1.455132E-08   0.0           -1.535962E-10   0.0            0.0            0.0                           \r\n            29      0     -1.542218E-08   0.0            4.692164E-10   0.0            0.0            0.0                           \r\n            30      0     -1.507138E-08   0.0            3.294343E-10   0.0            0.0            0.0                           \r\n            31      0     -1.475861E-08   0.0            1.914152E-10   0.0            0.0            0.0                           \r\n            32      0     -1.446714E-08   0.0            5.653992E-11   0.0            0.0            0.0                           \r\n            33      0     -1.531548E-08   0.0            7.515814E-10   0.0            0.0            0.0                           \r\n            34      0     -1.496654E-08   0.0            5.869720E-10   0.0            0.0            0.0                           \r\n            35      0     -1.465535E-08   0.0            4.243305E-10   0.0            0.0            0.0                           \r\n            36      0     -1.436542E-08   0.0            2.647082E-10   0.0            0.0            0.0                           \r\n            37      0     -1.519139E-08   0.0            1.030687E-09   0.0            0.0            0.0                           \r\n            38      0     -1.484424E-08   0.0            8.413613E-10   0.0            0.0            0.0                           \r\n            39      0     -1.453456E-08   0.0            6.544011E-10   0.0            0.0            0.0                           \r\n            40      0     -1.424623E-08   0.0            4.704485E-10   0.0            0.0            0.0                           \r\n            41      0     -1.505014E-08   0.0            1.305534E-09   0.0            0.0            0.0                           \r\n            42      0     -1.470478E-08   0.0            1.091451E-09   0.0            0.0            0.0                           \r\n            43      0     -1.439654E-08   0.0            8.806773E-10   0.0            0.0            0.0                           \r\n            44      0     -1.410992E-08   0.0            6.731854E-10   0.0            0.0            0.0                           \r\n            45      0     -1.489179E-08   0.0            1.575346E-09   0.0            0.0            0.0                           \r\n            46      0     -1.454832E-08   0.0            1.336019E-09   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-09-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.156122E+09    (CYCLIC FREQUENCY =  1.988622E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n     SECTOR-ID\r\n      POINT-ID\r\n       RING-ID  HARMONIC        T1             T2             T3             R1             R2             R3\r\n            47      0     -1.424188E-08   0.0            1.102322E-09   0.0            0.0            0.0                           \r\n            48      0     -1.395734E-08   0.0            8.724257E-10   0.0            0.0            0.0                           \r\n            49      0     -1.471431E-08   0.0            1.839878E-09   0.0            0.0            0.0                           \r\n            50      0     -1.437474E-08   0.0            1.574356E-09   0.0            0.0            0.0                           \r\n            51      0     -1.407181E-08   0.0            1.319151E-09   0.0            0.0            0.0                           \r\n            52      0     -1.378984E-08   0.0            1.067607E-09   0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                               \r\n DATE:  5/17/95\r\n END TIME: 16:44: 2\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03101a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03101A,NASTRAN                                                           \r\n     SOL   3                                                                         \r\n     TIME  20                                                                        \r\n     APP   DISP                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                 \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-10-1A                                   \r\n                  3        METHOD = 1                                                                    \r\n                  4      SUBCASE  1                                                                      \r\n                  5        DISP   = ALL                                                                  \r\n                  6        MODES  = 5                                                                    \r\n                  7      SUBCASE  6                                                                      \r\n                  8        DISP   = NONE                                                                 \r\n                  9      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    93, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CTRAPRG 1       1       2       6       5               1                       \r\n                    2-        CTRAPRG 2       2       3       7       6               1                       \r\n                    3-        CTRAPRG 3       3       4       8       7               1                       \r\n                    4-        CTRAPRG 5       5       6       10      9               1                       \r\n                    5-        CTRAPRG 6       6       7       11      10              1                       \r\n                    6-        CTRAPRG 7       7       8       12      11              1                       \r\n                    7-        CTRAPRG 9       9       10      14      13              1                       \r\n                    8-        CTRAPRG 10      10      11      15      14              1                       \r\n                    9-        CTRAPRG 11      11      12      16      15              1                       \r\n                   10-        CTRAPRG 13      13      14      18      17              1                       \r\n                   11-        CTRAPRG 14      14      15      19      18              1                       \r\n                   12-        CTRAPRG 15      15      16      20      19              1                       \r\n                   13-        CTRAPRG 17      17      18      22      21              1                       \r\n                   14-        CTRAPRG 18      18      19      23      22              1                       \r\n                   15-        CTRAPRG 19      19      20      24      23              1                       \r\n                   16-        CTRAPRG 21      21      22      26      25              1                       \r\n                   17-        CTRAPRG 22      22      23      27      26              1                       \r\n                   18-        CTRAPRG 23      23      24      28      27              1                       \r\n                   19-        CTRAPRG 25      25      26      30      29              1                       \r\n                   20-        CTRAPRG 26      26      27      31      30              1                       \r\n                   21-        CTRAPRG 27      27      28      32      31              1                       \r\n                   22-        CTRAPRG 29      29      30      34      33              1                       \r\n                   23-        CTRAPRG 30      30      31      35      34              1                       \r\n                   24-        CTRAPRG 31      31      32      36      35              1                       \r\n                   25-        CTRAPRG 33      33      34      38      37              1                       \r\n                   26-        CTRAPRG 34      34      35      39      38              1                       \r\n                   27-        CTRAPRG 35      35      36      40      39              1                       \r\n                   28-        CTRAPRG 37      37      38      42      41              1                       \r\n                   29-        CTRAPRG 38      38      39      43      42              1                       \r\n                   30-        CTRAPRG 39      39      40      44      43              1                       \r\n                   31-        CTRAPRG 41      41      42      46      45              1                       \r\n                   32-        CTRAPRG 42      42      43      47      46              1                       \r\n                   33-        CTRAPRG 43      43      44      48      47              1                       \r\n                   34-        CTRAPRG 45      45      46      50      49              1                       \r\n                   35-        CTRAPRG 46      46      47      51      50              1                       \r\n                   36-        CTRAPRG 47      47      48      52      51              1                       \r\n                   37-        EIGR    1       INV     0.      5000.   10      10              1.-3    +E      \r\n                   38-        +E      MAX                                                                     \r\n                   39-        GRDSET                                                  2456                    \r\n                   40-        GRID    1               5.0000          2.0000                                  \r\n                   41-        GRID    2               5.4167          2.0000                                  \r\n                   42-        GRID    3               5.8333          2.0000                                  \r\n                   43-        GRID    4               6.2500          2.0000                                  \r\n                   44-        GRID    5               5.0000          2.2917                                  \r\n                   45-        GRID    6               5.4167          2.2917                                  \r\n                   46-        GRID    7               5.8333          2.2917                                  \r\n                   47-        GRID    8               6.2500          2.2917                                  \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    9               5.0000          2.5833                                  \r\n                   49-        GRID    10              5.4167          2.5833                                  \r\n                   50-        GRID    11              5.8333          2.5833                                  \r\n                   51-        GRID    12              6.2500          2.5833                                  \r\n                   52-        GRID    13              5.0000          2.8750                                  \r\n                   53-        GRID    14              5.4167          2.8750                                  \r\n                   54-        GRID    15              5.8333          2.8750                                  \r\n                   55-        GRID    16              6.2500          2.8750                                  \r\n                   56-        GRID    17              5.0000          3.1667                                  \r\n                   57-        GRID    18              5.4167          3.1667                                  \r\n                   58-        GRID    19              5.8333          3.1667                                  \r\n                   59-        GRID    20              6.2500          3.1667                                  \r\n                   60-        GRID    21              5.0000          3.4583                                  \r\n                   61-        GRID    22              5.4167          3.4583                                  \r\n                   62-        GRID    23              5.8333          3.4583                                  \r\n                   63-        GRID    24              6.2500          3.4583                                  \r\n                   64-        GRID    25              5.0000          3.7500                                  \r\n                   65-        GRID    26              5.4167          3.7500                                  \r\n                   66-        GRID    27              5.8333          3.7500                                  \r\n                   67-        GRID    28              6.2500          3.7500                                  \r\n                   68-        GRID    29              5.0000          4.0417                                  \r\n                   69-        GRID    30              5.4167          4.0417                                  \r\n                   70-        GRID    31              5.8333          4.0417                                  \r\n                   71-        GRID    32              6.2500          4.0417                                  \r\n                   72-        GRID    33              5.0000          4.3333                                  \r\n                   73-        GRID    34              5.4167          4.3333                                  \r\n                   74-        GRID    35              5.8333          4.3333                                  \r\n                   75-        GRID    36              6.2500          4.3333                                  \r\n                   76-        GRID    37              5.0000          4.6250                                  \r\n                   77-        GRID    38              5.4167          4.6250                                  \r\n                   78-        GRID    39              5.8333          4.6250                                  \r\n                   79-        GRID    40              6.2500          4.6250                                  \r\n                   80-        GRID    41              5.0000          4.9167                                  \r\n                   81-        GRID    42              5.4167          4.9167                                  \r\n                   82-        GRID    43              5.8333          4.9167                                  \r\n                   83-        GRID    44              6.2500          4.9167                                  \r\n                   84-        GRID    45              5.0000          5.2083                                  \r\n                   85-        GRID    46              5.4167          5.2083                                  \r\n                   86-        GRID    47              5.8333          5.2083                                  \r\n                   87-        GRID    48              6.2500          5.2083                                  \r\n                   88-        GRID    49              5.0000          5.5000                                  \r\n                   89-        GRID    50              5.4167          5.5000                                  \r\n                   90-        GRID    51              5.8333          5.5000                                  \r\n                   91-        GRID    52              6.2500          5.5000                                  \r\n                   92-        MAT1    1       3.+7            .3      7.8-3                                   \r\n                   93-        PARAM   COUPMASS1                                                               \r\n                              ENDDATA\r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            283\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    5.442\r\n                                        RMS WAVEFRONT    5.538\r\n                                        RMS BANDWIDTH    5.563\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE            283\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    5.442\r\n                                        RMS WAVEFRONT    5.538\r\n                                        RMS BANDWIDTH    5.563\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        6         6\r\n                                        PROFILE (P)                        283       283\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.442     5.442\r\n                                        RMS WAVEFRONT (C-RMS)            5.538     5.538\r\n                                        RMS BANDWITCH (B-RMS)            5.563     5.563\r\n                                        NUMBER OF GRID POINTS (N)                     52\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                36\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           8\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       159\r\n                                        MATRIX DENSITY, PERCENT                   13.683\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRAPRG   ELEMENTS (ELEMENT TYPE  37) STARTING WITH ID        1\r\n                        3 ROOTS BELOW   2.467401E+08\r\n                        2 ROOTS BELOW   1.206943E+08\r\n                        3 ROOTS BELOW   1.222931E+08\r\n                        1 ROOTS BELOW   1.088098E+08\r\n                        4 ROOTS BELOW   1.154333E+09\r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         4\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         5\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        26\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.61E-08\r\n0                                                                              . . .         4\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         1\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                             NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY         *\r\n                                     *         3 EIGENVALUE(S) AT LOW FREQ. END NOT FOUND           *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         3        6.645746E-01        8.152145E-01        1.297454E-01        1.206077E+00        8.015279E-01             \r\n        2         2        1.088195E+08        1.043166E+04        1.660250E+03        4.238784E-01        4.612622E+07             \r\n        3         1        1.222931E+08        1.105862E+04        1.760034E+03        1.115104E+00        1.363694E+08             \r\n        4         4        1.154310E+09        3.397514E+04        5.407312E+03        3.974966E-01        4.588343E+08             \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.664575E+00    (CYCLIC FREQUENCY =  1.297454E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -3.731007E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n             2      G     -3.608073E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n             3      G     -3.536889E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n             4      G     -3.505078E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n             5      G     -2.436614E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n             6      G     -2.329479E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n             7      G     -2.279446E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n             8      G     -2.279248E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n             9      G     -1.085947E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n            10      G     -9.445252E-08   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            11      G     -9.210216E-08   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            12      G     -1.006028E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n            13      G      1.979394E-08   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            14      G      3.788428E-08   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            15      G      3.753502E-08   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            16      G      2.008723E-08   0.0            9.999996E-01   0.0            0.0            0.0                           \r\n            17      G      1.256460E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            18      G      1.474430E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            19      G      1.447778E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            20      G      1.194146E-07   0.0            9.999996E-01   0.0            0.0            0.0                           \r\n            21      G      1.953679E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            22      G      2.197809E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            23      G      2.155497E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            24      G      1.847361E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n            25      G      2.198151E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            26      G      2.451703E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            27      G      2.403483E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            28      G      2.075387E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            29      G      1.956524E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n            30      G      2.200590E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            31      G      2.157189E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            32      G      1.847365E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            33      G      1.261488E-07   0.0            9.999996E-01   0.0            0.0            0.0                           \r\n            34      G      1.478776E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            35      G      1.449939E-07   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            36      G      1.193449E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            37      G      2.048470E-08   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n            38      G      3.843126E-08   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n            39      G      3.772387E-08   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            40      G      1.993060E-08   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            41      G     -1.076474E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n            42      G     -9.371047E-08   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n            43      G     -9.179033E-08   0.0            9.999998E-01   0.0            0.0            0.0                           \r\n            44      G     -1.006045E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            45      G     -2.424443E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n            46      G     -2.319018E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.664575E+00    (CYCLIC FREQUENCY =  1.297454E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            47      G     -2.272404E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            48      G     -2.274358E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            49      G     -3.717489E-07   0.0            9.999995E-01   0.0            0.0            0.0                           \r\n            50      G     -3.595093E-07   0.0            9.999997E-01   0.0            0.0            0.0                           \r\n            51      G     -3.525300E-07   0.0            9.999999E-01   0.0            0.0            0.0                           \r\n            52      G     -3.494642E-07   0.0            1.000000E+00   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.108819E+09    (CYCLIC FREQUENCY =  1.660250E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.000000E+00   0.0           -3.316140E-01   0.0            0.0            0.0                           \r\n             2      G      9.770127E-01   0.0           -9.639819E-02   0.0            0.0            0.0                           \r\n             3      G      9.564208E-01   0.0            1.346793E-01   0.0            0.0            0.0                           \r\n             4      G      9.372795E-01   0.0            3.603593E-01   0.0            0.0            0.0                           \r\n             5      G      8.332952E-01   0.0           -3.476152E-01   0.0            0.0            0.0                           \r\n             6      G      8.138074E-01   0.0           -1.110196E-01   0.0            0.0            0.0                           \r\n             7      G      7.965901E-01   0.0            1.212891E-01   0.0            0.0            0.0                           \r\n             8      G      7.807818E-01   0.0            3.480202E-01   0.0            0.0            0.0                           \r\n             9      G      6.663585E-01   0.0           -3.601706E-01   0.0            0.0            0.0                           \r\n            10      G      6.506548E-01   0.0           -1.229185E-01   0.0            0.0            0.0                           \r\n            11      G      6.368862E-01   0.0            1.102487E-01   0.0            0.0            0.0                           \r\n            12      G      6.243801E-01   0.0            3.374380E-01   0.0            0.0            0.0                           \r\n            13      G      4.994788E-01   0.0           -3.696304E-01   0.0            0.0            0.0                           \r\n            14      G      4.876347E-01   0.0           -1.321264E-01   0.0            0.0            0.0                           \r\n            15      G      4.773359E-01   0.0            1.015650E-01   0.0            0.0            0.0                           \r\n            16      G      4.680508E-01   0.0            3.289253E-01   0.0            0.0            0.0                           \r\n            17      G      3.328038E-01   0.0           -3.762262E-01   0.0            0.0            0.0                           \r\n            18      G      3.248783E-01   0.0           -1.386701E-01   0.0            0.0            0.0                           \r\n            19      G      3.180284E-01   0.0            9.530409E-02   0.0            0.0            0.0                           \r\n            20      G      3.118874E-01   0.0            3.226989E-01   0.0            0.0            0.0                           \r\n            21      G      1.663756E-01   0.0           -3.801198E-01   0.0            0.0            0.0                           \r\n            22      G      1.624033E-01   0.0           -1.425803E-01   0.0            0.0            0.0                           \r\n            23      G      1.589826E-01   0.0            9.152486E-02   0.0            0.0            0.0                           \r\n            24      G      1.559264E-01   0.0            3.189052E-01   0.0            0.0            0.0                           \r\n            25      G     -6.992828E-15   0.0           -3.814080E-01   0.0            0.0            0.0                           \r\n            26      G     -7.417673E-15   0.0           -1.438816E-01   0.0            0.0            0.0                           \r\n            27      G     -7.023028E-15   0.0            9.026057E-02   0.0            0.0            0.0                           \r\n            28      G     -3.385625E-15   0.0            3.176302E-01   0.0            0.0            0.0                           \r\n            29      G     -1.663756E-01   0.0           -3.801198E-01   0.0            0.0            0.0                           \r\n            30      G     -1.624033E-01   0.0           -1.425803E-01   0.0            0.0            0.0                           \r\n            31      G     -1.589826E-01   0.0            9.152486E-02   0.0            0.0            0.0                           \r\n            32      G     -1.559264E-01   0.0            3.189052E-01   0.0            0.0            0.0                           \r\n            33      G     -3.328038E-01   0.0           -3.762262E-01   0.0            0.0            0.0                           \r\n            34      G     -3.248783E-01   0.0           -1.386701E-01   0.0            0.0            0.0                           \r\n            35      G     -3.180284E-01   0.0            9.530409E-02   0.0            0.0            0.0                           \r\n            36      G     -3.118874E-01   0.0            3.226989E-01   0.0            0.0            0.0                           \r\n            37      G     -4.994788E-01   0.0           -3.696304E-01   0.0            0.0            0.0                           \r\n            38      G     -4.876347E-01   0.0           -1.321264E-01   0.0            0.0            0.0                           \r\n            39      G     -4.773359E-01   0.0            1.015650E-01   0.0            0.0            0.0                           \r\n            40      G     -4.680508E-01   0.0            3.289253E-01   0.0            0.0            0.0                           \r\n            41      G     -6.663585E-01   0.0           -3.601706E-01   0.0            0.0            0.0                           \r\n            42      G     -6.506548E-01   0.0           -1.229185E-01   0.0            0.0            0.0                           \r\n            43      G     -6.368862E-01   0.0            1.102487E-01   0.0            0.0            0.0                           \r\n            44      G     -6.243801E-01   0.0            3.374380E-01   0.0            0.0            0.0                           \r\n            45      G     -8.332952E-01   0.0           -3.476152E-01   0.0            0.0            0.0                           \r\n            46      G     -8.138074E-01   0.0           -1.110196E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.108819E+09    (CYCLIC FREQUENCY =  1.660250E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            47      G     -7.965901E-01   0.0            1.212891E-01   0.0            0.0            0.0                           \r\n            48      G     -7.807818E-01   0.0            3.480202E-01   0.0            0.0            0.0                           \r\n            49      G     -1.000000E+00   0.0           -3.316140E-01   0.0            0.0            0.0                           \r\n            50      G     -9.770127E-01   0.0           -9.639819E-02   0.0            0.0            0.0                           \r\n            51      G     -9.564208E-01   0.0            1.346793E-01   0.0            0.0            0.0                           \r\n            52      G     -9.372795E-01   0.0            3.603593E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.122293E+09    (CYCLIC FREQUENCY =  1.760034E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      9.797873E-01   0.0            1.082766E-01   0.0            0.0            0.0                           \r\n             2      G      9.571791E-01   0.0            9.849149E-02   0.0            0.0            0.0                           \r\n             3      G      9.370077E-01   0.0            8.924261E-02   0.0            0.0            0.0                           \r\n             4      G      9.182331E-01   0.0            8.006150E-02   0.0            0.0            0.0                           \r\n             5      G      9.860328E-01   0.0            9.072368E-02   0.0            0.0            0.0                           \r\n             6      G      9.632818E-01   0.0            8.267042E-02   0.0            0.0            0.0                           \r\n             7      G      9.429893E-01   0.0            7.484650E-02   0.0            0.0            0.0                           \r\n             8      G      9.241526E-01   0.0            6.709373E-02   0.0            0.0            0.0                           \r\n             9      G      9.910371E-01   0.0            7.293779E-02   0.0            0.0            0.0                           \r\n            10      G      9.682822E-01   0.0            6.653246E-02   0.0            0.0            0.0                           \r\n            11      G      9.479811E-01   0.0            6.021316E-02   0.0            0.0            0.0                           \r\n            12      G      9.291136E-01   0.0            5.391906E-02   0.0            0.0            0.0                           \r\n            13      G      9.949406E-01   0.0            5.492388E-02   0.0            0.0            0.0                           \r\n            14      G      9.721913E-01   0.0            5.012247E-02   0.0            0.0            0.0                           \r\n            15      G      9.519057E-01   0.0            4.535472E-02   0.0            0.0            0.0                           \r\n            16      G      9.330276E-01   0.0            4.058349E-02   0.0            0.0            0.0                           \r\n            17      G      9.977446E-01   0.0            3.672466E-02   0.0            0.0            0.0                           \r\n            18      G      9.750016E-01   0.0            3.351833E-02   0.0            0.0            0.0                           \r\n            19      G      9.547262E-01   0.0            3.032718E-02   0.0            0.0            0.0                           \r\n            20      G      9.358434E-01   0.0            2.712557E-02   0.0            0.0            0.0                           \r\n            21      G      9.994348E-01   0.0            1.839958E-02   0.0            0.0            0.0                           \r\n            22      G      9.766956E-01   0.0            1.679330E-02   0.0            0.0            0.0                           \r\n            23      G      9.564246E-01   0.0            1.519361E-02   0.0            0.0            0.0                           \r\n            24      G      9.375387E-01   0.0            1.358696E-02   0.0            0.0            0.0                           \r\n            25      G      1.000000E+00   0.0            5.585439E-13   0.0            0.0            0.0                           \r\n            26      G      9.772620E-01   0.0            2.078196E-13   0.0            0.0            0.0                           \r\n            27      G      9.569921E-01   0.0           -1.268177E-13   0.0            0.0            0.0                           \r\n            28      G      9.381050E-01   0.0           -4.408882E-13   0.0            0.0            0.0                           \r\n            29      G      9.994348E-01   0.0           -1.839958E-02   0.0            0.0            0.0                           \r\n            30      G      9.766956E-01   0.0           -1.679330E-02   0.0            0.0            0.0                           \r\n            31      G      9.564246E-01   0.0           -1.519361E-02   0.0            0.0            0.0                           \r\n            32      G      9.375387E-01   0.0           -1.358696E-02   0.0            0.0            0.0                           \r\n            33      G      9.977446E-01   0.0           -3.672466E-02   0.0            0.0            0.0                           \r\n            34      G      9.750016E-01   0.0           -3.351833E-02   0.0            0.0            0.0                           \r\n            35      G      9.547262E-01   0.0           -3.032718E-02   0.0            0.0            0.0                           \r\n            36      G      9.358434E-01   0.0           -2.712557E-02   0.0            0.0            0.0                           \r\n            37      G      9.949406E-01   0.0           -5.492388E-02   0.0            0.0            0.0                           \r\n            38      G      9.721913E-01   0.0           -5.012247E-02   0.0            0.0            0.0                           \r\n            39      G      9.519057E-01   0.0           -4.535472E-02   0.0            0.0            0.0                           \r\n            40      G      9.330276E-01   0.0           -4.058349E-02   0.0            0.0            0.0                           \r\n            41      G      9.910371E-01   0.0           -7.293779E-02   0.0            0.0            0.0                           \r\n            42      G      9.682822E-01   0.0           -6.653246E-02   0.0            0.0            0.0                           \r\n            43      G      9.479811E-01   0.0           -6.021316E-02   0.0            0.0            0.0                           \r\n            44      G      9.291136E-01   0.0           -5.391906E-02   0.0            0.0            0.0                           \r\n            45      G      9.860328E-01   0.0           -9.072368E-02   0.0            0.0            0.0                           \r\n            46      G      9.632818E-01   0.0           -8.267042E-02   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.122293E+09    (CYCLIC FREQUENCY =  1.760034E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            47      G      9.429893E-01   0.0           -7.484650E-02   0.0            0.0            0.0                           \r\n            48      G      9.241526E-01   0.0           -6.709373E-02   0.0            0.0            0.0                           \r\n            49      G      9.797873E-01   0.0           -1.082766E-01   0.0            0.0            0.0                           \r\n            50      G      9.571791E-01   0.0           -9.849149E-02   0.0            0.0            0.0                           \r\n            51      G      9.370077E-01   0.0           -8.924261E-02   0.0            0.0            0.0                           \r\n            52      G      9.182331E-01   0.0           -8.006150E-02   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.115431E+10    (CYCLIC FREQUENCY =  5.407312E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.000000E+00   0.0           -7.127498E-01   0.0            0.0            0.0                           \r\n             2      G      9.669811E-01   0.0           -2.426051E-01   0.0            0.0            0.0                           \r\n             3      G      9.478030E-01   0.0            1.927090E-01   0.0            0.0            0.0                           \r\n             4      G      9.393123E-01   0.0            6.464145E-01   0.0            0.0            0.0                           \r\n             5      G      6.519955E-01   0.0           -7.126544E-01   0.0            0.0            0.0                           \r\n             6      G      6.235925E-01   0.0           -2.479930E-01   0.0            0.0            0.0                           \r\n             7      G      6.107779E-01   0.0            1.737844E-01   0.0            0.0            0.0                           \r\n             8      G      6.111974E-01   0.0            6.221361E-01   0.0            0.0            0.0                           \r\n             9      G      2.892010E-01   0.0           -6.719176E-01   0.0            0.0            0.0                           \r\n            10      G      2.518869E-01   0.0           -2.341190E-01   0.0            0.0            0.0                           \r\n            11      G      2.467034E-01   0.0            1.494932E-01   0.0            0.0            0.0                           \r\n            12      G      2.703909E-01   0.0            5.720758E-01   0.0            0.0            0.0                           \r\n            13      G     -5.528571E-02   0.0           -5.749021E-01   0.0            0.0            0.0                           \r\n            14      G     -1.031466E-01   0.0           -1.996000E-01   0.0            0.0            0.0                           \r\n            15      G     -1.009851E-01   0.0            1.192812E-01   0.0            0.0            0.0                           \r\n            16      G     -5.306495E-02   0.0            4.818115E-01   0.0            0.0            0.0                           \r\n            17      G     -3.390555E-01   0.0           -4.214100E-01   0.0            0.0            0.0                           \r\n            18      G     -3.969231E-01   0.0           -1.458731E-01   0.0            0.0            0.0                           \r\n            19      G     -3.887292E-01   0.0            8.347291E-02   0.0            0.0            0.0                           \r\n            20      G     -3.195796E-01   0.0            3.498286E-01   0.0            0.0            0.0                           \r\n            21      G     -5.256982E-01   0.0           -2.230998E-01   0.0            0.0            0.0                           \r\n            22      G     -5.906829E-01   0.0           -7.709538E-02   0.0            0.0            0.0                           \r\n            23      G     -5.785339E-01   0.0            4.305656E-02   0.0            0.0            0.0                           \r\n            24      G     -4.949215E-01   0.0            1.842644E-01   0.0            0.0            0.0                           \r\n            25      G     -5.908250E-01   0.0            1.227958E-07   0.0            0.0            0.0                           \r\n            26      G     -6.583772E-01   0.0            1.227958E-07   0.0            0.0            0.0                           \r\n            27      G     -6.448504E-01   0.0            1.227958E-07   0.0            0.0            0.0                           \r\n            28      G     -5.561131E-01   0.0            1.227958E-07   0.0            0.0            0.0                           \r\n            29      G     -5.256982E-01   0.0            2.231001E-01   0.0            0.0            0.0                           \r\n            30      G     -5.906829E-01   0.0            7.709563E-02   0.0            0.0            0.0                           \r\n            31      G     -5.785339E-01   0.0           -4.305632E-02   0.0            0.0            0.0                           \r\n            32      G     -4.949215E-01   0.0           -1.842641E-01   0.0            0.0            0.0                           \r\n            33      G     -3.390555E-01   0.0            4.214103E-01   0.0            0.0            0.0                           \r\n            34      G     -3.969231E-01   0.0            1.458734E-01   0.0            0.0            0.0                           \r\n            35      G     -3.887292E-01   0.0           -8.347267E-02   0.0            0.0            0.0                           \r\n            36      G     -3.195796E-01   0.0           -3.498284E-01   0.0            0.0            0.0                           \r\n            37      G     -5.528571E-02   0.0            5.749024E-01   0.0            0.0            0.0                           \r\n            38      G     -1.031466E-01   0.0            1.996002E-01   0.0            0.0            0.0                           \r\n            39      G     -1.009851E-01   0.0           -1.192809E-01   0.0            0.0            0.0                           \r\n            40      G     -5.306495E-02   0.0           -4.818113E-01   0.0            0.0            0.0                           \r\n            41      G      2.892010E-01   0.0            6.719178E-01   0.0            0.0            0.0                           \r\n            42      G      2.518869E-01   0.0            2.341192E-01   0.0            0.0            0.0                           \r\n            43      G      2.467034E-01   0.0           -1.494929E-01   0.0            0.0            0.0                           \r\n            44      G      2.703909E-01   0.0           -5.720755E-01   0.0            0.0            0.0                           \r\n            45      G      6.519955E-01   0.0            7.126546E-01   0.0            0.0            0.0                           \r\n            46      G      6.235925E-01   0.0            2.479933E-01   0.0            0.0            0.0                           \r\n1     TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                  /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-10-1A                                                                                            \r\n0                                                                                                            SUBCASE  1             \r\n      EIGENVALUE =  0.115431E+10    (CYCLIC FREQUENCY =  5.407312E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n            47      G      6.107779E-01   0.0           -1.737841E-01   0.0            0.0            0.0                           \r\n            48      G      6.111974E-01   0.0           -6.221358E-01   0.0            0.0            0.0                           \r\n            49      G      1.000000E+00   0.0            7.127500E-01   0.0            0.0            0.0                           \r\n            50      G      9.669811E-01   0.0            2.426053E-01   0.0            0.0            0.0                           \r\n            51      G      9.478030E-01   0.0           -1.927088E-01   0.0            0.0            0.0                           \r\n            52      G      9.393123E-01   0.0           -6.464143E-01   0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                               \r\n DATE:  5/17/95\r\n END TIME: 16:44:45\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03111a.out",
    "content": "     NASTRAN FILES=NPTP                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03111A,NASTRAN                                                           \r\n     CHKPNT  YES                                                                     \r\n     APP   DISP                                                                      \r\n     SOL   3,0                                                                       \r\n     DIAG  14                                                                        \r\n     TIME  10                                                                        \r\n     $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                      \r\n0*** $   ... READFILE FROM-  COSHYD1                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1)        \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3.  REPLACING BEGIN                         \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                           \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEWM,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     DIRECT1,NOGRAV $                                                       \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n     COND     DIRECT1,NOFREE $                                                       \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    DIRECT1 $                                                              \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    61 $  ALTER LABEL LBL5                                               \r\n     INSERT SMP2,1 $                                                                 \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     DIRECT4,NOGRAV $                                                       \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     DIRECT2,MPCF2 $                                                        \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    DIRECT2 $                                                              \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n     COND     DIRECT3,SINGLE $                                                       \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    DIRECT3 $                                                              \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     DIRECT4,OMIT $                                                         \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    DIRECT4 $                                                              \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,            \r\n              MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $             \r\n     EQUIV    KMAT,KAA//MMAT,MAA $                                                   \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    67 $  AFTER LABEL LBL6                                               \r\n     INSERT DPD,-1 $                                                                 \r\n     LABEL    NEWM $                                                                 \r\n     $ ALTER    68,68 $  REPLACING DPD                                               \r\n     DELETE DPD $                                                                    \r\n     DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/          \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n     $ ALTER    75,75 $  REPLACING SDR1                                              \r\n     DELETE SDR1 $                                                                   \r\n     COND     NOCOMP,COMPTYP $                                                       \r\n     MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                                 \r\n     EQUIV    PHIAC,PHIA $                                                           \r\n     LABEL    NOCOMP $                                                               \r\n     MPYAD    GIA,PHIA,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     COND     DIRECT5,NOFREE $                                                       \r\n     VEC      USETF/PV3/*A*/*COMP*/*FR* $                                            \r\n     PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                            \r\n     EQUIV    PHIAB,PHIA $                                                           \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    DIRECT5 $                                                              \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                         \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                              \r\n     MERGE    QX,,,,,PV1/QG/0 $                                                      \r\n     $ ALTER    77,77 $  REPLACING EQMCK                                             \r\n     DELETE EQMCK $                                                                  \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   T03111A ,NASTRAN , 5/17/95,   60361,\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT             \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1A                                   \r\n                  3      $ TEST PROBLEM I.1 - FULL SOLUTION                                              \r\n                  4      DISP = ALL                                                                      \r\n                  5      SPCF = ALL                                                                      \r\n                  6      METHOD = 50                                                                     \r\n                  7      SPC  = 10                                                                       \r\n                  8      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    33, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     6                                                       \r\n                    2-        CFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n                    3-        +CFH1   8       7                                                               \r\n                    4-        CFLSTR  1       100     101     THRU    104                                     \r\n                    5-        CQUAD2  101     100     101     102     106     105                             \r\n                    6-        CQUAD2  102     100     102     104     108     106                             \r\n                    7-        CQUAD2  103     100     104     103     107     108                             \r\n                    8-        CQUAD2  104     100     101     103     104     102                             \r\n                    9-        EIGR    50      GIV     0.0     20.0    6       6       0               +E1     \r\n                   10-        +E1     MAX                                                                     \r\n                   11-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   12-        GRID    1               0.0     0.0     0.0                                     \r\n                   13-        GRID    2               6.0     0.0     0.0                                     \r\n                   14-        GRID    3               0.0     12.0    0.0                                     \r\n                   15-        GRID    4               6.0     12.0    0.0                                     \r\n                   16-        GRID    5               0.0     0.0     12.0                                    \r\n                   17-        GRID    6               6.0     0.0     12.0                                    \r\n                   18-        GRID    7               0.0     12.0    12.0                                    \r\n                   19-        GRID    8               6.0     12.0    12.0                                    \r\n                   20-        GRID    101             0.0     0.0     0.0                                     \r\n                   21-        GRID    102             6.0     0.0     0.0                                     \r\n                   22-        GRID    103             0.0     12.0    0.0                                     \r\n                   23-        GRID    104             6.0     12.0    0.0                                     \r\n                   24-        GRID    105             0.0     0.0     12.0                                    \r\n                   25-        GRID    106             6.0     0.0     12.0                                    \r\n                   26-        GRID    107             0.0     12.0    12.0                                    \r\n                   27-        GRID    108             6.0     12.0    12.0                                    \r\n                   28-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   29-        MATF    200     9.355-4                                                         \r\n                   30-        OMIT1   4       101     103     105     107                                     \r\n                   31-        OMIT1   456     102     104     106     108                                     \r\n                   32-        PQUAD2  100     100     .06                                                     \r\n                   33-        SPC1    10      1256    101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                   \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       3  COMPOFF  NEWM,NEWMODE $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      48  FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, \r\n                   DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                          \r\n\r\n      48  VEC      USETF/PV1/*G*/*X*/*Y* $                                        \r\n\r\n      48  PARTN    KGG,PV1,/KXX,,,KYY $                                           \r\n\r\n      48  PARTN    MGG,PV1,/MXX,,, $                                              \r\n\r\n      48  PARTN    RG,PV1,/RX,,,/1 $                                              \r\n\r\n      48  EQUIV    RX,RG $                                                        \r\n\r\n      48  PARTN    AF,PV1,/,,AXY,AYY $                                            \r\n\r\n      48  COND     DIRECT1,NOGRAV $                                               \r\n\r\n      48  PARTN    DKGG,PV1,/DKXX,,,DKYY $                                        \r\n\r\n      48  COND     DIRECT1,NOFREE $                                               \r\n\r\n      48  VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                    \r\n\r\n      48  PARTN    AYY,,PV2/AFRY,,,/0 $                                           \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      48  PARTN    DKYY,PV2,/DKFRFR,,, $                                          \r\n\r\n      48  LABEL    DIRECT1 $                                                      \r\n\r\n      48  COMPOFF  NOSTRUC,OLDSTR $                                               \r\n\r\n      48  COMPON   2,DIFSTIF $                                                    \r\n\r\n      48  COMPOFF  1,DIFSTIF $                                                    \r\n\r\n      48  EQUIV    KXX,KGG $                                                      \r\n\r\n      48  EQUIV    MXX,MGG $                                                      \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USETS,RG/GM $                                                  \r\n\r\n      52  MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                 \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                               \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                             \r\n\r\n      62  SMP2     USETS,GO,MFF/MAA $                                             \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      63  LABEL    NOSTRUC $                                                      \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  PURGE    DKAA/NOGRAV $                                                  \r\n\r\n      63  COND     DIRECT4,NOGRAV $                                               \r\n\r\n      63  EQUIV    DKXX,DKNN/MPCF1 $                                              \r\n\r\n      63  COND     DIRECT2,MPCF2 $                                                \r\n\r\n      63  MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                     \r\n\r\n      63  LABEL    DIRECT2 $                                                      \r\n\r\n      63  EQUIV    DKNN,DKFF/SINGLE $                                             \r\n\r\n      63  COND     DIRECT3,SINGLE $                                               \r\n\r\n      63  SCE1     USETS,DKNN,,,/DKFF,,,,, $                                      \r\n\r\n      63  LABEL    DIRECT3 $                                                      \r\n\r\n      63  EQUIV    DKFF,DKAA/OMIT $                                               \r\n\r\n      63  COND     DIRECT4,OMIT $                                                 \r\n\r\n      63  SMP2     USETS,GO,DKFF/DKAA $                                           \r\n\r\n      63  LABEL    DIRECT4 $                                                      \r\n\r\n      63  GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,    \r\n                   MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $     \r\n\r\n      63  EQUIV    KMAT,KAA//MMAT,MAA $                                           \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                        \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      69  LABEL    NEWM $                                                         \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/  \r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/     \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  COND     NOCOMP,COMPTYP $                                               \r\n\r\n      77  MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                         \r\n\r\n      77  EQUIV    PHIAC,PHIA $                                                   \r\n\r\n      77  LABEL    NOCOMP $                                                       \r\n\r\n      77  MPYAD    GIA,PHIA,/PHII/0/1/0 $                                         \r\n\r\n      77  EQUIV    PHII,PHIY/NOFREE $                                             \r\n\r\n      77  COND     DIRECT5,NOFREE $                                               \r\n\r\n      77  VEC      USETF/PV3/*A*/*COMP*/*FR* $                                    \r\n\r\n      77  PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                    \r\n\r\n      77  EQUIV    PHIAB,PHIA $                                                   \r\n\r\n      77  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n\r\n      77  LABEL    DIRECT5 $                                                      \r\n\r\n      77  SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                 \r\n\r\n      77  MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                      \r\n\r\n      77  MERGE    QX,,,,,PV1/QG/0 $                                              \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/    \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     104  END      $                                                              \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.312\r\n                                        RMS WAVEFRONT    4.789\r\n                                        RMS BANDWIDTH    4.802\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             64\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.000\r\n                                        RMS WAVEFRONT    4.444\r\n                                        RMS BANDWIDTH    4.444\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                         69        64\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.312     4.000\r\n                                        RMS WAVEFRONT (C-RMS)            4.789     4.444\r\n                                        RMS BANDWITCH (B-RMS)            4.802     4.444\r\n                                        NUMBER OF GRID POINTS (N)                     16\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 5\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        47\r\n                                        MATRIX DENSITY, PERCENT                   42.969\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       9       2      16       3      11       4      10\r\n                         SEQGP          5      12       6      13       7      15       8      14\r\n                         SEQGP        101       2     102       4     103       5     104       6\r\n                         SEQGP        105       1     106       3     107       8     108       7\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE     4802 NOT FOUND ON DATA BLOCK.  BIT POSITION =  48\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER     6\r\n         3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n         5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9\r\n         6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10\r\n         7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11\r\n         8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12\r\n         9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        10,   REENTER AT DMAP SEQUENCE NUMBER     7\r\n        11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13\r\n        12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        13,   REENTER AT DMAP SEQUENCE NUMBER     8\r\n        14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14\r\n        15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15\r\n \r\n        16,   REENTER AT DMAP SEQUENCE NUMBER     9\r\n        17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16\r\n        18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17\r\n        19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18\r\n \r\n        20,   REENTER AT DMAP SEQUENCE NUMBER    10\r\n        21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19\r\n        22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20\r\n \r\n        23,   REENTER AT DMAP SEQUENCE NUMBER    12\r\n        24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21\r\n        25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        29,   REENTER AT DMAP SEQUENCE NUMBER    22\r\n        30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22\r\n        31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        32,   REENTER AT DMAP SEQUENCE NUMBER    23\r\n        33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23\r\n        34,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24\r\n        35,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25\r\n        36,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        40,   REENTER AT DMAP SEQUENCE NUMBER    24\r\n        41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26\r\n        42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27\r\n        43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FHEX2    ELEMENTS (ELEMENT TYPE  77) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID      101\r\n \r\n        44,   REENTER AT DMAP SEQUENCE NUMBER    28\r\n        45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     29\r\n        46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     30\r\n        47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     31\r\n        48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     32\r\n        49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33\r\n \r\n        50,   REENTER AT DMAP SEQUENCE NUMBER    29\r\n        51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34\r\n        52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        53,   REENTER AT DMAP SEQUENCE NUMBER    31\r\n        54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35\r\n        55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36\r\n \r\n        56,   REENTER AT DMAP SEQUENCE NUMBER    34\r\n        57,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     37\r\n        58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38\r\n \r\n        59,   REENTER AT DMAP SEQUENCE NUMBER    35\r\n        60,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39\r\n        61,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        62,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        63,   REENTER AT DMAP SEQUENCE NUMBER    40\r\n        64,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        65,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        66,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40\r\n \r\n        67,   REENTER AT DMAP SEQUENCE NUMBER    44\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n        68,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     41\r\n        69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42\r\n \r\n        70,   REENTER AT DMAP SEQUENCE NUMBER    46\r\n        71,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     43\r\n        72,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     44\r\n        73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45\r\n        74,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        75,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        76,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        77,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n        78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46\r\n        79,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        80,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        81,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        82,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        83,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        84,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        85,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        86,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        87,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        88,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        89,   USETF   ,   FLAGS = 0,   REEL =  1,   FILE =     47\r\n        90,   USETS   ,   FLAGS = 0,   REEL =  1,   FILE =     48\r\n        91,   AF      ,   FLAGS = 0,   REEL =  1,   FILE =     49\r\n        92,   DKGG    ,   FLAGS = 0,   REEL =  1,   FILE =     50\r\n        93,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51\r\n \r\n        94,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        95,   PV1     ,   FLAGS = 0,   REEL =  1,   FILE =     52\r\n        96,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53\r\n \r\n        97,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        98,   KXX     ,   FLAGS = 0,   REEL =  1,   FILE =     54\r\n        99,   KYY     ,   FLAGS = 0,   REEL =  1,   FILE =     55\r\n       100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56\r\n \r\n       101,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       102,   MXX     ,   FLAGS = 0,   REEL =  1,   FILE =     57\r\n       103,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58\r\n \r\n       104,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       105,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59\r\n       106,   RX      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       107,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60\r\n \r\n       109,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       110,   AXY     ,   FLAGS = 0,   REEL =  1,   FILE =     61\r\n       111,   AYY     ,   FLAGS = 0,   REEL =  1,   FILE =     62\r\n       112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63\r\n \r\n       113,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       114,   DKXX    ,   FLAGS = 0,   REEL =  1,   FILE =     64\r\n       115,   DKYY    ,   FLAGS = 0,   REEL =  1,   FILE =     65\r\n       116,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     66\r\n \r\n       117,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       118,   PV2     ,   FLAGS = 0,   REEL =  1,   FILE =     67\r\n       119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       120,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       121,   AFRY    ,   FLAGS = 0,   REEL =  1,   FILE =     69\r\n       122,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70\r\n \r\n       123,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       124,   DKFRFR  ,   FLAGS = 0,   REEL =  1,   FILE =     71\r\n       125,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     72\r\n \r\n       126,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       127,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n       128,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     73\r\n \r\n       129,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       130,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     57\r\n       131,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     57\r\n       132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     74\r\n \r\n       133,   REENTER AT DMAP SEQUENCE NUMBER    50\r\n       134,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n       135,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     57\r\n       136,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75\r\n \r\n       137,   REENTER AT DMAP SEQUENCE NUMBER    55\r\n       138,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76\r\n       139,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       140,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       141,   REENTER AT DMAP SEQUENCE NUMBER    57\r\n       142,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     77\r\n       143,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     78\r\n       144,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     79\r\n       145,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80\r\n \r\n       146,   REENTER AT DMAP SEQUENCE NUMBER    59\r\n       147,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     81\r\n       148,   KAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       149,   REENTER AT DMAP SEQUENCE NUMBER    60\r\n       150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82\r\n       151,   MAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       152,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       153,   GO      ,   FLAGS = 0,   REEL =  1,   FILE =     83\r\n       154,   KAA     ,   FLAGS = 0,   REEL =  1,   FILE =     84\r\n       155,   KOO     ,   FLAGS = 0,   REEL =  1,   FILE =     85\r\n       156,   LOO     ,   FLAGS = 0,   REEL =  1,   FILE =     86\r\n       157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     87\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       158,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       159,   MAA     ,   FLAGS = 0,   REEL =  1,   FILE =     88\r\n       160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89\r\n \r\n       161,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       162,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     90\r\n       163,   DKAA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       164,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       165,   DKXX    ,   FLAGS = 4,   REEL =  1,   FILE =     64\r\n       166,   DKNN    ,   FLAGS = 4,   REEL =  1,   FILE =     64\r\n       167,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     91\r\n \r\n       168,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     92\r\n       170,   DKFF    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       171,   REENTER AT DMAP SEQUENCE NUMBER    64\r\n       172,   DKFF    ,   FLAGS = 0,   REEL =  1,   FILE =     93\r\n       173,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     94\r\n \r\n       174,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95\r\n \r\n       176,   REENTER AT DMAP SEQUENCE NUMBER    64\r\n       177,   DKAA    ,   FLAGS = 0,   REEL =  1,   FILE =     96\r\n       178,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     97\r\n \r\n       179,   REENTER AT DMAP SEQUENCE NUMBER    64\r\n       180,   KMAT    ,   FLAGS = 0,   REEL =  1,   FILE =     98\r\n       181,   MMAT    ,   FLAGS = 0,   REEL =  1,   FILE =     99\r\n       182,   GIA     ,   FLAGS = 0,   REEL =  1,   FILE =    100\r\n       183,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    101\r\n       184,   HC      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       185,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       186,   KMAT    ,   FLAGS = 4,   REEL =  1,   FILE =     98\r\n       187,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     98\r\n       188,   MMAT    ,   FLAGS = 4,   REEL =  1,   FILE =     99\r\n       189,   MAA     ,   FLAGS = 4,   REEL =  1,   FILE =     99\r\n       190,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    102\r\n \r\n       191,   REENTER AT DMAP SEQUENCE NUMBER    71\r\n       192,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =    103\r\n       193,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =    104\r\n       194,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =    105\r\n       195,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =    106\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       196,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =    107\r\n       197,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    108\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n \r\n       198,   REENTER AT DMAP SEQUENCE NUMBER    74\r\n       199,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =    109\r\n       200,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =    110\r\n       201,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =    111\r\n       202,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    112\r\n       203,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        20\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        20       -1.574360E-01        3.967821E-01        6.314982E-02        8.241057E-01       -1.297439E-01             \r\n        2        19        1.490165E+02        1.220723E+01        1.942841E+00        9.558012E-02        1.424301E+01             \r\n        3        18        6.146243E+02        2.479162E+01        3.945709E+00        8.442471E-03        5.188948E+00             \r\n        4        17        7.383849E+02        2.717324E+01        4.324755E+00        1.173733E-02        8.666667E+00             \r\n        5        16        2.104516E+03        4.587500E+01        7.301233E+00        3.317664E-03        6.982076E+00             \r\n        6        15        1.056520E+06        1.027872E+03        1.635909E+02        1.882236E-02        1.988621E+04             \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       204,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       205,   PHII    ,   FLAGS = 0,   REEL =  1,   FILE =    114\r\n       206,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    115\r\n \r\n       207,   REENTER AT DMAP SEQUENCE NUMBER    77\r\n       208,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116\r\n       209,   PHIY    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       210,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       211,   PV3     ,   FLAGS = 0,   REEL =  1,   FILE =    117\r\n       212,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    118\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n \r\n       213,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       214,   PHIAB   ,   FLAGS = 0,   REEL =  1,   FILE =    119\r\n       215,   PHIFR   ,   FLAGS = 0,   REEL =  1,   FILE =    120\r\n       216,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121\r\n \r\n       217,   REENTER AT DMAP SEQUENCE NUMBER    77\r\n       218,   PHIAB   ,   FLAGS = 4,   REEL =  1,   FILE =    119\r\n       219,   PHIA    ,   FLAGS = 4,   REEL =  1,   FILE =    119\r\n       220,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    122\r\n \r\n       221,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       222,   PHIY    ,   FLAGS = 0,   REEL =  1,   FILE =    123\r\n       223,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    124\r\n \r\n       224,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       225,   PHIX    ,   FLAGS = 0,   REEL =  1,   FILE =    125\r\n       226,   QX      ,   FLAGS = 0,   REEL =  1,   FILE =    126\r\n       227,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    127\r\n \r\n       228,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       229,   PHIG    ,   FLAGS = 0,   REEL =  1,   FILE =    128\r\n       230,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    129\r\n \r\n       231,   REENTER AT DMAP SEQUENCE NUMBER    78\r\n       232,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =    130\r\n       233,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    131\r\n \r\n       234,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       235,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =    132\r\n       236,   OPHIG   ,   FLAGS = 0,   REEL =  1,   FILE =    133\r\n       237,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    134\r\n       238,   OES1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       239,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       240,   PPHIG   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       241,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       242,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE = -0.157436E+00    (CYCLIC FREQUENCY =  6.314982E-02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -5.598960E-03  -5.598960E-03  -5.598960E-03  -5.598960E-03   9.949976E-01   9.949976E-01                  \r\n             7      S      9.949976E-01   9.949976E-01                                                                              \r\n           101      G      0.0            0.0            9.999999E-01  -1.055035E-09   0.0            0.0                           \r\n           102      G     -4.341493E-09   5.403810E-09   1.000000E+00  -2.507638E-09  -5.563024E-09   2.252605E-09                  \r\n           103      G      0.0            0.0            9.999999E-01   1.003996E-09   0.0            0.0                           \r\n           104      G     -4.341477E-09  -5.403821E-09   1.000000E+00   2.456304E-09  -5.552605E-09  -2.249112E-09                  \r\n           105      G      0.0            0.0            1.000000E+00   1.108506E-09   0.0            0.0                           \r\n           106      G     -9.237590E-08   4.321775E-08   1.000000E+00  -6.026250E-09  -8.255100E-09   6.876463E-09                  \r\n           107      G      0.0            0.0            1.000000E+00  -1.060308E-09   0.0            0.0                           \r\n           108      G     -9.237590E-08  -4.262265E-08   1.000000E+00   5.939850E-09  -8.252523E-09  -6.818549E-09                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.149016E+03    (CYCLIC FREQUENCY =  1.942841E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.478377E-03   1.506438E-03  -1.478377E-03  -1.506438E-03   7.336706E-01   1.000000E+00                  \r\n             7      S     -7.336706E-01  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -1.755954E-01   3.011218E-02   0.0            0.0                           \r\n           102      G      6.349273E-06   4.301569E-06  -1.755882E-01   3.028689E-02   6.149413E-03  -2.061432E-03                  \r\n           103      G      0.0            0.0            1.755954E-01   3.011218E-02   0.0            0.0                           \r\n           104      G     -6.349273E-06   4.301569E-06   1.755882E-01   3.028689E-02  -6.149413E-03  -2.061432E-03                  \r\n           105      G      0.0            0.0           -1.755923E-01  -2.843740E-02   0.0            0.0                           \r\n           106      G      1.048895E-05  -3.511246E-01  -1.755857E-01   5.097920E-02   1.521364E-03  -3.416960E-02                  \r\n           107      G      0.0            0.0            1.755923E-01  -2.843740E-02   0.0            0.0                           \r\n           108      G     -1.048895E-05  -3.511246E-01   1.755858E-01   5.097920E-02  -1.521364E-03  -3.416960E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.614624E+03    (CYCLIC FREQUENCY =  3.945709E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      2.338617E-05   5.657752E-05  -2.338617E-05  -5.657752E-05  -1.000000E+00   2.992465E-01                  \r\n             7      S      1.000000E+00  -2.992465E-01                                                                              \r\n           101      G      0.0            0.0           -4.361983E-02   7.480476E-03   0.0            0.0                           \r\n           102      G      1.031749E-06   4.962470E-07  -4.362035E-02   7.524204E-03   1.528166E-03  -5.122993E-04                  \r\n           103      G      0.0            0.0            4.361983E-02   7.480476E-03   0.0            0.0                           \r\n           104      G     -1.031749E-06   4.962470E-07   4.362035E-02   7.524204E-03  -1.528166E-03  -5.122993E-04                  \r\n           105      G      0.0            0.0           -4.362058E-02  -7.064640E-03   0.0            0.0                           \r\n           106      G      3.864274E-06  -8.723261E-02  -4.362027E-02   1.266519E-02   3.779814E-04  -8.488951E-03                  \r\n           107      G      0.0            0.0            4.362058E-02  -7.064640E-03   0.0            0.0                           \r\n           108      G     -3.864275E-06  -8.723261E-02   4.362027E-02   1.266519E-02  -3.779814E-04  -8.488951E-03                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738385E+03    (CYCLIC FREQUENCY =  4.324755E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.125797E-05   2.125853E-05  -2.125797E-05   2.125853E-05   1.000000E+00  -9.999549E-01                  \r\n             7      S      1.000000E+00  -9.999549E-01                                                                              \r\n           101      G      0.0            0.0           -2.773032E-06  -2.259596E-07   0.0            0.0                           \r\n           102      G     -3.023221E-07   8.218467E-07   1.363598E-06  -5.091817E-07  -1.017367E-06   3.998834E-07                  \r\n           103      G      0.0            0.0           -2.773113E-06   2.259458E-07   0.0            0.0                           \r\n           104      G     -3.023221E-07  -8.218467E-07   1.363518E-06   5.091678E-07  -1.017364E-06  -3.998825E-07                  \r\n           105      G      0.0            0.0            1.734582E-06   2.144363E-07   0.0            0.0                           \r\n           106      G     -1.835468E-05   8.560998E-06   5.469420E-06  -1.235896E-06  -1.761336E-06   1.365491E-06                  \r\n           107      G      0.0            0.0            1.734501E-06  -2.144232E-07   0.0            0.0                           \r\n           108      G     -1.835468E-05  -8.560836E-06   5.469339E-06   1.235873E-06  -1.761335E-06  -1.365475E-06                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.210452E+04    (CYCLIC FREQUENCY =  7.301233E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.802548E-04  -2.730815E-04   2.802548E-04   2.730815E-04   4.301552E-02   1.000000E+00                  \r\n             7      S     -4.301552E-02  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0            1.036628E-01  -1.777177E-02   0.0            0.0                           \r\n           102      G     -1.447177E-05  -1.265815E-05   1.036233E-01  -1.787022E-02  -3.620178E-03   1.213211E-03                  \r\n           103      G      0.0            0.0           -1.036628E-01  -1.777177E-02   0.0            0.0                           \r\n           104      G      1.447177E-05  -1.265815E-05  -1.036233E-01  -1.787022E-02   3.620178E-03   1.213211E-03                  \r\n           105      G      0.0            0.0            1.036383E-01   1.677911E-02   0.0            0.0                           \r\n           106      G      2.710869E-05   2.071208E-01   1.036114E-01  -3.007034E-02  -8.953571E-04   2.015839E-02                  \r\n           107      G      0.0            0.0           -1.036383E-01   1.677911E-02   0.0            0.0                           \r\n           108      G     -2.710869E-05   2.071208E-01  -1.036114E-01  -3.007034E-02   8.953571E-04   2.015839E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.105652E+07    (CYCLIC FREQUENCY =  1.635909E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.262930E-04  -1.397049E-04  -1.262930E-04  -1.397049E-04   1.000000E+00   9.916126E-01                  \r\n             7      S      1.000000E+00   9.916126E-01                                                                              \r\n           101      G      0.0            0.0           -9.541942E-01  -4.393441E-04   0.0            0.0                           \r\n           102      G     -6.968259E-03   2.873408E-03  -9.618446E-01   2.111697E-04   1.517268E-03   4.400939E-04                  \r\n           103      G      0.0            0.0           -9.541942E-01   4.393441E-04   0.0            0.0                           \r\n           104      G     -6.968259E-03  -2.873408E-03  -9.618446E-01  -2.111697E-04   1.517268E-03  -4.400939E-04                  \r\n           105      G      0.0            0.0           -9.612761E-01   3.634852E-04   0.0            0.0                           \r\n           106      G      1.171517E-03  -5.257217E-05  -9.654863E-01   4.480082E-04   6.801585E-05   1.557090E-04                  \r\n           107      G      0.0            0.0           -9.612761E-01  -3.634852E-04   0.0            0.0                           \r\n           108      G      1.171517E-03   5.257217E-05  -9.654863E-01  -4.480082E-04   6.801585E-05  -1.557090E-04                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE = -0.157436E+00    (CYCLIC FREQUENCY =  6.314982E-02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.719255E-03  -8.667480E-04   0.0            0.0            2.558303E-06  -6.024101E-07                  \r\n           103      G      1.719227E-03   8.667491E-04   0.0            0.0            2.558737E-06   5.972816E-07                  \r\n           105      G      6.487316E-02  -1.208685E-06   0.0            0.0            0.0           -5.077358E-06                  \r\n           107      G      6.487317E-02   1.185887E-06   0.0            0.0            0.0            5.004237E-06                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.149016E+03    (CYCLIC FREQUENCY =  1.942841E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -1.053511E+01  -4.726437E-01   0.0            0.0            2.554920E-01   3.026532E+00                  \r\n           103      G      1.053511E+01  -4.726437E-01   0.0            0.0           -2.554920E-01   3.026532E+00                  \r\n           105      G     -6.783674E+00   1.345178E+01   0.0            0.0            0.0            4.314383E+01                  \r\n           107      G      6.783674E+00   1.345178E+01   0.0            0.0            0.0            4.314383E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.614624E+03    (CYCLIC FREQUENCY =  3.945709E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -1.455242E+00  -4.408288E-02   0.0            0.0            6.322226E-02   7.520471E-01                  \r\n           103      G      1.455242E+00  -4.408288E-02   0.0            0.0           -6.322226E-02   7.520471E-01                  \r\n           105      G     -2.678707E+00   3.341938E+00   0.0            0.0            0.0            1.071865E+01                  \r\n           107      G      2.678707E+00   3.341938E+00   0.0            0.0            0.0            1.071865E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738385E+03    (CYCLIC FREQUENCY =  4.324755E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -4.241210E-01  -1.693377E-01   0.0            0.0            4.279180E-04  -8.209740E-05                  \r\n           103      G     -4.241210E-01   1.693377E-01   0.0            0.0            4.279181E-04   8.209600E-05                  \r\n           105      G      1.285798E+01  -2.387650E-04   0.0            0.0            0.0           -9.995614E-04                  \r\n           107      G      1.285798E+01   2.387589E-04   0.0            0.0            0.0            9.995415E-04                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.210452E+04    (CYCLIC FREQUENCY =  7.301233E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      2.774091E+01   1.443471E+00   0.0            0.0           -1.544065E-01  -1.782749E+00                  \r\n           103      G     -2.774091E+01   1.443471E+00   0.0            0.0            1.544065E-01  -1.782749E+00                  \r\n           105      G     -2.110603E+01  -7.934627E+00   0.0            0.0            0.0           -2.544788E+01                  \r\n           107      G      2.110603E+01  -7.934627E+00   0.0            0.0            0.0           -2.544788E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.105652E+07    (CYCLIC FREQUENCY =  1.635909E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.132890E+04   2.757445E+01   0.0            0.0           -8.882880E-01  -2.809137E-01                  \r\n           103      G      1.132890E+04  -2.757445E+01   0.0            0.0           -8.882880E-01   2.809137E-01                  \r\n           105      G     -9.819967E+02   2.222607E-02   0.0            0.0            0.0            6.270286E-02                  \r\n           107      G     -9.819967E+02  -2.222607E-02   0.0            0.0            0.0           -6.270286E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT              /    95 SUN SOLARIS NASTRAN    / MAY 17, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T03-11-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       243,   REENTER AT DMAP SEQUENCE NUMBER    85\r\n       244,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    135\r\n       245,   OESF1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       246,   OESF1L  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       247,   REENTER AT DMAP SEQUENCE NUMBER    87\r\n       248,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    136\r\n       249,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       250,   REENTER AT DMAP SEQUENCE NUMBER    89\r\n       251,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    137\r\n       252,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       253,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       254,   REENTER AT DMAP SEQUENCE NUMBER   104\r\n       255,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    138\r\n       256,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT           \r\n DATE:  5/17/95\r\n END TIME: 16:46:20\r\n TOTAL WALL CLOCK TIME      5 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03111b.out",
    "content": "     NASTRAN BANDIT = -1, FILES = OPTP                                               \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03111B,NASTRAN                                                           \r\n     $                                                                               \r\n     $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO.          \r\n     $     (1) REFER TO COSMIC/NASTRAN DMAP COMPILER SOURCE LISTING IN T03111A       \r\n     $         AND LOCATE THE DMAP NUMBER OF 'LABEL NEWM' (ASSUME IT IS NO. M)       \r\n     $     (2) LOOK FOR THE 'REENTER AT DMAP SEQUENCE NUMBER  N' IN THE T03111A      \r\n     $         CHECKPOINT DICTIONARY DECK (T03111A.PCH OR .DIC), WHERE N IS          \r\n     $         GREATER THAN THE LOCATION M OF (1)                                    \r\n     $     (3) REMOVE ALL THE CARDS FROM THIS 'REENTER AT DMAP SEQ. NO. N' TO        \r\n     $         THE END OF THE T03111A CHECKPOINT DICTIONARY DECK.                    \r\n     $         THE LAST '$ END OF CHECKPOINT DICTIONARY' IS OPTIONAL.                \r\n     $     (4) FATAL ERROR IN QOPEN IF THESE CARDS WERE NOT REMOVED.                 \r\n     $     (5) IN 1993 VERSION, M IN (1) IS 67, AND N IN (2) IS 69                   \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  T03111A ,NASTRAN , 5/17/95,   60361,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER     6                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n              9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER     7                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER     8                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER     9                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    10                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    22                             \r\n             30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             32,   REENTER AT DMAP SEQUENCE NUMBER    23                             \r\n             33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             34,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             35,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             36,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             40,   REENTER AT DMAP SEQUENCE NUMBER    24                             \r\n             41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n             42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n             44,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             50,   REENTER AT DMAP SEQUENCE NUMBER    29                             \r\n             51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             53,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             56,   REENTER AT DMAP SEQUENCE NUMBER    34                             \r\n             57,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             59,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             60,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             61,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             62,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             63,   REENTER AT DMAP SEQUENCE NUMBER    40                             \r\n             64,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             65,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             66,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             67,   REENTER AT DMAP SEQUENCE NUMBER    44                             \r\n             68,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             70,   REENTER AT DMAP SEQUENCE NUMBER    46                             \r\n             71,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             72,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n             74,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             75,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             76,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             77,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n             79,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             80,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             81,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             82,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             83,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             84,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             85,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             86,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             87,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             88,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             89,   USETF   ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n             90,   USETS   ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n             91,   AF      ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n             92,   DKGG    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n             93,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n             94,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             95,   PV1     ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n             96,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n             97,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             98,   KXX     ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n             99,   KYY     ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            101,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            102,   MXX     ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            103,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            104,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            105,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            106,   RX      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            107,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            109,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            110,   AXY     ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            111,   AYY     ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            113,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            114,   DKXX    ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            115,   DKYY    ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            116,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n            117,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            118,   PV2     ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n            119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            120,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            121,   AFRY    ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n            122,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            123,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            124,   DKFRFR  ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            125,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n            126,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            127,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n            128,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            129,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            130,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            131,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            133,   REENTER AT DMAP SEQUENCE NUMBER    50                             \r\n            134,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n            135,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            136,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            137,   REENTER AT DMAP SEQUENCE NUMBER    55                             \r\n            138,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            139,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            140,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            141,   REENTER AT DMAP SEQUENCE NUMBER    57                             \r\n            142,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            143,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            144,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     79               \r\n            145,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80               \r\n            146,   REENTER AT DMAP SEQUENCE NUMBER    59                             \r\n            147,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     81               \r\n            148,   KAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            149,   REENTER AT DMAP SEQUENCE NUMBER    60                             \r\n            150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     82               \r\n            151,   MAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            152,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            153,   GO      ,   FLAGS = 0,   REEL =  1,   FILE =     83               \r\n            154,   KAA     ,   FLAGS = 0,   REEL =  1,   FILE =     84               \r\n            155,   KOO     ,   FLAGS = 0,   REEL =  1,   FILE =     85               \r\n            156,   LOO     ,   FLAGS = 0,   REEL =  1,   FILE =     86               \r\n            157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     87               \r\n            158,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            159,   MAA     ,   FLAGS = 0,   REEL =  1,   FILE =     88               \r\n            160,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89               \r\n            161,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            162,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     90               \r\n            163,   DKAA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            164,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            165,   DKXX    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            166,   DKNN    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            167,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     91               \r\n            168,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     92               \r\n            170,   DKFF    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            171,   REENTER AT DMAP SEQUENCE NUMBER    64                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            172,   DKFF    ,   FLAGS = 0,   REEL =  1,   FILE =     93               \r\n            173,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     94               \r\n            174,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95               \r\n            176,   REENTER AT DMAP SEQUENCE NUMBER    64                             \r\n            177,   DKAA    ,   FLAGS = 0,   REEL =  1,   FILE =     96               \r\n            178,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     97               \r\n            179,   REENTER AT DMAP SEQUENCE NUMBER    64                             \r\n            180,   KMAT    ,   FLAGS = 0,   REEL =  1,   FILE =     98               \r\n            181,   MMAT    ,   FLAGS = 0,   REEL =  1,   FILE =     99               \r\n            182,   GIA     ,   FLAGS = 0,   REEL =  1,   FILE =    100               \r\n            183,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    101               \r\n            184,   HC      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            185,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            186,   KMAT    ,   FLAGS = 4,   REEL =  1,   FILE =     98               \r\n            187,   KAA     ,   FLAGS = 4,   REEL =  1,   FILE =     98               \r\n            188,   MMAT    ,   FLAGS = 4,   REEL =  1,   FILE =     99               \r\n            189,   MAA     ,   FLAGS = 4,   REEL =  1,   FILE =     99               \r\n            190,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    102               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME  20                                                                        \r\n     SOL   3,0                                                                       \r\n     APP   DISP                                                                      \r\n     $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                     \r\n0*** $   ... READFILE FROM-  COSHYD1                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1)        \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3.  REPLACING BEGIN                         \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                           \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEWM,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     DIRECT1,NOGRAV $                                                       \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     COND     DIRECT1,NOFREE $                                                       \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    DIRECT1 $                                                              \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    61 $  ALTER LABEL LBL5                                               \r\n     INSERT SMP2,1 $                                                                 \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     DIRECT4,NOGRAV $                                                       \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     DIRECT2,MPCF2 $                                                        \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    DIRECT2 $                                                              \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n     COND     DIRECT3,SINGLE $                                                       \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    DIRECT3 $                                                              \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     DIRECT4,OMIT $                                                         \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    DIRECT4 $                                                              \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,            \r\n              MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $             \r\n     EQUIV    KMAT,KAA//MMAT,MAA $                                                   \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    67 $  AFTER LABEL LBL6                                               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     INSERT DPD,-1 $                                                                 \r\n     LABEL    NEWM $                                                                 \r\n     $ ALTER    68,68 $  REPLACING DPD                                               \r\n     DELETE DPD $                                                                    \r\n     DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/          \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n     $ ALTER    75,75 $  REPLACING SDR1                                              \r\n     DELETE SDR1 $                                                                   \r\n     COND     NOCOMP,COMPTYP $                                                       \r\n     MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                                 \r\n     EQUIV    PHIAC,PHIA $                                                           \r\n     LABEL    NOCOMP $                                                               \r\n     MPYAD    GIA,PHIA,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n     COND     DIRECT5,NOFREE $                                                       \r\n     VEC      USETF/PV3/*A*/*COMP*/*FR* $                                            \r\n     PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                            \r\n     EQUIV    PHIAB,PHIA $                                                           \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    DIRECT5 $                                                              \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                         \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                              \r\n     MERGE    QX,,,,,PV1/QG/0 $                                                      \r\n     $ ALTER    77,77 $  REPLACING EQMCK                                             \r\n     DELETE EQMCK $                                                                  \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                    \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES         \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1B                                   \r\n                  3      $ REFERENCE PROBLEM I.2                                                         \r\n                  4      DISP = ALL                                                                      \r\n                  5      SPCF = ALL                                                                      \r\n                  6      METHOD = 50                                                                     \r\n                  7      SPC  = 10                                                                       \r\n                  8      BEGIN BULK                                                                      \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              $                                                                                             \r\n                              $ NEW EIGR CARD FOR DIFFERENT MODES                                                           \r\n                              $                                                                                             \r\n                              /       9       10                                                                            \r\n                              EIGR    50      GIV     100.0   2500.0                  0               +E1                   \r\n                              +E1     MAX                                                                                   \r\n                              $                                                                                             \r\n                              $ PARAMETER TO SKIP UNNEEDED DMAP                                                             \r\n                              $                                                                                             \r\n                              PARAM   NEWMODE -1                                                                            \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     10\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     6                                                       \r\n                    2-        CFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n                    3-        +CFH1   8       7                                                               \r\n                    4-        CFLSTR  1       100     101     THRU    104                                     \r\n                    5-        CQUAD2  101     100     101     102     106     105                             \r\n                    6-        CQUAD2  102     100     102     104     108     106                             \r\n                    7-        CQUAD2  103     100     104     103     107     108                             \r\n                    8-        CQUAD2  104     100     101     103     104     102                             \r\n                    9-        EIGR    50      GIV     100.0   2500.0                  0               +E1     \r\n                   10-        +E1     MAX                                                                     \r\n                   11-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   12-        GRID    1               0.0     0.0     0.0                                     \r\n                   13-        GRID    2               6.0     0.0     0.0                                     \r\n                   14-        GRID    3               0.0     12.0    0.0                                     \r\n                   15-        GRID    4               6.0     12.0    0.0                                     \r\n                   16-        GRID    5               0.0     0.0     12.0                                    \r\n                   17-        GRID    6               6.0     0.0     12.0                                    \r\n                   18-        GRID    7               0.0     12.0    12.0                                    \r\n                   19-        GRID    8               6.0     12.0    12.0                                    \r\n                   20-        GRID    101             0.0     0.0     0.0                                     \r\n                   21-        GRID    102             6.0     0.0     0.0                                     \r\n                   22-        GRID    103             0.0     12.0    0.0                                     \r\n                   23-        GRID    104             6.0     12.0    0.0                                     \r\n                   24-        GRID    105             0.0     0.0     12.0                                    \r\n                   25-        GRID    106             6.0     0.0     12.0                                    \r\n                   26-        GRID    107             0.0     12.0    12.0                                    \r\n                   27-        GRID    108             6.0     12.0    12.0                                    \r\n                   28-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   29-        MATF    200     9.355-4                                                         \r\n                   30-        OMIT1   4       101     103     105     107                                     \r\n                   31-        OMIT1   456     102     104     106     108                                     \r\n                   32-        PARAM   NEWMODE -1                                                              \r\n                   33-        PQUAD2  100     100     .06                                                     \r\n                   34-        SPC1    10      1256    101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                  17           POUT$                  19\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     3\r\n                  23           EIGR                   61\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n+  +\r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                   \r\n+  +\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n+  +\r\n\r\n       3  COMPOFF  NEWM,NEWMODE $                                                 \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/  \r\n+  *\r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n+  *\r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n+  *\r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n+  *\r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/     \r\n+  *\r\n                   S,N,NEIGV $                                                    \r\n+  *\r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n+  *\r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      77  COND     NOCOMP,COMPTYP $                                               \r\n+  *\r\n\r\n      77  MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                         \r\n+  *\r\n\r\n      77  EQUIV    PHIAC,PHIA $                                                   \r\n+  *\r\n\r\n      77  LABEL    NOCOMP $                                                       \r\n+  +\r\n\r\n      77  MPYAD    GIA,PHIA,/PHII/0/1/0 $                                         \r\n+  *\r\n\r\n      77  EQUIV    PHII,PHIY/NOFREE $                                             \r\n+  *\r\n\r\n      77  COND     DIRECT5,NOFREE $                                               \r\n+  *\r\n\r\n      77  VEC      USETF/PV3/*A*/*COMP*/*FR* $                                    \r\n+  *\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      77  PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                    \r\n+  *\r\n\r\n      77  EQUIV    PHIAB,PHIA $                                                   \r\n+  *\r\n\r\n      77  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n+  *\r\n\r\n      77  LABEL    DIRECT5 $                                                      \r\n+  +\r\n\r\n      77  SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                 \r\n+  *\r\n\r\n      77  MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                      \r\n+  *\r\n\r\n      77  MERGE    QX,,,,,PV1/QG/0 $                                              \r\n+  *\r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n+  *\r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/    \r\n+  *\r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n+  *\r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n+  *\r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n+  *\r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n+  *\r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n+  *\r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n+  *\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n+  *\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      92  LABEL    P2 $                                                           \r\n+  +\r\n\r\n      93  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n+  *\r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n+  *\r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n+  *\r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n+  *\r\n\r\n     102  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     104  END      $                                                              \r\n+  *\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR3   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR1   NOT REFERENCED\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     CSTM      (PURGED)\r\n     PLTPAR    (PURGED)\r\n     GPSETS    (PURGED)\r\n     ELSETS    (PURGED)\r\n     PCOMPS    (PURGED)\r\n     DM        (PURGED)\r\n     MR        (PURGED)\r\n     GM        (PURGED)\r\n     HC        (PURGED)\r\n     GPL              1         7\r\n     EQEXIN           1         8\r\n     BGPDT            1        10\r\n     SIL              1        11\r\n     BGPDP            1        16\r\n     SIP              1        17\r\n     ECT              1        19\r\n     EST              1        23\r\n     GPECT            1        24\r\n     KELM             1        29\r\n     KDICT            1        30\r\n     KGGX             1        35\r\n     KGG              1        35\r\n     KXX              1        35\r\n     KNN              1        35\r\n     USETF            1        47\r\n     USETS            1        48\r\n     PV1              1        52\r\n     PV2              1        67\r\n     KFS              1        78\r\n     GO               1        83\r\n     KAA              1        98\r\n     KMAT             1        98\r\n     MAA              1        99\r\n     MMAT             1        99\r\n     GIA              1       100\r\n     XVPS             1       102\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      20, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        20\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         8\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        15        1.056520E+06        1.027872E+03        1.635909E+02        1.882236E-02        1.988621E+04             \r\n        2        14        7.977794E+06        2.824499E+03        4.495329E+02        3.851429E-02        3.072590E+05             \r\n        3        13        1.206828E+07        3.473943E+03        5.528952E+02        2.152778E-01        2.598033E+06             \r\n        4        12        2.273032E+07        4.767633E+03        7.587923E+02        7.798322E-04        1.772584E+04             \r\n        5        11        6.313189E+07        7.945558E+03        1.264575E+03        1.627105E-02        1.027222E+06             \r\n        6        10        2.075611E+08        1.440698E+04        2.292942E+03        2.875304E-02        5.968012E+06             \r\n        7         9        2.086266E+08        1.444391E+04        2.298820E+03        4.330550E-04        9.034680E+04             \r\n        8         8        2.269621E+08        1.506526E+04        2.397710E+03        8.508445E-03        1.931094E+06             \r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.105652E+07    (CYCLIC FREQUENCY =  1.635909E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.262931E-04  -1.397051E-04  -1.262931E-04  -1.397051E-04   1.000000E+00   9.916126E-01                  \r\n             7      S      1.000000E+00   9.916126E-01                                                                              \r\n           101      G      0.0            0.0           -9.541942E-01  -4.393421E-04   0.0            0.0                           \r\n           102      G     -6.968258E-03   2.873408E-03  -9.618446E-01   2.111695E-04   1.517261E-03   4.400942E-04                  \r\n           103      G      0.0            0.0           -9.541942E-01   4.393421E-04   0.0            0.0                           \r\n           104      G     -6.968258E-03  -2.873408E-03  -9.618446E-01  -2.111695E-04   1.517261E-03  -4.400942E-04                  \r\n           105      G      0.0            0.0           -9.612760E-01   3.634843E-04   0.0            0.0                           \r\n           106      G      1.171517E-03  -5.257216E-05  -9.654862E-01   4.480084E-04   6.802016E-05   1.557085E-04                  \r\n           107      G      0.0            0.0           -9.612760E-01  -3.634843E-04   0.0            0.0                           \r\n           108      G      1.171517E-03   5.257216E-05  -9.654862E-01  -4.480084E-04   6.802016E-05  -1.557085E-04                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.797779E+07    (CYCLIC FREQUENCY =  4.495329E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      7.798204E-04  -8.775610E-04  -7.798204E-04   8.775610E-04  -5.208009E-02   1.000000E+00                  \r\n             7      S      5.208009E-02  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -5.499801E-01   4.569924E-02   0.0            0.0                           \r\n           102      G     -1.087894E-01   5.490711E-01  -1.847391E-01   1.961771E-02  -6.436625E-02   6.715935E-02                  \r\n           103      G      0.0            0.0            5.499801E-01   4.569924E-02   0.0            0.0                           \r\n           104      G      1.087894E-01   5.490711E-01   1.847391E-01   1.961771E-02   6.436625E-02   6.715935E-02                  \r\n           105      G      0.0            0.0           -3.360298E-01  -1.285288E-02   0.0            0.0                           \r\n           106      G     -6.161015E-02   1.782280E-01  -2.206313E-01   4.800030E-02   7.010625E-02   2.968626E-02                  \r\n           107      G      0.0            0.0            3.360298E-01  -1.285288E-02   0.0            0.0                           \r\n           108      G      6.161015E-02   1.782280E-01   2.206313E-01   4.800030E-02  -7.010625E-02   2.968626E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.120683E+08    (CYCLIC FREQUENCY =  5.528952E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.051389E-03   2.041870E-03  -2.051389E-03   2.041870E-03   7.735256E-01  -5.310717E-01                  \r\n             7      S      7.735256E-01  -5.310717E-01                                                                              \r\n           101      G      0.0            0.0            1.000000E+00  -5.720126E-02   0.0            0.0                           \r\n           102      G      5.729443E-01  -2.786579E-01  -3.708959E-01  -1.044135E-02   2.383807E-01  -6.028431E-02                  \r\n           103      G      0.0            0.0            1.000000E+00   5.720126E-02   0.0            0.0                           \r\n           104      G      5.729443E-01   2.786579E-01  -3.708959E-01   1.044135E-02   2.383807E-01   6.028431E-02                  \r\n           105      G      0.0            0.0            8.543754E-02   1.551558E-02   0.0            0.0                           \r\n           106      G      2.602040E-01  -3.597216E-02  -3.152912E-01  -4.246248E-02  -1.814825E-01   2.467482E-03                  \r\n           107      G      0.0            0.0            8.543754E-02  -1.551558E-02   0.0            0.0                           \r\n           108      G      2.602040E-01   3.597216E-02  -3.152912E-01   4.246248E-02  -1.814825E-01  -2.467482E-03                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.227303E+08    (CYCLIC FREQUENCY =  7.587923E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      6.512394E-05   6.606107E-05  -6.512394E-05  -6.606107E-05  -2.918201E-02   1.000000E+00                  \r\n             7      S      2.918201E-02  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -2.110310E-02  -5.605899E-03   0.0            0.0                           \r\n           102      G      3.786853E-02  -7.432835E-03   6.142727E-02  -1.960382E-02  -1.921571E-02   5.848540E-03                  \r\n           103      G      0.0            0.0            2.110310E-02  -5.605899E-03   0.0            0.0                           \r\n           104      G     -3.786853E-02  -7.432835E-03  -6.142727E-02  -1.960382E-02   1.921571E-02   5.848540E-03                  \r\n           105      G      0.0            0.0            3.266894E-02   1.206293E-02   0.0            0.0                           \r\n           106      G     -1.459026E-02   3.138968E-01   8.616281E-02  -5.181981E-02  -2.994516E-03   3.014824E-02                  \r\n           107      G      0.0            0.0           -3.266894E-02   1.206293E-02   0.0            0.0                           \r\n           108      G      1.459026E-02   3.138968E-01  -8.616281E-02  -5.181981E-02   2.994516E-03   3.014824E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.631319E+08    (CYCLIC FREQUENCY =  1.264575E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.110609E-04   9.668401E-05   2.110609E-04  -9.668401E-05   3.917816E-02   1.253864E-01                  \r\n             7      S     -3.917816E-02  -1.253864E-01                                                                              \r\n           101      G      0.0            0.0            1.237645E-01  -3.565630E-02   0.0            0.0                           \r\n           102      G      2.471465E-01   1.000000E+00  -5.921133E-01   1.380232E-01   6.405141E-02   1.300641E-01                  \r\n           103      G      0.0            0.0           -1.237645E-01  -3.565630E-02   0.0            0.0                           \r\n           104      G     -2.471465E-01   1.000000E+00   5.921133E-01   1.380232E-01  -6.405141E-02   1.300641E-01                  \r\n           105      G      0.0            0.0           -4.375401E-01   6.065601E-02   0.0            0.0                           \r\n           106      G      1.760922E-01   3.900580E-01  -6.178202E-01   1.423540E-02   3.340407E-03   4.871300E-02                  \r\n           107      G      0.0            0.0            4.375401E-01   6.065601E-02   0.0            0.0                           \r\n           108      G     -1.760922E-01   3.900580E-01   6.178202E-01   1.423540E-02  -3.340407E-03   4.871300E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.207561E+09    (CYCLIC FREQUENCY =  2.292942E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      6.203137E-05   7.330507E-05  -6.203137E-05  -7.330507E-05  -2.963759E-02   5.590620E-01                  \r\n             7      S      2.963759E-02  -5.590620E-01                                                                              \r\n           101      G      0.0            0.0           -1.825231E-02  -3.019707E-02   0.0            0.0                           \r\n           102      G      8.772508E-01   1.000000E+00   7.285501E-01  -9.777997E-02  -1.312809E-01   2.000160E-01                  \r\n           103      G      0.0            0.0            1.825231E-02  -3.019707E-02   0.0            0.0                           \r\n           104      G     -8.772508E-01   1.000000E+00  -7.285501E-01  -9.777997E-02   1.312809E-01   2.000160E-01                  \r\n           105      G      0.0            0.0            6.305740E-01   8.476939E-02   0.0            0.0                           \r\n           106      G     -4.326307E-01  -6.686941E-01   9.851358E-01   4.210712E-01  -7.437518E-02  -6.246860E-02                  \r\n           107      G      0.0            0.0           -6.305740E-01   8.476939E-02   0.0            0.0                           \r\n           108      G      4.326307E-01  -6.686941E-01  -9.851358E-01   4.210712E-01   7.437518E-02  -6.246860E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.208627E+09    (CYCLIC FREQUENCY =  2.298820E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -7.421128E-06   7.210541E-06  -7.421128E-06   7.210541E-06  -2.729003E-01   1.000000E+00                  \r\n             7      S     -2.729003E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -1.465840E-01   3.732539E-03   0.0            0.0                           \r\n           102      G      7.775377E-02   2.036907E-03  -3.105943E-03  -3.785352E-03  -3.055131E-02   3.046266E-03                  \r\n           103      G      0.0            0.0           -1.465840E-01  -3.732539E-03   0.0            0.0                           \r\n           104      G      7.775377E-02  -2.036907E-03  -3.105943E-03   3.785352E-03  -3.055131E-02  -3.046266E-03                  \r\n           105      G      0.0            0.0           -3.993943E-02  -1.580052E-03   0.0            0.0                           \r\n           106      G     -1.808910E-01   6.208205E-02   1.126407E-01  -9.698000E-03  -1.557696E-02   8.884328E-03                  \r\n           107      G      0.0            0.0           -3.993943E-02   1.580052E-03   0.0            0.0                           \r\n           108      G     -1.808910E-01  -6.208205E-02   1.126407E-01   9.698000E-03  -1.557696E-02  -8.884328E-03                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.226962E+09    (CYCLIC FREQUENCY =  2.397710E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      5.067618E-06  -4.674025E-06   5.067618E-06  -4.674025E-06  -9.651024E-01   1.000000E+00                  \r\n             7      S     -9.651024E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            3.068153E-01  -8.116069E-02   0.0            0.0                           \r\n           102      G     -2.428907E-01   3.179671E-01  -4.902803E-01  -3.387842E-02   1.598565E-01   7.044607E-02                  \r\n           103      G      0.0            0.0            3.068153E-01   8.116069E-02   0.0            0.0                           \r\n           104      G     -2.428907E-01  -3.179671E-01  -4.902803E-01   3.387842E-02   1.598565E-01  -7.044607E-02                  \r\n           105      G      0.0            0.0            7.001053E-01   6.470875E-02   0.0            0.0                           \r\n           106      G      6.417889E-02   7.836791E-01   2.205361E-01  -7.245569E-02  -6.055538E-02   1.402496E-01                  \r\n           107      G      0.0            0.0            7.001053E-01  -6.470875E-02   0.0            0.0                           \r\n           108      G      6.417889E-02  -7.836791E-01   2.205361E-01   7.245569E-02  -6.055538E-02  -1.402496E-01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.105652E+07    (CYCLIC FREQUENCY =  1.635909E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.132890E+04   2.757443E+01   0.0            0.0           -8.882828E-01  -2.809140E-01                  \r\n           103      G      1.132890E+04  -2.757443E+01   0.0            0.0           -8.882828E-01   2.809140E-01                  \r\n           105      G     -9.819964E+02   2.222601E-02   0.0            0.0            0.0            6.270250E-02                  \r\n           107      G     -9.819964E+02  -2.222601E-02   0.0            0.0            0.0           -6.270250E-02                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.797779E+07    (CYCLIC FREQUENCY =  4.495329E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      4.618405E+04  -1.476493E+05   0.0            0.0            4.933029E+01  -9.417827E+01                  \r\n           103      G     -4.618405E+04  -1.476493E+05   0.0            0.0           -4.933029E+01  -9.417827E+01                  \r\n           105      G      6.311898E+04  -6.197023E+00   0.0            0.0            0.0           -4.252594E+01                  \r\n           107      G     -6.311898E+04  -6.197023E+00   0.0            0.0            0.0           -4.252594E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.120683E+08    (CYCLIC FREQUENCY =  5.528952E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -6.767098E+05   8.114415E+03   0.0            0.0           -1.873775E+02   4.823378E+01                  \r\n           103      G     -6.767098E+05  -8.114415E+03   0.0            0.0           -1.873775E+02  -4.823378E+01                  \r\n           105      G     -2.451740E+05   2.194183E+00   0.0            0.0            0.0            1.710330E+01                  \r\n           107      G     -2.451740E+05  -2.194183E+00   0.0            0.0            0.0           -1.710330E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.227303E+08    (CYCLIC FREQUENCY =  7.587923E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -6.445720E+04   6.449788E+03   0.0            0.0            7.938684E+00  -2.739268E+00                  \r\n           103      G      6.445720E+04   6.449788E+03   0.0            0.0           -7.938684E+00  -2.739268E+00                  \r\n           105      G      1.440038E+04  -1.179450E+01   0.0            0.0            0.0           -4.067957E+01                  \r\n           107      G     -1.440038E+04  -1.179450E+01   0.0            0.0            0.0           -4.067957E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.631319E+08    (CYCLIC FREQUENCY =  1.264575E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -3.821964E+05  -2.144240E+05   0.0            0.0           -8.515988E+01  -1.274626E+02                  \r\n           103      G      3.821964E+05  -2.144240E+05   0.0            0.0            8.515988E+01  -1.274626E+02                  \r\n           105      G     -1.471048E+05  -1.394239E+01   0.0            0.0            0.0           -6.216388E+01                  \r\n           107      G      1.471048E+05  -1.394239E+01   0.0            0.0            0.0           -6.216388E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.207561E+09    (CYCLIC FREQUENCY =  2.292942E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -1.463343E+06  -1.373632E+05   0.0            0.0            1.237049E+02  -1.470019E+02                  \r\n           103      G      1.463343E+06  -1.373632E+05   0.0            0.0           -1.237049E+02  -1.470019E+02                  \r\n           105      G      3.222592E+05   2.280312E+01   0.0            0.0            0.0            7.947728E+01                  \r\n           107      G     -3.222592E+05   2.280312E+01   0.0            0.0            0.0            7.947728E+01                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.208627E+09    (CYCLIC FREQUENCY =  2.298820E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -1.382332E+05  -8.649836E+03   0.0            0.0            1.670485E+01  -1.040570E+00                  \r\n           103      G     -1.382332E+05   8.649836E+03   0.0            0.0            1.670485E+01   1.040570E+00                  \r\n           105      G      1.328728E+05  -1.851777E+00   0.0            0.0            0.0           -8.111888E+00                  \r\n           107      G      1.328728E+05   1.851777E+00   0.0            0.0            0.0            8.111888E+00                  \r\n1     HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T03-11-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.226962E+09    (CYCLIC FREQUENCY =  2.397710E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      3.930456E+05  -5.231978E+04   0.0            0.0           -9.275906E+01  -2.841751E+01                  \r\n           103      G      3.930456E+05   5.231978E+04   0.0            0.0           -9.275906E+01   2.841751E+01                  \r\n           105      G     -1.808022E+05  -2.008177E+01   0.0            0.0            0.0           -8.349944E+01                  \r\n           107      G     -1.808022E+05   2.008177E+01   0.0            0.0            0.0            8.349944E+01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES       \r\n DATE:  5/18/95\r\n END TIME: 10: 9:19\r\n TOTAL WALL CLOCK TIME      1 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03121a.out",
    "content": "     NASTRAN FILES=NPTP                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03121A,NASTRAN                                                           \r\n     DIAG  14                                                                        \r\n     TIME  10                                                                        \r\n     SOL   3,0                                                                       \r\n     APP   DISP                                                                      \r\n     CHKPNT  YES                                                                     \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\n0*** $   ... READFILE FROM-  COSHYD2                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2)         \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3. REPLACING BEGIN                          \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                              \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEW1,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     MODAL1,NOGRAV $                                                        \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n     COND     MODAL1,NOFREE $                                                        \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    MODAL1 $                                                               \r\n     LABEL    NEW1 $                                                                 \r\n     DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/           \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     COND     ERROR2,NOEED $                                                         \r\n     COMPOFF  NEW2,NEWMODE $                                                         \r\n     PARAM    //*MPY*/CARDNO/0/0 $                                                   \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    68,69 $  REPLACING DPD, COND                                         \r\n     DELETE DPD,DPD,1 $                                                              \r\n     CASE     CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n     $ ALTER    75,77 $  REPLACING SDR1, COND, EQMCK                                 \r\n     DELETE SDR1,EQMCK $                                                             \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                         \r\n     COND     NOMPCF,GRDEQ $                                                         \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     $ ALTER    80,80 $  REPLACING SDR2                                              \r\n     DELETE SDR2 $                                                                   \r\n     MERGE    PHIG,,,,,PV1/PHIGS/0 $                                                 \r\n     MERGE    QG,,,,,PV1/QGS/0 $                                                     \r\n     SDR2     CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/,          \r\n              OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $                                    \r\n     OFP      OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $                                      \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     MODAL4,NOGRAV $                                                        \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     MODAL2,MPCF2 $                                                         \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    MODAL2 $                                                               \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n     COND     MODAL3,SINGLE $                                                        \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    MODAL3 $                                                               \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     MODAL4,OMIT $                                                          \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    MODAL4 $                                                               \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,          \r\n              GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/                   \r\n              S,Y,LMODES $                                                           \r\n     JUMP     OLD2 $                                                                 \r\n     LABEL    NEW2 $                                                                 \r\n     PARAM    //*MPY*/REPT/1/1 $                                                     \r\n     LABEL    OLD2 $                                                                 \r\n     CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     PARAM    //*MPY*/NEIGV/1/-1 $                                                   \r\n     READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/               \r\n              S,N,NEIGV $                                                            \r\n     OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                          \r\n     COND     FINIS,NEIGV $                                                          \r\n     MPYAD    GIH,PHIH,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHIH,PHIZ/NOFREE $                                                     \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n     COND     MODAL5,NOFREE $                                                        \r\n     PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                             \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    MODAL5 $                                                               \r\n     COND     ALLMODES,LMODES                                                        \r\n     TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                           \r\n     TRAILER  QG//*STORE*/1/V,Y,LMODES $                                             \r\n     LABEL    ALLMODES $                                                             \r\n     MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                                \r\n     MPYAD    QG,PHIZ,/QX/0/1/0 $                                                    \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                             \r\n     MERGE    QX,,,,,PV1/QGT/0 $                                                     \r\n     SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,           \r\n              PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $                \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   T03121A ,NASTRAN , 5/18/95,   36590,\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1A                                   \r\n                  3      $ REFERENCE PROBLEM IV.1                                                        \r\n                  4      SPC  = 10                                                                       \r\n                  5      DISP = ALL                                                                      \r\n                  6      SUBCASE 1                                                                       \r\n                  7          LABEL  = MODES OF EMPTY STRUCTURE                                           \r\n                  8          METHOD = 50                                                                 \r\n                  9      SUBCASE 2                                                                       \r\n                 10          LABEL  = MODES WITH FLUID INCLUDED                                          \r\n                 11          METHOD = 60                                                                 \r\n                 12          SPCF   = ALL                                                                \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    35, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     6                                                       \r\n                    2-        CFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n                    3-        +CFH1   8       7                                                               \r\n                    4-        CFLSTR  1       100     101     THRU    104                                     \r\n                    5-        CQUAD2  101     100     101     102     106     105                             \r\n                    6-        CQUAD2  102     100     102     104     108     106                             \r\n                    7-        CQUAD2  103     100     104     103     107     108                             \r\n                    8-        CQUAD2  104     100     101     103     104     102                             \r\n                    9-        EIGR    50      GIV     0.0     2600.0  10      10      0               +EMOD1  \r\n                   10-        +EMOD1  MAX                                                                     \r\n                   11-        EIGR    60      GIV     0.0     10.0    6       6       0               +E1     \r\n                   12-        +E1     MAX                                                                     \r\n                   13-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   14-        GRID    1               0.0     0.0     0.0                                     \r\n                   15-        GRID    2               6.0     0.0     0.0                                     \r\n                   16-        GRID    3               0.0     12.0    0.0                                     \r\n                   17-        GRID    4               6.0     12.0    0.0                                     \r\n                   18-        GRID    5               0.0     0.0     12.0                                    \r\n                   19-        GRID    6               6.0     0.0     12.0                                    \r\n                   20-        GRID    7               0.0     12.0    12.0                                    \r\n                   21-        GRID    8               6.0     12.0    12.0                                    \r\n                   22-        GRID    101             0.0     0.0     0.0                                     \r\n                   23-        GRID    102             6.0     0.0     0.0                                     \r\n                   24-        GRID    103             0.0     12.0    0.0                                     \r\n                   25-        GRID    104             6.0     12.0    0.0                                     \r\n                   26-        GRID    105             0.0     0.0     12.0                                    \r\n                   27-        GRID    106             6.0     0.0     12.0                                    \r\n                   28-        GRID    107             0.0     12.0    12.0                                    \r\n                   29-        GRID    108             6.0     12.0    12.0                                    \r\n                   30-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   31-        MATF    200     9.355-4                                                         \r\n                   32-        OMIT1   4       101     103     105     107                                     \r\n                   33-        OMIT1   456     102     104     106     108                                     \r\n                   34-        PQUAD2  100     100     .06                                                     \r\n                   35-        SPC1    10      1256    101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                      \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       3  COMPOFF  NEW1,NEWMODE $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      48  FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, \r\n                   DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                          \r\n\r\n      48  VEC      USETF/PV1/*G*/*X*/*Y* $                                        \r\n\r\n      48  PARTN    KGG,PV1,/KXX,,,KYY $                                           \r\n\r\n      48  PARTN    MGG,PV1,/MXX,,, $                                              \r\n\r\n      48  PARTN    RG,PV1,/RX,,,/1 $                                              \r\n\r\n      48  EQUIV    RX,RG $                                                        \r\n\r\n      48  PARTN    AF,PV1,/,,AXY,AYY $                                            \r\n\r\n      48  COND     MODAL1,NOGRAV $                                                \r\n\r\n      48  PARTN    DKGG,PV1,/DKXX,,,DKYY $                                        \r\n\r\n      48  COND     MODAL1,NOFREE $                                                \r\n\r\n      48  VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                    \r\n\r\n      48  PARTN    AYY,,PV2/AFRY,,,/0 $                                           \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      48  PARTN    DKYY,PV2,/DKFRFR,,, $                                          \r\n\r\n      48  LABEL    MODAL1 $                                                       \r\n\r\n      48  LABEL    NEW1 $                                                         \r\n\r\n      48  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/   \r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n\r\n      48  COND     ERROR2,NOEED $                                                 \r\n\r\n      48  COMPOFF  NEW2,NEWMODE $                                                 \r\n\r\n      48  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n      48  COMPOFF  NOSTRUC,OLDSTR $                                               \r\n\r\n      48  COMPON   2,DIFSTIF $                                                    \r\n\r\n      48  COMPOFF  1,DIFSTIF $                                                    \r\n\r\n      48  EQUIV    KXX,KGG $                                                      \r\n\r\n      48  EQUIV    MXX,MGG $                                                      \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USETS,RG/GM $                                                  \r\n\r\n      52  MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                 \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                               \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                             \r\n\r\n      62  SMP2     USETS,GO,MFF/MAA $                                             \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                        \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      71  CASE     CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $                     \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/     \r\n                   S,N,NEIGV $                                                    \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      79  SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                 \r\n\r\n      79  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/    \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n\r\n      82  MERGE    PHIG,,,,,PV1/PHIGS/0 $                                         \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  MERGE    QG,,,,,PV1/QGS/0 $                                             \r\n\r\n      82  SDR2     CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/,  \r\n                   OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $                            \r\n\r\n      82  OFP      OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $                              \r\n\r\n      82  LABEL    NOSTRUC $                                                      \r\n\r\n      82  PURGE    DKAA/NOGRAV $                                                  \r\n\r\n      82  COND     MODAL4,NOGRAV $                                                \r\n\r\n      82  EQUIV    DKXX,DKNN/MPCF1 $                                              \r\n\r\n      82  COND     MODAL2,MPCF2 $                                                 \r\n\r\n      82  MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                     \r\n\r\n      82  LABEL    MODAL2 $                                                       \r\n\r\n      82  EQUIV    DKNN,DKFF/SINGLE $                                             \r\n\r\n      82  COND     MODAL3,SINGLE $                                                \r\n\r\n      82  SCE1     USETS,DKNN,,,/DKFF,,,,, $                                      \r\n\r\n      82  LABEL    MODAL3 $                                                       \r\n\r\n      82  EQUIV    DKFF,DKAA/OMIT $                                               \r\n\r\n      82  COND     MODAL4,OMIT $                                                  \r\n\r\n      82  SMP2     USETS,GO,DKFF/DKAA $                                           \r\n\r\n      82  LABEL    MODAL4 $                                                       \r\n\r\n      82  GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,  \r\n                   GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/           \r\n                   S,Y,LMODES $                                                   \r\n\r\n      82  JUMP     OLD2 $                                                         \r\n\r\n      82  LABEL    NEW2 $                                                         \r\n\r\n      82  PARAM    //*MPY*/REPT/1/1 $                                             \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  LABEL    OLD2 $                                                         \r\n\r\n      82  CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                     \r\n\r\n      82  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      82  READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/       \r\n                   S,N,NEIGV $                                                    \r\n\r\n      82  OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                  \r\n\r\n      82  COND     FINIS,NEIGV $                                                  \r\n\r\n      82  MPYAD    GIH,PHIH,/PHII/0/1/0 $                                         \r\n\r\n      82  EQUIV    PHIH,PHIZ/NOFREE $                                             \r\n\r\n      82  EQUIV    PHII,PHIY/NOFREE $                                             \r\n\r\n      82  COND     MODAL5,NOFREE $                                                \r\n\r\n      82  PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                     \r\n\r\n      82  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n\r\n      82  LABEL    MODAL5 $                                                       \r\n\r\n      82  COND     ALLMODES,LMODES                                                \r\n\r\n      82  TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                   \r\n\r\n      82  TRAILER  QG//*STORE*/1/V,Y,LMODES $                                     \r\n\r\n      82  LABEL    ALLMODES $                                                     \r\n\r\n      82  MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                        \r\n\r\n      82  MPYAD    QG,PHIZ,/QX/0/1/0 $                                            \r\n\r\n      82  MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                     \r\n\r\n      82  MERGE    QX,,,,,PV1/QGT/0 $                                             \r\n\r\n      82  SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,   \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $        \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     104  END      $                                                              \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.312\r\n                                        RMS WAVEFRONT    4.789\r\n                                        RMS BANDWIDTH    4.802\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             64\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.000\r\n                                        RMS WAVEFRONT    4.444\r\n                                        RMS BANDWIDTH    4.444\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                         69        64\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.312     4.000\r\n                                        RMS WAVEFRONT (C-RMS)            4.789     4.444\r\n                                        RMS BANDWITCH (B-RMS)            4.802     4.444\r\n                                        NUMBER OF GRID POINTS (N)                     16\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 5\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        47\r\n                                        MATRIX DENSITY, PERCENT                   42.969\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       9       2      16       3      11       4      10\r\n                         SEQGP          5      12       6      13       7      15       8      14\r\n                         SEQGP        101       2     102       4     103       5     104       6\r\n                         SEQGP        105       1     106       3     107       8     108       7\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE     4802 NOT FOUND ON DATA BLOCK.  BIT POSITION =  48\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER     6\r\n         3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n         5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9\r\n         6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10\r\n         7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11\r\n         8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12\r\n         9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        10,   REENTER AT DMAP SEQUENCE NUMBER     7\r\n        11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13\r\n        12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        13,   REENTER AT DMAP SEQUENCE NUMBER     8\r\n        14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14\r\n        15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15\r\n \r\n        16,   REENTER AT DMAP SEQUENCE NUMBER     9\r\n        17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16\r\n        18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17\r\n        19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18\r\n \r\n        20,   REENTER AT DMAP SEQUENCE NUMBER    10\r\n        21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19\r\n        22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20\r\n \r\n        23,   REENTER AT DMAP SEQUENCE NUMBER    12\r\n        24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21\r\n        25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        29,   REENTER AT DMAP SEQUENCE NUMBER    22\r\n        30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22\r\n        31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        32,   REENTER AT DMAP SEQUENCE NUMBER    23\r\n        33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23\r\n        34,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24\r\n        35,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25\r\n        36,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n        40,   REENTER AT DMAP SEQUENCE NUMBER    24\r\n        41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26\r\n        42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27\r\n        43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FHEX2    ELEMENTS (ELEMENT TYPE  77) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID      101\r\n \r\n        44,   REENTER AT DMAP SEQUENCE NUMBER    28\r\n        45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     29\r\n        46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     30\r\n        47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     31\r\n        48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     32\r\n        49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33\r\n \r\n        50,   REENTER AT DMAP SEQUENCE NUMBER    29\r\n        51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34\r\n        52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        53,   REENTER AT DMAP SEQUENCE NUMBER    31\r\n        54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35\r\n        55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36\r\n \r\n        56,   REENTER AT DMAP SEQUENCE NUMBER    34\r\n        57,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     37\r\n        58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38\r\n \r\n        59,   REENTER AT DMAP SEQUENCE NUMBER    35\r\n        60,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39\r\n        61,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        62,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        63,   REENTER AT DMAP SEQUENCE NUMBER    40\r\n        64,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        65,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n        66,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40\r\n \r\n        67,   REENTER AT DMAP SEQUENCE NUMBER    44\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n        68,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     41\r\n        69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42\r\n \r\n        70,   REENTER AT DMAP SEQUENCE NUMBER    46\r\n        71,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     43\r\n        72,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     44\r\n        73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45\r\n        74,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        75,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        76,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        77,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n        78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46\r\n        79,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        80,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        81,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        82,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        83,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        84,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        85,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        86,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n        87,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n        88,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        89,   USETF   ,   FLAGS = 0,   REEL =  1,   FILE =     47\r\n        90,   USETS   ,   FLAGS = 0,   REEL =  1,   FILE =     48\r\n        91,   AF      ,   FLAGS = 0,   REEL =  1,   FILE =     49\r\n        92,   DKGG    ,   FLAGS = 0,   REEL =  1,   FILE =     50\r\n        93,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51\r\n \r\n        94,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        95,   PV1     ,   FLAGS = 0,   REEL =  1,   FILE =     52\r\n        96,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53\r\n \r\n        97,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n        98,   KXX     ,   FLAGS = 0,   REEL =  1,   FILE =     54\r\n        99,   KYY     ,   FLAGS = 0,   REEL =  1,   FILE =     55\r\n       100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56\r\n \r\n       101,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       102,   MXX     ,   FLAGS = 0,   REEL =  1,   FILE =     57\r\n       103,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58\r\n \r\n       104,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       105,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59\r\n       106,   RX      ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       107,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60\r\n \r\n       109,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       110,   AXY     ,   FLAGS = 0,   REEL =  1,   FILE =     61\r\n       111,   AYY     ,   FLAGS = 0,   REEL =  1,   FILE =     62\r\n       112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63\r\n \r\n       113,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       114,   DKXX    ,   FLAGS = 0,   REEL =  1,   FILE =     64\r\n       115,   DKYY    ,   FLAGS = 0,   REEL =  1,   FILE =     65\r\n       116,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     66\r\n \r\n       117,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       118,   PV2     ,   FLAGS = 0,   REEL =  1,   FILE =     67\r\n       119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       120,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       121,   AFRY    ,   FLAGS = 0,   REEL =  1,   FILE =     69\r\n       122,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70\r\n \r\n       123,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       124,   DKFRFR  ,   FLAGS = 0,   REEL =  1,   FILE =     71\r\n       125,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     72\r\n \r\n       126,   REENTER AT DMAP SEQUENCE NUMBER    49\r\n       127,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =     73\r\n       128,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =     74\r\n       129,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =     75\r\n       130,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =     76\r\n       131,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =     77\r\n       132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     78\r\n \r\n       133,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       134,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     35\r\n       135,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     79\r\n \r\n       136,   REENTER AT DMAP SEQUENCE NUMBER    48\r\n       137,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     57\r\n       138,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     57\r\n       139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80\r\n \r\n       140,   REENTER AT DMAP SEQUENCE NUMBER    50\r\n       141,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     81\r\n       142,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     81\r\n       143,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     81\r\n       144,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     81\r\n       145,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     82\r\n       146,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     82\r\n       147,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     82\r\n       148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83\r\n \r\n       149,   REENTER AT DMAP SEQUENCE NUMBER    55\r\n       150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     84\r\n       151,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       152,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       153,   REENTER AT DMAP SEQUENCE NUMBER    57\r\n       154,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     85\r\n       155,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     86\r\n       156,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     87\r\n       157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88\r\n \r\n       158,   REENTER AT DMAP SEQUENCE NUMBER    59\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       159,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89\r\n       160,   KAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       161,   REENTER AT DMAP SEQUENCE NUMBER    60\r\n       162,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     90\r\n       163,   MAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       164,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       165,   GO      ,   FLAGS = 0,   REEL =  1,   FILE =     91\r\n       166,   KAA     ,   FLAGS = 0,   REEL =  1,   FILE =     92\r\n       167,   KOO     ,   FLAGS = 0,   REEL =  1,   FILE =     93\r\n       168,   LOO     ,   FLAGS = 0,   REEL =  1,   FILE =     94\r\n       169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95\r\n \r\n       170,   REENTER AT DMAP SEQUENCE NUMBER    63\r\n       171,   MAA     ,   FLAGS = 0,   REEL =  1,   FILE =     96\r\n       172,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     97\r\n \r\n       173,   REENTER AT DMAP SEQUENCE NUMBER    72\r\n       174,   CASE1   ,   FLAGS = 0,   REEL =  1,   FILE =     98\r\n       175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     99\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      16, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n \r\n       176,   REENTER AT DMAP SEQUENCE NUMBER    74\r\n       177,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =    100\r\n       178,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =    101\r\n       179,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =    102\r\n       180,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    103\r\n       181,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    104\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        16\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        10\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        16        7.874970E-06        2.806238E-03        4.466266E-04        1.987200E-02        1.564914E-07             \r\n        2        15        7.009578E+03        8.372322E+01        1.332496E+01        1.093183E-02        7.662748E+01             \r\n        3        14        3.602324E+07        6.001936E+03        9.552377E+02        1.730355E-02        6.233300E+05             \r\n        4        13        1.190563E+08        1.091129E+04        1.736586E+03        1.358900E-02        1.617856E+06             \r\n        5        12        1.712768E+08        1.308728E+04        2.082905E+03        9.036543E-03        1.547750E+06             \r\n        6        11        2.047793E+08        1.431011E+04        2.277525E+03        1.303608E-02        2.669520E+06             \r\n        7        10        2.264891E+08        1.504955E+04        2.395211E+03        1.291201E-02        2.924430E+06             \r\n        8         9        2.692251E+08        1.640808E+04        2.611427E+03        1.603370E-02        4.316672E+06             \r\n        9         8        2.806849E+08        1.675365E+04        2.666427E+03        1.390103E-02        3.901808E+06             \r\n       10         7        3.246613E+08        1.801836E+04        2.867711E+03        2.022416E-02        6.566002E+06             \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       182,   REENTER AT DMAP SEQUENCE NUMBER    80\r\n       183,   PHIG    ,   FLAGS = 0,   REEL =  1,   FILE =    105\r\n       184,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =    106\r\n       185,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    107\r\n \r\n       186,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       187,   PHIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    108\r\n       188,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    109\r\n \r\n       189,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       190,   QGS     ,   FLAGS = 0,   REEL =  1,   FILE =    110\r\n       191,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    111\r\n \r\n       192,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       193,   OPHIGS  ,   FLAGS = 0,   REEL =  1,   FILE =    112\r\n       194,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113\r\n       195,   OQGS    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       196,   OEFS    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       197,   PPHIGS  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.787497E-05    (CYCLIC FREQUENCY =  4.466266E-04 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0            1.000000E+00  -1.648181E-12   0.0            0.0                           \r\n           102      G     -3.103168E-16  -2.342892E-15   1.000000E+00  -1.657810E-12  -3.363634E-13   1.125652E-13                  \r\n           103      G      0.0            0.0            1.000000E+00  -1.648434E-12   0.0            0.0                           \r\n           104      G      3.956539E-16  -2.296344E-15   1.000000E+00  -1.658011E-12   3.364156E-13   1.125457E-13                  \r\n           105      G      0.0            0.0            1.000000E+00   1.556365E-12   0.0            0.0                           \r\n           106      G      6.136280E-16   1.921746E-11   1.000000E+00  -2.790411E-12  -8.332017E-14   1.870215E-12                  \r\n           107      G      0.0            0.0            1.000000E+00   1.556540E-12   0.0            0.0                           \r\n           108      G     -3.687119E-16   1.921669E-11   1.000000E+00  -2.790119E-12   8.336489E-14   1.870124E-12                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.700958E+04    (CYCLIC FREQUENCY =  1.332496E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0            5.001284E-01  -8.576138E-02   0.0            0.0                           \r\n           102      G     -4.927059E-06  -7.136117E-05   5.001084E-01  -8.626356E-02  -1.751013E-02   5.864994E-03                  \r\n           103      G      0.0            0.0           -5.001284E-01  -8.576138E-02   0.0            0.0                           \r\n           104      G      4.927059E-06  -7.136117E-05  -5.001084E-01  -8.626356E-02   1.751013E-02   5.864994E-03                  \r\n           105      G      0.0            0.0            5.001232E-01   8.098758E-02   0.0            0.0                           \r\n           106      G      2.259931E-05   1.000000E+00   5.001021E-01  -1.451946E-01  -4.332843E-03   9.731877E-02                  \r\n           107      G      0.0            0.0           -5.001232E-01   8.098758E-02   0.0            0.0                           \r\n           108      G     -2.259931E-05   1.000000E+00  -5.001021E-01  -1.451946E-01   4.332843E-03   9.731877E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.360232E+08    (CYCLIC FREQUENCY =  9.552377E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0           -6.319013E-01   3.371123E-02   0.0            0.0                           \r\n           102      G      9.655136E-02   1.000000E+00  -4.547352E-01   6.417513E-02  -6.931483E-02   1.392699E-01                  \r\n           103      G      0.0            0.0            6.319013E-01   3.371123E-02   0.0            0.0                           \r\n           104      G     -9.655136E-02   1.000000E+00   4.547352E-01   6.417513E-02   6.931483E-02   1.392699E-01                  \r\n           105      G      0.0            0.0           -5.995761E-01   2.629951E-02   0.0            0.0                           \r\n           106      G     -2.573807E-02   8.355103E-01  -4.430087E-01  -3.102301E-02   6.121713E-02   9.538240E-02                  \r\n           107      G      0.0            0.0            5.995761E-01   2.629951E-02   0.0            0.0                           \r\n           108      G      2.573807E-02   8.355103E-01   4.430087E-01  -3.102301E-02  -6.121713E-02   9.538240E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.119056E+09    (CYCLIC FREQUENCY =  1.736586E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0            1.000000E+00  -1.200209E-01   0.0            0.0                           \r\n           102      G      6.090973E-02   8.730151E-01   1.828061E-01   5.935423E-02   1.224368E-01   9.020450E-02                  \r\n           103      G      0.0            0.0           -1.000000E+00  -1.200209E-01   0.0            0.0                           \r\n           104      G     -6.090973E-02   8.730151E-01  -1.828061E-01   5.935423E-02  -1.224368E-01   9.020450E-02                  \r\n           105      G      0.0            0.0            6.087350E-01   8.717962E-02   0.0            0.0                           \r\n           106      G      2.838096E-01  -5.832370E-01   5.302334E-02   2.463192E-01   2.326653E-02  -2.980423E-02                  \r\n           107      G      0.0            0.0           -6.087350E-01   8.717962E-02   0.0            0.0                           \r\n           108      G     -2.838096E-01  -5.832370E-01  -5.302334E-02   2.463192E-01  -2.326653E-02  -2.980423E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.171277E+09    (CYCLIC FREQUENCY =  2.082905E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0            1.000000E+00  -4.607198E-02   0.0            0.0                           \r\n           102      G     -3.000264E-02  -8.090483E-02  -1.643192E-01   6.709524E-03   2.222775E-01  -2.701596E-02                  \r\n           103      G      0.0            0.0            1.000000E+00   4.607198E-02   0.0            0.0                           \r\n           104      G     -3.000264E-02   8.090483E-02  -1.643192E-01  -6.709524E-03   2.222775E-01   2.701596E-02                  \r\n           105      G      0.0            0.0            2.260682E-01   1.932247E-02   0.0            0.0                           \r\n           106      G      6.995302E-01  -1.528455E-01  -5.229304E-01   1.007143E-02  -3.781930E-02  -1.506352E-02                  \r\n           107      G      0.0            0.0            2.260682E-01  -1.932247E-02   0.0            0.0                           \r\n           108      G      6.995302E-01   1.528455E-01  -5.229304E-01  -1.007143E-02  -3.781930E-02   1.506352E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.204779E+09    (CYCLIC FREQUENCY =  2.277525E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0            7.029415E-01  -5.486291E-02   0.0            0.0                           \r\n           102      G     -3.957042E-02  -3.546025E-01  -3.852553E-01   8.923478E-02   1.833769E-01  -6.249641E-02                  \r\n           103      G      0.0            0.0           -7.029415E-01  -5.486291E-02   0.0            0.0                           \r\n           104      G      3.957042E-02  -3.546025E-01   3.852553E-01   8.923478E-02  -1.833769E-01  -6.249641E-02                  \r\n           105      G      0.0            0.0           -6.244392E-02  -9.546609E-03   0.0            0.0                           \r\n           106      G      1.000000E+00   3.385811E-01  -6.112938E-01  -2.052135E-01   2.808534E-02   8.819088E-02                  \r\n           107      G      0.0            0.0            6.244392E-02  -9.546609E-03   0.0            0.0                           \r\n           108      G     -1.000000E+00   3.385811E-01   6.112938E-01  -2.052135E-01  -2.808534E-02   8.819088E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.226489E+09    (CYCLIC FREQUENCY =  2.395211E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0           -3.049295E-01   9.840952E-02   0.0            0.0                           \r\n           102      G      2.253884E-01  -3.840320E-01   6.103872E-01   4.409168E-02  -1.808270E-01  -8.681224E-02                  \r\n           103      G      0.0            0.0           -3.049295E-01  -9.840952E-02   0.0            0.0                           \r\n           104      G      2.253884E-01   3.840320E-01   6.103872E-01  -4.409168E-02  -1.808270E-01   8.681224E-02                  \r\n           105      G      0.0            0.0           -8.256519E-01  -7.857429E-02   0.0            0.0                           \r\n           106      G      5.520390E-02  -1.000000E+00  -3.353460E-01   9.629875E-02   9.223031E-02  -1.778240E-01                  \r\n           107      G      0.0            0.0           -8.256519E-01   7.857429E-02   0.0            0.0                           \r\n           108      G      5.520390E-02   1.000000E+00  -3.353460E-01  -9.629875E-02   9.223031E-02   1.778240E-01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.269225E+09    (CYCLIC FREQUENCY =  2.611427E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0           -5.067990E-01   5.058000E-03   0.0            0.0                           \r\n           102      G      6.107841E-01   3.380395E-01   3.791914E-01  -3.150927E-02  -1.391838E-01   8.410074E-02                  \r\n           103      G      0.0            0.0           -5.067990E-01  -5.058000E-03   0.0            0.0                           \r\n           104      G      6.107841E-01  -3.380395E-01   3.791914E-01   3.150927E-02  -1.391838E-01  -8.410074E-02                  \r\n           105      G      0.0            0.0           -8.150305E-01   2.093689E-02   0.0            0.0                           \r\n           106      G      1.000000E+00   6.667446E-01   1.039544E-01  -4.559622E-02   1.342700E-01   1.021551E-01                  \r\n           107      G      0.0            0.0           -8.150305E-01  -2.093689E-02   0.0            0.0                           \r\n           108      G      1.000000E+00  -6.667446E-01   1.039544E-01   4.559622E-02   1.342700E-01  -1.021551E-01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.280685E+09    (CYCLIC FREQUENCY =  2.666427E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0           -6.118988E-01   6.772315E-02   0.0            0.0                           \r\n           102      G      5.519021E-01   6.493690E-02   7.103338E-01  -1.675558E-01  -1.428724E-01   8.185375E-02                  \r\n           103      G      0.0            0.0            6.118988E-01   6.772315E-02   0.0            0.0                           \r\n           104      G     -5.519021E-01   6.493690E-02  -7.103338E-01  -1.675558E-01   1.428724E-01   8.185375E-02                  \r\n           105      G      0.0            0.0           -1.000000E+00  -5.992281E-02   0.0            0.0                           \r\n           106      G      7.962918E-01  -1.482977E-01   9.069622E-02   1.691259E-01   9.371361E-02   9.847935E-02                  \r\n           107      G      0.0            0.0            1.000000E+00  -5.992281E-02   0.0            0.0                           \r\n           108      G     -7.962918E-01  -1.482977E-01  -9.069622E-02   1.691259E-01  -9.371361E-02   9.847935E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES OF EMPTY STRUCTURE                                                                               SUBCASE 1              \r\n      EIGENVALUE =  0.324661E+09    (CYCLIC FREQUENCY =  2.867711E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             7      S      0.0            0.0                                                                                       \r\n           101      G      0.0            0.0           -8.993527E-01   6.213098E-02   0.0            0.0                           \r\n           102      G     -5.434843E-01  -1.682397E-01  -3.462511E-01   2.458907E-02  -7.078493E-02  -4.130588E-02                  \r\n           103      G      0.0            0.0           -8.993527E-01  -6.213098E-02   0.0            0.0                           \r\n           104      G     -5.434843E-01   1.682397E-01  -3.462511E-01  -2.458907E-02  -7.078493E-02   4.130588E-02                  \r\n           105      G      0.0            0.0            9.698256E-01  -4.308113E-02   0.0            0.0                           \r\n           106      G      1.000000E+00  -6.353323E-01   7.379614E-01   7.938575E-02   2.525044E-01  -1.164684E-01                  \r\n           107      G      0.0            0.0            9.698256E-01   4.308113E-02   0.0            0.0                           \r\n           108      G      1.000000E+00   6.353323E-01   7.379614E-01  -7.938575E-02   2.525044E-01   1.164684E-01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       198,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       199,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    114\r\n       200,   DKAA    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       201,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       202,   DKXX    ,   FLAGS = 4,   REEL =  1,   FILE =     64\r\n       203,   DKNN    ,   FLAGS = 4,   REEL =  1,   FILE =     64\r\n       204,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    115\r\n \r\n       205,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       206,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116\r\n       207,   DKFF    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       208,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       209,   DKFF    ,   FLAGS = 0,   REEL =  1,   FILE =    117\r\n       210,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    118\r\n \r\n       211,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       212,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    119\r\n \r\n       213,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       214,   DKAA    ,   FLAGS = 0,   REEL =  1,   FILE =    120\r\n       215,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121\r\n                        0 ROOTS BELOW   1.000000E-10\r\n \r\n       216,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       217,   KMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    122\r\n       218,   MMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    123\r\n       219,   GIH     ,   FLAGS = 0,   REEL =  1,   FILE =    124\r\n       220,   PV4     ,   FLAGS = 0,   REEL =  1,   FILE =    125\r\n       221,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    126\r\n \r\n       222,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       223,   CASE2   ,   FLAGS = 0,   REEL =  1,   FILE =    127\r\n       224,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    128\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n \r\n       225,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       226,   LAMAT   ,   FLAGS = 0,   REEL =  1,   FILE =    129\r\n       227,   PHIH    ,   FLAGS = 0,   REEL =  1,   FILE =    130\r\n       228,   MH      ,   FLAGS = 0,   REEL =  1,   FILE =    131\r\n       229,   OEIGH   ,   FLAGS = 0,   REEL =  1,   FILE =    132\r\n       230,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    133\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        13       -1.574339E-01        3.967794E-01        6.314941E-02        8.241057E-01       -1.297422E-01             \r\n        2        14        1.490182E+02        1.220730E+01        1.942852E+00        9.557772E-02        1.424282E+01             \r\n        3        12        6.146253E+02        2.479164E+01        3.945712E+00        8.442485E-03        5.188965E+00             \r\n        4        11        7.383858E+02        2.717326E+01        4.324758E+00        1.173731E-02        8.666662E+00             \r\n        5        10        2.104722E+03        4.587725E+01        7.301590E+00        3.317093E-03        6.981558E+00             \r\n        6         9        1.064857E+06        1.031919E+03        1.642350E+02        1.859074E-02        1.979649E+04             \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        14\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       231,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       232,   PHII    ,   FLAGS = 0,   REEL =  1,   FILE =    134\r\n       233,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    135\r\n \r\n       234,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       235,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    136\r\n       236,   PHIZ    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       237,   REENTER AT DMAP SEQUENCE NUMBER    82\r\n       238,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    137\r\n       239,   PHIY    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       240,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       241,   PHIZ    ,   FLAGS = 0,   REEL =  1,   FILE =    138\r\n       242,   PHIFR   ,   FLAGS = 0,   REEL =  1,   FILE =    139\r\n       243,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    140\r\n \r\n       244,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       245,   PHIY    ,   FLAGS = 0,   REEL =  1,   FILE =    141\r\n       246,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    142\r\n \r\n       247,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       248,   PHIX    ,   FLAGS = 0,   REEL =  1,   FILE =    143\r\n       249,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    144\r\n \r\n       250,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       251,   QX      ,   FLAGS = 0,   REEL =  1,   FILE =    145\r\n       252,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    146\r\n \r\n       253,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       254,   PHIGT   ,   FLAGS = 0,   REEL =  1,   FILE =    147\r\n       255,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    148\r\n \r\n       256,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       257,   QGT     ,   FLAGS = 0,   REEL =  1,   FILE =    149\r\n       258,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    150\r\n \r\n       259,   REENTER AT DMAP SEQUENCE NUMBER    83\r\n       260,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =    151\r\n       261,   OPHIG   ,   FLAGS = 0,   REEL =  1,   FILE =    152\r\n       262,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    153\r\n       263,   OES1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       264,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       265,   PPHIG   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       266,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n       267,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE = -0.157434E+00    (CYCLIC FREQUENCY =  6.314941E-02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -5.598960E-03  -5.598961E-03  -5.598960E-03  -5.598961E-03   9.949976E-01   9.949976E-01                  \r\n             7      S      9.949976E-01   9.949976E-01                                                                              \r\n           101      G      0.0            0.0            1.000000E+00  -1.223401E-09   0.0            0.0                           \r\n           102      G     -1.961513E-09   1.229128E-08   1.000000E+00  -1.534302E-09  -5.095475E-09   3.268961E-09                  \r\n           103      G      0.0            0.0            1.000000E+00   1.219465E-09   0.0            0.0                           \r\n           104      G     -1.961215E-09  -1.229022E-08   1.000000E+00   1.530570E-09  -5.094774E-09  -3.268624E-09                  \r\n           105      G      0.0            0.0            1.000000E+00   1.419803E-09   0.0            0.0                           \r\n           106      G     -9.304541E-08   3.783302E-08   1.000000E+00  -4.202198E-09  -9.224661E-09   6.372701E-09                  \r\n           107      G      0.0            0.0            1.000000E+00  -1.416066E-09   0.0            0.0                           \r\n           108      G     -9.304436E-08  -3.778921E-08   1.000000E+00   4.196006E-09  -9.224403E-09  -6.368534E-09                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.149018E+03    (CYCLIC FREQUENCY =  1.942852E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.478352E-03  -1.506407E-03   1.478352E-03   1.506407E-03  -7.336721E-01  -1.000000E+00                  \r\n             7      S      7.336721E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            1.755916E-01  -3.011164E-02   0.0            0.0                           \r\n           102      G     -4.300262E-06  -4.231048E-06   1.755845E-01  -3.028642E-02  -6.149380E-03   2.061619E-03                  \r\n           103      G      0.0            0.0           -1.755916E-01  -3.011164E-02   0.0            0.0                           \r\n           104      G      4.300262E-06  -4.231049E-06  -1.755845E-01  -3.028642E-02   6.149380E-03   2.061619E-03                  \r\n           105      G      0.0            0.0            1.755996E-01   2.843693E-02   0.0            0.0                           \r\n           106      G     -7.572113E-06   3.511234E-01   1.755895E-01  -5.097926E-02  -1.521295E-03   3.416974E-02                  \r\n           107      G      0.0            0.0           -1.755996E-01   2.843693E-02   0.0            0.0                           \r\n           108      G      7.572112E-06   3.511234E-01  -1.755895E-01  -5.097926E-02   1.521295E-03   3.416974E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.614625E+03    (CYCLIC FREQUENCY =  3.945712E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.338617E-05  -5.657782E-05   2.338617E-05   5.657782E-05   1.000000E+00  -2.992511E-01                  \r\n             7      S     -1.000000E+00   2.992511E-01                                                                              \r\n           101      G      0.0            0.0            4.361956E-02  -7.480458E-03   0.0            0.0                           \r\n           102      G     -9.642910E-07  -4.255490E-07   4.362029E-02  -7.524231E-03  -1.528189E-03   5.123292E-04                  \r\n           103      G      0.0            0.0           -4.361956E-02  -7.480458E-03   0.0            0.0                           \r\n           104      G      9.642911E-07  -4.255490E-07  -4.362029E-02  -7.524231E-03   1.528189E-03   5.123292E-04                  \r\n           105      G      0.0            0.0            4.362280E-02   7.064622E-03   0.0            0.0                           \r\n           106      G     -3.053602E-06   8.723374E-02   4.362193E-02  -1.266540E-02  -3.778802E-04   8.489138E-03                  \r\n           107      G      0.0            0.0           -4.362280E-02   7.064622E-03   0.0            0.0                           \r\n           108      G      3.053602E-06   8.723374E-02  -4.362193E-02  -1.266540E-02   3.778802E-04   8.489138E-03                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.738386E+03    (CYCLIC FREQUENCY =  4.324758E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.125727E-05   2.125758E-05  -2.125727E-05   2.125758E-05   1.000000E+00  -9.999557E-01                  \r\n             7      S      1.000000E+00  -9.999557E-01                                                                              \r\n           101      G      0.0            0.0           -3.302800E-06  -2.590020E-07   0.0            0.0                           \r\n           102      G     -2.859421E-07   2.462792E-06   3.244163E-07  -3.077461E-07  -9.686239E-07   6.533403E-07                  \r\n           103      G      0.0            0.0           -3.302755E-06   2.590095E-07   0.0            0.0                           \r\n           104      G     -2.859397E-07  -2.462766E-06   3.244632E-07   3.077559E-07  -9.686252E-07  -6.533383E-07                  \r\n           105      G      0.0            0.0            2.771216E-07   2.917056E-07   0.0            0.0                           \r\n           106      G     -1.844780E-05   7.595462E-06   4.837300E-06  -8.448688E-07  -1.868571E-06   1.282514E-06                  \r\n           107      G      0.0            0.0            2.771532E-07  -2.917118E-07   0.0            0.0                           \r\n           108      G     -1.844778E-05  -7.595588E-06   4.837339E-06   8.448928E-07  -1.868570E-06  -1.282528E-06                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.210472E+04    (CYCLIC FREQUENCY =  7.301590E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.802496E-04  -2.730274E-04   2.802496E-04   2.730274E-04   4.301123E-02   1.000000E+00                  \r\n             7      S     -4.301123E-02  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0            1.036686E-01  -1.777259E-02   0.0            0.0                           \r\n           102      G     -1.658996E-06  -1.427230E-05   1.036225E-01  -1.787006E-02  -3.619902E-03   1.213924E-03                  \r\n           103      G      0.0            0.0           -1.036686E-01  -1.777259E-02   0.0            0.0                           \r\n           104      G      1.658996E-06  -1.427230E-05  -1.036225E-01  -1.787006E-02   3.619902E-03   1.213924E-03                  \r\n           105      G      0.0            0.0            1.036466E-01   1.678029E-02   0.0            0.0                           \r\n           106      G      2.366805E-05   2.071273E-01   1.036143E-01  -3.007174E-02  -8.982299E-04   2.015841E-02                  \r\n           107      G      0.0            0.0           -1.036466E-01   1.678029E-02   0.0            0.0                           \r\n           108      G     -2.366805E-05   2.071273E-01  -1.036143E-01  -3.007174E-02   8.982299E-04   2.015841E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.106486E+07    (CYCLIC FREQUENCY =  1.642350E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.376886E-04  -1.266750E-04  -1.376886E-04  -1.266750E-04   1.000000E+00   9.950455E-01                  \r\n             7      S      1.000000E+00   9.950455E-01                                                                              \r\n           101      G      0.0            0.0           -9.476522E-01  -4.816047E-04   0.0            0.0                           \r\n           102      G     -1.732436E-03  -4.537095E-04  -9.581849E-01   1.763225E-05   1.932073E-03  -1.673748E-04                  \r\n           103      G      0.0            0.0           -9.476522E-01   4.816047E-04   0.0            0.0                           \r\n           104      G     -1.732436E-03   4.537095E-04  -9.581849E-01  -1.763225E-05   1.932073E-03   1.673748E-04                  \r\n           105      G      0.0            0.0           -9.512700E-01   2.250103E-04   0.0            0.0                           \r\n           106      G      8.646619E-04  -2.480627E-04  -9.583734E-01  -5.584203E-05  -8.339130E-04   6.382379E-05                  \r\n           107      G      0.0            0.0           -9.512700E-01  -2.250103E-04   0.0            0.0                           \r\n           108      G      8.646619E-04   2.480627E-04  -9.583734E-01   5.584203E-05  -8.339130E-04  -6.382379E-05                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE = -0.157434E+00    (CYCLIC FREQUENCY =  6.314941E-02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -8.990772E-04  -2.801287E-03   0.0            0.0            2.050274E-06  -1.386574E-06                  \r\n           103      G     -8.994231E-04   2.800992E-03   0.0            0.0            2.050385E-06   1.386035E-06                  \r\n           105      G      6.532940E-02  -1.009111E-06   0.0            0.0            0.0           -4.421665E-06                  \r\n           107      G      6.532884E-02   1.007414E-06   0.0            0.0            0.0            4.416260E-06                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.149018E+03    (CYCLIC FREQUENCY =  1.942852E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      6.894511E+00   7.060339E-01   0.0            0.0           -2.555356E-01  -3.026443E+00                  \r\n           103      G     -6.894511E+00   7.060339E-01   0.0            0.0            2.555356E-01  -3.026443E+00                  \r\n           105      G      3.558559E+00  -1.345169E+01   0.0            0.0            0.0           -4.314366E+01                  \r\n           107      G     -3.558559E+00  -1.345169E+01   0.0            0.0            0.0           -4.314366E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.614625E+03    (CYCLIC FREQUENCY =  3.945712E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.153063E+00   3.503764E-02   0.0            0.0           -6.320915E-02  -7.520571E-01                  \r\n           103      G     -1.153063E+00   3.503765E-02   0.0            0.0            6.320915E-02  -7.520571E-01                  \r\n           105      G      1.870182E+00  -3.341969E+00   0.0            0.0            0.0           -1.071878E+01                  \r\n           107      G     -1.870181E+00  -3.341969E+00   0.0            0.0            0.0           -1.071878E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.738386E+03    (CYCLIC FREQUENCY =  4.324758E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -2.670212E-01  -5.725096E-01   0.0            0.0            3.749093E-04  -2.749914E-04                  \r\n           103      G     -2.670209E-01   5.725030E-01   0.0            0.0            3.749087E-04   2.749883E-04                  \r\n           105      G      1.296968E+01  -2.021789E-04   0.0            0.0            0.0           -8.852178E-04                  \r\n           107      G      1.296966E+01   2.021834E-04   0.0            0.0            0.0            8.852328E-04                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.210472E+04    (CYCLIC FREQUENCY =  7.301590E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.044252E+01   3.405743E+00   0.0            0.0           -1.553467E-01  -1.782191E+00                  \r\n           103      G     -1.044252E+01   3.405743E+00   0.0            0.0            1.553467E-01  -1.782191E+00                  \r\n           105      G     -1.975141E+01  -7.934927E+00   0.0            0.0            0.0           -2.544849E+01                  \r\n           107      G      1.975141E+01  -7.934927E+00   0.0            0.0            0.0           -2.544849E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.106486E+07    (CYCLIC FREQUENCY =  1.642350E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      3.652062E+03   2.926631E+02   0.0            0.0           -1.367471E+00   1.582920E-01                  \r\n           103      G      3.652062E+03  -2.926631E+02   0.0            0.0           -1.367471E+00  -1.582920E-01                  \r\n           105      G     -1.483304E+03   2.065524E-02   0.0            0.0            0.0            1.206516E-01                  \r\n           107      G     -1.483304E+03  -2.065524E-02   0.0            0.0            0.0           -1.206516E-01                  \r\n1     HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T03-12-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n       268,   REENTER AT DMAP SEQUENCE NUMBER    85\r\n       269,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    154\r\n       270,   OESF1   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       271,   OESF1L  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       272,   REENTER AT DMAP SEQUENCE NUMBER    87\r\n       273,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    155\r\n       274,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       275,   REENTER AT DMAP SEQUENCE NUMBER    89\r\n       276,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    156\r\n       277,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n       278,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n \r\n       279,   REENTER AT DMAP SEQUENCE NUMBER   104\r\n       280,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    157\r\n       281,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT            \r\n DATE:  5/18/95\r\n END TIME: 10:10:14\r\n TOTAL WALL CLOCK TIME      5 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03121b.out",
    "content": "     NASTRAN FILES = OPTP                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03121B,NASTRAN                                                           \r\n     $                                                                               \r\n     $ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO.          \r\n     $     (1) LOOK FOR 'CASE2' IN THE T03121A CHECKPOINT DICTIONARY DECK            \r\n     $         (T03121A.PCH OR .DIC).  DELETE ALL THE CARDS FROM THE 'REENTER        \r\n     $         AT DMAP SEQUENCE NUMBER' CARD IMMEDIATELY BELOW THE 'CASE2' TO        \r\n     $         THE END OF THE DECK.                                                  \r\n     $         (DELETE CARDS 216 THRU 271 IN 1993 VERSION)                           \r\n     $     (2) NASTRAN FATAL ERROR IF THESE CARDS ARE NOT REMOVED.                   \r\n     $     (3) SINCE T03121C USES THE FULL CHECKPOINT DICTIONARY DECK FROM           \r\n     $         T03121A, YOU MAY WANT TO RUN DEMO T03121C FIRST BEFORE THIS           \r\n     $         DEMO.                                                                 \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  T03121A ,NASTRAN , 5/18/95,   36590,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER     6                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n              9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER     7                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER     8                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER     9                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    10                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    22                             \r\n             30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n             31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             32,   REENTER AT DMAP SEQUENCE NUMBER    23                             \r\n             33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             34,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             35,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             36,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             40,   REENTER AT DMAP SEQUENCE NUMBER    24                             \r\n             41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n             42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n             44,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             50,   REENTER AT DMAP SEQUENCE NUMBER    29                             \r\n             51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             53,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             56,   REENTER AT DMAP SEQUENCE NUMBER    34                             \r\n             57,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             59,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             60,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             61,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             62,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             63,   REENTER AT DMAP SEQUENCE NUMBER    40                             \r\n             64,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             65,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             66,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             67,   REENTER AT DMAP SEQUENCE NUMBER    44                             \r\n             68,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             70,   REENTER AT DMAP SEQUENCE NUMBER    46                             \r\n             71,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             72,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n             74,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             75,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             76,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             77,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n             78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             79,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             80,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             81,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             82,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             83,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             84,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             85,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             86,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             87,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             88,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             89,   USETF   ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n             90,   USETS   ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n             91,   AF      ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n             92,   DKGG    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n             93,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n             94,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             95,   PV1     ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n             96,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n             97,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             98,   KXX     ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n             99,   KYY     ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            101,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            102,   MXX     ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            103,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            104,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            105,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            106,   RX      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            107,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            109,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            110,   AXY     ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            111,   AYY     ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            113,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            114,   DKXX    ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            115,   DKYY    ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            116,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n            117,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            118,   PV2     ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n            119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            120,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            121,   AFRY    ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n            122,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            123,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            124,   DKFRFR  ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n            125,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            126,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            127,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            128,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            129,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            130,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            131,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            133,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            134,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n            135,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     79               \r\n            136,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            137,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            138,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80               \r\n            140,   REENTER AT DMAP SEQUENCE NUMBER    50                             \r\n            141,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            142,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            143,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            144,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            145,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            146,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            147,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83               \r\n            149,   REENTER AT DMAP SEQUENCE NUMBER    55                             \r\n            150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     84               \r\n            151,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            152,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            153,   REENTER AT DMAP SEQUENCE NUMBER    57                             \r\n            154,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     85               \r\n            155,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     86               \r\n            156,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     87               \r\n            157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88               \r\n            158,   REENTER AT DMAP SEQUENCE NUMBER    59                             \r\n            159,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89               \r\n            160,   KAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            161,   REENTER AT DMAP SEQUENCE NUMBER    60                             \r\n            162,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     90               \r\n            163,   MAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            164,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            165,   GO      ,   FLAGS = 0,   REEL =  1,   FILE =     91               \r\n            166,   KAA     ,   FLAGS = 0,   REEL =  1,   FILE =     92               \r\n            167,   KOO     ,   FLAGS = 0,   REEL =  1,   FILE =     93               \r\n            168,   LOO     ,   FLAGS = 0,   REEL =  1,   FILE =     94               \r\n            169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95               \r\n            170,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            171,   MAA     ,   FLAGS = 0,   REEL =  1,   FILE =     96               \r\n            172,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     97               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            173,   REENTER AT DMAP SEQUENCE NUMBER    72                             \r\n            174,   CASE1   ,   FLAGS = 0,   REEL =  1,   FILE =     98               \r\n            175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     99               \r\n            176,   REENTER AT DMAP SEQUENCE NUMBER    74                             \r\n            177,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =    100               \r\n            178,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =    101               \r\n            179,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =    102               \r\n            180,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    103               \r\n            181,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    104               \r\n            182,   REENTER AT DMAP SEQUENCE NUMBER    80                             \r\n            183,   PHIG    ,   FLAGS = 0,   REEL =  1,   FILE =    105               \r\n            184,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =    106               \r\n            185,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    107               \r\n            186,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            187,   PHIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    108               \r\n            188,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    109               \r\n            189,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            190,   QGS     ,   FLAGS = 0,   REEL =  1,   FILE =    110               \r\n            191,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    111               \r\n            192,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            193,   OPHIGS  ,   FLAGS = 0,   REEL =  1,   FILE =    112               \r\n            194,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113               \r\n            195,   OQGS    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            196,   OEFS    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            197,   PPHIGS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            198,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            199,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    114               \r\n            200,   DKAA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            201,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            202,   DKXX    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            203,   DKNN    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            204,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    115               \r\n            205,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            206,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116               \r\n            207,   DKFF    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            208,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            209,   DKFF    ,   FLAGS = 0,   REEL =  1,   FILE =    117               \r\n            210,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    118               \r\n            211,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            212,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    119               \r\n            213,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            214,   DKAA    ,   FLAGS = 0,   REEL =  1,   FILE =    120               \r\n            215,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121               \r\n            216,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            217,   KMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    122               \r\n            218,   MMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    123               \r\n            219,   GIH     ,   FLAGS = 0,   REEL =  1,   FILE =    124               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            220,   PV4     ,   FLAGS = 0,   REEL =  1,   FILE =    125               \r\n            221,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    126               \r\n            222,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            223,   CASE2   ,   FLAGS = 0,   REEL =  1,   FILE =    127               \r\n            224,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    128               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME  10                                                                        \r\n     SOL   3,0                                                                       \r\n     APP   DISP                                                                      \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\n0*** $   ... READFILE FROM-  COSHYD2                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2)         \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3. REPLACING BEGIN                          \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                              \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEW1,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     MODAL1,NOGRAV $                                                        \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n     COND     MODAL1,NOFREE $                                                        \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    MODAL1 $                                                               \r\n     LABEL    NEW1 $                                                                 \r\n     DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/           \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     COND     ERROR2,NOEED $                                                         \r\n     COMPOFF  NEW2,NEWMODE $                                                         \r\n     PARAM    //*MPY*/CARDNO/0/0 $                                                   \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    68,69 $  REPLACING DPD, COND                                         \r\n     DELETE DPD,DPD,1 $                                                              \r\n     CASE     CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n     $ ALTER    75,77 $  REPLACING SDR1, COND, EQMCK                                 \r\n     DELETE SDR1,EQMCK $                                                             \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                         \r\n     COND     NOMPCF,GRDEQ $                                                         \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     $ ALTER    80,80 $  REPLACING SDR2                                              \r\n     DELETE SDR2 $                                                                   \r\n     MERGE    PHIG,,,,,PV1/PHIGS/0 $                                                 \r\n     MERGE    QG,,,,,PV1/QGS/0 $                                                     \r\n     SDR2     CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/,          \r\n              OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $                                    \r\n     OFP      OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $                                      \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     MODAL4,NOGRAV $                                                        \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     MODAL2,MPCF2 $                                                         \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    MODAL2 $                                                               \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n     COND     MODAL3,SINGLE $                                                        \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    MODAL3 $                                                               \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     MODAL4,OMIT $                                                          \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    MODAL4 $                                                               \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,          \r\n              GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/                   \r\n              S,Y,LMODES $                                                           \r\n     JUMP     OLD2 $                                                                 \r\n     LABEL    NEW2 $                                                                 \r\n     PARAM    //*MPY*/REPT/1/1 $                                                     \r\n     LABEL    OLD2 $                                                                 \r\n     CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     PARAM    //*MPY*/NEIGV/1/-1 $                                                   \r\n     READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/               \r\n              S,N,NEIGV $                                                            \r\n     OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                          \r\n     COND     FINIS,NEIGV $                                                          \r\n     MPYAD    GIH,PHIH,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHIH,PHIZ/NOFREE $                                                     \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n     COND     MODAL5,NOFREE $                                                        \r\n     PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                             \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    MODAL5 $                                                               \r\n     COND     ALLMODES,LMODES                                                        \r\n     TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                           \r\n     TRAILER  QG//*STORE*/1/V,Y,LMODES $                                             \r\n     LABEL    ALLMODES $                                                             \r\n     MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                                \r\n     MPYAD    QG,PHIZ,/QX/0/1/0 $                                                    \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                             \r\n     MERGE    QX,,,,,PV1/QGT/0 $                                                     \r\n     SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,           \r\n              PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $                \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                 \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1B                                   \r\n                  3      $ REFERENCE PROBLEM IV.2                                                        \r\n                  4      SPC  = 10                                                                       \r\n                  5      DISP = ALL                                                                      \r\n                  6      SUBCASE 2                                                                       \r\n                  7          LABEL  = MODES WITH FLUID INCLUDED                                          \r\n                  8          METHOD = 70                                                                 \r\n                  9          SPCF   = ALL                                                                \r\n                 10      BEGIN BULK                                                                      \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              $                                                                                             \r\n                              $ NEW EIGR CARD FOR DIFFERENT MODE                                                            \r\n                              $                                                                                             \r\n                              /       11      12                                                                            \r\n                              EIGR    70      GIV     100.0   2500.0                  0               +EMOD2                \r\n                              +EMOD2  MAX                                                                                   \r\n                              $                                                                                             \r\n                              $ PARAMETER TO TURN OFF UNNEEDED DMAP                                                         \r\n                              $                                                                                             \r\n                              PARAM   NEWMODE -1                                                                            \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     10\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     6                                                       \r\n                    2-        CFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n                    3-        +CFH1   8       7                                                               \r\n                    4-        CFLSTR  1       100     101     THRU    104                                     \r\n                    5-        CQUAD2  101     100     101     102     106     105                             \r\n                    6-        CQUAD2  102     100     102     104     108     106                             \r\n                    7-        CQUAD2  103     100     104     103     107     108                             \r\n                    8-        CQUAD2  104     100     101     103     104     102                             \r\n                    9-        EIGR    50      GIV     0.0     2600.0  10      10      0               +EMOD1  \r\n                   10-        +EMOD1  MAX                                                                     \r\n                   11-        EIGR    70      GIV     100.0   2500.0                  0               +EMOD2  \r\n                   12-        +EMOD2  MAX                                                                     \r\n                   13-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   14-        GRID    1               0.0     0.0     0.0                                     \r\n                   15-        GRID    2               6.0     0.0     0.0                                     \r\n                   16-        GRID    3               0.0     12.0    0.0                                     \r\n                   17-        GRID    4               6.0     12.0    0.0                                     \r\n                   18-        GRID    5               0.0     0.0     12.0                                    \r\n                   19-        GRID    6               6.0     0.0     12.0                                    \r\n                   20-        GRID    7               0.0     12.0    12.0                                    \r\n                   21-        GRID    8               6.0     12.0    12.0                                    \r\n                   22-        GRID    101             0.0     0.0     0.0                                     \r\n                   23-        GRID    102             6.0     0.0     0.0                                     \r\n                   24-        GRID    103             0.0     12.0    0.0                                     \r\n                   25-        GRID    104             6.0     12.0    0.0                                     \r\n                   26-        GRID    105             0.0     0.0     12.0                                    \r\n                   27-        GRID    106             6.0     0.0     12.0                                    \r\n                   28-        GRID    107             0.0     12.0    12.0                                    \r\n                   29-        GRID    108             6.0     12.0    12.0                                    \r\n                   30-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   31-        MATF    200     9.355-4                                                         \r\n                   32-        OMIT1   4       101     103     105     107                                     \r\n                   33-        OMIT1   456     102     104     106     108                                     \r\n                   34-        PARAM   NEWMODE -1                                                              \r\n                   35-        PQUAD2  100     100     .06                                                     \r\n                   36-        SPC1    10      1256    101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   4           METHOD$                62\r\n                  17           POUT$                  19\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     3\r\n                  23           EIGR                   61\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n+  +\r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                      \r\n+  +\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n+  +\r\n\r\n       3  COMPOFF  NEW1,NEWMODE $                                                 \r\n\r\n      48  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/   \r\n+  *\r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n+  *\r\n\r\n      48  COND     ERROR2,NOEED $                                                 \r\n+  *\r\n\r\n      48  COMPOFF  NEW2,NEWMODE $                                                 \r\n\r\n      82  PARAM    //*MPY*/REPT/1/1 $                                             \r\n+  *\r\n\r\n      82  LABEL    OLD2 $                                                         \r\n+  +\r\n\r\n      82  CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                     \r\n+  *\r\n+  *\r\n\r\n      82  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n+  *\r\n\r\n      82  READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/       \r\n+  *\r\n                   S,N,NEIGV $                                                    \r\n+  *\r\n\r\n      82  OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                  \r\n+  *\r\n+  *\r\n\r\n      82  COND     FINIS,NEIGV $                                                  \r\n+  *\r\n\r\n      82  MPYAD    GIH,PHIH,/PHII/0/1/0 $                                         \r\n+  *\r\n\r\n      82  EQUIV    PHIH,PHIZ/NOFREE $                                             \r\n+  *\r\n\r\n      82  EQUIV    PHII,PHIY/NOFREE $                                             \r\n+  *\r\n\r\n      82  COND     MODAL5,NOFREE $                                                \r\n+  *\r\n\r\n      82  PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                     \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n+  *\r\n\r\n      82  LABEL    MODAL5 $                                                       \r\n+  +\r\n\r\n      82  COND     ALLMODES,LMODES                                                \r\n+  *\r\n\r\n      82  TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                   \r\n+  *\r\n\r\n      82  TRAILER  QG//*STORE*/1/V,Y,LMODES $                                     \r\n+  *\r\n\r\n      82  LABEL    ALLMODES $                                                     \r\n+  +\r\n\r\n      82  MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                        \r\n+  *\r\n\r\n      82  MPYAD    QG,PHIZ,/QX/0/1/0 $                                            \r\n+  *\r\n\r\n      82  MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                     \r\n+  *\r\n\r\n      82  MERGE    QX,,,,,PV1/QGT/0 $                                             \r\n+  *\r\n\r\n      82  SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,   \r\n+  *\r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $        \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n+  *\r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n+  *\r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n+  *\r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n+  *\r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n+  *\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n+  *\r\n\r\n      92  LABEL    P2 $                                                           \r\n+  +\r\n\r\n      93  JUMP     FINIS $                                                        \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n+  *\r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n+  *\r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n+  *\r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n+  *\r\n\r\n     102  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     104  END      $                                                              \r\n+  *\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR4   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR3   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED ERROR1   NOT REFERENCED\r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED OLD2     NOT REFERENCED\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     CSTM      (PURGED)\r\n     PLTPAR    (PURGED)\r\n     GPSETS    (PURGED)\r\n     ELSETS    (PURGED)\r\n     PCOMPS    (PURGED)\r\n     GPL              1         7\r\n     EQEXIN           1         8\r\n     BGPDT            1        10\r\n     SIL              1        11\r\n     BGPDP            1        16\r\n     SIP              1        17\r\n     ECT              1        19\r\n     EST              1        23\r\n     GPECT            1        24\r\n     KELM             1        29\r\n     KDICT            1        30\r\n     USET             1        44\r\n     USETF            1        47\r\n     PV1              1        52\r\n     PV2              1        67\r\n     LAMA             1       100\r\n     PHIA             1       101\r\n     PHIG             1       105\r\n     QG               1       106\r\n     KMAT             1       122\r\n     MMAT             1       123\r\n     GIH              1       124\r\n     PV4              1       125\r\n     XVPS             1       128\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         9        1.064857E+06        1.031919E+03        1.642350E+02        1.859074E-02        1.979649E+04             \r\n        2         8        1.187844E+07        3.446511E+03        5.485292E+02        2.464191E-03        2.927074E+04             \r\n        3         7        2.649998E+07        5.147813E+03        8.192999E+02        1.949578E-02        5.166378E+05             \r\n        4         6        3.311681E+07        5.754721E+03        9.158922E+02        1.260259E-03        4.173577E+04             \r\n        5         5        9.534691E+07        9.764574E+03        1.554080E+03        9.421816E-03        8.983411E+05             \r\n        6         3        2.263117E+08        1.504366E+04        2.394273E+03        2.133617E-03        4.828625E+05             \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        14\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.106486E+07    (CYCLIC FREQUENCY =  1.642350E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.376886E-04  -1.266750E-04  -1.376886E-04  -1.266750E-04   1.000000E+00   9.950455E-01                  \r\n             7      S      1.000000E+00   9.950455E-01                                                                              \r\n           101      G      0.0            0.0           -9.476522E-01  -4.816047E-04   0.0            0.0                           \r\n           102      G     -1.732436E-03  -4.537095E-04  -9.581849E-01   1.763225E-05   1.932073E-03  -1.673748E-04                  \r\n           103      G      0.0            0.0           -9.476522E-01   4.816047E-04   0.0            0.0                           \r\n           104      G     -1.732436E-03   4.537095E-04  -9.581849E-01  -1.763225E-05   1.932073E-03   1.673748E-04                  \r\n           105      G      0.0            0.0           -9.512700E-01   2.250103E-04   0.0            0.0                           \r\n           106      G      8.646619E-04  -2.480627E-04  -9.583734E-01  -5.584203E-05  -8.339130E-04   6.382379E-05                  \r\n           107      G      0.0            0.0           -9.512700E-01  -2.250103E-04   0.0            0.0                           \r\n           108      G      8.646619E-04   2.480627E-04  -9.583734E-01   5.584203E-05  -8.339130E-04  -6.382379E-05                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.118784E+08    (CYCLIC FREQUENCY =  5.485292E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.105553E-04   1.606790E-04   2.105553E-04  -1.606790E-04   2.765942E-02  -1.000000E+00                  \r\n             7      S     -2.765942E-02   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            1.349088E-01  -4.572564E-03   0.0            0.0                           \r\n           102      G     -2.417227E-02  -1.944523E-01   2.748539E-02   1.016399E-03   2.623452E-02  -2.932260E-02                  \r\n           103      G      0.0            0.0           -1.349088E-01  -4.572564E-03   0.0            0.0                           \r\n           104      G      2.417227E-02  -1.944523E-01  -2.748539E-02   1.016399E-03  -2.623452E-02  -2.932260E-02                  \r\n           105      G      0.0            0.0            9.199693E-02  -1.011440E-02   0.0            0.0                           \r\n           106      G      4.630876E-02  -2.388912E-01   1.853552E-02   1.200347E-02  -1.071280E-02  -2.409718E-02                  \r\n           107      G      0.0            0.0           -9.199693E-02  -1.011440E-02   0.0            0.0                           \r\n           108      G     -4.630876E-02  -2.388912E-01  -1.853552E-02   1.200347E-02   1.071280E-02  -2.409718E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.265000E+08    (CYCLIC FREQUENCY =  8.192999E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      5.835659E-04  -5.862039E-04   5.835659E-04  -5.862039E-04  -1.111740E-01   1.000000E+00                  \r\n             7      S     -1.111740E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -6.408257E-01   3.333080E-02   0.0            0.0                           \r\n           102      G     -5.520390E-02   1.129355E-02   3.635326E-02   7.184654E-04  -1.246544E-01   6.502908E-03                  \r\n           103      G      0.0            0.0           -6.408257E-01  -3.333080E-02   0.0            0.0                           \r\n           104      G     -5.520390E-02  -1.129355E-02   3.635326E-02  -7.184654E-04  -1.246544E-01  -6.502908E-03                  \r\n           105      G      0.0            0.0           -5.199058E-03  -1.693185E-02   0.0            0.0                           \r\n           106      G     -2.158109E-01  -2.650679E-02   3.486984E-01   7.365893E-03   5.493223E-02  -1.128927E-02                  \r\n           107      G      0.0            0.0           -5.199058E-03   1.693185E-02   0.0            0.0                           \r\n           108      G     -2.158109E-01   2.650679E-02   3.486984E-01  -7.365893E-03   5.493223E-02   1.128927E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.331168E+08    (CYCLIC FREQUENCY =  9.158922E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -5.525600E-05  -1.025382E-04   5.525600E-05   1.025382E-04   3.304079E-02  -1.000000E+00                  \r\n             7      S     -3.304079E-02   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            9.623558E-03   4.012544E-03   0.0            0.0                           \r\n           102      G     -1.543285E-04   1.670659E-01  -1.254605E-01   3.594772E-02   2.196676E-02   1.540142E-02                  \r\n           103      G      0.0            0.0           -9.623558E-03   4.012544E-03   0.0            0.0                           \r\n           104      G      1.543285E-04   1.670659E-01   1.254605E-01   3.594772E-02  -2.196676E-02   1.540142E-02                  \r\n           105      G      0.0            0.0           -2.890169E-02  -5.313466E-03   0.0            0.0                           \r\n           106      G      8.980209E-03  -3.277828E-01  -1.271567E-01   7.403798E-02   3.834032E-03  -3.083467E-02                  \r\n           107      G      0.0            0.0            2.890169E-02  -5.313466E-03   0.0            0.0                           \r\n           108      G     -8.980209E-03  -3.277828E-01   1.271567E-01   7.403798E-02  -3.834032E-03  -3.083467E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.953469E+08    (CYCLIC FREQUENCY =  1.554080E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.542568E-04  -1.622705E-04  -1.542568E-04   1.622705E-04  -1.231542E-02   1.000000E+00                  \r\n             7      S      1.231542E-02  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -1.067754E-01   1.931411E-02   0.0            0.0                           \r\n           102      G     -9.269130E-04  -3.545278E-01   4.620673E-01  -8.922102E-02  -7.041235E-02  -3.776396E-02                  \r\n           103      G      0.0            0.0            1.067754E-01   1.931411E-02   0.0            0.0                           \r\n           104      G      9.269130E-04  -3.545278E-01  -4.620673E-01  -8.922102E-02   7.041235E-02  -3.776396E-02                  \r\n           105      G      0.0            0.0            2.636239E-01  -1.548972E-02   0.0            0.0                           \r\n           106      G     -4.701128E-01  -6.121884E-01   5.430947E-01   1.266165E-01  -4.170447E-02  -9.010818E-02                  \r\n           107      G      0.0            0.0           -2.636239E-01  -1.548972E-02   0.0            0.0                           \r\n           108      G      4.701128E-01  -6.121884E-01  -5.430947E-01   1.266165E-01   4.170447E-02  -9.010818E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.226312E+09    (CYCLIC FREQUENCY =  2.394273E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.142751E-06   2.259508E-06  -2.142751E-06   2.259508E-06  -6.384177E-01   1.000000E+00                  \r\n             7      S     -6.384177E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            9.369472E-02  -3.873225E-02   0.0            0.0                           \r\n           102      G     -8.202220E-02   1.614083E-01  -2.347645E-01  -1.848448E-02   6.475333E-02   3.690013E-02                  \r\n           103      G      0.0            0.0            9.369472E-02   3.873225E-02   0.0            0.0                           \r\n           104      G     -8.202220E-02  -1.614083E-01  -2.347645E-01   1.848448E-02   6.475333E-02  -3.690013E-02                  \r\n           105      G      0.0            0.0            3.114155E-01   3.159376E-02   0.0            0.0                           \r\n           106      G     -6.289958E-02   4.202076E-01   1.481576E-01  -4.048694E-02  -3.888851E-02   7.424698E-02                  \r\n           107      G      0.0            0.0            3.114155E-01  -3.159376E-02   0.0            0.0                           \r\n           108      G     -6.289958E-02  -4.202076E-01   1.481576E-01   4.048694E-02  -3.888851E-02  -7.424698E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.106486E+07    (CYCLIC FREQUENCY =  1.642350E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      3.652062E+03   2.926631E+02   0.0            0.0           -1.367471E+00   1.582920E-01                  \r\n           103      G      3.652062E+03  -2.926631E+02   0.0            0.0           -1.367471E+00  -1.582920E-01                  \r\n           105      G     -1.483304E+03   2.065524E-02   0.0            0.0            0.0            1.206516E-01                  \r\n           107      G     -1.483304E+03  -2.065524E-02   0.0            0.0            0.0           -1.206516E-01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.118784E+08    (CYCLIC FREQUENCY =  5.485292E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      7.135133E+04   4.461990E+04   0.0            0.0           -1.367379E+01   3.337190E+01                  \r\n           103      G     -7.135133E+04   4.461990E+04   0.0            0.0            1.367379E+01   3.337190E+01                  \r\n           105      G     -4.070857E+04   9.229980E+00   0.0            0.0            0.0            3.666503E+01                  \r\n           107      G      4.070857E+04   9.229980E+00   0.0            0.0            0.0            3.666503E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.265000E+08    (CYCLIC FREQUENCY =  8.192999E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -3.439658E+04   3.021367E+03   0.0            0.0            8.748387E+01  -8.157108E+00                  \r\n           103      G     -3.439658E+04  -3.021367E+03   0.0            0.0            8.748387E+01   8.157108E+00                  \r\n           105      G      1.641944E+05  -1.873510E-01   0.0            0.0            0.0           -2.871865E+00                  \r\n           107      G      1.641944E+05   1.873510E-01   0.0            0.0            0.0            2.871865E+00                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.331168E+08    (CYCLIC FREQUENCY =  9.158922E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -3.839830E+03  -4.089232E+04   0.0            0.0           -1.272222E+01  -1.891063E+01                  \r\n           103      G      3.839830E+03  -4.089232E+04   0.0            0.0            1.272222E+01  -1.891063E+01                  \r\n           105      G     -1.843755E+04   1.217576E+01   0.0            0.0            0.0            3.990813E+01                  \r\n           107      G      1.843755E+04   1.217576E+01   0.0            0.0            0.0            3.990813E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.953469E+08    (CYCLIC FREQUENCY =  1.554080E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -3.088321E+04   8.661948E+04   0.0            0.0            7.794474E+01   3.752504E+01                  \r\n           103      G      3.088321E+04   8.661948E+04   0.0            0.0           -7.794474E+01   3.752504E+01                  \r\n           105      G      3.567773E+05   1.815973E+01   0.0            0.0            0.0            7.917131E+01                  \r\n           107      G     -3.567773E+05   1.815973E+01   0.0            0.0            0.0            7.917131E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                  /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-12-1B                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.226312E+09    (CYCLIC FREQUENCY =  2.394273E+03 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.301582E+05  -3.088612E+04   0.0            0.0           -3.829406E+01  -1.487543E+01                  \r\n           103      G      1.301582E+05   3.088612E+04   0.0            0.0           -3.829406E+01   1.487543E+01                  \r\n           105      G     -1.759405E+04  -1.087668E+01   0.0            0.0            0.0           -4.547854E+01                  \r\n           107      G     -1.759405E+04   1.087668E+01   0.0            0.0            0.0            4.547854E+01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES               \r\n DATE:  5/18/95\r\n END TIME: 10:13:41\r\n TOTAL WALL CLOCK TIME      1 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03121c.out",
    "content": "     NASTRAN FILES = OPTP                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03121C,NASTRAN                                                           \r\n     $                                                                               \r\n     $     INSERT T03121A (NOT T03121B) CHECKPOINT DICTIONARY                        \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  T03121A ,NASTRAN , 5/18/95,   36590,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER     6                             \r\n              3,   GPL     ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              4,   EQEXIN  ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n              5,   GPDT    ,   FLAGS = 0,   REEL =  1,   FILE =      9               \r\n              6,   BGPDT   ,   FLAGS = 0,   REEL =  1,   FILE =     10               \r\n              7,   SIL     ,   FLAGS = 0,   REEL =  1,   FILE =     11               \r\n              8,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     12               \r\n              9,   CSTM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             10,   REENTER AT DMAP SEQUENCE NUMBER     7                             \r\n             11,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     13               \r\n             12,   MPTA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             13,   REENTER AT DMAP SEQUENCE NUMBER     8                             \r\n             14,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     14               \r\n             15,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     15               \r\n             16,   REENTER AT DMAP SEQUENCE NUMBER     9                             \r\n             17,   BGPDP   ,   FLAGS = 0,   REEL =  1,   FILE =     16               \r\n             18,   SIP     ,   FLAGS = 0,   REEL =  1,   FILE =     17               \r\n             19,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     18               \r\n             20,   REENTER AT DMAP SEQUENCE NUMBER    10                             \r\n             21,   ECT     ,   FLAGS = 0,   REEL =  1,   FILE =     19               \r\n             22,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     20               \r\n             23,   REENTER AT DMAP SEQUENCE NUMBER    12                             \r\n             24,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     21               \r\n             25,   PLTSETX ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             26,   PLTPAR  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             27,   GPSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             28,   ELSETS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             29,   REENTER AT DMAP SEQUENCE NUMBER    22                             \r\n             30,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     22               \r\n             31,   GPTT    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             32,   REENTER AT DMAP SEQUENCE NUMBER    23                             \r\n             33,   EST     ,   FLAGS = 0,   REEL =  1,   FILE =     23               \r\n             34,   GPECT   ,   FLAGS = 0,   REEL =  1,   FILE =     24               \r\n             35,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     25               \r\n             36,   GEI     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             37,   MPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             38,   PCOMPS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             39,   EPTX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             40,   REENTER AT DMAP SEQUENCE NUMBER    24                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             41,   MPT     ,   FLAGS = 0,   REEL =  1,   FILE =     26               \r\n             42,   EPT     ,   FLAGS = 0,   REEL =  1,   FILE =     27               \r\n             43,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     28               \r\n             44,   REENTER AT DMAP SEQUENCE NUMBER    28                             \r\n             45,   KELM    ,   FLAGS = 0,   REEL =  1,   FILE =     29               \r\n             46,   KDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     30               \r\n             47,   MELM    ,   FLAGS = 0,   REEL =  1,   FILE =     31               \r\n             48,   MDICT   ,   FLAGS = 0,   REEL =  1,   FILE =     32               \r\n             49,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     33               \r\n             50,   REENTER AT DMAP SEQUENCE NUMBER    29                             \r\n             51,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     34               \r\n             52,   KGGX    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             53,   REENTER AT DMAP SEQUENCE NUMBER    31                             \r\n             54,   KGGX    ,   FLAGS = 0,   REEL =  1,   FILE =     35               \r\n             55,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     36               \r\n             56,   REENTER AT DMAP SEQUENCE NUMBER    34                             \r\n             57,   MGG     ,   FLAGS = 0,   REEL =  1,   FILE =     37               \r\n             58,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     38               \r\n             59,   REENTER AT DMAP SEQUENCE NUMBER    35                             \r\n             60,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     39               \r\n             61,   MDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             62,   MELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             63,   REENTER AT DMAP SEQUENCE NUMBER    40                             \r\n             64,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             65,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n             66,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     40               \r\n             67,   REENTER AT DMAP SEQUENCE NUMBER    44                             \r\n             68,   GPST    ,   FLAGS = 0,   REEL =  1,   FILE =     41               \r\n             69,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     42               \r\n             70,   REENTER AT DMAP SEQUENCE NUMBER    46                             \r\n             71,   YS      ,   FLAGS = 0,   REEL =  1,   FILE =     43               \r\n             72,   USET    ,   FLAGS = 0,   REEL =  1,   FILE =     44               \r\n             73,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     45               \r\n             74,   RG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             75,   ASET    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             76,   OGPST   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             77,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n             78,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     46               \r\n             79,   KRR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             80,   KLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             81,   DM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             82,   MLR     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             83,   MR      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             84,   GM      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             85,   GO      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             86,   KFS     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n             87,   QG      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n             88,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             89,   USETF   ,   FLAGS = 0,   REEL =  1,   FILE =     47               \r\n             90,   USETS   ,   FLAGS = 0,   REEL =  1,   FILE =     48               \r\n             91,   AF      ,   FLAGS = 0,   REEL =  1,   FILE =     49               \r\n             92,   DKGG    ,   FLAGS = 0,   REEL =  1,   FILE =     50               \r\n             93,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     51               \r\n             94,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             95,   PV1     ,   FLAGS = 0,   REEL =  1,   FILE =     52               \r\n             96,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     53               \r\n             97,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n             98,   KXX     ,   FLAGS = 0,   REEL =  1,   FILE =     54               \r\n             99,   KYY     ,   FLAGS = 0,   REEL =  1,   FILE =     55               \r\n            100,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     56               \r\n            101,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            102,   MXX     ,   FLAGS = 0,   REEL =  1,   FILE =     57               \r\n            103,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     58               \r\n            104,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            105,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     59               \r\n            106,   RX      ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            107,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            108,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     60               \r\n            109,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            110,   AXY     ,   FLAGS = 0,   REEL =  1,   FILE =     61               \r\n            111,   AYY     ,   FLAGS = 0,   REEL =  1,   FILE =     62               \r\n            112,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     63               \r\n            113,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            114,   DKXX    ,   FLAGS = 0,   REEL =  1,   FILE =     64               \r\n            115,   DKYY    ,   FLAGS = 0,   REEL =  1,   FILE =     65               \r\n            116,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     66               \r\n            117,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            118,   PV2     ,   FLAGS = 0,   REEL =  1,   FILE =     67               \r\n            119,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     68               \r\n            120,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            121,   AFRY    ,   FLAGS = 0,   REEL =  1,   FILE =     69               \r\n            122,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     70               \r\n            123,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            124,   DKFRFR  ,   FLAGS = 0,   REEL =  1,   FILE =     71               \r\n            125,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     72               \r\n            126,   REENTER AT DMAP SEQUENCE NUMBER    49                             \r\n            127,   GPLD    ,   FLAGS = 0,   REEL =  1,   FILE =     73               \r\n            128,   SILD    ,   FLAGS = 0,   REEL =  1,   FILE =     74               \r\n            129,   USETD   ,   FLAGS = 0,   REEL =  1,   FILE =     75               \r\n            130,   EED     ,   FLAGS = 0,   REEL =  1,   FILE =     76               \r\n            131,   EQDYN   ,   FLAGS = 0,   REEL =  1,   FILE =     77               \r\n            132,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     78               \r\n            133,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            134,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     35               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            135,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     79               \r\n            136,   REENTER AT DMAP SEQUENCE NUMBER    48                             \r\n            137,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            138,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     57               \r\n            139,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     80               \r\n            140,   REENTER AT DMAP SEQUENCE NUMBER    50                             \r\n            141,   KNN     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            142,   KGG     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            143,   KXX     ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            144,   KGGX    ,   FLAGS = 4,   REEL =  1,   FILE =     81               \r\n            145,   MNN     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            146,   MXX     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            147,   MGG     ,   FLAGS = 4,   REEL =  1,   FILE =     82               \r\n            148,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     83               \r\n            149,   REENTER AT DMAP SEQUENCE NUMBER    55                             \r\n            150,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     84               \r\n            151,   KFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            152,   MFF     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            153,   REENTER AT DMAP SEQUENCE NUMBER    57                             \r\n            154,   KFF     ,   FLAGS = 0,   REEL =  1,   FILE =     85               \r\n            155,   KFS     ,   FLAGS = 0,   REEL =  1,   FILE =     86               \r\n            156,   MFF     ,   FLAGS = 0,   REEL =  1,   FILE =     87               \r\n            157,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     88               \r\n            158,   REENTER AT DMAP SEQUENCE NUMBER    59                             \r\n            159,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     89               \r\n            160,   KAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            161,   REENTER AT DMAP SEQUENCE NUMBER    60                             \r\n            162,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     90               \r\n            163,   MAA     ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            164,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            165,   GO      ,   FLAGS = 0,   REEL =  1,   FILE =     91               \r\n            166,   KAA     ,   FLAGS = 0,   REEL =  1,   FILE =     92               \r\n            167,   KOO     ,   FLAGS = 0,   REEL =  1,   FILE =     93               \r\n            168,   LOO     ,   FLAGS = 0,   REEL =  1,   FILE =     94               \r\n            169,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     95               \r\n            170,   REENTER AT DMAP SEQUENCE NUMBER    63                             \r\n            171,   MAA     ,   FLAGS = 0,   REEL =  1,   FILE =     96               \r\n            172,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     97               \r\n            173,   REENTER AT DMAP SEQUENCE NUMBER    72                             \r\n            174,   CASE1   ,   FLAGS = 0,   REEL =  1,   FILE =     98               \r\n            175,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =     99               \r\n            176,   REENTER AT DMAP SEQUENCE NUMBER    74                             \r\n            177,   LAMA    ,   FLAGS = 0,   REEL =  1,   FILE =    100               \r\n            178,   PHIA    ,   FLAGS = 0,   REEL =  1,   FILE =    101               \r\n            179,   MI      ,   FLAGS = 0,   REEL =  1,   FILE =    102               \r\n            180,   OEIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    103               \r\n            181,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    104               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            182,   REENTER AT DMAP SEQUENCE NUMBER    80                             \r\n            183,   PHIG    ,   FLAGS = 0,   REEL =  1,   FILE =    105               \r\n            184,   QG      ,   FLAGS = 0,   REEL =  1,   FILE =    106               \r\n            185,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    107               \r\n            186,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            187,   PHIGS   ,   FLAGS = 0,   REEL =  1,   FILE =    108               \r\n            188,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    109               \r\n            189,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            190,   QGS     ,   FLAGS = 0,   REEL =  1,   FILE =    110               \r\n            191,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    111               \r\n            192,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            193,   OPHIGS  ,   FLAGS = 0,   REEL =  1,   FILE =    112               \r\n            194,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    113               \r\n            195,   OQGS    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            196,   OEFS    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            197,   PPHIGS  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            198,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            199,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    114               \r\n            200,   DKAA    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            201,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            202,   DKXX    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            203,   DKNN    ,   FLAGS = 4,   REEL =  1,   FILE =     64               \r\n            204,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    115               \r\n            205,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            206,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    116               \r\n            207,   DKFF    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            208,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            209,   DKFF    ,   FLAGS = 0,   REEL =  1,   FILE =    117               \r\n            210,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    118               \r\n            211,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            212,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    119               \r\n            213,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            214,   DKAA    ,   FLAGS = 0,   REEL =  1,   FILE =    120               \r\n            215,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    121               \r\n            216,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            217,   KMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    122               \r\n            218,   MMAT    ,   FLAGS = 0,   REEL =  1,   FILE =    123               \r\n            219,   GIH     ,   FLAGS = 0,   REEL =  1,   FILE =    124               \r\n            220,   PV4     ,   FLAGS = 0,   REEL =  1,   FILE =    125               \r\n            221,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    126               \r\n            222,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            223,   CASE2   ,   FLAGS = 0,   REEL =  1,   FILE =    127               \r\n            224,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    128               \r\n            225,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            226,   LAMAT   ,   FLAGS = 0,   REEL =  1,   FILE =    129               \r\n            227,   PHIH    ,   FLAGS = 0,   REEL =  1,   FILE =    130               \r\n            228,   MH      ,   FLAGS = 0,   REEL =  1,   FILE =    131               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            229,   OEIGH   ,   FLAGS = 0,   REEL =  1,   FILE =    132               \r\n            230,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    133               \r\n            231,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            232,   PHII    ,   FLAGS = 0,   REEL =  1,   FILE =    134               \r\n            233,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    135               \r\n            234,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            235,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    136               \r\n            236,   PHIZ    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            237,   REENTER AT DMAP SEQUENCE NUMBER    82                             \r\n            238,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    137               \r\n            239,   PHIY    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            240,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            241,   PHIZ    ,   FLAGS = 0,   REEL =  1,   FILE =    138               \r\n            242,   PHIFR   ,   FLAGS = 0,   REEL =  1,   FILE =    139               \r\n            243,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    140               \r\n            244,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            245,   PHIY    ,   FLAGS = 0,   REEL =  1,   FILE =    141               \r\n            246,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    142               \r\n            247,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            248,   PHIX    ,   FLAGS = 0,   REEL =  1,   FILE =    143               \r\n            249,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    144               \r\n            250,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            251,   QX      ,   FLAGS = 0,   REEL =  1,   FILE =    145               \r\n            252,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    146               \r\n            253,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            254,   PHIGT   ,   FLAGS = 0,   REEL =  1,   FILE =    147               \r\n            255,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    148               \r\n            256,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            257,   QGT     ,   FLAGS = 0,   REEL =  1,   FILE =    149               \r\n            258,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    150               \r\n            259,   REENTER AT DMAP SEQUENCE NUMBER    83                             \r\n            260,   OQG1    ,   FLAGS = 0,   REEL =  1,   FILE =    151               \r\n            261,   OPHIG   ,   FLAGS = 0,   REEL =  1,   FILE =    152               \r\n            262,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    153               \r\n            263,   OES1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            264,   OEF1    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            265,   PPHIG   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            266,   OES1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            267,   OEF1L   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            268,   REENTER AT DMAP SEQUENCE NUMBER    85                             \r\n            269,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    154               \r\n            270,   OESF1   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            271,   OESF1L  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            272,   REENTER AT DMAP SEQUENCE NUMBER    87                             \r\n            273,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    155               \r\n            274,   ONRGY1  ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            275,   REENTER AT DMAP SEQUENCE NUMBER    89                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n            276,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    156               \r\n            277,   KDICT   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            278,   KELM    ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n            279,   REENTER AT DMAP SEQUENCE NUMBER   104                             \r\n            280,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =    157               \r\n            281,   DUMMY   ,   FLAGS = 0,   REEL =  0,   FILE =      0               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME  10                                                                        \r\n     SOL   3,0                                                                       \r\n     APP   DISP                                                                      \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\n0*** $   ... READFILE FROM-  COSHYD2                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2)         \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3. REPLACING BEGIN                          \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                              \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEW1,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     MODAL1,NOGRAV $                                                        \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n     COND     MODAL1,NOFREE $                                                        \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    MODAL1 $                                                               \r\n     LABEL    NEW1 $                                                                 \r\n     DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/           \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     COND     ERROR2,NOEED $                                                         \r\n     COMPOFF  NEW2,NEWMODE $                                                         \r\n     PARAM    //*MPY*/CARDNO/0/0 $                                                   \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETS,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    68,69 $  REPLACING DPD, COND                                         \r\n     DELETE DPD,DPD,1 $                                                              \r\n     CASE     CASECC,/CASE1/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETS,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n     $ ALTER    75,77 $  REPLACING SDR1, COND, EQMCK                                 \r\n     DELETE SDR1,EQMCK $                                                             \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                         \r\n     COND     NOMPCF,GRDEQ $                                                         \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     $ ALTER    80,80 $  REPLACING SDR2                                              \r\n     DELETE SDR2 $                                                                   \r\n     MERGE    PHIG,,,,,PV1/PHIGS/0 $                                                 \r\n     MERGE    QG,,,,,PV1/QGS/0 $                                                     \r\n     SDR2     CASE1,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QGS,PHIGS,EST,,,/,          \r\n              OQGS,OPHIGS,,OEFS,PPHIGS,,/*REIG* $                                    \r\n     OFP      OPHIGS,OQGS,OEFS,,,//S,N,CARDNO $                                      \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     MODAL4,NOGRAV $                                                        \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     MODAL2,MPCF2 $                                                         \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    MODAL2 $                                                               \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     COND     MODAL3,SINGLE $                                                        \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    MODAL3 $                                                               \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     MODAL4,OMIT $                                                          \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    MODAL4 $                                                               \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,          \r\n              GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/                   \r\n              S,Y,LMODES $                                                           \r\n     JUMP     OLD2 $                                                                 \r\n     LABEL    NEW2 $                                                                 \r\n     PARAM    //*MPY*/REPT/1/1 $                                                     \r\n     LABEL    OLD2 $                                                                 \r\n     CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                             \r\n     PARAM    //*MPY*/NEIGV/1/-1 $                                                   \r\n     READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/               \r\n              S,N,NEIGV $                                                            \r\n     OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                          \r\n     COND     FINIS,NEIGV $                                                          \r\n     MPYAD    GIH,PHIH,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHIH,PHIZ/NOFREE $                                                     \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n     COND     MODAL5,NOFREE $                                                        \r\n     PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                             \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    MODAL5 $                                                               \r\n     COND     ALLMODES,LMODES                                                        \r\n     TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                           \r\n     TRAILER  QG//*STORE*/1/V,Y,LMODES $                                             \r\n     LABEL    ALLMODES $                                                             \r\n     MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                                \r\n     MPYAD    QG,PHIZ,/QX/0/1/0 $                                                    \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                             \r\n     MERGE    QX,,,,,PV1/QGT/0 $                                                     \r\n     SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,           \r\n              PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $                \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL          \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1C                                   \r\n                  3      $ REFERENCE PROBLEM IV.3                                                        \r\n                  4      SPC  = 10                                                                       \r\n                  5      DISP = ALL                                                                      \r\n                  6      SUBCASE 2                                                                       \r\n                  7          LABEL  = MODES WITH FLUID INCLUDED                                          \r\n                  8          METHOD = 60                                                                 \r\n                  9          SPCF   = ALL                                                                \r\n                 10      BEGIN BULK                                                                      \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              $                                                                                             \r\n                              $ NEW FLUID MODEL                                                                             \r\n                              $                                                                                             \r\n                              /       1       4                                                                             \r\n                              CFWEDGE 1       200     1       2       3       5       6       7                             \r\n                              CFWEDGE 2       200     2       4       3       6       8       7                             \r\n                              CFFREE  1       100     5               2       100     5                                     \r\n                              CFLSTR  1       100     101     104                                                           \r\n                              CFLSTR  2       100     102     103     104                                                   \r\n                              $                                                                                             \r\n                              $ *** NOTE *** AT LEAST ONE GRID MUST BE ALTERED IN TO FORCE                                  \r\n                              $              REEXECUTION OF PROPER MODULES                                                  \r\n                              $                                                                                             \r\n                              /       14                                                                                    \r\n                              GRID    1               .0      .0      .0                                                    \r\n                              $                                                                                             \r\n                              $ PARAMETER TO SKIP RECOMPUTATION OF UNCHANGED STRUCTURE                                      \r\n                              $                                                                                             \r\n                              PARAM   OLDSTR  -1                                                                            \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     19\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     5               2       100     5                       \r\n                    2-        CFLSTR  1       100     101     104                                             \r\n                    3-        CFLSTR  2       100     102     103     104                                     \r\n                    4-        CFWEDGE 1       200     1       2       3       5       6       7               \r\n                    5-        CFWEDGE 2       200     2       4       3       6       8       7               \r\n                    6-        CQUAD2  101     100     101     102     106     105                             \r\n                    7-        CQUAD2  102     100     102     104     108     106                             \r\n                    8-        CQUAD2  103     100     104     103     107     108                             \r\n                    9-        CQUAD2  104     100     101     103     104     102                             \r\n                   10-        EIGR    50      GIV     0.0     2600.0  10      10      0               +EMOD1  \r\n                   11-        +EMOD1  MAX                                                                     \r\n                   12-        EIGR    60      GIV     0.0     10.0    6       6       0               +E1     \r\n                   13-        +E1     MAX                                                                     \r\n                   14-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   15-        GRID    1               .0      .0      .0                                      \r\n                   16-        GRID    2               6.0     0.0     0.0                                     \r\n                   17-        GRID    3               0.0     12.0    0.0                                     \r\n                   18-        GRID    4               6.0     12.0    0.0                                     \r\n                   19-        GRID    5               0.0     0.0     12.0                                    \r\n                   20-        GRID    6               6.0     0.0     12.0                                    \r\n                   21-        GRID    7               0.0     12.0    12.0                                    \r\n                   22-        GRID    8               6.0     12.0    12.0                                    \r\n                   23-        GRID    101             0.0     0.0     0.0                                     \r\n                   24-        GRID    102             6.0     0.0     0.0                                     \r\n                   25-        GRID    103             0.0     12.0    0.0                                     \r\n                   26-        GRID    104             6.0     12.0    0.0                                     \r\n                   27-        GRID    105             0.0     0.0     12.0                                    \r\n                   28-        GRID    106             6.0     0.0     12.0                                    \r\n                   29-        GRID    107             0.0     12.0    12.0                                    \r\n                   30-        GRID    108             6.0     12.0    12.0                                    \r\n                   31-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   32-        MATF    200     9.355-4                                                         \r\n                   33-        OMIT1   4       101     103     105     107                                     \r\n                   34-        OMIT1   456     102     104     106     108                                     \r\n                   35-        PARAM   OLDSTR  -1                                                              \r\n                   36-        PQUAD2  100     100     .06                                                     \r\n                   37-        SPC1    10      1256    101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   4           METHOD$                62\r\n                  17           POUT$                  19\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     1\r\n                   1           GRID                    1\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n+  +\r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - MODAL FORMULATION                      \r\n+  +\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n+  +\r\n\r\n       3  COMPOFF  NEW1,NEWMODE $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n+  *\r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n+  *\r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n+  *\r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n+  *\r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n+  *\r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n+  *\r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n+  *\r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n+  *\r\n\r\n      20  LABEL    P1 $                                                           \r\n+  +\r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n+  *\r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n+  *\r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n+  *\r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n+  *\r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n+  *\r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n+  *\r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n+  *\r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n+  *\r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n+  *\r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n+  +\r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n+  *\r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n+  *\r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n+  *\r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n+  *\r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n+  *\r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      38  LABEL    LGPWG $                                                        \r\n+  +\r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n+  *\r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n+  *\r\n\r\n      42  LABEL    LBL11 $                                                        \r\n+  +\r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n+  *\r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n+  *\r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n+  *\r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n+  *\r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n+  *\r\n\r\n      48  FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, \r\n+  *\r\n                   DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                          \r\n+  *\r\n\r\n      48  VEC      USETF/PV1/*G*/*X*/*Y* $                                        \r\n+  *\r\n\r\n      48  PARTN    KGG,PV1,/KXX,,,KYY $                                           \r\n+  *\r\n\r\n      48  PARTN    MGG,PV1,/MXX,,, $                                              \r\n+  *\r\n\r\n      48  PARTN    RG,PV1,/RX,,,/1 $                                              \r\n+  *\r\n\r\n      48  EQUIV    RX,RG $                                                        \r\n+  *\r\n\r\n      48  PARTN    AF,PV1,/,,AXY,AYY $                                            \r\n+  *\r\n\r\n      48  COND     MODAL1,NOGRAV $                                                \r\n+  *\r\n\r\n      48  PARTN    DKGG,PV1,/DKXX,,,DKYY $                                        \r\n+  *\r\n\r\n      48  COND     MODAL1,NOFREE $                                                \r\n+  *\r\n\r\n      48  VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                    \r\n+  *\r\n\r\n      48  PARTN    AYY,,PV2/AFRY,,,/0 $                                           \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      48  PARTN    DKYY,PV2,/DKFRFR,,, $                                          \r\n+  *\r\n\r\n      48  LABEL    MODAL1 $                                                       \r\n+  +\r\n\r\n      48  LABEL    NEW1 $                                                         \r\n+  +\r\n\r\n      48  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/   \r\n+  *\r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n+  *\r\n\r\n      48  COND     ERROR2,NOEED $                                                 \r\n+  *\r\n\r\n      48  COMPOFF  NEW2,NEWMODE $                                                 \r\n\r\n      48  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n      48  COMPOFF  NOSTRUC,OLDSTR $                                               \r\n\r\n      82  PURGE    DKAA/NOGRAV $                                                  \r\n+  *\r\n\r\n      82  COND     MODAL4,NOGRAV $                                                \r\n+  *\r\n\r\n      82  EQUIV    DKXX,DKNN/MPCF1 $                                              \r\n+  *\r\n\r\n      82  COND     MODAL2,MPCF2 $                                                 \r\n+  *\r\n\r\n      82  MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                     \r\n+  *\r\n\r\n      82  LABEL    MODAL2 $                                                       \r\n+  +\r\n\r\n      82  EQUIV    DKNN,DKFF/SINGLE $                                             \r\n+  *\r\n\r\n      82  COND     MODAL3,SINGLE $                                                \r\n+  *\r\n\r\n      82  SCE1     USETS,DKNN,,,/DKFF,,,,, $                                      \r\n+  *\r\n\r\n      82  LABEL    MODAL3 $                                                       \r\n+  +\r\n\r\n      82  EQUIV    DKFF,DKAA/OMIT $                                               \r\n+  *\r\n\r\n      82  COND     MODAL4,OMIT $                                                  \r\n+  *\r\n\r\n      82  SMP2     USETS,GO,DKFF/DKAA $                                           \r\n+  *\r\n\r\n      82  LABEL    MODAL4 $                                                       \r\n+  +\r\n\r\n      82  GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,,,,,,USETF,PHIA,PHIG,LAMA/KMAT,MMAT,  \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   GIH,PV4,/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=1/           \r\n                   S,Y,LMODES $                                                   \r\n+  *\r\n\r\n      82  JUMP     OLD2 $                                                         \r\n+  *\r\n\r\n      82  LABEL    NEW2 $                                                         \r\n+  +\r\n\r\n      82  PARAM    //*MPY*/REPT/1/1 $                                             \r\n+  *\r\n\r\n      82  LABEL    OLD2 $                                                         \r\n+  +\r\n\r\n      82  CASE     CASECC,/CASE2/*REIGEN*/S,N,REPT/S,N,LOLP $                     \r\n+  *\r\n+  *\r\n\r\n      82  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n+  *\r\n\r\n      82  READ     KMAT,MMAT,,,EED,USETF,CASE2/LAMAT,PHIH,MH,OEIGH/*MODES*/       \r\n+  *\r\n                   S,N,NEIGV $                                                    \r\n+  *\r\n\r\n      82  OFP      LAMAT,OEIGH,,,,//S,N,CARDNO $                                  \r\n+  *\r\n+  *\r\n\r\n      82  COND     FINIS,NEIGV $                                                  \r\n+  *\r\n\r\n      82  MPYAD    GIH,PHIH,/PHII/0/1/0 $                                         \r\n+  *\r\n\r\n      82  EQUIV    PHIH,PHIZ/NOFREE $                                             \r\n+  *\r\n\r\n      82  EQUIV    PHII,PHIY/NOFREE $                                             \r\n+  *\r\n\r\n      82  COND     MODAL5,NOFREE $                                                \r\n+  *\r\n\r\n      82  PARTN    PHIH,,PV4/PHIZ,PHIFR,,/0 $                                     \r\n+  *\r\n\r\n      82  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n+  *\r\n\r\n      82  LABEL    MODAL5 $                                                       \r\n+  +\r\n\r\n      82  COND     ALLMODES,LMODES                                                \r\n+  *\r\n\r\n      82  TRAILER  PHIG//*STORE*/1/V,Y,LMODES $                                   \r\n+  *\r\n\r\n      82  TRAILER  QG//*STORE*/1/V,Y,LMODES $                                     \r\n+  *\r\n\r\n      82  LABEL    ALLMODES $                                                     \r\n+  +\r\n\r\n      82  MPYAD    PHIG,PHIZ,/PHIX/0/1/0 $                                        \r\n+  *\r\n\r\n      82  MPYAD    QG,PHIZ,/QX/0/1/0 $                                            \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  MERGE    PHIX,PHIY,,,,PV1/PHIGT/0 $                                     \r\n+  *\r\n\r\n      82  MERGE    QX,,,,,PV1/QGT/0 $                                             \r\n+  *\r\n\r\n      82  SDR2     CASE2,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMAT,QGT,PHIGT,EST,,,   \r\n+  *\r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG* $        \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n+  *\r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n+  *\r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n+  *\r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n+  *\r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n+  +\r\n\r\n      93  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n+  *\r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n+  *\r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n+  *\r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n+  *\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     102  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     104  END      $                                                              \r\n+  *\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     GM        (PURGED)\r\n     GO               1        91\r\n     LAMA             1       100\r\n     PHIA             1       101\r\n     PHIG             1       105\r\n     QG               1       106\r\n     XVPS             1       157\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE             67\r\n                                        MAX WAVEFRONT        7\r\n                                        AVG WAVEFRONT    4.188\r\n                                        RMS WAVEFRONT    4.603\r\n                                        RMS BANDWIDTH    4.657\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE             60\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    3.750\r\n                                        RMS WAVEFRONT    4.062\r\n                                        RMS BANDWIDTH    4.062\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        7         6\r\n                                        PROFILE (P)                         67        60\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            7         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.188     3.750\r\n                                        RMS WAVEFRONT (C-RMS)            4.603     4.062\r\n                                        RMS BANDWITCH (B-RMS)            4.657     4.062\r\n                                        NUMBER OF GRID POINTS (N)                     16\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 6\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        43\r\n                                        MATRIX DENSITY, PERCENT                   39.844\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       9       2      11       3      12       4      15\r\n                         SEQGP          5      10       6      13       7      14       8      16\r\n                         SEQGP        101       2     102       4     103       5     104       6\r\n                         SEQGP        105       1     106       3     107       8     108       7\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE     4802 NOT FOUND ON DATA BLOCK.  BIT POSITION =  48\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FWEDGE   ELEMENTS (ELEMENT TYPE  79) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID      101\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      14, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        14       -1.048119E+01        3.237466E+00        5.152587E-01        4.718914E-01       -4.945983E+00             \r\n        2        13        1.760331E+02        1.326775E+01        2.111627E+00        6.447796E-02        1.135025E+01             \r\n        3        12        8.346302E+02        2.888997E+01        4.597981E+00        5.981883E-03        4.992661E+00             \r\n        4        11        1.161350E+03        3.407858E+01        5.423775E+00        3.519696E-03        4.087598E+00             \r\n        5        10        4.907604E+03        7.005430E+01        1.114949E+01        8.890600E-04        4.363155E+00             \r\n        6         9        4.901025E+05        7.000732E+02        1.114201E+02        4.040724E-03        1.980369E+03             \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        14\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE = -0.104812E+02    (CYCLIC FREQUENCY =  5.152587E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -4.196715E-03  -4.198343E-03  -4.198359E-03  -4.196735E-03   7.456232E-01   7.456703E-01                  \r\n             7      S      7.456706E-01   7.456244E-01                                                                              \r\n           101      G      0.0            0.0            9.999965E-01   3.454241E-07   0.0            0.0                           \r\n           102      G     -1.108577E-07   6.240699E-07   9.999974E-01   3.312281E-07  -1.710972E-07   1.384055E-07                  \r\n           103      G      0.0            0.0            1.000001E+00   4.732937E-07   0.0            0.0                           \r\n           104      G     -1.155286E-07  -6.249048E-07   1.000002E+00   4.871760E-07  -3.332208E-07  -1.933627E-07                  \r\n           105      G      0.0            0.0            9.999975E-01  -3.129556E-07   0.0            0.0                           \r\n           106      G     -4.735254E-06  -2.830915E-06   9.999987E-01   4.771008E-07  -4.507540E-07  -1.381054E-07                  \r\n           107      G      0.0            0.0            1.000002E+00  -4.590388E-07   0.0            0.0                           \r\n           108      G     -4.729358E-06  -6.679182E-06   1.000003E+00   9.048853E-07  -4.925324E-07  -7.872109E-07                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.176033E+03    (CYCLIC FREQUENCY =  2.111627E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.089574E-03  -1.318649E-03   1.240649E-03   1.066003E-03  -7.836779E-01  -8.605792E-01                  \r\n             7      S      7.522578E-01   1.000000E+00                                                                              \r\n           101      G      0.0            0.0            1.423968E-01  -2.441491E-02   0.0            0.0                           \r\n           102      G     -3.339240E-06   1.543767E-06   1.423956E-01  -2.455681E-02  -4.987180E-03   1.672310E-03                  \r\n           103      G      0.0            0.0           -1.423414E-01  -2.441516E-02   0.0            0.0                           \r\n           104      G      3.639895E-06   1.879903E-06  -1.423365E-01  -2.455686E-02   4.986548E-03   1.672376E-03                  \r\n           105      G      0.0            0.0            1.424065E-01   2.305757E-02   0.0            0.0                           \r\n           106      G     -8.006701E-06   2.847074E-01   1.424008E-01  -4.133607E-02  -1.233004E-03   2.770622E-02                  \r\n           107      G      0.0            0.0           -1.423493E-01   2.305772E-02   0.0            0.0                           \r\n           108      G      9.758537E-06   2.847087E-01  -1.423418E-01  -4.133624E-02   1.233590E-03   2.770649E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.834630E+03    (CYCLIC FREQUENCY =  4.597981E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -7.477579E-05  -1.473691E-04   1.210029E-04   6.686650E-05   1.000000E+00  -7.266733E-01                  \r\n             7      S      5.531097E-01  -6.531781E-01                                                                              \r\n           101      G      0.0            0.0            2.538065E-02  -4.341134E-03   0.0            0.0                           \r\n           102      G     -7.986006E-07   2.085518E-06   2.538081E-02  -4.365923E-03  -8.869038E-04   2.977029E-04                  \r\n           103      G      0.0            0.0           -2.525069E-02  -4.340946E-03   0.0            0.0                           \r\n           104      G      2.488028E-07  -1.347207E-06  -2.524247E-02  -4.365504E-03   8.849464E-04   2.967743E-04                  \r\n           105      G      0.0            0.0            2.538400E-02   4.099587E-03   0.0            0.0                           \r\n           106      G     -1.264322E-05   5.061806E-02   2.538467E-02  -7.348768E-03  -2.204187E-04   4.926383E-03                  \r\n           107      G      0.0            0.0           -2.524626E-02   4.099271E-03   0.0            0.0                           \r\n           108      G     -1.372388E-05   5.060777E-02  -2.523883E-02  -7.347644E-03   2.181200E-04   4.924680E-03                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.116135E+04    (CYCLIC FREQUENCY =  5.423775E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -4.310606E-05  -4.841381E-05  -4.685823E-05   1.464273E-05   1.000000E+00   2.169613E-02                  \r\n             7      S     -8.942738E-01   7.431428E-01                                                                              \r\n           101      G      0.0            0.0            5.083402E-02  -8.656656E-03   0.0            0.0                           \r\n           102      G     -7.603259E-07  -5.829648E-07   5.083411E-02  -8.707376E-03  -1.768307E-03   5.927869E-04                  \r\n           103      G      0.0            0.0           -5.012139E-02  -8.656824E-03   0.0            0.0                           \r\n           104      G      1.355888E-06   1.331808E-06  -5.012491E-02  -8.707613E-03   1.769167E-03   5.932975E-04                  \r\n           105      G      0.0            0.0            5.083615E-02   8.175526E-03   0.0            0.0                           \r\n           106      G      3.220259E-06   1.009514E-01   5.083398E-02  -1.465713E-02  -4.365693E-04   9.823846E-03                  \r\n           107      G      0.0            0.0           -5.012777E-02   8.175734E-03   0.0            0.0                           \r\n           108      G      1.128423E-05   1.009572E-01  -5.012925E-02  -1.465777E-02   4.379282E-04   9.824821E-03                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.490760E+04    (CYCLIC FREQUENCY =  1.114949E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      1.141230E-04   9.604431E-05  -1.143472E-04  -1.193208E-04   4.122835E-01  -7.719182E-01                  \r\n             7      S      6.500132E-02   1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -8.004945E-02   1.377594E-02   0.0            0.0                           \r\n           102      G      7.070669E-08   3.116940E-06  -8.001891E-02   1.385136E-02   2.807270E-03  -9.421095E-04                  \r\n           103      G      0.0            0.0            8.065779E-02   1.377629E-02   0.0            0.0                           \r\n           104      G     -1.317532E-06   3.626825E-06   8.061855E-02   1.385132E-02  -2.805583E-03  -9.419278E-04                  \r\n           105      G      0.0            0.0           -8.003400E-02  -1.300731E-02   0.0            0.0                           \r\n           106      G     -1.550831E-05  -1.605611E-01  -8.001295E-02   2.331038E-02   6.957188E-04  -1.562651E-02                  \r\n           107      G      0.0            0.0            8.063955E-02  -1.300747E-02   0.0            0.0                           \r\n           108      G      2.073133E-05  -1.605601E-01   8.061225E-02   2.331030E-02  -6.958817E-04  -1.562641E-02                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.490102E+06    (CYCLIC FREQUENCY =  1.114201E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.970592E-04   1.761128E-05   1.600590E-05  -2.000627E-04   9.931903E-01  -2.098567E-02                  \r\n             7      S     -1.255511E-02   1.000000E+00                                                                              \r\n           101      G      0.0            0.0           -3.910480E-01  -2.565263E-04   0.0            0.0                           \r\n           102      G     -8.629104E-04  -3.391468E-03  -3.938311E-01  -2.874254E-04   6.227941E-04  -4.616518E-04                  \r\n           103      G      0.0            0.0           -3.951081E-01  -2.765423E-05   0.0            0.0                           \r\n           104      G     -4.805087E-04  -3.264297E-03  -3.971325E-01  -2.873926E-04   2.672404E-04  -4.038229E-04                  \r\n           105      G      0.0            0.0           -3.914720E-01   1.260058E-05   0.0            0.0                           \r\n           106      G      6.927263E-04  -7.342090E-04  -3.934591E-01  -2.837668E-04  -3.237614E-04  -4.231622E-05                  \r\n           107      G      0.0            0.0           -3.947376E-01  -1.006347E-04   0.0            0.0                           \r\n           108      G     -6.035462E-04  -7.878556E-04  -3.963023E-01  -2.460293E-04  -2.948799E-05  -9.895664E-05                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE = -0.104812E+02    (CYCLIC FREQUENCY =  5.152587E-01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -2.920079E-02  -1.405203E-01   0.0            0.0            1.048140E-04  -2.934376E-05                  \r\n           103      G     -1.925119E-02   1.412902E-01   0.0            0.0            9.417887E-05   1.107932E-04                  \r\n           105      G      3.320762E+00   1.309230E-04   0.0            0.0            0.0            3.595348E-04                  \r\n           107      G      3.313829E+00   2.334454E-04   0.0            0.0            0.0            8.086335E-04                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.176033E+03    (CYCLIC FREQUENCY =  2.111627E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      4.081363E+00  -6.607457E-01   0.0            0.0           -2.066534E-01  -2.454852E+00                  \r\n           103      G     -4.960736E+00  -7.114383E-01   0.0            0.0            2.071333E-01  -2.454848E+00                  \r\n           105      G      4.391825E+00  -1.090730E+01   0.0            0.0            0.0           -3.498320E+01                  \r\n           107      G     -5.368518E+00  -1.090733E+01   0.0            0.0            0.0           -3.498332E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.834630E+03    (CYCLIC FREQUENCY =  4.597981E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      8.218288E-01  -5.170307E-01   0.0            0.0           -3.668073E-02  -4.365101E-01                  \r\n           103      G     -1.502780E+00   2.651130E-01   0.0            0.0            3.763374E-02  -4.360923E-01                  \r\n           105      G      8.508908E+00  -1.939131E+00   0.0            0.0            0.0           -6.219508E+00                  \r\n           107      G      1.012667E+01  -1.938853E+00   0.0            0.0            0.0           -6.218279E+00                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.116135E+04    (CYCLIC FREQUENCY =  5.423775E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      9.389564E-01   3.850547E-02   0.0            0.0           -7.323253E-02  -8.703894E-01                  \r\n           103      G     -1.082094E+00  -3.674831E-01   0.0            0.0            7.285780E-02  -8.706104E-01                  \r\n           105      G     -2.482857E+00  -3.867534E+00   0.0            0.0            0.0           -1.240441E+01                  \r\n           107      G     -7.630983E+00  -3.867690E+00   0.0            0.0            0.0           -1.240509E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.490760E+04    (CYCLIC FREQUENCY =  1.114949E+01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -4.815020E+00  -7.028251E-01   0.0            0.0            1.197666E-01   1.382730E+00                  \r\n           103      G      7.583232E+00  -9.583079E-01   0.0            0.0           -1.208600E-01   1.382595E+00                  \r\n           105      G      1.287161E+01   6.150995E+00   0.0            0.0            0.0            1.972747E+01                  \r\n           107      G     -1.727174E+01   6.150958E+00   0.0            0.0            0.0            1.972728E+01                  \r\n1     HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T03-12-1C                                                                                            \r\n0     MODES WITH FLUID INCLUDED                                                                              SUBCASE 2              \r\n      EIGENVALUE =  0.490102E+06    (CYCLIC FREQUENCY =  1.114201E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.900968E+03   8.768158E+02   0.0            0.0           -3.778862E-01   5.449124E-01                  \r\n           103      G      4.145168E+02   7.048458E+02   0.0            0.0           -2.416977E-01   4.823396E-01                  \r\n           105      G     -7.731306E+02   3.700481E-02   0.0            0.0            0.0            2.116406E-01                  \r\n           107      G      1.393967E+02   3.219602E-02   0.0            0.0            0.0            1.761147E-01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL        \r\n DATE:  5/18/95\r\n END TIME: 10:11: 6\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t03131a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T03131A,NASTRAN                                                           \r\n     $                                                                               \r\n     $     THIS DEMO IS SAME AS T17011A WHERE SOLUTION 17 IS USED AND NO             \r\n     $     DMAP ALTERS                                                               \r\n     $                                                                               \r\n     DIAG  25                                                                        \r\n     $                                                                               \r\n     $     INSERT ALTERS FOR DYNAMIC DESIGN ANALYSIS METHOD (COSDDAM) HERE           \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  COSDDAM                                                 \r\n     $ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM)                                     \r\n     $ ALTER    71 $                                                                 \r\n     INSERT READ $                                                                   \r\n     DIAGONAL MI/MIS/*SQUARE*/-0.5 $                                                 \r\n     SMPYAD   MIS,MI,MIS,,,/MINEW/3 $                                                \r\n     $ ALTER    81,86 $                                                              \r\n     DELETE SDR2,1,SDR2,4 $                                                          \r\n     $ ALTER    90 $                                                                 \r\n     INSERT PLOT(2),2 $                                                              \r\n     GENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $        \r\n     DIAGONAL MI/MID/*SQUARE*/-1.0  $                                                \r\n     MPYAD    MGG,PHIG,/MP/0 $                                                       \r\n     MPYAD    MP,DIRCOS,/PMD/1 $                                                     \r\n     MPYAD    MID,PMD,/PF/0 $                                                        \r\n     DDAMAT   PF,PMD/EFFW/C,Y,GG=386.4 $                                             \r\n     LAMX,    ,LAMA/LAMB/-1 $                                                        \r\n     GENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $                     \r\n     PARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $                                        \r\n     PARAM    //*GE*/TEST/C,Y,LMODES/NMODES $                                        \r\n     COND     DDAM,TEST $                                                            \r\n     PARTN    PF,,RPPF/,PFR,,/1 $                                                    \r\n     EQUIV    PFR,PF $                                                               \r\n     PARTN    EFFW,,RPPF/,EFFWR,,/1 $                                                \r\n     EQUIV    EFFWR,EFFW $                                                           \r\n     PARTN    MP,CPMP,/,,MPR,/1 $                                                    \r\n     EQUIV    MPR,MP $                                                               \r\n     PARTN    PHIG,CPMP,/,,PHIGR,/1 $                                                \r\n     EQUIV    PHIGR,PHIG $                                                           \r\n     LABEL    DDAM $                                                                 \r\n     DESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/            \r\n              C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/                 \r\n              C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $                \r\n     DDAMAT   PF,MINAC/PVW/1.0 $                                                     \r\n     DDAMAT   PF,MINOW2/PVOW/1.0 $                                                   \r\n     DDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $                                    \r\n     DDAMPG   MP,PVW/PG/NMODES/NDIR $                                                \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     CASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $                                 \r\n     EQUIV    CASEDD,CASECC $                                                        \r\n     SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/,                \r\n              OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $                  \r\n     SDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $                        \r\n     NRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/                    \r\n              C,Y,SQRSS=0 $                                                          \r\n     OFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $                                        \r\n     COMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $                   \r\n     CASEGEN  CASECC/CASEEE/1/NDIR/NMODES $                                          \r\n     SDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/,             \r\n              ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $                                 \r\n     OFP      OUGV5,,,,,//S,N,CARDNO $                                               \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $                                                                               \r\n     SOL   3                                                                         \r\n     APP   DISP                                                                      \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                           \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T03-13-1A                                   \r\n                  3      LABEL    = HY-100 PLATFORM MODEL                                                \r\n                  4      OLOAD    = ALL                                                                  \r\n                  5      DISP     = ALL                                                                  \r\n                  6      METHOD   = 1                                                                    \r\n                  7      SPC      = 1                                                                    \r\n                  8      FORCE(SORT2)  = ALL                                                             \r\n                  9      STRESS(SORT2) = ALL                                                             \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   107, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR           1                       0.      1.      1.      1               \r\n                    2-        CBAR    1               1       2                                               \r\n                    3-        CBAR    2               2       3                                               \r\n                    4-        CBAR    3               3       4                                               \r\n                    5-        CBAR    4               4       5                                               \r\n                    6-        CBAR    5       4       2       6       1.      0.      1.                      \r\n                    7-        CBAR    6       5       3       8       1.      0.      1.                      \r\n                    8-        CBAR    7       5       4       10      1.      0.      1.                      \r\n                    9-        CBAR    8       2       6       7                                               \r\n                   10-        CBAR    9       2       7       8                                               \r\n                   11-        CBAR    10      2       8       9                                               \r\n                   12-        CBAR    11      2       9       10                                              \r\n                   13-        CBAR    12      4       6       11      1.      0.      1.                      \r\n                   14-        CBAR    13      5       8       13      1.      0.      1.                      \r\n                   15-        CBAR    14      5       10      15      1.      0.      1.                      \r\n                   16-        CBAR    15      2       11      12                                              \r\n                   17-        CBAR    16      2       12      13                                              \r\n                   18-        CBAR    17      2       13      14                                              \r\n                   19-        CBAR    18      2       14      15                                              \r\n                   20-        CBAR    19      4       11      17      1.      0.      1.                      \r\n                   21-        CBAR    20      5       13      20      1.      0.      1.                      \r\n                   22-        CBAR    21      5       15      23      1.      0.      1.                      \r\n                   23-        CBAR    22      3       16      17                                              \r\n                   24-        CBAR    23      3       17      18                                              \r\n                   25-        CBAR    24      3       18      19                                              \r\n                   26-        CBAR    25      3       19      20                                              \r\n                   27-        CBAR    26      3       20      21                                              \r\n                   28-        CBAR    27      3       21      22                                              \r\n                   29-        CBAR    28      3       22      23                                              \r\n                   30-        CBAR    29      3       23      24                                              \r\n                   31-        CBAR    30              19      25      0.      1.      -1.                     \r\n                   32-        CBAR    31              22      26      0.      1.      -1.                     \r\n                   33-        CBAR    32      4       17      27      1.      0.      1.                      \r\n                   34-        CBAR    33      5       23      28      1.      0.      1.                      \r\n                   35-        CONM2   32      2       1       7.76                                            \r\n                   36-        CONM2   33      4       1       7.76                                            \r\n                   37-        CONM2   34      7       1       9.52                                            \r\n                   38-        CONM2   35      9       1       9.52                                            \r\n                   39-        CONM2   36      11      1       29.97                                           \r\n                   40-        CONM2   37      12      1       4.                                              \r\n                   41-        CONM2   38      14      1       4.                                              \r\n                   42-        CONM2   39      15      1       29.97                                           \r\n                   43-        CONM2   40      18      1       5.                                              \r\n                   44-        CONM2   41      21      1       5.                                              \r\n                   45-        CORD2R  1               0.      0.      0.      0.      0.      1.      +COR1   \r\n                   46-        +COR1   1.      0.      1.                                                      \r\n                   47-        EIGR    1       GIV                             30              1.-3    +EGR1   \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +EGR1   MAX                                                                     \r\n                   49-        GRID    1               0.      0.                                              \r\n                   50-        GRID    2               0.      50.                                             \r\n                   51-        GRID    3               0.      150.                                            \r\n                   52-        GRID    4               0.      230.                                            \r\n                   53-        GRID    5               0.      280.                                            \r\n                   54-        GRID    6               48.     50.                                             \r\n                   55-        GRID    7               48.     130.                                            \r\n                   56-        GRID    8               48.     150.                                            \r\n                   57-        GRID    9               48.     180.                                            \r\n                   58-        GRID    10              48.     230.                                            \r\n                   59-        GRID    11              120.    50.                                             \r\n                   60-        GRID    12              120.    90.                                             \r\n                   61-        GRID    13              120.    150.                                            \r\n                   62-        GRID    14              120.    195.                                            \r\n                   63-        GRID    15              120.    230.                                            \r\n                   64-        GRID    16              180.    0.                                              \r\n                   65-        GRID    17              180.    50.                                             \r\n                   66-        GRID    18              180.    100.                                            \r\n                   67-        GRID    19              180.    120.                                            \r\n                   68-        GRID    20              180.    150.                                            \r\n                   69-        GRID    21              180.    190.                                            \r\n                   70-        GRID    22              180.    205.                                            \r\n                   71-        GRID    23              180.    230.                                            \r\n                   72-        GRID    24              180.    280.                                            \r\n                   73-        GRID    25              180.    120.    -96.                                    \r\n                   74-        GRID    26              180.    205.    -96.                                    \r\n                   75-        GRID    27              230.    50.                                             \r\n                   76-        GRID    28              230.    230.                                            \r\n                   77-        MAT1    1       3.+7            .3      0.                                      \r\n                   78-        OMIT1   456     1       THRU    15                                              \r\n                   79-        OMIT1   456     17      THRU    23                                              \r\n                   80-        OMIT1   123456  3       6       8       10      13      17      19      +OMT1   \r\n                   81-        +OMT1   20      22      23                                                      \r\n                   82-        PARAM   ACC1    .4                                                              \r\n                   83-        PARAM   ACC2    1.                                                              \r\n                   84-        PARAM   ACC3    1.                                                              \r\n                   85-        PARAM   ACCA    10.4                                                            \r\n                   86-        PARAM   ACCB    480.                                                            \r\n                   87-        PARAM   ACCC    20.                                                             \r\n                   88-        PARAM   ACCD    0.                                                              \r\n                   89-        PARAM   LMODES  30                                                              \r\n                   90-        PARAM   VEL1    .4                                                              \r\n                   91-        PARAM   VEL2    1.                                                              \r\n                   92-        PARAM   VEL3    1.                                                              \r\n                   93-        PARAM   VELA    20.                                                             \r\n                   94-        PARAM   VELB    480.                                                            \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PARAM   VELC    100.                                                            \r\n                   96-        PBAR    1       1       20.     332.    133.    3.8                     +BAR1   \r\n                   97-        +BAR1   4.8     5.0     4.8     -5.0    -4.8    -5.     -4.8    5.0             \r\n                   98-        PBAR    2       1       12.6    114.    51.2    1.4                     +BAR2   \r\n                   99-        +BAR2   3.6     4.      3.6     -4.     -3.6    -4.     -3.6    4.              \r\n                  100-        PBAR    3       1       20.     332.    133.    3.8                     +BAR3   \r\n                  101-        +BAR3   4.8     5.      4.8     -5.     -4.8    -5.     -4.8    5.              \r\n                  102-        PBAR    4       1       44.     861.    432.    30.                     +BAR4   \r\n                  103-        +BAR4   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\n                  104-        PBAR    5       1       44.     861.    432.    30.                     +BAR5   \r\n                  105-        +BAR5   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\n                  106-        SPC1    1       123     1       5                                               \r\n                  107-        SPC1    1       123456  16      24      25      26      27      28              \r\n                              ENDDATA\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  REF     NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $                  \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      38  LABEL    LGPWG $                                                        \r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  LABEL    LBL11 $                                                        \r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n\r\n      51  MCE1     USET,RG/GM $                                                   \r\n\r\n      52  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      53  LABEL    LBL2 $                                                         \r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n\r\n      56  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      57  LABEL    LBL3  $                                                        \r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n\r\n      61  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      62  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      63  LABEL    LBL5 $                                                         \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n\r\n      65  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      69  LABEL    LBL6 $                                                         \r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/         \r\n                   LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                         \r\n                   NONLFT/NOTRL/S,N,NOEED//NOUE $                                 \r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      73  DIAGONAL MI/MIS/*SQUARE*/-0.5 $                                         \r\n\r\n      73  SMPYAD   MIS,MI,MIS,,,/MINEW/3 $                                        \r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      77  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n\r\n      92  GENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $\r\n\r\n      92  DIAGONAL MI/MID/*SQUARE*/-1.0  $                                        \r\n\r\n      92  MPYAD    MGG,PHIG,/MP/0 $                                               \r\n\r\n      92  MPYAD    MP,DIRCOS,/PMD/1 $                                             \r\n\r\n      92  MPYAD    MID,PMD,/PF/0 $                                                \r\n\r\n      92  DDAMAT   PF,PMD/EFFW/C,Y,GG=386.4 $                                     \r\n\r\n      92  LAMX,    ,LAMA/LAMB/-1 $                                                \r\n\r\n      92  GENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $             \r\n\r\n      92  PARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $                                \r\n\r\n      92  PARAM    //*GE*/TEST/C,Y,LMODES/NMODES $                                \r\n\r\n      92  COND     DDAM,TEST $                                                    \r\n\r\n      92  PARTN    PF,,RPPF/,PFR,,/1 $                                            \r\n\r\n      92  EQUIV    PFR,PF $                                                       \r\n\r\n      92  PARTN    EFFW,,RPPF/,EFFWR,,/1 $                                        \r\n\r\n      92  EQUIV    EFFWR,EFFW $                                                   \r\n\r\n      92  PARTN    MP,CPMP,/,,MPR,/1 $                                            \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      92  EQUIV    MPR,MP $                                                       \r\n\r\n      92  PARTN    PHIG,CPMP,/,,PHIGR,/1 $                                        \r\n\r\n      92  EQUIV    PHIGR,PHIG $                                                   \r\n\r\n      92  LABEL    DDAM $                                                         \r\n\r\n      92  DESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/    \r\n                   C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/         \r\n                   C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $        \r\n\r\n      92  DDAMAT   PF,MINAC/PVW/1.0 $                                             \r\n\r\n      92  DDAMAT   PF,MINOW2/PVOW/1.0 $                                           \r\n\r\n      92  DDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $                            \r\n\r\n      92  DDAMPG   MP,PVW/PG/NMODES/NDIR $                                        \r\n\r\n      92  CASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $                         \r\n\r\n      92  EQUIV    CASEDD,CASECC $                                                \r\n\r\n      92  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/,        \r\n                   OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $          \r\n\r\n      92  SDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $                \r\n\r\n      92  NRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/            \r\n                   C,Y,SQRSS=0 $                                                  \r\n\r\n      92  OFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $                                \r\n\r\n      92  COMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $           \r\n\r\n      92  CASEGEN  CASECC/CASEEE/1/NDIR/NMODES $                                  \r\n\r\n      92  SDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/,     \r\n                   ,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $                         \r\n\r\n      92  OFP      OUGV5,,,,,//S,N,CARDNO $                                       \r\n\r\n      93  JUMP     FINIS $                                                        \r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     102  LABEL    FINIS $                                                        \r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     104  END      $                                                              \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  22,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION OFP        INSTRUCTION NO.  87\r\n     DATA BLOCK NAMED ONRGY1   APPEARS AS INPUT BEFORE BEING DEFINED\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     PARAMETER   TYPE    DMAP STATEMENT NUMBERS                                                                                     \r\n \r\n     ALWAYS      I       0005    0034    0088    0103                                                                            \r\n     CARDNO      I       0004    0037    0037*   0046    0046*   0074    0074*   0076    0076*   0080    0080*   0087    0087*   \r\n                         0092    0092*   0092    0092*                                                                           \r\n     COMPS       I       0022    0022*   0023    0023    0082                                                                    \r\n     GENEL       I       0022                                                                                                    \r\n     GRDEQ       I       0078    0079                                                                                            \r\n     GRDPNT      I       0035    0036                                                                                            \r\n     ISOP        I       0006    0006*   0007                                                                                    \r\n     JUMPPLOT    I       0010    0011    0012    0013    0013*   0017    0018    0018*   0089    0090                            \r\n     LUSEP       I       0008    0008*   0090                                                                                    \r\n     LUSET       I       0005    0005*   0008    0018    0022    0041    0045    0070    0092                                    \r\n     LUSETD      I       0070                                                                                                    \r\n     MPCF1       I       0045    0045*   0048    0049    0049    0050                                                            \r\n     MPCF2       I       0045    0045*                                                                                           \r\n     NDIR        I       0092    0092*   0092    0092    0092    0092    0092                                                    \r\n     NEIGV       I       0072    0073    0073*   0075                                                                            \r\n     NMODES      I       0092    0092*   0092    0092    0092*   0092    0092    0092    0092    0092                            \r\n     NOA         I       0045    0045*                                                                                           \r\n     NODLT       I       0070                                                                                                    \r\n     NOEED       I       0070    0070*   0071                                                                                    \r\n     NOFRL       I       0070                                                                                                    \r\n     NOGENL      I       0022    0022*   0039    0040    0041                                                                    \r\n     NOGPDT      I       0005                                                                                                    \r\n     NOGRAV      I       0021                                                                                                    \r\n     NOKGGX      I       0025    0027    0027*   0028    0029                                                                    \r\n     NOL         I       0045    0045*   0047                                                                                    \r\n     NOMGG       I       0026    0027    0027*   0032                                                                            \r\n     NONLFT      I       0070                                                                                                    \r\n     NOPSDL      I       0070                                                                                                    \r\n     NOSET       I       0045    0045*   0048                                                                                    \r\n     NOSIMP      I       0022    0022*   0024    0041                                                                            \r\n     NOSORT2     I       0092    0092*   0092    0092*                                                                           \r\n     NOTFL       I       0070                                                                                                    \r\n     NOTRL       I       0070                                                                                                    \r\n     NOUE        I       0070                                                                                                    \r\n     NSCALE      I       0092    0092*                                                                                           \r\n     NSIL        I       0013    0013*   0018    0090                                                                            \r\n     NSKIP       I       0044    0045    0045*                                                                                   \r\n     OMIT        I       0045    0045*   0048    0058    0059    0060                                                            \r\n     OPT         I       0079                                                                                                    \r\n     PFILE       I       0016    0018    0018*   0090    0090*                                                                   \r\n     PLTFLG      I       0015    0018    0018*   0090                                                                            \r\n     REACT       I       0045    0045*   0048    0064                                                                            \r\n     REPEAT      I       0045    0045*                                                                                           \r\n     SINGLE      I       0045    0045*   0048    0054    0054    0055                                                            \r\n     TEST        I       0092    0092                                                                                            \r\n\r\n\r\n      * DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY GENERATED SAVE INSTRUCTION\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     MODULE NAME DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     ANISOP      0006                                                                                                            \r\n     CASEGEN     0092    0092                                                                                                    \r\n     COMBUGV     0092                                                                                                            \r\n     COND        0012    0017    0024    0029    0032    0035    0040    0047    0050    0055    0060    0064    0071    0075    \r\n                 0078    0089    0092                                                                                            \r\n     DDAMAT      0092    0092    0092                                                                                            \r\n     DDAMPG      0092    0092                                                                                                    \r\n     DESVEL      0092                                                                                                            \r\n     DIAGONAL    0073    0092                                                                                                    \r\n     DPD         0070                                                                                                            \r\n     EMA         0030    0033                                                                                                    \r\n     EMG         0027                                                                                                            \r\n     EQMCK       0079                                                                                                            \r\n     EXIT        0104                                                                                                            \r\n     GENCOS      0092                                                                                                            \r\n     GENPART     0092                                                                                                            \r\n     GP1         0005                                                                                                            \r\n     GP2         0009                                                                                                            \r\n     GP3         0021                                                                                                            \r\n     GP4         0045                                                                                                            \r\n     GPSTGEN     0043                                                                                                            \r\n     GPWG        0036                                                                                                            \r\n     JUMP        0093                                                                                                            \r\n     LAMX        0092                                                                                                            \r\n     MCE1        0051                                                                                                            \r\n     MCE2        0052                                                                                                            \r\n     MPYAD       0092    0092    0092                                                                                            \r\n     NRLSUM      0092                                                                                                            \r\n     OFP         0037    0046    0074    0076    0080    0087    0092    0092                                                    \r\n     PARAM       0004    0015    0016    0025    0026    0044    0072    0092                                                    \r\n     PARAML      0010                                                                                                            \r\n     PARTN       0092    0092    0092    0092    0092                                                                            \r\n     PLOT        0018    0090                                                                                                    \r\n     PLTSET      0013                                                                                                            \r\n     PLTTRAN     0008                                                                                                            \r\n     PRTMSG      0014    0019    0091                                                                                            \r\n     PRTPARM     0095    0097    0099    0101                                                                                    \r\n     RBMG1       0065                                                                                                            \r\n     RBMG2       0066                                                                                                            \r\n     RBMG3       0067                                                                                                            \r\n     RBMG4       0068                                                                                                            \r\n     READ        0073                                                                                                            \r\n     SCE1        0056                                                                                                            \r\n     SDR1        0077                                                                                                            \r\n     SDR2        0082    0092    0092                                                                                            \r\n     SDR3        0092                                                                                                            \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     MODULE NAME DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     SMA3        0041                                                                                                            \r\n     SMP1        0061                                                                                                            \r\n     SMP2        0062                                                                                                            \r\n     SMPYAD      0073                                                                                                            \r\n     TA1         0022                                                                                                            \r\n     XEQUIV      0007    0023    0039    0049    0054    0058    0059    0092    0092    0092    0092    0092                    \r\n     XPURGE      0011    0028    0034    0048    0088    0103                                                                    \r\n     XSAVE       0005*   0006*   0008*   0013*   0018*   0022*   0027*   0037*   0045*   0046*   0070*   0073*   0074*   0076*   \r\n                 0080*   0087*   0090*   0092*   0092*   0092*   0092*   0092*   0092*   0092*                                   \r\n\r\n\r\n      * DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS\r\n        STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF PREVIOUS INSTRUCTION\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     ACC         0092*                                                                                                           \r\n     ASET        0045*                                                                                                           \r\n     BGPDP       0008*   0036    0082                                                                                            \r\n     BGPDT       0005*   0006    0008    0018    0022    0045    0079    0090    0092    0092    0092                            \r\n     CASECC      0018    0045    0073    0079    0082    0090    0092    0092    0092    0092                                    \r\n     CASEDD      0092*   0092                                                                                                    \r\n     CASEEE      0092*   0092                                                                                                    \r\n     CPLAMB      0092*   0092                                                                                                    \r\n     CPMP        0092*   0092    0092                                                                                            \r\n     CSTM        0005*   0022    0027    0036    0045    0079    0082    0092    0092    0092                                    \r\n     DIRCOS      0092*   0092                                                                                                    \r\n     DIT         0027    0082    0092    0092                                                                                    \r\n     DM          0048    0067*   0068    0073                                                                                    \r\n     DUMMY       0103                                                                                                            \r\n     DYNAMICS    0070                                                                                                            \r\n     ECT         0009*   0013    0018    0022                                                                                    \r\n     EED         0070*   0073                                                                                                    \r\n     EFFW        0092*   0092    0092    0092                                                                                    \r\n     EFFWR       0092*   0092                                                                                                    \r\n     ELSETS      0011    0013*   0018    0090                                                                                    \r\n     EPT         0006    0013    0022    0023                                                                                    \r\n     EPTX        0022*   0023                                                                                                    \r\n     EQDYN       0070*                                                                                                           \r\n     EQEXIN      0005*   0006    0009    0013    0018    0021    0022    0036    0045    0079    0082    0090    0092    0092    \r\n     EST         0022*   0027    0082    0092    0092                                                                            \r\n     GEI         0022*   0041                                                                                                    \r\n     GEOM1       0005    0006                                                                                                    \r\n     GEOM2       0005    0009    0021    0027                                                                                    \r\n     GEOM3       0021                                                                                                            \r\n     GEOM4       0045                                                                                                            \r\n     GM          0048    0051*   0052    0077    0079                                                                            \r\n     GO          0048    0061*   0062    0077                                                                                    \r\n     GPDT        0005*   0045                                                                                                    \r\n     GPECT       0022*   0030    0033    0090                                                                                    \r\n     GPL         0005*   0070    0079                                                                                            \r\n     GPLD        0070*                                                                                                           \r\n     GPSETS      0011    0013*   0018    0090                                                                                    \r\n     GPST        0043*   0045                                                                                                    \r\n     GPTT        0021*   0022                                                                                                    \r\n     KAA         0058    0061*   0065    0073                                                                                    \r\n     KDICT       0027*   0030    0088                                                                                            \r\n     KELM        0027*   0030    0088                                                                                            \r\n     KFF         0054    0056*   0058    0061                                                                                    \r\n     KFS         0048    0056*   0077                                                                                            \r\n     KGG         0039    0041*   0043    0049    0052    0079                                                                    \r\n     KGGX        0028    0030*   0039    0041                                                                                    \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     KLL         0065*   0066                                                                                                    \r\n     KLR         0048    0065*   0067                                                                                            \r\n     KNN         0049    0052*   0054    0056                                                                                    \r\n     KOO         0061*                                                                                                           \r\n     KRR         0048    0065*   0067                                                                                            \r\n     LAMA        0073*   0076    0079    0082    0092                                                                            \r\n     LAMB        0092*   0092                                                                                                    \r\n     LLL         0066*   0067                                                                                                    \r\n     LOO         0061*                                                                                                           \r\n     MAA         0059    0062*   0065    0073                                                                                    \r\n     MDICT       0027*   0033    0034                                                                                            \r\n     MELM        0027*   0033    0034                                                                                            \r\n     MFF         0054    0056*   0059    0062                                                                                    \r\n     MGG         0033*   0036    0049    0052    0092                                                                            \r\n     MI          0073*   0073    0073    0092                                                                                    \r\n     MID         0092*   0092                                                                                                    \r\n     MINAC       0092*   0092                                                                                                    \r\n     MINEW       0073*                                                                                                           \r\n     MINOW2      0092*   0092                                                                                                    \r\n     MIS         0073*   0073    0073                                                                                            \r\n     MLL         0065*   0068                                                                                                    \r\n     MLR         0048    0065*   0068                                                                                            \r\n     MNN         0049    0052*   0054    0056                                                                                    \r\n     MP          0092*   0092    0092    0092    0092                                                                            \r\n     MPR         0092*   0092                                                                                                    \r\n     MPT         0006    0007    0022    0023    0027    0082    0092    0092                                                    \r\n     MPTA        0006*   0007                                                                                                    \r\n     MPTX        0022*   0023                                                                                                    \r\n     MR          0048    0068*   0073                                                                                            \r\n     MRR         0065*   0068                                                                                                    \r\n     NRLFOR      0092*   0092                                                                                                    \r\n     NRLSTR      0092*   0092                                                                                                    \r\n     OEF1        0082*                                                                                                           \r\n     OEF1L       0082*                                                                                                           \r\n     OEF3        0092*   0092                                                                                                    \r\n     OEF4        0092*   0092                                                                                                    \r\n     OEIGS       0073*   0074                                                                                                    \r\n     OES1        0082*   0090                                                                                                    \r\n     OES1L       0082*   0090                                                                                                    \r\n     OES3        0092*   0092                                                                                                    \r\n     OES4        0092*   0092                                                                                                    \r\n     OGPST       0045*   0046                                                                                                    \r\n     OGPWG       0036*   0037                                                                                                    \r\n     OMEGA       0092*   0092                                                                                                    \r\n     ONRGY1      0087                                                                                                            \r\n     OPHIG       0082*                                                                                                           \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     OQG1        0082*                                                                                                           \r\n     OQG3        0092*   0092                                                                                                    \r\n     OQG4        0092*                                                                                                           \r\n     OQM1        0079*   0080                                                                                                    \r\n     OUGV3       0092*   0092                                                                                                    \r\n     OUGV4       0092*                                                                                                           \r\n     OUGV5       0092*   0092                                                                                                    \r\n     PCDB        0010    0013                                                                                                    \r\n     PCOMPS      0022*   0082                                                                                                    \r\n     PF          0092*   0092    0092    0092    0092    0092    0092                                                            \r\n     PFR         0092*   0092                                                                                                    \r\n     PG          0092*                                                                                                           \r\n     PHIA        0073*   0077                                                                                                    \r\n     PHIG        0077*   0079    0082    0092    0092    0092    0092                                                            \r\n     PHIGR       0092*   0092                                                                                                    \r\n     PLOTX1      0018*   0019                                                                                                    \r\n     PLOTX2      0090*   0091                                                                                                    \r\n     PLTPAR      0011    0013*   0018    0090                                                                                    \r\n     PLTSETX     0011    0013*   0014                                                                                            \r\n     PMD         0092*   0092    0092                                                                                            \r\n     PPHIG       0082*   0090                                                                                                    \r\n     PVOW        0092*   0092                                                                                                    \r\n     PVW         0092*   0092                                                                                                    \r\n     QG          0048    0077*   0079    0082    0092    0092                                                                    \r\n     RG          0045*   0051                                                                                                    \r\n     RPLAMB      0092*   0092                                                                                                    \r\n     RPPF        0092*   0092    0092                                                                                            \r\n     SIL         0005*   0008    0018    0022    0043    0070    0079    0082    0092    0092                                    \r\n     SILD        0070*                                                                                                           \r\n     SIP         0008*   0090                                                                                                    \r\n     SSDV        0092*                                                                                                           \r\n     UGV         0092*   0092    0092                                                                                            \r\n     UGVADC      0092*                                                                                                           \r\n     UGVADD      0092*                                                                                                           \r\n     UGVNRL      0092*   0092                                                                                                    \r\n     UGVSQC      0092*                                                                                                           \r\n     UGVSQR      0092*                                                                                                           \r\n     USET        0045*   0051    0052    0056    0061    0062    0065    0070    0073    0077    0079                            \r\n     USETD       0070*                                                                                                           \r\n     VWG         0092*                                                                                                           \r\n     YS          0045*                                                                                                           \r\n\r\n\r\n      * DENOTES STATEMENTS IN WHICH THE DATA BLOCK APPEARSRS AS OUTPUT.\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           11\r\n                                        PROFILE            117\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.179\r\n                                        RMS WAVEFRONT    4.322\r\n                                        RMS BANDWIDTH    4.989\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            116\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.143\r\n                                        RMS WAVEFRONT    4.334\r\n                                        RMS BANDWIDTH    4.606\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       11        11\r\n                                        PROFILE (P)                        117       117\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.179     4.179\r\n                                        RMS WAVEFRONT (C-RMS)            4.322     4.322\r\n                                        RMS BANDWITCH (B-RMS)            4.989     4.989\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                43\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           4\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                        33\r\n                                        MATRIX DENSITY, PERCENT                   11.990\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID       32\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK ONRGY1   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  7.73E-08\r\n\r\n                                                                            . . .        29\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .        22\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        29        2.104054E+03        4.586997E+01        7.300432E+00        2.928309E+01        6.161320E+04             \r\n        2        30        1.016344E+04        1.008139E+02        1.604503E+01        4.533900E+01        4.608002E+05             \r\n        3        28        1.570341E+04        1.253132E+02        1.994422E+01        4.568816E+01        7.174599E+05             \r\n        4        27        1.618645E+04        1.272260E+02        2.024864E+01        7.802695E+01        1.262979E+06             \r\n        5        26        1.860862E+04        1.364134E+02        2.171087E+01        2.196914E+01        4.088153E+05             \r\n        6        25        2.977019E+04        1.725404E+02        2.746066E+01        1.283353E+01        3.820565E+05             \r\n        7        24        3.638766E+04        1.907555E+02        3.035968E+01        2.039653E+01        7.421821E+05             \r\n        8        23        4.641253E+04        2.154357E+02        3.428765E+01        1.889594E+01        8.770084E+05             \r\n        9        22        6.204409E+04        2.490865E+02        3.964335E+01        5.546363E+00        3.441190E+05             \r\n       10        21        7.171398E+04        2.677946E+02        4.262084E+01        1.515314E+01        1.086692E+06             \r\n       11        20        7.733423E+04        2.780903E+02        4.425945E+01        4.523479E+00        3.498198E+05             \r\n       12        19        1.061967E+05        3.258784E+02        5.186515E+01        5.172708E+00        5.493246E+05             \r\n       13        18        1.231884E+05        3.509821E+02        5.586053E+01        6.889587E+00        8.487172E+05             \r\n       14        17        1.328689E+05        3.645119E+02        5.801387E+01        2.185959E+01        2.904460E+06             \r\n       15        16        1.365066E+05        3.694680E+02        5.880267E+01        6.424380E+00        8.769705E+05             \r\n       16        15        1.573173E+05        3.966325E+02        6.312602E+01        6.076375E+01        9.559190E+06             \r\n       17        14        2.138760E+05        4.624673E+02        7.360395E+01        5.585177E+00        1.194535E+06             \r\n       18        13        3.149601E+05        5.612131E+02        8.931983E+01        2.696226E+01        8.492035E+06             \r\n       19        12        3.255453E+05        5.705658E+02        9.080836E+01        2.774672E+01        9.032815E+06             \r\n       20        11        5.696371E+05        7.547430E+02        1.201211E+02        5.660728E+00        3.224560E+06             \r\n       21        10        7.194813E+05        8.482225E+02        1.349988E+02        5.653261E+00        4.067416E+06             \r\n       22         9        1.393963E+06        1.180662E+03        1.879082E+02        9.469474E+00        1.320009E+07             \r\n       23         8        1.621511E+06        1.273386E+03        2.026656E+02        1.533959E+01        2.487332E+07             \r\n       24         7        1.666036E+06        1.290750E+03        2.054293E+02        1.895076E+01        3.157265E+07             \r\n       25         6        1.898812E+06        1.377974E+03        2.193113E+02        1.103129E+01        2.094635E+07             \r\n       26         5        1.905306E+06        1.380328E+03        2.196860E+02        1.101142E+01        2.098012E+07             \r\n       27         4        2.450430E+06        1.565385E+03        2.491388E+02        1.538831E+01        3.770798E+07             \r\n       28         3        2.921342E+06        1.709193E+03        2.720266E+02        7.173540E+00        2.095636E+07             \r\n       29         2        4.031186E+06        2.007781E+03        3.195483E+02        9.426815E+00        3.800125E+07             \r\n       30         1        4.562698E+06        2.136047E+03        3.399625E+02        6.798706E+00        3.102044E+07             \r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     1.178790E+03   1.178791E+03   1.178791E+03   1.178790E+03   0.0            0.0            0.0                          \r\n             1.908183E+04   1.843211E+04   1.842893E+04   1.909144E+04                  0.0            0.0                          \r\n0      2     3.246815E+04   3.148989E+04   3.152558E+04   3.243316E+04   0.0            0.0            0.0                          \r\n             3.343917E+04   3.437664E+04   3.437654E+04   3.343966E+04                  0.0            0.0                          \r\n0      3     4.821773E+04   4.804644E+04   4.807116E+04   4.819211E+04   0.0            0.0            0.0                          \r\n             4.687209E+04   4.691547E+04   4.700289E+04   4.678652E+04                  0.0            0.0                          \r\n0      4     1.540778E+04   1.627876E+04   1.630153E+04   1.542827E+04   0.0            0.0            0.0                          \r\n             2.176439E+03   2.176437E+03   2.176437E+03   2.176439E+03                  0.0            0.0                          \r\n0      5     9.993179E+03   1.331252E+04   1.331255E+04   9.993160E+03   0.0            0.0            0.0                          \r\n             1.063326E+04   9.773314E+03   9.767684E+03   1.063971E+04                  0.0            0.0                          \r\n0      6     8.129687E+03   9.937537E+03   9.937777E+03   8.129443E+03   0.0            0.0            0.0                          \r\n             8.713049E+03   7.728199E+03   7.748788E+03   8.675994E+03                  0.0            0.0                          \r\n0      7     1.742439E+04   1.573233E+04   1.573219E+04   1.742453E+04   0.0            0.0            0.0                          \r\n             1.147027E+04   1.196116E+04   1.193640E+04   1.149368E+04                  0.0            0.0                          \r\n0      8     4.340386E+04   4.570248E+04   4.570418E+04   4.340203E+04   0.0            0.0            0.0                          \r\n             5.138514E+04   4.890187E+04   4.893790E+04   5.135182E+04                  0.0            0.0                          \r\n0      9     5.158394E+04   4.864233E+04   4.867581E+04   5.154818E+04   0.0            0.0            0.0                          \r\n             7.008777E+04   7.337635E+04   7.334931E+04   7.011454E+04                  0.0            0.0                          \r\n0     10     2.404755E+04   2.632583E+04   2.630614E+04   2.406790E+04   0.0            0.0            0.0                          \r\n             5.605316E+04   5.440032E+04   5.439816E+04   5.605539E+04                  0.0            0.0                          \r\n0     11     5.633305E+04   5.422484E+04   5.422278E+04   5.633540E+04   0.0            0.0            0.0                          \r\n             7.504202E+04   7.718702E+04   7.719223E+04   7.503688E+04                  0.0            0.0                          \r\n0     12     9.235566E+03   7.373854E+03   7.371533E+03   9.239488E+03   0.0            0.0            0.0                          \r\n             7.740750E+03   1.121086E+04   1.116488E+04   7.813707E+03                  0.0            0.0                          \r\n0     13     7.996412E+03   6.336864E+03   6.329872E+03   8.009531E+03   0.0            0.0            0.0                          \r\n             7.514286E+03   9.272699E+03   9.329328E+03   7.458526E+03                  0.0            0.0                          \r\n0     14     1.077471E+04   1.004266E+04   1.004687E+04   1.076662E+04   0.0            0.0            0.0                          \r\n             1.328446E+04   1.402298E+04   1.388890E+04   1.339253E+04                  0.0            0.0                          \r\n0     15     6.905577E+04   6.784570E+04   6.785236E+04   6.904927E+04   0.0            0.0            0.0                          \r\n             3.657754E+04   3.751709E+04   3.753154E+04   3.656389E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     3.664695E+04   3.749719E+04   3.751059E+04   3.663227E+04   0.0            0.0            0.0                          \r\n             3.544575E+04   3.501445E+04   3.505797E+04   3.539959E+04                  0.0            0.0                          \r\n0     17     4.575274E+04   4.625714E+04   4.627828E+04   4.573425E+04   0.0            0.0            0.0                          \r\n             4.056975E+04   4.199944E+04   4.198895E+04   4.058120E+04                  0.0            0.0                          \r\n0     18     4.065945E+04   4.188680E+04   4.187612E+04   4.067071E+04   0.0            0.0            0.0                          \r\n             7.811836E+04   7.638349E+04   7.638800E+04   7.811380E+04                  0.0            0.0                          \r\n0     19     2.675063E+04   2.467412E+04   2.464298E+04   2.679033E+04   0.0            0.0            0.0                          \r\n             2.742687E+04   2.702892E+04   2.700342E+04   2.744233E+04                  0.0            0.0                          \r\n0     20     7.971871E+03   8.354741E+03   8.379634E+03   7.959457E+03   0.0            0.0            0.0                          \r\n             1.137305E+04   1.192163E+04   1.195130E+04   1.135078E+04                  0.0            0.0                          \r\n0     21     1.601169E+04   2.122718E+04   2.109472E+04   1.611546E+04   0.0            0.0            0.0                          \r\n             2.084099E+04   1.855239E+04   1.849146E+04   2.096137E+04                  0.0            0.0                          \r\n0     22     1.264243E+04   1.116928E+04   1.115781E+04   1.269140E+04   0.0            0.0            0.0                          \r\n             1.337803E+04   1.470571E+04   1.470832E+04   1.337452E+04                  0.0            0.0                          \r\n0     23     5.712354E+04   5.733761E+04   5.735087E+04   5.711045E+04   0.0            0.0            0.0                          \r\n             3.233896E+04   3.188714E+04   3.192883E+04   3.229175E+04                  0.0            0.0                          \r\n0     24     3.229660E+04   3.192694E+04   3.196904E+04   3.224980E+04   0.0            0.0            0.0                          \r\n             2.013063E+04   1.995136E+04   1.992630E+04   2.014910E+04                  0.0            0.0                          \r\n0     25     2.013178E+04   1.988383E+04   1.994375E+04   2.008669E+04   0.0            0.0            0.0                          \r\n             4.165341E+04   4.200947E+04   4.208063E+04   4.158416E+04                  0.0            0.0                          \r\n0     26     4.583040E+04   4.632112E+04   4.630554E+04   4.584333E+04   0.0            0.0            0.0                          \r\n             3.510403E+04   3.453568E+04   3.445950E+04   3.518263E+04                  0.0            0.0                          \r\n0     27     3.517695E+04   3.446425E+04   3.438822E+04   3.525569E+04   0.0            0.0            0.0                          \r\n             1.779906E+04   1.715081E+04   1.716300E+04   1.779837E+04                  0.0            0.0                          \r\n0     28     1.773523E+04   1.711583E+04   1.708370E+04   1.775291E+04   0.0            0.0            0.0                          \r\n             6.622332E+04   6.668190E+04   6.667159E+04   6.623608E+04                  0.0            0.0                          \r\n0     29     1.530243E+04   1.764250E+04   1.771379E+04   1.525162E+04   0.0            0.0            0.0                          \r\n             1.262470E+04   1.023964E+04   1.026601E+04   1.255865E+04                  0.0            0.0                          \r\n0     30     4.216344E+02   5.636169E+02   4.161478E+02   5.419356E+02   0.0            0.0            0.0                          \r\n             1.546431E+04   1.550369E+04   1.546231E+04   1.550769E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     2.571862E+02   4.645767E+02   2.093839E+02   4.130486E+02   0.0            0.0            0.0                          \r\n             5.750908E+03   6.102871E+03   5.739330E+03   6.122879E+03                  0.0            0.0                          \r\n0     32     2.057437E+04   2.370996E+04   2.369729E+04   2.057491E+04   0.0            0.0            0.0                          \r\n             2.070261E+04   1.799298E+04   1.803163E+04   2.070591E+04                  0.0            0.0                          \r\n0     33     2.509552E+04   2.178979E+04   2.170314E+04   2.516778E+04   0.0            0.0            0.0                          \r\n             1.587497E+04   1.993111E+04   1.991058E+04   1.589727E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     3.447676E+04   3.447677E+04   3.447677E+04   3.447676E+04   0.0            0.0            0.0                          \r\n             8.194910E+04   7.757912E+04   7.653505E+04   8.299366E+04                  0.0            0.0                          \r\n0      2     8.236158E+04   8.653947E+04   8.763060E+04   8.127011E+04   0.0            0.0            0.0                          \r\n             8.965769E+04   8.529383E+04   8.444664E+04   9.050498E+04                  0.0            0.0                          \r\n0      3     7.829619E+04   7.062399E+04   7.146624E+04   7.745463E+04   0.0            0.0            0.0                          \r\n             7.079675E+04   7.586494E+04   7.763704E+04   6.902289E+04                  0.0            0.0                          \r\n0      4     8.389366E+04   8.208953E+04   8.028597E+04   8.569606E+04   0.0            0.0            0.0                          \r\n             3.390645E+04   3.390645E+04   3.390645E+04   3.390645E+04                  0.0            0.0                          \r\n0      5     5.197108E+04   5.266442E+04   5.266301E+04   5.197250E+04   0.0            0.0            0.0                          \r\n             3.598179E+04   3.582001E+04   3.543059E+04   3.637118E+04                  0.0            0.0                          \r\n0      6     5.166925E+04   5.193077E+04   5.193484E+04   5.166520E+04   0.0            0.0            0.0                          \r\n             4.761126E+04   4.694499E+04   4.757216E+04   4.698284E+04                  0.0            0.0                          \r\n0      7     5.001864E+04   4.903168E+04   4.902903E+04   5.002129E+04   0.0            0.0            0.0                          \r\n             3.354098E+04   3.546412E+04   3.424027E+04   3.476462E+04                  0.0            0.0                          \r\n0      8     9.997838E+04   1.074701E+05   1.073822E+05   1.000660E+05   0.0            0.0            0.0                          \r\n             8.381434E+04   7.967091E+04   7.696496E+04   8.652145E+04                  0.0            0.0                          \r\n0      9     7.909072E+04   8.506534E+04   8.235847E+04   8.179796E+04   0.0            0.0            0.0                          \r\n             6.142889E+04   6.725825E+04   6.683133E+04   6.185413E+04                  0.0            0.0                          \r\n0     10     8.906960E+04   9.835371E+04   9.885457E+04   8.856670E+04   0.0            0.0            0.0                          \r\n             4.932727E+04   4.749062E+04   4.758314E+04   4.937424E+04                  0.0            0.0                          \r\n0     11     4.821773E+04   4.683400E+04   4.680118E+04   4.813779E+04   0.0            0.0            0.0                          \r\n             8.706620E+04   9.360716E+04   9.376653E+04   8.690691E+04                  0.0            0.0                          \r\n0     12     2.265885E+04   2.198111E+04   2.171516E+04   2.295492E+04   0.0            0.0            0.0                          \r\n             8.046199E+04   8.057027E+04   7.916444E+04   8.186655E+04                  0.0            0.0                          \r\n0     13     2.924243E+04   2.677377E+04   2.730520E+04   2.869077E+04   0.0            0.0            0.0                          \r\n             6.275838E+04   6.138748E+04   6.137629E+04   6.276807E+04                  0.0            0.0                          \r\n0     14     2.533952E+04   2.682032E+04   2.587445E+04   2.624951E+04   0.0            0.0            0.0                          \r\n             7.365803E+04   7.787660E+04   7.472247E+04   7.680597E+04                  0.0            0.0                          \r\n0     15     4.404829E+04   5.090567E+04   5.104563E+04   4.392732E+04   0.0            0.0            0.0                          \r\n             1.837606E+04   2.826864E+04   2.719280E+04   1.939652E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     1.537083E+04   3.157888E+04   3.051264E+04   1.640142E+04   0.0            0.0            0.0                          \r\n             5.473587E+04   3.923241E+04   4.106689E+04   5.295678E+04                  0.0            0.0                          \r\n0     17     1.165762E+05   1.044341E+05   1.025281E+05   1.184649E+05   0.0            0.0            0.0                          \r\n             6.568218E+04   7.042453E+04   7.049480E+04   6.567344E+04                  0.0            0.0                          \r\n0     18     6.585580E+04   6.933300E+04   6.939731E+04   6.583797E+04   0.0            0.0            0.0                          \r\n             1.254432E+05   1.316655E+05   1.315351E+05   1.255725E+05                  0.0            0.0                          \r\n0     19     8.465370E+04   8.525977E+04   8.385545E+04   8.605398E+04   0.0            0.0            0.0                          \r\n             9.715253E+04   9.774745E+04   9.777699E+04   9.714180E+04                  0.0            0.0                          \r\n0     20     7.787187E+04   7.655583E+04   7.659362E+04   7.783397E+04   0.0            0.0            0.0                          \r\n             5.804530E+04   5.912761E+04   5.916411E+04   5.801396E+04                  0.0            0.0                          \r\n0     21     8.993607E+04   9.070291E+04   8.757109E+04   9.307714E+04   0.0            0.0            0.0                          \r\n             1.004165E+05   1.050680E+05   1.022855E+05   1.031369E+05                  0.0            0.0                          \r\n0     22     6.201543E+04   2.545752E+04   2.408154E+04   6.350678E+04   0.0            0.0            0.0                          \r\n             5.136238E+04   9.202466E+04   9.079803E+04   5.138222E+04                  0.0            0.0                          \r\n0     23     7.523718E+04   6.471878E+04   6.496494E+04   7.430566E+04   0.0            0.0            0.0                          \r\n             3.443609E+04   4.180477E+04   4.318474E+04   3.624063E+04                  0.0            0.0                          \r\n0     24     2.830674E+04   2.858191E+04   2.818061E+04   2.778227E+04   0.0            0.0            0.0                          \r\n             2.766715E+04   3.504334E+04   3.531820E+04   2.967608E+04                  0.0            0.0                          \r\n0     25     2.947936E+04   3.339885E+04   3.607935E+04   2.624575E+04   0.0            0.0            0.0                          \r\n             6.667752E+04   7.327205E+04   7.425331E+04   6.559393E+04                  0.0            0.0                          \r\n0     26     1.077357E+05   1.158359E+05   1.148908E+05   1.086229E+05   0.0            0.0            0.0                          \r\n             1.435252E+04   2.141943E+04   2.251148E+04   1.329944E+04                  0.0            0.0                          \r\n0     27     2.660444E+04   3.891982E+04   4.006109E+04   2.622177E+04   0.0            0.0            0.0                          \r\n             4.724058E+04   4.200287E+04   4.527849E+04   5.371407E+04                  0.0            0.0                          \r\n0     28     5.325762E+04   4.260601E+04   4.434114E+04   4.647391E+04   0.0            0.0            0.0                          \r\n             1.224665E+05   1.134378E+05   1.103830E+05   1.255571E+05                  0.0            0.0                          \r\n0     29     4.777548E+04   8.533083E+04   8.847348E+04   4.465138E+04   0.0            0.0            0.0                          \r\n             6.264133E+04   2.178776E+04   2.462382E+04   6.041015E+04                  0.0            0.0                          \r\n0     30     6.478356E+03   6.375633E+03   7.934208E+03   7.839694E+03   0.0            0.0            0.0                          \r\n             1.664618E+04   1.468998E+04   1.574158E+04   1.337092E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     7.229926E+03   7.158932E+03   7.233649E+03   7.162764E+03   0.0            0.0            0.0                          \r\n             9.891587E+03   7.577913E+03   1.010411E+04   7.145479E+03                  0.0            0.0                          \r\n0     32     6.209275E+04   6.511343E+04   6.521561E+04   6.196466E+04   0.0            0.0            0.0                          \r\n             3.345692E+04   2.897329E+04   3.064000E+04   3.180851E+04                  0.0            0.0                          \r\n0     33     5.503746E+04   5.793506E+04   5.518345E+04   5.785186E+04   0.0            0.0            0.0                          \r\n             2.809474E+04   2.696173E+04   2.726813E+04   2.774217E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     2.567285E+02   2.567288E+02   2.567287E+02   2.567283E+02   0.0            0.0            0.0                          \r\n             5.549499E+04   5.471775E+04   5.535395E+04   5.463441E+04                  0.0            0.0                          \r\n0      2     5.332703E+04   5.462971E+04   5.330300E+04   5.458227E+04   0.0            0.0            0.0                          \r\n             8.017577E+04   7.793514E+04   8.009752E+04   7.787291E+04                  0.0            0.0                          \r\n0      3     7.807268E+04   7.928255E+04   7.815756E+04   7.938162E+04   0.0            0.0            0.0                          \r\n             6.122169E+04   6.304927E+04   6.114656E+04   6.296275E+04                  0.0            0.0                          \r\n0      4     6.473193E+04   6.321254E+04   6.449573E+04   6.300733E+04   0.0            0.0            0.0                          \r\n             2.608415E+02   2.608419E+02   2.608346E+02   2.608342E+02                  0.0            0.0                          \r\n0      5     1.478923E+03   1.452996E+03   1.490965E+03   1.440763E+03   0.0            0.0            0.0                          \r\n             1.357793E+04   1.294812E+04   1.357461E+04   1.294576E+04                  0.0            0.0                          \r\n0      6     1.387180E+03   1.494680E+03   1.383783E+03   1.497184E+03   0.0            0.0            0.0                          \r\n             2.034799E+04   2.123089E+04   2.034015E+04   2.122262E+04                  0.0            0.0                          \r\n0      7     1.347791E+03   1.270137E+03   1.341595E+03   1.275993E+03   0.0            0.0            0.0                          \r\n             1.953533E+04   1.882884E+04   1.954425E+04   1.883760E+04                  0.0            0.0                          \r\n0      8     4.598664E+03   2.845709E+03   4.738092E+03   2.761879E+03   0.0            0.0            0.0                          \r\n             8.544122E+04   8.359920E+04   8.534745E+04   8.351069E+04                  0.0            0.0                          \r\n0      9     8.535356E+04   8.351663E+04   8.543491E+04   8.359306E+04   0.0            0.0            0.0                          \r\n             3.761988E+04   3.669824E+04   3.766497E+04   3.672368E+04                  0.0            0.0                          \r\n0     10     3.755671E+04   3.876746E+04   3.750352E+04   3.868031E+04   0.0            0.0            0.0                          \r\n             6.237957E+04   6.244950E+04   6.230128E+04   6.237043E+04                  0.0            0.0                          \r\n0     11     6.231410E+04   6.238287E+04   6.236627E+04   6.243658E+04   0.0            0.0            0.0                          \r\n             2.308956E+03   4.353183E+03   2.267583E+03   4.204636E+03                  0.0            0.0                          \r\n0     12     1.336039E+04   1.313825E+04   1.334310E+04   1.312194E+04   0.0            0.0            0.0                          \r\n             3.929434E+04   3.709136E+04   3.927221E+04   3.707370E+04                  0.0            0.0                          \r\n0     13     2.059188E+04   2.094562E+04   2.060620E+04   2.096141E+04   0.0            0.0            0.0                          \r\n             9.911844E+03   9.661546E+03   9.887971E+03   9.660266E+03                  0.0            0.0                          \r\n0     14     1.930336E+04   1.899980E+04   1.932783E+04   1.902361E+04   0.0            0.0            0.0                          \r\n             5.021713E+04   4.803618E+04   5.022994E+04   4.804588E+04                  0.0            0.0                          \r\n0     15     2.334757E+03   3.360701E+03   2.265307E+03   3.176755E+03   0.0            0.0            0.0                          \r\n             3.335259E+04   3.305411E+04   3.346638E+04   3.316077E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     3.331689E+04   3.302120E+04   3.350292E+04   3.319456E+04   0.0            0.0            0.0                          \r\n             5.294143E+04   5.387535E+04   5.317137E+04   5.411884E+04                  0.0            0.0                          \r\n0     17     5.553528E+04   5.332731E+04   5.530473E+04   5.311932E+04   0.0            0.0            0.0                          \r\n             3.990913E+04   3.995993E+04   3.984815E+04   3.989132E+04                  0.0            0.0                          \r\n0     18     3.989628E+04   3.994533E+04   3.985966E+04   3.990458E+04   0.0            0.0            0.0                          \r\n             4.918496E+03   3.049909E+03   5.183028E+03   3.004320E+03                  0.0            0.0                          \r\n0     19     3.938346E+04   3.703080E+04   3.936271E+04   3.701455E+04   0.0            0.0            0.0                          \r\n             4.347070E+04   4.142732E+04   4.348017E+04   4.143069E+04                  0.0            0.0                          \r\n0     20     1.008716E+04   9.771994E+03   1.006364E+04   9.771166E+03   0.0            0.0            0.0                          \r\n             1.817041E+03   1.961888E+03   1.867628E+03   1.921314E+03                  0.0            0.0                          \r\n0     21     5.049938E+04   4.788511E+04   5.049127E+04   4.788058E+04   0.0            0.0            0.0                          \r\n             7.048341E+04   6.791011E+04   7.047043E+04   6.789600E+04                  0.0            0.0                          \r\n0     22     6.354850E+04   6.285844E+04   6.335964E+04   6.270468E+04   0.0            0.0            0.0                          \r\n             5.026121E+04   4.900245E+04   5.086683E+04   4.954296E+04                  0.0            0.0                          \r\n0     23     4.893522E+04   5.056873E+04   4.917171E+04   5.082982E+04   0.0            0.0            0.0                          \r\n             3.775177E+04   3.828587E+04   3.572420E+04   3.623934E+04                  0.0            0.0                          \r\n0     24     3.719620E+04   3.771940E+04   3.624064E+04   3.676849E+04   0.0            0.0            0.0                          \r\n             4.998793E+04   5.071449E+04   5.103996E+04   5.175341E+04                  0.0            0.0                          \r\n0     25     3.741152E+04   3.812913E+04   3.713881E+04   3.781273E+04   0.0            0.0            0.0                          \r\n             1.222368E+04   1.369724E+04   1.039807E+04   1.182967E+04                  0.0            0.0                          \r\n0     26     1.404378E+04   1.176311E+04   1.252101E+04   1.010124E+04   0.0            0.0            0.0                          \r\n             5.783022E+04   5.735512E+04   5.598300E+04   5.549712E+04                  0.0            0.0                          \r\n0     27     5.732443E+04   5.686525E+04   5.653948E+04   5.603621E+04   0.0            0.0            0.0                          \r\n             5.296335E+04   5.373770E+04   5.246637E+04   5.320927E+04                  0.0            0.0                          \r\n0     28     4.838305E+04   4.940952E+04   4.782038E+04   4.885243E+04   0.0            0.0            0.0                          \r\n             7.736326E+04   7.502205E+04   7.484079E+04   7.258430E+04                  0.0            0.0                          \r\n0     29     7.486270E+04   7.699262E+04   7.213762E+04   7.421414E+04   0.0            0.0            0.0                          \r\n             6.279137E+04   6.380214E+04   6.511079E+04   6.615710E+04                  0.0            0.0                          \r\n0     30     2.220984E+04   2.061368E+04   3.460043E+04   3.310282E+04   0.0            0.0            0.0                          \r\n             2.476767E+04   2.428523E+04   1.477357E+04   1.418612E+04                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     3.960641E+04   4.199519E+04   5.085416E+04   5.190227E+04   0.0            0.0            0.0                          \r\n             3.698705E+04   3.670217E+04   3.116929E+04   3.210269E+04                  0.0            0.0                          \r\n0     32     4.280929E+04   4.178159E+04   4.281652E+04   4.178114E+04   0.0            0.0            0.0                          \r\n             2.629764E+04   2.752842E+04   2.631731E+04   2.755080E+04                  0.0            0.0                          \r\n0     33     6.954383E+04   6.847337E+04   6.951866E+04   6.844734E+04   0.0            0.0            0.0                          \r\n             6.104688E+03   7.207377E+03   6.136997E+03   7.240359E+03                  0.0            0.0                          \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     1.577707E-03  1.352047E-01   3.270172E+03  4.977163E+05   6.540343E+01  9.954328E+03   2.357580E+04   0.0         \r\n            2     3.289613E+03  8.505484E+05   3.175347E+03  9.018502E+05   3.049833E+01  1.751315E+04   1.927827E+04   1.209279E+01\r\n            3     3.093245E+03  1.280200E+06   6.187243E+03  1.247282E+06   1.110266E+02  3.158450E+04   9.527955E+03   2.011086E+01\r\n            4     6.424610E+03  4.161514E+05   1.082446E-03  7.408679E-02   1.284922E+02  8.323029E+03   4.352876E+04   0.0         \r\n            5     1.209543E+01  7.080988E+05   3.156207E+03  6.100238E+05   6.594255E+01  2.660989E+04   2.289866E+05   1.790097E+02\r\n            6     3.210060E+01  6.501046E+05   5.973831E+03  5.851206E+05   1.250930E+02  2.375589E+04   4.646909E+04   9.077562E+01\r\n            7     2.011739E+01  1.078698E+06   8.065806E+03  7.560911E+05   1.684345E+02  3.778070E+04   2.059927E+05   2.477356E+02\r\n            8     1.733586E+02  5.692608E+05   4.089431E+03  6.410953E+05   5.323902E+01  1.506047E+04   3.271747E+04   3.254481E+00\r\n            9     4.089425E+03  6.410955E+05   8.710187E+02  9.180226E+05   1.748528E+02  7.726994E+04   2.965304E+04   3.254481E+00\r\n           10     9.663951E+02  3.220599E+05   1.124084E+03  7.065324E+05   3.187954E+01  3.332355E+04   2.378642E+04   4.935758E+00\r\n           11     1.124085E+03  7.065326E+05   2.314692E+02  9.733732E+05   2.586712E+01  3.344812E+04   3.233013E+04   4.935757E+00\r\n           12     3.153895E+03  4.389111E+05   1.116808E+04  5.499898E+05   1.126159E+02  1.162145E+04   2.313406E+05   3.735302E+01\r\n           13     5.966154E+03  5.101877E+05   6.326993E+03  5.987676E+05   8.532127E+01  1.399723E+04   7.077902E+04   5.293118E+01\r\n           14     8.061212E+03  6.612524E+05   2.172875E+04  9.196241E+05   1.900877E+02  2.104625E+04   2.166088E+05   4.349700E+01\r\n           15     2.316997E+02  8.754789E+05   1.910264E+03  4.725884E+05   5.338811E+01  3.240551E+04   3.487044E+04   1.680946E+00\r\n           16     1.910265E+03  4.725884E+05   2.882042E+03  4.492604E+05   2.909996E+01  1.372919E+04   3.789169E+04   1.680946E+00\r\n           17     2.916958E+03  5.884590E+05   9.086458E+02  5.279267E+05   6.112329E+01  2.152794E+04   2.625937E+04   5.493711E+00\r\n           18     9.086439E+02  5.279268E+05   2.260497E+02  9.886046E+05   3.090876E+01  4.048998E+04   2.245689E+04   5.493711E+00\r\n           19     1.116958E+04  9.361156E+05   5.034120E+03  1.036670E+06   2.556953E+02  3.217403E+04   7.988296E+05   2.276437E+02\r\n           20     6.327911E+03  5.814652E+05   8.123043E+03  8.285628E+05   6.931773E+01  1.991626E+04   5.905367E+04   8.037808E+01\r\n           21     2.173407E+04  5.632021E+05   2.259577E+04  6.523734E+05   7.336162E+02  1.916847E+04   6.891247E+05   2.055705E+02\r\n           22     5.027255E+03  3.107104E+05   3.536918E+03  3.700335E+05   1.649266E+02  1.358582E+04   3.759481E+04   9.266260E+00\r\n           23     3.406266E+03  1.522267E+06   5.998547E+03  8.540409E+05   1.451974E+02  4.643278E+04   1.056650E+04   3.026649E+03\r\n           24     5.998545E+03  8.540420E+05   6.372955E+03  5.328766E+05   1.182433E+02  2.933564E+04   9.038326E+03   3.026650E+03\r\n           25     1.163175E+04  5.321114E+05   4.338580E+03  1.112656E+06   2.530770E+02  3.111938E+04   9.347482E+03   7.038633E+03\r\n           26     4.290284E+03  1.225492E+06   5.001845E+03  9.260975E+05   2.219855E+02  4.407102E+04   1.176091E+04   1.453727E+03\r\n           27     5.001842E+03  9.260976E+05   7.708822E+03  4.645801E+05   2.096854E+02  6.510289E+04   1.319764E+04   1.453727E+03\r\n           28     1.364685E+04  4.630861E+05   9.530029E+03  1.767573E+06   8.696507E+02  6.347714E+04   1.293240E+04   3.225305E+03\r\n           29     9.690189E+03  4.374357E+05   8.321604E+03  3.015054E+05   3.601331E+02  1.475510E+04   3.933751E+04   1.652723E+01\r\n           30     1.780594E+04  1.006518E+04   2.190765E+04  4.117184E+05   4.136135E+02  4.393579E+03   2.573119E+02   2.184272E+03\r\n           31     2.073742E+04  4.678845E+03   2.200368E+04  1.574569E+05   4.450482E+02  1.688913E+03   7.408736E+02   3.226121E+03\r\n           32     4.955051E+03  5.909315E+05   8.441701E+03  2.855405E+05   1.687609E+02  1.744451E+04   7.982771E+05   4.777837E+01\r\n           33     2.134689E+04  1.022363E+06   3.707354E+03  4.688672E+05   4.737332E+02  2.980689E+04   6.948428E+05   2.510667E+01\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     2.513616E-03  2.103029E-01   6.445730E+04  1.662447E+06   1.289146E+03  3.324894E+04   6.895353E+05   0.0         \r\n            2     6.675525E+04  2.245392E+06   7.301516E+04  2.325797E+06   4.943938E+02  4.571023E+04   6.995943E+04   2.686927E+02\r\n            3     7.114540E+04  1.980087E+06   1.140906E+05  1.949895E+06   2.285557E+03  4.912280E+04   7.989680E+04   4.605802E+02\r\n            4     1.194874E+05  1.778504E+06   1.659631E-02  1.001422E-01   2.389748E+03  3.557007E+04   6.781290E+05   0.0         \r\n            5     2.688844E+02  3.766690E+06   9.190689E+04  2.584368E+06   1.920168E+03  1.317753E+05   2.064398E+04   3.520914E+03\r\n            6     7.252032E+02  3.728696E+06   1.159865E+05  3.403015E+06   2.431423E+03  1.481421E+05   3.131490E+04   1.904541E+03\r\n            7     4.606120E+02  3.565404E+06   2.061089E+05  2.482468E+06   4.303516E+03  1.249254E+05   3.783397E+04   5.506275E+03\r\n            8     3.980440E+03  1.321728E+06   9.509312E+04  1.040054E+06   1.236758E+03  2.949273E+04   9.688570E+04   6.854804E+01\r\n            9     9.509311E+04  1.040054E+06   1.514747E+04  8.161240E+05   4.010574E+03  5.787884E+04   1.219375E+05   6.854804E+01\r\n           10     1.801777E+04  1.186078E+06   2.805125E+04  5.976338E+05   5.129662E+02  5.202213E+04   1.434048E+05   1.097423E+02\r\n           11     2.805126E+04  5.976338E+05   5.544989E+03  1.152916E+06   6.602510E+02  3.246822E+04   9.680942E+04   1.097422E+02\r\n           12     9.184083E+04  1.605170E+06   3.139060E+05  5.791678E+06   3.096398E+03  8.790550E+04   4.958456E+04   4.869093E+02\r\n           13     1.158101E+05  2.014144E+06   3.555260E+04  4.468088E+06   1.882420E+03  6.477689E+04   6.871477E+04   1.030279E+03\r\n           14     2.059998E+05  1.872776E+06   5.598742E+05  5.439935E+06   4.916778E+03  7.969188E+04   6.122845E+04   2.159729E+02\r\n           15     4.540024E+03  6.032798E+05   3.419612E+04  2.929028E+05   9.644222E+02  1.340200E+04   8.361025E+04   4.578294E+01\r\n           16     3.419610E+04  2.929028E+05   7.301272E+04  5.967566E+05   7.588245E+02  1.375118E+04   1.296977E+05   4.578294E+01\r\n           17     7.404617E+04  1.413868E+06   1.401291E+04  8.627872E+05   1.549134E+03  4.662720E+04   1.038070E+05   1.332999E+02\r\n           18     1.401288E+04  8.627872E+05   4.724432E+03  1.645218E+06   5.051071E+02  6.079190E+04   6.567583E+04   1.332999E+02\r\n           19     3.139503E+05  6.110958E+06   1.570422E+05  7.014318E+06   7.530526E+03  2.178864E+05   6.029775E+04   4.972271E+03\r\n           20     3.548322E+04  5.558266E+06   6.441187E+03  4.217066E+06   5.783055E+02  1.610543E+05   5.388932E+04   2.230398E+03\r\n           21     5.600069E+05  6.485117E+06   5.355976E+05  7.375064E+06   1.824292E+04  2.296206E+05   1.140147E+05   4.728164E+03\r\n           22     1.443947E+05  7.567634E+05   1.157139E+05  1.538778E+06   5.010203E+03  4.589948E+04   6.975886E+05   2.639153E+02\r\n           23     1.122316E+05  1.709254E+06   1.703325E+05  7.373278E+05   4.771468E+03  4.497959E+04   4.472912E+05   2.231929E+03\r\n           24     1.703325E+05  7.373279E+05   3.538340E+05  8.274904E+05   2.416542E+04  4.284259E+04   9.838972E+04   2.231929E+03\r\n           25     2.007243E+05  8.274010E+05   8.699416E+04  1.859316E+06   4.410687E+03  4.239589E+04   9.546980E+04   5.362732E+03\r\n           26     8.560608E+04  2.972405E+06   1.397974E+05  4.708711E+05   4.413410E+03  6.677482E+04   9.554614E+04   1.211940E+03\r\n           27     1.397974E+05  4.708717E+05   2.854577E+05  8.781862E+05   2.299502E+04  8.573836E+04   4.879855E+05   1.211940E+03\r\n           28     2.807995E+05  8.743677E+05   2.566154E+05  2.963122E+06   2.028910E+04  8.445558E+04   4.778693E+05   2.337389E+03\r\n           29     2.605233E+05  1.428995E+06   2.249135E+05  7.166039E+05   9.690521E+03  4.288532E+04   7.188046E+05   4.330412E+02\r\n           30     4.910644E+05  7.569972E+03   5.551753E+05  3.085537E+05   1.088403E+04  3.292925E+03   2.403247E+04   1.744089E+03\r\n           31     4.909341E+05  3.444293E+03   5.013028E+05  1.239418E+05   1.032199E+04  1.326281E+03   2.679873E+04   3.866940E+03\r\n           32     1.568490E+05  4.573082E+06   2.124196E+05  2.241703E+06   4.101976E+03  1.361162E+05   1.056362E+05   1.200059E+03\r\n           33     5.352826E+05  4.046608E+06   9.885097E+04  1.966598E+06   1.149867E+04  1.198298E+05   1.488351E+05   7.642048E+02\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     1.270716E-01  4.887753E-03   3.804006E+06  4.704599E+04   7.608009E+04  9.409199E+02   5.134572E+03   0.0         \r\n            2     3.726792E+06  5.871884E+04   5.461640E+06  5.990879E+04   2.914760E+04  1.186260E+03   1.664101E+03   6.251178E+03\r\n            3     5.443065E+06  4.520869E+04   4.293301E+06  4.514342E+04   4.550991E+04  1.129378E+03   2.029117E+03   8.318733E+03\r\n            4     4.415070E+06  4.972008E+04   4.721157E+00  5.888932E-03   8.830134E+04  9.944019E+02   5.216761E+03   0.0         \r\n            5     6.239297E+03  1.055234E+05   2.074168E+06  5.077942E+04   4.332762E+04  3.249513E+03   3.145975E+02   1.259485E+05\r\n            6     1.433167E+04  1.036558E+05   3.251204E+06  7.374938E+04   6.777845E+04  3.689804E+03   3.885075E+02   2.978078E+04\r\n            7     8.319506E+03  9.421064E+04   3.001500E+06  4.841012E+04   6.269326E+04  2.957695E+03   3.166300E+02   1.284097E+05\r\n            8     8.938636E+04  3.450309E+04   2.674559E+06  2.387007E+04   3.380305E+04  7.293859E+02   1.233599E+03   2.092265E+03\r\n            9     2.674556E+06  2.387007E+04   1.176312E+06  1.514899E+04   8.442534E+04  6.122199E+02   1.357412E+03   2.092266E+03\r\n           10     1.203861E+06  3.014618E+04   1.975156E+06  4.619167E+03   3.595869E+04  9.594695E+02   1.287318E+03   2.604417E+03\r\n           11     1.975148E+06  4.619166E+03   9.245567E+04  2.364565E+04   4.051586E+04  5.350431E+02   1.367642E+03   2.604416E+03\r\n           12     2.072528E+06  1.796994E+04   5.968351E+06  1.752919E+05   5.823813E+04  2.236186E+03   1.015636E+03   6.984363E+04\r\n           13     3.251882E+06  3.132602E+04   1.503910E+06  1.294882E+05   4.832173E+04  1.470076E+03   1.426498E+03   2.285779E+04\r\n           14     2.999178E+06  2.706972E+04   7.678178E+06  1.617461E+05   7.720477E+04  1.958226E+03   7.762622E+02   8.158134E+04\r\n           15     8.493378E+04  1.221327E+04   1.053065E+06  7.083024E+03   2.778971E+04  1.570584E+02   1.926978E+03   2.415713E+03\r\n           16     1.053063E+06  7.083022E+03   1.694745E+06  1.645217E+04   2.199930E+04  3.902969E+02   3.193717E+03   2.415713E+03\r\n           17     1.719350E+06  2.774821E+04   1.263470E+06  4.838742E+03   4.262195E+04  7.069878E+02   3.487859E+03   3.550002E+03\r\n           18     1.263468E+06  4.838741E+03   1.066262E+05  3.163282E+04   3.840199E+04  8.191622E+02   2.238810E+03   3.550002E+03\r\n           19     5.969566E+06  1.867619E+05   6.627001E+06  2.209934E+05   1.835923E+05  6.791746E+03   1.027171E+03   1.190835E+05\r\n           20     1.505811E+06  1.729255E+05   5.457771E+04  1.327263E+05   2.566753E+04  5.089840E+03   1.187442E+03   5.228749E+04\r\n           21     7.681225E+06  1.928080E+05   1.082408E+07  2.284954E+05   2.783992E+05  7.012393E+03   8.252943E+02   1.369845E+05\r\n           22     4.364155E+06  2.481854E+04   3.449694E+06  5.025443E+04   1.551033E+05  1.501455E+03   2.917249E+04   8.669955E+03\r\n           23     3.447479E+06  3.688454E+04   2.557627E+06  9.794354E+03   1.006518E+05  8.657345E+02   3.025662E+04   6.046088E+03\r\n           24     2.557627E+06  9.794352E+03   3.518381E+06  2.197893E+04   2.809326E+05  1.006044E+03   1.203106E+04   6.046089E+03\r\n           25     2.600914E+06  2.198311E+04   8.195394E+05  4.860776E+04   8.157145E+04  1.078786E+03   2.069212E+04   3.524555E+04\r\n           26     8.054149E+05  8.494747E+04   3.918976E+06  1.466463E+04   8.582277E+04  2.023424E+03   1.939058E+04   1.932569E+04\r\n           27     3.918978E+06  1.466464E+04   3.669330E+06  2.423733E+04   4.475514E+05  2.246330E+03   2.783128E+04   1.932569E+04\r\n           28     3.359573E+06  2.416664E+04   5.179322E+06  7.629295E+04   3.136339E+05  2.180223E+03   4.607921E+04   1.730546E+04\r\n           29     5.153813E+06  4.726579E+04   4.456063E+06  2.375722E+04   1.918005E+05  1.420439E+03   4.488772E+04   8.826476E+03\r\n           30     1.524834E+06  3.718543E+04   7.585844E+05  1.717070E+04   2.378458E+04  5.604320E+02   3.508162E+05   1.893321E+01\r\n           31     2.781786E+06  3.262743E+04   1.376136E+06  1.593760E+04   4.331144E+04  5.050276E+02   6.422513E+05   7.805434E+01\r\n           32     6.612938E+06  1.434081E+05   4.212432E+06  7.781741E+04   9.529557E+04  4.306772E+03   1.859693E+03   2.283138E+04\r\n           33     1.079797E+07  1.279244E+05   1.021742E+06  9.472962E+04   2.242953E+05  4.290958E+03   1.660925E+03   1.536767E+04\r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 204 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            2.408433E-05   2.125423E-05   2.503151E-03                  \r\n             2      G      8.507232E-02   1.964650E-03   1.076181E-03   1.654876E-05   2.125423E-05   1.166044E-03                  \r\n             3      G      3.248062E-01   4.205368E-03   1.367646E-03   1.384512E-05   1.687112E-05   7.392348E-04                  \r\n             4      G      7.453994E-02   3.627396E-03   8.601210E-04   1.189493E-05   3.048224E-05   1.078911E-03                  \r\n             5      G      0.0            0.0            0.0            2.144290E-05   3.048224E-05   2.089794E-03                  \r\n             6      G      7.746251E-02   4.333700E-02   4.824267E-04   3.424846E-05   1.840060E-05   9.007379E-04                  \r\n             7      G      3.580019E-01   4.376385E-02   1.543740E-03   1.238011E-05   1.269203E-05   2.715531E-03                  \r\n             8      G      3.264085E-01   4.275973E-02   1.187386E-03   2.583665E-05   1.362107E-05   7.255600E-04                  \r\n             9      G      3.031619E-01   4.284486E-02   6.077479E-04   3.226356E-05   1.359101E-05   4.913347E-03                  \r\n            10      G      6.787747E-02   3.982852E-02   1.684850E-03   3.644203E-05   2.321332E-05   6.079635E-04                  \r\n            11      G      6.644145E-02   6.010950E-02   8.541651E-04   3.382837E-05   4.244076E-06   7.163574E-04                  \r\n            12      G      2.214594E-01   5.984584E-02   6.597343E-04   2.445565E-05   4.391792E-06   6.565919E-03                  \r\n            13      G      3.259774E-01   5.921902E-02   9.244730E-04   1.588932E-05   9.254926E-06   6.542595E-04                  \r\n            14      G      2.084376E-01   6.094531E-02   7.622641E-04   3.762243E-05   8.891500E-06   7.161902E-03                  \r\n            15      G      5.756101E-02   6.194190E-02   1.934400E-03   3.914507E-05   1.987223E-05   8.245090E-04                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      3.023776E-02   3.132901E-03   3.039854E-04   6.901320E-06   1.056679E-05   6.054559E-04                  \r\n            18      G      2.513025E-01   3.772506E-03   3.249593E-04   8.956088E-06   3.451355E-03   5.206004E-03                  \r\n            19      G      3.131175E-01   4.014303E-03   4.116990E-05   2.010393E-05   4.831918E-03   4.782407E-03                  \r\n            20      G      3.258844E-01   4.412070E-03   1.644052E-04   4.264237E-06   2.148924E-05   1.605411E-03                  \r\n            21      G      2.180096E-01   3.824196E-03   1.199093E-04   5.141216E-06   1.340623E-03   6.074841E-03                  \r\n            22      G      1.194289E-01   3.597364E-03   1.185398E-04   9.558600E-06   1.837934E-03   7.063506E-03                  \r\n            23      G      2.631980E-02   3.278126E-03   2.919262E-04   3.626519E-06   1.884684E-05   1.072051E-03                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.977077E-04   5.716592E-04   3.568321E-03                  \r\n             2      G      1.005421E-02   5.746128E-02   2.237383E-02   3.498126E-04   5.716592E-04   6.857728E-03                  \r\n             3      G      3.660600E-01   6.380078E-02   2.534941E-02   3.190513E-04   5.039195E-05   7.402037E-03                  \r\n             4      G      1.393650E-02   5.651075E-02   6.013514E-03   1.539595E-04   7.974855E-04   7.436458E-03                  \r\n             5      G      0.0            0.0            0.0            1.954955E-04   7.974855E-04   3.747017E-03                  \r\n             6      G      9.336421E-03   4.732141E-01   9.967601E-03   8.240379E-04   4.886964E-04   9.165026E-03                  \r\n             7      G      4.692139E-01   4.912820E-01   3.456660E-02   2.705279E-04   1.506499E-04   1.867409E-03                  \r\n             8      G      3.671547E-01   4.878473E-01   2.566656E-02   5.788817E-04   6.875968E-05   8.233464E-03                  \r\n             9      G      3.029875E-01   4.935385E-01   7.957238E-03   7.627137E-04   2.677831E-04   3.872389E-03                  \r\n            10      G      1.292626E-02   4.822176E-01   3.810921E-02   9.065550E-04   6.067194E-04   9.235124E-03                  \r\n            11      G      6.693852E-03   6.569518E-01   2.458172E-02   7.297455E-04   1.150071E-04   7.357515E-03                  \r\n            12      G      2.310749E-01   6.497723E-01   7.538707E-03   5.683402E-04   7.370821E-05   3.734334E-03                  \r\n            13      G      3.637905E-01   6.324564E-01   1.407297E-02   3.708806E-04   2.104806E-04   5.709359E-03                  \r\n            14      G      2.177587E-01   6.432300E-01   1.777119E-02   8.870336E-04   1.792013E-04   9.365521E-03                  \r\n            15      G      1.074254E-02   6.477189E-01   4.917135E-02   9.000233E-04   4.621311E-04   7.477216E-03                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.001371E-03   5.813238E-02   8.281801E-03   1.733418E-04   3.009561E-04   4.909520E-03                  \r\n            18      G      1.960033E-01   9.530840E-02   8.080579E-03   2.334319E-04   2.611652E-03   3.767241E-03                  \r\n            19      G      2.346502E-01   9.615494E-02   3.845196E-03   3.789670E-04   3.620894E-03   3.818636E-03                  \r\n            20      G      3.616523E-01   9.797236E-02   7.341525E-03   1.464250E-04   2.049860E-04   8.631429E-03                  \r\n            21      G      2.333213E-01   9.191295E-02   5.847177E-03   2.188954E-04   1.040679E-03   9.374348E-03                  \r\n            22      G      9.412514E-02   7.974423E-02   4.287798E-03   2.577950E-04   1.450391E-03   8.466561E-03                  \r\n            23      G      5.637692E-03   5.990038E-02   8.121070E-03   1.103852E-04   4.938189E-04   4.486264E-03                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                            /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T03-13-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.589859E-02   1.745765E-02   1.016236E-04                  \r\n             2      G      1.823817E-04   4.278810E-04   2.143508E+00   3.698502E-02   1.745765E-02   1.931650E-04                  \r\n             3      G      5.732413E-03   7.000578E-04   3.827642E+00   7.229860E-03   1.722758E-02   2.070616E-04                  \r\n             4      G      1.256736E-04   4.347301E-04   2.061898E+00   3.610121E-02   2.054025E-02   2.077445E-04                  \r\n             5      G      0.0            0.0            0.0            4.450333E-02   2.054025E-02   1.038279E-04                  \r\n             6      G      1.713023E-04   1.443937E-02   1.642225E+00   3.279257E-02   1.659698E-02   2.955994E-04                  \r\n             7      G      8.381779E-03   1.466132E-02   3.100960E+00   7.375099E-03   1.853735E-02   2.938823E-05                  \r\n             8      G      5.742350E-03   1.459833E-02   3.012269E+00   1.031225E-02   1.917521E-02   2.637231E-04                  \r\n             9      G      3.895725E-03   1.469044E-02   2.610728E+00   2.242971E-02   1.889364E-02   6.550920E-05                  \r\n            10      G      1.150573E-04   1.454727E-02   1.832529E+00   3.552476E-02   1.883580E-02   2.944243E-04                  \r\n            11      G      1.164699E-04   2.202431E-02   1.024384E+00   2.074919E-02   1.291063E-02   2.335766E-04                  \r\n            12      G      4.477525E-03   2.185071E-02   1.231711E+00   1.597282E-02   1.596063E-02   5.194443E-05                  \r\n            13      G      5.685580E-03   2.137011E-02   1.440450E+00   7.717059E-03   2.376181E-02   1.722759E-04                  \r\n            14      G      1.813788E-03   2.175302E-02   1.219208E+00   2.055034E-02   1.739074E-02   1.853554E-04                  \r\n            15      G      9.619861E-05   2.192318E-02   1.134582E+00   2.400653E-02   1.613320E-02   2.189852E-04                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      7.044290E-05   2.431041E-03   2.281538E-01   3.297866E-03   9.886790E-03   1.593770E-04                  \r\n            18      G      2.728568E-03   4.879383E-03   1.414617E-01   5.256065E-03   2.992354E-03   6.663010E-05                  \r\n            19      G      3.334232E-03   5.114127E-03   5.613060E-02   3.694196E-03   2.643746E-04   4.145376E-05                  \r\n            20      G      5.653713E-03   5.390706E-03   1.280716E-01   3.893832E-03   2.436394E-02   2.667636E-04                  \r\n            21      G      4.144064E-03   5.933293E-03   1.508036E-01   5.389072E-03   6.734189E-03   1.960638E-04                  \r\n            22      G      1.456714E-03   5.632224E-03   1.027602E-01   6.774569E-03   2.040263E-04   1.708979E-04                  \r\n            23      G      6.291382E-05   3.740643E-03   1.616048E-01   2.219775E-03   1.006528E-02   1.473166E-04                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                         \r\n DATE:  5/18/95\r\n END TIME: 10:24:56\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t04021a.out",
    "content": "     NASTRAN FILES=NPTP                                                              \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T04021A,NASTRAN                                                           \r\n     DIAG   14                                                                       \r\n     TIME   10                                                                       \r\n     CHKPNT YES                                                                      \r\n     APP    DISP                                                                     \r\n     SOL    4,6                                                                      \r\n     ALTER  2,2 $                                                                    \r\n     ALTER  91 $                                                                     \r\n     CHKPNT   KDGG $                                                                 \r\n     EXIT $                                                                          \r\n     ENDALTER $                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE PUNCHED OUT FOR THIS PROBLEM\r\n0   RESTART   T04021A ,NASTRAN , 5/18/95,   37515,\r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM         \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1A                                   \r\n                  3      $ REFERENCE PROBLEM III.1                                                       \r\n                  4      SPC  = 10                                                                       \r\n                  5      LOAD = 10                                                                       \r\n                  6      DISP = ALL                                                                      \r\n                  7      SUBCASE 1                                                                       \r\n                  8        LABEL = STATIC SOLUTION                                                       \r\n                  9      SUBCASE 2                                                                       \r\n                 10        LABEL = DIFFERENTIAL STIFFNESS SOLUTION                                       \r\n                 11      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    16, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CQUAD2  101     100     101     102     106     105                             \r\n                    2-        CQUAD2  102     100     102     104     108     106                             \r\n                    3-        CQUAD2  103     100     104     103     107     108                             \r\n                    4-        CQUAD2  104     100     101     103     104     102                             \r\n                    5-        GRID    101             0.0     0.0     0.0                                     \r\n                    6-        GRID    102             6.0     0.0     0.0                                     \r\n                    7-        GRID    103             0.0     12.0    0.0                                     \r\n                    8-        GRID    104             6.0     12.0    0.0                                     \r\n                    9-        GRID    105             0.0     0.0     12.0                                    \r\n                   10-        GRID    106             6.0     0.0     12.0                                    \r\n                   11-        GRID    107             0.0     12.0    12.0                                    \r\n                   12-        GRID    108             6.0     12.0    12.0                                    \r\n                   13-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   14-        PLOAD2  10      1.0     101     THRU    104                                     \r\n                   15-        PQUAD2  100     100     .06                                                     \r\n                   16-        SPC1    10      12356   101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1995 $        \r\n\r\n       3  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/MINUS1=-1 $                                         \r\n\r\n       5  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       6  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       7  COND     ERROR3,NOGPDT $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      19  PRTMSG   PLOTX1// $                                                     \r\n\r\n      20  LABEL    P1 $                                                           \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $                       \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      22  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      23  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n\r\n      24  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      25  COND     ERROR1,NOSIMP $                                                \r\n\r\n      26  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/                           \r\n                   C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/     \r\n                   C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      28  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      36  LABEL    JMPMGG $                                                       \r\n\r\n      37  COND     LBL1,GRDPNT $                                                  \r\n\r\n      38  COND     ERROR4,NOMGG $                                                 \r\n\r\n      39  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      40  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      41  LABEL    LBL1 $                                                         \r\n\r\n      42  EQUIV    KGGX,KGG/NOGENL $                                              \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      43  COND     LBL11,NOGENL $                                                 \r\n\r\n      44  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      45  LABEL    LBL11 $                                                        \r\n\r\n      46  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      47  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      48  CASE     CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $                           \r\n\r\n      49  GP4      CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      50  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      51  COND     ERROR5,NOL $                                                   \r\n\r\n      52  COND     LBL4D,REACT $                                                  \r\n\r\n      53  JUMP     ERROR2 $                                                       \r\n\r\n      54  LABEL    LBL4D $                                                        \r\n\r\n      55  PURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG,           \r\n                   YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $                           \r\n\r\n      56  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      57  COND     LBL2,MPCF1 $                                                   \r\n\r\n      58  MCE1     USET,RG/GM $                                                   \r\n\r\n      59  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      60  LABEL    LBL2 $                                                         \r\n\r\n      61  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      62  COND     LBL3,SINGLE $                                                  \r\n\r\n      63  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  LABEL    LBL3 $                                                         \r\n\r\n      65  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      66  COND     LBL5,OMIT $                                                    \r\n\r\n      67  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      68  LABEL    LBL5 $                                                         \r\n\r\n      69  RBMG2    KAA/LLL $                                                      \r\n\r\n      70  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/     \r\n                   PG,,,,/LUSET/1/COMPS $                                         \r\n\r\n      71  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      72  COND     LBL10,NOSET $                                                  \r\n\r\n      73  SSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $                              \r\n\r\n      74  LABEL    LBL10 $                                                        \r\n\r\n      75  SSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n                   1/S,N,EPSI $                                                   \r\n\r\n      76  COND     LBL9,IRES $                                                    \r\n\r\n      77  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      78  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      79  LABEL    LBL9 $                                                         \r\n\r\n      80  SDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $       \r\n\r\n      81  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, \r\n                   PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/            \r\n                   *DS0*////COMPS $                                               \r\n\r\n      82  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n      83  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n\r\n      86  COND     P2,JUMPPLOT $                                                  \r\n\r\n      87  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      88  PRTMSG   PLOTX2// $                                                     \r\n\r\n      89  LABEL    P2 $                                                           \r\n\r\n      90  TA1      ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/     \r\n                   NOSIMP/0/NOGENL/GENEL $                                        \r\n\r\n      91  DSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/           \r\n                   DSCOSET $                                                      \r\n\r\n      91  CHKPNT   KDGG $                                                         \r\n\r\n      91  EXIT $                                                                  \r\n\r\n      92  PARAM    //*ADD*/SHIFT/-1/0 $                                           \r\n\r\n      93  PARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $                             \r\n\r\n      94  PARAMR   //*ADD*/DSEPSI/0.0/0.0 $                                       \r\n\r\n      95  PARAML   YS//*NULL*////NOYS $                                           \r\n\r\n      96  LABEL    OUTLPTOP $                                                     \r\n\r\n      97  EQUIV    PG,PG1/NOYS $                                                  \r\n\r\n      98  PARAM    //*KLOCK*/TO $                                                 \r\n\r\n      99  EQUIV    KDGG,KDNN/MPCF1 $                                              \r\n\r\n     100  COND     LBL2D,MPCF1 $                                                  \r\n\r\n     101  MCE2     USET,GM,KDGG,,,/KDNN,,, $                                      \r\n\r\n     102  LABEL    LBL2D $                                                        \r\n\r\n     103  EQUIV    KDNN,KDFF/SINGLE $                                             \r\n\r\n     104  COND     LBL3D,SINGLE $                                                 \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     105  SCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $                               \r\n\r\n     106  LABEL    LBL3D $                                                        \r\n\r\n     107  EQUIV    KDFF,KDAA/OMIT $                                               \r\n\r\n     108  COND     LBL5D,OMIT $                                                   \r\n\r\n     109  SMP2     USET,GO,KDFF/KDAA $                                            \r\n\r\n     110  LABEL    LBL5D $                                                        \r\n\r\n     111  ADD      KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $                            \r\n\r\n     112  ADD      KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $                            \r\n\r\n     113  ADD      KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $                            \r\n\r\n     114  COND     PGOK,NOYS $                                                    \r\n\r\n     115  MPYAD    KBSS,YS,/PSS/0/1/1/1 $                                         \r\n\r\n     116  MPYAD    KBFS,YS,/PFS/0/1/1/1 $                                         \r\n\r\n     117  UMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $                                  \r\n\r\n     118  EQUIV    PN,PGX/MPCF1 $                                                 \r\n\r\n     119  COND     LBL6D,MPCF1 $                                                  \r\n\r\n     120  UMERGE   USET,PN,/PGX/*G*/*N*/*M* $                                     \r\n\r\n     121  LABEL    LBL6D $                                                        \r\n\r\n     122  ADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $                              \r\n\r\n     123  EQUIV    PGG,PG1/ALWAYS $                                               \r\n\r\n     124  LABEL    PGOK $                                                         \r\n\r\n     125  ADD      PG1,/PG0/(1.0,0.0) $                                           \r\n\r\n     126  RBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $                                  \r\n\r\n     127  PRTPARM  //0/*DET* $                                                    \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     128  PRTPARM  //0/*POWER* $                                                  \r\n\r\n     129  LABEL    INLPTOP $                                                      \r\n\r\n     130  PARAM    //*KLOCK*/TI $                                                 \r\n\r\n     131  SSG2     USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $                         \r\n\r\n     132  SSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,          \r\n                   EPSI $                                                         \r\n\r\n     133  COND     LBL9D,IRES $                                                   \r\n\r\n     134  MATGPR   GPL,USET,SIL,RUBLV//*L* $                                      \r\n\r\n     135  LABEL    LBL9D $                                                        \r\n\r\n     136  SDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $        \r\n\r\n     137  ADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $                           \r\n\r\n     138  DSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/         \r\n                   DSCOSET $                                                      \r\n\r\n     139  MPYAD    DKDGG,UBGV,PG0/PGI1/0/1/1/0 $                                  \r\n\r\n     140  DSCHK    PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/        \r\n                   TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $                  \r\n\r\n     141  COND     DONE,DONE $                                                    \r\n\r\n     142  COND     SHIFT,SHIFT $                                                  \r\n\r\n     143  EQUIV    PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $                  \r\n\r\n     144  REPT     INLPTOP,1000 $                                                 \r\n\r\n     145  TABPT    PGI1,PG1,PG,,// $                                              \r\n\r\n     146  LABEL    SHIFT $                                                        \r\n\r\n     147  ADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $                        \r\n\r\n     148  EQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $                            \r\n\r\n     149  EQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $                              \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     150  REPT     OUTLPTOP,1000 $                                                \r\n\r\n     151  TABPT    KDGG1,KDGG,UGV,,// $                                           \r\n\r\n     152  LABEL    DONE $                                                         \r\n\r\n     153  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, \r\n                   PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/         \r\n                   *DS1*////COMPS $                                               \r\n\r\n     154  OFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $                       \r\n\r\n     155  OFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $                                \r\n\r\n     156  COND     P3,JUMPPLOT $                                                  \r\n\r\n     157  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,    \r\n                   OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,           \r\n                   PFILE $                                                        \r\n\r\n     158  PRTMSG   PLOTX3// $                                                     \r\n\r\n     159  LABEL    P3 $                                                           \r\n\r\n     160  JUMP     FINIS $                                                        \r\n\r\n     161  LABEL    ERROR1 $                                                       \r\n\r\n     162  PRTPARM  //-1/*DIFFSTIF* $                                              \r\n\r\n     163  LABEL    ERROR2 $                                                       \r\n\r\n     164  PRTPARM  //-2/*DIFFSTIF* $                                              \r\n\r\n     165  LABEL    ERROR3 $                                                       \r\n\r\n     166  PRTPARM  //-3/*DIFFSTIF* $                                              \r\n\r\n     167  LABEL    ERROR4 $                                                       \r\n\r\n     168  PRTPARM  //-4/*DIFFSTIF* $                                              \r\n\r\n     169  LABEL    ERROR5 $                                                       \r\n\r\n     170  PRTPARM  //-5/*DIFFSTIF* $                                              \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     173  END      $                                                              \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0                                                                                                                                   \r\n         CONTINUATION OF CHECKPOINT DICTIONARY\r\n \r\n         1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID      101\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK MGG      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.6989752E-16\r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      0.0            0.0            0.0           -7.671032E-07   0.0            0.0                           \r\n           102      G      2.224633E-05  -1.299485E-05  -4.611534E-05   8.379199E-07   8.715010E-06  -3.245583E-06                  \r\n           103      G      0.0            0.0            0.0            7.671032E-07   0.0            0.0                           \r\n           104      G      2.224633E-05   1.299485E-05  -4.611534E-05  -8.379199E-07   8.715010E-06   3.245583E-06                  \r\n           105      G      0.0            0.0            0.0           -3.946867E-07   0.0            0.0                           \r\n           106      G      5.633597E-05  -2.364832E-05  -4.450864E-05   1.616037E-06  -5.854478E-07  -3.669899E-06                  \r\n           107      G      0.0            0.0            0.0            3.946867E-07   0.0            0.0                           \r\n           108      G      5.633597E-05   2.364832E-05  -4.450864E-05  -1.616037E-06  -5.854478E-07   3.669899E-06                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM          /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T04-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0        ADDITIONS TO CHECKPOINT DICTIONARY                                                                                         \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n \r\n         2,   REENTER AT DMAP SEQUENCE NUMBER    92\r\n         3,   KDGG    ,   FLAGS = 0,   REEL =  1,   FILE =      7\r\n         4,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      8\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM       \r\n DATE:  5/18/95\r\n END TIME: 10:25:23\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t04021b.out",
    "content": "     NASTRAN FILES = OPTP                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T04021B,NASTRAN                                                           \r\n     $ INSERT CHECKPOINT DICTIONARY                                                  \r\n0*** $   ... READFILE FROM-  RSCARDS                                                 \r\n     RESTART  T04021A ,NASTRAN , 5/18/95,   37515,                                   \r\n              1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      6               \r\n              2,   REENTER AT DMAP SEQUENCE NUMBER    92                             \r\n              3,   KDGG    ,   FLAGS = 0,   REEL =  1,   FILE =      7               \r\n              4,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =      8               \r\n     $ END OF CHECKPOINT DICTIONARY                                                  \r\n0*** $   END READFILE                                                                \r\n     TIME  10                                                                        \r\n     APP   DISP                                                                      \r\n     SOL   3,0                                                                       \r\n     $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                     \r\n0*** $   ... READFILE FROM-  COSHYD1                                                 \r\n     $ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1)        \r\n     $ ALTER    1,1 $  COSMIC/NASTRAN RF 3.  REPLACING BEGIN                         \r\n     DELETE BEGIN $                                                                  \r\n     XDMAP    GO,ERR=2 $                                                             \r\n     BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                           \r\n     $ ALTER    3 $  AFTER PRECHK/FILE                                               \r\n     INSERT FILE $                                                                   \r\n     COMPOFF  NEWM,NEWMODE $                                                         \r\n     $ ALTER    46 $  AFTER OFP/COND/PURGE                                           \r\n     INSERT GP4,3 $                                                                  \r\n     FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF,         \r\n              DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                                  \r\n     VEC      USETF/PV1/*G*/*X*/*Y* $                                                \r\n     PARTN    KGG,PV1,/KXX,,,KYY $                                                   \r\n     PARTN    MGG,PV1,/MXX,,, $                                                      \r\n     PARTN    RG,PV1,/RX,,,/1 $                                                      \r\n     EQUIV    RX,RG $                                                                \r\n     PARTN    AF,PV1,/,,AXY,AYY $                                                    \r\n     COND     DIRECT1,NOGRAV $                                                       \r\n     PARTN    DKGG,PV1,/DKXX,,,DKYY $                                                \r\n     COND     DIRECT1,NOFREE $                                                       \r\n     VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                            \r\n     PARTN    AYY,,PV2/AFRY,,,/0 $                                                   \r\n     PARTN    DKYY,PV2,/DKFRFR,,, $                                                  \r\n     LABEL    DIRECT1 $                                                              \r\n     COMPOFF  NOSTRUC,OLDSTR $                                                       \r\n     COMPON   2,DIFSTIF $                                                            \r\n     PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                         \r\n     ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                                       \r\n     COMPOFF  1,DIFSTIF $                                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     EQUIV    KXX,KGG $                                                              \r\n     EQUIV    MXX,MGG $                                                              \r\n     $ ALTER    49,50 $  REPLACING MCE1, MCE2                                        \r\n     DELETE MCE1,MCE2 $                                                              \r\n     MCE1     USETS,RG/GM $                                                          \r\n     MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                         \r\n     $ ALTER    54,54 $  REPLACING SCE1                                              \r\n     DELETE SCE1 $                                                                   \r\n     SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                                       \r\n     $ ALTER    59,60 $  REPLACING SMP1, SMP2                                        \r\n     DELETE SMP1,SMP2 $                                                              \r\n     SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                     \r\n     SMP2     USETS,GO,MFF/MAA $                                                     \r\n     $ ALTER    61 $  ALTER LABEL LBL5                                               \r\n     INSERT SMP2,1 $                                                                 \r\n     LABEL    NOSTRUC $                                                              \r\n     PURGE    DKAA/NOGRAV $                                                          \r\n     COND     DIRECT4,NOGRAV $                                                       \r\n     EQUIV    DKXX,DKNN/MPCF1 $                                                      \r\n     COND     DIRECT2,MPCF2 $                                                        \r\n     MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                             \r\n     LABEL    DIRECT2 $                                                              \r\n     EQUIV    DKNN,DKFF/SINGLE $                                                     \r\n     COND     DIRECT3,SINGLE $                                                       \r\n     SCE1     USETS,DKNN,,,/DKFF,,,,, $                                              \r\n     LABEL    DIRECT3 $                                                              \r\n     EQUIV    DKFF,DKAA/OMIT $                                                       \r\n     COND     DIRECT4,OMIT $                                                         \r\n     SMP2     USETS,GO,DKFF/DKAA $                                                   \r\n     LABEL    DIRECT4 $                                                              \r\n     GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,            \r\n              MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $             \r\n     EQUIV    KMAT,KAA//MMAT,MAA $                                                   \r\n     $ ALTER    63,63 $  REPLACING RBMG1                                             \r\n     DELETE RBMG1 $                                                                  \r\n     RBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                                \r\n     $ ALTER    67 $  AFTER LABEL LBL6                                               \r\n     INSERT DPD,-1 $                                                                 \r\n     LABEL    NEWM $                                                                 \r\n     $ ALTER    68,68 $  REPLACING DPD                                               \r\n     DELETE DPD $                                                                    \r\n     DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/          \r\n              LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $         \r\n     $ ALTER    71,71 $  REPLACING READ                                              \r\n     DELETE READ $                                                                   \r\n     READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/             \r\n              S,N,NEIGV $                                                            \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ ALTER    75,75 $  REPLACING SDR1                                              \r\n     DELETE SDR1 $                                                                   \r\n     COND     NOCOMP,COMPTYP $                                                       \r\n     MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                                 \r\n     EQUIV    PHIAC,PHIA $                                                           \r\n     LABEL    NOCOMP $                                                               \r\n     MPYAD    GIA,PHIA,/PHII/0/1/0 $                                                 \r\n     EQUIV    PHII,PHIY/NOFREE $                                                     \r\n     COND     DIRECT5,NOFREE $                                                       \r\n     VEC      USETF/PV3/*A*/*COMP*/*FR* $                                            \r\n     PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                            \r\n     EQUIV    PHIAB,PHIA $                                                           \r\n     MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                             \r\n     LABEL    DIRECT5 $                                                              \r\n     SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                         \r\n     MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                              \r\n     MERGE    QX,,,,,PV1/QG/0 $                                                      \r\n     $ ALTER    77,77 $  REPLACING EQMCK                                             \r\n     DELETE EQMCK $                                                                  \r\n     EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/            \r\n              OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                          \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                    \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION =   4, NEW SOLUTION =   3, BIT NUMBER = 190\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                   \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1B                                   \r\n                  3      $ REFERENCE PROBLEM III.2                                                       \r\n                  4      DISP   = ALL                                                                    \r\n                  5      SPCF   = ALL                                                                    \r\n                  6      METHOD = 50                                                                     \r\n                  7      SPC    = 10                                                                     \r\n                  8      BEGIN BULK                                                                      \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              $                                                                                             \r\n                              $ *** NOTE - STRUCTURE BULK DATA IS ON RESTART TAPE                                           \r\n                              $                                                                                             \r\n                              GRID    1               0.0     0.0     0.0                                                   \r\n                              GRID    2               6.0     0.0     0.0                                                   \r\n                              GRID    3               0.0     12.0    0.0                                                   \r\n                              GRID    4               6.0     12.0    0.0                                                   \r\n                              GRID    5               0.0     0.0     12.0                                                  \r\n                              GRID    6               6.0     0.0     12.0                                                  \r\n                              GRID    7               0.0     12.0    12.0                                                  \r\n                              GRID    8               6.0     12.0    12.0                                                  \r\n                              CFHEX2  1       200     1       2       4       3       5       6       +C1                   \r\n                              +C1     8       7                                                                             \r\n                              CFFREE  1       100     6                                                                     \r\n                              CFLSTR  1       100     101     THRU    104                                                   \r\n                              MATF    200     9.355-4                                                                       \r\n                              OMIT1   4       101     103     105     107                                                   \r\n                              OMIT1   456     102     104     106     108                                                   \r\n                              GRAV    100             386.0   0.0     0.0     -1.0                                          \r\n                              EIGR    50      GIV     0.0     20.0    6       6       0               +E12                  \r\n                              +E12    MAX                                                                                   \r\n                              $                                                                                             \r\n                              $ PARAMETERS TO TRIGGER ADDITION OF ULLAGE PRESSURE                                           \r\n                              $                                                                                             \r\n                              PARAM   DIFSTIF -1                                                                            \r\n                              PARAM   DIFSCALE 14.7                                                                         \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     26\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CFFREE  1       100     6                                                       \r\n                    2-        CFHEX2  1       200     1       2       4       3       5       6       +C1     \r\n                    3-        +C1     8       7                                                               \r\n                    4-        CFLSTR  1       100     101     THRU    104                                     \r\n                    5-        CQUAD2  101     100     101     102     106     105                             \r\n                    6-        CQUAD2  102     100     102     104     108     106                             \r\n                    7-        CQUAD2  103     100     104     103     107     108                             \r\n                    8-        CQUAD2  104     100     101     103     104     102                             \r\n                    9-        EIGR    50      GIV     0.0     20.0    6       6       0               +E12    \r\n                   10-        +E12    MAX                                                                     \r\n                   11-        GRAV    100             386.0   0.0     0.0     -1.0                            \r\n                   12-        GRID    1               0.0     0.0     0.0                                     \r\n                   13-        GRID    2               6.0     0.0     0.0                                     \r\n                   14-        GRID    3               0.0     12.0    0.0                                     \r\n                   15-        GRID    4               6.0     12.0    0.0                                     \r\n                   16-        GRID    5               0.0     0.0     12.0                                    \r\n                   17-        GRID    6               6.0     0.0     12.0                                    \r\n                   18-        GRID    7               0.0     12.0    12.0                                    \r\n                   19-        GRID    8               6.0     12.0    12.0                                    \r\n                   20-        GRID    101             0.0     0.0     0.0                                     \r\n                   21-        GRID    102             6.0     0.0     0.0                                     \r\n                   22-        GRID    103             0.0     12.0    0.0                                     \r\n                   23-        GRID    104             6.0     12.0    0.0                                     \r\n                   24-        GRID    105             0.0     0.0     12.0                                    \r\n                   25-        GRID    106             6.0     0.0     12.0                                    \r\n                   26-        GRID    107             0.0     12.0    12.0                                    \r\n                   27-        GRID    108             6.0     12.0    12.0                                    \r\n                   28-        MAT1    100     10.6+6          .3      .92-3                                   \r\n                   29-        MATF    200     9.355-4                                                         \r\n                   30-        OMIT1   4       101     103     105     107                                     \r\n                   31-        OMIT1   456     102     104     106     108                                     \r\n                   32-        PARAM   DIFSCALE14.7                                                            \r\n                   33-        PARAM   DIFSTIF -1                                                              \r\n                   34-        PLOAD2  10      1.0     101     THRU    104                                     \r\n                   35-        PQUAD2  100     100     .06                                                     \r\n                   36-        SPC1    10      12356   101     103     105     107                             \r\n                              ENDDATA\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID FORMAT SWITCH.\r\n0*** USER INFORMATION MESSAGE. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING THIS RESTART ARE INDICATED BELOW.\r\n\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE CASE CONTROL DECK CHANGES\r\n -----------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED BIT POSITION\r\n\r\n    17\r\n                   4           METHOD$                62\r\n                  17           POUT$                  19\r\n0*** USER INFORMATION MESSAGE. EFFECTIVE BULK DATA DECK CHANGES\r\n --------------------------------\r\n\r\n\r\n MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED BIT POSITION\r\n\r\n     1\r\n                   1           GRID                    1\r\n     3\r\n                  23           EIGR                   61\r\n                  30           OMIT1                  11\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  XDMAP    GO,ERR=2 $                                                     \r\n+  +\r\n\r\n       1  BEGIN    HYDROELASTIC ANALYSIS - DIRECT FORMULATION $                   \r\n+  +\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n+  +\r\n\r\n       3  COMPOFF  NEWM,NEWMODE $                                                 \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n+  *\r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n+  *\r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n+  *\r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n+  *\r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n+  *\r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n+  *\r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n+  *\r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n+  *\r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n+  *\r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n+  *\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n+  *\r\n\r\n      20  LABEL    P1 $                                                           \r\n+  +\r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n+  *\r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n+  *\r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n+  *\r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n+  *\r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n+  *\r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n+  *\r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n+  *\r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n+  *\r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n+  *\r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n+  *\r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n+  +\r\n\r\n      32  COND     ERROR1,NOMGG $                                                 \r\n+  *\r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n+  *\r\n\r\n      34  PURGE    MDICT,MELM/ALWAYS $                                            \r\n+  *\r\n\r\n      35  COND     LGPWG,GRDPNT $                                                 \r\n+  *\r\n\r\n      36  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n+  *\r\n\r\n      37  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      38  LABEL    LGPWG $                                                        \r\n+  +\r\n\r\n      39  EQUIV    KGGX,KGG/NOGENL $                                              \r\n+  *\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      40  COND     LBL11,NOGENL $                                                 \r\n+  *\r\n\r\n      41  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n+  *\r\n\r\n      42  LABEL    LBL11 $                                                        \r\n+  +\r\n\r\n      43  GPSTGEN  KGG,SIL/GPST $                                                 \r\n+  *\r\n\r\n      44  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n+  *\r\n\r\n      45  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n+  *\r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      46  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      47  COND     ERROR3,NOL $                                                   \r\n+  *\r\n\r\n      48  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n+  *\r\n\r\n      48  FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/USETF,USETS,AF, \r\n+  *\r\n                   DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $                          \r\n+  *\r\n\r\n      48  VEC      USETF/PV1/*G*/*X*/*Y* $                                        \r\n+  *\r\n\r\n      48  PARTN    KGG,PV1,/KXX,,,KYY $                                           \r\n+  *\r\n\r\n      48  PARTN    MGG,PV1,/MXX,,, $                                              \r\n+  *\r\n\r\n      48  PARTN    RG,PV1,/RX,,,/1 $                                              \r\n+  *\r\n\r\n      48  EQUIV    RX,RG $                                                        \r\n+  *\r\n\r\n      48  PARTN    AF,PV1,/,,AXY,AYY $                                            \r\n+  *\r\n\r\n      48  COND     DIRECT1,NOGRAV $                                               \r\n+  *\r\n\r\n      48  PARTN    DKGG,PV1,/DKXX,,,DKYY $                                        \r\n+  *\r\n\r\n      48  COND     DIRECT1,NOFREE $                                               \r\n+  *\r\n\r\n      48  VEC      USETF/PV2/*Y*/*FR*/*COMP* $                                    \r\n+  *\r\n\r\n      48  PARTN    AYY,,PV2/AFRY,,,/0 $                                           \r\n+  *\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      48  PARTN    DKYY,PV2,/DKFRFR,,, $                                          \r\n+  *\r\n\r\n      48  LABEL    DIRECT1 $                                                      \r\n+  +\r\n\r\n      48  COMPOFF  NOSTRUC,OLDSTR $                                               \r\n\r\n      48  COMPON   2,DIFSTIF $                                                    \r\n\r\n      48  PARAMR   //*COMPLEX*//V,Y,DIFSCALE=1.0/0.0/DIFSCAL/// $                 \r\n+  *\r\n\r\n      48  ADD      KXX,KDGG/KGG/(1.0,0.0)/DIFSCAL $                               \r\n+  *\r\n\r\n      48  COMPOFF  1,DIFSTIF $                                                    \r\n\r\n      48  EQUIV    MXX,MGG $                                                      \r\n+  *\r\n\r\n      49  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n+  *\r\n\r\n      50  COND     LBL2,MPCF1 $                                                   \r\n+  *\r\n\r\n      52  MCE1     USETS,RG/GM $                                                  \r\n+  *\r\n\r\n      52  MCE2     USETS,GM,KGG,MGG,,/KNN,MNN,, $                                 \r\n+  *\r\n\r\n      53  LABEL    LBL2 $                                                         \r\n+  +\r\n\r\n      54  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n+  *\r\n\r\n      55  COND     LBL3,SINGLE $                                                  \r\n+  *\r\n\r\n      56  SCE1     USETS,KNN,MNN,,/KFF,KFS,,MFF,, $                               \r\n+  *\r\n\r\n      57  LABEL    LBL3  $                                                        \r\n+  +\r\n\r\n      58  EQUIV    KFF,KAA/OMIT $                                                 \r\n+  *\r\n\r\n      59  EQUIV    MFF,MAA/OMIT $                                                 \r\n+  *\r\n\r\n      60  COND     LBL5,OMIT $                                                    \r\n+  *\r\n\r\n      62  SMP1     USETS,KFF,,,/GO,KAA,KOO,LOO,,,,, $                             \r\n+  *\r\n\r\n      62  SMP2     USETS,GO,MFF/MAA $                                             \r\n+  *\r\n\r\n      63  LABEL    LBL5 $                                                         \r\n+  +\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  LABEL    NOSTRUC $                                                      \r\n+  +\r\n\r\n      63  PURGE    DKAA/NOGRAV $                                                  \r\n+  *\r\n\r\n      63  COND     DIRECT4,NOGRAV $                                               \r\n+  *\r\n\r\n      63  EQUIV    DKXX,DKNN/MPCF1 $                                              \r\n+  *\r\n\r\n      63  COND     DIRECT2,MPCF2 $                                                \r\n+  *\r\n\r\n      63  MCE2     USETS,GM,DKXX,,,/DKNN,,, $                                     \r\n+  *\r\n\r\n      63  LABEL    DIRECT2 $                                                      \r\n+  +\r\n\r\n      63  EQUIV    DKNN,DKFF/SINGLE $                                             \r\n+  *\r\n\r\n      63  COND     DIRECT3,SINGLE $                                               \r\n+  *\r\n\r\n      63  SCE1     USETS,DKNN,,,/DKFF,,,,, $                                      \r\n+  *\r\n\r\n      63  LABEL    DIRECT3 $                                                      \r\n+  +\r\n\r\n      63  EQUIV    DKFF,DKAA/OMIT $                                               \r\n+  *\r\n\r\n      63  COND     DIRECT4,OMIT $                                                 \r\n+  *\r\n\r\n      63  SMP2     USETS,GO,DKFF/DKAA $                                           \r\n+  *\r\n\r\n      63  LABEL    DIRECT4 $                                                      \r\n+  +\r\n\r\n      63  GFSMA    AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,,,/KMAT,    \r\n+  *\r\n                   MMAT,GIA,,HC/NOGRAV/NOFREE/V,Y,KCOMP/V,Y,COMPTYP/FORM=-1 $     \r\n\r\n      63  EQUIV    KMAT,KAA//MMAT,MAA $                                           \r\n+  *\r\n\r\n      64  COND     LBL6,REACT $                                                   \r\n+  *\r\n\r\n      65  RBMG1    USETF,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                        \r\n+  *\r\n\r\n      66  RBMG2    KLL/LLL $                                                      \r\n+  *\r\n\r\n      67  RBMG3    LLL,KLR,KRR/DM $                                               \r\n+  *\r\n\r\n      68  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n+  *\r\n\r\n      69  LABEL    LBL6 $                                                         \r\n+  +\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      69  LABEL    NEWM $                                                         \r\n+  +\r\n\r\n      70  DPD      DYNAMICS,GPL,SIL,USETF/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/  \r\n+  *\r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n+  *\r\n\r\n      71  COND     ERROR2,NOEED $                                                 \r\n+  *\r\n\r\n      72  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n+  *\r\n\r\n      73  READ     KAA,MAA,MR,DM,EED,USETF,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/     \r\n+  *\r\n                   S,N,NEIGV $                                                    \r\n+  *\r\n\r\n      74  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n+  *\r\n\r\n      75  COND     FINIS,NEIGV $                                                  \r\n+  *\r\n\r\n      76  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      77  COND     NOCOMP,COMPTYP $                                               \r\n+  *\r\n\r\n      77  MPYAD    HC,PHIA,/PHIAC/0/1/0 $                                         \r\n+  *\r\n\r\n      77  EQUIV    PHIAC,PHIA $                                                   \r\n+  *\r\n\r\n      77  LABEL    NOCOMP $                                                       \r\n+  +\r\n\r\n      77  MPYAD    GIA,PHIA,/PHII/0/1/0 $                                         \r\n+  *\r\n\r\n      77  EQUIV    PHII,PHIY/NOFREE $                                             \r\n+  *\r\n\r\n      77  COND     DIRECT5,NOFREE $                                               \r\n+  *\r\n\r\n      77  VEC      USETF/PV3/*A*/*COMP*/*FR* $                                    \r\n+  *\r\n\r\n      77  PARTN    PHIA,,PV3/PHIAB,PHIFR,,/0 $                                    \r\n+  *\r\n\r\n      77  EQUIV    PHIAB,PHIA $                                                   \r\n+  *\r\n\r\n      77  MERGE    PHIFR,PHII,,,,PV2/PHIY/0 $                                     \r\n+  *\r\n\r\n      77  LABEL    DIRECT5 $                                                      \r\n+  +\r\n\r\n      77  SDR1     USETS,,PHIA,,,GO,GM,,KFS,,/PHIX,,QX/1/*REIG* $                 \r\n+  *\r\n\r\n      77  MERGE    PHIX,PHIY,,,,PV1/PHIG/0 $                                      \r\n+  *\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      77  MERGE    QX,,,,,PV1/QG/0 $                                              \r\n+  *\r\n\r\n      78  COND     NOMPCF,GRDEQ $                                                 \r\n+  *\r\n\r\n      79  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USETS,KGG,GM,PHIG,LAMA,QG,CSTM/    \r\n+  *\r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      80  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n+  *\r\n\r\n      81  LABEL    NOMPCF $                                                       \r\n+  +\r\n\r\n      82  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n+  *\r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/                \r\n                   *REIG*////COMPS $                                              \r\n\r\n      83  OFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $                 \r\n+  *\r\n\r\n      84  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $               \r\n+  *\r\n\r\n      85  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $                                 \r\n+  *\r\n\r\n      86  GPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $ \r\n+  *\r\n\r\n      87  OFP      ONRGY1,,,,,//S,N,CARDNO $                                      \r\n+  *\r\n\r\n      88  PURGE    KDICT,KELM/ALWAYS $                                            \r\n+  *\r\n\r\n      89  COND     P2,JUMPPLOT $                                                  \r\n\r\n      90  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      91  PRTMSG   PLOTX2// $                                                     \r\n\r\n      92  LABEL    P2 $                                                           \r\n+  +\r\n\r\n      93  JUMP     FINIS $                                                        \r\n+  *\r\n\r\n      94  LABEL    ERROR1 $                                                       \r\n+  +\r\n\r\n      95  PRTPARM  //-1/*MODES* $                                                 \r\n+  *\r\n\r\n      96  LABEL    ERROR2 $                                                       \r\n+  +\r\n\r\n      97  PRTPARM  //-2/*MODES* $                                                 \r\n+  *\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      98  LABEL    ERROR3 $                                                       \r\n+  +\r\n\r\n      99  PRTPARM  //-3/*MODES* $                                                 \r\n+  *\r\n\r\n     100  LABEL    ERROR4 $                                                       \r\n+  +\r\n\r\n     101  PRTPARM  //-4/*MODES* $                                                 \r\n+  *\r\n\r\n     102  LABEL    FINIS $                                                        \r\n+  +\r\n\r\n     103  PURGE    DUMMY/ALWAYS $                                                 \r\n+  *\r\n\r\n     104  END      $                                                              \r\n+  *\r\n0\r\n0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESSED ONLY AT DMAP COMPILATION TIME.\r\n0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR EXECUTION IN THIS MODIFIED RESTART.\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO.  48\r\n     DATA BLOCK NAMED KGG      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO.  48\r\n     DATA BLOCK NAMED KGG      ALREADY APPEARED AS OUTPUT\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE USED TO INITIATE RESTART\r\n\r\n    FILE NAME  REEL NO.  FILE NO.\r\n\r\n     KDGG             1         7\r\n     XVPS             1         8\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             69\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.312\r\n                                        RMS WAVEFRONT    4.789\r\n                                        RMS BANDWIDTH    4.802\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE             64\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    4.000\r\n                                        RMS WAVEFRONT    4.444\r\n                                        RMS BANDWIDTH    4.444\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                         69        64\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.312     4.000\r\n                                        RMS WAVEFRONT (C-RMS)            4.789     4.444\r\n                                        RMS BANDWITCH (B-RMS)            4.802     4.444\r\n                                        NUMBER OF GRID POINTS (N)                     16\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 5\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                           7\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        47\r\n                                        MATRIX DENSITY, PERCENT                   42.969\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   4\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       9       2      16       3      11       4      10\r\n                         SEQGP          5      12       6      13       7      15       8      14\r\n                         SEQGP        101       2     102       4     103       5     104       6\r\n                         SEQGP        105       1     106       3     107       8     108       7\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** SYSTEM WARNING MESSAGE 2072, CARD TYPE     4802 NOT FOUND ON DATA BLOCK.  BIT POSITION =  48\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION FHEX2    ELEMENTS (ELEMENT TYPE  77) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID      101\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      DIFSCALE =  0.147000E+02  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      DIFSCAL  = ( 0.147000E+02, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      16, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        16\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .         6\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  0.00E+00\r\n\r\n                                                                            . . .         0\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .         0\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        16        2.806219E+02        1.675177E+01        2.666127E+00        3.088224E-02        8.666232E+00             \r\n        2        15        7.382172E+02        2.717015E+01        4.324264E+00        1.173061E-02        8.659735E+00             \r\n        3        14        7.383858E+02        2.717326E+01        4.324758E+00        1.173713E-02        8.666533E+00             \r\n        4        13        2.545082E+04        1.595331E+02        2.539049E+01        2.035502E-01        5.180520E+03             \r\n        5        12        2.906982E+06        1.704988E+03        2.713572E+02        4.583358E-03        1.332374E+04             \r\n        6        11        1.381452E+07        3.716789E+03        5.915453E+02        8.108597E-02        1.120164E+06             \r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.280622E+03    (CYCLIC FREQUENCY =  2.666127E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      5.848381E-04   5.849710E-04  -5.848380E-04  -5.849710E-04   9.995967E-01   1.000000E+00                  \r\n             7      S     -9.995967E-01  -1.000000E+00                                                                              \r\n           101      G      0.0            0.0            0.0            1.379551E-06   0.0            0.0                           \r\n           102      G     -1.412923E-06  -3.930039E-05  -3.891129E-05   1.542159E-05   5.761023E-06  -6.943920E-06                  \r\n           103      G      0.0            0.0            0.0            4.734099E-06   0.0            0.0                           \r\n           104      G      1.411803E-06  -3.929016E-05   3.890407E-05   5.996096E-06  -8.741978E-06  -5.965030E-06                  \r\n           105      G      0.0            0.0            0.0           -6.690103E-06   0.0            0.0                           \r\n           106      G      2.318525E-05  -1.696900E-04  -3.847788E-05   5.883698E-06   2.003878E-06  -1.457370E-05                  \r\n           107      G      0.0            0.0            0.0           -1.983469E-05   0.0            0.0                           \r\n           108      G     -2.318367E-05  -1.696899E-04   3.846712E-05   2.783856E-05   1.631826E-06  -7.122585E-06                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738217E+03    (CYCLIC FREQUENCY =  4.324264E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S      2.132984E-05  -2.126321E-05  -2.133024E-05   2.126329E-05   1.000000E+00  -9.989393E-01                  \r\n             7      S     -9.999883E-01   9.989277E-01                                                                              \r\n           101      G      0.0            0.0            0.0           -1.219099E-06   0.0            0.0                           \r\n           102      G      3.617451E-06   2.945981E-05   3.298810E-05  -1.424847E-05  -5.084546E-06   5.749286E-06                  \r\n           103      G      0.0            0.0            0.0           -4.174236E-06   0.0            0.0                           \r\n           104      G     -3.616507E-06   2.945093E-05  -3.298162E-05  -4.614913E-06   7.662463E-06   4.631578E-06                  \r\n           105      G      0.0            0.0            0.0            6.034433E-06   0.0            0.0                           \r\n           106      G     -2.226454E-05   1.494873E-04   3.407892E-05  -5.066187E-06  -2.490791E-06   1.250473E-05                  \r\n           107      G      0.0            0.0            0.0            1.707504E-05   0.0            0.0                           \r\n           108      G      2.226293E-05   1.494876E-04  -3.406946E-05  -2.560069E-05  -5.084866E-07   6.073706E-06                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738386E+03    (CYCLIC FREQUENCY =  4.324758E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.126892E-05   2.125084E-05  -2.126867E-05   2.125060E-05   9.999883E-01  -9.999408E-01                  \r\n             7      S      1.000000E+00  -9.999525E-01                                                                              \r\n           101      G      0.0            0.0            0.0           -2.623393E-07   0.0            0.0                           \r\n           102      G     -9.917669E-08   7.575648E-07   2.300655E-06  -8.609695E-07  -6.616570E-07   3.386609E-07                  \r\n           103      G      0.0            0.0            0.0            5.500867E-07   0.0            0.0                           \r\n           104      G     -9.928146E-08  -7.560362E-07   2.300581E-06   5.378189E-07  -6.211253E-07  -3.596390E-07                  \r\n           105      G      0.0            0.0            0.0            4.691360E-07   0.0            0.0                           \r\n           106      G     -1.795507E-05   8.431123E-06   5.472988E-06   6.177121E-08  -1.539532E-06   1.003611E-06                  \r\n           107      G      0.0            0.0            0.0           -1.653338E-06   0.0            0.0                           \r\n           108      G     -1.795518E-05  -8.431460E-06   5.472999E-06   1.431651E-06  -2.016961E-06  -7.765111E-07                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.254508E+05    (CYCLIC FREQUENCY =  2.539049E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -2.807235E-03  -2.826249E-03  -2.807233E-03  -2.826245E-03   9.961363E-01   1.000000E+00                  \r\n             7      S      9.961355E-01   9.999826E-01                                                                              \r\n           101      G      0.0            0.0            0.0            2.936447E-04   0.0            0.0                           \r\n           102      G     -3.016113E-03   1.495767E-03   5.455651E-03   2.827806E-04  -6.498147E-04   2.374478E-04                  \r\n           103      G      0.0            0.0            0.0           -2.214316E-04   0.0            0.0                           \r\n           104      G     -3.016353E-03  -1.495160E-03   5.454057E-03  -2.801699E-05  -9.046852E-04  -3.376306E-04                  \r\n           105      G      0.0            0.0            0.0            5.101847E-08   0.0            0.0                           \r\n           106      G     -8.900195E-04   3.490144E-05   4.025894E-03  -2.468982E-05   3.854627E-04  -5.110857E-05                  \r\n           107      G      0.0            0.0            0.0            7.325875E-06   0.0            0.0                           \r\n           108      G     -8.899153E-04  -2.983216E-05   4.024191E-03  -1.226114E-04   8.110397E-04   4.286862E-05                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.290698E+07    (CYCLIC FREQUENCY =  2.713572E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.776019E-04  -5.032963E-04   1.776236E-04   5.032759E-04   1.370764E-01   1.000000E+00                  \r\n             7      S     -1.371005E-01  -9.999939E-01                                                                              \r\n           101      G      0.0            0.0            0.0           -2.059499E-03   0.0            0.0                           \r\n           102      G     -1.981636E-02   1.119831E-01   7.081651E-02  -1.645892E-02  -8.381356E-03   1.438819E-02                  \r\n           103      G      0.0            0.0            0.0           -7.037432E-03   0.0            0.0                           \r\n           104      G      1.981732E-02   1.119654E-01  -7.080354E-02  -1.571058E-02   1.326267E-02   1.549676E-02                  \r\n           105      G      0.0            0.0            0.0            8.595600E-03   0.0            0.0                           \r\n           106      G     -1.081547E-02   2.562675E-01   5.556607E-02  -1.004320E-02   4.611591E-03   2.583029E-02                  \r\n           107      G      0.0            0.0            0.0            3.389536E-02   0.0            0.0                           \r\n           108      G      1.081271E-02   2.562617E-01  -5.554633E-02  -3.113751E-02  -1.212702E-02   1.318727E-02                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.138145E+08    (CYCLIC FREQUENCY =  5.915453E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      S     -1.224661E-03   1.207042E-03  -1.224537E-03   1.207394E-03   1.000000E+00   3.910146E-01                  \r\n             7      S      9.999042E-01   3.935071E-01                                                                              \r\n           101      G      0.0            0.0            0.0           -3.995494E-02   0.0            0.0                           \r\n           102      G      3.499810E-01  -1.789318E-01  -7.818092E-01  -3.466981E-02   9.652293E-02  -2.813455E-02                  \r\n           103      G      0.0            0.0            0.0            3.020714E-02   0.0            0.0                           \r\n           104      G      3.501158E-01   1.790554E-01  -7.815714E-01   3.513103E-03   1.285362E-01   4.073907E-02                  \r\n           105      G      0.0            0.0            0.0           -9.763774E-04   0.0            0.0                           \r\n           106      G      1.351255E-01  -4.944577E-03  -6.065949E-01   1.880844E-03  -4.906796E-02   7.917773E-03                  \r\n           107      G      0.0            0.0            0.0           -2.313321E-03   0.0            0.0                           \r\n           108      G      1.351088E-01   4.108442E-03  -6.062930E-01   1.437638E-02  -1.045315E-01  -6.501143E-03                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.280622E+03    (CYCLIC FREQUENCY =  2.666127E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      1.149116E+01   9.442273E+00   6.875922E+00   0.0           -2.289689E-03   9.602806E-03                  \r\n           103      G     -1.148944E+01   9.445481E+00  -6.875083E+00   0.0            4.182575E-03   1.300107E-02                  \r\n           105      G     -2.095879E+01   8.711622E-03   9.048681E+00   0.0            1.647883E-03   2.696416E-02                  \r\n           107      G      2.095707E+01   1.388792E-02  -9.049520E+00   0.0            1.028484E-03   1.825621E-02                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738217E+03    (CYCLIC FREQUENCY =  4.324264E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -1.281785E+01  -6.764985E+00  -5.511760E+00   0.0            1.597687E-03  -7.761177E-03                  \r\n           103      G      1.281632E+01  -6.767395E+00   5.511054E+00   0.0           -3.511535E-03  -1.012260E-02                  \r\n           105      G      1.960424E+01  -7.789910E-03  -7.730357E+00   0.0           -1.485655E-03  -2.393755E-02                  \r\n           107      G     -1.960256E+01  -1.217349E-02   7.731065E+00   0.0           -9.437014E-04  -1.619241E-02                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.738386E+03    (CYCLIC FREQUENCY =  4.324758E+00 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -4.238257E-01  -1.747972E-01   1.475495E+00   0.0            7.826900E-05  -1.289027E-04                  \r\n           103      G     -4.235089E-01   1.747240E-01   1.475332E+00   0.0            2.783501E-04   1.597925E-04                  \r\n           105      G      1.285788E+01  -4.879394E-04  -1.193121E+00   0.0           -7.212317E-05  -1.416863E-03                  \r\n           107      G      1.285787E+01   6.400240E-04  -1.193362E+00   0.0            8.546449E-05   2.164045E-04                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.254508E+05    (CYCLIC FREQUENCY =  2.539049E+01 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      3.867885E+03  -4.977713E+01  -1.260130E+03   0.0            9.716461E-01  -3.564660E-01                  \r\n           103      G      3.868300E+03   4.973099E+01  -1.259971E+03   0.0            7.794044E-01   3.800184E-01                  \r\n           105      G      1.276842E+03   1.766166E-02  -1.319576E+03   0.0            7.238353E-03  -4.979845E-02                  \r\n           107      G      1.276561E+03   2.635394E-02  -1.319497E+03   0.0           -7.610356E-02   9.000003E-02                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.290698E+07    (CYCLIC FREQUENCY =  2.713572E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G      7.074962E+03  -2.982191E+04  -1.627421E+04   0.0            7.496027E+00  -2.145346E+01                  \r\n           103      G     -7.076127E+03  -2.983088E+04   1.627210E+04   0.0           -7.896990E+00  -3.309230E+01                  \r\n           105      G      1.608620E+04  -1.187400E+01  -1.574764E+04   0.0           -2.129232E+00  -3.874075E+01                  \r\n           107      G     -1.608297E+04  -2.153847E+01   1.574840E+04   0.0           -1.212483E+00  -2.638585E+01                  \r\n1     HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                    /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T04-02-1B                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.138145E+08    (CYCLIC FREQUENCY =  5.915453E+02 HZ)\r\n\r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n           101      G     -4.322677E+05   7.078621E+03   1.789997E+05   0.0           -1.346045E+02   4.155194E+01                  \r\n           103      G     -4.324502E+05  -7.132312E+03   1.789770E+05   0.0           -1.122838E+02  -4.549442E+01                  \r\n           105      G     -1.885343E+05  -2.404517E+00   1.869510E+05   0.0           -7.659142E-01   6.809124E+00                  \r\n           107      G     -1.884889E+05  -3.710195E+00   1.869389E+05   0.0            7.256309E+00  -9.445900E+00                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                 \r\n DATE:  5/18/95\r\n END TIME: 10:26: 8\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t05031a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T05031A,NASTRAN                                                           \r\n     SOL   5,0                                                                       \r\n     APP   DISP                                                                      \r\n     TIME  200                                                                       \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T05-03-1A                                   \r\n                  3      STRESS   = ALL                                                                  \r\n                  4      DISP     = ALL                                                                  \r\n                  5      OLOAD    = ALL                                                                  \r\n                  6      SUBCASE 1                                                                       \r\n                  7        LABEL = STATIC SOLUTION                                                       \r\n                  8        LOAD  = 4                                                                     \r\n                  9        TEMP(LOAD)=3                                                                  \r\n                 10      SUBCASE 2                                                                       \r\n                 11        LABEL = BUCKLING SOLUTION                                                     \r\n                 12        METHOD= 1                                                                     \r\n                 13      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    49, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CIS2D8  1       1       1       7       9       3       4       8       +C1     \r\n                    2-        +C1     6       2       3                                                       \r\n                    3-        CIS2D8  2       1       7       13      15      9       10      14      +C2     \r\n                    4-        +C2     12      8       3                                                       \r\n                    5-        CIS2D8  3       1       13      19      21      15      16      20      +C3     \r\n                    6-        +C3     18      14      3                                                       \r\n                    7-        CIS2D8  4       1       19      25      27      21      22      26      +C4     \r\n                    8-        +C4     24      20      3                                                       \r\n                    9-        CIS2D8  5       1       25      31      33      27      28      32      +C5     \r\n                   10-        +C5     30      26      3                                                       \r\n                   11-        EIGB    1       INV     5.      10.     1       1       0               +EIGB   \r\n                   12-        +EIGB   MAX                                                                     \r\n                   13-        FORCE   1       31      0       166.6667-1.     0.      0.                      \r\n                   14-        FORCE   1       32      0       666.6666-1.     0.      0.                      \r\n                   15-        FORCE   1       33      0       166.6667-1.     0.      0.                      \r\n                   16-        GRAV    2               5.      0.      1.      0.                              \r\n                   17-        GRDSET                                                  3456                    \r\n                   18-        GRID    1               0.      0.                      123456                  \r\n                   19-        GRID    2               0.      .5                      123456                  \r\n                   20-        GRID    3               0.      1.                      123456                  \r\n                   21-        GRID    4               1.      0.                                              \r\n                   22-        GRID    6               1.      1.                                              \r\n                   23-        GRID    7               2.      0.                                              \r\n                   24-        GRID    8               2.      .5                                              \r\n                   25-        GRID    9               2.      1.                                              \r\n                   26-        GRID    10              3.      0.                                              \r\n                   27-        GRID    12              3.      1.                                              \r\n                   28-        GRID    13              4.      0.                                              \r\n                   29-        GRID    14              4.      .5                                              \r\n                   30-        GRID    15              4.      1.                                              \r\n                   31-        GRID    16              5.      0.                                              \r\n                   32-        GRID    18              5.      1.                                              \r\n                   33-        GRID    19              6.      0.                                              \r\n                   34-        GRID    20              6.      .5                                              \r\n                   35-        GRID    21              6.      1.                                              \r\n                   36-        GRID    22              7.      0.                                              \r\n                   37-        GRID    24              7.      1.                                              \r\n                   38-        GRID    25              8.      0.                                              \r\n                   39-        GRID    26              8.      .5                                              \r\n                   40-        GRID    27              8.      1.                                              \r\n                   41-        GRID    28              9.      0.                                              \r\n                   42-        GRID    30              9.      1.                                              \r\n                   43-        GRID    31              10.     0.                                              \r\n                   44-        GRID    32              10.     .5                                              \r\n                   45-        GRID    33              10.     1.                                              \r\n                   46-        LOAD    4       1.      1.      1       1.      2                               \r\n                   47-        MAT1    1       3.+7            .3      7.324-4 .001    5.                      \r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        PIS2D8  1       1       .1                                                      \r\n                   49-        TEMPD   3       20.                                                             \r\n                              ENDDATA\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            156\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    5.571\r\n                                        RMS WAVEFRONT    5.868\r\n                                        RMS BANDWIDTH    5.868\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            8\r\n                                        PROFILE            156\r\n                                        MAX WAVEFRONT        8\r\n                                        AVG WAVEFRONT    5.571\r\n                                        RMS WAVEFRONT    5.868\r\n                                        RMS BANDWIDTH    5.868\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        8         8\r\n                                        PROFILE (P)                        156       156\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            8         8\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.571     5.571\r\n                                        RMS WAVEFRONT (C-RMS)            5.868     5.868\r\n                                        RMS BANDWITCH (B-RMS)            5.868     5.868\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                 5\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                          12\r\n                                        MINIMUM NODAL DEGREE                           7\r\n                                        NUMBER OF UNIQUE EDGES                       128\r\n                                        MATRIX DENSITY, PERCENT                   36.224\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION IS2D8    ELEMENTS (ELEMENT TYPE  80) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -2.0645820E-15\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      1.622962E-02  -8.120386E-03   0.0            0.0            0.0            0.0                           \r\n             6      G      1.622911E-02   8.120960E-03   0.0            0.0            0.0            0.0                           \r\n             7      G      3.043082E-02  -6.760248E-03   0.0            0.0            0.0            0.0                           \r\n             8      G      3.060163E-02   1.034503E-06   0.0            0.0            0.0            0.0                           \r\n             9      G      3.042986E-02   6.762360E-03   0.0            0.0            0.0            0.0                           \r\n            10      G      4.532645E-02  -7.622790E-03   0.0            0.0            0.0            0.0                           \r\n            12      G      4.532513E-02   7.627225E-03   0.0            0.0            0.0            0.0                           \r\n            13      G      6.000895E-02  -7.467928E-03   0.0            0.0            0.0            0.0                           \r\n            14      G      5.998284E-02   3.694906E-06   0.0            0.0            0.0            0.0                           \r\n            15      G      6.000734E-02   7.475333E-03   0.0            0.0            0.0            0.0                           \r\n            16      G      7.468224E-02  -7.548220E-03   0.0            0.0            0.0            0.0                           \r\n            18      G      7.468044E-02   7.559077E-03   0.0            0.0            0.0            0.0                           \r\n            19      G      8.933464E-02  -7.533899E-03   0.0            0.0            0.0            0.0                           \r\n            20      G      8.934185E-02   7.323888E-06   0.0            0.0            0.0            0.0                           \r\n            21      G      8.933268E-02   7.548556E-03   0.0            0.0            0.0            0.0                           \r\n            22      G      1.040063E-01  -7.542063E-03   0.0            0.0            0.0            0.0                           \r\n            24      G      1.040043E-01   7.560754E-03   0.0            0.0            0.0            0.0                           \r\n            25      G      1.186756E-01  -7.537853E-03   0.0            0.0            0.0            0.0                           \r\n            26      G      1.186726E-01   1.143702E-05   0.0            0.0            0.0            0.0                           \r\n            27      G      1.186735E-01   7.560730E-03   0.0            0.0            0.0            0.0                           \r\n            28      G      1.333415E-01  -7.536254E-03   0.0            0.0            0.0            0.0                           \r\n            30      G      1.333394E-01   7.563390E-03   0.0            0.0            0.0            0.0                           \r\n            31      G      1.480072E-01  -7.534420E-03   0.0            0.0            0.0            0.0                           \r\n            32      G      1.480072E-01   1.571354E-05   0.0            0.0            0.0            0.0                           \r\n            33      G      1.480051E-01   7.565848E-03   0.0            0.0            0.0            0.0                           \r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.071429E+04  -2.142858E+04   0.0            0.0            0.0            0.0                           \r\n             2      G     -4.285715E+04  -3.662117E-03   0.0            0.0            0.0            0.0                           \r\n             3      G     -1.071429E+04   2.142858E+04   0.0            0.0            0.0            0.0                           \r\n             4      G     -7.812500E-04  -8.571430E+04   0.0            0.0            0.0            0.0                           \r\n             6      G      1.562500E-03   8.571430E+04   0.0            0.0            0.0            0.0                           \r\n             7      G     -9.765625E-04  -4.285715E+04   0.0            0.0            0.0            0.0                           \r\n             8      G      0.0           -6.542983E-03   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.929688E-03   4.285716E+04   0.0            0.0            0.0            0.0                           \r\n            10      G     -7.812500E-04  -8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            12      G      1.562500E-03   8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            13      G     -9.765625E-04  -4.285715E+04   0.0            0.0            0.0            0.0                           \r\n            14      G      0.0           -6.542983E-03   0.0            0.0            0.0            0.0                           \r\n            15      G     -2.929688E-03   4.285716E+04   0.0            0.0            0.0            0.0                           \r\n            16      G     -7.812500E-04  -8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            18      G      1.562500E-03   8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            19      G     -9.765625E-04  -4.285715E+04   0.0            0.0            0.0            0.0                           \r\n            20      G      0.0           -6.542983E-03   0.0            0.0            0.0            0.0                           \r\n            21      G     -2.929688E-03   4.285716E+04   0.0            0.0            0.0            0.0                           \r\n            22      G     -7.812500E-04  -8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            24      G      1.562500E-03   8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            25      G     -9.765625E-04  -4.285715E+04   0.0            0.0            0.0            0.0                           \r\n            26      G      0.0           -6.542983E-03   0.0            0.0            0.0            0.0                           \r\n            27      G     -2.929688E-03   4.285716E+04   0.0            0.0            0.0            0.0                           \r\n            28      G     -7.812500E-04  -8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            30      G      1.562500E-03   8.571430E+04   0.0            0.0            0.0            0.0                           \r\n            31      G      1.054762E+04  -2.142858E+04   0.0            0.0            0.0            0.0                           \r\n            32      G      4.219048E+04  -2.880867E-03   0.0            0.0            0.0            0.0                           \r\n            33      G      1.054762E+04   2.142858E+04   0.0            0.0            0.0            0.0                           \r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                            G R I D   P O I N T   S T R E S S E S   F O R   I S 2 D 8   E L E M E N T S\r\n\r\n  ELEMENT   NO.OF    NO.OF       GRID   COORD.\r\n    ID.    GRID PTS. STRESSES   POINT  SYS ID.     SIG-X        SIG-Y        TAU-XY\r\n        1    8          3          1        0  -7.4379E+04  -4.7231E+05  -1.4839E+05                                                \r\n                                   7        0  -7.4382E+04  -6.6640E+04   7.8283E+04                                                \r\n                                   9        0  -7.4395E+04  -6.6639E+04  -7.8282E+04                                                \r\n                                   3        0  -7.4397E+04  -4.7232E+05   1.4839E+05                                                \r\n                                   4        0   1.9378E+04   4.3052E+04  -3.5054E+04                                                \r\n                                   8        0  -7.1565E+04  -6.5793E+04   4.2936E-01                                                \r\n                                   6        0   1.9363E+04   4.3050E+04   3.5055E+04                                                \r\n                                   2        0  -7.1565E+04  -4.7147E+05   4.0919E-01                                                \r\n        2    8          3          7        0  -1.4540E+04  -4.8686E+04  -7.9277E+03                                                \r\n                                  13        0  -1.4542E+04  -6.0655E+03   6.4699E+03                                                \r\n                                  15        0  -1.4550E+04  -6.0660E+03  -6.4695E+03                                                \r\n                                   9        0  -1.4551E+04  -4.8685E+04   7.9278E+03                                                \r\n                                  10        0  -4.4818E+03   6.1540E+03  -7.2941E+02                                                \r\n                                  14        0  -1.7786E+04  -7.0383E+03   5.9389E-01                                                \r\n                                  12        0  -4.4916E+03   6.1546E+03   7.2981E+02                                                \r\n                                   8        0  -1.7787E+04  -4.9658E+04   5.7371E-01                                                \r\n        3    8          3         13        0  -1.0988E+04  -4.9995E+03  -2.6590E+03                                                \r\n                                  19        0  -1.0989E+04  -8.2336E+02   1.0665E+03                                                \r\n                                  21        0  -1.0993E+04  -8.2361E+02  -1.0657E+03                                                \r\n                                  15        0  -1.0994E+04  -4.9994E+03   2.6585E+03                                                \r\n                                  16        0  -1.0054E+04   2.0185E+02  -7.9604E+02                                                \r\n                                  20        0  -1.0439E+04  -6.5801E+02   2.7277E-01                                                \r\n                                  18        0  -1.0060E+04   2.0169E+02   7.9704E+02                                                \r\n                                  14        0  -1.0439E+04  -4.8339E+03   3.3328E-01                                                \r\n        4    8          3         19        0  -9.9686E+03  -5.1721E+02   1.9032E+02                                                \r\n                                  25        0  -9.9689E+03  -3.3626E+01   3.4794E+00                                                \r\n                                  27        0  -9.9722E+03  -3.3113E+01  -2.5594E+00                                                \r\n                                  21        0  -9.9735E+03  -5.1742E+02  -1.8931E+02                                                \r\n                                  22        0  -9.8464E+03   1.2999E+02   9.6759E+01                                                \r\n                                  26        0  -1.0138E+04  -8.3805E+01   2.1687E-01                                                \r\n                                  24        0  -9.8484E+03   1.3007E+02  -9.7051E+01                                                \r\n                                  20        0  -1.0136E+04  -5.6728E+02   2.9756E-01                                                \r\n        5    8          3         25        0  -1.0034E+04  -5.3253E+01  -1.0027E+02                                                \r\n                                  31        0  -1.0033E+04  -1.9159E+00   4.5140E+01                                                \r\n                                  33        0  -1.0034E+04  -2.3931E+00  -4.5388E+01                                                \r\n                                  27        0  -1.0036E+04  -5.3313E+01   9.8891E+01                                                \r\n                                  28        0  -1.0032E+04  -2.0271E+01  -2.5788E+01                                                \r\n                                  32        0  -9.9853E+03   1.2219E+01   2.5413E-01                                                \r\n                                  30        0  -1.0033E+04  -2.0271E+01   2.7788E+01                                                \r\n                                  26        0  -9.9860E+03  -3.7969E+01   9.2760E-02                                                \r\n                        1 ROOTS BELOW   7.500000E+00\r\n                        1 ROOTS BELOW   6.144206E+00\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         1\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         2\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .         6\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         6*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                       NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND   *\r\n                                     *  AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX  *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         1        6.144206E+00        2.478751E+00        3.945054E-01        0.0                 0.0                      \r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0     BUCKLING SOLUTION                                                                                      SUBCASE 2              \r\n      EIGENVALUE =  0.614421E+01    (CYCLIC FREQUENCY =  3.945054E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      1.142272E-02   1.143644E-02   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.142272E-02   1.143643E-02   0.0            0.0            0.0            0.0                           \r\n             7      G      2.401594E-02   4.746133E-02   0.0            0.0            0.0            0.0                           \r\n             8      G      4.186586E-09   4.628003E-02   0.0            0.0            0.0            0.0                           \r\n             9      G     -2.401593E-02   4.746133E-02   0.0            0.0            0.0            0.0                           \r\n            10      G      3.548542E-02   1.072188E-01   0.0            0.0            0.0            0.0                           \r\n            12      G     -3.548540E-02   1.072188E-01   0.0            0.0            0.0            0.0                           \r\n            13      G      4.618458E-02   1.893064E-01   0.0            0.0            0.0            0.0                           \r\n            14      G      1.536467E-08   1.886283E-01   0.0            0.0            0.0            0.0                           \r\n            15      G     -4.618455E-02   1.893063E-01   0.0            0.0            0.0            0.0                           \r\n            16      G      5.533467E-02   2.914981E-01   0.0            0.0            0.0            0.0                           \r\n            18      G     -5.533463E-02   2.914981E-01   0.0            0.0            0.0            0.0                           \r\n            19      G      6.347162E-02   4.110737E-01   0.0            0.0            0.0            0.0                           \r\n            20      G      3.167445E-08   4.105061E-01   0.0            0.0            0.0            0.0                           \r\n            21      G     -6.347156E-02   4.110737E-01   0.0            0.0            0.0            0.0                           \r\n            22      G      6.972521E-02   5.451127E-01   0.0            0.0            0.0            0.0                           \r\n            24      G     -6.972514E-02   5.451127E-01   0.0            0.0            0.0            0.0                           \r\n            25      G      7.462218E-02   6.903621E-01   0.0            0.0            0.0            0.0                           \r\n            26      G      3.522299E-08   6.900859E-01   0.0            0.0            0.0            0.0                           \r\n            27      G     -7.462211E-02   6.903621E-01   0.0            0.0            0.0            0.0                           \r\n            28      G      7.728466E-02   8.432436E-01   0.0            0.0            0.0            0.0                           \r\n            30      G     -7.728458E-02   8.432436E-01   0.0            0.0            0.0            0.0                           \r\n            31      G      7.847647E-02   1.000000E+00   0.0            0.0            0.0            0.0                           \r\n            32      G      5.245840E-08   9.999753E-01   0.0            0.0            0.0            0.0                           \r\n            33      G     -7.847636E-02   1.000000E+00   0.0            0.0            0.0            0.0                           \r\n1     BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T05-03-1A                                                                                            \r\n0     BUCKLING SOLUTION                                                                                      SUBCASE 2              \r\n      EIGENVALUE =  0.614421E+01    (CYCLIC FREQUENCY =  3.945054E-01 HZ)\r\n\r\n                            G R I D   P O I N T   S T R E S S E S   F O R   I S 2 D 8   E L E M E N T S\r\n\r\n  ELEMENT   NO.OF    NO.OF       GRID   COORD.\r\n    ID.    GRID PTS. STRESSES   POINT  SYS ID.     SIG-X        SIG-Y        TAU-XY\r\n        1    8          3          1        0   3.5728E+05   1.0718E+05  -9.8976E+03                                                \r\n                                   7        0   3.8772E+05  -2.5439E+04   3.3143E+03                                                \r\n                                   9        0  -3.8772E+05   2.5441E+04   3.3146E+03                                                \r\n                                   3        0  -3.5728E+05  -1.0718E+05  -9.8978E+03                                                \r\n                                   4        0   3.7250E+05   4.0871E+04   1.0214E+04                                                \r\n                                   8        0   8.3643E-02  -4.8486E-02  -3.5008E+03                                                \r\n                                   6        0  -3.7250E+05  -4.0872E+04   1.0214E+04                                                \r\n                                   2        0   2.3128E-02   1.2029E-02  -1.6713E+04                                                \r\n        2    8          3          7        0   3.4408E+05  -3.8535E+04   6.4677E+03                                                \r\n                                  13        0   3.1320E+05   1.2593E+04   1.0194E+04                                                \r\n                                  15        0  -3.1320E+05  -1.2593E+04   1.0193E+04                                                \r\n                                   9        0  -3.4408E+05   3.8530E+04   6.4680E+03                                                \r\n                                  10        0   3.2864E+05  -1.2970E+04  -5.5734E+02                                                \r\n                                  14        0   7.1300E-03  -5.2830E-01   1.3097E+04                                                \r\n                                  12        0  -3.2864E+05   1.2971E+04  -5.5730E+02                                                \r\n                                   8        0  -1.1390E-01   2.7856E-01   9.3715E+03                                                \r\n        3    8          3         13        0   2.9153E+05   6.0868E+03   1.3046E+04                                                \r\n                                  19        0   2.2910E+05   6.0880E+02   1.5280E+04                                                \r\n                                  21        0  -2.2909E+05  -6.1117E+02   1.5281E+04                                                \r\n                                  15        0  -2.9152E+05  -6.0919E+03   1.3045E+04                                                \r\n                                  16        0   2.6031E+05   3.3579E+03   2.4737E+03                                                \r\n                                  20        0   5.2252E-01  -7.5979E-02   1.5920E+04                                                \r\n                                  18        0  -2.6031E+05  -3.3578E+03   2.4739E+03                                                \r\n                                  14        0  -4.4572E-01  -7.5979E-02   1.3683E+04                                                \r\n        4    8          3         19        0   2.0607E+05  -6.2916E+03   1.7198E+04                                                \r\n                                  25        0   1.2815E+05   5.3079E+03   1.8582E+04                                                \r\n                                  27        0  -1.2815E+05  -5.3076E+03   1.8581E+04                                                \r\n                                  21        0  -2.0606E+05   6.2869E+03   1.7199E+04                                                \r\n                                  22        0   1.6711E+05  -4.8972E+02   2.2367E+03                                                \r\n                                  26        0   7.1814E-02  -8.0213E-01   2.0259E+04                                                \r\n                                  24        0  -1.6711E+05   4.9660E+02   2.2365E+03                                                \r\n                                  20        0   7.1731E-01   4.8886E-01   1.8881E+04                                                \r\n        5    8          3         25        0   1.0110E+05  -2.8256E+03   1.9612E+04                                                \r\n                                  31        0   1.4077E+04   1.2631E+03   2.0086E+04                                                \r\n                                  33        0  -1.4069E+04  -1.2572E+03   2.0088E+04                                                \r\n                                  27        0  -1.0108E+05   2.7974E+03   1.9612E+04                                                \r\n                                  28        0   5.7582E+04  -7.7448E+02   2.8809E+03                                                \r\n                                  32        0  -2.2609E-01  -1.6530E+00   2.1540E+04                                                \r\n                                  30        0  -5.7581E+04   7.7471E+02   2.8806E+03                                                \r\n                                  26        0   1.0649E+00  -3.6202E-01   2.1063E+04                                                \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                            \r\n DATE:  5/18/95\r\n END TIME: 10:26:54\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t08021a.out",
    "content": "     NASTRAN FILES = PLT2                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T08021A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   8                                                                         \r\n     DIAG  14                                                                        \r\n     TIME  50                                                                        \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  COSDFVA                                                 \r\n     $ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA)                  \r\n     $ ALTER    3 $                                                                  \r\n     INSERT FILE $                                                                   \r\n     FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                                     \r\n     $ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX.                               \r\n     COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.                      \r\n     COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.                       \r\n     PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                                      \r\n     COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.                  \r\n     PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                         \r\n     PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                                     \r\n     COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                                \r\n     $ SET DEFAULTS FOR PARAMETERS.                                                  \r\n     PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                                  \r\n     $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS.              \r\n     PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                                 \r\n     PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                           \r\n     PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                                       \r\n     $ GENERATE NORPS FLAG IF RPS IS ZERO.                                           \r\n     PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                                       \r\n     $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED.                             \r\n     PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                                      \r\n     COND     ERRORC2,NOLUMP $                                                       \r\n     $ ALTER    21,21 $  ADD SLT TO OUTPUT FOR TRLG.                                 \r\n     DELETE GP3 $                                                                    \r\n     GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                               \r\n     $ ALTER    24 $                                                                 \r\n     INSERT TA1,2 $                                                                  \r\n     $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT            \r\n     $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION.                      \r\n     $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2.                                       \r\n     PARAM    //*MPY*/NSKIP /0/0 $                                                   \r\n     GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/           \r\n              S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/           \r\n              S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $         \r\n     PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                          \r\n     $ SUPORT BULK DATA IS NOT ALLOWED.                                              \r\n     PARAM    //*NOT*/REACDATA /REACT $                                              \r\n     COND     ERRORC3,REACDATA $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS.         \r\n     DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,          \r\n              TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/              \r\n              S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                           \r\n     $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA.                                     \r\n     PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                          \r\n     COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                           \r\n     $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL                        \r\n     PARAML   CASECC //*TABLE1*/1/14//FREQSET $                                      \r\n     PARAML   CASECC //*TABLE1*/1/38//TIMESET $                                      \r\n     PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                                   \r\n     PARAM    //*NOT*/FTERR1 /FREQTIME $                                             \r\n     PARAM    //*LE*/NOFREQ /FREQSET /0 $                                            \r\n     PARAM    //*LE*/NOTIME /TIMESET /0 $                                            \r\n     COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.            \r\n     $ EPOINT BULK DATA NOT ALLOWED                                                  \r\n     PARAM    //*NOT*/EXTRAPTS /NOUE $                                               \r\n     COND     ERRORC4,EXTRAPTS $                                                     \r\n     $ GENERATE DATA FOR CYCT2 MODULE.                                               \r\n     GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                        \r\n     COND     ERRORC1,NOGO $                                                         \r\n     $ ALTER    34 $                                                                 \r\n     INSERT EMA,1 $                                                                  \r\n     $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED                              \r\n     PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                           \r\n     PURGE    B1GG,M1GG /NOBM1 $                                                     \r\n     PURGE    M2GG,M2BASEXG /NOMGG $                                                 \r\n     $ ALTER    38 $                                                                 \r\n     INSERT EMA(2),1 $                                                               \r\n     $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX.                       \r\n     $ GENERATE PARAMETERS FKMAX AND NOBASEX.                                        \r\n     FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,          \r\n              PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/                \r\n              V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/                 \r\n              V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $                 \r\n     PARAML   FRLX //*PRES*////NOFRLX $                                              \r\n     COND     LBLFRLX,NOFRLX $                                                       \r\n     EQUIV    FRLX,FRL $                                                             \r\n     LABEL    LBLFRLX $                                                              \r\n     $ ALTER    47 $                                                                 \r\n     INSERT EMA(4),2 $                                                               \r\n     PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                                \r\n     $ ALTER    58 $                                                                 \r\n     INSERT GPSTGEN $                                                                \r\n     $ REDEFINE BGG AND KGG.                                                         \r\n     COND     LBL11A,NOBM1 $                                                         \r\n     PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                                    \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                                   \r\n     PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                                \r\n     ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                                 \r\n     EQUIV    BGG1,BGG $                                                             \r\n     ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                                 \r\n     EQUIV    KGG1,KGG $                                                             \r\n     LABEL    LBL11A                                                                 \r\n     $ ALTER    59,62 $  GP4 HAS BEEN MOVED-UP.                                      \r\n     DELETE GP4,-1,GP4,2 $                                                           \r\n     $ ALTER    87,87 $  DPD HAS BEEN MOVED-UP.                                      \r\n     DELETE DPD $                                                                    \r\n     $ ALTER    112 $  PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN.       \r\n     INSERT GKAD,-3 $                                                                \r\n     PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                            \r\n     COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                                \r\n     $ ALTER    113 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,-2 $                                                                \r\n     JUMP     LGKAD2 $                                                               \r\n     LABEL    LGKAD1 $                                                               \r\n     EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/               \r\n              KAA,KDD/KDEKA $                                                        \r\n     LABEL    LGKAD2 $                                                               \r\n     $ ALTER    115,115 $  ADD PARAMETERS GKAD, W3 AND W4 TO GKAD.                   \r\n     DELETE GKAD $                                                                   \r\n     GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,           \r\n              GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/                  \r\n              C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/            \r\n              SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                               \r\n     $ ALTER    116 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,1 $                                                                 \r\n     COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                                \r\n     $ ALTER    117 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,2 $                                                                 \r\n     JUMP     LGKAD4 $                                                               \r\n     LABEL    LGKAD3 $                                                               \r\n     EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $                       \r\n     LABEL    LGKAD4 $                                                               \r\n     $ ALTER    118,122 $                                                            \r\n     DELETE FRRD,-2,VDR $                                                            \r\n     $ NEW SOLUTION LOGIC                                                            \r\n     $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL.         \r\n     $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.                          \r\n     COND     LBLTRL1,NOTIME $                                                       \r\n     $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS.                              \r\n     PARAM    //*MPY*/REPEATT /1 /-1 $                                               \r\n     PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                           \r\n     LABEL    TRLGLOOP $                                                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                        \r\n     PARAM    //*MPY*/NCOL /0 /1 $                                                   \r\n     TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/         \r\n              ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                          \r\n     SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                         \r\n     SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                         \r\n     PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                          \r\n     COND     TRLGDONE,REPEATT $                                                     \r\n     REPT     TRLGLOOP,100 $                                                         \r\n     JUMP     ERROR3 $                                                               \r\n     LABEL    TRLGDONE $                                                             \r\n     FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/               \r\n              V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/           \r\n              S,N,NORO2 $                                                            \r\n     EQUIV    FRLZ,FRL // FOLZ,FOL $                                                 \r\n     JUMP     LBLFRL2 $                                                              \r\n     LABEL    LBLTRL1 $                                                              \r\n     $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC.           \r\n     FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /           \r\n              *DIRECT*/FREQY/*FREQ* $                                                \r\n     COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.        \r\n     MPYAD    PPF,PDZERO, / PPFX /0 $                                                \r\n     EQUIV    PPFX,PPF $                                                             \r\n     LABEL    LBLFRLX1 $                                                             \r\n     $ FORM NEW LOADS.                                                               \r\n     COND     LBLFRL1,NOBASEX $                                                      \r\n     MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                           \r\n     ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                           \r\n     EQUIV    PPF1,PPF $                                                             \r\n     COND     LBLBASE1,NOSET $                                                       \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                        \r\n     EQUIV    PSF1,PSF // PDF1,PDF $                                                 \r\n     LABEL    LBLBASE1 $                                                             \r\n     LABEL    LBLFRL1 $                                                              \r\n     EQUIV    PPF,PDF/NOSET $                                                        \r\n     $ LOADS ARE FREQUENCY-DEPENDENT                                                 \r\n     $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1.                           \r\n     PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                           \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1.                                   \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX                       \r\n     EQUIV    PDF,PXF/CYCIO $                                                        \r\n     COND     LBLPDONE,CYCIO $                                                       \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1.                                    \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS                   \r\n     CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/             \r\n              NLOAD /S,N,NOGO $                                                      \r\n     COND     ERRORC1,NOGO $                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     JUMP     LBLPDONE $                                                             \r\n     LABEL    LBLFRL2 $                                                              \r\n     $ LOADS ARE TIME-DEPENDENT                                                      \r\n     PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                          \r\n     $ BRANCH DEPENDING ON VALUE OF CYCIO                                            \r\n     COND     LBLTRL2,NOTCYCIO $                                                     \r\n     $ CYCIO=-1                                                                      \r\n     EQUIV    PD,PDTRZ1/NORO1 $                                                      \r\n     COND     LBLRO1A,NORO1 $                                                        \r\n     MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                            \r\n     LABEL    LBLRO1A $                                                              \r\n     CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/           \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ1,PXFZ1/NORO2 $                                                   \r\n     COND     LBLRO2A,NORO2 $                                                        \r\n     MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                          \r\n     LABEL    LBLRO2A $                                                              \r\n     EQUIV    PXFZ1,PXF1 $                                                           \r\n     JUMP     LBLTRL3 $                                                              \r\n     LABEL    LBLTRL2 $                                                              \r\n     $ CYCIO = +1                                                                    \r\n     MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                            \r\n     CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/                  \r\n              V,Y,NSEGS/S,N,NOGO $                                                   \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ2,PXTR2/NORO2 $                                                   \r\n     COND     LBLRO2B,NORO2 $                                                        \r\n     MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                          \r\n     LABEL    LBLRO2B $                                                              \r\n     CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/                \r\n              FLMAX/S,N,NOGO $                                                       \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXFZ2,PXF1 $                                                           \r\n     LABEL    LBLTRL3 $                                                              \r\n     $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND               \r\n     $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX           \r\n     $ IN FREQRESP TYPE PROBLEMS.                                                    \r\n     COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.                      \r\n     ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                             \r\n     $ DEFINE NLOAD FOR CYCT2.                                                       \r\n     PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                               \r\n     LABEL    LBLPDONE $                                                             \r\n     PARAM    //*ADD*/KINDEX /V,Y,KMIN=0 /0 $  INTITIALIZE KINDEX.                   \r\n     $                                                                               \r\n     $ INITIALIZE UXVF IF KMIN IS NOT ZERO.                                          \r\n     $                                                                               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAM    //*ADD*/KMINL /V,Y,KMIN /-1 $                                          \r\n     COND     NOKMINL,KMINL $                                                        \r\n     PARAM    //*ADD*/KMINV /0 /0 $                                                  \r\n     LABEL    KMINLOOP $                                                             \r\n     CYCT2    CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/          \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                            \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/                           \r\n              KMINV/CYCSEQ/NLOAD/S,N,NOGO $                                          \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     COND     ERRORC1,NOGO $                                                         \r\n     PARAM    //*ADD*/KMINV /KMINV /1 $                                              \r\n     REPT     KMINLOOP,KMINL $                                                       \r\n     LABEL    NOKMINL $                                                              \r\n     LABEL    TOPCYC $  LOOP ON KINDEX                                               \r\n     COND     NOKPRT,NOKPRT $                                                        \r\n     PRTPARM  //0 /*KINDEX* $                                                        \r\n     LABEL    NOKPRT $                                                               \r\n     CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/               \r\n              CYCSEQ=-1/NLOAD/S,N,NOGO $                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/                \r\n              CYCSEQ/NLOAD/S,N,NOGO $                                                \r\n     COND     ERRORC1,NOGO $                                                         \r\n     $ SOLUTION                                                                      \r\n     FRRD2    KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $                         \r\n     CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/              \r\n              NLOAD/S,N,NOGO $                                                       \r\n     COND     ERRORC1,NOGO $                                                         \r\n     PARAM    //*ADD*/KINDEX/KINDEX/1 $  KINDEX = KINDEX + 1                         \r\n     PARAM    //*SUB*/DONE / V,Y,KMAX / KINDEX $                                     \r\n     COND     LCYC2,DONE $  IF KINDEX .GT. KMAX THEN EXIT                            \r\n     REPT     TOPCYC,100 $                                                           \r\n     JUMP     ERROR3 $                                                               \r\n     LABEL    LCYC2 $                                                                \r\n     EQUIV    UXVF,UDVF / CYCIO $                                                    \r\n     COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $           \r\n     LABEL    LCYC3 $                                                                \r\n     COND     LBLTRL4,NOTIME $                                                       \r\n     EQUIV    PXF,PDF2 / CYCIO $                                                     \r\n     COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $            \r\n     LABEL    LCYC4 $                                                                \r\n     $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF.               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $                    \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $                       \r\n     EQUIV    PPFZ,PPF // PSFZ,PSF $                                                 \r\n     LABEL    LBLTRL4 $                                                              \r\n     VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/                 \r\n              *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                               \r\n     $ ALTER    138,138 $  USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.      \r\n     DELETE SDR2 $                                                                   \r\n     SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB,         \r\n              PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/               \r\n              S,N,NOSORT2 $                                                          \r\n     $ ALTER    160 $  ADD LABEL FOR ERROR3.                                         \r\n     INSERT PLOT(2),4 $                                                              \r\n     LABEL    ERROR3 $                                                               \r\n     $ ALTER    163,166 $  REMOVE ERROR1 AND ERROR2.                                 \r\n     DELETE PLOT(2),7,PLOT(2),10 $                                                   \r\n     $ ALTER    168 $  FORCED VIBRATION ERRORS                                       \r\n     INSERT END,-3 $                                                                 \r\n     LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.                    \r\n     PRTPARM  //-5 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                                   \r\n     PRTPARM  //0 /C,Y,COUPMASS $                                                    \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //-6 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //0 /*NOUE* $                                                          \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.               \r\n     PRTPARM  //0 /*NOFRL* $                                                         \r\n     PRTPARM  //0 /*NOTRL* $                                                         \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.          \r\n     PRTPARM  //0 /*NOFREQ* $                                                        \r\n     PRTPARM  //0 /*NOTIME* $                                                        \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $                                                                               \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)          \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-1A                                   \r\n                  3      $                                                                               \r\n                  4         SPC   = 30                                                                   \r\n                  5         FREQ  = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 8,16,18                                                              \r\n                  8         SET 2 = 11                                                                   \r\n                  9         OLOAD = 1                                                                    \r\n                 10         DISP(SORT2,PHASE)   = 1                                                      \r\n                 11         STRESS(SORT2,PHASE) = 2                                                      \r\n                 12      SUBCASE  1                                                                      \r\n                 13         LABEL = KINDEX 0                                                             \r\n                 14         DLOAD = 1   $ FREQ DEPENDENT LOADS                                           \r\n                 15      $                AXIAL BASE ACCN LOADS VIA PARAM BXTID,BXPTID                   \r\n                 16       SUBCASE 2                                                                      \r\n                 17         LABEL = KINDEX 1C                                                            \r\n                 18      $                LATERAL BASE ACCN LOADS VIA PARAM BYTID                        \r\n                 19       SUBCASE 3                                                                      \r\n                 20         LABEL = KINDEX 1S                                                            \r\n                 21      $                LATERAL BASE ACCN LOADS VIA PARAM BZTID                        \r\n                 22       SUBCASE 4                                                                      \r\n                 23         LABEL = KINDEX 2C                                                            \r\n                 24         DLOAD = 1   $ FREQ DEPENDENT LOADS                                           \r\n                 25       SUBCASE 5                                                                      \r\n                 26         LABEL = KINDEX 2S                                                            \r\n                 27      OUTPUT(XYPLOT)                                                                  \r\n                 28         PLOTTER NASTPLT D,0                                                          \r\n                 29         XPAPER = 8.0                                                                 \r\n                 30         YPAPER = 10.5                                                                \r\n                 31         XAXIS  = YES                                                                 \r\n                 32         YAXIS  = YES                                                                 \r\n                 33         XGRID LINES = YES                                                            \r\n                 34         YGRID LINES = YES                                                            \r\n                 35         CURVELINESYMBOL = 1                                                          \r\n                 36         XTITLE =                           FREQUENCY (HERTZ)                         \r\n                 37         YTITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )              \r\n                 38         YLOG   = YES                                                                 \r\n                 39         TCURVE = 8(T3RM),18(T3RM)                                                    \r\n                 40         XYPLOT,XYPRINT DISP RESPONSE 1 /8(T3RM),18(T3RM)                             \r\n                 41         XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3RM),18(T3RM)                             \r\n                 42         XYPLOT,XYPRINT DISP RESPONSE 3 /8(T3RM),18(T3RM)                             \r\n                 43         XYPLOT,XYPRINT DISP RESPONSE 4 /8(T3RM),18(T3RM)                             \r\n                 44         YTITLE =            GRID POINT DISPLACEMENTS ( PHASE,DEGREE )                \r\n                 45         YLOG   = NO                                                                  \r\n                 46         TCURVE = 8(T3IP),18(T3IP)                                                    \r\n                 47         XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3IP),18(T3IP)                             \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48         YTITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                \r\n                 49         YLOG   = YES                                                                 \r\n                 50         TCURVE = 11(3),11(5),11(7),11(10),11(12),11(14)                              \r\n                 51         XYPLOT,XYPRINT STRESS RESPONSE 1 /11(3),11(5),11(7),                         \r\n                 52                                           11(10),11(12),11(14)                       \r\n                 53         XYPLOT,XYPRINT STRESS RESPONSE 2 /11(3),11(5),11(7),                         \r\n                 54                                           11(10),11(12),11(14)                       \r\n                 55         XYPLOT,XYPRINT STRESS RESPONSE 3 /11(3),11(5),11(7),                         \r\n                 56                                           11(10),11(12),11(14)                       \r\n                 57         XYPLOT,XYPRINT STRESS RESPONSE 4 /11(3),11(5),11(7),                         \r\n                 58                                           11(10),11(12),11(14)                       \r\n                 59      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    70, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n0*** USER INFORMATION MESSAGE 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE THIRD FIELD WERE USED DURING RE-ORDERING DECK\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1               0.0     0.0     0.0     1.0     0.0     0.0     +COR12  \r\n                    2-        +COR12  0.0     1.0     0.0                                                     \r\n                    3-        CQUAD2  4       2       2       3       7       6                               \r\n                    4-        CQUAD2  5       2       6       7       12      11                              \r\n                    5-        CQUAD2  6       2       3       4       8       7                               \r\n                    6-        CQUAD2  7       2       7       8       13      12                              \r\n                    7-        CQUAD2  8       2       4       5       9       8                               \r\n                    8-        CQUAD2  10      2       8       15      14      13                              \r\n                    9-        CQUAD2  11      3       9       16      18      15                              \r\n                   10-        CQUAD2  12      3       16      17      19      18                              \r\n                   11-        CTRIA2  1       1       1       6       10                                      \r\n                   12-        CTRIA2  2       1       1       2       6                                       \r\n                   13-        CTRIA2  3       1       10      6       11                                      \r\n                   14-        CTRIA2  9       1       8       9       15                                      \r\n                   15-        CYJOIN  1               1       2       3       4       5                       \r\n                   16-        CYJOIN  2               10      11      12      13      14                      \r\n                   17-        DAREA   1       8       3       -1.0                                            \r\n                   18-        DAREA   1       16      3       1.0                                             \r\n                   19-        DAREA   1       18      3       1.0                                             \r\n                   20-        FREQ    1       1700.0  1750.0  1777.6  1795.7  1813.8541832.0  1850.1  +FR1    \r\n                   21-        +FR1    1880.0  1920.0                                                          \r\n                   22-        GRDSET          1                               1                               \r\n                   23-        GRID    1               2.0     30.0    0.0                                     \r\n                   24-        GRID    2               3.1     30.0    0.0                                     \r\n                   25-        GRID    3               4.3     30.0    0.0                                     \r\n                   26-        GRID    4               5.2     30.0    0.0                                     \r\n                   27-        GRID    5               7.1     30.0    0.0                                     \r\n                   28-        GRID    6               3.1     45.0    0.0                                     \r\n                   29-        GRID    7               4.3     45.0    0.0                                     \r\n                   30-        GRID    8               5.2     45.0    0.0                                     \r\n                   31-        GRID    9               7.1     40.0    0.0                                     \r\n                   32-        GRID    10              2.0     60.0    0.0                                     \r\n                   33-        GRID    11              3.1     60.0    0.0                                     \r\n                   34-        GRID    12              4.3     60.0    0.0                                     \r\n                   35-        GRID    13              5.2     60.0    0.0                                     \r\n                   36-        GRID    14              7.1     60.0    0.0                                     \r\n                   37-        GRID    15              7.1     50.0    0.0                                     \r\n                   38-        GRID    16              8.5     40.0    -.25                                    \r\n                   39-        GRID    17              9.7     40.0    -.50                                    \r\n                   40-        GRID    18              8.5     50.0    0.25                                    \r\n                   41-        GRID    19              9.7     50.0    0.50                                    \r\n                   42-        MAT1    1       30.0+6          .3      7.4-4                                   \r\n                   43-        PARAM   BXPTID  9002                                                            \r\n                   44-        PARAM   BXTID   9001                                                            \r\n                   45-        PARAM   BYTID   9003                                                            \r\n                   46-        PARAM   BZTID   9004                                                            \r\n                   47-        PARAM   CYCIO   -1                                                              \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        PARAM   G       .02                                                             \r\n                   49-        PARAM   GKAD    FREQRESP                                                        \r\n                   50-        PARAM   KMAX    2                                                               \r\n                   51-        PARAM   KMIN    0                                                               \r\n                   52-        PARAM   LGKAD   1                                                               \r\n                   53-        PARAM   NSEGS   12                                                              \r\n                   54-        PARAM   RPS     600.0                                                           \r\n                   55-        PQUAD2  2       1       .25                                                     \r\n                   56-        PQUAD2  3       1       .125                                                    \r\n                   57-        PTRIA2  1       1       .25                                                     \r\n                   58-        RLOAD1  1       1                       100                                     \r\n                   59-        SPC1    30      6       1       THRU    19                                      \r\n                   60-        SPC1    30      123456  1       10                                              \r\n                   61-        TABLED1 100                                                             +TBD1   \r\n                   62-        +TBD1   0.0     1.0     1000.0  1.0     ENDT                                    \r\n                   63-        TABLED1 9001                                                            +TAB11  \r\n                   64-        +TAB11  1000.   0.0     2000.0  1000.0  ENDT                                    \r\n                   65-        TABLED1 9002                                                            +TAB21  \r\n                   66-        +TAB21  1000.   -180.   2000.0  0.0     ENDT                                    \r\n                   67-        TABLED1 9003                                                            +TAB31  \r\n                   68-        +TAB31  1000.   1000.0  2000.0  1000.0  ENDT                                    \r\n                   69-        TABLED1 9004                                                            +TAB41  \r\n                   70-        +TAB41  1000.   500.0   2000.0  500.0   ENDT                                    \r\n                              ENDDATA\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $       \r\n\r\n       3  FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                             \r\n\r\n       3  COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.              \r\n\r\n       3  COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.               \r\n\r\n       3  PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                              \r\n\r\n       3  COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.          \r\n\r\n       3  PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                 \r\n\r\n       3  PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                             \r\n\r\n       3  COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                        \r\n\r\n       3  PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                          \r\n\r\n       3  PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                         \r\n\r\n       3  PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                   \r\n\r\n       3  PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                               \r\n\r\n       3  PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                               \r\n\r\n       3  PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                              \r\n\r\n       3  COND     ERRORC2,NOLUMP $                                               \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1//$                                                      \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                       \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      26  PARAM    //*MPY*/NSKIP /0/0 $                                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      26  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/   \r\n                   S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/   \r\n                   S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ \r\n\r\n      26  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                  \r\n\r\n      26  PARAM    //*NOT*/REACDATA /REACT $                                      \r\n\r\n      26  COND     ERRORC3,REACDATA $                                             \r\n\r\n      26  DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,  \r\n                   TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/      \r\n                   S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      26  PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                  \r\n\r\n      26  COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                   \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/14//FREQSET $                              \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/38//TIMESET $                              \r\n\r\n      26  PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                           \r\n\r\n      26  PARAM    //*NOT*/FTERR1 /FREQTIME $                                     \r\n\r\n      26  PARAM    //*LE*/NOFREQ /FREQSET /0 $                                    \r\n\r\n      26  PARAM    //*LE*/NOTIME /TIMESET /0 $                                    \r\n\r\n      26  COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.    \r\n\r\n      26  PARAM    //*NOT*/EXTRAPTS /NOUE $                                       \r\n\r\n      26  COND     ERRORC4,EXTRAPTS $                                             \r\n\r\n      26  GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                \r\n\r\n      26  COND     ERRORC1,NOGO $                                                 \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      36  PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                   \r\n\r\n      36  PURGE    B1GG,M1GG /NOBM1 $                                             \r\n\r\n      36  PURGE    M2GG,M2BASEXG /NOMGG $                                         \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      39  FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,  \r\n                   PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/        \r\n                   V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/         \r\n                   V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $         \r\n\r\n      39  PARAML   FRLX //*PRES*////NOFRLX $                                      \r\n\r\n      39  COND     LBLFRLX,NOFRLX $                                               \r\n\r\n      39  EQUIV    FRLX,FRL $                                                     \r\n\r\n      39  LABEL    LBLFRLX $                                                      \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      48  PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                        \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR4,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      60  COND     LBL11A,NOBM1 $                                                 \r\n\r\n      60  PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                            \r\n\r\n      60  PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      60  PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                        \r\n\r\n      60  ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                         \r\n\r\n      60  EQUIV    BGG1,BGG $                                                     \r\n\r\n      60  ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                         \r\n\r\n      60  EQUIV    KGG1,KGG $                                                     \r\n\r\n      60  LABEL    LBL11A                                                         \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      90  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      91  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      92  PARAM    //*MPY*/REPEATF/-1/1 $                                         \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBL13,NOFL $                                                   \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBL13 $                                                        \r\n\r\n      99  PURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,              \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n     100  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n     101  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     102  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     103  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     104  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     105  COND     LBLFL2,NOFL $                                                  \r\n\r\n     106  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     107  COND     LBLFL2,NOABFL $                                                \r\n\r\n     108  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     109  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     110  LABEL    LBLFL2 $                                                       \r\n\r\n     111  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     112  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     113  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     114  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     114  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     114  COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                        \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                   MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                  \r\n\r\n     115  JUMP     LGKAD2 $                                                       \r\n\r\n     115  LABEL    LGKAD1 $                                                       \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     115  LABEL    LGKAD2 $                                                       \r\n\r\n     116  COND     LBL18,NOGPDT $                                                 \r\n\r\n     117  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/          \r\n                   C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/    \r\n                   SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                       \r\n\r\n     118  LABEL    LBL18 $                                                        \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     118  COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                        \r\n\r\n     119  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     119  JUMP     LGKAD4 $                                                       \r\n\r\n     119  LABEL    LGKAD3 $                                                       \r\n\r\n     119  EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $               \r\n\r\n     119  LABEL    LGKAD4 $                                                       \r\n\r\n     124  COND     LBLTRL1,NOTIME $                                               \r\n\r\n     124  PARAM    //*MPY*/REPEATT /1 /-1 $                                       \r\n\r\n     124  PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                   \r\n\r\n     124  LABEL    TRLGLOOP $                                                     \r\n\r\n     124  CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                \r\n\r\n     124  PARAM    //*MPY*/NCOL /0 /1 $                                           \r\n\r\n     124  TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ \r\n                   ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                  \r\n\r\n     124  SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                 \r\n\r\n     124  SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                 \r\n\r\n     124  PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                  \r\n\r\n     124  COND     TRLGDONE,REPEATT $                                             \r\n\r\n     124  REPT     TRLGLOOP,100 $                                                 \r\n\r\n     124  JUMP     ERROR3 $                                                       \r\n\r\n     124  LABEL    TRLGDONE $                                                     \r\n\r\n     124  FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/       \r\n                   V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/   \r\n                   S,N,NORO2 $                                                    \r\n\r\n     124  EQUIV    FRLZ,FRL // FOLZ,FOL $                                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  JUMP     LBLFRL2 $                                                      \r\n\r\n     124  LABEL    LBLTRL1 $                                                      \r\n\r\n     124  FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /   \r\n                   *DIRECT*/FREQY/*FREQ* $                                        \r\n\r\n     124  COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.\r\n\r\n     124  MPYAD    PPF,PDZERO, / PPFX /0 $                                        \r\n\r\n     124  EQUIV    PPFX,PPF $                                                     \r\n\r\n     124  LABEL    LBLFRLX1 $                                                     \r\n\r\n     124  COND     LBLFRL1,NOBASEX $                                              \r\n\r\n     124  MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                   \r\n\r\n     124  ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                   \r\n\r\n     124  EQUIV    PPF1,PPF $                                                     \r\n\r\n     124  COND     LBLBASE1,NOSET $                                               \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                \r\n\r\n     124  EQUIV    PSF1,PSF // PDF1,PDF $                                         \r\n\r\n     124  LABEL    LBLBASE1 $                                                     \r\n\r\n     124  LABEL    LBLFRL1 $                                                      \r\n\r\n     124  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     124  PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                   \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX               \r\n\r\n     124  EQUIV    PDF,PXF/CYCIO $                                                \r\n\r\n     124  COND     LBLPDONE,CYCIO $                                               \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS           \r\n\r\n     124  CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/     \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NLOAD /S,N,NOGO $                                              \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  JUMP     LBLPDONE $                                                     \r\n\r\n     124  LABEL    LBLFRL2 $                                                      \r\n\r\n     124  PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                  \r\n\r\n     124  COND     LBLTRL2,NOTCYCIO $                                             \r\n\r\n     124  EQUIV    PD,PDTRZ1/NORO1 $                                              \r\n\r\n     124  COND     LBLRO1A,NORO1 $                                                \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                    \r\n\r\n     124  LABEL    LBLRO1A $                                                      \r\n\r\n     124  CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/   \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ1,PXFZ1/NORO2 $                                           \r\n\r\n     124  COND     LBLRO2A,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                  \r\n\r\n     124  LABEL    LBLRO2A $                                                      \r\n\r\n     124  EQUIV    PXFZ1,PXF1 $                                                   \r\n\r\n     124  JUMP     LBLTRL3 $                                                      \r\n\r\n     124  LABEL    LBLTRL2 $                                                      \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                    \r\n\r\n     124  CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/          \r\n                   V,Y,NSEGS/S,N,NOGO $                                           \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ2,PXTR2/NORO2 $                                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     LBLRO2B,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                  \r\n\r\n     124  LABEL    LBLRO2B $                                                      \r\n\r\n     124  CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/        \r\n                   FLMAX/S,N,NOGO $                                               \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXFZ2,PXF1 $                                                   \r\n\r\n     124  LABEL    LBLTRL3 $                                                      \r\n\r\n     124  COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.              \r\n\r\n     124  ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                     \r\n\r\n     124  PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                       \r\n\r\n     124  LABEL    LBLPDONE $                                                     \r\n\r\n     124  PARAM    //*ADD*/KINDEX /V,Y,KMIN=0 /0 $  INTITIALIZE KINDEX.           \r\n\r\n     124  PARAM    //*ADD*/KMINL /V,Y,KMIN /-1 $                                  \r\n\r\n     124  COND     NOKMINL,KMINL $                                                \r\n\r\n     124  PARAM    //*ADD*/KMINV /0 /0 $                                          \r\n\r\n     124  LABEL    KMINLOOP $                                                     \r\n\r\n     124  CYCT2    CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/  \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                    \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n\r\n     124  CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/                   \r\n                   KMINV/CYCSEQ/NLOAD/S,N,NOGO $                                  \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  PARAM    //*ADD*/KMINV /KMINV /1 $                                      \r\n\r\n     124  REPT     KMINLOOP,KMINL $                                               \r\n\r\n     124  LABEL    NOKMINL $                                                      \r\n\r\n     124  LABEL    TOPCYC $  LOOP ON KINDEX                                       \r\n\r\n     124  COND     NOKPRT,NOKPRT $                                                \r\n\r\n     124  PRTPARM  //0 /*KINDEX* $                                                \r\n\r\n     124  LABEL    NOKPRT $                                                       \r\n\r\n     124  CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/       \r\n                   CYCSEQ=-1/NLOAD/S,N,NOGO $                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/        \r\n                   CYCSEQ/NLOAD/S,N,NOGO $                                        \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  FRRD2    KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $                 \r\n\r\n     124  CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/      \r\n                   NLOAD/S,N,NOGO $                                               \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  PARAM    //*ADD*/KINDEX/KINDEX/1 $  KINDEX = KINDEX + 1                 \r\n\r\n     124  PARAM    //*SUB*/DONE / V,Y,KMAX / KINDEX $                             \r\n\r\n     124  COND     LCYC2,DONE $  IF KINDEX .GT. KMAX THEN EXIT                    \r\n\r\n     124  REPT     TOPCYC,100 $                                                   \r\n\r\n     124  JUMP     ERROR3 $                                                       \r\n\r\n     124  LABEL    LCYC2 $                                                        \r\n\r\n     124  EQUIV    UXVF,UDVF / CYCIO $                                            \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $   \r\n\r\n     124  LABEL    LCYC3 $                                                        \r\n\r\n     124  COND     LBLTRL4,NOTIME $                                               \r\n\r\n     124  EQUIV    PXF,PDF2 / CYCIO $                                             \r\n\r\n     124  COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $    \r\n\r\n     124  LABEL    LCYC4 $                                                        \r\n\r\n     124  SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $            \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $               \r\n\r\n     124  EQUIV    PPFZ,PPF // PSFZ,PSF $                                         \r\n\r\n     124  LABEL    LBLTRL4 $                                                      \r\n\r\n     124  VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/         \r\n                   *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                       \r\n\r\n     125  COND     LBL15,NOD $                                                    \r\n\r\n     126  COND     LBL15A,NOSORT2 $                                               \r\n\r\n     127  SDR3     OUDVC1,,,,,/OUDVC2,,,,, $                                      \r\n\r\n     128  OFP      OUDVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     129  XYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     130  XYPLOT   XYPLTFA// $                                                    \r\n\r\n     131  JUMP     LBL15 $                                                        \r\n\r\n     132  LABEL    LBL15A $                                                       \r\n\r\n     133  OFP      OUDVC1,,,,,//S,N,CARDNO $                                      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     134  LABEL    LBL15 $                                                        \r\n\r\n     135  COND     LBL20,NOP $                                                    \r\n\r\n     136  EQUIV    UDVF,UPVC/NOA $                                                \r\n\r\n     137  COND     LBL19,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $       \r\n\r\n     139  LABEL    LBL19 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, \r\n                   PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     141  COND     LBL17,NOSORT2 $                                                \r\n\r\n     142  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n\r\n     143  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n\r\n     144  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     145  XYPLOT   XYPLTF// $                                                     \r\n\r\n     146  COND     LBL16,NOPSDL $                                                 \r\n\r\n     147  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     148  COND     LBL16,NORD $                                                   \r\n\r\n     149  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     150  XYPLOT   XYPLTR// $                                                     \r\n\r\n     151  JUMP     LBL16 $                                                        \r\n\r\n     152  LABEL    LBL17 $                                                        \r\n\r\n     153  PURGE    PSDF/NOSORT2 $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     154  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     155  LABEL    LBL16 $                                                        \r\n\r\n     156  PURGE    PSDF/NOPSDL $                                                  \r\n\r\n     157  COND     LBL20,JUMPPLOT $                                               \r\n\r\n     158  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,          \r\n                   GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/               \r\n                   S,N,PFILE $                                                    \r\n\r\n     159  PRTMSG   PLOTX2// $                                                     \r\n\r\n     160  LABEL    LBL20 $                                                        \r\n\r\n     161  COND     FINIS,REPEATF $                                                \r\n\r\n     162  REPT     LBL13,100 $                                                    \r\n\r\n     162  LABEL    ERROR3 $                                                       \r\n\r\n     163  PRTPARM  //-3/*DIRFRRD* $                                               \r\n\r\n     164  JUMP     FINIS $                                                        \r\n\r\n     169  LABEL    ERROR4 $                                                       \r\n\r\n     170  PRTPARM  //-4/*DIRFRRD* $                                               \r\n\r\n     170  LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.            \r\n\r\n     170  PRTPARM  //-5 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                           \r\n\r\n     170  PRTPARM  //0 /C,Y,COUPMASS $                                            \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                       \r\n\r\n     170  PRTPARM  //-6 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                       \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  PRTPARM  //0 /*NOUE* $                                                  \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.       \r\n\r\n     170  PRTPARM  //0 /*NOFRL* $                                                 \r\n\r\n     170  PRTPARM  //0 /*NOTRL* $                                                 \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.  \r\n\r\n     170  PRTPARM  //0 /*NOFREQ* $                                                \r\n\r\n     170  PRTPARM  //0 /*NOTIME* $                                                \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     173  END      $                                                              \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED PXF      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2      INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED UXVF     ALREADY APPEARED AS OUTPUT\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            102\r\n                                        MAX WAVEFRONT        9\r\n                                        AVG WAVEFRONT    5.368\r\n                                        RMS WAVEFRONT    5.777\r\n                                        RMS BANDWIDTH    6.035\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE             78\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.105\r\n                                        RMS WAVEFRONT    4.267\r\n                                        RMS BANDWIDTH    4.267\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       10         6\r\n                                        PROFILE (P)                        102        78\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            9         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.368     4.105\r\n                                        RMS WAVEFRONT (C-RMS)            5.777     4.267\r\n                                        RMS BANDWITCH (B-RMS)            6.035     4.267\r\n                                        NUMBER OF GRID POINTS (N)                     19\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                12\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           9\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        46\r\n                                        MATRIX DENSITY, PERCENT                   30.748\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   5\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       3       3       6       4       9\r\n                         SEQGP          5      12       6       4       7       7       8      10\r\n                         SEQGP          9      13      10       2      11       5      12       8\r\n                         SEQGP         13      11      14      14      15      15      16      16\r\n                         SEQGP         17      18      18      17      19      19\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.600000E+03  (INPUT)\r\n                      4TH PARM =  0.628319E+01  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.200000E+01  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGA2   =  0.753982E+04  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGASQR =  0.142122E+08  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ      \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.600000E+03  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      NORPS    =         0      (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    14             =\r\n+                                                                                    1   = FREQSET \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    38             =\r\n+                                                                                    0   = TIMESET \r\n0*** USER WARNING MESSAGE 4032\r\n0NO COMPONENTS OF GRID POINTS         1 AND         10 WERE CONNECTED.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID        4\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA2   =  0.753982E+04  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX1   = ( 0.753982E+04, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      OMEGASQR =  0.142122E+08  (INPUT)\r\n                      MOMEGASQ = -0.142122E+08  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      MOMEGASQ = -0.142122E+08  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX2   = (-0.142122E+08, 0.000000E+00)   (OUTPUT)\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (   29,    5), TO (   29,  135)\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TRAILER  -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n+                                                                                  135   = PDFCOLS \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX              0.000000E+00\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   13     BBAR =   21\r\n                                        C =   11     CBAR =    1\r\n                                        R =   33\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =    65)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     1\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0           -1.169306E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.330303E-01   0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0           -1.218224E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.182242E-01   0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0           -1.244998E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.058113E-01   0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0           -1.262265E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.960137E-01   0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0           -1.279240E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.848692E-01   0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0           -1.295771E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.724193E-01   0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0           -1.311729E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.587104E-01   0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0           -1.336680E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            1.333012E-01   0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0           -1.366675E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            9.414612E-02   0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            9.614650E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.303884E-02   0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            9.503311E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.966890E-02   0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            9.442372E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.684367E-02   0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            9.403073E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.461369E-02   0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            9.364435E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.207715E-02   0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            9.326811E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.924347E-02   0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            9.290490E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.612327E-02   0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            9.233699E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.034002E-02   0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            9.165429E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.142812E-02   0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            9.614650E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            5.303883E-02   0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            9.503311E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.966890E-02   0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            9.442372E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.684367E-02   0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            9.403073E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.461369E-02   0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            9.364435E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            4.207715E-02   0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            9.326811E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.924347E-02   0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            9.290490E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.612327E-02   0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            9.233699E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            3.034002E-02   0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            9.165429E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            2.142812E-02   0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                           2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G     -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n                          -2.909656E-01  -1.454828E-01   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                           6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G     -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.308724E-02  -3.875851E-02   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                           6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G     -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n                          -6.885915E-02  -2.721469E-02   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                           1.454828E-01  -2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      2.909656E-01   1.454828E-01   0.0            0.0            0.0            0.0                           \r\n                          -1.454828E-01   2.909656E-01   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                           3.875851E-02  -6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      6.308724E-02   3.875851E-02   0.0            0.0            0.0            0.0                           \r\n                          -3.875851E-02   6.308724E-02   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                           2.721469E-02  -6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      6.885915E-02   2.721469E-02   0.0            0.0            0.0            0.0                           \r\n                          -2.721469E-02   6.885915E-02   0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0           -1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            1.000000E+00   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      2.424325E-07   8.363305E-06   8.639661E-05   3.075304E-08   5.619773E-05   0.0                           \r\n                           261.6340       171.9684       355.5160       273.1982         0.0553         0.0                         \r\n0  1.750000E+03     G      1.860010E-07   6.471393E-06   6.480642E-05   1.079806E-08   4.222457E-05   0.0                           \r\n                           256.9047       167.2236       354.0843       304.4858       359.4893         0.0                         \r\n0  1.777600E+03     G      1.663967E-07   5.814563E-06   5.736462E-05   9.263068E-09   3.736040E-05   0.0                           \r\n                           253.9531       164.2613       353.9924       347.3951       359.5886         0.0                         \r\n0  1.795700E+03     G      1.558085E-07   5.459510E-06   5.347747E-05   1.134015E-08   3.481342E-05   0.0                           \r\n                           251.5197       161.8192       354.1371         5.4296       359.7516         0.0                         \r\n0  1.813854E+03     G      1.460442E-07   5.131105E-06   5.016476E-05   1.431768E-08   3.264558E-05   0.0                           \r\n                           248.2738       158.5622       354.4302        11.8953       359.9821         0.0                         \r\n0  1.832000E+03     G      1.358529E-07   4.785715E-06   4.733060E-05   1.773221E-08   3.080352E-05   0.0                           \r\n                           243.4435       153.7159       354.8674         9.7661         0.2806         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.218834E-07   4.305363E-06   4.492821E-05   2.180446E-08   2.927513E-05   0.0                           \r\n                           235.1080       145.3522       355.4460       358.0818         0.6452         0.0                         \r\n0  1.880000E+03     G      3.966457E-08   1.412859E-06   4.201520E-05   3.063852E-08   2.760045E-05   0.0                           \r\n                           198.6548       108.4993       356.1667       288.5382         0.4864         0.0                         \r\n0  1.920000E+03     G      1.089133E-07   3.869082E-06   3.741213E-05   2.326981E-08   2.429434E-05   0.0                           \r\n                           288.1748       198.5432       356.8951       140.3038       359.5853         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.976992E-06   1.616545E-05   7.707500E-05   2.315162E-05   7.064702E-05   0.0                           \r\n                           186.0282       171.9955       182.5609       359.6121       179.0490         0.0                         \r\n0  1.750000E+03     G      1.113656E-06   1.236549E-05   5.438523E-05   1.530644E-05   4.658323E-05   0.0                           \r\n                           183.9929       166.9287       182.6042       359.0957       177.6087         0.0                         \r\n0  1.777600E+03     G      7.547690E-07   1.103198E-05   4.605151E-05   1.263521E-05   3.844102E-05   0.0                           \r\n                           182.9200       163.7899       182.9191       359.4199       177.4480         0.0                         \r\n0  1.795700E+03     G      5.443819E-07   1.030671E-05   4.153080E-05   1.125895E-05   3.424234E-05   0.0                           \r\n                           181.4758       161.2265       183.1595       359.7766       177.5435         0.0                         \r\n0  1.813854E+03     G      3.462015E-07   9.634538E-06   3.755385E-05   1.010607E-05   3.070321E-05   0.0                           \r\n                           177.3439       157.8354       183.3892         0.1778       177.8055         0.0                         \r\n0  1.832000E+03     G      1.616343E-07   8.931779E-06   3.401520E-05   9.144161E-06   2.770997E-05   0.0                           \r\n                           157.8233       152.8255       183.5561         0.4776       178.2676         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.539744E-07   7.975210E-06   3.080106E-05   8.347267E-06   2.520670E-05   0.0                           \r\n                            63.1491       144.2191       183.5589         0.2574       179.0069         0.0                         \r\n0  1.880000E+03     G      8.202896E-07   2.482764E-06   2.539598E-05   6.860002E-06   2.248719E-05   0.0                           \r\n                            13.2954       105.0259       183.3447       354.9705       180.1762         0.0                         \r\n0  1.920000E+03     G      9.893713E-07   7.138096E-06   2.044169E-05   4.715664E-06   1.826312E-05   0.0                           \r\n                           332.1660       198.2297       187.2688         6.5799       178.3435         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.977734E-06   1.627384E-05   7.666240E-05   1.874301E-05   7.102449E-05   0.0                           \r\n                           334.5277       172.0825       182.2459       177.8435       179.4975         0.0                         \r\n0  1.750000E+03     G      1.176830E-06   1.242580E-05   5.403511E-05   1.226694E-05   4.682825E-05   0.0                           \r\n                           321.4090       167.5303       181.9446       175.2202       178.3357         0.0                         \r\n0  1.777600E+03     G      8.755891E-07   1.108048E-05   4.568585E-05   1.000703E-05   3.867179E-05   0.0                           \r\n                           308.9793       164.6311       182.0835       174.3509       178.3260         0.0                         \r\n0  1.795700E+03     G      7.281363E-07   1.035290E-05   4.113526E-05   8.808765E-06   3.448402E-05   0.0                           \r\n                           296.7462       162.2038       182.2272       173.9899       178.5068         0.0                         \r\n0  1.813854E+03     G      6.325300E-07   9.684300E-06   3.710805E-05   7.765075E-06   3.097487E-05   0.0                           \r\n                           279.8666       158.9263       182.3984       173.8581       178.8233         0.0                         \r\n0  1.832000E+03     G      6.095484E-07   8.994712E-06   3.349212E-05   6.836249E-06   2.803613E-05   0.0                           \r\n                           258.6644       153.9924       182.6021       174.1469       179.2614         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      6.794783E-07   8.070358E-06   3.017711E-05   5.994406E-06   2.561253E-05   0.0                           \r\n                           235.6514       145.3795       182.9062       175.4744       179.7608         0.0                         \r\n0  1.880000E+03     G      9.333045E-07   2.727590E-06   2.537732E-05   5.329756E-06   2.256348E-05   0.0                           \r\n                           188.7064       103.9118       185.0132       184.3384       179.0928         0.0                         \r\n0  1.920000E+03     G      6.032836E-07   6.927224E-06   2.132619E-05   4.859112E-06   1.762783E-05   0.0                           \r\n                           180.2805       200.7079       184.8214       173.9656       180.0521         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      6.614649E-07   1.304445E-06   8.380300E-07   1.506804E-07   6.528784E-08   0.0                           \r\n                           115.2552        25.2497       205.0448       114.9757       198.6862         0.0                         \r\n0  1.150000E+03     G      6.680307E-07   1.318732E-06   8.610437E-07   1.544406E-07   1.022277E-07   0.0                           \r\n                           115.2413        25.2345       204.7680       114.6905       200.2718         0.0                         \r\n0  1.177600E+03     G      6.718149E-07   1.326994E-06   8.819665E-07   1.580390E-07   1.250405E-07   0.0                           \r\n                           115.2332        25.2256       204.6016       114.5190       200.6776         0.0                         \r\n0  1.195700E+03     G      6.743620E-07   1.332568E-06   8.991777E-07   1.610460E-07   1.412564E-07   0.0                           \r\n                           115.2277        25.2195       204.4855       114.3993       200.8470         0.0                         \r\n0  1.213854E+03     G      6.769708E-07   1.338286E-06   9.194694E-07   1.646245E-07   1.587271E-07   0.0                           \r\n                           115.2220        25.2132       204.3625       114.2723       200.9602         0.0                         \r\n0  1.232000E+03     G      6.796351E-07   1.344135E-06   9.430638E-07   1.688167E-07   1.776061E-07   0.0                           \r\n                           115.2161        25.2067       204.2317       114.1374       201.0273         0.0                         \r\n0  1.250100E+03     G      6.823513E-07   1.350108E-06   9.702431E-07   1.736765E-07   1.980907E-07   0.0                           \r\n                           115.2100        25.2000       204.0923       113.9935       201.0553         0.0                         \r\n0  1.280000E+03     G      6.869738E-07   1.360297E-06   1.024304E-06   1.834119E-07   2.363383E-07   0.0                           \r\n                           115.1994        25.1882       203.8382       113.7312       201.0278         0.0                         \r\n0  1.320000E+03     G      6.934447E-07   1.374610E-06   1.118736E-06   2.005659E-07   2.988089E-07   0.0                           \r\n                           115.1841        25.1711       203.4377       113.3177       200.8598         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      6.610402E-07   1.462121E-06   4.587445E-07   3.560288E-08   7.628075E-07   0.0                           \r\n                           242.1137       331.7931       332.5031       101.8455       331.4779         0.0                         \r\n0  2.350000E+03     G      6.683345E-07   1.495087E-06   4.603424E-07   5.451823E-08   7.985154E-07   0.0                           \r\n                           242.1077       331.6166       331.2681       173.3324       331.2749         0.0                         \r\n0  2.377600E+03     G      6.725086E-07   1.517455E-06   4.707461E-07   1.181478E-07   8.234118E-07   0.0                           \r\n                           242.1185       331.3736       329.5980       187.1996       331.2332         0.0                         \r\n0  2.395700E+03     G      6.753096E-07   1.534370E-06   4.834848E-07   2.011243E-07   8.427112E-07   0.0                           \r\n                           242.1450       331.0209       327.2079       185.7122       331.2731         0.0                         \r\n0  2.413854E+03     G      6.783876E-07   1.549464E-06   4.964548E-07   3.521959E-07   8.667871E-07   0.0                           \r\n                           242.2121       330.2467       321.9307       174.1653       331.3725         0.0                         \r\n0  2.432000E+03     G      6.828601E-07   1.537537E-06   4.627510E-07   5.687895E-07   8.993861E-07   0.0                           \r\n                           242.3060       329.0302       311.8359       145.3975       331.1540         0.0                         \r\n0  2.450100E+03     G      6.881171E-07   1.502680E-06   3.537681E-07   6.015404E-07   9.266086E-07   0.0                           \r\n                           242.2136       329.5620       310.9633       107.7475       330.2035         0.0                         \r\n0  2.480000E+03     G      6.936004E-07   1.523576E-06   3.324643E-07   4.241947E-07   9.621132E-07   0.0                           \r\n                           242.0432       331.0936       325.5486        77.7006       329.5899         0.0                         \r\n0  2.520000E+03     G      7.012131E-07   1.566765E-06   3.617205E-07   3.151700E-07   1.028869E-06   0.0                           \r\n                           241.9726       331.4865       330.0752        66.2682       329.2840         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      1.039703E-06   2.286492E-06   1.630857E-06   3.987073E-07   4.581541E-07   0.0                           \r\n                            94.7479        25.2091        35.7269       278.5689       244.4398         0.0                         \r\n0  1.150000E+03     G      1.048319E-06   2.315309E-06   1.667093E-06   4.398046E-07   3.548936E-07   0.0                           \r\n                            95.2758        25.0387        36.1027       274.1089       262.6212         0.0                         \r\n0  1.177600E+03     G      1.053995E-06   2.332206E-06   1.695980E-06   4.644644E-07   3.222108E-07   0.0                           \r\n                            95.4912        24.9399        36.2603       271.9565       276.6320         0.0                         \r\n0  1.195700E+03     G      1.058056E-06   2.343687E-06   1.718621E-06   4.815608E-07   3.133324E-07   0.0                           \r\n                            95.6061        24.8725        36.3435       270.6288       287.0748         0.0                         \r\n0  1.213854E+03     G      1.062395E-06   2.355533E-06   1.744492E-06   4.995598E-07   3.158023E-07   0.0                           \r\n                            95.7015        24.8024        36.4104       269.3480       297.9216         0.0                         \r\n0  1.232000E+03     G      1.066999E-06   2.367717E-06   1.773763E-06   5.185238E-07   3.300233E-07   0.0                           \r\n                            95.7779        24.7295        36.4596       268.1064       308.4358         0.0                         \r\n0  1.250100E+03     G      1.071858E-06   2.380226E-06   1.806664E-06   5.385523E-07   3.554923E-07   0.0                           \r\n                            95.8356        24.6535        36.4903       266.8952       318.0161         0.0                         \r\n0  1.280000E+03     G      1.080490E-06   2.401712E-06   1.870180E-06   5.745435E-07   4.199312E-07   0.0                           \r\n                            95.8918        24.5190        36.4964       264.9249       331.1602         0.0                         \r\n0  1.320000E+03     G      1.093289E-06   2.432206E-06   1.976808E-06   6.299794E-07   5.451797E-07   0.0                           \r\n                            95.8907        24.3171        36.4039       262.2745       343.8212         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      1.096356E-06   2.803230E-06   2.435149E-06   1.181052E-06   8.999893E-07   0.0                           \r\n                           281.1452       323.9625       347.5453       215.5564       176.3148         0.0                         \r\n0  2.350000E+03     G      1.150183E-06   2.837579E-06   3.307334E-06   2.144033E-06   1.202910E-06   0.0                           \r\n                           287.9105       319.5267       352.2862       211.2450       190.1938         0.0                         \r\n0  2.377600E+03     G      1.228500E-06   2.794310E-06   4.323831E-06   3.301390E-06   1.674617E-06   0.0                           \r\n                           294.3260       314.1967       353.9563       205.5187       196.0494         0.0                         \r\n0  2.395700E+03     G      1.358101E-06   2.662010E-06   5.543980E-06   4.687724E-06   2.296242E-06   0.0                           \r\n                           299.9128       307.7197       352.5686       197.9706       195.9454         0.0                         \r\n0  2.413854E+03     G      1.671656E-06   2.228418E-06   7.656588E-06   7.092037E-06   3.429525E-06   0.0                           \r\n                           303.9985       296.0732       344.7766       182.8254       187.7148         0.0                         \r\n0  2.432000E+03     G      2.228216E-06   9.424634E-07   1.022390E-05   1.017618E-05   4.943312E-06   0.0                           \r\n                           296.5919       288.2521       322.2943       151.8744       162.8804         0.0                         \r\n0  2.450100E+03     G      2.320942E-06   1.390895E-06   9.389090E-06   9.770380E-06   4.825569E-06   0.0                           \r\n                           278.9175        14.7426       292.5874       112.9110       129.1250         0.0                         \r\n0  2.480000E+03     G      1.881704E-06   2.682228E-06   5.824315E-06   6.077453E-06   3.129747E-06   0.0                           \r\n                           270.1738       356.7094       277.0540        81.8433       104.7636         0.0                         \r\n0  2.520000E+03     G      1.692193E-06   3.093079E-06   4.275271E-06   3.998537E-06   2.194666E-06   0.0                           \r\n                           272.8422       346.4265       282.9463        70.3283        99.1536         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      1.033026E-06   2.296960E-06   1.598584E-06   4.166756E-07   4.276977E-07   0.0                           \r\n                           135.5474        25.2478        14.4872       308.8294       172.3153         0.0                         \r\n0  1.150000E+03     G      1.042730E-06   2.326373E-06   1.634593E-06   4.538559E-07   3.088732E-07   0.0                           \r\n                           134.9512        25.3774        13.7922       312.0202       153.6954         0.0                         \r\n0  1.177600E+03     G      1.048946E-06   2.343686E-06   1.663268E-06   4.762125E-07   2.668381E-07   0.0                           \r\n                           134.6978        25.4523        13.4433       313.5626       137.6851         0.0                         \r\n0  1.195700E+03     G      1.053347E-06   2.355479E-06   1.685745E-06   4.917480E-07   2.531259E-07   0.0                           \r\n                           134.5575        25.5033        13.2262       314.5124       124.8898         0.0                         \r\n0  1.213854E+03     G      1.058018E-06   2.367673E-06   1.711433E-06   5.081387E-07   2.529362E-07   0.0                           \r\n                           134.4360        25.5563        13.0168       315.4261       111.1594         0.0                         \r\n0  1.232000E+03     G      1.062949E-06   2.380244E-06   1.740508E-06   5.254479E-07   2.670173E-07   0.0                           \r\n                           134.3327        25.6115        12.8150       316.3081        97.8655         0.0                         \r\n0  1.250100E+03     G      1.068135E-06   2.393185E-06   1.773207E-06   5.437723E-07   2.943138E-07   0.0                           \r\n                           134.2471        25.6691        12.6205       317.1637        86.1202         0.0                         \r\n0  1.280000E+03     G      1.077313E-06   2.415502E-06   1.836385E-06   5.768085E-07   3.636247E-07   0.0                           \r\n                           134.1421        25.7711        12.3112       318.5412        70.9213         0.0                         \r\n0  1.320000E+03     G      1.090897E-06   2.447407E-06   1.942612E-06   6.279395E-07   4.947682E-07   0.0                           \r\n                           134.0699        25.9244        11.9126       320.3551        57.2373         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      9.903479E-07   2.997915E-06   1.962822E-06   1.151150E-06   5.613211E-07   0.0                           \r\n                           204.7259       338.1962       302.8394       228.4837       121.8769         0.0                         \r\n0  2.350000E+03     G      9.422312E-07   3.258121E-06   2.386404E-06   2.080749E-06   6.093550E-07   0.0                           \r\n                           199.8574       340.7219       288.0290       221.7683        79.6464         0.0                         \r\n0  2.377600E+03     G      8.537624E-07   3.565647E-06   2.821400E-06   3.204118E-06   9.013656E-07   0.0                           \r\n                           195.8988       342.6983       272.1677       214.2578        46.3410         0.0                         \r\n0  2.395700E+03     G      7.224627E-07   3.954446E-06   3.327664E-06   4.552686E-06   1.375167E-06   0.0                           \r\n                           193.3282       343.5620       254.8898       205.4128        23.8443         0.0                         \r\n0  2.413854E+03     G      4.638464E-07   4.668371E-06   4.211923E-06   6.895089E-06   2.305196E-06   0.0                           \r\n                           200.6919       341.3988       226.3460       188.8864       357.3080         0.0                         \r\n0  2.432000E+03     G      5.855297E-07   5.521366E-06   5.294276E-06   9.907125E-06   3.677189E-06   0.0                           \r\n                           261.5529       329.2594       177.8044       156.4886       317.9102         0.0                         \r\n0  2.450100E+03     G      1.252639E-06   5.006311E-06   4.900215E-06   9.527217E-06   3.892422E-06   0.0                           \r\n                           248.5670       312.4536       118.6964       116.0283       272.5996         0.0                         \r\n0  2.480000E+03     G      1.485802E-06   3.720783E-06   3.558113E-06   5.943835E-06   2.774781E-06   0.0                           \r\n                           223.8022       310.0979        58.3710        82.3971       233.9494         0.0                         \r\n0  2.520000E+03     G      1.507318E-06   3.371003E-06   3.278425E-06   3.927563E-06   2.095774E-06   0.0                           \r\n                           211.6553       316.2438        23.6211        67.3306       215.5152         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      6.614649E-07   1.304445E-06   8.380300E-07   1.506804E-07   6.528784E-08   0.0                           \r\n                            25.2552       295.2497       115.0449        24.9758       108.6862         0.0                         \r\n0  1.150000E+03     G      6.680308E-07   1.318732E-06   8.610437E-07   1.544406E-07   1.022277E-07   0.0                           \r\n                            25.2413       295.2345       114.7680        24.6905       110.2718         0.0                         \r\n0  1.177600E+03     G      6.718149E-07   1.326994E-06   8.819665E-07   1.580390E-07   1.250405E-07   0.0                           \r\n                            25.2332       295.2256       114.6016        24.5190       110.6776         0.0                         \r\n0  1.195700E+03     G      6.743620E-07   1.332568E-06   8.991776E-07   1.610460E-07   1.412564E-07   0.0                           \r\n                            25.2277       295.2195       114.4855        24.3993       110.8470         0.0                         \r\n0  1.213854E+03     G      6.769709E-07   1.338286E-06   9.194694E-07   1.646245E-07   1.587271E-07   0.0                           \r\n                            25.2220       295.2132       114.3625        24.2723       110.9602         0.0                         \r\n0  1.232000E+03     G      6.796351E-07   1.344135E-06   9.430637E-07   1.688167E-07   1.776061E-07   0.0                           \r\n                            25.2161       295.2067       114.2317        24.1374       111.0273         0.0                         \r\n0  1.250100E+03     G      6.823514E-07   1.350108E-06   9.702431E-07   1.736765E-07   1.980906E-07   0.0                           \r\n                            25.2100       295.2000       114.0923        23.9935       111.0553         0.0                         \r\n0  1.280000E+03     G      6.869738E-07   1.360297E-06   1.024304E-06   1.834119E-07   2.363383E-07   0.0                           \r\n                            25.1994       295.1882       113.8382        23.7312       111.0278         0.0                         \r\n0  1.320000E+03     G      6.934447E-07   1.374610E-06   1.118736E-06   2.005659E-07   2.988089E-07   0.0                           \r\n                            25.1841       295.1711       113.4376        23.3177       110.8598         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      6.610402E-07   1.462121E-06   4.587445E-07   3.560289E-08   7.628075E-07   0.0                           \r\n                           332.1137        61.7931        62.5031       191.8455        61.4779         0.0                         \r\n0  2.350000E+03     G      6.683344E-07   1.495087E-06   4.603424E-07   5.451824E-08   7.985154E-07   0.0                           \r\n                           332.1077        61.6166        61.2681       263.3324        61.2749         0.0                         \r\n0  2.377600E+03     G      6.725085E-07   1.517455E-06   4.707461E-07   1.181479E-07   8.234118E-07   0.0                           \r\n                           332.1185        61.3736        59.5980       277.1996        61.2332         0.0                         \r\n0  2.395700E+03     G      6.753096E-07   1.534370E-06   4.834848E-07   2.011243E-07   8.427112E-07   0.0                           \r\n                           332.1450        61.0209        57.2079       275.7122        61.2731         0.0                         \r\n0  2.413854E+03     G      6.783876E-07   1.549464E-06   4.964548E-07   3.521959E-07   8.667871E-07   0.0                           \r\n                           332.2121        60.2467        51.9307       264.1653        61.3725         0.0                         \r\n0  2.432000E+03     G      6.828601E-07   1.537537E-06   4.627510E-07   5.687895E-07   8.993861E-07   0.0                           \r\n                           332.3060        59.0302        41.8359       235.3975        61.1540         0.0                         \r\n0  2.450100E+03     G      6.881170E-07   1.502681E-06   3.537681E-07   6.015404E-07   9.266086E-07   0.0                           \r\n                           332.2136        59.5620        40.9633       197.7475        60.2035         0.0                         \r\n0  2.480000E+03     G      6.936004E-07   1.523576E-06   3.324643E-07   4.241947E-07   9.621132E-07   0.0                           \r\n                           332.0432        61.0936        55.5486       167.7006        59.5899         0.0                         \r\n0  2.520000E+03     G      7.012131E-07   1.566765E-06   3.617205E-07   3.151700E-07   1.028869E-06   0.0                           \r\n                           331.9726        61.4865        60.0752       156.2682        59.2840         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      1.039703E-06   2.286492E-06   1.630857E-06   3.987073E-07   4.581541E-07   0.0                           \r\n                             4.7479       295.2091       305.7269       188.5689       154.4398         0.0                         \r\n0  1.150000E+03     G      1.048319E-06   2.315309E-06   1.667093E-06   4.398045E-07   3.548936E-07   0.0                           \r\n                             5.2758       295.0387       306.1027       184.1089       172.6212         0.0                         \r\n0  1.177600E+03     G      1.053995E-06   2.332206E-06   1.695980E-06   4.644644E-07   3.222108E-07   0.0                           \r\n                             5.4912       294.9399       306.2603       181.9565       186.6320         0.0                         \r\n0  1.195700E+03     G      1.058056E-06   2.343687E-06   1.718621E-06   4.815608E-07   3.133324E-07   0.0                           \r\n                             5.6061       294.8725       306.3435       180.6288       197.0748         0.0                         \r\n0  1.213854E+03     G      1.062395E-06   2.355533E-06   1.744492E-06   4.995598E-07   3.158023E-07   0.0                           \r\n                             5.7015       294.8024       306.4104       179.3480       207.9216         0.0                         \r\n0  1.232000E+03     G      1.066999E-06   2.367717E-06   1.773763E-06   5.185238E-07   3.300233E-07   0.0                           \r\n                             5.7779       294.7295       306.4597       178.1065       218.4358         0.0                         \r\n0  1.250100E+03     G      1.071858E-06   2.380226E-06   1.806664E-06   5.385523E-07   3.554923E-07   0.0                           \r\n                             5.8356       294.6534       306.4903       176.8952       228.0161         0.0                         \r\n0  1.280000E+03     G      1.080490E-06   2.401712E-06   1.870180E-06   5.745435E-07   4.199312E-07   0.0                           \r\n                             5.8918       294.5190       306.4964       174.9249       241.1602         0.0                         \r\n0  1.320000E+03     G      1.093289E-06   2.432206E-06   1.976808E-06   6.299794E-07   5.451798E-07   0.0                           \r\n                             5.8907       294.3171       306.4039       172.2746       253.8212         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      1.096356E-06   2.803230E-06   2.435149E-06   1.181052E-06   8.999894E-07   0.0                           \r\n                            11.1452        53.9625        77.5453       305.5564       266.3148         0.0                         \r\n0  2.350000E+03     G      1.150183E-06   2.837579E-06   3.307335E-06   2.144033E-06   1.202910E-06   0.0                           \r\n                            17.9105        49.5267        82.2862       301.2450       280.1938         0.0                         \r\n0  2.377600E+03     G      1.228500E-06   2.794310E-06   4.323832E-06   3.301390E-06   1.674617E-06   0.0                           \r\n                            24.3260        44.1967        83.9563       295.5187       286.0494         0.0                         \r\n0  2.395700E+03     G      1.358101E-06   2.662010E-06   5.543980E-06   4.687724E-06   2.296242E-06   0.0                           \r\n                            29.9128        37.7197        82.5686       287.9706       285.9454         0.0                         \r\n0  2.413854E+03     G      1.671656E-06   2.228418E-06   7.656588E-06   7.092037E-06   3.429525E-06   0.0                           \r\n                            33.9985        26.0732        74.7766       272.8254       277.7148         0.0                         \r\n0  2.432000E+03     G      2.228217E-06   9.424634E-07   1.022390E-05   1.017618E-05   4.943312E-06   0.0                           \r\n                            26.5919        18.2522        52.2943       241.8744       252.8804         0.0                         \r\n0  2.450100E+03     G      2.320942E-06   1.390895E-06   9.389091E-06   9.770381E-06   4.825569E-06   0.0                           \r\n                             8.9175       104.7426        22.5874       202.9110       219.1250         0.0                         \r\n0  2.480000E+03     G      1.881704E-06   2.682228E-06   5.824315E-06   6.077454E-06   3.129747E-06   0.0                           \r\n                             0.1738        86.7094         7.0540       171.8432       194.7636         0.0                         \r\n0  2.520000E+03     G      1.692193E-06   3.093080E-06   4.275272E-06   3.998537E-06   2.194666E-06   0.0                           \r\n                             2.8422        76.4265        12.9463       160.3283       189.1536         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      1.033026E-06   2.296960E-06   1.598584E-06   4.166756E-07   4.276977E-07   0.0                           \r\n                            45.5474       295.2478       284.4872       218.8294        82.3153         0.0                         \r\n0  1.150000E+03     G      1.042730E-06   2.326373E-06   1.634593E-06   4.538559E-07   3.088732E-07   0.0                           \r\n                            44.9512       295.3774       283.7922       222.0202        63.6954         0.0                         \r\n0  1.177600E+03     G      1.048946E-06   2.343686E-06   1.663268E-06   4.762125E-07   2.668382E-07   0.0                           \r\n                            44.6978       295.4523       283.4433       223.5625        47.6851         0.0                         \r\n0  1.195700E+03     G      1.053347E-06   2.355479E-06   1.685745E-06   4.917480E-07   2.531260E-07   0.0                           \r\n                            44.5575       295.5033       283.2262       224.5124        34.8898         0.0                         \r\n0  1.213854E+03     G      1.058018E-06   2.367673E-06   1.711433E-06   5.081387E-07   2.529362E-07   0.0                           \r\n                            44.4360       295.5563       283.0168       225.4261        21.1594         0.0                         \r\n0  1.232000E+03     G      1.062949E-06   2.380244E-06   1.740508E-06   5.254479E-07   2.670173E-07   0.0                           \r\n                            44.3327       295.6115       282.8150       226.3081         7.8655         0.0                         \r\n0  1.250100E+03     G      1.068135E-06   2.393185E-06   1.773207E-06   5.437723E-07   2.943138E-07   0.0                           \r\n                            44.2471       295.6691       282.6205       227.1637       356.1202         0.0                         \r\n0  1.280000E+03     G      1.077313E-06   2.415502E-06   1.836385E-06   5.768085E-07   3.636247E-07   0.0                           \r\n                            44.1421       295.7711       282.3112       228.5412       340.9213         0.0                         \r\n0  1.320000E+03     G      1.090897E-06   2.447407E-06   1.942612E-06   6.279395E-07   4.947682E-07   0.0                           \r\n                            44.0699       295.9244       281.9126       230.3551       327.2373         0.0                         \r\n0  1.700000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.750000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.777600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.795700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.813854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.832000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.880000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.920000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.300000E+03     G      9.903479E-07   2.997915E-06   1.962822E-06   1.151150E-06   5.613211E-07   0.0                           \r\n                           294.7259        68.1962        32.8394       318.4836       211.8769         0.0                         \r\n0  2.350000E+03     G      9.422312E-07   3.258121E-06   2.386403E-06   2.080749E-06   6.093550E-07   0.0                           \r\n                           289.8574        70.7219        18.0290       311.7683       169.6464         0.0                         \r\n0  2.377600E+03     G      8.537623E-07   3.565647E-06   2.821400E-06   3.204118E-06   9.013656E-07   0.0                           \r\n                           285.8988        72.6983         2.1677       304.2578       136.3410         0.0                         \r\n0  2.395700E+03     G      7.224626E-07   3.954446E-06   3.327664E-06   4.552686E-06   1.375167E-06   0.0                           \r\n                           283.3282        73.5619       344.8898       295.4128       113.8443         0.0                         \r\n0  2.413854E+03     G      4.638464E-07   4.668372E-06   4.211923E-06   6.895090E-06   2.305196E-06   0.0                           \r\n                           290.6919        71.3988       316.3460       278.8864        87.3080         0.0                         \r\n0  2.432000E+03     G      5.855297E-07   5.521366E-06   5.294276E-06   9.907125E-06   3.677189E-06   0.0                           \r\n                           351.5529        59.2594       267.8044       246.4886        47.9102         0.0                         \r\n0  2.450100E+03     G      1.252639E-06   5.006311E-06   4.900215E-06   9.527218E-06   3.892422E-06   0.0                           \r\n                           338.5670        42.4536       208.6964       206.0282         2.5996         0.0                         \r\n0  2.480000E+03     G      1.485801E-06   3.720783E-06   3.558114E-06   5.943836E-06   2.774781E-06   0.0                           \r\n                           313.8022        40.0979       148.3710       172.3970       323.9494         0.0                         \r\n0  2.520000E+03     G      1.507318E-06   3.371003E-06   3.278425E-06   3.927563E-06   2.095774E-06   0.0                           \r\n                           301.6553        46.2438       113.6211       157.3306       305.5152         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.174404E-07   9.216423E-08   9.140210E-05   6.326524E-07   3.880847E-05   0.0                           \r\n                            81.1428       351.4910       170.3992       255.0195       169.2649         0.0                         \r\n0  1.750000E+03     G      1.871551E-07   1.500957E-07   1.599121E-04   1.845453E-06   7.191866E-05   0.0                           \r\n                            74.3593       344.7120       162.9973       239.2494       161.8562         0.0                         \r\n0  1.777600E+03     G      2.930354E-07   2.376881E-07   2.672584E-04   4.987352E-06   1.240075E-04   0.0                           \r\n                            62.5079       333.4273       150.6840       214.2454       149.5418         0.0                         \r\n0  1.795700E+03     G      4.445989E-07   3.661526E-07   4.262200E-04   1.240588E-05   2.018210E-04   0.0                           \r\n                            40.5656       313.2509       128.4020       169.6367       127.2657         0.0                         \r\n0  1.813854E+03     G      5.233921E-07   4.700779E-07   5.321302E-04   1.896156E-05   2.572004E-04   0.0                           \r\n                           351.6050       265.6357        79.0191        70.0870        77.8881         0.0                         \r\n0  1.832000E+03     G      3.217614E-07   3.044080E-07   3.494571E-04   7.850150E-06   1.723578E-04   0.0                           \r\n                           313.1172       223.9699        39.8597       351.4150        38.7112         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.920985E-07   1.860998E-07   2.248057E-04   3.131161E-06   1.131011E-04   0.0                           \r\n                           298.2934       207.5255        24.2660       320.0626        23.1080         0.0                         \r\n0  1.880000E+03     G      9.933256E-08   1.024835E-07   1.353439E-04   1.056562E-06   7.034354E-05   0.0                           \r\n                           290.0172       197.5958        14.2766       299.5400        13.1106         0.0                         \r\n0  1.920000E+03     G      4.766881E-08   5.729036E-08   8.680157E-05   3.832549E-07   4.709519E-05   0.0                           \r\n                           288.9453       193.2731         9.0507       287.8826         7.8777         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      5.677301E-06   2.635854E-06   7.889604E-05   3.656077E-05   1.081107E-04   0.0                           \r\n                           351.7191         4.0717       348.1230       168.6925       352.8285         0.0                         \r\n0  1.750000E+03     G      9.900430E-06   4.510686E-06   1.437922E-04   5.813071E-05   1.703036E-04   0.0                           \r\n                           345.2796       357.8994       341.2241       161.0558       345.5209         0.0                         \r\n0  1.777600E+03     G      1.599969E-05   7.696907E-06   2.423045E-04   9.069330E-05   2.687008E-04   0.0                           \r\n                           333.3829       347.6104       329.0088       148.0454       333.3269         0.0                         \r\n0  1.795700E+03     G      2.438633E-05   1.338693E-05   3.837431E-04   1.337216E-04   4.135072E-04   0.0                           \r\n                           311.5540       324.9854       306.8374       125.3830       311.1561         0.0                         \r\n0  1.813854E+03     G      2.888635E-05   1.746594E-05   4.744195E-04   1.535504E-04   4.990043E-04   0.0                           \r\n                           264.6787       263.7770       258.9039        80.8746       261.5365         0.0                         \r\n0  1.832000E+03     G      1.855598E-05   9.295907E-06   3.165310E-04   1.038289E-04   3.139631E-04   0.0                           \r\n                           226.9511       218.9538       220.5060        43.9504       222.1696         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.134607E-05   5.191631E-06   2.041242E-04   6.591264E-05   1.937226E-04   0.0                           \r\n                           211.8949       205.4847       204.9299        27.7611       206.6252         0.0                         \r\n0  1.880000E+03     G      5.993595E-06   2.669896E-06   1.214059E-04   3.739296E-05   1.090492E-04   0.0                           \r\n                           203.4969       199.1262       195.0971        17.2716       196.7558         0.0                         \r\n0  1.920000E+03     G      2.912873E-06   1.357264E-06   7.516897E-05   2.164046E-05   6.386180E-05   0.0                           \r\n                           202.5929       198.6037       190.3019        12.0214       191.7087         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      5.472633E-06   3.009574E-06   7.757386E-05   2.966245E-05   1.092706E-04   0.0                           \r\n                           167.7250       339.6931       350.4452       356.2615       352.0661         0.0                         \r\n0  1.750000E+03     G      9.637372E-06   4.888785E-06   1.423139E-04   4.795662E-05   1.717453E-04   0.0                           \r\n                           161.8136       331.9496       343.5142       349.4526       344.7461         0.0                         \r\n0  1.777600E+03     G      1.582546E-05   7.455421E-06   2.424528E-04   7.783950E-05   2.700448E-04   0.0                           \r\n                           150.6041       317.2739       331.6216       338.0650       332.4636         0.0                         \r\n0  1.795700E+03     G      2.497741E-05   1.001526E-05   3.932370E-04   1.258710E-04   4.127121E-04   0.0                           \r\n                           129.0490       292.3493       309.5671       315.9896       310.2645         0.0                         \r\n0  1.813854E+03     G      3.060975E-05   9.684344E-06   4.976650E-04   1.581157E-04   4.946743E-04   0.0                           \r\n                            78.6041       260.0081       259.1491       261.6761       261.3323         0.0                         \r\n0  1.832000E+03     G      1.873961E-05   7.774793E-06   3.213101E-04   9.347103E-05   3.138980E-04   0.0                           \r\n                            39.2113       228.6865       219.5710       220.1582       222.2901         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.123489E-05   5.110310E-06   2.044178E-04   5.603770E-05   1.942860E-04   0.0                           \r\n                            24.6429       211.0804       204.3157       205.3453       206.6603         0.0                         \r\n0  1.880000E+03     G      5.900006E-06   2.787552E-06   1.210464E-04   3.109384E-05   1.093672E-04   0.0                           \r\n                            16.7203       200.1342       194.8407       196.4236       196.6919         0.0                         \r\n0  1.920000E+03     G      2.882077E-06   1.389543E-06   7.505916E-05   1.800773E-05   6.388516E-05   0.0                           \r\n                            15.8065       196.8079       190.2423       192.1291       191.5667         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.780735E-08   8.360929E-08   2.140864E-06   3.407651E-05   6.619650E-07   0.0                           \r\n                           173.2896       261.3081       255.8090       350.4118       251.9602         0.0                         \r\n0  1.750000E+03     G      2.555257E-08   1.335189E-07   5.586836E-06   5.954339E-05   2.139146E-06   0.0                           \r\n                           167.5288       254.7386       240.7375       343.0360       236.9185         0.0                         \r\n0  1.777600E+03     G      3.667999E-08   2.080189E-07   1.427634E-05   9.938507E-05   6.088732E-06   0.0                           \r\n                           152.0956       243.8041       215.9257       330.7432       212.1418         0.0                         \r\n0  1.795700E+03     G      5.033107E-08   3.170027E-07   3.432819E-05   1.583236E-04   1.566568E-05   0.0                           \r\n                           114.4046       224.3591       171.3650       308.4811       167.6103         0.0                         \r\n0  1.813854E+03     G      3.210475E-08   4.109602E-07   5.084448E-05   1.974441E-04   2.478310E-05   0.0                           \r\n                             3.7810       177.3228        71.8017       259.1189        68.0795         0.0                         \r\n0  1.832000E+03     G      1.796282E-08   2.647201E-07   2.045582E-05   1.294678E-04   1.063270E-05   0.0                           \r\n                           218.4325       134.9222       353.0566       219.9667       349.3687         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      1.967199E-08   1.590877E-07   7.953066E-06   8.312602E-05   4.402733E-06   0.0                           \r\n                           183.9468       118.2759       321.5774       204.3883       317.9225         0.0                         \r\n0  1.880000E+03     G      2.155520E-08   8.478383E-08   2.589937E-06   4.985054E-05   1.589583E-06   0.0                           \r\n                           175.3145       108.5263       300.7535       194.4352       297.1421         0.0                         \r\n0  1.920000E+03     G      2.505519E-08   4.467984E-08   9.068008E-07   3.174947E-05   6.414943E-07   0.0                           \r\n                           174.3613       104.9677       288.6519       189.2741       285.0497         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   107\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.554489E-06   5.960289E-06   1.829593E-05   2.301694E-05   4.144077E-06   0.0                           \r\n                           351.4367       168.6996       351.1187       167.3951       165.5521         0.0                         \r\n0  1.750000E+03     G      3.310605E-06   1.226966E-05   3.848717E-05   4.806402E-05   8.729379E-06   0.0                           \r\n                           344.2343       161.1199       345.6857       160.5498       147.6948         0.0                         \r\n0  1.777600E+03     G      6.338202E-06   2.235318E-05   7.403588E-05   8.943418E-05   1.460373E-05   0.0                           \r\n                           333.0204       148.5540       335.5179       148.8957       119.7681         0.0                         \r\n0  1.795700E+03     G      1.165667E-05   3.745592E-05   1.390328E-04   1.564907E-04   1.660982E-05   0.0                           \r\n                           310.8500       126.1035       313.3394       126.7899        66.8483         0.0                         \r\n0  1.813854E+03     G      1.667416E-05   4.905764E-05   1.997245E-04   2.135886E-04   1.572964E-05   0.0                           \r\n                           253.8662        77.6617       253.7456        74.1390       186.4767         0.0                         \r\n0  1.832000E+03     G      1.062973E-05   3.465989E-05   1.211497E-04   1.425170E-04   2.634501E-05   0.0                           \r\n                           210.4304        39.0160       209.3275        33.4590        89.1119         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   108\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      6.961679E-06   2.381755E-05   7.688683E-05   9.551120E-05   2.064728E-05   0.0                           \r\n                           195.4636        23.2572       195.1331        18.3581        54.8109         0.0                         \r\n0  1.880000E+03     G      4.589374E-06   1.588549E-05   4.930142E-05   6.311801E-05   1.472395E-05   0.0                           \r\n                           186.3626        13.0340       187.1717         8.9244        32.7609         0.0                         \r\n0  1.920000E+03     G      3.421365E-06   1.168061E-05   3.575720E-05   4.640652E-05   1.141577E-05   0.0                           \r\n                           181.3173         7.6021       183.0964         3.9298        20.9138         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   109\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.100000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.150000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.177600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.195700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.213854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.232000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.250100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.280000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.320000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  1.700000E+03     G      1.540136E-06   5.966928E-06   1.791526E-05   2.296889E-05   4.617723E-06   0.0                           \r\n                           342.2393       345.6925       163.1833       166.6622       345.6739         0.0                         \r\n0  1.750000E+03     G      3.197286E-06   1.231696E-05   3.642353E-05   4.756088E-05   1.096315E-05   0.0                           \r\n                           334.3333       338.3748       153.4598       158.7329       346.6693         0.0                         \r\n0  1.777600E+03     G      5.729867E-06   2.261979E-05   6.385190E-05   8.642459E-05   2.468049E-05   0.0                           \r\n                           320.4887       326.1994       137.9138       145.7308       341.0630         0.0                         \r\n0  1.795700E+03     G      8.969903E-06   3.866266E-05   9.528207E-05   1.426941E-04   5.671450E-05   0.0                           \r\n                           297.2229       303.9052       112.7819       123.0301       317.7153         0.0                         \r\n0  1.813854E+03     G      1.092568E-05   5.164328E-05   1.057370E-04   1.839182E-04   9.396282E-05   0.0                           \r\n                           258.1092       253.3236        78.6938        76.4493       244.9847         0.0                         \r\n0  1.832000E+03     G      8.907736E-06   3.540904E-05   9.326600E-05   1.338870E-04   5.101912E-05   0.0                           \r\n                           222.5956       213.6505        45.3832        38.5989       189.9543         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   110\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  1.850100E+03     G      6.461210E-06   2.401347E-05   6.886875E-05   9.324898E-05   2.888275E-05   0.0                           \r\n                           205.2973       198.1803        26.9175        22.4782       174.6350         0.0                         \r\n0  1.880000E+03     G      4.460614E-06   1.591862E-05   4.732356E-05   6.272853E-05   1.724920E-05   0.0                           \r\n                           193.7993       188.2536        14.2301        11.8444       169.2489         0.0                         \r\n0  1.920000E+03     G      3.376849E-06   1.167854E-05   3.516128E-05   4.641618E-05   1.245139E-05   0.0                           \r\n                           187.8700       182.8984         7.4097         6.1208       168.2216         0.0                         \r\n0  2.300000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.350000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.377600E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.395700E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.413854E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.432000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.450100E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.480000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0  2.520000E+03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   111\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.100000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.150000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.177600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.195700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.213854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.232000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.250100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.280000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.320000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.700000E+03 -6.250000E-02      2.206746E+02 / 357.9548           2.732868E+01 / 357.8962           1.650073E+01 /   2.7368      \r\n                 6.250000E-02      2.189872E+02 / 180.1396           3.008245E+01 / 182.1591           2.868217E+01 / 179.7310      \r\n0  1.750000E+03 -6.250000E-02      1.536927E+02 / 356.8354           1.886425E+01 / 357.1326           1.199822E+01 /   3.9464      \r\n                 6.250000E-02      1.529495E+02 / 179.0584           2.085057E+01 / 181.3178           2.007735E+01 / 178.2520      \r\n0  1.777600E+03 -6.250000E-02      1.306427E+02 / 356.7908           1.600668E+01 / 357.3502           1.054066E+01 /   5.2898      \r\n                 6.250000E-02      1.303023E+02 / 179.0242           1.773562E+01 / 181.3482           1.710206E+01 / 177.7671      \r\n0  1.795700E+03 -6.250000E-02      1.186236E+02 / 356.9272           1.454029E+01 / 357.7023           9.837273E+00 /   6.3832      \r\n                 6.250000E-02      1.185425E+02 / 179.1579           1.613786E+01 / 181.4708           1.553972E+01 / 177.4350      \r\n0  1.813854E+03 -6.250000E-02      1.083920E+02 / 357.1911           1.331561E+01 / 358.2417           9.310007E+00 /   7.6336      \r\n                 6.250000E-02      1.085929E+02 / 179.4023           1.480168E+01 / 181.6276           1.419090E+01 / 176.9753      \r\n0  1.832000E+03 -6.250000E-02      9.963435E+01 / 357.5984           1.230346E+01 / 359.0235           8.981041E+00 /   8.9686      \r\n                 6.250000E-02      1.001739E+02 / 179.7498           1.368515E+01 / 181.7447           1.299014E+01 / 176.1965      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   112\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.850100E+03 -6.250000E-02      9.217604E+01 / 358.1973           1.151697E+01 /   0.1417           8.942354E+00 /   9.9777      \r\n                 6.250000E-02      9.316235E+01 / 180.1695           1.275637E+01 / 181.6315           1.182377E+01 / 174.7031      \r\n0  1.880000E+03 -6.250000E-02      8.346830E+01 / 359.2763           1.110208E+01 /   0.6362           9.701082E+00 /   1.8314      \r\n                 6.250000E-02      8.457233E+01 / 179.8166           1.123373E+01 / 179.2905           8.747306E+00 / 172.4664      \r\n0  1.920000E+03 -6.250000E-02      7.118628E+01 / 358.4522           9.122073E+00 / 356.0922           6.217945E+00 / 355.9240      \r\n                 6.250000E-02      7.004842E+01 / 179.9334           9.193837E+00 / 183.4604           8.306042E+00 / 188.4296      \r\n0  2.300000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.350000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.377600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.395700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.413854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.432000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.450100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.480000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.520000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   113\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.100000E+03 -6.250000E-02      1.828214E+00 / 134.9916           1.477484E+00 / 318.8048           1.753927E+00 /  17.7263      \r\n                 6.250000E-02      1.359526E+00 / 119.1136           1.131759E+00 / 301.2357           1.932159E+00 /  49.6527      \r\n0  1.150000E+03 -6.250000E-02      1.988019E+00 / 143.4671           1.475464E+00 / 316.7348           1.757543E+00 /  17.3326      \r\n                 6.250000E-02      1.387727E+00 / 106.1946           1.151415E+00 / 304.2833           1.999065E+00 /  49.3613      \r\n0  1.177600E+03 -6.250000E-02      2.097739E+00 / 147.6281           1.475741E+00 / 315.6182           1.760344E+00 /  17.1007      \r\n                 6.250000E-02      1.431958E+00 /  99.2581           1.164131E+00 / 305.8940           2.037894E+00 /  49.2054      \r\n0  1.195700E+03 -6.250000E-02      2.178620E+00 / 150.1933           1.476313E+00 / 314.8835           1.762325E+00 /  16.9418      \r\n                 6.250000E-02      1.472436E+00 /  94.8173           1.173251E+00 / 306.9388           2.064333E+00 /  49.1027      \r\n0  1.213854E+03 -6.250000E-02      2.267515E+00 / 152.6535           1.477134E+00 / 314.1379           1.764339E+00 /  16.7762      \r\n                 6.250000E-02      1.522645E+00 /  90.4610           1.183087E+00 / 307.9870           2.091779E+00 /  48.9978      \r\n0  1.232000E+03 -6.250000E-02      2.364959E+00 / 155.0130           1.478134E+00 / 313.3769           1.766281E+00 /  16.6037      \r\n                 6.250000E-02      1.583076E+00 /  86.2109           1.193675E+00 / 309.0418           2.120280E+00 /  48.8899      \r\n0  1.250100E+03 -6.250000E-02      2.471748E+00 / 157.2791           1.479264E+00 / 312.5950           1.768050E+00 /  16.4240      \r\n                 6.250000E-02      1.654394E+00 /  82.0790           1.205099E+00 / 310.1095           2.149933E+00 /  48.7777      \r\n0  1.280000E+03 -6.250000E-02      2.672781E+00 / 160.8583           1.481259E+00 / 311.2306           1.770283E+00 /  16.1075      \r\n                 6.250000E-02      1.799413E+00 /  75.4913           1.226215E+00 / 311.9298           2.202106E+00 /  48.5783      \r\n0  1.320000E+03 -6.250000E-02      3.002931E+00 / 165.3817           1.483724E+00 / 309.1873           1.770860E+00 /  15.6380      \r\n                 6.250000E-02      2.057975E+00 /  67.1289           1.260174E+00 / 314.5421           2.279789E+00 /  48.2697      \r\n0  1.700000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.750000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.777600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.795700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.813854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.832000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   114\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.850100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.880000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.920000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.300000E+03 -6.250000E-02      1.073413E+00 / 293.9794           2.056587E+00 /  33.4681           2.741198E+00 / 314.3722      \r\n                 6.250000E-02      2.249190E+00 / 183.8678           1.957845E+00 /  56.6546           2.773755E+00 / 334.7196      \r\n0  2.350000E+03 -6.250000E-02      7.350791E-01 / 300.5406           2.038177E+00 /  35.3928           2.822576E+00 / 301.2126      \r\n                 6.250000E-02      2.272972E+00 / 190.5952           2.176751E+00 /  51.5875           3.382025E+00 / 343.0042      \r\n0  2.377600E+03 -6.250000E-02      4.882152E-01 / 329.0555           1.999464E+00 /  38.6548           2.883622E+00 / 285.1177      \r\n                 6.250000E-02      2.444479E+00 / 197.4639           2.381544E+00 /  45.5408           4.207928E+00 / 348.1032      \r\n0  2.395700E+03 -6.250000E-02      6.267024E-01 /  15.8307           1.983054E+00 /  43.6336           2.976949E+00 / 265.2467      \r\n                 6.250000E-02      2.787251E+00 / 202.8724           2.573132E+00 /  37.9888           5.295377E+00 / 349.5726      \r\n0  2.413854E+03 -6.250000E-02      1.459137E+00 /  30.6026           2.120771E+00 /  52.9900           3.271657E+00 / 228.6396      \r\n                 6.250000E-02      3.609152E+00 / 204.7806           2.770896E+00 /  23.2472           7.309336E+00 / 344.8131      \r\n0  2.432000E+03 -6.250000E-02      2.951956E+00 /  10.4741           2.824687E+00 /  57.7427           4.048505E+00 / 165.5146      \r\n                 6.250000E-02      4.953376E+00 / 192.3088           2.508172E+00 / 353.7670           9.959658E+00 / 324.9321      \r\n0  2.450100E+03 -6.250000E-02      3.589900E+00 / 336.2118           3.433469E+00 /  45.3705           4.482534E+00 /  96.9822      \r\n                 6.250000E-02      5.032765E+00 / 169.1423           1.135846E+00 / 320.6385           9.475514E+00 / 296.7399      \r\n0  2.480000E+03 -6.250000E-02      2.876008E+00 / 308.3363           3.273562E+00 /  33.0538           4.156112E+00 /  40.1355      \r\n                 6.250000E-02      3.744685E+00 / 154.8206           4.977689E-01 /  78.8906           6.235198E+00 / 280.7816      \r\n0  2.520000E+03 -6.250000E-02      2.292659E+00 / 298.0153           3.127081E+00 /  29.2630           4.036932E+00 /  14.5715      \r\n                 6.250000E-02      3.067878E+00 / 153.3237           1.161663E+00 /  78.6684           4.690766E+00 / 282.8702      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   115\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.100000E+03 -6.250000E-02      1.828213E+00 /  44.9916           1.477484E+00 / 228.8048           1.753927E+00 / 287.7263      \r\n                 6.250000E-02      1.359525E+00 /  29.1135           1.131759E+00 / 211.2357           1.932159E+00 / 319.6526      \r\n0  1.150000E+03 -6.250000E-02      1.988019E+00 /  53.4671           1.475463E+00 / 226.7349           1.757543E+00 / 287.3326      \r\n                 6.250000E-02      1.387727E+00 /  16.1946           1.151414E+00 / 214.2833           1.999066E+00 / 319.3613      \r\n0  1.177600E+03 -6.250000E-02      2.097738E+00 /  57.6281           1.475740E+00 / 225.6181           1.760344E+00 / 287.1007      \r\n                 6.250000E-02      1.431958E+00 /   9.2581           1.164131E+00 / 215.8939           2.037894E+00 / 319.2054      \r\n0  1.195700E+03 -6.250000E-02      2.178620E+00 /  60.1933           1.476312E+00 / 224.8835           1.762326E+00 / 286.9418      \r\n                 6.250000E-02      1.472436E+00 /   4.8173           1.173250E+00 / 216.9389           2.064333E+00 / 319.1027      \r\n0  1.213854E+03 -6.250000E-02      2.267514E+00 /  62.6535           1.477134E+00 / 224.1379           1.764339E+00 / 286.7762      \r\n                 6.250000E-02      1.522646E+00 /   0.4610           1.183087E+00 / 217.9870           2.091779E+00 / 318.9978      \r\n0  1.232000E+03 -6.250000E-02      2.364960E+00 /  65.0130           1.478136E+00 / 223.3768           1.766281E+00 / 286.6037      \r\n                 6.250000E-02      1.583076E+00 / 356.2109           1.193677E+00 / 219.0417           2.120279E+00 / 318.8899      \r\n0  1.250100E+03 -6.250000E-02      2.471748E+00 /  67.2792           1.479265E+00 / 222.5950           1.768051E+00 / 286.4240      \r\n                 6.250000E-02      1.654393E+00 / 352.0790           1.205100E+00 / 220.1094           2.149934E+00 / 318.7777      \r\n0  1.280000E+03 -6.250000E-02      2.672781E+00 /  70.8583           1.481260E+00 / 221.2306           1.770283E+00 / 286.1075      \r\n                 6.250000E-02      1.799413E+00 / 345.4913           1.226215E+00 / 221.9298           2.202106E+00 / 318.5783      \r\n0  1.320000E+03 -6.250000E-02      3.002931E+00 /  75.3817           1.483724E+00 / 219.1873           1.770860E+00 / 285.6379      \r\n                 6.250000E-02      2.057973E+00 / 337.1289           1.260174E+00 / 224.5421           2.279789E+00 / 318.2697      \r\n0  1.700000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.750000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.777600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.795700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.813854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.832000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   116\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.850100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.880000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.920000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.300000E+03 -6.250000E-02      1.073413E+00 /  23.9794           2.056586E+00 / 123.4681           2.741199E+00 /  44.3722      \r\n                 6.250000E-02      2.249189E+00 / 273.8678           1.957844E+00 / 146.6546           2.773756E+00 /  64.7196      \r\n0  2.350000E+03 -6.250000E-02      7.350781E-01 /  30.5404           2.038175E+00 / 125.3928           2.822577E+00 /  31.2126      \r\n                 6.250000E-02      2.272974E+00 / 280.5952           2.176749E+00 / 141.5875           3.382025E+00 /  73.0042      \r\n0  2.377600E+03 -6.250000E-02      4.882156E-01 /  59.0554           1.999461E+00 / 128.6548           2.883621E+00 /  15.1177      \r\n                 6.250000E-02      2.444479E+00 / 287.4640           2.381542E+00 / 135.5409           4.207928E+00 /  78.1032      \r\n0  2.395700E+03 -6.250000E-02      6.267023E-01 / 105.8307           1.983050E+00 / 133.6336           2.976948E+00 / 355.2467      \r\n                 6.250000E-02      2.787251E+00 / 292.8724           2.573129E+00 / 127.9888           5.295378E+00 /  79.5726      \r\n0  2.413854E+03 -6.250000E-02      1.459137E+00 / 120.6026           2.120771E+00 / 142.9899           3.271656E+00 / 318.6396      \r\n                 6.250000E-02      3.609152E+00 / 294.7806           2.770899E+00 / 113.2471           7.309339E+00 /  74.8131      \r\n0  2.432000E+03 -6.250000E-02      2.951958E+00 / 100.4741           2.824686E+00 / 147.7428           4.048505E+00 / 255.5146      \r\n                 6.250000E-02      4.953375E+00 / 282.3088           2.508170E+00 /  83.7669           9.959657E+00 /  54.9321      \r\n0  2.450100E+03 -6.250000E-02      3.589900E+00 /  66.2118           3.433470E+00 / 135.3705           4.482536E+00 / 186.9822      \r\n                 6.250000E-02      5.032765E+00 / 259.1423           1.135843E+00 /  50.6386           9.475514E+00 /  26.7399      \r\n0  2.480000E+03 -6.250000E-02      2.876011E+00 /  38.3363           3.273559E+00 / 123.0539           4.156113E+00 / 130.1355      \r\n                 6.250000E-02      3.744683E+00 / 244.8206           4.977681E-01 / 168.8910           6.235198E+00 /  10.7817      \r\n0  2.520000E+03 -6.250000E-02      2.292657E+00 /  28.0152           3.127078E+00 / 119.2629           4.036932E+00 / 104.5715      \r\n                 6.250000E-02      3.067879E+00 / 243.3237           1.161660E+00 / 168.6685           4.690767E+00 /  12.8702      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   117\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.100000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.150000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.177600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.195700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.213854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.232000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.250100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.280000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.320000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.700000E+03 -6.250000E-02      2.817143E+02 / 170.5973           4.053678E+01 / 170.6489           1.743522E+01 / 166.5086      \r\n                 6.250000E-02      2.778417E+02 / 352.4720           4.413295E+01 / 352.2794           3.563684E+01 / 350.6381      \r\n0  1.750000E+03 -6.250000E-02      4.664189E+02 / 163.2428           6.622318E+01 / 163.2379           2.959514E+01 / 158.9650      \r\n                 6.250000E-02      4.601888E+02 / 345.0610           7.192551E+01 / 344.9261           5.857209E+01 / 343.3699      \r\n0  1.777600E+03 -6.250000E-02      7.562914E+02 / 150.9893           1.066149E+02 / 150.9248           4.861847E+01 / 146.1366      \r\n                 6.250000E-02      7.465438E+02 / 332.7607           1.155281E+02 / 332.6324           9.388234E+01 / 330.9586      \r\n0  1.795700E+03 -6.250000E-02      1.182826E+03 / 128.7809           1.656887E+02 / 128.7027           7.536248E+01 / 123.5048      \r\n                 6.250000E-02      1.168279E+03 / 310.5100           1.793023E+02 / 310.4124           1.439402E+02 / 308.7191      \r\n0  1.813854E+03 -6.250000E-02      1.450054E+03 /  79.4350           2.020014E+02 /  79.6817           9.126247E+01 /  77.0086      \r\n                 6.250000E-02      1.433033E+03 / 261.0794           2.182739E+02 / 261.2639           1.729657E+02 / 261.1077      \r\n0  1.832000E+03 -6.250000E-02      9.334911E+02 /  40.2432           1.302787E+02 /  40.6220           6.267014E+01 /  39.3142      \r\n                 6.250000E-02      9.224543E+02 / 221.8181           1.401064E+02 / 222.0947           1.131941E+02 / 222.6774      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   118\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.850100E+03 -6.250000E-02      5.883337E+02 /  24.6823           8.206145E+01 /  25.0166           4.129694E+01 /  23.2689      \r\n                 6.250000E-02      5.815434E+02 / 206.1973           8.783842E+01 / 206.4401           7.142776E+01 / 206.9068      \r\n0  1.880000E+03 -6.250000E-02      3.423826E+02 /  14.7949           4.763166E+01 /  15.1012           2.546400E+01 /  12.6772      \r\n                 6.250000E-02      3.387245E+02 / 196.1855           5.055602E+01 / 196.4043           4.102967E+01 / 196.8115      \r\n0  1.920000E+03 -6.250000E-02      2.095921E+02 /   9.7593           2.905444E+01 /  10.1026           1.690720E+01 /   6.8762      \r\n                 6.250000E-02      2.076866E+02 / 190.9309           3.039595E+01 / 191.1423           2.437536E+01 / 191.6573      \r\n0  2.300000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.350000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.377600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.395700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.413854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.432000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.450100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.480000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.520000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   119\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.100000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.150000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.177600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.195700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.213854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.232000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.250100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.280000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.320000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  1.700000E+03 -6.250000E-02      2.138816E+00 / 292.8717           1.978294E+00 / 163.5224           7.660756E+00 / 169.3074      \r\n                 6.250000E-02      3.279183E+00 / 133.5918           4.625420E-01 / 292.7547           7.764153E+00 / 346.4962      \r\n0  1.750000E+03 -6.250000E-02      7.949481E+00 / 253.9012           4.192850E+00 / 167.9975           1.677563E+01 / 162.6611      \r\n                 6.250000E-02      8.955834E+00 /  94.7426           1.741231E+00 / 344.7083           1.697071E+01 / 340.5355      \r\n0  1.777600E+03 -6.250000E-02      2.570746E+01 / 217.3599           9.204542E+00 / 164.1997           3.229364E+01 / 151.2604      \r\n                 6.250000E-02      2.482221E+01 /  51.5362           5.842542E+00 / 347.2167           3.307615E+01 / 330.0369      \r\n0  1.795700E+03 -6.250000E-02      7.311846E+01 / 165.7806           2.121174E+01 / 140.5517           5.843008E+01 / 129.0563      \r\n                 6.250000E-02      6.647840E+01 / 353.4985           1.702474E+01 / 321.2145           6.193951E+01 / 308.1901      \r\n0  1.813854E+03 -6.250000E-02      1.293944E+02 /  59.7604           3.459561E+01 /  65.4872           8.189013E+01 /  74.6917      \r\n                 6.250000E-02      1.156690E+02 / 240.6218           3.205518E+01 / 240.7489           9.004471E+01 / 250.6463      \r\n0  1.832000E+03 -6.250000E-02      6.272584E+01 / 335.1705           1.776093E+01 /   8.4008           5.429327E+01 /  33.4020      \r\n                 6.250000E-02      5.722831E+01 / 149.9564           1.741392E+01 / 179.8127           5.726308E+01 / 206.9608      \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   120\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2S                                                                                               SUBCASE 5             \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  1.850100E+03 -6.250000E-02      2.959370E+01 / 298.4788           9.422755E+00 / 352.6216           3.666021E+01 /  18.6443      \r\n                 6.250000E-02      2.818832E+01 / 108.5854           9.543056E+00 / 163.2357           3.755928E+01 / 192.3364      \r\n0  1.880000E+03 -6.250000E-02      1.346610E+01 / 270.3850           5.160745E+00 / 348.0357           2.485717E+01 /   9.6027      \r\n                 6.250000E-02      1.398183E+01 /  75.7532           5.639787E+00 / 160.2827           2.500720E+01 / 183.8253      \r\n0  1.920000E+03 -6.250000E-02      7.594226E+00 / 251.0701           3.425541E+00 / 348.4281           1.901733E+01 /   4.8621      \r\n                 6.250000E-02      8.722034E+00 /  54.0280           4.273268E+00 / 163.1073           1.895605E+01 / 179.4235      \r\n0  2.300000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.350000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.377600E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.395700E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.413854E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.432000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.450100E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.480000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n0  2.520000E+03 -6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n                 6.250000E-02      0.0          /   0.0              0.0          /   0.0              0.0          /   0.0         \r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   121\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        8( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    1\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  8.639661E-05 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  8.639661E-05 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   122\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        8     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         8.639661E-05\r\n                                 11             1.750000E+03         6.480642E-05\r\n                                 12             1.777600E+03         5.736462E-05\r\n                                 13             1.795700E+03         5.347747E-05\r\n                                 14             1.813854E+03         5.016476E-05\r\n                                 15             1.832000E+03         4.733060E-05\r\n                                 16             1.850100E+03         4.492821E-05\r\n                                 17             1.880000E+03         4.201520E-05\r\n                                 18             1.920000E+03         3.741213E-05\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   123\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       18( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    1\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.666240E-05 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  7.666240E-05 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   124\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       18     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         7.666240E-05\r\n                                 11             1.750000E+03         5.403511E-05\r\n                                 12             1.777600E+03         4.568585E-05\r\n                                 13             1.795700E+03         4.113526E-05\r\n                                 14             1.813854E+03         3.710805E-05\r\n                                 15             1.832000E+03         3.349212E-05\r\n                                 16             1.850100E+03         3.017711E-05\r\n                                 17             1.880000E+03         2.537732E-05\r\n                                 18             1.920000E+03         2.132619E-05\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   125\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        8( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    2\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.118736E-06 AT X =   1.320000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.118736E-06 AT X =   1.320000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   126\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        8     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         8.380300E-07\r\n                                  2             1.150000E+03         8.610437E-07\r\n                                  3             1.177600E+03         8.819665E-07\r\n                                  4             1.195700E+03         8.991777E-07\r\n                                  5             1.213854E+03         9.194694E-07\r\n                                  6             1.232000E+03         9.430638E-07\r\n                                  7             1.250100E+03         9.702431E-07\r\n                                  8             1.280000E+03         1.024304E-06\r\n                                  9             1.320000E+03         1.118736E-06\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         4.587445E-07\r\n                                 20             2.350000E+03         4.603424E-07\r\n                                 21             2.377600E+03         4.707461E-07\r\n                                 22             2.395700E+03         4.834848E-07\r\n                                 23             2.413854E+03         4.964548E-07\r\n                                 24             2.432000E+03         4.627510E-07\r\n                                 25             2.450100E+03         3.537681E-07\r\n                                 26             2.480000E+03         3.324643E-07\r\n                                 27             2.520000E+03         3.617205E-07\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   127\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       18( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    2\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.294276E-06 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.294276E-06 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   128\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       18     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.598584E-06\r\n                                  2             1.150000E+03         1.634593E-06\r\n                                  3             1.177600E+03         1.663268E-06\r\n                                  4             1.195700E+03         1.685745E-06\r\n                                  5             1.213854E+03         1.711433E-06\r\n                                  6             1.232000E+03         1.740508E-06\r\n                                  7             1.250100E+03         1.773207E-06\r\n                                  8             1.280000E+03         1.836385E-06\r\n                                  9             1.320000E+03         1.942612E-06\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.962822E-06\r\n                                 20             2.350000E+03         2.386404E-06\r\n                                 21             2.377600E+03         2.821400E-06\r\n                                 22             2.395700E+03         3.327664E-06\r\n                                 23             2.413854E+03         4.211923E-06\r\n                                 24             2.432000E+03         5.294276E-06\r\n                                 25             2.450100E+03         4.900215E-06\r\n                                 26             2.480000E+03         3.558113E-06\r\n                                 27             2.520000E+03         3.278425E-06\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   129\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        8( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    3\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.118736E-06 AT X =   1.320000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.118736E-06 AT X =   1.320000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   130\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        8     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         8.380300E-07\r\n                                  2             1.150000E+03         8.610437E-07\r\n                                  3             1.177600E+03         8.819665E-07\r\n                                  4             1.195700E+03         8.991776E-07\r\n                                  5             1.213854E+03         9.194694E-07\r\n                                  6             1.232000E+03         9.430637E-07\r\n                                  7             1.250100E+03         9.702431E-07\r\n                                  8             1.280000E+03         1.024304E-06\r\n                                  9             1.320000E+03         1.118736E-06\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         4.587445E-07\r\n                                 20             2.350000E+03         4.603424E-07\r\n                                 21             2.377600E+03         4.707461E-07\r\n                                 22             2.395700E+03         4.834848E-07\r\n                                 23             2.413854E+03         4.964548E-07\r\n                                 24             2.432000E+03         4.627510E-07\r\n                                 25             2.450100E+03         3.537681E-07\r\n                                 26             2.480000E+03         3.324643E-07\r\n                                 27             2.520000E+03         3.617205E-07\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   131\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       18( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    3\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.294276E-06 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.294276E-06 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   132\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       18     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.598584E-06\r\n                                  2             1.150000E+03         1.634593E-06\r\n                                  3             1.177600E+03         1.663268E-06\r\n                                  4             1.195700E+03         1.685745E-06\r\n                                  5             1.213854E+03         1.711433E-06\r\n                                  6             1.232000E+03         1.740508E-06\r\n                                  7             1.250100E+03         1.773207E-06\r\n                                  8             1.280000E+03         1.836385E-06\r\n                                  9             1.320000E+03         1.942612E-06\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.962822E-06\r\n                                 20             2.350000E+03         2.386403E-06\r\n                                 21             2.377600E+03         2.821400E-06\r\n                                 22             2.395700E+03         3.327664E-06\r\n                                 23             2.413854E+03         4.211923E-06\r\n                                 24             2.432000E+03         5.294276E-06\r\n                                 25             2.450100E+03         4.900215E-06\r\n                                 26             2.480000E+03         3.558114E-06\r\n                                 27             2.520000E+03         3.278425E-06\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   133\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        8( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    4\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.321302E-04 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.321302E-04 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   134\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        8     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         9.140210E-05\r\n                                 11             1.750000E+03         1.599121E-04\r\n                                 12             1.777600E+03         2.672584E-04\r\n                                 13             1.795700E+03         4.262200E-04\r\n                                 14             1.813854E+03         5.321302E-04\r\n                                 15             1.832000E+03         3.494571E-04\r\n                                 16             1.850100E+03         2.248057E-04\r\n                                 17             1.880000E+03         1.353439E-04\r\n                                 18             1.920000E+03         8.680157E-05\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   135\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       18( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    4\r\n\r\n\r\n     CURVE  TITLE = 8(T3RM),18(T3RM)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )                                                         \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.976650E-04 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.976650E-04 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   136\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       18     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         7.757386E-05\r\n                                 11             1.750000E+03         1.423139E-04\r\n                                 12             1.777600E+03         2.424528E-04\r\n                                 13             1.795700E+03         3.932370E-04\r\n                                 14             1.813854E+03         4.976650E-04\r\n                                 15             1.832000E+03         3.213101E-04\r\n                                 16             1.850100E+03         2.044178E-04\r\n                                 17             1.880000E+03         1.210464E-04\r\n                                 18             1.920000E+03         7.505916E-05\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   137\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE        8( 9)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    5\r\n\r\n\r\n     CURVE  TITLE = 8(T3IP),18(T3IP)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( PHASE,DEGREE )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.325031E+02 AT X =   2.300000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.325031E+02 AT X =   2.300000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   138\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =        8     COMPONENT =  9     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         2.050448E+02\r\n                                  2             1.150000E+03         2.047680E+02\r\n                                  3             1.177600E+03         2.046016E+02\r\n                                  4             1.195700E+03         2.044855E+02\r\n                                  5             1.213854E+03         2.043625E+02\r\n                                  6             1.232000E+03         2.042317E+02\r\n                                  7             1.250100E+03         2.040923E+02\r\n                                  8             1.280000E+03         2.038382E+02\r\n                                  9             1.320000E+03         2.034377E+02\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         3.325031E+02\r\n                                 20             2.350000E+03         3.312681E+02\r\n                                 21             2.377600E+03         3.295980E+02\r\n                                 22             2.395700E+03         3.272079E+02\r\n                                 23             2.413854E+03         3.219307E+02\r\n                                 24             2.432000E+03         3.118359E+02\r\n                                 25             2.450100E+03         3.109633E+02\r\n                                 26             2.480000E+03         3.255486E+02\r\n                                 27             2.520000E+03         3.300752E+02\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   139\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      DISPLACEMENT    CURVE       18( 9)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    5\r\n\r\n\r\n     CURVE  TITLE = 8(T3IP),18(T3IP)                                                                                               \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =            GRID POINT DISPLACEMENTS ( PHASE,DEGREE )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.028394E+02 AT X =   2.300000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.028394E+02 AT X =   2.300000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   140\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     DISPLACEMENT    CURVE   ID =       18     COMPONENT =  9     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.448717E+01\r\n                                  2             1.150000E+03         1.379220E+01\r\n                                  3             1.177600E+03         1.344330E+01\r\n                                  4             1.195700E+03         1.322616E+01\r\n                                  5             1.213854E+03         1.301676E+01\r\n                                  6             1.232000E+03         1.281502E+01\r\n                                  7             1.250100E+03         1.262049E+01\r\n                                  8             1.280000E+03         1.231121E+01\r\n                                  9             1.320000E+03         1.191264E+01\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         3.028394E+02\r\n                                 20             2.350000E+03         2.880290E+02\r\n                                 21             2.377600E+03         2.721677E+02\r\n                                 22             2.395700E+03         2.548898E+02\r\n                                 23             2.413854E+03         2.263460E+02\r\n                                 24             2.432000E+03         1.778044E+02\r\n                                 25             2.450100E+03         1.186964E+02\r\n                                 26             2.480000E+03         5.837099E+01\r\n                                 27             2.520000E+03         2.362113E+01\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   141\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.206746E+02 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.206746E+02 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   142\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.206746E+02\r\n                                 11             1.750000E+03         1.536927E+02\r\n                                 12             1.777600E+03         1.306427E+02\r\n                                 13             1.795700E+03         1.186236E+02\r\n                                 14             1.813854E+03         1.083920E+02\r\n                                 15             1.832000E+03         9.963435E+01\r\n                                 16             1.850100E+03         9.217604E+01\r\n                                 17             1.880000E+03         8.346830E+01\r\n                                 18             1.920000E+03         7.118628E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   143\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 5)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.732868E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.732868E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   144\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  5     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.732868E+01\r\n                                 11             1.750000E+03         1.886425E+01\r\n                                 12             1.777600E+03         1.600668E+01\r\n                                 13             1.795700E+03         1.454029E+01\r\n                                 14             1.813854E+03         1.331561E+01\r\n                                 15             1.832000E+03         1.230346E+01\r\n                                 16             1.850100E+03         1.151697E+01\r\n                                 17             1.880000E+03         1.110208E+01\r\n                                 18             1.920000E+03         9.122073E+00\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   145\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 7)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.650073E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.650073E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   146\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  7     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         1.650073E+01\r\n                                 11             1.750000E+03         1.199822E+01\r\n                                 12             1.777600E+03         1.054066E+01\r\n                                 13             1.795700E+03         9.837273E+00\r\n                                 14             1.813854E+03         9.310007E+00\r\n                                 15             1.832000E+03         8.981041E+00\r\n                                 16             1.850100E+03         8.942354E+00\r\n                                 17             1.880000E+03         9.701082E+00\r\n                                 18             1.920000E+03         6.217945E+00\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   147\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(10)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.189872E+02 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.189872E+02 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   148\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 10     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.189872E+02\r\n                                 11             1.750000E+03         1.529495E+02\r\n                                 12             1.777600E+03         1.303023E+02\r\n                                 13             1.795700E+03         1.185425E+02\r\n                                 14             1.813854E+03         1.085929E+02\r\n                                 15             1.832000E+03         1.001739E+02\r\n                                 16             1.850100E+03         9.316235E+01\r\n                                 17             1.880000E+03         8.457233E+01\r\n                                 18             1.920000E+03         7.004842E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   149\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(12)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.008245E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.008245E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   150\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 12     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         3.008245E+01\r\n                                 11             1.750000E+03         2.085057E+01\r\n                                 12             1.777600E+03         1.773562E+01\r\n                                 13             1.795700E+03         1.613786E+01\r\n                                 14             1.813854E+03         1.480168E+01\r\n                                 15             1.832000E+03         1.368515E+01\r\n                                 16             1.850100E+03         1.275637E+01\r\n                                 17             1.880000E+03         1.123373E+01\r\n                                 18             1.920000E+03         9.193837E+00\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   151\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         1\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(14)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   6 OF WHOLE FRAME    6\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.868217E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.868217E+01 AT X =   1.700000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   152\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 0                                                                                               SUBCASE  1             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 14     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.868217E+01\r\n                                 11             1.750000E+03         2.007735E+01\r\n                                 12             1.777600E+03         1.710206E+01\r\n                                 13             1.795700E+03         1.553972E+01\r\n                                 14             1.813854E+03         1.419090E+01\r\n                                 15             1.832000E+03         1.299014E+01\r\n                                 16             1.850100E+03         1.182377E+01\r\n                                 17             1.880000E+03         8.747306E+00\r\n                                 18             1.920000E+03         8.306042E+00\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   153\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.589900E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.589900E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   154\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.828214E+00\r\n                                  2             1.150000E+03         1.988019E+00\r\n                                  3             1.177600E+03         2.097739E+00\r\n                                  4             1.195700E+03         2.178620E+00\r\n                                  5             1.213854E+03         2.267515E+00\r\n                                  6             1.232000E+03         2.364959E+00\r\n                                  7             1.250100E+03         2.471748E+00\r\n                                  8             1.280000E+03         2.672781E+00\r\n                                  9             1.320000E+03         3.002931E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.073413E+00\r\n                                 20             2.350000E+03         7.350791E-01\r\n                                 21             2.377600E+03         4.882152E-01\r\n                                 22             2.395700E+03         6.267024E-01\r\n                                 23             2.413854E+03         1.459137E+00\r\n                                 24             2.432000E+03         2.951956E+00\r\n                                 25             2.450100E+03         3.589900E+00\r\n                                 26             2.480000E+03         2.876008E+00\r\n                                 27             2.520000E+03         2.292659E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   155\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 5)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.433469E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.433469E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   156\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  5     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.477484E+00\r\n                                  2             1.150000E+03         1.475464E+00\r\n                                  3             1.177600E+03         1.475741E+00\r\n                                  4             1.195700E+03         1.476313E+00\r\n                                  5             1.213854E+03         1.477134E+00\r\n                                  6             1.232000E+03         1.478134E+00\r\n                                  7             1.250100E+03         1.479264E+00\r\n                                  8             1.280000E+03         1.481259E+00\r\n                                  9             1.320000E+03         1.483724E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.056587E+00\r\n                                 20             2.350000E+03         2.038177E+00\r\n                                 21             2.377600E+03         1.999464E+00\r\n                                 22             2.395700E+03         1.983054E+00\r\n                                 23             2.413854E+03         2.120771E+00\r\n                                 24             2.432000E+03         2.824687E+00\r\n                                 25             2.450100E+03         3.433469E+00\r\n                                 26             2.480000E+03         3.273562E+00\r\n                                 27             2.520000E+03         3.127081E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   157\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 7)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.482534E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.482534E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   158\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  7     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.753927E+00\r\n                                  2             1.150000E+03         1.757543E+00\r\n                                  3             1.177600E+03         1.760344E+00\r\n                                  4             1.195700E+03         1.762325E+00\r\n                                  5             1.213854E+03         1.764339E+00\r\n                                  6             1.232000E+03         1.766281E+00\r\n                                  7             1.250100E+03         1.768050E+00\r\n                                  8             1.280000E+03         1.770283E+00\r\n                                  9             1.320000E+03         1.770860E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.741198E+00\r\n                                 20             2.350000E+03         2.822576E+00\r\n                                 21             2.377600E+03         2.883622E+00\r\n                                 22             2.395700E+03         2.976949E+00\r\n                                 23             2.413854E+03         3.271657E+00\r\n                                 24             2.432000E+03         4.048505E+00\r\n                                 25             2.450100E+03         4.482534E+00\r\n                                 26             2.480000E+03         4.156112E+00\r\n                                 27             2.520000E+03         4.036932E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   159\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(10)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.032765E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.032765E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   160\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 10     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.359526E+00\r\n                                  2             1.150000E+03         1.387727E+00\r\n                                  3             1.177600E+03         1.431958E+00\r\n                                  4             1.195700E+03         1.472436E+00\r\n                                  5             1.213854E+03         1.522645E+00\r\n                                  6             1.232000E+03         1.583076E+00\r\n                                  7             1.250100E+03         1.654394E+00\r\n                                  8             1.280000E+03         1.799413E+00\r\n                                  9             1.320000E+03         2.057975E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.249190E+00\r\n                                 20             2.350000E+03         2.272972E+00\r\n                                 21             2.377600E+03         2.444479E+00\r\n                                 22             2.395700E+03         2.787251E+00\r\n                                 23             2.413854E+03         3.609152E+00\r\n                                 24             2.432000E+03         4.953376E+00\r\n                                 25             2.450100E+03         5.032765E+00\r\n                                 26             2.480000E+03         3.744685E+00\r\n                                 27             2.520000E+03         3.067878E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   161\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(12)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.770896E+00 AT X =   2.413854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.770896E+00 AT X =   2.413854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   162\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 12     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.131759E+00\r\n                                  2             1.150000E+03         1.151415E+00\r\n                                  3             1.177600E+03         1.164131E+00\r\n                                  4             1.195700E+03         1.173251E+00\r\n                                  5             1.213854E+03         1.183087E+00\r\n                                  6             1.232000E+03         1.193675E+00\r\n                                  7             1.250100E+03         1.205099E+00\r\n                                  8             1.280000E+03         1.226215E+00\r\n                                  9             1.320000E+03         1.260174E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.957845E+00\r\n                                 20             2.350000E+03         2.176751E+00\r\n                                 21             2.377600E+03         2.381544E+00\r\n                                 22             2.395700E+03         2.573132E+00\r\n                                 23             2.413854E+03         2.770896E+00\r\n                                 24             2.432000E+03         2.508172E+00\r\n                                 25             2.450100E+03         1.135846E+00\r\n                                 26             2.480000E+03         4.977689E-01\r\n                                 27             2.520000E+03         1.161663E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   163\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         2\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(14)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   6 OF WHOLE FRAME    7\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.959658E+00 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.959658E+00 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   164\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1C                                                                                               SUBCASE 2             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 14     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.932159E+00\r\n                                  2             1.150000E+03         1.999065E+00\r\n                                  3             1.177600E+03         2.037894E+00\r\n                                  4             1.195700E+03         2.064333E+00\r\n                                  5             1.213854E+03         2.091779E+00\r\n                                  6             1.232000E+03         2.120280E+00\r\n                                  7             1.250100E+03         2.149933E+00\r\n                                  8             1.280000E+03         2.202106E+00\r\n                                  9             1.320000E+03         2.279789E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.773755E+00\r\n                                 20             2.350000E+03         3.382025E+00\r\n                                 21             2.377600E+03         4.207928E+00\r\n                                 22             2.395700E+03         5.295377E+00\r\n                                 23             2.413854E+03         7.309336E+00\r\n                                 24             2.432000E+03         9.959658E+00\r\n                                 25             2.450100E+03         9.475514E+00\r\n                                 26             2.480000E+03         6.235198E+00\r\n                                 27             2.520000E+03         4.690766E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   165\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.589900E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.589900E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   166\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.828213E+00\r\n                                  2             1.150000E+03         1.988019E+00\r\n                                  3             1.177600E+03         2.097738E+00\r\n                                  4             1.195700E+03         2.178620E+00\r\n                                  5             1.213854E+03         2.267514E+00\r\n                                  6             1.232000E+03         2.364960E+00\r\n                                  7             1.250100E+03         2.471748E+00\r\n                                  8             1.280000E+03         2.672781E+00\r\n                                  9             1.320000E+03         3.002931E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.073413E+00\r\n                                 20             2.350000E+03         7.350781E-01\r\n                                 21             2.377600E+03         4.882156E-01\r\n                                 22             2.395700E+03         6.267023E-01\r\n                                 23             2.413854E+03         1.459137E+00\r\n                                 24             2.432000E+03         2.951958E+00\r\n                                 25             2.450100E+03         3.589900E+00\r\n                                 26             2.480000E+03         2.876011E+00\r\n                                 27             2.520000E+03         2.292657E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   167\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 5)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.433470E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  3.433470E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   168\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  5     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.477484E+00\r\n                                  2             1.150000E+03         1.475463E+00\r\n                                  3             1.177600E+03         1.475740E+00\r\n                                  4             1.195700E+03         1.476312E+00\r\n                                  5             1.213854E+03         1.477134E+00\r\n                                  6             1.232000E+03         1.478136E+00\r\n                                  7             1.250100E+03         1.479265E+00\r\n                                  8             1.280000E+03         1.481260E+00\r\n                                  9             1.320000E+03         1.483724E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.056586E+00\r\n                                 20             2.350000E+03         2.038175E+00\r\n                                 21             2.377600E+03         1.999461E+00\r\n                                 22             2.395700E+03         1.983050E+00\r\n                                 23             2.413854E+03         2.120771E+00\r\n                                 24             2.432000E+03         2.824686E+00\r\n                                 25             2.450100E+03         3.433470E+00\r\n                                 26             2.480000E+03         3.273559E+00\r\n                                 27             2.520000E+03         3.127078E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   169\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 7)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.482536E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  4.482536E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   170\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  7     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.753927E+00\r\n                                  2             1.150000E+03         1.757543E+00\r\n                                  3             1.177600E+03         1.760344E+00\r\n                                  4             1.195700E+03         1.762326E+00\r\n                                  5             1.213854E+03         1.764339E+00\r\n                                  6             1.232000E+03         1.766281E+00\r\n                                  7             1.250100E+03         1.768051E+00\r\n                                  8             1.280000E+03         1.770283E+00\r\n                                  9             1.320000E+03         1.770860E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.741199E+00\r\n                                 20             2.350000E+03         2.822577E+00\r\n                                 21             2.377600E+03         2.883621E+00\r\n                                 22             2.395700E+03         2.976948E+00\r\n                                 23             2.413854E+03         3.271656E+00\r\n                                 24             2.432000E+03         4.048505E+00\r\n                                 25             2.450100E+03         4.482536E+00\r\n                                 26             2.480000E+03         4.156113E+00\r\n                                 27             2.520000E+03         4.036932E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   171\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(10)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.032765E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  5.032765E+00 AT X =   2.450100E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   172\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 10     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.359525E+00\r\n                                  2             1.150000E+03         1.387727E+00\r\n                                  3             1.177600E+03         1.431958E+00\r\n                                  4             1.195700E+03         1.472436E+00\r\n                                  5             1.213854E+03         1.522646E+00\r\n                                  6             1.232000E+03         1.583076E+00\r\n                                  7             1.250100E+03         1.654393E+00\r\n                                  8             1.280000E+03         1.799413E+00\r\n                                  9             1.320000E+03         2.057973E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.249189E+00\r\n                                 20             2.350000E+03         2.272974E+00\r\n                                 21             2.377600E+03         2.444479E+00\r\n                                 22             2.395700E+03         2.787251E+00\r\n                                 23             2.413854E+03         3.609152E+00\r\n                                 24             2.432000E+03         4.953375E+00\r\n                                 25             2.450100E+03         5.032765E+00\r\n                                 26             2.480000E+03         3.744683E+00\r\n                                 27             2.520000E+03         3.067879E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   173\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(12)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.770899E+00 AT X =   2.413854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.770899E+00 AT X =   2.413854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   174\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 12     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.131759E+00\r\n                                  2             1.150000E+03         1.151414E+00\r\n                                  3             1.177600E+03         1.164131E+00\r\n                                  4             1.195700E+03         1.173250E+00\r\n                                  5             1.213854E+03         1.183087E+00\r\n                                  6             1.232000E+03         1.193677E+00\r\n                                  7             1.250100E+03         1.205100E+00\r\n                                  8             1.280000E+03         1.226215E+00\r\n                                  9             1.320000E+03         1.260174E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         1.957844E+00\r\n                                 20             2.350000E+03         2.176749E+00\r\n                                 21             2.377600E+03         2.381542E+00\r\n                                 22             2.395700E+03         2.573129E+00\r\n                                 23             2.413854E+03         2.770899E+00\r\n                                 24             2.432000E+03         2.508170E+00\r\n                                 25             2.450100E+03         1.135843E+00\r\n                                 26             2.480000E+03         4.977681E-01\r\n                                 27             2.520000E+03         1.161660E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   175\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         3\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(14)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   6 OF WHOLE FRAME    8\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.959657E+00 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.700000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.959657E+00 AT X =   2.432000E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   176\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 1S                                                                                               SUBCASE 3             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 14     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         1.932159E+00\r\n                                  2             1.150000E+03         1.999066E+00\r\n                                  3             1.177600E+03         2.037894E+00\r\n                                  4             1.195700E+03         2.064333E+00\r\n                                  5             1.213854E+03         2.091779E+00\r\n                                  6             1.232000E+03         2.120279E+00\r\n                                  7             1.250100E+03         2.149934E+00\r\n                                  8             1.280000E+03         2.202106E+00\r\n                                  9             1.320000E+03         2.279789E+00\r\n                                 10             1.700000E+03         0.000000E+00\r\n                                 11             1.750000E+03         0.000000E+00\r\n                                 12             1.777600E+03         0.000000E+00\r\n                                 13             1.795700E+03         0.000000E+00\r\n                                 14             1.813854E+03         0.000000E+00\r\n                                 15             1.832000E+03         0.000000E+00\r\n                                 16             1.850100E+03         0.000000E+00\r\n                                 17             1.880000E+03         0.000000E+00\r\n                                 18             1.920000E+03         0.000000E+00\r\n                                 19             2.300000E+03         2.773756E+00\r\n                                 20             2.350000E+03         3.382025E+00\r\n                                 21             2.377600E+03         4.207928E+00\r\n                                 22             2.395700E+03         5.295378E+00\r\n                                 23             2.413854E+03         7.309339E+00\r\n                                 24             2.432000E+03         9.959657E+00\r\n                                 25             2.450100E+03         9.475514E+00\r\n                                 26             2.480000E+03         6.235198E+00\r\n                                 27             2.520000E+03         4.690767E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   177\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 3)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   1 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.450054E+03 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.450054E+03 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   178\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  3     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.817143E+02\r\n                                 11             1.750000E+03         4.664189E+02\r\n                                 12             1.777600E+03         7.562914E+02\r\n                                 13             1.795700E+03         1.182826E+03\r\n                                 14             1.813854E+03         1.450054E+03\r\n                                 15             1.832000E+03         9.334911E+02\r\n                                 16             1.850100E+03         5.883337E+02\r\n                                 17             1.880000E+03         3.423826E+02\r\n                                 18             1.920000E+03         2.095921E+02\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   179\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 5)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   2 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.020014E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.020014E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   180\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  5     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         4.053678E+01\r\n                                 11             1.750000E+03         6.622318E+01\r\n                                 12             1.777600E+03         1.066149E+02\r\n                                 13             1.795700E+03         1.656887E+02\r\n                                 14             1.813854E+03         2.020014E+02\r\n                                 15             1.832000E+03         1.302787E+02\r\n                                 16             1.850100E+03         8.206145E+01\r\n                                 17             1.880000E+03         4.763166E+01\r\n                                 18             1.920000E+03         2.905444E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   181\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11( 7)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   3 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.126247E+01 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  9.126247E+01 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   182\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT =  7     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         1.743522E+01\r\n                                 11             1.750000E+03         2.959514E+01\r\n                                 12             1.777600E+03         4.861847E+01\r\n                                 13             1.795700E+03         7.536248E+01\r\n                                 14             1.813854E+03         9.126247E+01\r\n                                 15             1.832000E+03         6.267014E+01\r\n                                 16             1.850100E+03         4.129694E+01\r\n                                 17             1.880000E+03         2.546400E+01\r\n                                 18             1.920000E+03         1.690720E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   183\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(10)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   4 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.433033E+03 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.433033E+03 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   184\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 10     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         2.778417E+02\r\n                                 11             1.750000E+03         4.601888E+02\r\n                                 12             1.777600E+03         7.465438E+02\r\n                                 13             1.795700E+03         1.168279E+03\r\n                                 14             1.813854E+03         1.433033E+03\r\n                                 15             1.832000E+03         9.224543E+02\r\n                                 16             1.850100E+03         5.815434E+02\r\n                                 17             1.880000E+03         3.387245E+02\r\n                                 18             1.920000E+03         2.076866E+02\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   185\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(12)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   5 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.182739E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  2.182739E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   186\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 12     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         4.413295E+01\r\n                                 11             1.750000E+03         7.192551E+01\r\n                                 12             1.777600E+03         1.155281E+02\r\n                                 13             1.795700E+03         1.793023E+02\r\n                                 14             1.813854E+03         2.182739E+02\r\n                                 15             1.832000E+03         1.401064E+02\r\n                                 16             1.850100E+03         8.783842E+01\r\n                                 17             1.880000E+03         5.055602E+01\r\n                                 18             1.920000E+03         3.039595E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   187\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n\r\n                                            X Y - O U T P U T   S U M M A R Y\r\n\r\n\r\n     SUBCASE         4\r\n      RESPONSE\r\n      ELEMENT-STRESS  CURVE       11(14)\r\n \r\n      XY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED\r\n      XY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED\r\n      PLOTTER SPECIFIED IS NASTPLT DRUM  PLOTTER WITH    TYPING CAPABILITY.\r\n      CSCALE =  1.00\r\n      PAPER SIZE  8.00 X 10.50 INCHES SPECIFIED.\r\n      PENSIZE =  1\r\n\r\n\r\n     THIS IS CURVE   6 OF WHOLE FRAME    9\r\n\r\n\r\n     CURVE  TITLE = 11(3),11(5),11(7),11(10),11(12),11(14)                                                                         \r\n      X-AXIS TITLE =                           FREQUENCY (HERTZ)                                                                    \r\n      Y-AXIS TITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                                                           \r\n\r\n\r\n\r\n\r\n\r\n     THE FOLLOWING INFORMATION IS FOR THE ABOVE DEFINED CURVE ONLY.\r\n\r\n\r\n\r\n      WITHIN THE FRAME X-LIMITS       (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.729657E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n     WITHIN THE X-LIMITS OF ALL DATA (X =  1.100000E+03 TO  X =  2.520000E+03)\r\n\r\n\r\n                              THE SMALLEST Y-VALUE =  0.000000E+00 AT X =   1.100000E+03\r\n\r\n\r\n                              THE LARGEST  Y-VALUE =  1.729657E+02 AT X =   1.813854E+03\r\n\r\n\r\n\r\n\r\n                                             E N D   O F   S U M M A R Y\r\n\r\n\r\n                         P R I N T E D   D A T A   F O R   T H I S   C U R V E   F O L L O W S\r\n1     ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   188\r\n      NASTRAN TEST PROBLEM NO. T08-02-1A                                                                                            \r\n0     KINDEX 2C                                                                                               SUBCASE 4             \r\n\r\n\r\n     ELEMENT-STRESS  CURVE   ID =       11     COMPONENT = 14     WHOLE FRAME\r\n\r\n\r\n                           PRINT NUMBER          X-VALUE              Y-VALUE              CARD NUMBER\r\n                                  1             1.100000E+03         0.000000E+00\r\n                                  2             1.150000E+03         0.000000E+00\r\n                                  3             1.177600E+03         0.000000E+00\r\n                                  4             1.195700E+03         0.000000E+00\r\n                                  5             1.213854E+03         0.000000E+00\r\n                                  6             1.232000E+03         0.000000E+00\r\n                                  7             1.250100E+03         0.000000E+00\r\n                                  8             1.280000E+03         0.000000E+00\r\n                                  9             1.320000E+03         0.000000E+00\r\n                                 10             1.700000E+03         3.563684E+01\r\n                                 11             1.750000E+03         5.857209E+01\r\n                                 12             1.777600E+03         9.388234E+01\r\n                                 13             1.795700E+03         1.439402E+02\r\n                                 14             1.813854E+03         1.729657E+02\r\n                                 15             1.832000E+03         1.131941E+02\r\n                                 16             1.850100E+03         7.142776E+01\r\n                                 17             1.880000E+03         4.102967E+01\r\n                                 18             1.920000E+03         2.437536E+01\r\n                                 19             2.300000E+03         0.000000E+00\r\n                                 20             2.350000E+03         0.000000E+00\r\n                                 21             2.377600E+03         0.000000E+00\r\n                                 22             2.395700E+03         0.000000E+00\r\n                                 23             2.413854E+03         0.000000E+00\r\n                                 24             2.432000E+03         0.000000E+00\r\n                                 25             2.450100E+03         0.000000E+00\r\n                                 26             2.480000E+03         0.000000E+00\r\n                                 27             2.520000E+03         0.000000E+00\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)        \r\n DATE:  5/18/95\r\n END TIME: 10:30:17\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t08022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T08022A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   8                                                                         \r\n     DIAG  14                                                                        \r\n     TIME  20                                                                        \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  COSDFVA                                                 \r\n     $ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA)                  \r\n     $ ALTER    3 $                                                                  \r\n     INSERT FILE $                                                                   \r\n     FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                                     \r\n     $ PERFORM INITIAL ERROR CHECKS ON NSEGS AND KMAX.                               \r\n     COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.                      \r\n     COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.                       \r\n     PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                                      \r\n     COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.                  \r\n     PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                         \r\n     PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                                     \r\n     COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                                \r\n     $ SET DEFAULTS FOR PARAMETERS.                                                  \r\n     PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                                  \r\n     $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS.              \r\n     PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                                 \r\n     PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                           \r\n     PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                                       \r\n     $ GENERATE NORPS FLAG IF RPS IS ZERO.                                           \r\n     PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                                       \r\n     $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED.                             \r\n     PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                                      \r\n     COND     ERRORC2,NOLUMP $                                                       \r\n     $ ALTER    21,21 $  ADD SLT TO OUTPUT FOR TRLG.                                 \r\n     DELETE GP3 $                                                                    \r\n     GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                               \r\n     $ ALTER    24 $                                                                 \r\n     INSERT TA1,2 $                                                                  \r\n     $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT            \r\n     $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION.                      \r\n     $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2.                                       \r\n     PARAM    //*MPY*/NSKIP /0/0 $                                                   \r\n     GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/           \r\n              S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/           \r\n              S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $         \r\n     PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                          \r\n     $ SUPORT BULK DATA IS NOT ALLOWED.                                              \r\n     PARAM    //*NOT*/REACDATA /REACT $                                              \r\n     COND     ERRORC3,REACDATA $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS.         \r\n     DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,          \r\n              TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/              \r\n              S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                           \r\n     $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA.                                     \r\n     PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                          \r\n     COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                           \r\n     $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL                        \r\n     PARAML   CASECC //*TABLE1*/1/14//FREQSET $                                      \r\n     PARAML   CASECC //*TABLE1*/1/38//TIMESET $                                      \r\n     PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                                   \r\n     PARAM    //*NOT*/FTERR1 /FREQTIME $                                             \r\n     PARAM    //*LE*/NOFREQ /FREQSET /0 $                                            \r\n     PARAM    //*LE*/NOTIME /TIMESET /0 $                                            \r\n     COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.            \r\n     $ EPOINT BULK DATA NOT ALLOWED                                                  \r\n     PARAM    //*NOT*/EXTRAPTS /NOUE $                                               \r\n     COND     ERRORC4,EXTRAPTS $                                                     \r\n     $ GENERATE DATA FOR CYCT2 MODULE.                                               \r\n     GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                        \r\n     COND     ERRORC1,NOGO $                                                         \r\n     $ ALTER    34 $                                                                 \r\n     INSERT EMA,1 $                                                                  \r\n     $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED                              \r\n     PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                           \r\n     PURGE    B1GG,M1GG /NOBM1 $                                                     \r\n     PURGE    M2GG,M2BASEXG /NOMGG $                                                 \r\n     $ ALTER    38 $                                                                 \r\n     INSERT EMA(2),1 $                                                               \r\n     $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX.                       \r\n     $ GENERATE PARAMETERS FKMAX AND NOBASEX.                                        \r\n     FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,          \r\n              PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/                \r\n              V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/                 \r\n              V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $                 \r\n     PARAML   FRLX //*PRES*////NOFRLX $                                              \r\n     COND     LBLFRLX,NOFRLX $                                                       \r\n     EQUIV    FRLX,FRL $                                                             \r\n     LABEL    LBLFRLX $                                                              \r\n     $ ALTER    47 $                                                                 \r\n     INSERT EMA(4),2 $                                                               \r\n     PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                                \r\n     $ ALTER    58 $                                                                 \r\n     INSERT GPSTGEN $                                                                \r\n     $ REDEFINE BGG AND KGG.                                                         \r\n     COND     LBL11A,NOBM1 $                                                         \r\n     PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                                    \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                                   \r\n     PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                                \r\n     ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                                 \r\n     EQUIV    BGG1,BGG $                                                             \r\n     ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                                 \r\n     EQUIV    KGG1,KGG $                                                             \r\n     LABEL    LBL11A                                                                 \r\n     $ ALTER    59,62 $  GP4 HAS BEEN MOVED-UP.                                      \r\n     DELETE GP4,-1,GP4,2 $                                                           \r\n     $ ALTER    87,87 $  DPD HAS BEEN MOVED-UP.                                      \r\n     DELETE DPD $                                                                    \r\n     $ ALTER    112 $  PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN.       \r\n     INSERT GKAD,-3 $                                                                \r\n     PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                            \r\n     COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                                \r\n     $ ALTER    113 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,-2 $                                                                \r\n     JUMP     LGKAD2 $                                                               \r\n     LABEL    LGKAD1 $                                                               \r\n     EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/               \r\n              KAA,KDD/KDEKA $                                                        \r\n     LABEL    LGKAD2 $                                                               \r\n     $ ALTER    115,115 $  ADD PARAMETERS GKAD, W3 AND W4 TO GKAD.                   \r\n     DELETE GKAD $                                                                   \r\n     GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,           \r\n              GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/                  \r\n              C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/            \r\n              SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                               \r\n     $ ALTER    116 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,1 $                                                                 \r\n     COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                                \r\n     $ ALTER    117 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,2 $                                                                 \r\n     JUMP     LGKAD4 $                                                               \r\n     LABEL    LGKAD3 $                                                               \r\n     EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $                       \r\n     LABEL    LGKAD4 $                                                               \r\n     $ ALTER    118,122 $                                                            \r\n     DELETE FRRD,-2,VDR $                                                            \r\n     $ NEW SOLUTION LOGIC                                                            \r\n     $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL.         \r\n     $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.                          \r\n     COND     LBLTRL1,NOTIME $                                                       \r\n     $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS.                              \r\n     PARAM    //*MPY*/REPEATT /1 /-1 $                                               \r\n     PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                           \r\n     LABEL    TRLGLOOP $                                                             \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                        \r\n     PARAM    //*MPY*/NCOL /0 /1 $                                                   \r\n     TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/         \r\n              ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                          \r\n     SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                         \r\n     SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                         \r\n     PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                          \r\n     COND     TRLGDONE,REPEATT $                                                     \r\n     REPT     TRLGLOOP,100 $                                                         \r\n     JUMP     ERROR3 $                                                               \r\n     LABEL    TRLGDONE $                                                             \r\n     FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/               \r\n              V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/           \r\n              S,N,NORO2 $                                                            \r\n     EQUIV    FRLZ,FRL // FOLZ,FOL $                                                 \r\n     JUMP     LBLFRL2 $                                                              \r\n     LABEL    LBLTRL1 $                                                              \r\n     $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC.           \r\n     FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /           \r\n              *DIRECT*/FREQY/*FREQ* $                                                \r\n     COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.        \r\n     MPYAD    PPF,PDZERO, / PPFX /0 $                                                \r\n     EQUIV    PPFX,PPF $                                                             \r\n     LABEL    LBLFRLX1 $                                                             \r\n     $ FORM NEW LOADS.                                                               \r\n     COND     LBLFRL1,NOBASEX $                                                      \r\n     MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                           \r\n     ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                           \r\n     EQUIV    PPF1,PPF $                                                             \r\n     COND     LBLBASE1,NOSET $                                                       \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                        \r\n     EQUIV    PSF1,PSF // PDF1,PDF $                                                 \r\n     LABEL    LBLBASE1 $                                                             \r\n     LABEL    LBLFRL1 $                                                              \r\n     EQUIV    PPF,PDF/NOSET $                                                        \r\n     $ LOADS ARE FREQUENCY-DEPENDENT                                                 \r\n     $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1.                           \r\n     PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                           \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1.                                   \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX                       \r\n     EQUIV    PDF,PXF/CYCIO $                                                        \r\n     COND     LBLPDONE,CYCIO $                                                       \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1.                                    \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS                   \r\n     CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/             \r\n              NLOAD /S,N,NOGO $                                                      \r\n     COND     ERRORC1,NOGO $                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     JUMP     LBLPDONE $                                                             \r\n     LABEL    LBLFRL2 $                                                              \r\n     $ LOADS ARE TIME-DEPENDENT                                                      \r\n     PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                          \r\n     $ BRANCH DEPENDING ON VALUE OF CYCIO                                            \r\n     COND     LBLTRL2,NOTCYCIO $                                                     \r\n     $ CYCIO=-1                                                                      \r\n     EQUIV    PD,PDTRZ1/NORO1 $                                                      \r\n     COND     LBLRO1A,NORO1 $                                                        \r\n     MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                            \r\n     LABEL    LBLRO1A $                                                              \r\n     CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/           \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ1,PXFZ1/NORO2 $                                                   \r\n     COND     LBLRO2A,NORO2 $                                                        \r\n     MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                          \r\n     LABEL    LBLRO2A $                                                              \r\n     EQUIV    PXFZ1,PXF1 $                                                           \r\n     JUMP     LBLTRL3 $                                                              \r\n     LABEL    LBLTRL2 $                                                              \r\n     $ CYCIO = +1                                                                    \r\n     MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                            \r\n     CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/                  \r\n              V,Y,NSEGS/S,N,NOGO $                                                   \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ2,PXTR2/NORO2 $                                                   \r\n     COND     LBLRO2B,NORO2 $                                                        \r\n     MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                          \r\n     LABEL    LBLRO2B $                                                              \r\n     CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/                \r\n              FLMAX/S,N,NOGO $                                                       \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXFZ2,PXF1 $                                                           \r\n     LABEL    LBLTRL3 $                                                              \r\n     $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND               \r\n     $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX           \r\n     $ IN FREQRESP TYPE PROBLEMS.                                                    \r\n     COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.                      \r\n     ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                             \r\n     $ DEFINE NLOAD FOR CYCT2.                                                       \r\n     PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                               \r\n     LABEL    LBLPDONE $                                                             \r\n     PARAM    //*ADD*/KINDEX /V,Y,KMIN=0 /0 $  INTITIALIZE KINDEX.                   \r\n     $                                                                               \r\n     $ INITIALIZE UXVF IF KMIN IS NOT ZERO.                                          \r\n     $                                                                               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAM    //*ADD*/KMINL /V,Y,KMIN /-1 $                                          \r\n     COND     NOKMINL,KMINL $                                                        \r\n     PARAM    //*ADD*/KMINV /0 /0 $                                                  \r\n     LABEL    KMINLOOP $                                                             \r\n     CYCT2    CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/          \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                            \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/                           \r\n              KMINV/CYCSEQ/NLOAD/S,N,NOGO $                                          \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     COND     ERRORC1,NOGO $                                                         \r\n     PARAM    //*ADD*/KMINV /KMINV /1 $                                              \r\n     REPT     KMINLOOP,KMINL $                                                       \r\n     LABEL    NOKMINL $                                                              \r\n     LABEL    TOPCYC $  LOOP ON KINDEX                                               \r\n     COND     NOKPRT,NOKPRT $                                                        \r\n     PRTPARM  //0 /*KINDEX* $                                                        \r\n     LABEL    NOKPRT $                                                               \r\n     CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/               \r\n              CYCSEQ=-1/NLOAD/S,N,NOGO $                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/                \r\n              CYCSEQ/NLOAD/S,N,NOGO $                                                \r\n     COND     ERRORC1,NOGO $                                                         \r\n     $ SOLUTION                                                                      \r\n     FRRD2    KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $                         \r\n     CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/              \r\n              NLOAD/S,N,NOGO $                                                       \r\n     COND     ERRORC1,NOGO $                                                         \r\n     PARAM    //*ADD*/KINDEX/KINDEX/1 $  KINDEX = KINDEX + 1                         \r\n     PARAM    //*SUB*/DONE / V,Y,KMAX / KINDEX $                                     \r\n     COND     LCYC2,DONE $  IF KINDEX .GT. KMAX THEN EXIT                            \r\n     REPT     TOPCYC,100 $                                                           \r\n     JUMP     ERROR3 $                                                               \r\n     LABEL    LCYC2 $                                                                \r\n     EQUIV    UXVF,UDVF / CYCIO $                                                    \r\n     COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $           \r\n     LABEL    LCYC3 $                                                                \r\n     COND     LBLTRL4,NOTIME $                                                       \r\n     EQUIV    PXF,PDF2 / CYCIO $                                                     \r\n     COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $            \r\n     LABEL    LCYC4 $                                                                \r\n     $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF.               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $                    \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $                       \r\n     EQUIV    PPFZ,PPF // PSFZ,PSF $                                                 \r\n     LABEL    LBLTRL4 $                                                              \r\n     VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/                 \r\n              *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                               \r\n     $ ALTER    138,138 $  USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.      \r\n     DELETE SDR2 $                                                                   \r\n     SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB,         \r\n              PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/               \r\n              S,N,NOSORT2 $                                                          \r\n     $ ALTER    160 $  ADD LABEL FOR ERROR3.                                         \r\n     INSERT PLOT(2),4 $                                                              \r\n     LABEL    ERROR3 $                                                               \r\n     $ ALTER    163,166 $  REMOVE ERROR1 AND ERROR2.                                 \r\n     DELETE PLOT(2),7,PLOT(2),10 $                                                   \r\n     $ ALTER    168 $  FORCED VIBRATION ERRORS                                       \r\n     INSERT END,-3 $                                                                 \r\n     LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.                    \r\n     PRTPARM  //-5 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                                   \r\n     PRTPARM  //0 /C,Y,COUPMASS $                                                    \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //-6 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //0 /*NOUE* $                                                          \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.               \r\n     PRTPARM  //0 /*NOFRL* $                                                         \r\n     PRTPARM  //0 /*NOTRL* $                                                         \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.          \r\n     PRTPARM  //0 /*NOFREQ* $                                                        \r\n     PRTPARM  //0 /*NOTIME* $                                                        \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $                                                                               \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)            \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-2A                                   \r\n                  3      $                                                                               \r\n                  4         SPC   = 30                                                                   \r\n                  5         TSTEP = 1                                                                    \r\n                  6      OUTPUT                                                                          \r\n                  7         SET 1 = 8,16,18                                                              \r\n                  8         SET 2 = 11                                                                   \r\n                  9         OLOAD = 1                                                                    \r\n                 10         DISP(SORT2,PHASE)   = 1                                                      \r\n                 11         STRESS(SORT2,PHASE) = 2                                                      \r\n                 12            SUBCASE 1                                                                 \r\n                 13               LABEL = SEGMENT 1                                                      \r\n                 14               DLOAD = 1   $ TIME DEPENDENT LOADS                                     \r\n                 15            SUBCASE 2                                                                 \r\n                 16               LABEL = SEGMENT 2                                                      \r\n                 17               DLOAD = 2   $ TIME DEPENDENT LOADS                                     \r\n                 18            SUBCASE 3                                                                 \r\n                 19               LABEL = SEGMENT 3                                                      \r\n                 20               DLOAD = 3   $ TIME DEPENDENT LOADS                                     \r\n                 21            SUBCASE 4                                                                 \r\n                 22               LABEL = SEGMENT 4                                                      \r\n                 23               DLOAD = 4   $ TIME DEPENDENT LOADS                                     \r\n                 24            SUBCASE 5                                                                 \r\n                 25               LABEL = SEGMENT 5                                                      \r\n                 26               DLOAD = 5   $ TIME DEPENDENT LOADS                                     \r\n                 27            SUBCASE 6                                                                 \r\n                 28               LABEL = SEGMENT 6                                                      \r\n                 29               DLOAD = 6   $ TIME DEPENDENT LOADS                                     \r\n                 30            SUBCASE 7                                                                 \r\n                 31               LABEL = SEGMENT 7                                                      \r\n                 32               DLOAD = 7   $ TIME DEPENDENT LOADS                                     \r\n                 33            SUBCASE 8                                                                 \r\n                 34               LABEL = SEGMENT 8                                                      \r\n                 35               DLOAD = 8   $ TIME DEPENDENT LOADS                                     \r\n                 36            SUBCASE 9                                                                 \r\n                 37               LABEL = SEGMENT 9                                                      \r\n                 38               DLOAD = 9   $ TIME DEPENDENT LOADS                                     \r\n                 39            SUBCASE 10                                                                \r\n                 40               LABEL = SEGMENT 10                                                     \r\n                 41               DLOAD = 10  $ TIME DEPENDENT LOADS                                     \r\n                 42            SUBCASE 11                                                                \r\n                 43               LABEL = SEGMENT 11                                                     \r\n                 44               DLOAD = 11  $ TIME DEPENDENT LOADS                                     \r\n                 45            SUBCASE 12                                                                \r\n                 46               LABEL = SEGMENT 12                                                     \r\n                 47               DLOAD = 12  $ TIME DEPENDENT LOADS                                     \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   100, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n0*** USER INFORMATION MESSAGE 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE THIRD FIELD WERE USED DURING RE-ORDERING DECK\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1               0.0     0.0     0.0     1.0     0.0     0.0     +COR12  \r\n                    2-        +COR12  0.0     1.0     0.0                                                     \r\n                    3-        CQUAD2  4       2       2       3       7       6                               \r\n                    4-        CQUAD2  5       2       6       7       12      11                              \r\n                    5-        CQUAD2  6       2       3       4       8       7                               \r\n                    6-        CQUAD2  7       2       7       8       13      12                              \r\n                    7-        CQUAD2  8       2       4       5       9       8                               \r\n                    8-        CQUAD2  10      2       8       15      14      13                              \r\n                    9-        CQUAD2  11      3       9       16      18      15                              \r\n                   10-        CQUAD2  12      3       16      17      19      18                              \r\n                   11-        CTRIA2  1       1       1       6       10                                      \r\n                   12-        CTRIA2  2       1       1       2       6                                       \r\n                   13-        CTRIA2  3       1       10      6       11                                      \r\n                   14-        CTRIA2  9       1       8       9       15                                      \r\n                   15-        CYJOIN  1               1       2       3       4       5                       \r\n                   16-        CYJOIN  2               10      11      12      13      14                      \r\n                   17-        DAREA   1       8       3       -1.0                                            \r\n                   18-        DAREA   1       16      3       1.0                                             \r\n                   19-        DAREA   1       18      3       1.0                                             \r\n                   20-        DAREA   2       8       3       -0.5                                            \r\n                   21-        DAREA   2       16      3       0.5                                             \r\n                   22-        DAREA   2       18      3       0.5                                             \r\n                   23-        DAREA   3       8       3       0.5                                             \r\n                   24-        DAREA   3       16      3       -0.5                                            \r\n                   25-        DAREA   3       18      3       -0.5                                            \r\n                   26-        DAREA   4       8       3       1.0                                             \r\n                   27-        DAREA   4       16      3       -1.0                                            \r\n                   28-        DAREA   4       18      3       -1.0                                            \r\n                   29-        DAREA   5       8       3       0.5                                             \r\n                   30-        DAREA   5       16      3       -0.5                                            \r\n                   31-        DAREA   5       18      3       -0.5                                            \r\n                   32-        DAREA   6       8       3       -0.5                                            \r\n                   33-        DAREA   6       16      3       0.5                                             \r\n                   34-        DAREA   6       18      3       0.5                                             \r\n                   35-        DAREA   7       8       3       -1.0                                            \r\n                   36-        DAREA   7       16      3       1.0                                             \r\n                   37-        DAREA   7       18      3       1.0                                             \r\n                   38-        DAREA   8       8       3       -0.5                                            \r\n                   39-        DAREA   8       16      3       0.5                                             \r\n                   40-        DAREA   8       18      3       0.5                                             \r\n                   41-        DAREA   9       8       3       0.5                                             \r\n                   42-        DAREA   9       16      3       -0.5                                            \r\n                   43-        DAREA   9       18      3       -0.5                                            \r\n                   44-        DAREA   10      8       3       1.0                                             \r\n                   45-        DAREA   10      16      3       -1.0                                            \r\n                   46-        DAREA   10      18      3       -1.0                                            \r\n                   47-        DAREA   11      8       3       0.5                                             \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        DAREA   11      16      3       -0.5                                            \r\n                   49-        DAREA   11      18      3       -0.5                                            \r\n                   50-        DAREA   12      8       3       -0.5                                            \r\n                   51-        DAREA   12      16      3       0.5                                             \r\n                   52-        DAREA   12      18      3       0.5                                             \r\n                   53-        GRDSET          1                               1                               \r\n                   54-        GRID    1               2.0     30.0    0.0                                     \r\n                   55-        GRID    2               3.1     30.0    0.0                                     \r\n                   56-        GRID    3               4.3     30.0    0.0                                     \r\n                   57-        GRID    4               5.2     30.0    0.0                                     \r\n                   58-        GRID    5               7.1     30.0    0.0                                     \r\n                   59-        GRID    6               3.1     45.0    0.0                                     \r\n                   60-        GRID    7               4.3     45.0    0.0                                     \r\n                   61-        GRID    8               5.2     45.0    0.0                                     \r\n                   62-        GRID    9               7.1     40.0    0.0                                     \r\n                   63-        GRID    10              2.0     60.0    0.0                                     \r\n                   64-        GRID    11              3.1     60.0    0.0                                     \r\n                   65-        GRID    12              4.3     60.0    0.0                                     \r\n                   66-        GRID    13              5.2     60.0    0.0                                     \r\n                   67-        GRID    14              7.1     60.0    0.0                                     \r\n                   68-        GRID    15              7.1     50.0    0.0                                     \r\n                   69-        GRID    16              8.5     40.0    -.25                                    \r\n                   70-        GRID    17              9.7     40.0    -.50                                    \r\n                   71-        GRID    18              8.5     50.0    0.25                                    \r\n                   72-        GRID    19              9.7     50.0    0.50                                    \r\n                   73-        MAT1    1       30.0+6          .3      7.4-4                                   \r\n                   74-        PARAM   CYCIO   +1                                                              \r\n                   75-        PARAM   G       .02                                                             \r\n                   76-        PARAM   GKAD    FREQRESP                                                        \r\n                   77-        PARAM   KMAX    2                                                               \r\n                   78-        PARAM   KMIN    2                                                               \r\n                   79-        PARAM   LGKAD   1                                                               \r\n                   80-        PARAM   LMAX    1                                                               \r\n                   81-        PARAM   NSEGS   12                                                              \r\n                   82-        PARAM   RPS     600.0                                                           \r\n                   83-        PQUAD2  2       1       .25                                                     \r\n                   84-        PQUAD2  3       1       .125                                                    \r\n                   85-        PTRIA2  1       1       .25                                                     \r\n                   86-        SPC1    30      6       1       THRU    19                                      \r\n                   87-        SPC1    30      123456  1       10                                              \r\n                   88-        TLOAD2  1       1                       0.0     5.5131-41813.854-90.0           \r\n                   89-        TLOAD2  2       2                       0.0     5.5131-41813.854-90.0           \r\n                   90-        TLOAD2  3       3                       0.0     5.5131-41813.854-90.0           \r\n                   91-        TLOAD2  4       4                       0.0     5.5131-41813.854-90.0           \r\n                   92-        TLOAD2  5       5                       0.0     5.5131-41813.854-90.0           \r\n                   93-        TLOAD2  6       6                       0.0     5.5131-41813.854-90.0           \r\n                   94-        TLOAD2  7       7                       0.0     5.5131-41813.854-90.0           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        TLOAD2  8       8                       0.0     5.5131-41813.854-90.0           \r\n                   96-        TLOAD2  9       9                       0.0     5.5131-41813.854-90.0           \r\n                   97-        TLOAD2  10      10                      0.0     5.5131-41813.854-90.0           \r\n                   98-        TLOAD2  11      11                      0.0     5.5131-41813.854-90.0           \r\n                   99-        TLOAD2  12      12                      0.0     5.5131-41813.854-90.0           \r\n                  100-        TSTEP   1       10      4.5943-51                                               \r\n                              ENDDATA\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $       \r\n\r\n       3  FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                             \r\n\r\n       3  COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.              \r\n\r\n       3  COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.               \r\n\r\n       3  PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                              \r\n\r\n       3  COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.          \r\n\r\n       3  PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                 \r\n\r\n       3  PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                             \r\n\r\n       3  COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                        \r\n\r\n       3  PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                          \r\n\r\n       3  PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                         \r\n\r\n       3  PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                   \r\n\r\n       3  PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                               \r\n\r\n       3  PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                               \r\n\r\n       3  PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                              \r\n\r\n       3  COND     ERRORC2,NOLUMP $                                               \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1//$                                                      \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                       \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      26  PARAM    //*MPY*/NSKIP /0/0 $                                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      26  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/   \r\n                   S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/   \r\n                   S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/C,Y,AUTOSPC $ \r\n\r\n      26  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                  \r\n\r\n      26  PARAM    //*NOT*/REACDATA /REACT $                                      \r\n\r\n      26  COND     ERRORC3,REACDATA $                                             \r\n\r\n      26  DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,  \r\n                   TRL,,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/      \r\n                   S,N,NOFRL/NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      26  PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                  \r\n\r\n      26  COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                   \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/14//FREQSET $                              \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/38//TIMESET $                              \r\n\r\n      26  PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                           \r\n\r\n      26  PARAM    //*NOT*/FTERR1 /FREQTIME $                                     \r\n\r\n      26  PARAM    //*LE*/NOFREQ /FREQSET /0 $                                    \r\n\r\n      26  PARAM    //*LE*/NOTIME /TIMESET /0 $                                    \r\n\r\n      26  COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.    \r\n\r\n      26  PARAM    //*NOT*/EXTRAPTS /NOUE $                                       \r\n\r\n      26  COND     ERRORC4,EXTRAPTS $                                             \r\n\r\n      26  GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                \r\n\r\n      26  COND     ERRORC1,NOGO $                                                 \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      36  PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                   \r\n\r\n      36  PURGE    B1GG,M1GG /NOBM1 $                                             \r\n\r\n      36  PURGE    M2GG,M2BASEXG /NOMGG $                                         \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      39  FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,  \r\n                   PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/        \r\n                   V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/         \r\n                   V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $         \r\n\r\n      39  PARAML   FRLX //*PRES*////NOFRLX $                                      \r\n\r\n      39  COND     LBLFRLX,NOFRLX $                                               \r\n\r\n      39  EQUIV    FRLX,FRL $                                                     \r\n\r\n      39  LABEL    LBLFRLX $                                                      \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      48  PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                        \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR4,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      60  COND     LBL11A,NOBM1 $                                                 \r\n\r\n      60  PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                            \r\n\r\n      60  PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      60  PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                        \r\n\r\n      60  ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                         \r\n\r\n      60  EQUIV    BGG1,BGG $                                                     \r\n\r\n      60  ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                         \r\n\r\n      60  EQUIV    KGG1,KGG $                                                     \r\n\r\n      60  LABEL    LBL11A                                                         \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      90  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      91  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      92  PARAM    //*MPY*/REPEATF/-1/1 $                                         \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBL13,NOFL $                                                   \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBL13 $                                                        \r\n\r\n      99  PURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,              \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n     100  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n     101  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     102  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     103  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     104  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     105  COND     LBLFL2,NOFL $                                                  \r\n\r\n     106  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     107  COND     LBLFL2,NOABFL $                                                \r\n\r\n     108  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     109  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     110  LABEL    LBLFL2 $                                                       \r\n\r\n     111  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     112  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     113  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     114  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     114  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     114  COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                        \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                   MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                  \r\n\r\n     115  JUMP     LGKAD2 $                                                       \r\n\r\n     115  LABEL    LGKAD1 $                                                       \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     115  LABEL    LGKAD2 $                                                       \r\n\r\n     116  COND     LBL18,NOGPDT $                                                 \r\n\r\n     117  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/          \r\n                   C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/    \r\n                   SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                       \r\n\r\n     118  LABEL    LBL18 $                                                        \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     118  COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                        \r\n\r\n     119  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     119  JUMP     LGKAD4 $                                                       \r\n\r\n     119  LABEL    LGKAD3 $                                                       \r\n\r\n     119  EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $               \r\n\r\n     119  LABEL    LGKAD4 $                                                       \r\n\r\n     124  COND     LBLTRL1,NOTIME $                                               \r\n\r\n     124  PARAM    //*MPY*/REPEATT /1 /-1 $                                       \r\n\r\n     124  PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                   \r\n\r\n     124  LABEL    TRLGLOOP $                                                     \r\n\r\n     124  CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                \r\n\r\n     124  PARAM    //*MPY*/NCOL /0 /1 $                                           \r\n\r\n     124  TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ \r\n                   ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                  \r\n\r\n     124  SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                 \r\n\r\n     124  SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                 \r\n\r\n     124  PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                  \r\n\r\n     124  COND     TRLGDONE,REPEATT $                                             \r\n\r\n     124  REPT     TRLGLOOP,100 $                                                 \r\n\r\n     124  JUMP     ERROR3 $                                                       \r\n\r\n     124  LABEL    TRLGDONE $                                                     \r\n\r\n     124  FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/       \r\n                   V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/   \r\n                   S,N,NORO2 $                                                    \r\n\r\n     124  EQUIV    FRLZ,FRL // FOLZ,FOL $                                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  JUMP     LBLFRL2 $                                                      \r\n\r\n     124  LABEL    LBLTRL1 $                                                      \r\n\r\n     124  FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /   \r\n                   *DIRECT*/FREQY/*FREQ* $                                        \r\n\r\n     124  COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.\r\n\r\n     124  MPYAD    PPF,PDZERO, / PPFX /0 $                                        \r\n\r\n     124  EQUIV    PPFX,PPF $                                                     \r\n\r\n     124  LABEL    LBLFRLX1 $                                                     \r\n\r\n     124  COND     LBLFRL1,NOBASEX $                                              \r\n\r\n     124  MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                   \r\n\r\n     124  ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                   \r\n\r\n     124  EQUIV    PPF1,PPF $                                                     \r\n\r\n     124  COND     LBLBASE1,NOSET $                                               \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                \r\n\r\n     124  EQUIV    PSF1,PSF // PDF1,PDF $                                         \r\n\r\n     124  LABEL    LBLBASE1 $                                                     \r\n\r\n     124  LABEL    LBLFRL1 $                                                      \r\n\r\n     124  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     124  PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                   \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX               \r\n\r\n     124  EQUIV    PDF,PXF/CYCIO $                                                \r\n\r\n     124  COND     LBLPDONE,CYCIO $                                               \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS           \r\n\r\n     124  CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1 /V,Y,KMAX=-1/     \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NLOAD /S,N,NOGO $                                              \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  JUMP     LBLPDONE $                                                     \r\n\r\n     124  LABEL    LBLFRL2 $                                                      \r\n\r\n     124  PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                  \r\n\r\n     124  COND     LBLTRL2,NOTCYCIO $                                             \r\n\r\n     124  EQUIV    PD,PDTRZ1/NORO1 $                                              \r\n\r\n     124  COND     LBLRO1A,NORO1 $                                                \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                    \r\n\r\n     124  LABEL    LBLRO1A $                                                      \r\n\r\n     124  CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/   \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ1,PXFZ1/NORO2 $                                           \r\n\r\n     124  COND     LBLRO2A,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                  \r\n\r\n     124  LABEL    LBLRO2A $                                                      \r\n\r\n     124  EQUIV    PXFZ1,PXF1 $                                                   \r\n\r\n     124  JUMP     LBLTRL3 $                                                      \r\n\r\n     124  LABEL    LBLTRL2 $                                                      \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                    \r\n\r\n     124  CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/          \r\n                   V,Y,NSEGS/S,N,NOGO $                                           \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ2,PXTR2/NORO2 $                                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     LBLRO2B,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                  \r\n\r\n     124  LABEL    LBLRO2B $                                                      \r\n\r\n     124  CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/        \r\n                   FLMAX/S,N,NOGO $                                               \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXFZ2,PXF1 $                                                   \r\n\r\n     124  LABEL    LBLTRL3 $                                                      \r\n\r\n     124  COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.              \r\n\r\n     124  ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                     \r\n\r\n     124  PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                       \r\n\r\n     124  LABEL    LBLPDONE $                                                     \r\n\r\n     124  PARAM    //*ADD*/KINDEX /V,Y,KMIN=0 /0 $  INTITIALIZE KINDEX.           \r\n\r\n     124  PARAM    //*ADD*/KMINL /V,Y,KMIN /-1 $                                  \r\n\r\n     124  COND     NOKMINL,KMINL $                                                \r\n\r\n     124  PARAM    //*ADD*/KMINV /0 /0 $                                          \r\n\r\n     124  LABEL    KMINLOOP $                                                     \r\n\r\n     124  CYCT2    CYCDD,,,PXF,, /,,PKFZ,, /*FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/  \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                    \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n\r\n     124  CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/                   \r\n                   KMINV/CYCSEQ/NLOAD/S,N,NOGO $                                  \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  PARAM    //*ADD*/KMINV /KMINV /1 $                                      \r\n\r\n     124  REPT     KMINLOOP,KMINL $                                               \r\n\r\n     124  LABEL    NOKMINL $                                                      \r\n\r\n     124  LABEL    TOPCYC $  LOOP ON KINDEX                                       \r\n\r\n     124  COND     NOKPRT,NOKPRT $                                                \r\n\r\n     124  PRTPARM  //0 /*KINDEX* $                                                \r\n\r\n     124  LABEL    NOKPRT $                                                       \r\n\r\n     124  CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/KINDEX/       \r\n                   CYCSEQ=-1/NLOAD/S,N,NOGO $                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/KINDEX/        \r\n                   CYCSEQ/NLOAD/S,N,NOGO $                                        \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  FRRD2    KKKF,BKKF,MKKF,,PKF,FOL / UKVF /0.0/0.0/-1.0 $                 \r\n\r\n     124  CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KINDEX/CYCSEQ/      \r\n                   NLOAD/S,N,NOGO $                                               \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  PARAM    //*ADD*/KINDEX/KINDEX/1 $  KINDEX = KINDEX + 1                 \r\n\r\n     124  PARAM    //*SUB*/DONE / V,Y,KMAX / KINDEX $                             \r\n\r\n     124  COND     LCYC2,DONE $  IF KINDEX .GT. KMAX THEN EXIT                    \r\n\r\n     124  REPT     TOPCYC,100 $                                                   \r\n\r\n     124  JUMP     ERROR3 $                                                       \r\n\r\n     124  LABEL    LCYC2 $                                                        \r\n\r\n     124  EQUIV    UXVF,UDVF / CYCIO $                                            \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $   \r\n\r\n     124  LABEL    LCYC3 $                                                        \r\n\r\n     124  COND     LBLTRL4,NOTIME $                                               \r\n\r\n     124  EQUIV    PXF,PDF2 / CYCIO $                                             \r\n\r\n     124  COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $    \r\n\r\n     124  LABEL    LCYC4 $                                                        \r\n\r\n     124  SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $            \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $               \r\n\r\n     124  EQUIV    PPFZ,PPF // PSFZ,PSF $                                         \r\n\r\n     124  LABEL    LBLTRL4 $                                                      \r\n\r\n     124  VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/         \r\n                   *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $                       \r\n\r\n     125  COND     LBL15,NOD $                                                    \r\n\r\n     126  COND     LBL15A,NOSORT2 $                                               \r\n\r\n     127  SDR3     OUDVC1,,,,,/OUDVC2,,,,, $                                      \r\n\r\n     128  OFP      OUDVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     129  XYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     130  XYPLOT   XYPLTFA// $                                                    \r\n\r\n     131  JUMP     LBL15 $                                                        \r\n\r\n     132  LABEL    LBL15A $                                                       \r\n\r\n     133  OFP      OUDVC1,,,,,//S,N,CARDNO $                                      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     134  LABEL    LBL15 $                                                        \r\n\r\n     135  COND     LBL20,NOP $                                                    \r\n\r\n     136  EQUIV    UDVF,UPVC/NOA $                                                \r\n\r\n     137  COND     LBL19,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $       \r\n\r\n     139  LABEL    LBL19 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, \r\n                   PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     141  COND     LBL17,NOSORT2 $                                                \r\n\r\n     142  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,      \r\n                   OEFC2, $                                                       \r\n\r\n     143  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $                  \r\n\r\n     144  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     145  XYPLOT   XYPLTF// $                                                     \r\n\r\n     146  COND     LBL16,NOPSDL $                                                 \r\n\r\n     147  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     148  COND     LBL16,NORD $                                                   \r\n\r\n     149  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     150  XYPLOT   XYPLTR// $                                                     \r\n\r\n     151  JUMP     LBL16 $                                                        \r\n\r\n     152  LABEL    LBL17 $                                                        \r\n\r\n     153  PURGE    PSDF/NOSORT2 $                                                 \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     154  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $                  \r\n\r\n     155  LABEL    LBL16 $                                                        \r\n\r\n     156  PURGE    PSDF/NOPSDL $                                                  \r\n\r\n     157  COND     LBL20,JUMPPLOT $                                               \r\n\r\n     158  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,          \r\n                   GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/               \r\n                   S,N,PFILE $                                                    \r\n\r\n     159  PRTMSG   PLOTX2// $                                                     \r\n\r\n     160  LABEL    LBL20 $                                                        \r\n\r\n     161  COND     FINIS,REPEATF $                                                \r\n\r\n     162  REPT     LBL13,100 $                                                    \r\n\r\n     162  LABEL    ERROR3 $                                                       \r\n\r\n     163  PRTPARM  //-3/*DIRFRRD* $                                               \r\n\r\n     164  JUMP     FINIS $                                                        \r\n\r\n     169  LABEL    ERROR4 $                                                       \r\n\r\n     170  PRTPARM  //-4/*DIRFRRD* $                                               \r\n\r\n     170  LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.            \r\n\r\n     170  PRTPARM  //-5 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                           \r\n\r\n     170  PRTPARM  //0 /C,Y,COUPMASS $                                            \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                       \r\n\r\n     170  PRTPARM  //-6 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                       \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  PRTPARM  //0 /*NOUE* $                                                  \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.       \r\n\r\n     170  PRTPARM  //0 /*NOFRL* $                                                 \r\n\r\n     170  PRTPARM  //0 /*NOTRL* $                                                 \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.  \r\n\r\n     170  PRTPARM  //0 /*NOFREQ* $                                                \r\n\r\n     170  PRTPARM  //0 /*NOTIME* $                                                \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     173  END      $                                                              \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED PXF      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2      INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED UXVF     ALREADY APPEARED AS OUTPUT\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           10\r\n                                        PROFILE            102\r\n                                        MAX WAVEFRONT        9\r\n                                        AVG WAVEFRONT    5.368\r\n                                        RMS WAVEFRONT    5.777\r\n                                        RMS BANDWIDTH    6.035\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            6\r\n                                        PROFILE             78\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.105\r\n                                        RMS WAVEFRONT    4.267\r\n                                        RMS BANDWIDTH    4.267\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       10         6\r\n                                        PROFILE (P)                        102        78\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            9         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        5.368     4.105\r\n                                        RMS WAVEFRONT (C-RMS)            5.777     4.267\r\n                                        RMS BANDWITCH (B-RMS)            6.035     4.267\r\n                                        NUMBER OF GRID POINTS (N)                     19\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                12\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           9\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        46\r\n                                        MATRIX DENSITY, PERCENT                   30.748\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   5\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       3       3       6       4       9\r\n                         SEQGP          5      12       6       4       7       7       8      10\r\n                         SEQGP          9      13      10       2      11       5      12       8\r\n                         SEQGP         13      11      14      14      15      15      16      16\r\n                         SEQGP         17      18      18      17      19      19\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.600000E+03  (INPUT)\r\n                      4TH PARM =  0.628319E+01  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.200000E+01  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGA2   =  0.753982E+04  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGA    =  0.376991E+04  (INPUT)\r\n                      OMEGASQR =  0.142122E+08  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ      \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.600000E+03  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      NORPS    =         0      (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    14             =\r\n+                                                                                    0   = FREQSET \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    38             =\r\n+                                                                                    1   = TIMESET \r\n0*** USER WARNING MESSAGE 4032\r\n0NO COMPONENTS OF GRID POINTS         1 AND         10 WERE CONNECTED.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID        4\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA2   =  0.753982E+04  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX1   = ( 0.753982E+04, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      OMEGASQR =  0.142122E+08  (INPUT)\r\n                      MOMEGASQ = -0.142122E+08  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      MOMEGASQ = -0.142122E+08  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX2   = (-0.142122E+08, 0.000000E+00)   (OUTPUT)\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK RG       MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PXF1     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PXF1     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK FOL      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PXF1     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PXF1     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX                     2\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3028      B =   24     BBAR =   43\r\n                                        C =   22     CBAR =    2\r\n                                        R =   66\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK SCRATCH4 (N =   130)\r\n     TIME ESTIMATE =        0 SECONDS\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PSF      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK PPF      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON  103, FROM (   29,   12), TO (   29,   36)\r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            1.693600E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -1.782907E-05   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -9.999968E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =       8\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0            8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0           -4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =      16\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =      18\r\n                                               C O M P L E X   L O A D   V E C T O R\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      0.0            0.0           -8.468000E-07   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            8.914534E-06   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n0  1.813842E+03     G      0.0            0.0            4.999984E-01   0.0            0.0            0.0                           \r\n                           0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.661300E-15   4.931037E-14   4.351790E-10   1.630375E-13   2.312709E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      9.333154E-12   8.381868E-12   9.488562E-09   3.381597E-10   4.586147E-09   0.0                           \r\n                           351.6420       265.6745        79.0565        70.1626        77.9255         0.0                         \r\n0  1.813842E+03     G      5.234780E-07   4.701222E-07   5.321944E-04   1.896670E-05   2.572279E-04   0.0                           \r\n                           351.6420       265.6745        79.0565        70.1626        77.9255         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.617212E-10   1.458915E-11   1.864120E-09   1.351696E-10   8.442844E-10   0.0                           \r\n                           178.8542       178.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.150886E-10   3.114708E-10   8.459438E-09   2.737984E-09   8.898125E-09   0.0                           \r\n                           264.7141       263.8242       258.9401        80.9074       261.5742         0.0                         \r\n0  1.813842E+03     G      2.889029E-05   1.746977E-05   4.744730E-04   1.535681E-04   4.990781E-04   0.0                           \r\n                           264.7141       263.8242       258.9401        80.9074       261.5742         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.609451E-10   1.561982E-11   1.860811E-09   9.553836E-11   8.628881E-10   0.0                           \r\n                           358.8542       178.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.458312E-10   1.726686E-10   8.874058E-09   2.819557E-09   8.820880E-09   0.0                           \r\n                            78.6427       260.0269       259.1875       261.7178       261.3694         0.0                         \r\n0  1.813842E+03     G      3.061458E-05   9.684634E-06   4.977282E-04   1.581433E-04   4.947456E-04   0.0                           \r\n                            78.6427       260.0269       259.1875       261.7178       261.3694         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.846777E-14   2.386441E-14   2.179214E-10   1.438749E-10   1.158716E-10   0.0                           \r\n                           358.8542       358.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.152533E-12   7.707243E-12   5.524288E-09   2.882121E-09   2.671070E-09   0.0                           \r\n                           352.8124       210.2862        78.0386       259.6818        76.5321         0.0                         \r\n0  1.813842E+03     G      2.889953E-07   4.322839E-07   3.098463E-04   1.616524E-04   1.498150E-04   0.0                           \r\n                           352.8124       210.2862        78.0386       259.6818        76.5321         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.624381E-11   5.065468E-11   1.104715E-09   1.629720E-10   4.384620E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.127425E-10   6.029132E-10   7.306781E-09   4.660559E-09   4.518002E-09   0.0                           \r\n                           259.3128        76.1186       256.7693        76.1515       258.6024         0.0                         \r\n0  1.813842E+03     G      2.875871E-05   3.381620E-05   4.098228E-04   2.614015E-04   2.534057E-04   0.0                           \r\n                           259.3128        76.1186       256.7693        76.1515       258.6024         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.485032E-11   6.574661E-11   7.580826E-10   2.777260E-10   4.130237E-10   0.0                           \r\n                           358.8542       178.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      1.042364E-10   8.832747E-10   2.804561E-09   1.441803E-09   5.817278E-09   0.0                           \r\n                            79.4607       254.0120       259.4623        71.3667       257.3483         0.0                         \r\n0  1.813842E+03     G      5.846410E-06   4.954112E-05   1.573022E-04   8.086787E-05   3.262795E-04   0.0                           \r\n                            79.4607       254.0120       259.4623        71.3667       257.3483         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      4.012907E-14   2.544595E-14   2.172576E-10   1.440379E-10   1.153993E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.183021E-12   7.501263E-12   3.966360E-09   3.216110E-09   1.916969E-09   0.0                           \r\n                           170.2002       143.4129       260.4743       258.6854       259.8672         0.0                         \r\n0  1.813842E+03     G      2.346173E-07   4.207309E-07   2.224652E-04   1.803852E-04   1.075189E-04   0.0                           \r\n                           170.2002       143.4129       260.4743       258.6854       259.8672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.547734E-11   6.524384E-11   7.594051E-10   2.981416E-10   4.058223E-10   0.0                           \r\n                           358.8542       358.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.848513E-11   9.125276E-10   1.190517E-09   1.945294E-09   4.392448E-09   0.0                           \r\n                           169.2431        78.7417        92.3829        69.4499        84.6310         0.0                         \r\n0  1.813842E+03     G      2.719434E-06   5.118185E-05   6.677374E-05   1.091076E-04   2.463637E-04   0.0                           \r\n                           169.2431        78.7417        92.3829        69.4499        84.6310         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.609477E-11   5.012680E-11   1.102728E-09   1.821877E-10   4.498644E-10   0.0                           \r\n                           178.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.416079E-10   7.117867E-10   6.069545E-09   4.245806E-09   3.045367E-09   0.0                           \r\n                           258.4496       252.5555        79.0605        78.2197        89.0672         0.0                         \r\n0  1.813842E+03     G      2.476891E-05   3.992270E-05   3.404287E-04   2.381388E-04   1.708086E-04   0.0                           \r\n                           258.4496       252.5555        79.0605        78.2197        89.0672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.661300E-15   4.931037E-14   4.351790E-10   1.630375E-13   2.312709E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      9.333154E-12   8.381868E-12   9.488562E-09   3.381597E-10   4.586147E-09   0.0                           \r\n                           171.6420        85.6745       259.0565       250.1626       257.9255         0.0                         \r\n0  1.813842E+03     G      5.234780E-07   4.701222E-07   5.321944E-04   1.896670E-05   2.572279E-04   0.0                           \r\n                           171.6420        85.6745       259.0565       250.1626       257.9255         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.617212E-10   1.458915E-11   1.864120E-09   1.351696E-10   8.442844E-10   0.0                           \r\n                           358.8542       358.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.150886E-10   3.114708E-10   8.459438E-09   2.737984E-09   8.898125E-09   0.0                           \r\n                            84.7141        83.8242        78.9401       260.9074        81.5742         0.0                         \r\n0  1.813842E+03     G      2.889029E-05   1.746977E-05   4.744730E-04   1.535681E-04   4.990781E-04   0.0                           \r\n                            84.7141        83.8242        78.9401       260.9074        81.5742         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.609451E-10   1.561982E-11   1.860811E-09   9.553836E-11   8.628881E-10   0.0                           \r\n                           178.8542       358.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.458312E-10   1.726686E-10   8.874058E-09   2.819557E-09   8.820880E-09   0.0                           \r\n                           258.6427        80.0269        79.1875        81.7178        81.3694         0.0                         \r\n0  1.813842E+03     G      3.061458E-05   9.684634E-06   4.977282E-04   1.581433E-04   4.947456E-04   0.0                           \r\n                           258.6427        80.0269        79.1875        81.7178        81.3694         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.846777E-14   2.386441E-14   2.179214E-10   1.438749E-10   1.158716E-10   0.0                           \r\n                           178.8542       178.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.152533E-12   7.707243E-12   5.524288E-09   2.882121E-09   2.671070E-09   0.0                           \r\n                           172.8125        30.2862       258.0386        79.6818       256.5321         0.0                         \r\n0  1.813842E+03     G      2.889953E-07   4.322839E-07   3.098463E-04   1.616524E-04   1.498150E-04   0.0                           \r\n                           172.8125        30.2862       258.0386        79.6818       256.5321         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.624381E-11   5.065468E-11   1.104715E-09   1.629720E-10   4.384620E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.127425E-10   6.029132E-10   7.306781E-09   4.660559E-09   4.518002E-09   0.0                           \r\n                            79.3128       256.1186        76.7693       256.1515        78.6024         0.0                         \r\n0  1.813842E+03     G      2.875871E-05   3.381620E-05   4.098228E-04   2.614015E-04   2.534057E-04   0.0                           \r\n                            79.3129       256.1186        76.7693       256.1515        78.6024         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.485032E-11   6.574661E-11   7.580826E-10   2.777260E-10   4.130237E-10   0.0                           \r\n                           178.8542       358.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      1.042364E-10   8.832747E-10   2.804561E-09   1.441803E-09   5.817278E-09   0.0                           \r\n                           259.4607        74.0120        79.4623       251.3667        77.3483         0.0                         \r\n0  1.813842E+03     G      5.846410E-06   4.954112E-05   1.573022E-04   8.086787E-05   3.262795E-04   0.0                           \r\n                           259.4607        74.0120        79.4623       251.3667        77.3483         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      4.012907E-14   2.544595E-14   2.172576E-10   1.440379E-10   1.153993E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.183021E-12   7.501263E-12   3.966360E-09   3.216110E-09   1.916969E-09   0.0                           \r\n                           350.2002       323.4129        80.4743        78.6854        79.8672         0.0                         \r\n0  1.813842E+03     G      2.346173E-07   4.207309E-07   2.224652E-04   1.803852E-04   1.075189E-04   0.0                           \r\n                           350.2002       323.4129        80.4743        78.6854        79.8672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.547734E-11   6.524384E-11   7.594051E-10   2.981416E-10   4.058223E-10   0.0                           \r\n                           178.8542       178.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.848513E-11   9.125276E-10   1.190517E-09   1.945294E-09   4.392448E-09   0.0                           \r\n                           349.2431       258.7417       272.3829       249.4499       264.6310         0.0                         \r\n0  1.813842E+03     G      2.719434E-06   5.118185E-05   6.677374E-05   1.091076E-04   2.463637E-04   0.0                           \r\n                           349.2431       258.7417       272.3829       249.4499       264.6310         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.609477E-11   5.012680E-11   1.102728E-09   1.821877E-10   4.498644E-10   0.0                           \r\n                           358.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.416079E-10   7.117867E-10   6.069545E-09   4.245806E-09   3.045367E-09   0.0                           \r\n                            78.4496        72.5554       259.0605       258.2197       269.0672         0.0                         \r\n0  1.813842E+03     G      2.476891E-05   3.992270E-05   3.404287E-04   2.381388E-04   1.708086E-04   0.0                           \r\n                            78.4496        72.5554       259.0605       258.2197       269.0672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.661300E-15   4.931037E-14   4.351790E-10   1.630375E-13   2.312709E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      9.333154E-12   8.381868E-12   9.488562E-09   3.381597E-10   4.586147E-09   0.0                           \r\n                           351.6420       265.6745        79.0565        70.1626        77.9255         0.0                         \r\n0  1.813842E+03     G      5.234780E-07   4.701222E-07   5.321944E-04   1.896670E-05   2.572279E-04   0.0                           \r\n                           351.6420       265.6745        79.0565        70.1626        77.9255         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.617212E-10   1.458915E-11   1.864120E-09   1.351696E-10   8.442844E-10   0.0                           \r\n                           178.8542       178.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.150886E-10   3.114708E-10   8.459438E-09   2.737984E-09   8.898125E-09   0.0                           \r\n                           264.7141       263.8242       258.9401        80.9074       261.5742         0.0                         \r\n0  1.813842E+03     G      2.889029E-05   1.746977E-05   4.744730E-04   1.535681E-04   4.990781E-04   0.0                           \r\n                           264.7141       263.8242       258.9401        80.9074       261.5742         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.609451E-10   1.561982E-11   1.860811E-09   9.553836E-11   8.628881E-10   0.0                           \r\n                           358.8542       178.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.458312E-10   1.726686E-10   8.874058E-09   2.819557E-09   8.820880E-09   0.0                           \r\n                            78.6427       260.0269       259.1875       261.7178       261.3694         0.0                         \r\n0  1.813842E+03     G      3.061458E-05   9.684634E-06   4.977282E-04   1.581433E-04   4.947456E-04   0.0                           \r\n                            78.6427       260.0269       259.1875       261.7178       261.3694         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.846777E-14   2.386441E-14   2.179214E-10   1.438749E-10   1.158716E-10   0.0                           \r\n                           358.8542       358.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.152533E-12   7.707243E-12   5.524288E-09   2.882121E-09   2.671070E-09   0.0                           \r\n                           352.8124       210.2862        78.0386       259.6818        76.5321         0.0                         \r\n0  1.813842E+03     G      2.889953E-07   4.322839E-07   3.098463E-04   1.616524E-04   1.498150E-04   0.0                           \r\n                           352.8124       210.2862        78.0386       259.6818        76.5321         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.624381E-11   5.065468E-11   1.104715E-09   1.629720E-10   4.384620E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      5.127425E-10   6.029132E-10   7.306781E-09   4.660559E-09   4.518002E-09   0.0                           \r\n                           259.3128        76.1186       256.7693        76.1515       258.6024         0.0                         \r\n0  1.813842E+03     G      2.875871E-05   3.381620E-05   4.098228E-04   2.614015E-04   2.534057E-04   0.0                           \r\n                           259.3128        76.1186       256.7693        76.1515       258.6024         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.485032E-11   6.574661E-11   7.580826E-10   2.777260E-10   4.130237E-10   0.0                           \r\n                           358.8542       178.8542       178.8542       358.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      1.042364E-10   8.832747E-10   2.804561E-09   1.441803E-09   5.817278E-09   0.0                           \r\n                            79.4607       254.0120       259.4623        71.3667       257.3483         0.0                         \r\n0  1.813842E+03     G      5.846410E-06   4.954112E-05   1.573022E-04   8.086787E-05   3.262795E-04   0.0                           \r\n                            79.4607       254.0120       259.4623        71.3667       257.3483         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      4.012907E-14   2.544595E-14   2.172576E-10   1.440379E-10   1.153993E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.183021E-12   7.501263E-12   3.966360E-09   3.216110E-09   1.916969E-09   0.0                           \r\n                           170.2002       143.4129       260.4743       258.6854       259.8672         0.0                         \r\n0  1.813842E+03     G      2.346173E-07   4.207309E-07   2.224652E-04   1.803852E-04   1.075189E-04   0.0                           \r\n                           170.2002       143.4129       260.4743       258.6854       259.8672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.547734E-11   6.524384E-11   7.594051E-10   2.981416E-10   4.058223E-10   0.0                           \r\n                           358.8542       358.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.848513E-11   9.125276E-10   1.190517E-09   1.945294E-09   4.392448E-09   0.0                           \r\n                           169.2431        78.7417        92.3829        69.4499        84.6310         0.0                         \r\n0  1.813842E+03     G      2.719434E-06   5.118185E-05   6.677374E-05   1.091076E-04   2.463637E-04   0.0                           \r\n                           169.2431        78.7417        92.3829        69.4499        84.6310         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.609477E-11   5.012680E-11   1.102728E-09   1.821877E-10   4.498644E-10   0.0                           \r\n                           178.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      4.416079E-10   7.117867E-10   6.069545E-09   4.245806E-09   3.045367E-09   0.0                           \r\n                           258.4496       252.5555        79.0605        78.2197        89.0672         0.0                         \r\n0  1.813842E+03     G      2.476891E-05   3.992270E-05   3.404287E-04   2.381388E-04   1.708086E-04   0.0                           \r\n                           258.4496       252.5555        79.0605        78.2197        89.0672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   107\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.661300E-15   4.931037E-14   4.351790E-10   1.630375E-13   2.312709E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      9.333154E-12   8.381868E-12   9.488562E-09   3.381597E-10   4.586147E-09   0.0                           \r\n                           171.6420        85.6745       259.0565       250.1626       257.9255         0.0                         \r\n0  1.813842E+03     G      5.234780E-07   4.701222E-07   5.321944E-04   1.896670E-05   2.572279E-04   0.0                           \r\n                           171.6420        85.6745       259.0565       250.1626       257.9255         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   108\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.617212E-10   1.458915E-11   1.864120E-09   1.351696E-10   8.442844E-10   0.0                           \r\n                           358.8542       358.8542       358.8542       358.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.150886E-10   3.114708E-10   8.459438E-09   2.737984E-09   8.898125E-09   0.0                           \r\n                            84.7141        83.8242        78.9401       260.9074        81.5742         0.0                         \r\n0  1.813842E+03     G      2.889029E-05   1.746977E-05   4.744730E-04   1.535681E-04   4.990781E-04   0.0                           \r\n                            84.7141        83.8242        78.9401       260.9074        81.5742         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   109\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      1.609451E-10   1.561982E-11   1.860811E-09   9.553836E-11   8.628881E-10   0.0                           \r\n                           178.8542       358.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.458312E-10   1.726686E-10   8.874058E-09   2.819557E-09   8.820880E-09   0.0                           \r\n                           258.6427        80.0269        79.1875        81.7178        81.3694         0.0                         \r\n0  1.813842E+03     G      3.061458E-05   9.684634E-06   4.977282E-04   1.581433E-04   4.947456E-04   0.0                           \r\n                           258.6427        80.0269        79.1875        81.7178        81.3694         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   110\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      3.846777E-14   2.386441E-14   2.179214E-10   1.438749E-10   1.158716E-10   0.0                           \r\n                           178.8542       178.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.152533E-12   7.707243E-12   5.524288E-09   2.882121E-09   2.671070E-09   0.0                           \r\n                           172.8125        30.2862       258.0386        79.6818       256.5321         0.0                         \r\n0  1.813842E+03     G      2.889953E-07   4.322839E-07   3.098463E-04   1.616524E-04   1.498150E-04   0.0                           \r\n                           172.8125        30.2862       258.0386        79.6818       256.5321         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   111\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.624381E-11   5.065468E-11   1.104715E-09   1.629720E-10   4.384620E-10   0.0                           \r\n                           358.8542       178.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      5.127425E-10   6.029132E-10   7.306781E-09   4.660559E-09   4.518002E-09   0.0                           \r\n                            79.3128       256.1186        76.7693       256.1515        78.6024         0.0                         \r\n0  1.813842E+03     G      2.875871E-05   3.381620E-05   4.098228E-04   2.614015E-04   2.534057E-04   0.0                           \r\n                            79.3129       256.1186        76.7693       256.1515        78.6024         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   112\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.485032E-11   6.574661E-11   7.580826E-10   2.777260E-10   4.130237E-10   0.0                           \r\n                           178.8542       358.8542       358.8542       178.8542       178.8542         0.0                         \r\n0  1.813842E+03     G      1.042364E-10   8.832747E-10   2.804561E-09   1.441803E-09   5.817278E-09   0.0                           \r\n                           259.4607        74.0120        79.4623       251.3667        77.3483         0.0                         \r\n0  1.813842E+03     G      5.846410E-06   4.954112E-05   1.573022E-04   8.086787E-05   3.262795E-04   0.0                           \r\n                           259.4607        74.0120        79.4623       251.3667        77.3483         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   113\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =       8\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      4.012907E-14   2.544595E-14   2.172576E-10   1.440379E-10   1.153993E-10   0.0                           \r\n                           178.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.183021E-12   7.501263E-12   3.966360E-09   3.216110E-09   1.916969E-09   0.0                           \r\n                           350.2002       323.4129        80.4743        78.6854        79.8672         0.0                         \r\n0  1.813842E+03     G      2.346173E-07   4.207309E-07   2.224652E-04   1.803852E-04   1.075189E-04   0.0                           \r\n                           350.2002       323.4129        80.4743        78.6854        79.8672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   114\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =      16\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      7.547734E-11   6.524384E-11   7.594051E-10   2.981416E-10   4.058223E-10   0.0                           \r\n                           178.8542       178.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.848513E-11   9.125276E-10   1.190517E-09   1.945294E-09   4.392448E-09   0.0                           \r\n                           349.2431       258.7417       272.3829       249.4499       264.6310         0.0                         \r\n0  1.813842E+03     G      2.719434E-06   5.118185E-05   6.677374E-05   1.091076E-04   2.463637E-04   0.0                           \r\n                           349.2431       258.7417       272.3829       249.4499       264.6310         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   115\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      POINT-ID =      18\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      FREQUENCY   TYPE          T1             T2             T3             R1             R2             R3\r\n0  0.0              G      8.609477E-11   5.012680E-11   1.102728E-09   1.821877E-10   4.498644E-10   0.0                           \r\n                           358.8542       358.8542       178.8542       178.8542       358.8542         0.0                         \r\n0  1.813842E+03     G      4.416079E-10   7.117867E-10   6.069545E-09   4.245806E-09   3.045367E-09   0.0                           \r\n                            78.4496        72.5554       259.0605       258.2197       269.0672         0.0                         \r\n0  1.813842E+03     G      2.476891E-05   3.992270E-05   3.404287E-04   2.381388E-04   1.708086E-04   0.0                           \r\n                            78.4496        72.5554       259.0605       258.2197       269.0672         0.0                         \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   116\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 1                                                                                                SUBCASE 1            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      7.259272E-04 / 178.8542           1.494002E-04 / 178.8542           9.090402E-05 / 178.8542      \r\n                 6.250000E-02      7.278540E-04 / 358.8542           1.482291E-04 / 358.8542           8.445042E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      2.585664E-02 /  79.4725           3.601989E-03 /  79.7189           1.627299E-03 /  77.0431      \r\n                 6.250000E-02      2.555313E-02 / 261.1169           3.892161E-03 / 261.3012           3.084221E-03 / 261.1436      \r\n0  1.813842E+03 -6.250000E-02      1.450247E+03 /  79.4725           2.020284E+02 /  79.7188           9.127180E+01 /  77.0431      \r\n                 6.250000E-02      1.433224E+03 / 261.1169           2.183035E+02 / 261.3012           1.729877E+02 / 261.1436      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   117\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 2                                                                                                SUBCASE 2            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.612966E-04 / 178.8542           7.650215E-05 / 178.8542           4.759038E-05 / 178.8542      \r\n                 6.250000E-02      3.632019E-04 / 358.8542           7.584626E-05 / 358.8542           4.442726E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      1.482562E-02 /  76.8770           2.322681E-03 /  76.4903           2.077796E-03 /  75.6376      \r\n                 6.250000E-02      1.446412E-02 / 258.6485           2.415987E-03 / 257.1886           2.920436E-03 / 256.1883      \r\n0  1.813842E+03 -6.250000E-02      8.315390E+02 /  76.8770           1.302745E+02 /  76.4903           1.165393E+02 /  75.6376      \r\n                 6.250000E-02      8.112634E+02 / 258.6485           1.355079E+02 / 257.1886           1.638012E+02 / 256.1883      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   118\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 3                                                                                                SUBCASE 3            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.646302E-04 / 358.8542           7.289708E-05 / 358.8542           4.331315E-05 / 358.8542      \r\n                 6.250000E-02      3.646526E-04 / 178.8542           7.238358E-05 / 178.8542           4.002242E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      1.106662E-02 / 262.9505           1.289643E-03 / 265.5404           4.527489E-04 /  70.5799      \r\n                 6.250000E-02      1.111990E-02 /  84.3284           1.492488E-03 /  87.9678           3.068515E-04 / 136.4398      \r\n0  1.813842E+03 -6.250000E-02      6.207045E+02 / 262.9505           7.233345E+01 / 265.5404           2.539389E+01 /  70.5800      \r\n                 6.250000E-02      6.236929E+02 /  84.3284           8.371075E+01 /  87.9678           1.721067E+01 / 136.4398      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   119\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 4                                                                                                SUBCASE 4            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      7.259272E-04 / 358.8542           1.494002E-04 / 358.8542           9.090402E-05 / 358.8542      \r\n                 6.250000E-02      7.278540E-04 / 178.8542           1.482291E-04 / 178.8542           8.445042E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      2.585664E-02 / 259.4725           3.601989E-03 / 259.7189           1.627299E-03 / 257.0431      \r\n                 6.250000E-02      2.555313E-02 /  81.1169           3.892161E-03 /  81.3012           3.084221E-03 /  81.1436      \r\n0  1.813842E+03 -6.250000E-02      1.450247E+03 / 259.4725           2.020284E+02 / 259.7188           9.127180E+01 / 257.0431      \r\n                 6.250000E-02      1.433224E+03 /  81.1169           2.183035E+02 /  81.3012           1.729877E+02 /  81.1436      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   120\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 5                                                                                                SUBCASE 5            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.612966E-04 / 358.8542           7.650215E-05 / 358.8542           4.759038E-05 / 358.8542      \r\n                 6.250000E-02      3.632019E-04 / 178.8542           7.584626E-05 / 178.8542           4.442726E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      1.482562E-02 / 256.8770           2.322681E-03 / 256.4903           2.077796E-03 / 255.6376      \r\n                 6.250000E-02      1.446412E-02 /  78.6485           2.415987E-03 /  77.1886           2.920436E-03 /  76.1883      \r\n0  1.813842E+03 -6.250000E-02      8.315390E+02 / 256.8770           1.302745E+02 / 256.4903           1.165393E+02 / 255.6376      \r\n                 6.250000E-02      8.112634E+02 /  78.6485           1.355079E+02 /  77.1886           1.638012E+02 /  76.1883      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   121\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 6                                                                                                SUBCASE 6            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.646302E-04 / 178.8542           7.289708E-05 / 178.8542           4.331315E-05 / 178.8542      \r\n                 6.250000E-02      3.646526E-04 / 358.8542           7.238358E-05 / 358.8542           4.002242E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      1.106662E-02 /  82.9505           1.289643E-03 /  85.5404           4.527489E-04 / 250.5799      \r\n                 6.250000E-02      1.111990E-02 / 264.3284           1.492488E-03 / 267.9678           3.068515E-04 / 316.4398      \r\n0  1.813842E+03 -6.250000E-02      6.207045E+02 /  82.9505           7.233345E+01 /  85.5404           2.539389E+01 / 250.5800      \r\n                 6.250000E-02      6.236929E+02 / 264.3284           8.371075E+01 / 267.9678           1.721067E+01 / 316.4398      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   122\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 7                                                                                                SUBCASE 7            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      7.259272E-04 / 178.8542           1.494002E-04 / 178.8542           9.090402E-05 / 178.8542      \r\n                 6.250000E-02      7.278540E-04 / 358.8542           1.482291E-04 / 358.8542           8.445042E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      2.585664E-02 /  79.4725           3.601989E-03 /  79.7189           1.627299E-03 /  77.0431      \r\n                 6.250000E-02      2.555313E-02 / 261.1169           3.892161E-03 / 261.3012           3.084221E-03 / 261.1436      \r\n0  1.813842E+03 -6.250000E-02      1.450247E+03 /  79.4725           2.020284E+02 /  79.7188           9.127180E+01 /  77.0431      \r\n                 6.250000E-02      1.433224E+03 / 261.1169           2.183035E+02 / 261.3012           1.729877E+02 / 261.1436      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   123\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 8                                                                                                SUBCASE 8            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.612966E-04 / 178.8542           7.650215E-05 / 178.8542           4.759038E-05 / 178.8542      \r\n                 6.250000E-02      3.632019E-04 / 358.8542           7.584626E-05 / 358.8542           4.442726E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      1.482562E-02 /  76.8770           2.322681E-03 /  76.4903           2.077796E-03 /  75.6376      \r\n                 6.250000E-02      1.446412E-02 / 258.6485           2.415987E-03 / 257.1886           2.920436E-03 / 256.1883      \r\n0  1.813842E+03 -6.250000E-02      8.315390E+02 /  76.8770           1.302745E+02 /  76.4903           1.165393E+02 /  75.6376      \r\n                 6.250000E-02      8.112634E+02 / 258.6485           1.355079E+02 / 257.1886           1.638012E+02 / 256.1883      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   124\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 9                                                                                                SUBCASE 9            \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.646302E-04 / 358.8542           7.289708E-05 / 358.8542           4.331315E-05 / 358.8542      \r\n                 6.250000E-02      3.646526E-04 / 178.8542           7.238358E-05 / 178.8542           4.002242E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      1.106662E-02 / 262.9505           1.289643E-03 / 265.5404           4.527489E-04 /  70.5799      \r\n                 6.250000E-02      1.111990E-02 /  84.3284           1.492488E-03 /  87.9678           3.068515E-04 / 136.4398      \r\n0  1.813842E+03 -6.250000E-02      6.207045E+02 / 262.9505           7.233345E+01 / 265.5404           2.539389E+01 /  70.5800      \r\n                 6.250000E-02      6.236929E+02 /  84.3284           8.371075E+01 /  87.9678           1.721067E+01 / 136.4398      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   125\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 10                                                                                               SUBCASE 10           \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      7.259272E-04 / 358.8542           1.494002E-04 / 358.8542           9.090402E-05 / 358.8542      \r\n                 6.250000E-02      7.278540E-04 / 178.8542           1.482291E-04 / 178.8542           8.445042E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      2.585664E-02 / 259.4725           3.601989E-03 / 259.7189           1.627299E-03 / 257.0431      \r\n                 6.250000E-02      2.555313E-02 /  81.1169           3.892161E-03 /  81.3012           3.084221E-03 /  81.1436      \r\n0  1.813842E+03 -6.250000E-02      1.450247E+03 / 259.4725           2.020284E+02 / 259.7188           9.127180E+01 / 257.0431      \r\n                 6.250000E-02      1.433224E+03 /  81.1169           2.183035E+02 /  81.3012           1.729877E+02 /  81.1436      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   126\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 11                                                                                               SUBCASE 11           \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.612966E-04 / 358.8542           7.650215E-05 / 358.8542           4.759038E-05 / 358.8542      \r\n                 6.250000E-02      3.632019E-04 / 178.8542           7.584626E-05 / 178.8542           4.442726E-05 / 178.8542      \r\n0  1.813842E+03 -6.250000E-02      1.482562E-02 / 256.8770           2.322681E-03 / 256.4903           2.077796E-03 / 255.6376      \r\n                 6.250000E-02      1.446412E-02 /  78.6485           2.415987E-03 /  77.1886           2.920436E-03 /  76.1883      \r\n0  1.813842E+03 -6.250000E-02      8.315390E+02 / 256.8770           1.302745E+02 / 256.4903           1.165393E+02 / 255.6376      \r\n                 6.250000E-02      8.112634E+02 /  78.6485           1.355079E+02 /  77.1886           1.638012E+02 /  76.1883      \r\n1     ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   127\r\n      NASTRAN TEST PROBLEM NO. T08-02-2A                                                                                            \r\n0     SEGMENT 12                                                                                               SUBCASE 12           \r\n      ELEMENT-ID =      11\r\n\r\n      C O M P L E X   S T R E S S E S   I N   G E N E R A L   Q U A D R I L I A T E R A L   E L E M E N T S   ( C Q U A D 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n                    FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    FREQUENCY,6X,8HDISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0  0.0          -6.250000E-02      3.646302E-04 / 178.8542           7.289708E-05 / 178.8542           4.331315E-05 / 178.8542      \r\n                 6.250000E-02      3.646526E-04 / 358.8542           7.238358E-05 / 358.8542           4.002242E-05 / 358.8542      \r\n0  1.813842E+03 -6.250000E-02      1.106662E-02 /  82.9505           1.289643E-03 /  85.5404           4.527489E-04 / 250.5799      \r\n                 6.250000E-02      1.111990E-02 / 264.3284           1.492488E-03 / 267.9678           3.068515E-04 / 316.4398      \r\n0  1.813842E+03 -6.250000E-02      6.207045E+02 /  82.9505           7.233345E+01 /  85.5404           2.539389E+01 / 250.5800      \r\n                 6.250000E-02      6.236929E+02 / 264.3284           8.371075E+01 / 267.9678           1.721067E+01 / 316.4398      \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)          \r\n DATE:  5/18/95\r\n END TIME: 10:31:42\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t08031a.out",
    "content": "     NASTRAN  SYSTEM(93)=1                                                           \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T08031A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   8                                                                         \r\n     DIAG  14                                                                        \r\n     TIME  500                                                                       \r\n     $                                                                               \r\n0*** $   ... READFILE FROM-  COSMFVA                                                 \r\n     $ COSMIC ALTERS FOR MODAL FORCED VIBRATION ANALYSIS (COSMFVA)                   \r\n     $ ALTER    3 $                                                                  \r\n     INSERT FILE $                                                                   \r\n     FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                                     \r\n     $ PERFORM INITIAL ERROR CHECKS ON NSEGS, KMAX, KMIN AND KINDEX.                 \r\n     COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.                      \r\n     COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.                       \r\n     COND     ERRORC1,KMIN  $  IF USER HAS SPECIFIED NEGATIVE KMIN.                  \r\n     PARAM    //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $                                     \r\n     COND     LBL1KIND,KTEST $                                                       \r\n     $ KMIN = KMAX                                                                   \r\n     PARAM    //*ADD*/KINDEX/V,Y,KMAX/0  $  SET KINDEX = KMAX (= KMIN)               \r\n     JUMP     LBL2KIND $                                                             \r\n     LABEL    LBL1KIND                                                               \r\n     $ KMIN .NE. KMAX                                                                \r\n     COND     ERRORC1,KINDEX  $  IF USER HAS NOT SPECIFIED KINDEX.                   \r\n     PARAM    //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $                                     \r\n     COND     ERRORC1,KTEST $                                                        \r\n     PARAM    //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $                                     \r\n     COND     ERRORC1,KTEST $                                                        \r\n     LABEL    LBL2KIND $                                                             \r\n     PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                                      \r\n     COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.                  \r\n     PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                         \r\n     PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                                     \r\n     COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                                \r\n     $ CHECK FOR KINDEX = 0                                                          \r\n     PARAM    //*EQ*/KTEST/V,Y,KINDEX/0 $                                            \r\n     COND     LBL3KIND,KTEST $                                                       \r\n     $ CHECK FOR KINDEX = NSEGS/2 (NSEGS EVEN ONLY)                                  \r\n     PARAM    //*ADD*/NSEGS1/V,Y,NSEGS/1 $                                           \r\n     PARAM    //*DIV*/NSEG21/NSEGS1/2 $                                              \r\n     PARAM    //*EQ*/KEVEN/NSEG21/NSEG2 $                                            \r\n     PARAM    //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $                                       \r\n     PARAM    //*EQ*/KTEST/KNSEG2/KEVEN $                                            \r\n     COND     LBL3KIND,KTEST $                                                       \r\n     $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY)                            \r\n     PARAM    //*ADD*/KTEST/1/0 $                                                    \r\n     LABEL   LBL3KIND $                                                              \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAM    //*GT*/KFLAG/KTEST/0 $                                                 \r\n     $ SET DEFAULTS FOR PARAMETERS.                                                  \r\n     PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                                  \r\n     $ CALCULATE OMEGA, 2*OMEGA AND OMEGA**2 FROM RPS. SET DEFAULT RPS.              \r\n     PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                                 \r\n     PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                           \r\n     PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                                       \r\n     $ GENERATE NORPS FLAG IF RPS IS ZERO.                                           \r\n     PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                                       \r\n     $ MAKE SURE COUPLED MASSES HAVE NOT BEEN REQUESTED.                             \r\n     PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                                      \r\n     COND     ERRORC2,NOLUMP $                                                       \r\n     $ ALTER    21,21 $  ADD SLT TO OUTPUT FOR TRLG.                                 \r\n     DELETE GP3 $                                                                    \r\n     GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                               \r\n     $ ALTER    24 $                                                                 \r\n     INSERT TA1,2 $                                                                  \r\n     $ SINCE MULTIPLE CONSTRAINTS ARE NOT ALLOWED EXECUTE GP4 NOW SO THAT            \r\n     $ MORE ERROR CHECKS CAN BE MADE BEFORE ELEMENT GENERATION.                      \r\n     $ ADD YS NEEDED FOR PSF RECOVERY IN SSG2.                                       \r\n     PARAM    //*MPY*/NSKIP /0/0 $                                                   \r\n     GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/           \r\n              S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/           \r\n              S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $         \r\n     PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                          \r\n     $ SUPORT BULK DATA IS NOT ALLOWED.                                              \r\n     PARAM    //*NOT*/REACDATA /REACT $                                              \r\n     COND     ERRORC3,REACDATA $                                                     \r\n     $ EXECUTE DPD NOW SO CHECKS CAN BE MADE. ADD TRL TO OUTPUT DATA BLOCKS.         \r\n     DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,          \r\n              TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/           \r\n              S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $                       \r\n     $ CHECK FOR EIGENVALUE EXTRACTION DATA                                          \r\n     COND     ERRORC7,NOEED $                                                        \r\n     $ MUST HAVE EITHER FREQ OR TSTEP BULK DATA.                                     \r\n     PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                          \r\n     COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                           \r\n     $ ONLY FREQUENCY OR TSTEP IS ALLOWED IN THE CASE CONTROL                        \r\n     PARAML   CASECC //*TABLE1*/1/14//FREQSET $                                      \r\n     PARAML   CASECC //*TABLE1*/1/38//TIMESET $                                      \r\n     PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                                   \r\n     PARAM    //*NOT*/FTERR1 /FREQTIME $                                             \r\n     PARAM    //*LE*/NOFREQ /FREQSET /0 $                                            \r\n     PARAM    //*LE*/NOTIME /TIMESET /0 $                                            \r\n     COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.            \r\n     $ EPOINT BULK DATA NOT ALLOWED                                                  \r\n     PARAM    //*NOT*/EXTRAPTS /NOUE $                                               \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     COND     ERRORC4,EXTRAPTS $                                                     \r\n     $ GENERATE DATA FOR CYCT2 MODULE.                                               \r\n     GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                        \r\n     COND     ERRORC1,NOGO $                                                         \r\n     $ ALTER    29 $                                                                 \r\n     INSERT EMG,-1 $                                                                 \r\n     PARAM    //*NOP*/V,Y,KGGIN=-1 $                                                 \r\n     COND     JMPKGGIN,KGGIN $                                                       \r\n     PARAM    //*ADD*/NOKGGX/-1/0 $                                                  \r\n     INPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $                           \r\n     EQUIV    KTOTAL,KGGX $                                                          \r\n     LABEL    JMPKGGIN $                                                             \r\n     $ ALTER    34 $                                                                 \r\n     INSERT EMA,1 $                                                                  \r\n     $ PRE-PURGE DATA BLOCKS THAT WILL NOT BE GENERATED                              \r\n     PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                           \r\n     PURGE    B1GG,M1GG /NOBM1 $                                                     \r\n     PURGE    M2GG,M2BASEXG /NOMGG $                                                 \r\n     $ ALTER    38 $                                                                 \r\n     INSERT EMA(2),1 $                                                               \r\n     $ GENERATE DATA BLOCKS FRLX, B1GG, M1GG, M2GG AND BASEGX.                       \r\n     $ GENERATE PARAMETERS FKMAX AND NOBASEX.                                        \r\n     FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,          \r\n              PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/                \r\n              V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/                 \r\n              V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $                 \r\n     PARAML   FRLX //*PRES*////NOFRLX $                                              \r\n     COND     LBLFRLX,NOFRLX $                                                       \r\n     EQUIV    FRLX,FRL $                                                             \r\n     LABEL    LBLFRLX $                                                              \r\n     $ ALTER    47 $                                                                 \r\n     INSERT EMA(4),2 $                                                               \r\n     PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                                \r\n     $ ALTER    58 $                                                                 \r\n     INSERT GPSTGEN $                                                                \r\n     $ REDEFINE BGG AND KGG.                                                         \r\n     COND     LBL11A,NOBM1 $                                                         \r\n     PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                                    \r\n     PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                                   \r\n     PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                                \r\n     ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                                 \r\n     EQUIV    BGG1,BGG $                                                             \r\n     ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                                 \r\n     EQUIV    KGG1,KGG $                                                             \r\n     LABEL    LBL11A                                                                 \r\n     $ ALTER    59,62 $  GP4 HAS BEEN MOVED-UP.                                      \r\n     DELETE GP4,-1,GP4,2 $                                                           \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     $ ALTER    87,87 $  DPD HAS BEEN MOVED-UP.                                      \r\n     DELETE DPD $                                                                    \r\n     $ ALTER    112 $  PARAM AND EQUIV LOGIC DEPENDING ON LGKAD FOR FREQ/TRAN.       \r\n     INSERT GKAD,-3 $                                                                \r\n     PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                            \r\n     COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                                \r\n     $ ALTER    113 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,-2 $                                                                \r\n     JUMP     LGKAD2 $                                                               \r\n     LABEL    LGKAD1 $                                                               \r\n     EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/               \r\n              KAA,KDD/KDEKA $                                                        \r\n     LABEL    LGKAD2 $                                                               \r\n     $ ALTER    115,115 $                                                            \r\n     DELETE GKAD $                                                                   \r\n     $ ADD PARAMETERS GKAD, W3 AND W4 TO GKAD.                                       \r\n     GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,           \r\n              GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/                  \r\n              C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/            \r\n              SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                               \r\n     $ ALTER    116 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,1 $                                                                 \r\n     COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                                \r\n     $ ALTER    117 $  SEE ALTER 112 COMMENT.                                        \r\n     INSERT GKAD,2 $                                                                 \r\n     JUMP     LGKAD4 $                                                               \r\n     LABEL    LGKAD3 $                                                               \r\n     EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $                       \r\n     LABEL    LGKAD4 $                                                               \r\n     $ ALTER    118,122 $                                                            \r\n     DELETE FRRD,-2,VDR $                                                            \r\n     $ NEW SOLUTION LOGIC                                                            \r\n     $ GENERATE TIME-DEPENDENT LOADS IF TSTEP WAS REQUESTED IN CASE CONTROL.         \r\n     $ USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.                          \r\n     COND     LBLTRL1,NOTIME $                                                       \r\n     $ LOOP THRU ALL SUBCASES FOR TIME-DEPENDENT LOADS.                              \r\n     PARAM    //*MPY*/REPEATT /1 /-1 $                                               \r\n     PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                           \r\n     LABEL    TRLGLOOP $                                                             \r\n     CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                        \r\n     PARAM    //*MPY*/NCOL /0 /1 $                                                   \r\n     TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/         \r\n              ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                          \r\n     SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                         \r\n     SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                         \r\n     PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                          \r\n     COND     TRLGDONE,REPEATT $                                                     \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     REPT     TRLGLOOP,100 $                                                         \r\n     JUMP     ERROR3 $                                                               \r\n     LABEL    TRLGDONE $                                                             \r\n     FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/               \r\n              V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/           \r\n              S,N,NORO2 $                                                            \r\n     EQUIV    FRLZ,FRL // FOLZ,FOL $                                                 \r\n     JUMP     LBLFRL2 $                                                              \r\n     LABEL    LBLTRL1 $                                                              \r\n     $ GENERATE FREQUENCY-DEPENDENT LOADS IF FREQUENCY WAS SELECTED IN CC.           \r\n     FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /           \r\n              *DIRECT*/FREQY/*FREQ* $                                                \r\n     COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.        \r\n     MPYAD    PPF,PDZERO, / PPFX /0 $                                                \r\n     EQUIV    PPFX,PPF $                                                             \r\n     LABEL    LBLFRLX1 $                                                             \r\n     $ FORM NEW LOADS.                                                               \r\n     COND     LBLFRL1,NOBASEX $                                                      \r\n     MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                           \r\n     ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                           \r\n     EQUIV    PPF1,PPF $                                                             \r\n     COND     LBLBASE1,NOSET $                                                       \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                        \r\n     EQUIV    PSF1,PSF // PDF1,PDF $                                                 \r\n     LABEL    LBLBASE1 $                                                             \r\n     LABEL    LBLFRL1 $                                                              \r\n     EQUIV    PPF,PDF/NOSET $                                                        \r\n     $ LOADS ARE FREQUENCY-DEPENDENT                                                 \r\n     $ PERFORM CYCLIC TRANSFORMATION ON LOADS IF CYCIO=+1.                           \r\n     PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                           \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=-1.                                   \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX                       \r\n     EQUIV    PDF,PXF/CYCIO $                                                        \r\n     COND     LBLPDONE,CYCIO $                                                       \r\n     $ CALCULATE THE NUMBER OF LOADS FOR CYCIO=1.                                    \r\n     PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS                   \r\n     CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/              \r\n              NLOAD /S,N,NOGO $                                                      \r\n     COND     ERRORC1,NOGO $                                                         \r\n     JUMP     LBLPDONE $                                                             \r\n     LABEL    LBLFRL2 $                                                              \r\n     $ LOADS ARE TIME-DEPENDENT                                                      \r\n     PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                          \r\n     $ BRANCH DEPENDING ON VALUE OF CYCIO                                            \r\n     COND     LBLTRL2,NOTCYCIO $                                                     \r\n     $ CYCIO=-1                                                                      \r\n     EQUIV    PD,PDTRZ1/NORO1 $                                                      \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     COND     LBLRO1A,NORO1 $                                                        \r\n     MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                            \r\n     LABEL    LBLRO1A $                                                              \r\n     CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/           \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ1,PXFZ1/NORO2 $                                                   \r\n     COND     LBLRO2A,NORO2 $                                                        \r\n     MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                          \r\n     LABEL    LBLRO2A $                                                              \r\n     EQUIV    PXFZ1,PXF1 $                                                           \r\n     JUMP     LBLTRL3 $                                                              \r\n     LABEL    LBLTRL2 $                                                              \r\n     $ CYCIO = +1                                                                    \r\n     MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                            \r\n     CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/                  \r\n              V,Y,NSEGS/S,N,NOGO $                                                   \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXTRZ2,PXTR2/NORO2 $                                                   \r\n     COND     LBLRO2B,NORO2 $                                                        \r\n     MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                          \r\n     LABEL    LBLRO2B $                                                              \r\n     CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/          \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    PXFZ2,PXF1 $                                                           \r\n     LABEL    LBLTRL3 $                                                              \r\n     $ TIME-DEPENDENT LOADS ARE REAL. MAKE LOADS COMPLEX TO CORRESPOND               \r\n     $ TO FREQUENCY DEPENDENT LOADS. ALSO SDR2 EXPECTS LOADS TO BE COMPLEX           \r\n     $ IN FREQRESP TYPE PROBLEMS.                                                    \r\n     COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.                      \r\n     ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                             \r\n     $ DEFINE NLOAD FOR CYCT2.                                                       \r\n     PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                               \r\n     LABEL    LBLPDONE $                                                             \r\n     $                                                                               \r\n     $ INITIALIZE UXVF IF KMIN IS NOT ZERO.                                          \r\n     $                                                                               \r\n     PARAM    //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $                                      \r\n     COND     NOKMINL,KMINL $                                                        \r\n     PARAM    //*ADD*/KMINV /0 /0 $                                                  \r\n     LABEL    KMINLOOP $                                                             \r\n     CYCT2    CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/         \r\n              S,N,NOGO $                                                             \r\n     COND     ERRORC1,NOGO $                                                         \r\n     ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                            \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/        \r\n              S,N,NOGO $                                                             \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     COND     ERRORC1,NOGO $                                                         \r\n     PARAM    //*ADD*/KMINV /KMINV /1 $                                              \r\n     REPT     KMINLOOP,KMINL $                                                       \r\n     LABEL    NOKMINL $                                                              \r\n     COND     NOKPRT,NOKPRT $                                                        \r\n     PRTPARM  //0/*KINDEX* $                                                         \r\n     LABEL    NOKPRT $                                                               \r\n     CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/           \r\n              CYCSEQ/NLOAD/S,N,NOGO $                                                \r\n     COND     ERRORC1,NOGO $                                                         \r\n     CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/            \r\n              CYCSEQ/NLOAD/S,N,NOGO $                                                \r\n     COND     ERRORC1,NOGO $                                                         \r\n     CYCT2    CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/               \r\n              CYCSEQ=-1/1/S,N,NOGO $                                                 \r\n     COND     ERRORC1,NOGO $                                                         \r\n     READ     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $          \r\n     OFP      OEIGS,,,,,//S,N,CARDNO $                                               \r\n     COND     FINIS,NEIGV $                                                          \r\n     OFP      LAMK,,,,,//S,N,CARDNO $                                                \r\n     COND     NOPLOT,JUMPPLOT $                                                      \r\n     CYCT2    CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/           \r\n              CYCSEQ/1/S,N,NOGO $                                                    \r\n     COND     ERRORC1,NOGO $                                                         \r\n     SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                          \r\n     SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/            \r\n              ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $                                 \r\n     PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/          \r\n              PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                          \r\n     PRTMSG   PLOTXX// $                                                             \r\n     LABEL    NOPLOT $                                                               \r\n     GKAM     USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM,               \r\n              KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/             \r\n              NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $                              \r\n     PARAML   PHIKH//*TRAILER*/1/S,N,NMODES $                                        \r\n     SMPYAD   PHIKH,MKKF,PHIKH,,,/MHH/3////1 $                                       \r\n     SMPYAD   PHIKH,KKKF,PHIKH,,,/KHH/3////1 $                                       \r\n     SMPYAD   PHIKH,BKKF,PHIKH,,,/BHH/3////1 $                                       \r\n     MPYAD    PHIKH,PKF,/PHF/1 $                                                     \r\n     EQUIV    MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $                                \r\n     COND     KLABEL1,KFLAG $                                                        \r\n     $ KINDEX IS EITHER 0 OR NSEGS/2 (NSEGS EVEN ONLY)                               \r\n     APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/                     \r\n              S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF//                       \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n              NMODES/V,Y,KINDEX $                                                    \r\n     AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $                                 \r\n     AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/                     \r\n              NOUE/1 $                                                               \r\n     JUMP     KLABEL2 $                                                              \r\n     LABEL    KLABEL1 $                                                              \r\n     $ KINDEX IS .NE.0 AND .NE. NSEGS/2 (NSEGS EVEN ONLY)                            \r\n     CYCT2    CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/                   \r\n              V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $                                         \r\n     COND     ERRORC1,NOGO $                                                         \r\n     APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/                \r\n              S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/               \r\n              NMODES/V,Y,KINDEX $                                                    \r\n     AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $                                 \r\n     PARTN    PHIAH,PVECT,/PHIAC,,,/1 $                                              \r\n     AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $            \r\n     APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/                \r\n              S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/          \r\n              V,Y,KINDEX $                                                           \r\n     PARTN    PHIAH,PVECT,/PHIAS,,,/1 $                                              \r\n     AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $            \r\n     ADD      QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $                                 \r\n     LABEL    KLABEL2 $                                                              \r\n     $ SOLUTION                                                                      \r\n     FRRD2    KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $                  \r\n     DDR1     UKVF,PHIKH/UKKVF $                                                     \r\n     EQUIV    UKKVF,UKVF $                                                           \r\n     CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/          \r\n              NLOAD/S,N,NOGO $                                                       \r\n     COND     ERRORC1,NOGO $                                                         \r\n     EQUIV    UXVF,UDVF / CYCIO $                                                    \r\n     COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $           \r\n     LABEL    LCYC3 $                                                                \r\n     COND     LBLTRL4,NOTIME $                                                       \r\n     EQUIV    PXF,PDF2 / CYCIO $                                                     \r\n     COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.             \r\n     CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $            \r\n     LABEL    LCYC4 $                                                                \r\n     $ IF LOADS WERE TIME-DEPENDENT THEN RECOVER PPF AND PSF FROM PXF.               \r\n     SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $                    \r\n     SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $                       \r\n     EQUIV    PPFZ,PPF // PSFZ,PSF $                                                 \r\n     LABEL    LBLTRL4 $                                                              \r\n     VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/                 \r\n              *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $                           \r\n     $ ALTER    138,138 $  USE FOL INSTEAD OF PPF TO GET OUTPUT FREQUENCY LIST.      \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     DELETE SDR2 $                                                                   \r\n     SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB,         \r\n              PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/               \r\n              S,N,NOSORT2 $                                                          \r\n     CURV     OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $                                 \r\n     $ ALTER    140,141 $                                                            \r\n     DELETE SDR3(2),SDR3(2),1 $                                                      \r\n     SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2,              \r\n              OESC2,OEFC2,OESC2M $                                                   \r\n     OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $                    \r\n     $ ALTER    152,152 $                                                            \r\n     DELETE PLOT(2),-4 $                                                             \r\n     OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $                    \r\n     $ ALTER    160 $  ADD LABEL FOR ERROR3.                                         \r\n     INSERT PLOT(2),4 $                                                              \r\n     LABEL    ERROR3 $                                                               \r\n     $ ALTER    163,166 $  REMOVE ERROR1 AND ERROR2.                                 \r\n     DELETE PLOT(2),7,PLOT(2),10 $                                                   \r\n     $ ALTER    168 $  FORCED VIBRATION ERRORS                                       \r\n     INSERT END,-3 $                                                                 \r\n     LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.                    \r\n     PRTPARM  //-5 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                                   \r\n     PRTPARM  //0 /C,Y,COUPMASS $                                                    \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //-6 /*CYCSTATICS* $                                                   \r\n     LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                               \r\n     PRTPARM  //0 /*NOUE* $                                                          \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.               \r\n     PRTPARM  //0 /*NOFRL* $                                                         \r\n     PRTPARM  //0 /*NOTRL* $                                                         \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.          \r\n     PRTPARM  //0 /*NOFREQ* $                                                        \r\n     PRTPARM  //0 /*NOTIME* $                                                        \r\n     JUMP     FINIS $                                                                \r\n     LABEL    ERRORC7 $  NO EIGENVALUE EXTRACTION DATA                               \r\n     PRTPARM  //-2/*CYCMODES* $                                                      \r\n     ENDALTER $                                                                      \r\n0*** $   END READFILE                                                                \r\n     $                                                                               \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS            \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T08-03-1A                                   \r\n                  3      LABEL    = K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                            \r\n                  4      $                                                                               \r\n                  5        SPC       = 1                                                                 \r\n                  6        MPC       = 1                                                                 \r\n                  7        METHOD    = 1                                                                 \r\n                  8        FREQUENCY = 1                                                                 \r\n                  9        DLOAD     = 1000                                                              \r\n                 10      $                                                                               \r\n                 11        DISP(SORT1,PHASE)   = ALL                                                     \r\n                 12        STRESS(SORT1,PHASE) = ALL                                                     \r\n                 13      $                                                                               \r\n                 14      $   NOTE ---                                                                    \r\n                 15      $   THE FOLLOWING DATA IS FOR A RIGID HUB AND UNIFORM FLOW                      \r\n                 16      $                                                                               \r\n                 17      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =  1223, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO*   0               0.91639E+04     0.28149E+01     0.91790E-07     *AERO   \r\n                    2-        *AERO                                                                           \r\n                    3-        CORD2R  77      0       .0      .0      .0      .0      .0      1.      +C2R    \r\n                    4-        +C2R    10.     -0.618  .0                                                      \r\n                    5-        CTRIA2  1       1       10      9       8                                       \r\n                    6-        CTRIA2  2       2       11      10      8                                       \r\n                    7-        CTRIA2  3       3       8       7       11                                      \r\n                    8-        CTRIA2  4       4       12      11      7                                       \r\n                    9-        CTRIA2  5       5       7       1       12                                      \r\n                   10-        CTRIA2  6       6       13      12      1                                       \r\n                   11-        CTRIA2  7       7       1       2       13                                      \r\n                   12-        CTRIA2  8       8       14      13      2                                       \r\n                   13-        CTRIA2  9       9       2       3       14                                      \r\n                   14-        CTRIA2  10      10      15      14      3                                       \r\n                   15-        CTRIA2  11      11      3       4       15                                      \r\n                   16-        CTRIA2  12      12      16      15      4                                       \r\n                   17-        CTRIA2  13      13      4       5       16                                      \r\n                   18-        CTRIA2  14      14      17      16      5                                       \r\n                   19-        CTRIA2  15      15      5       6       17                                      \r\n                   20-        CTRIA2  16      16      20      19      18                                      \r\n                   21-        CTRIA2  17      17      21      20      18                                      \r\n                   22-        CTRIA2  18      18      18      9       21                                      \r\n                   23-        CTRIA2  19      19      22      21      9                                       \r\n                   24-        CTRIA2  20      20      9       10      22                                      \r\n                   25-        CTRIA2  21      21      10      11      22                                      \r\n                   26-        CTRIA2  22      22      23      22      11                                      \r\n                   27-        CTRIA2  23      23      11      12      23                                      \r\n                   28-        CTRIA2  24      24      24      23      12                                      \r\n                   29-        CTRIA2  25      25      12      13      24                                      \r\n                   30-        CTRIA2  26      26      25      24      13                                      \r\n                   31-        CTRIA2  27      27      13      14      25                                      \r\n                   32-        CTRIA2  28      28      14      15      25                                      \r\n                   33-        CTRIA2  29      29      26      25      15                                      \r\n                   34-        CTRIA2  30      30      15      16      26                                      \r\n                   35-        CTRIA2  31      31      27      26      16                                      \r\n                   36-        CTRIA2  32      32      16      17      27                                      \r\n                   37-        CTRIA2  33      33      29      28      19                                      \r\n                   38-        CTRIA2  34      34      30      29      19                                      \r\n                   39-        CTRIA2  35      35      19      20      30                                      \r\n                   40-        CTRIA2  36      36      31      30      20                                      \r\n                   41-        CTRIA2  37      37      20      21      31                                      \r\n                   42-        CTRIA2  38      38      32      31      21                                      \r\n                   43-        CTRIA2  39      39      21      22      32                                      \r\n                   44-        CTRIA2  40      40      33      32      22                                      \r\n                   45-        CTRIA2  41      41      22      23      33                                      \r\n                   46-        CTRIA2  42      42      23      24      33                                      \r\n                   47-        CTRIA2  43      43      34      33      24                                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CTRIA2  44      44      24      25      34                                      \r\n                   49-        CTRIA2  45      45      35      34      25                                      \r\n                   50-        CTRIA2  46      46      25      26      35                                      \r\n                   51-        CTRIA2  47      47      36      35      26                                      \r\n                   52-        CTRIA2  48      48      26      27      36                                      \r\n                   53-        CTRIA2  49      49      38      37      28                                      \r\n                   54-        CTRIA2  50      50      28      29      39                                      \r\n                   55-        CTRIA2  51      51      39      38      28                                      \r\n                   56-        CTRIA2  52      52      40      39      29                                      \r\n                   57-        CTRIA2  53      53      29      30      40                                      \r\n                   58-        CTRIA2  54      54      30      31      40                                      \r\n                   59-        CTRIA2  55      55      41      40      31                                      \r\n                   60-        CTRIA2  56      56      31      32      41                                      \r\n                   61-        CTRIA2  57      57      42      41      32                                      \r\n                   62-        CTRIA2  58      58      32      33      42                                      \r\n                   63-        CTRIA2  59      59      43      42      33                                      \r\n                   64-        CTRIA2  60      60      33      34      43                                      \r\n                   65-        CTRIA2  61      61      44      43      34                                      \r\n                   66-        CTRIA2  62      62      34      35      44                                      \r\n                   67-        CTRIA2  63      63      45      44      35                                      \r\n                   68-        CTRIA2  64      64      35      36      45                                      \r\n                   69-        CTRIA2  65      65      47      46      37                                      \r\n                   70-        CTRIA2  66      66      37      38      47                                      \r\n                   71-        CTRIA2  67      67      48      47      38                                      \r\n                   72-        CTRIA2  68      68      38      39      48                                      \r\n                   73-        CTRIA2  69      69      49      48      39                                      \r\n                   74-        CTRIA2  70      70      39      40      49                                      \r\n                   75-        CTRIA2  71      71      50      49      40                                      \r\n                   76-        CTRIA2  72      72      40      41      50                                      \r\n                   77-        CTRIA2  73      73      51      50      41                                      \r\n                   78-        CTRIA2  74      74      41      42      51                                      \r\n                   79-        CTRIA2  75      75      52      51      42                                      \r\n                   80-        CTRIA2  76      76      42      43      52                                      \r\n                   81-        CTRIA2  77      77      53      52      43                                      \r\n                   82-        CTRIA2  78      78      43      44      53                                      \r\n                   83-        CTRIA2  79      79      54      53      44                                      \r\n                   84-        CTRIA2  80      80      44      45      54                                      \r\n                   85-        CTRIA2  81      81      56      55      46                                      \r\n                   86-        CTRIA2  82      82      46      47      56                                      \r\n                   87-        CTRIA2  83      83      57      56      47                                      \r\n                   88-        CTRIA2  84      84      47      48      57                                      \r\n                   89-        CTRIA2  85      85      58      57      48                                      \r\n                   90-        CTRIA2  86      86      48      49      58                                      \r\n                   91-        CTRIA2  87      87      59      58      49                                      \r\n                   92-        CTRIA2  88      88      49      50      59                                      \r\n                   93-        CTRIA2  89      89      60      59      50                                      \r\n                   94-        CTRIA2  90      90      50      51      60                                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CTRIA2  91      91      61      60      51                                      \r\n                   96-        CTRIA2  92      92      51      52      61                                      \r\n                   97-        CTRIA2  93      93      62      61      52                                      \r\n                   98-        CTRIA2  94      94      52      53      62                                      \r\n                   99-        CTRIA2  95      95      63      62      53                                      \r\n                  100-        CTRIA2  96      96      53      54      63                                      \r\n                  101-        CTRIA2  97      97      65      64      55                                      \r\n                  102-        CTRIA2  98      98      55      56      65                                      \r\n                  103-        CTRIA2  99      99      66      65      56                                      \r\n                  104-        CTRIA2  100     100     56      57      66                                      \r\n                  105-        CTRIA2  101     101     67      66      57                                      \r\n                  106-        CTRIA2  102     102     57      58      67                                      \r\n                  107-        CTRIA2  103     103     68      67      58                                      \r\n                  108-        CTRIA2  104     104     58      59      68                                      \r\n                  109-        CTRIA2  105     105     69      68      59                                      \r\n                  110-        CTRIA2  106     106     59      60      69                                      \r\n                  111-        CTRIA2  107     107     70      69      60                                      \r\n                  112-        CTRIA2  108     108     60      61      70                                      \r\n                  113-        CTRIA2  109     109     71      70      61                                      \r\n                  114-        CTRIA2  110     110     61      62      71                                      \r\n                  115-        CTRIA2  111     111     72      71      62                                      \r\n                  116-        CTRIA2  112     112     62      63      72                                      \r\n                  117-        CTRIA2  113     113     74      73      64                                      \r\n                  118-        CTRIA2  114     114     64      65      74                                      \r\n                  119-        CTRIA2  115     115     75      74      65                                      \r\n                  120-        CTRIA2  116     116     65      66      75                                      \r\n                  121-        CTRIA2  117     117     76      75      66                                      \r\n                  122-        CTRIA2  118     118     66      67      76                                      \r\n                  123-        CTRIA2  119     119     77      76      67                                      \r\n                  124-        CTRIA2  120     120     67      68      77                                      \r\n                  125-        CTRIA2  121     121     78      77      68                                      \r\n                  126-        CTRIA2  122     122     68      69      78                                      \r\n                  127-        CTRIA2  123     123     79      78      69                                      \r\n                  128-        CTRIA2  124     124     69      70      79                                      \r\n                  129-        CTRIA2  125     125     80      79      70                                      \r\n                  130-        CTRIA2  126     126     70      71      80                                      \r\n                  131-        CTRIA2  127     127     81      80      71                                      \r\n                  132-        CTRIA2  128     128     71      72      81                                      \r\n                  133-        CTRIA2  129     129     82      81      72                                      \r\n                  134-        CTRIA2  130     130     87      86      73                                      \r\n                  135-        CTRIA2  131     131     73      74      87                                      \r\n                  136-        CTRIA2  132     132     88      87      74                                      \r\n                  137-        CTRIA2  133     133     74      75      88                                      \r\n                  138-        CTRIA2  134     134     89      88      75                                      \r\n                  139-        CTRIA2  135     135     75      76      89                                      \r\n                  140-        CTRIA2  136     136     90      89      76                                      \r\n                  141-        CTRIA2  137     137     76      77      90                                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        CTRIA2  138     138     91      90      77                                      \r\n                  143-        CTRIA2  139     139     77      78      91                                      \r\n                  144-        CTRIA2  140     140     92      91      78                                      \r\n                  145-        CTRIA2  141     141     78      79      92                                      \r\n                  146-        CTRIA2  142     142     79      80      83                                      \r\n                  147-        CTRIA2  143     143     79      83      92                                      \r\n                  148-        CTRIA2  144     144     93      92      83                                      \r\n                  149-        CTRIA2  145     145     80      81      84                                      \r\n                  150-        CTRIA2  146     146     84      83      80                                      \r\n                  151-        CTRIA2  147     147     83      84      94                                      \r\n                  152-        CTRIA2  148     148     94      93      83                                      \r\n                  153-        CTRIA2  149     149     81      82      85                                      \r\n                  154-        CTRIA2  150     150     85      84      81                                      \r\n                  155-        CTRIA2  151     151     84      85      95                                      \r\n                  156-        CTRIA2  152     152     95      94      84                                      \r\n                  157-        CTRIA2  153     153     100     99      86                                      \r\n                  158-        CTRIA2  154     154     86      87      100                                     \r\n                  159-        CTRIA2  155     155     101     100     87                                      \r\n                  160-        CTRIA2  156     156     87      88      101                                     \r\n                  161-        CTRIA2  157     157     102     101     88                                      \r\n                  162-        CTRIA2  158     158     88      89      102                                     \r\n                  163-        CTRIA2  159     159     103     102     89                                      \r\n                  164-        CTRIA2  160     160     89      90      103                                     \r\n                  165-        CTRIA2  161     161     104     103     90                                      \r\n                  166-        CTRIA2  162     162     90      91      104                                     \r\n                  167-        CTRIA2  163     163     105     104     91                                      \r\n                  168-        CTRIA2  164     164     91      92      105                                     \r\n                  169-        CTRIA2  165     165     92      93      96                                      \r\n                  170-        CTRIA2  166     166     92      96      105                                     \r\n                  171-        CTRIA2  167     167     106     105     96                                      \r\n                  172-        CTRIA2  168     168     93      94      97                                      \r\n                  173-        CTRIA2  169     169     97      96      93                                      \r\n                  174-        CTRIA2  170     170     96      97      107                                     \r\n                  175-        CTRIA2  171     171     107     106     96                                      \r\n                  176-        CTRIA2  172     172     94      95      98                                      \r\n                  177-        CTRIA2  173     173     98      97      94                                      \r\n                  178-        CTRIA2  174     174     97      98      108                                     \r\n                  179-        CTRIA2  175     175     108     107     97                                      \r\n                  180-        CTRIA2  176     176     113     112     99                                      \r\n                  181-        CTRIA2  177     177     99      100     113                                     \r\n                  182-        CTRIA2  178     178     114     113     100                                     \r\n                  183-        CTRIA2  179     179     100     101     114                                     \r\n                  184-        CTRIA2  180     180     115     114     101                                     \r\n                  185-        CTRIA2  181     181     101     102     115                                     \r\n                  186-        CTRIA2  182     182     116     115     102                                     \r\n                  187-        CTRIA2  183     183     102     103     116                                     \r\n                  188-        CTRIA2  184     184     117     116     103                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        CTRIA2  185     185     103     104     117                                     \r\n                  190-        CTRIA2  186     186     118     117     104                                     \r\n                  191-        CTRIA2  187     187     104     105     118                                     \r\n                  192-        CTRIA2  188     188     105     106     109                                     \r\n                  193-        CTRIA2  189     189     105     109     118                                     \r\n                  194-        CTRIA2  190     190     119     118     109                                     \r\n                  195-        CTRIA2  191     191     106     107     110                                     \r\n                  196-        CTRIA2  192     192     110     109     106                                     \r\n                  197-        CTRIA2  193     193     109     110     120                                     \r\n                  198-        CTRIA2  194     194     120     119     109                                     \r\n                  199-        CTRIA2  195     195     107     108     111                                     \r\n                  200-        CTRIA2  196     196     111     110     107                                     \r\n                  201-        CTRIA2  197     197     110     111     121                                     \r\n                  202-        CTRIA2  198     198     121     120     110                                     \r\n                  203-        CTRIA2  199     199     112     113     125                                     \r\n                  204-        CTRIA2  200     200     126     125     113                                     \r\n                  205-        CTRIA2  201     201     113     114     126                                     \r\n                  206-        CTRIA2  202     202     127     126     114                                     \r\n                  207-        CTRIA2  203     203     114     115     127                                     \r\n                  208-        CTRIA2  204     204     128     127     115                                     \r\n                  209-        CTRIA2  205     205     115     116     128                                     \r\n                  210-        CTRIA2  206     206     129     128     116                                     \r\n                  211-        CTRIA2  207     207     116     117     129                                     \r\n                  212-        CTRIA2  208     208     130     129     117                                     \r\n                  213-        CTRIA2  209     209     117     118     130                                     \r\n                  214-        CTRIA2  210     210     131     130     118                                     \r\n                  215-        CTRIA2  211     211     118     119     122                                     \r\n                  216-        CTRIA2  212     212     118     122     131                                     \r\n                  217-        CTRIA2  213     213     132     131     122                                     \r\n                  218-        CTRIA2  214     214     119     120     122                                     \r\n                  219-        CTRIA2  215     215     123     122     120                                     \r\n                  220-        CTRIA2  216     216     122     123     132                                     \r\n                  221-        CTRIA2  217     217     133     132     123                                     \r\n                  222-        CTRIA2  218     218     120     121     123                                     \r\n                  223-        CTRIA2  219     219     124     123     121                                     \r\n                  224-        CTRIA2  220     220     123     124     133                                     \r\n                  225-        CTRIA2  221     221     134     133     124                                     \r\n                  226-        CTRIA2  222     222     125     126     138                                     \r\n                  227-        CTRIA2  223     223     139     138     126                                     \r\n                  228-        CTRIA2  224     224     126     127     139                                     \r\n                  229-        CTRIA2  225     225     140     139     127                                     \r\n                  230-        CTRIA2  226     226     127     128     140                                     \r\n                  231-        CTRIA2  227     227     141     140     128                                     \r\n                  232-        CTRIA2  228     228     128     129     141                                     \r\n                  233-        CTRIA2  229     229     142     141     129                                     \r\n                  234-        CTRIA2  230     230     129     130     142                                     \r\n                  235-        CTRIA2  231     231     143     142     130                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        CTRIA2  232     232     130     131     143                                     \r\n                  237-        CTRIA2  233     233     144     143     131                                     \r\n                  238-        CTRIA2  234     234     131     132     135                                     \r\n                  239-        CTRIA2  235     235     131     135     144                                     \r\n                  240-        CTRIA2  236     236     145     144     135                                     \r\n                  241-        CTRIA2  237     237     132     133     135                                     \r\n                  242-        CTRIA2  238     238     136     135     133                                     \r\n                  243-        CTRIA2  239     239     135     136     145                                     \r\n                  244-        CTRIA2  240     240     146     145     136                                     \r\n                  245-        CTRIA2  241     241     133     134     136                                     \r\n                  246-        CTRIA2  242     242     137     136     134                                     \r\n                  247-        CTRIA2  243     243     136     137     146                                     \r\n                  248-        CTRIA2  244     244     147     146     137                                     \r\n                  249-        CTRIA2  245     245     138     139     148                                     \r\n                  250-        CTRIA2  246     246     149     148     139                                     \r\n                  251-        CTRIA2  247     247     139     140     149                                     \r\n                  252-        CTRIA2  248     248     150     149     140                                     \r\n                  253-        CTRIA2  249     249     140     141     150                                     \r\n                  254-        CTRIA2  250     250     151     150     141                                     \r\n                  255-        CTRIA2  251     251     141     142     151                                     \r\n                  256-        CTRIA2  252     252     152     151     142                                     \r\n                  257-        CTRIA2  253     253     142     143     152                                     \r\n                  258-        CTRIA2  254     254     153     152     143                                     \r\n                  259-        CTRIA2  255     255     143     144     153                                     \r\n                  260-        CTRIA2  256     256     154     153     144                                     \r\n                  261-        CTRIA2  257     257     144     145     154                                     \r\n                  262-        CTRIA2  258     258     155     154     145                                     \r\n                  263-        CTRIA2  259     259     145     146     155                                     \r\n                  264-        CTRIA2  260     260     156     155     146                                     \r\n                  265-        CTRIA2  261     261     146     147     156                                     \r\n                  266-        CTRIA2  262     262     148     149     157                                     \r\n                  267-        CTRIA2  263     263     158     157     149                                     \r\n                  268-        CTRIA2  264     264     149     150     158                                     \r\n                  269-        CTRIA2  265     265     159     158     150                                     \r\n                  270-        CTRIA2  266     266     160     159     150                                     \r\n                  271-        CTRIA2  267     267     150     151     160                                     \r\n                  272-        CTRIA2  268     268     161     160     151                                     \r\n                  273-        CTRIA2  269     269     151     152     162                                     \r\n                  274-        CTRIA2  270     270     162     161     151                                     \r\n                  275-        CTRIA2  271     271     163     162     152                                     \r\n                  276-        CTRIA2  272     272     164     163     152                                     \r\n                  277-        CTRIA2  273     273     152     153     164                                     \r\n                  278-        CTRIA2  274     274     165     164     153                                     \r\n                  279-        CTRIA2  275     275     166     165     153                                     \r\n                  280-        CTRIA2  276     276     153     154     166                                     \r\n                  281-        CTRIA2  277     277     167     166     154                                     \r\n                  282-        CTRIA2  278     278     154     155     167                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        CTRIA2  279     279     155     156     167                                     \r\n                  284-        CTRIA2  280     280     157     158     175                                     \r\n                  285-        CTRIA2  281     281     206     175     158                                     \r\n                  286-        CTRIA2  282     282     158     159     206                                     \r\n                  287-        CTRIA2  283     283     176     206     159                                     \r\n                  288-        CTRIA2  284     284     159     160     176                                     \r\n                  289-        CTRIA2  285     285     176     177     160                                     \r\n                  290-        CTRIA2  286     286     160     161     168                                     \r\n                  291-        CTRIA2  287     287     168     177     160                                     \r\n                  292-        CTRIA2  288     288     168     178     177                                     \r\n                  293-        CTRIA2  289     289     169     168     161                                     \r\n                  294-        CTRIA2  290     290     161     162     169                                     \r\n                  295-        CTRIA2  291     291     170     169     162                                     \r\n                  296-        CTRIA2  292     292     162     163     170                                     \r\n                  297-        CTRIA2  293     293     171     170     163                                     \r\n                  298-        CTRIA2  294     294     172     171     163                                     \r\n                  299-        CTRIA2  295     295     163     164     172                                     \r\n                  300-        CTRIA2  296     296     173     172     164                                     \r\n                  301-        CTRIA2  297     297     164     165     173                                     \r\n                  302-        CTRIA2  298     298     174     173     165                                     \r\n                  303-        CTRIA2  299     299     168     169     179                                     \r\n                  304-        CTRIA2  300     300     179     178     168                                     \r\n                  305-        CTRIA2  301     301     169     170     180                                     \r\n                  306-        CTRIA2  302     302     180     179     169                                     \r\n                  307-        CTRIA2  303     303     170     171     181                                     \r\n                  308-        CTRIA2  304     304     181     180     170                                     \r\n                  309-        CTRIA2  305     305     171     172     182                                     \r\n                  310-        CTRIA2  306     306     182     181     171                                     \r\n                  311-        CTRIA2  307     307     172     173     183                                     \r\n                  312-        CTRIA2  308     308     183     182     172                                     \r\n                  313-        CTRIA2  309     309     173     174     184                                     \r\n                  314-        CTRIA2  310     310     184     183     173                                     \r\n                  315-        CTRIA2  311     311     178     179     185                                     \r\n                  316-        CTRIA2  312     312     186     185     179                                     \r\n                  317-        CTRIA2  313     313     179     180     186                                     \r\n                  318-        CTRIA2  314     314     187     186     180                                     \r\n                  319-        CTRIA2  315     315     180     181     187                                     \r\n                  320-        CTRIA2  316     316     188     187     181                                     \r\n                  321-        CTRIA2  317     317     181     182     188                                     \r\n                  322-        CTRIA2  318     318     189     188     182                                     \r\n                  323-        CTRIA2  319     319     182     183     189                                     \r\n                  324-        CTRIA2  320     320     190     189     183                                     \r\n                  325-        CTRIA2  321     321     183     184     190                                     \r\n                  326-        CTRIA2  322     322     191     190     184                                     \r\n                  327-        CTRIA2  323     323     185     186     192                                     \r\n                  328-        CTRIA2  324     324     193     192     186                                     \r\n                  329-        CTRIA2  325     325     186     187     193                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        CTRIA2  326     326     194     193     187                                     \r\n                  331-        CTRIA2  327     327     187     188     194                                     \r\n                  332-        CTRIA2  328     328     195     194     188                                     \r\n                  333-        CTRIA2  329     329     188     189     195                                     \r\n                  334-        CTRIA2  330     330     196     195     189                                     \r\n                  335-        CTRIA2  331     331     189     190     196                                     \r\n                  336-        CTRIA2  332     332     197     196     190                                     \r\n                  337-        CTRIA2  333     333     190     191     197                                     \r\n                  338-        CTRIA2  334     334     198     197     191                                     \r\n                  339-        CTRIA2  335     335     200     199     192                                     \r\n                  340-        CTRIA2  336     336     192     193     200                                     \r\n                  341-        CTRIA2  337     337     201     200     193                                     \r\n                  342-        CTRIA2  338     338     193     194     201                                     \r\n                  343-        CTRIA2  339     339     202     201     194                                     \r\n                  344-        CTRIA2  340     340     194     195     202                                     \r\n                  345-        CTRIA2  341     341     195     196     202                                     \r\n                  346-        CTRIA2  342     342     203     202     196                                     \r\n                  347-        CTRIA2  343     343     196     197     203                                     \r\n                  348-        CTRIA2  344     344     204     203     197                                     \r\n                  349-        CTRIA2  345     345     197     198     204                                     \r\n                  350-        CTRIA2  346     346     205     204     198                                     \r\n                  351-        CYJOIN  1               199                                                     \r\n                  352-        CYJOIN  2               205                                                     \r\n                  353-        DAREA*  11              1               2               0.43567597E+00          \r\n                  354-        DAREA*  11              1               1               0.30489490E+00          \r\n                  355-        DAREA*  11              1               3               0.99471353E-01          \r\n                  356-        DAREA*  11              13              1               0.23555727E+00          \r\n                  357-        DAREA*  11              13              2               0.33659678E+00          \r\n                  358-        DAREA*  11              13              3               0.76850090E-01          \r\n                  359-        DAREA*  11              14              2               0.11233222E+00          \r\n                  360-        DAREA*  11              14              1               0.78612371E-01          \r\n                  361-        DAREA*  11              14              3               0.25647129E-01          \r\n                  362-        DAREA*  11              15              2               0.15182032E+00          \r\n                  363-        DAREA*  11              15              1               0.10624694E+00          \r\n                  364-        DAREA*  11              15              3               0.34662853E-01          \r\n                  365-        DAREA*  11              18              2               0.63937426E+00          \r\n                  366-        DAREA*  11              18              1               0.40443266E+00          \r\n                  367-        DAREA*  11              18              3               0.13156524E+00          \r\n                  368-        DAREA*  11              21              1               0.61634525E+00          \r\n                  369-        DAREA*  11              21              2               0.97439037E+00          \r\n                  370-        DAREA*  11              21              3               0.20050213E+00          \r\n                  371-        DAREA*  11              27              1               0.48804804E-01          \r\n                  372-        DAREA*  11              27              2               0.69739050E-01          \r\n                  373-        DAREA*  11              27              3               0.15922470E-01          \r\n                  374-        DAREA*  11              33              1               0.38572686E+00          \r\n                  375-        DAREA*  11              33              2               0.60980195E+00          \r\n                  376-        DAREA*  11              33              3               0.12548009E+00          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        DAREA*  11              37              1               0.79817915E+00          \r\n                  378-        DAREA*  11              37              3               0.20008119E+00          \r\n                  379-        DAREA*  11              37              2               0.14759277E+01          \r\n                  380-        DAREA*  11              44              3               0.52913708E-01          \r\n                  381-        DAREA*  11              44              1               0.16265719E+00          \r\n                  382-        DAREA*  11              44              2               0.25714743E+00          \r\n                  383-        DAREA*  11              49              1               0.71490322E+00          \r\n                  384-        DAREA*  11              49              2               0.13219407E+01          \r\n                  385-        DAREA*  11              49              3               0.17920624E+00          \r\n                  386-        DAREA*  11              54              2               0.57978552E-01          \r\n                  387-        DAREA*  11              54              1               0.36674013E-01          \r\n                  388-        DAREA*  11              54              3               0.11930355E-01          \r\n                  389-        DAREA*  11              60              2               0.50794615E+00          \r\n                  390-        DAREA*  11              60              3               0.68858701E-01          \r\n                  391-        DAREA*  11              60              1               0.27469639E+00          \r\n                  392-        DAREA*  11              64              2               0.14405499E+01          \r\n                  393-        DAREA*  11              64              1               0.60110915E+00          \r\n                  394-        DAREA*  11              64              3               0.54113474E-01          \r\n                  395-        DAREA*  11              70              1               0.17440697E+00          \r\n                  396-        DAREA*  11              70              3               0.43718948E-01          \r\n                  397-        DAREA*  11              70              2               0.32249913E+00          \r\n                  398-        DAREA*  11              75              1               0.66993644E+00          \r\n                  399-        DAREA*  11              75              2               0.16054936E+01          \r\n                  400-        DAREA*  11              75              3               0.60309493E-01          \r\n                  401-        DAREA*  11              77              2               0.89034558E+00          \r\n                  402-        DAREA*  11              77              3               0.33445348E-01          \r\n                  403-        DAREA*  11              77              1               0.37152123E+00          \r\n                  404-        DAREA*  11              82              1               0.67720352E-01          \r\n                  405-        DAREA*  11              82              3               0.16975598E-01          \r\n                  406-        DAREA*  11              82              2               0.12522295E+00          \r\n                  407-        DAREA*  11              92              1               0.20735313E+00          \r\n                  408-        DAREA*  11              92              3               0.18666491E-01          \r\n                  409-        DAREA*  11              92              2               0.49691896E+00          \r\n                  410-        DAREA*  11              99              1               0.52604476E+00          \r\n                  411-        DAREA*  11              99              3               0.14154789E+00          \r\n                  412-        DAREA*  11              99              2               0.15372548E+01          \r\n                  413-        DAREA*  11              101             2               0.17824051E+01          \r\n                  414-        DAREA*  11              101             3               0.16412092E+00          \r\n                  415-        DAREA*  11              101             1               0.60993456E+00          \r\n                  416-        DAREA*  11              103             1               0.34096106E+00          \r\n                  417-        DAREA*  11              103             3               0.91745648E-01          \r\n                  418-        DAREA*  11              103             2               0.99638677E+00          \r\n                  419-        DAREA*  11              105             2               0.48455145E+00          \r\n                  420-        DAREA*  11              105             1               0.16581230E+00          \r\n                  421-        DAREA*  11              105             3               0.44616697E-01          \r\n                  422-        DAREA*  11              108             2               0.13275146E+00          \r\n                  423-        DAREA*  11              108             3               0.49867364E-02          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        DAREA*  11              108             1               0.55394205E-01          \r\n                  425-        DAREA*  11              111             2               0.10423067E+00          \r\n                  426-        DAREA*  11              111             3               0.95973878E-02          \r\n                  427-        DAREA*  11              111             1               0.35667474E-01          \r\n                  428-        DAREA*  11              121             1               0.68323975E-01          \r\n                  429-        DAREA*  11              121             3               0.24805310E-01          \r\n                  430-        DAREA*  11              121             2               0.23204020E+00          \r\n                  431-        DAREA*  11              129             2               0.11524406E+01          \r\n                  432-        DAREA*  11              129             1               0.33933484E+00          \r\n                  433-        DAREA*  11              129             3               0.12319696E+00          \r\n                  434-        DAREA*  11              131             2               0.73891717E+00          \r\n                  435-        DAREA*  11              131             3               0.78990923E-01          \r\n                  436-        DAREA*  11              131             1               0.21757333E+00          \r\n                  437-        DAREA*  11              138             1               0.57418266E+00          \r\n                  438-        DAREA*  11              138             2               0.19500249E+01          \r\n                  439-        DAREA*  11              138             3               0.20845945E+00          \r\n                  440-        DAREA*  11              140             2               0.20487010E+01          \r\n                  441-        DAREA*  11              140             1               0.60323770E+00          \r\n                  442-        DAREA*  11              140             3               0.21900801E+00          \r\n                  443-        DAREA*  11              156             2               0.14767240E+00          \r\n                  444-        DAREA*  11              156             1               0.21958183E-01          \r\n                  445-        DAREA*  11              156             3               0.15030363E-01          \r\n                  446-        DAREA*  11              163             1               0.91613639E-01          \r\n                  447-        DAREA*  11              163             3               0.62709480E-01          \r\n                  448-        DAREA*  11              163             2               0.61611682E+00          \r\n                  449-        DAREA*  11              166             2               0.46224357E+00          \r\n                  450-        DAREA*  11              166             3               0.47047983E-01          \r\n                  451-        DAREA*  11              166             1               0.68733418E-01          \r\n                  452-        DAREA*  11              175             1               0.16697867E+00          \r\n                  453-        DAREA*  11              175             3               0.11429680E+00          \r\n                  454-        DAREA*  11              175             2               0.11229591E+01          \r\n                  455-        DAREA*  11              177             1               0.15455769E+00          \r\n                  456-        DAREA*  11              177             3               0.10579464E+00          \r\n                  457-        DAREA*  11              177             2               0.10394259E+01          \r\n                  458-        DPHASE* 12              1               2               -149.04                 \r\n                  459-        DPHASE* 12              1               1               30.96                   \r\n                  460-        DPHASE* 12              1               3               30.96                   \r\n                  461-        DPHASE* 12              13              2               -146.06                 \r\n                  462-        DPHASE* 12              13              3               33.94                   \r\n                  463-        DPHASE* 12              13              1               33.94                   \r\n                  464-        DPHASE* 12              14              2               -141.46                 \r\n                  465-        DPHASE* 12              14              1               38.54                   \r\n                  466-        DPHASE* 12              14              3               38.54                   \r\n                  467-        DPHASE* 12              15              1               43.11                   \r\n                  468-        DPHASE* 12              15              2               -136.89                 \r\n                  469-        DPHASE* 12              15              3               43.11                   \r\n                  470-        DPHASE* 12              18              2               -145.86                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        DPHASE* 12              18              1               34.14                   \r\n                  472-        DPHASE* 12              18              3               34.14                   \r\n                  473-        DPHASE* 12              21              1               36.35                   \r\n                  474-        DPHASE* 12              21              3               36.35                   \r\n                  475-        DPHASE* 12              21              2               -143.65                 \r\n                  476-        DPHASE* 12              27              1               49.89                   \r\n                  477-        DPHASE* 12              27              3               49.89                   \r\n                  478-        DPHASE* 12              27              2               -130.11                 \r\n                  479-        DPHASE* 12              33              1               41.14                   \r\n                  480-        DPHASE* 12              33              2               -138.86                 \r\n                  481-        DPHASE* 12              33              3               41.14                   \r\n                  482-        DPHASE* 12              37              2               -154.03                 \r\n                  483-        DPHASE* 12              37              3               25.97                   \r\n                  484-        DPHASE* 12              37              1               25.97                   \r\n                  485-        DPHASE* 12              44              3               47.73                   \r\n                  486-        DPHASE* 12              44              1               47.73                   \r\n                  487-        DPHASE* 12              44              2               -132.27                 \r\n                  488-        DPHASE* 12              49              1               31.01                   \r\n                  489-        DPHASE* 12              49              3               31.01                   \r\n                  490-        DPHASE* 12              49              2               -148.99                 \r\n                  491-        DPHASE* 12              54              2               -123.04                 \r\n                  492-        DPHASE* 12              54              1               56.96                   \r\n                  493-        DPHASE* 12              54              3               56.96                   \r\n                  494-        DPHASE* 12              60              2               -139.77                 \r\n                  495-        DPHASE* 12              60              3               40.23                   \r\n                  496-        DPHASE* 12              60              1               40.23                   \r\n                  497-        DPHASE* 12              64              1               8.85                    \r\n                  498-        DPHASE* 12              64              3               8.85                    \r\n                  499-        DPHASE* 12              64              2               -171.15                 \r\n                  500-        DPHASE* 12              70              1               49.76                   \r\n                  501-        DPHASE* 12              70              2               -130.24                 \r\n                  502-        DPHASE* 12              70              3               49.76                   \r\n                  503-        DPHASE* 12              75              1               17.25                   \r\n                  504-        DPHASE* 12              75              2               -162.75                 \r\n                  505-        DPHASE* 12              75              3               17.25                   \r\n                  506-        DPHASE* 12              77              3               35.10                   \r\n                  507-        DPHASE* 12              77              2               -144.90                 \r\n                  508-        DPHASE* 12              77              1               35.10                   \r\n                  509-        DPHASE* 12              82              3               59.47                   \r\n                  510-        DPHASE* 12              82              1               59.47                   \r\n                  511-        DPHASE* 12              82              2               -120.53                 \r\n                  512-        DPHASE* 12              92              2               -126.59                 \r\n                  513-        DPHASE* 12              92              1               53.41                   \r\n                  514-        DPHASE* 12              92              3               53.41                   \r\n                  515-        DPHASE* 12              99              2               172.95                  \r\n                  516-        DPHASE* 12              99              1               -7.05                   \r\n                  517-        DPHASE* 12              99              3               172.95                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        DPHASE* 12              101             3               -171.23                 \r\n                  519-        DPHASE* 12              101             2               -171.23                 \r\n                  520-        DPHASE* 12              101             1               8.77                    \r\n                  521-        DPHASE* 12              103             2               -142.30                 \r\n                  522-        DPHASE* 12              103             1               37.70                   \r\n                  523-        DPHASE* 12              103             3               -142.30                 \r\n                  524-        DPHASE* 12              105             2               -118.25                 \r\n                  525-        DPHASE* 12              105             1               61.75                   \r\n                  526-        DPHASE* 12              105             3               -118.25                 \r\n                  527-        DPHASE* 12              108             2               -111.98                 \r\n                  528-        DPHASE* 12              108             1               68.02                   \r\n                  529-        DPHASE* 12              108             3               68.02                   \r\n                  530-        DPHASE* 12              111             2               -102.15                 \r\n                  531-        DPHASE* 12              111             1               77.85                   \r\n                  532-        DPHASE* 12              111             3               -102.15                 \r\n                  533-        DPHASE* 12              121             1               88.12                   \r\n                  534-        DPHASE* 12              121             2               -91.88                  \r\n                  535-        DPHASE* 12              121             3               -91.88                  \r\n                  536-        DPHASE* 12              129             1               55.33                   \r\n                  537-        DPHASE* 12              129             3               -124.67                 \r\n                  538-        DPHASE* 12              129             2               -124.67                 \r\n                  539-        DPHASE* 12              131             3               -104.84                 \r\n                  540-        DPHASE* 12              131             1               75.16                   \r\n                  541-        DPHASE* 12              131             2               -104.84                 \r\n                  542-        DPHASE* 12              138             2               -163.80                 \r\n                  543-        DPHASE* 12              138             1               16.20                   \r\n                  544-        DPHASE* 12              138             3               -163.80                 \r\n                  545-        DPHASE* 12              140             3               -150.61                 \r\n                  546-        DPHASE* 12              140             1               29.39                   \r\n                  547-        DPHASE* 12              140             2               -150.61                 \r\n                  548-        DPHASE* 12              156             2               -95.35                  \r\n                  549-        DPHASE* 12              156             1               84.65                   \r\n                  550-        DPHASE* 12              156             3               -95.35                  \r\n                  551-        DPHASE* 12              163             1               62.64                   \r\n                  552-        DPHASE* 12              163             3               -117.36                 \r\n                  553-        DPHASE* 12              163             2               -117.36                 \r\n                  554-        DPHASE* 12              166             2               -106.34                 \r\n                  555-        DPHASE* 12              166             3               -106.34                 \r\n                  556-        DPHASE* 12              166             1               73.66                   \r\n                  557-        DPHASE* 12              175             3               -141.70                 \r\n                  558-        DPHASE* 12              175             1               38.30                   \r\n                  559-        DPHASE* 12              175             2               -141.70                 \r\n                  560-        DPHASE* 12              177             1               47.47                   \r\n                  561-        DPHASE* 12              177             3               -132.53                 \r\n                  562-        DPHASE* 12              177             2               -132.53                 \r\n                  563-        EIGR    1       FEER                            4                       +EIG1   \r\n                  564-        +EIG1   MAX                                                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        FREQ    1       133.3                                                           \r\n                  566-        GRDSET          77                                                              \r\n                  567-        GRID    1               1.808   1.839   12.250                                  \r\n                  568-        GRID    2               2.129   2.133   12.250                                  \r\n                  569-        GRID    3               2.376   2.347   12.250                                  \r\n                  570-        GRID    4               2.625   2.558   12.250                                  \r\n                  571-        GRID    5               2.877   2.765   12.250                                  \r\n                  572-        GRID    6               3.134   2.966   12.250                                  \r\n                  573-        GRID    7               1.556   1.589   12.033                                  \r\n                  574-        GRID    8               1.304   1.339   11.817                                  \r\n                  575-        GRID    9               1.052   1.088   11.600                                  \r\n                  576-        GRID    10              1.293   1.308   11.600                                  \r\n                  577-        GRID    11              1.541   1.520   11.600                                  \r\n                  578-        GRID    12              1.791   1.730   11.600                                  \r\n                  579-        GRID    13              2.044   1.937   11.600                                  \r\n                  580-        GRID    14              2.298   2.141   11.600                                  \r\n                  581-        GRID    15              2.555   2.343   11.600                                  \r\n                  582-        GRID    16              2.814   2.542   11.600                                  \r\n                  583-        GRID    17              3.078   2.733   11.600                                  \r\n                  584-        GRID    18              0.737   0.793   11.300                                  \r\n                  585-        GRID    19              0.423   0.498   11.000                                  \r\n                  586-        GRID    20              0.725   0.761   11.000                                  \r\n                  587-        GRID    21              1.034   1.014   11.000                                  \r\n                  588-        GRID    22              1.347   1.264   11.000                                  \r\n                  589-        GRID    23              1.663   1.510   11.000                                  \r\n                  590-        GRID    24              1.981   1.753   11.000                                  \r\n                  591-        GRID    25              2.302   1.993   11.000                                  \r\n                  592-        GRID    26              2.626   2.228   11.000                                  \r\n                  593-        GRID    27              2.956   2.454   11.000                                  \r\n                  594-        GRID    28              -0.168  -0.013  10.400                                  \r\n                  595-        GRID    29              0.186   0.281   10.400                                  \r\n                  596-        GRID    30              0.550   0.564   10.400                                  \r\n                  597-        GRID    31              0.917   0.842   10.400                                  \r\n                  598-        GRID    32              1.288   1.115   10.400                                  \r\n                  599-        GRID    33              1.661   1.385   10.400                                  \r\n                  600-        GRID    34              2.038   1.650   10.400                                  \r\n                  601-        GRID    35              2.418   1.910   10.400                                  \r\n                  602-        GRID    36              2.806   2.158   10.400                                  \r\n                  603-        GRID    37              -0.702  -0.430  9.800                                   \r\n                  604-        GRID    38              -0.306  -0.118  9.800                                   \r\n                  605-        GRID    39              0.101   0.182   9.800                                   \r\n                  606-        GRID    40              0.512   0.476   9.800                                   \r\n                  607-        GRID    41              0.926   0.764   9.800                                   \r\n                  608-        GRID    42              1.344   1.048   9.800                                   \r\n                  609-        GRID    43              1.766   1.326   9.800                                   \r\n                  610-        GRID    44              2.191   1.598   9.800                                   \r\n                  611-        GRID    45              2.625   1.856   9.800                                   \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        GRID    46              -1.193  -0.766  9.187                                   \r\n                  613-        GRID    47              -0.760  -0.445  9.187                                   \r\n                  614-        GRID    48              -0.317  -0.138  9.187                                   \r\n                  615-        GRID    49              0.130   0.162   9.187                                   \r\n                  616-        GRID    50              0.582   0.456   9.187                                   \r\n                  617-        GRID    51              1.037   0.745   9.187                                   \r\n                  618-        GRID    52              1.495   1.027   9.187                                   \r\n                  619-        GRID    53              1.959   1.303   9.187                                   \r\n                  620-        GRID    54              2.430   1.563   9.187                                   \r\n                  621-        GRID    55              -1.612  -1.013  8.600                                   \r\n                  622-        GRID    56              -1.149  -0.691  8.600                                   \r\n                  623-        GRID    57              -0.677  -0.383  8.600                                   \r\n                  624-        GRID    58              -0.199  -0.083  8.600                                   \r\n                  625-        GRID    59              0.282   0.210   8.600                                   \r\n                  626-        GRID    60              0.768   0.498   8.600                                   \r\n                  627-        GRID    61              1.257   0.778   8.600                                   \r\n                  628-        GRID    62              1.750   1.051   8.600                                   \r\n                  629-        GRID    63              2.252   1.308   8.600                                   \r\n                  630-        GRID    64              -1.985  -1.192  8.000                                   \r\n                  631-        GRID    65              -1.496  -0.874  8.000                                   \r\n                  632-        GRID    66              -0.998  -0.572  8.000                                   \r\n                  633-        GRID    67              -0.494  -0.277  8.000                                   \r\n                  634-        GRID    68              0.013   0.010   8.000                                   \r\n                  635-        GRID    69              0.525   0.291   8.000                                   \r\n                  636-        GRID    70              1.040   0.564   8.000                                   \r\n                  637-        GRID    71              1.560   0.829   8.000                                   \r\n                  638-        GRID    72              2.086   1.078   8.000                                   \r\n                  639-        GRID    73              -2.301  -1.303  7.400                                   \r\n                  640-        GRID    74              -1.790  -0.995  7.400                                   \r\n                  641-        GRID    75              -1.271  -0.702  7.400                                   \r\n                  642-        GRID    76              -0.747  -0.418  7.400                                   \r\n                  643-        GRID    77              -0.218  -0.141  7.400                                   \r\n                  644-        GRID    78              0.314   0.128   7.400                                   \r\n                  645-        GRID    79              0.850   0.390   7.400                                   \r\n                  646-        GRID    80              1.390   0.642   7.400                                   \r\n                  647-        GRID    81              1.664   0.760   7.400                                   \r\n                  648-        GRID    82              1.937   0.878   7.400                                   \r\n                  649-        GRID    83              1.324   0.567   7.100                                   \r\n                  650-        GRID    84              1.602   0.681   7.100                                   \r\n                  651-        GRID    85              1.880   0.795   7.100                                   \r\n                  652-        GRID    86              -2.556  -1.354  6.800                                   \r\n                  653-        GRID    87              -2.028  -1.058  6.800                                   \r\n                  654-        GRID    88              -1.490  -0.779  6.800                                   \r\n                  655-        GRID    89              -0.948  -0.508  6.800                                   \r\n                  656-        GRID    90              -0.402  -0.245  6.800                                   \r\n                  657-        GRID    91              0.147   0.010   6.800                                   \r\n                  658-        GRID    92              0.701   0.256   6.800                                   \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  659-        GRID    93              1.258   0.493   6.800                                   \r\n                  660-        GRID    94              1.541   0.603   6.800                                   \r\n                  661-        GRID    95              1.823   0.712   6.800                                   \r\n                  662-        GRID    96              1.227   0.439   6.500                                   \r\n                  663-        GRID    97              1.512   0.544   6.500                                   \r\n                  664-        GRID    98              1.798   0.649   6.500                                   \r\n                  665-        GRID    99              -2.716  -1.339  6.200                                   \r\n                  666-        GRID    100             -2.173  -1.060  6.200                                   \r\n                  667-        GRID    101             -1.621  -0.796  6.200                                   \r\n                  668-        GRID    102             -1.066  -0.542  6.200                                   \r\n                  669-        GRID    103             -0.507  -0.296  6.200                                   \r\n                  670-        GRID    104             0.057   -0.059  6.200                                   \r\n                  671-        GRID    105             0.624   0.169   6.200                                   \r\n                  672-        GRID    106             1.195   0.386   6.200                                   \r\n                  673-        GRID    107             1.484   0.486   6.200                                   \r\n                  674-        GRID    108             1.772   0.586   6.200                                   \r\n                  675-        GRID    109             1.195   0.352   5.900                                   \r\n                  676-        GRID    110             1.484   0.447   5.900                                   \r\n                  677-        GRID    111             1.773   0.542   5.900                                   \r\n                  678-        GRID    112             -2.748  -1.254  5.600                                   \r\n                  679-        GRID    113             -2.198  -0.996  5.600                                   \r\n                  680-        GRID    114             -1.642  -0.753  5.600                                   \r\n                  681-        GRID    115             -1.083  -0.519  5.600                                   \r\n                  682-        GRID    116             -0.519  -0.294  5.600                                   \r\n                  683-        GRID    117             0.049   -0.079  5.600                                   \r\n                  684-        GRID    118             0.620   0.125   5.600                                   \r\n                  685-        GRID    119             1.195   0.318   5.600                                   \r\n                  686-        GRID    120             1.485   0.408   5.600                                   \r\n                  687-        GRID    121             1.775   0.498   5.600                                   \r\n                  688-        GRID    122             1.216   0.301   5.300                                   \r\n                  689-        GRID    123             1.504   0.386   5.300                                   \r\n                  690-        GRID    124             1.792   0.471   5.300                                   \r\n                  691-        GRID    125             -2.670  -1.111  5.000                                   \r\n                  692-        GRID    126             -2.124  -0.880  5.000                                   \r\n                  693-        GRID    127             -1.572  -0.662  5.000                                   \r\n                  694-        GRID    128             -1.017  -0.453  5.000                                   \r\n                  695-        GRID    129             -0.459  -0.254  5.000                                   \r\n                  696-        GRID    130             0.104   -0.065  5.000                                   \r\n                  697-        GRID    131             0.669   0.114   5.000                                   \r\n                  698-        GRID    132             1.238   0.283   5.000                                   \r\n                  699-        GRID    133             1.523   0.363   5.000                                   \r\n                  700-        GRID    134             1.809   0.444   5.000                                   \r\n                  701-        GRID    135             1.274   0.278   4.700                                   \r\n                  702-        GRID    136             1.556   0.355   4.700                                   \r\n                  703-        GRID    137             1.837   0.432   4.700                                   \r\n                  704-        GRID    138             -2.513  -0.927  4.400                                   \r\n                  705-        GRID    139             -1.976  -0.727  4.400                                   \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  706-        GRID    140             -1.435  -0.538  4.400                                   \r\n                  707-        GRID    141             -0.891  -0.359  4.400                                   \r\n                  708-        GRID    142             -0.344  -0.189  4.400                                   \r\n                  709-        GRID    143             0.206   -0.028  4.400                                   \r\n                  710-        GRID    144             0.758   0.125   4.400                                   \r\n                  711-        GRID    145             1.311   0.274   4.400                                   \r\n                  712-        GRID    146             1.588   0.347   4.400                                   \r\n                  713-        GRID    147             1.865   0.420   4.400                                   \r\n                  714-        GRID    148             -2.273  -0.686  3.715                                   \r\n                  715-        GRID    149             -1.742  -0.524  3.715                                   \r\n                  716-        GRID    150             -1.208  -0.374  3.715                                   \r\n                  717-        GRID    151             -0.672  -0.233  3.715                                   \r\n                  718-        GRID    152             -0.133  -0.099  3.715                                   \r\n                  719-        GRID    153             0.406   0.031   3.715                                   \r\n                  720-        GRID    154             0.946   0.159   3.715                                   \r\n                  721-        GRID    155             1.485   0.291   3.715                                   \r\n                  722-        GRID    156             2.021   0.433   3.715                                   \r\n                  723-        GRID    157             -2.051  -0.483  3.180                                   \r\n                  724-        GRID    158             -1.675  -0.394  3.180                                   \r\n                  725-        GRID    159             -1.296  -0.309  3.180                                   \r\n                  726-        GRID    160             -0.917  -0.229  3.180                                   \r\n                  727-        GRID    161             -0.548  -0.089  3.180                                   \r\n                  728-        GRID    162             -0.274  -0.044  3.180                                   \r\n                  729-        GRID    163             0.000   0.000   3.180                                   \r\n                  730-        GRID    164             0.274   0.044   3.180                                   \r\n                  731-        GRID    165             0.548   0.089   3.180                                   \r\n                  732-        GRID    166             1.037   0.214   3.358                                   \r\n                  733-        GRID    167             1.527   0.328   3.537                                   \r\n                  734-        GRID    168             -0.548  -0.089  2.930                                   \r\n                  735-        GRID    169             -0.365  -0.059  2.930                                   \r\n                  736-        GRID    170             -0.183  -0.030  2.930                                   \r\n                  737-        GRID    171             0.000   0.000   2.930                                   \r\n                  738-        GRID    172             0.183   0.030   2.930                                   \r\n                  739-        GRID    173             0.365   0.059   2.930                                   \r\n                  740-        GRID    174             0.548   0.089   2.930                                   \r\n                  741-        GRID    175             -1.804  -0.270  2.650                                   \r\n                  742-        GRID    176             -1.188  -0.182  2.650                                   \r\n                  743-        GRID    177             -0.750  -0.123  2.740                                   \r\n                  744-        GRID    178             -0.550  -0.072  2.600                                   \r\n                  745-        GRID    179             -0.367  -0.048  2.600                                   \r\n                  746-        GRID    180             -0.184  -0.024  2.600                                   \r\n                  747-        GRID    181             0.000   0.000   2.600                                   \r\n                  748-        GRID    182             0.184   0.024   2.600                                   \r\n                  749-        GRID    183             0.367   0.048   2.600                                   \r\n                  750-        GRID    184             0.550   0.072   2.600                                   \r\n                  751-        GRID    185             -0.550  -0.072  2.350                                   \r\n                  752-        GRID    186             -0.367  -0.048  2.350                                   \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  753-        GRID    187             -0.184  -0.024  2.350                                   \r\n                  754-        GRID    188             0.000   0.000   2.350                                   \r\n                  755-        GRID    189             0.184   0.024   2.350                                   \r\n                  756-        GRID    190             0.367   0.048   2.350                                   \r\n                  757-        GRID    191             0.550   0.072   2.350                                   \r\n                  758-        GRID    192             -0.550  -0.072  2.070                                   \r\n                  759-        GRID    193             -0.367  -0.048  2.070                                   \r\n                  760-        GRID    194             -0.184  -0.024  2.070                                   \r\n                  761-        GRID    195             0.000   0.000   2.070                                   \r\n                  762-        GRID    196             0.184   0.024   2.070                                   \r\n                  763-        GRID    197             0.367   0.048   2.070                                   \r\n                  764-        GRID    198             0.550   0.072   2.070                                   \r\n                  765-        GRID    199             -0.699  -0.091  1.920                                   \r\n                  766-        GRID    200             -0.466  -0.061  1.920                                   \r\n                  767-        GRID    201             -0.233  -0.030  1.920                                   \r\n                  768-        GRID    202             0.000   0.000   1.920                                   \r\n                  769-        GRID    203             0.233   0.030   1.920                                   \r\n                  770-        GRID    204             0.466   0.061   1.920                                   \r\n                  771-        GRID    205             0.699   0.091   1.920                                   \r\n                  772-        GRID    206             -1.496  -0.226  2.650                                   \r\n                  773-        MAT1    1       1.6  E7         .35     .0004141                                \r\n                  774-        MKAERO2 -45.000 0.129                                                           \r\n                  775-        MPC     1       5       4       1.0     4       4       -1.0                    \r\n                  776-        MPC     1       6       4       1.0     4       4       -1.0                    \r\n                  777-        MPC     1       7       4       1.0     1       4       -1.0                    \r\n                  778-        PARAM*  BOV             0.1535890E-03                                   *PARAMB \r\n                  779-        *PARAMB                                                                         \r\n                  780-        PARAM   CYCIO   -1                                                              \r\n                  781-        PARAM   IREF    60                                                              \r\n                  782-        PARAM   KGGIN   -1                                                              \r\n                  783-        PARAM   KMAX    0                                                               \r\n                  784-        PARAM   KMIN    0                                                               \r\n                  785-        PARAM   LMODES  5                                                               \r\n                  786-        PARAM   MAXMACH 0.950                                                           \r\n                  787-        PARAM   MINMACH 1.010                                                           \r\n                  788-        PARAM   NSEGS   8                                                               \r\n                  789-        PARAM*  Q               0.3854121E+01                                   *PARAMQ \r\n                  790-        *PARAMQ                                                                         \r\n                  791-        PARAM   RPS     133.33                                                          \r\n                  792-        PTRIA2  1       1       .01570                                                  \r\n                  793-        PTRIA2  2       1       .02827                                                  \r\n                  794-        PTRIA2  3       1       .01897                                                  \r\n                  795-        PTRIA2  4       1       .03380                                                  \r\n                  796-        PTRIA2  5       1       .02043                                                  \r\n                  797-        PTRIA2  6       1       .03623                                                  \r\n                  798-        PTRIA2  7       1       .02917                                                  \r\n                  799-        PTRIA2  8       1       .04440                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  800-        PTRIA2  9       1       .03830                                                  \r\n                  801-        PTRIA2  10      1       .04253                                                  \r\n                  802-        PTRIA2  11      1       .03677                                                  \r\n                  803-        PTRIA2  12      1       .03397                                                  \r\n                  804-        PTRIA2  13      1       .02740                                                  \r\n                  805-        PTRIA2  14      1       .01673                                                  \r\n                  806-        PTRIA2  15      1       .00823                                                  \r\n                  807-        PTRIA2  16      1       .01970                                                  \r\n                  808-        PTRIA2  17      1       .03550                                                  \r\n                  809-        PTRIA2  18      1       .02390                                                  \r\n                  810-        PTRIA2  19      1       .04250                                                  \r\n                  811-        PTRIA2  20      1       .03487                                                  \r\n                  812-        PTRIA2  21      1       .04743                                                  \r\n                  813-        PTRIA2  22      1       .05847                                                  \r\n                  814-        PTRIA2  23      1       .05413                                                  \r\n                  815-        PTRIA2  24      1       .06033                                                  \r\n                  816-        PTRIA2  25      1       .05580                                                  \r\n                  817-        PTRIA2  26      1       .05663                                                  \r\n                  818-        PTRIA2  27      1       .05230                                                  \r\n                  819-        PTRIA2  28      1       .04877                                                  \r\n                  820-        PTRIA2  29      1       .04293                                                  \r\n                  821-        PTRIA2  30      1       .03390                                                  \r\n                  822-        PTRIA2  31      1       .02023                                                  \r\n                  823-        PTRIA2  32      1       .00963                                                  \r\n                  824-        PTRIA2  33      1       .02363                                                  \r\n                  825-        PTRIA2  34      1       .04273                                                  \r\n                  826-        PTRIA2  35      1       .03977                                                  \r\n                  827-        PTRIA2  36      1       .06260                                                  \r\n                  828-        PTRIA2  37      1       .05863                                                  \r\n                  829-        PTRIA2  38      1       .07160                                                  \r\n                  830-        PTRIA2  39      1       .06707                                                  \r\n                  831-        PTRIA2  40      1       .07400                                                  \r\n                  832-        PTRIA2  41      1       .06923                                                  \r\n                  833-        PTRIA2  42      1       .06910                                                  \r\n                  834-        PTRIA2  43      1       .06850                                                  \r\n                  835-        PTRIA2  44      1       .06057                                                  \r\n                  836-        PTRIA2  45      1       .05280                                                  \r\n                  837-        PTRIA2  46      1       .04220                                                  \r\n                  838-        PTRIA2  47      1       .02500                                                  \r\n                  839-        PTRIA2  48      1       .01207                                                  \r\n                  840-        PTRIA2  49      1       .02780                                                  \r\n                  841-        PTRIA2  50      1       .04730                                                  \r\n                  842-        PTRIA2  51      1       .05020                                                  \r\n                  843-        PTRIA2  52      1       .07393                                                  \r\n                  844-        PTRIA2  53      1       .07003                                                  \r\n                  845-        PTRIA2  54      1       .07890                                                  \r\n                  846-        PTRIA2  55      1       .08777                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  847-        PTRIA2  56      1       .08443                                                  \r\n                  848-        PTRIA2  57      1       .08887                                                  \r\n                  849-        PTRIA2  58      1       .08297                                                  \r\n                  850-        PTRIA2  59      1       .08140                                                  \r\n                  851-        PTRIA2  60      1       .07273                                                  \r\n                  852-        PTRIA2  61      1       .06277                                                  \r\n                  853-        PTRIA2  62      1       .05077                                                  \r\n                  854-        PTRIA2  63      1       .02983                                                  \r\n                  855-        PTRIA2  64      1       .01467                                                  \r\n                  856-        PTRIA2  65      1       .03187                                                  \r\n                  857-        PTRIA2  66      1       .04680                                                  \r\n                  858-        PTRIA2  67      1       .07307                                                  \r\n                  859-        PTRIA2  68      1       .07707                                                  \r\n                  860-        PTRIA2  69      1       .09197                                                  \r\n                  861-        PTRIA2  70      1       .09173                                                  \r\n                  862-        PTRIA2  71      1       .10140                                                  \r\n                  863-        PTRIA2  72      1       .09827                                                  \r\n                  864-        PTRIA2  73      1       .10277                                                  \r\n                  865-        PTRIA2  74      1       .09670                                                  \r\n                  866-        PTRIA2  75      1       .09440                                                  \r\n                  867-        PTRIA2  76      1       .08500                                                  \r\n                  868-        PTRIA2  77      1       .07300                                                  \r\n                  869-        PTRIA2  78      1       .05943                                                  \r\n                  870-        PTRIA2  79      1       .03483                                                  \r\n                  871-        PTRIA2  80      1       .01723                                                  \r\n                  872-        PTRIA2  81      1       .03637                                                  \r\n                  873-        PTRIA2  82      1       .05337                                                  \r\n                  874-        PTRIA2  83      1       .08310                                                  \r\n                  875-        PTRIA2  84      1       .08787                                                  \r\n                  876-        PTRIA2  85      1       .10477                                                  \r\n                  877-        PTRIA2  86      1       .10487                                                  \r\n                  878-        PTRIA2  87      1       .11580                                                  \r\n                  879-        PTRIA2  88      1       .11257                                                  \r\n                  880-        PTRIA2  89      1       .11757                                                  \r\n                  881-        PTRIA2  90      1       .11090                                                  \r\n                  882-        PTRIA2  91      1       .10817                                                  \r\n                  883-        PTRIA2  92      1       .09773                                                  \r\n                  884-        PTRIA2  93      1       .08390                                                  \r\n                  885-        PTRIA2  94      1       .06857                                                  \r\n                  886-        PTRIA2  95      1       .04017                                                  \r\n                  887-        PTRIA2  96      1       .02000                                                  \r\n                  888-        PTRIA2  97      1       .04190                                                  \r\n                  889-        PTRIA2  98      1       .06107                                                  \r\n                  890-        PTRIA2  99      1       .09537                                                  \r\n                  891-        PTRIA2  100     1       .10040                                                  \r\n                  892-        PTRIA2  101     1       .12033                                                  \r\n                  893-        PTRIA2  102     1       .11993                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  894-        PTRIA2  103     1       .13323                                                  \r\n                  895-        PTRIA2  104     1       .12900                                                  \r\n                  896-        PTRIA2  105     1       .13550                                                  \r\n                  897-        PTRIA2  106     1       .12730                                                  \r\n                  898-        PTRIA2  107     1       .12473                                                  \r\n                  899-        PTRIA2  108     1       .11227                                                  \r\n                  900-        PTRIA2  109     1       .09677                                                  \r\n                  901-        PTRIA2  110     1       .07883                                                  \r\n                  902-        PTRIA2  111     1       .04630                                                  \r\n                  903-        PTRIA2  112     1       .02297                                                  \r\n                  904-        PTRIA2  113     1       .04790                                                  \r\n                  905-        PTRIA2  114     1       .07000                                                  \r\n                  906-        PTRIA2  115     1       .10907                                                  \r\n                  907-        PTRIA2  116     1       .11527                                                  \r\n                  908-        PTRIA2  117     1       .13790                                                  \r\n                  909-        PTRIA2  118     1       .13793                                                  \r\n                  910-        PTRIA2  119     1       .15300                                                  \r\n                  911-        PTRIA2  120     1       .14870                                                  \r\n                  912-        PTRIA2  121     1       .15617                                                  \r\n                  913-        PTRIA2  122     1       .14720                                                  \r\n                  914-        PTRIA2  123     1       .14463                                                  \r\n                  915-        PTRIA2  124     1       .13037                                                  \r\n                  916-        PTRIA2  125     1       .11300                                                  \r\n                  917-        PTRIA2  126     1       .09187                                                  \r\n                  918-        PTRIA2  127     1       .06993                                                  \r\n                  919-        PTRIA2  128     1       .04230                                                  \r\n                  920-        PTRIA2  129     1       .01937                                                  \r\n                  921-        PTRIA2  130     1       .05410                                                  \r\n                  922-        PTRIA2  131     1       .07907                                                  \r\n                  923-        PTRIA2  132     1       .12273                                                  \r\n                  924-        PTRIA2  133     1       .13063                                                  \r\n                  925-        PTRIA2  134     1       .15583                                                  \r\n                  926-        PTRIA2  135     1       .15690                                                  \r\n                  927-        PTRIA2  136     1       .17377                                                  \r\n                  928-        PTRIA2  137     1       .16983                                                  \r\n                  929-        PTRIA2  138     1       .17853                                                  \r\n                  930-        PTRIA2  139     1       .16917                                                  \r\n                  931-        PTRIA2  140     1       .16647                                                  \r\n                  932-        PTRIA2  141     1       .15090                                                  \r\n                  933-        PTRIA2  142     1       .10750                                                  \r\n                  934-        PTRIA2  143     1       .13113                                                  \r\n                  935-        PTRIA2  144     1       .12383                                                  \r\n                  936-        PTRIA2  145     1       .06393                                                  \r\n                  937-        PTRIA2  146     1       .08037                                                  \r\n                  938-        PTRIA2  147     1       .07120                                                  \r\n                  939-        PTRIA2  148     1       .09103                                                  \r\n                  940-        PTRIA2  149     1       .01970                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  941-        PTRIA2  150     1       .03663                                                  \r\n                  942-        PTRIA2  151     1       .02113                                                  \r\n                  943-        PTRIA2  152     1       .03927                                                  \r\n                  944-        PTRIA2  153     1       .06227                                                  \r\n                  945-        PTRIA2  154     1       .09003                                                  \r\n                  946-        PTRIA2  155     1       .14073                                                  \r\n                  947-        PTRIA2  156     1       .14847                                                  \r\n                  948-        PTRIA2  157     1       .17940                                                  \r\n                  949-        PTRIA2  158     1       .17887                                                  \r\n                  950-        PTRIA2  159     1       .20047                                                  \r\n                  951-        PTRIA2  160     1       .19430                                                  \r\n                  952-        PTRIA2  161     1       .20483                                                  \r\n                  953-        PTRIA2  162     1       .19300                                                  \r\n                  954-        PTRIA2  163     1       .18800                                                  \r\n                  955-        PTRIA2  164     1       .17083                                                  \r\n                  956-        PTRIA2  165     1       .12680                                                  \r\n                  957-        PTRIA2  166     1       .14623                                                  \r\n                  958-        PTRIA2  167     1       .12853                                                  \r\n                  959-        PTRIA2  168     1       .07737                                                  \r\n                  960-        PTRIA2  169     1       .09420                                                  \r\n                  961-        PTRIA2  170     1       .07600                                                  \r\n                  962-        PTRIA2  171     1       .09090                                                  \r\n                  963-        PTRIA2  172     1       .02237                                                  \r\n                  964-        PTRIA2  173     1       .04063                                                  \r\n                  965-        PTRIA2  174     1       .02237                                                  \r\n                  966-        PTRIA2  175     1       .04090                                                  \r\n                  967-        PTRIA2  176     1       .07267                                                  \r\n                  968-        PTRIA2  177     1       .10533                                                  \r\n                  969-        PTRIA2  178     1       .16657                                                  \r\n                  970-        PTRIA2  179     1       .17420                                                  \r\n                  971-        PTRIA2  180     1       .21267                                                  \r\n                  972-        PTRIA2  181     1       .21013                                                  \r\n                  973-        PTRIA2  182     1       .23567                                                  \r\n                  974-        PTRIA2  183     1       .22653                                                  \r\n                  975-        PTRIA2  184     1       .23553                                                  \r\n                  976-        PTRIA2  185     1       .22000                                                  \r\n                  977-        PTRIA2  186     1       .20763                                                  \r\n                  978-        PTRIA2  187     1       .18747                                                  \r\n                  979-        PTRIA2  188     1       .12633                                                  \r\n                  980-        PTRIA2  189     1       .15213                                                  \r\n                  981-        PTRIA2  190     1       .12827                                                  \r\n                  982-        PTRIA2  191     1       .07373                                                  \r\n                  983-        PTRIA2  192     1       .08800                                                  \r\n                  984-        PTRIA2  193     1       .07187                                                  \r\n                  985-        PTRIA2  194     1       .08633                                                  \r\n                  986-        PTRIA2  195     1       .02223                                                  \r\n                  987-        PTRIA2  196     1       .04017                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  988-        PTRIA2  197     1       .02113                                                  \r\n                  989-        PTRIA2  198     1       .03857                                                  \r\n                  990-        PTRIA2  199     1       .07367                                                  \r\n                  991-        PTRIA2  200     1       .12303                                                  \r\n                  992-        PTRIA2  201     1       .18327                                                  \r\n                  993-        PTRIA2  202     1       .21377                                                  \r\n                  994-        PTRIA2  203     1       .23553                                                  \r\n                  995-        PTRIA2  204     1       .25797                                                  \r\n                  996-        PTRIA2  205     1       .26063                                                  \r\n                  997-        PTRIA2  206     1       .27393                                                  \r\n                  998-        PTRIA2  207     1       .25797                                                  \r\n                  999-        PTRIA2  208     1       .25653                                                  \r\n                 1000-        PTRIA2  209     1       .22173                                                  \r\n                 1001-        PTRIA2  210     1       .20550                                                  \r\n                 1002-        PTRIA2  211     1       .12690                                                  \r\n                 1003-        PTRIA2  212     1       .15470                                                  \r\n                 1004-        PTRIA2  213     1       .12620                                                  \r\n                 1005-        PTRIA2  214     1       .08497                                                  \r\n                 1006-        PTRIA2  215     1       .06900                                                  \r\n                 1007-        PTRIA2  216     1       .08243                                                  \r\n                 1008-        PTRIA2  217     1       .06653                                                  \r\n                 1009-        PTRIA2  218     1       .03707                                                  \r\n                 1010-        PTRIA2  219     1       .01923                                                  \r\n                 1011-        PTRIA2  220     1       .03527                                                  \r\n                 1012-        PTRIA2  221     1       .01803                                                  \r\n                 1013-        PTRIA2  222     1       .08143                                                  \r\n                 1014-        PTRIA2  223     1       .13560                                                  \r\n                 1015-        PTRIA2  224     1       .20770                                                  \r\n                 1016-        PTRIA2  225     1       .23597                                                  \r\n                 1017-        PTRIA2  226     1       .26447                                                  \r\n                 1018-        PTRIA2  227     1       .28117                                                  \r\n                 1019-        PTRIA2  228     1       .28797                                                  \r\n                 1020-        PTRIA2  229     1       .29323                                                  \r\n                 1021-        PTRIA2  230     1       .27777                                                  \r\n                 1022-        PTRIA2  231     1       .26773                                                  \r\n                 1023-        PTRIA2  232     1       .23027                                                  \r\n                 1024-        PTRIA2  233     1       .20870                                                  \r\n                 1025-        PTRIA2  234     1       .12567                                                  \r\n                 1026-        PTRIA2  235     1       .15577                                                  \r\n                 1027-        PTRIA2  236     1       .12690                                                  \r\n                 1028-        PTRIA2  237     1       .08110                                                  \r\n                 1029-        PTRIA2  238     1       .06640                                                  \r\n                 1030-        PTRIA2  239     1       .08210                                                  \r\n                 1031-        PTRIA2  240     1       .06740                                                  \r\n                 1032-        PTRIA2  241     1       .03460                                                  \r\n                 1033-        PTRIA2  242     1       .01817                                                  \r\n                 1034-        PTRIA2  243     1       .03527                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1035-        PTRIA2  244     1       .01850                                                  \r\n                 1036-        PTRIA2  245     1       .08470                                                  \r\n                 1037-        PTRIA2  246     1       .14377                                                  \r\n                 1038-        PTRIA2  247     1       .22293                                                  \r\n                 1039-        PTRIA2  248     1       .25577                                                  \r\n                 1040-        PTRIA2  249     1       .28550                                                  \r\n                 1041-        PTRIA2  250     1       .31427                                                  \r\n                 1042-        PTRIA2  251     1       .31520                                                  \r\n                 1043-        PTRIA2  252     1       .34400                                                  \r\n                 1044-        PTRIA2  253     1       .31200                                                  \r\n                 1045-        PTRIA2  254     1       .33630                                                  \r\n                 1046-        PTRIA2  255     1       .27047                                                  \r\n                 1047-        PTRIA2  256     1       .28763                                                  \r\n                 1048-        PTRIA2  257     1       .19700                                                  \r\n                 1049-        PTRIA2  258     1       .17977                                                  \r\n                 1050-        PTRIA2  259     1       .09497                                                  \r\n                 1051-        PTRIA2  260     1       .06357                                                  \r\n                 1052-        PTRIA2  261     1       .01923                                                  \r\n                 1053-        PTRIA2  262     1       .09560                                                  \r\n                 1054-        PTRIA2  263     1       .17233                                                  \r\n                 1055-        PTRIA2  264     1       .25333                                                  \r\n                 1056-        PTRIA2  265     1       .31430                                                  \r\n                 1057-        PTRIA2  266     1       .39720                                                  \r\n                 1058-        PTRIA2  267     1       .38410                                                  \r\n                 1059-        PTRIA2  268     1       .48943                                                  \r\n                 1060-        PTRIA2  269     1       .46790                                                  \r\n                 1061-        PTRIA2  270     1       .54337                                                  \r\n                 1062-        PTRIA2  271     1       .58850                                                  \r\n                 1063-        PTRIA2  272     1       .61167                                                  \r\n                 1064-        PTRIA2  273     1       .49710                                                  \r\n                 1065-        PTRIA2  274     1       .61533                                                  \r\n                 1066-        PTRIA2  275     1       .51933                                                  \r\n                 1067-        PTRIA2  276     1       .37560                                                  \r\n                 1068-        PTRIA2  277     1       .31070                                                  \r\n                 1069-        PTRIA2  278     1       .20550                                                  \r\n                 1070-        PTRIA2  279     1       .10433                                                  \r\n                 1071-        PTRIA2  280     1       .16253                                                  \r\n                 1072-        PTRIA2  281     1       .29247                                                  \r\n                 1073-        PTRIA2  282     1       .36323                                                  \r\n                 1074-        PTRIA2  283     1       .50120                                                  \r\n                 1075-        PTRIA2  284     1       .52317                                                  \r\n                 1076-        PTRIA2  285     1       .67620                                                  \r\n                 1077-        PTRIA2  286     1       .64723                                                  \r\n                 1078-        PTRIA2  287     1       .72723                                                  \r\n                 1079-        PTRIA2  288     1       .65833                                                  \r\n                 1080-        PTRIA2  289     1       .76263                                                  \r\n                 1081-        PTRIA2  290     1       .71047                                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1082-        PTRIA2  291     1       .80953                                                  \r\n                 1083-        PTRIA2  292     1       .76303                                                  \r\n                 1084-        PTRIA2  293     1       .85827                                                  \r\n                 1085-        PTRIA2  294     1       .90487                                                  \r\n                 1086-        PTRIA2  295     1       .83280                                                  \r\n                 1087-        PTRIA2  296     1       .86773                                                  \r\n                 1088-        PTRIA2  297     1       .76483                                                  \r\n                 1089-        PTRIA2  298     1       .60217                                                  \r\n                 1090-        PTRIA2  299     1       .83203                                                  \r\n                 1091-        PTRIA2  300     1       .64773                                                  \r\n                 1092-        PTRIA2  301     1       .93570                                                  \r\n                 1093-        PTRIA2  302     1       .90603                                                  \r\n                 1094-        PTRIA2  303     1       .99047                                                  \r\n                 1095-        PTRIA2  304     1       1.02140                                                 \r\n                 1096-        PTRIA2  305     1       1.01607                                                 \r\n                 1097-        PTRIA2  306     1       1.03707                                                 \r\n                 1098-        PTRIA2  307     1       .89447                                                  \r\n                 1099-        PTRIA2  308     1       .97073                                                  \r\n                 1100-        PTRIA2  309     1       .43940                                                  \r\n                 1101-        PTRIA2  310     1       .62880                                                  \r\n                 1102-        PTRIA2  311     1       .45607                                                  \r\n                 1103-        PTRIA2  312     1       .62880                                                  \r\n                 1104-        PTRIA2  313     1       .89447                                                  \r\n                 1105-        PTRIA2  314     1       .97073                                                  \r\n                 1106-        PTRIA2  315     1       1.06800                                                 \r\n                 1107-        PTRIA2  316     1       1.08900                                                 \r\n                 1108-        PTRIA2  317     1       1.08900                                                 \r\n                 1109-        PTRIA2  318     1       1.06800                                                 \r\n                 1110-        PTRIA2  319     1       .97073                                                  \r\n                 1111-        PTRIA2  320     1       .89447                                                  \r\n                 1112-        PTRIA2  321     1       .62880                                                  \r\n                 1113-        PTRIA2  322     1       .43940                                                  \r\n                 1114-        PTRIA2  323     1       .43940                                                  \r\n                 1115-        PTRIA2  324     1       .62880                                                  \r\n                 1116-        PTRIA2  325     1       .89447                                                  \r\n                 1117-        PTRIA2  326     1       .97073                                                  \r\n                 1118-        PTRIA2  327     1       1.06800                                                 \r\n                 1119-        PTRIA2  328     1       1.08900                                                 \r\n                 1120-        PTRIA2  329     1       1.08900                                                 \r\n                 1121-        PTRIA2  330     1       1.06800                                                 \r\n                 1122-        PTRIA2  331     1       .97073                                                  \r\n                 1123-        PTRIA2  332     1       .89447                                                  \r\n                 1124-        PTRIA2  333     1       .62880                                                  \r\n                 1125-        PTRIA2  334     1       .43940                                                  \r\n                 1126-        PTRIA2  335     1       .55867                                                  \r\n                 1127-        PTRIA2  336     1       .70640                                                  \r\n                 1128-        PTRIA2  337     1       1.06620                                                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1129-        PTRIA2  338     1       1.06487                                                 \r\n                 1130-        PTRIA2  339     1       1.13913                                                 \r\n                 1131-        PTRIA2  340     1       1.06600                                                 \r\n                 1132-        PTRIA2  341     1       1.06600                                                 \r\n                 1133-        PTRIA2  342     1       1.13913                                                 \r\n                 1134-        PTRIA2  343     1       1.06487                                                 \r\n                 1135-        PTRIA2  344     1       1.06620                                                 \r\n                 1136-        PTRIA2  345     1       .70640                                                  \r\n                 1137-        PTRIA2  346     1       .55867                                                  \r\n                 1138-        RLOAD1  1000    11              12      13                                      \r\n                 1139-        SEQGP   1       9       2       8       3       7       4       4               \r\n                 1140-        SEQGP   5       2       6       1       7       10      8       11              \r\n                 1141-        SEQGP   9       20      10      19      11      18      12      17              \r\n                 1142-        SEQGP   13      16      14      15      15      12      16      5               \r\n                 1143-        SEQGP   17      3       18      21      19      30      20      29              \r\n                 1144-        SEQGP   21      28      22      27      23      26      24      25              \r\n                 1145-        SEQGP   25      22      26      13      27      6       28      39              \r\n                 1146-        SEQGP   29      38      30      37      31      36      32      35              \r\n                 1147-        SEQGP   33      34      34      31      35      23      36      14              \r\n                 1148-        SEQGP   37      47      38      48      39      46      40      45              \r\n                 1149-        SEQGP   41      44      42      43      43      40      44      32              \r\n                 1150-        SEQGP   45      24      46      56      47      57      48      55              \r\n                 1151-        SEQGP   49      54      50      53      51      52      52      49              \r\n                 1152-        SEQGP   53      41      54      33      55      66      56      67              \r\n                 1153-        SEQGP   57      65      58      64      59      63      60      62              \r\n                 1154-        SEQGP   61      58      62      50      63      42      64      76              \r\n                 1155-        SEQGP   65      77      66      75      67      74      68      73              \r\n                 1156-        SEQGP   69      72      70      68      71      59      72      51              \r\n                 1157-        SEQGP   73      86      74      87      75      85      76      84              \r\n                 1158-        SEQGP   77      83      78      82      79      78      80      69              \r\n                 1159-        SEQGP   81      61      82      60      83      79      84      71              \r\n                 1160-        SEQGP   85      70      86      88      87      99      88      98              \r\n                 1161-        SEQGP   89      97      90      96      91      95      92      91              \r\n                 1162-        SEQGP   93      92      94      81      95      80      96      103             \r\n                 1163-        SEQGP   97      94      98      93      99      89      100     100             \r\n                 1164-        SEQGP   101     110     102     109     103     108     104     107             \r\n                 1165-        SEQGP   105     104     106     114     107     106     108     105             \r\n                 1166-        SEQGP   109     115     110     118     111     117     112     90              \r\n                 1167-        SEQGP   113     101     114     111     115     121     116     120             \r\n                 1168-        SEQGP   117     119     118     116     119     127     120     128             \r\n                 1169-        SEQGP   121     132     122     130     123     139     124     145             \r\n                 1170-        SEQGP   125     102     126     112     127     122     128     134             \r\n                 1171-        SEQGP   129     133     130     129     131     131     132     142             \r\n                 1172-        SEQGP   133     150     134     157     135     144     136     156             \r\n                 1173-        SEQGP   137     169     138     113     139     123     140     135             \r\n                 1174-        SEQGP   141     146     142     140     143     141     144     143             \r\n                 1175-        SEQGP   145     154     146     167     147     179     148     124             \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1176-        SEQGP   149     136     150     147     151     151     152     152             \r\n                 1177-        SEQGP   153     153     154     155     155     166     156     178             \r\n                 1178-        SEQGP   157     125     158     137     159     148     160     158             \r\n                 1179-        SEQGP   161     160     162     161     163     162     164     163             \r\n                 1180-        SEQGP   165     165     166     164     167     168     168     170             \r\n                 1181-        SEQGP   169     172     170     173     171     174     172     175             \r\n                 1182-        SEQGP   173     176     174     177     175     126     176     149             \r\n                 1183-        SEQGP   177     159     178     171     179     180     180     182             \r\n                 1184-        SEQGP   181     183     182     184     183     185     184     186             \r\n                 1185-        SEQGP   185     181     186     187     187     190     188     191             \r\n                 1186-        SEQGP   189     192     190     193     191     194     192     188             \r\n                 1187-        SEQGP   193     195     194     197     195     198     196     199             \r\n                 1188-        SEQGP   197     200     198     201     199     189     200     196             \r\n                 1189-        SEQGP   201     202     202     203     203     204     204     205             \r\n                 1190-        SEQGP   205     206     206     138                                             \r\n                 1191-        SPC1    1       5       17      27      36      14      10      45              \r\n                 1192-        SPC1    1       5       23      54      37      112     146     185             \r\n                 1193-        SPC1    1       5       186     192     187     188     189     190             \r\n                 1194-        SPC1    1       5       191     193     194     195     196     197             \r\n                 1195-        SPC1    1       5       198                                                     \r\n                 1196-        SPC1    1       123456  199     THRU    205                                     \r\n                 1197-        STREAML110      175     177     163     166     156                             \r\n                 1198-        STREAML120      138     140     129     131     121                             \r\n                 1199-        STREAML130      99      101     103     105     111                             \r\n                 1200-        STREAML140      64      75      77      92      108                             \r\n                 1201-        STREAML150      37      49      60      70      82                              \r\n                 1202-        STREAML160      18      21      33      44      54                              \r\n                 1203-        STREAML170      1       13      14      15      27                              \r\n                 1204-        STREAML210      5       7.79    4.032   0.322   2.085   0.786   .9179- 7+2    10\r\n                 1205-        +2    1010316.6 -14.88                                                          \r\n                 1206-        STREAML220      5       17.14   4.675   0.108   3.508   0.827   .9179- 7+2    20\r\n                 1207-        +2    2010859.5 -12.13                                                          \r\n                 1208-        STREAML230      5       18.27   4.876   -0.178  4.955   0.877   .9179- 7+2    30\r\n                 1209-        +2    3011513.1 6.97                                                            \r\n                 1210-        STREAML240      5       18.50   4.529   -0.312  6.339   0.826   .9179- 7+2    40\r\n                 1211-        +2    4010848.5 26.04                                                           \r\n                 1212-        STREAML250      5       21.10   3.799   -0.408  7.703   0.742   .9179- 7+2    50\r\n                 1213-        +2    509745.6  40.02                                                           \r\n                 1214-        STREAML260      5       24.78   2.815   -0.570  8.894   0.698   .9179- 7+2    60\r\n                 1215-        +2    609163.9  47.18                                                           \r\n                 1216-        STREAML270      5       31.02   1.805   -0.570  9.716   0.834   .9179- 7+2    70\r\n                 1217-        +2    7010952.6 40.07                                                           \r\n                 1218-        TABLED1*13                                                              *TB13A  \r\n                 1219-        *TB13A                                                                  *TB13B  \r\n                 1220-        *TB13B  0.0             0.0             133.19667       0.0             *TB13C  \r\n                 1221-        *TB13C  133.19667       1.0             133.46333       1.0             *TB13D  \r\n                 1222-        *TB13D  133.46333       0.0             1.0E10          0.0             *TB13E  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                 1223-        *TB13E  ENDT                                                                    \r\n                              ENDDATA\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $       \r\n\r\n       3  FILE     UXVF=APPEND/PDT=APPEND/PD=APPEND $                             \r\n\r\n       3  COND     ERRORC1,NSEGS $  IF USER HAS NOT SPECIFIED NSEGS.              \r\n\r\n       3  COND     ERRORC1,KMAX  $  IF USER HAS NOT SPECIFIED KMAX.               \r\n\r\n       3  COND     ERRORC1,KMIN  $  IF USER HAS SPECIFIED NEGATIVE KMIN.          \r\n\r\n       3  PARAM    //*NE*/KTEST/V,Y,KMAX/V,Y,KMIN=0 $                             \r\n\r\n       3  COND     LBL1KIND,KTEST $                                               \r\n\r\n       3  PARAM    //*ADD*/KINDEX/V,Y,KMAX/0  $  SET KINDEX = KMAX (= KMIN)       \r\n\r\n       3  JUMP     LBL2KIND $                                                     \r\n\r\n       3  LABEL    LBL1KIND                                                       \r\n\r\n       3  COND     ERRORC1,KINDEX  $  IF USER HAS NOT SPECIFIED KINDEX.           \r\n\r\n       3  PARAM    //*LT*/KTEST/V,Y,KINDEX/V,Y,KMIN $                             \r\n\r\n       3  COND     ERRORC1,KTEST $                                                \r\n\r\n       3  PARAM    //*GT*/KTEST/V,Y,KINDEX/V,Y,KMAX $                             \r\n\r\n       3  COND     ERRORC1,KTEST $                                                \r\n\r\n       3  LABEL    LBL2KIND $                                                     \r\n\r\n       3  PARAM    //*EQ*/CYCIOERR /V,Y,CYCIO=0 /0 $                              \r\n\r\n       3  COND     ERRORC1,CYCIOERR  $  IF USER HAS NOT SPECIFIED CYCIO.          \r\n\r\n       3  PARAM    //*DIV*/NSEG2 /V,Y,NSEGS /2 $  NSEG2 = NSEGS/2                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       3  PARAM    //*SUB*/KMAXERR /NSEG2 /V,Y,KMAX $                             \r\n\r\n       3  COND     ERRORC1,KMAXERR $  IF KMAX .GT. NSEGS/2                        \r\n\r\n       3  PARAM    //*EQ*/KTEST/V,Y,KINDEX/0 $                                    \r\n\r\n       3  COND     LBL3KIND,KTEST $                                               \r\n\r\n       3  PARAM    //*ADD*/NSEGS1/V,Y,NSEGS/1 $                                   \r\n\r\n       3  PARAM    //*DIV*/NSEG21/NSEGS1/2 $                                      \r\n\r\n       3  PARAM    //*EQ*/KEVEN/NSEG21/NSEG2 $                                    \r\n\r\n       3  PARAM    //*EQ*/KNSEG2/NSEG2/V,Y,KINDEX $                               \r\n\r\n       3  PARAM    //*EQ*/KTEST/KNSEG2/KEVEN $                                    \r\n\r\n       3  COND     LBL3KIND,KTEST $                                               \r\n\r\n       3  PARAM    //*ADD*/KTEST/1/0 $                                            \r\n\r\n       3  LABEL   LBL3KIND $                                                      \r\n\r\n       3  PARAM    //*GT*/KFLAG/KTEST/0 $                                         \r\n\r\n       3  PARAM    //*NOP*/V,Y,NOKPRT=+1 /V,Y,LGKAD=-1 $                          \r\n\r\n       3  PARAMR   //*MPY*/OMEGA /V,Y,RPS=0.0 /6.283185 $                         \r\n\r\n       3  PARAMR   //*MPY*/OMEGA2 /2.0 /OMEGA $                                   \r\n\r\n       3  PARAMR   //*MPY*/OMEGASQR /OMEGA /OMEGA $                               \r\n\r\n       3  PARAMR   //*EQ*//V,Y,RPS /0.0 ////NORPS $                               \r\n\r\n       3  PARAM    //*NOT*/NOLUMP /V,Y,COUPMASS=-1 $                              \r\n\r\n       3  COND     ERRORC2,NOLUMP $                                               \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1//$                                                      \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2 / SLT,GPTT / NOGRAV $                       \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,           \r\n                   KGGX/NOSIMP $                                                  \r\n\r\n      26  PARAM    //*MPY*/NSKIP /0/0 $                                           \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      26  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,/RG,YS,USET,ASET,/LUSET/   \r\n                   S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NSKIP/   \r\n                   S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/S,Y,AUTOSPC $ \r\n\r\n      26  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $                  \r\n\r\n      26  PARAM    //*NOT*/REACDATA /REACT $                                      \r\n\r\n      26  COND     ERRORC3,REACDATA $                                             \r\n\r\n      26  DPD      DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,  \r\n                   TRL,EED,EQDYN / LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/   \r\n                   S,N,NOFRL/NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $               \r\n\r\n      26  COND     ERRORC7,NOEED $                                                \r\n\r\n      26  PARAM    //*AND*/FTERR /NOFRL /NOTRL $                                  \r\n\r\n      26  COND     ERRORC5,FTERR $  NO FREQ OR TSTEP BULK DATA.                   \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/14//FREQSET $                              \r\n\r\n      26  PARAML   CASECC //*TABLE1*/1/38//TIMESET $                              \r\n\r\n      26  PARAM    //*MPY*/FREQTIME /FREQSET /TIMESET $                           \r\n\r\n      26  PARAM    //*NOT*/FTERR1 /FREQTIME $                                     \r\n\r\n      26  PARAM    //*LE*/NOFREQ /FREQSET /0 $                                    \r\n\r\n      26  PARAM    //*LE*/NOTIME /TIMESET /0 $                                    \r\n\r\n      26  COND     ERRORC6,FTERR1 $  BOTH FREQ AND TSTEP IN CASE CONTROL DECK.    \r\n\r\n      26  PARAM    //*NOT*/EXTRAPTS /NOUE $                                       \r\n\r\n      26  COND     ERRORC4,EXTRAPTS $                                             \r\n\r\n      26  GPCYC    GEOM4,EQDYN,USETD /CYCDD /CTYPE=ROT /S,N,NOGO $                \r\n\r\n      26  COND     ERRORC1,NOGO $                                                 \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      31  PARAM    //*NOP*/V,Y,KGGIN=-1 $                                         \r\n\r\n      31  COND     JMPKGGIN,KGGIN $                                               \r\n\r\n      31  PARAM    //*ADD*/NOKGGX/-1/0 $                                          \r\n\r\n      31  INPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $                   \r\n\r\n      31  EQUIV    KTOTAL,KGGX $                                                  \r\n\r\n      31  LABEL    JMPKGGIN $                                                     \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      36  PARAM    //*OR*/NOBM1 /NOMGG /NORPS $                                   \r\n\r\n      36  PURGE    B1GG,M1GG /NOBM1 $                                             \r\n\r\n      36  PURGE    M2GG,M2BASEXG /NOMGG $                                         \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      39  FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,M2GG,BASEXG,  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PDZERO,, /NOMGG/V,Y,CYCIO/V,Y,NSEGS/V,Y,KMAX/S,N,FKMAX/        \r\n                   V,Y,BXTID=-1/V,Y,BXPTID=-1/V,Y,BYTID=-1/V,Y,BYPTID=-1/         \r\n                   V,Y,BZTID=-1/V,Y,BZPTID=-1/S,N,NOBASEX/NOFREQ/OMEGA  $         \r\n\r\n      39  PARAML   FRLX //*PRES*////NOFRLX $                                      \r\n\r\n      39  COND     LBLFRLX,NOFRLX $                                               \r\n\r\n      39  EQUIV    FRLX,FRL $                                                     \r\n\r\n      39  LABEL    LBLFRLX $                                                      \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      48  PARAM    //*ADD*/NOBGG /NOBM1 /0 $  RESET NOBGG.                        \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR4,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1 $                                                         \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      60  COND     LBL11A,NOBM1 $                                                 \r\n\r\n      60  PARAMR   //*COMPLEX*// OMEGA2 /0.0/ CMPLX1 $                            \r\n\r\n      60  PARAMR   //*SUB*/ MOMEGASQ / 0.0 / OMEGASQR $                           \r\n\r\n      60  PARAMR   //*COMPLEX*// MOMEGASQ / 0.0 / CMPLX2 $                        \r\n\r\n      60  ADD      BGG,B1GG / BGG1 / (1.0,0.0) / CMPLX1 $                         \r\n\r\n      60  EQUIV    BGG1,BGG $                                                     \r\n\r\n      60  ADD      KGG,M1GG / KGG1 / (1.0,0.0) / CMPLX2 $                         \r\n\r\n      60  EQUIV    KGG1,KGG $                                                     \r\n\r\n      60  LABEL    LBL11A                                                         \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $                    \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $                  \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      90  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n\r\n      91  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n      92  PARAM    //*MPY*/REPEATF/-1/1 $                                         \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBL13,NOFL $                                                   \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      98  LABEL    LBL13 $                                                        \r\n\r\n      99  PURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,    \r\n                   OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,              \r\n                   K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $                          \r\n\r\n     100  CASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $             \r\n\r\n     101  MTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     102  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     103  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     104  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     105  COND     LBLFL2,NOFL $                                                  \r\n\r\n     106  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     107  COND     LBLFL2,NOABFL $                                                \r\n\r\n     108  TRNSP    ABFL/ABFLT $                                                   \r\n\r\n     109  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     110  LABEL    LBLFL2 $                                                       \r\n\r\n     111  PARAM    //*AND*/BDEBA/NOUE/NOB2PP $                                    \r\n\r\n     112  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     113  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     114  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     114  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     114  COND     LGKAD1,LGKAD $  BRANCH IN NOT FREQRESP.                        \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/                     \r\n                   MAA,MDD/MDEMA/BAA,BDD/BDEBA $                                  \r\n\r\n     115  JUMP     LGKAD2 $                                                       \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     115  LABEL    LGKAD1 $                                                       \r\n\r\n     115  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     115  LABEL    LGKAD2 $                                                       \r\n\r\n     116  COND     LBL18,NOGPDT $                                                 \r\n\r\n     117  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/C,Y,GKAD=TRANRESP/*DISP*/*DIRECT*/          \r\n                   C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/MPCF1/    \r\n                   SINGLE/OMIT/NOUE/NOK4GG/NOBGG/KDEK2/-1 $                       \r\n\r\n     118  LABEL    LBL18 $                                                        \r\n\r\n     118  COND     LGKAD3,LGKAD $  BRANCH IF NOT FREQRESP.                        \r\n\r\n     119  EQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $              \r\n\r\n     119  JUMP     LGKAD4 $                                                       \r\n\r\n     119  LABEL    LGKAD3 $                                                       \r\n\r\n     119  EQUIV    B2DD,BDD/NOGPDT/M2DD,MDD/NOSIMP/K2DD,KDD/KDEK2 $               \r\n\r\n     119  LABEL    LGKAD4 $                                                       \r\n\r\n     124  COND     LBLTRL1,NOTIME $                                               \r\n\r\n     124  PARAM    //*MPY*/REPEATT /1 /-1 $                                       \r\n\r\n     124  PARAM    //*ADD*/APPFLG /1 /0 $  INITIALIZE FOR SDR1.                   \r\n\r\n     124  LABEL    TRLGLOOP $                                                     \r\n\r\n     124  CASE     CASECC,/CASEYY/*TRAN*/S,N,REPEATT/S,N,NOLOOP1 $                \r\n\r\n     124  PARAM    //*MPY*/NCOL /0 /1 $                                           \r\n\r\n     124  TRLG     CASEYY,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,/ \r\n                   ,,PDT1,PD1,,TOL/ NOSET/NCOL $                                  \r\n\r\n     124  SDR1     TRL,PDT1,,,,,,,,, / ,PDT, /APPFLG/*DYNAMICS* $                 \r\n\r\n     124  SDR1     TRL,PD1 ,,,,,,,,, / ,PD , /APPFLG/*DYNAMICS* $                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  PARAM    //*ADD*/APPFLG /APPFLG /1 $  APPFLG=APPFLG+1.                  \r\n\r\n     124  COND     TRLGDONE,REPEATT $                                             \r\n\r\n     124  REPT     TRLGLOOP,100 $                                                 \r\n\r\n     124  JUMP     ERROR3 $                                                       \r\n\r\n     124  LABEL    TRLGDONE $                                                     \r\n\r\n     124  FVRSTR2  TOL,,,,,,, / FRLZ,FOLZ,REORDER1,REORDER2,,,, /V,Y,NSEGS/       \r\n                   V,Y,CYCIO/S,Y,LMAX=-1/FKMAX/S,N,FLMAX/S,N,NTSTEPS/S,N,NORO1/   \r\n                   S,N,NORO2 $                                                    \r\n\r\n     124  EQUIV    FRLZ,FRL // FOLZ,FOL $                                         \r\n\r\n     124  JUMP     LBLFRL2 $                                                      \r\n\r\n     124  LABEL    LBLTRL1 $                                                      \r\n\r\n     124  FRLG     CASEXX,USETD,DLT,FRL,GMD,GOD,DIT, / PPF,PSF,PDF,FOL,PHFDUM /   \r\n                   *DIRECT*/FREQY/*FREQ* $                                        \r\n\r\n     124  COND     LBLFRLX1,NOFRLX $  ZERO OUT LOAD COLUMNS IF FRLX WAS GENERATED.\r\n\r\n     124  MPYAD    PPF,PDZERO, / PPFX /0 $                                        \r\n\r\n     124  EQUIV    PPFX,PPF $                                                     \r\n\r\n     124  LABEL    LBLFRLX1 $                                                     \r\n\r\n     124  COND     LBLFRL1,NOBASEX $                                              \r\n\r\n     124  MPYAD    M2GG,BASEXG, / M2BASEXG /0 $                                   \r\n\r\n     124  ADD      PPF,M2BASEXG / PPF1 /(1.0,0.0) /(-1.0,0.0) $                   \r\n\r\n     124  EQUIV    PPF1,PPF $                                                     \r\n\r\n     124  COND     LBLBASE1,NOSET $                                               \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPF / ,PODUM1,PSF1,PDF1 $                \r\n\r\n     124  EQUIV    PSF1,PSF // PDF1,PDF $                                         \r\n\r\n     124  LABEL    LBLBASE1 $                                                     \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  LABEL    LBLFRL1 $                                                      \r\n\r\n     124  EQUIV    PPF,PDF/NOSET $                                                \r\n\r\n     124  PARAML   PDF //*TRAILER*/1 /PDFCOLS $                                   \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /FKMAX $ NLOAD = NF/FKMAX               \r\n\r\n     124  EQUIV    PDF,PXF/CYCIO $                                                \r\n\r\n     124  COND     LBLPDONE,CYCIO $                                               \r\n\r\n     124  PARAM    //*DIV*/NLOAD /PDFCOLS /V,Y,NSEGS $ NLOAD = NF/NSEGS           \r\n\r\n     124  CYCT1    PDF / PXF,GCYCF1 /CTYPE /*FORE*/V,Y,NSEGS=-1/V,Y,KMAX=-1/      \r\n                   NLOAD /S,N,NOGO $                                              \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  JUMP     LBLPDONE $                                                     \r\n\r\n     124  LABEL    LBLFRL2 $                                                      \r\n\r\n     124  PARAM    //*NOT*/NOTCYCIO /V,Y,CYCIO $                                  \r\n\r\n     124  COND     LBLTRL2,NOTCYCIO $                                             \r\n\r\n     124  EQUIV    PD,PDTRZ1/NORO1 $                                              \r\n\r\n     124  COND     LBLRO1A,NORO1 $                                                \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ1 / 0 $                                    \r\n\r\n     124  LABEL    LBLRO1A $                                                      \r\n\r\n     124  CYCT1    PDTRZ1 / PXTRZ1,GCYCF2 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/FKMAX/   \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ1,PXFZ1/NORO2 $                                           \r\n\r\n     124  COND     LBLRO2A,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ1,REORDER2, / PXFZ1 /0 $                                  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  LABEL    LBLRO2A $                                                      \r\n\r\n     124  EQUIV    PXFZ1,PXF1 $                                                   \r\n\r\n     124  JUMP     LBLTRL3 $                                                      \r\n\r\n     124  LABEL    LBLTRL2 $                                                      \r\n\r\n     124  MPYAD    PD,REORDER1, / PDTRZ2 / 0 $                                    \r\n\r\n     124  CYCT1    PDTRZ2 /PXTRZ2,GCYCF3 /CTYPE/*FORE*/NTSTEPS/V,Y,LMAX/          \r\n                   V,Y,NSEGS/S,N,NOGO $                                           \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXTRZ2,PXTR2/NORO2 $                                           \r\n\r\n     124  COND     LBLRO2B,NORO2 $                                                \r\n\r\n     124  MPYAD    PXTRZ2,REORDER2, / PXTR2 /0 $                                  \r\n\r\n     124  LABEL    LBLRO2B $                                                      \r\n\r\n     124  CYCT1    PXTR2 / PXFZ2,GCYCF4 / CTYPE/*FORE*/V,Y,NSEGS/V,Y,KMAX/FLMAX/  \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  EQUIV    PXFZ2,PXF1 $                                                   \r\n\r\n     124  LABEL    LBLTRL3 $                                                      \r\n\r\n     124  COPY     PXF1 / PXF2  $  CONVERT REAL PXF1 TO COMPLEX PXF.              \r\n\r\n     124  ADD      PXF1,PXF2 / PXF / (0.5,1.0) / (0.5,-1.0) $                     \r\n\r\n     124  PARAM    //*ADD*/NLOAD /FLMAX /0 $  NLOAD = FLMAX                       \r\n\r\n     124  LABEL    LBLPDONE $                                                     \r\n\r\n     124  PARAM    //*ADD*/KMINL /V,Y,KINDEX=-1/-1 $                              \r\n\r\n     124  COND     NOKMINL,KMINL $                                                \r\n\r\n     124  PARAM    //*ADD*/KMINV /0 /0 $                                          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  LABEL    KMINLOOP $                                                     \r\n\r\n     124  CYCT2    CYCDD,,,PXF,, /,,PKFZ,, / *FORE*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/ \r\n                   S,N,NOGO $                                                     \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  ADD      PKFZ, / UKVFZ / (0.0,0.0) $                                    \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n\r\n     124  CYCT2    CYCDD,,,UKVFZ,, /,,UXVF,, /*BACK*/V,Y,NSEGS/KMINV/CYCSEQ/NLOAD/\r\n                   S,N,NOGO $                                                     \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  PARAM    //*ADD*/KMINV /KMINV /1 $                                      \r\n\r\n     124  REPT     KMINLOOP,KMINL $                                               \r\n\r\n     124  LABEL    NOKMINL $                                                      \r\n\r\n     124  COND     NOKPRT,NOKPRT $                                                \r\n\r\n     124  PRTPARM  //0/*KINDEX* $                                                 \r\n\r\n     124  LABEL    NOKPRT $                                                       \r\n\r\n     124  CYCT2    CYCDD,KDD,MDD,,, /KKKF,MKKF,,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/   \r\n                   CYCSEQ/NLOAD/S,N,NOGO $                                        \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  CYCT2    CYCDD,BDD,,PXF,, /BKKF,,PKF,, /*FORE*/V,Y,NSEGS/V,Y,KINDEX/    \r\n                   CYCSEQ/NLOAD/S,N,NOGO $                                        \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  CYCT2    CYCDD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS/V,Y,KINDEX/       \r\n                   CYCSEQ=-1/1/S,N,NOGO $                                         \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  READ     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MIK,OEIGS/*MODES*/S,N,NEIGV $  \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n     124  COND     FINIS,NEIGV $                                                  \r\n\r\n     124  OFP      LAMK,,,,,//S,N,CARDNO $                                        \r\n\r\n     124  COND     NOPLOT,JUMPPLOT $                                              \r\n\r\n     124  CYCT2    CYCDD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/   \r\n                   CYCSEQ/1/S,N,NOGO $                                            \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n     124  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,/    \r\n                   ,OQG1,OPHIG,OES1,OEF1,PPHIG,,/*REIG* $                         \r\n\r\n     124  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,,,/  \r\n                   PLOTXX/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                  \r\n\r\n     124  PRTMSG   PLOTXX// $                                                     \r\n\r\n     124  LABEL    NOPLOT $                                                       \r\n\r\n     124  GKAM     USETD,PHIK,MIK,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MDUM,BDUM,       \r\n                   KDUM,PHIKH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/     \r\n                   NOM2PP/NOB2PP/NOK2PP/NONCUP/S,N,FMODE=0 $                      \r\n\r\n     124  PARAML   PHIKH//*TRAILER*/1/S,N,NMODES $                                \r\n\r\n     124  SMPYAD   PHIKH,MKKF,PHIKH,,,/MHH/3////1 $                               \r\n\r\n     124  SMPYAD   PHIKH,KKKF,PHIKH,,,/KHH/3////1 $                               \r\n\r\n     124  SMPYAD   PHIKH,BKKF,PHIKH,,,/BHH/3////1 $                               \r\n\r\n     124  MPYAD    PHIKH,PKF,/PHF/1 $                                             \r\n\r\n     124  EQUIV    MHH,MKKF//BHH,BKKF//KHH,KKKF//PHF,PKF $                        \r\n\r\n     124  COND     KLABEL1,KFLAG $                                                \r\n\r\n     124  APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,/             \r\n                   S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF//               \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NMODES/V,Y,KINDEX $                                            \r\n\r\n     124  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $                         \r\n\r\n     124  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIKH,,,USETD,AERO/QHHL,,/             \r\n                   NOUE/1 $                                                       \r\n\r\n     124  JUMP     KLABEL2 $                                                      \r\n\r\n     124  LABEL    KLABEL1 $                                                      \r\n\r\n     124  CYCT2    CYCDD,,,,PHIKH,LAMK/,,,PHIAH,LAMAH/*BACK*/V,Y,NSEGS/           \r\n                   V,Y,KINDEX/CYCSEQ/1/S,N,NOGO $                                 \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n\r\n     124  APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/        \r\n                   S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*COSINE*/       \r\n                   NMODES/V,Y,KINDEX $                                            \r\n\r\n     124  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/1 $                         \r\n\r\n     124  PARTN    PHIAH,PVECT,/PHIAC,,,/1 $                                      \r\n\r\n     124  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAC,,,USETD,AERO/QHHLC,,/NOUE/1 $    \r\n\r\n     124  APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,,GTKA,PVECT/        \r\n                   S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/*SINE*/NMODES/  \r\n                   V,Y,KINDEX $                                                   \r\n\r\n     124  PARTN    PHIAH,PVECT,/PHIAS,,,/1 $                                      \r\n\r\n     124  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIAS,,,USETD,AERO/QHHLS,,/NOUE/1 $    \r\n\r\n     124  ADD      QHHLC,QHHLS/QHHL/(1.0,0.0)/(1.0,0.0) $                         \r\n\r\n     124  LABEL    KLABEL2 $                                                      \r\n\r\n     124  FRRD2    KKKF,BKKF,MKKF,QHHL,PKF,FOL/UKVF/V,Y,BOV/V,Y,Q/-1.0 $          \r\n\r\n     124  DDR1     UKVF,PHIKH/UKKVF $                                             \r\n\r\n     124  EQUIV    UKKVF,UKVF $                                                   \r\n\r\n     124  CYCT2    CYCDD,,,UKVF,, /,,UXVF,, /*BACK*/V,Y,NSEGS/V,Y,KINDEX/CYCSEQ/  \r\n                   NLOAD/S,N,NOGO $                                               \r\n\r\n     124  COND     ERRORC1,NOGO $                                                 \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     124  EQUIV    UXVF,UDVF / CYCIO $                                            \r\n\r\n     124  COND     LCYC3,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    UXVF / UDVF,GCYCB1 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $   \r\n\r\n     124  LABEL    LCYC3 $                                                        \r\n\r\n     124  COND     LBLTRL4,NOTIME $                                               \r\n\r\n     124  EQUIV    PXF,PDF2 / CYCIO $                                             \r\n\r\n     124  COND     LCYC4,CYCIO $  IF CYCIO .GE. 0 THEN TRANSFORM TO PHYSICAL.     \r\n\r\n     124  CYCT1    PXF / PDF2,GCYCB2 / CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/NLOAD $    \r\n\r\n     124  LABEL    LCYC4 $                                                        \r\n\r\n     124  SDR1     USETD,,PDF2,,,GOD,GMD,,,, / PPFZ,, /1 /*DYNAMICS* $            \r\n\r\n     124  SSG2     USETD,GMD,YS,KFS,GOD,,PPFZ / ,PODUM,PSFZ,PLDUM $               \r\n\r\n     124  EQUIV    PPFZ,PPF // PSFZ,PSF $                                         \r\n\r\n     124  LABEL    LBLTRL4 $                                                      \r\n\r\n     124  VDR      CASEXX,EQDYN,USETD,UDVF,FOL,XYCDB,/OUDVC1,/*FREQRESP*/         \r\n                   *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/FMODE $                   \r\n\r\n     125  COND     LBL15,NOD $                                                    \r\n\r\n     126  COND     LBL15A,NOSORT2 $                                               \r\n\r\n     127  SDR3     OUDVC1,,,,,/OUDVC2,,,,, $                                      \r\n\r\n     128  OFP      OUDVC2,,,,,//S,N,CARDNO $                                      \r\n\r\n     129  XYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/              \r\n                   S,N,CARDNO $                                                   \r\n\r\n     130  XYPLOT   XYPLTFA// $                                                    \r\n\r\n     131  JUMP     LBL15 $                                                        \r\n\r\n     132  LABEL    LBL15A $                                                       \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     133  OFP      OUDVC1,,,,,//S,N,CARDNO $                                      \r\n\r\n     134  LABEL    LBL15 $                                                        \r\n\r\n     135  COND     LBL20,NOP $                                                    \r\n\r\n     136  EQUIV    UDVF,UPVC/NOA $                                                \r\n\r\n     137  COND     LBL19,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $       \r\n\r\n     139  LABEL    LBL19 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,FOL,QPC,UPVC,EST,XYCDB, \r\n                   PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/       \r\n                   S,N,NOSORT2 $                                                  \r\n\r\n     140  CURV     OESC1,MPT,CSTM,EST,SIL,GPL/OESC1M,/1 $                         \r\n\r\n     141  COND     LBL17,NOSORT2 $                                                \r\n\r\n     143  SDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OESC1M/OPPC2,OQPC2,OUPVC2,      \r\n                   OESC2,OEFC2,OESC2M $                                           \r\n\r\n     143  OFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,OESC2M//S,N,CARDNO $            \r\n\r\n     144  XYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/     \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     145  XYPLOT   XYPLTF// $                                                     \r\n\r\n     146  COND     LBL16,NOPSDL $                                                 \r\n\r\n     147  RANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n                   S,N,NORD $                                                     \r\n\r\n     148  COND     LBL16,NORD $                                                   \r\n\r\n     149  XYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/             \r\n                   S,N,CARDNO $                                                   \r\n\r\n     150  XYPLOT   XYPLTR// $                                                     \r\n\r\n     151  JUMP     LBL16 $                                                        \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     152  LABEL    LBL17 $                                                        \r\n\r\n     153  PURGE    PSDF/NOSORT2 $                                                 \r\n\r\n     154  OFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,OESC1M//S,N,CARDNO $            \r\n\r\n     155  LABEL    LBL16 $                                                        \r\n\r\n     156  PURGE    PSDF/NOPSDL $                                                  \r\n\r\n     157  COND     LBL20,JUMPPLOT $                                               \r\n\r\n     158  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,          \r\n                   GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/               \r\n                   S,N,PFILE $                                                    \r\n\r\n     159  PRTMSG   PLOTX2// $                                                     \r\n\r\n     160  LABEL    LBL20 $                                                        \r\n\r\n     161  COND     FINIS,REPEATF $                                                \r\n\r\n     162  REPT     LBL13,100 $                                                    \r\n\r\n     162  LABEL    ERROR3 $                                                       \r\n\r\n     163  PRTPARM  //-3/*DIRFRRD* $                                               \r\n\r\n     164  JUMP     FINIS $                                                        \r\n\r\n     169  LABEL    ERROR4 $                                                       \r\n\r\n     170  PRTPARM  //-4/*DIRFRRD* $                                               \r\n\r\n     170  LABEL    ERRORC1 $  CHECK NSEGS, KMAX AND OTHER CYCLIC DATA.            \r\n\r\n     170  PRTPARM  //-5 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC2 $  COUPLED MASS NOT ALLOWED.                           \r\n\r\n     170  PRTPARM  //0 /C,Y,COUPMASS $                                            \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC3 $  SUPORT BULK DATA NOT ALLOWED.                       \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     170  PRTPARM  //-6 /*CYCSTATICS* $                                           \r\n\r\n     170  LABEL    ERRORC4 $  EPOINT BULK DATA NOT ALLOWED.                       \r\n\r\n     170  PRTPARM  //0 /*NOUE* $                                                  \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC5 $  NEITHER FREQ OR TSTEP WERE IN BULK DATA DECK.       \r\n\r\n     170  PRTPARM  //0 /*NOFRL* $                                                 \r\n\r\n     170  PRTPARM  //0 /*NOTRL* $                                                 \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC6 $  BOTH FREQ AND TSTEP WERE SELECTED IN CASE CONTROL.  \r\n\r\n     170  PRTPARM  //0 /*NOFREQ* $                                                \r\n\r\n     170  PRTPARM  //0 /*NOTIME* $                                                \r\n\r\n     170  JUMP     FINIS $                                                        \r\n\r\n     170  LABEL    ERRORC7 $  NO EIGENVALUE EXTRACTION DATA                       \r\n\r\n     170  PRTPARM  //-2/*CYCMODES* $                                              \r\n\r\n     171  LABEL    FINIS $                                                        \r\n\r\n     172  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     173  END      $                                                              \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED PXF      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED AERO     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED ACPT     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED GTKA     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION AMG        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED AJJL     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION AMG        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED SKJ      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION AMG        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED D1JK     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION AMG        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED D2JK     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED AERO     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED ACPT     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED GTKA     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION APDB       INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED PVECT    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION ADD        INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED QHHL     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION CYCT2      INSTRUCTION NO. 124\r\n     DATA BLOCK NAMED UXVF     ALREADY APPEARED AS OUTPUT\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF SEQGP CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.133330E+03  (INPUT)\r\n                      4TH PARM =  0.628319E+01  (INPUT)\r\n                      OMEGA    =  0.837737E+03  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.200000E+01  (INPUT)\r\n                      OMEGA    =  0.837737E+03  (INPUT)\r\n                      OMEGA2   =  0.167547E+04  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = MPY     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA    =  0.837737E+03  (INPUT)\r\n                      OMEGA    =  0.837737E+03  (INPUT)\r\n                      OMEGASQR =  0.701803E+06  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = EQ      \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      RPS      =  0.133330E+03  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      NORPS    =         0      (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    14             =\r\n+                                                                                    1   = FREQSET \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE CASECC   RECORD     1 WORD    38             =\r\n+                                                                                    0   = TIMESET \r\n0*** USER WARNING MESSAGE 4032\r\n0NO COMPONENTS OF GRID POINTS       199 AND        205 WERE CONNECTED.\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      OMEGA2   =  0.167547E+04  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX1   = ( 0.167547E+04, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = SUB     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      OMEGASQR =  0.701803E+06  (INPUT)\r\n                      MOMEGASQ = -0.701803E+06  (OUTPUT)\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      MOMEGASQ = -0.701803E+06  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CMPLX2   = (-0.701803E+06, 0.000000E+00)   (OUTPUT)\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK TFPOOL   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK TFPOOL   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK M2GG     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK BASEXG   MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TRAILER  -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n+                                                                                    1   = PDFCOLS \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    KINDEX              0.000000E+00\r\n                        0 ROOTS BELOW   3.002438E+06\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST    8 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n0*** USER INFORMATION MESSAGE 2392\r\n       14 MORE ACCURATE EIGENSOLUTIONS THAN THE    4 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        18\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        17\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        4.722712E+05        6.872200E+02        1.093745E+02        1.033938E-04        4.882990E+01             \r\n        2         2        5.415439E+06        2.327110E+03        3.703710E+02        4.557119E-05        2.467880E+02             \r\n        3         3        1.384296E+07        3.720613E+03        5.921539E+02        1.995859E-05        2.762859E+02             \r\n        4         4        1.949657E+07        4.415493E+03        7.027474E+02        2.122623E-05        4.138388E+02             \r\n        5         5        3.029787E+07        5.504350E+03        8.760445E+02        1.573991E-05        4.768857E+02             \r\n        6         6        3.766888E+07        6.137498E+03        9.768130E+02        4.759255E-06        1.792758E+02             \r\n        7         7        5.996818E+07        7.743913E+03        1.232482E+03        9.164933E-07        5.496044E+01             \r\n        8         8        8.176544E+07        9.042425E+03        1.439147E+03        7.987541E-07        6.531048E+01             \r\n        9         9        1.141160E+08        1.068251E+04        1.700174E+03        5.939601E-08        6.778037E+00             \r\n       10        10        1.504692E+08        1.226659E+04        1.952288E+03        4.392347E-08        6.609129E+00             \r\n       11        11        1.712611E+08        1.308667E+04        2.082809E+03        2.342833E-08        4.012361E+00             \r\n       12        12        2.271896E+08        1.507281E+04        2.398912E+03        3.318427E-08        7.539121E+00             \r\n       13        13        3.011417E+08        1.735344E+04        2.761885E+03        4.353843E-07        1.311124E+02             \r\n       14        14        3.870026E+08        1.967238E+04        3.130957E+03        6.384571E-08        2.470846E+01             \r\n       15        15        6.169219E+08        2.483791E+04        3.953076E+03        3.488603E-08        2.152196E+01             \r\n       16        16        9.248251E+08        3.041094E+04        4.840051E+03        5.998933E-08        5.547964E+01             \r\n       17        17        2.213750E+09        4.705050E+04        7.488320E+03        5.799542E-09        1.283873E+01             \r\n       18        18        7.633579E+09        8.737035E+04        1.390542E+04        4.605350E-10        3.515530E+00             \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n\r\n      K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TRAILER  -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n+                                                                                    5   = NMODES  \r\n0*** USER WARNING MESSAGE 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ENCOUNTERED IN MODULE CURV.\r\n STRESSES IN MATERIAL COORDINATE SYSTEM NOT COMPUTED.\r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.409739E-01   3.443218E-01   6.296960E-02   6.674589E-02   4.528563E-02   3.216298E-02                  \r\n                           215.4768        36.6361       217.2131       220.5782       214.9559        26.5290                      \r\n0            2      G      1.489117E-01   3.542188E-01   7.325535E-02   9.300107E-02   8.057744E-03   2.820553E-02                  \r\n                           214.9740        36.3413       217.0886       218.8844       215.2432        24.2726                      \r\n0            3      G      1.553341E-01   3.626435E-01   8.048176E-02   7.778843E-02   2.944256E-02   3.319633E-02                  \r\n                           214.6159        36.1084       216.9831       218.9455       217.2378        25.6771                      \r\n0            4      G      1.618812E-01   3.714009E-01   8.750291E-02   8.082120E-02   2.651636E-02   3.362914E-02                  \r\n                           214.2727        35.8727       216.8772       219.0310       216.2531        25.0590                      \r\n0            5      G      1.685735E-01   3.806211E-01   9.422144E-02   8.082120E-02   2.845032E-02   3.526795E-02                  \r\n                           213.9481        35.6351       216.7689       219.0310       215.9761        25.0129                      \r\n0            6      G      1.764669E-01   3.920515E-01   1.008751E-01   8.082120E-02   4.274179E-02   4.673259E-02                  \r\n                           213.6220        35.3722       216.6237       219.0310       214.4443        26.0272                      \r\n0            7      G      1.273451E-01   3.198231E-01   5.352313E-02   6.674589E-02   4.076413E-02   3.076491E-02                  \r\n                           215.6896        36.7874       217.2894       220.5782       214.6782        27.2777                      \r\n0            8      G      1.147533E-01   2.967017E-01   4.441697E-02   7.596558E-02   2.427315E-02   2.430888E-02                  \r\n                           215.9040        36.9343       217.3546       220.5369       210.5930        25.9868                      \r\n0            9      G      1.038231E-01   2.757860E-01   3.570867E-02   6.649358E-02   3.699798E-02   2.127922E-02                  \r\n                           216.1158        37.0699       217.3979       220.3653       213.7686        26.5273                      \r\n0           10      G      1.078474E-01   2.809370E-01   4.264910E-02   9.281599E-02   0.0            1.980200E-02                  \r\n                           215.7490        36.8763       217.3298       218.4610         0.0           24.4500                      \r\n0           11      G      1.126879E-01   2.874460E-01   4.908726E-02   7.566970E-02   2.391572E-02   2.593035E-02                  \r\n                           215.3681        36.6520       217.2283       218.3969       218.3412        26.5279                      \r\n0           12      G      1.179624E-01   2.946161E-01   5.552683E-02   7.214122E-02   3.113975E-02   2.867242E-02                  \r\n                           214.9859        36.4137       217.1176       218.1794       218.6721        26.6788                      \r\n0           13      G      1.234313E-01   3.022221E-01   6.178304E-02   7.289735E-02   3.219351E-02   3.040184E-02                  \r\n                           214.6068        36.1628       216.9995       217.7010       219.8573        26.6997                      \r\n0           14      G      1.290777E-01   3.101881E-01   6.790202E-02   9.648219E-02   0.0            2.463665E-02                  \r\n                           214.2350        35.9040       216.8785       218.1531         0.0           22.4786                      \r\n0           15      G      1.349160E-01   3.185990E-01   7.385061E-02   7.408148E-02   3.386218E-02   3.303919E-02                  \r\n                           213.8754        35.6396       216.7559       217.6922       219.4306        26.1494                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           16      G      1.408604E-01   3.273504E-01   7.956766E-02   7.601929E-02   3.274205E-02   3.378590E-02                  \r\n                           213.5288        35.3713       216.6301       217.5345       219.9967        25.8763                      \r\n0           17      G      1.468294E-01   3.367016E-01   8.459389E-02   9.676789E-02   0.0            2.689207E-02                  \r\n                           213.1976        35.0920       216.4839       218.1730         0.0           20.6425                      \r\n0           18      G      8.980951E-02   2.479829E-01   2.635743E-02   6.962018E-02   2.351038E-02   1.811166E-02                  \r\n                           216.3203        37.2255       217.4482       219.5505       213.8584        27.3573                      \r\n0           19      G      7.839042E-02   2.238784E-01   1.766256E-02   4.670084E-02   5.289420E-02   1.466622E-02                  \r\n                           216.5047        37.3591       217.4213       220.8464       214.8249        27.8075                      \r\n0           20      G      8.142074E-02   2.280613E-01   2.472043E-02   6.946362E-02   1.805644E-02   1.551238E-02                  \r\n                           216.1151        37.1599       217.4106       218.4643       217.0158        26.4027                      \r\n0           21      G      8.543988E-02   2.337776E-01   3.130363E-02   6.543668E-02   2.652949E-02   1.945933E-02                  \r\n                           215.6820        36.9136       217.3255       218.3309       217.5181        26.8059                      \r\n0           22      G      9.005081E-02   2.404258E-01   3.786994E-02   6.818778E-02   2.555285E-02   2.198196E-02                  \r\n                           215.2176        36.6314       217.2073       217.6548       219.6319        26.6977                      \r\n0           23      G      9.521803E-02   2.479971E-01   4.436043E-02   8.819751E-02   0.0            1.936462E-02                  \r\n                           214.7335        36.3165       217.0637       217.9213         0.0           22.8628                      \r\n0           24      G      1.008419E-01   2.563531E-01   5.076694E-02   7.189009E-02   2.771782E-02   2.627087E-02                  \r\n                           214.2455        35.9789       216.9095       217.6009       218.6538        25.7108                      \r\n0           25      G      1.068189E-01   2.654009E-01   5.702437E-02   7.037602E-02   3.340894E-02   2.932842E-02                  \r\n                           213.7611        35.6225       216.7429       217.5178       218.4019        25.7800                      \r\n0           26      G      1.130788E-01   2.751502E-01   6.293786E-02   6.917751E-02   3.859618E-02   3.260971E-02                  \r\n                           213.2922        35.2531       216.5649       217.7816       217.3906        25.6722                      \r\n0           27      G      1.195981E-01   2.859318E-01   6.814722E-02   9.248173E-02   0.0            2.443264E-02                  \r\n                           212.8399        34.8624       216.3505       217.8709         0.0           19.5235                      \r\n0           28      G      5.963291E-02   1.815231E-01   4.991157E-03   6.203572E-02   1.895454E-02   6.638766E-03                  \r\n                           216.7093        37.5635       216.8142       219.2326       211.5034        25.8441                      \r\n0           29      G      6.144460E-02   1.843234E-01   1.178518E-02   6.305342E-02   1.499990E-02   9.266251E-03                  \r\n                           216.3640        37.3892       217.3063       218.1646       216.9704        25.7964                      \r\n0           30      G      6.412289E-02   1.884129E-01   1.794361E-02   6.967437E-02   6.944365E-03   1.097000E-02                  \r\n                           215.9281        37.1476       217.3418       216.8664       234.2898        25.5008                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           31      G      6.756056E-02   1.936493E-01   2.406277E-02   6.822289E-02   1.205447E-02   1.363054E-02                  \r\n                           215.4199        36.8473       217.2715       217.1587       223.5628        25.1311                      \r\n0           32      G      7.163098E-02   1.999640E-01   3.008534E-02   6.574264E-02   1.998281E-02   1.706306E-02                  \r\n                           214.8642        36.4935       217.1414       217.1579       220.3394        25.3195                      \r\n0           33      G      7.633606E-02   2.073369E-01   3.613271E-02   6.496813E-02   2.581019E-02   2.062253E-02                  \r\n                           214.2728        36.0922       216.9741       217.1399       219.0250        25.3567                      \r\n0           34      G      8.162520E-02   2.158366E-01   4.195549E-02   6.521007E-02   3.042405E-02   2.416537E-02                  \r\n                           213.6697        35.6496       216.7763       217.1898       217.9769        25.2167                      \r\n0           35      G      8.743999E-02   2.254305E-01   4.751993E-02   6.430490E-02   3.653469E-02   2.833984E-02                  \r\n                           213.0703        35.1760       216.5501       217.3173       217.0968        25.2505                      \r\n0           36      G      9.388030E-02   2.368524E-01   5.228898E-02   8.478022E-02   0.0            2.321361E-02                  \r\n                           212.4879        34.6583       216.2523       217.4809         0.0           19.5914                      \r\n0           37      G      4.429381E-02   1.448475E-01   2.954923E-03   6.316349E-02   0.0            5.465515E-03                  \r\n                           216.8102        37.7445        39.8606       217.7796         0.0           28.6178                      \r\n0           38      G      4.584798E-02   1.473168E-01   3.100471E-03   5.629836E-02   1.137084E-02   6.714350E-03                  \r\n                           216.4836        37.5787       216.0797       217.4394       220.3008        27.2310                      \r\n0           39      G      4.771679E-02   1.503236E-01   8.599105E-03   5.813419E-02   1.005593E-02   7.505417E-03                  \r\n                           216.0715        37.3526       217.1568       217.0386       224.2231        25.4075                      \r\n0           40      G      5.001907E-02   1.540772E-01   1.401647E-02   5.478725E-02   1.841481E-02   9.629228E-03                  \r\n                           215.5617        37.0561       217.2729       217.1522       219.9794        24.9622                      \r\n0           41      G      5.285299E-02   1.587572E-01   1.931906E-02   5.690946E-02   1.910117E-02   1.185615E-02                  \r\n                           214.9652        36.6850       217.2135       217.0475       219.5373        24.3727                      \r\n0           42      G      5.630597E-02   1.645280E-01   2.454578E-02   5.796424E-02   2.223754E-02   1.476393E-02                  \r\n                           214.3001        36.2409       217.0717       216.9140       218.8225        24.2572                      \r\n0           43      G      6.037281E-02   1.715020E-01   2.953306E-02   5.972996E-02   2.472743E-02   1.785600E-02                  \r\n                           213.5947        35.7295       216.8718       216.8150       218.0502        24.0127                      \r\n0           44      G      6.509154E-02   1.798176E-01   3.423871E-02   6.155020E-02   2.727881E-02   2.143188E-02                  \r\n                           212.8719        35.1604       216.6193       216.7979       217.1105        23.7877                      \r\n0           45      G      7.083657E-02   1.907856E-01   3.821016E-02   7.566880E-02   0.0            2.145048E-02                  \r\n                           212.1648        34.5173       216.2525       217.0308         0.0           20.0809                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           46      G      3.243625E-02   1.137549E-01   7.496489E-03   5.196241E-02   2.007039E-03   4.308810E-03                  \r\n                           216.8239        37.9220        38.9303       218.4542       184.7278        31.0705                      \r\n0           47      G      3.347854E-02   1.155336E-01   2.300439E-03   4.569241E-02   1.232626E-02   4.528416E-03                  \r\n                           216.5242        37.7685        40.6856       217.7169       217.6001        27.4104                      \r\n0           48      G      3.472392E-02   1.177133E-01   2.419532E-03   4.432042E-02   1.736325E-02   5.046044E-03                  \r\n                           216.1328        37.5526       215.5702       217.5612       217.9087        24.9244                      \r\n0           49      G      3.617814E-02   1.202531E-01   6.973534E-03   4.483531E-02   1.958132E-02   6.296985E-03                  \r\n                           215.6317        37.2640       217.0666       217.3660       218.0478        23.7833                      \r\n0           50      G      3.798098E-02   1.234416E-01   1.138258E-02   4.707569E-02   1.935770E-02   7.958912E-03                  \r\n                           215.0171        36.8874       217.2456       217.0441       218.5059        23.1769                      \r\n0           51      G      4.024174E-02   1.274904E-01   1.568767E-02   4.951372E-02   1.955938E-02   9.966954E-03                  \r\n                           214.2984        36.4172       217.1956       216.7870       218.3896        22.7131                      \r\n0           52      G      4.302179E-02   1.325897E-01   1.973330E-02   5.161757E-02   2.134838E-02   1.250290E-02                  \r\n                           213.5052        35.8540       217.0375       216.5721       217.7541        22.4966                      \r\n0           53      G      4.642323E-02   1.390238E-01   2.343020E-02   5.366725E-02   2.378139E-02   1.577656E-02                  \r\n                           212.6614        35.1979       216.7946       216.3756       217.0323        22.4884                      \r\n0           54      G      5.094942E-02   1.483157E-01   2.642132E-02   6.534854E-02   0.0            1.762366E-02                  \r\n                           211.8205        34.4290       216.3923       216.5831         0.0           19.4653                      \r\n0           55      G      2.345225E-02   8.864103E-02   9.509845E-03   4.719145E-02   4.662631E-03   4.440300E-03                  \r\n                           216.7946        38.1137        39.0061       218.1877        47.1358        33.1122                      \r\n0           56      G      2.427430E-02   9.008216E-02   5.174092E-03   3.813737E-02   1.129917E-02   3.385675E-03                  \r\n                           216.4977        37.9591        39.5032       217.6770       217.4963        27.8562                      \r\n0           57      G      2.514366E-02   9.167644E-02   1.221278E-03   3.775352E-02   1.411293E-02   3.324326E-03                  \r\n                           216.1149        37.7473        43.1382       217.5358       217.7972        23.9455                      \r\n0           58      G      2.605923E-02   9.339634E-02   2.553567E-03   3.841766E-02   1.536540E-02   3.914920E-03                  \r\n                           215.6195        37.4624       215.9126       217.3272       218.0379        21.6848                      \r\n0           59      G      2.715379E-02   9.547602E-02   6.162683E-03   3.978544E-02   1.585769E-02   4.974842E-03                  \r\n                           214.9955        37.0853       217.1437       217.0312       218.3163        20.7831                      \r\n0           60      G      2.853921E-02   9.814913E-02   9.626591E-03   4.158643E-02   1.648874E-02   6.390624E-03                  \r\n                           214.2398        36.5994       217.3235       216.7269       218.1539        20.3513                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           61      G      3.028321E-02   1.015973E-01   1.279141E-02   4.336257E-02   1.832740E-02   8.283806E-03                  \r\n                           213.3770        35.9987       217.2731       216.4559       217.3029        20.2333                      \r\n0           62      G      3.251233E-02   1.061162E-01   1.561078E-02   4.579321E-02   1.974745E-02   1.079021E-02                  \r\n                           212.4298        35.2781       217.0944       216.1303       216.4853        20.2720                      \r\n0           63      G      3.589271E-02   1.135733E-01   1.777449E-02   3.495433E-02   4.781978E-02   2.576351E-02                  \r\n                           211.4697        34.3953       216.7121       223.2215       204.2586        21.4849                      \r\n0           64      G      1.616191E-02   6.689528E-02   9.875251E-03   4.045856E-02   6.977478E-03   4.875024E-03                  \r\n                           216.7439        38.3693        39.2867       217.8783        40.1378        33.8275                      \r\n0           65      G      1.693184E-02   6.826196E-02   6.341878E-03   3.156775E-02   9.638430E-03   2.893551E-03                  \r\n                           216.4107        38.1904        39.5928       217.7070       217.3410        28.6963                      \r\n0           66      G      1.761606E-02   6.956619E-02   3.183633E-03   3.116041E-02   1.198465E-02   2.397203E-03                  \r\n                           216.0129        37.9646        40.3994       217.6013       217.5232        23.4989                      \r\n0           67      G      1.822550E-02   7.077491E-02   1.726606E-04   3.164009E-02   1.285305E-02   2.520339E-03                  \r\n                           215.5071        37.6727        71.9715       217.3750       217.8754        19.4630                      \r\n0           68      G      1.887239E-02   7.210463E-02   2.725986E-03   3.252472E-02   1.342267E-02   3.066231E-03                  \r\n                           214.8677        37.2885       216.5558       217.0860       218.0554        17.6004                      \r\n0           69      G      1.965223E-02   7.374447E-02   5.414617E-03   3.391481E-02   1.377477E-02   3.873032E-03                  \r\n                           214.0791        36.7881       217.4339       216.7459       217.9333        16.7062                      \r\n0           70      G      2.062487E-02   7.583347E-02   7.824461E-03   3.619023E-02   1.340943E-02   4.775009E-03                  \r\n                           213.1543        36.1595       217.6079       216.3482       217.5016        15.6231                      \r\n0           71      G      2.192290E-02   7.864597E-02   9.841262E-03   3.967812E-02   1.158772E-02   6.027214E-03                  \r\n                           212.1193        35.3885       217.5900       215.8647       216.8533        14.9744                      \r\n0           72      G      2.411254E-02   8.389719E-02   1.129362E-02   1.827941E-02   6.860358E-02   2.424114E-02                  \r\n                           211.0640        34.4249       217.3607       224.9506       209.4821        24.7198                      \r\n0           73      G      1.047796E-02   4.866381E-02   9.127954E-03   3.410854E-02   9.019978E-03   5.623217E-03                  \r\n                           216.6648        38.7264        39.7391       217.7751        38.0584        34.2162                      \r\n0           74      G      1.128896E-02   5.014804E-02   6.370065E-03   2.587675E-02   7.795533E-03   2.743756E-03                  \r\n                           216.2436        38.4857        39.9692       217.8069       217.1861        29.6408                      \r\n0           75      G      1.190207E-02   5.135076E-02   3.871050E-03   2.542130E-02   9.934309E-03   1.934172E-03                  \r\n                           215.7950        38.2202        40.4264       217.6958       217.4191        23.8229                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           76      G      1.235661E-02   5.229200E-02   1.514748E-03   2.560394E-02   1.092756E-02   1.718369E-03                  \r\n                           215.2578        37.9034        42.2692       217.4743       217.7137        17.4490                      \r\n0           77      G      1.275330E-02   5.316687E-02   7.122235E-04   2.617826E-02   1.148115E-02   1.895948E-03                  \r\n                           214.5866        37.4992       212.6412       217.1506       217.9831        13.5162                      \r\n0           78      G      1.316778E-02   5.412599E-02   2.738732E-03   2.731810E-02   1.141290E-02   2.271652E-03                  \r\n                           213.7583        36.9788       217.4428       216.7803       217.9198        11.3095                      \r\n0           79      G      1.366392E-02   5.528556E-02   4.535617E-03   2.780261E-02   1.364030E-02   2.970543E-03                  \r\n                           212.7638        36.3188       218.0744       216.4972       216.5697        11.3311                      \r\n0           80      G      1.426569E-02   5.671747E-02   5.941836E-03   3.141459E-02   9.730224E-03   3.115006E-03                  \r\n                           211.6358        35.5089       218.3341       215.9406       215.9306         5.6236                      \r\n0           81      G      1.463873E-02   5.760890E-02   6.250774E-03   2.725566E-02   2.471318E-02   6.272464E-03                  \r\n                           211.0571        35.0385       218.5423       217.0179       211.2031        15.9521                      \r\n0           82      G      1.546131E-02   5.955666E-02   6.611346E-03   7.436207E-03   8.128863E-02   2.538104E-02                  \r\n                           210.4662        34.4769       218.5823       225.3017       212.6311        27.9805                      \r\n0           83      G      1.136366E-02   4.764863E-02   4.575885E-03   2.663984E-02   1.172162E-02   2.404302E-03                  \r\n                           211.2508        35.5410       218.8389       216.1636       214.7283         1.2040                      \r\n0           84      G      1.157248E-02   4.813218E-02   4.799887E-03   2.184885E-02   2.995792E-02   5.377316E-03                  \r\n                           210.6322        35.0585       219.1854       217.1011       212.3602        16.5302                      \r\n0           85      G      1.187953E-02   4.880645E-02   4.948673E-03   3.540910E-03   1.101523E-01   2.101127E-02                  \r\n                           209.9759        34.5201       219.5206       358.0977       211.8706        27.3541                      \r\n0           86      G      6.251048E-03   3.379210E-02   7.831351E-03   2.351846E-02   1.040538E-03   4.645948E-03                  \r\n                           216.4916        39.2316        40.3657       217.9985        40.9012        33.6478                      \r\n0           87      G      7.087155E-03   3.538833E-02   5.684020E-03   2.037687E-02   6.666910E-03   2.605153E-03                  \r\n                           215.9196        38.8755        40.5837       218.0361       216.8688        30.2555                      \r\n0           88      G      7.658521E-03   3.656546E-02   3.800235E-03   1.994490E-02   8.776160E-03   1.644545E-03                  \r\n                           215.3892        38.5319        40.9030       217.9130       217.1004        24.3612                      \r\n0           89      G      8.030691E-03   3.736844E-02   2.008176E-03   2.015318E-02   9.479970E-03   1.237318E-03                  \r\n                           214.7906        38.1621        41.7566       217.6346       217.5279        15.7992                      \r\n0           90      G      8.283633E-03   3.795952E-02   3.510470E-04   2.078017E-02   9.563639E-03   1.154743E-03                  \r\n                           214.0633        37.7193        50.0383       217.2711       217.8390         7.5428                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0           91      G      8.482917E-03   3.846526E-02   1.156777E-03   2.168062E-02   9.568807E-03   1.245769E-03                  \r\n                           213.1627        37.1631       217.1278       216.8667       217.7460         1.3832                      \r\n0           92      G      8.683319E-03   3.898814E-02   2.407038E-03   2.210480E-02   1.138087E-02   1.596102E-03                  \r\n                           212.0671        36.4545       218.8720       216.5033       216.6322         0.9676                      \r\n0           93      G      8.952613E-03   3.958777E-02   3.344655E-03   2.604447E-02   4.289154E-03   1.223383E-03                  \r\n                           210.7804        35.5681       219.6168       215.6746       220.8570       330.9296                      \r\n0           94      G      9.074759E-03   3.987316E-02   3.521744E-03   2.735412E-02   2.613009E-03   1.199321E-03                  \r\n                           210.1148        35.0554       220.1097       215.3705       225.1612       308.8759                      \r\n0           95      G      9.306718E-03   4.037769E-02   3.639118E-03   3.909531E-02   3.292284E-02   5.206130E-03                  \r\n                           209.4272        34.4821       220.5808       215.9265        37.2889       234.3647                      \r\n0           96      G      6.901601E-03   3.246736E-02   2.430817E-03   2.119560E-02   9.631631E-03   1.242236E-03                  \r\n                           210.0719        35.5331       220.6931       216.1743       214.3309       339.0295                      \r\n0           97      G      6.971538E-03   3.253343E-02   2.529395E-03   2.032267E-02   1.488708E-02   1.745277E-03                  \r\n                           209.3250        34.9802       221.5042       216.3632       212.3540       350.8278                      \r\n0           98      G      7.087641E-03   3.267226E-02   2.590977E-03   7.361520E-03   6.120526E-02   9.451956E-03                  \r\n                           208.5336        34.3609       222.2767       227.4607       210.5309        22.5406                      \r\n0           99      G      3.369296E-03   2.222574E-02   6.344413E-03   1.650702E-02   3.094731E-03   3.505907E-03                  \r\n                           215.9814        39.9206        41.1549       218.6378       213.1143        33.0386                      \r\n0          100      G      4.128193E-03   2.378240E-02   4.703071E-03   1.689799E-02   3.106543E-03   2.597169E-03                  \r\n                           215.2223        39.3679        41.3899       218.3282       215.2421        31.1451                      \r\n0          101      G      4.640281E-03   2.489810E-02   3.269956E-03   1.587644E-02   6.350882E-03   1.476554E-03                  \r\n                           214.5977        38.8946        41.6772       218.1114       217.0394        25.1600                      \r\n0          102      G      4.946823E-03   2.559255E-02   1.956418E-03   1.578685E-02   7.460117E-03   8.900511E-04                  \r\n                           213.9221        38.4351        42.1950       217.7670       217.7027        13.2758                      \r\n0          103      G      5.104473E-03   2.597373E-02   7.580150E-04   1.630121E-02   7.435632E-03   6.162241E-04                  \r\n                           213.1007        37.9253        43.8642       217.3310       218.2023       352.3724                      \r\n0          104      G      5.161937E-03   2.613079E-02   2.759779E-04   1.724176E-02   6.851801E-03   5.582423E-04                  \r\n                           212.0640        37.3062       215.6264       216.8572       218.3193       324.1927                      \r\n0          105      G      5.171585E-03   2.615022E-02   1.103711E-03   1.709148E-02   1.007223E-02   7.186370E-04                  \r\n                           210.7512        36.5193       220.9243       216.4888       216.5333       324.8684                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          106      G      5.221650E-03   2.612806E-02   1.632948E-03   2.099065E-02   1.112853E-03   1.094310E-03                  \r\n                           209.1599        35.4936       222.6051       215.6397       229.6934       266.2995                      \r\n0          107      G      5.250941E-03   2.610359E-02   1.689959E-03   2.185527E-02   3.060159E-04   1.342705E-03                  \r\n                           208.3190        34.8777       223.8651       215.4047       357.1020       261.1002                      \r\n0          108      G      5.385858E-03   2.632178E-02   1.760098E-03   2.236982E-02   3.876847E-03   1.663487E-03                  \r\n                           207.4737        34.1685       224.8147       217.5278        85.4110       303.4631                      \r\n0          109      G      3.813792E-03   2.060384E-02   1.102422E-03   1.608230E-02   8.108968E-03   8.557059E-04                  \r\n                           207.7829        35.3859       225.4837       216.0880       213.5478       282.3557                      \r\n0          110      G      3.810974E-03   2.041010E-02   1.126254E-03   1.536947E-02   1.280793E-02   1.028228E-03                  \r\n                           206.7677        34.7048       227.5529       216.7254       209.2680       313.8357                      \r\n0          111      G      3.863281E-03   2.033172E-02   1.155158E-03   1.484949E-03   7.410964E-02   9.073327E-03                  \r\n                           205.7289        33.9168       229.3069       307.1836       210.6447        23.8978                      \r\n0          112      G      1.426826E-03   1.329648E-02   4.788423E-03   1.453477E-02   0.0            3.530449E-03                  \r\n                           213.9195        40.8982        42.1784       218.5046         0.0           33.2023                      \r\n0          113      G      2.102023E-03   1.477458E-02   3.545212E-03   1.098571E-02   8.910840E-03   1.692016E-03                  \r\n                           213.4267        40.0030        42.5216       218.5536       217.6408        28.5053                      \r\n0          114      G      2.558996E-03   1.585134E-02   2.506645E-03   1.146712E-02   7.595091E-03   1.143929E-03                  \r\n                           212.9142        39.3108        42.8162       218.2091       217.9412        23.7142                      \r\n0          115      G      2.812313E-03   1.646568E-02   1.566633E-03   1.160274E-02   7.605189E-03   5.881960E-04                  \r\n                           212.2169        38.7094        43.1969       217.8048       218.3287         7.4415                      \r\n0          116      G      2.905523E-03   1.669532E-02   7.443235E-04   1.191178E-02   7.518825E-03   3.318272E-04                  \r\n                           211.2622        38.0968        43.6434       217.3392       218.5113       314.4318                      \r\n0          117      G      2.878479E-03   1.660376E-02   7.444193E-05   1.262092E-02   6.657605E-03   5.246436E-04                  \r\n                           209.9484        37.3886        40.0417       216.8160       218.4811       264.2733                      \r\n0          118      G      2.770621E-03   1.625345E-02   3.985966E-04   1.312355E-02   7.005962E-03   8.777770E-04                  \r\n                           208.1456        36.4905       228.4959       216.2863       217.2072       249.5671                      \r\n0          119      G      2.711922E-03   1.579161E-02   6.503088E-04   1.536567E-02   1.528502E-03   1.305818E-03                  \r\n                           205.9166        35.2650       231.7328       215.5062       218.4275       244.7368                      \r\n0          120      G      2.678148E-03   1.554560E-02   6.654839E-04   1.548710E-02   2.345399E-03   1.212683E-03                  \r\n                           204.6523        34.4883       235.2926       215.0846       217.0142       252.8244                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          121      G      2.737920E-03   1.556390E-02   7.181827E-04   1.567676E-02   2.411723E-03   1.064645E-03                  \r\n                           203.4858        33.5436       237.0327       215.0895       206.7859       326.2167                      \r\n0          122      G      1.795012E-03   1.164959E-02   4.201974E-04   1.077874E-02   9.942940E-03   1.064616E-03                  \r\n                           202.7386        35.0916       240.5710       215.7503       213.6854       246.6546                      \r\n0          123      G      1.752136E-03   1.125291E-02   4.351211E-04   9.897267E-03   1.533408E-02   7.998694E-04                  \r\n                           200.9962        34.2117       245.9234       215.5396       212.5609       272.1305                      \r\n0          124      G      1.754375E-03   1.097169E-02   4.749997E-04   1.064204E-02   1.060114E-01   9.178719E-03                  \r\n                           199.2815        33.1121       248.5091        25.7255       210.4689        25.1545                      \r\n0          125      G      2.734316E-04   6.556462E-03   3.209015E-03   1.168225E-02   1.056034E-03   3.637609E-03                  \r\n                           196.4667        42.8136        43.9262       218.8912        43.5041        34.2597                      \r\n0          126      G      8.362639E-04   8.025878E-03   2.365275E-03   8.811124E-03   6.027313E-03   1.757684E-03                  \r\n                           207.7077        40.9872        44.4167       218.9597       217.0097        30.5996                      \r\n0          127      G      1.199953E-03   9.039656E-03   1.670867E-03   8.139226E-03   7.618713E-03   7.963020E-04                  \r\n                           208.8102        39.8533        44.7483       218.6710       217.3667        22.0004                      \r\n0          128      G      1.379875E-03   9.565921E-03   1.054489E-03   7.923575E-03   8.370353E-03   2.360164E-04                  \r\n                           208.4379        39.0144        45.0002       218.1954       217.5907       328.7723                      \r\n0          129      G      1.417640E-03   9.676712E-03   5.375334E-04   7.870301E-03   8.894849E-03   4.675963E-04                  \r\n                           207.2520        38.2552        44.4789       217.5530       217.7827       247.4243                      \r\n0          130      G      1.352844E-03   9.429065E-03   1.496927E-04   8.326766E-03   7.702095E-03   8.114824E-04                  \r\n                           205.1828        37.4291        34.2902       216.8706       217.5932       235.7327                      \r\n0          131      G      1.235114E-03   8.902889E-03   1.266404E-04   8.949078E-03   5.691535E-03   1.159768E-03                  \r\n                           202.0151        36.3915       260.2933       215.8243       218.5477       231.7561                      \r\n0          132      G      1.134379E-03   8.213728E-03   2.500398E-04   9.399489E-03   4.693413E-03   1.423417E-03                  \r\n                           197.8758        34.9270       259.9522       214.7640       216.8381       231.6656                      \r\n0          133      G      1.081849E-03   7.782131E-03   2.782184E-04   9.823779E-03   3.125470E-03   1.624390E-03                  \r\n                           195.2828        33.9390       266.8893       213.7775       219.5641       231.5306                      \r\n0          134      G      1.096285E-03   7.590809E-03   3.339151E-04   1.391486E-02   1.244213E-02   1.274989E-03                  \r\n                           193.2694        32.6114       265.4297       212.8104        31.6689       243.8859                      \r\n0          135      G      6.516313E-04   5.536603E-03   2.069750E-04   5.001563E-03   1.262016E-02   1.193862E-03                  \r\n                           188.8831        34.7972       273.4247       216.7899       210.5992       231.7094                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          136      G      6.005989E-04   5.067579E-03   2.494942E-04   3.582027E-03   1.854400E-02   1.024795E-03                  \r\n                           184.0902        33.7515       275.7098       208.9058       217.7348       229.9785                      \r\n0          137      G      5.628245E-04   4.615113E-03   2.981349E-04   1.176197E-02   9.083731E-02   3.371512E-03                  \r\n                           178.6822        32.3415       274.7636        30.8846       211.3545        23.3409                      \r\n0          138      G      3.964437E-04   1.836278E-03   1.797656E-03   8.452253E-03   1.267395E-03   3.675820E-03                  \r\n                            52.3571        50.6294        47.6024       219.3671        43.4742        34.9977                      \r\n0          139      G      1.581574E-04   3.287985E-03   1.329469E-03   5.580768E-03   6.338783E-03   1.439318E-03                  \r\n                           161.7293        43.1579        48.1895       219.5741       217.2640        30.7906                      \r\n0          140      G      3.994617E-04   4.245333E-03   9.309640E-04   4.866674E-03   7.833407E-03   4.305433E-04                  \r\n                           194.7135        40.7119        48.5129       219.2989       217.3121        16.0856                      \r\n0          141      G      5.187319E-04   4.707004E-03   5.828170E-04   4.376367E-03   9.220636E-03   2.769607E-04                  \r\n                           197.8452        39.3976        48.4260       218.7096       217.4015       250.2319                      \r\n0          142      G      5.386962E-04   4.798070E-03   2.988005E-04   3.916248E-03   1.036222E-02   6.306294E-04                  \r\n                           196.6466        38.4129        46.0329       217.8373       217.4149       230.6479                      \r\n0          143      G      4.965977E-04   4.586161E-03   9.966782E-05   3.125693E-03   1.242110E-02   7.497218E-04                  \r\n                           192.5148        37.4536        24.4221       216.7019       217.1587       228.2998                      \r\n0          144      G      4.429457E-04   4.207174E-03   9.658824E-05   2.528518E-03   1.299777E-02   6.425642E-04                  \r\n                           186.0094        36.3134       296.1363       215.7359       215.9848       230.6303                      \r\n0          145      G      3.848653E-04   3.683789E-03   1.931725E-04   1.145327E-03   1.694616E-02   6.386797E-04                  \r\n                           176.1517        34.7536       281.0549       215.5937       213.9176       233.4429                      \r\n0          146      G      3.506495E-04   3.319655E-03   2.409947E-04   4.199360E-03   0.0            1.402491E-03                  \r\n                           168.3948        33.7183       279.3387       213.3683         0.0          222.7789                      \r\n0          147      G      3.422450E-04   3.061819E-03   2.919028E-04   6.799992E-03   1.254758E-02   1.330766E-03                  \r\n                           162.4959        32.2346       277.0616       212.1071        32.8846       226.2461                      \r\n0          148      G      5.016602E-04   9.490651E-04   7.061347E-04   3.571730E-03   5.708921E-04   3.065849E-03                  \r\n                            47.7862       204.4869        58.7097       220.9200       210.4385        35.4588                      \r\n0          149      G      1.963406E-04   4.501227E-04   5.460426E-04   2.796991E-03   2.656133E-03   1.553866E-03                  \r\n                            69.0083        58.0863        58.3246       219.7766       220.3468        32.7665                      \r\n0          150      G      1.116544E-04   1.260048E-03   3.894633E-04   1.772291E-03   6.575030E-03   2.787402E-04                  \r\n                           130.4718        42.5306        57.3451       219.8696       218.1941        16.0699                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          151      G      1.464542E-04   1.698270E-03   2.509943E-04   2.571038E-03   7.418690E-04   4.892011E-04                  \r\n                           164.7042        39.7833        54.1764       218.6126       215.6418        28.6792                      \r\n0          152      G      1.618043E-04   1.845215E-03   1.345593E-04   1.796776E-03   3.983392E-03   3.229282E-04                  \r\n                           169.4656        38.4490        43.8913       217.8476       217.2654       229.4963                      \r\n0          153      G      1.597698E-04   1.800722E-03   5.939832E-05   1.917205E-03   2.074064E-03   3.094127E-04                  \r\n                           164.0144        37.3518       352.9669       217.0751       214.3236       228.4123                      \r\n0          154      G      1.539192E-04   1.657772E-03   1.156069E-04   2.373114E-03   1.293020E-04   4.173645E-04                  \r\n                           154.2597        35.9910       299.8503       216.1835       103.3839       227.4575                      \r\n0          155      G      1.488299E-04   1.351300E-03   2.045632E-04   2.343127E-03   2.572293E-04   6.522882E-04                  \r\n                           135.3936        33.7745       288.1223       215.3557       170.7041       223.8930                      \r\n0          156      G      1.668462E-04   9.389155E-04   3.163354E-04   2.172202E-03   4.351613E-04   9.374197E-04                  \r\n                           109.4040        29.3290       275.4534       214.3162       185.6971       222.1768                      \r\n0          157      G      2.842770E-04   1.294642E-03   3.420873E-04   2.245952E-03   4.810510E-03   3.285217E-03                  \r\n                            49.8693       212.8504        75.5510       220.3945        38.2937        36.5827                      \r\n0          158      G      1.783490E-04   6.100071E-04   2.928962E-04   1.752345E-03   1.307743E-04   1.577713E-03                  \r\n                            58.4480       209.4521        73.2702       219.8882        15.7975        34.5870                      \r\n0          159      G      1.101250E-04   8.524040E-05   2.351496E-04   1.540314E-03   1.568685E-03   9.498007E-04                  \r\n                            74.4662       167.3012        71.2613       219.8301       217.7194        33.5535                      \r\n0          160      G      7.790604E-05   3.669204E-04   1.769034E-04   1.338958E-03   1.798225E-03   6.713451E-04                  \r\n                            98.7112        44.7859        67.6113       220.4123       212.7758        34.8443                      \r\n0          161      G      7.965713E-05   6.483053E-04   4.644717E-05   1.365460E-03   1.276456E-03   4.100544E-04                  \r\n                           156.2662        40.2705       120.1293       219.2533       212.5974        33.1609                      \r\n0          162      G      7.968888E-05   7.552549E-04   2.168187E-05   1.234494E-03   1.373033E-03   1.534722E-04                  \r\n                           158.9960        39.1325       122.3313       219.0009       211.2998        28.0573                      \r\n0          163      G      7.681581E-05   8.007697E-04   4.549112E-06   1.275115E-03   9.505601E-04   3.676933E-05                  \r\n                           156.7580        38.4754       221.1769       218.8039       204.4999         1.0617                      \r\n0          164      G      7.271254E-05   7.846273E-04   2.715836E-05   1.185182E-03   1.754130E-03   1.489809E-04                  \r\n                           150.0395        37.8707       279.2070       218.6163       209.8291       226.2882                      \r\n0          165      G      6.904748E-05   7.193747E-04   5.852567E-05   1.131028E-03   3.395960E-03   3.202375E-04                  \r\n                           137.8405        37.2537       285.2594       218.9604       211.0675       221.2964                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          166      G      9.611902E-05   8.552002E-04   1.597524E-04   2.001212E-03   2.327739E-04   5.288966E-04                  \r\n                           114.5872        35.3553       268.0626       215.7779       204.9925       223.7437                      \r\n0          167      G      1.314947E-04   9.238855E-04   2.391855E-04   1.949806E-03   1.465680E-03   8.693745E-04                  \r\n                           107.5573        32.8166       272.4175       213.6674       221.6363       223.8418                      \r\n0          168      G      4.935602E-05   2.899453E-04   4.459430E-05   8.419275E-04   2.875668E-03   5.062949E-04                  \r\n                           145.3837        41.5869       110.8108       219.4355       216.3205        34.9144                      \r\n0          169      G      4.991956E-05   3.906578E-04   2.714423E-05   3.492538E-05   1.145620E-02   2.287494E-04                  \r\n                           151.2410        39.8810       110.9174        18.7341       217.7917        32.0160                      \r\n0          170      G      4.996569E-05   4.530500E-04   1.279189E-05   6.113251E-04   1.761883E-02   7.833323E-05                  \r\n                           154.1627        39.0672       109.6462        36.6311       217.5959        23.7211                      \r\n0          171      G      4.944295E-05   4.815067E-04   2.452952E-06   7.215460E-04   1.878688E-02   3.682826E-05                  \r\n                           153.8779        38.5487       234.1474        37.2484       217.6418         9.9770                      \r\n0          172      G      4.788512E-05   4.719581E-04   1.647039E-05   3.231812E-04   1.490528E-02   5.923495E-05                  \r\n                           149.7735        38.1342       276.0104        36.0907       217.3667       235.2217                      \r\n0          173      G      4.668296E-05   4.253224E-04   3.215405E-05   3.485712E-05   1.202899E-02   1.769195E-04                  \r\n                           141.4871        37.7235       279.8673        21.8092       217.1307       223.8460                      \r\n0          174      G      4.831309E-05   3.546634E-04   5.082372E-05   3.397026E-04   8.454705E-03   3.402616E-04                  \r\n                           130.8475        37.2099       278.5164       217.7013       217.3671       220.4211                      \r\n0          175      G      9.280830E-05   1.592593E-03   1.715657E-04   1.504447E-03   2.947749E-04   1.558163E-03                  \r\n                            50.0442       215.8177       124.0393       220.9088        84.7406        37.3077                      \r\n0          176      G      4.497993E-05   7.452550E-04   1.139528E-04   1.284425E-03   1.992829E-03   7.911108E-04                  \r\n                            65.6413       215.6741       112.4810       220.8330       212.8212        35.9022                      \r\n0          177      G      3.263687E-05   1.268618E-04   7.027415E-05   1.260900E-03   9.993184E-04   8.237290E-04                  \r\n                           106.4838       210.2379       101.5242       220.8269       204.6360        36.9417                      \r\n0          178      G      2.167101E-05   3.730107E-05   3.571147E-05   1.704424E-05   8.123470E-03   4.604953E-04                  \r\n                           137.3176       204.0667       126.0443       290.6252       217.8593        35.4802                      \r\n0          179      G      2.197612E-05   9.823198E-05   2.007043E-05   5.678161E-04   1.477731E-02   1.489024E-04                  \r\n                           147.5667        41.6027       124.0850        35.5840       217.2028        33.8944                      \r\n0          180      G      2.197527E-05   1.658359E-04   8.975711E-06   7.097530E-04   1.663241E-02   8.389464E-05                  \r\n                           152.8147        39.3065       121.5333        36.2758       217.2325        31.1868                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          181      G      2.172457E-05   1.939321E-04   6.959802E-07   8.293731E-04   1.856777E-02   3.666640E-05                  \r\n                           153.5036        38.5086       289.6260        37.1050       217.5192        22.1219                      \r\n0          182      G      2.124021E-05   1.887496E-04   1.029307E-05   8.009065E-04   1.833456E-02   1.143190E-05                  \r\n                           149.4717        37.9476       297.0735        37.9785       217.9203       344.6537                      \r\n0          183      G      2.108478E-05   1.522921E-04   2.044876E-05   6.249396E-04   1.602381E-02   5.199387E-05                  \r\n                           140.6170        37.2575       296.1013        38.2388       217.9002       227.1515                      \r\n0          184      G      2.221441E-05   8.161563E-05   3.130212E-05   3.798113E-04   1.283414E-02   1.500362E-04                  \r\n                           126.3327        35.4224       295.3775        38.7211       217.8553       221.1283                      \r\n0          185      G      1.034550E-05   1.330138E-05   2.112047E-05   2.045448E-04   0.0            2.123044E-04                  \r\n                           121.7584       200.8862       123.4717       220.9574         0.0           36.2891                      \r\n0          186      G      8.197561E-06   3.225582E-05   1.256042E-05   2.433961E-04   0.0            1.116576E-04                  \r\n                           139.5031        42.7249       120.9065       219.5891         0.0           35.1956                      \r\n0          187      G      7.841784E-06   6.247910E-05   5.676299E-06   2.631861E-04   0.0            5.786210E-05                  \r\n                           153.5389        39.4443       117.6354       218.8651         0.0           32.5699                      \r\n0          188      G      8.010585E-06   7.770213E-05   5.640618E-07   2.740350E-04   0.0            1.983786E-05                  \r\n                           158.4109        38.4652       317.4822       218.3067         0.0           21.9216                      \r\n0          189      G      8.253035E-06   7.610362E-05   6.530398E-06   2.810437E-04   0.0            1.626286E-05                  \r\n                           153.7276        37.7493       297.8224       217.8131         0.0          236.9834                      \r\n0          190      G      9.008919E-06   6.026680E-05   1.267662E-05   2.774982E-04   0.0            6.308955E-05                  \r\n                           141.4203        36.8757       295.8735       217.4062         0.0          222.2409                      \r\n0          191      G      1.114106E-05   3.421670E-05   1.861667E-05   2.540949E-04   0.0            1.172684E-04                  \r\n                           126.6995        34.8192       294.9545       216.9435         0.0          220.0040                      \r\n0          192      G      1.988683E-06   7.211261E-06   4.584501E-06   1.977387E-05   0.0            6.641696E-05                  \r\n                           106.4306       212.8482       122.5817       230.6198         0.0           37.5697                      \r\n0          193      G      5.767367E-07   2.536732E-06   3.529871E-06   5.655353E-05   0.0            5.201923E-05                  \r\n                           136.3839        49.3471       119.7478       221.1908         0.0           36.2338                      \r\n0          194      G      7.095482E-07   1.025086E-05   1.737909E-06   7.739857E-05   0.0            2.666259E-05                  \r\n                           209.9731        39.7913       115.6549       219.4056         0.0           33.0649                      \r\n0          195      G      1.026738E-06   1.464439E-05   1.684345E-07   8.719569E-05   0.0            4.067780E-06                  \r\n                           199.8002        38.4361       331.4742       218.1572         0.0            7.0271                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n                                       C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          196      G      9.928207E-07   1.248799E-05   1.950118E-06   8.055883E-05   0.0            1.194867E-05                  \r\n                           179.1717        37.5809       298.0511       217.1794         0.0          230.1681                      \r\n0          197      G      1.720205E-06   7.519865E-06   3.574865E-06   5.663552E-05   0.0            3.460683E-05                  \r\n                           134.4463        36.4308       295.8301       216.1415         0.0          221.6324                      \r\n0          198      G      3.688624E-06   5.160496E-07   4.251539E-06   2.533447E-05   0.0            4.677251E-05                  \r\n                           116.2169        11.5881       295.0182       214.7547         0.0          219.2293                      \r\n0          199      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          200      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          201      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          202      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          203      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          204      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          205      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n                             0.0            0.0            0.0            0.0            0.0            0.0                         \r\n0          206      G      6.458534E-05   1.148702E-03   1.427547E-04   1.450929E-03   5.521074E-04   1.213053E-03                  \r\n                            56.3042       215.7617       118.4430       220.4941       206.1228        35.8529                      \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0       1   -7.850000E-03      8.441191E+03 /  32.1871           4.118980E+03 /  36.2314           5.064342E+03 / 213.7046          \r\n             7.850000E-03      3.230192E+03 /  38.1995           1.058827E+03 / 225.7363           5.491252E+03 / 213.1182          \r\n0       2   -1.413500E-02      7.924375E+03 /  34.0290           3.736654E+03 /  36.9618           3.312382E+03 / 213.9228          \r\n             1.413500E-02      3.853108E+02 / 212.8734           2.974549E+02 / 334.0775           1.319098E+03 / 212.1628          \r\n0       3   -9.485000E-03      1.014258E+04 /  33.2645           7.636311E+02 /  40.6020           9.045567E+02 /  24.8654          \r\n             9.485000E-03      5.119498E+03 /  33.0028           2.018729E+03 / 215.7773           1.120488E+03 /  41.5981          \r\n0       4   -1.690000E-02      4.611821E+03 /  32.6411           2.770548E+03 /  41.4483           2.352999E+03 / 213.7924          \r\n             1.690000E-02      7.238606E+02 / 199.8624           2.776138E+03 / 221.4153           1.433081E+02 / 202.3721          \r\n0       5   -1.021500E-02      5.865805E+03 /  31.8473           6.668147E+02 /  38.4483           1.012453E+03 /  24.8696          \r\n             1.021500E-02      2.995600E+03 /  35.2859           5.055988E+02 / 220.5404           1.801658E+03 /  38.0731          \r\n0       6   -1.811500E-02      3.152061E+03 /  31.7170           1.962811E+03 /  44.3654           8.016835E+02 / 212.4574          \r\n             1.811500E-02      1.295764E+03 / 204.6196           3.399298E+03 / 219.2300           6.341990E+02 /  32.5924          \r\n0       7   -1.458500E-02      4.086356E+03 /  30.2111           6.459930E+02 /  44.5442           6.238795E+02 /  37.9961          \r\n             1.458500E-02      9.430090E+02 /  44.7325           1.447337E+03 / 217.8905           7.099972E+02 / 218.3539          \r\n0       8   -2.220000E-02      4.744153E+02 / 349.5682           5.463571E+02 /  69.5284           1.564146E+02 / 219.6228          \r\n             2.220000E-02      5.495145E+02 / 161.9952           1.646595E+03 / 223.7270           1.274530E+03 /  32.3174          \r\n0       9   -1.915000E-02      2.460781E+03 /  27.4318           6.429599E+02 /  51.1284           3.279085E+02 / 214.5117          \r\n             1.915000E-02      4.912360E+02 /  63.1979           7.473456E+02 / 229.9126           1.171915E+03 /  32.3799          \r\n0      10   -2.126500E-02      1.795928E+03 /  29.4254           1.066902E+03 /  50.9622           1.183320E+02 /  21.5942          \r\n             2.126500E-02      2.116956E+03 / 208.3498           1.507044E+03 / 225.8050           1.392708E+03 /  32.9566          \r\n0      11   -1.838500E-02      2.013858E+03 /  27.9456           8.234543E+02 /  44.4498           3.270869E+01 /  50.2806          \r\n             1.838500E-02      4.515459E+02 / 187.7673           4.060951E+02 / 240.5676           9.807263E+02 /  31.5540          \r\n0      12   -1.698500E-02      7.536466E+02 /  22.2854           9.306414E+02 /  46.5536           2.148410E+02 /  20.8317          \r\n             1.698500E-02      1.682331E+03 / 207.4718           7.704913E+02 / 231.1076           1.369852E+03 /  34.2854          \r\n0      13   -1.370000E-02      1.395587E+03 /  27.9579           1.117745E+03 /  38.1318           1.308336E+02 / 216.4164          \r\n             1.370000E-02      7.868623E+02 / 202.6374           1.291920E+02 / 306.0221           9.231991E+02 /  33.3092          \r\n0      14   -8.365000E-03      2.486163E+02 / 346.2885           1.097805E+03 /  36.0325           5.164753E+02 /  29.2337          \r\n             8.365000E-03      1.173097E+03 / 204.5474           1.489208E+02 / 241.4218           7.153237E+02 /  37.9677          \r\n0      15   -4.115000E-03      2.440828E+03 /  29.4152           2.292597E+03 /  32.4685           7.551898E+02 / 211.5722          \r\n             4.115000E-03      2.349616E+03 / 209.1185           4.883111E+02 / 209.8178           1.129718E+03 /  32.2763          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      16   -9.850000E-03      1.071771E+04 /  33.5788           6.254196E+03 /  36.1842           7.146840E+03 / 214.1435          \r\n             9.850000E-03      3.267255E+03 /  36.3526           8.814428E+02 / 231.4007           8.075038E+03 / 214.0884          \r\n0      17   -1.775000E-02      8.611290E+03 /  33.4448           7.382196E+03 /  36.8927           4.878739E+03 / 214.3861          \r\n             1.775000E-02      8.667794E+02 /  43.6399           1.369471E+03 / 230.3698           2.388887E+03 / 213.0736          \r\n0      18   -1.195000E-02      1.319241E+04 /  33.7464           1.217942E+03 /  38.1356           9.547849E+02 /  22.7606          \r\n             1.195000E-02      7.499366E+03 /  34.2340           2.542001E+03 / 215.5682           2.215832E+03 /  39.1880          \r\n0      19   -2.125000E-02      6.520386E+03 /  32.6662           6.041119E+03 /  38.4059           2.694859E+03 / 214.1921          \r\n             2.125000E-02      1.358758E+03 / 204.5911           5.362954E+03 / 218.9286           9.364470E+02 / 214.1555          \r\n0      20   -1.743500E-02      1.250804E+04 /  32.2266           3.293686E+03 /  35.8036           1.227952E+03 / 213.0401          \r\n             1.743500E-02      1.865912E+03 / 202.4175           3.030151E+03 / 216.0097           2.012346E+03 / 214.8656          \r\n0      21   -2.371500E-02      7.393927E+03 /  32.1084           3.109779E+03 /  41.0810           8.678301E+02 / 213.2395          \r\n             2.371500E-02      1.807902E+03 / 204.9591           4.749409E+03 / 218.4143           6.828359E+02 /  29.3024          \r\n0      22   -2.923500E-02      3.846730E+03 /  27.5996           3.213275E+03 /  42.6681           1.869517E+03 / 214.6290          \r\n             2.923500E-02      2.354234E+03 / 201.4273           4.899519E+03 / 219.5262           1.862896E+03 /  33.0579          \r\n0      23   -2.706500E-02      5.067217E+03 /  30.0387           2.499807E+03 /  43.4684           8.516657E+02 / 216.7769          \r\n             2.706500E-02      1.798394E+03 / 200.4521           4.207440E+03 / 219.4547           2.434038E+03 /  33.5447          \r\n0      24   -3.016500E-02      3.281004E+03 /  27.4123           2.624838E+03 /  44.6275           6.987540E+02 / 215.3258          \r\n             3.016500E-02      3.576103E+03 / 206.8292           4.720021E+03 / 219.6887           2.601855E+03 /  33.0960          \r\n0      25   -2.790000E-02      4.233333E+03 /  29.8541           2.263005E+03 /  45.1343           3.396744E+02 / 217.0664          \r\n             2.790000E-02      2.410309E+03 / 204.8595           3.781521E+03 / 220.3865           2.331177E+03 /  33.0868          \r\n0      26   -2.831500E-02      2.584457E+03 /  26.0366           2.418028E+03 /  44.1647           2.962192E+01 / 273.1570          \r\n             2.831500E-02      4.196858E+03 / 208.4009           4.162271E+03 / 219.6900           3.091358E+03 /  33.5368          \r\n0      27   -2.615000E-02      3.593418E+03 /  32.0355           2.213760E+03 /  44.5525           2.189963E+01 /  41.1003          \r\n             2.615000E-02      3.209555E+03 / 210.4263           2.285553E+03 / 224.9576           1.945909E+03 /  33.7217          \r\n0      28   -2.438500E-02      4.560236E+02 / 341.6663           1.154951E+03 /  50.2089           4.598073E+02 / 217.5215          \r\n             2.438500E-02      7.209423E+02 / 178.8378           1.587408E+03 / 226.7544           2.098433E+03 /  35.1752          \r\n0      29   -2.146500E-02      1.415482E+03 /  23.2185           2.988263E+03 /  38.8233           3.902757E+02 /  28.7364          \r\n             2.146500E-02      3.104933E+03 / 208.8082           1.089665E+03 / 231.7949           2.301715E+03 /  34.5708          \r\n0      30   -1.695000E-02      1.354341E+03 /  27.2064           2.154692E+03 /  39.1637           7.036326E+02 / 214.0444          \r\n             1.695000E-02      1.527137E+03 / 207.2160           3.349512E+02 / 340.3042           4.918119E+02 /  41.3790          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      31   -1.011500E-02      7.523649E+02 /  15.8433           3.499931E+03 /  33.9986           3.928033E+02 /  28.8703          \r\n             1.011500E-02      1.893605E+03 / 207.5637           7.602772E+02 /  28.0350           6.565723E+02 /  42.5319          \r\n0      32   -4.815000E-03      1.175208E+03 /  29.2928           3.548584E+03 /  34.0166           1.555592E+03 / 214.9281          \r\n             4.815000E-03      3.947515E+02 / 200.1231           2.499474E+03 /  32.6117           1.428747E+03 / 212.1439          \r\n0      33   -1.181500E-02      1.093999E+04 /  33.3811           4.310949E+03 /  36.4199           6.872691E+03 / 214.9344          \r\n             1.181500E-02      2.150745E+03 /  39.6495           5.817592E+03 / 216.8326           8.628128E+03 / 214.2097          \r\n0      34   -2.136500E-02      8.331118E+03 /  33.1309           9.147564E+03 /  36.7206           5.500366E+03 / 214.3337          \r\n             2.136500E-02      1.365542E+03 /  41.3947           1.867031E+03 / 225.6938           4.373526E+03 / 214.1219          \r\n0      35   -1.988500E-02      1.074993E+04 /  32.5790           8.020700E+03 /  35.6539           9.937382E+02 / 214.2702          \r\n             1.988500E-02      2.921515E+03 /  40.8069           3.565877E+03 / 216.9983           2.625981E+03 / 214.1268          \r\n0      36   -3.130000E-02      6.295395E+03 /  31.6457           6.677911E+03 /  38.9427           3.757389E+03 / 214.3582          \r\n             3.130000E-02      2.466884E+03 / 207.0095           5.101611E+03 / 220.4220           8.564124E+02 / 214.9534          \r\n0      37   -2.931500E-02      9.026279E+03 /  31.6727           4.950395E+03 /  38.6822           1.995359E+03 / 214.8953          \r\n             2.931500E-02      2.130739E+03 / 202.1059           6.117357E+03 / 217.6193           1.135722E+03 /  33.3657          \r\n0      38   -3.580000E-02      5.574731E+03 /  30.1057           5.534965E+03 /  40.5775           2.019167E+03 / 214.4446          \r\n             3.580000E-02      5.001218E+03 / 209.1034           7.263046E+03 / 218.8987           2.251684E+03 /  33.3177          \r\n0      39   -3.353500E-02      8.031530E+03 /  30.7724           4.351389E+03 /  40.6672           1.139229E+03 / 215.5482          \r\n             3.353500E-02      4.062366E+03 / 206.4629           7.047252E+03 / 217.8469           2.640735E+03 /  33.5163          \r\n0      40   -3.700000E-02      4.993312E+03 /  28.8754           4.819715E+03 /  41.6100           9.969614E+02 / 214.3282          \r\n             3.700000E-02      6.675024E+03 / 209.7569           8.321726E+03 / 218.2559           4.001356E+03 /  33.2573          \r\n0      41   -3.461500E-02      6.009805E+03 /  30.3672           3.706578E+03 /  42.4722           7.997674E+02 / 214.1041          \r\n             3.461500E-02      4.984129E+03 / 208.6887           6.785584E+03 / 218.5826           3.700041E+03 /  33.3155          \r\n0      42   -3.455000E-02      3.902993E+03 /  27.2115           3.427216E+03 /  43.3736           4.821194E+02 / 215.6313          \r\n             3.455000E-02      4.663378E+03 / 207.5207           6.859535E+03 / 218.6500           4.114332E+03 /  33.6925          \r\n0      43   -3.425000E-02      3.622740E+03 /  27.1073           5.342335E+03 /  40.1027           4.954211E+01 / 231.9266          \r\n             3.425000E-02      6.133701E+03 / 209.6320           6.408142E+03 / 219.4800           4.365522E+03 /  33.4431          \r\n0      44   -3.028500E-02      3.356474E+03 /  27.3402           3.921790E+03 /  41.0905           8.569904E+02 / 213.6004          \r\n             3.028500E-02      4.613028E+03 / 208.7518           4.660060E+03 / 220.4437           2.662746E+03 /  34.4053          \r\n0      45   -2.640000E-02      2.704121E+03 /  26.2812           5.485271E+03 /  38.0701           1.598715E+02 /  31.9518          \r\n             2.640000E-02      4.847922E+03 / 209.6303           3.063857E+03 / 223.0867           3.099976E+03 /  34.0482          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      46   -2.110000E-02      2.415085E+03 /  28.3961           4.913765E+03 /  37.6587           1.846174E+03 / 213.5381          \r\n             2.110000E-02      3.446130E+03 / 209.9819           1.141457E+03 / 235.8822           2.569359E+02 /  49.4768          \r\n0      47   -1.250000E-02      2.496377E+03 /  26.8778           6.506515E+03 /  34.3574           1.108440E+02 /  15.7653          \r\n             1.250000E-02      3.450194E+03 / 209.3497           7.097237E+02 /  22.1770           3.395964E+02 /  55.2165          \r\n0      48   -6.035000E-03      1.943443E+03 /  29.7521           6.817070E+03 /  34.3782           3.104377E+03 / 214.9727          \r\n             6.035000E-03      7.415161E+02 / 203.8138           4.219764E+03 /  32.6839           3.069007E+03 / 213.1328          \r\n0      49   -1.390000E-02      7.601138E+03 /  34.0833           7.566644E+03 /  36.2712           8.291438E+03 / 214.7803          \r\n             1.390000E-02      2.363566E+03 /  35.8392           3.051575E+03 / 220.3764           8.951260E+03 / 214.8415          \r\n0      50   -2.365000E-02      1.226344E+04 /  32.9549           7.360263E+03 /  35.9212           1.832779E+03 / 214.4166          \r\n             2.365000E-02      2.718903E+03 /  41.6664           3.506702E+03 / 217.6348           2.687010E+03 / 213.5090          \r\n0      51   -2.510000E-02      7.072380E+03 /  33.5658           1.246070E+04 /  36.5205           4.680991E+03 / 214.4315          \r\n             2.510000E-02      9.887053E+02 /  41.3649           1.750687E+03 / 228.2868           4.162850E+03 / 214.1610          \r\n0      52   -3.696500E-02      6.330760E+03 /  32.0139           8.444618E+03 /  38.3666           3.449307E+03 / 214.2466          \r\n             3.696500E-02      3.094808E+03 / 209.2404           8.115540E+03 / 218.7231           9.791413E+02 / 214.4186          \r\n0      53   -3.501500E-02      9.225163E+03 /  31.6903           5.513414E+03 /  39.0220           2.674248E+03 / 214.3716          \r\n             3.501500E-02      2.830427E+03 / 205.6729           7.532707E+03 / 217.5023           6.356377E+02 / 216.6071          \r\n0      54   -3.945000E-02      7.561784E+03 /  31.2351           6.426438E+03 /  38.8847           9.259717E+02 / 214.3668          \r\n             3.945000E-02      4.742671E+03 / 208.9865           7.732503E+03 / 217.8480           2.653450E+03 /  33.2312          \r\n0      55   -4.388500E-02      6.131274E+03 /  30.1777           6.934621E+03 /  40.0820           2.248282E+03 / 213.6370          \r\n             4.388500E-02      6.198280E+03 / 209.9297           1.118961E+04 / 217.6483           2.540509E+03 /  32.6254          \r\n0      56   -4.221500E-02      6.731875E+03 /  29.8446           5.976869E+03 /  39.8612           5.102069E+02 / 214.8595          \r\n             4.221500E-02      6.827102E+03 / 209.4549           9.616972E+03 / 217.4708           4.392853E+03 /  33.3531          \r\n0      57   -4.443500E-02      5.487999E+03 /  28.9838           7.025173E+03 /  40.0977           9.618286E+02 / 212.2121          \r\n             4.443500E-02      7.478695E+03 / 210.0896           1.108713E+04 / 217.7952           4.412338E+03 /  32.7495          \r\n0      58   -4.148500E-02      6.023374E+03 /  28.9683           5.885819E+03 /  40.2704           5.391486E+02 / 211.6894          \r\n             4.148500E-02      7.874232E+03 / 209.8127           9.879584E+03 / 217.6347           4.764956E+03 /  33.2865          \r\n0      59   -4.070000E-02      4.707449E+03 /  27.9900           7.093685E+03 /  39.4303           2.017724E+02 / 201.8764          \r\n             4.070000E-02      7.553548E+03 / 210.0385           9.225537E+03 / 218.3680           5.088948E+03 /  32.8580          \r\n0      60   -3.636500E-02      4.892711E+03 /  28.3853           6.395511E+03 /  39.1386           1.590550E+03 / 212.3869          \r\n             3.636500E-02      7.465411E+03 / 210.0865           7.631979E+03 / 218.6727           3.289325E+03 /  33.5010          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      61   -3.138500E-02      3.900396E+03 /  27.6944           7.549923E+03 /  37.6012           2.509247E+02 / 205.0703          \r\n             3.138500E-02      6.289243E+03 / 209.8903           4.991663E+03 / 220.7759           3.799170E+03 /  33.1675          \r\n0      62   -2.538500E-02      3.865953E+03 /  28.6446           7.840034E+03 /  36.7037           2.783951E+03 / 213.0927          \r\n             2.538500E-02      4.878408E+03 / 209.9834           2.203020E+03 / 228.0938           2.488785E+02 /  40.7030          \r\n0      63   -1.491500E-02      4.339413E+03 /  29.3558           9.016161E+03 /  34.3491           2.239928E+02 / 217.8987          \r\n             1.491500E-02      5.011419E+03 / 210.0736           5.496237E+02 /  11.7739           1.175381E+02 / 160.0241          \r\n0      64   -7.335000E-03      3.356381E+03 /  30.7113           1.037251E+04 /  34.3260           4.763066E+03 / 214.7291          \r\n             7.335000E-03      1.115797E+03 / 205.2223           5.999521E+03 /  32.6386           4.871838E+03 / 213.6458          \r\n0      65   -1.593500E-02      6.126268E+03 /  34.3775           7.859914E+03 /  36.1295           8.612636E+03 / 214.8646          \r\n             1.593500E-02      2.210565E+03 /  35.9376           7.632366E+02 / 231.2780           8.691083E+03 / 214.8384          \r\n0      66   -2.340000E-02      9.932749E+03 /  34.4508           1.049757E+04 /  35.8251           2.981155E+03 / 214.3213          \r\n             2.340000E-02      2.449928E+03 /  35.6367           9.651000E+02 /  22.1584           2.455892E+03 / 213.9427          \r\n0      67   -3.653500E-02      5.806763E+03 /  32.8260           9.138611E+03 /  37.2456           5.944823E+03 / 214.5308          \r\n             3.653500E-02      9.567668E+02 / 203.7854           6.827640E+03 / 218.3583           3.587044E+03 / 214.2868          \r\n0      68   -3.853500E-02      6.045699E+03 /  31.8865           9.181733E+03 /  36.8335           2.233357E+03 / 215.0944          \r\n             3.853500E-02      6.940032E+02 / 192.5321           6.025238E+03 / 218.3590           7.681262E+01 /  46.1100          \r\n0      69   -4.598500E-02      5.833540E+03 /  31.6490           9.340987E+03 /  38.0855           3.747719E+03 / 213.9948          \r\n             4.598500E-02      4.137876E+03 / 210.3438           1.042806E+04 / 217.6315           3.958091E+02 / 217.6384          \r\n0      70   -4.586500E-02      6.723624E+03 /  31.0282           8.321512E+03 /  38.0035           7.694939E+02 / 215.0741          \r\n             4.586500E-02      3.984731E+03 / 208.2389           9.392051E+03 / 217.4578           2.972148E+03 /  33.6856          \r\n0      71   -5.070000E-02      5.921333E+03 /  30.6990           9.017840E+03 /  38.9532           1.765918E+03 / 212.5056          \r\n             5.070000E-02      6.607599E+03 / 210.8196           1.311037E+04 / 217.2464           2.409746E+03 /  32.2738          \r\n0      72   -4.913500E-02      7.165165E+03 /  30.1736           7.798465E+03 /  38.9489           3.205873E+02 / 209.8423          \r\n             4.913500E-02      7.361164E+03 / 209.9720           1.242486E+04 / 216.8962           4.478955E+03 /  33.0823          \r\n0      73   -5.138500E-02      5.871742E+03 /  29.9221           8.954615E+03 /  39.2508           6.949011E+02 / 207.4737          \r\n             5.138500E-02      8.099918E+03 / 210.7947           1.404558E+04 / 217.2133           4.454238E+03 /  32.2879          \r\n0      74   -4.835000E-02      6.681686E+03 /  29.3493           7.944053E+03 /  39.0885           6.688103E+02 / 209.1033          \r\n             4.835000E-02      9.097430E+03 / 210.3540           1.322256E+04 / 216.9183           4.893201E+03 /  32.7237          \r\n0      75   -4.720000E-02      5.357878E+03 /  29.0058           9.032924E+03 /  38.7954           2.343531E+02 / 190.1587          \r\n             4.720000E-02      8.280116E+03 / 210.4691           1.222672E+04 / 217.6134           5.375678E+03 /  32.2080          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      76   -4.250000E-02      6.011642E+03 /  28.8626           8.881670E+03 /  38.0680           1.786593E+03 / 211.1020          \r\n             4.250000E-02      8.598636E+03 / 210.2700           1.027299E+04 / 217.8196           3.696470E+03 /  32.4104          \r\n0      77   -3.650000E-02      4.623908E+03 /  28.4698           9.428612E+03 /  37.2827           4.517226E+02 / 202.6423          \r\n             3.650000E-02      7.167199E+03 / 210.0468           7.330615E+03 / 219.1382           4.200805E+03 /  32.1761          \r\n0      78   -2.971500E-02      5.202816E+03 /  29.1715           1.065642E+04 /  36.1006           3.603570E+03 / 212.3951          \r\n             2.971500E-02      5.914465E+03 / 209.8715           3.322125E+03 / 224.4649           2.842112E+02 /  28.4245          \r\n0      79   -1.741500E-02      5.467437E+03 /  29.9551           1.133635E+04 /  34.2372           7.018596E+02 / 213.5284          \r\n             1.741500E-02      6.084466E+03 / 210.1911           2.901150E+02 / 289.0753           2.271032E+02 / 200.6257          \r\n0      80   -8.615000E-03      4.936007E+03 /  31.3937           1.394840E+04 /  34.0605           6.222784E+03 / 214.1987          \r\n             8.615000E-03      1.294379E+03 / 205.2382           7.940401E+03 /  32.3975           6.260513E+03 / 213.6639          \r\n0      81   -1.818500E-02      5.163802E+03 /  34.6813           1.032507E+04 /  35.9011           7.084485E+03 / 215.0394          \r\n             1.818500E-02      1.931063E+03 /  35.4943           2.083762E+03 /  29.4300           7.068671E+03 / 214.9750          \r\n0      82   -2.668500E-02      7.301572E+03 /  34.3606           1.010353E+04 /  35.7922           3.132854E+03 / 214.7417          \r\n             2.668500E-02      2.063582E+03 /  36.3287           2.119420E+02 / 294.1663           2.464242E+03 / 214.0231          \r\n0      83   -4.155000E-02      4.794209E+03 /  33.2623           1.098936E+04 /  36.8483           4.897466E+03 / 214.6215          \r\n             4.155000E-02      8.906163E+02 / 207.8532           5.586606E+03 / 219.2873           3.101361E+03 / 214.5263          \r\n0      84   -4.393500E-02      6.086292E+03 /  32.5751           9.642267E+03 /  36.8421           2.138063E+03 / 214.7196          \r\n             4.393500E-02      1.099596E+03 / 203.3240           6.931985E+03 / 217.9262           4.887629E+02 /  35.8329          \r\n0      85   -5.238500E-02      5.227781E+03 /  32.2761           1.090049E+04 /  37.6008           2.946048E+03 / 213.8137          \r\n             5.238500E-02      3.932830E+03 / 211.6121           1.124046E+04 / 217.5506           3.088399E+02 / 219.8463          \r\n0      86   -5.243500E-02      6.175925E+03 /  31.3708           9.490649E+03 /  37.6695           1.169431E+03 / 213.8695          \r\n             5.243500E-02      5.155376E+03 / 210.5973           1.250664E+04 / 216.7863           2.222967E+03 /  33.1080          \r\n0      87   -5.790000E-02      5.697288E+03 /  31.4632           1.092597E+04 /  38.1835           1.495100E+03 / 211.6209          \r\n             5.790000E-02      6.379559E+03 / 211.6532           1.474355E+04 / 217.0338           2.064596E+03 /  31.5734          \r\n0      88   -5.628500E-02      6.726955E+03 /  30.5993           9.717727E+03 /  38.1679           5.120619E+02 / 208.5176          \r\n             5.628500E-02      8.072428E+03 / 210.9654           1.569674E+04 / 216.4191           3.824240E+03 /  32.4405          \r\n0      89   -5.878500E-02      5.862750E+03 /  30.6941           1.070321E+04 /  38.5419           6.199327E+02 / 203.6490          \r\n             5.878500E-02      7.885966E+03 / 211.3311           1.627507E+04 / 216.8186           4.088693E+03 /  31.6881          \r\n0      90   -5.545000E-02      6.776788E+03 /  29.8830           1.002798E+04 /  38.2192           6.961672E+02 / 205.1359          \r\n             5.545000E-02      9.355181E+03 / 210.7558           1.612290E+04 / 216.4312           4.651574E+03 /  31.9691          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0      91   -5.408500E-02      5.569436E+03 /  29.8730           1.043602E+04 /  38.3537           3.494105E+02 / 188.4841          \r\n             5.408500E-02      8.279813E+03 / 210.8578           1.497657E+04 / 216.9563           5.121688E+03 /  31.4644          \r\n0      92   -4.886500E-02      6.498944E+03 /  29.3855           1.108838E+04 /  37.3984           1.937304E+03 / 209.4583          \r\n             4.886500E-02      8.865265E+03 / 210.3782           1.269661E+04 / 217.1202           3.857170E+03 /  31.3407          \r\n0      93   -4.195000E-02      5.155856E+03 /  29.3457           1.079887E+04 /  37.0536           6.532449E+02 / 200.4114          \r\n             4.195000E-02      7.453337E+03 / 210.2777           9.703519E+03 / 217.9999           4.210285E+03 /  30.9860          \r\n0      94   -3.428500E-02      6.073782E+03 /  29.6307           1.340953E+04 /  35.6647           3.911650E+03 / 211.5195          \r\n             3.428500E-02      6.104816E+03 / 209.6984           4.155169E+03 / 223.1183           5.214190E+02 /  23.0519          \r\n0      95   -2.008500E-02      6.577402E+03 /  30.5052           1.285997E+04 /  34.1390           1.042422E+03 / 211.3937          \r\n             2.008500E-02      7.256839E+03 / 210.5513           9.828759E+02 / 233.9135           4.730587E+02 / 214.6717          \r\n0      96   -1.000000E-02      6.005877E+03 /  31.8526           1.718296E+04 /  33.9734           6.824002E+03 / 213.5007          \r\n             1.000000E-02      8.758325E+02 / 201.8613           1.055016E+04 /  31.8538           6.703223E+03 / 213.5327          \r\n0      97   -2.095000E-02      3.898294E+03 /  34.9159           1.097985E+04 /  35.8997           5.742428E+03 / 215.1092          \r\n             2.095000E-02      1.085420E+03 /  35.1522           2.379597E+03 /  30.6365           5.741597E+03 / 215.0386          \r\n0      98   -3.053500E-02      5.162793E+03 /  34.3821           9.757511E+03 /  35.8974           2.923809E+03 / 214.8551          \r\n             3.053500E-02      6.335641E+02 /  38.2503           1.093493E+03 / 226.3129           2.384892E+03 / 214.0901          \r\n0      99   -4.768500E-02      3.758178E+03 /  33.5888           1.214020E+04 /  36.6197           3.913777E+03 / 214.5910          \r\n             4.768500E-02      1.227084E+03 / 212.0076           5.572953E+03 / 219.1530           2.545943E+03 / 214.6044          \r\n0     100   -5.020000E-02      4.594878E+03 /  32.6426           1.022587E+04 /  36.7869           1.835022E+03 / 214.4930          \r\n             5.020000E-02      1.745005E+03 / 209.5733           7.829105E+03 / 217.5757           1.700928E+02 /  34.8764          \r\n0     101   -6.016500E-02      4.481687E+03 /  32.7291           1.222593E+04 /  37.2100           2.326266E+03 / 213.5634          \r\n             6.016500E-02      3.883610E+03 / 212.6468           1.154754E+04 / 217.4324           2.755737E+02 / 222.2779          \r\n0     102   -5.996500E-02      5.304792E+03 /  31.6885           1.037907E+04 /  37.4083           8.440599E+02 / 212.5823          \r\n             5.996500E-02      4.933473E+03 / 211.3779           1.335379E+04 / 216.6348           1.870859E+03 /  32.5225          \r\n0     103   -6.661500E-02      5.210033E+03 /  32.0456           1.202877E+04 /  37.7572           1.143746E+03 / 210.2899          \r\n             6.661500E-02      6.033257E+03 / 212.3385           1.576040E+04 / 216.8420           1.750926E+03 /  30.7476          \r\n0     104   -6.450000E-02      5.980033E+03 /  30.9034           1.062627E+04 /  37.8072           4.459293E+02 / 205.0866          \r\n             6.450000E-02      7.508271E+03 / 211.3854           1.686072E+04 / 216.2402           3.223536E+03 /  31.7478          \r\n0     105   -6.775000E-02      5.552334E+03 /  31.3300           1.179218E+04 /  38.0618           4.906478E+02 / 198.8307          \r\n             6.775000E-02      7.359048E+03 / 211.8611           1.769297E+04 / 216.5629           3.463323E+03 /  30.8978          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     106   -6.365000E-02      6.430600E+03 /  30.2243           1.120136E+04 /  37.6860           7.437271E+02 / 203.6027          \r\n             6.365000E-02      8.759096E+03 / 211.0043           1.765073E+04 / 216.1371           4.125042E+03 /  31.1421          \r\n0     107   -6.236500E-02      5.406562E+03 /  30.7140           1.151725E+04 /  37.9002           3.657529E+02 / 183.9937          \r\n             6.236500E-02      7.619479E+03 / 211.3063           1.668567E+04 / 216.5562           4.543549E+03 /  30.5889          \r\n0     108   -5.613500E-02      6.619042E+03 /  29.7731           1.264860E+04 /  36.7890           2.002807E+03 / 208.0451          \r\n             5.613500E-02      8.329481E+03 / 210.3845           1.433997E+04 / 216.5591           3.619524E+03 /  30.0800          \r\n0     109   -4.838500E-02      4.827689E+03 /  30.1247           1.153553E+04 /  36.8532           8.300734E+02 / 198.8537          \r\n             4.838500E-02      7.500061E+03 / 210.9702           1.140518E+04 / 217.2437           3.839535E+03 /  29.6169          \r\n0     110   -3.941500E-02      6.523325E+03 /  29.8794           1.500403E+04 /  35.2560           4.006040E+03 / 210.3550          \r\n             3.941500E-02      5.828196E+03 / 209.4073           5.374525E+03 / 220.6630           5.645438E+02 /  15.6301          \r\n0     111   -2.315000E-02      7.037726E+03 /  31.1270           1.337032E+04 /  34.1771           1.078688E+03 / 207.2590          \r\n             2.315000E-02      5.808309E+03 / 210.5697           9.523746E+02 / 238.4581           2.038835E+02 / 242.5464          \r\n0     112   -1.148500E-02      6.766155E+03 /  31.8055           1.886217E+04 /  33.6764           6.936494E+03 / 212.8446          \r\n             1.148500E-02      8.337487E+02 / 200.9745           1.201995E+04 /  31.6064           6.279546E+03 / 213.4794          \r\n0     113   -2.395000E-02      2.669270E+03 /  35.1914           1.128717E+04 /  35.8713           4.378413E+03 / 215.0867          \r\n             2.395000E-02      5.261847E+02 /  34.3929           2.393379E+03 /  31.0020           4.328880E+03 / 215.0237          \r\n0     114   -3.500000E-02      3.429768E+03 /  34.3276           9.614147E+03 /  35.9632           2.316059E+03 / 214.8199          \r\n             3.500000E-02      3.459233E+02 / 211.5067           1.702796E+03 / 222.3115           1.907024E+03 / 214.1745          \r\n0     115   -5.453500E-02      2.648490E+03 /  33.9191           1.247891E+04 /  36.5103           3.016290E+03 / 214.4989          \r\n             5.453500E-02      1.503207E+03 / 213.8473           5.811810E+03 / 218.7927           1.895403E+03 / 214.7566          \r\n0     116   -5.763500E-02      3.207596E+03 /  32.6679           1.048173E+04 /  36.7545           1.496250E+03 / 214.1649          \r\n             5.763500E-02      2.274974E+03 / 212.0979           8.474870E+03 / 217.3242           1.386486E+01 / 267.2962          \r\n0     117   -6.895000E-02      3.569566E+03 /  33.2425           1.276704E+04 /  37.0442           1.807164E+03 / 213.1378          \r\n             6.895000E-02      3.727567E+03 / 213.4438           1.158584E+04 / 217.3340           1.783503E+02 / 229.3389          \r\n0     118   -6.896500E-02      4.181250E+03 /  31.9108           1.079134E+04 /  37.3026           6.413480E+02 / 210.7521          \r\n             6.896500E-02      4.823656E+03 / 212.1928           1.365229E+04 / 216.5496           1.423594E+03 /  31.4860          \r\n0     119   -7.650000E-02      4.501899E+03 /  32.6311           1.251062E+04 /  37.5315           8.887977E+02 / 208.7073          \r\n             7.650000E-02      5.535603E+03 / 212.9032           1.578133E+04 / 216.7661           1.416963E+03 /  29.4762          \r\n0     120   -7.435000E-02      5.153173E+03 /  31.2435           1.103045E+04 /  37.6150           3.263046E+02 / 198.4769          \r\n             7.435000E-02      6.780117E+03 / 211.7964           1.705648E+04 / 216.1636           2.624272E+03 /  30.8501          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     121   -7.808500E-02      5.029658E+03 /  31.9713           1.211206E+04 /  37.8418           3.803500E+02 / 192.4910          \r\n             7.808500E-02      6.631742E+03 / 212.2888           1.793877E+04 / 216.4401           2.812177E+03 /  29.9200          \r\n0     122   -7.360000E-02      5.757242E+03 /  30.5505           1.162593E+04 /  37.4446           6.568848E+02 / 200.4036          \r\n             7.360000E-02      7.692171E+03 / 211.2231           1.789608E+04 / 216.0018           3.374277E+03 /  30.0744          \r\n0     123   -7.231500E-02      4.963450E+03 /  31.2904           1.180270E+04 /  37.6408           3.077655E+02 / 175.5713          \r\n             7.231500E-02      6.955295E+03 / 211.7128           1.735813E+04 / 216.3109           3.562057E+03 /  29.3374          \r\n0     124   -6.518500E-02      5.950745E+03 /  30.0216           1.287460E+04 /  36.5189           1.774376E+03 / 206.4463          \r\n             6.518500E-02      7.146607E+03 / 210.4814           1.514777E+04 / 216.2350           3.160084E+03 /  28.7733          \r\n0     125   -5.650000E-02      4.780440E+03 /  30.9465           1.203272E+04 /  36.4723           6.030455E+02 / 191.8527          \r\n             5.650000E-02      5.855917E+03 / 211.1285           1.235751E+04 / 216.6785           3.626501E+03 /  29.0340          \r\n0     126   -4.593500E-02      6.097327E+03 /  30.0023           1.578615E+04 /  34.8193           3.668741E+03 / 209.3445          \r\n             4.593500E-02      5.417806E+03 / 209.6241           6.092243E+03 / 218.9980           1.029264E+03 /  20.2958          \r\n0     127   -3.496500E-02      3.741653E+03 /  30.6738           1.469390E+04 /  34.3836           1.329851E+03 / 204.3401          \r\n             3.496500E-02      3.334066E+03 / 209.7686           1.506015E+03 / 232.6874           2.065061E+03 /  26.9632          \r\n0     128   -2.115000E-02      8.076161E+03 /  30.9510           1.503632E+04 /  33.5990           6.423481E+03 / 211.9364          \r\n             2.115000E-02      5.071761E+03 / 209.7029           2.570267E+03 /  25.6229           4.836338E+03 / 214.2399          \r\n0     129   -9.685000E-03      2.477684E+03 /  31.3596           1.878292E+04 /  32.9624           3.964862E+03 / 212.1426          \r\n             9.685000E-03      2.254687E+03 / 209.4133           1.284130E+04 /  31.7769           2.979145E+03 / 214.4089          \r\n0     130   -2.705000E-02      1.687805E+03 /  35.5177           1.113553E+04 /  35.8451           3.148422E+03 / 215.0266          \r\n             2.705000E-02      9.061145E+01 / 223.3165           1.923813E+03 /  30.2684           2.919316E+03 / 215.0784          \r\n0     131   -3.953500E-02      1.854317E+03 /  34.3797           9.349675E+03 /  36.0377           1.666877E+03 / 214.6877          \r\n             3.953500E-02      9.083077E+02 / 214.7079           2.113217E+03 / 220.9262           1.173278E+03 / 214.2607          \r\n0     132   -6.136500E-02      1.897910E+03 /  34.5938           1.282399E+04 /  36.4626           2.203415E+03 / 214.2520          \r\n             6.136500E-02      1.847963E+03 / 214.9739           6.339113E+03 / 218.3935           1.140955E+03 / 215.2170          \r\n0     133   -6.531500E-02      2.085609E+03 /  33.0026           1.074344E+04 /  36.7901           1.034597E+03 / 213.5293          \r\n             6.531500E-02      2.598922E+03 / 213.4526           8.808487E+03 / 217.2247           1.284916E+02 /  24.0880          \r\n0     134   -7.791500E-02      2.863810E+03 /  34.0192           1.317544E+04 /  36.9787           1.418981E+03 / 212.6358          \r\n             7.791500E-02      3.652176E+03 / 214.2531           1.186965E+04 / 217.2397           6.061322E+01 / 291.4807          \r\n0     135   -7.845000E-02      3.206622E+03 /  32.4395           1.112667E+04 /  37.2895           5.073662E+02 / 208.7486          \r\n             7.845000E-02      4.719057E+03 / 212.9796           1.380952E+04 / 216.5406           1.133594E+03 /  30.0335          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     136   -8.688500E-02      3.803610E+03 /  33.3817           1.290934E+04 /  37.4372           8.094533E+02 / 207.9579          \r\n             8.688500E-02      5.068406E+03 / 213.5465           1.580480E+04 / 216.7333           1.177880E+03 /  27.9845          \r\n0     137   -8.491500E-02      4.342101E+03 /  31.8430           1.132798E+04 /  37.5577           3.378540E+02 / 196.8348          \r\n             8.491500E-02      6.209999E+03 / 212.3440           1.697833E+04 / 216.1723           2.076468E+03 /  29.6411          \r\n0     138   -8.926500E-02      4.358066E+03 /  32.5638           1.226514E+04 /  37.7071           4.916527E+02 / 197.3278          \r\n             8.926500E-02      5.901054E+03 / 212.7415           1.778026E+04 / 216.3878           2.286631E+03 /  28.7930          \r\n0     139   -8.458500E-02      5.037595E+03 /  31.0542           1.166304E+04 /  37.3539           6.776332E+02 / 199.7255          \r\n             8.458500E-02      6.678796E+03 / 211.5360           1.760419E+04 / 215.9888           2.689660E+03 /  28.8119          \r\n0     140   -8.323500E-02      4.606569E+03 /  31.7760           1.174935E+04 /  37.4690           3.877638E+02 / 183.9628          \r\n             8.323500E-02      6.175800E+03 / 211.9180           1.716246E+04 / 216.1656           2.918978E+03 /  28.3988          \r\n0     141   -7.545000E-02      5.148887E+03 /  30.2360           1.252320E+04 /  36.4074           1.517242E+03 / 204.8410          \r\n             7.545000E-02      5.888623E+03 / 210.5285           1.451063E+04 / 216.1569           2.457619E+03 /  27.1601          \r\n0     142   -5.375000E-02      5.698023E+03 /  30.3992           1.627188E+04 /  34.5788           2.768893E+03 / 208.1281          \r\n             5.375000E-02      3.206236E+03 / 208.5987           6.413266E+03 / 218.4138           1.916530E+03 /  25.0473          \r\n0     143   -6.556500E-02      4.706698E+03 /  35.5669           9.789952E+03 /  34.3599           1.959551E+03 /  46.8794          \r\n             6.556500E-02      4.749221E+03 / 216.0559           1.176598E+04 / 214.0958           2.760099E+03 / 224.2223          \r\n0     144   -6.191500E-02      4.128971E+03 /  29.9625           1.569595E+04 /  34.6633           1.732199E+03 / 206.6125          \r\n             6.191500E-02      3.238610E+03 / 209.0181           7.441900E+03 / 217.9382           1.369082E+03 /  22.5286          \r\n0     145   -3.196500E-02      4.753544E+03 /  30.2086           1.657144E+04 /  33.6495           5.291231E+03 / 210.6938          \r\n             3.196500E-02      1.811135E+03 / 205.4062           3.988954E+03 /  26.9414           1.662975E+03 / 219.4352          \r\n0     146   -4.018500E-02      3.603475E+03 /  30.4258           1.317469E+04 /  34.3607           2.548664E+03 / 208.5569          \r\n             4.018500E-02      4.076113E+03 / 209.9992           4.560450E+03 / 218.5936           1.191708E+03 /  22.3803          \r\n0     147   -3.560000E-02      3.721455E+03 /  30.1791           1.636217E+04 /  33.4350           4.580848E+03 / 210.2868          \r\n             3.560000E-02      7.238444E+02 / 197.4064           2.273583E+03 /  23.6203           1.892909E+03 / 217.6045          \r\n0     148   -4.551500E-02      2.400804E+03 /  30.2656           1.080014E+04 /  35.0322           1.667696E+03 / 206.5385          \r\n             4.551500E-02      2.020395E+03 / 210.1407           3.504901E+03 / 221.4237           3.560894E+02 /   4.2163          \r\n0     149   -9.850000E-03      6.171798E+03 /  30.9472           1.991307E+04 /  32.3796           7.656119E+03 / 211.6905          \r\n             9.850000E-03      3.967549E+03 / 209.9311           1.736825E+04 /  32.0236           5.065887E+03 / 213.2976          \r\n0     150   -1.831500E-02      3.533686E+03 /  30.5844           1.451571E+04 /  33.1040           4.119108E+03 / 211.2482          \r\n             1.831500E-02      2.856911E+03 / 209.3640           6.634648E+03 /  30.7791           1.293158E+03 / 217.6642          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     151   -1.056500E-02      3.598951E+03 /  31.2792           2.094760E+04 /  32.4500           5.763094E+03 / 211.4964          \r\n             1.056500E-02      1.578921E+03 /  34.3658           1.304951E+04 /  31.5817           5.221229E+03 / 212.7335          \r\n0     152   -1.963500E-02      3.215944E+03 /  30.5349           1.365729E+04 /  32.9431           2.323084E+03 / 210.3711          \r\n             1.963500E-02      2.562512E+03 / 209.9998           5.946622E+03 /  30.6404           2.027028E+03 / 214.4629          \r\n0     153   -3.113500E-02      9.585841E+02 /  36.5815           9.926098E+03 /  35.8594           1.831663E+03 / 214.9335          \r\n             3.113500E-02      3.934312E+02 / 218.7663           1.542169E+03 /  29.4942           1.317653E+03 / 215.0664          \r\n0     154   -4.501500E-02      6.123023E+02 /  34.9003           8.719637E+03 /  36.2068           9.076083E+02 / 214.2750          \r\n             4.501500E-02      1.354467E+03 / 215.4206           2.362505E+03 / 220.2369           1.523909E+02 / 214.0042          \r\n0     155   -7.036500E-02      1.237606E+03 /  35.5570           1.221448E+04 /  36.5186           1.411955E+03 / 213.5853          \r\n             7.036500E-02      1.882468E+03 / 215.7452           6.303799E+03 / 218.2671           4.635536E+02 / 218.2429          \r\n0     156   -7.423500E-02      1.139622E+03 /  33.5957           1.046843E+04 /  36.9187           6.605120E+02 / 212.3064          \r\n             7.423500E-02      2.787736E+03 / 214.2350           8.828722E+03 / 217.1803           4.771994E+02 /  29.7817          \r\n0     157   -8.970000E-02      2.108262E+03 /  34.7413           1.307421E+04 /  37.0382           1.018604E+03 / 211.2555          \r\n             8.970000E-02      3.280226E+03 / 214.9832           1.166945E+04 / 217.2454           1.779738E+02 /   7.9607          \r\n0     158   -8.943500E-02      2.371480E+03 /  33.1193           1.115551E+04 /  37.3691           4.402160E+02 / 206.7845          \r\n             8.943500E-02      4.487382E+03 / 213.5863           1.363633E+04 / 216.5638           1.095318E+03 /  29.1457          \r\n0     159   -1.002350E-01      3.025464E+03 /  34.0303           1.306523E+04 /  37.4453           7.876797E+02 / 207.3081          \r\n             1.002350E-01      4.443505E+03 / 214.2720           1.558431E+04 / 216.7629           9.803447E+02 /  25.7151          \r\n0     160   -9.715000E-02      3.568998E+03 /  32.4129           1.157166E+04 /  37.5258           5.587068E+02 / 203.2677          \r\n             9.715000E-02      5.627929E+03 / 212.8464           1.673266E+04 / 216.2173           1.757967E+03 /  28.4867          \r\n0     161   -1.024150E-01      3.661673E+03 /  33.1572           1.251467E+04 /  37.6409           7.205159E+02 / 202.3097          \r\n             1.024150E-01      5.131424E+03 / 213.3996           1.752454E+04 / 216.4110           1.852629E+03 /  27.3380          \r\n0     162   -9.650000E-02      4.371781E+03 /  31.5473           1.203791E+04 /  37.2472           9.986796E+02 / 204.2449          \r\n             9.650000E-02      5.818566E+03 / 211.9138           1.728087E+04 / 216.0470           2.212178E+03 /  27.6590          \r\n0     163   -9.400000E-02      4.012770E+03 /  32.1545           1.164455E+04 /  37.3815           7.841309E+02 / 199.5836          \r\n             9.400000E-02      5.386623E+03 / 212.4270           1.672805E+04 / 216.1566           2.271262E+03 /  26.8708          \r\n0     164   -8.541500E-02      4.572339E+03 /  30.6588           1.239586E+04 /  36.3802           1.776527E+03 / 206.4914          \r\n             8.541500E-02      4.797151E+03 / 210.6750           1.397802E+04 / 216.2514           1.927055E+03 /  25.4359          \r\n0     165   -6.340000E-02      3.828854E+03 /  29.9122           1.474504E+04 /  34.6475           2.270695E+03 / 207.5767          \r\n             6.340000E-02      2.734729E+03 / 208.8072           5.917354E+03 / 219.2518           1.270062E+03 /  21.9759          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     166   -7.311500E-02      3.784175E+03 /  35.4589           1.007648E+04 /  34.4222           1.574543E+03 /  48.9974          \r\n             7.311500E-02      4.922346E+03 / 215.2153           1.115639E+04 / 214.2950           2.568312E+03 / 223.8904          \r\n0     167   -6.426500E-02      3.751542E+03 /  30.6432           1.483138E+04 /  34.7474           1.655571E+03 / 206.7004          \r\n             6.426500E-02      2.971130E+03 / 210.5919           6.690480E+03 / 218.9796           7.586291E+02 /  14.8494          \r\n0     168   -3.868500E-02      3.822063E+03 /  30.8460           1.560675E+04 /  33.7265           3.304708E+03 / 210.2853          \r\n             3.868500E-02      2.683364E+02 /  49.5948           2.331937E+03 /  21.1063           7.748220E+02 / 223.7034          \r\n0     169   -4.710000E-02      2.234194E+03 /  29.1947           1.251223E+04 /  34.0446           1.301524E+03 / 205.7415          \r\n             4.710000E-02      3.409412E+03 / 209.7951           4.034272E+03 / 219.1577           1.204283E+03 /  23.6585          \r\n0     170   -3.800000E-02      2.412521E+03 /  30.6866           1.517993E+04 /  33.6494           2.927118E+03 / 209.7511          \r\n             3.800000E-02      4.199832E+02 / 199.2678           2.448356E+03 /  21.4293           1.848670E+03 / 216.5861          \r\n0     171   -4.545000E-02      2.364292E+03 /  30.2113           1.054895E+04 /  34.7058           1.262456E+03 / 205.4202          \r\n             4.545000E-02      2.396009E+03 / 210.8469           2.817643E+03 / 223.7361           1.517828E+02 / 316.3384          \r\n0     172   -1.118500E-02      3.324958E+03 /  31.1403           1.690776E+04 /  32.5776           4.380383E+03 / 211.6356          \r\n             1.118500E-02      1.262567E+03 /  34.0067           1.392985E+04 /  31.4918           3.377305E+03 / 212.9241          \r\n0     173   -2.031500E-02      2.252119E+03 /  30.2947           1.269197E+04 /  32.9435           1.764008E+03 / 210.2864          \r\n             2.031500E-02      2.743579E+03 / 210.2214           4.435849E+03 /  29.9006           6.185028E+02 / 219.7022          \r\n0     174   -1.118500E-02      2.260559E+03 /  31.9124           1.745648E+04 /  32.5226           3.096638E+03 / 211.3161          \r\n             1.118500E-02      1.465725E+03 /  32.1351           1.171838E+04 /  31.1958           3.333892E+03 / 212.7547          \r\n0     175   -2.045000E-02      2.785191E+03 /  30.7856           1.250778E+04 /  32.9128           8.668199E+02 / 207.9918          \r\n             2.045000E-02      2.972524E+03 / 210.8983           5.463417E+03 /  29.7727           1.230908E+03 / 215.0143          \r\n0     176   -3.633500E-02      3.081297E+01 /  77.8224           7.799847E+03 /  35.9053           1.934826E+02 / 207.0725          \r\n             3.633500E-02      9.603728E+02 / 216.3766           1.285973E+03 /  29.4000           2.891718E+01 / 277.1426          \r\n0     177   -5.266500E-02      3.777014E+02 / 214.1124           6.975322E+03 /  36.2714           2.558733E+02 /  41.5168          \r\n             5.266500E-02      1.304568E+03 / 215.4544           1.943186E+03 / 219.9732           7.040396E+02 /  32.9887          \r\n0     178   -8.328500E-02      5.652504E+02 /  38.6156           1.137370E+04 /  36.7642           3.374849E+02 / 203.6779          \r\n             8.328500E-02      1.606205E+03 / 216.4558           6.081197E+03 / 218.4307           2.618023E+02 / 229.9315          \r\n0     179   -8.710000E-02      1.141658E+02 /  28.6862           9.278849E+03 /  37.1322           8.271019E+01 /  78.6009          \r\n             8.710000E-02      2.464778E+03 / 214.3864           8.236882E+03 / 217.1267           6.981000E+02 /  28.7985          \r\n0     180   -1.063350E-01      1.406953E+03 /  35.8659           1.268765E+04 /  37.2408           4.927037E+02 / 203.8782          \r\n             1.063350E-01      2.622917E+03 / 215.7697           1.125616E+04 / 217.3751           1.170294E+02 / 309.3976          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     181   -1.050650E-01      1.307705E+03 /  32.8790           1.047151E+04 /  37.5431           1.924310E+02 / 186.9277          \r\n             1.050650E-01      3.825574E+03 / 213.8988           1.290670E+04 / 216.6012           9.485369E+02 /  26.5540          \r\n0     182   -1.178350E-01      2.331396E+03 /  34.7468           1.303344E+04 /  37.5656           5.912711E+02 / 201.9544          \r\n             1.178350E-01      3.615879E+03 / 215.0323           1.505922E+04 / 216.8758           5.596689E+02 /  15.5876          \r\n0     183   -1.132650E-01      2.567098E+03 /  32.5296           1.143582E+04 /  37.5874           5.768185E+02 / 200.8276          \r\n             1.132650E-01      4.708215E+03 / 213.2992           1.601872E+04 / 216.3243           1.349640E+03 /  25.7466          \r\n0     184   -1.177650E-01      3.085134E+03 /  33.7889           1.277715E+04 /  37.6313           7.512237E+02 / 200.9950          \r\n             1.177650E-01      4.235681E+03 / 214.1051           1.703348E+04 / 216.5163           1.087023E+03 /  21.0292          \r\n0     185   -1.100000E-01      3.614136E+03 /  31.9636           1.237364E+04 /  37.1700           1.166562E+03 / 204.7059          \r\n             1.100000E-01      4.898886E+03 / 212.5568           1.685994E+04 / 216.1785           1.588759E+03 /  24.4969          \r\n0     186   -1.038150E-01      3.592118E+03 /  32.7114           1.189961E+04 /  37.2725           9.430812E+02 / 200.9904          \r\n             1.038150E-01      4.176830E+03 / 212.8942           1.614229E+04 / 216.2519           1.363659E+03 /  21.6537          \r\n0     187   -9.373500E-02      4.065912E+03 /  31.1332           1.300945E+04 /  36.2805           1.904782E+03 / 206.7109          \r\n             9.373500E-02      3.981731E+03 / 211.3997           1.393988E+04 / 216.3782           1.357165E+03 /  21.6869          \r\n0     188   -6.316500E-02      3.469514E+03 /  30.8394           1.443736E+04 /  34.7089           2.084554E+03 / 207.7248          \r\n             6.316500E-02      2.512270E+03 / 211.0721           5.802183E+03 / 220.1624           6.414445E+02 /  11.9294          \r\n0     189   -7.606500E-02      3.453258E+03 /  35.5863           1.014738E+04 /  34.4151           1.539863E+03 /  47.7843          \r\n             7.606500E-02      5.035171E+03 / 215.3609           1.017071E+04 / 214.3822           2.562511E+03 / 223.4498          \r\n0     190   -6.413500E-02      2.860191E+03 /  31.6809           1.322433E+04 /  34.7709           1.506429E+03 / 205.4977          \r\n             6.413500E-02      2.627259E+03 / 211.8871           5.371700E+03 / 220.8117           2.660947E+02 / 294.3512          \r\n0     191   -3.686500E-02      3.337136E+03 /  31.0773           1.488330E+04 /  33.7380           2.497902E+03 / 209.9662          \r\n             3.686500E-02      5.377372E+01 / 177.7844           2.456846E+03 /  19.7661           8.321624E+02 / 223.0129          \r\n0     192   -4.400000E-02      2.483438E+03 /  30.5138           1.163890E+04 /  33.8673           8.321831E+02 / 203.7171          \r\n             4.400000E-02      3.596803E+03 / 210.5007           3.552411E+03 / 220.0842           8.884083E+02 /  19.6939          \r\n0     193   -3.593500E-02      2.149934E+03 /  31.2313           1.380118E+04 /  33.4200           2.110408E+03 / 209.0105          \r\n             3.593500E-02      4.347838E+02 / 205.1169           2.454908E+03 /  20.7075           1.590481E+03 / 217.7258          \r\n0     194   -4.316500E-02      3.023932E+03 /  30.9940           1.012800E+04 /  34.1939           1.127532E+03 / 204.4344          \r\n             4.316500E-02      1.863990E+03 / 211.1723           1.970046E+03 / 228.8186           4.259359E+02 / 236.2653          \r\n0     195   -1.111500E-02      2.155429E+03 /  30.1551           1.434020E+04 /  32.6181           2.545330E+03 / 211.3423          \r\n             1.111500E-02      8.944280E+02 /  35.4320           1.286900E+04 /  31.0753           1.930059E+03 / 213.8232          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     196   -2.008500E-02      2.377777E+03 /  31.3704           1.208643E+04 /  32.8407           8.743015E+02 / 208.6459          \r\n             2.008500E-02      3.086751E+03 / 211.0604           4.098708E+03 /  28.8337           1.669961E+02 / 357.9717          \r\n0     197   -1.056500E-02      1.298885E+03 /  31.6135           1.559269E+04 /  32.2088           1.494132E+03 / 211.1366          \r\n             1.056500E-02      1.488354E+03 /  31.8535           1.057523E+04 /  30.8528           1.908979E+03 / 212.8842          \r\n0     198   -1.928500E-02      3.389363E+03 /  31.2416           1.120897E+04 /  32.6504           2.438343E+02 / 196.4127          \r\n             1.928500E-02      2.278572E+03 / 210.8267           5.116298E+03 /  28.9770           2.266611E+02 / 232.4465          \r\n0     199   -3.683500E-02      2.415285E+02 /  43.6818           7.937610E+03 /  36.0629           1.123180E+03 /  36.8206          \r\n             3.683500E-02      1.136448E+03 / 217.0729           1.268047E+03 /  27.9021           9.360301E+02 /  33.2088          \r\n0     200   -6.151500E-02      7.493767E+01 /  55.3212           7.293752E+03 /  36.6120           4.532816E+02 /  42.6727          \r\n             6.151500E-02      6.810559E+02 / 216.6893           2.224081E+03 / 220.4227           9.808544E+01 /   3.6119          \r\n0     201   -9.163500E-02      1.204549E+02 / 206.3239           1.013507E+04 /  36.8697           6.607876E+02 /  41.4682          \r\n             9.163500E-02      1.200620E+03 / 215.8025           5.635529E+03 / 218.3149           5.602901E+02 /  26.0742          \r\n0     202   -1.068850E-01      2.118396E+02 /  44.2744           9.856168E+03 /  37.4534           1.300438E+02 /  90.3741          \r\n             1.068850E-01      1.368811E+03 / 216.2731           8.759236E+03 / 217.4095           1.100653E+02 / 283.3571          \r\n0     203   -1.177650E-01      6.087371E+02 /  34.6789           1.093525E+04 /  37.3731           2.954222E+02 /  55.5449          \r\n             1.177650E-01      2.122811E+03 / 214.8753           1.035328E+04 / 217.1025           6.644716E+02 /  22.5230          \r\n0     204   -1.289850E-01      1.060859E+03 /  36.5501           1.120594E+04 /  37.7948           2.749579E+02 / 184.9059          \r\n             1.289850E-01      2.472962E+03 / 215.8828           1.328369E+04 / 216.8691           3.403226E+02 /   5.7262          \r\n0     205   -1.303150E-01      1.561938E+03 /  33.2314           1.127055E+04 /  37.5892           2.218633E+02 / 175.0237          \r\n             1.303150E-01      2.948259E+03 / 214.0040           1.358687E+04 / 216.5803           8.910079E+02 /  21.0364          \r\n0     206   -1.369650E-01      2.071742E+03 /  35.3183           1.234506E+04 /  37.7278           4.452814E+02 / 191.6344          \r\n             1.369650E-01      3.400836E+03 / 215.4702           1.618854E+04 / 216.5917           6.846114E+02 /  13.4425          \r\n0     207   -1.289850E-01      2.350919E+03 /  31.9745           1.127467E+04 /  37.4172           8.161726E+02 / 200.9214          \r\n             1.289850E-01      3.299804E+03 / 212.7533           1.495753E+04 / 216.2537           9.538589E+02 /  17.7600          \r\n0     208   -1.282650E-01      2.973004E+03 /  34.8547           1.334861E+04 /  37.2388           5.723595E+02 / 192.0309          \r\n             1.282650E-01      3.833451E+03 / 214.9561           1.686232E+04 / 216.4823           7.866241E+02 /  10.3443          \r\n0     209   -1.108650E-01      3.122453E+03 /  31.1252           1.101291E+04 /  36.7778           1.617394E+03 / 205.5210          \r\n             1.108650E-01      3.242465E+03 / 211.4105           1.393281E+04 / 216.1268           5.368113E+02 /   0.1394          \r\n0     210   -1.027500E-01      3.333944E+03 /  34.3159           1.375531E+04 /  36.2810           6.541851E+02 / 190.8161          \r\n             1.027500E-01      3.402519E+03 / 214.1221           1.385772E+04 / 216.7279           4.390554E+02 / 340.9642          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     211   -6.345000E-02      2.537121E+03 /  31.7781           1.272336E+04 /  34.6809           1.967563E+03 / 206.8888          \r\n             6.345000E-02      2.368233E+03 / 212.2562           5.056435E+03 / 221.1755           2.796527E+02 / 332.1529          \r\n0     212   -7.735000E-02      3.269950E+03 /  37.1776           1.031306E+04 /  34.1736           1.729291E+03 /  45.0748          \r\n             7.735000E-02      5.212800E+03 / 216.0507           8.660255E+03 / 214.7252           2.808880E+03 / 222.2233          \r\n0     213   -6.310000E-02      2.499391E+03 /  33.9159           1.341064E+04 /  34.6938           1.151623E+03 / 200.5527          \r\n             6.310000E-02      1.951533E+03 / 213.9729           6.001064E+03 / 220.5872           8.005211E+02 / 234.8074          \r\n0     214   -4.248500E-02      3.401001E+03 /  30.6462           1.051917E+04 /  33.8231           1.930735E+03 / 208.9252          \r\n             4.248500E-02      2.269847E+03 / 210.8888           2.424111E+03 / 225.0167           5.934650E+02 / 232.5129          \r\n0     215   -3.450000E-02      2.094880E+03 /  32.3975           1.317799E+04 /  33.3302           1.041345E+03 / 205.9837          \r\n             3.450000E-02      7.637109E+02 / 210.1945           1.762370E+03 /  14.8549           4.162855E+02 /   3.6105          \r\n0     216   -4.121500E-02      1.871055E+03 /  32.2508           9.691613E+03 /  33.9959           2.093754E+03 / 207.2153          \r\n             4.121500E-02      3.288481E+03 / 211.8189           2.749454E+03 / 224.7825           1.358955E+03 / 221.1442          \r\n0     217   -3.326500E-02      2.282467E+03 /  31.7934           1.210348E+04 /  33.3949           6.387054E+02 / 198.7400          \r\n             3.326500E-02      5.830032E+02 / 213.4754           1.232674E+03 /   2.9813           5.098946E+02 / 235.8056          \r\n0     218   -1.853500E-02      3.134955E+03 /  30.7063           1.042640E+04 /  32.4436           1.676035E+03 / 210.5428          \r\n             1.853500E-02      2.552766E+03 / 211.1505           4.390944E+03 /  27.7874           1.033292E+03 / 217.7044          \r\n0     219   -9.615000E-03      1.207091E+03 /  32.3065           1.367611E+04 /  31.9104           4.891776E+02 / 210.0728          \r\n             9.615000E-03      1.206335E+03 /  31.9007           9.369984E+03 /  30.2306           3.473540E+02 /  17.6297          \r\n0     220   -1.763500E-02      1.706996E+03 /  31.2712           9.542279E+03 /  32.3212           1.281762E+03 / 208.3239          \r\n             1.763500E-02      3.074638E+03 / 211.4231           2.719238E+03 /  24.5994           1.102613E+03 / 217.0727          \r\n0     221   -9.015000E-03      2.281657E+03 /  31.7362           1.010459E+04 /  31.7722           1.666667E+02 /  41.1831          \r\n             9.015000E-03      3.898980E+02 / 213.3857           8.189645E+03 /  29.4114           2.355273E+02 / 231.4607          \r\n0     222   -4.071500E-02      9.190844E+02 /  37.3467           7.855723E+03 /  36.0745           2.116670E+03 /  36.0591          \r\n             4.071500E-02      2.870320E+02 / 222.3557           7.948152E+02 /  22.8882           1.485587E+03 /  33.1652          \r\n0     223   -6.780000E-02      1.151193E+02 /  46.5593           7.056183E+03 /  36.9006           1.150018E+03 /  39.0369          \r\n             6.780000E-02      2.481424E+02 /  29.9595           2.727667E+03 / 219.6553           1.919903E+02 /  12.7024          \r\n0     224   -1.038500E-01      4.803262E+02 /  40.2216           1.041301E+04 /  37.1578           1.393034E+03 /  39.1650          \r\n             1.038500E-01      7.712668E+02 / 218.4463           6.839697E+03 / 217.9888           6.082030E+02 /  23.6497          \r\n0     225   -1.179850E-01      3.968472E+02 /  44.2844           1.005869E+04 /  37.8620           6.897236E+02 /  46.5389          \r\n             1.179850E-01      5.867724E+02 / 221.6357           9.496096E+03 / 217.4866           1.840177E+02 / 260.3740          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     226   -1.322350E-01      1.168305E+03 /  37.7676           1.163323E+04 /  37.7505           6.774652E+02 /  46.4036          \r\n             1.322350E-01      1.877037E+03 / 216.8582           1.170299E+04 / 217.1104           5.293636E+02 /  15.8317          \r\n0     227   -1.405850E-01      1.877567E+03 /  38.3132           1.208623E+04 /  38.1294           3.413869E+02 /  63.3775          \r\n             1.405850E-01      2.517596E+03 / 218.3086           1.418735E+04 / 217.0722           1.977954E+02 / 298.4863          \r\n0     228   -1.439850E-01      2.122568E+03 /  36.4737           1.233145E+04 /  37.9071           2.352307E+02 /  82.9540          \r\n             1.439850E-01      2.889578E+03 / 216.0815           1.456833E+04 / 216.7329           3.580252E+02 / 351.1915          \r\n0     229   -1.466150E-01      3.114623E+03 /  37.3205           1.375913E+04 /  37.8686           3.553326E+02 /  67.5007          \r\n             1.466150E-01      3.816061E+03 / 217.6346           1.697784E+04 / 216.8725           3.975153E+02 / 261.8416          \r\n0     230   -1.388850E-01      2.729219E+03 /  35.2450           1.263631E+04 /  37.5412           4.113395E+02 / 181.3172          \r\n             1.388850E-01      3.363586E+03 / 214.9202           1.550180E+04 / 216.5345           3.682760E+02 / 272.7582          \r\n0     231   -1.338650E-01      4.520523E+03 /  37.0245           1.548731E+04 /  37.0973           5.039209E+02 /  60.8204          \r\n             1.338650E-01      5.056289E+03 / 216.7277           1.785154E+04 / 216.7743           8.625652E+02 / 239.1974          \r\n0     232   -1.151350E-01      3.108684E+03 /  34.5764           1.235857E+04 /  36.6398           8.549279E+02 / 194.7677          \r\n             1.151350E-01      3.737856E+03 / 214.0248           1.405911E+04 / 216.5615           9.929131E+02 / 233.7829          \r\n0     233   -1.043500E-01      4.755496E+03 /  37.0808           1.583060E+04 /  35.8819           5.276626E+02 /  64.1610          \r\n             1.043500E-01      5.017286E+03 / 215.5195           1.531236E+04 / 216.6588           1.404161E+03 / 228.5741          \r\n0     234   -6.283500E-02      2.525822E+03 /  34.6138           1.308656E+04 /  34.5529           1.411799E+03 / 202.4321          \r\n             6.283500E-02      2.279160E+03 / 214.6350           6.529693E+03 / 219.6188           7.228845E+02 / 235.1116          \r\n0     235   -7.788500E-02      4.095076E+03 /  37.8996           1.048571E+04 /  33.7030           2.808420E+03 /  39.5940          \r\n             7.788500E-02      5.795262E+03 / 216.7908           7.852710E+03 / 215.2525           3.738598E+03 / 219.7706          \r\n0     236   -6.345000E-02      3.025756E+03 /  34.7120           1.377069E+04 /  33.5994           2.397845E+02 / 128.8393          \r\n             6.345000E-02      2.131930E+03 / 214.5959           8.249765E+03 / 216.7931           1.743241E+03 / 221.3090          \r\n0     237   -4.055000E-02      1.844966E+03 /  30.7635           9.486398E+03 /  33.4038           1.370240E+03 / 204.5990          \r\n             4.055000E-02      2.539945E+03 / 211.5014           3.191111E+03 / 221.3765           8.895297E+02 / 227.7636          \r\n0     238   -3.320000E-02      1.698322E+03 /  33.8758           1.159990E+04 /  32.7639           3.910400E+02 / 187.0925          \r\n             3.320000E-02      9.768156E+02 / 214.0217           1.090486E+03 / 239.5310           3.668819E+02 / 253.3431          \r\n0     239   -4.105000E-02      1.759112E+03 /  35.1935           9.431058E+03 /  33.3339           7.940283E+02 / 195.4120          \r\n             4.105000E-02      3.011132E+03 / 213.2582           4.472648E+03 / 218.9118           1.553504E+03 / 220.9878          \r\n0     240   -3.370000E-02      2.751654E+03 /  32.9202           1.045934E+04 /  31.6263           2.191852E+02 /  71.0247          \r\n             3.370000E-02      1.422685E+03 / 214.3311           2.396141E+03 / 219.3712           1.056058E+03 / 221.8148          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     241   -1.730000E-02      2.401021E+03 /  30.5374           8.518021E+03 /  31.7270           9.750741E+02 / 206.4031          \r\n             1.730000E-02      3.337996E+03 / 211.0349           1.716124E+03 /  21.0155           2.287553E+02 / 249.2084          \r\n0     242   -9.085000E-03      7.791777E+02 /  33.6836           9.529131E+03 /  31.1195           1.416476E+02 / 198.1655          \r\n             9.085000E-03      3.939183E+02 /  27.1830           4.129392E+03 /  27.4926           4.278712E+02 /  17.1954          \r\n0     243   -1.763500E-02      1.292239E+03 /  32.0278           7.198313E+03 /  31.2714           3.294609E+02 / 190.2431          \r\n             1.763500E-02      2.319092E+03 / 211.4214           3.271869E+02 / 332.6060           9.178815E+02 / 219.7666          \r\n0     244   -9.250000E-03      1.390873E+03 /  30.7519           5.708117E+03 /  29.8056           1.112999E+02 /  47.8096          \r\n             9.250000E-03      3.623214E+02 / 211.8061           3.262947E+03 /  28.0390           4.669147E+02 / 219.8520          \r\n0     245   -4.235000E-02      1.414963E+03 /  37.6847           7.740583E+03 /  36.6346           2.647617E+03 /  35.9040          \r\n             4.235000E-02      1.974425E+02 / 234.2775           9.496640E+02 / 227.6920           1.907853E+03 /  33.0413          \r\n0     246   -7.188500E-02      1.692193E+02 /  51.9264           7.114268E+03 /  37.7099           1.009594E+03 /  40.2991          \r\n             7.188500E-02      8.036186E+02 /  31.0923           3.599970E+03 / 219.5571           4.701697E+02 /  25.1147          \r\n0     247   -1.114650E-01      1.076231E+03 /  40.6096           1.106682E+04 /  37.8662           1.747196E+03 /  39.1789          \r\n             1.114650E-01      7.193808E+02 / 223.7691           8.930958E+03 / 217.9853           8.023596E+02 /  24.4955          \r\n0     248   -1.278850E-01      9.719245E+02 /  43.6640           1.007716E+04 /  38.8426           8.031321E+02 /  46.8288          \r\n             1.278850E-01      5.589287E+02 / 231.4204           9.893523E+03 / 218.0611           1.468752E+02 / 328.5255          \r\n0     249   -1.427500E-01      2.047124E+03 /  39.6135           1.211460E+04 /  38.5254           1.039699E+03 /  44.1130          \r\n             1.427500E-01      2.090076E+03 / 219.8452           1.250734E+04 / 217.4146           3.134345E+02 / 355.6668          \r\n0     250   -1.571350E-01      2.675372E+03 /  39.0640           1.269544E+04 /  38.8292           8.712573E+02 /  46.6133          \r\n             1.571350E-01      3.021391E+03 / 220.6899           1.443294E+04 / 217.6038           6.275575E+02 / 235.3651          \r\n0     251   -1.576000E-01      3.827952E+03 /  38.4004           1.419837E+04 /  38.4005           8.673701E+02 /  48.3903          \r\n             1.576000E-01      3.977026E+03 / 218.3869           1.583669E+04 / 217.1353           6.984929E+02 / 238.4616          \r\n0     252   -1.720000E-01      1.239010E+03 /  36.8707           1.283771E+04 /  38.0463           6.982412E+02 /  46.1697          \r\n             1.720000E-01      1.554609E+03 / 220.9811           1.496075E+04 / 217.1882           8.573954E+02 / 235.6734          \r\n0     253   -1.560000E-01      4.439110E+03 /  37.4551           1.332633E+04 /  37.5226           3.680307E+02 /  69.6167          \r\n             1.560000E-01      4.684227E+03 / 216.9384           1.486001E+04 / 216.9384           1.084934E+03 / 231.3398          \r\n0     254   -1.681500E-01      4.131587E+03 /  37.8671           1.327877E+04 /  36.7260           7.977147E+02 /  44.3684          \r\n             1.681500E-01      4.200932E+03 / 216.6526           1.433716E+04 / 216.9875           1.261989E+03 / 231.1271          \r\n0     255   -1.352350E-01      4.169431E+03 /  36.9049           1.143562E+04 /  35.8322           3.836753E+02 /  81.0892          \r\n             1.352350E-01      4.687780E+03 / 215.5315           1.165127E+04 / 217.2496           1.848952E+03 / 223.2580          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     256   -1.438150E-01      2.809430E+03 /  34.6295           1.001674E+04 /  34.7911           2.738601E+02 /  84.0233          \r\n             1.438150E-01      2.483315E+03 / 213.5230           9.227578E+03 / 216.3109           1.167887E+03 / 223.1862          \r\n0     257   -9.850000E-02      1.804668E+03 /  34.9984           7.514080E+03 /  34.0758           2.782499E+02 / 113.4684          \r\n             9.850000E-02      2.425515E+03 / 212.4676           6.315385E+03 / 216.5151           1.914164E+03 / 219.7057          \r\n0     258   -8.988500E-02      1.003224E+03 /  31.7557           5.350240E+03 /  31.9784           1.787844E+02 / 145.8204          \r\n             8.988500E-02      5.693558E+02 / 210.7048           2.983353E+03 / 215.7222           1.131326E+03 / 218.4013          \r\n0     259   -4.748500E-02      2.862865E+02 /  39.8188           3.787545E+03 /  31.6396           2.071127E+02 / 164.7744          \r\n             4.748500E-02      1.025898E+03 / 211.1373           1.632133E+03 / 217.5315           1.259013E+03 / 217.2854          \r\n0     260   -3.178500E-02      3.838471E+02 /  24.3134           2.629471E+03 /  29.3112           1.159614E+02 / 171.8624          \r\n             3.178500E-02      5.292044E+01 / 172.4364           2.379053E+02 /  12.5457           5.651021E+02 / 215.4750          \r\n0     261   -9.615000E-03      2.224563E+02 / 207.6472           2.415459E+03 /  28.9352           4.545537E+02 / 205.3154          \r\n             9.615000E-03      6.701588E+02 / 208.9688           1.066656E+03 /  27.5764           4.643337E+02 / 213.3103          \r\n0     262   -4.780000E-02      5.189542E+02 /  43.5155           6.004903E+03 /  37.9291           1.760236E+03 /  36.6775          \r\n             4.780000E-02      9.628156E+02 /  29.9454           1.059334E+03 / 229.4102           1.962394E+03 /  33.6981          \r\n0     263   -8.616500E-02      6.447435E+02 / 215.5666           3.599196E+03 /  39.9924           5.505818E+01 /  86.6627          \r\n             8.616500E-02      1.763538E+03 /  35.7436           2.084051E+03 / 221.1320           1.420143E+03 /  34.6546          \r\n0     264   -1.266650E-01      3.276216E+02 /  52.5668           7.122947E+03 /  39.4361           7.023383E+02 /  44.3689          \r\n             1.266650E-01      4.801501E+02 /  18.8105           5.948733E+03 / 219.5393           1.167788E+03 /  30.4453          \r\n0     265   -1.571500E-01      7.754675E+02 / 210.3559           4.217047E+03 /  40.9245           3.279228E+02 /  51.4638          \r\n             1.571500E-01      1.471462E+03 /  33.5293           4.417518E+03 / 218.7630           1.070481E+03 /  32.7781          \r\n0     266   -1.986000E-01      6.203307E+02 /  51.2557           6.225526E+03 /  40.3416           6.655639E+02 /  49.4883          \r\n             1.986000E-01      2.678646E+02 /   4.7176           6.470141E+03 / 218.6421           4.849082E+02 /  27.3146          \r\n0     267   -1.920500E-01      4.802948E+02 / 204.3661           6.549271E+03 /  40.3208           1.372609E+03 /  44.4011          \r\n             1.920500E-01      7.943800E+02 /  22.7951           6.445357E+03 / 217.9136           4.713794E+02 / 237.9427          \r\n0     268   -2.447150E-01      8.230742E+02 / 211.3763           5.586360E+03 /  41.5505           1.047227E+03 /  44.6382          \r\n             2.447150E-01      1.421472E+03 /  27.7428           6.598338E+03 / 218.6420           1.073206E+03 / 224.2059          \r\n0     269   -2.339500E-01      1.239790E+03 /  40.8894           7.344042E+03 /  39.3207           5.818450E+02 /  47.6504          \r\n             2.339500E-01      1.134655E+03 / 225.8942           8.241112E+03 / 217.3941           6.882240E+02 / 234.8913          \r\n0     270   -2.716850E-01      8.016770E+02 / 227.3453           8.119847E+03 /  39.2152           1.209889E+03 /  42.6451          \r\n             2.716850E-01      1.337822E+03 /  34.1899           9.044564E+03 / 216.9552           1.334874E+03 / 227.5957          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     271   -2.942500E-01      4.092080E+02 / 248.0205           7.076283E+03 /  37.3203           8.522778E+01 / 227.8911          \r\n             2.942500E-01      1.040224E+03 /  40.0143           7.921854E+03 / 216.6502           3.251771E+02 / 279.0606          \r\n0     272   -3.058350E-01      1.430516E+03 /  33.6743           8.119954E+03 /  37.2720           1.274348E+02 / 216.5527          \r\n             3.058350E-01      7.147178E+02 / 213.8809           8.737127E+03 / 216.7376           4.729809E+02 / 248.8877          \r\n0     273   -2.485500E-01      1.348622E+03 /  37.5739           6.338027E+03 /  36.0933           5.693376E+02 /  49.2604          \r\n             2.485500E-01      1.181790E+03 / 216.2526           6.720993E+03 / 218.0986           1.137466E+03 / 230.5672          \r\n0     274   -3.076650E-01      1.691597E+03 /  28.1656           7.390172E+03 /  34.3798           1.607850E+02 /  93.2619          \r\n             3.076650E-01      7.178563E+02 / 201.7386           7.489750E+03 / 216.0053           6.060956E+02 / 236.0198          \r\n0     275   -2.596650E-01      4.482635E+02 / 338.0945           2.854034E+03 /  36.3381           1.753479E+03 / 209.9105          \r\n             2.596650E-01      1.420247E+03 /  38.7530           3.089932E+03 / 221.7229           1.070275E+03 /  40.0185          \r\n0     276   -1.878000E-01      5.977614E+02 / 224.2560           3.062383E+03 /  32.7832           6.327371E+02 / 197.8755          \r\n             1.878000E-01      8.295687E+02 /  47.4857           2.574128E+03 / 215.4991           1.146794E+02 / 295.9779          \r\n0     277   -1.553500E-01      6.075206E+02 /   5.7544           1.613302E+03 /  32.8907           1.477957E+03 / 209.1749          \r\n             1.553500E-01      7.503863E+02 /  43.4352           1.425035E+03 / 217.7118           3.798127E+02 /  41.6581          \r\n0     278   -1.027500E-01      9.783715E+01 / 231.2297           2.047926E+03 /  29.6738           3.467562E+02 / 189.8750          \r\n             1.027500E-01      9.599009E+01 /  79.9270           9.935732E+02 / 213.4770           2.800779E+02 / 228.6561          \r\n0     279   -5.216500E-02      3.190022E+02 / 223.9104           8.231085E+02 /  24.6433           1.181087E+02 / 176.4711          \r\n             5.216500E-02      1.074414E+02 / 158.2617           1.554943E+01 / 157.8402           2.970085E+02 / 220.9822          \r\n0     280   -8.126500E-02      9.522169E+02 / 215.0337           4.879947E+02 /  48.9166           2.596668E+02 /  36.3576          \r\n             8.126500E-02      1.895203E+03 /  34.7129           5.474222E+02 /  24.1890           1.316927E+03 /  34.9426          \r\n0     281   -1.462350E-01      3.420561E+02 / 219.0100           8.512670E+02 /  39.9127           1.231980E+02 /  42.8112          \r\n             1.462350E-01      1.168287E+03 /  36.5037           3.073789E+02 / 223.6417           4.876293E+02 /  34.9106          \r\n0     282   -1.816150E-01      1.014747E+03 / 214.9323           1.000663E+03 /  44.0527           1.112807E+02 /  59.3719          \r\n             1.816150E-01      1.862371E+03 /  34.4278           7.859778E+02 / 224.7643           7.804188E+02 /  32.6124          \r\n0     283   -2.506000E-01      6.052972E+02 / 216.9025           1.125059E+03 /  39.2286           3.325930E+02 /  46.3852          \r\n             2.506000E-01      1.707954E+03 /  36.2924           1.176552E+03 / 216.2187           1.885753E+02 /  26.5830          \r\n0     284   -2.615850E-01      1.952282E+03 / 216.0575           2.865426E+02 /  56.2962           6.541282E+02 /  46.9541          \r\n             2.615850E-01      2.854541E+03 /  35.5545           3.172846E+02 / 227.6982           2.835331E+02 / 230.4698          \r\n0     285   -3.381000E-01      2.298127E+03 /  36.6040           9.405879E+02 / 213.6734           1.332554E+02 /  50.2464          \r\n             3.381000E-01      9.654554E+02 / 214.5320           1.378678E+03 /  43.8089           8.477037E+02 / 225.9076          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     286   -3.236150E-01      3.683261E+03 / 218.4092           6.893519E+02 / 205.9061           1.520302E+03 /  44.3087          \r\n             3.236150E-01      4.406003E+03 /  36.8491           2.572308E+02 / 115.8877           1.081740E+03 / 221.9093          \r\n0     287   -3.636150E-01      5.799677E+01 /  70.9321           2.746233E+03 /  46.1018           1.316445E+03 / 218.0823          \r\n             3.636150E-01      3.116269E+02 /   6.0995           1.870109E+03 / 226.2650           1.687413E+03 /  33.4436          \r\n0     288   -3.291650E-01      3.206397E+02 / 127.5319           1.235223E+03 / 205.8187           3.307784E+03 / 224.9934          \r\n             3.291650E-01      5.944487E+02 /  90.7102           3.613242E+03 /  41.2923           2.538371E+03 /  37.5876          \r\n0     289   -3.813150E-01      6.544684E+03 / 217.2274           5.733725E+03 /  41.7978           1.153113E+03 /  43.1054          \r\n             3.813150E-01      7.231186E+03 /  35.9338           6.355056E+03 / 218.0363           1.450462E+03 / 224.3978          \r\n0     290   -3.552350E-01      3.167157E+03 / 215.9650           5.106197E+03 /  41.6799           5.298196E+02 /  49.5103          \r\n             3.552350E-01      3.943137E+03 /  33.5584           5.386201E+03 / 217.1044           9.753737E+02 / 228.4713          \r\n0     291   -4.047650E-01      3.375191E+03 / 215.9535           6.047471E+03 /  40.2273           5.528026E+02 / 218.4727          \r\n             4.047650E-01      3.949388E+03 /  33.9999           6.254024E+03 / 217.6694           3.120377E+02 / 355.7650          \r\n0     292   -3.815150E-01      7.433678E+01 /  89.1021           5.859153E+03 /  39.5787           8.745496E+02 / 215.1006          \r\n             3.815150E-01      9.180621E+02 /  26.8009           5.952765E+03 / 217.2534           5.674142E+02 /  15.1524          \r\n0     293   -4.291350E-01      4.572566E+02 /  37.9351           5.338009E+03 /  37.6204           2.092678E+02 / 226.1033          \r\n             4.291350E-01      1.494505E+02 / 341.9714           5.428626E+03 / 217.5054           3.002024E+02 / 270.6674          \r\n0     294   -4.524350E-01      1.594277E+03 / 220.2168           4.753619E+03 /  37.3543           2.153730E+02 / 222.5377          \r\n             4.524350E-01      2.039858E+03 /  38.3119           4.877605E+03 / 216.9319           2.826081E+02 / 269.6140          \r\n0     295   -4.164000E-01      1.870397E+03 / 221.8525           5.031432E+03 /  34.9556           4.878423E+02 /  47.2297          \r\n             4.164000E-01      2.808986E+03 /  36.4252           4.988455E+03 / 218.7060           9.975383E+02 / 226.8815          \r\n0     296   -4.338650E-01      2.660302E+03 / 219.7352           5.429622E+03 /  34.4650           3.243534E+02 /  40.4233          \r\n             4.338650E-01      3.034553E+03 /  39.2902           5.518952E+03 / 218.0739           8.482327E+02 / 227.7221          \r\n0     297   -3.824150E-01      1.793097E+03 / 222.5388           4.562707E+03 /  30.7907           9.729595E+02 / 204.1635          \r\n             3.824150E-01      2.890184E+03 /  34.9204           4.297121E+03 / 221.0843           2.681249E+02 /  41.8995          \r\n0     298   -3.010850E-01      2.445244E+03 / 217.3521           4.782351E+03 /  27.8896           6.958195E+02 / 208.9539          \r\n             3.010850E-01      2.829466E+03 /  37.5623           4.286723E+03 / 223.4125           2.180584E+01 /  23.1609          \r\n0     299   -4.160150E-01      2.569013E+03 /  42.0421           4.785908E+03 /  43.0952           5.260829E+02 /  58.1220          \r\n             4.160150E-01      1.686526E+03 / 228.3622           4.769820E+03 / 216.8691           5.601780E+02 / 223.2169          \r\n0     300   -3.238650E-01      4.244355E+03 /  38.5019           8.983823E+03 /  40.1809           2.673481E+03 /  41.1869          \r\n             3.238650E-01      3.373680E+03 / 217.2832           9.155242E+03 / 216.0250           2.634032E+03 / 220.0840          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     301   -4.678500E-01      2.960726E+02 /  55.6538           4.369777E+03 /  41.2492           3.034595E+02 / 195.3712          \r\n             4.678500E-01      4.390898E+02 /   3.0702           4.358372E+03 / 217.9415           1.586547E+02 / 335.8882          \r\n0     302   -4.530150E-01      2.514480E+03 /  38.3239           7.825479E+03 /  39.9226           5.234879E+02 /  40.1076          \r\n             4.530150E-01      2.090128E+03 / 217.2575           7.997163E+03 / 215.7589           6.714739E+02 / 237.9528          \r\n0     303   -4.952350E-01      7.585731E+02 / 215.5328           2.934571E+03 /  38.3605           9.918834E+01 / 152.1699          \r\n             4.952350E-01      1.339726E+03 /  30.2824           2.943198E+03 / 219.4039           2.292400E+02 / 265.9817          \r\n0     304   -5.107000E-01      9.041171E+02 /  42.4327           4.702436E+03 /  40.1435           2.211166E+02 / 220.5282          \r\n             5.107000E-01      6.408399E+02 / 221.6537           4.830105E+03 / 216.3098           2.985453E+02 / 325.7346          \r\n0     305   -5.080350E-01      4.411862E+02 /  23.3254           3.600655E+03 /  32.9773           1.590662E+02 / 183.4800          \r\n             5.080350E-01      1.318516E+02 / 340.6470           3.566766E+03 / 220.2409           1.702768E+02 / 264.8094          \r\n0     306   -5.185350E-01      3.404482E+02 / 212.1884           3.120598E+03 /  37.7705           1.378050E+01 / 318.0547          \r\n             5.185350E-01      4.974602E+02 /  34.5960           3.272541E+03 / 217.7877           3.215353E+02 / 279.1234          \r\n0     307   -4.472350E-01      7.426039E+02 /  29.0270           4.934225E+03 /  32.1295           3.264146E+02 / 200.7923          \r\n             4.472350E-01      3.450267E+02 / 232.7998           4.950902E+03 / 222.4604           1.214640E+02 /  12.9501          \r\n0     308   -4.853650E-01      1.477165E+03 /  39.7157           6.218464E+03 /  36.5849           5.585801E+01 / 244.8658          \r\n             4.853650E-01      1.407896E+03 / 220.4086           6.347468E+03 / 220.0581           2.467775E+02 / 283.6885          \r\n0     309   -2.197000E-01      1.126798E+03 /  35.7898           4.012889E+03 /  27.7241           3.207029E+02 / 204.1511          \r\n             2.197000E-01      1.018931E+03 / 217.2648           4.346203E+03 / 226.3622           3.000919E+02 /  42.3483          \r\n0     310   -3.144000E-01      2.286780E+03 /  38.0709           5.637405E+03 /  34.0988           1.191848E+02 / 245.0995          \r\n             3.144000E-01      2.277791E+03 / 218.7709           5.805461E+03 / 222.3811           1.555329E+02 / 300.9470          \r\n0     311   -2.280350E-01      4.224732E+03 / 210.7348           3.391758E+03 /  58.6891           1.490469E+03 / 204.0695          \r\n             2.280350E-01      5.229199E+03 /  38.4517           2.998095E+03 / 201.0002           1.735689E+03 /  41.4920          \r\n0     312   -3.144000E-01      1.501949E+03 / 217.4741           3.629653E+03 /  46.7624           5.482369E+02 / 213.1148          \r\n             3.144000E-01      1.559496E+03 /  34.7408           3.612093E+03 / 211.8264           6.192478E+02 /  28.1495          \r\n0     313   -4.472350E-01      2.396368E+02 / 173.9574           5.530614E+03 /  44.5227           4.416501E+02 / 196.5384          \r\n             4.472350E-01      7.155256E+02 /  40.9603           5.343935E+03 / 213.5937           4.940839E+02 /  31.0997          \r\n0     314   -4.853650E-01      4.904340E+02 / 216.9318           5.238877E+03 /  41.1157           6.146868E+02 / 217.0423          \r\n             4.853650E-01      5.582877E+02 /  33.6588           5.210874E+03 / 216.5646           6.169165E+02 /  20.6133          \r\n0     315   -5.340000E-01      1.394671E+02 / 191.2711           5.267205E+03 /  41.3380           5.686046E+02 / 206.0807          \r\n             5.340000E-01      4.740632E+02 /  39.6501           5.139436E+03 / 216.3620           5.910840E+02 /  26.1411          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     316   -5.445000E-01      1.567726E+02 /  33.3435           5.717315E+03 /  38.2628           4.539169E+02 / 217.8518          \r\n             5.445000E-01      1.078309E+02 / 238.6106           5.738153E+03 / 218.5721           4.440623E+02 /   9.3128          \r\n0     317   -5.445000E-01      8.094590E+02 /  42.0554           5.786752E+03 /  38.4105           4.158363E+02 / 201.0273          \r\n             5.445000E-01      5.856071E+02 / 223.5648           5.748234E+03 / 218.5445           4.036254E+02 /  20.3733          \r\n0     318   -5.340000E-01      4.517881E+02 /  32.4082           5.772181E+03 /  35.3633           5.159514E+02 / 219.2885          \r\n             5.340000E-01      4.224285E+02 / 225.2686           5.862284E+03 / 220.3411           4.739353E+02 /  13.4188          \r\n0     319   -4.853650E-01      6.263718E+02 / 217.1840           5.283086E+03 /  35.3020           4.904546E+02 / 204.1588          \r\n             4.853650E-01      7.184370E+02 /  33.0821           5.353354E+03 / 220.5764           4.581069E+02 /  29.8230          \r\n0     320   -4.472350E-01      1.991385E+02 /  20.7978           5.590489E+03 /  32.3270           1.779052E+02 / 223.2371          \r\n             4.472350E-01      2.063739E+02 / 240.7051           5.781161E+03 / 222.6698           1.825858E+02 / 338.8408          \r\n0     321   -3.144000E-01      1.715673E+03 / 219.9306           3.590519E+03 /  29.4233           2.465910E+02 / 190.9510          \r\n             3.144000E-01      1.711670E+03 /  36.9006           3.779814E+03 / 225.1591           2.078291E+02 /  40.2946          \r\n0     322   -2.197000E-01      3.308908E+02 /  22.9553           3.181673E+03 /  22.3104           3.760224E+02 /  32.5531          \r\n             2.197000E-01      3.573326E+02 / 232.4498           3.500215E+03 / 231.0318           4.622825E+02 / 232.1752          \r\n0     323   -2.197000E-01      1.231389E+03 / 208.8332           2.214402E+03 /  67.3395           1.242782E+03 / 211.1471          \r\n             2.197000E-01      1.339610E+03 /  42.0547           1.965905E+03 / 190.7078           1.241390E+03 /  39.7381          \r\n0     324   -3.144000E-01      9.098658E+02 /  42.4877           3.697422E+03 /  47.5246           7.811808E+02 / 224.0823          \r\n             3.144000E-01      8.929676E+02 / 212.6252           3.551697E+03 / 210.4342           7.703357E+02 /  25.2612          \r\n0     325   -4.472350E-01      4.645004E+02 / 200.6906           4.573472E+03 /  46.1710           1.005663E+03 / 210.2657          \r\n             4.472350E-01      5.619888E+02 /  44.8830           4.390447E+03 / 212.1541           1.009974E+03 /  37.1549          \r\n0     326   -4.853650E-01      8.353428E+02 /  40.2733           5.498818E+03 /  41.1150           6.610084E+02 / 220.8704          \r\n             4.853650E-01      8.232213E+02 / 214.6126           5.414723E+03 / 216.1593           6.478419E+02 /  24.6265          \r\n0     327   -5.340000E-01      2.870335E+02 /  56.0216           5.675693E+03 /  41.1566           6.142701E+02 / 206.4994          \r\n             5.340000E-01      1.773502E+02 / 203.9789           5.560364E+03 / 216.1686           6.248528E+02 /  35.3833          \r\n0     328   -5.445000E-01      1.069777E+03 /  40.0906           6.212527E+03 /  38.3176           3.796780E+02 / 219.1708          \r\n             5.445000E-01      1.062789E+03 / 218.8994           6.207661E+03 / 218.6696           3.802163E+02 /  14.1668          \r\n0     329   -5.445000E-01      4.970092E+02 /  45.1148           5.904998E+03 /  38.3492           3.255792E+02 / 195.0253          \r\n             5.445000E-01      4.208342E+02 / 216.5738           5.876843E+03 / 218.5529           3.296736E+02 /  32.4695          \r\n0     330   -5.340000E-01      1.609805E+03 /  34.7027           6.624860E+03 /  35.5826           9.484821E+01 /  20.7692          \r\n             5.340000E-01      1.634547E+03 / 219.9767           6.727745E+03 / 220.4516           1.949327E+02 / 266.5388          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     331   -4.853650E-01      9.085860E+01 / 181.3603           5.439798E+03 /  35.5595           1.618930E+02 /  78.7616          \r\n             4.853650E-01      1.151947E+02 /  33.3164           5.520066E+03 / 220.7802           9.238519E+01 / 223.9433          \r\n0     332   -4.472350E-01      1.201385E+03 /  33.7087           5.947408E+03 /  32.5847           5.504407E+02 /  32.1079          \r\n             4.472350E-01      1.242350E+03 / 222.7597           6.175309E+03 / 222.8613           6.095359E+02 / 231.0334          \r\n0     333   -3.144000E-01      1.564878E+02 / 205.0110           3.797154E+03 /  30.2584           4.456642E+02 /  46.9930          \r\n             3.144000E-01      1.745475E+02 /  43.8066           4.003091E+03 / 224.9886           4.144220E+02 / 217.4388          \r\n0     334   -2.197000E-01      8.827371E+02 /  30.3141           3.138583E+03 /  21.7100           5.861866E+02 /  26.8341          \r\n             2.197000E-01      9.432007E+02 / 226.8618           3.498980E+03 / 231.4027           6.581381E+02 / 231.8789          \r\n0     335   -2.793350E-01      4.365717E+02 /  71.9408           8.903428E+02 /  90.0887           6.319802E+02 / 224.3648          \r\n             2.793350E-01      3.553304E+02 / 193.9966           5.991218E+02 / 175.2120           6.131873E+02 /  30.5848          \r\n0     336   -3.532000E-01      7.752252E+01 /  95.1555           1.553253E+03 /  60.6668           1.250977E+03 / 217.5397          \r\n             3.532000E-01      4.201880E+01 / 177.4541           1.364216E+03 / 205.1845           1.233661E+03 /  35.9584          \r\n0     337   -5.331000E-01      1.279233E+03 /  47.9253           3.897953E+03 /  47.2109           9.587278E+02 / 217.6640          \r\n             5.331000E-01      1.219631E+03 / 214.3940           3.732007E+03 / 214.5403           9.529825E+02 /  34.7894          \r\n0     338   -5.324350E-01      2.466754E+02 /  52.7989           4.256024E+03 /  43.0775           1.031575E+03 / 211.8232          \r\n             5.324350E-01      2.240944E+02 / 211.1138           4.153377E+03 / 216.3553           1.033822E+03 /  37.1429          \r\n0     339   -5.695650E-01      1.724691E+03 /  42.3647           5.525315E+03 /  41.3932           4.213710E+02 / 213.6441          \r\n             5.695650E-01      1.689909E+03 / 217.5542           5.431071E+03 / 217.0974           4.239236E+02 /  32.3829          \r\n0     340   -5.330000E-01      8.108959E+02 /  40.5526           5.199253E+03 /  38.0831           2.853910E+02 / 194.3175          \r\n             5.330000E-01      7.991987E+02 / 218.6165           5.181198E+03 / 218.3413           2.799772E+02 /  33.4508          \r\n0     341   -5.330000E-01      1.268456E+03 /  37.8426           5.346200E+03 /  37.9808           1.476965E+02 /  84.1132          \r\n             5.330000E-01      1.252809E+03 / 215.8589           5.326129E+03 / 218.1721           8.068607E+01 / 231.9918          \r\n0     342   -5.695650E-01      1.855934E+03 /  34.1572           5.596018E+03 /  34.9104           1.804969E+02 /  43.0696          \r\n             5.695650E-01      1.878661E+03 / 219.1919           5.665995E+03 / 219.6730           1.951934E+02 / 237.3103          \r\n0     343   -5.324350E-01      4.940020E+02 /  36.5157           4.321513E+03 /  33.7055           8.007090E+02 /  43.2859          \r\n             5.324350E-01      4.830310E+02 / 214.8933           4.397626E+03 / 220.2334           7.826517E+02 / 221.2225          \r\n0     344   -5.331000E-01      1.224775E+03 /  29.0024           3.700726E+03 /  29.6430           6.206392E+02 /  35.5545          \r\n             5.331000E-01      1.277496E+03 / 222.7521           3.855205E+03 / 222.6390           6.555264E+02 / 227.4026          \r\n0     345   -3.532000E-01      1.900186E+02 /  50.3307           1.522492E+03 /  20.5444           9.082029E+02 /  33.5534          \r\n             3.532000E-01      1.683186E+02 / 215.7053           1.666909E+03 / 230.0172           9.433777E+02 / 224.2437          \r\n1     FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T08-03-1A                                                                                            \r\n0     K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                                                                                     \r\n      FREQUENCY =  1.333000E+02\r\n           C O M P L E X   S T R E S S E S   I N   G E N E R A L  T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )\r\n                                                         (MAGNITUDE/PHASE)\r\n \r\n  ELEMENT       FIBRE                                     - STRESSES IN ELEMENT COORDINATE SYSTEM -\r\n    ID.        DISTANCE                  NORMAL-X                          NORMAL-Y                         SHEAR-XY\r\n0     346   -2.793350E-01      3.679734E+02 /   6.8517           8.419777E+02 / 356.7697           4.287892E+02 /  19.9906          \r\n             2.793350E-01      4.280791E+02 / 240.2701           9.764191E+02 / 245.6017           4.932381E+02 / 235.8153          \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS          \r\n DATE:  5/18/95\r\n END TIME: 10:37:29\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t09051a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T09051A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   9                                                                         \r\n     DIAG  14                                                                        \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                              \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T09-05-1A                                   \r\n                  3      SPC     = 500                                                                   \r\n                  4      MPC     = 600                                                                   \r\n                  5      FMETHOD = 30                                                                    \r\n                  6      METHOD  = 10                                                                    \r\n                  7      CMETHOD = 20                                                                    \r\n                  8      DISP = ALL                                                                      \r\n                  9      OUTPUT(XYOUT)                                                                   \r\n                 10      XTITLE  = VELOCITY-V                                                            \r\n                 11      YTTITLE = DAMPING-G                                                             \r\n                 12      YBTITLE = FREQUENCY-F                                                           \r\n                 13      XYPAPERPLOT VG /1(G,F),4(G,F),7(G,F)/2(G,F),5(G,F),8(G,F)/                      \r\n                 14                      3(G,F),6(G,F),9(G,F)                                            \r\n                 15      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   117, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO    0       1.3+4   1.86958 1.507-6                                         \r\n                    2-        CHEXA1  201     1       101     103     104     108     113     115     +CH1    \r\n                    3-        +CH1    116     120                                                             \r\n                    4-        CHEXA1  202     1       108     104     105     107     120     116     +CH2    \r\n                    5-        +CH2    117     119                                                             \r\n                    6-        CHEXA1  203     1       121     123     124     128     101     103     +CH3    \r\n                    7-        +CH3    104     108                                                             \r\n                    8-        CHEXA1  204     1       128     124     125     127     108     104     +CH4    \r\n                    9-        +CH4    105     107                                                             \r\n                   10-        CORD2C  1               0.      0.      0.      1.0     0.      0.      +CD1    \r\n                   11-        +CD1    0.      0.      1.                                                      \r\n                   12-        CTRIA2  1       2000    1       5       4                                       \r\n                   13-        CTRIA2  2       2000    1       2       5                                       \r\n                   14-        CTRIA2  3       2005    2       6       5                                       \r\n                   15-        CTRIA2  4       2005    2       3       6                                       \r\n                   16-        CTRIA2  5       2010    4       8       7                                       \r\n                   17-        CTRIA2  6       2010    4       5       8                                       \r\n                   18-        CTRIA2  7       2015    5       9       8                                       \r\n                   19-        CTRIA2  8       2015    5       6       9                                       \r\n                   20-        CTRIA2  9       2020    7       11      10                                      \r\n                   21-        CTRIA2  10      2020    7       8       11                                      \r\n                   22-        CTRIA2  11      2025    8       12      11                                      \r\n                   23-        CTRIA2  12      2025    8       9       12                                      \r\n                   24-        CYJOIN  1               121     101     113     123     103     115             \r\n                   25-        CYJOIN  2               127     107     119     125     105     117             \r\n                   26-        EIGC    20      HESS    MAX                                             +EIGC20 \r\n                   27-        +EIGC20                                                 4                       \r\n                   28-        EIGR    10      INV     200.0   2000.0  8       5                       +EIGR10 \r\n                   29-        +EIGR10 MAX                                                                     \r\n                   30-        FLFACT  1       .059164 .118328 .177492                                         \r\n                   31-        FLFACT  2       180.0                                                           \r\n                   32-        FLFACT  3       0.3     0.7     1.0                                             \r\n                   33-        FLUTTER 30      K       1       2       3       L       4                       \r\n                   34-        GRID    1               -0.8979 -0.2814 3.7712                                  \r\n                   35-        GRID    2               0.0001  0.0516  4.0003                                  \r\n                   36-        GRID    3               0.8981  -0.2461 4.1795                                  \r\n                   37-        GRID    4               -0.7726 -0.4744 5.4413                                  \r\n                   38-        GRID    5               -0.0031 0.0228  5.5033                                  \r\n                   39-        GRID    6               0.7797  0.2247  5.4889                                  \r\n                   40-        GRID    7               -0.6646 -0.7082 7.3062                                  \r\n                   41-        GRID    8               -0.0157 0.0164  7.4058                                  \r\n                   42-        GRID    9               0.6303  0.5962  7.3237                                  \r\n                   43-        GRID    10              -0.5237 -1.1552 9.8520                                  \r\n                   44-        GRID    11              -0.0320 -0.0656 10.0079                                 \r\n                   45-        GRID    12              0.4130  0.7329  9.9093                                  \r\n                   46-        GRID    101     1       2.375   4.186   -0.987  1                               \r\n                   47-        GRID    103     1       2.375   4.186   0.987   1                               \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    104     1       2.375   0.0     0.987   1                               \r\n                   49-        GRID    105     1       2.375   -4.186  0.987   1                               \r\n                   50-        GRID    107     1       2.375   -4.186  -0.987  1                               \r\n                   51-        GRID    108     1       2.375   0.0     -0.987  1                               \r\n                   52-        GRID    113     1       3.982   4.186   -0.987  1                               \r\n                   53-        GRID    115     1       4.539   4.186   0.987   1                               \r\n                   54-        GRID    116     1       4.539   0.0     0.987                                   \r\n                   55-        GRID    117     1       4.539   -4.186  0.987   1                               \r\n                   56-        GRID    119     1       3.982   -4.186  -0.987  1                               \r\n                   57-        GRID    120     1       3.982   0.0     -0.987                                  \r\n                   58-        GRID    121     1       0.905   4.186   -0.987  1                               \r\n                   59-        GRID    123     1       0.905   4.186   0.987   1                               \r\n                   60-        GRID    124     1       0.905   0.0     0.987   1                               \r\n                   61-        GRID    125     1       0.905   -4.186  0.987   1                               \r\n                   62-        GRID    127     1       0.905   -4.186  -0.987  1                               \r\n                   63-        GRID    128     1       0.905   0.0     -0.987  1                               \r\n                   64-        MAT1    1       31.0E6          0.3     7.300E-4                                \r\n                   65-        MKAERO1 180.0                                                           +MKA1   \r\n                   66-        +MKA1   0.3     0.7     1.0                                                     \r\n                   67-        MPC     600     1       1       1.0     2       1       -1.0                    \r\n                   68-        MPC     600     1       2       1.0     2       2       -1.0                    \r\n                   69-        MPC     600     1       3       1.0     2       3       -1.0                    \r\n                   70-        MPC     600     1       4       1.0     2       4       -1.0                    \r\n                   71-        MPC     600     1       5       1.0     2       5       -1.0                    \r\n                   72-        MPC     600     1       6       1.0     2       6       -1.0                    \r\n                   73-        MPC     600     3       1       1.0     2       1       -1.0                    \r\n                   74-        MPC     600     3       2       1.0     2       2       -1.0                    \r\n                   75-        MPC     600     3       3       1.0     2       3       -1.0                    \r\n                   76-        MPC     600     3       4       1.0     2       4       -1.0                    \r\n                   77-        MPC     600     3       5       1.0     2       5       -1.0                    \r\n                   78-        MPC     600     3       6       1.0     2       6       -1.0                    \r\n                   79-        MPC     600     116     1       1.0     2       1       -1.0                    \r\n                   80-        MPC     600     116     2       1.0     2       2       -1.0                    \r\n                   81-        MPC     600     116     3       1.0     2       3       -1.0                    \r\n                   82-        MPC     600     120     1       1.0     2       1       -1.0                    \r\n                   83-        MPC     600     120     2       1.0     2       2       -1.0                    \r\n                   84-        MPC     600     120     3       1.0     2       3       -1.0                    \r\n                   85-        PARAM   CTYPE   ROT                                                             \r\n                   86-        PARAM   IREF    4                                                               \r\n                   87-        PARAM   KGGIN   -1                                                              \r\n                   88-        PARAM   KINDEX  0                                                               \r\n                   89-        PARAM   LMODES  4                                                               \r\n                   90-        PARAM   MAXMACH 0.90                                                            \r\n                   91-        PARAM   MINMACH 1.00                                                            \r\n                   92-        PARAM   MTYPE   COSINE                                                          \r\n                   93-        PARAM   NSEGS   43                                                              \r\n                   94-        PARAM   PRINT   YESB                                                            \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PTRIA2  2000    1       0.1040  0.                                              \r\n                   96-        PTRIA2  2005    1       0.1040  0.                                              \r\n                   97-        PTRIA2  2010    1       0.0707  0.                                              \r\n                   98-        PTRIA2  2015    1       0.0707  0.                                              \r\n                   99-        PTRIA2  2020    1       0.0422  0.                                              \r\n                  100-        PTRIA2  2025    1       0.0422  0.                                              \r\n                  101-        SPC1    500     23      121     123     124     125     127     128             \r\n                  102-        SPC1    500     45      7       10      12                                      \r\n                  103-        SPC1    500     456     101     103     104     105     107     108             \r\n                  104-        SPC1    500     456     113     115     116     117     119     120             \r\n                  105-        SPC1    500     456     121     123     124     125     127     128             \r\n                  106-        STREAML11       1       2       3                                               \r\n                  107-        STREAML12       4       5       6                                               \r\n                  108-        STREAML13       7       8       9                                               \r\n                  109-        STREAML14       10      11      12                                              \r\n                  110-        STREAML21       3       2.739   1.79600 3.98420 0.58217 0.6568460.069472+STRL 1 \r\n                  111-        +STRL 1 719.0   47.423                                                          \r\n                  112-        STREAML22       3       23.534  1.85044 6.06853 0.88674 0.9343880.066610+STRL 2 \r\n                  113-        +STRL 2 1014.2  55.107                                                          \r\n                  114-        STREAML23       3       44.697  1.86419 8.07620 1.18010 1.1936660.064685+STRL 3 \r\n                  115-        +STRL 3 1288.1  60.380                                                          \r\n                  116-        STREAML24       3       62.028  1.86958 9.92791 1.45067 1.5022760.059201+STRL 4 \r\n                  117-        +STRL 4 1592.6  60.687                                                          \r\n                              ENDDATA\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL=    \r\n                   APPEND/OVG=APPEND/QHHL=APPEND $                                \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N,     \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  COND     ERROR5,NOGPDT $                                                \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      11  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      12  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      13  COND     ERROR5,NOSIMP $                                                \r\n\r\n      14  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      15  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      16  PARAM    //*NOP*/V,Y,KGGIN=-1 $                                         \r\n\r\n      17  COND     JMPKGGIN,KGGIN $                                               \r\n\r\n      18  PARAM    //*ADD*/NOKGGX/-1/0 $                                          \r\n\r\n      19  INPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $                   \r\n\r\n      20  EQUIV    KTOTAL,KGGX $                                                  \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  LABEL    JMPKGGIN $                                                     \r\n\r\n      22  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                           \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      23  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      24  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      25  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      26  LABEL    JMPKGGX $                                                      \r\n\r\n      27  COND     ERROR1,NOMGG $                                                 \r\n\r\n      28  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      29  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      30  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      31  GPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      32  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      33  LABEL    LGPWG $                                                        \r\n\r\n      34  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      35  COND     LBL11,NOGENL $                                                 \r\n\r\n      36  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      37  LABEL    LBL11 $                                                        \r\n\r\n      38  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      39  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/              \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      40  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  PARAM    //*NOT*/REACDATA/REACT $                                       \r\n\r\n      42  COND     ERROR6,REACDATA $                                              \r\n\r\n      43  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $                      \r\n\r\n      44  GPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $                    \r\n\r\n      45  COND     ERROR7,NOGO $                                                  \r\n\r\n      46  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      47  COND     LBL2,MPCF1 $                                                   \r\n\r\n      48  MCE1     USET,RG/GM $                                                   \r\n\r\n      49  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      50  LABEL    LBL2 $                                                         \r\n\r\n      51  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      52  COND     LBL3,SINGLE $                                                  \r\n\r\n      53  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      54  LABEL    LBL3 $                                                         \r\n\r\n      55  EQUIV    KFF,KAA/OMIT/MFF,MAA/OMIT $                                    \r\n\r\n      56  COND     LBL5,OMIT $                                                    \r\n\r\n      57  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      58  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      59  LABEL    LBL5 $                                                         \r\n\r\n      60  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $                             \r\n\r\n      61  COND     ERROR2,NOEED $                                                 \r\n\r\n      62  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  CYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,            \r\n                   KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $                           \r\n\r\n      64  COND     ERROR7,NOGO $                                                  \r\n\r\n      65  READ     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,  ,OEIGS/*MODES*/S,N,          \r\n                   NEIGV $                                                        \r\n\r\n      66  OFP      OEIGS,LAMK,,,,//S,N,CARDNO $                                   \r\n\r\n      67  COND     ERROR4,NEIGV $                                                 \r\n\r\n      68  CYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,           \r\n                   KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $                                 \r\n\r\n      69  COND     ERROR7,NOGO $                                                  \r\n\r\n      70  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $                    \r\n\r\n      71  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/      \r\n                   ,,OPHIG,,,PPHIG,,/*REIG* $                                     \r\n\r\n      72  OFP      OPHIG,,,,,//S,N,CARDNO $                                       \r\n\r\n      73  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      74  PURGE    PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $                     \r\n\r\n      75  COND     PZZ,JUMPPLOT $                                                 \r\n\r\n      76  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/           \r\n                   S,N,NSILZ/S,N,JUMPZ=-1 $                                       \r\n\r\n      77  PRTMSG   PLTSETZ// $                                                    \r\n\r\n      78  COND     PZZ,JUMPZ $                                                    \r\n\r\n      79  PLOT     PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/    \r\n                   PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $              \r\n\r\n      80  PRTMSG   PLOTZ// $                                                      \r\n\r\n      81  LABEL    PZZ $                                                          \r\n\r\n      82  APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/   \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/      \r\n                   NEIGV/V,Y,KINDEX    $                                          \r\n\r\n      83  PARTN    PHIA,PVECT,/PHIAX,,,/1 $                                       \r\n\r\n      84  SMPYAD   PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $                              \r\n\r\n      85  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      86  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n      87  EQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $              \r\n\r\n      88  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/      \r\n                   *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/                    \r\n                   NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/                          \r\n                   -1/-1/-1/-1 $                                                  \r\n\r\n      89  GKAM     USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,     \r\n                   PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/      \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,                 \r\n                   KDAMP=-1 $                                                     \r\n\r\n      90  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      91  COND     P2,JUMPPLOT $                                                  \r\n\r\n      92  PLTSET   PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N,    \r\n                   JUMPPLOT $                                                     \r\n\r\n      93  PRTMSG   PLTSETX//$                                                     \r\n\r\n      94  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      95  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      96  COND     P2,JUMPPLOT $                                                  \r\n\r\n      97  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/   \r\n                   LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                      \r\n\r\n      98  PRTMSG   PLOTX1//$                                                      \r\n\r\n      99  LABEL    P2 $                                                           \r\n\r\n     100  PARAM    //*ADD*/DESTRY/0/1 $                                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     101  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $                \r\n\r\n     102  PURGE    D1JE,D2JE/NODJE $                                              \r\n\r\n     103  COND     NODJE,NODJE $                                                  \r\n\r\n     104  INPUTT2  /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL=     \r\n                   TAPEID $                                                       \r\n\r\n     105  LABEL    NODJE $                                                        \r\n\r\n     106  PARAM    //*ADD*/XQHHL/1/0 $                                            \r\n\r\n     107  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/     \r\n                   NOUE/S,N,XQHHL $                                               \r\n\r\n     108  PARAM    //*MPY*/NOP/1/1 $                                              \r\n\r\n     109  PARAM    //*MPY*/NOH/0/1 $                                              \r\n\r\n     110  PARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $                                 \r\n\r\n     111  LABEL    LOOPTOP $                                                      \r\n\r\n     112  FA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/  \r\n                   S,N,TSTART/S,N,NOCEAD $                                        \r\n\r\n     113  EQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/                            \r\n                   KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/                          \r\n                   CASECC,CASEYY/NOCEAD $                                         \r\n\r\n     114  COND     VDR,NOCEAD $                                                   \r\n\r\n     115  CEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $       \r\n\r\n     116  COND     LBLZAP,EIGVS $                                                 \r\n\r\n     117  LABEL    VDR $                                                          \r\n\r\n     118  VDR      CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/       \r\n                   123/S,N,NOH/S,N,NOP/FMODE $                                    \r\n\r\n     119  COND     LBL16,NOH $                                                    \r\n\r\n     120  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     121  LABEL    LBL16 $                                                        \r\n\r\n     122  FA2      PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF=  \r\n                   1.0/C,Y,PRINT=YESB $                                           \r\n\r\n     123  COND     CONTINUE,TSTART $                                              \r\n\r\n     124  LABEL    LBLZAP $                                                       \r\n\r\n     125  COND     CONTINUE,FLOOP $                                               \r\n\r\n     126  REPT     LOOPTOP,100  $                                                 \r\n\r\n     127  JUMP     ERROR3 $                                                       \r\n\r\n     128  LABEL    CONTINUE $                                                     \r\n\r\n     129  PARAML   XYCDB//*PRES*////NOXYCDB $                                     \r\n\r\n     130  COND     NOXYOUT,NOXYCDB $                                              \r\n\r\n     131  XYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $       \r\n\r\n     132  XYPLOT   XYPLTCE//$                                                     \r\n\r\n     133  LABEL    NOXYOUT $                                                      \r\n\r\n     134  PARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $                                \r\n\r\n     135  COND     FINIS,PJUMP $                                                  \r\n\r\n     136  MODACC   CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/          \r\n                   *CEIGN* $                                                      \r\n\r\n     137  DDR1     CPHIH1,PHIDH/CPHID $                                           \r\n\r\n     138  EQUIV    CPHID,CPHIP/NOA $                                              \r\n\r\n     139  COND     LBL14,NOA $                                                    \r\n\r\n     140  SDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $        \r\n\r\n     141  LABEL    LBL14 $                                                        \r\n\r\n     142  EQUIV    CPHID,CPHIA/NOUE $                                             \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     143  COND     LBLNOE,NOUE $                                                  \r\n\r\n     144  VEC      USETD/RP/*D*/*A*/*E* $                                         \r\n\r\n     145  PARTN    CPHID,,RP/CPHIA,,,/1/3 $                                       \r\n\r\n     146  LABEL    LBLNOE $                                                       \r\n\r\n     147  SDR2     CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP,      \r\n                   EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $            \r\n\r\n     148  OFP      OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $                       \r\n\r\n     149  COND     P3,JUMPPLOT $                                                  \r\n\r\n     150  PLOT     PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/      \r\n                   PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $                     \r\n\r\n     151  PRTMSG   PLOTX3//$                                                      \r\n\r\n     152  LABEL    P3 $                                                           \r\n\r\n     153  JUMP     FINIS $                                                        \r\n\r\n     154  LABEL    ERROR1 $                                                       \r\n\r\n     155  PRTPARM  //-1/*BLADEMDS* $                                              \r\n\r\n     156  LABEL    ERROR2 $                                                       \r\n\r\n     157  PRTPARM  //-2/*BLADEMDS* $                                              \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*BLADEMDS* $                                              \r\n\r\n     160  LABEL    ERROR4 $                                                       \r\n\r\n     161  PRTPARM  //-4/*BLADEMDS* $                                              \r\n\r\n     162  LABEL    ERROR5 $                                                       \r\n\r\n     163  PRTPARM  //-5/*BLADEMDS* $                                              \r\n\r\n     164  LABEL    ERROR6 $                                                       \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     165  PRTPARM  //-6/*BLADEMDS* $                                              \r\n\r\n     166  LABEL    ERROR7 $                                                       \r\n\r\n     167  PRTPARM  //-7/*BLADEMDS* $                                              \r\n\r\n     168  LABEL    FINIS $                                                        \r\n\r\n     169  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     170  END      $                                                              \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           18\r\n                                        PROFILE            206\r\n                                        MAX WAVEFRONT       16\r\n                                        AVG WAVEFRONT    6.867\r\n                                        RMS WAVEFRONT    8.091\r\n                                        RMS BANDWIDTH    8.343\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE            159\r\n                                        MAX WAVEFRONT       10\r\n                                        AVG WAVEFRONT    5.300\r\n                                        RMS WAVEFRONT    5.913\r\n                                        RMS BANDWIDTH    6.348\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       18        14\r\n                                        PROFILE (P)                        206       159\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           16        10\r\n                                        AVERAGE WAVEFRONT (C-AVG)        6.867     5.300\r\n                                        RMS WAVEFRONT (C-RMS)            8.091     5.913\r\n                                        RMS BANDWITCH (B-RMS)            8.343     6.348\r\n                                        NUMBER OF GRID POINTS (N)                     30\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                          17\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                       112\r\n                                        MATRIX DENSITY, PERCENT                   28.222\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   8\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       4       2       2       3       1       4       7\r\n                         SEQGP          5       5       6       3       7      10       8       8\r\n                         SEQGP          9       6      10      12      11      11      12       9\r\n                         SEQGP        101      23     103      24     104      25     105      19\r\n                         SEQGP        107      20     108      26     113      13     115      14\r\n                         SEQGP        116      15     117      17     119      18     120      16\r\n                         SEQGP        121      30     123      29     124      28     125      21\r\n                         SEQGP        127      22     128      27\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA1    ELEMENTS (ELEMENT TYPE  41) STARTING WITH ID      201\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n                        3 ROOTS BELOW   4.066277E+07\r\n                        2 ROOTS BELOW   2.953738E+07\r\n                        1 ROOTS BELOW   9.989824E+06\r\n                        0 ROOTS BELOW   2.750434E+06\r\n                        4 ROOTS BELOW   1.152644E+08\r\n                        5 ROOTS BELOW   1.704405E+08\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         5\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         6\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        41\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         7*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* 1 OR MORE ROOT OUTSIDE FR.RANGE.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                       NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND   *\r\n                                     *  AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX  *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         3        2.750440E+06        1.658445E+03        2.639497E+02        0.0                 0.0                      \r\n        2         2        1.002666E+07        3.166491E+03        5.039627E+02        0.0                 0.0                      \r\n        3         1        2.953982E+07        5.435054E+03        8.650157E+02        0.0                 0.0                      \r\n        4         4        1.152644E+08        1.073612E+04        1.708707E+03        0.0                 0.0                      \r\n        5         5        1.703117E+08        1.305035E+04        2.077028E+03        0.0                 0.0                      \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.275044E+07    (CYCLIC FREQUENCY =  2.639497E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -1.008953E-04   4.014370E-04  -4.120846E-05  -3.119369E-02   2.116814E-03   7.146824E-03                  \r\n             2      G     -1.008953E-04   4.014370E-04  -4.120846E-05  -3.119369E-02   2.116814E-03   7.146824E-03                  \r\n             3      G     -1.008953E-04   4.014370E-04  -4.120846E-05  -3.119369E-02   2.116814E-03   7.146824E-03                  \r\n             4      G     -5.969279E-02   1.159025E-01   1.844799E-02   9.528162E-02  -3.820274E-01  -1.288756E-01                  \r\n             5      G     -1.955961E-02   5.591340E-02   3.527669E-04  -4.240234E-02  -6.139410E-02  -8.642721E-02                  \r\n             6      G     -3.857643E-03  -4.518311E-03   2.240696E-03   1.340556E-02  -6.927564E-02  -6.291339E-02                  \r\n             7      G     -2.203361E-01   3.679816E-01   5.996870E-02   0.0            0.0           -1.766986E-01                  \r\n             8      G     -1.218748E-01   2.880024E-01  -5.569418E-05  -2.790685E-01   1.625334E-01  -1.604986E-01                  \r\n             9      G     -2.651471E-02   1.768572E-01  -3.579283E-02  -1.940567E-01   8.532045E-02  -1.890912E-01                  \r\n            10      G     -7.227613E-01   9.916431E-01   1.975125E-01   0.0            0.0           -7.758260E-02                  \r\n            11      G     -6.846546E-01   1.000000E+00   1.869314E-02  -9.064201E-01   3.145599E-01  -1.165649E-01                  \r\n            12      G     -4.411234E-01   8.489342E-01  -1.060966E-01   0.0            0.0           -2.961657E-01                  \r\n           101      G     -4.305560E-05  -2.700192E-04  -6.777669E-05   0.0            0.0            0.0                           \r\n           103      G     -2.077179E-05  -2.560475E-04  -6.414152E-05   0.0            0.0            0.0                           \r\n           104      G     -2.105037E-05  -2.559256E-04  -6.405383E-05   0.0            0.0            0.0                           \r\n           105      G     -2.077179E-05  -2.560475E-04  -6.414152E-05   0.0            0.0            0.0                           \r\n           107      G     -4.305560E-05  -2.700192E-04  -6.777669E-05   0.0            0.0            0.0                           \r\n           108      G     -4.351721E-05  -2.697697E-04  -6.761796E-05   0.0            0.0            0.0                           \r\n           113      G     -4.434361E-05  -3.951196E-04  -9.555039E-05   0.0            0.0            0.0                           \r\n           115      G     -3.904878E-05  -4.065024E-04  -1.043494E-04   0.0            0.0            0.0                           \r\n           116      G     -1.008953E-04   4.014370E-04  -4.120846E-05   0.0            0.0            0.0                           \r\n           117      G     -3.904878E-05  -4.065024E-04  -1.043494E-04   0.0            0.0            0.0                           \r\n           119      G     -4.434361E-05  -3.951196E-04  -9.555039E-05   0.0            0.0            0.0                           \r\n           120      G     -1.008953E-04   4.014370E-04  -4.120846E-05   0.0            0.0            0.0                           \r\n           121      G     -2.604651E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G     -2.502947E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G     -2.499399E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G     -2.502947E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G     -2.604651E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G     -2.599116E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.100267E+08    (CYCLIC FREQUENCY =  5.039627E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.623800E-05   6.724903E-04  -6.236534E-05  -4.357360E-02   3.644540E-03   7.381956E-03                  \r\n             2      G      2.623800E-05   6.724903E-04  -6.236534E-05  -4.357360E-02   3.644540E-03   7.381956E-03                  \r\n             3      G      2.623800E-05   6.724903E-04  -6.236534E-05  -4.357360E-02   3.644540E-03   7.381956E-03                  \r\n             4      G     -6.729877E-02   1.368285E-01   2.219187E-02   1.807743E-02  -2.662928E-01  -1.240145E-01                  \r\n             5      G     -2.308343E-02   7.064103E-02   4.369340E-04  -5.151695E-02  -6.339529E-02  -1.056618E-01                  \r\n             6      G     -3.868906E-03  -2.967898E-03   1.693245E-03   1.702788E-02  -9.005885E-02  -7.761332E-02                  \r\n             7      G     -1.990092E-01   3.629403E-01   5.868076E-02   0.0            0.0           -1.402750E-01                  \r\n             8      G     -1.028556E-01   2.848747E-01   7.043975E-04  -2.908390E-01   2.398205E-01  -1.413445E-01                  \r\n             9      G     -2.034148E-02   1.876866E-01  -3.868258E-02  -1.703575E-01   3.431847E-02  -2.046720E-01                  \r\n            10      G      3.565546E-01   3.402882E-02  -3.010962E-02   0.0            0.0           -2.968800E-02                  \r\n            11      G      4.507257E-01  -1.211050E-02  -4.691050E-03   1.000000E+00  -3.356183E-01   5.615604E-02                  \r\n            12      G      3.028876E-01   6.974810E-02  -6.602697E-03   0.0            0.0            1.339207E-01                  \r\n           101      G     -6.514444E-05  -4.453160E-04   1.804431E-05   0.0            0.0            0.0                           \r\n           103      G     -5.018626E-05  -4.202039E-04   1.864642E-05   0.0            0.0            0.0                           \r\n           104      G     -5.061218E-05  -4.201020E-04   1.870412E-05   0.0            0.0            0.0                           \r\n           105      G     -5.018626E-05  -4.202039E-04   1.864642E-05   0.0            0.0            0.0                           \r\n           107      G     -6.514444E-05  -4.453160E-04   1.804431E-05   0.0            0.0            0.0                           \r\n           108      G     -6.587892E-05  -4.450590E-04   1.815476E-05   0.0            0.0            0.0                           \r\n           113      G     -6.207683E-05  -6.620400E-04   2.973177E-05   0.0            0.0            0.0                           \r\n           115      G     -6.412280E-05  -6.809111E-04   2.255208E-05   0.0            0.0            0.0                           \r\n           116      G      2.623800E-05   6.724903E-04  -6.236534E-05   0.0            0.0            0.0                           \r\n           117      G     -6.412280E-05  -6.809111E-04   2.255208E-05   0.0            0.0            0.0                           \r\n           119      G     -6.207683E-05  -6.620400E-04   2.973177E-05   0.0            0.0            0.0                           \r\n           120      G      2.623800E-05   6.724903E-04  -6.236534E-05   0.0            0.0            0.0                           \r\n           121      G     -3.586352E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G     -5.830711E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G     -5.824635E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G     -5.830711E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G     -3.586352E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G     -3.578415E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.295398E+08    (CYCLIC FREQUENCY =  8.650157E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.917168E-05   6.087690E-05  -7.376582E-06   1.941467E-03   3.274512E-05  -3.001204E-04                  \r\n             2      G      2.917168E-05   6.087690E-05  -7.376582E-06   1.941467E-03   3.274512E-05  -3.001204E-04                  \r\n             3      G      2.917168E-05   6.087690E-05  -7.376582E-06   1.941467E-03   3.274512E-05  -3.001204E-04                  \r\n             4      G      4.121222E-03  -6.630537E-03  -7.695593E-04  -2.223376E-02   5.217570E-02   1.079280E-02                  \r\n             5      G      8.525265E-04  -1.616871E-03  -3.546287E-04  -1.763270E-03   6.539040E-03   5.956567E-03                  \r\n             6      G      1.440334E-04   9.627732E-04   2.172956E-06  -1.354891E-03   4.916601E-03   3.014216E-03                  \r\n             7      G      2.717084E-02  -1.981895E-02  -3.063918E-03   0.0            0.0            2.876871E-02                  \r\n             8      G     -5.404507E-03   8.931376E-03  -1.073602E-03   6.773624E-02  -1.264858E-01   1.390513E-02                  \r\n             9      G     -5.707735E-03   9.248644E-03  -1.372412E-03   6.485240E-04  -4.904847E-02   1.726538E-03                  \r\n            10      G      3.234815E-01  -1.087765E-01  -3.461191E-02   0.0            0.0            4.175634E-01                  \r\n            11      G     -6.394262E-02   6.111007E-02  -2.884397E-04   1.000000E+00  -6.634098E-01   1.209384E-01                  \r\n            12      G     -4.940680E-02   5.249030E-02  -6.559387E-03   0.0            0.0            1.465381E-02                  \r\n           101      G     -6.678972E-06  -3.868133E-05   1.990460E-05   0.0            0.0            0.0                           \r\n           103      G     -8.360615E-06  -3.606938E-05   1.938770E-05   0.0            0.0            0.0                           \r\n           104      G     -8.383087E-06  -3.607219E-05   1.938023E-05   0.0            0.0            0.0                           \r\n           105      G     -8.360615E-06  -3.606938E-05   1.938770E-05   0.0            0.0            0.0                           \r\n           107      G     -6.678972E-06  -3.868133E-05   1.990460E-05   0.0            0.0            0.0                           \r\n           108      G     -6.722671E-06  -3.868625E-05   1.989114E-05   0.0            0.0            0.0                           \r\n           113      G     -6.451223E-06  -6.003368E-05   2.865229E-05   0.0            0.0            0.0                           \r\n           115      G     -8.139615E-06  -6.156005E-05   2.920572E-05   0.0            0.0            0.0                           \r\n           116      G      2.917168E-05   6.087690E-05  -7.376582E-06   0.0            0.0            0.0                           \r\n           117      G     -8.139615E-06  -6.156005E-05   2.920572E-05   0.0            0.0            0.0                           \r\n           119      G     -6.451223E-06  -6.003368E-05   2.865229E-05   0.0            0.0            0.0                           \r\n           120      G      2.917168E-05   6.087690E-05  -7.376582E-06   0.0            0.0            0.0                           \r\n           121      G     -3.566089E-06   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G     -8.827892E-06   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G     -8.823911E-06   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G     -8.827892E-06   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G     -3.566089E-06   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G     -3.562640E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.115264E+09    (CYCLIC FREQUENCY =  1.708707E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      1.372115E-03   4.225346E-03  -3.540588E-04  -1.210787E-01   4.016348E-02  -2.865965E-03                  \r\n             2      G      1.372115E-03   4.225346E-03  -3.540588E-04  -1.210787E-01   4.016348E-02  -2.865965E-03                  \r\n             3      G      1.372115E-03   4.225346E-03  -3.540588E-04  -1.210787E-01   4.016348E-02  -2.865965E-03                  \r\n             4      G     -6.134187E-02   1.815669E-01   3.200866E-02  -6.857625E-01   1.000000E+00   2.505394E-02                  \r\n             5      G     -2.685541E-02   1.308355E-01   4.663749E-04  -1.501114E-02  -1.441683E-01  -1.625627E-01                  \r\n             6      G      1.467198E-03   2.519370E-02  -7.949186E-03   1.904494E-02  -2.379264E-01  -1.467509E-01                  \r\n             7      G      3.050741E-01  -1.160235E-01  -2.468242E-02   0.0            0.0            4.540608E-01                  \r\n             8      G      1.102734E-01   5.467810E-02   2.441748E-03   3.617477E-01  -3.439184E-01   2.477111E-01                  \r\n             9      G      6.495907E-02   1.016008E-01  -2.344039E-02  -6.135144E-02   2.022892E-01   1.377008E-01                  \r\n            10      G     -1.775014E-02   9.526247E-02   2.998948E-02   0.0            0.0           -1.459866E-01                  \r\n            11      G     -6.159945E-02   1.185418E-01   4.812315E-03   2.610450E-01  -3.816165E-01  -3.972743E-01                  \r\n            12      G      3.680703E-01  -1.210238E-01   1.044218E-02   0.0            0.0           -6.076558E-01                  \r\n           101      G     -3.705513E-04  -2.769858E-03   9.347938E-04   0.0            0.0            0.0                           \r\n           103      G     -4.108360E-04  -2.602971E-03   9.057014E-04   0.0            0.0            0.0                           \r\n           104      G     -4.132360E-04  -2.603004E-03   9.055564E-04   0.0            0.0            0.0                           \r\n           105      G     -4.108360E-04  -2.602971E-03   9.057014E-04   0.0            0.0            0.0                           \r\n           107      G     -3.705513E-04  -2.769858E-03   9.347938E-04   0.0            0.0            0.0                           \r\n           108      G     -3.747979E-04  -2.769322E-03   9.345764E-04   0.0            0.0            0.0                           \r\n           113      G     -3.175862E-04  -4.161974E-03   1.360910E-03   0.0            0.0            0.0                           \r\n           115      G     -3.981999E-04  -4.277540E-03   1.362637E-03   0.0            0.0            0.0                           \r\n           116      G      1.372115E-03   4.225346E-03  -3.540588E-04   0.0            0.0            0.0                           \r\n           117      G     -3.981999E-04  -4.277540E-03   1.362637E-03   0.0            0.0            0.0                           \r\n           119      G     -3.175862E-04  -4.161974E-03   1.360910E-03   0.0            0.0            0.0                           \r\n           120      G      1.372115E-03   4.225346E-03  -3.540588E-04   0.0            0.0            0.0                           \r\n           121      G     -1.805352E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G     -4.685532E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G     -4.681698E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G     -4.685532E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G     -1.805352E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G     -1.801319E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n      EIGENVALUE =  0.170312E+09    (CYCLIC FREQUENCY =  2.077028E+03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.400515E-04  -2.030058E-03   1.599471E-04   5.607332E-02  -1.318492E-02   2.599784E-03                  \r\n             2      G     -7.400515E-04  -2.030058E-03   1.599471E-04   5.607332E-02  -1.318492E-02   2.599784E-03                  \r\n             3      G     -7.400515E-04  -2.030058E-03   1.599471E-04   5.607332E-02  -1.318492E-02   2.599784E-03                  \r\n             4      G      4.300073E-02  -1.021012E-01  -1.758903E-02   6.415791E-02  -4.384133E-03   6.618038E-02                  \r\n             5      G      8.648653E-03  -5.194636E-02  -3.779225E-04   2.069411E-02  -2.916991E-02   7.492998E-02                  \r\n             6      G     -1.736292E-03  -1.331633E-02   4.585541E-03  -2.839718E-03   1.214583E-01   5.332982E-02                  \r\n             7      G      4.191520E-03  -2.826474E-02  -9.615923E-03   0.0            0.0            2.845801E-01                  \r\n             8      G     -1.178141E-01   8.052564E-02   1.775069E-03  -1.248945E-01   6.561895E-02   3.088376E-02                  \r\n             9      G     -4.715649E-02   2.296891E-03  -2.398581E-03  -1.095117E-01   2.125489E-01  -1.940006E-01                  \r\n            10      G     -3.047589E-02  -2.339875E-02  -1.034927E-02   0.0            0.0           -2.009949E-02                  \r\n            11      G     -1.109626E-01   1.128882E-02   2.823422E-03   1.000000E+00  -5.749487E-01  -2.224884E-01                  \r\n            12      G      1.872118E-01  -1.544383E-01   2.029725E-02   0.0            0.0           -6.028445E-01                  \r\n           101      G      1.708101E-04   1.334110E-03  -5.056031E-04   0.0            0.0            0.0                           \r\n           103      G      1.984280E-04   1.253951E-03  -4.891119E-04   0.0            0.0            0.0                           \r\n           104      G      1.995905E-04   1.254026E-03  -4.890217E-04   0.0            0.0            0.0                           \r\n           105      G      1.984280E-04   1.253951E-03  -4.891119E-04   0.0            0.0            0.0                           \r\n           107      G      1.708101E-04   1.334110E-03  -5.056031E-04   0.0            0.0            0.0                           \r\n           108      G      1.728547E-04   1.333922E-03  -5.054593E-04   0.0            0.0            0.0                           \r\n           113      G      1.404651E-04   1.999791E-03  -7.329283E-04   0.0            0.0            0.0                           \r\n           115      G      1.837521E-04   2.055251E-03  -7.363191E-04   0.0            0.0            0.0                           \r\n           116      G     -7.400515E-04  -2.030058E-03   1.599471E-04   0.0            0.0            0.0                           \r\n           117      G      1.837521E-04   2.055251E-03  -7.363191E-04   0.0            0.0            0.0                           \r\n           119      G      1.404651E-04   1.999791E-03  -7.329283E-04   0.0            0.0            0.0                           \r\n           120      G     -7.400515E-04  -2.030058E-03   1.599471E-04   0.0            0.0            0.0                           \r\n           121      G      7.997924E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G      2.280011E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G      2.278128E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G      2.280011E-04   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G      7.997924E-05   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G      7.978847E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  102 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN1313153056\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    1     SIGMA VALUE =  180.000    DENSITY RATIO =  5.9164E-02     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.3000       3.3333333E+00     5.2285391E+03    -1.6557766E-01     2.6705930E+02    -4.3286465E+02     5.2285391E+03\r\n        0.3000       3.3333333E+00     8.7276660E+03    -4.7381431E-01     4.4578500E+02    -2.0676465E+03     8.7276660E+03\r\n        0.3000       3.3333333E+00     1.6184520E+04     1.0278430E-01     8.2666040E+02     8.3175726E+02     1.6184520E+04\r\n        0.3000       3.3333333E+00     2.5136564E+04     1.2614563E-01     1.2839061E+03     1.5854338E+03     2.5136564E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    2     SIGMA VALUE =  180.000    DENSITY RATIO =  1.1833E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.3000       3.3333333E+00     5.3653374E+03    -3.8685268E-01     2.7404657E+02    -1.0377976E+03     5.3653374E+03\r\n        0.3000       3.3333333E+00     6.8871235E+03    -5.9702295E-01     3.5177521E+02    -2.0558855E+03     6.8871235E+03\r\n        0.3000       3.3333333E+00     1.6837346E+04     1.2684578E-01     8.6000500E+02     1.0678730E+03     1.6837346E+04\r\n        0.3000       3.3333333E+00     2.2525551E+04     3.9959002E-01     1.1505427E+03     4.5004927E+03     2.2525551E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    3     SIGMA VALUE =  180.000    DENSITY RATIO =  1.7749E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.3000       3.3333333E+00     4.7588706E+03    -8.6614203E-01     2.4306993E+02    -2.0609290E+03     4.7588706E+03\r\n        0.3000       3.3333333E+00     6.4541729E+03    -3.1564197E-01     3.2966129E+02    -1.0186039E+03     6.4541729E+03\r\n        0.3000       3.3333333E+00     1.7099578E+04     5.7035197E-02     8.7339905E+02     4.8763889E+02     1.7099578E+04\r\n        0.3000       3.3333333E+00     2.1110262E+04     7.0239782E-01     1.0782537E+03     7.4139009E+03     2.1110262E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    4     SIGMA VALUE =  180.000    DENSITY RATIO =  5.9164E-02     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.7000       1.4285715E+00     2.3200901E+03     8.2800306E-02     2.7650879E+02     9.6052086E+01     2.3200901E+03\r\n        0.7000       1.4285715E+00     4.5787788E+03     5.7060438E-01     5.4569977E+02     1.3063356E+03     4.5787788E+03\r\n        0.7000       1.4285715E+00     7.5253882E+03     3.4646183E-02     8.9687720E+02     1.3036299E+02     7.5253882E+03\r\n        0.7000       1.4285715E+00     1.2155751E+04     1.5704638E+00     1.4487247E+03     9.5450830E+03     1.2155751E+04\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    5     SIGMA VALUE =  180.000    DENSITY RATIO =  1.1833E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.7000       1.4285715E+00     2.4292197E+03     1.1779245E-01     2.8951489E+02     1.4307187E+02     2.4292197E+03\r\n        0.7000       1.4285715E+00     3.1002129E+03     1.8174374E+00     3.6948398E+02     2.8172214E+03     3.1002129E+03\r\n        0.7000       1.4285715E+00     7.4595005E+03     9.7606987E-02     8.8902478E+02     3.6404968E+02     7.4595005E+03\r\n        0.7000       1.4285715E+00     8.6902676E+03     9.0902060E-01     1.0357078E+03     3.9498162E+03     8.6902676E+03\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    6     SIGMA VALUE =  180.000    DENSITY RATIO =  1.7749E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.7000       1.4285715E+00     1.8574425E+03     2.6014574E+00     2.2137036E+02     2.4160288E+03     1.8574425E+03\r\n        0.7000       1.4285715E+00     2.5185530E+03     1.1469282E-01     3.0016165E+02     1.4442998E+02     2.5185530E+03\r\n        0.7000       1.4285715E+00     7.3397559E+03     1.0593233E-01     8.7475354E+02     3.8875873E+02     7.3397559E+03\r\n        0.7000       1.4285715E+00     9.3504668E+03     6.1482441E-01     1.1143905E+03     2.8744475E+03     9.3504668E+03\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    7     SIGMA VALUE =  180.000    DENSITY RATIO =  5.9164E-02     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        1.0000       1.0000000E+00     1.5430181E+03     2.1704328E-03     2.6271030E+02     1.6745085E+00     1.5430181E+03\r\n        1.0000       1.0000000E+00     2.9028047E+03     2.1600202E-02     4.9422406E+02     3.1350584E+01     2.9028047E+03\r\n        1.0000       1.0000000E+00     5.0393428E+03     1.2970367E-03     8.5798553E+02     3.2681062E+00     5.0393428E+03\r\n        1.0000       1.0000000E+00     9.5972275E+03     3.8441002E-02     1.6339993E+03     1.8446352E+02     9.5972275E+03\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    8     SIGMA VALUE =  180.000    DENSITY RATIO =  1.1833E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        1.0000       1.0000000E+00     1.5356479E+03     4.6282099E-03     2.6145547E+02     3.5536506E+00     1.5356479E+03\r\n        1.0000       1.0000000E+00     2.8480579E+03     4.0396679E-02     4.8490302E+02     5.7526039E+01     2.8480579E+03\r\n        1.0000       1.0000000E+00     5.0002607E+03     3.9810673E-03     8.5133154E+02     9.9531870E+00     5.0002607E+03\r\n        1.0000       1.0000000E+00     9.2356270E+03     6.7343652E-02     1.5724341E+03     3.1098044E+02     9.2356270E+03\r\n0*** USER INFORMATION MESSAGE 3028      B =    2     BBAR =    2\r\n                                        C =    3     CBAR =    1\r\n                                        R =    3\r\n0*** USER INFORMATION MESSAGE 3027, UNSYMMETRIC COMPLEX  DECOMPOSITION OF DATA BLOCK MXHH     (N =     4)\r\n     TIME ESTIMATE =        0 SECONDS\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    9     SIGMA VALUE =  180.000    DENSITY RATIO =  1.7749E-01     METHOD = K   \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        1.0000       1.0000000E+00     1.5281949E+03     7.3664812E-03     2.6018655E+02     5.6287098E+00     1.5281949E+03\r\n        1.0000       1.0000000E+00     2.7959749E+03     5.6636322E-02     4.7603549E+02     7.9176865E+01     2.7959749E+03\r\n        1.0000       1.0000000E+00     4.9631211E+03     7.9624970E-03     8.4500824E+02     1.9759418E+01     4.9631211E+03\r\n        1.0000       1.0000000E+00     8.9324688E+03     8.9521527E-02     1.5208192E+03     3.9982413E+02     8.9324688E+03\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****   ** \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0                                                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY-V                                                                                                     \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY-F                                            I I  DAMPING-G                                              I\r\n             I                                                         I I                                                         I\r\n             I  2.000000E+02         1.000000E+03         1.800000E+03 I I -5.000000E-01         7.500000E-01         2.000000E+00 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  0.0000E+00 I                            I                            I I                            I                            I\r\n  8.3333E+02 I                            I                            I I                            I                            I\r\n  1.6667E+03 I A                          I                            I I           A                I                            I\r\n  2.5000E+03 I  0       A                 I                            I I           A 0              I                            I\r\n  3.3333E+03 I                            I                            I I                            I                            I\r\n  4.1667E+03 I            0               I                            I I                        0   I                            I\r\n  5.0000E+03 I *                     A    I                            I I       *   A                I                            I\r\n  5.8333E+03 I                            I                            I I                            I                            I\r\n  6.6667E+03 I                            I                            I I                            I                            I\r\n  7.5000E+03 I                        0   I                            I I           0                I                            I\r\n  8.3333E+03 I        *                   I                            I I*                           I                            I\r\n  9.1667E+03 I                            I                            I I                            I                            I\r\n  1.0000E+04 I                            I                      A     I I           A                I                            I\r\n  1.0833E+04 I                            I                            I I                            I                            I\r\n  1.1667E+04 I                            I                            I I                            I                            I\r\n  1.2500E+04 I                            I               0            I I                            I                  0         I\r\n  1.3333E+04 I                            I                            I I                            I                            I\r\n  1.4167E+04 I                            I                            I I                            I                            I\r\n  1.5000E+04 I                            I                            I I                            I                            I\r\n  1.5833E+04 I                      *     I                            I I             *              I                            I\r\n  1.6667E+04 I                            I                            I I                            I                            I\r\n  1.7500E+04 I                            I                            I I                            I                            I\r\n  1.8333E+04 I                            I                            I I                            I                            I\r\n  1.9167E+04 I                            I                            I I                            I                            I\r\n  2.0000E+04 I                            I                            I I                            I                            I\r\n  2.0833E+04 I                            I                            I I                            I                            I\r\n  2.1667E+04 I                            I                            I I                            I                            I\r\n  2.2500E+04 I                            I                            I I                            I                            I\r\n  2.3333E+04 I                            I                            I I                            I                            I\r\n  2.4167E+04 I                            I                            I I                            I                            I\r\n1 2.5000E+04 I                            I         *                  I I              *             I                            I\r\n  2.5833E+04 I                            I                            I I                            I                            I\r\n  2.6667E+04 I                            I                            I I                            I                            I\r\n  2.7500E+04 I                            I                            I I                            I                            I\r\n  2.8333E+04 I                            I                            I I                            I                            I\r\n  2.9167E+04 I                            I                            I I                            I                            I\r\n  3.0000E+04 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *    * \r\n                                                           *  *  *  *  *  *  *  *   *  \r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0                                                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY-V                                                                                                     \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY-F                                            I I  DAMPING-G                                              I\r\n             I                                                         I I                                                         I\r\n             I  2.000000E+02         9.000000E+02         1.600000E+03 I I -1.000000E+00         5.000000E-01         2.000000E+00 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  0.0000E+00 I                            I                            I I                            I                            I\r\n  6.9444E+02 I                            I                            I I                            I                            I\r\n  1.3889E+03 I  A                         I                            I I                  A         I                            I\r\n  2.0833E+03 I   0                        I                            I I                     0      I                            I\r\n  2.7778E+03 I      0    A                I                            I I                   A        I                        0   I\r\n  3.4722E+03 I                            I                            I I                            I                            I\r\n  4.1667E+03 I                            I                            I I                            I                            I\r\n  4.8611E+03 I                          A I                            I I                  A         I                            I\r\n  5.5556E+03 I  *                         I                            I I           *                I                            I\r\n  6.2500E+03 I                            I                            I I                            I                            I\r\n  6.9444E+03 I     *                      I                            I I       *                    I                            I\r\n  7.6389E+03 I                            0                            I I                    0       I                            I\r\n  8.3333E+03 I                            I                            I I                            I                            I\r\n  9.0278E+03 I                            I     0                     AI I                    A       I       0                    I\r\n  9.7222E+03 I                            I                            I I                            I                            I\r\n  1.0417E+04 I                            I                            I I                            I                            I\r\n  1.1111E+04 I                            I                            I I                            I                            I\r\n  1.1806E+04 I                            I                            I I                            I                            I\r\n  1.2500E+04 I                            I                            I I                            I                            I\r\n  1.3194E+04 I                            I                            I I                            I                            I\r\n  1.3889E+04 I                            I                            I I                            I                            I\r\n  1.4583E+04 I                            I                            I I                            I                            I\r\n  1.5278E+04 I                            I                            I I                            I                            I\r\n  1.5972E+04 I                            I                            I I                            I                            I\r\n  1.6667E+04 I                          * I                            I I                     *      I                            I\r\n  1.7361E+04 I                            I                            I I                            I                            I\r\n  1.8056E+04 I                            I                            I I                            I                            I\r\n  1.8750E+04 I                            I                            I I                            I                            I\r\n  1.9444E+04 I                            I                            I I                            I                            I\r\n  2.0139E+04 I                            I                            I I                            I                            I\r\n1 2.0833E+04 I                            I                            I I                            I                            I\r\n  2.1528E+04 I                            I                            I I                            I                            I\r\n  2.2222E+04 I                            I         *                  I I                          * I                            I\r\n  2.2917E+04 I                            I                            I I                            I                            I\r\n  2.3611E+04 I                            I                            I I                            I                            I\r\n  2.4306E+04 I                            I                            I I                            I                            I\r\n  2.5000E+04 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                            F     R     A     M     E\r\n\r\n                                                           ****  ****  ****  ****  ****\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           *  *  *  *  *  *  *  *   ***\r\n                                                           *  *  *  *  *  *  *  *     *\r\n                                                           ****  ****  ****  ****  ****\r\n\r\n0                                                                                                                                   \r\n0    X-AXIS TITLE =  VELOCITY-V                                                                                                     \r\n0\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n             I                                                         I I                                                         I\r\n             I  FREQUENCY-F                                            I I  DAMPING-G                                              I\r\n             I                                                         I I                                                         I\r\n             I  2.000000E+02         9.000000E+02         1.600000E+03 I I -1.000000E+00         1.000000E+00         3.000000E+00 I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n  0.0000E+00 I                            I                            I I                            I                            I\r\n  6.9444E+02 I                            I                            I I                            I                            I\r\n  1.3889E+03 I A                          I                            I I              A             I                            I\r\n  2.0833E+03 I0                           I                            I I                            I                      0     I\r\n  2.7778E+03 I   0      A                 I                            I I              A0            I                            I\r\n  3.4722E+03 I                            I                            I I                            I                            I\r\n  4.1667E+03 I                            I                            I I                            I                            I\r\n  4.8611E+03 I *                        A I                            I I *            A             I                            I\r\n  5.5556E+03 I                            I                            I I                            I                            I\r\n  6.2500E+03 I    *                       I                            I I         *                  I                            I\r\n  6.9444E+03 I                            I                            I I                            I                            I\r\n  7.6389E+03 I                           0I                            I I               0            I                            I\r\n  8.3333E+03 I                            I                            I I                            I                            I\r\n  9.0278E+03 I                            I        0                A  I I               A      0     I                            I\r\n  9.7222E+03 I                            I                            I I                            I                            I\r\n  1.0417E+04 I                            I                            I I                            I                            I\r\n  1.1111E+04 I                            I                            I I                            I                            I\r\n  1.1806E+04 I                            I                            I I                            I                            I\r\n  1.2500E+04 I                            I                            I I                            I                            I\r\n  1.3194E+04 I                            I                            I I                            I                            I\r\n  1.3889E+04 I                            I                            I I                            I                            I\r\n  1.4583E+04 I                            I                            I I                            I                            I\r\n  1.5278E+04 I                            I                            I I                            I                            I\r\n  1.5972E+04 I                            I                            I I                            I                            I\r\n  1.6667E+04 I                            I                            I I                            I                            I\r\n  1.7361E+04 I                           *I                            I I              *             I                            I\r\n  1.8056E+04 I                            I                            I I                            I                            I\r\n  1.8750E+04 I                            I                            I I                            I                            I\r\n  1.9444E+04 I                            I                            I I                            I                            I\r\n  2.0139E+04 I                            I                            I I                            I                            I\r\n1 2.0833E+04 I                            I      *                     I I                        *   I                            I\r\n  2.1528E+04 I                            I                            I I                            I                            I\r\n  2.2222E+04 I                            I                            I I                            I                            I\r\n  2.2917E+04 I                            I                            I I                            I                            I\r\n  2.3611E+04 I                            I                            I I                            I                            I\r\n  2.4306E+04 I                            I                            I I                            I                            I\r\n  2.5000E+04 I                            I                            I I                            I                            I\r\n             +---------------------------------------------------------+ +---------------------------------------------------------+\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GOD      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE = -4.328647E+02,  5.228539E+03    (CYCLIC FREQUENCY =  8.321478E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -9.030342E-05   4.238902E-04  -4.306068E-05  -3.134765E-02   2.357821E-03   7.000553E-03                  \r\n                           2.888470E-05  -4.516955E-05   4.952570E-06   6.993254E-03   1.416572E-04  -1.736515E-03                  \r\n0            2      G     -9.030342E-05   4.238902E-04  -4.306068E-05  -3.134765E-02   2.357821E-03   7.000553E-03                  \r\n                           2.888470E-05  -4.516955E-05   4.952570E-06   6.993254E-03   1.416572E-04  -1.736515E-03                  \r\n0            3      G     -9.030342E-05   4.238902E-04  -4.306068E-05  -3.134765E-02   2.357821E-03   7.000553E-03                  \r\n                           2.888470E-05  -4.516955E-05   4.952570E-06   6.993254E-03   1.416572E-04  -1.736515E-03                  \r\n0            4      G     -5.896731E-02   1.148990E-01   1.831303E-02   8.927552E-02  -3.689167E-01  -1.264236E-01                  \r\n                           1.386408E-02  -2.670752E-02  -4.247655E-03  -2.197279E-02   8.703668E-02   2.906367E-02                  \r\n0            5      G     -1.937003E-02   5.572224E-02   3.391077E-04  -4.175215E-02  -6.127402E-02  -8.579380E-02                  \r\n                           4.574849E-03  -1.277182E-02  -1.133672E-04   1.099532E-02   1.121536E-02   2.015813E-02                  \r\n0            6      G     -3.781623E-03  -4.257127E-03   2.155176E-03   1.323911E-02  -6.947650E-02  -6.268991E-02                  \r\n                           9.082771E-04   1.331962E-03  -5.656885E-04  -3.448141E-03   1.481461E-02   1.405553E-02                  \r\n0            7      G     -2.141551E-01   3.608285E-01   5.877233E-02   0.0            0.0           -1.702939E-01                  \r\n                           5.366559E-02  -8.517324E-02  -1.390061E-02   0.0            0.0            4.422323E-02                  \r\n0            8      G     -1.195921E-01   2.841736E-01  -7.966765E-05  -2.698502E-01   1.525576E-01  -1.560342E-01                  \r\n                           2.513223E-02  -6.153479E-02  -1.809432E-04   7.857052E-02  -7.124799E-02   3.844019E-02                  \r\n0            9      G     -2.587737E-02   1.749173E-01  -3.539616E-02  -1.918066E-01   8.486366E-02  -1.847944E-01                  \r\n                           5.639520E-03  -3.873146E-02   7.964034E-03   3.657552E-02  -6.593068E-03   4.902437E-02                  \r\n0           10      G     -7.191872E-01   9.886759E-01   1.972114E-01   0.0            0.0           -6.615614E-02                  \r\n                          -5.527660E-02  -1.361317E-02   4.787410E-03   0.0            0.0            3.495948E-02                  \r\n0           11      G     -6.940609E-01   1.002831E+00   1.879443E-02  -8.914191E-01   2.978960E-01  -1.169061E-01                  \r\n                          -1.068150E-01   1.016272E-02   1.137896E-03  -1.406007E-01   1.525833E-02  -1.272289E-02                  \r\n0           12      G     -4.445969E-01   8.484515E-01  -1.061043E-01   0.0            0.0           -3.023560E-01                  \r\n                          -6.256751E-02  -1.442004E-02   1.219913E-03   0.0            0.0           -4.313917E-02                  \r\n0          101      G     -4.496607E-05  -2.846321E-04  -6.056248E-05   0.0            0.0            0.0                           \r\n                           5.234479E-06   3.070131E-05   1.964322E-05   0.0            0.0            0.0                           \r\n0          103      G     -2.326500E-05  -2.697448E-04  -5.716721E-05   0.0            0.0            0.0                           \r\n                           8.170464E-07   2.925613E-05   1.878027E-05   0.0            0.0            0.0                           \r\n0          104      G     -2.355529E-05  -2.696248E-04  -5.708173E-05   0.0            0.0            0.0                           \r\n                           8.534216E-07   2.923243E-05   1.876340E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE = -4.328647E+02,  5.228539E+03    (CYCLIC FREQUENCY =  8.321478E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.326500E-05  -2.697448E-04  -5.716721E-05   0.0            0.0            0.0                           \r\n                           8.170464E-07   2.925613E-05   1.878027E-05   0.0            0.0            0.0                           \r\n0          107      G     -4.496607E-05  -2.846321E-04  -6.056248E-05   0.0            0.0            0.0                           \r\n                           5.234479E-06   3.070131E-05   1.964322E-05   0.0            0.0            0.0                           \r\n0          108      G     -4.544882E-05  -2.843828E-04  -6.040748E-05   0.0            0.0            0.0                           \r\n                           5.294275E-06   3.065636E-05   1.961242E-05   0.0            0.0            0.0                           \r\n0          113      G     -4.590353E-05  -4.172438E-04  -8.511163E-05   0.0            0.0            0.0                           \r\n                           5.822948E-06   4.440555E-05   2.780074E-05   0.0            0.0            0.0                           \r\n0          115      G     -4.122229E-05  -4.292291E-04  -9.376866E-05   0.0            0.0            0.0                           \r\n                           4.240337E-06   4.575810E-05   2.948446E-05   0.0            0.0            0.0                           \r\n0          116      G     -9.030342E-05   4.238902E-04  -4.306068E-05   0.0            0.0            0.0                           \r\n                           2.888470E-05  -4.516955E-05   4.952570E-06   0.0            0.0            0.0                           \r\n0          117      G     -4.122229E-05  -4.292291E-04  -9.376866E-05   0.0            0.0            0.0                           \r\n                           4.240337E-06   4.575810E-05   2.948446E-05   0.0            0.0            0.0                           \r\n0          119      G     -4.590353E-05  -4.172438E-04  -8.511163E-05   0.0            0.0            0.0                           \r\n                           5.822948E-06   4.440555E-05   2.780074E-05   0.0            0.0            0.0                           \r\n0          120      G     -9.030342E-05   4.238902E-04  -4.306068E-05   0.0            0.0            0.0                           \r\n                           2.888470E-05  -4.516955E-05   4.952570E-06   0.0            0.0            0.0                           \r\n0          121      G     -2.692127E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.446079E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.783567E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.224315E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.779820E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.220156E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.783567E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.224315E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.692127E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.446079E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.686409E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.438202E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE = -2.067646E+03,  8.727666E+03    (CYCLIC FREQUENCY =  1.389051E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.928583E-05   5.416403E-04  -5.116181E-05  -4.046015E-02   2.459034E-03   7.562381E-03                  \r\n                           7.558664E-05   3.636605E-04  -3.242585E-05  -1.341259E-02   3.010701E-03   1.126336E-03                  \r\n0            2      G     -1.928583E-05   5.416403E-04  -5.116181E-05  -4.046015E-02   2.459034E-03   7.562381E-03                  \r\n                           7.558664E-05   3.636605E-04  -3.242585E-05  -1.341259E-02   3.010701E-03   1.126336E-03                  \r\n0            3      G     -1.928583E-05   5.416403E-04  -5.116181E-05  -4.046015E-02   2.459034E-03   7.562381E-03                  \r\n                           7.558664E-05   3.636605E-04  -3.242585E-05  -1.341259E-02   3.010701E-03   1.126336E-03                  \r\n0            4      G     -6.647413E-02   1.331850E-01   2.148180E-02   4.218137E-02  -3.059221E-01  -1.271788E-01                  \r\n                          -1.456808E-02   3.262132E-02   5.455366E-03  -3.080018E-02   2.379447E-03  -2.086148E-02                  \r\n0            5      G     -2.254656E-02   6.738661E-02   4.722218E-04  -5.116855E-02  -6.043064E-02  -1.022673E-01                  \r\n                          -5.318420E-03   1.887599E-02   2.098262E-05  -9.522402E-03  -1.972315E-02  -2.586126E-02                  \r\n0            6      G     -3.961564E-03  -3.880475E-03   1.947458E-03   1.674180E-02  -8.414714E-02  -7.412181E-02                  \r\n                          -6.170241E-04   9.671972E-04  -8.161727E-05   3.518809E-03  -2.765395E-02  -2.094928E-02                  \r\n0            7      G     -2.133812E-01   3.718615E-01   6.028509E-02   0.0            0.0           -1.589594E-01                  \r\n                          -1.682182E-02   5.908279E-02   9.291393E-03   0.0            0.0            1.561437E-03                  \r\n0            8      G     -1.063852E-01   2.843170E-01   7.717671E-04  -3.126716E-01   2.679088E-01  -1.518024E-01                  \r\n                          -1.752737E-02   6.095957E-02  -8.639024E-05  -1.565216E-02  -1.842194E-02  -1.188640E-02                  \r\n0            9      G     -2.173749E-02   1.848227E-01  -3.808254E-02  -1.701240E-01   3.537471E-02  -2.104769E-01                  \r\n                          -2.150952E-03   4.264914E-02  -8.708871E-03  -4.120899E-02   1.884456E-02  -2.715315E-02                  \r\n0           10      G      3.090870E-01   5.315721E-02  -2.493252E-02   0.0            0.0           -8.063015E-02                  \r\n                          -7.004043E-02   1.735409E-01   3.246194E-02   0.0            0.0            6.642437E-02                  \r\n0           11      G      4.556063E-01  -1.586257E-02  -4.651214E-03   8.541797E-01  -2.348970E-01   5.125511E-02                  \r\n                          -1.497847E-01   2.135999E-01   3.849514E-03   5.971607E-02  -1.083332E-01  -2.183212E-02                  \r\n0           12      G      2.949477E-01   7.309268E-02  -6.881128E-03   0.0            0.0            1.478158E-01                  \r\n                          -7.193787E-02   1.671395E-01  -2.119099E-02   0.0            0.0           -9.314235E-02                  \r\n0          101      G     -5.355485E-05  -3.597533E-04  -1.296665E-05   0.0            0.0            0.0                           \r\n                          -3.369591E-05  -2.394476E-04   5.168743E-05   0.0            0.0            0.0                           \r\n0          103      G     -3.700157E-05  -3.398512E-04  -1.140098E-05   0.0            0.0            0.0                           \r\n                          -3.237227E-05  -2.254019E-04   5.039509E-05   0.0            0.0            0.0                           \r\n0          104      G     -3.735514E-05  -3.397470E-04  -1.133730E-05   0.0            0.0            0.0                           \r\n                          -3.258593E-05  -2.253812E-04   5.040098E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE = -2.067646E+03,  8.727666E+03    (CYCLIC FREQUENCY =  1.389051E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -3.700157E-05  -3.398512E-04  -1.140098E-05   0.0            0.0            0.0                           \r\n                          -3.237227E-05  -2.254019E-04   5.039509E-05   0.0            0.0            0.0                           \r\n0          107      G     -5.355485E-05  -3.597533E-04  -1.296665E-05   0.0            0.0            0.0                           \r\n                          -3.369591E-05  -2.394476E-04   5.168743E-05   0.0            0.0            0.0                           \r\n0          108      G     -5.416056E-05  -3.595098E-04  -1.284673E-05   0.0            0.0            0.0                           \r\n                          -3.406880E-05  -2.393659E-04   5.170103E-05   0.0            0.0            0.0                           \r\n0          113      G     -5.210654E-05  -5.331411E-04  -1.534828E-05   0.0            0.0            0.0                           \r\n                          -3.047137E-05  -3.581643E-04   7.577921E-05   0.0            0.0            0.0                           \r\n0          115      G     -5.148620E-05  -5.484546E-04  -2.272047E-05   0.0            0.0            0.0                           \r\n                          -3.502857E-05  -3.681582E-04   7.431606E-05   0.0            0.0            0.0                           \r\n0          116      G     -1.928583E-05   5.416403E-04  -5.116181E-05   0.0            0.0            0.0                           \r\n                           7.558664E-05   3.636605E-04  -3.242585E-05   0.0            0.0            0.0                           \r\n0          117      G     -5.148620E-05  -5.484546E-04  -2.272047E-05   0.0            0.0            0.0                           \r\n                          -3.502857E-05  -3.681582E-04   7.431606E-05   0.0            0.0            0.0                           \r\n0          119      G     -5.210654E-05  -5.331411E-04  -1.534828E-05   0.0            0.0            0.0                           \r\n                          -3.047137E-05  -3.581643E-04   7.577921E-05   0.0            0.0            0.0                           \r\n0          120      G     -1.928583E-05   5.416403E-04  -5.116181E-05   0.0            0.0            0.0                           \r\n                           7.558664E-05   3.636605E-04  -3.242585E-05   0.0            0.0            0.0                           \r\n0          121      G     -3.021559E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.746138E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.337321E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.702440E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.332413E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.699192E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.337321E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.702440E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -3.021559E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.746138E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -3.014827E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.742391E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  8.317573E+02,  1.618452E+04    (CYCLIC FREQUENCY =  2.575846E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      6.152826E-05   2.026567E-04  -1.969171E-05  -3.665744E-03   1.216076E-03   1.226585E-04                  \r\n                           8.177963E-05   4.058392E-04  -3.558405E-05  -1.761855E-02   3.199078E-03   1.693901E-03                  \r\n0            2      G      6.152826E-05   2.026567E-04  -1.969171E-05  -3.665744E-03   1.216076E-03   1.226585E-04                  \r\n                           8.177963E-05   4.058392E-04  -3.558405E-05  -1.761855E-02   3.199078E-03   1.693901E-03                  \r\n0            3      G      6.152826E-05   2.026567E-04  -1.969171E-05  -3.665744E-03   1.216076E-03   1.226585E-04                  \r\n                           8.177963E-05   4.058392E-04  -3.558405E-05  -1.761855E-02   3.199078E-03   1.693901E-03                  \r\n0            4      G     -1.734811E-03   6.539357E-03   1.421330E-03  -3.604110E-02   5.611304E-02   2.961868E-03                  \r\n                          -2.032565E-02   4.443139E-02   7.342481E-03  -3.249651E-02  -1.345328E-02  -3.010704E-02                  \r\n0            5      G     -1.278408E-03   6.000019E-03  -3.156451E-04  -5.411897E-03  -1.160034E-03  -4.692297E-03                  \r\n                          -7.276890E-03   2.495313E-02   1.346912E-04  -1.358977E-02  -2.434065E-02  -3.549958E-02                  \r\n0            6      G     -8.056958E-05   1.340172E-03  -6.487375E-05   1.786375E-04  -6.469184E-03  -5.455693E-03                  \r\n                          -8.937424E-04   6.560110E-04  -1.337883E-05   5.287509E-03  -3.586853E-02  -2.764232E-02                  \r\n0            7      G      2.072452E-02   1.890766E-03   3.125925E-04   0.0            0.0            2.956882E-02                  \r\n                          -3.342131E-02   8.531024E-02   1.346604E-02   0.0            0.0           -1.044176E-02                  \r\n0            8      G     -1.003457E-02   2.946810E-02  -9.821990E-04   5.712555E-02  -1.201537E-01   9.996573E-03                  \r\n                          -2.030514E-02   7.538796E-02   2.932156E-04  -5.221140E-02   3.802659E-02  -2.207748E-02                  \r\n0            9      G     -5.630418E-03   2.410826E-02  -4.482446E-03  -1.274879E-02  -4.087064E-02  -8.415081E-03                  \r\n                          -1.596893E-03   5.301978E-02  -1.104940E-02  -4.751344E-02   2.221868E-02  -4.326700E-02                  \r\n0           10      G      3.259896E-01  -8.552232E-02  -3.147624E-02   0.0            0.0            4.111146E-01                  \r\n                           5.123195E-02   4.784373E-02   2.130100E-03   0.0            0.0           -1.767050E-02                  \r\n0           11      G     -5.725134E-02   8.288492E-02  -3.202772E-05   1.036374E+00  -6.825020E-01   1.117724E-01                  \r\n                           7.055043E-02   3.943400E-02  -8.513540E-05   2.011623E-01  -8.420832E-02  -1.491579E-02                  \r\n0           12      G     -3.467161E-02   6.945505E-02  -8.691484E-03   0.0            0.0            6.293124E-04                  \r\n                           7.183532E-02   3.805557E-02  -4.567042E-03   0.0            0.0           -1.649734E-02                  \r\n0          101      G     -1.956032E-05  -1.319704E-04   4.197528E-05   0.0            0.0            0.0                           \r\n                          -3.721160E-05  -2.672583E-04   5.578541E-05   0.0            0.0            0.0                           \r\n0          103      G     -2.106414E-05  -1.238645E-04   4.085683E-05   0.0            0.0            0.0                           \r\n                          -3.550507E-05  -2.516111E-04   5.435657E-05   0.0            0.0            0.0                           \r\n0          104      G     -2.117023E-05  -1.238609E-04   4.085032E-05   0.0            0.0            0.0                           \r\n                          -3.574694E-05  -2.515865E-04   5.436381E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  8.317573E+02,  1.618452E+04    (CYCLIC FREQUENCY =  2.575846E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.106414E-05  -1.238645E-04   4.085683E-05   0.0            0.0            0.0                           \r\n                          -3.550507E-05  -2.516111E-04   5.435657E-05   0.0            0.0            0.0                           \r\n0          107      G     -1.956032E-05  -1.319704E-04   4.197528E-05   0.0            0.0            0.0                           \r\n                          -3.721160E-05  -2.672583E-04   5.578541E-05   0.0            0.0            0.0                           \r\n0          108      G     -1.975045E-05  -1.319452E-04   4.196496E-05   0.0            0.0            0.0                           \r\n                          -3.763430E-05  -2.671624E-04   5.580245E-05   0.0            0.0            0.0                           \r\n0          113      G     -1.793463E-05  -1.996639E-04   6.100987E-05   0.0            0.0            0.0                           \r\n                          -3.351530E-05  -3.996626E-04   8.207897E-05   0.0            0.0            0.0                           \r\n0          115      G     -2.156045E-05  -2.050987E-04   6.109051E-05   0.0            0.0            0.0                           \r\n                          -3.845217E-05  -4.108809E-04   8.030491E-05   0.0            0.0            0.0                           \r\n0          116      G      6.152826E-05   2.026567E-04  -1.969171E-05   0.0            0.0            0.0                           \r\n                           8.177963E-05   4.058392E-04  -3.558405E-05   0.0            0.0            0.0                           \r\n0          117      G     -2.156045E-05  -2.050987E-04   6.109051E-05   0.0            0.0            0.0                           \r\n                          -3.845217E-05  -4.108809E-04   8.030491E-05   0.0            0.0            0.0                           \r\n0          119      G     -1.793463E-05  -1.996639E-04   6.100987E-05   0.0            0.0            0.0                           \r\n                          -3.351530E-05  -3.996626E-04   8.207897E-05   0.0            0.0            0.0                           \r\n0          120      G      6.152826E-05   2.026567E-04  -1.969171E-05   0.0            0.0            0.0                           \r\n                           8.177963E-05   4.058392E-04  -3.558405E-05   0.0            0.0            0.0                           \r\n0          121      G     -1.013778E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.920701E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.339333E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.077347E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.337652E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.073673E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.339333E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.077347E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.013778E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.920701E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.011974E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.916437E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.585434E+03,  2.513656E+04    (CYCLIC FREQUENCY =  4.000608E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.352009E-03   4.638341E-03  -3.914367E-04  -1.532798E-01   4.263696E-02   2.795157E-03                  \r\n                          -8.577006E-06   1.863564E-04  -1.696130E-05  -1.430913E-02   1.103194E-03   2.528480E-03                  \r\n0            2      G      1.352009E-03   4.638341E-03  -3.914367E-04  -1.532798E-01   4.263696E-02   2.795157E-03                  \r\n                          -8.577006E-06   1.863564E-04  -1.696130E-05  -1.430913E-02   1.103194E-03   2.528480E-03                  \r\n0            3      G      1.352009E-03   4.638341E-03  -3.914367E-04  -1.532798E-01   4.263696E-02   2.795157E-03                  \r\n                          -8.577006E-06   1.863564E-04  -1.696130E-05  -1.430913E-02   1.103194E-03   2.528480E-03                  \r\n0            4      G     -1.134100E-01   2.853298E-01   4.854505E-02  -6.447774E-01   7.467450E-01  -7.582906E-02                  \r\n                          -2.316909E-02   4.620300E-02   7.372532E-03   1.794598E-02  -1.122684E-01  -4.488948E-02                  \r\n0            5      G     -4.414425E-02   1.824484E-01   1.067695E-03  -5.045042E-02  -1.960203E-01  -2.429944E-01                  \r\n                          -7.708306E-03   2.302528E-02   2.551310E-04  -1.593238E-02  -2.300620E-02  -3.576367E-02                  \r\n0            6      G     -1.502781E-03   2.202791E-02  -6.634552E-03   3.226483E-02  -3.058095E-01  -2.046505E-01                  \r\n                          -1.327700E-03  -1.391392E-03   5.935542E-04   5.860262E-03  -3.016225E-02  -2.579162E-02                  \r\n0            7      G      1.334800E-01   1.684867E-01   2.126125E-02   0.0            0.0            3.226280E-01                  \r\n                          -7.607103E-02   1.269784E-01   2.051318E-02   0.0            0.0           -5.805952E-02                  \r\n0            8      G      3.647197E-02   2.579077E-01   3.743828E-03   9.338996E-02  -7.331997E-02   1.297452E-01                  \r\n                          -3.346810E-02   9.163692E-02   5.367133E-04  -1.176835E-01   1.159272E-01  -5.251628E-02                  \r\n0            9      G      5.385205E-02   2.311637E-01  -5.049812E-02  -1.904602E-01   2.739092E-01  -1.276207E-02                  \r\n                          -5.254665E-03   5.849076E-02  -1.218881E-02  -5.808407E-02   3.046254E-02  -6.740259E-02                  \r\n0           10      G     -1.516244E-01   3.270510E-01   6.405394E-02   0.0            0.0           -5.145283E-01                  \r\n                          -5.320335E-02   1.051838E-01   1.520290E-02   0.0            0.0           -1.488127E-01                  \r\n0           11      G      1.832364E-01   1.843744E-01   4.467000E-03  -5.211517E-02  -7.751644E-03  -4.758106E-01                  \r\n                           1.007995E-01   3.787471E-02  -3.199182E-05  -1.110137E-01   1.446947E-01  -3.135150E-02                  \r\n0           12      G      5.401883E-01  -1.645844E-02  -1.327410E-03   0.0            0.0           -5.737913E-01                  \r\n                           7.099269E-02   5.357455E-02  -6.124595E-03   0.0            0.0            1.332225E-02                  \r\n0          101      G     -4.104337E-04  -3.045186E-03   9.212929E-04   0.0            0.0            0.0                           \r\n                          -1.805219E-05  -1.241905E-04  -5.748968E-06   0.0            0.0            0.0                           \r\n0          103      G     -4.374103E-04  -2.863279E-03   8.934400E-04   0.0            0.0            0.0                           \r\n                          -1.210253E-05  -1.174042E-04  -5.195925E-06   0.0            0.0            0.0                           \r\n0          104      G     -4.400880E-04  -2.863231E-03   8.933473E-04   0.0            0.0            0.0                           \r\n                          -1.222729E-05  -1.173683E-04  -5.172548E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =1        MACH = 180.     KFREQ= .3       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.585434E+03,  2.513656E+04    (CYCLIC FREQUENCY =  4.000608E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.374103E-04  -2.863279E-03   8.934400E-04   0.0            0.0            0.0                           \r\n                          -1.210253E-05  -1.174042E-04  -5.195925E-06   0.0            0.0            0.0                           \r\n0          107      G     -4.104337E-04  -3.045186E-03   9.212929E-04   0.0            0.0            0.0                           \r\n                          -1.805219E-05  -1.241905E-04  -5.748968E-06   0.0            0.0            0.0                           \r\n0          108      G     -4.151527E-04  -3.044457E-03   9.211739E-04   0.0            0.0            0.0                           \r\n                          -1.826457E-05  -1.241042E-04  -5.705055E-06   0.0            0.0            0.0                           \r\n0          113      G     -3.559280E-04  -4.568458E-03   1.344033E-03   0.0            0.0            0.0                           \r\n                          -1.737630E-05  -1.834221E-04  -7.137546E-06   0.0            0.0            0.0                           \r\n0          115      G     -4.357690E-04  -4.695775E-03   1.339813E-03   0.0            0.0            0.0                           \r\n                          -1.705562E-05  -1.887180E-04  -9.794794E-06   0.0            0.0            0.0                           \r\n0          116      G      1.352009E-03   4.638341E-03  -3.914367E-04   0.0            0.0            0.0                           \r\n                          -8.577006E-06   1.863564E-04  -1.696130E-05   0.0            0.0            0.0                           \r\n0          117      G     -4.357690E-04  -4.695775E-03   1.339813E-03   0.0            0.0            0.0                           \r\n                          -1.705562E-05  -1.887180E-04  -9.794794E-06   0.0            0.0            0.0                           \r\n0          119      G     -3.559280E-04  -4.568458E-03   1.344033E-03   0.0            0.0            0.0                           \r\n                          -1.737630E-05  -1.834221E-04  -7.137546E-06   0.0            0.0            0.0                           \r\n0          120      G      1.352009E-03   4.638341E-03  -3.914367E-04   0.0            0.0            0.0                           \r\n                          -8.577006E-06   1.863564E-04  -1.696130E-05   0.0            0.0            0.0                           \r\n0          121      G     -2.028703E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.011735E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -5.002607E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.440419E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.998388E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.438690E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -5.002607E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.440419E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.028703E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.011735E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.024143E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.009365E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE = -1.037798E+03,  5.365337E+03    (CYCLIC FREQUENCY =  8.539199E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -7.184532E-05   4.923904E-04  -4.902034E-05  -3.369110E-02   2.927994E-03   7.113458E-03                  \r\n                           7.118206E-05  -1.199209E-04   1.300367E-05   1.784367E-02   3.046186E-04  -4.387084E-03                  \r\n0            2      G     -7.184532E-05   4.923904E-04  -4.902034E-05  -3.369110E-02   2.927994E-03   7.113458E-03                  \r\n                           7.118206E-05  -1.199209E-04   1.300367E-05   1.784367E-02   3.046186E-04  -4.387084E-03                  \r\n0            3      G     -7.184532E-05   4.923904E-04  -4.902034E-05  -3.369110E-02   2.927994E-03   7.113458E-03                  \r\n                           7.118206E-05  -1.199209E-04   1.300367E-05   1.784367E-02   3.046186E-04  -4.387084E-03                  \r\n0            4      G     -6.100929E-02   1.198132E-01   1.915334E-02   8.042368E-02  -3.604210E-01  -1.283756E-01                  \r\n                           3.513635E-02  -6.777197E-02  -1.078316E-02  -5.462611E-02   2.187064E-01   7.345022E-02                  \r\n0            5      G     -2.016348E-02   5.878308E-02   3.402807E-04  -4.311924E-02  -6.414689E-02  -8.982841E-02                  \r\n                           1.160359E-02  -3.246958E-02  -2.869313E-04   2.782631E-02   2.854636E-02   5.118556E-02                  \r\n0            6      G     -3.841744E-03  -3.976015E-03   2.094903E-03   1.378648E-02  -7.413405E-02  -6.604072E-02                  \r\n                           2.294702E-03   3.333604E-03  -1.419887E-03  -8.743488E-03   3.777469E-02   3.573554E-02                  \r\n0            7      G     -2.136678E-01   3.664837E-01   5.961994E-02   0.0            0.0           -1.666552E-01                  \r\n                           1.352719E-01  -2.152068E-01  -3.511511E-02   0.0            0.0            1.111942E-01                  \r\n0            8      G     -1.206846E-01   2.913553E-01  -7.692874E-05  -2.690600E-01   1.485669E-01  -1.555218E-01                  \r\n                           6.341174E-02  -1.556885E-01  -4.597019E-04   1.981326E-01  -1.795785E-01   9.686094E-02                  \r\n0            9      G     -2.574969E-02   1.805816E-01  -3.657305E-02  -1.962149E-01   8.614211E-02  -1.874740E-01                  \r\n                           1.418025E-02  -9.808742E-02   2.017176E-02   9.257159E-02  -1.689107E-02   1.237851E-01                  \r\n0           10      G     -6.989477E-01   9.862894E-01   1.955625E-01   0.0            0.0           -5.213085E-02                  \r\n                          -1.400933E-01  -3.443839E-02   1.210214E-02   0.0            0.0            8.816478E-02                  \r\n0           11      G     -6.875806E-01   1.006423E+00   1.874030E-02  -8.272086E-01   2.598462E-01  -1.157744E-01                  \r\n                          -2.699602E-01   2.547744E-02   2.871339E-03  -3.569313E-01   3.978269E-02  -3.176888E-02                  \r\n0           12      G     -4.354998E-01   8.505514E-01  -1.063781E-01   0.0            0.0           -3.062957E-01                  \r\n                          -1.586573E-01  -3.635784E-02   3.077748E-03   0.0            0.0           -1.082931E-01                  \r\n0          101      G     -5.115960E-05  -3.295849E-04  -4.798250E-05   0.0            0.0            0.0                           \r\n                           1.373783E-05   8.137021E-05   4.840550E-05   0.0            0.0            0.0                           \r\n0          103      G     -2.969270E-05  -3.120152E-04  -4.494953E-05   0.0            0.0            0.0                           \r\n                           2.622699E-06   7.749043E-05   4.626264E-05   0.0            0.0            0.0                           \r\n0          104      G     -3.002237E-05  -3.118935E-04  -4.486486E-05   0.0            0.0            0.0                           \r\n                           2.717909E-06   7.743051E-05   4.622019E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE = -1.037798E+03,  5.365337E+03    (CYCLIC FREQUENCY =  8.539199E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.969270E-05  -3.120152E-04  -4.494953E-05   0.0            0.0            0.0                           \r\n                           2.622699E-06   7.749043E-05   4.626264E-05   0.0            0.0            0.0                           \r\n0          107      G     -5.115960E-05  -3.295849E-04  -4.798250E-05   0.0            0.0            0.0                           \r\n                           1.373783E-05   8.137021E-05   4.840550E-05   0.0            0.0            0.0                           \r\n0          108      G     -5.171177E-05  -3.293237E-04  -4.782830E-05   0.0            0.0            0.0                           \r\n                           1.389474E-05   8.125583E-05   4.832792E-05   0.0            0.0            0.0                           \r\n0          113      G     -5.137549E-05  -4.847115E-04  -6.673511E-05   0.0            0.0            0.0                           \r\n                           1.515504E-05   1.179036E-04   6.845647E-05   0.0            0.0            0.0                           \r\n0          115      G     -4.778859E-05  -4.985752E-04  -7.550459E-05   0.0            0.0            0.0                           \r\n                           1.126228E-05   1.214796E-04   7.271131E-05   0.0            0.0            0.0                           \r\n0          116      G     -7.184532E-05   4.923904E-04  -4.902034E-05   0.0            0.0            0.0                           \r\n                           7.118206E-05  -1.199209E-04   1.300367E-05   0.0            0.0            0.0                           \r\n0          117      G     -4.778859E-05  -4.985752E-04  -7.550459E-05   0.0            0.0            0.0                           \r\n                           1.126228E-05   1.214796E-04   7.271131E-05   0.0            0.0            0.0                           \r\n0          119      G     -5.137549E-05  -4.847115E-04  -6.673511E-05   0.0            0.0            0.0                           \r\n                           1.515504E-05   1.179036E-04   6.845647E-05   0.0            0.0            0.0                           \r\n0          120      G     -7.184532E-05   4.923904E-04  -4.902034E-05   0.0            0.0            0.0                           \r\n                           7.118206E-05  -1.199209E-04   1.300367E-05   0.0            0.0            0.0                           \r\n0          121      G     -3.004032E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           8.958755E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -3.516167E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.730041E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -3.511805E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.719009E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -3.516167E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.730041E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -3.004032E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           8.958755E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.997637E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           8.938298E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE = -2.055885E+03,  6.887124E+03    (CYCLIC FREQUENCY =  1.096120E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -7.801329E-05   3.224638E-04  -3.204970E-05  -3.349838E-02   5.478174E-04   7.306111E-03                  \r\n                           3.794354E-05   4.534051E-04  -4.203241E-05  -2.178230E-02   3.396855E-03   3.206436E-03                  \r\n0            2      G     -7.801329E-05   3.224638E-04  -3.204970E-05  -3.349838E-02   5.478174E-04   7.306111E-03                  \r\n                           3.794354E-05   4.534051E-04  -4.203241E-05  -2.178230E-02   3.396855E-03   3.206436E-03                  \r\n0            3      G     -7.801329E-05   3.224638E-04  -3.204970E-05  -3.349838E-02   5.478174E-04   7.306111E-03                  \r\n                           3.794354E-05   4.534051E-04  -4.203241E-05  -2.178230E-02   3.396855E-03   3.206436E-03                  \r\n0            4      G     -6.076242E-02   1.191440E-01   1.907150E-02   6.988324E-02  -3.345295E-01  -1.220824E-01                  \r\n                          -3.153582E-02   6.517066E-02   1.060807E-02   1.192823E-03  -1.148576E-01  -5.843272E-02                  \r\n0            5      G     -2.030999E-02   5.848706E-02   4.771955E-04  -4.776287E-02  -5.126126E-02  -9.072457E-02                  \r\n                          -1.082192E-02   3.427974E-02   1.334492E-04  -2.155092E-02  -3.681808E-02  -5.002284E-02                  \r\n0            6      G     -3.817341E-03  -4.857130E-03   2.167254E-03   1.528168E-02  -7.013942E-02  -6.428549E-02                  \r\n                          -1.738668E-03  -5.061579E-04   6.055462E-04   7.317008E-03  -4.643504E-02  -3.833020E-02                  \r\n0            7      G     -2.174453E-01   3.578401E-01   5.823445E-02   0.0            0.0           -1.724238E-01                  \r\n                          -8.283383E-02   1.661802E-01   2.676999E-02   0.0            0.0           -5.279670E-02                  \r\n0            8      G     -1.033581E-01   2.636820E-01   8.076121E-04  -3.210979E-01   2.901467E-01  -1.551210E-01                  \r\n                          -5.292992E-02   1.430362E-01  -7.431103E-05  -1.004125E-01   3.503868E-02  -5.988376E-02                  \r\n0            9      G     -2.230168E-02   1.686396E-01  -3.474521E-02  -1.560076E-01   2.778933E-02  -2.056259E-01                  \r\n                          -9.902906E-03   9.253191E-02  -1.880777E-02  -9.663544E-02   4.413525E-02  -8.228827E-02                  \r\n0           10      G      3.101866E-01   4.540941E-03  -3.340574E-02   0.0            0.0           -1.243535E-01                  \r\n                          -2.900397E-01   4.620479E-01   9.036567E-02   0.0            0.0            2.880660E-02                  \r\n0           11      G      5.072313E-01  -8.829697E-02  -5.932685E-03   7.650093E-01  -1.495297E-01   5.990580E-02                  \r\n                          -3.436268E-01   4.978146E-01   9.203407E-03  -2.407087E-01   9.748753E-03  -5.780417E-02                  \r\n0           12      G      3.111981E-01   2.135334E-02  -2.072853E-04   0.0            0.0            1.903697E-01                  \r\n                          -1.987528E-01   4.096128E-01  -5.146869E-02   0.0            0.0           -1.754380E-01                  \r\n0          101      G     -3.369336E-05  -2.158304E-04  -5.303733E-05   0.0            0.0            0.0                           \r\n                          -4.376940E-05  -3.002970E-04   2.631685E-05   0.0            0.0            0.0                           \r\n0          103      G     -1.645063E-05  -2.045008E-04  -5.032831E-05   0.0            0.0            0.0                           \r\n                          -3.575900E-05  -2.832558E-04   2.624839E-05   0.0            0.0            0.0                           \r\n0          104      G     -1.667831E-05  -2.044020E-04  -5.026240E-05   0.0            0.0            0.0                           \r\n                          -3.603864E-05  -2.831998E-04   2.628056E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE = -2.055885E+03,  6.887124E+03    (CYCLIC FREQUENCY =  1.096120E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -1.645063E-05  -2.045008E-04  -5.032831E-05   0.0            0.0            0.0                           \r\n                          -3.575900E-05  -2.832558E-04   2.624839E-05   0.0            0.0            0.0                           \r\n0          107      G     -3.369336E-05  -2.158304E-04  -5.303733E-05   0.0            0.0            0.0                           \r\n                          -4.376940E-05  -3.002970E-04   2.631685E-05   0.0            0.0            0.0                           \r\n0          108      G     -3.407767E-05  -2.156247E-04  -5.291538E-05   0.0            0.0            0.0                           \r\n                          -4.424987E-05  -3.001464E-04   2.637777E-05   0.0            0.0            0.0                           \r\n0          113      G     -3.454835E-05  -3.172600E-04  -7.382672E-05   0.0            0.0            0.0                           \r\n                          -4.121451E-05  -4.464751E-04   3.975291E-05   0.0            0.0            0.0                           \r\n0          115      G     -3.044359E-05  -3.265733E-04  -8.082761E-05   0.0            0.0            0.0                           \r\n                          -4.374290E-05  -4.590446E-04   3.573158E-05   0.0            0.0            0.0                           \r\n0          116      G     -7.801329E-05   3.224638E-04  -3.204970E-05   0.0            0.0            0.0                           \r\n                           3.794354E-05   4.534051E-04  -4.203241E-05   0.0            0.0            0.0                           \r\n0          117      G     -3.044359E-05  -3.265733E-04  -8.082761E-05   0.0            0.0            0.0                           \r\n                          -4.374290E-05  -4.590446E-04   3.573158E-05   0.0            0.0            0.0                           \r\n0          119      G     -3.454835E-05  -3.172600E-04  -7.382672E-05   0.0            0.0            0.0                           \r\n                          -4.121451E-05  -4.464751E-04   3.975291E-05   0.0            0.0            0.0                           \r\n0          120      G     -7.801329E-05   3.224638E-04  -3.204970E-05   0.0            0.0            0.0                           \r\n                           3.794354E-05   4.534051E-04  -4.203241E-05   0.0            0.0            0.0                           \r\n0          121      G     -2.019810E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.381330E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -1.994869E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.129900E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -1.991923E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.125859E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -1.994869E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.129900E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.019810E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.381330E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.015239E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.376228E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  1.067873E+03,  1.683735E+04    (CYCLIC FREQUENCY =  2.679747E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.612375E-05  -1.426183E-04   1.032561E-05   1.040704E-02  -1.603426E-03  -1.011128E-03                  \r\n                           1.305172E-04   5.818703E-04  -5.060016E-05  -2.367078E-02   4.761537E-03   1.906051E-03                  \r\n0            2      G     -1.612375E-05  -1.426183E-04   1.032561E-05   1.040704E-02  -1.603426E-03  -1.011128E-03                  \r\n                           1.305172E-04   5.818703E-04  -5.060016E-05  -2.367078E-02   4.761537E-03   1.906051E-03                  \r\n0            3      G     -1.612375E-05  -1.426183E-04   1.032561E-05   1.040704E-02  -1.603426E-03  -1.011128E-03                  \r\n                           1.305172E-04   5.818703E-04  -5.060016E-05  -2.367078E-02   4.761537E-03   1.906051E-03                  \r\n0            4      G      1.330818E-02  -2.706806E-02  -4.163562E-03  -2.966125E-03   5.006018E-02   2.344610E-02                  \r\n                          -2.531135E-02   5.653986E-02   9.394513E-03  -5.544288E-02   9.762302E-03  -3.453868E-02                  \r\n0            5      G      4.183774E-03  -1.331631E-02  -4.163975E-04   4.284271E-03   1.785879E-02   2.243100E-02                  \r\n                          -9.186526E-03   3.248894E-02   1.692527E-04  -1.625987E-02  -3.211465E-02  -4.561969E-02                  \r\n0            6      G      5.176911E-04   5.050911E-04   6.465708E-05  -3.789153E-03   2.203021E-02   1.596032E-02                  \r\n                          -1.006837E-03   1.408593E-03  -2.182269E-04   6.663016E-03  -4.797192E-02  -3.603672E-02                  \r\n0            7      G      3.928666E-02  -5.553597E-02  -8.655464E-03   0.0            0.0            2.991361E-02                  \r\n                          -3.127406E-02   9.671858E-02   1.510452E-02   0.0            0.0           -6.283447E-04                  \r\n0            8      G      2.317310E-03  -2.360579E-02  -1.225721E-03   8.806380E-02  -1.418746E-01   2.154942E-02                  \r\n                          -2.091521E-02   8.947711E-02   4.047559E-04  -5.177974E-02   3.565351E-02  -1.948218E-02                  \r\n0            9      G     -5.514858E-03  -1.422079E-02   3.542274E-03   2.097933E-02  -5.898610E-02   1.964581E-02                  \r\n                          -2.104254E-04   6.453695E-02  -1.350731E-02  -5.708113E-02   3.112303E-02  -4.704058E-02                  \r\n0           10      G      2.848333E-01  -1.148859E-01  -3.215443E-02   0.0            0.0            4.252621E-01                  \r\n                           5.928571E-02   5.843612E-02   3.278830E-03   0.0            0.0           -2.437323E-02                  \r\n0           11      G     -1.114647E-01   5.930762E-02   8.357024E-05   8.826116E-01  -6.149245E-01   1.270356E-01                  \r\n                           8.073311E-02   4.920983E-02   2.583140E-05   2.414784E-01  -1.080446E-01  -2.757495E-02                  \r\n0           12      G     -9.397989E-02   4.909736E-02  -6.220785E-03   0.0            0.0            1.868912E-02                  \r\n                           9.323219E-02   4.146572E-02  -5.081027E-03   0.0            0.0           -3.481509E-02                  \r\n0          101      G      1.183414E-05   9.520011E-05  -1.097211E-05   0.0            0.0            0.0                           \r\n                          -5.292214E-05  -3.828579E-04   8.900130E-05   0.0            0.0            0.0                           \r\n0          103      G      9.781012E-06   8.993136E-05  -1.065389E-05   0.0            0.0            0.0                           \r\n                          -5.195444E-05  -3.603224E-04   8.659051E-05   0.0            0.0            0.0                           \r\n0          104      G      9.878878E-06   8.991853E-05  -1.066311E-05   0.0            0.0            0.0                           \r\n                          -5.229821E-05  -3.602945E-04   8.659528E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  1.067873E+03,  1.683735E+04    (CYCLIC FREQUENCY =  2.679747E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      9.781012E-06   8.993136E-05  -1.065389E-05   0.0            0.0            0.0                           \r\n                          -5.195444E-05  -3.603224E-04   8.659051E-05   0.0            0.0            0.0                           \r\n0          107      G      1.183414E-05   9.520011E-05  -1.097211E-05   0.0            0.0            0.0                           \r\n                          -5.292214E-05  -3.828579E-04   8.900130E-05   0.0            0.0            0.0                           \r\n0          108      G      1.200130E-05   9.515080E-05  -1.099078E-05   0.0            0.0            0.0                           \r\n                          -5.352425E-05  -3.827322E-04   8.901567E-05   0.0            0.0            0.0                           \r\n0          113      G      1.009121E-05   1.403700E-04  -1.667436E-05   0.0            0.0            0.0                           \r\n                          -4.725360E-05  -5.730385E-04   1.305815E-04   0.0            0.0            0.0                           \r\n0          115      G      1.111855E-05   1.444612E-04  -1.539765E-05   0.0            0.0            0.0                           \r\n                          -5.507615E-05  -5.890913E-04   1.285526E-04   0.0            0.0            0.0                           \r\n0          116      G     -1.612375E-05  -1.426183E-04   1.032561E-05   0.0            0.0            0.0                           \r\n                           1.305172E-04   5.818703E-04  -5.060016E-05   0.0            0.0            0.0                           \r\n0          117      G      1.111855E-05   1.444612E-04  -1.539765E-05   0.0            0.0            0.0                           \r\n                          -5.507615E-05  -5.890913E-04   1.285526E-04   0.0            0.0            0.0                           \r\n0          119      G      1.009121E-05   1.403700E-04  -1.667436E-05   0.0            0.0            0.0                           \r\n                          -4.725360E-05  -5.730385E-04   1.305815E-04   0.0            0.0            0.0                           \r\n0          120      G     -1.612375E-05  -1.426183E-04   1.032561E-05   0.0            0.0            0.0                           \r\n                           1.305172E-04   5.818703E-04  -5.060016E-05   0.0            0.0            0.0                           \r\n0          121      G      5.899788E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.704281E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      1.197816E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.958101E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      1.196371E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.952831E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      1.197816E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.958101E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      5.899788E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.704281E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      5.882173E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.698271E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  4.500493E+03,  2.252555E+04    (CYCLIC FREQUENCY =  3.585053E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -4.326048E-04  -1.924309E-03   1.647442E-04   8.053824E-02  -1.646094E-02  -6.114439E-03                  \r\n                           9.510380E-04   3.171690E-03  -2.682607E-04  -1.002452E-01   2.912426E-02   9.368327E-04                  \r\n0            2      G     -4.326048E-04  -1.924309E-03   1.647442E-04   8.053824E-02  -1.646094E-02  -6.114439E-03                  \r\n                           9.510380E-04   3.171690E-03  -2.682607E-04  -1.002452E-01   2.912426E-02   9.368327E-04                  \r\n0            3      G     -4.326048E-04  -1.924309E-03   1.647442E-04   8.053824E-02  -1.646094E-02  -6.114439E-03                  \r\n                           9.510380E-04   3.171690E-03  -2.682607E-04  -1.002452E-01   2.912426E-02   9.368327E-04                  \r\n0            4      G      8.541719E-02  -1.900191E-01  -3.131282E-02   1.777802E-01  -1.791549E-02   1.174644E-01                  \r\n                          -6.867504E-02   1.785854E-01   3.071244E-02  -4.620270E-01   5.781707E-01  -3.228270E-02                  \r\n0            5      G      3.053565E-02  -1.080544E-01  -8.999294E-04   4.935084E-02   1.126270E-01   1.545526E-01                  \r\n                          -2.751740E-02   1.175981E-01   4.907092E-04  -3.026381E-02  -1.247674E-01  -1.531653E-01                  \r\n0            6      G      3.219580E-03  -4.453538E-03   1.005055E-03  -2.284444E-02   1.639769E-01   1.211761E-01                  \r\n                          -5.224001E-04   1.614213E-02  -4.788606E-03   1.970273E-02  -1.989807E-01  -1.313775E-01                  \r\n0            7      G      1.122394E-01  -3.164318E-01  -4.912030E-02   0.0            0.0            1.238841E-02                  \r\n                           1.304853E-01   6.435031E-02   6.338602E-03   0.0            0.0            2.558793E-01                  \r\n0            8      G      5.552091E-02  -2.722481E-01  -2.422097E-03   2.136544E-01  -2.215805E-01   6.459473E-02                  \r\n                           3.413891E-02   1.512460E-01   1.919066E-03   1.353341E-01  -1.475501E-01   1.138773E-01                  \r\n0            9      G     -7.656138E-03  -1.959043E-01   4.164405E-02   1.815741E-01  -1.555568E-01   1.422113E-01                  \r\n                           3.643538E-02   1.441569E-01  -3.139725E-02  -1.116836E-01   1.568563E-01   1.489105E-02                  \r\n0           10      G      1.612557E-01  -3.141851E-01  -5.067973E-02   0.0            0.0            5.006111E-01                  \r\n                           5.914353E-02   1.417789E-01   2.359782E-02   0.0            0.0           -1.158772E-01                  \r\n0           11      G     -2.900279E-01  -1.176255E-01  -1.042714E-03   2.750149E-01  -3.238158E-01   2.270359E-01                  \r\n                           6.259795E-02   1.430883E-01   2.986546E-03   4.538224E-01  -3.549570E-01  -2.636660E-01                  \r\n0           12      G     -3.403824E-01  -8.735295E-02   1.084169E-02   0.0            0.0            1.573403E-01                  \r\n                           3.264678E-01  -5.219042E-03  -1.883621E-03   0.0            0.0           -3.950102E-01                  \r\n0          101      G      1.733513E-04   1.267155E-03  -2.949676E-04   0.0            0.0            0.0                           \r\n                          -2.807101E-04  -2.081085E-03   6.480414E-04   0.0            0.0            0.0                           \r\n0          103      G      1.701986E-04   1.192759E-03  -2.868114E-04   0.0            0.0            0.0                           \r\n                          -3.021465E-04  -1.956418E-03   6.283593E-04   0.0            0.0            0.0                           \r\n0          104      G      1.713452E-04   1.192670E-03  -2.868282E-04   0.0            0.0            0.0                           \r\n                          -3.039658E-04  -1.956399E-03   6.282839E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =2        MACH = 180.     KFREQ= .3       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  4.500493E+03,  2.252555E+04    (CYCLIC FREQUENCY =  3.585053E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      1.701986E-04   1.192759E-03  -2.868114E-04   0.0            0.0            0.0                           \r\n                          -3.021465E-04  -1.956418E-03   6.283593E-04   0.0            0.0            0.0                           \r\n0          107      G      1.733513E-04   1.267155E-03  -2.949676E-04   0.0            0.0            0.0                           \r\n                          -2.807101E-04  -2.081085E-03   6.480414E-04   0.0            0.0            0.0                           \r\n0          108      G      1.753567E-04   1.266736E-03  -2.950177E-04   0.0            0.0            0.0                           \r\n                          -2.839209E-04  -2.080613E-03   6.479381E-04   0.0            0.0            0.0                           \r\n0          113      G      1.537783E-04   1.895053E-03  -4.328912E-04   0.0            0.0            0.0                           \r\n                          -2.431463E-04  -3.123981E-03   9.447986E-04   0.0            0.0            0.0                           \r\n0          115      G      1.797039E-04   1.948252E-03  -4.260553E-04   0.0            0.0            0.0                           \r\n                          -2.992300E-04  -3.210913E-03   9.430336E-04   0.0            0.0            0.0                           \r\n0          116      G     -4.326048E-04  -1.924309E-03   1.647442E-04   0.0            0.0            0.0                           \r\n                           9.510380E-04   3.171690E-03  -2.682607E-04   0.0            0.0            0.0                           \r\n0          117      G      1.797039E-04   1.948252E-03  -4.260553E-04   0.0            0.0            0.0                           \r\n                          -2.992300E-04  -3.210913E-03   9.430336E-04   0.0            0.0            0.0                           \r\n0          119      G      1.537783E-04   1.895053E-03  -4.328912E-04   0.0            0.0            0.0                           \r\n                          -2.431463E-04  -3.123981E-03   9.447986E-04   0.0            0.0            0.0                           \r\n0          120      G     -4.326048E-04  -1.924309E-03   1.647442E-04   0.0            0.0            0.0                           \r\n                           9.510380E-04   3.171690E-03  -2.682607E-04   0.0            0.0            0.0                           \r\n0          121      G      8.808742E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.384649E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      1.958430E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.450371E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      1.956671E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.447495E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      1.958430E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.450371E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      8.808742E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.384649E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      8.788714E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.381560E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE = -2.060929E+03,  4.758871E+03    (CYCLIC FREQUENCY =  7.573978E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.177482E-04   6.766594E-04  -6.741372E-05  -5.269319E-02   3.261984E-03   1.128464E-02                  \r\n                           1.535674E-04  -3.878260E-06   4.213587E-06   2.062505E-02   1.923607E-03  -6.266729E-03                  \r\n0            2      G     -1.177482E-04   6.766594E-04  -6.741372E-05  -5.269319E-02   3.261984E-03   1.128464E-02                  \r\n                           1.535674E-04  -3.878260E-06   4.213587E-06   2.062505E-02   1.923607E-03  -6.266729E-03                  \r\n0            3      G     -1.177482E-04   6.766594E-04  -6.741372E-05  -5.269319E-02   3.261984E-03   1.128464E-02                  \r\n                           1.535674E-04  -3.878260E-06   4.213587E-06   2.062505E-02   1.923607E-03  -6.266729E-03                  \r\n0            4      G     -9.565236E-02   1.876799E-01   3.001324E-02   1.213824E-01  -5.533031E-01  -1.983054E-01                  \r\n                           4.723426E-02  -8.861431E-02  -1.395325E-02  -1.041682E-01   3.482227E-01   1.046735E-01                  \r\n0            5      G     -3.173022E-02   9.205284E-02   6.079989E-04  -7.026093E-02  -9.361757E-02  -1.414388E-01                  \r\n                           1.529985E-02  -4.065937E-02  -4.207772E-04   3.812765E-02   3.520050E-02   6.608036E-02                  \r\n0            6      G     -6.024606E-03  -6.753205E-03   3.339974E-03   2.245112E-02  -1.140375E-01  -1.026435E-01                  \r\n                           3.275319E-03   5.695684E-03  -2.279090E-03  -1.164795E-02   4.443219E-02   4.477646E-02                  \r\n0            7      G     -3.380865E-01   5.712501E-01   9.294958E-02   0.0            0.0           -2.654650E-01                  \r\n                           2.031783E-01  -3.070341E-01  -5.029463E-02   0.0            0.0            1.752555E-01                  \r\n0            8      G     -1.803469E-01   4.427137E-01   3.553470E-04  -4.513478E-01   3.105640E-01  -2.444084E-01                  \r\n                           9.211769E-02  -2.145136E-01  -6.642514E-04   2.973676E-01  -2.769653E-01   1.459902E-01                  \r\n0            9      G     -3.866848E-02   2.771531E-01  -5.644860E-02  -2.863896E-01   1.033424E-01  -3.045889E-01                  \r\n                           2.162592E-02  -1.322686E-01   2.716212E-02   1.271023E-01  -2.122773E-02   1.782266E-01                  \r\n0           10      G     -5.494009E-01   1.016013E+00   1.827831E-01   0.0            0.0           -1.203525E-01                  \r\n                          -1.623332E-01  -5.600645E-02   1.438092E-02   0.0            0.0            1.616552E-01                  \r\n0           11      G     -4.311917E-01   9.864967E-01   1.603393E-02  -4.333932E-01   1.852707E-01  -8.582158E-02                  \r\n                          -3.861378E-01   4.643053E-02   4.159837E-03  -3.837004E-01  -2.841642E-02  -4.644085E-02                  \r\n0           12      G     -2.790551E-01   8.861121E-01  -1.094818E-01   0.0            0.0           -2.106960E-01                  \r\n                          -2.131355E-01  -4.977168E-02   3.997995E-03   0.0            0.0           -1.723508E-01                  \r\n0          101      G     -7.048607E-05  -4.529826E-04  -7.916763E-05   0.0            0.0            0.0                           \r\n                           4.698792E-06   6.523944E-06   1.045007E-04   0.0            0.0            0.0                           \r\n0          103      G     -3.900794E-05  -4.289513E-04  -7.454590E-05   0.0            0.0            0.0                           \r\n                          -1.250444E-05   7.589348E-06   1.003702E-04   0.0            0.0            0.0                           \r\n0          104      G     -3.946785E-05  -4.287724E-04  -7.442290E-05   0.0            0.0            0.0                           \r\n                          -1.246312E-05   7.504132E-06   1.003047E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE = -2.060929E+03,  4.758871E+03    (CYCLIC FREQUENCY =  7.573978E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -3.900794E-05  -4.289513E-04  -7.454590E-05   0.0            0.0            0.0                           \r\n                          -1.250444E-05   7.589348E-06   1.003702E-04   0.0            0.0            0.0                           \r\n0          107      G     -7.048607E-05  -4.529826E-04  -7.916763E-05   0.0            0.0            0.0                           \r\n                           4.698792E-06   6.523944E-06   1.045007E-04   0.0            0.0            0.0                           \r\n0          108      G     -7.125773E-05  -4.526029E-04  -7.894264E-05   0.0            0.0            0.0                           \r\n                           4.755373E-06   6.383576E-06   1.043828E-04   0.0            0.0            0.0                           \r\n0          113      G     -7.123213E-05  -6.660091E-04  -1.102087E-04   0.0            0.0            0.0                           \r\n                           8.673549E-06   3.507128E-06   1.492883E-04   0.0            0.0            0.0                           \r\n0          115      G     -6.522612E-05  -6.851918E-04  -1.230280E-04   0.0            0.0            0.0                           \r\n                           5.804031E-08   4.041416E-06   1.553545E-04   0.0            0.0            0.0                           \r\n0          116      G     -1.177482E-04   6.766594E-04  -6.741372E-05   0.0            0.0            0.0                           \r\n                           1.535674E-04  -3.878260E-06   4.213587E-06   0.0            0.0            0.0                           \r\n0          117      G     -6.522612E-05  -6.851918E-04  -1.230280E-04   0.0            0.0            0.0                           \r\n                           5.804031E-08   4.041416E-06   1.553545E-04   0.0            0.0            0.0                           \r\n0          119      G     -7.123213E-05  -6.660091E-04  -1.102087E-04   0.0            0.0            0.0                           \r\n                           8.673549E-06   3.507128E-06   1.492883E-04   0.0            0.0            0.0                           \r\n0          120      G     -1.177482E-04   6.766594E-04  -6.741372E-05   0.0            0.0            0.0                           \r\n                           1.535674E-04  -3.878260E-06   4.213587E-06   0.0            0.0            0.0                           \r\n0          121      G     -4.165479E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.421360E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.646567E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.315457E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.640526E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.315529E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.646567E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.315457E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -4.165479E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.421360E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -4.156468E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.408152E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE = -1.018604E+03,  6.454173E+03    (CYCLIC FREQUENCY =  1.027214E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -3.722639E-05   1.010633E-04  -9.751364E-06  -1.762381E-02  -7.151272E-04   3.840242E-03                  \r\n                          -8.721829E-06   3.991715E-04  -3.826551E-05  -2.289589E-02   2.709213E-03   4.172445E-03                  \r\n0            2      G     -3.722639E-05   1.010633E-04  -9.751364E-06  -1.762381E-02  -7.151272E-04   3.840242E-03                  \r\n                          -8.721829E-06   3.991715E-04  -3.826551E-05  -2.289589E-02   2.709213E-03   4.172445E-03                  \r\n0            3      G     -3.722639E-05   1.010633E-04  -9.751364E-06  -1.762381E-02  -7.151272E-04   3.840242E-03                  \r\n                          -8.721829E-06   3.991715E-04  -3.826551E-05  -2.289589E-02   2.709213E-03   4.172445E-03                  \r\n0            4      G     -3.136428E-02   6.167674E-02   9.900454E-03   2.777162E-02  -1.548935E-01  -5.955193E-02                  \r\n                          -3.770494E-02   7.558618E-02   1.217349E-02   3.054268E-02  -1.888597E-01  -7.558700E-02                  \r\n0            5      G     -1.062750E-02   3.048222E-02   3.102185E-04  -2.693848E-02  -2.061446E-02  -4.773954E-02                  \r\n                          -1.265086E-02   3.817994E-02   1.896530E-04  -2.629041E-02  -4.140870E-02  -5.721790E-02                  \r\n0            6      G     -1.945714E-03  -2.816394E-03   1.118655E-03   8.659102E-03  -3.507474E-02  -3.280386E-02                  \r\n                          -2.257006E-03  -1.719321E-03   1.067944E-03   8.607239E-03  -4.967788E-02  -4.280990E-02                  \r\n0            7      G     -1.122263E-01   1.793040E-01   2.916825E-02   0.0            0.0           -8.939189E-02                  \r\n                          -1.189221E-01   2.154696E-01   3.492733E-02   0.0            0.0           -8.713691E-02                  \r\n0            8      G     -4.437037E-02   1.225771E-01   8.447776E-04  -1.884331E-01   2.155767E-01  -7.849097E-02                  \r\n                          -7.014186E-02   1.765453E-01  -6.650797E-05  -1.477792E-01   7.161044E-02  -8.637594E-02                  \r\n0            9      G     -9.601071E-03   8.151823E-02  -1.710806E-02  -6.093948E-02  -1.392289E-02  -1.141400E-01                  \r\n                          -1.430753E-02   1.112547E-01  -2.256273E-02  -1.190848E-01   5.315435E-02  -1.088862E-01                  \r\n0           10      G      6.559211E-01  -4.776734E-01  -1.292264E-01   0.0            0.0           -9.493980E-02                  \r\n                          -4.001866E-01   5.889901E-01   1.162601E-01   0.0            0.0           -5.347933E-03                  \r\n0           11      G      8.432342E-01  -5.785039E-01  -1.507915E-02   1.183758E+00  -2.861522E-01   1.163820E-01                  \r\n                          -4.220265E-01   6.138209E-01   1.140693E-02  -4.254476E-01   1.019691E-01  -7.090295E-02                  \r\n0           12      G      5.255443E-01  -3.935507E-01   5.167253E-02   0.0            0.0            3.380857E-01                  \r\n                          -2.583145E-01   5.132721E-01  -6.431343E-02   0.0            0.0           -1.985158E-01                  \r\n0          101      G     -1.041486E-05  -6.737151E-05  -2.571994E-05   0.0            0.0            0.0                           \r\n                          -3.988809E-05  -2.656709E-04  -5.359227E-06   0.0            0.0            0.0                           \r\n0          103      G     -3.783483E-06  -6.387157E-05  -2.460825E-05   0.0            0.0            0.0                           \r\n                          -2.807749E-05  -2.510173E-04  -4.261234E-06   0.0            0.0            0.0                           \r\n0          104      G     -3.860994E-06  -6.383208E-05  -2.458415E-05   0.0            0.0            0.0                           \r\n                          -2.833334E-05  -2.509453E-04  -4.214377E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE = -1.018604E+03,  6.454173E+03    (CYCLIC FREQUENCY =  1.027214E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -3.783483E-06  -6.387157E-05  -2.460825E-05   0.0            0.0            0.0                           \r\n                          -2.807749E-05  -2.510173E-04  -4.261234E-06   0.0            0.0            0.0                           \r\n0          107      G     -1.041486E-05  -6.737151E-05  -2.571994E-05   0.0            0.0            0.0                           \r\n                          -3.988809E-05  -2.656709E-04  -5.359227E-06   0.0            0.0            0.0                           \r\n0          108      G     -1.054865E-05  -6.729065E-05  -2.567396E-05   0.0            0.0            0.0                           \r\n                          -4.032237E-05  -2.655020E-04  -5.272777E-06   0.0            0.0            0.0                           \r\n0          113      G     -1.094793E-05  -9.932346E-05  -3.557363E-05   0.0            0.0            0.0                           \r\n                          -3.875380E-05  -3.930137E-04  -5.956863E-06   0.0            0.0            0.0                           \r\n0          115      G     -8.931052E-06  -1.023876E-04  -3.830127E-05   0.0            0.0            0.0                           \r\n                          -3.862004E-05  -4.041588E-04  -1.113746E-05   0.0            0.0            0.0                           \r\n0          116      G     -3.722639E-05   1.010633E-04  -9.751364E-06   0.0            0.0            0.0                           \r\n                          -8.721829E-06   3.991715E-04  -3.826551E-05   0.0            0.0            0.0                           \r\n0          117      G     -8.931052E-06  -1.023876E-04  -3.830127E-05   0.0            0.0            0.0                           \r\n                          -3.862004E-05  -4.041588E-04  -1.113746E-05   0.0            0.0            0.0                           \r\n0          119      G     -1.094793E-05  -9.932346E-05  -3.557363E-05   0.0            0.0            0.0                           \r\n                          -3.875380E-05  -3.930137E-04  -5.956863E-06   0.0            0.0            0.0                           \r\n0          120      G     -3.722639E-05   1.010633E-04  -9.751364E-06   0.0            0.0            0.0                           \r\n                          -8.721829E-06   3.991715E-04  -3.826551E-05   0.0            0.0            0.0                           \r\n0          121      G     -6.374910E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.252439E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.863803E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.275048E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.853937E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.271501E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.863803E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.275048E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -6.374910E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.252439E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -6.358598E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.247629E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  4.876389E+02,  1.709958E+04    (CYCLIC FREQUENCY =  2.721482E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -8.076876E-05  -3.748189E-04   3.011992E-05   1.840699E-02  -3.659188E-03  -1.289422E-03                  \r\n                           1.025968E-04   4.515321E-04  -3.922302E-05  -1.824833E-02   3.706008E-03   1.435165E-03                  \r\n0            2      G     -8.076876E-05  -3.748189E-04   3.011992E-05   1.840699E-02  -3.659188E-03  -1.289422E-03                  \r\n                           1.025968E-04   4.515321E-04  -3.922302E-05  -1.824833E-02   3.706008E-03   1.435165E-03                  \r\n0            3      G     -8.076876E-05  -3.748189E-04   3.011992E-05   1.840699E-02  -3.659188E-03  -1.289422E-03                  \r\n                           1.025968E-04   4.515321E-04  -3.922302E-05  -1.824833E-02   3.706008E-03   1.435165E-03                  \r\n0            4      G      1.987720E-02  -4.304142E-02  -6.871990E-03   2.758484E-02   1.887425E-02   2.920153E-02                  \r\n                          -1.932202E-02   4.328698E-02   7.198071E-03  -4.392995E-02   1.031895E-02  -2.603588E-02                  \r\n0            5      G      6.704152E-03  -2.327048E-02  -4.621396E-04   7.832207E-03   2.804482E-02   3.579376E-02                  \r\n                          -7.027170E-03   2.494995E-02   1.294755E-04  -1.236899E-02  -2.464887E-02  -3.497564E-02                  \r\n0            6      G      6.653277E-04  -4.909887E-04   3.367142E-04  -5.611433E-03   3.800289E-02   2.703789E-02                  \r\n                          -7.577625E-04   1.133663E-03  -1.868706E-04   5.100032E-03  -3.694692E-02  -2.767195E-02                  \r\n0            7      G      3.630880E-02  -7.039335E-02  -1.078474E-02   0.0            0.0            1.680672E-02                  \r\n                          -2.280876E-02   7.282914E-02   1.135547E-02   0.0            0.0            7.937551E-04                  \r\n0            8      G      2.979929E-03  -4.199826E-02  -1.376565E-03   8.753070E-02  -1.392241E-01   1.800704E-02                  \r\n                          -1.546663E-02   6.778312E-02   3.151522E-04  -3.830720E-02   2.641967E-02  -1.404259E-02                  \r\n0            9      G     -7.373267E-03  -2.934777E-02   6.774455E-03   3.333509E-02  -7.031883E-02   2.465784E-02                  \r\n                           2.627121E-05   4.909596E-02  -1.028346E-02  -4.322010E-02   2.383028E-02  -3.529289E-02                  \r\n0           10      G      2.674511E-01  -1.226459E-01  -3.221135E-02   0.0            0.0            4.337316E-01                  \r\n                           4.911337E-02   4.058463E-02   1.641029E-03   0.0            0.0           -1.859947E-02                  \r\n0           11      G     -1.319792E-01   5.295807E-02   8.671504E-05   8.177894E-01  -5.796047E-01   1.425233E-01                  \r\n                           6.544770E-02   3.344703E-02  -6.231034E-05   1.908883E-01  -8.525091E-02  -2.114155E-02                  \r\n0           12      G     -1.267080E-01   4.961182E-02  -6.183258E-03   0.0            0.0            3.995813E-02                  \r\n                           7.439282E-02   2.793245E-02  -3.417470E-03   0.0            0.0           -2.610490E-02                  \r\n0          101      G      3.254356E-05   2.476684E-04  -5.502404E-05   0.0            0.0            0.0                           \r\n                          -4.102337E-05  -2.970605E-04   6.995642E-05   0.0            0.0            0.0                           \r\n0          103      G      3.150711E-05   2.333098E-04  -5.340020E-05   0.0            0.0            0.0                           \r\n                          -4.042061E-05  -2.795623E-04   6.804932E-05   0.0            0.0            0.0                           \r\n0          104      G      3.173932E-05   2.332928E-04  -5.340599E-05   0.0            0.0            0.0                           \r\n                          -4.068708E-05  -2.795414E-04   6.805245E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  4.876389E+02,  1.709958E+04    (CYCLIC FREQUENCY =  2.721482E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      3.150711E-05   2.333098E-04  -5.340020E-05   0.0            0.0            0.0                           \r\n                          -4.042061E-05  -2.795623E-04   6.804932E-05   0.0            0.0            0.0                           \r\n0          107      G      3.254356E-05   2.476684E-04  -5.502404E-05   0.0            0.0            0.0                           \r\n                          -4.102337E-05  -2.970605E-04   6.995642E-05   0.0            0.0            0.0                           \r\n0          108      G      3.294736E-05   2.475800E-04  -5.503889E-05   0.0            0.0            0.0                           \r\n                          -4.149026E-05  -2.969641E-04   6.996656E-05   0.0            0.0            0.0                           \r\n0          113      G      2.819001E-05   3.690679E-04  -8.099918E-05   0.0            0.0            0.0                           \r\n                          -3.658851E-05  -4.446805E-04   1.026103E-04   0.0            0.0            0.0                           \r\n0          115      G      3.304362E-05   3.795364E-04  -7.939999E-05   0.0            0.0            0.0                           \r\n                          -4.273252E-05  -4.571350E-04   1.010869E-04   0.0            0.0            0.0                           \r\n0          116      G     -8.076876E-05  -3.748189E-04   3.011992E-05   0.0            0.0            0.0                           \r\n                           1.025968E-04   4.515321E-04  -3.922302E-05   0.0            0.0            0.0                           \r\n0          117      G      3.304362E-05   3.795364E-04  -7.939999E-05   0.0            0.0            0.0                           \r\n                          -4.273252E-05  -4.571350E-04   1.010869E-04   0.0            0.0            0.0                           \r\n0          119      G      2.819001E-05   3.690679E-04  -8.099918E-05   0.0            0.0            0.0                           \r\n                          -3.658851E-05  -4.446805E-04   1.026103E-04   0.0            0.0            0.0                           \r\n0          120      G     -8.076876E-05  -3.748189E-04   3.011992E-05   0.0            0.0            0.0                           \r\n                           1.025968E-04   4.515321E-04  -3.922302E-05   0.0            0.0            0.0                           \r\n0          121      G      1.622068E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.093494E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      3.681651E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.634585E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      3.678099E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.630495E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      3.681651E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.634585E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      1.622068E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.093494E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      1.618005E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.088840E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  7.413901E+03,  2.111026E+04    (CYCLIC FREQUENCY =  3.359802E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      5.662293E-04   2.498004E-03  -2.151500E-04  -1.025164E-01   2.106378E-02   7.806484E-03                  \r\n                          -8.747258E-04  -2.684588E-03   2.265328E-04   7.480396E-02  -2.514048E-02   1.887667E-03                  \r\n0            2      G      5.662293E-04   2.498004E-03  -2.151500E-04  -1.025164E-01   2.106378E-02   7.806484E-03                  \r\n                          -8.747258E-04  -2.684588E-03   2.265328E-04   7.480396E-02  -2.514048E-02   1.887667E-03                  \r\n0            3      G      5.662293E-04   2.498004E-03  -2.151500E-04  -1.025164E-01   2.106378E-02   7.806484E-03                  \r\n                          -8.747258E-04  -2.684588E-03   2.265328E-04   7.480396E-02  -2.514048E-02   1.887667E-03                  \r\n0            4      G     -1.081858E-01   2.416774E-01   3.998675E-02  -2.372433E-01   4.320285E-02  -1.469376E-01                  \r\n                           3.646008E-02  -1.107035E-01  -1.974819E-02   4.415310E-01  -6.533591E-01  -2.089827E-02                  \r\n0            5      G     -3.897589E-02   1.383811E-01   9.669809E-04  -6.498320E-02  -1.415157E-01  -1.961119E-01                  \r\n                           1.649025E-02  -8.144709E-02  -6.597463E-05   1.110065E-02   8.665601E-02   9.886674E-02                  \r\n0            6      G     -4.118571E-03   6.102303E-03  -1.233376E-03   2.876118E-02  -2.082819E-01  -1.545214E-01                  \r\n                          -9.574178E-04  -1.630191E-02   4.933913E-03  -1.120095E-02   1.463879E-01   9.057803E-02                  \r\n0            7      G     -1.334988E-01   4.013989E-01   6.237788E-02   0.0            0.0           -4.144102E-03                  \r\n                          -2.052112E-01   8.032350E-02   1.658970E-02   0.0            0.0           -2.999165E-01                  \r\n0            8      G     -7.628371E-02   3.585525E-01   2.522749E-03  -2.429708E-01   2.198734E-01  -7.846586E-02                  \r\n                          -6.371732E-02  -4.388486E-02  -8.277487E-04  -2.661446E-01   2.947304E-01  -1.615820E-01                  \r\n0            9      G      6.157780E-03   2.589782E-01  -5.470020E-02  -2.353233E-01   1.732744E-01  -1.850805E-01                  \r\n                          -3.651364E-02  -7.188704E-02   1.602256E-02   4.055359E-02  -9.569850E-02  -8.456290E-02                  \r\n0           10      G     -3.365991E-02   3.515413E-01   4.738033E-02   0.0            0.0           -4.159359E-01                  \r\n                          -1.890175E-01  -2.436575E-03   1.036515E-03   0.0            0.0           -1.787789E-01                  \r\n0           11      G      3.361648E-01   1.912150E-01   1.268988E-03   1.909313E-01   5.591159E-02  -2.248386E-01                  \r\n                           8.932836E-02  -1.273650E-01  -3.074130E-03  -7.997975E-01   6.647180E-01   1.712701E-01                  \r\n0           12      G      4.079828E-01   1.479533E-01  -1.836188E-02   0.0            0.0           -1.932136E-01                  \r\n                          -1.918467E-01   2.994926E-02  -8.179238E-04   0.0            0.0            3.741354E-01                  \r\n0          101      G     -2.258021E-04  -1.644271E-03   3.860973E-04   0.0            0.0            0.0                           \r\n                           2.364081E-04   1.759137E-03  -5.959656E-04   0.0            0.0            0.0                           \r\n0          103      G     -2.222558E-04  -1.547584E-03   3.754717E-04   0.0            0.0            0.0                           \r\n                           2.623617E-04   1.652996E-03  -5.775056E-04   0.0            0.0            0.0                           \r\n0          104      G     -2.237375E-04  -1.547470E-03   3.754908E-04   0.0            0.0            0.0                           \r\n                           2.638793E-04   1.653016E-03  -5.774113E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =3        MACH = 180.     KFREQ= .3       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  7.413901E+03,  2.111026E+04    (CYCLIC FREQUENCY =  3.359802E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.222558E-04  -1.547584E-03   3.754717E-04   0.0            0.0            0.0                           \r\n                           2.623617E-04   1.652996E-03  -5.775056E-04   0.0            0.0            0.0                           \r\n0          107      G     -2.258021E-04  -1.644271E-03   3.860973E-04   0.0            0.0            0.0                           \r\n                           2.364081E-04   1.759137E-03  -5.959656E-04   0.0            0.0            0.0                           \r\n0          108      G     -2.283957E-04  -1.643733E-03   3.861570E-04   0.0            0.0            0.0                           \r\n                           2.390957E-04   1.758802E-03  -5.958232E-04   0.0            0.0            0.0                           \r\n0          113      G     -2.007086E-04  -2.460065E-03   5.664180E-04   0.0            0.0            0.0                           \r\n                           2.031903E-04   2.644366E-03  -8.674620E-04   0.0            0.0            0.0                           \r\n0          115      G     -2.346242E-04  -2.529047E-03   5.578160E-04   0.0            0.0            0.0                           \r\n                           2.545737E-04   2.717707E-03  -8.687799E-04   0.0            0.0            0.0                           \r\n0          116      G      5.662293E-04   2.498004E-03  -2.151500E-04   0.0            0.0            0.0                           \r\n                          -8.747258E-04  -2.684588E-03   2.265328E-04   0.0            0.0            0.0                           \r\n0          117      G     -2.346242E-04  -2.529047E-03   5.578160E-04   0.0            0.0            0.0                           \r\n                           2.545737E-04   2.717707E-03  -8.687799E-04   0.0            0.0            0.0                           \r\n0          119      G     -2.007086E-04  -2.460065E-03   5.664180E-04   0.0            0.0            0.0                           \r\n                           2.031903E-04   2.644366E-03  -8.674620E-04   0.0            0.0            0.0                           \r\n0          120      G      5.662293E-04   2.498004E-03  -2.151500E-04   0.0            0.0            0.0                           \r\n                          -8.747258E-04  -2.684588E-03   2.265328E-04   0.0            0.0            0.0                           \r\n0          121      G     -1.149114E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.154514E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.553392E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.987793E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.551118E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.985367E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.553392E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.987793E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.149114E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.154514E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.146527E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.151965E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  9.605209E+01,  2.320090E+03    (CYCLIC FREQUENCY =  3.692538E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -8.173350E-05   3.794765E-04  -3.867028E-05  -2.711723E-02   2.250965E-03   6.095213E-03                  \r\n                          -1.721334E-05   3.660577E-05  -3.871376E-06  -4.833585E-03  -3.989512E-05   1.157080E-03                  \r\n0            2      G     -8.173350E-05   3.794765E-04  -3.867028E-05  -2.711723E-02   2.250965E-03   6.095213E-03                  \r\n                          -1.721334E-05   3.660577E-05  -3.871376E-06  -4.833585E-03  -3.989512E-05   1.157080E-03                  \r\n0            3      G     -8.173350E-05   3.794765E-04  -3.867028E-05  -2.711723E-02   2.250965E-03   6.095213E-03                  \r\n                          -1.721334E-05   3.660577E-05  -3.871376E-06  -4.833585E-03  -3.989512E-05   1.157080E-03                  \r\n0            4      G     -5.139414E-02   9.999641E-02   1.592281E-02   8.113848E-02  -3.281809E-01  -1.112870E-01                  \r\n                          -9.336449E-03   1.808433E-02   2.883151E-03   1.358181E-02  -5.647698E-02  -1.934255E-02                  \r\n0            5      G     -1.683062E-02   4.836449E-02   2.839892E-04  -3.579387E-02  -5.478661E-02  -7.445005E-02                  \r\n                          -3.094632E-03   8.722759E-03   7.326717E-05  -7.406210E-03  -7.651325E-03  -1.367537E-02                  \r\n0            6      G     -3.307676E-03  -3.681850E-03   1.889902E-03   1.134529E-02  -6.061533E-02  -5.460570E-02                  \r\n                          -6.053715E-04  -8.492639E-04   3.683139E-04   2.324122E-03  -1.020664E-02  -9.591606E-03                  \r\n0            7      G     -1.875259E-01   3.164176E-01   5.154676E-02   0.0            0.0           -1.493985E-01                  \r\n                          -3.529464E-02   5.673822E-02   9.253681E-03   0.0            0.0           -2.874821E-02                  \r\n0            8      G     -1.065984E-01   2.509804E-01  -1.648005E-04  -2.310583E-01   1.188006E-01  -1.369768E-01                  \r\n                          -1.674445E-02   4.139967E-02   1.144621E-04  -5.152586E-02   4.608800E-02  -2.529391E-02                  \r\n0            9      G     -2.305037E-02   1.536458E-01  -3.102171E-02  -1.720699E-01   8.145499E-02  -1.593523E-01                  \r\n                          -3.744979E-03   2.618374E-02  -5.382425E-03  -2.459054E-02   4.231383E-03  -3.265236E-02                  \r\n0           10      G     -7.552373E-01   9.832509E-01   2.003416E-01   0.0            0.0           -5.553407E-02                  \r\n                           4.007592E-02   8.226619E-03  -3.494392E-03   0.0            0.0           -1.968730E-02                  \r\n0           11      G     -7.493258E-01   1.006440E+00   1.938446E-02  -9.881710E-01   3.214883E-01  -1.243889E-01                  \r\n                           7.090027E-02  -6.072691E-03  -7.587864E-04   1.040264E-01  -1.700857E-02   9.127130E-03                  \r\n0           12      G     -4.785483E-01   8.402341E-01  -1.053661E-01   0.0            0.0           -3.228793E-01                  \r\n                           4.196820E-02   9.994917E-03  -8.652775E-04   0.0            0.0            2.822224E-02                  \r\n0          101      G     -4.036547E-05  -2.549618E-04  -5.474341E-05   0.0            0.0            0.0                           \r\n                          -4.076203E-06  -2.471605E-05  -1.170313E-05   0.0            0.0            0.0                           \r\n0          103      G     -2.079925E-05  -2.416526E-04  -5.166533E-05   0.0            0.0            0.0                           \r\n                          -1.186397E-06  -2.349539E-05  -1.116930E-05   0.0            0.0            0.0                           \r\n0          104      G     -2.105886E-05  -2.415450E-04  -5.158801E-05   0.0            0.0            0.0                           \r\n                          -1.214259E-06  -2.347957E-05  -1.115826E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  9.605209E+01,  2.320090E+03    (CYCLIC FREQUENCY =  3.692538E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.079925E-05  -2.416526E-04  -5.166533E-05   0.0            0.0            0.0                           \r\n                          -1.186397E-06  -2.349539E-05  -1.116930E-05   0.0            0.0            0.0                           \r\n0          107      G     -4.036547E-05  -2.549618E-04  -5.474341E-05   0.0            0.0            0.0                           \r\n                          -4.076203E-06  -2.471605E-05  -1.170313E-05   0.0            0.0            0.0                           \r\n0          108      G     -4.079628E-05  -2.547388E-04  -5.460354E-05   0.0            0.0            0.0                           \r\n                          -4.122479E-06  -2.468523E-05  -1.168291E-05   0.0            0.0            0.0                           \r\n0          113      G     -4.123382E-05  -3.735408E-04  -7.705738E-05   0.0            0.0            0.0                           \r\n                          -4.396266E-06  -3.599942E-05  -1.650704E-05   0.0            0.0            0.0                           \r\n0          115      G     -3.699570E-05  -3.842518E-04  -8.483727E-05   0.0            0.0            0.0                           \r\n                          -3.461394E-06  -3.707780E-05  -1.762790E-05   0.0            0.0            0.0                           \r\n0          116      G     -8.173350E-05   3.794765E-04  -3.867028E-05   0.0            0.0            0.0                           \r\n                          -1.721334E-05   3.660577E-05  -3.871376E-06   0.0            0.0            0.0                           \r\n0          117      G     -3.699570E-05  -3.842518E-04  -8.483727E-05   0.0            0.0            0.0                           \r\n                          -3.461394E-06  -3.707780E-05  -1.762790E-05   0.0            0.0            0.0                           \r\n0          119      G     -4.123382E-05  -3.735408E-04  -7.705738E-05   0.0            0.0            0.0                           \r\n                          -4.396266E-06  -3.599942E-05  -1.650704E-05   0.0            0.0            0.0                           \r\n0          120      G     -8.173350E-05   3.794765E-04  -3.867028E-05   0.0            0.0            0.0                           \r\n                          -1.721334E-05   3.660577E-05  -3.871376E-06   0.0            0.0            0.0                           \r\n0          121      G     -2.419643E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.589271E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.488245E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.542419E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.484901E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.539071E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.488245E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.542419E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.419643E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.589271E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.414534E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.583410E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.306336E+03,  4.578779E+03    (CYCLIC FREQUENCY =  7.287353E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      2.745355E-05   7.651435E-04  -7.090071E-05  -4.888082E-02   4.354447E-03   8.242505E-03                  \r\n                          -1.494273E-04  -5.319464E-04   4.637371E-05   1.607044E-02  -4.638294E-03  -4.043345E-04                  \r\n0            2      G      2.745355E-05   7.651435E-04  -7.090071E-05  -4.888082E-02   4.354447E-03   8.242505E-03                  \r\n                          -1.494273E-04  -5.319464E-04   4.637371E-05   1.607044E-02  -4.638294E-03  -4.043345E-04                  \r\n0            3      G      2.745355E-05   7.651435E-04  -7.090071E-05  -4.888082E-02   4.354447E-03   8.242505E-03                  \r\n                          -1.494273E-04  -5.319464E-04   4.637371E-05   1.607044E-02  -4.638294E-03  -4.043345E-04                  \r\n0            4      G     -7.555801E-02   1.534783E-01   2.485790E-02   2.346188E-02  -3.051568E-01  -1.401947E-01                  \r\n                           1.202348E-02  -3.070314E-02  -5.340480E-03   7.249888E-02  -8.517393E-02   8.034000E-03                  \r\n0            5      G     -2.583259E-02   7.905533E-02   5.091085E-04  -5.674608E-02  -7.296020E-02  -1.184523E-01                  \r\n                           4.875766E-03  -2.015944E-02   5.014991E-05   7.310094E-03   2.027942E-02   2.544997E-02                  \r\n0            6      G     -4.333099E-03  -3.299814E-03   1.876949E-03   1.897107E-02  -1.015361E-01  -8.715607E-02                  \r\n                           2.341485E-04  -2.602823E-03   6.030168E-04  -3.102143E-03   3.207181E-02   2.215319E-02                  \r\n0            7      G     -2.242963E-01   4.078986E-01   6.593110E-02   0.0            0.0           -1.586579E-01                  \r\n                          -1.834302E-02  -2.250435E-02  -3.104698E-03   0.0            0.0           -4.033273E-02                  \r\n0            8      G     -1.161301E-01   3.200622E-01   7.973111E-04  -3.253839E-01   2.642832E-01  -1.590808E-01                  \r\n                           4.425645E-03  -4.327656E-02   1.712003E-04  -3.391741E-02   6.919770E-02  -1.377712E-02                  \r\n0            9      G     -2.246223E-02   2.098100E-01  -4.322603E-02  -1.947916E-01   5.031791E-02  -2.263241E-01                  \r\n                          -1.683623E-03  -3.549930E-02   7.297749E-03   2.915599E-02  -1.235899E-02   6.448133E-03                  \r\n0           10      G      2.463570E-01   1.635105E-01  -3.325564E-03   0.0            0.0           -6.886797E-02                  \r\n                          -4.320779E-02  -8.288587E-02  -1.251474E-02   0.0            0.0           -1.425527E-01                  \r\n0           11      G      3.707182E-01   1.072396E-01  -2.334562E-03   8.250664E-01  -2.569391E-01   2.930850E-02                  \r\n                           1.125644E-01  -1.545700E-01  -2.598257E-03  -3.235382E-01   2.709439E-01   8.422740E-03                  \r\n0           12      G      2.564955E-01   1.685239E-01  -1.900026E-02   0.0            0.0            8.990621E-02                  \r\n                           3.137946E-02  -1.073079E-01   1.392104E-02   0.0            0.0            9.503521E-02                  \r\n0          101      G     -7.413852E-05  -5.069738E-04   1.898776E-05   0.0            0.0            0.0                           \r\n                           4.810758E-05   3.490212E-04  -1.019266E-04   0.0            0.0            0.0                           \r\n0          103      G     -5.680108E-05  -4.784462E-04   1.973995E-05   0.0            0.0            0.0                           \r\n                           5.056268E-05   3.281484E-04  -9.897433E-05   0.0            0.0            0.0                           \r\n0          104      G     -5.728662E-05  -4.783296E-04   1.980722E-05   0.0            0.0            0.0                           \r\n                           5.086588E-05   3.281389E-04  -9.896580E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.306336E+03,  4.578779E+03    (CYCLIC FREQUENCY =  7.287353E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -5.680108E-05  -4.784462E-04   1.973995E-05   0.0            0.0            0.0                           \r\n                           5.056268E-05   3.281484E-04  -9.897433E-05   0.0            0.0            0.0                           \r\n0          107      G     -7.413852E-05  -5.069738E-04   1.898776E-05   0.0            0.0            0.0                           \r\n                           4.810758E-05   3.490212E-04  -1.019266E-04   0.0            0.0            0.0                           \r\n0          108      G     -7.497439E-05  -5.066800E-04   1.911604E-05   0.0            0.0            0.0                           \r\n                           4.864200E-05   3.489355E-04  -1.019161E-04   0.0            0.0            0.0                           \r\n0          113      G     -7.064531E-05  -7.532627E-04   3.150836E-05   0.0            0.0            0.0                           \r\n                           4.239466E-05   5.239616E-04  -1.486238E-04   0.0            0.0            0.0                           \r\n0          115      G     -7.284171E-05  -7.747264E-04   2.323649E-05   0.0            0.0            0.0                           \r\n                           5.123763E-05   5.385022E-04  -1.480035E-04   0.0            0.0            0.0                           \r\n0          116      G      2.745355E-05   7.651435E-04  -7.090071E-05   0.0            0.0            0.0                           \r\n                          -1.494273E-04  -5.319464E-04   4.637371E-05   0.0            0.0            0.0                           \r\n0          117      G     -7.284171E-05  -7.747264E-04   2.323649E-05   0.0            0.0            0.0                           \r\n                           5.123763E-05   5.385022E-04  -1.480035E-04   0.0            0.0            0.0                           \r\n0          119      G     -7.064531E-05  -7.532627E-04   3.150836E-05   0.0            0.0            0.0                           \r\n                           4.239466E-05   5.239616E-04  -1.486238E-04   0.0            0.0            0.0                           \r\n0          120      G      2.745355E-05   7.651435E-04  -7.090071E-05   0.0            0.0            0.0                           \r\n                          -1.494273E-04  -5.319464E-04   4.637371E-05   0.0            0.0            0.0                           \r\n0          121      G     -4.084361E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.415735E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -6.606233E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.753918E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -6.599318E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.749164E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -6.606233E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           5.753918E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -4.084361E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.415735E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -4.075316E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           2.410553E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.303630E+02,  7.525388E+03    (CYCLIC FREQUENCY =  1.197703E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -2.661184E-05  -1.746574E-04   1.301318E-05   1.115543E-02  -1.935930E-03  -9.524501E-04                  \r\n                           3.229279E-05   1.339898E-04  -1.158176E-05  -5.170705E-03   1.127959E-03   3.482524E-04                  \r\n0            2      G     -2.661184E-05  -1.746574E-04   1.301318E-05   1.115543E-02  -1.935930E-03  -9.524501E-04                  \r\n                           3.229279E-05   1.339898E-04  -1.158176E-05  -5.170705E-03   1.127959E-03   3.482524E-04                  \r\n0            3      G     -2.661184E-05  -1.746574E-04   1.301318E-05   1.115543E-02  -1.935930E-03  -9.524501E-04                  \r\n                           3.229279E-05   1.339898E-04  -1.158176E-05  -5.170705E-03   1.127959E-03   3.482524E-04                  \r\n0            4      G      1.349219E-02  -2.787765E-02  -4.312755E-03   2.167540E-03   4.170904E-02   2.282078E-02                  \r\n                          -5.163231E-03   1.177236E-02   1.965795E-03  -1.425120E-02   7.192498E-03  -6.469613E-03                  \r\n0            5      G      4.285506E-03  -1.401246E-02  -4.176440E-04   4.074566E-03   1.891787E-02   2.321198E-02                  \r\n                          -1.898107E-03   6.906289E-03   3.479011E-05  -3.177713E-03  -6.924342E-03  -9.583563E-03                  \r\n0            6      G      4.891240E-04   2.862797E-04   1.356217E-04  -3.840087E-03   2.354285E-02   1.677762E-02                  \r\n                          -1.843606E-04   4.051689E-04  -8.453314E-05   1.372942E-03  -1.044387E-02  -7.671499E-03                  \r\n0            7      G      3.605591E-02  -5.315769E-02  -8.223964E-03   0.0            0.0            2.577927E-02                  \r\n                          -4.333359E-03   1.785447E-02   2.753032E-03   0.0            0.0            2.319620E-03                  \r\n0            8      G      1.219483E-03  -2.307468E-02  -1.232986E-03   8.340636E-02  -1.364871E-01   1.903415E-02                  \r\n                          -3.417730E-03   1.740310E-02   8.973673E-05  -7.898628E-03   4.829261E-03  -2.391245E-03                  \r\n0            9      G     -6.091357E-03  -1.426353E-02   3.563285E-03   2.129028E-02  -6.157656E-02   1.732888E-02                  \r\n                           3.075645E-04   1.287577E-02  -2.705951E-03  -1.127537E-02   7.122132E-03  -8.215190E-03                  \r\n0           10      G      3.043225E-01  -1.315739E-01  -3.633520E-02   0.0            0.0            4.272973E-01                  \r\n                           9.828695E-03   1.293483E-02   1.086939E-03   0.0            0.0           -5.519777E-03                  \r\n0           11      G     -9.027633E-02   4.132079E-02  -3.680715E-04   9.157444E-01  -6.234946E-01   1.338029E-01                  \r\n                           1.361430E-02   1.137003E-02   6.171181E-05   4.509790E-02  -2.189245E-02  -7.670413E-03                  \r\n0           12      G     -8.384807E-02   3.751785E-02  -4.686995E-03   0.0            0.0            3.198466E-02                  \r\n                           1.886548E-02   8.274920E-03  -1.043228E-03   0.0            0.0           -1.054115E-02                  \r\n0          101      G      1.464828E-05   1.162254E-04  -1.812997E-05   0.0            0.0            0.0                           \r\n                          -1.211463E-05  -8.810977E-05   2.201723E-05   0.0            0.0            0.0                           \r\n0          103      G      1.290343E-05   1.096930E-04  -1.759056E-05   0.0            0.0            0.0                           \r\n                          -1.214082E-05  -8.290350E-05   2.140111E-05   0.0            0.0            0.0                           \r\n0          104      G      1.301944E-05   1.096805E-04  -1.759872E-05   0.0            0.0            0.0                           \r\n                          -1.221947E-05  -8.289832E-05   2.140127E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.303630E+02,  7.525388E+03    (CYCLIC FREQUENCY =  1.197703E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      1.290343E-05   1.096930E-04  -1.759056E-05   0.0            0.0            0.0                           \r\n                          -1.214082E-05  -8.290350E-05   2.140111E-05   0.0            0.0            0.0                           \r\n0          107      G      1.464828E-05   1.162254E-04  -1.812997E-05   0.0            0.0            0.0                           \r\n                          -1.211463E-05  -8.810977E-05   2.201723E-05   0.0            0.0            0.0                           \r\n0          108      G      1.484741E-05   1.161723E-04  -1.814700E-05   0.0            0.0            0.0                           \r\n                          -1.225260E-05  -8.808282E-05   2.201885E-05   0.0            0.0            0.0                           \r\n0          113      G      1.249917E-05   1.719311E-04  -2.707615E-05   0.0            0.0            0.0                           \r\n                          -1.074689E-05  -1.319603E-04   3.224611E-05   0.0            0.0            0.0                           \r\n0          115      G      1.414291E-05   1.768955E-04  -2.581593E-05   0.0            0.0            0.0                           \r\n                          -1.267383E-05  -1.356513E-04   3.186572E-05   0.0            0.0            0.0                           \r\n0          116      G     -2.661184E-05  -1.746574E-04   1.301318E-05   0.0            0.0            0.0                           \r\n                           3.229279E-05   1.339898E-04  -1.158176E-05   0.0            0.0            0.0                           \r\n0          117      G      1.414291E-05   1.768955E-04  -2.581593E-05   0.0            0.0            0.0                           \r\n                          -1.267383E-05  -1.356513E-04   3.186572E-05   0.0            0.0            0.0                           \r\n0          119      G      1.249917E-05   1.719311E-04  -2.707615E-05   0.0            0.0            0.0                           \r\n                          -1.074689E-05  -1.319603E-04   3.224611E-05   0.0            0.0            0.0                           \r\n0          120      G     -2.661184E-05  -1.746574E-04   1.301318E-05   0.0            0.0            0.0                           \r\n                           3.229279E-05   1.339898E-04  -1.158176E-05   0.0            0.0            0.0                           \r\n0          121      G      7.270807E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.144117E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      1.553963E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.390941E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      1.552227E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.389727E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      1.553963E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.390941E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      7.270807E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.144117E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      7.250160E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.130454E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  9.545083E+03,  1.215575E+04    (CYCLIC FREQUENCY =  1.934648E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.391984E-03   3.905622E-03  -3.251686E-04  -9.561592E-02   3.822811E-02  -7.374436E-03                  \r\n                          -1.389968E-05   3.364855E-04  -3.092284E-05  -2.514211E-02   1.951437E-03   4.483145E-03                  \r\n0            2      G      1.391984E-03   3.905622E-03  -3.251686E-04  -9.561592E-02   3.822811E-02  -7.374436E-03                  \r\n                          -1.389968E-05   3.364855E-04  -3.092284E-05  -2.514211E-02   1.951437E-03   4.483145E-03                  \r\n0            3      G      1.391984E-03   3.905622E-03  -3.251686E-04  -9.561592E-02   3.822811E-02  -7.374436E-03                  \r\n                          -1.389968E-05   3.364855E-04  -3.092284E-05  -2.514211E-02   1.951437E-03   4.483145E-03                  \r\n0            4      G     -1.989425E-02   9.916057E-02   1.889932E-02  -7.209351E-01   1.206120E+00   1.058651E-01                  \r\n                          -4.080737E-02   8.147653E-02   1.303069E-02   3.066205E-02  -1.963524E-01  -7.905514E-02                  \r\n0            5      G     -1.313994E-02   9.001732E-02  -2.976827E-05   1.287078E-02  -1.026561E-01  -9.869248E-02                  \r\n                          -1.362502E-02   4.074254E-02   4.098337E-04  -2.857940E-02  -4.030718E-02  -6.290764E-02                  \r\n0            6      G      3.833686E-03   2.778972E-02  -9.002716E-03   8.533967E-03  -1.841077E-01  -1.008606E-01                  \r\n                          -2.357833E-03  -2.395162E-03   1.072474E-03   1.025126E-02  -5.298689E-02  -4.551593E-02                  \r\n0            7      G      4.432583E-01  -3.431717E-01  -6.136372E-02   0.0            0.0            5.607095E-01                  \r\n                          -1.330686E-01   2.248352E-01   3.634788E-02   0.0            0.0           -1.008959E-01                  \r\n0            8      G      1.689103E-01  -1.062594E-01   1.360294E-03   5.784890E-01  -5.646125E-01   3.425173E-01                  \r\n                          -6.093533E-02   1.652174E-01   8.098624E-04  -2.017742E-01   1.899507E-01  -9.256440E-02                  \r\n0            9      G      7.356483E-02  -5.717799E-04  -2.082219E-03   4.163210E-02   1.417313E-01   2.570089E-01                  \r\n                          -1.024515E-02   1.056802E-01  -2.194030E-02  -1.043055E-01   4.916979E-02  -1.201438E-01                  \r\n0           10      G      1.259862E-01  -1.119024E-01  -3.048413E-03   0.0            0.0            1.712059E-01                  \r\n                          -7.321003E-02   1.915075E-01   2.686274E-02   0.0            0.0           -2.138570E-01                  \r\n0           11      G     -2.395837E-01   5.183654E-02   4.656801E-03   6.001418E-01  -7.276250E-01  -3.249955E-01                  \r\n                           1.519275E-01   9.371607E-02   3.244251E-04  -1.050386E-01   1.858505E-01  -4.375299E-02                  \r\n0           12      G      2.417385E-01  -2.148587E-01   2.117548E-02   0.0            0.0           -6.261143E-01                  \r\n                           1.074389E-01   1.165466E-01  -1.358137E-02   0.0            0.0            1.801997E-02                  \r\n0          101      G     -3.396492E-04  -2.556507E-03   9.481610E-04   0.0            0.0            0.0                           \r\n                          -3.276959E-05  -2.240929E-04  -9.282576E-06   0.0            0.0            0.0                           \r\n0          103      G     -3.907270E-04  -2.401203E-03   9.180015E-04   0.0            0.0            0.0                           \r\n                          -2.220412E-05  -2.118117E-04  -8.304452E-06   0.0            0.0            0.0                           \r\n0          104      G     -3.929103E-04  -2.401300E-03   9.178139E-04   0.0            0.0            0.0                           \r\n                          -2.242765E-05  -2.117475E-04  -8.263029E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =4        MACH = 180.     KFREQ= .7       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  9.545083E+03,  1.215575E+04    (CYCLIC FREQUENCY =  1.934648E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -3.907270E-04  -2.401203E-03   9.180015E-04   0.0            0.0            0.0                           \r\n                          -2.220412E-05  -2.118117E-04  -8.304452E-06   0.0            0.0            0.0                           \r\n0          107      G     -3.396492E-04  -2.556507E-03   9.481610E-04   0.0            0.0            0.0                           \r\n                          -3.276959E-05  -2.240929E-04  -9.282576E-06   0.0            0.0            0.0                           \r\n0          108      G     -3.435279E-04  -2.556124E-03   9.478639E-04   0.0            0.0            0.0                           \r\n                          -3.315042E-05  -2.239393E-04  -9.204831E-06   0.0            0.0            0.0                           \r\n0          113      G     -2.878176E-04  -3.847301E-03   1.378153E-03   0.0            0.0            0.0                           \r\n                          -3.160866E-05  -3.311997E-04  -1.135645E-05   0.0            0.0            0.0                           \r\n0          115      G     -3.692703E-04  -3.953753E-03   1.384662E-03   0.0            0.0            0.0                           \r\n                          -3.111905E-05  -3.407398E-04  -1.607089E-05   0.0            0.0            0.0                           \r\n0          116      G      1.391984E-03   3.905622E-03  -3.251686E-04   0.0            0.0            0.0                           \r\n                          -1.389968E-05   3.364855E-04  -3.092284E-05   0.0            0.0            0.0                           \r\n0          117      G     -3.692703E-04  -3.953753E-03   1.384662E-03   0.0            0.0            0.0                           \r\n                          -3.111905E-05  -3.407398E-04  -1.607089E-05   0.0            0.0            0.0                           \r\n0          119      G     -2.878176E-04  -3.847301E-03   1.378153E-03   0.0            0.0            0.0                           \r\n                          -3.160866E-05  -3.311997E-04  -1.135645E-05   0.0            0.0            0.0                           \r\n0          120      G      1.391984E-03   3.905622E-03  -3.251686E-04   0.0            0.0            0.0                           \r\n                          -1.389968E-05   3.364855E-04  -3.092284E-05   0.0            0.0            0.0                           \r\n0          121      G     -1.631742E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.838894E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.444626E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.631439E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.441090E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.628340E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.444626E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.631439E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.631742E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.838894E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.628122E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.834652E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  1.430719E+02,  2.429220E+03    (CYCLIC FREQUENCY =  3.866223E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -6.181200E-05   3.494298E-04  -3.535769E-05  -2.237198E-02   2.354258E-03   4.911421E-03                  \r\n                          -2.641405E-05   7.263749E-05  -7.483414E-06  -8.569535E-03   1.997716E-05   1.982290E-03                  \r\n0            2      G     -6.181200E-05   3.494298E-04  -3.535769E-05  -2.237198E-02   2.354258E-03   4.911421E-03                  \r\n                          -2.641405E-05   7.263749E-05  -7.483414E-06  -8.569535E-03   1.997716E-05   1.982290E-03                  \r\n0            3      G     -6.181200E-05   3.494298E-04  -3.535769E-05  -2.237198E-02   2.354258E-03   4.911421E-03                  \r\n                          -2.641405E-05   7.263749E-05  -7.483414E-06  -8.569535E-03   1.997716E-05   1.982290E-03                  \r\n0            4      G     -4.195655E-02   8.182710E-02   1.303372E-02   6.604429E-02  -2.686915E-01  -9.147619E-02                  \r\n                          -1.617072E-02   3.146832E-02   5.025411E-03   2.171975E-02  -9.463565E-02  -3.315279E-02                  \r\n0            5      G     -1.371770E-02   3.968363E-02   2.067094E-04  -2.830504E-02  -4.716695E-02  -6.074032E-02                  \r\n                          -5.377357E-03   1.528313E-02   1.249203E-04  -1.278385E-02  -1.343969E-02  -2.384626E-02                  \r\n0            6      G     -2.688508E-03  -2.769740E-03   1.503119E-03   8.998594E-03  -5.055955E-02  -4.505239E-02                  \r\n                          -1.037262E-03  -1.399637E-03   6.160894E-04   4.031700E-03  -1.805152E-02  -1.680432E-02                  \r\n0            7      G     -1.508997E-01   2.583570E-01   4.207013E-02   0.0            0.0           -1.191805E-01                  \r\n                          -5.987835E-02   9.722614E-02   1.584537E-02   0.0            0.0           -4.827958E-02                  \r\n0            8      G     -8.945711E-02   2.090643E-01  -2.880212E-04  -1.774400E-01   7.015603E-02  -1.107386E-01                  \r\n                          -2.859370E-02   7.139002E-02   1.957923E-04  -8.742972E-02   7.776013E-02  -4.288143E-02                  \r\n0            9      G     -1.919864E-02   1.272753E-01  -2.559962E-02  -1.471584E-01   7.698108E-02  -1.259247E-01                  \r\n                          -6.333582E-03   4.532076E-02  -9.318734E-03  -4.243179E-02   7.428051E-03  -5.585510E-02                  \r\n0           10      G     -7.928013E-01   9.739568E-01   2.035976E-01   0.0            0.0           -3.160522E-02                  \r\n                           7.085208E-02   1.370456E-02  -6.153959E-03   0.0            0.0           -3.166706E-02                  \r\n0           11      G     -8.221373E-01   1.013404E+00   2.016051E-02  -1.083610E+00   3.316093E-01  -1.330863E-01                  \r\n                           1.214412E-01  -9.816460E-03  -1.296413E-03   1.855569E-01  -3.410247E-02   1.555600E-02                  \r\n0           12      G     -5.211338E-01   8.304051E-01  -1.045352E-01   0.0            0.0           -3.523708E-01                  \r\n                           7.270572E-02   1.724370E-02  -1.505058E-03   0.0            0.0            4.729882E-02                  \r\n0          101      G     -3.686334E-05  -2.345214E-04  -4.119537E-05   0.0            0.0            0.0                           \r\n                          -7.867852E-06  -4.884701E-05  -1.795393E-05   0.0            0.0            0.0                           \r\n0          103      G     -2.031436E-05  -2.221679E-04  -3.871034E-05   0.0            0.0            0.0                           \r\n                          -2.995631E-06  -4.636412E-05  -1.710280E-05   0.0            0.0            0.0                           \r\n0          104      G     -2.054960E-05  -2.220765E-04  -3.864454E-05   0.0            0.0            0.0                           \r\n                          -3.048977E-06  -4.633699E-05  -1.708418E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  1.430719E+02,  2.429220E+03    (CYCLIC FREQUENCY =  3.866223E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.031436E-05  -2.221679E-04  -3.871034E-05   0.0            0.0            0.0                           \r\n                          -2.995631E-06  -4.636412E-05  -1.710280E-05   0.0            0.0            0.0                           \r\n0          107      G     -3.686334E-05  -2.345214E-04  -4.119537E-05   0.0            0.0            0.0                           \r\n                          -7.867852E-06  -4.884701E-05  -1.795393E-05   0.0            0.0            0.0                           \r\n0          108      G     -3.725413E-05  -2.343289E-04  -4.107652E-05   0.0            0.0            0.0                           \r\n                          -7.957066E-06  -4.879285E-05  -1.791972E-05   0.0            0.0            0.0                           \r\n0          113      G     -3.732174E-05  -3.440038E-04  -5.787651E-05   0.0            0.0            0.0                           \r\n                          -8.300466E-06  -7.144985E-05  -2.522687E-05   0.0            0.0            0.0                           \r\n0          115      G     -3.417607E-05  -3.538132E-04  -6.450870E-05   0.0            0.0            0.0                           \r\n                          -6.879932E-06  -7.356848E-05  -2.714783E-05   0.0            0.0            0.0                           \r\n0          116      G     -6.181200E-05   3.494298E-04  -3.535769E-05   0.0            0.0            0.0                           \r\n                          -2.641405E-05   7.263749E-05  -7.483414E-06   0.0            0.0            0.0                           \r\n0          117      G     -3.417607E-05  -3.538132E-04  -6.450870E-05   0.0            0.0            0.0                           \r\n                          -6.879932E-06  -7.356848E-05  -2.714783E-05   0.0            0.0            0.0                           \r\n0          119      G     -3.732174E-05  -3.440038E-04  -5.787651E-05   0.0            0.0            0.0                           \r\n                          -8.300466E-06  -7.144985E-05  -2.522687E-05   0.0            0.0            0.0                           \r\n0          120      G     -6.181200E-05   3.494298E-04  -3.535769E-05   0.0            0.0            0.0                           \r\n                          -2.641405E-05   7.263749E-05  -7.483414E-06   0.0            0.0            0.0                           \r\n0          121      G     -2.187990E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.872983E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.412992E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.737926E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.409925E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.731300E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.412992E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.737926E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.187990E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.872983E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.183410E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.861992E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  2.817221E+03,  3.100213E+03    (CYCLIC FREQUENCY =  4.934142E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -2.095194E-04   1.711049E-04  -2.157249E-05  -3.672079E-02  -1.379247E-03   1.004274E-02                  \r\n                          -1.836487E-04  -6.907212E-04   5.994290E-05   2.243463E-02  -6.092208E-03  -8.478638E-04                  \r\n0            2      G     -2.095194E-04   1.711049E-04  -2.157249E-05  -3.672079E-02  -1.379247E-03   1.004274E-02                  \r\n                          -1.836487E-04  -6.907212E-04   5.994290E-05   2.243463E-02  -6.092208E-03  -8.478638E-04                  \r\n0            3      G     -2.095194E-04   1.711049E-04  -2.157249E-05  -3.672079E-02  -1.379247E-03   1.004274E-02                  \r\n                          -1.836487E-04  -6.907212E-04   5.994290E-05   2.243463E-02  -6.092208E-03  -8.478638E-04                  \r\n0            4      G     -7.828155E-02   1.487655E-01   2.352628E-02   1.526884E-01  -5.437188E-01  -1.706896E-01                  \r\n                           1.869691E-02  -4.553583E-02  -7.769212E-03   8.555581E-02  -8.483201E-02   1.753055E-02                  \r\n0            5      G     -2.550889E-02   6.961454E-02   6.365279E-04  -6.120784E-02  -6.434982E-02  -1.112067E-01                  \r\n                           7.224298E-03  -2.853915E-02  -3.138371E-05   1.056973E-02   3.005541E-02   3.751481E-02                  \r\n0            6      G     -5.285802E-03  -8.281557E-03   3.473653E-03   1.894879E-02  -7.946034E-02  -7.706355E-02                  \r\n                           4.740471E-04  -2.993945E-03   7.050593E-04  -4.822904E-03   4.526706E-02   3.170691E-02                  \r\n0            7      G     -3.195596E-01   4.974866E-01   8.134289E-02   0.0            0.0           -2.694991E-01                  \r\n                          -9.632807E-03  -4.688100E-02  -6.869611E-03   0.0            0.0           -3.935520E-02                  \r\n0            8      G     -1.520930E-01   3.587093E-01   8.303236E-04  -4.551238E-01   3.935398E-01  -2.300736E-01                  \r\n                           8.754510E-03  -6.423227E-02  -3.031149E-05  -1.817643E-02   5.417153E-02  -8.953098E-03                  \r\n0            9      G     -3.475592E-02   2.217774E-01  -4.540365E-02  -2.196800E-01   5.343372E-02  -2.809478E-01                  \r\n                          -2.608387E-03  -5.014390E-02   1.041390E-02   4.485624E-02  -3.069167E-02   1.543798E-02                  \r\n0           10      G     -1.836393E-03   3.643698E-01   3.999149E-02   0.0            0.0           -2.209594E-01                  \r\n                           4.602905E-02  -1.683623E-01  -3.141610E-02   0.0            0.0           -8.340620E-02                  \r\n0           11      G      2.849062E-01   2.406643E-01   3.162922E-04   2.421672E-01   1.112139E-01   2.263937E-02                  \r\n                           1.551465E-01  -2.214802E-01  -4.101344E-03  -1.512019E-01   1.835420E-01   4.373056E-02                  \r\n0           12      G      1.425227E-01   3.151748E-01  -3.661816E-02   0.0            0.0            1.246235E-01                  \r\n                           4.456212E-02  -1.568136E-01   2.026079E-02   0.0            0.0            1.373527E-01                  \r\n0          101      G     -2.290048E-05  -1.192332E-04  -1.423007E-04   0.0            0.0            0.0                           \r\n                           6.242580E-05   4.537289E-04  -1.253048E-04   0.0            0.0            0.0                           \r\n0          103      G      5.091530E-06  -1.145776E-04  -1.363015E-04   0.0            0.0            0.0                           \r\n                           6.443235E-05   4.267417E-04  -1.217201E-04   0.0            0.0            0.0                           \r\n0          104      G      4.929898E-06  -1.144336E-04  -1.361940E-04   0.0            0.0            0.0                           \r\n                           6.483071E-05   4.267243E-04  -1.217138E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  2.817221E+03,  3.100213E+03    (CYCLIC FREQUENCY =  4.934142E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      5.091530E-06  -1.145776E-04  -1.363015E-04   0.0            0.0            0.0                           \r\n                           6.443235E-05   4.267417E-04  -1.217201E-04   0.0            0.0            0.0                           \r\n0          107      G     -2.290048E-05  -1.192332E-04  -1.423007E-04   0.0            0.0            0.0                           \r\n                           6.242580E-05   4.537289E-04  -1.253048E-04   0.0            0.0            0.0                           \r\n0          108      G     -2.315624E-05  -1.189752E-04  -1.421065E-04   0.0            0.0            0.0                           \r\n                           6.312591E-05   4.536077E-04  -1.252999E-04   0.0            0.0            0.0                           \r\n0          113      G     -2.775310E-05  -1.680545E-04  -2.026305E-04   0.0            0.0            0.0                           \r\n                           5.510360E-05   6.803260E-04  -1.829161E-04   0.0            0.0            0.0                           \r\n0          115      G     -1.614752E-05  -1.733949E-04  -2.129163E-04   0.0            0.0            0.0                           \r\n                           6.600453E-05   6.992538E-04  -1.816694E-04   0.0            0.0            0.0                           \r\n0          116      G     -2.095194E-04   1.711049E-04  -2.157249E-05   0.0            0.0            0.0                           \r\n                          -1.836487E-04  -6.907212E-04   5.994290E-05   0.0            0.0            0.0                           \r\n0          117      G     -1.614752E-05  -1.733949E-04  -2.129163E-04   0.0            0.0            0.0                           \r\n                           6.600453E-05   6.992538E-04  -1.816694E-04   0.0            0.0            0.0                           \r\n0          119      G     -2.775310E-05  -1.680545E-04  -2.026305E-04   0.0            0.0            0.0                           \r\n                           5.510360E-05   6.803260E-04  -1.829161E-04   0.0            0.0            0.0                           \r\n0          120      G     -2.095194E-04   1.711049E-04  -2.157249E-05   0.0            0.0            0.0                           \r\n                          -1.836487E-04  -6.907212E-04   5.994290E-05   0.0            0.0            0.0                           \r\n0          121      G     -1.664675E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.145263E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      4.018962E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                           7.353431E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      4.034635E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                           7.347224E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      4.018962E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                           7.353431E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.664675E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.145263E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.660911E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           3.138419E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.640497E+02,  7.459500E+03    (CYCLIC FREQUENCY =  1.187216E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.174197E-05  -1.190200E-04   8.249649E-06   9.195723E-03  -1.446235E-03  -8.679777E-04                  \r\n                           8.303339E-05   3.457143E-04  -2.989177E-05  -1.337547E-02   2.906546E-03   9.098218E-04                  \r\n0            2      G     -1.174197E-05  -1.190200E-04   8.249649E-06   9.195723E-03  -1.446235E-03  -8.679777E-04                  \r\n                           8.303339E-05   3.457143E-04  -2.989177E-05  -1.337547E-02   2.906546E-03   9.098218E-04                  \r\n0            3      G     -1.174197E-05  -1.190200E-04   8.249649E-06   9.195723E-03  -1.446235E-03  -8.679777E-04                  \r\n                           8.303339E-05   3.457143E-04  -2.989177E-05  -1.337547E-02   2.906546E-03   9.098218E-04                  \r\n0            4      G      1.178981E-02  -2.381835E-02  -3.627870E-03  -4.715266E-03   4.793953E-02   2.111366E-02                  \r\n                          -1.340459E-02   3.052903E-02   5.096488E-03  -3.657873E-02   1.792980E-02  -1.687891E-02                  \r\n0            5      G      3.641865E-03  -1.152792E-02  -4.059900E-04   3.133477E-03   1.635042E-02   1.984591E-02                  \r\n                          -4.924302E-03   1.789018E-02   9.027827E-05  -8.268496E-03  -1.792607E-02  -2.484090E-02                  \r\n0            6      G      4.440139E-04   5.079702E-04   7.787636E-05  -3.377825E-03   1.960734E-02   1.400905E-02                  \r\n                          -4.816054E-04   1.035293E-03  -2.138104E-04   3.562189E-03  -2.702130E-02  -1.987120E-02                  \r\n0            7      G      3.615180E-02  -4.866516E-02  -7.560320E-03   0.0            0.0            2.836803E-02                  \r\n                          -1.154011E-02   4.661987E-02   7.193975E-03   0.0            0.0            5.675206E-03                  \r\n0            8      G      7.190963E-04  -1.796130E-02  -1.198306E-03   8.280406E-02  -1.367643E-01   1.942459E-02                  \r\n                          -8.995418E-03   4.530457E-02   2.318641E-04  -2.087749E-02   1.286626E-02  -6.432617E-03                  \r\n0            9      G     -5.729254E-03  -1.023161E-02   2.707699E-03   1.783059E-02  -5.861808E-02   1.565938E-02                  \r\n                           7.486457E-04   3.346927E-02  -7.032159E-03  -2.933096E-02   1.839288E-02  -2.151985E-02                  \r\n0           10      G      3.053585E-01  -1.260858E-01  -3.555444E-02   0.0            0.0            4.250391E-01                  \r\n                           2.565094E-02   3.360614E-02   2.802697E-03   0.0            0.0           -1.426341E-02                  \r\n0           11      G     -8.845895E-02   4.655601E-02  -2.942290E-04   9.266183E-01  -6.303104E-01   1.296499E-01                  \r\n                           3.555254E-02   2.950834E-02   1.563509E-04   1.173476E-01  -5.675143E-02  -1.965987E-02                  \r\n0           12      G     -7.808077E-02   4.048167E-02  -5.083716E-03   0.0            0.0            2.571419E-02                  \r\n                           4.887691E-02   2.164369E-02  -2.724690E-03   0.0            0.0           -2.696307E-02                  \r\n0          101      G      9.664627E-06   7.967271E-05  -7.993523E-06   0.0            0.0            0.0                           \r\n                          -3.126690E-05  -2.273437E-04   5.661275E-05   0.0            0.0            0.0                           \r\n0          103      G      7.746550E-06   7.531302E-05  -7.749701E-06   0.0            0.0            0.0                           \r\n                          -3.130249E-05  -2.139129E-04   5.503090E-05   0.0            0.0            0.0                           \r\n0          104      G      7.830233E-06   7.530189E-05  -7.758412E-06   0.0            0.0            0.0                           \r\n                          -3.150548E-05  -2.138994E-04   5.503142E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.640497E+02,  7.459500E+03    (CYCLIC FREQUENCY =  1.187216E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      7.746550E-06   7.531302E-05  -7.749701E-06   0.0            0.0            0.0                           \r\n                          -3.130249E-05  -2.139129E-04   5.503090E-05   0.0            0.0            0.0                           \r\n0          107      G      9.664627E-06   7.967271E-05  -7.993523E-06   0.0            0.0            0.0                           \r\n                          -3.126690E-05  -2.273437E-04   5.661275E-05   0.0            0.0            0.0                           \r\n0          108      G      9.806919E-06   7.962942E-05  -8.010991E-06   0.0            0.0            0.0                           \r\n                          -3.162297E-05  -2.272739E-04   5.661714E-05   0.0            0.0            0.0                           \r\n0          113      G      8.124258E-06   1.171336E-04  -1.226577E-05   0.0            0.0            0.0                           \r\n                          -2.774591E-05  -3.404772E-04   8.292085E-05   0.0            0.0            0.0                           \r\n0          115      G      8.885867E-06   1.205690E-04  -1.110683E-05   0.0            0.0            0.0                           \r\n                          -3.270160E-05  -3.500013E-04   8.192825E-05   0.0            0.0            0.0                           \r\n0          116      G     -1.174197E-05  -1.190200E-04   8.249649E-06   0.0            0.0            0.0                           \r\n                           8.303339E-05   3.457143E-04  -2.989177E-05   0.0            0.0            0.0                           \r\n0          117      G      8.885867E-06   1.205690E-04  -1.110683E-05   0.0            0.0            0.0                           \r\n                          -3.270160E-05  -3.500013E-04   8.192825E-05   0.0            0.0            0.0                           \r\n0          119      G      8.124258E-06   1.171336E-04  -1.226577E-05   0.0            0.0            0.0                           \r\n                          -2.774591E-05  -3.404772E-04   8.292085E-05   0.0            0.0            0.0                           \r\n0          120      G     -1.174197E-05  -1.190200E-04   8.249649E-06   0.0            0.0            0.0                           \r\n                           8.303339E-05   3.457143E-04  -2.989177E-05   0.0            0.0            0.0                           \r\n0          121      G      4.773668E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.586348E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      9.640251E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.586414E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      9.627938E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.583283E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      9.640251E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.586414E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      4.773668E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.586348E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      4.758579E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.582820E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.949816E+03,  8.690268E+03    (CYCLIC FREQUENCY =  1.383099E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      3.242634E-04   5.275103E-04  -4.194104E-05   5.494012E-03   6.313659E-03  -6.212824E-03                  \r\n                           7.849428E-04   2.709058E-03  -2.300043E-04  -8.862563E-02   2.456201E-02   1.819940E-03                  \r\n0            2      G      3.242634E-04   5.275103E-04  -4.194104E-05   5.494012E-03   6.313659E-03  -6.212824E-03                  \r\n                           7.849428E-04   2.709058E-03  -2.300043E-04  -8.862563E-02   2.456201E-02   1.819940E-03                  \r\n0            3      G      3.242634E-04   5.275103E-04  -4.194104E-05   5.494012E-03   6.313659E-03  -6.212824E-03                  \r\n                           7.849428E-04   2.709058E-03  -2.300043E-04  -8.862563E-02   2.456201E-02   1.819940E-03                  \r\n0            4      G      3.834906E-02  -6.318583E-02  -9.341542E-03  -1.939647E-01   4.759668E-01   1.062531E-01                  \r\n                          -6.611482E-02   1.664097E-01   2.841970E-02  -3.761576E-01   4.349092E-01  -4.471298E-02                  \r\n0            5      G      1.121330E-02  -2.226245E-02  -5.575875E-04   3.094168E-02   2.071244E-02   4.438470E-02                  \r\n                          -2.591249E-02   1.067497E-01   4.646450E-04  -3.197527E-02  -1.122838E-01  -1.409865E-01                  \r\n0            6      G      3.249792E-03   8.766593E-03  -3.013193E-03  -9.031652E-03   1.555160E-02   2.523766E-02                  \r\n                          -9.854168E-04   1.286501E-02  -3.695818E-03   1.857035E-02  -1.766157E-01  -1.191586E-01                  \r\n0            7      G      2.395513E-01  -3.072682E-01  -5.088494E-02   0.0            0.0            2.330714E-01                  \r\n                           7.852252E-02   1.054512E-01   1.370644E-02   0.0            0.0            1.900062E-01                  \r\n0            8      G      9.511352E-02  -1.849723E-01  -9.536815E-04   3.543338E-01  -3.639811E-01   1.719947E-01                  \r\n                           1.260982E-02   1.661450E-01   1.652009E-03   7.105115E-02  -9.172755E-02   7.312644E-02                  \r\n0            9      G      2.384162E-02  -1.026160E-01   2.105591E-02   1.132078E-01  -3.649745E-02   1.771237E-01                  \r\n                           2.695383E-02   1.456782E-01  -3.138809E-02  -1.180292E-01   1.373364E-01  -1.616882E-02                  \r\n0           10      G      2.019262E-01  -2.362613E-01  -3.578536E-02   0.0            0.0            4.134847E-01                  \r\n                           4.621647E-02   1.699666E-01   2.657119E-02   0.0            0.0           -1.025860E-01                  \r\n0           11      G     -2.556566E-01  -3.509984E-02   1.118355E-03   5.818370E-01  -5.881686E-01   1.658910E-02                  \r\n                           5.975444E-02   1.671656E-01   2.966787E-03   4.238765E-01  -3.095495E-01  -2.189033E-01                  \r\n0           12      G     -9.187869E-02  -1.246207E-01   1.330848E-02   0.0            0.0           -1.581606E-01                  \r\n                           2.766031E-01   4.446465E-02  -7.459796E-03   0.0            0.0           -3.293606E-01                  \r\n0          101      G     -4.293737E-05  -3.410408E-04   2.207204E-04   0.0            0.0            0.0                           \r\n                          -2.406643E-04  -1.778241E-03   5.349273E-04   0.0            0.0            0.0                           \r\n0          103      G     -6.508488E-05  -3.188977E-04   2.130682E-04   0.0            0.0            0.0                           \r\n                          -2.559106E-04  -1.671972E-03   5.188665E-04   0.0            0.0            0.0                           \r\n0          104      G     -6.533986E-05  -3.189836E-04   2.129838E-04   0.0            0.0            0.0                           \r\n                          -2.574707E-04  -1.671940E-03   5.188138E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =5        MACH = 180.     KFREQ= .7       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.949816E+03,  8.690268E+03    (CYCLIC FREQUENCY =  1.383099E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -6.508488E-05  -3.188977E-04   2.130682E-04   0.0            0.0            0.0                           \r\n                          -2.559106E-04  -1.671972E-03   5.188665E-04   0.0            0.0            0.0                           \r\n0          107      G     -4.293737E-05  -3.410408E-04   2.207204E-04   0.0            0.0            0.0                           \r\n                          -2.406643E-04  -1.778241E-03   5.349273E-04   0.0            0.0            0.0                           \r\n0          108      G     -4.340785E-05  -3.411137E-04   2.205740E-04   0.0            0.0            0.0                           \r\n                          -2.434146E-04  -1.777813E-03   5.348600E-04   0.0            0.0            0.0                           \r\n0          113      G     -3.287125E-05  -5.199225E-04   3.185563E-04   0.0            0.0            0.0                           \r\n                          -2.093372E-04  -2.668263E-03   7.803680E-04   0.0            0.0            0.0                           \r\n0          115      G     -5.151646E-05  -5.338765E-04   3.248689E-04   0.0            0.0            0.0                           \r\n                          -2.557051E-04  -2.742575E-03   7.777990E-04   0.0            0.0            0.0                           \r\n0          116      G      3.242634E-04   5.275103E-04  -4.194104E-05   0.0            0.0            0.0                           \r\n                           7.849428E-04   2.709058E-03  -2.300043E-04   0.0            0.0            0.0                           \r\n0          117      G     -5.151646E-05  -5.338765E-04   3.248689E-04   0.0            0.0            0.0                           \r\n                          -2.557051E-04  -2.742575E-03   7.777990E-04   0.0            0.0            0.0                           \r\n0          119      G     -3.287125E-05  -5.199225E-04   3.185563E-04   0.0            0.0            0.0                           \r\n                          -2.093372E-04  -2.668263E-03   7.803680E-04   0.0            0.0            0.0                           \r\n0          120      G      3.242634E-04   5.275103E-04  -4.194104E-05   0.0            0.0            0.0                           \r\n                           7.849428E-04   2.709058E-03  -2.300043E-04   0.0            0.0            0.0                           \r\n0          121      G     -1.813608E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.192989E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -7.271487E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.923960E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -7.266827E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.921504E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -7.271487E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.923960E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.813608E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.192989E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.809928E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.190330E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  2.416029E+03,  1.857443E+03    (CYCLIC FREQUENCY =  2.956212E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -2.601165E-04   1.225079E-04  -1.863315E-05  -3.830042E-02  -2.095312E-03   1.119255E-02                  \r\n                          -8.440430E-05  -4.156932E-04   3.688346E-05   1.577793E-02  -3.485671E-03  -1.347470E-03                  \r\n0            2      G     -2.601165E-04   1.225079E-04  -1.863315E-05  -3.830042E-02  -2.095312E-03   1.119255E-02                  \r\n                          -8.440430E-05  -4.156932E-04   3.688346E-05   1.577793E-02  -3.485671E-03  -1.347470E-03                  \r\n0            3      G     -2.601165E-04   1.225079E-04  -1.863315E-05  -3.830042E-02  -2.095312E-03   1.119255E-02                  \r\n                          -8.440430E-05  -4.156932E-04   3.688346E-05   1.577793E-02  -3.485671E-03  -1.347470E-03                  \r\n0            4      G     -8.569308E-02   1.615437E-01   2.547931E-02   1.847449E-01  -6.270880E-01  -1.907523E-01                  \r\n                           1.738718E-02  -3.864200E-02  -6.426836E-03   3.326333E-02   3.158860E-03   2.546771E-02                  \r\n0            5      G     -2.776211E-02   7.466090E-02   6.785411E-04  -6.719559E-02  -6.989054E-02  -1.200382E-01                  \r\n                           6.278728E-03  -2.211832E-02  -6.003899E-05   1.093120E-02   2.359624E-02   3.069269E-02                  \r\n0            6      G     -5.904332E-03  -9.612774E-03   4.015480E-03   2.047869E-02  -8.376764E-02  -8.275685E-02                  \r\n                           7.360369E-04  -1.015374E-03   9.025220E-05  -4.233267E-03   3.263093E-02   2.467000E-02                  \r\n0            7      G     -3.606381E-01   5.558884E-01   9.100869E-02   0.0            0.0           -3.078541E-01                  \r\n                           2.259184E-02  -7.107180E-02  -1.117572E-02   0.0            0.0            1.385894E-03                  \r\n0            8      G     -1.732538E-01   4.006049E-01   7.619433E-04  -5.066069E-01   4.271898E-01  -2.606368E-01                  \r\n                           1.999371E-02  -7.024395E-02  -6.024085E-06   2.536406E-02   8.497836E-03   1.544972E-02                  \r\n0            9      G     -4.040258E-02   2.457427E-01  -5.018101E-02  -2.472960E-01   6.119140E-02  -3.129464E-01                  \r\n                           1.977820E-03  -4.879951E-02   1.001515E-02   4.814496E-02  -2.682872E-02   3.197284E-02                  \r\n0           10      G     -1.109835E-01   5.113944E-01   6.902652E-02   0.0            0.0           -2.299942E-01                  \r\n                           1.144734E-01  -2.135775E-01  -4.138486E-02   0.0            0.0           -3.545279E-02                  \r\n0           11      G      1.836633E-01   3.878897E-01   3.005372E-03   9.639011E-02   1.701502E-01   1.500983E-02                  \r\n                           1.684005E-01  -2.431667E-01  -4.521075E-03   3.152468E-02   5.918935E-02   3.745480E-02                  \r\n0           12      G      6.681181E-02   4.458668E-01  -5.283095E-02   0.0            0.0            9.567861E-02                  \r\n                           7.925247E-02  -1.899447E-01   2.408879E-02   0.0            0.0            1.098413E-01                  \r\n0          101      G     -1.981614E-05  -8.841220E-05  -1.766269E-04   0.0            0.0            0.0                           \r\n                           3.842610E-05   2.738578E-04  -5.772380E-05   0.0            0.0            0.0                           \r\n0          103      G      1.257039E-05  -8.595988E-05  -1.693302E-04   0.0            0.0            0.0                           \r\n                           3.668376E-05   2.578313E-04  -5.628628E-05   0.0            0.0            0.0                           \r\n0          104      G      1.242873E-05  -8.579670E-05  -1.692057E-04   0.0            0.0            0.0                           \r\n                           3.692939E-05   2.578067E-04  -5.629400E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  2.416029E+03,  1.857443E+03    (CYCLIC FREQUENCY =  2.956212E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      1.257039E-05  -8.595988E-05  -1.693302E-04   0.0            0.0            0.0                           \r\n                           3.668376E-05   2.578313E-04  -5.628628E-05   0.0            0.0            0.0                           \r\n0          107      G     -1.981614E-05  -8.841220E-05  -1.766269E-04   0.0            0.0            0.0                           \r\n                           3.842610E-05   2.738578E-04  -5.772380E-05   0.0            0.0            0.0                           \r\n0          108      G     -2.003185E-05  -8.813041E-05  -1.764032E-04   0.0            0.0            0.0                           \r\n                           3.885429E-05   2.737623E-04  -5.774120E-05   0.0            0.0            0.0                           \r\n0          113      G     -2.622730E-05  -1.201417E-04  -2.521336E-04   0.0            0.0            0.0                           \r\n                           3.471892E-05   4.094026E-04  -8.468911E-05   0.0            0.0            0.0                           \r\n0          115      G     -1.174435E-05  -1.242139E-04  -2.637891E-04   0.0            0.0            0.0                           \r\n                           3.981627E-05   4.208416E-04  -8.292348E-05   0.0            0.0            0.0                           \r\n0          116      G     -2.601165E-04   1.225079E-04  -1.863315E-05   0.0            0.0            0.0                           \r\n                          -8.440430E-05  -4.156932E-04   3.688346E-05   0.0            0.0            0.0                           \r\n0          117      G     -1.174435E-05  -1.242139E-04  -2.637891E-04   0.0            0.0            0.0                           \r\n                           3.981627E-05   4.208416E-04  -8.292348E-05   0.0            0.0            0.0                           \r\n0          119      G     -2.622730E-05  -1.201417E-04  -2.521336E-04   0.0            0.0            0.0                           \r\n                           3.471892E-05   4.094026E-04  -8.468911E-05   0.0            0.0            0.0                           \r\n0          120      G     -2.601165E-04   1.225079E-04  -1.863315E-05   0.0            0.0            0.0                           \r\n                          -8.440430E-05  -4.156932E-04   3.688346E-05   0.0            0.0            0.0                           \r\n0          121      G     -1.590587E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.990959E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      1.234509E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.203057E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      1.235621E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.199331E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      1.234509E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.203057E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.590587E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.990959E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.587030E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.986644E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  1.444300E+02,  2.518553E+03    (CYCLIC FREQUENCY =  4.008401E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -4.531705E-05   3.123168E-04  -3.147247E-05  -1.758289E-02   2.378415E-03   3.777820E-03                  \r\n                          -2.730812E-05   9.553302E-05  -9.654456E-06  -1.028707E-02   1.206679E-04   2.306130E-03                  \r\n0            2      G     -4.531705E-05   3.123168E-04  -3.147247E-05  -1.758289E-02   2.378415E-03   3.777820E-03                  \r\n                          -2.730812E-05   9.553302E-05  -9.654456E-06  -1.028707E-02   1.206679E-04   2.306130E-03                  \r\n0            3      G     -4.531705E-05   3.123168E-04  -3.147247E-05  -1.758289E-02   2.378415E-03   3.777820E-03                  \r\n                          -2.730812E-05   9.553302E-05  -9.654456E-06  -1.028707E-02   1.206679E-04   2.306130E-03                  \r\n0            4      G     -3.276888E-02   6.401451E-02   1.019425E-02   5.288439E-02  -2.134859E-01  -7.248711E-02                  \r\n                          -1.900416E-02   3.714342E-02   5.941256E-03   2.353820E-02  -1.077135E-01  -3.857898E-02                  \r\n0            5      G     -1.067263E-02   3.108403E-02   1.329168E-04  -2.105601E-02  -3.958563E-02  -4.725597E-02                  \r\n                          -6.339239E-03   1.815498E-02   1.442657E-04  -1.498220E-02  -1.599548E-02  -2.819984E-02                  \r\n0            6      G     -2.095477E-03  -1.942468E-03   1.145437E-03   6.708356E-03  -4.044920E-02  -3.558861E-02                  \r\n                          -1.206896E-03  -1.566414E-03   7.004238E-04   4.744643E-03  -2.162162E-02  -1.995934E-02                  \r\n0            7      G     -1.163080E-01   2.027341E-01   3.300139E-02   0.0            0.0           -9.104707E-02                  \r\n                          -6.899070E-02   1.131291E-01   1.842448E-02   0.0            0.0           -5.507021E-02                  \r\n0            8      G     -7.312966E-02   1.685493E-01  -4.066860E-04  -1.267611E-01   2.448593E-02  -8.598871E-02                  \r\n                          -3.317448E-02   8.358882E-02   2.261977E-04  -1.007176E-01   8.900664E-02  -4.937995E-02                  \r\n0            9      G     -1.558577E-02   1.016449E-01  -2.032720E-02  -1.230512E-01   7.250293E-02  -9.399182E-02                  \r\n                          -7.285552E-03   5.325463E-02  -1.095210E-02  -4.970548E-02   8.781553E-03  -6.489495E-02                  \r\n0           10      G     -8.303349E-01   9.652916E-01   2.068259E-01   0.0            0.0           -1.007046E-02                  \r\n                           8.524605E-02   1.538687E-02  -7.386378E-03   0.0            0.0           -3.407495E-02                  \r\n0           11      G     -8.918818E-01   1.019628E+00   2.090024E-02  -1.180308E+00   3.449122E-01  -1.412376E-01                  \r\n                           1.411997E-01  -1.070150E-02  -1.504895E-03   2.251925E-01  -4.594529E-02   1.815595E-02                  \r\n0           12      G     -5.626307E-01   8.209394E-01  -1.037264E-01   0.0            0.0           -3.797026E-01                  \r\n                           8.542674E-02   2.025952E-02  -1.784049E-03   0.0            0.0            5.389307E-02                  \r\n0          101      G     -3.276767E-05  -2.094813E-04  -2.998101E-05   0.0            0.0            0.0                           \r\n                          -1.013790E-05  -6.405303E-05  -1.855585E-05   0.0            0.0            0.0                           \r\n0          103      G     -1.904232E-05  -1.983721E-04  -2.801054E-05   0.0            0.0            0.0                           \r\n                          -4.557452E-06  -6.072911E-05  -1.763605E-05   0.0            0.0            0.0                           \r\n0          104      G     -1.924949E-05  -1.982962E-04  -2.795554E-05   0.0            0.0            0.0                           \r\n                          -4.625738E-06  -6.069751E-05  -1.761471E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  1.444300E+02,  2.518553E+03    (CYCLIC FREQUENCY =  4.008401E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -1.904232E-05  -1.983721E-04  -2.801054E-05   0.0            0.0            0.0                           \r\n                          -4.557452E-06  -6.072911E-05  -1.763605E-05   0.0            0.0            0.0                           \r\n0          107      G     -3.276767E-05  -2.094813E-04  -2.998101E-05   0.0            0.0            0.0                           \r\n                          -1.013790E-05  -6.405303E-05  -1.855585E-05   0.0            0.0            0.0                           \r\n0          108      G     -3.311178E-05  -2.093192E-04  -2.988196E-05   0.0            0.0            0.0                           \r\n                          -1.025271E-05  -6.398853E-05  -1.851652E-05   0.0            0.0            0.0                           \r\n0          113      G     -3.293133E-05  -3.075039E-04  -4.207176E-05   0.0            0.0            0.0                           \r\n                          -1.051341E-05  -9.398605E-05  -2.595259E-05   0.0            0.0            0.0                           \r\n0          115      G     -3.067978E-05  -3.162219E-04  -4.760405E-05   0.0            0.0            0.0                           \r\n                          -9.062222E-06  -9.675197E-05  -2.818785E-05   0.0            0.0            0.0                           \r\n0          116      G     -4.531705E-05   3.123168E-04  -3.147247E-05   0.0            0.0            0.0                           \r\n                          -2.730812E-05   9.553302E-05  -9.654456E-06   0.0            0.0            0.0                           \r\n0          117      G     -3.067978E-05  -3.162219E-04  -4.760405E-05   0.0            0.0            0.0                           \r\n                          -9.062222E-06  -9.675197E-05  -2.818785E-05   0.0            0.0            0.0                           \r\n0          119      G     -3.293133E-05  -3.075039E-04  -4.207176E-05   0.0            0.0            0.0                           \r\n                          -1.051341E-05  -9.398605E-05  -2.595259E-05   0.0            0.0            0.0                           \r\n0          120      G     -4.531705E-05   3.123168E-04  -3.147247E-05   0.0            0.0            0.0                           \r\n                          -2.730812E-05   9.553302E-05  -9.654456E-06   0.0            0.0            0.0                           \r\n0          121      G     -1.929529E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.156127E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.249003E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.567647E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.246275E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.558950E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.249003E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.567647E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.929529E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.156127E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.925537E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.142287E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  3.887587E+02,  7.339756E+03    (CYCLIC FREQUENCY =  1.168158E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      9.076948E-06  -2.874141E-05   4.161770E-07   5.610766E-03  -6.966998E-04  -5.987569E-04                  \r\n                           8.872227E-05   3.758302E-04  -3.254424E-05  -1.473028E-02   3.138612E-03   1.050878E-03                  \r\n0            2      G      9.076948E-06  -2.874141E-05   4.161770E-07   5.610766E-03  -6.966998E-04  -5.987569E-04                  \r\n                           8.872227E-05   3.758302E-04  -3.254424E-05  -1.473028E-02   3.138612E-03   1.050878E-03                  \r\n0            3      G      9.076948E-06  -2.874141E-05   4.161770E-07   5.610766E-03  -6.966998E-04  -5.987569E-04                  \r\n                           8.872227E-05   3.758302E-04  -3.254424E-05  -1.473028E-02   3.138612E-03   1.050878E-03                  \r\n0            4      G      8.058252E-03  -1.541682E-02  -2.229383E-03  -1.368202E-02   5.077118E-02   1.617124E-02                  \r\n                          -1.502557E-02   3.403737E-02   5.674795E-03  -3.873831E-02   1.609305E-02  -1.936450E-02                  \r\n0            5      G      2.281469E-03  -6.661678E-03  -3.810139E-04   7.859223E-04   1.148913E-02   1.304519E-02                  \r\n                          -5.501095E-03   1.983923E-02   1.009816E-04  -9.372842E-03  -1.981216E-02  -2.763123E-02                  \r\n0            6      G      3.014881E-04   7.496109E-04   3.433360E-05  -2.394087E-03   1.234536E-02   8.605268E-03                  \r\n                          -5.559722E-04   1.070282E-03  -2.089939E-04   3.981872E-03  -2.978505E-02  -2.202859E-02                  \r\n0            7      G      3.211223E-02  -3.491944E-02  -5.423554E-03   0.0            0.0            2.895876E-02                  \r\n                          -1.450622E-02   5.369890E-02   8.316112E-03   0.0            0.0            4.482705E-03                  \r\n0            8      G     -2.148875E-03  -4.977623E-03  -1.137537E-03   7.597542E-02  -1.323658E-01   1.699204E-02                  \r\n                          -1.073930E-02   5.144135E-02   2.542032E-04  -2.543350E-02   1.625978E-02  -8.425936E-03                  \r\n0            9      G     -5.664121E-03  -7.906395E-04   7.294214E-04   9.458057E-03  -5.369139E-02   9.147381E-03                  \r\n                           5.697962E-04   3.774005E-02  -7.920609E-03  -3.317377E-02   2.004997E-02  -2.517369E-02                  \r\n0           10      G      3.116019E-01  -1.155017E-01  -3.455454E-02   0.0            0.0            4.211850E-01                  \r\n                           3.008779E-02   3.725616E-02   2.907227E-03   0.0            0.0           -1.559106E-02                  \r\n0           11      G     -7.931770E-02   5.596458E-02  -2.334074E-04   9.578293E-01  -6.451426E-01   1.246534E-01                  \r\n                           4.161765E-02   3.244012E-02   1.408634E-04   1.340334E-01  -6.349907E-02  -2.054527E-02                  \r\n0           12      G     -6.560124E-02   4.788645E-02  -6.006815E-03   0.0            0.0            1.878389E-02                  \r\n                           5.464022E-02   2.469254E-02  -3.086243E-03   0.0            0.0           -2.776510E-02                  \r\n0          101      G      1.471195E-06   2.028222E-05   6.203538E-06   0.0            0.0            0.0                           \r\n                          -3.404045E-05  -2.471849E-04   6.049409E-05   0.0            0.0            0.0                           \r\n0          103      G     -3.593673E-07   1.942303E-05   6.057997E-06   0.0            0.0            0.0                           \r\n                          -3.390715E-05  -2.325959E-04   5.881656E-05   0.0            0.0            0.0                           \r\n0          104      G     -3.288865E-07   1.941590E-05   6.049791E-06   0.0            0.0            0.0                           \r\n                          -3.412818E-05  -2.325803E-04   5.881778E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  3.887587E+02,  7.339756E+03    (CYCLIC FREQUENCY =  1.168158E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -3.593673E-07   1.942303E-05   6.057997E-06   0.0            0.0            0.0                           \r\n                          -3.390715E-05  -2.325959E-04   5.881656E-05   0.0            0.0            0.0                           \r\n0          107      G      1.471195E-06   2.028222E-05   6.203538E-06   0.0            0.0            0.0                           \r\n                          -3.404045E-05  -2.471849E-04   6.049409E-05   0.0            0.0            0.0                           \r\n0          108      G      1.520263E-06   2.025791E-05   6.187880E-06   0.0            0.0            0.0                           \r\n                          -3.442801E-05  -2.471077E-04   6.050004E-05   0.0            0.0            0.0                           \r\n0          113      G      8.264069E-07   2.822403E-05   8.547600E-06   0.0            0.0            0.0                           \r\n                          -3.025577E-05  -3.701340E-04   8.864238E-05   0.0            0.0            0.0                           \r\n0          115      G      3.423593E-07   2.917049E-05   9.413829E-06   0.0            0.0            0.0                           \r\n                          -3.555649E-05  -3.804915E-04   8.750340E-05   0.0            0.0            0.0                           \r\n0          116      G      9.076948E-06  -2.874141E-05   4.161770E-07   0.0            0.0            0.0                           \r\n                           8.872227E-05   3.758302E-04  -3.254424E-05   0.0            0.0            0.0                           \r\n0          117      G      3.423593E-07   2.917049E-05   9.413829E-06   0.0            0.0            0.0                           \r\n                          -3.555649E-05  -3.804915E-04   8.750340E-05   0.0            0.0            0.0                           \r\n0          119      G      8.264069E-07   2.822403E-05   8.547600E-06   0.0            0.0            0.0                           \r\n                          -3.025577E-05  -3.701340E-04   8.864238E-05   0.0            0.0            0.0                           \r\n0          120      G      9.076948E-06  -2.874141E-05   4.161770E-07   0.0            0.0            0.0                           \r\n                           8.872227E-05   3.758302E-04  -3.254424E-05   0.0            0.0            0.0                           \r\n0          121      G      5.985080E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.730287E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      3.478076E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.885766E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      3.436712E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.882361E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      3.478076E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.885766E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      5.985080E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.730287E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      5.926972E-07   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.726440E-05   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  2.874448E+03,  9.350467E+03    (CYCLIC FREQUENCY =  1.488173E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.852706E-05  -3.509250E-04   3.101915E-05   2.826102E-02  -2.297868E-03  -4.820685E-03                  \r\n                           8.624718E-04   2.905917E-03  -2.460670E-04  -9.274830E-02   2.659375E-02   1.174125E-03                  \r\n0            2      G      1.852706E-05  -3.509250E-04   3.101915E-05   2.826102E-02  -2.297868E-03  -4.820685E-03                  \r\n                           8.624718E-04   2.905917E-03  -2.460670E-04  -9.274830E-02   2.659375E-02   1.174125E-03                  \r\n0            3      G      1.852706E-05  -3.509250E-04   3.101915E-05   2.826102E-02  -2.297868E-03  -4.820685E-03                  \r\n                           8.624718E-04   2.905917E-03  -2.460670E-04  -9.274830E-02   2.659375E-02   1.174125E-03                  \r\n0            4      G      4.526800E-02  -9.003570E-02  -1.427406E-02  -3.769629E-02   2.234056E-01   8.784434E-02                  \r\n                          -6.522484E-02   1.678888E-01   2.880993E-02  -4.172682E-01   5.108774E-01  -3.496619E-02                  \r\n0            5      G      1.490094E-02  -4.447264E-02  -6.183716E-04   2.917840E-02   4.639261E-02   7.016279E-02                  \r\n                          -2.595115E-02   1.096669E-01   4.634042E-04  -2.958051E-02  -1.161579E-01  -1.434413E-01                  \r\n0            6      G      2.525772E-03   2.814056E-03  -1.056230E-03  -1.160106E-02   5.976623E-02   5.028066E-02                  \r\n                          -6.465222E-04   1.450132E-02  -4.263665E-03   1.857778E-02  -1.843472E-01  -1.225000E-01                  \r\n0            7      G      1.506855E-01  -2.440495E-01  -3.933360E-02   0.0            0.0            1.167187E-01                  \r\n                           1.092333E-01   7.473713E-02   8.399915E-03   0.0            0.0            2.254468E-01                  \r\n0            8      G      5.959900E-02  -1.678670E-01  -1.440602E-03   2.440475E-01  -2.641766E-01   1.018805E-01                  \r\n                           2.600569E-02   1.501897E-01   1.757532E-03   1.103311E-01  -1.252351E-01   9.675545E-02                  \r\n0            9      G      7.149206E-03  -1.062190E-01   2.236879E-02   1.089449E-01  -7.709458E-02   1.257143E-01                  \r\n                           3.206258E-02   1.390989E-01  -3.018556E-02  -1.096256E-01   1.452673E-01   4.796110E-03                  \r\n0           10      G      2.215550E-01  -2.354475E-01  -4.115028E-02   0.0            0.0            4.420625E-01                  \r\n                           4.433745E-02   1.527755E-01   2.543470E-02   0.0            0.0           -1.077478E-01                  \r\n0           11      G     -2.176718E-01  -4.315589E-02   1.713143E-05   5.893020E-01  -5.249138E-01   1.075915E-01                  \r\n                           5.035187E-02   1.531895E-01   3.052910E-03   4.122630E-01  -3.222806E-01  -2.411596E-01                  \r\n0           12      G     -1.572909E-01  -7.537065E-02   8.373623E-03   0.0            0.0           -1.725387E-02                  \r\n                           2.927383E-01   1.659872E-02  -4.334470E-03   0.0            0.0           -3.630889E-01                  \r\n0          101      G      3.343329E-05   2.342978E-04   1.246130E-05   0.0            0.0            0.0                           \r\n                          -2.574825E-04  -1.906940E-03   5.877183E-04   0.0            0.0            0.0                           \r\n0          103      G      2.194596E-05   2.215885E-04   1.141689E-05   0.0            0.0            0.0                           \r\n                          -2.761268E-04  -1.792790E-03   5.699294E-04   0.0            0.0            0.0                           \r\n0          104      G      2.218528E-05   2.215207E-04   1.137134E-05   0.0            0.0            0.0                           \r\n                          -2.777957E-04  -1.792768E-03   5.698642E-04   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =6        MACH = 180.     KFREQ= .7       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  2.874448E+03,  9.350467E+03    (CYCLIC FREQUENCY =  1.488173E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G      2.194596E-05   2.215885E-04   1.141689E-05   0.0            0.0            0.0                           \r\n                          -2.761268E-04  -1.792790E-03   5.699294E-04   0.0            0.0            0.0                           \r\n0          107      G      3.343329E-05   2.342978E-04   1.246130E-05   0.0            0.0            0.0                           \r\n                          -2.574825E-04  -1.906940E-03   5.877183E-04   0.0            0.0            0.0                           \r\n0          108      G      3.383964E-05   2.341316E-04   1.237560E-05   0.0            0.0            0.0                           \r\n                          -2.604268E-04  -1.906500E-03   5.876304E-04   0.0            0.0            0.0                           \r\n0          113      G      3.191924E-05   3.453742E-04   1.571296E-05   0.0            0.0            0.0                           \r\n                          -2.233110E-04  -2.862192E-03   8.570002E-04   0.0            0.0            0.0                           \r\n0          115      G      3.118220E-05   3.553982E-04   2.087229E-05   0.0            0.0            0.0                           \r\n                          -2.741976E-04  -2.941858E-03   8.550391E-04   0.0            0.0            0.0                           \r\n0          116      G      1.852706E-05  -3.509250E-04   3.101915E-05   0.0            0.0            0.0                           \r\n                           8.624718E-04   2.905917E-03  -2.460670E-04   0.0            0.0            0.0                           \r\n0          117      G      3.118220E-05   3.553982E-04   2.087229E-05   0.0            0.0            0.0                           \r\n                          -2.741976E-04  -2.941858E-03   8.550391E-04   0.0            0.0            0.0                           \r\n0          119      G      3.191924E-05   3.453742E-04   1.571296E-05   0.0            0.0            0.0                           \r\n                          -2.233110E-04  -2.862192E-03   8.570002E-04   0.0            0.0            0.0                           \r\n0          120      G      1.852706E-05  -3.509250E-04   3.101915E-05   0.0            0.0            0.0                           \r\n                           8.624718E-04   2.905917E-03  -2.460670E-04   0.0            0.0            0.0                           \r\n0          121      G      1.863059E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.271986E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G      2.642762E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.153755E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G      2.639447E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.151119E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G      2.642762E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.153755E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G      1.863059E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.271986E-04   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G      1.858515E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.269150E-04   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.674508E+00,  1.543018E+03    (CYCLIC FREQUENCY =  2.455789E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.011827E-04   4.092307E-04  -4.195263E-05  -3.177069E-02   2.149828E-03   7.256645E-03                  \r\n                           9.441919E-07   7.515027E-06  -6.859567E-07  -3.954532E-04   4.754632E-05   5.639375E-05                  \r\n0            2      G     -1.011827E-04   4.092307E-04  -4.195263E-05  -3.177069E-02   2.149828E-03   7.256645E-03                  \r\n                           9.441919E-07   7.515027E-06  -6.859567E-07  -3.954532E-04   4.754632E-05   5.639375E-05                  \r\n0            3      G     -1.011827E-04   4.092307E-04  -4.195263E-05  -3.177069E-02   2.149828E-03   7.256645E-03                  \r\n                           9.441919E-07   7.515027E-06  -6.859567E-07  -3.954532E-04   4.754632E-05   5.639375E-05                  \r\n0            4      G     -6.064739E-02   1.178160E-01   1.875737E-02   9.587588E-02  -3.864042E-01  -1.307023E-01                  \r\n                          -5.491115E-04   1.148862E-03   1.886233E-04  -2.514442E-04  -1.472332E-03  -9.369226E-04                  \r\n0            5      G     -1.988467E-02   5.688425E-02   3.585609E-04  -4.315507E-02  -6.224587E-02  -8.789245E-02                  \r\n                          -1.930618E-04   6.167297E-04   2.396107E-06  -4.237148E-04  -5.470985E-04  -8.943512E-04                  \r\n0            6      G     -3.915198E-03  -4.573897E-03   2.269721E-03   1.364493E-02  -7.047352E-02  -6.397712E-02                  \r\n                          -2.962065E-05  -8.580021E-06   9.855856E-06   1.394072E-04  -8.083792E-04  -6.744450E-04                  \r\n0            7      G     -2.233927E-01   3.733626E-01   6.084191E-02   0.0            0.0           -1.789653E-01                  \r\n                          -1.346138E-03   2.765510E-03   4.449333E-04   0.0            0.0           -8.041785E-04                  \r\n0            8      G     -1.234520E-01   2.921785E-01  -4.778804E-05  -2.834606E-01   1.660991E-01  -1.626915E-01                  \r\n                          -7.886313E-04   2.327055E-03   2.799616E-06  -1.903214E-03   1.289912E-03  -9.616088E-04                  \r\n0            9      G     -2.685407E-02   1.795785E-01  -3.635182E-02  -1.965325E-01   8.566640E-02  -1.921735E-01                  \r\n                          -1.531842E-04   1.575503E-03  -3.239055E-04  -1.382796E-03   1.864847E-04  -1.561040E-03                  \r\n0           10      G     -7.171389E-01   9.919727E-01   1.970148E-01   0.0            0.0           -7.747497E-02                  \r\n                           4.016294E-03  -8.347175E-05  -3.528159E-04   0.0            0.0            1.225129E-03                  \r\n0           11      G     -6.780588E-01   9.998294E-01   1.862127E-02  -8.907071E-01   3.090692E-01  -1.153975E-01                  \r\n                           3.328223E-03   1.815090E-04  -3.622095E-05   1.174606E-02  -5.276716E-03   7.080910E-04                  \r\n0           12      G     -4.369091E-01   8.500824E-01  -1.062066E-01   0.0            0.0           -2.938646E-01                  \r\n                           2.400527E-03   6.923292E-04  -7.182552E-05   0.0            0.0            8.421642E-04                  \r\n0          101      G     -4.383142E-05  -2.751928E-04  -6.797000E-05   0.0            0.0            0.0                           \r\n                          -7.130947E-07  -4.957523E-06   6.447158E-07   0.0            0.0            0.0                           \r\n0          103      G     -2.130852E-05  -2.609344E-04  -6.431156E-05   0.0            0.0            0.0                           \r\n                          -6.185425E-07  -4.671489E-06   6.342965E-07   0.0            0.0            0.0                           \r\n0          104      G     -2.159216E-05  -2.608109E-04  -6.422296E-05   0.0            0.0            0.0                           \r\n                          -6.231168E-07  -4.670702E-06   6.346623E-07   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.674508E+00,  1.543018E+03    (CYCLIC FREQUENCY =  2.455789E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.130852E-05  -2.609344E-04  -6.431156E-05   0.0            0.0            0.0                           \r\n                          -6.185425E-07  -4.671489E-06   6.342965E-07   0.0            0.0            0.0                           \r\n0          107      G     -4.383142E-05  -2.751928E-04  -6.797000E-05   0.0            0.0            0.0                           \r\n                          -7.130947E-07  -4.957523E-06   6.447158E-07   0.0            0.0            0.0                           \r\n0          108      G     -4.430170E-05  -2.749397E-04  -6.780955E-05   0.0            0.0            0.0                           \r\n                          -7.210505E-07  -4.955249E-06   6.454468E-07   0.0            0.0            0.0                           \r\n0          113      G     -4.510128E-05  -4.027911E-04  -9.578122E-05   0.0            0.0            0.0                           \r\n                          -6.635676E-07  -7.399671E-06   9.649907E-07   0.0            0.0            0.0                           \r\n0          115      G     -3.979696E-05  -4.143939E-04  -1.046862E-04   0.0            0.0            0.0                           \r\n                          -7.229655E-07  -7.608512E-06   9.106138E-07   0.0            0.0            0.0                           \r\n0          116      G     -1.011827E-04   4.092307E-04  -4.195263E-05   0.0            0.0            0.0                           \r\n                           9.441919E-07   7.515027E-06  -6.859567E-07   0.0            0.0            0.0                           \r\n0          117      G     -3.979696E-05  -4.143939E-04  -1.046862E-04   0.0            0.0            0.0                           \r\n                          -7.229655E-07  -7.608512E-06   9.106138E-07   0.0            0.0            0.0                           \r\n0          119      G     -4.510128E-05  -4.027911E-04  -9.578122E-05   0.0            0.0            0.0                           \r\n                          -6.635676E-07  -7.399671E-06   9.649907E-07   0.0            0.0            0.0                           \r\n0          120      G     -1.011827E-04   4.092307E-04  -4.195263E-05   0.0            0.0            0.0                           \r\n                           9.441919E-07   7.515027E-06  -6.859567E-07   0.0            0.0            0.0                           \r\n0          121      G     -2.648557E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.814244E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.565657E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.113771E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.562039E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.107028E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.565657E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.113771E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.648557E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.814244E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.642926E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.805948E-07   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  3.135058E+01,  2.902805E+03    (CYCLIC FREQUENCY =  4.619957E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      2.470134E-05   6.578615E-04  -6.102553E-05  -4.289058E-02   3.531191E-03   7.288627E-03                  \r\n                           2.463542E-06   6.287657E-07  -5.777082E-09   2.045729E-04   1.613532E-05  -7.246240E-05                  \r\n0            2      G      2.470134E-05   6.578615E-04  -6.102553E-05  -4.289058E-02   3.531191E-03   7.288627E-03                  \r\n                           2.463542E-06   6.287657E-07  -5.777082E-09   2.045729E-04   1.613532E-05  -7.246240E-05                  \r\n0            3      G      2.470134E-05   6.578615E-04  -6.102553E-05  -4.289058E-02   3.531191E-03   7.288627E-03                  \r\n                           2.463542E-06   6.287657E-07  -5.777082E-09   2.045729E-04   1.613532E-05  -7.246240E-05                  \r\n0            4      G     -6.634740E-02   1.348467E-01   2.186899E-02   1.824190E-02  -2.631880E-01  -1.222945E-01                  \r\n                           5.466084E-04  -9.916375E-04  -1.520905E-04  -1.730538E-03   5.001816E-03   1.339451E-03                  \r\n0            5      G     -2.275595E-02   6.958966E-02   4.322194E-04  -5.088459E-02  -6.225601E-02  -1.041309E-01                  \r\n                           1.679106E-04  -4.235170E-04  -6.597057E-06   3.644535E-04   5.144678E-04   7.259898E-04                  \r\n0            6      G     -3.818303E-03  -2.960151E-03   1.678320E-03   1.680473E-02  -8.860844E-02  -7.643535E-02                  \r\n                           3.885429E-05   7.461608E-05  -2.795516E-05  -1.225848E-04   4.880830E-04   4.894636E-04                  \r\n0            7      G     -1.966436E-01   3.580842E-01   5.790082E-02   0.0            0.0           -1.388371E-01                  \r\n                           2.613600E-03  -3.748792E-03  -6.143046E-04   0.0            0.0            2.354533E-03                  \r\n0            8      G     -1.013560E-01   2.806883E-01   7.037541E-04  -2.879049E-01   2.386848E-01  -1.396542E-01                  \r\n                           1.179887E-03  -2.549181E-03  -8.560133E-06   3.637416E-03  -3.147950E-03   1.864739E-03                  \r\n0            9      G     -2.008501E-02   1.849616E-01  -3.812679E-02  -1.675084E-01   3.286713E-02  -2.023102E-01                  \r\n                           2.455176E-04  -1.465740E-03   2.993207E-04   1.765750E-03  -1.131738E-03   1.906939E-03                  \r\n0           10      G      3.656353E-01   2.028249E-02  -3.282644E-02   0.0            0.0           -2.971621E-02                  \r\n                           1.012550E-02  -1.032085E-02  -2.181496E-03   0.0            0.0            4.968531E-03                  \r\n0           11      G      4.606809E-01  -2.660057E-02  -4.962447E-03   1.008777E+00  -3.369825E-01   5.820681E-02                  \r\n                           5.673334E-03  -8.599202E-03  -1.734302E-04   1.917332E-02  -1.022477E-02   2.003854E-03                  \r\n0           12      G      3.084817E-01   5.790588E-02  -5.112964E-03   0.0            0.0            1.392914E-01                  \r\n                           3.930517E-03  -7.490069E-03   9.319399E-04   0.0            0.0            2.382688E-03                  \r\n0          101      G     -6.374678E-05  -4.356341E-04   1.698382E-05   0.0            0.0            0.0                           \r\n                           4.181402E-09  -3.352093E-07   1.669699E-06   0.0            0.0            0.0                           \r\n0          103      G     -4.901187E-05  -4.110741E-04   1.759717E-05   0.0            0.0            0.0                           \r\n                          -2.573326E-07  -2.905995E-07   1.604552E-06   0.0            0.0            0.0                           \r\n0          104      G     -4.942881E-05  -4.109738E-04   1.765396E-05   0.0            0.0            0.0                           \r\n                          -2.570904E-07  -2.917975E-07   1.603526E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  3.135058E+01,  2.902805E+03    (CYCLIC FREQUENCY =  4.619957E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.901187E-05  -4.110741E-04   1.759717E-05   0.0            0.0            0.0                           \r\n                          -2.573326E-07  -2.905995E-07   1.604552E-06   0.0            0.0            0.0                           \r\n0          107      G     -6.374678E-05  -4.356341E-04   1.698382E-05   0.0            0.0            0.0                           \r\n                           4.181402E-09  -3.352093E-07   1.669699E-06   0.0            0.0            0.0                           \r\n0          108      G     -6.446581E-05  -4.353817E-04   1.709254E-05   0.0            0.0            0.0                           \r\n                           4.275961E-09  -3.371176E-07   1.667883E-06   0.0            0.0            0.0                           \r\n0          113      G     -6.077201E-05  -6.476346E-04   2.814516E-05   0.0            0.0            0.0                           \r\n                           6.551238E-08  -6.228390E-07   2.398236E-06   0.0            0.0            0.0                           \r\n0          115      G     -6.271891E-05  -6.661003E-04   2.108350E-05   0.0            0.0            0.0                           \r\n                          -7.304331E-08  -6.348166E-07   2.487780E-06   0.0            0.0            0.0                           \r\n0          116      G      2.470134E-05   6.578615E-04  -6.102553E-05   0.0            0.0            0.0                           \r\n                           2.463542E-06   6.287657E-07  -5.777082E-09   0.0            0.0            0.0                           \r\n0          117      G     -6.271891E-05  -6.661003E-04   2.108350E-05   0.0            0.0            0.0                           \r\n                          -7.304331E-08  -6.348166E-07   2.487780E-06   0.0            0.0            0.0                           \r\n0          119      G     -6.077201E-05  -6.476346E-04   2.814516E-05   0.0            0.0            0.0                           \r\n                           6.551238E-08  -6.228390E-07   2.398236E-06   0.0            0.0            0.0                           \r\n0          120      G      2.470134E-05   6.578615E-04  -6.102553E-05   0.0            0.0            0.0                           \r\n                           2.463542E-06   6.287657E-07  -5.777082E-09   0.0            0.0            0.0                           \r\n0          121      G     -3.511035E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.613969E-08   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -5.695134E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.735610E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -5.689188E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.735112E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -5.695134E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.735610E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -3.511035E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.613969E-08   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -3.503261E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           4.601588E-08   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  3.268106E+00,  5.039343E+03    (CYCLIC FREQUENCY =  8.020363E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      3.785235E-05   9.936320E-05  -1.072222E-05   3.912464E-04   3.499441E-04  -1.779773E-04                  \r\n                           6.542707E-06   3.527805E-05  -3.111209E-06  -1.594356E-03   2.714616E-04   1.684911E-04                  \r\n0            2      G      3.785235E-05   9.936320E-05  -1.072222E-05   3.912464E-04   3.499441E-04  -1.779773E-04                  \r\n                           6.542707E-06   3.527805E-05  -3.111209E-06  -1.594356E-03   2.714616E-04   1.684911E-04                  \r\n0            3      G      3.785235E-05   9.936320E-05  -1.072222E-05   3.912464E-04   3.499441E-04  -1.779773E-04                  \r\n                           6.542707E-06   3.527805E-05  -3.111209E-06  -1.594356E-03   2.714616E-04   1.684911E-04                  \r\n0            4      G      2.476483E-03  -2.948375E-03  -1.575114E-04  -2.592548E-02   5.296186E-02   8.562593E-03                  \r\n                          -1.922248E-03   4.151605E-03   6.838885E-04  -2.443282E-03  -2.390801E-03  -2.973315E-03                  \r\n0            5      G      2.551118E-04   5.034680E-04  -3.436498E-04  -2.808711E-03   4.425962E-03   2.983599E-03                  \r\n                          -6.828096E-04   2.300758E-03   1.265945E-05  -1.309416E-03  -2.234108E-03  -3.297967E-03                  \r\n0            6      G      7.938311E-05   1.059137E-03  -1.355210E-05  -9.228147E-04   1.772449E-03   6.601845E-04                  \r\n                          -8.891440E-05   3.782878E-05   7.035633E-06   4.960502E-04  -3.256888E-03  -2.547730E-03                  \r\n0            7      G      2.521169E-02  -1.359528E-02  -2.093257E-03   0.0            0.0            2.881539E-02                  \r\n                          -3.589990E-03   8.466050E-03   1.343062E-03   0.0            0.0           -1.500892E-03                  \r\n0            8      G     -6.745541E-03   1.473216E-02  -1.047563E-03   6.450200E-02  -1.243570E-01   1.269447E-02                  \r\n                          -2.108273E-03   7.321412E-03   2.580671E-05  -5.468002E-03   4.027371E-03  -2.420965E-03                  \r\n0            9      G     -5.709847E-03   1.343608E-02  -2.248775E-03  -3.081930E-03  -4.692826E-02  -1.259254E-03                  \r\n                          -2.253168E-04   5.078185E-03  -1.055668E-03  -4.598663E-03   1.995857E-03  -4.363976E-03                  \r\n0           10      G      3.261841E-01  -1.039767E-01  -3.415473E-02   0.0            0.0            4.158982E-01                  \r\n                           4.455330E-03   5.093839E-03   2.991910E-04   0.0            0.0           -1.606295E-03                  \r\n0           11      G     -5.992445E-02   6.537680E-02  -2.610946E-04   1.013692E+00  -6.698204E-01   1.188670E-01                  \r\n                           6.359812E-03   4.276553E-03  -7.541166E-07   1.840010E-02  -7.505269E-03  -1.148693E-03                  \r\n0           12      G     -4.405487E-02   5.594796E-02  -6.988465E-03   0.0            0.0            1.178849E-02                  \r\n                           6.258597E-03   4.260387E-03  -5.103390E-04   0.0            0.0           -1.227306E-03                  \r\n0          101      G     -1.017825E-05  -6.400479E-05   2.582473E-05   0.0            0.0            0.0                           \r\n                          -3.253227E-06  -2.324628E-05   4.464744E-06   0.0            0.0            0.0                           \r\n0          103      G     -1.180083E-05  -5.990207E-05   2.514717E-05   0.0            0.0            0.0                           \r\n                          -3.041568E-06  -2.189053E-05   4.356048E-06   0.0            0.0            0.0                           \r\n0          104      G     -1.184603E-05  -5.990307E-05   2.513999E-05   0.0            0.0            0.0                           \r\n                          -3.062720E-06  -2.188807E-05   4.356919E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  3.268106E+00,  5.039343E+03    (CYCLIC FREQUENCY =  8.020363E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -1.180083E-05  -5.990207E-05   2.514717E-05   0.0            0.0            0.0                           \r\n                          -3.041568E-06  -2.189053E-05   4.356048E-06   0.0            0.0            0.0                           \r\n0          107      G     -1.017825E-05  -6.400479E-05   2.582473E-05   0.0            0.0            0.0                           \r\n                          -3.253227E-06  -2.324628E-05   4.464744E-06   0.0            0.0            0.0                           \r\n0          108      G     -1.026174E-05  -6.400146E-05   2.581219E-05   0.0            0.0            0.0                           \r\n                          -3.290132E-06  -2.323745E-05   4.466657E-06   0.0            0.0            0.0                           \r\n0          113      G     -9.574098E-06  -9.793605E-05   3.733596E-05   0.0            0.0            0.0                           \r\n                          -2.947597E-06  -3.474020E-05   6.584328E-06   0.0            0.0            0.0                           \r\n0          115      G     -1.178261E-05  -1.005239E-04   3.775706E-05   0.0            0.0            0.0                           \r\n                          -3.344992E-06  -3.571661E-05   6.408162E-06   0.0            0.0            0.0                           \r\n0          116      G      3.785235E-05   9.936320E-05  -1.072222E-05   0.0            0.0            0.0                           \r\n                           6.542707E-06   3.527805E-05  -3.111209E-06   0.0            0.0            0.0                           \r\n0          117      G     -1.178261E-05  -1.005239E-04   3.775706E-05   0.0            0.0            0.0                           \r\n                          -3.344992E-06  -3.571661E-05   6.408162E-06   0.0            0.0            0.0                           \r\n0          119      G     -9.574098E-06  -9.793605E-05   3.733596E-05   0.0            0.0            0.0                           \r\n                          -2.947597E-06  -3.474020E-05   6.584328E-06   0.0            0.0            0.0                           \r\n0          120      G      3.785235E-05   9.936320E-05  -1.072222E-05   0.0            0.0            0.0                           \r\n                           6.542707E-06   3.527805E-05  -3.111209E-06   0.0            0.0            0.0                           \r\n0          121      G     -5.353292E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.690886E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -1.277287E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.496443E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -1.276541E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.493250E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -1.277287E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.496443E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -5.353292E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.690886E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -5.345873E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.687135E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.844635E+02,  9.597228E+03    (CYCLIC FREQUENCY =  1.527446E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.369627E-03   4.272476E-03  -3.583347E-04  -1.247553E-01   4.044521E-02  -2.215859E-03                  \r\n                          -3.613931E-07   5.197413E-05  -4.858132E-06  -3.550910E-03   2.855662E-04   6.322454E-04                  \r\n0            2      G      1.369627E-03   4.272476E-03  -3.583347E-04  -1.247553E-01   4.044521E-02  -2.215859E-03                  \r\n                          -3.613931E-07   5.197413E-05  -4.858132E-06  -3.550910E-03   2.855662E-04   6.322454E-04                  \r\n0            3      G      1.369627E-03   4.272476E-03  -3.583347E-04  -1.247553E-01   4.044521E-02  -2.215859E-03                  \r\n                          -3.613931E-07   5.197413E-05  -4.858132E-06  -3.550910E-03   2.855662E-04   6.322454E-04                  \r\n0            4      G     -6.730800E-02   1.934489E-01   3.390212E-02  -6.809512E-01   9.707642E-01   1.346372E-02                  \r\n                          -5.695336E-03   1.145943E-02   1.847703E-03   3.201998E-03  -2.556343E-02  -1.086327E-02                  \r\n0            5      G     -2.883566E-02   1.367413E-01   5.346111E-04  -1.907446E-02  -1.501148E-01  -1.717656E-01                  \r\n                          -1.928986E-03   5.820933E-03   4.177555E-05  -4.223985E-03  -5.494959E-03  -8.811501E-03                  \r\n0            6      G      1.125894E-03   2.482872E-02  -7.796927E-03   2.055586E-02  -2.456852E-01  -1.533769E-01                  \r\n                          -3.330169E-04  -2.955249E-04   1.539151E-04   1.417755E-03  -7.434277E-03  -6.440548E-03                  \r\n0            7      G      2.853548E-01  -8.332983E-02  -1.940175E-02   0.0            0.0            4.389363E-01                  \r\n                          -1.782046E-02   3.144566E-02   5.089788E-03   0.0            0.0           -1.307665E-02                  \r\n0            8      G      1.017363E-01   7.808125E-02   2.587748E-03   3.310485E-01  -3.132133E-01   2.341357E-01                  \r\n                          -9.024897E-03   2.426622E-02   6.514102E-05  -2.578525E-02   2.129084E-02  -1.263534E-02                  \r\n0            9      G      6.365731E-02   1.165044E-01  -2.655043E-02  -7.624614E-02   2.105164E-01   1.204260E-01                  \r\n                          -1.749041E-03   1.571674E-02  -3.237007E-03  -1.497479E-02   4.592627E-03  -1.726985E-02                  \r\n0           10      G     -3.447356E-02   1.234898E-01   3.426065E-02   0.0            0.0           -1.875569E-01                  \r\n                           7.129479E-03   2.071147E-02   1.800311E-03   0.0            0.0           -1.019233E-02                  \r\n0           11      G     -3.571262E-02   1.281533E-01   4.815975E-03   2.236216E-01  -3.388382E-01  -4.063689E-01                  \r\n                           2.060259E-02   1.488945E-02  -5.302887E-06   3.721654E-02  -6.938132E-03  -7.145293E-05                  \r\n0           12      G      3.863608E-01  -1.074141E-01   8.886690E-03   0.0            0.0           -6.045377E-01                  \r\n                           1.426776E-02   1.813513E-02  -2.121043E-03   0.0            0.0            4.018121E-03                  \r\n0          101      G     -3.751121E-04  -2.801284E-03   9.331228E-04   0.0            0.0            0.0                           \r\n                          -5.091641E-06  -3.451358E-05  -2.190166E-07   0.0            0.0            0.0                           \r\n0          103      G     -4.138559E-04  -2.632684E-03   9.041775E-04   0.0            0.0            0.0                           \r\n                          -3.662403E-06  -3.259537E-05  -1.083164E-07   0.0            0.0            0.0                           \r\n0          104      G     -4.162875E-04  -2.632708E-03   9.040386E-04   0.0            0.0            0.0                           \r\n                          -3.695991E-06  -3.258627E-05  -1.027587E-07   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =7        MACH = 180.     KFREQ= 1.       RHO =  0.059164                                                               \r\n      COMPLEX EIGENVALUE =  1.844635E+02,  9.597228E+03    (CYCLIC FREQUENCY =  1.527446E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.138559E-04  -2.632684E-03   9.041775E-04   0.0            0.0            0.0                           \r\n                          -3.662403E-06  -3.259537E-05  -1.083164E-07   0.0            0.0            0.0                           \r\n0          107      G     -3.751121E-04  -2.801284E-03   9.331228E-04   0.0            0.0            0.0                           \r\n                          -5.091641E-06  -3.451358E-05  -2.190166E-07   0.0            0.0            0.0                           \r\n0          108      G     -3.794126E-04  -2.800726E-03   9.329168E-04   0.0            0.0            0.0                           \r\n                          -5.149169E-06  -3.449166E-05  -2.085436E-07   0.0            0.0            0.0                           \r\n0          113      G     -3.219775E-04  -4.208362E-03   1.358796E-03   0.0            0.0            0.0                           \r\n                          -4.905909E-06  -5.116345E-05  -2.314709E-08   0.0            0.0            0.0                           \r\n0          115      G     -4.024921E-04  -4.325268E-03   1.359837E-03   0.0            0.0            0.0                           \r\n                          -4.930381E-06  -5.262688E-05  -6.732688E-07   0.0            0.0            0.0                           \r\n0          116      G      1.369627E-03   4.272476E-03  -3.583347E-04   0.0            0.0            0.0                           \r\n                          -3.613931E-07   5.197413E-05  -4.858132E-06   0.0            0.0            0.0                           \r\n0          117      G     -4.024921E-04  -4.325268E-03   1.359837E-03   0.0            0.0            0.0                           \r\n                          -4.930381E-06  -5.262688E-05  -6.732688E-07   0.0            0.0            0.0                           \r\n0          119      G     -3.219775E-04  -4.208362E-03   1.358796E-03   0.0            0.0            0.0                           \r\n                          -4.905909E-06  -5.116345E-05  -2.314709E-08   0.0            0.0            0.0                           \r\n0          120      G      1.369627E-03   4.272476E-03  -3.583347E-04   0.0            0.0            0.0                           \r\n                          -3.613931E-07   5.197413E-05  -4.858132E-06   0.0            0.0            0.0                           \r\n0          121      G     -1.830937E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.844080E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.721572E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.284560E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.717695E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.279852E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.721572E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.284560E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.830937E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.844080E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.826844E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.837751E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.553651E+00,  1.535648E+03    (CYCLIC FREQUENCY =  2.444060E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.014879E-04   4.169957E-04  -4.269449E-05  -3.234810E-02   2.182493E-03   7.366823E-03                  \r\n                           1.886626E-06   1.511110E-05  -1.379551E-06  -7.968110E-04   9.547004E-05   1.138762E-04                  \r\n0            2      G     -1.014879E-04   4.169957E-04  -4.269449E-05  -3.234810E-02   2.182493E-03   7.366823E-03                  \r\n                           1.886626E-06   1.511110E-05  -1.379551E-06  -7.968110E-04   9.547004E-05   1.138762E-04                  \r\n0            3      G     -1.014879E-04   4.169957E-04  -4.269449E-05  -3.234810E-02   2.182493E-03   7.366823E-03                  \r\n                           1.886626E-06   1.511110E-05  -1.379551E-06  -7.968110E-04   9.547004E-05   1.138762E-04                  \r\n0            4      G     -6.160426E-02   1.197333E-01   1.906731E-02   9.648082E-02  -3.908077E-01  -1.325349E-01                  \r\n                          -1.107834E-03   2.317027E-03   3.803637E-04  -4.973756E-04  -2.987860E-03  -1.892120E-03                  \r\n0            5      G     -2.021041E-02   5.785647E-02   3.643908E-04  -4.390960E-02  -6.309889E-02  -8.936039E-02                  \r\n                          -3.893910E-04   1.243261E-03   4.858470E-06  -8.548461E-04  -1.102956E-03  -1.803534E-03                  \r\n0            6      G     -3.972938E-03  -4.629979E-03   2.298913E-03   1.388485E-02  -7.167246E-02  -6.504241E-02                  \r\n                          -5.981160E-05  -1.769960E-05   1.998823E-05   2.812367E-04  -1.629020E-03  -1.359663E-03                  \r\n0            7      G     -2.264628E-01   3.787611E-01   6.171802E-02   0.0            0.0           -1.812453E-01                  \r\n                          -2.722731E-03   5.584518E-03   8.985368E-04   0.0            0.0           -1.630852E-03                  \r\n0            8      G     -1.250343E-01   2.963649E-01  -3.981125E-05  -2.878735E-01   1.696873E-01  -1.648941E-01                  \r\n                          -1.592579E-03   4.695239E-03   5.705931E-06  -3.850967E-03   2.617611E-03  -1.944898E-03                  \r\n0            9      G     -2.719466E-02   1.823056E-01  -3.691200E-02  -1.990145E-01   8.601454E-02  -1.952659E-01                  \r\n                          -3.095030E-04   3.177812E-03  -6.533330E-04  -2.790155E-03   3.778106E-04  -3.152404E-03                  \r\n0           10      G     -7.115234E-01   9.923099E-01   1.965179E-01   0.0            0.0           -7.739475E-02                  \r\n                           8.080471E-03  -1.609883E-04  -7.096920E-04   0.0            0.0            2.441250E-03                  \r\n0           11      G     -6.714396E-01   9.996527E-01   1.854917E-02  -8.750237E-01   3.036139E-01  -1.142311E-01                  \r\n                           6.723062E-03   3.600387E-04  -7.313909E-05   2.362408E-02  -1.059249E-02   1.424342E-03                  \r\n0           12      G     -4.326837E-01   8.512314E-01  -1.063165E-01   0.0            0.0           -2.915516E-01                  \r\n                           4.844347E-03   1.394607E-03  -1.445690E-04   0.0            0.0            1.705936E-03                  \r\n0          101      G     -4.460487E-05  -2.803477E-04  -6.817542E-05   0.0            0.0            0.0                           \r\n                          -1.434177E-06  -9.968839E-06   1.288258E-06   0.0            0.0            0.0                           \r\n0          103      G     -2.184168E-05  -2.658038E-04  -6.449330E-05   0.0            0.0            0.0                           \r\n                          -1.242722E-06  -9.393782E-06   1.267624E-06   0.0            0.0            0.0                           \r\n0          104      G     -2.213037E-05  -2.656788E-04  -6.440377E-05   0.0            0.0            0.0                           \r\n                          -1.251924E-06  -9.392194E-06   1.268365E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.553651E+00,  1.535648E+03    (CYCLIC FREQUENCY =  2.444060E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.184168E-05  -2.658038E-04  -6.449330E-05   0.0            0.0            0.0                           \r\n                          -1.242722E-06  -9.393782E-06   1.267624E-06   0.0            0.0            0.0                           \r\n0          107      G     -4.460487E-05  -2.803477E-04  -6.817542E-05   0.0            0.0            0.0                           \r\n                          -1.434177E-06  -9.968839E-06   1.288258E-06   0.0            0.0            0.0                           \r\n0          108      G     -4.508381E-05  -2.800912E-04  -6.801322E-05   0.0            0.0            0.0                           \r\n                          -1.450179E-06  -9.964255E-06   1.289737E-06   0.0            0.0            0.0                           \r\n0          113      G     -4.585713E-05  -4.104343E-04  -9.602949E-05   0.0            0.0            0.0                           \r\n                          -1.334881E-06  -1.487911E-05   1.928781E-06   0.0            0.0            0.0                           \r\n0          115      G     -4.054231E-05  -4.222564E-04  -1.050408E-04   0.0            0.0            0.0                           \r\n                          -1.453647E-06  -1.529908E-05   1.818969E-06   0.0            0.0            0.0                           \r\n0          116      G     -1.014879E-04   4.169957E-04  -4.269449E-05   0.0            0.0            0.0                           \r\n                           1.886626E-06   1.511110E-05  -1.379551E-06   0.0            0.0            0.0                           \r\n0          117      G     -4.054231E-05  -4.222564E-04  -1.050408E-04   0.0            0.0            0.0                           \r\n                          -1.453647E-06  -1.529908E-05   1.818969E-06   0.0            0.0            0.0                           \r\n0          119      G     -4.585713E-05  -4.104343E-04  -9.602949E-05   0.0            0.0            0.0                           \r\n                          -1.334881E-06  -1.487911E-05   1.928781E-06   0.0            0.0            0.0                           \r\n0          120      G     -1.014879E-04   4.169957E-04  -4.269449E-05   0.0            0.0            0.0                           \r\n                           1.886626E-06   1.511110E-05  -1.379551E-06   0.0            0.0            0.0                           \r\n0          121      G     -2.692362E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.673367E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.627968E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.429348E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.624281E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.427992E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.627968E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.429348E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.692362E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.673367E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.686636E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.656677E-07   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  5.752604E+01,  2.848058E+03    (CYCLIC FREQUENCY =  4.532825E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      2.351105E-05   6.441278E-04  -5.976117E-05  -4.222595E-02   3.426223E-03   7.192942E-03                  \r\n                           4.935105E-06   1.193279E-06  -1.716842E-09   4.095285E-04   3.270722E-05  -1.458661E-04                  \r\n0            2      G      2.351105E-05   6.441278E-04  -5.976117E-05  -4.222595E-02   3.426223E-03   7.192942E-03                  \r\n                           4.935105E-06   1.193279E-06  -1.716842E-09   4.095285E-04   3.270722E-05  -1.458661E-04                  \r\n0            3      G      2.351105E-05   6.441278E-04  -5.976117E-05  -4.222595E-02   3.426223E-03   7.192942E-03                  \r\n                           4.935105E-06   1.193279E-06  -1.716842E-09   4.095285E-04   3.270722E-05  -1.458661E-04                  \r\n0            4      G     -6.539358E-02   1.328750E-01   2.154865E-02   1.821735E-02  -2.597404E-01  -1.205331E-01                  \r\n                           1.097055E-03  -1.991249E-03  -3.057715E-04  -3.462770E-03   1.002306E-02   2.687997E-03                  \r\n0            5      G     -2.242958E-02   6.855402E-02   4.272243E-04  -5.024835E-02  -6.112995E-02  -1.026127E-01                  \r\n                           3.376100E-04  -8.521006E-04  -1.276609E-05   7.386165E-04   1.028019E-03   1.455968E-03                  \r\n0            6      G     -3.766462E-03  -2.945123E-03   1.661198E-03   1.658181E-02  -8.719156E-02  -7.527393E-02                  \r\n                           7.823932E-05   1.492795E-04  -5.648752E-05  -2.453356E-04   9.768594E-04   9.830152E-04                  \r\n0            7      G     -1.941422E-01   3.531098E-01   5.710049E-02   0.0            0.0           -1.372385E-01                  \r\n                           5.236540E-03  -7.539442E-03  -1.235780E-03   0.0            0.0            4.711576E-03                  \r\n0            8      G     -9.981190E-02   2.764625E-01   7.027172E-04  -2.847752E-01   2.373299E-01  -1.378647E-01                  \r\n                           2.391432E-03  -5.161189E-03  -1.559997E-05   7.240885E-03  -6.160803E-03   3.744823E-03                  \r\n0            9      G     -1.981387E-02   1.822305E-01  -3.756997E-02  -1.646323E-01   3.139963E-02  -1.998780E-01                  \r\n                           5.049560E-04  -2.973712E-03   6.064486E-04   3.564256E-03  -2.207897E-03   3.848549E-03                  \r\n0           10      G      3.751434E-01   6.258273E-03  -3.560751E-02   0.0            0.0           -2.939522E-02                  \r\n                           1.994154E-02  -2.067056E-02  -4.350924E-03   0.0            0.0            9.380893E-03                  \r\n0           11      G      4.707073E-01  -4.121656E-02  -5.236880E-03   1.018672E+00  -3.390750E-01   6.030039E-02                  \r\n                           1.155549E-02  -1.745896E-02  -3.497323E-04   3.715761E-02  -1.961356E-02   3.855952E-03                  \r\n0           12      G      3.142036E-01   4.590881E-02  -3.604901E-03   0.0            0.0            1.446029E-01                  \r\n                           8.015478E-03  -1.520692E-02   1.892121E-03   0.0            0.0            4.785776E-03                  \r\n0          101      G     -6.242718E-05  -4.265365E-04   1.615914E-05   0.0            0.0            0.0                           \r\n                           1.723140E-08  -6.287273E-07   3.344648E-06   0.0            0.0            0.0                           \r\n0          103      G     -4.793039E-05  -4.024926E-04   1.677616E-05   0.0            0.0            0.0                           \r\n                          -5.083916E-07  -5.419874E-07   3.213775E-06   0.0            0.0            0.0                           \r\n0          104      G     -4.833884E-05  -4.023940E-04   1.683199E-05   0.0            0.0            0.0                           \r\n                          -5.078782E-07  -5.444026E-07   3.211715E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  5.752604E+01,  2.848058E+03    (CYCLIC FREQUENCY =  4.532825E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.793039E-05  -4.024926E-04   1.677616E-05   0.0            0.0            0.0                           \r\n                          -5.083916E-07  -5.419874E-07   3.213775E-06   0.0            0.0            0.0                           \r\n0          107      G     -6.242718E-05  -4.265365E-04   1.615914E-05   0.0            0.0            0.0                           \r\n                           1.723140E-08  -6.287273E-07   3.344648E-06   0.0            0.0            0.0                           \r\n0          108      G     -6.313162E-05  -4.262887E-04   1.626603E-05   0.0            0.0            0.0                           \r\n                           1.747190E-08  -6.325708E-07   3.340999E-06   0.0            0.0            0.0                           \r\n0          113      G     -5.953321E-05  -6.341108E-04   2.690091E-05   0.0            0.0            0.0                           \r\n                           1.409533E-07  -1.182349E-06   4.803994E-06   0.0            0.0            0.0                           \r\n0          115      G     -6.140124E-05  -6.521955E-04   1.995995E-05   0.0            0.0            0.0                           \r\n                          -1.365498E-07  -1.204661E-06   4.983953E-06   0.0            0.0            0.0                           \r\n0          116      G      2.351105E-05   6.441278E-04  -5.976117E-05   0.0            0.0            0.0                           \r\n                           4.935105E-06   1.193279E-06  -1.716842E-09   0.0            0.0            0.0                           \r\n0          117      G     -6.140124E-05  -6.521955E-04   1.995995E-05   0.0            0.0            0.0                           \r\n                          -1.365498E-07  -1.204661E-06   4.983953E-06   0.0            0.0            0.0                           \r\n0          119      G     -5.953321E-05  -6.341108E-04   2.690091E-05   0.0            0.0            0.0                           \r\n                           1.409533E-07  -1.182349E-06   4.803994E-06   0.0            0.0            0.0                           \r\n0          120      G      2.351105E-05   6.441278E-04  -5.976117E-05   0.0            0.0            0.0                           \r\n                           4.935105E-06   1.193279E-06  -1.716842E-09   0.0            0.0            0.0                           \r\n0          121      G     -3.439445E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           9.793712E-08   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -5.570065E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.406862E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -5.564242E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.405902E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -5.570065E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.406862E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -3.439445E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           9.793712E-08   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -3.431826E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           9.768343E-08   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  9.953187E+00,  5.000261E+03    (CYCLIC FREQUENCY =  7.958162E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      4.594482E-05   1.358121E-04  -1.389481E-05  -1.092036E-03   6.487038E-04  -5.729327E-05                  \r\n                           1.312096E-05   6.953569E-05  -6.125320E-06  -3.116205E-03   5.379422E-04   3.233691E-04                  \r\n0            2      G      4.594482E-05   1.358121E-04  -1.389481E-05  -1.092036E-03   6.487038E-04  -5.729327E-05                  \r\n                           1.312096E-05   6.953569E-05  -6.125320E-06  -3.116205E-03   5.379422E-04   3.233691E-04                  \r\n0            3      G      4.594482E-05   1.358121E-04  -1.389481E-05  -1.092036E-03   6.487038E-04  -5.729327E-05                  \r\n                           1.312096E-05   6.953569E-05  -6.125320E-06  -3.116205E-03   5.379422E-04   3.233691E-04                  \r\n0            4      G      8.821306E-04   6.073865E-04   4.329647E-04  -2.933569E-02   5.342570E-02   6.367468E-03                  \r\n                          -3.724870E-03   8.063532E-03   1.329098E-03  -4.966293E-03  -4.222196E-03  -5.715748E-03                  \r\n0            5      G     -3.225970E-04   2.542944E-03  -3.330245E-04  -3.829529E-03   2.397778E-03   1.175893E-04                  \r\n                          -1.325067E-03   4.480205E-03   2.455576E-05  -2.527360E-03  -4.356483E-03  -6.412547E-03                  \r\n0            6      G      1.552093E-05   1.145905E-03  -2.653135E-05  -5.048680E-04  -1.238269E-03  -1.603603E-03                  \r\n                          -1.706585E-04   8.240905E-05   1.052734E-05   9.624989E-04  -6.361962E-03  -4.961782E-03                  \r\n0            7      G      2.319630E-02  -7.455271E-03  -1.133619E-03   0.0            0.0            2.872160E-02                  \r\n                          -6.796906E-03   1.625811E-02   2.576814E-03   0.0            0.0           -2.717401E-03                  \r\n0            8      G     -8.094704E-03   2.040484E-02  -1.022771E-03   6.121836E-02  -1.221627E-01   1.143087E-02                  \r\n                          -4.017385E-03   1.411855E-02   5.064020E-05  -1.039286E-02   7.627682E-03  -4.567584E-03                  \r\n0            9      G     -5.731884E-03   1.751198E-02  -3.101131E-03  -6.721830E-03  -4.491125E-02  -4.230257E-03                  \r\n                          -4.091293E-04   9.817208E-03  -2.041727E-03  -8.877512E-03   3.917924E-03  -8.351711E-03                  \r\n0           10      G      3.288460E-01  -9.930334E-02  -3.371676E-02   0.0            0.0            4.143101E-01                  \r\n                           8.607817E-03   9.813189E-03   5.799783E-04   0.0            0.0           -3.146626E-03                  \r\n0           11      G     -5.595838E-02   6.951986E-02  -2.358789E-04   1.027052E+00  -6.759940E-01   1.169585E-01                  \r\n                           1.226034E-02   8.246440E-03  -4.015565E-07   3.559209E-02  -1.461750E-02  -2.356291E-03                  \r\n0           12      G     -3.891497E-02   5.937245E-02  -7.412003E-03   0.0            0.0            9.167455E-03                  \r\n                           1.221489E-02   8.132468E-03  -9.754936E-04   0.0            0.0           -2.578686E-03                  \r\n0          101      G     -1.349646E-05  -8.799085E-05   3.134400E-05   0.0            0.0            0.0                           \r\n                          -6.405047E-06  -4.581462E-05   8.953130E-06   0.0            0.0            0.0                           \r\n0          103      G     -1.504876E-05  -8.247724E-05   3.051780E-05   0.0            0.0            0.0                           \r\n                          -6.012936E-06  -4.314060E-05   8.732740E-06   0.0            0.0            0.0                           \r\n0          104      G     -1.511551E-05  -8.247646E-05   3.051096E-05   0.0            0.0            0.0                           \r\n                          -6.054578E-06  -4.313589E-05   8.734362E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  9.953187E+00,  5.000261E+03    (CYCLIC FREQUENCY =  7.958162E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -1.504876E-05  -8.247724E-05   3.051780E-05   0.0            0.0            0.0                           \r\n                          -6.012936E-06  -4.314060E-05   8.732740E-06   0.0            0.0            0.0                           \r\n0          107      G     -1.349646E-05  -8.799085E-05   3.134400E-05   0.0            0.0            0.0                           \r\n                          -6.405047E-06  -4.581462E-05   8.953130E-06   0.0            0.0            0.0                           \r\n0          108      G     -1.361768E-05  -8.797956E-05   3.133243E-05   0.0            0.0            0.0                           \r\n                          -6.477724E-06  -4.579741E-05   8.956731E-06   0.0            0.0            0.0                           \r\n0          113      G     -1.253941E-05  -1.338317E-04   4.543480E-05   0.0            0.0            0.0                           \r\n                          -5.796383E-06  -6.847594E-05   1.319681E-05   0.0            0.0            0.0                           \r\n0          115      G     -1.523329E-05  -1.374251E-04   4.572559E-05   0.0            0.0            0.0                           \r\n                          -6.592290E-06  -7.040001E-05   1.285829E-05   0.0            0.0            0.0                           \r\n0          116      G      4.594482E-05   1.358121E-04  -1.389481E-05   0.0            0.0            0.0                           \r\n                           1.312096E-05   6.953569E-05  -6.125320E-06   0.0            0.0            0.0                           \r\n0          117      G     -1.523329E-05  -1.374251E-04   4.572559E-05   0.0            0.0            0.0                           \r\n                          -6.592290E-06  -7.040001E-05   1.285829E-05   0.0            0.0            0.0                           \r\n0          119      G     -1.253941E-05  -1.338317E-04   4.543480E-05   0.0            0.0            0.0                           \r\n                          -5.796383E-06  -6.847594E-05   1.319681E-05   0.0            0.0            0.0                           \r\n0          120      G      4.594482E-05   1.358121E-04  -1.389481E-05   0.0            0.0            0.0                           \r\n                           1.312096E-05   6.953569E-05  -6.125320E-06   0.0            0.0            0.0                           \r\n0          121      G     -7.050694E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.324455E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -1.649813E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.910762E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -1.648736E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.904470E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -1.649813E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.910762E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -7.050694E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.324455E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -7.039505E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -3.317080E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.109804E+02,  9.235627E+03    (CYCLIC FREQUENCY =  1.469896E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.367298E-03   4.316790E-03  -3.623534E-04  -1.282141E-01   4.071026E-02  -1.604680E-03                  \r\n                          -9.188647E-07   9.427046E-05  -8.794363E-06  -6.498978E-03   5.209129E-04   1.156318E-03                  \r\n0            2      G      1.367298E-03   4.316790E-03  -3.623534E-04  -1.282141E-01   4.071026E-02  -1.604680E-03                  \r\n                          -9.188647E-07   9.427046E-05  -8.794363E-06  -6.498978E-03   5.209129E-04   1.156318E-03                  \r\n0            3      G      1.367298E-03   4.316790E-03  -3.623534E-04  -1.282141E-01   4.071026E-02  -1.604680E-03                  \r\n                          -9.188647E-07   9.427046E-05  -8.794363E-06  -6.498978E-03   5.209129E-04   1.156318E-03                  \r\n0            4      G     -7.291878E-02   2.046236E-01   3.568279E-02  -6.764331E-01   9.432831E-01   2.566300E-03                  \r\n                          -1.043117E-02   2.097316E-02   3.378834E-03   6.042855E-03  -4.711927E-02  -1.992118E-02                  \r\n0            5      G     -3.069789E-02   1.422955E-01   5.989557E-04  -2.289401E-02  -1.557074E-01  -1.804217E-01                  \r\n                          -3.527876E-03   1.063725E-02   7.968650E-05  -7.689975E-03  -1.008814E-02  -1.613590E-02                  \r\n0            6      G      8.050579E-04   2.448550E-02  -7.653950E-03   2.197731E-02  -2.529839E-01  -1.596086E-01                  \r\n                          -6.088974E-04  -5.481893E-04   2.806416E-04   2.600215E-03  -1.361373E-02  -1.178119E-02                  \r\n0            7      G      2.668119E-01  -5.259462E-02  -1.443758E-02   0.0            0.0            4.247139E-01                  \r\n                          -3.276913E-02   5.755563E-02   9.314442E-03   0.0            0.0           -2.412809E-02                  \r\n0            8      G      9.372023E-02   1.000696E-01   2.725719E-03   3.021573E-01  -2.842700E-01   2.213739E-01                  \r\n                          -1.640664E-02   4.417854E-02   1.294647E-04  -4.770117E-02   4.008917E-02  -2.318133E-02                  \r\n0            9      G      6.243842E-02   1.305077E-01  -2.947304E-02  -9.023948E-02   2.182653E-01   1.041872E-01                  \r\n                          -3.133635E-03   2.858227E-02  -5.892113E-03  -2.731861E-02   8.846686E-03  -3.152357E-02                  \r\n0           10      G     -5.014934E-02   1.498810E-01   3.824715E-02   0.0            0.0           -2.268494E-01                  \r\n                           1.006115E-02   3.865384E-02   3.576902E-03   0.0            0.0           -2.266079E-02                  \r\n0           11      G     -1.111408E-02   1.369427E-01   4.814750E-03   1.882820E-01  -2.983963E-01  -4.149484E-01                  \r\n                           3.843306E-02   2.636356E-02  -1.150077E-05   5.850399E-02  -6.307494E-03  -1.276998E-03                  \r\n0           12      G      4.037313E-01  -9.481430E-02   7.449096E-03   0.0            0.0           -6.015269E-01                  \r\n                           2.665742E-02   3.241476E-02  -3.785391E-03   0.0            0.0            7.272162E-03                  \r\n0          101      G     -3.793990E-04  -2.830832E-03   9.315589E-04   0.0            0.0            0.0                           \r\n                          -9.227328E-06  -6.261669E-05  -5.768533E-07   0.0            0.0            0.0                           \r\n0          103      G     -4.166952E-04  -2.660622E-03   9.027516E-04   0.0            0.0            0.0                           \r\n                          -6.605147E-06  -5.914078E-05  -3.704694E-07   0.0            0.0            0.0                           \r\n0          104      G     -4.191567E-04  -2.660637E-03   9.026183E-04   0.0            0.0            0.0                           \r\n                          -6.666229E-06  -5.912417E-05  -3.602638E-07   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =8        MACH = 180.     KFREQ= 1.       RHO =  .118328                                                                \r\n      COMPLEX EIGENVALUE =  3.109804E+02,  9.235627E+03    (CYCLIC FREQUENCY =  1.469896E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.166952E-04  -2.660622E-03   9.027516E-04   0.0            0.0            0.0                           \r\n                          -6.605147E-06  -5.914078E-05  -3.704694E-07   0.0            0.0            0.0                           \r\n0          107      G     -3.793990E-04  -2.830832E-03   9.315589E-04   0.0            0.0            0.0                           \r\n                          -9.227328E-06  -6.261669E-05  -5.768533E-07   0.0            0.0            0.0                           \r\n0          108      G     -3.837502E-04  -2.830253E-03   9.313636E-04   0.0            0.0            0.0                           \r\n                          -9.331896E-06  -6.257664E-05  -5.576268E-07   0.0            0.0            0.0                           \r\n0          113      G     -3.261043E-04  -4.251977E-03   1.356818E-03   0.0            0.0            0.0                           \r\n                          -8.889872E-06  -9.279903E-05  -2.971326E-07   0.0            0.0            0.0                           \r\n0          115      G     -4.065265E-04  -4.370145E-03   1.357215E-03   0.0            0.0            0.0                           \r\n                          -8.919485E-06  -9.545519E-05  -1.488166E-06   0.0            0.0            0.0                           \r\n0          116      G      1.367298E-03   4.316790E-03  -3.623534E-04   0.0            0.0            0.0                           \r\n                          -9.188647E-07   9.427046E-05  -8.794363E-06   0.0            0.0            0.0                           \r\n0          117      G     -4.065265E-04  -4.370145E-03   1.357215E-03   0.0            0.0            0.0                           \r\n                          -8.919485E-06  -9.545519E-05  -1.488166E-06   0.0            0.0            0.0                           \r\n0          119      G     -3.261043E-04  -4.251977E-03   1.356818E-03   0.0            0.0            0.0                           \r\n                          -8.889872E-06  -9.279903E-05  -2.971326E-07   0.0            0.0            0.0                           \r\n0          120      G      1.367298E-03   4.316790E-03  -3.623534E-04   0.0            0.0            0.0                           \r\n                          -9.188647E-07   9.427046E-05  -8.794363E-06   0.0            0.0            0.0                           \r\n0          121      G     -1.854983E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.155290E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.755462E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.736288E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.751542E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.727734E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.755462E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.736288E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.854983E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.155290E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.850833E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -5.143775E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  5.628710E+00,  1.528195E+03    (CYCLIC FREQUENCY =  2.432198E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G     -1.018097E-04   4.247332E-04  -4.343413E-05  -3.292585E-02   2.214832E-03   7.477322E-03                  \r\n                           2.826660E-06   2.277132E-05  -2.079208E-06  -1.202986E-03   1.436821E-04   1.722610E-04                  \r\n0            2      G     -1.018097E-04   4.247332E-04  -4.343413E-05  -3.292585E-02   2.214832E-03   7.477322E-03                  \r\n                           2.826660E-06   2.277132E-05  -2.079208E-06  -1.202986E-03   1.436821E-04   1.722610E-04                  \r\n0            3      G     -1.018097E-04   4.247332E-04  -4.343413E-05  -3.292585E-02   2.214832E-03   7.477322E-03                  \r\n                           2.826660E-06   2.277132E-05  -2.079208E-06  -1.202986E-03   1.436821E-04   1.722610E-04                  \r\n0            4      G     -6.256315E-02   1.216540E-01   1.937775E-02   9.709565E-02  -3.952357E-01  -1.343731E-01                  \r\n                          -1.674480E-03   3.501063E-03   5.746639E-04  -7.382379E-04  -4.539922E-03  -2.862482E-03                  \r\n0            5      G     -2.053673E-02   5.882989E-02   3.702537E-04  -4.466572E-02  -6.395298E-02  -9.083071E-02                  \r\n                          -5.884076E-04   1.877821E-03   7.377230E-06  -1.292084E-03  -1.665999E-03  -2.724903E-03                  \r\n0            6      G     -4.030846E-03  -4.686518E-03   2.328257E-03   1.412526E-02  -7.287230E-02  -6.610905E-02                  \r\n                          -9.047514E-05  -2.728453E-05   3.035350E-05   4.250629E-04  -2.459677E-03  -2.053711E-03                  \r\n0            7      G     -2.295455E-01   3.841754E-01   6.259675E-02   0.0            0.0           -1.835373E-01                  \r\n                          -4.124799E-03   8.447878E-03   1.359331E-03   0.0            0.0           -2.476521E-03                  \r\n0            8      G     -1.266214E-01   3.005605E-01  -3.176851E-05  -2.923055E-01   1.732962E-01  -1.671056E-01                  \r\n                          -2.409208E-03   7.097306E-03   8.704863E-06  -5.836084E-03   3.977409E-03  -2.946310E-03                  \r\n0            9      G     -2.753638E-02   1.850379E-01  -3.747325E-02  -2.015022E-01   8.636474E-02  -1.983676E-01                  \r\n                          -4.684162E-04   4.802148E-03  -9.872995E-04  -4.217765E-03   5.732880E-04  -4.768897E-03                  \r\n0           10      G     -7.059153E-01   9.926541E-01   1.960217E-01   0.0            0.0           -7.734045E-02                  \r\n                           1.218242E-02  -2.330428E-04  -1.069748E-03   0.0            0.0            3.647717E-03                  \r\n0           11      G     -6.647992E-01   9.994704E-01   1.847687E-02  -8.593702E-01   2.981928E-01  -1.130658E-01                  \r\n                           1.017330E-02   5.357034E-04  -1.106341E-04   3.560540E-02  -1.593664E-02   2.146895E-03                  \r\n0           12      G     -4.284483E-01   8.523811E-01  -1.064264E-01   0.0            0.0           -2.892277E-01                  \r\n                           7.323977E-03   2.104881E-03  -2.180404E-04   0.0            0.0            2.587821E-03                  \r\n0          101      G     -4.537606E-05  -2.854849E-04  -6.839210E-05   0.0            0.0            0.0                           \r\n                          -2.161606E-06  -1.502277E-05   1.930185E-06   0.0            0.0            0.0                           \r\n0          103      G     -2.237147E-05  -2.706566E-04  -6.468590E-05   0.0            0.0            0.0                           \r\n                          -1.871275E-06  -1.415633E-05   1.899525E-06   0.0            0.0            0.0                           \r\n0          104      G     -2.266518E-05  -2.705301E-04  -6.459546E-05   0.0            0.0            0.0                           \r\n                          -1.885145E-06  -1.415393E-05   1.900648E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  5.628710E+00,  1.528195E+03    (CYCLIC FREQUENCY =  2.432198E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          1\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -2.237147E-05  -2.706566E-04  -6.468590E-05   0.0            0.0            0.0                           \r\n                          -1.871275E-06  -1.415633E-05   1.899525E-06   0.0            0.0            0.0                           \r\n0          107      G     -4.537606E-05  -2.854849E-04  -6.839210E-05   0.0            0.0            0.0                           \r\n                          -2.161606E-06  -1.502277E-05   1.930185E-06   0.0            0.0            0.0                           \r\n0          108      G     -4.586363E-05  -2.852249E-04  -6.822817E-05   0.0            0.0            0.0                           \r\n                          -2.185726E-06  -1.501585E-05   1.932426E-06   0.0            0.0            0.0                           \r\n0          113      G     -4.661123E-05  -4.180504E-04  -9.629402E-05   0.0            0.0            0.0                           \r\n                          -2.012371E-06  -2.242171E-05   2.890640E-06   0.0            0.0            0.0                           \r\n0          115      G     -4.128493E-05  -4.300911E-04  -1.054119E-04   0.0            0.0            0.0                           \r\n                          -2.190426E-06  -2.305462E-05   2.724515E-06   0.0            0.0            0.0                           \r\n0          116      G     -1.018097E-04   4.247332E-04  -4.343413E-05   0.0            0.0            0.0                           \r\n                           2.826660E-06   2.277132E-05  -2.079208E-06   0.0            0.0            0.0                           \r\n0          117      G     -4.128493E-05  -4.300911E-04  -1.054119E-04   0.0            0.0            0.0                           \r\n                          -2.190426E-06  -2.305462E-05   2.724515E-06   0.0            0.0            0.0                           \r\n0          119      G     -4.661123E-05  -4.180504E-04  -9.629402E-05   0.0            0.0            0.0                           \r\n                          -2.012371E-06  -2.242171E-05   2.890640E-06   0.0            0.0            0.0                           \r\n0          120      G     -1.018097E-04   4.247332E-04  -4.343413E-05   0.0            0.0            0.0                           \r\n                           2.826660E-06   2.277132E-05  -2.079208E-06   0.0            0.0            0.0                           \r\n0          121      G     -2.736071E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.156832E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.689903E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.152446E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.686146E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.150403E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.689903E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -2.152446E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -2.736071E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.156832E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -2.730248E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.154315E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  7.917686E+01,  2.795975E+03    (CYCLIC FREQUENCY =  4.449932E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      2.263513E-05   6.312198E-04  -5.856610E-05  -4.157922E-02   3.329055E-03   7.095240E-03                  \r\n                           7.383345E-06   1.613407E-06   1.843068E-08   6.170346E-04   4.884570E-05  -2.199811E-04                  \r\n0            2      G      2.263513E-05   6.312198E-04  -5.856610E-05  -4.157922E-02   3.329055E-03   7.095240E-03                  \r\n                           7.383345E-06   1.613407E-06   1.843068E-08   6.170346E-04   4.884570E-05  -2.199811E-04                  \r\n0            3      G      2.263513E-05   6.312198E-04  -5.856610E-05  -4.157922E-02   3.329055E-03   7.095240E-03                  \r\n                           7.383345E-06   1.613407E-06   1.843068E-08   6.170346E-04   4.884570E-05  -2.199811E-04                  \r\n0            4      G     -6.443921E-02   1.309158E-01   2.123111E-02   1.802305E-02  -2.559904E-01  -1.187374E-01                  \r\n                           1.651581E-03  -3.000598E-03  -4.613638E-04  -5.180655E-03   1.503587E-02   4.042717E-03                  \r\n0            5      G     -2.210472E-02   6.753416E-02   4.220393E-04  -4.960887E-02  -6.001832E-02  -1.011086E-01                  \r\n                           5.092779E-04  -1.287426E-03  -1.854810E-05   1.121469E-03   1.543042E-03   2.191993E-03                  \r\n0            6      G     -3.713558E-03  -2.923589E-03   1.642073E-03   1.635956E-02  -8.580779E-02  -7.412942E-02                  \r\n                           1.180309E-04   2.233894E-04  -8.535058E-05  -3.684768E-04   1.470493E-03   1.482664E-03                  \r\n0            7      G     -1.915234E-01   3.480352E-01   5.628276E-02   0.0            0.0           -1.354988E-01                  \r\n                           7.858723E-03  -1.136134E-02  -1.862544E-03   0.0            0.0            7.058956E-03                  \r\n0            8      G     -9.822761E-02   2.722033E-01   7.015105E-04  -2.814807E-01   2.357974E-01  -1.359882E-01                  \r\n                           3.628107E-03  -7.828347E-03  -2.129851E-05   1.080194E-02  -9.040330E-03   5.631641E-03                  \r\n0            9      G     -1.952851E-02   1.794951E-01  -3.701254E-02  -1.617344E-01   2.992747E-02  -1.973838E-01                  \r\n                           7.754344E-04  -4.520357E-03   9.207861E-04   5.391661E-03  -3.236338E-03   5.816612E-03                  \r\n0           10      G      3.849773E-01  -7.987951E-03  -3.843871E-02   0.0            0.0           -2.882781E-02                  \r\n                           2.946501E-02  -3.103623E-02  -6.507428E-03   0.0            0.0            1.328532E-02                  \r\n0           11      G      4.808004E-01  -5.594449E-02  -5.513779E-03   1.029406E+00  -3.417169E-01   6.240970E-02                  \r\n                           1.762182E-02  -2.654756E-02  -5.285349E-04   5.403433E-02  -2.822346E-02   5.575905E-03                  \r\n0           12      G      3.200461E-01   3.377211E-02  -2.080340E-03   0.0            0.0            1.498519E-01                  \r\n                           1.222862E-02  -2.311842E-02   2.876636E-03   0.0            0.0            7.216845E-03                  \r\n0          101      G     -6.117946E-05  -4.179782E-04   1.554848E-05   0.0            0.0            0.0                           \r\n                           4.581034E-08  -8.280745E-07   5.003523E-06   0.0            0.0            0.0                           \r\n0          103      G     -4.693392E-05  -3.944175E-04   1.616232E-05   0.0            0.0            0.0                           \r\n                          -7.451567E-07  -7.048793E-07   4.807065E-06   0.0            0.0            0.0                           \r\n0          104      G     -4.733434E-05  -3.943205E-04   1.621714E-05   0.0            0.0            0.0                           \r\n                          -7.442973E-07  -7.085264E-07   4.803966E-06   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   107\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  7.917686E+01,  2.795975E+03    (CYCLIC FREQUENCY =  4.449932E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          2\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.693392E-05  -3.944175E-04   1.616232E-05   0.0            0.0            0.0                           \r\n                          -7.451567E-07  -7.048793E-07   4.807065E-06   0.0            0.0            0.0                           \r\n0          107      G     -6.117946E-05  -4.179782E-04   1.554848E-05   0.0            0.0            0.0                           \r\n                           4.581034E-08  -8.280745E-07   5.003523E-06   0.0            0.0            0.0                           \r\n0          108      G     -6.187013E-05  -4.177349E-04   1.565347E-05   0.0            0.0            0.0                           \r\n                           4.632898E-08  -8.338861E-07   4.998036E-06   0.0            0.0            0.0                           \r\n0          113      G     -5.835517E-05  -6.214005E-04   2.596751E-05   0.0            0.0            0.0                           \r\n                           2.317439E-07  -1.599597E-06   7.186281E-06   0.0            0.0            0.0                           \r\n0          115      G     -6.016266E-05  -6.391267E-04   1.914947E-05   0.0            0.0            0.0                           \r\n                          -1.832717E-07  -1.628407E-06   7.457305E-06   0.0            0.0            0.0                           \r\n0          116      G      2.263513E-05   6.312198E-04  -5.856610E-05   0.0            0.0            0.0                           \r\n                           7.383345E-06   1.613407E-06   1.843068E-08   0.0            0.0            0.0                           \r\n0          117      G     -6.016266E-05  -6.391267E-04   1.914947E-05   0.0            0.0            0.0                           \r\n                          -1.832717E-07  -1.628407E-06   7.457305E-06   0.0            0.0            0.0                           \r\n0          119      G     -5.835517E-05  -6.214005E-04   2.596751E-05   0.0            0.0            0.0                           \r\n                           2.317439E-07  -1.599597E-06   7.186281E-06   0.0            0.0            0.0                           \r\n0          120      G      2.263513E-05   6.312198E-04  -5.856610E-05   0.0            0.0            0.0                           \r\n                           7.383345E-06   1.613407E-06   1.843068E-08   0.0            0.0            0.0                           \r\n0          121      G     -3.371288E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.584622E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -5.454621E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.921859E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -5.448914E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.920547E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -5.454621E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.921859E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -3.371288E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.584622E-07   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -3.363816E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                           1.580653E-07   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   108\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  1.975942E+01,  4.963121E+03    (CYCLIC FREQUENCY =  7.899052E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      5.352428E-05   1.702964E-04  -1.689884E-05  -2.504271E-03   9.303995E-04   5.984782E-05                  \r\n                           1.972594E-05   1.029080E-04  -9.055317E-06  -4.575674E-03   8.000415E-04   4.666054E-04                  \r\n0            2      G      5.352428E-05   1.702964E-04  -1.689884E-05  -2.504271E-03   9.303995E-04   5.984782E-05                  \r\n                           1.972594E-05   1.029080E-04  -9.055317E-06  -4.575674E-03   8.000415E-04   4.666054E-04                  \r\n0            3      G      5.352428E-05   1.702964E-04  -1.689884E-05  -2.504271E-03   9.303995E-04   5.984782E-05                  \r\n                           1.972594E-05   1.029080E-04  -9.055317E-06  -4.575674E-03   8.000415E-04   4.666054E-04                  \r\n0            4      G     -6.479776E-04   4.011979E-03   9.980088E-04  -3.251060E-02   5.369742E-02   4.241426E-03                  \r\n                          -5.424946E-03   1.176984E-02   1.941119E-03  -7.555760E-03  -5.577368E-03  -8.260620E-03                  \r\n0            5      G     -8.762070E-04   4.491004E-03  -3.228379E-04  -4.813417E-03   4.628228E-04  -2.623706E-03                  \r\n                          -1.932547E-03   6.555478E-03   3.579780E-05  -3.667007E-03  -6.382784E-03  -9.369742E-03                  \r\n0            6      G     -4.645903E-05   1.225333E-03  -3.767640E-05  -1.043009E-04  -4.106200E-03  -3.765672E-03                  \r\n                          -2.462698E-04   1.326968E-04   1.100797E-05   1.403568E-03  -9.336448E-03  -7.261024E-03                  \r\n0            7      G      2.119472E-02  -1.500544E-03  -2.017863E-04   0.0            0.0            2.855095E-02                  \r\n                          -9.676791E-03   2.347363E-02   3.717078E-03   0.0            0.0           -3.691749E-03                  \r\n0            8      G     -9.418219E-03   2.587795E-02  -9.992456E-04   5.798145E-02  -1.199826E-01   1.016596E-02                  \r\n                          -5.756288E-03   2.046677E-02   7.463650E-05  -1.485400E-02   1.086388E-02  -6.480071E-03                  \r\n0            9      G     -5.764638E-03   2.143343E-02  -3.920794E-03  -1.022933E-02  -4.299667E-02  -7.125692E-03                  \r\n                          -5.575909E-04   1.426567E-02  -2.968146E-03  -1.288233E-02   5.775975E-03  -1.201791E-02                  \r\n0           10      G      3.314095E-01  -9.479216E-02  -3.329609E-02   0.0            0.0            4.128002E-01                  \r\n                           1.250599E-02   1.420741E-02   8.438986E-04   0.0            0.0           -4.629829E-03                  \r\n0           11      G     -5.212747E-02   7.351504E-02  -2.120813E-04   1.039896E+00  -6.818864E-01   1.151815E-01                  \r\n                           1.777303E-02   1.194893E-02   7.783237E-07   5.175777E-02  -2.139505E-02  -3.612297E-03                  \r\n0           12      G     -3.402032E-02   6.271244E-02  -7.824332E-03   0.0            0.0            6.735746E-03                  \r\n                           1.791462E-02   1.166907E-02  -1.401560E-03   0.0            0.0           -4.032446E-03                  \r\n0          101      G     -1.663832E-05  -1.106860E-04   3.651358E-05   0.0            0.0            0.0                           \r\n                          -9.469019E-06  -6.779487E-05   1.345923E-05   0.0            0.0            0.0                           \r\n0          103      G     -1.811554E-05  -1.038382E-04   3.554886E-05   0.0            0.0            0.0                           \r\n                          -8.923073E-06  -6.383513E-05   1.312466E-05   0.0            0.0            0.0                           \r\n0          104      G     -1.820270E-05  -1.038356E-04   3.554237E-05   0.0            0.0            0.0                           \r\n                          -8.984629E-06  -6.382834E-05   1.312693E-05   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   109\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  1.975942E+01,  4.963121E+03    (CYCLIC FREQUENCY =  7.899052E+02HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          3\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -1.811554E-05  -1.038382E-04   3.554886E-05   0.0            0.0            0.0                           \r\n                          -8.923073E-06  -6.383513E-05   1.312466E-05   0.0            0.0            0.0                           \r\n0          107      G     -1.663832E-05  -1.106860E-04   3.651358E-05   0.0            0.0            0.0                           \r\n                          -9.469019E-06  -6.779487E-05   1.345923E-05   0.0            0.0            0.0                           \r\n0          108      G     -1.679526E-05  -1.106671E-04   3.650299E-05   0.0            0.0            0.0                           \r\n                          -9.576484E-06  -6.776967E-05   1.346433E-05   0.0            0.0            0.0                           \r\n0          113      G     -1.534953E-05  -1.677925E-04   5.302241E-05   0.0            0.0            0.0                           \r\n                          -8.559688E-06  -1.013402E-04   1.982972E-05   0.0            0.0            0.0                           \r\n0          115      G     -1.849830E-05  -1.723375E-04   5.318692E-05   0.0            0.0            0.0                           \r\n                          -9.754844E-06  -1.041870E-04   1.934068E-05   0.0            0.0            0.0                           \r\n0          116      G      5.352428E-05   1.702964E-04  -1.689884E-05   0.0            0.0            0.0                           \r\n                           1.972594E-05   1.029080E-04  -9.055317E-06   0.0            0.0            0.0                           \r\n0          117      G     -1.849830E-05  -1.723375E-04   5.318692E-05   0.0            0.0            0.0                           \r\n                          -9.754844E-06  -1.041870E-04   1.934068E-05   0.0            0.0            0.0                           \r\n0          119      G     -1.534953E-05  -1.677925E-04   5.302241E-05   0.0            0.0            0.0                           \r\n                          -8.559688E-06  -1.013402E-04   1.982972E-05   0.0            0.0            0.0                           \r\n0          120      G      5.352428E-05   1.702964E-04  -1.689884E-05   0.0            0.0            0.0                           \r\n                           1.972594E-05   1.029080E-04  -9.055317E-06   0.0            0.0            0.0                           \r\n0          121      G     -8.659486E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.908447E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -2.001610E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.025348E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -2.000221E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.024417E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -2.001610E-05   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.025348E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -8.659486E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.908447E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -8.644724E-06   0.0            0.0            0.0            0.0            0.0                           \r\n                          -4.897558E-06   0.0            0.0            0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   110\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  3.998241E+02,  8.932469E+03    (CYCLIC FREQUENCY =  1.421646E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0            1      G      1.365111E-03   4.358315E-03  -3.661165E-04  -1.314605E-01   4.095897E-02  -1.031485E-03                  \r\n                          -1.649977E-06   1.281838E-04  -1.193204E-05  -8.925247E-03   7.127714E-04   1.586795E-03                  \r\n0            2      G      1.365111E-03   4.358315E-03  -3.661165E-04  -1.314605E-01   4.095897E-02  -1.031485E-03                  \r\n                          -1.649977E-06   1.281838E-04  -1.193204E-05  -8.925247E-03   7.127714E-04   1.586795E-03                  \r\n0            3      G      1.365111E-03   4.358315E-03  -3.661165E-04  -1.314605E-01   4.095897E-02  -1.031485E-03                  \r\n                          -1.649977E-06   1.281838E-04  -1.193204E-05  -8.925247E-03   7.127714E-04   1.586795E-03                  \r\n0            4      G     -7.818341E-02   2.151084E-01   3.735330E-02  -6.721908E-01   9.174950E-01  -7.657735E-03                  \r\n                          -1.433678E-02   2.880315E-02   4.635990E-03   8.573849E-03  -6.521210E-02  -2.741749E-02                  \r\n0            5      G     -3.244489E-02   1.475059E-01   6.596536E-04  -2.647390E-02  -1.609563E-01  -1.885449E-01                  \r\n                          -4.841098E-03   1.458402E-02   1.142702E-04  -1.049977E-02  -1.390128E-02  -2.217340E-02                  \r\n0            6      G      5.041984E-04   2.416312E-02  -7.520058E-03   2.331174E-02  -2.598340E-01  -1.654555E-01                  \r\n                          -8.353427E-04  -7.638448E-04   3.838510E-04   3.579066E-03  -1.870719E-02  -1.616990E-02                  \r\n0            7      G      2.494082E-01  -2.376805E-02  -9.781921E-03   0.0            0.0            4.113609E-01                  \r\n                          -4.523455E-02   7.904954E-02   1.279065E-02   0.0            0.0           -3.342922E-02                  \r\n0            8      G      8.621669E-02   1.206682E-01   2.856317E-03   2.750051E-01  -2.569937E-01   2.094020E-01                  \r\n                          -2.236659E-02   6.032285E-02   1.931226E-04  -6.627210E-02   5.673576E-02  -3.192042E-02                  \r\n0            9      G      6.130328E-02   1.436248E-01  -3.221141E-02  -1.033507E-01   2.255693E-01   8.896225E-02                  \r\n                          -4.202678E-03   3.897984E-02  -8.043548E-03  -3.738622E-02   1.281131E-02  -4.316710E-02                  \r\n0           10      G     -6.496233E-02   1.745358E-01   4.197358E-02   0.0            0.0           -2.641065E-01                  \r\n                           9.322641E-03   5.422406E-02   5.339148E-03   0.0            0.0           -3.712163E-02                  \r\n0           11      G      1.223965E-02   1.449100E-01   4.809142E-03   1.544950E-01  -2.599258E-01  -4.230817E-01                  \r\n                           5.384625E-02   3.489849E-02  -1.800907E-05   6.591845E-02   9.198822E-04  -3.473559E-03                  \r\n0           12      G      4.202156E-01  -8.321908E-02   6.128881E-03   0.0            0.0           -5.986328E-01                  \r\n                           3.741018E-02   4.337028E-02  -5.056111E-03   0.0            0.0            9.855993E-03                  \r\n0          101      G     -3.834144E-04  -2.858521E-03   9.300897E-04   0.0            0.0            0.0                           \r\n                          -1.253501E-05  -8.516716E-05  -1.057505E-06   0.0            0.0            0.0                           \r\n0          103      G     -4.193535E-04  -2.686803E-03   9.014116E-04   0.0            0.0            0.0                           \r\n                          -8.924139E-06  -8.044588E-05  -7.683462E-07   0.0            0.0            0.0                           \r\n0          104      G     -4.218430E-04  -2.686810E-03   9.012837E-04   0.0            0.0            0.0                           \r\n                          -9.007436E-06  -8.042310E-05  -7.542792E-07   0.0            0.0            0.0                           \r\n1     MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                               /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   111\r\n      NASTRAN TEST PROBLEM NO. T09-05-1A                                                                                            \r\n0     POINT =9        MACH = 180.     KFREQ= 1.       RHO =  .1774919                                                               \r\n      COMPLEX EIGENVALUE =  3.998241E+02,  8.932469E+03    (CYCLIC FREQUENCY =  1.421646E+03HZ)\r\n                                       C O M P L E X   E I G E N V E C T O R   NO.          4\r\n                                                          (REAL/IMAGINARY)\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n0          105      G     -4.193535E-04  -2.686803E-03   9.014116E-04   0.0            0.0            0.0                           \r\n                          -8.924139E-06  -8.044588E-05  -7.683462E-07   0.0            0.0            0.0                           \r\n0          107      G     -3.834144E-04  -2.858521E-03   9.300897E-04   0.0            0.0            0.0                           \r\n                          -1.253501E-05  -8.516716E-05  -1.057505E-06   0.0            0.0            0.0                           \r\n0          108      G     -3.878132E-04  -2.857923E-03   9.299043E-04   0.0            0.0            0.0                           \r\n                          -1.267754E-05  -8.511228E-05  -1.031011E-06   0.0            0.0            0.0                           \r\n0          113      G     -3.299690E-04  -4.292847E-03   1.354960E-03   0.0            0.0            0.0                           \r\n                          -1.207536E-05  -1.261815E-04  -7.920821E-07   0.0            0.0            0.0                           \r\n0          115      G     -4.103043E-04  -4.412197E-03   1.354752E-03   0.0            0.0            0.0                           \r\n                          -1.209316E-05  -1.297959E-04  -2.429583E-06   0.0            0.0            0.0                           \r\n0          116      G      1.365111E-03   4.358315E-03  -3.661165E-04   0.0            0.0            0.0                           \r\n                          -1.649977E-06   1.281838E-04  -1.193204E-05   0.0            0.0            0.0                           \r\n0          117      G     -4.103043E-04  -4.412197E-03   1.354752E-03   0.0            0.0            0.0                           \r\n                          -1.209316E-05  -1.297959E-04  -2.429583E-06   0.0            0.0            0.0                           \r\n0          119      G     -3.299690E-04  -4.292847E-03   1.354960E-03   0.0            0.0            0.0                           \r\n                          -1.207536E-05  -1.261815E-04  -7.920821E-07   0.0            0.0            0.0                           \r\n0          120      G      1.365111E-03   4.358315E-03  -3.661165E-04   0.0            0.0            0.0                           \r\n                          -1.649977E-06   1.281838E-04  -1.193204E-05   0.0            0.0            0.0                           \r\n0          121      G     -1.877502E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.005012E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          123      G     -4.787199E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.046623E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          124      G     -4.783241E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.045458E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          125      G     -4.787199E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -1.046623E-05   0.0            0.0            0.0            0.0            0.0                           \r\n0          127      G     -1.877502E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -7.005012E-06   0.0            0.0            0.0            0.0            0.0                           \r\n0          128      G     -1.873299E-04   0.0            0.0            0.0            0.0            0.0                           \r\n                          -6.989298E-06   0.0            0.0            0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                            \r\n DATE:  5/18/95\r\n END TIME: 10:39:32\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t09061a.out",
    "content": "     NASTRAN SYSTEM(93)=1, FILES=PLT2                                                \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T09061A,NASTRAN                                                           \r\n     APP   AERO                                                                      \r\n     SOL   9                                                                         \r\n     DIAG  14                                                                        \r\n     TIME  1000                                                                      \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                      \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T09-06-1A                                   \r\n                  3      LABEL    = 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                             \r\n                  4      $                                                                               \r\n                  5      SPC      = 1                                                                    \r\n                  6      METHOD   = 1                                                                    \r\n                  7      FMETHOD  = 1                                                                    \r\n                  8      $                                                                               \r\n                  9      OUTPUT(XYOUT)                                                                   \r\n                 10      $                                                                               \r\n                 11      PLOTTER NASTPLT D,0                                                             \r\n                 12      XPAPER = 8.5                                                                    \r\n                 13      YPAPER = 11.0                                                                   \r\n                 14      YAXIS  = YES                                                                    \r\n                 15      XINTERCEPT = 7046.0  $ OPERATING VELOCITY                                       \r\n                 16      XTAXIS =  YES                                                                   \r\n                 17      XBAXIS =  YES                                                                   \r\n                 18      CURVELINESYMBOL = 6                                                             \r\n                 19      XDIVISIONS   = 10                                                               \r\n                 20      YTDIVISIONS  = 10                                                               \r\n                 21      YBDIVISIONS  = 10                                                               \r\n                 22      YTGRID LINES = YES                                                              \r\n                 23      YBGRID LINES = YES                                                              \r\n                 24      XTGRID LINES = YES                                                              \r\n                 25      XBGRID LINES = YES                                                              \r\n                 26      XTITLE  =     VELOCITY VSBAR , IN/SEC....REF VSBAR = 7046 IN/SEC, CASE 3        \r\n                 27      YTTITLE =          DAMPING G                                                    \r\n                 28      YBTITLE =     FREQUENCY F, HZ                                                   \r\n                 29      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=0.0                                    \r\n                 30      XYPLOT,XYPRINT VG/ 1(G,F), 2(G,F), 3(G,F), 4(G,F), 5(G,F), 6(G,F)               \r\n                 31      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=36.0                                   \r\n                 32      XYPLOT,XYPRINT VG/ 7(G,F), 8(G,F), 9(G,F),10(G,F),11(G,F),12(G,F)               \r\n                 33      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=72.0                                   \r\n                 34      XYPLOT,XYPRINT VG/13(G,F),14(G,F),15(G,F),16(G,F),17(G,F),18(G,F)               \r\n                 35      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=108.0                                  \r\n                 36      XYPLOT,XYPRINT VG/19(G,F),20(G,F),21(G,F),22(G,F),23(G,F),24(G,F)               \r\n                 37      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=144.0                                  \r\n                 38      XYPLOT,XYPRINT VG/25(G,F),26(G,F),27(G,F),28(G,F),29(G,F),30(G,F)               \r\n                 39      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=180.0                                  \r\n                 40      XYPLOT,XYPRINT VG/31(G,F),32(G,F),33(G,F),34(G,F),35(G,F),36(G,F)               \r\n                 41      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-144.0                                 \r\n                 42      XYPLOT,XYPRINT VG/37(G,F),38(G,F),39(G,F),40(G,F),41(G,F),42(G,F)               \r\n                 43      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-108.0                                 \r\n                 44      XYPLOT,XYPRINT VG/43(G,F),44(G,F),45(G,F),46(G,F),47(G,F),48(G,F)               \r\n                 45      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-72.0                                  \r\n                 46      XYPLOT,XYPRINT VG/49(G,F),50(G,F),51(G,F),52(G,F),53(G,F),54(G,F)               \r\n                 47      TCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-36.0                                  \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                 48      XYPLOT,XYPRINT VG/55(G,F),56(G,F),57(G,F),58(G,F),59(G,F),60(G,F)               \r\n                 49      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   650, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        AERO    0       1.0     2.905   9.763E-8                                        \r\n                    2-        CORD2R  1               0.0     0.0     0.0     -.0277  -.9996  0.0     +C2R1   \r\n                    3-        +C2R1   .9996   -.0277  0.0                                                     \r\n                    4-        CQUAD2  1       1       1       2       9       8                               \r\n                    5-        CQUAD2  2       2       2       3       10      9                               \r\n                    6-        CQUAD2  3       3       3       4       11      10                              \r\n                    7-        CQUAD2  4       4       4       5       12      11                              \r\n                    8-        CQUAD2  5       5       5       6       13      12                              \r\n                    9-        CQUAD2  6       6       6       7       14      13                              \r\n                   10-        CQUAD2  7       7       8       9       16      15                              \r\n                   11-        CQUAD2  8       8       9       10      17      16                              \r\n                   12-        CQUAD2  9       9       10      11      18      17                              \r\n                   13-        CQUAD2  10      10      11      12      19      18                              \r\n                   14-        CQUAD2  11      11      12      13      20      19                              \r\n                   15-        CQUAD2  12      12      13      14      21      20                              \r\n                   16-        CQUAD2  13      13      15      16      23      22                              \r\n                   17-        CQUAD2  14      14      16      17      24      23                              \r\n                   18-        CQUAD2  15      15      17      18      25      24                              \r\n                   19-        CQUAD2  16      16      18      19      26      25                              \r\n                   20-        CQUAD2  17      17      19      20      27      26                              \r\n                   21-        CQUAD2  18      18      20      21      28      27                              \r\n                   22-        CQUAD2  19      19      22      23      30      29                              \r\n                   23-        CQUAD2  20      20      23      24      31      30                              \r\n                   24-        CQUAD2  21      21      24      25      32      31                              \r\n                   25-        CQUAD2  22      22      25      26      33      32                              \r\n                   26-        CQUAD2  23      23      26      27      34      33                              \r\n                   27-        CQUAD2  24      24      27      28      35      34                              \r\n                   28-        CQUAD2  25      25      29      30      37      36                              \r\n                   29-        CQUAD2  26      26      30      31      38      37                              \r\n                   30-        CQUAD2  27      27      31      32      39      38                              \r\n                   31-        CQUAD2  28      28      32      33      40      39                              \r\n                   32-        CQUAD2  29      29      33      34      41      40                              \r\n                   33-        CQUAD2  30      30      34      35      42      41                              \r\n                   34-        CQUAD2  31      31      36      37      44      43                              \r\n                   35-        CQUAD2  32      32      37      38      45      44                              \r\n                   36-        CQUAD2  33      33      38      39      46      45                              \r\n                   37-        CQUAD2  34      34      39      40      47      46                              \r\n                   38-        CQUAD2  35      35      40      41      48      47                              \r\n                   39-        CQUAD2  36      36      41      42      49      48                              \r\n                   40-        CQUAD2  37      37      43      44      51      50                              \r\n                   41-        CQUAD2  38      38      44      45      52      51                              \r\n                   42-        CQUAD2  39      39      45      46      53      52                              \r\n                   43-        CQUAD2  40      40      46      47      54      53                              \r\n                   44-        CQUAD2  41      41      47      48      55      54                              \r\n                   45-        CQUAD2  42      42      48      49      56      55                              \r\n                   46-        CQUAD2  43      43      50      51      58      57                              \r\n                   47-        CQUAD2  44      44      51      52      59      58                              \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        CQUAD2  45      45      52      53      60      59                              \r\n                   49-        CQUAD2  46      46      53      54      61      60                              \r\n                   50-        CQUAD2  47      47      54      55      62      61                              \r\n                   51-        CQUAD2  48      48      55      56      63      62                              \r\n                   52-        CQUAD2  49      49      57      58      65      64                              \r\n                   53-        CQUAD2  50      50      58      59      66      65                              \r\n                   54-        CQUAD2  51      51      59      60      67      66                              \r\n                   55-        CQUAD2  52      52      60      61      68      67                              \r\n                   56-        CQUAD2  53      53      61      62      69      68                              \r\n                   57-        CQUAD2  54      54      62      63      70      69                              \r\n                   58-        CQUAD2  55      55      64      65      72      71                              \r\n                   59-        CQUAD2  56      56      65      66      73      72                              \r\n                   60-        CQUAD2  57      57      66      67      74      73                              \r\n                   61-        CQUAD2  58      58      67      68      75      74                              \r\n                   62-        CQUAD2  59      59      68      69      76      75                              \r\n                   63-        CQUAD2  60      60      69      70      77      76                              \r\n                   64-        CQUAD2  61      61      71      72      79      78                              \r\n                   65-        CQUAD2  62      62      72      73      80      79                              \r\n                   66-        CQUAD2  63      63      73      74      81      80                              \r\n                   67-        CQUAD2  64      64      74      75      82      81                              \r\n                   68-        CQUAD2  65      65      75      76      83      82                              \r\n                   69-        CQUAD2  66      66      76      77      84      83                              \r\n                   70-        CQUAD2  67      67      78      79      86      85                              \r\n                   71-        CQUAD2  68      68      79      80      87      86                              \r\n                   72-        CQUAD2  69      69      80      81      88      87                              \r\n                   73-        CQUAD2  70      70      81      82      89      88                              \r\n                   74-        CQUAD2  71      71      82      83      90      89                              \r\n                   75-        CQUAD2  72      72      83      84      91      90                              \r\n                   76-        CQUAD2  73      73      85      86      93      92                              \r\n                   77-        CQUAD2  74      74      86      87      94      93                              \r\n                   78-        CQUAD2  75      75      87      88      95      94                              \r\n                   79-        CQUAD2  76      76      88      89      96      95                              \r\n                   80-        CQUAD2  77      77      89      90      97      96                              \r\n                   81-        CQUAD2  78      78      90      91      98      97                              \r\n                   82-        CQUAD2  79      79      92      93      100     99                              \r\n                   83-        CQUAD2  80      80      93      94      101     100                             \r\n                   84-        CQUAD2  81      81      94      95      102     101                             \r\n                   85-        CQUAD2  82      82      95      96      103     102                             \r\n                   86-        CQUAD2  83      83      96      97      104     103                             \r\n                   87-        CQUAD2  84      84      97      98      105     104                             \r\n                   88-        CQUAD2  85      85      99      100     107     106                             \r\n                   89-        CQUAD2  86      86      100     101     108     107                             \r\n                   90-        CQUAD2  87      87      101     102     109     108                             \r\n                   91-        CQUAD2  88      88      102     103     110     109                             \r\n                   92-        CQUAD2  89      89      103     104     111     110                             \r\n                   93-        CQUAD2  90      90      104     105     112     111                             \r\n                   94-        CQUAD2  91      91      106     107     114     113                             \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        CQUAD2  92      92      107     108     115     114                             \r\n                   96-        CQUAD2  93      93      108     109     116     115                             \r\n                   97-        CQUAD2  94      94      109     110     117     116                             \r\n                   98-        CQUAD2  95      95      110     111     118     117                             \r\n                   99-        CQUAD2  96      96      111     112     119     118                             \r\n                  100-        CQUAD2  97      97      113     114     121     120                             \r\n                  101-        CQUAD2  98      98      114     115     122     121                             \r\n                  102-        CQUAD2  99      99      115     116     123     122                             \r\n                  103-        CQUAD2  100     100     116     117     124     123                             \r\n                  104-        CQUAD2  101     101     117     118     125     124                             \r\n                  105-        CQUAD2  102     102     118     119     126     125                             \r\n                  106-        CQUAD2  103     103     120     121     128     127                             \r\n                  107-        CQUAD2  104     104     121     122     129     128                             \r\n                  108-        CQUAD2  105     105     122     123     130     129                             \r\n                  109-        CQUAD2  106     106     123     124     131     130                             \r\n                  110-        CQUAD2  107     107     124     125     132     131                             \r\n                  111-        CQUAD2  108     108     125     126     133     132                             \r\n                  112-        CQUAD2  109     109     127     128     135     134                             \r\n                  113-        CQUAD2  110     110     128     129     136     135                             \r\n                  114-        CQUAD2  121     121     131     132     144     143                             \r\n                  115-        CQUAD2  122     122     132     133     145     144                             \r\n                  116-        CQUAD2  123     123     138     139     147     146                             \r\n                  117-        CQUAD2  124     124     139     140     148     147                             \r\n                  118-        CQUAD2  125     125     140     141     149     148                             \r\n                  119-        CQUAD2  126     126     141     142     150     149                             \r\n                  120-        CQUAD2  127     127     146     147     152     151                             \r\n                  121-        CQUAD2  128     128     147     148     153     152                             \r\n                  122-        CQUAD2  129     129     148     149     154     153                             \r\n                  123-        CQUAD2  130     130     149     150     155     154                             \r\n                  124-        CTRIA2  111     111     129     138     136                                     \r\n                  125-        CTRIA2  112     112     129     137     138                                     \r\n                  126-        CTRIA2  113     113     129     130     137                                     \r\n                  127-        CTRIA2  114     114     137     130     140                                     \r\n                  128-        CTRIA2  115     115     138     137     139                                     \r\n                  129-        CTRIA2  116     116     139     137     140                                     \r\n                  130-        CTRIA2  117     117     140     130     141                                     \r\n                  131-        CTRIA2  118     118     141     130     142                                     \r\n                  132-        CTRIA2  119     119     130     131     142                                     \r\n                  133-        CTRIA2  120     120     142     131     143                                     \r\n                  134-        CYJOIN  1               155                                                     \r\n                  135-        CYJOIN  2               151                                                     \r\n                  136-        EIGR    1       INV     100.0   2000.0  10      8                       +E1     \r\n                  137-        +E1     MAX                                                                     \r\n                  138-        FLFACT  1       1.0                                                             \r\n                  139-        FLFACT  2       0.0     36.0    72.0    108.0   144.0   180.0   -144.0  +FL21   \r\n                  140-        +FL21   -108.0  -72.    -36.                                                    \r\n                  141-        FLFACT  3       .10     .20     .30     .6      .9      1.2     1.5             \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        FLUTTER 1       KE      1       2       3       L       6                       \r\n                  143-        GRDSET          1                               1                               \r\n                  144-        GRID*   1                               2.419817E+00    1.244079E+01    *GD    1\r\n                  145-        *GD    1-2.031032E+00                                                           \r\n                  146-        GRID*   2                               2.457173E+00    1.238143E+01    *GD    2\r\n                  147-        *GD    2-2.058249E+00                                                           \r\n                  148-        GRID*   3                               2.551602E+00    1.225216E+01    *GD    3\r\n                  149-        *GD    3-2.114527E+00                                                           \r\n                  150-        GRID*   4                               2.683628E+00    1.202870E+01    *GD    4\r\n                  151-        *GD    4-2.173213E+00                                                           \r\n                  152-        GRID*   5                               2.865225E+00    1.172653E+01    *GD    5\r\n                  153-        *GD    5-2.216011E+00                                                           \r\n                  154-        GRID*   6                               2.990463E+00    1.158475E+01    *GD    6\r\n                  155-        *GD    6-2.254392E+00                                                           \r\n                  156-        GRID*   7                               3.126074E+00    1.140011E+01    *GD    7\r\n                  157-        *GD    7-2.266630E+00                                                           \r\n                  158-        GRID*   8                               2.194761E+00    1.228047E+01    *GD    8\r\n                  159-        *GD    8-1.843213E+00                                                           \r\n                  160-        GRID*   9                               2.250464E+00    1.216055E+01    *GD    9\r\n                  161-        *GD    9-1.876635E+00                                                           \r\n                  162-        GRID*   10                              2.377542E+00    1.206568E+01    *GD   10\r\n                  163-        *GD   10-1.963854E+00                                                           \r\n                  164-        GRID*   11                              2.548495E+00    1.179959E+01    *GD   11\r\n                  165-        *GD   11-2.027197E+00                                                           \r\n                  166-        GRID*   12                              2.733165E+00    1.150046E+01    *GD   12\r\n                  167-        *GD   12-2.066389E+00                                                           \r\n                  168-        GRID*   13                              2.832836E+00    1.132142E+01    *GD   13\r\n                  169-        *GD   13-2.069136E+00                                                           \r\n                  170-        GRID*   14                              2.996484E+00    1.108674E+01    *GD   14\r\n                  171-        *GD   14-2.097482E+00                                                           \r\n                  172-        GRID*   15                              1.964924E+00    1.211923E+01    *GD   15\r\n                  173-        *GD   15-1.666834E+00                                                           \r\n                  174-        GRID*   16                              2.043783E+00    1.199233E+01    *GD   16\r\n                  175-        *GD   16-1.720535E+00                                                           \r\n                  176-        GRID*   17                              2.109893E+00    1.187122E+01    *GD   17\r\n                  177-        *GD   17-1.744548E+00                                                           \r\n                  178-        GRID*   18                              2.348317E+00    1.154853E+01    *GD   18\r\n                  179-        *GD   18-1.835006E+00                                                           \r\n                  180-        GRID*   19                              2.540135E+00    1.125291E+01    *GD   19\r\n                  181-        *GD   19-1.870254E+00                                                           \r\n                  182-        GRID*   20                              2.675576E+00    1.106813E+01    *GD   20\r\n                  183-        *GD   20-1.882862E+00                                                           \r\n                  184-        GRID*   21                              2.839677E+00    1.085337E+01    *GD   21\r\n                  185-        *GD   21-1.909663E+00                                                           \r\n                  186-        GRID*   22                              1.631763E+00    1.188205E+01    *GD   22\r\n                  187-        *GD   22-1.396830E+00                                                           \r\n                  188-        GRID*   23                              1.673820E+00    1.179605E+01    *GD   23\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        *GD   23-1.420859E+00                                                           \r\n                  190-        GRID*   24                              1.815764E+00    1.160683E+01    *GD   24\r\n                  191-        *GD   24-1.491647E+00                                                           \r\n                  192-        GRID*   25                              2.063309E+00    1.124282E+01    *GD   25\r\n                  193-        *GD   25-1.576361E+00                                                           \r\n                  194-        GRID*   26                              2.302190E+00    1.087758E+01    *GD   26\r\n                  195-        *GD   26-1.640171E+00                                                           \r\n                  196-        GRID*   27                              2.437845E+00    1.068192E+01    *GD   27\r\n                  197-        *GD   27-1.643727E+00                                                           \r\n                  198-        GRID*   28                              2.632743E+00    1.045467E+01    *GD   28\r\n                  199-        *GD   28-1.652845E+00                                                           \r\n                  200-        GRID*   29                              1.311218E+00    1.164496E+01    *GD   29\r\n                  201-        *GD   29-1.141120E+00                                                           \r\n                  202-        GRID*   30                              1.360893E+00    1.154351E+01    *GD   30\r\n                  203-        *GD   30-1.161242E+00                                                           \r\n                  204-        GRID*   31                              1.501914E+00    1.131251E+01    *GD   31\r\n                  205-        *GD   31-1.229293E+00                                                           \r\n                  206-        GRID*   32                              1.786772E+00    1.089894E+01    *GD   32\r\n                  207-        *GD   32-1.340499E+00                                                           \r\n                  208-        GRID*   33                              2.047144E+00    1.055134E+01    *GD   33\r\n                  209-        *GD   33-1.383823E+00                                                           \r\n                  210-        GRID*   34                              2.220435E+00    1.030633E+01    *GD   34\r\n                  211-        *GD   34-1.413691E+00                                                           \r\n                  212-        GRID*   35                              2.465178E+00    1.012088E+01    *GD   35\r\n                  213-        *GD   35-1.453387E+00                                                           \r\n                  214-        GRID*   36                              9.178853E-01    1.134436E+01    *GD   36\r\n                  215-        *GD   36-8.344505E-01                                                           \r\n                  216-        GRID*   37                              9.881784E-01    1.123093E+01    *GD   37\r\n                  217-        *GD   37-8.854066E-01                                                           \r\n                  218-        GRID*   38                              1.129425E+00    1.096814E+01    *GD   38\r\n                  219-        *GD   38-9.357375E-01                                                           \r\n                  220-        GRID*   39                              1.453193E+00    1.050240E+01    *GD   39\r\n                  221-        *GD   39-1.043262E+00                                                           \r\n                  222-        GRID*   40                              1.781501E+00    1.010489E+01    *GD   40\r\n                  223-        *GD   40-1.113802E+00                                                           \r\n                  224-        GRID*   41                              1.955276E+00    9.860262E+00    *GD   41\r\n                  225-        *GD   41-1.142711E+00                                                           \r\n                  226-        GRID*   42                              2.199200E+00    9.625038E+00    *GD   42\r\n                  227-        *GD   42-1.183993E+00                                                           \r\n                  228-        GRID*   43                              4.878750E-01    1.099476E+01    *GD   43\r\n                  229-        *GD   43-5.068682E-01                                                           \r\n                  230-        GRID*   44                              5.593370E-01    1.085660E+01    *GD   44\r\n                  231-        *GD   44-5.470380E-01                                                           \r\n                  232-        GRID*   45                              7.476242E-01    1.062701E+01    *GD   45\r\n                  233-        *GD   45-6.576909E-01                                                           \r\n                  234-        GRID*   46                              1.137788E+00    1.008176E+01    *GD   46\r\n                  235-        *GD   46-8.041450E-01                                                           \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        GRID*   47                              1.466719E+00    9.623438E+00    *GD   47\r\n                  237-        *GD   47-8.569880E-01                                                           \r\n                  238-        GRID*   48                              1.670425E+00    9.369388E+00    *GD   48\r\n                  239-        *GD   48-8.965883E-01                                                           \r\n                  240-        GRID*   49                              1.905910E+00    9.134694E+00    *GD   49\r\n                  241-        *GD   49-9.252617E-01                                                           \r\n                  242-        GRID*   50                              -1.396976E-02   1.059563E+01    *GD   50\r\n                  243-        *GD   50-1.396792E-01                                                           \r\n                  244-        GRID*   51                              7.075590E-02    1.044524E+01    *GD   51\r\n                  245-        *GD   51-2.047331E-01                                                           \r\n                  246-        GRID*   52                              2.875357E-01    1.012399E+01    *GD   52\r\n                  247-        *GD   52-3.129540E-01                                                           \r\n                  248-        GRID*   53                              7.360002E-01    9.570383E+00    *GD   53\r\n                  249-        *GD   53-5.007564E-01                                                           \r\n                  250-        GRID*   54                              1.103680E+00    9.064291E+00    *GD   54\r\n                  251-        *GD   54-5.847520E-01                                                           \r\n                  252-        GRID*   55                              1.308623E+00    8.811132E+00    *GD   55\r\n                  253-        *GD   55-6.212754E-01                                                           \r\n                  254-        GRID*   56                              1.586562E+00    8.499916E+00    *GD   56\r\n                  255-        *GD   56-6.411608E-01                                                           \r\n                  256-        GRID*   57                              -4.000301E-01   1.022161E+01    *GD   57\r\n                  257-        *GD   571.274626E-01                                                            \r\n                  258-        GRID*   58                              -3.109443E-01   1.007667E+01    *GD   58\r\n                  259-        *GD   586.474346E-02                                                            \r\n                  260-        GRID*   59                              -4.257504E-02   9.746097E+00    *GD   59\r\n                  261-        *GD   59-9.011447E-02                                                           \r\n                  262-        GRID*   60                              4.317413E-01    9.133682E+00    *GD   60\r\n                  263-        *GD   60-2.848848E-01                                                           \r\n                  264-        GRID*   61                              8.400738E-01    8.629044E+00    *GD   61\r\n                  265-        *GD   61-3.864452E-01                                                           \r\n                  266-        GRID*   62                              1.075119E+00    8.326850E+00    *GD   62\r\n                  267-        *GD   62-4.330833E-01                                                           \r\n                  268-        GRID*   63                              1.372284E+00    7.998097E+00    *GD   63\r\n                  269-        *GD   63-4.656390E-01                                                           \r\n                  270-        GRID*   64                              -8.876041E-01   9.747480E+00    *GD   64\r\n                  271-        *GD   644.344531E-01                                                            \r\n                  272-        GRID*   65                              -7.852193E-01   9.579490E+00    *GD   65\r\n                  273-        *GD   653.506024E-01                                                            \r\n                  274-        GRID*   66                              -4.903399E-01   9.209817E+00    *GD   66\r\n                  275-        *GD   661.900352E-01                                                            \r\n                  276-        GRID*   67                              8.824563E-02    8.577651E+00    *GD   67\r\n                  277-        *GD   67-4.811718E-02                                                           \r\n                  278-        GRID*   68                              5.764167E-01    8.055484E+00    *GD   68\r\n                  279-        *GD   68-1.965310E-01                                                           \r\n                  280-        GRID*   69                              8.417380E-01    7.754916E+00    *GD   69\r\n                  281-        *GD   69-2.687562E-01                                                           \r\n                  282-        GRID*   70                              1.127948E+00    7.304899E+00    *GD   70\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        *GD   70-3.480781E-01                                                           \r\n                  284-        GRID*   71                              -1.340348E+00   9.248205E+00    *GD   71\r\n                  285-        *GD   716.895647E-01                                                            \r\n                  286-        GRID*   72                              -1.211896E+00   9.064268E+00    *GD   72\r\n                  287-        *GD   725.941403E-01                                                            \r\n                  288-        GRID*   73                              -8.663878E-01   8.684826E+00    *GD   73\r\n                  289-        *GD   734.148975E-01                                                            \r\n                  290-        GRID*   74                              -1.849050E-01   7.997163E+00    *GD   74\r\n                  291-        *GD   741.370639E-01                                                            \r\n                  292-        GRID*   75                              3.419222E-01    7.404170E+00    *GD   75\r\n                  293-        *GD   75-6.006306E-02                                                           \r\n                  294-        GRID*   76                              6.469184E-01    7.104341E+00    *GD   76\r\n                  295-        *GD   76-1.762950E-01                                                           \r\n                  296-        GRID*   77                              9.723798E-01    6.754175E+00    *GD   77\r\n                  297-        *GD   77-2.997903E-01                                                           \r\n                  298-        GRID*   78                              -1.721028E+00   8.748784E+00    *GD   78\r\n                  299-        *GD   788.876511E-01                                                            \r\n                  300-        GRID*   79                              -1.560428E+00   8.580663E+00    *GD   79\r\n                  301-        *GD   797.867939E-01                                                            \r\n                  302-        GRID*   80                              -1.135652E+00   8.151909E+00    *GD   80\r\n                  303-        *GD   805.662700E-01                                                            \r\n                  304-        GRID*   81                              -4.147282E-01   7.403061E+00    *GD   81\r\n                  305-        *GD   812.401156E-01                                                            \r\n                  306-        GRID*   82                              1.852081E-01    6.753466E+00    *GD   82\r\n                  307-        *GD   82-9.743430E-03                                                           \r\n                  308-        GRID*   83                              5.310093E-01    6.498033E+00    *GD   83\r\n                  309-        *GD   83-1.498038E-01                                                           \r\n                  310-        GRID*   84                              9.002047E-01    6.103145E+00    *GD   84\r\n                  311-        *GD   84-2.552683E-01                                                           \r\n                  312-        GRID*   85                              -2.167293E+00   7.999124E+00    *GD   85\r\n                  313-        *GD   851.095234E+00                                                            \r\n                  314-        GRID*   86                              -1.965024E+00   7.748323E+00    *GD   86\r\n                  315-        *GD   869.662098E-01                                                            \r\n                  316-        GRID*   87                              -1.447637E+00   7.370351E+00    *GD   87\r\n                  317-        *GD   877.037064E-01                                                            \r\n                  318-        GRID*   88                              -5.651237E-01   6.672748E+00    *GD   88\r\n                  319-        *GD   882.690339E-01                                                            \r\n                  320-        GRID*   89                              1.080579E-01    6.122757E+00    *GD   89\r\n                  321-        *GD   899.317569E-03                                                            \r\n                  322-        GRID*   90                              4.961708E-01    5.802341E+00    *GD   90\r\n                  323-        *GD   90-1.257418E-01                                                           \r\n                  324-        GRID*   91                              9.450005E-01    5.499189E+00    *GD   91\r\n                  325-        *GD   91-2.549328E-01                                                           \r\n                  326-        GRID*   92                              -2.501855E+00   6.998549E+00    *GD   92\r\n                  327-        *GD   921.159885E+00                                                            \r\n                  328-        GRID*   93                              -2.243557E+00   6.869573E+00    *GD   93\r\n                  329-        *GD   931.004043E+00                                                            \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        GRID*   94                              -1.663980E+00   6.498133E+00    *GD   94\r\n                  331-        *GD   946.963711E-01                                                            \r\n                  332-        GRID*   95                              -6.590906E-01   5.998307E+00    *GD   95\r\n                  333-        *GD   952.671809E-01                                                            \r\n                  334-        GRID*   96                              1.295218E-01    5.498876E+00    *GD   96\r\n                  335-        *GD   96-1.361039E-02                                                           \r\n                  336-        GRID*   97                              5.590804E-01    5.251667E+00    *GD   97\r\n                  337-        *GD   97-1.359098E-01                                                           \r\n                  338-        GRID*   98                              1.008383E+00    5.000014E+00    *GD   98\r\n                  339-        *GD   98-2.679553E-01                                                           \r\n                  340-        GRID*   99                              -2.658578E+00   5.997640E+00    *GD   99\r\n                  341-        *GD   991.050546E+00                                                            \r\n                  342-        GRID*   100                             -2.343632E+00   5.902313E+00    *GD  100\r\n                  343-        *GD  1009.020252E-01                                                            \r\n                  344-        GRID*   101                             -1.669497E+00   5.672649E+00    *GD  101\r\n                  345-        *GD  1016.170529E-01                                                            \r\n                  346-        GRID*   102                             -5.963364E-01   5.302208E+00    *GD  102\r\n                  347-        *GD  1022.088603E-01                                                            \r\n                  348-        GRID*   103                             1.954939E-01    4.999296E+00    *GD  103\r\n                  349-        *GD  103-4.400190E-02                                                           \r\n                  350-        GRID*   104                             6.204426E-01    4.870985E+00    *GD  104\r\n                  351-        *GD  104-1.597679E-01                                                           \r\n                  352-        GRID*   105                             1.050502E+00    4.750490E+00    *GD  105\r\n                  353-        *GD  105-2.685744E-01                                                           \r\n                  354-        GRID*   106                             -2.496761E+00   4.997375E+00    *GD  106\r\n                  355-        *GD  1068.496489E-01                                                            \r\n                  356-        GRID*   107                             -2.194051E+00   4.997557E+00    *GD  107\r\n                  357-        *GD  1077.381414E-01                                                            \r\n                  358-        GRID*   108                             -1.543487E+00   4.903041E+00    *GD  108\r\n                  359-        *GD  1084.893306E-01                                                            \r\n                  360-        GRID*   109                             -5.069078E-01   4.751890E+00    *GD  109\r\n                  361-        *GD  1091.591752E-01                                                            \r\n                  362-        GRID*   110                             2.414709E-01    4.620979E+00    *GD  110\r\n                  363-        *GD  110-6.520444E-02                                                           \r\n                  364-        GRID*   111                             6.511260E-01    4.550488E+00    *GD  111\r\n                  365-        *GD  111-1.757268E-01                                                           \r\n                  366-        GRID*   112                             1.101048E+00    4.450042E+00    *GD  112\r\n                  367-        *GD  112-2.750542E-01                                                           \r\n                  368-        GRID*   113                             -2.273488E+00   4.304033E+00    *GD  113\r\n                  369-        *GD  1136.919722E-01                                                            \r\n                  370-        GRID*   114                             -1.994164E+00   4.303668E+00    *GD  114\r\n                  371-        *GD  1145.999017E-01                                                            \r\n                  372-        GRID*   115                             -1.405457E+00   4.402983E+00    *GD  115\r\n                  373-        *GD  1153.958974E-01                                                            \r\n                  374-        GRID*   116                             -4.174645E-01   4.351565E+00    *GD  116\r\n                  375-        *GD  1161.095533E-01                                                            \r\n                  376-        GRID*   117                             3.215386E-01    4.300690E+00    *GD  117\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        *GD  117-8.331943E-02                                                           \r\n                  378-        GRID*   118                             7.212664E-01    4.250240E+00    *GD  118\r\n                  379-        *GD  118-1.836711E-01                                                           \r\n                  380-        GRID*   119                             1.151106E+00    4.249871E+00    *GD  119\r\n                  381-        *GD  119-2.738665E-01                                                           \r\n                  382-        GRID*   120                             -1.996529E+00   3.623911E+00    *GD  120\r\n                  383-        *GD  1205.362222E-01                                                            \r\n                  384-        GRID*   121                             -1.717033E+00   3.593472E+00    *GD  121\r\n                  385-        *GD  1214.447856E-01                                                            \r\n                  386-        GRID*   122                             -1.167562E+00   3.662519E+00    *GD  122\r\n                  387-        *GD  1222.925791E-01                                                            \r\n                  388-        GRID*   123                             -2.483512E-01   3.751040E+00    *GD  123\r\n                  389-        *GD  1234.970558E-02                                                            \r\n                  390-        GRID*   124                             4.511786E-01    3.800256E+00    *GD  124\r\n                  391-        *GD  124-1.118595E-01                                                           \r\n                  392-        GRID*   125                             8.409850E-01    3.799903E+00    *GD  125\r\n                  393-        *GD  125-2.023238E-01                                                           \r\n                  394-        GRID*   126                             1.290810E+00    3.799548E+00    *GD  126\r\n                  395-        *GD  126-2.828727E-01                                                           \r\n                  396-        GRID*   127                             -1.608941E+00   2.873360E+00    *GD  127\r\n                  397-        *GD  1273.625186E-01                                                            \r\n                  398-        GRID*   128                             -1.308840E+00   2.992764E+00    *GD  128\r\n                  399-        *GD  1282.919613E-01                                                            \r\n                  400-        GRID*   129                             -9.387804E-01   3.101987E+00    *GD  129\r\n                  401-        *GD  1292.111757E-01                                                            \r\n                  402-        GRID*   130                             -8.885711E-02   3.300630E+00    *GD  130\r\n                  403-        *GD  1301.195536E-01                                                            \r\n                  404-        GRID*   131                             5.608683E-01    3.500004E+00    *GD  131\r\n                  405-        *GD  131-1.414182E-01                                                           \r\n                  406-        GRID*   132                             9.507490E-01    3.499724E+00    *GD  132\r\n                  407-        *GD  132-2.217990E-01                                                           \r\n                  408-        GRID*   133                             1.369986E+00    3.600738E+00    *GD  133\r\n                  409-        *GD  133-2.995755E-01                                                           \r\n                  410-        GRID*   134                             -1.368847E+00   2.576391E+00    *GD  134\r\n                  411-        *GD  1342.804042E-01                                                            \r\n                  412-        GRID*   135                             -1.139708E+00   2.642426E+00    *GD  135\r\n                  413-        *GD  1352.214295E-01                                                            \r\n                  414-        GRID*   136                             -7.496524E-01   2.721577E+00    *GD  136\r\n                  415-        *GD  1361.307743E-01                                                            \r\n                  416-        GRID*   137                             -4.592137E-01   3.001000E+00    *GD  137\r\n                  417-        *GD  1379.034532E-02                                                            \r\n                  418-        GRID*   138                             -4.695653E-01   2.760897E+00    *GD  138\r\n                  419-        *GD  1387.035846E-02                                                            \r\n                  420-        GRID*   139                             -2.695652E-01   2.800594E+00    *GD  139\r\n                  421-        *GD  1393.012025E-02                                                            \r\n                  422-        GRID*   140                             3.953020E-04    2.830271E+00    *GD  140\r\n                  423-        *GD  140-2.015355E-02                                                           \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID*   141                             2.705058E-01    2.980117E+00    *GD  141\r\n                  425-        *GD  141-5.050298E-02                                                           \r\n                  426-        GRID*   142                             4.705606E-01    3.069980E+00    *GD  142\r\n                  427-        *GD  142-8.079284E-02                                                           \r\n                  428-        GRID*   143                             7.906197E-01    3.199841E+00    *GD  143\r\n                  429-        *GD  143-1.611942E-01                                                           \r\n                  430-        GRID*   144                             1.100652E+00    3.339638E+00    *GD  144\r\n                  431-        *GD  144-2.316611E-01                                                           \r\n                  432-        GRID*   145                             1.475051E+00    3.454741E+00    *GD  145\r\n                  433-        *GD  145-2.780864E-01                                                           \r\n                  434-        GRID*   146                             -4.697902E-01   2.440455E+00    *GD  146\r\n                  435-        *GD  1469.014469E-02                                                            \r\n                  436-        GRID*   147                             -2.698651E-01   2.440315E+00    *GD  147\r\n                  437-        *GD  1474.007889E-02                                                            \r\n                  438-        GRID*   148                             8.703647E-05    2.440156E+00    *GD  148\r\n                  439-        *GD  148-1.476011E-05                                                           \r\n                  440-        GRID*   149                             2.700679E-01    2.440040E+00    *GD  149\r\n                  441-        *GD  149-4.009397E-02                                                           \r\n                  442-        GRID*   150                             4.700607E-01    2.439936E+00    *GD  150\r\n                  443-        *GD  150-8.013493E-02                                                           \r\n                  444-        GRID*   151                             -4.700000E-01   2.060000E+00    *GD  151\r\n                  445-        *GD  1518.999997E-02                                                            \r\n                  446-        GRID*   152                             -2.700000E-01   2.060000E+00    *GD  152\r\n                  447-        *GD  1524.000000E-02                                                            \r\n                  448-        GRID*   153                             0.0             2.060000E+00    *GD  153\r\n                  449-        *GD  1530.0                                                                     \r\n                  450-        GRID*   154                             2.700000E-01    2.060000E+00    *GD  154\r\n                  451-        *GD  154-4.000000E-02                                                           \r\n                  452-        GRID*   155                             4.700000E-01    2.060000E+00    *GD  155\r\n                  453-        *GD  155-8.999997E-02                                                           \r\n                  454-        MAT1    1       1.6E7           .35     .0004141                                \r\n                  455-        MKAERO2 -144.   .001    -144.   .3      -144.   .6      -144.   .9              \r\n                  456-        MKAERO2 -144.   1.2     -144.   1.5     -144.   .15                             \r\n                  457-        MKAERO2 -108.   .001    -108.   .3      -108.   .6      -108.   .9              \r\n                  458-        MKAERO2 -108.   1.2     -108.   1.5     -108.   .15                             \r\n                  459-        MKAERO2 -72.    .001    -72.    .3      -72.    .6      -72.    .9              \r\n                  460-        MKAERO2 -72.    1.2     -72.    1.5     -72.    .15                             \r\n                  461-        MKAERO2 -36.    .001    -36.    .3      -36.    .6      -36.    .9              \r\n                  462-        MKAERO2 -36.    1.2     -36.    1.5     -36.    .15                             \r\n                  463-        MKAERO2 0.0     .001    0.0     .3      0.0     .6      0.0     .9              \r\n                  464-        MKAERO2 0.0     1.2     0.0     1.5     0.0     .15                             \r\n                  465-        MKAERO2 36.     .001    36.     .3      36.     .6      36.     .9              \r\n                  466-        MKAERO2 36.     1.2     36.     1.5     36.0    .15                             \r\n                  467-        MKAERO2 72.     .001    72.     .3      72.     .6      72.     .9              \r\n                  468-        MKAERO2 72.     1.2     72.     1.5     72.0    .15                             \r\n                  469-        MKAERO2 108.    .001    108.    .3      108.    .6      108.    .9              \r\n                  470-        MKAERO2 108.    1.2     108.    1.5     108.    .15                             \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        MKAERO2 144.    .001    144.    .3      144.    .6      144.    .9              \r\n                  472-        MKAERO2 144.    1.2     144.    1.5     144.    .15                             \r\n                  473-        MKAERO2 180.    .001    180.    .3      180.    .6      180.    .9              \r\n                  474-        MKAERO2 180.    1.2     180.    1.5     180.    .15                             \r\n                  475-        PARAM   CTYPE   ROT                                                             \r\n                  476-        PARAM   IREF    6                                                               \r\n                  477-        PARAM   KINDEX  0                                                               \r\n                  478-        PARAM   LMODES  6                                                               \r\n                  479-        PARAM   MAXMACH 0.95                                                            \r\n                  480-        PARAM   MINMACH 1.01                                                            \r\n                  481-        PARAM   MTYPE   COSINE                                                          \r\n                  482-        PARAM   NSEGS   10                                                              \r\n                  483-        PARAM   PRINT   YESB                                                            \r\n                  484-        PQUAD2  1       1       .012                                                    \r\n                  485-        PQUAD2  2       1       .024                                                    \r\n                  486-        PQUAD2  3       1       .032                                                    \r\n                  487-        PQUAD2  4       1       .036                                                    \r\n                  488-        PQUAD2  5       1       .030                                                    \r\n                  489-        PQUAD2  6       1       .018                                                    \r\n                  490-        PQUAD2  7       1       .014                                                    \r\n                  491-        PQUAD2  8       1       .028                                                    \r\n                  492-        PQUAD2  9       1       .037                                                    \r\n                  493-        PQUAD2  10      1       .043                                                    \r\n                  494-        PQUAD2  11      1       .036                                                    \r\n                  495-        PQUAD2  12      1       .022                                                    \r\n                  496-        PQUAD2  13      1       .016                                                    \r\n                  497-        PQUAD2  14      1       .032                                                    \r\n                  498-        PQUAD2  15      1       .048                                                    \r\n                  499-        PQUAD2  16      1       .051                                                    \r\n                  500-        PQUAD2  17      1       .042                                                    \r\n                  501-        PQUAD2  18      1       .023                                                    \r\n                  502-        PQUAD2  19      1       .018                                                    \r\n                  503-        PQUAD2  20      1       .034                                                    \r\n                  504-        PQUAD2  21      1       .053                                                    \r\n                  505-        PQUAD2  22      1       .058                                                    \r\n                  506-        PQUAD2  23      1       .046                                                    \r\n                  507-        PQUAD2  24      1       .025                                                    \r\n                  508-        PQUAD2  25      1       .021                                                    \r\n                  509-        PQUAD2  26      1       .042                                                    \r\n                  510-        PQUAD2  27      1       .061                                                    \r\n                  511-        PQUAD2  28      1       .066                                                    \r\n                  512-        PQUAD2  29      1       .051                                                    \r\n                  513-        PQUAD2  30      1       .027                                                    \r\n                  514-        PQUAD2  31      1       .024                                                    \r\n                  515-        PQUAD2  32      1       .049                                                    \r\n                  516-        PQUAD2  33      1       .070                                                    \r\n                  517-        PQUAD2  34      1       .073                                                    \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  518-        PQUAD2  35      1       .057                                                    \r\n                  519-        PQUAD2  36      1       .030                                                    \r\n                  520-        PQUAD2  37      1       .028                                                    \r\n                  521-        PQUAD2  38      1       .054                                                    \r\n                  522-        PQUAD2  39      1       .078                                                    \r\n                  523-        PQUAD2  40      1       .082                                                    \r\n                  524-        PQUAD2  41      1       .065                                                    \r\n                  525-        PQUAD2  42      1       .035                                                    \r\n                  526-        PQUAD2  43      1       .031                                                    \r\n                  527-        PQUAD2  44      1       .061                                                    \r\n                  528-        PQUAD2  45      1       .088                                                    \r\n                  529-        PQUAD2  46      1       .093                                                    \r\n                  530-        PQUAD2  47      1       .075                                                    \r\n                  531-        PQUAD2  48      1       .039                                                    \r\n                  532-        PQUAD2  49      1       .038                                                    \r\n                  533-        PQUAD2  50      1       .068                                                    \r\n                  534-        PQUAD2  51      1       .098                                                    \r\n                  535-        PQUAD2  52      1       .103                                                    \r\n                  536-        PQUAD2  53      1       .083                                                    \r\n                  537-        PQUAD2  54      1       .046                                                    \r\n                  538-        PQUAD2  55      1       .041                                                    \r\n                  539-        PQUAD2  56      1       .076                                                    \r\n                  540-        PQUAD2  57      1       .110                                                    \r\n                  541-        PQUAD2  58      1       .118                                                    \r\n                  542-        PQUAD2  59      1       .091                                                    \r\n                  543-        PQUAD2  60      1       .047                                                    \r\n                  544-        PQUAD2  61      1       .043                                                    \r\n                  545-        PQUAD2  62      1       .083                                                    \r\n                  546-        PQUAD2  63      1       .120                                                    \r\n                  547-        PQUAD2  64      1       .129                                                    \r\n                  548-        PQUAD2  65      1       .100                                                    \r\n                  549-        PQUAD2  66      1       .044                                                    \r\n                  550-        PQUAD2  67      1       .045                                                    \r\n                  551-        PQUAD2  68      1       .090                                                    \r\n                  552-        PQUAD2  69      1       .135                                                    \r\n                  553-        PQUAD2  70      1       .138                                                    \r\n                  554-        PQUAD2  71      1       .100                                                    \r\n                  555-        PQUAD2  72      1       .048                                                    \r\n                  556-        PQUAD2  73      1       .053                                                    \r\n                  557-        PQUAD2  74      1       .106                                                    \r\n                  558-        PQUAD2  75      1       .152                                                    \r\n                  559-        PQUAD2  76      1       .148                                                    \r\n                  560-        PQUAD2  77      1       .099                                                    \r\n                  561-        PQUAD2  78      1       .044                                                    \r\n                  562-        PQUAD2  79      1       .063                                                    \r\n                  563-        PQUAD2  80      1       .123                                                    \r\n                  564-        PQUAD2  81      1       .171                                                    \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  565-        PQUAD2  82      1       .157                                                    \r\n                  566-        PQUAD2  83      1       .099                                                    \r\n                  567-        PQUAD2  84      1       .046                                                    \r\n                  568-        PQUAD2  85      1       .071                                                    \r\n                  569-        PQUAD2  86      1       .141                                                    \r\n                  570-        PQUAD2  87      1       .206                                                    \r\n                  571-        PQUAD2  88      1       .177                                                    \r\n                  572-        PQUAD2  89      1       .112                                                    \r\n                  573-        PQUAD2  90      1       .048                                                    \r\n                  574-        PQUAD2  91      1       .084                                                    \r\n                  575-        PQUAD2  92      1       .172                                                    \r\n                  576-        PQUAD2  93      1       .232                                                    \r\n                  577-        PQUAD2  94      1       .198                                                    \r\n                  578-        PQUAD2  95      1       .135                                                    \r\n                  579-        PQUAD2  96      1       .062                                                    \r\n                  580-        PQUAD2  97      1       .119                                                    \r\n                  581-        PQUAD2  98      1       .206                                                    \r\n                  582-        PQUAD2  99      1       .266                                                    \r\n                  583-        PQUAD2  100     1       .230                                                    \r\n                  584-        PQUAD2  101     1       .152                                                    \r\n                  585-        PQUAD2  102     1       .071                                                    \r\n                  586-        PQUAD2  103     1       .161                                                    \r\n                  587-        PQUAD2  104     1       .237                                                    \r\n                  588-        PQUAD2  105     1       .347                                                    \r\n                  589-        PQUAD2  106     1       .319                                                    \r\n                  590-        PQUAD2  107     1       .167                                                    \r\n                  591-        PQUAD2  108     1       .075                                                    \r\n                  592-        PQUAD2  109     1       .222                                                    \r\n                  593-        PQUAD2  110     1       .373                                                    \r\n                  594-        PQUAD2  121     1       .242                                                    \r\n                  595-        PQUAD2  122     1       .089                                                    \r\n                  596-        PQUAD2  123     1       .441                                                    \r\n                  597-        PQUAD2  124     1       .830                                                    \r\n                  598-        PQUAD2  125     1       .830                                                    \r\n                  599-        PQUAD2  126     1       .441                                                    \r\n                  600-        PQUAD2  127     1       .441                                                    \r\n                  601-        PQUAD2  128     1       .830                                                    \r\n                  602-        PQUAD2  129     1       .830                                                    \r\n                  603-        PQUAD2  130     1       .441                                                    \r\n                  604-        PTRIA2  111     1       .531                                                    \r\n                  605-        PTRIA2  112     1       .532                                                    \r\n                  606-        PTRIA2  113     1       .396                                                    \r\n                  607-        PTRIA2  114     1       .544                                                    \r\n                  608-        PTRIA2  115     1       .590                                                    \r\n                  609-        PTRIA2  116     1       .591                                                    \r\n                  610-        PTRIA2  117     1       .557                                                    \r\n                  611-        PTRIA2  118     1       .519                                                    \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  612-        PTRIA2  119     1       .396                                                    \r\n                  613-        PTRIA2  120     1       .377                                                    \r\n                  614-        RFORCE  1       0               113.34  1.0     0.0     0.0                     \r\n                  615-        SPC1    1       4       1       57                                              \r\n                  616-        SPC1    1       6       7       91      98      134     145                     \r\n                  617-        SPC1    1       123456  151     THRU    155                                     \r\n                  618-        STREAML11       134     136     143     145                                     \r\n                  619-        STREAML12       113     115     117     119                                     \r\n                  620-        STREAML13       99      101     103     105                                     \r\n                  621-        STREAML14       85      87      89      91                                      \r\n                  622-        STREAML15       71      73      75      77                                      \r\n                  623-        STREAML16       57      59      61      63                                      \r\n                  624-        STREAML17       43      45      47      49                                      \r\n                  625-        STREAML18       29      31      33      35                                      \r\n                  626-        STREAML19       15      17      19      21                                      \r\n                  627-        STREAML110      1       3       5       7                                       \r\n                  628-        STREAML21       4       11.075  3.028   0.278   1.626   0.686   9.763E-8+STR   1\r\n                  629-        +STR   19152.   -15.899                                                         \r\n                  630-        STREAML22       4       13.895  3.559   0.336   2.733   0.734   9.763E-8+STR   4\r\n                  631-        +STR   49794.   2.890                                                           \r\n                  632-        STREAML23       4       14.946  4.129   0.152   3.818   0.713   9.763E-8+STR   6\r\n                  633-        +STR   69512.   20.206                                                          \r\n                  634-        STREAML24       4       16.492  4.214   -0.355  5.068   0.618   9.763E-8+STR   8\r\n                  635-        +STR   88246.   38.813                                                          \r\n                  636-        STREAML25       4       17.712  3.542   -0.389  5.825   0.567   9.763E-8+STR  10\r\n                  637-        +STR  107558.   46.112                                                          \r\n                  638-        STREAML26       4       16.167  2.905   -0.367  6.423   0.528   9.763E-8+STR  12\r\n                  639-        +STR  127046.   50.138                                                          \r\n                  640-        STREAML27       4       17.910  2.376   -0.316  6.915   0.535   9.763E-8+STR  14\r\n                  641-        +STR  147139.   50.796                                                          \r\n                  642-        STREAML28       4       19.990  1.937   -0.369  7.350   0.556   9.763E-8+STR  16\r\n                  643-        +STR  167419.   50.323                                                          \r\n                  644-        STREAML29       4       23.516  1.558   -0.294  7.682   0.557   9.763E-8+STR  18\r\n                  645-        +STR  187424.   51.910                                                          \r\n                  646-        STREAML210      4       27.788  1.280   -0.541  7.913   0.587   9.763E-8+STR  20\r\n                  647-        +STR  207830.   50.992                                                          \r\n                              ENDDATA\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $    \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL=    \r\n                   APPEND/OVG=APPEND/QHHL=APPEND $                                \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N,     \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  COND     ERROR5,NOGPDT $                                                \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      11  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      12  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      13  COND     ERROR5,NOSIMP $                                                \r\n\r\n      14  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      15  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      16  PARAM    //*NOP*/V,Y,KGGIN=-1 $                                         \r\n\r\n      17  COND     JMPKGGIN,KGGIN $                                               \r\n\r\n      18  PARAM    //*ADD*/NOKGGX/-1/0 $                                          \r\n\r\n      19  INPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $                   \r\n\r\n      20  EQUIV    KTOTAL,KGGX $                                                  \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  LABEL    JMPKGGIN $                                                     \r\n\r\n      22  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/                 \r\n                   C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/    \r\n                   C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                           \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      23  COND     JMPKGGX,NOKGGX $                                               \r\n\r\n      24  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      25  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n      26  LABEL    JMPKGGX $                                                      \r\n\r\n      27  COND     ERROR1,NOMGG $                                                 \r\n\r\n      28  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      29  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      30  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      31  GPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      32  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      33  LABEL    LGPWG $                                                        \r\n\r\n      34  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      35  COND     LBL11,NOGENL $                                                 \r\n\r\n      36  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      37  LABEL    LBL11 $                                                        \r\n\r\n      38  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      39  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/              \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      40  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  PARAM    //*NOT*/REACDATA/REACT $                                       \r\n\r\n      42  COND     ERROR6,REACDATA $                                              \r\n\r\n      43  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $                      \r\n\r\n      44  GPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $                    \r\n\r\n      45  COND     ERROR7,NOGO $                                                  \r\n\r\n      46  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      47  COND     LBL2,MPCF1 $                                                   \r\n\r\n      48  MCE1     USET,RG/GM $                                                   \r\n\r\n      49  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      50  LABEL    LBL2 $                                                         \r\n\r\n      51  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      52  COND     LBL3,SINGLE $                                                  \r\n\r\n      53  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      54  LABEL    LBL3 $                                                         \r\n\r\n      55  EQUIV    KFF,KAA/OMIT/MFF,MAA/OMIT $                                    \r\n\r\n      56  COND     LBL5,OMIT $                                                    \r\n\r\n      57  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      58  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      59  LABEL    LBL5 $                                                         \r\n\r\n      60  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n                   LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/                     \r\n                   NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $                             \r\n\r\n      61  COND     ERROR2,NOEED $                                                 \r\n\r\n      62  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE $                                      \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  CYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,            \r\n                   KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $                           \r\n\r\n      64  COND     ERROR7,NOGO $                                                  \r\n\r\n      65  READ     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,  ,OEIGS/*MODES*/S,N,          \r\n                   NEIGV $                                                        \r\n\r\n      66  OFP      OEIGS,LAMK,,,,//S,N,CARDNO $                                   \r\n\r\n      67  COND     ERROR4,NEIGV $                                                 \r\n\r\n      68  CYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,           \r\n                   KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $                                 \r\n\r\n      69  COND     ERROR7,NOGO $                                                  \r\n\r\n      70  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $                    \r\n\r\n      71  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/      \r\n                   ,,OPHIG,,,PPHIG,,/*REIG* $                                     \r\n\r\n      72  OFP      OPHIG,,,,,//S,N,CARDNO $                                       \r\n\r\n      73  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      74  PURGE    PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $                     \r\n\r\n      75  COND     PZZ,JUMPPLOT $                                                 \r\n\r\n      76  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/           \r\n                   S,N,NSILZ/S,N,JUMPZ=-1 $                                       \r\n\r\n      77  PRTMSG   PLTSETZ// $                                                    \r\n\r\n      78  COND     PZZ,JUMPZ $                                                    \r\n\r\n      79  PLOT     PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/    \r\n                   PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $              \r\n\r\n      80  PRTMSG   PLOTZ// $                                                      \r\n\r\n      81  LABEL    PZZ $                                                          \r\n\r\n      82  APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/   \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/      \r\n                   NEIGV/V,Y,KINDEX    $                                          \r\n\r\n      83  PARTN    PHIA,PVECT,/PHIAX,,,/1 $                                       \r\n\r\n      84  SMPYAD   PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $                              \r\n\r\n      85  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,        \r\n                   NOK2PP/S,N,NOM2PP/S,N,NOB2PP $                                 \r\n\r\n      86  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n      87  EQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $              \r\n\r\n      88  GKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/      \r\n                   *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/                    \r\n                   NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/                          \r\n                   -1/-1/-1/-1 $                                                  \r\n\r\n      89  GKAM     USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,     \r\n                   PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/      \r\n                   NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,                 \r\n                   KDAMP=-1 $                                                     \r\n\r\n      90  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      91  COND     P2,JUMPPLOT $                                                  \r\n\r\n      92  PLTSET   PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N,    \r\n                   JUMPPLOT $                                                     \r\n\r\n      93  PRTMSG   PLTSETX//$                                                     \r\n\r\n      94  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      95  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      96  COND     P2,JUMPPLOT $                                                  \r\n\r\n      97  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/   \r\n                   LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                      \r\n\r\n      98  PRTMSG   PLOTX1//$                                                      \r\n\r\n      99  LABEL    P2 $                                                           \r\n\r\n     100  PARAM    //*ADD*/DESTRY/0/1 $                                           \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     101  AMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $                \r\n\r\n     102  PURGE    D1JE,D2JE/NODJE $                                              \r\n\r\n     103  COND     NODJE,NODJE $                                                  \r\n\r\n     104  INPUTT2  /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL=     \r\n                   TAPEID $                                                       \r\n\r\n     105  LABEL    NODJE $                                                        \r\n\r\n     106  PARAM    //*ADD*/XQHHL/1/0 $                                            \r\n\r\n     107  AMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/     \r\n                   NOUE/S,N,XQHHL $                                               \r\n\r\n     108  PARAM    //*MPY*/NOP/1/1 $                                              \r\n\r\n     109  PARAM    //*MPY*/NOH/0/1 $                                              \r\n\r\n     110  PARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $                                 \r\n\r\n     111  LABEL    LOOPTOP $                                                      \r\n\r\n     112  FA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/  \r\n                   S,N,TSTART/S,N,NOCEAD $                                        \r\n\r\n     113  EQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/                            \r\n                   KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/                          \r\n                   CASECC,CASEYY/NOCEAD $                                         \r\n\r\n     114  COND     VDR,NOCEAD $                                                   \r\n\r\n     115  CEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $       \r\n\r\n     116  COND     LBLZAP,EIGVS $                                                 \r\n\r\n     117  LABEL    VDR $                                                          \r\n\r\n     118  VDR      CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/       \r\n                   123/S,N,NOH/S,N,NOP/FMODE $                                    \r\n\r\n     119  COND     LBL16,NOH $                                                    \r\n\r\n     120  OFP      OPHIH,,,,,//S,N,CARDNO $                                       \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     121  LABEL    LBL16 $                                                        \r\n\r\n     122  FA2      PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF=  \r\n                   1.0/C,Y,PRINT=YESB $                                           \r\n\r\n     123  COND     CONTINUE,TSTART $                                              \r\n\r\n     124  LABEL    LBLZAP $                                                       \r\n\r\n     125  COND     CONTINUE,FLOOP $                                               \r\n\r\n     126  REPT     LOOPTOP,100  $                                                 \r\n\r\n     127  JUMP     ERROR3 $                                                       \r\n\r\n     128  LABEL    CONTINUE $                                                     \r\n\r\n     129  PARAML   XYCDB//*PRES*////NOXYCDB $                                     \r\n\r\n     130  COND     NOXYOUT,NOXYCDB $                                              \r\n\r\n     131  XYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $       \r\n\r\n     132  XYPLOT   XYPLTCE//$                                                     \r\n\r\n     133  LABEL    NOXYOUT $                                                      \r\n\r\n     134  PARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $                                \r\n\r\n     135  COND     FINIS,PJUMP $                                                  \r\n\r\n     136  MODACC   CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/          \r\n                   *CEIGN* $                                                      \r\n\r\n     137  DDR1     CPHIH1,PHIDH/CPHID $                                           \r\n\r\n     138  EQUIV    CPHID,CPHIP/NOA $                                              \r\n\r\n     139  COND     LBL14,NOA $                                                    \r\n\r\n     140  SDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $        \r\n\r\n     141  LABEL    LBL14 $                                                        \r\n\r\n     142  EQUIV    CPHID,CPHIA/NOUE $                                             \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     143  COND     LBLNOE,NOUE $                                                  \r\n\r\n     144  VEC      USETD/RP/*D*/*A*/*E* $                                         \r\n\r\n     145  PARTN    CPHID,,RP/CPHIA,,,/1/3 $                                       \r\n\r\n     146  LABEL    LBLNOE $                                                       \r\n\r\n     147  SDR2     CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP,      \r\n                   EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $            \r\n\r\n     148  OFP      OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $                       \r\n\r\n     149  COND     P3,JUMPPLOT $                                                  \r\n\r\n     150  PLOT     PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/      \r\n                   PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $                     \r\n\r\n     151  PRTMSG   PLOTX3//$                                                      \r\n\r\n     152  LABEL    P3 $                                                           \r\n\r\n     153  JUMP     FINIS $                                                        \r\n\r\n     154  LABEL    ERROR1 $                                                       \r\n\r\n     155  PRTPARM  //-1/*BLADEMDS* $                                              \r\n\r\n     156  LABEL    ERROR2 $                                                       \r\n\r\n     157  PRTPARM  //-2/*BLADEMDS* $                                              \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*BLADEMDS* $                                              \r\n\r\n     160  LABEL    ERROR4 $                                                       \r\n\r\n     161  PRTPARM  //-4/*BLADEMDS* $                                              \r\n\r\n     162  LABEL    ERROR5 $                                                       \r\n\r\n     163  PRTPARM  //-5/*BLADEMDS* $                                              \r\n\r\n     164  LABEL    ERROR6 $                                                       \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n\r\n      10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     165  PRTPARM  //-6/*BLADEMDS* $                                              \r\n\r\n     166  LABEL    ERROR7 $                                                       \r\n\r\n     167  PRTPARM  //-7/*BLADEMDS* $                                              \r\n\r\n     168  LABEL    FINIS $                                                        \r\n\r\n     169  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     170  END      $                                                              \r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE           1337\r\n                                        MAX WAVEFRONT       13\r\n                                        AVG WAVEFRONT    8.626\r\n                                        RMS WAVEFRONT    8.752\r\n                                        RMS BANDWIDTH    8.817\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           12\r\n                                        PROFILE           1326\r\n                                        MAX WAVEFRONT       12\r\n                                        AVG WAVEFRONT    8.555\r\n                                        RMS WAVEFRONT    8.667\r\n                                        RMS BANDWIDTH    8.750\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       14        12\r\n                                        PROFILE (P)                       1337      1326\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           13        12\r\n                                        AVERAGE WAVEFRONT (C-AVG)        8.626     8.555\r\n                                        RMS WAVEFRONT (C-RMS)            8.752     8.667\r\n                                        RMS BANDWITCH (B-RMS)            8.817     8.750\r\n                                        NUMBER OF GRID POINTS (N)                    155\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)               130\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           9\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                       524\r\n                                        MATRIX DENSITY, PERCENT                    5.007\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                  39\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       1       2       2       3       3       4       4\r\n                         SEQGP          5       5       6       6       7       7       8       8\r\n                         SEQGP          9       9      10      10      11      11      12      12\r\n                         SEQGP         13      13      14      14      15      15      16      16\r\n                         SEQGP         17      17      18      18      19      19      20      20\r\n                         SEQGP         21      21      22      22      23      23      24      24\r\n                         SEQGP         25      25      26      26      27      27      28      28\r\n                         SEQGP         29      29      30      30      31      31      32      32\r\n                         SEQGP         33      33      34      34      35      35      36      36\r\n                         SEQGP         37      37      38      38      39      39      40      40\r\n                         SEQGP         41      41      42      42      43      43      44      44\r\n                         SEQGP         45      45      46      46      47      47      48      48\r\n                         SEQGP         49      49      50      50      51      51      52      52\r\n                         SEQGP         53      53      54      54      55      55      56      56\r\n                         SEQGP         57      57      58      58      59      59      60      60\r\n                         SEQGP         61      61      62      62      63      63      64      64\r\n                         SEQGP         65      65      66      66      67      67      68      68\r\n                         SEQGP         69      69      70      70      71      71      72      72\r\n                         SEQGP         73      73      74      74      75      75      76      76\r\n                         SEQGP         77      77      78      78      79      79      80      80\r\n                         SEQGP         81      81      82      82      83      83      84      84\r\n                         SEQGP         85      85      86      86      87      87      88      88\r\n                         SEQGP         89      89      90      90      91      91      92      92\r\n                         SEQGP         93      93      94      94      95      95      96      96\r\n                         SEQGP         97      97      98      98      99      99     100     100\r\n                         SEQGP        101     101     102     102     103     103     104     104\r\n                         SEQGP        105     105     106     106     107     107     108     108\r\n                         SEQGP        109     109     110     110     111     111     112     112\r\n                         SEQGP        113     113     114     114     115     115     116     116\r\n                         SEQGP        117     117     118     118     119     119     120     120\r\n                         SEQGP        121     123     122     124     123     125     124     126\r\n                         SEQGP        125     127     126     128     127     121     128     129\r\n                         SEQGP        129     131     130     132     131     133     132     134\r\n                         SEQGP        133     135     134     122     135     130     136     136\r\n                         SEQGP        137     137     138     138     139     145     140     141\r\n                         SEQGP        141     139     142     140     143     142     144     143\r\n                         SEQGP        145     144     146     146     147     147     148     150\r\n                         SEQGP        149     149     150     148     151     151     152     152\r\n                         SEQGP        153     153     154     155     155     154\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID      111\r\n0*** USER WARNING MESSAGE 3017\r\n0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n     (USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION VIA A 'PARAM AUTOSPC' BULK DATA CARD)\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n \r\n                              G R I D   P O I N T   S I N G U L A R I T Y   T A B L E      SPC        1   MPC        0\r\n        POINT          SINGULARITY                  LIST OF COORDINATE COMBINATIONS THAT WILL REMOVE SINGULARITY\r\n         ID.   TYPE       ORDER       STRONGEST COMBINATION               WEAKER COMBINATION                 WEAKEST COMBINATION\r\n            29   G          1          4                                    6                                    5                  \r\n0*** USER WARNING MESSAGE 4032\r\n0NO COMPONENTS OF GRID POINTS       155 AND        151 WERE CONNECTED.\r\n                        6 ROOTS BELOW   3.977450E+07\r\n                        5 ROOTS BELOW   3.638198E+07\r\n                        7 ROOTS BELOW   5.069593E+07\r\n                        2 ROOTS BELOW   1.278386E+07\r\n                        3 ROOTS BELOW   1.331262E+07\r\n                        3 ROOTS BELOW   1.689639E+07\r\n                        1 ROOTS BELOW   7.037552E+05\r\n                        0 ROOTS BELOW   5.266361E+05\r\n                        1 ROOTS BELOW   3.539077E+06\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y     (INVERSE POWER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .         8\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         9\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        69\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         6*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NO. OF ROOTS DESIRED WERE FOUND.\r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n\r\n                                     ****************************************************************\r\n                                     *                                                              *\r\n                                     *\r\n+                                       NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGENVALUE FOUND   *\r\n                                     *  AS INDICATED BY THE STURM'S SEQUENCE OF THE DYNAMIC MATRIX  *\r\n                                     *                                                              *\r\n                                     *        (THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37)           *\r\n                                     ****************************************************************\r\n\r\n        1         6        5.266361E+05        7.256970E+02        1.154983E+02        0.0                 0.0                      \r\n        2         7        3.539467E+06        1.881347E+03        2.994257E+02        0.0                 0.0                      \r\n        3         4        1.331262E+07        3.648647E+03        5.807002E+02        0.0                 0.0                      \r\n        4         5        1.692550E+07        4.114061E+03        6.547731E+02        0.0                 0.0                      \r\n        5         3        2.569213E+07        5.068740E+03        8.067150E+02        0.0                 0.0                      \r\n        6         1        3.638755E+07        6.032209E+03        9.600559E+02        0.0                 0.0                      \r\n        7         2        5.056998E+07        7.111257E+03        1.131792E+03        0.0                 0.0                      \r\n        8         8        8.711234E+07        9.333399E+03        1.485457E+03        0.0                 0.0                      \r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  102 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN1313153056\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    1     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.3172187E+04    -2.5987566E-01     1.4433174E+02    -1.7115653E+03     1.3172187E+04\r\n        0.2000       5.0000000E+00     5.5141851E+03    -8.8200323E-02     1.2084129E+02    -2.4317645E+02     5.5141851E+03\r\n        0.3000       3.3333333E+00     3.5799548E+03    -5.4680537E-02     1.1768004E+02    -9.7876930E+01     3.5799548E+03\r\n        0.6000       1.6666666E+00     1.7623336E+03    -2.5975892E-02     1.1586264E+02    -2.2889093E+01     1.7623336E+03\r\n        0.9000       1.1111112E+00     1.1711383E+03    -1.7830875E-02     1.1549274E+02    -1.0441211E+01     1.1711383E+03\r\n        1.2000       8.3333331E-01     8.7731647E+02    -1.5152136E-02     1.1535635E+02    -6.6466093E+00     8.7731647E+02\r\n        1.5000       6.6666669E-01     7.0205066E+02    -1.5885172E-02     1.1538881E+02    -5.5760980E+00     7.0205066E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    2     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.7438021E+04    -1.1019964E+00     1.9107382E+02    -9.6083184E+03     1.7438021E+04\r\n        0.2000       5.0000000E+00     1.5320804E+04    -4.6307611E-01     3.3574963E+02    -3.5473491E+03     1.5320804E+04\r\n        0.3000       3.3333333E+00     9.6310557E+03    -5.1461689E-02     3.1659143E+02    -2.4781520E+02     9.6310557E+03\r\n        0.6000       1.6666666E+00     4.5875498E+03    -2.2387553E-02     3.0160327E+02    -5.1352009E+01     4.5875498E+03\r\n        0.9000       1.1111112E+00     3.0400488E+03    -1.5918441E-02     2.9979684E+02    -2.4196419E+01     3.0400488E+03\r\n        1.2000       8.3333331E-01     2.2755999E+03    -1.3652289E-02     2.9921347E+02    -1.5533574E+01     2.2755999E+03\r\n        1.5000       6.6666669E-01     1.8181428E+03    -1.4089519E-02     2.9882938E+02    -1.2808379E+01     1.8181428E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    3     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.9013311E+04     1.2675632E+00     2.0833476E+02     1.2050286E+04     1.9013311E+04\r\n        0.2000       5.0000000E+00     1.6495873E+04     3.3017141E-01     3.6150082E+02     2.7232329E+03     1.6495873E+04\r\n        0.3000       3.3333333E+00     1.4538642E+04    -7.2321326E-02     4.7791330E+02    -5.2572693E+02     1.4538642E+04\r\n        0.6000       1.6666666E+00     8.4681025E+03    -4.5205150E-02     5.5672583E+02    -1.9140092E+02     8.4681025E+03\r\n        0.9000       1.1111112E+00     5.7763608E+03    -3.0286590E-02     5.6964044E+02    -8.7473137E+01     5.7763608E+03\r\n        1.2000       8.3333331E-01     4.3629409E+03    -2.5681905E-02     5.7367322E+02    -5.6024319E+01     4.3629409E+03\r\n        1.5000       6.6666669E-01     3.5080808E+03    -2.9476199E-02     5.7658698E+02    -5.1702446E+01     3.5080808E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    4     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.6552992E+04    -5.1877630E-01     5.1009564E+02    -1.2075295E+04     4.6552992E+04\r\n        0.2000       5.0000000E+00     2.9223604E+04    -3.8178080E-01     6.4042426E+02    -5.5785054E+03     2.9223604E+04\r\n        0.3000       3.3333333E+00     2.1861395E+04    -1.3596323E-01     7.1862634E+02    -1.4861730E+03     2.1861395E+04\r\n        0.6000       1.6666666E+00     1.0021833E+04    -2.2598922E-02     6.5887408E+02    -1.1324131E+02     1.0021833E+04\r\n        0.9000       1.1111112E+00     6.6457544E+03    -1.5855767E-02     6.5537634E+02    -5.2686768E+01     6.6457544E+03\r\n        1.2000       8.3333331E-01     4.9773037E+03    -1.3198256E-02     6.5445441E+02    -3.2845863E+01     4.9773037E+03\r\n        1.5000       6.6666669E-01     3.9759780E+03    -1.3718268E-02     6.5349042E+02    -2.7271767E+01     3.9759780E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    5     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.8446758E+04     5.0924569E-01     5.3084619E+02     1.2335651E+04     4.8446758E+04\r\n        0.2000       5.0000000E+00     3.0757529E+04     3.2275152E-01     6.7403961E+02     4.9635195E+03     3.0757529E+04\r\n        0.3000       3.3333333E+00     2.2667010E+04    -3.8899805E-02     7.4510846E+02    -4.4087115E+02     2.2667010E+04\r\n        0.6000       1.6666666E+00     1.2272566E+04    -4.2526396E-03     8.0684601E+02    -2.6095400E+01     1.2272566E+04\r\n        0.9000       1.1111112E+00     8.1706685E+03    -3.6863666E-03     8.0575702E+02    -1.5060040E+01     8.1706685E+03\r\n        1.2000       8.3333331E-01     6.1264741E+03    -3.3270025E-03     8.0555621E+02    -1.0191398E+01     6.1264741E+03\r\n        1.5000       6.6666669E-01     4.8978418E+03    -4.2622117E-03     8.0500763E+02    -1.0437819E+01     4.8978418E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    6     SIGMA VALUE =    0.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.9898609E+04    -6.2749879E-03     7.6590082E+02    -2.1930646E+02     6.9898609E+04\r\n        0.2000       5.0000000E+00     3.5515133E+04    -6.5270462E-03     7.7830078E+02    -1.1590446E+02     3.5515133E+04\r\n        0.3000       3.3333333E+00     2.3515236E+04     7.5143322E-02     7.7299133E+02     8.8350647E+02     2.3515236E+04\r\n        0.6000       1.6666666E+00     1.3739351E+04    -5.6905162E-02     9.0327802E+02    -3.9091998E+02     1.3739351E+04\r\n        0.9000       1.1111112E+00     9.4859492E+03    -4.0690761E-02     9.3546448E+02    -1.9299525E+02     9.4859492E+03\r\n        1.2000       8.3333331E-01     7.1902539E+03    -3.4564465E-02     9.4543018E+02    -1.2426364E+02     7.1902539E+03\r\n        1.5000       6.6666669E-01     5.7985537E+03    -3.3646178E-02     9.5304828E+02    -9.7549583E+01     5.7985537E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    7     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4447952E+04    -1.3584130E+00     1.5831071E+02    -9.8131426E+03     1.4447952E+04\r\n        0.2000       5.0000000E+00     5.5837832E+03    -6.1568826E-02     1.2236651E+02    -1.7189349E+02     5.5837832E+03\r\n        0.3000       3.3333333E+00     3.5869927E+03    -5.3954463E-02     1.1791139E+02    -9.6767136E+01     3.5869927E+03\r\n        0.6000       1.6666666E+00     1.7630731E+03    -2.5941579E-02     1.1591125E+02    -2.2868450E+01     1.7630731E+03\r\n        0.9000       1.1111112E+00     1.1712765E+03    -1.7802557E-02     1.1550636E+02    -1.0425858E+01     1.1712765E+03\r\n        1.2000       8.3333331E-01     8.7725458E+02    -1.5052991E-02     1.1534823E+02    -6.6026525E+00     8.7725458E+02\r\n        1.5000       6.6666669E-01     7.0163501E+02    -1.6053015E-02     1.1532050E+02    -5.6316786E+00     7.0163501E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    8     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.5559391E+04    -1.7931104E-01     1.7048909E+02    -1.3949852E+03     1.5559391E+04\r\n        0.2000       5.0000000E+00     1.5412703E+04     1.8042478E-01     3.3776358E+02     1.3904167E+03     1.5412703E+04\r\n        0.3000       3.3333333E+00     9.6882637E+03    -4.9773194E-02     3.1847198E+02    -2.4110791E+02     9.6882637E+03\r\n        0.6000       1.6666666E+00     4.5884702E+03    -2.2176944E-02     3.0166379E+02    -5.0879124E+01     4.5884702E+03\r\n        0.9000       1.1111112E+00     3.0398684E+03    -1.5911946E-02     2.9977905E+02    -2.4185110E+01     3.0398684E+03\r\n        1.2000       8.3333331E-01     2.2750293E+03    -1.3747981E-02     2.9913846E+02    -1.5638530E+01     2.2750293E+03\r\n        1.5000       6.6666669E-01     1.8179467E+03    -1.5014366E-02     2.9879709E+02    -1.3647658E+01     1.8179467E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =    9     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.7399838E+04     9.4291705E-01     1.9065544E+02     8.2033018E+03     1.7399838E+04\r\n        0.2000       5.0000000E+00     1.5838678E+04    -5.8759284E-01     3.4709863E+02    -4.6533467E+03     1.5838678E+04\r\n        0.3000       3.3333333E+00     1.4408869E+04    -8.6303018E-02     4.7364743E+02    -6.2176447E+02     1.4408869E+04\r\n        0.6000       1.6666666E+00     8.4627275E+03    -4.7139965E-02     5.5637244E+02    -1.9946634E+02     8.4627275E+03\r\n        0.9000       1.1111112E+00     5.7751548E+03    -3.0581545E-02     5.6952148E+02    -8.8306580E+01     5.7751548E+03\r\n        1.2000       8.3333331E-01     4.3618945E+03    -2.5172578E-02     5.7353564E+02    -5.4900066E+01     4.3618945E+03\r\n        1.5000       6.6666669E-01     3.5014500E+03    -2.8129667E-02     5.7549713E+02    -4.9247311E+01     3.5014500E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   10     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.5367082E+04    -4.4467422E-01     4.9710126E+02    -1.0086786E+04     4.5367082E+04\r\n        0.2000       5.0000000E+00     2.8573613E+04    -4.1251895E-01     6.2617993E+02    -5.8935786E+03     2.8573613E+04\r\n        0.3000       3.3333333E+00     2.1865262E+04    -1.7643739E-01     7.1875342E+02    -1.9289249E+03     2.1865262E+04\r\n        0.6000       1.6666666E+00     1.0023521E+04    -2.2392318E-02     6.5898499E+02    -1.1222493E+02     1.0023521E+04\r\n        0.9000       1.1111112E+00     6.6451958E+03    -1.5864380E-02     6.5532129E+02    -5.2710953E+01     6.6451958E+03\r\n        1.2000       8.3333331E-01     4.9758940E+03    -1.3401648E-02     6.5426910E+02    -3.3342590E+01     4.9758940E+03\r\n        1.5000       6.6666669E-01     3.9774731E+03    -1.3505163E-02     6.5373621E+02    -2.6858212E+01     3.9774731E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   11     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.7292613E+04     4.7900623E-01     5.1819989E+02     1.1326729E+04     4.7292613E+04\r\n        0.2000       5.0000000E+00     3.1082039E+04     2.4922588E-01     6.8115112E+02     3.8732244E+03     3.1082039E+04\r\n        0.3000       3.3333333E+00     2.2567490E+04     5.4811798E-03     7.4183710E+02     6.1848236E+01     2.2567490E+04\r\n        0.6000       1.6666666E+00     1.2271604E+04    -4.2079766E-03     8.0678278E+02    -2.5819311E+01     1.2271604E+04\r\n        0.9000       1.1111112E+00     8.1697524E+03    -3.6966177E-03     8.0566663E+02    -1.5100225E+01     8.1697524E+03\r\n        1.2000       8.3333331E-01     6.1255591E+03    -3.3832015E-03     8.0543591E+02    -1.0362000E+01     6.1255591E+03\r\n        1.5000       6.6666669E-01     4.8978770E+03    -4.1551110E-03     8.0501343E+02    -1.0175611E+01     4.8978770E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   12     SIGMA VALUE =   36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.9086922E+04    -1.4860944E-02     7.5700690E+02    -5.1334845E+02     6.9086922E+04\r\n        0.2000       5.0000000E+00     3.5577559E+04    -6.9398033E-03     7.7966876E+02    -1.2345063E+02     3.5577559E+04\r\n        0.3000       3.3333333E+00     2.3476168E+04     5.5202238E-02     7.7170703E+02     6.4796851E+02     2.3476168E+04\r\n        0.6000       1.6666666E+00     1.3723325E+04    -6.0072768E-02     9.0222449E+02    -4.1219907E+02     1.3723325E+04\r\n        0.9000       1.1111112E+00     9.4831465E+03    -4.1231122E-02     9.3518811E+02    -1.9550038E+02     9.4831465E+03\r\n        1.2000       8.3333331E-01     7.1874961E+03    -3.3509701E-02     9.4506769E+02    -1.2042543E+02     7.1874961E+03\r\n        1.5000       6.6666669E-01     5.7806250E+03    -3.5886802E-02     9.5010162E+02    -1.0372408E+02     5.7806250E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   13     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2671934E+04    -1.3457757E+00     1.3885033E+02    -8.5267900E+03     1.2671934E+04\r\n        0.2000       5.0000000E+00     5.6929341E+03    -8.0977246E-02     1.2475850E+02    -2.3049907E+02     5.6929341E+03\r\n        0.3000       3.3333333E+00     3.6233438E+03    -4.2569898E-02     1.1910632E+02    -7.7122688E+01     3.6233438E+03\r\n        0.6000       1.6666666E+00     1.7640631E+03    -2.4808550E-02     1.1597633E+02    -2.1881924E+01     1.7640631E+03\r\n        0.9000       1.1111112E+00     1.1715580E+03    -1.7426711E-02     1.1553412E+02    -1.0208201E+01     1.1715580E+03\r\n        1.2000       8.3333331E-01     8.7738165E+02    -1.4879582E-02     1.1536493E+02    -6.5275364E+00     8.7738165E+02\r\n        1.5000       6.6666669E-01     7.0177606E+02    -1.6021198E-02     1.1534367E+02    -5.6216464E+00     7.0177606E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   14     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.5309077E+04     1.3145933E+00     1.6774632E+02     1.0062605E+04     1.5309077E+04\r\n        0.2000       5.0000000E+00     1.4550981E+04    -6.8416524E-01     3.1887927E+02    -4.9776377E+03     1.4550981E+04\r\n        0.3000       3.3333333E+00     9.4770693E+03    -4.9083158E-02     3.1152960E+02    -2.3258224E+02     9.4770693E+03\r\n        0.6000       1.6666666E+00     4.5934678E+03    -2.2332985E-02     3.0199234E+02    -5.1292923E+01     4.5934678E+03\r\n        0.9000       1.1111112E+00     3.0408435E+03    -1.6011860E-02     2.9987521E+02    -2.4344782E+01     3.0408435E+03\r\n        1.2000       8.3333331E-01     2.2753975E+03    -1.3880956E-02     2.9918686E+02    -1.5792346E+01     2.2753975E+03\r\n        1.5000       6.6666669E-01     1.8186007E+03    -1.5317811E-02     2.9890460E+02    -1.3928491E+01     1.8186007E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   15     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.5741630E+04    -3.0649740E-01     1.7248593E+02    -2.4123843E+03     1.5741630E+04\r\n        0.2000       5.0000000E+00     1.5008953E+04     2.8116891E-01     3.2891556E+02     2.1100254E+03     1.5008953E+04\r\n        0.3000       3.3333333E+00     1.4595369E+04    -2.3337741E-01     4.7977802E+02    -1.7031147E+03     1.4595369E+04\r\n        0.6000       1.6666666E+00     8.4754619E+03    -4.8226699E-02     5.5720966E+02    -2.0437178E+02     8.4754619E+03\r\n        0.9000       1.1111112E+00     5.7776050E+03    -3.0648964E-02     5.6976312E+02    -8.8538803E+01     5.7776050E+03\r\n        1.2000       8.3333331E-01     4.3625576E+03    -2.5039796E-02     5.7362286E+02    -5.4618774E+01     4.3625576E+03\r\n        1.5000       6.6666669E-01     3.5014504E+03    -2.8190995E-02     5.7549725E+02    -4.9354687E+01     3.5014504E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   16     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3453715E+04    -4.2606568E-01     4.7613589E+02    -9.2570684E+03     4.3453715E+04\r\n        0.2000       5.0000000E+00     2.7731979E+04    -4.2841977E-01     6.0773584E+02    -5.9404639E+03     2.7731979E+04\r\n        0.3000       3.3333333E+00     2.1665107E+04    -3.3776443E-02     7.1217401E+02    -3.6588513E+02     2.1665107E+04\r\n        0.6000       1.6666666E+00     1.0034267E+04    -2.3106834E-02     6.5969153E+02    -1.1593006E+02     1.0034267E+04\r\n        0.9000       1.1111112E+00     6.6469609E+03    -1.6051261E-02     6.5549536E+02    -5.3346054E+01     6.6469609E+03\r\n        1.2000       8.3333331E-01     4.9764365E+03    -1.3590402E-02     6.5434039E+02    -3.3815887E+01     4.9764365E+03\r\n        1.5000       6.6666669E-01     3.9797820E+03    -1.3508494E-02     6.5411560E+02    -2.6880430E+01     3.9797820E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   17     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.5746027E+04     3.9018682E-01     5.0125348E+02     8.9247480E+03     4.5746027E+04\r\n        0.2000       5.0000000E+00     2.9703070E+04     2.4856080E-01     6.5093158E+02     3.6915095E+03     2.9703070E+04\r\n        0.3000       3.3333333E+00     2.1735119E+04    -2.0776194E-01     7.1447546E+02    -2.2578652E+03     2.1735119E+04\r\n        0.6000       1.6666666E+00     1.2282941E+04    -6.0437820E-03     8.0752808E+02    -3.7117710E+01     1.2282941E+04\r\n        0.9000       1.1111112E+00     8.1714492E+03    -4.0837098E-03     8.0583398E+02    -1.6684914E+01     8.1714492E+03\r\n        1.2000       8.3333331E-01     6.1261782E+03    -3.5933137E-03     8.0551733E+02    -1.1006640E+01     6.1261782E+03\r\n        1.5000       6.6666669E-01     4.8989600E+03    -4.3967571E-03     8.0519141E+02    -1.0769769E+01     4.8989600E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   18     SIGMA VALUE =   72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.8248852E+04    -1.2709547E-02     7.4782391E+02    -4.3370599E+02     6.8248852E+04\r\n        0.2000       5.0000000E+00     3.5381344E+04    -2.1304036E-02     7.7536884E+02    -3.7688269E+02     3.5381344E+04\r\n        0.3000       3.3333333E+00     2.4254297E+04     8.7149050E-03     7.9728571E+02     1.0568694E+02     2.4254297E+04\r\n        0.6000       1.6666666E+00     1.3747295E+04    -6.2012583E-02     9.0380035E+02    -4.2625262E+02     1.3747295E+04\r\n        0.9000       1.1111112E+00     9.4886016E+03    -4.1521586E-02     9.3572601E+02    -1.9699089E+02     9.4886016E+03\r\n        1.2000       8.3333331E-01     7.1889746E+03    -3.3281438E-02     9.4526196E+02    -1.1962971E+02     7.1889746E+03\r\n        1.5000       6.6666669E-01     5.7792646E+03    -3.6849052E-02     9.4987799E+02    -1.0648021E+02     5.7792646E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   19     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2252807E+04    -1.3699723E+00     1.3425781E+02    -8.3930029E+03     1.2252807E+04\r\n        0.2000       5.0000000E+00     5.7280161E+03    -9.9010766E-02     1.2552731E+02    -2.8356763E+02     5.7280161E+03\r\n        0.3000       3.3333333E+00     3.6370042E+03    -5.5184085E-02     1.1955537E+02    -1.0035237E+02     3.6370042E+03\r\n        0.6000       1.6666666E+00     1.7659465E+03    -2.0978786E-02     1.1610016E+02    -1.8523706E+01     1.7659465E+03\r\n        0.9000       1.1111112E+00     1.1719982E+03    -1.6701730E-02     1.1557754E+02    -9.7871981E+00     1.1719982E+03\r\n        1.2000       8.3333331E-01     8.7768176E+02    -1.4644910E-02     1.1540439E+02    -6.4267850E+00     8.7768176E+02\r\n        1.5000       6.6666669E-01     7.0234564E+02    -1.6449220E-02     1.1543729E+02    -5.7765193E+00     7.0234564E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   20     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4973488E+04     1.2956945E+00     1.6406918E+02     9.7005332E+03     1.4973488E+04\r\n        0.2000       5.0000000E+00     1.4066110E+04    -7.0114726E-01     3.0825351E+02    -4.9312075E+03     1.4066110E+04\r\n        0.3000       3.3333333E+00     9.6760117E+03    -4.5205392E-02     3.1806924E+02    -2.1870395E+02     9.6760117E+03\r\n        0.6000       1.6666666E+00     4.6217925E+03    -2.6651977E-02     3.0385452E+02    -6.1589951E+01     4.6217925E+03\r\n        0.9000       1.1111112E+00     3.0431882E+03    -1.6068716E-02     3.0010645E+02    -2.4450062E+01     3.0431882E+03\r\n        1.2000       8.3333331E-01     2.2765801E+03    -1.4046920E-02     2.9934238E+02    -1.5989469E+01     2.2765801E+03\r\n        1.5000       6.6666669E-01     1.8199062E+03    -1.6201682E-02     2.9911917E+02    -1.4742771E+01     1.8199062E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   21     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6105439E+04    -3.1311771E-01     1.7647231E+02    -2.5214492E+03     1.6105439E+04\r\n        0.2000       5.0000000E+00     1.4802972E+04     3.2174534E-01     3.2440155E+02     2.3813936E+03     1.4802972E+04\r\n        0.3000       3.3333333E+00     1.3859030E+04    -2.2485614E-01     4.5557315E+02    -1.5581440E+03     1.3859030E+04\r\n        0.6000       1.6666666E+00     8.5383105E+03    -4.4031918E-02     5.6134155E+02    -1.8797910E+02     8.5383105E+03\r\n        0.9000       1.1111112E+00     5.7840576E+03    -3.0356167E-02     5.7039948E+02    -8.7790909E+01     5.7840576E+03\r\n        1.2000       8.3333331E-01     4.3649053E+03    -2.5173612E-02     5.7393152E+02    -5.4940216E+01     4.3649053E+03\r\n        1.5000       6.6666669E-01     3.5048064E+03    -2.9807882E-02     5.7604883E+02    -5.2235428E+01     3.5048064E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   22     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3269078E+04    -3.8313970E-01     4.7411273E+02    -8.2890508E+03     4.3269078E+04\r\n        0.2000       5.0000000E+00     2.7344904E+04    -4.2604810E-01     5.9925323E+02    -5.8251221E+03     2.7344904E+04\r\n        0.3000       3.3333333E+00     2.1257186E+04     5.6577686E-02     6.9876477E+02     6.0134119E+02     2.1257186E+04\r\n        0.6000       1.6666666E+00     1.0056589E+04    -3.2566570E-02     6.6115906E+02    -1.6375430E+02     1.0056589E+04\r\n        0.9000       1.1111112E+00     6.6518696E+03    -1.6243409E-02     6.5597943E+02    -5.4024521E+01     6.6518696E+03\r\n        1.2000       8.3333331E-01     4.9785376E+03    -1.3827791E-02     6.5461664E+02    -3.4421089E+01     4.9785376E+03\r\n        1.5000       6.6666669E-01     3.9814260E+03    -1.4818383E-02     6.5438586E+02    -2.9499149E+01     3.9814260E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   23     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.5286543E+04     3.4250781E-01     4.9621875E+02     7.7554976E+03     4.5286543E+04\r\n        0.2000       5.0000000E+00     2.9115756E+04     2.4098337E-01     6.3806079E+02     3.5082065E+03     2.9115756E+04\r\n        0.3000       3.3333333E+00     2.1336967E+04    -2.8829131E-01     7.0138739E+02    -3.0756309E+03     2.1336967E+04\r\n        0.6000       1.6666666E+00     1.2318629E+04    -1.9643491E-02     8.0987433E+02    -1.2099044E+02     1.2318629E+04\r\n        0.9000       1.1111112E+00     8.1766963E+03    -4.6892473E-03     8.0635144E+02    -1.9171276E+01     8.1766963E+03\r\n        1.2000       8.3333331E-01     6.1282026E+03    -3.9130254E-03     8.0578351E+02    -1.1989906E+01     6.1282026E+03\r\n        1.5000       6.6666669E-01     4.9005776E+03    -4.9640927E-03     8.0545728E+02    -1.2163461E+01     4.9005776E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   24     SIGMA VALUE =  108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.7724078E+04    -1.3220232E-02     7.4207379E+02    -4.4766400E+02     6.7724078E+04\r\n        0.2000       5.0000000E+00     3.5204707E+04    -2.5595754E-02     7.7149786E+02    -4.5054553E+02     3.5204707E+04\r\n        0.3000       3.3333333E+00     2.3938744E+04    -1.1502886E-02     7.8691284E+02    -1.3768233E+02     2.3938744E+04\r\n        0.6000       1.6666666E+00     1.3910005E+04    -5.9400242E-02     9.1449750E+02    -4.1312881E+02     1.3910005E+04\r\n        0.9000       1.1111112E+00     9.5027363E+03    -4.1285258E-02     9.3712000E+02    -1.9616145E+02     9.5027363E+03\r\n        1.2000       8.3333331E-01     7.1942261E+03    -3.3457566E-02     9.4595251E+02    -1.2035065E+02     7.1942261E+03\r\n        1.5000       6.6666669E-01     5.7842480E+03    -3.7408363E-02     9.5069708E+02    -1.0818962E+02     5.7842480E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   25     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2034591E+04    -1.4122944E+00     1.3186676E+02    -8.4981924E+03     1.2034591E+04\r\n        0.2000       5.0000000E+00     5.7407241E+03    -9.8742098E-02     1.2580581E+02    -2.8342557E+02     5.7407241E+03\r\n        0.3000       3.3333333E+00     3.6406775E+03    -5.6337859E-02     1.1967611E+02    -1.0255399E+02     3.6406775E+03\r\n        0.6000       1.6666666E+00     1.7718593E+03    -2.3815529E-02     1.1648888E+02    -2.1098883E+01     1.7718593E+03\r\n        0.9000       1.1111112E+00     1.1726283E+03    -1.5364544E-02     1.1563968E+02    -9.0084496E+00     1.1726283E+03\r\n        1.2000       8.3333331E-01     8.7825952E+02    -1.4363887E-02     1.1548036E+02    -6.3076100E+00     8.7825952E+02\r\n        1.5000       6.6666669E-01     7.0409180E+02    -9.5431609E-03     1.1572430E+02    -3.3596306E+00     7.0409180E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   26     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4743643E+04     1.2739272E+00     1.6155067E+02     9.3911641E+03     1.4743643E+04\r\n        0.2000       5.0000000E+00     1.3980070E+04    -7.0325041E-01     3.0636798E+02    -4.9157451E+03     1.3980070E+04\r\n        0.3000       3.3333333E+00     9.6562969E+03    -5.3072240E-02     3.1742117E+02    -2.5624066E+02     9.6562969E+03\r\n        0.6000       1.6666666E+00     4.5838062E+03    -3.3088017E-02     3.0135715E+02    -7.5834526E+01     4.5838062E+03\r\n        0.9000       1.1111112E+00     3.0481304E+03    -1.5422772E-02     3.0059381E+02    -2.3505310E+01     3.0481304E+03\r\n        1.2000       8.3333331E-01     2.2788464E+03    -1.4028901E-02     2.9964035E+02    -1.5984856E+01     2.2788464E+03\r\n        1.5000       6.6666669E-01     1.8209119E+03    -1.4092673E-02     2.9928445E+02    -1.2830757E+01     1.8209119E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   27     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6223512E+04    -3.3666363E-01     1.7776607E+02    -2.7309331E+03     1.6223512E+04\r\n        0.2000       5.0000000E+00     1.4796883E+04     3.1441724E-01     3.2426813E+02     2.3261975E+03     1.4796883E+04\r\n        0.3000       3.3333333E+00     1.3824695E+04    -2.2590886E-01     4.5444449E+02    -1.5615605E+03     1.3824695E+04\r\n        0.6000       1.6666666E+00     8.5414990E+03    -8.1331745E-02     5.6155115E+02    -3.4734750E+02     8.5414990E+03\r\n        0.9000       1.1111112E+00     5.7965674E+03    -2.9131075E-02     5.7163312E+02    -8.4430122E+01     5.7965674E+03\r\n        1.2000       8.3333331E-01     4.3696367E+03    -2.6045017E-02     5.7455365E+02    -5.6903629E+01     4.3696367E+03\r\n        1.5000       6.6666669E-01     3.5356060E+03    -2.2535997E-02     5.8111102E+02    -3.9839203E+01     3.5356060E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   28     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3251621E+04    -3.6823139E-01     4.7392148E+02    -7.9633022E+03     4.3251621E+04\r\n        0.2000       5.0000000E+00     2.7187646E+04    -4.2134711E-01     5.9580701E+02    -5.7277183E+03     2.7187646E+04\r\n        0.3000       3.3333333E+00     2.1212922E+04    -2.8545216E-01     6.9730981E+02    -3.0276372E+03     2.1212922E+04\r\n        0.6000       1.6666666E+00     1.0007483E+04    -4.0475238E-02     6.5793066E+02    -2.0252763E+02     1.0007483E+04\r\n        0.9000       1.1111112E+00     6.6624341E+03    -1.6223989E-02     6.5702124E+02    -5.4045631E+01     6.6624341E+03\r\n        1.2000       8.3333331E-01     4.9826479E+03    -1.3980291E-02     6.5515710E+02    -3.4829433E+01     4.9826479E+03\r\n        1.5000       6.6666669E-01     3.9895032E+03    -1.2605600E-02     6.5571344E+02    -2.5145041E+01     3.9895032E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   29     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.4582039E+04     3.0785370E-01     4.8849930E+02     6.8623726E+03     4.4582039E+04\r\n        0.2000       5.0000000E+00     2.9067182E+04     2.2373438E-01     6.3699634E+02     3.2516638E+03     2.9067182E+04\r\n        0.3000       3.3333333E+00     2.1220684E+04     4.8839945E-02     6.9756494E+02     5.1820850E+02     2.1220684E+04\r\n        0.6000       1.6666666E+00     1.2228402E+04    -2.1673962E-02     8.0394244E+02    -1.3251897E+02     1.2228402E+04\r\n        0.9000       1.1111112E+00     8.1885610E+03    -5.1765549E-03     8.0752148E+02    -2.1194267E+01     8.1885610E+03\r\n        1.2000       8.3333331E-01     6.1317939E+03    -4.1639223E-03     8.0625568E+02    -1.2766156E+01     6.1317939E+03\r\n        1.5000       6.6666669E-01     4.9047632E+03    -4.7580763E-03     8.0614520E+02    -1.1668619E+01     4.9047632E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   30     SIGMA VALUE =  144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.7364750E+04    -1.3208159E-02     7.3813654E+02    -4.4488217E+02     6.7364750E+04\r\n        0.2000       5.0000000E+00     3.5138754E+04    -2.8206469E-02     7.7005255E+02    -4.9557010E+02     3.5138754E+04\r\n        0.3000       3.3333333E+00     2.3937336E+04    -1.6255092E-02     7.8686658E+02    -1.9455180E+02     2.3937336E+04\r\n        0.6000       1.6666666E+00     1.3924932E+04    -9.5751628E-02     9.1547888E+02    -6.6666742E+02     1.3924932E+04\r\n        0.9000       1.1111112E+00     9.5291904E+03    -3.9623339E-02     9.3972876E+02    -1.8878917E+02     9.5291904E+03\r\n        1.2000       8.3333331E-01     7.2044727E+03    -3.4562703E-02     9.4729980E+02    -1.2450302E+02     7.2044727E+03\r\n        1.5000       6.6666669E-01     5.8265269E+03    -2.5071621E-02     9.5764600E+02    -7.3040237E+01     5.8265269E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   31     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2018054E+04    -1.4647822E+00     1.3168556E+02    -8.8019160E+03     1.2018054E+04\r\n        0.2000       5.0000000E+00     5.7505557E+03    -9.2623129E-02     1.2602126E+02    -2.6631723E+02     5.7505557E+03\r\n        0.3000       3.3333333E+00     3.6413464E+03    -5.4471526E-02     1.1969810E+02    -9.9174850E+01     3.6413464E+03\r\n        0.6000       1.6666666E+00     1.7714326E+03    -2.6083395E-02     1.1646084E+02    -2.3102488E+01     1.7714326E+03\r\n        0.9000       1.1111112E+00     1.1757810E+03    -1.4522381E-02     1.1595058E+02    -8.5375700E+00     1.1757810E+03\r\n        1.2000       8.3333331E-01     8.8092065E+02    -1.1408536E-02     1.1583027E+02    -5.0250072E+00     8.8092065E+02\r\n        1.5000       6.6666669E-01     7.0210345E+02    -7.6789884E-03     1.1539748E+02    -2.6957221E+00     7.0210345E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   32     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4736647E+04     1.2332238E+00     1.6147404E+02     9.0867920E+03     1.4736647E+04\r\n        0.2000       5.0000000E+00     1.4060709E+04    -7.1266466E-01     3.0813513E+02    -5.0102852E+03     1.4060709E+04\r\n        0.3000       3.3333333E+00     9.6324990E+03    -5.3740475E-02     3.1663889E+02    -2.5882755E+02     9.6324990E+03\r\n        0.6000       1.6666666E+00     4.5912993E+03    -3.2191496E-02     3.0184979E+02    -7.3900398E+01     4.5912993E+03\r\n        0.9000       1.1111112E+00     3.0591824E+03    -2.5279399E-02     3.0168372E+02    -3.8667145E+01     3.0591824E+03\r\n        1.2000       8.3333331E-01     2.2843101E+03    -8.5577266E-03     3.0035876E+02    -9.7742500E+00     2.2843101E+03\r\n        1.5000       6.6666669E-01     1.8238997E+03    -9.4578490E-03     2.9977554E+02    -8.6250839E+00     1.8238997E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   33     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6196812E+04    -3.3872527E-01     1.7747351E+02    -2.7431348E+03     1.6196812E+04\r\n        0.2000       5.0000000E+00     1.4804365E+04     2.8796333E-01     3.2443207E+02     2.1315571E+03     1.4804365E+04\r\n        0.3000       3.3333333E+00     1.3907521E+04    -2.3520614E-01     4.5716711E+02    -1.6355671E+03     1.3907521E+04\r\n        0.6000       1.6666666E+00     8.4949873E+03    -8.1041574E-02     5.5849335E+02    -3.4422357E+02     8.4949873E+03\r\n        0.9000       1.1111112E+00     5.8421650E+03    -3.6254607E-02     5.7612976E+02    -1.0590269E+02     5.8421650E+03\r\n        1.2000       8.3333331E-01     4.3984385E+03    -3.2942012E-02     5.7834076E+02    -7.2446709E+01     4.3984385E+03\r\n        1.5000       6.6666669E-01     3.5176021E+03    -1.2412227E-02     5.7815192E+02    -2.1830637E+01     3.5176021E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   34     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3316273E+04    -3.6790803E-01     4.7462988E+02    -7.9682021E+03     4.3316273E+04\r\n        0.2000       5.0000000E+00     2.7160957E+04    -4.2774615E-01     5.9522211E+02    -5.8089976E+03     2.7160957E+04\r\n        0.3000       3.3333333E+00     2.1154170E+04     3.8517881E-02     6.9537854E+02     4.0740692E+02     2.1154170E+04\r\n        0.6000       1.6666666E+00     1.0020969E+04    -3.3605058E-02     6.5881726E+02    -1.6837761E+02     1.0020969E+04\r\n        0.9000       1.1111112E+00     6.6851348E+03    -1.9382758E-02     6.5925989E+02    -6.4788177E+01     6.6851348E+03\r\n        1.2000       8.3333331E-01     4.9947246E+03    -1.0736267E-02     6.5674506E+02    -2.6812349E+01     4.9947246E+03\r\n        1.5000       6.6666669E-01     3.9847893E+03    -9.8145353E-03     6.5493866E+02    -1.9554428E+01     3.9847893E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   35     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.4258535E+04     2.8710851E-01     4.8495453E+02     6.3535010E+03     4.4258535E+04\r\n        0.2000       5.0000000E+00     2.9099713E+04     2.0542969E-01     6.3770923E+02     2.9889724E+03     2.9099713E+04\r\n        0.3000       3.3333333E+00     2.1285863E+04    -2.8754613E-01     6.9970752E+02    -3.0603337E+03     2.1285863E+04\r\n        0.6000       1.6666666E+00     1.2227900E+04    -1.9097710E-02     8.0390948E+02    -1.1676244E+02     1.2227900E+04\r\n        0.9000       1.1111112E+00     8.2060010E+03    -1.1695471E-02     8.0924133E+02    -4.7986523E+01     8.2060010E+03\r\n        1.2000       8.3333331E-01     6.1370337E+03    -3.2699974E-03     8.0694470E+02    -1.0034042E+01     6.1370337E+03\r\n        1.5000       6.6666669E-01     4.9090635E+03    -3.5988879E-03     8.0685205E+02    -8.8335848E+00     4.9090635E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   36     SIGMA VALUE =  180.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.7246844E+04    -1.4672889E-02     7.3684460E+02    -4.9335275E+02     6.7246844E+04\r\n        0.2000       5.0000000E+00     3.5131770E+04    -3.0824471E-02     7.6989948E+02    -5.4145911E+02     3.5131770E+04\r\n        0.3000       3.3333333E+00     2.3956881E+04    -1.8448625E-02     7.8750903E+02    -2.2098576E+02     2.3956881E+04\r\n        0.6000       1.6666666E+00     1.3789546E+04    -1.1044168E-01     9.0657806E+02    -7.6147034E+02     1.3789546E+04\r\n        0.9000       1.1111112E+00     9.6128740E+03    -5.0214902E-02     9.4798120E+02    -2.4135477E+02     9.6128740E+03\r\n        1.2000       8.3333331E-01     7.2789443E+03    -4.4583727E-02     9.5709192E+02    -1.6226123E+02     7.2789443E+03\r\n        1.5000       6.6666669E-01     5.8114731E+03    -1.7697234E-02     9.5517181E+02    -5.1423500E+01     5.8114731E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   37     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2149115E+04    -1.5193961E+00     1.3312163E+02    -9.2296592E+03     1.2149115E+04\r\n        0.2000       5.0000000E+00     5.7463486E+03    -8.2804747E-02     1.2592906E+02    -2.3791248E+02     5.7463486E+03\r\n        0.3000       3.3333333E+00     3.6374746E+03    -5.0743010E-02     1.1957083E+02    -9.2288208E+01     3.6374746E+03\r\n        0.6000       1.6666666E+00     1.7704917E+03    -2.5977857E-02     1.1639897E+02    -2.2996790E+01     1.7704917E+03\r\n        0.9000       1.1111112E+00     1.1781042E+03    -1.5698291E-02     1.1617970E+02    -9.2471123E+00     1.1781042E+03\r\n        1.2000       8.3333331E-01     8.7815326E+02    -8.2703354E-03     1.1546638E+02    -3.6313112E+00     8.7815326E+02\r\n        1.5000       6.6666669E-01     7.0178345E+02    -8.5511021E-03     1.1534489E+02    -3.0005109E+00     7.0178345E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   38     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4911699E+04     1.1658663E+00     1.6339214E+02     8.6925234E+03     1.4911699E+04\r\n        0.2000       5.0000000E+00     1.4292197E+04    -7.3335010E-01     3.1320810E+02    -5.2405923E+03     1.4292197E+04\r\n        0.3000       3.3333333E+00     9.6122139E+03    -5.0616998E-02     3.1597208E+02    -2.4327071E+02     9.6122139E+03\r\n        0.6000       1.6666666E+00     4.5904517E+03    -3.3051744E-02     3.0179404E+02    -7.5861214E+01     4.5904517E+03\r\n        0.9000       1.1111112E+00     3.0573357E+03    -2.2432202E-02     3.0150159E+02    -3.4291386E+01     3.0573357E+03\r\n        1.2000       8.3333331E-01     2.2825869E+03    -9.2949122E-03     3.0013220E+02    -1.0608223E+01     2.2825869E+03\r\n        1.5000       6.6666669E-01     1.8221364E+03    -8.9912312E-03     2.9948572E+02    -8.1916246E+00     1.8221364E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   39     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6245481E+04    -3.1851399E-01     1.7800681E+02    -2.5872065E+03     1.6245481E+04\r\n        0.2000       5.0000000E+00     1.4802023E+04     2.6482171E-01     3.2438077E+02     1.9599486E+03     1.4802023E+04\r\n        0.3000       3.3333333E+00     1.4080546E+04    -2.4236734E-01     4.6285480E+02    -1.7063323E+03     1.4080546E+04\r\n        0.6000       1.6666666E+00     8.4974189E+03    -7.8333840E-02     5.5865320E+02    -3.3281772E+02     8.4974189E+03\r\n        0.9000       1.1111112E+00     5.8517861E+03    -5.4791689E-02     5.7707855E+02    -1.6031462E+02     5.8517861E+03\r\n        1.2000       8.3333331E-01     4.3914526E+03    -1.3091579E-02     5.7742218E+02    -2.8745525E+01     4.3914526E+03\r\n        1.5000       6.6666669E-01     3.5138081E+03    -1.2588724E-02     5.7752832E+02    -2.2117182E+01     3.5138081E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   40     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3429305E+04    -3.7900612E-01     4.7586844E+02    -8.2299863E+03     4.3429305E+04\r\n        0.2000       5.0000000E+00     2.7269820E+04    -4.4446799E-01     5.9760785E+02    -6.0602812E+03     2.7269820E+04\r\n        0.3000       3.3333333E+00     2.1106150E+04     2.8976481E-02     6.9379999E+02     3.0579099E+02     2.1106150E+04\r\n        0.6000       1.6666666E+00     1.0020248E+04    -3.5038937E-02     6.5876984E+02    -1.7554942E+02     1.0020248E+04\r\n        0.9000       1.1111112E+00     6.6826357E+03    -2.4255380E-02     6.5901349E+02    -8.1044937E+01     6.6826357E+03\r\n        1.2000       8.3333331E-01     4.9876699E+03    -1.0231114E-02     6.5581744E+02    -2.5514709E+01     4.9876699E+03\r\n        1.5000       6.6666669E-01     3.9844724E+03    -9.0796845E-03     6.5488654E+02    -1.8088877E+01     3.9844724E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   41     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.4368277E+04     2.7318969E-01     4.8615701E+02     6.0604780E+03     4.4368277E+04\r\n        0.2000       5.0000000E+00     2.9196070E+04     1.9623849E-01     6.3982086E+02     2.8646963E+03     2.9196070E+04\r\n        0.3000       3.3333333E+00     2.1512654E+04    -2.9007503E-01     7.0716254E+02    -3.1201421E+03     2.1512654E+04\r\n        0.6000       1.6666666E+00     1.2231211E+04    -1.9283570E-02     8.0412714E+02    -1.1793071E+02     1.2231211E+04\r\n        0.9000       1.1111112E+00     8.2005752E+03    -1.2823438E-02     8.0870630E+02    -5.2579784E+01     8.2005752E+03\r\n        1.2000       8.3333331E-01     6.1405278E+03    -3.0012310E-03     8.0740411E+02    -9.2145710E+00     6.1405278E+03\r\n        1.5000       6.6666669E-01     4.9082427E+03    -2.4433206E-03     8.0671716E+02    -5.9962053E+00     4.9082427E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   42     SIGMA VALUE = -144.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.7357469E+04    -1.8429851E-02     7.3805676E+02    -6.2069409E+02     6.7357469E+04\r\n        0.2000       5.0000000E+00     3.5189297E+04    -3.2094859E-02     7.7116016E+02    -5.6469775E+02     3.5189297E+04\r\n        0.3000       3.3333333E+00     2.3997832E+04    -1.7043475E-02     7.8885516E+02    -2.0450322E+02     2.3997832E+04\r\n        0.6000       1.6666666E+00     1.3792509E+04    -1.0411057E-01     9.0677295E+02    -7.1797296E+02     1.3792509E+04\r\n        0.9000       1.1111112E+00     9.6643262E+03    -6.6531964E-02     9.5305524E+02    -3.2149329E+02     9.6643262E+03\r\n        1.2000       8.3333331E-01     7.2477544E+03    -1.8258270E-02     9.5299084E+02    -6.6165726E+01     7.2477544E+03\r\n        1.5000       6.6666669E-01     5.8015947E+03    -1.7238006E-02     9.5354822E+02    -5.0003960E+01     5.8015947E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   43     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.2435362E+04    -1.5916708E+00     1.3625813E+02    -9.8965010E+03     1.2435362E+04\r\n        0.2000       5.0000000E+00     5.7091938E+03    -6.8227127E-02     1.2511482E+02    -1.9476094E+02     5.7091938E+03\r\n        0.3000       3.3333333E+00     3.6283010E+03    -4.6227116E-02     1.1926927E+02    -8.3862946E+01     3.6283010E+03\r\n        0.6000       1.6666666E+00     1.7709509E+03    -2.4620270E-02     1.1642916E+02    -2.1800646E+01     1.7709509E+03\r\n        0.9000       1.1111112E+00     1.1724193E+03    -1.2641094E-02     1.1561906E+02    -7.4103312E+00     1.1724193E+03\r\n        1.2000       8.3333331E-01     8.7915082E+02    -1.1642281E-02     1.1559756E+02    -5.1176605E+00     8.7915082E+02\r\n        1.5000       6.6666669E-01     7.0183374E+02    -8.8257184E-03     1.1535316E+02    -3.0970933E+00     7.0183374E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   44     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.5268947E+04     1.0752318E+00     1.6730661E+02     8.2088291E+03     1.5268947E+04\r\n        0.2000       5.0000000E+00     1.4732673E+04    -7.4066955E-01     3.2286096E+02    -5.4560210E+03     1.4732673E+04\r\n        0.3000       3.3333333E+00     9.5928389E+03    -4.5765389E-02     3.1533517E+02    -2.1950999E+02     9.5928389E+03\r\n        0.6000       1.6666666E+00     4.5945107E+03    -3.1605367E-02     3.0206091E+02    -7.2605598E+01     4.5945107E+03\r\n        0.9000       1.1111112E+00     3.0548428E+03    -1.4067507E-02     3.0125577E+02    -2.1487011E+01     3.0548428E+03\r\n        1.2000       8.3333331E-01     2.2794443E+03    -1.2287110E-02     2.9971896E+02    -1.4003892E+01     2.2794443E+03\r\n        1.5000       6.6666669E-01     1.8219834E+03    -9.0963431E-03     2.9946057E+02    -8.2866926E+00     1.8219834E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   45     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6315786E+04    -2.7811119E-01     1.7877715E+02    -2.2688013E+03     1.6315786E+04\r\n        0.2000       5.0000000E+00     1.4885069E+04     2.4324778E-01     3.2620068E+02     1.8103800E+03     1.4885069E+04\r\n        0.3000       3.3333333E+00     1.4338377E+04    -2.4040562E-01     4.7133017E+02    -1.7235132E+03     1.4338377E+04\r\n        0.6000       1.6666666E+00     8.5205430E+03    -8.2011297E-02     5.6017346E+02    -3.4939038E+02     8.5205430E+03\r\n        0.9000       1.1111112E+00     5.8225190E+03    -2.4940865E-02     5.7419238E+02    -7.2609329E+01     5.8225190E+03\r\n        1.2000       8.3333331E-01     4.3996538E+03    -2.3859015E-02     5.7850055E+02    -5.2485703E+01     4.3996538E+03\r\n        1.5000       6.6666669E-01     3.5144866E+03    -1.2074880E-02     5.7763983E+02    -2.1218502E+01     3.5144866E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   46     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3379559E+04    -4.1513920E-01     4.7532333E+02    -9.0042773E+03     4.3379559E+04\r\n        0.2000       5.0000000E+00     2.7596609E+04    -4.6183568E-01     6.0476929E+02    -6.3725493E+03     2.7596609E+04\r\n        0.3000       3.3333333E+00     2.1090596E+04     1.9699376E-02     6.9328870E+02     2.0773579E+02     2.1090596E+04\r\n        0.6000       1.6666666E+00     1.0032786E+04    -3.3620328E-02     6.5959418E+02    -1.6865277E+02     1.0032786E+04\r\n        0.9000       1.1111112E+00     6.6644980E+03    -1.6440250E-02     6.5722479E+02    -5.4783009E+01     6.6644980E+03\r\n        1.2000       8.3333331E-01     4.9904473E+03    -1.5350379E-02     6.5618262E+02    -3.8302628E+01     4.9904473E+03\r\n        1.5000       6.6666669E-01     3.9838076E+03    -9.0162074E-03     6.5477728E+02    -1.7959417E+01     3.9838076E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   47     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.5011367E+04     2.7371800E-01     4.9320355E+02     6.1602109E+03     4.5011367E+04\r\n        0.2000       5.0000000E+00     2.9425006E+04     1.9476236E-01     6.4483795E+02     2.8654419E+03     2.9425006E+04\r\n        0.3000       3.3333333E+00     2.1889336E+04    -2.8821367E-01     7.1954486E+02    -3.1544028E+03     2.1889336E+04\r\n        0.6000       1.6666666E+00     1.2246078E+04    -1.8755430E-02     8.0510455E+02    -1.1484023E+02     1.2246078E+04\r\n        0.9000       1.1111112E+00     8.2016475E+03    -6.9559128E-03     8.0881201E+02    -2.8524973E+01     8.2016475E+03\r\n        1.2000       8.3333331E-01     6.1372168E+03    -4.0106410E-03     8.0696881E+02    -1.2307087E+01     6.1372168E+03\r\n        1.5000       6.6666669E-01     4.9073315E+03    -2.2399714E-03     8.0656738E+02    -5.4961410E+00     4.9073315E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   48     SIGMA VALUE = -108.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.7709242E+04    -2.4194404E-02     7.4191125E+02    -8.1909241E+02     6.7709242E+04\r\n        0.2000       5.0000000E+00     3.5318387E+04    -3.0507866E-02     7.7398907E+02    -5.3874432E+02     3.5318387E+04\r\n        0.3000       3.3333333E+00     2.4061289E+04    -1.1111176E-02     7.9094116E+02    -1.3367461E+02     2.4061289E+04\r\n        0.6000       1.6666666E+00     1.3841004E+04    -1.0955799E-01     9.0996112E+02    -7.5819629E+02     1.3841004E+04\r\n        0.9000       1.1111112E+00     9.6144072E+03    -3.2583281E-02     9.4813239E+02    -1.5663446E+02     9.6144072E+03\r\n        1.2000       8.3333331E-01     7.2407612E+03    -2.4183104E-02     9.5207135E+02    -8.7552040E+01     7.2407612E+03\r\n        1.5000       6.6666669E-01     5.8015366E+03    -1.6607253E-02     9.5353857E+02    -4.8173794E+01     5.8015366E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   49     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.3189752E+04    -1.6340021E+00     1.4452422E+02    -1.0776041E+04     1.3189752E+04\r\n        0.2000       5.0000000E+00     5.6617065E+03    -5.6884371E-02     1.2407416E+02    -1.6103131E+02     5.6617065E+03\r\n        0.3000       3.3333333E+00     3.6155383E+03    -4.2231567E-02     1.1884974E+02    -7.6344925E+01     3.6155383E+03\r\n        0.6000       1.6666666E+00     1.7627212E+03    -1.9327134E-02     1.1588811E+02    -1.7034174E+01     1.7627212E+03\r\n        0.9000       1.1111112E+00     1.1714983E+03    -1.6396929E-02     1.1552824E+02    -9.6044874E+00     1.1714983E+03\r\n        1.2000       8.3333331E-01     8.7808612E+02    -1.4264142E-02     1.1545756E+02    -6.2625728E+00     8.7808612E+02\r\n        1.5000       6.6666669E-01     7.0309186E+02    -9.0784580E-03     1.1555994E+02    -3.1914949E+00     7.0309186E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   50     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6086229E+04    -1.6479269E-01     1.7626183E+02    -1.3254465E+03     1.6086229E+04\r\n        0.2000       5.0000000E+00     1.4977309E+04     2.0936607E-01     3.2822205E+02     1.5678701E+03     1.4977309E+04\r\n        0.3000       3.3333333E+00     9.5810059E+03    -4.0443256E-02     3.1494620E+02    -1.9374355E+02     9.5810059E+03\r\n        0.6000       1.6666666E+00     4.6133818E+03    -2.7233260E-02     3.0330157E+02    -6.2818714E+01     4.6133818E+03\r\n        0.9000       1.1111112E+00     3.0445593E+03    -1.5801383E-02     3.0024164E+02    -2.4054123E+01     3.0445593E+03\r\n        1.2000       8.3333331E-01     2.2778215E+03    -1.2448344E-02     2.9950562E+02    -1.4177553E+01     2.2778215E+03\r\n        1.5000       6.6666669E-01     1.8249135E+03    -1.3792669E-02     2.9994217E+02    -1.2585214E+01     1.8249135E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   51     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.6251964E+04     9.3829387E-01     1.7807784E+02     7.6245591E+03     1.6251964E+04\r\n        0.2000       5.0000000E+00     1.5493243E+04    -7.3289806E-01     3.3952856E+02    -5.6774839E+03     1.5493243E+04\r\n        0.3000       3.3333333E+00     1.4636427E+04    -2.2725730E-01     4.8112766E+02    -1.6631174E+03     1.4636427E+04\r\n        0.6000       1.6666666E+00     8.5865439E+03    -3.6593065E-02     5.6451263E+02    -1.5710397E+02     8.5865439E+03\r\n        0.9000       1.1111112E+00     5.7920205E+03    -2.9228112E-02     5.7118475E+02    -8.4644913E+01     5.7920205E+03\r\n        1.2000       8.3333331E-01     4.3765142E+03    -2.7147504E-02     5.7545795E+02    -5.9405716E+01     4.3765142E+03\r\n        1.5000       6.6666669E-01     3.5304473E+03    -1.3414448E-02     5.8026312E+02    -2.3679501E+01     3.5304473E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   52     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.3304164E+04    -4.6969038E-01     4.7449722E+02    -1.0169774E+04     4.3304164E+04\r\n        0.2000       5.0000000E+00     2.8122396E+04    -4.8383367E-01     6.1629175E+02    -6.8032812E+03     2.8122396E+04\r\n        0.3000       3.3333333E+00     2.1119998E+04     1.1239297E-02     6.9425519E+02     1.1868697E+02     2.1119998E+04\r\n        0.6000       1.6666666E+00     1.0034708E+04    -3.1478625E-02     6.5972058E+02    -1.5793941E+02     1.0034708E+04\r\n        0.9000       1.1111112E+00     6.6556528E+03    -1.5919261E-02     6.5635254E+02    -5.2976536E+01     6.6556528E+03\r\n        1.2000       8.3333331E-01     4.9777832E+03    -1.3437344E-02     6.5451746E+02    -3.3444092E+01     4.9777832E+03\r\n        1.5000       6.6666669E-01     3.9867217E+03    -9.5616961E-03     6.5525623E+02    -1.9059910E+01     3.9867217E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   53     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.6541574E+04     2.9133764E-01     5.0997055E+02     6.7796562E+03     4.6541574E+04\r\n        0.2000       5.0000000E+00     2.9746641E+04     1.9824156E-01     6.5188641E+02     2.9485103E+03     2.9746641E+04\r\n        0.3000       3.3333333E+00     2.2361945E+04    -2.7927700E-01     7.3508044E+02    -3.1225884E+03     2.2361945E+04\r\n        0.6000       1.6666666E+00     1.2309744E+04    -1.8668661E-02     8.0929022E+02    -1.1490322E+02     1.2309744E+04\r\n        0.9000       1.1111112E+00     8.1819609E+03    -4.6312856E-03     8.0687061E+02    -1.8946499E+01     8.1819609E+03\r\n        1.2000       8.3333331E-01     6.1303335E+03    -3.6214429E-03     8.0606366E+02    -1.1100327E+01     6.1303335E+03\r\n        1.5000       6.6666669E-01     4.9073179E+03    -3.9248280E-03     8.0656512E+02    -9.6301889E+00     4.9073179E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   54     SIGMA VALUE =  -72.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.8376383E+04    -3.0201297E-02     7.4922131E+02    -1.0325277E+03     6.8376383E+04\r\n        0.2000       5.0000000E+00     3.5479234E+04    -2.6045924E-02     7.7751404E+02    -4.6204471E+02     3.5479234E+04\r\n        0.3000       3.3333333E+00     2.4138746E+04     4.8814077E-04     7.9348730E+02     5.8915529E+00     2.4138746E+04\r\n        0.6000       1.6666666E+00     1.4070352E+04    -4.7369231E-02     9.2503931E+02    -3.3325085E+02     1.4070352E+04\r\n        0.9000       1.1111112E+00     9.5225283E+03    -3.9256126E-02     9.3907172E+02    -1.8690878E+02     9.5225283E+03\r\n        1.2000       8.3333331E-01     7.2302217E+03    -3.2334395E-02     9.5068555E+02    -1.1689243E+02     7.2302217E+03\r\n        1.5000       6.6666669E-01     5.8219409E+03    -2.1254092E-02     9.5689227E+02    -6.1870033E+01     5.8219409E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   55     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.4347865E+04    -1.6293709E+00     1.5721402E+02    -1.1688997E+04     1.4347865E+04\r\n        0.2000       5.0000000E+00     5.5410112E+03    -4.9495414E-02     1.2142917E+02    -1.3712732E+02     5.5410112E+03\r\n        0.3000       3.3333333E+00     3.5680696E+03    -4.0610567E-02     1.1728935E+02    -7.2450661E+01     3.5680696E+03\r\n        0.6000       1.6666666E+00     1.7619291E+03    -2.4715815E-02     1.1583604E+02    -2.1773756E+01     1.7619291E+03\r\n        0.9000       1.1111112E+00     1.1711841E+03    -1.7439686E-02     1.1549725E+02    -1.0212542E+01     1.1711841E+03\r\n        1.2000       8.3333331E-01     8.7748682E+02    -1.4965629E-02     1.1537876E+02    -6.5660710E+00     8.7748682E+02\r\n        1.5000       6.6666669E-01     7.0263287E+02    -1.5055948E-02     1.1548451E+02    -5.2894020E+00     7.0263287E+02\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   56     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.5187794E+04    -8.9988828E-02     1.6641739E+02    -6.8336591E+02     1.5187794E+04\r\n        0.2000       5.0000000E+00     1.5960100E+04     1.6102764E-01     3.4975955E+02     1.2850085E+03     1.5960100E+04\r\n        0.3000       3.3333333E+00     9.6273711E+03    -7.3432103E-02     3.1647031E+02    -3.5347906E+02     9.6273711E+03\r\n        0.6000       1.6666666E+00     4.5899473E+03    -2.2880731E-02     3.0176089E+02    -5.2510674E+01     4.5899473E+03\r\n        0.9000       1.1111112E+00     3.0414392E+03    -1.5995786E-02     2.9993396E+02    -2.4325106E+01     3.0414392E+03\r\n        1.2000       8.3333331E-01     2.2764275E+03    -1.3380774E-02     2.9932230E+02    -1.5230181E+01     2.2764275E+03\r\n        1.5000       6.6666669E-01     1.8181718E+03    -1.5341978E-02     2.9883411E+02    -1.3947175E+01     1.8181718E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   57     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     1.7683816E+04     8.4603542E-01     1.9376709E+02     7.4805674E+03     1.7683816E+04\r\n        0.2000       5.0000000E+00     1.6765900E+04    -5.4753590E-01     3.6741840E+02    -4.5899663E+03     1.6765900E+04\r\n        0.3000       3.3333333E+00     1.5402879E+04    -5.1177576E-02     5.0632242E+02    -3.9414099E+02     1.5402879E+04\r\n        0.6000       1.6666666E+00     8.4932998E+03    -4.2817626E-02     5.5838239E+02    -1.8183147E+02     8.4932998E+03\r\n        0.9000       1.1111112E+00     5.7815171E+03    -2.9839585E-02     5.7014893E+02    -8.6259033E+01     5.7815171E+03\r\n        1.2000       8.3333331E-01     4.3666479E+03    -2.6101986E-02     5.7416064E+02    -5.6989090E+01     4.3666479E+03\r\n        1.5000       6.6666669E-01     3.5196643E+03    -2.8117657E-02     5.7849084E+02    -4.9482357E+01     3.5196643E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   58     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.4016301E+04    -5.4822856E-01     4.8230032E+02    -1.2065497E+04     4.4016301E+04\r\n        0.2000       5.0000000E+00     2.9452855E+04    -4.5643884E-01     6.4544824E+02    -6.7217134E+03     2.9452855E+04\r\n        0.3000       3.3333333E+00     2.0755576E+04    -7.8807168E-02     6.8227600E+02    -8.1784412E+02     2.0755576E+04\r\n        0.6000       1.6666666E+00     1.0027076E+04    -2.3372579E-02     6.5921881E+02    -1.1717931E+02     1.0027076E+04\r\n        0.9000       1.1111112E+00     6.6487402E+03    -1.5984330E-02     6.5567084E+02    -5.3137829E+01     6.6487402E+03\r\n        1.2000       8.3333331E-01     4.9774639E+03    -1.3048905E-02     6.5447546E+02    -3.2475227E+01     4.9774639E+03\r\n        1.5000       6.6666669E-01     3.9800903E+03    -1.5516122E-02     6.5416632E+02    -3.0877783E+01     3.9800903E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   59     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     4.7500137E+04     3.7445065E-01     5.2047375E+02     8.8932285E+03     4.7500137E+04\r\n        0.2000       5.0000000E+00     3.1058381E+04     1.8823546E-01     6.8063269E+02     2.9231443E+03     3.1058381E+04\r\n        0.3000       3.3333333E+00     2.3848641E+04    -1.3160937E-01     7.8395093E+02    -1.5693523E+03     2.3848641E+04\r\n        0.6000       1.6666666E+00     1.2283088E+04    -5.9042601E-03     8.0753772E+02    -3.6261272E+01     1.2283088E+04\r\n        0.9000       1.1111112E+00     8.1742412E+03    -4.0554870E-03     8.0610931E+02    -1.6575264E+01     8.1742412E+03\r\n        1.2000       8.3333331E-01     6.1279658E+03    -3.3681036E-03     8.0575238E+02    -1.0319812E+01     6.1279658E+03\r\n        1.5000       6.6666669E-01     4.9012607E+03    -5.0184606E-03     8.0556958E+02    -1.2298391E+01     4.9012607E+03\r\n1     MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                       /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T09-06-1A                                                                                            \r\n0     10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                                                                                      \r\n0                                                       FLUTTER  SUMMARY\r\n\r\n       POINT =   60     SIGMA VALUE =  -36.000    DENSITY RATIO =  1.0000E+00     METHOD = KE  \r\n\r\n\r\n       KFREQ            1./KFREQ         VELOCITY            DAMPING         FREQUENCY            COMPLEX   EIGENVALUE\r\n        0.1000       1.0000000E+01     6.9235344E+04    -2.7111808E-02     7.5863324E+02    -9.3854767E+02     6.9235344E+04\r\n        0.2000       5.0000000E+00     3.5668367E+04    -1.1360300E-02     7.8165881E+02    -2.0260167E+02     3.5668367E+04\r\n        0.3000       3.3333333E+00     2.4951115E+04     5.3172372E-02     8.2019147E+02     6.6335498E+02     2.4951115E+04\r\n        0.6000       1.6666666E+00     1.3800661E+04    -5.3184744E-02     9.0730890E+02    -3.6699231E+02     1.3800661E+04\r\n        0.9000       1.1111112E+00     9.4979141E+03    -4.0030856E-02     9.3664435E+02    -1.9010481E+02     9.4979141E+03\r\n        1.2000       8.3333331E-01     7.2023413E+03    -3.4432013E-02     9.4701953E+02    -1.2399555E+02     7.2023413E+03\r\n        1.5000       6.6666669E-01     5.8016953E+03    -2.7782625E-02     9.5356470E+02    -8.0593163E+01     5.8016953E+03\r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                    \r\n DATE:  5/18/95\r\n END TIME: 10:46:55\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t09071a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T09071A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     TIME  40                                                                        \r\n     SOL   9                                                                         \r\n     DIAG  14                                                                        \r\n0*** $   ... READFILE FROM-  COSDBCL                                                 \r\n     $        COSDBCL.ALT                                                            \r\n     $                                                                               \r\n     $        DMAP ALTER PACKAGE FOR                                                 \r\n     $        DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UNDER             \r\n     $        IMPACK LOADING: COMPUTATIONAL SIMULATION                               \r\n     $        FROM PAPER OF THE SAME TITLE BY J. E. GRADY et al                      \r\n     $        NASA TECHNICAL MEMORANDUM 100192, 1987, CLEWIS RESEARCH CENTER,        \r\n     $        AND ALSO A SIMILAR PAPER BY R. A. AIELLO AND J. E. GRADY,              \r\n     $        NASA CONFERENCE PUBLICATION 3029, 1989 (17TH NASTRAN USERS'S           \r\n     $        COLLOQUIUM, PP. 187-200)                                               \r\n     $                                                                               \r\n     $        VAX AND UNIX USER: MAKE SURE YOUR FILE EXTENSION LIMIT IS SET          \r\n     $        TO 420 BEFORE RUNNING THIS DEMO PROBLEM.                               \r\n     $                                                                               \r\n     $ ALTER 146     $ 91 COSMIC/NASTRAN RF 9,  FOLLOWING LABEL  P2                  \r\n     INSERT XYTRAN(2),-1 $                                                           \r\n     $                                                                               \r\n     PARAML   UPV//*TRAILER*/1/V,N,NOCUPV $                                          \r\n     COPY     TIP1/CLUSI/0 $                                                         \r\n     COPY     TIP1/BUBLI/0 $                                                         \r\n     PARAM    //*SUB*/SHIFT/NOCUPV/ 1 $                                              \r\n     LABEL    BUBTOP $                                                               \r\n     FILE     BUBLI=SAVE/CLUSI=SAVE $                                                \r\n     PARTN    BUBLI,,BAS1/DUMMY,,,/7 $                                               \r\n     MERGE    DUMMY,,,,,TIP1/BUBLJ/7 $                                               \r\n     ADD      CLUSI,BUBLJ/CLUSJ/ $                                                   \r\n     SWITCH   BUBLJ,BUBLI//-1 $                                                      \r\n     SWITCH   CLUSJ,CLUSI//-1 $                                                      \r\n     REPT     BUBTOP,SHIFT $                                                         \r\n     PARTN    TIP1,,CLUSJ/,MNTRI,,/7 $                                               \r\n     PARTN    BUBLJ,,CLUSJ/,BOOTI,,/7 $                                              \r\n     COPY     MNTRI/MNTRJ/0 $                                                        \r\n     TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/             \r\n              LUSET/NOSIMP/0/NOGENL/GENEL $                                          \r\n     DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N,             \r\n              LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/             \r\n              V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $                      \r\n     COND     ERROR5,NOEED $                                                         \r\n     PARAM    //*NOP*/V,N,COLNUM=1 $                                                 \r\n     LABEL    RAALOOP $                                                              \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     PARAM    //*ADD*/COLNUM/COLNUM/3 $                                              \r\n     PARAM    //*LE*/V,N,GETOUT/NOCUPV/COLNUM $                                      \r\n     COND     QUITRAA,GETOUT $                                                       \r\n     LABEL    CORTOP $                                                               \r\n     PARTN    MNTRJ,,BOOTI/DUM11,,,/7 $                                              \r\n     MERGE    DUM11,,,,,MNTRI/MNTRJ/7 $                                              \r\n     REPT     CORTOP, 2  $                                                           \r\n     PARTN    UPV,MNTRJ,/,,COLUPV,/1  $                                              \r\n     DSMG1    CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/                     \r\n              KDGG/DSCOSET $                                                         \r\n     EQUIV    KDGG,KDNN/MPCF2 $                                                      \r\n     COND     LBL2D,MPCF2 $                                                          \r\n     MCE2     USET,GM,KDGG,,,/KDNN,,, $                                              \r\n     LABEL    LBL2D $                                                                \r\n     EQUIV    KDNN,KDFF/SINGLE $                                                     \r\n     COND     LBL3D,SINGLE $                                                         \r\n     SCE1     USET,KDNN,,,/KDFF,KDFS,,,, $                                           \r\n     LABEL    LBL3D $                                                                \r\n     EQUIV    KDFF,KDAA/OMIT $                                                       \r\n     COND     LBL5D,OMIT $                                                           \r\n     SMP2     USET,GO,KDFF/KDAA $                                                    \r\n     LABEL    LBL5D $                                                                \r\n     ADD      KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $                             \r\n     READ     KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/           \r\n              S,N,NEIGV/C,N,2 $                                                      \r\n     COND     ERROR4,NEIGV $                                                         \r\n     PARAML   LAMA//*TABLE1*/2/3/V,N,EIGV $                                          \r\n     PRTPARM  //0/*EIGV*   $                                                         \r\n     $ OFP    OEIGS,LAMA,,,,//S,N,CARDNO $                                           \r\n     OFP      LAMA,,,,,//S,N,CARDNO $                                                \r\n     SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $                   \r\n     SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/,          \r\n              OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $                             \r\n     $ OFP    OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $                                \r\n     COND     P3,JUMPPLOT $                                                          \r\n     PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT,             \r\n              OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/             \r\n              S,N,PFILE   $                                                          \r\n     PRTMSG   PLOTX3// $                                                             \r\n     LABEL    P3 $                                                                   \r\n     REPT     RAALOOP,1000 $                                                         \r\n     JUMP     QUITRAA $                                                              \r\n     LABEL    ERROR5 $                                                               \r\n     PRTPARM  //C,N,-3/C,N,BUCKLING $                                                \r\n     JUMP     QUITRAA $                                                              \r\n     LABEL    ERROR4 $                                                               \r\n     PRTPARM  //C,N,-4/C,N,BUCKLING $                                                \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     LABEL    QUITRAA $                                                              \r\n     JUMP     FINIS $                                                                \r\n     ENDALTER                                                                        \r\n0*** $   END READFILE                                                                \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER            \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T09-07-1A                                   \r\n                  3      LABEL    = A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING               \r\n                  4        DISP   = ALL                                                                  \r\n                  5        SPC    = 4                                                                    \r\n                  6      SUBCASE 1                                                                       \r\n                  7        DLOAD  = 4                                                                    \r\n                  8        TSTEP  = 7                                                                    \r\n                  9        STRESS = ALL                                                                  \r\n                 10      SUBCASE 2                                                                       \r\n                 11        METHOD = 25                                                                   \r\n                 12      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =    19, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CBAR    1       1       1       2       0.      0.      1.0     1               \r\n                    2-        CBAR    2       1       2       3       0.      0.      1.0     1               \r\n                    3-        CBAR    3       1       3       4       0.      0.      1.0     1               \r\n                    4-        CBAR    4       1       4       5       0.      0.      1.0     1               \r\n                    5-        CBAR    5       1       5       6       0.      0.      1.0     1               \r\n                    6-        CBAR    6       1       6       7       0.      0.      1.0     1               \r\n                    7-        CBAR    7       1       7       8       0.      0.      1.0     1               \r\n                    8-        CBAR    8       1       8       9       0.      0.      1.0     1               \r\n                    9-        CBAR    9       1       9       10      0.      0.      1.0     1               \r\n                   10-        CBAR    10      1       10      11      0.      0.      1.0     1               \r\n                   11-        DAREA   8       1       2       +1.0                                            \r\n                   12-        DMI     BAS1    0       2       1       1               1000    1               \r\n                   13-        DMI     BAS1    1       1000    1.0                                             \r\n                   14-        DMI     TIP1    0       2       1       1               1000    1               \r\n                   15-        DMI     TIP1    1       1       1.0                                             \r\n                   16-        EIGB    25      INV     0.01    1.0     2                               +C0N0001\r\n                   17-        +C0N0001MAX                                                                     \r\n                   18-        GRID    1               0.0     0.0     0.0                                     \r\n                   19-        GRID    2               0.0     10.     0.0                                     \r\n                   20-        GRID    3               0.0     20.     0.0                                     \r\n                   21-        GRID    4               0.0     30.     0.0                                     \r\n                   22-        GRID    5               0.0     40.     0.0                                     \r\n                   23-        GRID    6               0.0     50.     0.0                                     \r\n                   24-        GRID    7               0.0     60.     0.0                                     \r\n                   25-        GRID    8               0.0     70.     0.0                                     \r\n                   26-        GRID    9               0.0     80.     0.0                                     \r\n                   27-        GRID    10              0.0     90.     0.0                                     \r\n                   28-        GRID    11              0.0     100.    0.0                                     \r\n                   29-        MAT1    11      10.0+6  16.5+6          2.59-4                                  \r\n                   30-        PBAR    1       11      .785    .049    .049    .098                            \r\n                   31-        SPC     4       11      123456                                                  \r\n                   32-        TABLED1 4                                                               +S4     \r\n                   33-        +S4     0.0     0.0     25.E-6  120.9   1.0     120.9   ENDT                    \r\n                   34-        TLOAD1  4       8       0               4                                       \r\n                   35-        TSTEP   6       20      0.0002  1                                               \r\n                   36-        TSTEP   7       200     12.5-6  4                                               \r\n                              ENDDATA\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $     \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $                       \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   S,N,NOGPDT/ALWAYS=-1 $                                         \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  PURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n                   GPSETS,ELSETS/NOGPDT $                                         \r\n\r\n      10  COND     LBL5,NOGPDT $                                                  \r\n\r\n      11  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      12  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      13  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      14  COND     P1,JUMPPLOT $                                                  \r\n\r\n      15  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      16  PRTMSG   PLTSETX// $                                                    \r\n\r\n      17  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      18  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      19  COND     P1,JUMPPLOT $                                                  \r\n\r\n      20  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      21  PRTMSG   PLOTX1// $                                                     \r\n\r\n      22  LABEL    P1 $                                                           \r\n\r\n      23  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $                           \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/         \r\n                   S,N,COMPS                                                      \r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  PURGE    K4GG,MGG,BGG,                                                  \r\n                   K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $           \r\n\r\n      27  COND     LBL1,NOSIMP $                                                  \r\n\r\n      28  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      29  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      30  PARAM    //*ADD*/NOBGG=-1/1/0 $                                         \r\n\r\n      31  PARAM    //*ADD*/NOK4GG/1/0 $                                           \r\n\r\n      32  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/     \r\n                   S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/       \r\n                   C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/       \r\n                   C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/    \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      33  PURGE    KGGX/NOKGGX/MGG/NOMGG $                                        \r\n\r\n      34  COND     LBLKGGX,NOKGGX $                                               \r\n\r\n      35  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      36  LABEL    LBLKGGX $                                                      \r\n\r\n      37  COND     LBLMGG,NOMGG $                                                 \r\n\r\n      38  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      39  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      40  LABEL    LBLMGG $                                                       \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      41  COND     LBLBGG,NOBGG $                                                 \r\n\r\n      42  EMA      GPECT,BDICT,BELM/BGG $                                         \r\n\r\n      43  PURGE    BDICT,BELM/ALWAYS $                                            \r\n\r\n      44  LABEL    LBLBGG $                                                       \r\n\r\n      45  COND     LBLK4GG,NOK4GG $                                               \r\n\r\n      46  EMA      GPECT,KDICT,KELM/K4GG/NOK4GG $                                 \r\n\r\n      47  LABEL    LBLK4GG $                                                      \r\n\r\n      48  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      49  PURGE    MNN,MFF,MAA/NOMGG $                                            \r\n\r\n      50  PURGE    BNN,BFF,BAA/NOBGG $                                            \r\n\r\n      51  COND     LBL1,GRDPNT $                                                  \r\n\r\n      52  COND     ERROR3,NOMGG $                                                 \r\n\r\n      53  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      54  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      55  LABEL    LBL1  $                                                        \r\n\r\n      56  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      57  COND     LBL11,NOGENL $                                                 \r\n\r\n      58  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      59  LABEL    LBL11 $                                                        \r\n\r\n      60  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      61  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      62  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,             \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      63  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      64  PURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $                   \r\n\r\n      65  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n\r\n      66  COND     LBL2,MPCF1 $                                                   \r\n\r\n      67  MCE1     USET,RG/GM $                                                   \r\n\r\n      68  MCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $                   \r\n\r\n      69  LABEL    LBL2 $                                                         \r\n\r\n      70  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n\r\n      71  COND     LBL3,SINGLE $                                                  \r\n\r\n      72  SCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $               \r\n\r\n      73  LABEL    LBL3 $                                                         \r\n\r\n      74  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      75  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      76  EQUIV    BFF,BAA/OMIT $                                                 \r\n\r\n      77  EQUIV    K4FF,K4AA/OMIT $                                               \r\n\r\n      78  COND     LBL5,OMIT $                                                    \r\n\r\n      79  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      80  COND     LBLM,NOMGG $                                                   \r\n\r\n      81  SMP2     USET,GO,MFF/MAA $                                              \r\n\r\n      82  LABEL    LBLM $                                                         \r\n\r\n      83  COND     LBLB,NOBGG $                                                   \r\n\r\n      84  SMP2     USET,GO,BFF/BAA $                                              \r\n\r\n      85  LABEL    LBLB $                                                         \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      86  COND     LBL5,NOK4GG $                                                  \r\n\r\n      87  SMP2     USET,GO,K4FF/K4AA $                                            \r\n\r\n      88  LABEL    LBL5 $                                                         \r\n\r\n      89  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n                   EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/                 \r\n                   NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $                   \r\n\r\n      90  COND     ERROR1,NOTRL $                                                 \r\n\r\n      91  PURGE    PNLD/NONLFT$                                                   \r\n\r\n      92  EQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $                                     \r\n\r\n      93  BMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/        \r\n                   S,N,MFACT $                                                    \r\n\r\n      94  PARAM    //*AND*/NOFL/NOABFL/NOKBFL $                                   \r\n\r\n      95  PURGE    KBFL/NOKBFL/ ABFL/NOABFL $                                     \r\n\r\n      96  COND     LBLFL3,NOFL $                                                  \r\n\r\n      97  MTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/       \r\n                   0 $                                                            \r\n\r\n      98  LABEL    LBLFL3 $                                                       \r\n\r\n      99  MTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,      \r\n                   NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $                               \r\n\r\n     100  PARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $                                \r\n\r\n     101  PARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $                                \r\n\r\n     102  EQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $                            \r\n\r\n     103  COND     LBLFL2,NOFL $                                                  \r\n\r\n     104  ADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $                            \r\n\r\n     105  COND     LBLFL2,NOABFL $                                                \r\n\r\n     106  TRNSP    ABFL/ABFLT $                                                   \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     107  ADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $                             \r\n\r\n     108  LABEL    LBLFL2 $                                                       \r\n\r\n     109  PARAM    //*AND*/KDEKA/NOUE/NOK2PP $                                    \r\n\r\n     110  PARAM    //*AND*/MDEMA/NOUE/NOM2PP $                                    \r\n\r\n     111  PARAM    //*AND*/KDEK2/NOGENL/NOSIMP $                                  \r\n\r\n     112  PURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $                          \r\n\r\n     113  EQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/       \r\n                   KAA,KDD/KDEKA $                                                \r\n\r\n     114  COND     LBL16,NOGPDT $                                                 \r\n\r\n     115  GKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n                   GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/       \r\n                   C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/                    \r\n                   MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/                           \r\n                   KDEK2/-1 $                                                     \r\n\r\n     116  LABEL    LBL16 $                                                        \r\n\r\n     117  EQUIV    M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $               \r\n\r\n     118  PARAM    //*ADD*/NEVER/1/0 $                                            \r\n\r\n     119  PARAM    //*MPY*/REPEATT/1/-1 $                                         \r\n\r\n     120  LABEL    LBL13 $                                                        \r\n\r\n     121  PURGE    PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,     \r\n                   OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $           \r\n\r\n     122  CASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $                 \r\n\r\n     123  PARAM    //*MPY*/NCOL/0/1 $                                             \r\n\r\n     124  TRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,  \r\n                   MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $                       \r\n\r\n     125  EQUIV    PPT,PDT/NOSET $                                                \r\n\r\n     126  TRD      CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $                              \r\n\r\n     127  VDR      CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/            \r\n                   *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $                      \r\n\r\n     128  COND     LBL15,NOD $                                                    \r\n\r\n     129  SDR3     OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $                              \r\n\r\n     130  OFP      OUDV2,OPNL2,,,,//S,N,CARDNO $                                  \r\n\r\n     131  XYTRAN   XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/          \r\n                   S,N,CARDNO $                                                   \r\n\r\n     132  XYPLOT   XYPLTTA// $                                                    \r\n\r\n     133  LABEL    LBL15 $                                                        \r\n\r\n     134  PARAM    //*AND*/PJUMP/NOP/JUMPPLOT $                                   \r\n\r\n     135  COND     LBL18,PJUMP $                                                  \r\n\r\n     136  EQUIV    UDVT,UPV/NOA $                                                 \r\n\r\n     137  COND     LBL17,NOA $                                                    \r\n\r\n     138  SDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $         \r\n\r\n     139  LABEL    LBL17 $                                                        \r\n\r\n     140  SDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n                   PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $             \r\n\r\n     141  SDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/                                    \r\n                   OPP2,OQP2,OUPV2,OES2,OEF2, $                                   \r\n\r\n     142  OFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $                       \r\n\r\n     143  SCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $                               \r\n\r\n     144  OFP      OESF2,,,,,//S,N,CARDNO $                                       \r\n\r\n     145  COND     P2,JUMPPLOT $                                                  \r\n\r\n     146  PLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, \r\n                   ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $                \r\n\r\n     147  PRTMSG   PLOTX2// $                                                     \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     148  LABEL    P2 $                                                           \r\n\r\n     148  PARAML   UPV//*TRAILER*/1/V,N,NOCUPV $                                  \r\n\r\n     148  COPY     TIP1/CLUSI/0 $                                                 \r\n\r\n     148  COPY     TIP1/BUBLI/0 $                                                 \r\n\r\n     148  PARAM    //*SUB*/SHIFT/NOCUPV/ 1 $                                      \r\n\r\n     148  LABEL    BUBTOP $                                                       \r\n\r\n     148  FILE     BUBLI=SAVE/CLUSI=SAVE $                                        \r\n\r\n     148  PARTN    BUBLI,,BAS1/DUMMY,,,/7 $                                       \r\n\r\n     148  MERGE    DUMMY,,,,,TIP1/BUBLJ/7 $                                       \r\n\r\n     148  ADD      CLUSI,BUBLJ/CLUSJ/ $                                           \r\n\r\n     148  SWITCH   BUBLJ,BUBLI//-1 $                                              \r\n\r\n     148  SWITCH   CLUSJ,CLUSI//-1 $                                              \r\n\r\n     148  REPT     BUBTOP,SHIFT $                                                 \r\n\r\n     148  PARTN    TIP1,,CLUSJ/,MNTRI,,/7 $                                       \r\n\r\n     148  PARTN    BUBLJ,,CLUSJ/,BOOTI,,/7 $                                      \r\n\r\n     148  COPY     MNTRI/MNTRJ/0 $                                                \r\n\r\n     148  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/     \r\n                   LUSET/NOSIMP/0/NOGENL/GENEL $                                  \r\n\r\n     148  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N,     \r\n                   LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/     \r\n                   V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $              \r\n\r\n     148  COND     ERROR5,NOEED $                                                 \r\n\r\n     148  PARAM    //*NOP*/V,N,COLNUM=1 $                                         \r\n\r\n     148  LABEL    RAALOOP $                                                      \r\n\r\n     148  PARAM    //*ADD*/COLNUM/COLNUM/3 $                                      \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     148  PARAM    //*LE*/V,N,GETOUT/NOCUPV/COLNUM $                              \r\n\r\n     148  COND     QUITRAA,GETOUT $                                               \r\n\r\n     148  LABEL    CORTOP $                                                       \r\n\r\n     148  PARTN    MNTRJ,,BOOTI/DUM11,,,/7 $                                      \r\n\r\n     148  MERGE    DUM11,,,,,MNTRI/MNTRJ/7 $                                      \r\n\r\n     148  REPT     CORTOP, 2  $                                                   \r\n\r\n     148  PARTN    UPV,MNTRJ,/,,COLUPV,/1  $                                      \r\n\r\n     148  DSMG1    CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/             \r\n                   KDGG/DSCOSET $                                                 \r\n\r\n     148  EQUIV    KDGG,KDNN/MPCF2 $                                              \r\n\r\n     148  COND     LBL2D,MPCF2 $                                                  \r\n\r\n     148  MCE2     USET,GM,KDGG,,,/KDNN,,, $                                      \r\n\r\n     148  LABEL    LBL2D $                                                        \r\n\r\n     148  EQUIV    KDNN,KDFF/SINGLE $                                             \r\n\r\n     148  COND     LBL3D,SINGLE $                                                 \r\n\r\n     148  SCE1     USET,KDNN,,,/KDFF,KDFS,,,, $                                   \r\n\r\n     148  LABEL    LBL3D $                                                        \r\n\r\n     148  EQUIV    KDFF,KDAA/OMIT $                                               \r\n\r\n     148  COND     LBL5D,OMIT $                                                   \r\n\r\n     148  SMP2     USET,GO,KDFF/KDAA $                                            \r\n\r\n     148  LABEL    LBL5D $                                                        \r\n\r\n     148  ADD      KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $                     \r\n\r\n     148  READ     KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/   \r\n                   S,N,NEIGV/C,N,2 $                                              \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     148  COND     ERROR4,NEIGV $                                                 \r\n\r\n     148  PARAML   LAMA//*TABLE1*/2/3/V,N,EIGV $                                  \r\n\r\n     148  PRTPARM  //0/*EIGV*   $                                                 \r\n\r\n     148  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n     148  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $           \r\n\r\n     148  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/,  \r\n                   OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $                     \r\n\r\n     148  COND     P3,JUMPPLOT $                                                  \r\n\r\n     148  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT,     \r\n                   OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/     \r\n                   S,N,PFILE   $                                                  \r\n\r\n     148  PRTMSG   PLOTX3// $                                                     \r\n\r\n     148  LABEL    P3 $                                                           \r\n\r\n     148  REPT     RAALOOP,1000 $                                                 \r\n\r\n     148  JUMP     QUITRAA $                                                      \r\n\r\n     148  LABEL    ERROR5 $                                                       \r\n\r\n     148  PRTPARM  //C,N,-3/C,N,BUCKLING $                                        \r\n\r\n     148  JUMP     QUITRAA $                                                      \r\n\r\n     148  LABEL    ERROR4 $                                                       \r\n\r\n     148  PRTPARM  //C,N,-4/C,N,BUCKLING $                                        \r\n\r\n     148  LABEL    QUITRAA $                                                      \r\n\r\n     148  JUMP     FINIS $                                                        \r\n\r\n     149  XYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/          \r\n                   S,N,PFILE/S,N,CARDNO $                                         \r\n\r\n     150  XYPLOT   XYPLTT// $                                                     \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     151  LABEL    LBL18 $                                                        \r\n\r\n     152  COND     FINIS,REPEATT $                                                \r\n\r\n     153  REPT     LBL13,100 $                                                    \r\n\r\n     154  PRTPARM  //-2/*DIRTRD* $                                                \r\n\r\n     155  JUMP     FINIS $                                                        \r\n\r\n     156  LABEL    ERROR1 $                                                       \r\n\r\n     157  PRTPARM  //-1/*DIRTRD* $                                                \r\n\r\n     158  LABEL    ERROR3 $                                                       \r\n\r\n     159  PRTPARM  //-3/*DIRTRD* $                                                \r\n\r\n     160  LABEL    FINIS  $                                                       \r\n\r\n     161  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     162  END      $                                                              \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DPD        INSTRUCTION NO. 148\r\n     DATA BLOCK NAMED GPLD     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DPD        INSTRUCTION NO. 148\r\n     DATA BLOCK NAMED SILD     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DPD        INSTRUCTION NO. 148\r\n     DATA BLOCK NAMED USETD    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DPD        INSTRUCTION NO. 148\r\n     DATA BLOCK NAMED EQDYN    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MERGE      INSTRUCTION NO. 148\r\n     DATA BLOCK NAMED MNTRJ    ALREADY APPEARED AS OUTPUT\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     THE PRESENCE OF DMI CARDS\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPST     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK SLT      MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            7.791522E-05   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            2.833486E-04   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            4.265859E-04   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            5.463337E-04   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            7.243613E-04   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            8.838057E-04   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            1.007714E-03   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            1.169509E-03   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            1.338082E-03   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            1.469081E-03   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.617869E-03   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.789242E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.929997E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            2.069592E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            2.238200E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            2.389032E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            2.523168E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            2.680726E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            2.825796E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            2.921357E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            2.981508E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            2.966741E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            2.823061E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            2.601663E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            2.385690E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            2.209562E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            2.093357E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            2.002226E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.845045E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            1.633392E-03   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            1.474844E-03   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            1.370774E-03   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            1.230518E-03   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            1.047835E-03   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            8.836139E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            7.514673E-04   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            6.199284E-04   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            4.649677E-04   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            3.086726E-04   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0            2.060432E-04   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            1.575768E-04   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0            1.261966E-04   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            1.621900E-04   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            3.330107E-04   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            5.667948E-04   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            7.694162E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       1\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            9.611733E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            1.136660E-03   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            1.230634E-03   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            1.304005E-03   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            5.669056E-06   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            7.774270E-05   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            2.586351E-04   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            4.359457E-04   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            5.548621E-04   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            7.039463E-04   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            8.826139E-04   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            1.019803E-03   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            1.155974E-03   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            1.328913E-03   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.480451E-03   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.612081E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.775490E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.937281E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            2.070662E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            2.222987E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            2.387788E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            2.519927E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            2.641345E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            2.753662E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            2.790481E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            2.738073E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            2.627319E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            2.454565E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            2.251718E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            2.089588E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.957447E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.806941E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.655511E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            1.514909E-03   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            1.355515E-03   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            1.191278E-03   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            1.050286E-03   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            9.072769E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            7.486974E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            5.972547E-04   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            4.511868E-04   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            3.075337E-04   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            1.862555E-04   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0            8.355966E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            5.702795E-06   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0            4.943741E-06   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            8.845808E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            2.130395E-04   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            3.872583E-04   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            6.124270E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       2\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            8.047232E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            9.308720E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            1.061037E-03   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            1.213114E-03   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       3\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            2.705426E-07   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            1.035430E-05   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            7.780899E-05   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            2.423476E-04   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            4.324650E-04   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            5.659074E-04   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            6.951988E-04   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            8.701677E-04   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            1.028362E-03   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            1.155848E-03   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.314044E-03   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.482732E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.617822E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.762709E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            1.932251E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            2.076195E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            2.206427E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            2.351227E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            2.458872E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            2.498742E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            2.500675E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            2.456789E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            2.361977E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            2.268858E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            2.172505E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            2.005969E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.791154E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.612465E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.484670E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            1.369306E-03   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            1.228772E-03   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            1.044903E-03   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            8.654841E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            7.446280E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            6.262055E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            4.486617E-04   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            2.803926E-04   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            1.780106E-04   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            8.245576E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -2.141346E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0           -5.963694E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -2.084428E-05   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            4.777913E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            1.444489E-04   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            2.747203E-04   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            4.142890E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       3\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            5.639336E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            7.385961E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            9.228185E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            1.094672E-03   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            1.041713E-08   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            8.999116E-07   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            1.366733E-05   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            7.798254E-05   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            2.306305E-04   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            4.244776E-04   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            5.734274E-04   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            6.946166E-04   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            8.565383E-04   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            1.028680E-03   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.162225E-03   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.303580E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.475476E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.624669E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            1.756259E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            1.912242E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            2.053613E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            2.140047E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            2.196337E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            2.212341E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            2.163635E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            2.112161E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            2.106957E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            2.090091E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            2.007045E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            1.863739E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.673317E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.476261E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.325348E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            1.197242E-03   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            1.048166E-03   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            9.003812E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            7.578343E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            5.861702E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            4.224395E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            3.117979E-04   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            1.961380E-04   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            4.803163E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0           -4.376414E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -4.779118E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0           -3.707076E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -2.423909E-05   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            3.582618E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            1.161987E-04   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            1.672811E-04   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            2.244122E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       4\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            3.541002E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            5.562145E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            7.706958E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            9.478964E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            3.518477E-10   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            5.950614E-08   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            1.651840E-06   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            1.619546E-05   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            7.815523E-05   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            2.216284E-04   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            4.150819E-04   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            5.770090E-04   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            6.979917E-04   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            8.458955E-04   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.022699E-03   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.168644E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.299522E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.462166E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            1.619047E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            1.732787E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            1.832736E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            1.904510E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            1.895809E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            1.844931E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            1.825204E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            1.831445E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            1.837657E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            1.833907E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            1.781028E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            1.669056E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.544935E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.399275E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.192699E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            9.921612E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            8.724394E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            7.688609E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            6.082830E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            4.335478E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            2.904114E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            1.655666E-04   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            6.002636E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0           -1.456491E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0           -6.333893E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -6.939578E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0           -2.107855E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0            3.314916E-05   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            4.829366E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            4.518146E-05   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            6.238417E-05   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            1.187216E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       5\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            2.263912E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            3.850113E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            5.735514E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            7.600574E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            1.087578E-11   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            3.257620E-09   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            1.526812E-07   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            2.420559E-06   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            1.822637E-05   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            7.829530E-05   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            2.143809E-04   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            4.054841E-04   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            5.774248E-04   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            7.026414E-04   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            8.390188E-04   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            1.013169E-03   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            1.170183E-03   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.293157E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            1.425695E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            1.546502E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            1.589734E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            1.571685E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            1.546767E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            1.522272E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            1.514780E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            1.546646E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            1.564135E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            1.523388E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            1.484020E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            1.470882E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.400412E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.242592E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            1.064154E-03   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            8.917614E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            7.138719E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            5.607514E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            4.455971E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            3.228901E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            1.733749E-04   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            3.784349E-05   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0           -4.021607E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0           -5.447186E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0           -3.904450E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -2.557919E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            5.525142E-07   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0            4.070600E-05   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            4.067429E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0           -1.615970E-06   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0           -2.062422E-06   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            6.757450E-05   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       6\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            1.539828E-04   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            2.458527E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            3.740086E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            5.404555E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       7\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            3.153026E-13   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            1.553275E-10   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            1.155158E-08   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            2.813836E-07   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            3.167648E-06   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            1.991340E-05   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            7.839515E-05   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            2.083415E-04   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            3.961596E-04   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            5.754795E-04   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            7.068404E-04   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            8.338031E-04   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            9.957476E-04   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            1.144227E-03   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            1.227323E-03   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            1.267157E-03   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            1.278539E-03   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            1.240414E-03   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            1.195498E-03   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            1.214195E-03   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            1.257169E-03   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            1.246519E-03   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            1.213978E-03   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            1.219300E-03   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            1.230964E-03   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            1.204779E-03   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            1.151292E-03   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            1.072422E-03   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            9.474939E-04   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            7.776681E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            5.832962E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            4.010503E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            2.708975E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            1.764848E-04   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            7.135930E-05   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0           -2.617855E-05   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0           -6.943154E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0           -6.338319E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0           -2.394991E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0            3.272136E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            4.613730E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -1.852956E-07   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0           -2.383500E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            3.471048E-06   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            1.790687E-05   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            2.618293E-05   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       7\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            8.152139E-05   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            1.499089E-04   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            2.141618E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            3.525886E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       8\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            8.707681E-15   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            6.665165E-12   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            7.486524E-10   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            2.686166E-08   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            4.357831E-07   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            3.879474E-06   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            2.134736E-05   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            7.845245E-05   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            2.031449E-04   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            3.870443E-04   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            5.704078E-04   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            7.034632E-04   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            8.075929E-04   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            9.161349E-04   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            9.861684E-04   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            9.653723E-04   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            9.063401E-04   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            8.965621E-04   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            9.262305E-04   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            9.370869E-04   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            9.273396E-04   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            9.201941E-04   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            9.171590E-04   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            9.223780E-04   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            9.299355E-04   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            9.129109E-04   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            8.794417E-04   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            8.507828E-04   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            7.827459E-04   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            6.365870E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            4.633673E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            3.028969E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            1.382212E-04   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            9.179781E-06   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0           -2.671063E-05   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0           -2.541096E-05   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0           -4.747857E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0           -3.960970E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            1.709028E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0            4.144781E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            1.442771E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -9.439129E-06   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0           -2.106113E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0           -1.675159E-05   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            2.388630E-05   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            4.868495E-05   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       8\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            2.036220E-05   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            3.344595E-05   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            1.427290E-04   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            2.580922E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       9\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            2.314902E-16   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            2.631893E-13   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            4.290089E-11   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            2.189165E-09   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            4.961188E-08   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            6.078089E-07   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            4.550438E-06   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            2.256515E-05   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            7.827295E-05   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            1.972910E-04   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            3.720793E-04   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            5.410545E-04   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            6.351427E-04   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            6.503619E-04   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            6.361293E-04   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            6.189972E-04   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            5.992511E-04   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            5.995667E-04   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            6.283686E-04   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            6.361218E-04   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            6.043566E-04   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            5.965423E-04   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            6.297549E-04   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            6.320713E-04   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            5.980515E-04   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            6.008837E-04   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            6.229222E-04   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            5.883801E-04   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            5.232111E-04   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            4.699622E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            3.666830E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            1.907498E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            3.801639E-05   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0           -4.405231E-05   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0           -8.537614E-05   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0           -6.713336E-05   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            1.112992E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            5.060121E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            1.419498E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -1.362794E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0           -4.789818E-06   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -6.133149E-06   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0           -7.041352E-06   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            1.261559E-05   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            1.332584E-05   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0           -4.506755E-06   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =       9\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            7.490363E-06   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            3.917596E-05   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            6.716183E-05   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            1.243201E-04   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            5.964350E-18   0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            9.705293E-15   0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            2.219382E-12   0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            1.561389E-10   0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            4.800704E-09   0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            7.863795E-08   0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            7.770418E-07   0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            5.027257E-06   0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            2.249439E-05   0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            7.212670E-05   0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            1.691769E-04   0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            2.927386E-04   0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            3.740800E-04   0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            3.580626E-04   0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            2.870634E-04   0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            2.655171E-04   0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            3.139385E-04   0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            3.412310E-04   0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            3.049838E-04   0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            2.815182E-04   0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            3.126872E-04   0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            3.293193E-04   0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            3.002713E-04   0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            2.916028E-04   0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            3.184845E-04   0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            3.178675E-04   0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            2.913264E-04   0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            2.915993E-04   0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            2.933015E-04   0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            2.458934E-04   0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            1.765591E-04   0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            1.112496E-04   0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            2.281877E-05   0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0           -6.526028E-05   0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0           -8.102413E-05   0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0           -3.032456E-05   0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            2.086399E-05   0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            4.397599E-05   0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            3.012359E-05   0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0           -1.949833E-05   0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0           -4.532779E-05   0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0           -3.716559E-06   0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            3.892757E-05   0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            1.579490E-05   0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0           -2.434375E-05   0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0           -1.674356E-05   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =      10\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            1.690695E-05   0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            3.126211E-05   0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            2.632112E-05   0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            3.563478E-05   0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   0.0              G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000000E-05     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.000000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.500000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.000000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.499999E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.000000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   3.500000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.000000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   4.500001E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.000001E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.500000E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   5.999999E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.499998E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   6.999997E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.499997E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   7.999996E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   8.499995E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   8.999994E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   9.499993E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   9.999992E-04     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.049999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.099999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.149999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.199999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.249999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.299999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.349999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.399999E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.449998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.499998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.549998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.599998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.649998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.699998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.749998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.799998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.849998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.899998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.949998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   1.999998E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.049997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.099997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.149997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.199997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.249997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.299997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      POINT-ID =      11\r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n       TIME       TYPE          T1             T2             T3             R1             R2             R3\r\n   2.349997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.399997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.449997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n   2.499997E-03     G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -7.224616E+01   -7.224616E+01  -7.224616E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.224616E+01  -7.224616E+01         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -2.056059E+02   -2.056059E+02  -2.056059E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.056059E+02  -2.056059E+02         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.679507E+02   -1.679507E+02  -1.679507E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.679507E+02  -1.679507E+02         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -1.103880E+02   -1.103880E+02  -1.103880E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.103880E+02  -1.103880E+02         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -1.694993E+02   -1.694993E+02  -1.694993E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.694993E+02  -1.694993E+02         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -1.798594E+02   -1.798594E+02  -1.798594E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.798594E+02  -1.798594E+02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.251001E+02   -1.251001E+02  -1.251001E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.251001E+02  -1.251001E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.497067E+02   -1.497067E+02  -1.497067E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.497067E+02  -1.497067E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.821079E+02   -1.821079E+02  -1.821079E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.821079E+02  -1.821079E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.401677E+02   -1.401677E+02  -1.401677E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.401677E+02  -1.401677E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.374182E+02   -1.374182E+02  -1.374182E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.374182E+02  -1.374182E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.771618E+02   -1.771618E+02  -1.771618E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.771618E+02  -1.771618E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.545065E+02   -1.545065E+02  -1.545065E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.545065E+02  -1.545065E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.323107E+02   -1.323107E+02  -1.323107E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.323107E+02  -1.323107E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.675385E+02   -1.675385E+02  -1.675385E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.675385E+02  -1.675385E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -1.660458E+02   -1.660458E+02  -1.660458E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.660458E+02  -1.660458E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -1.353806E+02   -1.353806E+02  -1.353806E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.353806E+02  -1.353806E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -1.607993E+02   -1.607993E+02  -1.607993E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.607993E+02  -1.607993E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -1.844503E+02   -1.844503E+02  -1.844503E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.844503E+02  -1.844503E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -1.676941E+02   -1.676941E+02  -1.676941E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.676941E+02  -1.676941E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -1.910265E+02   -1.910265E+02  -1.910265E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.910265E+02  -1.910265E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -2.286683E+02   -2.286683E+02  -2.286683E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.286683E+02  -2.286683E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -1.957423E+02   -1.957423E+02  -1.957423E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.957423E+02  -1.957423E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -1.470977E+02   -1.470977E+02  -1.470977E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.470977E+02  -1.470977E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -1.339716E+02   -1.339716E+02  -1.339716E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.339716E+02  -1.339716E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -1.199737E+02   -1.199737E+02  -1.199737E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.199737E+02  -1.199737E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -1.359108E+02   -1.359108E+02  -1.359108E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.359108E+02  -1.359108E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -1.952851E+02   -1.952851E+02  -1.952851E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.952851E+02  -1.952851E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.895343E+02   -1.895343E+02  -1.895343E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.895343E+02  -1.895343E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.184835E+02   -1.184835E+02  -1.184835E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.184835E+02  -1.184835E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.193286E+02   -1.193286E+02  -1.193286E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.193286E+02  -1.193286E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.794965E+02   -1.794965E+02  -1.794965E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.794965E+02  -1.794965E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.802325E+02   -1.802325E+02  -1.802325E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.802325E+02  -1.802325E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.405581E+02   -1.405581E+02  -1.405581E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.405581E+02  -1.405581E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -1.349165E+02   -1.349165E+02  -1.349165E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.349165E+02  -1.349165E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -1.542126E+02   -1.542126E+02  -1.542126E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.542126E+02  -1.542126E+02         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -1.687416E+02   -1.687416E+02  -1.687416E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.687416E+02  -1.687416E+02         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -1.574339E+02   -1.574339E+02  -1.574339E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.574339E+02  -1.574339E+02         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -1.224171E+02   -1.224171E+02  -1.224171E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.224171E+02  -1.224171E+02         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -1.224836E+02   -1.224836E+02  -1.224836E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.224836E+02  -1.224836E+02         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0           -1.518740E+02   -1.518740E+02  -1.518740E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.518740E+02  -1.518740E+02         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0           -1.212529E+02   -1.212529E+02  -1.212529E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.212529E+02  -1.212529E+02         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -7.373194E+01   -7.373194E+01  -7.373194E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.373194E+01  -7.373194E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -1.199711E+02   -1.199711E+02  -1.199711E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.199711E+02  -1.199711E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       1\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -1.795365E+02   -1.795365E+02  -1.795365E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.795365E+02  -1.795365E+02         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -1.569892E+02   -1.569892E+02  -1.569892E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.569892E+02  -1.569892E+02         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -1.564501E+02   -1.564501E+02  -1.564501E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.564501E+02  -1.564501E+02         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -2.057881E+02   -2.057881E+02  -2.057881E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.057881E+02  -2.057881E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.695976E+02   -1.695976E+02  -1.695976E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.695976E+02  -1.695976E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -9.089145E+01   -9.089145E+01  -9.089145E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.089145E+01  -9.089145E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       2\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -5.398514E+00   -5.398514E+00  -5.398514E+00         \r\n                    0.0            0.0            0.0            0.0                           -5.398514E+00  -5.398514E+00         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -6.738840E+01   -6.738840E+01  -6.738840E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.738840E+01  -6.738840E+01         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.808262E+02   -1.808262E+02  -1.808262E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.808262E+02  -1.808262E+02         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -1.935981E+02   -1.935981E+02  -1.935981E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.935981E+02  -1.935981E+02         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -1.223971E+02   -1.223971E+02  -1.223971E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.223971E+02  -1.223971E+02         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -1.380389E+02   -1.380389E+02  -1.380389E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.380389E+02  -1.380389E+02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.874152E+02   -1.874152E+02  -1.874152E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.874152E+02  -1.874152E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.496351E+02   -1.496351E+02  -1.496351E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.496351E+02  -1.496351E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.276117E+02   -1.276117E+02  -1.276117E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.276117E+02  -1.276117E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.730654E+02   -1.730654E+02  -1.730654E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.730654E+02  -1.730654E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.664070E+02   -1.664070E+02  -1.664070E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.664070E+02  -1.664070E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.293490E+02   -1.293490E+02  -1.293490E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.293490E+02  -1.293490E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.576685E+02   -1.576685E+02  -1.576685E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.576685E+02  -1.576685E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.745716E+02   -1.745716E+02  -1.745716E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.745716E+02  -1.745716E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       2\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.384102E+02   -1.384102E+02  -1.384102E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.384102E+02  -1.384102E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -1.467918E+02   -1.467918E+02  -1.467918E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.467918E+02  -1.467918E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -1.813610E+02   -1.813610E+02  -1.813610E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.813610E+02  -1.813610E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -1.686990E+02   -1.686990E+02  -1.686990E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.686990E+02  -1.686990E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -1.824732E+02   -1.824732E+02  -1.824732E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.824732E+02  -1.824732E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -2.549203E+02   -2.549203E+02  -2.549203E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.549203E+02  -2.549203E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -2.898059E+02   -2.898059E+02  -2.898059E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.898059E+02  -2.898059E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -2.812839E+02   -2.812839E+02  -2.812839E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.812839E+02  -2.812839E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.653417E+02   -2.653417E+02  -2.653417E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.653417E+02  -2.653417E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -1.857069E+02   -1.857069E+02  -1.857069E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.857069E+02  -1.857069E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -7.921290E+01   -7.921290E+01  -7.921290E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.921290E+01  -7.921290E+01         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -8.361956E+01   -8.361956E+01  -8.361956E+01         \r\n                    0.0            0.0            0.0            0.0                           -8.361956E+01  -8.361956E+01         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -1.662930E+02   -1.662930E+02  -1.662930E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.662930E+02  -1.662930E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -1.944762E+02   -1.944762E+02  -1.944762E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.944762E+02  -1.944762E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.708406E+02   -1.708406E+02  -1.708406E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.708406E+02  -1.708406E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       2\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.456030E+02   -1.456030E+02  -1.456030E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.456030E+02  -1.456030E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.267433E+02   -1.267433E+02  -1.267433E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.267433E+02  -1.267433E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.463748E+02   -1.463748E+02  -1.463748E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.463748E+02  -1.463748E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.848017E+02   -1.848017E+02  -1.848017E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.848017E+02  -1.848017E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.626489E+02   -1.626489E+02  -1.626489E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.626489E+02  -1.626489E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -1.224920E+02   -1.224920E+02  -1.224920E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.224920E+02  -1.224920E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -1.485930E+02   -1.485930E+02  -1.485930E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.485930E+02  -1.485930E+02         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -1.707942E+02   -1.707942E+02  -1.707942E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.707942E+02  -1.707942E+02         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -1.295231E+02   -1.295231E+02  -1.295231E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.295231E+02  -1.295231E+02         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -1.037998E+02   -1.037998E+02  -1.037998E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.037998E+02  -1.037998E+02         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -1.049731E+02   -1.049731E+02  -1.049731E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.049731E+02  -1.049731E+02         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0           -6.533974E+01   -6.533974E+01  -6.533974E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.533974E+01  -6.533974E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0           -2.578802E+01   -2.578802E+01  -2.578802E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.578802E+01  -2.578802E+01         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -4.067896E+01   -4.067896E+01  -4.067896E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.067896E+01  -4.067896E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -6.859064E+01   -6.859064E+01  -6.859064E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.859064E+01  -6.859064E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       2\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -1.125380E+02   -1.125380E+02  -1.125380E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.125380E+02  -1.125380E+02         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -1.981380E+02   -1.981380E+02  -1.981380E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.981380E+02  -1.981380E+02         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -2.407896E+02   -2.407896E+02  -2.407896E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.407896E+02  -2.407896E+02         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -1.922759E+02   -1.922759E+02  -1.922759E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.922759E+02  -1.922759E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.382183E+02   -1.382183E+02  -1.382183E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.382183E+02  -1.382183E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -1.184416E+02   -1.184416E+02  -1.184416E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.184416E+02  -1.184416E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       3\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -2.601255E-01   -2.601255E-01  -2.601255E-01         \r\n                    0.0            0.0            0.0            0.0                           -2.601255E-01  -2.601255E-01         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -9.454386E+00   -9.454386E+00  -9.454386E+00         \r\n                    0.0            0.0            0.0            0.0                           -9.454386E+00  -9.454386E+00         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -6.414166E+01   -6.414166E+01  -6.414166E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.414166E+01  -6.414166E+01         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -1.643650E+02   -1.643650E+02  -1.643650E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.643650E+02  -1.643650E+02         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -2.018346E+02   -2.018346E+02  -2.018346E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.018346E+02  -2.018346E+02         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -1.414298E+02   -1.414298E+02  -1.414298E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.414298E+02  -1.414298E+02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.217714E+02   -1.217714E+02  -1.217714E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.217714E+02  -1.217714E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.755510E+02   -1.755510E+02  -1.755510E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.755510E+02  -1.755510E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.718239E+02   -1.718239E+02  -1.718239E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.718239E+02  -1.718239E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.271678E+02   -1.271678E+02  -1.271678E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.271678E+02  -1.271678E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.518185E+02   -1.518185E+02  -1.518185E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.518185E+02  -1.518185E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.791517E+02   -1.791517E+02  -1.791517E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.791517E+02  -1.791517E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.423455E+02   -1.423455E+02  -1.423455E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.423455E+02  -1.423455E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.380404E+02   -1.380404E+02  -1.380404E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.380404E+02  -1.380404E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       3\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.759924E+02   -1.759924E+02  -1.759924E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.759924E+02  -1.759924E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -1.639526E+02   -1.639526E+02  -1.639526E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.639526E+02  -1.639526E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -1.528135E+02   -1.528135E+02  -1.528135E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.528135E+02  -1.528135E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -2.111810E+02   -2.111810E+02  -2.111810E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.111810E+02  -2.111810E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -2.625348E+02   -2.625348E+02  -2.625348E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.625348E+02  -2.625348E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -2.864009E+02   -2.864009E+02  -2.864009E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.864009E+02  -2.864009E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.370405E+02   -3.370405E+02  -3.370405E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.370405E+02  -3.370405E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -3.446283E+02   -3.446283E+02  -3.446283E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.446283E+02  -3.446283E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.550201E+02   -2.550201E+02  -2.550201E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.550201E+02  -2.550201E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -1.787668E+02   -1.787668E+02  -1.787668E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.787668E+02  -1.787668E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -1.654599E+02   -1.654599E+02  -1.654599E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.654599E+02  -1.654599E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -1.422298E+02   -1.422298E+02  -1.422298E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.422298E+02  -1.422298E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -1.178363E+02   -1.178363E+02  -1.178363E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.178363E+02  -1.178363E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -1.362042E+02   -1.362042E+02  -1.362042E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.362042E+02  -1.362042E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.593218E+02   -1.593218E+02  -1.593218E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.593218E+02  -1.593218E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       3\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.720632E+02   -1.720632E+02  -1.720632E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.720632E+02  -1.720632E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.806057E+02   -1.806057E+02  -1.806057E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.806057E+02  -1.806057E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.445215E+02   -1.445215E+02  -1.445215E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.445215E+02  -1.445215E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.076498E+02   -1.076498E+02  -1.076498E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.076498E+02  -1.076498E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.584578E+02   -1.584578E+02  -1.584578E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.584578E+02  -1.584578E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -2.037659E+02   -2.037659E+02  -2.037659E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.037659E+02  -2.037659E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -1.368639E+02   -1.368639E+02  -1.368639E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.368639E+02  -1.368639E+02         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -8.425456E+01   -8.425456E+01  -8.425456E+01         \r\n                    0.0            0.0            0.0            0.0                           -8.425456E+01  -8.425456E+01         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -1.299790E+02   -1.299790E+02  -1.299790E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.299790E+02  -1.299790E+02         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -1.262199E+02   -1.262199E+02  -1.262199E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.262199E+02  -1.262199E+02         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -2.637772E+01   -2.637772E+01  -2.637772E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.637772E+01  -2.637772E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0            2.256618E+01    2.256618E+01   2.256618E+01         \r\n                    0.0            0.0            0.0            0.0                            2.256618E+01   2.256618E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0           -3.394813E+00   -3.394813E+00  -3.394813E+00         \r\n                    0.0            0.0            0.0            0.0                           -3.394813E+00  -3.394813E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -1.195295E+01   -1.195295E+01  -1.195295E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.195295E+01  -1.195295E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -2.825014E+01   -2.825014E+01  -2.825014E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.825014E+01  -2.825014E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       3\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -1.074392E+02   -1.074392E+02  -1.074392E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.074392E+02  -1.074392E+02         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -1.898768E+02   -1.898768E+02  -1.898768E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.898768E+02  -1.898768E+02         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -2.098334E+02   -2.098334E+02  -2.098334E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.098334E+02  -2.098334E+02         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -1.823817E+02   -1.823817E+02  -1.823817E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.823817E+02  -1.823817E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.521227E+02   -1.521227E+02  -1.521227E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.521227E+02  -1.521227E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -1.467759E+02   -1.467759E+02  -1.467759E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.467759E+02  -1.467759E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       4\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -1.006528E-02   -1.006528E-02  -1.006528E-02         \r\n                    0.0            0.0            0.0            0.0                           -1.006528E-02  -1.006528E-02         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -8.404055E-01   -8.404055E-01  -8.404055E-01         \r\n                    0.0            0.0            0.0            0.0                           -8.404055E-01  -8.404055E-01         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.201549E+01   -1.201549E+01  -1.201549E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.201549E+01  -1.201549E+01         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -6.178708E+01   -6.178708E+01  -6.178708E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.178708E+01  -6.178708E+01         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -1.524752E+02   -1.524752E+02  -1.524752E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.524752E+02  -1.524752E+02         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -2.028492E+02   -2.028492E+02  -2.028492E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.028492E+02  -2.028492E+02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.583455E+02   -1.583455E+02  -1.583455E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.583455E+02  -1.583455E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.176077E+02   -1.176077E+02  -1.176077E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.176077E+02  -1.176077E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.585466E+02   -1.585466E+02  -1.585466E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.585466E+02  -1.585466E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.827847E+02   -1.827847E+02  -1.827847E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.827847E+02  -1.827847E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.395261E+02   -1.395261E+02  -1.395261E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.395261E+02  -1.395261E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.349361E+02   -1.349361E+02  -1.349361E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.349361E+02  -1.349361E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.759540E+02   -1.759540E+02  -1.759540E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.759540E+02  -1.759540E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.625028E+02   -1.625028E+02  -1.625028E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.625028E+02  -1.625028E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       4\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.372122E+02   -1.372122E+02  -1.372122E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.372122E+02  -1.372122E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -1.794556E+02   -1.794556E+02  -1.794556E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.794556E+02  -1.794556E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -2.208771E+02   -2.208771E+02  -2.208771E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.208771E+02  -2.208771E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -2.355361E+02   -2.355361E+02  -2.355361E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.355361E+02  -2.355361E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -3.005284E+02   -3.005284E+02  -3.005284E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.005284E+02  -3.005284E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -3.674106E+02   -3.674106E+02  -3.674106E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.674106E+02  -3.674106E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.384312E+02   -3.384312E+02  -3.384312E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.384312E+02  -3.384312E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -2.807155E+02   -2.807155E+02  -2.807155E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.807155E+02  -2.807155E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.693002E+02   -2.693002E+02  -2.693002E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.693002E+02  -2.693002E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -2.561848E+02   -2.561848E+02  -2.561848E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.561848E+02  -2.561848E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -2.260173E+02   -2.260173E+02  -2.260173E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.260173E+02  -2.260173E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -1.946832E+02   -1.946832E+02  -1.946832E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.946832E+02  -1.946832E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -1.283824E+02   -1.283824E+02  -1.283824E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.283824E+02  -1.283824E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -7.698624E+01   -7.698624E+01  -7.698624E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.698624E+01  -7.698624E+01         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.326494E+02   -1.326494E+02  -1.326494E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.326494E+02  -1.326494E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       4\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -2.050812E+02   -2.050812E+02  -2.050812E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.050812E+02  -2.050812E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.757269E+02   -1.757269E+02  -1.757269E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.757269E+02  -1.757269E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.315203E+02   -1.315203E+02  -1.315203E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.315203E+02  -1.315203E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.495513E+02   -1.495513E+02  -1.495513E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.495513E+02  -1.495513E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.526223E+02   -1.526223E+02  -1.526223E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.526223E+02  -1.526223E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -1.320281E+02   -1.320281E+02  -1.320281E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.320281E+02  -1.320281E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -1.462312E+02   -1.462312E+02  -1.462312E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.462312E+02  -1.462312E+02         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -1.361117E+02   -1.361117E+02  -1.361117E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.361117E+02  -1.361117E+02         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -6.259654E+01   -6.259654E+01  -6.259654E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.259654E+01  -6.259654E+01         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -1.957479E+01   -1.957479E+01  -1.957479E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.957479E+01  -1.957479E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -2.160460E+01   -2.160460E+01  -2.160460E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.160460E+01  -2.160460E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0            1.599221E+01    1.599221E+01   1.599221E+01         \r\n                    0.0            0.0            0.0            0.0                            1.599221E+01   1.599221E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0            5.738826E+01    5.738826E+01   5.738826E+01         \r\n                    0.0            0.0            0.0            0.0                            5.738826E+01   5.738826E+01         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0            1.246748E+01    1.246748E+01   1.246748E+01         \r\n                    0.0            0.0            0.0            0.0                            1.246748E+01   1.246748E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -7.101730E+01   -7.101730E+01  -7.101730E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.101730E+01  -7.101730E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       4\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -1.048969E+02   -1.048969E+02  -1.048969E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.048969E+02  -1.048969E+02         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -1.056906E+02   -1.056906E+02  -1.056906E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.056906E+02  -1.056906E+02         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -1.277090E+02   -1.277090E+02  -1.277090E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.277090E+02  -1.277090E+02         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -1.712031E+02   -1.712031E+02  -1.712031E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.712031E+02  -1.712031E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.971444E+02   -1.971444E+02  -1.971444E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.971444E+02  -1.971444E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -1.878391E+02   -1.878391E+02  -1.878391E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.878391E+02  -1.878391E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -3.409720E-04   -3.409720E-04  -3.409720E-04         \r\n                    0.0            0.0            0.0            0.0                           -3.409720E-04  -3.409720E-04         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -5.624852E-02   -5.624852E-02  -5.624852E-02         \r\n                    0.0            0.0            0.0            0.0                           -5.624852E-02  -5.624852E-02         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.499159E+00   -1.499159E+00  -1.499159E+00         \r\n                    0.0            0.0            0.0            0.0                           -1.499159E+00  -1.499159E+00         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -1.377491E+01   -1.377491E+01  -1.377491E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.377491E+01  -1.377491E+01         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -5.992886E+01   -5.992886E+01  -5.992886E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.992886E+01  -5.992886E+01         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -1.433331E+02   -1.433331E+02  -1.433331E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.433331E+02  -1.433331E+02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -2.007010E+02   -2.007010E+02  -2.007010E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.007010E+02  -2.007010E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.715248E+02   -1.715248E+02  -1.715248E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.715248E+02  -1.715248E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.205669E+02   -1.205669E+02  -1.205669E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.205669E+02  -1.205669E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.432541E+02   -1.432541E+02  -1.432541E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.432541E+02  -1.432541E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.836804E+02   -1.836804E+02  -1.836804E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.836804E+02  -1.836804E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.554744E+02   -1.554744E+02  -1.554744E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.554744E+02  -1.554744E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.293388E+02   -1.293388E+02  -1.293388E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.293388E+02  -1.293388E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.690090E+02   -1.690090E+02  -1.690090E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.690090E+02  -1.690090E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.933516E+02   -1.933516E+02  -1.933516E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.933516E+02  -1.933516E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -1.862852E+02   -1.862852E+02  -1.862852E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.862852E+02  -1.862852E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -2.430017E+02   -2.430017E+02  -2.430017E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.430017E+02  -2.430017E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -3.328257E+02   -3.328257E+02  -3.328257E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.328257E+02  -3.328257E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -3.490418E+02   -3.490418E+02  -3.490418E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.490418E+02  -3.490418E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -3.226584E+02   -3.226584E+02  -3.226584E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.226584E+02  -3.226584E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.104236E+02   -3.104236E+02  -3.104236E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.104236E+02  -3.104236E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -2.847989E+02   -2.847989E+02  -2.847989E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.847989E+02  -2.847989E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.735216E+02   -2.735216E+02  -2.735216E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.735216E+02  -2.735216E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -3.105182E+02   -3.105182E+02  -3.105182E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.105182E+02  -3.105182E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -2.970081E+02   -2.970081E+02  -2.970081E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.970081E+02  -2.970081E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -1.981738E+02   -1.981738E+02  -1.981738E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.981738E+02  -1.981738E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -1.445225E+02   -1.445225E+02  -1.445225E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.445225E+02  -1.445225E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -1.566832E+02   -1.566832E+02  -1.566832E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.566832E+02  -1.566832E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.285448E+02   -1.285448E+02  -1.285448E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.285448E+02  -1.285448E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    61\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.003998E+02   -1.003998E+02  -1.003998E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.003998E+02  -1.003998E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.585675E+02   -1.585675E+02  -1.585675E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.585675E+02  -1.585675E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -2.081095E+02   -2.081095E+02  -2.081095E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.081095E+02  -2.081095E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.626858E+02   -1.626858E+02  -1.626858E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.626858E+02  -1.626858E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.106578E+02   -1.106578E+02  -1.106578E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.106578E+02  -1.106578E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -1.170366E+02   -1.170366E+02  -1.170366E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.170366E+02  -1.170366E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -1.277232E+02   -1.277232E+02  -1.277232E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.277232E+02  -1.277232E+02         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -1.002424E+02   -1.002424E+02  -1.002424E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.002424E+02  -1.002424E+02         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -3.990695E+01   -3.990695E+01  -3.990695E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.990695E+01  -3.990695E+01         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0            2.429443E+01    2.429443E+01   2.429443E+01         \r\n                    0.0            0.0            0.0            0.0                            2.429443E+01   2.429443E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0            4.381658E+01    4.381658E+01   4.381658E+01         \r\n                    0.0            0.0            0.0            0.0                            4.381658E+01   4.381658E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0            2.163107E+01    2.163107E+01   2.163107E+01         \r\n                    0.0            0.0            0.0            0.0                            2.163107E+01   2.163107E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0            7.556840E+00    7.556840E+00   7.556840E+00         \r\n                    0.0            0.0            0.0            0.0                            7.556840E+00   7.556840E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -7.619362E+00   -7.619362E+00  -7.619362E+00         \r\n                    0.0            0.0            0.0            0.0                           -7.619362E+00  -7.619362E+00         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -4.679743E+01   -4.679743E+01  -4.679743E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.679743E+01  -4.679743E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    62\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       5\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -6.444659E+01   -6.444659E+01  -6.444659E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.444659E+01  -6.444659E+01         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -5.114711E+01   -5.114711E+01  -5.114711E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.114711E+01  -5.114711E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -7.240846E+01   -7.240846E+01  -7.240846E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.240846E+01  -7.240846E+01         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -1.391586E+02   -1.391586E+02  -1.391586E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.391586E+02  -1.391586E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.995428E+02   -1.995428E+02  -1.995428E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.995428E+02  -1.995428E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -2.196019E+02   -2.196019E+02  -2.196019E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.196019E+02  -2.196019E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    63\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       6\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -1.056048E-05   -1.056048E-05  -1.056048E-05         \r\n                    0.0            0.0            0.0            0.0                           -1.056048E-05  -1.056048E-05         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -3.102293E-03   -3.102293E-03  -3.102293E-03         \r\n                    0.0            0.0            0.0            0.0                           -3.102293E-03  -3.102293E-03         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.411297E-01   -1.411297E-01  -1.411297E-01         \r\n                    0.0            0.0            0.0            0.0                           -1.411297E-01  -1.411297E-01         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -2.139175E+00   -2.139175E+00  -2.139175E+00         \r\n                    0.0            0.0            0.0            0.0                           -2.139175E+00  -2.139175E+00         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -1.505872E+01   -1.505872E+01  -1.505872E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.505872E+01  -1.505872E+01         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -5.838190E+01   -5.838190E+01  -5.838190E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.838190E+01  -5.838190E+01         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.359858E+02   -1.359858E+02  -1.359858E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.359858E+02  -1.359858E+02         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.971427E+02   -1.971427E+02  -1.971427E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.971427E+02  -1.971427E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.812652E+02   -1.812652E+02  -1.812652E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.812652E+02  -1.812652E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.271619E+02   -1.271619E+02  -1.271619E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.271619E+02  -1.271619E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.321784E+02   -1.321784E+02  -1.321784E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.321784E+02  -1.321784E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.793663E+02   -1.793663E+02  -1.793663E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.793663E+02  -1.793663E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.744357E+02   -1.744357E+02  -1.744357E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.744357E+02  -1.744357E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -1.489308E+02   -1.489308E+02  -1.489308E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.489308E+02  -1.489308E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    64\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       6\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -1.983721E+02   -1.983721E+02  -1.983721E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.983721E+02  -1.983721E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -2.793446E+02   -2.793446E+02  -2.793446E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.793446E+02  -2.793446E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -3.111955E+02   -3.111955E+02  -3.111955E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.111955E+02  -3.111955E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -3.312703E+02   -3.312703E+02  -3.312703E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.312703E+02  -3.312703E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -3.512692E+02   -3.512692E+02  -3.512692E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.512692E+02  -3.512692E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -3.080777E+02   -3.080777E+02  -3.080777E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.080777E+02  -3.080777E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -2.576114E+02   -2.576114E+02  -2.576114E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.576114E+02  -2.576114E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -3.001273E+02   -3.001273E+02  -3.001273E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.001273E+02  -3.001273E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -3.501576E+02   -3.501576E+02  -3.501576E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.501576E+02  -3.501576E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -3.040880E+02   -3.040880E+02  -3.040880E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.040880E+02  -3.040880E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -2.530556E+02   -2.530556E+02  -2.530556E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.530556E+02  -2.530556E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -2.661030E+02   -2.661030E+02  -2.661030E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.661030E+02  -2.661030E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -2.491205E+02   -2.491205E+02  -2.491205E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.491205E+02  -2.491205E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -1.701701E+02   -1.701701E+02  -1.701701E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.701701E+02  -1.701701E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.166602E+02   -1.166602E+02  -1.166602E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.166602E+02  -1.166602E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    65\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       6\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.140933E+02   -1.140933E+02  -1.140933E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.140933E+02  -1.140933E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.305757E+02   -1.305757E+02  -1.305757E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.305757E+02  -1.305757E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.597010E+02   -1.597010E+02  -1.597010E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.597010E+02  -1.597010E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.746997E+02   -1.746997E+02  -1.746997E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.746997E+02  -1.746997E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.464053E+02   -1.464053E+02  -1.464053E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.464053E+02  -1.464053E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -1.020156E+02   -1.020156E+02  -1.020156E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.020156E+02  -1.020156E+02         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -6.402204E+01   -6.402204E+01  -6.402204E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.402204E+01  -6.402204E+01         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -2.921547E+01   -2.921547E+01  -2.921547E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.921547E+01  -2.921547E+01         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -8.911332E+00   -8.911332E+00  -8.911332E+00         \r\n                    0.0            0.0            0.0            0.0                           -8.911332E+00  -8.911332E+00         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0            1.509459E+01    1.509459E+01   1.509459E+01         \r\n                    0.0            0.0            0.0            0.0                            1.509459E+01   1.509459E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0            5.830056E+01    5.830056E+01   5.830056E+01         \r\n                    0.0            0.0            0.0            0.0                            5.830056E+01   5.830056E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0            4.558479E+01    4.558479E+01   4.558479E+01         \r\n                    0.0            0.0            0.0            0.0                            4.558479E+01   4.558479E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0           -4.089130E+01   -4.089130E+01  -4.089130E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.089130E+01  -4.089130E+01         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -6.450930E+01   -6.450930E+01  -6.450930E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.450930E+01  -6.450930E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0            5.087018E+00    5.087018E+00   5.087018E+00         \r\n                    0.0            0.0            0.0            0.0                            5.087018E+00   5.087018E+00         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    66\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       6\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0            1.996929E+01    1.996929E+01   1.996929E+01         \r\n                    0.0            0.0            0.0            0.0                            1.996929E+01   1.996929E+01         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -4.139156E+01   -4.139156E+01  -4.139156E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.139156E+01  -4.139156E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -7.246138E+01   -7.246138E+01  -7.246138E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.246138E+01  -7.246138E+01         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -9.594379E+01   -9.594379E+01  -9.594379E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.594379E+01  -9.594379E+01         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -1.598467E+02   -1.598467E+02  -1.598467E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.598467E+02  -1.598467E+02         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -1.878669E+02   -1.878669E+02  -1.878669E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.878669E+02  -1.878669E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    67\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       7\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -3.065949E-07   -3.065949E-07  -3.065949E-07         \r\n                    0.0            0.0            0.0            0.0                           -3.065949E-07  -3.065949E-07         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -1.486624E-04   -1.486624E-04  -1.486624E-04         \r\n                    0.0            0.0            0.0            0.0                           -1.486624E-04  -1.486624E-04         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -1.080293E-02   -1.080293E-02  -1.080293E-02         \r\n                    0.0            0.0            0.0            0.0                           -1.080293E-02  -1.080293E-02         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -2.545220E-01   -2.545220E-01  -2.545220E-01         \r\n                    0.0            0.0            0.0            0.0                           -2.545220E-01  -2.545220E-01         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -2.731866E+00   -2.731866E+00  -2.731866E+00         \r\n                    0.0            0.0            0.0            0.0                           -2.731866E+00  -2.731866E+00         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -1.603392E+01   -1.603392E+01  -1.603392E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.603392E+01  -1.603392E+01         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -5.704779E+01   -5.704779E+01  -5.704779E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.704779E+01  -5.704779E+01         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.298891E+02   -1.298891E+02  -1.298891E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.298891E+02  -1.298891E+02         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.930147E+02   -1.930147E+02  -1.930147E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.930147E+02  -1.930147E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.884352E+02   -1.884352E+02  -1.884352E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.884352E+02  -1.884352E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.364326E+02   -1.364326E+02  -1.364326E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.364326E+02  -1.364326E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.303400E+02   -1.303400E+02  -1.303400E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.303400E+02  -1.303400E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.881547E+02   -1.881547E+02  -1.881547E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.881547E+02  -1.881547E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -2.280918E+02   -2.280918E+02  -2.280918E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.280918E+02  -2.280918E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    68\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       7\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -2.411548E+02   -2.411548E+02  -2.411548E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.411548E+02  -2.411548E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -3.017846E+02   -3.017846E+02  -3.017846E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.017846E+02  -3.017846E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -3.721988E+02   -3.721988E+02  -3.721988E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.721988E+02  -3.721988E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -3.438523E+02   -3.438523E+02  -3.438523E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.438523E+02  -3.438523E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -2.692677E+02   -2.692677E+02  -2.692677E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.692677E+02  -2.692677E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -2.771078E+02   -2.771078E+02  -2.771078E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.771078E+02  -2.771078E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.298291E+02   -3.298291E+02  -3.298291E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.298291E+02  -3.298291E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -3.263251E+02   -3.263251E+02  -3.263251E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.263251E+02  -3.263251E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.968185E+02   -2.968185E+02  -2.968185E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.968185E+02  -2.968185E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -2.969222E+02   -2.969222E+02  -2.969222E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.969222E+02  -2.969222E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -3.010287E+02   -3.010287E+02  -3.010287E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.010287E+02  -3.010287E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -2.918681E+02   -2.918681E+02  -2.918681E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.918681E+02  -2.918681E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -2.718503E+02   -2.718503E+02  -2.718503E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.718503E+02  -2.718503E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -2.216388E+02   -2.216388E+02  -2.216388E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.216388E+02  -2.216388E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -1.647480E+02   -1.647480E+02  -1.647480E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.647480E+02  -1.647480E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    69\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       7\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.410811E+02   -1.410811E+02  -1.410811E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.410811E+02  -1.410811E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.199289E+02   -1.199289E+02  -1.199289E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.199289E+02  -1.199289E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -9.815345E+01   -9.815345E+01  -9.815345E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.815345E+01  -9.815345E+01         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.326763E+02   -1.326763E+02  -1.326763E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.326763E+02  -1.326763E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -1.673050E+02   -1.673050E+02  -1.673050E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.673050E+02  -1.673050E+02         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -9.806995E+01   -9.806995E+01  -9.806995E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.806995E+01  -9.806995E+01         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0            7.675924E-01    7.675924E-01   7.675924E-01         \r\n                    0.0            0.0            0.0            0.0                            7.675924E-01   7.675924E-01         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0            2.195297E+01    2.195297E+01   2.195297E+01         \r\n                    0.0            0.0            0.0            0.0                            2.195297E+01   2.195297E+01         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0            2.377349E+01    2.377349E+01   2.377349E+01         \r\n                    0.0            0.0            0.0            0.0                            2.377349E+01   2.377349E+01         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0            4.104019E+01    4.104019E+01   4.104019E+01         \r\n                    0.0            0.0            0.0            0.0                            4.104019E+01   4.104019E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0            8.726455E+00    8.726455E+00   8.726455E+00         \r\n                    0.0            0.0            0.0            0.0                            8.726455E+00   8.726455E+00         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0           -3.170959E+01   -3.170959E+01  -3.170959E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.170959E+01  -3.170959E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0           -9.253833E+00   -9.253833E+00  -9.253833E+00         \r\n                    0.0            0.0            0.0            0.0                           -9.253833E+00  -9.253833E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0            2.773865E+00    2.773865E+00   2.773865E+00         \r\n                    0.0            0.0            0.0            0.0                            2.773865E+00   2.773865E+00         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -2.022264E+01   -2.022264E+01  -2.022264E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.022264E+01  -2.022264E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    70\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       7\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0            5.979436E+00    5.979436E+00   5.979436E+00         \r\n                    0.0            0.0            0.0            0.0                            5.979436E+00   5.979436E+00         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0            2.250202E+01    2.250202E+01   2.250202E+01         \r\n                    0.0            0.0            0.0            0.0                            2.250202E+01   2.250202E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -6.115920E+01   -6.115920E+01  -6.115920E+01         \r\n                    0.0            0.0            0.0            0.0                           -6.115920E+01  -6.115920E+01         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -1.164630E+02   -1.164630E+02  -1.164630E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.164630E+02  -1.164630E+02         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -7.143279E+01   -7.143279E+01  -7.143279E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.143279E+01  -7.143279E+01         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -9.449644E+01   -9.449644E+01  -9.449644E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.449644E+01  -9.449644E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    71\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       8\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -8.476190E-09   -8.476190E-09  -8.476190E-09         \r\n                    0.0            0.0            0.0            0.0                           -8.476190E-09  -8.476190E-09         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -6.401976E-06   -6.401976E-06  -6.401976E-06         \r\n                    0.0            0.0            0.0            0.0                           -6.401976E-06  -6.401976E-06         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -7.057515E-04   -7.057515E-04  -7.057515E-04         \r\n                    0.0            0.0            0.0            0.0                           -7.057515E-04  -7.057515E-04         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -2.467249E-02   -2.467249E-02  -2.467249E-02         \r\n                    0.0            0.0            0.0            0.0                           -2.467249E-02  -2.467249E-02         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -3.861712E-01   -3.861712E-01  -3.861712E-01         \r\n                    0.0            0.0            0.0            0.0                           -3.861712E-01  -3.861712E-01         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -3.271665E+00   -3.271665E+00  -3.271665E+00         \r\n                    0.0            0.0            0.0            0.0                           -3.271665E+00  -3.271665E+00         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -1.679692E+01   -1.679692E+01  -1.679692E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.679692E+01  -1.679692E+01         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -5.588731E+01   -5.588731E+01  -5.588731E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.588731E+01  -5.588731E+01         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -1.248719E+02   -1.248719E+02  -1.248719E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.248719E+02  -1.248719E+02         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.897534E+02   -1.897534E+02  -1.897534E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.897534E+02  -1.897534E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.983285E+02   -1.983285E+02  -1.983285E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.983285E+02  -1.983285E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -1.624086E+02   -1.624086E+02  -1.624086E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.624086E+02  -1.624086E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -1.724501E+02   -1.724501E+02  -1.724501E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.724501E+02  -1.724501E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -2.657729E+02   -2.657729E+02  -2.657729E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.657729E+02  -2.657729E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    72\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       8\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -3.500391E+02   -3.500391E+02  -3.500391E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.500391E+02  -3.500391E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -3.463751E+02   -3.463751E+02  -3.463751E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.463751E+02  -3.463751E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -3.070890E+02   -3.070890E+02  -3.070890E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.070890E+02  -3.070890E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -2.969955E+02   -2.969955E+02  -2.969955E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.969955E+02  -2.969955E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -2.978618E+02   -2.978618E+02  -2.978618E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.978618E+02  -2.978618E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -3.009651E+02   -3.009651E+02  -3.009651E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.009651E+02  -3.009651E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.229831E+02   -3.229831E+02  -3.229831E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.229831E+02  -3.229831E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -3.236519E+02   -3.236519E+02  -3.236519E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.236519E+02  -3.236519E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -2.874042E+02   -2.874042E+02  -2.874042E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.874042E+02  -2.874042E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -2.903068E+02   -2.903068E+02  -2.903068E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.903068E+02  -2.903068E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -3.318841E+02   -3.318841E+02  -3.318841E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.318841E+02  -3.318841E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -3.120272E+02   -3.120272E+02  -3.120272E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.120272E+02  -3.120272E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -2.565195E+02   -2.565195E+02  -2.565195E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.565195E+02  -2.565195E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -2.624027E+02   -2.624027E+02  -2.624027E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.624027E+02  -2.624027E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -2.595348E+02   -2.595348E+02  -2.595348E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.595348E+02  -2.595348E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    73\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       8\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -1.666249E+02   -1.666249E+02  -1.666249E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.666249E+02  -1.666249E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -9.668427E+01   -9.668427E+01  -9.668427E+01         \r\n                    0.0            0.0            0.0            0.0                           -9.668427E+01  -9.668427E+01         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.121471E+02   -1.121471E+02  -1.121471E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.121471E+02  -1.121471E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.002048E+02   -1.002048E+02  -1.002048E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.002048E+02  -1.002048E+02         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -5.323209E+01   -5.323209E+01  -5.323209E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.323209E+01  -5.323209E+01         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0           -5.866551E+01   -5.866551E+01  -5.866551E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.866551E+01  -5.866551E+01         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0           -4.172241E+01   -4.172241E+01  -4.172241E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.172241E+01  -4.172241E+01         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0            5.860849E+01    5.860849E+01   5.860849E+01         \r\n                    0.0            0.0            0.0            0.0                            5.860849E+01   5.860849E+01         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0            9.021091E+01    9.021091E+01   9.021091E+01         \r\n                    0.0            0.0            0.0            0.0                            9.021091E+01   9.021091E+01         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -2.895299E+00   -2.895299E+00  -2.895299E+00         \r\n                    0.0            0.0            0.0            0.0                           -2.895299E+00  -2.895299E+00         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -5.507575E+01   -5.507575E+01  -5.507575E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.507575E+01  -5.507575E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0           -1.921753E+01   -1.921753E+01  -1.921753E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.921753E+01  -1.921753E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0            3.305979E+00    3.305979E+00   3.305979E+00         \r\n                    0.0            0.0            0.0            0.0                            3.305979E+00   3.305979E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0            1.401978E+01    1.401978E+01   1.401978E+01         \r\n                    0.0            0.0            0.0            0.0                            1.401978E+01   1.401978E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0            2.936718E+01    2.936718E+01   2.936718E+01         \r\n                    0.0            0.0            0.0            0.0                            2.936718E+01   2.936718E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    74\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       8\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -1.056046E+01   -1.056046E+01  -1.056046E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.056046E+01  -1.056046E+01         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -5.319171E+01   -5.319171E+01  -5.319171E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.319171E+01  -5.319171E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -1.287184E+01   -1.287184E+01  -1.287184E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.287184E+01  -1.287184E+01         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0            5.730000E+00    5.730000E+00   5.730000E+00         \r\n                    0.0            0.0            0.0            0.0                            5.730000E+00   5.730000E+00         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -7.556721E+01   -7.556721E+01  -7.556721E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.556721E+01  -7.556721E+01         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -1.337721E+02   -1.337721E+02  -1.337721E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.337721E+02  -1.337721E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    75\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       9\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -2.255259E-10   -2.255259E-10  -2.255259E-10         \r\n                    0.0            0.0            0.0            0.0                           -2.255259E-10  -2.255259E-10         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -2.534840E-07   -2.534840E-07  -2.534840E-07         \r\n                    0.0            0.0            0.0            0.0                           -2.534840E-07  -2.534840E-07         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -4.068152E-05   -4.068152E-05  -4.068152E-05         \r\n                    0.0            0.0            0.0            0.0                           -4.068152E-05  -4.068152E-05         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -2.033026E-03   -2.033026E-03  -2.033026E-03         \r\n                    0.0            0.0            0.0            0.0                           -2.033026E-03  -2.033026E-03         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -4.481118E-02   -4.481118E-02  -4.481118E-02         \r\n                    0.0            0.0            0.0            0.0                           -4.481118E-02  -4.481118E-02         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -5.291710E-01   -5.291710E-01  -5.291710E-01         \r\n                    0.0            0.0            0.0            0.0                           -5.291710E-01  -5.291710E-01         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -3.773396E+00   -3.773396E+00  -3.773396E+00         \r\n                    0.0            0.0            0.0            0.0                           -3.773396E+00  -3.773396E+00         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -1.753789E+01   -1.753789E+01  -1.753789E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.753789E+01  -1.753789E+01         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -5.577856E+01   -5.577856E+01  -5.577856E+01         \r\n                    0.0            0.0            0.0            0.0                           -5.577856E+01  -5.577856E+01         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -1.251643E+02   -1.251643E+02  -1.251643E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.251643E+02  -1.251643E+02         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -2.029024E+02   -2.029024E+02  -2.029024E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.029024E+02  -2.029024E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -2.483160E+02   -2.483160E+02  -2.483160E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.483160E+02  -2.483160E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -2.610627E+02   -2.610627E+02  -2.610627E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.610627E+02  -2.610627E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -2.922994E+02   -2.922994E+02  -2.922994E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.922994E+02  -2.922994E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    76\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       9\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -3.490659E+02   -3.490659E+02  -3.490659E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.490659E+02  -3.490659E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -3.534801E+02   -3.534801E+02  -3.534801E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.534801E+02  -3.534801E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -2.853126E+02   -2.853126E+02  -2.853126E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.853126E+02  -2.853126E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -2.583357E+02   -2.583357E+02  -2.583357E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.583357E+02  -2.583357E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -3.233848E+02   -3.233848E+02  -3.233848E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.233848E+02  -3.233848E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -3.546036E+02   -3.546036E+02  -3.546036E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.546036E+02  -3.546036E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -2.916694E+02   -2.916694E+02  -2.916694E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.916694E+02  -2.916694E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -2.672229E+02   -2.672229E+02  -2.672229E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.672229E+02  -2.672229E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -3.294836E+02   -3.294836E+02  -3.294836E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.294836E+02  -3.294836E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -3.404685E+02   -3.404685E+02  -3.404685E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.404685E+02  -3.404685E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -2.795670E+02   -2.795670E+02  -2.795670E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.795670E+02  -2.795670E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -2.830162E+02   -2.830162E+02  -2.830162E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.830162E+02  -2.830162E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -3.315958E+02   -3.315958E+02  -3.315958E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.315958E+02  -3.315958E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -2.967808E+02   -2.967808E+02  -2.967808E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.967808E+02  -2.967808E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -2.299096E+02   -2.299096E+02  -2.299096E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.299096E+02  -2.299096E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    77\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       9\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -2.240687E+02   -2.240687E+02  -2.240687E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.240687E+02  -2.240687E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.901239E+02   -1.901239E+02  -1.901239E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.901239E+02  -1.901239E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -7.950017E+01   -7.950017E+01  -7.950017E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.950017E+01  -7.950017E+01         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -1.519761E+01   -1.519761E+01  -1.519761E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.519761E+01  -1.519761E+01         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0           -2.120797E+01   -2.120797E+01  -2.120797E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.120797E+01  -2.120797E+01         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0            4.352011E+00    4.352011E+00   4.352011E+00         \r\n                    0.0            0.0            0.0            0.0                            4.352011E+00   4.352011E+00         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0            3.680880E+01    3.680880E+01   3.680880E+01         \r\n                    0.0            0.0            0.0            0.0                            3.680880E+01   3.680880E+01         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0            9.734067E+00    9.734067E+00   9.734067E+00         \r\n                    0.0            0.0            0.0            0.0                            9.734067E+00   9.734067E+00         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -6.625216E+00   -6.625216E+00  -6.625216E+00         \r\n                    0.0            0.0            0.0            0.0                           -6.625216E+00  -6.625216E+00         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0            1.592861E+01    1.592861E+01   1.592861E+01         \r\n                    0.0            0.0            0.0            0.0                            1.592861E+01   1.592861E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0           -5.870390E+00   -5.870390E+00  -5.870390E+00         \r\n                    0.0            0.0            0.0            0.0                           -5.870390E+00  -5.870390E+00         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0           -4.053797E+01   -4.053797E+01  -4.053797E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.053797E+01  -4.053797E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0            2.416591E+00    2.416591E+00   2.416591E+00         \r\n                    0.0            0.0            0.0            0.0                            2.416591E+00   2.416591E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0            4.596893E+01    4.596893E+01   4.596893E+01         \r\n                    0.0            0.0            0.0            0.0                            4.596893E+01   4.596893E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0            3.179311E+00    3.179311E+00   3.179311E+00         \r\n                    0.0            0.0            0.0            0.0                            3.179311E+00   3.179311E+00         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    78\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =       9\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0           -3.766959E+01   -3.766959E+01  -3.766959E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.766959E+01  -3.766959E+01         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0           -1.223680E+01   -1.223680E+01  -1.223680E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.223680E+01  -1.223680E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0            9.416590E+00    9.416590E+00   9.416590E+00         \r\n                    0.0            0.0            0.0            0.0                            9.416590E+00   9.416590E+00         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -7.913852E+00   -7.913852E+00  -7.913852E+00         \r\n                    0.0            0.0            0.0            0.0                           -7.913852E+00  -7.913852E+00         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -4.084070E+01   -4.084070E+01  -4.084070E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.084070E+01  -4.084070E+01         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -8.868536E+01   -8.868536E+01  -8.868536E+01         \r\n                    0.0            0.0            0.0            0.0                           -8.868536E+01  -8.868536E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    79\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  0.0               0.0            0.0            0.0            0.0            0.0             0.0            0.0                  \r\n                    0.0            0.0            0.0            0.0                            0.0            0.0                  \r\n                                                                                                                                    \r\n  5.000000E-05      0.0            0.0            0.0            0.0           -5.964351E-12   -5.964351E-12  -5.964351E-12         \r\n                    0.0            0.0            0.0            0.0                           -5.964351E-12  -5.964351E-12         \r\n                                                                                                                                    \r\n  1.000000E-04      0.0            0.0            0.0            0.0           -9.705293E-09   -9.705293E-09  -9.705293E-09         \r\n                    0.0            0.0            0.0            0.0                           -9.705293E-09  -9.705293E-09         \r\n                                                                                                                                    \r\n  1.500000E-04      0.0            0.0            0.0            0.0           -2.219382E-06   -2.219382E-06  -2.219382E-06         \r\n                    0.0            0.0            0.0            0.0                           -2.219382E-06  -2.219382E-06         \r\n                                                                                                                                    \r\n  2.000000E-04      0.0            0.0            0.0            0.0           -1.561389E-04   -1.561389E-04  -1.561389E-04         \r\n                    0.0            0.0            0.0            0.0                           -1.561389E-04  -1.561389E-04         \r\n                                                                                                                                    \r\n  2.499999E-04      0.0            0.0            0.0            0.0           -4.800704E-03   -4.800704E-03  -4.800704E-03         \r\n                    0.0            0.0            0.0            0.0                           -4.800704E-03  -4.800704E-03         \r\n                                                                                                                                    \r\n  3.000000E-04      0.0            0.0            0.0            0.0           -7.863795E-02   -7.863795E-02  -7.863795E-02         \r\n                    0.0            0.0            0.0            0.0                           -7.863795E-02  -7.863795E-02         \r\n                                                                                                                                    \r\n  3.500000E-04      0.0            0.0            0.0            0.0           -7.770418E-01   -7.770418E-01  -7.770418E-01         \r\n                    0.0            0.0            0.0            0.0                           -7.770418E-01  -7.770418E-01         \r\n                                                                                                                                    \r\n  4.000000E-04      0.0            0.0            0.0            0.0           -5.027257E+00   -5.027257E+00  -5.027257E+00         \r\n                    0.0            0.0            0.0            0.0                           -5.027257E+00  -5.027257E+00         \r\n                                                                                                                                    \r\n  4.500001E-04      0.0            0.0            0.0            0.0           -2.249439E+01   -2.249439E+01  -2.249439E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.249439E+01  -2.249439E+01         \r\n                                                                                                                                    \r\n  5.000001E-04      0.0            0.0            0.0            0.0           -7.212670E+01   -7.212670E+01  -7.212670E+01         \r\n                    0.0            0.0            0.0            0.0                           -7.212670E+01  -7.212670E+01         \r\n                                                                                                                                    \r\n  5.500000E-04      0.0            0.0            0.0            0.0           -1.691770E+02   -1.691770E+02  -1.691770E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.691770E+02  -1.691770E+02         \r\n                                                                                                                                    \r\n  5.999999E-04      0.0            0.0            0.0            0.0           -2.927386E+02   -2.927386E+02  -2.927386E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.927386E+02  -2.927386E+02         \r\n                                                                                                                                    \r\n  6.499998E-04      0.0            0.0            0.0            0.0           -3.740800E+02   -3.740800E+02  -3.740800E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.740800E+02  -3.740800E+02         \r\n                                                                                                                                    \r\n  6.999997E-04      0.0            0.0            0.0            0.0           -3.580626E+02   -3.580626E+02  -3.580626E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.580626E+02  -3.580626E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    80\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  7.499997E-04      0.0            0.0            0.0            0.0           -2.870634E+02   -2.870634E+02  -2.870634E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.870634E+02  -2.870634E+02         \r\n                                                                                                                                    \r\n  7.999996E-04      0.0            0.0            0.0            0.0           -2.655171E+02   -2.655171E+02  -2.655171E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.655171E+02  -2.655171E+02         \r\n                                                                                                                                    \r\n  8.499995E-04      0.0            0.0            0.0            0.0           -3.139385E+02   -3.139385E+02  -3.139385E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.139385E+02  -3.139385E+02         \r\n                                                                                                                                    \r\n  8.999994E-04      0.0            0.0            0.0            0.0           -3.412310E+02   -3.412310E+02  -3.412310E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.412310E+02  -3.412310E+02         \r\n                                                                                                                                    \r\n  9.499993E-04      0.0            0.0            0.0            0.0           -3.049838E+02   -3.049838E+02  -3.049838E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.049838E+02  -3.049838E+02         \r\n                                                                                                                                    \r\n  9.999992E-04      0.0            0.0            0.0            0.0           -2.815182E+02   -2.815182E+02  -2.815182E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.815182E+02  -2.815182E+02         \r\n                                                                                                                                    \r\n  1.049999E-03      0.0            0.0            0.0            0.0           -3.126872E+02   -3.126872E+02  -3.126872E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.126872E+02  -3.126872E+02         \r\n                                                                                                                                    \r\n  1.099999E-03      0.0            0.0            0.0            0.0           -3.293193E+02   -3.293193E+02  -3.293193E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.293193E+02  -3.293193E+02         \r\n                                                                                                                                    \r\n  1.149999E-03      0.0            0.0            0.0            0.0           -3.002714E+02   -3.002714E+02  -3.002714E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.002714E+02  -3.002714E+02         \r\n                                                                                                                                    \r\n  1.199999E-03      0.0            0.0            0.0            0.0           -2.916028E+02   -2.916028E+02  -2.916028E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.916028E+02  -2.916028E+02         \r\n                                                                                                                                    \r\n  1.249999E-03      0.0            0.0            0.0            0.0           -3.184845E+02   -3.184845E+02  -3.184845E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.184845E+02  -3.184845E+02         \r\n                                                                                                                                    \r\n  1.299999E-03      0.0            0.0            0.0            0.0           -3.178675E+02   -3.178675E+02  -3.178675E+02         \r\n                    0.0            0.0            0.0            0.0                           -3.178675E+02  -3.178675E+02         \r\n                                                                                                                                    \r\n  1.349999E-03      0.0            0.0            0.0            0.0           -2.913264E+02   -2.913264E+02  -2.913264E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.913264E+02  -2.913264E+02         \r\n                                                                                                                                    \r\n  1.399999E-03      0.0            0.0            0.0            0.0           -2.915994E+02   -2.915994E+02  -2.915994E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.915994E+02  -2.915994E+02         \r\n                                                                                                                                    \r\n  1.449998E-03      0.0            0.0            0.0            0.0           -2.933015E+02   -2.933015E+02  -2.933015E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.933015E+02  -2.933015E+02         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    81\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  1.499998E-03      0.0            0.0            0.0            0.0           -2.458934E+02   -2.458934E+02  -2.458934E+02         \r\n                    0.0            0.0            0.0            0.0                           -2.458934E+02  -2.458934E+02         \r\n                                                                                                                                    \r\n  1.549998E-03      0.0            0.0            0.0            0.0           -1.765592E+02   -1.765592E+02  -1.765592E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.765592E+02  -1.765592E+02         \r\n                                                                                                                                    \r\n  1.599998E-03      0.0            0.0            0.0            0.0           -1.112496E+02   -1.112496E+02  -1.112496E+02         \r\n                    0.0            0.0            0.0            0.0                           -1.112496E+02  -1.112496E+02         \r\n                                                                                                                                    \r\n  1.649998E-03      0.0            0.0            0.0            0.0           -2.281878E+01   -2.281878E+01  -2.281878E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.281878E+01  -2.281878E+01         \r\n                                                                                                                                    \r\n  1.699998E-03      0.0            0.0            0.0            0.0            6.526028E+01    6.526028E+01   6.526028E+01         \r\n                    0.0            0.0            0.0            0.0                            6.526028E+01   6.526028E+01         \r\n                                                                                                                                    \r\n  1.749998E-03      0.0            0.0            0.0            0.0            8.102414E+01    8.102414E+01   8.102414E+01         \r\n                    0.0            0.0            0.0            0.0                            8.102414E+01   8.102414E+01         \r\n                                                                                                                                    \r\n  1.799998E-03      0.0            0.0            0.0            0.0            3.032457E+01    3.032457E+01   3.032457E+01         \r\n                    0.0            0.0            0.0            0.0                            3.032457E+01   3.032457E+01         \r\n                                                                                                                                    \r\n  1.849998E-03      0.0            0.0            0.0            0.0           -2.086399E+01   -2.086399E+01  -2.086399E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.086399E+01  -2.086399E+01         \r\n                                                                                                                                    \r\n  1.899998E-03      0.0            0.0            0.0            0.0           -4.397599E+01   -4.397599E+01  -4.397599E+01         \r\n                    0.0            0.0            0.0            0.0                           -4.397599E+01  -4.397599E+01         \r\n                                                                                                                                    \r\n  1.949998E-03      0.0            0.0            0.0            0.0           -3.012359E+01   -3.012359E+01  -3.012359E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.012359E+01  -3.012359E+01         \r\n                                                                                                                                    \r\n  1.999998E-03      0.0            0.0            0.0            0.0            1.949833E+01    1.949833E+01   1.949833E+01         \r\n                    0.0            0.0            0.0            0.0                            1.949833E+01   1.949833E+01         \r\n                                                                                                                                    \r\n  2.049997E-03      0.0            0.0            0.0            0.0            4.532779E+01    4.532779E+01   4.532779E+01         \r\n                    0.0            0.0            0.0            0.0                            4.532779E+01   4.532779E+01         \r\n                                                                                                                                    \r\n  2.099997E-03      0.0            0.0            0.0            0.0            3.716559E+00    3.716559E+00   3.716559E+00         \r\n                    0.0            0.0            0.0            0.0                            3.716559E+00   3.716559E+00         \r\n                                                                                                                                    \r\n  2.149997E-03      0.0            0.0            0.0            0.0           -3.892757E+01   -3.892757E+01  -3.892757E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.892757E+01  -3.892757E+01         \r\n                                                                                                                                    \r\n  2.199997E-03      0.0            0.0            0.0            0.0           -1.579490E+01   -1.579490E+01  -1.579490E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.579490E+01  -1.579490E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    82\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                 SUBCASE 1              \r\n      ELEMENT-ID =      10\r\n\r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n \r\n     TIME               SA1            SA2            SA3            SA4        AXIAL-STRESS      SA-MAX         SA-MIN     M.S.-T\r\n                        SB1            SB2            SB3            SB4                          SB-MAX         SB-MIN     M.S.-C\r\n  2.249997E-03      0.0            0.0            0.0            0.0            2.434375E+01    2.434375E+01   2.434375E+01         \r\n                    0.0            0.0            0.0            0.0                            2.434375E+01   2.434375E+01         \r\n                                                                                                                                    \r\n  2.299997E-03      0.0            0.0            0.0            0.0            1.674356E+01    1.674356E+01   1.674356E+01         \r\n                    0.0            0.0            0.0            0.0                            1.674356E+01   1.674356E+01         \r\n                                                                                                                                    \r\n  2.349997E-03      0.0            0.0            0.0            0.0           -1.690695E+01   -1.690695E+01  -1.690695E+01         \r\n                    0.0            0.0            0.0            0.0                           -1.690695E+01  -1.690695E+01         \r\n                                                                                                                                    \r\n  2.399997E-03      0.0            0.0            0.0            0.0           -3.126211E+01   -3.126211E+01  -3.126211E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.126211E+01  -3.126211E+01         \r\n                                                                                                                                    \r\n  2.449997E-03      0.0            0.0            0.0            0.0           -2.632113E+01   -2.632113E+01  -2.632113E+01         \r\n                    0.0            0.0            0.0            0.0                           -2.632113E+01  -2.632113E+01         \r\n                                                                                                                                    \r\n  2.499997E-03      0.0            0.0            0.0            0.0           -3.563478E+01   -3.563478E+01  -3.563478E+01         \r\n                    0.0            0.0            0.0            0.0                           -3.563478E+01  -3.563478E+01         \r\n                                                                                                                                    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    83\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TRAILER  -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n+                                                                                  153   = NOCUPV  \r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    84\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    85\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    86\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    87\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    88\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    89\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    90\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    91\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    92\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    93\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    94\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    95\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    96\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    97\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    98\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    99\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   100\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   101\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   102\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   103\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   104\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   105\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   106\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   107\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   108\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   109\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   110\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   111\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   112\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   113\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   114\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   115\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   116\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   117\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   118\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   119\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   120\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   121\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   122\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   123\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   124\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   125\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   126\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   127\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   128\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   129\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   130\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   131\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   132\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   133\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   134\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   135\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   136\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   137\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   138\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN2097440862\r\n0*** SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE  103 CONTAINS         1 COLUMNS.\r\n      THE FIRST COLUMN WILL BE USED, NOT THE REQUESTED COLUMN        -1\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   139\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.86923218E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   140\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                8.692322E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   141\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        8.692322E+00        2.948274E+00        4.692324E-01        2.447786E-01        2.127694E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   142\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.24831302E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   143\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                2.483130E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   144\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        2.483130E+00        1.575795E+00        2.507956E-01        8.778447E-01        2.179803E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   145\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.17781998E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   146\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.778200E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   147\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.778200E+00        1.333492E+00        2.122318E-01        1.640700E+00        2.917492E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   148\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.15176173E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   149\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.517617E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   150\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.517617E+00        1.231916E+00        1.960655E-01        1.273540E+00        1.932747E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   151\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.12351395E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   152\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.235139E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   153\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.235139E+00        1.111368E+00        1.768797E-01        1.375836E+00        1.699349E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   154\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.104370E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.11043696E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   155\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.104370E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   156\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.104370E+00        1.050890E+00        1.672543E-01        1.504263E+00        1.661263E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   157\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.078101E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10781014E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   158\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.078101E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   159\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.078101E+00        1.038317E+00        1.652532E-01        1.608302E+00        1.733913E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   160\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.023027E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10230267E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   161\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.023027E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   162\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.023027E+00        1.011448E+00        1.609769E-01        1.623797E+00        1.661187E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   163\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   9.826337E-01\r\n                        2 ROOTS BELOW   9.826337E-01\r\n                        4 ROOTS BELOW   9.031579E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.98263371E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   164\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.826337E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   165\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.826337E-01        9.912788E-01        1.577669E-01        1.686152E+00        1.656870E+00             \r\n        2         2        9.826337E-01        9.912788E-01        1.577669E-01        1.686152E+00        1.656870E+00             \r\n        3         3        9.031579E+00        3.005259E+00        4.783017E-01        3.484600E+00        3.147144E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   166\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.003604E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10036036E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   167\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.003604E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   168\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.003604E+00        1.001800E+00        1.594414E-01        1.899020E+00        1.905863E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   169\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.005843E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10058434E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   170\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.005843E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   171\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.005843E+00        1.002917E+00        1.596193E-01        1.805611E+00        1.816162E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   172\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.745125E-01\r\n                        2 ROOTS BELOW   9.745130E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.97451252E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   173\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.745125E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   174\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.745125E-01        9.871740E-01        1.571136E-01        1.638490E+00        1.596729E+00             \r\n        2         2        9.745125E-01        9.871740E-01        1.571136E-01        1.638490E+00        1.596729E+00             \r\n        3         3        8.258243E+00        2.873716E+00        4.573661E-01        4.744169E+00        3.917850E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   175\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.688850E-01\r\n                        2 ROOTS BELOW   9.688853E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.96888500E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   176\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.688850E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   177\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.688850E-01        9.843196E-01        1.566593E-01        1.642332E+00        1.591231E+00             \r\n        2         2        9.688850E-01        9.843196E-01        1.566593E-01        1.642332E+00        1.591231E+00             \r\n        3         3        7.731814E+00        2.780614E+00        4.425484E-01        5.047751E+00        3.902827E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   178\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.438789E-01\r\n                        2 ROOTS BELOW   9.438806E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.94387889E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   179\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.438789E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   180\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.438789E-01        9.715343E-01        1.546245E-01        2.081080E+00        1.964288E+00             \r\n        2         2        9.438789E-01        9.715343E-01        1.546245E-01        2.081080E+00        1.964288E+00             \r\n        3         3        6.870033E+00        2.621075E+00        4.171570E-01        6.470986E+00        4.445589E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   181\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   8.683133E-01\r\n                        2 ROOTS BELOW   8.683135E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.86831325E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   182\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                8.683133E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   183\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        8.683133E-01        9.318333E-01        1.483059E-01        2.029973E+00        1.762653E+00             \r\n        2         2        8.683133E-01        9.318333E-01        1.483059E-01        2.029973E+00        1.762653E+00             \r\n        3         3        5.981846E+00        2.445781E+00        3.892582E-01        7.359311E+00        4.402227E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   184\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   7.992003E-01\r\n                        2 ROOTS BELOW   7.992005E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.79920030E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   185\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                7.992003E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   186\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        7.992003E-01        8.939800E-01        1.422813E-01        2.062026E+00        1.647972E+00             \r\n        2         2        7.992003E-01        8.939800E-01        1.422813E-01        2.062026E+00        1.647972E+00             \r\n        3         3        5.627209E+00        2.372174E+00        3.775432E-01        8.627326E+00        4.854776E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   187\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   7.361485E-01\r\n                        2 ROOTS BELOW   7.361487E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.73614854E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   188\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                7.361485E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   189\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        7.361485E-01        8.579910E-01        1.365535E-01        2.475736E+00        1.822510E+00             \r\n        2         2        7.361485E-01        8.579910E-01        1.365535E-01        2.475736E+00        1.822510E+00             \r\n        3         3        5.622042E+00        2.371084E+00        3.773698E-01        1.067517E+01        6.001626E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   190\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   6.593905E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.65939021E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   191\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                6.593902E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   192\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        6.593902E-01        8.120285E-01        1.292383E-01        2.630782E+00        1.734712E+00             \r\n        2         2        6.593902E-01        8.120285E-01        1.292383E-01        2.630781E+00        1.734712E+00             \r\n        3         3        5.494861E+00        2.344112E+00        3.730770E-01        8.501030E+00        4.671198E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   193\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.958204E-01\r\n                        4 ROOTS BELOW   5.306709E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.59582043E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   194\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.958204E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   195\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.958204E-01        7.718940E-01        1.228507E-01        2.627584E+00        1.565568E+00             \r\n        2         2        5.958204E-01        7.718940E-01        1.228507E-01        2.627584E+00        1.565568E+00             \r\n        3         3        5.306709E+00        2.303630E+00        3.666340E-01        8.194882E+00        4.348786E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   196\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.575432E-01\r\n                        4 ROOTS BELOW   5.131953E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.55754316E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   197\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.575432E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   198\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.575432E-01        7.466881E-01        1.188391E-01        2.783600E+00        1.551977E+00             \r\n        2         2        5.575432E-01        7.466881E-01        1.188391E-01        2.783600E+00        1.551977E+00             \r\n        3         3        5.131952E+00        2.265381E+00        3.605466E-01        7.394913E+00        3.795034E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   199\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.336769E-01\r\n                        4 ROOTS BELOW   4.880830E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.53367692E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   200\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.336769E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   201\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.336769E-01        7.305319E-01        1.162678E-01        3.202384E+00        1.709039E+00             \r\n        2         2        5.336769E-01        7.305319E-01        1.162678E-01        3.202384E+00        1.709039E+00             \r\n        3         3        4.880829E+00        2.209260E+00        3.516146E-01        7.592436E+00        3.705738E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   202\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.359764E-01\r\n                        4 ROOTS BELOW   4.747913E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.53597641E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   203\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.359764E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   204\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.359764E-01        7.321041E-01        1.165180E-01        3.144005E+00        1.685113E+00             \r\n        2         2        5.359764E-01        7.321041E-01        1.165180E-01        3.144005E+00        1.685112E+00             \r\n        3         3        4.747912E+00        2.178970E+00        3.467939E-01        7.083654E+00        3.363257E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   205\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.876017E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.58760154E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   206\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.876015E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   207\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.876015E-01        7.665517E-01        1.220005E-01        2.685214E+00        1.577836E+00             \r\n        2         2        5.876015E-01        7.665517E-01        1.220005E-01        2.685214E+00        1.577836E+00             \r\n        3         3        4.992240E+00        2.234332E+00        3.556050E-01        8.503616E+00        4.245210E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   208\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   6.861597E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.68615878E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   209\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                6.861588E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   210\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        6.861588E-01        8.283470E-01        1.318355E-01        2.414104E+00        1.656459E+00             \r\n        2         2        6.861588E-01        8.283470E-01        1.318355E-01        2.414104E+00        1.656459E+00             \r\n        3         3        5.667504E+00        2.380652E+00        3.788925E-01        7.904679E+00        4.479980E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   211\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   8.040722E-01\r\n                        2 ROOTS BELOW   8.040723E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.80407220E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   212\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                8.040722E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   213\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        8.040722E-01        8.967007E-01        1.427144E-01        2.157309E+00        1.734632E+00             \r\n        2         2        8.040722E-01        8.967007E-01        1.427144E-01        2.157309E+00        1.734632E+00             \r\n        3         3        6.416156E+00        2.533013E+00        4.031416E-01        8.603595E+00        5.520201E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   214\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.083910E-01\r\n                        2 ROOTS BELOW   9.083915E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.90839100E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   215\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.083910E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   216\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.083910E-01        9.530955E-01        1.516899E-01        1.782447E+00        1.619159E+00             \r\n        2         2        9.083910E-01        9.530955E-01        1.516899E-01        1.782447E+00        1.619159E+00             \r\n        3         3        6.749811E+00        2.598040E+00        4.134909E-01        8.684257E+00        5.861709E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   217\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.455628E-01\r\n                        2 ROOTS BELOW   9.455660E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.94556278E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   218\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.455628E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   219\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.455628E-01        9.724005E-01        1.547623E-01        1.808458E+00        1.710010E+00             \r\n        2         2        9.455628E-01        9.724005E-01        1.547623E-01        1.808458E+00        1.710010E+00             \r\n        3         3        6.461301E+00        2.541909E+00        4.045574E-01        7.423260E+00        4.796392E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   220\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   9.249544E-01\r\n                        2 ROOTS BELOW   9.249547E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.92495441E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   221\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.249544E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   222\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.249544E-01        9.617455E-01        1.530665E-01        2.252204E+00        2.083186E+00             \r\n        2         2        9.249544E-01        9.617455E-01        1.530665E-01        2.252204E+00        2.083186E+00             \r\n        3         3        6.417231E+00        2.533226E+00        4.031754E-01        5.341538E+00        3.427789E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   223\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.568959E-01\r\n                        2 ROOTS BELOW   9.568964E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.95689595E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   224\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.568959E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   225\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.568959E-01        9.782106E-01        1.556870E-01        1.889426E+00        1.807984E+00             \r\n        2         2        9.568959E-01        9.782106E-01        1.556870E-01        1.889426E+00        1.807984E+00             \r\n        3         3        7.384926E+00        2.717522E+00        4.325071E-01        4.077715E+00        3.011362E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   226\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.047550E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10475504E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   227\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.047550E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   228\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.047550E+00        1.023499E+00        1.628949E-01        1.487278E+00        1.557998E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   229\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   1.060557E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10605574E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   230\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.060557E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   231\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.060557E+00        1.029834E+00        1.639031E-01        1.497792E+00        1.588495E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   232\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.974861E-01\r\n                        2 ROOTS BELOW   9.974875E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.99748605E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   233\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.974861E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   234\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.974861E-01        9.987422E-01        1.589548E-01        1.734219E+00        1.729859E+00             \r\n        2         2        9.974861E-01        9.987422E-01        1.589548E-01        1.734219E+00        1.729859E+00             \r\n        3         3        9.924582E+00        3.150331E+00        5.013906E-01        3.337023E+00        3.311856E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   235\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.941482E-01\r\n                        2 ROOTS BELOW   9.941483E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.99414819E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   236\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.941482E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   237\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.941482E-01        9.970698E-01        1.586886E-01        1.801013E+00        1.790473E+00             \r\n        2         2        9.941482E-01        9.970698E-01        1.586886E-01        1.801013E+00        1.790473E+00             \r\n        3         3        9.744828E+00        3.121671E+00        4.968293E-01        3.640042E+00        3.547158E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   238\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   1.069641E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10696411E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   239\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.069641E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   240\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.069641E+00        1.034235E+00        1.646035E-01        1.593208E+00        1.704161E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   241\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   1.154459E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.11544585E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   242\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.154459E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   243\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.154459E+00        1.074457E+00        1.710052E-01        1.461158E+00        1.686846E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   244\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.12252703E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   245\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.225270E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   246\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.225270E+00        1.106919E+00        1.761717E-01        1.393649E+00        1.707597E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   247\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   1.347963E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.13479626E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   248\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.347963E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   249\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.347963E+00        1.161018E+00        1.847817E-01        1.327447E+00        1.789348E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   250\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.16513678E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   251\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.651368E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   252\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.651368E+00        1.285056E+00        2.045229E-01        1.104849E+00        1.824513E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   253\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.22823515E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   254\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                2.282351E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   255\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        2.282351E+00        1.510745E+00        2.404426E-01        8.352928E-01        1.906432E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   256\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   3.107117E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.31071169E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   257\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                3.107117E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   258\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        3.107117E+00        1.762702E+00        2.805427E-01        9.782218E-01        3.039449E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   259\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   3.846237E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.38462367E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   260\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                3.846237E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   261\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        3.846237E+00        1.961182E+00        3.121319E-01        8.893837E-01        3.420780E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   262\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   5.310287E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.53102875E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   263\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.310287E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   264\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.310287E+00        2.304406E+00        3.667576E-01        4.318754E-01        2.293383E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   265\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   5.234330E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.52343292E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   266\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                5.234329E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   267\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        5.234329E+00        2.287866E+00        3.641251E-01        3.348491E-01        1.752710E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   268\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   2.603357E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.26033566E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   269\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                2.603357E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   270\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        2.603357E+00        1.613492E+00        2.567952E-01        7.632375E-01        1.986979E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   271\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.15403464E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   272\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.540346E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   273\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.540346E+00        1.241107E+00        1.975283E-01        1.203981E+00        1.854547E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   274\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.11883297E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   275\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.188330E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   276\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.188330E+00        1.090105E+00        1.734957E-01        1.454685E+00        1.728645E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   277\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10155536E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   278\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.015554E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   279\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.015554E+00        1.007747E+00        1.603879E-01        1.757779E+00        1.785119E+00             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   280\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.330094E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.93300760E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   281\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.330076E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   282\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.330076E-01        9.659232E-01        1.537315E-01        1.900522E+00        1.773201E+00             \r\n        2         2        9.330076E-01        9.659232E-01        1.537315E-01        1.900520E+00        1.773200E+00             \r\n        3         3        1.217451E+01        3.489199E+00        5.553233E-01        2.296540E+00        2.795925E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   283\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        2 ROOTS BELOW   9.758211E-01\r\n                        2 ROOTS BELOW   9.758236E-01\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.97582114E+00   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   284\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                9.758211E-01\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   285\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        9.758211E-01        9.878366E-01        1.572191E-01        1.641426E+00        1.601739E+00             \r\n        2         2        9.758211E-01        9.878366E-01        1.572191E-01        1.641426E+00        1.601739E+00             \r\n        3         3        1.101580E+01        3.319006E+00        5.282362E-01        3.781407E+00        4.165523E+01             \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   286\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n\r\n      A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n\r\n\r\n\r\n\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK GPTT     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n                        0 ROOTS BELOW   5.050000E-01\r\n                        0 ROOTS BELOW   1.063977E+00\r\n0*** SYSTEM WARNING MESSAGE 3022\r\n+                                 (SEE PROG. MANUAL SEC. 4.9.7, OR USERS' MANUAL P. 6.5-3)\r\n     DATA BLOCK CSTM     MAY BE REQUIRED AS INPUT AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n0*** USER INFORMATION MESSAGE FROM PARAML MODULE  - TABLE1   -\r\n     (ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)\r\n\r\n     INPUT FILE LAMA     RECORD     2 WORD     3             =\r\n+                                                                       0.10639768E+01   = EIGV    \r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   287\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    EIGV                1.063977E+00\r\n1     DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE   288\r\n      NASTRAN TEST PROBLEM NO. T09-07-1A                                                                                            \r\n0     A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING                                                                        \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        1.063977E+00        1.031492E+00        1.641671E-01        1.449446E+00        1.542177E+00             \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER          \r\n DATE:  5/18/95\r\n END TIME: 10:57:36\r\n TOTAL WALL CLOCK TIME      7 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t13021a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T13021A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     SOL   13                                                                        \r\n     DIAG  38                                                                        \r\n     TIME  10                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE = OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS             \r\n                  2      SUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                          \r\n                  3      ECHO  = BOTH                                                                    \r\n                  4      DISP  = ALL                                                                     \r\n                  5      SPC = 1                                                                         \r\n                  6      SUBCASE 1                                                                       \r\n                  7      LABEL = STATIC SOLUTION                                                         \r\n                  8      LOAD  = 1                                                                       \r\n                  9      OLOAD = ALL                                                                     \r\n                 10      SUBCASE 2                                                                       \r\n                 11      LABEL = SECOND ORDER STATICS SOLUTION                                           \r\n                 12      DSCOEFFICIENT = DEFAULT                                                         \r\n                 13      SUBCASE 3                                                                       \r\n                 14      LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                \r\n                 15      METHOD = 1                                                                      \r\n                 16      BEGIN BULK                                                                      \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              -FF-    SPC,1,1,126                                                                                   \r\n                              -FF-    CORD2C,  1  0  0.  0.  0.  0.  0.  1.                                                         \r\n                              -FF-    ,    1.  0. 0.                                                                                \r\n                              -FF-    CONM2,   9  1,,   5.74025  0.  0.  0.  )+C-21                                                 \r\n                              -FF-    =(7), *(1),*(1),,==                                                                           \r\n                              -FF-    +C-21,  5.74025  0.0  5.74025,  0.  0.  5.74025                                               \r\n                              -FF-    =(7),==                                                                                       \r\n                              -FF-    FORCE1, 1  1   26516.5  5   1                                                                 \r\n                              -FF-    =(3),  =,*(1),       = *(1),/                                                                 \r\n                              -FF-    FORCE1, 1  5   26516.5  1   5                                                                 \r\n                              -FF-    =(3),  =,*(1),       = *(1),/                                                                 \r\n                              -FF-    GRID,  1  0   0.     75.     0.   0  345                                                      \r\n                              -FF-    GRID,  2  0  53.033  53.033  ==                                                               \r\n                              -FF-    GRID,  3  0  75.      0.     ==                                                               \r\n                              -FF-    GRID,  4  0  53.033 -53.033  ==                                                               \r\n                              -FF-    GRID,  5  0   0.    -75.     ==                                                               \r\n                              -FF-    GRID,  6  0 -53.033 -53.033  ==                                                               \r\n                              -FF-    GRID,  7  0 -75.      0.     ==                                                               \r\n                              -FF-    GRID,  8  0 -53.033  53.033  ==                                                               \r\n                              -FF-    BAROR,,1,,,   1.  0.  0.                                                                      \r\n                              -FF-    CBAR,  1  1   1   2                                                                           \r\n                              -FF-    =(6),*(1),=, *(1),/                                                                           \r\n                              -FF-    CBAR,  8  1   8   1                                                                           \r\n                              -FF-    PBAR,  1  1   1.  .83333  .83333                                                              \r\n                              -FF-    CPSE2,17  2   1   2                                                                           \r\n                              -FF-    =(6),*(1),=, *(1),/                                                                           \r\n                              -FF-    CPSE2,24  2   8   1                                                                           \r\n                              -FF-    PPSE,  2  500.                                                                                \r\n                              -FF-    MAT1,  1  1.E7,, 0.3                                                                          \r\n                              -FF-    EIGR,  1  FEER,, 1.0E-8,, 10                                                                  \r\n                              -FF-    , MAX                                                                                         \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     31\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR           1                       1.      0.      0.                      \r\n                    2-        CBAR    1       1       1       2                                               \r\n                    3-        CBAR    2       1       2       3                                               \r\n                    4-        CBAR    3       1       3       4                                               \r\n                    5-        CBAR    4       1       4       5                                               \r\n                    6-        CBAR    5       1       5       6                                               \r\n                    7-        CBAR    6       1       6       7                                               \r\n                    8-        CBAR    7       1       7       8                                               \r\n                    9-        CBAR    8       1       8       1                                               \r\n                   10-        CONM2   9       1               5.74025 0.      0.      0.              +C-21   \r\n                   11-        +C-21   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   12-        CONM2   10      2               5.74025 0.      0.      0.              +C-22   \r\n                   13-        +C-22   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   14-        CONM2   11      3               5.74025 0.      0.      0.              +C-23   \r\n                   15-        +C-23   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   16-        CONM2   12      4               5.74025 0.      0.      0.              +C-24   \r\n                   17-        +C-24   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   18-        CONM2   13      5               5.74025 0.      0.      0.              +C-25   \r\n                   19-        +C-25   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   20-        CONM2   14      6               5.74025 0.      0.      0.              +C-26   \r\n                   21-        +C-26   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   22-        CONM2   15      7               5.74025 0.      0.      0.              +C-27   \r\n                   23-        +C-27   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   24-        CONM2   16      8               5.74025 0.      0.      0.              +C-28   \r\n                   25-        +C-28   5.74025 0.0     5.74025 0.      0.      5.74025                         \r\n                   26-        CORD2C  1       0       0.      0.      0.      0.      0.      1.      +C0N0001\r\n                   27-        +C0N00011.      0.      0.                                                      \r\n                   28-        CPSE2   17      2       1       2                                               \r\n                   29-        CPSE2   18      2       2       3                                               \r\n                   30-        CPSE2   19      2       3       4                                               \r\n                   31-        CPSE2   20      2       4       5                                               \r\n                   32-        CPSE2   21      2       5       6                                               \r\n                   33-        CPSE2   22      2       6       7                                               \r\n                   34-        CPSE2   23      2       7       8                                               \r\n                   35-        CPSE2   24      2       8       1                                               \r\n                   36-        EIGR    1       FEER            1.0E-8          10                      +C0N0002\r\n                   37-        +C0N0002MAX                                                                     \r\n                   38-        FORCE1  1       1       26516.5 5       1                                       \r\n                   39-        FORCE1  1       2       26516.5 6       2                                       \r\n                   40-        FORCE1  1       3       26516.5 7       3                                       \r\n                   41-        FORCE1  1       4       26516.5 8       4                                       \r\n                   42-        FORCE1  1       5       26516.5 1       5                                       \r\n                   43-        FORCE1  1       6       26516.5 2       6                                       \r\n                   44-        FORCE1  1       7       26516.5 3       7                                       \r\n                   45-        FORCE1  1       8       26516.5 4       8                                       \r\n                   46-        GRID    1       0       0.      75.     0.      0       345                     \r\n                   47-        GRID    2       0       53.033  53.033  0.      0       345                     \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        GRID    3       0       75.     0.      0.      0       345                     \r\n                   49-        GRID    4       0       53.033  -53.033 0.      0       345                     \r\n                   50-        GRID    5       0       0.      -75.    0.      0       345                     \r\n                   51-        GRID    6       0       -53.033 -53.033 0.      0       345                     \r\n                   52-        GRID    7       0       -75.    0.      0.      0       345                     \r\n                   53-        GRID    8       0       -53.033 53.033  0.      0       345                     \r\n                   54-        MAT1    1       1.E7            0.3                                             \r\n                   55-        PBAR    1       1       1.      .83333  .83333                                  \r\n                   56-        PPSE    2       500.                                                            \r\n                   57-        SPC     1       1       126                                                     \r\n                              ENDDATA\r\n0*** USER INFORMATION MESSAGE -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT USED DUE TO\r\n     SMALL PROBLEM SIZE\r\n0          **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n     ELEMENT        1 IS BEING PROCESSED\r\n     ELEMENT        2 IS BEING PROCESSED\r\n     ELEMENT        3 IS BEING PROCESSED\r\n     ELEMENT        4 IS BEING PROCESSED\r\n     ELEMENT        5 IS BEING PROCESSED\r\n     ELEMENT        6 IS BEING PROCESSED\r\n     ELEMENT        7 IS BEING PROCESSED\r\n     ELEMENT        8 IS BEING PROCESSED\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID        9\r\n     ELEMENT        9 IS BEING PROCESSED\r\n     ELEMENT       10 IS BEING PROCESSED\r\n     ELEMENT       11 IS BEING PROCESSED\r\n     ELEMENT       12 IS BEING PROCESSED\r\n     ELEMENT       13 IS BEING PROCESSED\r\n     ELEMENT       14 IS BEING PROCESSED\r\n     ELEMENT       15 IS BEING PROCESSED\r\n     ELEMENT       16 IS BEING PROCESSED\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION PSE2     ELEMENTS (ELEMENT TYPE  84) STARTING WITH ID       17\r\n     (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT)\r\n     ELEMENT       17 IS BEING PROCESSED\r\n     ELEMENT       18 IS BEING PROCESSED\r\n     ELEMENT       19 IS BEING PROCESSED\r\n     ELEMENT       20 IS BEING PROCESSED\r\n     ELEMENT       21 IS BEING PROCESSED\r\n     ELEMENT       22 IS BEING PROCESSED\r\n     ELEMENT       23 IS BEING PROCESSED\r\n     ELEMENT       24 IS BEING PROCESSED\r\n\r\n\r\n\r\n *** EMG ELEMENT PROCESSING TIME =         0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.7223002E-17\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.837395E-01  -7.609576E-02   0.0            0.0            0.0           -3.498168E-15                  \r\n             3      G      2.598352E-01  -2.598352E-01   0.0            0.0            0.0           -3.885781E-15                  \r\n             4      G      1.837395E-01  -4.435747E-01   0.0            0.0            0.0           -2.811119E-15                  \r\n             5      G     -4.842515E-13  -5.196705E-01   0.0            0.0            0.0           -2.224783E-15                  \r\n             6      G     -1.837395E-01  -4.435747E-01   0.0            0.0            0.0           -2.735659E-15                  \r\n             7      G     -2.598352E-01  -2.598352E-01   0.0            0.0            0.0           -3.795358E-15                  \r\n             8      G     -1.837395E-01  -7.609576E-02   0.0            0.0            0.0           -3.705494E-15                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     STATIC SOLUTION                                                                                        SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.651650E+04   0.0            0.0            0.0            0.0                           \r\n             2      G      1.875000E+04   1.875000E+04   0.0            0.0            0.0            0.0                           \r\n             3      G      2.651650E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             4      G      1.875000E+04  -1.875000E+04   0.0            0.0            0.0            0.0                           \r\n             5      G      0.0           -2.651650E+04   0.0            0.0            0.0            0.0                           \r\n             6      G     -1.875000E+04  -1.875000E+04   0.0            0.0            0.0            0.0                           \r\n             7      G     -2.651650E+04   0.0            0.0            0.0            0.0            0.0                           \r\n             8      G     -1.875000E+04   1.875000E+04   0.0            0.0            0.0            0.0                           \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR CONM2    ELEMENTS (ELEMENT TYPE  30).\r\n0*** DS1 MODULE PROCESSING BAR      ELEMENTS (ELEM.TYPE   2)\r\n0*** DS1 MODULE PROCESSING PSE2     ELEMENTS (ELEM.TYPE  84)\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    DET                 7.334229E+05\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    POWER                     98\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   5.5188415E-17\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     SECOND ORDER STATICS SOLUTION                                                                          SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.843757E-01  -7.636641E-02   0.0            0.0            0.0           -1.599281E-15                  \r\n             3      G      2.607422E-01  -2.607422E-01   0.0            0.0            0.0           -1.429412E-15                  \r\n             4      G      1.843757E-01  -4.451179E-01   0.0            0.0            0.0           -1.315354E-15                  \r\n             5      G     -2.094713E-13  -5.214843E-01   0.0            0.0            0.0           -1.290201E-15                  \r\n             6      G     -1.843757E-01  -4.451179E-01   0.0            0.0            0.0           -1.356771E-15                  \r\n             7      G     -2.607422E-01  -2.607422E-01   0.0            0.0            0.0           -1.471046E-15                  \r\n             8      G     -1.843757E-01  -7.636641E-02   0.0            0.0            0.0           -1.500043E-15                  \r\n                        0 ROOTS BELOW   9.261520E-01\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST   14 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 2392\r\n       11 MORE ACCURATE EIGENSOLUTIONS THAN THE   10 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        21\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        20\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0                                                                                                                                   \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1        2.707658E+00        1.645496E+00        2.618889E-01        2.242280E+01        6.071328E+01             \r\n        2         2        5.587644E+01        7.475055E+00        1.189692E+00        2.450578E+01        1.369296E+03             \r\n        3         3        1.857250E+02        1.362810E+01        2.168979E+00        3.909978E+01        7.261808E+03             \r\n        4         4        3.711505E+02        1.926526E+01        3.066162E+00        2.610142E+01        9.687553E+03             \r\n        5         5        5.775303E+02        2.403186E+01        3.824789E+00        2.096560E+01        1.210827E+04             \r\n        6         6        7.428421E+02        2.725513E+01        4.337789E+00        2.291893E+01        1.702515E+04             \r\n        7         7        1.464524E+04        1.210175E+02        1.926054E+01        2.831314E+01        4.146527E+05             \r\n        8         8        1.618473E+04        1.272192E+02        2.024757E+01        2.160113E+01        3.496086E+05             \r\n        9         9        2.712078E+04        1.646839E+02        2.621025E+01        3.319649E+01        9.003148E+05             \r\n       10        10        4.169686E+04        2.041981E+02        3.249913E+01        3.089459E+01        1.288207E+06             \r\n       11        11        5.886928E+04        2.426299E+02        3.861575E+01        4.757251E+01        2.800559E+06             \r\n       12        12        7.603062E+04        2.757365E+02        4.388483E+01        2.409207E+01        1.831735E+06             \r\n       13        13        9.056866E+04        3.009463E+02        4.789708E+01        2.311527E+01        2.093519E+06             \r\n       14        14        1.002732E+05        3.166595E+02        5.039792E+01        2.260348E+01        2.266524E+06             \r\n       15        15        2.226074E+05        4.718129E+02        7.509135E+01        2.297425E+01        5.114237E+06             \r\n       16        16        2.395745E+05        4.894635E+02        7.790054E+01        2.297670E+01        5.504632E+06             \r\n       17        17        2.649443E+05        5.147274E+02        8.192141E+01        2.297722E+01        6.087686E+06             \r\n       18        18        2.948386E+05        5.429904E+02        8.641961E+01        2.297125E+01        6.772811E+06             \r\n       19        19        3.247055E+05        5.698294E+02        9.069116E+01        2.296775E+01        7.457754E+06             \r\n       20        20        3.500086E+05        5.916152E+02        9.415849E+01        2.296216E+01        8.036952E+06             \r\n       21        21        3.669085E+05        6.057297E+02        9.640488E+01        2.295811E+01        8.423527E+06             \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.270766E+01    (CYCLIC FREQUENCY =  2.618889E-01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.284672E-01   3.101401E-01   0.0            0.0            0.0            7.380137E-03                  \r\n             3      G      5.145237E-01   4.702508E-01   0.0            0.0            0.0            6.970944E-03                  \r\n             4      G      8.652695E-01   3.251251E-01   0.0            0.0            0.0            6.331475E-03                  \r\n             5      G      1.000000E+00   3.829219E-13   0.0            0.0            0.0            6.077970E-03                  \r\n             6      G      8.652695E-01  -3.251251E-01   0.0            0.0            0.0            6.331475E-03                  \r\n             7      G      5.145237E-01  -4.702508E-01   0.0            0.0            0.0            6.970944E-03                  \r\n             8      G      1.284672E-01  -3.101401E-01   0.0            0.0            0.0            7.380137E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.558764E+02    (CYCLIC FREQUENCY =  1.189692E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.414915E-01   5.898918E-01   0.0            0.0            0.0            9.245618E-03                  \r\n             3      G      4.015038E-01   6.590679E-01   0.0            0.0            0.0           -2.270583E-03                  \r\n             4      G      8.710332E-02   7.905549E-01   0.0            0.0            0.0           -5.954274E-03                  \r\n             5      G     -2.153988E-13   1.000000E+00   0.0            0.0            0.0           -1.894805E-15                  \r\n             6      G     -8.710332E-02   7.905549E-01   0.0            0.0            0.0            5.954274E-03                  \r\n             7      G     -4.015038E-01   6.590679E-01   0.0            0.0            0.0            2.270583E-03                  \r\n             8      G     -2.414915E-01   5.898918E-01   0.0            0.0            0.0           -9.245618E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.185725E+03    (CYCLIC FREQUENCY =  2.168979E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.893155E-01   9.574886E-01   0.0            0.0            0.0            6.798845E-03                  \r\n             3      G     -1.735202E-01   7.295842E-01   0.0            0.0            0.0           -1.583200E-02                  \r\n             4      G     -8.291520E-01   1.000000E+00   0.0            0.0            0.0            3.153949E-03                  \r\n             5      G     -4.169843E-01   9.922094E-13   0.0            0.0            0.0            2.301272E-02                  \r\n             6      G     -8.291520E-01  -1.000000E+00   0.0            0.0            0.0            3.153949E-03                  \r\n             7      G     -1.735202E-01  -7.295842E-01   0.0            0.0            0.0           -1.583200E-02                  \r\n             8      G      3.893155E-01  -9.574886E-01   0.0            0.0            0.0            6.798845E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.371150E+03    (CYCLIC FREQUENCY =  3.066162E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -3.166766E-01  -7.849174E-01   0.0            0.0            0.0            2.817299E-03                  \r\n             3      G      8.335888E-01  -3.123398E-01   0.0            0.0            0.0            1.179721E-02                  \r\n             4      G      4.862138E-01  -1.667335E-01   0.0            0.0            0.0           -1.966327E-02                  \r\n             5      G     -8.856540E-15   1.000000E+00   0.0            0.0            0.0           -2.221121E-14                  \r\n             6      G     -4.862138E-01  -1.667335E-01   0.0            0.0            0.0            1.966327E-02                  \r\n             7      G     -8.335888E-01  -3.123398E-01   0.0            0.0            0.0           -1.179721E-02                  \r\n             8      G      3.166766E-01  -7.849174E-01   0.0            0.0            0.0           -2.817299E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.577530E+03    (CYCLIC FREQUENCY =  3.824789E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -2.328868E-01  -5.806748E-01   0.0            0.0            0.0            7.996460E-03                  \r\n             3      G      1.000000E+00  -7.167260E-02   0.0            0.0            0.0           -1.341993E-03                  \r\n             4      G     -3.945546E-01   5.059425E-01   0.0            0.0            0.0           -1.249310E-02                  \r\n             5      G     -1.878534E-01   4.565514E-13   0.0            0.0            0.0            1.538239E-02                  \r\n             6      G     -3.945546E-01  -5.059425E-01   0.0            0.0            0.0           -1.249310E-02                  \r\n             7      G      1.000000E+00   7.167260E-02   0.0            0.0            0.0           -1.341993E-03                  \r\n             8      G     -2.328868E-01   5.806748E-01   0.0            0.0            0.0            7.996460E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.742842E+03    (CYCLIC FREQUENCY =  4.337789E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.360774E-01   3.411555E-01   0.0            0.0            0.0           -7.494777E-03                  \r\n             3      G     -7.441465E-01  -2.299829E-02   0.0            0.0            0.0            7.754824E-03                  \r\n             4      G      6.644291E-01  -6.046113E-01   0.0            0.0            0.0           -3.380214E-03                  \r\n             5      G      1.688945E-13   1.000000E+00   0.0            0.0            0.0           -3.453027E-14                  \r\n             6      G     -6.644291E-01  -6.046113E-01   0.0            0.0            0.0            3.380214E-03                  \r\n             7      G      7.441465E-01  -2.299829E-02   0.0            0.0            0.0           -7.754824E-03                  \r\n             8      G     -1.360774E-01   3.411555E-01   0.0            0.0            0.0            7.494777E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.146452E+05    (CYCLIC FREQUENCY =  1.926054E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.000000E+00   4.690230E-01   0.0            0.0            0.0            5.165213E-03                  \r\n             3      G      7.710513E-01  -2.189006E-01   0.0            0.0            0.0           -8.675564E-03                  \r\n             4      G      3.816655E-01  -5.275086E-01   0.0            0.0            0.0           -2.514183E-03                  \r\n             5      G      2.768440E-15  -5.995524E-01   0.0            0.0            0.0           -1.521622E-15                  \r\n             6      G     -3.816655E-01  -5.275086E-01   0.0            0.0            0.0            2.514183E-03                  \r\n             7      G     -7.710513E-01  -2.189006E-01   0.0            0.0            0.0            8.675564E-03                  \r\n             8      G     -1.000000E+00   4.690230E-01   0.0            0.0            0.0           -5.165213E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.161847E+05    (CYCLIC FREQUENCY =  2.024757E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.000000E+00   3.513371E-01   0.0            0.0            0.0            2.362088E-03                  \r\n             3      G      5.868518E-01  -3.873774E-01   0.0            0.0            0.0           -1.328794E-02                  \r\n             4      G     -4.683682E-02  -4.510217E-01   0.0            0.0            0.0           -9.488540E-03                  \r\n             5      G     -3.397721E-01   6.935726E-15   0.0            0.0            0.0           -9.669770E-03                  \r\n             6      G     -4.683682E-02   4.510217E-01   0.0            0.0            0.0           -9.488540E-03                  \r\n             7      G      5.868518E-01   3.873774E-01   0.0            0.0            0.0           -1.328794E-02                  \r\n             8      G      1.000000E+00  -3.513371E-01   0.0            0.0            0.0            2.362088E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.271208E+05    (CYCLIC FREQUENCY =  2.621025E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      8.503376E-01  -2.302047E-01   0.0            0.0            0.0           -9.969116E-03                  \r\n             3      G     -2.258148E-01  -8.219364E-01   0.0            0.0            0.0           -2.382434E-02                  \r\n             4      G     -9.247613E-01   1.813018E-01   0.0            0.0            0.0           -1.390307E-02                  \r\n             5      G      4.388331E-16   1.000000E+00   0.0            0.0            0.0           -8.210075E-15                  \r\n             6      G      9.247613E-01   1.813018E-01   0.0            0.0            0.0            1.390307E-02                  \r\n             7      G      2.258148E-01  -8.219364E-01   0.0            0.0            0.0            2.382434E-02                  \r\n             8      G     -8.503376E-01  -2.302047E-01   0.0            0.0            0.0            9.969116E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.416969E+05    (CYCLIC FREQUENCY =  3.249913E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      7.873756E-01  -6.032104E-01   0.0            0.0            0.0           -1.640907E-02                  \r\n             3      G     -5.326929E-01  -6.055111E-01   0.0            0.0            0.0           -1.645636E-02                  \r\n             4      G     -1.096961E-01   7.374341E-01   0.0            0.0            0.0            1.131108E-02                  \r\n             5      G      1.000000E+00  -5.453509E-15   0.0            0.0            0.0            2.489663E-02                  \r\n             6      G     -1.096961E-01  -7.374341E-01   0.0            0.0            0.0            1.131108E-02                  \r\n             7      G     -5.326929E-01   6.055111E-01   0.0            0.0            0.0           -1.645636E-02                  \r\n             8      G      7.873756E-01   6.032104E-01   0.0            0.0            0.0           -1.640907E-02                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.588693E+05    (CYCLIC FREQUENCY =  3.861575E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -8.927019E-01   1.000000E+00   0.0            0.0            0.0            2.110830E-02                  \r\n             3      G      5.846779E-01  -1.202493E-01   0.0            0.0            0.0           -1.221400E-03                  \r\n             4      G     -9.715657E-01  -9.345144E-01   0.0            0.0            0.0           -2.953043E-02                  \r\n             5      G     -9.657251E-15   5.864559E-01   0.0            0.0            0.0           -2.214513E-14                  \r\n             6      G      9.715657E-01  -9.345144E-01   0.0            0.0            0.0            2.953043E-02                  \r\n             7      G     -5.846779E-01  -1.202493E-01   0.0            0.0            0.0            1.221400E-03                  \r\n             8      G      8.927019E-01   1.000000E+00   0.0            0.0            0.0           -2.110830E-02                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.760306E+05    (CYCLIC FREQUENCY =  4.388483E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -5.334819E-01   7.205676E-01   0.0            0.0            0.0            1.054802E-02                  \r\n             3      G      1.910303E-01  -7.480000E-01   0.0            0.0            0.0           -1.176767E-02                  \r\n             4      G     -4.410776E-01  -6.102697E-02   0.0            0.0            0.0           -6.138468E-03                  \r\n             5      G      1.000000E+00  -4.613551E-15   0.0            0.0            0.0            1.689395E-02                  \r\n             6      G     -4.410776E-01   6.102697E-02   0.0            0.0            0.0           -6.138468E-03                  \r\n             7      G      1.910303E-01   7.480000E-01   0.0            0.0            0.0           -1.176767E-02                  \r\n             8      G     -5.334819E-01  -7.205676E-01   0.0            0.0            0.0            1.054802E-02                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.905687E+05    (CYCLIC FREQUENCY =  4.789708E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         13\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      3.788773E-01  -5.653406E-01   0.0            0.0            0.0           -3.777566E-03                  \r\n             3      G      6.429062E-03   1.000000E+00   0.0            0.0            0.0            9.576125E-03                  \r\n             4      G     -4.222890E-01  -5.966369E-01   0.0            0.0            0.0           -7.219894E-03                  \r\n             5      G      8.184130E-16   1.776311E-01   0.0            0.0            0.0           -1.112045E-14                  \r\n             6      G      4.222890E-01  -5.966369E-01   0.0            0.0            0.0            7.219894E-03                  \r\n             7      G     -6.429062E-03   1.000000E+00   0.0            0.0            0.0           -9.576125E-03                  \r\n             8      G     -3.788773E-01  -5.653406E-01   0.0            0.0            0.0            3.777566E-03                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.100273E+06    (CYCLIC FREQUENCY =  5.039792E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         14\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.971174E-01  -3.092896E-01   0.0            0.0            0.0            4.216887E-04                  \r\n             3      G      6.124544E-02   6.944457E-01   0.0            0.0            0.0            1.914955E-03                  \r\n             4      G     -6.743907E-01  -6.273094E-01   0.0            0.0            0.0           -2.910041E-03                  \r\n             5      G      1.000000E+00   2.413634E-15   0.0            0.0            0.0            3.212500E-03                  \r\n             6      G     -6.743907E-01   6.273094E-01   0.0            0.0            0.0           -2.910041E-03                  \r\n             7      G      6.124544E-02  -6.944457E-01   0.0            0.0            0.0            1.914955E-03                  \r\n             8      G      1.971174E-01   3.092896E-01   0.0            0.0            0.0            4.216887E-04                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.222607E+06    (CYCLIC FREQUENCY =  7.509135E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         15\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.849311E-03   7.116025E-03   0.0            0.0            0.0           -3.832616E-01                  \r\n             3      G     -7.422060E-03  -1.493988E-03   0.0            0.0            0.0            7.073861E-01                  \r\n             4      G      4.286518E-03  -1.377274E-03   0.0            0.0            0.0           -9.239542E-01                  \r\n             5      G     -2.236648E-03   7.262262E-14   0.0            0.0            0.0            1.000000E+00                  \r\n             6      G      4.286518E-03   1.377274E-03   0.0            0.0            0.0           -9.239542E-01                  \r\n             7      G     -7.422060E-03   1.493988E-03   0.0            0.0            0.0            7.073861E-01                  \r\n             8      G      6.849311E-03  -7.116025E-03   0.0            0.0            0.0           -3.832616E-01                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.239575E+06    (CYCLIC FREQUENCY =  7.790054E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         16\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      6.842889E-03   1.200935E-02   0.0            0.0            0.0           -7.079053E-01                  \r\n             3      G     -2.902029E-05  -6.538044E-03   0.0            0.0            0.0            1.000000E+00                  \r\n             4      G     -5.866607E-03   1.251013E-02   0.0            0.0            0.0           -7.068552E-01                  \r\n             5      G      8.330797E-15  -1.837641E-02   0.0            0.0            0.0            1.892045E-12                  \r\n             6      G      5.866607E-03   1.251013E-02   0.0            0.0            0.0            7.068552E-01                  \r\n             7      G      2.902029E-05  -6.538044E-03   0.0            0.0            0.0           -1.000000E+00                  \r\n             8      G     -6.842889E-03   1.200935E-02   0.0            0.0            0.0            7.079053E-01                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.264944E+06    (CYCLIC FREQUENCY =  8.192141E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         17\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -3.747096E-04  -1.213748E-02   0.0            0.0            0.0            9.244390E-01                  \r\n             3      G     -1.566443E-02   7.100719E-03   0.0            0.0            0.0           -7.064996E-01                  \r\n             4      G      1.726858E-02  -1.171307E-02   0.0            0.0            0.0           -3.830836E-01                  \r\n             5      G     -1.022344E-02   3.037211E-14   0.0            0.0            0.0            1.000000E+00                  \r\n             6      G      1.726858E-02   1.171307E-02   0.0            0.0            0.0           -3.830836E-01                  \r\n             7      G     -1.566443E-02  -7.100719E-03   0.0            0.0            0.0           -7.064996E-01                  \r\n             8      G     -3.747096E-04   1.213748E-02   0.0            0.0            0.0            9.244390E-01                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.294839E+06    (CYCLIC FREQUENCY =  8.641961E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         18\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      7.694811E-03  -8.134854E-03   0.0            0.0            0.0            1.000000E+00                  \r\n             3      G     -2.189531E-02  -1.008891E-04   0.0            0.0            0.0            8.708183E-04                  \r\n             4      G      8.602217E-03   8.619879E-03   0.0            0.0            0.0           -9.999493E-01                  \r\n             5      G     -3.021647E-14  -2.192677E-02   0.0            0.0            0.0            2.656466E-12                  \r\n             6      G     -8.602217E-03   8.619879E-03   0.0            0.0            0.0            9.999493E-01                  \r\n             7      G      2.189531E-02  -1.008891E-04   0.0            0.0            0.0           -8.708183E-04                  \r\n             8      G     -7.694811E-03  -8.134854E-03   0.0            0.0            0.0           -1.000000E+00                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.324706E+06    (CYCLIC FREQUENCY =  9.069116E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         19\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G     -1.282935E-02   3.113260E-03   0.0            0.0            0.0           -9.234838E-01                  \r\n             3      G      1.311155E-02   9.262266E-03   0.0            0.0            0.0           -7.076359E-01                  \r\n             4      G      8.626055E-03  -1.566437E-02   0.0            0.0            0.0            3.823353E-01                  \r\n             5      G     -1.300315E-02   2.997951E-14   0.0            0.0            0.0            1.000000E+00                  \r\n             6      G      8.626055E-03   1.566437E-02   0.0            0.0            0.0            3.823353E-01                  \r\n             7      G      1.311155E-02  -9.262266E-03   0.0            0.0            0.0           -7.076359E-01                  \r\n             8      G     -1.282935E-02  -3.113260E-03   0.0            0.0            0.0           -9.234838E-01                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.350009E+06    (CYCLIC FREQUENCY =  9.415849E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         20\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      1.281643E-02   2.297516E-04   0.0            0.0            0.0            7.065557E-01                  \r\n             3      G      1.993990E-05  -1.331232E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             4      G     -1.327742E-02   1.064000E-06   0.0            0.0            0.0            7.073002E-01                  \r\n             5      G      9.228199E-15   1.328060E-02   0.0            0.0            0.0           -1.880622E-12                  \r\n             6      G      1.327742E-02   1.064000E-06   0.0            0.0            0.0           -7.073002E-01                  \r\n             7      G     -1.993990E-05  -1.331232E-02   0.0            0.0            0.0           -1.000000E+00                  \r\n             8      G     -1.281643E-02   2.297516E-04   0.0            0.0            0.0           -7.065557E-01                  \r\n1     OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A                                                                                   \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE 3              \r\n      EIGENVALUE =  0.366908E+06    (CYCLIC FREQUENCY =  9.640488E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         21\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      7.871917E-03   9.971954E-04   0.0            0.0            0.0            3.823031E-01                  \r\n             3      G      4.871997E-03  -9.440393E-03   0.0            0.0            0.0            7.069060E-01                  \r\n             4      G     -6.845628E-03  -1.056958E-02   0.0            0.0            0.0            9.238254E-01                  \r\n             5      G     -1.333125E-02   1.835575E-14   0.0            0.0            0.0            1.000000E+00                  \r\n             6      G     -6.845628E-03   1.056958E-02   0.0            0.0            0.0            9.238254E-01                  \r\n             7      G      4.871997E-03   9.440393E-03   0.0            0.0            0.0            7.069060E-01                  \r\n             8      G      7.871917E-03  -9.971954E-04   0.0            0.0            0.0            3.823031E-01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS        \r\n DATE:  5/18/95\r\n END TIME: 10:58:16\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t13022a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T13022A,NASTRAN                                                           \r\n     APP   DISP                                                                      \r\n     DIAG  38                                                                        \r\n     SOL   13                                                                        \r\n     TIME  20                                                                        \r\n     $                                                                               \r\n     $   THIS PROBLEM DEMONSTRATES THE EFFECTS OF PRESSURE ON THE DYNAMICS OF        \r\n     $   PRE-STIFFENED STRUCTURE USEING CPSE3 AND CPSE4 DIFFERNTIAL STIFFNESS        \r\n     $   ELEMENTS                                                                    \r\n     $                                                                               \r\n     $   THIS FREE-FREE UNIT LENGTH CYLINDER PROBLEM GIVES THE FOLLOWING             \r\n     $   NATURAL FREQUENCIES (HZ)                                                    \r\n     $                                                                               \r\n     $        WITHOUT THE PRESSURE        WITH  THE PRESSURE                         \r\n     $        STIFFNESS ELEMENTS          STIFFNESS ELEMENTS                         \r\n     $        --------------------        ------------------                         \r\n     $               3.4432                     0.0053                               \r\n     $               4.6821                     5.3927                               \r\n     $              13.2614                    13.6570                               \r\n     $              22.4341                    22.6865                               \r\n     $              33.1777                    33.3529                               \r\n     $              46.1936                    46.3210                               \r\n     $              61.9870                    62.0752                               \r\n     $              81.8336                    81.8986                               \r\n     $                                                                               \r\n     $   THE FOLLOWING DMAP ALTER ALLOWS SOL 13 TO USE DIFFERENT BOUNDARY            \r\n     $   CONDITION SPC'S FOR THE STATIC SOLUTION (SUBCASE 1 AND 2) AND THE           \r\n     $   NORMAL MODE SOLUTION (SUBCASE 3)                                            \r\n     $                                                                               \r\n     $   THIS DMAP ALTER WILL CAUSE A NUMBER OF WARNING MESSAGES OF POTENTIAL        \r\n     $   ERRORS PRINTED, BUT IT WORKS OK                                             \r\n     $                                                                               \r\n     ALTER  117 $  AFTER OFP MODULE AND BEFORE DPD IN RIGID FORMAT 13                \r\n     GP4    CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,ASET,OGPST/          \r\n            LUSET/S,N,MPCF1/S,N,MPCF2/,S,N,SINGLE/S,N,OMIT/S,N,REACT/                \r\n            S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/              \r\n            S,N,AUTOSPC $                                                            \r\n     PARAM  //*AND*/NOSR/SINGLE/REACT $                                              \r\n     PURGE  GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/QG/NOSR $        \r\n     OFP    OGPST,,,,,//S,N,CARDNO $                                                 \r\n     LABEL  LBL15D $                                                                 \r\n     EQUIV  KGG,KNN/MPCF1 $                                                          \r\n     COND   LBL16D,MPCF1 $                                                           \r\n     MCE1   USET,RG/GM $                                                             \r\n     MCE2   USET,GM,KGG,,,/KNN,,, $                                                  \r\n     LABEL  LBL16D $                                                                 \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     5\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     EQUIV  KNN,KFF/SINGLE $                                                         \r\n     COND   LBL17D,SINGLE $                                                          \r\n     SCE1   USET,KNN,,,/KFF,KFS,KSS,,, $                                             \r\n     LABEL  LBL17D $                                                                 \r\n     EQUIV  KFF,KAA/OMIT $                                                           \r\n     COND   LBL18D,OMIT $                                                            \r\n     SMP1   USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                        \r\n     LABEL  LBL18D $                                                                 \r\n     EQUIV  KDGG,KDNN/MPCF2 /MGG,MNN/MPCF2 $                                         \r\n     COND   LBL19D,MPCF2 $                                                           \r\n     MCE2   USET,GM,KDGG,MGG,,/KDNN,MNN,, $                                          \r\n     LABEL  LBL19D $                                                                 \r\n     EQUIV  KDNN,KDFF/SINGLE /MNN,MFF/SINGLE $                                       \r\n     COND   LBL20D,SINGLE $                                                          \r\n     SCE1   USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $                                   \r\n     LABEL  LBL20D $                                                                 \r\n     EQUIV  KDFF,KDAA/OMIT /MFF,MAA/OMIT $                                           \r\n     COND   LBL21D,OMIT $                                                            \r\n     SMP2   USET,GO,KDFF/KDAA $                                                      \r\n     SMP2   USET,GO,MFF/MAA $                                                        \r\n     LABEL  LBL21D $                                                                 \r\n     PARAM  //*ADD*/DSCOSET/-1/0 $                                                   \r\n     PARAM  //*MPY*/NDSKIP/0/0 $                                                     \r\n     DSMG2  MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS,             \r\n            PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $                       \r\n     ENDALTER $                                                                      \r\n     $                                                                               \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL            \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T13-02-2A                                   \r\n                  3      LABEL  = NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS        \r\n                  4      ECHO   = BOTH                                                                   \r\n                  5      DISP   = ALL                                                                    \r\n                  6      $                                                                               \r\n                  7      SUBCASE  1                                                                      \r\n                  8      LABEL  = STATIC SOLUTION                                                        \r\n                  9      LOAD   = 1                                                                      \r\n                 10      SPC    = 1                                                                      \r\n                 11      OLOAD  = ALL                                                                    \r\n                 12      $                                                                               \r\n                 13      SUBCASE  2                                                                      \r\n                 14      LABEL  = SECOND ORDER STATICS SOLUTION                                          \r\n                 15      SPC    = 4                                                                      \r\n                 16      DSCOEFFICIENT = DEFAULT                                                         \r\n                 17      $                                                                               \r\n                 18      SUBCASE  3                                                                      \r\n                 19      LABEL  = NORMAL MODES WITH DIFFERENTIAL STIFFNESS                               \r\n                 20      SPC    = 4                                                                      \r\n                 21      METHOD = 1                                                                      \r\n                 22      $                                                                               \r\n                 23      BEGIN BULK                                                                      \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                             I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              -FF-    PARAM,COUPMASS,1                                                                              \r\n                              -FF-    CORD2C,1  0  0. 0. 0.  0. 0. 1.                                                               \r\n                              -FF-    ,      1. 0. 0.                                                                               \r\n                              -FF-    GRID,  1  1  5.0   0.0  0.5,, 345                                                             \r\n                              -FF-    GRID,  2  1  5.0   0.0 -0.5,  ==                                                              \r\n                              -FF-    GRID,  3  1  5.0  11.0  0.5,  ==                                                              \r\n                              -FF-    GRID,  4  1  5.0  11.0 -0.5,  ==                                                              \r\n                              -FF-    GRID,  5  1  5.0  22.0  0.5,  ==                                                              \r\n                              -FF-    GRID,  6  1  5.0  22.0 -0.5,  ==                                                              \r\n                              -FF-    GRID,  7  1  5.0  33.0  0.5,  ==                                                              \r\n                              -FF-    GRID,  8  1  5.0  33.0 -0.5,  ==                                                              \r\n                              -FF-    GRID,  9  1  5.0  45.0  0.5,  ==                                                              \r\n                              -FF-    GRID, 10  1  5.0  45.0 -0.5,  ==                                                              \r\n                              -FF-    GRID, 11  1  5.0  56.0  0.5,  ==                                                              \r\n                              -FF-    GRID, 12  1  5.0  56.0 -0.5,  ==                                                              \r\n                              -FF-    GRID, 13  1  5.0  67.0  0.5,  ==                                                              \r\n                              -FF-    GRID, 14  1  5.0  67.0 -0.5,  ==                                                              \r\n                              -FF-    GRID, 15  1  5.0  78.0  0.5,  ==                                                              \r\n                              -FF-    GRID, 16  1  5.0  78.0 -0.5,  ==                                                              \r\n                              -FF-    GRID, 17  1  5.0  90.0  0.5,  ==                                                              \r\n                              -FF-    GRID, 18  1  5.0  90.0 -0.5,  ==                                                              \r\n                              $                                                                                             \r\n                              $ SPC=1 FOR SYMMETRY-SYMMETRY BC'S                                                            \r\n                              $                                                                                             \r\n                              -FF-    SPC, 1  1 26,,  2 26                                                                          \r\n                              -FF-    SPC, 1 17 16,, 18 16                                                                          \r\n                              $                                                                                             \r\n                              $ SPC=2 FOR SYMMETRY-ANTISYMMETRY BC'S                                                        \r\n                              $                                                                                             \r\n                              -FF-    SPC, 2  1  1,,  2  1                                                                          \r\n                              -FF-    SPC, 2 17 16,, 18 16                                                                          \r\n                              $                                                                                             \r\n                              $ SPC=3 FOR ANTISYMMETRY-SYMMETRY BC'S                                                        \r\n                              $                                                                                             \r\n                              -FF-    SPC, 3  1 26,,  2 26                                                                          \r\n                              -FF-    SPC, 3 17  2,, 18  2                                                                          \r\n                              $                                                                                             \r\n                              $ SPC=4 FOR ANTISYMMETRY-ANTISYMMETRY BC'S                                                    \r\n                              $                                                                                             \r\n                              -FF-    SPC, 4, 1, 1,,  2, 1                                                                          \r\n                              -FF-    SPC, 4,17, 2,, 18, 2                                                                          \r\n                              $                                                                                             \r\n                              -FF-    CQUAD2, 1, 1, 1, 2, 4, 3                                                                      \r\n                              -FF-    =(7), *(1),=,*(2), ///                                                                        \r\n                              -FF-    PQUAD2, 1, 1, 0.1                                                                             \r\n                              $                                                                                             \r\n                              -FF-    CPSE3, 10  2  1  2  4                                                                         \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n\r\n      NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n\r\n                                              I N P U T   B U L K   D A T A   D E C K   E C H O                                     \r\n                                                                                                                                    \r\n                                  ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                              -FF-    =(3), *(1),=,*(2), //                                                                         \r\n                              -FF-    CPSE3, 15  2  4  3  1                                                                         \r\n                              -FF-    =(3), *(1),=,*(2), //                                                                         \r\n                              $                                                                                             \r\n                              -FF-    CPSE4, 20  2  9 10 12 11                                                                      \r\n                              -FF-    =(3), *(1),=,*(2), ///                                                                        \r\n                              $                                                                                             \r\n                              -FF-    PPSE,  2  1000.                                                                               \r\n                              -FF-    PLOAD2,1  1000. 1 THRU 8                                                                      \r\n                              -FF-    MAT1,  1  1.0E7,, 0.33   4.28                                                                 \r\n                              -FF-    EIGR,  1  FEER,,  1.0E-8,, 10                                                                 \r\n                              -FF-    , MAX                                                                                         \r\n                              ENDDATA                                                                                       \r\n\r\n\r\n                        TOTAL COUNT=     59\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CORD2C  1       0       0.      0.      0.      0.      0.      1.      +C0N0001\r\n                    2-        +C0N00011.      0.      0.                                                      \r\n                    3-        CPSE3   10      2       1       2       4                                       \r\n                    4-        CPSE3   11      2       3       4       6                                       \r\n                    5-        CPSE3   12      2       5       6       8                                       \r\n                    6-        CPSE3   13      2       7       8       10                                      \r\n                    7-        CPSE3   15      2       4       3       1                                       \r\n                    8-        CPSE3   16      2       6       5       3                                       \r\n                    9-        CPSE3   17      2       8       7       5                                       \r\n                   10-        CPSE3   18      2       10      9       7                                       \r\n                   11-        CPSE4   20      2       9       10      12      11                              \r\n                   12-        CPSE4   21      2       11      12      14      13                              \r\n                   13-        CPSE4   22      2       13      14      16      15                              \r\n                   14-        CPSE4   23      2       15      16      18      17                              \r\n                   15-        CQUAD2  1       1       1       2       4       3                               \r\n                   16-        CQUAD2  2       1       3       4       6       5                               \r\n                   17-        CQUAD2  3       1       5       6       8       7                               \r\n                   18-        CQUAD2  4       1       7       8       10      9                               \r\n                   19-        CQUAD2  5       1       9       10      12      11                              \r\n                   20-        CQUAD2  6       1       11      12      14      13                              \r\n                   21-        CQUAD2  7       1       13      14      16      15                              \r\n                   22-        CQUAD2  8       1       15      16      18      17                              \r\n                   23-        EIGR    1       FEER            1.0E-8          10                      +C0N0002\r\n                   24-        +C0N0002MAX                                                                     \r\n                   25-        GRID    1       1       5.0     0.0     0.5             345                     \r\n                   26-        GRID    2       1       5.0     0.0     -0.5            345                     \r\n                   27-        GRID    3       1       5.0     11.0    0.5             345                     \r\n                   28-        GRID    4       1       5.0     11.0    -0.5            345                     \r\n                   29-        GRID    5       1       5.0     22.0    0.5             345                     \r\n                   30-        GRID    6       1       5.0     22.0    -0.5            345                     \r\n                   31-        GRID    7       1       5.0     33.0    0.5             345                     \r\n                   32-        GRID    8       1       5.0     33.0    -0.5            345                     \r\n                   33-        GRID    9       1       5.0     45.0    0.5             345                     \r\n                   34-        GRID    10      1       5.0     45.0    -0.5            345                     \r\n                   35-        GRID    11      1       5.0     56.0    0.5             345                     \r\n                   36-        GRID    12      1       5.0     56.0    -0.5            345                     \r\n                   37-        GRID    13      1       5.0     67.0    0.5             345                     \r\n                   38-        GRID    14      1       5.0     67.0    -0.5            345                     \r\n                   39-        GRID    15      1       5.0     78.0    0.5             345                     \r\n                   40-        GRID    16      1       5.0     78.0    -0.5            345                     \r\n                   41-        GRID    17      1       5.0     90.0    0.5             345                     \r\n                   42-        GRID    18      1       5.0     90.0    -0.5            345                     \r\n                   43-        MAT1    1       1.0E7           0.33    4.28                                    \r\n                   44-        PARAM   COUPMASS1                                                               \r\n                   45-        PLOAD2  1       1000.   1       THRU    8                                       \r\n                   46-        PPSE    2       1000.                                                           \r\n                   47-        PQUAD2  1       1       0.1                                                     \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n\r\n      NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        SPC     1       1       26              2       26                              \r\n                   49-        SPC     1       17      16              18      16                              \r\n                   50-        SPC     2       1       1               2       1                               \r\n                   51-        SPC     2       17      16              18      16                              \r\n                   52-        SPC     3       1       26              2       26                              \r\n                   53-        SPC     3       17      2               18      2                               \r\n                   54-        SPC     4       1       1               2       1                               \r\n                   55-        SPC     4       17      2               18      2                               \r\n                              ENDDATA\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE   27,\r\n     LABEL NAMED LBL15D   NOT REFERENCED\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED RG       ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED YS       ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED USET     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED ASET     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION GP4        INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED OGPST    ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED GM       ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MCE2       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KNN      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KFF      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KFS      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KSS      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED GO       ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KAA      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KOO      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED LOO      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MCE2       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KDNN     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION MCE2       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED MNN      ALREADY APPEARED AS OUTPUT\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KDFF     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KDFS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KDSS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SCE1       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED MFF      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP2       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KDAA     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION SMP2       INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED MAA      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KBLL     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KBFS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED KBSS     ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED PBL      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED PBS      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED YBS      ALREADY APPEARED AS OUTPUT\r\n\r\n *** USER POTENTIALLY FATAL MESSAGE  45,\r\n                              POSSIBLE ERROR IN DMAP INSTRUCTION DSMG2      INSTRUCTION NO. 117\r\n     DATA BLOCK NAMED UBOOV    ALREADY APPEARED AS OUTPUT\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             59\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.278\r\n                                        RMS WAVEFRONT    3.375\r\n                                        RMS BANDWIDTH    3.375\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            4\r\n                                        PROFILE             59\r\n                                        MAX WAVEFRONT        4\r\n                                        AVG WAVEFRONT    3.278\r\n                                        RMS WAVEFRONT    3.375\r\n                                        RMS BANDWIDTH    3.375\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                        4         4\r\n                                        PROFILE (P)                         59        59\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            4         4\r\n                                        AVERAGE WAVEFRONT (C-AVG)        3.278     3.278\r\n                                        RMS WAVEFRONT (C-RMS)            3.375     3.375\r\n                                        RMS BANDWITCH (B-RMS)            3.375     3.375\r\n                                        NUMBER OF GRID POINTS (N)                     18\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                20\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           5\r\n                                        MINIMUM NODAL DEGREE                           3\r\n                                        NUMBER OF UNIQUE EDGES                        41\r\n                                        MATRIX DENSITY, PERCENT                   30.864\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION PSE3     ELEMENTS (ELEMENT TYPE  85) STARTING WITH ID       10\r\n     (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT)\r\n     ELEMENT       10 IS BEING PROCESSED\r\n     ELEMENT       11 IS BEING PROCESSED\r\n     ELEMENT       12 IS BEING PROCESSED\r\n     ELEMENT       13 IS BEING PROCESSED\r\n     ELEMENT       15 IS BEING PROCESSED\r\n     ELEMENT       16 IS BEING PROCESSED\r\n     ELEMENT       17 IS BEING PROCESSED\r\n     ELEMENT       18 IS BEING PROCESSED\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION PSE4     ELEMENTS (ELEMENT TYPE  86) STARTING WITH ID       20\r\n     (STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR THIS DIFFERENTIAL STIFFNESS ELEMENT)\r\n     ELEMENT       20 IS BEING PROCESSED\r\n     ELEMENT       21 IS BEING PROCESSED\r\n     ELEMENT       22 IS BEING PROCESSED\r\n     ELEMENT       23 IS BEING PROCESSED\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION QUAD2    ELEMENTS (ELEMENT TYPE  18) STARTING WITH ID        1\r\n     ELEMENT        1 IS BEING PROCESSED\r\n0*** SYSTEM INFORMATION MESSAGE 3107\r\n     EMGOLD CALLED BY EMGPRO TO PROCESS QUAD2    ELEMENTS.\r\n     ELEMENT        2 IS BEING PROCESSED\r\n     ELEMENT        3 IS BEING PROCESSED\r\n     ELEMENT        4 IS BEING PROCESSED\r\n     ELEMENT        5 IS BEING PROCESSED\r\n     ELEMENT        6 IS BEING PROCESSED\r\n     ELEMENT        7 IS BEING PROCESSED\r\n     ELEMENT        8 IS BEING PROCESSED\r\n\r\n\r\n\r\n *** EMG ELEMENT PROCESSING TIME =         0 SECONDS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.6358998E-16\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE  1             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.216026E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.216026E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      2.175305E-02   4.231199E-03   0.0            0.0            0.0           -4.259074E-07                  \r\n             4      G      2.175305E-02   4.231199E-03   0.0            0.0            0.0           -4.259074E-07                  \r\n             5      G      2.054661E-02   8.307146E-03   0.0            0.0            0.0           -1.572640E-06                  \r\n             6      G      2.054661E-02   8.307146E-03   0.0            0.0            0.0           -1.572640E-06                  \r\n             7      G      1.858569E-02   1.207857E-02   0.0            0.0            0.0           -2.567732E-06                  \r\n             8      G      1.858569E-02   1.207857E-02   0.0            0.0            0.0           -2.567732E-06                  \r\n             9      G      1.567295E-02   1.567984E-02   0.0            0.0            0.0           -2.669212E-06                  \r\n            10      G      1.567295E-02   1.567984E-02   0.0            0.0            0.0           -2.669212E-06                  \r\n            11      G      1.239461E-02   1.838563E-02   0.0            0.0            0.0           -2.673929E-06                  \r\n            12      G      1.239461E-02   1.838563E-02   0.0            0.0            0.0           -2.673929E-06                  \r\n            13      G      8.660035E-03   2.041586E-02   0.0            0.0            0.0           -1.747645E-06                  \r\n            14      G      8.660035E-03   2.041586E-02   0.0            0.0            0.0           -1.747645E-06                  \r\n            15      G      4.606345E-03   2.169510E-02   0.0            0.0            0.0           -6.270882E-07                  \r\n            16      G      4.606345E-03   2.169510E-02   0.0            0.0            0.0           -6.270882E-07                  \r\n            17      G      0.0            2.217958E-02   0.0            0.0            0.0            0.0                           \r\n            18      G      0.0            2.217958E-02   0.0            0.0            0.0            0.0                           \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     STATIC SOLUTION                                                                                        SUBCASE  1             \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.385112E+02   2.296603E+01   0.0            0.0            0.0            0.0                           \r\n             2      G      2.385112E+02   2.296603E+01   0.0            0.0            0.0            0.0                           \r\n             3      G      4.682583E+02   9.102011E+01   0.0            0.0            0.0            0.0                           \r\n             4      G      4.682583E+02   9.102011E+01   0.0            0.0            0.0            0.0                           \r\n             5      G      4.422876E+02   1.786958E+02   0.0            0.0            0.0            0.0                           \r\n             6      G      4.422876E+02   1.786958E+02   0.0            0.0            0.0            0.0                           \r\n             7      G      4.156252E+02   2.750964E+02   0.0            0.0            0.0            0.0                           \r\n             8      G      4.156252E+02   2.750964E+02   0.0            0.0            0.0            0.0                           \r\n             9      G      3.554982E+02   3.493470E+02   0.0            0.0            0.0            0.0                           \r\n            10      G      3.554982E+02   3.493470E+02   0.0            0.0            0.0            0.0                           \r\n            11      G      2.667475E+02   3.954695E+02   0.0            0.0            0.0            0.0                           \r\n            12      G      2.667475E+02   3.954695E+02   0.0            0.0            0.0            0.0                           \r\n            13      G      1.863875E+02   4.391016E+02   0.0            0.0            0.0            0.0                           \r\n            14      G      1.863875E+02   4.391016E+02   0.0            0.0            0.0            0.0                           \r\n            15      G      9.936905E+01   4.884141E+02   0.0            0.0            0.0            0.0                           \r\n            16      G      9.936905E+01   4.884141E+02   0.0            0.0            0.0            0.0                           \r\n            17      G      2.731550E+01   2.598896E+02   0.0            0.0            0.0            0.0                           \r\n            18      G      2.731550E+01   2.598896E+02   0.0            0.0            0.0            0.0                           \r\n0*** DS1 MODULE PROCESSING QUAD2    ELEMENTS (ELEM.TYPE  18)\r\n0*** DS1 MODULE PROCESSING PSE3     ELEMENTS (ELEM.TYPE  85)\r\n0*** DS1 MODULE PROCESSING PSE4     ELEMENTS (ELEM.TYPE  86)\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    DET                 3.675462E+03\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    POWER                    211\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n\r\n      NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   1.9704693E-16\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     SECOND ORDER STATICS SOLUTION                                                                          SUBCASE  2             \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.227929E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             2      G      2.225735E-02   0.0            0.0            0.0            0.0            0.0                           \r\n             3      G      2.186038E-02   4.249917E-03   0.0            0.0            0.0            1.415515E-05                  \r\n             4      G      2.185755E-02   4.250106E-03   0.0            0.0            0.0           -1.353971E-05                  \r\n             5      G      2.064550E-02   8.343394E-03   0.0            0.0            0.0           -1.464868E-06                  \r\n             6      G      2.064639E-02   8.344118E-03   0.0            0.0            0.0            2.192695E-06                  \r\n             7      G      1.867405E-02   1.213061E-02   0.0            0.0            0.0            6.227188E-06                  \r\n             8      G      1.867433E-02   1.213117E-02   0.0            0.0            0.0           -5.712843E-06                  \r\n             9      G      1.574199E-02   1.574223E-02   0.0            0.0            0.0            1.042461E-06                  \r\n            10      G      1.575029E-02   1.575036E-02   0.0            0.0            0.0           -6.314226E-07                  \r\n            11      G      1.245085E-02   1.846157E-02   0.0            0.0            0.0           -7.730518E-06                  \r\n            12      G      1.245210E-02   1.846254E-02   0.0            0.0            0.0            7.888706E-06                  \r\n            13      G      8.699303E-03   2.049990E-02   0.0            0.0            0.0            6.515077E-07                  \r\n            14      G      8.698958E-03   2.049855E-02   0.0            0.0            0.0            6.512094E-08                  \r\n            15      G      4.626940E-03   2.178283E-02   0.0            0.0            0.0            1.323104E-06                  \r\n            16      G      4.626904E-03   2.178256E-02   0.0            0.0            0.0           -3.952430E-07                  \r\n            17      G      0.0            2.226867E-02   0.0            0.0            0.0            0.0                           \r\n            18      G      0.0            2.226882E-02   0.0            0.0            0.0            0.0                           \r\n                        0 ROOTS BELOW   9.318945E+01\r\n0*** USER WARNING MESSAGE 2399\r\n     ONLY THE FIRST   13 EIGENSOLUTIONS CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST FOR EIGENVECTORS.\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n\r\n      NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 2392\r\n       20 MORE ACCURATE EIGENSOLUTIONS THAN THE   10 REQUESTED HAVE BEEN FOUND.\r\n     USE DIAG 16 TO DETERMINE ERROR BOUNDS\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y         (FEER METHOD)\r\n0\r\n0                                       NUMBER OF EIGENVALUES EXTRACTED  . . . . . .        30\r\n0                                       NUMBER OF STARTING POINTS USED . . . . . . .         1\r\n0                                       NUMBER OF STARTING POINT MOVES . . . . . . .         0\r\n0                                       NUMBER OF TRIANGULAR DECOMPOSITIONS  . . . .         1\r\n0                                       TOTAL NUMBER OF VECTOR ITERATIONS  . . . . .        29\r\n\r\n0                                       REASON FOR TERMINATION . . . . . . . . . . .         0*\r\n\r\n0                                       LARGEST OFF-DIAGONAL MODAL MASS TERM . . . .  0.00E+00\r\n0                                                                              . . .         0\r\n                                                  MODE PAIR . . . . . . . . . .\r\n                                                                               . . .         0\r\n0                                       NUMBER OF OFF-DIAGONAL MODAL MASS\r\n                                             TERMS FAILING CRITERION . . . . . . . .         0\r\n\r\n0                                       (* NORMAL TERMINATION              \r\n                                         SEE NASTRAN U.M. VOL II, SECTION 2.3.3)\r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS                                                               \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1         1       -5.200633E-04        2.280490E-02        3.629512E-03        3.334377E+00       -1.734087E-03             \r\n        2         2        1.148113E+03        3.388382E+01        5.392778E+00        4.198688E+00        4.820569E+03             \r\n        3         3        7.363285E+03        8.580959E+01        1.365702E+01        2.088782E+00        1.538029E+04             \r\n        4         4        2.031876E+04        1.425439E+02        2.268657E+01        1.163266E+00        2.363612E+04             \r\n        5         5        4.391661E+04        2.095629E+02        3.335297E+01        5.851693E-01        2.569865E+04             \r\n        6         6        8.470649E+04        2.910438E+02        4.632106E+01        3.365201E-01        2.850544E+04             \r\n        7         7        1.521238E+05        3.900305E+02        6.207528E+01        2.027228E-01        3.083897E+04             \r\n        8         8        2.647969E+05        5.145842E+02        8.189862E+01        1.238523E-01        3.279571E+04             \r\n        9         9        4.059232E+05        6.371210E+02        1.014010E+02        9.731219E-02        3.950127E+04             \r\n       10        10        4.656545E+05        6.823888E+02        1.086055E+02        7.505807E-02        3.495113E+04             \r\n       11        11        4.880577E+05        6.986112E+02        1.111874E+02        7.236713E-02        3.531933E+04             \r\n       12        12        5.175546E+05        7.194127E+02        1.144981E+02        2.079408E+00        1.076208E+06             \r\n       13        13        5.264872E+05        7.255944E+02        1.154819E+02        6.238417E-02        3.284447E+04             \r\n       14        14        5.737294E+05        7.574493E+02        1.205518E+02        1.882974E-01        1.080318E+05             \r\n       15        15        6.449959E+05        8.031163E+02        1.278199E+02        6.497490E-02        4.190854E+04             \r\n       16        16        6.818846E+05        8.257631E+02        1.314243E+02        3.505687E-01        2.390474E+05             \r\n       17        17        7.739552E+05        8.797473E+02        1.400161E+02        7.938562E-02        6.144091E+04             \r\n       18        18        8.581119E+05        9.263433E+02        1.474321E+02        5.913965E-02        5.074844E+04             \r\n       19        19        1.122226E+06        1.059352E+03        1.686011E+02        3.491664E-02        3.918436E+04             \r\n       20        20        1.319601E+06        1.148739E+03        1.828275E+02        1.660402E-02        2.191068E+04             \r\n       21        21        1.443134E+06        1.201305E+03        1.911937E+02        8.716222E-03        1.257868E+04             \r\n       22        22        1.752231E+06        1.323719E+03        2.106764E+02        2.802464E-02        4.910565E+04             \r\n       23        23        1.958166E+06        1.399345E+03        2.227127E+02        2.582115E-02        5.056211E+04             \r\n       24        24        2.176176E+06        1.475187E+03        2.347833E+02        1.636614E-02        3.561562E+04             \r\n       25        25        3.379296E+06        1.838286E+03        2.925723E+02        3.944539E-02        1.332976E+05             \r\n       26        26        3.780728E+06        1.944410E+03        3.094624E+02        2.589798E-02        9.791322E+04             \r\n       27        27        5.718344E+06        2.391306E+03        3.805881E+02        1.231468E-02        7.041956E+04             \r\n       28        28        8.170006E+06        2.858322E+03        4.549161E+02        1.483917E-02        1.212361E+05             \r\n       29        29        1.097182E+07        3.312374E+03        5.271807E+02        2.078518E-01        2.280513E+06             \r\n       30        30        1.407611E+07        3.751814E+03        5.971198E+02        2.560950E-01        3.604821E+06             \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE = -0.520063E-03    (CYCLIC FREQUENCY =  3.629512E-03 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          1\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.000000E+00   0.0            0.0            0.0            2.000667E-01                  \r\n             2      G      0.0            9.999651E-01   0.0            0.0            0.0            1.999269E-01                  \r\n             3      G     -1.908410E-01   9.816075E-01   0.0            0.0            0.0            2.000407E-01                  \r\n             4      G     -1.907709E-01   9.816125E-01   0.0            0.0            0.0            1.999528E-01                  \r\n             5      G     -3.746443E-01   9.271507E-01   0.0            0.0            0.0            2.000039E-01                  \r\n             6      G     -3.745567E-01   9.271846E-01   0.0            0.0            0.0            1.999895E-01                  \r\n             7      G     -5.446662E-01   8.386309E-01   0.0            0.0            0.0            1.999732E-01                  \r\n             8      G     -5.445940E-01   8.386805E-01   0.0            0.0            0.0            2.000203E-01                  \r\n             9      G     -7.071064E-01   7.070700E-01   0.0            0.0            0.0            1.999639E-01                  \r\n            10      G     -7.070841E-01   7.071183E-01   0.0            0.0            0.0            2.000293E-01                  \r\n            11      G     -8.290259E-01   5.591757E-01   0.0            0.0            0.0            1.999731E-01                  \r\n            12      G     -8.290218E-01   5.591900E-01   0.0            0.0            0.0            2.000197E-01                  \r\n            13      G     -9.204891E-01   3.907233E-01   0.0            0.0            0.0            1.999921E-01                  \r\n            14      G     -9.204896E-01   3.907251E-01   0.0            0.0            0.0            2.000007E-01                  \r\n            15      G     -9.781311E-01   2.079078E-01   0.0            0.0            0.0            1.999963E-01                  \r\n            16      G     -9.781314E-01   2.079081E-01   0.0            0.0            0.0            1.999965E-01                  \r\n            17      G     -9.999831E-01   0.0            0.0            0.0            0.0            1.999961E-01                  \r\n            18      G     -9.999833E-01   0.0            0.0            0.0            0.0            1.999967E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.114811E+04    (CYCLIC FREQUENCY =  5.392778E+00 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          2\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            7.022527E-01   0.0            0.0            0.0           -4.264880E-01                  \r\n             2      G      0.0            7.023212E-01   0.0            0.0            0.0           -4.262322E-01                  \r\n             3      G      3.958028E-01   7.402491E-01   0.0            0.0            0.0           -3.953770E-01                  \r\n             4      G      3.956809E-01   7.402345E-01   0.0            0.0            0.0           -3.952509E-01                  \r\n             5      G      7.215863E-01   8.363265E-01   0.0            0.0            0.0           -3.066410E-01                  \r\n             6      G      7.214682E-01   8.362672E-01   0.0            0.0            0.0           -3.066946E-01                  \r\n             7      G      9.277601E-01   9.429422E-01   0.0            0.0            0.0           -1.729430E-01                  \r\n             8      G      9.276996E-01   9.428833E-01   0.0            0.0            0.0           -1.730459E-01                  \r\n             9      G      9.995540E-01   1.000000E+00   0.0            0.0            0.0           -5.738299E-04                  \r\n            10      G      9.995390E-01   9.999688E-01   0.0            0.0            0.0           -6.336584E-04                  \r\n            11      G      9.511512E-01   9.400648E-01   0.0            0.0            0.0            1.596613E-01                  \r\n            12      G      9.511493E-01   9.400570E-01   0.0            0.0            0.0            1.596337E-01                  \r\n            13      G      8.464879E-01   7.459146E-01   0.0            0.0            0.0            2.962070E-01                  \r\n            14      G      8.464882E-01   7.459136E-01   0.0            0.0            0.0            2.962032E-01                  \r\n            15      G      7.471026E-01   4.292031E-01   0.0            0.0            0.0            3.899603E-01                  \r\n            16      G      7.471028E-01   4.292027E-01   0.0            0.0            0.0            3.899601E-01                  \r\n            17      G      7.021719E-01   0.0            0.0            0.0            0.0            4.268138E-01                  \r\n            18      G      7.021720E-01   0.0            0.0            0.0            0.0            4.268131E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.736328E+04    (CYCLIC FREQUENCY =  1.365702E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          3\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.592006E-01   0.0            0.0            0.0           -8.251778E-01                  \r\n             2      G      0.0            2.593047E-01   0.0            0.0            0.0           -8.248793E-01                  \r\n             3      G      7.028197E-01   3.265361E-01   0.0            0.0            0.0           -5.935042E-01                  \r\n             4      G      7.027041E-01   3.264912E-01   0.0            0.0            0.0           -5.934954E-01                  \r\n             5      G      9.999775E-01   4.135539E-01   0.0            0.0            0.0           -2.857688E-02                  \r\n             6      G      1.000000E+00   4.134965E-01   0.0            0.0            0.0           -2.891196E-02                  \r\n             7      G      7.688274E-01   2.920586E-01   0.0            0.0            0.0            5.538954E-01                  \r\n             8      G      7.689914E-01   2.921148E-01   0.0            0.0            0.0            5.537457E-01                  \r\n             9      G      1.838008E-01  -1.823897E-01   0.0            0.0            0.0            8.261285E-01                  \r\n            10      G      1.838716E-01  -1.822406E-01   0.0            0.0            0.0            8.262684E-01                  \r\n            11      G     -2.657393E-01  -7.270606E-01   0.0            0.0            0.0            5.933034E-01                  \r\n            12      G     -2.657235E-01  -7.270131E-01   0.0            0.0            0.0            5.934606E-01                  \r\n            13      G     -4.143413E-01  -9.986625E-01   0.0            0.0            0.0            2.872062E-02                  \r\n            14      G     -4.143428E-01  -9.986581E-01   0.0            0.0            0.0            2.875072E-02                  \r\n            15      G     -3.368415E-01  -7.494626E-01   0.0            0.0            0.0           -5.536869E-01                  \r\n            16      G     -3.368425E-01  -7.494622E-01   0.0            0.0            0.0           -5.536879E-01                  \r\n            17      G     -2.585606E-01   0.0            0.0            0.0            0.0           -8.273371E-01                  \r\n            18      G     -2.585612E-01   0.0            0.0            0.0            0.0           -8.273359E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.203188E+05    (CYCLIC FREQUENCY =  2.268657E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          4\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.243893E-01   0.0            0.0            0.0           -9.924301E-01                  \r\n             2      G      0.0            1.244775E-01   0.0            0.0            0.0           -9.923384E-01                  \r\n             3      G      7.274161E-01   1.938724E-01   0.0            0.0            0.0           -4.027984E-01                  \r\n             4      G      7.274176E-01   1.938059E-01   0.0            0.0            0.0           -4.029730E-01                  \r\n             5      G      5.957062E-01   1.536468E-01   0.0            0.0            0.0            6.660170E-01                  \r\n             6      G      5.958953E-01   1.536494E-01   0.0            0.0            0.0            6.656891E-01                  \r\n             7      G     -1.528727E-01  -2.364795E-01   0.0            0.0            0.0            9.469200E-01                  \r\n             8      G     -1.526571E-01  -2.363157E-01   0.0            0.0            0.0            9.469684E-01                  \r\n             9      G     -5.806563E-01  -5.816519E-01   0.0            0.0            0.0            2.303042E-03                  \r\n            10      G     -5.805819E-01  -5.815051E-01   0.0            0.0            0.0            2.535185E-03                  \r\n            11      G     -2.796358E-01  -2.149846E-01   0.0            0.0            0.0           -9.074092E-01                  \r\n            12      G     -2.796243E-01  -2.149456E-01   0.0            0.0            0.0           -9.072647E-01                  \r\n            13      G      1.315227E-01   5.418631E-01   0.0            0.0            0.0           -7.373115E-01                  \r\n            14      G      1.315209E-01   5.418665E-01   0.0            0.0            0.0           -7.372910E-01                  \r\n            15      G      1.998304E-01   7.547558E-01   0.0            0.0            0.0            3.116229E-01                  \r\n            16      G      1.998295E-01   7.547567E-01   0.0            0.0            0.0            3.116220E-01                  \r\n            17      G      1.212636E-01   0.0            0.0            0.0            0.0            9.999976E-01                  \r\n            18      G      1.212630E-01   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.439166E+05    (CYCLIC FREQUENCY =  3.335297E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          5\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -6.050985E-02   0.0            0.0            0.0            9.832539E-01                  \r\n             2      G      0.0           -6.056796E-02   0.0            0.0            0.0            9.833542E-01                  \r\n             3      G     -5.745658E-01  -1.151010E-01   0.0            0.0            0.0            3.250911E-02                  \r\n             4      G     -5.746443E-01  -1.150370E-01   0.0            0.0            0.0            3.267936E-02                  \r\n             5      G     -5.778468E-02   3.893030E-02   0.0            0.0            0.0           -9.819034E-01                  \r\n             6      G     -5.792462E-02   3.887764E-02   0.0            0.0            0.0           -9.819184E-01                  \r\n             7      G      4.861737E-01   3.213957E-01   0.0            0.0            0.0           -9.555130E-02                  \r\n             8      G      4.861907E-01   3.212996E-01   0.0            0.0            0.0           -9.581662E-02                  \r\n             9      G      4.271409E-02  -3.888064E-02   0.0            0.0            0.0            9.917422E-01                  \r\n            10      G      4.274698E-02  -3.880567E-02   0.0            0.0            0.0            9.916905E-01                  \r\n            11      G     -3.278294E-01  -4.870205E-01   0.0            0.0            0.0            3.402243E-02                  \r\n            12      G     -3.278151E-01  -4.869861E-01   0.0            0.0            0.0            3.412078E-02                  \r\n            13      G     -7.111858E-02  -1.234451E-02   0.0            0.0            0.0           -9.836213E-01                  \r\n            14      G     -7.111891E-02  -1.234188E-02   0.0            0.0            0.0           -9.835930E-01                  \r\n            15      G      1.140703E-01   5.726753E-01   0.0            0.0            0.0           -9.460600E-02                  \r\n            16      G      1.140696E-01   5.726743E-01   0.0            0.0            0.0           -9.460796E-02                  \r\n            17      G      5.480491E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G      5.480458E-02   0.0            0.0            0.0            0.0            9.999983E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.847065E+05    (CYCLIC FREQUENCY =  4.632106E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          6\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.920824E-02   0.0            0.0            0.0           -9.890158E-01                  \r\n             2      G      0.0            2.924457E-02   0.0            0.0            0.0           -9.891880E-01                  \r\n             3      G      4.166937E-01   6.844005E-02   0.0            0.0            0.0            3.401803E-01                  \r\n             4      G      4.167831E-01   6.838705E-02   0.0            0.0            0.0            3.401048E-01                  \r\n             5      G     -2.595836E-01  -1.321875E-01   0.0            0.0            0.0            7.520615E-01                  \r\n             6      G     -2.595526E-01  -1.321120E-01   0.0            0.0            0.0            7.522645E-01                  \r\n             7      G     -1.958294E-01  -9.753346E-02   0.0            0.0            0.0           -8.689411E-01                  \r\n             8      G     -1.959468E-01  -9.754854E-02   0.0            0.0            0.0           -8.687085E-01                  \r\n             9      G      3.136575E-01   3.144741E-01   0.0            0.0            0.0           -1.080066E-02                  \r\n            10      G      3.135862E-01   3.143389E-01   0.0            0.0            0.0           -1.089117E-02                  \r\n            11      G     -6.127381E-02  -1.412648E-01   0.0            0.0            0.0            9.218851E-01                  \r\n            12      G     -6.129195E-02  -1.413102E-01   0.0            0.0            0.0            9.217232E-01                  \r\n            13      G     -1.518691E-01  -3.056022E-01   0.0            0.0            0.0           -6.310054E-01                  \r\n            14      G     -1.518676E-01  -3.056037E-01   0.0            0.0            0.0           -6.310368E-01                  \r\n            15      G      6.467055E-02   3.810263E-01   0.0            0.0            0.0           -4.824385E-01                  \r\n            16      G      6.467155E-02   3.810273E-01   0.0            0.0            0.0           -4.824339E-01                  \r\n            17      G      2.571111E-02   0.0            0.0            0.0            0.0            9.999996E-01                  \r\n            18      G      2.571163E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.152124E+06    (CYCLIC FREQUENCY =  6.207528E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          7\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -1.243322E-02   0.0            0.0            0.0            9.670635E-01                  \r\n             2      G      0.0           -1.245218E-02   0.0            0.0            0.0            9.672013E-01                  \r\n             3      G     -2.525488E-01  -3.576179E-02   0.0            0.0            0.0           -6.462266E-01                  \r\n             4      G     -2.526078E-01  -3.572497E-02   0.0            0.0            0.0           -6.462263E-01                  \r\n             5      G      3.134035E-01   1.313207E-01   0.0            0.0            0.0           -9.650955E-02                  \r\n             6      G      3.134222E-01   1.312517E-01   0.0            0.0            0.0           -9.661575E-02                  \r\n             7      G     -1.657488E-01  -1.192648E-01   0.0            0.0            0.0            7.784813E-01                  \r\n             8      G     -1.657443E-01  -1.192113E-01   0.0            0.0            0.0            7.784851E-01                  \r\n             9      G     -1.132812E-02   6.748960E-03   0.0            0.0            0.0           -9.837554E-01                  \r\n            10      G     -1.133028E-02   6.735579E-03   0.0            0.0            0.0           -9.836889E-01                  \r\n            11      G      1.540093E-01   2.049285E-01   0.0            0.0            0.0            6.542906E-01                  \r\n            12      G      1.540028E-01   2.049149E-01   0.0            0.0            0.0            6.542678E-01                  \r\n            13      G     -1.311176E-01  -3.199880E-01   0.0            0.0            0.0            9.755252E-02                  \r\n            14      G     -1.311181E-01  -3.199899E-01   0.0            0.0            0.0            9.753636E-02                  \r\n            15      G      3.302807E-02   2.021973E-01   0.0            0.0            0.0           -7.877339E-01                  \r\n            16      G      3.302836E-02   2.021984E-01   0.0            0.0            0.0           -7.877339E-01                  \r\n            17      G      1.306160E-02   0.0            0.0            0.0            0.0            9.999972E-01                  \r\n            18      G      1.306170E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.264797E+06    (CYCLIC FREQUENCY =  8.189862E+01 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          8\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.345713E-03   0.0            0.0            0.0           -9.890900E-01                  \r\n             2      G      0.0            6.352602E-03   0.0            0.0            0.0           -9.891421E-01                  \r\n             3      G      1.121750E-01   1.593497E-02   0.0            0.0            0.0            8.928921E-01                  \r\n             4      G      1.121926E-01   1.591521E-02   0.0            0.0            0.0            8.929169E-01                  \r\n             5      G     -1.910078E-01  -7.287797E-02   0.0            0.0            0.0           -6.226808E-01                  \r\n             6      G     -1.910277E-01  -7.283792E-02   0.0            0.0            0.0           -6.227056E-01                  \r\n             7      G      2.123573E-01   1.365341E-01   0.0            0.0            0.0            2.425420E-01                  \r\n             8      G      2.124321E-01   1.365100E-01   0.0            0.0            0.0            2.423785E-01                  \r\n             9      G     -1.814787E-01  -1.821576E-01   0.0            0.0            0.0            5.378373E-02                  \r\n            10      G     -1.814098E-01  -1.820461E-01   0.0            0.0            0.0            5.378030E-02                  \r\n            11      G      1.268417E-01   1.927239E-01   0.0            0.0            0.0           -4.611249E-01                  \r\n            12      G      1.268673E-01   1.927716E-01   0.0            0.0            0.0           -4.609511E-01                  \r\n            13      G     -5.547592E-02  -1.442477E-01   0.0            0.0            0.0            7.884430E-01                  \r\n            14      G     -5.547800E-02  -1.442526E-01   0.0            0.0            0.0            7.884928E-01                  \r\n            15      G      4.627754E-03   5.104284E-02   0.0            0.0            0.0           -9.646926E-01                  \r\n            16      G      4.625866E-03   5.103564E-02   0.0            0.0            0.0           -9.647071E-01                  \r\n            17      G      4.227266E-04   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G      4.220544E-04   0.0            0.0            0.0            0.0            9.999880E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.405923E+06    (CYCLIC FREQUENCY =  1.014010E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .          9\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.564126E-02   0.0            0.0            0.0           -9.916259E-01                  \r\n             2      G      0.0            1.564446E-02   0.0            0.0            0.0           -9.916999E-01                  \r\n             3      G      9.951463E-03   1.434308E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             4      G      9.986355E-03   1.434851E-02   0.0            0.0            0.0            9.999357E-01                  \r\n             5      G     -3.750071E-02  -1.498943E-03   0.0            0.0            0.0           -9.682799E-01                  \r\n             6      G     -3.746050E-02  -1.477037E-03   0.0            0.0            0.0           -9.682114E-01                  \r\n             7      G      2.652701E-02   2.538989E-02   0.0            0.0            0.0            9.541721E-01                  \r\n             8      G      2.651192E-02   2.536707E-02   0.0            0.0            0.0            9.543173E-01                  \r\n             9      G     -5.158884E-03  -6.473966E-03   0.0            0.0            0.0           -9.470764E-01                  \r\n            10      G     -5.195362E-03  -6.505636E-03   0.0            0.0            0.0           -9.471522E-01                  \r\n            11      G      1.009702E-02   1.757251E-03   0.0            0.0            0.0            9.329941E-01                  \r\n            12      G      1.009987E-02   1.767672E-03   0.0            0.0            0.0            9.329042E-01                  \r\n            13      G     -5.406916E-03  -3.383079E-02   0.0            0.0            0.0           -9.239667E-01                  \r\n            14      G     -5.399241E-03  -3.381125E-02   0.0            0.0            0.0           -9.239365E-01                  \r\n            15      G      2.035466E-02   3.361567E-02   0.0            0.0            0.0            8.897182E-01                  \r\n            16      G      2.035505E-02   3.361475E-02   0.0            0.0            0.0            8.897488E-01                  \r\n            17      G      1.702928E-02   0.0            0.0            0.0            0.0           -9.049585E-01                  \r\n            18      G      1.702955E-02   0.0            0.0            0.0            0.0           -9.049788E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.465654E+06    (CYCLIC FREQUENCY =  1.086055E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         10\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -1.843599E-02   0.0            0.0            0.0            7.681016E-01                  \r\n             2      G      0.0            1.863965E-02   0.0            0.0            0.0           -7.677790E-01                  \r\n             3      G     -2.644366E-01  -5.338820E-02   0.0            0.0            0.0            1.050538E-01                  \r\n             4      G      2.643443E-01   5.364258E-02   0.0            0.0            0.0           -1.051109E-01                  \r\n             5      G     -7.073864E-02  -8.139038E-03   0.0            0.0            0.0           -7.719904E-01                  \r\n             6      G      7.061783E-02   8.262429E-03   0.0            0.0            0.0            7.721495E-01                  \r\n             7      G      2.271622E-01   1.555667E-01   0.0            0.0            0.0           -3.329950E-01                  \r\n             8      G     -2.272324E-01  -1.556239E-01   0.0            0.0            0.0            3.330174E-01                  \r\n             9      G      7.127886E-02   4.635365E-02   0.0            0.0            0.0            8.923870E-01                  \r\n            10      G     -7.134094E-02  -4.644728E-02   0.0            0.0            0.0           -8.923150E-01                  \r\n            11      G     -1.477745E-01  -2.281726E-01   0.0            0.0            0.0            2.186599E-01                  \r\n            12      G      1.477869E-01   2.280434E-01   0.0            0.0            0.0           -2.188822E-01                  \r\n            13      G     -4.360352E-02  -5.880691E-02   0.0            0.0            0.0           -8.274580E-01                  \r\n            14      G      4.370588E-02   5.870263E-02   0.0            0.0            0.0            8.275553E-01                  \r\n            15      G      5.326303E-02   2.705336E-01   0.0            0.0            0.0           -2.314932E-01                  \r\n            16      G     -5.310618E-02  -2.706142E-01   0.0            0.0            0.0            2.312387E-01                  \r\n            17      G      1.567807E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -1.549479E-02   0.0            0.0            0.0            0.0           -9.999415E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.488058E+06    (CYCLIC FREQUENCY =  1.111874E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         11\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.965163E-02   0.0            0.0            0.0           -5.788874E-01                  \r\n             2      G      0.0           -2.071602E-02   0.0            0.0            0.0            5.779193E-01                  \r\n             3      G      2.245782E-01   5.180693E-02   0.0            0.0            0.0           -2.665999E-01                  \r\n             4      G     -2.241724E-01  -5.280618E-02   0.0            0.0            0.0            2.663532E-01                  \r\n             5      G      1.940385E-01   6.300920E-02   0.0            0.0            0.0            3.881719E-01                  \r\n             6      G     -1.933733E-01  -6.364004E-02   0.0            0.0            0.0           -3.888303E-01                  \r\n             7      G     -5.889940E-02  -6.287779E-02   0.0            0.0            0.0            6.551802E-01                  \r\n             8      G      5.953036E-02   6.278674E-02   0.0            0.0            0.0           -6.552444E-01                  \r\n             9      G     -1.959857E-01  -1.964215E-01   0.0            0.0            0.0            1.064207E-02                  \r\n            10      G      1.963187E-01   1.968525E-01   0.0            0.0            0.0           -1.101448E-02                  \r\n            11      G     -9.688177E-02  -1.063754E-01   0.0            0.0            0.0           -5.369784E-01                  \r\n            12      G      9.681775E-02   1.070717E-01   0.0            0.0            0.0            5.378127E-01                  \r\n            13      G      4.706968E-02   1.634758E-01   0.0            0.0            0.0           -6.230667E-01                  \r\n            14      G     -4.763388E-02  -1.628603E-01   0.0            0.0            0.0            6.229098E-01                  \r\n            15      G      7.386551E-02   3.249733E-01   0.0            0.0            0.0            9.182185E-02                  \r\n            16      G     -7.476906E-02  -3.245350E-01   0.0            0.0            0.0           -9.075315E-02                  \r\n            17      G      2.446101E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -2.551911E-02   0.0            0.0            0.0            0.0           -9.999213E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.517555E+06    (CYCLIC FREQUENCY =  1.144981E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         12\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.000000E+00   0.0            0.0            0.0            8.379720E-01                  \r\n             2      G      0.0            9.984191E-01   0.0            0.0            0.0            9.218167E-01                  \r\n             3      G     -3.356315E-01   8.778641E-01   0.0            0.0            0.0            1.970781E-01                  \r\n             4      G     -3.601255E-01   8.732536E-01   0.0            0.0            0.0            1.841247E-01                  \r\n             5      G     -6.096761E-01   5.282988E-01   0.0            0.0            0.0            7.653171E-01                  \r\n             6      G     -6.043793E-01   5.319284E-01   0.0            0.0            0.0            6.941699E-01                  \r\n             7      G     -6.013781E-01   9.644271E-02   0.0            0.0            0.0           -3.663571E-02                  \r\n             8      G     -5.870678E-01   1.055928E-01   0.0            0.0            0.0           -1.976654E-03                  \r\n             9      G     -3.324322E-01  -3.385343E-01   0.0            0.0            0.0            2.425030E-01                  \r\n            10      G     -3.386381E-01  -3.453794E-01   0.0            0.0            0.0            2.625327E-01                  \r\n            11      G      3.991072E-02  -6.139910E-01   0.0            0.0            0.0           -5.321742E-01                  \r\n            12      G      4.123510E-02  -6.118892E-01   0.0            0.0            0.0           -5.696548E-01                  \r\n            13      G      5.065225E-01  -5.833578E-01   0.0            0.0            0.0           -7.111059E-02                  \r\n            14      G      5.092160E-01  -5.790248E-01   0.0            0.0            0.0           -3.050098E-02                  \r\n            15      G      8.500749E-01  -3.879117E-01   0.0            0.0            0.0           -8.280164E-01                  \r\n            16      G      8.456295E-01  -4.092866E-01   0.0            0.0            0.0           -8.002169E-01                  \r\n            17      G      9.984502E-01   0.0            0.0            0.0            0.0           -2.403564E-01                  \r\n            18      G      9.970610E-01   0.0            0.0            0.0            0.0           -3.297737E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.526487E+06    (CYCLIC FREQUENCY =  1.154819E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         13\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -1.401311E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             2      G      0.0            1.609644E-02   0.0            0.0            0.0           -9.979921E-01                  \r\n             3      G     -2.660059E-01  -4.678367E-02   0.0            0.0            0.0           -2.946998E-01                  \r\n             4      G      2.652818E-01   4.868281E-02   0.0            0.0            0.0            2.949576E-01                  \r\n             5      G      1.355993E-01   6.810873E-02   0.0            0.0            0.0           -7.755613E-01                  \r\n             6      G     -1.368603E-01  -6.707685E-02   0.0            0.0            0.0            7.771531E-01                  \r\n             7      G      1.254282E-01   7.062425E-02   0.0            0.0            0.0            7.887670E-01                  \r\n             8      G     -1.266022E-01  -7.046972E-02   0.0            0.0            0.0           -7.887939E-01                  \r\n             9      G     -1.771581E-01  -1.792649E-01   0.0            0.0            0.0            1.193080E-01                  \r\n            10      G      1.764347E-01   1.785782E-01   0.0            0.0            0.0           -1.189202E-01                  \r\n            11      G      4.426894E-03   2.939919E-02   0.0            0.0            0.0           -8.395743E-01                  \r\n            12      G     -4.357041E-03  -3.065059E-02   0.0            0.0            0.0            8.385826E-01                  \r\n            13      G      8.394316E-02   1.865113E-01   0.0            0.0            0.0            3.576829E-01                  \r\n            14      G     -8.289730E-02  -1.877196E-01   0.0            0.0            0.0           -3.579073E-01                  \r\n            15      G     -2.366211E-02  -1.480946E-01   0.0            0.0            0.0            5.238459E-01                  \r\n            16      G      2.542731E-02   1.472681E-01   0.0            0.0            0.0           -5.254533E-01                  \r\n            17      G     -5.047119E-03   0.0            0.0            0.0            0.0           -8.319814E-01                  \r\n            18      G      7.125952E-03   0.0            0.0            0.0            0.0            8.312953E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.573729E+06    (CYCLIC FREQUENCY =  1.205518E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         14\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -4.359880E-02   0.0            0.0            0.0            8.568853E-01                  \r\n             2      G      0.0            4.287216E-02   0.0            0.0            0.0           -8.567839E-01                  \r\n             3      G     -3.444123E-01  -9.875555E-02   0.0            0.0            0.0            5.922774E-01                  \r\n             4      G      3.446687E-01   9.822816E-02   0.0            0.0            0.0           -5.928878E-01                  \r\n             5      G     -4.660559E-01  -1.904376E-01   0.0            0.0            0.0            2.174488E-02                  \r\n             6      G      4.662974E-01   1.901426E-01   0.0            0.0            0.0           -2.222851E-02                  \r\n             7      G     -3.328567E-01  -1.833570E-01   0.0            0.0            0.0           -5.380988E-01                  \r\n             8      G      3.332728E-01   1.833985E-01   0.0            0.0            0.0            5.383717E-01                  \r\n             9      G     -2.024109E-02   3.858486E-02   0.0            0.0            0.0           -9.357002E-01                  \r\n            10      G      2.050263E-02  -3.841669E-02   0.0            0.0            0.0            9.351533E-01                  \r\n            11      G      1.780141E-01   3.135513E-01   0.0            0.0            0.0           -4.536605E-01                  \r\n            12      G     -1.780460E-01  -3.132346E-01   0.0            0.0            0.0            4.542360E-01                  \r\n            13      G      1.700800E-01   4.042099E-01   0.0            0.0            0.0            1.073944E-02                  \r\n            14      G     -1.703443E-01  -4.038030E-01   0.0            0.0            0.0           -1.077765E-02                  \r\n            15      G      9.960520E-02   3.518693E-01   0.0            0.0            0.0            3.780988E-01                  \r\n            16      G     -1.001232E-01  -3.516805E-01   0.0            0.0            0.0           -3.778151E-01                  \r\n            17      G      3.895551E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -3.958843E-02   0.0            0.0            0.0            0.0           -9.994742E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.644996E+06    (CYCLIC FREQUENCY =  1.278199E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         15\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.077652E-02   0.0            0.0            0.0           -9.735528E-01                  \r\n             2      G      0.0           -1.075887E-02   0.0            0.0            0.0            9.733527E-01                  \r\n             3      G      1.922394E-01   3.369290E-02   0.0            0.0            0.0            5.613964E-01                  \r\n             4      G     -1.922595E-01  -3.373517E-02   0.0            0.0            0.0           -5.612121E-01                  \r\n             5      G     -1.865825E-01  -7.633983E-02   0.0            0.0            0.0            1.777692E-01                  \r\n             6      G      1.865938E-01   7.643049E-02   0.0            0.0            0.0           -1.778268E-01                  \r\n             7      G      1.114065E-01   8.042765E-02   0.0            0.0            0.0           -8.519841E-01                  \r\n             8      G     -1.114330E-01  -8.047715E-02   0.0            0.0            0.0            8.519387E-01                  \r\n             9      G      3.045596E-02   2.266680E-02   0.0            0.0            0.0            9.883876E-01                  \r\n            10      G     -3.044618E-02  -2.265261E-02   0.0            0.0            0.0           -9.882218E-01                  \r\n            11      G     -8.714605E-02  -1.163944E-01   0.0            0.0            0.0           -6.527758E-01                  \r\n            12      G      8.714325E-02   1.163790E-01   0.0            0.0            0.0            6.526239E-01                  \r\n            13      G      1.129446E-01   2.691582E-01   0.0            0.0            0.0           -1.872493E-01                  \r\n            14      G     -1.129418E-01  -2.691630E-01   0.0            0.0            0.0            1.873535E-01                  \r\n            15      G     -7.436579E-03  -8.302300E-02   0.0            0.0            0.0            9.496505E-01                  \r\n            16      G      7.441982E-03   8.302313E-02   0.0            0.0            0.0           -9.496939E-01                  \r\n            17      G      6.327450E-07   0.0            0.0            0.0            0.0           -9.999894E-01                  \r\n            18      G      1.116538E-05   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.681885E+06    (CYCLIC FREQUENCY =  1.314243E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         16\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -4.143526E-02   0.0            0.0            0.0            3.012355E-01                  \r\n             2      G      0.0            4.137767E-02   0.0            0.0            0.0           -2.927229E-01                  \r\n             3      G     -1.914635E-01  -8.062024E-02   0.0            0.0            0.0            7.652254E-01                  \r\n             4      G      1.925248E-01   8.076181E-02   0.0            0.0            0.0           -7.727025E-01                  \r\n             5      G     -5.034750E-01  -2.376618E-01   0.0            0.0            0.0            4.465614E-01                  \r\n             6      G      5.017952E-01   2.371431E-01   0.0            0.0            0.0           -4.446293E-01                  \r\n             7      G     -4.760379E-01  -3.287199E-01   0.0            0.0            0.0            1.465996E-03                  \r\n             8      G      4.771007E-01   3.296076E-01   0.0            0.0            0.0            1.823001E-03                  \r\n             9      G     -4.652660E-01  -4.680362E-01   0.0            0.0            0.0            2.872824E-01                  \r\n            10      G      4.650967E-01   4.678141E-01   0.0            0.0            0.0           -2.939982E-01                  \r\n            11      G     -4.159769E-01  -5.861627E-01   0.0            0.0            0.0           -3.050179E-01                  \r\n            12      G      4.155560E-01   5.858536E-01   0.0            0.0            0.0            3.094571E-01                  \r\n            13      G     -2.011509E-01  -3.931033E-01   0.0            0.0            0.0           -5.679711E-01                  \r\n            14      G      2.015535E-01   3.936951E-01   0.0            0.0            0.0            5.660707E-01                  \r\n            15      G     -1.010258E-01  -2.938567E-01   0.0            0.0            0.0           -2.505577E-01                  \r\n            16      G      1.011685E-01   2.931429E-01   0.0            0.0            0.0            2.484877E-01                  \r\n            17      G     -4.466690E-02   0.0            0.0            0.0            0.0           -9.966330E-01                  \r\n            18      G      4.465631E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.773955E+06    (CYCLIC FREQUENCY =  1.400161E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         17\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -4.176574E-03   0.0            0.0            0.0           -9.620442E-01                  \r\n             2      G      0.0           -4.189732E-03   0.0            0.0            0.0           -9.936900E-01                  \r\n             3      G     -8.871204E-02  -1.360837E-02   0.0            0.0            0.0            9.188021E-01                  \r\n             4      G     -9.016973E-02  -1.374730E-02   0.0            0.0            0.0            9.284890E-01                  \r\n             5      G      1.594141E-01   6.097342E-02   0.0            0.0            0.0           -7.674198E-01                  \r\n             6      G      1.606633E-01   6.137214E-02   0.0            0.0            0.0           -7.737234E-01                  \r\n             7      G     -1.928168E-01  -1.231221E-01   0.0            0.0            0.0            5.125007E-01                  \r\n             8      G     -1.937204E-01  -1.235991E-01   0.0            0.0            0.0            5.165494E-01                  \r\n             9      G      1.892304E-01   1.865611E-01   0.0            0.0            0.0            4.360770E-03                  \r\n            10      G      1.904479E-01   1.873198E-01   0.0            0.0            0.0            9.757719E-03                  \r\n            11      G     -1.395495E-01  -2.122275E-01   0.0            0.0            0.0           -3.449765E-01                  \r\n            12      G     -1.397568E-01  -2.123524E-01   0.0            0.0            0.0           -3.495222E-01                  \r\n            13      G      8.016175E-02   1.918633E-01   0.0            0.0            0.0            6.210759E-01                  \r\n            14      G      8.033673E-02   1.925016E-01   0.0            0.0            0.0            6.266881E-01                  \r\n            15      G     -2.373563E-02  -1.324526E-01   0.0            0.0            0.0           -8.427296E-01                  \r\n            16      G     -2.331320E-02  -1.322570E-01   0.0            0.0            0.0           -8.523687E-01                  \r\n            17      G     -9.849630E-03   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -9.280056E-03   0.0            0.0            0.0            0.0            9.931021E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.858112E+06    (CYCLIC FREQUENCY =  1.474321E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         18\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            5.062176E-03   0.0            0.0            0.0           -9.760255E-01                  \r\n             2      G      0.0           -4.983522E-03   0.0            0.0            0.0            9.776507E-01                  \r\n             3      G      1.017905E-01   1.592169E-02   0.0            0.0            0.0            8.637494E-01                  \r\n             4      G     -1.015798E-01  -1.585724E-02   0.0            0.0            0.0           -8.650308E-01                  \r\n             5      G     -1.664687E-01  -6.371764E-02   0.0            0.0            0.0           -5.728456E-01                  \r\n             6      G      1.660980E-01   6.367897E-02   0.0            0.0            0.0            5.729196E-01                  \r\n             7      G      1.883097E-01   1.223424E-01   0.0            0.0            0.0            1.407639E-01                  \r\n             8      G     -1.881109E-01  -1.222704E-01   0.0            0.0            0.0           -1.396067E-01                  \r\n             9      G     -1.600693E-01  -1.598931E-01   0.0            0.0            0.0            1.004013E-01                  \r\n            10      G      1.600823E-01   1.599384E-01   0.0            0.0            0.0           -1.020627E-01                  \r\n            11      G      9.840610E-02   1.509490E-01   0.0            0.0            0.0           -5.377904E-01                  \r\n            12      G     -9.860366E-02  -1.511687E-01   0.0            0.0            0.0            5.386818E-01                  \r\n            13      G     -3.969763E-02  -1.044763E-01   0.0            0.0            0.0            8.413116E-01                  \r\n            14      G      3.985805E-02   1.047308E-01   0.0            0.0            0.0           -8.413646E-01                  \r\n            15      G     -1.327919E-03   9.819654E-03   0.0            0.0            0.0           -9.877970E-01                  \r\n            16      G      1.374315E-03  -1.009996E-02   0.0            0.0            0.0            9.866938E-01                  \r\n            17      G     -5.882789E-04   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G      6.330072E-04   0.0            0.0            0.0            0.0           -9.985011E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.112223E+07    (CYCLIC FREQUENCY =  1.686011E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         19\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.680901E-03   0.0            0.0            0.0           -7.702415E-01                  \r\n             2      G      0.0           -1.566423E-03   0.0            0.0            0.0            7.930604E-01                  \r\n             3      G      2.218080E-02   3.335202E-03   0.0            0.0            0.0            7.795970E-01                  \r\n             4      G     -1.901737E-02  -2.883441E-03   0.0            0.0            0.0           -7.973612E-01                  \r\n             5      G     -3.956430E-02  -1.364900E-02   0.0            0.0            0.0           -7.911267E-01                  \r\n             6      G      3.517153E-02   1.193830E-02   0.0            0.0            0.0            7.928597E-01                  \r\n             7      G      4.843251E-02   3.272124E-02   0.0            0.0            0.0            8.264033E-01                  \r\n             8      G     -4.548318E-02  -3.063853E-02   0.0            0.0            0.0           -8.116649E-01                  \r\n             9      G     -4.158313E-03  -4.928707E-03   0.0            0.0            0.0           -9.027756E-01                  \r\n            10      G      4.538882E-03   4.909017E-03   0.0            0.0            0.0            8.795611E-01                  \r\n            11      G      1.277094E-02   1.605242E-02   0.0            0.0            0.0            8.658656E-01                  \r\n            12      G     -1.475008E-02  -1.855193E-02   0.0            0.0            0.0           -8.506373E-01                  \r\n            13      G     -1.734871E-02  -3.653962E-02   0.0            0.0            0.0           -8.646517E-01                  \r\n            14      G      1.915737E-02   4.062516E-02   0.0            0.0            0.0            8.627247E-01                  \r\n            15      G      1.201880E-02   5.811064E-02   0.0            0.0            0.0            8.834072E-01                  \r\n            16      G     -1.253620E-02  -6.156785E-02   0.0            0.0            0.0           -8.968958E-01                  \r\n            17      G      2.601049E-03   0.0            0.0            0.0            0.0           -9.780911E-01                  \r\n            18      G     -3.035790E-03   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.131960E+07    (CYCLIC FREQUENCY =  1.828275E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         20\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.415379E-03   0.0            0.0            0.0           -1.928814E-01                  \r\n             2      G      0.0            5.590766E-03   0.0            0.0            0.0            1.000000E+00                  \r\n             3      G      3.190516E-02   5.929251E-03   0.0            0.0            0.0            1.907969E-01                  \r\n             4      G      7.388076E-02   1.324565E-02   0.0            0.0            0.0           -7.820632E-01                  \r\n             5      G     -4.772769E-02  -1.916412E-02   0.0            0.0            0.0           -3.564162E-01                  \r\n             6      G     -1.037183E-01  -4.068987E-02   0.0            0.0            0.0            4.567186E-01                  \r\n             7      G      1.494553E-02   1.122246E-02   0.0            0.0            0.0            5.810568E-01                  \r\n             8      G      9.367429E-02   6.140788E-02   0.0            0.0            0.0           -1.153748E-01                  \r\n             9      G      4.880819E-02   3.784684E-02   0.0            0.0            0.0           -4.045693E-01                  \r\n            10      G     -4.186876E-02  -4.875673E-02   0.0            0.0            0.0           -4.155214E-01                  \r\n            11      G     -6.019552E-02  -9.145004E-02   0.0            0.0            0.0            2.008447E-01                  \r\n            12      G      1.320452E-03   6.782805E-04   0.0            0.0            0.0            4.218172E-01                  \r\n            13      G      5.377495E-02   1.248217E-01   0.0            0.0            0.0            1.756696E-01                  \r\n            14      G      1.321567E-02   2.999962E-02   0.0            0.0            0.0           -2.764466E-01                  \r\n            15      G     -2.063295E-02  -1.048134E-01   0.0            0.0            0.0           -5.857372E-01                  \r\n            16      G     -8.052472E-03  -2.476056E-02   0.0            0.0            0.0            1.021302E-01                  \r\n            17      G     -7.811151E-03   0.0            0.0            0.0            0.0            8.336141E-01                  \r\n            18      G     -7.728989E-03   0.0            0.0            0.0            0.0            1.538579E-02                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.144313E+07    (CYCLIC FREQUENCY =  1.911937E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         21\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.098476E-03   0.0            0.0            0.0            2.595256E-02                  \r\n             2      G      0.0            5.852876E-03   0.0            0.0            0.0            3.901586E-01                  \r\n             3      G      3.799985E-03   3.058942E-03   0.0            0.0            0.0           -2.334655E-01                  \r\n             4      G      4.745021E-02   9.680659E-03   0.0            0.0            0.0           -5.698911E-02                  \r\n             5      G     -2.284219E-02  -9.376865E-03   0.0            0.0            0.0            2.349418E-01                  \r\n             6      G     -5.468070E-02  -2.119111E-02   0.0            0.0            0.0           -1.636932E-01                  \r\n             7      G      2.544495E-02   1.418498E-02   0.0            0.0            0.0           -1.931941E-01                  \r\n             8      G      3.384056E-02   2.160585E-02   0.0            0.0            0.0            4.071678E-01                  \r\n             9      G     -2.167047E-02  -2.936584E-02   0.0            0.0            0.0            1.024659E-01                  \r\n            10      G      2.395803E-02   1.735817E-02   0.0            0.0            0.0           -5.337440E-01                  \r\n            11      G      1.615573E-02   1.993732E-02   0.0            0.0            0.0            1.547792E-02                  \r\n            12      G     -4.108285E-02  -6.859185E-02   0.0            0.0            0.0            3.458541E-01                  \r\n            13      G     -5.163135E-03  -8.833445E-03   0.0            0.0            0.0           -4.693551E-02                  \r\n            14      G      4.207499E-02   9.487152E-02   0.0            0.0            0.0           -2.420180E-02                  \r\n            15      G      4.423479E-03   2.807801E-02   0.0            0.0            0.0            1.950799E-02                  \r\n            16      G     -2.496865E-02  -9.910906E-02   0.0            0.0            0.0           -2.757837E-01                  \r\n            17      G      1.355728E-03   0.0            0.0            0.0            0.0           -5.173450E-01                  \r\n            18      G     -1.228135E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.175223E+07    (CYCLIC FREQUENCY =  2.106764E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         22\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            2.564228E-02   0.0            0.0            0.0            5.952873E-01                  \r\n             2      G      0.0            2.162351E-02   0.0            0.0            0.0           -7.742673E-01                  \r\n             3      G      3.839498E-02   2.333190E-02   0.0            0.0            0.0            4.351062E-01                  \r\n             4      G     -7.883438E-02   5.934840E-03   0.0            0.0            0.0           -2.400088E-01                  \r\n             5      G      8.832233E-03   1.002148E-03   0.0            0.0            0.0           -7.463344E-01                  \r\n             6      G      2.479162E-02   1.376702E-02   0.0            0.0            0.0            6.354020E-01                  \r\n             7      G     -8.407011E-02  -7.364263E-02   0.0            0.0            0.0            6.751722E-01                  \r\n             8      G      4.960324E-02   1.064829E-02   0.0            0.0            0.0           -7.681195E-01                  \r\n             9      G      6.999538E-02   4.367406E-02   0.0            0.0            0.0            1.000000E+00                  \r\n            10      G     -1.843426E-02  -6.248400E-02   0.0            0.0            0.0           -7.468254E-01                  \r\n            11      G      4.633419E-02   3.139224E-02   0.0            0.0            0.0           -9.810494E-01                  \r\n            12      G      2.464755E-03  -1.454693E-02   0.0            0.0            0.0            5.601512E-01                  \r\n            13      G     -4.272550E-02  -1.062472E-01   0.0            0.0            0.0            3.898786E-01                  \r\n            14      G      1.720355E-02   4.159661E-02   0.0            0.0            0.0           -2.695730E-01                  \r\n            15      G     -3.082184E-03   9.279401E-02   0.0            0.0            0.0            6.270042E-01                  \r\n            16      G     -9.936079E-03  -8.904519E-03   0.0            0.0            0.0           -3.751683E-01                  \r\n            17      G     -3.135178E-02   0.0            0.0            0.0            0.0           -2.889804E-01                  \r\n            18      G     -1.911560E-02   0.0            0.0            0.0            0.0           -1.214693E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.195817E+07    (CYCLIC FREQUENCY =  2.227127E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         23\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            9.474006E-03   0.0            0.0            0.0            4.346042E-01                  \r\n             2      G      0.0            3.961074E-03   0.0            0.0            0.0           -3.457832E-01                  \r\n             3      G      1.549356E-02   9.714011E-03   0.0            0.0            0.0            9.352357E-01                  \r\n             4      G     -2.870801E-03   1.412583E-03   0.0            0.0            0.0           -9.285750E-01                  \r\n             5      G      9.429370E-02   3.781954E-02   0.0            0.0            0.0           -5.449356E-01                  \r\n             6      G     -9.414382E-02  -3.938472E-02   0.0            0.0            0.0            3.053449E-01                  \r\n             7      G     -4.382861E-02  -3.667103E-02   0.0            0.0            0.0           -8.010556E-01                  \r\n             8      G      5.345270E-03   3.587535E-03   0.0            0.0            0.0            1.000000E+00                  \r\n             9      G      2.990630E-02   2.430152E-02   0.0            0.0            0.0           -5.617539E-01                  \r\n            10      G      2.064585E-02   5.542045E-03   0.0            0.0            0.0            7.556299E-01                  \r\n            11      G     -3.258572E-02  -5.366122E-02   0.0            0.0            0.0           -5.813008E-01                  \r\n            12      G      4.213659E-02   5.776031E-02   0.0            0.0            0.0            5.341025E-02                  \r\n            13      G     -2.118915E-02  -3.725390E-02   0.0            0.0            0.0            7.875460E-01                  \r\n            14      G     -1.185010E-02  -3.698484E-02   0.0            0.0            0.0           -5.031782E-01                  \r\n            15      G      9.795603E-03   9.884554E-02   0.0            0.0            0.0           -2.379803E-02                  \r\n            16      G      3.787396E-03  -7.401022E-03   0.0            0.0            0.0            2.479520E-01                  \r\n            17      G     -1.365503E-02   0.0            0.0            0.0            0.0           -8.171623E-01                  \r\n            18      G      1.388472E-03   0.0            0.0            0.0            0.0            2.378805E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.217618E+07    (CYCLIC FREQUENCY =  2.347833E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         24\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -5.019812E-03   0.0            0.0            0.0            1.827151E-01                  \r\n             2      G      0.0            3.112553E-03   0.0            0.0            0.0           -5.293785E-01                  \r\n             3      G     -5.213214E-02  -1.083145E-02   0.0            0.0            0.0            9.046907E-01                  \r\n             4      G      4.285168E-03   4.617852E-03   0.0            0.0            0.0           -7.472562E-01                  \r\n             5      G      3.954001E-02   1.734378E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             6      G      1.672632E-03   1.690572E-03   0.0            0.0            0.0           -8.370885E-01                  \r\n             7      G      2.680980E-02   1.148826E-02   0.0            0.0            0.0            2.414088E-01                  \r\n             8      G     -2.504288E-02  -1.592353E-02   0.0            0.0            0.0           -5.410938E-01                  \r\n             9      G     -2.045512E-02  -2.295117E-02   0.0            0.0            0.0            3.149854E-01                  \r\n            10      G     -7.113110E-03  -6.493937E-03   0.0            0.0            0.0           -2.564448E-01                  \r\n            11      G      2.013019E-03   5.061319E-03   0.0            0.0            0.0            6.252480E-01                  \r\n            12      G      9.250824E-03   1.959045E-02   0.0            0.0            0.0           -4.414684E-01                  \r\n            13      G      1.286030E-02   2.446576E-02   0.0            0.0            0.0            3.735097E-01                  \r\n            14      G     -4.442502E-03  -1.365315E-02   0.0            0.0            0.0           -5.828649E-01                  \r\n            15      G      2.434385E-03   7.254926E-03   0.0            0.0            0.0            2.381630E-02                  \r\n            16      G     -6.261670E-03  -3.705767E-02   0.0            0.0            0.0           -5.285481E-02                  \r\n            17      G     -3.695319E-03   0.0            0.0            0.0            0.0            2.599898E-03                  \r\n            18      G     -2.916319E-03   0.0            0.0            0.0            0.0            2.057214E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.337930E+07    (CYCLIC FREQUENCY =  2.925723E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         25\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            4.904684E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             2      G      0.0            1.311864E-01   0.0            0.0            0.0           -5.615481E-01                  \r\n             3      G      3.848193E-02   1.421093E-04   0.0            0.0            0.0            6.120048E-02                  \r\n             4      G     -5.563680E-02   6.973462E-02   0.0            0.0            0.0            1.598889E-02                  \r\n             5      G      1.121404E-02  -1.233675E-01   0.0            0.0            0.0            1.618258E-02                  \r\n             6      G     -7.173613E-03  -3.914959E-03   0.0            0.0            0.0            8.749572E-02                  \r\n             7      G      1.235863E-01  -9.347244E-02   0.0            0.0            0.0           -2.457853E-01                  \r\n             8      G      3.992196E-02  -5.509943E-03   0.0            0.0            0.0           -5.037362E-02                  \r\n             9      G      4.913897E-02  -6.311754E-02   0.0            0.0            0.0           -5.249950E-01                  \r\n            10      G     -4.872219E-02   6.917641E-02   0.0            0.0            0.0           -2.075837E-01                  \r\n            11      G     -3.563253E-02  -4.125509E-02   0.0            0.0            0.0            3.262766E-01                  \r\n            12      G     -1.450529E-01   3.078431E-02   0.0            0.0            0.0            3.404969E-01                  \r\n            13      G      1.513368E-03   1.626483E-02   0.0            0.0            0.0            4.180804E-01                  \r\n            14      G     -1.249759E-01   1.004203E-01   0.0            0.0            0.0            6.178392E-01                  \r\n            15      G      1.239290E-01  -1.664983E-02   0.0            0.0            0.0           -7.366379E-02                  \r\n            16      G     -7.600737E-02   5.336131E-02   0.0            0.0            0.0           -3.263422E-01                  \r\n            17      G      2.376319E-01   0.0            0.0            0.0            0.0           -3.305171E-01                  \r\n            18      G     -1.209612E-03   0.0            0.0            0.0            0.0           -6.193898E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.378073E+07    (CYCLIC FREQUENCY =  3.094624E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         26\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            1.438172E-01   0.0            0.0            0.0            1.000000E+00                  \r\n             2      G      0.0           -1.383269E-01   0.0            0.0            0.0           -5.805678E-01                  \r\n             3      G      2.514647E-02   1.396348E-01   0.0            0.0            0.0            7.749102E-02                  \r\n             4      G      1.801882E-02  -1.354128E-01   0.0            0.0            0.0           -1.603501E-01                  \r\n             5      G     -7.610769E-02   7.623267E-02   0.0            0.0            0.0            7.706849E-02                  \r\n             6      G      3.935407E-02  -9.862430E-02   0.0            0.0            0.0           -8.865640E-02                  \r\n             7      G     -3.045652E-02   7.950126E-02   0.0            0.0            0.0            6.931782E-02                  \r\n             8      G      5.587149E-02  -5.676528E-02   0.0            0.0            0.0            6.977551E-02                  \r\n             9      G     -4.061788E-02   1.006378E-02   0.0            0.0            0.0           -1.716513E-01                  \r\n            10      G      3.169246E-02   5.030515E-04   0.0            0.0            0.0           -3.992353E-02                  \r\n            11      G     -2.579434E-02  -2.057293E-02   0.0            0.0            0.0            1.771608E-01                  \r\n            12      G      2.145563E-02  -3.105558E-02   0.0            0.0            0.0            5.384135E-02                  \r\n            13      G      6.876895E-04   1.867251E-04   0.0            0.0            0.0            8.215211E-02                  \r\n            14      G     -2.157815E-03   4.727187E-02   0.0            0.0            0.0            1.712440E-01                  \r\n            15      G      4.738265E-02  -3.067874E-02   0.0            0.0            0.0            7.975996E-02                  \r\n            16      G     -6.803244E-02   2.954710E-02   0.0            0.0            0.0           -1.918197E-01                  \r\n            17      G      1.109316E-01   0.0            0.0            0.0            0.0            1.158327E-01                  \r\n            18      G     -6.252280E-02   0.0            0.0            0.0            0.0           -1.710514E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.571834E+07    (CYCLIC FREQUENCY =  3.805881E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         27\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -6.555416E-02   0.0            0.0            0.0            7.080632E-01                  \r\n             2      G      0.0           -3.483012E-02   0.0            0.0            0.0            1.000000E+00                  \r\n             3      G      8.195019E-02   9.332635E-04   0.0            0.0            0.0            2.736642E-01                  \r\n             4      G      8.710062E-02   2.205751E-02   0.0            0.0            0.0            2.799255E-01                  \r\n             5      G      3.539782E-02   7.428082E-02   0.0            0.0            0.0           -7.412059E-01                  \r\n             6      G      3.176091E-02   5.436600E-02   0.0            0.0            0.0           -7.399773E-01                  \r\n             7      G     -6.727316E-02  -1.217390E-02   0.0            0.0            0.0           -7.282311E-01                  \r\n             8      G     -4.809498E-02  -3.175561E-02   0.0            0.0            0.0           -7.617958E-01                  \r\n             9      G     -3.098870E-02  -7.660427E-02   0.0            0.0            0.0            1.431498E-01                  \r\n            10      G     -8.031639E-03  -9.711184E-02   0.0            0.0            0.0            8.537432E-02                  \r\n            11      G      5.407592E-03  -1.405719E-02   0.0            0.0            0.0            7.447642E-01                  \r\n            12      G     -1.065603E-02   7.473582E-03   0.0            0.0            0.0            7.804128E-01                  \r\n            13      G      1.628484E-02   5.688581E-02   0.0            0.0            0.0            4.011762E-01                  \r\n            14      G     -2.372972E-02   7.074666E-02   0.0            0.0            0.0            4.036725E-01                  \r\n            15      G      1.670857E-02   5.131457E-02   0.0            0.0            0.0           -4.889504E-01                  \r\n            16      G      4.715198E-03   4.694119E-02   0.0            0.0            0.0           -4.120600E-01                  \r\n            17      G      1.337976E-02   0.0            0.0            0.0            0.0           -8.538974E-01                  \r\n            18      G      2.366182E-02   0.0            0.0            0.0            0.0           -7.810042E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.817001E+07    (CYCLIC FREQUENCY =  4.549161E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         28\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0           -1.240588E-01   0.0            0.0            0.0            9.634864E-01                  \r\n             2      G      0.0           -2.277335E-02   0.0            0.0            0.0            7.659667E-01                  \r\n             3      G      6.283390E-02   3.184974E-02   0.0            0.0            0.0            5.258089E-01                  \r\n             4      G      3.127934E-02   4.486299E-02   0.0            0.0            0.0            5.450770E-01                  \r\n             5      G      4.451809E-03   9.419473E-02   0.0            0.0            0.0           -7.713561E-02                  \r\n             6      G      3.079568E-02   2.214468E-02   0.0            0.0            0.0           -1.288096E-01                  \r\n             7      G      3.622530E-02  -1.367164E-02   0.0            0.0            0.0           -6.397517E-01                  \r\n             8      G      7.917430E-02  -6.966471E-02   0.0            0.0            0.0           -6.543939E-01                  \r\n             9      G      1.551330E-02  -8.755369E-03   0.0            0.0            0.0           -8.792543E-01                  \r\n            10      G     -3.946207E-02   6.296684E-02   0.0            0.0            0.0           -7.983139E-01                  \r\n            11      G     -3.029547E-02  -3.427879E-02   0.0            0.0            0.0           -5.277839E-01                  \r\n            12      G     -6.284352E-02  -2.550134E-02   0.0            0.0            0.0           -5.327125E-01                  \r\n            13      G     -1.738163E-02  -5.136554E-02   0.0            0.0            0.0            1.991128E-01                  \r\n            14      G      2.378358E-02  -7.305844E-02   0.0            0.0            0.0            1.942263E-01                  \r\n            15      G     -1.298033E-02  -2.320697E-02   0.0            0.0            0.0            8.253684E-01                  \r\n            16      G      1.216887E-02  -2.398375E-02   0.0            0.0            0.0            7.461016E-01                  \r\n            17      G     -1.646592E-02   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -2.659759E-02   0.0            0.0            0.0            0.0            9.338990E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.109718E+08    (CYCLIC FREQUENCY =  5.271807E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         29\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.306864E-01   0.0            0.0            0.0            9.074771E-01                  \r\n             2      G      0.0            1.500047E-01   0.0            0.0            0.0           -1.420328E-01                  \r\n             3      G      7.494743E-02  -4.255546E-01   0.0            0.0            0.0           -1.311725E-01                  \r\n             4      G      6.124309E-02  -2.898491E-01   0.0            0.0            0.0           -2.025004E-02                  \r\n             5      G     -2.116179E-02   3.676016E-02   0.0            0.0            0.0            3.335792E-01                  \r\n             6      G     -2.214274E-01   4.726125E-01   0.0            0.0            0.0            5.477368E-01                  \r\n             7      G     -4.528701E-02   1.035470E-01   0.0            0.0            0.0            5.299209E-01                  \r\n             8      G      1.911004E-01  -3.593395E-01   0.0            0.0            0.0            3.009409E-01                  \r\n             9      G     -3.606528E-02  -2.550558E-03   0.0            0.0            0.0            4.412903E-01                  \r\n            10      G     -2.264526E-02   6.098498E-02   0.0            0.0            0.0            5.558437E-01                  \r\n            11      G      6.642874E-02  -7.025607E-02   0.0            0.0            0.0            6.819184E-01                  \r\n            12      G     -9.737381E-02   3.810512E-02   0.0            0.0            0.0            7.162649E-01                  \r\n            13      G     -3.203722E-02   1.959370E-02   0.0            0.0            0.0            8.135302E-01                  \r\n            14      G     -2.617797E-02   2.559471E-03   0.0            0.0            0.0            8.732265E-01                  \r\n            15      G      4.556058E-02  -4.038391E-03   0.0            0.0            0.0            8.755918E-01                  \r\n            16      G      1.144764E-01  -2.319191E-02   0.0            0.0            0.0            6.187912E-01                  \r\n            17      G     -1.407236E-01   0.0            0.0            0.0            0.0            1.000000E+00                  \r\n            18      G     -5.802941E-02   0.0            0.0            0.0            0.0            7.277485E-01                  \r\n1     FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL             /    95 SUN SOLARIS NASTRAN    / MAY 18, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T13-02-2A                                                                                            \r\n0     NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                                               SUBCASE  3             \r\n      EIGENVALUE =  0.140761E+08    (CYCLIC FREQUENCY =  5.971198E+02 HZ)\r\n\r\n                                         R E A L   E I G E N V E C T O R   N O .         30\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            6.165289E-01   0.0            0.0            0.0            6.196898E-01                  \r\n             2      G      0.0           -6.060836E-01   0.0            0.0            0.0            6.974009E-01                  \r\n             3      G      6.350111E-02  -5.218132E-01   0.0            0.0            0.0            5.027527E-01                  \r\n             4      G     -7.426060E-02   5.191436E-01   0.0            0.0            0.0            1.000000E+00                  \r\n             5      G     -7.740908E-02   3.239703E-01   0.0            0.0            0.0            7.424201E-01                  \r\n             6      G      1.190608E-01  -3.010810E-01   0.0            0.0            0.0            4.450397E-01                  \r\n             7      G      2.787450E-02  -1.012868E-01   0.0            0.0            0.0            3.910620E-01                  \r\n             8      G     -1.823312E-02   7.760706E-02   0.0            0.0            0.0            4.444542E-01                  \r\n             9      G      5.200273E-02  -4.583009E-02   0.0            0.0            0.0            5.746799E-01                  \r\n            10      G     -1.235368E-01   7.961313E-02   0.0            0.0            0.0            5.946550E-01                  \r\n            11      G     -6.951255E-02   6.206733E-02   0.0            0.0            0.0            5.530833E-01                  \r\n            12      G      1.604146E-01  -1.001038E-01   0.0            0.0            0.0            4.700455E-01                  \r\n            13      G      2.793421E-02  -1.494810E-02   0.0            0.0            0.0            4.960886E-01                  \r\n            14      G     -5.897827E-02   3.197725E-02   0.0            0.0            0.0            4.851473E-01                  \r\n            15      G     -3.634839E-02   1.980999E-02   0.0            0.0            0.0            3.274574E-01                  \r\n            16      G     -1.039602E-02   1.539380E-02   0.0            0.0            0.0            5.089122E-01                  \r\n            17      G      1.076792E-01   0.0            0.0            0.0            0.0            1.346582E-01                  \r\n            18      G     -2.968676E-02   0.0            0.0            0.0            0.0            4.079057E-01                  \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL          \r\n DATE:  5/18/95\r\n END TIME: 10:59: 5\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t16011a.out",
    "content": "     NASTRAN FILES = PLT2                                                            \r\n\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T16011A,NASTRAN                                                           \r\n     APP   DISPLACEMENT                                                              \r\n     SOL   16                                                                        \r\n     DIAG  14                                                                        \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                   \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T16-01-1A                                   \r\n                  3      SPC    = 500                                                                    \r\n                  4      MPC    = 600                                                                    \r\n                  5      LOAD   = 1                                                                      \r\n                  6      DISP   = ALL                                                                    \r\n                  7      SPCF   = ALL                                                                    \r\n                  8      OLOAD  = ALL                                                                    \r\n                  9      STRESS = ALL                                                                    \r\n                 10      FORCE  = ALL                                                                    \r\n                 11      SUBCASE 1                                                                       \r\n                 12      LABEL  = LINEAR SOLUTION OF ROTOR BLADE                                         \r\n                 13      SUBCASE 2                                                                       \r\n                 14      LABEL  = NONLINEAR SOLUTION OF ROTOR BLADE                                      \r\n                 15      GPFORCE= ALL                                                                    \r\n                 16      OUTPUT(PLOT)                                                                    \r\n                 17      PLOTTER NASTPLT D,0                                                             \r\n                 18      PAPER SIZE 10.0 X 10.0                                                          \r\n                 19      SET 1  = ALL                                                                    \r\n                 20      ORTHOGRAPHIC PROJECTION                                                         \r\n                 21      MAXIMUM DEFORMATION 0.5                                                         \r\n                 22      AXES X,Y,Z                                                                      \r\n                 23      VIEW 0.0,0.0,0.0                                                                \r\n                 24      FIND SCALE, ORIGIN 1, SET 1                                                     \r\n                 25      PLOT SET 1, ORIGIN 1, LABEL                                                     \r\n                 26      AXES Y,Z,X                                                                      \r\n                 27      FIND SCALE, ORIGIN 2, SET 1                                                     \r\n                 28      PLOT SET 1, ORIGIN 2, LABEL                                                     \r\n                 29      AXES Z,X,Y                                                                      \r\n                 30      FIND SCALE, ORIGIN 3, SET 1                                                     \r\n                 31      PLOT SET 1, ORIGIN 3, LABEL                                                     \r\n                 32      AXES X,Y,Z                                                                      \r\n                 33      VIEW 34.27,23.17,0.0                                                            \r\n                 34      FIND SCALE, ORIGIN 4, SET 1                                                     \r\n                 35      PLOT STATIC DEFORMATION 0,   SET 1, ORIGIN 4, LABEL                             \r\n                 36      AXES Z,X,Y                                                                      \r\n                 37      VIEW 0.0,0.0,0.0                                                                \r\n                 38      FIND SCALE, ORIGIN 5, SET 1                                                     \r\n                 39      PLOT STATIC DEFORMATION 0,   SET 1, ORIGIN 5, LABEL                             \r\n                 40      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   510, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        CHEXA1  201     1       101     103     104     108     113     115     +CH1    \r\n                    2-        +CH1    116     120                                                             \r\n                    3-        CHEXA1  202     1       108     104     105     107     120     116     +CH2    \r\n                    4-        +CH2    117     119                                                             \r\n                    5-        CHEXA1  203     1       121     123     124     128     101     103     +CH3    \r\n                    6-        +CH3    104     108                                                             \r\n                    7-        CHEXA1  204     1       128     124     125     127     108     104     +CH4    \r\n                    8-        +CH4    105     107                                                             \r\n                    9-        CORD2C  1               0.      0.      0.      1.0     0.      0.      +CD1    \r\n                   10-        +CD1    0.      0.      1.                                                      \r\n                   11-        CTRIA2  1       2000    1       5       4                                       \r\n                   12-        CTRIA2  2       2000    1       2       5                                       \r\n                   13-        CTRIA2  3       2005    2       6       5                                       \r\n                   14-        CTRIA2  4       2005    2       3       6                                       \r\n                   15-        CTRIA2  5       2010    4       8       7                                       \r\n                   16-        CTRIA2  6       2010    4       5       8                                       \r\n                   17-        CTRIA2  7       2015    5       9       8                                       \r\n                   18-        CTRIA2  8       2015    5       6       9                                       \r\n                   19-        CTRIA2  9       2020    7       11      10                                      \r\n                   20-        CTRIA2  10      2020    7       8       11                                      \r\n                   21-        CTRIA2  11      2025    8       12      11                                      \r\n                   22-        CTRIA2  12      2025    8       9       12                                      \r\n                   23-        DTI     ALGDB   0       135     0       0       0       0       0       +AL    0\r\n                   24-        +AL    0ENDREC                                                          +AL    1\r\n                   25-        DTI     ALGDB   1       NASA LEWIS EXPERIMENTAL FAN                     +AL    2\r\n                   26-        +AL    2                        ENDREC                                  +AL    3\r\n                   27-        DTI     ALGDB   2       1       1       0       0       0       0       +AL    4\r\n                   28-        +AL    40       0       0       0       0       0       0       0       +AL    5\r\n                   29-        +AL    50       0       0       0       0       0       0       0       +AL    6\r\n                   30-        +AL    60       0       ENDREC                                          +AL    7\r\n                   31-        DTI     ALGDB   3       GRID GENERATION                                 +AL    8\r\n                   32-        +AL    8                        ENDREC                                  +AL    9\r\n                   33-        DTI     ALGDB   4       4       5       3       4       30      43      +AL   10\r\n                   34-        +AL   102       0       2       1       0       3       0       0       +AL   11\r\n                   35-        +AL   112       4       1       0       0       0       0       0       +AL   12\r\n                   36-        +AL   120       0       ENDREC                                          +AL   13\r\n                   37-        DTI*    ALGDB           5               0.438399982E01  0.999999905E01  +AL   14\r\n                   38-        *AL   140.999999940E00  0               0.109999990E02  0               +AL   15\r\n                   39-        +AL   15ENDREC                                                          +AL   16\r\n                   40-        DTI     ALGDB   6       2       0       0       0       0       0       +AL   17\r\n                   41-        +AL   170       0       0       0       0       0       0       0       +AL   18\r\n                   42-        +AL   180       0       0       0       0       0       0       0       +AL   19\r\n                   43-        +AL   190       0       ENDREC                                          +AL   20\r\n                   44-        DTI*    ALGDB           7               -0.199999905E01 0.359999943E01  +AL   21\r\n                   45-        *AL   210               0               0               0               +AL   22\r\n                   46-        +AL   22ENDREC                                                          +AL   23\r\n                   47-        DTI*    ALGDB           8               -0.199999905E01 0.100400000E02  +AL   24\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        *AL   240               0               0               0               +AL   25\r\n                   49-        +AL   25ENDREC                                                          +AL   26\r\n                   50-        DTI*    ALGDB           9               0.359999943E01  0               +AL   27\r\n                   51-        *AL   270               0               0               0               +AL   28\r\n                   52-        +AL   28ENDREC                                                          +AL   29\r\n                   53-        DTI*    ALGDB           10              0.549999905E01  0               +AL   30\r\n                   54-        *AL   300               0               0               0               +AL   31\r\n                   55-        +AL   31ENDREC                                                          +AL   32\r\n                   56-        DTI*    ALGDB           11              0.739999962E01  0               +AL   33\r\n                   57-        *AL   330               0               0               0               +AL   34\r\n                   58-        +AL   34ENDREC                                                          +AL   35\r\n                   59-        DTI*    ALGDB           12              0.100400000E02  0               +AL   36\r\n                   60-        *AL   360               0               0               0               +AL   37\r\n                   61-        +AL   37ENDREC                                                          +AL   38\r\n                   62-        DTI     ALGDB   13      4       1       ENDREC                          +AL   39\r\n                   63-        DTI*    ALGDB           14              -0.898070633E00 0.378958511E01  +AL   40\r\n                   64-        *AL   40ENDREC                                                          +AL   41\r\n                   65-        DTI*    ALGDB           15              -0.765281737E00 0.547675800E01  +AL   42\r\n                   66-        *AL   42ENDREC                                                          +AL   43\r\n                   67-        DTI*    ALGDB           16              -0.638598502E00 0.736359024E01  +AL   44\r\n                   68-        *AL   44ENDREC                                                          +AL   45\r\n                   69-        DTI*    ALGDB           17              -0.405804217E00 0.995540905E01  +AL   46\r\n                   70-        *AL   46ENDREC                                                          +AL   47\r\n                   71-        DTI*    ALGDB           18              0.378958511E01  0               +AL   48\r\n                   72-        *AL   48ENDREC                                                          +AL   49\r\n                   73-        DTI*    ALGDB           19              0.547675800E01  0               +AL   50\r\n                   74-        *AL   50ENDREC                                                          +AL   51\r\n                   75-        DTI*    ALGDB           20              0.736359024E01  0               +AL   52\r\n                   76-        *AL   52ENDREC                                                          +AL   53\r\n                   77-        DTI*    ALGDB           21              0.995540905E01  0               +AL   54\r\n                   78-        *AL   54ENDREC                                                          +AL   55\r\n                   79-        DTI     ALGDB   22      4       1       ENDREC                          +AL   56\r\n                   80-        DTI*    ALGDB           23              -0.707454019E-040.399898529E01  +AL   57\r\n                   81-        *AL   57ENDREC                                                          +AL   58\r\n                   82-        DTI*    ALGDB           24              -0.459544128E-030.549857426E01  +AL   59\r\n                   83-        *AL   59ENDREC                                                          +AL   60\r\n                   84-        DTI*    ALGDB           25              -0.911400467E-020.739762974E01  +AL   61\r\n                   85-        *AL   61ENDREC                                                          +AL   62\r\n                   86-        DTI*    ALGDB           26              -0.106336363E-010.999707603E01  +AL   63\r\n                   87-        *AL   63ENDREC                                                          +AL   64\r\n                   88-        DTI*    ALGDB           27              0.399898529E01  0               +AL   65\r\n                   89-        *AL   65ENDREC                                                          +AL   66\r\n                   90-        DTI*    ALGDB           28              0.549857426E01  0               +AL   67\r\n                   91-        *AL   67ENDREC                                                          +AL   68\r\n                   92-        DTI*    ALGDB           29              0.739762974E01  0               +AL   69\r\n                   93-        *AL   69ENDREC                                                          +AL   70\r\n                   94-        DTI*    ALGDB           30              0.999707603E01  0               +AL   71\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        *AL   71ENDREC                                                          +AL   72\r\n                   96-        DTI     ALGDB   31      4       1       ENDREC                          +AL   73\r\n                   97-        DTI*    ALGDB           32              0.897929192E00  0.419198513E01  +AL   74\r\n                   98-        *AL   74ENDREC                                                          +AL   75\r\n                   99-        DTI*    ALGDB           33              0.779861093E00  0.549377537E01  +AL   76\r\n                  100-        *AL   76ENDREC                                                          +AL   77\r\n                  101-        DTI*    ALGDB           34              0.623993874E00  0.736712265E01  +AL   78\r\n                  102-        *AL   78ENDREC                                                          +AL   79\r\n                  103-        DTI*    ALGDB           35              0.413974285E00  0.996370506E01  +AL   80\r\n                  104-        *AL   80ENDREC                                                          +AL   81\r\n                  105-        DTI*    ALGDB           36              0.419198513E01  0               +AL   82\r\n                  106-        *AL   82ENDREC                                                          +AL   83\r\n                  107-        DTI*    ALGDB           37              0.549377537E01  0               +AL   84\r\n                  108-        *AL   84ENDREC                                                          +AL   85\r\n                  109-        DTI*    ALGDB           38              0.736712265E01  0               +AL   86\r\n                  110-        *AL   86ENDREC                                                          +AL   87\r\n                  111-        DTI*    ALGDB           39              0.996370506E01  0               +AL   88\r\n                  112-        *AL   88ENDREC                                                          +AL   89\r\n                  113-        DTI     ALGDB   40      2       0       0       0       0       0       +AL   90\r\n                  114-        +AL   900       0       0       0       0       0       0       0       +AL   91\r\n                  115-        +AL   910       0       0       0       0       0       0       0       +AL   92\r\n                  116-        +AL   920       0       ENDREC                                          +AL   93\r\n                  117-        DTI*    ALGDB           41              0.199999905E01  0.439999962E01  +AL   94\r\n                  118-        *AL   940               0               0               0               +AL   95\r\n                  119-        +AL   95ENDREC                                                          +AL   96\r\n                  120-        DTI*    ALGDB           42              0.199999905E01  0.100400000E02  +AL   97\r\n                  121-        *AL   970               0               0               0               +AL   98\r\n                  122-        +AL   98ENDREC                                                          +AL   99\r\n                  123-        DTI*    ALGDB           43              0.439999962E01  0               +AL  100\r\n                  124-        *AL  1000               0               0               0               +AL  101\r\n                  125-        +AL  101ENDREC                                                          +AL  102\r\n                  126-        DTI*    ALGDB           44              0.549999905E01  0               +AL  103\r\n                  127-        *AL  1030               0               0               0               +AL  104\r\n                  128-        +AL  104ENDREC                                                          +AL  105\r\n                  129-        DTI*    ALGDB           45              0.739999962E01  0               +AL  106\r\n                  130-        *AL  1060               0               0               0               +AL  107\r\n                  131-        +AL  107ENDREC                                                          +AL  108\r\n                  132-        DTI*    ALGDB           46              0.100400000E02  0               +AL  109\r\n                  133-        *AL  1090               0               0               0               +AL  110\r\n                  134-        +AL  110ENDREC                                                          +AL  111\r\n                  135-        DTI*    ALGDB           47              0.999999940E00  -0.381756897E02 +AL  112\r\n                  136-        *AL  1120.329245758E02  0               0               0.161499977E-01 +AL  113\r\n                  137-        +AL  113ENDREC                                                          +AL  114\r\n                  138-        DTI*    ALGDB           48              0.979999900E-01 0.155899972E-01 +AL  115\r\n                  139-        *AL  1150.559999943E00  0.179599857E01  0.471492521E-01 -0.222556889E-01+AL  116\r\n                  140-        +AL  116ENDREC                                                          +AL  117\r\n                  141-        DTI*    ALGDB           49              0.199999905E01  -0.437350769E02 +AL  118\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  142-        *AL  118-0.468236637E 010               0               0.124260001E-01 +AL  119\r\n                  143-        +AL  119ENDREC                                                          +AL  120\r\n                  144-        DTI*    ALGDB           50              0.734763145E-01 0.135056563E-01 +AL  121\r\n                  145-        *AL  1210.539999962E00  0.185159492E01  0.676045194E-02 -0.272210650E-01+AL  122\r\n                  146-        +AL  122ENDREC                                                          +AL  123\r\n                  147-        DTI*    ALGDB           51              0.299999905E01  -0.524065857E02 +AL  124\r\n                  148-        *AL  124-0.400783386E 020               0               0.912010297E-02 +AL  125\r\n                  149-        +AL  125ENDREC                                                          +AL  126\r\n                  150-        DTI*    ALGDB           52              0.360004082E-01 0.966010615E-02 +AL  127\r\n                  151-        *AL  1270.489999950E00  0.186397648E01  -0.834399834E-020.131941922E-01 +AL  128\r\n                  152-        +AL  128ENDREC                                                          +AL  129\r\n                  153-        DTI*    ALGDB           53              0.399999905E01  -0.724938965E02 +AL  130\r\n                  154-        *AL  130-0.592066498E 020               0               0.482162833E-02 +AL  131\r\n                  155-        +AL  131ENDREC                                                          +AL  132\r\n                  156-        DTI*    ALGDB           54              0.268090703E-01 0.429144874E-02 +AL  133\r\n                  157-        *AL  1330.479999959E00  0.186236858E01  -0.373036265E-010.498055629E-01 +AL  134\r\n                  158-        +AL  134ENDREC                                                          +AL  135\r\n                  159-        DTI     ALGDB   55      1       5       1       2       2       4       +AL  136\r\n                  160-        +AL  1360       0       0       0       0       0       0       0       +AL  137\r\n                  161-        +AL  1370       0       0       0       0       0       0       0       +AL  138\r\n                  162-        +AL  1380       0       ENDREC                                          +AL  139\r\n                  163-        DTI*    ALGDB           56              0.999999940E00  0.160427969E05  +AL  140\r\n                  164-        *AL  1400               0               0               0               +AL  141\r\n                  165-        +AL  141ENDREC                                                          +AL  142\r\n                  166-        DTI     ALGDB   57      0       0       10      0       0       0       +AL  143\r\n                  167-        +AL  1430       0       0       0       0       0       0       0       +AL  144\r\n                  168-        +AL  1440       0       0       0       0       0       0       0       +AL  145\r\n                  169-        +AL  1450       0       ENDREC                                          +AL  146\r\n                  170-        DTI     ALGDB   58      1       0       0       4       -1      -1      +AL  147\r\n                  171-        +AL  1470       1       0       0       0       0       0       -43     +AL  148\r\n                  172-        +AL  1480       0       0       0       0       0       0       0       +AL  149\r\n                  173-        +AL  1490       0       ENDREC                                          +AL  150\r\n                  174-        DTI     ALGDB   59      0       0       0       0       0       0       +AL  151\r\n                  175-        +AL  1510       0       0       0       0       0       0       0       +AL  152\r\n                  176-        +AL  1520       0       0       0       0       0       0       0       +AL  153\r\n                  177-        +AL  1530       0       ENDREC                                          +AL  154\r\n                  178-        DTI     ALGDB   60      8       0       0       1       -2      -2      +AL  155\r\n                  179-        +AL  155-1      0       0       2       0       0       20      -43     +AL  156\r\n                  180-        +AL  1560       0       0       0       0       0       0       0       +AL  157\r\n                  181-        +AL  1570       0       ENDREC                                          +AL  158\r\n                  182-        DTI*    ALGDB           61              0.419999981E01  0.499999970E-01 +AL  159\r\n                  183-        *AL  1590               0               0               0               +AL  160\r\n                  184-        +AL  160ENDREC                                                          +AL  161\r\n                  185-        DTI*    ALGDB           62              0.461999989E01  0.499999970E-01 +AL  162\r\n                  186-        *AL  1620               0               0               0               +AL  163\r\n                  187-        +AL  163ENDREC                                                          +AL  164\r\n                  188-        DTI*    ALGDB           63              0.549999905E01  0.499999970E-01 +AL  165\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  189-        *AL  1650               0               0               0               +AL  166\r\n                  190-        +AL  166ENDREC                                                          +AL  167\r\n                  191-        DTI*    ALGDB           64              0.649999905E01  0.499999970E-01 +AL  168\r\n                  192-        *AL  1680               0               0               0               +AL  169\r\n                  193-        +AL  169ENDREC                                                          +AL  170\r\n                  194-        DTI*    ALGDB           65              0.739999962E01  0.499999970E-01 +AL  171\r\n                  195-        *AL  1710               0               0               0               +AL  172\r\n                  196-        +AL  172ENDREC                                                          +AL  173\r\n                  197-        DTI*    ALGDB           66              0.839999962E01  0.499999970E-01 +AL  174\r\n                  198-        *AL  1740               0               0               0               +AL  175\r\n                  199-        +AL  175ENDREC                                                          +AL  176\r\n                  200-        DTI*    ALGDB           67              0.949999905E01  0.499999970E-01 +AL  177\r\n                  201-        *AL  1770               0               0               0               +AL  178\r\n                  202-        +AL  178ENDREC                                                          +AL  179\r\n                  203-        DTI*    ALGDB           68              0.999999905E01  0.499999970E-01 +AL  180\r\n                  204-        *AL  1800               0               0               0               +AL  181\r\n                  205-        +AL  181ENDREC                                                          +AL  182\r\n                  206-        DTI     ALGDB   69      0       0       0       0       0       0       +AL  183\r\n                  207-        +AL  1830       0       0       0       0       0       0       0       +AL  184\r\n                  208-        +AL  1840       0       0       0       0       0       0       0       +AL  185\r\n                  209-        +AL  1850       0       ENDREC                                          +AL  186\r\n                  210-        DTI     ALGDB   70      0       0       0       0       0       0       +AL  187\r\n                  211-        +AL  1870       0       0       0       0       0       0       0       +AL  188\r\n                  212-        +AL  1880       0       0       0       0       0       0       0       +AL  189\r\n                  213-        +AL  1890       0       ENDREC                                          +AL  190\r\n                  214-        DTI*    ALGDB           71              0.249999940E00  0.249999940E00  +AL  191\r\n                  215-        *AL  1910               0               0               0               +AL  192\r\n                  216-        +AL  192ENDREC                                                          +AL  193\r\n                  217-        DTI*    ALGDB           72              0.499999940E00  0.499999940E00  +AL  194\r\n                  218-        *AL  1940               0               0               0               +AL  195\r\n                  219-        +AL  195ENDREC                                                          +AL  196\r\n                  220-        DTI*    ALGDB           73              0.749999940E00  0.749999940E00  +AL  197\r\n                  221-        *AL  1970               0               0               0               +AL  198\r\n                  222-        +AL  198ENDREC                                                          +AL  199\r\n                  223-        DTI*    ALGDB           74              0.999999940E00  0.999999940E00  +AL  200\r\n                  224-        *AL  2000               0               0               0               +AL  201\r\n                  225-        +AL  201ENDREC                                                          +AL  202\r\n                  226-        DTI*    ALGDB           75              0               0               +AL  203\r\n                  227-        *AL  2030.499999940E00  0               0               0               +AL  204\r\n                  228-        +AL  2040       0       0       0       0       0       0       0       +AL  205\r\n                  229-        +AL  2050       0       0       0       0       0       0       0       +AL  206\r\n                  230-        +AL  2060       0       ENDREC                                          +AL  207\r\n                  231-        DTI     ALGDB   76      AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE        +AL  208\r\n                  232-        +AL  208                        ENDREC                                  +AL  209\r\n                  233-        DTI     ALGDB   77      0       0       0       0       0       0       +AL  210\r\n                  234-        +AL  2100       0       0       0       0       0       0       0       +AL  211\r\n                  235-        +AL  2110       0       0       0       0       0       0       0       +AL  212\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  236-        +AL  2120       0       ENDREC                                          +AL  213\r\n                  237-        DTI     ALGDB   78      7       4       0       40      0       0       +AL  214\r\n                  238-        +AL  2140       1       1       0       0       0       0       0       +AL  215\r\n                  239-        +AL  2150       3       0       0       3       5       1       0       +AL  216\r\n                  240-        +AL  2160       0       ENDREC                                          +AL  217\r\n                  241-        DTI     ALGDB   79      3       4       5       0       0       0       +AL  218\r\n                  242-        +AL  2180       0       0       0       0       0       0       0       +AL  219\r\n                  243-        +AL  2190       0       0       0       0       0       0       0       +AL  220\r\n                  244-        +AL  2200       0       ENDREC                                          +AL  221\r\n                  245-        DTI*    ALGDB           80              0               0               +AL  222\r\n                  246-        *AL  2220               0.999999931E-03 0               0               +AL  223\r\n                  247-        +AL  2230       0       0       0       0       0       0       0       +AL  224\r\n                  248-        +AL  2240       0       0       0       0       0       0       0       +AL  225\r\n                  249-        +AL  2250       0       ENDREC                                          +AL  226\r\n                  250-        DTI*    ALGDB           81              0.999999940E00  0.999999940E00  +AL  227\r\n                  251-        *AL  2270.399999905E01  0               0.699999988E00  0.799999905E01  +AL  228\r\n                  252-        +AL  228ENDREC                                                          +AL  229\r\n                  253-        DTI     ALGDB   82      0       0       0       0       0       0       +AL  230\r\n                  254-        +AL  2300       0       0       0       0       0       0       0       +AL  231\r\n                  255-        +AL  2310       0       0       0       0       0       0       0       +AL  232\r\n                  256-        +AL  2320       0       ENDREC                                          +AL  233\r\n                  257-        DTI*    ALGDB           83              0.731459961E02  0.999999940E00  +AL  234\r\n                  258-        *AL  2340               0               0               0               +AL  235\r\n                  259-        +AL  235ENDREC                                                          +AL  236\r\n                  260-        DTI     ALGDB   84      2       0       0       0       0       0       +AL  237\r\n                  261-        +AL  2370       0       0       0       0       0       0       0       +AL  238\r\n                  262-        +AL  2380       0       0       0       0       0       0       0       +AL  239\r\n                  263-        +AL  2390       0       ENDREC                                          +AL  240\r\n                  264-        DTI*    ALGDB           85              -0.399999905E01 0.324999905E01  +AL  241\r\n                  265-        *AL  2410               0               0               0               +AL  242\r\n                  266-        +AL  242ENDREC                                                          +AL  243\r\n                  267-        DTI*    ALGDB           86              -0.399999905E01 0.100400000E02  +AL  244\r\n                  268-        *AL  2440               0               0               0               +AL  245\r\n                  269-        +AL  245ENDREC                                                          +AL  246\r\n                  270-        DTI     ALGDB   87      2       0       0       0       0       0       +AL  247\r\n                  271-        +AL  2470       0       0       0       0       0       0       0       +AL  248\r\n                  272-        +AL  2480       0       0       0       0       0       0       0       +AL  249\r\n                  273-        +AL  2490       0       ENDREC                                          +AL  250\r\n                  274-        DTI*    ALGDB           88              -0.199999905E01 0.359999943E01  +AL  251\r\n                  275-        *AL  2510               0               0               0               +AL  252\r\n                  276-        +AL  252ENDREC                                                          +AL  253\r\n                  277-        DTI*    ALGDB           89              -0.199999905E01 0.100400000E02  +AL  254\r\n                  278-        *AL  2540               0               0               0               +AL  255\r\n                  279-        +AL  255ENDREC                                                          +AL  256\r\n                  280-        DTI     ALGDB   90      4       ENDREC                                  +AL  257\r\n                  281-        DTI*    ALGDB           91              -0.898070633E00 0.378958511E01  +AL  258\r\n                  282-        *AL  258ENDREC                                                          +AL  259\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  283-        DTI*    ALGDB           92              -0.765281737E00 0.547675800E01  +AL  260\r\n                  284-        *AL  260ENDREC                                                          +AL  261\r\n                  285-        DTI*    ALGDB           93              -0.638598502E00 0.736359024E01  +AL  262\r\n                  286-        *AL  262ENDREC                                                          +AL  263\r\n                  287-        DTI*    ALGDB           94              -0.405804217E00 0.995540905E01  +AL  264\r\n                  288-        *AL  264ENDREC                                                          +AL  265\r\n                  289-        DTI     ALGDB   95      4       ENDREC                                  +AL  266\r\n                  290-        DTI*    ALGDB           96              -0.707454019E-040.399898529E01  +AL  267\r\n                  291-        *AL  267ENDREC                                                          +AL  268\r\n                  292-        DTI*    ALGDB           97              -0.459544128E-030.549857426E01  +AL  269\r\n                  293-        *AL  269ENDREC                                                          +AL  270\r\n                  294-        DTI*    ALGDB           98              -0.911400467E-020.739762974E01  +AL  271\r\n                  295-        *AL  271ENDREC                                                          +AL  272\r\n                  296-        DTI*    ALGDB           99              -0.106336363E-010.999707603E01  +AL  273\r\n                  297-        *AL  273ENDREC                                                          +AL  274\r\n                  298-        DTI     ALGDB   100     4       ENDREC                                  +AL  275\r\n                  299-        DTI*    ALGDB           101             0.897929192E00  0.419198513E01  +AL  276\r\n                  300-        *AL  276ENDREC                                                          +AL  277\r\n                  301-        DTI*    ALGDB           102             0.779861093E00  0.549377537E01  +AL  278\r\n                  302-        *AL  278ENDREC                                                          +AL  279\r\n                  303-        DTI*    ALGDB           103             0.623993874E00  0.736712265E01  +AL  280\r\n                  304-        *AL  280ENDREC                                                          +AL  281\r\n                  305-        DTI*    ALGDB           104             0.413974285E00  0.996370506E01  +AL  282\r\n                  306-        *AL  282ENDREC                                                          +AL  283\r\n                  307-        DTI     ALGDB   105     2       0       0       0       0       0       +AL  284\r\n                  308-        +AL  2840       0       0       0       0       0       0       0       +AL  285\r\n                  309-        +AL  2850       0       0       0       0       0       0       0       +AL  286\r\n                  310-        +AL  2860       0       ENDREC                                          +AL  287\r\n                  311-        DTI*    ALGDB           106             0.199999905E01  0.439999962E01  +AL  288\r\n                  312-        *AL  2880               0               0               0               +AL  289\r\n                  313-        +AL  289ENDREC                                                          +AL  290\r\n                  314-        DTI*    ALGDB           107             0.199999905E01  0.100400000E02  +AL  291\r\n                  315-        *AL  2910               0               0               0               +AL  292\r\n                  316-        +AL  292ENDREC                                                          +AL  293\r\n                  317-        DTI     ALGDB   108     2       0       0       0       0       0       +AL  294\r\n                  318-        +AL  2940       0       0       0       0       0       0       0       +AL  295\r\n                  319-        +AL  2950       0       0       0       0       0       0       0       +AL  296\r\n                  320-        +AL  2960       0       ENDREC                                          +AL  297\r\n                  321-        DTI*    ALGDB           109             0.399999905E01  0.474999905E01  +AL  298\r\n                  322-        *AL  2980               0               0               0               +AL  299\r\n                  323-        +AL  299ENDREC                                                          +AL  300\r\n                  324-        DTI*    ALGDB           110             0.399999905E01  0.100400000E02  +AL  301\r\n                  325-        *AL  3010               0               0               0               +AL  302\r\n                  326-        +AL  302ENDREC                                                          +AL  303\r\n                  327-        DTI     ALGDB   111     1       0       0       0       0       0       +AL  304\r\n                  328-        +AL  3040       0       0       0       0       0       0       0       +AL  305\r\n                  329-        +AL  3050       0       0       0       0       0       0       0       +AL  306\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  330-        +AL  3060       0       ENDREC                                          +AL  307\r\n                  331-        DTI*    ALGDB           112             0.324999905E01  0.146999998E02  +AL  308\r\n                  332-        *AL  3080.518699951E03  0               0               0               +AL  309\r\n                  333-        +AL  309ENDREC                                                          +AL  310\r\n                  334-        DTI     ALGDB   113     0       0       0       0       0       0       +AL  311\r\n                  335-        +AL  3110       0       0       0       0       0       0       0       +AL  312\r\n                  336-        +AL  3120       0       0       0       0       0       0       0       +AL  313\r\n                  337-        +AL  3130       0       ENDREC                                          +AL  314\r\n                  338-        DTI*    ALGDB           114             0.399999905E01  0               +AL  315\r\n                  339-        *AL  3150               0               0               0               +AL  316\r\n                  340-        +AL  316ENDREC                                                          +AL  317\r\n                  341-        DTI*    ALGDB           115             0.999999905E01  0.999999940E00  +AL  318\r\n                  342-        *AL  3180               0               0               0               +AL  319\r\n                  343-        +AL  319ENDREC                                                          +AL  320\r\n                  344-        DTI     ALGDB   116     0       0       0       0       0       0       +AL  321\r\n                  345-        +AL  3210       0       0       0       0       0       0       0       +AL  322\r\n                  346-        +AL  3220       0       0       0       0       0       0       0       +AL  323\r\n                  347-        +AL  3230       0       ENDREC                                          +AL  324\r\n                  348-        DTI     ALGDB   117     0       0       0       0       0       0       +AL  325\r\n                  349-        +AL  3250       0       0       0       0       0       0       0       +AL  326\r\n                  350-        +AL  3260       0       0       0       0       0       0       0       +AL  327\r\n                  351-        +AL  3270       0       ENDREC                                          +AL  328\r\n                  352-        DTI     ALGDB   118     0       0       0       0       0       0       +AL  329\r\n                  353-        +AL  3290       0       0       0       0       0       0       0       +AL  330\r\n                  354-        +AL  3300       0       0       0       0       0       0       0       +AL  331\r\n                  355-        +AL  3310       0       ENDREC                                          +AL  332\r\n                  356-        DTI     ALGDB   119     0       0       0       0       0       0       +AL  333\r\n                  357-        +AL  3330       0       0       0       0       0       0       0       +AL  334\r\n                  358-        +AL  3340       0       0       0       0       0       0       0       +AL  335\r\n                  359-        +AL  3350       0       ENDREC                                          +AL  336\r\n                  360-        DTI     ALGDB   120     0       0       0       0       0       0       +AL  337\r\n                  361-        +AL  3370       0       0       0       0       0       0       0       +AL  338\r\n                  362-        +AL  3380       0       0       0       0       0       0       0       +AL  339\r\n                  363-        +AL  3390       0       ENDREC                                          +AL  340\r\n                  364-        DTI     ALGDB   121     0       0       0       0       0       0       +AL  341\r\n                  365-        +AL  3410       0       0       0       0       0       0       0       +AL  342\r\n                  366-        +AL  3420       0       0       0       0       0       0       0       +AL  343\r\n                  367-        +AL  3430       0       ENDREC                                          +AL  344\r\n                  368-        DTI     ALGDB   122     0       0       0       0       0       0       +AL  345\r\n                  369-        +AL  3450       0       0       0       0       0       0       0       +AL  346\r\n                  370-        +AL  3460       0       0       0       0       0       0       0       +AL  347\r\n                  371-        +AL  3470       0       ENDREC                                          +AL  348\r\n                  372-        DTI     ALGDB   123     0       0       0       0       0       0       +AL  349\r\n                  373-        +AL  3490       0       0       0       0       0       0       0       +AL  350\r\n                  374-        +AL  3500       0       0       0       0       0       0       0       +AL  351\r\n                  375-        +AL  3510       0       ENDREC                                          +AL  352\r\n                  376-        DTI     ALGDB   124     0       0       0       0       0       0       +AL  353\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  377-        +AL  3530       0       0       0       0       0       0       0       +AL  354\r\n                  378-        +AL  3540       0       0       0       0       0       0       0       +AL  355\r\n                  379-        +AL  3550       0       ENDREC                                          +AL  356\r\n                  380-        DTI     ALGDB   125     6       0       0       0       0       0       +AL  357\r\n                  381-        +AL  3570       0       0       0       0       0       0       0       +AL  358\r\n                  382-        +AL  3580       0       0       0       0       0       0       0       +AL  359\r\n                  383-        +AL  3590       0       ENDREC                                          +AL  360\r\n                  384-        DTI*    ALGDB           126             0               0.599999726E-02 +AL  361\r\n                  385-        *AL  3610.599999726E-02 0.599999726E-02 0               0               +AL  362\r\n                  386-        +AL  3620       0       0       0       0       0       0       0       +AL  363\r\n                  387-        +AL  3630       0       0       0       0       0       0       0       +AL  364\r\n                  388-        +AL  3640       0       ENDREC                                          +AL  365\r\n                  389-        DTI*    ALGDB           127             0.199999988E00  0.699999928E-02 +AL  366\r\n                  390-        *AL  3660.699999928E-02 0.699999928E-02 0               0               +AL  367\r\n                  391-        +AL  367ENDREC                                                          +AL  368\r\n                  392-        DTI*    ALGDB           128             0.399999976E00  0.139999986E-01 +AL  369\r\n                  393-        *AL  3690.139999986E-01 0.139999986E-01 0               0               +AL  370\r\n                  394-        +AL  370ENDREC                                                          +AL  371\r\n                  395-        DTI*    ALGDB           129             0.599999964E00  0.299999975E-01 +AL  372\r\n                  396-        *AL  3720.309999995E-01 0.309999995E-01 0               0               +AL  373\r\n                  397-        +AL  373ENDREC                                                          +AL  374\r\n                  398-        DTI*    ALGDB           130             0.799999952E00  0.599999987E-01 +AL  375\r\n                  399-        *AL  3750.599999987E-01 0.599999987E-01 0               0               +AL  376\r\n                  400-        +AL  376ENDREC                                                          +AL  377\r\n                  401-        DTI*    ALGDB           131             0.999999940E00  0.124999940E00  +AL  378\r\n                  402-        *AL  3780.124999940E00  0.124999940E00  0               0               +AL  379\r\n                  403-        +AL  379ENDREC                                                          +AL  380\r\n                  404-        DTI     ALGDB   132     2       1       0       0       0       0       +AL  381\r\n                  405-        +AL  3810       0       0       0       0       0       0       0       +AL  382\r\n                  406-        +AL  3820       0       0       0       0       0       0       0       +AL  383\r\n                  407-        +AL  3830       0       ENDREC                                          +AL  384\r\n                  408-        DTI     ALGDB   133     0       0       0       0       0       0       +AL  385\r\n                  409-        +AL  3850       0       0       0       0       0       0       0       +AL  386\r\n                  410-        +AL  3860       0       0       0       0       0       0       0       +AL  387\r\n                  411-        +AL  3870       0       ENDREC                                          +AL  388\r\n                  412-        DTI     ALGDB   134     0       0       0       0       0       0       +AL  389\r\n                  413-        +AL  3890       0       0       0       0       0       0       0       +AL  390\r\n                  414-        +AL  3900       0       0       0       0       0       0       0       +AL  391\r\n                  415-        +AL  3910       0       ENDREC                                          +AL  392\r\n                  416-        DTI*    ALGDB           135             0.999999940E00  0               +AL  393\r\n                  417-        *AL  3930               0               0               0               +AL  394\r\n                  418-        +AL  394ENDREC                                                          +AL  395\r\n                  419-        GRID    1               -0.8981 -0.2755 3.7796                                  \r\n                  420-        GRID    2               -0.0001 0.0540  3.9986                                  \r\n                  421-        GRID    3               0.8979  -0.2464 4.1847                                  \r\n                  422-        GRID    4               -0.7653 -0.4830 5.4554                                  \r\n                  423-        GRID    5               -0.0005 0.0209  5.4985                                  \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  424-        GRID    6               0.7799  0.2307  5.4889                                  \r\n                  425-        GRID    7               -0.6386 -0.7217 7.3281                                  \r\n                  426-        GRID    8               -0.0091 0.0155  7.3976                                  \r\n                  427-        GRID    9               0.6240  0.6123  7.3416                                  \r\n                  428-        GRID    10              -0.4058 -1.1351 9.8905                                  \r\n                  429-        GRID    11              -0.0106 -0.0236 9.9970                                  \r\n                  430-        GRID    12              0.4140  0.8134  9.9304                                  \r\n                  431-        GRID    101     1       2.375   4.186   -0.987  1                               \r\n                  432-        GRID    103     1       2.375   4.186   0.987   1                               \r\n                  433-        GRID    104     1       2.375   0.0     0.987   1                               \r\n                  434-        GRID    105     1       2.375   -4.186  0.987   1                               \r\n                  435-        GRID    107     1       2.375   -4.186  -0.987  1                               \r\n                  436-        GRID    108     1       2.375   0.0     -0.987  1                               \r\n                  437-        GRID    113     1       3.982   4.186   -0.987  1                               \r\n                  438-        GRID    115     1       4.539   4.186   0.987   1                               \r\n                  439-        GRID    116     1       4.539   0.0     0.987                                   \r\n                  440-        GRID    117     1       4.539   -4.186  0.987   1                               \r\n                  441-        GRID    119     1       3.982   -4.186  -0.987  1                               \r\n                  442-        GRID    120     1       3.982   0.0     -0.987                                  \r\n                  443-        GRID    121     1       0.905   4.186   -0.987  1                               \r\n                  444-        GRID    123     1       0.905   4.186   0.987   1                               \r\n                  445-        GRID    124     1       0.905   0.0     0.987   1                               \r\n                  446-        GRID    125     1       0.905   -4.186  0.987   1                               \r\n                  447-        GRID    127     1       0.905   -4.186  -0.987  1                               \r\n                  448-        GRID    128     1       0.905   0.0     -0.987  1                               \r\n                  449-        MAT1    1       31.0E6          0.3     7.300E-4                                \r\n                  450-        MPC     600     1       1       1.0     2       1       -1.0                    \r\n                  451-        MPC     600     1       2       1.0     2       2       -1.0                    \r\n                  452-        MPC     600     1       3       1.0     2       3       -1.0                    \r\n                  453-        MPC     600     1       4       1.0     2       4       -1.0                    \r\n                  454-        MPC     600     1       5       1.0     2       5       -1.0                    \r\n                  455-        MPC     600     1       6       1.0     2       6       -1.0                    \r\n                  456-        MPC     600     3       1       1.0     2       1       -1.0                    \r\n                  457-        MPC     600     3       2       1.0     2       2       -1.0                    \r\n                  458-        MPC     600     3       3       1.0     2       3       -1.0                    \r\n                  459-        MPC     600     3       4       1.0     2       4       -1.0                    \r\n                  460-        MPC     600     3       5       1.0     2       5       -1.0                    \r\n                  461-        MPC     600     3       6       1.0     2       6       -1.0                    \r\n                  462-        MPC     600     101     1       1.0     107     1       -1.0                    \r\n                  463-        MPC     600     101     2       1.0     107     2       -1.0                    \r\n                  464-        MPC     600     101     3       1.0     107     3       -1.0                    \r\n                  465-        MPC     600     103     2       1.0     105     2       -1.0                    \r\n                  466-        MPC     600     103     3       1.0     105     3       -1.0                    \r\n                  467-        MPC     600     103     1       1.0     105     1       -1.0                    \r\n                  468-        MPC     600     113     1       1.0     119     1       -1.0                    \r\n                  469-        MPC     600     113     2       1.0     119     2       -1.0                    \r\n                  470-        MPC     600     113     3       1.0     119     3       -1.0                    \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                  471-        MPC     600     115     1       1.0     117     1       -1.0                    \r\n                  472-        MPC     600     115     2       1.0     117     2       -1.0                    \r\n                  473-        MPC     600     115     3       1.0     117     3       -1.0                    \r\n                  474-        MPC     600     116     1       1.0     2       1       -1.0                    \r\n                  475-        MPC     600     116     2       1.0     2       2       -1.0                    \r\n                  476-        MPC     600     116     3       1.0     2       3       -1.0                    \r\n                  477-        MPC     600     120     3       1.0     2       3       -1.0                    \r\n                  478-        MPC     600     120     1       1.0     2       1       -1.0                    \r\n                  479-        MPC     600     120     2       1.0     2       2       -1.0                    \r\n                  480-        MPC     600     121     1       1.0     127     1       -1.0                    \r\n                  481-        MPC     600     123     1       1.0     125     1       -1.0                    \r\n                  482-        PARAM   APRESS  1                                                               \r\n                  483-        PARAM   ATEMP   1                                                               \r\n                  484-        PARAM   FXCOOR  1.0                                                             \r\n                  485-        PARAM   FYCOOR  1.0                                                             \r\n                  486-        PARAM   FZCOOR  1.0                                                             \r\n                  487-        PARAM   IPRTCF  1                                                               \r\n                  488-        PARAM   IPRTCI  1                                                               \r\n                  489-        PARAM   IPRTCL  0                                                               \r\n                  490-        PARAM   KTOUT   -1                                                              \r\n                  491-        PARAM   PGEOM   1                                                               \r\n                  492-        PARAM   SIGN    +1.0                                                            \r\n                  493-        PARAM   STREAML 2                                                               \r\n                  494-        PARAM   ZORIGN  0.0                                                             \r\n                  495-        PTRIA2  2000    1       0.1040  0.                                              \r\n                  496-        PTRIA2  2005    1       0.1040  0.                                              \r\n                  497-        PTRIA2  2010    1       0.0707  0.                                              \r\n                  498-        PTRIA2  2015    1       0.0707  0.                                              \r\n                  499-        PTRIA2  2020    1       0.0422  0.                                              \r\n                  500-        PTRIA2  2025    1       0.0422  0.                                              \r\n                  501-        RFORCE  1       0       0       267.367 1.0     0.0     0.0                     \r\n                  502-        SPC1    500     23      121     123     124     125     127     128             \r\n                  503-        SPC1    500     45      7       10      12                                      \r\n                  504-        SPC1    500     456     101     103     104     105     107     108             \r\n                  505-        SPC1    500     456     113     115     116     117     119     120             \r\n                  506-        SPC1    500     456     121     123     124     125     127     128             \r\n                  507-        STREAML11       1       THRU    3                                               \r\n                  508-        STREAML12       4       THRU    6                                               \r\n                  509-        STREAML13       7       THRU    9                                               \r\n                  510-        STREAML14       10      THRU    12                                              \r\n                              ENDDATA\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  NOREF   NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1995 $ \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       4  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N,     \r\n                   NOGPDT/MINUS1=-1 $                                             \r\n\r\n       5  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       6  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       7  COND     ERROR3,NOGPDT $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PARAMR   //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $                              \r\n\r\n      12  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      13  COND     P1,JUMPPLOT $                                                  \r\n\r\n      14  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N, \r\n                   JUMPPLOT $                                                     \r\n\r\n      15  PRTMSG   PLTSETX// $                                                    \r\n\r\n      16  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      17  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      18  COND     P1,JUMPPLOT $                                                  \r\n\r\n      19  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/     \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $                 \r\n\r\n      20  PRTMSG   PLOTX1// $                                                     \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  LABEL    P1 $                                                           \r\n\r\n      22  GP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $                       \r\n\r\n      23  PARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $                           \r\n\r\n      24  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n\r\n      25  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      26  COND     ERROR1,NOSIMP $                                                \r\n\r\n      27  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      28  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,             \r\n                   CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,    \r\n                   CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/                               \r\n                   C,Y,VOLUME/C,Y,SURFACE $                                       \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  LABEL    JMPKGG $                                                       \r\n\r\n      32  COND     JMPMGG,NOMGG $                                                 \r\n\r\n      33  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      34  PURGE    MDICT,MELM/MINUS1 $                                            \r\n\r\n      35  LABEL    JMPMGG $                                                       \r\n\r\n      36  COND     LBL1,GRDPNT $                                                  \r\n\r\n      37  COND     ERROR4,NOMGG $                                                 \r\n\r\n      38  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $            \r\n\r\n      39  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      40  LABEL    LBL1 $                                                         \r\n\r\n      41  EQUIV    KGGX,KGG/NOGENL $                                              \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  COND     LBL11,NOGENL $                                                 \r\n\r\n      43  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      44  LABEL    LBL11 $                                                        \r\n\r\n      45  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      46  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      47  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      48  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      49  COND     ERROR5,NOL $                                                   \r\n\r\n      50  COND     LBL4D,REACT $                                                  \r\n\r\n      51  JUMP     ERROR2 $                                                       \r\n\r\n      52  LABEL    LBL4D $                                                        \r\n\r\n      53  PURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/    \r\n                   PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $                               \r\n\r\n      54  EQUIV    KGG,KNN/MPCF1 $                                                \r\n\r\n      55  COND     LBL2,MPCF2 $                                                   \r\n\r\n      56  MCE1     USET,RG/GM $                                                   \r\n\r\n      57  MCE2     USET,GM,KGG,,,/KNN,,, $                                        \r\n\r\n      58  LABEL    LBL2 $                                                         \r\n\r\n      59  EQUIV    KNN,KFF/SINGLE $                                               \r\n\r\n      60  COND     LBL3,SINGLE $                                                  \r\n\r\n      61  SCE1     USET,KNN,,,/KFF,KFS,KSS,,, $                                   \r\n\r\n      62  LABEL    LBL3 $                                                         \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      63  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      64  COND     LBL5,OMIT $                                                    \r\n\r\n      65  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      66  LABEL    LBL5 $                                                         \r\n\r\n      67  RBMG2    KAA/LLL $                                                      \r\n\r\n      68  SSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/     \r\n                   PGNA,,,,/LUSET/1/COMPS $                                       \r\n\r\n      69  PARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $                           \r\n\r\n      70  COND     NOAL,ALOAD $                                                   \r\n\r\n      71  ALG      CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y,       \r\n                   ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $                             \r\n\r\n      72  COND     FINIS,IFAIL $                                                  \r\n\r\n      73  PARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $                           \r\n\r\n      74  COND     NOAL,ALOAD $                                                   \r\n\r\n      75  GP3      GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $                     \r\n\r\n      76  SSG1     SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT,      \r\n                   PCOMPS/PGA1,,,,/LUSET/1/COMPS $                                \r\n\r\n      77  ADD      PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $                             \r\n\r\n      78  LABEL    NOAL $                                                         \r\n\r\n      79  EQUIV    PGNA,PG/ALOAD $                                                \r\n\r\n      80  EQUIV    PG,PL/NOSET $                                                  \r\n\r\n      81  COND     LBL10,NOSET $                                                  \r\n\r\n      82  SSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $                              \r\n\r\n      83  LABEL    LBL10 $                                                        \r\n\r\n      84  SSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/     \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   1/S,N,EPSI $                                                   \r\n\r\n      85  COND     LBL9,IRES $                                                    \r\n\r\n      86  MATGPR   GPL,USET,SIL,RULV//*L* $                                       \r\n\r\n      87  MATGPR   GPL,USET,SIL,RUOV//*O* $                                       \r\n\r\n      88  LABEL    LBL9 $                                                         \r\n\r\n      89  SDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $       \r\n\r\n      90  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, \r\n                   PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/            \r\n                   *DS0*////COMPS $                                               \r\n\r\n      91  OFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $                       \r\n\r\n      92  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $                                  \r\n\r\n      93  COND     P2,JUMPPLOT $                                                  \r\n\r\n      94  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      95  PRTMSG   PLOTX2// $                                                     \r\n\r\n      96  LABEL    P2 $                                                           \r\n\r\n      97  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/     \r\n                   NOSIMP/0/NOGENL/GENEL $                                        \r\n\r\n      98  DSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/           \r\n                   DSCOSET$                                                       \r\n\r\n      99  COND     NOAL0,ALOAD $                                                  \r\n\r\n     100  EQUIV    PGNA,PG $                                                      \r\n\r\n     101  LABEL    NOAL0 $                                                        \r\n\r\n     102  PARAM    //*ADD*/SHIFT/-1/0 $                                           \r\n\r\n     103  PARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $                              \r\n\r\n     104  PARAMR   //*ADD*/DSEPSI/0.0/0.0 $                                       \r\n\r\n     105  PARAML   YS//*NULL*////NOYS $                                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     106  LABEL    OUTLPTOP $                                                     \r\n\r\n     107  EQUIV    PG,PG1/NOYS $                                                  \r\n\r\n     108  PARAM    //*KLOCK*/TO $                                                 \r\n\r\n     109  EQUIV    KDGG,KDNN/MPCF2 $                                              \r\n\r\n     110  COND     LBL2D,MPCF2 $                                                  \r\n\r\n     111  MCE2     USET,GM,KDGG,,,/KDNN,,, $                                      \r\n\r\n     112  LABEL    LBL2D $                                                        \r\n\r\n     113  EQUIV    KDNN,KDFF/SINGLE $                                             \r\n\r\n     114  COND     LBL3D,SINGLE $                                                 \r\n\r\n     115  SCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $                               \r\n\r\n     116  LABEL    LBL3D $                                                        \r\n\r\n     117  EQUIV    KDFF,KDAA/OMIT $                                               \r\n\r\n     118  COND     LBL5D,OMIT $                                                   \r\n\r\n     119  SMP2     USET,GO,KDFF/KDAA $                                            \r\n\r\n     120  LABEL    LBL5D $                                                        \r\n\r\n     121  ADD      KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $                                \r\n\r\n     122  ADD      KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $                                \r\n\r\n     123  ADD      KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $                                \r\n\r\n     124  COND     PGOK,NOYS $                                                    \r\n\r\n     125  MPYAD    KBSS,YS,/PSS/0 $                                               \r\n\r\n     126  MPYAD    KBFS,YS,/PFS/0 $                                               \r\n\r\n     127  UMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $                                  \r\n\r\n     128  EQUIV    PN,PGX/MPCF2 $                                                 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     129  COND     LBL6D,MPCF2 $                                                  \r\n\r\n     130  UMERGE   USET,PN,/PGX/*G*/*N*/*M* $                                     \r\n\r\n     131  LABEL    LBL6D $                                                        \r\n\r\n     132  ADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $                              \r\n\r\n     133  EQUIV    PGG,PG1/ALWAYS $                                               \r\n\r\n     134  LABEL    PGOK $                                                         \r\n\r\n     135  ADD      PG1,/PG0/(1.0,0.0) $                                           \r\n\r\n     136  COPY     UGV/AUGV $                                                     \r\n\r\n     137  RBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $                                  \r\n\r\n     138  PRTPARM  //0/*DET* $                                                    \r\n\r\n     139  PRTPARM  //0/*POWER* $                                                  \r\n\r\n     140  LABEL    INLPTOP $                                                      \r\n\r\n     141  PARAM    //*KLOCK*/TI $                                                 \r\n\r\n     142  COND     NOAL1,ALOAD $                                                  \r\n\r\n     143  ALG      CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y,    \r\n                   APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V,        \r\n                   Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $                    \r\n\r\n     144  COND     DONE,IFAIL $                                                   \r\n\r\n     145  PARAM    //*MPY*/V,Y,IPRTCL/0 $                                         \r\n\r\n     146  PARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $                           \r\n\r\n     147  COND     NOAL1,ALOAD $                                                  \r\n\r\n     148  GP3      GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $            \r\n\r\n     149  SSG1     SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/  \r\n                   PGA,,,,/LUSET/1/COMPS $ $                                      \r\n\r\n     150  ADD      PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $                              \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     151  LABEL    NOAL1 $                                                        \r\n\r\n     152  EQUIV    PG1,PG2/ALOAD $                                                \r\n\r\n     153  SSG2     USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $                         \r\n\r\n     154  SSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,          \r\n                   EPSI $                                                         \r\n\r\n     155  COND     LBL9D,IRES $                                                   \r\n\r\n     156  MATGPR   GPL,USET,SIL,RUBLV//*L* $                                      \r\n\r\n     157  LABEL    LBL9D $                                                        \r\n\r\n     158  SDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $        \r\n\r\n     159  COND     NOAL2,ALOAD $                                                  \r\n\r\n     160  EQUIV    UBGV,AUGV $                                                    \r\n\r\n     161  LABEL    NOAL2 $                                                        \r\n\r\n     162  ADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $                           \r\n\r\n     163  DSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N,     \r\n                   DSCOSET $                                                      \r\n\r\n     164  MPYAD    DKDGG,UBGV,PG0/PGI1/0 $                                        \r\n\r\n     165  ADD      PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $                            \r\n\r\n     166  DSCHK    PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/           \r\n                   TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $               \r\n\r\n     167  COND     DONE,DONE $                                                    \r\n\r\n     168  COND     SHIFT,SHIFT $                                                  \r\n\r\n     169  EQUIV    PG,PG1/NEVER $                                                 \r\n\r\n     170  EQUIV    PGI1,PG1/ALWAYS $                                              \r\n\r\n     171  EQUIV    PG1,PGI1/NEVER $                                               \r\n\r\n     172  REPT     INLPTOP,1000 $                                                 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     173  TABPT    PGI1,PG1,PG,,// $                                              \r\n\r\n     174  LABEL    SHIFT $                                                        \r\n\r\n     175  ADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $                        \r\n\r\n     176  EQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $                            \r\n\r\n     177  EQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $                              \r\n\r\n     178  REPT     OUTLPTOP,1000 $                                                \r\n\r\n     179  TABPT    KDGG1,KDGG,UGV,,// $                                           \r\n\r\n     180  LABEL    DONE $                                                         \r\n\r\n     181  PARAM    //*NOP*/V,Y,KTOUT=-1 $                                         \r\n\r\n     182  COND     JMPKTOUT,KTOUT $                                               \r\n\r\n     183  ADD      KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $                              \r\n\r\n     184  OUTPUT1  KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $                   \r\n\r\n     185  OUTPUT1, ,,,,//-3/0 $                                                   \r\n\r\n     186  LABEL    JMPKTOUT $                                                     \r\n\r\n     187  ALG      CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/        \r\n                   -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/     \r\n                   V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $                  \r\n\r\n     188  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, \r\n                   PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/         \r\n                   *DS1*////COMPS $                                               \r\n\r\n     189  OFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $                       \r\n\r\n     190  OFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $                                \r\n\r\n     191  SDR1     USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/        \r\n                   1/*DS1* $                                                      \r\n\r\n     192  GPFDR    CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1,     \r\n                   OGPFB1/*STATICS* $                                             \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     193  PURGE    KDICT,KELM/MINUS1 $                                            \r\n\r\n     194  OFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $                                \r\n\r\n     195  COND     P3,JUMPPLOT $                                                  \r\n\r\n     196  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,    \r\n                   OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/         \r\n                   S,N,PFILE $                                                    \r\n\r\n     197  PRTMSG   PLOTX3// $                                                     \r\n\r\n     198  LABEL    P3 $                                                           \r\n\r\n     199  JUMP     FINIS $                                                        \r\n\r\n     200  LABEL    ERROR1 $                                                       \r\n\r\n     201  PRTPARM  //-1/*ASTA* $                                                  \r\n\r\n     202  LABEL    ERROR2 $                                                       \r\n\r\n     203  PRTPARM  //-2/*ASTA* $                                                  \r\n\r\n     204  LABEL    ERROR3 $                                                       \r\n\r\n     205  PRTPARM  //-3/*ASTA* $                                                  \r\n\r\n     206  LABEL    ERROR4 $                                                       \r\n\r\n     207  PRTPARM  //-4/*ASTA* $                                                  \r\n\r\n     208  LABEL    ERROR5 $                                                       \r\n\r\n     209  PRTPARM  //-5/*ASTA* $                                                  \r\n\r\n     210  LABEL    FINIS $                                                        \r\n\r\n     211  PURGE    DUMMY/MINUS1 $                                                 \r\n\r\n     212  END      $                                                              \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           18\r\n                                        PROFILE            206\r\n                                        MAX WAVEFRONT       16\r\n                                        AVG WAVEFRONT    6.867\r\n                                        RMS WAVEFRONT    8.091\r\n                                        RMS BANDWIDTH    8.343\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH           14\r\n                                        PROFILE            159\r\n                                        MAX WAVEFRONT       10\r\n                                        AVG WAVEFRONT    5.300\r\n                                        RMS WAVEFRONT    5.913\r\n                                        RMS BANDWIDTH    6.348\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       18        14\r\n                                        PROFILE (P)                        206       159\r\n                                        MAXIMUM WAVEFRONT (C-MAX)           16        10\r\n                                        AVERAGE WAVEFRONT (C-AVG)        6.867     5.300\r\n                                        RMS WAVEFRONT (C-RMS)            8.091     5.913\r\n                                        RMS BANDWITCH (B-RMS)            8.343     6.348\r\n                                        NUMBER OF GRID POINTS (N)                     30\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                16\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           2\r\n                                        MAXIMUM NODAL DEGREE                          17\r\n                                        MINIMUM NODAL DEGREE                           2\r\n                                        NUMBER OF UNIQUE EDGES                       112\r\n                                        MATRIX DENSITY, PERCENT                   28.222\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n                                        NO. OF SEQGP CARDS GENERATED                   8\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n\r\n\r\n                                   S Y S T E M  G E N E R A T E D  S E Q G P  C A R D S\r\n\r\n                         SEQGP          1       4       2       2       3       1       4       7\r\n                         SEQGP          5       5       6       3       7      10       8       8\r\n                         SEQGP          9       6      10      12      11      11      12       9\r\n                         SEQGP        101      23     103      24     104      25     105      19\r\n                         SEQGP        107      20     108      26     113      13     115      14\r\n                         SEQGP        116      15     117      17     119      18     120      16\r\n                         SEQGP        121      30     123      29     124      28     125      21\r\n                         SEQGP        127      22     128      27\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = COMPLEX \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      SIGN     =  0.100000E+01  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      CSIGN    = ( 0.100000E+01, 0.000000E+00)   (OUTPUT)\r\n0*** USER INFORMATION MESSAGE, PLOT FILE GOES TO PLT2\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 7.574033E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        1  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      1  USED IN THIS PLOT                                                   \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Y,+Z,+X, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 7.721819E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        2  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      2  USED IN THIS PLOT                                                   \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n          ORIGIN       3   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n                                                 PLOT        3  UNDEFORMED SHAPE                                                    \r\n                                                 ORIGIN      3  USED IN THIS PLOT                                                   \r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION HEXA1    ELEMENTS (ELEMENT TYPE  41) STARTING WITH ID      201\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION TRIA2    ELEMENTS (ELEMENT TYPE  17) STARTING WITH ID        1\r\n1\r\n                                        ALG MODULE - COMPRESSOR DESIGN - CONTROL SECTION\r\n                                        ************************************************\r\n\r\n          TITLE = NASA LEWIS EXPERIMENTAL FAN                                             \r\n          NUMBER OF ANALYTIC MEALINE BLADEROWS =   1\r\n          THERE WILL BE AN ENTRY TO THE AERODYNAMIC SECTION\r\n1                               PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEANLINE BLADE SECTION\r\n                                *****************************************************************\r\n\r\n          TITLE                         =GRID GENERATION                                                         \r\n          NUMBER OF STREAMSURFACES      =  4\r\n          NUMBER OF STATIONS            =  5\r\n          NUMBER OF CONSTANT-Z PLANES   =  3\r\n          NUMBER OF BLADE DATA POINTS   =  4\r\n          NUMBER OF POINTS ON SURFACES  = 30\r\n          NUMBER OF BLADES IN BLADE ROW = 43\r\n          ISTAK                         =  2\r\n          IPUNCH                        =  0\r\n          ISECN                         =  2\r\n          IFCORD                        =  1\r\n          IFPLOT                        =  0\r\n          IPRINT                        =  3\r\n          ISPLIT                        =  0\r\n          INAST                         =  0\r\n          IRLE                          =  2\r\n          IRTE                          =  4\r\n          NSIGN                         =  1\r\n\r\n          ZINNER                        =  4.3840\r\n          ZOUTER                        = 10.0000\r\n          SCALE                         =  1.0000\r\n          STACKX                        =  0.0000\r\n          PLTSZE                        = 11.0000\r\n\r\n                    STREAMSURFACE GEOMETRY SPECIFICATION\r\n\r\n          COMPUTING STATION  1     NUMBER OF DESCRIBING POINTS=  2      IFANGS( 1)=  0\r\n\r\n      DESCRIPTION         STREAMLINE     RADII\r\n      X         R           NUMBER\r\n\r\n\r\n    -2.0000    3.6000         1           3.6000\r\n    -2.0000   10.0400         2           5.5000\r\n                              3           7.4000\r\n                              4          10.0400\r\n\r\n          COMPUTING STATION  2     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 2)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII\r\n      X         R           NUMBER\r\n\r\n\r\n    -0.8981    3.7896         1           3.7896\r\n    -0.7653    5.4768         2           5.4768\r\n    -0.6386    7.3636         3           7.3636\r\n    -0.4058    9.9554         4           9.9554\r\n1\r\n\r\n          COMPUTING STATION  3     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 3)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII\r\n      X         R           NUMBER\r\n\r\n\r\n    -0.0001    3.9990         1           3.9990\r\n    -0.0005    5.4986         2           5.4986\r\n    -0.0091    7.3976         3           7.3976\r\n    -0.0106    9.9971         4           9.9971\r\n\r\n          COMPUTING STATION  4     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 4)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII\r\n      X         R           NUMBER\r\n\r\n\r\n     0.8979    4.1920         1           4.1920\r\n     0.7799    5.4938         2           5.4938\r\n     0.6240    7.3671         3           7.3671\r\n     0.4140    9.9637         4           9.9637\r\n\r\n          COMPUTING STATION  5     NUMBER OF DESCRIBING POINTS=  2      IFANGS( 5)=  0\r\n\r\n      DESCRIPTION         STREAMLINE     RADII\r\n      X         R           NUMBER\r\n\r\n\r\n     2.0000    4.4000         1           4.4000\r\n     2.0000   10.0400         2           5.5000\r\n                              3           7.4000\r\n                              4          10.0400\r\n\r\n                    SECTION GEOMETRY SPECIFICATION\r\n\r\n          STREAMLINE  INLET     OUTLET    Y2 LE/    Y2 TE/   LE RADIUS MAX THICK TE THICK  POINT OF  CHORD OR   X STACK   Y STACK\r\n           NUMBER     ANGLE     ANGLE   MAX VALUE MAX VALUE   /CHORD    /CHORD   /2*CHORD  MAX THICK AXIAL CD    OFFSET    OFFSET\r\n\r\n             1.00    -38.176    32.925    0.0000    0.0000   0.01615   0.09800   0.01559    0.5600    1.7960   0.047149 -0.022256\r\n             2.00    -43.735    -4.682    0.0000    0.0000   0.01243   0.07348   0.01351    0.5400    1.8516   0.006760 -0.027221\r\n             3.00    -52.407   -40.078    0.0000    0.0000   0.00912   0.03600   0.00966    0.4900    1.8640  -0.008344  0.013194\r\n             4.00    -72.494   -59.207    0.0000    0.0000   0.00482   0.02681   0.00429    0.4800    1.8624  -0.037304  0.049806\r\n\r\n\r\n                                        VOLUME OF BLADE SECTION = 8.4467E-01\r\n                                        ************************************\r\n\r\n\r\n\r\n1                                          BLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS\r\n                                           *******************************************\r\n1\r\n\r\n\r\n\r\n                                                STATION  2     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    3.7896    -40.5049     -2.9529      0.1209      0.0728\r\n                                    5.4768    -43.2928     -1.9341      0.0870      0.0883\r\n                                    7.3636    -53.0617     -2.2474      0.0446      0.0982\r\n                                    9.9554    -75.0004     -3.9009      0.0113      0.1143\r\n\r\n\r\n\r\n                                                STATION  3     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    3.9990     -1.3396     -2.7271      0.3004     -0.0135\r\n                                    5.4986    -23.6791     -0.7973      0.1846     -0.0038\r\n                                    7.3976    -46.3129     -0.3165      0.0898     -0.0021\r\n                                    9.9971    -66.4815     -1.3922      0.0849      0.0024\r\n\r\n\r\n\r\n                                                STATION  4     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    4.1920     40.2985     27.1254      0.0642      0.0588\r\n                                    5.4938     -6.6219     13.8416      0.0772     -0.0420\r\n                                    7.3671    -40.7223      3.2420      0.0462     -0.0832\r\n                                    9.9637    -59.9504     -3.8430      0.0308     -0.0817\r\n1         DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS AND DATA FORMATTING\r\n          *********************************************************************\r\n          INPUT\r\n          *****\r\n\r\n          NRAD =  1  NDPTS =  5  NDATR =  1  NSWITCH = 2  NLE = 2  NTE =  4\r\n\r\n          XKSHPE = 1.0000  SPEED =  16042.8\r\n\r\n          AT LEADING EDGE (STATION,I3,9H) NOUT1 = 2  NOUT2 = 0  NOUT3 = 0\r\n*****\r\n\r\n          NRAD = 10  NDPTS =\r\n\r\n          STATION  3   NR =  1  NTERP = 0  NMACH = 0  NLOSS = 4  NL1 = -1  NL2 = -1  NEVAL = 0NCURVE = 1  NLITER =  0  NDEL = 0\r\n                      NOUT1 = 0  NOUT2 = 0  NOUT3 = 0  NBLAD =-43\r\n\r\n              RADIUS      LOSS DESCRIPTOR\r\n\r\n              0.0000         0.000000\r\n\r\n          STATION  4   NR =  8  NTERP = 0  NMACH = 0  NLOSS = 1  NL1 = -2  NL2 = -2  NEVAL =-1NCURVE = 0  NLITER =  0  NDEL = 2\r\n                      NOUT1 = 0  NOUT2 = 0  NOUT3 =20  NBLAD =-43\r\n\r\n              RADIUS      LOSS DESCRIPTOR\r\n\r\n              4.2000         0.050000\r\n              4.6200         0.050000\r\n              5.5000         0.050000\r\n              6.5000         0.050000\r\n              7.4000         0.050000\r\n              8.4000         0.050000\r\n              9.5000         0.050000\r\n             10.0000         0.050000\r\n\r\n          DEVIATION FRACTION CURVES AT 1 RADII\r\n\r\n          RTE =  0.0000\r\n\r\n               DM          DVFRAC\r\n\r\n             0.00000      0.00000\r\n             0.25000      0.25000\r\n             0.50000      0.50000\r\n             0.75000      0.75000\r\n             1.00000      1.00000\r\n\r\n               RDTE      DELTAD         AC\r\n\r\n              0.0000      0.000       0.5000\r\n\r\n          RESULTS\r\n          *******\r\n\r\n     STREAMLINE     BETA1      BETA2     CAMBER       T/C        A/C      SOLIDITY    ADDIT. DEVN    TOTAL DEVIATION\r\n\r\n          1        38.176    -32.925     71.100     0.0980     0.5000     3.07990        0.0000          -8.7872\r\n          2        43.735      4.682     39.053     0.0735     0.5000     2.31013        0.0000          -6.5329\r\n          3        52.407     40.078     12.328     0.0360     0.5000     1.73195        0.0000          -2.9851\r\n          4        72.494     59.207     13.287     0.0268     0.5000     1.27972        0.0000          -4.8564\r\nT\r\n1                                     PROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC SECTION\r\n                                      *****************************************************\r\n          INPUT DATA\r\n          **********\r\n\r\n          TITLE                                  = AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE                                \r\n\r\n          SPECIFIC HEAT AT CONSTANT PRESSURE     = 0.24000\r\n          GAS CONSTANT                           = 53.3200\r\n          GRAVITATIONAL CONSTANT                 = 32.1740\r\n          JOULES EQUIVALENT                      = 778.160\r\n\r\n\r\n          NUMBER OF STATIONS                     =  7\r\n          NUMBER OF STREAMLINES                  =  4\r\n          MAX NUMBER OF PASSES                   = 40\r\n          MAX NUMBER OF ARBITRARY PASSES         = 40\r\n          BOUNDARY LAYER CALC INDICATOR          =  0\r\n          NUMBER OF RUNNING POINTS               =  1\r\n          STREAMLINE DISTRIBUTION INDICATOR      =  0\r\n          NUMBER OF LOSS/D-FACTOR CURVE SETS     =  1\r\n          NUMBER OF LOSS/T.E.LOSS CURVE SETS     =  1\r\n          STREAMLINE INPUT INDICATOR             =  0\r\n          STREAMLINE OUTPUT INDICATOR            =  0\r\n          PRECISION PLOT INDICATOR               =  0\r\n          MAX NUMBER OF LINES/PAGE               = 60\r\n          WAKE TRANSPORT CALC INDICATOR          =  0\r\n          MAINSTREAM MIXING CALC INDICATOR       =  0\r\n          NO OF STATIONS FROM ANALYTIC SECN      =  3\r\n          LINE-PRINTER PLOT INDICATOR            =  0\r\n          MOMENTUM EQUATION FORM INDICATOR       =  0\r\n          STATION NUMBER AT LEADING EDGE         =  3\r\n          STATION NUMBER AT TRAILING EDGE        =  5\r\n          COMPRESSOR DIR. OF ROTATION INDICATOR  =  1\r\n\r\n\r\n          GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS  3  4  5\r\n\r\n\r\n          GRAVITATIONAL CONSTANT                 = 32.1740\r\n          JOULES EQUIVALENT                      = 778.160\r\n          LINEAR DIMENSION SCALE FACTOR          = 12.0000\r\n          BASIC TOLERANCE                        = 0.00100\r\n          KINEMATIC VISCOSITY                    = 0.00018\r\n          B.L. SHAPE FACTOR                      = 0.70000\r\n\r\n\r\n          PLOTTING SCALE FOR DIMENSIONS          =  1.000\r\n          PLOTTING SCALE FOR PRESSURES           =  1.000\r\n          MINIMUM RADIUS ON PLOT                 =  4.000\r\n          MINIMUM PRESSURE ON PLOT               =  0.000\r\n          MAXIMUM M-SQUARED IN RELAXATION FACTOR =  0.7000\r\n          CONSTANT IN RELAXATION FACTOR          =  8.0000\r\n\r\n\r\n          WAKE TRANSFER CONSTANT                 = 0.00000\r\n          TURBULENT MIXING CONSTANT              = 0.00000\r\n\r\n\r\n          POINTS TO BE COMPUTED\r\n\r\n          NO      FLOWRATE    SPEED FACTOR\r\n\r\n           1       73.146         1.000\r\n1\r\n\r\n\r\n          ANNULUS / COMPUTING STATION GEOMETRY\r\n\r\n          STATION  1  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -4.0000      3.2500\r\n               -4.0000     10.0400\r\n\r\n\r\n          STATION  2  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -2.0000      3.6000\r\n               -2.0000     10.0400\r\n\r\n\r\n          STATION  3  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -0.8981      3.7896\r\n               -0.7653      5.4768\r\n               -0.6386      7.3636\r\n               -0.4058      9.9554\r\n\r\n\r\n          STATION  4  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -0.0001      3.9990\r\n               -0.0005      5.4986\r\n               -0.0091      7.3976\r\n               -0.0106      9.9971\r\n\r\n\r\n          STATION  5  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                0.8979      4.1920\r\n                0.7799      5.4938\r\n                0.6240      7.3671\r\n                0.4140      9.9637\r\n\r\n\r\n          STATION  6  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                2.0000      4.4000\r\n                2.0000     10.0400\r\n\r\n\r\n          STATION  7  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                4.0000      4.7500\r\n                4.0000     10.0400\r\n1\r\n\r\n\r\n          STATION CALCULATION DATA\r\n\r\n       STATION  1  NDATA=  1 NTERP= 0 NDIMEN= 0 NMACH= 0\r\n\r\n           DATAC      TOTAL PRESSURE    TOTAL TEMPERATURE    WHIRL ANGLE\r\n\r\n           3.2500        14.7000            518.700             0.000\r\n\r\n\r\n       STATION  2  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n\r\n\r\n       STATION  3  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3=10 NBLADE=  0\r\n\r\n\r\n          SPEED =     0.00\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             3.7896     -40.505     0.000000    -2.9417     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             5.4768     -43.293     0.000000    -1.9294     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             7.3636     -53.062     0.000000    -2.2416     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             9.9554     -75.000     0.000000    -3.8787     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n\r\n\r\n       STATION  4  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 4 NL1= -1 NL2= -1 NEVAL= 0 NCURVE= 1 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=-43\r\n\r\n\r\n          SPEED = 16042.80\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             3.9990      -1.340     0.000000    -2.7271     0.30043     3.07990     -4.4022      0.0000      0.0000      0.0000\r\n             5.4986     -23.679     0.000000    -0.7973     0.18458     2.31013     -3.2343      0.0000      0.0000      0.0000\r\n             7.3976     -46.313     0.000000    -0.3165     0.08978     1.73195     -1.4885      0.0000      0.0000      0.0000\r\n             9.9971     -66.481     0.000000    -1.3922     0.08494     1.27972     -2.3440      0.0000      0.0000      0.0000\r\n\r\n\r\n       STATION  5  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 1 NL1= -2 NL2= -2 NEVAL=-1 NCURVE= 0 NLITER=  0 NDEL=  2\r\n                   NOUT1= 0 NOUT2= 0 NOUT3=20 NBLADE=-43\r\n\r\n\r\n          SPEED = 16042.80\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             4.1920      40.299     0.050000    27.0223     0.06421     3.07990     -8.7872      0.0000      0.0000      0.0000\r\n             5.4938      -6.622     0.050000    13.7916     0.07720     2.31013     -6.5329      0.0000      0.0000      0.0000\r\n             7.3671     -40.722     0.050000     3.2314     0.04618     1.73195     -2.9851      0.0000      0.0000      0.0000\r\n             9.9637     -59.950     0.050000    -3.8306     0.03080     1.27972     -4.8564      0.0000      0.0000      0.0000\r\n\r\n\r\n             DELC        DELTA\r\n\r\n             4.0000      0.0000\r\n            10.0000      1.0000\r\n\r\n\r\n       STATION  6  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n\r\n\r\n       STATION  7  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n1\r\n\r\n\r\n          BLOCKAGE FACTOR SPECIFICATIONS\r\n\r\n          STATION   WALL BLOCKAGE   WAKE BLOCKAGE   WAKE DISTRIBUTION FACTOR\r\n\r\n             1         0.00000         0.00000              0.000\r\n             2         0.00000         0.00000              0.000\r\n             3         0.00000         0.00000              0.000\r\n             4         0.00000         0.00000              0.000\r\n             5         0.00000         0.00000              0.000\r\n             6         0.00000         0.00000              0.000\r\n             7         0.00000         0.00000              0.000\r\n\r\n\r\n          LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE TYPE 1    6 D-FACTORS GIVEN\r\n\r\n               DIFFUSION     L O S S   P A R A M E T E R S\r\n                FACTORS        HUB         MID        TIP\r\n\r\n                  0.000      0.00600     0.00600    0.00600\r\n                  0.200      0.00700     0.00700    0.00700\r\n                  0.400      0.01400     0.01400    0.01400\r\n                  0.600      0.03000     0.03100    0.03100\r\n                  0.800      0.06000     0.06000    0.06000\r\n                  1.000      0.12500     0.12500    0.12500\r\n\r\n\r\n          FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE CLASS 1    2 POINTS GIVEN AT  1 RADIAL LOCATIONS\r\n\r\n          FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT = 0.0000\r\n\r\n          FRACTION OF MERIDIONAL CHORD    LOSS/LOSS AT TRAILING EDGE\r\n\r\n                    0.0000                         0.0000\r\n                    1.0000                         0.0000\r\n1         OUTPUT FOR POINT NO. 1\r\n          **********************\r\n\r\n\r\n          STATION  1  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.2500    -4.0000     0.0000     550.42       0.00     542.18      94.88     550.42       0.00      9.926      0.000\r\n     2        5.5263    -4.0000     2.2763     551.12       0.00     548.52      53.45     551.12       0.00      5.566      0.000\r\n     3        7.7854    -4.0000     4.5354     552.76       0.00     552.27      23.18     552.76       0.00      2.403      0.000\r\n     4       10.0400    -4.0000     6.7900     553.33       0.00     553.33       0.00     553.33       0.00      0.000      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.5057    14.7000    12.3461    518.700    493.490    0.067565   124.488    118.438    0.975611     0.000      9.926\r\n     2        0.5063    14.7000    12.3404    518.700    493.426    0.067543   124.488    118.422    0.975611     0.000      5.566\r\n     3        0.5079    14.7000    12.3272    518.700    493.275    0.067491   124.488    118.386    0.975611     0.000      2.403\r\n     4        0.5085    14.7000    12.3227    518.700    493.223    0.067474   124.488    118.373    0.975611     0.000      0.000\r\n\r\n\r\n          STATION  2  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.6000    -2.0000     0.0000     552.89       0.00     544.75      94.53     552.89    -549.50      9.844      0.000\r\n     2        5.7212    -2.0000     2.1212     565.03       0.00     561.19      65.74     565.03      42.18      6.681      0.000\r\n     3        7.8694    -2.0000     4.2694     586.32       0.00     585.67      27.56     586.32     167.94      2.694      0.000\r\n     4       10.0400    -2.0000     6.4400     572.12       0.00     571.92     -15.16     572.12     -33.92     -1.519      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.5080    14.7000    12.3262    518.700    493.263    0.067488   124.488    118.383    0.975611     0.000      9.844\r\n     2        0.5198    14.7000    12.2277    518.700    492.134    0.067102   124.488    118.112    0.975611     0.000      6.681\r\n     3        0.5405    14.7000    12.0511    518.700    490.094    0.066408   124.488    117.623    0.975611     0.000      2.694\r\n     4        0.5267    14.7000    12.1694    518.700    491.463    0.066873   124.488    117.951    0.975611     0.000     -1.519\r\n\r\n\r\n          STATION  3  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.7896    -0.8981     0.0000     502.55       0.00     492.55      99.71     502.55      17.38     11.444      4.564\r\n     2        5.8942    -0.7369     2.1108     599.86       0.00     588.62     115.60     599.86       8.79     11.111      4.010\r\n     3        7.9427    -0.5929     4.1645     627.24       0.00     627.00      17.33     627.24     -20.34      1.583      4.583\r\n     4        9.9554    -0.4058     6.1857     674.58       0.00     674.35      17.55     674.58       6.31      1.491      5.674\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.4597    14.7000    12.7176    518.700    497.685    0.069012   124.488    119.444    0.975611     0.000     16.008\r\n     2        0.5537    14.7000    11.9364    518.700    488.758    0.065955   124.488    117.302    0.975611     0.000     15.121\r\n     3        0.5807    14.7000    11.6989    518.700    485.962    0.065015   124.488    116.631    0.975611     0.000      6.166\r\n     4        0.6278    14.7000    11.2722    518.700    480.834    0.063312   124.488    115.400    0.975611     0.000      7.165\r\n1\r\n\r\n          STATION  3 IS AT THE LEADING EDGE OF A BLADE ROATING AT  16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          ***************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE   RELATIVE   RELATIVE  INCIDENCE    BLADE      LEAN    PRESS DIFF\r\n  -LINE       SPEED     VELOCITY   MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE\r\n\r\n     1        530.54     730.77     0.6685    -46.552      7.424    -39.128     -2.942     2.3980\r\n     2        825.18    1020.18     0.9417    -53.985     10.325    -43.660     -1.867     4.9637\r\n     3       1111.98    1276.69     1.1819    -60.574      3.275    -57.299     -2.543     6.4029\r\n     4       1393.76    1548.42     1.4411    -64.173    -10.779    -74.952     -3.879     8.6056\r\n\r\n\r\n          STATION  4  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.9990    -0.0001     0.0000     607.39     505.51     592.70     132.79     790.23     -52.92     12.628     -0.007\r\n     2        6.0830    -0.0027     2.0840     532.40     495.76     526.06      81.93     727.48      -3.82      8.852     -0.202\r\n     3        7.9446    -0.0107     3.9456     573.55     364.85     569.51      67.89     679.76       2.54      6.797     -0.159\r\n     4        9.9971    -0.0106     5.9981     443.90     253.94     443.86       5.91     511.40      -2.24      0.763      0.080\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.7115    19.9311    14.2230    565.800    513.837    0.074754   135.792    123.321    0.975610    39.770     12.621\r\n     2        0.6360    22.9376    17.4715    588.957    544.920    0.086591   141.350    130.781    0.975610    42.959      8.650\r\n     3        0.5927    22.5681    17.7952    586.233    547.783    0.087734   140.696    131.468    0.975610    32.461      6.639\r\n     4        0.4426    21.4576    18.7580    577.849    556.086    0.091100   138.684    133.461    0.975611    29.772      0.843\r\n\r\n          STATION  4 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          *************************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE    RELATIVE   RELATIVE  DEVIATION    BLADE      LEAN    PRESS DIFF    LOSS     DIFFUSION   DELTA P\r\n  -LINE       SPEED     VELOCITY    MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE  COEFF      FACTOR     ON Q\r\n\r\n     1        559.86     609.82     0.5490     -5.113      4.402     -0.710     -2.727     2.7835   -0.00001    0.2713     0.3389\r\n     2        851.62     640.38     0.5599    -33.754      2.626    -31.128     -0.423     3.6172    0.00000    0.4825     0.6017\r\n     3       1112.24     942.10     0.8215    -52.497      1.363    -51.134     -0.453     5.9956    0.00000    0.3502     0.3808\r\n     4       1399.59    1228.64     1.0633    -68.820      2.344    -66.476     -1.392     6.7137    0.00000    0.2691     0.2799\r\n\r\n  STREAM       INLET THROUGH STATION  4       STATION  3 THROUGH STATION  4     MEAN VALUES      INLET TO STA. 4   STA. 3 TO STA. 4\r\n  -LINE      PRESSURE  ISENTROPIC  DELTA H    PRESSURE  ISENTROPIC  DELTA H     PRESSURE RATIO        1.5056             1.5056\r\n               RATIO   EFFICIENCY  ON H1        RATIO   EFFICIENCY  ON H1       ISEN EFFY             1.0017             1.0017\r\n                                                                                DELTA H ON H1         0.1237             0.1237\r\n     1        1.3559    1.0000     0.0908      1.3559    1.0000     0.0908\r\n     2        1.5604    1.0000     0.1354      1.5604    1.0000     0.1354\r\n     3        1.5352    1.0000     0.1302      1.5352    1.0000     0.1302\r\n     4        1.4597    1.0000     0.1140      1.4597    1.0000     0.1140\r\n1\r\n\r\n\r\n          STATION  5  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.1920     0.8979     0.0000     506.48     855.21     496.47     100.19     993.93     -40.56     11.409     -5.199\r\n     2        6.1248     0.7258     1.9404     425.06     628.48     422.40      47.52     758.72       9.22      6.419     -4.869\r\n     3        8.0821     0.5661     3.9043     464.91     570.08     458.76      75.37     735.61      -7.13      9.329     -4.589\r\n     4        9.9637     0.4140     5.7920     441.26     457.71     441.21      -6.70     635.77       7.96     -0.870     -4.641\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.8895    24.4891    14.6461    602.228    520.023    0.076063   144.535    124.805    0.976473    59.364      6.210\r\n     2        0.6540    25.1538    18.8736    608.379    560.477    0.090943   146.011    134.514    0.977077    55.928      1.550\r\n     3        0.6228    27.6043    21.2536    626.046    581.018    0.098791   150.251    139.444    0.977578    50.802      4.741\r\n     4        0.5336    27.2435    22.4445    624.955    591.320    0.102508   149.989    141.917    0.978061    46.048     -5.510\r\n\r\n          STATION  5 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          *************************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE    RELATIVE   RELATIVE  DEVIATION    BLADE      LEAN    PRESS DIFF    LOSS     DIFFUSION   DELTA P\r\n  -LINE       SPEED     VELOCITY    MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE  COEFF      FACTOR     ON Q\r\n\r\n     1        586.88     573.17     0.5130     27.914      8.787     36.701     27.022     0.0000    0.05000    0.3931     0.4342\r\n     2        857.47     482.82     0.4162    -28.305      5.161    -23.145      9.180     0.0000    0.05000    0.6690     0.7541\r\n     3       1131.50     728.93     0.6172    -50.370      2.764    -47.606      0.849     0.0000    0.05000    0.5644     0.5969\r\n     4       1394.92    1035.89     0.8694    -64.788      4.856    -59.932     -3.831     0.0000    0.05000    0.4462     0.4178\r\n\r\n  STREAM       INLET THROUGH STATION  5       STATION  3 THROUGH STATION  5     MEAN VALUES      INLET TO STA. 5   STA. 3 TO STA. 5\r\n  -LINE      PRESSURE  ISENTROPIC  DELTA H    PRESSURE  ISENTROPIC  DELTA H     PRESSURE RATIO        1.8030             1.8030\r\n               RATIO   EFFICIENCY  ON H1        RATIO   EFFICIENCY  ON H1       ISEN EFFY             0.9545             0.9545\r\n                                                                                DELTA H ON H1         0.1920             0.1920\r\n     1        1.6659    0.9741     0.1610      1.6659    0.9741     0.1610\r\n     2        1.7111    0.9587     0.1729      1.7111    0.9587     0.1729\r\n     3        1.8778    0.9524     0.2070      1.8778    0.9524     0.2070\r\n     4        1.8533    0.9403     0.2048      1.8533    0.9403     0.2048\r\n\r\n\r\n          STATION  6  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.4000     2.0000     0.0000     431.07     814.78     424.11      77.13     921.78    -118.42     10.307      0.000\r\n     2        6.3393     2.0000     1.9393     394.07     607.19     389.91      57.06     723.86     -38.40      8.325      0.000\r\n     3        8.2137     2.0000     3.8137     465.65     560.94     464.20      36.71     729.03     -68.29      4.522      0.000\r\n     4       10.0400     2.0000     5.6400     424.52     454.23     424.40      10.20     621.73     -37.32      1.377      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.8160    24.4891    15.8125    602.228    531.525    0.080343   144.535    127.566    0.976473    62.118     10.307\r\n     2        0.6216    25.1538    19.3858    608.379    564.778    0.092700   146.011    135.547    0.977077    57.017      8.325\r\n     3        0.6168    27.6043    21.3566    626.046    581.820    0.099132   150.251    139.637    0.977578    50.303      4.522\r\n     4        0.5211    27.2435    22.6404    624.955    592.790    0.103147   149.989    142.270    0.978061    46.936      1.377\r\n1\r\n\r\n\r\n          STATION  7  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.7500     4.0000     0.0000     405.12     754.74     399.05      69.83     856.59       0.00      9.926      0.000\r\n     2        6.5881     4.0000     1.8381     397.68     584.25     394.64      49.10     706.75       0.00      7.092      0.000\r\n     3        8.3466     4.0000     3.5966     491.97     552.01     490.89      32.60     739.42       0.00      3.800      0.000\r\n     4       10.0400     4.0000     5.2900     470.09     454.23     470.09       0.00     653.69       0.00      0.000      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.7515    24.4891    16.8407    602.228    541.171    0.084042   144.535    129.881    0.976473    61.775      9.926\r\n     2        0.6058    25.1538    19.6318    608.379    566.814    0.093539   146.011    136.035    0.977077    55.758      7.092\r\n     3        0.6263    27.6043    21.1937    626.046    580.550    0.098592   150.251    139.332    0.977578    48.292      3.800\r\n     4        0.5495    27.2435    22.1899    624.955    589.398    0.101676   149.989    141.455    0.978061    44.017      0.000\r\n\r\n          POINT NO  1   PASS 23   THE CALCULATION IS CONVERGED\r\n          ****************************************************\r\n          SPEED FACTOR =     1.000  FLOW =  73.146  TOTAL PRESSURE RATIO =  1.803  ISENTROPIC EFFICIENCY =0.9545  POWER = 0.2474E+04\r\n\r\n          DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS  3 AND  5\r\n          *************************************************************\r\n\r\n\r\n NAME   CODE    DELTA P   ELEMENT       MESHPOINTS -  J   I         J   I         J   I\r\n\r\n PLOAD2   60    -3.44058      1                       2   3         2   4         1   3\r\n PLOAD2   60    -3.44058      2                       1   3         2   4         1   4\r\n PLOAD2   60    -1.60015      3                       1   4         2   4         2   5\r\n PLOAD2   60    -1.60015      4                       1   4         2   5         1   5\r\n PLOAD2   60    -5.24484      5                       3   3         3   4         2   3\r\n PLOAD2   60    -5.24484      6                       2   3         3   4         2   4\r\n PLOAD2   60    -2.40318      7                       2   4         3   4         3   5\r\n PLOAD2   60    -2.40318      8                       2   4         3   5         2   5\r\n PLOAD2   60    -6.92945      9                       4   3         4   4         3   3\r\n PLOAD2   60    -6.92945     10                       3   3         4   4         3   4\r\n PLOAD2   60    -3.17732     11                       3   4         4   4         4   5\r\n PLOAD2   60    -3.17732     12                       3   4         4   5         3   5\r\n\r\n\r\n NAME   CODE    DELTA T   NODE          MESHPOINTS -  J   I   COORDINATES -   RADIAL       AXIAL\r\n\r\n TEMP     70   542.12189     1                        1   3                    3.7896     -0.8981\r\n TEMP     70   544.78180     2                        1   4                    3.9990     -0.0001\r\n TEMP     70   547.36011     3                        1   5                    4.1920      0.8979\r\n TEMP     70   575.36102     4                        2   3                    5.8942     -0.7369\r\n TEMP     70   579.04382     5                        2   4                    6.0830     -0.0027\r\n TEMP     70   579.87457     6                        2   5                    6.1248      0.7258\r\n TEMP     70   621.59137     7                        3   3                    7.9427     -0.5929\r\n TEMP     70   621.63770     8                        3   4                    7.9446     -0.0107\r\n TEMP     70   625.23114     9                        3   5                    8.0821      0.5661\r\n TEMP     70   680.34326    10                        4   3                    9.9554     -0.4058\r\n TEMP     70   681.69922    11                        4   4                    9.9971     -0.0106\r\n TEMP     70   680.61285    12                        4   5                    9.9637      0.4140\r\n1\r\n\r\n        LOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN STATIONS  3 AND  5 - FOR PURPOSES OF COMPARISON ONLY   BLADE TYPE 1\r\n        ********************************************************************************************************************\r\n\r\n     STREAM  INLET   OUTLET  CASCADE   DIFF       LOSS   DIFFUSION  BLADE  INCIDENCE  EXPANSION INLET  EXPANDED SHOCK   TOTAL\r\n     -LINE   RADIUS  RADIUS  SOLIDITY  FACTOR  PARAMETER   LOSS     ANGLE    ANGLE      ANGLE    M.NO  MACH NO   LOSS   LOSS \r\n\r\n        1     3.790   4.192   3.0799   0.3931   0.01362  0.09492   39.128    7.424     7.389    0.6685  1.3439 0.00000  0.09492\r\n        2     5.894   6.125   2.0533   0.6691   0.03797  0.17708   43.660   10.325    10.640    0.9417  1.4568 0.00859  0.18568\r\n        3     7.943   8.082   1.5933   0.5644   0.02757  0.13772   57.299    3.275     3.932    1.1819  1.3318 0.02403  0.16175\r\n        4     9.955   9.964   1.2797   0.4462   0.01235  0.07423   74.952  -10.779    -9.786    1.4411  1.0433 0.01695  0.09118\r\nS\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   2.8488775E-13\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   2.8488775E-13\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.371943E-04  -2.571315E-03   2.055175E-03  -7.896196E-03   2.686234E-03   1.609007E-03                  \r\n             2      G      2.371943E-04  -2.571315E-03   2.055175E-03  -7.896196E-03   2.686234E-03   1.609007E-03                  \r\n             3      G      2.371943E-04  -2.571315E-03   2.055175E-03  -7.896196E-03   2.686234E-03   1.609007E-03                  \r\n             4      G     -1.293761E-02   2.308500E-02   8.461602E-03   3.845698E-03  -5.576077E-02  -2.211289E-02                  \r\n             5      G     -4.484548E-03   9.902098E-03   4.937272E-03  -6.525645E-03  -1.706340E-02  -2.133496E-02                  \r\n             6      G     -4.780743E-04  -6.448696E-03   4.768807E-03   7.375842E-03  -2.001781E-02  -1.930346E-02                  \r\n             7      G     -4.479888E-02   6.133479E-02   1.769185E-02   0.0            0.0           -4.292752E-02                  \r\n             8      G     -1.553452E-02   3.684483E-02   8.262632E-03  -3.804120E-02   3.854744E-02  -3.832487E-02                  \r\n             9      G      4.731231E-03   1.429906E-02   3.237346E-03  -2.495888E-02   2.401703E-02  -4.016322E-02                  \r\n            10      G     -2.190807E-01   1.771158E-01   5.405806E-02   0.0            0.0           -1.271521E-01                  \r\n            11      G     -1.002480E-01   1.386206E-01   1.233967E-02  -3.716482E-01   1.738767E-01  -6.244718E-02                  \r\n            12      G     -5.243494E-02   1.124633E-01  -6.725857E-03   0.0            0.0           -6.203281E-02                  \r\n           101      G      1.651108E-03   1.229301E-03   7.209944E-05   0.0            0.0            0.0                           \r\n           103      G      1.596765E-03   1.035506E-03  -6.043270E-05   0.0            0.0            0.0                           \r\n           104      G      1.593915E-03   1.034726E-03  -6.020584E-05   0.0            0.0            0.0                           \r\n           105      G      1.596765E-03   1.035506E-03  -6.043270E-05   0.0            0.0            0.0                           \r\n           107      G      1.651108E-03   1.229301E-03   7.209944E-05   0.0            0.0            0.0                           \r\n           108      G      1.646498E-03   1.230764E-03   7.278186E-05   0.0            0.0            0.0                           \r\n           113      G      2.018571E-03   2.590036E-03   2.721413E-04   0.0            0.0            0.0                           \r\n           115      G      2.011381E-03   2.553835E-03   2.041986E-04   0.0            0.0            0.0                           \r\n           116      G      2.371943E-04  -2.571315E-03   2.055175E-03   0.0            0.0            0.0                           \r\n           117      G      2.011381E-03   2.553835E-03   2.041986E-04   0.0            0.0            0.0                           \r\n           119      G      2.018571E-03   2.590036E-03   2.721413E-04   0.0            0.0            0.0                           \r\n           120      G      2.371943E-04  -2.571315E-03   2.055175E-03   0.0            0.0            0.0                           \r\n           121      G      1.292840E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G      1.336822E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G      1.337291E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G      1.336822E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G      1.292840E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G      1.293340E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                                                     L O A D   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G     -7.769096E-01  -2.790255E+01   4.035773E+02   0.0            0.0            0.0                           \r\n             2      G     -2.432294E-01   9.106059E+00   5.703327E+02   0.0            0.0            0.0                           \r\n             3      G      1.281644E-01  -1.151588E+01   2.008776E+02   0.0            0.0            0.0                           \r\n             4      G     -2.547371E+00  -6.569169E+01   7.764784E+02   0.0            0.0            0.0                           \r\n             5      G     -2.308450E+00   9.780025E+00   1.482236E+03   0.0            0.0            0.0                           \r\n             6      G     -1.128254E-01   3.085966E+01   7.052322E+02   0.0            0.0            0.0                           \r\n             7      G     -6.777714E+00  -8.679458E+01   9.231949E+02   0.0            0.0            0.0                           \r\n             8      G     -6.703007E+00   9.700793E+00   1.713796E+03   0.0            0.0            0.0                           \r\n             9      G     -1.435108E+00   6.935728E+01   8.083008E+02   0.0            0.0            0.0                           \r\n            10      G     -3.340151E+00  -4.960236E+01   4.426302E+02   0.0            0.0            0.0                           \r\n            11      G     -6.707185E+00   8.643217E-01   1.165815E+03   0.0            0.0            0.0                           \r\n            12      G     -1.974893E+00   5.687598E+01   6.765903E+02   0.0            0.0            0.0                           \r\n           101      G      9.188749E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           103      G      5.368098E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           104      G      1.556247E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           105      G      1.019437E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           107      G      4.979494E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           108      G      1.416824E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           113      G      3.151685E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           115      G      1.897285E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           116      G      0.0            0.0            2.448729E+03   0.0            0.0            0.0                           \r\n           117      G      5.514448E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           119      G      1.599306E+03   0.0            0.0            0.0            0.0            0.0                           \r\n           120      G      0.0            0.0            1.914474E+03   0.0            0.0            0.0                           \r\n           121      G      1.228344E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G      1.489151E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G      1.377259E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G      1.228344E+02   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G      1.489151E+01   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G      1.377259E+02   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             7      G      0.0            0.0            0.0            6.560349E+01   9.106416E+01   0.0                           \r\n            10      G      0.0            0.0            0.0            1.177212E+01   3.446471E+01   0.0                           \r\n            12      G      0.0            0.0            0.0            1.519033E+01   1.976282E+01   0.0                           \r\n           121      G      0.0            3.451989E+04  -4.136795E+03   0.0            0.0            0.0                           \r\n           123      G      0.0            3.069054E+04   4.850128E+02   0.0            0.0            0.0                           \r\n           124      G      0.0           -4.283654E+03   4.672586E+03   0.0            0.0            0.0                           \r\n           125      G      0.0           -3.494323E+04   4.171536E+03   0.0            0.0            0.0                           \r\n           127      G      0.0           -3.182705E+04  -5.218942E+02   0.0            0.0            0.0                           \r\n           128      G      0.0            2.893779E+03  -4.637647E+03   0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 2 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1         -6.355762E-01         -1.779275E+01         -3.299377E+01         -2.178152E+01         -3.757886E+01      \r\n               2         -3.608165E+01         -3.429106E+01          2.291082E+01          3.575367E+01         -5.893926E+01      \r\n               3          1.998121E+01         -3.333047E+01         -2.005319E+01          1.690300E+01         -7.382812E+01      \r\n               4         -3.109536E+00          4.245105E+01          1.952424E+01         -9.788776E+01          1.624521E+01      \r\n               5          2.400486E+01          2.101974E+00          5.268095E+00         -1.215512E+01         -1.258337E+01      \r\n               6          8.546276E+00          1.669231E+00          7.166742E+00         -4.821418E+01          6.428040E+00      \r\n               7          1.155983E+01         -2.146726E-01          3.078034E+00         -2.596338E+01          2.256946E+01      \r\n               8          2.733558E+00         -8.758196E+00          8.158541E+00         -8.003098E+00          2.853275E+00      \r\n               9          1.019639E+01         -3.288830E+00          1.076181E+00         -3.882318E+01         -4.954895E+00      \r\n              10         -2.622091E+00         -9.004877E+00          4.800928E-01         -1.730677E+01          5.554525E+00      \r\n              11          4.936108E+00         -1.081648E+00          1.543539E-01         -2.954523E+01          6.153748E+00      \r\n              12         -8.198018E-01         -5.932956E+00          9.209311E-01         -2.891270E+00         -2.441933E+01      \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                    S T R E S S E S   I N   S O L I D   H E X A H E D R O N   E L E M E N T S   ( C H E X A 1 )\r\n \r\n                                                                                                           OCTAHEDRAL    PRESSURE\r\n      ELEMENT-ID        SIGMA-XX      SIGMA-YY      SIGMA-ZZ       TAU-YZ        TAU-XZ        TAU-XY        TAU-0          P\r\n             201      8.287742E+03  1.875773E+04  1.485760E+04 -7.947812E+02  8.709683E+02  1.781391E+03  4.659238E+03 -1.396769E+04\r\n             202      8.260719E+03  1.855280E+04  1.515611E+04 -2.901188E+03  8.740757E+02  1.800806E+03  5.159172E+03 -1.398987E+04\r\n             203      1.327600E+04  2.930497E+04  1.894446E+04 -3.247031E+03  4.230859E+01  2.976045E+03  7.548438E+03 -2.050848E+04\r\n             204      1.333370E+04  2.892748E+04  1.950989E+04 -3.644160E+03 -1.792444E+02  2.925159E+03  7.462605E+03 -2.059036E+04\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     LINEAR SOLUTION OF ROTOR BLADE                                                                         SUBCASE 1              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -5.200000E-02      3.573060E+04  -8.091830E+03  -5.496211E+03    -7.0408    3.640942E+04   -8.770651E+03   2.259004E+04 \r\n             5.200000E-02      3.643575E+04   1.164864E+04   3.110930E+04    34.1391    5.752934E+04   -9.444953E+03   3.348715E+04 \r\n0       2   -5.200000E-02     -2.174904E+03   4.044692E+04   1.686488E+04    70.8214    4.631283E+04   -8.040811E+03   2.717682E+04 \r\n             5.200000E-02      3.785652E+04   7.849173E+04  -8.553924E+03   -78.5842    8.021896E+04    3.612929E+04   2.204484E+04 \r\n0       3   -5.200000E-02      4.735097E+04   1.216686E+03   1.493541E+04    16.4610    5.176399E+04   -3.196338E+03   2.748017E+04 \r\n             5.200000E-02      2.518247E+04   3.819575E+04   3.718377E+04    49.9627    6.943788E+04   -6.059656E+03   3.774877E+04 \r\n0       4   -5.200000E-02      7.644768E+03   5.478148E+04   1.993912E+04    69.8842    6.208440E+04    3.418477E+02   3.087128E+04 \r\n             5.200000E-02      1.109470E+04   7.683426E+03  -1.722392E+03   -22.6400    1.181307E+04    6.965051E+03   2.424010E+03 \r\n0       5   -3.535000E-02      6.080794E+04   7.711569E+03   1.811475E+04    17.1535    6.639930E+04    2.120211E+03   3.213954E+04 \r\n             3.535000E-02      3.178871E+03   2.665306E+03   5.467500E+03    43.6555    8.395615E+03   -2.551439E+03   5.473527E+03 \r\n0       6   -3.535000E-02      1.501712E+04   5.840951E+04  -7.785205E+02   -88.9725    5.842348E+04    1.500316E+04   2.171016E+04 \r\n             3.535000E-02     -5.500143E+03   5.440214E+04  -1.798390E+04   -74.5088    5.938654E+04   -1.048454E+04   3.493554E+04 \r\n0       7   -3.535000E-02      5.687447E+04   1.261691E+04   2.545638E+04    24.5001    6.847566E+04    1.015730E+03   3.372996E+04 \r\n             3.535000E-02      2.912250E+04   1.313228E+04   1.806687E+04    33.0646    4.088424E+04    1.370529E+03   1.975686E+04 \r\n0       8   -3.535000E-02     -3.365845E+01   2.623749E+04   1.914178E+04    62.2295    3.631723E+04   -1.011340E+04   2.321532E+04 \r\n             3.535000E-02     -6.596182E+03   4.726351E+04  -4.446377E+02   -89.5270    4.726718E+04   -6.599854E+03   2.693352E+04 \r\n0       9   -2.110000E-02      5.402859E+04  -8.064215E+03   1.040268E+04     9.2622    5.572505E+04   -9.760672E+03   3.274286E+04 \r\n             2.110000E-02     -1.467871E+04   1.409721E+04   3.150947E+03    83.8237    1.443820E+04   -1.501970E+04   1.472895E+04 \r\n0      10   -2.110000E-02     -8.583666E+03   1.938633E+03  -5.565989E+03   -66.6936    4.336460E+03   -1.098149E+04   7.658977E+03 \r\n             2.110000E-02      9.085018E+03   6.261704E+04  -8.801043E+03   -80.8992    6.402686E+04    7.675191E+03   2.817584E+04 \r\n0      11   -2.110000E-02      4.557097E+04  -3.791034E+03   8.232893E+03     9.2236    4.690789E+04   -5.127959E+03   2.601793E+04 \r\n             2.110000E-02      1.230953E+04   3.497534E+03   7.192795E+03    29.2551    1.633853E+04   -5.314614E+02   8.434994E+03 \r\n0      12   -2.110000E-02     -8.815663E+03   6.549336E+03   8.409610E+03    66.2064    1.025729E+04   -1.252361E+04   1.139045E+04 \r\n             2.110000E-02     -3.291516E+03   4.652793E+04   2.204014E+03    87.4718    4.662524E+04   -3.388830E+03   2.500704E+04 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 7.864423E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n          ORIGIN       3   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n          ORIGIN       4   -   X0 = -4.282722E+00, Y0 = -0.932401E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    4   STATIC DEFORM.     1 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN      4  USED IN THIS PLOT                                                   \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n          ORIGIN       3   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n          ORIGIN       4   -   X0 = -4.282722E+00, Y0 = -0.932401E+00     (INCHES)                                                  \r\n          ORIGIN       5   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    5   STATIC DEFORM.     1 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN      5  USED IN THIS PLOT                                                   \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n\r\n                                                                                                                                    \r\n\r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1    ELEMENTS (ELEMENT TYPE  41).\r\n0*** USER INFORMATION MESSAGE FROM PARAMR MODULE - OP CODE = ADD     \r\n     (ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)\r\n                      3RD PARM =  0.000000E+00  (INPUT)\r\n                      4TH PARM =  0.000000E+00  (INPUT)\r\n                      DSEPSI   =  0.000000E+00  (OUTPUT)\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    42\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    DET                 2.205816E+07\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    43\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n0                                                                                                                                   \r\n                                 C O N T E N T S   O F   P A R A M E T E R   T A B L E                                              \r\n                                                                                                                                    \r\n                    POWER                    424\r\n0*** USER INFORMATION MESSAGE - MODULE ALG ENTERED.\r\n\r\n\r\n\r\n     FOR POINT NO.  1 PASS 28 - SPEED FACTOR          =    1.0000\r\n                                FLOW                  =   73.1460\r\n                                TOTAL PRESSURE RATIO  =    1.8340\r\n                                ISENTROPIC EFFICIENCY =    0.9552\r\n                                POWER                 =0.2550E+04\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =   6.2260848E-15\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =   6.2260848E-15\r\n0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1    ELEMENTS (ELEMENT TYPE  41).\r\n0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON   0\r\n     ON ITERATION NUMBER      1.\r\n     PARAMETER VALUES ARE AS FOLLOWS\r\n          DONE   =         1\r\n          SHIFT  =         1\r\n          DSEPSI = 3.6338730E-05\r\n0*** USER INFORMATION MESSAGE - MODULE ALG ENTERED.\r\n\r\n\r\n\r\n     FOR POINT NO.  1 PASS 27 - SPEED FACTOR          =    1.0000\r\n                                FLOW                  =   73.1460\r\n                                TOTAL PRESSURE RATIO  =    1.8380\r\n                                ISENTROPIC EFFICIENCY =    0.9556\r\n                                POWER                 =0.2559E+04\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     1, EPSILON SUB E =  -1.0648572E-14\r\n0*** USER INFORMATION MESSAGE 3035\r\n     FOR SUBCASE NUMBER     2, EPSILON SUB E =  -1.0648572E-14\r\n0*** USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED FOR HEXA1    ELEMENTS (ELEMENT TYPE  41).\r\n0*** USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON   1\r\n     ON ITERATION NUMBER      2.\r\n     PARAMETER VALUES ARE AS FOLLOWS\r\n          DONE   =        -1\r\n          SHIFT  =         1\r\n          DSEPSI = 5.5353121E-06\r\n1\r\n                                        ALG MODULE - COMPRESSOR DESIGN - CONTROL SECTION\r\n                                        ************************************************\r\n\r\n          TITLE = NASA LEWIS EXPERIMENTAL FAN                                             \r\n          NUMBER OF ANALYTIC MEALINE BLADEROWS =   1\r\n          THERE WILL BE AN ENTRY TO THE AERODYNAMIC SECTION\r\n1                               PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEANLINE BLADE SECTION\r\n                                *****************************************************************\r\n\r\n          TITLE                         =GRID GENERATION                                                         \r\n          NUMBER OF STREAMSURFACES      =  4\r\n          NUMBER OF STATIONS            =  5\r\n          NUMBER OF CONSTANT-Z PLANES   =  3\r\n          NUMBER OF BLADE DATA POINTS   =  4\r\n          NUMBER OF POINTS ON SURFACES  = 30\r\n          NUMBER OF BLADES IN BLADE ROW = 43\r\n          ISTAK                         =  2\r\n          IPUNCH                        =  0\r\n          ISECN                         =  2\r\n          IFCORD                        =  1\r\n          IFPLOT                        =  0\r\n          IPRINT                        =  3\r\n          ISPLIT                        =  0\r\n          INAST                         = -4\r\n          IRLE                          =  2\r\n          IRTE                          =  4\r\n          NSIGN                         =  1\r\n\r\n          ZINNER                        =  4.3840\r\n          ZOUTER                        = 10.0000\r\n          SCALE                         =  1.0000\r\n          STACKX                        =  0.0000\r\n          PLTSZE                        = 11.0000\r\n\r\n                    STREAMSURFACE GEOMETRY SPECIFICATION\r\n\r\n          COMPUTING STATION  1     NUMBER OF DESCRIBING POINTS=  2      IFANGS( 1)=  0\r\n\r\n      DESCRIPTION         STREAMLINE     RADII         DELTA PRESSURE\r\n      X         R           NUMBER\r\n\r\n\r\n    -2.0000    3.6000         1           3.6000           0.0000\r\n    -2.0000   10.0400         2           5.5000           0.0000\r\n                              3           7.4000           0.0000\r\n                              4          10.0400           0.0000\r\n\r\n          COMPUTING STATION  2     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 2)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII         DELTA PRESSURE\r\n      X         R           NUMBER\r\n\r\n\r\n    -0.8979    3.7817         1           3.7817           0.0000\r\n    -0.7726    5.4620         2           5.4620           0.0000\r\n    -0.6646    7.3404         3           7.3404           0.0000\r\n    -0.5238    9.9195         4           9.9195           0.0000\r\n1\r\n\r\n          COMPUTING STATION  3     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 3)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII         DELTA PRESSURE\r\n      X         R           NUMBER\r\n\r\n\r\n     0.0001    4.0007         1           4.0007           0.0000\r\n    -0.0031    5.5034         2           5.5034           0.0000\r\n    -0.0157    7.4058         3           7.4058           0.0000\r\n    -0.0320   10.0081         4          10.0081           0.0000\r\n\r\n          COMPUTING STATION  4     NUMBER OF DESCRIBING POINTS=  4      IFANGS( 4)=  1\r\n\r\n      DESCRIPTION         STREAMLINE     RADII         DELTA PRESSURE\r\n      X         R           NUMBER\r\n\r\n\r\n     0.8981    4.1868         1           4.1868           0.0000\r\n     0.7797    5.4935         2           5.4935           0.0000\r\n     0.6303    7.3480         3           7.3480           0.0000\r\n     0.4130    9.9364         4           9.9364           0.0000\r\n\r\n          COMPUTING STATION  5     NUMBER OF DESCRIBING POINTS=  2      IFANGS( 5)=  0\r\n\r\n      DESCRIPTION         STREAMLINE     RADII         DELTA PRESSURE\r\n      X         R           NUMBER\r\n\r\n\r\n     2.0000    4.4000         1           4.4000           0.0000\r\n     2.0000   10.0400         2           5.5000           0.0000\r\n                              3           7.4000           0.0000\r\n                              4          10.0400           0.0000\r\n\r\n                    SECTION GEOMETRY SPECIFICATION\r\n\r\n          STREAMLINE  INLET     OUTLET    Y2 LE/    Y2 TE/   LE RADIUS MAX THICK TE THICK  POINT OF  CHORD OR   X STACK   Y STACK\r\n           NUMBER     ANGLE     ANGLE   MAX VALUE MAX VALUE   /CHORD    /CHORD   /2*CHORD  MAX THICK AXIAL CD    OFFSET    OFFSET\r\n\r\n             1.00    -38.294    32.815    0.0000    0.0000   0.01615   0.09800   0.01559    0.5600    1.7960   0.047384 -0.024824\r\n             2.00    -43.100    -3.970    0.0000    0.0000   0.01243   0.07352   0.01351    0.5400    1.8504   0.004168 -0.022847\r\n             3.00    -50.878   -38.516    0.0000    0.0000   0.00912   0.03600   0.00966    0.4900    1.8642  -0.014945  0.026789\r\n             4.00    -66.635   -57.420    0.0000    0.0000   0.00480   0.02671   0.00427    0.4800    1.8696  -0.058721  0.087130\r\n\r\n\r\n                                        VOLUME OF BLADE SECTION = 8.4276E-01\r\n                                        ************************************\r\n\r\n\r\n\r\n1                                          BLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS\r\n                                           *******************************************\r\n1\r\n\r\n\r\n\r\n                                                STATION  2     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    3.7817    -40.7055     -2.2749      0.1198      0.0745\r\n                                    5.4620    -42.9006     -1.6628      0.0837      0.0870\r\n                                    7.3404    -51.9243     -2.5492      0.0407      0.0966\r\n                                    9.9195    -69.5253     -5.1198      0.0216      0.1167\r\n\r\n\r\n\r\n                                                STATION  3     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    4.0007     -1.3838     -2.4968      0.3003     -0.0129\r\n                                    5.5034    -23.1455     -0.6748      0.1837     -0.0041\r\n                                    7.4058    -44.8948     -0.6603      0.0874     -0.0022\r\n                                   10.0081    -62.9118     -2.7027      0.0730      0.0066\r\n\r\n\r\n\r\n                                                STATION  4     NUMBER OF RADII=  4\r\n\r\n                                    RADIUS     SECTION      LEAN         BLADE       THETA\r\n                                                ANGLE      ANGLE       BLOCKAGE\r\n\r\n                                    4.1868     39.9356     26.6940      0.0650      0.0588\r\n                                    5.4935     -6.1910     13.7222      0.0782     -0.0409\r\n                                    7.3480    -39.5714      2.8497      0.0469     -0.0812\r\n                                    9.9364    -59.0052     -5.7217      0.0386     -0.0738\r\n0          NASTRAN COMPRESSOR BLADE BULK DATA\r\n          ************************************\r\n\r\n\r\n0          *** BLADE GRID POINT DATA ***\r\n\r\n GRID           1         -0.8979 -0.2814  3.7712\r\n GRID           2          0.0001  0.0516  4.0003\r\n GRID           3          0.8981 -0.2461  4.1795\r\n GRID           4         -0.7726 -0.4744  5.4413\r\n GRID           5         -0.0031  0.0228  5.5033\r\n GRID           6          0.7797  0.2247  5.4889\r\n GRID           7         -0.6646 -0.7082  7.3062\r\n GRID           8         -0.0157  0.0164  7.4058\r\n GRID           9          0.6303  0.5962  7.3237\r\n GRID          10         -0.5238 -1.1552  9.8520\r\n GRID          11         -0.0320 -0.0657 10.0079\r\n GRID          12          0.4130  0.7329  9.9093\r\n1         DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS AND DATA FORMATTING\r\n          *********************************************************************\r\n          INPUT\r\n          *****\r\n\r\n          NRAD =  1  NDPTS =  5  NDATR =  1  NSWITCH = 2  NLE = 2  NTE =  4\r\n\r\n          XKSHPE = 1.0000  SPEED =  16042.8\r\n\r\n          AT LEADING EDGE (STATION,I3,9H) NOUT1 = 2  NOUT2 = 0  NOUT3 = 0\r\n*****\r\n\r\n          NRAD = 10  NDPTS =\r\n\r\n          STATION  3   NR =  1  NTERP = 0  NMACH = 0  NLOSS = 4  NL1 = -1  NL2 = -1  NEVAL = 0NCURVE = 1  NLITER =  0  NDEL = 0\r\n                      NOUT1 = 0  NOUT2 = 0  NOUT3 = 0  NBLAD =-43\r\n\r\n              RADIUS      LOSS DESCRIPTOR\r\n\r\n              0.0000         0.000000\r\n\r\n          STATION  4   NR =  8  NTERP = 0  NMACH = 0  NLOSS = 1  NL1 = -2  NL2 = -2  NEVAL =-1NCURVE = 0  NLITER =  0  NDEL = 2\r\n                      NOUT1 = 0  NOUT2 = 0  NOUT3 =20  NBLAD =-43\r\n\r\n              RADIUS      LOSS DESCRIPTOR\r\n\r\n              4.2000         0.050000\r\n              4.6200         0.050000\r\n              5.5000         0.050000\r\n              6.5000         0.050000\r\n              7.4000         0.050000\r\n              8.4000         0.050000\r\n              9.5000         0.050000\r\n             10.0000         0.050000\r\n\r\n          DEVIATION FRACTION CURVES AT 1 RADII\r\n\r\n          RTE =  0.0000\r\n\r\n               DM          DVFRAC\r\n\r\n             0.00000      0.00000\r\n             0.25000      0.25000\r\n             0.50000      0.50000\r\n             0.75000      0.75000\r\n             1.00000      1.00000\r\n\r\n               RDTE      DELTAD         AC\r\n\r\n              0.0000      0.000       0.5000\r\n\r\n          RESULTS\r\n          *******\r\n\r\n     STREAMLINE     BETA1      BETA2     CAMBER       T/C        A/C      SOLIDITY    ADDIT. DEVN    TOTAL DEVIATION\r\n\r\n          1        38.294    -32.815     71.108     0.0980     0.5000     3.08498        0.0000          -8.7939\r\n          2        43.100      3.970     39.130     0.0735     0.5000     2.31186        0.0000          -6.4771\r\n          3        50.878     38.516     12.362     0.0360     0.5000     1.73713        0.0000          -2.9103\r\n          4        66.635     57.420      9.216     0.0267     0.5000     1.28875        0.0000          -3.2501\r\nT\r\n1                                     PROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC SECTION\r\n                                      *****************************************************\r\n          INPUT DATA\r\n          **********\r\n\r\n          TITLE                                  = AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE                                \r\n\r\n          SPECIFIC HEAT AT CONSTANT PRESSURE     = 0.24000\r\n          GAS CONSTANT                           = 53.3200\r\n          GRAVITATIONAL CONSTANT                 = 32.1740\r\n          JOULES EQUIVALENT                      = 778.160\r\n\r\n\r\n          NUMBER OF STATIONS                     =  7\r\n          NUMBER OF STREAMLINES                  =  4\r\n          MAX NUMBER OF PASSES                   = 40\r\n          MAX NUMBER OF ARBITRARY PASSES         = 40\r\n          BOUNDARY LAYER CALC INDICATOR          =  0\r\n          NUMBER OF RUNNING POINTS               =  1\r\n          STREAMLINE DISTRIBUTION INDICATOR      =  0\r\n          NUMBER OF LOSS/D-FACTOR CURVE SETS     =  1\r\n          NUMBER OF LOSS/T.E.LOSS CURVE SETS     =  1\r\n          STREAMLINE INPUT INDICATOR             =  0\r\n          STREAMLINE OUTPUT INDICATOR            =  0\r\n          PRECISION PLOT INDICATOR               =  0\r\n          MAX NUMBER OF LINES/PAGE               = 60\r\n          WAKE TRANSPORT CALC INDICATOR          =  0\r\n          MAINSTREAM MIXING CALC INDICATOR       =  0\r\n          NO OF STATIONS FROM ANALYTIC SECN      =  3\r\n          LINE-PRINTER PLOT INDICATOR            =  0\r\n          MOMENTUM EQUATION FORM INDICATOR       =  0\r\n          STATION NUMBER AT LEADING EDGE         =  3\r\n          STATION NUMBER AT TRAILING EDGE        =  5\r\n          COMPRESSOR DIR. OF ROTATION INDICATOR  =  1\r\n\r\n\r\n          GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS  3  4  5\r\n\r\n\r\n          GRAVITATIONAL CONSTANT                 = 32.1740\r\n          JOULES EQUIVALENT                      = 778.160\r\n          LINEAR DIMENSION SCALE FACTOR          = 12.0000\r\n          BASIC TOLERANCE                        = 0.00100\r\n          KINEMATIC VISCOSITY                    = 0.00018\r\n          B.L. SHAPE FACTOR                      = 0.70000\r\n\r\n\r\n          PLOTTING SCALE FOR DIMENSIONS          =  1.000\r\n          PLOTTING SCALE FOR PRESSURES           =  1.000\r\n          MINIMUM RADIUS ON PLOT                 =  4.000\r\n          MINIMUM PRESSURE ON PLOT               =  0.000\r\n          MAXIMUM M-SQUARED IN RELAXATION FACTOR =  0.7000\r\n          CONSTANT IN RELAXATION FACTOR          =  8.0000\r\n\r\n\r\n          WAKE TRANSFER CONSTANT                 = 0.00000\r\n          TURBULENT MIXING CONSTANT              = 0.00000\r\n\r\n\r\n          POINTS TO BE COMPUTED\r\n\r\n          NO      FLOWRATE    SPEED FACTOR\r\n\r\n           1       73.146         1.000\r\n1\r\n\r\n\r\n          ANNULUS / COMPUTING STATION GEOMETRY\r\n\r\n          STATION  1  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -4.0000      3.2500\r\n               -4.0000     10.0400\r\n\r\n\r\n          STATION  2  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -2.0000      3.6000\r\n               -2.0000     10.0400\r\n\r\n\r\n          STATION  3  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n               -0.8979      3.7817\r\n               -0.7726      5.4620\r\n               -0.6646      7.3404\r\n               -0.5238      9.9195\r\n\r\n\r\n          STATION  4  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                0.0001      4.0007\r\n               -0.0031      5.5034\r\n               -0.0157      7.4058\r\n               -0.0320     10.0081\r\n\r\n\r\n          STATION  5  SPECIFIED BY  4 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                0.8981      4.1868\r\n                0.7797      5.4935\r\n                0.6303      7.3480\r\n                0.4130      9.9364\r\n\r\n\r\n          STATION  6  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                2.0000      4.4000\r\n                2.0000     10.0400\r\n\r\n\r\n          STATION  7  SPECIFIED BY  2 POINTS\r\n\r\n                 XSTN        RSTN\r\n\r\n                4.0000      4.7500\r\n                4.0000     10.0400\r\n1\r\n\r\n\r\n          STATION CALCULATION DATA\r\n\r\n       STATION  1  NDATA=  1 NTERP= 0 NDIMEN= 0 NMACH= 0\r\n\r\n           DATAC      TOTAL PRESSURE    TOTAL TEMPERATURE    WHIRL ANGLE\r\n\r\n           3.2500        14.7000            518.700             0.000\r\n\r\n\r\n       STATION  2  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n\r\n\r\n       STATION  3  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3=10 NBLADE=  0\r\n\r\n\r\n          SPEED =     0.00\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             3.7817     -40.706     0.000000    -2.2669     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             5.4620     -42.901     0.000000    -1.6593     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             7.3404     -51.924     0.000000    -2.5454     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n             9.9195     -69.525     0.000000    -5.1121     0.00000     0.00000      0.0000      0.0000      0.0000      0.0000\r\n\r\n\r\n       STATION  4  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 4 NL1= -1 NL2= -1 NEVAL= 0 NCURVE= 1 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=-43\r\n\r\n\r\n          SPEED = 16042.80\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             4.0007      -1.384     0.000000    -2.4968     0.30029     3.08498     -4.4142      0.0000      0.0000      0.0000\r\n             5.5034     -23.145     0.000000    -0.6747     0.18375     2.31186     -3.2130      0.0000      0.0000      0.0000\r\n             7.4058     -44.895     0.000000    -0.6603     0.08740     1.73713     -1.4591      0.0000      0.0000      0.0000\r\n            10.0081     -62.912     0.000000    -2.7027     0.07300     1.28875     -1.7086      0.0000      0.0000      0.0000\r\n\r\n\r\n       STATION  5  NDATA=  4 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 6 NLOSS= 1 NL1= -2 NL2= -2 NEVAL=-1 NCURVE= 0 NLITER=  0 NDEL=  2\r\n                   NOUT1= 0 NOUT2= 0 NOUT3=20 NBLADE=-43\r\n\r\n\r\n          SPEED = 16042.80\r\n\r\n             DATAC       DATA1       DATA2       DATA3       DATA4       DATA5       DATA6       DATA7       DATA8       DATA9\r\n\r\n             4.1868      39.936     0.050000    26.5881     0.06497     3.08498     -8.7939      0.0000      0.0000      0.0000\r\n             5.4935      -6.191     0.050000    13.6748     0.07824     2.31186     -6.4771      0.0000      0.0000      0.0000\r\n             7.3480     -39.571     0.050000     2.8407     0.04689     1.73713     -2.9103      0.0000      0.0000      0.0000\r\n             9.9364     -59.005     0.050000    -5.6998     0.03857     1.28875     -3.2501      0.0000      0.0000      0.0000\r\n\r\n\r\n             DELC        DELTA\r\n\r\n             4.0000      0.0000\r\n            10.0000      1.0000\r\n\r\n\r\n       STATION  6  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n\r\n\r\n       STATION  7  NDATA=  0 NTERP= 0 NDIMEN= 0 NMACH= 0 NWORK= 0 NLOSS= 0 NL1=  0 NL2=  0 NEVAL= 0 NCURVE= 0 NLITER=  0 NDEL=  0\r\n                   NOUT1= 0 NOUT2= 0 NOUT3= 0 NBLADE=  0\r\n1\r\n\r\n\r\n          BLOCKAGE FACTOR SPECIFICATIONS\r\n\r\n          STATION   WALL BLOCKAGE   WAKE BLOCKAGE   WAKE DISTRIBUTION FACTOR\r\n\r\n             1         0.00000         0.00000              0.000\r\n             2         0.00000         0.00000              0.000\r\n             3         0.00000         0.00000              0.000\r\n             4         0.00000         0.00000              0.000\r\n             5         0.00000         0.00000              0.000\r\n             6         0.00000         0.00000              0.000\r\n             7         0.00000         0.00000              0.000\r\n\r\n\r\n          LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE TYPE 1    6 D-FACTORS GIVEN\r\n\r\n               DIFFUSION     L O S S   P A R A M E T E R S\r\n                FACTORS        HUB         MID        TIP\r\n\r\n                  0.000      0.00600     0.00600    0.00600\r\n                  0.200      0.00700     0.00700    0.00700\r\n                  0.400      0.01400     0.01400    0.01400\r\n                  0.600      0.03000     0.03100    0.03100\r\n                  0.800      0.06000     0.06000    0.06000\r\n                  1.000      0.12500     0.12500    0.12500\r\n\r\n\r\n          FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE CLASS 1    2 POINTS GIVEN AT  1 RADIAL LOCATIONS\r\n\r\n          FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT = 0.0000\r\n\r\n          FRACTION OF MERIDIONAL CHORD    LOSS/LOSS AT TRAILING EDGE\r\n\r\n                    0.0000                         0.0000\r\n                    1.0000                         0.0000\r\n1         OUTPUT FOR POINT NO. 1\r\n          **********************\r\n\r\n\r\n          STATION  1  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.2500    -4.0000     0.0000     551.60       0.00     543.34      95.09     551.60       0.00      9.926      0.000\r\n     2        5.5257    -4.0000     2.2757     551.16       0.00     548.06      58.39     551.16       0.00      6.081      0.000\r\n     3        7.7859    -4.0000     4.5359     552.92       0.00     552.24      27.32     552.92       0.00      2.832      0.000\r\n     4       10.0400    -4.0000     6.7900     553.71       0.00     553.71       0.00     553.71       0.00      0.000      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.5068    14.7000    12.3366    518.700    493.382    0.067528   124.488    118.412    0.975611     0.000      9.926\r\n     2        0.5064    14.7000    12.3401    518.700    493.422    0.067542   124.488    118.421    0.975611     0.000      6.081\r\n     3        0.5081    14.7000    12.3260    518.700    493.260    0.067487   124.488    118.382    0.975611     0.000      2.832\r\n     4        0.5088    14.7000    12.3196    518.700    493.187    0.067462   124.488    118.365    0.975611     0.000      0.000\r\n\r\n\r\n          STATION  2  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.6000    -2.0000     0.0000     545.85       0.00     538.14      91.43     545.85    -159.07      9.643      0.000\r\n     2        5.7387    -2.0000     2.1387     558.08       0.00     553.15      74.01     558.08      30.56      7.621      0.000\r\n     3        7.8849    -2.0000     4.2849     593.26       0.00     591.98      38.85     593.26      52.41      3.755      0.000\r\n     4       10.0400    -2.0000     6.4400     576.75       0.00     576.27     -23.49     576.75     -21.36     -2.334      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.5013    14.7000    12.3826    518.700    493.907    0.067708   124.488    118.538    0.975611     0.000      9.643\r\n     2        0.5131    14.7000    12.2842    518.700    492.783    0.067323   124.488    118.268    0.975611     0.000      7.621\r\n     3        0.5473    14.7000    11.9925    518.700    489.413    0.066177   124.488    117.459    0.975611     0.000      3.755\r\n     4        0.5312    14.7000    12.1310    518.700    491.020    0.066722   124.488    117.845    0.975611     0.000     -2.334\r\n\r\n\r\n          STATION  3  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        3.7817    -0.8979     0.0000     486.04       0.00     476.22      97.17     486.04      13.46     11.532      4.382\r\n     2        5.9416    -0.7423     2.1655     579.59       0.00     566.00     124.75     579.59       8.93     12.429      3.592\r\n     3        7.9971    -0.6291     4.2241     636.66       0.00     632.74      70.54     636.66      16.94      6.361      3.023\r\n     4        9.9195    -0.5238     6.1494     780.64       0.00     779.72      37.83     780.64       3.81      2.778      3.195\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.4440    14.7000    12.8395    518.700    499.043    0.069484   124.488    119.770    0.975611     0.000     15.914\r\n     2        0.5339    14.7000    12.1074    518.700    490.747    0.066629   124.488    117.779    0.975611     0.000     16.022\r\n     3        0.5900    14.7000    11.6156    518.700    484.971    0.064684   124.488    116.393    0.975611     0.000      9.385\r\n     4        0.7364    14.7000    10.2524    518.700    467.991    0.059165   124.488    112.318    0.975611     0.000      5.972\r\n1\r\n\r\n          STATION  3 IS AT THE LEADING EDGE OF A BLADE ROATING AT  16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          ***************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE   RELATIVE   RELATIVE  INCIDENCE    BLADE      LEAN    PRESS DIFF\r\n  -LINE       SPEED     VELOCITY   MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE\r\n\r\n     1        529.43     718.70     0.6566    -47.447      8.033    -39.414     -2.267     2.3391\r\n     2        831.82    1013.83     0.9340    -55.132     11.848    -43.285     -1.729     5.1909\r\n     3       1119.59    1287.95     1.1936    -60.375      4.688    -55.687     -3.119     8.9959\r\n     4       1388.72    1593.09     1.5029    -60.659     -8.763    -69.421     -5.112    15.9739\r\n\r\n\r\n          STATION  4  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.0007     0.0001     0.0000     577.28     507.40     563.14     126.98     768.57     -26.41     12.707     -0.112\r\n     2        6.1483    -0.0066     2.1477     498.21     529.75     491.15      83.60     727.22      -3.54      9.660     -0.316\r\n     3        8.0831    -0.0204     4.0825     480.51     526.81     476.44      62.43     713.04     -29.79      7.465     -0.407\r\n     4       10.0081    -0.0320     6.0076     405.05     547.51     405.03       3.75     681.05      -1.40      0.531     -0.316\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.6899    19.9552    14.5164    565.996    516.842    0.075853   135.839    124.042    0.975611    41.314     12.595\r\n     2        0.6325    23.7142    18.1151    594.583    550.576    0.088858   142.700    132.138    0.975610    46.757      9.344\r\n     3        0.6065    27.1360    21.1669    617.910    575.603    0.099313   148.298    138.145    0.975611    47.632      7.058\r\n     4        0.5638    31.7718    25.6085    646.369    607.773    0.113793   155.129    145.865    0.975610    53.506      0.215\r\n\r\n          STATION  4 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          *************************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE    RELATIVE   RELATIVE  DEVIATION    BLADE      LEAN    PRESS DIFF    LOSS     DIFFUSION   DELTA P\r\n  -LINE       SPEED     VELOCITY    MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE  COEFF      FACTOR     ON Q\r\n\r\n     1        560.09     579.68     0.5204     -5.215      4.414     -0.801     -2.497     2.6290    0.00000    0.3009     0.3892\r\n     2        860.77     598.15     0.5202    -33.596      2.555    -31.041     -0.393     3.6048   -0.00001    0.5294     0.6568\r\n     3       1131.63     772.46     0.6571    -51.531      1.243    -50.288     -1.070     5.6138    0.00000    0.5250     0.5855\r\n     4       1401.14     944.86     0.7822    -64.615      1.709    -62.907     -2.703     6.0981    0.00000    0.5372     0.5577\r\n\r\n  STREAM       INLET THROUGH STATION  4       STATION  3 THROUGH STATION  4     MEAN VALUES      INLET TO STA. 4   STA. 3 TO STA. 4\r\n  -LINE      PRESSURE  ISENTROPIC  DELTA H    PRESSURE  ISENTROPIC  DELTA H     PRESSURE RATIO        1.7985             1.7985\r\n               RATIO   EFFICIENCY  ON H1        RATIO   EFFICIENCY  ON H1       ISEN EFFY             1.0129             1.0129\r\n                                                                                DELTA H ON H1         0.1801             0.1801\r\n     1        1.3575    1.0000     0.0912      1.3575    1.0000     0.0912\r\n     2        1.6132    1.0000     0.1463      1.6132    1.0000     0.1463\r\n     3        1.8460    1.0000     0.1913      1.8460    1.0000     0.1913\r\n     4        2.1613    1.0000     0.2461      2.1613    1.0000     0.2461\r\n1\r\n\r\n\r\n          STATION  5  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.1868     0.8981     0.0000     484.16     839.38     474.72      95.12     969.01     -77.38     11.331     -5.158\r\n     2        6.1944     0.7217     2.0155     397.17     650.34     395.20      39.47     762.02      13.91      5.703     -4.748\r\n     3        8.1537     0.5645     3.9810     468.25     589.54     466.60      39.29     752.87     -14.00      4.814     -4.666\r\n     4        9.9364     0.4130     5.7701     484.80     471.75     484.25     -22.95     676.44       4.53     -2.713     -4.955\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.8652    24.2643    14.8922    600.580    522.447    0.076982   144.139    125.387    0.976448    60.023      6.173\r\n     2        0.6547    25.7718    19.3266    612.555    564.236    0.092505   147.013    135.417    0.977056    58.587      0.955\r\n     3        0.6360    28.3219    21.5718    630.694    583.529    0.099838   151.366    140.047    0.977594    51.541      0.148\r\n     4        0.5684    27.6635    22.2203    627.915    589.839    0.101739   150.699    141.561    0.978146    44.218     -7.668\r\n\r\n          STATION  5 IS WITHIN OR AT THE TRAILING EDGE OF A BLADE ROTATING AT 16042.8 RPM  NUMBER OF BLADES IN ROW = 43\r\n          *************************************************************************************************************\r\n\r\n  STREAM      BLADE     RELATIVE    RELATIVE   RELATIVE  DEVIATION    BLADE      LEAN    PRESS DIFF    LOSS     DIFFUSION   DELTA P\r\n  -LINE       SPEED     VELOCITY    MACH NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE  COEFF      FACTOR     ON Q\r\n\r\n     1        586.14     546.39     0.4878     27.611      8.794     36.405     26.588     0.0000    0.05000    0.4163     0.4764\r\n     2        867.22     452.53     0.3888    -28.633      4.977    -23.656      8.623     0.0000    0.05000    0.7029     0.7893\r\n     3       1141.52     723.84     0.6115    -49.690      2.406    -47.284     -0.213     0.0000    0.05000    0.5773     0.6104\r\n     4       1391.09    1039.34     0.8734    -62.196      3.250    -58.946     -5.700     0.0000    0.05000    0.4619     0.4346\r\n\r\n  STREAM       INLET THROUGH STATION  5       STATION  3 THROUGH STATION  5     MEAN VALUES      INLET TO STA. 5   STA. 3 TO STA. 5\r\n  -LINE      PRESSURE  ISENTROPIC  DELTA H    PRESSURE  ISENTROPIC  DELTA H     PRESSURE RATIO        1.8384             1.8384\r\n               RATIO   EFFICIENCY  ON H1        RATIO   EFFICIENCY  ON H1       ISEN EFFY             0.9557             0.9557\r\n                                                                                DELTA H ON H1         0.1987             0.1987\r\n     1        1.6506    0.9745     0.1579      1.6506    0.9745     0.1579\r\n     2        1.7532    0.9608     0.1809      1.7532    0.9608     0.1809\r\n     3        1.9267    0.9536     0.2159      1.9267    0.9536     0.2159\r\n     4        1.8819    0.9396     0.2106      1.8819    0.9396     0.2106\r\n\r\n\r\n          STATION  6  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.4000     2.0000     0.0000     415.70     798.70     408.82      75.33     900.41     -87.95     10.440      0.000\r\n     2        6.3692     2.0000     1.9692     388.35     632.48     385.38      47.97     742.19     -68.78      7.096      0.000\r\n     3        8.2225     2.0000     3.8225     469.19     584.59     468.57      24.21     749.60     227.65      2.958      0.000\r\n     4       10.0400     2.0000     5.6400     415.33     466.88     415.11      13.54     624.88     -27.53      1.868      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.7958    24.2643    15.9851    600.580    533.118    0.080978   144.139    127.948    0.976448    62.504     10.440\r\n     2        0.6363    25.7718    19.6261    612.555    566.719    0.093528   147.013    136.012    0.977056    58.449      7.096\r\n     3        0.6331    28.3219    21.6248    630.694    583.937    0.100013   151.366    140.145    0.977594    51.250      2.958\r\n     4        0.5226    27.6635    22.9658    627.915    595.422    0.104167   150.699    142.901    0.978146    48.344      1.868\r\n1\r\n\r\n\r\n          STATION  7  FLOW-FIELD DESCRIPTION\r\n          **********************************\r\n\r\n  STREAM      -----MESH-POINT COORDS------   ----------------V E L O C I T I E S,16(1H-)    RADIUS OF  STREAMLINE   STATION\r\n  -LINE       RADIUS    X-COORD    L-COORD   MERIDIONAL TANGENTIAL   AXIAL      RADIAL    TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE\r\n\r\n     1        4.7500     4.0000     0.0000     395.28     739.85     389.36      68.14     838.82       0.00      9.926      0.000\r\n     2        6.5938     4.0000     1.8438     401.05     610.91     398.54      44.76     730.79       0.00      6.408      0.000\r\n     3        8.3334     4.0000     3.5834     490.59     576.80     489.84      27.16     757.22       0.00      3.174      0.000\r\n     4       10.0400     4.0000     5.2900     453.10     466.88     453.10       0.00     650.60       0.00      0.000      0.000\r\n\r\n  STREAM       MACH      ----PRESSURES----     ---TEMPERATURES--    SPECIFIC    ---ENTHALPIES----    ENTROPY      FLOW   (PHI+GAMMA)\r\n  -LINE       NUMBER     TOTAL      STATIC     TOTAL      STATIC     WEIGHT     TOTAL      STATIC                ANGLE\r\n\r\n     1        0.7353    24.2643    16.9409    600.580    542.030    0.084408   144.139    130.087    0.976448    61.886      9.926\r\n     2        0.6257    25.7718    19.7961    612.555    568.116    0.094106   147.013    136.348    0.977056    56.716      6.408\r\n     3        0.6400    28.3219    21.5011    630.694    582.982    0.099604   151.366    139.916    0.977594    49.618      3.174\r\n     4        0.5454    27.6635    22.5992    627.915    592.693    0.102976   150.699    142.246    0.978146    45.858      0.000\r\n\r\n          POINT NO  1   PASS 27   THE CALCULATION IS CONVERGED\r\n          ****************************************************\r\n          SPEED FACTOR =     1.000  FLOW =  73.146  TOTAL PRESSURE RATIO =  1.838  ISENTROPIC EFFICIENCY =0.9557  POWER = 0.2560E+04\r\n\r\n          DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS  3 AND  5\r\n          *************************************************************\r\n\r\n\r\n NAME   CODE    DELTA P   ELEMENT       MESHPOINTS -  J   I         J   I         J   I\r\n\r\n PLOAD2   60    -3.44096      1                       2   3         2   4         1   3\r\n PLOAD2   60    -3.44096      2                       1   3         2   4         1   4\r\n PLOAD2   60    -1.55845      3                       1   4         2   4         2   5\r\n PLOAD2   60    -1.55845      4                       1   4         2   5         1   5\r\n PLOAD2   60    -5.85137      5                       3   3         3   4         2   3\r\n PLOAD2   60    -5.85137      6                       2   3         3   4         2   4\r\n PLOAD2   60    -2.30466      7                       2   4         3   4         3   5\r\n PLOAD2   60    -2.30466      8                       2   4         3   5         2   5\r\n PLOAD2   60    -9.17045      9                       4   3         4   4         3   3\r\n PLOAD2   60    -9.17045     10                       3   3         4   4         3   4\r\n PLOAD2   60    -2.92799     11                       3   4         4   4         4   5\r\n PLOAD2   60    -2.92799     12                       3   4         4   5         3   5\r\n\r\n\r\n NAME   CODE    DELTA T   NODE          MESHPOINTS -  J   I   COORDINATES -   RADIAL       AXIAL\r\n\r\n TEMP     70   542.02399     1                        1   3                    3.7817     -0.8979\r\n TEMP     70   544.80365     2                        1   4                    4.0007      0.0001\r\n TEMP     70   547.28864     3                        1   5                    4.1868      0.8981\r\n TEMP     70   576.27594     4                        2   3                    5.9416     -0.7423\r\n TEMP     70   580.34808     5                        2   4                    6.1483     -0.0066\r\n TEMP     70   581.27612     6                        2   5                    6.1944      0.7217\r\n TEMP     70   623.00360     7                        3   3                    7.9971     -0.6291\r\n TEMP     70   625.25494     8                        3   4                    8.0831     -0.0204\r\n TEMP     70   627.12671     9                        3   5                    8.1537      0.5645\r\n TEMP     70   679.17810    10                        4   3                    9.9195     -0.5238\r\n TEMP     70   682.06042    11                        4   4                   10.0081     -0.0320\r\n TEMP     70   679.72583    12                        4   5                    9.9364      0.4130\r\n\r\n\r\n          NASTRAN - STREAML2 - COMPRESSOR BLADE BULK DATA\r\n          *************************************************\r\n  SLN  NSTNS  STAGGER    CHORD    RADIUS    BSPACE     MACH       DEN       VEL      FLOWA\r\n\r\n    1     3     2.739   1.79600   3.98420   0.58217  0.656569  0.069484     718.7    47.447\r\n    2     3    23.535   1.85044   6.06801   0.88666  0.933978  0.066629    1013.8    55.132\r\n    3     3    44.697   1.86418   8.07539   1.17998  1.193555  0.064684    1287.9    60.375\r\n    4     3    62.027   1.86955   9.92792   1.45067  1.502882  0.059165    1593.1    60.659\r\n1\r\n\r\n        LOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN STATIONS  3 AND  5 - FOR PURPOSES OF COMPARISON ONLY   BLADE TYPE 1\r\n        ********************************************************************************************************************\r\n\r\n     STREAM  INLET   OUTLET  CASCADE   DIFF       LOSS   DIFFUSION  BLADE  INCIDENCE  EXPANSION INLET  EXPANDED SHOCK   TOTAL\r\n     -LINE   RADIUS  RADIUS  SOLIDITY  FACTOR  PARAMETER   LOSS     ANGLE    ANGLE      ANGLE    M.NO  MACH NO   LOSS   LOSS \r\n\r\n        1     3.782   4.187   3.0850   0.4163   0.01495  0.10410   39.414    8.033     7.997    0.6566  1.3653 0.00000  0.10410\r\n        2     5.942   6.194   2.0315   0.7030   0.04230  0.19581   43.285   11.848    12.171    0.9340  1.5089 0.01110  0.20691\r\n        3     7.997   8.154   1.5818   0.5773   0.02886  0.14114   55.687    4.688     5.354    1.1936  1.3919 0.03319  0.17434\r\n        4     9.919   9.936   1.2887   0.4619   0.01490  0.08232   69.421   -8.763    -7.776    1.5029  1.2263 0.04589  0.12821\r\nS\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    44\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             2      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             3      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             4      G     -7.302602E-03   1.202158E-02   6.582438E-03   5.918485E-04  -2.696892E-02  -1.107698E-02                  \r\n             5      G     -2.592364E-03   4.374210E-03   4.859276E-03  -4.395328E-03  -6.154217E-03  -1.278556E-02                  \r\n             6      G     -1.758622E-04  -6.110481E-03   4.614662E-03   6.014257E-03  -1.254696E-02  -1.251412E-02                  \r\n             7      G     -2.597208E-02   3.013275E-02   1.231037E-02   0.0            0.0           -2.683479E-02                  \r\n             8      G     -6.600582E-03   1.359512E-02   8.193831E-03  -2.700828E-02   3.200597E-02  -2.322220E-02                  \r\n             9      G      6.331908E-03  -8.768180E-04   6.375103E-03  -6.616825E-03   1.053808E-02  -2.678569E-02                  \r\n            10      G     -1.179583E-01   7.018144E-02   2.896315E-02   0.0            0.0           -1.059000E-01                  \r\n            11      G     -2.141758E-02   3.732414E-02   1.114722E-02  -2.170132E-01   1.174836E-01  -3.989148E-02                  \r\n            12      G     -9.971106E-04   2.616470E-02   5.976629E-03   0.0            0.0           -3.157181E-02                  \r\n           101      G      1.650704E-03   1.226905E-03   7.036452E-05   0.0            0.0            0.0                           \r\n           103      G      1.596748E-03   1.033213E-03  -6.209120E-05   0.0            0.0            0.0                           \r\n           104      G      1.593895E-03   1.032435E-03  -6.186279E-05   0.0            0.0            0.0                           \r\n           105      G      1.596748E-03   1.033213E-03  -6.209120E-05   0.0            0.0            0.0                           \r\n           107      G      1.650704E-03   1.226905E-03   7.036452E-05   0.0            0.0            0.0                           \r\n           108      G      1.646090E-03   1.228372E-03   7.104970E-05   0.0            0.0            0.0                           \r\n           113      G      2.018123E-03   2.586640E-03   2.696627E-04   0.0            0.0            0.0                           \r\n           115      G      2.011074E-03   2.550337E-03   2.015756E-04   0.0            0.0            0.0                           \r\n           116      G      2.346206E-04  -2.567862E-03   2.054804E-03   0.0            0.0            0.0                           \r\n           117      G      2.011074E-03   2.550337E-03   2.015756E-04   0.0            0.0            0.0                           \r\n           119      G      2.018123E-03   2.586640E-03   2.696627E-04   0.0            0.0            0.0                           \r\n           120      G      2.346206E-04  -2.567862E-03   2.054804E-03   0.0            0.0            0.0                           \r\n           121      G      1.292570E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G      1.336771E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G      1.337239E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G      1.336771E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G      1.292570E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G      1.293070E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    45\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             2      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             3      G      2.346206E-04  -2.567862E-03   2.054804E-03  -4.456568E-03   1.062913E-03   1.031745E-03                  \r\n             4      G     -7.302602E-03   1.202158E-02   6.582438E-03   5.918485E-04  -2.696892E-02  -1.107698E-02                  \r\n             5      G     -2.592364E-03   4.374210E-03   4.859276E-03  -4.395328E-03  -6.154217E-03  -1.278556E-02                  \r\n             6      G     -1.758622E-04  -6.110481E-03   4.614662E-03   6.014257E-03  -1.254696E-02  -1.251412E-02                  \r\n             7      G     -2.597208E-02   3.013275E-02   1.231037E-02   0.0            0.0           -2.683479E-02                  \r\n             8      G     -6.600582E-03   1.359512E-02   8.193831E-03  -2.700828E-02   3.200597E-02  -2.322220E-02                  \r\n             9      G      6.331908E-03  -8.768180E-04   6.375103E-03  -6.616825E-03   1.053808E-02  -2.678569E-02                  \r\n            10      G     -1.179583E-01   7.018144E-02   2.896315E-02   0.0            0.0           -1.059000E-01                  \r\n            11      G     -2.141758E-02   3.732414E-02   1.114722E-02  -2.170132E-01   1.174836E-01  -3.989148E-02                  \r\n            12      G     -9.971106E-04   2.616470E-02   5.976629E-03   0.0            0.0           -3.157181E-02                  \r\n           101      G      1.650704E-03   1.226905E-03   7.036452E-05   0.0            0.0            0.0                           \r\n           103      G      1.596748E-03   1.033213E-03  -6.209120E-05   0.0            0.0            0.0                           \r\n           104      G      1.593895E-03   1.032435E-03  -6.186279E-05   0.0            0.0            0.0                           \r\n           105      G      1.596748E-03   1.033213E-03  -6.209120E-05   0.0            0.0            0.0                           \r\n           107      G      1.650704E-03   1.226905E-03   7.036452E-05   0.0            0.0            0.0                           \r\n           108      G      1.646090E-03   1.228372E-03   7.104970E-05   0.0            0.0            0.0                           \r\n           113      G      2.018123E-03   2.586640E-03   2.696627E-04   0.0            0.0            0.0                           \r\n           115      G      2.011074E-03   2.550337E-03   2.015756E-04   0.0            0.0            0.0                           \r\n           116      G      2.346206E-04  -2.567862E-03   2.054804E-03   0.0            0.0            0.0                           \r\n           117      G      2.011074E-03   2.550337E-03   2.015756E-04   0.0            0.0            0.0                           \r\n           119      G      2.018123E-03   2.586640E-03   2.696627E-04   0.0            0.0            0.0                           \r\n           120      G      2.346206E-04  -2.567862E-03   2.054804E-03   0.0            0.0            0.0                           \r\n           121      G      1.292570E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           123      G      1.336771E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           124      G      1.337239E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           125      G      1.336771E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           127      G      1.292570E-03   0.0            0.0            0.0            0.0            0.0                           \r\n           128      G      1.293070E-03   0.0            0.0            0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    46\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             7      G      0.0            0.0            0.0            4.001146E+01   5.800446E+01   0.0                           \r\n            10      G      0.0            0.0            0.0            6.963536E+00   2.038683E+01   0.0                           \r\n            12      G      0.0            0.0            0.0            4.055984E+00   4.510184E+00   0.0                           \r\n           121      G      0.0            3.451873E+04  -4.134268E+03   0.0            0.0            0.0                           \r\n           123      G      0.0            3.069117E+04   4.855215E+02   0.0            0.0            0.0                           \r\n           124      G      0.0           -4.287852E+03   4.672181E+03   0.0            0.0            0.0                           \r\n           125      G      0.0           -3.494844E+04   4.170538E+03   0.0            0.0            0.0                           \r\n           127      G      0.0           -3.181861E+04  -5.212381E+02   0.0            0.0            0.0                           \r\n           128      G      0.0            2.901672E+03  -4.634374E+03   0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    47\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                               F O R C E S   O F   S I N G L E - P O I N T   C O N S T R A I N T\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             7      G      0.0            0.0            0.0            4.001146E+01   5.800446E+01   0.0                           \r\n            10      G      0.0            0.0            0.0            6.963536E+00   2.038683E+01   0.0                           \r\n            12      G      0.0            0.0            0.0            4.055984E+00   4.510184E+00   0.0                           \r\n           121      G      0.0            3.451873E+04  -4.134268E+03   0.0            0.0            0.0                           \r\n           123      G      0.0            3.069117E+04   4.855215E+02   0.0            0.0            0.0                           \r\n           124      G      0.0           -4.287852E+03   4.672181E+03   0.0            0.0            0.0                           \r\n           125      G      0.0           -3.494844E+04   4.170538E+03   0.0            0.0            0.0                           \r\n           127      G      0.0           -3.181861E+04  -5.212381E+02   0.0            0.0            0.0                           \r\n           128      G      0.0            2.901672E+03  -4.634374E+03   0.0            0.0            0.0                           \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    48\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 2 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1          6.086863E+00         -2.961967E+00         -1.838467E+01         -2.613809E+01         -1.852490E+01      \r\n               2         -2.209168E+01         -2.027921E+01          1.450272E+01          3.107613E+01         -4.676252E+01      \r\n               3          1.642318E+01         -1.566589E+01         -1.388076E+01          1.115919E+01         -6.170772E+01      \r\n               4         -2.463994E-01          2.798222E+01          1.212089E+01         -7.961246E+01          1.364262E+01      \r\n               5          1.547767E+01          1.283455E+00          7.526836E-01         -8.601692E+00         -1.538379E+01      \r\n               6          6.746757E+00          3.481077E+00          3.790626E+00         -3.375283E+01          1.573044E+01      \r\n               7          8.060553E+00          2.151536E+00          6.596775E-01         -1.227872E+01          1.733340E+01      \r\n               8          3.810172E+00         -1.634067E+00          5.911563E+00          1.145445E+01         -3.854065E-01      \r\n               9          4.777577E+00         -6.720068E+00         -4.124002E-01         -1.694479E+01         -7.346954E+00      \r\n              10         -1.924495E+00         -3.107365E+00          5.773415E-01         -8.471180E+00          9.258308E+00      \r\n              11          3.925329E-02         -3.553294E+00          1.802838E+00         -1.381578E+01          1.762703E+01      \r\n              12          1.066479E+00         -1.321185E+00          3.221881E-01          1.414770E+00         -6.362452E+00      \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    49\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                     F O R C E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S        ( C T R I A 2 )\r\n0        ELEMENT           BEND-MOMENT           BEND-MOMENT          TWIST-MOMENT             SHEAR                 SHEAR\r\n           ID.                 X                     Y                                           X                     Y\r\n               1          6.086863E+00         -2.961967E+00         -1.838467E+01         -2.613809E+01         -1.852490E+01      \r\n               2         -2.209168E+01         -2.027921E+01          1.450272E+01          3.107613E+01         -4.676252E+01      \r\n               3          1.642318E+01         -1.566589E+01         -1.388076E+01          1.115919E+01         -6.170772E+01      \r\n               4         -2.463994E-01          2.798222E+01          1.212089E+01         -7.961246E+01          1.364262E+01      \r\n               5          1.547767E+01          1.283455E+00          7.526836E-01         -8.601692E+00         -1.538379E+01      \r\n               6          6.746757E+00          3.481077E+00          3.790626E+00         -3.375283E+01          1.573044E+01      \r\n               7          8.060553E+00          2.151536E+00          6.596775E-01         -1.227872E+01          1.733340E+01      \r\n               8          3.810172E+00         -1.634067E+00          5.911563E+00          1.145445E+01         -3.854065E-01      \r\n               9          4.777577E+00         -6.720068E+00         -4.124002E-01         -1.694479E+01         -7.346954E+00      \r\n              10         -1.924495E+00         -3.107365E+00          5.773415E-01         -8.471180E+00          9.258308E+00      \r\n              11          3.925329E-02         -3.553294E+00          1.802838E+00         -1.381578E+01          1.762703E+01      \r\n              12          1.066479E+00         -1.321185E+00          3.221881E-01          1.414770E+00         -6.362452E+00      \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    50\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                    S T R E S S E S   I N   S O L I D   H E X A H E D R O N   E L E M E N T S   ( C H E X A 1 )\r\n \r\n                                                                                                           OCTAHEDRAL    PRESSURE\r\n      ELEMENT-ID        SIGMA-XX      SIGMA-YY      SIGMA-ZZ       TAU-YZ        TAU-XZ        TAU-XY        TAU-0          P\r\n             201      8.289883E+03  1.875911E+04  1.485598E+04 -7.958457E+02  8.667183E+02  1.779021E+03  4.657726E+03 -1.396833E+04\r\n             202      8.262270E+03  1.855342E+04  1.515395E+04 -2.902549E+03  8.701763E+02  1.799047E+03  5.158282E+03 -1.398988E+04\r\n             203      1.327659E+04  2.930491E+04  1.894422E+04 -3.239520E+03  3.050317E+01  2.974962E+03  7.545768E+03 -2.050857E+04\r\n             204      1.333471E+04  2.892952E+04  1.950895E+04 -3.636430E+03 -1.909380E+02  2.923000E+03  7.460197E+03 -2.059106E+04\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    51\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -5.200000E-02      3.868979E+04  -4.928805E+02   2.071134E+03     3.0174    3.879896E+04   -6.020508E+02   1.970051E+04 \r\n             5.200000E-02      3.193661E+04   2.793326E+03   2.246833E+04    28.5175    4.414479E+04   -9.414848E+03   2.677982E+04 \r\n0       2   -5.200000E-02      6.116189E+03   4.998772E+04   1.105540E+04    76.6262    5.261615E+04    3.487758E+03   2.456420E+04 \r\n             5.200000E-02      3.062619E+04   7.248684E+04  -5.034890E+03   -83.2371    7.308391E+04    3.002912E+04   2.152739E+04 \r\n0       3   -5.200000E-02      4.609596E+04   1.096560E+04   1.872785E+04    23.4174    5.420700E+04    2.854566E+03   2.567621E+04 \r\n             5.200000E-02      2.787498E+04   2.834640E+04   3.412810E+04    45.1979    6.223961E+04   -6.018223E+03   3.412891E+04 \r\n0       4   -5.200000E-02      8.834335E+03   4.542609E+04   1.711337E+04    68.4564    5.218229E+04    2.078139E+03   2.505207E+04 \r\n             5.200000E-02      9.107708E+03   1.438073E+04   3.665635E+03    62.8628    1.625954E+04    7.228904E+03   4.515316E+03 \r\n0       5   -3.535000E-02      5.005336E+04   6.442619E+03   1.238592E+04    14.7988    5.332557E+04    3.170402E+03   2.507759E+04 \r\n             3.535000E-02      1.289572E+04   3.361396E+03   1.057894E+04    32.8712    1.973199E+04   -3.474879E+03   1.160344E+04 \r\n0       6   -3.535000E-02      1.321711E+04   6.123563E+04  -5.667010E+03   -83.3596    6.189538E+04    1.255737E+04   2.466900E+04 \r\n             3.535000E-02     -2.980000E+03   5.287852E+04  -1.476726E+04   -76.0664    5.654223E+04   -6.643707E+03   3.159297E+04 \r\n0       7   -3.535000E-02      5.299375E+04   1.554659E+04   2.276640E+04    25.2827    6.374697E+04    4.793375E+03   2.947680E+04 \r\n             3.535000E-02      3.364258E+04   1.038134E+04   2.118270E+04    30.6152    4.617759E+04   -2.153674E+03   2.416563E+04 \r\n0       8   -3.535000E-02      7.208149E+02   3.447925E+04   1.699268E+04    67.4040    4.155122E+04   -6.351146E+03   2.395118E+04 \r\n             3.535000E-02     -8.426361E+03   3.840220E+04   2.800636E+03    86.5896    3.856910E+04   -8.593263E+03   2.358118E+04 \r\n0       9   -2.110000E-02      3.550486E+04  -1.960298E+04   5.377746E+03     5.5218    3.602475E+04   -2.012287E+04   2.807381E+04 \r\n             2.110000E-02      3.311667E+03   2.567948E+04   8.156661E+03    71.9480    2.833793E+04    6.532158E+02   1.384236E+04 \r\n0      10   -2.110000E-02     -6.020513E+03   2.206645E+04  -5.720284E+03   -78.9188    2.318677E+04   -7.140839E+03   1.516381E+04 \r\n             2.110000E-02      6.947490E+03   4.300510E+04  -9.610638E+03   -75.9696    4.540671E+04    4.545871E+03   2.043042E+04 \r\n0      11   -2.110000E-02      2.915446E+04  -1.218556E+04   1.383487E+04    16.8976    3.335718E+04   -1.638829E+04   2.487273E+04 \r\n             2.110000E-02      2.888995E+04   1.175793E+04   1.686632E+03     5.5695    2.905442E+04    1.159346E+04   8.730478E+03 \r\n0      12   -2.110000E-02     -2.630775E+03   2.203477E+04   6.568234E+03    75.9805    2.367479E+04   -4.270797E+03   1.397279E+04 \r\n             2.110000E-02     -9.817131E+03   3.093743E+04   4.397204E+03    83.9114    3.140647E+04   -1.028617E+04   2.084632E+04 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    52\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                    S T R E S S E S   I N   S O L I D   H E X A H E D R O N   E L E M E N T S   ( C H E X A 1 )\r\n \r\n                                                                                                           OCTAHEDRAL    PRESSURE\r\n      ELEMENT-ID        SIGMA-XX      SIGMA-YY      SIGMA-ZZ       TAU-YZ        TAU-XZ        TAU-XY        TAU-0          P\r\n             201      8.289883E+03  1.875911E+04  1.485598E+04 -7.958457E+02  8.667183E+02  1.779021E+03  4.657726E+03 -1.396833E+04\r\n             202      8.262270E+03  1.855342E+04  1.515395E+04 -2.902549E+03  8.701763E+02  1.799047E+03  5.158282E+03 -1.398988E+04\r\n             203      1.327659E+04  2.930491E+04  1.894422E+04 -3.239520E+03  3.050317E+01  2.974962E+03  7.545768E+03 -2.050857E+04\r\n             204      1.333471E+04  2.892952E+04  1.950895E+04 -3.636430E+03 -1.909380E+02  2.923000E+03  7.460197E+03 -2.059106E+04\r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    53\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                  S T R E S S E S   I N   G E N E R A L   T R I A N G U L A R   E L E M E N T S       ( C T R I A 2 )\r\n                                                  (IN ELEMENT COORDINATE SYSTEM)\r\n\r\n  ELEMENT      FIBRE               STRESSES IN ELEMENT COORD SYSTEM             PRINCIPAL STRESSES (ZERO SHEAR)            MAX\r\n    ID.       DISTANCE           NORMAL-X       NORMAL-Y      SHEAR-XY       ANGLE         MAJOR           MINOR          SHEAR\r\n0       1   -5.200000E-02      3.868979E+04  -4.928805E+02   2.071134E+03     3.0174    3.879896E+04   -6.020508E+02   1.970051E+04 \r\n             5.200000E-02      3.193661E+04   2.793326E+03   2.246833E+04    28.5175    4.414479E+04   -9.414848E+03   2.677982E+04 \r\n0       2   -5.200000E-02      6.116189E+03   4.998772E+04   1.105540E+04    76.6262    5.261615E+04    3.487758E+03   2.456420E+04 \r\n             5.200000E-02      3.062619E+04   7.248684E+04  -5.034890E+03   -83.2371    7.308391E+04    3.002912E+04   2.152739E+04 \r\n0       3   -5.200000E-02      4.609596E+04   1.096560E+04   1.872785E+04    23.4174    5.420700E+04    2.854566E+03   2.567621E+04 \r\n             5.200000E-02      2.787498E+04   2.834640E+04   3.412810E+04    45.1979    6.223961E+04   -6.018223E+03   3.412891E+04 \r\n0       4   -5.200000E-02      8.834335E+03   4.542609E+04   1.711337E+04    68.4564    5.218229E+04    2.078139E+03   2.505207E+04 \r\n             5.200000E-02      9.107708E+03   1.438073E+04   3.665635E+03    62.8628    1.625954E+04    7.228904E+03   4.515316E+03 \r\n0       5   -3.535000E-02      5.005336E+04   6.442619E+03   1.238592E+04    14.7988    5.332557E+04    3.170402E+03   2.507759E+04 \r\n             3.535000E-02      1.289572E+04   3.361396E+03   1.057894E+04    32.8712    1.973199E+04   -3.474879E+03   1.160344E+04 \r\n0       6   -3.535000E-02      1.321711E+04   6.123563E+04  -5.667010E+03   -83.3596    6.189538E+04    1.255737E+04   2.466900E+04 \r\n             3.535000E-02     -2.980000E+03   5.287852E+04  -1.476726E+04   -76.0664    5.654223E+04   -6.643707E+03   3.159297E+04 \r\n0       7   -3.535000E-02      5.299375E+04   1.554659E+04   2.276640E+04    25.2827    6.374697E+04    4.793375E+03   2.947680E+04 \r\n             3.535000E-02      3.364258E+04   1.038134E+04   2.118270E+04    30.6152    4.617759E+04   -2.153674E+03   2.416563E+04 \r\n0       8   -3.535000E-02      7.208149E+02   3.447925E+04   1.699268E+04    67.4040    4.155122E+04   -6.351146E+03   2.395118E+04 \r\n             3.535000E-02     -8.426361E+03   3.840220E+04   2.800636E+03    86.5896    3.856910E+04   -8.593263E+03   2.358118E+04 \r\n0       9   -2.110000E-02      3.550486E+04  -1.960298E+04   5.377746E+03     5.5218    3.602475E+04   -2.012287E+04   2.807381E+04 \r\n             2.110000E-02      3.311667E+03   2.567948E+04   8.156661E+03    71.9480    2.833793E+04    6.532158E+02   1.384236E+04 \r\n0      10   -2.110000E-02     -6.020513E+03   2.206645E+04  -5.720284E+03   -78.9188    2.318677E+04   -7.140839E+03   1.516381E+04 \r\n             2.110000E-02      6.947490E+03   4.300510E+04  -9.610638E+03   -75.9696    4.540671E+04    4.545871E+03   2.043042E+04 \r\n0      11   -2.110000E-02      2.915446E+04  -1.218556E+04   1.383487E+04    16.8976    3.335718E+04   -1.638829E+04   2.487273E+04 \r\n             2.110000E-02      2.888995E+04   1.175793E+04   1.686632E+03     5.5695    2.905442E+04    1.159346E+04   8.730478E+03 \r\n0      12   -2.110000E-02     -2.630775E+03   2.203477E+04   6.568234E+03    75.9805    2.367479E+04   -4.270797E+03   1.397279E+04 \r\n             2.110000E-02     -9.817131E+03   3.093743E+04   4.397204E+03    83.9114    3.140647E+04   -1.028617E+04   2.084632E+04 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    54\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n\r\n\r\n0         1                  APP-LOAD      -1.998173E-01  -2.926141E+01   4.033651E+02   5.577285E-01   2.814714E-01  -2.754023E-01 \r\n          1             1    TRIA2          4.229720E+02  -2.028154E+01   1.777826E+03  -1.184240E+01  -6.543108E+00  -7.789952E+00 \r\n          1             2    TRIA2          1.409853E+03   4.936431E+02  -4.794470E+02  -9.476487E+00  -3.133823E+00  -1.794007E+01 \r\n          1                  *TOTALS*       1.832625E+03   4.441001E+02   1.701744E+03  -2.076116E+01  -9.395460E+00  -2.600543E+01 \r\n\r\n\r\n0         2                  APP-LOAD      -6.828099E-01   1.092883E+01   5.705005E+02  -3.887714E-01  -6.920462E-02  -1.726344E-01 \r\n          2             2    TRIA2         -1.906114E+03  -7.307139E+02   3.559301E+03   2.614398E+00   1.857160E+00  -4.023248E+01 \r\n          2             3    TRIA2         -2.927894E+02  -1.076771E+02   2.312758E+03  -1.694014E+01  -4.094743E+00  -2.067599E+01 \r\n          2             4    TRIA2          5.943733E+02   1.736815E+02   8.027845E+02  -3.600341E+01   2.856086E+01   4.268495E+01 \r\n          2                  *TOTALS*      -1.605213E+03  -6.537806E+02   7.245344E+03  -5.071792E+01   2.625407E+01  -1.839615E+01 \r\n\r\n\r\n0         3                  APP-LOAD      -1.319013E-01  -1.192908E+01   2.009023E+02   2.358849E-02   1.139595E-02   6.344404E-02 \r\n          3             4    TRIA2         -2.482905E+02   1.286545E+02   7.187941E+02   7.158796E+01  -1.345794E+01   4.668312E+01 \r\n          3                  *TOTALS*      -2.484224E+02   1.167254E+02   9.196965E+02   7.161155E+01  -1.344654E+01   4.674657E+01 \r\n\r\n\r\n0         4                  APP-LOAD      -2.641002E+00  -6.555304E+01   7.765549E+02   4.260484E-01   2.971697E-01  -8.346827E-02 \r\n          4             1    TRIA2         -4.677010E+02  -1.591701E+02  -1.156693E+03   6.539659E+00   6.217707E+00  -1.042728E+01 \r\n          4             5    TRIA2          1.550956E+02  -3.756423E+01   1.207026E+03  -8.009010E+00  -7.228173E+00  -1.121357E+01 \r\n          4             6    TRIA2          3.119158E+02   2.740056E+02  -8.265136E+02  -9.840205E+00  -6.479788E+00   2.499067E+01 \r\n          4                  *TOTALS*      -3.330597E+00   1.171823E+01   3.744507E-01  -1.088351E+01  -7.193084E+00   3.266352E+00 \r\n\r\n\r\n0         5                  APP-LOAD      -2.731128E+00   1.091827E+01   1.482273E+03  -9.318570E-01  -4.555690E-01   3.427876E-01 \r\n          5             1    TRIA2          4.472901E+01   1.794517E+02  -6.211334E+02  -8.884875E+00  -3.924006E+00  -1.141514E+01 \r\n          5             2    TRIA2          4.962606E+02   2.370708E+02  -3.079854E+03  -5.584223E+00  -2.531168E+00   2.058598E+01 \r\n          5             3    TRIA2          4.244433E+02   5.961493E+01  -2.867085E+03  -1.805981E+01  -4.520793E+00  -1.497761E+01 \r\n          5             6    TRIA2         -6.536879E+02  -5.145245E+02   2.658247E+03   1.922047E+01   1.266601E+01   1.756617E+01 \r\n          5             7    TRIA2         -5.798462E+01  -4.537363E+01   1.678416E+03  -1.171615E+00  -1.109419E+00  -3.388997E+00 \r\n          5             8    TRIA2         -2.503172E+02   6.945139E+01   7.499926E+02   2.415966E+01   3.648727E+00  -1.273564E+01 \r\n          5                  *TOTALS*       7.120361E-01  -3.391075E+00   8.567505E-01   8.747759E+00   3.773780E+00  -4.022453E+00 \r\n\r\n\r\n0         6                  APP-LOAD       1.728638E-01   2.987254E+01   7.051938E+02   2.418957E-01   3.884261E-02   4.104747E-02 \r\n          6             3    TRIA2         -1.316539E+02   4.806218E+01   5.543263E+02   3.193482E+00   1.718238E+00  -3.912337E+01 \r\n          6             4    TRIA2         -3.460828E+02  -3.023360E+02  -1.521579E+03   2.257530E+01   5.516879E+00   4.435593E+01 \r\n          6             8    TRIA2          4.755493E+02   2.281724E+02   2.621643E+02  -2.803808E+01  -9.029338E+00  -6.173869E+00 \r\n          6                  *TOTALS*      -2.014465E+00   3.771072E+00   1.058044E-01  -2.027405E+00  -1.755378E+00  -9.002671E-01 \r\n\r\n\r\n0         7                  APP-LOAD      -8.713752E+00  -8.578720E+01   9.233867E+02   3.054081E-01   3.443168E-01  -6.544707E-03 \r\n          7                  F-OF-SPC       0.0            0.0            0.0            4.001146E+01   5.800446E+01   0.0          \r\n          7             5    TRIA2         -6.090380E+01   3.450291E+01  -9.449326E+02  -2.077555E+01  -2.200430E+01  -1.346155E+01 \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    55\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n          7             9    TRIA2          4.910282E+01  -3.794910E+01   5.417636E+02  -7.109656E+00  -1.786020E+01  -6.913864E+00 \r\n          7            10    TRIA2          2.879531E+01   9.109573E+01  -5.210271E+02  -1.071058E+01  -1.284880E+01   2.010298E+01 \r\n          7                  *TOTALS*       8.280577E+00   1.862335E+00  -8.093872E-01   1.721087E+00   5.635463E+00  -2.789726E-01 \r\n\r\n\r\n0         8                  APP-LOAD      -7.813404E+00   1.065885E+01   1.713894E+03  -5.015798E-01  -4.906461E-01   1.890127E-01 \r\n          8             5    TRIA2         -9.419183E+01   3.061320E+00  -2.620931E+02   4.441898E+00   8.308668E+00  -1.442826E+01 \r\n          8             6    TRIA2          3.417722E+02   2.405189E+02  -1.831733E+03   9.208057E+00   6.068203E+00   1.005117E+01 \r\n          8             7    TRIA2          1.314105E+02   1.179621E+02  -1.825876E+03  -7.489979E+00  -7.062070E+00  -4.203946E-01 \r\n          8            10    TRIA2         -1.515477E+02  -2.551847E+02   1.175189E+03   1.441823E+01   1.684959E+01   4.057904E+00 \r\n          8            11    TRIA2          2.641729E+01   5.560585E+01   6.112394E+02  -3.111275E+00  -6.124613E+00  -1.261970E-01 \r\n          8            12    TRIA2         -2.430510E+02  -1.707789E+02   4.193697E+02  -3.777042E-01  -1.102715E+00  -4.775659E+00 \r\n          8                  *TOTALS*       2.995941E+00   1.843369E+00  -9.857178E-03   1.658765E+01   1.644642E+01  -5.452430E+00 \r\n\r\n\r\n0         9                  APP-LOAD      -1.134913E+00   6.922975E+01   8.082831E+02   1.851889E-01   8.460750E-02  -1.271415E-01 \r\n          9             7    TRIA2         -7.342585E+01  -7.258843E+01   1.474598E+02   1.828194E+00   1.732188E+00   6.021678E+00 \r\n          9             8    TRIA2         -2.252322E+02  -2.976237E+02  -1.012157E+03  -3.274841E+00  -2.427846E+00  -6.722205E+00 \r\n          9            12    TRIA2          2.992321E+02   3.032212E+02   5.695900E+01  -3.043527E+00  -2.556068E+00   2.284848E+00 \r\n          9                  *TOTALS*      -5.608521E-01   2.238739E+00   5.449333E-01  -4.304986E+00  -3.167119E+00   1.457180E+00 \r\n\r\n\r\n0        10                  APP-LOAD      -4.381930E+00  -4.924676E+01   4.427760E+02   5.198105E-03   1.111385E-02   9.605052E-03 \r\n         10                  F-OF-SPC       0.0            0.0            0.0            6.963536E+00   2.038683E+01   0.0          \r\n         10             9    TRIA2         -9.377535E+00   5.541270E+01  -4.405495E+02  -5.432913E+00  -1.712566E+01   2.854933E+00 \r\n         10                  *TOTALS*      -1.375947E+01   6.165939E+00   2.226471E+00   1.535820E+00   3.272285E+00   2.864538E+00 \r\n\r\n\r\n0        11                  APP-LOAD      -8.327908E+00   1.640791E+00   1.165977E+03  -2.205626E-02   6.012074E-02   1.684932E-01 \r\n         11             9    TRIA2         -3.972529E+01  -1.746359E+01  -1.012141E+02  -3.542132E+00  -1.084723E+00  -2.172956E+01 \r\n         11            10    TRIA2          1.227524E+02   1.640890E+02  -6.541619E+02   6.815176E+00   7.885642E+00   7.402486E+00 \r\n         11            11    TRIA2         -8.057104E+01  -1.377399E+02  -4.106351E+02  -2.891105E+00  -5.851166E+00   1.138620E+01 \r\n         11                  *TOTALS*      -5.871788E+00   1.052634E+01  -3.393555E-02   3.598821E-01   1.009874E+00  -2.772373E+00 \r\n\r\n\r\n0        12                  APP-LOAD      -1.775301E+00   5.677698E+01   6.765817E+02   7.475752E-03  -2.254627E-02  -3.885616E-02 \r\n         12                  F-OF-SPC       0.0            0.0            0.0            4.055984E+00   4.510184E+00   0.0          \r\n         12            11    TRIA2          5.415375E+01   8.213402E+01  -2.006044E+02  -3.186670E-03  -8.250567E-03   1.420817E-01 \r\n         12            12    TRIA2         -5.618105E+01  -1.324423E+02  -4.763287E+02  -2.939478E+00  -2.762764E+00   3.126544E-01 \r\n         12                  *TOTALS*      -3.802601E+00   6.468704E+00  -3.514404E-01   1.120795E+00   1.716624E+00   4.158800E-01 \r\n\r\n\r\n0       101                  APP-LOAD       9.188749E+02   0.0            0.0            0.0            0.0            0.0          \r\n        101           201    HEXA1         -5.545531E+02  -2.061482E+04   2.109401E+03   0.0            0.0            0.0          \r\n        101           203    HEXA1         -3.257165E+03  -1.534276E+04   1.159523E+03   0.0            0.0            0.0          \r\n        101                  *TOTALS*      -2.892843E+03  -3.595758E+04   3.268924E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       103                  APP-LOAD       5.368098E+02   0.0            0.0            0.0            0.0            0.0          \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    56\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n        103           201    HEXA1         -1.561017E+03  -2.114760E+04   1.651306E+02   0.0            0.0            0.0          \r\n        103           203    HEXA1         -4.028373E+03  -1.789825E+04   3.411208E+03   0.0            0.0            0.0          \r\n        103                  *TOTALS*      -5.052580E+03  -3.904585E+04   3.576339E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       104                  APP-LOAD       1.556247E+03   0.0            0.0            0.0            0.0            0.0          \r\n        104           201    HEXA1          2.920024E+03   2.440428E+04  -2.434271E+03   0.0            0.0            0.0          \r\n        104           202    HEXA1         -1.312893E+03  -2.119710E+04   1.535735E+02   0.0            0.0            0.0          \r\n        104           203    HEXA1          5.122261E+02   1.459175E+04  -1.074511E+03   0.0            0.0            0.0          \r\n        104           204    HEXA1         -3.675601E+03  -1.779896E+04   3.355208E+03   0.0            0.0            0.0          \r\n        104                  *TOTALS*       3.173828E-03  -2.343750E-02  -4.882812E-04   0.0            0.0            0.0          \r\n\r\n\r\n0       105                  APP-LOAD       1.019437E+03   0.0            0.0            0.0            0.0            0.0          \r\n        105           202    HEXA1          3.698980E+03   2.461676E+04  -2.529745E+03   0.0            0.0            0.0          \r\n        105           204    HEXA1          3.341557E+02   1.442912E+04  -1.046593E+03   0.0            0.0            0.0          \r\n        105                  *TOTALS*       5.052573E+03   3.904588E+04  -3.576338E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       107                  APP-LOAD       4.979494E+02   0.0            0.0            0.0            0.0            0.0          \r\n        107           202    HEXA1          3.062928E+03   1.748357E+04   1.508848E+02   0.0            0.0            0.0          \r\n        107           204    HEXA1         -6.680239E+02   1.847399E+04  -3.419808E+03   0.0            0.0            0.0          \r\n        107                  *TOTALS*       2.892854E+03   3.595756E+04  -3.268923E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       108                  APP-LOAD       1.416824E+03   0.0            0.0            0.0            0.0            0.0          \r\n        108           201    HEXA1          3.362885E+03   1.740711E+04   8.210165E+01   0.0            0.0            0.0          \r\n        108           202    HEXA1         -1.630591E+03  -1.983064E+04   2.264565E+03   0.0            0.0            0.0          \r\n        108           203    HEXA1         -1.772112E+02   1.807378E+04  -3.477736E+03   0.0            0.0            0.0          \r\n        108           204    HEXA1         -2.971914E+03  -1.565024E+04   1.131070E+03   0.0            0.0            0.0          \r\n        108                  *TOTALS*      -6.835938E-03   1.269531E-02  -3.662109E-04   0.0            0.0            0.0          \r\n\r\n\r\n0       113                  APP-LOAD       3.151685E+02   0.0            0.0            0.0            0.0            0.0          \r\n        113           201    HEXA1         -2.239955E+03  -1.433346E+04   2.019417E+03   0.0            0.0            0.0          \r\n        113                  *TOTALS*      -1.924787E+03  -1.433346E+04   2.019417E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       115                  APP-LOAD       1.897285E+03   0.0            0.0            0.0            0.0            0.0          \r\n        115           201    HEXA1         -2.824763E+03  -1.641934E+04   1.888185E+03   0.0            0.0            0.0          \r\n        115                  *TOTALS*      -9.274786E+02  -1.641934E+04   1.888185E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       116                  APP-LOAD       0.0            0.0            2.448729E+03   0.0            0.0            0.0          \r\n        116           201    HEXA1         -3.412236E+03  -1.419661E+04  -1.684708E+03   0.0            0.0            0.0          \r\n        116           202    HEXA1          4.837932E+02   1.860887E+04  -6.144819E+03   0.0            0.0            0.0          \r\n        116                  *TOTALS*      -2.928442E+03   4.412259E+03  -5.380799E+03   0.0            0.0            0.0          \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    57\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n\r\n\r\n0       117                  APP-LOAD       5.514448E+02   0.0            0.0            0.0            0.0            0.0          \r\n        117           202    HEXA1          3.760294E+02   1.641932E+04  -1.888186E+03   0.0            0.0            0.0          \r\n        117                  *TOTALS*       9.274741E+02   1.641932E+04  -1.888186E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       119                  APP-LOAD       1.599306E+03   0.0            0.0            0.0            0.0            0.0          \r\n        119           202    HEXA1          3.254835E+02   1.433346E+04  -2.019419E+03   0.0            0.0            0.0          \r\n        119                  *TOTALS*       1.924789E+03   1.433346E+04  -2.019419E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       120                  APP-LOAD       0.0            0.0            1.914474E+03   0.0            0.0            0.0          \r\n        120           201    HEXA1         -4.177285E+02  -1.683789E+04  -2.730279E+03   0.0            0.0            0.0          \r\n        120           202    HEXA1          3.384534E+03   1.247737E+04  -3.673084E+03   0.0            0.0            0.0          \r\n        120                  *TOTALS*       2.966806E+03  -4.360529E+03  -4.488889E+03   0.0            0.0            0.0          \r\n\r\n\r\n0       121                  APP-LOAD       1.228344E+02   0.0            0.0            0.0            0.0            0.0          \r\n        121                  F-OF-SPC       0.0            3.451873E+04  -4.134268E+03   0.0            0.0            0.0          \r\n        121           203    HEXA1         -5.553750E+03  -3.451873E+04   4.134268E+03   0.0            0.0            0.0          \r\n        121                  *TOTALS*      -5.430916E+03   0.0            0.0            0.0            0.0            0.0          \r\n\r\n\r\n0       123                  APP-LOAD       1.489151E+01   0.0            0.0            0.0            0.0            0.0          \r\n        123                  F-OF-SPC       0.0            3.069117E+04   4.855215E+02   0.0            0.0            0.0          \r\n        123           203    HEXA1         -3.564659E+03  -3.069117E+04  -4.855215E+02   0.0            0.0            0.0          \r\n        123                  *TOTALS*      -3.549767E+03   1.953125E-03   0.0            0.0            0.0            0.0          \r\n\r\n\r\n0       124                  F-OF-SPC       0.0           -4.287852E+03   4.672181E+03   0.0            0.0            0.0          \r\n        124                  APP-LOAD       1.377259E+02   0.0            0.0            0.0            0.0            0.0          \r\n        124           203    HEXA1          3.508422E+03   3.494582E+04  -4.187527E+03   0.0            0.0            0.0          \r\n        124           204    HEXA1         -3.646136E+03  -3.065797E+04  -4.846544E+02   0.0            0.0            0.0          \r\n        124                  *TOTALS*       1.220703E-02  -1.953125E-03  -1.220703E-04   0.0            0.0            0.0          \r\n\r\n\r\n0       125                  APP-LOAD       1.228344E+02   0.0            0.0            0.0            0.0            0.0          \r\n        125                  F-OF-SPC       0.0           -3.494844E+04   4.170538E+03   0.0            0.0            0.0          \r\n        125           204    HEXA1          3.426925E+03   3.494844E+04  -4.170538E+03   0.0            0.0            0.0          \r\n        125                  *TOTALS*       3.549759E+03   0.0            0.0            0.0            0.0            0.0          \r\n\r\n\r\n0       127                  APP-LOAD       1.489151E+01   0.0            0.0            0.0            0.0            0.0          \r\n        127                  F-OF-SPC       0.0           -3.181861E+04  -5.212381E+02   0.0            0.0            0.0          \r\n        127           204    HEXA1          5.416015E+03   3.181861E+04   5.212381E+02   0.0            0.0            0.0          \r\n        127                  *TOTALS*       5.430907E+03   0.0            0.0            0.0            0.0            0.0          \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    58\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0     NONLINEAR SOLUTION OF ROTOR BLADE                                                                      SUBCASE 2              \r\n \r\n                                          G R I D   P O I N T   F O R C E   B A L A N C E\r\n \r\n   POINT-ID    ELEMENT-ID     SOURCE             T1             T2             T3             R1             R2             R3\r\n\r\n\r\n0       128                  F-OF-SPC       0.0            2.901672E+03  -4.634374E+03   0.0            0.0            0.0          \r\n        128                  APP-LOAD       1.377259E+02   0.0            0.0            0.0            0.0            0.0          \r\n        128           203    HEXA1          5.330375E+03   3.177433E+04   5.202963E+02   0.0            0.0            0.0          \r\n        128           204    HEXA1         -5.468096E+03  -3.467600E+04   4.114077E+03   0.0            0.0            0.0          \r\n        128                  *TOTALS*       4.882812E-03   3.906250E-03   0.0            0.0            0.0            0.0          \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    59\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =  34.27, BETA =  23.17, ALPHA =   0.00,  AXES = +X,+Y,+Z, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 7.864423E-01                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n          ORIGIN       3   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n          ORIGIN       4   -   X0 = -4.282722E+00, Y0 = -0.932401E+00     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    6   STATIC DEFORM.     2 - SUBCASE       1 - LOAD                                                                 \r\n          PLOT    7   STATIC DEFORM.     2 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN      4  USED IN THIS PLOT                                                   \r\n1     STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                    /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    60\r\n      NASTRAN TEST PROBLEM NO. T16-01-1A                                                                                            \r\n0                                                                                                                                   \r\n                                                  MESSAGES FROM THE PLOT MODULE                                                   \r\n\r\n\r\n\r\n\r\n\r\n P L O T T E R    D A T A                                                                                                           \r\n                                                                                                                                    \r\n          THE FOLLOWING PLOTS ARE FOR A NASTPLT   DRUM    PLOTTER WITH    TYPING CAPABILITY                                         \r\n                                                                                                                                    \r\n          AN END-OF-FILE MARK FOLLOWS THE LAST PLOT                                                                                 \r\n                                                                                                                                    \r\n          THE FIRST COMMAND FOR EACH PLOT CONTAINS THE PLOT NUMBER                                                                  \r\n                                                                                                                                    \r\n          CSCALE =  1.00                                                                                                            \r\n                                                                                                                                    \r\n          PAPER SIZE = 10.0 X 10.0,  PAPER TYPE = VELLUM                                                                            \r\n                                                                                                                                    \r\n          PEN 1 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 2 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 3 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 4 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 5 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 6 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 7 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n          PEN 8 - SIZE 1, BLACK                                                                                                     \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n\r\n\r\n\r\n E N G I N E E R I N G    D A T A                                                                                                   \r\n                                                                                                                                    \r\n          ORTHOGRAPHIC PROJECTION                                                                                                   \r\n          ROTATIONS (DEGREES) - GAMMA =   0.00, BETA =   0.00, ALPHA =   0.00,  AXES = +Z,+X,+Y, SYMMETRIC                          \r\n          SCALE (OBJECT-TO-PLOT SIZE) = 2.227927E+00                                                                                \r\n                                                                                                                                    \r\n          ORIGIN       1   -   X0 = -4.301828E+00, Y0 = -0.612309E+00     (INCHES)                                                  \r\n          ORIGIN       2   -   X0 =  2.823151E-02, Y0 = -0.474000E+01     (INCHES)                                                  \r\n          ORIGIN       3   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n          ORIGIN       4   -   X0 = -4.282722E+00, Y0 = -0.932401E+00     (INCHES)                                                  \r\n          ORIGIN       5   -   X0 = -4.180000E+00, Y0 = -0.509836E+01     (INCHES)                                                  \r\n\r\n\r\n\r\n\r\n                                                  PLOT MODULE MESSAGES CONTINUE                                                     \r\n                                                                                                                                    \r\n          PLOT    8   STATIC DEFORM.     2 - SUBCASE       1 - LOAD                                                                 \r\n          PLOT    9   STATIC DEFORM.     2 - SUBCASE       1 - LOAD                                                                 \r\n                                                 ORIGIN      5  USED IN THIS PLOT                                                   \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                 \r\n DATE:  5/19/95\r\n END TIME: 16:36:42\r\n TOTAL WALL CLOCK TIME      4 SEC.\r\n \r\n"
  },
  {
    "path": "demoout/t17011a.out",
    "content": "\r\n\r\n\r\n\r\n\r\n\r\n                                  ****\r\n                                *      *\r\n                               *        *\r\n                               *  N A S T R A N\r\n                               *        *\r\n                                *      *\r\n                                  ****\r\n\r\n\r\n                             SUN COMPUTER SYSTEMS    \r\n                                SOLARIS VERSION\r\n\r\n                          SYSTEM RELEASE -  1995 ED.\r\n\r\n                                DISTRIBUTED BY\r\n\r\n         COMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER (COSMIC)\r\n                 UNIVERSITY OF GEORGIA, ATHENS, GEORGIA 30602\r\n                 PHONE: (706)542-3265      FAX: (706)542-4807\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     2\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n                                                                                                         \r\n                                                                                                         \r\n                         INSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION                      \r\n                                                                                                         \r\n                                     *********************************************                       \r\n                                     *                                           *                       \r\n                                     *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *                       \r\n                                     *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *                       \r\n                                     *                                           *                       \r\n                                     *********************************************                       \r\n                                                                                                         \r\n                         ===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='                          \r\n                                                                                                         \r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     3\r\n                                                                                                                                    \r\n0                                                                                                                                   \r\n0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ARE BEING COMPUTED\r\n     (SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)\r\n1                                                                           /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     4\r\n                                                                                                                                    \r\n0        N A S T R A N    E X E C U T I V E    C O N T R O L    D E C K    E C H O                                                  \r\n0                                                                                                                                   \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n     ID    T17011A,NASTRAN                                                           \r\n     $                                                                               \r\n     $     THIS DEMO IS SAME AS T03131A WHERE SOLUTION 3 IS USED WITH DMAP           \r\n     $     ALTERS, COSDDAM                                                           \r\n     $                                                                               \r\n     SOL   17                                                                        \r\n     APP   DISP                                                                      \r\n     DIAG  14,25                                                                     \r\n     TIME  20                                                                        \r\n     CEND                                                                            \r\n\r\n\r\n0*** USER INFORMATION MESSAGE, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, DIAG DEFINITION, NEW DMAP\r\n         MODULES AND NEW BULKDATA CARDS INFORMATION\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     5\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                        C A S E    C O N T R O L   D E C K   E C H O                                               \r\n                 CARD                                                                                                               \r\n                 COUNT                                                                                                              \r\n                  1      TITLE    = DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                 \r\n                  2      SUBTITLE = NASTRAN TEST PROBLEM NO. T17-01-1A                                   \r\n                  3      LABEL    = HY-100 PLATFORM MODEL                                                \r\n                  4      OLOAD    = ALL                                                                  \r\n                  5      DISP     = ALL                                                                  \r\n                  6      METHOD   = 1                                                                    \r\n                  7      SPC      = 1                                                                    \r\n                  8      FORCE(SORT2)  = ALL                                                             \r\n                  9      STRESS(SORT2) = ALL                                                             \r\n                 10      BEGIN BULK                                                                      \r\n\r\n\r\n                        (NO. OF UNSORTED BULK DATA CARDS READ =   107, INCLUDING   0 COMMENT CARDS)\r\n0*** USER INFORMATION MESSAGE 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL RE-ORDER THE INPUT DECK.\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     6\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                                 S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                    1-        BAROR           1                       0.      1.      1.      1               \r\n                    2-        CBAR    1               1       2                                               \r\n                    3-        CBAR    2               2       3                                               \r\n                    4-        CBAR    3               3       4                                               \r\n                    5-        CBAR    4               4       5                                               \r\n                    6-        CBAR    5       4       2       6       1.      0.      1.                      \r\n                    7-        CBAR    6       5       3       8       1.      0.      1.                      \r\n                    8-        CBAR    7       5       4       10      1.      0.      1.                      \r\n                    9-        CBAR    8       2       6       7                                               \r\n                   10-        CBAR    9       2       7       8                                               \r\n                   11-        CBAR    10      2       8       9                                               \r\n                   12-        CBAR    11      2       9       10                                              \r\n                   13-        CBAR    12      4       6       11      1.      0.      1.                      \r\n                   14-        CBAR    13      5       8       13      1.      0.      1.                      \r\n                   15-        CBAR    14      5       10      15      1.      0.      1.                      \r\n                   16-        CBAR    15      2       11      12                                              \r\n                   17-        CBAR    16      2       12      13                                              \r\n                   18-        CBAR    17      2       13      14                                              \r\n                   19-        CBAR    18      2       14      15                                              \r\n                   20-        CBAR    19      4       11      17      1.      0.      1.                      \r\n                   21-        CBAR    20      5       13      20      1.      0.      1.                      \r\n                   22-        CBAR    21      5       15      23      1.      0.      1.                      \r\n                   23-        CBAR    22      3       16      17                                              \r\n                   24-        CBAR    23      3       17      18                                              \r\n                   25-        CBAR    24      3       18      19                                              \r\n                   26-        CBAR    25      3       19      20                                              \r\n                   27-        CBAR    26      3       20      21                                              \r\n                   28-        CBAR    27      3       21      22                                              \r\n                   29-        CBAR    28      3       22      23                                              \r\n                   30-        CBAR    29      3       23      24                                              \r\n                   31-        CBAR    30              19      25      0.      1.      -1.                     \r\n                   32-        CBAR    31              22      26      0.      1.      -1.                     \r\n                   33-        CBAR    32      4       17      27      1.      0.      1.                      \r\n                   34-        CBAR    33      5       23      28      1.      0.      1.                      \r\n                   35-        CONM2   32      2       1       7.76                                            \r\n                   36-        CONM2   33      4       1       7.76                                            \r\n                   37-        CONM2   34      7       1       9.52                                            \r\n                   38-        CONM2   35      9       1       9.52                                            \r\n                   39-        CONM2   36      11      1       29.97                                           \r\n                   40-        CONM2   37      12      1       4.                                              \r\n                   41-        CONM2   38      14      1       4.                                              \r\n                   42-        CONM2   39      15      1       29.97                                           \r\n                   43-        CONM2   40      18      1       5.                                              \r\n                   44-        CONM2   41      21      1       5.                                              \r\n                   45-        CORD2R  1               0.      0.      0.      0.      0.      1.      +COR1   \r\n                   46-        +COR1   1.      0.      1.                                                      \r\n                   47-        EIGR    1       GIV                             30              1.-3    +EGR1   \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     7\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   48-        +EGR1   MAX                                                                     \r\n                   49-        GRID    1               0.      0.                                              \r\n                   50-        GRID    2               0.      50.                                             \r\n                   51-        GRID    3               0.      150.                                            \r\n                   52-        GRID    4               0.      230.                                            \r\n                   53-        GRID    5               0.      280.                                            \r\n                   54-        GRID    6               48.     50.                                             \r\n                   55-        GRID    7               48.     130.                                            \r\n                   56-        GRID    8               48.     150.                                            \r\n                   57-        GRID    9               48.     180.                                            \r\n                   58-        GRID    10              48.     230.                                            \r\n                   59-        GRID    11              120.    50.                                             \r\n                   60-        GRID    12              120.    90.                                             \r\n                   61-        GRID    13              120.    150.                                            \r\n                   62-        GRID    14              120.    195.                                            \r\n                   63-        GRID    15              120.    230.                                            \r\n                   64-        GRID    16              180.    0.                                              \r\n                   65-        GRID    17              180.    50.                                             \r\n                   66-        GRID    18              180.    100.                                            \r\n                   67-        GRID    19              180.    120.                                            \r\n                   68-        GRID    20              180.    150.                                            \r\n                   69-        GRID    21              180.    190.                                            \r\n                   70-        GRID    22              180.    205.                                            \r\n                   71-        GRID    23              180.    230.                                            \r\n                   72-        GRID    24              180.    280.                                            \r\n                   73-        GRID    25              180.    120.    -96.                                    \r\n                   74-        GRID    26              180.    205.    -96.                                    \r\n                   75-        GRID    27              230.    50.                                             \r\n                   76-        GRID    28              230.    230.                                            \r\n                   77-        MAT1    1       3.+7            .3      0.                                      \r\n                   78-        OMIT1   456     1       THRU    15                                              \r\n                   79-        OMIT1   456     17      THRU    23                                              \r\n                   80-        OMIT1   123456  3       6       8       10      13      17      19      +OMT1   \r\n                   81-        +OMT1   20      22      23                                                      \r\n                   82-        PARAM   ACC1    .4                                                              \r\n                   83-        PARAM   ACC2    1.                                                              \r\n                   84-        PARAM   ACC3    1.                                                              \r\n                   85-        PARAM   ACCA    10.4                                                            \r\n                   86-        PARAM   ACCB    480.                                                            \r\n                   87-        PARAM   ACCC    20.                                                             \r\n                   88-        PARAM   ACCD    0.                                                              \r\n                   89-        PARAM   LMODES  30                                                              \r\n                   90-        PARAM   VEL1    .4                                                              \r\n                   91-        PARAM   VEL2    1.                                                              \r\n                   92-        PARAM   VEL3    1.                                                              \r\n                   93-        PARAM   VELA    20.                                                             \r\n                   94-        PARAM   VELB    480.                                                            \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     8\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n                                                  S O R T E D   B U L K    D A T A    E C H O                                       \r\n                     CARD                                                                                                           \r\n                     COUNT        ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7--- +++8+++ ---9--- +++10+++                  \r\n                   95-        PARAM   VELC    100.                                                            \r\n                   96-        PBAR    1       1       20.     332.    133.    3.8                     +BAR1   \r\n                   97-        +BAR1   4.8     5.0     4.8     -5.0    -4.8    -5.     -4.8    5.0             \r\n                   98-        PBAR    2       1       12.6    114.    51.2    1.4                     +BAR2   \r\n                   99-        +BAR2   3.6     4.      3.6     -4.     -3.6    -4.     -3.6    4.              \r\n                  100-        PBAR    3       1       20.     332.    133.    3.8                     +BAR3   \r\n                  101-        +BAR3   4.8     5.      4.8     -5.     -4.8    -5.     -4.8    5.              \r\n                  102-        PBAR    4       1       44.     861.    432.    30.                     +BAR4   \r\n                  103-        +BAR4   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\n                  104-        PBAR    5       1       44.     861.    432.    30.                     +BAR5   \r\n                  105-        +BAR5   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\n                  106-        SPC1    1       123     1       5                                               \r\n                  107-        SPC1    1       123456  16      24      25      26      27      28              \r\n                              ENDDATA\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE     9\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n0  OPTIONS IN EFFECT GO      ERR=2   LIST    NODECK  REF     NOOSCAR \r\n   -----------------\r\n\r\n\r\n       1  BEGIN    DISP 17 - DYNAMIC DESIGN ANALYSIS METHOD - APR. 1995 $         \r\n\r\n       2  PRECHK   ALL $                                                          \r\n\r\n       3  FILE     LAMA=APPEND/PHIA=APPEND $                                      \r\n\r\n       4  PARAM    //*MPY*/CARDNO/0/0 $                                           \r\n\r\n       5  GP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/         \r\n                   NOGPDT/ALWAYS=-1 $                                             \r\n\r\n       6  ANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $                     \r\n\r\n       7  EQUIV    MPTA,MPT/ISOP $                                                \r\n\r\n       8  PLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $                          \r\n\r\n       9  GP2      GEOM2,EQEXIN/ECT $                                             \r\n\r\n      10  PARAML   PCDB//*PRES*////JUMPPLOT $                                     \r\n\r\n      11  PURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $                        \r\n\r\n      12  COND     P1,JUMPPLOT $                                                  \r\n\r\n      13  PLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/     \r\n                   S,N,JUMPPLOT $                                                 \r\n\r\n      14  PRTMSG   PLTSETX// $                                                    \r\n\r\n      15  PARAM    //*MPY*/PLTFLG/1/1 $                                           \r\n\r\n      16  PARAM    //*MPY*/PFILE/0/0 $                                            \r\n\r\n      17  COND     P1,JUMPPLOT $                                                  \r\n\r\n      18  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n                   NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $                \r\n\r\n      19  PRTMSG   PLOTX1//$                                                      \r\n\r\n      20  LABEL    P1 $                                                           \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    10\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      21  GP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $                              \r\n\r\n      22  TA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,   \r\n                   PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $    \r\n\r\n      23  EQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $                                \r\n\r\n      24  COND     ERROR4,NOSIMP $                                                \r\n\r\n      25  PARAM    //*ADD*/NOKGGX/1/0 $                                           \r\n\r\n      26  PARAM    //*ADD*/NOMGG/1/0 $                                            \r\n\r\n      27  EMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n                   S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/     \r\n                   C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/    \r\n                   C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $               \r\n\r\n      28  PURGE    KGGX/NOKGGX $                                                  \r\n\r\n      29  COND     JMPKGG,NOKGGX $                                                \r\n\r\n      30  EMA      GPECT,KDICT,KELM/KGGX $                                        \r\n\r\n      31  PURGE    KDICT,KELM/ALWAYS $                                            \r\n\r\n      32  LABEL    JMPKGG $                                                       \r\n\r\n      33  COND     ERROR1,NOMGG $                                                 \r\n\r\n      34  EMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $                       \r\n\r\n      35  PURGE    MDICT,MELM/ALWAYS $                                            \r\n\r\n      36  COND     LGPWG,GRDPNT $                                                 \r\n\r\n      37  GPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $         \r\n\r\n      38  OFP      OGPWG,,,,,//S,N,CARDNO $                                       \r\n\r\n      39  LABEL    LGPWG $                                                        \r\n\r\n      40  EQUIV    KGGX,KGG/NOGENL $                                              \r\n\r\n      41  COND     LBL11,NOGENL $                                                 \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    11\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      42  SMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $                             \r\n\r\n      43  LABEL    LBL11 $                                                        \r\n\r\n      44  GPSTGEN  KGG,SIL/GPST $                                                 \r\n\r\n      45  PARAM    //*MPY*/NSKIP/0/0 $                                            \r\n\r\n      46  GP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,           \r\n                   ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/      \r\n                   S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/      \r\n                   C,Y,ASETOUT/C,Y,AUTOSPC $                                      \r\n\r\n      47  OFP      OGPST,,,,,//S,N,CARDNO $                                       \r\n\r\n      48  COND     ERROR3,NOL $                                                   \r\n\r\n      49  PURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n\r\n      50  EQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $                                  \r\n\r\n      51  COND     LBL2,MPCF1 $                                                   \r\n\r\n      52  MCE1     USET,RG/GM $                                                   \r\n\r\n      53  MCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $                                  \r\n\r\n      54  LABEL    LBL2 $                                                         \r\n\r\n      55  EQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $                                \r\n\r\n      56  COND     LBL3,SINGLE $                                                  \r\n\r\n      57  SCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $                                \r\n\r\n      58  LABEL    LBL3  $                                                        \r\n\r\n      59  EQUIV    KFF,KAA/OMIT $                                                 \r\n\r\n      60  EQUIV    MFF,MAA/OMIT $                                                 \r\n\r\n      61  COND     LBL5,OMIT $                                                    \r\n\r\n      62  SMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                              \r\n\r\n      63  SMP2     USET,GO,MFF/MAA $                                              \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    12\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n      64  LABEL    LBL5 $                                                         \r\n\r\n      65  COND     LBL6,REACT $                                                   \r\n\r\n      66  RBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $                         \r\n\r\n      67  RBMG2    KLL/LLL $                                                      \r\n\r\n      68  RBMG3    LLL,KLR,KRR/DM $                                               \r\n\r\n      69  RBMG4    DM,MLL,MLR,MRR/MR $                                            \r\n\r\n      70  LABEL    LBL6 $                                                         \r\n\r\n      71  DPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/   \r\n                   LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n\r\n      72  COND     ERROR2,NOEED $                                                 \r\n\r\n      73  PARAM    //*MPY*/NEIGV/1/-1 $                                           \r\n\r\n      74  READ     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/      \r\n                   S,N,NEIGV $                                                    \r\n\r\n      75  DIAGONAL MI/MIS/*SQUARE*/-0.5 $                                         \r\n\r\n      76  SMPYAD   MIS,MI,MIS,,,/MINEW/3 $ --> MINEW IS NOT USED, MIS IS NO LONG U\r\n\r\n      77  OFP      OEIGS,,,,,//S,N,CARDNO $                                       \r\n\r\n      78  COND     FINIS,NEIGV $                                                  \r\n\r\n      79  OFP      LAMA,,,,,//S,N,CARDNO $                                        \r\n\r\n      80  SDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $                  \r\n\r\n      81  COND     NOMPCF,GRDEQ $                                                 \r\n\r\n      82  EQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/     \r\n                   OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $                                  \r\n\r\n      83  OFP      OQM1,,,,,//S,N,CARDNO $                                        \r\n\r\n      84  LABEL    NOMPCF $                                                       \r\n\r\n      85  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,     \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    13\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0         COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n                   PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG*////COMPS \r\n\r\n      86  COND     P2,JUMPPLOT $                                                  \r\n\r\n      87  PLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n                   OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $           \r\n\r\n      88  PRTMSG   PLOTX2// $                                                     \r\n\r\n      89  LABEL    P2 $                                                           \r\n\r\n      90  GENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $\r\n\r\n      91  DIAGONAL MI/MID/*SQUARE*/-1.0  $                                        \r\n\r\n      92  MPYAD    MGG,PHIG,/MP/0 $                                               \r\n\r\n      93  MPYAD    MP,DIRCOS,/PMD/1 $                                             \r\n\r\n      94  MPYAD    MID,PMD,/PF/0 $                                                \r\n\r\n      95  DDAMAT   PF,PMD/EFFW/C,Y,GG=386.4 $                                     \r\n\r\n      96  LAMX,    ,LAMA/LAMB/-1 $                                                \r\n\r\n      97  GENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $             \r\n\r\n      98  PARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $                                \r\n\r\n      99  PARAM    //*GE*/TEST/C,Y,LMODES/NMODES $                                \r\n\r\n     100  COND     DDAM,TEST $                                                    \r\n\r\n     101  PARTN    PF,,RPPF/,PFR,,/1 $                                            \r\n\r\n     102  EQUIV    PFR,PF $                                                       \r\n\r\n     103  PARTN    EFFW,,RPPF/,EFFWR,,/1 $                                        \r\n\r\n     104  EQUIV    EFFWR,EFFW $                                                   \r\n\r\n     105  PARTN    MP,CPMP,/,,MPR,/1 $                                            \r\n\r\n     106  EQUIV    MPR,MP $                                                       \r\n\r\n     107  PARTN    PHIG,CPMP,/,,PHIGR,/1 $                                        \r\n\r\n     108  EQUIV    PHIGR,PHIG $                                                   \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    14\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     109  LABEL    DDAM $                                                         \r\n\r\n     110  PURGE    MI,MID,DIRCOS,LAMB,RPLAMB,CPLAMB,RPPF,CPMP                     \r\n\r\n     111  DESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/    \r\n                   C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/         \r\n                   C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $        \r\n\r\n     112  DDAMAT   PF,MINAC/PVW/1.0 $                                             \r\n\r\n     113  DDAMAT   PF,MINOW2/PVOW/1.0 $                                           \r\n\r\n     114  DDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $                            \r\n\r\n     115  DDAMPG   MP,PVW/PG/NMODES/NDIR $                                        \r\n\r\n     116  CASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $                         \r\n\r\n     117  EQUIV    CASEDD,CASECC $                                                \r\n\r\n     118  SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/         \r\n                   ,OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $         \r\n\r\n     119  SDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $                \r\n\r\n     120  NRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/            \r\n                   C,Y,SQRSS=0 $                                                  \r\n\r\n     121  OFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $                                \r\n\r\n     122  PURGE    MP,PF,EFFW,LAMA,LAMB,SSDV,ACC,VWG,MINAC,MINOW2,PVW,OMEGA,      \r\n                   OQG3,OUGV3,OES3,OEF3,OUGV4,OQG4,OEF4,OES4                      \r\n\r\n     123  COMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $           \r\n\r\n     124  CASEGEN  CASECC/CASEEE/1/NDIR/NMODES $                                  \r\n\r\n     125  SDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/      \r\n                   ,,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $                        \r\n\r\n     126  OFP      OUGV5,,,,,//S,N,CARDNO $                                       \r\n\r\n     127  JUMP     FINIS $                                                        \r\n\r\n     128  LABEL    ERROR1 $                                                       \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    15\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n          COSMIC / NASTRAN DMAP COMPILER - SOURCE LISTING                                                                           \r\n                                                                                                                                    \r\n                                                                                                                                    \r\n\r\n     129  PRTPARM  //-1/*MODES* $                                                 \r\n\r\n     130  LABEL    ERROR2 $                                                       \r\n\r\n     131  PRTPARM  //-2/*MODES* $                                                 \r\n\r\n     132  LABEL    ERROR3 $                                                       \r\n\r\n     133  PRTPARM  //-3/*MODES* $                                                 \r\n\r\n     134  LABEL    ERROR4 $                                                       \r\n\r\n     135  PRTPARM  //-4/*MODES* $                                                 \r\n\r\n     136  LABEL    FINIS $                                                        \r\n\r\n     137  PURGE    DUMMY/ALWAYS $                                                 \r\n\r\n     138  END      $                                                              \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    16\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     PARAMETER   TYPE    DMAP STATEMENT NUMBERS                                                                                     \r\n \r\n     ALWAYS      I       0005    0031    0035    0137                                                                            \r\n     CARDNO      I       0004    0038    0038*   0047    0047*   0077    0077*   0079    0079*   0083    0083*   0121    0121*   \r\n                         0126    0126*                                                                                           \r\n     COMPS       I       0022    0022*   0023    0023    0085                                                                    \r\n     GENEL       I       0022                                                                                                    \r\n     GRDEQ       I       0081    0082                                                                                            \r\n     GRDPNT      I       0036    0037                                                                                            \r\n     ISOP        I       0006    0006*   0007                                                                                    \r\n     JUMPPLOT    I       0010    0011    0012    0013    0013*   0017    0018    0018*   0086    0087                            \r\n     LUSEP       I       0008    0008*   0087                                                                                    \r\n     LUSET       I       0005    0005*   0008    0018    0022    0042    0046    0071    0090                                    \r\n     LUSETD      I       0071                                                                                                    \r\n     MPCF1       I       0046    0046*   0049    0050    0050    0051                                                            \r\n     MPCF2       I       0046    0046*                                                                                           \r\n     NDIR        I       0114    0114*   0115    0116    0120    0123    0124                                                    \r\n     NEIGV       I       0073    0074    0074*   0078                                                                            \r\n     NMODES      I       0097    0097*   0099    0114    0114*   0115    0116    0120    0123    0124                            \r\n     NOA         I       0046    0046*                                                                                           \r\n     NODLT       I       0071                                                                                                    \r\n     NOEED       I       0071    0071*   0072                                                                                    \r\n     NOFRL       I       0071                                                                                                    \r\n     NOGENL      I       0022    0022*   0040    0041    0042                                                                    \r\n     NOGPDT      I       0005                                                                                                    \r\n     NOGRAV      I       0021                                                                                                    \r\n     NOKGGX      I       0025    0027    0027*   0028    0029                                                                    \r\n     NOL         I       0046    0046*   0048                                                                                    \r\n     NOMGG       I       0026    0027    0027*   0033                                                                            \r\n     NONLFT      I       0071                                                                                                    \r\n     NOPSDL      I       0071                                                                                                    \r\n     NOSET       I       0046    0046*   0049                                                                                    \r\n     NOSIMP      I       0022    0022*   0024    0042                                                                            \r\n     NOSORT2     I       0118    0118*   0125    0125*                                                                           \r\n     NOTFL       I       0071                                                                                                    \r\n     NOTRL       I       0071                                                                                                    \r\n     NOUE        I       0071                                                                                                    \r\n     NSCALE      I       0090    0090*                                                                                           \r\n     NSIL        I       0013    0013*   0018    0087                                                                            \r\n     NSKIP       I       0045    0046    0046*                                                                                   \r\n     OMIT        I       0046    0046*   0049    0059    0060    0061                                                            \r\n     OPT         I       0082                                                                                                    \r\n     PFILE       I       0016    0018    0018*   0087    0087*                                                                   \r\n     PLTFLG      I       0015    0018    0018*   0087                                                                            \r\n     REACT       I       0046    0046*   0049    0065                                                                            \r\n     REPEAT      I       0046    0046*                                                                                           \r\n     SINGLE      I       0046    0046*   0049    0055    0055    0056                                                            \r\n     TEST        I       0099    0100                                                                                            \r\n\r\n\r\n      * DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY GENERATED SAVE INSTRUCTION\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    17\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     MODULE NAME DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     ANISOP      0006                                                                                                            \r\n     CASEGEN     0116    0124                                                                                                    \r\n     COMBUGV     0123                                                                                                            \r\n     COND        0012    0017    0024    0029    0033    0036    0041    0048    0051    0056    0061    0065    0072    0078    \r\n                 0081    0086    0100                                                                                            \r\n     DDAMAT      0095    0112    0113                                                                                            \r\n     DDAMPG      0114    0115                                                                                                    \r\n     DESVEL      0111                                                                                                            \r\n     DIAGONAL    0075    0091                                                                                                    \r\n     DPD         0071                                                                                                            \r\n     EMA         0030    0034                                                                                                    \r\n     EMG         0027                                                                                                            \r\n     EQMCK       0082                                                                                                            \r\n     EXIT        0138                                                                                                            \r\n     GENCOS      0090                                                                                                            \r\n     GENPART     0097                                                                                                            \r\n     GP1         0005                                                                                                            \r\n     GP2         0009                                                                                                            \r\n     GP3         0021                                                                                                            \r\n     GP4         0046                                                                                                            \r\n     GPSTGEN     0044                                                                                                            \r\n     GPWG        0037                                                                                                            \r\n     JUMP        0127                                                                                                            \r\n     LAMX        0096                                                                                                            \r\n     MCE1        0052                                                                                                            \r\n     MCE2        0053                                                                                                            \r\n     MPYAD       0092    0093    0094                                                                                            \r\n     NRLSUM      0120                                                                                                            \r\n     OFP         0038    0047    0077    0079    0083    0121    0126                                                            \r\n     PARAM       0004    0015    0016    0025    0026    0045    0073    0099                                                    \r\n     PARAML      0010                                                                                                            \r\n     PARTN       0098    0101    0103    0105    0107                                                                            \r\n     PLOT        0018    0087                                                                                                    \r\n     PLTSET      0013                                                                                                            \r\n     PLTTRAN     0008                                                                                                            \r\n     PRTMSG      0014    0019    0088                                                                                            \r\n     PRTPARM     0129    0131    0133    0135                                                                                    \r\n     RBMG1       0066                                                                                                            \r\n     RBMG2       0067                                                                                                            \r\n     RBMG3       0068                                                                                                            \r\n     RBMG4       0069                                                                                                            \r\n     READ        0074                                                                                                            \r\n     SCE1        0057                                                                                                            \r\n     SDR1        0080                                                                                                            \r\n     SDR2        0085    0118    0125                                                                                            \r\n     SDR3        0119                                                                                                            \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    18\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     MODULE NAME DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     SMA3        0042                                                                                                            \r\n     SMP1        0062                                                                                                            \r\n     SMP2        0063                                                                                                            \r\n     SMPYAD      0076                                                                                                            \r\n     TA1         0022                                                                                                            \r\n     XEQUIV      0007    0023    0040    0050    0055    0059    0060    0102    0104    0106    0108    0117                    \r\n     XPURGE      0011    0028    0031    0035    0049    0110    0122    0137                                                    \r\n     XSAVE       0005*   0006*   0008*   0013*   0018*   0022*   0027*   0038*   0046*   0047*   0071*   0074*   0077*   0079*   \r\n                 0083*   0087*   0090*   0097*   0114*   0118*   0121*   0125*   0126*                                           \r\n\r\n\r\n      * DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS\r\n        STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF PREVIOUS INSTRUCTION\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    19\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     ACC         0111*   0122                                                                                                    \r\n     ASET        0046*                                                                                                           \r\n     BGPDP       0008*   0037    0085                                                                                            \r\n     BGPDT       0005*   0006    0008    0018    0022    0046    0082    0087    0090    0118    0125                            \r\n     CASECC      0018    0046    0074    0082    0085    0087    0116    0117    0118    0124                                    \r\n     CASEDD      0116*   0117                                                                                                    \r\n     CASEEE      0124*   0125                                                                                                    \r\n     CPLAMB      0097*   0098    0110                                                                                            \r\n     CPMP        0097*   0105    0107    0110                                                                                    \r\n     CSTM        0005*   0022    0027    0037    0046    0082    0085    0090    0118    0125                                    \r\n     DIRCOS      0090*   0093    0110                                                                                            \r\n     DIT         0027    0085    0118    0125                                                                                    \r\n     DM          0049    0068*   0069    0074                                                                                    \r\n     DUMMY       0137                                                                                                            \r\n     DYNAMICS    0071                                                                                                            \r\n     ECT         0009*   0013    0018    0022                                                                                    \r\n     EED         0071*   0074                                                                                                    \r\n     EFFW        0095*   0103    0104    0111    0122                                                                            \r\n     EFFWR       0103*   0104                                                                                                    \r\n     ELSETS      0011    0013*   0018    0087                                                                                    \r\n     EPT         0006    0013    0022    0023                                                                                    \r\n     EPTX        0022*   0023                                                                                                    \r\n     EQDYN       0071*                                                                                                           \r\n     EQEXIN      0005*   0006    0009    0013    0018    0021    0022    0037    0046    0082    0085    0087    0118    0125    \r\n     EST         0022*   0027    0085    0118    0125                                                                            \r\n     GEI         0022*   0042                                                                                                    \r\n     GEOM1       0005    0006                                                                                                    \r\n     GEOM2       0005    0009    0021    0027                                                                                    \r\n     GEOM3       0021                                                                                                            \r\n     GEOM4       0046                                                                                                            \r\n     GM          0049    0052*   0053    0080    0082                                                                            \r\n     GO          0049    0062*   0063    0080                                                                                    \r\n     GPDT        0005*   0046                                                                                                    \r\n     GPECT       0022*   0030    0034    0087                                                                                    \r\n     GPL         0005*   0071    0082                                                                                            \r\n     GPLD        0071*                                                                                                           \r\n     GPSETS      0011    0013*   0018    0087                                                                                    \r\n     GPST        0044*   0046                                                                                                    \r\n     GPTT        0021*   0022                                                                                                    \r\n     KAA         0059    0062*   0066    0074                                                                                    \r\n     KDICT       0027*   0030    0031                                                                                            \r\n     KELM        0027*   0030    0031                                                                                            \r\n     KFF         0055    0057*   0059    0062                                                                                    \r\n     KFS         0049    0057*   0080                                                                                            \r\n     KGG         0040    0042*   0044    0050    0053    0082                                                                    \r\n     KGGX        0028    0030*   0040    0042                                                                                    \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    20\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     KLL         0066*   0067                                                                                                    \r\n     KLR         0049    0066*   0068                                                                                            \r\n     KNN         0050    0053*   0055    0057                                                                                    \r\n     KOO         0062*                                                                                                           \r\n     KRR         0049    0066*   0068                                                                                            \r\n     LAMA        0074*   0079    0082    0085    0096    0122                                                                    \r\n     LAMB        0096*   0098    0110    0122                                                                                    \r\n     LLL         0067*   0068                                                                                                    \r\n     LOO         0062*                                                                                                           \r\n     MAA         0060    0063*   0066    0074                                                                                    \r\n     MDICT       0027*   0034    0035                                                                                            \r\n     MELM        0027*   0034    0035                                                                                            \r\n     MFF         0055    0057*   0060    0063                                                                                    \r\n     MGG         0034*   0037    0050    0053    0092                                                                            \r\n     MI          0074*   0075    0076    0091    0110                                                                            \r\n     MID         0091*   0094    0110                                                                                            \r\n     MINAC       0111*   0112    0122                                                                                            \r\n     MINEW       0076*                                                                                                           \r\n     MINOW2      0111*   0113    0122                                                                                            \r\n     MIS         0075*   0076    0076                                                                                            \r\n     MLL         0066*   0069                                                                                                    \r\n     MLR         0049    0066*   0069                                                                                            \r\n     MNN         0050    0053*   0055    0057                                                                                    \r\n     MP          0092*   0093    0105    0106    0115    0122                                                                    \r\n     MPR         0105*   0106                                                                                                    \r\n     MPT         0006    0007    0022    0023    0027    0085    0118    0125                                                    \r\n     MPTA        0006*   0007                                                                                                    \r\n     MPTX        0022*   0023                                                                                                    \r\n     MR          0049    0069*   0074                                                                                            \r\n     MRR         0066*   0069                                                                                                    \r\n     NRLFOR      0120*   0121                                                                                                    \r\n     NRLSTR      0120*   0121                                                                                                    \r\n     OEF1        0085*                                                                                                           \r\n     OEF1L       0085*                                                                                                           \r\n     OEF3        0118*   0119    0122                                                                                            \r\n     OEF4        0119*   0120    0122                                                                                            \r\n     OEIGS       0074*   0077                                                                                                    \r\n     OES1        0085*   0087                                                                                                    \r\n     OES1L       0085*   0087                                                                                                    \r\n     OES3        0118*   0119    0122                                                                                            \r\n     OES4        0119*   0120    0122                                                                                            \r\n     OGPST       0046*   0047                                                                                                    \r\n     OGPWG       0037*   0038                                                                                                    \r\n     OMEGA       0098*   0111    0122                                                                                            \r\n     OPHIG       0085*                                                                                                           \r\n     OQG1        0085*                                                                                                           \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    21\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0                                COSMIC / NASTRAN DMAP COMPILER - DMAP CROSS REFERENCE LISTING                                      \r\n                                                                                                                                    \r\n     DATA BLOCK  DMAP STATEMENT NUMBERS                                                                                             \r\n \r\n     OQG3        0118*   0119    0122                                                                                            \r\n     OQG4        0119*   0122                                                                                                    \r\n     OQM1        0082*   0083                                                                                                    \r\n     OUGV3       0118*   0119    0122                                                                                            \r\n     OUGV4       0119*   0122                                                                                                    \r\n     OUGV5       0125*   0126                                                                                                    \r\n     PCDB        0010    0013                                                                                                    \r\n     PCOMPS      0022*   0085                                                                                                    \r\n     PF          0094*   0095    0097    0101    0102    0112    0113    0122                                                    \r\n     PFR         0101*   0102                                                                                                    \r\n     PG          0115*                                                                                                           \r\n     PHIA        0074*   0080                                                                                                    \r\n     PHIG        0080*   0082    0085    0092    0107    0108    0114                                                            \r\n     PHIGR       0107*   0108                                                                                                    \r\n     PLOTX1      0018*   0019                                                                                                    \r\n     PLOTX2      0087*   0088                                                                                                    \r\n     PLTPAR      0011    0013*   0018    0087                                                                                    \r\n     PLTSETX     0011    0013*   0014                                                                                            \r\n     PMD         0093*   0094    0095                                                                                            \r\n     PPHIG       0085*   0087                                                                                                    \r\n     PVOW        0113*   0114                                                                                                    \r\n     PVW         0112*   0115    0122                                                                                            \r\n     QG          0049    0080*   0082    0085    0118    0125                                                                    \r\n     RG          0046*   0052                                                                                                    \r\n     RPLAMB      0097*   0098    0110                                                                                            \r\n     RPPF        0097*   0101    0103    0110                                                                                    \r\n     SIL         0005*   0008    0018    0022    0044    0071    0082    0085    0118    0125                                    \r\n     SILD        0071*                                                                                                           \r\n     SIP         0008*   0087                                                                                                    \r\n     SSDV        0111*   0122                                                                                                    \r\n     UGV         0114*   0118    0123                                                                                            \r\n     UGVADC      0123*                                                                                                           \r\n     UGVADD      0123*                                                                                                           \r\n     UGVNRL      0123*   0125                                                                                                    \r\n     UGVSQC      0123*                                                                                                           \r\n     UGVSQR      0123*                                                                                                           \r\n     USET        0046*   0052    0053    0057    0062    0063    0066    0071    0074    0080    0082                            \r\n     USETD       0071*                                                                                                           \r\n     VWG         0111*   0122                                                                                                    \r\n     YS          0046*                                                                                                           \r\n\r\n\r\n      * DENOTES STATEMENTS IN WHICH THE DATA BLOCK APPEARSRS AS OUTPUT.\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    22\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n0*** USER INFORMATION MESSAGES FROM RESEQUENCING PROCESSOR - BANDIT     (CRI= 1,  MTH= 3,  MPC= 0,  DEP=-1,  PCH=-1)\r\n\r\n                               BEFORE RESEQUENCING - - -\r\n                                        BANDWIDTH           11\r\n                                        PROFILE            117\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.179\r\n                                        RMS WAVEFRONT    4.322\r\n                                        RMS BANDWIDTH    4.989\r\n\r\n                               AFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS) ALGORITHM - - -\r\n                                        BANDWIDTH            7\r\n                                        PROFILE            116\r\n                                        MAX WAVEFRONT        6\r\n                                        AVG WAVEFRONT    4.143\r\n                                        RMS WAVEFRONT    4.334\r\n                                        RMS BANDWIDTH    4.606\r\n\r\n\r\n                                                     *** BANDIT SUMMARY ***\r\n\r\n                                                                        BEFORE     AFTER\r\n                                        BANDWIDTH (B)                       11        11\r\n                                        PROFILE (P)                        117       117\r\n                                        MAXIMUM WAVEFRONT (C-MAX)            6         6\r\n                                        AVERAGE WAVEFRONT (C-AVG)        4.179     4.179\r\n                                        RMS WAVEFRONT (C-RMS)            4.322     4.322\r\n                                        RMS BANDWITCH (B-RMS)            4.989     4.989\r\n                                        NUMBER OF GRID POINTS (N)                     28\r\n                                        NUMBER OF ELEMENTS (NON-RIGID)                43\r\n                                        NUMBER OF RIGID ELEMENTS PROCESSED*            0\r\n                                        NUMBER OF MPC  EQUATIONS PROCESSED*            0\r\n                                        NUMBER OF COMPONENTS                           1\r\n                                        MAXIMUM NODAL DEGREE                           4\r\n                                        MINIMUM NODAL DEGREE                           1\r\n                                        NUMBER OF UNIQUE EDGES                        33\r\n                                        MATRIX DENSITY, PERCENT                   11.990\r\n                                        NUMBER OF POINTS OF ZERO DEGREE                0\r\n                                        BANDIT OPEN CORE                         1998969\r\n                                        CRITERION*                         RMS WAVEFRONT\r\n                                        METHOD USED*                                 GPS\r\n\r\n                               (* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE NASTRAN CARD)\r\n\r\n\r\n                               BANDIT FINDS GRID POINT RE-SEQUENCING NOT NECESSARY\r\n0         **NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**\r\n0*** USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT PROCESSING INFORMATION\r\n\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION BAR      ELEMENTS (ELEMENT TYPE  34) STARTING WITH ID        1\r\n0*** USER INFORMATION MESSAGE 3113,\r\n     EMG MODULE PROCESSING DOUBLE PRECISION CONM2    ELEMENTS (ELEMENT TYPE  30) STARTING WITH ID       32\r\n0*** USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS        0 SECONDS.\r\n                                    PROBLEM SIZE IS      30, SPILL WILL OCCUR FOR THIS CORE AT A PROBLEM SIZE OF    1413 .\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    23\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n \r\n                              E I G E N V A L U E   A N A L Y S I S   S U M M A R Y   (GIVENS METHOD)\r\n\r\n\r\n\r\n                                    NUMBER OF EIGENVALUES EXTRACTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVECTORS COMPUTED . . . . . . .        30\r\n\r\n                                    NUMBER OF EIGENVALUE CONVERGENCE FAILURES . .         0\r\n\r\n                                    NUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .         0\r\n\r\n\r\n                                    REASON FOR TERMINATION. . . . . . . . . . . .         1*\r\n\r\n\r\n                                    LARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .  7.73E-08\r\n\r\n                                                                            . . .        29\r\n                                              MODE PAIR. . . . . . . . . . .\r\n                                                                            . . .        22\r\n\r\n                                    NUMBER OF OFF-DIAG0NAL MODAL MASS\r\n                                         TERMS FAILING CRITERION. . . . . . . . .         0\r\n\r\n\r\n                                    (* NORMAL TERMINATION)\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    24\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                              R E A L   E I G E N V A L U E S\r\n\r\n   MODE    EXTRACTION       EIGENVALUE            RADIAN              CYCLIC           GENERALIZED         GENERALIZED\r\n    NO.       ORDER                              FREQUENCY           FREQUENCY            MASS              STIFFNESS\r\n\r\n        1        29        2.104054E+03        4.586997E+01        7.300432E+00        2.928309E+01        6.161320E+04             \r\n        2        30        1.016344E+04        1.008139E+02        1.604503E+01        4.533900E+01        4.608002E+05             \r\n        3        28        1.570341E+04        1.253132E+02        1.994422E+01        4.568816E+01        7.174599E+05             \r\n        4        27        1.618645E+04        1.272260E+02        2.024864E+01        7.802695E+01        1.262979E+06             \r\n        5        26        1.860862E+04        1.364134E+02        2.171087E+01        2.196914E+01        4.088153E+05             \r\n        6        25        2.977019E+04        1.725404E+02        2.746066E+01        1.283353E+01        3.820565E+05             \r\n        7        24        3.638766E+04        1.907555E+02        3.035968E+01        2.039653E+01        7.421821E+05             \r\n        8        23        4.641253E+04        2.154357E+02        3.428765E+01        1.889594E+01        8.770084E+05             \r\n        9        22        6.204409E+04        2.490865E+02        3.964335E+01        5.546363E+00        3.441190E+05             \r\n       10        21        7.171398E+04        2.677946E+02        4.262084E+01        1.515314E+01        1.086692E+06             \r\n       11        20        7.733423E+04        2.780903E+02        4.425945E+01        4.523479E+00        3.498198E+05             \r\n       12        19        1.061967E+05        3.258784E+02        5.186515E+01        5.172708E+00        5.493246E+05             \r\n       13        18        1.231884E+05        3.509821E+02        5.586053E+01        6.889587E+00        8.487172E+05             \r\n       14        17        1.328689E+05        3.645119E+02        5.801387E+01        2.185959E+01        2.904460E+06             \r\n       15        16        1.365066E+05        3.694680E+02        5.880267E+01        6.424380E+00        8.769705E+05             \r\n       16        15        1.573173E+05        3.966325E+02        6.312602E+01        6.076375E+01        9.559190E+06             \r\n       17        14        2.138760E+05        4.624673E+02        7.360395E+01        5.585177E+00        1.194535E+06             \r\n       18        13        3.149601E+05        5.612131E+02        8.931983E+01        2.696226E+01        8.492035E+06             \r\n       19        12        3.255453E+05        5.705658E+02        9.080836E+01        2.774672E+01        9.032815E+06             \r\n       20        11        5.696371E+05        7.547430E+02        1.201211E+02        5.660728E+00        3.224560E+06             \r\n       21        10        7.194813E+05        8.482225E+02        1.349988E+02        5.653261E+00        4.067416E+06             \r\n       22         9        1.393963E+06        1.180662E+03        1.879082E+02        9.469474E+00        1.320009E+07             \r\n       23         8        1.621511E+06        1.273386E+03        2.026656E+02        1.533959E+01        2.487332E+07             \r\n       24         7        1.666036E+06        1.290750E+03        2.054293E+02        1.895076E+01        3.157265E+07             \r\n       25         6        1.898812E+06        1.377974E+03        2.193113E+02        1.103129E+01        2.094635E+07             \r\n       26         5        1.905306E+06        1.380328E+03        2.196860E+02        1.101142E+01        2.098012E+07             \r\n       27         4        2.450430E+06        1.565385E+03        2.491388E+02        1.538831E+01        3.770798E+07             \r\n       28         3        2.921342E+06        1.709193E+03        2.720266E+02        7.173540E+00        2.095636E+07             \r\n       29         2        4.031186E+06        2.007781E+03        3.195483E+02        9.426815E+00        3.800125E+07             \r\n       30         1        4.562698E+06        2.136047E+03        3.399625E+02        6.798706E+00        3.102044E+07             \r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    25\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    26\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     1.178790E+03   1.178791E+03   1.178791E+03   1.178790E+03   0.0            0.0            0.0                          \r\n             1.908183E+04   1.843211E+04   1.842893E+04   1.909144E+04                  0.0            0.0                          \r\n0      2     3.246815E+04   3.148989E+04   3.152558E+04   3.243316E+04   0.0            0.0            0.0                          \r\n             3.343917E+04   3.437664E+04   3.437654E+04   3.343966E+04                  0.0            0.0                          \r\n0      3     4.821773E+04   4.804644E+04   4.807116E+04   4.819211E+04   0.0            0.0            0.0                          \r\n             4.687209E+04   4.691547E+04   4.700289E+04   4.678652E+04                  0.0            0.0                          \r\n0      4     1.540778E+04   1.627876E+04   1.630153E+04   1.542827E+04   0.0            0.0            0.0                          \r\n             2.176439E+03   2.176437E+03   2.176437E+03   2.176439E+03                  0.0            0.0                          \r\n0      5     9.993179E+03   1.331252E+04   1.331255E+04   9.993160E+03   0.0            0.0            0.0                          \r\n             1.063326E+04   9.773314E+03   9.767684E+03   1.063971E+04                  0.0            0.0                          \r\n0      6     8.129687E+03   9.937537E+03   9.937777E+03   8.129443E+03   0.0            0.0            0.0                          \r\n             8.713049E+03   7.728199E+03   7.748788E+03   8.675994E+03                  0.0            0.0                          \r\n0      7     1.742439E+04   1.573233E+04   1.573219E+04   1.742453E+04   0.0            0.0            0.0                          \r\n             1.147027E+04   1.196116E+04   1.193640E+04   1.149368E+04                  0.0            0.0                          \r\n0      8     4.340386E+04   4.570248E+04   4.570418E+04   4.340203E+04   0.0            0.0            0.0                          \r\n             5.138514E+04   4.890187E+04   4.893790E+04   5.135182E+04                  0.0            0.0                          \r\n0      9     5.158394E+04   4.864233E+04   4.867581E+04   5.154818E+04   0.0            0.0            0.0                          \r\n             7.008777E+04   7.337635E+04   7.334931E+04   7.011454E+04                  0.0            0.0                          \r\n0     10     2.404755E+04   2.632583E+04   2.630614E+04   2.406790E+04   0.0            0.0            0.0                          \r\n             5.605316E+04   5.440032E+04   5.439816E+04   5.605539E+04                  0.0            0.0                          \r\n0     11     5.633305E+04   5.422484E+04   5.422278E+04   5.633540E+04   0.0            0.0            0.0                          \r\n             7.504202E+04   7.718702E+04   7.719223E+04   7.503688E+04                  0.0            0.0                          \r\n0     12     9.235566E+03   7.373854E+03   7.371533E+03   9.239488E+03   0.0            0.0            0.0                          \r\n             7.740750E+03   1.121086E+04   1.116488E+04   7.813707E+03                  0.0            0.0                          \r\n0     13     7.996412E+03   6.336864E+03   6.329872E+03   8.009531E+03   0.0            0.0            0.0                          \r\n             7.514286E+03   9.272699E+03   9.329328E+03   7.458526E+03                  0.0            0.0                          \r\n0     14     1.077471E+04   1.004266E+04   1.004687E+04   1.076662E+04   0.0            0.0            0.0                          \r\n             1.328446E+04   1.402298E+04   1.388890E+04   1.339253E+04                  0.0            0.0                          \r\n0     15     6.905577E+04   6.784570E+04   6.785236E+04   6.904927E+04   0.0            0.0            0.0                          \r\n             3.657754E+04   3.751709E+04   3.753154E+04   3.656389E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    27\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     3.664695E+04   3.749719E+04   3.751059E+04   3.663227E+04   0.0            0.0            0.0                          \r\n             3.544575E+04   3.501445E+04   3.505797E+04   3.539959E+04                  0.0            0.0                          \r\n0     17     4.575274E+04   4.625714E+04   4.627828E+04   4.573425E+04   0.0            0.0            0.0                          \r\n             4.056975E+04   4.199944E+04   4.198895E+04   4.058120E+04                  0.0            0.0                          \r\n0     18     4.065945E+04   4.188680E+04   4.187612E+04   4.067071E+04   0.0            0.0            0.0                          \r\n             7.811836E+04   7.638349E+04   7.638800E+04   7.811380E+04                  0.0            0.0                          \r\n0     19     2.675063E+04   2.467412E+04   2.464298E+04   2.679033E+04   0.0            0.0            0.0                          \r\n             2.742687E+04   2.702892E+04   2.700342E+04   2.744233E+04                  0.0            0.0                          \r\n0     20     7.971871E+03   8.354741E+03   8.379634E+03   7.959457E+03   0.0            0.0            0.0                          \r\n             1.137305E+04   1.192163E+04   1.195130E+04   1.135078E+04                  0.0            0.0                          \r\n0     21     1.601169E+04   2.122718E+04   2.109472E+04   1.611546E+04   0.0            0.0            0.0                          \r\n             2.084099E+04   1.855239E+04   1.849146E+04   2.096137E+04                  0.0            0.0                          \r\n0     22     1.264243E+04   1.116928E+04   1.115781E+04   1.269140E+04   0.0            0.0            0.0                          \r\n             1.337803E+04   1.470571E+04   1.470832E+04   1.337452E+04                  0.0            0.0                          \r\n0     23     5.712354E+04   5.733761E+04   5.735087E+04   5.711045E+04   0.0            0.0            0.0                          \r\n             3.233896E+04   3.188714E+04   3.192883E+04   3.229175E+04                  0.0            0.0                          \r\n0     24     3.229660E+04   3.192694E+04   3.196904E+04   3.224980E+04   0.0            0.0            0.0                          \r\n             2.013063E+04   1.995136E+04   1.992630E+04   2.014910E+04                  0.0            0.0                          \r\n0     25     2.013178E+04   1.988383E+04   1.994375E+04   2.008669E+04   0.0            0.0            0.0                          \r\n             4.165341E+04   4.200947E+04   4.208063E+04   4.158416E+04                  0.0            0.0                          \r\n0     26     4.583040E+04   4.632112E+04   4.630554E+04   4.584333E+04   0.0            0.0            0.0                          \r\n             3.510403E+04   3.453568E+04   3.445950E+04   3.518263E+04                  0.0            0.0                          \r\n0     27     3.517695E+04   3.446425E+04   3.438822E+04   3.525569E+04   0.0            0.0            0.0                          \r\n             1.779906E+04   1.715081E+04   1.716300E+04   1.779837E+04                  0.0            0.0                          \r\n0     28     1.773523E+04   1.711583E+04   1.708370E+04   1.775291E+04   0.0            0.0            0.0                          \r\n             6.622332E+04   6.668190E+04   6.667159E+04   6.623608E+04                  0.0            0.0                          \r\n0     29     1.530243E+04   1.764250E+04   1.771379E+04   1.525162E+04   0.0            0.0            0.0                          \r\n             1.262470E+04   1.023964E+04   1.026601E+04   1.255865E+04                  0.0            0.0                          \r\n0     30     4.216344E+02   5.636169E+02   4.161478E+02   5.419356E+02   0.0            0.0            0.0                          \r\n             1.546431E+04   1.550369E+04   1.546231E+04   1.550769E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    28\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     2.571862E+02   4.645767E+02   2.093839E+02   4.130486E+02   0.0            0.0            0.0                          \r\n             5.750908E+03   6.102871E+03   5.739330E+03   6.122879E+03                  0.0            0.0                          \r\n0     32     2.057437E+04   2.370996E+04   2.369729E+04   2.057491E+04   0.0            0.0            0.0                          \r\n             2.070261E+04   1.799298E+04   1.803163E+04   2.070591E+04                  0.0            0.0                          \r\n0     33     2.509552E+04   2.178979E+04   2.170314E+04   2.516778E+04   0.0            0.0            0.0                          \r\n             1.587497E+04   1.993111E+04   1.991058E+04   1.589727E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    29\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     3.447676E+04   3.447677E+04   3.447677E+04   3.447676E+04   0.0            0.0            0.0                          \r\n             8.194910E+04   7.757912E+04   7.653505E+04   8.299366E+04                  0.0            0.0                          \r\n0      2     8.236158E+04   8.653947E+04   8.763060E+04   8.127011E+04   0.0            0.0            0.0                          \r\n             8.965769E+04   8.529383E+04   8.444664E+04   9.050498E+04                  0.0            0.0                          \r\n0      3     7.829619E+04   7.062399E+04   7.146624E+04   7.745463E+04   0.0            0.0            0.0                          \r\n             7.079675E+04   7.586494E+04   7.763704E+04   6.902289E+04                  0.0            0.0                          \r\n0      4     8.389366E+04   8.208953E+04   8.028597E+04   8.569606E+04   0.0            0.0            0.0                          \r\n             3.390645E+04   3.390645E+04   3.390645E+04   3.390645E+04                  0.0            0.0                          \r\n0      5     5.197108E+04   5.266442E+04   5.266301E+04   5.197250E+04   0.0            0.0            0.0                          \r\n             3.598179E+04   3.582001E+04   3.543059E+04   3.637118E+04                  0.0            0.0                          \r\n0      6     5.166925E+04   5.193077E+04   5.193484E+04   5.166520E+04   0.0            0.0            0.0                          \r\n             4.761126E+04   4.694499E+04   4.757216E+04   4.698284E+04                  0.0            0.0                          \r\n0      7     5.001864E+04   4.903168E+04   4.902903E+04   5.002129E+04   0.0            0.0            0.0                          \r\n             3.354098E+04   3.546412E+04   3.424027E+04   3.476462E+04                  0.0            0.0                          \r\n0      8     9.997838E+04   1.074701E+05   1.073822E+05   1.000660E+05   0.0            0.0            0.0                          \r\n             8.381434E+04   7.967091E+04   7.696496E+04   8.652145E+04                  0.0            0.0                          \r\n0      9     7.909072E+04   8.506534E+04   8.235847E+04   8.179796E+04   0.0            0.0            0.0                          \r\n             6.142889E+04   6.725825E+04   6.683133E+04   6.185413E+04                  0.0            0.0                          \r\n0     10     8.906960E+04   9.835371E+04   9.885457E+04   8.856670E+04   0.0            0.0            0.0                          \r\n             4.932727E+04   4.749062E+04   4.758314E+04   4.937424E+04                  0.0            0.0                          \r\n0     11     4.821773E+04   4.683400E+04   4.680118E+04   4.813779E+04   0.0            0.0            0.0                          \r\n             8.706620E+04   9.360716E+04   9.376653E+04   8.690691E+04                  0.0            0.0                          \r\n0     12     2.265885E+04   2.198111E+04   2.171516E+04   2.295492E+04   0.0            0.0            0.0                          \r\n             8.046199E+04   8.057027E+04   7.916444E+04   8.186655E+04                  0.0            0.0                          \r\n0     13     2.924243E+04   2.677377E+04   2.730520E+04   2.869077E+04   0.0            0.0            0.0                          \r\n             6.275838E+04   6.138748E+04   6.137629E+04   6.276807E+04                  0.0            0.0                          \r\n0     14     2.533952E+04   2.682032E+04   2.587445E+04   2.624951E+04   0.0            0.0            0.0                          \r\n             7.365803E+04   7.787660E+04   7.472247E+04   7.680597E+04                  0.0            0.0                          \r\n0     15     4.404829E+04   5.090567E+04   5.104563E+04   4.392732E+04   0.0            0.0            0.0                          \r\n             1.837606E+04   2.826864E+04   2.719280E+04   1.939652E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    30\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     1.537083E+04   3.157888E+04   3.051264E+04   1.640142E+04   0.0            0.0            0.0                          \r\n             5.473587E+04   3.923241E+04   4.106689E+04   5.295678E+04                  0.0            0.0                          \r\n0     17     1.165762E+05   1.044341E+05   1.025281E+05   1.184649E+05   0.0            0.0            0.0                          \r\n             6.568218E+04   7.042453E+04   7.049480E+04   6.567344E+04                  0.0            0.0                          \r\n0     18     6.585580E+04   6.933300E+04   6.939731E+04   6.583797E+04   0.0            0.0            0.0                          \r\n             1.254432E+05   1.316655E+05   1.315351E+05   1.255725E+05                  0.0            0.0                          \r\n0     19     8.465370E+04   8.525977E+04   8.385545E+04   8.605398E+04   0.0            0.0            0.0                          \r\n             9.715253E+04   9.774745E+04   9.777699E+04   9.714180E+04                  0.0            0.0                          \r\n0     20     7.787187E+04   7.655583E+04   7.659362E+04   7.783397E+04   0.0            0.0            0.0                          \r\n             5.804530E+04   5.912761E+04   5.916411E+04   5.801396E+04                  0.0            0.0                          \r\n0     21     8.993607E+04   9.070291E+04   8.757109E+04   9.307714E+04   0.0            0.0            0.0                          \r\n             1.004165E+05   1.050680E+05   1.022855E+05   1.031369E+05                  0.0            0.0                          \r\n0     22     6.201543E+04   2.545752E+04   2.408154E+04   6.350678E+04   0.0            0.0            0.0                          \r\n             5.136238E+04   9.202466E+04   9.079803E+04   5.138222E+04                  0.0            0.0                          \r\n0     23     7.523718E+04   6.471878E+04   6.496494E+04   7.430566E+04   0.0            0.0            0.0                          \r\n             3.443609E+04   4.180477E+04   4.318474E+04   3.624063E+04                  0.0            0.0                          \r\n0     24     2.830674E+04   2.858191E+04   2.818061E+04   2.778227E+04   0.0            0.0            0.0                          \r\n             2.766715E+04   3.504334E+04   3.531820E+04   2.967608E+04                  0.0            0.0                          \r\n0     25     2.947936E+04   3.339885E+04   3.607935E+04   2.624575E+04   0.0            0.0            0.0                          \r\n             6.667752E+04   7.327205E+04   7.425331E+04   6.559393E+04                  0.0            0.0                          \r\n0     26     1.077357E+05   1.158359E+05   1.148908E+05   1.086229E+05   0.0            0.0            0.0                          \r\n             1.435252E+04   2.141943E+04   2.251148E+04   1.329944E+04                  0.0            0.0                          \r\n0     27     2.660444E+04   3.891982E+04   4.006109E+04   2.622177E+04   0.0            0.0            0.0                          \r\n             4.724058E+04   4.200287E+04   4.527849E+04   5.371407E+04                  0.0            0.0                          \r\n0     28     5.325762E+04   4.260601E+04   4.434114E+04   4.647391E+04   0.0            0.0            0.0                          \r\n             1.224665E+05   1.134378E+05   1.103830E+05   1.255571E+05                  0.0            0.0                          \r\n0     29     4.777548E+04   8.533083E+04   8.847348E+04   4.465138E+04   0.0            0.0            0.0                          \r\n             6.264133E+04   2.178776E+04   2.462382E+04   6.041015E+04                  0.0            0.0                          \r\n0     30     6.478356E+03   6.375633E+03   7.934208E+03   7.839694E+03   0.0            0.0            0.0                          \r\n             1.664618E+04   1.468998E+04   1.574158E+04   1.337092E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    31\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     7.229926E+03   7.158932E+03   7.233649E+03   7.162764E+03   0.0            0.0            0.0                          \r\n             9.891587E+03   7.577913E+03   1.010411E+04   7.145479E+03                  0.0            0.0                          \r\n0     32     6.209275E+04   6.511343E+04   6.521561E+04   6.196466E+04   0.0            0.0            0.0                          \r\n             3.345692E+04   2.897329E+04   3.064000E+04   3.180851E+04                  0.0            0.0                          \r\n0     33     5.503746E+04   5.793506E+04   5.518345E+04   5.785186E+04   0.0            0.0            0.0                          \r\n             2.809474E+04   2.696173E+04   2.726813E+04   2.774217E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    32\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0      1     2.567285E+02   2.567288E+02   2.567287E+02   2.567283E+02   0.0            0.0            0.0                          \r\n             5.549499E+04   5.471775E+04   5.535395E+04   5.463441E+04                  0.0            0.0                          \r\n0      2     5.332703E+04   5.462971E+04   5.330300E+04   5.458227E+04   0.0            0.0            0.0                          \r\n             8.017577E+04   7.793514E+04   8.009752E+04   7.787291E+04                  0.0            0.0                          \r\n0      3     7.807268E+04   7.928255E+04   7.815756E+04   7.938162E+04   0.0            0.0            0.0                          \r\n             6.122169E+04   6.304927E+04   6.114656E+04   6.296275E+04                  0.0            0.0                          \r\n0      4     6.473193E+04   6.321254E+04   6.449573E+04   6.300733E+04   0.0            0.0            0.0                          \r\n             2.608415E+02   2.608419E+02   2.608346E+02   2.608342E+02                  0.0            0.0                          \r\n0      5     1.478923E+03   1.452996E+03   1.490965E+03   1.440763E+03   0.0            0.0            0.0                          \r\n             1.357793E+04   1.294812E+04   1.357461E+04   1.294576E+04                  0.0            0.0                          \r\n0      6     1.387180E+03   1.494680E+03   1.383783E+03   1.497184E+03   0.0            0.0            0.0                          \r\n             2.034799E+04   2.123089E+04   2.034015E+04   2.122262E+04                  0.0            0.0                          \r\n0      7     1.347791E+03   1.270137E+03   1.341595E+03   1.275993E+03   0.0            0.0            0.0                          \r\n             1.953533E+04   1.882884E+04   1.954425E+04   1.883760E+04                  0.0            0.0                          \r\n0      8     4.598664E+03   2.845709E+03   4.738092E+03   2.761879E+03   0.0            0.0            0.0                          \r\n             8.544122E+04   8.359920E+04   8.534745E+04   8.351069E+04                  0.0            0.0                          \r\n0      9     8.535356E+04   8.351663E+04   8.543491E+04   8.359306E+04   0.0            0.0            0.0                          \r\n             3.761988E+04   3.669824E+04   3.766497E+04   3.672368E+04                  0.0            0.0                          \r\n0     10     3.755671E+04   3.876746E+04   3.750352E+04   3.868031E+04   0.0            0.0            0.0                          \r\n             6.237957E+04   6.244950E+04   6.230128E+04   6.237043E+04                  0.0            0.0                          \r\n0     11     6.231410E+04   6.238287E+04   6.236627E+04   6.243658E+04   0.0            0.0            0.0                          \r\n             2.308956E+03   4.353183E+03   2.267583E+03   4.204636E+03                  0.0            0.0                          \r\n0     12     1.336039E+04   1.313825E+04   1.334310E+04   1.312194E+04   0.0            0.0            0.0                          \r\n             3.929434E+04   3.709136E+04   3.927221E+04   3.707370E+04                  0.0            0.0                          \r\n0     13     2.059188E+04   2.094562E+04   2.060620E+04   2.096141E+04   0.0            0.0            0.0                          \r\n             9.911844E+03   9.661546E+03   9.887971E+03   9.660266E+03                  0.0            0.0                          \r\n0     14     1.930336E+04   1.899980E+04   1.932783E+04   1.902361E+04   0.0            0.0            0.0                          \r\n             5.021713E+04   4.803618E+04   5.022994E+04   4.804588E+04                  0.0            0.0                          \r\n0     15     2.334757E+03   3.360701E+03   2.265307E+03   3.176755E+03   0.0            0.0            0.0                          \r\n             3.335259E+04   3.305411E+04   3.346638E+04   3.316077E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    33\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     16     3.331689E+04   3.302120E+04   3.350292E+04   3.319456E+04   0.0            0.0            0.0                          \r\n             5.294143E+04   5.387535E+04   5.317137E+04   5.411884E+04                  0.0            0.0                          \r\n0     17     5.553528E+04   5.332731E+04   5.530473E+04   5.311932E+04   0.0            0.0            0.0                          \r\n             3.990913E+04   3.995993E+04   3.984815E+04   3.989132E+04                  0.0            0.0                          \r\n0     18     3.989628E+04   3.994533E+04   3.985966E+04   3.990458E+04   0.0            0.0            0.0                          \r\n             4.918496E+03   3.049909E+03   5.183028E+03   3.004320E+03                  0.0            0.0                          \r\n0     19     3.938346E+04   3.703080E+04   3.936271E+04   3.701455E+04   0.0            0.0            0.0                          \r\n             4.347070E+04   4.142732E+04   4.348017E+04   4.143069E+04                  0.0            0.0                          \r\n0     20     1.008716E+04   9.771994E+03   1.006364E+04   9.771166E+03   0.0            0.0            0.0                          \r\n             1.817041E+03   1.961888E+03   1.867628E+03   1.921314E+03                  0.0            0.0                          \r\n0     21     5.049938E+04   4.788511E+04   5.049127E+04   4.788058E+04   0.0            0.0            0.0                          \r\n             7.048341E+04   6.791011E+04   7.047043E+04   6.789600E+04                  0.0            0.0                          \r\n0     22     6.354850E+04   6.285844E+04   6.335964E+04   6.270468E+04   0.0            0.0            0.0                          \r\n             5.026121E+04   4.900245E+04   5.086683E+04   4.954296E+04                  0.0            0.0                          \r\n0     23     4.893522E+04   5.056873E+04   4.917171E+04   5.082982E+04   0.0            0.0            0.0                          \r\n             3.775177E+04   3.828587E+04   3.572420E+04   3.623934E+04                  0.0            0.0                          \r\n0     24     3.719620E+04   3.771940E+04   3.624064E+04   3.676849E+04   0.0            0.0            0.0                          \r\n             4.998793E+04   5.071449E+04   5.103996E+04   5.175341E+04                  0.0            0.0                          \r\n0     25     3.741152E+04   3.812913E+04   3.713881E+04   3.781273E+04   0.0            0.0            0.0                          \r\n             1.222368E+04   1.369724E+04   1.039807E+04   1.182967E+04                  0.0            0.0                          \r\n0     26     1.404378E+04   1.176311E+04   1.252101E+04   1.010124E+04   0.0            0.0            0.0                          \r\n             5.783022E+04   5.735512E+04   5.598300E+04   5.549712E+04                  0.0            0.0                          \r\n0     27     5.732443E+04   5.686525E+04   5.653948E+04   5.603621E+04   0.0            0.0            0.0                          \r\n             5.296335E+04   5.373770E+04   5.246637E+04   5.320927E+04                  0.0            0.0                          \r\n0     28     4.838305E+04   4.940952E+04   4.782038E+04   4.885243E+04   0.0            0.0            0.0                          \r\n             7.736326E+04   7.502205E+04   7.484079E+04   7.258430E+04                  0.0            0.0                          \r\n0     29     7.486270E+04   7.699262E+04   7.213762E+04   7.421414E+04   0.0            0.0            0.0                          \r\n             6.279137E+04   6.380214E+04   6.511079E+04   6.615710E+04                  0.0            0.0                          \r\n0     30     2.220984E+04   2.061368E+04   3.460043E+04   3.310282E+04   0.0            0.0            0.0                          \r\n             2.476767E+04   2.428523E+04   1.477357E+04   1.418612E+04                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    34\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 S T R E S S E S   I N   B A R   E L E M E N T S          ( C B A R )\r\n  ELEMENT        SA1            SA2            SA3            SA4           AXIAL          SA-MAX         SA-MIN     M.S.-T\r\n    ID.          SB1            SB2            SB3            SB4           STRESS         SB-MAX         SB-MIN     M.S.-C\r\n0     31     3.960641E+04   4.199519E+04   5.085416E+04   5.190227E+04   0.0            0.0            0.0                          \r\n             3.698705E+04   3.670217E+04   3.116929E+04   3.210269E+04                  0.0            0.0                          \r\n0     32     4.280929E+04   4.178159E+04   4.281652E+04   4.178114E+04   0.0            0.0            0.0                          \r\n             2.629764E+04   2.752842E+04   2.631731E+04   2.755080E+04                  0.0            0.0                          \r\n0     33     6.954383E+04   6.847337E+04   6.951866E+04   6.844734E+04   0.0            0.0            0.0                          \r\n             6.104688E+03   7.207377E+03   6.136997E+03   7.240359E+03                  0.0            0.0                          \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    35\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 1            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     1.577707E-03  1.352047E-01   3.270172E+03  4.977163E+05   6.540343E+01  9.954328E+03   2.357580E+04   0.0         \r\n            2     3.289613E+03  8.505484E+05   3.175347E+03  9.018502E+05   3.049833E+01  1.751315E+04   1.927827E+04   1.209279E+01\r\n            3     3.093245E+03  1.280200E+06   6.187243E+03  1.247282E+06   1.110266E+02  3.158450E+04   9.527955E+03   2.011086E+01\r\n            4     6.424610E+03  4.161514E+05   1.082446E-03  7.408679E-02   1.284922E+02  8.323029E+03   4.352876E+04   0.0         \r\n            5     1.209543E+01  7.080988E+05   3.156207E+03  6.100238E+05   6.594255E+01  2.660989E+04   2.289866E+05   1.790097E+02\r\n            6     3.210060E+01  6.501046E+05   5.973831E+03  5.851206E+05   1.250930E+02  2.375589E+04   4.646909E+04   9.077562E+01\r\n            7     2.011739E+01  1.078698E+06   8.065806E+03  7.560911E+05   1.684345E+02  3.778070E+04   2.059927E+05   2.477356E+02\r\n            8     1.733586E+02  5.692608E+05   4.089431E+03  6.410953E+05   5.323902E+01  1.506047E+04   3.271747E+04   3.254481E+00\r\n            9     4.089425E+03  6.410955E+05   8.710187E+02  9.180226E+05   1.748528E+02  7.726994E+04   2.965304E+04   3.254481E+00\r\n           10     9.663951E+02  3.220599E+05   1.124084E+03  7.065324E+05   3.187954E+01  3.332355E+04   2.378642E+04   4.935758E+00\r\n           11     1.124085E+03  7.065326E+05   2.314692E+02  9.733732E+05   2.586712E+01  3.344812E+04   3.233013E+04   4.935757E+00\r\n           12     3.153895E+03  4.389111E+05   1.116808E+04  5.499898E+05   1.126159E+02  1.162145E+04   2.313406E+05   3.735302E+01\r\n           13     5.966154E+03  5.101877E+05   6.326993E+03  5.987676E+05   8.532127E+01  1.399723E+04   7.077902E+04   5.293118E+01\r\n           14     8.061212E+03  6.612524E+05   2.172875E+04  9.196241E+05   1.900877E+02  2.104625E+04   2.166088E+05   4.349700E+01\r\n           15     2.316997E+02  8.754789E+05   1.910264E+03  4.725884E+05   5.338811E+01  3.240551E+04   3.487044E+04   1.680946E+00\r\n           16     1.910265E+03  4.725884E+05   2.882042E+03  4.492604E+05   2.909996E+01  1.372919E+04   3.789169E+04   1.680946E+00\r\n           17     2.916958E+03  5.884590E+05   9.086458E+02  5.279267E+05   6.112329E+01  2.152794E+04   2.625937E+04   5.493711E+00\r\n           18     9.086439E+02  5.279268E+05   2.260497E+02  9.886046E+05   3.090876E+01  4.048998E+04   2.245689E+04   5.493711E+00\r\n           19     1.116958E+04  9.361156E+05   5.034120E+03  1.036670E+06   2.556953E+02  3.217403E+04   7.988296E+05   2.276437E+02\r\n           20     6.327911E+03  5.814652E+05   8.123043E+03  8.285628E+05   6.931773E+01  1.991626E+04   5.905367E+04   8.037808E+01\r\n           21     2.173407E+04  5.632021E+05   2.259577E+04  6.523734E+05   7.336162E+02  1.916847E+04   6.891247E+05   2.055705E+02\r\n           22     5.027255E+03  3.107104E+05   3.536918E+03  3.700335E+05   1.649266E+02  1.358582E+04   3.759481E+04   9.266260E+00\r\n           23     3.406266E+03  1.522267E+06   5.998547E+03  8.540409E+05   1.451974E+02  4.643278E+04   1.056650E+04   3.026649E+03\r\n           24     5.998545E+03  8.540420E+05   6.372955E+03  5.328766E+05   1.182433E+02  2.933564E+04   9.038326E+03   3.026650E+03\r\n           25     1.163175E+04  5.321114E+05   4.338580E+03  1.112656E+06   2.530770E+02  3.111938E+04   9.347482E+03   7.038633E+03\r\n           26     4.290284E+03  1.225492E+06   5.001845E+03  9.260975E+05   2.219855E+02  4.407102E+04   1.176091E+04   1.453727E+03\r\n           27     5.001842E+03  9.260976E+05   7.708822E+03  4.645801E+05   2.096854E+02  6.510289E+04   1.319764E+04   1.453727E+03\r\n           28     1.364685E+04  4.630861E+05   9.530029E+03  1.767573E+06   8.696507E+02  6.347714E+04   1.293240E+04   3.225305E+03\r\n           29     9.690189E+03  4.374357E+05   8.321604E+03  3.015054E+05   3.601331E+02  1.475510E+04   3.933751E+04   1.652723E+01\r\n           30     1.780594E+04  1.006518E+04   2.190765E+04  4.117184E+05   4.136135E+02  4.393579E+03   2.573119E+02   2.184272E+03\r\n           31     2.073742E+04  4.678845E+03   2.200368E+04  1.574569E+05   4.450482E+02  1.688913E+03   7.408736E+02   3.226121E+03\r\n           32     4.955051E+03  5.909315E+05   8.441701E+03  2.855405E+05   1.687609E+02  1.744451E+04   7.982771E+05   4.777837E+01\r\n           33     2.134689E+04  1.022363E+06   3.707354E+03  4.688672E+05   4.737332E+02  2.980689E+04   6.948428E+05   2.510667E+01\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    36\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 2            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     2.513616E-03  2.103029E-01   6.445730E+04  1.662447E+06   1.289146E+03  3.324894E+04   6.895353E+05   0.0         \r\n            2     6.675525E+04  2.245392E+06   7.301516E+04  2.325797E+06   4.943938E+02  4.571023E+04   6.995943E+04   2.686927E+02\r\n            3     7.114540E+04  1.980087E+06   1.140906E+05  1.949895E+06   2.285557E+03  4.912280E+04   7.989680E+04   4.605802E+02\r\n            4     1.194874E+05  1.778504E+06   1.659631E-02  1.001422E-01   2.389748E+03  3.557007E+04   6.781290E+05   0.0         \r\n            5     2.688844E+02  3.766690E+06   9.190689E+04  2.584368E+06   1.920168E+03  1.317753E+05   2.064398E+04   3.520914E+03\r\n            6     7.252032E+02  3.728696E+06   1.159865E+05  3.403015E+06   2.431423E+03  1.481421E+05   3.131490E+04   1.904541E+03\r\n            7     4.606120E+02  3.565404E+06   2.061089E+05  2.482468E+06   4.303516E+03  1.249254E+05   3.783397E+04   5.506275E+03\r\n            8     3.980440E+03  1.321728E+06   9.509312E+04  1.040054E+06   1.236758E+03  2.949273E+04   9.688570E+04   6.854804E+01\r\n            9     9.509311E+04  1.040054E+06   1.514747E+04  8.161240E+05   4.010574E+03  5.787884E+04   1.219375E+05   6.854804E+01\r\n           10     1.801777E+04  1.186078E+06   2.805125E+04  5.976338E+05   5.129662E+02  5.202213E+04   1.434048E+05   1.097423E+02\r\n           11     2.805126E+04  5.976338E+05   5.544989E+03  1.152916E+06   6.602510E+02  3.246822E+04   9.680942E+04   1.097422E+02\r\n           12     9.184083E+04  1.605170E+06   3.139060E+05  5.791678E+06   3.096398E+03  8.790550E+04   4.958456E+04   4.869093E+02\r\n           13     1.158101E+05  2.014144E+06   3.555260E+04  4.468088E+06   1.882420E+03  6.477689E+04   6.871477E+04   1.030279E+03\r\n           14     2.059998E+05  1.872776E+06   5.598742E+05  5.439935E+06   4.916778E+03  7.969188E+04   6.122845E+04   2.159729E+02\r\n           15     4.540024E+03  6.032798E+05   3.419612E+04  2.929028E+05   9.644222E+02  1.340200E+04   8.361025E+04   4.578294E+01\r\n           16     3.419610E+04  2.929028E+05   7.301272E+04  5.967566E+05   7.588245E+02  1.375118E+04   1.296977E+05   4.578294E+01\r\n           17     7.404617E+04  1.413868E+06   1.401291E+04  8.627872E+05   1.549134E+03  4.662720E+04   1.038070E+05   1.332999E+02\r\n           18     1.401288E+04  8.627872E+05   4.724432E+03  1.645218E+06   5.051071E+02  6.079190E+04   6.567583E+04   1.332999E+02\r\n           19     3.139503E+05  6.110958E+06   1.570422E+05  7.014318E+06   7.530526E+03  2.178864E+05   6.029775E+04   4.972271E+03\r\n           20     3.548322E+04  5.558266E+06   6.441187E+03  4.217066E+06   5.783055E+02  1.610543E+05   5.388932E+04   2.230398E+03\r\n           21     5.600069E+05  6.485117E+06   5.355976E+05  7.375064E+06   1.824292E+04  2.296206E+05   1.140147E+05   4.728164E+03\r\n           22     1.443947E+05  7.567634E+05   1.157139E+05  1.538778E+06   5.010203E+03  4.589948E+04   6.975886E+05   2.639153E+02\r\n           23     1.122316E+05  1.709254E+06   1.703325E+05  7.373278E+05   4.771468E+03  4.497959E+04   4.472912E+05   2.231929E+03\r\n           24     1.703325E+05  7.373279E+05   3.538340E+05  8.274904E+05   2.416542E+04  4.284259E+04   9.838972E+04   2.231929E+03\r\n           25     2.007243E+05  8.274010E+05   8.699416E+04  1.859316E+06   4.410687E+03  4.239589E+04   9.546980E+04   5.362732E+03\r\n           26     8.560608E+04  2.972405E+06   1.397974E+05  4.708711E+05   4.413410E+03  6.677482E+04   9.554614E+04   1.211940E+03\r\n           27     1.397974E+05  4.708717E+05   2.854577E+05  8.781862E+05   2.299502E+04  8.573836E+04   4.879855E+05   1.211940E+03\r\n           28     2.807995E+05  8.743677E+05   2.566154E+05  2.963122E+06   2.028910E+04  8.445558E+04   4.778693E+05   2.337389E+03\r\n           29     2.605233E+05  1.428995E+06   2.249135E+05  7.166039E+05   9.690521E+03  4.288532E+04   7.188046E+05   4.330412E+02\r\n           30     4.910644E+05  7.569972E+03   5.551753E+05  3.085537E+05   1.088403E+04  3.292925E+03   2.403247E+04   1.744089E+03\r\n           31     4.909341E+05  3.444293E+03   5.013028E+05  1.239418E+05   1.032199E+04  1.326281E+03   2.679873E+04   3.866940E+03\r\n           32     1.568490E+05  4.573082E+06   2.124196E+05  2.241703E+06   4.101976E+03  1.361162E+05   1.056362E+05   1.200059E+03\r\n           33     5.352826E+05  4.046608E+06   9.885097E+04  1.966598E+06   1.149867E+04  1.198298E+05   1.488351E+05   7.642048E+02\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    37\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                  DIRECTION 3            \r\n \r\n                                 F O R C E S   I N   B A R   E L E M E N T S         ( C B A R )\r\n0    ELEMENT         BEND-MOMENT END-A            BEND-MOMENT END-B                - SHEAR -               AXIAL\r\n       ID.         PLANE 1       PLANE 2        PLANE 1       PLANE 2        PLANE 1       PLANE 2         FORCE         TORQUE\r\n            1     1.270716E-01  4.887753E-03   3.804006E+06  4.704599E+04   7.608009E+04  9.409199E+02   5.134572E+03   0.0         \r\n            2     3.726792E+06  5.871884E+04   5.461640E+06  5.990879E+04   2.914760E+04  1.186260E+03   1.664101E+03   6.251178E+03\r\n            3     5.443065E+06  4.520869E+04   4.293301E+06  4.514342E+04   4.550991E+04  1.129378E+03   2.029117E+03   8.318733E+03\r\n            4     4.415070E+06  4.972008E+04   4.721157E+00  5.888932E-03   8.830134E+04  9.944019E+02   5.216761E+03   0.0         \r\n            5     6.239297E+03  1.055234E+05   2.074168E+06  5.077942E+04   4.332762E+04  3.249513E+03   3.145975E+02   1.259485E+05\r\n            6     1.433167E+04  1.036558E+05   3.251204E+06  7.374938E+04   6.777845E+04  3.689804E+03   3.885075E+02   2.978078E+04\r\n            7     8.319506E+03  9.421064E+04   3.001500E+06  4.841012E+04   6.269326E+04  2.957695E+03   3.166300E+02   1.284097E+05\r\n            8     8.938636E+04  3.450309E+04   2.674559E+06  2.387007E+04   3.380305E+04  7.293859E+02   1.233599E+03   2.092265E+03\r\n            9     2.674556E+06  2.387007E+04   1.176312E+06  1.514899E+04   8.442534E+04  6.122199E+02   1.357412E+03   2.092266E+03\r\n           10     1.203861E+06  3.014618E+04   1.975156E+06  4.619167E+03   3.595869E+04  9.594695E+02   1.287318E+03   2.604417E+03\r\n           11     1.975148E+06  4.619166E+03   9.245567E+04  2.364565E+04   4.051586E+04  5.350431E+02   1.367642E+03   2.604416E+03\r\n           12     2.072528E+06  1.796994E+04   5.968351E+06  1.752919E+05   5.823813E+04  2.236186E+03   1.015636E+03   6.984363E+04\r\n           13     3.251882E+06  3.132602E+04   1.503910E+06  1.294882E+05   4.832173E+04  1.470076E+03   1.426498E+03   2.285779E+04\r\n           14     2.999178E+06  2.706972E+04   7.678178E+06  1.617461E+05   7.720477E+04  1.958226E+03   7.762622E+02   8.158134E+04\r\n           15     8.493378E+04  1.221327E+04   1.053065E+06  7.083024E+03   2.778971E+04  1.570584E+02   1.926978E+03   2.415713E+03\r\n           16     1.053063E+06  7.083022E+03   1.694745E+06  1.645217E+04   2.199930E+04  3.902969E+02   3.193717E+03   2.415713E+03\r\n           17     1.719350E+06  2.774821E+04   1.263470E+06  4.838742E+03   4.262195E+04  7.069878E+02   3.487859E+03   3.550002E+03\r\n           18     1.263468E+06  4.838741E+03   1.066262E+05  3.163282E+04   3.840199E+04  8.191622E+02   2.238810E+03   3.550002E+03\r\n           19     5.969566E+06  1.867619E+05   6.627001E+06  2.209934E+05   1.835923E+05  6.791746E+03   1.027171E+03   1.190835E+05\r\n           20     1.505811E+06  1.729255E+05   5.457771E+04  1.327263E+05   2.566753E+04  5.089840E+03   1.187442E+03   5.228749E+04\r\n           21     7.681225E+06  1.928080E+05   1.082408E+07  2.284954E+05   2.783992E+05  7.012393E+03   8.252943E+02   1.369845E+05\r\n           22     4.364155E+06  2.481854E+04   3.449694E+06  5.025443E+04   1.551033E+05  1.501455E+03   2.917249E+04   8.669955E+03\r\n           23     3.447479E+06  3.688454E+04   2.557627E+06  9.794354E+03   1.006518E+05  8.657345E+02   3.025662E+04   6.046088E+03\r\n           24     2.557627E+06  9.794352E+03   3.518381E+06  2.197893E+04   2.809326E+05  1.006044E+03   1.203106E+04   6.046089E+03\r\n           25     2.600914E+06  2.198311E+04   8.195394E+05  4.860776E+04   8.157145E+04  1.078786E+03   2.069212E+04   3.524555E+04\r\n           26     8.054149E+05  8.494747E+04   3.918976E+06  1.466463E+04   8.582277E+04  2.023424E+03   1.939058E+04   1.932569E+04\r\n           27     3.918978E+06  1.466464E+04   3.669330E+06  2.423733E+04   4.475514E+05  2.246330E+03   2.783128E+04   1.932569E+04\r\n           28     3.359573E+06  2.416664E+04   5.179322E+06  7.629295E+04   3.136339E+05  2.180223E+03   4.607921E+04   1.730546E+04\r\n           29     5.153813E+06  4.726579E+04   4.456063E+06  2.375722E+04   1.918005E+05  1.420439E+03   4.488772E+04   8.826476E+03\r\n           30     1.524834E+06  3.718543E+04   7.585844E+05  1.717070E+04   2.378458E+04  5.604320E+02   3.508162E+05   1.893321E+01\r\n           31     2.781786E+06  3.262743E+04   1.376136E+06  1.593760E+04   4.331144E+04  5.050276E+02   6.422513E+05   7.805434E+01\r\n           32     6.612938E+06  1.434081E+05   4.212432E+06  7.781741E+04   9.529557E+04  4.306772E+03   1.859693E+03   2.283138E+04\r\n           33     1.079797E+07  1.279244E+05   1.021742E+06  9.472962E+04   2.242953E+05  4.290958E+03   1.660925E+03   1.536767E+04\r\n0*** SYSTEM WARNING MESSAGE 2184,  STRESS OR FORCE REQUEST FOR ELEMENT CONM2    (NASTRAN ELEM. TYPE =  30)\r\n     WILL NOT BE HONORED AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    38\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n\r\n      HY-100 PLATFORM MODEL                                                                                                         \r\n\r\n\r\n\r\n\r\n0*** USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 204 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n0*** SYSTEM WARNING  MESSAGE 3001\r\n0ATTEMPT TO OPEN DATA SET 205 IN SUBROUTINE SDR2  , WHICH WAS NOT DEFINED IN THE FIST\r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    39\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            2.408433E-05   2.125423E-05   2.503151E-03                  \r\n             2      G      8.507232E-02   1.964650E-03   1.076181E-03   1.654876E-05   2.125423E-05   1.166044E-03                  \r\n             3      G      3.248062E-01   4.205368E-03   1.367646E-03   1.384512E-05   1.687112E-05   7.392348E-04                  \r\n             4      G      7.453994E-02   3.627396E-03   8.601210E-04   1.189493E-05   3.048224E-05   1.078911E-03                  \r\n             5      G      0.0            0.0            0.0            2.144290E-05   3.048224E-05   2.089794E-03                  \r\n             6      G      7.746251E-02   4.333700E-02   4.824267E-04   3.424846E-05   1.840060E-05   9.007379E-04                  \r\n             7      G      3.580019E-01   4.376385E-02   1.543740E-03   1.238011E-05   1.269203E-05   2.715531E-03                  \r\n             8      G      3.264085E-01   4.275973E-02   1.187386E-03   2.583665E-05   1.362107E-05   7.255600E-04                  \r\n             9      G      3.031619E-01   4.284486E-02   6.077479E-04   3.226356E-05   1.359101E-05   4.913347E-03                  \r\n            10      G      6.787747E-02   3.982852E-02   1.684850E-03   3.644203E-05   2.321332E-05   6.079635E-04                  \r\n            11      G      6.644145E-02   6.010950E-02   8.541651E-04   3.382837E-05   4.244076E-06   7.163574E-04                  \r\n            12      G      2.214594E-01   5.984584E-02   6.597343E-04   2.445565E-05   4.391792E-06   6.565919E-03                  \r\n            13      G      3.259774E-01   5.921902E-02   9.244730E-04   1.588932E-05   9.254926E-06   6.542595E-04                  \r\n            14      G      2.084376E-01   6.094531E-02   7.622641E-04   3.762243E-05   8.891500E-06   7.161902E-03                  \r\n            15      G      5.756101E-02   6.194190E-02   1.934400E-03   3.914507E-05   1.987223E-05   8.245090E-04                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      3.023776E-02   3.132901E-03   3.039854E-04   6.901320E-06   1.056679E-05   6.054559E-04                  \r\n            18      G      2.513025E-01   3.772506E-03   3.249593E-04   8.956088E-06   3.451355E-03   5.206004E-03                  \r\n            19      G      3.131175E-01   4.014303E-03   4.116990E-05   2.010393E-05   4.831918E-03   4.782407E-03                  \r\n            20      G      3.258844E-01   4.412070E-03   1.644052E-04   4.264237E-06   2.148924E-05   1.605411E-03                  \r\n            21      G      2.180096E-01   3.824196E-03   1.199093E-04   5.141216E-06   1.340623E-03   6.074841E-03                  \r\n            22      G      1.194289E-01   3.597364E-03   1.185398E-04   9.558600E-06   1.837934E-03   7.063506E-03                  \r\n            23      G      2.631980E-02   3.278126E-03   2.919262E-04   3.626519E-06   1.884684E-05   1.072051E-03                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    40\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.977077E-04   5.716592E-04   3.568321E-03                  \r\n             2      G      1.005421E-02   5.746128E-02   2.237383E-02   3.498126E-04   5.716592E-04   6.857728E-03                  \r\n             3      G      3.660600E-01   6.380078E-02   2.534941E-02   3.190513E-04   5.039195E-05   7.402037E-03                  \r\n             4      G      1.393650E-02   5.651075E-02   6.013514E-03   1.539595E-04   7.974855E-04   7.436458E-03                  \r\n             5      G      0.0            0.0            0.0            1.954955E-04   7.974855E-04   3.747017E-03                  \r\n             6      G      9.336421E-03   4.732141E-01   9.967601E-03   8.240379E-04   4.886964E-04   9.165026E-03                  \r\n             7      G      4.692139E-01   4.912820E-01   3.456660E-02   2.705279E-04   1.506499E-04   1.867409E-03                  \r\n             8      G      3.671547E-01   4.878473E-01   2.566656E-02   5.788817E-04   6.875968E-05   8.233464E-03                  \r\n             9      G      3.029875E-01   4.935385E-01   7.957238E-03   7.627137E-04   2.677831E-04   3.872389E-03                  \r\n            10      G      1.292626E-02   4.822176E-01   3.810921E-02   9.065550E-04   6.067194E-04   9.235124E-03                  \r\n            11      G      6.693852E-03   6.569518E-01   2.458172E-02   7.297455E-04   1.150071E-04   7.357515E-03                  \r\n            12      G      2.310749E-01   6.497723E-01   7.538707E-03   5.683402E-04   7.370821E-05   3.734334E-03                  \r\n            13      G      3.637905E-01   6.324564E-01   1.407297E-02   3.708806E-04   2.104806E-04   5.709359E-03                  \r\n            14      G      2.177587E-01   6.432300E-01   1.777119E-02   8.870336E-04   1.792013E-04   9.365521E-03                  \r\n            15      G      1.074254E-02   6.477189E-01   4.917135E-02   9.000233E-04   4.621311E-04   7.477216E-03                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      4.001371E-03   5.813238E-02   8.281801E-03   1.733418E-04   3.009561E-04   4.909520E-03                  \r\n            18      G      1.960033E-01   9.530840E-02   8.080579E-03   2.334319E-04   2.611652E-03   3.767241E-03                  \r\n            19      G      2.346502E-01   9.615494E-02   3.845196E-03   3.789670E-04   3.620894E-03   3.818636E-03                  \r\n            20      G      3.616523E-01   9.797236E-02   7.341525E-03   1.464250E-04   2.049860E-04   8.631429E-03                  \r\n            21      G      2.333213E-01   9.191295E-02   5.847177E-03   2.188954E-04   1.040679E-03   9.374348E-03                  \r\n            22      G      9.412514E-02   7.974423E-02   4.287798E-03   2.577950E-04   1.450391E-03   8.466561E-03                  \r\n            23      G      5.637692E-03   5.990038E-02   8.121070E-03   1.103852E-04   4.938189E-04   4.486264E-03                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n1     DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                  /    95 SUN SOLARIS NASTRAN    / MAY 19, 95 / PAGE    41\r\n      NASTRAN TEST PROBLEM NO. T17-01-1A                                                                                            \r\n0     HY-100 PLATFORM MODEL                                                                                                         \r\n \r\n                                             D I S P L A C E M E N T   V E C T O R\r\n \r\n      POINT ID.   TYPE          T1             T2             T3             R1             R2             R3\r\n             1      G      0.0            0.0            0.0            4.589859E-02   1.745765E-02   1.016236E-04                  \r\n             2      G      1.823817E-04   4.278810E-04   2.143508E+00   3.698502E-02   1.745765E-02   1.931650E-04                  \r\n             3      G      5.732413E-03   7.000578E-04   3.827642E+00   7.229860E-03   1.722758E-02   2.070616E-04                  \r\n             4      G      1.256736E-04   4.347301E-04   2.061898E+00   3.610121E-02   2.054025E-02   2.077445E-04                  \r\n             5      G      0.0            0.0            0.0            4.450333E-02   2.054025E-02   1.038279E-04                  \r\n             6      G      1.713023E-04   1.443937E-02   1.642225E+00   3.279257E-02   1.659698E-02   2.955994E-04                  \r\n             7      G      8.381779E-03   1.466132E-02   3.100960E+00   7.375099E-03   1.853735E-02   2.938823E-05                  \r\n             8      G      5.742350E-03   1.459833E-02   3.012269E+00   1.031225E-02   1.917521E-02   2.637231E-04                  \r\n             9      G      3.895725E-03   1.469044E-02   2.610728E+00   2.242971E-02   1.889364E-02   6.550920E-05                  \r\n            10      G      1.150573E-04   1.454727E-02   1.832529E+00   3.552476E-02   1.883580E-02   2.944243E-04                  \r\n            11      G      1.164699E-04   2.202431E-02   1.024384E+00   2.074919E-02   1.291063E-02   2.335766E-04                  \r\n            12      G      4.477525E-03   2.185071E-02   1.231711E+00   1.597282E-02   1.596063E-02   5.194443E-05                  \r\n            13      G      5.685580E-03   2.137011E-02   1.440450E+00   7.717059E-03   2.376181E-02   1.722759E-04                  \r\n            14      G      1.813788E-03   2.175302E-02   1.219208E+00   2.055034E-02   1.739074E-02   1.853554E-04                  \r\n            15      G      9.619861E-05   2.192318E-02   1.134582E+00   2.400653E-02   1.613320E-02   2.189852E-04                  \r\n            16      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            17      G      7.044290E-05   2.431041E-03   2.281538E-01   3.297866E-03   9.886790E-03   1.593770E-04                  \r\n            18      G      2.728568E-03   4.879383E-03   1.414617E-01   5.256065E-03   2.992354E-03   6.663010E-05                  \r\n            19      G      3.334232E-03   5.114127E-03   5.613060E-02   3.694196E-03   2.643746E-04   4.145376E-05                  \r\n            20      G      5.653713E-03   5.390706E-03   1.280716E-01   3.893832E-03   2.436394E-02   2.667636E-04                  \r\n            21      G      4.144064E-03   5.933293E-03   1.508036E-01   5.389072E-03   6.734189E-03   1.960638E-04                  \r\n            22      G      1.456714E-03   5.632224E-03   1.027602E-01   6.774569E-03   2.040263E-04   1.708979E-04                  \r\n            23      G      6.291382E-05   3.740643E-03   1.616048E-01   2.219775E-03   1.006528E-02   1.473166E-04                  \r\n            24      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            25      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            26      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            27      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n            28      G      0.0            0.0            0.0            0.0            0.0            0.0                           \r\n\r\n\r\n\r\n\r\n                                        * * * END OF JOB * * *\r\n1\r\n JOB TITLE =  DYNAMIC DESIGN ANALYSIS METHOD, DDAM                               \r\n DATE:  5/19/95\r\n END TIME: 16:37:21\r\n TOTAL WALL CLOCK TIME      3 SEC.\r\n \r\n"
  },
  {
    "path": "inp/d01000a.inp",
    "content": "NASTRAN TITLEOPT=-1                                                             \r\nID    D01000A,PRINT RIGID FORMAT                                                \r\n$=================================================================              \r\n$     THIS DECK WILL PRINT THE NASTRAN DMAP COMPILE LISTING OF ANY              \r\n$     RIGID FORMAT BY SPECIFYING THE FOLLOWING SOLUTION NUMBER AND              \r\n$     APPLICATION.  JOB WILL AUTOMATICALLY STOP                                 \r\n$                                                                               \r\nSOL   6                                                                         \r\nAPP   DISP                                                                      \r\n$=================================================================              \r\nTIME  2                                                                         \r\nDIAG  14,20                                                                     \r\nCEND                                                                            \r\nTITLE    = TESTING                                                              \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-0A                          \r\nDISP = ALL                                                                      \r\nECHO = NONE                                                                     \r\nBEGIN BULK                                                                      \r\nENDDATA                                                                         \r\n                                                                                \r\n"
  },
  {
    "path": "inp/d01001a.inp",
    "content": "NASTRAN TITLEOPT=-1                                                             \r\nID    D01001A,PRINT DIAG48                                                      \r\nAPP   DISP                                                                      \r\n$=================================================                              \r\n$     THIS JOB WILL PRINT DIAG48 MESSAGES AND STOP                              \r\n$                                                                               \r\nDIAG  48,20                                                                     \r\n$=================================================                              \r\nSOL   1                                                                         \r\nTIME  2                                                                         \r\nCEND                                                                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-1A                          \r\nECHO = NONE                                                                     \r\nBEGIN BULK                                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01002a.inp",
    "content": "NASTRAN  BULKDATA = -3, TITLEOPT = 0                                            \r\nID    D01002A,TIME CONSTANTS                                                    \r\n$=============================================================                  \r\n$     THIS JOB WILL PRINT 16 NASTRAN TIMING CONSTANTS AND STOP                  \r\n$                                                                               \r\n$     YOU MAY WANT TO RUN THIS D01002A SEVERAL TIMES AT DIFFERENT HOUR          \r\n$     OF THE DAY, SO TO GET THE AVERAGE TIMING.                                 \r\n$                                                                               \r\n$     IF THESE TIMING CONSTANTS ARE EDITED INTO THE NASINFO FILE,               \r\n$     YOUR NASTRAN PROGRAM WILL NOT COMPUTE THESE CONSTANTS EACH                \r\n$     TIME YOU RUN A NASTRAN JOB                                                \r\n$                                                                               \r\n$=============================================================                  \r\nCEND                                                                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-00-2A                          \r\nECHO = NONE                                                                     \r\nBEGIN BULK                                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01011a.inp",
    "content": "NASTRAN  FILES=NPTP                                                             \r\nID    D01011A,NASTRAN                                                           \r\nCHKPNT   YES                                                                    \r\nDIAG 15\r\nAPP      DISPLACEMENT                                                           \r\nSOL      1,1                                                                    \r\nTIME     15                                                                     \r\nCEND                                                                            \r\nTITLE    = DELTA WING WITH BICONVEX CROSS SECTION                               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1A                          \r\nLABEL    = LOAD ON TRAILING EDGE                                                \r\n     SPC = 1                                                                    \r\n    LOAD = 1                                                                    \r\nOUTPUT                                                                          \r\n$   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n$   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n$   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n$                                                                               \r\n        SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n        SET 2 = 1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                    \r\n$                                                                               \r\n   DISPLACEMENTS = 1                                                            \r\n        SPCFORCE = ALL                                                          \r\n        ELSTRESS = 2                                                            \r\nBEGIN BULK                                                                      \r\nCONROD  100     11      12      1       .035                                    \r\nCONROD  101     12      13      1       .035                                    \r\nCONROD  102     13      14      1       .0344                                   \r\nCONROD  103     14      15      1       .0325                                   \r\nCONROD  104     15      16      1       .03                                     \r\nCONROD  105     31      32      1       .091                                    \r\nCONROD  106     32      33      1       .091                                    \r\nCONROD  107     33      34      1       .088                                    \r\nCONROD  108     34      35      1       .0719                                   \r\nCONROD  109     35      36      1       .0453                                   \r\nCONROD  110     51      52      1       .11                                     \r\nCONROD  111     52      53      1       .11                                     \r\nCONROD  112     53      54      1       .094                                    \r\nCONROD  113     54      55      1       .0563                                   \r\nCONROD  114     71      72      1       .091                                    \r\nCONROD  115     72      73      1       .091                                    \r\nCONROD  116     73      74      1       .0649                                   \r\nCONROD  117     91      92      1       .035                                    \r\nCONROD  118     92      93      1       .035                                    \r\nCONROD  119     12      32      1       .063                                    \r\nCONROD  120     32      52      1       .1002                                   \r\nCONROD  121     52      72      1       .1002                                   \r\nCONROD  122     72      92      1       .063                                    \r\nCONROD  123     13      33      1       .063                                    \r\nCONROD  124     33      53      1       .1002                                   \r\nCONROD  125     53      73      1       .1002                                   \r\nCONROD  126     73      93      1       .063                                    \r\nCONROD  127     14      34      1       .0572                                   \r\nCONROD  128     34      54      1       .0805                                   \r\nCONROD  129     54      74      1       .0572                                   \r\nCONROD  130     15      35      1       .0474                                   \r\nCONROD  131     35      55      1       .0474                                   \r\nCONROD  132     16      36      1       .028                                    \r\nCONROD  133     93      74      1       .0344                                   \r\nCONROD  134     74      55      1       .0325                                   \r\nCONROD  135     55      36      1       .03                                     \r\nCQDMEM  1       1       11      12      32      31                              \r\nCQDMEM  2       1       12      13      33      32                              \r\nCQDMEM  3       1       13      14      34      33                              \r\nCQDMEM  4       1       14      15      35      34                              \r\nCQDMEM  5       1       15      16      36      35                              \r\nCQDMEM  6       1       31      32      52      51                              \r\nCQDMEM  7       1       32      33      53      52                              \r\nCQDMEM  8       1       33      34      54      53                              \r\nCQDMEM  9       1       34      35      55      54                              \r\nCQDMEM  11      1       51      52      72      71                              \r\nCQDMEM  12      1       52      53      73      72                              \r\nCQDMEM  13      1       53      54      74      73                              \r\nCQDMEM  15      1       71      72      92      91                              \r\nCQDMEM  16      1       72      73      93      92                              \r\nCROD    60      5       1       11      61      6       2       12              \r\nCROD    62      8       3       13      63      8       4       14              \r\nCROD    64      8       5       15      65      6       6       16              \r\nCROD    66      6       21      31      67      7       22      32              \r\nCROD    68      9       23      33      69      9       24      34              \r\nCROD    70      9       25      35      71      8       26      36              \r\nCROD    72      6       41      51      73      7       42      52              \r\nCROD    74      9       43      53      75      9       44      54              \r\nCROD    76      9       45      55      77      6       61      71              \r\nCROD    78      7       62      72      79      9       63      73              \r\nCROD    80      9       64      74      81      5       81      91              \r\nCROD    82      6       82      92      83      8       83      93              \r\nCSHEAR  18      2       1       2       12      11                              \r\nCSHEAR  19      2       2       3       13      12                              \r\nCSHEAR  20      2       3       4       14      13                              \r\nCSHEAR  21      2       4       5       15      14                              \r\nCSHEAR  22      2       5       6       16      15                              \r\nCSHEAR  23      2       21      22      32      31                              \r\nCSHEAR  24      2       22      23      33      32                              \r\nCSHEAR  25      2       23      24      34      33                              \r\nCSHEAR  26      2       24      25      35      34                              \r\nCSHEAR  27      2       25      26      36      35                              \r\nCSHEAR  28      2       41      42      52      51                              \r\nCSHEAR  29      2       42      43      53      52                              \r\nCSHEAR  30      2       43      44      54      53                              \r\nCSHEAR  31      2       44      45      55      54                              \r\nCSHEAR  32      2       61      62      72      71                              \r\nCSHEAR  33      2       62      63      73      72                              \r\nCSHEAR  34      2       63      64      74      73                              \r\nCSHEAR  35      2       81      82      92      91                              \r\nCSHEAR  36      2       82      83      93      92                              \r\nCSHEAR  37      2       2       22      32      12                              \r\nCSHEAR  38      2       22      42      52      32                              \r\nCSHEAR  39      2       42      62      72      52                              \r\nCSHEAR  40      2       62      82      92      72                              \r\nCSHEAR  41      2       3       23      33      13                              \r\nCSHEAR  42      2       23      43      53      33                              \r\nCSHEAR  43      2       43      63      73      53                              \r\nCSHEAR  44      2       63      83      93      73                              \r\nCSHEAR  45      2       4       24      34      14                              \r\nCSHEAR  46      2       24      44      54      34                              \r\nCSHEAR  47      2       44      64      74      54                              \r\nCSHEAR  48      2       5       25      35      15                              \r\nCSHEAR  49      2       25      45      55      35                              \r\nCSHEAR  50      2       6       26      36      16                              \r\nCSHEAR  51      2       26      45      55      36                              \r\nCSHEAR  52      2       45      64      74      55                              \r\nCSHEAR  53      2       64      83      93      74                              \r\nCTRMEM  10      3       35      36      55                                      \r\nCTRMEM  14      3       54      55      74                                      \r\nCTRMEM  17      3       73      74      93                                      \r\nFORCE   1       16      0       -1.     .0      .0      500.                    \r\nFORCE   2       36              -1.0    .0      .0      500.0                   \r\nGRDSET                                                  456                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               10.     .0      .0                                      \r\nGRID    3               30.     .0      .0                                      \r\nGRID    4               50.     .0      .0                                      \r\nGRID    5               70.     .0      .0                                      \r\nGRID    6               90.     .0      .0                                      \r\nGRID    11              .0      .0      .82                                     \r\nGRID    12              10.     .0      .82                                     \r\nGRID    13              30.     .0      .82                                     \r\nGRID    14              50.     .0      .795                                    \r\nGRID    15              70.     .0      .754                                    \r\nGRID    16              90.     .0      .67                                     \r\nGRID    21              .0      20.     .0                                      \r\nGRID    22              10.     20.     .0                                      \r\nGRID    23              30.     20.     .0                                      \r\nGRID    24              50.     20.     .0                                      \r\nGRID    25              70.     20.     .0                                      \r\nGRID    26              90.     20.     .0                                      \r\nGRID    31              .0      20.     2.02                                    \r\nGRID    32              10.     20.     2.02                                    \r\nGRID    33              30.     20.     2.02                                    \r\nGRID    34              50.     20.     1.795                                   \r\nGRID    35              70.     20.     1.42                                    \r\nGRID    36              90.     20.     .67                                     \r\nGRID    41              .0      40.     .0                                      \r\nGRID    42              10.     40.     .0                                      \r\nGRID    43              30.     40.     .0                                      \r\nGRID    44              50.     40.     .0                                      \r\nGRID    45              70.     40.     .0                                      \r\nGRID    51              .0      40.     2.42                                    \r\nGRID    52              10.     40.     2.42                                    \r\nGRID    53              30.     40.     2.42                                    \r\nGRID    54              50.     40.     1.795                                   \r\nGRID    55              70.     40.     .754                                    \r\nGRID    61              .0      60.     .0                                      \r\nGRID    62              10.     60.     .0                                      \r\nGRID    63              30.     60.     .0                                      \r\nGRID    64              50.     60.     .0                                      \r\nGRID    71              .0      60.     2.02                                    \r\nGRID    72              10.     60.     2.02                                    \r\nGRID    73              30.     60.     2.02                                    \r\nGRID    74              50.     60.     .795                                    \r\nGRID    81              .0      80.     .0                                      \r\nGRID    82              10.     80.     .0                                      \r\nGRID    83              30.     80.     .0                                      \r\nGRID    91              .0      80.     .82                                     \r\nGRID    92              10.     80.     .82                                     \r\nGRID    93              30.     80.     .82                                     \r\nMAT1    1       10.4  +64.   +6                                                 \r\nMAT1    2       1.04+7  4.+6            .2523-3                                 \r\nPARAM   IRES    1                                                               \r\nPQDMEM  1       2       .16     .0                                              \r\nPROD    5       1       2.1                                                     \r\nPROD    6       1       3.5                                                     \r\nPROD    7       1       4.91                                                    \r\nPROD    8       1       4.2                                                     \r\nPROD    9       1       5.6                                                     \r\nPSHEAR  2       2       .14     .0                                              \r\nPTRMEM  3       2       .16     .0                                              \r\nSPC1    1       1       11      31      51      71      91                      \r\nSPC1    1       3       13      33      53      73      93                      \r\nSPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n+SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n+SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n+SPC-C  82      83                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01011b.inp",
    "content": "NASTRAN  FILES = OPTP                                                           \r\nID    D01011B,RESTART                                                           \r\n$ INSERT THE RESTART DICTIONARY HERE                                            \r\nREADFILE,NOPRINT RSCARDS                                                        \r\nAPP      DISPLACEMENT                                                           \r\nSOL      1,1                                                                    \r\nTIME     5                                                                      \r\nCEND                                                                            \r\nTITLE    = DELTA WING             RESTART                                       \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1B                          \r\nLABEL    = LOAD ON LEADING EDGE                                                 \r\n    LOAD = 2                                                                    \r\n    SPC  = 1                                                                    \r\nOUTPUT                                                                          \r\n$   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n$   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n$   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n$                                                                               \r\n        SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n        SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n$                                                                               \r\n   DISPLACEMENTS = 1                                                            \r\n        SPCFORCE = ALL                                                          \r\n        ELSTRESS = 2                                                            \r\nBEGIN BULK                                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01011b.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01011c.inp",
    "content": "NASTRAN  FILES = OPTP                                                           \r\nID    D01011C,RESTART                                                           \r\n$ INSERT THE RESTART DICTIONARY HERE                                            \r\nREADFILE RSCARDS                                                                \r\nTIME  5                                                                         \r\nSOL   3,1                                                                       \r\nAPP   DISPLACEMENT                                                              \r\nCEND                                                                            \r\nTITLE    = DELTA WING              RESTART, REAL EIGENVALUE ANALYSIS            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-1C                          \r\nLABEL    = RIGID FORMAT SWITCH FROM 1 TO 3                                      \r\n  SPC    = 1                                                                    \r\n  METHOD = 12                                                                   \r\nOUTPUT                                                                          \r\n$   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n$   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n$   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n$                                                                               \r\n        SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n        SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n$                                                                               \r\n        DISPLACEMENTS = 1                                                       \r\n        SPCFORCE      = ALL                                                     \r\n        ELSTRESS      = 2                                                       \r\nBEGIN BULK                                                                      \r\nEIGR    12      INV     30.0    160.0   1       3       0       1.-4    +EIGR12 \r\n+EIGR12 MAX                                                                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01011c.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01012a.inp",
    "content": "ID    D01012A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = STATIC ANALYSIS OF A DELTA WING WITH BICONVEX CROSS SECTION          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-2A                          \r\nLABEL    = QDMEM1 AND QDMEM2 ELEMENTS                                           \r\n   SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93               \r\n   SET 2 =  1 THRU 22,28 THRU 31,35,36,41 THRU 44,50                            \r\nDISPLACEMENTS (SORT2) = 1                                                       \r\n         SPCF (SORT2) = ALL                                                     \r\n     ELSTRESS (SORT2) = 2                                                       \r\n                  SPC = 1                                                       \r\nSUBCASE  1                                                                      \r\nLOAD = 1                                                                        \r\nSUBCASE 2                                                                       \r\nLOAD = 2                                                                        \r\nBEGIN BULK                                                                      \r\nCONROD  100     11      12      1       .035                                    \r\nCONROD  101     12      13      1       .035                                    \r\nCONROD  102     13      14      1       .0344                                   \r\nCONROD  103     14      15      1       .0325                                   \r\nCONROD  104     15      16      1       .03                                     \r\nCONROD  105     31      32      1       .091                                    \r\nCONROD  106     32      33      1       .091                                    \r\nCONROD  107     33      34      1       .088                                    \r\nCONROD  108     34      35      1       .0719                                   \r\nCONROD  109     35      36      1       .0453                                   \r\nCONROD  110     51      52      1       .11                                     \r\nCONROD  111     52      53      1       .11                                     \r\nCONROD  112     53      54      1       .094                                    \r\nCONROD  113     54      55      1       .0563                                   \r\nCONROD  114     71      72      1       .091                                    \r\nCONROD  115     72      73      1       .091                                    \r\nCONROD  116     73      74      1       .0649                                   \r\nCONROD  117     91      92      1       .035                                    \r\nCONROD  118     92      93      1       .035                                    \r\nCONROD  119     12      32      1       .063                                    \r\nCONROD  120     32      52      1       .1002                                   \r\nCONROD  121     52      72      1       .1002                                   \r\nCONROD  122     72      92      1       .063                                    \r\nCONROD  123     13      33      1       .063                                    \r\nCONROD  124     33      53      1       .1002                                   \r\nCONROD  125     53      73      1       .1002                                   \r\nCONROD  126     73      93      1       .063                                    \r\nCONROD  127     14      34      1       .0572                                   \r\nCONROD  128     36      54      1       .0805                                   \r\nCONROD  129     54      74      1       .0572                                   \r\nCONROD  130     15      35      1       .0474                                   \r\nCONROD  131     35      55      1       .0474                                   \r\nCONROD  132     16      36      1       .028                                    \r\nCONROD  133     93      74      1       .0344                                   \r\nCONROD  134     74      55      1       .0325                                   \r\nCONROD  135     55      36      1       .03                                     \r\nCQDMEM1 1       1       11      12      32      31                              \r\nCQDMEM1 2       1       12      13      33      32                              \r\nCQDMEM1 3       1       13      14      34      33                              \r\nCQDMEM1 4       1       14      15      35      34                              \r\nCQDMEM1 5       1       15      16      36      35                              \r\nCQDMEM1 6       1       31      32      52      51                              \r\nCQDMEM1 7       1       32      33      53      52                              \r\nCQDMEM2 8       1       33      34      54      53                              \r\nCQDMEM2 9       1       34      35      55      54                              \r\nCQDMEM2 11      1       51      52      72      71                              \r\nCQDMEM2 12      1       52      53      73      72                              \r\nCQDMEM2 13      1       53      54      74      73                              \r\nCQDMEM2 15      1       71      72      92      91                              \r\nCQDMEM2 16      1       72      73      93      92                              \r\nCROD    60      5       1       11      61      6       2       12              \r\nCROD    62      8       3       13      63      8       4       14              \r\nCROD    64      8       5       15      65      6       6       16              \r\nCROD    66      6       21      31      67      7       22      32              \r\nCROD    68      9       23      33      69      9       24      34              \r\nCROD    70      9       25      35      71      8       26      36              \r\nCROD    72      6       41      51      73      7       42      52              \r\nCROD    74      9       43      53      75      9       44      54              \r\nCROD    76      9       45      55      77      6       61      71              \r\nCROD    78      7       62      72      79      9       63      73              \r\nCROD    80      9       64      74      81      5       81      91              \r\nCROD    82      6       82      92      83      8       83      93              \r\nCSHEAR  18      2       1       2       12      11                              \r\nCSHEAR  19      2       2       3       13      12                              \r\nCSHEAR  20      2       3       4       14      13                              \r\nCSHEAR  21      2       4       5       15      14                              \r\nCSHEAR  22      2       5       6       16      15                              \r\nCSHEAR  23      2       21      22      32      31                              \r\nCSHEAR  24      2       22      23      33      32                              \r\nCSHEAR  25      2       23      24      34      33                              \r\nCSHEAR  26      2       24      25      35      34                              \r\nCSHEAR  27      2       25      26      36      35                              \r\nCSHEAR  28      2       41      42      52      51                              \r\nCSHEAR  29      2       42      43      53      52                              \r\nCSHEAR  30      2       43      44      54      53                              \r\nCSHEAR  31      2       44      45      55      54                              \r\nCSHEAR  32      2       61      62      72      71                              \r\nCSHEAR  33      2       62      63      73      72                              \r\nCSHEAR  34      2       63      64      74      73                              \r\nCSHEAR  35      2       81      82      92      91                              \r\nCSHEAR  36      2       82      83      93      92                              \r\nCSHEAR  37      2       2       22      32      12                              \r\nCSHEAR  38      2       22      42      52      32                              \r\nCSHEAR  39      2       42      62      72      52                              \r\nCSHEAR  40      2       62      82      92      72                              \r\nCSHEAR  41      2       3       23      33      13                              \r\nCSHEAR  42      2       23      43      53      33                              \r\nCSHEAR  43      2       43      63      73      53                              \r\nCSHEAR  44      2       63      83      93      73                              \r\nCSHEAR  45      2       4       24      34      14                              \r\nCSHEAR  46      2       24      44      54      34                              \r\nCSHEAR  47      2       44      64      74      54                              \r\nCSHEAR  48      2       5       25      35      15                              \r\nCSHEAR  49      2       25      45      55      35                              \r\nCSHEAR  50      2       6       26      36      16                              \r\nCSHEAR  51      2       26      45      55      36                              \r\nCSHEAR  52      2       45      64      74      55                              \r\nCSHEAR  53      2       64      83      93      74                              \r\nCTRMEM  10      3       35      36      55                                      \r\nCTRMEM  14      3       54      55      74                                      \r\nCTRMEM  17      3       73      74      93                                      \r\nFORCE   1       16      0       -1.0    .0      .0      500.                    \r\nFORCE   2       36              -1.0    .0      .0      500.                    \r\nGRDSET                                                  456                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               10.0    .0      .0                                      \r\nGRID    3               30.0    .0      .0                                      \r\nGRID    4               50.0    .0      .0                                      \r\nGRID    5               70.0    .0      .0                                      \r\nGRID    6               90.0    .0      .0                                      \r\nGRID    11              .0      .0      .82                                     \r\nGRID    12              10.0    .0      .82                                     \r\nGRID    13              30.0    .0      .82                                     \r\nGRID    14              50.0    .0      .795                                    \r\nGRID    15              70.0    .0      .754                                    \r\nGRID    16              90.0    .0      .67                                     \r\nGRID    21              .0      20.0    .0                                      \r\nGRID    22              10.0    20.0    .0                                      \r\nGRID    23              30.0    20.0    .0                                      \r\nGRID    24              50.0    20.0    .0                                      \r\nGRID    25              70.0    20.0    .0                                      \r\nGRID    26              90.0    20.0    .0                                      \r\nGRID    31              .0      20.0    2.02                                    \r\nGRID    32              10.0    20.0    2.02                                    \r\nGRID    33              30.0    20.0    2.02                                    \r\nGRID    34              50.0    20.0    1.795                                   \r\nGRID    35              70.0    20.0    1.42                                    \r\nGRID    36              90.0    20.0    .67                                     \r\nGRID    41              .0      40.0    .0                                      \r\nGRID    42              10.0    40.0    .0                                      \r\nGRID    43              30.0    40.0    .0                                      \r\nGRID    44              50.0    40.0    .0                                      \r\nGRID    45              70.0    40.0    .0                                      \r\nGRID    51              .0      40.0    2.42                                    \r\nGRID    52              10.0    40.0    2.42                                    \r\nGRID    53              30.0    40.0    2.42                                    \r\nGRID    54              50.0    40.0    1.795                                   \r\nGRID    55              70.0    40.0    .754                                    \r\nGRID    61              .0      60.0    .0                                      \r\nGRID    62              10.0    60.0    .0                                      \r\nGRID    63              30.0    60.0    .0                                      \r\nGRID    64              50.0    60.0    .0                                      \r\nGRID    71              .0      60.0    2.02                                    \r\nGRID    72              10.     60.0    2.02                                    \r\nGRID    73              30.     60.0    2.02                                    \r\nGRID    74              50.     60.0    .795                                    \r\nGRID    81              .0      80.0    .0                                      \r\nGRID    82              10.     80.0    .0                                      \r\nGRID    83              30.     80.0    .0                                      \r\nGRID    91              .0      80.0    .82                                     \r\nGRID    92              10.     80.0    .82                                     \r\nGRID    93              30.     80.0    .82                                     \r\nMAT1    1       10.4 +6 4.  +6                                                  \r\nMAT1    2       1.04 +7 4.  +6          .2523 -3                                \r\nPARAM   IRES    1                                                               \r\nPQDMEM1 1       2       .16     .0                                              \r\nPQDMEM2 1       2       .16     .0                                              \r\nPROD    5       1       2.1                                                     \r\nPROD    6       1       3.5                                                     \r\nPROD    7       1       4.91                                                    \r\nPROD    8       1       4.2                                                     \r\nPROD    9       1       5.6                                                     \r\nPSHEAR  2       2       .14     .0                                              \r\nPTRMEM  3       2       .16     .0                                              \r\nSPC1    1       1       11      31      51      71      91                      \r\nSPC1    1       3       13      33      53      73      93                      \r\nSPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n+SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n+SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n+SPC-C  82      83                                                              \r\nENDDATA                                                                         \r\n:                                                                               \r\n"
  },
  {
    "path": "inp/d01012a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01013a.inp",
    "content": "ID    D01013A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM1 ELEMENTS         \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-3A                          \r\nLABEL    =      LOAD ON TRAILING EDGE                                           \r\n     SPC = 1                                                                    \r\n    LOAD = 1                                                                    \r\nOUTPUT                                                                          \r\n$   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n$   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n$   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n$                                                                               \r\n        SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n        SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n$                                                                               \r\n   DISPLACEMENTS = 1                                                            \r\n        SPCFORCE = ALL                                                          \r\n         GPFORCE = ALL                                                          \r\n           FORCE = ALL                                                          \r\n        ELSTRESS = 2                                                            \r\nBEGIN BULK                                                                      \r\nCONROD  100     11      12      1       .035                                    \r\nCONROD  101     12      13      1       .035                                    \r\nCONROD  102     13      14      1       .0344                                   \r\nCONROD  103     14      15      1       .0325                                   \r\nCONROD  104     15      16      1       .03                                     \r\nCONROD  105     31      32      1       .091                                    \r\nCONROD  106     32      33      1       .091                                    \r\nCONROD  107     33      34      1       .088                                    \r\nCONROD  108     34      35      1       .0719                                   \r\nCONROD  109     35      36      1       .0453                                   \r\nCONROD  110     51      52      1       .11                                     \r\nCONROD  111     52      53      1       .11                                     \r\nCONROD  112     53      54      1       .094                                    \r\nCONROD  113     54      55      1       .0563                                   \r\nCONROD  114     71      72      1       .091                                    \r\nCONROD  115     72      73      1       .091                                    \r\nCONROD  116     73      74      1       .0649                                   \r\nCONROD  117     91      92      1       .035                                    \r\nCONROD  118     92      93      1       .035                                    \r\nCONROD  119     12      32      1       .063                                    \r\nCONROD  120     32      52      1       .1002                                   \r\nCONROD  121     52      72      1       .1002                                   \r\nCONROD  122     72      92      1       .063                                    \r\nCONROD  123     13      33      1       .063                                    \r\nCONROD  124     33      53      1       .1002                                   \r\nCONROD  125     53      73      1       .1002                                   \r\nCONROD  126     73      93      1       .063                                    \r\nCONROD  127     14      34      1       .0572                                   \r\nCONROD  128     34      54      1       .0805                                   \r\nCONROD  129     54      74      1       .0572                                   \r\nCONROD  130     15      35      1       .0474                                   \r\nCONROD  131     35      55      1       .0474                                   \r\nCONROD  132     16      36      1       .028                                    \r\nCONROD  133     93      74      1       .0344                                   \r\nCONROD  134     74      55      1       .0325                                   \r\nCONROD  135     55      36      1       .03                                     \r\nCQDMEM1 1       1       11      12      32      31                              \r\nCQDMEM1 2       1       12      13      33      32                              \r\nCQDMEM1 3       1       13      14      34      33                              \r\nCQDMEM1 4       1       14      15      35      34                              \r\nCQDMEM1 5       1       15      16      36      35                              \r\nCQDMEM1 6       1       31      32      52      51                              \r\nCQDMEM1 7       1       32      33      53      52                              \r\nCQDMEM1 8       1       33      34      54      53                              \r\nCQDMEM1 9       1       34      35      55      54                              \r\nCQDMEM1 11      1       51      52      72      71                              \r\nCQDMEM1 12      1       52      53      73      72                              \r\nCQDMEM1 13      1       53      54      74      73                              \r\nCQDMEM1 15      1       71      72      92      91                              \r\nCQDMEM1 16      1       72      73      93      92                              \r\nCROD    60      5       1       11      61      6       2       12              \r\nCROD    62      8       3       13      63      8       4       14              \r\nCROD    64      8       5       15      65      6       6       16              \r\nCROD    66      6       21      31      67      7       22      32              \r\nCROD    68      9       23      33      69      9       24      34              \r\nCROD    70      9       25      35      71      8       26      36              \r\nCROD    72      6       41      51      73      7       42      52              \r\nCROD    74      9       43      53      75      9       44      54              \r\nCROD    76      9       45      55      77      6       61      71              \r\nCROD    78      7       62      72      79      9       63      73              \r\nCROD    80      9       64      74      81      5       81      91              \r\nCROD    82      6       82      92      83      8       83      93              \r\nCSHEAR  18      2       1       2       12      11                              \r\nCSHEAR  19      2       2       3       13      12                              \r\nCSHEAR  20      2       3       4       14      13                              \r\nCSHEAR  21      2       4       5       15      14                              \r\nCSHEAR  22      2       5       6       16      15                              \r\nCSHEAR  23      2       21      22      32      31                              \r\nCSHEAR  24      2       22      23      33      32                              \r\nCSHEAR  25      2       23      24      34      33                              \r\nCSHEAR  26      2       24      25      35      34                              \r\nCSHEAR  27      2       25      26      36      35                              \r\nCSHEAR  28      2       41      42      52      51                              \r\nCSHEAR  29      2       42      43      53      52                              \r\nCSHEAR  30      2       43      44      54      53                              \r\nCSHEAR  31      2       44      45      55      54                              \r\nCSHEAR  32      2       61      62      72      71                              \r\nCSHEAR  33      2       62      63      73      72                              \r\nCSHEAR  34      2       63      64      74      73                              \r\nCSHEAR  35      2       81      82      92      91                              \r\nCSHEAR  36      2       82      83      93      92                              \r\nCSHEAR  37      2       2       22      32      12                              \r\nCSHEAR  38      2       22      42      52      32                              \r\nCSHEAR  39      2       42      62      72      52                              \r\nCSHEAR  40      2       62      82      92      72                              \r\nCSHEAR  41      2       3       23      33      13                              \r\nCSHEAR  42      2       23      43      53      33                              \r\nCSHEAR  43      2       43      63      73      53                              \r\nCSHEAR  44      2       63      83      93      73                              \r\nCSHEAR  45      2       4       24      34      14                              \r\nCSHEAR  46      2       24      44      54      34                              \r\nCSHEAR  47      2       44      64      74      54                              \r\nCSHEAR  48      2       5       25      35      15                              \r\nCSHEAR  49      2       25      45      55      35                              \r\nCSHEAR  50      2       6       26      36      16                              \r\nCSHEAR  51      2       26      45      55      36                              \r\nCSHEAR  52      2       45      64      74      55                              \r\nCSHEAR  53      2       64      83      93      74                              \r\nCTRMEM  10      3       35      36      55                                      \r\nCTRMEM  14      3       54      55      74                                      \r\nCTRMEM  17      3       73      74      93                                      \r\nFORCE   1       16      0       -1.     .0      .0      500.                    \r\nFORCE   2       36              -1.0    .0      .0      500.0                   \r\nGRDSET                                                  456                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               10.     .0      .0                                      \r\nGRID    3               30.     .0      .0                                      \r\nGRID    4               50.     .0      .0                                      \r\nGRID    5               70.     .0      .0                                      \r\nGRID    6               90.     .0      .0                                      \r\nGRID    11              .0      .0      .82                                     \r\nGRID    12              10.     .0      .82                                     \r\nGRID    13              30.     .0      .82                                     \r\nGRID    14              50.     .0      .795                                    \r\nGRID    15              70.     .0      .754                                    \r\nGRID    16              90.     .0      .67                                     \r\nGRID    21              .0      20.     .0                                      \r\nGRID    22              10.     20.     .0                                      \r\nGRID    23              30.     20.     .0                                      \r\nGRID    24              50.     20.     .0                                      \r\nGRID    25              70.     20.     .0                                      \r\nGRID    26              90.     20.     .0                                      \r\nGRID    31              .0      20.     2.02                                    \r\nGRID    32              10.     20.     2.02                                    \r\nGRID    33              30.     20.     2.02                                    \r\nGRID    34              50.     20.     1.795                                   \r\nGRID    35              70.     20.     1.42                                    \r\nGRID    36              90.     20.     .67                                     \r\nGRID    41              .0      40.     .0                                      \r\nGRID    42              10.     40.     .0                                      \r\nGRID    43              30.     40.     .0                                      \r\nGRID    44              50.     40.     .0                                      \r\nGRID    45              70.     40.     .0                                      \r\nGRID    51              .0      40.     2.42                                    \r\nGRID    52              10.     40.     2.42                                    \r\nGRID    53              30.     40.     2.42                                    \r\nGRID    54              50.     40.     1.795                                   \r\nGRID    55              70.     40.     .754                                    \r\nGRID    61              .0      60.     .0                                      \r\nGRID    62              10.     60.     .0                                      \r\nGRID    63              30.     60.     .0                                      \r\nGRID    64              50.     60.     .0                                      \r\nGRID    71              .0      60.     2.02                                    \r\nGRID    72              10.     60.     2.02                                    \r\nGRID    73              30.     60.     2.02                                    \r\nGRID    74              50.     60.     .795                                    \r\nGRID    81              .0      80.     .0                                      \r\nGRID    82              10.     80.     .0                                      \r\nGRID    83              30.     80.     .0                                      \r\nGRID    91              .0      80.     .82                                     \r\nGRID    92              10.     80.     .82                                     \r\nGRID    93              30.     80.     .82                                     \r\nMAT1    1       10.4  +64.   +6                                                 \r\nMAT1    2       1.04+7  4.+6            .2523-3                                 \r\nPARAM   IRES    1                                                               \r\nPQDMEM1 1       2       .16     .0                                              \r\nPROD    5       1       2.1                                                     \r\nPROD    6       1       3.5                                                     \r\nPROD    7       1       4.91                                                    \r\nPROD    8       1       4.2                                                     \r\nPROD    9       1       5.6                                                     \r\nPSHEAR  2       2       .14     .0                                              \r\nPTRMEM  3       2       .16     .0                                              \r\nSPC1    1       1       11      31      51      71      91                      \r\nSPC1    1       3       13      33      53      73      93                      \r\nSPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n+SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n+SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n+SPC-C  82      83                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01013a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01014a.inp",
    "content": "ID    D01014A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = DELTA WING WITH BICONVEX CROSS SECTION USING QDMEM2 ELEMENTS         \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-01-4A                          \r\nLABEL    = LOAD ON TRAILING EDGE                                                \r\n   SPC   = 1                                                                    \r\n    LOAD = 1                                                                    \r\nOUTPUT                                                                          \r\n$   SET 1  HAS GRIDS ON THE UPPER SURFACE  * * * * * * * * * * * * * * *        \r\n$   SET 2  HAS TOP SURFACE ELEMENTS, SHEAR(TRAILING AND LEADING EDGE),          \r\n$   SHEAR(CENTERLINE - BOTH DIRECTIONS), SHEAR(TIP)   * * * * * * * *           \r\n$                                                                               \r\n        SET 1 = 11 THRU 16,31 THRU 36,51 THRU 55,71 THRU 74,91 THRU 93          \r\n        SET 2 =  1 THRU 22,28 THRU 31, 35, 36, 41 THRU 44, 50                   \r\n$                                                                               \r\n        DISPLACEMENTS = 1                                                       \r\n        SPCFORCE      = ALL                                                     \r\n        ESE           = ALL                                                     \r\n        ELSTRESS      = 2                                                       \r\nBEGIN BULK                                                                      \r\nCONROD  100     11      12      1       .035                                    \r\nCONROD  101     12      13      1       .035                                    \r\nCONROD  102     13      14      1       .0344                                   \r\nCONROD  103     14      15      1       .0325                                   \r\nCONROD  104     15      16      1       .03                                     \r\nCONROD  105     31      32      1       .091                                    \r\nCONROD  106     32      33      1       .091                                    \r\nCONROD  107     33      34      1       .088                                    \r\nCONROD  108     34      35      1       .0719                                   \r\nCONROD  109     35      36      1       .0453                                   \r\nCONROD  110     51      52      1       .11                                     \r\nCONROD  111     52      53      1       .11                                     \r\nCONROD  112     53      54      1       .094                                    \r\nCONROD  113     54      55      1       .0563                                   \r\nCONROD  114     71      72      1       .091                                    \r\nCONROD  115     72      73      1       .091                                    \r\nCONROD  116     73      74      1       .0649                                   \r\nCONROD  117     91      92      1       .035                                    \r\nCONROD  118     92      93      1       .035                                    \r\nCONROD  119     12      32      1       .063                                    \r\nCONROD  120     32      52      1       .1002                                   \r\nCONROD  121     52      72      1       .1002                                   \r\nCONROD  122     72      92      1       .063                                    \r\nCONROD  123     13      33      1       .063                                    \r\nCONROD  124     33      53      1       .1002                                   \r\nCONROD  125     53      73      1       .1002                                   \r\nCONROD  126     73      93      1       .063                                    \r\nCONROD  127     14      34      1       .0572                                   \r\nCONROD  128     34      54      1       .0805                                   \r\nCONROD  129     54      74      1       .0572                                   \r\nCONROD  130     15      35      1       .0474                                   \r\nCONROD  131     35      55      1       .0474                                   \r\nCONROD  132     16      36      1       .028                                    \r\nCONROD  133     93      74      1       .0344                                   \r\nCONROD  134     74      55      1       .0325                                   \r\nCONROD  135     55      36      1       .03                                     \r\nCQDMEM2 1       1       11      12      32      31                              \r\nCQDMEM2 2       1       12      13      33      32                              \r\nCQDMEM2 3       1       13      14      34      33                              \r\nCQDMEM2 4       1       14      15      35      34                              \r\nCQDMEM2 5       1       15      16      36      35                              \r\nCQDMEM2 6       1       31      32      52      51                              \r\nCQDMEM2 7       1       32      33      53      52                              \r\nCQDMEM2 8       1       33      34      54      53                              \r\nCQDMEM2 9       1       34      35      55      54                              \r\nCQDMEM2 11      1       51      52      72      71                              \r\nCQDMEM2 12      1       52      53      73      72                              \r\nCQDMEM2 13      1       53      54      74      73                              \r\nCQDMEM2 15      1       71      72      92      91                              \r\nCQDMEM2 16      1       72      73      93      92                              \r\nCROD    60      5       1       11      61      6       2       12              \r\nCROD    62      8       3       13      63      8       4       14              \r\nCROD    64      8       5       15      65      6       6       16              \r\nCROD    66      6       21      31      67      7       22      32              \r\nCROD    68      9       23      33      69      9       24      34              \r\nCROD    70      9       25      35      71      8       26      36              \r\nCROD    72      6       41      51      73      7       42      52              \r\nCROD    74      9       43      53      75      9       44      54              \r\nCROD    76      9       45      55      77      6       61      71              \r\nCROD    78      7       62      72      79      9       63      73              \r\nCROD    80      9       64      74      81      5       81      91              \r\nCROD    82      6       82      92      83      8       83      93              \r\nCSHEAR  18      2       1       2       12      11                              \r\nCSHEAR  19      2       2       3       13      12                              \r\nCSHEAR  20      2       3       4       14      13                              \r\nCSHEAR  21      2       4       5       15      14                              \r\nCSHEAR  22      2       5       6       16      15                              \r\nCSHEAR  23      2       21      22      32      31                              \r\nCSHEAR  24      2       22      23      33      32                              \r\nCSHEAR  25      2       23      24      34      33                              \r\nCSHEAR  26      2       24      25      35      34                              \r\nCSHEAR  27      2       25      26      36      35                              \r\nCSHEAR  28      2       41      42      52      51                              \r\nCSHEAR  29      2       42      43      53      52                              \r\nCSHEAR  30      2       43      44      54      53                              \r\nCSHEAR  31      2       44      45      55      54                              \r\nCSHEAR  32      2       61      62      72      71                              \r\nCSHEAR  33      2       62      63      73      72                              \r\nCSHEAR  34      2       63      64      74      73                              \r\nCSHEAR  35      2       81      82      92      91                              \r\nCSHEAR  36      2       82      83      93      92                              \r\nCSHEAR  37      2       2       22      32      12                              \r\nCSHEAR  38      2       22      42      52      32                              \r\nCSHEAR  39      2       42      62      72      52                              \r\nCSHEAR  40      2       62      82      92      72                              \r\nCSHEAR  41      2       3       23      33      13                              \r\nCSHEAR  42      2       23      43      53      33                              \r\nCSHEAR  43      2       43      63      73      53                              \r\nCSHEAR  44      2       63      83      93      73                              \r\nCSHEAR  45      2       4       24      34      14                              \r\nCSHEAR  46      2       24      44      54      34                              \r\nCSHEAR  47      2       44      64      74      54                              \r\nCSHEAR  48      2       5       25      35      15                              \r\nCSHEAR  49      2       25      45      55      35                              \r\nCSHEAR  50      2       6       26      36      16                              \r\nCSHEAR  51      2       26      45      55      36                              \r\nCSHEAR  52      2       45      64      74      55                              \r\nCSHEAR  53      2       64      83      93      74                              \r\nCTRMEM  10      3       35      36      55                                      \r\nCTRMEM  14      3       54      55      74                                      \r\nCTRMEM  17      3       73      74      93                                      \r\nFORCE   1       16      0       -1.     .0      .0      500.                    \r\nFORCE   2       36              -1.0    .0      .0      500.0                   \r\nGRDSET                                                  456                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               10.     .0      .0                                      \r\nGRID    3               30.     .0      .0                                      \r\nGRID    4               50.     .0      .0                                      \r\nGRID    5               70.     .0      .0                                      \r\nGRID    6               90.     .0      .0                                      \r\nGRID    11              .0      .0      .82                                     \r\nGRID    12              10.     .0      .82                                     \r\nGRID    13              30.     .0      .82                                     \r\nGRID    14              50.     .0      .795                                    \r\nGRID    15              70.     .0      .754                                    \r\nGRID    16              90.     .0      .67                                     \r\nGRID    21              .0      20.     .0                                      \r\nGRID    22              10.     20.     .0                                      \r\nGRID    23              30.     20.     .0                                      \r\nGRID    24              50.     20.     .0                                      \r\nGRID    25              70.     20.     .0                                      \r\nGRID    26              90.     20.     .0                                      \r\nGRID    31              .0      20.     2.02                                    \r\nGRID    32              10.     20.     2.02                                    \r\nGRID    33              30.     20.     2.02                                    \r\nGRID    34              50.     20.     1.795                                   \r\nGRID    35              70.     20.     1.42                                    \r\nGRID    36              90.     20.     .67                                     \r\nGRID    41              .0      40.     .0                                      \r\nGRID    42              10.     40.     .0                                      \r\nGRID    43              30.     40.     .0                                      \r\nGRID    44              50.     40.     .0                                      \r\nGRID    45              70.     40.     .0                                      \r\nGRID    51              .0      40.     2.42                                    \r\nGRID    52              10.     40.     2.42                                    \r\nGRID    53              30.     40.     2.42                                    \r\nGRID    54              50.     40.     1.795                                   \r\nGRID    55              70.     40.     .754                                    \r\nGRID    61              .0      60.     .0                                      \r\nGRID    62              10.     60.     .0                                      \r\nGRID    63              30.     60.     .0                                      \r\nGRID    64              50.     60.     .0                                      \r\nGRID    71              .0      60.     2.02                                    \r\nGRID    72              10.     60.     2.02                                    \r\nGRID    73              30.     60.     2.02                                    \r\nGRID    74              50.     60.     .795                                    \r\nGRID    81              .0      80.     .0                                      \r\nGRID    82              10.     80.     .0                                      \r\nGRID    83              30.     80.     .0                                      \r\nGRID    91              .0      80.     .82                                     \r\nGRID    92              10.     80.     .82                                     \r\nGRID    93              30.     80.     .82                                     \r\nMAT1    1       10.4  +64.   +6                                                 \r\nMAT1    2       1.04+7  4.+6            .2523-3                                 \r\nPARAM   IRES    1                                                               \r\nPQDMEM2 1       2       .16     .0                                              \r\nPROD    5       1       2.1                                                     \r\nPROD    6       1       3.5                                                     \r\nPROD    7       1       4.91                                                    \r\nPROD    8       1       4.2                                                     \r\nPROD    9       1       5.6                                                     \r\nPSHEAR  2       2       .14     .0                                              \r\nPTRMEM  3       2       .16     .0                                              \r\nSPC1    1       1       11      31      51      71      91                      \r\nSPC1    1       3       13      33      53      73      93                      \r\nSPC1    1       12      1       2       3       4       5       6       +SPC-A  \r\n+SPC-A  21      22      23      24      25      26      41      42      +SPC-B  \r\n+SPC-B  43      44      45      61      62      63      64      81      +SPC-C  \r\n+SPC-C  82      83                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01014a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$               Delta Wing with Biconvex Cross Section (1-1-1)\r\n$ Delta Wing, Biconvex Cross Section Using QDMEM1 and QDMEM2 Elements (1-1-2)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM1 Elements (1-1-3)\r\n$      Delta Wing, Biconvex Cross Section Using QDMEM2 Elements (1-1-4)\r\n$\r\n$ A. Description\r\n$\r\n$ This series illustrates the use of various NASTRAN elements in the solution of\r\n$ an actual structural problem. The delta wing model is composed of membrane,\r\n$ shear panel, and rod elements. Due to the existence of symmetry or\r\n$ antisymmetry in the structure and loading conditions, only one-quarter of the\r\n$ wing needs to be modeled. The midplane of the wing (the plane dividing the\r\n$ wing into upper and lower halves) is a plane of symmetry, as is the center\r\n$ plane (the plane that divides the wing into left and right halves). The\r\n$ loading conditions are antisymmetrical with respect to the midplane of the\r\n$ wing and symmetric with respect to the center plane.\r\n$\r\n$ B. Input\r\n$\r\n$ The surface skin of the wing is modeled with membrane elements while the ribs\r\n$ and spars are modeled with a combination of shear panels and rods. The shear\r\n$ load carrying capability of ribs and span is represented by shear panels. The\r\n$ bending stiffness of the ribs and spars is modeled with rod elements placed in\r\n$ the plane of the skin surface.\r\n$\r\n$ Since a quarter model is used, the loading conditions require that an\r\n$ antisymmetric boundary be provided on the midplane and a symmetric boundary\r\n$ must be provided on the center plane. These boundary conditions are provided\r\n$ by constraining all grid points on the midplane in the x and y directions and\r\n$ all grid points on the center plane in the x direction. Supports for the\r\n$ structure are provided by constraining grid points 13, 33, 53, 73, and 93 in\r\n$ the z direction. Since no rotational rigidity is provided by the elements used\r\n$ in the model, all rotational degrees of freedom have been removed by the use\r\n$ of the GRDSET card.\r\n$\r\n$ The problem is first modeled (Problem 1-1-1) with a load on the trailing\r\n$ edge and a checkpoint is requested. The modified restart (Problem 1-1-1A)\r\n$ capability is used to perform the analysis associated with the leading edge\r\n$ loading condition. The ability of NASTRAN to change rigid formats on a restart\r\n$ is demonstrated by the third case (Problem 1-1-1B). The natural modes of the\r\n$ structure are extracted using the Inverse Power method. Since the symmetric\r\n$ boundary conditions are used, only the modes with symmetric motion about the\r\n$ center line will be extracted. If the unsymmetric modes were required, a\r\n$ separate run with the appropriate boundary conditions could be submitted.\r\n$\r\n$ A second variation (Problem 1-1-2) of the basic problem is obtained by\r\n$ replacing the quadrilateral membrane elements (QDMEM) with the QDMEM1 and\r\n$ QDMEM2 elements. This modification demonstrates the ability to reproduce\r\n$ previously derived theoretical results. The SORT2 format of the printed output\r\n$ allows the results obtained with a leading and trailing load to be compared. A\r\n$ third case (Problem 1-1-3) is modeled with all QDMEM elements replaced by\r\n$ QDMEM1 (Reference 26) elements. A grid point force balance is requested to\r\n$ verify that the static equilibrium of forces at a grid point (due to the load,\r\n$ constraints, and element forces) is zero. A fourth modeling of the wing\r\n$ (Problem 1-1-4) uses QDMEM2 elements in place of the QDMEM elements. In this\r\n$ case, element strain energy is requested to exhibit the energy transmitted by\r\n$ each of the elements due to the load and resultant deflections.\r\n$\r\n$ 1. Parameters\r\n$\r\n$                6      2\r\n$ E   = 10.4 x 10  lb/in           (modulus of elasticity)\r\n$\r\n$                6      2\r\n$ G   =  4.0 x 10  lb/in           (shear modulus)\r\n$\r\n$                  -4       2   4\r\n$ p   =  2.523 x 10   lb sec /in   (density)\r\n$\r\n$ 2. Constraints\r\n$\r\n$ theta sub x  = theta sub y  = theta sub z   = 0.0      All grid points\r\n$\r\n$ U   =  0.0               Grids 13, 33, 53, 73, and 93\r\n$  z\r\n$\r\n$ U   =  0.0               Grids 11, 31, 51, 71, and 91\r\n$  x\r\n$\r\n$ U   =  U   =  0.0        Grids 1, 2, 3, 4, 5, 6, 21, 22, 23, 24, 25, 26, 41,\r\n$  x      y                      42, 43, 44, 45, 61, 62, 63, 64, 81, 82, and 83\r\n$\r\n$ 3. Loads\r\n$\r\n$ Problems 1-1-1, 1-1-2, 1-1-3, 1-1-4\r\n$\r\n$     Grid 16   F   = -500.0  (trailing edge)\r\n$                z\r\n$ Problem 1-1-2\r\n$\r\n$     Grid 36   F   = -500.0  (leading edge)\r\n$                z\r\n$\r\n$ 4. Eigenvalue extraction data\r\n$\r\n$ Method:  Inverse Power\r\n$\r\n$ Region of interest:  30.0 <= f <= 160.0\r\n$\r\n$ Number of desired roots:  3\r\n$\r\n$ Number of estimated roots:  1\r\n$\r\n$ C. Results\r\n$\r\n$ No closed-form or theoretical solution exists for this problem. However, a\r\n$ passive analog computer simulation (Reference 1) and a laboratory test\r\n$ (Reference 2) have been performed for this structural model. The displacements\r\n$ calculated by NASTRAN and the experimentally measured and simulated\r\n$ displacements are shown in Tables 1 and 2. The natural frequencies and modal\r\n$ displacements are shown in Tables 3 and 4. Table 5 presents the displacements\r\n$ for the static loading conditions when elements 1 through 9 are CQDMEM1\r\n$ elements and the other quadrilaterals are CQDMEM2 elements.\r\n$\r\n$ Table 1. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Trailing Edge\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.082           -.08               -.080\r\n$               15           -.221           -.22               -.210\r\n$               16           -.424           -.39               -.400\r\n$               34           -.063           -.07               -.061\r\n$               35           -.162           -.16               -.157\r\n$               36           -.293           -.28               -.286\r\n$               54           -.043           -.05               -.044\r\n$               55           -.104           -.12               -.144\r\n$               74           -.025           -.03               -.030\r\n$            --------------------------------------------------------\r\n$ \r\n$ Table 2. NASTRAN and Experimental Deflections - Concentrated Load on Outboard\r\n$          Leading Edge.\r\n$            --------------------------------------------------------\r\n$                                      Z DISPLACEMENT\r\n$             GRID         ------------------------------------------\r\n$            NUMBER        NASTRAN        EXPERIMENTAL         ANALOG\r\n$            --------------------------------------------------------\r\n$               14           -.063           -.06               -.060\r\n$               15           -.163           -.15               -.157\r\n$               16           -.293           -.28               -.286\r\n$               34           -.057           -.06               -.057\r\n$               35           -.148           -.15               -.150\r\n$               36           -.280           -.30               -.290\r\n$               54           -.046           -.05               -.048\r\n$               55           -.118           -.13               -.127\r\n$               74           -.030           -.04               -.035\r\n$            --------------------------------------------------------\r\n$ \r\n$            Table 3. NASTRAN and Analog Computer Analysis Eigenvalues\r\n$                     -----------------------------------------\r\n$                     Mode No.   NASTRAN (cps.)   ANALOG (cps.)\r\n$                     -----------------------------------------\r\n$                        1             40.9           41.3\r\n$                        2            115.3          131.0\r\n$                        3            156.2          167.0\r\n$                     -----------------------------------------\r\n$ \r\n$                   Table 4. Mode Displacements For First Mode\r\n$                            -------------------------\r\n$                                      Z DISPLACEMENT\r\n$                             GRID    ----------------\r\n$                            NUMBER   NASTRAN   ANALOG\r\n$                            -------------------------\r\n$                               14      .250     .273\r\n$                               15      .601     .630\r\n$                               16     1.000    1.000\r\n$                               34      .210     .239\r\n$                               35      .504     .558\r\n$                               36      .854     .902\r\n$                               54      .162     .192\r\n$                               55      .391     .462\r\n$                               74      .112     .148\r\n$                            -------------------------\r\n$ \r\n$                     Table 5. Comparison of Z Displacements\r\n$          ---------------------------------------------------------------\r\n$                     Trailing Edge Load             Leading Edge Load\r\n$                    --------------------------   ------------------------\r\n$                                   CQDMEM1 and                CQDMEM1 and\r\n$          Grid      CQDMEM         CQDMEM2       CQDMEM       CQDMEM2\r\n$          Point     Elements       Elements      Elements     Elements\r\n$          ---------------------------------------------------------------\r\n$           14        -.082           -.082         -.063        -.064\r\n$           15        -.221           -.224         -.163        -.167\r\n$           16        -.424           -.433         -.293        -.300\r\n$           34        -.063           -.064         -.057        -.059\r\n$           35        -.162           -.166         -.148        -.154\r\n$           36        -.293           -.300         -.280        -.294\r\n$           54        -.043           -.044         -.046        -.047\r\n$           55        -.104           -.108         -.118        -.123\r\n$           74        -.025           -.026         -.030        -.031\r\n$          ---------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$\r\n$ 1. Richard H. MacNeal and Stanley U. Benscoter, \"Analysis of Multicell Delta\r\n$    Wings on Cal-Tech Analog Computer\", NACA TN 3114, 1953.\r\n$\r\n$ 2. George W. Zender, \"Comparison of Theoretical Stresses and Deflections of\r\n$    Multicell Wings with Experimental Results Obtained from Plastic Models\",\r\n$    NACA TN 3913.\r\n$\r\n$ 26. Adelman, Howard E.; Walz, Joseph E.; and Rogers, James L., Jr.:  \"An\r\n$     Isoparametric Quadrilateral Membrane Element for NASTRAN\", NASA TN X-2637,\r\n$     September, 1972, pp. 315-336. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01021a.inp",
    "content": "NASTRAN  FILES=(NPTP,PLT2)                                                      \r\nID    D01021A,NASTRAN                                                           \r\nCHKPNT   YES                                                                    \r\nTIME     15                                                                     \r\nAPP      DISPLACEMENT                                                           \r\nSOL      1,1                                                                    \r\nCEND                                                                            \r\nTITLE    = SPHERICAL SHELL WITH PRESSURE LOADING, NO MOMENTS ON BOUNDARY        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                          \r\nLOAD = 1                                                                        \r\nSPC  = 2                                                                        \r\nOUTPUT                                                                          \r\nDISP   = ALL                                                                    \r\nSPCF   = ALL                                                                    \r\nSTRESS = ALL                                                                    \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n   MAXIMUM DEFORMATION  6.0                                                     \r\n$                                                                               \r\n$ ALL ELEMENTS                                                                  \r\n   SET 1 = ELEMENTS TRIA2                                                       \r\n$                                                                               \r\n$ PLOTEL - EDGES AND CENTERLINE                                                 \r\n   SET 2 = PLOTEL                                                               \r\n$                                                                               \r\n     VIEW 20.0, 30.0, 0.0                                                       \r\n     FIND SCALE  ORIGIN 1 SET 1                                                 \r\nPTITLE = UNDEFORMED SECTION TRIA2 ELEMENTS                                      \r\nPLOT LABEL(BOTH), SYMBOLS 6,SHRINK                                              \r\nPTITLE = SECTION TRIA2 ELEMENTS WITH UNDERLAY                                   \r\n   PLOT STATIC DEFORMATION 0,1, SET 1, ORIGIN 1,SHAPE, LABELS                   \r\n$                                                                               \r\n$                                                                               \r\n        PERSPECTIVE PROJECTION                                                  \r\n$                                                                               \r\nMAXIMUM DEFORMATION 6.0                                                         \r\n     FIND SCALE, SET 2, ORIGIN 1000                                             \r\n   FIND SCALE,ORIGIN 1000, SET  1,VANT POINT,REGION 0.35,0.1, 0.9, 0.8          \r\nPTITLE = SECTION PLOTEL ELEMENTS (PERSPECTIVE PROJECTION)                       \r\nPLOT SET 2,  ORIGIN 1000, LABELS                                                \r\nPTITLE = FULL MODEL (VIA SYMMETRY) TRIA2 ELEMENTS - PERSPECTIVE                 \r\nPLOT    SET 1,  ORIGIN 1000, SYMBOLS 9, SHAPE,SHRINK,                           \r\n        SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY X,                     \r\n        SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY Y,                     \r\n        SET 1, ORIGIN 1000 SYMBOLS 9 SHAPE      SYMMETRY XY                     \r\nPTITLE = FULL MODEL (VIA SYMMETRY) PLOTEL ELEMENTS - PERSPECTIVE                \r\nPLOT STATIC DEFORMATION 0,1,                                                    \r\n        SET 2, ORIGIN 1000, SHAPE,                                              \r\n        SET 2, ORIGIN 1000, SHAPE, SYMMETRY X,                                  \r\n        SET 2, ORIGIN 1000, SHAPE, SYMMETRY Y,                                  \r\n        SET 2, ORIGIN 1000, SHAPE, SYMMETRY XY                                  \r\nBEGIN BULK                                                                      \r\nCORD2S  2               .0      .0      .0      .0      .0      1.      +COR1   \r\n+COR1   1.000   .000    .000                                                    \r\nCTRIA2  1       31      1       6       26      .0                              \r\nCTRIA2  2       31      6       11      26      .0                              \r\nCTRIA2  3       31      2       7       1       .0                              \r\nCTRIA2  4       31      6       1       7       .0                              \r\nCTRIA2  5       31      7       12      6       .0                              \r\nCTRIA2  6       31      11      6       12      .0                              \r\nCTRIA2  7       31      12      16      11      .0                              \r\nCTRIA2  8       31      3       8       2       .0                              \r\nCTRIA2  9       31      7       2       8       .0                              \r\nCTRIA2  10      31      8       13      7       .0                              \r\nCTRIA2  11      31      12      7       13      .0                              \r\nCTRIA2  12      31      13      17      12      .0                              \r\nCTRIA2  13      31      16      12      17      .0                              \r\nCTRIA2  14      31      17      20      16      .0                              \r\nCTRIA2  15      31      4       9       3       .0                              \r\nCTRIA2  16      31      8       3       9       .0                              \r\nCTRIA2  17      31      9       14      8       .0                              \r\nCTRIA2  18      31      13      8       14      .0                              \r\nCTRIA2  19      31      14      18      13      .0                              \r\nCTRIA2  20      31      17      13      18      .0                              \r\nCTRIA2  21      31      18      21      17      .0                              \r\nCTRIA2  22      31      20      17      21      .0                              \r\nCTRIA2  23      31      21      23      20      .0                              \r\nCTRIA2  24      31      5       10      4       .0                              \r\nCTRIA2  25      31      9       4       10      .0                              \r\nCTRIA2  26      31      10      15      9       .0                              \r\nCTRIA2  27      31      14      9       15      .0                              \r\nCTRIA2  28      31      15      19      14      .0                              \r\nCTRIA2  29      31      18      14      19      .0                              \r\nCTRIA2  30      31      19      22      18      .0                              \r\nCTRIA2  31      31      21      18      22      .0                              \r\nCTRIA2  32      31      22      24      21      .0                              \r\nCTRIA2  33      31      23      21      24      .0                              \r\nCTRIA2  34      31      24      25      23      .0                              \r\nGRDSET          2                               2                               \r\nGRID    1               90.     7.      .0                                      \r\nGRID    2               90.     14.0    .0                                      \r\nGRID    3               90.     21.0    .0                                      \r\nGRID    4               90.     28.0    .0                                      \r\nGRID    5               90.     35.0    .0                                      \r\nGRID    6               90.     7.0     45.0                                    \r\nGRID    7               90.     14.0    30.0                                    \r\nGRID    8               90.     21.0    22.5                                    \r\nGRID    9               90.     28.0    18.0                                    \r\nGRID    10              90.     35.0    15.0                                    \r\nGRID    11              90.     7.0     90.0                                    \r\nGRID    12              90.     14.0    60.0                                    \r\nGRID    13              90.     21.0    45.0                                    \r\nGRID    14              90.     28.0    36.0                                    \r\nGRID    15              90.     35.0    30.0                                    \r\nGRID    16              90.     14.0    90.0                                    \r\nGRID    17              90.     21.0    67.5                                    \r\nGRID    18              90.     28.0    54.0                                    \r\nGRID    19              90.     35.0    45.0                                    \r\nGRID    20              90.     21.0    90.0                                    \r\nGRID    21              90.     28.0    72.0                                    \r\nGRID    22              90.     35.0    60.0                                    \r\nGRID    23              90.     28.0    90.0                                    \r\nGRID    24              90.     35.0    75.0                                    \r\nGRID    25              90.     35.0    90.0                                    \r\nGRID    26      0       .0      .0      90.0    0                               \r\nMAT1    1       3.+6            .1666                                           \r\nPLOAD2  1       -1.0    1       2       3       4       5       6               \r\nPLOAD2  1       -1.0    7       8       9       10      11      12              \r\nPLOAD2  1       -1.0    13      14      15      16      17      18              \r\nPLOAD2  1       -1.0    19      20      21      22      23      24              \r\nPLOAD2  1       -1.0    25      26      27      28      29      30              \r\nPLOAD2  1       -1.0    31      32      33      34                              \r\nPLOTEL  50      26      1               51      1       2                       \r\nPLOTEL  52      2       3               53      3       4                       \r\nPLOTEL  54      4       5               55      5       10                      \r\nPLOTEL  56      10      15              57      15      19                      \r\nPLOTEL  58      19      22              59      22      24                      \r\nPLOTEL  60      24      25              61      25      23                      \r\nPLOTEL  62      23      20              63      20      16                      \r\nPLOTEL  64      16      11              65      11      26                      \r\nPLOTEL  66      3       8               67      8       13                      \r\nPLOTEL  68      13      17              69      17      20                      \r\nPTRIA2  31      1       3.                                                      \r\nSPC     1       26      12456   .0                                              \r\nSPC1    1       345     1       2       3       4       11      16      +SPC1-2 \r\n+SPC1-2 20      23                                                              \r\nSPC1    1       123456  5       10      15      19      22      24      +SPC1-1 \r\n+SPC1-1 25                                                                      \r\nSPC1    2       2       10      15      19      22      24                      \r\nSPC1    2       345     1       2       3       4       11      16      +SPC2-1 \r\n+SPC2-1 20      23                                                              \r\nSPC1    2       2345    5       25                                              \r\nSPC1    2       12456   26                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$                Spherical Shell with Pressure Loading (1-2-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the finite element approach to the modeling of a\r\n$ uniform spherical shell (Problem 1-2-1). A spherical coordinate system is\r\n$ chosen to describe the location and displacement degrees of freedom at each\r\n$ grid point. Triangular plate elements are chosen to provide a nearly uniform\r\n$ pattern. Two symmetric boundaries are used to analyze the structure with a\r\n$ symmetric pressure load.\r\n$ \r\n$ Two different sets of boundary conditions are used on the outside edge to\r\n$ demonstrate the ability of NASTRAN to restart (Problem 1-2-1A) with different\r\n$ constraint sets by simply changing the case control request. The membrane\r\n$ support, under a uniform inward pressure load, results in uniform in-plane\r\n$ compression in two directions. The clamped support produces bending moments in\r\n$ addition to in-plane stresses.\r\n$ \r\n$ The grid point numbering sequence used minimizes the computer time required to\r\n$ perform the triangular decomposition of the constrained stiffness matrix. This\r\n$ numbering sequence results in a partially banded matrix with all terms outside\r\n$ the band located in a single column. The grid points are arranged to form five\r\n$ rings; the center point is sequenced last.\r\n$ \r\n$ Orthographlc and perspective plots of the deformed and undeformed structure\r\n$ are requested. For the orthographlc projections the plots are fully labeled to\r\n$ aid in checking the model. The perspective projection uses the symmetric\r\n$ plotting capability to plot all four quadrants of the shell. A region request\r\n$ is used to find an origin location that will allow all quadrants to be\r\n$ plotted. The deformed plot uses plot elements to simplify the presentation.\r\n$ Umderlays of the undeformed structure are also shown for both projections.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$      r = 90.0 in.           (radius)\r\n$ \r\n$      t = 3.0 in.            (thickness)\r\n$                   6      2\r\n$      E = 3.0  x 10  lb/in   (modulus of elasticity)\r\n$ \r\n$      v = .1666              (Poisson's ratio)\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$    Problem 1-2-1\r\n$ \r\n$      a)  Grids at phi = theta degrees and phi = 90 degrees are constrained\r\n$          u sub phi = theta sub r  = 0.0\r\n$ \r\n$      b)  Grids at theta = 35 degrees are constrained u sub theta  = 0.0 only\r\n$ \r\n$    Problem 1-2-1A\r\n$ \r\n$      a)  Grids at phi = 0 degrees and phi = 90 degrees are constrained\r\n$          u sub phi = theta sub r  = 0.0\r\n$ \r\n$      b)  Grids at theta = 35 degrees are constrained u sub r = u sub phi =\r\n$          u sub theta = theta sub r = theta sub phi = theta sub theta = 0.0\r\n$ \r\n$ 3. Loads\r\n$ \r\n$                                   2\r\n$ A uniform pressure load of 1 lb/in  is applied in the -R direction (acting\r\n$ inward).\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Theoretical solutions for the continuum shell were obtained from Reference 4\r\n$ using the first 20 terms of the series shown in Equation (j) of Section 94.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The slight differences between theoretical and computed answers are due to the\r\n$ combined effects of the finite element theory and the structural behavior in\r\n$ the region of the clamped boundary. In the region of the clamped boundary, in-\r\n$ plane stresses and bending moments are predicted to have large variations.\r\n$ However, the elements used in the model assume a constant in-plane stress and\r\n$ linearly varying bending moment and do not accurately represent the structural\r\n$ response. In addition, the irregularities of the finite element model cause\r\n$ extra coupling between bending and membrane action. Since the elements are\r\n$ planar, the curvature is modeled, in effect, by the dihedral angles between\r\n$ elements. Since the elements are different sizes and shapes, these dihedral\r\n$ angles vary, which results in slight differences In curvature that cause small\r\n$ errors.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01021b.inp",
    "content": "NASTRAN  FILES = OPTP                                                           \r\nID    D01021B,RESTART                                                           \r\n$ INSERT THE RESTART DICTIONARY HERE                                            \r\nREADFILE RSCARDS                                                                \r\nTIME     5                                                                      \r\nAPP      DISPLACEMENT                                                           \r\nSOL      1,1                                                                    \r\nCEND                                                                            \r\nTITLE    = SPHERICAL SHELL         RESTART WITH CLAMPED BOUNDARY                \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-02-1B                          \r\n  LOAD   = 1                                                                    \r\n  SPC    = 1                                                                    \r\nOUTPUT                                                                          \r\n  DISPLACEMENT = ALL                                                            \r\n  SPCFORCE     = ALL                                                            \r\n  ELFORCE      = ALL                                                            \r\n  STRESSES     = ALL                                                            \r\nBEGIN BULK                                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01021b.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                     RIGID FORMAT No. 1, Static Analysis\r\n$                Spherical Shell with Pressure Loading (1-2-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the finite element approach to the modeling of a\r\n$ uniform spherical shell (Problem 1-2-1). A spherical coordinate system is\r\n$ chosen to describe the location and displacement degrees of freedom at each\r\n$ grid point. Triangular plate elements are chosen to provide a nearly uniform\r\n$ pattern. Two symmetric boundaries are used to analyze the structure with a\r\n$ symmetric pressure load.\r\n$ \r\n$ Two different sets of boundary conditions are used on the outside edge to\r\n$ demonstrate the ability of NASTRAN to restart (Problem 1-2-1A) with different\r\n$ constraint sets by simply changing the case control request. The membrane\r\n$ support, under a uniform inward pressure load, results in uniform in-plane\r\n$ compression in two directions. The clamped support produces bending moments in\r\n$ addition to in-plane stresses.\r\n$ \r\n$ The grid point numbering sequence used minimizes the computer time required to\r\n$ perform the triangular decomposition of the constrained stiffness matrix. This\r\n$ numbering sequence results in a partially banded matrix with all terms outside\r\n$ the band located in a single column. The grid points are arranged to form five\r\n$ rings; the center point is sequenced last.\r\n$ \r\n$ Orthographlc and perspective plots of the deformed and undeformed structure\r\n$ are requested. For the orthographlc projections the plots are fully labeled to\r\n$ aid in checking the model. The perspective projection uses the symmetric\r\n$ plotting capability to plot all four quadrants of the shell. A region request\r\n$ is used to find an origin location that will allow all quadrants to be\r\n$ plotted. The deformed plot uses plot elements to simplify the presentation.\r\n$ Umderlays of the undeformed structure are also shown for both projections.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$      r = 90.0 in.           (radius)\r\n$ \r\n$      t = 3.0 in.            (thickness)\r\n$                   6      2\r\n$      E = 3.0  x 10  lb/in   (modulus of elasticity)\r\n$ \r\n$      v = .1666              (Poisson's ratio)\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$    Problem 1-2-1\r\n$ \r\n$      a)  Grids at phi = theta degrees and phi = 90 degrees are constrained\r\n$          u sub phi = theta sub r  = 0.0\r\n$ \r\n$      b)  Grids at theta = 35 degrees are constrained u sub theta  = 0.0 only\r\n$ \r\n$    Problem 1-2-1A\r\n$ \r\n$      a)  Grids at phi = 0 degrees and phi = 90 degrees are constrained\r\n$          u sub phi = theta sub r  = 0.0\r\n$ \r\n$      b)  Grids at theta = 35 degrees are constrained u sub r = u sub phi =\r\n$          u sub theta = theta sub r = theta sub phi = theta sub theta = 0.0\r\n$ \r\n$ 3. Loads\r\n$ \r\n$                                   2\r\n$ A uniform pressure load of 1 lb/in  is applied in the -R direction (acting\r\n$ inward).\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Theoretical solutions for the continuum shell were obtained from Reference 4\r\n$ using the first 20 terms of the series shown in Equation (j) of Section 94.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The slight differences between theoretical and computed answers are due to the\r\n$ combined effects of the finite element theory and the structural behavior in\r\n$ the region of the clamped boundary. In the region of the clamped boundary, in-\r\n$ plane stresses and bending moments are predicted to have large variations.\r\n$ However, the elements used in the model assume a constant in-plane stress and\r\n$ linearly varying bending moment and do not accurately represent the structural\r\n$ response. In addition, the irregularities of the finite element model cause\r\n$ extra coupling between bending and membrane action. Since the elements are\r\n$ planar, the curvature is modeled, in effect, by the dihedral angles between\r\n$ elements. Since the elements are different sizes and shapes, these dihedral\r\n$ angles vary, which results in slight differences In curvature that cause small\r\n$ errors.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01031a.inp",
    "content": "ID    D01031A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING                          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-1A                          \r\n   LABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL       \r\n   SPC   = 1                                                                    \r\n   TEMPERATURE = 1                                                              \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n   SET 2 = 1 THRU 26                                                            \r\n   DISPLACEMENTS = 1                                                            \r\n   OLOAD = 2                                                                    \r\n$      STRESSES FOR POINTS ON PUBLISHED CURVES                                  \r\n   SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n         106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,             \r\n         184,189, 197,202, 210,215, 223,228                                     \r\n   STRESSES = 3                                                                 \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n+CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n+CNG12  209     222                                                             \r\nCNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n+CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n+CNG22  210     223                                                             \r\nCNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n+CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n+CNG32  211     224                                                             \r\nCNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n+CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n+CNG42  212     225                                                             \r\nCNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n+CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n+CNG52  213     226                                                             \r\nCNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n+CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n+CNG62  214     227                                                             \r\nCNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n+CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n+CNG72  215     228                                                             \r\nCNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n+CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n+CNG82  216     229                                                             \r\nCNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n+CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n+CNG92  217     230                                                             \r\nCNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n+CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n+CNG102 218     231                                                             \r\nCNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n+CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n+CNG112 219     232                                                             \r\nCNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n+CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n+CNG122 220     233                                                             \r\nCQDMEM  1       21      1       2       15      14      .00                     \r\nCQDMEM  2       21      2       3       16      15      .00                     \r\nCQDMEM  3       21      3       4       17      16      .00                     \r\nCQDMEM  4       21      4       5       18      17      .00                     \r\nCQDMEM  5       21      5       6       19      18      .00                     \r\nCQDMEM  6       21      6       7       20      19      .00                     \r\nCQDMEM  7       21      7       8       21      20      .00                     \r\nCQDMEM  8       21      8       9       22      21      .00                     \r\nCQDMEM  9       21      9       10      23      22      .00                     \r\nCQDMEM  10      21      10      11      24      23      .00                     \r\nCQDMEM  11      21      11      12      25      24      .00                     \r\nCQDMEM  12      21      12      13      26      25      .00                     \r\nCQDMEM  14      21      14      15      28      27      .00                     \r\nCQDMEM  15      21      15      16      29      28      .00                     \r\nCQDMEM  16      21      16      17      30      29      .00                     \r\nCQDMEM  17      21      17      18      31      30      .00                     \r\nCQDMEM  18      21      18      19      32      31      .00                     \r\nCQDMEM  19      21      19      20      33      32      .00                     \r\nCQDMEM  20      21      20      21      34      33      .00                     \r\nCQDMEM  21      21      21      22      35      34      .00                     \r\nCQDMEM  22      21      22      23      36      35      .00                     \r\nCQDMEM  23      21      23      24      37      36      .00                     \r\nCQDMEM  24      21      24      25      38      37      .00                     \r\nCQDMEM  25      21      25      26      39      38      .00                     \r\nCQDMEM  27      21      27      28      41      40      .00                     \r\nCQDMEM  28      21      28      29      42      41      .00                     \r\nCQDMEM  29      21      29      30      43      42      .00                     \r\nCQDMEM  30      21      30      31      44      43      .00                     \r\nCQDMEM  31      21      31      32      45      44      .00                     \r\nCQDMEM  32      21      32      33      46      45      .00                     \r\nCQDMEM  33      21      33      34      47      46      .00                     \r\nCQDMEM  34      21      34      35      48      47      .00                     \r\nCQDMEM  35      21      35      36      49      48      .00                     \r\nCQDMEM  36      21      36      37      50      49      .00                     \r\nCQDMEM  37      21      37      38      51      50      .00                     \r\nCQDMEM  38      21      38      39      52      51      .00                     \r\nCQDMEM  40      21      40      41      54      53      .00                     \r\nCQDMEM  41      21      41      42      55      54      .00                     \r\nCQDMEM  42      21      42      43      56      55      .00                     \r\nCQDMEM  43      21      43      44      57      56      .00                     \r\nCQDMEM  44      21      44      45      58      57      .00                     \r\nCQDMEM  45      21      45      46      59      58      .00                     \r\nCQDMEM  46      21      46      47      60      59      .00                     \r\nCQDMEM  47      21      47      48      61      60      .00                     \r\nCQDMEM  48      21      48      49      62      61      .00                     \r\nCQDMEM  49      21      49      50      63      62      .00                     \r\nCQDMEM  50      21      50      51      64      63      .00                     \r\nCQDMEM  51      21      51      52      65      64      .00                     \r\nCQDMEM  53      21      53      54      67      66      .00                     \r\nCQDMEM  54      21      54      55      68      67      .00                     \r\nCQDMEM  55      21      55      56      69      68      .00                     \r\nCQDMEM  56      21      56      57      70      69      .00                     \r\nCQDMEM  57      21      57      58      71      70      .00                     \r\nCQDMEM  58      21      58      59      72      71      .00                     \r\nCQDMEM  59      21      59      60      73      72      .00                     \r\nCQDMEM  60      21      60      61      74      73      .00                     \r\nCQDMEM  61      21      61      62      75      74      .00                     \r\nCQDMEM  62      21      62      63      76      75      .00                     \r\nCQDMEM  63      21      63      64      77      76      .00                     \r\nCQDMEM  64      21      64      65      78      77      .00                     \r\nCQDMEM  66      21      66      67      80      79      .00                     \r\nCQDMEM  67      21      67      68      81      80      .00                     \r\nCQDMEM  68      21      68      69      82      81      .00                     \r\nCQDMEM  69      21      69      70      83      82      .00                     \r\nCQDMEM  70      21      70      71      84      83      .00                     \r\nCQDMEM  71      21      71      72      85      84      .00                     \r\nCQDMEM  72      21      72      73      86      85      .00                     \r\nCQDMEM  73      21      73      74      87      86      .00                     \r\nCQDMEM  74      21      74      75      88      87      .00                     \r\nCQDMEM  75      21      75      76      89      88      .00                     \r\nCQDMEM  76      21      76      77      90      89      .00                     \r\nCQDMEM  77      21      77      78      91      90      .00                     \r\nCQDMEM  79      21      79      80      93      92      .00                     \r\nCQDMEM  80      21      80      81      94      93      .00                     \r\nCQDMEM  81      21      81      82      95      94      .00                     \r\nCQDMEM  82      21      82      83      96      95      .00                     \r\nCQDMEM  83      21      83      84      97      96      .00                     \r\nCQDMEM  84      21      84      85      98      97      .00                     \r\nCQDMEM  85      21      85      86      99      98      .00                     \r\nCQDMEM  86      21      86      87      100     99      .00                     \r\nCQDMEM  87      21      87      88      101     100     .00                     \r\nCQDMEM  88      21      88      89      102     101     .00                     \r\nCQDMEM  89      21      89      90      103     102     .00                     \r\nCQDMEM  90      21      90      91      104     103     .00                     \r\nCQDMEM  92      21      92      93      106     105     .00                     \r\nCQDMEM  93      21      93      94      107     106     .00                     \r\nCQDMEM  94      21      94      95      108     107     .00                     \r\nCQDMEM  95      21      95      96      109     108     .00                     \r\nCQDMEM  96      21      96      97      110     109     .00                     \r\nCQDMEM  97      21      97      98      111     110     .00                     \r\nCQDMEM  98      21      98      99      112     111     .00                     \r\nCQDMEM  99      21      99      100     113     112     .00                     \r\nCQDMEM  100     21      100     101     114     113     .00                     \r\nCQDMEM  101     21      101     102     115     114     .00                     \r\nCQDMEM  102     21      102     103     116     115     .00                     \r\nCQDMEM  103     21      103     104     117     116     .00                     \r\nCQDMEM  105     21      105     106     119     118     .00                     \r\nCQDMEM  106     21      106     107     120     119     .00                     \r\nCQDMEM  107     21      107     108     121     120     .00                     \r\nCQDMEM  108     21      108     109     122     121     .00                     \r\nCQDMEM  109     21      109     110     123     122     .00                     \r\nCQDMEM  110     21      110     111     124     123     .00                     \r\nCQDMEM  111     21      111     112     125     124     .00                     \r\nCQDMEM  112     21      112     113     126     125     .00                     \r\nCQDMEM  113     21      113     114     127     126     .00                     \r\nCQDMEM  114     21      114     115     128     127     .00                     \r\nCQDMEM  115     21      115     116     129     128     .00                     \r\nCQDMEM  116     21      116     117     130     129     .00                     \r\nCQDMEM  118     21      118     119     132     131     .00                     \r\nCQDMEM  119     21      119     120     133     132     .00                     \r\nCQDMEM  120     21      120     121     134     133     .00                     \r\nCQDMEM  121     21      121     122     135     134     .00                     \r\nCQDMEM  122     21      122     123     136     135     .00                     \r\nCQDMEM  123     21      123     124     137     136     .00                     \r\nCQDMEM  124     21      124     125     138     137     .00                     \r\nCQDMEM  125     21      125     126     139     138     .00                     \r\nCQDMEM  126     21      126     127     140     139     .00                     \r\nCQDMEM  127     21      127     128     141     140     .00                     \r\nCQDMEM  128     21      128     129     142     141     .00                     \r\nCQDMEM  129     21      129     130     143     142     .00                     \r\nCQDMEM  131     21      131     132     145     144     .00                     \r\nCQDMEM  132     21      132     133     146     145     .00                     \r\nCQDMEM  133     21      133     134     147     146     .00                     \r\nCQDMEM  134     21      134     135     148     147     .00                     \r\nCQDMEM  135     21      135     136     149     148     .00                     \r\nCQDMEM  136     21      136     137     150     149     .00                     \r\nCQDMEM  137     21      137     138     151     150     .00                     \r\nCQDMEM  138     21      138     139     152     151     .00                     \r\nCQDMEM  139     21      139     140     153     152     .00                     \r\nCQDMEM  140     21      140     141     154     153     .00                     \r\nCQDMEM  141     21      141     142     155     154     .00                     \r\nCQDMEM  142     21      142     143     156     155     .00                     \r\nCQDMEM  144     21      144     145     158     157     .00                     \r\nCQDMEM  145     21      145     146     159     158     .00                     \r\nCQDMEM  146     21      146     147     160     159     .00                     \r\nCQDMEM  147     21      147     148     161     160     .00                     \r\nCQDMEM  148     21      148     149     162     161     .00                     \r\nCQDMEM  149     21      149     150     163     162     .00                     \r\nCQDMEM  150     21      150     151     164     163     .00                     \r\nCQDMEM  151     21      151     152     165     164     .00                     \r\nCQDMEM  152     21      152     153     166     165     .00                     \r\nCQDMEM  153     21      153     154     167     166     .00                     \r\nCQDMEM  154     21      154     155     168     167     .00                     \r\nCQDMEM  155     21      155     156     169     168     .00                     \r\nCQDMEM  157     21      157     158     171     170     .00                     \r\nCQDMEM  158     21      158     159     172     171     .00                     \r\nCQDMEM  159     21      159     160     173     172     .00                     \r\nCQDMEM  160     21      160     161     174     173     .00                     \r\nCQDMEM  161     21      161     162     175     174     .00                     \r\nCQDMEM  162     21      162     163     176     175     .00                     \r\nCQDMEM  163     21      163     164     177     176     .00                     \r\nCQDMEM  164     21      164     165     178     177     .00                     \r\nCQDMEM  165     21      165     166     179     178     .00                     \r\nCQDMEM  166     21      166     167     180     179     .00                     \r\nCQDMEM  167     21      167     168     181     180     .00                     \r\nCQDMEM  168     21      168     169     182     181     .00                     \r\nCQDMEM  170     21      170     171     184     183     .00                     \r\nCQDMEM  171     21      171     172     185     184     .00                     \r\nCQDMEM  172     21      172     173     186     185     .00                     \r\nCQDMEM  173     21      173     174     187     186     .00                     \r\nCQDMEM  174     21      174     175     188     187     .00                     \r\nCQDMEM  175     21      175     176     189     188     .00                     \r\nCQDMEM  176     21      176     177     190     189     .00                     \r\nCQDMEM  177     21      177     178     191     190     .00                     \r\nCQDMEM  178     21      178     179     192     191     .00                     \r\nCQDMEM  179     21      179     180     193     192     .00                     \r\nCQDMEM  180     21      180     181     194     193     .00                     \r\nCQDMEM  181     21      181     182     195     194     .00                     \r\nCQDMEM  183     21      183     184     197     196     .00                     \r\nCQDMEM  184     21      184     185     198     197     .00                     \r\nCQDMEM  185     21      185     186     199     198     .00                     \r\nCQDMEM  186     21      186     187     200     199     .00                     \r\nCQDMEM  187     21      187     188     201     200     .00                     \r\nCQDMEM  188     21      188     189     202     201     .00                     \r\nCQDMEM  189     21      189     190     203     202     .00                     \r\nCQDMEM  190     21      190     191     204     203     .00                     \r\nCQDMEM  191     21      191     192     205     204     .00                     \r\nCQDMEM  192     21      192     193     206     205     .00                     \r\nCQDMEM  193     21      193     194     207     206     .00                     \r\nCQDMEM  194     21      194     195     208     207     .00                     \r\nCQDMEM  196     21      196     197     210     209     .00                     \r\nCQDMEM  197     21      197     198     211     210     .00                     \r\nCQDMEM  198     21      198     199     212     211     .00                     \r\nCQDMEM  199     21      199     200     213     212     .00                     \r\nCQDMEM  200     21      200     201     214     213     .00                     \r\nCQDMEM  201     21      201     202     215     214     .00                     \r\nCQDMEM  202     21      202     203     216     215     .00                     \r\nCQDMEM  203     21      203     204     217     216     .00                     \r\nCQDMEM  204     21      204     205     218     217     .00                     \r\nCQDMEM  205     21      205     206     219     218     .00                     \r\nCQDMEM  206     21      206     207     220     219     .00                     \r\nCQDMEM  207     21      207     208     221     220     .00                     \r\nCQDMEM  209     21      209     210     223     222     .00                     \r\nCQDMEM  210     21      210     211     224     223     .00                     \r\nCQDMEM  211     21      211     212     225     224     .00                     \r\nCQDMEM  212     21      212     213     226     225     .00                     \r\nCQDMEM  213     21      213     214     227     226     .00                     \r\nCQDMEM  214     21      214     215     228     227     .00                     \r\nCQDMEM  215     21      215     216     229     228     .00                     \r\nCQDMEM  216     21      216     217     230     229     .00                     \r\nCQDMEM  217     21      217     218     231     230     .00                     \r\nCQDMEM  218     21      218     219     232     231     .00                     \r\nCQDMEM  219     21      219     220     233     232     .00                     \r\nCQDMEM  220     21      220     221     234     233     .00                     \r\nCQDMEM  222     21      222     223     236     235     .00                     \r\nCQDMEM  223     21      223     224     237     236     .00                     \r\nCQDMEM  224     21      224     225     238     237     .00                     \r\nCQDMEM  225     21      225     226     239     238     .00                     \r\nCQDMEM  226     21      226     227     240     239     .00                     \r\nCQDMEM  227     21      227     228     241     240     .00                     \r\nCQDMEM  228     21      228     229     242     241     .00                     \r\nCQDMEM  229     21      229     230     243     242     .00                     \r\nCQDMEM  230     21      230     231     244     243     .00                     \r\nCQDMEM  231     21      231     232     245     244     .00                     \r\nCQDMEM  232     21      232     233     246     245     .00                     \r\nCQDMEM  233     21      233     234     247     246     .00                     \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nGRID    6               5.0     .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nGRID    8               7.0     .0      .0                                      \r\nGRID    9               8.0     .0      .0                                      \r\nGRID    10              9.0     .0      .0                                      \r\nGRID    11              10.0    .0      .0                                      \r\nGRID    12              11.0    .0      .0                                      \r\nGRID    13              12.0    .0      .0                                      \r\nGRID    14              .0      1.0     .0                                      \r\nGRID    15              1.0     1.0     .0                                      \r\nGRID    16              2.0     1.0     .0                                      \r\nGRID    17              3.0     1.0     .0                                      \r\nGRID    18              4.0     1.0     .0                                      \r\nGRID    19              5.0     1.0     .0                                      \r\nGRID    20              6.0     1.0     .0                                      \r\nGRID    21              7.0     1.0     .0                                      \r\nGRID    22              8.0     1.0     .0                                      \r\nGRID    23              9.0     1.0     .0                                      \r\nGRID    24              10.0    1.0     .0                                      \r\nGRID    25              11.0    1.0     .0                                      \r\nGRID    26              12.0    1.0     .0                                      \r\nGRID    27              .0      2.0     .0                                      \r\nGRID    28              1.0     2.0     .0                                      \r\nGRID    29              2.0     2.0     .0                                      \r\nGRID    30              3.0     2.0     .0                                      \r\nGRID    31              4.0     2.0     .0                                      \r\nGRID    32              5.0     2.0     .0                                      \r\nGRID    33              6.0     2.0     .0                                      \r\nGRID    34              7.0     2.0     .0                                      \r\nGRID    35              8.0     2.0     .0                                      \r\nGRID    36              9.0     2.0     .0                                      \r\nGRID    37              10.0    2.0     .0                                      \r\nGRID    38              11.0    2.0     .0                                      \r\nGRID    39              12.0    2.0     .0                                      \r\nGRID    40              .0      3.0     .0                                      \r\nGRID    41              1.0     3.0     .0                                      \r\nGRID    42              2.0     3.0     .0                                      \r\nGRID    43              3.0     3.0     .0                                      \r\nGRID    44              4.0     3.0     .0                                      \r\nGRID    45              5.0     3.0     .0                                      \r\nGRID    46              6.0     3.0     .0                                      \r\nGRID    47              7.0     3.0     .0                                      \r\nGRID    48              8.0     3.0     .0                                      \r\nGRID    49              9.0     3.0     .0                                      \r\nGRID    50              10.0    3.0     .0                                      \r\nGRID    51              11.0    3.0     .0                                      \r\nGRID    52              12.0    3.0     .0                                      \r\nGRID    53              .0      4.0     .0                                      \r\nGRID    54              1.0     4.0     .0                                      \r\nGRID    55              2.0     4.0     .0                                      \r\nGRID    56              3.0     4.0     .0                                      \r\nGRID    57              4.0     4.0     .0                                      \r\nGRID    58              5.0     4.0     .0                                      \r\nGRID    59              6.0     4.0     .0                                      \r\nGRID    60              7.0     4.0     .0                                      \r\nGRID    61              8.0     4.0     .0                                      \r\nGRID    62              9.0     4.0     .0                                      \r\nGRID    63              10.0    4.0     .0                                      \r\nGRID    64              11.0    4.0     .0                                      \r\nGRID    65              12.0    4.0     .0                                      \r\nGRID    66              .0      5.0     .0                                      \r\nGRID    67              1.0     5.0     .0                                      \r\nGRID    68              2.0     5.0     .0                                      \r\nGRID    69              3.0     5.0     .0                                      \r\nGRID    70              4.0     5.0     .0                                      \r\nGRID    71              5.0     5.0     .0                                      \r\nGRID    72              6.0     5.0     .0                                      \r\nGRID    73              7.0     5.0     .0                                      \r\nGRID    74              8.0     5.0     .0                                      \r\nGRID    75              9.0     5.0     .0                                      \r\nGRID    76              10.0    5.0     .0                                      \r\nGRID    77              11.0    5.0     .0                                      \r\nGRID    78              12.0    5.0     .0                                      \r\nGRID    79              .0      6.0     .0                                      \r\nGRID    80              1.0     6.0     .0                                      \r\nGRID    81              2.0     6.0     .0                                      \r\nGRID    82              3.0     6.0     .0                                      \r\nGRID    83              4.0     6.0     .0                                      \r\nGRID    84              5.0     6.0     .0                                      \r\nGRID    85              6.0     6.0     .0                                      \r\nGRID    86              7.0     6.0     .0                                      \r\nGRID    87              8.0     6.0     .0                                      \r\nGRID    88              9.0     6.0     .0                                      \r\nGRID    89              10.0    6.0     .0                                      \r\nGRID    90              11.0    6.0     .0                                      \r\nGRID    91              12.0    6.0     .0                                      \r\nGRID    92              .0      7.0     .0                                      \r\nGRID    93              1.0     7.0     .0                                      \r\nGRID    94              2.0     7.0     .0                                      \r\nGRID    95              3.0     7.0     .0                                      \r\nGRID    96              4.0     7.0     .0                                      \r\nGRID    97              5.0     7.0     .0                                      \r\nGRID    98              6.0     7.0     .0                                      \r\nGRID    99              7.0     7.0     .0                                      \r\nGRID    100             8.0     7.0     .0                                      \r\nGRID    101             9.0     7.0     .0                                      \r\nGRID    102             10.0    7.0     .0                                      \r\nGRID    103             11.0    7.0     .0                                      \r\nGRID    104             12.0    7.0     .0                                      \r\nGRID    105             .0      8.0     .0                                      \r\nGRID    106             1.0     8.0     .0                                      \r\nGRID    107             2.0     8.0     .0                                      \r\nGRID    108             3.0     8.0     .0                                      \r\nGRID    109             4.0     8.0     .0                                      \r\nGRID    110             5.0     8.0     .0                                      \r\nGRID    111             6.0     8.0     .0                                      \r\nGRID    112             7.0     8.0     .0                                      \r\nGRID    113             8.0     8.0     .0                                      \r\nGRID    114             9.0     8.0     .0                                      \r\nGRID    115             10.0    8.0     .0                                      \r\nGRID    116             11.0    8.0     .0                                      \r\nGRID    117             12.0    8.0     .0                                      \r\nGRID    118             .0      9.0     .0                                      \r\nGRID    119             1.0     9.0     .0                                      \r\nGRID    120             2.0     9.0     .0                                      \r\nGRID    121             3.0     9.0     .0                                      \r\nGRID    122             4.0     9.0     .0                                      \r\nGRID    123             5.0     9.0     .0                                      \r\nGRID    124             6.0     9.0     .0                                      \r\nGRID    125             7.0     9.0     .0                                      \r\nGRID    126             8.0     9.0     .0                                      \r\nGRID    127             9.0     9.0     .0                                      \r\nGRID    128             10.0    9.0     .0                                      \r\nGRID    129             11.0    9.0     .0                                      \r\nGRID    130             12.0    9.0     .0                                      \r\nGRID    131             .0      10.0    .0                                      \r\nGRID    132             1.0     10.0    .0                                      \r\nGRID    133             2.0     10.0    .0                                      \r\nGRID    134             3.0     10.0    .0                                      \r\nGRID    135             4.0     10.0    .0                                      \r\nGRID    136             5.0     10.0    .0                                      \r\nGRID    137             6.0     10.0    .0                                      \r\nGRID    138             7.0     10.0    .0                                      \r\nGRID    139             8.0     10.0    .0                                      \r\nGRID    140             9.0     10.0    .0                                      \r\nGRID    141             10.0    10.0    .0                                      \r\nGRID    142             11.0    10.0    .0                                      \r\nGRID    143             12.0    10.0    .0                                      \r\nGRID    144             .0      11.0    .0                                      \r\nGRID    145             1.0     11.0    .0                                      \r\nGRID    146             2.0     11.0    .0                                      \r\nGRID    147             3.0     11.0    .0                                      \r\nGRID    148             4.0     11.0    .0                                      \r\nGRID    149             5.0     11.0    .0                                      \r\nGRID    150             6.0     11.0    .0                                      \r\nGRID    151             7.0     11.0    .0                                      \r\nGRID    152             8.0     11.0    .0                                      \r\nGRID    153             9.0     11.0    .0                                      \r\nGRID    154             10.0    11.0    .0                                      \r\nGRID    155             11.0    11.0    .0                                      \r\nGRID    156             12.0    11.0    .0                                      \r\nGRID    157             .0      12.0    .0                                      \r\nGRID    158             1.0     12.0    .0                                      \r\nGRID    159             2.0     12.0    .0                                      \r\nGRID    160             3.0     12.0    .0                                      \r\nGRID    161             4.0     12.0    .0                                      \r\nGRID    162             5.0     12.0    .0                                      \r\nGRID    163             6.0     12.0    .0                                      \r\nGRID    164             7.0     12.0    .0                                      \r\nGRID    165             8.0     12.0    .0                                      \r\nGRID    166             9.0     12.0    .0                                      \r\nGRID    167             10.0    12.0    .0                                      \r\nGRID    168             11.0    12.0    .0                                      \r\nGRID    169             12.0    12.0    .0                                      \r\nGRID    170             .0      13.0    .0                                      \r\nGRID    171             1.0     13.0    .0                                      \r\nGRID    172             2.0     13.0    .0                                      \r\nGRID    173             3.0     13.0    .0                                      \r\nGRID    174             4.0     13.0    .0                                      \r\nGRID    175             5.0     13.0    .0                                      \r\nGRID    176             6.0     13.0    .0                                      \r\nGRID    177             7.0     13.0    .0                                      \r\nGRID    178             8.0     13.0    .0                                      \r\nGRID    179             9.0     13.0    .0                                      \r\nGRID    180             10.0    13.0    .0                                      \r\nGRID    181             11.0    13.0    .0                                      \r\nGRID    182             12.0    13.0    .0                                      \r\nGRID    183             .0      14.0    .0                                      \r\nGRID    184             1.0     14.0    .0                                      \r\nGRID    185             2.0     14.0    .0                                      \r\nGRID    186             3.0     14.0    .0                                      \r\nGRID    187             4.0     14.0    .0                                      \r\nGRID    188             5.0     14.0    .0                                      \r\nGRID    189             6.0     14.0    .0                                      \r\nGRID    190             7.0     14.0    .0                                      \r\nGRID    191             8.0     14.0    .0                                      \r\nGRID    192             9.0     14.0    .0                                      \r\nGRID    193             10.0    14.0    .0                                      \r\nGRID    194             11.0    14.0    .0                                      \r\nGRID    195             12.0    14.0    .0                                      \r\nGRID    196             .0      15.0    .0                                      \r\nGRID    197             1.0     15.0    .0                                      \r\nGRID    198             2.0     15.0    .0                                      \r\nGRID    199             3.0     15.0    .0                                      \r\nGRID    200             4.0     15.0    .0                                      \r\nGRID    201             5.0     15.0    .0                                      \r\nGRID    202             6.0     15.0    .0                                      \r\nGRID    203             7.0     15.0    .0                                      \r\nGRID    204             8.0     15.0    .0                                      \r\nGRID    205             9.0     15.0    .0                                      \r\nGRID    206             10.0    15.0    .0                                      \r\nGRID    207             11.0    15.0    .0                                      \r\nGRID    208             12.0    15.0    .0                                      \r\nGRID    209             .0      16.0    .0                                      \r\nGRID    210             1.0     16.0    .0                                      \r\nGRID    211             2.0     16.0    .0                                      \r\nGRID    212             3.0     16.0    .0                                      \r\nGRID    213             4.0     16.0    .0                                      \r\nGRID    214             5.0     16.0    .0                                      \r\nGRID    215             6.0     16.0    .0                                      \r\nGRID    216             7.0     16.0    .0                                      \r\nGRID    217             8.0     16.0    .0                                      \r\nGRID    218             9.0     16.0    .0                                      \r\nGRID    219             10.0    16.0    .0                                      \r\nGRID    220             11.0    16.0    .0                                      \r\nGRID    221             12.0    16.0    .0                                      \r\nGRID    222             .0      17.0    .0                                      \r\nGRID    223             1.0     17.0    .0                                      \r\nGRID    224             2.0     17.0    .0                                      \r\nGRID    225             3.0     17.0    .0                                      \r\nGRID    226             4.0     17.0    .0                                      \r\nGRID    227             5.0     17.0    .0                                      \r\nGRID    228             6.0     17.0    .0                                      \r\nGRID    229             7.0     17.0    .0                                      \r\nGRID    230             8.0     17.0    .0                                      \r\nGRID    231             9.0     17.0    .0                                      \r\nGRID    232             10.0    17.0    .0                                      \r\nGRID    233             11.0    17.0    .0                                      \r\nGRID    234             12.0    17.0    .0                                      \r\nGRID    235             .0      18.0    .0                                      \r\nGRID    236             1.0     18.0    .0                                      \r\nGRID    237             2.0     18.0    .0                                      \r\nGRID    238             3.0     18.0    .0                                      \r\nGRID    239             4.0     18.0    .0                                      \r\nGRID    240             5.0     18.0    .0                                      \r\nGRID    241             6.0     18.0    .0                                      \r\nGRID    242             7.0     18.0    .0                                      \r\nGRID    243             8.0     18.0    .0                                      \r\nGRID    244             9.0     18.0    .0                                      \r\nGRID    245             10.0    18.0    .0                                      \r\nGRID    246             11.0    18.0    .0                                      \r\nGRID    247             12.0    18.0    .0                                      \r\nMAT1    75      10.400+6        .3              12.700-675.                     \r\nMATT1   75      100                                                             \r\nPARAM   IRES    1                                                               \r\nPQDMEM  21      75      .25                                                     \r\nSPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n+SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n+SPC-B  183     196     209     222     235                                     \r\nSPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n+SPC-C  7       8       9       10      11      12      13                      \r\nTABLEM1 100                                                             +TM1    \r\n+TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n+TM2    300.    9.15+6  ENDT                                                    \r\nTEMP    1       1       245.000 2       232.500 3       220.000                 \r\nTEMP    1       4       207.500 5       195.000 6       182.500                 \r\nTEMP    1       7       170.000 8       157.500 9       145.000                 \r\nTEMP    1       10      132.500 11      120.000 12      107.500                 \r\nTEMP    1       13      95.000  14      245.000 15      232.500                 \r\nTEMP    1       16      220.000 17      207.500 18      195.000                 \r\nTEMP    1       19      182.500 20      170.000 21      157.500                 \r\nTEMP    1       22      145.000 23      132.500 24      120.000                 \r\nTEMP    1       25      107.500 26      95.000  27      245.000                 \r\nTEMP    1       28      232.500 29      220.000 30      207.500                 \r\nTEMP    1       31      195.000 32      182.500 33      170.000                 \r\nTEMP    1       34      157.500 35      145.000 36      132.500                 \r\nTEMP    1       37      120.000 38      107.500 39      95.000                  \r\nTEMP    1       40      245.000 41      232.500 42      220.000                 \r\nTEMP    1       43      207.500 44      195.000 45      182.500                 \r\nTEMP    1       46      170.000 47      157.500 48      145.000                 \r\nTEMP    1       49      132.500 50      120.000 51      107.500                 \r\nTEMP    1       52      95.000  53      245.000 54      232.500                 \r\nTEMP    1       55      220.000 56      207.500 57      195.000                 \r\nTEMP    1       58      182.500 59      170.000 60      157.500                 \r\nTEMP    1       61      145.000 62      132.500 63      120.000                 \r\nTEMP    1       64      107.500 65      95.000  66      245.000                 \r\nTEMP    1       67      232.500 68      220.000 69      207.500                 \r\nTEMP    1       70      195.000 71      182.500 72      170.000                 \r\nTEMP    1       73      157.500 74      145.000 75      132.500                 \r\nTEMP    1       76      120.000 77      107.500 78      95.000                  \r\nTEMP    1       79      245.000 80      232.500 81      220.000                 \r\nTEMP    1       82      207.500 83      195.000 84      182.500                 \r\nTEMP    1       85      170.000 86      157.500 87      145.000                 \r\nTEMP    1       88      132.500 89      120.000 90      107.500                 \r\nTEMP    1       91      95.000  92      245.000 93      232.500                 \r\nTEMP    1       94      220.000 95      207.500 96      195.000                 \r\nTEMP    1       97      182.500 98      170.000 99      157.500                 \r\nTEMP    1       100     145.000 101     132.500 102     120.000                 \r\nTEMP    1       103     107.500 104     95.000  105     245.000                 \r\nTEMP    1       106     232.500 107     220.000 108     207.500                 \r\nTEMP    1       109     195.000 110     182.500 111     170.000                 \r\nTEMP    1       112     157.500 113     145.000 114     132.500                 \r\nTEMP    1       115     120.000 116     107.500 117     95.000                  \r\nTEMP    1       118     245.000 119     232.500 120     220.000                 \r\nTEMP    1       121     207.500 122     195.000 123     182.500                 \r\nTEMP    1       124     170.000 125     157.500 126     145.000                 \r\nTEMP    1       127     132.500 128     120.000 129     107.500                 \r\nTEMP    1       130     95.000  131     245.000 132     232.500                 \r\nTEMP    1       133     220.000 134     207.500 135     195.000                 \r\nTEMP    1       136     182.500 137     170.000 138     157.500                 \r\nTEMP    1       139     145.000 140     132.500 141     120.000                 \r\nTEMP    1       142     107.500 143     95.000  144     245.000                 \r\nTEMP    1       145     232.500 146     220.000 147     207.500                 \r\nTEMP    1       148     195.000 149     182.500 150     170.000                 \r\nTEMP    1       151     157.500 152     145.000 153     132.500                 \r\nTEMP    1       154     120.000 155     107.500 156     95.000                  \r\nTEMP    1       157     245.000 158     232.500 159     220.000                 \r\nTEMP    1       160     207.500 161     195.000 162     182.500                 \r\nTEMP    1       163     170.000 164     157.500 165     145.000                 \r\nTEMP    1       166     132.500 167     120.000 168     107.500                 \r\nTEMP    1       169     95.000  170     245.000 171     232.500                 \r\nTEMP    1       172     220.000 173     207.500 174     195.000                 \r\nTEMP    1       175     182.500 176     170.000 177     157.500                 \r\nTEMP    1       178     145.000 179     132.500 180     120.000                 \r\nTEMP    1       181     107.500 182     95.000  183     245.000                 \r\nTEMP    1       184     232.500 185     220.000 186     207.500                 \r\nTEMP    1       187     195.000 188     182.500 189     170.000                 \r\nTEMP    1       190     157.500 191     145.000 192     132.500                 \r\nTEMP    1       193     120.000 194     107.500 195     95.000                  \r\nTEMP    1       196     245.000 197     232.500 198     220.000                 \r\nTEMP    1       199     207.500 200     195.000 201     182.500                 \r\nTEMP    1       202     170.000 203     157.500 204     145.000                 \r\nTEMP    1       205     132.500 206     120.000 207     107.500                 \r\nTEMP    1       208     95.000  209     245.000 210     232.500                 \r\nTEMP    1       211     220.000 212     207.500 213     195.000                 \r\nTEMP    1       214     182.500 215     170.000 216     157.500                 \r\nTEMP    1       217     145.000 218     132.500 219     120.000                 \r\nTEMP    1       220     107.500 221     95.000  222     245.000                 \r\nTEMP    1       223     232.500 224     220.000 225     207.500                 \r\nTEMP    1       226     195.000 227     182.500 228     170.000                 \r\nTEMP    1       229     157.500 230     145.000 231     132.500                 \r\nTEMP    1       232     120.000 233     107.500 234     95.000                  \r\nTEMP    1       235     245.000 236     232.500 237     220.000                 \r\nTEMP    1       238     207.500 239     195.000 240     182.500                 \r\nTEMP    1       241     170.000 242     157.500 243     145.000                 \r\nTEMP    1       244     132.500 245     120.000 246     107.500                 \r\nTEMP    1       247     95.000                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01031a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$           Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1)\r\n$          Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2)\r\n$          Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ Problem 1-3-1 demonstrates the use of thermal loading conditions and\r\n$ temperature-dependent materials. The model, a rectangular plate, is given a\r\n$ temperature gradient which causes internal loads and elastic deflections.\r\n$ Since there are two planes of symmetry, only one-quarter of the structure\r\n$ needs to be modeled. The analysis has been performed using three different\r\n$ NASTRAN membrane plate elements. The two variations of this problem are\r\n$ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1\r\n$ and QDMEM2 membrane elements to illustrate their application to this type of\r\n$ problem (Problems 1-3-2 and 1-3-3, respectively).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The temperature load is constant in the y direction and symmetric about the y-\r\n$ axis. Since membrane elements are used to model the structure, it is necessary\r\n$ to remove all rotational degrees of freedom and translational degrees of\r\n$ freedom normal to the membrane. The symmetric boundary conditions were modeled\r\n$ by constraining the displacements normal to the planes of symmetry. The\r\n$ material used has temperature-dependent elasticity (as defined in Reference\r\n$ 5); therefore, the INPUT module cannot be used for this application. The\r\n$ CNGRNT bulk data card can be used if the congruency is defined in one\r\n$ direction.\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$      L =  36.0 in                   (length)\r\n$ \r\n$      W =  24.0 in                   (width)\r\n$ \r\n$      t =   0.25 in                  (thickness)\r\n$ \r\n$                     6      2\r\n$      E =  10.4  x 10  lb/in         (modulus of elasticity at T )\r\n$                                                                o\r\n$      v =   0.3                      (Poisson's ratio)\r\n$                     -6\r\n$  alpha =  12.7  x l0   in/in/deg. F (thermal expansion coefficient)\r\n$ \r\n$      T  = 75.0  deg. F              (thermal expansion reference temperature)\r\n$       o\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$      u  = 0.0 at x = 0.0\r\n$       x\r\n$ \r\n$      u  = 0.0 at y = 0.0\r\n$       y\r\n$ \r\n$      u  = theta sub x = theta sub y = theta sub z = 0.0  at all Grids\r\n$       z\r\n$ \r\n$ 3. Loads\r\n$ \r\n$ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is\r\n$ specified as a function of temperature with MATT1 and TABLEM1 cards.\r\n$ \r\n$ C. Results\r\n$ \r\n$ There is no theoretical solution to this problem. However, this problem\r\n$ represents a model of a laboratory experiment described in Reference 5.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 5. Richard R. Heldenfels and William M. Roberts, \"Experimental and Theoretical\r\n$    Determination of Thermal Stresses in a Flat Plate\", NACA TN 2769, 1952.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01032a.inp",
    "content": "ID    D01032A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM1 ELEMENTS)        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-2A                          \r\nLABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL          \r\nSPC   = 1                                                                       \r\nTEMPERATURE = 1                                                                 \r\nOUTPUT                                                                          \r\nSET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                       \r\nSET 2 = 1 THRU 26                                                               \r\nDISPLACEMENTS = 1                                                               \r\nOLOAD = 2                                                                       \r\n$       STRESSES FOR POINTS ON PUBLISHED CURVES                                 \r\nSET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,             \r\n        106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,              \r\n        184,189, 197,202, 210,215, 223,228                                      \r\nSTRESSES = 3                                                                    \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n+CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n+CNG12  209     222                                                             \r\nCNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n+CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n+CNG22  210     223                                                             \r\nCNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n+CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n+CNG32  211     224                                                             \r\nCNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n+CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n+CNG42  212     225                                                             \r\nCNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n+CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n+CNG52  213     226                                                             \r\nCNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n+CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n+CNG62  214     227                                                             \r\nCNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n+CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n+CNG72  215     228                                                             \r\nCNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n+CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n+CNG82  216     229                                                             \r\nCNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n+CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n+CNG92  217     230                                                             \r\nCNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n+CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n+CNG102 218     231                                                             \r\nCNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n+CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n+CNG112 219     232                                                             \r\nCNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n+CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n+CNG122 220     233                                                             \r\nCQDMEM1 1       21      1       2       15      14      .00                     \r\nCQDMEM1 2       21      2       3       16      15      .00                     \r\nCQDMEM1 3       21      3       4       17      16      .00                     \r\nCQDMEM1 4       21      4       5       18      17      .00                     \r\nCQDMEM1 5       21      5       6       19      18      .00                     \r\nCQDMEM1 6       21      6       7       20      19      .00                     \r\nCQDMEM1 7       21      7       8       21      20      .00                     \r\nCQDMEM1 8       21      8       9       22      21      .00                     \r\nCQDMEM1 9       21      9       10      23      22      .00                     \r\nCQDMEM1 10      21      10      11      24      23      .00                     \r\nCQDMEM1 11      21      11      12      25      24      .00                     \r\nCQDMEM1 12      21      12      13      26      25      .00                     \r\nCQDMEM1 14      21      14      15      28      27      .00                     \r\nCQDMEM1 15      21      15      16      29      28      .00                     \r\nCQDMEM1 16      21      16      17      30      29      .00                     \r\nCQDMEM1 17      21      17      18      31      30      .00                     \r\nCQDMEM1 18      21      18      19      32      31      .00                     \r\nCQDMEM1 19      21      19      20      33      32      .00                     \r\nCQDMEM1 20      21      20      21      34      33      .00                     \r\nCQDMEM1 21      21      21      22      35      34      .00                     \r\nCQDMEM1 22      21      22      23      36      35      .00                     \r\nCQDMEM1 23      21      23      24      37      36      .00                     \r\nCQDMEM1 24      21      24      25      38      37      .00                     \r\nCQDMEM1 25      21      25      26      39      38      .00                     \r\nCQDMEM1 27      21      27      28      41      40      .00                     \r\nCQDMEM1 28      21      28      29      42      41      .00                     \r\nCQDMEM1 29      21      29      30      43      42      .00                     \r\nCQDMEM1 30      21      30      31      44      43      .00                     \r\nCQDMEM1 31      21      31      32      45      44      .00                     \r\nCQDMEM1 32      21      32      33      46      45      .00                     \r\nCQDMEM1 33      21      33      34      47      46      .00                     \r\nCQDMEM1 34      21      34      35      48      47      .00                     \r\nCQDMEM1 35      21      35      36      49      48      .00                     \r\nCQDMEM1 36      21      36      37      50      49      .00                     \r\nCQDMEM1 37      21      37      38      51      50      .00                     \r\nCQDMEM1 38      21      38      39      52      51      .00                     \r\nCQDMEM1 40      21      40      41      54      53      .00                     \r\nCQDMEM1 41      21      41      42      55      54      .00                     \r\nCQDMEM1 42      21      42      43      56      55      .00                     \r\nCQDMEM1 43      21      43      44      57      56      .00                     \r\nCQDMEM1 44      21      44      45      58      57      .00                     \r\nCQDMEM1 45      21      45      46      59      58      .00                     \r\nCQDMEM1 46      21      46      47      60      59      .00                     \r\nCQDMEM1 47      21      47      48      61      60      .00                     \r\nCQDMEM1 48      21      48      49      62      61      .00                     \r\nCQDMEM1 49      21      49      50      63      62      .00                     \r\nCQDMEM1 50      21      50      51      64      63      .00                     \r\nCQDMEM1 51      21      51      52      65      64      .00                     \r\nCQDMEM1 53      21      53      54      67      66      .00                     \r\nCQDMEM1 54      21      54      55      68      67      .00                     \r\nCQDMEM1 55      21      55      56      69      68      .00                     \r\nCQDMEM1 56      21      56      57      70      69      .00                     \r\nCQDMEM1 57      21      57      58      71      70      .00                     \r\nCQDMEM1 58      21      58      59      72      71      .00                     \r\nCQDMEM1 59      21      59      60      73      72      .00                     \r\nCQDMEM1 60      21      60      61      74      73      .00                     \r\nCQDMEM1 61      21      61      62      75      74      .00                     \r\nCQDMEM1 62      21      62      63      76      75      .00                     \r\nCQDMEM1 63      21      63      64      77      76      .00                     \r\nCQDMEM1 64      21      64      65      78      77      .00                     \r\nCQDMEM1 66      21      66      67      80      79      .00                     \r\nCQDMEM1 67      21      67      68      81      80      .00                     \r\nCQDMEM1 68      21      68      69      82      81      .00                     \r\nCQDMEM1 69      21      69      70      83      82      .00                     \r\nCQDMEM1 70      21      70      71      84      83      .00                     \r\nCQDMEM1 71      21      71      72      85      84      .00                     \r\nCQDMEM1 72      21      72      73      86      85      .00                     \r\nCQDMEM1 73      21      73      74      87      86      .00                     \r\nCQDMEM1 74      21      74      75      88      87      .00                     \r\nCQDMEM1 75      21      75      76      89      88      .00                     \r\nCQDMEM1 76      21      76      77      90      89      .00                     \r\nCQDMEM1 77      21      77      78      91      90      .00                     \r\nCQDMEM1 79      21      79      80      93      92      .00                     \r\nCQDMEM1 80      21      80      81      94      93      .00                     \r\nCQDMEM1 81      21      81      82      95      94      .00                     \r\nCQDMEM1 82      21      82      83      96      95      .00                     \r\nCQDMEM1 83      21      83      84      97      96      .00                     \r\nCQDMEM1 84      21      84      85      98      97      .00                     \r\nCQDMEM1 85      21      85      86      99      98      .00                     \r\nCQDMEM1 86      21      86      87      100     99      .00                     \r\nCQDMEM1 87      21      87      88      101     100     .00                     \r\nCQDMEM1 88      21      88      89      102     101     .00                     \r\nCQDMEM1 89      21      89      90      103     102     .00                     \r\nCQDMEM1 90      21      90      91      104     103     .00                     \r\nCQDMEM1 92      21      92      93      106     105     .00                     \r\nCQDMEM1 93      21      93      94      107     106     .00                     \r\nCQDMEM1 94      21      94      95      108     107     .00                     \r\nCQDMEM1 95      21      95      96      109     108     .00                     \r\nCQDMEM1 96      21      96      97      110     109     .00                     \r\nCQDMEM1 97      21      97      98      111     110     .00                     \r\nCQDMEM1 98      21      98      99      112     111     .00                     \r\nCQDMEM1 99      21      99      100     113     112     .00                     \r\nCQDMEM1 100     21      100     101     114     113     .00                     \r\nCQDMEM1 101     21      101     102     115     114     .00                     \r\nCQDMEM1 102     21      102     103     116     115     .00                     \r\nCQDMEM1 103     21      103     104     117     116     .00                     \r\nCQDMEM1 105     21      105     106     119     118     .00                     \r\nCQDMEM1 106     21      106     107     120     119     .00                     \r\nCQDMEM1 107     21      107     108     121     120     .00                     \r\nCQDMEM1 108     21      108     109     122     121     .00                     \r\nCQDMEM1 109     21      109     110     123     122     .00                     \r\nCQDMEM1 110     21      110     111     124     123     .00                     \r\nCQDMEM1 111     21      111     112     125     124     .00                     \r\nCQDMEM1 112     21      112     113     126     125     .00                     \r\nCQDMEM1 113     21      113     114     127     126     .00                     \r\nCQDMEM1 114     21      114     115     128     127     .00                     \r\nCQDMEM1 115     21      115     116     129     128     .00                     \r\nCQDMEM1 116     21      116     117     130     129     .00                     \r\nCQDMEM1 118     21      118     119     132     131     .00                     \r\nCQDMEM1 119     21      119     120     133     132     .00                     \r\nCQDMEM1 120     21      120     121     134     133     .00                     \r\nCQDMEM1 121     21      121     122     135     134     .00                     \r\nCQDMEM1 122     21      122     123     136     135     .00                     \r\nCQDMEM1 123     21      123     124     137     136     .00                     \r\nCQDMEM1 124     21      124     125     138     137     .00                     \r\nCQDMEM1 125     21      125     126     139     138     .00                     \r\nCQDMEM1 126     21      126     127     140     139     .00                     \r\nCQDMEM1 127     21      127     128     141     140     .00                     \r\nCQDMEM1 128     21      128     129     142     141     .00                     \r\nCQDMEM1 129     21      129     130     143     142     .00                     \r\nCQDMEM1 131     21      131     132     145     144     .00                     \r\nCQDMEM1 132     21      132     133     146     145     .00                     \r\nCQDMEM1 133     21      133     134     147     146     .00                     \r\nCQDMEM1 134     21      134     135     148     147     .00                     \r\nCQDMEM1 135     21      135     136     149     148     .00                     \r\nCQDMEM1 136     21      136     137     150     149     .00                     \r\nCQDMEM1 137     21      137     138     151     150     .00                     \r\nCQDMEM1 138     21      138     139     152     151     .00                     \r\nCQDMEM1 139     21      139     140     153     152     .00                     \r\nCQDMEM1 140     21      140     141     154     153     .00                     \r\nCQDMEM1 141     21      141     142     155     154     .00                     \r\nCQDMEM1 142     21      142     143     156     155     .00                     \r\nCQDMEM1 144     21      144     145     158     157     .00                     \r\nCQDMEM1 145     21      145     146     159     158     .00                     \r\nCQDMEM1 146     21      146     147     160     159     .00                     \r\nCQDMEM1 147     21      147     148     161     160     .00                     \r\nCQDMEM1 148     21      148     149     162     161     .00                     \r\nCQDMEM1 149     21      149     150     163     162     .00                     \r\nCQDMEM1 150     21      150     151     164     163     .00                     \r\nCQDMEM1 151     21      151     152     165     164     .00                     \r\nCQDMEM1 152     21      152     153     166     165     .00                     \r\nCQDMEM1 153     21      153     154     167     166     .00                     \r\nCQDMEM1 154     21      154     155     168     167     .00                     \r\nCQDMEM1 155     21      155     156     169     168     .00                     \r\nCQDMEM1 157     21      157     158     171     170     .00                     \r\nCQDMEM1 158     21      158     159     172     171     .00                     \r\nCQDMEM1 159     21      159     160     173     172     .00                     \r\nCQDMEM1 160     21      160     161     174     173     .00                     \r\nCQDMEM1 161     21      161     162     175     174     .00                     \r\nCQDMEM1 162     21      162     163     176     175     .00                     \r\nCQDMEM1 163     21      163     164     177     176     .00                     \r\nCQDMEM1 164     21      164     165     178     177     .00                     \r\nCQDMEM1 165     21      165     166     179     178     .00                     \r\nCQDMEM1 166     21      166     167     180     179     .00                     \r\nCQDMEM1 167     21      167     168     181     180     .00                     \r\nCQDMEM1 168     21      168     169     182     181     .00                     \r\nCQDMEM1 170     21      170     171     184     183     .00                     \r\nCQDMEM1 171     21      171     172     185     184     .00                     \r\nCQDMEM1 172     21      172     173     186     185     .00                     \r\nCQDMEM1 173     21      173     174     187     186     .00                     \r\nCQDMEM1 174     21      174     175     188     187     .00                     \r\nCQDMEM1 175     21      175     176     189     188     .00                     \r\nCQDMEM1 176     21      176     177     190     189     .00                     \r\nCQDMEM1 177     21      177     178     191     190     .00                     \r\nCQDMEM1 178     21      178     179     192     191     .00                     \r\nCQDMEM1 179     21      179     180     193     192     .00                     \r\nCQDMEM1 180     21      180     181     194     193     .00                     \r\nCQDMEM1 181     21      181     182     195     194     .00                     \r\nCQDMEM1 183     21      183     184     197     196     .00                     \r\nCQDMEM1 184     21      184     185     198     197     .00                     \r\nCQDMEM1 185     21      185     186     199     198     .00                     \r\nCQDMEM1 186     21      186     187     200     199     .00                     \r\nCQDMEM1 187     21      187     188     201     200     .00                     \r\nCQDMEM1 188     21      188     189     202     201     .00                     \r\nCQDMEM1 189     21      189     190     203     202     .00                     \r\nCQDMEM1 190     21      190     191     204     203     .00                     \r\nCQDMEM1 191     21      191     192     205     204     .00                     \r\nCQDMEM1 192     21      192     193     206     205     .00                     \r\nCQDMEM1 193     21      193     194     207     206     .00                     \r\nCQDMEM1 194     21      194     195     208     207     .00                     \r\nCQDMEM1 196     21      196     197     210     209     .00                     \r\nCQDMEM1 197     21      197     198     211     210     .00                     \r\nCQDMEM1 198     21      198     199     212     211     .00                     \r\nCQDMEM1 199     21      199     200     213     212     .00                     \r\nCQDMEM1 200     21      200     201     214     213     .00                     \r\nCQDMEM1 201     21      201     202     215     214     .00                     \r\nCQDMEM1 202     21      202     203     216     215     .00                     \r\nCQDMEM1 203     21      203     204     217     216     .00                     \r\nCQDMEM1 204     21      204     205     218     217     .00                     \r\nCQDMEM1 205     21      205     206     219     218     .00                     \r\nCQDMEM1 206     21      206     207     220     219     .00                     \r\nCQDMEM1 207     21      207     208     221     220     .00                     \r\nCQDMEM1 209     21      209     210     223     222     .00                     \r\nCQDMEM1 210     21      210     211     224     223     .00                     \r\nCQDMEM1 211     21      211     212     225     224     .00                     \r\nCQDMEM1 212     21      212     213     226     225     .00                     \r\nCQDMEM1 213     21      213     214     227     226     .00                     \r\nCQDMEM1 214     21      214     215     228     227     .00                     \r\nCQDMEM1 215     21      215     216     229     228     .00                     \r\nCQDMEM1 216     21      216     217     230     229     .00                     \r\nCQDMEM1 217     21      217     218     231     230     .00                     \r\nCQDMEM1 218     21      218     219     232     231     .00                     \r\nCQDMEM1 219     21      219     220     233     232     .00                     \r\nCQDMEM1 220     21      220     221     234     233     .00                     \r\nCQDMEM1 222     21      222     223     236     235     .00                     \r\nCQDMEM1 223     21      223     224     237     236     .00                     \r\nCQDMEM1 224     21      224     225     238     237     .00                     \r\nCQDMEM1 225     21      225     226     239     238     .00                     \r\nCQDMEM1 226     21      226     227     240     239     .00                     \r\nCQDMEM1 227     21      227     228     241     240     .00                     \r\nCQDMEM1 228     21      228     229     242     241     .00                     \r\nCQDMEM1 229     21      229     230     243     242     .00                     \r\nCQDMEM1 230     21      230     231     244     243     .00                     \r\nCQDMEM1 231     21      231     232     245     244     .00                     \r\nCQDMEM1 232     21      232     233     246     245     .00                     \r\nCQDMEM1 233     21      233     234     247     246     .00                     \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nGRID    6               5.0     .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nGRID    8               7.0     .0      .0                                      \r\nGRID    9               8.0     .0      .0                                      \r\nGRID    10              9.0     .0      .0                                      \r\nGRID    11              10.0    .0      .0                                      \r\nGRID    12              11.0    .0      .0                                      \r\nGRID    13              12.0    .0      .0                                      \r\nGRID    14              .0      1.0     .0                                      \r\nGRID    15              1.0     1.0     .0                                      \r\nGRID    16              2.0     1.0     .0                                      \r\nGRID    17              3.0     1.0     .0                                      \r\nGRID    18              4.0     1.0     .0                                      \r\nGRID    19              5.0     1.0     .0                                      \r\nGRID    20              6.0     1.0     .0                                      \r\nGRID    21              7.0     1.0     .0                                      \r\nGRID    22              8.0     1.0     .0                                      \r\nGRID    23              9.0     1.0     .0                                      \r\nGRID    24              10.0    1.0     .0                                      \r\nGRID    25              11.0    1.0     .0                                      \r\nGRID    26              12.0    1.0     .0                                      \r\nGRID    27              .0      2.0     .0                                      \r\nGRID    28              1.0     2.0     .0                                      \r\nGRID    29              2.0     2.0     .0                                      \r\nGRID    30              3.0     2.0     .0                                      \r\nGRID    31              4.0     2.0     .0                                      \r\nGRID    32              5.0     2.0     .0                                      \r\nGRID    33              6.0     2.0     .0                                      \r\nGRID    34              7.0     2.0     .0                                      \r\nGRID    35              8.0     2.0     .0                                      \r\nGRID    36              9.0     2.0     .0                                      \r\nGRID    37              10.0    2.0     .0                                      \r\nGRID    38              11.0    2.0     .0                                      \r\nGRID    39              12.0    2.0     .0                                      \r\nGRID    40              .0      3.0     .0                                      \r\nGRID    41              1.0     3.0     .0                                      \r\nGRID    42              2.0     3.0     .0                                      \r\nGRID    43              3.0     3.0     .0                                      \r\nGRID    44              4.0     3.0     .0                                      \r\nGRID    45              5.0     3.0     .0                                      \r\nGRID    46              6.0     3.0     .0                                      \r\nGRID    47              7.0     3.0     .0                                      \r\nGRID    48              8.0     3.0     .0                                      \r\nGRID    49              9.0     3.0     .0                                      \r\nGRID    50              10.0    3.0     .0                                      \r\nGRID    51              11.0    3.0     .0                                      \r\nGRID    52              12.0    3.0     .0                                      \r\nGRID    53              .0      4.0     .0                                      \r\nGRID    54              1.0     4.0     .0                                      \r\nGRID    55              2.0     4.0     .0                                      \r\nGRID    56              3.0     4.0     .0                                      \r\nGRID    57              4.0     4.0     .0                                      \r\nGRID    58              5.0     4.0     .0                                      \r\nGRID    59              6.0     4.0     .0                                      \r\nGRID    60              7.0     4.0     .0                                      \r\nGRID    61              8.0     4.0     .0                                      \r\nGRID    62              9.0     4.0     .0                                      \r\nGRID    63              10.0    4.0     .0                                      \r\nGRID    64              11.0    4.0     .0                                      \r\nGRID    65              12.0    4.0     .0                                      \r\nGRID    66              .0      5.0     .0                                      \r\nGRID    67              1.0     5.0     .0                                      \r\nGRID    68              2.0     5.0     .0                                      \r\nGRID    69              3.0     5.0     .0                                      \r\nGRID    70              4.0     5.0     .0                                      \r\nGRID    71              5.0     5.0     .0                                      \r\nGRID    72              6.0     5.0     .0                                      \r\nGRID    73              7.0     5.0     .0                                      \r\nGRID    74              8.0     5.0     .0                                      \r\nGRID    75              9.0     5.0     .0                                      \r\nGRID    76              10.0    5.0     .0                                      \r\nGRID    77              11.0    5.0     .0                                      \r\nGRID    78              12.0    5.0     .0                                      \r\nGRID    79              .0      6.0     .0                                      \r\nGRID    80              1.0     6.0     .0                                      \r\nGRID    81              2.0     6.0     .0                                      \r\nGRID    82              3.0     6.0     .0                                      \r\nGRID    83              4.0     6.0     .0                                      \r\nGRID    84              5.0     6.0     .0                                      \r\nGRID    85              6.0     6.0     .0                                      \r\nGRID    86              7.0     6.0     .0                                      \r\nGRID    87              8.0     6.0     .0                                      \r\nGRID    88              9.0     6.0     .0                                      \r\nGRID    89              10.0    6.0     .0                                      \r\nGRID    90              11.0    6.0     .0                                      \r\nGRID    91              12.0    6.0     .0                                      \r\nGRID    92              .0      7.0     .0                                      \r\nGRID    93              1.0     7.0     .0                                      \r\nGRID    94              2.0     7.0     .0                                      \r\nGRID    95              3.0     7.0     .0                                      \r\nGRID    96              4.0     7.0     .0                                      \r\nGRID    97              5.0     7.0     .0                                      \r\nGRID    98              6.0     7.0     .0                                      \r\nGRID    99              7.0     7.0     .0                                      \r\nGRID    100             8.0     7.0     .0                                      \r\nGRID    101             9.0     7.0     .0                                      \r\nGRID    102             10.0    7.0     .0                                      \r\nGRID    103             11.0    7.0     .0                                      \r\nGRID    104             12.0    7.0     .0                                      \r\nGRID    105             .0      8.0     .0                                      \r\nGRID    106             1.0     8.0     .0                                      \r\nGRID    107             2.0     8.0     .0                                      \r\nGRID    108             3.0     8.0     .0                                      \r\nGRID    109             4.0     8.0     .0                                      \r\nGRID    110             5.0     8.0     .0                                      \r\nGRID    111             6.0     8.0     .0                                      \r\nGRID    112             7.0     8.0     .0                                      \r\nGRID    113             8.0     8.0     .0                                      \r\nGRID    114             9.0     8.0     .0                                      \r\nGRID    115             10.0    8.0     .0                                      \r\nGRID    116             11.0    8.0     .0                                      \r\nGRID    117             12.0    8.0     .0                                      \r\nGRID    118             .0      9.0     .0                                      \r\nGRID    119             1.0     9.0     .0                                      \r\nGRID    120             2.0     9.0     .0                                      \r\nGRID    121             3.0     9.0     .0                                      \r\nGRID    122             4.0     9.0     .0                                      \r\nGRID    123             5.0     9.0     .0                                      \r\nGRID    124             6.0     9.0     .0                                      \r\nGRID    125             7.0     9.0     .0                                      \r\nGRID    126             8.0     9.0     .0                                      \r\nGRID    127             9.0     9.0     .0                                      \r\nGRID    128             10.0    9.0     .0                                      \r\nGRID    129             11.0    9.0     .0                                      \r\nGRID    130             12.0    9.0     .0                                      \r\nGRID    131             .0      10.0    .0                                      \r\nGRID    132             1.0     10.0    .0                                      \r\nGRID    133             2.0     10.0    .0                                      \r\nGRID    134             3.0     10.0    .0                                      \r\nGRID    135             4.0     10.0    .0                                      \r\nGRID    136             5.0     10.0    .0                                      \r\nGRID    137             6.0     10.0    .0                                      \r\nGRID    138             7.0     10.0    .0                                      \r\nGRID    139             8.0     10.0    .0                                      \r\nGRID    140             9.0     10.0    .0                                      \r\nGRID    141             10.0    10.0    .0                                      \r\nGRID    142             11.0    10.0    .0                                      \r\nGRID    143             12.0    10.0    .0                                      \r\nGRID    144             .0      11.0    .0                                      \r\nGRID    145             1.0     11.0    .0                                      \r\nGRID    146             2.0     11.0    .0                                      \r\nGRID    147             3.0     11.0    .0                                      \r\nGRID    148             4.0     11.0    .0                                      \r\nGRID    149             5.0     11.0    .0                                      \r\nGRID    150             6.0     11.0    .0                                      \r\nGRID    151             7.0     11.0    .0                                      \r\nGRID    152             8.0     11.0    .0                                      \r\nGRID    153             9.0     11.0    .0                                      \r\nGRID    154             10.0    11.0    .0                                      \r\nGRID    155             11.0    11.0    .0                                      \r\nGRID    156             12.0    11.0    .0                                      \r\nGRID    157             .0      12.0    .0                                      \r\nGRID    158             1.0     12.0    .0                                      \r\nGRID    159             2.0     12.0    .0                                      \r\nGRID    160             3.0     12.0    .0                                      \r\nGRID    161             4.0     12.0    .0                                      \r\nGRID    162             5.0     12.0    .0                                      \r\nGRID    163             6.0     12.0    .0                                      \r\nGRID    164             7.0     12.0    .0                                      \r\nGRID    165             8.0     12.0    .0                                      \r\nGRID    166             9.0     12.0    .0                                      \r\nGRID    167             10.0    12.0    .0                                      \r\nGRID    168             11.0    12.0    .0                                      \r\nGRID    169             12.0    12.0    .0                                      \r\nGRID    170             .0      13.0    .0                                      \r\nGRID    171             1.0     13.0    .0                                      \r\nGRID    172             2.0     13.0    .0                                      \r\nGRID    173             3.0     13.0    .0                                      \r\nGRID    174             4.0     13.0    .0                                      \r\nGRID    175             5.0     13.0    .0                                      \r\nGRID    176             6.0     13.0    .0                                      \r\nGRID    177             7.0     13.0    .0                                      \r\nGRID    178             8.0     13.0    .0                                      \r\nGRID    179             9.0     13.0    .0                                      \r\nGRID    180             10.0    13.0    .0                                      \r\nGRID    181             11.0    13.0    .0                                      \r\nGRID    182             12.0    13.0    .0                                      \r\nGRID    183             .0      14.0    .0                                      \r\nGRID    184             1.0     14.0    .0                                      \r\nGRID    185             2.0     14.0    .0                                      \r\nGRID    186             3.0     14.0    .0                                      \r\nGRID    187             4.0     14.0    .0                                      \r\nGRID    188             5.0     14.0    .0                                      \r\nGRID    189             6.0     14.0    .0                                      \r\nGRID    190             7.0     14.0    .0                                      \r\nGRID    191             8.0     14.0    .0                                      \r\nGRID    192             9.0     14.0    .0                                      \r\nGRID    193             10.0    14.0    .0                                      \r\nGRID    194             11.0    14.0    .0                                      \r\nGRID    195             12.0    14.0    .0                                      \r\nGRID    196             .0      15.0    .0                                      \r\nGRID    197             1.0     15.0    .0                                      \r\nGRID    198             2.0     15.0    .0                                      \r\nGRID    199             3.0     15.0    .0                                      \r\nGRID    200             4.0     15.0    .0                                      \r\nGRID    201             5.0     15.0    .0                                      \r\nGRID    202             6.0     15.0    .0                                      \r\nGRID    203             7.0     15.0    .0                                      \r\nGRID    204             8.0     15.0    .0                                      \r\nGRID    205             9.0     15.0    .0                                      \r\nGRID    206             10.0    15.0    .0                                      \r\nGRID    207             11.0    15.0    .0                                      \r\nGRID    208             12.0    15.0    .0                                      \r\nGRID    209             .0      16.0    .0                                      \r\nGRID    210             1.0     16.0    .0                                      \r\nGRID    211             2.0     16.0    .0                                      \r\nGRID    212             3.0     16.0    .0                                      \r\nGRID    213             4.0     16.0    .0                                      \r\nGRID    214             5.0     16.0    .0                                      \r\nGRID    215             6.0     16.0    .0                                      \r\nGRID    216             7.0     16.0    .0                                      \r\nGRID    217             8.0     16.0    .0                                      \r\nGRID    218             9.0     16.0    .0                                      \r\nGRID    219             10.0    16.0    .0                                      \r\nGRID    220             11.0    16.0    .0                                      \r\nGRID    221             12.0    16.0    .0                                      \r\nGRID    222             .0      17.0    .0                                      \r\nGRID    223             1.0     17.0    .0                                      \r\nGRID    224             2.0     17.0    .0                                      \r\nGRID    225             3.0     17.0    .0                                      \r\nGRID    226             4.0     17.0    .0                                      \r\nGRID    227             5.0     17.0    .0                                      \r\nGRID    228             6.0     17.0    .0                                      \r\nGRID    229             7.0     17.0    .0                                      \r\nGRID    230             8.0     17.0    .0                                      \r\nGRID    231             9.0     17.0    .0                                      \r\nGRID    232             10.0    17.0    .0                                      \r\nGRID    233             11.0    17.0    .0                                      \r\nGRID    234             12.0    17.0    .0                                      \r\nGRID    235             .0      18.0    .0                                      \r\nGRID    236             1.0     18.0    .0                                      \r\nGRID    237             2.0     18.0    .0                                      \r\nGRID    238             3.0     18.0    .0                                      \r\nGRID    239             4.0     18.0    .0                                      \r\nGRID    240             5.0     18.0    .0                                      \r\nGRID    241             6.0     18.0    .0                                      \r\nGRID    242             7.0     18.0    .0                                      \r\nGRID    243             8.0     18.0    .0                                      \r\nGRID    244             9.0     18.0    .0                                      \r\nGRID    245             10.0    18.0    .0                                      \r\nGRID    246             11.0    18.0    .0                                      \r\nGRID    247             12.0    18.0    .0                                      \r\nMAT1    75      10.400+6        .3              12.700-675.                     \r\nMATT1   75      100                                                             \r\nPARAM   IRES    1                                                               \r\nPQDMEM1 21      75      .25                                                     \r\nSPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n+SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n+SPC-B  183     196     209     222     235                                     \r\nSPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n+SPC-C  7       8       9       10      11      12      13                      \r\nTABLEM1 100                                                             +TM1    \r\n+TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n+TM2    300.    9.15+6  ENDT                                                    \r\nTEMP    1       1       245.000 2       232.500 3       220.000                 \r\nTEMP    1       4       207.500 5       195.000 6       182.500                 \r\nTEMP    1       7       170.000 8       157.500 9       145.000                 \r\nTEMP    1       10      132.500 11      120.000 12      107.500                 \r\nTEMP    1       13      95.000  14      245.000 15      232.500                 \r\nTEMP    1       16      220.000 17      207.500 18      195.000                 \r\nTEMP    1       19      182.500 20      170.000 21      157.500                 \r\nTEMP    1       22      145.000 23      132.500 24      120.000                 \r\nTEMP    1       25      107.500 26      95.000  27      245.000                 \r\nTEMP    1       28      232.500 29      220.000 30      207.500                 \r\nTEMP    1       31      195.000 32      182.500 33      170.000                 \r\nTEMP    1       34      157.500 35      145.000 36      132.500                 \r\nTEMP    1       37      120.000 38      107.500 39      95.000                  \r\nTEMP    1       40      245.000 41      232.500 42      220.000                 \r\nTEMP    1       43      207.500 44      195.000 45      182.500                 \r\nTEMP    1       46      170.000 47      157.500 48      145.000                 \r\nTEMP    1       49      132.500 50      120.000 51      107.500                 \r\nTEMP    1       52      95.000  53      245.000 54      232.500                 \r\nTEMP    1       55      220.000 56      207.500 57      195.000                 \r\nTEMP    1       58      182.500 59      170.000 60      157.500                 \r\nTEMP    1       61      145.000 62      132.500 63      120.000                 \r\nTEMP    1       64      107.500 65      95.000  66      245.000                 \r\nTEMP    1       67      232.500 68      220.000 69      207.500                 \r\nTEMP    1       70      195.000 71      182.500 72      170.000                 \r\nTEMP    1       73      157.500 74      145.000 75      132.500                 \r\nTEMP    1       76      120.000 77      107.500 78      95.000                  \r\nTEMP    1       79      245.000 80      232.500 81      220.000                 \r\nTEMP    1       82      207.500 83      195.000 84      182.500                 \r\nTEMP    1       85      170.000 86      157.500 87      145.000                 \r\nTEMP    1       88      132.500 89      120.000 90      107.500                 \r\nTEMP    1       91      95.000  92      245.000 93      232.500                 \r\nTEMP    1       94      220.000 95      207.500 96      195.000                 \r\nTEMP    1       97      182.500 98      170.000 99      157.500                 \r\nTEMP    1       100     145.000 101     132.500 102     120.000                 \r\nTEMP    1       103     107.500 104     95.000  105     245.000                 \r\nTEMP    1       106     232.500 107     220.000 108     207.500                 \r\nTEMP    1       109     195.000 110     182.500 111     170.000                 \r\nTEMP    1       112     157.500 113     145.000 114     132.500                 \r\nTEMP    1       115     120.000 116     107.500 117     95.000                  \r\nTEMP    1       118     245.000 119     232.500 120     220.000                 \r\nTEMP    1       121     207.500 122     195.000 123     182.500                 \r\nTEMP    1       124     170.000 125     157.500 126     145.000                 \r\nTEMP    1       127     132.500 128     120.000 129     107.500                 \r\nTEMP    1       130     95.000  131     245.000 132     232.500                 \r\nTEMP    1       133     220.000 134     207.500 135     195.000                 \r\nTEMP    1       136     182.500 137     170.000 138     157.500                 \r\nTEMP    1       139     145.000 140     132.500 141     120.000                 \r\nTEMP    1       142     107.500 143     95.000  144     245.000                 \r\nTEMP    1       145     232.500 146     220.000 147     207.500                 \r\nTEMP    1       148     195.000 149     182.500 150     170.000                 \r\nTEMP    1       151     157.500 152     145.000 153     132.500                 \r\nTEMP    1       154     120.000 155     107.500 156     95.000                  \r\nTEMP    1       157     245.000 158     232.500 159     220.000                 \r\nTEMP    1       160     207.500 161     195.000 162     182.500                 \r\nTEMP    1       163     170.000 164     157.500 165     145.000                 \r\nTEMP    1       166     132.500 167     120.000 168     107.500                 \r\nTEMP    1       169     95.000  170     245.000 171     232.500                 \r\nTEMP    1       172     220.000 173     207.500 174     195.000                 \r\nTEMP    1       175     182.500 176     170.000 177     157.500                 \r\nTEMP    1       178     145.000 179     132.500 180     120.000                 \r\nTEMP    1       181     107.500 182     95.000  183     245.000                 \r\nTEMP    1       184     232.500 185     220.000 186     207.500                 \r\nTEMP    1       187     195.000 188     182.500 189     170.000                 \r\nTEMP    1       190     157.500 191     145.000 192     132.500                 \r\nTEMP    1       193     120.000 194     107.500 195     95.000                  \r\nTEMP    1       196     245.000 197     232.500 198     220.000                 \r\nTEMP    1       199     207.500 200     195.000 201     182.500                 \r\nTEMP    1       202     170.000 203     157.500 204     145.000                 \r\nTEMP    1       205     132.500 206     120.000 207     107.500                 \r\nTEMP    1       208     95.000  209     245.000 210     232.500                 \r\nTEMP    1       211     220.000 212     207.500 213     195.000                 \r\nTEMP    1       214     182.500 215     170.000 216     157.500                 \r\nTEMP    1       217     145.000 218     132.500 219     120.000                 \r\nTEMP    1       220     107.500 221     95.000  222     245.000                 \r\nTEMP    1       223     232.500 224     220.000 225     207.500                 \r\nTEMP    1       226     195.000 227     182.500 228     170.000                 \r\nTEMP    1       229     157.500 230     145.000 231     132.500                 \r\nTEMP    1       232     120.000 233     107.500 234     95.000                  \r\nTEMP    1       235     245.000 236     232.500 237     220.000                 \r\nTEMP    1       238     207.500 239     195.000 240     182.500                 \r\nTEMP    1       241     170.000 242     157.500 243     145.000                 \r\nTEMP    1       244     132.500 245     120.000 246     107.500                 \r\nTEMP    1       247     95.000                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01032a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$           Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1)\r\n$          Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2)\r\n$          Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ Problem 1-3-1 demonstrates the use of thermal loading conditions and\r\n$ temperature-dependent materials. The model, a rectangular plate, is given a\r\n$ temperature gradient which causes internal loads and elastic deflections.\r\n$ Since there are two planes of symmetry, only one-quarter of the structure\r\n$ needs to be modeled. The analysis has been performed using three different\r\n$ NASTRAN membrane plate elements. The two variations of this problem are\r\n$ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1\r\n$ and QDMEM2 membrane elements to illustrate their application to this type of\r\n$ problem (Problems 1-3-2 and 1-3-3, respectively).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The temperature load is constant in the y direction and symmetric about the y-\r\n$ axis. Since membrane elements are used to model the structure, it is necessary\r\n$ to remove all rotational degrees of freedom and translational degrees of\r\n$ freedom normal to the membrane. The symmetric boundary conditions were modeled\r\n$ by constraining the displacements normal to the planes of symmetry. The\r\n$ material used has temperature-dependent elasticity (as defined in Reference\r\n$ 5); therefore, the INPUT module cannot be used for this application. The\r\n$ CNGRNT bulk data card can be used if the congruency is defined in one\r\n$ direction.\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$      L =  36.0 in                   (length)\r\n$ \r\n$      W =  24.0 in                   (width)\r\n$ \r\n$      t =   0.25 in                  (thickness)\r\n$ \r\n$                     6      2\r\n$      E =  10.4  x 10  lb/in         (modulus of elasticity at T )\r\n$                                                                o\r\n$      v =   0.3                      (Poisson's ratio)\r\n$                     -6\r\n$  alpha =  12.7  x l0   in/in/deg. F (thermal expansion coefficient)\r\n$ \r\n$      T  = 75.0  deg. F              (thermal expansion reference temperature)\r\n$       o\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$      u  = 0.0 at x = 0.0\r\n$       x\r\n$ \r\n$      u  = 0.0 at y = 0.0\r\n$       y\r\n$ \r\n$      u  = theta sub x = theta sub y = theta sub z = 0.0  at all Grids\r\n$       z\r\n$ \r\n$ 3. Loads\r\n$ \r\n$ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is\r\n$ specified as a function of temperature with MATT1 and TABLEM1 cards.\r\n$ \r\n$ C. Results\r\n$ \r\n$ There is no theoretical solution to this problem. However, this problem\r\n$ represents a model of a laboratory experiment described in Reference 5.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 5. Richard R. Heldenfels and William M. Roberts, \"Experimental and Theoretical\r\n$    Determination of Thermal Stresses in a Flat Plate\", NACA TN 2769, 1952.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01033a.inp",
    "content": "ID    D01033A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-3A                          \r\nLABEL = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL          \r\nSPC   = 1                                                                       \r\nTEMPERATURE = 1                                                                 \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n   SET 2 = 1 THRU 26                                                            \r\n   OLOAD = 2                                                                    \r\n   DISPLACEMENTS = 1                                                            \r\n$          STRESSES FOR POINTS ON PUBLISHED CURVES                              \r\n   SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n           106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,           \r\n           184,189, 197,202, 210,215, 223,228                                   \r\n   STRESSES = 3                                                                 \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n+CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n+CNG12  209     222                                                             \r\nCNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n+CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n+CNG22  210     223                                                             \r\nCNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n+CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n+CNG32  211     224                                                             \r\nCNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n+CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n+CNG42  212     225                                                             \r\nCNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n+CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n+CNG52  213     226                                                             \r\nCNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n+CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n+CNG62  214     227                                                             \r\nCNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n+CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n+CNG72  215     228                                                             \r\nCNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n+CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n+CNG82  216     229                                                             \r\nCNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n+CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n+CNG92  217     230                                                             \r\nCNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n+CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n+CNG102 218     231                                                             \r\nCNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n+CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n+CNG112 219     232                                                             \r\nCNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n+CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n+CNG122 220     233                                                             \r\nCQDMEM2 1       21      1       2       15      14      .00                     \r\nCQDMEM2 2       21      2       3       16      15      .00                     \r\nCQDMEM2 3       21      3       4       17      16      .00                     \r\nCQDMEM2 4       21      4       5       18      17      .00                     \r\nCQDMEM2 5       21      5       6       19      18      .00                     \r\nCQDMEM2 6       21      6       7       20      19      .00                     \r\nCQDMEM2 7       21      7       8       21      20      .00                     \r\nCQDMEM2 8       21      8       9       22      21      .00                     \r\nCQDMEM2 9       21      9       10      23      22      .00                     \r\nCQDMEM2 10      21      10      11      24      23      .00                     \r\nCQDMEM2 11      21      11      12      25      24      .00                     \r\nCQDMEM2 12      21      12      13      26      25      .00                     \r\nCQDMEM2 14      21      14      15      28      27      .00                     \r\nCQDMEM2 15      21      15      16      29      28      .00                     \r\nCQDMEM2 16      21      16      17      30      29      .00                     \r\nCQDMEM2 17      21      17      18      31      30      .00                     \r\nCQDMEM2 18      21      18      19      32      31      .00                     \r\nCQDMEM2 19      21      19      20      33      32      .00                     \r\nCQDMEM2 20      21      20      21      34      33      .00                     \r\nCQDMEM2 21      21      21      22      35      34      .00                     \r\nCQDMEM2 22      21      22      23      36      35      .00                     \r\nCQDMEM2 23      21      23      24      37      36      .00                     \r\nCQDMEM2 24      21      24      25      38      37      .00                     \r\nCQDMEM2 25      21      25      26      39      38      .00                     \r\nCQDMEM2 27      21      27      28      41      40      .00                     \r\nCQDMEM2 28      21      28      29      42      41      .00                     \r\nCQDMEM2 29      21      29      30      43      42      .00                     \r\nCQDMEM2 30      21      30      31      44      43      .00                     \r\nCQDMEM2 31      21      31      32      45      44      .00                     \r\nCQDMEM2 32      21      32      33      46      45      .00                     \r\nCQDMEM2 33      21      33      34      47      46      .00                     \r\nCQDMEM2 34      21      34      35      48      47      .00                     \r\nCQDMEM2 35      21      35      36      49      48      .00                     \r\nCQDMEM2 36      21      36      37      50      49      .00                     \r\nCQDMEM2 37      21      37      38      51      50      .00                     \r\nCQDMEM2 38      21      38      39      52      51      .00                     \r\nCQDMEM2 40      21      40      41      54      53      .00                     \r\nCQDMEM2 41      21      41      42      55      54      .00                     \r\nCQDMEM2 42      21      42      43      56      55      .00                     \r\nCQDMEM2 43      21      43      44      57      56      .00                     \r\nCQDMEM2 44      21      44      45      58      57      .00                     \r\nCQDMEM2 45      21      45      46      59      58      .00                     \r\nCQDMEM2 46      21      46      47      60      59      .00                     \r\nCQDMEM2 47      21      47      48      61      60      .00                     \r\nCQDMEM2 48      21      48      49      62      61      .00                     \r\nCQDMEM2 49      21      49      50      63      62      .00                     \r\nCQDMEM2 50      21      50      51      64      63      .00                     \r\nCQDMEM2 51      21      51      52      65      64      .00                     \r\nCQDMEM2 53      21      53      54      67      66      .00                     \r\nCQDMEM2 54      21      54      55      68      67      .00                     \r\nCQDMEM2 55      21      55      56      69      68      .00                     \r\nCQDMEM2 56      21      56      57      70      69      .00                     \r\nCQDMEM2 57      21      57      58      71      70      .00                     \r\nCQDMEM2 58      21      58      59      72      71      .00                     \r\nCQDMEM2 59      21      59      60      73      72      .00                     \r\nCQDMEM2 60      21      60      61      74      73      .00                     \r\nCQDMEM2 61      21      61      62      75      74      .00                     \r\nCQDMEM2 62      21      62      63      76      75      .00                     \r\nCQDMEM2 63      21      63      64      77      76      .00                     \r\nCQDMEM2 64      21      64      65      78      77      .00                     \r\nCQDMEM2 66      21      66      67      80      79      .00                     \r\nCQDMEM2 67      21      67      68      81      80      .00                     \r\nCQDMEM2 68      21      68      69      82      81      .00                     \r\nCQDMEM2 69      21      69      70      83      82      .00                     \r\nCQDMEM2 70      21      70      71      84      83      .00                     \r\nCQDMEM2 71      21      71      72      85      84      .00                     \r\nCQDMEM2 72      21      72      73      86      85      .00                     \r\nCQDMEM2 73      21      73      74      87      86      .00                     \r\nCQDMEM2 74      21      74      75      88      87      .00                     \r\nCQDMEM2 75      21      75      76      89      88      .00                     \r\nCQDMEM2 76      21      76      77      90      89      .00                     \r\nCQDMEM2 77      21      77      78      91      90      .00                     \r\nCQDMEM2 79      21      79      80      93      92      .00                     \r\nCQDMEM2 80      21      80      81      94      93      .00                     \r\nCQDMEM2 81      21      81      82      95      94      .00                     \r\nCQDMEM2 82      21      82      83      96      95      .00                     \r\nCQDMEM2 83      21      83      84      97      96      .00                     \r\nCQDMEM2 84      21      84      85      98      97      .00                     \r\nCQDMEM2 85      21      85      86      99      98      .00                     \r\nCQDMEM2 86      21      86      87      100     99      .00                     \r\nCQDMEM2 87      21      87      88      101     100     .00                     \r\nCQDMEM2 88      21      88      89      102     101     .00                     \r\nCQDMEM2 89      21      89      90      103     102     .00                     \r\nCQDMEM2 90      21      90      91      104     103     .00                     \r\nCQDMEM2 92      21      92      93      106     105     .00                     \r\nCQDMEM2 93      21      93      94      107     106     .00                     \r\nCQDMEM2 94      21      94      95      108     107     .00                     \r\nCQDMEM2 95      21      95      96      109     108     .00                     \r\nCQDMEM2 96      21      96      97      110     109     .00                     \r\nCQDMEM2 97      21      97      98      111     110     .00                     \r\nCQDMEM2 98      21      98      99      112     111     .00                     \r\nCQDMEM2 99      21      99      100     113     112     .00                     \r\nCQDMEM2 100     21      100     101     114     113     .00                     \r\nCQDMEM2 101     21      101     102     115     114     .00                     \r\nCQDMEM2 102     21      102     103     116     115     .00                     \r\nCQDMEM2 103     21      103     104     117     116     .00                     \r\nCQDMEM2 105     21      105     106     119     118     .00                     \r\nCQDMEM2 106     21      106     107     120     119     .00                     \r\nCQDMEM2 107     21      107     108     121     120     .00                     \r\nCQDMEM2 108     21      108     109     122     121     .00                     \r\nCQDMEM2 109     21      109     110     123     122     .00                     \r\nCQDMEM2 110     21      110     111     124     123     .00                     \r\nCQDMEM2 111     21      111     112     125     124     .00                     \r\nCQDMEM2 112     21      112     113     126     125     .00                     \r\nCQDMEM2 113     21      113     114     127     126     .00                     \r\nCQDMEM2 114     21      114     115     128     127     .00                     \r\nCQDMEM2 115     21      115     116     129     128     .00                     \r\nCQDMEM2 116     21      116     117     130     129     .00                     \r\nCQDMEM2 118     21      118     119     132     131     .00                     \r\nCQDMEM2 119     21      119     120     133     132     .00                     \r\nCQDMEM2 120     21      120     121     134     133     .00                     \r\nCQDMEM2 121     21      121     122     135     134     .00                     \r\nCQDMEM2 122     21      122     123     136     135     .00                     \r\nCQDMEM2 123     21      123     124     137     136     .00                     \r\nCQDMEM2 124     21      124     125     138     137     .00                     \r\nCQDMEM2 125     21      125     126     139     138     .00                     \r\nCQDMEM2 126     21      126     127     140     139     .00                     \r\nCQDMEM2 127     21      127     128     141     140     .00                     \r\nCQDMEM2 128     21      128     129     142     141     .00                     \r\nCQDMEM2 129     21      129     130     143     142     .00                     \r\nCQDMEM2 131     21      131     132     145     144     .00                     \r\nCQDMEM2 132     21      132     133     146     145     .00                     \r\nCQDMEM2 133     21      133     134     147     146     .00                     \r\nCQDMEM2 134     21      134     135     148     147     .00                     \r\nCQDMEM2 135     21      135     136     149     148     .00                     \r\nCQDMEM2 136     21      136     137     150     149     .00                     \r\nCQDMEM2 137     21      137     138     151     150     .00                     \r\nCQDMEM2 138     21      138     139     152     151     .00                     \r\nCQDMEM2 139     21      139     140     153     152     .00                     \r\nCQDMEM2 140     21      140     141     154     153     .00                     \r\nCQDMEM2 141     21      141     142     155     154     .00                     \r\nCQDMEM2 142     21      142     143     156     155     .00                     \r\nCQDMEM2 144     21      144     145     158     157     .00                     \r\nCQDMEM2 145     21      145     146     159     158     .00                     \r\nCQDMEM2 146     21      146     147     160     159     .00                     \r\nCQDMEM2 147     21      147     148     161     160     .00                     \r\nCQDMEM2 148     21      148     149     162     161     .00                     \r\nCQDMEM2 149     21      149     150     163     162     .00                     \r\nCQDMEM2 150     21      150     151     164     163     .00                     \r\nCQDMEM2 151     21      151     152     165     164     .00                     \r\nCQDMEM2 152     21      152     153     166     165     .00                     \r\nCQDMEM2 153     21      153     154     167     166     .00                     \r\nCQDMEM2 154     21      154     155     168     167     .00                     \r\nCQDMEM2 155     21      155     156     169     168     .00                     \r\nCQDMEM2 157     21      157     158     171     170     .00                     \r\nCQDMEM2 158     21      158     159     172     171     .00                     \r\nCQDMEM2 159     21      159     160     173     172     .00                     \r\nCQDMEM2 160     21      160     161     174     173     .00                     \r\nCQDMEM2 161     21      161     162     175     174     .00                     \r\nCQDMEM2 162     21      162     163     176     175     .00                     \r\nCQDMEM2 163     21      163     164     177     176     .00                     \r\nCQDMEM2 164     21      164     165     178     177     .00                     \r\nCQDMEM2 165     21      165     166     179     178     .00                     \r\nCQDMEM2 166     21      166     167     180     179     .00                     \r\nCQDMEM2 167     21      167     168     181     180     .00                     \r\nCQDMEM2 168     21      168     169     182     181     .00                     \r\nCQDMEM2 170     21      170     171     184     183     .00                     \r\nCQDMEM2 171     21      171     172     185     184     .00                     \r\nCQDMEM2 172     21      172     173     186     185     .00                     \r\nCQDMEM2 173     21      173     174     187     186     .00                     \r\nCQDMEM2 174     21      174     175     188     187     .00                     \r\nCQDMEM2 175     21      175     176     189     188     .00                     \r\nCQDMEM2 176     21      176     177     190     189     .00                     \r\nCQDMEM2 177     21      177     178     191     190     .00                     \r\nCQDMEM2 178     21      178     179     192     191     .00                     \r\nCQDMEM2 179     21      179     180     193     192     .00                     \r\nCQDMEM2 180     21      180     181     194     193     .00                     \r\nCQDMEM2 181     21      181     182     195     194     .00                     \r\nCQDMEM2 183     21      183     184     197     196     .00                     \r\nCQDMEM2 184     21      184     185     198     197     .00                     \r\nCQDMEM2 185     21      185     186     199     198     .00                     \r\nCQDMEM2 186     21      186     187     200     199     .00                     \r\nCQDMEM2 187     21      187     188     201     200     .00                     \r\nCQDMEM2 188     21      188     189     202     201     .00                     \r\nCQDMEM2 189     21      189     190     203     202     .00                     \r\nCQDMEM2 190     21      190     191     204     203     .00                     \r\nCQDMEM2 191     21      191     192     205     204     .00                     \r\nCQDMEM2 192     21      192     193     206     205     .00                     \r\nCQDMEM2 193     21      193     194     207     206     .00                     \r\nCQDMEM2 194     21      194     195     208     207     .00                     \r\nCQDMEM2 196     21      196     197     210     209     .00                     \r\nCQDMEM2 197     21      197     198     211     210     .00                     \r\nCQDMEM2 198     21      198     199     212     211     .00                     \r\nCQDMEM2 199     21      199     200     213     212     .00                     \r\nCQDMEM2 200     21      200     201     214     213     .00                     \r\nCQDMEM2 201     21      201     202     215     214     .00                     \r\nCQDMEM2 202     21      202     203     216     215     .00                     \r\nCQDMEM2 203     21      203     204     217     216     .00                     \r\nCQDMEM2 204     21      204     205     218     217     .00                     \r\nCQDMEM2 205     21      205     206     219     218     .00                     \r\nCQDMEM2 206     21      206     207     220     219     .00                     \r\nCQDMEM2 207     21      207     208     221     220     .00                     \r\nCQDMEM2 209     21      209     210     223     222     .00                     \r\nCQDMEM2 210     21      210     211     224     223     .00                     \r\nCQDMEM2 211     21      211     212     225     224     .00                     \r\nCQDMEM2 212     21      212     213     226     225     .00                     \r\nCQDMEM2 213     21      213     214     227     226     .00                     \r\nCQDMEM2 214     21      214     215     228     227     .00                     \r\nCQDMEM2 215     21      215     216     229     228     .00                     \r\nCQDMEM2 216     21      216     217     230     229     .00                     \r\nCQDMEM2 217     21      217     218     231     230     .00                     \r\nCQDMEM2 218     21      218     219     232     231     .00                     \r\nCQDMEM2 219     21      219     220     233     232     .00                     \r\nCQDMEM2 220     21      220     221     234     233     .00                     \r\nCQDMEM2 222     21      222     223     236     235     .00                     \r\nCQDMEM2 223     21      223     224     237     236     .00                     \r\nCQDMEM2 224     21      224     225     238     237     .00                     \r\nCQDMEM2 225     21      225     226     239     238     .00                     \r\nCQDMEM2 226     21      226     227     240     239     .00                     \r\nCQDMEM2 227     21      227     228     241     240     .00                     \r\nCQDMEM2 228     21      228     229     242     241     .00                     \r\nCQDMEM2 229     21      229     230     243     242     .00                     \r\nCQDMEM2 230     21      230     231     244     243     .00                     \r\nCQDMEM2 231     21      231     232     245     244     .00                     \r\nCQDMEM2 232     21      232     233     246     245     .00                     \r\nCQDMEM2 233     21      233     234     247     246     .00                     \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nGRID    6               5.0     .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nGRID    8               7.0     .0      .0                                      \r\nGRID    9               8.0     .0      .0                                      \r\nGRID    10              9.0     .0      .0                                      \r\nGRID    11              10.0    .0      .0                                      \r\nGRID    12              11.0    .0      .0                                      \r\nGRID    13              12.0    .0      .0                                      \r\nGRID    14              .0      1.0     .0                                      \r\nGRID    15              1.0     1.0     .0                                      \r\nGRID    16              2.0     1.0     .0                                      \r\nGRID    17              3.0     1.0     .0                                      \r\nGRID    18              4.0     1.0     .0                                      \r\nGRID    19              5.0     1.0     .0                                      \r\nGRID    20              6.0     1.0     .0                                      \r\nGRID    21              7.0     1.0     .0                                      \r\nGRID    22              8.0     1.0     .0                                      \r\nGRID    23              9.0     1.0     .0                                      \r\nGRID    24              10.0    1.0     .0                                      \r\nGRID    25              11.0    1.0     .0                                      \r\nGRID    26              12.0    1.0     .0                                      \r\nGRID    27              .0      2.0     .0                                      \r\nGRID    28              1.0     2.0     .0                                      \r\nGRID    29              2.0     2.0     .0                                      \r\nGRID    30              3.0     2.0     .0                                      \r\nGRID    31              4.0     2.0     .0                                      \r\nGRID    32              5.0     2.0     .0                                      \r\nGRID    33              6.0     2.0     .0                                      \r\nGRID    34              7.0     2.0     .0                                      \r\nGRID    35              8.0     2.0     .0                                      \r\nGRID    36              9.0     2.0     .0                                      \r\nGRID    37              10.0    2.0     .0                                      \r\nGRID    38              11.0    2.0     .0                                      \r\nGRID    39              12.0    2.0     .0                                      \r\nGRID    40              .0      3.0     .0                                      \r\nGRID    41              1.0     3.0     .0                                      \r\nGRID    42              2.0     3.0     .0                                      \r\nGRID    43              3.0     3.0     .0                                      \r\nGRID    44              4.0     3.0     .0                                      \r\nGRID    45              5.0     3.0     .0                                      \r\nGRID    46              6.0     3.0     .0                                      \r\nGRID    47              7.0     3.0     .0                                      \r\nGRID    48              8.0     3.0     .0                                      \r\nGRID    49              9.0     3.0     .0                                      \r\nGRID    50              10.0    3.0     .0                                      \r\nGRID    51              11.0    3.0     .0                                      \r\nGRID    52              12.0    3.0     .0                                      \r\nGRID    53              .0      4.0     .0                                      \r\nGRID    54              1.0     4.0     .0                                      \r\nGRID    55              2.0     4.0     .0                                      \r\nGRID    56              3.0     4.0     .0                                      \r\nGRID    57              4.0     4.0     .0                                      \r\nGRID    58              5.0     4.0     .0                                      \r\nGRID    59              6.0     4.0     .0                                      \r\nGRID    60              7.0     4.0     .0                                      \r\nGRID    61              8.0     4.0     .0                                      \r\nGRID    62              9.0     4.0     .0                                      \r\nGRID    63              10.0    4.0     .0                                      \r\nGRID    64              11.0    4.0     .0                                      \r\nGRID    65              12.0    4.0     .0                                      \r\nGRID    66              .0      5.0     .0                                      \r\nGRID    67              1.0     5.0     .0                                      \r\nGRID    68              2.0     5.0     .0                                      \r\nGRID    69              3.0     5.0     .0                                      \r\nGRID    70              4.0     5.0     .0                                      \r\nGRID    71              5.0     5.0     .0                                      \r\nGRID    72              6.0     5.0     .0                                      \r\nGRID    73              7.0     5.0     .0                                      \r\nGRID    74              8.0     5.0     .0                                      \r\nGRID    75              9.0     5.0     .0                                      \r\nGRID    76              10.0    5.0     .0                                      \r\nGRID    77              11.0    5.0     .0                                      \r\nGRID    78              12.0    5.0     .0                                      \r\nGRID    79              .0      6.0     .0                                      \r\nGRID    80              1.0     6.0     .0                                      \r\nGRID    81              2.0     6.0     .0                                      \r\nGRID    82              3.0     6.0     .0                                      \r\nGRID    83              4.0     6.0     .0                                      \r\nGRID    84              5.0     6.0     .0                                      \r\nGRID    85              6.0     6.0     .0                                      \r\nGRID    86              7.0     6.0     .0                                      \r\nGRID    87              8.0     6.0     .0                                      \r\nGRID    88              9.0     6.0     .0                                      \r\nGRID    89              10.0    6.0     .0                                      \r\nGRID    90              11.0    6.0     .0                                      \r\nGRID    91              12.0    6.0     .0                                      \r\nGRID    92              .0      7.0     .0                                      \r\nGRID    93              1.0     7.0     .0                                      \r\nGRID    94              2.0     7.0     .0                                      \r\nGRID    95              3.0     7.0     .0                                      \r\nGRID    96              4.0     7.0     .0                                      \r\nGRID    97              5.0     7.0     .0                                      \r\nGRID    98              6.0     7.0     .0                                      \r\nGRID    99              7.0     7.0     .0                                      \r\nGRID    100             8.0     7.0     .0                                      \r\nGRID    101             9.0     7.0     .0                                      \r\nGRID    102             10.0    7.0     .0                                      \r\nGRID    103             11.0    7.0     .0                                      \r\nGRID    104             12.0    7.0     .0                                      \r\nGRID    105             .0      8.0     .0                                      \r\nGRID    106             1.0     8.0     .0                                      \r\nGRID    107             2.0     8.0     .0                                      \r\nGRID    108             3.0     8.0     .0                                      \r\nGRID    109             4.0     8.0     .0                                      \r\nGRID    110             5.0     8.0     .0                                      \r\nGRID    111             6.0     8.0     .0                                      \r\nGRID    112             7.0     8.0     .0                                      \r\nGRID    113             8.0     8.0     .0                                      \r\nGRID    114             9.0     8.0     .0                                      \r\nGRID    115             10.0    8.0     .0                                      \r\nGRID    116             11.0    8.0     .0                                      \r\nGRID    117             12.0    8.0     .0                                      \r\nGRID    118             .0      9.0     .0                                      \r\nGRID    119             1.0     9.0     .0                                      \r\nGRID    120             2.0     9.0     .0                                      \r\nGRID    121             3.0     9.0     .0                                      \r\nGRID    122             4.0     9.0     .0                                      \r\nGRID    123             5.0     9.0     .0                                      \r\nGRID    124             6.0     9.0     .0                                      \r\nGRID    125             7.0     9.0     .0                                      \r\nGRID    126             8.0     9.0     .0                                      \r\nGRID    127             9.0     9.0     .0                                      \r\nGRID    128             10.0    9.0     .0                                      \r\nGRID    129             11.0    9.0     .0                                      \r\nGRID    130             12.0    9.0     .0                                      \r\nGRID    131             .0      10.0    .0                                      \r\nGRID    132             1.0     10.0    .0                                      \r\nGRID    133             2.0     10.0    .0                                      \r\nGRID    134             3.0     10.0    .0                                      \r\nGRID    135             4.0     10.0    .0                                      \r\nGRID    136             5.0     10.0    .0                                      \r\nGRID    137             6.0     10.0    .0                                      \r\nGRID    138             7.0     10.0    .0                                      \r\nGRID    139             8.0     10.0    .0                                      \r\nGRID    140             9.0     10.0    .0                                      \r\nGRID    141             10.0    10.0    .0                                      \r\nGRID    142             11.0    10.0    .0                                      \r\nGRID    143             12.0    10.0    .0                                      \r\nGRID    144             .0      11.0    .0                                      \r\nGRID    145             1.0     11.0    .0                                      \r\nGRID    146             2.0     11.0    .0                                      \r\nGRID    147             3.0     11.0    .0                                      \r\nGRID    148             4.0     11.0    .0                                      \r\nGRID    149             5.0     11.0    .0                                      \r\nGRID    150             6.0     11.0    .0                                      \r\nGRID    151             7.0     11.0    .0                                      \r\nGRID    152             8.0     11.0    .0                                      \r\nGRID    153             9.0     11.0    .0                                      \r\nGRID    154             10.0    11.0    .0                                      \r\nGRID    155             11.0    11.0    .0                                      \r\nGRID    156             12.0    11.0    .0                                      \r\nGRID    157             .0      12.0    .0                                      \r\nGRID    158             1.0     12.0    .0                                      \r\nGRID    159             2.0     12.0    .0                                      \r\nGRID    160             3.0     12.0    .0                                      \r\nGRID    161             4.0     12.0    .0                                      \r\nGRID    162             5.0     12.0    .0                                      \r\nGRID    163             6.0     12.0    .0                                      \r\nGRID    164             7.0     12.0    .0                                      \r\nGRID    165             8.0     12.0    .0                                      \r\nGRID    166             9.0     12.0    .0                                      \r\nGRID    167             10.0    12.0    .0                                      \r\nGRID    168             11.0    12.0    .0                                      \r\nGRID    169             12.0    12.0    .0                                      \r\nGRID    170             .0      13.0    .0                                      \r\nGRID    171             1.0     13.0    .0                                      \r\nGRID    172             2.0     13.0    .0                                      \r\nGRID    173             3.0     13.0    .0                                      \r\nGRID    174             4.0     13.0    .0                                      \r\nGRID    175             5.0     13.0    .0                                      \r\nGRID    176             6.0     13.0    .0                                      \r\nGRID    177             7.0     13.0    .0                                      \r\nGRID    178             8.0     13.0    .0                                      \r\nGRID    179             9.0     13.0    .0                                      \r\nGRID    180             10.0    13.0    .0                                      \r\nGRID    181             11.0    13.0    .0                                      \r\nGRID    182             12.0    13.0    .0                                      \r\nGRID    183             .0      14.0    .0                                      \r\nGRID    184             1.0     14.0    .0                                      \r\nGRID    185             2.0     14.0    .0                                      \r\nGRID    186             3.0     14.0    .0                                      \r\nGRID    187             4.0     14.0    .0                                      \r\nGRID    188             5.0     14.0    .0                                      \r\nGRID    189             6.0     14.0    .0                                      \r\nGRID    190             7.0     14.0    .0                                      \r\nGRID    191             8.0     14.0    .0                                      \r\nGRID    192             9.0     14.0    .0                                      \r\nGRID    193             10.0    14.0    .0                                      \r\nGRID    194             11.0    14.0    .0                                      \r\nGRID    195             12.0    14.0    .0                                      \r\nGRID    196             .0      15.0    .0                                      \r\nGRID    197             1.0     15.0    .0                                      \r\nGRID    198             2.0     15.0    .0                                      \r\nGRID    199             3.0     15.0    .0                                      \r\nGRID    200             4.0     15.0    .0                                      \r\nGRID    201             5.0     15.0    .0                                      \r\nGRID    202             6.0     15.0    .0                                      \r\nGRID    203             7.0     15.0    .0                                      \r\nGRID    204             8.0     15.0    .0                                      \r\nGRID    205             9.0     15.0    .0                                      \r\nGRID    206             10.0    15.0    .0                                      \r\nGRID    207             11.0    15.0    .0                                      \r\nGRID    208             12.0    15.0    .0                                      \r\nGRID    209             .0      16.0    .0                                      \r\nGRID    210             1.0     16.0    .0                                      \r\nGRID    211             2.0     16.0    .0                                      \r\nGRID    212             3.0     16.0    .0                                      \r\nGRID    213             4.0     16.0    .0                                      \r\nGRID    214             5.0     16.0    .0                                      \r\nGRID    215             6.0     16.0    .0                                      \r\nGRID    216             7.0     16.0    .0                                      \r\nGRID    217             8.0     16.0    .0                                      \r\nGRID    218             9.0     16.0    .0                                      \r\nGRID    219             10.0    16.0    .0                                      \r\nGRID    220             11.0    16.0    .0                                      \r\nGRID    221             12.0    16.0    .0                                      \r\nGRID    222             .0      17.0    .0                                      \r\nGRID    223             1.0     17.0    .0                                      \r\nGRID    224             2.0     17.0    .0                                      \r\nGRID    225             3.0     17.0    .0                                      \r\nGRID    226             4.0     17.0    .0                                      \r\nGRID    227             5.0     17.0    .0                                      \r\nGRID    228             6.0     17.0    .0                                      \r\nGRID    229             7.0     17.0    .0                                      \r\nGRID    230             8.0     17.0    .0                                      \r\nGRID    231             9.0     17.0    .0                                      \r\nGRID    232             10.0    17.0    .0                                      \r\nGRID    233             11.0    17.0    .0                                      \r\nGRID    234             12.0    17.0    .0                                      \r\nGRID    235             .0      18.0    .0                                      \r\nGRID    236             1.0     18.0    .0                                      \r\nGRID    237             2.0     18.0    .0                                      \r\nGRID    238             3.0     18.0    .0                                      \r\nGRID    239             4.0     18.0    .0                                      \r\nGRID    240             5.0     18.0    .0                                      \r\nGRID    241             6.0     18.0    .0                                      \r\nGRID    242             7.0     18.0    .0                                      \r\nGRID    243             8.0     18.0    .0                                      \r\nGRID    244             9.0     18.0    .0                                      \r\nGRID    245             10.0    18.0    .0                                      \r\nGRID    246             11.0    18.0    .0                                      \r\nGRID    247             12.0    18.0    .0                                      \r\nMAT1    75      10.400+6        .3              12.700-675.                     \r\nMATT1   75      100                                                             \r\nPARAM   IRES    1                                                               \r\nPQDMEM2 21      75      .25                                                     \r\nSPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n+SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n+SPC-B  183     196     209     222     235                                     \r\nSPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n+SPC-C  7       8       9       10      11      12      13                      \r\nTABLEM1 100                                                             +TM1    \r\n+TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n+TM2    300.    9.15+6  ENDT                                                    \r\nTEMP    1       1       245.000 2       232.500 3       220.000                 \r\nTEMP    1       4       207.500 5       195.000 6       182.500                 \r\nTEMP    1       7       170.000 8       157.500 9       145.000                 \r\nTEMP    1       10      132.500 11      120.000 12      107.500                 \r\nTEMP    1       13      95.000  14      245.000 15      232.500                 \r\nTEMP    1       16      220.000 17      207.500 18      195.000                 \r\nTEMP    1       19      182.500 20      170.000 21      157.500                 \r\nTEMP    1       22      145.000 23      132.500 24      120.000                 \r\nTEMP    1       25      107.500 26      95.000  27      245.000                 \r\nTEMP    1       28      232.500 29      220.000 30      207.500                 \r\nTEMP    1       31      195.000 32      182.500 33      170.000                 \r\nTEMP    1       34      157.500 35      145.000 36      132.500                 \r\nTEMP    1       37      120.000 38      107.500 39      95.000                  \r\nTEMP    1       40      245.000 41      232.500 42      220.000                 \r\nTEMP    1       43      207.500 44      195.000 45      182.500                 \r\nTEMP    1       46      170.000 47      157.500 48      145.000                 \r\nTEMP    1       49      132.500 50      120.000 51      107.500                 \r\nTEMP    1       52      95.000  53      245.000 54      232.500                 \r\nTEMP    1       55      220.000 56      207.500 57      195.000                 \r\nTEMP    1       58      182.500 59      170.000 60      157.500                 \r\nTEMP    1       61      145.000 62      132.500 63      120.000                 \r\nTEMP    1       64      107.500 65      95.000  66      245.000                 \r\nTEMP    1       67      232.500 68      220.000 69      207.500                 \r\nTEMP    1       70      195.000 71      182.500 72      170.000                 \r\nTEMP    1       73      157.500 74      145.000 75      132.500                 \r\nTEMP    1       76      120.000 77      107.500 78      95.000                  \r\nTEMP    1       79      245.000 80      232.500 81      220.000                 \r\nTEMP    1       82      207.500 83      195.000 84      182.500                 \r\nTEMP    1       85      170.000 86      157.500 87      145.000                 \r\nTEMP    1       88      132.500 89      120.000 90      107.500                 \r\nTEMP    1       91      95.000  92      245.000 93      232.500                 \r\nTEMP    1       94      220.000 95      207.500 96      195.000                 \r\nTEMP    1       97      182.500 98      170.000 99      157.500                 \r\nTEMP    1       100     145.000 101     132.500 102     120.000                 \r\nTEMP    1       103     107.500 104     95.000  105     245.000                 \r\nTEMP    1       106     232.500 107     220.000 108     207.500                 \r\nTEMP    1       109     195.000 110     182.500 111     170.000                 \r\nTEMP    1       112     157.500 113     145.000 114     132.500                 \r\nTEMP    1       115     120.000 116     107.500 117     95.000                  \r\nTEMP    1       118     245.000 119     232.500 120     220.000                 \r\nTEMP    1       121     207.500 122     195.000 123     182.500                 \r\nTEMP    1       124     170.000 125     157.500 126     145.000                 \r\nTEMP    1       127     132.500 128     120.000 129     107.500                 \r\nTEMP    1       130     95.000  131     245.000 132     232.500                 \r\nTEMP    1       133     220.000 134     207.500 135     195.000                 \r\nTEMP    1       136     182.500 137     170.000 138     157.500                 \r\nTEMP    1       139     145.000 140     132.500 141     120.000                 \r\nTEMP    1       142     107.500 143     95.000  144     245.000                 \r\nTEMP    1       145     232.500 146     220.000 147     207.500                 \r\nTEMP    1       148     195.000 149     182.500 150     170.000                 \r\nTEMP    1       151     157.500 152     145.000 153     132.500                 \r\nTEMP    1       154     120.000 155     107.500 156     95.000                  \r\nTEMP    1       157     245.000 158     232.500 159     220.000                 \r\nTEMP    1       160     207.500 161     195.000 162     182.500                 \r\nTEMP    1       163     170.000 164     157.500 165     145.000                 \r\nTEMP    1       166     132.500 167     120.000 168     107.500                 \r\nTEMP    1       169     95.000  170     245.000 171     232.500                 \r\nTEMP    1       172     220.000 173     207.500 174     195.000                 \r\nTEMP    1       175     182.500 176     170.000 177     157.500                 \r\nTEMP    1       178     145.000 179     132.500 180     120.000                 \r\nTEMP    1       181     107.500 182     95.000  183     245.000                 \r\nTEMP    1       184     232.500 185     220.000 186     207.500                 \r\nTEMP    1       187     195.000 188     182.500 189     170.000                 \r\nTEMP    1       190     157.500 191     145.000 192     132.500                 \r\nTEMP    1       193     120.000 194     107.500 195     95.000                  \r\nTEMP    1       196     245.000 197     232.500 198     220.000                 \r\nTEMP    1       199     207.500 200     195.000 201     182.500                 \r\nTEMP    1       202     170.000 203     157.500 204     145.000                 \r\nTEMP    1       205     132.500 206     120.000 207     107.500                 \r\nTEMP    1       208     95.000  209     245.000 210     232.500                 \r\nTEMP    1       211     220.000 212     207.500 213     195.000                 \r\nTEMP    1       214     182.500 215     170.000 216     157.500                 \r\nTEMP    1       217     145.000 218     132.500 219     120.000                 \r\nTEMP    1       220     107.500 221     95.000  222     245.000                 \r\nTEMP    1       223     232.500 224     220.000 225     207.500                 \r\nTEMP    1       226     195.000 227     182.500 228     170.000                 \r\nTEMP    1       229     157.500 230     145.000 231     132.500                 \r\nTEMP    1       232     120.000 233     107.500 234     95.000                  \r\nTEMP    1       235     245.000 236     232.500 237     220.000                 \r\nTEMP    1       238     207.500 239     195.000 240     182.500                 \r\nTEMP    1       241     170.000 242     157.500 243     145.000                 \r\nTEMP    1       244     132.500 245     120.000 246     107.500                 \r\nTEMP    1       247     95.000                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01033a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$           Free Rectangular (QDMEM) Plate with Thermal Loading (1-3-1)\r\n$          Free Rectangular (QDMEM1) Plate with Thermal Loading (1-3-2)\r\n$          Free Rectangular (QDMEM2) Plate with Thermal Loading (1-3-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ Problem 1-3-1 demonstrates the use of thermal loading conditions and\r\n$ temperature-dependent materials. The model, a rectangular plate, is given a\r\n$ temperature gradient which causes internal loads and elastic deflections.\r\n$ Since there are two planes of symmetry, only one-quarter of the structure\r\n$ needs to be modeled. The analysis has been performed using three different\r\n$ NASTRAN membrane plate elements. The two variations of this problem are\r\n$ obtained by replacing the quadrilateral membrane elements, QDMEM, with QDMEM1\r\n$ and QDMEM2 membrane elements to illustrate their application to this type of\r\n$ problem (Problems 1-3-2 and 1-3-3, respectively).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The temperature load is constant in the y direction and symmetric about the y-\r\n$ axis. Since membrane elements are used to model the structure, it is necessary\r\n$ to remove all rotational degrees of freedom and translational degrees of\r\n$ freedom normal to the membrane. The symmetric boundary conditions were modeled\r\n$ by constraining the displacements normal to the planes of symmetry. The\r\n$ material used has temperature-dependent elasticity (as defined in Reference\r\n$ 5); therefore, the INPUT module cannot be used for this application. The\r\n$ CNGRNT bulk data card can be used if the congruency is defined in one\r\n$ direction.\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$      L =  36.0 in                   (length)\r\n$ \r\n$      W =  24.0 in                   (width)\r\n$ \r\n$      t =   0.25 in                  (thickness)\r\n$ \r\n$                     6      2\r\n$      E =  10.4  x 10  lb/in         (modulus of elasticity at T )\r\n$                                                                o\r\n$      v =   0.3                      (Poisson's ratio)\r\n$                     -6\r\n$  alpha =  12.7  x l0   in/in/deg. F (thermal expansion coefficient)\r\n$ \r\n$      T  = 75.0  deg. F              (thermal expansion reference temperature)\r\n$       o\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$      u  = 0.0 at x = 0.0\r\n$       x\r\n$ \r\n$      u  = 0.0 at y = 0.0\r\n$       y\r\n$ \r\n$      u  = theta sub x = theta sub y = theta sub z = 0.0  at all Grids\r\n$       z\r\n$ \r\n$ 3. Loads\r\n$ \r\n$ The thermal loading is specified with TEMP Bulk Data cards. Young's modulus is\r\n$ specified as a function of temperature with MATT1 and TABLEM1 cards.\r\n$ \r\n$ C. Results\r\n$ \r\n$ There is no theoretical solution to this problem. However, this problem\r\n$ represents a model of a laboratory experiment described in Reference 5.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 5. Richard R. Heldenfels and William M. Roberts, \"Experimental and Theoretical\r\n$    Determination of Thermal Stresses in a Flat Plate\", NACA TN 2769, 1952.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01034a.inp",
    "content": "ID    D01034A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = FREE RECTANGULAR PLATE WITH THERMAL LOADING (QDMEM2 ELEMENTS)        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-03-4A                          \r\nLABEL  = LINEARLY VARYING THERMAL LOAD - TEMPERATURE DEPENDENT MATERIAL         \r\n   SPC = 1                                                                      \r\n   TEMPERATURE = 1                                                              \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 13, 79 THRU 91, 157 THRU 169, 235 THRU 247                    \r\n   SET 2 = 1 THRU 26                                                            \r\n   DISPLACEMENTS = 1                                                            \r\n   OLOAD = 2                                                                    \r\n   SCAN (STRESS,CQDMEM2, SHEAR-XY) = 8, SET 1                                   \r\n   SCAN (STRESS,  6,  CQDMEM2) = +1500., -1500., SET 2                          \r\n$          STRESSES FOR POINTS ON PUBLISHED CURVES                              \r\n   SET 3 = 1 THRU 12, 15,20, 28,33, 41,46, 54,59, 67,72, 80,85, 93,98,          \r\n           106,111, 118 THRU 129, 132,137, 145,150, 158,163, 171,176,           \r\n           184,189, 197,202, 210,215, 223,228                                   \r\n   STRESSES = 3                                                                 \r\n   SCAN(STRESS, QDMEM2, MAX-SHR) = 10, SET 3                                    \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       14      27      40      53      66      79      92      +CNG11  \r\n+CNG11  105     118     131     144     157     170     183     196     +CNG12  \r\n+CNG12  209     222                                                             \r\nCNGRNT  2       15      28      41      54      67      80      93      +CNG21  \r\n+CNG21  106     119     132     145     158     171     184     197     +CNG22  \r\n+CNG22  210     223                                                             \r\nCNGRNT  3       16      29      42      55      68      81      94      +CNG31  \r\n+CNG31  107     120     133     146     159     172     185     198     +CNG32  \r\n+CNG32  211     224                                                             \r\nCNGRNT  4       17      30      43      56      69      82      95      +CNG41  \r\n+CNG41  108     121     134     147     160     173     186     199     +CNG42  \r\n+CNG42  212     225                                                             \r\nCNGRNT  5       18      31      44      57      70      83      96      +CNG51  \r\n+CNG51  109     122     135     148     161     174     187     200     +CNG52  \r\n+CNG52  213     226                                                             \r\nCNGRNT  6       19      32      45      58      71      84      97      +CNG61  \r\n+CNG61  110     123     136     149     162     175     188     201     +CNG62  \r\n+CNG62  214     227                                                             \r\nCNGRNT  7       20      33      46      59      72      85      98      +CNG71  \r\n+CNG71  111     124     137     150     163     176     189     202     +CNG72  \r\n+CNG72  215     228                                                             \r\nCNGRNT  8       21      34      47      60      73      86      99      +CNG81  \r\n+CNG81  112     125     138     151     164     177     190     203     +CNG82  \r\n+CNG82  216     229                                                             \r\nCNGRNT  9       22      35      48      61      74      87      100     +CNG91  \r\n+CNG91  113     126     139     152     165     178     191     204     +CNG92  \r\n+CNG92  217     230                                                             \r\nCNGRNT  10      23      36      49      62      75      88      101     +CNG101 \r\n+CNG101 114     127     140     153     166     179     192     205     +CNG102 \r\n+CNG102 218     231                                                             \r\nCNGRNT  11      24      37      50      63      76      89      102     +CNG111 \r\n+CNG111 115     128     141     154     167     180     193     206     +CNG112 \r\n+CNG112 219     232                                                             \r\nCNGRNT  12      25      38      51      64      77      90      103     +CNG121 \r\n+CNG121 116     129     142     155     168     181     194     207     +CNG122 \r\n+CNG122 220     233                                                             \r\nCQDMEM2 1       21      1       2       15      14      .00                     \r\nCQDMEM2 2       21      2       3       16      15      .00                     \r\nCQDMEM2 3       21      3       4       17      16      .00                     \r\nCQDMEM2 4       21      4       5       18      17      .00                     \r\nCQDMEM2 5       21      5       6       19      18      .00                     \r\nCQDMEM2 6       21      6       7       20      19      .00                     \r\nCQDMEM2 7       21      7       8       21      20      .00                     \r\nCQDMEM2 8       21      8       9       22      21      .00                     \r\nCQDMEM2 9       21      9       10      23      22      .00                     \r\nCQDMEM2 10      21      10      11      24      23      .00                     \r\nCQDMEM2 11      21      11      12      25      24      .00                     \r\nCQDMEM2 12      21      12      13      26      25      .00                     \r\nCQDMEM2 14      21      14      15      28      27      .00                     \r\nCQDMEM2 15      21      15      16      29      28      .00                     \r\nCQDMEM2 16      21      16      17      30      29      .00                     \r\nCQDMEM2 17      21      17      18      31      30      .00                     \r\nCQDMEM2 18      21      18      19      32      31      .00                     \r\nCQDMEM2 19      21      19      20      33      32      .00                     \r\nCQDMEM2 20      21      20      21      34      33      .00                     \r\nCQDMEM2 21      21      21      22      35      34      .00                     \r\nCQDMEM2 22      21      22      23      36      35      .00                     \r\nCQDMEM2 23      21      23      24      37      36      .00                     \r\nCQDMEM2 24      21      24      25      38      37      .00                     \r\nCQDMEM2 25      21      25      26      39      38      .00                     \r\nCQDMEM2 27      21      27      28      41      40      .00                     \r\nCQDMEM2 28      21      28      29      42      41      .00                     \r\nCQDMEM2 29      21      29      30      43      42      .00                     \r\nCQDMEM2 30      21      30      31      44      43      .00                     \r\nCQDMEM2 31      21      31      32      45      44      .00                     \r\nCQDMEM2 32      21      32      33      46      45      .00                     \r\nCQDMEM2 33      21      33      34      47      46      .00                     \r\nCQDMEM2 34      21      34      35      48      47      .00                     \r\nCQDMEM2 35      21      35      36      49      48      .00                     \r\nCQDMEM2 36      21      36      37      50      49      .00                     \r\nCQDMEM2 37      21      37      38      51      50      .00                     \r\nCQDMEM2 38      21      38      39      52      51      .00                     \r\nCQDMEM2 40      21      40      41      54      53      .00                     \r\nCQDMEM2 41      21      41      42      55      54      .00                     \r\nCQDMEM2 42      21      42      43      56      55      .00                     \r\nCQDMEM2 43      21      43      44      57      56      .00                     \r\nCQDMEM2 44      21      44      45      58      57      .00                     \r\nCQDMEM2 45      21      45      46      59      58      .00                     \r\nCQDMEM2 46      21      46      47      60      59      .00                     \r\nCQDMEM2 47      21      47      48      61      60      .00                     \r\nCQDMEM2 48      21      48      49      62      61      .00                     \r\nCQDMEM2 49      21      49      50      63      62      .00                     \r\nCQDMEM2 50      21      50      51      64      63      .00                     \r\nCQDMEM2 51      21      51      52      65      64      .00                     \r\nCQDMEM2 53      21      53      54      67      66      .00                     \r\nCQDMEM2 54      21      54      55      68      67      .00                     \r\nCQDMEM2 55      21      55      56      69      68      .00                     \r\nCQDMEM2 56      21      56      57      70      69      .00                     \r\nCQDMEM2 57      21      57      58      71      70      .00                     \r\nCQDMEM2 58      21      58      59      72      71      .00                     \r\nCQDMEM2 59      21      59      60      73      72      .00                     \r\nCQDMEM2 60      21      60      61      74      73      .00                     \r\nCQDMEM2 61      21      61      62      75      74      .00                     \r\nCQDMEM2 62      21      62      63      76      75      .00                     \r\nCQDMEM2 63      21      63      64      77      76      .00                     \r\nCQDMEM2 64      21      64      65      78      77      .00                     \r\nCQDMEM2 66      21      66      67      80      79      .00                     \r\nCQDMEM2 67      21      67      68      81      80      .00                     \r\nCQDMEM2 68      21      68      69      82      81      .00                     \r\nCQDMEM2 69      21      69      70      83      82      .00                     \r\nCQDMEM2 70      21      70      71      84      83      .00                     \r\nCQDMEM2 71      21      71      72      85      84      .00                     \r\nCQDMEM2 72      21      72      73      86      85      .00                     \r\nCQDMEM2 73      21      73      74      87      86      .00                     \r\nCQDMEM2 74      21      74      75      88      87      .00                     \r\nCQDMEM2 75      21      75      76      89      88      .00                     \r\nCQDMEM2 76      21      76      77      90      89      .00                     \r\nCQDMEM2 77      21      77      78      91      90      .00                     \r\nCQDMEM2 79      21      79      80      93      92      .00                     \r\nCQDMEM2 80      21      80      81      94      93      .00                     \r\nCQDMEM2 81      21      81      82      95      94      .00                     \r\nCQDMEM2 82      21      82      83      96      95      .00                     \r\nCQDMEM2 83      21      83      84      97      96      .00                     \r\nCQDMEM2 84      21      84      85      98      97      .00                     \r\nCQDMEM2 85      21      85      86      99      98      .00                     \r\nCQDMEM2 86      21      86      87      100     99      .00                     \r\nCQDMEM2 87      21      87      88      101     100     .00                     \r\nCQDMEM2 88      21      88      89      102     101     .00                     \r\nCQDMEM2 89      21      89      90      103     102     .00                     \r\nCQDMEM2 90      21      90      91      104     103     .00                     \r\nCQDMEM2 92      21      92      93      106     105     .00                     \r\nCQDMEM2 93      21      93      94      107     106     .00                     \r\nCQDMEM2 94      21      94      95      108     107     .00                     \r\nCQDMEM2 95      21      95      96      109     108     .00                     \r\nCQDMEM2 96      21      96      97      110     109     .00                     \r\nCQDMEM2 97      21      97      98      111     110     .00                     \r\nCQDMEM2 98      21      98      99      112     111     .00                     \r\nCQDMEM2 99      21      99      100     113     112     .00                     \r\nCQDMEM2 100     21      100     101     114     113     .00                     \r\nCQDMEM2 101     21      101     102     115     114     .00                     \r\nCQDMEM2 102     21      102     103     116     115     .00                     \r\nCQDMEM2 103     21      103     104     117     116     .00                     \r\nCQDMEM2 105     21      105     106     119     118     .00                     \r\nCQDMEM2 106     21      106     107     120     119     .00                     \r\nCQDMEM2 107     21      107     108     121     120     .00                     \r\nCQDMEM2 108     21      108     109     122     121     .00                     \r\nCQDMEM2 109     21      109     110     123     122     .00                     \r\nCQDMEM2 110     21      110     111     124     123     .00                     \r\nCQDMEM2 111     21      111     112     125     124     .00                     \r\nCQDMEM2 112     21      112     113     126     125     .00                     \r\nCQDMEM2 113     21      113     114     127     126     .00                     \r\nCQDMEM2 114     21      114     115     128     127     .00                     \r\nCQDMEM2 115     21      115     116     129     128     .00                     \r\nCQDMEM2 116     21      116     117     130     129     .00                     \r\nCQDMEM2 118     21      118     119     132     131     .00                     \r\nCQDMEM2 119     21      119     120     133     132     .00                     \r\nCQDMEM2 120     21      120     121     134     133     .00                     \r\nCQDMEM2 121     21      121     122     135     134     .00                     \r\nCQDMEM2 122     21      122     123     136     135     .00                     \r\nCQDMEM2 123     21      123     124     137     136     .00                     \r\nCQDMEM2 124     21      124     125     138     137     .00                     \r\nCQDMEM2 125     21      125     126     139     138     .00                     \r\nCQDMEM2 126     21      126     127     140     139     .00                     \r\nCQDMEM2 127     21      127     128     141     140     .00                     \r\nCQDMEM2 128     21      128     129     142     141     .00                     \r\nCQDMEM2 129     21      129     130     143     142     .00                     \r\nCQDMEM2 131     21      131     132     145     144     .00                     \r\nCQDMEM2 132     21      132     133     146     145     .00                     \r\nCQDMEM2 133     21      133     134     147     146     .00                     \r\nCQDMEM2 134     21      134     135     148     147     .00                     \r\nCQDMEM2 135     21      135     136     149     148     .00                     \r\nCQDMEM2 136     21      136     137     150     149     .00                     \r\nCQDMEM2 137     21      137     138     151     150     .00                     \r\nCQDMEM2 138     21      138     139     152     151     .00                     \r\nCQDMEM2 139     21      139     140     153     152     .00                     \r\nCQDMEM2 140     21      140     141     154     153     .00                     \r\nCQDMEM2 141     21      141     142     155     154     .00                     \r\nCQDMEM2 142     21      142     143     156     155     .00                     \r\nCQDMEM2 144     21      144     145     158     157     .00                     \r\nCQDMEM2 145     21      145     146     159     158     .00                     \r\nCQDMEM2 146     21      146     147     160     159     .00                     \r\nCQDMEM2 147     21      147     148     161     160     .00                     \r\nCQDMEM2 148     21      148     149     162     161     .00                     \r\nCQDMEM2 149     21      149     150     163     162     .00                     \r\nCQDMEM2 150     21      150     151     164     163     .00                     \r\nCQDMEM2 151     21      151     152     165     164     .00                     \r\nCQDMEM2 152     21      152     153     166     165     .00                     \r\nCQDMEM2 153     21      153     154     167     166     .00                     \r\nCQDMEM2 154     21      154     155     168     167     .00                     \r\nCQDMEM2 155     21      155     156     169     168     .00                     \r\nCQDMEM2 157     21      157     158     171     170     .00                     \r\nCQDMEM2 158     21      158     159     172     171     .00                     \r\nCQDMEM2 159     21      159     160     173     172     .00                     \r\nCQDMEM2 160     21      160     161     174     173     .00                     \r\nCQDMEM2 161     21      161     162     175     174     .00                     \r\nCQDMEM2 162     21      162     163     176     175     .00                     \r\nCQDMEM2 163     21      163     164     177     176     .00                     \r\nCQDMEM2 164     21      164     165     178     177     .00                     \r\nCQDMEM2 165     21      165     166     179     178     .00                     \r\nCQDMEM2 166     21      166     167     180     179     .00                     \r\nCQDMEM2 167     21      167     168     181     180     .00                     \r\nCQDMEM2 168     21      168     169     182     181     .00                     \r\nCQDMEM2 170     21      170     171     184     183     .00                     \r\nCQDMEM2 171     21      171     172     185     184     .00                     \r\nCQDMEM2 172     21      172     173     186     185     .00                     \r\nCQDMEM2 173     21      173     174     187     186     .00                     \r\nCQDMEM2 174     21      174     175     188     187     .00                     \r\nCQDMEM2 175     21      175     176     189     188     .00                     \r\nCQDMEM2 176     21      176     177     190     189     .00                     \r\nCQDMEM2 177     21      177     178     191     190     .00                     \r\nCQDMEM2 178     21      178     179     192     191     .00                     \r\nCQDMEM2 179     21      179     180     193     192     .00                     \r\nCQDMEM2 180     21      180     181     194     193     .00                     \r\nCQDMEM2 181     21      181     182     195     194     .00                     \r\nCQDMEM2 183     21      183     184     197     196     .00                     \r\nCQDMEM2 184     21      184     185     198     197     .00                     \r\nCQDMEM2 185     21      185     186     199     198     .00                     \r\nCQDMEM2 186     21      186     187     200     199     .00                     \r\nCQDMEM2 187     21      187     188     201     200     .00                     \r\nCQDMEM2 188     21      188     189     202     201     .00                     \r\nCQDMEM2 189     21      189     190     203     202     .00                     \r\nCQDMEM2 190     21      190     191     204     203     .00                     \r\nCQDMEM2 191     21      191     192     205     204     .00                     \r\nCQDMEM2 192     21      192     193     206     205     .00                     \r\nCQDMEM2 193     21      193     194     207     206     .00                     \r\nCQDMEM2 194     21      194     195     208     207     .00                     \r\nCQDMEM2 196     21      196     197     210     209     .00                     \r\nCQDMEM2 197     21      197     198     211     210     .00                     \r\nCQDMEM2 198     21      198     199     212     211     .00                     \r\nCQDMEM2 199     21      199     200     213     212     .00                     \r\nCQDMEM2 200     21      200     201     214     213     .00                     \r\nCQDMEM2 201     21      201     202     215     214     .00                     \r\nCQDMEM2 202     21      202     203     216     215     .00                     \r\nCQDMEM2 203     21      203     204     217     216     .00                     \r\nCQDMEM2 204     21      204     205     218     217     .00                     \r\nCQDMEM2 205     21      205     206     219     218     .00                     \r\nCQDMEM2 206     21      206     207     220     219     .00                     \r\nCQDMEM2 207     21      207     208     221     220     .00                     \r\nCQDMEM2 209     21      209     210     223     222     .00                     \r\nCQDMEM2 210     21      210     211     224     223     .00                     \r\nCQDMEM2 211     21      211     212     225     224     .00                     \r\nCQDMEM2 212     21      212     213     226     225     .00                     \r\nCQDMEM2 213     21      213     214     227     226     .00                     \r\nCQDMEM2 214     21      214     215     228     227     .00                     \r\nCQDMEM2 215     21      215     216     229     228     .00                     \r\nCQDMEM2 216     21      216     217     230     229     .00                     \r\nCQDMEM2 217     21      217     218     231     230     .00                     \r\nCQDMEM2 218     21      218     219     232     231     .00                     \r\nCQDMEM2 219     21      219     220     233     232     .00                     \r\nCQDMEM2 220     21      220     221     234     233     .00                     \r\nCQDMEM2 222     21      222     223     236     235     .00                     \r\nCQDMEM2 223     21      223     224     237     236     .00                     \r\nCQDMEM2 224     21      224     225     238     237     .00                     \r\nCQDMEM2 225     21      225     226     239     238     .00                     \r\nCQDMEM2 226     21      226     227     240     239     .00                     \r\nCQDMEM2 227     21      227     228     241     240     .00                     \r\nCQDMEM2 228     21      228     229     242     241     .00                     \r\nCQDMEM2 229     21      229     230     243     242     .00                     \r\nCQDMEM2 230     21      230     231     244     243     .00                     \r\nCQDMEM2 231     21      231     232     245     244     .00                     \r\nCQDMEM2 232     21      232     233     246     245     .00                     \r\nCQDMEM2 233     21      233     234     247     246     .00                     \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nGRID    6               5.0     .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nGRID    8               7.0     .0      .0                                      \r\nGRID    9               8.0     .0      .0                                      \r\nGRID    10              9.0     .0      .0                                      \r\nGRID    11              10.0    .0      .0                                      \r\nGRID    12              11.0    .0      .0                                      \r\nGRID    13              12.0    .0      .0                                      \r\nGRID    14              .0      1.0     .0                                      \r\nGRID    15              1.0     1.0     .0                                      \r\nGRID    16              2.0     1.0     .0                                      \r\nGRID    17              3.0     1.0     .0                                      \r\nGRID    18              4.0     1.0     .0                                      \r\nGRID    19              5.0     1.0     .0                                      \r\nGRID    20              6.0     1.0     .0                                      \r\nGRID    21              7.0     1.0     .0                                      \r\nGRID    22              8.0     1.0     .0                                      \r\nGRID    23              9.0     1.0     .0                                      \r\nGRID    24              10.0    1.0     .0                                      \r\nGRID    25              11.0    1.0     .0                                      \r\nGRID    26              12.0    1.0     .0                                      \r\nGRID    27              .0      2.0     .0                                      \r\nGRID    28              1.0     2.0     .0                                      \r\nGRID    29              2.0     2.0     .0                                      \r\nGRID    30              3.0     2.0     .0                                      \r\nGRID    31              4.0     2.0     .0                                      \r\nGRID    32              5.0     2.0     .0                                      \r\nGRID    33              6.0     2.0     .0                                      \r\nGRID    34              7.0     2.0     .0                                      \r\nGRID    35              8.0     2.0     .0                                      \r\nGRID    36              9.0     2.0     .0                                      \r\nGRID    37              10.0    2.0     .0                                      \r\nGRID    38              11.0    2.0     .0                                      \r\nGRID    39              12.0    2.0     .0                                      \r\nGRID    40              .0      3.0     .0                                      \r\nGRID    41              1.0     3.0     .0                                      \r\nGRID    42              2.0     3.0     .0                                      \r\nGRID    43              3.0     3.0     .0                                      \r\nGRID    44              4.0     3.0     .0                                      \r\nGRID    45              5.0     3.0     .0                                      \r\nGRID    46              6.0     3.0     .0                                      \r\nGRID    47              7.0     3.0     .0                                      \r\nGRID    48              8.0     3.0     .0                                      \r\nGRID    49              9.0     3.0     .0                                      \r\nGRID    50              10.0    3.0     .0                                      \r\nGRID    51              11.0    3.0     .0                                      \r\nGRID    52              12.0    3.0     .0                                      \r\nGRID    53              .0      4.0     .0                                      \r\nGRID    54              1.0     4.0     .0                                      \r\nGRID    55              2.0     4.0     .0                                      \r\nGRID    56              3.0     4.0     .0                                      \r\nGRID    57              4.0     4.0     .0                                      \r\nGRID    58              5.0     4.0     .0                                      \r\nGRID    59              6.0     4.0     .0                                      \r\nGRID    60              7.0     4.0     .0                                      \r\nGRID    61              8.0     4.0     .0                                      \r\nGRID    62              9.0     4.0     .0                                      \r\nGRID    63              10.0    4.0     .0                                      \r\nGRID    64              11.0    4.0     .0                                      \r\nGRID    65              12.0    4.0     .0                                      \r\nGRID    66              .0      5.0     .0                                      \r\nGRID    67              1.0     5.0     .0                                      \r\nGRID    68              2.0     5.0     .0                                      \r\nGRID    69              3.0     5.0     .0                                      \r\nGRID    70              4.0     5.0     .0                                      \r\nGRID    71              5.0     5.0     .0                                      \r\nGRID    72              6.0     5.0     .0                                      \r\nGRID    73              7.0     5.0     .0                                      \r\nGRID    74              8.0     5.0     .0                                      \r\nGRID    75              9.0     5.0     .0                                      \r\nGRID    76              10.0    5.0     .0                                      \r\nGRID    77              11.0    5.0     .0                                      \r\nGRID    78              12.0    5.0     .0                                      \r\nGRID    79              .0      6.0     .0                                      \r\nGRID    80              1.0     6.0     .0                                      \r\nGRID    81              2.0     6.0     .0                                      \r\nGRID    82              3.0     6.0     .0                                      \r\nGRID    83              4.0     6.0     .0                                      \r\nGRID    84              5.0     6.0     .0                                      \r\nGRID    85              6.0     6.0     .0                                      \r\nGRID    86              7.0     6.0     .0                                      \r\nGRID    87              8.0     6.0     .0                                      \r\nGRID    88              9.0     6.0     .0                                      \r\nGRID    89              10.0    6.0     .0                                      \r\nGRID    90              11.0    6.0     .0                                      \r\nGRID    91              12.0    6.0     .0                                      \r\nGRID    92              .0      7.0     .0                                      \r\nGRID    93              1.0     7.0     .0                                      \r\nGRID    94              2.0     7.0     .0                                      \r\nGRID    95              3.0     7.0     .0                                      \r\nGRID    96              4.0     7.0     .0                                      \r\nGRID    97              5.0     7.0     .0                                      \r\nGRID    98              6.0     7.0     .0                                      \r\nGRID    99              7.0     7.0     .0                                      \r\nGRID    100             8.0     7.0     .0                                      \r\nGRID    101             9.0     7.0     .0                                      \r\nGRID    102             10.0    7.0     .0                                      \r\nGRID    103             11.0    7.0     .0                                      \r\nGRID    104             12.0    7.0     .0                                      \r\nGRID    105             .0      8.0     .0                                      \r\nGRID    106             1.0     8.0     .0                                      \r\nGRID    107             2.0     8.0     .0                                      \r\nGRID    108             3.0     8.0     .0                                      \r\nGRID    109             4.0     8.0     .0                                      \r\nGRID    110             5.0     8.0     .0                                      \r\nGRID    111             6.0     8.0     .0                                      \r\nGRID    112             7.0     8.0     .0                                      \r\nGRID    113             8.0     8.0     .0                                      \r\nGRID    114             9.0     8.0     .0                                      \r\nGRID    115             10.0    8.0     .0                                      \r\nGRID    116             11.0    8.0     .0                                      \r\nGRID    117             12.0    8.0     .0                                      \r\nGRID    118             .0      9.0     .0                                      \r\nGRID    119             1.0     9.0     .0                                      \r\nGRID    120             2.0     9.0     .0                                      \r\nGRID    121             3.0     9.0     .0                                      \r\nGRID    122             4.0     9.0     .0                                      \r\nGRID    123             5.0     9.0     .0                                      \r\nGRID    124             6.0     9.0     .0                                      \r\nGRID    125             7.0     9.0     .0                                      \r\nGRID    126             8.0     9.0     .0                                      \r\nGRID    127             9.0     9.0     .0                                      \r\nGRID    128             10.0    9.0     .0                                      \r\nGRID    129             11.0    9.0     .0                                      \r\nGRID    130             12.0    9.0     .0                                      \r\nGRID    131             .0      10.0    .0                                      \r\nGRID    132             1.0     10.0    .0                                      \r\nGRID    133             2.0     10.0    .0                                      \r\nGRID    134             3.0     10.0    .0                                      \r\nGRID    135             4.0     10.0    .0                                      \r\nGRID    136             5.0     10.0    .0                                      \r\nGRID    137             6.0     10.0    .0                                      \r\nGRID    138             7.0     10.0    .0                                      \r\nGRID    139             8.0     10.0    .0                                      \r\nGRID    140             9.0     10.0    .0                                      \r\nGRID    141             10.0    10.0    .0                                      \r\nGRID    142             11.0    10.0    .0                                      \r\nGRID    143             12.0    10.0    .0                                      \r\nGRID    144             .0      11.0    .0                                      \r\nGRID    145             1.0     11.0    .0                                      \r\nGRID    146             2.0     11.0    .0                                      \r\nGRID    147             3.0     11.0    .0                                      \r\nGRID    148             4.0     11.0    .0                                      \r\nGRID    149             5.0     11.0    .0                                      \r\nGRID    150             6.0     11.0    .0                                      \r\nGRID    151             7.0     11.0    .0                                      \r\nGRID    152             8.0     11.0    .0                                      \r\nGRID    153             9.0     11.0    .0                                      \r\nGRID    154             10.0    11.0    .0                                      \r\nGRID    155             11.0    11.0    .0                                      \r\nGRID    156             12.0    11.0    .0                                      \r\nGRID    157             .0      12.0    .0                                      \r\nGRID    158             1.0     12.0    .0                                      \r\nGRID    159             2.0     12.0    .0                                      \r\nGRID    160             3.0     12.0    .0                                      \r\nGRID    161             4.0     12.0    .0                                      \r\nGRID    162             5.0     12.0    .0                                      \r\nGRID    163             6.0     12.0    .0                                      \r\nGRID    164             7.0     12.0    .0                                      \r\nGRID    165             8.0     12.0    .0                                      \r\nGRID    166             9.0     12.0    .0                                      \r\nGRID    167             10.0    12.0    .0                                      \r\nGRID    168             11.0    12.0    .0                                      \r\nGRID    169             12.0    12.0    .0                                      \r\nGRID    170             .0      13.0    .0                                      \r\nGRID    171             1.0     13.0    .0                                      \r\nGRID    172             2.0     13.0    .0                                      \r\nGRID    173             3.0     13.0    .0                                      \r\nGRID    174             4.0     13.0    .0                                      \r\nGRID    175             5.0     13.0    .0                                      \r\nGRID    176             6.0     13.0    .0                                      \r\nGRID    177             7.0     13.0    .0                                      \r\nGRID    178             8.0     13.0    .0                                      \r\nGRID    179             9.0     13.0    .0                                      \r\nGRID    180             10.0    13.0    .0                                      \r\nGRID    181             11.0    13.0    .0                                      \r\nGRID    182             12.0    13.0    .0                                      \r\nGRID    183             .0      14.0    .0                                      \r\nGRID    184             1.0     14.0    .0                                      \r\nGRID    185             2.0     14.0    .0                                      \r\nGRID    186             3.0     14.0    .0                                      \r\nGRID    187             4.0     14.0    .0                                      \r\nGRID    188             5.0     14.0    .0                                      \r\nGRID    189             6.0     14.0    .0                                      \r\nGRID    190             7.0     14.0    .0                                      \r\nGRID    191             8.0     14.0    .0                                      \r\nGRID    192             9.0     14.0    .0                                      \r\nGRID    193             10.0    14.0    .0                                      \r\nGRID    194             11.0    14.0    .0                                      \r\nGRID    195             12.0    14.0    .0                                      \r\nGRID    196             .0      15.0    .0                                      \r\nGRID    197             1.0     15.0    .0                                      \r\nGRID    198             2.0     15.0    .0                                      \r\nGRID    199             3.0     15.0    .0                                      \r\nGRID    200             4.0     15.0    .0                                      \r\nGRID    201             5.0     15.0    .0                                      \r\nGRID    202             6.0     15.0    .0                                      \r\nGRID    203             7.0     15.0    .0                                      \r\nGRID    204             8.0     15.0    .0                                      \r\nGRID    205             9.0     15.0    .0                                      \r\nGRID    206             10.0    15.0    .0                                      \r\nGRID    207             11.0    15.0    .0                                      \r\nGRID    208             12.0    15.0    .0                                      \r\nGRID    209             .0      16.0    .0                                      \r\nGRID    210             1.0     16.0    .0                                      \r\nGRID    211             2.0     16.0    .0                                      \r\nGRID    212             3.0     16.0    .0                                      \r\nGRID    213             4.0     16.0    .0                                      \r\nGRID    214             5.0     16.0    .0                                      \r\nGRID    215             6.0     16.0    .0                                      \r\nGRID    216             7.0     16.0    .0                                      \r\nGRID    217             8.0     16.0    .0                                      \r\nGRID    218             9.0     16.0    .0                                      \r\nGRID    219             10.0    16.0    .0                                      \r\nGRID    220             11.0    16.0    .0                                      \r\nGRID    221             12.0    16.0    .0                                      \r\nGRID    222             .0      17.0    .0                                      \r\nGRID    223             1.0     17.0    .0                                      \r\nGRID    224             2.0     17.0    .0                                      \r\nGRID    225             3.0     17.0    .0                                      \r\nGRID    226             4.0     17.0    .0                                      \r\nGRID    227             5.0     17.0    .0                                      \r\nGRID    228             6.0     17.0    .0                                      \r\nGRID    229             7.0     17.0    .0                                      \r\nGRID    230             8.0     17.0    .0                                      \r\nGRID    231             9.0     17.0    .0                                      \r\nGRID    232             10.0    17.0    .0                                      \r\nGRID    233             11.0    17.0    .0                                      \r\nGRID    234             12.0    17.0    .0                                      \r\nGRID    235             .0      18.0    .0                                      \r\nGRID    236             1.0     18.0    .0                                      \r\nGRID    237             2.0     18.0    .0                                      \r\nGRID    238             3.0     18.0    .0                                      \r\nGRID    239             4.0     18.0    .0                                      \r\nGRID    240             5.0     18.0    .0                                      \r\nGRID    241             6.0     18.0    .0                                      \r\nGRID    242             7.0     18.0    .0                                      \r\nGRID    243             8.0     18.0    .0                                      \r\nGRID    244             9.0     18.0    .0                                      \r\nGRID    245             10.0    18.0    .0                                      \r\nGRID    246             11.0    18.0    .0                                      \r\nGRID    247             12.0    18.0    .0                                      \r\nMAT1    75      10.400+6        .3              12.700-675.                     \r\nMATT1   75      100                                                             \r\nPARAM   IRES    1                                                               \r\nPQDMEM2 21      75      .25                                                     \r\nSPC1    1       1       1       14      27      40      53      66      CSPC-A  \r\n+SPC-A  79      92      105     118     131     144     157     170     CSPC-B  \r\n+SPC-B  183     196     209     222     235                                     \r\nSPC1    1       2       1       2       3       4       5       6       CSPC-C  \r\n+SPC-C  7       8       9       10      11      12      13                      \r\nTABLEM1 100                                                             +TM1    \r\n+TM1    80.     10.4+6  150.    10.15+6 200.    9.84+6  250.    9.51+6  +TM2    \r\n+TM2    300.    9.15+6  ENDT                                                    \r\nTEMP    1       1       245.000 2       232.500 3       220.000                 \r\nTEMP    1       4       207.500 5       195.000 6       182.500                 \r\nTEMP    1       7       170.000 8       157.500 9       145.000                 \r\nTEMP    1       10      132.500 11      120.000 12      107.500                 \r\nTEMP    1       13      95.000  14      245.000 15      232.500                 \r\nTEMP    1       16      220.000 17      207.500 18      195.000                 \r\nTEMP    1       19      182.500 20      170.000 21      157.500                 \r\nTEMP    1       22      145.000 23      132.500 24      120.000                 \r\nTEMP    1       25      107.500 26      95.000  27      245.000                 \r\nTEMP    1       28      232.500 29      220.000 30      207.500                 \r\nTEMP    1       31      195.000 32      182.500 33      170.000                 \r\nTEMP    1       34      157.500 35      145.000 36      132.500                 \r\nTEMP    1       37      120.000 38      107.500 39      95.000                  \r\nTEMP    1       40      245.000 41      232.500 42      220.000                 \r\nTEMP    1       43      207.500 44      195.000 45      182.500                 \r\nTEMP    1       46      170.000 47      157.500 48      145.000                 \r\nTEMP    1       49      132.500 50      120.000 51      107.500                 \r\nTEMP    1       52      95.000  53      245.000 54      232.500                 \r\nTEMP    1       55      220.000 56      207.500 57      195.000                 \r\nTEMP    1       58      182.500 59      170.000 60      157.500                 \r\nTEMP    1       61      145.000 62      132.500 63      120.000                 \r\nTEMP    1       64      107.500 65      95.000  66      245.000                 \r\nTEMP    1       67      232.500 68      220.000 69      207.500                 \r\nTEMP    1       70      195.000 71      182.500 72      170.000                 \r\nTEMP    1       73      157.500 74      145.000 75      132.500                 \r\nTEMP    1       76      120.000 77      107.500 78      95.000                  \r\nTEMP    1       79      245.000 80      232.500 81      220.000                 \r\nTEMP    1       82      207.500 83      195.000 84      182.500                 \r\nTEMP    1       85      170.000 86      157.500 87      145.000                 \r\nTEMP    1       88      132.500 89      120.000 90      107.500                 \r\nTEMP    1       91      95.000  92      245.000 93      232.500                 \r\nTEMP    1       94      220.000 95      207.500 96      195.000                 \r\nTEMP    1       97      182.500 98      170.000 99      157.500                 \r\nTEMP    1       100     145.000 101     132.500 102     120.000                 \r\nTEMP    1       103     107.500 104     95.000  105     245.000                 \r\nTEMP    1       106     232.500 107     220.000 108     207.500                 \r\nTEMP    1       109     195.000 110     182.500 111     170.000                 \r\nTEMP    1       112     157.500 113     145.000 114     132.500                 \r\nTEMP    1       115     120.000 116     107.500 117     95.000                  \r\nTEMP    1       118     245.000 119     232.500 120     220.000                 \r\nTEMP    1       121     207.500 122     195.000 123     182.500                 \r\nTEMP    1       124     170.000 125     157.500 126     145.000                 \r\nTEMP    1       127     132.500 128     120.000 129     107.500                 \r\nTEMP    1       130     95.000  131     245.000 132     232.500                 \r\nTEMP    1       133     220.000 134     207.500 135     195.000                 \r\nTEMP    1       136     182.500 137     170.000 138     157.500                 \r\nTEMP    1       139     145.000 140     132.500 141     120.000                 \r\nTEMP    1       142     107.500 143     95.000  144     245.000                 \r\nTEMP    1       145     232.500 146     220.000 147     207.500                 \r\nTEMP    1       148     195.000 149     182.500 150     170.000                 \r\nTEMP    1       151     157.500 152     145.000 153     132.500                 \r\nTEMP    1       154     120.000 155     107.500 156     95.000                  \r\nTEMP    1       157     245.000 158     232.500 159     220.000                 \r\nTEMP    1       160     207.500 161     195.000 162     182.500                 \r\nTEMP    1       163     170.000 164     157.500 165     145.000                 \r\nTEMP    1       166     132.500 167     120.000 168     107.500                 \r\nTEMP    1       169     95.000  170     245.000 171     232.500                 \r\nTEMP    1       172     220.000 173     207.500 174     195.000                 \r\nTEMP    1       175     182.500 176     170.000 177     157.500                 \r\nTEMP    1       178     145.000 179     132.500 180     120.000                 \r\nTEMP    1       181     107.500 182     95.000  183     245.000                 \r\nTEMP    1       184     232.500 185     220.000 186     207.500                 \r\nTEMP    1       187     195.000 188     182.500 189     170.000                 \r\nTEMP    1       190     157.500 191     145.000 192     132.500                 \r\nTEMP    1       193     120.000 194     107.500 195     95.000                  \r\nTEMP    1       196     245.000 197     232.500 198     220.000                 \r\nTEMP    1       199     207.500 200     195.000 201     182.500                 \r\nTEMP    1       202     170.000 203     157.500 204     145.000                 \r\nTEMP    1       205     132.500 206     120.000 207     107.500                 \r\nTEMP    1       208     95.000  209     245.000 210     232.500                 \r\nTEMP    1       211     220.000 212     207.500 213     195.000                 \r\nTEMP    1       214     182.500 215     170.000 216     157.500                 \r\nTEMP    1       217     145.000 218     132.500 219     120.000                 \r\nTEMP    1       220     107.500 221     95.000  222     245.000                 \r\nTEMP    1       223     232.500 224     220.000 225     207.500                 \r\nTEMP    1       226     195.000 227     182.500 228     170.000                 \r\nTEMP    1       229     157.500 230     145.000 231     132.500                 \r\nTEMP    1       232     120.000 233     107.500 234     95.000                  \r\nTEMP    1       235     245.000 236     232.500 237     220.000                 \r\nTEMP    1       238     207.500 239     195.000 240     182.500                 \r\nTEMP    1       241     170.000 242     157.500 243     145.000                 \r\nTEMP    1       244     132.500 245     120.000 246     107.500                 \r\nTEMP    1       247     95.000                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01041a.inp",
    "content": "ID    D01041A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nTIME  30                                                                        \r\nSOL   1,1                                                                       \r\nDIAG  14                                                                        \r\nALTER 1 $                                                                       \r\nPARAM  //C,N,NOP/V,N,TRUE=-1 $                                                  \r\nINPUT, GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1  $                                      \r\nEQUIV  G1,GEOM1/TRUE /G2,GEOM2/TRUE /G4,GEOM4/TRUE $                            \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = 5 X 100 LONG, NARROW, ORTHOTROPIC PLATE                              \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-04-1A                          \r\nLABEL    = SPILL CHECK                                                          \r\n    SPC  = 5100                                                                 \r\n    LOAD = 17                                                                   \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 5,7,13,19,25,31,37,43                                         \r\n   DISP  = 1                                                                    \r\n  STRESS = 1                                                                    \r\n   OLOAD = ALL                                                                  \r\nSPCFORCE = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nFORCE   17      1               1.0                     .9958928                \r\nFORCE   17      2               1.0                     1.894301                \r\nFORCE   17      3               1.0                     1.610752                \r\nFORCE   17      4               1.0                     1.170742                \r\nFORCE   17      5               1.0-2                   61.54956                \r\nFORCE   17      6               1.0-2                   7.837847                \r\nMAT2    1234    4.0+6   2.0+6           6.0+6           3.0+6   1.0     +MATL   \r\n+MATL   .5      1.0     .05     10.0    .004    1.+12   2.+12   3.+12           \r\nPQUAD1  101                     1234    .0833333                        +PQD    \r\n+PQD    .5      -.5                                                             \r\nSEQGP   1       1       2       102     3       203     4       304             \r\nSEQGP   5       405     6       506     7       2       8       103             \r\nSEQGP   9       204     10      305     11      406     12      507             \r\nSEQGP   13      3       14      104     15      205     16      306             \r\nSEQGP   17      407     18      508     19      4       20      105             \r\nSEQGP   21      206     22      307     23      408     24      509             \r\nSEQGP   25      5       26      106     27      207     28      308             \r\nSEQGP   29      409     30      510     31      6       32      107             \r\nSEQGP   33      208     34      309     35      410     36      511             \r\nSEQGP   37      7       38      108     39      209     40      310             \r\nSEQGP   41      411     42      512     43      8       44      109             \r\nSEQGP   45      210     46      311     47      412     48      513             \r\nSEQGP   49      9       50      110     51      211     52      312             \r\nSEQGP   53      413     54      514     55      10      56      111             \r\nSEQGP   57      212     58      313     59      414     60      515             \r\nSEQGP   61      11      62      112     63      213     64      314             \r\nSEQGP   65      415     66      516     67      12      68      113             \r\nSEQGP   69      214     70      315     71      416     72      517             \r\nSEQGP   73      13      74      114     75      215     76      316             \r\nSEQGP   77      417     78      518     79      14      80      115             \r\nSEQGP   81      216     82      317     83      418     84      519             \r\nSEQGP   85      15      86      116     87      217     88      318             \r\nSEQGP   89      419     90      520     91      16      92      117             \r\nSEQGP   93      218     94      319     95      420     96      521             \r\nSEQGP   97      17      98      118     99      219     100     320             \r\nSEQGP   101     421     102     522     103     18      104     119             \r\nSEQGP   105     220     106     321     107     422     108     523             \r\nSEQGP   109     19      110     120     111     221     112     322             \r\nSEQGP   113     423     114     524     115     20      116     121             \r\nSEQGP   117     222     118     323     119     424     120     525             \r\nSEQGP   121     21      122     122     123     223     124     324             \r\nSEQGP   125     425     126     526     127     22      128     123             \r\nSEQGP   129     224     130     325     131     426     132     527             \r\nSEQGP   133     23      134     124     135     225     136     326             \r\nSEQGP   137     427     138     528     139     24      140     125             \r\nSEQGP   141     226     142     327     143     428     144     529             \r\nSEQGP   145     25      146     126     147     227     148     328             \r\nSEQGP   149     429     150     530     151     26      152     127             \r\nSEQGP   153     228     154     329     155     430     156     531             \r\nSEQGP   157     27      158     128     159     229     160     330             \r\nSEQGP   161     431     162     532     163     28      164     129             \r\nSEQGP   165     230     166     331     167     432     168     533             \r\nSEQGP   169     29      170     130     171     231     172     332             \r\nSEQGP   173     433     174     534     175     30      176     131             \r\nSEQGP   177     232     178     333     179     434     180     535             \r\nSEQGP   181     31      182     132     183     233     184     334             \r\nSEQGP   185     435     186     536     187     32      188     133             \r\nSEQGP   189     234     190     335     191     436     192     537             \r\nSEQGP   193     33      194     134     195     235     196     336             \r\nSEQGP   197     437     198     538     199     34      200     135             \r\nSEQGP   201     236     202     337     203     438     204     539             \r\nSEQGP   205     35      206     136     207     237     208     338             \r\nSEQGP   209     439     210     540     211     36      212     137             \r\nSEQGP   213     238     214     339     215     440     216     541             \r\nSEQGP   217     37      218     138     219     239     220     340             \r\nSEQGP   221     441     222     542     223     38      224     139             \r\nSEQGP   225     240     226     341     227     442     228     543             \r\nSEQGP   229     39      230     140     231     241     232     342             \r\nSEQGP   233     443     234     544     235     40      236     141             \r\nSEQGP   237     242     238     343     239     444     240     545             \r\nSEQGP   241     41      242     142     243     243     244     344             \r\nSEQGP   245     445     246     546     247     42      248     143             \r\nSEQGP   249     244     250     345     251     446     252     547             \r\nSEQGP   253     43      254     144     255     245     256     346             \r\nSEQGP   257     447     258     548     259     44      260     145             \r\nSEQGP   261     246     262     347     263     448     264     549             \r\nSEQGP   265     45      266     146     267     247     268     348             \r\nSEQGP   269     449     270     550     271     46      272     147             \r\nSEQGP   273     248     274     349     275     450     276     551             \r\nSEQGP   277     47      278     148     279     249     280     350             \r\nSEQGP   281     451     282     552     283     48      284     149             \r\nSEQGP   285     250     286     351     287     452     288     553             \r\nSEQGP   289     49      290     150     291     251     292     352             \r\nSEQGP   293     453     294     554     295     50      296     151             \r\nSEQGP   297     252     298     353     299     454     300     555             \r\nSEQGP   301     51      302     152     303     253     304     354             \r\nSEQGP   305     455     306     556     307     52      308     153             \r\nSEQGP   309     254     310     355     311     456     312     557             \r\nSEQGP   313     53      314     154     315     255     316     356             \r\nSEQGP   317     457     318     558     319     54      320     155             \r\nSEQGP   321     256     322     357     323     458     324     559             \r\nSEQGP   325     55      326     156     327     257     328     358             \r\nSEQGP   329     459     330     560     331     56      332     157             \r\nSEQGP   333     258     334     359     335     460     336     561             \r\nSEQGP   337     57      338     158     339     259     340     360             \r\nSEQGP   341     461     342     562     343     58      344     159             \r\nSEQGP   345     260     346     361     347     462     348     563             \r\nSEQGP   349     59      350     160     351     261     352     362             \r\nSEQGP   353     463     354     564     355     60      356     161             \r\nSEQGP   357     262     358     363     359     464     360     565             \r\nSEQGP   361     61      362     162     363     263     364     364             \r\nSEQGP   365     465     366     566     367     62      368     163             \r\nSEQGP   369     264     370     365     371     466     372     567             \r\nSEQGP   373     63      374     164     375     265     376     366             \r\nSEQGP   377     467     378     568     379     64      380     165             \r\nSEQGP   381     266     382     367     383     468     384     569             \r\nSEQGP   385     65      386     166     387     267     388     368             \r\nSEQGP   389     469     390     570     391     66      392     167             \r\nSEQGP   393     268     394     369     395     470     396     571             \r\nSEQGP   397     67      398     168     399     269     400     370             \r\nSEQGP   401     471     402     572     403     68      404     169             \r\nSEQGP   405     270     406     371     407     472     408     573             \r\nSEQGP   409     69      410     170     411     271     412     372             \r\nSEQGP   413     473     414     574     415     70      416     171             \r\nSEQGP   417     272     418     373     419     474     420     575             \r\nSEQGP   421     71      422     172     423     273     424     374             \r\nSEQGP   425     475     426     576     427     72      428     173             \r\nSEQGP   429     274     430     375     431     476     432     577             \r\nSEQGP   433     73      434     174     435     275     436     376             \r\nSEQGP   437     477     438     578     439     74      440     175             \r\nSEQGP   441     276     442     377     443     478     444     579             \r\nSEQGP   445     75      446     176     447     277     448     378             \r\nSEQGP   449     479     450     580     451     76      452     177             \r\nSEQGP   453     278     454     379     455     480     456     581             \r\nSEQGP   457     77      458     178     459     279     460     380             \r\nSEQGP   461     481     462     582     463     78      464     179             \r\nSEQGP   465     280     466     381     467     482     468     583             \r\nSEQGP   469     79      470     180     471     281     472     382             \r\nSEQGP   473     483     474     584     475     80      476     181             \r\nSEQGP   477     282     478     383     479     484     480     585             \r\nSEQGP   481     81      482     182     483     283     484     384             \r\nSEQGP   485     485     486     586     487     82      488     183             \r\nSEQGP   489     284     490     385     491     486     492     587             \r\nSEQGP   493     83      494     184     495     285     496     386             \r\nSEQGP   497     487     498     588     499     84      500     185             \r\nSEQGP   501     286     502     387     503     488     504     589             \r\nSEQGP   505     85      506     186     507     287     508     388             \r\nSEQGP   509     489     510     590     511     86      512     187             \r\nSEQGP   513     288     514     389     515     490     516     591             \r\nSEQGP   517     87      518     188     519     289     520     390             \r\nSEQGP   521     491     522     592     523     88      524     189             \r\nSEQGP   525     290     526     391     527     492     528     593             \r\nSEQGP   529     89      530     190     531     291     532     392             \r\nSEQGP   533     493     534     594     535     90      536     191             \r\nSEQGP   537     292     538     393     539     494     540     595             \r\nSEQGP   541     91      542     192     543     293     544     394             \r\nSEQGP   545     495     546     596     547     92      548     193             \r\nSEQGP   549     294     550     395     551     496     552     597             \r\nSEQGP   553     93      554     194     555     295     556     396             \r\nSEQGP   557     497     558     598     559     94      560     195             \r\nSEQGP   561     296     562     397     563     498     564     599             \r\nSEQGP   565     95      566     196     567     297     568     398             \r\nSEQGP   569     499     570     600     571     96      572     197             \r\nSEQGP   573     298     574     399     575     500     576     601             \r\nSEQGP   577     97      578     198     579     299     580     400             \r\nSEQGP   581     501     582     602     583     98      584     199             \r\nSEQGP   585     300     586     401     587     502     588     603             \r\nSEQGP   589     99      590     200     591     301     592     402             \r\nSEQGP   593     503     594     604     595     100     596     201             \r\nSEQGP   597     302     598     403     599     504     600     605             \r\nSEQGP   601     101     602     202     603     303     604     404             \r\nSEQGP   605     505     606     606                                             \r\nENDDATA                                                                         \r\n       5     100 2.0E+00 2.0E+00     126 0.0     0.0                            \r\n       4       5       0      34       0       0                                \r\n"
  },
  {
    "path": "inp/d01041a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$           Long, Narrow, 5 x 100 Orthotropic Plate (INPUT, 1-4-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ A long, narrow, orthotropic plate is modeled and analyzed to illustrate\r\n$ NASTRAN operations with spill logic for problems too large for available core.\r\n$ Other features of this problem include grid point resequencing, use of\r\n$ orthotropic materials, application of quarter symmetry, and use of the INPUT\r\n$ module.\r\n$ \r\n$ This model could be run if desired with an optimal bandwidth by simply\r\n$ deleting the SEQGP cards from the bulk data.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$    Material Elastic Properties\r\n$ \r\n$    |             |     |                     |                |\r\n$    | sigma sub 1 |     | 4.0+6  2.0+6   0.   |  epsilon sub 1 |\r\n$    | sigma sub 2 |  =  | 2.0+6  6.0+6   0.   |  epsilon sub 2 |\r\n$    | tau sub 12  |     |   0.     0.   3.0+6 |  gamma sub 12  |\r\n$    |             |     |                     |                |\r\n$ \r\n$ \r\n$    I = .0833333 (area moment of inertia per unit width)\r\n$ \r\n$ C. Results\r\n$ \r\n$ The displacement and stress results from NASTRAN are presented along with\r\n$ theoretical results in Tables 1 and 2. The theoretical results are from an\r\n$ infinitely long continuous plate analyzed in Section 37 of Reference 4.\r\n$ \r\n$ Table 1. NASTRAN and Theoretical Displacements for Long, Narrow, Orthotropic\r\n$ Plate\r\n$                            ---------------------------\r\n$                                                      4\r\n$                                   Z DISPLACEMENT X 10\r\n$                                   --------------------\r\n$                            GRID   THEORY      NASTRAN\r\n$                            ---------------------------\r\n$                              1     3.048       3.037\r\n$                              2     2.899       2.889\r\n$                              3     2.466       2.457\r\n$                              4     1.792       1.785\r\n$                              5     0.942       0.939\r\n$                              7     2.949       2.940\r\n$                             13     2.723       2.714\r\n$                             19     2.446       2.435\r\n$                             25     2.157       2.145\r\n$                             31     1.880       1.866\r\n$                             37     1.625       1.611\r\n$                             43     1.397       1.383\r\n$                            ---------------------------\r\n$ \r\n$ Table 2. NASTRAN and Theoretical Stresses for Long, Narrow, Orthotropic Plate\r\n$           ------------------------------------------------------------\r\n$                    STRESS X           STRESS Y          SHEAR STRESS\r\n$           EL.   ----------------   ----------------   ----------------\r\n$           ID.   THEORY   NASTRAN   THEORY   NASTRAN   THEORY   NASTRAN\r\n$           ------------------------------------------------------------\r\n$            1    19.05    18.90     20.35    20.40     -0.39    -0.39\r\n$            2    17.19    17.05     18.36    18.40     -1.12    -1.13\r\n$            3    13.64    13.53     14.57    14.60     -1.74    -1.76\r\n$            4     8.76     8.69      9.35     9.38     -2.19    -2.22\r\n$            5     3.02     2.99      3.22     3.23     -2.43    -2.46\r\n$            7    15.86    15.76     12.91    12.90     -0.84    -0.88\r\n$           13    13.27    13.20      8.28     8.23     -1.03    -1.06\r\n$           19    11.14    11.08      5.38     5.33     -1.07    -1.09\r\n$           25     9.37     9.33      3.55     3.51     -1.02    -1.04\r\n$           31     7.90     7.86      2.38     2.36     -0.94    -0.95\r\n$           37     6.67     6.63      1.64     1.63     -0.84    -0.85\r\n$           ------------------------------------------------------------\r\n$     \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940. \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01051a.inp",
    "content": "ID    D01051A,NASTRAN                                                           \r\nTIME  35                                                                        \r\nAPP   DISP                                                                      \r\nSOL   1,1                                                                       \r\nCEND                                                                            \r\n$                                                                               \r\nTITLE    = NONSYMMETRIC BENDING OF A CYLINDER OF REVOLUTION                     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-05-1A                          \r\n    LOAD = 15                                                                   \r\n  AXISYM = COSINE                                                               \r\nOUTPUT                                                                          \r\n     SET 1 = 5,10,15,20,25,30,35,40,45,50,100,200                               \r\n     SET 2 = 1,6,11,16,21,26,31,36,41,46,50                                     \r\n      DISP = 1                                                                  \r\n   ELFORCE = 2                                                                  \r\n HARMONICS = ALL                                                                \r\nBEGIN BULK                                                                      \r\nAXIC    20                                                                      \r\nCCONEAX 1       15      100     1                                               \r\nCCONEAX 2       15      1       2                                               \r\nCCONEAX 3       15      2       3                                               \r\nCCONEAX 4       15      3       4                                               \r\nCCONEAX 5       15      4       5                                               \r\nCCONEAX 6       15      5       6                                               \r\nCCONEAX 7       15      6       7                                               \r\nCCONEAX 8       15      7       8                                               \r\nCCONEAX 9       15      8       9                                               \r\nCCONEAX 10      15      9       10                                              \r\nCCONEAX 11      15      10      11                                              \r\nCCONEAX 12      15      11      12                                              \r\nCCONEAX 13      15      12      13                                              \r\nCCONEAX 14      15      13      14                                              \r\nCCONEAX 15      15      14      15                                              \r\nCCONEAX 16      15      15      16                                              \r\nCCONEAX 17      15      16      17                                              \r\nCCONEAX 18      15      17      18                                              \r\nCCONEAX 19      15      18      19                                              \r\nCCONEAX 20      15      19      20                                              \r\nCCONEAX 21      15      20      21                                              \r\nCCONEAX 22      15      21      22                                              \r\nCCONEAX 23      15      22      23                                              \r\nCCONEAX 24      15      23      24                                              \r\nCCONEAX 25      15      24      25                                              \r\nCCONEAX 26      15      25      26                                              \r\nCCONEAX 27      15      26      27                                              \r\nCCONEAX 28      15      27      28                                              \r\nCCONEAX 29      15      28      29                                              \r\nCCONEAX 30      15      29      30                                              \r\nCCONEAX 31      15      30      31                                              \r\nCCONEAX 32      15      31      32                                              \r\nCCONEAX 33      15      32      33                                              \r\nCCONEAX 34      15      33      34                                              \r\nCCONEAX 35      15      34      35                                              \r\nCCONEAX 36      15      35      36                                              \r\nCCONEAX 37      15      36      37                                              \r\nCCONEAX 38      15      37      38                                              \r\nCCONEAX 39      15      38      39                                              \r\nCCONEAX 40      15      39      40                                              \r\nCCONEAX 41      15      40      41                                              \r\nCCONEAX 42      15      41      42                                              \r\nCCONEAX 43      15      42      43                                              \r\nCCONEAX 44      15      43      44                                              \r\nCCONEAX 45      15      44      45                                              \r\nCCONEAX 46      15      45      46                                              \r\nCCONEAX 47      15      46      47                                              \r\nCCONEAX 48      15      47      48                                              \r\nCCONEAX 49      15      48      49                                              \r\nCCONEAX 50      15      49      50                                              \r\nMAT1    15      91.0            .3      .5                                      \r\nMOMAX   15      50      0       157.0796        2.0                             \r\nMOMAX   15      50      1       157.0796        1.0                             \r\nMOMAX   15      50      2       157.0796        1.0                             \r\nMOMAX   15      50      3       157.0796        1.0                             \r\nMOMAX   15      50      4       157.0796        1.0                             \r\nMOMAX   15      50      5       157.0796        1.0                             \r\nMOMAX   15      50      6       157.0796        1.0                             \r\nMOMAX   15      50      7       157.0796        1.0                             \r\nMOMAX   15      50      8       157.0796        1.0                             \r\nMOMAX   15      50      9       157.0796        1.0                             \r\nMOMAX   15      50      10      157.0796        1.0                             \r\nMOMAX   15      50      11      157.0796        1.0                             \r\nMOMAX   15      50      12      157.0796        1.0                             \r\nMOMAX   15      50      13      157.0796        1.0                             \r\nMOMAX   15      50      14      157.0796        1.0                             \r\nMOMAX   15      50      15      157.0796        1.0                             \r\nMOMAX   15      50      16      157.0796        1.0                             \r\nMOMAX   15      50      17      157.0796        1.0                             \r\nMOMAX   15      50      18      157.0796        1.0                             \r\nMOMAX   15      50      19      157.0796        1.0                             \r\nMOMAX   15      50      20      157.0796        1.0                             \r\nMOMAX   15      100     0       157.0796        -2.0                            \r\nMOMAX   15      100     1       157.0796        -1.0                            \r\nMOMAX   15      100     2       157.0796        -1.0                            \r\nMOMAX   15      100     3       157.0796        -1.0                            \r\nMOMAX   15      100     4       157.0796        -1.0                            \r\nMOMAX   15      100     5       157.0796        -1.0                            \r\nMOMAX   15      100     6       157.0796        -1.0                            \r\nMOMAX   15      100     7       157.0796        -1.0                            \r\nMOMAX   15      100     8       157.0796        -1.0                            \r\nMOMAX   15      100     9       157.0796        -1.0                            \r\nMOMAX   15      100     10      157.0796        -1.0                            \r\nMOMAX   15      100     11      157.0796        -1.0                            \r\nMOMAX   15      100     12      157.0796        -1.0                            \r\nMOMAX   15      100     13      157.0796        -1.0                            \r\nMOMAX   15      100     14      157.0796        -1.0                            \r\nMOMAX   15      100     15      157.0796        -1.0                            \r\nMOMAX   15      100     16      157.0796        -1.0                            \r\nMOMAX   15      100     17      157.0796        -1.0                            \r\nMOMAX   15      100     18      157.0796        -1.0                            \r\nMOMAX   15      100     19      157.0796        -1.0                            \r\nMOMAX   15      100     20      157.0796        -1.0                            \r\nPCONEAX 15      15      1.0     15      .083333315      1.0     .5      +PC     \r\n+PC     .0      .5      .0      90.     180.                                    \r\nPOINTAX 200     100                                                             \r\nRINGAX  1               50.0    1.0                     4                       \r\nRINGAX  2               50.0    2.0                     4                       \r\nRINGAX  3               50.0    3.                      4                       \r\nRINGAX  4               50.0    4.                      4                       \r\nRINGAX  5               50.0    5.                      4                       \r\nRINGAX  6               50.0    6.                      4                       \r\nRINGAX  7               50.0    7.                      4                       \r\nRINGAX  8               50.0    8.                      4                       \r\nRINGAX  9               50.0    9.                      4                       \r\nRINGAX  10              50.0    10.                     4                       \r\nRINGAX  11              50.0    11.                     4                       \r\nRINGAX  12              50.0    12.                     4                       \r\nRINGAX  13              50.0    13.                     4                       \r\nRINGAX  14              50.0    14.                     4                       \r\nRINGAX  15              50.0    15.                     4                       \r\nRINGAX  16              50.0    16.                     4                       \r\nRINGAX  17              50.0    17.                     4                       \r\nRINGAX  18              50.0    18.                     4                       \r\nRINGAX  19              50.0    19.                     4                       \r\nRINGAX  20              50.0    20.                     4                       \r\nRINGAX  21              50.0    21.                     4                       \r\nRINGAX  22              50.0    22.                     4                       \r\nRINGAX  23              50.0    23.                     4                       \r\nRINGAX  24              50.0    24.                     4                       \r\nRINGAX  25              50.0    25.                     4                       \r\nRINGAX  26              50.0    26.                     4                       \r\nRINGAX  27              50.0    27.                     4                       \r\nRINGAX  28              50.0    28.                     4                       \r\nRINGAX  29              50.0    29.                     4                       \r\nRINGAX  30              50.0    30.                     4                       \r\nRINGAX  31              50.0    31.                     4                       \r\nRINGAX  32              50.0    32.                     4                       \r\nRINGAX  33              50.0    33.                     4                       \r\nRINGAX  34              50.0    34.                     4                       \r\nRINGAX  35              50.0    35.                     4                       \r\nRINGAX  36              50.0    36.                     4                       \r\nRINGAX  37              50.0    37.                     4                       \r\nRINGAX  38              50.0    38.                     4                       \r\nRINGAX  39              50.0    39.                     4                       \r\nRINGAX  40              50.0    40.                     4                       \r\nRINGAX  41              50.0    41.                     4                       \r\nRINGAX  42              50.0    42.                     4                       \r\nRINGAX  43              50.0    43.                     4                       \r\nRINGAX  44              50.0    44.                     4                       \r\nRINGAX  45              50.0    45.                     4                       \r\nRINGAX  46              50.0    46.                     4                       \r\nRINGAX  47              50.0    47.                     4                       \r\nRINGAX  48              50.0    48.                     4                       \r\nRINGAX  49              50.0    49.                     4                       \r\nRINGAX  50              50.0    50.                     1234                    \r\nRINGAX  100             50.0    .0                      1234                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01051a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$            Nonsymmetric Bending of a Cylinder of Revolution (1-5-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the application of the conical shell element and its\r\n$ related special data. This element uses the Fourier components of displacement\r\n$ around an axisymmetric structure as the solution coordinates. The geometry of\r\n$ the structure is defined by rings instead of grid points. Its constraints must\r\n$ be defined by the particular Fourier harmonics, and the loads must be defined\r\n$ either with special data or in a harmonic form. This element may not be used\r\n$ in conjunction with any of the other structural elements.\r\n$ \r\n$ The structure to be solved is described in Reference 6. It consists of a\r\n$ short, wide cylinder with a moderate thickness ratio. The applied loads and\r\n$ the output stresses are pure uncoupled harmonics. The basic purpose of this\r\n$ problem is to check the harmonic deflections, element stresses, and forces.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The Fourier coefficients of the applied moment per length are:\r\n$ \r\n$ m   = cos(n theta)                                                         (1)\r\n$  n\r\n$ \r\n$ The applied input loads are defined as:\r\n$ \r\n$ M   = integrate o to 2 pi (m  cos (n theta) R d theta)                     (2)\r\n$  n                          n\r\n$ \r\n$ The values of applied moment on the MOMAX cards are:\r\n$ \r\n$ M      = piR      n > 0                                                    (3)\r\n$  n phi\r\n$ \r\n$ and\r\n$ \r\n$ M      =  2piR    n = 0                                                    (4)\r\n$  o phi\r\n$ \r\n$ The bending moments in the elements are defined as:\r\n$ \r\n$ M   =  Moment about u                                                      (5)\r\n$  v                   phi\r\n$ \r\n$ and\r\n$ \r\n$ M   =  Moment about u                                                      (6)\r\n$  u                   z\r\n$ \r\n$ Positive bending moments indicate compression on the outer side.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$  R  =  50    Radius\r\n$ \r\n$  s  =  50    Height\r\n$ \r\n$  t  =  1.0   Thickness\r\n$ \r\n$  E  =  91.0  Modulus of Elasticity\r\n$ \r\n$  v  =  0.3   Poisson's Ratio\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$  M (100) =  157.0796    Force x Length\r\n$   n\r\n$ \r\n$  M (50)  = -157.0796    Force x Length\r\n$   n\r\n$ \r\n$ 3. Single Point Constraints:\r\n$ \r\n$  Ring ID  Harmonic   Coordinates\r\n$ \r\n$    50       all      u ,u   ,u    Radial, tangential and axial translations\r\n$                       r  phi  z\r\n$   100       all      u ,u   ,u    Radial, tangential and axial translations\r\n$                       r  phi  z\r\n$   all       all      theta        Rotation normal to surface\r\n$                           r\r\n$ \r\n$ The AXISYM = COSINE statement in case control defines the motions to be\r\n$ symmetric with respect to the x-z plane.\r\n$ \r\n$ C. Results\r\n$ \r\n$ Notice that for higher harmonics the effect of the load is limited to the\r\n$ edges. A smaller element size at the edges and a relatively large size in the\r\n$ center would have given the same accuracy with fewer degrees of freedom.\r\n$  \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 6. B. Budiansky and P. P. Radkowski, \"Numerical Analysis of Unsymmetrlc\r\n$    Bending of Shells of Revolution\", AIAA Journal, August, 1963.\r\n$ \r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01061a.inp",
    "content": "ID    D01061A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1,1                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD                        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-1A                          \r\nLABEL    = TRAPEZOIDAL RING ELEMENTS                                            \r\nSPC = 16                                                                        \r\nTEMPERATURE(LOAD) = 16                                                          \r\n    OUTPUT                                                                      \r\n       SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26                             \r\n       DISP  = 1                                                                \r\n       ELSTRESS = ALL                                                           \r\nBEGIN BULK                                                                      \r\nCTRAPRG 1       1       3       4       2       .0      12                      \r\nCTRAPRG 2       3       5       6       4       .0      12                      \r\nCTRAPRG 3       5       7       8       6       .0      12                      \r\nCTRAPRG 4       7       9       10      8       .0      12                      \r\nCTRAPRG 5       9       11      12      10      .0      12                      \r\nCTRAPRG 6       11      13      14      12      .0      12                      \r\nCTRAPRG 7       13      15      16      14      .0      12                      \r\nCTRAPRG 8       15      17      18      16      .0      12                      \r\nCTRAPRG 9       17      19      20      18      .0      12                      \r\nCTRAPRG 10      19      21      22      20      .0      12                      \r\nCTRAPRG 11      21      23      24      22      .0      12                      \r\nCTRAPRG 12      23      25      26      24      .0      12                      \r\nGRDSET                                                  2456                    \r\nGRID    1               .0                                                      \r\nGRID    2               .0              .01                                     \r\nGRID    3               .005                                                    \r\nGRID    4               .005            .01                                     \r\nGRID    5               .01                                                     \r\nGRID    6               .01             .01                                     \r\nGRID    7               .015                                                    \r\nGRID    8               .015            .01                                     \r\nGRID    9               .02                                                     \r\nGRID    10              .02             .01                                     \r\nGRID    11              .03                                                     \r\nGRID    12              .03             .01                                     \r\nGRID    13              .04                                                     \r\nGRID    14              .04             .01                                     \r\nGRID    15              .05                                                     \r\nGRID    16              .05             .01                                     \r\nGRID    17              .06                                                     \r\nGRID    18              .06             .01                                     \r\nGRID    19              .07                                                     \r\nGRID    20              .07             .01                                     \r\nGRID    21              .08                                                     \r\nGRID    22              .08             .01                                     \r\nGRID    23              .09                                                     \r\nGRID    24              .09             .01                                     \r\nGRID    25              .10                                                     \r\nGRID    26              .10             .01                                     \r\nMAT1    12      1.0+7           .3      .2587-3 1.0-7   .0                      \r\nSPC     16      1       13      .0      2       1       .0                      \r\nTEMP    16      1       100.    2       100.    3       99.75                   \r\nTEMP    16      4       99.75   5       99.0    6       99.0                    \r\nTEMP    16      7       97.75   8       97.75   9       96.0                    \r\nTEMP    16      10      96.0    11      91.0    12      91.0                    \r\nTEMP    16      13      84.0    14      84.0    15      75.0                    \r\nTEMP    16      16      75.0    17      64.0    18      64.0                    \r\nTEMP    16      19      51.0    20      51.0    21      36.0                    \r\nTEMP    16      22      36.0    23      19.0    24      19.0                    \r\nTEMP    16      25      .0      26      .0                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01061a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$              Solid Disk with Radially Varying Thermal Load (1-6-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of the NASTRAN axisymmetric solid element,\r\n$ the trapezoidal ring. The trapezoidal ring elements are used to model a solid\r\n$ circular disk which is subjected to a radially varying thermal load of the\r\n$ form\r\n$                      2\r\n$                     r\r\n$      T  =  100(1 - --- )                                                   (1)\r\n$                      2\r\n$                     b\r\n$ where\r\n$ \r\n$      r = the radius at any point in the disk,\r\n$ \r\n$ and\r\n$ \r\n$      b = the outside radius = 0.10 inches.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The thermal loading on the solid disk is established via an internally\r\n$ generated thermal load vector derived from specified grid point temperature\r\n$ values.\r\n$  \r\n$ 1. Parameters\r\n$ \r\n$    R = 0.10 in                   (radius)\r\n$ \r\n$    t = 0.01 in                   (thickness)\r\n$                7       2\r\n$    E = 1.0 x 10   lb/in          (modulus of elasticity)\r\n$ \r\n$    u = 0.3                       (Poisson's ratio)\r\n$                -6\r\n$    alpha = 0.1 x 10 in/in/deg. F (thermal expansion coefficient)\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$    u  = u  = u   = u  = 0.0  at all grids (required by use of the\r\n$     2    4    5     6        axisymmetric solid element)\r\n$ \r\n$    u  = u  = 0.0             at Grid 1\r\n$     1    3\r\n$ \r\n$    u  = 0.0                  at Grid 2\r\n$     1\r\n$ \r\n$ 3. Loads\r\n$ \r\n$ The thermal load is specified on TEMP Bulk Data cards.\r\n$  \r\n$ C. Results\r\n$ \r\n$ Reference 14 provides an analytical solution to this problem which is based on\r\n$ the theory of elasticity.\r\n$  \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 14. C. T. Wang, \"APPLIED ELASTICITY\", McGraw-Hill, 1953.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01062a.inp",
    "content": "ID    D01062A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1,1                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)              \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A                          \r\nLABEL = TRAPEZOIDAL RING ELEMENTS                                               \r\nECHO  = BOTH                                                                    \r\nSPC   = 16                                                                      \r\nTEMPERATURE(LOAD) = 16                                                          \r\n    OUTPUT                                                                      \r\n    SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26                                \r\n    DISP  = 1                                                                   \r\n    ELSTRESS = ALL                                                              \r\nBEGIN BULK                                                                      \r\nCTRAPRG, 1,1,3,4,2,.0,12                                                        \r\n=(11), *(1) *(2),///, ==                                                        \r\nGRDSET, 8)2456                                                                  \r\nGRID,1,,.0                                                                      \r\n=(3),*(2),,*(.005)                                                              \r\nGRID,2,,.0,,.01                                                                 \r\n=(3),*(2),,*(.005),==                                                           \r\nGRID,9,,.02                                                                     \r\n=(8),*(2),,%(.10)                                                               \r\nGRID,10,,.02,,.01                                                               \r\n=(8),*(2),,%(.10),==                                                            \r\nMAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0                                              \r\nSPC,16,1,13,.0,2,1,.0                                                           \r\nTEMP,16,1,100.,2,100.,3,99.75                                                   \r\n=,=,4,99.75,5,99.0,6,99.0                                                       \r\n=,=,7,97.75,8,97.75,9,96.0                                                      \r\n=,=,10,96.0,11,91.0,12,91.0                                                     \r\n=,=,13,84.0,14,84.0,15,75.0                                                     \r\n=,=,16,75.0,17,64.0,18,64.0                                                     \r\n=,=,19,51.0,20,51.0,21,36.0                                                     \r\n=,=,22,36.0,23,19.0,24,19.0                                                     \r\n=,=,25,.0,26,.0                                                                 \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01071a.inp",
    "content": "ID    D01071A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = SPHERICAL SHELL WITH TOROIDAL RING ELEMENT                           \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-07-1A                          \r\nLABEL    = EXTERNAL PRESSURE LOADING                                            \r\n    SPC  = 1                                                                    \r\n    LOAD = 1                                                                    \r\nOUTPUT                                                                          \r\n    DISP = ALL                                                                  \r\n   OLOAD = ALL                                                                  \r\n ELFORCE = ALL                                                                  \r\nSTRESSES = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCTORDRG 1       1       1       2       .0      2.0                             \r\nCTORDRG 2       1       2       3       2.0     4.0                             \r\nCTORDRG 3       1       3       4       4.0     6.0                             \r\nCTORDRG 4       1       4       5       6.0     8.0                             \r\nCTORDRG 5       1       5       6       8.0     10.0                            \r\nCTORDRG 6       1       6       7       10.0    15.0                            \r\nCTORDRG 7       1       7       8       15.0    20.0                            \r\nCTORDRG 8       1       8       9       20.0    25.0                            \r\nCTORDRG 9       1       9       10      25.0    27.0                            \r\nCTORDRG 10      1       10      11      27.0    29.0                            \r\nCTORDRG 11      1       11      12      29.0    31.0                            \r\nCTORDRG 12      1       12      13      31.0    33.0                            \r\nCTORDRG 13      1       13      14      33.0    35.0                            \r\nFORCE   1       1       0       1.0     .0      .0      -8.85885                \r\nFORCE   1       2       0       1.0     -2.16381.0      -61.9635                \r\nFORCE   1       3       0       1.0     -8.64421.0      -123.618                \r\nFORCE   1       4       0       1.0     -19.4063.0      -184.639                \r\nFORCE   1       5       0       1.0     -34.4036.0      -244.795                \r\nFORCE   1       6       0       1.0     -101.669.0      -576.596                \r\nFORCE   1       7       0       1.0     -297.393.0      -1109.89                \r\nFORCE   1       8       0       1.0     -519.309.0      -1426.79                \r\nFORCE   1       9       0       1.0     -537.246.0      -1153.13                \r\nFORCE   1       10      0       1.0     -366.120.0      -718.555                \r\nFORCE   1       11      0       1.0     -417.584.0      -753.352                \r\nFORCE   1       12      0       1.0     -471.266.0      -784.318                \r\nFORCE   1       13      0       1.0     -526.891.0      -811.340                \r\nGRDSET                                                  2                       \r\nGRID    1       0       .0      .0      90.00                                   \r\nGRID    2       0       3.141   .0      89.9451                                 \r\nGRID    3       0       6.2784  .0      89.7804                                 \r\nGRID    4       0       9.4077  .0      89.5068                                 \r\nGRID    5       0       12.5253 .0      89.1243                                 \r\nGRID    6       0       15.6285 .0      88.6329                                 \r\nGRID    7       0       23.2938 .0      86.9337                                 \r\nGRID    8       0       30.7818 .0      84.5721                                 \r\nGRID    9       0       38.0358 .0      81.5679                                 \r\nGRID    10      0       40.8591 .0      80.1909                                 \r\nGRID    11      0       43.6329 .0      78.7158                                 \r\nGRID    12      0       46.3536 .0      77.1453                                 \r\nGRID    13      0       49.0176 .0      75.4803                                 \r\nGRID    14      0       51.6222 .0      73.7235                                 \r\nMAT1    12      3.0E6           .1667           12.5 E-6.0              CMAT11  \r\nMOMENT  1       2       0       1.0     14.83917.0      -10.1998                \r\nMOMENT  1       3       0       1.0     14.79298.0      -20.3822                \r\nMOMENT  1       4       0       1.0     14.73849.0      -30.5275                \r\nMOMENT  1       5       0       1.0     14.73710.0      -40.6554                \r\nMOMENT  1       6       0       1.0     629.9624.0      -503.492                \r\nMOMENT  1       7       0       1.0     223.9160.0      -1180.98                \r\nMOMENT  1       8       0       1.0     217.7740.0      -1560.45                \r\nMOMENT  1       9       0       1.0     -1125.59.0      -950.370                \r\nMOMENT  1       10      0       1.0     13.35776.0      -132.642                \r\nMOMENT  1       11      0       1.0     13.01903.0      -141.715                \r\nMOMENT  1       12      0       1.0     12.64240.0      -150.533                \r\nMOMENT  1       13      0       1.0     12.29669.0      -159.092                \r\nPTORDRG 1       12      3.0     3.0                                             \r\nSPC     1       1       14      .0      14      134     .0                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01071a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$     Shallow Spherical Shell Subjected to External Pressure Loading (1-7-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The shallow spherical shell problem (see Problem 1-2-1) is again solved to\r\n$ demonstrate the applicability of the shell cap generalization of the toroidal\r\n$ ring element to this type of problem.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The shallow spherical shell with a built-in edge is subjected to an external\r\n$ pressure loading of 1 psi. Due to symmetry, only one half of the shell was\r\n$ analyzed.\r\n$  \r\n$ 1. Parameters\r\n$ \r\n$      r = 90.0 in.           (radius)\r\n$ \r\n$      t = 3.0 in.            (thickness)\r\n$                   6      2\r\n$      E = 3.0  x 10  lb/in   (modulus of elasticity)\r\n$ \r\n$      v = .1666              (Poisson's ratio)\r\n$ \r\n$ 2. Constraints\r\n$ \r\n$      u  =  0.0              all Grids\r\n$       2\r\n$ \r\n$      u   = u   = 0.0        Grid 1\r\n$       1     4\r\n$ \r\n$      u   = u   = u   = 0.0  Grid 14\r\n$       1     3     4\r\n$ \r\n$ 3. Loads\r\n$ \r\n$ Forces and moments are applied to the grid points to simulate an external\r\n$ pressure load of 1 psi.\r\n$ \r\n$ C. Results\r\n$ \r\n$ The meridional bending moment is taken to characterize the behavior predicted\r\n$ for this structure. The exact solution from Reference 4 and the 13-element\r\n$ NASTRAN model solution are quite close.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 4. S. Timoshemko, THEORY OF PLATES AND SHELLS. McGraw Hill, 1940.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01081a.inp",
    "content": "ID    D01081A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,3                                                                       \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = 1 X 4 X 10  CANTILEVER BEAM USING CUBIC CHEXA1 ELEMENTS.             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-08-1A                          \r\nLABEL    = TWO PLANES OF SYMMETRY, PURE BENDING MOMENT                          \r\n     SPC = 10                                                                   \r\n    LOAD = 10                                                                   \r\nOUTPUT                                                                          \r\n      DISPLACEMENT = ALL                                                        \r\n      SPCFORCE = ALL                                                            \r\n      OLOAD  = ALL                                                              \r\n      STRESS = ALL                                                              \r\nBEGIN BULK                                                                      \r\nCHEXA1  1       1       2       1       3       4       12      11      +HEX   1\r\n+HEX   113      14                                                              \r\nCHEXA1  2       1       4       3       5       6       14      13      +HEX   2\r\n+HEX   215      16                                                              \r\nCHEXA1  3       1       6       5       7       8       16      15      +HEX   3\r\n+HEX   317      18                                                              \r\nCHEXA1  4       1       8       7       9       10      18      17      +HEX   4\r\n+HEX   419      20                                                              \r\nCHEXA1  5       1       12      11      13      14      22      21      +HEX   5\r\n+HEX   523      24                                                              \r\nCHEXA1  6       1       14      13      15      16      24      23      +HEX   6\r\n+HEX   625      26                                                              \r\nCHEXA1  7       1       16      15      17      18      26      25      +HEX   7\r\n+HEX   727      28                                                              \r\nCHEXA1  8       1       18      17      19      20      28      27      +HEX   8\r\n+HEX   829      30                                                              \r\nCHEXA1  9       1       22      21      23      24      32      31      +HEX   9\r\n+HEX   933      34                                                              \r\nCHEXA1  10      1       24      23      25      26      34      33      +HEX  10\r\n+HEX  1035      36                                                              \r\nCHEXA1  11      1       26      25      27      28      36      35      +HEX  11\r\n+HEX  1137      38                                                              \r\nCHEXA1  12      1       28      27      29      30      38      37      +HEX  12\r\n+HEX  1239      40                                                              \r\nCHEXA1  13      1       32      31      33      34      42      41      +HEX  13\r\n+HEX  1343      44                                                              \r\nCHEXA1  14      1       34      33      35      36      44      43      +HEX  14\r\n+HEX  1445      46                                                              \r\nCHEXA1  15      1       36      35      37      38      46      45      +HEX  15\r\n+HEX  1547      48                                                              \r\nCHEXA1  16      1       38      37      39      40      48      47      +HEX  16\r\n+HEX  1649      50                                                              \r\nCHEXA1  17      1       42      41      43      44      52      51      +HEX  17\r\n+HEX  1753      54                                                              \r\nCHEXA1  18      1       44      43      45      46      54      53      +HEX  18\r\n+HEX  1855      56                                                              \r\nCHEXA1  19      1       46      45      47      48      56      55      +HEX  19\r\n+HEX  1957      58                                                              \r\nCHEXA1  20      1       48      47      49      50      58      57      +HEX  20\r\n+HEX  2059      60                                                              \r\nCHEXA1  21      1       52      51      53      54      62      61      +HEX  21\r\n+HEX  2163      64                                                              \r\nCHEXA1  22      1       54      53      55      56      64      63      +HEX  22\r\n+HEX  2265      66                                                              \r\nCHEXA1  23      1       56      55      57      58      66      65      +HEX  23\r\n+HEX  2367      68                                                              \r\nCHEXA1  24      1       58      57      59      60      68      67      +HEX  24\r\n+HEX  2469      70                                                              \r\nCHEXA1  25      1       62      61      63      64      72      71      +HEX  25\r\n+HEX  2573      74                                                              \r\nCHEXA1  26      1       64      63      65      66      74      73      +HEX  26\r\n+HEX  2675      76                                                              \r\nCHEXA1  27      1       66      65      67      68      76      75      +HEX  27\r\n+HEX  2777      78                                                              \r\nCHEXA1  28      1       68      67      69      70      78      77      +HEX  28\r\n+HEX  2879      80                                                              \r\nCHEXA1  29      1       72      71      73      74      82      81      +HEX  29\r\n+HEX  2983      84                                                              \r\nCHEXA1  30      1       74      73      75      76      84      83      +HEX  30\r\n+HEX  3085      86                                                              \r\nCHEXA1  31      1       76      75      77      78      86      85      +HEX  31\r\n+HEX  3187      88                                                              \r\nCHEXA1  32      1       78      77      79      80      88      87      +HEX  32\r\n+HEX  3289      90                                                              \r\nCHEXA1  33      1       82      81      83      84      92      91      +HEX  33\r\n+HEX  3393      94                                                              \r\nCHEXA1  34      1       84      83      85      86      94      93      +HEX  34\r\n+HEX  3495      96                                                              \r\nCHEXA1  35      1       86      85      87      88      96      95      +HEX  35\r\n+HEX  3597      98                                                              \r\nCHEXA1  36      1       88      87      89      90      98      97      +HEX  36\r\n+HEX  3699      100                                                             \r\nCHEXA1  37      1       92      91      93      94      102     101     +HEX  37\r\n+HEX  37103     104                                                             \r\nCHEXA1  38      1       94      93      95      96      104     103     +HEX  38\r\n+HEX  38105     106                                                             \r\nCHEXA1  39      1       96      95      97      98      106     105     +HEX  39\r\n+HEX  39107     108                                                             \r\nCHEXA1  40      1       98      97      99      100     108     107     +HEX  40\r\n+HEX  40109     110                                                             \r\nCNGRNT  1       2       THRU    40                                              \r\nFORCE   10      103             5.818182-1.0    .0      .0                      \r\nFORCE   10      104             5.818182-1.0    .0      .0                      \r\nFORCE   10      105             5.818182-2.0    .0      .0                      \r\nFORCE   10      106             5.818182-2.0    .0      .0                      \r\nFORCE   10      107             5.818182-3.0    .0      .0                      \r\nFORCE   10      108             5.818182-3.0    .0      .0                      \r\nFORCE   10      109             5.818182-2.0    .0      .0                      \r\nFORCE   10      110             5.818182-2.0    .0      .0                      \r\nGRID    1               .00     .00     .00             456                     \r\nGRID    2               .00     .00     2.00000         456                     \r\nGRID    3               .00     2.00000 .00             456                     \r\nGRID    4               .00     2.00000 2.00000         456                     \r\nGRID    5               .00     4.00000 .00             456                     \r\nGRID    6               .00     4.00000 2.00000         456                     \r\nGRID    7               .00     6.00000 .00             456                     \r\nGRID    8               .00     6.00000 2.00000         456                     \r\nGRID    9               .00     8.00000 .00             456                     \r\nGRID    10              .00     8.00000 2.00000         456                     \r\nGRID    11              2.00000 .00     .00             456                     \r\nGRID    12              2.00000 .00     2.00000         456                     \r\nGRID    13              2.00000 2.00000 .00             456                     \r\nGRID    14              2.00000 2.00000 2.00000         456                     \r\nGRID    15              2.00000 4.00000 .00             456                     \r\nGRID    16              2.00000 4.00000 2.00000         456                     \r\nGRID    17              2.00000 6.00000 .00             456                     \r\nGRID    18              2.00000 6.00000 2.00000         456                     \r\nGRID    19              2.00000 8.00000 .00             456                     \r\nGRID    20              2.00000 8.00000 2.00000         456                     \r\nGRID    21              4.00000 .00     .00             456                     \r\nGRID    22              4.00000 .00     2.00000         456                     \r\nGRID    23              4.00000 2.00000 .00             456                     \r\nGRID    24              4.00000 2.00000 2.00000         456                     \r\nGRID    25              4.00000 4.00000 .00             456                     \r\nGRID    26              4.00000 4.00000 2.00000         456                     \r\nGRID    27              4.00000 6.00000 .00             456                     \r\nGRID    28              4.00000 6.00000 2.00000         456                     \r\nGRID    29              4.00000 8.00000 .00             456                     \r\nGRID    30              4.00000 8.00000 2.00000         456                     \r\nGRID    31              6.00000 .00     .00             456                     \r\nGRID    32              6.00000 .00     2.00000         456                     \r\nGRID    33              6.00000 2.00000 .00             456                     \r\nGRID    34              6.00000 2.00000 2.00000         456                     \r\nGRID    35              6.00000 4.00000 .00             456                     \r\nGRID    36              6.00000 4.00000 2.00000         456                     \r\nGRID    37              6.00000 6.00000 .00             456                     \r\nGRID    38              6.00000 6.00000 2.00000         456                     \r\nGRID    39              6.00000 8.00000 .00             456                     \r\nGRID    40              6.00000 8.00000 2.00000         456                     \r\nGRID    41              8.00000 .00     .00             456                     \r\nGRID    42              8.00000 .00     2.00000         456                     \r\nGRID    43              8.00000 2.00000 .00             456                     \r\nGRID    44              8.00000 2.00000 2.00000         456                     \r\nGRID    45              8.00000 4.00000 .00             456                     \r\nGRID    46              8.00000 4.00000 2.00000         456                     \r\nGRID    47              8.00000 6.00000 .00             456                     \r\nGRID    48              8.00000 6.00000 2.00000         456                     \r\nGRID    49              8.00000 8.00000 .00             456                     \r\nGRID    50              8.00000 8.00000 2.00000         456                     \r\nGRID    51              10.0000 .00     .00             456                     \r\nGRID    52              10.0000 .00     2.00000         456                     \r\nGRID    53              10.0000 2.00000 .00             456                     \r\nGRID    54              10.0000 2.00000 2.00000         456                     \r\nGRID    55              10.0000 4.00000 .00             456                     \r\nGRID    56              10.0000 4.00000 2.00000         456                     \r\nGRID    57              10.0000 6.00000 .00             456                     \r\nGRID    58              10.0000 6.00000 2.00000         456                     \r\nGRID    59              10.0000 8.00000 .00             456                     \r\nGRID    60              10.0000 8.00000 2.00000         456                     \r\nGRID    61              12.0000 .00     .00             456                     \r\nGRID    62              12.0000 .00     2.00000         456                     \r\nGRID    63              12.0000 2.00000 .00             456                     \r\nGRID    64              12.0000 2.00000 2.00000         456                     \r\nGRID    65              12.0000 4.00000 .00             456                     \r\nGRID    66              12.0000 4.00000 2.00000         456                     \r\nGRID    67              12.0000 6.00000 .00             456                     \r\nGRID    68              12.0000 6.00000 2.00000         456                     \r\nGRID    69              12.0000 8.00000 .00             456                     \r\nGRID    70              12.0000 8.00000 2.00000         456                     \r\nGRID    71              14.0000 .00     .00             456                     \r\nGRID    72              14.0000 .00     2.00000         456                     \r\nGRID    73              14.0000 2.00000 .00             456                     \r\nGRID    74              14.0000 2.00000 2.00000         456                     \r\nGRID    75              14.0000 4.00000 .00             456                     \r\nGRID    76              14.0000 4.00000 2.00000         456                     \r\nGRID    77              14.0000 6.00000 .00             456                     \r\nGRID    78              14.0000 6.00000 2.00000         456                     \r\nGRID    79              14.0000 8.00000 .00             456                     \r\nGRID    80              14.0000 8.00000 2.00000         456                     \r\nGRID    81              16.0000 .00     .00             456                     \r\nGRID    82              16.0000 .00     2.00000         456                     \r\nGRID    83              16.0000 2.00000 .00             456                     \r\nGRID    84              16.0000 2.00000 2.00000         456                     \r\nGRID    85              16.0000 4.00000 .00             456                     \r\nGRID    86              16.0000 4.00000 2.00000         456                     \r\nGRID    87              16.0000 6.00000 .00             456                     \r\nGRID    88              16.0000 6.00000 2.00000         456                     \r\nGRID    89              16.0000 8.00000 .00             456                     \r\nGRID    90              16.0000 8.00000 2.00000         456                     \r\nGRID    91              18.0000 .00     .00             456                     \r\nGRID    92              18.0000 .00     2.00000         456                     \r\nGRID    93              18.0000 2.00000 .00             456                     \r\nGRID    94              18.0000 2.00000 2.00000         456                     \r\nGRID    95              18.0000 4.00000 .00             456                     \r\nGRID    96              18.0000 4.00000 2.00000         456                     \r\nGRID    97              18.0000 6.00000 .00             456                     \r\nGRID    98              18.0000 6.00000 2.00000         456                     \r\nGRID    99              18.0000 8.00000 .00             456                     \r\nGRID    100             18.0000 8.00000 2.00000         456                     \r\nGRID    101             20.0000 .00     .00             456                     \r\nGRID    102             20.0000 .00     2.00000         456                     \r\nGRID    103             20.0000 2.00000 .00             456                     \r\nGRID    104             20.0000 2.00000 2.00000         456                     \r\nGRID    105             20.0000 4.00000 .00             456                     \r\nGRID    106             20.0000 4.00000 2.00000         456                     \r\nGRID    107             20.0000 6.00000 .00             456                     \r\nGRID    108             20.0000 6.00000 2.00000         456                     \r\nGRID    109             20.0000 8.00000 .00             456                     \r\nGRID    110             20.0000 8.00000 2.00000         456                     \r\nMAT1    1       3.0+6           .2      1.0     .001    10.0            +MAT1   \r\nSPC     10      1       123     .0      2       13      .0                      \r\nSPC1    10      1       3       4       5       6       7       8       +3      \r\n+3      9       10                                                              \r\nSPC1    10      3       3       5       7       9                               \r\nSPC1    10      3       11      13      15      17      19                      \r\nSPC1    10      3       21      23      25      27      29                      \r\nSPC1    10      3       31      33      35      37      39                      \r\nSPC1    10      3       41      43      45      47      49                      \r\nSPC1    10      3       51      53      55      57      59                      \r\nSPC1    10      3       61      63      65      67      69                      \r\nSPC1    10      3       71      73      75      77      79                      \r\nSPC1    10      3       81      83      85      87      89                      \r\nSPC1    10      3       91      93      95      97      99                      \r\nSPC1    10      3       101     103     105     107     109                     \r\nSPC1    10      13      11      12      21      22      31      32      +1      \r\n+1      41      42      51      52      61      62      71      72      +2      \r\n+2      81      82      91      92      101     102                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01081a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$         Bending of a Beam Fabricated from HEXA1 Solid Elements (1-8-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The properties of solid bodies may be modeled with the NASTRAN tetrahedra,\r\n$ wedge, or hexahedron finite elements. This problem demonstrates the analysis\r\n$ of a solid fabricated from the six-sided HEXA1 solid elements. The problem\r\n$ consists of a rectangular parallelopiped subdivided into forty cubic\r\n$ subelements.\r\n$ \r\n$ The loads were chosen to approximate the stress distribution due to a moment\r\n$ on one end of a beam; the other end is constrained to resist the moment. Two\r\n$ planes of symmetry were used to simulate an actual problem having twice the\r\n$ width and twice the height.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    l = 20.0 (length)\r\n$ \r\n$    w = 4.0 (width of full section)\r\n$ \r\n$    h = 16.0 (height of full section)\r\n$ \r\n$                6\r\n$    E = 3.0 x 10  (modulus of elasticity)\r\n$ \r\n$    v = 0.2 (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Constraints:\r\n$ \r\n$    on y = theta plane, u  = u  = theta (antisymmetry)\r\n$                         x    z\r\n$ \r\n$    on z = theta plane, u  = theta (symmetry)\r\n$                         z\r\n$ \r\n$    on x = theta plane, u  = theta (symmetry)\r\n$                         x\r\n$ \r\n$ 3. Loads:\r\n$                                  3\r\n$    Total Moment:  M  = 2.048 x 10\r\n$                    y\r\n$ \r\n$ This moment will produce bending about the z axis. It is modeled by a set of\r\n$ axial loads at x = l which, in turn, represent an axial stress distribution:\r\n$ \r\n$ \r\n$    sigma   = 1.5y                                                          (1)\r\n$         xx\r\n$ \r\n$ C. Theory\r\n$ \r\n$ A prismatic beam with an axial stress which varies linearly over the cross\r\n$ section has an exact solution. The theoretical stress distribution is\r\n$ \r\n$               M\r\n$    sigma   = --- y                                                         (2)\r\n$         xx    I\r\n$ \r\n$ and\r\n$ \r\n$    sigma   = sigma   = tau   = tau   = 0\r\n$         yz        zz      xy      yz\r\n$ \r\n$            1    3\r\n$ where I = --- wh .\r\n$           12\r\n$ \r\n$ The displacements are:\r\n$ \r\n$                M\r\n$       u  = -  ---  xy                                                      (4)\r\n$        x      EI\r\n$ \r\n$              M     2     2    2\r\n$       u  =  ---  (x  - vy  -vz )                                           (5)\r\n$        y    2EI\r\n$ \r\n$ and\r\n$               M\r\n$       u  = v ---  yz                                                       (6)\r\n$        z     EI\r\n$ \r\n$ D. Results\r\n$ \r\n$ Tables 1 and 2 are comparisons of displacements and stresses for the\r\n$ theoretical case and the NASTRAN model.\r\n$ \r\n$                      Table 1. Comparisons of Displacement\r\n$                     ---------------------------------------\r\n$                                                         -4\r\n$                                        DISPLACEMENT x 10\r\n$                                       ---------------------\r\n$                     POINT/DIRECTION    THEORY      NASTRAN\r\n$                     ---------------------------------------\r\n$                         21/y           .0400         .0417\r\n$                         41/y           .1600         .1607\r\n$                         61/y           .360          .366\r\n$                         81/y           .640          .651\r\n$                        101/y          1.000         1.016\r\n$                        109/x          0.800         0.844\r\n$                        110/z           .016         0.007\r\n$                     ---------------------------------------\r\n$ \r\n$                         Table 2. Comparisons of Stress\r\n$           ------------------------------------------------------------\r\n$                             THEORY                     NASTRAN\r\n$           ELEMENT    -----------------------    ----------------------\r\n$                      sigma    sigma    tau       sigma   sigma   tau\r\n$                           xx       yy     xy          xx      yy    xy\r\n$           ------------------------------------------------------------\r\n$              1       -1.5       0       0       -1.56     .02   -.01\r\n$ \r\n$              2       -4.5       0       0       -4.53     .036  -.05\r\n$ \r\n$              3       -7.5       0       0       -7.39     .06   -.06\r\n$ \r\n$              4      -10.5       0       0       -9.95    -.11    .12\r\n$           ------------------------------------------------------------\r\n$            NOTE:  NASTRAN stresses are average; theoretIcal stresses\r\n$            are calculated at the center of the element.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01091a.inp",
    "content": "ID    D01091A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1,3                                                                       \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = 2 X 2 X 10  FIXED-FREE BEAM USING RECTANGULAR CHEXA2 ELEMENTS.       \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-1A                          \r\nLABEL    = TWO PLANES OF SYMMETRY                                               \r\nSPC = 2                                                                         \r\n   OUTPUT                                                                       \r\n        DISPLACEMENTS = ALL                                                     \r\n        OLOAD = ALL                                                             \r\nSUBCASE 1                                                                       \r\n        LOAD = 20                                                               \r\n        LABEL = UNIFORM STRESS.                                                 \r\n        SPCFORCE = ALL                                                          \r\n        STRESS = ALL                                                            \r\nSUBCASE 2                                                                       \r\n        TEMPERATURE(LOAD) = 30                                                  \r\n        LABEL = UNIFORM TEMPERATURE LOAD.                                       \r\nBEGIN BULK                                                                      \r\nCHEXA2  1       1       1       2       5       4       10      11      +HEX   1\r\n+HEX   114      13                                                              \r\nCHEXA2  2       1       2       3       6       5       11      12      +HEX   2\r\n+HEX   215      14                                                              \r\nCHEXA2  3       1       4       5       8       7       13      14      +HEX   3\r\n+HEX   317      16                                                              \r\nCHEXA2  4       1       5       6       9       8       14      15      +HEX   4\r\n+HEX   418      17                                                              \r\nCHEXA2  5       1       10      11      14      13      19      20      +HEX   5\r\n+HEX   523      22                                                              \r\nCHEXA2  6       1       11      12      15      14      20      21      +HEX   6\r\n+HEX   624      23                                                              \r\nCHEXA2  7       1       13      14      17      16      22      23      +HEX   7\r\n+HEX   726      25                                                              \r\nCHEXA2  8       1       14      15      18      17      23      24      +HEX   8\r\n+HEX   827      26                                                              \r\nCHEXA2  9       1       19      20      23      22      28      29      +HEX   9\r\n+HEX   932      31                                                              \r\nCHEXA2  10      1       20      21      24      23      29      30      +HEX  10\r\n+HEX  1033      32                                                              \r\nCHEXA2  11      1       22      23      26      25      31      32      +HEX  11\r\n+HEX  1135      34                                                              \r\nCHEXA2  12      1       23      24      27      26      32      33      +HEX  12\r\n+HEX  1236      35                                                              \r\nCHEXA2  13      1       28      29      32      31      37      38      +HEX  13\r\n+HEX  1341      40                                                              \r\nCHEXA2  14      1       29      30      33      32      38      39      +HEX  14\r\n+HEX  1442      41                                                              \r\nCHEXA2  15      1       31      32      35      34      40      41      +HEX  15\r\n+HEX  1544      43                                                              \r\nCHEXA2  16      1       32      33      36      35      41      42      +HEX  16\r\n+HEX  1645      44                                                              \r\nCHEXA2  17      1       37      38      41      40      46      47      +HEX  17\r\n+HEX  1750      49                                                              \r\nCHEXA2  18      1       38      39      42      41      47      48      +HEX  18\r\n+HEX  1851      50                                                              \r\nCHEXA2  19      1       40      41      44      43      49      50      +HEX  19\r\n+HEX  1953      52                                                              \r\nCHEXA2  20      1       41      42      45      44      50      51      +HEX  20\r\n+HEX  2054      53                                                              \r\nCHEXA2  21      1       46      47      50      49      55      56      +HEX  21\r\n+HEX  2159      58                                                              \r\nCHEXA2  22      1       47      48      51      50      56      57      +HEX  22\r\n+HEX  2260      59                                                              \r\nCHEXA2  23      1       49      50      53      52      58      59      +HEX  23\r\n+HEX  2362      61                                                              \r\nCHEXA2  24      1       50      51      54      53      59      60      +HEX  24\r\n+HEX  2463      62                                                              \r\nCHEXA2  25      1       55      56      59      58      64      65      +HEX  25\r\n+HEX  2568      67                                                              \r\nCHEXA2  26      1       56      57      60      59      65      66      +HEX  26\r\n+HEX  2669      68                                                              \r\nCHEXA2  27      1       58      59      62      61      67      68      +HEX  27\r\n+HEX  2771      70                                                              \r\nCHEXA2  28      1       59      60      63      62      68      69      +HEX  28\r\n+HEX  2872      71                                                              \r\nCHEXA2  29      1       64      65      68      67      73      74      +HEX  29\r\n+HEX  2977      76                                                              \r\nCHEXA2  30      1       65      66      69      68      74      75      +HEX  30\r\n+HEX  3078      77                                                              \r\nCHEXA2  31      1       67      68      71      70      76      77      +HEX  31\r\n+HEX  3180      79                                                              \r\nCHEXA2  32      1       68      69      72      71      77      78      +HEX  32\r\n+HEX  3281      80                                                              \r\nCHEXA2  33      1       73      74      77      76      82      83      +HEX  33\r\n+HEX  3386      85                                                              \r\nCHEXA2  34      1       74      75      78      77      83      84      +HEX  34\r\n+HEX  3487      86                                                              \r\nCHEXA2  35      1       76      77      80      79      85      86      +HEX  35\r\n+HEX  3589      88                                                              \r\nCHEXA2  36      1       77      78      81      80      86      87      +HEX  36\r\n+HEX  3690      89                                                              \r\nCHEXA2  37      1       82      83      86      85      91      92      +HEX  37\r\n+HEX  3795      94                                                              \r\nCHEXA2  38      1       83      84      87      86      92      93      +HEX  38\r\n+HEX  3896      95                                                              \r\nCHEXA2  39      1       85      86      89      88      94      95      +HEX  39\r\n+HEX  3998      97                                                              \r\nCHEXA2  40      1       86      87      90      89      95      96      +HEX  40\r\n+HEX  4099      98                                                              \r\nCNGRNT  1       2       THRU    40                                              \r\nFORCE1  20      91      .375+3  82      91                                      \r\nFORCE1  20      92      .75+3   83      92                                      \r\nFORCE1  20      93      .375+3  84      93                                      \r\nFORCE1  20      94      .75+3   85      94                                      \r\nFORCE1  20      95      1.5+3   86      95                                      \r\nFORCE1  20      96      .75+3   87      96                                      \r\nFORCE1  20      97      .375+3  88      97                                      \r\nFORCE1  20      98      .75+3   89      98                                      \r\nFORCE1  20      99      .375+3  90      99                                      \r\nGRID    1               0.0     0.0     0.0             456                     \r\nGRID    2               0.0     0.0     1.00000         456                     \r\nGRID    3               0.0     0.0     2.00000         456                     \r\nGRID    4               0.0     1.00000 0.0             456                     \r\nGRID    5               0.0     1.00000 1.00000         456                     \r\nGRID    6               0.0     1.00000 2.00000         456                     \r\nGRID    7               0.0     2.00000 0.0             456                     \r\nGRID    8               0.0     2.00000 1.00000         456                     \r\nGRID    9               0.0     2.00000 2.00000         456                     \r\nGRID    10              -2.000000.0     0.0             456                     \r\nGRID    11              -2.000000.0     1.00000         456                     \r\nGRID    12              -2.000000.0     2.00000         456                     \r\nGRID    13              -2.000001.00000 0.0             456                     \r\nGRID    14              -2.000001.00000 1.00000         456                     \r\nGRID    15              -2.000001.00000 2.00000         456                     \r\nGRID    16              -2.000002.00000 0.0             456                     \r\nGRID    17              -2.000002.00000 1.00000         456                     \r\nGRID    18              -2.000002.00000 2.00000         456                     \r\nGRID    19              -4.000000.0     0.0             456                     \r\nGRID    20              -4.000000.0     1.00000         456                     \r\nGRID    21              -4.000000.0     2.00000         456                     \r\nGRID    22              -4.000001.00000 0.0             456                     \r\nGRID    23              -4.000001.00000 1.00000         456                     \r\nGRID    24              -4.000001.00000 2.00000         456                     \r\nGRID    25              -4.000002.00000 0.0             456                     \r\nGRID    26              -4.000002.00000 1.00000         456                     \r\nGRID    27              -4.000002.00000 2.00000         456                     \r\nGRID    28              -6.000000.0     0.0             456                     \r\nGRID    29              -6.000000.0     1.00000         456                     \r\nGRID    30              -6.000000.0     2.00000         456                     \r\nGRID    31              -6.000001.00000 0.0             456                     \r\nGRID    32              -6.000001.00000 1.00000         456                     \r\nGRID    33              -6.000001.00000 2.00000         456                     \r\nGRID    34              -6.000002.00000 0.0             456                     \r\nGRID    35              -6.000002.00000 1.00000         456                     \r\nGRID    36              -6.000002.00000 2.00000         456                     \r\nGRID    37              -8.000000.0     0.0             456                     \r\nGRID    38              -8.000000.0     1.00000         456                     \r\nGRID    39              -8.000000.0     2.00000         456                     \r\nGRID    40              -8.000001.00000 0.0             456                     \r\nGRID    41              -8.000001.00000 1.00000         456                     \r\nGRID    42              -8.000001.00000 2.00000         456                     \r\nGRID    43              -8.000002.00000 0.0             456                     \r\nGRID    44              -8.000002.00000 1.00000         456                     \r\nGRID    45              -8.000002.00000 2.00000         456                     \r\nGRID    46              -10.00000.0     0.0             456                     \r\nGRID    47              -10.00000.0     1.00000         456                     \r\nGRID    48              -10.00000.0     2.00000         456                     \r\nGRID    49              -10.00001.00000 0.0             456                     \r\nGRID    50              -10.00001.00000 1.00000         456                     \r\nGRID    51              -10.00001.00000 2.00000         456                     \r\nGRID    52              -10.00002.00000 0.0             456                     \r\nGRID    53              -10.00002.00000 1.00000         456                     \r\nGRID    54              -10.00002.00000 2.00000         456                     \r\nGRID    55              -12.00000.0     0.0             456                     \r\nGRID    56              -12.00000.0     1.00000         456                     \r\nGRID    57              -12.00000.0     2.00000         456                     \r\nGRID    58              -12.00001.00000 0.0             456                     \r\nGRID    59              -12.00001.00000 1.00000         456                     \r\nGRID    60              -12.00001.00000 2.00000         456                     \r\nGRID    61              -12.00002.00000 0.0             456                     \r\nGRID    62              -12.00002.00000 1.00000         456                     \r\nGRID    63              -12.00002.00000 2.00000         456                     \r\nGRID    64              -14.00000.0     0.0             456                     \r\nGRID    65              -14.00000.0     1.00000         456                     \r\nGRID    66              -14.00000.0     2.00000         456                     \r\nGRID    67              -14.00001.00000 0.0             456                     \r\nGRID    68              -14.00001.00000 1.00000         456                     \r\nGRID    69              -14.00001.00000 2.00000         456                     \r\nGRID    70              -14.00002.00000 0.0             456                     \r\nGRID    71              -14.00002.00000 1.00000         456                     \r\nGRID    72              -14.00002.00000 2.00000         456                     \r\nGRID    73              -16.00000.0     0.0             456                     \r\nGRID    74              -16.00000.0     1.00000         456                     \r\nGRID    75              -16.00000.0     2.00000         456                     \r\nGRID    76              -16.00001.00000 0.0             456                     \r\nGRID    77              -16.00001.00000 1.00000         456                     \r\nGRID    78              -16.00001.00000 2.00000         456                     \r\nGRID    79              -16.00002.00000 0.0             456                     \r\nGRID    80              -16.00002.00000 1.00000         456                     \r\nGRID    81              -16.00002.00000 2.00000         456                     \r\nGRID    82              -18.00000.0     0.0             456                     \r\nGRID    83              -18.00000.0     1.00000         456                     \r\nGRID    84              -18.00000.0     2.00000         456                     \r\nGRID    85              -18.00001.00000 0.0             456                     \r\nGRID    86              -18.00001.00000 1.00000         456                     \r\nGRID    87              -18.00001.00000 2.00000         456                     \r\nGRID    88              -18.00002.00000 0.0             456                     \r\nGRID    89              -18.00002.00000 1.00000         456                     \r\nGRID    90              -18.00002.00000 2.00000         456                     \r\nGRID    91              -20.00000.0     0.0             456                     \r\nGRID    92              -20.00000.0     1.00000         456                     \r\nGRID    93              -20.00000.0     2.00000         456                     \r\nGRID    94              -20.00001.00000 0.0             456                     \r\nGRID    95              -20.00001.00000 1.00000         456                     \r\nGRID    96              -20.00001.00000 2.00000         456                     \r\nGRID    97              -20.00002.00000 0.0             456                     \r\nGRID    98              -20.00002.00000 1.00000         456                     \r\nGRID    99              -20.00002.00000 2.00000         456                     \r\nMAT1    1       3.0+6           .2      1.0     .001    10.0            +MAT1   \r\nSPC1    100     1       1       2       3       4       5       6               \r\nSPC1    100     1       7       8       9                                       \r\nSPC1    100     2       1       2       3                                       \r\nSPC1    103     3       1       4       7       10      13      16      +1SPC103\r\n+1SPC10319      22      25      28      31      34      37      40      +2SPC103\r\n+2SPC10343      46      49      52      55      58      61      64      +3SPC103\r\n+3SPC10367      70      73      76      79      82      85      88      +4SPC103\r\n+4SPC10391      94      97                                                      \r\nSPC1    104     2       1       2       3       10      11      12              \r\nSPC1    104     2       19      20      21      28      29      30              \r\nSPC1    104     2       37      38      39      46      47      48              \r\nSPC1    104     2       55      56      57      64      65      66              \r\nSPC1    104     2       73      74      75      82      83      84              \r\nSPC1    104     2       91      92      93                                      \r\nSPCADD  2       100     104     103                                             \r\nTEMPD   30      60.0                                                            \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01091a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$            Thermal and Applied Loads on HEXA2 Solid Elements (1-9-1)\r\n$          Thermal and Applied Loads on TRIM6 Membrane Elements (1-9-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates a static analysis of a cantilevered beam under two\r\n$ loading conditions: axial stress and thermal expansion. The analysis is\r\n$ performed twice, once with a model consisting of HEXA2 solid hexahedron\r\n$ elements (Problem 1-9-1) and once with a model built using the TRIM6 higher\r\n$ order triangular membrane element (Problem 1-9-2).\r\n$ \r\n$ Forty HEXA2 elements are used to model a symmetric quarter of the 4 x 4 x 20\r\n$ beam. Symmetric boundary conditions are used on both the vertical and the\r\n$ horizontal planes of symmetry.\r\n$ \r\n$ Ten TRIM6 elements are used to model one half of the 4 x 4 x 20 beam. Symmetry\r\n$ boundary conditions are used on the vertical plane of symmetry (see Reference\r\n$ 31, pp. 168-172).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    l =  20.0          (length)\r\n$ \r\n$    w = 4.0            (width)\r\n$ \r\n$    h = 4.0            (height)\r\n$ \r\n$                6\r\n$    E = 3.0 x 10       (modulus of elasticity)\r\n$ \r\n$    v = 0.2            (Poisson's ratio)\r\n$ \r\n$    alpha = .001       (thermal expansion coefficient)\r\n$ \r\n$    T  = 10 deg.       (reference temperature)\r\n$     o\r\n$ \r\n$ 2. Support Boundary Constraints:\r\n$ \r\n$    HEXA2 Model                  TRIM6 Model\r\n$ \r\n$    u  = 0 at x = 0              u  = u  = 0 at x = 0\r\n$     x                            x    y\r\n$ \r\n$    u  = 0 at y = 0              u  = 0      at y = 0\r\n$     y                            y\r\n$ \r\n$    u  = 0 at z = 0              u  = 0      at all grid points\r\n$     z                            z\r\n$ \r\n$ 3. Loads\r\n$ \r\n$    Subcase 1 (HEXA2 Model):\r\n$ \r\n$    An axial force F  distributed for uniform pressure over the end of the\r\n$                    x\r\n$    beam where\r\n$ \r\n$                    3\r\n$        F  = 24 x 10  (total axial force)\r\n$         x\r\n$ \r\n$    Subcase 1 (TRIM6 Model):\r\n$ \r\n$                    3\r\n$        F  = 24 x 10  (total axial force)\r\n$         x\r\n$ \r\n$        Total force on symmetric part = 24/2 = 12.\r\n$ \r\n$                +----->1\r\n$                |\r\n$                +----->4      Force divided into the ratio of\r\n$                |                           1 x 12    2 x 12    1 x 12\r\n$          - - - +----->1      1:4:1, i.e.,  ------- , ------- , ------\r\n$                                              6         6         6\r\n$ \r\n$    Subcase 2 (Both Models):\r\n$ \r\n$        T = 60 deg. (uniform temperature field)\r\n$ \r\n$        T  = 10 deg. (reference temperature)\r\n$         o\r\n$ \r\n$    Subcase 3 (TRIM6 Model Only):\r\n$ \r\n$                +----->1\r\n$                |      \r\n$                +----->2      Force divided into the ratio of\r\n$                |                           1 x 12    2 x 12    1 x 12\r\n$          - - - +----->1      1:2:1, i.e.,  ------- , ------- , ------\r\n$                                              4         4         4\r\n$ \r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. Subcase 1 and Subcase 3\r\n$ \r\n$ The distributed axial load is equivalent to a stress field of:\r\n$ \r\n$                  3\r\n$       = 1.5 x 10                                                          (1)\r\n$    xx\r\n$ \r\n$ and\r\n$ \r\n$   sigma   = sigma   = tai   = tai   = tai   = 0                            (2)\r\n$        yy        zz      xy      xz      yz\r\n$ \r\n$ The displacement field is\r\n$ \r\n$        sigma\r\n$             xx              -3\r\n$   u  = -------  x = 0.5 x 10  x                                            (3)\r\n$    x    E\r\n$ \r\n$        -vsigma\r\n$               xx               -3\r\n$   u  = ---------  y = -0.1 x 10  y                                         (4)\r\n$    y     E\r\n$ \r\n$ and\r\n$ \r\n$        -vsigma\r\n$               xx               -3\r\n$   u  = ---------  z = -0.1 x 10  z                                         (5)\r\n$    z     E\r\n$ \r\n$ 2. Subcase 2\r\n$ \r\n$ The uniform expansion due to temperature will not cause any stress. The\r\n$ strains, however, are uniform and equal. Therefore, the displacements are\r\n$ \r\n$   u  =  sigma(T-T )x = .05x                                                (6)\r\n$    x             o\r\n$ \r\n$   u  =  sigma(T-T )y = .05y                                                (7)\r\n$    y             o\r\n$ \r\n$   and\r\n$ \r\n$   u  =  sigma(T-T )z = .05z                                                (8)\r\n$    z             o\r\n$ \r\n$ where T is the uniform temperature and T  is the reference temperature.\r\n$                                         o\r\n$ \r\n$ D. Results\r\n$ \r\n$ The results of both subcases are exact to the single precision limits of the\r\n$ particular computer used. Table 1 presents the theoretical solutions and the\r\n$ results of the TRIM6 finite element model analysis.\r\n$ \r\n$                    Table 1. TRIM6 and Theoretical Solutions\r\n$ --------------------------------------------------------------------\r\n$                  Pressure Load                  Temperature Load\r\n$      -------------------------------------    ---------------------\r\n$                   Subcase       Subcase\r\n$      Exact Sol.      1             3\r\n$          -3          -3            -3                      Subcase\r\n$   X   (10  )      (10  )        (10  )        Exact Sol.     2\r\n$ --------------------------------------------------------------------\r\n$   0        0           0            0              0         0.\r\n$ \r\n$   2        1           0.98         0.98           0.1       0.109\r\n$ \r\n$   4        2           1.98         1.98           0.2       0.2093\r\n$ \r\n$   6        3           2.98         2.981          0.3       0.3093\r\n$ \r\n$   8        4           3.98         3.98           0.4       0.4093\r\n$ \r\n$  10        5           4.98         4.981          0.5       0.5093\r\n$ \r\n$  12        6           5.98         5.981          0.6       0.6093\r\n$ \r\n$  14        7           6.98         6.98           0.7       0.7093\r\n$ \r\n$  16        8           7.98         7.98           0.8       0.8093\r\n$ \r\n$  18        9           8.98         8.99           0.9       0.9093\r\n$ \r\n$  20       10           9.98        10.026          1.0       1.00937\r\n$ --------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into\r\n$     NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University\r\n$     Research Foundation, Norfolk, Virginia, December, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01092a.inp",
    "content": "ID    D01092A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = 2 X 1 X 10 FIXED-FREE BEAM USING CTRIM6 ELEMENTS                     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-09-2A                          \r\nSPC  = 1                                                                        \r\nOUTPUT                                                                          \r\nDISP =  ALL                                                                     \r\nSPCFORCE = ALL                                                                  \r\n  STRESS = ALL                                                                  \r\nSUBCASE 1                                                                       \r\nLABEL = CONSISTENT LOADING (FORCE RATIO 1 TO 4 TO 1)                            \r\nLOAD  = 20                                                                      \r\nOLOAD = ALL                                                                     \r\nSUBCASE 2                                                                       \r\nLABEL = UNIFORM TEMPERATURE LOAD                                                \r\nTEMPERATURE(LOAD) = 30                                                          \r\nSUBCASE  3                                                                      \r\nLABEL = LUMPED STRESS LOADING (FORCE RATIO 1 TO 2 TO 1)                         \r\nLOAD  = 40                                                                      \r\nOLOAD = ALL                                                                     \r\nBEGIN BULK                                                                      \r\nCTRIM6  1       80      9       6       3       2       1       5       +TE1    \r\n+TE1                                                                            \r\nCTRIM6  2       80      1       4       7       8       9       5       +TE2    \r\n+TE2                                                                            \r\nCTRIM6  3       80      15      12      9       8       7       11      +TE3    \r\n+TE3                                                                            \r\nCTRIM6  4       80      7       10      13      14      15      11      +TE4    \r\n+TE4                                                                            \r\nCTRIM6  5       80      21      18      15      14      13      17      +TE5    \r\n+TE5                                                                            \r\nCTRIM6  6       80      13      16      19      20      21      17      +TE6    \r\n+TE6                                                                            \r\nCTRIM6  7       80      27      24      21      20      19      23      +TE7    \r\n+TE7                                                                            \r\nCTRIM6  8       80      19      22      25      26      27      23      +TE8    \r\n+TE8                                                                            \r\nCTRIM6  9       80      33      30      27      26      25      29      +TE9    \r\n+TE9                                                                            \r\nCTRIM6  10      80      25      28      31      32      33      29      +TE10   \r\n+TE10                                                                           \r\nFORCE1  20      31      2.0+3   28      31                                      \r\nFORCE1  20      32      8.0+3   29      32                                      \r\nFORCE1  20      33      2.0+3   30      33                                      \r\nFORCE1  40      31      3.0+3   28      31                                      \r\nFORCE1  40      32      6.0+3   29      32                                      \r\nFORCE1  40      33      3.0+3   30      33                                      \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               .0      1.      .0                                      \r\nGRID    3               .0      2.      .0                                      \r\nGRID    4               2.      .0      .0                                      \r\nGRID    5               2.      1.      .0                                      \r\nGRID    6               2.      2.      .0                                      \r\nGRID    7               4.      .0      .0                                      \r\nGRID    8               4.      1.      .0                                      \r\nGRID    9               4.      2.      .0                                      \r\nGRID    10              6.      .0      .0                                      \r\nGRID    11              6.      1.      .0                                      \r\nGRID    12              6.      2.      .0                                      \r\nGRID    13              8.      .0      .0                                      \r\nGRID    14              8.      1.      .0                                      \r\nGRID    15              8.      2.      .0                                      \r\nGRID    16              10.     .0      .0                                      \r\nGRID    17              10.     1.      .0                                      \r\nGRID    18              10.     2.      .0                                      \r\nGRID    19              12.     .0      .0                                      \r\nGRID    20              12.     1.      .0                                      \r\nGRID    21              12.     2.      .0                                      \r\nGRID    22              14.     .0      .0                                      \r\nGRID    23              14.     1.      .0                                      \r\nGRID    24              14.     2.      .0                                      \r\nGRID    25              16.     .0      .0                                      \r\nGRID    26              16.     1.      .0                                      \r\nGRID    27              16.     2.      .0                                      \r\nGRID    28              18.     .0      .0                                      \r\nGRID    29              18.     1.      .0                                      \r\nGRID    30              18.     2.      .0                                      \r\nGRID    31              20.     .0      .0                                      \r\nGRID    32              20.     1.      .0                                      \r\nGRID    33              20.     2.      .0                                      \r\nMAT1    90      3.0+6           .2      1.      .001    10.                     \r\nPTRIM6  80      90      4.      .0      .0                                      \r\nSPC1    1       2       4       7       10      13      16      19      +GJD    \r\n+GJD    22      25      28      31                                              \r\nSPC1    1       12      1       2       3                                       \r\nTEMPD   30      60.                                                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01092a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$            Thermal and Applied Loads on HEXA2 Solid Elements (1-9-1)\r\n$          Thermal and Applied Loads on TRIM6 Membrane Elements (1-9-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates a static analysis of a cantilevered beam under two\r\n$ loading conditions: axial stress and thermal expansion. The analysis is\r\n$ performed twice, once with a model consisting of HEXA2 solid hexahedron\r\n$ elements (Problem 1-9-1) and once with a model built using the TRIM6 higher\r\n$ order triangular membrane element (Problem 1-9-2).\r\n$ \r\n$ Forty HEXA2 elements are used to model a symmetric quarter of the 4 x 4 x 20\r\n$ beam. Symmetric boundary conditions are used on both the vertical and the\r\n$ horizontal planes of symmetry.\r\n$ \r\n$ Ten TRIM6 elements are used to model one half of the 4 x 4 x 20 beam. Symmetry\r\n$ boundary conditions are used on the vertical plane of symmetry (see Reference\r\n$ 31, pp. 168-172).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    l =  20.0          (length)\r\n$ \r\n$    w = 4.0            (width)\r\n$ \r\n$    h = 4.0            (height)\r\n$ \r\n$                6\r\n$    E = 3.0 x 10       (modulus of elasticity)\r\n$ \r\n$    v = 0.2            (Poisson's ratio)\r\n$ \r\n$    alpha = .001       (thermal expansion coefficient)\r\n$ \r\n$    T  = 10 deg.       (reference temperature)\r\n$     o\r\n$ \r\n$ 2. Support Boundary Constraints:\r\n$ \r\n$    HEXA2 Model                  TRIM6 Model\r\n$ \r\n$    u  = 0 at x = 0              u  = u  = 0 at x = 0\r\n$     x                            x    y\r\n$ \r\n$    u  = 0 at y = 0              u  = 0      at y = 0\r\n$     y                            y\r\n$ \r\n$    u  = 0 at z = 0              u  = 0      at all grid points\r\n$     z                            z\r\n$ \r\n$ 3. Loads\r\n$ \r\n$    Subcase 1 (HEXA2 Model):\r\n$ \r\n$    An axial force F  distributed for uniform pressure over the end of the\r\n$                    x\r\n$    beam where\r\n$ \r\n$                    3\r\n$        F  = 24 x 10  (total axial force)\r\n$         x\r\n$ \r\n$    Subcase 1 (TRIM6 Model):\r\n$ \r\n$                    3\r\n$        F  = 24 x 10  (total axial force)\r\n$         x\r\n$ \r\n$        Total force on symmetric part = 24/2 = 12.\r\n$ \r\n$                +----->1\r\n$                |\r\n$                +----->4      Force divided into the ratio of\r\n$                |                           1 x 12    2 x 12    1 x 12\r\n$          - - - +----->1      1:4:1, i.e.,  ------- , ------- , ------\r\n$                                              6         6         6\r\n$ \r\n$    Subcase 2 (Both Models):\r\n$ \r\n$        T = 60 deg. (uniform temperature field)\r\n$ \r\n$        T  = 10 deg. (reference temperature)\r\n$         o\r\n$ \r\n$    Subcase 3 (TRIM6 Model Only):\r\n$ \r\n$                +----->1\r\n$                |      \r\n$                +----->2      Force divided into the ratio of\r\n$                |                           1 x 12    2 x 12    1 x 12\r\n$          - - - +----->1      1:2:1, i.e.,  ------- , ------- , ------\r\n$                                              4         4         4\r\n$ \r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. Subcase 1 and Subcase 3\r\n$ \r\n$ The distributed axial load is equivalent to a stress field of:\r\n$ \r\n$                  3\r\n$       = 1.5 x 10                                                          (1)\r\n$    xx\r\n$ \r\n$ and\r\n$ \r\n$   sigma   = sigma   = tai   = tai   = tai   = 0                            (2)\r\n$        yy        zz      xy      xz      yz\r\n$ \r\n$ The displacement field is\r\n$ \r\n$        sigma\r\n$             xx              -3\r\n$   u  = -------  x = 0.5 x 10  x                                            (3)\r\n$    x    E\r\n$ \r\n$        -vsigma\r\n$               xx               -3\r\n$   u  = ---------  y = -0.1 x 10  y                                         (4)\r\n$    y     E\r\n$ \r\n$ and\r\n$ \r\n$        -vsigma\r\n$               xx               -3\r\n$   u  = ---------  z = -0.1 x 10  z                                         (5)\r\n$    z     E\r\n$ \r\n$ 2. Subcase 2\r\n$ \r\n$ The uniform expansion due to temperature will not cause any stress. The\r\n$ strains, however, are uniform and equal. Therefore, the displacements are\r\n$ \r\n$   u  =  sigma(T-T )x = .05x                                                (6)\r\n$    x             o\r\n$ \r\n$   u  =  sigma(T-T )y = .05y                                                (7)\r\n$    y             o\r\n$ \r\n$   and\r\n$ \r\n$   u  =  sigma(T-T )z = .05z                                                (8)\r\n$    z             o\r\n$ \r\n$ where T is the uniform temperature and T  is the reference temperature.\r\n$                                         o\r\n$ \r\n$ D. Results\r\n$ \r\n$ The results of both subcases are exact to the single precision limits of the\r\n$ particular computer used. Table 1 presents the theoretical solutions and the\r\n$ results of the TRIM6 finite element model analysis.\r\n$ \r\n$                    Table 1. TRIM6 and Theoretical Solutions\r\n$ --------------------------------------------------------------------\r\n$                  Pressure Load                  Temperature Load\r\n$      -------------------------------------    ---------------------\r\n$                   Subcase       Subcase\r\n$      Exact Sol.      1             3\r\n$          -3          -3            -3                      Subcase\r\n$   X   (10  )      (10  )        (10  )        Exact Sol.     2\r\n$ --------------------------------------------------------------------\r\n$   0        0           0            0              0         0.\r\n$ \r\n$   2        1           0.98         0.98           0.1       0.109\r\n$ \r\n$   4        2           1.98         1.98           0.2       0.2093\r\n$ \r\n$   6        3           2.98         2.981          0.3       0.3093\r\n$ \r\n$   8        4           3.98         3.98           0.4       0.4093\r\n$ \r\n$  10        5           4.98         4.981          0.5       0.5093\r\n$ \r\n$  12        6           5.98         5.981          0.6       0.6093\r\n$ \r\n$  14        7           6.98         6.98           0.7       0.7093\r\n$ \r\n$  16        8           7.98         7.98           0.8       0.8093\r\n$ \r\n$  18        9           8.98         8.99           0.9       0.9093\r\n$ \r\n$  20       10           9.98        10.026          1.0       1.00937\r\n$ --------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into\r\n$     NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University\r\n$     Research Foundation, Norfolk, Virginia, December, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01101a.inp",
    "content": "ID    D01101A,NASTRAN                                                           \r\nSOL   1,0                                                                       \r\nTIME  9                                                                         \r\nAPP   DISPLACEMENT                                                              \r\nCEND                                                                            \r\nTITLE    = THERMAL BENDING OF A BAR.                                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-10-1A                          \r\nTEMPERATURE(LOAD) = 20                                                          \r\n        OUTPUT                                                                  \r\n   DISPLACEMENT = ALL                                                           \r\n       SPCFORCE = ALL                                                           \r\n        OLOAD   = ALL                                                           \r\n        ELFORCE = ALL                                                           \r\n        STRESS  = ALL                                                           \r\nSUBCASE 1                                                                       \r\n        LABEL =   CONSTRAINTS ARE - FIXED AND FREE ENDS.                        \r\n        SPC = 1                                                                 \r\nSUBCASE 2                                                                       \r\n        LABEL =   CONSTRAINTS ARE - FIXED AND SIMPLY SUPPORTED ENDS.            \r\n        SPC = 2                                                                 \r\nBEGIN BULK                                                                      \r\nBAROR                                   .0      1.00    .0      1               \r\nCBAR    101     10      1       2                                               \r\nCBAR    102     10      2       3                                               \r\nCBAR    103     10      3       4                                               \r\nCBAR    104     10      4       5                                               \r\nCBAR    105     10      5       6                                               \r\nCBAR    106     10      6       7                                               \r\nCBAR    107     10      7       8                                               \r\nCBAR    108     10      8       9                                               \r\nCBAR    109     10      9       10                                              \r\nCBAR    110     10      10      11                                              \r\nCBAR    111     10      11      12                                              \r\nCBAR    112     10      12      13                                              \r\nCBAR    113     10      13      14                                              \r\nCBAR    114     10      14      15                                              \r\nGRDSET                                                  345                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               2.4     .0      .0                                      \r\nGRID    3               3.7     .0      .0                                      \r\nGRID    4               4.7     .0      .0                                      \r\nGRID    5               5.5     .0      .0                                      \r\nGRID    6               6.2     .0      .0                                      \r\nGRID    7               7.2     .0      .0                                      \r\nGRID    8               7.8     .0      .0                                      \r\nGRID    9               8.3     .0      .0                                      \r\nGRID    10              8.7     .0      .0                                      \r\nGRID    11              9.0     .0      .0                                      \r\nGRID    12              9.3     .0      .0                                      \r\nGRID    13              9.6     .0      .0                                      \r\nGRID    14              9.8     .0      .0                                      \r\nGRID    15              10.0    .0      .0                                      \r\nMAT1    10      1.0+7           .3              1.3-5   .0                      \r\nPBAR    10      10      .52     .0689333.0337333                        +BAR    \r\n+BAR    .0              .3              .5              -0.5                    \r\nSPC     1       1       126     .0                                              \r\nSPC     2       1       126     .0      15      2       .0                      \r\nTEMPRB  20      101     .0      .0      .0      2.35083 .0      .0      +1T     \r\n+1T     .0      .0      .0      .0      .0      .373248 1.728   -1.728          \r\nTEMPRB  20      102     .0      .0      2.35083 8.61375 .0      .0      +2T     \r\n+2T     .0      .373248 1.728   -1.728  .0      1.36763 6.33163 -6.33163        \r\nTEMPRB  20      103     .0      .0      8.61375 17.6555 .0      .0      +3T     \r\n+3T     .0      1.36763 6.33163 -6.33163.0      2.80322 12.9779 -12.9779        \r\nTEMPRB  20      104     .0      .0      17.6555 28.2928 .0      .0      +4T     \r\n+4T     .0      2.80322 12.9779 -12.9779.0      4.49213 20.7969 -20.7969        \r\nTEMPRB  20      105     .0      .0      28.2928 40.5287 .0      .0      +5T     \r\n+5T     .0      4.49213 20.7969 -20.7969.0      6.43486 29.791  -29.791         \r\nTEMPRB  20      106     .0      .0      40.5287 63.4724 .0      .0      +6T     \r\n+6T     .0      6.43486 29.791  -29.791 .0      10.0777 46.656  -46.656         \r\nTEMPRB  20      107     .0      .0      63.4724 80.6995 .0      .0      +7T     \r\n+7T     .0      10.0777 46.656  -46.656 .0      12.8129 59.319  -59.319         \r\nTEMPRB  20      108     .0      .0      80.6995 97.2348 .0      .0      +8T     \r\n+8T     .0      12.8129 59.319  -59.319 .0      15.4383 71.4734 -71.4734        \r\nTEMPRB  20      109     .0      .0      97.2348 111.981 .0      .0      +9T     \r\n+9T     .0      15.4383 71.4734 -71.4734.0      17.7796 82.3129 -82.3129        \r\nTEMPRB  20      110     .0      .0      111.981 123.97  .0      .0      +10T    \r\n+10T    .0      17.7796 82.3129 -82.3129.0      19.683  91.125  -91.125         \r\nTEMPRB  20      111     .0      .0      123.97  136.784 .0      .0      +11T    \r\n+11T    .0      19.683  91.125  -91.125 .0      21.7176 100.545 -100.545        \r\nTEMPRB  20      112     .0      .0      136.784 150.453 .0      .0      +12T    \r\n+12T    .0      21.7176 100.545 -100.545.0      23.8879 110.592 -110.592        \r\nTEMPRB  20      113     .0      .0      150.453 160.054 .0      .0      +13T    \r\n+13T    .0      23.8879 110.592 -110.592.0      25.4122 117.649 -117.649        \r\nTEMPRB  20      114     .0      .0      160.054 170.054 .0      .0      +14T    \r\n+14T    .0      25.4122 117.649 -117.649.0      27.0    125.0   -125.0          \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01101a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$                       Thermal Bending of a Beam (1-10-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the solution of a beam subjected to a thermal\r\n$ gradient over the cross-section. Two end conditions are solved, clamped-free\r\n$ and clamped-pinned end conditions.\r\n$ \r\n$ An equivalent linear gradient in the normal direction was used for the input\r\n$ data. However, the actual temperatures at points on the cross-section were\r\n$ input on the TEMPRB card in order to produce correct stresses. The beam was\r\n$ subdivided into 14 variable lengths for maximum efficiency.\r\n$ \r\n$ B. Input\r\n$ \r\n$ [???Fig. refs.]\r\n$ \r\n$ C. Theory\r\n$ \r\n$ For subcase 1, the effective temperature gradient, T', (see NASTRAN\r\n$ Theoretical Manual) is:\r\n$ \r\n$                  1\r\n$        T'(x)  =  - integral from z integral from y  T(x,y,z)y dy dz        (1)\r\n$                  I\r\n$ \r\n$ where\r\n$ \r\n$        I =   integral from z integral from y  y  dy dz                     (2)\r\n$ \r\n$ Using the given temperature distribution the effective gradient is:\r\n$ \r\n$                  3\r\n$        T' =  T  x                                                          (3)\r\n$               c\r\n$                                              4\r\n$ where T  is calculated to be 0.170054 deg./in  by substituting the temperature\r\n$        c\r\n$ distribution into Equation 1 and evaluating the expression:\r\n$ \r\n$               1\r\n$        T   =  -  integral from z integral from y  Cy  dy dz                (4)\r\n$         c     I\r\n$ \r\n$ Since the bar is not redundantly constrained the curvature at the center line\r\n$ is:\r\n$ \r\n$       2\r\n$      d v                            3\r\n$      ---  =  -alphaT'  =  -alphaT  x                                       (5)\r\n$        2                         c\r\n$      dx\r\n$ \r\n$ The slope is:\r\n$ \r\n$                                   2\r\n$      dv                          d v           alpha     4\r\n$      --  =  integral from 0 to x --- dx  =  -  ----- T  x                  (6)\r\n$      dx                            2             4    c\r\n$                                  dx\r\n$ \r\n$ The deflection is:\r\n$ \r\n$                                    dv          alpha     5\r\n$      v(x)  =  integral from 0 to x -- dx  =  - ----- T  x                  (7)\r\n$                                    dx           20    c\r\n$ \r\n$ The moment, M, shear, V, and axial stress,  , are:\r\n$                                             x\r\n$                                                                    +\r\n$               ( 2         )                                        |\r\n$               (d v        )                                        |\r\n$      M  =  EI (---  +  T')  =  0                                  |\r\n$               (  2        )                                        |\r\n$               (dx         )                                        |\r\n$                                                                    |\r\n$            dM                                                      |       (8)\r\n$      V  =  --   =  0                                               |\r\n$            dx                                                      |\r\n$                                                                    |\r\n$                                                                    |\r\n$      sigma (x,y)  =  E(epsilon  - alphaT) =                        |\r\n$           x                   x                                    |\r\n$                                                                    |\r\n$                                              3   3                 |\r\n$      E(alphayT' - alphaT)  =  Ealpha(T y - Cy ) x                  |\r\n$                                       c                            |\r\n$                                                                    +\r\n$                                             6\r\n$ where C = 1 has dimensions of degrees/length .\r\n$ \r\n$ For subcase 2, with a simple support at x = 10.0, we calculate the deflection\r\n$ due to subcase 1 and apply a constraint load P  to remove the deflection at\r\n$ the end.                                      L\r\n$ \r\n$                                   alphaT\r\n$                3EI                      c   2\r\n$      P   =  -  ---  v(L)  =  3EI  -------  L                               (9)\r\n$       L          3                 20\r\n$                 L\r\n$ \r\n$ Note: Transverse shear deflection is neglected.\r\n$ \r\n$ The deflections and slopes are the sum of the results for the two independent\r\n$ loads as follows.\r\n$ \r\n$                       P                alphaT\r\n$                        L     2    3          c  5\r\n$ deflection: v(x)  =  --- (3Lx  - x ) - ------- x   =\r\n$                      6EI                20\r\n$                                                                           (10)\r\n$                      alphaT\r\n$                            c    3    2      3   2\r\n$                      ------- (3L  - L x - 2x ) x\r\n$                       40\r\n$ \r\n$                                 alphaT\r\n$                      alphav           c     3     2       3\r\n$ slope: alpha (x)  =  ------  =  -------  (6L  - 3L x - 10x )x             (11)\r\n$             z        alphax      40\r\n$ \r\n$ The net stress is the sum of the stress due to each load:\r\n$ \r\n$                                     M y\r\n$                              3  3    L\r\n$ sigma (x,y) = Ealpha(T y - Cy )x  - ---  =\r\n$      x                c              I\r\n$                                                                           (12)\r\n$                           3  3   3     2\r\n$           Ealpha[(T y - Cy )x  - -- T L (L - x)y]\r\n$                    c             20  c\r\n$ \r\n$ \r\n$ where M  is the moment due to the constraint load.\r\n$        L\r\n$ \r\n$ D. Results\r\n$ \r\n$ Tables 1 and 2 compare the analytical maximum value of displacement,\r\n$ constraint force, element force, and stress to the maximum deviation of\r\n$ NASTRAN in each category. All results are within 2.66%.\r\n$ \r\n$    Table 1. Comparison of NASTRAN and Analytical Results, Clamped-Free Ends\r\n$                                   (Subcase 1)\r\n$              -------------------------------------------------------\r\n$               CATEGORY       MAXIMUM         MAXIMUM\r\n$                              ANALYTICAL      NASTRAN        PERCENT\r\n$                              VALUE           DIFFERENCE     ERROR\r\n$              -------------------------------------------------------\r\n$              Displacement              -2              -4\r\n$                            -1.1054 x 10     2.9424 x 10     2.66\r\n$              -------------------------------------------------------\r\n$              Constraint            0              *           *\r\n$              Force\r\n$              -------------------------------------------------------\r\n$              Element               0              *           *\r\n$              Force\r\n$              -------------------------------------------------------\r\n$              Element                   +3\r\n$              Stress         5.1965 x 10         0.671         0.01\r\n$              -------------------------------------------------------\r\n$ \r\n$             * These results vary with the computer. The very small numbers are\r\n$               essentially zero when compared to subcase 2 results.\r\n$ \r\n$ \r\n$   Table 2. Comparison of NASTRAN and Analytical Results, Clamped-Pinned Ends\r\n$                                   (Subcase 2)\r\n$              -------------------------------------------------------\r\n$               CATEGORY       MAXIMUM         MAXIMUM\r\n$                              ANALYTICAL      NASTRAN        PERCENT\r\n$                              VALUE           DIFFERENCE     ERROR\r\n$              -------------------------------------------------------\r\n$              Displacement              -3             -4\r\n$                             4.3936 x 10     8.024 x 10      0.18\r\n$              -------------------------------------------------------\r\n$              Constraint                +2\r\n$              Force         -2.2859 x 10     6.0841          2.66\r\n$              -------------------------------------------------------\r\n$              Element                   +2\r\n$              Force          2.2859 x 10     6.0846          2.66\r\n$              -------------------------------------------------------\r\n$              Element                   +3\r\n$              Stress         5.1965 x 10     4.4136 x 10     0.85\r\n$              -------------------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01111a.inp",
    "content": "ID    D01111A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,3                                                                       \r\nTIME  9                                                                         \r\nCEND                                                                            \r\nTITLE    = SIMPLY SUPPORTED RECTANGULAR PLATE WITH A THERMAL GRADIENT           \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-1A                          \r\n       SPC = 1                                                                  \r\nTEMP(LOAD) = 20                                                                 \r\n   OUTPUT                                                                       \r\n        DISPLACEMENT = ALL                                                      \r\n        SPCFORCE     = ALL                                                      \r\n        ELFORCE      = ALL                                                      \r\n        STRESSES     = ALL                                                      \r\n        STRAIN       = ALL                                                      \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       2       THRU    59                                              \r\nCORD2R  1000            .0      .0      .0      .0      .0      1.0     +COR1   \r\n+COR1   1.0     .0      .0                                                      \r\nCQUAD1  1       101     1       2       8       7                               \r\nCQUAD1  2       101     2       3       9       8                               \r\nCQUAD1  3       101     3       4       10      9                               \r\nCQUAD1  4       101     4       5       11      10                              \r\nCQUAD1  5       101     5       6       12      11                              \r\nCQUAD1  7       101     7       8       14      13                              \r\nCQUAD1  8       101     8       9       15      14                              \r\nCQUAD1  9       101     9       10      16      15                              \r\nCQUAD1  10      101     10      11      17      16                              \r\nCQUAD1  11      101     11      12      18      17                              \r\nCQUAD1  13      101     13      14      20      19                              \r\nCQUAD1  14      101     14      15      21      20                              \r\nCQUAD1  15      101     15      16      22      21                              \r\nCQUAD1  16      101     16      17      23      22                              \r\nCQUAD1  17      101     17      18      24      23                              \r\nCQUAD1  19      101     19      20      26      25                              \r\nCQUAD1  20      101     20      21      27      26                              \r\nCQUAD1  21      101     21      22      28      27                              \r\nCQUAD1  22      101     22      23      29      28                              \r\nCQUAD1  23      101     23      24      30      29                              \r\nCQUAD1  25      101     25      26      32      31                              \r\nCQUAD1  26      101     26      27      33      32                              \r\nCQUAD1  27      101     27      28      34      33                              \r\nCQUAD1  28      101     28      29      35      34                              \r\nCQUAD1  29      101     29      30      36      35                              \r\nCQUAD1  31      101     31      32      38      37                              \r\nCQUAD1  32      101     32      33      39      38                              \r\nCQUAD1  33      101     33      34      40      39                              \r\nCQUAD1  34      101     34      35      41      40                              \r\nCQUAD1  35      101     35      36      42      41                              \r\nCQUAD1  37      101     37      38      44      43                              \r\nCQUAD1  38      101     38      39      45      44                              \r\nCQUAD1  39      101     39      40      46      45                              \r\nCQUAD1  40      101     40      41      47      46                              \r\nCQUAD1  41      101     41      42      48      47                              \r\nCQUAD1  43      101     43      44      50      49                              \r\nCQUAD1  44      101     44      45      51      50                              \r\nCQUAD1  45      101     45      46      52      51                              \r\nCQUAD1  46      101     46      47      53      52                              \r\nCQUAD1  47      101     47      48      54      53                              \r\nCQUAD1  49      101     49      50      56      55                              \r\nCQUAD1  50      101     50      51      57      56                              \r\nCQUAD1  51      101     51      52      58      57                              \r\nCQUAD1  52      101     52      53      59      58                              \r\nCQUAD1  53      101     53      54      60      59                              \r\nCQUAD1  55      101     55      56      62      61                              \r\nCQUAD1  56      101     56      57      63      62                              \r\nCQUAD1  57      101     57      58      64      63                              \r\nCQUAD1  58      101     58      59      65      64                              \r\nCQUAD1  59      101     59      60      66      65                              \r\nGRDSET                                                  6                       \r\nGRID    1               .00     .00     .00                                     \r\nGRID    2               1.00000 .00     .00                                     \r\nGRID    3               2.00000 .00     .00                                     \r\nGRID    4               3.00000 .00     .00                                     \r\nGRID    5               4.00000 .00     .00                                     \r\nGRID    6               5.00000 .00     .00                                     \r\nGRID    7               .00     1.00000 .00                                     \r\nGRID    8               1.00000 1.00000 .00                                     \r\nGRID    9               2.00000 1.00000 .00                                     \r\nGRID    10              3.00000 1.00000 .00                                     \r\nGRID    11              4.00000 1.00000 .00                                     \r\nGRID    12              5.00000 1.00000 .00                                     \r\nGRID    13              .00     2.00000 .00                                     \r\nGRID    14              1.00000 2.00000 .00                                     \r\nGRID    15              2.00000 2.00000 .00                                     \r\nGRID    16              3.00000 2.00000 .00                                     \r\nGRID    17              4.00000 2.00000 .00                                     \r\nGRID    18              5.00000 2.00000 .00                                     \r\nGRID    19              .00     3.00000 .00                                     \r\nGRID    20              1.00000 3.00000 .00                                     \r\nGRID    21              2.00000 3.00000 .00                                     \r\nGRID    22              3.00000 3.00000 .00                                     \r\nGRID    23              4.00000 3.00000 .00                                     \r\nGRID    24              5.00000 3.00000 .00                                     \r\nGRID    25              .00     4.00000 .00                                     \r\nGRID    26              1.00000 4.00000 .00                                     \r\nGRID    27              2.00000 4.00000 .00                                     \r\nGRID    28              3.00000 4.00000 .00                                     \r\nGRID    29              4.00000 4.00000 .00                                     \r\nGRID    30              5.00000 4.00000 .00                                     \r\nGRID    31              .00     5.00000 .00                                     \r\nGRID    32              1.00000 5.00000 .00                                     \r\nGRID    33              2.00000 5.00000 .00                                     \r\nGRID    34              3.00000 5.00000 .00                                     \r\nGRID    35              4.00000 5.00000 .00                                     \r\nGRID    36              5.00000 5.00000 .00                                     \r\nGRID    37              .00     6.00000 .00                                     \r\nGRID    38              1.00000 6.00000 .00                                     \r\nGRID    39              2.00000 6.00000 .00                                     \r\nGRID    40              3.00000 6.00000 .00                                     \r\nGRID    41              4.00000 6.00000 .00                                     \r\nGRID    42              5.00000 6.00000 .00                                     \r\nGRID    43              .00     7.00000 .00                                     \r\nGRID    44              1.00000 7.00000 .00                                     \r\nGRID    45              2.00000 7.00000 .00                                     \r\nGRID    46              3.00000 7.00000 .00                                     \r\nGRID    47              4.00000 7.00000 .00                                     \r\nGRID    48              5.00000 7.00000 .00                                     \r\nGRID    49              .00     8.00000 .00                                     \r\nGRID    50              1.00000 8.00000 .00                                     \r\nGRID    51              2.00000 8.00000 .00                                     \r\nGRID    52              3.00000 8.00000 .00                                     \r\nGRID    53              4.00000 8.00000 .00                                     \r\nGRID    54              5.00000 8.00000 .00                                     \r\nGRID    55              .00     9.00000 .00                                     \r\nGRID    56              1.00000 9.00000 .00                                     \r\nGRID    57              2.00000 9.00000 .00                                     \r\nGRID    58              3.00000 9.00000 .00                                     \r\nGRID    59              4.00000 9.00000 .00                                     \r\nGRID    60              5.00000 9.00000 .00                                     \r\nGRID    61              .00     10.0000 .00                                     \r\nGRID    62              1.00000 10.0000 .00                                     \r\nGRID    63              2.00000 10.0000 .00                                     \r\nGRID    64              3.00000 10.0000 .00                                     \r\nGRID    65              4.00000 10.0000 .00                                     \r\nGRID    66              5.00000 10.0000 .00                                     \r\nMAT1    1       3.0+5           .3      1.0     .01     .0              +MAT1   \r\n+MAT1                           1000                                            \r\nPARAM   IRES    1                                                               \r\nPARAM   STRESS  0                                                               \r\nPQUAD1  101     1       .5      1       .0104167                        +PQUAD1 \r\n+PQUAD1 .25     -0.25                                                           \r\nSPC1    1       34      6       12      18      24      30      36      +SPC-34 \r\n+SPC-34 42      48      54      60      66                                      \r\nSPC1    1       35      61      62      63      64      65      66              \r\nSPC1    1       124     1       2       3       4       5       6               \r\nSPC1    1       125     7       13      19      25      31      37      +SPC-5  \r\n+SPC-5  43      49      55      61      1                                       \r\nTEMPP1  20      1       .0      5.90786 2.46161 -2.46161                        \r\nTEMPP1  20      2       .0      5.32956 2.22065 -2.22065                        \r\nTEMPP1  20      3       .0      4.22956 1.76232 -1.76232                        \r\nTEMPP1  20      4       .0      2.71555 1.13148 -1.13148                        \r\nTEMPP1  20      5       .0      .93571  .38988  -.38988                         \r\nTEMPP1  20      7       .0      5.76239 2.40100 -2.40100                        \r\nTEMPP1  20      8       .0      5.19833 2.16597 -2.16597                        \r\nTEMPP1  20      9       .0      4.12542 1.71892 -1.71892                        \r\nTEMPP1  20      10      .0      2.64868 1.10362 -1.10362                        \r\nTEMPP1  20      11      .0      .91267  .38028  -.38028                         \r\nTEMPP1  20      13      .0      5.47503 2.28126 -2.28126                        \r\nTEMPP1  20      14      .0      4.93910 2.05796 -2.05796                        \r\nTEMPP1  20      15      .0      3.91969 1.63320 -1.63320                        \r\nTEMPP1  20      16      .0      2.51660 1.04858 -1.04858                        \r\nTEMPP1  20      17      .0      .86716  .36132  -.36132                         \r\nTEMPP1  20      19      .0      5.05286 2.10536 -2.10536                        \r\nTEMPP1  20      20      .0      4.55825 1.89927 -1.89927                        \r\nTEMPP1  20      21      .0      3.61745 1.50727 -1.50727                        \r\nTEMPP1  20      22      .0      2.32254 .96773  -.96773                         \r\nTEMPP1  20      23      .0      .80029  .33346  -.33346                         \r\nTEMPP1  20      25      .0      4.50626 1.87761 -1.87761                        \r\nTEMPP1  20      26      .0      4.06516 1.69382 -1.69382                        \r\nTEMPP1  20      27      .0      3.22613 1.34422 -1.34422                        \r\nTEMPP1  20      28      .0      2.07130 .86304  -.86304                         \r\nTEMPP1  20      29      .0      .71372  .29738  -.29738                         \r\nTEMPP1  20      31      .0      3.84871 1.60363 -1.60363                        \r\nTEMPP1  20      32      .0      3.47197 1.44666 -1.44666                        \r\nTEMPP1  20      33      .0      2.75537 1.14807 -1.14807                        \r\nTEMPP1  20      34      .0      1.76906 .73711  -.73711                         \r\nTEMPP1  20      35      .0      .60958  .25399  -.25399                         \r\nTEMPP1  20      37      .0      3.09639 1.29016 -1.29016                        \r\nTEMPP1  20      38      .0      2.79330 1.16387 -1.16387                        \r\nTEMPP1  20      39      .0      2.21677 .92366  -.92366                         \r\nTEMPP1  20      40      .0      1.42326 .59302  -.59302                         \r\nTEMPP1  20      41      .0      .49042  .20434  -.20434                         \r\nTEMPP1  20      43      .0      2.26783 .94493  -.94493                         \r\nTEMPP1  20      44      .0      2.04584 .85243  -.85243                         \r\nTEMPP1  20      45      .0      1.62359 .67650  -.67650                         \r\nTEMPP1  20      46      .0      1.04241 .43434  -.43434                         \r\nTEMPP1  20      47      .0      .35919  .14966  -.14966                         \r\nTEMPP1  20      49      .0      1.38343 .57643  -.57643                         \r\nTEMPP1  20      50      .0      1.24801 .52000  -.52000                         \r\nTEMPP1  20      51      .0      .99043  .41268  -.41268                         \r\nTEMPP1  20      52      .0      .63589  .26496  -.26496                         \r\nTEMPP1  20      53      .0      .21911  .09130  -.09130                         \r\nTEMPP1  20      55      .0      .46496  .19373  -.19373                         \r\nTEMPP1  20      56      .0      .41945  .17477  -.17477                         \r\nTEMPP1  20      57      .0      .33287  .13870  -.13870                         \r\nTEMPP1  20      58      .0      .21372  .08905  -.08905                         \r\nTEMPP1  20      59      .0      .07364  .03068  -.03068                         \r\nENDDATA                                                                         \r\n*WEOR                                                                           \r\n"
  },
  {
    "path": "inp/d01111a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$       Simply-Supported Rectangular Plate with a Thermal Gradient (1-11-1)\r\n$   Simply-Supported Rectangular Plate with a Thermal Gradient (INPUT, 1-11-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the solution of a general thermal load on a plate \r\n$ with the use of an equivalent linear thermal gradient. The thermal field is a \r\n$ function of three dimensions, demonstrated by the TEMPP1 card. The plate is \r\n$ modeled with the general quadrilateral, QUAD1, elements. Two planes of \r\n$ symmetry are used. This problem is repeated via the INPUT module to generate \r\n$ the QUAD1 elements. \r\n$ \r\n$ B. Input\r\n$ \r\n$                    5            2\r\n$      E  =  3.0 x 10  pounds/inch      (Young's modulus)\r\n$ \r\n$      v  =  0.3                        (Poisson's ratio)\r\n$                           2     4\r\n$      p   =  1.0 pound-sec. /inch      (Mass density)\r\n$ \r\n$  alpha   =  0.01 inch/deg. F/inch     (Thermal expansion coefficient)\r\n$ \r\n$      T   =  0.0 deg. F                (Reference temperature)\r\n$       R\r\n$ \r\n$      T   =  2.5 deg. F                (Temperature difference)\r\n$       o\r\n$ \r\n$      a   =  10.0 inch                 (Width)\r\n$ \r\n$      b   =  20.0 inch                 (Length)\r\n$ \r\n$      t   =  0.5 inch                  (Thickness)\r\n$ \r\n$ The thermal field is\r\n$ \r\n$                   pix       piy  2z 3\r\n$      T  =  T (cos ---) (cos ---)(--)  \r\n$             o      a        b     t\r\n$ \r\n$                      pix        piy   3\r\n$ and     =  160.0(cos ---)  (cos ---) z  deg. F\r\n$                      10         20\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The plate was solved using a minimum energy solution. The net moments, \r\n$ {M }, in the plate are equal to the sum of the elastic moments, {M }, and the \r\n$   N                                                               e\r\n$ thermal moments, {M }.\r\n$                    t\r\n$ \r\n$      {M }  =  {M } + {M }                                                  (1)\r\n$        N        t      e\r\n$ \r\n$ where the thermal moment is\r\n$ \r\n$                                                     +\r\n$                              +   +                  |\r\n$                              | 1 |     pix      piy |\r\n$      {M }  =  alphaT' D(1+v) | 1 | cos ---  cos --- |\r\n$        t            o        | 0 |      a        b  |\r\n$                              +   +                  |\r\n$                3                                    |                      (2)\r\n$              Et                                     |\r\n$ and  D =  ---------                                 |\r\n$                 2                                   |\r\n$           12(1-v )                                  |\r\n$                                                     +\r\n$ \r\n$ and T' = 6T /5t is the effective thermal gradient.\r\n$      o     o\r\n$ \r\n$ The elastic moment is defined by the curvatures, x, with the equation:\r\n$ \r\n$                 +               +\r\n$                 | x   +  vx     |\r\n$                 |  x       y    |\r\n$                 |               |\r\n$      {M }  =  D | x   +  vx     |                                          (3)\r\n$        e        |  y       x    |\r\n$                 |               |\r\n$                 |    (1-v)      |\r\n$                 |   ------- x   |\r\n$                 |      2     xy |\r\n$                 +               +\r\n$ \r\n$ Assuming a normal displacement function, W, of\r\n$ \r\n$ \r\n$                                         npix      mpiy\r\n$      W  = sum from n sum from m W   cos ----  cos ----                     (4)\r\n$                                  nm      a         b\r\n$ \r\n$ \r\n$ then                                                      \r\n$                                                                         +\r\n$            2                                                            |\r\n$           a W                              2     n  2     npix     mpiy |\r\n$    x   =  ---  = - sum from n sum from m pi W  ( - )  cos ---- cos ---- |\r\n$     x       2                                nm  a         a        b   |\r\n$           ax                                                            |\r\n$                                                                         |\r\n$            2                                                            |\r\n$           a W                              2     m  2     npix     mpiy |\r\n$    x   =  ---  = - sum from n sum from m pi W  ( - )  cos ---- cos ---- |  (5)\r\n$     y       2                                nm  a         a        b   |\r\n$           ay                                                            |\r\n$                                                                         |\r\n$            2                                                            |\r\n$           a W                              2    nm      npix     mpiy   |\r\n$    x   =2 ---- = - sum from n sum from m pi W  (--) sin ---- sin ----   |\r\n$     xy    axay                               nm ab       a        b     |\r\n$                                                                         +\r\n$ The work done by the thermal load is:\r\n$ \r\n$                             T          1                    T       \r\n$    U  =  integral from A {X} {M } dA + - integral from A {X} {M } dA       (6)\r\n$                                t       2                       e    \r\n$ \r\n$ where A is the surface area. Performing the substitution and integrating \r\n$ results in the energy expression: \r\n$  \r\n$                            2   2  2\r\n$            alphaT' D(1+v)pi  (a +b )\r\n$                  o                      D  \r\n$      U = - ---------------------  W   + -- sum from n=1 to infinity\r\n$                   4ab              11   2\r\n$ \r\n$                                                2                           (7)\r\n$                                 4    ( 2     2)\r\n$                                piab  (n     m )   2\r\n$      sum from n=1 to infinity  ----  (--  + --)  W\r\n$                                 4    ( 2     2)   nm\r\n$                                      (a     b )\r\n$ \r\n$ The static solution exists at a minimum energy:\r\n$ \r\n$      aU\r\n$      -----  =  0                                                           (8)\r\n$      aW\r\n$        nm\r\n$ \r\n$ This results in all but W   equal to zero. The displacement function is \r\n$                          11\r\n$ therefore: \r\n$ \r\n$                               2 2  \r\n$                 alphaT' (1+v)a b \r\n$                       o             pix      piy\r\n$      W(x,y)  =  --------------  cos ---  cos ---                           (9)\r\n$                   2  2    2          a        b\r\n$                   (a  + b )\r\n$ \r\n$ Solving for moments by differentiating W and using equation (3) results in the \r\n$ equations for element moments: \r\n$                        +           +\r\n$                        |     2   2 |\r\n$                        |    b +va  |     pix     piy\r\n$      M  = alphaT'D(1+v)|1 - -------| cos --- cos ---                      (10)\r\n$       x         o      |     2  2  |      a       b\r\n$                        |    a +b   |\r\n$                        +           +\r\n$                        +           +              \r\n$                        |     2   2 |              \r\n$                        |    a +vb  |     pix     piy\r\n$      M  = alphaT'D(1+v)|1 - -------| cos --- cos ---                      (11)\r\n$       y         o      |     2  2  |      a       b \r\n$                        |    a +b   |              \r\n$                        +           +              \r\n$ \r\n$                        2\r\n$            alphaT'D(1-v )ab\r\n$      M           o               pix     piy\r\n$       xy = ----------------- sin --- cos ---                              (12)\r\n$              2      2             a       b \r\n$             a   +  b\r\n$ \r\n$ D. Results\r\n$ \r\n$ The maximum errors for displacements, constraint forces, element forces, and \r\n$ element stresses are listed in Table 1. \r\n$ \r\n$               Table 1. Comparison of Analytical and NASTRAN Results\r\n$              --------------------------------------------------------\r\n$               CATEGORY       MAXIMUM         MAXIMUM                  \r\n$                              ANALYTICAL      NASTRAN         PERCENT \r\n$                              VALUE           DIFFERENCE      ERROR    \r\n$              --------------------------------------------------------\r\n$              Displacement              -1               -3            \r\n$                             6.2898 x 10     11.5464 x 10     -0.25   \r\n$              -------------------------------------------------------- \r\n$              Constraint                                              \r\n$              Force              150.0           -.9594       -0.65    \r\n$              --------------------------------------------------------\r\n$              Element Mom.,             2                              \r\n$              M              1.4770 x 10        -1.1767       -0.80   \r\n$               x                                                       \r\n$              --------------------------------------------------------\r\n$              Element                     3                            \r\n$              Stress         7.764618 x 10     -90.33275      -1.16   \r\n$              --------------------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01112a.inp",
    "content": "ID    D01112A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nTIME  9                                                                         \r\nSOL   1,3                                                                       \r\nDIAG  14                                                                        \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT   GEOM1,,,,/G1,G2,,G4,/C,N,3/C,N,1 $   QUAD1 ELEMENT                      \r\nEQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = SIMPLY-SUPPORTED RECTANGULAR PLATE WITH THERMAL GRADIENT             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-11-2A                          \r\n        SPC = 5010                                                              \r\n        TEMP(LOAD) = 20                                                         \r\n   OUTPUT                                                                       \r\n        DISPLACEMENT = ALL                                                      \r\n        SPCFORCE     = ALL                                                      \r\n        ELFORCE      = ALL                                                      \r\n        STRESSES     = ALL                                                      \r\n        STRAIN       = ALL                                                      \r\nBEGIN BULK                                                                      \r\nCORD2R  1000            .0      .0      .0      .0      .0      1.0     +COR1   \r\n+COR1   1.0     .0      .0                                                      \r\nMAT1    1       3.0+5           .3      1.0     .01     .0              +MAT1   \r\n+MAT1                           1000                                            \r\nPARAM   STRESS  0                                                               \r\nPQUAD1  101     1       .5      1       .0104167                        +PQUAD1 \r\n+PQUAD1 .25     -0.25                                                           \r\nTEMPP1  20      1       .0      5.90786 2.46161 -2.46161                        \r\nTEMPP1  20      2       .0      5.32956 2.22065 -2.22065                        \r\nTEMPP1  20      3       .0      4.22956 1.76232 -1.76232                        \r\nTEMPP1  20      4       .0      2.71555 1.13148 -1.13148                        \r\nTEMPP1  20      5       .0      .93571  .38988  -.38988                         \r\nTEMPP1  20      7       .0      5.76239 2.40100 -2.40100                        \r\nTEMPP1  20      8       .0      5.19833 2.16597 -2.16597                        \r\nTEMPP1  20      9       .0      4.12542 1.71892 -1.71892                        \r\nTEMPP1  20      10      .0      2.64868 1.10362 -1.10362                        \r\nTEMPP1  20      11      .0      .91267  .38028  -.38028                         \r\nTEMPP1  20      13      .0      5.47503 2.28126 -2.28126                        \r\nTEMPP1  20      14      .0      4.93910 2.05796 -2.05796                        \r\nTEMPP1  20      15      .0      3.91969 1.63320 -1.63320                        \r\nTEMPP1  20      16      .0      2.51660 1.04858 -1.04858                        \r\nTEMPP1  20      17      .0      .86716  .36132  -.36132                         \r\nTEMPP1  20      19      .0      5.05286 2.10536 -2.10536                        \r\nTEMPP1  20      20      .0      4.55825 1.89927 -1.89927                        \r\nTEMPP1  20      21      .0      3.61745 1.50727 -1.50727                        \r\nTEMPP1  20      22      .0      2.32254 .96773  -.96773                         \r\nTEMPP1  20      23      .0      .80029  .33346  -.33346                         \r\nTEMPP1  20      25      .0      4.50626 1.87761 -1.87761                        \r\nTEMPP1  20      26      .0      4.06516 1.69382 -1.69382                        \r\nTEMPP1  20      27      .0      3.22613 1.34422 -1.34422                        \r\nTEMPP1  20      28      .0      2.07130 .86304  -.86304                         \r\nTEMPP1  20      29      .0      .71372  .29738  -.29738                         \r\nTEMPP1  20      31      .0      3.84871 1.60363 -1.60363                        \r\nTEMPP1  20      32      .0      3.47197 1.44666 -1.44666                        \r\nTEMPP1  20      33      .0      2.75537 1.14807 -1.14807                        \r\nTEMPP1  20      34      .0      1.76906 .73711  -.73711                         \r\nTEMPP1  20      35      .0      .60958  .25399  -.25399                         \r\nTEMPP1  20      37      .0      3.09639 1.29016 -1.29016                        \r\nTEMPP1  20      38      .0      2.79330 1.16387 -1.16387                        \r\nTEMPP1  20      39      .0      2.21677 .92366  -.92366                         \r\nTEMPP1  20      40      .0      1.42326 .59302  -.59302                         \r\nTEMPP1  20      41      .0      .49042  .20434  -.20434                         \r\nTEMPP1  20      43      .0      2.26783 .94493  -.94493                         \r\nTEMPP1  20      44      .0      2.04584 .85243  -.85243                         \r\nTEMPP1  20      45      .0      1.62359 .67650  -.67650                         \r\nTEMPP1  20      46      .0      1.04241 .43434  -.43434                         \r\nTEMPP1  20      47      .0      .35919  .14966  -.14966                         \r\nTEMPP1  20      49      .0      1.38343 .57643  -.57643                         \r\nTEMPP1  20      50      .0      1.24801 .52000  -.52000                         \r\nTEMPP1  20      51      .0      .99043  .41268  -.41268                         \r\nTEMPP1  20      52      .0      .63589  .26496  -.26496                         \r\nTEMPP1  20      53      .0      .21911  .09130  -.09130                         \r\nTEMPP1  20      55      .0      .46496  .19373  -.19373                         \r\nTEMPP1  20      56      .0      .41945  .17477  -.17477                         \r\nTEMPP1  20      57      .0      .33287  .13870  -.13870                         \r\nTEMPP1  20      58      .0      .21372  .08905  -.08905                         \r\nTEMPP1  20      59      .0      .07364  .03068  -.03068                         \r\nENDDATA                                                                         \r\n       5      10 1.0E+00 1.0E+00       6 0.0     0.0                            \r\n     421     125      53      34       0       0                                \r\n"
  },
  {
    "path": "inp/d01112a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$       Simply-Supported Rectangular Plate with a Thermal Gradient (1-11-1)\r\n$   Simply-Supported Rectangular Plate with a Thermal Gradient (INPUT, 1-11-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the solution of a general thermal load on a plate \r\n$ with the use of an equivalent linear thermal gradient. The thermal field is a \r\n$ function of three dimensions, demonstrated by the TEMPP1 card. The plate is \r\n$ modeled with the general quadrilateral, QUAD1, elements. Two planes of \r\n$ symmetry are used. This problem is repeated via the INPUT module to generate \r\n$ the QUAD1 elements. \r\n$ \r\n$ B. Input\r\n$ \r\n$                    5            2\r\n$      E  =  3.0 x 10  pounds/inch      (Young's modulus)\r\n$ \r\n$      v  =  0.3                        (Poisson's ratio)\r\n$                           2     4\r\n$      p   =  1.0 pound-sec. /inch      (Mass density)\r\n$ \r\n$  alpha   =  0.01 inch/deg. F/inch     (Thermal expansion coefficient)\r\n$ \r\n$      T   =  0.0 deg. F                (Reference temperature)\r\n$       R\r\n$ \r\n$      T   =  2.5 deg. F                (Temperature difference)\r\n$       o\r\n$ \r\n$      a   =  10.0 inch                 (Width)\r\n$ \r\n$      b   =  20.0 inch                 (Length)\r\n$ \r\n$      t   =  0.5 inch                  (Thickness)\r\n$ \r\n$ The thermal field is\r\n$ \r\n$                   pix       piy  2z 3\r\n$      T  =  T (cos ---) (cos ---)(--)  \r\n$             o      a        b     t\r\n$ \r\n$                      pix        piy   3\r\n$ and     =  160.0(cos ---)  (cos ---) z  deg. F\r\n$                      10         20\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The plate was solved using a minimum energy solution. The net moments, \r\n$ {M }, in the plate are equal to the sum of the elastic moments, {M }, and the \r\n$   N                                                               e\r\n$ thermal moments, {M }.\r\n$                    t\r\n$ \r\n$      {M }  =  {M } + {M }                                                  (1)\r\n$        N        t      e\r\n$ \r\n$ where the thermal moment is\r\n$ \r\n$                                                     +\r\n$                              +   +                  |\r\n$                              | 1 |     pix      piy |\r\n$      {M }  =  alphaT' D(1+v) | 1 | cos ---  cos --- |\r\n$        t            o        | 0 |      a        b  |\r\n$                              +   +                  |\r\n$                3                                    |                      (2)\r\n$              Et                                     |\r\n$ and  D =  ---------                                 |\r\n$                 2                                   |\r\n$           12(1-v )                                  |\r\n$                                                     +\r\n$ \r\n$ and T' = 6T /5t is the effective thermal gradient.\r\n$      o     o\r\n$ \r\n$ The elastic moment is defined by the curvatures, x, with the equation:\r\n$ \r\n$                 +               +\r\n$                 | x   +  vx     |\r\n$                 |  x       y    |\r\n$                 |               |\r\n$      {M }  =  D | x   +  vx     |                                          (3)\r\n$        e        |  y       x    |\r\n$                 |               |\r\n$                 |    (1-v)      |\r\n$                 |   ------- x   |\r\n$                 |      2     xy |\r\n$                 +               +\r\n$ \r\n$ Assuming a normal displacement function, W, of\r\n$ \r\n$ \r\n$                                         npix      mpiy\r\n$      W  = sum from n sum from m W   cos ----  cos ----                     (4)\r\n$                                  nm      a         b\r\n$ \r\n$ \r\n$ then                                                      \r\n$                                                                         +\r\n$            2                                                            |\r\n$           a W                              2     n  2     npix     mpiy |\r\n$    x   =  ---  = - sum from n sum from m pi W  ( - )  cos ---- cos ---- |\r\n$     x       2                                nm  a         a        b   |\r\n$           ax                                                            |\r\n$                                                                         |\r\n$            2                                                            |\r\n$           a W                              2     m  2     npix     mpiy |\r\n$    x   =  ---  = - sum from n sum from m pi W  ( - )  cos ---- cos ---- |  (5)\r\n$     y       2                                nm  a         a        b   |\r\n$           ay                                                            |\r\n$                                                                         |\r\n$            2                                                            |\r\n$           a W                              2    nm      npix     mpiy   |\r\n$    x   =2 ---- = - sum from n sum from m pi W  (--) sin ---- sin ----   |\r\n$     xy    axay                               nm ab       a        b     |\r\n$                                                                         +\r\n$ The work done by the thermal load is:\r\n$ \r\n$                             T          1                    T       \r\n$    U  =  integral from A {X} {M } dA + - integral from A {X} {M } dA       (6)\r\n$                                t       2                       e    \r\n$ \r\n$ where A is the surface area. Performing the substitution and integrating \r\n$ results in the energy expression: \r\n$  \r\n$                            2   2  2\r\n$            alphaT' D(1+v)pi  (a +b )\r\n$                  o                      D  \r\n$      U = - ---------------------  W   + -- sum from n=1 to infinity\r\n$                   4ab              11   2\r\n$ \r\n$                                                2                           (7)\r\n$                                 4    ( 2     2)\r\n$                                piab  (n     m )   2\r\n$      sum from n=1 to infinity  ----  (--  + --)  W\r\n$                                 4    ( 2     2)   nm\r\n$                                      (a     b )\r\n$ \r\n$ The static solution exists at a minimum energy:\r\n$ \r\n$      aU\r\n$      -----  =  0                                                           (8)\r\n$      aW\r\n$        nm\r\n$ \r\n$ This results in all but W   equal to zero. The displacement function is \r\n$                          11\r\n$ therefore: \r\n$ \r\n$                               2 2  \r\n$                 alphaT' (1+v)a b \r\n$                       o             pix      piy\r\n$      W(x,y)  =  --------------  cos ---  cos ---                           (9)\r\n$                   2  2    2          a        b\r\n$                   (a  + b )\r\n$ \r\n$ Solving for moments by differentiating W and using equation (3) results in the \r\n$ equations for element moments: \r\n$                        +           +\r\n$                        |     2   2 |\r\n$                        |    b +va  |     pix     piy\r\n$      M  = alphaT'D(1+v)|1 - -------| cos --- cos ---                      (10)\r\n$       x         o      |     2  2  |      a       b\r\n$                        |    a +b   |\r\n$                        +           +\r\n$                        +           +              \r\n$                        |     2   2 |              \r\n$                        |    a +vb  |     pix     piy\r\n$      M  = alphaT'D(1+v)|1 - -------| cos --- cos ---                      (11)\r\n$       y         o      |     2  2  |      a       b \r\n$                        |    a +b   |              \r\n$                        +           +              \r\n$ \r\n$                        2\r\n$            alphaT'D(1-v )ab\r\n$      M           o               pix     piy\r\n$       xy = ----------------- sin --- cos ---                              (12)\r\n$              2      2             a       b \r\n$             a   +  b\r\n$ \r\n$ D. Results\r\n$ \r\n$ The maximum errors for displacements, constraint forces, element forces, and \r\n$ element stresses are listed in Table 1. \r\n$ \r\n$               Table 1. Comparison of Analytical and NASTRAN Results\r\n$              --------------------------------------------------------\r\n$               CATEGORY       MAXIMUM         MAXIMUM                  \r\n$                              ANALYTICAL      NASTRAN         PERCENT \r\n$                              VALUE           DIFFERENCE      ERROR    \r\n$              --------------------------------------------------------\r\n$              Displacement              -1               -3            \r\n$                             6.2898 x 10     11.5464 x 10     -0.25   \r\n$              -------------------------------------------------------- \r\n$              Constraint                                              \r\n$              Force              150.0           -.9594       -0.65    \r\n$              --------------------------------------------------------\r\n$              Element Mom.,             2                              \r\n$              M              1.4770 x 10        -1.1767       -0.80   \r\n$               x                                                       \r\n$              --------------------------------------------------------\r\n$              Element                     3                            \r\n$              Stress         7.764618 x 10     -90.33275      -1.16   \r\n$              --------------------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01121a.inp",
    "content": "ID    D01121A,NASTRAN                                                           \r\nTIME  30                                                                        \r\nAPP   HEAT                                                                      \r\nSOL   1,1                                                                       \r\nCEND                                                                            \r\nTITLE    = LINEAR STEADY STATE HEAT CONDUCTION THROUGH A WASHER                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-1A                          \r\nLABEL    = SOLID ELEMENTS , SURFACE FILM HEAT TRANSFER                          \r\nOLOAD    = ALL                                                                  \r\nSPCFORCES= ALL                                                                  \r\nTHERMAL(PRINT,PUNCH) = ALL                                                      \r\nELFORCE  = ALL                                                                  \r\nSUBCASE 123                                                                     \r\nLABEL    = TEMPERATURE SPECIFIED AT OUTER BOUNDARY                              \r\nSPC  = 351                                                                      \r\nLOAD = 251                                                                      \r\nBEGIN BULK                                                                      \r\nCHBDY   701     702     AREA4   1       12      112     101                     \r\nCHEXA1  1       200     1       2       13      12      101     102     +SOL1   \r\n+SOL1   113     112                                                             \r\nCHEXA2  2       200     2       3       14      13      102     103     +SOL2   \r\n+SOL2   114     113                                                             \r\nCORD2C  111     0       .0      .0      .0      .0      .0      100.0   +CORD111\r\n+CORD111100.0   .0      .0                                                      \r\nCTETRA  3       200     104     114     3       103                             \r\nCTETRA  4       200     104     15      4       3                               \r\nCTETRA  5       200     115     15      104     114                             \r\nCTETRA  6       200     15      14      3       114                             \r\nCTETRA  7       200     114     104     3       15                              \r\nCWEDGE  8       200     4       5       15      104     105     115             \r\nCWEDGE  9       200     5       16      15      105     116     115             \r\nCWEDGE  10      200     5       6       16      105     106     116             \r\nCWEDGE  11      200     6       17      16      106     117     116             \r\nCWEDGE  12      200     6       7       17      106     107     117             \r\nCWEDGE  13      200     7       18      17      107     118     117             \r\nCWEDGE  14      200     7       8       18      107     108     118             \r\nCWEDGE  15      200     8       19      18      108     119     118             \r\nCWEDGE  16      200     8       9       19      108     109     119             \r\nCWEDGE  17      200     9       20      19      109     120     119             \r\nCWEDGE  18      200     9       10      20      109     110     120             \r\nCWEDGE  19      200     10      21      20      110     121     120             \r\nCWEDGE  20      200     10      11      21      110     111     121             \r\nCWEDGE  21      200     11      22      21      111     122     121             \r\nGRDSET                                          111                             \r\nGRID    1       111     1.0     .0      .0                                      \r\nGRID    2       111     1.1     .0      .0                                      \r\nGRID    3       111     1.2     .0      .0                                      \r\nGRID    4       111     1.3     .0      .0                                      \r\nGRID    5       111     1.4     .0      .0                                      \r\nGRID    6       111     1.5     .0      .0                                      \r\nGRID    7       111     1.6     .0      .0                                      \r\nGRID    8       111     1.7     .0      .0                                      \r\nGRID    9       111     1.8     .0      .0                                      \r\nGRID    10      111     1.9     .0      .0                                      \r\nGRID    11      111     2.0     .0      .0                                      \r\nGRID    12      111     1.0     4.0     .0                                      \r\nGRID    13      111     1.1     4.0     .0                                      \r\nGRID    14      111     1.2     4.0     .0                                      \r\nGRID    15      111     1.3     4.0     .0                                      \r\nGRID    16      111     1.4     4.0     .0                                      \r\nGRID    17      111     1.5     4.0     .0                                      \r\nGRID    18      111     1.6     4.0     .0                                      \r\nGRID    19      111     1.7     4.0     .0                                      \r\nGRID    20      111     1.8     4.0     .0                                      \r\nGRID    21      111     1.9     4.0     .0                                      \r\nGRID    22      111     2.0     4.0     .0                                      \r\nGRID    101     111     1.0     .0      1.0-1                                   \r\nGRID    102     111     1.1     .0      1.0-1                                   \r\nGRID    103     111     1.2     .0      1.0-1                                   \r\nGRID    104     111     1.3     .0      1.0-1                                   \r\nGRID    105     111     1.4     .0      1.0-1                                   \r\nGRID    106     111     1.5     .0      1.0-1                                   \r\nGRID    107     111     1.6     .0      1.0-1                                   \r\nGRID    108     111     1.7     .0      1.0-1                                   \r\nGRID    109     111     1.8     .0      1.0-1                                   \r\nGRID    110     111     1.9     .0      1.0-1                                   \r\nGRID    111     111     2.0     .0      1.0-1                                   \r\nGRID    112     111     1.0     4.0     1.0-1                                   \r\nGRID    113     111     1.1     4.0     1.0-1                                   \r\nGRID    114     111     1.2     4.0     1.0-1                                   \r\nGRID    115     111     1.3     4.0     1.0-1                                   \r\nGRID    116     111     1.4     4.0     1.0-1                                   \r\nGRID    117     111     1.5     4.0     1.0-1                                   \r\nGRID    118     111     1.6     4.0     1.0-1                                   \r\nGRID    119     111     1.7     4.0     1.0-1                                   \r\nGRID    120     111     1.8     4.0     1.0-1                                   \r\nGRID    121     111     1.9     4.0     1.0-1                                   \r\nGRID    122     111     2.0     4.0     1.0-1                                   \r\nMAT4    200     1.0                                                             \r\nPARAM   IRES    1                                                               \r\nPHBDY   702                                                                     \r\nQBDY1   251     288.5   701                                                     \r\nSEQGP   12      1.1     13      2.1     14      3.1     15      4.1             \r\nSEQGP   16      5.1     17      6.1     18      7.1     19      8.1             \r\nSEQGP   20      9.1     21      10.1    22      11.1                            \r\nSEQGP   101     1.2     102     2.2     103     3.2     104     4.2             \r\nSEQGP   105     5.2     106     6.2     107     7.2     108     8.2             \r\nSEQGP   109     9.2     110     10.2    111     11.2                            \r\nSEQGP   112     1.3     113     2.3     114     3.3     115     4.3             \r\nSEQGP   116     5.3     117     6.3     118     7.3     119     8.3             \r\nSEQGP   120     9.3     121     10.3    122     11.3                            \r\nSPC     351     11      1       .0      22      1       .0                      \r\nSPC     351     111     1       .0      122     1       .0                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01121a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$            RIGID FORMAT No. 1 (APP HEAT), Heat Conduction Analysis\r\n$             Linear Steady State Heat Conduction Through a Washer\r\n$                         Using Solid Elements (1-12-1)\r\n$             Linear Steady State Heat Conduction Through a Washer\r\n$                         Using Ring Elements (1-12-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the capability of NASTRAN to solve heat conduction\r\n$ problems. The washer has a radial heat conduction with the temperature\r\n$ specified at the outside and a film heat transfer condition at the inner edge.\r\n$ Due to symmetry about the axis and the assumption of negligible axial\r\n$ gradients, the temperature depends only upon the radius.\r\n$ \r\n$ B. Input\r\n$ \r\n$ In the first NASTRAN model, the solid elements (HEXA1, HEXA2, WEDGE, and\r\n$ TETRA) and boundary condition element (HBDY, type AREA4) are used. The\r\n$ conductivity of the material is specified on a MAT4 card. Temperatures are\r\n$ specified at the outer boundary with SPC cards. Punched temperature output is\r\n$ placed on TEMP bulk data cards suitable for static analysis.\r\n$ \r\n$ Another variation of the problem uses solid of revolution elements (TRIARG and\r\n$ TRAPRG) and boundary condition element (HBDY, type REV). The conductivity of\r\n$ the material and the convective film coefficient are specified on a MAT4 card.\r\n$ The CHBDY card references a scalar point at which the ambient temperature is\r\n$ specified using an SPC card. An SPC1 card is used to constrain the temperature\r\n$ to zero degrees at gridpoInts on the outer surface.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The mathematical theory for the continuum is simple, and can be solved in\r\n$ closed form. The differential equation is\r\n$ \r\n$      1  a      aU\r\n$      -  --  (rk--) = 0                                                     (1)\r\n$      r  ar     ar\r\n$ \r\n$ The boundary conditions are\r\n$ \r\n$         aU\r\n$      -k -- = H(U  - U) at r = r                                            (2)\r\n$         ar      a              1\r\n$ \r\n$ and\r\n$ \r\n$     U = 0 at r = r                                                         (3)\r\n$                    2\r\n$ \r\n$ The solution is\r\n$ \r\n$                    HU\r\n$                      a\r\n$      U(r) = --------------------    ln(r /r)\r\n$             (k/r ) + H ln(r /r )        2\r\n$                 1          2  1\r\n$ \r\n$           = 288.516 ln(2/r)\r\n$ \r\n$ D. Results\r\n$ \r\n$ A comparison with the NASTRAN results is shown in Table 1.\r\n$ \r\n$           Table 1. Comparison of Theoretical and NASTRAN Temperatures\r\n$                         for Heat Conduction in a Washer\r\n$     ------------------------------------------------------------------------\r\n$                  Theoretical    NASTRAN Temperatures   NASTRAN Temperatures\r\n$      r(radius)   Temperatures         (Solids)*             (Rings)*\r\n$     ------------------------------------------------------------------------\r\n$         1.0         199.984          202.396                  199.932\r\n$ \r\n$         1.1         172.486          173.904                  172.448\r\n$ \r\n$         1.2         147.381          148.833                  147.355\r\n$ \r\n$         1.3         124.288          124.783                  124.269\r\n$ \r\n$         1.4         102.906          102.852                  102.894\r\n$ \r\n$         1.5          83.001           82.913                   82.992\r\n$ \r\n$         1.6          64.380           64.306                   64.375\r\n$ \r\n$         1.7          46.889           46.832                   46.886\r\n$ \r\n$         1.8          30.398           30.356                   30.397\r\n$ \r\n$         1.9          14.799           14.773                   14.798\r\n$ \r\n$         2.0           0.000            0.000                    0.000\r\n$     ------------------------------------------------------------------------\r\n$       * These are the average temperatures at a radius.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01122a.inp",
    "content": "ID    D01122A,NASTRAN                                                           \r\nAPP   HEAT                                                                      \r\nDIAG  14                                                                        \r\nSOL   1,0                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = LINEAR STEADY STATE CONDUCTION THROUGH A WASHER                      \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-12-2A                          \r\nLABEL    = RING ELEMENTS, FILM HEAT TRANSFER                                    \r\nOUTPUT                                                                          \r\nOLOAD    = ALL                                                                  \r\nSPCFORCE = ALL                                                                  \r\nTHERMAL (PRINT,PUNCH) = ALL                                                     \r\nELFORCE  = ALL                                                                  \r\nSPC = 350                                                                       \r\nBEGIN BULK                                                                      \r\nCHBDY   14      100     REV     1       12                              +HBDY14 \r\n+HBDY14 23      23                                                              \r\nCTRAPRG 7       4       5       16      15      .0      200                     \r\nCTRAPRG 8       5       6       17      16      .0      200                     \r\nCTRAPRG 9       6       7       18      17      .0      200                     \r\nCTRAPRG 10      7       8       19      18      .0      200                     \r\nCTRAPRG 11      8       9       20      19      .0      200                     \r\nCTRAPRG 12      9       10      21      20      .0      200                     \r\nCTRAPRG 13      10      11      22      21      .0      200                     \r\nCTRIARG 1       1       13      12      -45.0   200                             \r\nCTRIARG 2       1       2       13      .0      200                             \r\nCTRIARG 3       2       14      13      -45.0   200                             \r\nCTRIARG 4       2       3       14      .0      200                             \r\nCTRIARG 5       3       15      14      -45.0   200                             \r\nCTRIARG 6       3       4       15      .0      200                             \r\nGRID    1               1.0     .0      .0                                      \r\nGRID    2               1.1     .0      .0                                      \r\nGRID    3               1.2     .0      .0                                      \r\nGRID    4               1.3     .0      .0                                      \r\nGRID    5               1.4     .0      .0                                      \r\nGRID    6               1.5     .0      .0                                      \r\nGRID    7               1.6     .0      .0                                      \r\nGRID    8               1.7     .0      .0                                      \r\nGRID    9               1.8     .0      .0                                      \r\nGRID    10              1.9     .0      .0                                      \r\nGRID    11              2.0     .0      .0                                      \r\nGRID    12              1.0     .0      .1                                      \r\nGRID    13              1.1     .0      .1                                      \r\nGRID    14              1.2     .0      .1                                      \r\nGRID    15              1.3     .0      .1                                      \r\nGRID    16              1.4     .0      .1                                      \r\nGRID    17              1.5     .0      .1                                      \r\nGRID    18              1.6     .0      .1                                      \r\nGRID    19              1.7     .0      .1                                      \r\nGRID    20              1.8     .0      .1                                      \r\nGRID    21              1.9     .0      .1                                      \r\nGRID    22              2.0     .0      .1                                      \r\nMAT4    200     1.0                                                             \r\nMAT4    300     1.0                                                             \r\nPHBDY   100     300                                                             \r\nSEQGP   12      1.1     13      2.1     14      3.1     15      4.1             \r\nSEQGP   16      5.1     17      6.1     18      7.1     19      8.1             \r\nSEQGP   20      9.1     21      10.1    22      11.1    23      1.0.5           \r\nSPC     352     23              488.5                                           \r\nSPC1    351     1       11      22                                              \r\nSPCADD  350     351     352                                                     \r\nSPOINT  23                                                                      \r\nTEMPD   201     .0                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01122a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$            RIGID FORMAT No. 1 (APP HEAT), Heat Conduction Analysis\r\n$             Linear Steady State Heat Conduction Through a Washer\r\n$                         Using Solid Elements (1-12-1)\r\n$             Linear Steady State Heat Conduction Through a Washer\r\n$                         Using Ring Elements (1-12-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the capability of NASTRAN to solve heat conduction\r\n$ problems. The washer has a radial heat conduction with the temperature\r\n$ specified at the outside and a film heat transfer condition at the inner edge.\r\n$ Due to symmetry about the axis and the assumption of negligible axial\r\n$ gradients, the temperature depends only upon the radius.\r\n$ \r\n$ B. Input\r\n$ \r\n$ In the first NASTRAN model, the solid elements (HEXA1, HEXA2, WEDGE, and\r\n$ TETRA) and boundary condition element (HBDY, type AREA4) are used. The\r\n$ conductivity of the material is specified on a MAT4 card. Temperatures are\r\n$ specified at the outer boundary with SPC cards. Punched temperature output is\r\n$ placed on TEMP bulk data cards suitable for static analysis.\r\n$ \r\n$ Another variation of the problem uses solid of revolution elements (TRIARG and\r\n$ TRAPRG) and boundary condition element (HBDY, type REV). The conductivity of\r\n$ the material and the convective film coefficient are specified on a MAT4 card.\r\n$ The CHBDY card references a scalar point at which the ambient temperature is\r\n$ specified using an SPC card. An SPC1 card is used to constrain the temperature\r\n$ to zero degrees at gridpoInts on the outer surface.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The mathematical theory for the continuum is simple, and can be solved in\r\n$ closed form. The differential equation is\r\n$ \r\n$      1  a      aU\r\n$      -  --  (rk--) = 0                                                     (1)\r\n$      r  ar     ar\r\n$ \r\n$ The boundary conditions are\r\n$ \r\n$         aU\r\n$      -k -- = H(U  - U) at r = r                                            (2)\r\n$         ar      a              1\r\n$ \r\n$ and\r\n$ \r\n$     U = 0 at r = r                                                         (3)\r\n$                    2\r\n$ \r\n$ The solution is\r\n$ \r\n$                    HU\r\n$                      a\r\n$      U(r) = --------------------    ln(r /r)\r\n$             (k/r ) + H ln(r /r )        2\r\n$                 1          2  1\r\n$ \r\n$           = 288.516 ln(2/r)\r\n$ \r\n$ D. Results\r\n$ \r\n$ A comparison with the NASTRAN results is shown in Table 1.\r\n$ \r\n$           Table 1. Comparison of Theoretical and NASTRAN Temperatures\r\n$                         for Heat Conduction in a Washer\r\n$     ------------------------------------------------------------------------\r\n$                  Theoretical    NASTRAN Temperatures   NASTRAN Temperatures\r\n$      r(radius)   Temperatures         (Solids)*             (Rings)*\r\n$     ------------------------------------------------------------------------\r\n$         1.0         199.984          202.396                  199.932\r\n$ \r\n$         1.1         172.486          173.904                  172.448\r\n$ \r\n$         1.2         147.381          148.833                  147.355\r\n$ \r\n$         1.3         124.288          124.783                  124.269\r\n$ \r\n$         1.4         102.906          102.852                  102.894\r\n$ \r\n$         1.5          83.001           82.913                   82.992\r\n$ \r\n$         1.6          64.380           64.306                   64.375\r\n$ \r\n$         1.7          46.889           46.832                   46.886\r\n$ \r\n$         1.8          30.398           30.356                   30.397\r\n$ \r\n$         1.9          14.799           14.773                   14.798\r\n$ \r\n$         2.0           0.000            0.000                    0.000\r\n$     ------------------------------------------------------------------------\r\n$       * These are the average temperatures at a radius.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01131a.inp",
    "content": "ID    D01131A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = LOADS ON A LONG PIPE USING LINEAR ISOPARAMETRIC ELEMENTS             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-1A                          \r\nDISP  = ALL                                                                     \r\nSTRESS= ALL                                                                     \r\nSPC   = 100                                                                     \r\nSUBCASE   1                                                                     \r\nLABEL = PRESSURE LOAD                                                           \r\nLOAD  = 400                                                                     \r\nSUBCASE   2                                                                     \r\nLABEL = THERMAL LOAD                                                            \r\nTEMP(LOAD) = 500                                                                \r\nBEGIN BULK                                                                      \r\nCIHEX1  1       200     1       2       20      19      7       8       +HEX1-1 \r\n+HEX1-1 26      25                                                              \r\nCIHEX1  2       200     2       3       21      20      8       9       +HEX1-2 \r\n+HEX1-2 27      26                                                              \r\nCIHEX1  3       200     3       4       22      21      9       10      +HEX1-3 \r\n+HEX1-3 28      27                                                              \r\nCIHEX1  4       200     4       5       23      22      10      11      +HEX1-4 \r\n+HEX1-4 29      28                                                              \r\nCIHEX1  5       200     5       6       24      23      11      12      +HEX1-5 \r\n+HEX1-5 30      29                                                              \r\nCIHEX1  6       200     19      20      38      37      25      26      +HEX1-6 \r\n+HEX1-6 44      43                                                              \r\nCIHEX1  7       200     20      21      39      38      26      27      +HEX1-7 \r\n+HEX1-7 45      44                                                              \r\nCIHEX1  8       200     21      22      40      39      27      28      +HEX1-8 \r\n+HEX1-8 46      45                                                              \r\nCIHEX1  9       200     22      23      41      40      28      29      +HEX1-9 \r\n+HEX1-9 47      46                                                              \r\nCIHEX1  10      200     23      24      42      41      29      30      +HEX1-10\r\n+HEX1-1048      47                                                              \r\nCIHEX1  11      200     37      38      56      55      43      44      +HEX1-11\r\n+HEX1-1162      61                                                              \r\nCIHEX1  12      200     38      39      57      56      44      45      +HEX1-12\r\n+HEX1-1263      62                                                              \r\nCIHEX1  13      200     39      40      58      57      45      46      +HEX1-13\r\n+HEX1-1364      63                                                              \r\nCIHEX1  14      200     40      41      59      58      46      47      +HEX1-14\r\n+HEX1-1465      64                                                              \r\nCIHEX1  15      200     41      42      60      59      47      48      +HEX1-15\r\n+HEX1-1566      65                                                              \r\nCIHEX1  16      200     55      56      74      73      61      62      +HEX1-16\r\n+HEX1-1680      79                                                              \r\nCIHEX1  17      200     56      57      75      74      62      63      +HEX1-17\r\n+HEX1-1781      80                                                              \r\nCIHEX1  18      200     57      58      76      75      63      64      +HEX1-18\r\n+HEX1-1882      81                                                              \r\nCIHEX1  19      200     58      59      77      76      64      65      +HEX1-19\r\n+HEX1-1983      82                                                              \r\nCIHEX1  20      200     59      60      78      77      65      66      +HEX1-20\r\n+HEX1-2084      83                                                              \r\nCIHEX1  21      200     7       8       26      25      13      14      +HEX1-21\r\n+HEX1-2132      31                                                              \r\nCIHEX1  22      200     8       9       27      26      14      15      +HEX1-22\r\n+HEX1-2233      32                                                              \r\nCIHEX1  23      200     9       10      28      27      15      16      +HEX1-23\r\n+HEX1-2334      33                                                              \r\nCIHEX1  24      200     10      11      29      28      16      17      +HEX1-24\r\n+HEX1-2435      34                                                              \r\nCIHEX1  25      200     11      12      30      29      17      18      +HEX1-25\r\n+HEX1-2536      35                                                              \r\nCIHEX1  26      200     25      26      44      43      31      32      +HEX1-26\r\n+HEX1-2650      49                                                              \r\nCIHEX1  27      200     26      27      45      44      32      33      +HEX1-27\r\n+HEX1-2751      50                                                              \r\nCIHEX1  28      200     27      28      46      45      33      34      +HEX1-28\r\n+HEX1-2852      51                                                              \r\nCIHEX1  29      200     28      29      47      46      34      35      +HEX1-29\r\n+HEX1-2953      52                                                              \r\nCIHEX1  30      200     29      30      48      47      35      36      +HEX1-30\r\n+HEX1-3054      53                                                              \r\nCIHEX1  31      200     43      44      62      61      49      50      +HEX1-31\r\n+HEX1-3168      67                                                              \r\nCIHEX1  32      200     44      45      63      62      50      51      +HEX1-32\r\n+HEX1-3269      68                                                              \r\nCIHEX1  33      200     45      46      64      63      51      52      +HEX1-33\r\n+HEX1-3370      69                                                              \r\nCIHEX1  34      200     46      47      65      64      52      53      +HEX1-34\r\n+HEX1-3471      70                                                              \r\nCIHEX1  35      200     47      48      66      65      53      54      +HEX1-35\r\n+HEX1-3572      71                                                              \r\nCIHEX1  36      200     61      62      80      79      67      68      +HEX1-36\r\n+HEX1-3686      85                                                              \r\nCIHEX1  37      200     62      63      81      80      68      69      +HEX1-37\r\n+HEX1-3787      86                                                              \r\nCIHEX1  38      200     63      64      82      81      69      70      +HEX1-38\r\n+HEX1-3888      87                                                              \r\nCIHEX1  39      200     64      65      83      82      70      71      +HEX1-39\r\n+HEX1-3989      88                                                              \r\nCIHEX1  40      200     65      66      84      83      71      72      +HEX1-40\r\n+HEX1-4090      89                                                              \r\nCNGRNT  1       6       11      16      21      26      31      36              \r\nCNGRNT  2       7       12      17      22      27      32      37              \r\nCNGRNT  3       8       13      18      23      28      33      38              \r\nCNGRNT  4       9       14      19      24      29      34      39              \r\nCNGRNT  5       10      15      20      25      30      35      40              \r\nCORD2C  1       0       .0      .0      .0      .0      .0      100.0   +CORD2-1\r\n+CORD2-1100.0   .0      .0                                                      \r\nCORD2C  2               .0      .0      .5      .0      .0      100.0   +CORD2-2\r\n+CORD2-2100.0   .0      2.0                                                     \r\nCORD2C  3               .0      .0      1.0     .0      .0      100.0   +CORD2-3\r\n+CORD2-3100.0   .0      2.0                                                     \r\nGRDSET          1                               1       456                     \r\nGRID    1               4.0     -14.0                                           \r\nGRID    2               4.2     -14.0                                           \r\nGRID    3               4.4     -14.0                                           \r\nGRID    4               4.6     -14.0                                           \r\nGRID    5               4.8     -14.0                                           \r\nGRID    6               5.0     -14.0                                           \r\nGRID    7       2       4.0     -14.0           2                               \r\nGRID    8       2       4.2     -14.0           2                               \r\nGRID    9       2       4.4     -14.0           2                               \r\nGRID    10      2       4.6     -14.0           2                               \r\nGRID    11      2       4.8     -14.0           2                               \r\nGRID    12      2       5.0     -14.0           2                               \r\nGRID    13      3       4.0     -14.0           3                               \r\nGRID    14      3       4.2     -14.0           3                               \r\nGRID    15      3       4.4     -14.0           3                               \r\nGRID    16      3       4.6     -14.0           3                               \r\nGRID    17      3       4.8     -14.0           3                               \r\nGRID    18      3       5.0     -14.0           3                               \r\nGRID    19              4.0     -7.0                                            \r\nGRID    20              4.2     -7.0                                            \r\nGRID    21              4.4     -7.0                                            \r\nGRID    22              4.6     -7.0                                            \r\nGRID    23              4.8     -7.0                                            \r\nGRID    24              5.0     -7.0                                            \r\nGRID    25      2       4.0     -7.0            2                               \r\nGRID    26      2       4.2     -7.0            2                               \r\nGRID    27      2       4.4     -7.0            2                               \r\nGRID    28      2       4.6     -7.0            2                               \r\nGRID    29      2       4.8     -7.0            2                               \r\nGRID    30      2       5.0     -7.0            2                               \r\nGRID    31      3       4.0     -7.0            3                               \r\nGRID    32      3       4.2     -7.0            3                               \r\nGRID    33      3       4.4     -7.0            3                               \r\nGRID    34      3       4.6     -7.0            3                               \r\nGRID    35      3       4.8     -7.0            3                               \r\nGRID    36      3       5.0     -7.0            3                               \r\nGRID    37              4.0                                                     \r\nGRID    38              4.2                                                     \r\nGRID    39              4.4                                                     \r\nGRID    40              4.6                                                     \r\nGRID    41              4.8                                                     \r\nGRID    42              5.0                                                     \r\nGRID    43      2       4.0                     2                               \r\nGRID    44      2       4.2                     2                               \r\nGRID    45      2       4.4                     2                               \r\nGRID    46      2       4.6                     2                               \r\nGRID    47      2       4.8                     2                               \r\nGRID    48      2       5.0                     2                               \r\nGRID    49      3       4.0                     3                               \r\nGRID    50      3       4.2                     3                               \r\nGRID    51      3       4.4                     3                               \r\nGRID    52      3       4.6                     3                               \r\nGRID    53      3       4.8                     3                               \r\nGRID    54      3       5.0                     3                               \r\nGRID    55              4.0     7.0                                             \r\nGRID    56              4.2     7.0                                             \r\nGRID    57              4.4     7.0                                             \r\nGRID    58              4.6     7.0                                             \r\nGRID    59              4.8     7.0                                             \r\nGRID    60              5.0     7.0                                             \r\nGRID    61      2       4.0     7.0             2                               \r\nGRID    62      2       4.2     7.0             2                               \r\nGRID    63      2       4.4     7.0             2                               \r\nGRID    64      2       4.6     7.0             2                               \r\nGRID    65      2       4.8     7.0             2                               \r\nGRID    66      2       5.0     7.0             2                               \r\nGRID    67      3       4.0     7.0             3                               \r\nGRID    68      3       4.2     7.0             3                               \r\nGRID    69      3       4.4     7.0             3                               \r\nGRID    70      3       4.6     7.0             3                               \r\nGRID    71      3       4.8     7.0             3                               \r\nGRID    72      3       5.0     7.0             3                               \r\nGRID    73              4.0     14.0                                            \r\nGRID    74              4.2     14.0                                            \r\nGRID    75              4.4     14.0                                            \r\nGRID    76              4.6     14.0                                            \r\nGRID    77              4.8     14.0                                            \r\nGRID    78              5.0     14.0                                            \r\nGRID    79      2       4.0     14.0            2                               \r\nGRID    80      2       4.2     14.0            2                               \r\nGRID    81      2       4.4     14.0            2                               \r\nGRID    82      2       4.6     14.0            2                               \r\nGRID    83      2       4.8     14.0            2                               \r\nGRID    84      2       5.0     14.0            2                               \r\nGRID    85      3       4.0     14.0            3                               \r\nGRID    86      3       4.2     14.0            3                               \r\nGRID    87      3       4.4     14.0            3                               \r\nGRID    88      3       4.6     14.0            3                               \r\nGRID    89      3       4.8     14.0            3                               \r\nGRID    90      3       5.0     14.0            3                               \r\nMAT1    300     3.+7            .3      7.535-4 1.428-5 .0                      \r\nPIHEX   200     300             4       4.5     10.0                            \r\nPLOAD3  400     -10.0   1       1       25      21      7       31              \r\nPLOAD3  400     -10.0   6       19      43      26      25      49              \r\nPLOAD3  400     -10.0   11      37      61      31      43      67              \r\nPLOAD3  400     -10.0   16      55      79      36      61      85              \r\nSPC1    100     2       1       THRU    18                                      \r\nSPC1    100     2       73      THRU    90                                      \r\nSPC1    100     3       1       THRU    6                                       \r\nSPC1    100     3       13      THRU    18                                      \r\nSPC1    100     3       19      THRU    24                                      \r\nSPC1    100     3       31      THRU    36                                      \r\nSPC1    100     3       37      THRU    42                                      \r\nSPC1    100     3       49      THRU    54                                      \r\nSPC1    100     3       55      THRU    60                                      \r\nSPC1    100     3       67      THRU    72                                      \r\nSPC1    100     3       73      THRU    78                                      \r\nSPC1    100     3       85      THRU    90                                      \r\nTEMP    500     1       100.0   7       100.0   13      100.0                   \r\nTEMP    500     2       78.14   8       78.14   14      78.14                   \r\nTEMP    500     3       57.29   9       57.29   15      57.29                   \r\nTEMP    500     4       37.37   10      37.37   16      37.37                   \r\nTEMP    500     5       18.29   11      18.29   17      18.29                   \r\nTEMP    500     19      100.0   25      100.0   31      100.0                   \r\nTEMP    500     20      78.14   26      78.14   32      78.14                   \r\nTEMP    500     21      57.29   27      57.29   33      57.29                   \r\nTEMP    500     22      37.37   28      37.37   34      37.37                   \r\nTEMP    500     23      18.29   29      18.29   35      18.29                   \r\nTEMP    500     37      100.0   43      100.0   49      100.0                   \r\nTEMP    500     38      78.14   44      78.14   50      78.14                   \r\nTEMP    500     39      57.29   45      57.29   51      57.29                   \r\nTEMP    500     40      37.37   46      37.37   52      37.37                   \r\nTEMP    500     41      18.29   47      18.29   53      18.29                   \r\nTEMP    500     55      100.0   61      100.0   67      100.0                   \r\nTEMP    500     56      78.14   62      78.14   68      78.14                   \r\nTEMP    500     57      57.29   63      57.29   69      57.29                   \r\nTEMP    500     58      37.37   64      37.37   70      37.37                   \r\nTEMP    500     59      18.29   65      18.29   71      18.29                   \r\nTEMP    500     73      100.0   79      100.0   85      100.0                   \r\nTEMP    500     74      78.14   80      78.14   86      78.14                   \r\nTEMP    500     75      57.29   81      57.29   87      57.29                   \r\nTEMP    500     76      37.37   82      37.37   88      37.37                   \r\nTEMP    500     77      18.29   83      18.29   89      18.29                   \r\nTEMPD   500     .0                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01131a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                     Linear Isoparametric Elements (1-13-1)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                    Quadratic Isoparametric Elements (1-13-2)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                      Cubic Isoparametric Elements (1-13-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ These problems demonstrate the use of the linear, quadratic, and cubic\r\n$ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long\r\n$ pipe, assumed to be in a state of plane strain, is subjected to an internal\r\n$ pressure and a thermal gradient in the radial direction.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    r       = a =  4 in.        (radius to the inner surface)\r\n$     inner\r\n$ \r\n$    r       = b =  5 in.        (radius to the outer surface)\r\n$     outer\r\n$ \r\n$                6\r\n$    E = 30. x 10    psi          (Young's Modulus)\r\n$ \r\n$    v = 0.3                      (Poisson's Ratio)\r\n$ \r\n$                      -5\r\n$    alpha = 1.428 x 10           (thermal expansion coefficient)\r\n$ \r\n$                           2\r\n$                  -4 lb-sec\r\n$    p = 7.535 x 10   --------    (mass density)\r\n$                         4\r\n$                       in\r\n$ \r\n$    p = 10 psi                   (inner surface pressure)\r\n$ \r\n$    T  = 100.0 deg. F            (inner surface temperature)\r\n$     i\r\n$ \r\n$    T  = 0.0 deg. F              (outer surface temperature)\r\n$     o\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$    u sub theta = 0 at all points on the right side\r\n$ \r\n$    u sub theta = 0 at all points on the left side\r\n$ \r\n$    u  = 0 at all points on the bottom surface\r\n$     z\r\n$ \r\n$    u  = 0 at all points on the top surface\r\n$     z\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Subcase 1,\r\n$ \r\n$      p = 10 psi    (internal pressure)\r\n$ \r\n$    Subcase 2,\r\n$ \r\n$            (T -T\r\n$              i  o)      (b)       100       (5)\r\n$      T  =  --------   ln(-)  =  --------  ln(-)  , where r is any radius.\r\n$       r        (b)      (r)     ln(1.25)    (r)\r\n$              ln(-)\r\n$                (a)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. Subcase 1\r\n$ \r\n$ The normal stresses due to the pressure load (Reference 24) are obtained by\r\n$ \r\n$                 2 2                2\r\n$                a b      p        pa\r\n$    sigma  =  - -------  --  +  -------                                     (1)\r\n$         r        2  2    2       2  2\r\n$                (b -a )  r      (b -a )\r\n$ \r\n$                          2 2                2\r\n$                         a b      p        pa\r\n$    sigma sub theta  =   -------  --  +  -------                            (2)\r\n$                           2  2    2       2  2\r\n$                         (b -a )  r      (b -a )\r\n$ \r\n$ and\r\n$                      2\r\n$                    pa\r\n$    sigma  =  2v  -------                                                   (3)\r\n$         z          2  2\r\n$                  (b -a )\r\n$ \r\n$ where r is the radius and all shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                             2                     2 2\r\n$         (l-2v)(l+v)       pa        (l+v)   l   pa b\r\n$    u  = -----------  r  -------  +  ------  -   -------                    (4)\r\n$     r        E            2  2        E     r     2  2\r\n$                         (b -a )                 (b -a )\r\n$ \r\n$ and all other displacements are zero.\r\n$ \r\n$ 2. Subcase 2\r\n$ \r\n$ The stresses in the radial and tangential directions due to the thermal load\r\n$ (Reference 24) are given by\r\n$ \r\n$             alphaET      +             2           2        +\r\n$                    i     |    (b)     a           b     (b) |\r\n$    sigma  = -----------  |- ln(-) - -------  (l - --) ln(-) |              (5)\r\n$         r           (b)  |    (r)     2  2         2    (a) |\r\n$             2(l-v)ln(-)  |          (b -a )       r         |\r\n$                     (a)  +                                  +\r\n$ and\r\n$ \r\n$                  alphaET      +               2           2        +\r\n$                         i     |      (b)     a           b     (b) |\r\n$    sigma       = -----------  |l - ln(-) - -------  (l + --) ln(-) |       (6)\r\n$         theta            (b)  |      (r)     2  2         2    (a) |\r\n$                  2(l-v)ln(-)  |            (b -a )       r         |\r\n$                          (a)  +                                    +\r\n$ \r\n$ The stress in the axial direction is obtained via the procedure contained in\r\n$ the reference as\r\n$ \r\n$                  alphaET      +        2                      +\r\n$                         i     |      2a  v     (b)        (b) |\r\n$    sigma       = -----------  |v -  -------  ln(-) - 2  ln(-) |            (7)\r\n$         theta            (b)  |       2  2     (a)        (r) |\r\n$                  2(l-v)ln(-)  |     (b -a )                   |\r\n$                          (a)  +                               +\r\n$ \r\n$ All shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                              ++      +                   +\r\n$                          T   ||      |   2 2             |\r\n$         (l + v)           i  ||   l  |  a b          (b) |\r\n$    u  = -------  alpha ----- || - -  |-----------  ln(-) |\r\n$     r   (l + v)          (b) ||   r  |    2  2       (a) |\r\n$                        ln(-) ||      | 2(b -a )          |\r\n$                          (a) ++      +                   +\r\n$ \r\n$             +                                            +  ++\r\n$             |                               2            |  ||\r\n$          r  |     (b)              (      2a        (b)) |  ||\r\n$        + -  | 2 ln(-) + l + (l-2v) ( l - -------  ln(-)) |  ||             (8)\r\n$          4  |     (r)              (       2  2     (a)) |  ||\r\n$             |                            (b -a )         |  ||\r\n$             +                                            +  ++\r\n$ \r\n$ D. Results\r\n$ \r\n$ Note that five IHEX1 elements were used along the radial thickness, whereas\r\n$ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the\r\n$ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a\r\n$ sawtooth pattern.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill,\r\n$     Inc., 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01132a.inp",
    "content": "ID    D01132A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = LOADS ON A LONG PIPE USING QUADRATIC ISOPARAMETRIC ELEMENTS          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-2A                          \r\nDISP   = ALL                                                                    \r\nSTRESS = ALL                                                                    \r\nSPC    = 200                                                                    \r\nSUBCASE   1                                                                     \r\nLABEL =  PRESSURE  LOAD                                                         \r\nLOAD  =  400                                                                    \r\nSUBCASE   2                                                                     \r\nLABEL =  THERMAL LOAD                                                           \r\nTEMP(LOAD) = 500                                                                \r\nBEGIN BULK                                                                      \r\nCIHEX2  1       200     1       2       3       10      15      14      +HEX-1  \r\n+HEX-1  13      9       4       5       17      16      6       7       +HEX-11 \r\n+HEX-11 8       12      20      19      18      11                              \r\nCIHEX2  2       200     13      14      15      22      27      26      +HEX-21 \r\n+HEX-21 25      21      16      17      29      28      18      19      +HEX-22 \r\n+HEX-22 20      24      32      31      30      23                              \r\nCNGRNT  1       2                                                               \r\nCORD2C  10      0       .0      .0      .0      .0      .0      100.0   +CRD-1  \r\n+CRD-1  100.0   .0      .0                                                      \r\nGRDSET          10                              10      456                     \r\nGRID    1               4.0     -14.0   .0                                      \r\nGRID    2               4.5     -14.0   .0                                      \r\nGRID    3               5.0     -14.0   .0                                      \r\nGRID    4               4.0     -14.0   .5                                      \r\nGRID    5               5.0     -14.0   .5                                      \r\nGRID    6               4.0     -14.0   1.0                                     \r\nGRID    7               4.5     -14.0   1.0                                     \r\nGRID    8               5.0     -14.0   1.0                                     \r\nGRID    9               4.0     -7.0    .0                                      \r\nGRID    10              5.0     -7.0    .0                                      \r\nGRID    11              4.0     -7.0    1.0                                     \r\nGRID    12              5.0     -7.0    1.0                                     \r\nGRID    13              4.0     .0      .0                                      \r\nGRID    14              4.5     .0      .0                                      \r\nGRID    15              5.0     .0      .0                                      \r\nGRID    16              4.0     .0      .5                                      \r\nGRID    17              5.0     .0      .5                                      \r\nGRID    18              4.0     .0      1.0                                     \r\nGRID    19              4.5     .0      1.0                                     \r\nGRID    20              5.0     .0      1.0                                     \r\nGRID    21              4.0     7.0     .0                                      \r\nGRID    22              5.0     7.0     .0                                      \r\nGRID    23              4.0     7.0     1.0                                     \r\nGRID    24              5.0     7.0     1.0                                     \r\nGRID    25              4.0     14.0    .0                                      \r\nGRID    26              4.5     14.0    .0                                      \r\nGRID    27              5.0     14.0    .0                                      \r\nGRID    28              4.0     14.0    .5                                      \r\nGRID    29              5.0     14.0    .5                                      \r\nGRID    30              4.0     14.0    1.0                                     \r\nGRID    31              4.5     14.0    1.0                                     \r\nGRID    32              5.0     14.0    1.0                                     \r\nMAT1    300     3.+7            .3      7.535-4 1.428-5 .0                      \r\nPIHEX   200     300             4                                               \r\nPLOAD3  400     -10.0   1       13      6       2       25      18              \r\nSPC1    200     2       1       THRU    8                                       \r\nSPC1    200     2       25      THRU    32                                      \r\nSPC1    200     3       1       2       3       9       10      13      +SPC-A3 \r\n+SPC-A3 14      15      21      22      25      26      27                      \r\nSPC1    200     3       6       7       8       11      12      18      +SPC-A4 \r\n+SPC-A4 19      20      23      24      30      31      32                      \r\nTEMP    500     1       100.0   4       100.0   6       100.0                   \r\nTEMP    500     9       100.0   11      100.0   13      100.0                   \r\nTEMP    500     14      47.22   19      47.22   26      47.22                   \r\nTEMP    500     16      100.0   18      100.0   21      100.0                   \r\nTEMP    500     23      100.0   25      100.0   28      100.0                   \r\nTEMP    500     30      100.0   2       47.22   7       47.22                   \r\nTEMP    500     31      47.22                                                   \r\nTEMPD   500     .0                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01132a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                     Linear Isoparametric Elements (1-13-1)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                    Quadratic Isoparametric Elements (1-13-2)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                      Cubic Isoparametric Elements (1-13-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ These problems demonstrate the use of the linear, quadratic, and cubic\r\n$ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long\r\n$ pipe, assumed to be in a state of plane strain, is subjected to an internal\r\n$ pressure and a thermal gradient in the radial direction.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    r       = a =  4 in.        (radius to the inner surface)\r\n$     inner\r\n$ \r\n$    r       = b =  5 in.        (radius to the outer surface)\r\n$     outer\r\n$ \r\n$                6\r\n$    E = 30. x 10    psi          (Young's Modulus)\r\n$ \r\n$    v = 0.3                      (Poisson's Ratio)\r\n$ \r\n$                      -5\r\n$    alpha = 1.428 x 10           (thermal expansion coefficient)\r\n$ \r\n$                           2\r\n$                  -4 lb-sec\r\n$    p = 7.535 x 10   --------    (mass density)\r\n$                         4\r\n$                       in\r\n$ \r\n$    p = 10 psi                   (inner surface pressure)\r\n$ \r\n$    T  = 100.0 deg. F            (inner surface temperature)\r\n$     i\r\n$ \r\n$    T  = 0.0 deg. F              (outer surface temperature)\r\n$     o\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$    u sub theta = 0 at all points on the right side\r\n$ \r\n$    u sub theta = 0 at all points on the left side\r\n$ \r\n$    u  = 0 at all points on the bottom surface\r\n$     z\r\n$ \r\n$    u  = 0 at all points on the top surface\r\n$     z\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Subcase 1,\r\n$ \r\n$      p = 10 psi    (internal pressure)\r\n$ \r\n$    Subcase 2,\r\n$ \r\n$            (T -T\r\n$              i  o)      (b)       100       (5)\r\n$      T  =  --------   ln(-)  =  --------  ln(-)  , where r is any radius.\r\n$       r        (b)      (r)     ln(1.25)    (r)\r\n$              ln(-)\r\n$                (a)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. Subcase 1\r\n$ \r\n$ The normal stresses due to the pressure load (Reference 24) are obtained by\r\n$ \r\n$                 2 2                2\r\n$                a b      p        pa\r\n$    sigma  =  - -------  --  +  -------                                     (1)\r\n$         r        2  2    2       2  2\r\n$                (b -a )  r      (b -a )\r\n$ \r\n$                          2 2                2\r\n$                         a b      p        pa\r\n$    sigma sub theta  =   -------  --  +  -------                            (2)\r\n$                           2  2    2       2  2\r\n$                         (b -a )  r      (b -a )\r\n$ \r\n$ and\r\n$                      2\r\n$                    pa\r\n$    sigma  =  2v  -------                                                   (3)\r\n$         z          2  2\r\n$                  (b -a )\r\n$ \r\n$ where r is the radius and all shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                             2                     2 2\r\n$         (l-2v)(l+v)       pa        (l+v)   l   pa b\r\n$    u  = -----------  r  -------  +  ------  -   -------                    (4)\r\n$     r        E            2  2        E     r     2  2\r\n$                         (b -a )                 (b -a )\r\n$ \r\n$ and all other displacements are zero.\r\n$ \r\n$ 2. Subcase 2\r\n$ \r\n$ The stresses in the radial and tangential directions due to the thermal load\r\n$ (Reference 24) are given by\r\n$ \r\n$             alphaET      +             2           2        +\r\n$                    i     |    (b)     a           b     (b) |\r\n$    sigma  = -----------  |- ln(-) - -------  (l - --) ln(-) |              (5)\r\n$         r           (b)  |    (r)     2  2         2    (a) |\r\n$             2(l-v)ln(-)  |          (b -a )       r         |\r\n$                     (a)  +                                  +\r\n$ and\r\n$ \r\n$                  alphaET      +               2           2        +\r\n$                         i     |      (b)     a           b     (b) |\r\n$    sigma       = -----------  |l - ln(-) - -------  (l + --) ln(-) |       (6)\r\n$         theta            (b)  |      (r)     2  2         2    (a) |\r\n$                  2(l-v)ln(-)  |            (b -a )       r         |\r\n$                          (a)  +                                    +\r\n$ \r\n$ The stress in the axial direction is obtained via the procedure contained in\r\n$ the reference as\r\n$ \r\n$                  alphaET      +        2                      +\r\n$                         i     |      2a  v     (b)        (b) |\r\n$    sigma       = -----------  |v -  -------  ln(-) - 2  ln(-) |            (7)\r\n$         theta            (b)  |       2  2     (a)        (r) |\r\n$                  2(l-v)ln(-)  |     (b -a )                   |\r\n$                          (a)  +                               +\r\n$ \r\n$ All shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                              ++      +                   +\r\n$                          T   ||      |   2 2             |\r\n$         (l + v)           i  ||   l  |  a b          (b) |\r\n$    u  = -------  alpha ----- || - -  |-----------  ln(-) |\r\n$     r   (l + v)          (b) ||   r  |    2  2       (a) |\r\n$                        ln(-) ||      | 2(b -a )          |\r\n$                          (a) ++      +                   +\r\n$ \r\n$             +                                            +  ++\r\n$             |                               2            |  ||\r\n$          r  |     (b)              (      2a        (b)) |  ||\r\n$        + -  | 2 ln(-) + l + (l-2v) ( l - -------  ln(-)) |  ||             (8)\r\n$          4  |     (r)              (       2  2     (a)) |  ||\r\n$             |                            (b -a )         |  ||\r\n$             +                                            +  ++\r\n$ \r\n$ D. Results\r\n$ \r\n$ Note that five IHEX1 elements were used along the radial thickness, whereas\r\n$ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the\r\n$ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a\r\n$ sawtooth pattern.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill,\r\n$     Inc., 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01133a.inp",
    "content": "ID    D01133A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = LOADS ON A LONG PIPE USING CUBIC  ISOPARAMETRIC ELEMENTS             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-13-3A                          \r\nDISPLACEMENT    =ALL                                                            \r\nSTRESS = ALL                                                                    \r\nSPC    = 200                                                                    \r\nSUBCASE  1                                                                      \r\nLABEL  = PRESSURE LOAD                                                          \r\nLOAD   = 80                                                                     \r\nSUBCASE  2                                                                      \r\nLABEL  = THERMAL  LOAD                                                          \r\nTEMP(LOAD) = 90                                                                 \r\nBEGIN BULK                                                                      \r\nCIHEX3  10      60      1       2       3       4       5       6       +HEX-31 \r\n+HEX-31 7       8       9       10      11      12      13      14      +HEX-32 \r\n+HEX-32 15      16      17      18      19      20      21      22      +HEX-33 \r\n+HEX-33 23      24      25      26      27      28      29      30      +HEX-34 \r\n+HEX-34 31      32                                                              \r\nCORD2C  111     0       .0      .0      .0      .0      .0      50.0    +COR1   \r\n+COR1   50.0    .0      .0                                                      \r\nGRDSET          111                             111     456                     \r\nGRID    1               4.0     .0      .0                                      \r\nGRID    2               4.25    .0      .0                                      \r\nGRID    3               4.6     .0      .0                                      \r\nGRID    4               5.0     .0      .0                                      \r\nGRID    5               5.0     9.0     .0                                      \r\nGRID    6               5.0     18.0    .0                                      \r\nGRID    7               5.0     27.0    .0                                      \r\nGRID    8               4.6     27.0    .0                                      \r\nGRID    9               4.25    27.0    .0                                      \r\nGRID    10              4.0     27.0    .0                                      \r\nGRID    11              4.0     18.0    .0                                      \r\nGRID    12              4.0     9.0     .0                                      \r\nGRID    13              4.0     .0      .33                                     \r\nGRID    14              5.0     .0      .33                                     \r\nGRID    15              5.0     27.0    .33                                     \r\nGRID    16              4.0     27.0    .33                                     \r\nGRID    17              4.0     .0      .67                                     \r\nGRID    18              5.0     .0      .67                                     \r\nGRID    19              5.0     27.0    .67                                     \r\nGRID    20              4.0     27.0    .67                                     \r\nGRID    21              4.0     .0      1.0                                     \r\nGRID    22              4.25    .0      1.0                                     \r\nGRID    23              4.6     .0      1.0                                     \r\nGRID    24              5.0     .0      1.0                                     \r\nGRID    25              5.0     9.0     1.0                                     \r\nGRID    26              5.0     18.0    1.0                                     \r\nGRID    27              5.0     27.0    1.0                                     \r\nGRID    28              4.6     27.0    1.0                                     \r\nGRID    29              4.25    27.0    1.0                                     \r\nGRID    30              4.0     27.0    1.0                                     \r\nGRID    31              4.0     18.0    1.0                                     \r\nGRID    32              4.0     9.0     1.0                                     \r\nMAT1    70      3.+7            .3      7.535-4 1.428-5 .0                      \r\nPIHEX   60      70              4                                               \r\nPLOAD3  80      -10.0   10      30      1                                       \r\nSPC1    200     2       1       2       3       4       13      14      +SPC-A2 \r\n+SPC-A2 17      18      21      22      23      24      7       8       +SPC-B2 \r\n+SPC-B2 9       10      15      16      19      20      27      28      +SPC-C2 \r\n+SPC-C2 29      30                                                              \r\nSPC1    200     3       1       THRU    12                                      \r\nSPC1    200     3       21      THRU    32                                      \r\nTEMP    90      1       100.0   12      100.0   11      100.0                   \r\nTEMP    90      2       72.83   9       72.83   22      72.83                   \r\nTEMP    90      10      100.0   13      100.0   16      100.0                   \r\nTEMP    90      17      100.0   20      100.0   21      100.0                   \r\nTEMP    90      23      37.37   28      37.37                                   \r\nTEMP    90      29      72.83   3       37.37   8       37.37                   \r\nTEMP    90      32      100.0   31      100.0   30      100.0                   \r\nTEMPD   90      .0                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01133a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                     Linear Isoparametric Elements (1-13-1)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                    Quadratic Isoparametric Elements (1-13-2)\r\n$                 Thermal and Pressure Loads on a Long Pipe Using\r\n$                      Cubic Isoparametric Elements (1-13-3)\r\n$ \r\n$ A. Description\r\n$ \r\n$ These problems demonstrate the use of the linear, quadratic, and cubic\r\n$ isoparametric solid elements, IHEX1, IHEX2, and IHEX3, respectively. A long\r\n$ pipe, assumed to be in a state of plane strain, is subjected to an internal\r\n$ pressure and a thermal gradient in the radial direction.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    r       = a =  4 in.        (radius to the inner surface)\r\n$     inner\r\n$ \r\n$    r       = b =  5 in.        (radius to the outer surface)\r\n$     outer\r\n$ \r\n$                6\r\n$    E = 30. x 10    psi          (Young's Modulus)\r\n$ \r\n$    v = 0.3                      (Poisson's Ratio)\r\n$ \r\n$                      -5\r\n$    alpha = 1.428 x 10           (thermal expansion coefficient)\r\n$ \r\n$                           2\r\n$                  -4 lb-sec\r\n$    p = 7.535 x 10   --------    (mass density)\r\n$                         4\r\n$                       in\r\n$ \r\n$    p = 10 psi                   (inner surface pressure)\r\n$ \r\n$    T  = 100.0 deg. F            (inner surface temperature)\r\n$     i\r\n$ \r\n$    T  = 0.0 deg. F              (outer surface temperature)\r\n$     o\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$    u sub theta = 0 at all points on the right side\r\n$ \r\n$    u sub theta = 0 at all points on the left side\r\n$ \r\n$    u  = 0 at all points on the bottom surface\r\n$     z\r\n$ \r\n$    u  = 0 at all points on the top surface\r\n$     z\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Subcase 1,\r\n$ \r\n$      p = 10 psi    (internal pressure)\r\n$ \r\n$    Subcase 2,\r\n$ \r\n$            (T -T\r\n$              i  o)      (b)       100       (5)\r\n$      T  =  --------   ln(-)  =  --------  ln(-)  , where r is any radius.\r\n$       r        (b)      (r)     ln(1.25)    (r)\r\n$              ln(-)\r\n$                (a)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. Subcase 1\r\n$ \r\n$ The normal stresses due to the pressure load (Reference 24) are obtained by\r\n$ \r\n$                 2 2                2\r\n$                a b      p        pa\r\n$    sigma  =  - -------  --  +  -------                                     (1)\r\n$         r        2  2    2       2  2\r\n$                (b -a )  r      (b -a )\r\n$ \r\n$                          2 2                2\r\n$                         a b      p        pa\r\n$    sigma sub theta  =   -------  --  +  -------                            (2)\r\n$                           2  2    2       2  2\r\n$                         (b -a )  r      (b -a )\r\n$ \r\n$ and\r\n$                      2\r\n$                    pa\r\n$    sigma  =  2v  -------                                                   (3)\r\n$         z          2  2\r\n$                  (b -a )\r\n$ \r\n$ where r is the radius and all shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                             2                     2 2\r\n$         (l-2v)(l+v)       pa        (l+v)   l   pa b\r\n$    u  = -----------  r  -------  +  ------  -   -------                    (4)\r\n$     r        E            2  2        E     r     2  2\r\n$                         (b -a )                 (b -a )\r\n$ \r\n$ and all other displacements are zero.\r\n$ \r\n$ 2. Subcase 2\r\n$ \r\n$ The stresses in the radial and tangential directions due to the thermal load\r\n$ (Reference 24) are given by\r\n$ \r\n$             alphaET      +             2           2        +\r\n$                    i     |    (b)     a           b     (b) |\r\n$    sigma  = -----------  |- ln(-) - -------  (l - --) ln(-) |              (5)\r\n$         r           (b)  |    (r)     2  2         2    (a) |\r\n$             2(l-v)ln(-)  |          (b -a )       r         |\r\n$                     (a)  +                                  +\r\n$ and\r\n$ \r\n$                  alphaET      +               2           2        +\r\n$                         i     |      (b)     a           b     (b) |\r\n$    sigma       = -----------  |l - ln(-) - -------  (l + --) ln(-) |       (6)\r\n$         theta            (b)  |      (r)     2  2         2    (a) |\r\n$                  2(l-v)ln(-)  |            (b -a )       r         |\r\n$                          (a)  +                                    +\r\n$ \r\n$ The stress in the axial direction is obtained via the procedure contained in\r\n$ the reference as\r\n$ \r\n$                  alphaET      +        2                      +\r\n$                         i     |      2a  v     (b)        (b) |\r\n$    sigma       = -----------  |v -  -------  ln(-) - 2  ln(-) |            (7)\r\n$         theta            (b)  |       2  2     (a)        (r) |\r\n$                  2(l-v)ln(-)  |     (b -a )                   |\r\n$                          (a)  +                               +\r\n$ \r\n$ All shearing stresses are zero.\r\n$ \r\n$ The displacement in the radial direction is\r\n$ \r\n$                              ++      +                   +\r\n$                          T   ||      |   2 2             |\r\n$         (l + v)           i  ||   l  |  a b          (b) |\r\n$    u  = -------  alpha ----- || - -  |-----------  ln(-) |\r\n$     r   (l + v)          (b) ||   r  |    2  2       (a) |\r\n$                        ln(-) ||      | 2(b -a )          |\r\n$                          (a) ++      +                   +\r\n$ \r\n$             +                                            +  ++\r\n$             |                               2            |  ||\r\n$          r  |     (b)              (      2a        (b)) |  ||\r\n$        + -  | 2 ln(-) + l + (l-2v) ( l - -------  ln(-)) |  ||             (8)\r\n$          4  |     (r)              (       2  2     (a)) |  ||\r\n$             |                            (b -a )         |  ||\r\n$             +                                            +  ++\r\n$ \r\n$ D. Results\r\n$ \r\n$ Note that five IHEX1 elements were used along the radial thickness, whereas\r\n$ one element was used for each of the IHEX2 and IHEX3 cases. Two values for the\r\n$ stress occur at the boundary of two adjacent IHEX1 elements, resulting in a\r\n$ sawtooth pattern.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 24. Timoshenko, S. P. and J. N. Goodier, Theory of Elasticity, McGraw-Hill,\r\n$     Inc., 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01141a.inp",
    "content": "ID    D01141A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = STATIC ANALYSIS OF A BEAM USING GENERAL ELEMENTS                     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-14-1A                          \r\nDISPLACEMENT = ALL                                                              \r\nELFORCE = ALL                                                                   \r\nSUBCASE 1                                                                       \r\nLABEL = AXIAL LOAD                                                              \r\n        LOAD = 1                                                                \r\nSUBCASE 2                                                                       \r\nLABEL = BENDING LOAD                                                            \r\n        LOAD = 2                                                                \r\nBEGIN BULK                                                                      \r\nCBAR    6       1       6       7       .0      1.0     .0      1               \r\nFORCE   1       7               1.      1.                                      \r\nFORCE   2       7               1.              1.                              \r\nGENEL   1               2       1       2       2       2       6       +G11    \r\n+G11    Z       .1666667.0      .0      .66666671.0     2.0                     \r\nGENEL   2               2       1       2       2       2       6       +G21    \r\n+G21    3       1       3       2       3       6                       +G22    \r\n+G22    K       6.      .0      .0      -6.     .0      .0      6.      +G23    \r\n+G23    3.      .0      -6.     3.      2.      .0      -3.     1.      +G24    \r\n+G24    6.      .0      .0      6.      -3.     2.                              \r\nGENEL   3               3       1       3       2       3       6       +G31    \r\n+G31    UD              4       1       4       2       4       6       +G32    \r\n+G32    K       6.      .0      .0      6.      3.      2.              +G33    \r\n+G33    S       1.      .0      .0      .0      1.      -1.     .0      +G34    \r\n+G34    .0      1.                                                              \r\nGENEL   4               4       1       4       2       4       6       +G41    \r\n+G41    UD              5       1       5       2       5       6       +G42    \r\n+G42    K       6.      .0      .0      6.      3.      2.                      \r\nGENEL   5               5       1       5       2       5       6       +G51    \r\n+G51    UD              6       1       6       2       6       6       +G52    \r\n+G52    Z       .166666 .0      .0      .666667 -1.     2.              +G53    \r\n+G53    S       1.      .0      .0      .0      1.      -1.     .0      +G54    \r\n+G54    .0      1.                                                              \r\nGRDSET                                                  345                     \r\nGRID    1               .0      .0      .0              123456                  \r\nGRID    2               1.      .0      .0                                      \r\nGRID    3               2.      .0      .0                                      \r\nGRID    4               3.      .0      .0                                      \r\nGRID    5               4.      .0      .0                                      \r\nGRID    6               5.      .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nMAT1    1       6.              .3                                              \r\nPBAR    1       1       1.      .083333                                         \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01141a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$            Static Analysis of a Beam Using General Elements (1-14-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of general GENEL elements having various\r\n$ types of input format in the static analysis of a cantilever beam subjected to\r\n$ tension and bending. The beam consists of five GENEL elements and one BAR\r\n$ element.\r\n$ \r\n$ The GENEL elements are constructed as follows:\r\n$ \r\n$      GENEL Element   Approach      Matrix Size  {u }   [S]\r\n$                                                   d\r\n$ \r\n$            1         Flexibility        3        No     No\r\n$            2         Stiffness          6        No     No\r\n$            3         Stiffness          3        Yes    Yes\r\n$            4         Stiffness          3        Yes    No\r\n$            5         Flexibility        3        Yes    No\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$    l = 6.0 m (length)\r\n$ \r\n$               2\r\n$    E = 6.0 N/m  (modulus of elasticity)\r\n$ \r\n$    V = 0.3 (Poisson's ratio)\r\n$ \r\n$             2\r\n$    A = 1.0 m  (cross-sectional area)\r\n$ \r\n$              4\r\n$    I = .083 m  (bending moment of inertia)\r\n$ \r\n$    F  = 1.0 N (axial load)\r\n$     x\r\n$ \r\n$    P  = 1.0 N (transverse load)\r\n$     y\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The stiffness matrix for the element in its general form is given in section 8\r\n$ of the NASTRAN Programmer's Manual.\r\n$ \r\n$ Define [Z] as the matrix of deflection influence coefficients (flexibility\r\n$ matrix) whose terms are {u } when {u } is rigidly constrained,\r\n$                           i         d\r\n$ [K] as the stiffness matrix,\r\n$ [S] as a rigid body matrix whose terms are {u } due to unit motions of {u }\r\n$                                              i                           d\r\n$ when all {f } = 0,\r\n$            i\r\n$ {f } as the vector of forces applied to the element at {u },\r\n$   i                                                      i\r\n$ and {f } as the vector of forces applied to the element at {u }. They are\r\n$       d                                                      d\r\n$ assumed to be statically related to the {f } forces, i.e., they constitute a\r\n$                                           i\r\n$ nonredundant set of reactions for the element. If transverse shear is neglected\r\n$ and the beam is confined to motion in the X-Y plane, then\r\n$ \r\n$      {f }  =  [K] {u }\r\n$        i            i\r\n$ \r\n$ where\r\n$             +   +\r\n$             | F |              +        +\r\n$             | V |              | deltax |\r\n$      {f } = |  2|       {u } = | deltay |\r\n$        i    | M |         i    | deltaz |\r\n$             |  1|              +        +\r\n$             +   +\r\n$            +                    +\r\n$            | AE                 |     +               +\r\n$            | --     0       0   |     | 6     0     0 |\r\n$            | l                  |     |               |\r\n$            |       12EI    6EI  |     |               |\r\n$      [K] = | 0     ----    ---- |  =  | 0     6     3 |\r\n$            |        3       2   |     |               |\r\n$            |       l       l    |     |               |\r\n$            |                    |     |               |\r\n$            |       6EI     4EI  |     | 0     3     2 |\r\n$            | 0     ----    ---- |     +               +\r\n$            |        2       l   |\r\n$            |       l            |\r\n$            +                    +\r\n$                   +              +\r\n$                   | 1            |\r\n$                   | -    0    0  |\r\n$                   | 6            |\r\n$               -1  |      2       |\r\n$      [F] = [K]    | 0    -    -1 |\r\n$                   |      3       |\r\n$                   |              |\r\n$                   | 0    -1   2  |\r\n$                   +              +\r\n$ \r\n$ and\r\n$             +              +   +              +\r\n$             |1    0    ^u  |   | 1    0    0  |\r\n$             |            y |   |              |\r\n$             |              |   |              |\r\n$      [S] =  |0    1    ^u  | = | 0    1    -1 |\r\n$             |            x |   |              |\r\n$             |              |   |              |\r\n$             |0    0    1   |   | 0    0    1  |\r\n$             +              +   +              +\r\n$ \r\n$ where ^u = u  - u  ,i.e., the difference between the dependent displacement\r\n$             d    i\r\n$ degree of freedom {u } and the independent displacement degree of freedom\r\n$                     d\r\n$ {u }.\r\n$   i  \r\n$ \r\n$ D. Results\r\n$ \r\n$ The theoretical maximum deflections of the cantilever beam subjected to\r\n$ tension and bending (for the input values) are\r\n$ \r\n$                 F\r\n$                  l\r\n$      deltax  =  --  =  1.0 m (tension)\r\n$                 AE\r\n$ \r\n$ and\r\n$ \r\n$                   3\r\n$                 Pl\r\n$      deltay  =  ---  =  144.0 m (bending)\r\n$                 3EI\r\n$ \r\n$ These results are obtained by NASTRAN.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01151a.inp",
    "content": "NASTRAN FILE=PLT2                                                               \r\nID    D01151A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,1                                                                       \r\nTIME  90                                                                        \r\nCEND                                                                            \r\nTITLE    = ASYMMETRIC PRESSURE LOADING OF AN AXISYMMETRIC CYLINDRICAL SHELL     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                          \r\nAXISYM   = COSINE                                                               \r\n  LOAD   = 20                                                                   \r\n  SET 10 = 11 THRU 34, 111 THRU 231, 235, 241, 245, 251, 255, 261,              \r\n           265, 271, 275, 281, 285, 291, 295, 301, 305, 311, 315,               \r\n           321, 325, 331, 335, 341, 345, 351, 355, 361, 365, 371,               \r\n           375, 381, 385, 391, 395, 401, 405, 411 THRU 415                      \r\n  SET  9 = 111 THRU 227, 231, 234, 241, 244, 251, 254, 261, 264, 271,           \r\n           274, 281, 284, 291, 294, 301, 304, 311, 314, 321, 324, 331,          \r\n           334, 341, 344, 351, 354, 361, 364, 371, 374, 381, 384, 391,          \r\n           394, 401 THRU 404                                                    \r\nHARMONICS = ALL                                                                 \r\nDISPLACEMENT = 10                                                               \r\nOLOAD  = ALL                                                                    \r\nSTRESS = 9                                                                      \r\nELFORCE= 9                                                                      \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D01-15-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\nSET 1  = ALL                                                                    \r\n$                                                                               \r\n$ CONVERT IDS TO NASTRAN IDS FOR ELEMENTS 111 THRU 227 (ID*1000+N)              \r\n$                                                                               \r\nSET 2 INCLUDE ELEMENTS 111001 THRU 227001                                       \r\nAXES Z, X, Y                                                                    \r\nVIEW 0.0, 0.0, 0.0                                                              \r\nFIND SCALE, ORIGIN 1, SET 1                                                     \r\nPTITLE = FULL MODEL                                                             \r\nPLOT SET 1, ORIGIN 1                                                            \r\nFIND SCALE, ORIGIN 2, SET 2                                                     \r\nPTITLE = LOADED SECTION (TRAPAX) AND TRANSITION SECTION (TRIAAX)                \r\nPLOT SET 2, ORIGIN 2                                                            \r\nBEGIN BULK                                                                      \r\nAXIC    10                                                                      \r\nCTRAPAX 111     5       111     112     122     121                             \r\nCTRAPAX 112     5       112     113     123     122                             \r\nCTRAPAX 113     5       113     114     124     123                             \r\nCTRAPAX 121     5       121     122     132     131                             \r\nCTRAPAX 122     5       122     123     133     132                             \r\nCTRAPAX 123     5       123     124     134     133                             \r\nCTRAPAX 131     5       131     132     142     141                             \r\nCTRAPAX 132     5       132     133     143     142                             \r\nCTRAPAX 133     5       133     134     144     143                             \r\nCTRAPAX 141     5       141     142     152     151                             \r\nCTRAPAX 142     5       142     143     153     152                             \r\nCTRAPAX 143     5       143     144     154     153                             \r\nCTRAPAX 151     5       151     152     162     161                             \r\nCTRAPAX 152     5       152     153     163     162                             \r\nCTRAPAX 153     5       153     154     164     163                             \r\nCTRAPAX 161     5       161     162     172     171                             \r\nCTRAPAX 162     5       162     163     173     172                             \r\nCTRAPAX 163     5       163     164     174     173                             \r\nCTRAPAX 171     5       171     172     182     181                             \r\nCTRAPAX 172     5       172     173     183     182                             \r\nCTRAPAX 173     5       173     174     184     183                             \r\nCTRAPAX 231     5       231     232     242     241                             \r\nCTRAPAX 232     5       232     233     243     242                             \r\nCTRAPAX 233     5       233     234     244     243                             \r\nCTRAPAX 234     5       234     235     245     244                             \r\nCTRAPAX 241     5       241     242     252     251                             \r\nCTRAPAX 242     5       242     243     253     252                             \r\nCTRAPAX 243     5       243     244     254     253                             \r\nCTRAPAX 244     5       244     245     255     254                             \r\nCTRAPAX 251     5       251     252     262     261                             \r\nCTRAPAX 252     5       252     253     263     262                             \r\nCTRAPAX 253     5       253     254     264     263                             \r\nCTRAPAX 254     5       254     255     265     264                             \r\nCTRAPAX 261     5       261     262     272     271                             \r\nCTRAPAX 262     5       262     263     273     272                             \r\nCTRAPAX 263     5       263     264     274     273                             \r\nCTRAPAX 264     5       264     265     275     274                             \r\nCTRAPAX 271     5       271     272     282     281                             \r\nCTRAPAX 272     5       272     273     283     282                             \r\nCTRAPAX 273     5       273     274     284     283                             \r\nCTRAPAX 274     5       274     275     285     284                             \r\nCTRAPAX 281     5       281     282     292     291                             \r\nCTRAPAX 282     5       282     283     293     292                             \r\nCTRAPAX 283     5       283     284     294     293                             \r\nCTRAPAX 284     5       284     285     295     294                             \r\nCTRAPAX 291     5       291     292     302     301                             \r\nCTRAPAX 292     5       292     293     303     302                             \r\nCTRAPAX 293     5       293     294     304     303                             \r\nCTRAPAX 294     5       294     295     305     304                             \r\nCTRAPAX 301     5       301     302     312     311                             \r\nCTRAPAX 302     5       302     303     313     312                             \r\nCTRAPAX 303     5       303     304     314     313                             \r\nCTRAPAX 304     5       304     305     315     314                             \r\nCTRAPAX 311     5       311     312     322     321                             \r\nCTRAPAX 312     5       312     313     323     322                             \r\nCTRAPAX 313     5       313     314     324     323                             \r\nCTRAPAX 314     5       314     315     325     324                             \r\nCTRAPAX 321     5       321     322     332     331                             \r\nCTRAPAX 322     5       322     323     333     332                             \r\nCTRAPAX 323     5       323     324     334     333                             \r\nCTRAPAX 324     5       324     325     335     334                             \r\nCTRAPAX 331     5       331     332     342     341                             \r\nCTRAPAX 332     5       332     333     343     342                             \r\nCTRAPAX 333     5       333     334     344     343                             \r\nCTRAPAX 334     5       334     335     345     344                             \r\nCTRAPAX 341     5       341     342     352     351                             \r\nCTRAPAX 342     5       342     343     353     352                             \r\nCTRAPAX 343     5       343     344     354     353                             \r\nCTRAPAX 344     5       344     345     355     354                             \r\nCTRAPAX 351     5       351     352     362     361                             \r\nCTRAPAX 352     5       352     353     363     362                             \r\nCTRAPAX 353     5       353     354     364     363                             \r\nCTRAPAX 354     5       354     355     365     364                             \r\nCTRAPAX 361     5       361     362     372     371                             \r\nCTRAPAX 362     5       362     363     373     372                             \r\nCTRAPAX 363     5       363     364     374     373                             \r\nCTRAPAX 364     5       364     365     375     374                             \r\nCTRAPAX 371     5       371     372     382     381                             \r\nCTRAPAX 372     5       372     373     383     382                             \r\nCTRAPAX 373     5       373     374     384     383                             \r\nCTRAPAX 374     5       374     375     385     384                             \r\nCTRAPAX 381     5       381     382     392     391                             \r\nCTRAPAX 382     5       382     383     393     392                             \r\nCTRAPAX 383     5       383     384     394     393                             \r\nCTRAPAX 384     5       384     385     395     394                             \r\nCTRAPAX 391     5       391     392     402     401                             \r\nCTRAPAX 392     5       392     393     403     402                             \r\nCTRAPAX 393     5       393     394     404     403                             \r\nCTRAPAX 394     5       394     395     405     404                             \r\nCTRAPAX 401     5       401     402     412     411                             \r\nCTRAPAX 402     5       402     403     413     412                             \r\nCTRAPAX 403     5       403     404     414     413                             \r\nCTRAPAX 404     5       404     405     415     414                             \r\nCTRIAAX 181     10      181     192     191                                     \r\nCTRIAAX 182     10      181     182     192                                     \r\nCTRIAAX 183     10      182     193     192                                     \r\nCTRIAAX 184     10      182     183     193                                     \r\nCTRIAAX 185     10      183     194     193                                     \r\nCTRIAAX 186     10      183     184     194                                     \r\nCTRIAAX 187     10      184     195     194                                     \r\nCTRIAAX 191     10      191     192     201                                     \r\nCTRIAAX 192     10      192     202     201                                     \r\nCTRIAAX 193     10      192     203     202                                     \r\nCTRIAAX 194     10      192     193     203                                     \r\nCTRIAAX 195     10      193     194     203                                     \r\nCTRIAAX 196     10      194     204     203                                     \r\nCTRIAAX 197     10      194     205     204                                     \r\nCTRIAAX 198     10      194     195     205                                     \r\nCTRIAAX 201     10      201     212     211                                     \r\nCTRIAAX 202     10      201     203     212                                     \r\nCTRIAAX 203     10      202     203     212                                     \r\nCTRIAAX 204     10      212     203     213                                     \r\nCTRIAAX 205     10      203     214     213                                     \r\nCTRIAAX 206     10      203     204     214                                     \r\nCTRIAAX 207     10      204     205     214                                     \r\nCTRIAAX 208     10      214     205     215                                     \r\nCTRIAAX 211     10      211     212     221                                     \r\nCTRIAAX 212     10      221     212     222                                     \r\nCTRIAAX 213     10      212     213     222                                     \r\nCTRIAAX 214     10      222     213     223                                     \r\nCTRIAAX 215     10      213     214     223                                     \r\nCTRIAAX 216     10      223     214     224                                     \r\nCTRIAAX 217     10      214     215     224                                     \r\nCTRIAAX 221     10      221     232     231                                     \r\nCTRIAAX 222     10      221     222     232                                     \r\nCTRIAAX 223     10      232     222     233                                     \r\nCTRIAAX 224     10      222     223     233                                     \r\nCTRIAAX 225     10      223     234     233                                     \r\nCTRIAAX 226     10      223     224     234                                     \r\nCTRIAAX 227     10      234     224     235                                     \r\nMAT1    15      66666.7         .3                                              \r\nPOINTAX 11      111     .0                                                      \r\nPOINTAX 14      114     .0                                                      \r\nPOINTAX 21      121     .0                                                      \r\nPOINTAX 34      134     .0                                                      \r\nPRESAX  20      -7.11111114     124     -7.162  7.162                           \r\nPRESAX  20      -7.11111124     134     -7.162  7.162                           \r\nPRESAX  20      -7.11111134     144     -7.162  7.162                           \r\nPRESAX  20      -7.11111144     154     -7.162  7.162                           \r\nPRESAX  20      -7.11111154     164     -7.162  7.162                           \r\nPTRAPAX 5               15      .0      7.1                                     \r\nPTRIAAX 10              15      .0      3.581   7.162                           \r\nRINGAX  111             14.5    .0                      3456                    \r\nRINGAX  112             14.7    .0                      3456                    \r\nRINGAX  113             15.3    .0                      3456                    \r\nRINGAX  114             15.5    .0                      3456                    \r\nRINGAX  121             14.5    .375                    456                     \r\nRINGAX  122             14.8    .375                    456                     \r\nRINGAX  123             15.2    .375                    456                     \r\nRINGAX  124             15.5    .375                    456                     \r\nRINGAX  131             14.5    .75                     456                     \r\nRINGAX  132             14.7    .75                     456                     \r\nRINGAX  133             15.3    .75                     456                     \r\nRINGAX  134             15.5    .75                     456                     \r\nRINGAX  141             14.5    1.125                   456                     \r\nRINGAX  142             14.8    1.125                   456                     \r\nRINGAX  143             15.2    1.125                   456                     \r\nRINGAX  144             15.5    1.125                   456                     \r\nRINGAX  151             14.5    1.5                     456                     \r\nRINGAX  152             14.7    1.5                     456                     \r\nRINGAX  153             15.3    1.5                     456                     \r\nRINGAX  154             15.5    1.5                     456                     \r\nRINGAX  161             14.5    1.875                   456                     \r\nRINGAX  162             14.8    1.875                   456                     \r\nRINGAX  163             15.2    1.875                   456                     \r\nRINGAX  164             15.5    1.875                   456                     \r\nRINGAX  171             14.5    2.25                    456                     \r\nRINGAX  172             14.7    2.25                    456                     \r\nRINGAX  173             15.3    2.25                    456                     \r\nRINGAX  174             15.5    2.25                    456                     \r\nRINGAX  181             14.5    2.625                   456                     \r\nRINGAX  182             14.8    2.625                   456                     \r\nRINGAX  183             15.2    2.625                   456                     \r\nRINGAX  184             15.5    2.625                   456                     \r\nRINGAX  191             14.5    3.0                     456                     \r\nRINGAX  192             14.75   3.0                     456                     \r\nRINGAX  193             15.0    3.0                     456                     \r\nRINGAX  194             15.25   3.0                     456                     \r\nRINGAX  195             15.5    3.0                     456                     \r\nRINGAX  201             14.5    3.375                   456                     \r\nRINGAX  202             14.75   3.375                   456                     \r\nRINGAX  203             15.0    3.375                   456                     \r\nRINGAX  204             15.25   3.375                   456                     \r\nRINGAX  205             15.5    3.375                   456                     \r\nRINGAX  211             14.5    3.75                    456                     \r\nRINGAX  212             14.75   3.75                    456                     \r\nRINGAX  213             15.0    3.75                    456                     \r\nRINGAX  214             15.25   3.75                    456                     \r\nRINGAX  215             15.5    3.75                    456                     \r\nRINGAX  221             14.5    4.125                   456                     \r\nRINGAX  222             14.8    4.125                   456                     \r\nRINGAX  223             15.2    4.125                   456                     \r\nRINGAX  224             15.5    4.125                   456                     \r\nRINGAX  231             14.5    4.5                     456                     \r\nRINGAX  232             14.7    4.5                     456                     \r\nRINGAX  233             15.0    4.5                     456                     \r\nRINGAX  234             15.3    4.5                     456                     \r\nRINGAX  235             15.5    4.5                     456                     \r\nRINGAX  241             14.5    5.5                     456                     \r\nRINGAX  242             14.8    5.5                     456                     \r\nRINGAX  243             15.0    5.5                     456                     \r\nRINGAX  244             15.2    5.5                     456                     \r\nRINGAX  245             15.5    5.5                     456                     \r\nRINGAX  251             14.5    6.5                     456                     \r\nRINGAX  252             14.7    6.5                     456                     \r\nRINGAX  253             15.0    6.5                     456                     \r\nRINGAX  254             15.3    6.5                     456                     \r\nRINGAX  255             15.5    6.5                     456                     \r\nRINGAX  261             14.5    7.5                     456                     \r\nRINGAX  262             14.8    7.5                     456                     \r\nRINGAX  263             15.0    7.5                     456                     \r\nRINGAX  264             15.2    7.5                     456                     \r\nRINGAX  265             15.5    7.5                     456                     \r\nRINGAX  271             14.5    8.5                     456                     \r\nRINGAX  272             14.7    8.5                     456                     \r\nRINGAX  273             15.0    8.5                     456                     \r\nRINGAX  274             15.3    8.5                     456                     \r\nRINGAX  275             15.5    8.5                     456                     \r\nRINGAX  281             14.5    9.5                     456                     \r\nRINGAX  282             14.8    9.5                     456                     \r\nRINGAX  283             15.0    9.5                     456                     \r\nRINGAX  284             15.2    9.5                     456                     \r\nRINGAX  285             15.5    9.5                     456                     \r\nRINGAX  291             14.5    10.5                    456                     \r\nRINGAX  292             14.7    10.5                    456                     \r\nRINGAX  293             15.0    10.5                    456                     \r\nRINGAX  294             15.3    10.5                    456                     \r\nRINGAX  295             15.5    10.5                    456                     \r\nRINGAX  301             14.5    11.5                    456                     \r\nRINGAX  302             14.8    11.5                    456                     \r\nRINGAX  303             15.0    11.5                    456                     \r\nRINGAX  304             15.2    11.5                    456                     \r\nRINGAX  305             15.5    11.5                    456                     \r\nRINGAX  311             14.5    12.5                    456                     \r\nRINGAX  312             14.7    12.5                    456                     \r\nRINGAX  313             15.0    12.5                    456                     \r\nRINGAX  314             15.3    12.5                    456                     \r\nRINGAX  315             15.5    12.5                    456                     \r\nRINGAX  321             14.5    13.5                    456                     \r\nRINGAX  322             14.8    13.5                    456                     \r\nRINGAX  323             15.0    13.5                    456                     \r\nRINGAX  324             15.2    13.5                    456                     \r\nRINGAX  325             15.5    13.5                    456                     \r\nRINGAX  331             14.5    14.5                    456                     \r\nRINGAX  332             14.7    14.5                    456                     \r\nRINGAX  333             15.0    14.5                    456                     \r\nRINGAX  334             15.3    14.5                    456                     \r\nRINGAX  335             15.5    14.5                    456                     \r\nRINGAX  341             14.5    15.5                    456                     \r\nRINGAX  342             14.8    15.5                    456                     \r\nRINGAX  343             15.0    15.5                    456                     \r\nRINGAX  344             15.2    15.5                    456                     \r\nRINGAX  345             15.5    15.5                    456                     \r\nRINGAX  351             14.5    16.5                    456                     \r\nRINGAX  352             14.7    16.5                    456                     \r\nRINGAX  353             15.0    16.5                    456                     \r\nRINGAX  354             15.3    16.5                    456                     \r\nRINGAX  355             15.5    16.5                    456                     \r\nRINGAX  361             14.5    17.5                    456                     \r\nRINGAX  362             14.8    17.5                    456                     \r\nRINGAX  363             15.0    17.5                    456                     \r\nRINGAX  364             15.2    17.5                    456                     \r\nRINGAX  365             15.5    17.5                    456                     \r\nRINGAX  371             14.5    18.5                    456                     \r\nRINGAX  372             14.7    18.5                    456                     \r\nRINGAX  373             15.0    18.5                    456                     \r\nRINGAX  374             15.3    18.5                    456                     \r\nRINGAX  375             15.5    18.5                    456                     \r\nRINGAX  381             14.5    19.5                    456                     \r\nRINGAX  382             14.8    19.5                    456                     \r\nRINGAX  383             15.0    19.5                    456                     \r\nRINGAX  384             15.2    19.5                    456                     \r\nRINGAX  385             15.5    19.5                    456                     \r\nRINGAX  391             14.5    20.5                    456                     \r\nRINGAX  392             14.7    20.5                    456                     \r\nRINGAX  393             15.0    20.5                    456                     \r\nRINGAX  394             15.3    20.5                    456                     \r\nRINGAX  395             15.5    20.5                    456                     \r\nRINGAX  401             14.5    21.5                    456                     \r\nRINGAX  402             14.8    21.5                    456                     \r\nRINGAX  403             15.0    21.5                    456                     \r\nRINGAX  404             15.2    21.5                    456                     \r\nRINGAX  405             15.5    21.5                    456                     \r\nRINGAX  411             14.5    22.5                    12456                   \r\nRINGAX  412             14.7    22.5                    12456                   \r\nRINGAX  413             15.0    22.5                    12456                   \r\nRINGAX  414             15.3    22.5                    12456                   \r\nRINGAX  415             15.5    22.5                    12456                   \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01151a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$  Axisymmetric Cylindrical Thick Shell Subjected to Asymmetric Pressure Loading\r\n$                                    (1-15-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of elements TRAPAX and TRIAAX in the\r\n$ analysis of asymmetrically loaded solids of revolution. The structure consists\r\n$ of a circular cylindrical shell loaded with a uniform external pressure over a\r\n$ small square area.\r\n$ \r\n$ The cylindrical shell wall is assumed to be simply supported, i.e., the radial\r\n$ and circumferential deflections and the bending moments are zero at the ends.\r\n$ \r\n$ Trapezoidal elements having small and large dimensions are used in the\r\n$ vicinity of the load and away from the load, respectively. A transition area,\r\n$ between the two trapezoidal configurations, is modeled with triangular\r\n$ elements to illustrate their use.\r\n$ \r\n$ The loads and deflections, not required to be axisymmetric, are expanded in\r\n$ Fourier series with respect to the azimuthal coordinate. Due to the one plane\r\n$ of symmetry of this problem with respect to the phi = 0 plane, the deflections\r\n$ are represented by a cosine series selected by the AXISYM Case Control card.\r\n$ The highest harmonic used, 10, is defined on the AXIC bulk data card. The\r\n$ pressure load is defined using PRESAX bulk data cards.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    r   =  15 in.         (Average radius)\r\n$     a\r\n$ \r\n$    t      1 in.          (Thickness)\r\n$ \r\n$    l   =  45 in.         (Length)\r\n$ \r\n$    2c  =  3.75 in.       (Load Length)\r\n$ \r\n$    beta =  0.125 radians (Load Arc (beta = c/r ))\r\n$                                               a\r\n$ \r\n$    E   =  66666.7 psi    (Modulus of Elasticity)\r\n$ \r\n$    v   =  0.3            (Poisson's ratio)\r\n$ \r\n$    n   =  10             (Harmonics)\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    p = 7.11111 psi       (Pressure)\r\n$ \r\n$                 2                             2\r\n$    A = 14.063 in         (Area of Load (A = 4c ))\r\n$ \r\n$ 3. Supports\r\n$ \r\n$    Simply supported at the ends:   u   =  0, u     =  0\r\n$                                     r         phi\r\n$ \r\n$    Symmetry at the midplane:       u   =  0\r\n$                                        z\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Theoretical results for this problem are taken from Reference 20, p. 568.\r\n$ \r\n$ The following theoretical values occur at the center of the load\r\n$      l\r\n$ (z = -, phi = 0):\r\n$      2\r\n$ \r\n$              pA\r\n$   u   =  272 ---  =  0.0272 in.       (Radial Deflection (inward))\r\n$    r         Er\r\n$                a\r\n$ \r\n$   M     = 0.1324 pA = 13.24 in-lb/in  (Circumferential Bending Moment)\r\n$    phi\r\n$ \r\n$   M   = 0.1057 pA = 10.57 in-lb/in    (Longitudinal Bending Moment)\r\n$    z\r\n$ \r\n$                   pA\r\n$   F     = -2.6125 ---  = -17.42 lb/in (Circumferential Membrane Force)\r\n$    phi            r\r\n$                    a\r\n$ \r\n$                pA\r\n$   F   = -2.320 ---  =  -15.47 lb/in   (Longitudinal Membrane Force)\r\n$    z           r\r\n$                 a\r\n$ \r\n$ Theoretical stresses on the inside and outside walls at this point\r\n$      l\r\n$ (z = -, phi = 0) are computed as follows:\r\n$      2\r\n$ \r\n$            F        6M\r\n$             z         z     47.95 psi (Inside Wall Longitudinal Stress)\r\n$   sigma  = --  +/-  ---  =\r\n$        z   t         2     -78.89 psi (Outside Wall Longitudinal Stress)\r\n$                     t\r\n$ \r\n$              F          6M\r\n$               phi         phi   62.02 psi (Inside Wall Circumferential Stress)\r\n$   sigma  = --    +/-  ---    =\r\n$        phi   t           2    -96.86 psi (Outside Wall Circumferential Stress)\r\n$                         t\r\n$ \r\n$ D. Results\r\n$ \r\n$ The solution is near convergence with ten harmonics.\r\n$ \r\n$ Ten harmonics shows very good convergence to nearly the theoretical values\r\n$ computed above. However, seven harmonics would result in relatively poor\r\n$ convergence. Thus, displacement convergence alone may be an invalid indicator\r\n$ of an adequate solution.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 20. Biljaard, P. P., ASME \"Pressure Vessel and Piping Design\", Welding Journal\r\n$     Research Supplement. 1954, pp 567-575.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01161a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D01161A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = FULLY STRESSED DESIGN OF A PLATE WITH A REINFORCED HOLE              \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                          \r\nLABEL    = TEMPERATURE DEPENDENT MATERIALS.                                     \r\n   TEMPERATURE(MATERIALS) = 3000                                                \r\n   SPC = 11                                                                     \r\n   DISPLACEMENT = ALL                                                           \r\nSUBCASE 10                                                                      \r\n   LABEL = DESIGN CASE - UNIFORM END LOAD                                       \r\n   SET 111 = 1 THRU 105 EXCEPT 7                                                \r\n   STRESS  = 111                                                                \r\n   LOAD  = 10                                                                   \r\nSUBCASE 12                                                                      \r\n   LABEL = CHECK CASE - CONTACT LOAD AT NOZZLE.                                 \r\n   LOAD  = 12                                                                   \r\nPLOTID   = NASTRAN DEMONSTRATION PROBLEM NO. D01-16-1A                          \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n  SET 1 = 1, 7, 38, 61, 69                                                      \r\n  SET 2 INCLUDE ELEMENTS QDMEM, TRMEM                                           \r\n        MAXIMUM DEFORMATION 0.8                                                 \r\n        AXES Z, X, Y                                                            \r\n        VIEW   0.0, 0.0, 0.0                                                    \r\n   FIND SCALE, ORIGIN 12, SET 1                                                 \r\nPTITLE = ARCH MODEL                                                             \r\nPLOT SET 2, ORIGIN 12 LABEL,SHRINK                                              \r\nPTITLE = ELEMENT AND PROPERTY ID-S                                              \r\nPLOT SET 2, ORIGIN 12, LABEL EPID                                               \r\nPTITLE = DEFLECTION VECTORS FOR BOTH LOADS AND EACH ITERATION                   \r\nPLOT STATIC DEFORMATION SET 2, ORIGIN 12, VECTOR RXY, SYMBOL 7                  \r\n   FIND SCALE, ORIGIN 12, SET 1, REGION  0.0, 0.0, 0.6, 1.0                     \r\nPTITLE = ARCH MODEL REFLECTED ABOUT VERTICAL AXIS                               \r\nPLOT SET 2, ORIGIN 12, SYMMETRY X, SET 2, ORIGIN 12                             \r\nPTITLE = MAJOR PRINCIPAL STRESS CONTOURS FOR OPTIMIZED CASE                     \r\nCONTOUR, MAJPRIN, EVEN 20, LOCAL                                                \r\nPLOT STATIC DEFORMATION, CONTOUR 10, SET 2, ORIGIN 12, OUTLINE                  \r\nBEGIN BULK                                                                      \r\nCQDMEM  1               11      13      3       1                               \r\nCQDMEM  3               13      15      5       3                               \r\nCQDMEM  5       15      15      17      7       5                               \r\nCQDMEM  7       17      17      19      9       7                               \r\nCQDMEM  13              23      25      15      13                              \r\nCQDMEM  15              25      27      17      15                              \r\nCQDMEM  17              27      29      19      17                              \r\nCQDMEM  31              41      43      33      31                              \r\nCQDMEM  41              51      53      43      41                              \r\nCQDMEM  51              61      63      53      51                              \r\nCQDMEM  61              71      73      63      61                              \r\nCROD    101             48      49      102     102     49      59              \r\nCROD    103             59      69      104     104     69      78              \r\nCROD    105             78      79                                              \r\nCTRMEM  11              13      11      21                                      \r\nCTRMEM  12              21      23      13                                      \r\nCTRMEM  21              31      33      21                                      \r\nCTRMEM  22              23      21      33                                      \r\nCTRMEM  23              33      35      23                                      \r\nCTRMEM  24              25      23      35                                      \r\nCTRMEM  25              35      37      25                                      \r\nCTRMEM  26              27      25      37                                      \r\nCTRMEM  27              37      38      27                                      \r\nCTRMEM  28              38      39      27                                      \r\nCTRMEM  29              29      27      39                                      \r\nCTRMEM  32              35      33      43                                      \r\nCTRMEM  33              43      45      35                                      \r\nCTRMEM  34              37      35      45                                      \r\nCTRMEM  35              45      47      37                                      \r\nCTRMEM  36              47      38      37                                      \r\nCTRMEM  37              47      49      38                                      \r\nCTRMEM  38              49      48      38                                      \r\nCTRMEM  39              38      48      39                                      \r\nCTRMEM  42              53      55      43                                      \r\nCTRMEM  43              45      43      55                                      \r\nCTRMEM  44              55      57      45                                      \r\nCTRMEM  45              47      45      57                                      \r\nCTRMEM  46              57      59      47                                      \r\nCTRMEM  47              59      49      47                                      \r\nCTRMEM  52              63      65      53                                      \r\nCTRMEM  53              55      53      65                                      \r\nCTRMEM  54              65      67      55                                      \r\nCTRMEM  55              57      55      67                                      \r\nCTRMEM  57              67      69      57                                      \r\nCTRMEM  59              59      57      69                                      \r\nCTRMEM  62              65      63      73                                      \r\nCTRMEM  63              73      75      65                                      \r\nCTRMEM  64              67      65      75                                      \r\nCTRMEM  65              75      77      67                                      \r\nCTRMEM  67              69      67      78                                      \r\nCTRMEM  68              67      77      78      90.0                            \r\nCTRMEM  69              77      79      78                                      \r\nFORCE   10      1               .3125E5 .0      1.0     .0                      \r\nFORCE   10      3               .625E5  .0      1.0     .0                      \r\nFORCE   10      5               .625E5  .0      1.0     .0                      \r\nFORCE   10      7               .625E5  .0      1.0     .0                      \r\nFORCE   10      9               .3125E5 .0      1.0     .0                      \r\nFORCE   12      69              100.+1  -1.0                                    \r\nFORCE   12      78              200.+1  -1.0                                    \r\nFORCE   12      79              100.+1  -1.0                                    \r\nGRDSET                                                  3456                    \r\nGRID    1               -10.    15.                                             \r\nGRID    3               -7.5    15.                                             \r\nGRID    5               -5.     15.                                             \r\nGRID    7               -2.5    15.                                             \r\nGRID    9               .0      15.                                             \r\nGRID    11              -10.    12.                                             \r\nGRID    13              -7.5    12.                                             \r\nGRID    15              -5.     12.                                             \r\nGRID    17              -2.5    12.                                             \r\nGRID    19              .0      12.                                             \r\nGRID    21              -10.    9.                                              \r\nGRID    23              -7.5    9.                                              \r\nGRID    25              -5.     9.                                              \r\nGRID    27              -2.5    9.                                              \r\nGRID    29              .0      9.                                              \r\nGRID    31              -10.    7.25                                            \r\nGRID    33              -8.5    7.25                                            \r\nGRID    35              -6.     7.25                                            \r\nGRID    37              -4.     7.25                                            \r\nGRID    38              -2.     6.5                                             \r\nGRID    39              .0      7.25                                            \r\nGRID    41              -10.    5.25                                            \r\nGRID    43              -8.5    5.25                                            \r\nGRID    45              -6.     5.25                                            \r\nGRID    47              -4.     5.5                                             \r\nGRID    48              .0      5.                                              \r\nGRID    49              -2.     4.582576                                        \r\nGRID    51              -10.    3.5                                             \r\nGRID    53              -8.5    3.5                                             \r\nGRID    55              -6.5    3.5                                             \r\nGRID    57              -5.     3.75                                            \r\nGRID    59              -3.5707 3.5                                             \r\nGRID    61              -10.    1.75                                            \r\nGRID    63              -8.5    1.75                                            \r\nGRID    65              -7.     1.75                                            \r\nGRID    67              -5.75   1.75                                            \r\nGRID    69              -4.4651 2.25                                            \r\nGRID    71              -10.    .0                                              \r\nGRID    73              -8.5    .0                                              \r\nGRID    75              -7.     .0                                              \r\nGRID    77              -5.75   .0                                              \r\nGRID    78              -4.899  1.                                              \r\nGRID    79              -5.     .0                                              \r\nMAT1    1       30.E06          .3      .283            70.0            +CONST  \r\n+CONST                  12.5E3                                                  \r\nMAT1    2       30.+6           .3      .283            70.             +TDEP   \r\n+TDEP                   1.E3                                                    \r\nMAT1    3       30.E06                  .283            70.             +MATROD \r\n+MATROD 25.E3   25.E3                                                           \r\nMATT1   2                                                               +MATT1  \r\n+MATT1                  222                                                     \r\nPARAM   GRDPNT  0                                                               \r\nPLIMIT  QDMEM   .2986858        1       THRU    61                      FSD     \r\nPLIMIT  TRMEM   .2986858        11      THRU    69                      FSD     \r\nPOPT    5       .04     .95     2       YES                             FSD     \r\nPQDMEM  1       1       3.348                                                   \r\nPQDMEM  3       1       3.348                                                   \r\nPQDMEM  13      1       3.348                                                   \r\nPQDMEM  15      1       3.348                                                   \r\nPQDMEM  17      1       3.348                                                   \r\nPQDMEM  31      1       3.348                                                   \r\nPQDMEM  41      1       3.348                                                   \r\nPQDMEM  51      1       3.348                                                   \r\nPQDMEM  61      1       3.348                                                   \r\nPROD    101     3       1.674                                                   \r\nPROD    102     3       1.674                                                   \r\nPROD    103     3       1.674                                                   \r\nPROD    104     3       1.674                                                   \r\nPROD    105     3       1.674                                                   \r\nPTRMEM  11      1       3.348                                                   \r\nPTRMEM  12      1       3.348                                                   \r\nPTRMEM  21      1       3.348                                                   \r\nPTRMEM  22      1       3.348                                                   \r\nPTRMEM  23      1       3.348                                                   \r\nPTRMEM  24      1       3.348                                                   \r\nPTRMEM  25      1       3.348                                                   \r\nPTRMEM  26      1       3.348                                                   \r\nPTRMEM  27      1       3.348                                                   \r\nPTRMEM  28      1       3.348                                                   \r\nPTRMEM  29      1       3.348                                                   \r\nPTRMEM  32      1       3.348                                                   \r\nPTRMEM  33      1       3.348                                                   \r\nPTRMEM  34      1       3.348                                                   \r\nPTRMEM  35      1       3.348                                                   \r\nPTRMEM  36      1       3.348                                                   \r\nPTRMEM  37      2       3.348                                                   \r\nPTRMEM  38      2       3.348                                                   \r\nPTRMEM  39      2       3.348                                                   \r\nPTRMEM  42      1       3.348                                                   \r\nPTRMEM  43      1       3.348                                                   \r\nPTRMEM  44      1       3.348                                                   \r\nPTRMEM  45      1       3.348                                                   \r\nPTRMEM  46      2       3.348                                                   \r\nPTRMEM  47      2       3.348                                                   \r\nPTRMEM  52      1       3.348                                                   \r\nPTRMEM  53      1       3.348                                                   \r\nPTRMEM  54      1       3.348                                                   \r\nPTRMEM  55      1       3.348                                                   \r\nPTRMEM  57      2       3.348                                                   \r\nPTRMEM  59      2       3.348                                                   \r\nPTRMEM  62      1       3.348                                                   \r\nPTRMEM  63      1       3.348                                                   \r\nPTRMEM  64      1       3.348                                                   \r\nPTRMEM  65      1       3.348                                                   \r\nPTRMEM  67      2       3.348                                                   \r\nPTRMEM  68      2       3.348                                                   \r\nPTRMEM  69      2       3.348                                                   \r\nSPC1    11      1       9       19      29      39      48                      \r\nSPC1    11      2       71      73      75      77      79                      \r\nTABLEM1 222                                                             +TAB-M1 \r\n+TAB-M1 1.      12.5E3  10.     12.5E3  ENDT                                    \r\nTEMPD   3000    80.                                                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01161a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$        Fully Stressed Design of a Plate with a Reinforced Hole (1-16-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ A flat plate with a reinforced hole in the center is optimized for stresses\r\n$ due to a uniform end load. Restrictions on the minimum thickness are\r\n$ maintained. This problem has been investigated by G. G. Pope (Reference 21).\r\n$ \r\n$ Due to symmetry, only one quadrant is modeled. Due to the membrane load all\r\n$ rotations and normal displacements are constrained. The QDMEM and TRMEM\r\n$ elements are used for the plate and ROD elements for the reinforcement around\r\n$ the hole.\r\n$ \r\n$ The problem demonstrates several features unique to fully stressed design\r\n$ capability in NASTRAN. These features are:\r\n$ \r\n$ 1. Elements with no limits on the range of the property change, i.e., the ROD\r\n$    has no PLIMIT data.\r\n$ \r\n$ 2. Elements with a lower limit on the property optimization card. All membrane\r\n$    elements are required to have a resultant thickness which must not be less\r\n$    than a minimum thickness. This minimum is determined from the thickness\r\n$    obtained when the plate without a hole is subjected to an end load at a\r\n$    prescribed stress limit.\r\n$ \r\n$ 3. Elements whose stress is not inspected but being in an area of nearly\r\n$    uniform stress have their properties changed due to another element's\r\n$    stress. Element 7 has no stress request but does have the same property\r\n$    identification number as element 17. This type of optimization can save\r\n$    computer time at the expense of a design that may not be truly optimized.\r\n$ \r\n$ 4. A property whose value depends on the maximum stress of elements. Elements\r\n$    5 and 15 have the same property card. This option may be necessary if\r\n$    insufficient core is allocated.\r\n$ \r\n$ 5. Temperature dependent stress limits for material 3.\r\n$ \r\n$ 6. Using one stress limit only. The membrane elements use the maximum\r\n$    principle shear only. This is 1/2 the major principle stress allowed. This\r\n$    stress limit was chosen to better model the octahedral limit in Reference\r\n$    21. The rod elements use only the tension and compression stress\r\n$    appropriate to the given property, namely area.\r\n$ \r\n$ 7. An additional load case that was not included in the fully stressed design\r\n$    because a stress request was not made. The second subcase may be considered\r\n$    a displacement verification of this load case.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    l  = 30.0 in      (total length)\r\n$    w  = 20.0 in      (total width)\r\n$    d  = 10.0 in      (hole diameter)\r\n$    t  =  3.348  in   (initial plate thickness)\r\n$     o             2\r\n$    A  =  1.674  in   (initial rod cross sectional area)\r\n$     o         6\r\n$    E  = 30.x10   psi (modulus of elasticity)\r\n$    v  =  0.3         (Poisson's ratio)\r\n$    t  = 1.0 in       (lower limit for plate thickness corresponding to a\r\n$     e                       3\r\n$                      25.0x10  maximum principle stress)\r\n$ \r\n$ 2. Boundary conditions:\r\n$ \r\n$    on y = 0 plane, u  = 0 (symmetry)\r\n$                     y\r\n$    on x = 0 plane, u  = 0 (symmetry)\r\n$                     x\r\n$    all points u  = theta  = theta  = theta  = 0 (permanent constraints)\r\n$                z        x        y        z\r\n$ 3. Loads:\r\n$                                               3\r\n$    First subcase:  uniform load, F   = 25.0x10  lb/in\r\n$                                   10\r\n$    Second subcase:  at grid points 69 and 79, F   = -1000.0 lb\r\n$                                                12\r\n$                     at grid point 78, F   = -2000.0 lb\r\n$                                        12\r\n$              (contact load on rim of hole - displacement check only)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The theoretical approach developed for the property optimization technique in\r\n$ NASTRAN is contained in the NASTRAN Theoretical Manual, Section 4.4. This\r\n$ technique is a fully stressed design approach. A mathematical programming\r\n$ technique is used in reference 21, from which the example problem was taken.\r\n$ \r\n$ The two techniques might be expected to give similar results when the same\r\n$ model is used. However, reference 21 employs elements which allow varying\r\n$ properties and stresses, while NASTRAN elements allow only constant properties\r\n$ and constant stresses. Somewhat different geometry is used in the NASTRAN\r\n$ model, i.e., the use of quadrilateral elements for illustration. Additional\r\n$ features of the NASTRAN model are discussed in items 3, 4, and 5 of Part A.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The optimization process in this problem is terminated at 5 iteratlons. The\r\n$ initial weight to final weight ratio is 2.70 compared to Pope's results of\r\n$ 2.63. Tables 1 and 2 show the optimized nondimensional properties of the\r\n$ elements around the arch. Note that the results from reference 2l are averaged\r\n$ to provide an equivalent constant property element for comparison.\r\n$ \r\n$             Table 1. Optimized Nondimensional Thickness Comparisons\r\n$               ----------------------------------------------------\r\n$                             Original     Reference 21     NASTRAN\r\n$                               t/t        Average t/t       t/t\r\n$                Element           e                  e         e\r\n$               ----------------------------------------------------\r\n$                  37          3.348          1.24          1.00\r\n$                  38          3.348          1.00          1.04\r\n$                  39          3.348          1.00          1.00\r\n$                  46          3.348          2.10          1.14\r\n$                  47          3.348          1.34          2.00\r\n$                  57          3.348          3.32          1.34\r\n$                  59          3.348          3.19          4.40\r\n$                  67          3.348          4.58          5.47\r\n$                  68          3.348          3.26          1.00\r\n$                  69          3.348          4.52          5.49\r\n$               ----------------------------------------------------\r\n$ \r\n$                Table 2. Optimized Nondimensional Area Comparisons\r\n$             ---------------------------------------------------------\r\n$                           Original     Reference 21     NASTRAN\r\n$                             A/dt       Average A/dt      A/dt\r\n$              Element            e                  e         e\r\n$             ---------------------------------------------------------\r\n$                101        .1674           .0249         .00716\r\n$                102        .1674           .0238        0.0 effective\r\n$                103        .1674           .0636         .05019\r\n$                104        .1674           .1880         .1839\r\n$                105        .1674           .3540         .3287\r\n$             ---------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 21. Pope, G. G., \"Optimum Design of Stressed Skin Structures\", AIAA Journal,\r\n$     Vol. 11, No. 11, pp 1545-1552, November 1973.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d01171a.inp",
    "content": "ID    D01171A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1,0                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = RECTANGULAR PLATE WITH VARIABLE MODULI OF ELASTICITY                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-17-1A                          \r\nLABEL    = ELEMENT STRESS PRECISION CHECKS                                      \r\nSPC = 10                                                                        \r\nOUTPUT                                                                          \r\nDISPLACEMENT = ALL                                                              \r\nELSTRESS = ALL                                                                  \r\nNCHECK = 12                                                                     \r\nSUBCASE 1                                                                       \r\nLABEL = LOAD IN LONGITUDINAL DIRECTION                                          \r\nLOAD  = 1                                                                       \r\nSUBCASE 2                                                                       \r\nLABEL = LOAD IN TRANSVERSE DIRECTION                                            \r\nLOAD  = 2                                                                       \r\nSUBCASE 3                                                                       \r\nLABEL = LOAD NORMAL TO SURFACE                                                  \r\nLOAD  = 3                                                                       \r\nSUBCASE 4                                                                       \r\nLABEL = THERMAL LOAD                                                            \r\nTEMP(LOAD) = 4                                                                  \r\nSPC = 20                                                                        \r\nBEGIN BULK                                                                      \r\nCQUAD2  11      10      11      12      22      21      .0                      \r\nCQUAD2  12      10      12      13      23      22      .0                      \r\nCQUAD2  21      20      21      22      32      31      .0                      \r\nCQUAD2  22      20      22      23      33      32      .0                      \r\nCQUAD2  31      30      31      32      42      41      .0                      \r\nCQUAD2  32      30      32      33      43      42      .0                      \r\nCQUAD2  41      40      41      42      52      51      .0                      \r\nCQUAD2  42      40      42      43      53      52      .0                      \r\nFORCE   1       51              100.0   .0      1.0     .0                      \r\nFORCE   1       52              400.0   .0      1.0     .0                      \r\nFORCE   1       53              100.0   .0      1.0     .0                      \r\nFORCE   2       52              1000.0  1.0     .0      .0                      \r\nFORCE   3       52              100.0   .0      .0      1.0                     \r\nGRDSET                                                  6                       \r\nGRID    11              .0      .0      .0                                      \r\nGRID    12              10.0    .0      .0                                      \r\nGRID    13              20.0    .0      .0                                      \r\nGRID    21              .0      10.0    .0                                      \r\nGRID    22              10.0    10.0    .0                                      \r\nGRID    23              20.0    10.0    .0                                      \r\nGRID    31              .0      20.0    .0                                      \r\nGRID    32              10.0    20.0    .0                                      \r\nGRID    33              20.0    20.0    .0                                      \r\nGRID    41              .0      30.0    .0                                      \r\nGRID    42              10.0    30.0    .0                                      \r\nGRID    43              20.0    30.0    .0                                      \r\nGRID    51              .0      40.0    .0                                      \r\nGRID    52              10.0    40.0    .0                                      \r\nGRID    53              20.0    40.0    .0                                      \r\nMAT1    10      1.0E3           .0              1.0E-6  70.0                    \r\nMAT1    20      1.0E5           .0              1.0E-6  70.0                    \r\nMAT1    30      1.0E7           .0              1.0E-6  70.0                    \r\nMAT1    40      1.0E9           .0              1.0E-6  70.0                    \r\nPQUAD2  10      10      1.0     .0      20      20      1.0     .0              \r\nPQUAD2  30      30      1.0     .0      40      40      1.0     .0              \r\nSPC1    10      23      11      13                                              \r\nSPC1    10      12345   12                                                      \r\nSPC1    20      12345   11      THRU    13                                      \r\nSPC1    20      12345   51      THRU    53                                      \r\nTEMPD   4       170.0                                                           \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d01171a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 1, Static Analysis\r\n$          Rectangular Plate With Variable Moduli of Elasticity (1-17-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the element stress precision check\r\n$ feature, NCHECK. A rectangular plate is modeled using CQUAD2 elements. The\r\n$ thickness is constant, but the modulus of elasticity is varied versus distance\r\n$ along the plate length. Concentrated forces and thermal loads are applied so\r\n$ as to produce uniform stress distribution in selected directions. The problem\r\n$ is designed so that stress calculations for certain elements will involve\r\n$ operations with small differences between large numbers to produce a loss of\r\n$ precision in the calculations.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The relevant data are listed below.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    t = 1.0 inch              (Plate thickness)\r\n$ \r\n$    E =                       (Modulus of elasticity)\r\n$ \r\n$    v =  0.0                  (Poisson's ratio)\r\n$                    -6\r\n$    alpha = 1.0 x 10   in/in/deg. F (Thermal expansion coefficient)\r\n$ \r\n$    T = 170 deg. F            (Applied temperature, uniform)\r\n$ \r\n$    T  = 70 deg. F            (Reference temperature)\r\n$     o\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    Subcases 1, 2, and 3\r\n$ \r\n$      u  =   0                    at all Grid points\r\n$       6\r\n$      u  = u  =  0                at Grids 11 and 13\r\n$       2    3\r\n$ \r\n$      u  = u  = u  = u  = u  = 0  at Grid 12\r\n$       1    2    3    4    5\r\n$ \r\n$    Subcase  4\r\n$ \r\n$      u  =   0                    at all Grid points\r\n$       6\r\n$ \r\n$      u  = u  = u  = u  = u  = 0  at Grid points 11, 12, 13, 51, 52, and 53\r\n$       1    2    3    4    5\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Subcase I F  = 100. at Grids 51 and 53\r\n$               y\r\n$ \r\n$              F  = 400. at Grid 52\r\n$               y\r\n$ \r\n$    Subcase 2  F  = 1000. at Grid 52\r\n$                x\r\n$ \r\n$    Subcase 3  F  =  100. at Grid 52\r\n$                z\r\n$ \r\n$    Subcase 4  T  =  170. deg. F at all Grids\r\n$ \r\n$ 4. Output Requests:\r\n$ \r\n$    Displacements of all grid points\r\n$ \r\n$    Stresses of all elements\r\n$ \r\n$    Stress precision check to 12 significant figures\r\n$ \r\n$ C. Results\r\n$ \r\n$ A summary of stress precision in the number of significant digits is presented\r\n$ in Table 1. The quantities shown in the table are indicative of the general\r\n$ trends observed in all stress precision output for this problem. The trend\r\n$ shows that elements with higher moduli of elasticity provide less precise\r\n$ stresses relative to the other elements under the same loading.\r\n$ \r\n$                         Table 1. Stress Precision Summary\r\n$     -------------------------------------------------------------------------\r\n$          Case        Modulus of  Subcase 1  Subcase 2   Subcase 3  Subcase 4\r\n$         (CDC)        Elasticity\r\n$     -------------------------------------------------------------------------\r\n$       Significant                sigma        tau          M       sigma\r\n$     Load or Stress                    y          xy         y           y\r\n$     -------------------------------------------------------------------------\r\n$                           3\r\n$     Elements 11, 12     10        14.5        >12        >12        >12\r\n$                           5\r\n$     Elements 21, 22     10        12.1         11.4       11.9      >12\r\n$                           7\r\n$     Elements 31, 32     10        10.1          9.2        9.7       10.6\r\n$                           9\r\n$     Elements 41, 42     10         8.1          7.1        7.2        9.0\r\n$     -------------------------------------------------------------------------\r\n$ \r\n$ \r\n$     -------------------------------------------------------------------------\r\n$          Case        Modulus of  Subcase 1  Subcase 2   Subcase 3  Subcase 4\r\n$         (IBM)        Elasticity\r\n$     -------------------------------------------------------------------------\r\n$       Significant                sigma        tau          M       sigma\r\n$     Load or Stress                    y          xy         y           y\r\n$     -------------------------------------------------------------------------\r\n$                           3\r\n$     Elements 11, 12     10         7.2        >12        >12        >12\r\n$                           5\r\n$     Elements 21, 22     10         4.9          4.2        4.7      >12\r\n$                           7\r\n$     Elements 31, 32     10         2.9          2.0        2.5        3.3\r\n$                           9\r\n$     Elements 41, 42     10         1.0          0.5        1.7        2.0\r\n$     -------------------------------------------------------------------------\r\n$ \r\n$ \r\n$     -------------------------------------------------------------------------\r\n$          Case        Modulus of  Subcase 1  Subcase 2   Subcase 3  Subcase 4\r\n$       (UNIVAC)       Elasticity\r\n$     -------------------------------------------------------------------------\r\n$       Significant                sigma        tau          M       sigma\r\n$     Load or Stress                    y          xy         y           y\r\n$     -------------------------------------------------------------------------\r\n$                           3\r\n$     Elements 11, 12     10         8.1        >12        >12        >12\r\n$                           5\r\n$     Elements 21, 22     10         5.8          5.1        5.6      >12\r\n$                           7\r\n$     Elements 31, 32     10         3.8          2.9        3.4        4.3\r\n$                           9\r\n$     Elements 41, 42     10         1.0          0.8        0.7        2.7\r\n$     -------------------------------------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02011a.inp",
    "content": "ID    D02011A,NASTRAN                                                           \r\nTIME  5                                                                         \r\nAPP   DISPLACEMENT                                                              \r\nSOL   2,1                                                                       \r\nCEND                                                                            \r\nTITLE    = INERTIA RELIEF ANALYSIS OF A CIRCULAR RING                           \r\nLABEL    = CONCENTRATED AND CENTRIFUGAL LOADS                                   \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-01-1A                          \r\n    LOAD = 3                                                                    \r\n    OUTPUT                                                                      \r\n         DISP = ALL                                                             \r\n        OLOAD = ALL                                                             \r\n     SPCFORCE = ALL                                                             \r\n     STRESSES = ALL                                                             \r\n        SET 1 = 1,6,7,12,13,18,19,24                                            \r\n      ELFORCE = 1                                                               \r\nBEGIN BULK                                                                      \r\nBAROR           5                       1.0     .0      .0      1               \r\nCBAR    1               1       2                               1       +B1     \r\n+B1                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    2               2       3                               1       +B2     \r\n+B2                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    3               3       4                               1       +B3     \r\n+B3                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    4               4       5                               1       +B4     \r\n+B4                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    5               5       6                               1       +B5     \r\n+B5                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    6               6       7                               1       +B6     \r\n+B6                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    7               7       8                               1       +B7     \r\n+B7                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    8               8       9                               1       +B8     \r\n+B8                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    9               9       10                              1       +B9     \r\n+B9                     -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    10              10      11                              1       +B10    \r\n+B10                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    11              11      12                              1       +B11    \r\n+B11                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    12              12      13                              1       +B12    \r\n+B12                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    13              13      14                              1       +B13    \r\n+B13                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    14              14      15                              1       +B14    \r\n+B14                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    15              15      16                              1       +B15    \r\n+B15                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    16              16      17                              1       +B16    \r\n+B16                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    17              17      18                              1       +B17    \r\n+B17                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    18              18      19                              1       +B18    \r\n+B18                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    19              19      20                              1       +B19    \r\n+B19                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    20              20      21                              1       +B20    \r\n+B20                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    21              21      22                              1       +B21    \r\n+B21                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    22              22      23                              1       +B22    \r\n+B22                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    23              23      24                              1       +B23    \r\n+B23                    -1.0    .0      .0      -1.0    .0      .0              \r\nCBAR    24              24      1                               1       +B24    \r\n+B24                    -1.0    .0      .0      -1.0    .0      .0              \r\nCORD2C  2       0       .0      10.0    .0      .0      10.0    1.0     CCORD   \r\n+CORD   .0      9.0     .0                                                      \r\nFORCE   1       13      2       100.0   1.0     .0      .0                      \r\nGRDSET          2                               2       345                     \r\nGRID    1               11.0    .0      .0                                      \r\nGRID    2               11.0    15.0    .0                                      \r\nGRID    3               11.0    30.0    .0                                      \r\nGRID    4               11.0    45.0    .0                                      \r\nGRID    5               11.0    60.0    .0                                      \r\nGRID    6               11.0    75.0    .0                                      \r\nGRID    7               11.0    90.0    .0                                      \r\nGRID    8               11.0    105.0   .0                                      \r\nGRID    9               11.0    120.0   .0                                      \r\nGRID    10              11.0    135.0   .0                                      \r\nGRID    11              11.0    150.0   .0                                      \r\nGRID    12              11.0    165.0   .0                                      \r\nGRID    13              11.0    180.    .0                                      \r\nGRID    14              11.0    195.    .0                                      \r\nGRID    15              11.0    210.    .0                                      \r\nGRID    16              11.0    225.    .0                                      \r\nGRID    17              11.0    240.    .0                                      \r\nGRID    18              11.0    255.    .0                                      \r\nGRID    19              11.0    270.    .0                                      \r\nGRID    20              11.0    285.    .0                                      \r\nGRID    21              11.0    300.    .0                                      \r\nGRID    22              11.0    315.    .0                                      \r\nGRID    23              11.0    330.    .0                                      \r\nGRID    24              11.0    345.    .0                                      \r\nGRID    25      2       .0      .0      .0              123456                  \r\nLOAD    3       1.0     1.0     1       1.0     2                               \r\nMAT1    1       1000.0  400.0           .5                              +MAT1   \r\n+MAT1   100.    200.    300.                                                    \r\nPARAM   GRDPNT  19                                                              \r\nPBAR    5       1       1000.0  10.     10.                             +P5     \r\n+P5     1.0     1.0     -1.0    -1.0                                            \r\nRFORCE  2       25      2       .159155 .0      .0      1.0                     \r\nSUPORT  1       2       1       1       13      2                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT No. 2, Inertia Relief Analysis\r\n$        Inertia Relief Analysis of a Circular Ring Under Concentrated and\r\n$                            Centrifugal Loads (2-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of inertia relief analysis to solve a free-\r\n$ body problem. In inertia relief the structure is under constant acceleration\r\n$ due to the applied loads; the reactions to the applied load are due to the\r\n$ masses of the structure. Ficticious, nonredundant support points must be\r\n$ provided to define a reference system attached to the body. The dlsplacements\r\n$ of the body are measured relative to the supported coordinates.\r\n$ \r\n$ The structure consists of a spinning ring with constant radial load applied to\r\n$ one point. The rotational velocity creates centrifugal loads and the point\r\n$ load causes inertia reactions. The actual dynamic motion of the whole\r\n$ structure is a cyclic motion of the center point coinciding with the rotation\r\n$ of the ring. The displacements measured by the inertia relief analysis,\r\n$ however, will be the static motion relative to the support point\r\n$ dlsplacements.\r\n$ \r\n$ The displacements are defined in a cylindrical coordinate system (u1 = u ,\r\n$                                                                    1    r\r\n$ u  = u ,   u3 = u ). The elements used are BAR elements wIth a large cross-\r\n$  2    phi        z\r\n$ sectional area to minimize axial deformations. The BARs were offset a uniform\r\n$ radial distance from the grid points to demonstrate the offset option of the\r\n$ BAR element.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    R = 10.0 (radius at end of BAR elements)\r\n$ \r\n$    R  = 11.0 (Radius at grid points)\r\n$     1\r\n$ \r\n$    I = 10.0 (Bending inertia)\r\n$ \r\n$    p = 0.5 (Mass density)\r\n$ \r\n$    E = 1000. (Modulus of elasticity)\r\n$ \r\n$    A = 1000. (Cross-sectional area)\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    P     = 100\r\n$     r,13\r\n$ \r\n$    f = 1.59 cps (Rotational velocity, w = 1.0 radians per second)\r\n$ \r\n$ 3. Supports:\r\n$ \r\n$    a) The u    direction is supported to restrict vertical translation.\r\n$            r,1\r\n$ \r\n$    b) The u      and u     directions are supported to restrict rotation and\r\n$            phi,1      phi,13\r\n$       horizontal translation.\r\n$ \r\n$ 4. Grid Point Weight Generator Input:\r\n$ \r\n$    Weight and moment of inertia are defined relative to point 19.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ 1. The Element Forces and Moments may be solved by the following analysis, as\r\n$    explained in Reference 7, Chapter 12.\r\n$ \r\n$    a) Using symmetry the structure may be defined by the free-body diagram.\r\n$ \r\n$       The static equilibrium equations at any angle are\r\n$ \r\n$         A = A  cos phi + mu phi sin phi (Axial Force)                      (1)\r\n$              o\r\n$ \r\n$         V = A  sin phi + mu phi cos phi (Shear)                            (2)\r\n$              o\r\n$ \r\n$         M = M  + r[mu(1 - cos phi - phi sin phi) +\r\n$              o\r\n$ \r\n$         A (1 - cos phi)]  (Bending Moment)                                 (3)\r\n$          o\r\n$ \r\n$    b) Using energy and Castigliano's Theorem:\r\n$ \r\n$               R                        2\r\n$         U  = ---  integral o to pi of M  d phi                             (4)\r\n$              2EI\r\n$ \r\n$         deltaU\r\n$         ------ = 0                                                         (5)\r\n$         deltaM\r\n$               o\r\n$ \r\n$         deltaU\r\n$         ------ = 0                                                         (6)\r\n$         deltaA\r\n$               o\r\n$ \r\n$       These are the deflections at the bottom which are fixed. The resulting\r\n$       two equations are used in step c.\r\n$ \r\n$    c) Solving the equations in (b) gives the redundant forces:\r\n$ \r\n$                 1          F\r\n$         A  = - --- mu = - ---                                              (7)\r\n$          o      2         4pi\r\n$ \r\n$              Rmu   FR\r\n$         M  = --- = ---                                                     (8)\r\n$          o    2     4\r\n$ \r\n$    d) Adding a dummy load and solving the problem with the above boundary\r\n$       conditions gives the displacement due to the point load:\r\n$ \r\n$                    3      2\r\n$                  FR     pi\r\n$         delta  = ---  ( -- - 1 )                                           (9)\r\n$              f   piEI   8\r\n$ \r\n$    e) The axial stress and radial displacement due to the centrifugal load is\r\n$ \r\n$ \r\n$                    2  2           2\r\n$         delta  = pR  w  = 5.0 x 10                                        (10)\r\n$              w\r\n$ \r\n$                     3 2\r\n$                  2pR w\r\n$         delta  = ------- = 1.0                                            (11)\r\n$              w      E\r\n$ \r\n$ D. Results\r\n$ \r\n$ 1. The total result of summing the two loads is\r\n$ \r\n$               -----------------------------------------------------\r\n$                                                 THEORY    NASTRAN\r\n$               -----------------------------------------------------\r\n$                delta = Displacement u              1.75      1.734\r\n$                                      r,13\r\n$                M  = Moment BAR #1, end A         -79.5     -80.48\r\n$                 o\r\n$                M  = Moment BAR #12, end B       -238.5    -236.0\r\n$                 1\r\n$               -----------------------------------------------------\r\n$ \r\n$ 2. The structural mass characteristics as calculated by the grid point weight\r\n$    generator are\r\n$ \r\n$               -----------------------------------------------------\r\n$                         THEORETICAL                    NASTRAN\r\n$               -----------------------------------------------------\r\n$                X   = 11.0 from point 19                  11.0\r\n$                 CG\r\n$                              4               4                    4\r\n$                Mass = pi x 10  = 3.14159 x 10          3.1326 x 10\r\n$ \r\n$                            pi     6              6               6\r\n$                I   = I   = -- x 10  = 1.5708 x 10     1.5663 x 10\r\n$                 xx    yy   2\r\n$ \r\n$                             6               6                     6\r\n$                I   = pi x 10  = 3.14159 x 10           3.1326 x 10\r\n$                 zz\r\n$               -----------------------------------------------------\r\n$ \r\n$                (Inertias are about center of gravity)\r\n$ \r\n$    NASTRAN gives slightly different answers due to the polygonal shape of the\r\n$    finite element model.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02021a.inp",
    "content": "ID    D02021A,NASTRAN                                                           \r\nAPP   DISPLACEMENT,SUBS                                                         \r\nSOL   2,0                                                                       \r\nTIME  10                                                                         \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE1                                                             \r\n  PASSWORD = DEMO                                                               \r\n  SOF(1)   = FT18,950,NEW $ DEC VAX                                             \r\n  RUN      = STEP                                                               \r\n  OPTION   = K,M,P                                                              \r\n  NAME     = HUB                                                                \r\n  SAVEPLOT = 1                                                                  \r\n  SOFP TOC                                                                      \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-1A                          \r\nLABEL    = SUBSTRUCTURE 1, RUN 1, PHASE 1                                       \r\n     SPC = 30                                                                   \r\nSUBCASE 1                                                                       \r\nLABEL  = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE          \r\n  LOAD = 1                                                                      \r\nSUBCASE 2                                                                       \r\nLABEL  = CHECK ON RELEASE FEATURE AT GRID POINT 5                               \r\n  LOAD = 3                                                                      \r\nOUTPUT(PLOT)                                                                    \r\n SET 1 = ALL                                                                    \r\n CSCA  = 2.0                                                                    \r\nPLOT                                                                            \r\nBEGIN BULK                                                                      \r\nCORD2C  1       0       .0      .0      .0      .0      .0      1.0     +COR    \r\n+COR    1.0     .0      .0                                                      \r\nCQDMEM  1       10      1       4       5       2                               \r\nCQDMEM  3       10      4       7       108     5                               \r\nCQDMEM  5       10      108     7       10      11                              \r\nCQDMEM  7       10      13      14      11      10                              \r\nCQDMEM  9       10      16      17      14      13                              \r\nCQDMEM  11      10      19      20      17      16                              \r\nCQDMEM  13      10      20      19      22      23                              \r\nCQDMEM  15      10      25      26      23      22                              \r\nCQDMEM  17      10      29      26      25      28                              \r\nCQDMEM  19      10      32      29      28      31                              \r\nCQDMEM  21      10      32      31      34      35                              \r\nCQDMEM  23      10      37      38      35      34                              \r\nCQDMEM  25      10      38      37      40      41                              \r\nCQDMEM  27      10      41      40      43      44                              \r\nCQDMEM  29      10      44      43      46      47                              \r\nCQDMEM  31      10      1       2       47      46                              \r\nFORCE1  3       4       1.0     5       4                                       \r\nGRDSET                                                  3456                    \r\nGRID    1               -5.0    10.0                                            \r\nGRID    2               -5.0    15.0                                            \r\nGRID    4               .0      10.0                                            \r\nGRID    5               .0      15.0                                            \r\nGRID    7               5.0     10.0                                            \r\nGRID    10              7.5     7.5                                             \r\nGRID    11              10.0    10.0                                            \r\nGRID    13              10.0    5.0                                             \r\nGRID    14              15.0    5.0                                             \r\nGRID    16              10.0    .0                                              \r\nGRID    17              15.0    .0                                              \r\nGRID    19              10.0    -5.0                                            \r\nGRID    20              15.0    -5.0                                            \r\nGRID    22              7.5     -7.5                                            \r\nGRID    23              10.0    -10.0                                           \r\nGRID    25              5.0     -10.0                                           \r\nGRID    26              5.0     -15.0                                           \r\nGRID    28              .0      -10.0                                           \r\nGRID    29              .0      -15.0                                           \r\nGRID    31              -5.0    -10.0                                           \r\nGRID    32              -5.0    -15.0                                           \r\nGRID    34              -7.5    -7.5                                            \r\nGRID    35              -10.0   -10.0                                           \r\nGRID    37              -10.0   -5.0                                            \r\nGRID    38              -15.0   -5.0                                            \r\nGRID    40              -10.0   .0                                              \r\nGRID    41              -15.0   .0                                              \r\nGRID    43              -10.0   5.0                                             \r\nGRID    44              -15.0   5.0                                             \r\nGRID    46              -7.5    7.5                                             \r\nGRID    47              -10.0   10.0                                            \r\nGRID    108             5.0     15.0            1                               \r\nMAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\nPQDMEM  10      50      .1                                                      \r\nRFORCE  1       0       0       .1591579.0      .0      1.0                     \r\nSPC1    30      1       13      19      37      43                              \r\nSPC1    30      2       1       7       31      25                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02022a.inp",
    "content": "ID    D02022A,NASTRAN                                                           \r\nAPP   DISPLACEMENT,SUBS                                                         \r\nSOL   2,0                                                                       \r\nTIME  10                                                                         \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE1                                                             \r\n  PASSWORD = DEMO                                                               \r\n    SOF(1) = FT18,950 $ DEC VAX                                                 \r\n       RUN = STEP                                                               \r\n    OPTION = K,M,P                                                              \r\n      NAME = ROOT1                                                              \r\n  SAVEPLOT = 1                                                                  \r\n  SOFP TOC                                                                      \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-2A                          \r\nLABEL    = SUBSTRUCTURE 2, RUN 2, PHASE 1                                       \r\n    LOAD = 1                                                                    \r\nOUTPUT(PLOT)                                                                    \r\n  SET 1 = ALL                                                                   \r\n  CSCA  = 2.0                                                                   \r\n  PLOT                                                                          \r\nBEGIN BULK                                                                      \r\nCQDMEM  1       10      3       4       2       1                               \r\nCQDMEM  2       10      5       6       4       3                               \r\nCQDMEM  3       10      6       8       7       4                               \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      27.5                                            \r\nGRID    2               5.0     27.5                                            \r\nGRID    3               .0      20.0                                            \r\nGRID    4               5.0     20.0                                            \r\nGRID    5               .0      15.0                                            \r\nGRID    6               5.0     15.0                                            \r\nGRID    7               12.5    12.5                                            \r\nGRID    8               10.0    10.0                                            \r\nMAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\nPQDMEM  10      50      .1                                                      \r\nRFORCE  1                       .1591579.0      .0      1.0                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02022a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02023a.inp",
    "content": "ID    D02023A,NASTRAN                                                           \r\nAPP   DISPLACEMENT,SUBS                                                         \r\nSOL   2,0                                                                       \r\nTIME  10                                                                         \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE1                                                             \r\n  PASSWORD = DEMO                                                               \r\n  SOF(1) = FT18,950 $ DEC VAX                                                   \r\n  RUN = STEP                                                                    \r\n  OPTION = K,M,P                                                                \r\n  NAME = VANE1                                                                  \r\n  SAVEPLOT = 1                                                                  \r\n  SOFP TOC                                                                      \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-3A                          \r\nLABEL    = SUBSTRUCTURE 3, RUN 3, PHASE 1                                       \r\nSUBCASE 1                                                                       \r\nLABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                      \r\n LOAD = 1                                                                       \r\nSUBCASE 2                                                                       \r\nLABEL = EXTENSION OF PANEL                                                      \r\n LOAD = 2                                                                       \r\nOUTPUT(PLOT)                                                                    \r\n SET 1 = ALL                                                                    \r\n PLOT                                                                           \r\nBEGIN BULK                                                                      \r\nCORD2R  1               5.0     22.5    .0      5.0     22.5    1.0     +A      \r\n+A      .0      22.5    .0                                                      \r\nCQDMEM  1       10      3       4       2       1                               \r\nCQDMEM  2       10      5       6       4       3                               \r\nCQDMEM  3       10      7       8       6       5                               \r\nFORCE1  2       1       25.0    4       2                                       \r\nFORCE1  2       2       25.0    4       2                                       \r\nGRDSET                                          1       3456                    \r\nGRID    1               .0      22.5                                            \r\nGRID    2               5.0     22.5                                            \r\nGRID    3               .0      15.0                                            \r\nGRID    4               5.0     15.0                                            \r\nGRID    5               .0      7.5                                             \r\nGRID    6               5.0     7.5                                             \r\nGRID    7               .0      .0                                              \r\nGRID    8               5.0     .0                                              \r\nGRID    9               .0      -27.5                   123456                  \r\nMAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\nPQDMEM  10      50      .1                                                      \r\nRFORCE  1       9               .1591579.0      .0      1.0                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02023a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02024a.inp",
    "content": "ID    D02024A,NASTRAN                                                           \r\nAPP   DISPLACEMENT,SUBS                                                         \r\nSOL   1,0                                                                       \r\nTIME  30                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\n SUBSTRUCTURE PHASE2                                                            \r\n  PASSWORD = DEMO                                                               \r\n    SOF(1) = FT18,950 $ DEC VAX                                                 \r\n   OPTIONS = K,M,P                                                              \r\n   PLOT VANE1                                                                   \r\n   PLOT ROOT1                                                                   \r\n   PLOT HUB                                                                     \r\n$                                                                               \r\n$  STEP I.  COMBINE VANETOP                                                     \r\n$                                                                               \r\n   SOFPRINT TOC                                                                 \r\n   EQUIV VANE1,VANE2                                                            \r\n     PREFIX=X                                                                   \r\n   COMBINE VANE1,VANE2                                                          \r\n     NAME=VANETOP                                                               \r\n     TOLERANCE=0.02                                                             \r\n     OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n     COMPONENT=VANE1                                                            \r\n     TRANS=100                                                                  \r\n     COMPONENT=VANE2                                                            \r\n     TRANS=100                                                                  \r\n     SYMT=X                                                                     \r\n  PLOT VANETOP                                                                  \r\n   SOFPRINT TOC                                                                 \r\n$                                                                               \r\n$  STEP II.  COMBINE ROOTTOP                                                    \r\n$                                                                               \r\n   EQUIV ROOT1,ROOT2                                                            \r\n     PREFIX=X                                                                   \r\n   COMBINE ROOT1,ROOT2                                                          \r\n     NAME=ROOTTOP                                                               \r\n     TOLERANCE=0.02                                                             \r\n     OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n     COMPONENT=ROOT2                                                            \r\n     SYMT=X                                                                     \r\n  PLOT ROOTTOP                                                                  \r\n   SOFPRINT TOC                                                                 \r\n$                                                                               \r\n$  STEP III.  SEVEN STRUCTURE COMBINE                                           \r\n$                                                                               \r\n   EQUIV VANETOP,VANELFT                                                        \r\n     PREFIX=L                                                                   \r\n   EQUIV VANETOP,VANERGT                                                        \r\n     PREFIX=R                                                                   \r\n   EQUIV VANETOP,VANEBOT                                                        \r\n     PREFIX=B                                                                   \r\n   EQUIV ROOTTOP,ROOTLFT                                                        \r\n     PREFIX=L                                                                   \r\n   EQUIV ROOTTOP,ROOTRGT                                                        \r\n     PREFIX=R                                                                   \r\n   EQUIV ROOTTOP,ROOTBOT                                                        \r\n     PREFIX=B                                                                   \r\n   SOFPRINT TOC                                                                 \r\n$                                                                               \r\n   COMBINE VANETOP,ROOTTOP,VANELFT,ROOTLFT,VANEBOT,ROOTBOT,ROOTRGT              \r\n     NAME=RING                                                                  \r\n     TOLERANCE=0.02                                                             \r\n     OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n     COMPONENT=VANELFT                                                          \r\n       TRANS=400                                                                \r\n     COMPONENT=ROOTLFT                                                          \r\n       TRANS=400                                                                \r\n     COMPONENT=VANEBOT                                                          \r\n       SYMT=Y                                                                   \r\n     COMPONENT=ROOTBOT                                                          \r\n       SYMT=Y                                                                   \r\n     COMPONENT=ROOTRGT                                                          \r\n       TRANS=300                                                                \r\n   SOFPRINT TOC                                                                 \r\n$                                                                               \r\n$  STEP IV.  COMBINATION OF BLADES                                              \r\n$                                                                               \r\n   COMBINE RING,VANERGT                                                         \r\n     NAME=BLADES                                                                \r\n     TOLERANCE=0.02                                                             \r\n     OUTPUT=1,2,7,11,12,13,14,15,16,17                                          \r\n     COMPONENT=VANERGT                                                          \r\n     TRANS=500                                                                  \r\n   SOFPRINT TOC                                                                 \r\n$                                                                               \r\n$  STEP V.  FINAL COMBINE OF WINDMILL WITH RELES OPTION                         \r\n$                                                                               \r\n   COMBINE HUB,BLADES                                                           \r\n     NAME=WINDMIL                                                               \r\n     TOLERANCE=0.02                                                             \r\n     OUTPUT=1,2,9,11,12,13,14,15,16,17                                          \r\n     CONNECT=1000                                                               \r\n   SOFPRINT TOC                                                                 \r\n  PLOT WINDMIL                                                                  \r\n$                                                                               \r\n$  STEP VI.  REDUCTION TO BOUNDARY POINTS                                       \r\n$                                                                               \r\n   REDUCE WINDMIL                                                               \r\n     NAME=SMALLMIL                                                              \r\n     BOUNDARY=2000                                                              \r\n  RSAVE                                                                         \r\nOUTPUT=1,2,3,4,5,6,7,8,9                                                        \r\n   SOFPRINT TOC                                                                 \r\nSOLVE SMALLMIL                                                                  \r\nRECOVER SMALLMIL                                                                \r\n   PRINT WINDMIL                                                                \r\n   SAVE HUB                                                                     \r\n   SAVE RVANE1                                                                  \r\n   SOFPRINT TOC                                                                 \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-4A                          \r\nLABEL    = COMBINE, REDUCE, SOLVE, AND RECOVER, RUN 4, PHASE 2                  \r\nDISP  = ALL                                                                     \r\nOLOAD = ALL                                                                     \r\nMPC   = 20                                                                      \r\nSUBCASE 1                                                                       \r\nLABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE           \r\nLOAD  = 1                                                                       \r\nSUBCASE 2                                                                       \r\nLABEL = EXTENTION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\nLOAD  = 2                                                                       \r\nSUBCASE 3                                                                       \r\nLABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\nLOAD  = 3                                                                       \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. 2-2-4                                \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n  SET 1 = ALL                                                                   \r\n  AXES Z, X, Y                                                                  \r\n  VIEW 0.0, 0.0,  0.0                                                           \r\n  FIND SCALE, ORIGIN 1, SET 1, REGION 0.1, 0.1, 0.9, 0.9                        \r\n  PTITLE = SUBSTRUCTURES VANE1/ROOT1/HUB/VANETOP/ROOTTOP PLUS MILL              \r\n  PLOT SET 1, ORIGIN 1, LABEL BOTH                                              \r\nBEGIN BULK                                                                      \r\nBDYC    2000    VANE1   200     VANE2   200     LVANE1  200             +BC1    \r\n+BC1            LVANE2  200     BVANE1  200     BVANE2  200             +BC2    \r\n+BC2            RVANE1  200     RVANE2  200     ROOT1   230             +BC3    \r\n+BC3            ROOT2   210     LROOT1  210     LROOT2  210             +BC4    \r\n+BC4            BROOT1  210     BROOT2  210     RROOT1  210             +BC5    \r\n+BC5            RROOT2  210     HUB     220                                     \r\nBDYS1   200     12      1       2       4       6       8                       \r\nBDYS1   210     12      2       4       7                                       \r\nBDYS1   220     1       1       7       31      25                              \r\nBDYS1   220     2       13      19      37      43                              \r\nBDYS1   220     12      4       10      16      22      28      34      +B1     \r\n+B1     40      46      108                                                     \r\nBDYS1   230     12      2       4       6       7                               \r\nGTRAN   100     VANE1   7       0                                               \r\nGTRAN   100     VANE1   8       0                                               \r\nGTRAN   100     VANE2   1       200                                             \r\nGTRAN   100     VANE2   2       200                                             \r\nGTRAN   100     VANE2   3       200                                             \r\nGTRAN   100     VANE2   4       200                                             \r\nGTRAN   100     VANE2   5       200                                             \r\nGTRAN   100     VANE2   6       200                                             \r\nGTRAN   100     VANE2   7       0                                               \r\nGTRAN   100     VANE2   8       0                                               \r\nLOADC   1       1.0     VANE1   1       1.0     VANE2   1       1.0     +LC1A   \r\n+LC1A                   ROOT1   1       1.0     ROOT2   1       1.0     +LC1B   \r\n+LC1B                   LVANE1  1       1.0     LVANE2  1       1.0     +LC1C   \r\n+LC1C                   LROOT1  1       1.0     LROOT2  1       1.0     +LC1D   \r\n+LC1D                   BVANE1  1       1.0     BVANE2  1       1.0     +LC1E   \r\n+LC1E                   BROOT1  1       1.0     BROOT2  1       1.0     +LC1F   \r\n+LC1F                   RVANE1  1       1.0     RVANE2  1       1.0     +LC1G   \r\n+LC1G                   RROOT1  1       1.0     RROOT2  1       1.0     +LC1H   \r\n+LC1H                   HUB     1       1.0                                     \r\nLOADC   2       -1.0    BVANE1  2       1.0     BVANE2  2       1.0     +LC2A   \r\n+LC2A                   RVANE1  2       -1.0    RVANE2  2       -1.0            \r\nLOADC   3       1.0     HUB     3       1.0                                     \r\nMPCS    20      HUB     108     1       -1.0                            +MPC1   \r\n+MPC1           ROOT1   6       2       .94868336       1       .3162278        \r\nMPCS    20      HUB     108     2       -1.0                            +MPC2   \r\n+MPC2           ROOT1   6       1       -.9486836       2       .3162278        \r\nRELES   1000    HUB     5       2       17      1       29      2       +REL    \r\n+REL    41      1       108     12                                              \r\nTRANS   100             0.0     27.5    0.0     0.0     27.5    1.0     +A      \r\n+A      5.0     27.5    0.0                                                     \r\nTRANS   200             0.0     0.0     0.0     0.0     0.0     1.      +B      \r\n+B      -1.0    0.0     0.0                                                     \r\nTRANS   300             .0      .0      .0      .0      .0      1.0     +D      \r\n+D      .0      -1.0    .0                                                      \r\nTRANS   400             .0      .0      .0      .0      .0      1.0     +C      \r\n+C      .0      1.0     .0                                                      \r\nTRANS   500             .0      .0      .0      .0      .0      1.0     +E      \r\n+E      .0      -1.0    .0                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02024a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02025a.inp",
    "content": "ID    D02025A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   1,0                                                                       \r\nTIME  5                                                                         \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE3                                                             \r\n  PASSWORD = DEMO                                                               \r\n   SOF(1)  = FT18,950 $ DEC VAX                                                 \r\n   SOFPRINT TOC                                                                 \r\nRECOVER RVANE1                                                                  \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-5A                          \r\nLABEL    = RECOVER RVANE1, RUN 5, PHASE 3                                       \r\n    DISP = ALL                                                                  \r\n  STRESS = ALL                                                                  \r\nSUBCASE 1                                                                       \r\nLABEL = ROTATIOAL FORCES ABOUT CENTER OF OVERALL STRUCTURE                      \r\nSUBCASE 2                                                                       \r\nLABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\nSUBCASE 3                                                                       \r\nLABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\nBEGIN BULK                                                                      \r\nCORD2R  1               5.0     22.5    .0      5.0     22.5    1.0     +A      \r\n+A      .0      22.5    .0                                                      \r\nCQDMEM  1       10      3       4       2       1                               \r\nCQDMEM  2       10      5       6       4       3                               \r\nCQDMEM  3       10      7       8       6       5                               \r\nFORCE1  2       1       25.0    4       2                                       \r\nFORCE1  2       2       25.0    4       2                                       \r\nGRDSET                                          1       3456                    \r\nGRID    1               .0      22.5                                            \r\nGRID    2               5.0     22.5                                            \r\nGRID    3               .0      15.0                                            \r\nGRID    4               5.0     15.0                                            \r\nGRID    5               .0      7.5                                             \r\nGRID    6               5.0     7.5                                             \r\nGRID    7               .0      .0                                              \r\nGRID    8               5.0     .0                                              \r\nGRID    9               .0      -27.5                   123456                  \r\nMAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\nPQDMEM  10      50      .1                                                      \r\nRFORCE  1       9               .1591579.0      .0      1.0                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02025a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02026a.inp",
    "content": "ID    D02026A,NASTRAN                                                           \r\nAPP   DISPLACEMENT,SUBS                                                         \r\nSOL   1,0                                                                       \r\nTIME  5                                                                         \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE3                                                             \r\n  PASSWORD = DEMO                                                               \r\n   SOF(1)  = FT18,950 $ DEC VAX                                                 \r\n   SOFPRINT TOC                                                                 \r\n  BRECOVER HUB                                                                  \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-6A                          \r\nLABEL    = RECOVER HUB, RUN 6, PHASE 3                                          \r\n    DISP = ALL                                                                  \r\n  STRESS = ALL                                                                  \r\nSPC = 30                                                                        \r\nSUBCASE 1                                                                       \r\nLABEL = ROTATIONAL FORCES DUE TO UNIT OMEGA ABOUT CENTER OF STRUCTURE           \r\nSUBCASE 2                                                                       \r\nLABEL = EXTENSION OF RIGHT PANEL AND COMPRESSION OF BOTTOM PANEL                \r\nSUBCASE 3                                                                       \r\nLABEL = CHECK ON RELEASE FEATURE AT GRID POINT 5                                \r\nBEGIN BULK                                                                      \r\nCORD2C  1       0       .0      .0      .0      .0      .0      1.0     +COR    \r\n+COR    1.0     .0      .0                                                      \r\nCQDMEM  1       10      1       4       5       2                               \r\nCQDMEM  3       10      4       7       108     5                               \r\nCQDMEM  5       10      108     7       10      11                              \r\nCQDMEM  7       10      13      14      11      10                              \r\nCQDMEM  9       10      16      17      14      13                              \r\nCQDMEM  11      10      19      20      17      16                              \r\nCQDMEM  13      10      20      19      22      23                              \r\nCQDMEM  15      10      25      26      23      22                              \r\nCQDMEM  17      10      29      26      25      28                              \r\nCQDMEM  19      10      32      29      28      31                              \r\nCQDMEM  21      10      32      31      34      35                              \r\nCQDMEM  23      10      37      38      35      34                              \r\nCQDMEM  25      10      38      37      40      41                              \r\nCQDMEM  27      10      41      40      43      44                              \r\nCQDMEM  29      10      44      43      46      47                              \r\nCQDMEM  31      10      1       2       47      46                              \r\nFORCE1  3       4       1.0     5       4                                       \r\nGRDSET                                                  3456                    \r\nGRID    1               -5.0    10.0                                            \r\nGRID    2               -5.0    15.0                                            \r\nGRID    4               .0      10.0                                            \r\nGRID    5               .0      15.0                                            \r\nGRID    7               5.0     10.0                                            \r\nGRID    10              7.5     7.5                                             \r\nGRID    11              10.0    10.0                                            \r\nGRID    13              10.0    5.0                                             \r\nGRID    14              15.0    5.0                                             \r\nGRID    16              10.0    .0                                              \r\nGRID    17              15.0    .0                                              \r\nGRID    19              10.0    -5.0                                            \r\nGRID    20              15.0    -5.0                                            \r\nGRID    22              7.5     -7.5                                            \r\nGRID    23              10.0    -10.0                                           \r\nGRID    25              5.0     -10.0                                           \r\nGRID    26              5.0     -15.0                                           \r\nGRID    28              .0      -10.0                                           \r\nGRID    29              .0      -15.0                                           \r\nGRID    31              -5.0    -10.0                                           \r\nGRID    32              -5.0    -15.0                                           \r\nGRID    34              -7.5    -7.5                                            \r\nGRID    35              -10.0   -10.0                                           \r\nGRID    37              -10.0   -5.0                                            \r\nGRID    38              -15.0   -5.0                                            \r\nGRID    40              -10.0   .0                                              \r\nGRID    41              -15.0   .0                                              \r\nGRID    43              -10.0   5.0                                             \r\nGRID    44              -15.0   5.0                                             \r\nGRID    46              -7.5    7.5                                             \r\nGRID    47              -10.0   10.0                                            \r\nGRID    108             5.0     15.0            1                               \r\nMAT1    50      1.0+7           .25     2.5E-4  1.0E-6  70.0                    \r\nPQDMEM  10      50      .1                                                      \r\nRFORCE  1       0       0       .1591579.0      .0      1.0                     \r\nSPC1    30      1       13      19      37      43                              \r\nSPC1    30      2       1       7       31      25                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02026a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02027a.inp",
    "content": "ID    D02027A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   3,0                                                                       \r\nTIME  20                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE2                                                             \r\n  PASSWORD = DEMO                                                               \r\n  SOF(1)   = FT18,950 $ DEC VAX                                                 \r\n  SOFPRINT TOC                                                                  \r\n  EQUIV SMALLMIL,SMILLDYN                                                       \r\n  PREFIX = D                                                                    \r\n  SOFPRINT TOC                                                                  \r\n  SOLVE SMILLDYN                                                                \r\n  RECOVER SMILLDYN                                                              \r\n  PRINT DWINDMIL                                                                \r\nENDSUBS                                                                         \r\nTITLE    = WINDMILL PANEL SECTIONS FOR AUTOMATED MULTI-STAGE SUBSTRUCTURING     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-02-7A                          \r\nLABEL    = NORMAL MODES FOR SMALLMIL, RUN 7, PHASE 2                            \r\nMETHOD   = 10                                                                   \r\nMPC      = 21                                                                   \r\nVECTOR   = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nEIGR    10      INV     .0      .1      1       1                       PEIG    \r\n+EIG    MAX                                                                     \r\nMPCS    21      DHUB    108     1       -1.0                            +MPC1   \r\n+MPC1           DROOT1  6       2       .94868336       1       .3162278        \r\nMPCS    21      DHUB    108     2       -1.0                            +MPC2   \r\n+MPC2           DROOT1  6       1       -.9486836       2       .3162278        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02027a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT NO. 2, Inertia Relief Analysis\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 1, (2-2-1)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 2, (2-2-2)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 3, (2-2-3)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 4, (2-2-4)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 5, (2-2-5)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 6, (2-2-6)\r\n$        Windmill Panel Sections for Automated Multi-stage Substructuring,\r\n$                                 Run 7, (2-2-7)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the fully automated multi-stage substructuring \r\n$ capability of NASTRAN. \r\n$ \r\n$ Of the total of seven runs involved, three Phase 1 runs are made, one for each \r\n$ basic substructure, using Rigid Format 2 in order to generate mass matrices. \r\n$ The combination and reduction to the final model is accomplished in seven \r\n$ distinct Phase 2 steps, plus eight equivalence operations. A static solution, \r\n$ Rigid Format 1, is obtained for each of the three load cases specified. Run 4 \r\n$ produces actual plot output. Runs 5 and 6 demonstrate the Phase 3 data \r\n$ recovery for two of the basic substructures. \r\n$ \r\n$ A seventh run is made to extract normal modes using Rigid Format 3 for the \r\n$ reduced structure. \r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      r   = 50.0 in       (outer radius)\r\n$       o\r\n$ \r\n$      r   = 10.0 in       (inner radius)\r\n$       i\r\n$ \r\n$      t   =  0.1 in       (plate thickness)\r\n$ \r\n$                    6\r\n$      E   =  10 x 10  psi (modulus of elasticity)\r\n$   \r\n$      v   =   0.25        (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$      All points u  = theta  = theta  = theta  = 0 (permanent constraint)\r\n$                  z        x        y        z\r\n$ \r\n$      u  = 0 at HUB grid points 13, 19, 37, 43\r\n$       x\r\n$ \r\n$      u  = 0 at HUB grid points 1, 7, 25, 31\r\n$       y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$      First Subcase:  centrifugal force due to unit angular velocity\r\n$ \r\n$      Second Subcase: unsymmetric load - right panel in tension, bottom panel \r\n$                      in compression, F = 100 uniformly distributed over each \r\n$                      loaded edge \r\n$ \r\n$      Third Subcase:  F = 1.0 applied at HUB grid point 4 inward radially\r\n$ \r\n$ 4. Substructuring Parameters:\r\n$ \r\n$      SOF(1) SOF0,950 $ CDC\r\n$ \r\n$      SOF(1) = FT18,950 $ IBM\r\n$ \r\n$      SOF(1) = INPT,950 $ UNIVAC\r\n$ \r\n$      PASSWORD = DEMO\r\n$ \r\n$      OPTIONS = K, M, P\r\n$ \r\n$ C. Theory\r\n$ \r\n$ This problem is designed to illustrate the use of automated multi-stage \r\n$ substructuring. No closed form solution is available. Results are compared \r\n$ with non-substructured NASTRAN solutions. \r\n$ \r\n$ D. Results\r\n$ \r\n$ The solutions of the final reduced structure using both Rigid Format 1 and \r\n$ Rigid Format 3 are in excellent agreement with the non-substructured \r\n$ solutions. Displacements at selected points and eigenvalues are compared in \r\n$ Table 1. The values presented were obtained from executions on IBM equlpnent. \r\n$ Values obtained from CDC and UNIVAC are of the same order of magnitude with \r\n$ slight differences attributable to round-off of very snall numbers. \r\n$ \r\n$             Table 1. Comparison of Displacements at Selected Points\r\n$                           for Windmill Panel Problem\r\n$ -----------------------------------------------------------------------------\r\n$                          Subcase 1                     Subcase 2\r\n$ -----------------------------------------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure   Single Step    Substructure\r\n$ -----------------------------------------------------------------------------\r\n$ VANE1/1/X        -5.6x10^-14    -5.2x10^-14    -2.19155x10^-5 -2.19155x10^-5\r\n$ \r\n$ VANE1/1/Y        -6.88493x10^-7 -6.88488x10^-7 8.6081x10^-1   8.6081x10^-1\r\n$ \r\n$ RVANE1/1/X       4.4x10^-14     2.1x10^-13     2.19155x10^-5  2.19155x10^-5\r\n$ \r\n$ RVANE1/1/Y       -6.88493x10^-7 -6.88488x10^-7 3.85998x10^-4  -3.85997x10^-4\r\n$ \r\n$ HUB/5/X          -3.5x10^-14    -4.8x10^-14    1.04757x10^-5  1.04757x10^-5\r\n$ \r\n$ HUB/5/Y          6.70493x10^-8  6.70488x10^-8  -6.43969x10^-7 -6.4397x10^-7\r\n$ ------------------------------------------------------------------------------\r\n$ Frequency, cps       -               -               -              -\r\n$ ------------------------------------------------------------------------------\r\n$ \r\n$ ----------------------------------------------\r\n$                       Eigenvector #1          \r\n$ ----------------------------------------------\r\n$ Name/Point/Comp  Single Step    Substructure  \r\n$ ----------------------------------------------\r\n$ VANE1/1/X        1.000000       -.999752\r\n$                                               \r\n$ VANE1/1/Y        -8.612x10^-9   3.297x10^-7\r\n$                                               \r\n$ RVANE1/1/X       1.000000       -.999748\r\n$                                               \r\n$ RVANE1/1/Y       1.264x10^-9    -1.688x10^-7\r\n$                                               \r\n$ HUB/5/X          -1.46899x10^-1 1.46636x10^-1\r\n$                                               \r\n$ HUB/5/Y          -3.140x10^-9   -7.8304x10^-6\r\n$ ----------------------------------------------\r\n$ Frequency, cps   288.3          288.3\r\n$ ----------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02031a.inp",
    "content": "ID    D02031A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   2,0                                                                       \r\nTIME  15                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE1                                                             \r\nPASSWORD = MDLSYN                                                               \r\n  SOF(1) = FT19,500,NEW $ DEC VAX                                               \r\n    NAME = ABASIC                                                               \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-1A                          \r\nLABEL    = SUBSTRUCTURE 1, RUN 1, PHASE 1, RF 2                                 \r\n    LOAD = 980 $ 1 G ACCELERATION IN -Y DIRECTION                               \r\nBEGIN BULK                                                                      \r\nCROD    1       1       1       2                                               \r\nCROD    2       1       2       3                                               \r\nCROD    11      1       11      12                                              \r\nCROD    12      1       12      13                                              \r\nCROD    21      1       21      22                                              \r\nCROD    22      1       22      23                                              \r\nCROD    31      1       31      32                                              \r\nCROD    32      1       32      33                                              \r\nCROD    41      1       41      42                                              \r\nCROD    42      1       42      43                                              \r\nCROD    51      1       51      52                                              \r\nCROD    52      1       52      53                                              \r\nCROD    111     1       1       11                                              \r\nCROD    112     1       2       12                                              \r\nCROD    113     1       3       13                                              \r\nCROD    121     1       11      21                                              \r\nCROD    122     1       12      22                                              \r\nCROD    123     1       13      23                                              \r\nCROD    131     1       21      31                                              \r\nCROD    132     1       22      32                                              \r\nCROD    133     1       23      33                                              \r\nCROD    141     1       31      41                                              \r\nCROD    142     1       32      42                                              \r\nCROD    143     1       33      43                                              \r\nCROD    151     1       41      51                                              \r\nCROD    152     1       42      52                                              \r\nCROD    153     1       43      53                                              \r\nCROD    211     1       2       11                                              \r\nCROD    212     1       2       13                                              \r\nCROD    221     1       12      21                                              \r\nCROD    222     1       12      23                                              \r\nCROD    231     1       22      31                                              \r\nCROD    232     1       22      33                                              \r\nCROD    241     1       32      41                                              \r\nCROD    242     1       32      43                                              \r\nCROD    251     1       42      51                                              \r\nCROD    252     1       42      53                                              \r\nGRAV    980             980.0   .0      -1.0    .0                              \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      -30.0   .0                                      \r\nGRID    2               .0      .0      .0                                      \r\nGRID    3               .0      30.0    .0                                      \r\nGRID    11              40.0    -30.0   .0                                      \r\nGRID    12              40.0    .0      .0                                      \r\nGRID    13              40.0    30.0    .0                                      \r\nGRID    21              80.0    -30.0   .0                                      \r\nGRID    22              80.0    .0      .0                                      \r\nGRID    23              80.0    30.0    .0                                      \r\nGRID    31              120.0   -30.0   .0                                      \r\nGRID    32              120.0   .0      .0                                      \r\nGRID    33              120.0   30.0    .0                                      \r\nGRID    41              160.0   -30.0   .0                                      \r\nGRID    42              160.0   .0      .0                                      \r\nGRID    43              160.0   30.0    .0                                      \r\nGRID    51              200.0   -30.0   .0                                      \r\nGRID    52              200.0   .0      .0                                      \r\nGRID    53              200.0   30.0    .0                                      \r\nMAT1    1       10.0+6          .3      2.5-3                                   \r\nPROD    1       1       .3                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02031a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT No. 2, Inertia Relief Analysis\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1)\r\n$     Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2)\r\n$     Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3)\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the automated substructuring and modal synthesis\r\n$ procedures which provide accurate, efficient solutions in dynamic analysis.\r\n$ Each component substructure is reduced to modal and boundary degrees of\r\n$ freedom prior to the substructure combine operation. The combination\r\n$ structure, formulated in terms of the component modes, is also reduced to\r\n$ modal degrees of freedom for solution by the transient analysis rigid format\r\n$ (Reference 37).\r\n$ \r\n$ Four separate runs are performed.\r\n$ \r\n$      In Runs 1 and 2, the substructuring Phase 1 operations formulate the\r\n$      finite element matrices and basic static loads using Rigid Format 2.\r\n$ \r\n$      In Run 3, the basic substructures are reduced to modal coordinates and\r\n$      combined. Another modal synthesis reduction is performed on the\r\n$      combination and the resulting eigenvectors are printed.\r\n$ \r\n$      In Run 4, the second Phase 2 operation is performed on the reduced\r\n$      structure with the SOLVE operation using Rigid Format 9 (transient\r\n$      analysis). The transient output data is transformed back to the original\r\n$      grid point definitions with the RECOVER command.\r\n$ \r\n$ B. Input\r\n$ \r\n$ All members are rod elements. All grid points are constrained to include only\r\n$ in-plane displacements. The basic input and the substructure control data are\r\n$ described below.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a = 40                   (typical frame width)\r\n$ \r\n$    h = 30                   (typical frame height)\r\n$ \r\n$    A = 0.3                  (cross section of members)\r\n$ \r\n$          6\r\n$    E = 10                   (Young's Modulus)\r\n$ \r\n$                -3\r\n$    P = 2.5 x 10             (density)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u  = theta  = theta  = theta  = 0 all points\r\n$     z        x        y        z\r\n$ \r\n$    (Boundary conditions are applied only during solution.)\r\n$ \r\n$ 3. Loads:\r\n$             3\r\n$    P    = 10                load on substructure BBASIC\r\n$     y42\r\n$ \r\n$ 4. Transient Loads:\r\n$ \r\n$    U    = .143  @t = 0      initial condition\r\n$     y42\r\n$ \r\n$             3\r\n$    P    = 10   0 < t < .12  load history\r\n$     y42\r\n$ \r\n$ 5. Substructuring Parameters:\r\n$ \r\n$    SOF(1) = SOF1,500 $ CDC\r\n$ \r\n$    SOF(1) = FT19,500 $ IBM\r\n$ \r\n$    SOF(1) = INP1,500 $ UNIVAC\r\n$ \r\n$    PASSWORD = MDLSYN\r\n$ \r\n$ C. Results\r\n$ \r\n$ For assessing the accuracy of the modal synthesis, the whole structure is run\r\n$ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs\r\n$ procedure eliminates the effects of finite element errors common to both\r\n$ methods.\r\n$ \r\n$ Natural frequencies for the combined system are shown in Table 1 along with\r\n$ the error ratios of the difference. Note that the lowest frequency component\r\n$ mode omitted from the analysis was 197.2 Hz. Below this frequency, the\r\n$ resulting modes are excellent.\r\n$ \r\n$      Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom\r\n$                                  Mode Synthesis\r\n$ \r\n$                   -------------------------------------------\r\n$                   Mode No.   Frequency (Hz)   % Difference\r\n$                                               From Full Model\r\n$                   -------------------------------------------\r\n$                      1            3.596           .0085\r\n$                      2           17.564           .0012\r\n$                      3           28.492           .0639\r\n$                      4           39.507           .0011\r\n$                      5           61.099           .0051\r\n$                      6           80.280           .0066\r\n$                      7           84.454           .379\r\n$                      8           98.898           .039\r\n$                      9          111.764           .018\r\n$                     10          123.348           .345\r\n$                     11          127.556           .548\r\n$                     12          130.359           .155\r\n$                     13          134.922          2.220\r\n$                     14          153.606           .174\r\n$                     15          162.019          2.98\r\n$                     16          180.321          5.27\r\n$                     17          200.702         14.89\r\n$                   -------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 37. Herting, D. N.: \"Accuracy of Results with NASTRAN Modal Synthesis\", NASA\r\n$     CP-2062, October, 1978, pp. 389-404.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02032a.inp",
    "content": "ID    D02032A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   2,0                                                                       \r\nTIME  30                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE1                                                             \r\nPASSWORD = MDLSYN                                                               \r\nSOF(1)   = FT19,500 $ DEC VAX                                                   \r\nNAME     = BBASIC                                                               \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-2A                          \r\nLABEL    = SUBSTRUCTURE 2, RUN 2, PHASE 1, RF 2                                 \r\nLOAD     = 980 $ 1 G ACCELERATION IN -Y DIRECTION                               \r\nBEGIN BULK                                                                      \r\nCROD    1       1       1       2                                               \r\nCROD    2       1       2       3                                               \r\nCROD    11      1       11      12                                              \r\nCROD    12      1       12      13                                              \r\nCROD    21      1       21      22                                              \r\nCROD    22      1       22      23                                              \r\nCROD    31      1       31      32                                              \r\nCROD    32      1       32      33                                              \r\nCROD    41      1       41      42                                              \r\nCROD    42      1       42      43                                              \r\nCROD    111     1       1       11                                              \r\nCROD    112     1       2       12                                              \r\nCROD    113     1       3       13                                              \r\nCROD    121     1       11      21                                              \r\nCROD    122     1       12      22                                              \r\nCROD    123     1       13      23                                              \r\nCROD    131     1       21      31                                              \r\nCROD    132     1       22      32                                              \r\nCROD    133     1       23      33                                              \r\nCROD    141     1       31      41                                              \r\nCROD    142     1       32      42                                              \r\nCROD    143     1       33      43                                              \r\nCROD    211     1       2       11                                              \r\nCROD    212     1       2       13                                              \r\nCROD    221     1       12      21                                              \r\nCROD    222     1       12      23                                              \r\nCROD    231     1       22      31                                              \r\nCROD    232     1       22      33                                              \r\nCROD    241     1       32      41                                              \r\nCROD    242     1       32      43                                              \r\nGRAV    980             980.0   .0      -1.0    .0                              \r\nGRDSET                                                  3456                    \r\nGRID    1               30.0    0.0     0.0                                     \r\nGRID    2               0.0     0.0     0.0                                     \r\nGRID    3               -30.0   0.0     0.0                                     \r\nGRID    11              30.0    40.0    0.0                                     \r\nGRID    12              0.0     40.0    0.0                                     \r\nGRID    13              -30.0   40.0    0.0                                     \r\nGRID    21              30.0    80.0    0.0                                     \r\nGRID    22              0.0     80.0    0.0                                     \r\nGRID    23              -30.0   80.0    0.0                                     \r\nGRID    31              30.0    120.0   0.0                                     \r\nGRID    32              0.0     120.0   0.0                                     \r\nGRID    33              -30.0   120.0   0.0                                     \r\nGRID    41              30.0    160.0   0.0                                     \r\nGRID    42              0.0     160.0   0.0                                     \r\nGRID    43              -30.0   160.0   0.0                                     \r\nMAT1    1       10.0+6          .3      2.5-3                                   \r\nPROD    1       1       .3                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02032a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT No. 2, Inertia Relief Analysis\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1)\r\n$     Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2)\r\n$     Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3)\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the automated substructuring and modal synthesis\r\n$ procedures which provide accurate, efficient solutions in dynamic analysis.\r\n$ Each component substructure is reduced to modal and boundary degrees of\r\n$ freedom prior to the substructure combine operation. The combination\r\n$ structure, formulated in terms of the component modes, is also reduced to\r\n$ modal degrees of freedom for solution by the transient analysis rigid format\r\n$ (Reference 37).\r\n$ \r\n$ Four separate runs are performed.\r\n$ \r\n$      In Runs 1 and 2, the substructuring Phase 1 operations formulate the\r\n$      finite element matrices and basic static loads using Rigid Format 2.\r\n$ \r\n$      In Run 3, the basic substructures are reduced to modal coordinates and\r\n$      combined. Another modal synthesis reduction is performed on the\r\n$      combination and the resulting eigenvectors are printed.\r\n$ \r\n$      In Run 4, the second Phase 2 operation is performed on the reduced\r\n$      structure with the SOLVE operation using Rigid Format 9 (transient\r\n$      analysis). The transient output data is transformed back to the original\r\n$      grid point definitions with the RECOVER command.\r\n$ \r\n$ B. Input\r\n$ \r\n$ All members are rod elements. All grid points are constrained to include only\r\n$ in-plane displacements. The basic input and the substructure control data are\r\n$ described below.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a = 40                   (typical frame width)\r\n$ \r\n$    h = 30                   (typical frame height)\r\n$ \r\n$    A = 0.3                  (cross section of members)\r\n$ \r\n$          6\r\n$    E = 10                   (Young's Modulus)\r\n$ \r\n$                -3\r\n$    P = 2.5 x 10             (density)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u  = theta  = theta  = theta  = 0 all points\r\n$     z        x        y        z\r\n$ \r\n$    (Boundary conditions are applied only during solution.)\r\n$ \r\n$ 3. Loads:\r\n$             3\r\n$    P    = 10                load on substructure BBASIC\r\n$     y42\r\n$ \r\n$ 4. Transient Loads:\r\n$ \r\n$    U    = .143  @t = 0      initial condition\r\n$     y42\r\n$ \r\n$             3\r\n$    P    = 10   0 < t < .12  load history\r\n$     y42\r\n$ \r\n$ 5. Substructuring Parameters:\r\n$ \r\n$    SOF(1) = SOF1,500 $ CDC\r\n$ \r\n$    SOF(1) = FT19,500 $ IBM\r\n$ \r\n$    SOF(1) = INP1,500 $ UNIVAC\r\n$ \r\n$    PASSWORD = MDLSYN\r\n$ \r\n$ C. Results\r\n$ \r\n$ For assessing the accuracy of the modal synthesis, the whole structure is run\r\n$ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs\r\n$ procedure eliminates the effects of finite element errors common to both\r\n$ methods.\r\n$ \r\n$ Natural frequencies for the combined system are shown in Table 1 along with\r\n$ the error ratios of the difference. Note that the lowest frequency component\r\n$ mode omitted from the analysis was 197.2 Hz. Below this frequency, the\r\n$ resulting modes are excellent.\r\n$ \r\n$      Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom\r\n$                                  Mode Synthesis\r\n$ \r\n$                   -------------------------------------------\r\n$                   Mode No.   Frequency (Hz)   % Difference\r\n$                                               From Full Model\r\n$                   -------------------------------------------\r\n$                      1            3.596           .0085\r\n$                      2           17.564           .0012\r\n$                      3           28.492           .0639\r\n$                      4           39.507           .0011\r\n$                      5           61.099           .0051\r\n$                      6           80.280           .0066\r\n$                      7           84.454           .379\r\n$                      8           98.898           .039\r\n$                      9          111.764           .018\r\n$                     10          123.348           .345\r\n$                     11          127.556           .548\r\n$                     12          130.359           .155\r\n$                     13          134.922          2.220\r\n$                     14          153.606           .174\r\n$                     15          162.019          2.98\r\n$                     16          180.321          5.27\r\n$                     17          200.702         14.89\r\n$                   -------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 37. Herting, D. N.: \"Accuracy of Results with NASTRAN Modal Synthesis\", NASA\r\n$     CP-2062, October, 1978, pp. 389-404.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02033a.inp",
    "content": "ID    D02033A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   3,0                                                                       \r\nTIME  25                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE2                                                             \r\nPASSWORD = MDLSYN                                                               \r\nSOF(1)   = FT19,500 $ DEC VAX                                                   \r\nOPTIONS K,M,P                                                                   \r\nSOFPRINT TOC                                                                    \r\nMREDUCE ABASIC                                                                  \r\n NAME MA                                                                        \r\n BOUNDARY 5                                                                     \r\n FIXED 5                                                                        \r\n METHOD 9                                                                       \r\n OUTPUT 1,5,6,9,10                                                              \r\nSOFPRINT TOC                                                                    \r\nMREDUCE BBASIC                                                                  \r\n NAME MB                                                                        \r\n BOUNDARY 4                                                                     \r\n FIXED 4                                                                        \r\n METHOD 9                                                                       \r\n OUTPUT 1,5,6,9,10                                                              \r\nSOFPRINT TOC                                                                    \r\nCOMBINE MA,MB                                                                   \r\n NAME MCOMB                                                                     \r\n TOLERANCE 0.001                                                                \r\n OUTPUT 2,7,12                                                                  \r\n COMPONENT MB                                                                   \r\n TRANSFORM 40                                                                   \r\nSOFPRINT TOC                                                                    \r\nMREDUCE MCOMB                                                                   \r\n NAME RTRUSS                                                                    \r\n BOUNDARY 42                                                                    \r\n FIXED 9                                                                        \r\n METHOD 90                                                                      \r\n NMAX 18                                                                        \r\n OUTPUT 1,5,6,9,10                                                              \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-3A                          \r\nLABEL    = MODAL REDUCE, COMBINE, MODAL RECOVERY, RUN 3, PHASE 2, RF 3          \r\n$ USE 7 MODES PER COMPONENT AND 18 MODES OF COMBINATION                         \r\nBEGIN BULK                                                                      \r\nBDYC    4       BBASIC  2                                                       \r\nBDYC    5       ABASIC  1                                                       \r\nBDYC    9       ABASIC  2                                                       \r\nBDYC    42      ABASIC  2       BBASIC  42                                      \r\nBDYS1   1       12      1       2       3       51      52      53              \r\nBDYS1   2       12      1       2       3                                       \r\nBDYS1   42      2       2                                                       \r\nEIGR    9       GIV     .0      10000.0         7                       +E1     \r\n+E1     MAX                                                                     \r\nEIGR    90      GIV     .0      10000.0         20                      +E2     \r\n+E2     MAX                                                                     \r\nTRANS   40              200.0   .0      .0      200.0   .0      1.0     +T1     \r\n+T1     200.0   -100.0  .0                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02033a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT No. 2, Inertia Relief Analysis\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1)\r\n$     Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2)\r\n$     Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3)\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the automated substructuring and modal synthesis\r\n$ procedures which provide accurate, efficient solutions in dynamic analysis.\r\n$ Each component substructure is reduced to modal and boundary degrees of\r\n$ freedom prior to the substructure combine operation. The combination\r\n$ structure, formulated in terms of the component modes, is also reduced to\r\n$ modal degrees of freedom for solution by the transient analysis rigid format\r\n$ (Reference 37).\r\n$ \r\n$ Four separate runs are performed.\r\n$ \r\n$      In Runs 1 and 2, the substructuring Phase 1 operations formulate the\r\n$      finite element matrices and basic static loads using Rigid Format 2.\r\n$ \r\n$      In Run 3, the basic substructures are reduced to modal coordinates and\r\n$      combined. Another modal synthesis reduction is performed on the\r\n$      combination and the resulting eigenvectors are printed.\r\n$ \r\n$      In Run 4, the second Phase 2 operation is performed on the reduced\r\n$      structure with the SOLVE operation using Rigid Format 9 (transient\r\n$      analysis). The transient output data is transformed back to the original\r\n$      grid point definitions with the RECOVER command.\r\n$ \r\n$ B. Input\r\n$ \r\n$ All members are rod elements. All grid points are constrained to include only\r\n$ in-plane displacements. The basic input and the substructure control data are\r\n$ described below.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a = 40                   (typical frame width)\r\n$ \r\n$    h = 30                   (typical frame height)\r\n$ \r\n$    A = 0.3                  (cross section of members)\r\n$ \r\n$          6\r\n$    E = 10                   (Young's Modulus)\r\n$ \r\n$                -3\r\n$    P = 2.5 x 10             (density)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u  = theta  = theta  = theta  = 0 all points\r\n$     z        x        y        z\r\n$ \r\n$    (Boundary conditions are applied only during solution.)\r\n$ \r\n$ 3. Loads:\r\n$             3\r\n$    P    = 10                load on substructure BBASIC\r\n$     y42\r\n$ \r\n$ 4. Transient Loads:\r\n$ \r\n$    U    = .143  @t = 0      initial condition\r\n$     y42\r\n$ \r\n$             3\r\n$    P    = 10   0 < t < .12  load history\r\n$     y42\r\n$ \r\n$ 5. Substructuring Parameters:\r\n$ \r\n$    SOF(1) = SOF1,500 $ CDC\r\n$ \r\n$    SOF(1) = FT19,500 $ IBM\r\n$ \r\n$    SOF(1) = INP1,500 $ UNIVAC\r\n$ \r\n$    PASSWORD = MDLSYN\r\n$ \r\n$ C. Results\r\n$ \r\n$ For assessing the accuracy of the modal synthesis, the whole structure is run\r\n$ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs\r\n$ procedure eliminates the effects of finite element errors common to both\r\n$ methods.\r\n$ \r\n$ Natural frequencies for the combined system are shown in Table 1 along with\r\n$ the error ratios of the difference. Note that the lowest frequency component\r\n$ mode omitted from the analysis was 197.2 Hz. Below this frequency, the\r\n$ resulting modes are excellent.\r\n$ \r\n$      Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom\r\n$                                  Mode Synthesis\r\n$ \r\n$                   -------------------------------------------\r\n$                   Mode No.   Frequency (Hz)   % Difference\r\n$                                               From Full Model\r\n$                   -------------------------------------------\r\n$                      1            3.596           .0085\r\n$                      2           17.564           .0012\r\n$                      3           28.492           .0639\r\n$                      4           39.507           .0011\r\n$                      5           61.099           .0051\r\n$                      6           80.280           .0066\r\n$                      7           84.454           .379\r\n$                      8           98.898           .039\r\n$                      9          111.764           .018\r\n$                     10          123.348           .345\r\n$                     11          127.556           .548\r\n$                     12          130.359           .155\r\n$                     13          134.922          2.220\r\n$                     14          153.606           .174\r\n$                     15          162.019          2.98\r\n$                     16          180.321          5.27\r\n$                     17          200.702         14.89\r\n$                   -------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 37. Herting, D. N.: \"Accuracy of Results with NASTRAN Modal Synthesis\", NASA\r\n$     CP-2062, October, 1978, pp. 389-404.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02034a.inp",
    "content": "ID    D02034A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   9,0                                                                       \r\nTIME  40                                                                        \r\nDIAG  23                                                                        \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE2                                                             \r\nPASSWORD = MDLSYN                                                               \r\nSOF(1)   = FT19,500 $ DEC VAX                                                   \r\nOPTIONS K,M,P                                                                   \r\nSOFPRINT TOC                                                                    \r\nSOLVE RTRUSS                                                                    \r\nRECOVER RTRUSS                                                                  \r\nPRINT RTRUSS                                                                    \r\nOLOAD = ALL                                                                     \r\n PRINT ABASIC                                                                   \r\n  UIMPROVE YES                                                                  \r\n  RANGE 0.0,0.41                                                                \r\n  ENERGY ALL                                                                    \r\n PRINT MA                                                                       \r\n PRINT BBASIC                                                                   \r\n  UIMPROVE YES                                                                  \r\n  RANGE 0.0,0.41                                                                \r\n  ENERGY ALL                                                                    \r\n PRINT MB                                                                       \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-4A                          \r\nLABEL    = SOLVE AND RECOVERY, RUN 4, PHASE 2, RF 9                             \r\n   SET 1 = 7 THRU 13                                                            \r\n     SPC = 123                                                                  \r\n   DLOAD = 101                                                                  \r\n      IC = 522                                                                  \r\n   TSTEP = 40                                                                   \r\n   OLOAD = ALL                                                                  \r\n    DISP = ALL                                                                  \r\nSDISP(SORT2) = 1                                                                \r\nBEGIN BULK                                                                      \r\nDAREAS  980     BBASIC  2       2       1.0+3                                   \r\nLOADC   980     1.0     ABASIC  980     1.0                                     \r\nPARAM   G       .05                                                             \r\nPARAM   W3      .01                                                             \r\nSPCS1   123     ABASIC  12      1       2       3                               \r\nTICS    522     BBASIC  2       2       .1                                      \r\nTLOAD2  101     980                     .39     12.0                            \r\nTSTEP   40      40      2.0-2   1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02034a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                   RIGID FORMAT No. 2, Inertia Relief Analysis\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 1, (2-3-1)\r\n$     Truss Dynamic Analysis Using Automated Nodal Synthesis, Run 2, (2-3-2)\r\n$     Truss Dynamic Analysis Using Automated Hodal Synthesis, Run 3, (2-3-3)\r\n$     Truss Dynamic Analysis Using Automated Modal Synthesis, Run 4, (2-3-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the automated substructuring and modal synthesis\r\n$ procedures which provide accurate, efficient solutions in dynamic analysis.\r\n$ Each component substructure is reduced to modal and boundary degrees of\r\n$ freedom prior to the substructure combine operation. The combination\r\n$ structure, formulated in terms of the component modes, is also reduced to\r\n$ modal degrees of freedom for solution by the transient analysis rigid format\r\n$ (Reference 37).\r\n$ \r\n$ Four separate runs are performed.\r\n$ \r\n$      In Runs 1 and 2, the substructuring Phase 1 operations formulate the\r\n$      finite element matrices and basic static loads using Rigid Format 2.\r\n$ \r\n$      In Run 3, the basic substructures are reduced to modal coordinates and\r\n$      combined. Another modal synthesis reduction is performed on the\r\n$      combination and the resulting eigenvectors are printed.\r\n$ \r\n$      In Run 4, the second Phase 2 operation is performed on the reduced\r\n$      structure with the SOLVE operation using Rigid Format 9 (transient\r\n$      analysis). The transient output data is transformed back to the original\r\n$      grid point definitions with the RECOVER command.\r\n$ \r\n$ B. Input\r\n$ \r\n$ All members are rod elements. All grid points are constrained to include only\r\n$ in-plane displacements. The basic input and the substructure control data are\r\n$ described below.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a = 40                   (typical frame width)\r\n$ \r\n$    h = 30                   (typical frame height)\r\n$ \r\n$    A = 0.3                  (cross section of members)\r\n$ \r\n$          6\r\n$    E = 10                   (Young's Modulus)\r\n$ \r\n$                -3\r\n$    P = 2.5 x 10             (density)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u  = theta  = theta  = theta  = 0 all points\r\n$     z        x        y        z\r\n$ \r\n$    (Boundary conditions are applied only during solution.)\r\n$ \r\n$ 3. Loads:\r\n$             3\r\n$    P    = 10                load on substructure BBASIC\r\n$     y42\r\n$ \r\n$ 4. Transient Loads:\r\n$ \r\n$    U    = .143  @t = 0      initial condition\r\n$     y42\r\n$ \r\n$             3\r\n$    P    = 10   0 < t < .12  load history\r\n$     y42\r\n$ \r\n$ 5. Substructuring Parameters:\r\n$ \r\n$    SOF(1) = SOF1,500 $ CDC\r\n$ \r\n$    SOF(1) = FT19,500 $ IBM\r\n$ \r\n$    SOF(1) = INP1,500 $ UNIVAC\r\n$ \r\n$    PASSWORD = MDLSYN\r\n$ \r\n$ C. Results\r\n$ \r\n$ For assessing the accuracy of the modal synthesis, the whole structure is run\r\n$ in Rigid Format 3 to determine natural frequency and mode shapes. ThIs\r\n$ procedure eliminates the effects of finite element errors common to both\r\n$ methods.\r\n$ \r\n$ Natural frequencies for the combined system are shown in Table 1 along with\r\n$ the error ratios of the difference. Note that the lowest frequency component\r\n$ mode omitted from the analysis was 197.2 Hz. Below this frequency, the\r\n$ resulting modes are excellent.\r\n$ \r\n$      Table 1. Natural Frequencies and Differences for 20 Degrees of Freedom\r\n$                                  Mode Synthesis\r\n$ \r\n$                   -------------------------------------------\r\n$                   Mode No.   Frequency (Hz)   % Difference\r\n$                                               From Full Model\r\n$                   -------------------------------------------\r\n$                      1            3.596           .0085\r\n$                      2           17.564           .0012\r\n$                      3           28.492           .0639\r\n$                      4           39.507           .0011\r\n$                      5           61.099           .0051\r\n$                      6           80.280           .0066\r\n$                      7           84.454           .379\r\n$                      8           98.898           .039\r\n$                      9          111.764           .018\r\n$                     10          123.348           .345\r\n$                     11          127.556           .548\r\n$                     12          130.359           .155\r\n$                     13          134.922          2.220\r\n$                     14          153.606           .174\r\n$                     15          162.019          2.98\r\n$                     16          180.321          5.27\r\n$                     17          200.702         14.89\r\n$                   -------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 37. Herting, D. N.: \"Accuracy of Results with NASTRAN Modal Synthesis\", NASA\r\n$     CP-2062, October, 1978, pp. 389-404.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d02035a.inp",
    "content": "$ NASTRAN FILES=INP1                                                            \r\nID    D02035A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   9,0                                                                       \r\nTIME  40                                                                        \r\nDIAG  14,23                                                                     \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE3                                                             \r\nPASSWORD = MDLSYN                                                               \r\n  SOF(1) = FT19,500 $ DEC VAX                                                   \r\nBRECOVER  ABASIC                                                                \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-5A                          \r\nLABEL    = RECOVER ABASIC , RUN 5, PHASE 3, RF 9                                \r\nMAXLINES = 100000                                                               \r\nIC   = 521                                                                      \r\nTSTEP= 40                                                                       \r\nLOAD = 980                                                                      \r\nDISP = ALL                                                                      \r\nELFO = ALL                                                                      \r\nSTRE = ALL                                                                      \r\nBEGIN BULK                                                                      \r\nCROD    1       1       1       2                                               \r\nCROD    2       1       2       3                                               \r\nCROD    11      1       11      12                                              \r\nCROD    12      1       12      13                                              \r\nCROD    21      1       21      22                                              \r\nCROD    22      1       22      23                                              \r\nCROD    31      1       31      32                                              \r\nCROD    32      1       32      33                                              \r\nCROD    41      1       41      42                                              \r\nCROD    42      1       42      43                                              \r\nCROD    51      1       51      52                                              \r\nCROD    52      1       52      53                                              \r\nCROD    111     1       1       11                                              \r\nCROD    112     1       2       12                                              \r\nCROD    113     1       3       13                                              \r\nCROD    121     1       11      21                                              \r\nCROD    122     1       12      22                                              \r\nCROD    123     1       13      23                                              \r\nCROD    131     1       21      31                                              \r\nCROD    132     1       22      32                                              \r\nCROD    133     1       23      33                                              \r\nCROD    141     1       31      41                                              \r\nCROD    142     1       32      42                                              \r\nCROD    143     1       33      43                                              \r\nCROD    151     1       41      51                                              \r\nCROD    152     1       42      52                                              \r\nCROD    153     1       43      53                                              \r\nCROD    211     1       2       11                                              \r\nCROD    212     1       2       13                                              \r\nCROD    221     1       12      21                                              \r\nCROD    222     1       12      23                                              \r\nCROD    231     1       22      31                                              \r\nCROD    232     1       22      33                                              \r\nCROD    241     1       32      41                                              \r\nCROD    242     1       32      43                                              \r\nCROD    251     1       42      51                                              \r\nCROD    252     1       42      53                                              \r\nGRAV    980             980.0   .0      -1.0    .0                              \r\nGRDSET                                                  3456                    \r\nGRID    1               .0      -30.0   .0                                      \r\nGRID    2               .0      .0      .0                                      \r\nGRID    3               .0      30.0    .0                                      \r\nGRID    11              40.0    -30.0   .0                                      \r\nGRID    12              40.0    .0      .0                                      \r\nGRID    13              40.0    30.0    .0                                      \r\nGRID    21              80.0    -30.0   .0                                      \r\nGRID    22              80.0    .0      .0                                      \r\nGRID    23              80.0    30.0    .0                                      \r\nGRID    31              120.0   -30.0   .0                                      \r\nGRID    32              120.0   .0      .0                                      \r\nGRID    33              120.0   30.0    .0                                      \r\nGRID    41              160.0   -30.0   .0                                      \r\nGRID    42              160.0   .0      .0                                      \r\nGRID    43              160.0   30.0    .0                                      \r\nGRID    51              200.0   -30.0   .0                                      \r\nGRID    52              200.0   .0      .0                                      \r\nGRID    53              200.0   30.0    .0                                      \r\nMAT1    1       10.0+6          .3      2.5-3                                   \r\nPARAM   GRDPNT  0                                                               \r\nPROD    1       1       .3                                                      \r\nTIC     521     42      2       .1                                              \r\nTSTEP   40      40      2.0-2   1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d02036a.inp",
    "content": "$ NASTRAN FILES=INP1                                                            \r\nID    D02036A,NASTRAN                                                           \r\nAPP   DISP,SUBS                                                                 \r\nSOL   9,0                                                                       \r\nTIME  40                                                                        \r\nDIAG  14,23                                                                     \r\nCEND                                                                            \r\nSUBSTRUCTURE PHASE3                                                             \r\nPASSWORD = MDLSYN                                                               \r\n  SOF(1) = FT19,500 $ DEC VAX                                                   \r\nBRECOVER BBASIC                                                                 \r\nSOFPRINT TOC                                                                    \r\nENDSUBS                                                                         \r\nTITLE    = TRUSS DYNAMIC ANALYSIS USING AUTOMATED MODAL SYNTHESIS               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D02-03-6A                          \r\nLABEL    = RECOVER BBASIC , RUN 6, PHASE 3, RF 9                                \r\nMAXLINES = 100000                                                               \r\nIC    = 522                                                                     \r\nTSTEP = 40                                                                      \r\nLOAD  = 980                                                                     \r\nDISP  = ALL                                                                     \r\nELFO  = ALL                                                                     \r\nSTRE  = ALL                                                                     \r\nBEGIN BULK                                                                      \r\nCROD    1       1       1       2                                               \r\nCROD    2       1       2       3                                               \r\nCROD    11      1       11      12                                              \r\nCROD    12      1       12      13                                              \r\nCROD    21      1       21      22                                              \r\nCROD    22      1       22      23                                              \r\nCROD    31      1       31      32                                              \r\nCROD    32      1       32      33                                              \r\nCROD    41      1       41      42                                              \r\nCROD    42      1       42      43                                              \r\nCROD    111     1       1       11                                              \r\nCROD    112     1       2       12                                              \r\nCROD    113     1       3       13                                              \r\nCROD    121     1       11      21                                              \r\nCROD    122     1       12      22                                              \r\nCROD    123     1       13      23                                              \r\nCROD    131     1       21      31                                              \r\nCROD    132     1       22      32                                              \r\nCROD    133     1       23      33                                              \r\nCROD    141     1       31      41                                              \r\nCROD    142     1       32      42                                              \r\nCROD    143     1       33      43                                              \r\nCROD    211     1       2       11                                              \r\nCROD    212     1       2       13                                              \r\nCROD    221     1       12      21                                              \r\nCROD    222     1       12      23                                              \r\nCROD    231     1       22      31                                              \r\nCROD    232     1       22      33                                              \r\nCROD    241     1       32      41                                              \r\nCROD    242     1       32      43                                              \r\nGRAV    980             980.0   .0      -1.0    .0                              \r\nGRDSET                                                  3456                    \r\nGRID    1               30.0    0.0     0.0                                     \r\nGRID    2               0.0     0.0     0.0                                     \r\nGRID    3               -30.0   0.0     0.0                                     \r\nGRID    11              30.0    40.0    0.0                                     \r\nGRID    12              0.0     40.0    0.0                                     \r\nGRID    13              -30.0   40.0    0.0                                     \r\nGRID    21              30.0    80.0    0.0                                     \r\nGRID    22              0.0     80.0    0.0                                     \r\nGRID    23              -30.0   80.0    0.0                                     \r\nGRID    31              30.0    120.0   0.0                                     \r\nGRID    32              0.0     120.0   0.0                                     \r\nGRID    33              -30.0   120.0   0.0                                     \r\nGRID    41              30.0    160.0   0.0                                     \r\nGRID    42              0.0     160.0   0.0                                     \r\nGRID    43              -30.0   160.0   0.0                                     \r\nMAT1    1       10.0+6          .3      2.5-3                                   \r\nPARAM   GRDPNT  0                                                               \r\nPROD    1       1       .3                                                      \r\nTIC     522     2       2       .1                                              \r\nTSTEP   40      40      2.0-2   1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03011a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D03011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,1                                                                       \r\nTIME  35                                                                        \r\nCEND                                                                            \r\nTITLE    = VIBRATIONS OF A 10 BY 20 PLATE                                       \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                          \r\n$                                                                               \r\n     SPC = 37                                                                   \r\n  METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS                                  \r\n$              ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)             \r\n$       MODE    M       N       FREQ                                            \r\n$       1       1       1       9.068997E-1                                     \r\n$       2       1       2       2.267249                                        \r\n$       5       1       3       4.534498                                        \r\n$       6       3       1       4.534498                                        \r\n$       7       3       2       5.894848                                        \r\n$       9       1       4       7.708647                                        \r\n$                                                                               \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121          \r\n   SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89,                \r\n           99,100, 110 THRU 121                                                 \r\n   DISPLACEMENTS = 1                                                            \r\n   SPCFORCE = 2                                                                 \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n        SET 1 INCLUDE PLOTEL                                                    \r\n        SET 2 INCLUDE QUAD1                                                     \r\n        MAXIMUM DEFORMATION  1.0                                                \r\n        FIND SCALE, ORIGIN 10                                                   \r\nPTITLE = ALL QUADS IN THE PLATE                                                 \r\nPLOT ORIGIN 10, SET 2, LABELS                                                   \r\nPLOT SET 2,SHRINK .6,NOFIND                                                     \r\nPLOT SET 2,HIDDEN,NOFIND                                                        \r\n        FIND SCALE, ORIGIN 11                                                   \r\nPTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\nPLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       2       THRU    219                                             \r\nCQUAD1  1       23      1       2       13      12      .00                     \r\nCQUAD1  2       23      2       3       14      13      .00                     \r\nCQUAD1  3       23      3       4       15      14      .00                     \r\nCQUAD1  4       23      4       5       16      15      .00                     \r\nCQUAD1  5       23      5       6       17      16      .00                     \r\nCQUAD1  6       23      6       7       18      17      .00                     \r\nCQUAD1  7       23      7       8       19      18      .00                     \r\nCQUAD1  8       23      8       9       20      19      .00                     \r\nCQUAD1  9       23      9       10      21      20      .00                     \r\nCQUAD1  10      23      10      11      22      21      .00                     \r\nCQUAD1  12      23      12      13      24      23      .00                     \r\nCQUAD1  13      23      13      14      25      24      .00                     \r\nCQUAD1  14      23      14      15      26      25      .00                     \r\nCQUAD1  15      23      15      16      27      26      .00                     \r\nCQUAD1  16      23      16      17      28      27      .00                     \r\nCQUAD1  17      23      17      18      29      28      .00                     \r\nCQUAD1  18      23      18      19      30      29      .00                     \r\nCQUAD1  19      23      19      20      31      30      .00                     \r\nCQUAD1  20      23      20      21      32      31      .00                     \r\nCQUAD1  21      23      21      22      33      32      .00                     \r\nCQUAD1  23      23      23      24      35      34      .00                     \r\nCQUAD1  24      23      24      25      36      35      .00                     \r\nCQUAD1  25      23      25      26      37      36      .00                     \r\nCQUAD1  26      23      26      27      38      37      .00                     \r\nCQUAD1  27      23      27      28      39      38      .00                     \r\nCQUAD1  28      23      28      29      40      39      .00                     \r\nCQUAD1  29      23      29      30      41      40      .00                     \r\nCQUAD1  30      23      30      31      42      41      .00                     \r\nCQUAD1  31      23      31      32      43      42      .00                     \r\nCQUAD1  32      23      32      33      44      43      .00                     \r\nCQUAD1  34      23      34      35      46      45      .00                     \r\nCQUAD1  35      23      35      36      47      46      .00                     \r\nCQUAD1  36      23      36      37      48      47      .00                     \r\nCQUAD1  37      23      37      38      49      48      .00                     \r\nCQUAD1  38      23      38      39      50      49      .00                     \r\nCQUAD1  39      23      39      40      51      50      .00                     \r\nCQUAD1  40      23      40      41      52      51      .00                     \r\nCQUAD1  41      23      41      42      53      52      .00                     \r\nCQUAD1  42      23      42      43      54      53      .00                     \r\nCQUAD1  43      23      43      44      55      54      .00                     \r\nCQUAD1  45      23      45      46      57      56      .00                     \r\nCQUAD1  46      23      46      47      58      57      .00                     \r\nCQUAD1  47      23      47      48      59      58      .00                     \r\nCQUAD1  48      23      48      49      60      59      .00                     \r\nCQUAD1  49      23      49      50      61      60      .00                     \r\nCQUAD1  50      23      50      51      62      61      .00                     \r\nCQUAD1  51      23      51      52      63      62      .00                     \r\nCQUAD1  52      23      52      53      64      63      .00                     \r\nCQUAD1  53      23      53      54      65      64      .00                     \r\nCQUAD1  54      23      54      55      66      65      .00                     \r\nCQUAD1  56      23      56      57      68      67      .00                     \r\nCQUAD1  57      23      57      58      69      68      .00                     \r\nCQUAD1  58      23      58      59      70      69      .00                     \r\nCQUAD1  59      23      59      60      71      70      .00                     \r\nCQUAD1  60      23      60      61      72      71      .00                     \r\nCQUAD1  61      23      61      62      73      72      .00                     \r\nCQUAD1  62      23      62      63      74      73      .00                     \r\nCQUAD1  63      23      63      64      75      74      .00                     \r\nCQUAD1  64      23      64      65      76      75      .00                     \r\nCQUAD1  65      23      65      66      77      76      .00                     \r\nCQUAD1  67      23      67      68      79      78      .00                     \r\nCQUAD1  68      23      68      69      80      79      .00                     \r\nCQUAD1  69      23      69      70      81      80      .00                     \r\nCQUAD1  70      23      70      71      82      81      .00                     \r\nCQUAD1  71      23      71      72      83      82      .00                     \r\nCQUAD1  72      23      72      73      84      83      .00                     \r\nCQUAD1  73      23      73      74      85      84      .00                     \r\nCQUAD1  74      23      74      75      86      85      .00                     \r\nCQUAD1  75      23      75      76      87      86      .00                     \r\nCQUAD1  76      23      76      77      88      87      .00                     \r\nCQUAD1  78      23      78      79      90      89      .00                     \r\nCQUAD1  79      23      79      80      91      90      .00                     \r\nCQUAD1  80      23      80      81      92      91      .00                     \r\nCQUAD1  81      23      81      82      93      92      .00                     \r\nCQUAD1  82      23      82      83      94      93      .00                     \r\nCQUAD1  83      23      83      84      95      94      .00                     \r\nCQUAD1  84      23      84      85      96      95      .00                     \r\nCQUAD1  85      23      85      86      97      96      .00                     \r\nCQUAD1  86      23      86      87      98      97      .00                     \r\nCQUAD1  87      23      87      88      99      98      .00                     \r\nCQUAD1  89      23      89      90      101     100     .00                     \r\nCQUAD1  90      23      90      91      102     101     .00                     \r\nCQUAD1  91      23      91      92      103     102     .00                     \r\nCQUAD1  92      23      92      93      104     103     .00                     \r\nCQUAD1  93      23      93      94      105     104     .00                     \r\nCQUAD1  94      23      94      95      106     105     .00                     \r\nCQUAD1  95      23      95      96      107     106     .00                     \r\nCQUAD1  96      23      96      97      108     107     .00                     \r\nCQUAD1  97      23      97      98      109     108     .00                     \r\nCQUAD1  98      23      98      99      110     109     .00                     \r\nCQUAD1  100     23      100     101     112     111     .00                     \r\nCQUAD1  101     23      101     102     113     112     .00                     \r\nCQUAD1  102     23      102     103     114     113     .00                     \r\nCQUAD1  103     23      103     104     115     114     .00                     \r\nCQUAD1  104     23      104     105     116     115     .00                     \r\nCQUAD1  105     23      105     106     117     116     .00                     \r\nCQUAD1  106     23      106     107     118     117     .00                     \r\nCQUAD1  107     23      107     108     119     118     .00                     \r\nCQUAD1  108     23      108     109     120     119     .00                     \r\nCQUAD1  109     23      109     110     121     120     .00                     \r\nCQUAD1  111     23      111     112     123     122     .00                     \r\nCQUAD1  112     23      112     113     124     123     .00                     \r\nCQUAD1  113     23      113     114     125     124     .00                     \r\nCQUAD1  114     23      114     115     126     125     .00                     \r\nCQUAD1  115     23      115     116     127     126     .00                     \r\nCQUAD1  116     23      116     117     128     127     .00                     \r\nCQUAD1  117     23      117     118     129     128     .00                     \r\nCQUAD1  118     23      118     119     130     129     .00                     \r\nCQUAD1  119     23      119     120     131     130     .00                     \r\nCQUAD1  120     23      120     121     132     131     .00                     \r\nCQUAD1  122     23      122     123     134     133     .00                     \r\nCQUAD1  123     23      123     124     135     134     .00                     \r\nCQUAD1  124     23      124     125     136     135     .00                     \r\nCQUAD1  125     23      125     126     137     136     .00                     \r\nCQUAD1  126     23      126     127     138     137     .00                     \r\nCQUAD1  127     23      127     128     139     138     .00                     \r\nCQUAD1  128     23      128     129     140     139     .00                     \r\nCQUAD1  129     23      129     130     141     140     .00                     \r\nCQUAD1  130     23      130     131     142     141     .00                     \r\nCQUAD1  131     23      131     132     143     142     .00                     \r\nCQUAD1  133     23      133     134     145     144     .00                     \r\nCQUAD1  134     23      134     135     146     145     .00                     \r\nCQUAD1  135     23      135     136     147     146     .00                     \r\nCQUAD1  136     23      136     137     148     147     .00                     \r\nCQUAD1  137     23      137     138     149     148     .00                     \r\nCQUAD1  138     23      138     139     150     149     .00                     \r\nCQUAD1  139     23      139     140     151     150     .00                     \r\nCQUAD1  140     23      140     141     152     151     .00                     \r\nCQUAD1  141     23      141     142     153     152     .00                     \r\nCQUAD1  142     23      142     143     154     153     .00                     \r\nCQUAD1  144     23      144     145     156     155     .00                     \r\nCQUAD1  145     23      145     146     157     156     .00                     \r\nCQUAD1  146     23      146     147     158     157     .00                     \r\nCQUAD1  147     23      147     148     159     158     .00                     \r\nCQUAD1  148     23      148     149     160     159     .00                     \r\nCQUAD1  149     23      149     150     161     160     .00                     \r\nCQUAD1  150     23      150     151     162     161     .00                     \r\nCQUAD1  151     23      151     152     163     162     .00                     \r\nCQUAD1  152     23      152     153     164     163     .00                     \r\nCQUAD1  153     23      153     154     165     164     .00                     \r\nCQUAD1  155     23      155     156     167     166     .00                     \r\nCQUAD1  156     23      156     157     168     167     .00                     \r\nCQUAD1  157     23      157     158     169     168     .00                     \r\nCQUAD1  158     23      158     159     170     169     .00                     \r\nCQUAD1  159     23      159     160     171     170     .00                     \r\nCQUAD1  160     23      160     161     172     171     .00                     \r\nCQUAD1  161     23      161     162     173     172     .00                     \r\nCQUAD1  162     23      162     163     174     173     .00                     \r\nCQUAD1  163     23      163     164     175     174     .00                     \r\nCQUAD1  164     23      164     165     176     175     .00                     \r\nCQUAD1  166     23      166     167     178     177     .00                     \r\nCQUAD1  167     23      167     168     179     178     .00                     \r\nCQUAD1  168     23      168     169     180     179     .00                     \r\nCQUAD1  169     23      169     170     181     180     .00                     \r\nCQUAD1  170     23      170     171     182     181     .00                     \r\nCQUAD1  171     23      171     172     183     182     .00                     \r\nCQUAD1  172     23      172     173     184     183     .00                     \r\nCQUAD1  173     23      173     174     185     184     .00                     \r\nCQUAD1  174     23      174     175     186     185     .00                     \r\nCQUAD1  175     23      175     176     187     186     .00                     \r\nCQUAD1  177     23      177     178     189     188     .00                     \r\nCQUAD1  178     23      178     179     190     189     .00                     \r\nCQUAD1  179     23      179     180     191     190     .00                     \r\nCQUAD1  180     23      180     181     192     191     .00                     \r\nCQUAD1  181     23      181     182     193     192     .00                     \r\nCQUAD1  182     23      182     183     194     193     .00                     \r\nCQUAD1  183     23      183     184     195     194     .00                     \r\nCQUAD1  184     23      184     185     196     195     .00                     \r\nCQUAD1  185     23      185     186     197     196     .00                     \r\nCQUAD1  186     23      186     187     198     197     .00                     \r\nCQUAD1  188     23      188     189     200     199     .00                     \r\nCQUAD1  189     23      189     190     201     200     .00                     \r\nCQUAD1  190     23      190     191     202     201     .00                     \r\nCQUAD1  191     23      191     192     203     202     .00                     \r\nCQUAD1  192     23      192     193     204     203     .00                     \r\nCQUAD1  193     23      193     194     205     204     .00                     \r\nCQUAD1  194     23      194     195     206     205     .00                     \r\nCQUAD1  195     23      195     196     207     206     .00                     \r\nCQUAD1  196     23      196     197     208     207     .00                     \r\nCQUAD1  197     23      197     198     209     208     .00                     \r\nCQUAD1  199     23      199     200     211     210     .00                     \r\nCQUAD1  200     23      200     201     212     211     .00                     \r\nCQUAD1  201     23      201     202     213     212     .00                     \r\nCQUAD1  202     23      202     203     214     213     .00                     \r\nCQUAD1  203     23      203     204     215     214     .00                     \r\nCQUAD1  204     23      204     205     216     215     .00                     \r\nCQUAD1  205     23      205     206     217     216     .00                     \r\nCQUAD1  206     23      206     207     218     217     .00                     \r\nCQUAD1  207     23      207     208     219     218     .00                     \r\nCQUAD1  208     23      208     209     220     219     .00                     \r\nCQUAD1  210     23      210     211     222     221     .00                     \r\nCQUAD1  211     23      211     212     223     222     .00                     \r\nCQUAD1  212     23      212     213     224     223     .00                     \r\nCQUAD1  213     23      213     214     225     224     .00                     \r\nCQUAD1  214     23      214     215     226     225     .00                     \r\nCQUAD1  215     23      215     216     227     226     .00                     \r\nCQUAD1  216     23      216     217     228     227     .00                     \r\nCQUAD1  217     23      217     218     229     228     .00                     \r\nCQUAD1  218     23      218     219     230     229     .00                     \r\nCQUAD1  219     23      219     220     231     230     .00                     \r\nEIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n+SIMPL-IMAX                                                                     \r\nEIGR    3       INV     .89     1.0     1       3       0               +EIG3-1 \r\n+EIG3-1 MAX                                                                     \r\nEIGR    4       DET     .89     1.0     1       1       0               +EIG4-1 \r\n+EIG4-1 MAX                                                                     \r\nEIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n+EIG5-2 MAX                                                                     \r\nEIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n+EIG6-2 MAX                                                                     \r\nEIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n+EIG7-5 MAX                                                                     \r\nEIGR    8       DET     .89     6.1     5       5       0               +EIG8-5 \r\n+EIG8-5 MAX                                                                     \r\nEIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n+EIG9-10MAX                                                                     \r\nEIGR    10      DET     .89     14.5    5       5       0               +EIG1010\r\n+EIG1010MAX                                                                     \r\nEIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n+EIG1120MAX                                                                     \r\nEIGR    12      DET     .89     29.0    20      20      0               +EIG1220\r\n+EIG1220MAX                                                                     \r\nGRDSET                                                  126                     \r\nGRID    1               .00000  .00000  .00000                                  \r\nGRID    2               1.00000 .00000  .00000                                  \r\nGRID    3               2.00000 .00000  .00000                                  \r\nGRID    4               3.00000 .00000  .00000                                  \r\nGRID    5               4.00000 .00000  .00000                                  \r\nGRID    6               5.00000 .00000  .00000                                  \r\nGRID    7               6.00000 .00000  .00000                                  \r\nGRID    8               7.00000 .00000  .00000                                  \r\nGRID    9               8.00000 .00000  .00000                                  \r\nGRID    10              9.00000 .00000  .00000                                  \r\nGRID    11              10.00000.00000  .00000                                  \r\nGRID    12              .00000  1.00000 .00000                                  \r\nGRID    13              1.00000 1.00000 .00000                                  \r\nGRID    14              2.00000 1.00000 .00000                                  \r\nGRID    15              3.00000 1.00000 .00000                                  \r\nGRID    16              4.00000 1.00000 .00000                                  \r\nGRID    17              5.00000 1.00000 .00000                                  \r\nGRID    18              6.00000 1.00000 .00000                                  \r\nGRID    19              7.00000 1.00000 .00000                                  \r\nGRID    20              8.00000 1.00000 .00000                                  \r\nGRID    21              9.00000 1.00000 .00000                                  \r\nGRID    22              10.000001.00000 .00000                                  \r\nGRID    23              .00000  2.00000 .00000                                  \r\nGRID    24              1.00000 2.00000 .00000                                  \r\nGRID    25              2.00000 2.00000 .00000                                  \r\nGRID    26              3.00000 2.00000 .00000                                  \r\nGRID    27              4.00000 2.00000 .00000                                  \r\nGRID    28              5.00000 2.00000 .00000                                  \r\nGRID    29              6.00000 2.00000 .00000                                  \r\nGRID    30              7.00000 2.00000 .00000                                  \r\nGRID    31              8.00000 2.00000 .00000                                  \r\nGRID    32              9.00000 2.00000 .00000                                  \r\nGRID    33              10.000002.00000 .00000                                  \r\nGRID    34              .00000  3.00000 .00000                                  \r\nGRID    35              1.00000 3.00000 .00000                                  \r\nGRID    36              2.00000 3.00000 .00000                                  \r\nGRID    37              3.00000 3.00000 .00000                                  \r\nGRID    38              4.00000 3.00000 .00000                                  \r\nGRID    39              5.00000 3.00000 .00000                                  \r\nGRID    40              6.00000 3.00000 .00000                                  \r\nGRID    41              7.00000 3.00000 .00000                                  \r\nGRID    42              8.00000 3.00000 .00000                                  \r\nGRID    43              9.00000 3.00000 .00000                                  \r\nGRID    44              10.000003.00000 .00000                                  \r\nGRID    45              .00000  4.00000 .00000                                  \r\nGRID    46              1.00000 4.00000 .00000                                  \r\nGRID    47              2.00000 4.00000 .00000                                  \r\nGRID    48              3.00000 4.00000 .00000                                  \r\nGRID    49              4.00000 4.00000 .00000                                  \r\nGRID    50              5.00000 4.00000 .00000                                  \r\nGRID    51              6.00000 4.00000 .00000                                  \r\nGRID    52              7.00000 4.00000 .00000                                  \r\nGRID    53              8.00000 4.00000 .00000                                  \r\nGRID    54              9.00000 4.00000 .00000                                  \r\nGRID    55              10.000004.00000 .00000                                  \r\nGRID    56              .00000  5.00000 .00000                                  \r\nGRID    57              1.00000 5.00000 .00000                                  \r\nGRID    58              2.00000 5.00000 .00000                                  \r\nGRID    59              3.00000 5.00000 .00000                                  \r\nGRID    60              4.00000 5.00000 .00000                                  \r\nGRID    61              5.00000 5.00000 .00000                                  \r\nGRID    62              6.00000 5.00000 .00000                                  \r\nGRID    63              7.00000 5.00000 .00000                                  \r\nGRID    64              8.00000 5.00000 .00000                                  \r\nGRID    65              9.00000 5.00000 .00000                                  \r\nGRID    66              10.000005.00000 .00000                                  \r\nGRID    67              .00000  6.00000 .00000                                  \r\nGRID    68              1.00000 6.00000 .00000                                  \r\nGRID    69              2.00000 6.00000 .00000                                  \r\nGRID    70              3.00000 6.00000 .00000                                  \r\nGRID    71              4.00000 6.00000 .00000                                  \r\nGRID    72              5.00000 6.00000 .00000                                  \r\nGRID    73              6.00000 6.00000 .00000                                  \r\nGRID    74              7.00000 6.00000 .00000                                  \r\nGRID    75              8.00000 6.00000 .00000                                  \r\nGRID    76              9.00000 6.00000 .00000                                  \r\nGRID    77              10.000006.00000 .00000                                  \r\nGRID    78              .00000  7.00000 .00000                                  \r\nGRID    79              1.00000 7.00000 .00000                                  \r\nGRID    80              2.00000 7.00000 .00000                                  \r\nGRID    81              3.00000 7.00000 .00000                                  \r\nGRID    82              4.00000 7.00000 .00000                                  \r\nGRID    83              5.00000 7.00000 .00000                                  \r\nGRID    84              6.00000 7.00000 .00000                                  \r\nGRID    85              7.00000 7.00000 .00000                                  \r\nGRID    86              8.00000 7.00000 .00000                                  \r\nGRID    87              9.00000 7.00000 .00000                                  \r\nGRID    88              10.000007.00000 .00000                                  \r\nGRID    89              .00000  8.00000 .00000                                  \r\nGRID    90              1.00000 8.00000 .00000                                  \r\nGRID    91              2.00000 8.00000 .00000                                  \r\nGRID    92              3.00000 8.00000 .00000                                  \r\nGRID    93              4.00000 8.00000 .00000                                  \r\nGRID    94              5.00000 8.00000 .00000                                  \r\nGRID    95              6.00000 8.00000 .00000                                  \r\nGRID    96              7.00000 8.00000 .00000                                  \r\nGRID    97              8.00000 8.00000 .00000                                  \r\nGRID    98              9.00000 8.00000 .00000                                  \r\nGRID    99              10.000008.00000 .00000                                  \r\nGRID    100             .00000  9.00000 .00000                                  \r\nGRID    101             1.00000 9.00000 .00000                                  \r\nGRID    102             2.00000 9.00000 .00000                                  \r\nGRID    103             3.00000 9.00000 .00000                                  \r\nGRID    104             4.00000 9.00000 .00000                                  \r\nGRID    105             5.00000 9.00000 .00000                                  \r\nGRID    106             6.00000 9.00000 .00000                                  \r\nGRID    107             7.00000 9.00000 .00000                                  \r\nGRID    108             8.00000 9.00000 .00000                                  \r\nGRID    109             9.00000 9.00000 .00000                                  \r\nGRID    110             10.000009.00000 .00000                                  \r\nGRID    111             .00000  10.00000.00000                                  \r\nGRID    112             1.00000 10.00000.00000                                  \r\nGRID    113             2.00000 10.00000.00000                                  \r\nGRID    114             3.00000 10.00000.00000                                  \r\nGRID    115             4.00000 10.00000.00000                                  \r\nGRID    116             5.00000 10.00000.00000                                  \r\nGRID    117             6.00000 10.00000.00000                                  \r\nGRID    118             7.00000 10.00000.00000                                  \r\nGRID    119             8.00000 10.00000.00000                                  \r\nGRID    120             9.00000 10.00000.00000                                  \r\nGRID    121             10.0000010.00000.00000                                  \r\nGRID    122             .00000  11.00000.00000                                  \r\nGRID    123             1.00000 11.00000.00000                                  \r\nGRID    124             2.00000 11.00000.00000                                  \r\nGRID    125             3.00000 11.00000.00000                                  \r\nGRID    126             4.00000 11.00000.00000                                  \r\nGRID    127             5.00000 11.00000.00000                                  \r\nGRID    128             6.00000 11.00000.00000                                  \r\nGRID    129             7.00000 11.00000.00000                                  \r\nGRID    130             8.00000 11.00000.00000                                  \r\nGRID    131             9.00000 11.00000.00000                                  \r\nGRID    132             10.0000011.00000.00000                                  \r\nGRID    133             .00000  12.00000.00000                                  \r\nGRID    134             1.00000 12.00000.00000                                  \r\nGRID    135             2.00000 12.00000.00000                                  \r\nGRID    136             3.00000 12.00000.00000                                  \r\nGRID    137             4.00000 12.00000.00000                                  \r\nGRID    138             5.00000 12.00000.00000                                  \r\nGRID    139             6.00000 12.00000.00000                                  \r\nGRID    140             7.00000 12.00000.00000                                  \r\nGRID    141             8.00000 12.00000.00000                                  \r\nGRID    142             9.00000 12.00000.00000                                  \r\nGRID    143             10.0000012.00000.00000                                  \r\nGRID    144             .00000  13.00000.00000                                  \r\nGRID    145             1.00000 13.00000.00000                                  \r\nGRID    146             2.00000 13.00000.00000                                  \r\nGRID    147             3.00000 13.00000.00000                                  \r\nGRID    148             4.00000 13.00000.00000                                  \r\nGRID    149             5.00000 13.00000.00000                                  \r\nGRID    150             6.00000 13.00000.00000                                  \r\nGRID    151             7.00000 13.00000.00000                                  \r\nGRID    152             8.00000 13.00000.00000                                  \r\nGRID    153             9.00000 13.00000.00000                                  \r\nGRID    154             10.0000013.00000.00000                                  \r\nGRID    155             .00000  14.00000.00000                                  \r\nGRID    156             1.00000 14.00000.00000                                  \r\nGRID    157             2.00000 14.00000.00000                                  \r\nGRID    158             3.00000 14.00000.00000                                  \r\nGRID    159             4.00000 14.00000.00000                                  \r\nGRID    160             5.00000 14.00000.00000                                  \r\nGRID    161             6.00000 14.00000.00000                                  \r\nGRID    162             7.00000 14.00000.00000                                  \r\nGRID    163             8.00000 14.00000.00000                                  \r\nGRID    164             9.00000 14.00000.00000                                  \r\nGRID    165             10.0000014.00000.00000                                  \r\nGRID    166             .00000  15.00000.00000                                  \r\nGRID    167             1.00000 15.00000.00000                                  \r\nGRID    168             2.00000 15.00000.00000                                  \r\nGRID    169             3.00000 15.00000.00000                                  \r\nGRID    170             4.00000 15.00000.00000                                  \r\nGRID    171             5.00000 15.00000.00000                                  \r\nGRID    172             6.00000 15.00000.00000                                  \r\nGRID    173             7.00000 15.00000.00000                                  \r\nGRID    174             8.00000 15.00000.00000                                  \r\nGRID    175             9.00000 15.00000.00000                                  \r\nGRID    176             10.0000015.00000.00000                                  \r\nGRID    177             .00000  16.00000.00000                                  \r\nGRID    178             1.00000 16.00000.00000                                  \r\nGRID    179             2.00000 16.00000.00000                                  \r\nGRID    180             3.00000 16.00000.00000                                  \r\nGRID    181             4.00000 16.00000.00000                                  \r\nGRID    182             5.00000 16.00000.00000                                  \r\nGRID    183             6.00000 16.00000.00000                                  \r\nGRID    184             7.00000 16.00000.00000                                  \r\nGRID    185             8.00000 16.00000.00000                                  \r\nGRID    186             9.00000 16.00000.00000                                  \r\nGRID    187             10.0000016.00000.00000                                  \r\nGRID    188             .00000  17.00000.00000                                  \r\nGRID    189             1.00000 17.00000.00000                                  \r\nGRID    190             2.00000 17.00000.00000                                  \r\nGRID    191             3.00000 17.00000.00000                                  \r\nGRID    192             4.00000 17.00000.00000                                  \r\nGRID    193             5.00000 17.00000.00000                                  \r\nGRID    194             6.00000 17.00000.00000                                  \r\nGRID    195             7.00000 17.00000.00000                                  \r\nGRID    196             8.00000 17.00000.00000                                  \r\nGRID    197             9.00000 17.00000.00000                                  \r\nGRID    198             10.0000017.00000.00000                                  \r\nGRID    199             .00000  18.00000.00000                                  \r\nGRID    200             1.00000 18.00000.00000                                  \r\nGRID    201             2.00000 18.00000.00000                                  \r\nGRID    202             3.00000 18.00000.00000                                  \r\nGRID    203             4.00000 18.00000.00000                                  \r\nGRID    204             5.00000 18.00000.00000                                  \r\nGRID    205             6.00000 18.00000.00000                                  \r\nGRID    206             7.00000 18.00000.00000                                  \r\nGRID    207             8.00000 18.00000.00000                                  \r\nGRID    208             9.00000 18.00000.00000                                  \r\nGRID    209             10.0000018.00000.00000                                  \r\nGRID    210             .00000  19.00000.00000                                  \r\nGRID    211             1.00000 19.00000.00000                                  \r\nGRID    212             2.00000 19.00000.00000                                  \r\nGRID    213             3.00000 19.00000.00000                                  \r\nGRID    214             4.00000 19.00000.00000                                  \r\nGRID    215             5.00000 19.00000.00000                                  \r\nGRID    216             6.00000 19.00000.00000                                  \r\nGRID    217             7.00000 19.00000.00000                                  \r\nGRID    218             8.00000 19.00000.00000                                  \r\nGRID    219             9.00000 19.00000.00000                                  \r\nGRID    220             10.0000019.00000.00000                                  \r\nGRID    221             .00000  20.00000.00000                                  \r\nGRID    222             1.00000 20.00000.00000                                  \r\nGRID    223             2.00000 20.00000.00000                                  \r\nGRID    224             3.00000 20.00000.00000                                  \r\nGRID    225             4.00000 20.00000.00000                                  \r\nGRID    226             5.00000 20.00000.00000                                  \r\nGRID    227             6.00000 20.00000.00000                                  \r\nGRID    228             7.00000 20.00000.00000                                  \r\nGRID    229             8.00000 20.00000.00000                                  \r\nGRID    230             9.00000 20.00000.00000                                  \r\nGRID    231             10.0000020.00000.00000                                  \r\nMAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n+MAT1   30000.  28000.                                                          \r\nPARAM   GRDPNT  111                                                             \r\nPLOTEL  300     23      1                                                       \r\nPLOTEL  301     1       11              302     11      231                     \r\nPLOTEL  303     231     221             304     221     199                     \r\nPLOTEL  305     199     201             306     201     203                     \r\nPLOTEL  307     203     205             308     205     207                     \r\nPLOTEL  309     207     209             310     187     185                     \r\nPLOTEL  311     185     183             312     183     181                     \r\nPLOTEL  313     181     179             314     179     177                     \r\nPLOTEL  315     199     177             316     177     155                     \r\nPLOTEL  317     155     157             318     157     159                     \r\nPLOTEL  319     159     161             320     161     163                     \r\nPLOTEL  321     163     165             322     143     141                     \r\nPLOTEL  323     141     139             324     139     137                     \r\nPLOTEL  325     137     135             326     135     133                     \r\nPLOTEL  327     155     133             328     133     111                     \r\nPLOTEL  329     111     113             330     113     115                     \r\nPLOTEL  331     115     117             332     117     119                     \r\nPLOTEL  333     119     121             334     99      97                      \r\nPLOTEL  335     97      95              336     95      93                      \r\nPLOTEL  337     93      91              338     91      89                      \r\nPLOTEL  339     111     89              340     89      67                      \r\nPLOTEL  341     67      69              342     69      71                      \r\nPLOTEL  343     71      73              344     73      75                      \r\nPLOTEL  345     75      77              346     55      53                      \r\nPLOTEL  347     53      51              348     51      49                      \r\nPLOTEL  349     49      47              350     47      45                      \r\nPLOTEL  351     67      45              352     45      23                      \r\nPLOTEL  353     23      25              354     25      27                      \r\nPLOTEL  355     27      29              356     29      31                      \r\nPLOTEL  357     31      33              358     9       31                      \r\nPLOTEL  359     31      53              360     53      75                      \r\nPLOTEL  361     75      97              362     97      119                     \r\nPLOTEL  363     119     141             364     141     163                     \r\nPLOTEL  365     163     185             366     185     207                     \r\nPLOTEL  367     207     229             368     227     205                     \r\nPLOTEL  369     205     183             370     183     161                     \r\nPLOTEL  371     161     139             372     139     117                     \r\nPLOTEL  373     117     95              374     95      73                      \r\nPLOTEL  375     73      51              376     51      29                      \r\nPLOTEL  377     29      7               378     5       27                      \r\nPLOTEL  379     27      49              380     49      71                      \r\nPLOTEL  381     71      93              382     93      115                     \r\nPLOTEL  383     115     137             384     137     159                     \r\nPLOTEL  385     159     181             386     181     203                     \r\nPLOTEL  387     203     225             388     223     201                     \r\nPLOTEL  389     201     179             390     179     157                     \r\nPLOTEL  391     157     135             392     135     113                     \r\nPLOTEL  393     113     91              394     91      69                      \r\nPLOTEL  395     69      47              396     47      36                      \r\nPLOTEL  397     36      25              398     25      3                       \r\nPQUAD1  23      2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n+PQUAD1 .5      .0                                                              \r\nSPC1    37      5       1       12      23      34      45      56      +31001H \r\n+31001H 67      78      89      100     111     122     133     144     +31002H \r\n+31002H 155     166     177     188     199     210     221                     \r\nSPC1    37      34      11      22      33      44      55      66      +11001H \r\n+11001H 77      88      99      110     121     132     143     154     +11002H \r\n+11002H 165     176     187     198     209     220     231                     \r\nSPC1    37      35      1       2       3       4       5       6       +41001H \r\n+41001H 7       8       9       10      11                                      \r\nSPC1    37      35      221     222     223     224     225     226     +21001H \r\n+21001H 227     228     229     230     231                                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$                       Vibration of a 10x20 Plate (3-1-1)\r\n$                       Vibration of a 20x40 Plate (3-1-2)\r\n$                    Vibration of a 10x20 Plate (INPUT, 3-1-3)\r\n$                    Vibration of a 20x40 Plate (INPUT, 3-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the solution for natural frequencies of a large-\r\n$ order problem. The structural model consists of a square plate with hinged\r\n$ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one\r\n$ half of the structure with symmetric boundary constraints on the mid-line to\r\n$ reduce the order of the problem and the bandwidth by one half. The 20x40 model\r\n$ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both\r\n$ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4\r\n$ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements.\r\n$ \r\n$ Because only the bending modes are desired, the in-plane deflections and\r\n$ rotations normal to the plane are constrained. The inverse power method of\r\n$ eigenvalue extraction is selected for the smaller model and the FEER method\r\n$ (Reference 32) is selected for the larger model. Both structural mass density\r\n$ and non-structural mass-per-area are used to define the mass matrix.\r\n$ \r\n$ An undeformed structure plot is executed without plot elements. This is\r\n$ expensive on most plotters since all four sides of each quadrilateral are\r\n$ drawn. For the deformed plots of each eigenvector, plot elements are used to\r\n$ draw an edge only once and to draw only selected coordinate lines (every\r\n$ second or fourth line depending on the model used).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      l = w = 20.0   (Length and width)\r\n$ \r\n$      I = 1/12       (Moment of inertia)\r\n$ \r\n$      t = 1.0        (Thickness)\r\n$ \r\n$                  7\r\n$      E = 3.0 x 10   (Modu1us of elasticity)\r\n$ \r\n$      v = 0.30       (Poisson's ratio)\r\n$ \r\n$      p = 206.0439  (Mass density, 200.0 structural and 6.0439 non-structural\r\n$                    mass)\r\n$ \r\n$ 2. Boundary constraints:\r\n$ \r\n$    along x = 0, theta  =  0           Symmetric Boundary\r\n$                      y\r\n$                                    +\r\n$    along y = 0, u  = theta  =  0   |\r\n$                  z        y        |\r\n$                                    |\r\n$    along x = 10, u  = theta  = 0   |  Hinged Supports\r\n$                   z        x       |\r\n$                                    |\r\n$    along y = 20, u  = theta  = 0   |\r\n$                   z        y       |\r\n$                                    +\r\n$ 3. Eigenvalue extraction data:\r\n$ \r\n$    Method: Inverse Power and FEER\r\n$ \r\n$    Region of interest for inverse power: .89 <= f <= 1.0\r\n$ \r\n$    Center point for FEER: .87\r\n$ \r\n$    Number of desired roots: 3\r\n$ \r\n$    Number of estimated roots: 1\r\n$ \r\n$ C. Results\r\n$ \r\n$ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in\r\n$ Reference 8.\r\n$ \r\n$                       Table 1. Natural Frequencies, cps.\r\n$ \r\n$                      -------------------------------------\r\n$                                           NASTRAN  NASTRAN\r\n$                      Mode   Theoretical   10x20    20x40\r\n$                       No.                 (INV)    (FEER)\r\n$                      -------------------------------------\r\n$                       1        .9069      .9056     .9066\r\n$ \r\n$                       2       2.2672     2.2634    2.2663\r\n$ \r\n$                       3       4.5345     4.5329    4.5340\r\n$                      -------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$ \r\n$ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by\r\n$     the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA\r\n$     CR-2731, August, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03012a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D03012A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,1                                                                       \r\nTIME  65                                                                        \r\nCEND                                                                            \r\nTITLE    =         VIBRATION OF A 20 X 40 HALF PLATE                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                          \r\n$                                                                               \r\n  METHOD = 20 $ FEER - NO MODES                                                 \r\n     SPC = 37                                                                   \r\n$                  ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)         \r\n$       MODE    M       N       FREQ                                            \r\n$       1       1       1       9.068997E-1                                     \r\n$       2       1       2       2.267249                                        \r\n$       5       1       3       4.534498                                        \r\n$       6       3       1       4.534498                                        \r\n$       7       3       2       5.894848                                        \r\n$       9       1       4       7.708647                                        \r\n$                                                                               \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210,                   \r\n           253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462,              \r\n           505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714,              \r\n           757 THRU 777, 820 THRU 840, 841 THRU 861                             \r\n   DISPLACEMENTS = 1                                                            \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-2A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n        SET 1 INCLUDE PLOTEL                                                    \r\n        SET 2 INCLUDE QUAD1                                                     \r\n        MAXIMUM DEFORMATION  1.0                                                \r\n        FIND SCALE, ORIGIN 10                                                   \r\nPTITLE = ALL QUADS IN THE PLATE                                                 \r\nPLOT ORIGIN 10, SET 2, LABELS                                                   \r\n        FIND SCALE, ORIGIN 11                                                   \r\nPTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\nPLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       2       THRU    839                                             \r\nCQUAD1  1       101     1       2       23      22      .0                      \r\nCQUAD1  2       101     2       3       24      23      .0                      \r\nCQUAD1  3       101     3       4       25      24      .0                      \r\nCQUAD1  4       101     4       5       26      25      .0                      \r\nCQUAD1  5       101     5       6       27      26      .0                      \r\nCQUAD1  6       101     6       7       28      27      .0                      \r\nCQUAD1  7       101     7       8       29      28      .0                      \r\nCQUAD1  8       101     8       9       30      29      .0                      \r\nCQUAD1  9       101     9       10      31      30      .0                      \r\nCQUAD1  10      101     10      11      32      31      .0                      \r\nCQUAD1  11      101     11      12      33      32      .0                      \r\nCQUAD1  12      101     12      13      34      33      .0                      \r\nCQUAD1  13      101     13      14      35      34      .0                      \r\nCQUAD1  14      101     14      15      36      35      .0                      \r\nCQUAD1  15      101     15      16      37      36      .0                      \r\nCQUAD1  16      101     16      17      38      37      .0                      \r\nCQUAD1  17      101     17      18      39      38      .0                      \r\nCQUAD1  18      101     18      19      40      39      .0                      \r\nCQUAD1  19      101     19      20      41      40      .0                      \r\nCQUAD1  20      101     20      21      42      41      .0                      \r\nCQUAD1  22      101     22      23      44      43      .0                      \r\nCQUAD1  23      101     23      24      45      44      .0                      \r\nCQUAD1  24      101     24      25      46      45      .0                      \r\nCQUAD1  25      101     25      26      47      46      .0                      \r\nCQUAD1  26      101     26      27      48      47      .0                      \r\nCQUAD1  27      101     27      28      49      48      .0                      \r\nCQUAD1  28      101     28      29      50      49      .0                      \r\nCQUAD1  29      101     29      30      51      50      .0                      \r\nCQUAD1  30      101     30      31      52      51      .0                      \r\nCQUAD1  31      101     31      32      53      52      .0                      \r\nCQUAD1  32      101     32      33      54      53      .0                      \r\nCQUAD1  33      101     33      34      55      54      .0                      \r\nCQUAD1  34      101     34      35      56      55      .0                      \r\nCQUAD1  35      101     35      36      57      56      .0                      \r\nCQUAD1  36      101     36      37      58      57      .0                      \r\nCQUAD1  37      101     37      38      59      58      .0                      \r\nCQUAD1  38      101     38      39      60      59      .0                      \r\nCQUAD1  39      101     39      40      61      60      .0                      \r\nCQUAD1  40      101     40      41      62      61      .0                      \r\nCQUAD1  41      101     41      42      63      62      .0                      \r\nCQUAD1  43      101     43      44      65      64      .0                      \r\nCQUAD1  44      101     44      45      66      65      .0                      \r\nCQUAD1  45      101     45      46      67      66      .0                      \r\nCQUAD1  46      101     46      47      68      67      .0                      \r\nCQUAD1  47      101     47      48      69      68      .0                      \r\nCQUAD1  48      101     48      49      70      69      .0                      \r\nCQUAD1  49      101     49      50      71      70      .0                      \r\nCQUAD1  50      101     50      51      72      71      .0                      \r\nCQUAD1  51      101     51      52      73      72      .0                      \r\nCQUAD1  52      101     52      53      74      73      .0                      \r\nCQUAD1  53      101     53      54      75      74      .0                      \r\nCQUAD1  54      101     54      55      76      75      .0                      \r\nCQUAD1  55      101     55      56      77      76      .0                      \r\nCQUAD1  56      101     56      57      78      77      .0                      \r\nCQUAD1  57      101     57      58      79      78      .0                      \r\nCQUAD1  58      101     58      59      80      79      .0                      \r\nCQUAD1  59      101     59      60      81      80      .0                      \r\nCQUAD1  60      101     60      61      82      81      .0                      \r\nCQUAD1  61      101     61      62      83      82      .0                      \r\nCQUAD1  62      101     62      63      84      83      .0                      \r\nCQUAD1  64      101     64      65      86      85      .0                      \r\nCQUAD1  65      101     65      66      87      86      .0                      \r\nCQUAD1  66      101     66      67      88      87      .0                      \r\nCQUAD1  67      101     67      68      89      88      .0                      \r\nCQUAD1  68      101     68      69      90      89      .0                      \r\nCQUAD1  69      101     69      70      91      90      .0                      \r\nCQUAD1  70      101     70      71      92      91      .0                      \r\nCQUAD1  71      101     71      72      93      92      .0                      \r\nCQUAD1  72      101     72      73      94      93      .0                      \r\nCQUAD1  73      101     73      74      95      94      .0                      \r\nCQUAD1  74      101     74      75      96      95      .0                      \r\nCQUAD1  75      101     75      76      97      96      .0                      \r\nCQUAD1  76      101     76      77      98      97      .0                      \r\nCQUAD1  77      101     77      78      99      98      .0                      \r\nCQUAD1  78      101     78      79      100     99      .0                      \r\nCQUAD1  79      101     79      80      101     100     .0                      \r\nCQUAD1  80      101     80      81      102     101     .0                      \r\nCQUAD1  81      101     81      82      103     102     .0                      \r\nCQUAD1  82      101     82      83      104     103     .0                      \r\nCQUAD1  83      101     83      84      105     104     .0                      \r\nCQUAD1  85      101     85      86      107     106     .0                      \r\nCQUAD1  86      101     86      87      108     107     .0                      \r\nCQUAD1  87      101     87      88      109     108     .0                      \r\nCQUAD1  88      101     88      89      110     109     .0                      \r\nCQUAD1  89      101     89      90      111     110     .0                      \r\nCQUAD1  90      101     90      91      112     111     .0                      \r\nCQUAD1  91      101     91      92      113     112     .0                      \r\nCQUAD1  92      101     92      93      114     113     .0                      \r\nCQUAD1  93      101     93      94      115     114     .0                      \r\nCQUAD1  94      101     94      95      116     115     .0                      \r\nCQUAD1  95      101     95      96      117     116     .0                      \r\nCQUAD1  96      101     96      97      118     117     .0                      \r\nCQUAD1  97      101     97      98      119     118     .0                      \r\nCQUAD1  98      101     98      99      120     119     .0                      \r\nCQUAD1  99      101     99      100     121     120     .0                      \r\nCQUAD1  100     101     100     101     122     121     .0                      \r\nCQUAD1  101     101     101     102     123     122     .0                      \r\nCQUAD1  102     101     102     103     124     123     .0                      \r\nCQUAD1  103     101     103     104     125     124     .0                      \r\nCQUAD1  104     101     104     105     126     125     .0                      \r\nCQUAD1  106     101     106     107     128     127     .0                      \r\nCQUAD1  107     101     107     108     129     128     .0                      \r\nCQUAD1  108     101     108     109     130     129     .0                      \r\nCQUAD1  109     101     109     110     131     130     .0                      \r\nCQUAD1  110     101     110     111     132     131     .0                      \r\nCQUAD1  111     101     111     112     133     132     .0                      \r\nCQUAD1  112     101     112     113     134     133     .0                      \r\nCQUAD1  113     101     113     114     135     134     .0                      \r\nCQUAD1  114     101     114     115     136     135     .0                      \r\nCQUAD1  115     101     115     116     137     136     .0                      \r\nCQUAD1  116     101     116     117     138     137     .0                      \r\nCQUAD1  117     101     117     118     139     138     .0                      \r\nCQUAD1  118     101     118     119     140     139     .0                      \r\nCQUAD1  119     101     119     120     141     140     .0                      \r\nCQUAD1  120     101     120     121     142     141     .0                      \r\nCQUAD1  121     101     121     122     143     142     .0                      \r\nCQUAD1  122     101     122     123     144     143     .0                      \r\nCQUAD1  123     101     123     124     145     144     .0                      \r\nCQUAD1  124     101     124     125     146     145     .0                      \r\nCQUAD1  125     101     125     126     147     146     .0                      \r\nCQUAD1  127     101     127     128     149     148     .0                      \r\nCQUAD1  128     101     128     129     150     149     .0                      \r\nCQUAD1  129     101     129     130     151     150     .0                      \r\nCQUAD1  130     101     130     131     152     151     .0                      \r\nCQUAD1  131     101     131     132     153     152     .0                      \r\nCQUAD1  132     101     132     133     154     153     .0                      \r\nCQUAD1  133     101     133     134     155     154     .0                      \r\nCQUAD1  134     101     134     135     156     155     .0                      \r\nCQUAD1  135     101     135     136     157     156     .0                      \r\nCQUAD1  136     101     136     137     158     157     .0                      \r\nCQUAD1  137     101     137     138     159     158     .0                      \r\nCQUAD1  138     101     138     139     160     159     .0                      \r\nCQUAD1  139     101     139     140     161     160     .0                      \r\nCQUAD1  140     101     140     141     162     161     .0                      \r\nCQUAD1  141     101     141     142     163     162     .0                      \r\nCQUAD1  142     101     142     143     164     163     .0                      \r\nCQUAD1  143     101     143     144     165     164     .0                      \r\nCQUAD1  144     101     144     145     166     165     .0                      \r\nCQUAD1  145     101     145     146     167     166     .0                      \r\nCQUAD1  146     101     146     147     168     167     .0                      \r\nCQUAD1  148     101     148     149     170     169     .0                      \r\nCQUAD1  149     101     149     150     171     170     .0                      \r\nCQUAD1  150     101     150     151     172     171     .0                      \r\nCQUAD1  151     101     151     152     173     172     .0                      \r\nCQUAD1  152     101     152     153     174     173     .0                      \r\nCQUAD1  153     101     153     154     175     174     .0                      \r\nCQUAD1  154     101     154     155     176     175     .0                      \r\nCQUAD1  155     101     155     156     177     176     .0                      \r\nCQUAD1  156     101     156     157     178     177     .0                      \r\nCQUAD1  157     101     157     158     179     178     .0                      \r\nCQUAD1  158     101     158     159     180     179     .0                      \r\nCQUAD1  159     101     159     160     181     180     .0                      \r\nCQUAD1  160     101     160     161     182     181     .0                      \r\nCQUAD1  161     101     161     162     183     182     .0                      \r\nCQUAD1  162     101     162     163     184     183     .0                      \r\nCQUAD1  163     101     163     164     185     184     .0                      \r\nCQUAD1  164     101     164     165     186     185     .0                      \r\nCQUAD1  165     101     165     166     187     186     .0                      \r\nCQUAD1  166     101     166     167     188     187     .0                      \r\nCQUAD1  167     101     167     168     189     188     .0                      \r\nCQUAD1  169     101     169     170     191     190     .0                      \r\nCQUAD1  170     101     170     171     192     191     .0                      \r\nCQUAD1  171     101     171     172     193     192     .0                      \r\nCQUAD1  172     101     172     173     194     193     .0                      \r\nCQUAD1  173     101     173     174     195     194     .0                      \r\nCQUAD1  174     101     174     175     196     195     .0                      \r\nCQUAD1  175     101     175     176     197     196     .0                      \r\nCQUAD1  176     101     176     177     198     197     .0                      \r\nCQUAD1  177     101     177     178     199     198     .0                      \r\nCQUAD1  178     101     178     179     200     199     .0                      \r\nCQUAD1  179     101     179     180     201     200     .0                      \r\nCQUAD1  180     101     180     181     202     201     .0                      \r\nCQUAD1  181     101     181     182     203     202     .0                      \r\nCQUAD1  182     101     182     183     204     203     .0                      \r\nCQUAD1  183     101     183     184     205     204     .0                      \r\nCQUAD1  184     101     184     185     206     205     .0                      \r\nCQUAD1  185     101     185     186     207     206     .0                      \r\nCQUAD1  186     101     186     187     208     207     .0                      \r\nCQUAD1  187     101     187     188     209     208     .0                      \r\nCQUAD1  188     101     188     189     210     209     .0                      \r\nCQUAD1  190     101     190     191     212     211     .0                      \r\nCQUAD1  191     101     191     192     213     212     .0                      \r\nCQUAD1  192     101     192     193     214     213     .0                      \r\nCQUAD1  193     101     193     194     215     214     .0                      \r\nCQUAD1  194     101     194     195     216     215     .0                      \r\nCQUAD1  195     101     195     196     217     216     .0                      \r\nCQUAD1  196     101     196     197     218     217     .0                      \r\nCQUAD1  197     101     197     198     219     218     .0                      \r\nCQUAD1  198     101     198     199     220     219     .0                      \r\nCQUAD1  199     101     199     200     221     220     .0                      \r\nCQUAD1  200     101     200     201     222     221     .0                      \r\nCQUAD1  201     101     201     202     223     222     .0                      \r\nCQUAD1  202     101     202     203     224     223     .0                      \r\nCQUAD1  203     101     203     204     225     224     .0                      \r\nCQUAD1  204     101     204     205     226     225     .0                      \r\nCQUAD1  205     101     205     206     227     226     .0                      \r\nCQUAD1  206     101     206     207     228     227     .0                      \r\nCQUAD1  207     101     207     208     229     228     .0                      \r\nCQUAD1  208     101     208     209     230     229     .0                      \r\nCQUAD1  209     101     209     210     231     230     .0                      \r\nCQUAD1  211     101     211     212     233     232     .0                      \r\nCQUAD1  212     101     212     213     234     233     .0                      \r\nCQUAD1  213     101     213     214     235     234     .0                      \r\nCQUAD1  214     101     214     215     236     235     .0                      \r\nCQUAD1  215     101     215     216     237     236     .0                      \r\nCQUAD1  216     101     216     217     238     237     .0                      \r\nCQUAD1  217     101     217     218     239     238     .0                      \r\nCQUAD1  218     101     218     219     240     239     .0                      \r\nCQUAD1  219     101     219     220     241     240     .0                      \r\nCQUAD1  220     101     220     221     242     241     .0                      \r\nCQUAD1  221     101     221     222     243     242     .0                      \r\nCQUAD1  222     101     222     223     244     243     .0                      \r\nCQUAD1  223     101     223     224     245     244     .0                      \r\nCQUAD1  224     101     224     225     246     245     .0                      \r\nCQUAD1  225     101     225     226     247     246     .0                      \r\nCQUAD1  226     101     226     227     248     247     .0                      \r\nCQUAD1  227     101     227     228     249     248     .0                      \r\nCQUAD1  228     101     228     229     250     249     .0                      \r\nCQUAD1  229     101     229     230     251     250     .0                      \r\nCQUAD1  230     101     230     231     252     251     .0                      \r\nCQUAD1  232     101     232     233     254     253     .0                      \r\nCQUAD1  233     101     233     234     255     254     .0                      \r\nCQUAD1  234     101     234     235     256     255     .0                      \r\nCQUAD1  235     101     235     236     257     256     .0                      \r\nCQUAD1  236     101     236     237     258     257     .0                      \r\nCQUAD1  237     101     237     238     259     258     .0                      \r\nCQUAD1  238     101     238     239     260     259     .0                      \r\nCQUAD1  239     101     239     240     261     260     .0                      \r\nCQUAD1  240     101     240     241     262     261     .0                      \r\nCQUAD1  241     101     241     242     263     262     .0                      \r\nCQUAD1  242     101     242     243     264     263     .0                      \r\nCQUAD1  243     101     243     244     265     264     .0                      \r\nCQUAD1  244     101     244     245     266     265     .0                      \r\nCQUAD1  245     101     245     246     267     266     .0                      \r\nCQUAD1  246     101     246     247     268     267     .0                      \r\nCQUAD1  247     101     247     248     269     268     .0                      \r\nCQUAD1  248     101     248     249     270     269     .0                      \r\nCQUAD1  249     101     249     250     271     270     .0                      \r\nCQUAD1  250     101     250     251     272     271     .0                      \r\nCQUAD1  251     101     251     252     273     272     .0                      \r\nCQUAD1  253     101     253     254     275     274     .0                      \r\nCQUAD1  254     101     254     255     276     275     .0                      \r\nCQUAD1  255     101     255     256     277     276     .0                      \r\nCQUAD1  256     101     256     257     278     277     .0                      \r\nCQUAD1  257     101     257     258     279     278     .0                      \r\nCQUAD1  258     101     258     259     280     279     .0                      \r\nCQUAD1  259     101     259     260     281     280     .0                      \r\nCQUAD1  260     101     260     261     282     281     .0                      \r\nCQUAD1  261     101     261     262     283     282     .0                      \r\nCQUAD1  262     101     262     263     284     283     .0                      \r\nCQUAD1  263     101     263     264     285     284     .0                      \r\nCQUAD1  264     101     264     265     286     285     .0                      \r\nCQUAD1  265     101     265     266     287     286     .0                      \r\nCQUAD1  266     101     266     267     288     287     .0                      \r\nCQUAD1  267     101     267     268     289     288     .0                      \r\nCQUAD1  268     101     268     269     290     289     .0                      \r\nCQUAD1  269     101     269     270     291     290     .0                      \r\nCQUAD1  270     101     270     271     292     291     .0                      \r\nCQUAD1  271     101     271     272     293     292     .0                      \r\nCQUAD1  272     101     272     273     294     293     .0                      \r\nCQUAD1  274     101     274     275     296     295     .0                      \r\nCQUAD1  275     101     275     276     297     296     .0                      \r\nCQUAD1  276     101     276     277     298     297     .0                      \r\nCQUAD1  277     101     277     278     299     298     .0                      \r\nCQUAD1  278     101     278     279     300     299     .0                      \r\nCQUAD1  279     101     279     280     301     300     .0                      \r\nCQUAD1  280     101     280     281     302     301     .0                      \r\nCQUAD1  281     101     281     282     303     302     .0                      \r\nCQUAD1  282     101     282     283     304     303     .0                      \r\nCQUAD1  283     101     283     284     305     304     .0                      \r\nCQUAD1  284     101     284     285     306     305     .0                      \r\nCQUAD1  285     101     285     286     307     306     .0                      \r\nCQUAD1  286     101     286     287     308     307     .0                      \r\nCQUAD1  287     101     287     288     309     308     .0                      \r\nCQUAD1  288     101     288     289     310     309     .0                      \r\nCQUAD1  289     101     289     290     311     310     .0                      \r\nCQUAD1  290     101     290     291     312     311     .0                      \r\nCQUAD1  291     101     291     292     313     312     .0                      \r\nCQUAD1  292     101     292     293     314     313     .0                      \r\nCQUAD1  293     101     293     294     315     314     .0                      \r\nCQUAD1  295     101     295     296     317     316     .0                      \r\nCQUAD1  296     101     296     297     318     317     .0                      \r\nCQUAD1  297     101     297     298     319     318     .0                      \r\nCQUAD1  298     101     298     299     320     319     .0                      \r\nCQUAD1  299     101     299     300     321     320     .0                      \r\nCQUAD1  300     101     300     301     322     321     .0                      \r\nCQUAD1  301     101     301     302     323     322     .0                      \r\nCQUAD1  302     101     302     303     324     323     .0                      \r\nCQUAD1  303     101     303     304     325     324     .0                      \r\nCQUAD1  304     101     304     305     326     325     .0                      \r\nCQUAD1  305     101     305     306     327     326     .0                      \r\nCQUAD1  306     101     306     307     328     327     .0                      \r\nCQUAD1  307     101     307     308     329     328     .0                      \r\nCQUAD1  308     101     308     309     330     329     .0                      \r\nCQUAD1  309     101     309     310     331     330     .0                      \r\nCQUAD1  310     101     310     311     332     331     .0                      \r\nCQUAD1  311     101     311     312     333     332     .0                      \r\nCQUAD1  312     101     312     313     334     333     .0                      \r\nCQUAD1  313     101     313     314     335     334     .0                      \r\nCQUAD1  314     101     314     315     336     335     .0                      \r\nCQUAD1  316     101     316     317     338     337     .0                      \r\nCQUAD1  317     101     317     318     339     338     .0                      \r\nCQUAD1  318     101     318     319     340     339     .0                      \r\nCQUAD1  319     101     319     320     341     340     .0                      \r\nCQUAD1  320     101     320     321     342     341     .0                      \r\nCQUAD1  321     101     321     322     343     342     .0                      \r\nCQUAD1  322     101     322     323     344     343     .0                      \r\nCQUAD1  323     101     323     324     345     344     .0                      \r\nCQUAD1  324     101     324     325     346     345     .0                      \r\nCQUAD1  325     101     325     326     347     346     .0                      \r\nCQUAD1  326     101     326     327     348     347     .0                      \r\nCQUAD1  327     101     327     328     349     348     .0                      \r\nCQUAD1  328     101     328     329     350     349     .0                      \r\nCQUAD1  329     101     329     330     351     350     .0                      \r\nCQUAD1  330     101     330     331     352     351     .0                      \r\nCQUAD1  331     101     331     332     353     352     .0                      \r\nCQUAD1  332     101     332     333     354     353     .0                      \r\nCQUAD1  333     101     333     334     355     354     .0                      \r\nCQUAD1  334     101     334     335     356     355     .0                      \r\nCQUAD1  335     101     335     336     357     356     .0                      \r\nCQUAD1  337     101     337     338     359     358     .0                      \r\nCQUAD1  338     101     338     339     360     359     .0                      \r\nCQUAD1  339     101     339     340     361     360     .0                      \r\nCQUAD1  340     101     340     341     362     361     .0                      \r\nCQUAD1  341     101     341     342     363     362     .0                      \r\nCQUAD1  342     101     342     343     364     363     .0                      \r\nCQUAD1  343     101     343     344     365     364     .0                      \r\nCQUAD1  344     101     344     345     366     365     .0                      \r\nCQUAD1  345     101     345     346     367     366     .0                      \r\nCQUAD1  346     101     346     347     368     367     .0                      \r\nCQUAD1  347     101     347     348     369     368     .0                      \r\nCQUAD1  348     101     348     349     370     369     .0                      \r\nCQUAD1  349     101     349     350     371     370     .0                      \r\nCQUAD1  350     101     350     351     372     371     .0                      \r\nCQUAD1  351     101     351     352     373     372     .0                      \r\nCQUAD1  352     101     352     353     374     373     .0                      \r\nCQUAD1  353     101     353     354     375     374     .0                      \r\nCQUAD1  354     101     354     355     376     375     .0                      \r\nCQUAD1  355     101     355     356     377     376     .0                      \r\nCQUAD1  356     101     356     357     378     377     .0                      \r\nCQUAD1  358     101     358     359     380     379     .0                      \r\nCQUAD1  359     101     359     360     381     380     .0                      \r\nCQUAD1  360     101     360     361     382     381     .0                      \r\nCQUAD1  361     101     361     362     383     382     .0                      \r\nCQUAD1  362     101     362     363     384     383     .0                      \r\nCQUAD1  363     101     363     364     385     384     .0                      \r\nCQUAD1  364     101     364     365     386     385     .0                      \r\nCQUAD1  365     101     365     366     387     386     .0                      \r\nCQUAD1  366     101     366     367     388     387     .0                      \r\nCQUAD1  367     101     367     368     389     388     .0                      \r\nCQUAD1  368     101     368     369     390     389     .0                      \r\nCQUAD1  369     101     369     370     391     390     .0                      \r\nCQUAD1  370     101     370     371     392     391     .0                      \r\nCQUAD1  371     101     371     372     393     392     .0                      \r\nCQUAD1  372     101     372     373     394     393     .0                      \r\nCQUAD1  373     101     373     374     395     394     .0                      \r\nCQUAD1  374     101     374     375     396     395     .0                      \r\nCQUAD1  375     101     375     376     397     396     .0                      \r\nCQUAD1  376     101     376     377     398     397     .0                      \r\nCQUAD1  377     101     377     378     399     398     .0                      \r\nCQUAD1  379     101     379     380     401     400     .0                      \r\nCQUAD1  380     101     380     381     402     401     .0                      \r\nCQUAD1  381     101     381     382     403     402     .0                      \r\nCQUAD1  382     101     382     383     404     403     .0                      \r\nCQUAD1  383     101     383     384     405     404     .0                      \r\nCQUAD1  384     101     384     385     406     405     .0                      \r\nCQUAD1  385     101     385     386     407     406     .0                      \r\nCQUAD1  386     101     386     387     408     407     .0                      \r\nCQUAD1  387     101     387     388     409     408     .0                      \r\nCQUAD1  388     101     388     389     410     409     .0                      \r\nCQUAD1  389     101     389     390     411     410     .0                      \r\nCQUAD1  390     101     390     391     412     411     .0                      \r\nCQUAD1  391     101     391     392     413     412     .0                      \r\nCQUAD1  392     101     392     393     414     413     .0                      \r\nCQUAD1  393     101     393     394     415     414     .0                      \r\nCQUAD1  394     101     394     395     416     415     .0                      \r\nCQUAD1  395     101     395     396     417     416     .0                      \r\nCQUAD1  396     101     396     397     418     417     .0                      \r\nCQUAD1  397     101     397     398     419     418     .0                      \r\nCQUAD1  398     101     398     399     420     419     .0                      \r\nCQUAD1  400     101     400     401     422     421     .0                      \r\nCQUAD1  401     101     401     402     423     422     .0                      \r\nCQUAD1  402     101     402     403     424     423     .0                      \r\nCQUAD1  403     101     403     404     425     424     .0                      \r\nCQUAD1  404     101     404     405     426     425     .0                      \r\nCQUAD1  405     101     405     406     427     426     .0                      \r\nCQUAD1  406     101     406     407     428     427     .0                      \r\nCQUAD1  407     101     407     408     429     428     .0                      \r\nCQUAD1  408     101     408     409     430     429     .0                      \r\nCQUAD1  409     101     409     410     431     430     .0                      \r\nCQUAD1  410     101     410     411     432     431     .0                      \r\nCQUAD1  411     101     411     412     433     432     .0                      \r\nCQUAD1  412     101     412     413     434     433     .0                      \r\nCQUAD1  413     101     413     414     435     434     .0                      \r\nCQUAD1  414     101     414     415     436     435     .0                      \r\nCQUAD1  415     101     415     416     437     436     .0                      \r\nCQUAD1  416     101     416     417     438     437     .0                      \r\nCQUAD1  417     101     417     418     439     438     .0                      \r\nCQUAD1  418     101     418     419     440     439     .0                      \r\nCQUAD1  419     101     419     420     441     440     .0                      \r\nCQUAD1  421     101     421     422     443     442     .0                      \r\nCQUAD1  422     101     422     423     444     443     .0                      \r\nCQUAD1  423     101     423     424     445     444     .0                      \r\nCQUAD1  424     101     424     425     446     445     .0                      \r\nCQUAD1  425     101     425     426     447     446     .0                      \r\nCQUAD1  426     101     426     427     448     447     .0                      \r\nCQUAD1  427     101     427     428     449     448     .0                      \r\nCQUAD1  428     101     428     429     450     449     .0                      \r\nCQUAD1  429     101     429     430     451     450     .0                      \r\nCQUAD1  430     101     430     431     452     451     .0                      \r\nCQUAD1  431     101     431     432     453     452     .0                      \r\nCQUAD1  432     101     432     433     454     453     .0                      \r\nCQUAD1  433     101     433     434     455     454     .0                      \r\nCQUAD1  434     101     434     435     456     455     .0                      \r\nCQUAD1  435     101     435     436     457     456     .0                      \r\nCQUAD1  436     101     436     437     458     457     .0                      \r\nCQUAD1  437     101     437     438     459     458     .0                      \r\nCQUAD1  438     101     438     439     460     459     .0                      \r\nCQUAD1  439     101     439     440     461     460     .0                      \r\nCQUAD1  440     101     440     441     462     461     .0                      \r\nCQUAD1  442     101     442     443     464     463     .0                      \r\nCQUAD1  443     101     443     444     465     464     .0                      \r\nCQUAD1  444     101     444     445     466     465     .0                      \r\nCQUAD1  445     101     445     446     467     466     .0                      \r\nCQUAD1  446     101     446     447     468     467     .0                      \r\nCQUAD1  447     101     447     448     469     468     .0                      \r\nCQUAD1  448     101     448     449     470     469     .0                      \r\nCQUAD1  449     101     449     450     471     470     .0                      \r\nCQUAD1  450     101     450     451     472     471     .0                      \r\nCQUAD1  451     101     451     452     473     472     .0                      \r\nCQUAD1  452     101     452     453     474     473     .0                      \r\nCQUAD1  453     101     453     454     475     474     .0                      \r\nCQUAD1  454     101     454     455     476     475     .0                      \r\nCQUAD1  455     101     455     456     477     476     .0                      \r\nCQUAD1  456     101     456     457     478     477     .0                      \r\nCQUAD1  457     101     457     458     479     478     .0                      \r\nCQUAD1  458     101     458     459     480     479     .0                      \r\nCQUAD1  459     101     459     460     481     480     .0                      \r\nCQUAD1  460     101     460     461     482     481     .0                      \r\nCQUAD1  461     101     461     462     483     482     .0                      \r\nCQUAD1  463     101     463     464     485     484     .0                      \r\nCQUAD1  464     101     464     465     486     485     .0                      \r\nCQUAD1  465     101     465     466     487     486     .0                      \r\nCQUAD1  466     101     466     467     488     487     .0                      \r\nCQUAD1  467     101     467     468     489     488     .0                      \r\nCQUAD1  468     101     468     469     490     489     .0                      \r\nCQUAD1  469     101     469     470     491     490     .0                      \r\nCQUAD1  470     101     470     471     492     491     .0                      \r\nCQUAD1  471     101     471     472     493     492     .0                      \r\nCQUAD1  472     101     472     473     494     493     .0                      \r\nCQUAD1  473     101     473     474     495     494     .0                      \r\nCQUAD1  474     101     474     475     496     495     .0                      \r\nCQUAD1  475     101     475     476     497     496     .0                      \r\nCQUAD1  476     101     476     477     498     497     .0                      \r\nCQUAD1  477     101     477     478     499     498     .0                      \r\nCQUAD1  478     101     478     479     500     499     .0                      \r\nCQUAD1  479     101     479     480     501     500     .0                      \r\nCQUAD1  480     101     480     481     502     501     .0                      \r\nCQUAD1  481     101     481     482     503     502     .0                      \r\nCQUAD1  482     101     482     483     504     503     .0                      \r\nCQUAD1  484     101     484     485     506     505     .0                      \r\nCQUAD1  485     101     485     486     507     506     .0                      \r\nCQUAD1  486     101     486     487     508     507     .0                      \r\nCQUAD1  487     101     487     488     509     508     .0                      \r\nCQUAD1  488     101     488     489     510     509     .0                      \r\nCQUAD1  489     101     489     490     511     510     .0                      \r\nCQUAD1  490     101     490     491     512     511     .0                      \r\nCQUAD1  491     101     491     492     513     512     .0                      \r\nCQUAD1  492     101     492     493     514     513     .0                      \r\nCQUAD1  493     101     493     494     515     514     .0                      \r\nCQUAD1  494     101     494     495     516     515     .0                      \r\nCQUAD1  495     101     495     496     517     516     .0                      \r\nCQUAD1  496     101     496     497     518     517     .0                      \r\nCQUAD1  497     101     497     498     519     518     .0                      \r\nCQUAD1  498     101     498     499     520     519     .0                      \r\nCQUAD1  499     101     499     500     521     520     .0                      \r\nCQUAD1  500     101     500     501     522     521     .0                      \r\nCQUAD1  501     101     501     502     523     522     .0                      \r\nCQUAD1  502     101     502     503     524     523     .0                      \r\nCQUAD1  503     101     503     504     525     524     .0                      \r\nCQUAD1  505     101     505     506     527     526     .0                      \r\nCQUAD1  506     101     506     507     528     527     .0                      \r\nCQUAD1  507     101     507     508     529     528     .0                      \r\nCQUAD1  508     101     508     509     530     529     .0                      \r\nCQUAD1  509     101     509     510     531     530     .0                      \r\nCQUAD1  510     101     510     511     532     531     .0                      \r\nCQUAD1  511     101     511     512     533     532     .0                      \r\nCQUAD1  512     101     512     513     534     533     .0                      \r\nCQUAD1  513     101     513     514     535     534     .0                      \r\nCQUAD1  514     101     514     515     536     535     .0                      \r\nCQUAD1  515     101     515     516     537     536     .0                      \r\nCQUAD1  516     101     516     517     538     537     .0                      \r\nCQUAD1  517     101     517     518     539     538     .0                      \r\nCQUAD1  518     101     518     519     540     539     .0                      \r\nCQUAD1  519     101     519     520     541     540     .0                      \r\nCQUAD1  520     101     520     521     542     541     .0                      \r\nCQUAD1  521     101     521     522     543     542     .0                      \r\nCQUAD1  522     101     522     523     544     543     .0                      \r\nCQUAD1  523     101     523     524     545     544     .0                      \r\nCQUAD1  524     101     524     525     546     545     .0                      \r\nCQUAD1  526     101     526     527     548     547     .0                      \r\nCQUAD1  527     101     527     528     549     548     .0                      \r\nCQUAD1  528     101     528     529     550     549     .0                      \r\nCQUAD1  529     101     529     530     551     550     .0                      \r\nCQUAD1  530     101     530     531     552     551     .0                      \r\nCQUAD1  531     101     531     532     553     552     .0                      \r\nCQUAD1  532     101     532     533     554     553     .0                      \r\nCQUAD1  533     101     533     534     555     554     .0                      \r\nCQUAD1  534     101     534     535     556     555     .0                      \r\nCQUAD1  535     101     535     536     557     556     .0                      \r\nCQUAD1  536     101     536     537     558     557     .0                      \r\nCQUAD1  537     101     537     538     559     558     .0                      \r\nCQUAD1  538     101     538     539     560     559     .0                      \r\nCQUAD1  539     101     539     540     561     560     .0                      \r\nCQUAD1  540     101     540     541     562     561     .0                      \r\nCQUAD1  541     101     541     542     563     562     .0                      \r\nCQUAD1  542     101     542     543     564     563     .0                      \r\nCQUAD1  543     101     543     544     565     564     .0                      \r\nCQUAD1  544     101     544     545     566     565     .0                      \r\nCQUAD1  545     101     545     546     567     566     .0                      \r\nCQUAD1  547     101     547     548     569     568     .0                      \r\nCQUAD1  548     101     548     549     570     569     .0                      \r\nCQUAD1  549     101     549     550     571     570     .0                      \r\nCQUAD1  550     101     550     551     572     571     .0                      \r\nCQUAD1  551     101     551     552     573     572     .0                      \r\nCQUAD1  552     101     552     553     574     573     .0                      \r\nCQUAD1  553     101     553     554     575     574     .0                      \r\nCQUAD1  554     101     554     555     576     575     .0                      \r\nCQUAD1  555     101     555     556     577     576     .0                      \r\nCQUAD1  556     101     556     557     578     577     .0                      \r\nCQUAD1  557     101     557     558     579     578     .0                      \r\nCQUAD1  558     101     558     559     580     579     .0                      \r\nCQUAD1  559     101     559     560     581     580     .0                      \r\nCQUAD1  560     101     560     561     582     581     .0                      \r\nCQUAD1  561     101     561     562     583     582     .0                      \r\nCQUAD1  562     101     562     563     584     583     .0                      \r\nCQUAD1  563     101     563     564     585     584     .0                      \r\nCQUAD1  564     101     564     565     586     585     .0                      \r\nCQUAD1  565     101     565     566     587     586     .0                      \r\nCQUAD1  566     101     566     567     588     587     .0                      \r\nCQUAD1  568     101     568     569     590     589     .0                      \r\nCQUAD1  569     101     569     570     591     590     .0                      \r\nCQUAD1  570     101     570     571     592     591     .0                      \r\nCQUAD1  571     101     571     572     593     592     .0                      \r\nCQUAD1  572     101     572     573     594     593     .0                      \r\nCQUAD1  573     101     573     574     595     594     .0                      \r\nCQUAD1  574     101     574     575     596     595     .0                      \r\nCQUAD1  575     101     575     576     597     596     .0                      \r\nCQUAD1  576     101     576     577     598     597     .0                      \r\nCQUAD1  577     101     577     578     599     598     .0                      \r\nCQUAD1  578     101     578     579     600     599     .0                      \r\nCQUAD1  579     101     579     580     601     600     .0                      \r\nCQUAD1  580     101     580     581     602     601     .0                      \r\nCQUAD1  581     101     581     582     603     602     .0                      \r\nCQUAD1  582     101     582     583     604     603     .0                      \r\nCQUAD1  583     101     583     584     605     604     .0                      \r\nCQUAD1  584     101     584     585     606     605     .0                      \r\nCQUAD1  585     101     585     586     607     606     .0                      \r\nCQUAD1  586     101     586     587     608     607     .0                      \r\nCQUAD1  587     101     587     588     609     608     .0                      \r\nCQUAD1  589     101     589     590     611     610     .0                      \r\nCQUAD1  590     101     590     591     612     611     .0                      \r\nCQUAD1  591     101     591     592     613     612     .0                      \r\nCQUAD1  592     101     592     593     614     613     .0                      \r\nCQUAD1  593     101     593     594     615     614     .0                      \r\nCQUAD1  594     101     594     595     616     615     .0                      \r\nCQUAD1  595     101     595     596     617     616     .0                      \r\nCQUAD1  596     101     596     597     618     617     .0                      \r\nCQUAD1  597     101     597     598     619     618     .0                      \r\nCQUAD1  598     101     598     599     620     619     .0                      \r\nCQUAD1  599     101     599     600     621     620     .0                      \r\nCQUAD1  600     101     600     601     622     621     .0                      \r\nCQUAD1  601     101     601     602     623     622     .0                      \r\nCQUAD1  602     101     602     603     624     623     .0                      \r\nCQUAD1  603     101     603     604     625     624     .0                      \r\nCQUAD1  604     101     604     605     626     625     .0                      \r\nCQUAD1  605     101     605     606     627     626     .0                      \r\nCQUAD1  606     101     606     607     628     627     .0                      \r\nCQUAD1  607     101     607     608     629     628     .0                      \r\nCQUAD1  608     101     608     609     630     629     .0                      \r\nCQUAD1  610     101     610     611     632     631     .0                      \r\nCQUAD1  611     101     611     612     633     632     .0                      \r\nCQUAD1  612     101     612     613     634     633     .0                      \r\nCQUAD1  613     101     613     614     635     634     .0                      \r\nCQUAD1  614     101     614     615     636     635     .0                      \r\nCQUAD1  615     101     615     616     637     636     .0                      \r\nCQUAD1  616     101     616     617     638     637     .0                      \r\nCQUAD1  617     101     617     618     639     638     .0                      \r\nCQUAD1  618     101     618     619     640     639     .0                      \r\nCQUAD1  619     101     619     620     641     640     .0                      \r\nCQUAD1  620     101     620     621     642     641     .0                      \r\nCQUAD1  621     101     621     622     643     642     .0                      \r\nCQUAD1  622     101     622     623     644     643     .0                      \r\nCQUAD1  623     101     623     624     645     644     .0                      \r\nCQUAD1  624     101     624     625     646     645     .0                      \r\nCQUAD1  625     101     625     626     647     646     .0                      \r\nCQUAD1  626     101     626     627     648     647     .0                      \r\nCQUAD1  627     101     627     628     649     648     .0                      \r\nCQUAD1  628     101     628     629     650     649     .0                      \r\nCQUAD1  629     101     629     630     651     650     .0                      \r\nCQUAD1  631     101     631     632     653     652     .0                      \r\nCQUAD1  632     101     632     633     654     653     .0                      \r\nCQUAD1  633     101     633     634     655     654     .0                      \r\nCQUAD1  634     101     634     635     656     655     .0                      \r\nCQUAD1  635     101     635     636     657     656     .0                      \r\nCQUAD1  636     101     636     637     658     657     .0                      \r\nCQUAD1  637     101     637     638     659     658     .0                      \r\nCQUAD1  638     101     638     639     660     659     .0                      \r\nCQUAD1  639     101     639     640     661     660     .0                      \r\nCQUAD1  640     101     640     641     662     661     .0                      \r\nCQUAD1  641     101     641     642     663     662     .0                      \r\nCQUAD1  642     101     642     643     664     663     .0                      \r\nCQUAD1  643     101     643     644     665     664     .0                      \r\nCQUAD1  644     101     644     645     666     665     .0                      \r\nCQUAD1  645     101     645     646     667     666     .0                      \r\nCQUAD1  646     101     646     647     668     667     .0                      \r\nCQUAD1  647     101     647     648     669     668     .0                      \r\nCQUAD1  648     101     648     649     670     669     .0                      \r\nCQUAD1  649     101     649     650     671     670     .0                      \r\nCQUAD1  650     101     650     651     672     671     .0                      \r\nCQUAD1  652     101     652     653     674     673     .0                      \r\nCQUAD1  653     101     653     654     675     674     .0                      \r\nCQUAD1  654     101     654     655     676     675     .0                      \r\nCQUAD1  655     101     655     656     677     676     .0                      \r\nCQUAD1  656     101     656     657     678     677     .0                      \r\nCQUAD1  657     101     657     658     679     678     .0                      \r\nCQUAD1  658     101     658     659     680     679     .0                      \r\nCQUAD1  659     101     659     660     681     680     .0                      \r\nCQUAD1  660     101     660     661     682     681     .0                      \r\nCQUAD1  661     101     661     662     683     682     .0                      \r\nCQUAD1  662     101     662     663     684     683     .0                      \r\nCQUAD1  663     101     663     664     685     684     .0                      \r\nCQUAD1  664     101     664     665     686     685     .0                      \r\nCQUAD1  665     101     665     666     687     686     .0                      \r\nCQUAD1  666     101     666     667     688     687     .0                      \r\nCQUAD1  667     101     667     668     689     688     .0                      \r\nCQUAD1  668     101     668     669     690     689     .0                      \r\nCQUAD1  669     101     669     670     691     690     .0                      \r\nCQUAD1  670     101     670     671     692     691     .0                      \r\nCQUAD1  671     101     671     672     693     692     .0                      \r\nCQUAD1  673     101     673     674     695     694     .0                      \r\nCQUAD1  674     101     674     675     696     695     .0                      \r\nCQUAD1  675     101     675     676     697     696     .0                      \r\nCQUAD1  676     101     676     677     698     697     .0                      \r\nCQUAD1  677     101     677     678     699     698     .0                      \r\nCQUAD1  678     101     678     679     700     699     .0                      \r\nCQUAD1  679     101     679     680     701     700     .0                      \r\nCQUAD1  680     101     680     681     702     701     .0                      \r\nCQUAD1  681     101     681     682     703     702     .0                      \r\nCQUAD1  682     101     682     683     704     703     .0                      \r\nCQUAD1  683     101     683     684     705     704     .0                      \r\nCQUAD1  684     101     684     685     706     705     .0                      \r\nCQUAD1  685     101     685     686     707     706     .0                      \r\nCQUAD1  686     101     686     687     708     707     .0                      \r\nCQUAD1  687     101     687     688     709     708     .0                      \r\nCQUAD1  688     101     688     689     710     709     .0                      \r\nCQUAD1  689     101     689     690     711     710     .0                      \r\nCQUAD1  690     101     690     691     712     711     .0                      \r\nCQUAD1  691     101     691     692     713     712     .0                      \r\nCQUAD1  692     101     692     693     714     713     .0                      \r\nCQUAD1  694     101     694     695     716     715     .0                      \r\nCQUAD1  695     101     695     696     717     716     .0                      \r\nCQUAD1  696     101     696     697     718     717     .0                      \r\nCQUAD1  697     101     697     698     719     718     .0                      \r\nCQUAD1  698     101     698     699     720     719     .0                      \r\nCQUAD1  699     101     699     700     721     720     .0                      \r\nCQUAD1  700     101     700     701     722     721     .0                      \r\nCQUAD1  701     101     701     702     723     722     .0                      \r\nCQUAD1  702     101     702     703     724     723     .0                      \r\nCQUAD1  703     101     703     704     725     724     .0                      \r\nCQUAD1  704     101     704     705     726     725     .0                      \r\nCQUAD1  705     101     705     706     727     726     .0                      \r\nCQUAD1  706     101     706     707     728     727     .0                      \r\nCQUAD1  707     101     707     708     729     728     .0                      \r\nCQUAD1  708     101     708     709     730     729     .0                      \r\nCQUAD1  709     101     709     710     731     730     .0                      \r\nCQUAD1  710     101     710     711     732     731     .0                      \r\nCQUAD1  711     101     711     712     733     732     .0                      \r\nCQUAD1  712     101     712     713     734     733     .0                      \r\nCQUAD1  713     101     713     714     735     734     .0                      \r\nCQUAD1  715     101     715     716     737     736     .0                      \r\nCQUAD1  716     101     716     717     738     737     .0                      \r\nCQUAD1  717     101     717     718     739     738     .0                      \r\nCQUAD1  718     101     718     719     740     739     .0                      \r\nCQUAD1  719     101     719     720     741     740     .0                      \r\nCQUAD1  720     101     720     721     742     741     .0                      \r\nCQUAD1  721     101     721     722     743     742     .0                      \r\nCQUAD1  722     101     722     723     744     743     .0                      \r\nCQUAD1  723     101     723     724     745     744     .0                      \r\nCQUAD1  724     101     724     725     746     745     .0                      \r\nCQUAD1  725     101     725     726     747     746     .0                      \r\nCQUAD1  726     101     726     727     748     747     .0                      \r\nCQUAD1  727     101     727     728     749     748     .0                      \r\nCQUAD1  728     101     728     729     750     749     .0                      \r\nCQUAD1  729     101     729     730     751     750     .0                      \r\nCQUAD1  730     101     730     731     752     751     .0                      \r\nCQUAD1  731     101     731     732     753     752     .0                      \r\nCQUAD1  732     101     732     733     754     753     .0                      \r\nCQUAD1  733     101     733     734     755     754     .0                      \r\nCQUAD1  734     101     734     735     756     755     .0                      \r\nCQUAD1  736     101     736     737     758     757     .0                      \r\nCQUAD1  737     101     737     738     759     758     .0                      \r\nCQUAD1  738     101     738     739     760     759     .0                      \r\nCQUAD1  739     101     739     740     761     760     .0                      \r\nCQUAD1  740     101     740     741     762     761     .0                      \r\nCQUAD1  741     101     741     742     763     762     .0                      \r\nCQUAD1  742     101     742     743     764     763     .0                      \r\nCQUAD1  743     101     743     744     765     764     .0                      \r\nCQUAD1  744     101     744     745     766     765     .0                      \r\nCQUAD1  745     101     745     746     767     766     .0                      \r\nCQUAD1  746     101     746     747     768     767     .0                      \r\nCQUAD1  747     101     747     748     769     768     .0                      \r\nCQUAD1  748     101     748     749     770     769     .0                      \r\nCQUAD1  749     101     749     750     771     770     .0                      \r\nCQUAD1  750     101     750     751     772     771     .0                      \r\nCQUAD1  751     101     751     752     773     772     .0                      \r\nCQUAD1  752     101     752     753     774     773     .0                      \r\nCQUAD1  753     101     753     754     775     774     .0                      \r\nCQUAD1  754     101     754     755     776     775     .0                      \r\nCQUAD1  755     101     755     756     777     776     .0                      \r\nCQUAD1  757     101     757     758     779     778     .0                      \r\nCQUAD1  758     101     758     759     780     779     .0                      \r\nCQUAD1  759     101     759     760     781     780     .0                      \r\nCQUAD1  760     101     760     761     782     781     .0                      \r\nCQUAD1  761     101     761     762     783     782     .0                      \r\nCQUAD1  762     101     762     763     784     783     .0                      \r\nCQUAD1  763     101     763     764     785     784     .0                      \r\nCQUAD1  764     101     764     765     786     785     .0                      \r\nCQUAD1  765     101     765     766     787     786     .0                      \r\nCQUAD1  766     101     766     767     788     787     .0                      \r\nCQUAD1  767     101     767     768     789     788     .0                      \r\nCQUAD1  768     101     768     769     790     789     .0                      \r\nCQUAD1  769     101     769     770     791     790     .0                      \r\nCQUAD1  770     101     770     771     792     791     .0                      \r\nCQUAD1  771     101     771     772     793     792     .0                      \r\nCQUAD1  772     101     772     773     794     793     .0                      \r\nCQUAD1  773     101     773     774     795     794     .0                      \r\nCQUAD1  774     101     774     775     796     795     .0                      \r\nCQUAD1  775     101     775     776     797     796     .0                      \r\nCQUAD1  776     101     776     777     798     797     .0                      \r\nCQUAD1  778     101     778     779     800     799     .0                      \r\nCQUAD1  779     101     779     780     801     800     .0                      \r\nCQUAD1  780     101     780     781     802     801     .0                      \r\nCQUAD1  781     101     781     782     803     802     .0                      \r\nCQUAD1  782     101     782     783     804     803     .0                      \r\nCQUAD1  783     101     783     784     805     804     .0                      \r\nCQUAD1  784     101     784     785     806     805     .0                      \r\nCQUAD1  785     101     785     786     807     806     .0                      \r\nCQUAD1  786     101     786     787     808     807     .0                      \r\nCQUAD1  787     101     787     788     809     808     .0                      \r\nCQUAD1  788     101     788     789     810     809     .0                      \r\nCQUAD1  789     101     789     790     811     810     .0                      \r\nCQUAD1  790     101     790     791     812     811     .0                      \r\nCQUAD1  791     101     791     792     813     812     .0                      \r\nCQUAD1  792     101     792     793     814     813     .0                      \r\nCQUAD1  793     101     793     794     815     814     .0                      \r\nCQUAD1  794     101     794     795     816     815     .0                      \r\nCQUAD1  795     101     795     796     817     816     .0                      \r\nCQUAD1  796     101     796     797     818     817     .0                      \r\nCQUAD1  797     101     797     798     819     818     .0                      \r\nCQUAD1  799     101     799     800     821     820     .0                      \r\nCQUAD1  800     101     800     801     822     821     .0                      \r\nCQUAD1  801     101     801     802     823     822     .0                      \r\nCQUAD1  802     101     802     803     824     823     .0                      \r\nCQUAD1  803     101     803     804     825     824     .0                      \r\nCQUAD1  804     101     804     805     826     825     .0                      \r\nCQUAD1  805     101     805     806     827     826     .0                      \r\nCQUAD1  806     101     806     807     828     827     .0                      \r\nCQUAD1  807     101     807     808     829     828     .0                      \r\nCQUAD1  808     101     808     809     830     829     .0                      \r\nCQUAD1  809     101     809     810     831     830     .0                      \r\nCQUAD1  810     101     810     811     832     831     .0                      \r\nCQUAD1  811     101     811     812     833     832     .0                      \r\nCQUAD1  812     101     812     813     834     833     .0                      \r\nCQUAD1  813     101     813     814     835     834     .0                      \r\nCQUAD1  814     101     814     815     836     835     .0                      \r\nCQUAD1  815     101     815     816     837     836     .0                      \r\nCQUAD1  816     101     816     817     838     837     .0                      \r\nCQUAD1  817     101     817     818     839     838     .0                      \r\nCQUAD1  818     101     818     819     840     839     .0                      \r\nCQUAD1  820     101     820     821     842     841     .0                      \r\nCQUAD1  821     101     821     822     843     842     .0                      \r\nCQUAD1  822     101     822     823     844     843     .0                      \r\nCQUAD1  823     101     823     824     845     844     .0                      \r\nCQUAD1  824     101     824     825     846     845     .0                      \r\nCQUAD1  825     101     825     826     847     846     .0                      \r\nCQUAD1  826     101     826     827     848     847     .0                      \r\nCQUAD1  827     101     827     828     849     848     .0                      \r\nCQUAD1  828     101     828     829     850     849     .0                      \r\nCQUAD1  829     101     829     830     851     850     .0                      \r\nCQUAD1  830     101     830     831     852     851     .0                      \r\nCQUAD1  831     101     831     832     853     852     .0                      \r\nCQUAD1  832     101     832     833     854     853     .0                      \r\nCQUAD1  833     101     833     834     855     854     .0                      \r\nCQUAD1  834     101     834     835     856     855     .0                      \r\nCQUAD1  835     101     835     836     857     856     .0                      \r\nCQUAD1  836     101     836     837     858     857     .0                      \r\nCQUAD1  837     101     837     838     859     858     .0                      \r\nCQUAD1  838     101     838     839     860     859     .0                      \r\nCQUAD1  839     101     839     840     861     860     .0                      \r\nEIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n+SIMPL-IMAX                                                                     \r\nEIGR    3       INV     .89     1.0     1       3       0               +EIG3-I \r\n+EIG3-I MAX                                                                     \r\nEIGR    4       DET     .89     1.0     1       1       0               +EIG4-D \r\n+EIG4-D MAX                                                                     \r\nEIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n+EIG5-2 MAX                                                                     \r\nEIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n+EIG6-2 MAX                                                                     \r\nEIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n+EIG7-5 MAX                                                                     \r\nEIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n+EIG9-10MAX                                                                     \r\nEIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n+EIG1120MAX                                                                     \r\nEIGR    20      FEER    .87                     1                       +FEER   \r\n+FEER   MAX                                                                     \r\nGRDSET                                                  126                     \r\nGRID    1       0       .0      .0      .0      0       126                     \r\nGRID    2       0       .5      .0      .0      0       126                     \r\nGRID    3       0       1.0     .0      .0      0       126                     \r\nGRID    4       0       1.5     .0      .0      0       126                     \r\nGRID    5       0       2.0     .0      .0      0       126                     \r\nGRID    6       0       2.5     .0      .0      0       126                     \r\nGRID    7       0       3.0     .0      .0      0       126                     \r\nGRID    8       0       3.5     .0      .0      0       126                     \r\nGRID    9       0       4.0     .0      .0      0       126                     \r\nGRID    10      0       4.5     .0      .0      0       126                     \r\nGRID    11      0       5.0     .0      .0      0       126                     \r\nGRID    12      0       5.5     .0      .0      0       126                     \r\nGRID    13      0       6.0     .0      .0      0       126                     \r\nGRID    14      0       6.5     .0      .0      0       126                     \r\nGRID    15      0       7.0     .0      .0      0       126                     \r\nGRID    16      0       7.5     .0      .0      0       126                     \r\nGRID    17      0       8.0     .0      .0      0       126                     \r\nGRID    18      0       8.5     .0      .0      0       126                     \r\nGRID    19      0       9.0     .0      .0      0       126                     \r\nGRID    20      0       9.5     .0      .0      0       126                     \r\nGRID    21      0       10.0    .0      .0      0       126                     \r\nGRID    22      0       .0      .5      .0      0       126                     \r\nGRID    23      0       .5      .5      .0      0       126                     \r\nGRID    24      0       1.0     .5      .0      0       126                     \r\nGRID    25      0       1.5     .5      .0      0       126                     \r\nGRID    26      0       2.0     .5      .0      0       126                     \r\nGRID    27      0       2.5     .5      .0      0       126                     \r\nGRID    28      0       3.0     .5      .0      0       126                     \r\nGRID    29      0       3.5     .5      .0      0       126                     \r\nGRID    30      0       4.0     .5      .0      0       126                     \r\nGRID    31      0       4.5     .5      .0      0       126                     \r\nGRID    32      0       5.0     .5      .0      0       126                     \r\nGRID    33      0       5.5     .5      .0      0       126                     \r\nGRID    34      0       6.0     .5      .0      0       126                     \r\nGRID    35      0       6.5     .5      .0      0       126                     \r\nGRID    36      0       7.0     .5      .0      0       126                     \r\nGRID    37      0       7.5     .5      .0      0       126                     \r\nGRID    38      0       8.0     .5      .0      0       126                     \r\nGRID    39      0       8.5     .5      .0      0       126                     \r\nGRID    40      0       9.0     .5      .0      0       126                     \r\nGRID    41      0       9.5     .5      .0      0       126                     \r\nGRID    42      0       10.0    .5      .0      0       126                     \r\nGRID    43      0       .0      1.0     .0      0       126                     \r\nGRID    44      0       .5      1.0     .0      0       126                     \r\nGRID    45      0       1.0     1.0     .0      0       126                     \r\nGRID    46      0       1.5     1.0     .0      0       126                     \r\nGRID    47      0       2.0     1.0     .0      0       126                     \r\nGRID    48      0       2.5     1.0     .0      0       126                     \r\nGRID    49      0       3.0     1.0     .0      0       126                     \r\nGRID    50      0       3.5     1.0     .0      0       126                     \r\nGRID    51      0       4.0     1.0     .0      0       126                     \r\nGRID    52      0       4.5     1.0     .0      0       126                     \r\nGRID    53      0       5.0     1.0     .0      0       126                     \r\nGRID    54      0       5.5     1.0     .0      0       126                     \r\nGRID    55      0       6.0     1.0     .0      0       126                     \r\nGRID    56      0       6.5     1.0     .0      0       126                     \r\nGRID    57      0       7.0     1.0     .0      0       126                     \r\nGRID    58      0       7.5     1.0     .0      0       126                     \r\nGRID    59      0       8.0     1.0     .0      0       126                     \r\nGRID    60      0       8.5     1.0     .0      0       126                     \r\nGRID    61      0       9.0     1.0     .0      0       126                     \r\nGRID    62      0       9.5     1.0     .0      0       126                     \r\nGRID    63      0       10.0    1.0     .0      0       126                     \r\nGRID    64      0       .0      1.5     .0      0       126                     \r\nGRID    65      0       .5      1.5     .0      0       126                     \r\nGRID    66      0       1.0     1.5     .0      0       126                     \r\nGRID    67      0       1.5     1.5     .0      0       126                     \r\nGRID    68      0       2.0     1.5     .0      0       126                     \r\nGRID    69      0       2.5     1.5     .0      0       126                     \r\nGRID    70      0       3.0     1.5     .0      0       126                     \r\nGRID    71      0       3.5     1.5     .0      0       126                     \r\nGRID    72      0       4.0     1.5     .0      0       126                     \r\nGRID    73      0       4.5     1.5     .0      0       126                     \r\nGRID    74      0       5.0     1.5     .0      0       126                     \r\nGRID    75      0       5.5     1.5     .0      0       126                     \r\nGRID    76      0       6.0     1.5     .0      0       126                     \r\nGRID    77      0       6.5     1.5     .0      0       126                     \r\nGRID    78      0       7.0     1.5     .0      0       126                     \r\nGRID    79      0       7.5     1.5     .0      0       126                     \r\nGRID    80      0       8.0     1.5     .0      0       126                     \r\nGRID    81      0       8.5     1.5     .0      0       126                     \r\nGRID    82      0       9.0     1.5     .0      0       126                     \r\nGRID    83      0       9.5     1.5     .0      0       126                     \r\nGRID    84      0       10.0    1.5     .0      0       126                     \r\nGRID    85      0       .0      2.0     .0      0       126                     \r\nGRID    86      0       .5      2.0     .0      0       126                     \r\nGRID    87      0       1.0     2.0     .0      0       126                     \r\nGRID    88      0       1.5     2.0     .0      0       126                     \r\nGRID    89      0       2.0     2.0     .0      0       126                     \r\nGRID    90      0       2.5     2.0     .0      0       126                     \r\nGRID    91      0       3.0     2.0     .0      0       126                     \r\nGRID    92      0       3.5     2.0     .0      0       126                     \r\nGRID    93      0       4.0     2.0     .0      0       126                     \r\nGRID    94      0       4.5     2.0     .0      0       126                     \r\nGRID    95      0       5.0     2.0     .0      0       126                     \r\nGRID    96      0       5.5     2.0     .0      0       126                     \r\nGRID    97      0       6.0     2.0     .0      0       126                     \r\nGRID    98      0       6.5     2.0     .0      0       126                     \r\nGRID    99      0       7.0     2.0     .0      0       126                     \r\nGRID    100     0       7.5     2.0     .0      0       126                     \r\nGRID    101     0       8.0     2.0     .0      0       126                     \r\nGRID    102     0       8.5     2.0     .0      0       126                     \r\nGRID    103     0       9.0     2.0     .0      0       126                     \r\nGRID    104     0       9.5     2.0     .0      0       126                     \r\nGRID    105     0       10.0    2.0     .0      0       126                     \r\nGRID    106     0       .0      2.5     .0      0       126                     \r\nGRID    107     0       .5      2.5     .0      0       126                     \r\nGRID    108     0       1.0     2.5     .0      0       126                     \r\nGRID    109     0       1.5     2.5     .0      0       126                     \r\nGRID    110     0       2.0     2.5     .0      0       126                     \r\nGRID    111     0       2.5     2.5     .0      0       126                     \r\nGRID    112     0       3.0     2.5     .0      0       126                     \r\nGRID    113     0       3.5     2.5     .0      0       126                     \r\nGRID    114     0       4.0     2.5     .0      0       126                     \r\nGRID    115     0       4.5     2.5     .0      0       126                     \r\nGRID    116     0       5.0     2.5     .0      0       126                     \r\nGRID    117     0       5.5     2.5     .0      0       126                     \r\nGRID    118     0       6.0     2.5     .0      0       126                     \r\nGRID    119     0       6.5     2.5     .0      0       126                     \r\nGRID    120     0       7.0     2.5     .0      0       126                     \r\nGRID    121     0       7.5     2.5     .0      0       126                     \r\nGRID    122     0       8.0     2.5     .0      0       126                     \r\nGRID    123     0       8.5     2.5     .0      0       126                     \r\nGRID    124     0       9.0     2.5     .0      0       126                     \r\nGRID    125     0       9.5     2.5     .0      0       126                     \r\nGRID    126     0       10.0    2.5     .0      0       126                     \r\nGRID    127     0       .0      3.0     .0      0       126                     \r\nGRID    128     0       .5      3.0     .0      0       126                     \r\nGRID    129     0       1.0     3.0     .0      0       126                     \r\nGRID    130     0       1.5     3.0     .0      0       126                     \r\nGRID    131     0       2.0     3.0     .0      0       126                     \r\nGRID    132     0       2.5     3.0     .0      0       126                     \r\nGRID    133     0       3.0     3.0     .0      0       126                     \r\nGRID    134     0       3.5     3.0     .0      0       126                     \r\nGRID    135     0       4.0     3.0     .0      0       126                     \r\nGRID    136     0       4.5     3.0     .0      0       126                     \r\nGRID    137     0       5.0     3.0     .0      0       126                     \r\nGRID    138     0       5.5     3.0     .0      0       126                     \r\nGRID    139     0       6.0     3.0     .0      0       126                     \r\nGRID    140     0       6.5     3.0     .0      0       126                     \r\nGRID    141     0       7.0     3.0     .0      0       126                     \r\nGRID    142     0       7.5     3.0     .0      0       126                     \r\nGRID    143     0       8.0     3.0     .0      0       126                     \r\nGRID    144     0       8.5     3.0     .0      0       126                     \r\nGRID    145     0       9.0     3.0     .0      0       126                     \r\nGRID    146     0       9.5     3.0     .0      0       126                     \r\nGRID    147     0       10.0    3.0     .0      0       126                     \r\nGRID    148     0       .0      3.5     .0      0       126                     \r\nGRID    149     0       .5      3.5     .0      0       126                     \r\nGRID    150     0       1.0     3.5     .0      0       126                     \r\nGRID    151     0       1.5     3.5     .0      0       126                     \r\nGRID    152     0       2.0     3.5     .0      0       126                     \r\nGRID    153     0       2.5     3.5     .0      0       126                     \r\nGRID    154     0       3.0     3.5     .0      0       126                     \r\nGRID    155     0       3.5     3.5     .0      0       126                     \r\nGRID    156     0       4.0     3.5     .0      0       126                     \r\nGRID    157     0       4.5     3.5     .0      0       126                     \r\nGRID    158     0       5.0     3.5     .0      0       126                     \r\nGRID    159     0       5.5     3.5     .0      0       126                     \r\nGRID    160     0       6.0     3.5     .0      0       126                     \r\nGRID    161     0       6.5     3.5     .0      0       126                     \r\nGRID    162     0       7.0     3.5     .0      0       126                     \r\nGRID    163     0       7.5     3.5     .0      0       126                     \r\nGRID    164     0       8.0     3.5     .0      0       126                     \r\nGRID    165     0       8.5     3.5     .0      0       126                     \r\nGRID    166     0       9.0     3.5     .0      0       126                     \r\nGRID    167     0       9.5     3.5     .0      0       126                     \r\nGRID    168     0       10.0    3.5     .0      0       126                     \r\nGRID    169     0       .0      4.0     .0      0       126                     \r\nGRID    170     0       .5      4.0     .0      0       126                     \r\nGRID    171     0       1.0     4.0     .0      0       126                     \r\nGRID    172     0       1.5     4.0     .0      0       126                     \r\nGRID    173     0       2.0     4.0     .0      0       126                     \r\nGRID    174     0       2.5     4.0     .0      0       126                     \r\nGRID    175     0       3.0     4.0     .0      0       126                     \r\nGRID    176     0       3.5     4.0     .0      0       126                     \r\nGRID    177     0       4.0     4.0     .0      0       126                     \r\nGRID    178     0       4.5     4.0     .0      0       126                     \r\nGRID    179     0       5.0     4.0     .0      0       126                     \r\nGRID    180     0       5.5     4.0     .0      0       126                     \r\nGRID    181     0       6.0     4.0     .0      0       126                     \r\nGRID    182     0       6.5     4.0     .0      0       126                     \r\nGRID    183     0       7.0     4.0     .0      0       126                     \r\nGRID    184     0       7.5     4.0     .0      0       126                     \r\nGRID    185     0       8.0     4.0     .0      0       126                     \r\nGRID    186     0       8.5     4.0     .0      0       126                     \r\nGRID    187     0       9.0     4.0     .0      0       126                     \r\nGRID    188     0       9.5     4.0     .0      0       126                     \r\nGRID    189     0       10.0    4.0     .0      0       126                     \r\nGRID    190     0       .0      4.5     .0      0       126                     \r\nGRID    191     0       .5      4.5     .0      0       126                     \r\nGRID    192     0       1.0     4.5     .0      0       126                     \r\nGRID    193     0       1.5     4.5     .0      0       126                     \r\nGRID    194     0       2.0     4.5     .0      0       126                     \r\nGRID    195     0       2.5     4.5     .0      0       126                     \r\nGRID    196     0       3.0     4.5     .0      0       126                     \r\nGRID    197     0       3.5     4.5     .0      0       126                     \r\nGRID    198     0       4.0     4.5     .0      0       126                     \r\nGRID    199     0       4.5     4.5     .0      0       126                     \r\nGRID    200     0       5.0     4.5     .0      0       126                     \r\nGRID    201     0       5.5     4.5     .0      0       126                     \r\nGRID    202     0       6.0     4.5     .0      0       126                     \r\nGRID    203     0       6.5     4.5     .0      0       126                     \r\nGRID    204     0       7.0     4.5     .0      0       126                     \r\nGRID    205     0       7.5     4.5     .0      0       126                     \r\nGRID    206     0       8.0     4.5     .0      0       126                     \r\nGRID    207     0       8.5     4.5     .0      0       126                     \r\nGRID    208     0       9.0     4.5     .0      0       126                     \r\nGRID    209     0       9.5     4.5     .0      0       126                     \r\nGRID    210     0       10.0    4.5     .0      0       126                     \r\nGRID    211     0       .0      5.0     .0      0       126                     \r\nGRID    212     0       .5      5.0     .0      0       126                     \r\nGRID    213     0       1.0     5.0     .0      0       126                     \r\nGRID    214     0       1.5     5.0     .0      0       126                     \r\nGRID    215     0       2.0     5.0     .0      0       126                     \r\nGRID    216     0       2.5     5.0     .0      0       126                     \r\nGRID    217     0       3.0     5.0     .0      0       126                     \r\nGRID    218     0       3.5     5.0     .0      0       126                     \r\nGRID    219     0       4.0     5.0     .0      0       126                     \r\nGRID    220     0       4.5     5.0     .0      0       126                     \r\nGRID    221     0       5.0     5.0     .0      0       126                     \r\nGRID    222     0       5.5     5.0     .0      0       126                     \r\nGRID    223     0       6.0     5.0     .0      0       126                     \r\nGRID    224     0       6.5     5.0     .0      0       126                     \r\nGRID    225     0       7.0     5.0     .0      0       126                     \r\nGRID    226     0       7.5     5.0     .0      0       126                     \r\nGRID    227     0       8.0     5.0     .0      0       126                     \r\nGRID    228     0       8.5     5.0     .0      0       126                     \r\nGRID    229     0       9.0     5.0     .0      0       126                     \r\nGRID    230     0       9.5     5.0     .0      0       126                     \r\nGRID    231     0       10.0    5.0     .0      0       126                     \r\nGRID    232     0       .0      5.5     .0      0       126                     \r\nGRID    233     0       .5      5.5     .0      0       126                     \r\nGRID    234     0       1.0     5.5     .0      0       126                     \r\nGRID    235     0       1.5     5.5     .0      0       126                     \r\nGRID    236     0       2.0     5.5     .0      0       126                     \r\nGRID    237     0       2.5     5.5     .0      0       126                     \r\nGRID    238     0       3.0     5.5     .0      0       126                     \r\nGRID    239     0       3.5     5.5     .0      0       126                     \r\nGRID    240     0       4.0     5.5     .0      0       126                     \r\nGRID    241     0       4.5     5.5     .0      0       126                     \r\nGRID    242     0       5.0     5.5     .0      0       126                     \r\nGRID    243     0       5.5     5.5     .0      0       126                     \r\nGRID    244     0       6.0     5.5     .0      0       126                     \r\nGRID    245     0       6.5     5.5     .0      0       126                     \r\nGRID    246     0       7.0     5.5     .0      0       126                     \r\nGRID    247     0       7.5     5.5     .0      0       126                     \r\nGRID    248     0       8.0     5.5     .0      0       126                     \r\nGRID    249     0       8.5     5.5     .0      0       126                     \r\nGRID    250     0       9.0     5.5     .0      0       126                     \r\nGRID    251     0       9.5     5.5     .0      0       126                     \r\nGRID    252     0       10.0    5.5     .0      0       126                     \r\nGRID    253     0       .0      6.0     .0      0       126                     \r\nGRID    254     0       .5      6.0     .0      0       126                     \r\nGRID    255     0       1.0     6.0     .0      0       126                     \r\nGRID    256     0       1.5     6.0     .0      0       126                     \r\nGRID    257     0       2.0     6.0     .0      0       126                     \r\nGRID    258     0       2.5     6.0     .0      0       126                     \r\nGRID    259     0       3.0     6.0     .0      0       126                     \r\nGRID    260     0       3.5     6.0     .0      0       126                     \r\nGRID    261     0       4.0     6.0     .0      0       126                     \r\nGRID    262     0       4.5     6.0     .0      0       126                     \r\nGRID    263     0       5.0     6.0     .0      0       126                     \r\nGRID    264     0       5.5     6.0     .0      0       126                     \r\nGRID    265     0       6.0     6.0     .0      0       126                     \r\nGRID    266     0       6.5     6.0     .0      0       126                     \r\nGRID    267     0       7.0     6.0     .0      0       126                     \r\nGRID    268     0       7.5     6.0     .0      0       126                     \r\nGRID    269     0       8.0     6.0     .0      0       126                     \r\nGRID    270     0       8.5     6.0     .0      0       126                     \r\nGRID    271     0       9.0     6.0     .0      0       126                     \r\nGRID    272     0       9.5     6.0     .0      0       126                     \r\nGRID    273     0       10.0    6.0     .0      0       126                     \r\nGRID    274     0       .0      6.5     .0      0       126                     \r\nGRID    275     0       .5      6.5     .0      0       126                     \r\nGRID    276     0       1.0     6.5     .0      0       126                     \r\nGRID    277     0       1.5     6.5     .0      0       126                     \r\nGRID    278     0       2.0     6.5     .0      0       126                     \r\nGRID    279     0       2.5     6.5     .0      0       126                     \r\nGRID    280     0       3.0     6.5     .0      0       126                     \r\nGRID    281     0       3.5     6.5     .0      0       126                     \r\nGRID    282     0       4.0     6.5     .0      0       126                     \r\nGRID    283     0       4.5     6.5     .0      0       126                     \r\nGRID    284     0       5.0     6.5     .0      0       126                     \r\nGRID    285     0       5.5     6.5     .0      0       126                     \r\nGRID    286     0       6.0     6.5     .0      0       126                     \r\nGRID    287     0       6.5     6.5     .0      0       126                     \r\nGRID    288     0       7.0     6.5     .0      0       126                     \r\nGRID    289     0       7.5     6.5     .0      0       126                     \r\nGRID    290     0       8.0     6.5     .0      0       126                     \r\nGRID    291     0       8.5     6.5     .0      0       126                     \r\nGRID    292     0       9.0     6.5     .0      0       126                     \r\nGRID    293     0       9.5     6.5     .0      0       126                     \r\nGRID    294     0       10.0    6.5     .0      0       126                     \r\nGRID    295     0       .0      7.0     .0      0       126                     \r\nGRID    296     0       .5      7.0     .0      0       126                     \r\nGRID    297     0       1.0     7.0     .0      0       126                     \r\nGRID    298     0       1.5     7.0     .0      0       126                     \r\nGRID    299     0       2.0     7.0     .0      0       126                     \r\nGRID    300     0       2.5     7.0     .0      0       126                     \r\nGRID    301     0       3.0     7.0     .0      0       126                     \r\nGRID    302     0       3.5     7.0     .0      0       126                     \r\nGRID    303     0       4.0     7.0     .0      0       126                     \r\nGRID    304     0       4.5     7.0     .0      0       126                     \r\nGRID    305     0       5.0     7.0     .0      0       126                     \r\nGRID    306     0       5.5     7.0     .0      0       126                     \r\nGRID    307     0       6.0     7.0     .0      0       126                     \r\nGRID    308     0       6.5     7.0     .0      0       126                     \r\nGRID    309     0       7.0     7.0     .0      0       126                     \r\nGRID    310     0       7.5     7.0     .0      0       126                     \r\nGRID    311     0       8.0     7.0     .0      0       126                     \r\nGRID    312     0       8.5     7.0     .0      0       126                     \r\nGRID    313     0       9.0     7.0     .0      0       126                     \r\nGRID    314     0       9.5     7.0     .0      0       126                     \r\nGRID    315     0       10.0    7.0     .0      0       126                     \r\nGRID    316     0       .0      7.5     .0      0       126                     \r\nGRID    317     0       .5      7.5     .0      0       126                     \r\nGRID    318     0       1.0     7.5     .0      0       126                     \r\nGRID    319     0       1.5     7.5     .0      0       126                     \r\nGRID    320     0       2.0     7.5     .0      0       126                     \r\nGRID    321     0       2.5     7.5     .0      0       126                     \r\nGRID    322     0       3.0     7.5     .0      0       126                     \r\nGRID    323     0       3.5     7.5     .0      0       126                     \r\nGRID    324     0       4.0     7.5     .0      0       126                     \r\nGRID    325     0       4.5     7.5     .0      0       126                     \r\nGRID    326     0       5.0     7.5     .0      0       126                     \r\nGRID    327     0       5.5     7.5     .0      0       126                     \r\nGRID    328     0       6.0     7.5     .0      0       126                     \r\nGRID    329     0       6.5     7.5     .0      0       126                     \r\nGRID    330     0       7.0     7.5     .0      0       126                     \r\nGRID    331     0       7.5     7.5     .0      0       126                     \r\nGRID    332     0       8.0     7.5     .0      0       126                     \r\nGRID    333     0       8.5     7.5     .0      0       126                     \r\nGRID    334     0       9.0     7.5     .0      0       126                     \r\nGRID    335     0       9.5     7.5     .0      0       126                     \r\nGRID    336     0       10.0    7.5     .0      0       126                     \r\nGRID    337     0       .0      8.0     .0      0       126                     \r\nGRID    338     0       .5      8.0     .0      0       126                     \r\nGRID    339     0       1.0     8.0     .0      0       126                     \r\nGRID    340     0       1.5     8.0     .0      0       126                     \r\nGRID    341     0       2.0     8.0     .0      0       126                     \r\nGRID    342     0       2.5     8.0     .0      0       126                     \r\nGRID    343     0       3.0     8.0     .0      0       126                     \r\nGRID    344     0       3.5     8.0     .0      0       126                     \r\nGRID    345     0       4.0     8.0     .0      0       126                     \r\nGRID    346     0       4.5     8.0     .0      0       126                     \r\nGRID    347     0       5.0     8.0     .0      0       126                     \r\nGRID    348     0       5.5     8.0     .0      0       126                     \r\nGRID    349     0       6.0     8.0     .0      0       126                     \r\nGRID    350     0       6.5     8.0     .0      0       126                     \r\nGRID    351     0       7.0     8.0     .0      0       126                     \r\nGRID    352     0       7.5     8.0     .0      0       126                     \r\nGRID    353     0       8.0     8.0     .0      0       126                     \r\nGRID    354     0       8.5     8.0     .0      0       126                     \r\nGRID    355     0       9.0     8.0     .0      0       126                     \r\nGRID    356     0       9.5     8.0     .0      0       126                     \r\nGRID    357     0       10.0    8.0     .0      0       126                     \r\nGRID    358     0       .0      8.5     .0      0       126                     \r\nGRID    359     0       .5      8.5     .0      0       126                     \r\nGRID    360     0       1.0     8.5     .0      0       126                     \r\nGRID    361     0       1.5     8.5     .0      0       126                     \r\nGRID    362     0       2.0     8.5     .0      0       126                     \r\nGRID    363     0       2.5     8.5     .0      0       126                     \r\nGRID    364     0       3.0     8.5     .0      0       126                     \r\nGRID    365     0       3.5     8.5     .0      0       126                     \r\nGRID    366     0       4.0     8.5     .0      0       126                     \r\nGRID    367     0       4.5     8.5     .0      0       126                     \r\nGRID    368     0       5.0     8.5     .0      0       126                     \r\nGRID    369     0       5.5     8.5     .0      0       126                     \r\nGRID    370     0       6.0     8.5     .0      0       126                     \r\nGRID    371     0       6.5     8.5     .0      0       126                     \r\nGRID    372     0       7.0     8.5     .0      0       126                     \r\nGRID    373     0       7.5     8.5     .0      0       126                     \r\nGRID    374     0       8.0     8.5     .0      0       126                     \r\nGRID    375     0       8.5     8.5     .0      0       126                     \r\nGRID    376     0       9.0     8.5     .0      0       126                     \r\nGRID    377     0       9.5     8.5     .0      0       126                     \r\nGRID    378     0       10.0    8.5     .0      0       126                     \r\nGRID    379     0       .0      9.0     .0      0       126                     \r\nGRID    380     0       .5      9.0     .0      0       126                     \r\nGRID    381     0       1.0     9.0     .0      0       126                     \r\nGRID    382     0       1.5     9.0     .0      0       126                     \r\nGRID    383     0       2.0     9.0     .0      0       126                     \r\nGRID    384     0       2.5     9.0     .0      0       126                     \r\nGRID    385     0       3.0     9.0     .0      0       126                     \r\nGRID    386     0       3.5     9.0     .0      0       126                     \r\nGRID    387     0       4.0     9.0     .0      0       126                     \r\nGRID    388     0       4.5     9.0     .0      0       126                     \r\nGRID    389     0       5.0     9.0     .0      0       126                     \r\nGRID    390     0       5.5     9.0     .0      0       126                     \r\nGRID    391     0       6.0     9.0     .0      0       126                     \r\nGRID    392     0       6.5     9.0     .0      0       126                     \r\nGRID    393     0       7.0     9.0     .0      0       126                     \r\nGRID    394     0       7.5     9.0     .0      0       126                     \r\nGRID    395     0       8.0     9.0     .0      0       126                     \r\nGRID    396     0       8.5     9.0     .0      0       126                     \r\nGRID    397     0       9.0     9.0     .0      0       126                     \r\nGRID    398     0       9.5     9.0     .0      0       126                     \r\nGRID    399     0       10.0    9.0     .0      0       126                     \r\nGRID    400     0       .0      9.5     .0      0       126                     \r\nGRID    401     0       .5      9.5     .0      0       126                     \r\nGRID    402     0       1.0     9.5     .0      0       126                     \r\nGRID    403     0       1.5     9.5     .0      0       126                     \r\nGRID    404     0       2.0     9.5     .0      0       126                     \r\nGRID    405     0       2.5     9.5     .0      0       126                     \r\nGRID    406     0       3.0     9.5     .0      0       126                     \r\nGRID    407     0       3.5     9.5     .0      0       126                     \r\nGRID    408     0       4.0     9.5     .0      0       126                     \r\nGRID    409     0       4.5     9.5     .0      0       126                     \r\nGRID    410     0       5.0     9.5     .0      0       126                     \r\nGRID    411     0       5.5     9.5     .0      0       126                     \r\nGRID    412     0       6.0     9.5     .0      0       126                     \r\nGRID    413     0       6.5     9.5     .0      0       126                     \r\nGRID    414     0       7.0     9.5     .0      0       126                     \r\nGRID    415     0       7.5     9.5     .0      0       126                     \r\nGRID    416     0       8.0     9.5     .0      0       126                     \r\nGRID    417     0       8.5     9.5     .0      0       126                     \r\nGRID    418     0       9.0     9.5     .0      0       126                     \r\nGRID    419     0       9.5     9.5     .0      0       126                     \r\nGRID    420     0       10.0    9.5     .0      0       126                     \r\nGRID    421     0       .0      10.0    .0      0       126                     \r\nGRID    422     0       .5      10.0    .0      0       126                     \r\nGRID    423     0       1.0     10.0    .0      0       126                     \r\nGRID    424     0       1.5     10.0    .0      0       126                     \r\nGRID    425     0       2.0     10.0    .0      0       126                     \r\nGRID    426     0       2.5     10.0    .0      0       126                     \r\nGRID    427     0       3.0     10.0    .0      0       126                     \r\nGRID    428     0       3.5     10.0    .0      0       126                     \r\nGRID    429     0       4.0     10.0    .0      0       126                     \r\nGRID    430     0       4.5     10.0    .0      0       126                     \r\nGRID    431     0       5.0     10.0    .0      0       126                     \r\nGRID    432     0       5.5     10.0    .0      0       126                     \r\nGRID    433     0       6.0     10.0    .0      0       126                     \r\nGRID    434     0       6.5     10.0    .0      0       126                     \r\nGRID    435     0       7.0     10.0    .0      0       126                     \r\nGRID    436     0       7.5     10.0    .0      0       126                     \r\nGRID    437     0       8.0     10.0    .0      0       126                     \r\nGRID    438     0       8.5     10.0    .0      0       126                     \r\nGRID    439     0       9.0     10.0    .0      0       126                     \r\nGRID    440     0       9.5     10.0    .0      0       126                     \r\nGRID    441     0       10.0    10.0    .0      0       126                     \r\nGRID    442     0       .0      10.5    .0      0       126                     \r\nGRID    443     0       .5      10.5    .0      0       126                     \r\nGRID    444     0       1.0     10.5    .0      0       126                     \r\nGRID    445     0       1.5     10.5    .0      0       126                     \r\nGRID    446     0       2.0     10.5    .0      0       126                     \r\nGRID    447     0       2.5     10.5    .0      0       126                     \r\nGRID    448     0       3.0     10.5    .0      0       126                     \r\nGRID    449     0       3.5     10.5    .0      0       126                     \r\nGRID    450     0       4.0     10.5    .0      0       126                     \r\nGRID    451     0       4.5     10.5    .0      0       126                     \r\nGRID    452     0       5.0     10.5    .0      0       126                     \r\nGRID    453     0       5.5     10.5    .0      0       126                     \r\nGRID    454     0       6.0     10.5    .0      0       126                     \r\nGRID    455     0       6.5     10.5    .0      0       126                     \r\nGRID    456     0       7.0     10.5    .0      0       126                     \r\nGRID    457     0       7.5     10.5    .0      0       126                     \r\nGRID    458     0       8.0     10.5    .0      0       126                     \r\nGRID    459     0       8.5     10.5    .0      0       126                     \r\nGRID    460     0       9.0     10.5    .0      0       126                     \r\nGRID    461     0       9.5     10.5    .0      0       126                     \r\nGRID    462     0       10.0    10.5    .0      0       126                     \r\nGRID    463     0       .0      11.0    .0      0       126                     \r\nGRID    464     0       .5      11.0    .0      0       126                     \r\nGRID    465     0       1.0     11.0    .0      0       126                     \r\nGRID    466     0       1.5     11.0    .0      0       126                     \r\nGRID    467     0       2.0     11.0    .0      0       126                     \r\nGRID    468     0       2.5     11.0    .0      0       126                     \r\nGRID    469     0       3.0     11.0    .0      0       126                     \r\nGRID    470     0       3.5     11.0    .0      0       126                     \r\nGRID    471     0       4.0     11.0    .0      0       126                     \r\nGRID    472     0       4.5     11.0    .0      0       126                     \r\nGRID    473     0       5.0     11.0    .0      0       126                     \r\nGRID    474     0       5.5     11.0    .0      0       126                     \r\nGRID    475     0       6.0     11.0    .0      0       126                     \r\nGRID    476     0       6.5     11.0    .0      0       126                     \r\nGRID    477     0       7.0     11.0    .0      0       126                     \r\nGRID    478     0       7.5     11.0    .0      0       126                     \r\nGRID    479     0       8.0     11.0    .0      0       126                     \r\nGRID    480     0       8.5     11.0    .0      0       126                     \r\nGRID    481     0       9.0     11.0    .0      0       126                     \r\nGRID    482     0       9.5     11.0    .0      0       126                     \r\nGRID    483     0       10.0    11.0    .0      0       126                     \r\nGRID    484     0       .0      11.5    .0      0       126                     \r\nGRID    485     0       .5      11.5    .0      0       126                     \r\nGRID    486     0       1.0     11.5    .0      0       126                     \r\nGRID    487     0       1.5     11.5    .0      0       126                     \r\nGRID    488     0       2.0     11.5    .0      0       126                     \r\nGRID    489     0       2.5     11.5    .0      0       126                     \r\nGRID    490     0       3.0     11.5    .0      0       126                     \r\nGRID    491     0       3.5     11.5    .0      0       126                     \r\nGRID    492     0       4.0     11.5    .0      0       126                     \r\nGRID    493     0       4.5     11.5    .0      0       126                     \r\nGRID    494     0       5.0     11.5    .0      0       126                     \r\nGRID    495     0       5.5     11.5    .0      0       126                     \r\nGRID    496     0       6.0     11.5    .0      0       126                     \r\nGRID    497     0       6.5     11.5    .0      0       126                     \r\nGRID    498     0       7.0     11.5    .0      0       126                     \r\nGRID    499     0       7.5     11.5    .0      0       126                     \r\nGRID    500     0       8.0     11.5    .0      0       126                     \r\nGRID    501     0       8.5     11.5    .0      0       126                     \r\nGRID    502     0       9.0     11.5    .0      0       126                     \r\nGRID    503     0       9.5     11.5    .0      0       126                     \r\nGRID    504     0       10.0    11.5    .0      0       126                     \r\nGRID    505     0       .0      12.0    .0      0       126                     \r\nGRID    506     0       .5      12.0    .0      0       126                     \r\nGRID    507     0       1.0     12.0    .0      0       126                     \r\nGRID    508     0       1.5     12.0    .0      0       126                     \r\nGRID    509     0       2.0     12.0    .0      0       126                     \r\nGRID    510     0       2.5     12.0    .0      0       126                     \r\nGRID    511     0       3.0     12.0    .0      0       126                     \r\nGRID    512     0       3.5     12.0    .0      0       126                     \r\nGRID    513     0       4.0     12.0    .0      0       126                     \r\nGRID    514     0       4.5     12.0    .0      0       126                     \r\nGRID    515     0       5.0     12.0    .0      0       126                     \r\nGRID    516     0       5.5     12.0    .0      0       126                     \r\nGRID    517     0       6.0     12.0    .0      0       126                     \r\nGRID    518     0       6.5     12.0    .0      0       126                     \r\nGRID    519     0       7.0     12.0    .0      0       126                     \r\nGRID    520     0       7.5     12.0    .0      0       126                     \r\nGRID    521     0       8.0     12.0    .0      0       126                     \r\nGRID    522     0       8.5     12.0    .0      0       126                     \r\nGRID    523     0       9.0     12.0    .0      0       126                     \r\nGRID    524     0       9.5     12.0    .0      0       126                     \r\nGRID    525     0       10.0    12.0    .0      0       126                     \r\nGRID    526     0       .0      12.5    .0      0       126                     \r\nGRID    527     0       .5      12.5    .0      0       126                     \r\nGRID    528     0       1.0     12.5    .0      0       126                     \r\nGRID    529     0       1.5     12.5    .0      0       126                     \r\nGRID    530     0       2.0     12.5    .0      0       126                     \r\nGRID    531     0       2.5     12.5    .0      0       126                     \r\nGRID    532     0       3.0     12.5    .0      0       126                     \r\nGRID    533     0       3.5     12.5    .0      0       126                     \r\nGRID    534     0       4.0     12.5    .0      0       126                     \r\nGRID    535     0       4.5     12.5    .0      0       126                     \r\nGRID    536     0       5.0     12.5    .0      0       126                     \r\nGRID    537     0       5.5     12.5    .0      0       126                     \r\nGRID    538     0       6.0     12.5    .0      0       126                     \r\nGRID    539     0       6.5     12.5    .0      0       126                     \r\nGRID    540     0       7.0     12.5    .0      0       126                     \r\nGRID    541     0       7.5     12.5    .0      0       126                     \r\nGRID    542     0       8.0     12.5    .0      0       126                     \r\nGRID    543     0       8.5     12.5    .0      0       126                     \r\nGRID    544     0       9.0     12.5    .0      0       126                     \r\nGRID    545     0       9.5     12.5    .0      0       126                     \r\nGRID    546     0       10.0    12.5    .0      0       126                     \r\nGRID    547     0       .0      13.0    .0      0       126                     \r\nGRID    548     0       .5      13.0    .0      0       126                     \r\nGRID    549     0       1.0     13.0    .0      0       126                     \r\nGRID    550     0       1.5     13.0    .0      0       126                     \r\nGRID    551     0       2.0     13.0    .0      0       126                     \r\nGRID    552     0       2.5     13.0    .0      0       126                     \r\nGRID    553     0       3.0     13.0    .0      0       126                     \r\nGRID    554     0       3.5     13.0    .0      0       126                     \r\nGRID    555     0       4.0     13.0    .0      0       126                     \r\nGRID    556     0       4.5     13.0    .0      0       126                     \r\nGRID    557     0       5.0     13.0    .0      0       126                     \r\nGRID    558     0       5.5     13.0    .0      0       126                     \r\nGRID    559     0       6.0     13.0    .0      0       126                     \r\nGRID    560     0       6.5     13.0    .0      0       126                     \r\nGRID    561     0       7.0     13.0    .0      0       126                     \r\nGRID    562     0       7.5     13.0    .0      0       126                     \r\nGRID    563     0       8.0     13.0    .0      0       126                     \r\nGRID    564     0       8.5     13.0    .0      0       126                     \r\nGRID    565     0       9.0     13.0    .0      0       126                     \r\nGRID    566     0       9.5     13.0    .0      0       126                     \r\nGRID    567     0       10.0    13.0    .0      0       126                     \r\nGRID    568     0       .0      13.5    .0      0       126                     \r\nGRID    569     0       .5      13.5    .0      0       126                     \r\nGRID    570     0       1.0     13.5    .0      0       126                     \r\nGRID    571     0       1.5     13.5    .0      0       126                     \r\nGRID    572     0       2.0     13.5    .0      0       126                     \r\nGRID    573     0       2.5     13.5    .0      0       126                     \r\nGRID    574     0       3.0     13.5    .0      0       126                     \r\nGRID    575     0       3.5     13.5    .0      0       126                     \r\nGRID    576     0       4.0     13.5    .0      0       126                     \r\nGRID    577     0       4.5     13.5    .0      0       126                     \r\nGRID    578     0       5.0     13.5    .0      0       126                     \r\nGRID    579     0       5.5     13.5    .0      0       126                     \r\nGRID    580     0       6.0     13.5    .0      0       126                     \r\nGRID    581     0       6.5     13.5    .0      0       126                     \r\nGRID    582     0       7.0     13.5    .0      0       126                     \r\nGRID    583     0       7.5     13.5    .0      0       126                     \r\nGRID    584     0       8.0     13.5    .0      0       126                     \r\nGRID    585     0       8.5     13.5    .0      0       126                     \r\nGRID    586     0       9.0     13.5    .0      0       126                     \r\nGRID    587     0       9.5     13.5    .0      0       126                     \r\nGRID    588     0       10.0    13.5    .0      0       126                     \r\nGRID    589     0       .0      14.0    .0      0       126                     \r\nGRID    590     0       .5      14.0    .0      0       126                     \r\nGRID    591     0       1.0     14.0    .0      0       126                     \r\nGRID    592     0       1.5     14.0    .0      0       126                     \r\nGRID    593     0       2.0     14.0    .0      0       126                     \r\nGRID    594     0       2.5     14.0    .0      0       126                     \r\nGRID    595     0       3.0     14.0    .0      0       126                     \r\nGRID    596     0       3.5     14.0    .0      0       126                     \r\nGRID    597     0       4.0     14.0    .0      0       126                     \r\nGRID    598     0       4.5     14.0    .0      0       126                     \r\nGRID    599     0       5.0     14.0    .0      0       126                     \r\nGRID    600     0       5.5     14.0    .0      0       126                     \r\nGRID    601     0       6.0     14.0    .0      0       126                     \r\nGRID    602     0       6.5     14.0    .0      0       126                     \r\nGRID    603     0       7.0     14.0    .0      0       126                     \r\nGRID    604     0       7.5     14.0    .0      0       126                     \r\nGRID    605     0       8.0     14.0    .0      0       126                     \r\nGRID    606     0       8.5     14.0    .0      0       126                     \r\nGRID    607     0       9.0     14.0    .0      0       126                     \r\nGRID    608     0       9.5     14.0    .0      0       126                     \r\nGRID    609     0       10.0    14.0    .0      0       126                     \r\nGRID    610     0       .0      14.5    .0      0       126                     \r\nGRID    611     0       .5      14.5    .0      0       126                     \r\nGRID    612     0       1.0     14.5    .0      0       126                     \r\nGRID    613     0       1.5     14.5    .0      0       126                     \r\nGRID    614     0       2.0     14.5    .0      0       126                     \r\nGRID    615     0       2.5     14.5    .0      0       126                     \r\nGRID    616     0       3.0     14.5    .0      0       126                     \r\nGRID    617     0       3.5     14.5    .0      0       126                     \r\nGRID    618     0       4.0     14.5    .0      0       126                     \r\nGRID    619     0       4.5     14.5    .0      0       126                     \r\nGRID    620     0       5.0     14.5    .0      0       126                     \r\nGRID    621     0       5.5     14.5    .0      0       126                     \r\nGRID    622     0       6.0     14.5    .0      0       126                     \r\nGRID    623     0       6.5     14.5    .0      0       126                     \r\nGRID    624     0       7.0     14.5    .0      0       126                     \r\nGRID    625     0       7.5     14.5    .0      0       126                     \r\nGRID    626     0       8.0     14.5    .0      0       126                     \r\nGRID    627     0       8.5     14.5    .0      0       126                     \r\nGRID    628     0       9.0     14.5    .0      0       126                     \r\nGRID    629     0       9.5     14.5    .0      0       126                     \r\nGRID    630     0       10.0    14.5    .0      0       126                     \r\nGRID    631     0       .0      15.0    .0      0       126                     \r\nGRID    632     0       .5      15.0    .0      0       126                     \r\nGRID    633     0       1.0     15.0    .0      0       126                     \r\nGRID    634     0       1.5     15.0    .0      0       126                     \r\nGRID    635     0       2.0     15.0    .0      0       126                     \r\nGRID    636     0       2.5     15.0    .0      0       126                     \r\nGRID    637     0       3.0     15.0    .0      0       126                     \r\nGRID    638     0       3.5     15.0    .0      0       126                     \r\nGRID    639     0       4.0     15.0    .0      0       126                     \r\nGRID    640     0       4.5     15.0    .0      0       126                     \r\nGRID    641     0       5.0     15.0    .0      0       126                     \r\nGRID    642     0       5.5     15.0    .0      0       126                     \r\nGRID    643     0       6.0     15.0    .0      0       126                     \r\nGRID    644     0       6.5     15.0    .0      0       126                     \r\nGRID    645     0       7.0     15.0    .0      0       126                     \r\nGRID    646     0       7.5     15.0    .0      0       126                     \r\nGRID    647     0       8.0     15.0    .0      0       126                     \r\nGRID    648     0       8.5     15.0    .0      0       126                     \r\nGRID    649     0       9.0     15.0    .0      0       126                     \r\nGRID    650     0       9.5     15.0    .0      0       126                     \r\nGRID    651     0       10.0    15.0    .0      0       126                     \r\nGRID    652     0       .0      15.5    .0      0       126                     \r\nGRID    653     0       .5      15.5    .0      0       126                     \r\nGRID    654     0       1.0     15.5    .0      0       126                     \r\nGRID    655     0       1.5     15.5    .0      0       126                     \r\nGRID    656     0       2.0     15.5    .0      0       126                     \r\nGRID    657     0       2.5     15.5    .0      0       126                     \r\nGRID    658     0       3.0     15.5    .0      0       126                     \r\nGRID    659     0       3.5     15.5    .0      0       126                     \r\nGRID    660     0       4.0     15.5    .0      0       126                     \r\nGRID    661     0       4.5     15.5    .0      0       126                     \r\nGRID    662     0       5.0     15.5    .0      0       126                     \r\nGRID    663     0       5.5     15.5    .0      0       126                     \r\nGRID    664     0       6.0     15.5    .0      0       126                     \r\nGRID    665     0       6.5     15.5    .0      0       126                     \r\nGRID    666     0       7.0     15.5    .0      0       126                     \r\nGRID    667     0       7.5     15.5    .0      0       126                     \r\nGRID    668     0       8.0     15.5    .0      0       126                     \r\nGRID    669     0       8.5     15.5    .0      0       126                     \r\nGRID    670     0       9.0     15.5    .0      0       126                     \r\nGRID    671     0       9.5     15.5    .0      0       126                     \r\nGRID    672     0       10.0    15.5    .0      0       126                     \r\nGRID    673     0       .0      16.0    .0      0       126                     \r\nGRID    674     0       .5      16.0    .0      0       126                     \r\nGRID    675     0       1.0     16.0    .0      0       126                     \r\nGRID    676     0       1.5     16.0    .0      0       126                     \r\nGRID    677     0       2.0     16.0    .0      0       126                     \r\nGRID    678     0       2.5     16.0    .0      0       126                     \r\nGRID    679     0       3.0     16.0    .0      0       126                     \r\nGRID    680     0       3.5     16.0    .0      0       126                     \r\nGRID    681     0       4.0     16.0    .0      0       126                     \r\nGRID    682     0       4.5     16.0    .0      0       126                     \r\nGRID    683     0       5.0     16.0    .0      0       126                     \r\nGRID    684     0       5.5     16.0    .0      0       126                     \r\nGRID    685     0       6.0     16.0    .0      0       126                     \r\nGRID    686     0       6.5     16.0    .0      0       126                     \r\nGRID    687     0       7.0     16.0    .0      0       126                     \r\nGRID    688     0       7.5     16.0    .0      0       126                     \r\nGRID    689     0       8.0     16.0    .0      0       126                     \r\nGRID    690     0       8.5     16.0    .0      0       126                     \r\nGRID    691     0       9.0     16.0    .0      0       126                     \r\nGRID    692     0       9.5     16.0    .0      0       126                     \r\nGRID    693     0       10.0    16.0    .0      0       126                     \r\nGRID    694     0       .0      16.5    .0      0       126                     \r\nGRID    695     0       .5      16.5    .0      0       126                     \r\nGRID    696     0       1.0     16.5    .0      0       126                     \r\nGRID    697     0       1.5     16.5    .0      0       126                     \r\nGRID    698     0       2.0     16.5    .0      0       126                     \r\nGRID    699     0       2.5     16.5    .0      0       126                     \r\nGRID    700     0       3.0     16.5    .0      0       126                     \r\nGRID    701     0       3.5     16.5    .0      0       126                     \r\nGRID    702     0       4.0     16.5    .0      0       126                     \r\nGRID    703     0       4.5     16.5    .0      0       126                     \r\nGRID    704     0       5.0     16.5    .0      0       126                     \r\nGRID    705     0       5.5     16.5    .0      0       126                     \r\nGRID    706     0       6.0     16.5    .0      0       126                     \r\nGRID    707     0       6.5     16.5    .0      0       126                     \r\nGRID    708     0       7.0     16.5    .0      0       126                     \r\nGRID    709     0       7.5     16.5    .0      0       126                     \r\nGRID    710     0       8.0     16.5    .0      0       126                     \r\nGRID    711     0       8.5     16.5    .0      0       126                     \r\nGRID    712     0       9.0     16.5    .0      0       126                     \r\nGRID    713     0       9.5     16.5    .0      0       126                     \r\nGRID    714     0       10.0    16.5    .0      0       126                     \r\nGRID    715     0       .0      17.0    .0      0       126                     \r\nGRID    716     0       .5      17.0    .0      0       126                     \r\nGRID    717     0       1.0     17.0    .0      0       126                     \r\nGRID    718     0       1.5     17.0    .0      0       126                     \r\nGRID    719     0       2.0     17.0    .0      0       126                     \r\nGRID    720     0       2.5     17.0    .0      0       126                     \r\nGRID    721     0       3.0     17.0    .0      0       126                     \r\nGRID    722     0       3.5     17.0    .0      0       126                     \r\nGRID    723     0       4.0     17.0    .0      0       126                     \r\nGRID    724     0       4.5     17.0    .0      0       126                     \r\nGRID    725     0       5.0     17.0    .0      0       126                     \r\nGRID    726     0       5.5     17.0    .0      0       126                     \r\nGRID    727     0       6.0     17.0    .0      0       126                     \r\nGRID    728     0       6.5     17.0    .0      0       126                     \r\nGRID    729     0       7.0     17.0    .0      0       126                     \r\nGRID    730     0       7.5     17.0    .0      0       126                     \r\nGRID    731     0       8.0     17.0    .0      0       126                     \r\nGRID    732     0       8.5     17.0    .0      0       126                     \r\nGRID    733     0       9.0     17.0    .0      0       126                     \r\nGRID    734     0       9.5     17.0    .0      0       126                     \r\nGRID    735     0       10.0    17.0    .0      0       126                     \r\nGRID    736     0       .0      17.5    .0      0       126                     \r\nGRID    737     0       .5      17.5    .0      0       126                     \r\nGRID    738     0       1.0     17.5    .0      0       126                     \r\nGRID    739     0       1.5     17.5    .0      0       126                     \r\nGRID    740     0       2.0     17.5    .0      0       126                     \r\nGRID    741     0       2.5     17.5    .0      0       126                     \r\nGRID    742     0       3.0     17.5    .0      0       126                     \r\nGRID    743     0       3.5     17.5    .0      0       126                     \r\nGRID    744     0       4.0     17.5    .0      0       126                     \r\nGRID    745     0       4.5     17.5    .0      0       126                     \r\nGRID    746     0       5.0     17.5    .0      0       126                     \r\nGRID    747     0       5.5     17.5    .0      0       126                     \r\nGRID    748     0       6.0     17.5    .0      0       126                     \r\nGRID    749     0       6.5     17.5    .0      0       126                     \r\nGRID    750     0       7.0     17.5    .0      0       126                     \r\nGRID    751     0       7.5     17.5    .0      0       126                     \r\nGRID    752     0       8.0     17.5    .0      0       126                     \r\nGRID    753     0       8.5     17.5    .0      0       126                     \r\nGRID    754     0       9.0     17.5    .0      0       126                     \r\nGRID    755     0       9.5     17.5    .0      0       126                     \r\nGRID    756     0       10.0    17.5    .0      0       126                     \r\nGRID    757     0       .0      18.0    .0      0       126                     \r\nGRID    758     0       .5      18.0    .0      0       126                     \r\nGRID    759     0       1.0     18.0    .0      0       126                     \r\nGRID    760     0       1.5     18.0    .0      0       126                     \r\nGRID    761     0       2.0     18.0    .0      0       126                     \r\nGRID    762     0       2.5     18.0    .0      0       126                     \r\nGRID    763     0       3.0     18.0    .0      0       126                     \r\nGRID    764     0       3.5     18.0    .0      0       126                     \r\nGRID    765     0       4.0     18.0    .0      0       126                     \r\nGRID    766     0       4.5     18.0    .0      0       126                     \r\nGRID    767     0       5.0     18.0    .0      0       126                     \r\nGRID    768     0       5.5     18.0    .0      0       126                     \r\nGRID    769     0       6.0     18.0    .0      0       126                     \r\nGRID    770     0       6.5     18.0    .0      0       126                     \r\nGRID    771     0       7.0     18.0    .0      0       126                     \r\nGRID    772     0       7.5     18.0    .0      0       126                     \r\nGRID    773     0       8.0     18.0    .0      0       126                     \r\nGRID    774     0       8.5     18.0    .0      0       126                     \r\nGRID    775     0       9.0     18.0    .0      0       126                     \r\nGRID    776     0       9.5     18.0    .0      0       126                     \r\nGRID    777     0       10.0    18.0    .0      0       126                     \r\nGRID    778     0       .0      18.5    .0      0       126                     \r\nGRID    779     0       .5      18.5    .0      0       126                     \r\nGRID    780     0       1.0     18.5    .0      0       126                     \r\nGRID    781     0       1.5     18.5    .0      0       126                     \r\nGRID    782     0       2.0     18.5    .0      0       126                     \r\nGRID    783     0       2.5     18.5    .0      0       126                     \r\nGRID    784     0       3.0     18.5    .0      0       126                     \r\nGRID    785     0       3.5     18.5    .0      0       126                     \r\nGRID    786     0       4.0     18.5    .0      0       126                     \r\nGRID    787     0       4.5     18.5    .0      0       126                     \r\nGRID    788     0       5.0     18.5    .0      0       126                     \r\nGRID    789     0       5.5     18.5    .0      0       126                     \r\nGRID    790     0       6.0     18.5    .0      0       126                     \r\nGRID    791     0       6.5     18.5    .0      0       126                     \r\nGRID    792     0       7.0     18.5    .0      0       126                     \r\nGRID    793     0       7.5     18.5    .0      0       126                     \r\nGRID    794     0       8.0     18.5    .0      0       126                     \r\nGRID    795     0       8.5     18.5    .0      0       126                     \r\nGRID    796     0       9.0     18.5    .0      0       126                     \r\nGRID    797     0       9.5     18.5    .0      0       126                     \r\nGRID    798     0       10.0    18.5    .0      0       126                     \r\nGRID    799     0       .0      19.0    .0      0       126                     \r\nGRID    800     0       .5      19.0    .0      0       126                     \r\nGRID    801     0       1.0     19.0    .0      0       126                     \r\nGRID    802     0       1.5     19.0    .0      0       126                     \r\nGRID    803     0       2.0     19.0    .0      0       126                     \r\nGRID    804     0       2.5     19.0    .0      0       126                     \r\nGRID    805     0       3.0     19.0    .0      0       126                     \r\nGRID    806     0       3.5     19.0    .0      0       126                     \r\nGRID    807     0       4.0     19.0    .0      0       126                     \r\nGRID    808     0       4.5     19.0    .0      0       126                     \r\nGRID    809     0       5.0     19.0    .0      0       126                     \r\nGRID    810     0       5.5     19.0    .0      0       126                     \r\nGRID    811     0       6.0     19.0    .0      0       126                     \r\nGRID    812     0       6.5     19.0    .0      0       126                     \r\nGRID    813     0       7.0     19.0    .0      0       126                     \r\nGRID    814     0       7.5     19.0    .0      0       126                     \r\nGRID    815     0       8.0     19.0    .0      0       126                     \r\nGRID    816     0       8.5     19.0    .0      0       126                     \r\nGRID    817     0       9.0     19.0    .0      0       126                     \r\nGRID    818     0       9.5     19.0    .0      0       126                     \r\nGRID    819     0       10.0    19.0    .0      0       126                     \r\nGRID    820     0       .0      19.5    .0      0       126                     \r\nGRID    821     0       .5      19.5    .0      0       126                     \r\nGRID    822     0       1.0     19.5    .0      0       126                     \r\nGRID    823     0       1.5     19.5    .0      0       126                     \r\nGRID    824     0       2.0     19.5    .0      0       126                     \r\nGRID    825     0       2.5     19.5    .0      0       126                     \r\nGRID    826     0       3.0     19.5    .0      0       126                     \r\nGRID    827     0       3.5     19.5    .0      0       126                     \r\nGRID    828     0       4.0     19.5    .0      0       126                     \r\nGRID    829     0       4.5     19.5    .0      0       126                     \r\nGRID    830     0       5.0     19.5    .0      0       126                     \r\nGRID    831     0       5.5     19.5    .0      0       126                     \r\nGRID    832     0       6.0     19.5    .0      0       126                     \r\nGRID    833     0       6.5     19.5    .0      0       126                     \r\nGRID    834     0       7.0     19.5    .0      0       126                     \r\nGRID    835     0       7.5     19.5    .0      0       126                     \r\nGRID    836     0       8.0     19.5    .0      0       126                     \r\nGRID    837     0       8.5     19.5    .0      0       126                     \r\nGRID    838     0       9.0     19.5    .0      0       126                     \r\nGRID    839     0       9.5     19.5    .0      0       126                     \r\nGRID    840     0       10.0    19.5    .0      0       126                     \r\nGRID    841     0       .0      20.0    .0      0       126                     \r\nGRID    842     0       .5      20.0    .0      0       126                     \r\nGRID    843     0       1.0     20.0    .0      0       126                     \r\nGRID    844     0       1.5     20.0    .0      0       126                     \r\nGRID    845     0       2.0     20.0    .0      0       126                     \r\nGRID    846     0       2.5     20.0    .0      0       126                     \r\nGRID    847     0       3.0     20.0    .0      0       126                     \r\nGRID    848     0       3.5     20.0    .0      0       126                     \r\nGRID    849     0       4.0     20.0    .0      0       126                     \r\nGRID    850     0       4.5     20.0    .0      0       126                     \r\nGRID    851     0       5.0     20.0    .0      0       126                     \r\nGRID    852     0       5.5     20.0    .0      0       126                     \r\nGRID    853     0       6.0     20.0    .0      0       126                     \r\nGRID    854     0       6.5     20.0    .0      0       126                     \r\nGRID    855     0       7.0     20.0    .0      0       126                     \r\nGRID    856     0       7.5     20.0    .0      0       126                     \r\nGRID    857     0       8.0     20.0    .0      0       126                     \r\nGRID    858     0       8.5     20.0    .0      0       126                     \r\nGRID    859     0       9.0     20.0    .0      0       126                     \r\nGRID    860     0       9.5     20.0    .0      0       126                     \r\nGRID    861     0       10.0    20.0    .0      0       126                     \r\nMAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n+MAT1   30000.  28000.                                                          \r\nPARAM   GRDPNT  421                                                             \r\nPLOTEL  1000    1       21              1001    21      861                     \r\nPLOTEL  1002    861     841             1003    841     757                     \r\nPLOTEL  1004    757     673             1005    673     589                     \r\nPLOTEL  1006    589     505             1007    505     421                     \r\nPLOTEL  1008    421     337             1009    337     253                     \r\nPLOTEL  1010    253     169             1011    169     85                      \r\nPLOTEL  1012    85      1               1013    5       89                      \r\nPLOTEL  1014    89      173             1015    173     257                     \r\nPLOTEL  1016    257     341             1017    341     425                     \r\nPLOTEL  1018    425     509             1019    509     593                     \r\nPLOTEL  1020    593     677             1021    677     761                     \r\nPLOTEL  1022    761     845             1023    849     765                     \r\nPLOTEL  1024    765     681             1025    681     597                     \r\nPLOTEL  1026    597     513             1027    513     429                     \r\nPLOTEL  1028    429     345             1029    345     261                     \r\nPLOTEL  1030    261     177             1031    177     93                      \r\nPLOTEL  1032    93      9               1033    13      97                      \r\nPLOTEL  1034    97      181             1035    181     265                     \r\nPLOTEL  1036    265     349             1037    349     433                     \r\nPLOTEL  1038    433     517             1039    517     601                     \r\nPLOTEL  1040    601     685             1041    685     769                     \r\nPLOTEL  1042    769     853             1043    857     773                     \r\nPLOTEL  1044    773     689             1045    689     605                     \r\nPLOTEL  1046    605     521             1047    521     437                     \r\nPLOTEL  1048    437     353             1049    353     269                     \r\nPLOTEL  1050    269     185             1051    185     101                     \r\nPLOTEL  1052    101     17              1053    105     101                     \r\nPLOTEL  1054    101     97              1055    97      93                      \r\nPLOTEL  1056    93      89              1057    89      85                      \r\nPLOTEL  1058    169     173             1059    173     177                     \r\nPLOTEL  1060    177     181             1061    181     185                     \r\nPLOTEL  1062    185     189             1063    273     269                     \r\nPLOTEL  1064    269     265             1065    265     261                     \r\nPLOTEL  1066    261     257             1067    257     253                     \r\nPLOTEL  1068    337     341             1069    341     345                     \r\nPLOTEL  1070    345     349             1071    349     353                     \r\nPLOTEL  1072    353     357             1073    441     437                     \r\nPLOTEL  1074    437     433             1075    433     429                     \r\nPLOTEL  1076    429     425             1077    425     421                     \r\nPLOTEL  1078    505     509             1079    509     513                     \r\nPLOTEL  1080    513     517             1081    517     521                     \r\nPLOTEL  1082    521     525             1083    609     605                     \r\nPLOTEL  1084    605     601             1085    601     597                     \r\nPLOTEL  1086    597     593             1087    593     589                     \r\nPLOTEL  1088    673     677             1089    677     681                     \r\nPLOTEL  1090    681     685             1091    685     689                     \r\nPLOTEL  1092    689     693             1093    777     773                     \r\nPLOTEL  1094    773     769             1095    769     765                     \r\nPLOTEL  1096    765     761             1097    761     757                     \r\nPQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n+PQUAD1 .5      .0                                                              \r\nSPC1    37      5       1       22      43      64      85      106     +31001H \r\n+31001H 127     148     169     190     211     232     253     274     +31002H \r\n+31002H 295     316     337     358     379     400     421     442     +31003H \r\n+31003H 463     484     505     526     547     568     589     610     +31004H \r\n+31004H 631     652     673     694     715     736     757     778     +31005H \r\n+31005H 799     820     841                                                     \r\nSPC1    37      34      21      42      63      84      105     126     +11001H \r\n+11001H 147     168     189     210     231     252     273     294     +11002H \r\n+11002H 315     336     357     378     399     420     441     462     +11003H \r\n+11003H 483     504     525     546     567     588     609     630     +11004H \r\n+11004H 651     672     693     714     735     756     777     798     +11005H \r\n+11005H 819     840     861                                                     \r\nSPC1    37      35      1       2       3       4       5       6       +41001H \r\n+41001H 7       8       9       10      11      12      13      14      +41002H \r\n+41002H 15      16      17      18      19      20      21                      \r\nSPC1    37      35      841     842     843     844     845     846     +21001H \r\n+21001H 847     848     849     850     851     852     853     854     +21002H \r\n+21002H 855     856     857     858     859     860     861                     \r\nENDDATA                                                                         \r\n*WEOR                                                                           \r\nTYPE 1                                                                          \r\n"
  },
  {
    "path": "inp/d03012a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$                       Vibration of a 10x20 Plate (3-1-1)\r\n$                       Vibration of a 20x40 Plate (3-1-2)\r\n$                    Vibration of a 10x20 Plate (INPUT, 3-1-3)\r\n$                    Vibration of a 20x40 Plate (INPUT, 3-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the solution for natural frequencies of a large-\r\n$ order problem. The structural model consists of a square plate with hinged\r\n$ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one\r\n$ half of the structure with symmetric boundary constraints on the mid-line to\r\n$ reduce the order of the problem and the bandwidth by one half. The 20x40 model\r\n$ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both\r\n$ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4\r\n$ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements.\r\n$ \r\n$ Because only the bending modes are desired, the in-plane deflections and\r\n$ rotations normal to the plane are constrained. The inverse power method of\r\n$ eigenvalue extraction is selected for the smaller model and the FEER method\r\n$ (Reference 32) is selected for the larger model. Both structural mass density\r\n$ and non-structural mass-per-area are used to define the mass matrix.\r\n$ \r\n$ An undeformed structure plot is executed without plot elements. This is\r\n$ expensive on most plotters since all four sides of each quadrilateral are\r\n$ drawn. For the deformed plots of each eigenvector, plot elements are used to\r\n$ draw an edge only once and to draw only selected coordinate lines (every\r\n$ second or fourth line depending on the model used).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      l = w = 20.0   (Length and width)\r\n$ \r\n$      I = 1/12       (Moment of inertia)\r\n$ \r\n$      t = 1.0        (Thickness)\r\n$ \r\n$                  7\r\n$      E = 3.0 x 10   (Modu1us of elasticity)\r\n$ \r\n$      v = 0.30       (Poisson's ratio)\r\n$ \r\n$      p = 206.0439  (Mass density, 200.0 structural and 6.0439 non-structural\r\n$                    mass)\r\n$ \r\n$ 2. Boundary constraints:\r\n$ \r\n$    along x = 0, theta  =  0           Symmetric Boundary\r\n$                      y\r\n$                                    +\r\n$    along y = 0, u  = theta  =  0   |\r\n$                  z        y        |\r\n$                                    |\r\n$    along x = 10, u  = theta  = 0   |  Hinged Supports\r\n$                   z        x       |\r\n$                                    |\r\n$    along y = 20, u  = theta  = 0   |\r\n$                   z        y       |\r\n$                                    +\r\n$ 3. Eigenvalue extraction data:\r\n$ \r\n$    Method: Inverse Power and FEER\r\n$ \r\n$    Region of interest for inverse power: .89 <= f <= 1.0\r\n$ \r\n$    Center point for FEER: .87\r\n$ \r\n$    Number of desired roots: 3\r\n$ \r\n$    Number of estimated roots: 1\r\n$ \r\n$ C. Results\r\n$ \r\n$ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in\r\n$ Reference 8.\r\n$ \r\n$                       Table 1. Natural Frequencies, cps.\r\n$ \r\n$                      -------------------------------------\r\n$                                           NASTRAN  NASTRAN\r\n$                      Mode   Theoretical   10x20    20x40\r\n$                       No.                 (INV)    (FEER)\r\n$                      -------------------------------------\r\n$                       1        .9069      .9056     .9066\r\n$ \r\n$                       2       2.2672     2.2634    2.2663\r\n$ \r\n$                       3       4.5345     4.5329    4.5340\r\n$                      -------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$ \r\n$ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by\r\n$     the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA\r\n$     CR-2731, August, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03013a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D03013A,NASTRAN                                                           \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                      \r\nEQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\nENDALTER $                                                                      \r\nAPP     DISPLACEMENT                                                            \r\nSOL     3,1                                                                     \r\nDIAG    14                                                                      \r\nTIME    35                                                                      \r\nCEND                                                                            \r\nTITLE    = VIBRATIONS OF A 10 BY 20 PLATE                                       \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                          \r\n$                                                                               \r\n     SPC = 10020                                                                \r\n  METHOD = 5 $ ENCLOSE 2 MODES - FINDS 3 ROOTS                                  \r\n$              ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)             \r\n$       MODE    M       N       FREQ                                            \r\n$       1       1       1       9.068997E-1                                     \r\n$       2       1       2       2.267249                                        \r\n$       5       1       3       4.534498                                        \r\n$       6       3       1       4.534498                                        \r\n$       7       3       2       5.894848                                        \r\n$       9       1       4       7.708647                                        \r\n$                                                                               \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 11, 34 THRU 44, 56 THRU 66, 78 THRU 88, 111 THRU 121          \r\n   SET 2 = 1 THRU 12, 22,23,33,34,44,45,55,56,66,67,77,78,88,89,                \r\n           99,100, 110 THRU 121                                                 \r\n   DISPLACEMENTS = 1                                                            \r\n   SPCFORCE = 2                                                                 \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-3A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n         SET 1 INCLUDE PLOTEL                                                   \r\n         SET 2 INCLUDE QUAD1                                                    \r\n         MAXIMUM DEFORMATION  1.0                                               \r\n         FIND SCALE, ORIGIN 10                                                  \r\nPTITLE = ALL QUADS IN THE PLATE                                                 \r\nPLOT ORIGIN 10, SET 2, LABELS                                                   \r\n         FIND SCALE, ORIGIN 11                                                  \r\nPTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\nPLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\nBEGIN BULK                                                                      \r\nEIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n+SIMPL-IMAX                                                                     \r\nEIGR    3       INV     .89     1.0     1       3       0               +EIG3-1 \r\n+EIG3-1 MAX                                                                     \r\nEIGR    4       DET     .89     1.0     1       1       0               +EIG4-1 \r\n+EIG4-1 MAX                                                                     \r\nEIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n+EIG5-2 MAX                                                                     \r\nEIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n+EIG6-2 MAX                                                                     \r\nEIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n+EIG7-5 MAX                                                                     \r\nEIGR    8       DET     .89     6.1     5       5       0               +EIG8-5 \r\n+EIG8-5 MAX                                                                     \r\nEIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n+EIG9-10MAX                                                                     \r\nEIGR    10      DET     .89     14.5    5       5       0               +EIG1010\r\n+EIG1010MAX                                                                     \r\nEIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n+EIG1120MAX                                                                     \r\nEIGR    12      DET     .89     29.0    20      20      0               +EIG1220\r\n+EIG1220MAX                                                                     \r\nMAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n+MAT1   30000.  28000.                                                          \r\nPARAM   GRDPNT  111                                                             \r\nPLOTEL  300     23      1                                                       \r\nPLOTEL  301     1       11              302     11      231                     \r\nPLOTEL  303     231     221             304     221     199                     \r\nPLOTEL  305     199     201             306     201     203                     \r\nPLOTEL  307     203     205             308     205     207                     \r\nPLOTEL  309     207     209             310     187     185                     \r\nPLOTEL  311     185     183             312     183     181                     \r\nPLOTEL  313     181     179             314     179     177                     \r\nPLOTEL  315     199     177             316     177     155                     \r\nPLOTEL  317     155     157             318     157     159                     \r\nPLOTEL  319     159     161             320     161     163                     \r\nPLOTEL  321     163     165             322     143     141                     \r\nPLOTEL  323     141     139             324     139     137                     \r\nPLOTEL  325     137     135             326     135     133                     \r\nPLOTEL  327     155     133             328     133     111                     \r\nPLOTEL  329     111     113             330     113     115                     \r\nPLOTEL  331     115     117             332     117     119                     \r\nPLOTEL  333     119     121             334     99      97                      \r\nPLOTEL  335     97      95              336     95      93                      \r\nPLOTEL  337     93      91              338     91      89                      \r\nPLOTEL  339     111     89              340     89      67                      \r\nPLOTEL  341     67      69              342     69      71                      \r\nPLOTEL  343     71      73              344     73      75                      \r\nPLOTEL  345     75      77              346     55      53                      \r\nPLOTEL  347     53      51              348     51      49                      \r\nPLOTEL  349     49      47              350     47      45                      \r\nPLOTEL  351     67      45              352     45      23                      \r\nPLOTEL  353     23      25              354     25      27                      \r\nPLOTEL  355     27      29              356     29      31                      \r\nPLOTEL  357     31      33              358     9       31                      \r\nPLOTEL  359     31      53              360     53      75                      \r\nPLOTEL  361     75      97              362     97      119                     \r\nPLOTEL  363     119     141             364     141     163                     \r\nPLOTEL  365     163     185             366     185     207                     \r\nPLOTEL  367     207     229             368     227     205                     \r\nPLOTEL  369     205     183             370     183     161                     \r\nPLOTEL  371     161     139             372     139     117                     \r\nPLOTEL  373     117     95              374     95      73                      \r\nPLOTEL  375     73      51              376     51      29                      \r\nPLOTEL  377     29      7               378     5       27                      \r\nPLOTEL  379     27      49              380     49      71                      \r\nPLOTEL  381     71      93              382     93      115                     \r\nPLOTEL  383     115     137             384     137     159                     \r\nPLOTEL  385     159     181             386     181     203                     \r\nPLOTEL  387     203     225             388     223     201                     \r\nPLOTEL  389     201     179             390     179     157                     \r\nPLOTEL  391     157     135             392     135     113                     \r\nPLOTEL  393     113     91              394     91      69                      \r\nPLOTEL  395     69      47              396     47      36                      \r\nPLOTEL  397     36      25              398     25      3                       \r\nPQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n+PQUAD1 .5      .0                                                              \r\nENDDATA                                                                         \r\n      10      20 1.0E+00 1.0E+00     126 0.0     0.0                            \r\n      35       5      35      34       0       0                                \r\n"
  },
  {
    "path": "inp/d03013a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$                       Vibration of a 10x20 Plate (3-1-1)\r\n$                       Vibration of a 20x40 Plate (3-1-2)\r\n$                    Vibration of a 10x20 Plate (INPUT, 3-1-3)\r\n$                    Vibration of a 20x40 Plate (INPUT, 3-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the solution for natural frequencies of a large-\r\n$ order problem. The structural model consists of a square plate with hinged\r\n$ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one\r\n$ half of the structure with symmetric boundary constraints on the mid-line to\r\n$ reduce the order of the problem and the bandwidth by one half. The 20x40 model\r\n$ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both\r\n$ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4\r\n$ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements.\r\n$ \r\n$ Because only the bending modes are desired, the in-plane deflections and\r\n$ rotations normal to the plane are constrained. The inverse power method of\r\n$ eigenvalue extraction is selected for the smaller model and the FEER method\r\n$ (Reference 32) is selected for the larger model. Both structural mass density\r\n$ and non-structural mass-per-area are used to define the mass matrix.\r\n$ \r\n$ An undeformed structure plot is executed without plot elements. This is\r\n$ expensive on most plotters since all four sides of each quadrilateral are\r\n$ drawn. For the deformed plots of each eigenvector, plot elements are used to\r\n$ draw an edge only once and to draw only selected coordinate lines (every\r\n$ second or fourth line depending on the model used).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      l = w = 20.0   (Length and width)\r\n$ \r\n$      I = 1/12       (Moment of inertia)\r\n$ \r\n$      t = 1.0        (Thickness)\r\n$ \r\n$                  7\r\n$      E = 3.0 x 10   (Modu1us of elasticity)\r\n$ \r\n$      v = 0.30       (Poisson's ratio)\r\n$ \r\n$      p = 206.0439  (Mass density, 200.0 structural and 6.0439 non-structural\r\n$                    mass)\r\n$ \r\n$ 2. Boundary constraints:\r\n$ \r\n$    along x = 0, theta  =  0           Symmetric Boundary\r\n$                      y\r\n$                                    +\r\n$    along y = 0, u  = theta  =  0   |\r\n$                  z        y        |\r\n$                                    |\r\n$    along x = 10, u  = theta  = 0   |  Hinged Supports\r\n$                   z        x       |\r\n$                                    |\r\n$    along y = 20, u  = theta  = 0   |\r\n$                   z        y       |\r\n$                                    +\r\n$ 3. Eigenvalue extraction data:\r\n$ \r\n$    Method: Inverse Power and FEER\r\n$ \r\n$    Region of interest for inverse power: .89 <= f <= 1.0\r\n$ \r\n$    Center point for FEER: .87\r\n$ \r\n$    Number of desired roots: 3\r\n$ \r\n$    Number of estimated roots: 1\r\n$ \r\n$ C. Results\r\n$ \r\n$ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in\r\n$ Reference 8.\r\n$ \r\n$                       Table 1. Natural Frequencies, cps.\r\n$ \r\n$                      -------------------------------------\r\n$                                           NASTRAN  NASTRAN\r\n$                      Mode   Theoretical   10x20    20x40\r\n$                       No.                 (INV)    (FEER)\r\n$                      -------------------------------------\r\n$                       1        .9069      .9056     .9066\r\n$ \r\n$                       2       2.2672     2.2634    2.2663\r\n$ \r\n$                       3       4.5345     4.5329    4.5340\r\n$                      -------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$ \r\n$ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by\r\n$     the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA\r\n$     CR-2731, August, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03014a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D03014A,NASTRAN                                                           \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,GEOM2,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                      \r\nEQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\nENDALTER $                                                                      \r\nAPP      DISPLACEMENT                                                           \r\nSOL      3,1                                                                    \r\nDIAG     14                                                                     \r\nTIME     65                                                                     \r\nCEND                                                                            \r\nTITLE    =         VIBRATION OF A 20 X 40 HALF PLATE                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                          \r\n$                                                                               \r\n  METHOD = 20 $ FEER - NO MODES                                                 \r\n     SPC = 20040   $ INPUT VERSION                                              \r\n$                  ROOTS ARE AT THE FOLLOWING FREQUENCIES (THEORETICAL)         \r\n$       MODE    M       N       FREQ                                            \r\n$       1       1       1       9.068997E-1                                     \r\n$       2       1       2       2.267249                                        \r\n$       5       1       3       4.534498                                        \r\n$       6       3       1       4.534498                                        \r\n$       7       3       2       5.894848                                        \r\n$       9       1       4       7.708647                                        \r\n$                                                                               \r\nOUTPUT                                                                          \r\n   SET 1 = 1 THRU 21, 64 THRU 84, 127 THRU 147, 190 THRU 210,                   \r\n           253 THRU 273, 316 THRU 336, 379 THRU 399, 442 THRU 462,              \r\n           505 THRU 525, 568 THRU 588, 631 THRU 651, 694 THRU 714,              \r\n           757 THRU 777, 820 THRU 840, 841 THRU 861                             \r\n   DISPLACEMENTS = 1                                                            \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-01-4A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n        SET 1 INCLUDE PLOTEL                                                    \r\n        SET 2 INCLUDE QUAD1                                                     \r\n        MAXIMUM DEFORMATION  1.0                                                \r\n        FIND SCALE, ORIGIN 10                                                   \r\nPTITLE = ALL QUADS IN THE PLATE                                                 \r\nPLOT ORIGIN 10, SET 2, LABELS                                                   \r\n        FIND SCALE, ORIGIN 11                                                   \r\nPTITLE = MODE SHAPES USING PLOTEL ELEMENTS                                      \r\nPLOT MODAL DEFORMATION 1, ORIGIN 11, SHAPE                                      \r\nBEGIN BULK                                                                      \r\nEIGR    2       INV     .85     .89     1       1       0               CSIMPL-I\r\n+SIMPL-IMAX                                                                     \r\nEIGR    3       INV     .89     1.0     1       3       0               +EIG3-I \r\n+EIG3-I MAX                                                                     \r\nEIGR    4       DET     .89     1.0     1       1       0               +EIG4-D \r\n+EIG4-D MAX                                                                     \r\nEIGR    5       INV     .89     2.4     1       3       0               +EIG5-2 \r\n+EIG5-2 MAX                                                                     \r\nEIGR    6       DET     .89     2.4     2       2       0               +EIG6-2 \r\n+EIG6-2 MAX                                                                     \r\nEIGR    7       INV     .89     6.1     5       5       0               +EIG7-5 \r\n+EIG7-5 MAX                                                                     \r\nEIGR    9       INV     .89     14.5    4       10      0               +EIG9-10\r\n+EIG9-10MAX                                                                     \r\nEIGR    11      INV     .89     29.0    20      20      0               +EIG1120\r\n+EIG1120MAX                                                                     \r\nEIGR    20      FEER    .87                     1                       +FEER   \r\n+FEER   MAX                                                                     \r\nMAT1    2       3.0+7           .300    200.0                           +MAT1   \r\n+MAT1   30000.  28000.                                                          \r\nPARAM   GRDPNT  421                                                             \r\nPLOTEL  1000    1       21              1001    21      861                     \r\nPLOTEL  1002    861     841             1003    841     757                     \r\nPLOTEL  1004    757     673             1005    673     589                     \r\nPLOTEL  1006    589     505             1007    505     421                     \r\nPLOTEL  1008    421     337             1009    337     253                     \r\nPLOTEL  1010    253     169             1011    169     85                      \r\nPLOTEL  1012    85      1               1013    5       89                      \r\nPLOTEL  1014    89      173             1015    173     257                     \r\nPLOTEL  1016    257     341             1017    341     425                     \r\nPLOTEL  1018    425     509             1019    509     593                     \r\nPLOTEL  1020    593     677             1021    677     761                     \r\nPLOTEL  1022    761     845             1023    849     765                     \r\nPLOTEL  1024    765     681             1025    681     597                     \r\nPLOTEL  1026    597     513             1027    513     429                     \r\nPLOTEL  1028    429     345             1029    345     261                     \r\nPLOTEL  1030    261     177             1031    177     93                      \r\nPLOTEL  1032    93      9               1033    13      97                      \r\nPLOTEL  1034    97      181             1035    181     265                     \r\nPLOTEL  1036    265     349             1037    349     433                     \r\nPLOTEL  1038    433     517             1039    517     601                     \r\nPLOTEL  1040    601     685             1041    685     769                     \r\nPLOTEL  1042    769     853             1043    857     773                     \r\nPLOTEL  1044    773     689             1045    689     605                     \r\nPLOTEL  1046    605     521             1047    521     437                     \r\nPLOTEL  1048    437     353             1049    353     269                     \r\nPLOTEL  1050    269     185             1051    185     101                     \r\nPLOTEL  1052    101     17              1053    105     101                     \r\nPLOTEL  1054    101     97              1055    97      93                      \r\nPLOTEL  1056    93      89              1057    89      85                      \r\nPLOTEL  1058    169     173             1059    173     177                     \r\nPLOTEL  1060    177     181             1061    181     185                     \r\nPLOTEL  1062    185     189             1063    273     269                     \r\nPLOTEL  1064    269     265             1065    265     261                     \r\nPLOTEL  1066    261     257             1067    257     253                     \r\nPLOTEL  1068    337     341             1069    341     345                     \r\nPLOTEL  1070    345     349             1071    349     353                     \r\nPLOTEL  1072    353     357             1073    441     437                     \r\nPLOTEL  1074    437     433             1075    433     429                     \r\nPLOTEL  1076    429     425             1077    425     421                     \r\nPLOTEL  1078    505     509             1079    509     513                     \r\nPLOTEL  1080    513     517             1081    517     521                     \r\nPLOTEL  1082    521     525             1083    609     605                     \r\nPLOTEL  1084    605     601             1085    601     597                     \r\nPLOTEL  1086    597     593             1087    593     589                     \r\nPLOTEL  1088    673     677             1089    677     681                     \r\nPLOTEL  1090    681     685             1091    685     689                     \r\nPLOTEL  1092    689     693             1093    777     773                     \r\nPLOTEL  1094    773     769             1095    769     765                     \r\nPLOTEL  1096    765     761             1097    761     757                     \r\nPQUAD1  101     2       1.0     2       .0833333                6.04393 +PQUAD1 \r\n+PQUAD1 .5      .0                                                              \r\nENDDATA                                                                         \r\n      20      40 5.0E-01 5.0E-01     126 0.0     0.0                            \r\n      35       5      35      34       0       0                                \r\n"
  },
  {
    "path": "inp/d03014a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$                       Vibration of a 10x20 Plate (3-1-1)\r\n$                       Vibration of a 20x40 Plate (3-1-2)\r\n$                    Vibration of a 10x20 Plate (INPUT, 3-1-3)\r\n$                    Vibration of a 20x40 Plate (INPUT, 3-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the solution for natural frequencies of a large-\r\n$ order problem. The structural model consists of a square plate with hinged\r\n$ supports on all boundaries. The 10x20 model (Problem 3-1-1) represents one\r\n$ half of the structure with symmetric boundary constraints on the mid-line to\r\n$ reduce the order of the problem and the bandwidth by one half. The 20x40 model\r\n$ (Problem 3-1-2) has the same dimensions, but with a finer mesh. Both\r\n$ configurations are developed via the INPUT module (Problems 3-1-3 and 3-1-4\r\n$ for coarse mesh and fine mesh, respectively) to generate the QUAD1 elements.\r\n$ \r\n$ Because only the bending modes are desired, the in-plane deflections and\r\n$ rotations normal to the plane are constrained. The inverse power method of\r\n$ eigenvalue extraction is selected for the smaller model and the FEER method\r\n$ (Reference 32) is selected for the larger model. Both structural mass density\r\n$ and non-structural mass-per-area are used to define the mass matrix.\r\n$ \r\n$ An undeformed structure plot is executed without plot elements. This is\r\n$ expensive on most plotters since all four sides of each quadrilateral are\r\n$ drawn. For the deformed plots of each eigenvector, plot elements are used to\r\n$ draw an edge only once and to draw only selected coordinate lines (every\r\n$ second or fourth line depending on the model used).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$      l = w = 20.0   (Length and width)\r\n$ \r\n$      I = 1/12       (Moment of inertia)\r\n$ \r\n$      t = 1.0        (Thickness)\r\n$ \r\n$                  7\r\n$      E = 3.0 x 10   (Modu1us of elasticity)\r\n$ \r\n$      v = 0.30       (Poisson's ratio)\r\n$ \r\n$      p = 206.0439  (Mass density, 200.0 structural and 6.0439 non-structural\r\n$                    mass)\r\n$ \r\n$ 2. Boundary constraints:\r\n$ \r\n$    along x = 0, theta  =  0           Symmetric Boundary\r\n$                      y\r\n$                                    +\r\n$    along y = 0, u  = theta  =  0   |\r\n$                  z        y        |\r\n$                                    |\r\n$    along x = 10, u  = theta  = 0   |  Hinged Supports\r\n$                   z        x       |\r\n$                                    |\r\n$    along y = 20, u  = theta  = 0   |\r\n$                   z        y       |\r\n$                                    +\r\n$ 3. Eigenvalue extraction data:\r\n$ \r\n$    Method: Inverse Power and FEER\r\n$ \r\n$    Region of interest for inverse power: .89 <= f <= 1.0\r\n$ \r\n$    Center point for FEER: .87\r\n$ \r\n$    Number of desired roots: 3\r\n$ \r\n$    Number of estimated roots: 1\r\n$ \r\n$ C. Results\r\n$ \r\n$ Table 1 lists the NASTRAN and theoretical natural frequencies as defined in\r\n$ Reference 8.\r\n$ \r\n$                       Table 1. Natural Frequencies, cps.\r\n$ \r\n$                      -------------------------------------\r\n$                                           NASTRAN  NASTRAN\r\n$                      Mode   Theoretical   10x20    20x40\r\n$                       No.                 (INV)    (FEER)\r\n$                      -------------------------------------\r\n$                       1        .9069      .9056     .9066\r\n$ \r\n$                       2       2.2672     2.2634    2.2663\r\n$ \r\n$                       3       4.5345     4.5329    4.5340\r\n$                      -------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$ \r\n$ 32. Newman, Malcolm and Flanaga, Paul F.: Eigenvalue Extraction in NASTRAN by\r\n$     the Tridiagonal Reduction (FEER) Method - Real Eigenvalue Analysis, NASA\r\n$     CR-2731, August, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03021a.inp",
    "content": "ID    D03021A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,3                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = VIBRATION OF A COMPRESSIBLE GAS IN A RIGID SPHERICAL TANK.           \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-02-1A                          \r\n        METHOD = 1                                                              \r\n        AXISYMMETRIC = FLUID                                                    \r\n  OUTPUT                                                                        \r\n        HARMONICS = ALL                                                         \r\n        SET 1 = 1000 THRU 2030, 2090,2150,3022,3090,3157,4018,4090,             \r\n                4162,5015,5090,5165,6012,6089,6167,7011,7090,7168,              \r\n                8010,8090,8170,9009,9090,9171,10000 THRU 10180                  \r\n        PRESSURE = 1                                                            \r\nBEGIN BULK                                                                      \r\nAXIF    100             .001    1.0+3   NO                              +AXIF   \r\n+AXIF   0       THRU    2                                                       \r\nCFLUID2 1       1090    1045                                                    \r\nCFLUID2 2       1135    1090                                                    \r\nCFLUID2 3       1045    2030                                                    \r\nCFLUID2 10      2150    1135                                                    \r\nCFLUID2 11      2030    3022                                                    \r\nCFLUID2 22      3157    2150                                                    \r\nCFLUID2 23      3022    4018                                                    \r\nCFLUID2 38      4162    3157                                                    \r\nCFLUID2 39      4018    5015                                                    \r\nCFLUID2 58      5165    4162                                                    \r\nCFLUID2 59      5015    6012                                                    \r\nCFLUID2 82      6167    5165                                                    \r\nCFLUID2 83      6012    7011                                                    \r\nCFLUID2 110     7168    6167                                                    \r\nCFLUID2 111     7011    8010                                                    \r\nCFLUID2 142     8170    7168                                                    \r\nCFLUID2 143     8010    9009                                                    \r\nCFLUID2 178     9171    8170                                                    \r\nCFLUID2 179     9009    10008                                                   \r\nCFLUID2 218     10171   9171                                                    \r\nCFLUID3 4       2060    2030    1045                                            \r\nCFLUID3 5       1045    1090    2060                                            \r\nCFLUID3 6       2090    2060    1090                                            \r\nCFLUID3 7       2120    2090    1090                                            \r\nCFLUID3 8       1090    1135    2120                                            \r\nCFLUID3 9       2150    2120    1135                                            \r\nCFLUID3 12      3045    3022    2030                                            \r\nCFLUID3 13      2030    2060    3045                                            \r\nCFLUID3 14      3067    3045    2060                                            \r\nCFLUID3 15      2060    2090    3067                                            \r\nCFLUID3 16      3090    3067    2090                                            \r\nCFLUID3 17      3112    3090    2090                                            \r\nCFLUID3 18      2090    2120    3112                                            \r\nCFLUID3 19      3135    3112    2120                                            \r\nCFLUID3 20      2120    2150    3135                                            \r\nCFLUID3 21      3157    3135    2150                                            \r\nCFLUID3 24      4036    4018    3022                                            \r\nCFLUID3 25      3022    3045    4036                                            \r\nCFLUID3 26      4054    4036    3045                                            \r\nCFLUID3 27      3045    3067    4054                                            \r\nCFLUID3 28      4072    4054    3067                                            \r\nCFLUID3 29      3067    3090    4072                                            \r\nCFLUID3 30      4090    4072    3090                                            \r\nCFLUID3 31      4108    4090    3090                                            \r\nCFLUID3 32      3090    3112    4108                                            \r\nCFLUID3 33      4126    4108    3112                                            \r\nCFLUID3 34      3112    3135    4126                                            \r\nCFLUID3 35      4144    4126    3135                                            \r\nCFLUID3 36      3135    3157    4144                                            \r\nCFLUID3 37      4162    4144    3157                                            \r\nCFLUID3 40      5030    5015    4018                                            \r\nCFLUID3 41      4018    4036    5030                                            \r\nCFLUID3 42      5045    5030    4036                                            \r\nCFLUID3 43      4036    4054    5045                                            \r\nCFLUID3 44      5060    5045    4054                                            \r\nCFLUID3 45      4054    4072    5060                                            \r\nCFLUID3 46      5075    5060    4072                                            \r\nCFLUID3 47      4072    4090    5075                                            \r\nCFLUID3 48      5090    5075    4090                                            \r\nCFLUID3 49      5105    5090    4090                                            \r\nCFLUID3 50      4090    4108    5105                                            \r\nCFLUID3 51      5120    5105    4108                                            \r\nCFLUID3 52      4108    4126    5120                                            \r\nCFLUID3 53      5135    5120    4126                                            \r\nCFLUID3 54      4126    4144    5135                                            \r\nCFLUID3 55      5150    5135    4144                                            \r\nCFLUID3 56      4144    4162    5150                                            \r\nCFLUID3 57      5165    5150    4162                                            \r\nCFLUID3 60      6025    6012    5015                                            \r\nCFLUID3 61      5015    5030    6025                                            \r\nCFLUID3 62      6038    6025    5030                                            \r\nCFLUID3 63      5030    5045    6038                                            \r\nCFLUID3 64      6051    6038    5045                                            \r\nCFLUID3 65      5045    5060    6051                                            \r\nCFLUID3 66      6064    6051    5060                                            \r\nCFLUID3 67      5060    5075    6064                                            \r\nCFLUID3 68      6077    6064    5075                                            \r\nCFLUID3 69      5075    5090    6077                                            \r\nCFLUID3 70      6089    6077    5090                                            \r\nCFLUID3 71      6102    6089    5090                                            \r\nCFLUID3 72      5090    5105    6102                                            \r\nCFLUID3 73      6115    6102    5105                                            \r\nCFLUID3 74      5105    5120    6115                                            \r\nCFLUID3 75      6128    6115    5120                                            \r\nCFLUID3 76      5120    5135    6128                                            \r\nCFLUID3 77      6141    6128    5135                                            \r\nCFLUID3 78      5135    5150    6141                                            \r\nCFLUID3 79      6154    6141    5150                                            \r\nCFLUID3 80      5150    5165    6154                                            \r\nCFLUID3 81      6167    6154    5165                                            \r\nCFLUID3 84      7022    7011    6012                                            \r\nCFLUID3 85      6012    6025    7022                                            \r\nCFLUID3 86      7033    7022    6025                                            \r\nCFLUID3 87      6025    6038    7033                                            \r\nCFLUID3 88      7045    7033    6038                                            \r\nCFLUID3 89      6038    6051    7045                                            \r\nCFLUID3 90      7056    7045    6051                                            \r\nCFLUID3 91      6051    6064    7056                                            \r\nCFLUID3 92      7067    7056    6064                                            \r\nCFLUID3 93      6064    6077    7067                                            \r\nCFLUID3 94      7078    7067    6077                                            \r\nCFLUID3 95      6077    6089    7078                                            \r\nCFLUID3 96      7090    7078    6089                                            \r\nCFLUID3 97      7101    7090    6089                                            \r\nCFLUID3 98      6089    6102    7101                                            \r\nCFLUID3 99      7112    7101    6102                                            \r\nCFLUID3 100     6102    6115    7112                                            \r\nCFLUID3 101     7123    7112    6115                                            \r\nCFLUID3 102     6115    6128    7123                                            \r\nCFLUID3 103     7135    7123    6128                                            \r\nCFLUID3 104     6128    6141    7135                                            \r\nCFLUID3 105     7146    7135    6141                                            \r\nCFLUID3 106     6141    6154    7146                                            \r\nCFLUID3 107     7157    7146    6154                                            \r\nCFLUID3 108     6154    6167    7157                                            \r\nCFLUID3 109     7168    7157    6167                                            \r\nCFLUID3 112     8020    8010    7011                                            \r\nCFLUID3 113     7011    7022    8020                                            \r\nCFLUID3 114     8030    8020    7022                                            \r\nCFLUID3 115     7022    7033    8030                                            \r\nCFLUID3 116     8040    8030    7033                                            \r\nCFLUID3 117     7033    7045    8040                                            \r\nCFLUID3 118     8050    8040    7045                                            \r\nCFLUID3 119     7045    7056    8050                                            \r\nCFLUID3 120     8060    8050    7056                                            \r\nCFLUID3 121     7056    7067    8060                                            \r\nCFLUID3 122     8070    8060    7067                                            \r\nCFLUID3 123     7067    7078    8070                                            \r\nCFLUID3 124     8080    8070    7078                                            \r\nCFLUID3 125     7078    7090    8080                                            \r\nCFLUID3 126     8090    8080    7090                                            \r\nCFLUID3 127     8100    8090    7090                                            \r\nCFLUID3 128     7090    7101    8100                                            \r\nCFLUID3 129     8110    8100    7101                                            \r\nCFLUID3 130     7101    7112    8110                                            \r\nCFLUID3 131     8120    8110    7112                                            \r\nCFLUID3 132     7112    7123    8120                                            \r\nCFLUID3 133     8130    8120    7123                                            \r\nCFLUID3 134     7123    7135    8130                                            \r\nCFLUID3 135     8140    8130    7135                                            \r\nCFLUID3 136     7135    7146    8140                                            \r\nCFLUID3 137     8150    8140    7146                                            \r\nCFLUID3 138     7146    7157    8150                                            \r\nCFLUID3 139     8160    8150    7157                                            \r\nCFLUID3 140     7157    7168    8160                                            \r\nCFLUID3 141     8170    8160    7168                                            \r\nCFLUID3 144     9018    9009    8010                                            \r\nCFLUID3 145     8010    8020    9018                                            \r\nCFLUID3 146     9027    9018    8020                                            \r\nCFLUID3 147     8020    8030    9027                                            \r\nCFLUID3 148     9036    9027    8030                                            \r\nCFLUID3 149     8030    8040    9036                                            \r\nCFLUID3 150     9045    9036    8040                                            \r\nCFLUID3 151     8040    8050    9045                                            \r\nCFLUID3 152     9054    9045    8050                                            \r\nCFLUID3 153     8050    8060    9054                                            \r\nCFLUID3 154     9063    9054    8060                                            \r\nCFLUID3 155     8060    8070    9063                                            \r\nCFLUID3 156     9072    9063    8070                                            \r\nCFLUID3 157     8070    8080    9072                                            \r\nCFLUID3 158     9081    9072    8080                                            \r\nCFLUID3 159     8080    8090    9081                                            \r\nCFLUID3 160     9090    9081    8090                                            \r\nCFLUID3 161     9099    9090    8090                                            \r\nCFLUID3 162     8090    8100    9099                                            \r\nCFLUID3 163     9108    9099    8100                                            \r\nCFLUID3 164     8100    8110    9108                                            \r\nCFLUID3 165     9117    9108    8110                                            \r\nCFLUID3 166     8110    8120    9117                                            \r\nCFLUID3 167     9126    9117    8120                                            \r\nCFLUID3 168     8120    8130    9126                                            \r\nCFLUID3 169     9135    9126    8130                                            \r\nCFLUID3 170     8130    8140    9135                                            \r\nCFLUID3 171     9144    9135    8140                                            \r\nCFLUID3 172     8140    8150    9144                                            \r\nCFLUID3 173     9153    9144    8150                                            \r\nCFLUID3 174     8150    8160    9153                                            \r\nCFLUID3 175     9162    9153    8160                                            \r\nCFLUID3 176     8160    8170    9162                                            \r\nCFLUID3 177     9171    9162    8170                                            \r\nCFLUID3 180     10016   10008   9009                                            \r\nCFLUID3 181     9009    9018    10016                                           \r\nCFLUID3 182     10024   10016   9018                                            \r\nCFLUID3 183     9018    9027    10024                                           \r\nCFLUID3 184     10032   10024   9027                                            \r\nCFLUID3 185     9027    9036    10032                                           \r\nCFLUID3 186     10040   10032   9036                                            \r\nCFLUID3 187     9036    9045    10040                                           \r\nCFLUID3 188     10049   10040   9045                                            \r\nCFLUID3 189     9045    9054    10049                                           \r\nCFLUID3 190     10057   10049   9054                                            \r\nCFLUID3 191     9054    9063    10057                                           \r\nCFLUID3 192     10065   10057   9063                                            \r\nCFLUID3 193     9063    9072    10065                                           \r\nCFLUID3 194     10073   10065   9072                                            \r\nCFLUID3 195     9072    9081    10073                                           \r\nCFLUID3 196     10081   10073   9081                                            \r\nCFLUID3 197     9081    9090    10081                                           \r\nCFLUID3 198     10089   10081   9090                                            \r\nCFLUID3 199     10098   10089   9090                                            \r\nCFLUID3 200     9090    9099    10098                                           \r\nCFLUID3 201     10106   10098   9099                                            \r\nCFLUID3 202     9099    9108    10106                                           \r\nCFLUID3 203     10114   10106   9108                                            \r\nCFLUID3 204     9108    9117    10114                                           \r\nCFLUID3 205     10122   10114   9117                                            \r\nCFLUID3 206     9117    9126    10122                                           \r\nCFLUID3 207     10130   10122   9126                                            \r\nCFLUID3 208     9126    9135    10130                                           \r\nCFLUID3 209     10139   10130   9135                                            \r\nCFLUID3 210     9135    9144    10139                                           \r\nCFLUID3 211     10147   10139   9144                                            \r\nCFLUID3 212     9144    9153    10147                                           \r\nCFLUID3 213     10155   10147   9153                                            \r\nCFLUID3 214     9153    9162    10155                                           \r\nCFLUID3 215     10163   10155   9162                                            \r\nCFLUID3 216     9162    9171    10163                                           \r\nCFLUID3 217     10171   10163   9171                                            \r\nCORD2S  100     0       .0      .0      10.0    .0      .0      20.0    +CORD2S \r\n+CORD2S .0      1.0     .0                                                      \r\nEIGR    1       INV     14.0    60.0    2       7               1.0-6   +EIGR-1 \r\n+EIGR-1 MAX                                                                     \r\nRINGFL  1045    1.00000 45.0000         1090    1.00000 90.0000                 \r\nRINGFL  1135    1.00000 135.000                                                 \r\nRINGFL  2030    2.00000 30.0000         2060    2.00000 60.0000                 \r\nRINGFL  2090    2.00000 90.0000         2120    2.00000 120.000                 \r\nRINGFL  2150    2.00000 150.000                                                 \r\nRINGFL  3022    3.00000 22.5000         3045    3.00000 45.0000                 \r\nRINGFL  3067    3.00000 67.5000         3090    3.00000 90.0000                 \r\nRINGFL  3112    3.00000 112.500         3135    3.00000 135.000                 \r\nRINGFL  3157    3.00000 157.500                                                 \r\nRINGFL  4018    4.00000 18.0000         4036    4.00000 36.0000                 \r\nRINGFL  4054    4.00000 54.0000         4072    4.00000 72.0000                 \r\nRINGFL  4090    4.00000 90.0000         4108    4.00000 108.000                 \r\nRINGFL  4126    4.00000 126.000         4144    4.00000 144.000                 \r\nRINGFL  4162    4.00000 162.000                                                 \r\nRINGFL  5015    5.00000 15.0000         5030    5.00000 30.0000                 \r\nRINGFL  5045    5.00000 45.0000         5060    5.00000 60.0000                 \r\nRINGFL  5075    5.00000 75.0000         5090    5.00000 90.0000                 \r\nRINGFL  5105    5.00000 105.000         5120    5.00000 120.000                 \r\nRINGFL  5135    5.00000 135.000         5150    5.00000 150.000                 \r\nRINGFL  5165    5.00000 165.000                                                 \r\nRINGFL  6012    6.00000 12.8571         6025    6.00000 25.7143                 \r\nRINGFL  6038    6.00000 38.5714         6051    6.00000 51.4286                 \r\nRINGFL  6064    6.00000 64.2857         6077    6.00000 77.1429                 \r\nRINGFL  6089    6.00000 90.0000         6102    6.00000 102.857                 \r\nRINGFL  6115    6.00000 115.714         6128    6.00000 128.571                 \r\nRINGFL  6141    6.00000 141.429         6154    6.00000 154.286                 \r\nRINGFL  6167    6.00000 167.143                                                 \r\nRINGFL  7011    7.00000 11.2500         7022    7.00000 22.5000                 \r\nRINGFL  7033    7.00000 33.7500         7045    7.00000 45.0000                 \r\nRINGFL  7056    7.00000 56.2500         7067    7.00000 67.5000                 \r\nRINGFL  7078    7.00000 78.7500         7090    7.00000 90.0000                 \r\nRINGFL  7101    7.00000 101.250         7112    7.00000 112.500                 \r\nRINGFL  7123    7.00000 123.750         7135    7.00000 135.000                 \r\nRINGFL  7146    7.00000 146.250         7157    7.00000 157.500                 \r\nRINGFL  7168    7.00000 168.750                                                 \r\nRINGFL  8010    8.00000 10.0000         8020    8.00000 20.0000                 \r\nRINGFL  8030    8.00000 30.0000         8040    8.00000 40.0000                 \r\nRINGFL  8050    8.00000 50.0000         8060    8.00000 60.0000                 \r\nRINGFL  8070    8.00000 70.0000         8080    8.00000 80.0000                 \r\nRINGFL  8090    8.00000 90.0000         8100    8.00000 100.000                 \r\nRINGFL  8110    8.00000 110.000         8120    8.00000 120.000                 \r\nRINGFL  8130    8.00000 130.000         8140    8.00000 140.000                 \r\nRINGFL  8150    8.00000 150.000         8160    8.00000 160.000                 \r\nRINGFL  8170    8.00000 170.000                                                 \r\nRINGFL  9009    9.00000 9.00000         9018    9.00000 18.0000                 \r\nRINGFL  9027    9.00000 27.0000         9036    9.00000 36.0000                 \r\nRINGFL  9045    9.00000 45.0000         9054    9.00000 54.0000                 \r\nRINGFL  9063    9.00000 63.0000         9072    9.00000 72.0000                 \r\nRINGFL  9081    9.00000 81.0000         9090    9.00000 90.0000                 \r\nRINGFL  9099    9.00000 99.0000         9108    9.00000 108.000                 \r\nRINGFL  9117    9.00000 117.000         9126    9.00000 126.000                 \r\nRINGFL  9135    9.00000 135.000         9144    9.00000 144.000                 \r\nRINGFL  9153    9.00000 153.000         9162    9.00000 162.000                 \r\nRINGFL  9171    9.00000 171.000                                                 \r\nRINGFL  10008   10.0000 8.18182         10016   10.0000 16.3636                 \r\nRINGFL  10024   10.0000 24.5455         10032   10.0000 32.7273                 \r\nRINGFL  10040   10.0000 40.9091         10049   10.0000 49.0909                 \r\nRINGFL  10057   10.0000 57.2727         10065   10.0000 65.4545                 \r\nRINGFL  10073   10.0000 73.6364         10081   10.0000 81.8182                 \r\nRINGFL  10089   10.0000 90.0000         10098   10.0000 98.1818                 \r\nRINGFL  10106   10.0000 106.364         10114   10.0000 114.545                 \r\nRINGFL  10122   10.0000 122.727         10130   10.0000 130.909                 \r\nRINGFL  10139   10.0000 139.091         10147   10.0000 147.273                 \r\nRINGFL  10155   10.0000 155.455         10163   10.0000 163.636                 \r\nRINGFL  10171   10.0000 171.818                                                 \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$        Vibration of a Compressible Gas in a Rigid Spherical Tank (3-2-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates a compressible gas in a rigid spherical container.\r\n$ In NASTRAN a rigid boundary is the default for the fluid and, as such, no\r\n$ elements or boundary lists are necessary to model the container.\r\n$ \r\n$ Aside from the NASTRAN bulk data cards currently implemented, this problem\r\n$ demonstrates the use of the hydroelastic data cards: AXIF, CFLUID2, CFLUID3,\r\n$ and RINGFL.\r\n$ \r\n$ The lowest mode frequencies and their mode shapes for n = 0, 1, and 2 are\r\n$ analyzed where n is the Fourier harmonic number. Only the cosine series is\r\n$ analyzed.\r\n$ \r\n$ B. Model\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$    R = 10.0 m              (Radius of sphere)\r\n$ \r\n$                -3     3\r\n$    p = 1.0 x 10   Kg/m     (Mass density of fluid)\r\n$ \r\n$                3         2\r\n$    B = 1.0 x 10  Newton/m  (Bulk modulus of fluid)\r\n$ \r\n$ 2. The last 3 digits of the RINGFL identification number correspond\r\n$    approximately to the angle, theta, from the polar axis along a meridian.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ From Reference 18, the pressure in the cylinder is proportional to a series\r\n$ of functions:\r\n$ \r\n$             J      (X)\r\n$              m+1/2        n\r\n$    Q     =  -----------  p  (cos theta) cos n phi ,   n <= m               (1)\r\n$     n,m      sqrt(X)      m                           m = 0,1,2\r\n$ \r\n$ \r\n$ where:\r\n$ \r\n$    Q       Pressure coefficient for each mode\r\n$     n,m\r\n$                                     w\r\n$                                      mk\r\n$    X       Nondimensional radius  = ---- r\r\n$                                      a\r\n$ \r\n$    w       Natural frequency for the kth mode number and mth radial number in\r\n$     mk     radlans per second\r\n$ \r\n$ \r\n$    J       Bessel function of the first kind\r\n$     m+1/2\r\n$ \r\n$    r       radius\r\n$ \r\n$    a = sqrt(B/p)  speed of sound in the gas\r\n$ \r\n$     n\r\n$    p       associated Legendre functions\r\n$     m\r\n$ \r\n$    theta   meridional angle\r\n$ \r\n$    phi     circumferential angle\r\n$ \r\n$    n       harmonic number\r\n$ \r\n$    m       number of radial node lines\r\n$ \r\n$ The solution for X and hence w   is found by the use of the boundary\r\n$                               mk\r\n$ condition that the flow through the container is zero.\r\n$ \r\n$    +       +             + +\r\n$    |       | J      (X)  | |\r\n$    |  d    |  m+1/2      | |\r\n$    | ---   | ----------- | |      = 0.0                                    (2)\r\n$    |  dX   |  sqrt(X)    | |\r\n$    +       +             + + r=R\r\n$ \r\n$ where R is the outer radius.\r\n$ \r\n$ This results in zero frequency for the first root. Multiple roots for other\r\n$ modes can be seen in Table 1. The finite element model assumes different\r\n$ pressure distributions in the two angular directions, which causes the\r\n$ difference in frequencies.\r\n$ \r\n$ D. Results\r\n$ \r\n$ Table 1 summarizes the NASTRAN and analytic results for the lowest nonzero\r\n$ root in each harmonic. Table 1 lists the theoretical natural frequencies, the\r\n$ NASTRAN frequencies, the percent error in frequency, and the maximum percent\r\n$ error in pressure at the wall as compared to the maximum value. Theoretical\r\n$                                                              0\r\n$ pressure distributions correspond to the Legendre functions P  (cos theta),\r\n$                                                              o\r\n$  1                   2\r\n$ P  (cos theta), and P  (cos theta), which are proportiomal to cos theta,\r\n$  o                   o\r\n$                   2\r\n$ sin theta, and sin theta, respectively.\r\n$ \r\n$              Table 1. Comparison of NASTRAN and Analytical Results.\r\n$ \r\n$             ---------------------------------------------------------\r\n$                           Natural Frequency (Hertz)\r\n$                        --------------------------------  Pressure\r\n$                                                          Max. % Error\r\n$             Harmonic   Analytical  NASTRAN    % Error    at Wall\r\n$             ---------------------------------------------------------\r\n$               0        33.1279     33.2383     0.33        1.19\r\n$ \r\n$               1        33.1279     33.2060     0.24        0.47\r\n$ \r\n$               2        53.1915     53.3352     0.27        0.91\r\n$             ---------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 18. B. Raylelgh, THE THEORY OF SOUND. Section 330, 331, MacMillan Co., 1945.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03031a.inp",
    "content": "ID    D03031A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,3                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = VIBRATION OF A LIQUID IN A HALF FILLED RIGID SPHERE.                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-03-1A                          \r\n        METHOD = 1                                                              \r\n        AXISYMMETRIC = FLUID                                                    \r\n   OUTPUT                                                                       \r\n        HARMONICS = ALL                                                         \r\n        SET 1 = 1 THRU 1000,1090,2090,3090,4090,5090,6089,7090,8090,            \r\n                9090,10089,11090,12089,13089,14090,15090,16089,17090,           \r\n                18089,19090,20089                                               \r\n        PRESSURE = 1                                                            \r\nBEGIN BULK                                                                      \r\nAXIF    100     10.0    1.255014.0      YES                             +AXIF   \r\n+AXIF   1                                                                       \r\nCFLUID2 1       1135    1090                                                    \r\nCFLUID2 5       2150    1135                                                    \r\nCFLUID2 11      3157    2150                                                    \r\nCFLUID2 19      4162    3157                                                    \r\nCFLUID2 29      5165    4162                                                    \r\nCFLUID2 41      6167    5165                                                    \r\nCFLUID2 55      7168    6167                                                    \r\nCFLUID2 71      8170    7168                                                    \r\nCFLUID2 89      9171    8170                                                    \r\nCFLUID2 109     10171   9171                                                    \r\nCFLUID2 131     11172   10171                                                   \r\nCFLUID2 155     12173   11172                                                   \r\nCFLUID2 181     13173   12173                                                   \r\nCFLUID2 209     14174   13173                                                   \r\nCFLUID2 239     15174   14174                                                   \r\nCFLUID2 271     16174   15174                                                   \r\nCFLUID2 305     17175   16174                                                   \r\nCFLUID2 341     18175   17175                                                   \r\nCFLUID2 379     19175   18175                                                   \r\nCFLUID2 419     20175   19175                                                   \r\nCFLUID3 2       2120    2090    1090                                            \r\nCFLUID3 3       1090    1135    2120                                            \r\nCFLUID3 4       2150    2120    1135                                            \r\nCFLUID3 6       3112    3090    2090                                            \r\nCFLUID3 7       2090    2120    3112                                            \r\nCFLUID3 8       3135    3112    2120                                            \r\nCFLUID3 9       2120    2150    3135                                            \r\nCFLUID3 10      3157    3135    2150                                            \r\nCFLUID3 12      4108    4090    3090                                            \r\nCFLUID3 13      3090    3112    4108                                            \r\nCFLUID3 14      4126    4108    3112                                            \r\nCFLUID3 15      3112    3135    4126                                            \r\nCFLUID3 16      4144    4126    3135                                            \r\nCFLUID3 17      3135    3157    4144                                            \r\nCFLUID3 18      4162    4144    3157                                            \r\nCFLUID3 20      5105    5090    4090                                            \r\nCFLUID3 21      4090    4108    5105                                            \r\nCFLUID3 22      5120    5105    4108                                            \r\nCFLUID3 23      4108    4126    5120                                            \r\nCFLUID3 24      5135    5120    4126                                            \r\nCFLUID3 25      4126    4144    5135                                            \r\nCFLUID3 26      5150    5135    4144                                            \r\nCFLUID3 27      4144    4162    5150                                            \r\nCFLUID3 28      5165    5150    4162                                            \r\nCFLUID3 30      6102    6089    5090                                            \r\nCFLUID3 31      5090    5105    6102                                            \r\nCFLUID3 32      6115    6102    5105                                            \r\nCFLUID3 33      5105    5120    6115                                            \r\nCFLUID3 34      6128    6115    5120                                            \r\nCFLUID3 35      5120    5135    6128                                            \r\nCFLUID3 36      6141    6128    5135                                            \r\nCFLUID3 37      5135    5150    6141                                            \r\nCFLUID3 38      6154    6141    5150                                            \r\nCFLUID3 39      5150    5165    6154                                            \r\nCFLUID3 40      6167    6154    5165                                            \r\nCFLUID3 42      7101    7090    6089                                            \r\nCFLUID3 43      6089    6102    7101                                            \r\nCFLUID3 44      7112    7101    6102                                            \r\nCFLUID3 45      6102    6115    7112                                            \r\nCFLUID3 46      7123    7112    6115                                            \r\nCFLUID3 47      6115    6128    7123                                            \r\nCFLUID3 48      7135    7123    6128                                            \r\nCFLUID3 49      6128    6141    7135                                            \r\nCFLUID3 50      7146    7135    6141                                            \r\nCFLUID3 51      6141    6154    7146                                            \r\nCFLUID3 52      7157    7146    6154                                            \r\nCFLUID3 53      6154    6167    7157                                            \r\nCFLUID3 54      7168    7157    6167                                            \r\nCFLUID3 56      8100    8090    7090                                            \r\nCFLUID3 57      7090    7101    8100                                            \r\nCFLUID3 58      8110    8100    7101                                            \r\nCFLUID3 59      7101    7112    8110                                            \r\nCFLUID3 60      8120    8110    7112                                            \r\nCFLUID3 61      7112    7123    8120                                            \r\nCFLUID3 62      8130    8120    7123                                            \r\nCFLUID3 63      7123    7135    8130                                            \r\nCFLUID3 64      8140    8130    7135                                            \r\nCFLUID3 65      7135    7146    8140                                            \r\nCFLUID3 66      8150    8140    7146                                            \r\nCFLUID3 67      7146    7157    8150                                            \r\nCFLUID3 68      8160    8150    7157                                            \r\nCFLUID3 69      7157    7168    8160                                            \r\nCFLUID3 70      8170    8160    7168                                            \r\nCFLUID3 72      9099    9090    8090                                            \r\nCFLUID3 73      8090    8100    9099                                            \r\nCFLUID3 74      9108    9099    8100                                            \r\nCFLUID3 75      8100    8110    9108                                            \r\nCFLUID3 76      9117    9108    8110                                            \r\nCFLUID3 77      8110    8120    9117                                            \r\nCFLUID3 78      9126    9117    8120                                            \r\nCFLUID3 79      8120    8130    9126                                            \r\nCFLUID3 80      9135    9126    8130                                            \r\nCFLUID3 81      8130    8140    9135                                            \r\nCFLUID3 82      9144    9135    8140                                            \r\nCFLUID3 83      8140    8150    9144                                            \r\nCFLUID3 84      9153    9144    8150                                            \r\nCFLUID3 85      8150    8160    9153                                            \r\nCFLUID3 86      9162    9153    8160                                            \r\nCFLUID3 87      8160    8170    9162                                            \r\nCFLUID3 88      9171    9162    8170                                            \r\nCFLUID3 90      10098   10089   9090                                            \r\nCFLUID3 91      9090    9099    10098                                           \r\nCFLUID3 92      10106   10098   9099                                            \r\nCFLUID3 93      9099    9108    10106                                           \r\nCFLUID3 94      10114   10106   9108                                            \r\nCFLUID3 95      9108    9117    10114                                           \r\nCFLUID3 96      10122   10114   9117                                            \r\nCFLUID3 97      9117    9126    10122                                           \r\nCFLUID3 98      10130   10122   9126                                            \r\nCFLUID3 99      9126    9135    10130                                           \r\nCFLUID3 100     10139   10130   9135                                            \r\nCFLUID3 101     9135    9144    10139                                           \r\nCFLUID3 102     10147   10139   9144                                            \r\nCFLUID3 103     9144    9153    10147                                           \r\nCFLUID3 104     10155   10147   9153                                            \r\nCFLUID3 105     9153    9162    10155                                           \r\nCFLUID3 106     10163   10155   9162                                            \r\nCFLUID3 107     9162    9171    10163                                           \r\nCFLUID3 108     10171   10163   9171                                            \r\nCFLUID3 110     11097   11090   10089                                           \r\nCFLUID3 111     10089   10098   11097                                           \r\nCFLUID3 112     11105   11097   10098                                           \r\nCFLUID3 113     10098   10106   11105                                           \r\nCFLUID3 114     11112   11105   10106                                           \r\nCFLUID3 115     10106   10114   11112                                           \r\nCFLUID3 116     11120   11112   10114                                           \r\nCFLUID3 117     10114   10122   11120                                           \r\nCFLUID3 118     11127   11120   10122                                           \r\nCFLUID3 119     10122   10130   11127                                           \r\nCFLUID3 120     11135   11127   10130                                           \r\nCFLUID3 121     10130   10139   11135                                           \r\nCFLUID3 122     11142   11135   10139                                           \r\nCFLUID3 123     10139   10147   11142                                           \r\nCFLUID3 124     11150   11142   10147                                           \r\nCFLUID3 125     10147   10155   11150                                           \r\nCFLUID3 126     11157   11150   10155                                           \r\nCFLUID3 127     10155   10163   11157                                           \r\nCFLUID3 128     11165   11157   10163                                           \r\nCFLUID3 129     10163   10171   11165                                           \r\nCFLUID3 130     11172   11165   10171                                           \r\nCFLUID3 132     12096   12089   11090                                           \r\nCFLUID3 133     11090   11097   12096                                           \r\nCFLUID3 134     12103   12096   11097                                           \r\nCFLUID3 135     11097   11105   12103                                           \r\nCFLUID3 136     12110   12103   11105                                           \r\nCFLUID3 137     11105   11112   12110                                           \r\nCFLUID3 138     12117   12110   11112                                           \r\nCFLUID3 139     11112   11120   12117                                           \r\nCFLUID3 140     12124   12117   11120                                           \r\nCFLUID3 141     11120   11127   12124                                           \r\nCFLUID3 142     12131   12124   11127                                           \r\nCFLUID3 143     11127   11135   12131                                           \r\nCFLUID3 144     12138   12131   11135                                           \r\nCFLUID3 145     11135   11142   12138                                           \r\nCFLUID3 146     12145   12138   11142                                           \r\nCFLUID3 147     11142   11150   12145                                           \r\nCFLUID3 148     12152   12145   11150                                           \r\nCFLUID3 149     11150   11157   12152                                           \r\nCFLUID3 150     12159   12152   11157                                           \r\nCFLUID3 151     11157   11165   12159                                           \r\nCFLUID3 152     12166   12159   11165                                           \r\nCFLUID3 153     11165   11172   12166                                           \r\nCFLUID3 154     12173   12166   11172                                           \r\nCFLUID3 156     13096   13089   12089                                           \r\nCFLUID3 157     12089   12096   13096                                           \r\nCFLUID3 158     13102   13096   12096                                           \r\nCFLUID3 159     12096   12103   13102                                           \r\nCFLUID3 160     13109   13102   12103                                           \r\nCFLUID3 161     12103   12110   13109                                           \r\nCFLUID3 162     13115   13109   12110                                           \r\nCFLUID3 163     12110   12117   13115                                           \r\nCFLUID3 164     13122   13115   12117                                           \r\nCFLUID3 165     12117   12124   13122                                           \r\nCFLUID3 166     13128   13122   12124                                           \r\nCFLUID3 167     12124   12131   13128                                           \r\nCFLUID3 168     13134   13128   12131                                           \r\nCFLUID3 169     12131   12138   13134                                           \r\nCFLUID3 170     13141   13134   12138                                           \r\nCFLUID3 171     12138   12145   13141                                           \r\nCFLUID3 172     13147   13141   12145                                           \r\nCFLUID3 173     12145   12152   13147                                           \r\nCFLUID3 174     13154   13147   12152                                           \r\nCFLUID3 175     12152   12159   13154                                           \r\nCFLUID3 176     13160   13154   12159                                           \r\nCFLUID3 177     12159   12166   13160                                           \r\nCFLUID3 178     13167   13160   12166                                           \r\nCFLUID3 179     12166   12173   13167                                           \r\nCFLUID3 180     13173   13167   12173                                           \r\nCFLUID3 182     14096   14090   13089                                           \r\nCFLUID3 183     13089   13096   14096                                           \r\nCFLUID3 184     14102   14096   13096                                           \r\nCFLUID3 185     13096   13102   14102                                           \r\nCFLUID3 186     14108   14102   13102                                           \r\nCFLUID3 187     13102   13109   14108                                           \r\nCFLUID3 188     14114   14108   13109                                           \r\nCFLUID3 189     13109   13115   14114                                           \r\nCFLUID3 190     14120   14114   13115                                           \r\nCFLUID3 191     13115   13122   14120                                           \r\nCFLUID3 192     14126   14120   13122                                           \r\nCFLUID3 193     13122   13128   14126                                           \r\nCFLUID3 194     14132   14126   13128                                           \r\nCFLUID3 195     13128   13134   14132                                           \r\nCFLUID3 196     14138   14132   13134                                           \r\nCFLUID3 197     13134   13141   14138                                           \r\nCFLUID3 198     14144   14138   13141                                           \r\nCFLUID3 199     13141   13147   14144                                           \r\nCFLUID3 200     14150   14144   13147                                           \r\nCFLUID3 201     13147   13154   14150                                           \r\nCFLUID3 202     14156   14150   13154                                           \r\nCFLUID3 203     13154   13160   14156                                           \r\nCFLUID3 204     14162   14156   13160                                           \r\nCFLUID3 205     13160   13167   14162                                           \r\nCFLUID3 206     14168   14162   13167                                           \r\nCFLUID3 207     13167   13173   14168                                           \r\nCFLUID3 208     14174   14168   13173                                           \r\nCFLUID3 210     15095   15090   14090                                           \r\nCFLUID3 211     14090   14096   15095                                           \r\nCFLUID3 212     15101   15095   14096                                           \r\nCFLUID3 213     14096   14102   15101                                           \r\nCFLUID3 214     15106   15101   14102                                           \r\nCFLUID3 215     14102   14108   15106                                           \r\nCFLUID3 216     15112   15106   14108                                           \r\nCFLUID3 217     14108   14114   15112                                           \r\nCFLUID3 218     15118   15112   14114                                           \r\nCFLUID3 219     14114   14120   15118                                           \r\nCFLUID3 220     15123   15118   14120                                           \r\nCFLUID3 221     14120   14126   15123                                           \r\nCFLUID3 222     15129   15123   14126                                           \r\nCFLUID3 223     14126   14132   15129                                           \r\nCFLUID3 224     15135   15129   14132                                           \r\nCFLUID3 225     14132   14138   15135                                           \r\nCFLUID3 226     15140   15135   14138                                           \r\nCFLUID3 227     14138   14144   15140                                           \r\nCFLUID3 228     15146   15140   14144                                           \r\nCFLUID3 229     14144   14150   15146                                           \r\nCFLUID3 230     15151   15146   14150                                           \r\nCFLUID3 231     14150   14156   15151                                           \r\nCFLUID3 232     15157   15151   14156                                           \r\nCFLUID3 233     14156   14162   15157                                           \r\nCFLUID3 234     15163   15157   14162                                           \r\nCFLUID3 235     14162   14168   15163                                           \r\nCFLUID3 236     15168   15163   14168                                           \r\nCFLUID3 237     14168   14174   15168                                           \r\nCFLUID3 238     15174   15168   14174                                           \r\nCFLUID3 240     16095   16089   15090                                           \r\nCFLUID3 241     15090   15095   16095                                           \r\nCFLUID3 242     16100   16095   15095                                           \r\nCFLUID3 243     15095   15101   16100                                           \r\nCFLUID3 244     16105   16100   15101                                           \r\nCFLUID3 245     15101   15106   16105                                           \r\nCFLUID3 246     16111   16105   15106                                           \r\nCFLUID3 247     15106   15112   16111                                           \r\nCFLUID3 248     16116   16111   15112                                           \r\nCFLUID3 249     15112   15118   16116                                           \r\nCFLUID3 250     16121   16116   15118                                           \r\nCFLUID3 251     15118   15123   16121                                           \r\nCFLUID3 252     16127   16121   15123                                           \r\nCFLUID3 253     15123   15129   16127                                           \r\nCFLUID3 254     16132   16127   15129                                           \r\nCFLUID3 255     15129   15135   16132                                           \r\nCFLUID3 256     16137   16132   15135                                           \r\nCFLUID3 257     15135   15140   16137                                           \r\nCFLUID3 258     16142   16137   15140                                           \r\nCFLUID3 259     15140   15146   16142                                           \r\nCFLUID3 260     16148   16142   15146                                           \r\nCFLUID3 261     15146   15151   16148                                           \r\nCFLUID3 262     16153   16148   15151                                           \r\nCFLUID3 263     15151   15157   16153                                           \r\nCFLUID3 264     16158   16153   15157                                           \r\nCFLUID3 265     15157   15163   16158                                           \r\nCFLUID3 266     16164   16158   15163                                           \r\nCFLUID3 267     15163   15168   16164                                           \r\nCFLUID3 268     16169   16164   15168                                           \r\nCFLUID3 269     15168   15174   16169                                           \r\nCFLUID3 270     16174   16169   15174                                           \r\nCFLUID3 272     17095   17090   16089                                           \r\nCFLUID3 273     16089   16095   17095                                           \r\nCFLUID3 274     17100   17095   16095                                           \r\nCFLUID3 275     16095   16100   17100                                           \r\nCFLUID3 276     17105   17100   16100                                           \r\nCFLUID3 277     16100   16105   17105                                           \r\nCFLUID3 278     17110   17105   16105                                           \r\nCFLUID3 279     16105   16111   17110                                           \r\nCFLUID3 280     17115   17110   16111                                           \r\nCFLUID3 281     16111   16116   17115                                           \r\nCFLUID3 282     17120   17115   16116                                           \r\nCFLUID3 283     16116   16121   17120                                           \r\nCFLUID3 284     17125   17120   16121                                           \r\nCFLUID3 285     16121   16127   17125                                           \r\nCFLUID3 286     17130   17125   16127                                           \r\nCFLUID3 287     16127   16132   17130                                           \r\nCFLUID3 288     17135   17130   16132                                           \r\nCFLUID3 289     16132   16137   17135                                           \r\nCFLUID3 290     17140   17135   16137                                           \r\nCFLUID3 291     16137   16142   17140                                           \r\nCFLUID3 292     17145   17140   16142                                           \r\nCFLUID3 293     16142   16148   17145                                           \r\nCFLUID3 294     17150   17145   16148                                           \r\nCFLUID3 295     16148   16153   17150                                           \r\nCFLUID3 296     17155   17150   16153                                           \r\nCFLUID3 297     16153   16158   17155                                           \r\nCFLUID3 298     17160   17155   16158                                           \r\nCFLUID3 299     16158   16164   17160                                           \r\nCFLUID3 300     17165   17160   16164                                           \r\nCFLUID3 301     16164   16169   17165                                           \r\nCFLUID3 302     17170   17165   16169                                           \r\nCFLUID3 303     16169   16174   17170                                           \r\nCFLUID3 304     17175   17170   16174                                           \r\nCFLUID3 306     18094   18089   17090                                           \r\nCFLUID3 307     17090   17095   18094                                           \r\nCFLUID3 308     18099   18094   17095                                           \r\nCFLUID3 309     17095   17100   18099                                           \r\nCFLUID3 310     18104   18099   17100                                           \r\nCFLUID3 311     17100   17105   18104                                           \r\nCFLUID3 312     18108   18104   17105                                           \r\nCFLUID3 313     17105   17110   18108                                           \r\nCFLUID3 314     18113   18108   17110                                           \r\nCFLUID3 315     17110   17115   18113                                           \r\nCFLUID3 316     18118   18113   17115                                           \r\nCFLUID3 317     17115   17120   18118                                           \r\nCFLUID3 318     18123   18118   17120                                           \r\nCFLUID3 319     17120   17125   18123                                           \r\nCFLUID3 320     18127   18123   17125                                           \r\nCFLUID3 321     17125   17130   18127                                           \r\nCFLUID3 322     18132   18127   17130                                           \r\nCFLUID3 323     17130   17135   18132                                           \r\nCFLUID3 324     18137   18132   17135                                           \r\nCFLUID3 325     17135   17140   18137                                           \r\nCFLUID3 326     18142   18137   17140                                           \r\nCFLUID3 327     17140   17145   18142                                           \r\nCFLUID3 328     18146   18142   17145                                           \r\nCFLUID3 329     17145   17150   18146                                           \r\nCFLUID3 330     18151   18146   17150                                           \r\nCFLUID3 331     17150   17155   18151                                           \r\nCFLUID3 332     18156   18151   17155                                           \r\nCFLUID3 333     17155   17160   18156                                           \r\nCFLUID3 334     18161   18156   17160                                           \r\nCFLUID3 335     17160   17165   18161                                           \r\nCFLUID3 336     18165   18161   17165                                           \r\nCFLUID3 337     17165   17170   18165                                           \r\nCFLUID3 338     18170   18165   17170                                           \r\nCFLUID3 339     17170   17175   18170                                           \r\nCFLUID3 340     18175   18170   17175                                           \r\nCFLUID3 342     19094   19090   18089                                           \r\nCFLUID3 343     18089   18094   19094                                           \r\nCFLUID3 344     19099   19094   18094                                           \r\nCFLUID3 345     18094   18099   19099                                           \r\nCFLUID3 346     19103   19099   18099                                           \r\nCFLUID3 347     18099   18104   19103                                           \r\nCFLUID3 348     19108   19103   18104                                           \r\nCFLUID3 349     18104   18108   19108                                           \r\nCFLUID3 350     19112   19108   18108                                           \r\nCFLUID3 351     18108   18113   19112                                           \r\nCFLUID3 352     19117   19112   18113                                           \r\nCFLUID3 353     18113   18118   19117                                           \r\nCFLUID3 354     19121   19117   18118                                           \r\nCFLUID3 355     18118   18123   19121                                           \r\nCFLUID3 356     19126   19121   18123                                           \r\nCFLUID3 357     18123   18127   19126                                           \r\nCFLUID3 358     19130   19126   18127                                           \r\nCFLUID3 359     18127   18132   19130                                           \r\nCFLUID3 360     19135   19130   18132                                           \r\nCFLUID3 361     18132   18137   19135                                           \r\nCFLUID3 362     19139   19135   18137                                           \r\nCFLUID3 363     18137   18142   19139                                           \r\nCFLUID3 364     19144   19139   18142                                           \r\nCFLUID3 365     18142   18146   19144                                           \r\nCFLUID3 366     19148   19144   18146                                           \r\nCFLUID3 367     18146   18151   19148                                           \r\nCFLUID3 368     19153   19148   18151                                           \r\nCFLUID3 369     18151   18156   19153                                           \r\nCFLUID3 370     19157   19153   18156                                           \r\nCFLUID3 371     18156   18161   19157                                           \r\nCFLUID3 372     19162   19157   18161                                           \r\nCFLUID3 373     18161   18165   19162                                           \r\nCFLUID3 374     19166   19162   18165                                           \r\nCFLUID3 375     18165   18170   19166                                           \r\nCFLUID3 376     19171   19166   18170                                           \r\nCFLUID3 377     18170   18175   19171                                           \r\nCFLUID3 378     19175   19171   18175                                           \r\nCFLUID3 380     20094   20089   19090                                           \r\nCFLUID3 381     19090   19094   20094                                           \r\nCFLUID3 382     20098   20094   19094                                           \r\nCFLUID3 383     19094   19099   20098                                           \r\nCFLUID3 384     20102   20098   19099                                           \r\nCFLUID3 385     19099   19103   20102                                           \r\nCFLUID3 386     20107   20102   19103                                           \r\nCFLUID3 387     19103   19108   20107                                           \r\nCFLUID3 388     20111   20107   19108                                           \r\nCFLUID3 389     19108   19112   20111                                           \r\nCFLUID3 390     20115   20111   19112                                           \r\nCFLUID3 391     19112   19117   20115                                           \r\nCFLUID3 392     20119   20115   19117                                           \r\nCFLUID3 393     19117   19121   20119                                           \r\nCFLUID3 394     20124   20119   19121                                           \r\nCFLUID3 395     19121   19126   20124                                           \r\nCFLUID3 396     20128   20124   19126                                           \r\nCFLUID3 397     19126   19130   20128                                           \r\nCFLUID3 398     20132   20128   19130                                           \r\nCFLUID3 399     19130   19135   20132                                           \r\nCFLUID3 400     20137   20132   19135                                           \r\nCFLUID3 401     19135   19139   20137                                           \r\nCFLUID3 402     20141   20137   19139                                           \r\nCFLUID3 403     19139   19144   20141                                           \r\nCFLUID3 404     20145   20141   19144                                           \r\nCFLUID3 405     19144   19148   20145                                           \r\nCFLUID3 406     20149   20145   19148                                           \r\nCFLUID3 407     19148   19153   20149                                           \r\nCFLUID3 408     20154   20149   19153                                           \r\nCFLUID3 409     19153   19157   20154                                           \r\nCFLUID3 410     20158   20154   19157                                           \r\nCFLUID3 411     19157   19162   20158                                           \r\nCFLUID3 412     20162   20158   19162                                           \r\nCFLUID3 413     19162   19166   20162                                           \r\nCFLUID3 414     20167   20162   19166                                           \r\nCFLUID3 415     19166   19171   20167                                           \r\nCFLUID3 416     20171   20167   19171                                           \r\nCFLUID3 417     19171   19175   20171                                           \r\nCFLUID3 418     20175   20171   19175                                           \r\nCORD2S  100     0       .0      .0      10.0    .0      .0      20.0    +CORD2S \r\n+CORD2S .0      1.0     .0                                                      \r\nEIGR    1       INV     .1      .5      6       7               1.0-5   +EIGR-1 \r\n+EIGR-1 MAX                                                                     \r\nFREEPT  4090            109     90.0    118     180.0   127     270.0           \r\nFREEPT  8090            209     90.0    218     180.0   227     270.0           \r\nFREEPT  12089           309     90.0    318     180.0   327     270.0           \r\nFREEPT  16089           409     90.0    418     180.0   427     270.0           \r\nFSLIST          AXIS    1090    2090    3090    4090    5090    6089    +1-FSL  \r\n+1-FSL  7090    8090    9090    10089   11090   12089   13089   14090   +2-FSL  \r\n+2-FSL  15090   16089   17090   18089   19090   20089                           \r\nRINGFL  1090    .50000  90.0000         1135    .50000  135.000                 \r\nRINGFL  2090    1.00000 90.0000         2120    1.00000 120.000                 \r\nRINGFL  2150    1.00000 150.000                                                 \r\nRINGFL  3090    1.50000 90.0000         3112    1.50000 112.500                 \r\nRINGFL  3135    1.50000 135.000         3157    1.50000 157.500                 \r\nRINGFL  4090    2.00000 90.0000         4108    2.00000 108.000                 \r\nRINGFL  4126    2.00000 126.000         4144    2.00000 144.000                 \r\nRINGFL  4162    2.00000 162.000                                                 \r\nRINGFL  5090    2.50000 90.0000         5105    2.50000 105.000                 \r\nRINGFL  5120    2.50000 120.000         5135    2.50000 135.000                 \r\nRINGFL  5150    2.50000 150.000         5165    2.50000 165.000                 \r\nRINGFL  6089    3.00000 90.0000         6102    3.00000 102.857                 \r\nRINGFL  6115    3.00000 115.714         6128    3.00000 128.571                 \r\nRINGFL  6141    3.00000 141.429         6154    3.00000 154.286                 \r\nRINGFL  6167    3.00000 167.143                                                 \r\nRINGFL  7090    3.50000 90.0000         7101    3.50000 101.250                 \r\nRINGFL  7112    3.50000 112.500         7123    3.50000 123.750                 \r\nRINGFL  7135    3.50000 135.000         7146    3.50000 146.250                 \r\nRINGFL  7157    3.50000 157.500         7168    3.50000 168.750                 \r\nRINGFL  8090    4.00000 90.0000         8100    4.00000 100.000                 \r\nRINGFL  8110    4.00000 110.000         8120    4.00000 120.000                 \r\nRINGFL  8130    4.00000 130.000         8140    4.00000 140.000                 \r\nRINGFL  8150    4.00000 150.000         8160    4.00000 160.000                 \r\nRINGFL  8170    4.00000 170.000                                                 \r\nRINGFL  9090    4.50000 90.0000         9099    4.50000 99.0000                 \r\nRINGFL  9108    4.50000 108.000         9117    4.50000 117.000                 \r\nRINGFL  9126    4.50000 126.000         9135    4.50000 135.000                 \r\nRINGFL  9144    4.50000 144.000         9153    4.50000 153.000                 \r\nRINGFL  9162    4.50000 162.000         9171    4.50000 171.000                 \r\nRINGFL  10089   5.00000 90.0000         10098   5.00000 98.1818                 \r\nRINGFL  10106   5.00000 106.364         10114   5.00000 114.545                 \r\nRINGFL  10122   5.00000 122.727         10130   5.00000 130.909                 \r\nRINGFL  10139   5.00000 139.091         10147   5.00000 147.273                 \r\nRINGFL  10155   5.00000 155.455         10163   5.00000 163.636                 \r\nRINGFL  10171   5.00000 171.818                                                 \r\nRINGFL  11090   5.50000 90.0000         11097   5.50000 97.5000                 \r\nRINGFL  11105   5.50000 105.000         11112   5.50000 112.500                 \r\nRINGFL  11120   5.50000 120.000         11127   5.50000 127.500                 \r\nRINGFL  11135   5.50000 135.000         11142   5.50000 142.500                 \r\nRINGFL  11150   5.50000 150.000         11157   5.50000 157.500                 \r\nRINGFL  11165   5.50000 165.000         11172   5.50000 172.500                 \r\nRINGFL  12089   6.00000 90.0000         12096   6.00000 96.9231                 \r\nRINGFL  12103   6.00000 103.846         12110   6.00000 110.769                 \r\nRINGFL  12117   6.00000 117.692         12124   6.00000 124.615                 \r\nRINGFL  12131   6.00000 131.538         12138   6.00000 138.462                 \r\nRINGFL  12145   6.00000 145.385         12152   6.00000 152.308                 \r\nRINGFL  12159   6.00000 159.231         12166   6.00000 166.154                 \r\nRINGFL  12173   6.00000 173.077                                                 \r\nRINGFL  13089   6.50000 90.0000         13096   6.50000 96.4286                 \r\nRINGFL  13102   6.50000 102.857         13109   6.50000 109.286                 \r\nRINGFL  13115   6.50000 115.714         13122   6.50000 122.143                 \r\nRINGFL  13128   6.50000 128.571         13134   6.50000 135.000                 \r\nRINGFL  13141   6.50000 141.429         13147   6.50000 147.857                 \r\nRINGFL  13154   6.50000 154.286         13160   6.50000 160.714                 \r\nRINGFL  13167   6.50000 167.143         13173   6.50000 173.571                 \r\nRINGFL  14090   7.00000 90.0000         14096   7.00000 96.0000                 \r\nRINGFL  14102   7.00000 102.000         14108   7.00000 108.000                 \r\nRINGFL  14114   7.00000 114.000         14120   7.00000 120.000                 \r\nRINGFL  14126   7.00000 126.000         14132   7.00000 132.000                 \r\nRINGFL  14138   7.00000 138.000         14144   7.00000 144.000                 \r\nRINGFL  14150   7.00000 150.000         14156   7.00000 156.000                 \r\nRINGFL  14162   7.00000 162.000         14168   7.00000 168.000                 \r\nRINGFL  14174   7.00000 174.000                                                 \r\nRINGFL  15090   7.50000 90.0000         15095   7.50000 95.6250                 \r\nRINGFL  15101   7.50000 101.250         15106   7.50000 106.875                 \r\nRINGFL  15112   7.50000 112.500         15118   7.50000 118.125                 \r\nRINGFL  15123   7.50000 123.750         15129   7.50000 129.375                 \r\nRINGFL  15135   7.50000 135.000         15140   7.50000 140.625                 \r\nRINGFL  15146   7.50000 146.250         15151   7.50000 151.875                 \r\nRINGFL  15157   7.50000 157.500         15163   7.50000 163.125                 \r\nRINGFL  15168   7.50000 168.750         15174   7.50000 174.375                 \r\nRINGFL  16089   8.00000 90.0000         16095   8.00000 95.2941                 \r\nRINGFL  16100   8.00000 100.588         16105   8.00000 105.882                 \r\nRINGFL  16111   8.00000 111.176         16116   8.00000 116.471                 \r\nRINGFL  16121   8.00000 121.765         16127   8.00000 127.059                 \r\nRINGFL  16132   8.00000 132.353         16137   8.00000 137.647                 \r\nRINGFL  16142   8.00000 142.941         16148   8.00000 148.235                 \r\nRINGFL  16153   8.00000 153.529         16158   8.00000 158.824                 \r\nRINGFL  16164   8.00000 164.118         16169   8.00000 169.412                 \r\nRINGFL  16174   8.00000 174.706                                                 \r\nRINGFL  17090   8.50000 90.0000         17095   8.50000 95.0000                 \r\nRINGFL  17100   8.50000 100.000         17105   8.50000 105.000                 \r\nRINGFL  17110   8.50000 110.000         17115   8.50000 115.000                 \r\nRINGFL  17120   8.50000 120.000         17125   8.50000 125.000                 \r\nRINGFL  17130   8.50000 130.000         17135   8.50000 135.000                 \r\nRINGFL  17140   8.50000 140.000         17145   8.50000 145.000                 \r\nRINGFL  17150   8.50000 150.000         17155   8.50000 155.000                 \r\nRINGFL  17160   8.50000 160.000         17165   8.50000 165.000                 \r\nRINGFL  17170   8.50000 170.000         17175   8.50000 175.000                 \r\nRINGFL  18089   9.00000 90.0000         18094   9.00000 94.7368                 \r\nRINGFL  18099   9.00000 99.4737         18104   9.00000 104.211                 \r\nRINGFL  18108   9.00000 108.947         18113   9.00000 113.684                 \r\nRINGFL  18118   9.00000 118.421         18123   9.00000 123.158                 \r\nRINGFL  18127   9.00000 127.895         18132   9.00000 132.632                 \r\nRINGFL  18137   9.00000 137.368         18142   9.00000 142.105                 \r\nRINGFL  18146   9.00000 146.842         18151   9.00000 151.579                 \r\nRINGFL  18156   9.00000 156.316         18161   9.00000 161.053                 \r\nRINGFL  18165   9.00000 165.789         18170   9.00000 170.526                 \r\nRINGFL  18175   9.00000 175.263                                                 \r\nRINGFL  19090   9.50000 90.0000         19094   9.50000 94.5000                 \r\nRINGFL  19099   9.50000 99.0000         19103   9.50000 103.500                 \r\nRINGFL  19108   9.50000 108.000         19112   9.50000 112.500                 \r\nRINGFL  19117   9.50000 117.000         19121   9.50000 121.500                 \r\nRINGFL  19126   9.50000 126.000         19130   9.50000 130.500                 \r\nRINGFL  19135   9.50000 135.000         19139   9.50000 139.500                 \r\nRINGFL  19144   9.50000 144.000         19148   9.50000 148.500                 \r\nRINGFL  19153   9.50000 153.000         19157   9.50000 157.500                 \r\nRINGFL  19162   9.50000 162.000         19166   9.50000 166.500                 \r\nRINGFL  19171   9.50000 171.000         19175   9.50000 175.500                 \r\nRINGFL  20089   10.0000 90.0000         20094   10.0000 94.2857                 \r\nRINGFL  20098   10.0000 98.5714         20102   10.0000 102.857                 \r\nRINGFL  20107   10.0000 107.143         20111   10.0000 111.429                 \r\nRINGFL  20115   10.0000 115.714         20119   10.0000 120.000                 \r\nRINGFL  20124   10.0000 124.286         20128   10.0000 128.571                 \r\nRINGFL  20132   10.0000 132.857         20137   10.0000 137.143                 \r\nRINGFL  20141   10.0000 141.429         20145   10.0000 145.714                 \r\nRINGFL  20149   10.0000 150.000         20154   10.0000 154.286                 \r\nRINGFL  20158   10.0000 158.571         20162   10.0000 162.857                 \r\nRINGFL  20167   10.0000 167.143         20171   10.0000 171.429                 \r\nRINGFL  20175   10.0000 175.714                                                 \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03031a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$           Vibration of a Liquid in a Half-Filled Rigid Sphere (3-3-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The model is similar to Demonstration Problem No. 3-2-1 except that a\r\n$ hemispherical fluid model with a free surface is analyzed. Additional cards\r\n$ demonstrated are the free surface list (FSLIST) free surface points (FREEPT).\r\n$ The effective gravity for the fluid is found on the AXIF card. The fluid is\r\n$ considered incompressible.\r\n$ \r\n$ The lowest three eigenvalues and eigenvectors for the cosine and sine series\r\n$ of n = 1 are analyzed, where n is the harmonic order.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$                     2\r\n$    g  =  10.0 ft/sec           (Gravity)\r\n$ \r\n$    R  =  10.0 ft               (Radius of hemisphere)\r\n$ \r\n$                         2   4\r\n$    p  =  1.255014 lb-sec /ft   (Fluid mass density]\r\n$ \r\n$    B  =  infinity              (Bulk modulus of fluid, incompressible)\r\n$ \r\n$ C. Results\r\n$ \r\n$ Reference 17 gives the derivations and analytical results. In particular, the\r\n$ parameters used in the reference are:\r\n$ \r\n$    e = 0  (half-filled sphere)\r\n$ \r\n$              2                                                             (1)\r\n$             w R\r\n$    lambda = ----  (dimensionless eigenvalue)\r\n$              g\r\n$ \r\n$ Table 2 of Reference 17 lists the eigenvalues, lambda , lambda , and\r\n$                                                      1        2\r\n$ lambda , for the first three modes. Figure 13 of Reference 17 shows the mode\r\n$       3\r\n$ shapes.\r\n$ \r\n$ The analytic and NASTRAN results are compared in Table 1. The frequencies are\r\n$ listed and the resulting percentage errors are given. The maximum percent\r\n$ error of the surface displacement, relative to the largest displacement, is\r\n$ tabulated for each mode.\r\n$ \r\n$ The free surface displacements may be obtained by the equation:\r\n$ \r\n$        p\r\n$    u = --                                                                  (2)\r\n$        pg\r\n$ \r\n$ where p is the pressure at the free surface recorded in the NASTRAN output.\r\n$ Note that, since an Eulerian reference frame is used, the pressure at the\r\n$ original (undisturbed) surface is equal to the gravity head produced by\r\n$ motions of the surface. Special FREEPT data cards could also have been used\r\n$ for output. Since the results are scaled for normalization anyway, the\r\n$ harmonic pressures may be used directly as displacements.\r\n$ \r\n$ \r\n$ Because the cosine series and the sine series produce identical eigenvalues,\r\n$ the resulting eigenvectors may be linear combinations of both series. In other\r\n$ words the points of maximum displacement will not necessarily occur at phi = 0\r\n$ degrees or phi = 90 degrees. Since the results are scaled, however, and the\r\n$ results at phi = 0 are proportional to the results at any other angle, the\r\n$ results at phi = 0 were used.\r\n$ \r\n$     Table 1. Comparison of Natural Frequencies and Free Surface Mode Shapes\r\n$                         from the Reference and NASTRAN\r\n$ \r\n$            ---------------------------------------------------------\r\n$                          Natural Frequency (Hertz)\r\n$                       --------------------------------  Mode Shape\r\n$            Mode                              NASTRAN    Max. % Error\r\n$            Number     Reference   NASTRAN    % Error    epsilon\r\n$            ---------------------------------------------------------\r\n$              1        0.1991      0.1988     -0.1        < 1\r\n$ \r\n$              2        0.3678      0.3691      0.3        < 2.6\r\n$ \r\n$              3        0.4684      0.4766      1.8        < 4\r\n$            ---------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 17. B. Budiansky, \"Sloshing of Liquids in Circular Canals and Spherical\r\n$     Tanks\", Journal of the Aerospace Sciences, Vol. 27, No. 3, pp 161-173,\r\n$     March 1960.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03041a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D03041A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,0                                                                       \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = ACOUSTIC CAVITY ANALYSIS                                             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                          \r\nSET  1 =    1 THRU  210                                                         \r\nSET  2 =  101 THRU  131,  200 THRU  230,  300 THRU  321,  401 THRU  430,        \r\n          523 THRU  530,  624 THRU  630,  725 THRU  730,  825 THRU  830,        \r\n          926 THRU  930, 1026 THRU 1030                                         \r\n     METHOD   = 1                                                               \r\n     PRESSURE = 1                                                               \r\n     STRESS   = 2                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D03-04-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n       SET 1 INCLUDE PLOTEL                                                     \r\n       MAXIMUM DEFORMATION 5.0                                                  \r\n       AXES MZ,Y,X                                                              \r\n       VIEW -20.0, 45.0, 0.0                                                    \r\n       FIND SCALE, ORIGIN 1, SET 1                                              \r\nPTITLE = ROCKET MOTOR CAVITY USING PLOTEL ELEMENTS                              \r\nPLOT SET 1, ORIGIN 1, LABEL GRID POINTS                                         \r\nPTITLE = MODE SHAPES OF MOTOR CAVITY USING PLOTEL ELEMENTS                      \r\nPLOT MODAL DEFORMATION, SET 1, ORIGIN 1, VECTOR R                               \r\nBEGIN BULK                                                                      \r\nAXSLOT  .1143-6 20.58   0       4.      6                                       \r\nCAXIF2  101     11      12                                                      \r\nCAXIF2  102     12      19                                                      \r\nCAXIF2  103     19      26                                                      \r\nCAXIF2  104     26      32                                                      \r\nCAXIF2  107     32      37                                                      \r\nCAXIF2  108     37      41                                                      \r\nCAXIF2  109     41      45                                                      \r\nCAXIF2  110     45      49                                                      \r\nCAXIF2  111     49      53                                                      \r\nCAXIF2  112     53      57                                                      \r\nCAXIF2  113     57      61                                                      \r\nCAXIF2  114     61      65                                                      \r\nCAXIF2  115     65      69                                                      \r\nCAXIF2  116     69      73                                                      \r\nCAXIF2  117     73      77                                                      \r\nCAXIF2  119     77      81                                                      \r\nCAXIF2  120     81      85                                                      \r\nCAXIF2  121     85      91                                                      \r\nCAXIF2  123     91      97                                                      \r\nCAXIF2  124     97      104                                                     \r\nCAXIF2  125     104     112                                                     \r\nCAXIF2  126     112     122                                                     \r\nCAXIF2  127     122     142                                                     \r\nCAXIF2  128     142     162                                                     \r\nCAXIF2  129     162     182                                                     \r\nCAXIF2  130     182     202                                                     \r\nCAXIF2  131     202     201                                                     \r\nCAXIF3  200     12      19      13                                              \r\nCAXIF3  201     13      19      20                                              \r\nCAXIF3  202     19      26      20                                              \r\nCAXIF3  203     20      26      27                                              \r\nCAXIF3  204     26      32      27                                              \r\nCAXIF3  205     27      32      33                                              \r\nCAXIF3  218     77      82      78                                              \r\nCAXIF3  219     77      81      82                                              \r\nCAXIF3  221     85      91      86                                              \r\nCAXIF3  222     86      91      92                                              \r\nCAXIF3  300     13      20      14                                              \r\nCAXIF3  301     14      20      21                                              \r\nCAXIF3  302     20      27      21                                              \r\nCAXIF3  303     21      27      28                                              \r\nCAXIF3  304     27      33      28                                              \r\nCAXIF3  305     28      33      34                                              \r\nCAXIF3  306     33      38      34                                              \r\nCAXIF3  307     34      38      39                                              \r\nCAXIF3  318     78      83      79                                              \r\nCAXIF3  319     78      82      83                                              \r\nCAXIF3  321     86      92      87                                              \r\nCAXIF3  401     1       2       3                                               \r\nCAXIF3  408     28      34      29                                              \r\nCAXIF3  410     34      39      35                                              \r\nCAXIF4  207     32      37      38      33                                      \r\nCAXIF4  208     37      41      42      38                                      \r\nCAXIF4  209     41      45      46      42                                      \r\nCAXIF4  210     45      49      50      46                                      \r\nCAXIF4  211     49      53      54      50                                      \r\nCAXIF4  212     53      57      58      54                                      \r\nCAXIF4  213     57      61      62      58                                      \r\nCAXIF4  214     61      65      66      62                                      \r\nCAXIF4  215     65      69      70      66                                      \r\nCAXIF4  216     69      73      74      70                                      \r\nCAXIF4  217     73      77      78      74                                      \r\nCAXIF4  220     81      85      86      82                                      \r\nCAXIF4  223     91      97      98      92                                      \r\nCAXIF4  224     97      104     105     98                                      \r\nCAXIF4  225     104     112     113     105                                     \r\nCAXIF4  226     112     122     123     113                                     \r\nCAXIF4  227     122     142     143     123                                     \r\nCAXIF4  228     142     162     163     143                                     \r\nCAXIF4  229     162     182     183     163                                     \r\nCAXIF4  230     182     202     203     183                                     \r\nCAXIF4  308     38      42      43      39                                      \r\nCAXIF4  309     42      46      47      43                                      \r\nCAXIF4  310     46      50      51      47                                      \r\nCAXIF4  311     50      54      55      51                                      \r\nCAXIF4  312     54      58      59      55                                      \r\nCAXIF4  313     58      62      63      59                                      \r\nCAXIF4  314     62      66      67      63                                      \r\nCAXIF4  315     66      70      71      67                                      \r\nCAXIF4  316     70      74      75      71                                      \r\nCAXIF4  317     74      78      79      75                                      \r\nCAXIF4  320     82      86      87      83                                      \r\nCAXIF4  402     2       4       5       3                                       \r\nCAXIF4  403     4       6       7       5                                       \r\nCAXIF4  404     6       8       9       7                                       \r\nCAXIF4  405     8       16      17      9                                       \r\nCAXIF4  406     16      23      24      17                                      \r\nCAXIF4  407     23      29      30      24                                      \r\nCAXIF4  409     29      34      35      30                                      \r\nCSLOT3  422     89      94      95                                              \r\nCSLOT3  523     95      101     102                                             \r\nCSLOT3  624     102     109     110                                             \r\nCSLOT3  725     110     118     119                                             \r\nCSLOT3  825     119     129     120                                             \r\nCSLOT3  826     120     129     130                                             \r\nCSLOT3  926     120     130     131                                             \r\nCSLOT3  930     190     210     191                                             \r\nCSLOT3  1026    131     151     132                                             \r\nCSLOT3  1027    132     151     152                                             \r\nCSLOT3  1029    171     192     172                                             \r\nCSLOT3  1030    171     191     192                                             \r\nCSLOT4  423     94      100     101     95                                      \r\nCSLOT4  424     100     107     108     101                                     \r\nCSLOT4  425     107     115     116     108                                     \r\nCSLOT4  426     115     125     126     116                                     \r\nCSLOT4  427     125     145     146     126                                     \r\nCSLOT4  428     145     165     166     146                                     \r\nCSLOT4  429     165     185     186     166                                     \r\nCSLOT4  430     185     205     206     186                                     \r\nCSLOT4  524     101     108     109     102                                     \r\nCSLOT4  525     108     116     117     109                                     \r\nCSLOT4  526     116     126     127     117                                     \r\nCSLOT4  527     126     146     147     127                                     \r\nCSLOT4  528     146     166     167     147                                     \r\nCSLOT4  529     166     186     187     167                                     \r\nCSLOT4  530     186     206     207     187                                     \r\nCSLOT4  625     109     117     118     110                                     \r\nCSLOT4  626     117     127     128     118                                     \r\nCSLOT4  627     127     147     148     128                                     \r\nCSLOT4  628     147     167     168     148                                     \r\nCSLOT4  629     167     187     188     168                                     \r\nCSLOT4  630     187     207     208     188                                     \r\nCSLOT4  726     118     128     129     119                                     \r\nCSLOT4  727     128     148     149     129                                     \r\nCSLOT4  728     148     168     169     149                                     \r\nCSLOT4  729     168     188     189     169                                     \r\nCSLOT4  730     188     208     209     189                                     \r\nCSLOT4  827     129     149     150     130                                     \r\nCSLOT4  828     149     169     170     150                                     \r\nCSLOT4  829     169     189     190     170                                     \r\nCSLOT4  830     189     209     210     190                                     \r\nCSLOT4  927     130     150     151     131                                     \r\nCSLOT4  928     150     170     171     151                                     \r\nCSLOT4  929     170     190     191     171                                     \r\nCSLOT4  1028    151     171     172     152                                     \r\nEIGR    1       INV     100.0   500.0   6       7                       +EIG1   \r\n+EIG1   MAX                                                                     \r\nGRID    500             .0      65.25                   123456                  \r\nGRID    501             .0      11.4                    123456                  \r\nGRIDF   1       10.                                                             \r\nGRIDF   2       9.15    1.8                                                     \r\nGRIDF   3       10.6    2.6                                                     \r\nGRIDF   4       8.1     4.                                                      \r\nGRIDF   5       9.85    4.65                                                    \r\nGRIDF   6       7.3     6.2                                                     \r\nGRIDF   7       9.      6.8                                                     \r\nGRIDF   8       6.55    8.6                                                     \r\nGRIDF   9       8.6     8.9                                                     \r\nGRIDF   11      .7      11.4                                                    \r\nGRIDF   12      .7      12.                                                     \r\nGRIDF   13      1.8     12.                                                     \r\nGRIDF   14      3.3     12.1                                                    \r\nGRIDF   16      5.9     10.8                                                    \r\nGRIDF   17      8.3     10.6                                                    \r\nGRIDF   19      1.      13.3                                                    \r\nGRIDF   20      2.5     13.3                                                    \r\nGRIDF   21      3.6     13.9                                                    \r\nGRIDF   23      6.07    13.                                                     \r\nGRIDF   24      8.3     13.                                                     \r\nGRIDF   26      1.3     15.                                                     \r\nGRIDF   27      2.8     15.                                                     \r\nGRIDF   28      4.8     15.                                                     \r\nGRIDF   29      6.      14.8                                                    \r\nGRIDF   30      8.3     15.25                                                   \r\nGRIDF   32      1.6     16.7                                                    \r\nGRIDF   33      4.      16.7                                                    \r\nGRIDF   34      5.5     17.2                                                    \r\nGRIDF   35      6.9     17.7                                                    \r\nGRIDF   37      2.      18.82                                                   \r\nGRIDF   38      4.4     18.82                                                   \r\nGRIDF   39      6.89    18.82                                                   \r\nGRIDF   41      2.      21.                                                     \r\nGRIDF   42      4.4     21.                                                     \r\nGRIDF   43      6.875   21.                                                     \r\nGRIDF   45      2.      23.2                                                    \r\nGRIDF   46      4.4     23.2                                                    \r\nGRIDF   47      6.85    23.2                                                    \r\nGRIDF   49      2.      25.4                                                    \r\nGRIDF   50      4.4     25.4                                                    \r\nGRIDF   51      6.825   25.4                                                    \r\nGRIDF   53      2.      27.6                                                    \r\nGRIDF   54      4.4     27.6                                                    \r\nGRIDF   55      6.8     27.6                                                    \r\nGRIDF   57      2.      29.8                                                    \r\nGRIDF   58      4.4     29.8                                                    \r\nGRIDF   59      6.775   29.8                                                    \r\nGRIDF   61      2.      32.                                                     \r\nGRIDF   62      4.4     32.                                                     \r\nGRIDF   63      6.75    32.                                                     \r\nGRIDF   65      2.      34.2                                                    \r\nGRIDF   66      4.4     34.2                                                    \r\nGRIDF   67      6.725   34.2                                                    \r\nGRIDF   69      2.      36.4                                                    \r\nGRIDF   70      4.4     36.4                                                    \r\nGRIDF   71      6.7     36.4                                                    \r\nGRIDF   73      2.      38.6                                                    \r\nGRIDF   74      4.4     38.6                                                    \r\nGRIDF   75      6.675   38.6                                                    \r\nGRIDF   77      2.      40.3                                                    \r\nGRIDF   78      4.4     40.3                                                    \r\nGRIDF   79      6.55    40.3                                                    \r\nGRIDF   81      2.      41.85                                                   \r\nGRIDF   82      3.4     41.85                                                   \r\nGRIDF   83      4.6     41.85                                                   \r\nGRIDF   85      2.      43.85                                                   \r\nGRIDF   86      3.4     43.85                                                   \r\nGRIDF   91      2.      46.25                                                   \r\nGRIDF   97      2.      48.5                                                    \r\nGRIDF   104     2.      50.8                                                    \r\nGRIDF   112     2.      52.8                                                    \r\nGRIDF   122     2.      55.                                                     \r\nGRIDF   142     2.      57.2                                                    \r\nGRIDF   162     2.      59.4                                                    \r\nGRIDF   182     2.      61.6                                                    \r\nGRIDF   201     2.5     65.25                                                   \r\nGRIDF   202     2.5     63.7                                                    \r\nGRIDS   89      4.6     43.85           87                                      \r\nGRIDS   94      4.3     46.25           92                                      \r\nGRIDS   95      6.9     46.25                                                   \r\nGRIDS   100     4.3     48.5            98                                      \r\nGRIDS   101     6.5     48.5                                                    \r\nGRIDS   102     9.04    48.5                                                    \r\nGRIDS   107     4.3     50.8    3.541   105                                     \r\nGRIDS   108     6.5     50.8    3.528                                           \r\nGRIDS   109     8.7     50.8    3.514                                           \r\nGRIDS   110     11.25   50.8    3.497                                           \r\nGRIDS   115     4.3     52.8    2.991   113                                     \r\nGRIDS   116     6.5     52.8    2.961                                           \r\nGRIDS   117     8.7     52.8    2.93                                            \r\nGRIDS   118     10.9    52.8    2.9                                             \r\nGRIDS   119     13.6    52.8    2.863                                           \r\nGRIDS   120     15.3    53.9    2.84                                            \r\nGRIDS   125     4.3     55.     2.991   123                                     \r\nGRIDS   126     6.5     55.     2.961                                           \r\nGRIDS   127     8.7     55.     2.93                                            \r\nGRIDS   128     10.9    55.     2.9                                             \r\nGRIDS   129     13.1    55.     2.87                                            \r\nGRIDS   130     15.3    55.     2.84                                            \r\nGRIDS   131     17.5    55.05   2.81                                            \r\nGRIDS   132     18.65   56.     2.794                                           \r\nGRIDS   145     4.3     57.2    2.991   143                                     \r\nGRIDS   146     6.5     57.2    2.961                                           \r\nGRIDS   147     8.7     57.2    2.93                                            \r\nGRIDS   148     10.9    57.2    2.9                                             \r\nGRIDS   149     13.1    57.2    2.87                                            \r\nGRIDS   150     15.3    57.2    2.84                                            \r\nGRIDS   151     17.5    57.2    2.81                                            \r\nGRIDS   152     19.35   57.2    2.784                                           \r\nGRIDS   165     4.3     59.4    2.991   163                                     \r\nGRIDS   166     6.5     59.4    2.961                                           \r\nGRIDS   167     8.7     59.4    2.93                                            \r\nGRIDS   168     10.9    59.4    2.9                                             \r\nGRIDS   169     13.1    59.4    2.87                                            \r\nGRIDS   170     15.3    59.4    2.84                                            \r\nGRIDS   171     17.5    59.4    2.81                                            \r\nGRIDS   172     19.35   59.4    2.784                                           \r\nGRIDS   185     4.3     61.6    2.991   183                                     \r\nGRIDS   186     6.5     61.6    2.961                                           \r\nGRIDS   187     8.7     61.6    2.93                                            \r\nGRIDS   188     10.9    61.6    2.9                                             \r\nGRIDS   189     13.1    61.6    2.87                                            \r\nGRIDS   190     15.3    61.6    2.84                                            \r\nGRIDS   191     17.5    61.5    2.81                                            \r\nGRIDS   192     18.5    60.65   2.795                                           \r\nGRIDS   205     4.3     63.65   2.991   203                                     \r\nGRIDS   206     6.5     63.6    2.961                                           \r\nGRIDS   207     8.7     63.55   2.93                                            \r\nGRIDS   208     10.9    63.5    2.9                                             \r\nGRIDS   209     13.1    63.3    2.87                                            \r\nGRIDS   210     15.3    62.63   2.84                                            \r\nPLOTEL  1       201     500             2       500     501                     \r\nPLOTEL  3       501     11                                                      \r\nSLBDY                   89      94      100     107     115     125     +BDY    \r\n+BDY    145     165     185     205                                             \r\nSUPORT  1       1                                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03041a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$                        Acoustic Cavity Analysis (3-4-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of NASTRAN to determine the acoustic modes in\r\n$ a cavity containing both axisymmetric regions and evenly spaced radial slots.\r\n$ The motor cavity of Stage IlI of the Minuteman III missile is selected for\r\n$ analysis. The finite element model consists of six slots and a long, slender\r\n$ central cavity of irregular shape. The model consists of AXIF2, AXIF3, and\r\n$ AXIF4 finite elements in the central cavity, and SLOT3 and SLOT4 finite\r\n$ elements in the slotted region.\r\n$ \r\n$ The axisymmetric radial and longitudinal acoustic modes are desired (N = 0)\r\n$ for this problem. The harmonic index N specifies the Fourier Series terms to\r\n$ be analyzed. For example, N = 1 defines the lateral motion where the velocity\r\n$ is normal to the center axis. Repeated runs with N = 0, 1, ...M/2 may be\r\n$ necessary to extract all possible modes, where M is the number of radial slots\r\n$ specified.\r\n$ \r\n$ B. Input\r\n$ \r\n$ Parameters:\r\n$                     -7\r\n$ p     =   1.143 x 10   (Fluid density)\r\n$ \r\n$ beta  =   20.58        (Fluid bulk modulus)\r\n$ \r\n$ N     =    0           (Harmonic index)\r\n$ \r\n$ WD    =    4.0         (Slot width)\r\n$ \r\n$ MD    =    6           (Number of slots)\r\n$ \r\n$ C. Results\r\n$ \r\n$ The vibration mode frequencies for harmonic n = 0 as determined with NASTRAN\r\n$ are shown in Table 1. Also shown are the vibration mode frequencies as\r\n$ determined with an acoustic model and reported in Reference 19.\r\n$ \r\n$ Table 1. Natural Frequencies for the Third Stage, Minuteman III, Motor Cavity\r\n$ \r\n$                                     Frequency, Hz\r\n$                                 ----------------------\r\n$                                   NASTRAN    Experi-\r\n$                           Mode               mental\r\n$                           ----------------------------\r\n$                            1        0.0         0.0\r\n$ \r\n$                            2       90.1        93.0\r\n$ \r\n$                            3      199.5       200.0\r\n$ \r\n$                            4      310.4       312.0\r\n$ \r\n$                            5      388.0       388.0\r\n$ \r\n$                            6      449.1       466.0\r\n$ \r\n$                            7      512.8       518.0\r\n$                           ----------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 19. Herting, David N.; Joseph, Jerrard A.; Kuusinen, Loren R.; and MacNeal,\r\n$     Richard H.: Acoustic Analysis of Solid Rocket Motor Cavities by a Finite\r\n$     Element Method. NASA TN X-2378, September, 1971, pp. 285-324.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03051a.inp",
    "content": "ID    D03051A,NASTRAN                                                           \r\nAPP   HEAT                                                                      \r\nDIAG  18                                                                        \r\nSOL   3,1                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = NONLINEAR HEAT TRANSFER IN AN INFINITE SLAB                          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-05-1A                          \r\nOLOAD    = ALL                                                                  \r\nSPCFORCE = ALL                                                                  \r\nTHERMAL(PRINT,PUNCH) = ALL                                                      \r\nELFORCE  = ALL                                                                  \r\nTEMPERATURE(MATERIAL) = 201                                                     \r\nSPC  = 350                                                                      \r\nLOAD = 252                                                                      \r\nBEGIN BULK                                                                      \r\nCBAR    1       101     1       2       .0      1.0     .0      1               \r\nCHBDY   5       105     POINT   1                                       +HBDY5  \r\n+HBDY5                                  -1.0    .0      .0                      \r\nCONROD  3       2       3       200     3.14159                                 \r\nCROD    2       102     3       4                                               \r\nCTUBE   4       103     4       5                                               \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nMAT4    200     1.0                                                             \r\nMATT4   200     200                                                             \r\nPARAM   EPSHT   .001                                                    HEAT    \r\nPARAM   IRES    1                                                               \r\nPARAM   MAXIT   30                                                      HEAT    \r\nPBAR    101     200     3.14159                                                 \r\nPHBDY   105             3.14159                                                 \r\nPROD    102     200     3.14159                                                 \r\nPTUBE   103     200     2.0     .0                                              \r\nQVOL    252     12.5    1       THRU    4                                       \r\nSPC     350     5               .0                                              \r\nTABLEM3 200     .0      1.0                                             +T200   \r\n+T200   .0      1.0     100.0   2.0     ENDT                                    \r\nTEMPD   201     .0                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03051a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$            RIGID FORMAT No. 3 (APP HEAT), Nonlinear Heat Conduction\r\n$               Nonlinear Heat Transfer in an Infinite Slab (3-5-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates NASTRAN's capability to solve nonlinear steady state\r\n$ heat conduction problems. The infinite slab is subjected to uniform heat\r\n$ addition per unit volume. There is no heat flux on one face and the other face\r\n$ is kept at zero degrees. The conductivity is temperature dependent. This is a\r\n$ one dimensional problem, since there is no temperature gradient parallel to\r\n$ the surfaces of the slab.\r\n$ \r\n$ B. Input\r\n$ \r\n$ Linear elements BAR, CONROD, ROD, and TUBE with areas of pi square units and\r\n$ boundary condition element HBDY (POINT) are used. The heat addition is\r\n$ specified on a QVOL card and is referenced in Case Control by a LOAD card. The\r\n$ area factor for the HBDY is given on the PHBDY card and heat flux is zero. The\r\n$ initial temperatures are given on a TEMPD card and referenced in Case Control\r\n$ by a TEMP (MATERIAL) card. The conductlvity is specified on a MAT4 card and is\r\n$ made temperature dependent by the MATT4 card referencing table TABLEM3. The\r\n$ convergence parameter, the maximum number of iterations, and an option to have\r\n$ the residual vector output are specified on PARAM cards. The temperature at\r\n$ the outer surface is specified by an SPC card. Temperature output is punched\r\n$ on TEMP bulk data cards for future use in static analysis.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The conductivity, k, is defined by\r\n$ \r\n$    k(T) = 1 + T/l00                                                        (1)\r\n$ \r\n$ where T is the temperature.\r\n$ \r\n$ The heat flow per area, q, is\r\n$ \r\n$               dT                 dT\r\n$    q(x) = - k -- = - (1 + T/100) --                                        (2)\r\n$               dx                 dx\r\n$ \r\n$ The heat input per volume, q , affects the heat flow by the equatIon\r\n$                             v\r\n$ \r\n$    dq(x)\r\n$    ----- = q                                                               (3)\r\n$      dx     v\r\n$ \r\n$ A convenient substitution of variables in Equations (2) and (3) is\r\n$ \r\n$                                     2\r\n$    u = - integral of q(x)dx = (T + T /200)                                 (4)\r\n$ \r\n$ Differentiation and substitution for q in Equation (3) results in the second-\r\n$ order equation in u:\r\n$ \r\n$     2\r\n$    d u\r\n$    --- = -q                                                                (5)\r\n$      2     v\r\n$    dx\r\n$ \r\n$ From the following boundary conditions\r\n$ \r\n$    u = 0 at x = l\r\n$ \r\n$ and\r\n$ \r\n$    du\r\n$    -- = 0 at x = 0\r\n$    dx\r\n$ \r\n$ the solution to Equation (5) is\r\n$ \r\n$        q\r\n$         v    2    2\r\n$    u = -- ( l  - x  )                                                      (6)\r\n$        2\r\n$ \r\n$ Therefore the solution for the temperature is\r\n$ \r\n$                               2    2       1/2\r\n$    T = 100 [ -1 +/- (1 + q  (l  - x  )/100)   ]                            (7)\r\n$                           v\r\n$ \r\n$ Since heat is flowing into the system, the positive temperature solution will\r\n$ occur.\r\n$ \r\n$ D. Results\r\n$ \r\n$ A comparison with NASTRAN results is shown in Table 1.\r\n$ \r\n$            Table 1. Comparison of Theoretical and NASTRAN Temperatures\r\n$                 for Nonlinear Heat Conduction in an Infinite Slab\r\n$                 ----------------------------------\r\n$                 Grid     Theoretical      NASTRAN\r\n$                 Point    Temperature      Solution\r\n$                 ----------------------------------\r\n$                   1          73.20         73.13\r\n$                   2          69.56         69.53\r\n$                   3          58.11         58.11\r\n$                   4          36.93         36.93\r\n$                   5           0.00          0.00\r\n$                 ----------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03061a.inp",
    "content": "ID    D03061A,NASTRAN                                                           \r\nTIME  15                                                                        \r\nAPP   HEAT                                                                      \r\nSOL   3,1                                                                       \r\nCEND                                                                            \r\nTITLE    = NONLINEAR RADIATION AND CONDUCTION OF A CYLINDER                     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-06-1A                          \r\nLOAD = 102                                                                      \r\nTEMP(MATERIAL) = 201                                                            \r\nOUTPUT                                                                          \r\nTHERMAL = ALL                                                                   \r\nOLOAD   = ALL                                                                   \r\nELFORCE = ALL                                                                   \r\nBEGIN BULK                                                                      \r\nCHBDY   21      101     LINE    20      1                               +B1     \r\n+B1                                     1.0                                     \r\nCHBDY   22      101     LINE    1       2                               +B2     \r\n+B2                                     1.0                                     \r\nCHBDY   23      101     LINE    2       3                               +B3     \r\n+B3                                     1.0                                     \r\nCHBDY   24      101     LINE    3       4                               +B4     \r\n+B4                                     1.0                                     \r\nCHBDY   25      101     LINE    4       5                               +B5     \r\n+B5                                     1.0                                     \r\nCHBDY   26      101     LINE    5       6                               +B6     \r\n+B6                                     -1.0                                    \r\nCHBDY   27      101     LINE    6       7                               +B7     \r\n+B7                                     -1.0                                    \r\nCHBDY   28      101     LINE    7       8                               +B8     \r\n+B8                                     -1.0                                    \r\nCHBDY   29      101     LINE    8       9                               +B9     \r\n+B9                                     -1.0                                    \r\nCHBDY   30      101     LINE    9       10                              +B10    \r\n+B10                                    -1.0                                    \r\nCHBDY   31      101     LINE    10      11                              +B11    \r\n+B11                                    -1.0                                    \r\nCHBDY   32      101     LINE    11      12                              +B12    \r\n+B12                                    -1.0                                    \r\nCHBDY   33      101     LINE    12      13                              +B13    \r\n+B13                                    -1.0                                    \r\nCHBDY   34      101     LINE    13      14                              +B14    \r\n+B14                                    -1.0                                    \r\nCHBDY   35      101     LINE    14      15                              +B15    \r\n+B15                                    -1.0                                    \r\nCHBDY   36      101     LINE    15      16                              +B16    \r\n+B16                                    1.0                                     \r\nCHBDY   37      101     LINE    16      17                              +B17    \r\n+B17                                    1.0                                     \r\nCHBDY   38      101     LINE    17      18                              +B18    \r\n+B18                                    1.0                                     \r\nCHBDY   39      101     LINE    18      19                              +B19    \r\n+B19                                    1.0                                     \r\nCHBDY   40      101     LINE    19      20                              +B20    \r\n+B20                                    1.0                                     \r\nCHBDY   41      101     LINE    20      1                                       \r\nCHBDY   42      101     LINE    1       2                                       \r\nCHBDY   43      101     LINE    2       3                                       \r\nCHBDY   44      101     LINE    3       4                                       \r\nCHBDY   45      101     LINE    4       5                                       \r\nCHBDY   46      101     LINE    5       6                                       \r\nCHBDY   47      101     LINE    6       7                                       \r\nCHBDY   48      101     LINE    7       8                                       \r\nCHBDY   49      101     LINE    8       9                                       \r\nCHBDY   50      101     LINE    9       10                                      \r\nCHBDY   51      101     LINE    10      11                                      \r\nCHBDY   52      101     LINE    11      12                                      \r\nCHBDY   53      101     LINE    12      13                                      \r\nCHBDY   54      101     LINE    13      14                                      \r\nCHBDY   55      101     LINE    14      15                                      \r\nCHBDY   56      101     LINE    15      16                                      \r\nCHBDY   57      101     LINE    16      17                                      \r\nCHBDY   58      101     LINE    17      18                                      \r\nCHBDY   59      101     LINE    18      19                                      \r\nCHBDY   60      101     LINE    19      20                                      \r\nCORD2C  1                                                       1.0     +CORD1  \r\n+CORD1  1.0                                                                     \r\nCROD    1       100     20      1       2       100     1       2               \r\nCROD    3       100     2       3       4       100     3       4               \r\nCROD    5       100     4       5       6       100     5       6               \r\nCROD    7       100     6       7       8       100     7       8               \r\nCROD    9       100     8       9       10      100     9       10              \r\nCROD    11      100     10      11      12      100     11      12              \r\nCROD    13      100     12      13      14      100     13      14              \r\nCROD    15      100     14      15      16      100     15      16              \r\nCROD    17      100     16      17      18      100     17      18              \r\nCROD    19      100     18      19      20      100     19      20              \r\nGRDSET          1                                                               \r\nGRID    1               2.0     18.                                             \r\nGRID    2               2.0     36.                                             \r\nGRID    3               2.0     54.                                             \r\nGRID    4               2.0     72.                                             \r\nGRID    5               2.0     90.                                             \r\nGRID    6               2.0     108.                                            \r\nGRID    7               2.0     126.                                            \r\nGRID    8               2.0     144.                                            \r\nGRID    9               2.0     162.                                            \r\nGRID    10              2.0     180.                                            \r\nGRID    11              2.0     198.                                            \r\nGRID    12              2.0     216.                                            \r\nGRID    13              2.0     234.                                            \r\nGRID    14              2.0     252.                                            \r\nGRID    15              2.0     270.                                            \r\nGRID    16              2.0     288.                                            \r\nGRID    17              2.0     306.                                            \r\nGRID    18              2.0     324.                                            \r\nGRID    19              2.0     342.                                            \r\nGRID    20              2.0     .0                                              \r\nMAT4    100     94.5    36.7                                                    \r\nPARAM   EPSHT   .001                                                    HEAT    \r\nPARAM   MAXIT   20                                                      HEAT    \r\nPARAM   SIGMA   .174-8                                                  HEAT    \r\nPARAM   TABS    460.                                                    HEAT    \r\nPHBDY   101             20.306  .1                                              \r\nPROD    100     100     .020306                                                 \r\nQVECT   102     425.    -1.     .0      .0      21      22      23      +Q102   \r\n+Q102   24      25      26      27      28      29      30      31      +Q102A  \r\n+Q102A  32      33      34      35      36      37      38      39      +Q102B  \r\n+Q102B  40                                                                      \r\nRADLST  21      THRU    40      41      THRU    60                              \r\nRADMTX  21      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R21    \r\n+R21    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R21A   \r\n+R21A   .70711  .58779  .45399  .30902  .15643                                  \r\nRADMTX  22      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R22    \r\n+R22    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R22A   \r\n+R22A   .70711  .58779  .45399  .30902                                          \r\nRADMTX  23      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R23    \r\n+R23    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R23A   \r\n+R23A   .70711  .58779  .45399                                                  \r\nRADMTX  24      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R24    \r\n+R24    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R24A   \r\n+R24A   .70711  .58779                                                          \r\nRADMTX  25      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R25    \r\n+R25    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902  +R25A   \r\n+R25A   .70711                                                                  \r\nRADMTX  26      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R26    \r\n+R26    .89101  .95106  .98769  1.0     .98769  .95106  .89101  .80902          \r\nRADMTX  27      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R27    \r\n+R27    .89101  .95106  .98769  1.0     .98769  .95106  .89101                  \r\nRADMTX  28      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R28    \r\n+R28    .89101  .95106  .98769  1.0     .98769  .95106                          \r\nRADMTX  29      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R29    \r\n+R29    .89101  .95106  .98769  1.0     .98769                                  \r\nRADMTX  30      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R30    \r\n+R30    .89101  .95106  .98769  1.0                                             \r\nRADMTX  31      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R31    \r\n+R31    .89101  .95106  .98769                                                  \r\nRADMTX  32      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R32    \r\n+R32    .89101  .95106                                                          \r\nRADMTX  33      .0      .15643  .30902  .45399  .58779  .70711  .80902  +R33    \r\n+R33    .89101                                                                  \r\nRADMTX  34      .0      .15643  .30902  .45399  .58779  .70711  .80902          \r\nRADMTX  35      .0      .15643  .30902  .45399  .58779  .70711                  \r\nRADMTX  36      .0      .15643  .30902  .45399  .58779                          \r\nRADMTX  37      .0      .15643  .30902  .45399                                  \r\nRADMTX  38      .0      .15643  .30902                                          \r\nRADMTX  39      .0      .15643                                                  \r\nTEMPD   201     200.0                                                           \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03061a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                       RIGID FORMAT No. 3, Approach Heat,\r\n$            Nonlinear Radiation and Conduction of a Cylinder (3-6-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the solution of a combined conduction and radiation\r\n$ heat transfer analysis. The model is a two-dimensional representation of a\r\n$ long cylinder subject to radiant heat from a distant source. The shell has\r\n$ internal radiation exchange, external radiation loss, and conduction around\r\n$ the circumference.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The NASTRAN model uses ROD elements to represent the circumferential heat flow\r\n$ and HBDY elements to represent the inside and outside surfaces. The radiation\r\n$ exchange factors for the inside of the cylinder are defined on the RADMTX data\r\n$ cards. The incoming vector flux is defined on the QVECT data card. The model\r\n$ parameters are:\r\n$ \r\n$ R  =  2.0 ft                      (Radius of shell)\r\n$ \r\n$ t  =  .001 ft                     (Thickness)\r\n$ \r\n$ l  =  20.306 ft                   (Axial length)\r\n$ \r\n$ epsilon = alpha = 0.1             (Emissivity and absorptivity)\r\n$ \r\n$                  2\r\n$ q  =  425 BTU/(ft -hr)            (Source flux density)\r\n$  v\r\n$ \r\n$ k  =  94.5 BTU/(hr-ft-deg. F)      (Conductivity of shell)\r\n$ \r\n$                  -8        2          4\r\n$ sigma = .174 x 10   BTU/(ft -hr-deg. R ) (Stefan-Boltzmann radiation\r\n$                                    constant)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ A closed-form solution to this problem is not available. However, the solution\r\n$ may be validated by checking the global net heat flow, the local net heat\r\n$ exchange, and the estimated average temperature.\r\n$ \r\n$ An estimate of the average temperature may be obtained from the equations:\r\n$ \r\n$    Q   = alpha q  lR integral from -pi/2 to pi/2 of cos theta d theta =\r\n$     in          v\r\n$                                                                            (1)\r\n$    2 alpha lRq\r\n$               v\r\n$ \r\n$ and\r\n$ \r\n$                         _4\r\n$    Q    = epsilon sigma T  (2 pi Rl)                                       (2)\r\n$     out\r\n$ \r\n$ where Q   is the total input from the source, Q    is the net flux radiated\r\n$        in   _                                  out\r\n$ outward and T is the average absolute temperature.\r\n$ \r\n$ Since the net heat flow must be zero in a steady-state analysis, Equations (1)\r\n$ and (2) are equated to obtain:\r\n$ \r\n$           q\r\n$    _4      v\r\n$    T  = --------                                                           (3)\r\n$         pi sigma\r\n$ \r\n$ D. Results\r\n$ \r\n$ The average value of temperature from the NASTRAN results shows 57.87 degrees\r\n$ F. The estimated average temperature from Equation (3) above is 68 degrees.\r\n$ The difference is due to the non-uniform radiation effects.\r\n$ \r\n$ A second check is provided by computing the global net heat flow error in the\r\n$ system. Summing the net flow into each element gives a net heat flow error\r\n$ several orders of magnitude less than the total heat from the source. As a\r\n$ further check, the local net heat flow error at grid point 2 was calculated by\r\n$ summing the contributions from the connected elements. The heat flow terms, as\r\n$ calculated by NASTRAN, were:\r\n$ \r\n$    Q      = 59.420     (Flow through ROD #2 (flux - area))\r\n$     2\r\n$ \r\n$    Q      = 97.862     (Flow through ROD #3 (flux - area))\r\n$     3\r\n$ \r\n$    Q      = -133.564   (Inside radiation flow into HBDY #42)\r\n$     r42\r\n$ \r\n$    Q      = -85.352    (Inside radiation flow into HBDY #43)\r\n$     r43\r\n$ \r\n$    Q      = -305.418   (Outside radiation into HBDY #22)\r\n$     r22\r\n$ \r\n$    Q      = -257.930   (Outside radiation into HBDY #23)\r\n$     r23\r\n$ \r\n$    Q      = 481.157    (Vector flux input to HBDY #22)\r\n$     v22\r\n$ \r\n$    Q      = 381.848    (Vector flux input to HBDY #23)\r\n$     v23\r\n$ \r\n$ The net flow error into grid point 2 is:\r\n$ \r\n$    _    1\r\n$    Q  = - (Q    + Q    + Q    + Q    + Q    + Q   ) + Q  - Q  = 1.9 BTU    (4)\r\n$     2   2   r22    r23    r42    r43    v22    v23     2    3\r\n$ \r\n$ This error is less than 1% of the total heat flow input at the point.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03071a.inp",
    "content": "ID    D03071A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,0                                                                       \r\nTIME  60                                                                        \r\nCEND                                                                            \r\nTITLE    = VIBRATIONS OF A LINEARLY TAPERED CANTILEVER PLATE                    \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-07-1A                          \r\nMETHOD = 3                                                                      \r\nSPC    =  2                                                                     \r\nOUTPUT                                                                          \r\nVECTOR = ALL                                                                    \r\nBEGIN BULK                                                                      \r\nCTRPLT1 1       6       13      8       3       2       1       9       +TR1    \r\n+TR1                                                                            \r\nCTRPLT1 2       7       1       10      11      12      13      9       +TR2    \r\n+TR2                                                                            \r\nCTRPLT1 3       8       23      18      13      12      11      19      +TR3    \r\n+TR3                                                                            \r\nCTRPLT1 4       9       11      20      21      22      23      19      +TR4    \r\n+TR4                                                                            \r\nCTRPLT1 5       10      33      28      23      22      21      29      +TR5    \r\n+TR5                                                                            \r\nCTRPLT1 6       11      21      30      31      32      33      29      +TR6    \r\n+TR6                                                                            \r\nCTRPLT1 7       12      43      38      33      32      31      39      +TR7    \r\n+TR7                                                                            \r\nCTRPLT1 8       13      31      40      41      42      43      39      +TR8    \r\n+TR8                                                                            \r\nCTRPLT1 9       14      15      6       5       4       3       7       +TR9    \r\n+TR9                                                                            \r\nCTRPLT1 10      15      3       8       13      14      15      7       +TR10   \r\n+TR10                                                                           \r\nCTRPLT1 11      16      25      16      15      14      13      17      +TR11   \r\n+TR11                                                                           \r\nCTRPLT1 12      17      13      18      23      24      25      17      +TR12   \r\n+TR12                                                                           \r\nCTRPLT1 13      18      35      26      25      24      23      27      +TR13   \r\n+TR13                                                                           \r\nCTRPLT1 14      19      23      28      33      34      35      27      +TR14   \r\n+TR14                                                                           \r\nCTRPLT1 15      20      45      36      35      34      33      37      +TR15   \r\n+TR15                                                                           \r\nCTRPLT1 16      21      33      38      43      44      45      37      +TR16   \r\n+TR16                                                                           \r\nEIGR    3       INV     .0001   4000.0  8       8       0               +ABC    \r\n+ABC    MAX                                                                     \r\nGRDSET                                                  126                     \r\nGRID    1               0.0     0.0     0.0                                     \r\nGRID    2               0.0     .625    0.0                                     \r\nGRID    3               0.0     1.25    0.0                                     \r\nGRID    4               0.0     1.875   0.0                                     \r\nGRID    5               0.0     2.5     0.0                                     \r\nGRID    6               .625    2.5     0.0                                     \r\nGRID    7               .625    1.875   0.0                                     \r\nGRID    8               .625    1.25    0.0                                     \r\nGRID    9               .625    .625    0.0                                     \r\nGRID    10              .625    0.0     0.0                                     \r\nGRID    11              1.25    0.0     0.0                                     \r\nGRID    12              1.25    .625    0.0                                     \r\nGRID    13              1.25    1.25    0.0                                     \r\nGRID    14              1.25    1.875   0.0                                     \r\nGRID    15              1.25    2.5     0.0                                     \r\nGRID    16              1.875   2.5     0.0                                     \r\nGRID    17              1.875   1.875   0.0                                     \r\nGRID    18              1.875   1.25    0.0                                     \r\nGRID    19              1.875   .625    0.0                                     \r\nGRID    20              1.875   0.0     0.0                                     \r\nGRID    21              2.5     0.0     0.0                                     \r\nGRID    22              2.5     .625    0.0                                     \r\nGRID    23              2.5     1.25    0.0                                     \r\nGRID    24              2.5     1.875   0.0                                     \r\nGRID    25              2.5     2.5     0.0                                     \r\nGRID    26              3.125   2.5     0.0                                     \r\nGRID    27              3.125   1.875   0.0                                     \r\nGRID    28              3.125   1.25    0.0                                     \r\nGRID    29              3.125   .625    0.0                                     \r\nGRID    30              3.125   0.0     0.0                                     \r\nGRID    31              3.75    0.0     0.0                                     \r\nGRID    32              3.75    .625    0.0                                     \r\nGRID    33              3.75    1.25    0.0                                     \r\nGRID    34              3.75    1.875   0.0                                     \r\nGRID    35              3.75    2.5     0.0                                     \r\nGRID    36              4.375   2.5     0.0                                     \r\nGRID    37              4.375   1.875   0.0                                     \r\nGRID    38              4.315   1.25    0.0                                     \r\nGRID    39              4.375   .625    0.0                                     \r\nGRID    40              4.375   0.0     0.0                                     \r\nGRID    41              5.0     0.0     0.0                                     \r\nGRID    42              5.0     .625    0.0                                     \r\nGRID    43              5.0     1.25    0.0                                     \r\nGRID    44              5.0     1.875   0.0                                     \r\nGRID    45              5.0     2.5     0.0                                     \r\nMAT1    4       3.0+7           .3      7.3698-4                                \r\nPARAM   COUPMASS1                                                               \r\nPTRPLT1 6       4       4.3877-5        1.0E-10                         +TP2    \r\n+TP2                                                                            \r\nPTRPLT1 7       4       1.0E-10         4.3877-5                        +TP3    \r\n+TP3                                                                            \r\nPTRPLT1 8       4       4.3877-5        1.0E-10                         +TP4    \r\n+TP4                                                                            \r\nPTRPLT1 9       4       1.0E-10         4.3877-5                        +TP5    \r\n+TP5                                                                            \r\nPTRPLT1 10      4       4.3877-5        1.0E-10                         +TP6    \r\n+TP6                                                                            \r\nPTRPLT1 11      4       1.0E-10         4.3877-5                        +TP7    \r\n+TP7                                                                            \r\nPTRPLT1 12      4       4.3877-5        1.0E-10                         +TP8    \r\n+TP8                                                                            \r\nPTRPLT1 13      4       1.0E-10         4.3877-5                        +TP9    \r\n+TP9                                                                            \r\nPTRPLT1 14      4       3.5101-4        4.3877-5                        +TP10   \r\n+TP10                                                                           \r\nPTRPLT1 15      4       4.3877-5        3.5101-4                        +TP11   \r\n+TP11                                                                           \r\nPTRPLT1 16      4       3.5101-4        4.3877-5                        +TP12   \r\n+TP12                                                                           \r\nPTRPLT1 17      4       4.3877-5        3.5101-4                        +TP13   \r\n+TP13                                                                           \r\nPTRPLT1 18      4       3.5101-4        4.3877-5                        +TP14   \r\n+TP14                                                                           \r\nPTRPLT1 19      4       4.3877-5        3.5101-4                        +TP15   \r\n+TP15                                                                           \r\nPTRPLT1 20      4       3.5101-4        4.3877-5                        +TP16   \r\n+TP16                                                                           \r\nPTRPLT1 21      4       4.3877-5        3.5101-4                        +TP17   \r\n+TP17                                                                           \r\nSPC1    2       345     1       2       3       4       5                       \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03071a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$             Vibrations of a Linear Tapered Cantilever Plate (3-7-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of the higher order triangular bending\r\n$ element TRPLT1 to solve a normal modes analysis. The structural model is that\r\n$ of a thin isotropic plate with tapered cross section, cantilevered at one end.\r\n$ \r\n$ B. Input\r\n$ \r\n$                7      2\r\n$    E = 3.0 x 10  lb/in      (Modulus of elasticity)\r\n$ \r\n$                    -5   4\r\n$    I  = 4.3877 x 10   in    (Maximum bending inertia)\r\n$     o\r\n$ \r\n$    t  = 0.0807 in           (Maximum thickness)\r\n$     o\r\n$ \r\n$    a  = 5.0 in              (Length)\r\n$ \r\n$    v  = .3                  (Poisson's ratio)\r\n$ \r\n$                       2   4\r\n$    p  =  7.3698 lb sec /in  (Mass density)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The theory for the tapered plate elements is developed in Reference 33. In\r\n$ this reference, a frequency parameter is defined as\r\n$ \r\n$               2\r\n$    omega = w a  sqrt (pt  / D )                                            (1)\r\n$                         o    o\r\n$ \r\n$ where\r\n$ \r\n$    a   =  length\r\n$ \r\n$    p   =  mass density\r\n$ \r\n$    w   =  circular frequency\r\n$ \r\n$    t   =  thickness\r\n$     o\r\n$ \r\n$ The bending rigidity, D , is defined as\r\n$                        o\r\n$ \r\n$              3\r\n$            Et\r\n$              o\r\n$    D  = ----------                                                         (2)\r\n$     o           2\r\n$         12(1 - v )\r\n$ \r\n$ D. Results\r\n$ \r\n$ The results of the NASTRAN analysis using the TRPLT1 element are presented in\r\n$ Table 1. For purposes of comparison, results are presented from an experiment\r\n$ described by Plunkett in Reference 34. In this table the modes are identified\r\n$ by m and n, where m represents the number of nodal lines perpendicular to the\r\n$ support and n represents the number of nodal limes parallel to the support.\r\n$ \r\n$               Table 1. Frequency Parameters for a Linearly Tapered\r\n$                       Rectangular Cantilever Plate; v = 0.3\r\n$                  ----------------------------------------------\r\n$                                        Frequency Parameter\r\n$                                                   2        1/2\r\n$                                       omega  =w  a (pt /D )\r\n$                     Mode                   mn  mn     o  o\r\n$                  ----------------------------------------------\r\n$                  m         n        TRPLT1         Experiment\r\n$                  ----------------------------------------------\r\n$                  0         0         2.25             2.47\r\n$ \r\n$                  1         0        10.0             10.6\r\n$ \r\n$                  0         1        13.6             14.5\r\n$ \r\n$                  1         1        27.0             28.7\r\n$ \r\n$                  0         2        32.8             34.4\r\n$ \r\n$                  0         3        47.3             47.4\r\n$ \r\n$                  2         0        53.3             52.5\r\n$ \r\n$                  1         2        57.7             54.0\r\n$                  ----------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 33. Leissa, A. W.: Vibration of Plates, NASA SP-160, 1969, Chapter 11.\r\n$ \r\n$ 34. Plunkett, R.: \"Natural Frequencies of Uniform and Non-Uniform Rectangular\r\n$     Cantilever Plates\", J. Mech. Engr. Sci., Vol 5, 1963, pp. 146-156.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03081a.inp",
    "content": "ID    D03081A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,0                                                                       \r\nTIME  14                                                                        \r\nDIAG  21, 22                                                                    \r\nCEND                                                                            \r\nTITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID BODY FUSELAGE                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-1A (PARAM OPT = 0)          \r\nLABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\nMETHOD = 1000                                                                   \r\nOUTPUT                                                                          \r\nECHO   = BOTH                                                                   \r\nVECTOR = ALL                                                                    \r\nMPCFORCE = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\nCBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n+MRBRG1 56                                                                      \r\nCBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\nCBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\nCBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\nCBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\nCBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\nCBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\nCBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\nCBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\nCBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\nCBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\nCELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\nCELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\nCELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\nCELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\nCELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\nCELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\nCELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\nCELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\nCELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\nCELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\nCELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\nCELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\nCELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\nCONM2   209     209     0       7297.399                                 BASICWT\r\n+BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\nCONM2   109765  19765           12.896                                          \r\nCONM2   290070  200070          34.465                                          \r\nCONM2   290078  200078          22.740                                          \r\nCONM2   290079  200079          51.048                                          \r\nCONM2   290086  200086          60.052                                          \r\nCONM2   290087  200087          60.052                                          \r\nCONM2   290095  200095          64.933                                          \r\nCONM2   290096  200096          64.933                                          \r\nCONM2   290101  200101          57.277                                          \r\nCONM2   290106  200106          47.013                                          \r\nCONM2   290114  200114          66.626                                          \r\nCONM2   290121  200121          54.350                                          \r\nCONM2   290129  200129          13.810                                          \r\nCONM2   290137  200137          9.253                                           \r\nCONM2   290145  200145          12.065                                          \r\nCONM2   290153  200153          5.852                                           \r\nCONM2   290155  200155          6.124                                           \r\nCONM2   390153  200153          458.000                                 MR BLADE\r\nCONM2   490153  200153          489.500                                 MR HUB  \r\nCONM2   9200070 200070          26.100                                  BASIC   \r\nCRIGD1  200078  200078  189073  189077  211073                                  \r\nCRIGD1  353252  200078  200079                                                  \r\nCRIGD1  353253  200079  200087                                                  \r\nCRIGD1  353254  200087  200096                                                  \r\nCRIGD2  2091    209     19765   1236                                            \r\nCRIGD2  2092    209     18983   12356   18987   12356                           \r\nCRIGD2  2093    209     21183   12356   21187   12356                           \r\nCRIGD2  2094    209     21485   234                                             \r\nCRIGD2  353255  200096  200101  123                                             \r\nCRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n+CRG31          211073  3                                               +CRG32  \r\n+CRG32  MSET    211077  123456  214075  123456                                  \r\nCRIGDR  357000  19765   200078  3                                               \r\nEIGR    1000    GIV                             15                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nGRID    209     0       191.7117.001757 56.030010                               \r\nGRID    18983   0       189.94  12.375  77.57   0       4                       \r\nGRID    18987   0       189.94  -12.375 77.57   0       4                       \r\nGRID    19765   0       196.90  .0      64.63   0       45                      \r\nGRID    21183   0       211.72  12.375  77.57   0       4                       \r\nGRID    21187   0       211.72  -12.375 77.57   0       4                       \r\nGRID    21485   0       214.50  .0      77.57   0       156                     \r\nGRID    189073  0       189.94  12.375  77.57   0       0                       \r\nGRID    189077  0       189.94  -12.375 77.57   0       0                       \r\nGRID    200070  0       200.00  .0      70.00   0       0                       \r\nGRID    200078  0       200.00  .0      77.57   0       0                       \r\nGRID    200079  0       200.00  .0      79.05   0       0                       \r\nGRID    200086  0       200.00  .0      86.25   0       0                       \r\nGRID    200087  0       200.00  .0      86.25   0       0                       \r\nGRID    200095  0       200.00  .0      95.00   0       0                       \r\nGRID    200096  0       200.00  .0      95.00   0       0                       \r\nGRID    200101  0       200.00  .0      100.675 0       0                       \r\nGRID    200106  0       200.00  .0      106.00  0       0                       \r\nGRID    200114  0       200.00  .0      114.00  0       0                       \r\nGRID    200121  0       200.00  .0      121.00  0       0                       \r\nGRID    200129  0       200.00  .0      129.00  0       0                       \r\nGRID    200137  0       200.00  .0      137.00  0       0                       \r\nGRID    200145  0       200.00  .0      145.00  0       0                       \r\nGRID    200153  0       200.00  .0      152.76  0       0                       \r\nGRID    200155  0       200.00  .0      154.97  0       0                       \r\nGRID    211073  0       211.72  12.375  77.57   0       0                       \r\nGRID    211077  0       211.72  -12.375 77.57   0       0                       \r\nGRID    214075  0       214.50  .0      77.57   0       0                       \r\nMAT1    1       1.0+6   1.0+6                                                   \r\nMAT1    10      1.0     1.0                                                     \r\nMAT1    57      3.2+6   .8+6    .32                                             \r\nMAT1    76      3.2+6   .8+6    .32                                             \r\nMAT1    2014    10.5+6  4.0+6                                                   \r\nMAT1    2024    10.5+6  4.0+6                                                   \r\nMAT1    4130    29.0+6  11.0+6                                                  \r\nMAT1    4340    29.0+6  11.0+6                                                  \r\nMAT1    4620    29.0+6  11.0+6                                                  \r\nMAT1    7075    10.3+6  3.9+6                                                   \r\nMAT1    9046    17.5+6  6.5+6                                                   \r\nOMIT    200070  456                                                             \r\nOMIT    200078  456                                                             \r\nOMIT    200086  456                                                             \r\nOMIT    200095  456                                                             \r\nOMIT    200101  456                                                             \r\nOMIT    200106  456                                                             \r\nOMIT    200114  456                                                             \r\nOMIT    200121  456                                                             \r\nOMIT    200129  456                                                             \r\nOMIT    200137  456                                                             \r\nOMIT    200145  456                                                             \r\nOMIT    200153  456                                                             \r\nOMIT    200155  456                                                             \r\nPARAM   GRDEQ   0                                                               \r\nPARAM   GRDPNT  0                                                               \r\nPARAM   WTMASS  .00259                                                          \r\nPBAR    353025  1       100.    1950.   1950.   1480.                           \r\nPBAR    450007  1       100.    120.07  120.07  91.088                          \r\nSUPORT  209     123456                                                          \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03081a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$   Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid\r\n$ body fuselage is illustrated with this problem.\r\n$ \r\n$ The forces of multi point constraint created by the rigid elements are\r\n$ recovered using a rigid format alter and the EQMCK module (Reference 35).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The details of this model are discussed in Reference 36. In addition to rigid\r\n$ elements, the finite element model utilizes bars, scalar springs, and\r\n$ concentrated masses.\r\n$ \r\n$ C. Results\r\n$ \r\n$ The computed normal mode frequencies and generalized masses are presented in\r\n$ Table 1.\r\n$ \r\n$                 Table 1. Results for Helicopter Main Rotor Pylon\r\n$                              on Rigid Body Fuselage\r\n$         ----------------------------------------------------------------\r\n$         Mode                                                       2\r\n$         No.    Natural Frequencies (Hz)  Generalized Masses (lb-sec /in)\r\n$         ----------------------------------------------------------------\r\n$          1            0.0                         23.088\r\n$ \r\n$          2            0.0                         23.088\r\n$ \r\n$          3            0.0                         23.088\r\n$ \r\n$          4            0.0                         4.7452\r\n$ \r\n$          5            0.0                         21.991\r\n$ \r\n$          6            0.0                       3051.5\r\n$ \r\n$          7            2.987                        3.058\r\n$ \r\n$          8            3.372                        6.502\r\n$ \r\n$          9           24.47                          .8486\r\n$ \r\n$         10           26.82                          .8414\r\n$ \r\n$         11           61.54                          .5886\r\n$ \r\n$         12           70.34                          .4855\r\n$ \r\n$         13          113.3                           .3867\r\n$ \r\n$         14          117.4                           .3940\r\n$ \r\n$         15          165.6                          1.257\r\n$         ----------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning,\r\n$     and Other Checks, NASA CR-144897, (undated).\r\n$ \r\n$ 36. Pamidi, P. R. and Cronkhite, J. D.: \"Addition of Rigid Elements to\r\n$     NASTRAN\", NASA CP-2018, October, 1977, pp. 449-468.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03082a.inp",
    "content": "ID    D03082A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,0                                                                       \r\nTIME  14                                                                        \r\nDIAG  21,22                                                                     \r\nCEND                                                                            \r\nTITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-2A (PARAM OPT = 1)          \r\nLABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\nMETHOD = 1000                                                                   \r\nOUTPUT                                                                          \r\nECHO   = BOTH                                                                   \r\nVECTOR = ALL                                                                    \r\nMPCFORCE = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\nCBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n+MRBRG1 56                                                                      \r\nCBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\nCBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\nCBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\nCBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\nCBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\nCBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\nCBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\nCBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\nCBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\nCBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\nCELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\nCELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\nCELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\nCELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\nCELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\nCELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\nCELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\nCELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\nCELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\nCELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\nCELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\nCELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\nCELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\nCONM2   209     209     0       7297.399                                 BASICWT\r\n+BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\nCONM2   109765  19765           12.896                                          \r\nCONM2   290070  200070          34.465                                          \r\nCONM2   290078  200078          22.740                                          \r\nCONM2   290079  200079          51.048                                          \r\nCONM2   290086  200086          60.052                                          \r\nCONM2   290087  200087          60.052                                          \r\nCONM2   290095  200095          64.933                                          \r\nCONM2   290096  200096          64.933                                          \r\nCONM2   290101  200101          57.277                                          \r\nCONM2   290106  200106          47.013                                          \r\nCONM2   290114  200114          66.626                                          \r\nCONM2   290121  200121          54.350                                          \r\nCONM2   290129  200129          13.810                                          \r\nCONM2   290137  200137          9.253                                           \r\nCONM2   290145  200145          12.065                                          \r\nCONM2   290153  200153          5.852                                           \r\nCONM2   290155  200155          6.124                                           \r\nCONM2   390153  200153          458.000                                 MR BLADE\r\nCONM2   490153  200153          489.500                                 MR HUB  \r\nCONM2   9200070 200070          26.100                                  BASIC   \r\nCRIGD1  200078  200078  189073  189077  211073                                  \r\nCRIGD1  353252  200078  200079                                                  \r\nCRIGD1  353253  200079  200087                                                  \r\nCRIGD1  353254  200087  200096                                                  \r\nCRIGD2  2091    209     19765   1236                                            \r\nCRIGD2  2092    209     18983   12356   18987   12356                           \r\nCRIGD2  2093    209     21183   12356   21187   12356                           \r\nCRIGD2  2094    209     21485   234                                             \r\nCRIGD2  353255  200096  200101  123                                             \r\nCRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n+CRG31          211073  3                                               +CRG32  \r\n+CRG32  MSET    211077  123456  214075  123456                                  \r\nCRIGDR  357000  19765   200078  3                                               \r\nEIGR    1000    GIV                             15                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nGRID    209     0       191.7117.001757 56.030010                               \r\nGRID    18983   0       189.94  12.375  77.57   0       4                       \r\nGRID    18987   0       189.94  -12.375 77.57   0       4                       \r\nGRID    19765   0       196.90  .0      64.63   0       45                      \r\nGRID    21183   0       211.72  12.375  77.57   0       4                       \r\nGRID    21187   0       211.72  -12.375 77.57   0       4                       \r\nGRID    21485   0       214.50  .0      77.57   0       156                     \r\nGRID    189073  0       189.94  12.375  77.57   0       0                       \r\nGRID    189077  0       189.94  -12.375 77.57   0       0                       \r\nGRID    200070  0       200.00  .0      70.00   0       0                       \r\nGRID    200078  0       200.00  .0      77.57   0       0                       \r\nGRID    200079  0       200.00  .0      79.05   0       0                       \r\nGRID    200086  0       200.00  .0      86.25   0       0                       \r\nGRID    200087  0       200.00  .0      86.25   0       0                       \r\nGRID    200095  0       200.00  .0      95.00   0       0                       \r\nGRID    200096  0       200.00  .0      95.00   0       0                       \r\nGRID    200101  0       200.00  .0      100.675 0       0                       \r\nGRID    200106  0       200.00  .0      106.00  0       0                       \r\nGRID    200114  0       200.00  .0      114.00  0       0                       \r\nGRID    200121  0       200.00  .0      121.00  0       0                       \r\nGRID    200129  0       200.00  .0      129.00  0       0                       \r\nGRID    200137  0       200.00  .0      137.00  0       0                       \r\nGRID    200145  0       200.00  .0      145.00  0       0                       \r\nGRID    200153  0       200.00  .0      152.76  0       0                       \r\nGRID    200155  0       200.00  .0      154.97  0       0                       \r\nGRID    211073  0       211.72  12.375  77.57   0       0                       \r\nGRID    211077  0       211.72  -12.375 77.57   0       0                       \r\nGRID    214075  0       214.50  .0      77.57   0       0                       \r\nMAT1    1       1.0+6   1.0+6                                                   \r\nMAT1    10      1.0     1.0                                                     \r\nMAT1    57      3.2+6   .8+6    .32                                             \r\nMAT1    76      3.2+6   .8+6    .32                                             \r\nMAT1    2014    10.5+6  4.0+6                                                   \r\nMAT1    2024    10.5+6  4.0+6                                                   \r\nMAT1    4130    29.0+6  11.0+6                                                  \r\nMAT1    4340    29.0+6  11.0+6                                                  \r\nMAT1    4620    29.0+6  11.0+6                                                  \r\nMAT1    7075    10.3+6  3.9+6                                                   \r\nMAT1    9046    17.5+6  6.5+6                                                   \r\nOMIT    200070  456                                                             \r\nOMIT    200078  456                                                             \r\nOMIT    200086  456                                                             \r\nOMIT    200095  456                                                             \r\nOMIT    200101  456                                                             \r\nOMIT    200106  456                                                             \r\nOMIT    200114  456                                                             \r\nOMIT    200121  456                                                             \r\nOMIT    200129  456                                                             \r\nOMIT    200137  456                                                             \r\nOMIT    200145  456                                                             \r\nOMIT    200153  456                                                             \r\nOMIT    200155  456                                                             \r\nPARAM   GRDEQ   0                                                               \r\nPARAM   GRDPNT  0                                                               \r\nPARAM   OPT     1                                                               \r\nPARAM   WTMASS  .00259                                                          \r\nPBAR    353025  1       100.    1950.   1950.   1480.                           \r\nPBAR    450007  1       100.    120.07  120.07  91.088                          \r\nSUPORT  209     123456                                                          \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03082a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$   Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid\r\n$ body fuselage is illustrated with this problem.\r\n$ \r\n$ The forces of multi point constraint created by the rigid elements are\r\n$ recovered using a rigid format alter and the EQMCK module (Reference 35).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The details of this model are discussed in Reference 36. In addition to rigid\r\n$ elements, the finite element model utilizes bars, scalar springs, and\r\n$ concentrated masses.\r\n$ \r\n$ C. Results\r\n$ \r\n$ The computed normal mode frequencies and generalized masses are presented in\r\n$ Table 1.\r\n$ \r\n$                 Table 1. Results for Helicopter Main Rotor Pylon\r\n$                              on Rigid Body Fuselage\r\n$         ----------------------------------------------------------------\r\n$         Mode                                                       2\r\n$         No.    Natural Frequencies (Hz)  Generalized Masses (lb-sec /in)\r\n$         ----------------------------------------------------------------\r\n$          1            0.0                         23.088\r\n$ \r\n$          2            0.0                         23.088\r\n$ \r\n$          3            0.0                         23.088\r\n$ \r\n$          4            0.0                         4.7452\r\n$ \r\n$          5            0.0                         21.991\r\n$ \r\n$          6            0.0                       3051.5\r\n$ \r\n$          7            2.987                        3.058\r\n$ \r\n$          8            3.372                        6.502\r\n$ \r\n$          9           24.47                          .8486\r\n$ \r\n$         10           26.82                          .8414\r\n$ \r\n$         11           61.54                          .5886\r\n$ \r\n$         12           70.34                          .4855\r\n$ \r\n$         13          113.3                           .3867\r\n$ \r\n$         14          117.4                           .3940\r\n$ \r\n$         15          165.6                          1.257\r\n$         ----------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning,\r\n$     and Other Checks, NASA CR-144897, (undated).\r\n$ \r\n$ 36. Pamidi, P. R. and Cronkhite, J. D.: \"Addition of Rigid Elements to\r\n$     NASTRAN\", NASA CP-2018, October, 1977, pp. 449-468.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d03083a.inp",
    "content": "ID    D03083A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   3,0                                                                       \r\nTIME  14                                                                        \r\nDIAG  21,22                                                                     \r\nCEND                                                                            \r\nTITLE    = HELICOPTER MAIN ROTOR PYLON ON A RIGID-BODY FUSELAGE                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D03-08-3A (PARAM OPT = -1)         \r\nLABEL    = NORMAL MODES ANALYSIS USING RIGID ELEMENTS                           \r\nMETHOD = 1000                                                                   \r\nOUTPUT                                                                          \r\nECHO   = BOTH                                                                   \r\nVECTOR = ALL                                                                    \r\nMPCFORCE = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCBAR    3530251 353025  200070  200078  1.0     .0      .0      1        MR G/B \r\nCBAR    4500050 450007  200079  200086  1.0     .0      .0      1        MRBRG1 \r\n+MRBRG1 56                                                                      \r\nCBAR    4500070 450007  200086  200095  1.0     .0      .0      1        MR MAST\r\nCBAR    4500071 450007  200095  200101  1.0     .0      .0      1        MR MAST\r\nCBAR    4500072 450007  200101  200106  1.0     .0      .0      1        MR MAST\r\nCBAR    4500073 450007  200106  200114  1.0     .0      .0      1        MR MAST\r\nCBAR    4500074 450007  200114  200121  1.0     .0      .0      1        MR MAST\r\nCBAR    4500075 450007  200121  200129  1.0     .0      .0      1        MR MAST\r\nCBAR    4500076 450007  200129  200137  1.0     .0      .0      1        MR MAST\r\nCBAR    4500077 450007  200137  200145  1.0     .0      .0      1        MR MAST\r\nCBAR    4500078 450007  200145  200153  1.0     .0      .0      1        MR MAST\r\nCBAR    4500079 450007  200153  200155  1.0     .0      .0      1        MR MAST\r\nCELAS2  189831  28125.  189073  1       18983   1                       FWD R X \r\nCELAS2  189832  28125.  189073  2       18983   2                       FWD R Y \r\nCELAS2  189833  4500.   189073  3       18983   3                       FWD R Z \r\nCELAS2  189871  28125.  189077  1       18987   1                       FWD L X \r\nCELAS2  189872  28125.  189077  2       18987   2                       FWD L Y \r\nCELAS2  189873  4500.   189077  3       18987   3                       FWD L Z \r\nCELAS2  211831  28125.  211073  1       21183   1                       AFT R X \r\nCELAS2  211832  28125.  211073  2       21183   2                       AFT R Y \r\nCELAS2  211833  4500.   211073  3       21183   3                       AFT R Z \r\nCELAS2  211871  28125.  211077  1       21187   1                       AFT L X \r\nCELAS2  211872  28125.  211077  2       21187   2                       AFT L Y \r\nCELAS2  211873  4500.   211077  3       21187   3                       AFT L Z \r\nCELAS2  214853  20000.  214075  3       21485   3                       AFT C Z \r\nCONM2   209     209     0       7297.399                                 BASICWT\r\n+BASICWT4.7561+6        5.3412+7                5.3697+7                        \r\nCONM2   109765  19765           12.896                                          \r\nCONM2   290070  200070          34.465                                          \r\nCONM2   290078  200078          22.740                                          \r\nCONM2   290079  200079          51.048                                          \r\nCONM2   290086  200086          60.052                                          \r\nCONM2   290087  200087          60.052                                          \r\nCONM2   290095  200095          64.933                                          \r\nCONM2   290096  200096          64.933                                          \r\nCONM2   290101  200101          57.277                                          \r\nCONM2   290106  200106          47.013                                          \r\nCONM2   290114  200114          66.626                                          \r\nCONM2   290121  200121          54.350                                          \r\nCONM2   290129  200129          13.810                                          \r\nCONM2   290137  200137          9.253                                           \r\nCONM2   290145  200145          12.065                                          \r\nCONM2   290153  200153          5.852                                           \r\nCONM2   290155  200155          6.124                                           \r\nCONM2   390153  200153          458.000                                 MR BLADE\r\nCONM2   490153  200153          489.500                                 MR HUB  \r\nCONM2   9200070 200070          26.100                                  BASIC   \r\nCRIGD1  200078  200078  189073  189077  211073                                  \r\nCRIGD1  353252  200078  200079                                                  \r\nCRIGD1  353253  200079  200087                                                  \r\nCRIGD1  353254  200087  200096                                                  \r\nCRIGD2  2091    209     19765   1236                                            \r\nCRIGD2  2092    209     18983   12356   18987   12356                           \r\nCRIGD2  2093    209     21183   12356   21187   12356                           \r\nCRIGD2  2094    209     21485   234                                             \r\nCRIGD2  353255  200096  200101  123                                             \r\nCRIGD3  200078  200078  456     189073  1       189077  2               +CRG31  \r\n+CRG31          211073  3                                               +CRG32  \r\n+CRG32  MSET    211077  123456  214075  123456                                  \r\nCRIGDR  357000  19765   200078  3                                               \r\nEIGR    1000    GIV                             15                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nGRID    209     0       191.7117.001757 56.030010                               \r\nGRID    18983   0       189.94  12.375  77.57   0       4                       \r\nGRID    18987   0       189.94  -12.375 77.57   0       4                       \r\nGRID    19765   0       196.90  .0      64.63   0       45                      \r\nGRID    21183   0       211.72  12.375  77.57   0       4                       \r\nGRID    21187   0       211.72  -12.375 77.57   0       4                       \r\nGRID    21485   0       214.50  .0      77.57   0       156                     \r\nGRID    189073  0       189.94  12.375  77.57   0       0                       \r\nGRID    189077  0       189.94  -12.375 77.57   0       0                       \r\nGRID    200070  0       200.00  .0      70.00   0       0                       \r\nGRID    200078  0       200.00  .0      77.57   0       0                       \r\nGRID    200079  0       200.00  .0      79.05   0       0                       \r\nGRID    200086  0       200.00  .0      86.25   0       0                       \r\nGRID    200087  0       200.00  .0      86.25   0       0                       \r\nGRID    200095  0       200.00  .0      95.00   0       0                       \r\nGRID    200096  0       200.00  .0      95.00   0       0                       \r\nGRID    200101  0       200.00  .0      100.675 0       0                       \r\nGRID    200106  0       200.00  .0      106.00  0       0                       \r\nGRID    200114  0       200.00  .0      114.00  0       0                       \r\nGRID    200121  0       200.00  .0      121.00  0       0                       \r\nGRID    200129  0       200.00  .0      129.00  0       0                       \r\nGRID    200137  0       200.00  .0      137.00  0       0                       \r\nGRID    200145  0       200.00  .0      145.00  0       0                       \r\nGRID    200153  0       200.00  .0      152.76  0       0                       \r\nGRID    200155  0       200.00  .0      154.97  0       0                       \r\nGRID    211073  0       211.72  12.375  77.57   0       0                       \r\nGRID    211077  0       211.72  -12.375 77.57   0       0                       \r\nGRID    214075  0       214.50  .0      77.57   0       0                       \r\nMAT1    1       1.0+6   1.0+6                                                   \r\nMAT1    10      1.0     1.0                                                     \r\nMAT1    57      3.2+6   .8+6    .32                                             \r\nMAT1    76      3.2+6   .8+6    .32                                             \r\nMAT1    2014    10.5+6  4.0+6                                                   \r\nMAT1    2024    10.5+6  4.0+6                                                   \r\nMAT1    4130    29.0+6  11.0+6                                                  \r\nMAT1    4340    29.0+6  11.0+6                                                  \r\nMAT1    4620    29.0+6  11.0+6                                                  \r\nMAT1    7075    10.3+6  3.9+6                                                   \r\nMAT1    9046    17.5+6  6.5+6                                                   \r\nOMIT    200070  456                                                             \r\nOMIT    200078  456                                                             \r\nOMIT    200086  456                                                             \r\nOMIT    200095  456                                                             \r\nOMIT    200101  456                                                             \r\nOMIT    200106  456                                                             \r\nOMIT    200114  456                                                             \r\nOMIT    200121  456                                                             \r\nOMIT    200129  456                                                             \r\nOMIT    200137  456                                                             \r\nOMIT    200145  456                                                             \r\nOMIT    200153  456                                                             \r\nOMIT    200155  456                                                             \r\nPARAM   GRDEQ   0                                                               \r\nPARAM   GRDPNT  0                                                               \r\nPARAM   OPT     -1                                                              \r\nPARAM   WTMASS  .00259                                                          \r\nPBAR    353025  1       100.    1950.   1950.   1480.                           \r\nPBAR    450007  1       100.    120.07  120.07  91.088                          \r\nSUPORT  209     123456                                                          \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d03083a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 3, Real Eigenvalue Analysis\r\n$   Vibration of a Helicopter Main Rotor Pylon on a Rigid Body Fuselage (3-8-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The use of rigid elements in modeling a helicopter main rotor pylon on a rigid\r\n$ body fuselage is illustrated with this problem.\r\n$ \r\n$ The forces of multi point constraint created by the rigid elements are\r\n$ recovered using a rigid format alter and the EQMCK module (Reference 35).\r\n$ \r\n$ B. Input\r\n$ \r\n$ The details of this model are discussed in Reference 36. In addition to rigid\r\n$ elements, the finite element model utilizes bars, scalar springs, and\r\n$ concentrated masses.\r\n$ \r\n$ C. Results\r\n$ \r\n$ The computed normal mode frequencies and generalized masses are presented in\r\n$ Table 1.\r\n$ \r\n$                 Table 1. Results for Helicopter Main Rotor Pylon\r\n$                              on Rigid Body Fuselage\r\n$         ----------------------------------------------------------------\r\n$         Mode                                                       2\r\n$         No.    Natural Frequencies (Hz)  Generalized Masses (lb-sec /in)\r\n$         ----------------------------------------------------------------\r\n$          1            0.0                         23.088\r\n$ \r\n$          2            0.0                         23.088\r\n$ \r\n$          3            0.0                         23.088\r\n$ \r\n$          4            0.0                         4.7452\r\n$ \r\n$          5            0.0                         21.991\r\n$ \r\n$          6            0.0                       3051.5\r\n$ \r\n$          7            2.987                        3.058\r\n$ \r\n$          8            3.372                        6.502\r\n$ \r\n$          9           24.47                          .8486\r\n$ \r\n$         10           26.82                          .8414\r\n$ \r\n$         11           61.54                          .5886\r\n$ \r\n$         12           70.34                          .4855\r\n$ \r\n$         13          113.3                           .3867\r\n$ \r\n$         14          117.4                           .3940\r\n$ \r\n$         15          165.6                          1.257\r\n$         ----------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 35. Universal Analytics, Inc.: NASTRAN DMAP Improvements, Matrix Conditioning,\r\n$     and Other Checks, NASA CR-144897, (undated).\r\n$ \r\n$ 36. Pamidi, P. R. and Cronkhite, J. D.: \"Addition of Rigid Elements to\r\n$     NASTRAN\", NASA CP-2018, October, 1977, pp. 449-468.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d04011a.inp",
    "content": "ID    D04011A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   4,0                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = DIFFERENTIAL STIFFNESS ANALYSIS FOR A HANGING CABLE                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D04-01-1A                          \r\nLABEL    = INITIAL SHAPE IS A CIRCLE, FINAL SHAPE IS A CATENARY                 \r\nDISP = ALL                                                                      \r\nSPCF = ALL                                                                      \r\nLOAD = 32                                                                       \r\nSPC  = 2                                                                        \r\nSTRESS = ALL                                                                    \r\nFORCE  = ALL                                                                    \r\nSUBCASE 1                                                                       \r\nOLOAD = ALL                                                                     \r\nLABEL = LINEAR SOLUTION                                                         \r\nSUBCASE 2                                                                       \r\nLABEL = NONLINEAR SOLUTION                                                      \r\nBEGIN BULK                                                                      \r\nBAROR                                   -1.2    1.0     0.0     1               \r\nCBAR    10      10      10      11                                              \r\nCBAR    11      10      11      12                                              \r\nCBAR    12      10      12      13                                              \r\nCBAR    13      10      13      14                                              \r\nCBAR    14      10      14      15                                              \r\nCBAR    15      10      15      16                                              \r\nCBAR    16      10      16      17                                              \r\nCBAR    17      10      17      18                                              \r\nCBAR    18      10      18      19                                              \r\nCORD2C  10      0       .0      .0      .0      .0      .0      1.0     +CS1    \r\n+CS1    1.0     .0      .0                                                      \r\nGRAV    32      0       32.2    0.0     1.0     .0                              \r\nGRDSET          10                              0       345                     \r\nGRID    10              10.0    .0                                              \r\nGRID    11              10.0    10.0                                            \r\nGRID    12              10.0    20.0                                            \r\nGRID    13              10.0    30.0                                            \r\nGRID    14              10.0    40.0                                            \r\nGRID    15              10.0    50.0                                            \r\nGRID    16              10.0    60.0                                            \r\nGRID    17              10.0    70.0                                            \r\nGRID    18              10.0    80.0                                            \r\nGRID    19              10.0    90.0                                            \r\nMAT1    1       5.5+5           .3      .4                                      \r\nPARAM   BETAD   8                                                       DIFFSTIF\r\nPARAM   EPSIO   1.0-5                                                   DIFFSTIF\r\nPARAM   NT      18                                                      DIFFSTIF\r\nPBAR    10      1       .1      1.0-6   1.0-6                                   \r\nSPC     2       10      12      .0      19      1       .0                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d04011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$               RIGID FORMAT No. 4, Differential Stiffness Analysis\r\n$           Differential Stiffness Analysis for a Hanging Cable (4-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ NASTRAN provides an iteration procedure for nonlinear differential stiffness\r\n$ (or geometric stiffness) solutions. As described in Section 7 of the NASTRAN\r\n$ Theoretical Manual, the internal loads are recalculated for each iteration.\r\n$ The changes in direction of these internal loads are used to correct the\r\n$ previous solution. External loads retain their original orientation; however,\r\n$ they do travel with the grid point.\r\n$ \r\n$ A classical nonlinear geometric problem is that of a hanging cable which\r\n$ assumes the shape of a catenary when a uniform gravity load is applied. The\r\n$ model is given a circular shape initially. The resulting displacements of the\r\n$ grid points, when added to their original locations, provide a close\r\n$ approximation to the catenary.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The NASTRAN model consists of nine BAR elements connected to ten GRID points\r\n$ evenly spaced on a quarter circle. The bending stiffness of the elements is a\r\n$ nominally small value necessary to provide a non-singular, linear solution.\r\n$ \r\n$ The axial stiffness of the elements is a sufficiently large value to limit\r\n$ extensional displacements. The basic parameters are\r\n$ \r\n$    R = 10.0 ft      (initial radius)\r\n$ \r\n$    w = 1.288 lb/ft  (Height per length)\r\n$ \r\n$    L = 5 pi\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The coordinate positions of the initial circular shape are defined by the\r\n$ equations\r\n$ \r\n$    x = R cos theta                                                         (1)\r\n$ \r\n$    y = R sin theta                                                         (2)\r\n$ \r\n$    s = R theta                                                             (3)\r\n$ \r\n$ where s is the arc length and is measured in radians. Solving Equation (3) for\r\n$ theta and substituting into Equations (1) and (2), the expressions for the\r\n$ circular shape are\r\n$    _\r\n$    x = R cos (s/R)                                                         (4)\r\n$    _\r\n$    y = R sin (s/R)                                                         (5)\r\n$ \r\n$ The differential equation for the deformed shape (see Reference 25) is\r\n$ \r\n$    dy'     w           2  1/2\r\n$    ---  =  - ( 1 + (y')  )                                                 (6)\r\n$    dx      H\r\n$ \r\n$ where\r\n$ \r\n$    w is the weight per unit length\r\n$ \r\n$    H is the tension at x = 0,\r\n$ \r\n$    y' = dy/dx is the slope of the resulting curve\r\n$ \r\n$ Dividing both sides of Equation (6) by the radical term and integrating,\r\n$ results in the equation\r\n$ \r\n$        -1        wx\r\n$    sinh   y'  =  -- + C                                                    (7)\r\n$                  H     1\r\n$ \r\n$ Since y' = 0 at x = 0 and C  = a, then\r\n$                            1\r\n$ \r\n$                wx\r\n$    y' = sinh ( -- )                                                        (8)\r\n$                H\r\n$ \r\n$ Integrating again and applying the known boundary condition y = 0 at x = 0,\r\n$ the equation for the shape is\r\n$ \r\n$          H         wx\r\n$    y  =  -  [ cosh -- -1 ]                                                 (9)\r\n$          W         H\r\n$ \r\n$ Since the length of the cable is known but the horizontal force H is unknown,\r\n$ the two may be related by integrating for the arc length L which is\r\n$ \r\n$                 wx\r\n$          H        o\r\n$    L  =  - sinh ---                                                       (10)\r\n$          w       H\r\n$ \r\n$ \r\n$ where x  is one-half the distance between supports. If w, x , and L are given,\r\n$        o                                                   o\r\n$ Equation (10) is solved for H (for x  = 10.0, w/H = .1719266) and Equation (9)\r\n$                                     o\r\n$ is evaluated to obtain the actual shape. However, for a given position s along\r\n$ the cable, the coordinates x and y would be\r\n$ \r\n$          H     -1   ws\r\n$    x  =  - sinh   ( -- )                                                  (11)\r\n$          w          H\r\n$ \r\n$          H           ws  2  1/2\r\n$    y  =  - [ ( 1 + ( -- )  )    - 1 ]                                     (12)\r\n$          w           H\r\n$ \r\n$ The location of points on the initial circular shape are defined in the\r\n$ coordinate system used for the deflected shape using\r\n$           _\r\n$    x   =  x                                                               (13)\r\n$     o\r\n$               _\r\n$    y   =  R - y                                                           (14)\r\n$     o\r\n$ \r\n$ The deflections of points on the cable are computed with the equations\r\n$ \r\n$    u   =  x - x                                                           (15)\r\n$     x          o\r\n$ \r\n$    u   =  y - y                                                           (16)\r\n$     y          o\r\n$ \r\n$ D. Results\r\n$ \r\n$ NASTRAN and theoretical results are presented In Table 1 below. Deflections\r\n$ are measured from the initial shape at selected locations.\r\n$ \r\n$         Table 1. Comparison of NASTRAN Results to Theoretical Predictions\r\n$      ----------------------------------------------------------------------\r\n$                                   u   - Horizontal       u   - Vertical\r\n$      Grid                          x                      y\r\n$      Point       s     theta      Theory      NASTRAN    Theory     NASTRAN\r\n$      ----------------------------------------------------------------------\r\n$      11       13.962     10      -.4856       -.4739    -.1119      -.0408\r\n$ \r\n$      13       10.472     30      -.8043       -.7666    -.2286      -.1269\r\n$ \r\n$      15        6.981     50      -.5175       -.4612     .0030       .1470\r\n$ \r\n$      17        3.491     70      -.1110       -.0877     .5698       .7973\r\n$ \r\n$      19         .0       90       .0           .0        .9338      1.2167\r\n$      ----------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 25. Spiegel, Murray R.:  Applied Differential Equations. Prentice-Hall, Inc.,\r\n$     1958, pp. 105-108.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d05011a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D05011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   5,1                                                                       \r\nTIME  26                                                                        \r\nCEND                                                                            \r\nTITLE    = SYMMETRIC BUCKLING OF A CYLINDER                                     \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                          \r\n           SPC  = 1                                                             \r\nOUTPUT                                                                          \r\n           SET 1 = 1 THRU 33                                                    \r\n           SET 2 = 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70,         \r\n                   74,78                                                        \r\n   DISPLACEMENTS = 1                                                            \r\n        SPCFORCE = ALL                                                          \r\n         ELFORCE = 2                                                            \r\n        ELSTRESS = 2                                                            \r\n$                                                                               \r\nSUBCASE 1                                                                       \r\n LABEL =         STATIC SOLUTION                                                \r\n LOAD  = 100                                                                    \r\n OUTPUT                                                                         \r\n OLOAD = ALL                                                                    \r\n$                                                                               \r\nSUBCASE 2                                                                       \r\n LABEL =         BUCKLING SOLUTION                                              \r\nMETHOD = 300                                                                    \r\n$                                                                               \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D05-01-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n        SET 1 INCLUDE TRIA1                                                     \r\n$                                                                               \r\n        PERSPECTIVE PROJECTION                                                  \r\n        AXES Y, X, MZ                                                           \r\n        MAXIMUM DEFORMATION 3.0                                                 \r\n        FIND SCALE,ORIGIN 1, VANTAGE POINT                                      \r\nPTITLE = PERSPECTIVE VIEW OF MODEL                                              \r\nPLOT LABELS,SYMBOLS 6,5                                                         \r\n$                                                                               \r\n        ORTHOGRAPHIC PROJECTION                                                 \r\n        MAXIMUM DEFORMATION  3.0                                                \r\n        FIND SCALE, ORIGIN 2                                                    \r\nPTITLE = STATIC LOAD UNDERLAY OF CYLINDRICAL SURFACE                            \r\nPLOT STATIC DEFORMATION 0,1, ORIGIN 2, LABELS, SHAPE                            \r\nPTITLE = MODE SHAPES OF CYLINDRICAL SURFACE WITH VECTORS                        \r\nPLOT MODAL DEFORMATION  2, RANGE 0.5, 3.0,                                      \r\n        ORIGIN 2, VECTOR R, SYMBOLS 5,6                                         \r\n        VIEW 0.0, 0.0, 0.0                                                      \r\n        FIND SCALE, ORIGIN 1                                                    \r\nPTITLE = LONGITUDINAL EDGE VIEW SHOWING BUCKLING MODES                          \r\nPLOT MODAL DEFORMATION 0,2, RANGE 0.0, 200.0, ORIGIN 1, SHAPE                   \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       5       9       13      17      21      25      29      +CNG11  \r\n+CNG11  33      37      41      45      49      53      57      61      +CNG12  \r\n+CNG12  65      69      73      77                                              \r\nCNGRNT  2       6       10      14      18      22      26      30      +CNG21  \r\n+CNG21  34      38      42      46      50      54      58      62      +CNG22  \r\n+CNG22  66      70      74      78                                              \r\nCNGRNT  3       7       11      15      19      23      27      31      +CNG31  \r\n+CNG31  35      39      43      47      51      55      59      63      +CNG32  \r\n+CNG32  67      71      75      79                                              \r\nCNGRNT  4       8       12      16      20      24      28      32      +CNG41  \r\n+CNG41  36      40      44      48      52      56      60      64      +CNG42  \r\n+CNG42  68      72      76      80                                              \r\nCORD2C  100     0       25.0    .0      80.0    50.0    .0      80.0    +CORD100\r\n+CORD10025.0    .0      .0                                                      \r\nCTRIA1  1       200     1       2       51      .0                              \r\nCTRIA1  2       200     1       4       51      .0                              \r\nCTRIA1  3       200     4       5       51      .0                              \r\nCTRIA1  4       200     5       2       51      .0                              \r\nCTRIA1  5       200     2       3       52      .0                              \r\nCTRIA1  6       200     2       5       52      .0                              \r\nCTRIA1  7       200     5       6       52      .0                              \r\nCTRIA1  8       200     6       3       52      .0                              \r\nCTRIA1  9       200     4       5       54      .0                              \r\nCTRIA1  10      200     4       7       54      .0                              \r\nCTRIA1  11      200     7       8       54      .0                              \r\nCTRIA1  12      200     8       5       54      .0                              \r\nCTRIA1  13      200     5       6       55      .0                              \r\nCTRIA1  14      200     5       8       55      .0                              \r\nCTRIA1  15      200     8       9       55      .0                              \r\nCTRIA1  16      200     9       6       55      .0                              \r\nCTRIA1  17      200     7       8       57      .0                              \r\nCTRIA1  18      200     7       10      57      .0                              \r\nCTRIA1  19      200     10      11      57      .0                              \r\nCTRIA1  20      200     11      8       57      .0                              \r\nCTRIA1  21      200     8       9       58      .0                              \r\nCTRIA1  22      200     8       11      58      .0                              \r\nCTRIA1  23      200     11      12      58      .0                              \r\nCTRIA1  24      200     12      9       58      .0                              \r\nCTRIA1  25      200     10      11      60      .0                              \r\nCTRIA1  26      200     10      13      60      .0                              \r\nCTRIA1  27      200     13      14      60      .0                              \r\nCTRIA1  28      200     14      11      60      .0                              \r\nCTRIA1  29      200     11      12      61      .0                              \r\nCTRIA1  30      200     11      14      61      .0                              \r\nCTRIA1  31      200     14      15      61      .0                              \r\nCTRIA1  32      200     15      12      61      .0                              \r\nCTRIA1  33      200     13      14      63      .0                              \r\nCTRIA1  34      200     13      16      63      .0                              \r\nCTRIA1  35      200     16      17      63      .0                              \r\nCTRIA1  36      200     17      14      63      .0                              \r\nCTRIA1  37      200     14      15      64      .0                              \r\nCTRIA1  38      200     14      17      64      .0                              \r\nCTRIA1  39      200     17      18      64      .0                              \r\nCTRIA1  40      200     18      15      64      .0                              \r\nCTRIA1  41      200     16      17      66      .0                              \r\nCTRIA1  42      200     16      19      66      .0                              \r\nCTRIA1  43      200     19      20      66      .0                              \r\nCTRIA1  44      200     20      17      66      .0                              \r\nCTRIA1  45      200     17      18      67      .0                              \r\nCTRIA1  46      200     17      20      67      .0                              \r\nCTRIA1  47      200     20      21      67      .0                              \r\nCTRIA1  48      200     21      18      67      .0                              \r\nCTRIA1  49      200     19      20      69      .0                              \r\nCTRIA1  50      200     19      22      69      .0                              \r\nCTRIA1  51      200     22      23      69      .0                              \r\nCTRIA1  52      200     23      20      69      .0                              \r\nCTRIA1  53      200     20      21      70      .0                              \r\nCTRIA1  54      200     20      23      70      .0                              \r\nCTRIA1  55      200     23      24      70      .0                              \r\nCTRIA1  56      200     24      21      70      .0                              \r\nCTRIA1  57      200     22      23      72      .0                              \r\nCTRIA1  58      200     22      25      72      .0                              \r\nCTRIA1  59      200     25      26      72      .0                              \r\nCTRIA1  60      200     26      23      72      .0                              \r\nCTRIA1  61      200     23      24      73      .0                              \r\nCTRIA1  62      200     23      26      73      .0                              \r\nCTRIA1  63      200     26      27      73      .0                              \r\nCTRIA1  64      200     27      24      73      .0                              \r\nCTRIA1  65      200     25      26      75      .0                              \r\nCTRIA1  66      200     25      28      75      .0                              \r\nCTRIA1  67      200     28      29      75      .0                              \r\nCTRIA1  68      200     29      26      75      .0                              \r\nCTRIA1  69      200     26      27      76      .0                              \r\nCTRIA1  70      200     26      29      76      .0                              \r\nCTRIA1  71      200     29      30      76      .0                              \r\nCTRIA1  72      200     30      27      76      .0                              \r\nCTRIA1  73      200     28      29      78      .0                              \r\nCTRIA1  74      200     28      31      78      .0                              \r\nCTRIA1  75      200     31      32      78      .0                              \r\nCTRIA1  76      200     32      29      78      .0                              \r\nCTRIA1  77      200     29      30      79      .0                              \r\nCTRIA1  78      200     29      32      79      .0                              \r\nCTRIA1  79      200     32      33      79      .0                              \r\nCTRIA1  80      200     33      30      79      .0                              \r\nEIGB    300     UDET    .10     2.5     4       4       0       1.5E-05 +EIGB300\r\n+EIGB300MAX                                                                     \r\nFORCE   1       1       100     1.0+3   .0      .0      .5                      \r\nFORCE   1       2       100     1.0+3   .0      .0      1.0                     \r\nFORCE   1       3       100     1.0+3   .0      .0      .5                      \r\nFORCE   1       31      100     1.0+3   .0      .0      -0.5                    \r\nFORCE   1       32      100     1.0+3   .0      .0      -1.0                    \r\nFORCE   1       33      100     1.0+3   .0      .0      -0.5                    \r\nGRDSET                                                  462                     \r\nGRID    1       100     80.0    -3.0    -25.0   100                             \r\nGRID    2       100     80.0    .0      -25.0   100                             \r\nGRID    3       100     80.0    3.0     -25.0   100                             \r\nGRID    4       100     80.0    -3.0    -20.0   100                             \r\nGRID    5       100     80.0    .0      -20.0   100                             \r\nGRID    6       100     80.0    3.0     -20.0   100                             \r\nGRID    7       100     80.0    -3.0    -15.0   100                             \r\nGRID    8       100     80.0    .0      -15.0   100                             \r\nGRID    9       100     80.0    3.0     -15.0   100                             \r\nGRID    10      100     80.0    -3.0    -10.0   100                             \r\nGRID    11      100     80.0    .0      -10.0   100                             \r\nGRID    12      100     80.0    3.0     -10.0   100                             \r\nGRID    13      100     80.0    -3.0    -05.0   100                             \r\nGRID    14      100     80.0    .0      -05.0   100                             \r\nGRID    15      100     80.0    3.0     -05.0   100                             \r\nGRID    16      100     80.0    -3.0    +0.0    100                             \r\nGRID    17      100     80.0    .0      +0.0    100                             \r\nGRID    18      100     80.0    3.0     +0.0    100                             \r\nGRID    19      100     80.0    -3.0    +5.0    100                             \r\nGRID    20      100     80.0    .0      +5.0    100                             \r\nGRID    21      100     80.0    3.0     +5.0    100                             \r\nGRID    22      100     80.0    -3.0    10.0    100                             \r\nGRID    23      100     80.0    .0      10.0    100                             \r\nGRID    24      100     80.0    3.0     10.0    100                             \r\nGRID    25      100     80.0    -3.0    15.0    100                             \r\nGRID    26      100     80.0    .0      15.0    100                             \r\nGRID    27      100     80.0    3.0     15.0    100                             \r\nGRID    28      100     80.0    -3.0    20.0    100                             \r\nGRID    29      100     80.0    .0      20.0    100                             \r\nGRID    30      100     80.0    3.0     20.0    100                             \r\nGRID    31      100     80.0    -3.0    25.0    100                             \r\nGRID    32      100     80.0    .0      25.0    100                             \r\nGRID    33      100     80.0    3.0     25.0    100                             \r\nGRID    51      100     80.0    -1.5    -22.5   100                             \r\nGRID    52      100     80.0    1.5     -22.5   100                             \r\nGRID    54      100     80.0    -1.5    -17.5   100                             \r\nGRID    55      100     80.0    1.5     -17.5   100                             \r\nGRID    57      100     80.0    -1.5    -12.5   100                             \r\nGRID    58      100     80.0    1.5     -12.5   100                             \r\nGRID    60      100     80.0    -1.5    -07.5   100                             \r\nGRID    61      100     80.0    1.5     -07.5   100                             \r\nGRID    63      100     80.0    -1.5    -02.5   100                             \r\nGRID    64      100     80.0    1.5     -02.5   100                             \r\nGRID    66      100     80.0    -1.5    2.5     100                             \r\nGRID    67      100     80.0    1.5     2.5     100                             \r\nGRID    69      100     80.0    -1.5    7.5     100                             \r\nGRID    70      100     80.0    1.5     7.5     100                             \r\nGRID    72      100     80.0    -1.5    12.5    100                             \r\nGRID    73      100     80.0    1.5     12.5    100                             \r\nGRID    75      100     80.0    -1.5    17.5    100                             \r\nGRID    76      100     80.0    1.5     17.5    100                             \r\nGRID    78      100     80.0    -1.5    22.5    100                             \r\nGRID    79      100     80.0    1.5     22.5    100                             \r\nLOAD    100     1.0     1.89745 1                                               \r\nMAT1    400     10000.00        .0                                              \r\nPARAM   IRES    1                                                               \r\nPTRIA1  200     400     2.5     400     1.30208                         +PTRIA1*\r\n+PTRIA1*1.51022 0.00                                                            \r\nSEQGP   51      2.5     52      3.5     54      5.5     55      6.5             \r\nSEQGP   57      8.5     58      9.5     60      11.5    61      12.5            \r\nSEQGP   63      14.5    64      15.5    66      17.5    67      18.5            \r\nSEQGP   69      20.5    70      21.5    72      23.5    73      24.5            \r\nSEQGP   75      26.5    76      27.5    78      29.5    79      30.5            \r\nSPC     50038   17      3       .0                                              \r\nSPC1    50037   1       1       2       3       31      32      33              \r\nSPCADD  1       50037   50038                                                   \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d05011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                      RIGID FORMAT No. 5, Buckling Analysis\r\n$                    Symmetric Buckling of a Cylinder (5-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of buckling analysis to extract the critical\r\n$ loads and the resulting displacements of a cylinder under axial loads. The\r\n$ Buckling Analysis rigid format solves the statics problem to obtain the\r\n$ internal loads in the elements. The internal loads define the differential\r\n$                    d\r\n$ stiffness matrix [K ], which is proportional to the applied load. The load\r\n$ factors, lambda , which cause buckling are defined by the equation:\r\n$                i\r\n$ \r\n$               d\r\n$    [lambda  [K ] + [K]] {u }  =  0                                         (1)\r\n$           i               i\r\n$ \r\n$ where [K] is the linear stiffness matrix. This equation is solved by the real\r\n$ eigenvalue analysis methods for positive values of lambda . The vectors {u }\r\n$                                                          i                i\r\n$ are treated in the same manner as in real eigenvalue analysis.\r\n$ \r\n$ The problem consists of a short, large radius cylinder under a purely axial\r\n$ compression load. A section of arc of 6 degrees is used to model the\r\n$ axisymmetric motions of the whole cylinder.\r\n$ \r\n$ All three types of structure plots are requested: undeformed, static,  and\r\n$ modal deformed. The undeformed perspective plot is fully labeled for checkout\r\n$ of the problem. The modal orthographic plots specify a range of vectors {u }\r\n$                                                                           i\r\n$ which includes all roots. A longitudinal edge view of the model is also\r\n$ plotted for easy identification of mode shapes.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    R  =  80           (Radius)\r\n$ \r\n$    h  =  50           (Height)\r\n$ \r\n$                  4\r\n$    E  =  1.0 x 10     (Modulus of elasticity)\r\n$ \r\n$    v  =  0.0          (Poisson's ratio)\r\n$ \r\n$    t  =  2.5          (Thickness)\r\n$ \r\n$    I  =  1.30208      (Bending inertia)\r\n$     b\r\n$ \r\n$ 2. Loads:\r\n$                         3\r\n$    p  =  1.89745 x 10 /3 deg. ARC\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    a) The center point (17) is constrained in u .\r\n$                                                z\r\n$ \r\n$    c) All points are constrained in u     , theta , and theta .\r\n$                                      theta       r           z\r\n$ \r\n$    d) The top and bottom edges are constrained in u .\r\n$                                                    r\r\n$ \r\n$ 4. Eigenvalue Extraction Data:\r\n$ \r\n$    a) Method: Unsymmetrical Determinant\r\n$ \r\n$    b) Region of Interest:  .10 < lambda < 2.5\r\n$ \r\n$    c) Number of estimated roots = 4\r\n$ \r\n$    d) Number of desired roots =  4\r\n$ \r\n$    e) Normalization: Maximum deflection\r\n$ \r\n$ C.  Results\r\n$ \r\n$ The solution to this problem is derived In Reference 9, p. 439. For\r\n$ axisymmetric buckling, the number of half-waves which occur when the shell\r\n$ buckles at minimum load are:\r\n$ \r\n$                                   2\r\n$       ~  h                 12 (1-v )\r\n$    m  =  --  4th root of ( --------- )                                     (2)\r\n$          pi                   2 2\r\n$                              R t\r\n$ \r\n$ where m is the closest integer to the right-hand values.\r\n$ \r\n$ The corresponding critical stress is:\r\n$ \r\n$                  2 2  2           2\r\n$                Et m pi          Eh\r\n$    sigma    =  ---------   +  -------                                      (3)\r\n$         cr        2    2       2 2  2\r\n$                12h (1-v )     R m pi\r\n$ \r\n$ Using the values given, the lowest buckling mode consists of a full sine wave.\r\n$ The NASTRAN results and the theoretical solutions for the critical load for\r\n$ each buckling mode are listed below:\r\n$ \r\n$                    ---------------------------------\r\n$                    Number of\r\n$                    Half Waves\r\n$                        m       NASTRAN    ANALYTICAL\r\n$                    ---------------------------------\r\n$                        1       2.2889      2.2978\r\n$                        2        .99424     1.0\r\n$                        3       1.2744      1.26402\r\n$                        4       2.0070      1.86420\r\n$                    ---------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 9. S. Timoshenko, THEORY OF ELASTIC STABILITY. MGraw-Hi11, 1936.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d05021a.inp",
    "content": "ID    D05021A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   5,0                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    =  BUCKLING  OF  A TAPERED  COLUMN FIXED  AT THE  BASE                 \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D05-02-1A                          \r\nLABEL    =  CONCENTRATED  LOAD  AT THE CENTER ALONG Y-AXIS                      \r\nOUTPUT                                                                          \r\nDISP  =  ALL                                                                    \r\nELSTRESS = ALL                                                                  \r\nSPC   =  2                                                                      \r\nSUBCASE 1                                                                       \r\nLABEL = STATIC SOLUTION                                                         \r\nLOAD  = 3                                                                       \r\nOLOAD = ALL                                                                     \r\nSUBCASE 2                                                                       \r\nLABEL = BUCKLING SOLUTION                                                       \r\nMETHOD= 4                                                                       \r\nBEGIN BULK                                                                      \r\nCTRSHL  1       6       1       2       3       5       7       4       +TR1    \r\n+TR1                                                                            \r\nCTRSHL  2       7       9       8       7       5       3       6       +TR2    \r\n+TR2                                                                            \r\nCTRSHL  3       8       7       8       9       11      13      10      +TR3    \r\n+TR3                                                                            \r\nCTRSHL  4       9       15      14      13      11      9       12      +TR4    \r\n+TR4                                                                            \r\nEIGB    4       INV     .0      10.0    1       1       0               +ABC    \r\n+ABC    MAX                                                                     \r\nFORCE   3       13              1.6666+2        -1.0                            \r\nFORCE   3       14              6.6666+2        -1.0                            \r\nFORCE   3       15              1.6666+2        -1.0                            \r\nGRDSET                                                  56                      \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2                                                                       \r\nGRID    3               1.495349.0      .0                                      \r\nGRID    4                                                                       \r\nGRID    5                                                                       \r\nGRID    6                                                                       \r\nGRID    7               .0      1.5     .0                                      \r\nGRID    8                                                                       \r\nGRID    9               1.2476741.5     .0                                      \r\nGRID    10                                                                      \r\nGRID    11                                                                      \r\nGRID    12                                                                      \r\nGRID    13              .0      3.0     .0                                      \r\nGRID    14                                                                      \r\nGRID    15              1.0     3.0     .0                                      \r\nMAT1    5       3.0+7   1.5+7                                                   \r\nPTRSHL  6       5       2.990698        2.4953485       2.229135        +PT1    \r\n+PT1    1.294828                                                        +PT2    \r\n+PT2                                                                            \r\nPTRSHL  7       5       2.495348        2.9906985       1.294828        +PT3    \r\n+PT3    2.229135                                                        +PT4    \r\n+PT4                                                                            \r\nPTRSHL  8       5       2.495348        2.0     5       1.294828        +PT5    \r\n+PT5    .666667                                                         +PT6    \r\n+PT6                                                                            \r\nPTRSHL  9       5       2.0             2.4953485       .666667         +PT7    \r\n+PT7    1.294828                                                        +PT8    \r\n+PT8                                                                            \r\nSPC1    2       1       4       7       10      13                              \r\nSPC1    2       1234    1       2       3                                       \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d05021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                      RIGID FORMAT No. 5, Buckling Analysis\r\n$             Buckling of a Tapered Column Fixed at the Base (5-2-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ A buckling analysis of a tapered column fixed at the base is presented. The\r\n$ shallow shell element TRSHL, with membrane and bending stiffness combined, is\r\n$ utilized for modeling the column. (See Reference 31, pp. 190-194). Note that a\r\n$ vertical plane of symmetry is utilized, allowing the model to represent only\r\n$ half the structure.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$                 7            2\r\n$    E =  3.0 x 10  pounds/inch           (Young's modulus)\r\n$ \r\n$                 7            2\r\n$    G =  1.5 x 10  pounds/inch           (Shear modulus)\r\n$ \r\n$    L =  3.0 inches                      (Height)\r\n$ \r\n$    a =  6.056 inches                    (Length)\r\n$ \r\n$    The area moment of inertia at any cross section is expressed as\r\n$ \r\n$                   x  4\r\n$       I   =  I  ( - )                                                      (1)\r\n$        x      1   a\r\n$ \r\n$    I  and I  are the moments of inertia at the top (x=a) and bottom (x=0)\r\n$     1      2\r\n$    of the column respectively and I /I  = 0.2. For this problem 3I  = 2 and\r\n$                                    1  2                           1\r\n$    3I  = 10. The thickness varies linearly from the top (t = 2.0) to the\r\n$      2\r\n$    bottom (t = 3.0) of the column.\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    theta , theta  = 0          (All grid points)\r\n$         y       z\r\n$ \r\n$    x, y, z, theta  = 0         (Grids 1, 2, and 3)\r\n$                  x\r\n$    x = 0                       (Grids 4, 7, 10, 13)\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    F  = -166.66                (Grids 13 and 15)\r\n$     y\r\n$ \r\n$    F  = -666.66                (Grid 14)\r\n$     y\r\n$ \r\n$ The theoretical solution to this problem is developed on pages 125-130 of\r\n$ Reference 23. The reference defines the buckling factor as\r\n$ \r\n$                   2\r\n$               P  L\r\n$                cr\r\n$    lambda  =  ------                                                       (2)\r\n$                EI\r\n$                  2\r\n$ \r\n$ where, for this problem, lambda = 1.505.\r\n$ \r\n$ D. Results\r\n$ \r\n$ NASTRAN results for this problem, as modeled with the TRSHL element, are\r\n$ presented below.\r\n$ \r\n$                        ---------------------------------\r\n$                                                      2\r\n$                                                  P  L\r\n$                                                   cr\r\n$                        Buckling Factor lambda =  ------\r\n$                                                   EI\r\n$                                                     2\r\n$                        ---------------------------------\r\n$                               TRSHL        Theory\r\n$                        ---------------------------------\r\n$                               1.543        1.505\r\n$                        ---------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 23. Timoshenko, S. P., Theory of Elastic Stability, McGraw-Hill, 1961, p 159.\r\n$ \r\n$ 31. Narayanaswami, R.: Addition of Higher Order Plate and Shell Elements into\r\n$     NASTRAN Computer Program, Technical Report 76-T19, Old Dominion University\r\n$     Research Foundation, Norfolk, Virginia, December, 1976.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d06011a.inp",
    "content": "ID    D06011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nTIME  100                                                                       \r\nSOL   6,1                                                                       \r\nCEND                                                                            \r\nTITLE    = PIECEWISE LINEAR ANALYSIS OF A CRACKED PANEL                         \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D06-01-1A                          \r\nMAXLINES = 50000                                                                \r\n$   ECHO = NONE                                                                 \r\n     SPC = 10                                                                   \r\n    LOAD = 600                                                                  \r\n    PLCOEFFICIENT = 23                                                          \r\nOUTPUT                                                                          \r\n$                                                                               \r\nSET 1 = 1 THRU 26,42,43,50,77,107,137,167,195,222,249,272,293,341,347,          \r\n        348                                                                     \r\nSET 2 = 1 THRU 36, 196, 200                                                     \r\n$                                                                               \r\n      DISPLACEMENT = 2                                                          \r\n      OLOAD    = ALL                                                            \r\n      SPCFORCE = ALL                                                            \r\n      STRESS   = 1                                                              \r\nBEGIN BULK                                                                      \r\nCTRMEM  1       1       7       8       9                                       \r\nCTRMEM  2       1       8       12      9                                       \r\nCTRMEM  3       1       9       10      12                                      \r\nCTRMEM  4       1       10      11      12                                      \r\nCTRMEM  5       1       12      13      11                                      \r\nCTRMEM  6       1       13      14      11                                      \r\nCTRMEM  7       1       15      16      1                                       \r\nCTRMEM  8       1       1       2       16                                      \r\nCTRMEM  9       1       16      17      2                                       \r\nCTRMEM  10      1       2       3       17                                      \r\nCTRMEM  11      1       17      18      3                                       \r\nCTRMEM  12      1       3       4       18                                      \r\nCTRMEM  13      1       18      19      4                                       \r\nCTRMEM  14      1       19      20      4                                       \r\nCTRMEM  15      1       4       5       20                                      \r\nCTRMEM  16      1       5       6       20                                      \r\nCTRMEM  17      1       20      21      6                                       \r\nCTRMEM  18      1       21      22      6                                       \r\nCTRMEM  19      1       6       7       22                                      \r\nCTRMEM  20      1       7       22      9       90.0                            \r\nCTRMEM  21      1       22      23      9                                       \r\nCTRMEM  22      1       9       10      23                                      \r\nCTRMEM  23      1       10      11      23                                      \r\nCTRMEM  24      1       23      24      11                                      \r\nCTRMEM  25      1       14      24      11      90.0                            \r\nCTRMEM  26      1       14      26      24                                      \r\nCTRMEM  27      1       24      25      26                                      \r\nCTRMEM  28      1       15      16      27                                      \r\nCTRMEM  29      1       27      28      16                                      \r\nCTRMEM  30      1       16      17      28                                      \r\nCTRMEM  31      1       28      29      17                                      \r\nCTRMEM  32      1       17      18      29                                      \r\nCTRMEM  33      1       29      30      18                                      \r\nCTRMEM  34      1       18      19      30                                      \r\nCTRMEM  35      1       19      20      30                                      \r\nCTRMEM  36      1       30      31      20                                      \r\nCTRMEM  37      1       31      32      20                                      \r\nCTRMEM  38      1       20      21      32                                      \r\nCTRMEM  39      1       21      22      32                                      \r\nCTRMEM  40      1       32      33      22                                      \r\nCTRMEM  41      1       33      34      22                                      \r\nCTRMEM  42      1       22      23      34                                      \r\nCTRMEM  43      1       23      24      34                                      \r\nCTRMEM  44      1       34      35      24                                      \r\nCTRMEM  45      1       35      36      24                                      \r\nCTRMEM  46      1       24      25      36                                      \r\nCTRMEM  47      1       25      38      36                                      \r\nCTRMEM  48      1       36      37      38                                      \r\nCTRMEM  49      1       25      38      26                                      \r\nCTRMEM  50      1       26      39      38                                      \r\nCTRMEM  51      1       40      41      27                                      \r\nCTRMEM  52      1       27      28      41                                      \r\nCTRMEM  53      1       41      42      28                                      \r\nCTRMEM  54      1       28      29      42                                      \r\nCTRMEM  55      1       42      43      29                                      \r\nCTRMEM  56      1       29      30      43                                      \r\nCTRMEM  57      1       43      44      30                                      \r\nCTRMEM  58      1       44      45      30                                      \r\nCTRMEM  59      1       30      31      45                                      \r\nCTRMEM  60      1       31      32      45                                      \r\nCTRMEM  61      1       45      46      32                                      \r\nCTRMEM  62      1       46      47      32                                      \r\nCTRMEM  63      1       32      33      47                                      \r\nCTRMEM  64      1       33      34      47                                      \r\nCTRMEM  65      1       47      48      34                                      \r\nCTRMEM  66      1       48      49      34                                      \r\nCTRMEM  67      1       34      35      49                                      \r\nCTRMEM  68      1       35      36      49                                      \r\nCTRMEM  69      1       49      50      36                                      \r\nCTRMEM  70      1       50      51      36                                      \r\nCTRMEM  71      1       36      37      51                                      \r\nCTRMEM  72      1       37      53      51                                      \r\nCTRMEM  73      1       51      52      53                                      \r\nCTRMEM  74      1       37      53      38                                      \r\nCTRMEM  75      1       38      54      53                                      \r\nCTRMEM  76      1       38      54      55                                      \r\nCTRMEM  77      1       39      55      38                                      \r\nCTRMEM  78      1       40      41      56                                      \r\nCTRMEM  79      1       56      57      41                                      \r\nCTRMEM  80      1       41      42      57                                      \r\nCTRMEM  81      1       57      58      42                                      \r\nCTRMEM  82      1       42      43      58                                      \r\nCTRMEM  83      1       58      59      43                                      \r\nCTRMEM  84      1       43      44      59                                      \r\nCTRMEM  85      1       44      45      59                                      \r\nCTRMEM  86      1       59      60      45                                      \r\nCTRMEM  87      1       60      61      45                                      \r\nCTRMEM  88      1       45      46      61                                      \r\nCTRMEM  89      1       46      47      61                                      \r\nCTRMEM  90      1       61      62      47                                      \r\nCTRMEM  91      1       62      63      47                                      \r\nCTRMEM  92      1       47      48      63                                      \r\nCTRMEM  93      1       48      49      63                                      \r\nCTRMEM  94      1       63      64      49                                      \r\nCTRMEM  95      1       64      65      49                                      \r\nCTRMEM  96      1       49      50      65                                      \r\nCTRMEM  97      1       50      51      65                                      \r\nCTRMEM  98      1       65      66      51                                      \r\nCTRMEM  99      1       66      67      51                                      \r\nCTRMEM  100     1       51      52      67                                      \r\nCTRMEM  101     1       52      69      67                                      \r\nCTRMEM  102     1       67      68      69                                      \r\nCTRMEM  103     1       52      69      53                                      \r\nCTRMEM  104     1       70      69      53      90.0                            \r\nCTRMEM  105     1       54      70      53                                      \r\nCTRMEM  106     1       54      70      55                                      \r\nCTRMEM  107     1       55      71      70                                      \r\nCTRMEM  108     1       72      73      56                                      \r\nCTRMEM  109     1       56      57      73                                      \r\nCTRMEM  110     1       73      74      57                                      \r\nCTRMEM  111     1       57      58      74                                      \r\nCTRMEM  112     1       74      75      58                                      \r\nCTRMEM  113     1       58      59      75                                      \r\nCTRMEM  114     1       75      76      59                                      \r\nCTRMEM  115     1       59      60      76                                      \r\nCTRMEM  116     1       60      61      76                                      \r\nCTRMEM  117     1       76      77      61                                      \r\nCTRMEM  118     1       77      78      61                                      \r\nCTRMEM  119     1       61      62      78                                      \r\nCTRMEM  120     1       62      63      78                                      \r\nCTRMEM  121     1       78      79      63                                      \r\nCTRMEM  122     1       79      80      63                                      \r\nCTRMEM  123     1       63      64      80                                      \r\nCTRMEM  124     1       64      65      80                                      \r\nCTRMEM  125     1       80      81      65                                      \r\nCTRMEM  126     1       81      82      65                                      \r\nCTRMEM  127     1       65      66      82                                      \r\nCTRMEM  128     1       66      67      82                                      \r\nCTRMEM  129     1       82      83      67                                      \r\nCTRMEM  130     1       83      84      67                                      \r\nCTRMEM  131     1       67      68      84                                      \r\nCTRMEM  132     1       68      85      84                                      \r\nCTRMEM  133     1       68      85      69                                      \r\nCTRMEM  134     1       86      85      69      90.0                            \r\nCTRMEM  135     1       70      69      86      90.0                            \r\nCTRMEM  136     1       87      86      70      90.0                            \r\nCTRMEM  137     1       71      87      70                                      \r\nCTRMEM  138     1       72      73      88                                      \r\nCTRMEM  139     1       88      89      73                                      \r\nCTRMEM  140     1       73      74      89                                      \r\nCTRMEM  141     1       89      90      74                                      \r\nCTRMEM  142     1       74      75      90                                      \r\nCTRMEM  143     1       90      91      75                                      \r\nCTRMEM  144     1       75      76      91                                      \r\nCTRMEM  145     1       91      92      76                                      \r\nCTRMEM  146     1       76      77      92                                      \r\nCTRMEM  147     1       77      78      92                                      \r\nCTRMEM  148     1       92      93      78                                      \r\nCTRMEM  149     1       93      94      78                                      \r\nCTRMEM  150     1       78      79      94                                      \r\nCTRMEM  151     1       79      80      94                                      \r\nCTRMEM  152     1       94      95      80                                      \r\nCTRMEM  153     1       95      96      80                                      \r\nCTRMEM  154     1       80      81      96                                      \r\nCTRMEM  155     1       81      82      96                                      \r\nCTRMEM  156     1       96      97      82                                      \r\nCTRMEM  157     1       97      98      82                                      \r\nCTRMEM  158     1       82      83      98                                      \r\nCTRMEM  159     1       83      84      98                                      \r\nCTRMEM  160     1       98      99      84                                      \r\nCTRMEM  161     1       85      99      84      90.0                            \r\nCTRMEM  162     1       85      99      100     90.0                            \r\nCTRMEM  163     1       101     100     85      90.0                            \r\nCTRMEM  164     1       86      85      101     90.0                            \r\nCTRMEM  165     1       102     101     86      90.0                            \r\nCTRMEM  166     1       86      87      102     90.0                            \r\nCTRMEM  167     1       87      103     102                                     \r\nCTRMEM  168     1       104     105     88                                      \r\nCTRMEM  169     1       88      89      105                                     \r\nCTRMEM  170     1       105     106     89                                      \r\nCTRMEM  171     1       89      90      106                                     \r\nCTRMEM  172     1       106     107     90                                      \r\nCTRMEM  173     1       90      91      107                                     \r\nCTRMEM  174     1       107     108     91                                      \r\nCTRMEM  175     1       91      92      108                                     \r\nCTRMEM  176     1       108     109     92                                      \r\nCTRMEM  177     1       92      93      109                                     \r\nCTRMEM  178     1       93      94      109                                     \r\nCTRMEM  179     1       109     110     94                                      \r\nCTRMEM  180     1       94      95      110                                     \r\nCTRMEM  181     1       95      96      110                                     \r\nCTRMEM  182     1       110     111     96                                      \r\nCTRMEM  183     1       96      97      111                                     \r\nCTRMEM  184     1       97      98      111                                     \r\nCTRMEM  185     1       111     112     98                                      \r\nCTRMEM  186     1       98      99      112                                     \r\nCTRMEM  187     1       112     113     99                                      \r\nCTRMEM  188     1       100     113     99      90.0                            \r\nCTRMEM  189     1       100     113     114     90.0                            \r\nCTRMEM  190     1       115     114     100     90.0                            \r\nCTRMEM  191     1       101     100     115     90.0                            \r\nCTRMEM  192     1       116     115     101     90.0                            \r\nCTRMEM  193     1       102     101     116     90.0                            \r\nCTRMEM  194     1       116     117     102     90.0                            \r\nCTRMEM  195     1       103     117     102                                     \r\nCTRMEM  196     1       104     105     118                                     \r\nCTRMEM  197     1       118     119     105                                     \r\nCTRMEM  198     1       105     106     119                                     \r\nCTRMEM  199     1       119     120     106                                     \r\nCTRMEM  200     1       106     107     120                                     \r\nCTRMEM  201     1       120     121     107                                     \r\nCTRMEM  202     1       107     108     121                                     \r\nCTRMEM  203     1       121     122     108                                     \r\nCTRMEM  204     1       108     109     122                                     \r\nCTRMEM  205     1       122     123     109                                     \r\nCTRMEM  206     1       109     110     123                                     \r\nCTRMEM  207     1       123     124     110                                     \r\nCTRMEM  208     1       110     111     124                                     \r\nCTRMEM  209     1       124     125     111                                     \r\nCTRMEM  210     1       111     112     125                                     \r\nCTRMEM  211     1       125     126     112                                     \r\nCTRMEM  212     1       112     113     126                                     \r\nCTRMEM  213     1       126     127     113                                     \r\nCTRMEM  214     1       114     127     113     90.0                            \r\nCTRMEM  215     1       114     129     127                                     \r\nCTRMEM  216     1       127     128     129                                     \r\nCTRMEM  217     1       114     129     115                                     \r\nCTRMEM  218     1       115     130     129                                     \r\nCTRMEM  219     1       115     130     131                                     \r\nCTRMEM  220     1       116     131     115                                     \r\nCTRMEM  221     1       116     131     117                                     \r\nCTRMEM  222     1       117     132     131                                     \r\nCTRMEM  223     1       118     119     133                                     \r\nCTRMEM  224     1       133     134     119                                     \r\nCTRMEM  225     1       134     135     119                                     \r\nCTRMEM  226     1       119     120     135                                     \r\nCTRMEM  227     1       120     121     135                                     \r\nCTRMEM  228     1       135     136     121                                     \r\nCTRMEM  229     1       136     137     121                                     \r\nCTRMEM  230     1       121     122     137                                     \r\nCTRMEM  231     1       122     123     137                                     \r\nCTRMEM  232     1       137     138     123                                     \r\nCTRMEM  233     1       138     139     123                                     \r\nCTRMEM  234     1       123     124     139                                     \r\nCTRMEM  235     1       124     125     139                                     \r\nCTRMEM  236     1       139     140     125                                     \r\nCTRMEM  237     1       140     141     125                                     \r\nCTRMEM  238     1       125     126     141                                     \r\nCTRMEM  239     1       126     127     141                                     \r\nCTRMEM  240     1       141     142     127                                     \r\nCTRMEM  241     1       142     143     127                                     \r\nCTRMEM  242     1       127     128     143                                     \r\nCTRMEM  243     1       128     144     143                                     \r\nCTRMEM  244     1       128     144     129                                     \r\nCTRMEM  245     1       145     144     129     90.0                            \r\nCTRMEM  246     1       130     145     129                                     \r\nCTRMEM  247     1       130     145     131                                     \r\nCTRMEM  248     1       146     145     131     90.0                            \r\nCTRMEM  249     1       132     146     131                                     \r\nCTRMEM  250     1       147     148     133                                     \r\nCTRMEM  251     1       133     134     148                                     \r\nCTRMEM  252     1       134     135     148                                     \r\nCTRMEM  253     1       148     149     135                                     \r\nCTRMEM  254     1       135     136     149                                     \r\nCTRMEM  255     1       136     137     149                                     \r\nCTRMEM  256     1       149     150     137                                     \r\nCTRMEM  257     1       137     138     150                                     \r\nCTRMEM  258     1       138     139     150                                     \r\nCTRMEM  259     1       150     151     139                                     \r\nCTRMEM  260     1       139     140     151                                     \r\nCTRMEM  261     1       140     141     151                                     \r\nCTRMEM  262     1       151     152     141                                     \r\nCTRMEM  263     1       141     142     152                                     \r\nCTRMEM  264     1       142     143     152                                     \r\nCTRMEM  265     1       152     153     143                                     \r\nCTRMEM  266     1       144     153     143     90.0                            \r\nCTRMEM  267     1       153     154     144                                     \r\nCTRMEM  268     1       144     155     154                                     \r\nCTRMEM  269     1       144     155     156                                     \r\nCTRMEM  270     1       145     156     144                                     \r\nCTRMEM  271     1       145     156     146                                     \r\nCTRMEM  272     1       146     157     156                                     \r\nCTRMEM  273     1       147     148     158                                     \r\nCTRMEM  274     1       158     159     148                                     \r\nCTRMEM  275     1       148     149     159                                     \r\nCTRMEM  276     1       159     160     149                                     \r\nCTRMEM  277     1       149     150     160                                     \r\nCTRMEM  278     1       160     161     150                                     \r\nCTRMEM  279     1       150     151     161                                     \r\nCTRMEM  280     1       161     162     151                                     \r\nCTRMEM  281     1       151     152     162                                     \r\nCTRMEM  282     1       162     163     152                                     \r\nCTRMEM  283     1       152     153     163                                     \r\nCTRMEM  284     1       163     164     153                                     \r\nCTRMEM  285     1       153     154     164                                     \r\nCTRMEM  286     1       164     165     154                                     \r\nCTRMEM  287     1       154     166     165                                     \r\nCTRMEM  288     1       154     166     167                                     \r\nCTRMEM  289     1       155     167     154                                     \r\nCTRMEM  290     1       155     167     156                                     \r\nCTRMEM  291     1       156     168     167                                     \r\nCTRMEM  292     1       156     168     169                                     \r\nCTRMEM  293     1       157     169     156                                     \r\nCTRMEM  294     1       170     171     158                                     \r\nCTRMEM  295     1       158     159     171                                     \r\nCTRMEM  296     1       159     160     171                                     \r\nCTRMEM  297     1       171     172     160                                     \r\nCTRMEM  298     1       172     173     160                                     \r\nCTRMEM  299     1       160     161     173                                     \r\nCTRMEM  300     1       161     162     173                                     \r\nCTRMEM  301     1       173     174     162                                     \r\nCTRMEM  302     1       174     175     162                                     \r\nCTRMEM  303     1       162     163     175                                     \r\nCTRMEM  304     1       163     164     175                                     \r\nCTRMEM  305     1       175     176     164                                     \r\nCTRMEM  306     1       176     177     164                                     \r\nCTRMEM  307     1       164     165     177                                     \r\nCTRMEM  308     1       170     171     178                                     \r\nCTRMEM  309     1       178     179     171                                     \r\nCTRMEM  310     1       171     172     179                                     \r\nCTRMEM  311     1       179     180     172                                     \r\nCTRMEM  312     1       172     173     180                                     \r\nCTRMEM  313     1       173     174     180                                     \r\nCTRMEM  314     1       180     181     174                                     \r\nCTRMEM  315     1       174     175     181                                     \r\nCTRMEM  316     1       181     182     175                                     \r\nCTRMEM  317     1       175     176     182                                     \r\nCTRMEM  318     1       182     183     176                                     \r\nCTRMEM  319     1       176     177     183                                     \r\nCTRMEM  320     1       184     185     178                                     \r\nCTRMEM  321     1       178     179     185                                     \r\nCTRMEM  322     1       179     180     185                                     \r\nCTRMEM  323     1       185     186     180                                     \r\nCTRMEM  324     1       186     187     180                                     \r\nCTRMEM  325     1       180     181     187                                     \r\nCTRMEM  326     1       181     182     187                                     \r\nCTRMEM  327     1       187     188     182                                     \r\nCTRMEM  328     1       188     189     182                                     \r\nCTRMEM  329     1       182     183     189                                     \r\nCTRMEM  330     1       184     185     190                                     \r\nCTRMEM  331     1       190     191     185                                     \r\nCTRMEM  332     1       191     192     185                                     \r\nCTRMEM  333     1       185     186     192                                     \r\nCTRMEM  334     1       186     187     192                                     \r\nCTRMEM  335     1       192     193     187                                     \r\nCTRMEM  336     1       193     194     187                                     \r\nCTRMEM  337     1       187     188     194                                     \r\nCTRMEM  338     1       188     189     194                                     \r\nCTRMEM  339     1       194     195     189                                     \r\nCTRMEM  340     1       190     191     196                                     \r\nCTRMEM  341     1       196     197     191                                     \r\nCTRMEM  342     1       191     192     197                                     \r\nCTRMEM  343     1       197     198     192                                     \r\nCTRMEM  344     1       192     193     198                                     \r\nCTRMEM  345     1       198     199     193                                     \r\nCTRMEM  346     1       193     194     199                                     \r\nCTRMEM  347     1       199     200     194                                     \r\nCTRMEM  348     1       194     195     200                                     \r\nFORCE   600     196             100.    0.0     .375                            \r\nFORCE   600     197             100.    0.0     .75                             \r\nFORCE   600     198             100.    0.0     .75                             \r\nFORCE   600     199             100.    0.0     .75                             \r\nFORCE   600     200             100.    0.0     .375                            \r\nGRDSET                                                  3456                    \r\nGRID    1               0.0     0.0                                             \r\nGRID    2               .2      .0                                              \r\nGRID    3               .4      .0                                              \r\nGRID    4               .6      .0                                              \r\nGRID    5               .7      .0                                              \r\nGRID    6               .8      .0                                              \r\nGRID    7               .9      .0                                              \r\nGRID    8               .95     .0                                              \r\nGRID    9               .95     .05                                             \r\nGRID    10              1.0     .05                                             \r\nGRID    11              1.05    .05                                             \r\nGRID    12              1.0     .0                                              \r\nGRID    13              1.05    .0                                              \r\nGRID    14              1.1     .0                                              \r\nGRID    15              .0      .1                                              \r\nGRID    16              .1      .1                                              \r\nGRID    17              .3      .1                                              \r\nGRID    18              .5      .1                                              \r\nGRID    19              .6      .1                                              \r\nGRID    20              .7      .1                                              \r\nGRID    21              .8      .1                                              \r\nGRID    22              .9      .1                                              \r\nGRID    23              1.0     .1                                              \r\nGRID    24              1.1     .1                                              \r\nGRID    25              1.2     .1                                              \r\nGRID    26              1.2     .0                                              \r\nGRID    27              .0      .2                                              \r\nGRID    28              .2      .2                                              \r\nGRID    29              .4      .2                                              \r\nGRID    30              .6      .2                                              \r\nGRID    31              .7      .2                                              \r\nGRID    32              .8      .2                                              \r\nGRID    33              .9      .2                                              \r\nGRID    34              1.0     .2                                              \r\nGRID    35              1.1     .2                                              \r\nGRID    36              1.2     .2                                              \r\nGRID    37              1.3     .2                                              \r\nGRID    38              1.3     .1                                              \r\nGRID    39              1.3     .0                                              \r\nGRID    40              .0      .3                                              \r\nGRID    41              .1      .3                                              \r\nGRID    42              .3      .3                                              \r\nGRID    43              .5      .3                                              \r\nGRID    44              .6      .3                                              \r\nGRID    45              .7      .3                                              \r\nGRID    46              .8      .3                                              \r\nGRID    47              .9      .3                                              \r\nGRID    48              1.0     .3                                              \r\nGRID    49              1.1     .3                                              \r\nGRID    50              1.2     .3                                              \r\nGRID    51              1.3     .3                                              \r\nGRID    52              1.4     .3                                              \r\nGRID    53              1.4     .2                                              \r\nGRID    54              1.4     .1                                              \r\nGRID    55              1.4     .0                                              \r\nGRID    56              .0      .4                                              \r\nGRID    57              .2      .4                                              \r\nGRID    58              .4      .4                                              \r\nGRID    59              .6      .4                                              \r\nGRID    60              .7      .4                                              \r\nGRID    61              .8      .4                                              \r\nGRID    62              .9      .4                                              \r\nGRID    63              1.0     .4                                              \r\nGRID    64              1.1     .4                                              \r\nGRID    65              1.2     .4                                              \r\nGRID    66              1.3     .4                                              \r\nGRID    67              1.4     .4                                              \r\nGRID    68              1.5     .4                                              \r\nGRID    69              1.5     .3                                              \r\nGRID    70              1.5     .1                                              \r\nGRID    71              1.5     .0                                              \r\nGRID    72              .0      .5                                              \r\nGRID    73              .1      .5                                              \r\nGRID    74              .3      .5                                              \r\nGRID    75              .5      .5                                              \r\nGRID    76              .7      .5                                              \r\nGRID    77              .8      .5                                              \r\nGRID    78              .9      .5                                              \r\nGRID    79              1.0     .5                                              \r\nGRID    80              1.1     .5                                              \r\nGRID    81              1.2     .5                                              \r\nGRID    82              1.3     .5                                              \r\nGRID    83              1.4     .5                                              \r\nGRID    84              1.5     .5                                              \r\nGRID    85              1.6     .4                                              \r\nGRID    86              1.6     .2                                              \r\nGRID    87              1.6     .0                                              \r\nGRID    88              .0      .6                                              \r\nGRID    89              .2      .6                                              \r\nGRID    90              .4      .6                                              \r\nGRID    91              .6      .6                                              \r\nGRID    92              .8      .6                                              \r\nGRID    93              .9      .6                                              \r\nGRID    94              1.0     .6                                              \r\nGRID    95              1.1     .6                                              \r\nGRID    96              1.2     .6                                              \r\nGRID    97              1.3     .6                                              \r\nGRID    98              1.4     .6                                              \r\nGRID    99              1.6     .6                                              \r\nGRID    100             1.7     .5                                              \r\nGRID    101             1.7     .3                                              \r\nGRID    102             1.7     .1                                              \r\nGRID    103             1.7     .0                                              \r\nGRID    104             .0      .7                                              \r\nGRID    105             .1      .7                                              \r\nGRID    106             .3      .7                                              \r\nGRID    107             .5      .7                                              \r\nGRID    108             .7      .7                                              \r\nGRID    109             .9      .7                                              \r\nGRID    110             1.1     .7                                              \r\nGRID    111             1.3     .7                                              \r\nGRID    112             1.5     .7                                              \r\nGRID    113             1.7     .7                                              \r\nGRID    114             1.8     .6                                              \r\nGRID    115             1.8     .4                                              \r\nGRID    116             1.8     .2                                              \r\nGRID    117             1.8     .0                                              \r\nGRID    118             .0      .8                                              \r\nGRID    119             .2      .8                                              \r\nGRID    120             .4      .8                                              \r\nGRID    121             .6      .8                                              \r\nGRID    122             .8      .8                                              \r\nGRID    123             1.0     .8                                              \r\nGRID    124             1.2     .8                                              \r\nGRID    125             1.4     .8                                              \r\nGRID    126             1.6     .8                                              \r\nGRID    127             1.8     .8                                              \r\nGRID    128             2.0     .8                                              \r\nGRID    129             2.0     .6                                              \r\nGRID    130             2.0     .4                                              \r\nGRID    131             2.0     .2                                              \r\nGRID    132             2.0     .0                                              \r\nGRID    133             .0      1.0                                             \r\nGRID    134             .2      1.0                                             \r\nGRID    135             .4      1.0                                             \r\nGRID    136             .6      1.0                                             \r\nGRID    137             .8      1.0                                             \r\nGRID    138             1.0     1.0                                             \r\nGRID    139             1.2     1.0                                             \r\nGRID    140             1.4     1.0                                             \r\nGRID    141             1.6     1.0                                             \r\nGRID    142             1.8     1.0                                             \r\nGRID    143             2.0     1.0                                             \r\nGRID    144             2.2     .8                                              \r\nGRID    145             2.2     .4                                              \r\nGRID    146             2.2     .0                                              \r\nGRID    147             .0      1.2                                             \r\nGRID    148             .2      1.2                                             \r\nGRID    149             .6      1.2                                             \r\nGRID    150             1.0     1.2                                             \r\nGRID    151             1.4     1.2                                             \r\nGRID    152             1.8     1.2                                             \r\nGRID    153             2.2     1.2                                             \r\nGRID    154             2.6     1.2                                             \r\nGRID    155             2.6     .8                                              \r\nGRID    156             2.6     .4                                              \r\nGRID    157             2.6     .0                                              \r\nGRID    158             .0      1.6                                             \r\nGRID    159             .4      1.6                                             \r\nGRID    160             .8      1.6                                             \r\nGRID    161             1.2     1.6                                             \r\nGRID    162             1.6     1.6                                             \r\nGRID    163             2.0     1.6                                             \r\nGRID    164             2.5     1.6                                             \r\nGRID    165             3.0     1.6                                             \r\nGRID    166             3.0     1.2                                             \r\nGRID    167             3.0     .8                                              \r\nGRID    168             3.0     .4                                              \r\nGRID    169             3.0     .0                                              \r\nGRID    170             .0      2.1                                             \r\nGRID    171             .4      2.1                                             \r\nGRID    172             .8      2.1                                             \r\nGRID    173             1.2     2.1                                             \r\nGRID    174             1.6     2.1                                             \r\nGRID    175             2.0     2.1                                             \r\nGRID    176             2.5     2.1                                             \r\nGRID    177             3.0     2.1                                             \r\nGRID    178             .0      2.6                                             \r\nGRID    179             .6      2.6                                             \r\nGRID    180             1.2     2.6                                             \r\nGRID    181             1.8     2.6                                             \r\nGRID    182             2.4     2.6                                             \r\nGRID    183             3.0     2.6                                             \r\nGRID    184             .0      3.2                                             \r\nGRID    185             .6      3.2                                             \r\nGRID    186             1.2     3.2                                             \r\nGRID    187             1.8     3.2                                             \r\nGRID    188             2.4     3.2                                             \r\nGRID    189             3.0     3.2                                             \r\nGRID    190             .0      3.8                                             \r\nGRID    191             .6      3.8                                             \r\nGRID    192             1.2     3.8                                             \r\nGRID    193             1.8     3.8                                             \r\nGRID    194             2.4     3.8                                             \r\nGRID    195             3.0     3.8                                             \r\nGRID    196             .0      4.5                                             \r\nGRID    197             .75     4.5                                             \r\nGRID    198             1.5     4.5                                             \r\nGRID    199             2.25    4.5                                             \r\nGRID    200             3.0     4.5                                             \r\nLOAD    2300    23.     1.0     600                                             \r\nMAT1    60      10.8+6          .3333                                   +M1     \r\n+M1     11.5+3  11.5+3                                                          \r\nMATS1   60      101                                                             \r\nPLFACT  23      23.     25.     28.     31.     34.     37.     40.     +A-PLF  \r\n+A-PLF  44.     48.     52.     56.     60.     65.     70.     75.     +B-PLF  \r\n+B-PLF  80.     85.     90.     95.     100.    105.    110.    115.    +C-PLF  \r\n+C-PLF  120.    125.    130.                                                    \r\nPTRMEM  1       60      1.0                                                     \r\nSPC1    10      1       1       15      27      40      56      72      + SPC1-1\r\n+ SPC1-188      104     118     133     147     158     170     178     + SPC2-1\r\n+ SPC2-1184     190     196                                                     \r\nSPC1    10      2       12      13      14      26      39      55      + SPC1-2\r\n+ SPC1-271      87      103     117     132     146     157     169             \r\nTABLES1 101                                                             *TAB100 \r\n*TAB100   -8.4495168E-02  -3.4765000E 04  -8.2418240E-02  -3.453E 04    *TAB101 \r\n*TAB101   -8.0372998E-02  -3.4295000E 04  -7.8359272E-02  -3.406E 04    *TAB102 \r\n*TAB102   -7.6376893E-02  -3.3825000E 04  -7.4425689E-02  -3.359E 04    *TAB103 \r\n*TAB103   -7.2505489E-02  -3.3355000E 04  -7.0616119E-02  -3.312E 04    *TAB104 \r\n*TAB104   -6.8757406E-02  -3.2885000E 04  -6.6929175E-02  -3.265E 04    *TAB105 \r\n*TAB105   -6.5131251E-02  -3.2415000E 04  -6.3363456E-02  -3.218E 04    *TAB106 \r\n*TAB106   -6.1625615E-02  -3.1945000E 04  -5.9917548E-02  -3.171E 04    *TAB107 \r\n*TAB107   -5.8239075E-02  -3.1475000E 04  -5.65918E-02    -3.124E 04    *TAB108 \r\n*TAB108   -5.497193E-02   -3.1005000E 04  -5.3379419E-02  -3.077E 04    *TAB109 \r\n*TAB109   -5.1817513E-02  -3.0535000E 04  -5.0284289E-02  -3.030E 04    *TAB110 \r\n*TAB110   -4.8779562E-02  -3.0065000E 04  -4.7303146E-02  -2.983E 04    *TAB111 \r\n*TAB111   -4.5854852E-02  -2.9595000E 04  -4.4434491E-02  -2.936E 04    *TAB112 \r\n*TAB112   -4.3041873E-02  -2.9125000E 04  -4.1676807E-02  -2.889E 04    *TAB113 \r\n*TAB113   -4.0339100E-02  -2.8655000E 04  -3.9028558E-02  -2.842E 04    *TAB114 \r\n*TAB114   -3.7744987E-02  -2.8185000E 04  -3.6488188E-02  -2.795E 04    *TAB115 \r\n*TAB115   -3.5257966E-02  -2.7715000E 04  -3.4054121E-02  -2.748E 04    *TAB116 \r\n*TAB116   -3.2876451E-02  -2.7245000E 04  -3.1724757E-02  -2.701E 04    *TAB117 \r\n*TAB117   -3.0598832E-02  -2.6775000E 04  -2.9498474E-02  -2.654E 04    *TAB118 \r\n*TAB118   -2.8423475E-02  -2.6305000E 04  -2.7373628E-02  -2.607E 04    *TAB119 \r\n*TAB119   -2.6348724E-02  -2.5835000E 04  -2.5348551E-02  -2.560E 04    *TAB120 \r\n*TAB120   -2.4372896E-02  -2.5365000E 04  -2.3421545E-02  -2.513E 04    *TAB121 \r\n*TAB121   -2.2494282E-02  -2.4895000E 04  -2.159888E-02   -2.466E 04    *TAB122 \r\n*TAB122   -2.0711145E-02  -2.4425000E 04  -1.9854830E-02  -2.419E 04    *TAB123 \r\n*TAB123   -1.9021719E-02  -2.3955000E 04  -1.8211588E-02  -2.372E 04    *TAB124 \r\n*TAB124   -1.7424207E-02  -2.3485000E 04  -1.6659349E-02  -2.325E 04    *TAB125 \r\n*TAB125   -1.5916779E-02  -2.3015000E 04  -1.5196266E-02  -2.278E 04    *TAB126 \r\n*TAB126   -1.4497571E-02  -2.2545000E 04  -1.382457E-02   -2.231E 04    *TAB127 \r\n*TAB127   -1.3164682E-02  -2.2075000E 04  -1.2532E-02     -2.184E 04    *TAB128 \r\n*TAB128   -1.1916171E-02  -2.1605000E 04  -1.1322939E-02  -2.137E 04    *TAB129 \r\n*TAB129   -1.07556E-02    -2.1135000E 04  -1.0197266E-02  -2.090E 04    *TAB130 \r\n*TAB130   -9.6643119E-03  -2.0665000E 04  -9.1509324E-03  -2.043E 04    *TAB131 \r\n*TAB131   -8.6568637E-03  -2.0195000E 04  -8.1818386E-03  -1.996E 04    *TAB132 \r\n*TAB132   -7.7255861E-03  -1.9725000E 04  -7.2878319E-03  -1.949E 04    *TAB133 \r\n*TAB133   -6.8682978E-03  -1.9255000E 04  -6.4667017E-03  -1.902E 04    *TAB134 \r\n*TAB134   -6.0827573E-03  -1.8785000E 04  -5.7161741E-03  -1.855E 04    *TAB135 \r\n*TAB135   -5.3666571E-03  -1.8315000E 04  -5.0339064E-03  -1.808E 04    *TAB136 \r\n*TAB136   -4.7176173E-03  -1.7845000E 04  -4.4174798E-03  -1.761E 04    *TAB137 \r\n*TAB137   -4.1331784E-03  -1.7375000E 04  -3.8643916E-03  -1.714E 04    *TAB138 \r\n*TAB138   -3.6107919E-03  -1.6905000E 04  -3.372451E-03   -1.667E 04    *TAB139 \r\n*TAB139   -3.1478101E-03  -1.6435000E 04  -2.9377381E-03  -1.620E 04    *TAB140 \r\n*TAB140   -2.7414724E-03  -1.5965000E 04  -2.5586479E-03  -1.573E 04    *TAB141 \r\n*TAB141   -2.3888897E-03  -1.5495000E 04  -2.2318132E-03  -1.526E 04    *TAB142 \r\n*TAB142   -2.087227E-03   -1.5025000E 04  -1.9541106E-03  -1.479E 04    *TAB143 \r\n*TAB143   -1.8326559E-03  -1.4555000E 04  -1.7222231E-03  -1.432E 04    *TAB144 \r\n*TAB144   -1.6223604E-03  -1.4085000E 04  -1.5325975E-03  -1.385E 04    *TAB145 \r\n*TAB145   -1.4524432E-03  -1.3615000E 04  -1.3813823E-03  -1.338E 04    *TAB146 \r\n*TAB146   -1.3188712E-03  -1.3145000E 04  -1.2643326E-03  -1.291E 04    *TAB147 \r\n*TAB147   -1.2171483E-03  -1.2675000E 04  -1.1766480E-03  -1.244E 04    *TAB148 \r\n*TAB148   -1.142932E-03   -1.2205000E 04  -1.1126483E-03  -1.197E 04    *TAB149 \r\n*TAB149   -1.0873249E-03  -1.1735000E 04  -1.0648148E-03  -1.150E 04    *TAB150 \r\n*TAB150    0.              0.              1.0648148E-03   1.150E 04    *TAB151 \r\n*TAB151    1.0873249E-03   1.1735000E 04   1.1126483E-03   1.197E 04    *TAB152 \r\n*TAB152    1.142932E-03    1.2205000E 04   1.1766480E-03   1.244E 04    *TAB153 \r\n*TAB153    1.2171483E-03   1.2675000E 04   1.2643326E-03   1.291E 04    *TAB154 \r\n*TAB154    1.3188712E-03   1.3145000E 04   1.3813823E-03   1.338E 04    *TAB155 \r\n*TAB155    1.4524432E-03   1.3615000E 04   1.5325975E-03   1.385E 04    *TAB156 \r\n*TAB156    1.6223604E-03   1.4085000E 04   1.7222231E-03   1.432E 04    *TAB157 \r\n*TAB157    1.8326559E-03   1.4555000E 04   1.9541106E-03   1.479E 04    *TAB158 \r\n*TAB158    2.087227E-03    1.5025000E 04   2.2318132E-03   1.526E 04    *TAB159 \r\n*TAB159    2.3888897E-03   1.5495000E 04   2.5586479E-03   1.573E 04    *TAB160 \r\n*TAB160    2.7414724E-03   1.5965000E 04   2.9377381E-03   1.620E 04    *TAB161 \r\n*TAB161    3.1478101E-03   1.6435000E 04   3.372451E-03    1.667E 04    *TAB162 \r\n*TAB162    3.6107919E-03   1.6905000E 04   3.8643916E-03   1.714E 04    *TAB163 \r\n*TAB163    4.1331784E-03   1.7375000E 04   4.4174798E-03   1.761E 04    *TAB164 \r\n*TAB164    4.7176173E-03   1.7845000E 04   5.0339064E-03   1.808E 04    *TAB165 \r\n*TAB165    5.3666571E-03   1.8315000E 04   5.7161741E-03   1.855E 04    *TAB166 \r\n*TAB166    6.0827573E-03   1.8785000E 04   6.4667017E-03   1.902E 04    *TAB167 \r\n*TAB167    6.8682978E-03   1.9255000E 04   7.2878319E-03   1.949E 04    *TAB168 \r\n*TAB168    7.7255861E-03   1.9725000E 04   8.1818386E-03   1.996E 04    *TAB169 \r\n*TAB169    8.6568637E-03   2.0195000E 04   9.1509324E-03   2.043E 04    *TAB170 \r\n*TAB170    9.6643119E-03   2.0665000E 04   1.0197266E-02   2.090E 04    *TAB171 \r\n*TAB171    1.07556E-02     2.1135000E 04   1.1322939E-02   2.137E 04    *TAB172 \r\n*TAB172    1.1916171E-02   2.1605000E 04   1.2532E-02      2.184E 04    *TAB173 \r\n*TAB173    1.3164682E-02   2.2075000E 04   1.382457E-02    2.231E 04    *TAB174 \r\n*TAB174    1.4497571E-02   2.2545000E 04   1.5196266E-02   2.278E 04    *TAB175 \r\n*TAB175    1.5916779E-02   2.3015000E 04   1.6659349E-02   2.325E 04    *TAB176 \r\n*TAB176    1.7424207E-02   2.3485000E 04   1.8211588E-02   2.372E 04    *TAB177 \r\n*TAB177    1.9021719E-02   2.3955000E 04   1.9854830E-02   2.419E 04    *TAB178 \r\n*TAB178    2.0711145E-02   2.4425000E 04   2.159888E-02    2.466E 04    *TAB179 \r\n*TAB179    2.2494282E-02   2.4895000E 04   2.3421545E-02   2.513E 04    *TAB180 \r\n*TAB180    2.4372896E-02   2.5365000E 04   2.5348551E-02   2.560E 04    *TAB181 \r\n*TAB181    2.6348724E-02   2.5835000E 04   2.7373628E-02   2.607E 04    *TAB182 \r\n*TAB182    2.8423475E-02   2.6305000E 04   2.9498474E-02   2.654E 04    *TAB183 \r\n*TAB183    3.0598832E-02   2.6775000E 04   3.1724757E-02   2.701E 04    *TAB184 \r\n*TAB184    3.2876451E-02   2.7245000E 04   3.4054121E-02   2.748E 04    *TAB185 \r\n*TAB185    3.5257966E-02   2.7715000E 04   3.6488188E-02   2.795E 04    *TAB186 \r\n*TAB186    3.7744987E-02   2.8185000E 04   3.9028558E-02   2.842E 04    *TAB187 \r\n*TAB187    4.0339100E-02   2.8655000E 04   4.1676807E-02   2.889E 04    *TAB188 \r\n*TAB188    4.3041873E-02   2.9125000E 04   4.4434491E-02   2.936E 04    *TAB189 \r\n*TAB189    4.5854852E-02   2.9595000E 04   4.7303146E-02   2.983E 04    *TAB190 \r\n*TAB190    4.8779562E-02   3.0065000E 04   5.0284289E-02   3.030E 04    *TAB191 \r\n*TAB191    5.1817513E-02   3.0535000E 04   5.3379419E-02   3.077E 04    *TAB192 \r\n*TAB192    5.497193E-02    3.1005000E 04   5.65918E-02     3.124E 04    *TAB193 \r\n*TAB193    5.8239075E-02   3.1475000E 04   5.9917548E-02   3.171E 04    *TAB194 \r\n*TAB194    6.1625615E-02   3.1945000E 04   6.3363456E-02   3.218E 04    *TAB195 \r\n*TAB195    6.5131251E-02   3.2415000E 04   6.6929175E-02   3.265E 04    *TAB196 \r\n*TAB196    6.8757406E-02   3.2885000E 04   7.0616119E-02   3.312E 04    *TAB197 \r\n*TAB197    7.2505489E-02   3.3355000E 04   7.4425689E-02   3.359E 04    *TAB198 \r\n*TAB198    7.6376893E-02   3.3825000E 04   7.8359272E-02   3.406E 04    *TAB199 \r\n*TAB199    8.0372998E-02   3.4295000E 04   8.2418240E-02   3.453E 04    *TAB200 \r\n*TAB200    8.4495168E-02   3.4765000E 04   ENDT                                 \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d06011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$                  RIGID FORMAT No. 6, Piecewise Linear Analysis\r\n$              Piecewise Linear Analysis of a Cracked Plate (6-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates elastic-plastic deformation of a thin plate\r\n$ uniaxially loaded across a crack at the center of the plate. The same problem\r\n$ was solved by J. L. Swedlow (Reference 10).\r\n$ \r\n$ Piecewise Linear Analysis involves loading the plate in increments and\r\n$ recalculating the material properties for each element as a function of the\r\n$ element stresses for the last load increment.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    L  =   9.0 inch (Total length of plate)\r\n$ \r\n$    W  =   6.0 inch (Total width of plate)\r\n$ \r\n$    w  =   2.0 inch (Total width of crack)\r\n$ \r\n$    t    = 1.0 inch (thickness)\r\n$ \r\n$                    6      2\r\n$    E    = 10.8 x 10  lb/in  (Modulus of elasticity at zero strain)\r\n$     o\r\n$ \r\n$    v    = .3333 (Poisson's Ratio at zero strain)\r\n$     o\r\n$            _____\r\n$ 2. Loads:  sigma is the applied load.\r\n$ \r\n$                  _____      2                      _____      2\r\n$    Load Factor   sigma lb/in       Load Factor     sigma lb/in\r\n$ \r\n$         1          2,300                14           7,000\r\n$         2          2,500                15           7,500\r\n$         3          2,800                I6           8,000\r\n$         4          3,100                17           8,500\r\n$         5          3,400                18           9,000\r\n$         6          3,700                19           9,500\r\n$         7          4,000                20          10,000\r\n$         8          4,400                21          10,500\r\n$         9          4,800                22          11,000\r\n$        10          5,200                23          11,500\r\n$        11          5,600                24          12,000\r\n$        12          6,000                25          12,500\r\n$        13          6,500                26          13,000\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    a) All grid points are constrained in u , theta , theta , and theta .\r\n$                                           z       x       y           z\r\n$ \r\n$    b) Grid points along the Y-axis are constrained in the u  direction.\r\n$                                                            x\r\n$ \r\n$    c) Grid points along the X-axis from the crack tip (x = 1.0) to the edge\r\n$       (x = 3.0) are constrained in the u  direction.\r\n$                                         y\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The finite element model utilizes two planes of symmetry, so only one quarter\r\n$ of the structure (the first quadrant) is modeled. All membrane elements use\r\n$ stress-dependent materials, duplicating the model in Reference 10.\r\n$ \r\n$ The octahedral stress used in the determination of the material properties was\r\n$ defined in Reference 10 as:\r\n$ \r\n$           sqrt(2)            2                        2          2\r\n$    tau  = ------- sqrt( sigma  - sigma  sigma  + sigma  + 3 sigma   )      (1)\r\n$       o      3               x        x      y        y          xy\r\n$ \r\n$ The octahedral strain was defined by:\r\n$ \r\n$                +\r\n$                | tau (1+v )/E                 tau <= tau\r\n$                |    o    o   o                   o      limit\r\n$    epsilon   = |                                                           (2)\r\n$           o    | tau (1+v )/E + epsilon       tau > tau\r\n$                |    o    o   o         p         o     limit\r\n$                +\r\n$ \r\n$ where\r\n$ \r\n$                          -3               -1 1/0.3964\r\n$    epsilon   = 9.716 x 10   (tau /tau       )\r\n$           p                     o    limit\r\n$ \r\n$    tau       = (sqrt(2/3)) sigma\r\n$       limit                     limit\r\n$ \r\n$                            2\r\n$    sigma     = 11,500 lb/in\r\n$         limit\r\n$ \r\n$ NASTRAN uses an equivalent uniaxia1 stress-strain curve defined by\r\n$ \r\n$    sigma  =  3/sqrt(2) tau                                                 (3)\r\n$                           o\r\n$ \r\n$ and\r\n$ \r\n$    epsilon   =  sigma/E + sqrt(2) epsilon p                                (4)\r\n$ \r\n$ A complete discussion of the equations may be found in Reference 10.\r\n$ \r\n$ D. Results\r\n$ \r\n$ In the NASTRAN analysis, the octahedral stress is calculated for each load\r\n$ factor as a function of the current values of the stresses. In Reference 10\r\n$ the current value of the octahedral stress is obtained by accumulating\r\n$ incremental values of the octahedral stress. This procedure results in a\r\n$ generally more flexible model. The resulting differences in calculated\r\n$ stresses are particularly noticeable at the higher load levels.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 10. J. L. Swedlow, \"The Thickness Effect and Plastic Flow in Cracked Plates\",\r\n$     Office of Aerospace Research, USAF, APL 65-216.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d07011a.inp",
    "content": "ID    D07011A,NASTRAN                                                           \r\nTIME  15                                                                        \r\nAPP   DISP                                                                      \r\nSOL   7,1                                                                       \r\nCEND                                                                            \r\nTITLE    = COMPLEX EIGENVALUES OF A 500 CELL STRING                             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-1A                          \r\n CMETHOD = 1   $  FEER                                                          \r\nOUTPUT                                                                          \r\n   SET 1 = 1,51,101,151,201,251,301,351,401,451,501                             \r\n    DISP = 1                                                                    \r\nBEGIN BULK                                                                      \r\nCDAMP3  60002   401     2       0                                               \r\nCDAMP3  60003   401     3       0       60004   401     4       0               \r\nCDAMP3  60005   401     5       0       60006   401     6       0               \r\nCDAMP3  60007   401     7       0       60008   401     8       0               \r\nCDAMP3  60009   401     9       0       60010   401     10      0               \r\nCDAMP3  60011   401     11      0       60012   401     12      0               \r\nCDAMP3  60013   401     13      0       60014   401     14      0               \r\nCDAMP3  60015   401     15      0       60016   401     16      0               \r\nCDAMP3  60017   401     17      0       60018   401     18      0               \r\nCDAMP3  60019   401     19      0       60020   401     20      0               \r\nCDAMP3  60021   401     21      0       60022   401     22      0               \r\nCDAMP3  60023   401     23      0       60024   401     24      0               \r\nCDAMP3  60025   401     25      0       60026   401     26      0               \r\nCDAMP3  60027   401     27      0       60028   401     28      0               \r\nCDAMP3  60029   401     29      0       60030   401     30      0               \r\nCDAMP3  60031   401     31      0       60032   401     32      0               \r\nCDAMP3  60033   401     33      0       60034   401     34      0               \r\nCDAMP3  60035   401     35      0       60036   401     36      0               \r\nCDAMP3  60037   401     37      0       60038   401     38      0               \r\nCDAMP3  60039   401     39      0       60040   401     40      0               \r\nCDAMP3  60041   401     41      0       60042   401     42      0               \r\nCDAMP3  60043   401     43      0       60044   401     44      0               \r\nCDAMP3  60045   401     45      0       60046   401     46      0               \r\nCDAMP3  60047   401     47      0       60048   401     48      0               \r\nCDAMP3  60049   401     49      0       60050   401     50      0               \r\nCDAMP3  60051   401     51      0       60052   401     52      0               \r\nCDAMP3  60053   401     53      0       60054   401     54      0               \r\nCDAMP3  60055   401     55      0       60056   401     56      0               \r\nCDAMP3  60057   401     57      0       60058   401     58      0               \r\nCDAMP3  60059   401     59      0       60060   401     60      0               \r\nCDAMP3  60061   401     61      0       60062   401     62      0               \r\nCDAMP3  60063   401     63      0       60064   401     64      0               \r\nCDAMP3  60065   401     65      0       60066   401     66      0               \r\nCDAMP3  60067   401     67      0       60068   401     68      0               \r\nCDAMP3  60069   401     69      0       60070   401     70      0               \r\nCDAMP3  60071   401     71      0       60072   401     72      0               \r\nCDAMP3  60073   401     73      0       60074   401     74      0               \r\nCDAMP3  60075   401     75      0       60076   401     76      0               \r\nCDAMP3  60077   401     77      0       60078   401     78      0               \r\nCDAMP3  60079   401     79      0       60080   401     80      0               \r\nCDAMP3  60081   401     81      0       60082   401     82      0               \r\nCDAMP3  60083   401     83      0       60084   401     84      0               \r\nCDAMP3  60085   401     85      0       60086   401     86      0               \r\nCDAMP3  60087   401     87      0       60088   401     88      0               \r\nCDAMP3  60089   401     89      0       60090   401     90      0               \r\nCDAMP3  60091   401     91      0       60092   401     92      0               \r\nCDAMP3  60093   401     93      0       60094   401     94      0               \r\nCDAMP3  60095   401     95      0       60096   401     96      0               \r\nCDAMP3  60097   401     97      0       60098   401     98      0               \r\nCDAMP3  60099   401     99      0       60100   401     100     0               \r\nCDAMP3  60101   401     101     0       60102   401     102     0               \r\nCDAMP3  60103   401     103     0       60104   401     104     0               \r\nCDAMP3  60105   401     105     0       60106   401     106     0               \r\nCDAMP3  60107   401     107     0       60108   401     108     0               \r\nCDAMP3  60109   401     109     0       60110   401     110     0               \r\nCDAMP3  60111   401     111     0       60112   401     112     0               \r\nCDAMP3  60113   401     113     0       60114   401     114     0               \r\nCDAMP3  60115   401     115     0       60116   401     116     0               \r\nCDAMP3  60117   401     117     0       60118   401     118     0               \r\nCDAMP3  60119   401     119     0       60120   401     120     0               \r\nCDAMP3  60121   401     121     0       60122   401     122     0               \r\nCDAMP3  60123   401     123     0       60124   401     124     0               \r\nCDAMP3  60125   401     125     0       60126   401     126     0               \r\nCDAMP3  60127   401     127     0       60128   401     128     0               \r\nCDAMP3  60129   401     129     0       60130   401     130     0               \r\nCDAMP3  60131   401     131     0       60132   401     132     0               \r\nCDAMP3  60133   401     133     0       60134   401     134     0               \r\nCDAMP3  60135   401     135     0       60136   401     136     0               \r\nCDAMP3  60137   401     137     0       60138   401     138     0               \r\nCDAMP3  60139   401     139     0       60140   401     140     0               \r\nCDAMP3  60141   401     141     0       60142   401     142     0               \r\nCDAMP3  60143   401     143     0       60144   401     144     0               \r\nCDAMP3  60145   401     145     0       60146   401     146     0               \r\nCDAMP3  60147   401     147     0       60148   401     148     0               \r\nCDAMP3  60149   401     149     0       60150   401     150     0               \r\nCDAMP3  60151   401     151     0       60152   401     152     0               \r\nCDAMP3  60153   401     153     0       60154   401     154     0               \r\nCDAMP3  60155   401     155     0       60156   401     156     0               \r\nCDAMP3  60157   401     157     0       60158   401     158     0               \r\nCDAMP3  60159   401     159     0       60160   401     160     0               \r\nCDAMP3  60161   401     161     0       60162   401     162     0               \r\nCDAMP3  60163   401     163     0       60164   401     164     0               \r\nCDAMP3  60165   401     165     0       60166   401     166     0               \r\nCDAMP3  60167   401     167     0       60168   401     168     0               \r\nCDAMP3  60169   401     169     0       60170   401     170     0               \r\nCDAMP3  60171   401     171     0       60172   401     172     0               \r\nCDAMP3  60173   401     173     0       60174   401     174     0               \r\nCDAMP3  60175   401     175     0       60176   401     176     0               \r\nCDAMP3  60177   401     177     0       60178   401     178     0               \r\nCDAMP3  60179   401     179     0       60180   401     180     0               \r\nCDAMP3  60181   401     181     0       60182   401     182     0               \r\nCDAMP3  60183   401     183     0       60184   401     184     0               \r\nCDAMP3  60185   401     185     0       60186   401     186     0               \r\nCDAMP3  60187   401     187     0       60188   401     188     0               \r\nCDAMP3  60189   401     189     0       60190   401     190     0               \r\nCDAMP3  60191   401     191     0       60192   401     192     0               \r\nCDAMP3  60193   401     193     0       60194   401     194     0               \r\nCDAMP3  60195   401     195     0       60196   401     196     0               \r\nCDAMP3  60197   401     197     0       60198   401     198     0               \r\nCDAMP3  60199   401     199     0       60200   401     200     0               \r\nCDAMP3  60201   401     201     0       60202   401     202     0               \r\nCDAMP3  60203   401     203     0       60204   401     204     0               \r\nCDAMP3  60205   401     205     0       60206   401     206     0               \r\nCDAMP3  60207   401     207     0       60208   401     208     0               \r\nCDAMP3  60209   401     209     0       60210   401     210     0               \r\nCDAMP3  60211   401     211     0       60212   401     212     0               \r\nCDAMP3  60213   401     213     0       60214   401     214     0               \r\nCDAMP3  60215   401     215     0       60216   401     216     0               \r\nCDAMP3  60217   401     217     0       60218   401     218     0               \r\nCDAMP3  60219   401     219     0       60220   401     220     0               \r\nCDAMP3  60221   401     221     0       60222   401     222     0               \r\nCDAMP3  60223   401     223     0       60224   401     224     0               \r\nCDAMP3  60225   401     225     0       60226   401     226     0               \r\nCDAMP3  60227   401     227     0       60228   401     228     0               \r\nCDAMP3  60229   401     229     0       60230   401     230     0               \r\nCDAMP3  60231   401     231     0       60232   401     232     0               \r\nCDAMP3  60233   401     233     0       60234   401     234     0               \r\nCDAMP3  60235   401     235     0       60236   401     236     0               \r\nCDAMP3  60237   401     237     0       60238   401     238     0               \r\nCDAMP3  60239   401     239     0       60240   401     240     0               \r\nCDAMP3  60241   401     241     0       60242   401     242     0               \r\nCDAMP3  60243   401     243     0       60244   401     244     0               \r\nCDAMP3  60245   401     245     0       60246   401     246     0               \r\nCDAMP3  60247   401     247     0       60248   401     248     0               \r\nCDAMP3  60249   401     249     0       60250   401     250     0               \r\nCDAMP3  60251   401     251     0       60252   401     252     0               \r\nCDAMP3  60253   401     253     0       60254   401     254     0               \r\nCDAMP3  60255   401     255     0       60256   401     256     0               \r\nCDAMP3  60257   401     257     0       60258   401     258     0               \r\nCDAMP3  60259   401     259     0       60260   401     260     0               \r\nCDAMP3  60261   401     261     0       60262   401     262     0               \r\nCDAMP3  60263   401     263     0       60264   401     264     0               \r\nCDAMP3  60265   401     265     0       60266   401     266     0               \r\nCDAMP3  60267   401     267     0       60268   401     268     0               \r\nCDAMP3  60269   401     269     0       60270   401     270     0               \r\nCDAMP3  60271   401     271     0       60272   401     272     0               \r\nCDAMP3  60273   401     273     0       60274   401     274     0               \r\nCDAMP3  60275   401     275     0       60276   401     276     0               \r\nCDAMP3  60277   401     277     0       60278   401     278     0               \r\nCDAMP3  60279   401     279     0       60280   401     280     0               \r\nCDAMP3  60281   401     281     0       60282   401     282     0               \r\nCDAMP3  60283   401     283     0       60284   401     284     0               \r\nCDAMP3  60285   401     285     0       60286   401     286     0               \r\nCDAMP3  60287   401     287     0       60288   401     288     0               \r\nCDAMP3  60289   401     289     0       60290   401     290     0               \r\nCDAMP3  60291   401     291     0       60292   401     292     0               \r\nCDAMP3  60293   401     293     0       60294   401     294     0               \r\nCDAMP3  60295   401     295     0       60296   401     296     0               \r\nCDAMP3  60297   401     297     0       60298   401     298     0               \r\nCDAMP3  60299   401     299     0       60300   401     300     0               \r\nCDAMP3  60301   401     301     0       60302   401     302     0               \r\nCDAMP3  60303   401     303     0       60304   401     304     0               \r\nCDAMP3  60305   401     305     0       60306   401     306     0               \r\nCDAMP3  60307   401     307     0       60308   401     308     0               \r\nCDAMP3  60309   401     309     0       60310   401     310     0               \r\nCDAMP3  60311   401     311     0       60312   401     312     0               \r\nCDAMP3  60313   401     313     0       60314   401     314     0               \r\nCDAMP3  60315   401     315     0       60316   401     316     0               \r\nCDAMP3  60317   401     317     0       60318   401     318     0               \r\nCDAMP3  60319   401     319     0       60320   401     320     0               \r\nCDAMP3  60321   401     321     0       60322   401     322     0               \r\nCDAMP3  60323   401     323     0       60324   401     324     0               \r\nCDAMP3  60325   401     325     0       60326   401     326     0               \r\nCDAMP3  60327   401     327     0       60328   401     328     0               \r\nCDAMP3  60329   401     329     0       60330   401     330     0               \r\nCDAMP3  60331   401     331     0       60332   401     332     0               \r\nCDAMP3  60333   401     333     0       60334   401     334     0               \r\nCDAMP3  60335   401     335     0       60336   401     336     0               \r\nCDAMP3  60337   401     337     0       60338   401     338     0               \r\nCDAMP3  60339   401     339     0       60340   401     340     0               \r\nCDAMP3  60341   401     341     0       60342   401     342     0               \r\nCDAMP3  60343   401     343     0       60344   401     344     0               \r\nCDAMP3  60345   401     345     0       60346   401     346     0               \r\nCDAMP3  60347   401     347     0       60348   401     348     0               \r\nCDAMP3  60349   401     349     0       60350   401     350     0               \r\nCDAMP3  60351   401     351     0       60352   401     352     0               \r\nCDAMP3  60353   401     353     0       60354   401     354     0               \r\nCDAMP3  60355   401     355     0       60356   401     356     0               \r\nCDAMP3  60357   401     357     0       60358   401     358     0               \r\nCDAMP3  60359   401     359     0       60360   401     360     0               \r\nCDAMP3  60361   401     361     0       60362   401     362     0               \r\nCDAMP3  60363   401     363     0       60364   401     364     0               \r\nCDAMP3  60365   401     365     0       60366   401     366     0               \r\nCDAMP3  60367   401     367     0       60368   401     368     0               \r\nCDAMP3  60369   401     369     0       60370   401     370     0               \r\nCDAMP3  60371   401     371     0       60372   401     372     0               \r\nCDAMP3  60373   401     373     0       60374   401     374     0               \r\nCDAMP3  60375   401     375     0       60376   401     376     0               \r\nCDAMP3  60377   401     377     0       60378   401     378     0               \r\nCDAMP3  60379   401     379     0       60380   401     380     0               \r\nCDAMP3  60381   401     381     0       60382   401     382     0               \r\nCDAMP3  60383   401     383     0       60384   401     384     0               \r\nCDAMP3  60385   401     385     0       60386   401     386     0               \r\nCDAMP3  60387   401     387     0       60388   401     388     0               \r\nCDAMP3  60389   401     389     0       60390   401     390     0               \r\nCDAMP3  60391   401     391     0       60392   401     392     0               \r\nCDAMP3  60393   401     393     0       60394   401     394     0               \r\nCDAMP3  60395   401     395     0       60396   401     396     0               \r\nCDAMP3  60397   401     397     0       60398   401     398     0               \r\nCDAMP3  60399   401     399     0       60400   401     400     0               \r\nCDAMP3  60401   401     401     0       60402   401     402     0               \r\nCDAMP3  60403   401     403     0       60404   401     404     0               \r\nCDAMP3  60405   401     405     0       60406   401     406     0               \r\nCDAMP3  60407   401     407     0       60408   401     408     0               \r\nCDAMP3  60409   401     409     0       60410   401     410     0               \r\nCDAMP3  60411   401     411     0       60412   401     412     0               \r\nCDAMP3  60413   401     413     0       60414   401     414     0               \r\nCDAMP3  60415   401     415     0       60416   401     416     0               \r\nCDAMP3  60417   401     417     0       60418   401     418     0               \r\nCDAMP3  60419   401     419     0       60420   401     420     0               \r\nCDAMP3  60421   401     421     0       60422   401     422     0               \r\nCDAMP3  60423   401     423     0       60424   401     424     0               \r\nCDAMP3  60425   401     425     0       60426   401     426     0               \r\nCDAMP3  60427   401     427     0       60428   401     428     0               \r\nCDAMP3  60429   401     429     0       60430   401     430     0               \r\nCDAMP3  60431   401     431     0       60432   401     432     0               \r\nCDAMP3  60433   401     433     0       60434   401     434     0               \r\nCDAMP3  60435   401     435     0       60436   401     436     0               \r\nCDAMP3  60437   401     437     0       60438   401     438     0               \r\nCDAMP3  60439   401     439     0       60440   401     440     0               \r\nCDAMP3  60441   401     441     0       60442   401     442     0               \r\nCDAMP3  60443   401     443     0       60444   401     444     0               \r\nCDAMP3  60445   401     445     0       60446   401     446     0               \r\nCDAMP3  60447   401     447     0       60448   401     448     0               \r\nCDAMP3  60449   401     449     0       60450   401     450     0               \r\nCDAMP3  60451   401     451     0       60452   401     452     0               \r\nCDAMP3  60453   401     453     0       60454   401     454     0               \r\nCDAMP3  60455   401     455     0       60456   401     456     0               \r\nCDAMP3  60457   401     457     0       60458   401     458     0               \r\nCDAMP3  60459   401     459     0       60460   401     460     0               \r\nCDAMP3  60461   401     461     0       60462   401     462     0               \r\nCDAMP3  60463   401     463     0       60464   401     464     0               \r\nCDAMP3  60465   401     465     0       60466   401     466     0               \r\nCDAMP3  60467   401     467     0       60468   401     468     0               \r\nCDAMP3  60469   401     469     0       60470   401     470     0               \r\nCDAMP3  60471   401     471     0       60472   401     472     0               \r\nCDAMP3  60473   401     473     0       60474   401     474     0               \r\nCDAMP3  60475   401     475     0       60476   401     476     0               \r\nCDAMP3  60477   401     477     0       60478   401     478     0               \r\nCDAMP3  60479   401     479     0       60480   401     480     0               \r\nCDAMP3  60481   401     481     0       60482   401     482     0               \r\nCDAMP3  60483   401     483     0       60484   401     484     0               \r\nCDAMP3  60485   401     485     0       60486   401     486     0               \r\nCDAMP3  60487   401     487     0       60488   401     488     0               \r\nCDAMP3  60489   401     489     0       60490   401     490     0               \r\nCDAMP3  60491   401     491     0       60492   401     492     0               \r\nCDAMP3  60493   401     493     0       60494   401     494     0               \r\nCDAMP3  60495   401     495     0       60496   401     496     0               \r\nCDAMP3  60497   401     497     0       60498   401     498     0               \r\nCDAMP3  60499   401     499     0       60500   401     500     0               \r\nCELAS3  1       101     0       2       2       101     2       3               \r\nCELAS3  3       101     3       4       4       101     4       5               \r\nCELAS3  5       101     5       6       6       101     6       7               \r\nCELAS3  7       101     7       8       8       101     8       9               \r\nCELAS3  9       101     9       10      10      101     10      11              \r\nCELAS3  11      101     11      12      12      101     12      13              \r\nCELAS3  13      101     13      14      14      101     14      15              \r\nCELAS3  15      101     15      16      16      101     16      17              \r\nCELAS3  17      101     17      18      18      101     18      19              \r\nCELAS3  19      101     19      20      20      101     20      21              \r\nCELAS3  21      101     21      22      22      101     22      23              \r\nCELAS3  23      101     23      24      24      101     24      25              \r\nCELAS3  25      101     25      26      26      101     26      27              \r\nCELAS3  27      101     27      28      28      101     28      29              \r\nCELAS3  29      101     29      30      30      101     30      31              \r\nCELAS3  31      101     31      32      32      101     32      33              \r\nCELAS3  33      101     33      34      34      101     34      35              \r\nCELAS3  35      101     35      36      36      101     36      37              \r\nCELAS3  37      101     37      38      38      101     38      39              \r\nCELAS3  39      101     39      40      40      101     40      41              \r\nCELAS3  41      101     41      42      42      101     42      43              \r\nCELAS3  43      101     43      44      44      101     44      45              \r\nCELAS3  45      101     45      46      46      101     46      47              \r\nCELAS3  47      101     47      48      48      101     48      49              \r\nCELAS3  49      101     49      50      50      101     50      51              \r\nCELAS3  51      101     51      52      52      101     52      53              \r\nCELAS3  53      101     53      54      54      101     54      55              \r\nCELAS3  55      101     55      56      56      101     56      57              \r\nCELAS3  57      101     57      58      58      101     58      59              \r\nCELAS3  59      101     59      60      60      101     60      61              \r\nCELAS3  61      101     61      62      62      101     62      63              \r\nCELAS3  63      101     63      64      64      101     64      65              \r\nCELAS3  65      101     65      66      66      101     66      67              \r\nCELAS3  67      101     67      68      68      101     68      69              \r\nCELAS3  69      101     69      70      70      101     70      71              \r\nCELAS3  71      101     71      72      72      101     72      73              \r\nCELAS3  73      101     73      74      74      101     74      75              \r\nCELAS3  75      101     75      76      76      101     76      77              \r\nCELAS3  77      101     77      78      78      101     78      79              \r\nCELAS3  79      101     79      80      80      101     80      81              \r\nCELAS3  81      101     81      82      82      101     82      83              \r\nCELAS3  83      101     83      84      84      101     84      85              \r\nCELAS3  85      101     85      86      86      101     86      87              \r\nCELAS3  87      101     87      88      88      101     88      89              \r\nCELAS3  89      101     89      90      90      101     90      91              \r\nCELAS3  91      101     91      92      92      101     92      93              \r\nCELAS3  93      101     93      94      94      101     94      95              \r\nCELAS3  95      101     95      96      96      101     96      97              \r\nCELAS3  97      101     97      98      98      101     98      99              \r\nCELAS3  99      101     99      100     100     101     100     101             \r\nCELAS3  101     101     101     102     102     101     102     103             \r\nCELAS3  103     101     103     104     104     101     104     105             \r\nCELAS3  105     101     105     106     106     101     106     107             \r\nCELAS3  107     101     107     108     108     101     108     109             \r\nCELAS3  109     101     109     110     110     101     110     111             \r\nCELAS3  111     101     111     112     112     101     112     113             \r\nCELAS3  113     101     113     114     114     101     114     115             \r\nCELAS3  115     101     115     116     116     101     116     117             \r\nCELAS3  117     101     117     118     118     101     118     119             \r\nCELAS3  119     101     119     120     120     101     120     121             \r\nCELAS3  121     101     121     122     122     101     122     123             \r\nCELAS3  123     101     123     124     124     101     124     125             \r\nCELAS3  125     101     125     126     126     101     126     127             \r\nCELAS3  127     101     127     128     128     101     128     129             \r\nCELAS3  129     101     129     130     130     101     130     131             \r\nCELAS3  131     101     131     132     132     101     132     133             \r\nCELAS3  133     101     133     134     134     101     134     135             \r\nCELAS3  135     101     135     136     136     101     136     137             \r\nCELAS3  137     101     137     138     138     101     138     139             \r\nCELAS3  139     101     139     140     140     101     140     141             \r\nCELAS3  141     101     141     142     142     101     142     143             \r\nCELAS3  143     101     143     144     144     101     144     145             \r\nCELAS3  145     101     145     146     146     101     146     147             \r\nCELAS3  147     101     147     148     148     101     148     149             \r\nCELAS3  149     101     149     150     150     101     150     151             \r\nCELAS3  151     101     151     152     152     101     152     153             \r\nCELAS3  153     101     153     154     154     101     154     155             \r\nCELAS3  155     101     155     156     156     101     156     157             \r\nCELAS3  157     101     157     158     158     101     158     159             \r\nCELAS3  159     101     159     160     160     101     160     161             \r\nCELAS3  161     101     161     162     162     101     162     163             \r\nCELAS3  163     101     163     164     164     101     164     165             \r\nCELAS3  165     101     165     166     166     101     166     167             \r\nCELAS3  167     101     167     168     168     101     168     169             \r\nCELAS3  169     101     169     170     170     101     170     171             \r\nCELAS3  171     101     171     172     172     101     172     173             \r\nCELAS3  173     101     173     174     174     101     174     175             \r\nCELAS3  175     101     175     176     176     101     176     177             \r\nCELAS3  177     101     177     178     178     101     178     179             \r\nCELAS3  179     101     179     180     180     101     180     181             \r\nCELAS3  181     101     181     182     182     101     182     183             \r\nCELAS3  183     101     183     184     184     101     184     185             \r\nCELAS3  185     101     185     186     186     101     186     187             \r\nCELAS3  187     101     187     188     188     101     188     189             \r\nCELAS3  189     101     189     190     190     101     190     191             \r\nCELAS3  191     101     191     192     192     101     192     193             \r\nCELAS3  193     101     193     194     194     101     194     195             \r\nCELAS3  195     101     195     196     196     101     196     197             \r\nCELAS3  197     101     197     198     198     101     198     199             \r\nCELAS3  199     101     199     200     200     101     200     201             \r\nCELAS3  201     101     201     202     202     101     202     203             \r\nCELAS3  203     101     203     204     204     101     204     205             \r\nCELAS3  205     101     205     206     206     101     206     207             \r\nCELAS3  207     101     207     208     208     101     208     209             \r\nCELAS3  209     101     209     210     210     101     210     211             \r\nCELAS3  211     101     211     212     212     101     212     213             \r\nCELAS3  213     101     213     214     214     101     214     215             \r\nCELAS3  215     101     215     216     216     101     216     217             \r\nCELAS3  217     101     217     218     218     101     218     219             \r\nCELAS3  219     101     219     220     220     101     220     221             \r\nCELAS3  221     101     221     222     222     101     222     223             \r\nCELAS3  223     101     223     224     224     101     224     225             \r\nCELAS3  225     101     225     226     226     101     226     227             \r\nCELAS3  227     101     227     228     228     101     228     229             \r\nCELAS3  229     101     229     230     230     101     230     231             \r\nCELAS3  231     101     231     232     232     101     232     233             \r\nCELAS3  233     101     233     234     234     101     234     235             \r\nCELAS3  235     101     235     236     236     101     236     237             \r\nCELAS3  237     101     237     238     238     101     238     239             \r\nCELAS3  239     101     239     240     240     101     240     241             \r\nCELAS3  241     101     241     242     242     101     242     243             \r\nCELAS3  243     101     243     244     244     101     244     245             \r\nCELAS3  245     101     245     246     246     101     246     247             \r\nCELAS3  247     101     247     248     248     101     248     249             \r\nCELAS3  249     101     249     250     250     101     250     251             \r\nCELAS3  251     101     251     252     252     101     252     253             \r\nCELAS3  253     101     253     254     254     101     254     255             \r\nCELAS3  255     101     255     256     256     101     256     257             \r\nCELAS3  257     101     257     258     258     101     258     259             \r\nCELAS3  259     101     259     260     260     101     260     261             \r\nCELAS3  261     101     261     262     262     101     262     263             \r\nCELAS3  263     101     263     264     264     101     264     265             \r\nCELAS3  265     101     265     266     266     101     266     267             \r\nCELAS3  267     101     267     268     268     101     268     269             \r\nCELAS3  269     101     269     270     270     101     270     271             \r\nCELAS3  271     101     271     272     272     101     272     273             \r\nCELAS3  273     101     273     274     274     101     274     275             \r\nCELAS3  275     101     275     276     276     101     276     277             \r\nCELAS3  277     101     277     278     278     101     278     279             \r\nCELAS3  279     101     279     280     280     101     280     281             \r\nCELAS3  281     101     281     282     282     101     282     283             \r\nCELAS3  283     101     283     284     284     101     284     285             \r\nCELAS3  285     101     285     286     286     101     286     287             \r\nCELAS3  287     101     287     288     288     101     288     289             \r\nCELAS3  289     101     289     290     290     101     290     291             \r\nCELAS3  291     101     291     292     292     101     292     293             \r\nCELAS3  293     101     293     294     294     101     294     295             \r\nCELAS3  295     101     295     296     296     101     296     297             \r\nCELAS3  297     101     297     298     298     101     298     299             \r\nCELAS3  299     101     299     300     300     101     300     301             \r\nCELAS3  301     101     301     302     302     101     302     303             \r\nCELAS3  303     101     303     304     304     101     304     305             \r\nCELAS3  305     101     305     306     306     101     306     307             \r\nCELAS3  307     101     307     308     308     101     308     309             \r\nCELAS3  309     101     309     310     310     101     310     311             \r\nCELAS3  311     101     311     312     312     101     312     313             \r\nCELAS3  313     101     313     314     314     101     314     315             \r\nCELAS3  315     101     315     316     316     101     316     317             \r\nCELAS3  317     101     317     318     318     101     318     319             \r\nCELAS3  319     101     319     320     320     101     320     321             \r\nCELAS3  321     101     321     322     322     101     322     323             \r\nCELAS3  323     101     323     324     324     101     324     325             \r\nCELAS3  325     101     325     326     326     101     326     327             \r\nCELAS3  327     101     327     328     328     101     328     329             \r\nCELAS3  329     101     329     330     330     101     330     331             \r\nCELAS3  331     101     331     332     332     101     332     333             \r\nCELAS3  333     101     333     334     334     101     334     335             \r\nCELAS3  335     101     335     336     336     101     336     337             \r\nCELAS3  337     101     337     338     338     101     338     339             \r\nCELAS3  339     101     339     340     340     101     340     341             \r\nCELAS3  341     101     341     342     342     101     342     343             \r\nCELAS3  343     101     343     344     344     101     344     345             \r\nCELAS3  345     101     345     346     346     101     346     347             \r\nCELAS3  347     101     347     348     348     101     348     349             \r\nCELAS3  349     101     349     350     350     101     350     351             \r\nCELAS3  351     101     351     352     352     101     352     353             \r\nCELAS3  353     101     353     354     354     101     354     355             \r\nCELAS3  355     101     355     356     356     101     356     357             \r\nCELAS3  357     101     357     358     358     101     358     359             \r\nCELAS3  359     101     359     360     360     101     360     361             \r\nCELAS3  361     101     361     362     362     101     362     363             \r\nCELAS3  363     101     363     364     364     101     364     365             \r\nCELAS3  365     101     365     366     366     101     366     367             \r\nCELAS3  367     101     367     368     368     101     368     369             \r\nCELAS3  369     101     369     370     370     101     370     371             \r\nCELAS3  371     101     371     372     372     101     372     373             \r\nCELAS3  373     101     373     374     374     101     374     375             \r\nCELAS3  375     101     375     376     376     101     376     377             \r\nCELAS3  377     101     377     378     378     101     378     379             \r\nCELAS3  379     101     379     380     380     101     380     381             \r\nCELAS3  381     101     381     382     382     101     382     383             \r\nCELAS3  383     101     383     384     384     101     384     385             \r\nCELAS3  385     101     385     386     386     101     386     387             \r\nCELAS3  387     101     387     388     388     101     388     389             \r\nCELAS3  389     101     389     390     390     101     390     391             \r\nCELAS3  391     101     391     392     392     101     392     393             \r\nCELAS3  393     101     393     394     394     101     394     395             \r\nCELAS3  395     101     395     396     396     101     396     397             \r\nCELAS3  397     101     397     398     398     101     398     399             \r\nCELAS3  399     101     399     400     400     101     400     401             \r\nCELAS3  401     101     401     402     402     101     402     403             \r\nCELAS3  403     101     403     404     404     101     404     405             \r\nCELAS3  405     101     405     406     406     101     406     407             \r\nCELAS3  407     101     407     408     408     101     408     409             \r\nCELAS3  409     101     409     410     410     101     410     411             \r\nCELAS3  411     101     411     412     412     101     412     413             \r\nCELAS3  413     101     413     414     414     101     414     415             \r\nCELAS3  415     101     415     416     416     101     416     417             \r\nCELAS3  417     101     417     418     418     101     418     419             \r\nCELAS3  419     101     419     420     420     101     420     421             \r\nCELAS3  421     101     421     422     422     101     422     423             \r\nCELAS3  423     101     423     424     424     101     424     425             \r\nCELAS3  425     101     425     426     426     101     426     427             \r\nCELAS3  427     101     427     428     428     101     428     429             \r\nCELAS3  429     101     429     430     430     101     430     431             \r\nCELAS3  431     101     431     432     432     101     432     433             \r\nCELAS3  433     101     433     434     434     101     434     435             \r\nCELAS3  435     101     435     436     436     101     436     437             \r\nCELAS3  437     101     437     438     438     101     438     439             \r\nCELAS3  439     101     439     440     440     101     440     441             \r\nCELAS3  441     101     441     442     442     101     442     443             \r\nCELAS3  443     101     443     444     444     101     444     445             \r\nCELAS3  445     101     445     446     446     101     446     447             \r\nCELAS3  447     101     447     448     448     101     448     449             \r\nCELAS3  449     101     449     450     450     101     450     451             \r\nCELAS3  451     101     451     452     452     101     452     453             \r\nCELAS3  453     101     453     454     454     101     454     455             \r\nCELAS3  455     101     455     456     456     101     456     457             \r\nCELAS3  457     101     457     458     458     101     458     459             \r\nCELAS3  459     101     459     460     460     101     460     461             \r\nCELAS3  461     101     461     462     462     101     462     463             \r\nCELAS3  463     101     463     464     464     101     464     465             \r\nCELAS3  465     101     465     466     466     101     466     467             \r\nCELAS3  467     101     467     468     468     101     468     469             \r\nCELAS3  469     101     469     470     470     101     470     471             \r\nCELAS3  471     101     471     472     472     101     472     473             \r\nCELAS3  473     101     473     474     474     101     474     475             \r\nCELAS3  475     101     475     476     476     101     476     477             \r\nCELAS3  477     101     477     478     478     101     478     479             \r\nCELAS3  479     101     479     480     480     101     480     481             \r\nCELAS3  481     101     481     482     482     101     482     483             \r\nCELAS3  483     101     483     484     484     101     484     485             \r\nCELAS3  485     101     485     486     486     101     486     487             \r\nCELAS3  487     101     487     488     488     101     488     489             \r\nCELAS3  489     101     489     490     490     101     490     491             \r\nCELAS3  491     101     491     492     492     101     492     493             \r\nCELAS3  493     101     493     494     494     101     494     495             \r\nCELAS3  495     101     495     496     496     101     496     497             \r\nCELAS3  497     101     497     498     498     101     498     499             \r\nCELAS3  499     101     499     500     500     101     500     0               \r\nCMASS3  40002   301     2       0                                               \r\nCMASS3  40003   301     3       0       40004   301     4       0               \r\nCMASS3  40005   301     5       0       40006   301     6       0               \r\nCMASS3  40007   301     7       0       40008   301     8       0               \r\nCMASS3  40009   301     9       0       40010   301     10      0               \r\nCMASS3  40011   301     11      0       40012   301     12      0               \r\nCMASS3  40013   301     13      0       40014   301     14      0               \r\nCMASS3  40015   301     15      0       40016   301     16      0               \r\nCMASS3  40017   301     17      0       40018   301     18      0               \r\nCMASS3  40019   301     19      0       40020   301     20      0               \r\nCMASS3  40021   301     21      0       40022   301     22      0               \r\nCMASS3  40023   301     23      0       40024   301     24      0               \r\nCMASS3  40025   301     25      0       40026   301     26      0               \r\nCMASS3  40027   301     27      0       40028   301     28      0               \r\nCMASS3  40029   301     29      0       40030   301     30      0               \r\nCMASS3  40031   301     31      0       40032   301     32      0               \r\nCMASS3  40033   301     33      0       40034   301     34      0               \r\nCMASS3  40035   301     35      0       40036   301     36      0               \r\nCMASS3  40037   301     37      0       40038   301     38      0               \r\nCMASS3  40039   301     39      0       40040   301     40      0               \r\nCMASS3  40041   301     41      0       40042   301     42      0               \r\nCMASS3  40043   301     43      0       40044   301     44      0               \r\nCMASS3  40045   301     45      0       40046   301     46      0               \r\nCMASS3  40047   301     47      0       40048   301     48      0               \r\nCMASS3  40049   301     49      0       40050   301     50      0               \r\nCMASS3  40051   301     51      0       40052   301     52      0               \r\nCMASS3  40053   301     53      0       40054   301     54      0               \r\nCMASS3  40055   301     55      0       40056   301     56      0               \r\nCMASS3  40057   301     57      0       40058   301     58      0               \r\nCMASS3  40059   301     59      0       40060   301     60      0               \r\nCMASS3  40061   301     61      0       40062   301     62      0               \r\nCMASS3  40063   301     63      0       40064   301     64      0               \r\nCMASS3  40065   301     65      0       40066   301     66      0               \r\nCMASS3  40067   301     67      0       40068   301     68      0               \r\nCMASS3  40069   301     69      0       40070   301     70      0               \r\nCMASS3  40071   301     71      0       40072   301     72      0               \r\nCMASS3  40073   301     73      0       40074   301     74      0               \r\nCMASS3  40075   301     75      0       40076   301     76      0               \r\nCMASS3  40077   301     77      0       40078   301     78      0               \r\nCMASS3  40079   301     79      0       40080   301     80      0               \r\nCMASS3  40081   301     81      0       40082   301     82      0               \r\nCMASS3  40083   301     83      0       40084   301     84      0               \r\nCMASS3  40085   301     85      0       40086   301     86      0               \r\nCMASS3  40087   301     87      0       40088   301     88      0               \r\nCMASS3  40089   301     89      0       40090   301     90      0               \r\nCMASS3  40091   301     91      0       40092   301     92      0               \r\nCMASS3  40093   301     93      0       40094   301     94      0               \r\nCMASS3  40095   301     95      0       40096   301     96      0               \r\nCMASS3  40097   301     97      0       40098   301     98      0               \r\nCMASS3  40099   301     99      0       40100   301     100     0               \r\nCMASS3  40101   301     101     0       40102   301     102     0               \r\nCMASS3  40103   301     103     0       40104   301     104     0               \r\nCMASS3  40105   301     105     0       40106   301     106     0               \r\nCMASS3  40107   301     107     0       40108   301     108     0               \r\nCMASS3  40109   301     109     0       40110   301     110     0               \r\nCMASS3  40111   301     111     0       40112   301     112     0               \r\nCMASS3  40113   301     113     0       40114   301     114     0               \r\nCMASS3  40115   301     115     0       40116   301     116     0               \r\nCMASS3  40117   301     117     0       40118   301     118     0               \r\nCMASS3  40119   301     119     0       40120   301     120     0               \r\nCMASS3  40121   301     121     0       40122   301     122     0               \r\nCMASS3  40123   301     123     0       40124   301     124     0               \r\nCMASS3  40125   301     125     0       40126   301     126     0               \r\nCMASS3  40127   301     127     0       40128   301     128     0               \r\nCMASS3  40129   301     129     0       40130   301     130     0               \r\nCMASS3  40131   301     131     0       40132   301     132     0               \r\nCMASS3  40133   301     133     0       40134   301     134     0               \r\nCMASS3  40135   301     135     0       40136   301     136     0               \r\nCMASS3  40137   301     137     0       40138   301     138     0               \r\nCMASS3  40139   301     139     0       40140   301     140     0               \r\nCMASS3  40141   301     141     0       40142   301     142     0               \r\nCMASS3  40143   301     143     0       40144   301     144     0               \r\nCMASS3  40145   301     145     0       40146   301     146     0               \r\nCMASS3  40147   301     147     0       40148   301     148     0               \r\nCMASS3  40149   301     149     0       40150   301     150     0               \r\nCMASS3  40151   301     151     0       40152   301     152     0               \r\nCMASS3  40153   301     153     0       40154   301     154     0               \r\nCMASS3  40155   301     155     0       40156   301     156     0               \r\nCMASS3  40157   301     157     0       40158   301     158     0               \r\nCMASS3  40159   301     159     0       40160   301     160     0               \r\nCMASS3  40161   301     161     0       40162   301     162     0               \r\nCMASS3  40163   301     163     0       40164   301     164     0               \r\nCMASS3  40165   301     165     0       40166   301     166     0               \r\nCMASS3  40167   301     167     0       40168   301     168     0               \r\nCMASS3  40169   301     169     0       40170   301     170     0               \r\nCMASS3  40171   301     171     0       40172   301     172     0               \r\nCMASS3  40173   301     173     0       40174   301     174     0               \r\nCMASS3  40175   301     175     0       40176   301     176     0               \r\nCMASS3  40177   301     177     0       40178   301     178     0               \r\nCMASS3  40179   301     179     0       40180   301     180     0               \r\nCMASS3  40181   301     181     0       40182   301     182     0               \r\nCMASS3  40183   301     183     0       40184   301     184     0               \r\nCMASS3  40185   301     185     0       40186   301     186     0               \r\nCMASS3  40187   301     187     0       40188   301     188     0               \r\nCMASS3  40189   301     189     0       40190   301     190     0               \r\nCMASS3  40191   301     191     0       40192   301     192     0               \r\nCMASS3  40193   301     193     0       40194   301     194     0               \r\nCMASS3  40195   301     195     0       40196   301     196     0               \r\nCMASS3  40197   301     197     0       40198   301     198     0               \r\nCMASS3  40199   301     199     0       40200   301     200     0               \r\nCMASS3  40201   301     201     0       40202   301     202     0               \r\nCMASS3  40203   301     203     0       40204   301     204     0               \r\nCMASS3  40205   301     205     0       40206   301     206     0               \r\nCMASS3  40207   301     207     0       40208   301     208     0               \r\nCMASS3  40209   301     209     0       40210   301     210     0               \r\nCMASS3  40211   301     211     0       40212   301     212     0               \r\nCMASS3  40213   301     213     0       40214   301     214     0               \r\nCMASS3  40215   301     215     0       40216   301     216     0               \r\nCMASS3  40217   301     217     0       40218   301     218     0               \r\nCMASS3  40219   301     219     0       40220   301     220     0               \r\nCMASS3  40221   301     221     0       40222   301     222     0               \r\nCMASS3  40223   301     223     0       40224   301     224     0               \r\nCMASS3  40225   301     225     0       40226   301     226     0               \r\nCMASS3  40227   301     227     0       40228   301     228     0               \r\nCMASS3  40229   301     229     0       40230   301     230     0               \r\nCMASS3  40231   301     231     0       40232   301     232     0               \r\nCMASS3  40233   301     233     0       40234   301     234     0               \r\nCMASS3  40235   301     235     0       40236   301     236     0               \r\nCMASS3  40237   301     237     0       40238   301     238     0               \r\nCMASS3  40239   301     239     0       40240   301     240     0               \r\nCMASS3  40241   301     241     0       40242   301     242     0               \r\nCMASS3  40243   301     243     0       40244   301     244     0               \r\nCMASS3  40245   301     245     0       40246   301     246     0               \r\nCMASS3  40247   301     247     0       40248   301     248     0               \r\nCMASS3  40249   301     249     0       40250   301     250     0               \r\nCMASS3  40251   301     251     0       40252   301     252     0               \r\nCMASS3  40253   301     253     0       40254   301     254     0               \r\nCMASS3  40255   301     255     0       40256   301     256     0               \r\nCMASS3  40257   301     257     0       40258   301     258     0               \r\nCMASS3  40259   301     259     0       40260   301     260     0               \r\nCMASS3  40261   301     261     0       40262   301     262     0               \r\nCMASS3  40263   301     263     0       40264   301     264     0               \r\nCMASS3  40265   301     265     0       40266   301     266     0               \r\nCMASS3  40267   301     267     0       40268   301     268     0               \r\nCMASS3  40269   301     269     0       40270   301     270     0               \r\nCMASS3  40271   301     271     0       40272   301     272     0               \r\nCMASS3  40273   301     273     0       40274   301     274     0               \r\nCMASS3  40275   301     275     0       40276   301     276     0               \r\nCMASS3  40277   301     277     0       40278   301     278     0               \r\nCMASS3  40279   301     279     0       40280   301     280     0               \r\nCMASS3  40281   301     281     0       40282   301     282     0               \r\nCMASS3  40283   301     283     0       40284   301     284     0               \r\nCMASS3  40285   301     285     0       40286   301     286     0               \r\nCMASS3  40287   301     287     0       40288   301     288     0               \r\nCMASS3  40289   301     289     0       40290   301     290     0               \r\nCMASS3  40291   301     291     0       40292   301     292     0               \r\nCMASS3  40293   301     293     0       40294   301     294     0               \r\nCMASS3  40295   301     295     0       40296   301     296     0               \r\nCMASS3  40297   301     297     0       40298   301     298     0               \r\nCMASS3  40299   301     299     0       40300   301     300     0               \r\nCMASS3  40301   301     301     0       40302   301     302     0               \r\nCMASS3  40303   301     303     0       40304   301     304     0               \r\nCMASS3  40305   301     305     0       40306   301     306     0               \r\nCMASS3  40307   301     307     0       40308   301     308     0               \r\nCMASS3  40309   301     309     0       40310   301     310     0               \r\nCMASS3  40311   301     311     0       40312   301     312     0               \r\nCMASS3  40313   301     313     0       40314   301     314     0               \r\nCMASS3  40315   301     315     0       40316   301     316     0               \r\nCMASS3  40317   301     317     0       40318   301     318     0               \r\nCMASS3  40319   301     319     0       40320   301     320     0               \r\nCMASS3  40321   301     321     0       40322   301     322     0               \r\nCMASS3  40323   301     323     0       40324   301     324     0               \r\nCMASS3  40325   301     325     0       40326   301     326     0               \r\nCMASS3  40327   301     327     0       40328   301     328     0               \r\nCMASS3  40329   301     329     0       40330   301     330     0               \r\nCMASS3  40331   301     331     0       40332   301     332     0               \r\nCMASS3  40333   301     333     0       40334   301     334     0               \r\nCMASS3  40335   301     335     0       40336   301     336     0               \r\nCMASS3  40337   301     337     0       40338   301     338     0               \r\nCMASS3  40339   301     339     0       40340   301     340     0               \r\nCMASS3  40341   301     341     0       40342   301     342     0               \r\nCMASS3  40343   301     343     0       40344   301     344     0               \r\nCMASS3  40345   301     345     0       40346   301     346     0               \r\nCMASS3  40347   301     347     0       40348   301     348     0               \r\nCMASS3  40349   301     349     0       40350   301     350     0               \r\nCMASS3  40351   301     351     0       40352   301     352     0               \r\nCMASS3  40353   301     353     0       40354   301     354     0               \r\nCMASS3  40355   301     355     0       40356   301     356     0               \r\nCMASS3  40357   301     357     0       40358   301     358     0               \r\nCMASS3  40359   301     359     0       40360   301     360     0               \r\nCMASS3  40361   301     361     0       40362   301     362     0               \r\nCMASS3  40363   301     363     0       40364   301     364     0               \r\nCMASS3  40365   301     365     0       40366   301     366     0               \r\nCMASS3  40367   301     367     0       40368   301     368     0               \r\nCMASS3  40369   301     369     0       40370   301     370     0               \r\nCMASS3  40371   301     371     0       40372   301     372     0               \r\nCMASS3  40373   301     373     0       40374   301     374     0               \r\nCMASS3  40375   301     375     0       40376   301     376     0               \r\nCMASS3  40377   301     377     0       40378   301     378     0               \r\nCMASS3  40379   301     379     0       40380   301     380     0               \r\nCMASS3  40381   301     381     0       40382   301     382     0               \r\nCMASS3  40383   301     383     0       40384   301     384     0               \r\nCMASS3  40385   301     385     0       40386   301     386     0               \r\nCMASS3  40387   301     387     0       40388   301     388     0               \r\nCMASS3  40389   301     389     0       40390   301     390     0               \r\nCMASS3  40391   301     391     0       40392   301     392     0               \r\nCMASS3  40393   301     393     0       40394   301     394     0               \r\nCMASS3  40395   301     395     0       40396   301     396     0               \r\nCMASS3  40397   301     397     0       40398   301     398     0               \r\nCMASS3  40399   301     399     0       40400   301     400     0               \r\nCMASS3  40401   301     401     0       40402   301     402     0               \r\nCMASS3  40403   301     403     0       40404   301     404     0               \r\nCMASS3  40405   301     405     0       40406   301     406     0               \r\nCMASS3  40407   301     407     0       40408   301     408     0               \r\nCMASS3  40409   301     409     0       40410   301     410     0               \r\nCMASS3  40411   301     411     0       40412   301     412     0               \r\nCMASS3  40413   301     413     0       40414   301     414     0               \r\nCMASS3  40415   301     415     0       40416   301     416     0               \r\nCMASS3  40417   301     417     0       40418   301     418     0               \r\nCMASS3  40419   301     419     0       40420   301     420     0               \r\nCMASS3  40421   301     421     0       40422   301     422     0               \r\nCMASS3  40423   301     423     0       40424   301     424     0               \r\nCMASS3  40425   301     425     0       40426   301     426     0               \r\nCMASS3  40427   301     427     0       40428   301     428     0               \r\nCMASS3  40429   301     429     0       40430   301     430     0               \r\nCMASS3  40431   301     431     0       40432   301     432     0               \r\nCMASS3  40433   301     433     0       40434   301     434     0               \r\nCMASS3  40435   301     435     0       40436   301     436     0               \r\nCMASS3  40437   301     437     0       40438   301     438     0               \r\nCMASS3  40439   301     439     0       40440   301     440     0               \r\nCMASS3  40441   301     441     0       40442   301     442     0               \r\nCMASS3  40443   301     443     0       40444   301     444     0               \r\nCMASS3  40445   301     445     0       40446   301     446     0               \r\nCMASS3  40447   301     447     0       40448   301     448     0               \r\nCMASS3  40449   301     449     0       40450   301     450     0               \r\nCMASS3  40451   301     451     0       40452   301     452     0               \r\nCMASS3  40453   301     453     0       40454   301     454     0               \r\nCMASS3  40455   301     455     0       40456   301     456     0               \r\nCMASS3  40457   301     457     0       40458   301     458     0               \r\nCMASS3  40459   301     459     0       40460   301     460     0               \r\nCMASS3  40461   301     461     0       40462   301     462     0               \r\nCMASS3  40463   301     463     0       40464   301     464     0               \r\nCMASS3  40465   301     465     0       40466   301     466     0               \r\nCMASS3  40467   301     467     0       40468   301     468     0               \r\nCMASS3  40469   301     469     0       40470   301     470     0               \r\nCMASS3  40471   301     471     0       40472   301     472     0               \r\nCMASS3  40473   301     473     0       40474   301     474     0               \r\nCMASS3  40475   301     475     0       40476   301     476     0               \r\nCMASS3  40477   301     477     0       40478   301     478     0               \r\nCMASS3  40479   301     479     0       40480   301     480     0               \r\nCMASS3  40481   301     481     0       40482   301     482     0               \r\nCMASS3  40483   301     483     0       40484   301     484     0               \r\nCMASS3  40485   301     485     0       40486   301     486     0               \r\nCMASS3  40487   301     487     0       40488   301     488     0               \r\nCMASS3  40489   301     489     0       40490   301     490     0               \r\nCMASS3  40491   301     491     0       40492   301     492     0               \r\nCMASS3  40493   301     493     0       40494   301     494     0               \r\nCMASS3  40495   301     495     0       40496   301     496     0               \r\nCMASS3  40497   301     497     0       40498   301     498     0               \r\nCMASS3  40499   301     499     0       40500   301     500     0               \r\nEIGC    1       FEER    MAX                                             +CFEER  \r\n+CFEER  -1.0    12.0                                                            \r\nEIGC    7       DET     MAX                     1.0-5                   +EIGC7  \r\n+EIGC7  -.5     5.0     -.9     16.0    10.0    2       2                       \r\nPARAM   G       .05                                                             \r\nPDAMP   401     6.283185                                                        \r\nPELAS   101     1.0+07  .05     10.0                                            \r\nPMASS   301     10.0                                                            \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d07011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation\r\n$            Complex Eigenvalue Analysis of a 500-Cell String (7-1-1)\r\n$         Complex Eigenvalue Analysis of a 500-Cell String (INPUT, 7-1-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates both the use of direct complex eigenvalue analysis\r\n$ and the various methods of supplying damping to the structure. The simulated\r\n$ model is a string under tension having uniform viscous and structural damping.\r\n$ The stiffness due to tension is modeled with scalar springs, the mass is\r\n$ represented by scalar masses, and the viscous damping is provided by scalar\r\n$ dampers connected on one end to the points and fixed on the other end. The\r\n$ structural damping is provided by the scalar springs and an overall damping\r\n$ factor, g . The INPUT module is used to generate the scalar springs, dampers,\r\n$          3\r\n$ and masses.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$                   7\r\n$    k   =  1.0 x 10    (scalar springs)\r\n$     i\r\n$ \r\n$    m   =  10.0        (scalar masses)\r\n$     i\r\n$ \r\n$    b   =  6.28318     (scalar dampers)\r\n$     i\r\n$ \r\n$    g   =  0.05        (structural element damping)\r\n$     s\r\n$ \r\n$    g   =  0.05        (overall damping parameter)\r\n$     3\r\n$ \r\n$    N   =  500         (number of scalar springs)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    The end scalar springs are fixed on the outer ends so constraints are\r\n$    unnecessary.\r\n$ \r\n$ 3. Eigenvalue ExtractIon Data:\r\n$ \r\n$    Method: FEER\r\n$ \r\n$    Center Point: (r,i) = (-1.0, 15.0)\r\n$ \r\n$    Normalization: Maximum deflection\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Complex Eigenvalue Analysis is used to solve the following general matrix\r\n$ equation:\r\n$ \r\n$         2\r\n$    ([M]p  + [B]p + [K]){u}  =  0                                           (1)\r\n$ \r\n$ where\r\n$ \r\n$    p     is the complex root\r\n$ \r\n$    [M]   is the complex mass matrix\r\n$ \r\n$    [B]   is the complex damping matrix for viscous damping\r\n$ \r\n$    [K]   is the complex stiffness matrix which contains imaginary components\r\n$          representing the structural damping.\r\n$ \r\n$ According to Reference 11, Chapter 6, the differential equation for a string\r\n$ under tension is\r\n$ \r\n$       2           2\r\n$      a u         a u         au\r\n$    T ---  =  -mu ---  - beta --                                            (2)\r\n$        2            2        at\r\n$      ax           at\r\n$ \r\n$ where\r\n$ \r\n$     T    is the string tension\r\n$ \r\n$     mu   is the mass per unit length\r\n$ \r\n$     beta is the viscous damping per unit length\r\n$ \r\n$ The finite difference representation for this equation is\r\n$ \r\n$                                       2\r\n$                                      d  u         du\r\n$       T                                  i          i\r\n$    -------- (u   - 2u  + u   ) = -mu -----  -beta ---                      (3)\r\n$           2   i-1    i    i+1           2         dt\r\n$    delta x                            dt\r\n$ \r\n$ The equation of the finite element model which corresponds to this equation is\r\n$ \r\n$      ..     .\r\n$    m u  + b u  + (1 + ig)k  (u    - 2u  + u   )  =  F                      (4)\r\n$     i i    i i            i   i-1     i    i+1       i\r\n$ \r\n$ where\r\n$ \r\n$    g  =  g  + g         (additional structural damping defined for the\r\n$           3    s         NASTRAN solution)\r\n$ \r\n$    m   =  mu delta x    (element mass)\r\n$     i\r\n$ \r\n$    b   =  beta delta x  (element vi scorns damping)\r\n$     i\r\n$ \r\n$              T\r\n$    k   =  --------      (element stiffness)\r\n$     i            2\r\n$           delta x\r\n$ \r\n$ The natural frequency for an undamped string, according to Reference 11, is\r\n$ \r\n$           pi n              pi n\r\n$    w   =  ---- sqrt(T/mu) = ---- sqrt(k /m )  = 2 pi n                     (5)\r\n$     n      l                  N        i  i\r\n$ \r\n$ Its deflection shape is\r\n$ \r\n$                 n pi x\r\n$    u(x)  =  sin -------                                                    (6)\r\n$                    l\r\n$ \r\n$ and\r\n$ \r\n$                  n pi i\r\n$    phi    =  sin ------                                                    (7)\r\n$       in            N\r\n$ \r\n$ The modal masses are\r\n$ \r\n$                                                        m N\r\n$                                    2          mu l      i\r\n$    M   =  integral from o to l mu u (x)dx  =  ----  =  ---                 (8)\r\n$     n                                           2       2\r\n$ \r\n$ Substituting the real eigenvectors and eigenvalues into the complex equation\r\n$ for complex roots we obtain for each mode, n,\r\n$ \r\n$       2                           2\r\n$    M p  + (b /m ) M p + (1 + ig) w  M  = 0                                 (9)\r\n$     n       i  i   n              n  n\r\n$ \r\n$ The solution is\r\n$ \r\n$            b\r\n$             i                     2          2\r\n$    p  =  - ----  +/- sqrt((b /2m )  - (1+ig)w  )                          (10)\r\n$            2m               i   i            n\r\n$              i\r\n$ \r\n$ D. Results\r\n$ \r\n$ The theoretical and NASTRAN complex roots are presented below in Table 1. The\r\n$ eigenvectors, which are the same as the real eigenvectors, are nearly exact\r\n$ for the finite element model.\r\n$ \r\n$                   Table 1. NASTRAN and Analytical Complex Roots\r\n$        -------------------------------------------------------------------\r\n$             Real Natural\r\n$              Frequency        Theoretical Roots          NASTRAN Roots\r\n$        n        (Hz)        (radians per second)     (radians per second)\r\n$        -------------------------------------------------------------------\r\n$        1        1.0          - .6283 +/- 6.2832i      - .6283 +/- 6.2832i\r\n$ \r\n$        2        2.0          - .9419 +/- 12.578i      - .9419 +/- 12.578i\r\n$ \r\n$        3        3.0          -1.2556 +/- 18.870i      -1.2556 +/- 18.870i\r\n$ \r\n$        4        4.0          -1.5693 +/- 25.162i      -1.5693 +/- 25.161i\r\n$        -------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d07012a.inp",
    "content": "ID    D07012A,NASTRAN                                                           \r\nTIME  15                                                                        \r\nAPP   DISP                                                                      \r\nSOL   7,1                                                                       \r\nDIAG  14                                                                        \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\nEQUIV   G2,GEOM2/TRUE $                                                         \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = COMPLEX EIGENVALUES OF A 500 CELL STRING                             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-01-2A                          \r\n CMETHOD = 1 $ FEER                                                             \r\nOUTPUT                                                                          \r\n   SET 1 = 1,51,101,151,201,251,301,351,401,451,501                             \r\n    DISP = 1                                                                    \r\nBEGIN BULK                                                                      \r\nEIGC    1       FEER    MAX                                             +CFEER  \r\n+CFEER  -1.0    12.0                                                            \r\nEIGC    7       DET     MAX                     1.0-5                   +EIGC7  \r\n+EIGC7  -.5     5.0     -.9     16.0    10.0    2       2                       \r\nPARAM   G       .10                                                             \r\nENDDATA                                                                         \r\n     500 1.0E+07 0.0     1.0E+01 6.3E+00                                        \r\n"
  },
  {
    "path": "inp/d07012a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation\r\n$            Complex Eigenvalue Analysis of a 500-Cell String (7-1-1)\r\n$         Complex Eigenvalue Analysis of a 500-Cell String (INPUT, 7-1-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates both the use of direct complex eigenvalue analysis\r\n$ and the various methods of supplying damping to the structure. The simulated\r\n$ model is a string under tension having uniform viscous and structural damping.\r\n$ The stiffness due to tension is modeled with scalar springs, the mass is\r\n$ represented by scalar masses, and the viscous damping is provided by scalar\r\n$ dampers connected on one end to the points and fixed on the other end. The\r\n$ structural damping is provided by the scalar springs and an overall damping\r\n$ factor, g . The INPUT module is used to generate the scalar springs, dampers,\r\n$          3\r\n$ and masses.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$                   7\r\n$    k   =  1.0 x 10    (scalar springs)\r\n$     i\r\n$ \r\n$    m   =  10.0        (scalar masses)\r\n$     i\r\n$ \r\n$    b   =  6.28318     (scalar dampers)\r\n$     i\r\n$ \r\n$    g   =  0.05        (structural element damping)\r\n$     s\r\n$ \r\n$    g   =  0.05        (overall damping parameter)\r\n$     3\r\n$ \r\n$    N   =  500         (number of scalar springs)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    The end scalar springs are fixed on the outer ends so constraints are\r\n$    unnecessary.\r\n$ \r\n$ 3. Eigenvalue ExtractIon Data:\r\n$ \r\n$    Method: FEER\r\n$ \r\n$    Center Point: (r,i) = (-1.0, 15.0)\r\n$ \r\n$    Normalization: Maximum deflection\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Complex Eigenvalue Analysis is used to solve the following general matrix\r\n$ equation:\r\n$ \r\n$         2\r\n$    ([M]p  + [B]p + [K]){u}  =  0                                           (1)\r\n$ \r\n$ where\r\n$ \r\n$    p     is the complex root\r\n$ \r\n$    [M]   is the complex mass matrix\r\n$ \r\n$    [B]   is the complex damping matrix for viscous damping\r\n$ \r\n$    [K]   is the complex stiffness matrix which contains imaginary components\r\n$          representing the structural damping.\r\n$ \r\n$ According to Reference 11, Chapter 6, the differential equation for a string\r\n$ under tension is\r\n$ \r\n$       2           2\r\n$      a u         a u         au\r\n$    T ---  =  -mu ---  - beta --                                            (2)\r\n$        2            2        at\r\n$      ax           at\r\n$ \r\n$ where\r\n$ \r\n$     T    is the string tension\r\n$ \r\n$     mu   is the mass per unit length\r\n$ \r\n$     beta is the viscous damping per unit length\r\n$ \r\n$ The finite difference representation for this equation is\r\n$ \r\n$                                       2\r\n$                                      d  u         du\r\n$       T                                  i          i\r\n$    -------- (u   - 2u  + u   ) = -mu -----  -beta ---                      (3)\r\n$           2   i-1    i    i+1           2         dt\r\n$    delta x                            dt\r\n$ \r\n$ The equation of the finite element model which corresponds to this equation is\r\n$ \r\n$      ..     .\r\n$    m u  + b u  + (1 + ig)k  (u    - 2u  + u   )  =  F                      (4)\r\n$     i i    i i            i   i-1     i    i+1       i\r\n$ \r\n$ where\r\n$ \r\n$    g  =  g  + g         (additional structural damping defined for the\r\n$           3    s         NASTRAN solution)\r\n$ \r\n$    m   =  mu delta x    (element mass)\r\n$     i\r\n$ \r\n$    b   =  beta delta x  (element vi scorns damping)\r\n$     i\r\n$ \r\n$              T\r\n$    k   =  --------      (element stiffness)\r\n$     i            2\r\n$           delta x\r\n$ \r\n$ The natural frequency for an undamped string, according to Reference 11, is\r\n$ \r\n$           pi n              pi n\r\n$    w   =  ---- sqrt(T/mu) = ---- sqrt(k /m )  = 2 pi n                     (5)\r\n$     n      l                  N        i  i\r\n$ \r\n$ Its deflection shape is\r\n$ \r\n$                 n pi x\r\n$    u(x)  =  sin -------                                                    (6)\r\n$                    l\r\n$ \r\n$ and\r\n$ \r\n$                  n pi i\r\n$    phi    =  sin ------                                                    (7)\r\n$       in            N\r\n$ \r\n$ The modal masses are\r\n$ \r\n$                                                        m N\r\n$                                    2          mu l      i\r\n$    M   =  integral from o to l mu u (x)dx  =  ----  =  ---                 (8)\r\n$     n                                           2       2\r\n$ \r\n$ Substituting the real eigenvectors and eigenvalues into the complex equation\r\n$ for complex roots we obtain for each mode, n,\r\n$ \r\n$       2                           2\r\n$    M p  + (b /m ) M p + (1 + ig) w  M  = 0                                 (9)\r\n$     n       i  i   n              n  n\r\n$ \r\n$ The solution is\r\n$ \r\n$            b\r\n$             i                     2          2\r\n$    p  =  - ----  +/- sqrt((b /2m )  - (1+ig)w  )                          (10)\r\n$            2m               i   i            n\r\n$              i\r\n$ \r\n$ D. Results\r\n$ \r\n$ The theoretical and NASTRAN complex roots are presented below in Table 1. The\r\n$ eigenvectors, which are the same as the real eigenvectors, are nearly exact\r\n$ for the finite element model.\r\n$ \r\n$                   Table 1. NASTRAN and Analytical Complex Roots\r\n$        -------------------------------------------------------------------\r\n$             Real Natural\r\n$              Frequency        Theoretical Roots          NASTRAN Roots\r\n$        n        (Hz)        (radians per second)     (radians per second)\r\n$        -------------------------------------------------------------------\r\n$        1        1.0          - .6283 +/- 6.2832i      - .6283 +/- 6.2832i\r\n$ \r\n$        2        2.0          - .9419 +/- 12.578i      - .9419 +/- 12.578i\r\n$ \r\n$        3        3.0          -1.2556 +/- 18.870i      -1.2556 +/- 18.870i\r\n$ \r\n$        4        4.0          -1.5693 +/- 25.162i      -1.5693 +/- 25.161i\r\n$        -------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d07021a.inp",
    "content": "ID    D07021A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   7,3                                                                       \r\nTIME  100                                                                       \r\nCEND                                                                            \r\nTITLE    = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-1A                          \r\nLABEL    = HARMONIC 3 USING 1/12 SYMMETRY.                                      \r\n CMETHOD = 1                                                                    \r\n     SPC = 3                                                                    \r\n AXISYMMETRIC = FLUID                                                           \r\nOUTPUT                                                                          \r\n    HARMONICS = 3                                                               \r\n      SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                  \r\n                106,107, 122,123, 138,139, 154,155, 170,171                     \r\n DISPLACEMENT = 100                                                             \r\nBEGIN BULK                                                                      \r\nAXIF    1       .0      1.8-2   2.88+3  NO                              +AXIF   \r\n+AXIF   3                                                                       \r\nBDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n+BDY-1  122     138     154     170                                             \r\nCFLUID2 1001    17      1                                                       \r\nCFLUID2 2001    33      17                                                      \r\nCFLUID2 3001    49      33                                                      \r\nCFLUID2 4001    65      49                                                      \r\nCFLUID2 5001    81      65                                                      \r\nCFLUID2 6001    97      81                                                      \r\nCFLUID2 7001    113     97                                                      \r\nCFLUID2 8001    129     113                                                     \r\nCFLUID2 9001    145     129                                                     \r\nCFLUID2 10001   161     145                                                     \r\nCFLUID4 1002    18      2       1       17                                      \r\nCFLUID4 1003    19      3       2       18                                      \r\nCFLUID4 1004    20      4       3       19                                      \r\nCFLUID4 1005    21      5       4       20                                      \r\nCFLUID4 1006    22      6       5       21                                      \r\nCFLUID4 1007    23      7       6       22                                      \r\nCFLUID4 1008    24      8       7       23                                      \r\nCFLUID4 1009    25      9       8       24                                      \r\nCFLUID4 1010    26      10      9       25                                      \r\nCFLUID4 2002    34      18      17      33                                      \r\nCFLUID4 2003    35      19      18      34                                      \r\nCFLUID4 2004    36      20      19      35                                      \r\nCFLUID4 2005    37      21      20      36                                      \r\nCFLUID4 2006    38      22      21      37                                      \r\nCFLUID4 2007    39      23      22      38                                      \r\nCFLUID4 2008    40      24      23      39                                      \r\nCFLUID4 2009    41      25      24      40                                      \r\nCFLUID4 2010    42      26      25      41                                      \r\nCFLUID4 3002    50      34      33      49                                      \r\nCFLUID4 3003    51      35      34      50                                      \r\nCFLUID4 3004    52      36      35      51                                      \r\nCFLUID4 3005    53      37      36      52                                      \r\nCFLUID4 3006    54      38      37      53                                      \r\nCFLUID4 3007    55      39      38      54                                      \r\nCFLUID4 3008    56      40      39      55                                      \r\nCFLUID4 3009    57      41      40      56                                      \r\nCFLUID4 3010    58      42      41      57                                      \r\nCFLUID4 4002    66      50      49      65                                      \r\nCFLUID4 4003    67      51      50      66                                      \r\nCFLUID4 4004    68      52      51      67                                      \r\nCFLUID4 4005    69      53      52      68                                      \r\nCFLUID4 4006    70      54      53      69                                      \r\nCFLUID4 4007    71      55      54      70                                      \r\nCFLUID4 4008    72      56      55      71                                      \r\nCFLUID4 4009    73      57      56      72                                      \r\nCFLUID4 4010    74      58      57      73                                      \r\nCFLUID4 5002    82      66      65      81                                      \r\nCFLUID4 5003    83      67      66      82                                      \r\nCFLUID4 5004    84      68      67      83                                      \r\nCFLUID4 5005    85      69      68      84                                      \r\nCFLUID4 5006    86      70      69      85                                      \r\nCFLUID4 5007    87      71      70      86                                      \r\nCFLUID4 5008    88      72      71      87                                      \r\nCFLUID4 5009    89      73      72      88                                      \r\nCFLUID4 5010    90      74      73      89                                      \r\nCFLUID4 6002    98      82      81      97                                      \r\nCFLUID4 6003    99      83      82      98                                      \r\nCFLUID4 6004    100     84      83      99                                      \r\nCFLUID4 6005    101     85      84      100                                     \r\nCFLUID4 6006    102     86      85      101                                     \r\nCFLUID4 6007    103     87      86      102                                     \r\nCFLUID4 6008    104     88      87      103                                     \r\nCFLUID4 6009    105     89      88      104                                     \r\nCFLUID4 6010    106     90      89      105                                     \r\nCFLUID4 7002    114     98      97      113                                     \r\nCFLUID4 7003    115     99      98      114                                     \r\nCFLUID4 7004    116     100     99      115                                     \r\nCFLUID4 7005    117     101     100     116                                     \r\nCFLUID4 7006    118     102     101     117                                     \r\nCFLUID4 7007    119     103     102     118                                     \r\nCFLUID4 7008    120     104     103     119                                     \r\nCFLUID4 7009    121     105     104     120                                     \r\nCFLUID4 7010    122     106     105     121                                     \r\nCFLUID4 8002    130     114     113     129                                     \r\nCFLUID4 8003    131     115     114     130                                     \r\nCFLUID4 8004    132     116     115     131                                     \r\nCFLUID4 8005    133     117     116     132                                     \r\nCFLUID4 8006    134     118     117     133                                     \r\nCFLUID4 8007    135     119     118     134                                     \r\nCFLUID4 8008    136     120     119     135                                     \r\nCFLUID4 8009    137     121     120     136                                     \r\nCFLUID4 8010    138     122     121     137                                     \r\nCFLUID4 9002    146     130     129     145                                     \r\nCFLUID4 9003    147     131     130     146                                     \r\nCFLUID4 9004    148     132     131     147                                     \r\nCFLUID4 9005    149     133     132     148                                     \r\nCFLUID4 9006    150     134     133     149                                     \r\nCFLUID4 9007    151     135     134     150                                     \r\nCFLUID4 9008    152     136     135     151                                     \r\nCFLUID4 9009    153     137     136     152                                     \r\nCFLUID4 9010    154     138     137     153                                     \r\nCFLUID4 10002   162     146     145     161                                     \r\nCFLUID4 10003   163     147     146     162                                     \r\nCFLUID4 10004   164     148     147     163                                     \r\nCFLUID4 10005   165     149     148     164                                     \r\nCFLUID4 10006   166     150     149     165                                     \r\nCFLUID4 10007   167     151     150     166                                     \r\nCFLUID4 10008   168     152     151     167                                     \r\nCFLUID4 10009   169     153     152     168                                     \r\nCFLUID4 10010   170     154     153     169                                     \r\nCORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n+CORD2C 1.0     .0      .0                                                      \r\nCQUAD1  1011    1       27      28      12      11                              \r\nCQUAD1  1012    1       28      29      13      12                              \r\nCQUAD1  1013    1       29      30      14      13                              \r\nCQUAD1  1014    1       30      31      15      14                              \r\nCQUAD1  1015    1       31      32      16      15                              \r\nCQUAD1  2011    1       43      44      28      27                              \r\nCQUAD1  2012    1       44      45      29      28                              \r\nCQUAD1  2013    1       45      46      30      29                              \r\nCQUAD1  2014    1       46      47      31      30                              \r\nCQUAD1  2015    1       47      48      32      31                              \r\nCQUAD1  3011    1       59      60      44      43                              \r\nCQUAD1  3012    1       60      61      45      44                              \r\nCQUAD1  3013    1       61      62      46      45                              \r\nCQUAD1  3014    1       62      63      47      46                              \r\nCQUAD1  3015    1       63      64      48      47                              \r\nCQUAD1  4011    1       75      76      60      59                              \r\nCQUAD1  4012    1       76      77      61      60                              \r\nCQUAD1  4013    1       77      78      62      61                              \r\nCQUAD1  4014    1       78      79      63      62                              \r\nCQUAD1  4015    1       79      80      64      63                              \r\nCQUAD1  5011    1       91      92      76      75                              \r\nCQUAD1  5012    1       92      93      77      76                              \r\nCQUAD1  5013    1       93      94      78      77                              \r\nCQUAD1  5014    1       94      95      79      78                              \r\nCQUAD1  5015    1       95      96      80      79                              \r\nCQUAD1  6011    1       107     108     92      91                              \r\nCQUAD1  6012    1       108     109     93      92                              \r\nCQUAD1  6013    1       109     110     94      93                              \r\nCQUAD1  6014    1       110     111     95      94                              \r\nCQUAD1  6015    1       111     112     96      95                              \r\nCQUAD1  7011    1       123     124     108     107                             \r\nCQUAD1  7012    1       124     125     109     108                             \r\nCQUAD1  7013    1       125     126     110     109                             \r\nCQUAD1  7014    1       126     127     111     110                             \r\nCQUAD1  7015    1       127     128     112     111                             \r\nCQUAD1  8011    1       139     140     124     123                             \r\nCQUAD1  8012    1       140     141     125     124                             \r\nCQUAD1  8013    1       141     142     126     125                             \r\nCQUAD1  8014    1       142     143     127     126                             \r\nCQUAD1  8015    1       143     144     128     127                             \r\nCQUAD1  9011    1       155     156     140     139                             \r\nCQUAD1  9012    1       156     157     141     140                             \r\nCQUAD1  9013    1       157     158     142     141                             \r\nCQUAD1  9014    1       158     159     143     142                             \r\nCQUAD1  9015    1       159     160     144     143                             \r\nCQUAD1  10011   1       171     172     156     155                             \r\nCQUAD1  10012   1       172     173     157     156                             \r\nCQUAD1  10013   1       173     174     158     157                             \r\nCQUAD1  10014   1       174     175     159     158                             \r\nCQUAD1  10015   1       175     176     160     159                             \r\nEIGC    1       DET     MAX                                             +EIGC   \r\n+EIGC   .1      9.8     .1      10.8    1.0     1       1                       \r\nFLSYM   12      S       A                                                       \r\nFSLIST          AXIS    1       2       3       4       5       6       +FSL-2  \r\n+FSL-2  7       8       9       10                                              \r\nFSLIST          170     169     168     167     166     165     164     +FSL-1  \r\n+FSL-1  163     162     161     AXIS                                            \r\nGRIDB   11                      .00             1               10              \r\nGRIDB   12                      6.00000         1               10              \r\nGRIDB   13                      12.0000         1               10              \r\nGRIDB   14                      18.0000         1               10              \r\nGRIDB   15                      24.0000         1               10              \r\nGRIDB   16                      30.0000         1               10              \r\nGRIDB   27                      .00             1               26              \r\nGRIDB   28                      6.00000         1               26              \r\nGRIDB   29                      12.0000         1               26              \r\nGRIDB   30                      18.0000         1               26              \r\nGRIDB   31                      24.0000         1               26              \r\nGRIDB   32                      30.0000         1               26              \r\nGRIDB   43                      .00             1               42              \r\nGRIDB   44                      6.00000         1               42              \r\nGRIDB   45                      12.0000         1               42              \r\nGRIDB   46                      18.0000         1               42              \r\nGRIDB   47                      24.0000         1               42              \r\nGRIDB   48                      30.0000         1               42              \r\nGRIDB   59                      .00             1               58              \r\nGRIDB   60                      6.00000         1               58              \r\nGRIDB   61                      12.0000         1               58              \r\nGRIDB   62                      18.0000         1               58              \r\nGRIDB   63                      24.0000         1               58              \r\nGRIDB   64                      30.0000         1               58              \r\nGRIDB   75                      .00             1               74              \r\nGRIDB   76                      6.00000         1               74              \r\nGRIDB   77                      12.0000         1               74              \r\nGRIDB   78                      18.0000         1               74              \r\nGRIDB   79                      24.0000         1               74              \r\nGRIDB   80                      30.0000         1               74              \r\nGRIDB   91                      .00             1               90              \r\nGRIDB   92                      6.00000         1               90              \r\nGRIDB   93                      12.0000         1               90              \r\nGRIDB   94                      18.0000         1               90              \r\nGRIDB   95                      24.0000         1               90              \r\nGRIDB   96                      30.0000         1               90              \r\nGRIDB   107                     .00             1               106             \r\nGRIDB   108                     6.00000         1               106             \r\nGRIDB   109                     12.0000         1               106             \r\nGRIDB   110                     18.0000         1               106             \r\nGRIDB   111                     24.0000         1               106             \r\nGRIDB   112                     30.0000         1               106             \r\nGRIDB   123                     .00             1               122             \r\nGRIDB   124                     6.00000         1               122             \r\nGRIDB   125                     12.0000         1               122             \r\nGRIDB   126                     18.0000         1               122             \r\nGRIDB   127                     24.0000         1               122             \r\nGRIDB   128                     30.0000         1               122             \r\nGRIDB   139                     .00             1               138             \r\nGRIDB   140                     6.00000         1               138             \r\nGRIDB   141                     12.0000         1               138             \r\nGRIDB   142                     18.0000         1               138             \r\nGRIDB   143                     24.0000         1               138             \r\nGRIDB   144                     30.0000         1               138             \r\nGRIDB   155                     .00             1               154             \r\nGRIDB   156                     6.00000         1               154             \r\nGRIDB   157                     12.0000         1               154             \r\nGRIDB   158                     18.0000         1               154             \r\nGRIDB   159                     24.0000         1               154             \r\nGRIDB   160                     30.0000         1               154             \r\nGRIDB   171                     .00             1               170             \r\nGRIDB   172                     6.00000         1               170             \r\nGRIDB   173                     12.0000         1               170             \r\nGRIDB   174                     18.0000         1               170             \r\nGRIDB   175                     24.0000         1               170             \r\nGRIDB   176                     30.0000         1               170             \r\nMAT1    2       1.6+5   6.0+4           6.0-2                                   \r\nPQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n+PQUAD1 .0      .005                                                            \r\nRINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\nRINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\nRINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\nRINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\nRINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\nRINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\nRINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\nRINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\nRINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\nRINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\nRINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\nRINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\nRINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\nRINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\nRINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\nRINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\nRINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\nRINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\nRINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\nRINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\nRINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\nRINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\nRINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\nRINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\nRINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\nRINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\nRINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\nRINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\nRINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\nRINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\nRINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\nRINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\nRINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\nRINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\nRINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\nRINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\nRINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\nRINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\nRINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\nRINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\nRINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\nRINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\nRINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\nRINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\nRINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\nRINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\nRINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\nRINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\nRINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\nRINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\nRINGFL  161     1.00000         .00     162     2.00000         .00             \r\nRINGFL  163     3.00000         .00     164     4.00000         .00             \r\nRINGFL  165     5.00000         .00     166     6.00000         .00             \r\nRINGFL  167     7.00000         .00     168     8.00000         .00             \r\nRINGFL  169     9.00000         .00     170     10.0000         .00             \r\nSPC1    3       126     11      12      13      14      15      16      H=3     \r\nSPC1    3       126     171     172     173     174     175     176     H=3     \r\nSPC1    3       135     16      32      48      64      80      96      H=3     \r\nSPC1    3       135     112     128     144     160     176             H=3     \r\nSPC1    3       246     11      27      43      59      75      91      H=3     \r\nSPC1    3       246     107     123     139     155     171             H=3     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d07021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$       RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation\r\n$            Third Harmonic Complex Eigenvalue Analysis of a Gas-Filled\r\n$                           Thin Elastic Cylinder (7-2-1)\r\n$            Fifth Harmonic Complex Eigenvalue Analysis of a Gas-Filled\r\n$                           Thin Elastic Cylinder (7-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of symmetry to analyze specific harmonics of\r\n$ a fluid-filled structure. The problem to be solved consists of a cylindrical\r\n$ section filled with a compressible fluid. The end conditions for the cylinder\r\n$ and the fluid are two planes of antisymmetry, perpendicular to the axis. These\r\n$ end conditions correspond to the conditions that exist at periodic intervals\r\n$ along a long, fluid-filled pipe vibrating in one of its vibration modes. The\r\n$ antisymmetric boundary for the structure is defined by constraining the\r\n$ motions which lie in the plane. An antisymmetric boundary for the fluid\r\n$ corresponds to zero pressure. This may be modeled, in NASTRAN, by defining the\r\n$ plane of antisymmetry as a free surface with zero gravity.\r\n$ \r\n$ The lowest natural frequencies and mode shapes for the third and fifth\r\n$ harmonics are analyzed separately. For the third harmonic, the structure is\r\n$ defined by a section of a cylinder having an arc of 30 degrees or 1/12 of a\r\n$ circle. The fifth harmonic analysis uses a section having an arc of 18 degrees\r\n$ or 1/20 of a circle. The longitudinal edges, which were cut, are planes of\r\n$ symmetry and antisymmetry in order to model a quarter cosine wave length.\r\n$ \r\n$ The bulk data cards used are; AXIF, BDYLIST, CFLUID2, CFLUID4, CORD2C, CQUAD1,\r\n$ EIGC, FLSYM, FSLIST, GRIDB, MAT1, PQUAD1, RINGFL, and SPC1.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The finite element model for the third harmonic uses the following parameters:\r\n$ \r\n$                 3      2\r\n$    B = 2.88 x 10  lb/in             (Bulk modulus of fluid)\r\n$ \r\n$                 -2       2   4\r\n$    p  = 1.8 x 10   lb-sec /in       (Fluid mass density)\r\n$     f\r\n$                 -2       2   4\r\n$    p  = 6.0 x 10   lb-sec /in       (Structure mass density)\r\n$     s\r\n$ \r\n$                 5      2\r\n$    E  = 1.6 x 10  lb/in             (Young's modulus for structure)\r\n$ \r\n$                4      2\r\n$    G = 6.0 x 10  lb/in              (Shear modulus for structure)\r\n$ \r\n$    a  =  10.0 inch                  (Radius of cylinder)\r\n$ \r\n$    l  =  10.0 inch                  (Length of cylinder)\r\n$ \r\n$    h  =  0.01 inch                  (Thickness of cylinder)\r\n$ \r\n$ The model for the fifth harmonic is similar to the third harmonic model except\r\n$ that the angle covered by the structure is 18 degrees instead of 30 degrees.\r\n$ This is accomplished by simply removing the structural elements and boundary\r\n$ GRIDB points corresponding to the two right-hand layers of structure (between\r\n$ 18 degrees and 30 degrees). The FLSYM, FSLIST, and SPC1 cards are changed to\r\n$ reflect the 1/20 symmetry.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The derivations and results for this problem are described in Reference 16.\r\n$ The results for various dimensionless parameters are listed. The particular\r\n$ parameters for the problem at hand are:\r\n$ \r\n$          p a\r\n$           f\r\n$    n  =  ---  =  300.0\r\n$          p h\r\n$           s\r\n$ \r\n$               Gp\r\n$                 f\r\n$    C  =  sqrt(---)  =  2.5\r\n$               Bp\r\n$                 x\r\n$ \r\n$              P a\r\n$               o\r\n$    omega  =  ---  =  0.0\r\n$              Gh\r\n$ \r\n$ where n is the ratio of fluid mass to structure mass. C is the ratio of the\r\n$ wave velocity in the structure material to the wave velocity in the fluid.\r\n$ Omega is the factor describing static pressurization, P .\r\n$                                                        o\r\n$ \r\n$    The basic assumptions for this analysis are:\r\n$ \r\n$    1. Thin shell theory is used for the structure. The bending moment terms in\r\n$       the force equilibrium equations are ignored in the results.\r\n$ \r\n$    2. The fluid is nonviscous and irrotational, and small motions are only\r\n$       considered.\r\n$ \r\n$ This particular problem becomes relatively easy to solve since the mode shapes\r\n$ for the fluid in a rigid container and the modes of the structure with no\r\n$ enclosed fluid have the same spatial function at the interface. Each mode of\r\n$ the fluid is excited by only one mode of the structure and each mode of the\r\n$ structure is excited by one mode of the fluid. The pressure in the fluid is\r\n$ assumed to be a series of functions:\r\n$ \r\n$              iwt               pi z\r\n$    p  =  p  e    cos n phi sin ----  Q  (r,w)                              (1)\r\n$           n                     l     n\r\n$ \r\n$ where Q  is a Bessel Function or a modified Bessel Function of the first kind.\r\n$        n\r\n$ \r\n$ The characteristic shapes of the structure are a series of the form:\r\n$ \r\n$              iwt               pi z\r\n$    u  =  A  e    cos n phi sin ----                                        (2)\r\n$                                 l\r\n$ \r\n$ where u is the displacement normal to the surface. The fundamental momentum\r\n$ equation for the fluid flow at the boundary is:\r\n$ \r\n$                                ..\r\n$    gradient (P(r)) e   =  - p  u                                           (3)\r\n$                     r        f\r\n$ \r\n$ \r\n$ where e  is a unit vector in the radial direction.\r\n$        r\r\n$ \r\n$ The forces on the structure at the boundary are:\r\n$ \r\n$                 2\r\n$                a F\r\n$             1     1        ..\r\n$    P(a)  =  -  ----  - p  hu                                               (4)\r\n$             a    2      s\r\n$                az\r\n$ \r\n$ where the function F  is defined by the differential equation on the surface:\r\n$                     1\r\n$ \r\n$                          2\r\n$            4        Eh  a u\r\n$    gradient  F   =  --  ---                                                (5)\r\n$               1     a     2\r\n$                         az\r\n$ \r\n$ The solution for F  is obtained by assuming that\r\n$                   1\r\n$ \r\n$              iwt               pi z\r\n$    F   =  B e    cos n phi sin ----                                        (6)\r\n$     1                           l\r\n$ \r\n$ Combining Equations 1 through 6 results in the relationships:\r\n$ \r\n$                  aQ (r,w)  |\r\n$      2             n       |\r\n$    pw  A  =  P   --------  |                                               (7)\r\n$               n    ar      |r=a\r\n$ \r\n$                  +                            +\r\n$                  |  2  4                      |\r\n$                  | a pi Eh                  2 |\r\n$    Q (a,w) P  =  | ---------------  +  p  hw  | A                          (8)\r\n$     n       n    |      2 2             s     |\r\n$                  |  4 pi a     2 2            |\r\n$                  | l (----- + n )             |\r\n$                  +       2                    +\r\n$                         l\r\n$ \r\n$ Equation (7) is a statement of the continuity of displacement. Equation (8)\r\n$ states the balance of the pressures. The above equations may be solved by\r\n$ iterating on w. Reference 16 provides solutions for w over a wide range of\r\n$ parameters.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The analytic and NASTRAN eigenvalues are listed in Table 1. The corresponding\r\n$ errors in the eigenvalues are tabulated and the maximum errors in displacement\r\n$ at the container wall are given as the percentage of the maximum value.\r\n$ \r\n$               Table 1. Comparison of Analytical and NASTRAN Results\r\n$      --------------------------------------------------------------------\r\n$                    Natural Frequency (Hz)           Mode Shape\r\n$                 ---------------------------   ---------------------------\r\n$      Harmonic   Analytical   NASTRAN  Error   Max. Error in Radial Displ.\r\n$      --------------------------------------------------------------------\r\n$         3         1.579       1.595    1.0              0.0\r\n$ \r\n$         5         1.011       1.049    3.4              0.5\r\n$      --------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 16. J. G. Berry and E. Reissner, \"The Effect of an Internal Compressible Fluid\r\n$     Column on the Breathing Vibrations of a Thin Pressurized Cylindrical\r\n$     Shell\", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294,\r\n$     May 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d07022a.inp",
    "content": "ID    D07022A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   7,3                                                                       \r\nTIME  40                                                                        \r\nCEND                                                                            \r\nTITLE    = COMPLEX EIGENVALUE ANALYSIS OF A GAS FILLED THIN CYLINDER            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D07-02-2A                          \r\nLABEL    = HARMONIC 5 USING 1/20 SYMMETRY.                                      \r\n CMETHOD = 1                                                                    \r\n     SPC = 3                                                                    \r\n AXISYMMETRIC = FLUID                                                           \r\nOUTPUT                                                                          \r\n    HARMONICS = 5                                                               \r\n      SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                  \r\n                106,107, 122,123, 138,139, 154,155, 170,171                     \r\n DISPLACEMENT = 100                                                             \r\nBEGIN BULK                                                                      \r\nAXIF    1       .0      1.8-2   2.88+3  NO                              +AXIF   \r\n+AXIF   5                                                                       \r\nBDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n+BDY-1  122     138     154     170                                             \r\nCFLUID2 1001    17      1                                                       \r\nCFLUID2 2001    33      17                                                      \r\nCFLUID2 3001    49      33                                                      \r\nCFLUID2 4001    65      49                                                      \r\nCFLUID2 5001    81      65                                                      \r\nCFLUID2 6001    97      81                                                      \r\nCFLUID2 7001    113     97                                                      \r\nCFLUID2 8001    129     113                                                     \r\nCFLUID2 9001    145     129                                                     \r\nCFLUID2 10001   161     145                                                     \r\nCFLUID4 1002    18      2       1       17                                      \r\nCFLUID4 1003    19      3       2       18                                      \r\nCFLUID4 1004    20      4       3       19                                      \r\nCFLUID4 1005    21      5       4       20                                      \r\nCFLUID4 1006    22      6       5       21                                      \r\nCFLUID4 1007    23      7       6       22                                      \r\nCFLUID4 1008    24      8       7       23                                      \r\nCFLUID4 1009    25      9       8       24                                      \r\nCFLUID4 1010    26      10      9       25                                      \r\nCFLUID4 2002    34      18      17      33                                      \r\nCFLUID4 2003    35      19      18      34                                      \r\nCFLUID4 2004    36      20      19      35                                      \r\nCFLUID4 2005    37      21      20      36                                      \r\nCFLUID4 2006    38      22      21      37                                      \r\nCFLUID4 2007    39      23      22      38                                      \r\nCFLUID4 2008    40      24      23      39                                      \r\nCFLUID4 2009    41      25      24      40                                      \r\nCFLUID4 2010    42      26      25      41                                      \r\nCFLUID4 3002    50      34      33      49                                      \r\nCFLUID4 3003    51      35      34      50                                      \r\nCFLUID4 3004    52      36      35      51                                      \r\nCFLUID4 3005    53      37      36      52                                      \r\nCFLUID4 3006    54      38      37      53                                      \r\nCFLUID4 3007    55      39      38      54                                      \r\nCFLUID4 3008    56      40      39      55                                      \r\nCFLUID4 3009    57      41      40      56                                      \r\nCFLUID4 3010    58      42      41      57                                      \r\nCFLUID4 4002    66      50      49      65                                      \r\nCFLUID4 4003    67      51      50      66                                      \r\nCFLUID4 4004    68      52      51      67                                      \r\nCFLUID4 4005    69      53      52      68                                      \r\nCFLUID4 4006    70      54      53      69                                      \r\nCFLUID4 4007    71      55      54      70                                      \r\nCFLUID4 4008    72      56      55      71                                      \r\nCFLUID4 4009    73      57      56      72                                      \r\nCFLUID4 4010    74      58      57      73                                      \r\nCFLUID4 5002    82      66      65      81                                      \r\nCFLUID4 5003    83      67      66      82                                      \r\nCFLUID4 5004    84      68      67      83                                      \r\nCFLUID4 5005    85      69      68      84                                      \r\nCFLUID4 5006    86      70      69      85                                      \r\nCFLUID4 5007    87      71      70      86                                      \r\nCFLUID4 5008    88      72      71      87                                      \r\nCFLUID4 5009    89      73      72      88                                      \r\nCFLUID4 5010    90      74      73      89                                      \r\nCFLUID4 6002    98      82      81      97                                      \r\nCFLUID4 6003    99      83      82      98                                      \r\nCFLUID4 6004    100     84      83      99                                      \r\nCFLUID4 6005    101     85      84      100                                     \r\nCFLUID4 6006    102     86      85      101                                     \r\nCFLUID4 6007    103     87      86      102                                     \r\nCFLUID4 6008    104     88      87      103                                     \r\nCFLUID4 6009    105     89      88      104                                     \r\nCFLUID4 6010    106     90      89      105                                     \r\nCFLUID4 7002    114     98      97      113                                     \r\nCFLUID4 7003    115     99      98      114                                     \r\nCFLUID4 7004    116     100     99      115                                     \r\nCFLUID4 7005    117     101     100     116                                     \r\nCFLUID4 7006    118     102     101     117                                     \r\nCFLUID4 7007    119     103     102     118                                     \r\nCFLUID4 7008    120     104     103     119                                     \r\nCFLUID4 7009    121     105     104     120                                     \r\nCFLUID4 7010    122     106     105     121                                     \r\nCFLUID4 8002    130     114     113     129                                     \r\nCFLUID4 8003    131     115     114     130                                     \r\nCFLUID4 8004    132     116     115     131                                     \r\nCFLUID4 8005    133     117     116     132                                     \r\nCFLUID4 8006    134     118     117     133                                     \r\nCFLUID4 8007    135     119     118     134                                     \r\nCFLUID4 8008    136     120     119     135                                     \r\nCFLUID4 8009    137     121     120     136                                     \r\nCFLUID4 8010    138     122     121     137                                     \r\nCFLUID4 9002    146     130     129     145                                     \r\nCFLUID4 9003    147     131     130     146                                     \r\nCFLUID4 9004    148     132     131     147                                     \r\nCFLUID4 9005    149     133     132     148                                     \r\nCFLUID4 9006    150     134     133     149                                     \r\nCFLUID4 9007    151     135     134     150                                     \r\nCFLUID4 9008    152     136     135     151                                     \r\nCFLUID4 9009    153     137     136     152                                     \r\nCFLUID4 9010    154     138     137     153                                     \r\nCFLUID4 10002   162     146     145     161                                     \r\nCFLUID4 10003   163     147     146     162                                     \r\nCFLUID4 10004   164     148     147     163                                     \r\nCFLUID4 10005   165     149     148     164                                     \r\nCFLUID4 10006   166     150     149     165                                     \r\nCFLUID4 10007   167     151     150     166                                     \r\nCFLUID4 10008   168     152     151     167                                     \r\nCFLUID4 10009   169     153     152     168                                     \r\nCFLUID4 10010   170     154     153     169                                     \r\nCORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n+CORD2C 1.0     .0      .0                                                      \r\nCQUAD1  1011    1       27      28      12      11                              \r\nCQUAD1  1012    1       28      29      13      12                              \r\nCQUAD1  1013    1       29      30      14      13                              \r\nCQUAD1  2011    1       43      44      28      27                              \r\nCQUAD1  2012    1       44      45      29      28                              \r\nCQUAD1  2013    1       45      46      30      29                              \r\nCQUAD1  3011    1       59      60      44      43                              \r\nCQUAD1  3012    1       60      61      45      44                              \r\nCQUAD1  3013    1       61      62      46      45                              \r\nCQUAD1  4011    1       75      76      60      59                              \r\nCQUAD1  4012    1       76      77      61      60                              \r\nCQUAD1  4013    1       77      78      62      61                              \r\nCQUAD1  5011    1       91      92      76      75                              \r\nCQUAD1  5012    1       92      93      77      76                              \r\nCQUAD1  5013    1       93      94      78      77                              \r\nCQUAD1  6011    1       107     108     92      91                              \r\nCQUAD1  6012    1       108     109     93      92                              \r\nCQUAD1  6013    1       109     110     94      93                              \r\nCQUAD1  7011    1       123     124     108     107                             \r\nCQUAD1  7012    1       124     125     109     108                             \r\nCQUAD1  7013    1       125     126     110     109                             \r\nCQUAD1  8011    1       139     140     124     123                             \r\nCQUAD1  8012    1       140     141     125     124                             \r\nCQUAD1  8013    1       141     142     126     125                             \r\nCQUAD1  9011    1       155     156     140     139                             \r\nCQUAD1  9012    1       156     157     141     140                             \r\nCQUAD1  9013    1       157     158     142     141                             \r\nCQUAD1  10011   1       171     172     156     155                             \r\nCQUAD1  10012   1       172     173     157     156                             \r\nCQUAD1  10013   1       173     174     158     157                             \r\nEIGC    1       DET     MAX                                             +EIGC   \r\n+EIGC   1.0     .0      1.0     20.0    20.0    1       1                       \r\nFLSYM   20      S       A                                                       \r\nFSLIST          AXIS    1       2       3       4       5       6       +FSL-2  \r\n+FSL-2  7       8       9       10                                              \r\nFSLIST          170     169     168     167     166     165     164     +FSL-1  \r\n+FSL-1  163     162     161     AXIS                                            \r\nGRIDB   11                      .00             1               10              \r\nGRIDB   12                      6.00000         1               10              \r\nGRIDB   13                      12.0000         1               10              \r\nGRIDB   14                      18.0000         1               10              \r\nGRIDB   27                      .00             1               26              \r\nGRIDB   28                      6.00000         1               26              \r\nGRIDB   29                      12.0000         1               26              \r\nGRIDB   30                      18.0000         1               26              \r\nGRIDB   43                      .00             1               42              \r\nGRIDB   44                      6.00000         1               42              \r\nGRIDB   45                      12.0000         1               42              \r\nGRIDB   46                      18.0000         1               42              \r\nGRIDB   59                      .00             1               58              \r\nGRIDB   60                      6.00000         1               58              \r\nGRIDB   61                      12.0000         1               58              \r\nGRIDB   62                      18.0000         1               58              \r\nGRIDB   75                      .00             1               74              \r\nGRIDB   76                      6.00000         1               74              \r\nGRIDB   77                      12.0000         1               74              \r\nGRIDB   78                      18.0000         1               74              \r\nGRIDB   91                      .00             1               90              \r\nGRIDB   92                      6.00000         1               90              \r\nGRIDB   93                      12.0000         1               90              \r\nGRIDB   94                      18.0000         1               90              \r\nGRIDB   107                     .00             1               106             \r\nGRIDB   108                     6.00000         1               106             \r\nGRIDB   109                     12.0000         1               106             \r\nGRIDB   110                     18.0000         1               106             \r\nGRIDB   123                     .00             1               122             \r\nGRIDB   124                     6.00000         1               122             \r\nGRIDB   125                     12.0000         1               122             \r\nGRIDB   126                     18.0000         1               122             \r\nGRIDB   139                     .00             1               138             \r\nGRIDB   140                     6.00000         1               138             \r\nGRIDB   141                     12.0000         1               138             \r\nGRIDB   142                     18.0000         1               138             \r\nGRIDB   155                     .00             1               154             \r\nGRIDB   156                     6.00000         1               154             \r\nGRIDB   157                     12.0000         1               154             \r\nGRIDB   158                     18.0000         1               154             \r\nGRIDB   171                     .00             1               170             \r\nGRIDB   172                     6.00000         1               170             \r\nGRIDB   173                     12.0000         1               170             \r\nGRIDB   174                     18.0000         1               170             \r\nMAT1    2       1.6+5   6.0+4           6.0-2                                   \r\nPQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n+PQUAD1 .0      .005                                                            \r\nRINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\nRINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\nRINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\nRINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\nRINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\nRINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\nRINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\nRINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\nRINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\nRINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\nRINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\nRINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\nRINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\nRINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\nRINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\nRINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\nRINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\nRINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\nRINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\nRINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\nRINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\nRINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\nRINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\nRINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\nRINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\nRINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\nRINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\nRINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\nRINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\nRINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\nRINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\nRINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\nRINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\nRINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\nRINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\nRINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\nRINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\nRINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\nRINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\nRINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\nRINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\nRINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\nRINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\nRINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\nRINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\nRINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\nRINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\nRINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\nRINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\nRINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\nRINGFL  161     1.00000         .00     162     2.00000         .00             \r\nRINGFL  163     3.00000         .00     164     4.00000         .00             \r\nRINGFL  165     5.00000         .00     166     6.00000         .00             \r\nRINGFL  167     7.00000         .00     168     8.00000         .00             \r\nRINGFL  169     9.00000         .00     170     10.0000         .00             \r\nSPC1    3       126     11      12      13      14                      H=5     \r\nSPC1    3       126     171     172     173     174                     H=5     \r\nSPC1    3       135     14      30      46      62      78      94      H=5     \r\nSPC1    3       135     110     126     142     158     174             H=5     \r\nSPC1    3       246     11      27      43      59      75      91      H=5     \r\nSPC1    3       246     107     123     139     155     171             H=5     \r\nENDDATA                                                                         \r\n                                                                                \r\n"
  },
  {
    "path": "inp/d07022a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$       RIGID FORMAT No. 7, Complex Eigenvalue Analysis - Direct Formulation\r\n$            Third Harmonic Complex Eigenvalue Analysis of a Gas-Filled\r\n$                           Thin Elastic Cylinder (7-2-1)\r\n$            Fifth Harmonic Complex Eigenvalue Analysis of a Gas-Filled\r\n$                           Thin Elastic Cylinder (7-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the use of symmetry to analyze specific harmonics of\r\n$ a fluid-filled structure. The problem to be solved consists of a cylindrical\r\n$ section filled with a compressible fluid. The end conditions for the cylinder\r\n$ and the fluid are two planes of antisymmetry, perpendicular to the axis. These\r\n$ end conditions correspond to the conditions that exist at periodic intervals\r\n$ along a long, fluid-filled pipe vibrating in one of its vibration modes. The\r\n$ antisymmetric boundary for the structure is defined by constraining the\r\n$ motions which lie in the plane. An antisymmetric boundary for the fluid\r\n$ corresponds to zero pressure. This may be modeled, in NASTRAN, by defining the\r\n$ plane of antisymmetry as a free surface with zero gravity.\r\n$ \r\n$ The lowest natural frequencies and mode shapes for the third and fifth\r\n$ harmonics are analyzed separately. For the third harmonic, the structure is\r\n$ defined by a section of a cylinder having an arc of 30 degrees or 1/12 of a\r\n$ circle. The fifth harmonic analysis uses a section having an arc of 18 degrees\r\n$ or 1/20 of a circle. The longitudinal edges, which were cut, are planes of\r\n$ symmetry and antisymmetry in order to model a quarter cosine wave length.\r\n$ \r\n$ The bulk data cards used are; AXIF, BDYLIST, CFLUID2, CFLUID4, CORD2C, CQUAD1,\r\n$ EIGC, FLSYM, FSLIST, GRIDB, MAT1, PQUAD1, RINGFL, and SPC1.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The finite element model for the third harmonic uses the following parameters:\r\n$ \r\n$                 3      2\r\n$    B = 2.88 x 10  lb/in             (Bulk modulus of fluid)\r\n$ \r\n$                 -2       2   4\r\n$    p  = 1.8 x 10   lb-sec /in       (Fluid mass density)\r\n$     f\r\n$                 -2       2   4\r\n$    p  = 6.0 x 10   lb-sec /in       (Structure mass density)\r\n$     s\r\n$ \r\n$                 5      2\r\n$    E  = 1.6 x 10  lb/in             (Young's modulus for structure)\r\n$ \r\n$                4      2\r\n$    G = 6.0 x 10  lb/in              (Shear modulus for structure)\r\n$ \r\n$    a  =  10.0 inch                  (Radius of cylinder)\r\n$ \r\n$    l  =  10.0 inch                  (Length of cylinder)\r\n$ \r\n$    h  =  0.01 inch                  (Thickness of cylinder)\r\n$ \r\n$ The model for the fifth harmonic is similar to the third harmonic model except\r\n$ that the angle covered by the structure is 18 degrees instead of 30 degrees.\r\n$ This is accomplished by simply removing the structural elements and boundary\r\n$ GRIDB points corresponding to the two right-hand layers of structure (between\r\n$ 18 degrees and 30 degrees). The FLSYM, FSLIST, and SPC1 cards are changed to\r\n$ reflect the 1/20 symmetry.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The derivations and results for this problem are described in Reference 16.\r\n$ The results for various dimensionless parameters are listed. The particular\r\n$ parameters for the problem at hand are:\r\n$ \r\n$          p a\r\n$           f\r\n$    n  =  ---  =  300.0\r\n$          p h\r\n$           s\r\n$ \r\n$               Gp\r\n$                 f\r\n$    C  =  sqrt(---)  =  2.5\r\n$               Bp\r\n$                 x\r\n$ \r\n$              P a\r\n$               o\r\n$    omega  =  ---  =  0.0\r\n$              Gh\r\n$ \r\n$ where n is the ratio of fluid mass to structure mass. C is the ratio of the\r\n$ wave velocity in the structure material to the wave velocity in the fluid.\r\n$ Omega is the factor describing static pressurization, P .\r\n$                                                        o\r\n$ \r\n$    The basic assumptions for this analysis are:\r\n$ \r\n$    1. Thin shell theory is used for the structure. The bending moment terms in\r\n$       the force equilibrium equations are ignored in the results.\r\n$ \r\n$    2. The fluid is nonviscous and irrotational, and small motions are only\r\n$       considered.\r\n$ \r\n$ This particular problem becomes relatively easy to solve since the mode shapes\r\n$ for the fluid in a rigid container and the modes of the structure with no\r\n$ enclosed fluid have the same spatial function at the interface. Each mode of\r\n$ the fluid is excited by only one mode of the structure and each mode of the\r\n$ structure is excited by one mode of the fluid. The pressure in the fluid is\r\n$ assumed to be a series of functions:\r\n$ \r\n$              iwt               pi z\r\n$    p  =  p  e    cos n phi sin ----  Q  (r,w)                              (1)\r\n$           n                     l     n\r\n$ \r\n$ where Q  is a Bessel Function or a modified Bessel Function of the first kind.\r\n$        n\r\n$ \r\n$ The characteristic shapes of the structure are a series of the form:\r\n$ \r\n$              iwt               pi z\r\n$    u  =  A  e    cos n phi sin ----                                        (2)\r\n$                                 l\r\n$ \r\n$ where u is the displacement normal to the surface. The fundamental momentum\r\n$ equation for the fluid flow at the boundary is:\r\n$ \r\n$                                ..\r\n$    gradient (P(r)) e   =  - p  u                                           (3)\r\n$                     r        f\r\n$ \r\n$ \r\n$ where e  is a unit vector in the radial direction.\r\n$        r\r\n$ \r\n$ The forces on the structure at the boundary are:\r\n$ \r\n$                 2\r\n$                a F\r\n$             1     1        ..\r\n$    P(a)  =  -  ----  - p  hu                                               (4)\r\n$             a    2      s\r\n$                az\r\n$ \r\n$ where the function F  is defined by the differential equation on the surface:\r\n$                     1\r\n$ \r\n$                          2\r\n$            4        Eh  a u\r\n$    gradient  F   =  --  ---                                                (5)\r\n$               1     a     2\r\n$                         az\r\n$ \r\n$ The solution for F  is obtained by assuming that\r\n$                   1\r\n$ \r\n$              iwt               pi z\r\n$    F   =  B e    cos n phi sin ----                                        (6)\r\n$     1                           l\r\n$ \r\n$ Combining Equations 1 through 6 results in the relationships:\r\n$ \r\n$                  aQ (r,w)  |\r\n$      2             n       |\r\n$    pw  A  =  P   --------  |                                               (7)\r\n$               n    ar      |r=a\r\n$ \r\n$                  +                            +\r\n$                  |  2  4                      |\r\n$                  | a pi Eh                  2 |\r\n$    Q (a,w) P  =  | ---------------  +  p  hw  | A                          (8)\r\n$     n       n    |      2 2             s     |\r\n$                  |  4 pi a     2 2            |\r\n$                  | l (----- + n )             |\r\n$                  +       2                    +\r\n$                         l\r\n$ \r\n$ Equation (7) is a statement of the continuity of displacement. Equation (8)\r\n$ states the balance of the pressures. The above equations may be solved by\r\n$ iterating on w. Reference 16 provides solutions for w over a wide range of\r\n$ parameters.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The analytic and NASTRAN eigenvalues are listed in Table 1. The corresponding\r\n$ errors in the eigenvalues are tabulated and the maximum errors in displacement\r\n$ at the container wall are given as the percentage of the maximum value.\r\n$ \r\n$               Table 1. Comparison of Analytical and NASTRAN Results\r\n$      --------------------------------------------------------------------\r\n$                    Natural Frequency (Hz)           Mode Shape\r\n$                 ---------------------------   ---------------------------\r\n$      Harmonic   Analytical   NASTRAN  Error   Max. Error in Radial Displ.\r\n$      --------------------------------------------------------------------\r\n$         3         1.579       1.595    1.0              0.0\r\n$ \r\n$         5         1.011       1.049    3.4              0.5\r\n$      --------------------------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 16. J. G. Berry and E. Reissner, \"The Effect of an Internal Compressible Fluid\r\n$     Column on the Breathing Vibrations of a Thin Pressurized Cylindrical\r\n$     Shell\", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294,\r\n$     May 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d08011a.inp",
    "content": "ID    D08011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   8,1                                                                       \r\nTIME  12                                                                        \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 10X10 PLATE                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-1A                          \r\n     SPC = 37                                                                   \r\n   DLOAD = 8                                                                    \r\nFREQUENCY= 8                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 1,4,7,11  45,55,  78,88,  111,114,117,121                            \r\n   DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n   SPCFORCE(SORT2,PHASE) = 1                                                    \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       2       THRU    109                                             \r\nCQUAD1  1       23      1       2       13      12      .00                     \r\nCQUAD1  2       23      2       3       14      13      .00                     \r\nCQUAD1  3       23      3       4       15      14      .00                     \r\nCQUAD1  4       23      4       5       16      15      .00                     \r\nCQUAD1  5       23      5       6       17      16      .00                     \r\nCQUAD1  6       23      6       7       18      17      .00                     \r\nCQUAD1  7       23      7       8       19      18      .00                     \r\nCQUAD1  8       23      8       9       20      19      .00                     \r\nCQUAD1  9       23      9       10      21      20      .00                     \r\nCQUAD1  10      23      10      11      22      21      .00                     \r\nCQUAD1  12      23      12      13      24      23      .00                     \r\nCQUAD1  13      23      13      14      25      24      .00                     \r\nCQUAD1  14      23      14      15      26      25      .00                     \r\nCQUAD1  15      23      15      16      27      26      .00                     \r\nCQUAD1  16      23      16      17      28      27      .00                     \r\nCQUAD1  17      23      17      18      29      28      .00                     \r\nCQUAD1  18      23      18      19      30      29      .00                     \r\nCQUAD1  19      23      19      20      31      30      .00                     \r\nCQUAD1  20      23      20      21      32      31      .00                     \r\nCQUAD1  21      23      21      22      33      32      .00                     \r\nCQUAD1  23      23      23      24      35      34      .00                     \r\nCQUAD1  24      23      24      25      36      35      .00                     \r\nCQUAD1  25      23      25      26      37      36      .00                     \r\nCQUAD1  26      23      26      27      38      37      .00                     \r\nCQUAD1  27      23      27      28      39      38      .00                     \r\nCQUAD1  28      23      28      29      40      39      .00                     \r\nCQUAD1  29      23      29      30      41      40      .00                     \r\nCQUAD1  30      23      30      31      42      41      .00                     \r\nCQUAD1  31      23      31      32      43      42      .00                     \r\nCQUAD1  32      23      32      33      44      43      .00                     \r\nCQUAD1  34      23      34      35      46      45      .00                     \r\nCQUAD1  35      23      35      36      47      46      .00                     \r\nCQUAD1  36      23      36      37      48      47      .00                     \r\nCQUAD1  37      23      37      38      49      48      .00                     \r\nCQUAD1  38      23      38      39      50      49      .00                     \r\nCQUAD1  39      23      39      40      51      50      .00                     \r\nCQUAD1  40      23      40      41      52      51      .00                     \r\nCQUAD1  41      23      41      42      53      52      .00                     \r\nCQUAD1  42      23      42      43      54      53      .00                     \r\nCQUAD1  43      23      43      44      55      54      .00                     \r\nCQUAD1  45      23      45      46      57      56      .00                     \r\nCQUAD1  46      23      46      47      58      57      .00                     \r\nCQUAD1  47      23      47      48      59      58      .00                     \r\nCQUAD1  48      23      48      49      60      59      .00                     \r\nCQUAD1  49      23      49      50      61      60      .00                     \r\nCQUAD1  50      23      50      51      62      61      .00                     \r\nCQUAD1  51      23      51      52      63      62      .00                     \r\nCQUAD1  52      23      52      53      64      63      .00                     \r\nCQUAD1  53      23      53      54      65      64      .00                     \r\nCQUAD1  54      23      54      55      66      65      .00                     \r\nCQUAD1  56      23      56      57      68      67      .00                     \r\nCQUAD1  57      23      57      58      69      68      .00                     \r\nCQUAD1  58      23      58      59      70      69      .00                     \r\nCQUAD1  59      23      59      60      71      70      .00                     \r\nCQUAD1  60      23      60      61      72      71      .00                     \r\nCQUAD1  61      23      61      62      73      72      .00                     \r\nCQUAD1  62      23      62      63      74      73      .00                     \r\nCQUAD1  63      23      63      64      75      74      .00                     \r\nCQUAD1  64      23      64      65      76      75      .00                     \r\nCQUAD1  65      23      65      66      77      76      .00                     \r\nCQUAD1  67      23      67      68      79      78      .00                     \r\nCQUAD1  68      23      68      69      80      79      .00                     \r\nCQUAD1  69      23      69      70      81      80      .00                     \r\nCQUAD1  70      23      70      71      82      81      .00                     \r\nCQUAD1  71      23      71      72      83      82      .00                     \r\nCQUAD1  72      23      72      73      84      83      .00                     \r\nCQUAD1  73      23      73      74      85      84      .00                     \r\nCQUAD1  74      23      74      75      86      85      .00                     \r\nCQUAD1  75      23      75      76      87      86      .00                     \r\nCQUAD1  76      23      76      77      88      87      .00                     \r\nCQUAD1  78      23      78      79      90      89      .00                     \r\nCQUAD1  79      23      79      80      91      90      .00                     \r\nCQUAD1  80      23      80      81      92      91      .00                     \r\nCQUAD1  81      23      81      82      93      92      .00                     \r\nCQUAD1  82      23      82      83      94      93      .00                     \r\nCQUAD1  83      23      83      84      95      94      .00                     \r\nCQUAD1  84      23      84      85      96      95      .00                     \r\nCQUAD1  85      23      85      86      97      96      .00                     \r\nCQUAD1  86      23      86      87      98      97      .00                     \r\nCQUAD1  87      23      87      88      99      98      .00                     \r\nCQUAD1  89      23      89      90      101     100     .00                     \r\nCQUAD1  90      23      90      91      102     101     .00                     \r\nCQUAD1  91      23      91      92      103     102     .00                     \r\nCQUAD1  92      23      92      93      104     103     .00                     \r\nCQUAD1  93      23      93      94      105     104     .00                     \r\nCQUAD1  94      23      94      95      106     105     .00                     \r\nCQUAD1  95      23      95      96      107     106     .00                     \r\nCQUAD1  96      23      96      97      108     107     .00                     \r\nCQUAD1  97      23      97      98      109     108     .00                     \r\nCQUAD1  98      23      98      99      110     109     .00                     \r\nCQUAD1  100     23      100     101     112     111     .00                     \r\nCQUAD1  101     23      101     102     113     112     .00                     \r\nCQUAD1  102     23      102     103     114     113     .00                     \r\nCQUAD1  103     23      103     104     115     114     .00                     \r\nCQUAD1  104     23      104     105     116     115     .00                     \r\nCQUAD1  105     23      105     106     117     116     .00                     \r\nCQUAD1  106     23      106     107     118     117     .00                     \r\nCQUAD1  107     23      107     108     119     118     .00                     \r\nCQUAD1  108     23      108     109     120     119     .00                     \r\nCQUAD1  109     23      109     110     121     120     .00                     \r\nDAREA  *37              1               3               2.5000000E-01           \r\nDAREA  *37              2               3               4.9384417E-01           \r\nDAREA  *37              3               3               4.7552826E-01           \r\nDAREA  *37              4               3               4.4550326E-01           \r\nDAREA  *37              5               3               4.0450850E-01           \r\nDAREA  *37              6               3               3.5355339E-01           \r\nDAREA  *37              7               3               2.9389263E-01           \r\nDAREA  *37              8               3               2.2699525E-01           \r\nDAREA  *37              9               3               1.5450850E-01           \r\nDAREA  *37              10              3               7.8217242E-02           \r\nDAREA  *37              12              3               4.9384417E-01           \r\nDAREA  *37              13              3               9.7552826E-01           \r\nDAREA  *37              14              3               9.3934743E-01           \r\nDAREA  *37              15              3               8.8003676E-01           \r\nDAREA  *37              16              3               7.9905665E-01           \r\nDAREA  *37              17              3               6.9840112E-01           \r\nDAREA  *37              18              3               5.8054864E-01           \r\nDAREA  *37              19              3               4.4840113E-01           \r\nDAREA  *37              20              3               3.0521249E-01           \r\nDAREA  *37              21              3               1.5450851E-01           \r\nDAREA  *37              23              3               4.7552826E-01           \r\nDAREA  *37              24              3               9.3934743E-01           \r\nDAREA  *37              25              3               9.0450849E-01           \r\nDAREA  *37              26              3               8.4739757E-01           \r\nDAREA  *37              27              3               7.6942088E-01           \r\nDAREA  *37              28              3               6.7249851E-01           \r\nDAREA  *37              29              3               5.5901700E-01           \r\nDAREA  *37              30              3               4.3177063E-01           \r\nDAREA  *37              31              3               2.9389264E-01           \r\nDAREA  *37              32              3               1.4877803E-01           \r\nDAREA  *37              34              3               4.4550326E-01           \r\nDAREA  *37              35              3               8.8003676E-01           \r\nDAREA  *37              36              3               8.4739757E-01           \r\nDAREA  *37              37              3               7.9389263E-01           \r\nDAREA  *37              38              3               7.2083942E-01           \r\nDAREA  *37              39              3               6.3003676E-01           \r\nDAREA  *37              40              3               5.2372050E-01           \r\nDAREA  *37              41              3               4.0450851E-01           \r\nDAREA  *37              42              3               2.7533617E-01           \r\nDAREA  *37              43              3               1.3938414E-01           \r\nDAREA  *37              45              3               4.0450850E-01           \r\nDAREA  *37              46              3               7.9905665E-01           \r\nDAREA  *37              47              3               7.6942088E-01           \r\nDAREA  *37              48              3               7.2083942E-01           \r\nDAREA  *37              49              3               6.5450849E-01           \r\nDAREA  *37              50              3               5.7206140E-01           \r\nDAREA  *37              51              3               4.7552826E-01           \r\nDAREA  *37              52              3               3.6728603E-01           \r\nDAREA  *37              53              3               2.5000001E-01           \r\nDAREA  *37              54              3               1.2655815E-01           \r\nDAREA  *37              56              3               3.5355339E-01           \r\nDAREA  *37              57              3               6.9840112E-01           \r\nDAREA  *37              58              3               6.7249851E-01           \r\nDAREA  *37              59              3               6.3003676E-01           \r\nDAREA  *37              60              3               5.7206140E-01           \r\nDAREA  *37              61              3               5.0000000E-01           \r\nDAREA  *37              62              3               4.1562694E-01           \r\nDAREA  *37              63              3               3.2101976E-01           \r\nDAREA  *37              64              3               2.1850802E-01           \r\nDAREA  *37              65              3               1.1061588E-01           \r\nDAREA  *37              67              3               2.9389263E-01           \r\nDAREA  *37              68              3               5.8054864E-01           \r\nDAREA  *37              69              3               5.5901700E-01           \r\nDAREA  *37              70              3               5.2372050E-01           \r\nDAREA  *37              71              3               4.7552826E-01           \r\nDAREA  *37              72              3               4.1562694E-01           \r\nDAREA  *37              73              3               3.4549151E-01           \r\nDAREA  *37              74              3               2.6684893E-01           \r\nDAREA  *37              75              3               1.8163564E-01           \r\nDAREA  *37              76              3               9.1949883E-02           \r\nDAREA  *37              78              3               2.2699525E-01           \r\nDAREA  *37              79              3               4.4840113E-01           \r\nDAREA  *37              80              3               4.3177063E-01           \r\nDAREA  *37              81              3               4.0450851E-01           \r\nDAREA  *37              82              3               3.6728603E-01           \r\nDAREA  *37              83              3               3.2101976E-01           \r\nDAREA  *37              84              3               2.6684893E-01           \r\nDAREA  *37              85              3               2.0610738E-01           \r\nDAREA  *37              86              3               1.4029079E-01           \r\nDAREA  *37              87              3               7.1019771E-02           \r\nDAREA  *37              89              3               1.5450850E-01           \r\nDAREA  *37              90              3               3.0521249E-01           \r\nDAREA  *37              91              3               2.9389264E-01           \r\nDAREA  *37              92              3               2.7533617E-01           \r\nDAREA  *37              93              3               2.5000001E-01           \r\nDAREA  *37              94              3               2.1850802E-01           \r\nDAREA  *37              95              3               1.8163564E-01           \r\nDAREA  *37              96              3               1.4029079E-01           \r\nDAREA  *37              97              3               9.5491510E-02           \r\nDAREA  *37              98              3               4.8340916E-02           \r\nDAREA  *37              100             3               7.8217242E-02           \r\nDAREA  *37              101             3               1.5450851E-01           \r\nDAREA  *37              102             3               1.4877803E-01           \r\nDAREA  *37              103             3               1.3938414E-01           \r\nDAREA  *37              104             3               1.2655815E-01           \r\nDAREA  *37              105             3               1.1061588E-01           \r\nDAREA  *37              106             3               9.1949883E-02           \r\nDAREA  *37              107             3               7.1019771E-02           \r\nDAREA  *37              108             3               4.8340916E-02           \r\nDAREA  *37              109             3               2.4471748E-02           \r\nFREQ    8       .0      8.0     9.0     10.0    11.0                            \r\nGRDSET                                                  126                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               1.0     .0      .0                                      \r\nGRID    3               2.0     .0      .0                                      \r\nGRID    4               3.0     .0      .0                                      \r\nGRID    5               4.0     .0      .0                                      \r\nGRID    6               5.0     .0      .0                                      \r\nGRID    7               6.0     .0      .0                                      \r\nGRID    8               7.0     .0      .0                                      \r\nGRID    9               8.0     .0      .0                                      \r\nGRID    10              9.0     .0      .0                                      \r\nGRID    11              10.0    .0      .0                                      \r\nGRID    12              .0      1.0     .0                                      \r\nGRID    13              1.0     1.0     .0                                      \r\nGRID    14              2.0     1.0     .0                                      \r\nGRID    15              3.0     1.0     .0                                      \r\nGRID    16              4.0     1.0     .0                                      \r\nGRID    17              5.0     1.0     .0                                      \r\nGRID    18              6.0     1.0     .0                                      \r\nGRID    19              7.0     1.0     .0                                      \r\nGRID    20              8.0     1.0     .0                                      \r\nGRID    21              9.0     1.0     .0                                      \r\nGRID    22              10.0    1.0     .0                                      \r\nGRID    23              .0      2.0     .0                                      \r\nGRID    24              1.0     2.0     .0                                      \r\nGRID    25              2.0     2.0     .0                                      \r\nGRID    26              3.0     2.0     .0                                      \r\nGRID    27              4.0     2.0     .0                                      \r\nGRID    28              5.0     2.0     .0                                      \r\nGRID    29              6.0     2.0     .0                                      \r\nGRID    30              7.0     2.0     .0                                      \r\nGRID    31              8.0     2.0     .0                                      \r\nGRID    32              9.0     2.0     .0                                      \r\nGRID    33              10.0    2.0     .0                                      \r\nGRID    34              .0      3.0     .0                                      \r\nGRID    35              1.0     3.0     .0                                      \r\nGRID    36              2.0     3.0     .0                                      \r\nGRID    37              3.0     3.0     .0                                      \r\nGRID    38              4.0     3.0     .0                                      \r\nGRID    39              5.0     3.0     .0                                      \r\nGRID    40              6.0     3.0     .0                                      \r\nGRID    41              7.0     3.0     .0                                      \r\nGRID    42              8.0     3.0     .0                                      \r\nGRID    43              9.0     3.0     .0                                      \r\nGRID    44              10.0    3.0     .0                                      \r\nGRID    45              .0      4.0     .0                                      \r\nGRID    46              1.0     4.0     .0                                      \r\nGRID    47              2.0     4.0     .0                                      \r\nGRID    48              3.0     4.0     .0                                      \r\nGRID    49              4.0     4.0     .0                                      \r\nGRID    50              5.0     4.0     .0                                      \r\nGRID    51              6.0     4.0     .0                                      \r\nGRID    52              7.0     4.0     .0                                      \r\nGRID    53              8.0     4.0     .0                                      \r\nGRID    54              9.0     4.0     .0                                      \r\nGRID    55              10.0    4.0     .0                                      \r\nGRID    56              .0      5.0     .0                                      \r\nGRID    57              1.0     5.0     .0                                      \r\nGRID    58              2.0     5.0     .0                                      \r\nGRID    59              3.0     5.0     .0                                      \r\nGRID    60              4.0     5.0     .0                                      \r\nGRID    61              5.0     5.0     .0                                      \r\nGRID    62              6.0     5.0     .0                                      \r\nGRID    63              7.0     5.0     .0                                      \r\nGRID    64              8.0     5.0     .0                                      \r\nGRID    65              9.0     5.0     .0                                      \r\nGRID    66              10.0    5.0     .0                                      \r\nGRID    67              .0      6.0     .0                                      \r\nGRID    68              1.0     6.0     .0                                      \r\nGRID    69              2.0     6.0     .0                                      \r\nGRID    70              3.0     6.0     .0                                      \r\nGRID    71              4.0     6.0     .0                                      \r\nGRID    72              5.0     6.0     .0                                      \r\nGRID    73              6.0     6.0     .0                                      \r\nGRID    74              7.0     6.0     .0                                      \r\nGRID    75              8.0     6.0     .0                                      \r\nGRID    76              9.0     6.0     .0                                      \r\nGRID    77              10.0    6.0     .0                                      \r\nGRID    78              .0      7.0     .0                                      \r\nGRID    79              1.0     7.0     .0                                      \r\nGRID    80              2.0     7.0     .0                                      \r\nGRID    81              3.0     7.0     .0                                      \r\nGRID    82              4.0     7.0     .0                                      \r\nGRID    83              5.0     7.0     .0                                      \r\nGRID    84              6.0     7.0     .0                                      \r\nGRID    85              7.0     7.0     .0                                      \r\nGRID    86              8.0     7.0     .0                                      \r\nGRID    87              9.0     7.0     .0                                      \r\nGRID    88              10.0    7.0     .0                                      \r\nGRID    89              .0      8.0     .0                                      \r\nGRID    90              1.0     8.0     .0                                      \r\nGRID    91              2.0     8.0     .0                                      \r\nGRID    92              3.0     8.0     .0                                      \r\nGRID    93              4.0     8.0     .0                                      \r\nGRID    94              5.0     8.0     .0                                      \r\nGRID    95              6.0     8.0     .0                                      \r\nGRID    96              7.0     8.0     .0                                      \r\nGRID    97              8.0     8.0     .0                                      \r\nGRID    98              9.0     8.0     .0                                      \r\nGRID    99              10.0    8.0     .0                                      \r\nGRID    100             .0      9.0     .0                                      \r\nGRID    101             1.0     9.0     .0                                      \r\nGRID    102             2.0     9.0     .0                                      \r\nGRID    103             3.0     9.0     .0                                      \r\nGRID    104             4.0     9.0     .0                                      \r\nGRID    105             5.0     9.0     .0                                      \r\nGRID    106             6.0     9.0     .0                                      \r\nGRID    107             7.0     9.0     .0                                      \r\nGRID    108             8.0     9.0     .0                                      \r\nGRID    109             9.0     9.0     .0                                      \r\nGRID    110             10.0    9.0     .0                                      \r\nGRID    111             .0      10.0    .0                                      \r\nGRID    112             1.0     10.0    .0                                      \r\nGRID    113             2.0     10.0    .0                                      \r\nGRID    114             3.0     10.0    .0                                      \r\nGRID    115             4.0     10.0    .0                                      \r\nGRID    116             5.0     10.0    .0                                      \r\nGRID    117             6.0     10.0    .0                                      \r\nGRID    118             7.0     10.0    .0                                      \r\nGRID    119             8.0     10.0    .0                                      \r\nGRID    120             9.0     10.0    .0                                      \r\nGRID    121             10.0    10.0    .0                                      \r\nMAT1    8       3.0+7           .300                                            \r\nPQUAD1  23                      8       .6666667                13.55715        \r\nRLOAD1  8       37                      1                                       \r\nSPC1    37      4       1       2       3       4       5       6       +41001H \r\n+41001H 7       8       9       10      11                                      \r\nSPC1    37      5       1       12      23      34      45      56      +31001H \r\n+31001H 67      78      89      100     111                                     \r\nSPC1    37      34      11      22      33      44      55      66      +11001H \r\n+11001H 77      88      99      110     121                                     \r\nSPC1    37      35      111     112     113     114     115     116     +21001H \r\n+21001H 117     118     119     120     121                                     \r\nTABLED1 1                                                               +T1     \r\n+T1     .0      10.0    100.0   40.0    ENDT                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d08011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation\r\n$                   Frequency Response of a 10x10 Plate (8-1-1)\r\n$                   Frequency Response of a 20x20 Plate (8-1-2)\r\n$               Frequency Response of a 10x10 Plate (INPUT, 8-1-3)\r\n$               Frequency Response of a 20x20 Plate (INPUT, 8-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the direct method of determining\r\n$ structural response to steady-state sinusoidal loads, The applied load is\r\n$ given in terms of complex numbers which reflect the amplitudes and phases at\r\n$ each selected frequency. The steady-state response of the structure at each\r\n$ frequency is calculated in terms of complex numbers which reflect the\r\n$ magnitudes and phases of the results. Both configurations are duplicated via\r\n$ the INPUT module to generate the QUAD1 elements.\r\n$ \r\n$ The particular model for this analysis is a square plate composed of\r\n$ quadrilateral plate elements. The exterior edges are supported on hinged\r\n$ supports and symmetric boundaries are used along x = 0 and y = 0. The applied\r\n$ load is sinusoidally distributed over the panel and increases with respect to\r\n$ frequency. Although the applied load excites only the first node, the direct\r\n$ formulation algorithm does not use this shortcut and solves the problem as\r\n$ though the load were completely general.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a =  b = 10    - length and width of quarter model\r\n$ \r\n$    t =  2.0       - thickness\r\n$ \r\n$                 7\r\n$    E =  3.0 x 10  - Young's Modulus\r\n$ \r\n$    v =  0.3       - Poisson's Ratio\r\n$ \r\n$    mu = 13.55715  - nonstructural mass per area\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The frequency dependent pressure function is:\r\n$ \r\n$                            pi x      pi y\r\n$      P(x,y,f)  =  F(f) cos ----  cos ----                                  (1)\r\n$                             2a        2b\r\n$ \r\n$    where\r\n$ \r\n$      F(f)  =  10. + 0.3f                                                   (2)\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    Only vertical notions and bending rotations are allowed, The exterior\r\n$    edges are hinged supports. The interior edges are planes of symmetry, This\r\n$    implies:\r\n$ \r\n$      along x = 0, theta  = 0\r\n$                        y\r\n$ \r\n$      along y = 0, theta  = 0\r\n$                        x\r\n$ \r\n$      along x = a, u  = theta  = 0\r\n$                    z        x\r\n$ \r\n$      along y = b, u  = theta  = 0\r\n$                    z        y\r\n$ \r\n$      all points, u  = u  = theta  = 0\r\n$                   x    y        z\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The excitation of the plate is orthogonal to the theoretical first mode, An\r\n$ explanation of the equations is given in Reference 8. The equations of\r\n$ response are:\r\n$ \r\n$                     F(f)\r\n$    u (f)  =  ------------------                                            (3)\r\n$     z              2    2    2\r\n$              (2 pi) mu(f  - f )\r\n$                         1\r\n$ \r\n$ where f  is the first natural frequency (10 Hz).\r\n$        1\r\n$ \r\n$ D. Results\r\n$ \r\n$ The following table gives the theoretical and NASTRAN results:\r\n$ \r\n$                ---------------------------------------------------\r\n$                                                  4\r\n$                                         u    x 10\r\n$                                          z,1\r\n$                Frequency    --------------------------------------\r\n$                   Hz        Theory  10x10 NASTRAN   20x20 NASTRAN\r\n$                ---------------------------------------------------\r\n$                    0         1.868        1.874       1.869\r\n$ \r\n$                    8         6.435        6.49        6.45\r\n$ \r\n$                    9        12.489       12.69        12.53\r\n$ \r\n$                   10        infinite    -824.92      -3284.4\r\n$ \r\n$                   11       -11.833      -11.67       -11.79\r\n$                ---------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d08012a.inp",
    "content": "ID    D08012A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   8,1                                                                       \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 20X20 PLATE                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-2A                          \r\n     SPC = 37                                                                   \r\n   DLOAD =  8                                                                   \r\nFREQUENCY= 8                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 1,7,13,21,  169,189,  295,315,  421,427,433,441                      \r\n   DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n   SPCFORCE(SORT2,PHASE) = 1                                                    \r\nBEGIN BULK                                                                      \r\nCNGRNT  1       2       THRU    419                                             \r\nCQUAD1  1       23      1       2       23      22      .00                     \r\nCQUAD1  2       23      2       3       24      23      .00                     \r\nCQUAD1  3       23      3       4       25      24      .00                     \r\nCQUAD1  4       23      4       5       26      25      .00                     \r\nCQUAD1  5       23      5       6       27      26      .00                     \r\nCQUAD1  6       23      6       7       28      27      .00                     \r\nCQUAD1  7       23      7       8       29      28      .00                     \r\nCQUAD1  8       23      8       9       30      29      .00                     \r\nCQUAD1  9       23      9       10      31      30      .00                     \r\nCQUAD1  10      23      10      11      32      31      .00                     \r\nCQUAD1  11      23      11      12      33      32      .00                     \r\nCQUAD1  12      23      12      13      34      33      .00                     \r\nCQUAD1  13      23      13      14      35      34      .00                     \r\nCQUAD1  14      23      14      15      36      35      .00                     \r\nCQUAD1  15      23      15      16      37      36      .00                     \r\nCQUAD1  16      23      16      17      38      37      .00                     \r\nCQUAD1  17      23      17      18      39      38      .00                     \r\nCQUAD1  18      23      18      19      40      39      .00                     \r\nCQUAD1  19      23      19      20      41      40      .00                     \r\nCQUAD1  20      23      20      21      42      41      .00                     \r\nCQUAD1  22      23      22      23      44      43      .00                     \r\nCQUAD1  23      23      23      24      45      44      .00                     \r\nCQUAD1  24      23      24      25      46      45      .00                     \r\nCQUAD1  25      23      25      26      47      46      .00                     \r\nCQUAD1  26      23      26      27      48      47      .00                     \r\nCQUAD1  27      23      27      28      49      48      .00                     \r\nCQUAD1  28      23      28      29      50      49      .00                     \r\nCQUAD1  29      23      29      30      51      50      .00                     \r\nCQUAD1  30      23      30      31      52      51      .00                     \r\nCQUAD1  31      23      31      32      53      52      .00                     \r\nCQUAD1  32      23      32      33      54      53      .00                     \r\nCQUAD1  33      23      33      34      55      54      .00                     \r\nCQUAD1  34      23      34      35      56      55      .00                     \r\nCQUAD1  35      23      35      36      57      56      .00                     \r\nCQUAD1  36      23      36      37      58      57      .00                     \r\nCQUAD1  37      23      37      38      59      58      .00                     \r\nCQUAD1  38      23      38      39      60      59      .00                     \r\nCQUAD1  39      23      39      40      61      60      .00                     \r\nCQUAD1  40      23      40      41      62      61      .00                     \r\nCQUAD1  41      23      41      42      63      62      .00                     \r\nCQUAD1  43      23      43      44      65      64      .00                     \r\nCQUAD1  44      23      44      45      66      65      .00                     \r\nCQUAD1  45      23      45      46      67      66      .00                     \r\nCQUAD1  46      23      46      47      68      67      .00                     \r\nCQUAD1  47      23      47      48      69      68      .00                     \r\nCQUAD1  48      23      48      49      70      69      .00                     \r\nCQUAD1  49      23      49      50      71      70      .00                     \r\nCQUAD1  50      23      50      51      72      71      .00                     \r\nCQUAD1  51      23      51      52      73      72      .00                     \r\nCQUAD1  52      23      52      53      74      73      .00                     \r\nCQUAD1  53      23      53      54      75      74      .00                     \r\nCQUAD1  54      23      54      55      76      75      .00                     \r\nCQUAD1  55      23      55      56      77      76      .00                     \r\nCQUAD1  56      23      56      57      78      77      .00                     \r\nCQUAD1  57      23      57      58      79      78      .00                     \r\nCQUAD1  58      23      58      59      80      79      .00                     \r\nCQUAD1  59      23      59      60      81      80      .00                     \r\nCQUAD1  60      23      60      61      82      81      .00                     \r\nCQUAD1  61      23      61      62      83      82      .00                     \r\nCQUAD1  62      23      62      63      84      83      .00                     \r\nCQUAD1  64      23      64      65      86      85      .00                     \r\nCQUAD1  65      23      65      66      87      86      .00                     \r\nCQUAD1  66      23      66      67      88      87      .00                     \r\nCQUAD1  67      23      67      68      89      88      .00                     \r\nCQUAD1  68      23      68      69      90      89      .00                     \r\nCQUAD1  69      23      69      70      91      90      .00                     \r\nCQUAD1  70      23      70      71      92      91      .00                     \r\nCQUAD1  71      23      71      72      93      92      .00                     \r\nCQUAD1  72      23      72      73      94      93      .00                     \r\nCQUAD1  73      23      73      74      95      94      .00                     \r\nCQUAD1  74      23      74      75      96      95      .00                     \r\nCQUAD1  75      23      75      76      97      96      .00                     \r\nCQUAD1  76      23      76      77      98      97      .00                     \r\nCQUAD1  77      23      77      78      99      98      .00                     \r\nCQUAD1  78      23      78      79      100     99      .00                     \r\nCQUAD1  79      23      79      80      101     100     .00                     \r\nCQUAD1  80      23      80      81      102     101     .00                     \r\nCQUAD1  81      23      81      82      103     102     .00                     \r\nCQUAD1  82      23      82      83      104     103     .00                     \r\nCQUAD1  83      23      83      84      105     104     .00                     \r\nCQUAD1  85      23      85      86      107     106     .00                     \r\nCQUAD1  86      23      86      87      108     107     .00                     \r\nCQUAD1  87      23      87      88      109     108     .00                     \r\nCQUAD1  88      23      88      89      110     109     .00                     \r\nCQUAD1  89      23      89      90      111     110     .00                     \r\nCQUAD1  90      23      90      91      112     111     .00                     \r\nCQUAD1  91      23      91      92      113     112     .00                     \r\nCQUAD1  92      23      92      93      114     113     .00                     \r\nCQUAD1  93      23      93      94      115     114     .00                     \r\nCQUAD1  94      23      94      95      116     115     .00                     \r\nCQUAD1  95      23      95      96      117     116     .00                     \r\nCQUAD1  96      23      96      97      118     117     .00                     \r\nCQUAD1  97      23      97      98      119     118     .00                     \r\nCQUAD1  98      23      98      99      120     119     .00                     \r\nCQUAD1  99      23      99      100     121     120     .00                     \r\nCQUAD1  100     23      100     101     122     121     .00                     \r\nCQUAD1  101     23      101     102     123     122     .00                     \r\nCQUAD1  102     23      102     103     124     123     .00                     \r\nCQUAD1  103     23      103     104     125     124     .00                     \r\nCQUAD1  104     23      104     105     126     125     .00                     \r\nCQUAD1  106     23      106     107     128     127     .00                     \r\nCQUAD1  107     23      107     108     129     128     .00                     \r\nCQUAD1  108     23      108     109     130     129     .00                     \r\nCQUAD1  109     23      109     110     131     130     .00                     \r\nCQUAD1  110     23      110     111     132     131     .00                     \r\nCQUAD1  111     23      111     112     133     132     .00                     \r\nCQUAD1  112     23      112     113     134     133     .00                     \r\nCQUAD1  113     23      113     114     135     134     .00                     \r\nCQUAD1  114     23      114     115     136     135     .00                     \r\nCQUAD1  115     23      115     116     137     136     .00                     \r\nCQUAD1  116     23      116     117     138     137     .00                     \r\nCQUAD1  117     23      117     118     139     138     .00                     \r\nCQUAD1  118     23      118     119     140     139     .00                     \r\nCQUAD1  119     23      119     120     141     140     .00                     \r\nCQUAD1  120     23      120     121     142     141     .00                     \r\nCQUAD1  121     23      121     122     143     142     .00                     \r\nCQUAD1  122     23      122     123     144     143     .00                     \r\nCQUAD1  123     23      123     124     145     144     .00                     \r\nCQUAD1  124     23      124     125     146     145     .00                     \r\nCQUAD1  125     23      125     126     147     146     .00                     \r\nCQUAD1  127     23      127     128     149     148     .00                     \r\nCQUAD1  128     23      128     129     150     149     .00                     \r\nCQUAD1  129     23      129     130     151     150     .00                     \r\nCQUAD1  130     23      130     131     152     151     .00                     \r\nCQUAD1  131     23      131     132     153     152     .00                     \r\nCQUAD1  132     23      132     133     154     153     .00                     \r\nCQUAD1  133     23      133     134     155     154     .00                     \r\nCQUAD1  134     23      134     135     156     155     .00                     \r\nCQUAD1  135     23      135     136     157     156     .00                     \r\nCQUAD1  136     23      136     137     158     157     .00                     \r\nCQUAD1  137     23      137     138     159     158     .00                     \r\nCQUAD1  138     23      138     139     160     159     .00                     \r\nCQUAD1  139     23      139     140     161     160     .00                     \r\nCQUAD1  140     23      140     141     162     161     .00                     \r\nCQUAD1  141     23      141     142     163     162     .00                     \r\nCQUAD1  142     23      142     143     164     163     .00                     \r\nCQUAD1  143     23      143     144     165     164     .00                     \r\nCQUAD1  144     23      144     145     166     165     .00                     \r\nCQUAD1  145     23      145     146     167     166     .00                     \r\nCQUAD1  146     23      146     147     168     167     .00                     \r\nCQUAD1  148     23      148     149     170     169     .00                     \r\nCQUAD1  149     23      149     150     171     170     .00                     \r\nCQUAD1  150     23      150     151     172     171     .00                     \r\nCQUAD1  151     23      151     152     173     172     .00                     \r\nCQUAD1  152     23      152     153     174     173     .00                     \r\nCQUAD1  153     23      153     154     175     174     .00                     \r\nCQUAD1  154     23      154     155     176     175     .00                     \r\nCQUAD1  155     23      155     156     177     176     .00                     \r\nCQUAD1  156     23      156     157     178     177     .00                     \r\nCQUAD1  157     23      157     158     179     178     .00                     \r\nCQUAD1  158     23      158     159     180     179     .00                     \r\nCQUAD1  159     23      159     160     181     180     .00                     \r\nCQUAD1  160     23      160     161     182     181     .00                     \r\nCQUAD1  161     23      161     162     183     182     .00                     \r\nCQUAD1  162     23      162     163     184     183     .00                     \r\nCQUAD1  163     23      163     164     185     184     .00                     \r\nCQUAD1  164     23      164     165     186     185     .00                     \r\nCQUAD1  165     23      165     166     187     186     .00                     \r\nCQUAD1  166     23      166     167     188     187     .00                     \r\nCQUAD1  167     23      167     168     189     188     .00                     \r\nCQUAD1  169     23      169     170     191     190     .00                     \r\nCQUAD1  170     23      170     171     192     191     .00                     \r\nCQUAD1  171     23      171     172     193     192     .00                     \r\nCQUAD1  172     23      172     173     194     193     .00                     \r\nCQUAD1  173     23      173     174     195     194     .00                     \r\nCQUAD1  174     23      174     175     196     195     .00                     \r\nCQUAD1  175     23      175     176     197     196     .00                     \r\nCQUAD1  176     23      176     177     198     197     .00                     \r\nCQUAD1  177     23      177     178     199     198     .00                     \r\nCQUAD1  178     23      178     179     200     199     .00                     \r\nCQUAD1  179     23      179     180     201     200     .00                     \r\nCQUAD1  180     23      180     181     202     201     .00                     \r\nCQUAD1  181     23      181     182     203     202     .00                     \r\nCQUAD1  182     23      182     183     204     203     .00                     \r\nCQUAD1  183     23      183     184     205     204     .00                     \r\nCQUAD1  184     23      184     185     206     205     .00                     \r\nCQUAD1  185     23      185     186     207     206     .00                     \r\nCQUAD1  186     23      186     187     208     207     .00                     \r\nCQUAD1  187     23      187     188     209     208     .00                     \r\nCQUAD1  188     23      188     189     210     209     .00                     \r\nCQUAD1  190     23      190     191     212     211     .00                     \r\nCQUAD1  191     23      191     192     213     212     .00                     \r\nCQUAD1  192     23      192     193     214     213     .00                     \r\nCQUAD1  193     23      193     194     215     214     .00                     \r\nCQUAD1  194     23      194     195     216     215     .00                     \r\nCQUAD1  195     23      195     196     217     216     .00                     \r\nCQUAD1  196     23      196     197     218     217     .00                     \r\nCQUAD1  197     23      197     198     219     218     .00                     \r\nCQUAD1  198     23      198     199     220     219     .00                     \r\nCQUAD1  199     23      199     200     221     220     .00                     \r\nCQUAD1  200     23      200     201     222     221     .00                     \r\nCQUAD1  201     23      201     202     223     222     .00                     \r\nCQUAD1  202     23      202     203     224     223     .00                     \r\nCQUAD1  203     23      203     204     225     224     .00                     \r\nCQUAD1  204     23      204     205     226     225     .00                     \r\nCQUAD1  205     23      205     206     227     226     .00                     \r\nCQUAD1  206     23      206     207     228     227     .00                     \r\nCQUAD1  207     23      207     208     229     228     .00                     \r\nCQUAD1  208     23      208     209     230     229     .00                     \r\nCQUAD1  209     23      209     210     231     230     .00                     \r\nCQUAD1  211     23      211     212     233     232     .00                     \r\nCQUAD1  212     23      212     213     234     233     .00                     \r\nCQUAD1  213     23      213     214     235     234     .00                     \r\nCQUAD1  214     23      214     215     236     235     .00                     \r\nCQUAD1  215     23      215     216     237     236     .00                     \r\nCQUAD1  216     23      216     217     238     237     .00                     \r\nCQUAD1  217     23      217     218     239     238     .00                     \r\nCQUAD1  218     23      218     219     240     239     .00                     \r\nCQUAD1  219     23      219     220     241     240     .00                     \r\nCQUAD1  220     23      220     221     242     241     .00                     \r\nCQUAD1  221     23      221     222     243     242     .00                     \r\nCQUAD1  222     23      222     223     244     243     .00                     \r\nCQUAD1  223     23      223     224     245     244     .00                     \r\nCQUAD1  224     23      224     225     246     245     .00                     \r\nCQUAD1  225     23      225     226     247     246     .00                     \r\nCQUAD1  226     23      226     227     248     247     .00                     \r\nCQUAD1  227     23      227     228     249     248     .00                     \r\nCQUAD1  228     23      228     229     250     249     .00                     \r\nCQUAD1  229     23      229     230     251     250     .00                     \r\nCQUAD1  230     23      230     231     252     251     .00                     \r\nCQUAD1  232     23      232     233     254     253     .00                     \r\nCQUAD1  233     23      233     234     255     254     .00                     \r\nCQUAD1  234     23      234     235     256     255     .00                     \r\nCQUAD1  235     23      235     236     257     256     .00                     \r\nCQUAD1  236     23      236     237     258     257     .00                     \r\nCQUAD1  237     23      237     238     259     258     .00                     \r\nCQUAD1  238     23      238     239     260     259     .00                     \r\nCQUAD1  239     23      239     240     261     260     .00                     \r\nCQUAD1  240     23      240     241     262     261     .00                     \r\nCQUAD1  241     23      241     242     263     262     .00                     \r\nCQUAD1  242     23      242     243     264     263     .00                     \r\nCQUAD1  243     23      243     244     265     264     .00                     \r\nCQUAD1  244     23      244     245     266     265     .00                     \r\nCQUAD1  245     23      245     246     267     266     .00                     \r\nCQUAD1  246     23      246     247     268     267     .00                     \r\nCQUAD1  247     23      247     248     269     268     .00                     \r\nCQUAD1  248     23      248     249     270     269     .00                     \r\nCQUAD1  249     23      249     250     271     270     .00                     \r\nCQUAD1  250     23      250     251     272     271     .00                     \r\nCQUAD1  251     23      251     252     273     272     .00                     \r\nCQUAD1  253     23      253     254     275     274     .00                     \r\nCQUAD1  254     23      254     255     276     275     .00                     \r\nCQUAD1  255     23      255     256     277     276     .00                     \r\nCQUAD1  256     23      256     257     278     277     .00                     \r\nCQUAD1  257     23      257     258     279     278     .00                     \r\nCQUAD1  258     23      258     259     280     279     .00                     \r\nCQUAD1  259     23      259     260     281     280     .00                     \r\nCQUAD1  260     23      260     261     282     281     .00                     \r\nCQUAD1  261     23      261     262     283     282     .00                     \r\nCQUAD1  262     23      262     263     284     283     .00                     \r\nCQUAD1  263     23      263     264     285     284     .00                     \r\nCQUAD1  264     23      264     265     286     285     .00                     \r\nCQUAD1  265     23      265     266     287     286     .00                     \r\nCQUAD1  266     23      266     267     288     287     .00                     \r\nCQUAD1  267     23      267     268     289     288     .00                     \r\nCQUAD1  268     23      268     269     290     289     .00                     \r\nCQUAD1  269     23      269     270     291     290     .00                     \r\nCQUAD1  270     23      270     271     292     291     .00                     \r\nCQUAD1  271     23      271     272     293     292     .00                     \r\nCQUAD1  272     23      272     273     294     293     .00                     \r\nCQUAD1  274     23      274     275     296     295     .00                     \r\nCQUAD1  275     23      275     276     297     296     .00                     \r\nCQUAD1  276     23      276     277     298     297     .00                     \r\nCQUAD1  277     23      277     278     299     298     .00                     \r\nCQUAD1  278     23      278     279     300     299     .00                     \r\nCQUAD1  279     23      279     280     301     300     .00                     \r\nCQUAD1  280     23      280     281     302     301     .00                     \r\nCQUAD1  281     23      281     282     303     302     .00                     \r\nCQUAD1  282     23      282     283     304     303     .00                     \r\nCQUAD1  283     23      283     284     305     304     .00                     \r\nCQUAD1  284     23      284     285     306     305     .00                     \r\nCQUAD1  285     23      285     286     307     306     .00                     \r\nCQUAD1  286     23      286     287     308     307     .00                     \r\nCQUAD1  287     23      287     288     309     308     .00                     \r\nCQUAD1  288     23      288     289     310     309     .00                     \r\nCQUAD1  289     23      289     290     311     310     .00                     \r\nCQUAD1  290     23      290     291     312     311     .00                     \r\nCQUAD1  291     23      291     292     313     312     .00                     \r\nCQUAD1  292     23      292     293     314     313     .00                     \r\nCQUAD1  293     23      293     294     315     314     .00                     \r\nCQUAD1  295     23      295     296     317     316     .00                     \r\nCQUAD1  296     23      296     297     318     317     .00                     \r\nCQUAD1  297     23      297     298     319     318     .00                     \r\nCQUAD1  298     23      298     299     320     319     .00                     \r\nCQUAD1  299     23      299     300     321     320     .00                     \r\nCQUAD1  300     23      300     301     322     321     .00                     \r\nCQUAD1  301     23      301     302     323     322     .00                     \r\nCQUAD1  302     23      302     303     324     323     .00                     \r\nCQUAD1  303     23      303     304     325     324     .00                     \r\nCQUAD1  304     23      304     305     326     325     .00                     \r\nCQUAD1  305     23      305     306     327     326     .00                     \r\nCQUAD1  306     23      306     307     328     327     .00                     \r\nCQUAD1  307     23      307     308     329     328     .00                     \r\nCQUAD1  308     23      308     309     330     329     .00                     \r\nCQUAD1  309     23      309     310     331     330     .00                     \r\nCQUAD1  310     23      310     311     332     331     .00                     \r\nCQUAD1  311     23      311     312     333     332     .00                     \r\nCQUAD1  312     23      312     313     334     333     .00                     \r\nCQUAD1  313     23      313     314     335     334     .00                     \r\nCQUAD1  314     23      314     315     336     335     .00                     \r\nCQUAD1  316     23      316     317     338     337     .00                     \r\nCQUAD1  317     23      317     318     339     338     .00                     \r\nCQUAD1  318     23      318     319     340     339     .00                     \r\nCQUAD1  319     23      319     320     341     340     .00                     \r\nCQUAD1  320     23      320     321     342     341     .00                     \r\nCQUAD1  321     23      321     322     343     342     .00                     \r\nCQUAD1  322     23      322     323     344     343     .00                     \r\nCQUAD1  323     23      323     324     345     344     .00                     \r\nCQUAD1  324     23      324     325     346     345     .00                     \r\nCQUAD1  325     23      325     326     347     346     .00                     \r\nCQUAD1  326     23      326     327     348     347     .00                     \r\nCQUAD1  327     23      327     328     349     348     .00                     \r\nCQUAD1  328     23      328     329     350     349     .00                     \r\nCQUAD1  329     23      329     330     351     350     .00                     \r\nCQUAD1  330     23      330     331     352     351     .00                     \r\nCQUAD1  331     23      331     332     353     352     .00                     \r\nCQUAD1  332     23      332     333     354     353     .00                     \r\nCQUAD1  333     23      333     334     355     354     .00                     \r\nCQUAD1  334     23      334     335     356     355     .00                     \r\nCQUAD1  335     23      335     336     357     356     .00                     \r\nCQUAD1  337     23      337     338     359     358     .00                     \r\nCQUAD1  338     23      338     339     360     359     .00                     \r\nCQUAD1  339     23      339     340     361     360     .00                     \r\nCQUAD1  340     23      340     341     362     361     .00                     \r\nCQUAD1  341     23      341     342     363     362     .00                     \r\nCQUAD1  342     23      342     343     364     363     .00                     \r\nCQUAD1  343     23      343     344     365     364     .00                     \r\nCQUAD1  344     23      344     345     366     365     .00                     \r\nCQUAD1  345     23      345     346     367     366     .00                     \r\nCQUAD1  346     23      346     347     368     367     .00                     \r\nCQUAD1  347     23      347     348     369     368     .00                     \r\nCQUAD1  348     23      348     349     370     369     .00                     \r\nCQUAD1  349     23      349     350     371     370     .00                     \r\nCQUAD1  350     23      350     351     372     371     .00                     \r\nCQUAD1  351     23      351     352     373     372     .00                     \r\nCQUAD1  352     23      352     353     374     373     .00                     \r\nCQUAD1  353     23      353     354     375     374     .00                     \r\nCQUAD1  354     23      354     355     376     375     .00                     \r\nCQUAD1  355     23      355     356     377     376     .00                     \r\nCQUAD1  356     23      356     357     378     377     .00                     \r\nCQUAD1  358     23      358     359     380     379     .00                     \r\nCQUAD1  359     23      359     360     381     380     .00                     \r\nCQUAD1  360     23      360     361     382     381     .00                     \r\nCQUAD1  361     23      361     362     383     382     .00                     \r\nCQUAD1  362     23      362     363     384     383     .00                     \r\nCQUAD1  363     23      363     364     385     384     .00                     \r\nCQUAD1  364     23      364     365     386     385     .00                     \r\nCQUAD1  365     23      365     366     387     386     .00                     \r\nCQUAD1  366     23      366     367     388     387     .00                     \r\nCQUAD1  367     23      367     368     389     388     .00                     \r\nCQUAD1  368     23      368     369     390     389     .00                     \r\nCQUAD1  369     23      369     370     391     390     .00                     \r\nCQUAD1  370     23      370     371     392     391     .00                     \r\nCQUAD1  371     23      371     372     393     392     .00                     \r\nCQUAD1  372     23      372     373     394     393     .00                     \r\nCQUAD1  373     23      373     374     395     394     .00                     \r\nCQUAD1  374     23      374     375     396     395     .00                     \r\nCQUAD1  375     23      375     376     397     396     .00                     \r\nCQUAD1  376     23      376     377     398     397     .00                     \r\nCQUAD1  377     23      377     378     399     398     .00                     \r\nCQUAD1  379     23      379     380     401     400     .00                     \r\nCQUAD1  380     23      380     381     402     401     .00                     \r\nCQUAD1  381     23      381     382     403     402     .00                     \r\nCQUAD1  382     23      382     383     404     403     .00                     \r\nCQUAD1  383     23      383     384     405     404     .00                     \r\nCQUAD1  384     23      384     385     406     405     .00                     \r\nCQUAD1  385     23      385     386     407     406     .00                     \r\nCQUAD1  386     23      386     387     408     407     .00                     \r\nCQUAD1  387     23      387     388     409     408     .00                     \r\nCQUAD1  388     23      388     389     410     409     .00                     \r\nCQUAD1  389     23      389     390     411     410     .00                     \r\nCQUAD1  390     23      390     391     412     411     .00                     \r\nCQUAD1  391     23      391     392     413     412     .00                     \r\nCQUAD1  392     23      392     393     414     413     .00                     \r\nCQUAD1  393     23      393     394     415     414     .00                     \r\nCQUAD1  394     23      394     395     416     415     .00                     \r\nCQUAD1  395     23      395     396     417     416     .00                     \r\nCQUAD1  396     23      396     397     418     417     .00                     \r\nCQUAD1  397     23      397     398     419     418     .00                     \r\nCQUAD1  398     23      398     399     420     419     .00                     \r\nCQUAD1  400     23      400     401     422     421     .00                     \r\nCQUAD1  401     23      401     402     423     422     .00                     \r\nCQUAD1  402     23      402     403     424     423     .00                     \r\nCQUAD1  403     23      403     404     425     424     .00                     \r\nCQUAD1  404     23      404     405     426     425     .00                     \r\nCQUAD1  405     23      405     406     427     426     .00                     \r\nCQUAD1  406     23      406     407     428     427     .00                     \r\nCQUAD1  407     23      407     408     429     428     .00                     \r\nCQUAD1  408     23      408     409     430     429     .00                     \r\nCQUAD1  409     23      409     410     431     430     .00                     \r\nCQUAD1  410     23      410     411     432     431     .00                     \r\nCQUAD1  411     23      411     412     433     432     .00                     \r\nCQUAD1  412     23      412     413     434     433     .00                     \r\nCQUAD1  413     23      413     414     435     434     .00                     \r\nCQUAD1  414     23      414     415     436     435     .00                     \r\nCQUAD1  415     23      415     416     437     436     .00                     \r\nCQUAD1  416     23      416     417     438     437     .00                     \r\nCQUAD1  417     23      417     418     439     438     .00                     \r\nCQUAD1  418     23      418     419     440     439     .00                     \r\nCQUAD1  419     23      419     420     441     440     .00                     \r\nDAREA  *37              1               3               2.5000000E-01           \r\nDAREA  *37              2               3               4.9845867E-01           \r\nDAREA  *37              3               3               4.9384417E-01           \r\nDAREA  *37              4               3               4.8618496E-01           \r\nDAREA  *37              5               3               4.7552826E-01           \r\nDAREA  *37              6               3               4.6193977E-01           \r\nDAREA  *37              7               3               4.4550326E-01           \r\nDAREA  *37              8               3               4.2632008E-01           \r\nDAREA  *37              9               3               4.0450850E-01           \r\nDAREA  *37              10              3               3.8020299E-01           \r\nDAREA  *37              11              3               3.5355339E-01           \r\nDAREA  *37              12              3               3.2472403E-01           \r\nDAREA  *37              13              3               2.9389263E-01           \r\nDAREA  *37              14              3               2.6124929E-01           \r\nDAREA  *37              15              3               2.2699525E-01           \r\nDAREA  *37              16              3               1.9134172E-01           \r\nDAREA  *37              17              3               1.5450850E-01           \r\nDAREA  *37              18              3               1.1672269E-01           \r\nDAREA  *37              19              3               7.8217242E-02           \r\nDAREA  *37              20              3               3.9229557E-02           \r\nDAREA  *37              22              3               4.9845867E-01           \r\nDAREA  *37              23              3               9.9384417E-01           \r\nDAREA  *37              24              3               9.8464362E-01           \r\nDAREA  *37              25              3               9.6937243E-01           \r\nDAREA  *37              26              3               9.4812473E-01           \r\nDAREA  *37              27              3               9.2103152E-01           \r\nDAREA  *37              28              3               8.8825985E-01           \r\nDAREA  *37              29              3               8.5001176E-01           \r\nDAREA  *37              30              3               8.0652306E-01           \r\nDAREA  *37              31              3               7.5806189E-01           \r\nDAREA  *37              32              3               7.0492700E-01           \r\nDAREA  *37              33              3               6.4744603E-01           \r\nDAREA  *37              34              3               5.8597331E-01           \r\nDAREA  *37              35              3               5.2088789E-01           \r\nDAREA  *37              36              3               4.5259101E-01           \r\nDAREA  *37              37              3               3.8150376E-01           \r\nDAREA  *37              38              3               3.0806441E-01           \r\nDAREA  *37              39              3               2.3272575E-01           \r\nDAREA  *37              40              3               1.5595225E-01           \r\nDAREA  *37              41              3               7.8217250E-02           \r\nDAREA  *37              43              3               4.9384417E-01           \r\nDAREA  *37              44              3               9.8464362E-01           \r\nDAREA  *37              45              3               9.7552826E-01           \r\nDAREA  *37              46              3               9.6039844E-01           \r\nDAREA  *37              47              3               9.3934743E-01           \r\nDAREA  *37              48              3               9.1250504E-01           \r\nDAREA  *37              49              3               8.8003676E-01           \r\nDAREA  *37              50              3               8.4214275E-01           \r\nDAREA  *37              51              3               7.9905665E-01           \r\nDAREA  *37              52              3               7.5104411E-01           \r\nDAREA  *37              53              3               6.9840112E-01           \r\nDAREA  *37              54              3               6.4145228E-01           \r\nDAREA  *37              55              3               5.8054864E-01           \r\nDAREA  *37              56              3               5.1606575E-01           \r\nDAREA  *37              57              3               4.4840113E-01           \r\nDAREA  *37              58              3               3.7797197E-01           \r\nDAREA  *37              59              3               3.0521249E-01           \r\nDAREA  *37              60              3               2.3057128E-01           \r\nDAREA  *37              61              3               1.5450851E-01           \r\nDAREA  *37              62              3               7.7493152E-02           \r\nDAREA  *37              64              3               4.8618496E-01           \r\nDAREA  *37              65              3               9.6937243E-01           \r\nDAREA  *37              66              3               9.6039844E-01           \r\nDAREA  *37              67              3               9.4550326E-01           \r\nDAREA  *37              68              3               9.2477875E-01           \r\nDAREA  *37              69              3               8.9835267E-01           \r\nDAREA  *37              70              3               8.6638795E-01           \r\nDAREA  *37              71              3               8.2908165E-01           \r\nDAREA  *37              72              3               7.8666379E-01           \r\nDAREA  *37              73              3               7.3939589E-01           \r\nDAREA  *37              74              3               6.8756936E-01           \r\nDAREA  *37              75              3               6.3150375E-01           \r\nDAREA  *37              76              3               5.7154471E-01           \r\nDAREA  *37              77              3               5.0806190E-01           \r\nDAREA  *37              78              3               4.4144671E-01           \r\nDAREA  *37              79              3               3.7210987E-01           \r\nDAREA  *37              80              3               3.0047884E-01           \r\nDAREA  *37              81              3               2.2699527E-01           \r\nDAREA  *37              82              3               1.5211219E-01           \r\nDAREA  *37              83              3               7.6291282E-02           \r\nDAREA  *37              85              3               4.7552826E-01           \r\nDAREA  *37              86              3               9.4812473E-01           \r\nDAREA  *37              87              3               9.3934743E-01           \r\nDAREA  *37              88              3               9.2477875E-01           \r\nDAREA  *37              89              3               9.0450849E-01           \r\nDAREA  *37              90              3               8.7866165E-01           \r\nDAREA  *37              91              3               8.4739757E-01           \r\nDAREA  *37              92              3               8.1090898E-01           \r\nDAREA  *37              93              3               7.6942088E-01           \r\nDAREA  *37              94              3               7.2318906E-01           \r\nDAREA  *37              95              3               6.7249851E-01           \r\nDAREA  *37              96              3               6.1766180E-01           \r\nDAREA  *37              97              3               5.5901700E-01           \r\nDAREA  *37              98              3               4.9692567E-01           \r\nDAREA  *37              99              3               4.3177063E-01           \r\nDAREA  *37              100             3               3.6395358E-01           \r\nDAREA  *37              101             3               2.9389264E-01           \r\nDAREA  *37              102             3               2.2201975E-01           \r\nDAREA  *37              103             3               1.4877803E-01           \r\nDAREA  *37              104             3               7.4619051E-02           \r\nDAREA  *37              106             3               4.6193977E-01           \r\nDAREA  *37              107             3               9.2103152E-01           \r\nDAREA  *37              108             3               9.1250504E-01           \r\nDAREA  *37              109             3               8.9835267E-01           \r\nDAREA  *37              110             3               8.7866165E-01           \r\nDAREA  *37              111             3               8.5355339E-01           \r\nDAREA  *37              112             3               8.2318269E-01           \r\nDAREA  *37              113             3               7.8773680E-01           \r\nDAREA  *37              114             3               7.4743424E-01           \r\nDAREA  *37              115             3               7.0252351E-01           \r\nDAREA  *37              116             3               6.5328148E-01           \r\nDAREA  *37              117             3               6.0001177E-01           \r\nDAREA  *37              118             3               5.4304276E-01           \r\nDAREA  *37              119             3               4.8272574E-01           \r\nDAREA  *37              120             3               4.1943254E-01           \r\nDAREA  *37              121             3               3.5355340E-01           \r\nDAREA  *37              122             3               2.8549449E-01           \r\nDAREA  *37              123             3               2.1567541E-01           \r\nDAREA  *37              124             3               1.4452662E-01           \r\nDAREA  *37              125             3               7.2486769E-02           \r\nDAREA  *37              127             3               4.4550326E-01           \r\nDAREA  *37              128             3               8.8825985E-01           \r\nDAREA  *37              129             3               8.8003676E-01           \r\nDAREA  *37              130             3               8.6638795E-01           \r\nDAREA  *37              131             3               8.4739757E-01           \r\nDAREA  *37              132             3               8.2318269E-01           \r\nDAREA  *37              133             3               7.9389263E-01           \r\nDAREA  *37              134             3               7.5970795E-01           \r\nDAREA  *37              135             3               7.2083942E-01           \r\nDAREA  *37              136             3               6.7752668E-01           \r\nDAREA  *37              137             3               6.3003676E-01           \r\nDAREA  *37              138             3               5.7866246E-01           \r\nDAREA  *37              139             3               5.2372050E-01           \r\nDAREA  *37              140             3               4.6554964E-01           \r\nDAREA  *37              141             3               4.0450851E-01           \r\nDAREA  *37              142             3               3.4097344E-01           \r\nDAREA  *37              143             3               2.7533617E-01           \r\nDAREA  *37              144             3               2.0800136E-01           \r\nDAREA  *37              145             3               1.3938414E-01           \r\nDAREA  *37              146             3               6.9907582E-02           \r\nDAREA  *37              148             3               4.2632008E-01           \r\nDAREA  *37              149             3               8.5001176E-01           \r\nDAREA  *37              150             3               8.4214275E-01           \r\nDAREA  *37              151             3               8.2908165E-01           \r\nDAREA  *37              152             3               8.1090898E-01           \r\nDAREA  *37              153             3               7.8773680E-01           \r\nDAREA  *37              154             3               7.5970795E-01           \r\nDAREA  *37              155             3               7.2699525E-01           \r\nDAREA  *37              156             3               6.8980038E-01           \r\nDAREA  *37              157             3               6.4835268E-01           \r\nDAREA  *37              158             3               6.0290764E-01           \r\nDAREA  *37              159             3               5.5374550E-01           \r\nDAREA  *37              160             3               5.0116932E-01           \r\nDAREA  *37              161             3               4.4550327E-01           \r\nDAREA  *37              162             3               3.8709054E-01           \r\nDAREA  *37              163             3               3.2629127E-01           \r\nDAREA  *37              164             3               2.6348031E-01           \r\nDAREA  *37              165             3               1.9904491E-01           \r\nDAREA  *37              166             3               1.3338232E-01           \r\nDAREA  *37              167             3               6.6897391E-02           \r\nDAREA  *37              169             3               4.0450850E-01           \r\nDAREA  *37              170             3               8.0652306E-01           \r\nDAREA  *37              171             3               7.9905665E-01           \r\nDAREA  *37              172             3               7.8666379E-01           \r\nDAREA  *37              173             3               7.6942088E-01           \r\nDAREA  *37              174             3               7.4743424E-01           \r\nDAREA  *37              175             3               7.2083942E-01           \r\nDAREA  *37              176             3               6.8980038E-01           \r\nDAREA  *37              177             3               6.5450849E-01           \r\nDAREA  *37              178             3               6.1518135E-01           \r\nDAREA  *37              179             3               5.7206140E-01           \r\nDAREA  *37              180             3               5.2541451E-01           \r\nDAREA  *37              181             3               4.7552826E-01           \r\nDAREA  *37              182             3               4.2271023E-01           \r\nDAREA  *37              183             3               3.6728603E-01           \r\nDAREA  *37              184             3               3.0959741E-01           \r\nDAREA  *37              185             3               2.5000001E-01           \r\nDAREA  *37              186             3               1.8886128E-01           \r\nDAREA  *37              187             3               1.2655815E-01           \r\nDAREA  *37              188             3               6.3474756E-02           \r\nDAREA  *37              190             3               3.8020299E-01           \r\nDAREA  *37              191             3               7.5806189E-01           \r\nDAREA  *37              192             3               7.5104411E-01           \r\nDAREA  *37              193             3               7.3939589E-01           \r\nDAREA  *37              194             3               7.2318906E-01           \r\nDAREA  *37              195             3               7.0252351E-01           \r\nDAREA  *37              196             3               6.7752668E-01           \r\nDAREA  *37              197             3               6.4835268E-01           \r\nDAREA  *37              198             3               6.1518135E-01           \r\nDAREA  *37              199             3               5.7821724E-01           \r\nDAREA  *37              200             3               5.3768822E-01           \r\nDAREA  *37              201             3               4.9384418E-01           \r\nDAREA  *37              202             3               4.4695542E-01           \r\nDAREA  *37              203             3               3.9731104E-01           \r\nDAREA  *37              204             3               3.4521709E-01           \r\nDAREA  *37              205             3               2.9099477E-01           \r\nDAREA  *37              206             3               2.3497838E-01           \r\nDAREA  *37              207             3               1.7751326E-01           \r\nDAREA  *37              208             3               1.1895372E-01           \r\nDAREA  *37              209             3               5.9660778E-02           \r\nDAREA  *37              211             3               3.5355339E-01           \r\nDAREA  *37              212             3               7.0492700E-01           \r\nDAREA  *37              213             3               6.9840112E-01           \r\nDAREA  *37              214             3               6.8756936E-01           \r\nDAREA  *37              215             3               6.7249851E-01           \r\nDAREA  *37              216             3               6.5328148E-01           \r\nDAREA  *37              217             3               6.3003676E-01           \r\nDAREA  *37              218             3               6.0290764E-01           \r\nDAREA  *37              219             3               5.7206140E-01           \r\nDAREA  *37              220             3               5.3768822E-01           \r\nDAREA  *37              221             3               5.0000000E-01           \r\nDAREA  *37              222             3               4.5922913E-01           \r\nDAREA  *37              223             3               4.1562694E-01           \r\nDAREA  *37              224             3               3.6946229E-01           \r\nDAREA  *37              225             3               3.2101976E-01           \r\nDAREA  *37              226             3               2.7059806E-01           \r\nDAREA  *37              227             3               2.1850802E-01           \r\nDAREA  *37              228             3               1.6507082E-01           \r\nDAREA  *37              229             3               1.1061588E-01           \r\nDAREA  *37              230             3               5.5478971E-02           \r\nDAREA  *37              232             3               3.2472403E-01           \r\nDAREA  *37              233             3               6.4744603E-01           \r\nDAREA  *37              234             3               6.4145228E-01           \r\nDAREA  *37              235             3               6.3150375E-01           \r\nDAREA  *37              236             3               6.1766180E-01           \r\nDAREA  *37              237             3               6.0001177E-01           \r\nDAREA  *37              238             3               5.7866246E-01           \r\nDAREA  *37              239             3               5.5374550E-01           \r\nDAREA  *37              240             3               5.2541451E-01           \r\nDAREA  *37              241             3               4.9384418E-01           \r\nDAREA  *37              242             3               4.5922913E-01           \r\nDAREA  *37              243             3               4.2178278E-01           \r\nDAREA  *37              244             3               3.8173600E-01           \r\nDAREA  *37              245             3               3.3933569E-01           \r\nDAREA  *37              246             3               2.9484325E-01           \r\nDAREA  *37              247             3               2.4853302E-01           \r\nDAREA  *37              248             3               2.0069049E-01           \r\nDAREA  *37              249             3               1.5161065E-01           \r\nDAREA  *37              250             3               1.0159607E-01           \r\nDAREA  *37              251             3               5.0955119E-02           \r\nDAREA  *37              253             3               2.9389263E-01           \r\nDAREA  *37              254             3               5.8597331E-01           \r\nDAREA  *37              255             3               5.8054864E-01           \r\nDAREA  *37              256             3               5.7154471E-01           \r\nDAREA  *37              257             3               5.5901700E-01           \r\nDAREA  *37              258             3               5.4304276E-01           \r\nDAREA  *37              259             3               5.2372050E-01           \r\nDAREA  *37              260             3               5.0116932E-01           \r\nDAREA  *37              261             3               4.7552826E-01           \r\nDAREA  *37              262             3               4.4695542E-01           \r\nDAREA  *37              263             3               4.1562694E-01           \r\nDAREA  *37              264             3               3.8173600E-01           \r\nDAREA  *37              265             3               3.4549151E-01           \r\nDAREA  *37              266             3               3.0711696E-01           \r\nDAREA  *37              267             3               2.6684893E-01           \r\nDAREA  *37              268             3               2.2493569E-01           \r\nDAREA  *37              269             3               1.8163564E-01           \r\nDAREA  *37              270             3               1.3721576E-01           \r\nDAREA  *37              271             3               9.1949883E-02           \r\nDAREA  *37              272             3               4.6117110E-02           \r\nDAREA  *37              274             3               2.6124929E-01           \r\nDAREA  *37              275             3               5.2088789E-01           \r\nDAREA  *37              276             3               5.1606575E-01           \r\nDAREA  *37              277             3               5.0806190E-01           \r\nDAREA  *37              278             3               4.9692567E-01           \r\nDAREA  *37              279             3               4.8272574E-01           \r\nDAREA  *37              280             3               4.6554964E-01           \r\nDAREA  *37              281             3               4.4550327E-01           \r\nDAREA  *37              282             3               4.2271023E-01           \r\nDAREA  *37              283             3               3.9731104E-01           \r\nDAREA  *37              284             3               3.6946229E-01           \r\nDAREA  *37              285             3               3.3933569E-01           \r\nDAREA  *37              286             3               3.0711696E-01           \r\nDAREA  *37              287             3               2.7300476E-01           \r\nDAREA  *37              288             3               2.3720939E-01           \r\nDAREA  *37              289             3               1.9995156E-01           \r\nDAREA  *37              290             3               1.6146095E-01           \r\nDAREA  *37              291             3               1.2197488E-01           \r\nDAREA  *37              292             3               8.1736795E-02           \r\nDAREA  *37              293             3               4.0994775E-02           \r\nDAREA  *37              295             3               2.2699525E-01           \r\nDAREA  *37              296             3               4.5259101E-01           \r\nDAREA  *37              297             3               4.4840113E-01           \r\nDAREA  *37              298             3               4.4144671E-01           \r\nDAREA  *37              299             3               4.3177063E-01           \r\nDAREA  *37              300             3               4.1943254E-01           \r\nDAREA  *37              301             3               4.0450851E-01           \r\nDAREA  *37              302             3               3.8709054E-01           \r\nDAREA  *37              303             3               3.6728603E-01           \r\nDAREA  *37              304             3               3.4521709E-01           \r\nDAREA  *37              305             3               3.2101976E-01           \r\nDAREA  *37              306             3               2.9484325E-01           \r\nDAREA  *37              307             3               2.6684893E-01           \r\nDAREA  *37              308             3               2.3720939E-01           \r\nDAREA  *37              309             3               2.0610738E-01           \r\nDAREA  *37              310             3               1.7373465E-01           \r\nDAREA  *37              311             3               1.4029079E-01           \r\nDAREA  *37              312             3               1.0598199E-01           \r\nDAREA  *37              313             3               7.1019771E-02           \r\nDAREA  *37              314             3               3.5619693E-02           \r\nDAREA  *37              316             3               1.9134172E-01           \r\nDAREA  *37              317             3               3.8150376E-01           \r\nDAREA  *37              318             3               3.7797197E-01           \r\nDAREA  *37              319             3               3.7210987E-01           \r\nDAREA  *37              320             3               3.6395358E-01           \r\nDAREA  *37              321             3               3.5355340E-01           \r\nDAREA  *37              322             3               3.4097344E-01           \r\nDAREA  *37              323             3               3.2629127E-01           \r\nDAREA  *37              324             3               3.0959741E-01           \r\nDAREA  *37              325             3               2.9099477E-01           \r\nDAREA  *37              326             3               2.7059806E-01           \r\nDAREA  *37              327             3               2.4853302E-01           \r\nDAREA  *37              328             3               2.2493569E-01           \r\nDAREA  *37              329             3               1.9995156E-01           \r\nDAREA  *37              330             3               1.7373465E-01           \r\nDAREA  *37              331             3               1.4644662E-01           \r\nDAREA  *37              332             3               1.1825569E-01           \r\nDAREA  *37              333             3               8.9335684E-02           \r\nDAREA  *37              334             3               5.9864887E-02           \r\nDAREA  *37              335             3               3.0025004E-02           \r\nDAREA  *37              337             3               1.5450850E-01           \r\nDAREA  *37              338             3               3.0806441E-01           \r\nDAREA  *37              339             3               3.0521249E-01           \r\nDAREA  *37              340             3               3.0047884E-01           \r\nDAREA  *37              341             3               2.9389264E-01           \r\nDAREA  *37              342             3               2.8549449E-01           \r\nDAREA  *37              343             3               2.7533617E-01           \r\nDAREA  *37              344             3               2.6348031E-01           \r\nDAREA  *37              345             3               2.5000001E-01           \r\nDAREA  *37              346             3               2.3497838E-01           \r\nDAREA  *37              347             3               2.1850802E-01           \r\nDAREA  *37              348             3               2.0069049E-01           \r\nDAREA  *37              349             3               1.8163564E-01           \r\nDAREA  *37              350             3               1.6146095E-01           \r\nDAREA  *37              351             3               1.4029079E-01           \r\nDAREA  *37              352             3               1.1825569E-01           \r\nDAREA  *37              353             3               9.5491510E-02           \r\nDAREA  *37              354             3               7.2138594E-02           \r\nDAREA  *37              355             3               4.8340916E-02           \r\nDAREA  *37              356             3               2.4245200E-02           \r\nDAREA  *37              358             3               1.1672269E-01           \r\nDAREA  *37              359             3               2.3272575E-01           \r\nDAREA  *37              360             3               2.3057128E-01           \r\nDAREA  *37              361             3               2.2699527E-01           \r\nDAREA  *37              362             3               2.2201975E-01           \r\nDAREA  *37              363             3               2.1567541E-01           \r\nDAREA  *37              364             3               2.0800136E-01           \r\nDAREA  *37              365             3               1.9904491E-01           \r\nDAREA  *37              366             3               1.8886128E-01           \r\nDAREA  *37              367             3               1.7751326E-01           \r\nDAREA  *37              368             3               1.6507082E-01           \r\nDAREA  *37              369             3               1.5161065E-01           \r\nDAREA  *37              370             3               1.3721576E-01           \r\nDAREA  *37              371             3               1.2197488E-01           \r\nDAREA  *37              372             3               1.0598199E-01           \r\nDAREA  *37              373             3               8.9335684E-02           \r\nDAREA  *37              374             3               7.2138594E-02           \r\nDAREA  *37              375             3               5.4496748E-02           \r\nDAREA  *37              376             3               3.6518908E-02           \r\nDAREA  *37              377             3               1.8315918E-02           \r\nDAREA  *37              379             3               7.8217242E-02           \r\nDAREA  *37              380             3               1.5595225E-01           \r\nDAREA  *37              381             3               1.5450851E-01           \r\nDAREA  *37              382             3               1.5211219E-01           \r\nDAREA  *37              383             3               1.4877803E-01           \r\nDAREA  *37              384             3               1.4452662E-01           \r\nDAREA  *37              385             3               1.3938414E-01           \r\nDAREA  *37              386             3               1.3338232E-01           \r\nDAREA  *37              387             3               1.2655815E-01           \r\nDAREA  *37              388             3               1.1895372E-01           \r\nDAREA  *37              389             3               1.1061588E-01           \r\nDAREA  *37              390             3               1.0159607E-01           \r\nDAREA  *37              391             3               9.1949883E-02           \r\nDAREA  *37              392             3               8.1736795E-02           \r\nDAREA  *37              393             3               7.1019771E-02           \r\nDAREA  *37              394             3               5.9864887E-02           \r\nDAREA  *37              395             3               4.8340916E-02           \r\nDAREA  *37              396             3               3.6518908E-02           \r\nDAREA  *37              397             3               2.4471748E-02           \r\nDAREA  *37              398             3               1.2273711E-02           \r\nDAREA  *37              400             3               3.9229557E-02           \r\nDAREA  *37              401             3               7.8217250E-02           \r\nDAREA  *37              402             3               7.7493152E-02           \r\nDAREA  *37              403             3               7.6291282E-02           \r\nDAREA  *37              404             3               7.4619051E-02           \r\nDAREA  *37              405             3               7.2486769E-02           \r\nDAREA  *37              406             3               6.9907582E-02           \r\nDAREA  *37              407             3               6.6897391E-02           \r\nDAREA  *37              408             3               6.3474756E-02           \r\nDAREA  *37              409             3               5.9660778E-02           \r\nDAREA  *37              410             3               5.5478971E-02           \r\nDAREA  *37              411             3               5.0955119E-02           \r\nDAREA  *37              412             3               4.6117110E-02           \r\nDAREA  *37              413             3               4.0994775E-02           \r\nDAREA  *37              414             3               3.5619693E-02           \r\nDAREA  *37              415             3               3.0025004E-02           \r\nDAREA  *37              416             3               2.4245200E-02           \r\nDAREA  *37              417             3               1.8315918E-02           \r\nDAREA  *37              418             3               1.2273711E-02           \r\nDAREA  *37              419             3               6.1558325E-03           \r\nFREQ    8       .0      8.0     9.0     10.0    11.0                            \r\nGRDSET                                                  126                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               .5      .0      .0                                      \r\nGRID    3               1.0     .0      .0                                      \r\nGRID    4               1.5     .0      .0                                      \r\nGRID    5               2.0     .0      .0                                      \r\nGRID    6               2.5     .0      .0                                      \r\nGRID    7               3.0     .0      .0                                      \r\nGRID    8               3.5     .0      .0                                      \r\nGRID    9               4.0     .0      .0                                      \r\nGRID    10              4.5     .0      .0                                      \r\nGRID    11              5.0     .0      .0                                      \r\nGRID    12              5.5     .0      .0                                      \r\nGRID    13              6.0     .0      .0                                      \r\nGRID    14              6.5     .0      .0                                      \r\nGRID    15              7.0     .0      .0                                      \r\nGRID    16              7.5     .0      .0                                      \r\nGRID    17              8.0     .0      .0                                      \r\nGRID    18              8.5     .0      .0                                      \r\nGRID    19              9.0     .0      .0                                      \r\nGRID    20              9.5     .0      .0                                      \r\nGRID    21              10.0    .0      .0                                      \r\nGRID    22              .0      .5      .0                                      \r\nGRID    23              .5      .5      .0                                      \r\nGRID    24              1.0     .5      .0                                      \r\nGRID    25              1.5     .5      .0                                      \r\nGRID    26              2.0     .5      .0                                      \r\nGRID    27              2.5     .5      .0                                      \r\nGRID    28              3.0     .5      .0                                      \r\nGRID    29              3.5     .5      .0                                      \r\nGRID    30              4.0     .5      .0                                      \r\nGRID    31              4.5     .5      .0                                      \r\nGRID    32              5.0     .5      .0                                      \r\nGRID    33              5.5     .5      .0                                      \r\nGRID    34              6.0     .5      .0                                      \r\nGRID    35              6.5     .5      .0                                      \r\nGRID    36              7.0     .5      .0                                      \r\nGRID    37              7.5     .5      .0                                      \r\nGRID    38              8.0     .5      .0                                      \r\nGRID    39              8.5     .5      .0                                      \r\nGRID    40              9.0     .5      .0                                      \r\nGRID    41              9.5     .5      .0                                      \r\nGRID    42              10.0    .5      .0                                      \r\nGRID    43              .0      1.0     .0                                      \r\nGRID    44              .5      1.0     .0                                      \r\nGRID    45              1.0     1.0     .0                                      \r\nGRID    46              1.5     1.0     .0                                      \r\nGRID    47              2.0     1.0     .0                                      \r\nGRID    48              2.5     1.0     .0                                      \r\nGRID    49              3.0     1.0     .0                                      \r\nGRID    50              3.5     1.0     .0                                      \r\nGRID    51              4.0     1.0     .0                                      \r\nGRID    52              4.5     1.0     .0                                      \r\nGRID    53              5.0     1.0     .0                                      \r\nGRID    54              5.5     1.0     .0                                      \r\nGRID    55              6.0     1.0     .0                                      \r\nGRID    56              6.5     1.0     .0                                      \r\nGRID    57              7.0     1.0     .0                                      \r\nGRID    58              7.5     1.0     .0                                      \r\nGRID    59              8.0     1.0     .0                                      \r\nGRID    60              8.5     1.0     .0                                      \r\nGRID    61              9.0     1.0     .0                                      \r\nGRID    62              9.5     1.0     .0                                      \r\nGRID    63              10.0    1.0     .0                                      \r\nGRID    64              .0      1.5     .0                                      \r\nGRID    65              .5      1.5     .0                                      \r\nGRID    66              1.0     1.5     .0                                      \r\nGRID    67              1.5     1.5     .0                                      \r\nGRID    68              2.0     1.5     .0                                      \r\nGRID    69              2.5     1.5     .0                                      \r\nGRID    70              3.0     1.5     .0                                      \r\nGRID    71              3.5     1.5     .0                                      \r\nGRID    72              4.0     1.5     .0                                      \r\nGRID    73              4.5     1.5     .0                                      \r\nGRID    74              5.0     1.5     .0                                      \r\nGRID    75              5.5     1.5     .0                                      \r\nGRID    76              6.0     1.5     .0                                      \r\nGRID    77              6.5     1.5     .0                                      \r\nGRID    78              7.0     1.5     .0                                      \r\nGRID    79              7.5     1.5     .0                                      \r\nGRID    80              8.0     1.5     .0                                      \r\nGRID    81              8.5     1.5     .0                                      \r\nGRID    82              9.0     1.5     .0                                      \r\nGRID    83              9.5     1.5     .0                                      \r\nGRID    84              10.0    1.5     .0                                      \r\nGRID    85              .0      2.0     .0                                      \r\nGRID    86              .5      2.0     .0                                      \r\nGRID    87              1.0     2.0     .0                                      \r\nGRID    88              1.5     2.0     .0                                      \r\nGRID    89              2.0     2.0     .0                                      \r\nGRID    90              2.5     2.0     .0                                      \r\nGRID    91              3.0     2.0     .0                                      \r\nGRID    92              3.5     2.0     .0                                      \r\nGRID    93              4.0     2.0     .0                                      \r\nGRID    94              4.5     2.0     .0                                      \r\nGRID    95              5.0     2.0     .0                                      \r\nGRID    96              5.5     2.0     .0                                      \r\nGRID    97              6.0     2.0     .0                                      \r\nGRID    98              6.5     2.0     .0                                      \r\nGRID    99              7.0     2.0     .0                                      \r\nGRID    100             7.5     2.0     .0                                      \r\nGRID    101             8.0     2.0     .0                                      \r\nGRID    102             8.5     2.0     .0                                      \r\nGRID    103             9.0     2.0     .0                                      \r\nGRID    104             9.5     2.0     .0                                      \r\nGRID    105             10.0    2.0     .0                                      \r\nGRID    106             .0      2.5     .0                                      \r\nGRID    107             .5      2.5     .0                                      \r\nGRID    108             1.0     2.5     .0                                      \r\nGRID    109             1.5     2.5     .0                                      \r\nGRID    110             2.0     2.5     .0                                      \r\nGRID    111             2.5     2.5     .0                                      \r\nGRID    112             3.0     2.5     .0                                      \r\nGRID    113             3.5     2.5     .0                                      \r\nGRID    114             4.0     2.5     .0                                      \r\nGRID    115             4.5     2.5     .0                                      \r\nGRID    116             5.0     2.5     .0                                      \r\nGRID    117             5.5     2.5     .0                                      \r\nGRID    118             6.0     2.5     .0                                      \r\nGRID    119             6.5     2.5     .0                                      \r\nGRID    120             7.0     2.5     .0                                      \r\nGRID    121             7.5     2.5     .0                                      \r\nGRID    122             8.0     2.5     .0                                      \r\nGRID    123             8.5     2.5     .0                                      \r\nGRID    124             9.0     2.5     .0                                      \r\nGRID    125             9.5     2.5     .0                                      \r\nGRID    126             10.0    2.5     .0                                      \r\nGRID    127             .0      3.0     .0                                      \r\nGRID    128             .5      3.0     .0                                      \r\nGRID    129             1.0     3.0     .0                                      \r\nGRID    130             1.5     3.0     .0                                      \r\nGRID    131             2.0     3.0     .0                                      \r\nGRID    132             2.5     3.0     .0                                      \r\nGRID    133             3.0     3.0     .0                                      \r\nGRID    134             3.5     3.0     .0                                      \r\nGRID    135             4.0     3.0     .0                                      \r\nGRID    136             4.5     3.0     .0                                      \r\nGRID    137             5.0     3.0     .0                                      \r\nGRID    138             5.5     3.0     .0                                      \r\nGRID    139             6.0     3.0     .0                                      \r\nGRID    140             6.5     3.0     .0                                      \r\nGRID    141             7.0     3.0     .0                                      \r\nGRID    142             7.5     3.0     .0                                      \r\nGRID    143             8.0     3.0     .0                                      \r\nGRID    144             8.5     3.0     .0                                      \r\nGRID    145             9.0     3.0     .0                                      \r\nGRID    146             9.5     3.0     .0                                      \r\nGRID    147             10.0    3.0     .0                                      \r\nGRID    148             .0      3.5     .0                                      \r\nGRID    149             .5      3.5     .0                                      \r\nGRID    150             1.0     3.5     .0                                      \r\nGRID    151             1.5     3.5     .0                                      \r\nGRID    152             2.0     3.5     .0                                      \r\nGRID    153             2.5     3.5     .0                                      \r\nGRID    154             3.0     3.5     .0                                      \r\nGRID    155             3.5     3.5     .0                                      \r\nGRID    156             4.0     3.5     .0                                      \r\nGRID    157             4.5     3.5     .0                                      \r\nGRID    158             5.0     3.5     .0                                      \r\nGRID    159             5.5     3.5     .0                                      \r\nGRID    160             6.0     3.5     .0                                      \r\nGRID    161             6.5     3.5     .0                                      \r\nGRID    162             7.0     3.5     .0                                      \r\nGRID    163             7.5     3.5     .0                                      \r\nGRID    164             8.0     3.5     .0                                      \r\nGRID    165             8.5     3.5     .0                                      \r\nGRID    166             9.0     3.5     .0                                      \r\nGRID    167             9.5     3.5     .0                                      \r\nGRID    168             10.0    3.5     .0                                      \r\nGRID    169             .0      4.0     .0                                      \r\nGRID    170             .5      4.0     .0                                      \r\nGRID    171             1.0     4.0     .0                                      \r\nGRID    172             1.5     4.0     .0                                      \r\nGRID    173             2.0     4.0     .0                                      \r\nGRID    174             2.5     4.0     .0                                      \r\nGRID    175             3.0     4.0     .0                                      \r\nGRID    176             3.5     4.0     .0                                      \r\nGRID    177             4.0     4.0     .0                                      \r\nGRID    178             4.5     4.0     .0                                      \r\nGRID    179             5.0     4.0     .0                                      \r\nGRID    180             5.5     4.0     .0                                      \r\nGRID    181             6.0     4.0     .0                                      \r\nGRID    182             6.5     4.0     .0                                      \r\nGRID    183             7.0     4.0     .0                                      \r\nGRID    184             7.5     4.0     .0                                      \r\nGRID    185             8.0     4.0     .0                                      \r\nGRID    186             8.5     4.0     .0                                      \r\nGRID    187             9.0     4.0     .0                                      \r\nGRID    188             9.5     4.0     .0                                      \r\nGRID    189             10.0    4.0     .0                                      \r\nGRID    190             .0      4.5     .0                                      \r\nGRID    191             .5      4.5     .0                                      \r\nGRID    192             1.0     4.5     .0                                      \r\nGRID    193             1.5     4.5     .0                                      \r\nGRID    194             2.0     4.5     .0                                      \r\nGRID    195             2.5     4.5     .0                                      \r\nGRID    196             3.0     4.5     .0                                      \r\nGRID    197             3.5     4.5     .0                                      \r\nGRID    198             4.0     4.5     .0                                      \r\nGRID    199             4.5     4.5     .0                                      \r\nGRID    200             5.0     4.5     .0                                      \r\nGRID    201             5.5     4.5     .0                                      \r\nGRID    202             6.0     4.5     .0                                      \r\nGRID    203             6.5     4.5     .0                                      \r\nGRID    204             7.0     4.5     .0                                      \r\nGRID    205             7.5     4.5     .0                                      \r\nGRID    206             8.0     4.5     .0                                      \r\nGRID    207             8.5     4.5     .0                                      \r\nGRID    208             9.0     4.5     .0                                      \r\nGRID    209             9.5     4.5     .0                                      \r\nGRID    210             10.0    4.5     .0                                      \r\nGRID    211             .0      5.0     .0                                      \r\nGRID    212             .5      5.0     .0                                      \r\nGRID    213             1.0     5.0     .0                                      \r\nGRID    214             1.5     5.0     .0                                      \r\nGRID    215             2.0     5.0     .0                                      \r\nGRID    216             2.5     5.0     .0                                      \r\nGRID    217             3.0     5.0     .0                                      \r\nGRID    218             3.5     5.0     .0                                      \r\nGRID    219             4.0     5.0     .0                                      \r\nGRID    220             4.5     5.0     .0                                      \r\nGRID    221             5.0     5.0     .0                                      \r\nGRID    222             5.5     5.0     .0                                      \r\nGRID    223             6.0     5.0     .0                                      \r\nGRID    224             6.5     5.0     .0                                      \r\nGRID    225             7.0     5.0     .0                                      \r\nGRID    226             7.5     5.0     .0                                      \r\nGRID    227             8.0     5.0     .0                                      \r\nGRID    228             8.5     5.0     .0                                      \r\nGRID    229             9.0     5.0     .0                                      \r\nGRID    230             9.5     5.0     .0                                      \r\nGRID    231             10.0    5.0     .0                                      \r\nGRID    232             .0      5.5     .0                                      \r\nGRID    233             .5      5.5     .0                                      \r\nGRID    234             1.0     5.5     .0                                      \r\nGRID    235             1.5     5.5     .0                                      \r\nGRID    236             2.0     5.5     .0                                      \r\nGRID    237             2.5     5.5     .0                                      \r\nGRID    238             3.0     5.5     .0                                      \r\nGRID    239             3.5     5.5     .0                                      \r\nGRID    240             4.0     5.5     .0                                      \r\nGRID    241             4.5     5.5     .0                                      \r\nGRID    242             5.0     5.5     .0                                      \r\nGRID    243             5.5     5.5     .0                                      \r\nGRID    244             6.0     5.5     .0                                      \r\nGRID    245             6.5     5.5     .0                                      \r\nGRID    246             7.0     5.5     .0                                      \r\nGRID    247             7.5     5.5     .0                                      \r\nGRID    248             8.0     5.5     .0                                      \r\nGRID    249             8.5     5.5     .0                                      \r\nGRID    250             9.0     5.5     .0                                      \r\nGRID    251             9.5     5.5     .0                                      \r\nGRID    252             10.0    5.5     .0                                      \r\nGRID    253             .0      6.0     .0                                      \r\nGRID    254             .5      6.0     .0                                      \r\nGRID    255             1.0     6.0     .0                                      \r\nGRID    256             1.5     6.0     .0                                      \r\nGRID    257             2.0     6.0     .0                                      \r\nGRID    258             2.5     6.0     .0                                      \r\nGRID    259             3.0     6.0     .0                                      \r\nGRID    260             3.5     6.0     .0                                      \r\nGRID    261             4.0     6.0     .0                                      \r\nGRID    262             4.5     6.0     .0                                      \r\nGRID    263             5.0     6.0     .0                                      \r\nGRID    264             5.5     6.0     .0                                      \r\nGRID    265             6.0     6.0     .0                                      \r\nGRID    266             6.5     6.0     .0                                      \r\nGRID    267             7.0     6.0     .0                                      \r\nGRID    268             7.5     6.0     .0                                      \r\nGRID    269             8.0     6.0     .0                                      \r\nGRID    270             8.5     6.0     .0                                      \r\nGRID    271             9.0     6.0     .0                                      \r\nGRID    272             9.5     6.0     .0                                      \r\nGRID    273             10.0    6.0     .0                                      \r\nGRID    274             .0      6.5     .0                                      \r\nGRID    275             .5      6.5     .0                                      \r\nGRID    276             1.0     6.5     .0                                      \r\nGRID    277             1.5     6.5     .0                                      \r\nGRID    278             2.0     6.5     .0                                      \r\nGRID    279             2.5     6.5     .0                                      \r\nGRID    280             3.0     6.5     .0                                      \r\nGRID    281             3.5     6.5     .0                                      \r\nGRID    282             4.0     6.5     .0                                      \r\nGRID    283             4.5     6.5     .0                                      \r\nGRID    284             5.0     6.5     .0                                      \r\nGRID    285             5.5     6.5     .0                                      \r\nGRID    286             6.0     6.5     .0                                      \r\nGRID    287             6.5     6.5     .0                                      \r\nGRID    288             7.0     6.5     .0                                      \r\nGRID    289             7.5     6.5     .0                                      \r\nGRID    290             8.0     6.5     .0                                      \r\nGRID    291             8.5     6.5     .0                                      \r\nGRID    292             9.0     6.5     .0                                      \r\nGRID    293             9.5     6.5     .0                                      \r\nGRID    294             10.0    6.5     .0                                      \r\nGRID    295             .0      7.0     .0                                      \r\nGRID    296             .5      7.0     .0                                      \r\nGRID    297             1.0     7.0     .0                                      \r\nGRID    298             1.5     7.0     .0                                      \r\nGRID    299             2.0     7.0     .0                                      \r\nGRID    300             2.5     7.0     .0                                      \r\nGRID    301             3.0     7.0     .0                                      \r\nGRID    302             3.5     7.0     .0                                      \r\nGRID    303             4.0     7.0     .0                                      \r\nGRID    304             4.5     7.0     .0                                      \r\nGRID    305             5.0     7.0     .0                                      \r\nGRID    306             5.5     7.0     .0                                      \r\nGRID    307             6.0     7.0     .0                                      \r\nGRID    308             6.5     7.0     .0                                      \r\nGRID    309             7.0     7.0     .0                                      \r\nGRID    310             7.5     7.0     .0                                      \r\nGRID    311             8.0     7.0     .0                                      \r\nGRID    312             8.5     7.0     .0                                      \r\nGRID    313             9.0     7.0     .0                                      \r\nGRID    314             9.5     7.0     .0                                      \r\nGRID    315             10.0    7.0     .0                                      \r\nGRID    316             .0      7.5     .0                                      \r\nGRID    317             .5      7.5     .0                                      \r\nGRID    318             1.0     7.5     .0                                      \r\nGRID    319             1.5     7.5     .0                                      \r\nGRID    320             2.0     7.5     .0                                      \r\nGRID    321             2.5     7.5     .0                                      \r\nGRID    322             3.0     7.5     .0                                      \r\nGRID    323             3.5     7.5     .0                                      \r\nGRID    324             4.0     7.5     .0                                      \r\nGRID    325             4.5     7.5     .0                                      \r\nGRID    326             5.0     7.5     .0                                      \r\nGRID    327             5.5     7.5     .0                                      \r\nGRID    328             6.0     7.5     .0                                      \r\nGRID    329             6.5     7.5     .0                                      \r\nGRID    330             7.0     7.5     .0                                      \r\nGRID    331             7.5     7.5     .0                                      \r\nGRID    332             8.0     7.5     .0                                      \r\nGRID    333             8.5     7.5     .0                                      \r\nGRID    334             9.0     7.5     .0                                      \r\nGRID    335             9.5     7.5     .0                                      \r\nGRID    336             10.0    7.5     .0                                      \r\nGRID    337             .0      8.0     .0                                      \r\nGRID    338             .5      8.0     .0                                      \r\nGRID    339             1.0     8.0     .0                                      \r\nGRID    340             1.5     8.0     .0                                      \r\nGRID    341             2.0     8.0     .0                                      \r\nGRID    342             2.5     8.0     .0                                      \r\nGRID    343             3.0     8.0     .0                                      \r\nGRID    344             3.5     8.0     .0                                      \r\nGRID    345             4.0     8.0     .0                                      \r\nGRID    346             4.5     8.0     .0                                      \r\nGRID    347             5.0     8.0     .0                                      \r\nGRID    348             5.5     8.0     .0                                      \r\nGRID    349             6.0     8.0     .0                                      \r\nGRID    350             6.5     8.0     .0                                      \r\nGRID    351             7.0     8.0     .0                                      \r\nGRID    352             7.5     8.0     .0                                      \r\nGRID    353             8.0     8.0     .0                                      \r\nGRID    354             8.5     8.0     .0                                      \r\nGRID    355             9.0     8.0     .0                                      \r\nGRID    356             9.5     8.0     .0                                      \r\nGRID    357             10.0    8.0     .0                                      \r\nGRID    358             .0      8.5     .0                                      \r\nGRID    359             .5      8.5     .0                                      \r\nGRID    360             1.0     8.5     .0                                      \r\nGRID    361             1.5     8.5     .0                                      \r\nGRID    362             2.0     8.5     .0                                      \r\nGRID    363             2.5     8.5     .0                                      \r\nGRID    364             3.0     8.5     .0                                      \r\nGRID    365             3.5     8.5     .0                                      \r\nGRID    366             4.0     8.5     .0                                      \r\nGRID    367             4.5     8.5     .0                                      \r\nGRID    368             5.0     8.5     .0                                      \r\nGRID    369             5.5     8.5     .0                                      \r\nGRID    370             6.0     8.5     .0                                      \r\nGRID    371             6.5     8.5     .0                                      \r\nGRID    372             7.0     8.5     .0                                      \r\nGRID    373             7.5     8.5     .0                                      \r\nGRID    374             8.0     8.5     .0                                      \r\nGRID    375             8.5     8.5     .0                                      \r\nGRID    376             9.0     8.5     .0                                      \r\nGRID    377             9.5     8.5     .0                                      \r\nGRID    378             10.0    8.5     .0                                      \r\nGRID    379             .0      9.0     .0                                      \r\nGRID    380             .5      9.0     .0                                      \r\nGRID    381             1.0     9.0     .0                                      \r\nGRID    382             1.5     9.0     .0                                      \r\nGRID    383             2.0     9.0     .0                                      \r\nGRID    384             2.5     9.0     .0                                      \r\nGRID    385             3.0     9.0     .0                                      \r\nGRID    386             3.5     9.0     .0                                      \r\nGRID    387             4.0     9.0     .0                                      \r\nGRID    388             4.5     9.0     .0                                      \r\nGRID    389             5.0     9.0     .0                                      \r\nGRID    390             5.5     9.0     .0                                      \r\nGRID    391             6.0     9.0     .0                                      \r\nGRID    392             6.5     9.0     .0                                      \r\nGRID    393             7.0     9.0     .0                                      \r\nGRID    394             7.5     9.0     .0                                      \r\nGRID    395             8.0     9.0     .0                                      \r\nGRID    396             8.5     9.0     .0                                      \r\nGRID    397             9.0     9.0     .0                                      \r\nGRID    398             9.5     9.0     .0                                      \r\nGRID    399             10.0    9.0     .0                                      \r\nGRID    400             .0      9.5     .0                                      \r\nGRID    401             .5      9.5     .0                                      \r\nGRID    402             1.0     9.5     .0                                      \r\nGRID    403             1.5     9.5     .0                                      \r\nGRID    404             2.0     9.5     .0                                      \r\nGRID    405             2.5     9.5     .0                                      \r\nGRID    406             3.0     9.5     .0                                      \r\nGRID    407             3.5     9.5     .0                                      \r\nGRID    408             4.0     9.5     .0                                      \r\nGRID    409             4.5     9.5     .0                                      \r\nGRID    410             5.0     9.5     .0                                      \r\nGRID    411             5.5     9.5     .0                                      \r\nGRID    412             6.0     9.5     .0                                      \r\nGRID    413             6.5     9.5     .0                                      \r\nGRID    414             7.0     9.5     .0                                      \r\nGRID    415             7.5     9.5     .0                                      \r\nGRID    416             8.0     9.5     .0                                      \r\nGRID    417             8.5     9.5     .0                                      \r\nGRID    418             9.0     9.5     .0                                      \r\nGRID    419             9.5     9.5     .0                                      \r\nGRID    420             10.0    9.5     .0                                      \r\nGRID    421             .0      10.0    .0                                      \r\nGRID    422             .5      10.0    .0                                      \r\nGRID    423             1.0     10.0    .0                                      \r\nGRID    424             1.5     10.0    .0                                      \r\nGRID    425             2.0     10.0    .0                                      \r\nGRID    426             2.5     10.0    .0                                      \r\nGRID    427             3.0     10.0    .0                                      \r\nGRID    428             3.5     10.0    .0                                      \r\nGRID    429             4.0     10.0    .0                                      \r\nGRID    430             4.5     10.0    .0                                      \r\nGRID    431             5.0     10.0    .0                                      \r\nGRID    432             5.5     10.0    .0                                      \r\nGRID    433             6.0     10.0    .0                                      \r\nGRID    434             6.5     10.0    .0                                      \r\nGRID    435             7.0     10.0    .0                                      \r\nGRID    436             7.5     10.0    .0                                      \r\nGRID    437             8.0     10.0    .0                                      \r\nGRID    438             8.5     10.0    .0                                      \r\nGRID    439             9.0     10.0    .0                                      \r\nGRID    440             9.5     10.0    .0                                      \r\nGRID    441             10.0    10.0    .0                                      \r\nMAT1    8       3.0+7           .300                                            \r\nPQUAD1  23                      8       .6666667                13.55715        \r\nRLOAD1  8       37                      1                                       \r\nSPC1    37      4       1       2       3       4       5       6       +41001H \r\n+41001H 7       8       9       10      11      12      13      14      +41002H \r\n+41002H 15      16      17      18      19      20      21                      \r\nSPC1    37      5       1       22      43      64      85      106     +31001H \r\n+31001H 127     148     169     190     211     232     253     274     +31002H \r\n+31002H 295     316     337     358     379     400     421                     \r\nSPC1    37      34      21      42      63      84      105     126     +11001H \r\n+11001H 147     168     189     210     231     252     273     294     +11002H \r\n+11002H 315     336     357     378     399     420     441                     \r\nSPC1    37      35      421     422     423     424     425     426     +21001H \r\n+21001H 427     428     429     430     431     432     433     434     +21002H \r\n+21002H 435     436     437     438     439     440     441                     \r\nTABLED1 1                                                               +T1     \r\n+T1     .0      2.5     100.0   10.0    ENDT                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d08012a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation\r\n$                   Frequency Response of a 10x10 Plate (8-1-1)\r\n$                   Frequency Response of a 20x20 Plate (8-1-2)\r\n$               Frequency Response of a 10x10 Plate (INPUT, 8-1-3)\r\n$               Frequency Response of a 20x20 Plate (INPUT, 8-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the direct method of determining\r\n$ structural response to steady-state sinusoidal loads, The applied load is\r\n$ given in terms of complex numbers which reflect the amplitudes and phases at\r\n$ each selected frequency. The steady-state response of the structure at each\r\n$ frequency is calculated in terms of complex numbers which reflect the\r\n$ magnitudes and phases of the results. Both configurations are duplicated via\r\n$ the INPUT module to generate the QUAD1 elements.\r\n$ \r\n$ The particular model for this analysis is a square plate composed of\r\n$ quadrilateral plate elements. The exterior edges are supported on hinged\r\n$ supports and symmetric boundaries are used along x = 0 and y = 0. The applied\r\n$ load is sinusoidally distributed over the panel and increases with respect to\r\n$ frequency. Although the applied load excites only the first node, the direct\r\n$ formulation algorithm does not use this shortcut and solves the problem as\r\n$ though the load were completely general.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a =  b = 10    - length and width of quarter model\r\n$ \r\n$    t =  2.0       - thickness\r\n$ \r\n$                 7\r\n$    E =  3.0 x 10  - Young's Modulus\r\n$ \r\n$    v =  0.3       - Poisson's Ratio\r\n$ \r\n$    mu = 13.55715  - nonstructural mass per area\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The frequency dependent pressure function is:\r\n$ \r\n$                            pi x      pi y\r\n$      P(x,y,f)  =  F(f) cos ----  cos ----                                  (1)\r\n$                             2a        2b\r\n$ \r\n$    where\r\n$ \r\n$      F(f)  =  10. + 0.3f                                                   (2)\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    Only vertical notions and bending rotations are allowed, The exterior\r\n$    edges are hinged supports. The interior edges are planes of symmetry, This\r\n$    implies:\r\n$ \r\n$      along x = 0, theta  = 0\r\n$                        y\r\n$ \r\n$      along y = 0, theta  = 0\r\n$                        x\r\n$ \r\n$      along x = a, u  = theta  = 0\r\n$                    z        x\r\n$ \r\n$      along y = b, u  = theta  = 0\r\n$                    z        y\r\n$ \r\n$      all points, u  = u  = theta  = 0\r\n$                   x    y        z\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The excitation of the plate is orthogonal to the theoretical first mode, An\r\n$ explanation of the equations is given in Reference 8. The equations of\r\n$ response are:\r\n$ \r\n$                     F(f)\r\n$    u (f)  =  ------------------                                            (3)\r\n$     z              2    2    2\r\n$              (2 pi) mu(f  - f )\r\n$                         1\r\n$ \r\n$ where f  is the first natural frequency (10 Hz).\r\n$        1\r\n$ \r\n$ D. Results\r\n$ \r\n$ The following table gives the theoretical and NASTRAN results:\r\n$ \r\n$                ---------------------------------------------------\r\n$                                                  4\r\n$                                         u    x 10\r\n$                                          z,1\r\n$                Frequency    --------------------------------------\r\n$                   Hz        Theory  10x10 NASTRAN   20x20 NASTRAN\r\n$                ---------------------------------------------------\r\n$                    0         1.868        1.874       1.869\r\n$ \r\n$                    8         6.435        6.49        6.45\r\n$ \r\n$                    9        12.489       12.69        12.53\r\n$ \r\n$                   10        infinite    -824.92      -3284.4\r\n$ \r\n$                   11       -11.833      -11.67       -11.79\r\n$                ---------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d08013a.inp",
    "content": "ID    D08013A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   8,1                                                                       \r\nDIAG  14                                                                        \r\nTIME  12                                                                        \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                           \r\nEQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 10X10 PLATE                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-3A                          \r\n     SPC = 10010                                                                \r\n   DLOAD = 8                                                                    \r\nFREQUENCY= 8                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 1,4,7,11  45,55,  78,88,  111,114,117,121                            \r\n   DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n   SPCFORCE(SORT2,PHASE) = 1                                                    \r\nBEGIN BULK                                                                      \r\nDAREA  *37              1               3               2.5000000E-01           \r\nDAREA  *37              2               3               4.9384417E-01           \r\nDAREA  *37              3               3               4.7552826E-01           \r\nDAREA  *37              4               3               4.4550326E-01           \r\nDAREA  *37              5               3               4.0450850E-01           \r\nDAREA  *37              6               3               3.5355339E-01           \r\nDAREA  *37              7               3               2.9389263E-01           \r\nDAREA  *37              8               3               2.2699525E-01           \r\nDAREA  *37              9               3               1.5450850E-01           \r\nDAREA  *37              10              3               7.8217242E-02           \r\nDAREA  *37              12              3               4.9384417E-01           \r\nDAREA  *37              13              3               9.7552826E-01           \r\nDAREA  *37              14              3               9.3934743E-01           \r\nDAREA  *37              15              3               8.8003676E-01           \r\nDAREA  *37              16              3               7.9905665E-01           \r\nDAREA  *37              17              3               6.9840112E-01           \r\nDAREA  *37              18              3               5.8054864E-01           \r\nDAREA  *37              19              3               4.4840113E-01           \r\nDAREA  *37              20              3               3.0521249E-01           \r\nDAREA  *37              21              3               1.5450851E-01           \r\nDAREA  *37              23              3               4.7552826E-01           \r\nDAREA  *37              24              3               9.3934743E-01           \r\nDAREA  *37              25              3               9.0450849E-01           \r\nDAREA  *37              26              3               8.4739757E-01           \r\nDAREA  *37              27              3               7.6942088E-01           \r\nDAREA  *37              28              3               6.7249851E-01           \r\nDAREA  *37              29              3               5.5901700E-01           \r\nDAREA  *37              30              3               4.3177063E-01           \r\nDAREA  *37              31              3               2.9389264E-01           \r\nDAREA  *37              32              3               1.4877803E-01           \r\nDAREA  *37              34              3               4.4550326E-01           \r\nDAREA  *37              35              3               8.8003676E-01           \r\nDAREA  *37              36              3               8.4739757E-01           \r\nDAREA  *37              37              3               7.9389263E-01           \r\nDAREA  *37              38              3               7.2083942E-01           \r\nDAREA  *37              39              3               6.3003676E-01           \r\nDAREA  *37              40              3               5.2372050E-01           \r\nDAREA  *37              41              3               4.0450851E-01           \r\nDAREA  *37              42              3               2.7533617E-01           \r\nDAREA  *37              43              3               1.3938414E-01           \r\nDAREA  *37              45              3               4.0450850E-01           \r\nDAREA  *37              46              3               7.9905665E-01           \r\nDAREA  *37              47              3               7.6942088E-01           \r\nDAREA  *37              48              3               7.2083942E-01           \r\nDAREA  *37              49              3               6.5450849E-01           \r\nDAREA  *37              50              3               5.7206140E-01           \r\nDAREA  *37              51              3               4.7552826E-01           \r\nDAREA  *37              52              3               3.6728603E-01           \r\nDAREA  *37              53              3               2.5000001E-01           \r\nDAREA  *37              54              3               1.2655815E-01           \r\nDAREA  *37              56              3               3.5355339E-01           \r\nDAREA  *37              57              3               6.9840112E-01           \r\nDAREA  *37              58              3               6.7249851E-01           \r\nDAREA  *37              59              3               6.3003676E-01           \r\nDAREA  *37              60              3               5.7206140E-01           \r\nDAREA  *37              61              3               5.0000000E-01           \r\nDAREA  *37              62              3               4.1562694E-01           \r\nDAREA  *37              63              3               3.2101976E-01           \r\nDAREA  *37              64              3               2.1850802E-01           \r\nDAREA  *37              65              3               1.1061588E-01           \r\nDAREA  *37              67              3               2.9389263E-01           \r\nDAREA  *37              68              3               5.8054864E-01           \r\nDAREA  *37              69              3               5.5901700E-01           \r\nDAREA  *37              70              3               5.2372050E-01           \r\nDAREA  *37              71              3               4.7552826E-01           \r\nDAREA  *37              72              3               4.1562694E-01           \r\nDAREA  *37              73              3               3.4549151E-01           \r\nDAREA  *37              74              3               2.6684893E-01           \r\nDAREA  *37              75              3               1.8163564E-01           \r\nDAREA  *37              76              3               9.1949883E-02           \r\nDAREA  *37              78              3               2.2699525E-01           \r\nDAREA  *37              79              3               4.4840113E-01           \r\nDAREA  *37              80              3               4.3177063E-01           \r\nDAREA  *37              81              3               4.0450851E-01           \r\nDAREA  *37              82              3               3.6728603E-01           \r\nDAREA  *37              83              3               3.2101976E-01           \r\nDAREA  *37              84              3               2.6684893E-01           \r\nDAREA  *37              85              3               2.0610738E-01           \r\nDAREA  *37              86              3               1.4029079E-01           \r\nDAREA  *37              87              3               7.1019771E-02           \r\nDAREA  *37              89              3               1.5450850E-01           \r\nDAREA  *37              90              3               3.0521249E-01           \r\nDAREA  *37              91              3               2.9389264E-01           \r\nDAREA  *37              92              3               2.7533617E-01           \r\nDAREA  *37              93              3               2.5000001E-01           \r\nDAREA  *37              94              3               2.1850802E-01           \r\nDAREA  *37              95              3               1.8163564E-01           \r\nDAREA  *37              96              3               1.4029079E-01           \r\nDAREA  *37              97              3               9.5491510E-02           \r\nDAREA  *37              98              3               4.8340916E-02           \r\nDAREA  *37              100             3               7.8217242E-02           \r\nDAREA  *37              101             3               1.5450851E-01           \r\nDAREA  *37              102             3               1.4877803E-01           \r\nDAREA  *37              103             3               1.3938414E-01           \r\nDAREA  *37              104             3               1.2655815E-01           \r\nDAREA  *37              105             3               1.1061588E-01           \r\nDAREA  *37              106             3               9.1949883E-02           \r\nDAREA  *37              107             3               7.1019771E-02           \r\nDAREA  *37              108             3               4.8340916E-02           \r\nDAREA  *37              109             3               2.4471748E-02           \r\nFREQ    8       .0      8.0     9.0     10.0    11.0                            \r\nMAT1    8       3.0+7           .300                                            \r\nPQUAD1  101                     8       .6666667                13.55715        \r\nRLOAD1  8       37                      1                                       \r\nTABLED1 1                                                               +T1     \r\n+T1     .0      10.0    100.0   40.0    ENDT                                    \r\nENDDATA                                                                         \r\n      10      10 1.0E+00 1.0E+00     126 0.0     0.0                            \r\n       4       5      35      34       0       0                                \r\n"
  },
  {
    "path": "inp/d08013a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation\r\n$                   Frequency Response of a 10x10 Plate (8-1-1)\r\n$                   Frequency Response of a 20x20 Plate (8-1-2)\r\n$               Frequency Response of a 10x10 Plate (INPUT, 8-1-3)\r\n$               Frequency Response of a 20x20 Plate (INPUT, 8-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the direct method of determining\r\n$ structural response to steady-state sinusoidal loads, The applied load is\r\n$ given in terms of complex numbers which reflect the amplitudes and phases at\r\n$ each selected frequency. The steady-state response of the structure at each\r\n$ frequency is calculated in terms of complex numbers which reflect the\r\n$ magnitudes and phases of the results. Both configurations are duplicated via\r\n$ the INPUT module to generate the QUAD1 elements.\r\n$ \r\n$ The particular model for this analysis is a square plate composed of\r\n$ quadrilateral plate elements. The exterior edges are supported on hinged\r\n$ supports and symmetric boundaries are used along x = 0 and y = 0. The applied\r\n$ load is sinusoidally distributed over the panel and increases with respect to\r\n$ frequency. Although the applied load excites only the first node, the direct\r\n$ formulation algorithm does not use this shortcut and solves the problem as\r\n$ though the load were completely general.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a =  b = 10    - length and width of quarter model\r\n$ \r\n$    t =  2.0       - thickness\r\n$ \r\n$                 7\r\n$    E =  3.0 x 10  - Young's Modulus\r\n$ \r\n$    v =  0.3       - Poisson's Ratio\r\n$ \r\n$    mu = 13.55715  - nonstructural mass per area\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The frequency dependent pressure function is:\r\n$ \r\n$                            pi x      pi y\r\n$      P(x,y,f)  =  F(f) cos ----  cos ----                                  (1)\r\n$                             2a        2b\r\n$ \r\n$    where\r\n$ \r\n$      F(f)  =  10. + 0.3f                                                   (2)\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    Only vertical notions and bending rotations are allowed, The exterior\r\n$    edges are hinged supports. The interior edges are planes of symmetry, This\r\n$    implies:\r\n$ \r\n$      along x = 0, theta  = 0\r\n$                        y\r\n$ \r\n$      along y = 0, theta  = 0\r\n$                        x\r\n$ \r\n$      along x = a, u  = theta  = 0\r\n$                    z        x\r\n$ \r\n$      along y = b, u  = theta  = 0\r\n$                    z        y\r\n$ \r\n$      all points, u  = u  = theta  = 0\r\n$                   x    y        z\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The excitation of the plate is orthogonal to the theoretical first mode, An\r\n$ explanation of the equations is given in Reference 8. The equations of\r\n$ response are:\r\n$ \r\n$                     F(f)\r\n$    u (f)  =  ------------------                                            (3)\r\n$     z              2    2    2\r\n$              (2 pi) mu(f  - f )\r\n$                         1\r\n$ \r\n$ where f  is the first natural frequency (10 Hz).\r\n$        1\r\n$ \r\n$ D. Results\r\n$ \r\n$ The following table gives the theoretical and NASTRAN results:\r\n$ \r\n$                ---------------------------------------------------\r\n$                                                  4\r\n$                                         u    x 10\r\n$                                          z,1\r\n$                Frequency    --------------------------------------\r\n$                   Hz        Theory  10x10 NASTRAN   20x20 NASTRAN\r\n$                ---------------------------------------------------\r\n$                    0         1.868        1.874       1.869\r\n$ \r\n$                    8         6.435        6.49        6.45\r\n$ \r\n$                    9        12.489       12.69        12.53\r\n$ \r\n$                   10        infinite    -824.92      -3284.4\r\n$ \r\n$                   11       -11.833      -11.67       -11.79\r\n$                ---------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d08014a.inp",
    "content": "ID    D08014A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   8,1                                                                       \r\nDIAG  14                                                                        \r\nTIME  30                                                                        \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $                                           \r\nEQUIV   G1,GEOM1/TRUE / G2,GEOM2/TRUE / G4,GEOM4/TRUE $                         \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 20X20 PLATE                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D08-01-4A                          \r\n     SPC = 20020                                                                \r\n   DLOAD = 8                                                                    \r\nFREQUENCY= 8                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 1,7,13,21,  169,189,  295,315,  421,427,433,441                      \r\n   DISPLACEMENT(SORT2,PHASE) = 1                                                \r\n   SPCFORCE(SORT2,PHASE) = 1                                                    \r\nBEGIN BULK                                                                      \r\nDAREA  *37              1               3               2.5000000E-01           \r\nDAREA  *37              2               3               4.9845867E-01           \r\nDAREA  *37              3               3               4.9384417E-01           \r\nDAREA  *37              4               3               4.8618496E-01           \r\nDAREA  *37              5               3               4.7552826E-01           \r\nDAREA  *37              6               3               4.6193977E-01           \r\nDAREA  *37              7               3               4.4550326E-01           \r\nDAREA  *37              8               3               4.2632008E-01           \r\nDAREA  *37              9               3               4.0450850E-01           \r\nDAREA  *37              10              3               3.8020299E-01           \r\nDAREA  *37              11              3               3.5355339E-01           \r\nDAREA  *37              12              3               3.2472403E-01           \r\nDAREA  *37              13              3               2.9389263E-01           \r\nDAREA  *37              14              3               2.6124929E-01           \r\nDAREA  *37              15              3               2.2699525E-01           \r\nDAREA  *37              16              3               1.9134172E-01           \r\nDAREA  *37              17              3               1.5450850E-01           \r\nDAREA  *37              18              3               1.1672269E-01           \r\nDAREA  *37              19              3               7.8217242E-02           \r\nDAREA  *37              20              3               3.9229557E-02           \r\nDAREA  *37              22              3               4.9845867E-01           \r\nDAREA  *37              23              3               9.9384417E-01           \r\nDAREA  *37              24              3               9.8464362E-01           \r\nDAREA  *37              25              3               9.6937243E-01           \r\nDAREA  *37              26              3               9.4812473E-01           \r\nDAREA  *37              27              3               9.2103152E-01           \r\nDAREA  *37              28              3               8.8825985E-01           \r\nDAREA  *37              29              3               8.5001176E-01           \r\nDAREA  *37              30              3               8.0652306E-01           \r\nDAREA  *37              31              3               7.5806189E-01           \r\nDAREA  *37              32              3               7.0492700E-01           \r\nDAREA  *37              33              3               6.4744603E-01           \r\nDAREA  *37              34              3               5.8597331E-01           \r\nDAREA  *37              35              3               5.2088789E-01           \r\nDAREA  *37              36              3               4.5259101E-01           \r\nDAREA  *37              37              3               3.8150376E-01           \r\nDAREA  *37              38              3               3.0806441E-01           \r\nDAREA  *37              39              3               2.3272575E-01           \r\nDAREA  *37              40              3               1.5595225E-01           \r\nDAREA  *37              41              3               7.8217250E-02           \r\nDAREA  *37              43              3               4.9384417E-01           \r\nDAREA  *37              44              3               9.8464362E-01           \r\nDAREA  *37              45              3               9.7552826E-01           \r\nDAREA  *37              46              3               9.6039844E-01           \r\nDAREA  *37              47              3               9.3934743E-01           \r\nDAREA  *37              48              3               9.1250504E-01           \r\nDAREA  *37              49              3               8.8003676E-01           \r\nDAREA  *37              50              3               8.4214275E-01           \r\nDAREA  *37              51              3               7.9905665E-01           \r\nDAREA  *37              52              3               7.5104411E-01           \r\nDAREA  *37              53              3               6.9840112E-01           \r\nDAREA  *37              54              3               6.4145228E-01           \r\nDAREA  *37              55              3               5.8054864E-01           \r\nDAREA  *37              56              3               5.1606575E-01           \r\nDAREA  *37              57              3               4.4840113E-01           \r\nDAREA  *37              58              3               3.7797197E-01           \r\nDAREA  *37              59              3               3.0521249E-01           \r\nDAREA  *37              60              3               2.3057128E-01           \r\nDAREA  *37              61              3               1.5450851E-01           \r\nDAREA  *37              62              3               7.7493152E-02           \r\nDAREA  *37              64              3               4.8618496E-01           \r\nDAREA  *37              65              3               9.6937243E-01           \r\nDAREA  *37              66              3               9.6039844E-01           \r\nDAREA  *37              67              3               9.4550326E-01           \r\nDAREA  *37              68              3               9.2477875E-01           \r\nDAREA  *37              69              3               8.9835267E-01           \r\nDAREA  *37              70              3               8.6638795E-01           \r\nDAREA  *37              71              3               8.2908165E-01           \r\nDAREA  *37              72              3               7.8666379E-01           \r\nDAREA  *37              73              3               7.3939589E-01           \r\nDAREA  *37              74              3               6.8756936E-01           \r\nDAREA  *37              75              3               6.3150375E-01           \r\nDAREA  *37              76              3               5.7154471E-01           \r\nDAREA  *37              77              3               5.0806190E-01           \r\nDAREA  *37              78              3               4.4144671E-01           \r\nDAREA  *37              79              3               3.7210987E-01           \r\nDAREA  *37              80              3               3.0047884E-01           \r\nDAREA  *37              81              3               2.2699527E-01           \r\nDAREA  *37              82              3               1.5211219E-01           \r\nDAREA  *37              83              3               7.6291282E-02           \r\nDAREA  *37              85              3               4.7552826E-01           \r\nDAREA  *37              86              3               9.4812473E-01           \r\nDAREA  *37              87              3               9.3934743E-01           \r\nDAREA  *37              88              3               9.2477875E-01           \r\nDAREA  *37              89              3               9.0450849E-01           \r\nDAREA  *37              90              3               8.7866165E-01           \r\nDAREA  *37              91              3               8.4739757E-01           \r\nDAREA  *37              92              3               8.1090898E-01           \r\nDAREA  *37              93              3               7.6942088E-01           \r\nDAREA  *37              94              3               7.2318906E-01           \r\nDAREA  *37              95              3               6.7249851E-01           \r\nDAREA  *37              96              3               6.1766180E-01           \r\nDAREA  *37              97              3               5.5901700E-01           \r\nDAREA  *37              98              3               4.9692567E-01           \r\nDAREA  *37              99              3               4.3177063E-01           \r\nDAREA  *37              100             3               3.6395358E-01           \r\nDAREA  *37              101             3               2.9389264E-01           \r\nDAREA  *37              102             3               2.2201975E-01           \r\nDAREA  *37              103             3               1.4877803E-01           \r\nDAREA  *37              104             3               7.4619051E-02           \r\nDAREA  *37              106             3               4.6193977E-01           \r\nDAREA  *37              107             3               9.2103152E-01           \r\nDAREA  *37              108             3               9.1250504E-01           \r\nDAREA  *37              109             3               8.9835267E-01           \r\nDAREA  *37              110             3               8.7866165E-01           \r\nDAREA  *37              111             3               8.5355339E-01           \r\nDAREA  *37              112             3               8.2318269E-01           \r\nDAREA  *37              113             3               7.8773680E-01           \r\nDAREA  *37              114             3               7.4743424E-01           \r\nDAREA  *37              115             3               7.0252351E-01           \r\nDAREA  *37              116             3               6.5328148E-01           \r\nDAREA  *37              117             3               6.0001177E-01           \r\nDAREA  *37              118             3               5.4304276E-01           \r\nDAREA  *37              119             3               4.8272574E-01           \r\nDAREA  *37              120             3               4.1943254E-01           \r\nDAREA  *37              121             3               3.5355340E-01           \r\nDAREA  *37              122             3               2.8549449E-01           \r\nDAREA  *37              123             3               2.1567541E-01           \r\nDAREA  *37              124             3               1.4452662E-01           \r\nDAREA  *37              125             3               7.2486769E-02           \r\nDAREA  *37              127             3               4.4550326E-01           \r\nDAREA  *37              128             3               8.8825985E-01           \r\nDAREA  *37              129             3               8.8003676E-01           \r\nDAREA  *37              130             3               8.6638795E-01           \r\nDAREA  *37              131             3               8.4739757E-01           \r\nDAREA  *37              132             3               8.2318269E-01           \r\nDAREA  *37              133             3               7.9389263E-01           \r\nDAREA  *37              134             3               7.5970795E-01           \r\nDAREA  *37              135             3               7.2083942E-01           \r\nDAREA  *37              136             3               6.7752668E-01           \r\nDAREA  *37              137             3               6.3003676E-01           \r\nDAREA  *37              138             3               5.7866246E-01           \r\nDAREA  *37              139             3               5.2372050E-01           \r\nDAREA  *37              140             3               4.6554964E-01           \r\nDAREA  *37              141             3               4.0450851E-01           \r\nDAREA  *37              142             3               3.4097344E-01           \r\nDAREA  *37              143             3               2.7533617E-01           \r\nDAREA  *37              144             3               2.0800136E-01           \r\nDAREA  *37              145             3               1.3938414E-01           \r\nDAREA  *37              146             3               6.9907582E-02           \r\nDAREA  *37              148             3               4.2632008E-01           \r\nDAREA  *37              149             3               8.5001176E-01           \r\nDAREA  *37              150             3               8.4214275E-01           \r\nDAREA  *37              151             3               8.2908165E-01           \r\nDAREA  *37              152             3               8.1090898E-01           \r\nDAREA  *37              153             3               7.8773680E-01           \r\nDAREA  *37              154             3               7.5970795E-01           \r\nDAREA  *37              155             3               7.2699525E-01           \r\nDAREA  *37              156             3               6.8980038E-01           \r\nDAREA  *37              157             3               6.4835268E-01           \r\nDAREA  *37              158             3               6.0290764E-01           \r\nDAREA  *37              159             3               5.5374550E-01           \r\nDAREA  *37              160             3               5.0116932E-01           \r\nDAREA  *37              161             3               4.4550327E-01           \r\nDAREA  *37              162             3               3.8709054E-01           \r\nDAREA  *37              163             3               3.2629127E-01           \r\nDAREA  *37              164             3               2.6348031E-01           \r\nDAREA  *37              165             3               1.9904491E-01           \r\nDAREA  *37              166             3               1.3338232E-01           \r\nDAREA  *37              167             3               6.6897391E-02           \r\nDAREA  *37              169             3               4.0450850E-01           \r\nDAREA  *37              170             3               8.0652306E-01           \r\nDAREA  *37              171             3               7.9905665E-01           \r\nDAREA  *37              172             3               7.8666379E-01           \r\nDAREA  *37              173             3               7.6942088E-01           \r\nDAREA  *37              174             3               7.4743424E-01           \r\nDAREA  *37              175             3               7.2083942E-01           \r\nDAREA  *37              176             3               6.8980038E-01           \r\nDAREA  *37              177             3               6.5450849E-01           \r\nDAREA  *37              178             3               6.1518135E-01           \r\nDAREA  *37              179             3               5.7206140E-01           \r\nDAREA  *37              180             3               5.2541451E-01           \r\nDAREA  *37              181             3               4.7552826E-01           \r\nDAREA  *37              182             3               4.2271023E-01           \r\nDAREA  *37              183             3               3.6728603E-01           \r\nDAREA  *37              184             3               3.0959741E-01           \r\nDAREA  *37              185             3               2.5000001E-01           \r\nDAREA  *37              186             3               1.8886128E-01           \r\nDAREA  *37              187             3               1.2655815E-01           \r\nDAREA  *37              188             3               6.3474756E-02           \r\nDAREA  *37              190             3               3.8020299E-01           \r\nDAREA  *37              191             3               7.5806189E-01           \r\nDAREA  *37              192             3               7.5104411E-01           \r\nDAREA  *37              193             3               7.3939589E-01           \r\nDAREA  *37              194             3               7.2318906E-01           \r\nDAREA  *37              195             3               7.0252351E-01           \r\nDAREA  *37              196             3               6.7752668E-01           \r\nDAREA  *37              197             3               6.4835268E-01           \r\nDAREA  *37              198             3               6.1518135E-01           \r\nDAREA  *37              199             3               5.7821724E-01           \r\nDAREA  *37              200             3               5.3768822E-01           \r\nDAREA  *37              201             3               4.9384418E-01           \r\nDAREA  *37              202             3               4.4695542E-01           \r\nDAREA  *37              203             3               3.9731104E-01           \r\nDAREA  *37              204             3               3.4521709E-01           \r\nDAREA  *37              205             3               2.9099477E-01           \r\nDAREA  *37              206             3               2.3497838E-01           \r\nDAREA  *37              207             3               1.7751326E-01           \r\nDAREA  *37              208             3               1.1895372E-01           \r\nDAREA  *37              209             3               5.9660778E-02           \r\nDAREA  *37              211             3               3.5355339E-01           \r\nDAREA  *37              212             3               7.0492700E-01           \r\nDAREA  *37              213             3               6.9840112E-01           \r\nDAREA  *37              214             3               6.8756936E-01           \r\nDAREA  *37              215             3               6.7249851E-01           \r\nDAREA  *37              216             3               6.5328148E-01           \r\nDAREA  *37              217             3               6.3003676E-01           \r\nDAREA  *37              218             3               6.0290764E-01           \r\nDAREA  *37              219             3               5.7206140E-01           \r\nDAREA  *37              220             3               5.3768822E-01           \r\nDAREA  *37              221             3               5.0000000E-01           \r\nDAREA  *37              222             3               4.5922913E-01           \r\nDAREA  *37              223             3               4.1562694E-01           \r\nDAREA  *37              224             3               3.6946229E-01           \r\nDAREA  *37              225             3               3.2101976E-01           \r\nDAREA  *37              226             3               2.7059806E-01           \r\nDAREA  *37              227             3               2.1850802E-01           \r\nDAREA  *37              228             3               1.6507082E-01           \r\nDAREA  *37              229             3               1.1061588E-01           \r\nDAREA  *37              230             3               5.5478971E-02           \r\nDAREA  *37              232             3               3.2472403E-01           \r\nDAREA  *37              233             3               6.4744603E-01           \r\nDAREA  *37              234             3               6.4145228E-01           \r\nDAREA  *37              235             3               6.3150375E-01           \r\nDAREA  *37              236             3               6.1766180E-01           \r\nDAREA  *37              237             3               6.0001177E-01           \r\nDAREA  *37              238             3               5.7866246E-01           \r\nDAREA  *37              239             3               5.5374550E-01           \r\nDAREA  *37              240             3               5.2541451E-01           \r\nDAREA  *37              241             3               4.9384418E-01           \r\nDAREA  *37              242             3               4.5922913E-01           \r\nDAREA  *37              243             3               4.2178278E-01           \r\nDAREA  *37              244             3               3.8173600E-01           \r\nDAREA  *37              245             3               3.3933569E-01           \r\nDAREA  *37              246             3               2.9484325E-01           \r\nDAREA  *37              247             3               2.4853302E-01           \r\nDAREA  *37              248             3               2.0069049E-01           \r\nDAREA  *37              249             3               1.5161065E-01           \r\nDAREA  *37              250             3               1.0159607E-01           \r\nDAREA  *37              251             3               5.0955119E-02           \r\nDAREA  *37              253             3               2.9389263E-01           \r\nDAREA  *37              254             3               5.8597331E-01           \r\nDAREA  *37              255             3               5.8054864E-01           \r\nDAREA  *37              256             3               5.7154471E-01           \r\nDAREA  *37              257             3               5.5901700E-01           \r\nDAREA  *37              258             3               5.4304276E-01           \r\nDAREA  *37              259             3               5.2372050E-01           \r\nDAREA  *37              260             3               5.0116932E-01           \r\nDAREA  *37              261             3               4.7552826E-01           \r\nDAREA  *37              262             3               4.4695542E-01           \r\nDAREA  *37              263             3               4.1562694E-01           \r\nDAREA  *37              264             3               3.8173600E-01           \r\nDAREA  *37              265             3               3.4549151E-01           \r\nDAREA  *37              266             3               3.0711696E-01           \r\nDAREA  *37              267             3               2.6684893E-01           \r\nDAREA  *37              268             3               2.2493569E-01           \r\nDAREA  *37              269             3               1.8163564E-01           \r\nDAREA  *37              270             3               1.3721576E-01           \r\nDAREA  *37              271             3               9.1949883E-02           \r\nDAREA  *37              272             3               4.6117110E-02           \r\nDAREA  *37              274             3               2.6124929E-01           \r\nDAREA  *37              275             3               5.2088789E-01           \r\nDAREA  *37              276             3               5.1606575E-01           \r\nDAREA  *37              277             3               5.0806190E-01           \r\nDAREA  *37              278             3               4.9692567E-01           \r\nDAREA  *37              279             3               4.8272574E-01           \r\nDAREA  *37              280             3               4.6554964E-01           \r\nDAREA  *37              281             3               4.4550327E-01           \r\nDAREA  *37              282             3               4.2271023E-01           \r\nDAREA  *37              283             3               3.9731104E-01           \r\nDAREA  *37              284             3               3.6946229E-01           \r\nDAREA  *37              285             3               3.3933569E-01           \r\nDAREA  *37              286             3               3.0711696E-01           \r\nDAREA  *37              287             3               2.7300476E-01           \r\nDAREA  *37              288             3               2.3720939E-01           \r\nDAREA  *37              289             3               1.9995156E-01           \r\nDAREA  *37              290             3               1.6146095E-01           \r\nDAREA  *37              291             3               1.2197488E-01           \r\nDAREA  *37              292             3               8.1736795E-02           \r\nDAREA  *37              293             3               4.0994775E-02           \r\nDAREA  *37              295             3               2.2699525E-01           \r\nDAREA  *37              296             3               4.5259101E-01           \r\nDAREA  *37              297             3               4.4840113E-01           \r\nDAREA  *37              298             3               4.4144671E-01           \r\nDAREA  *37              299             3               4.3177063E-01           \r\nDAREA  *37              300             3               4.1943254E-01           \r\nDAREA  *37              301             3               4.0450851E-01           \r\nDAREA  *37              302             3               3.8709054E-01           \r\nDAREA  *37              303             3               3.6728603E-01           \r\nDAREA  *37              304             3               3.4521709E-01           \r\nDAREA  *37              305             3               3.2101976E-01           \r\nDAREA  *37              306             3               2.9484325E-01           \r\nDAREA  *37              307             3               2.6684893E-01           \r\nDAREA  *37              308             3               2.3720939E-01           \r\nDAREA  *37              309             3               2.0610738E-01           \r\nDAREA  *37              310             3               1.7373465E-01           \r\nDAREA  *37              311             3               1.4029079E-01           \r\nDAREA  *37              312             3               1.0598199E-01           \r\nDAREA  *37              313             3               7.1019771E-02           \r\nDAREA  *37              314             3               3.5619693E-02           \r\nDAREA  *37              316             3               1.9134172E-01           \r\nDAREA  *37              317             3               3.8150376E-01           \r\nDAREA  *37              318             3               3.7797197E-01           \r\nDAREA  *37              319             3               3.7210987E-01           \r\nDAREA  *37              320             3               3.6395358E-01           \r\nDAREA  *37              321             3               3.5355340E-01           \r\nDAREA  *37              322             3               3.4097344E-01           \r\nDAREA  *37              323             3               3.2629127E-01           \r\nDAREA  *37              324             3               3.0959741E-01           \r\nDAREA  *37              325             3               2.9099477E-01           \r\nDAREA  *37              326             3               2.7059806E-01           \r\nDAREA  *37              327             3               2.4853302E-01           \r\nDAREA  *37              328             3               2.2493569E-01           \r\nDAREA  *37              329             3               1.9995156E-01           \r\nDAREA  *37              330             3               1.7373465E-01           \r\nDAREA  *37              331             3               1.4644662E-01           \r\nDAREA  *37              332             3               1.1825569E-01           \r\nDAREA  *37              333             3               8.9335684E-02           \r\nDAREA  *37              334             3               5.9864887E-02           \r\nDAREA  *37              335             3               3.0025004E-02           \r\nDAREA  *37              337             3               1.5450850E-01           \r\nDAREA  *37              338             3               3.0806441E-01           \r\nDAREA  *37              339             3               3.0521249E-01           \r\nDAREA  *37              340             3               3.0047884E-01           \r\nDAREA  *37              341             3               2.9389264E-01           \r\nDAREA  *37              342             3               2.8549449E-01           \r\nDAREA  *37              343             3               2.7533617E-01           \r\nDAREA  *37              344             3               2.6348031E-01           \r\nDAREA  *37              345             3               2.5000001E-01           \r\nDAREA  *37              346             3               2.3497838E-01           \r\nDAREA  *37              347             3               2.1850802E-01           \r\nDAREA  *37              348             3               2.0069049E-01           \r\nDAREA  *37              349             3               1.8163564E-01           \r\nDAREA  *37              350             3               1.6146095E-01           \r\nDAREA  *37              351             3               1.4029079E-01           \r\nDAREA  *37              352             3               1.1825569E-01           \r\nDAREA  *37              353             3               9.5491510E-02           \r\nDAREA  *37              354             3               7.2138594E-02           \r\nDAREA  *37              355             3               4.8340916E-02           \r\nDAREA  *37              356             3               2.4245200E-02           \r\nDAREA  *37              358             3               1.1672269E-01           \r\nDAREA  *37              359             3               2.3272575E-01           \r\nDAREA  *37              360             3               2.3057128E-01           \r\nDAREA  *37              361             3               2.2699527E-01           \r\nDAREA  *37              362             3               2.2201975E-01           \r\nDAREA  *37              363             3               2.1567541E-01           \r\nDAREA  *37              364             3               2.0800136E-01           \r\nDAREA  *37              365             3               1.9904491E-01           \r\nDAREA  *37              366             3               1.8886128E-01           \r\nDAREA  *37              367             3               1.7751326E-01           \r\nDAREA  *37              368             3               1.6507082E-01           \r\nDAREA  *37              369             3               1.5161065E-01           \r\nDAREA  *37              370             3               1.3721576E-01           \r\nDAREA  *37              371             3               1.2197488E-01           \r\nDAREA  *37              372             3               1.0598199E-01           \r\nDAREA  *37              373             3               8.9335684E-02           \r\nDAREA  *37              374             3               7.2138594E-02           \r\nDAREA  *37              375             3               5.4496748E-02           \r\nDAREA  *37              376             3               3.6518908E-02           \r\nDAREA  *37              377             3               1.8315918E-02           \r\nDAREA  *37              379             3               7.8217242E-02           \r\nDAREA  *37              380             3               1.5595225E-01           \r\nDAREA  *37              381             3               1.5450851E-01           \r\nDAREA  *37              382             3               1.5211219E-01           \r\nDAREA  *37              383             3               1.4877803E-01           \r\nDAREA  *37              384             3               1.4452662E-01           \r\nDAREA  *37              385             3               1.3938414E-01           \r\nDAREA  *37              386             3               1.3338232E-01           \r\nDAREA  *37              387             3               1.2655815E-01           \r\nDAREA  *37              388             3               1.1895372E-01           \r\nDAREA  *37              389             3               1.1061588E-01           \r\nDAREA  *37              390             3               1.0159607E-01           \r\nDAREA  *37              391             3               9.1949883E-02           \r\nDAREA  *37              392             3               8.1736795E-02           \r\nDAREA  *37              393             3               7.1019771E-02           \r\nDAREA  *37              394             3               5.9864887E-02           \r\nDAREA  *37              395             3               4.8340916E-02           \r\nDAREA  *37              396             3               3.6518908E-02           \r\nDAREA  *37              397             3               2.4471748E-02           \r\nDAREA  *37              398             3               1.2273711E-02           \r\nDAREA  *37              400             3               3.9229557E-02           \r\nDAREA  *37              401             3               7.8217250E-02           \r\nDAREA  *37              402             3               7.7493152E-02           \r\nDAREA  *37              403             3               7.6291282E-02           \r\nDAREA  *37              404             3               7.4619051E-02           \r\nDAREA  *37              405             3               7.2486769E-02           \r\nDAREA  *37              406             3               6.9907582E-02           \r\nDAREA  *37              407             3               6.6897391E-02           \r\nDAREA  *37              408             3               6.3474756E-02           \r\nDAREA  *37              409             3               5.9660778E-02           \r\nDAREA  *37              410             3               5.5478971E-02           \r\nDAREA  *37              411             3               5.0955119E-02           \r\nDAREA  *37              412             3               4.6117110E-02           \r\nDAREA  *37              413             3               4.0994775E-02           \r\nDAREA  *37              414             3               3.5619693E-02           \r\nDAREA  *37              415             3               3.0025004E-02           \r\nDAREA  *37              416             3               2.4245200E-02           \r\nDAREA  *37              417             3               1.8315918E-02           \r\nDAREA  *37              418             3               1.2273711E-02           \r\nDAREA  *37              419             3               6.1558325E-03           \r\nFREQ    8       .0      8.0     9.0     10.0    11.0                            \r\nMAT1    8       3.0+7           .300                                            \r\nPQUAD1  101                     8       .6666667                13.55715        \r\nRLOAD1  8       37                      1                                       \r\nTABLED1 1                                                               +T1     \r\n+T1     .0      2.5     100.0   10.0    ENDT                                    \r\nENDDATA                                                                         \r\n      20      20 5.0E-01 5.0E-01     126 0.0     0.0                            \r\n       4       5      35      34       0       0                                \r\n"
  },
  {
    "path": "inp/d08014a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 8, Frequency Response Analysis - Direct Formulation\r\n$                   Frequency Response of a 10x10 Plate (8-1-1)\r\n$                   Frequency Response of a 20x20 Plate (8-1-2)\r\n$               Frequency Response of a 10x10 Plate (INPUT, 8-1-3)\r\n$               Frequency Response of a 20x20 Plate (INPUT, 8-1-4)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the direct method of determining\r\n$ structural response to steady-state sinusoidal loads, The applied load is\r\n$ given in terms of complex numbers which reflect the amplitudes and phases at\r\n$ each selected frequency. The steady-state response of the structure at each\r\n$ frequency is calculated in terms of complex numbers which reflect the\r\n$ magnitudes and phases of the results. Both configurations are duplicated via\r\n$ the INPUT module to generate the QUAD1 elements.\r\n$ \r\n$ The particular model for this analysis is a square plate composed of\r\n$ quadrilateral plate elements. The exterior edges are supported on hinged\r\n$ supports and symmetric boundaries are used along x = 0 and y = 0. The applied\r\n$ load is sinusoidally distributed over the panel and increases with respect to\r\n$ frequency. Although the applied load excites only the first node, the direct\r\n$ formulation algorithm does not use this shortcut and solves the problem as\r\n$ though the load were completely general.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    a =  b = 10    - length and width of quarter model\r\n$ \r\n$    t =  2.0       - thickness\r\n$ \r\n$                 7\r\n$    E =  3.0 x 10  - Young's Modulus\r\n$ \r\n$    v =  0.3       - Poisson's Ratio\r\n$ \r\n$    mu = 13.55715  - nonstructural mass per area\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The frequency dependent pressure function is:\r\n$ \r\n$                            pi x      pi y\r\n$      P(x,y,f)  =  F(f) cos ----  cos ----                                  (1)\r\n$                             2a        2b\r\n$ \r\n$    where\r\n$ \r\n$      F(f)  =  10. + 0.3f                                                   (2)\r\n$ \r\n$ 3. Constraints:\r\n$ \r\n$    Only vertical notions and bending rotations are allowed, The exterior\r\n$    edges are hinged supports. The interior edges are planes of symmetry, This\r\n$    implies:\r\n$ \r\n$      along x = 0, theta  = 0\r\n$                        y\r\n$ \r\n$      along y = 0, theta  = 0\r\n$                        x\r\n$ \r\n$      along x = a, u  = theta  = 0\r\n$                    z        x\r\n$ \r\n$      along y = b, u  = theta  = 0\r\n$                    z        y\r\n$ \r\n$      all points, u  = u  = theta  = 0\r\n$                   x    y        z\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The excitation of the plate is orthogonal to the theoretical first mode, An\r\n$ explanation of the equations is given in Reference 8. The equations of\r\n$ response are:\r\n$ \r\n$                     F(f)\r\n$    u (f)  =  ------------------                                            (3)\r\n$     z              2    2    2\r\n$              (2 pi) mu(f  - f )\r\n$                         1\r\n$ \r\n$ where f  is the first natural frequency (10 Hz).\r\n$        1\r\n$ \r\n$ D. Results\r\n$ \r\n$ The following table gives the theoretical and NASTRAN results:\r\n$ \r\n$                ---------------------------------------------------\r\n$                                                  4\r\n$                                         u    x 10\r\n$                                          z,1\r\n$                Frequency    --------------------------------------\r\n$                   Hz        Theory  10x10 NASTRAN   20x20 NASTRAN\r\n$                ---------------------------------------------------\r\n$                    0         1.868        1.874       1.869\r\n$ \r\n$                    8         6.435        6.49        6.45\r\n$ \r\n$                    9        12.489       12.69        12.53\r\n$ \r\n$                   10        infinite    -824.92      -3284.4\r\n$ \r\n$                   11       -11.833      -11.67       -11.79\r\n$                ---------------------------------------------------\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d09011a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D09011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   9,1                                                                       \r\nTIME  20                                                                         \r\nCEND                                                                            \r\nTITLE    = TRANSIENT ANALYSIS WITH DIRECT MATRIX INPUT                          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                          \r\nTSTEP = 32                                                                      \r\nIC    = 32                                                                      \r\nDLOAD = 32                                                                      \r\nK2PP  = KCOMP                                                                   \r\nM2PP  = MCOMP                                                                   \r\nB2PP  = BCOMP                                                                   \r\n  OUTPUT                                                                        \r\nSVELO = ALL                                                                     \r\nDISP(SORT2)=ALL                                                                 \r\nOLOAD(SORT2)=ALL                                                                \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D09-01-1A                            \r\nOUTPUT(XYOUT)                                                                   \r\nPLOTTER = NASTPLT                                                               \r\n  CAMERA = 3                                                                    \r\nSKIP BETWEEN FRAMES = 1                                                         \r\n  TCURVE = * * * *   EPOINT       DISPLACEMENT(INCHES)   * * * * * * *          \r\n  XTITLE =                   TIME (SECONDS)                                     \r\n$                                                                               \r\n        YVALUE PRINT SKIP = 1                                                   \r\n        XDIVISIONS = 25                                                         \r\n        XVALUE PRINT SKIP = 1                                                   \r\n$ * * * * * * * * * * * * * * *  FULL FRAME PLOTS  * * * * * * * * * * *        \r\n        YGRID LINES = YES                                                       \r\n        XGRID LINES = YES                                                       \r\n        YDIVISIONS = 22                                                         \r\n$                                                                               \r\n     YTITLE = EPOINT 10         DISPLACEMENT *INCH*                             \r\nXYPLOT DISP / 10(T1)                                                            \r\n$                                                                               \r\n        YDIVISIONS = 20                                                         \r\n     YTITLE = EPOINT 11         DISPLACEMENT *INCH*                             \r\nXYPLOT DISP / 11(T1)                                                            \r\n$                                                                               \r\n     YTITLE = EPOINT 12         DISPLACEMENT *INCH*                             \r\nXYPLOT DISP / 12(T1)                                                            \r\n$                                                                               \r\n     YTITLE = EPOINT 13         DISPLACEMENT *INCH*                             \r\nXYPLOT DISP / 13(T1)                                                            \r\nBEGIN BULK                                                                      \r\nDAREA   1       10              -1.5    11              -1.0                    \r\nDAREA   1       12              -13.5   13              36.0                    \r\nDELAY   1       10              1.0     11              1.0                     \r\nDELAY   1       12              1.0     13              1.0                     \r\nDMIG    BCOMP   0       1       1       2                                       \r\nDMIG    BCOMP   11      0               10      0       -15.0           +BC1    \r\n+BC1    11      0       30.0            12      0       -15.0                   \r\nDMIG    BCOMP   12      0               11      0       -24.0           +BC2    \r\n+BC2    12      0       48.0            13      0       -24.0                   \r\nDMIG    BCOMP   13      0               12      0       -2.0            +BC3    \r\n+BC3    13      0       4.0                                                     \r\nDMIG    KCOMP   0       1       1       2                                       \r\nDMIG    KCOMP   10      0               10      0       2000.           +KC1    \r\n+KC1    11      0       -1000.                                                  \r\nDMIG    KCOMP   12      0               11      0       -100.0          +KC2    \r\n+KC2    12      0       200.0           13      0       -100.0                  \r\nDMIG    KCOMP   13      0               12      0       -20.0           +KC3    \r\n+KC3    13      0       40.0                                                    \r\nDMIG    MCOMP   0       1       1       2                                       \r\nDMIG    MCOMP   10      0               10      0       20.0            +MC1    \r\n+MC1    11      0       -10.0                                                   \r\nDMIG    MCOMP   11      0               10      0       -1.5            +MC2    \r\n+MC2    11      0       3.0             12      0       -1.5                    \r\nDMIG    MCOMP   12      0               11      0       -4.0            +MC4    \r\n+MC4    12      0       8.0             13      0       -4.0                    \r\nEPOINT  10      11      12      13                                              \r\nTABLED1 1                                                               +T1     \r\n+T1     -1.0    .0      .0      .0      .00     1.0     100.0   1.0     +T2     \r\n+T2     ENDT                                                                    \r\nTIC     32      10              .0      10.                                     \r\nTIC     32      11              .0      .5                                      \r\nTIC     32      12              .0      .0                                      \r\nTIC     32      13              -10.0   .0                                      \r\nTLOAD1  32      1       1               1                                       \r\nTSTEP   32      200     .005    10                                      +S1     \r\n+S1             100     .015    5                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d09011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$           RIGID FORMAT No. 9, Transient Analysis - Direct Formulation\r\n$               Transient Analysis with Direct Matrix Input (9-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem demonstrates the capability of NASTRAN to perform transient\r\n$ analysis on a system having nonsymmetric stiffness, damping, and mass\r\n$ matrices. The problem also illustrates the use of time step changes, selection\r\n$ of printout intervals, application of loads, initial conditions, and a simple\r\n$ curve plot package.\r\n$ \r\n$ The matrices and loads used are actually the product of a transformation\r\n$ matrix and diagonal matrices. The resulting answers are easily calculated\r\n$ while the input matrices are of general form. The matrix equation solved is\r\n$ \r\n$        ..         .\r\n$    [M]{u}  +  [B]{u}  +  [K]{u}  =  {P(t)}                                 (1)\r\n$ \r\n$ The problem is actually four disjoint single degree of freedom problems which\r\n$ have been transformed to a general matrix problem.\r\n$ \r\n$ The resulting diagonal matrices are pre-multiplied by the matrix:\r\n$ \r\n$            +                    +\r\n$            |  2   -1     0    0 |\r\n$            |                    |\r\n$            | -1    2    -1    0 |\r\n$    [X]  =  |                    |                                          (2)\r\n$            |  0   -1     2   -1 |\r\n$            |                    |\r\n$            |  0    0    -1    2 |\r\n$            +                    +\r\n$ \r\n$ The answers for the disjoint problem above will be the same as for the general\r\n$ matrix problem since the general case:\r\n$ \r\n$             ..        .\r\n$    [X]([M ]{u} + [B ]{u} + [K ]{u}  =  [X]{P}                              (3)\r\n$          o         o         o\r\n$ \r\n$ has the same results as the disjoint case:\r\n$ \r\n$         ..        .\r\n$    [M ]{u} + [B ]{u} + [K ]{u}  =  {P}                                     (4)\r\n$      o         o         o\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. The actual matrix input is:\r\n$ \r\n$            +                    +\r\n$            | 20   -1.5   0    0 |\r\n$            |                    |\r\n$            |-10    3.0  -4    0 |\r\n$    [M]  =  |                    |\r\n$            |  0   -1.5   8    0 |\r\n$            |                    |\r\n$            |  0    0.0  -4    0 |\r\n$            +                    +\r\n$ \r\n$            +                    +\r\n$            |  0   -15    0    0 |\r\n$            |                    |\r\n$            |  0    30   -24   0 |\r\n$    [B]  =  |                    |\r\n$            |  0   -15    28  -2 |\r\n$            |                    |\r\n$            |  0    0    -24   4 |\r\n$            +                    +\r\n$ \r\n$            +                      +\r\n$            | 2000   0     0    0  |\r\n$            |                      |\r\n$            | -1000  0    -100  0  |\r\n$    [K]  =  |                      |\r\n$            |   0    0     200 -20 |\r\n$            |                      |\r\n$            |   0    0    -100  40 |\r\n$            +                      +\r\n$ \r\n$ 2. The initial conditions are:\r\n$                        .\r\n$    u    =  0           u    =  10.0\r\n$     10                  10\r\n$                        .\r\n$    u    =  0           u    =  0.5\r\n$     11                  11\r\n$                        .\r\n$    u    =  0           u    =  0\r\n$     12                  12\r\n$                        .\r\n$    u    =  -10.0       u    =  0\r\n$     13                  13\r\n$ \r\n$ 3. At t = 1.0 a step load is applied to each point. The load on the uncoupled\r\n$    problems is:\r\n$ \r\n$             | 0   |\r\n$             | 1.5 |\r\n$      P   =  | 4.0 |\r\n$       o     | 20  |\r\n$ \r\n$    The transformed load is:\r\n$ \r\n$                          | -1.5  |\r\n$                          | -1.0  |\r\n$      {P}  =  [X]{P }  =  | -13.5 |\r\n$                   o      | 36.0  |\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The results are responses of single degree of freedom systems. Equations are\r\n$ given in Reference 12, Chapter 9.\r\n$ \r\n$   0 < t < 1.0 , delta t  =  .005\r\n$ \r\n$                                .\r\n$     u   = sin 10t              u   = 10 cos 10t\r\n$      10                         10\r\n$ \r\n$                     -10t       .         -10t\r\n$     u   = 0.05(1 - e    )      u   = 0.5e\r\n$      11                         11\r\n$                                .\r\n$     u   = 0                    u   = 0\r\n$      12                         12\r\n$ \r\n$               -10t             .         -10t\r\n$     u   = -10e                 u   = 100e\r\n$      13                         13\r\n$ \r\n$   t > 1.0 , delta t  =  .015\r\n$ \r\n$     u   = sin 10t\r\n$      10\r\n$                     -10t                     -10(t-1)\r\n$     u   = 0.05(1 - e    ) + 0.1(t - 1.1 + .1e        )\r\n$      11\r\n$                      -3t\r\n$     u   = 0.04 {1 - e   [cos4(t-1) + 3/4 sin4(t-1)]}\r\n$      12\r\n$ \r\n$               -10t        -10(t-1)\r\n$     u   = -10e     + 1 - e\r\n$      13\r\n$ \r\n$ D. Results\r\n$ \r\n$ The deviations of the NASTRAN results and the theoretical response are due to\r\n$ the selection of time steps. For instance point 11 has a time constant equal\r\n$ to two time steps. The initial error in velocity due to the first step causes\r\n$ the displacement error to accumulate. Using a smaller time step has resulted\r\n$ in much better results.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 12. H. Yeh and J. I. Abram, MECHANICS OF SOLIDS AND FLUIDS. Vo1. I, Particle\r\n$     and Rigid Body Mechanics. NcGraw-Hill, 1960.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d09021a.inp",
    "content": "ID    D09021A,NASTRAN                                                           \r\nTIME  26                                                                        \r\nAPP   DISP                                                                      \r\nSOL   9,1                                                                       \r\nCEND                                                                            \r\nTITLE    = TRANSIENT ANALYSIS OF A 1000 CELL STRING                             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-1A                          \r\n   LABEL = TRAVELING WAVE PROBLEM                                               \r\n   TSTEP = 9                                                                    \r\n      IC = 9                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500          \r\n   DISPLACEMENT = 1                                                             \r\n   VELOCITY = 1                                                                 \r\nBEGIN BULK                                                                      \r\nCELAS3  1       101     0       2       2       101     2       3               \r\nCELAS3  3       101     3       4       4       101     4       5               \r\nCELAS3  5       101     5       6       6       101     6       7               \r\nCELAS3  7       101     7       8       8       101     8       9               \r\nCELAS3  9       101     9       10      10      101     10      11              \r\nCELAS3  11      101     11      12      12      101     12      13              \r\nCELAS3  13      101     13      14      14      101     14      15              \r\nCELAS3  15      101     15      16      16      101     16      17              \r\nCELAS3  17      101     17      18      18      101     18      19              \r\nCELAS3  19      101     19      20      20      101     20      21              \r\nCELAS3  21      101     21      22      22      101     22      23              \r\nCELAS3  23      101     23      24      24      101     24      25              \r\nCELAS3  25      101     25      26      26      101     26      27              \r\nCELAS3  27      101     27      28      28      101     28      29              \r\nCELAS3  29      101     29      30      30      101     30      31              \r\nCELAS3  31      101     31      32      32      101     32      33              \r\nCELAS3  33      101     33      34      34      101     34      35              \r\nCELAS3  35      101     35      36      36      101     36      37              \r\nCELAS3  37      101     37      38      38      101     38      39              \r\nCELAS3  39      101     39      40      40      101     40      41              \r\nCELAS3  41      101     41      42      42      101     42      43              \r\nCELAS3  43      101     43      44      44      101     44      45              \r\nCELAS3  45      101     45      46      46      101     46      47              \r\nCELAS3  47      101     47      48      48      101     48      49              \r\nCELAS3  49      101     49      50      50      101     50      51              \r\nCELAS3  51      101     51      52      52      101     52      53              \r\nCELAS3  53      101     53      54      54      101     54      55              \r\nCELAS3  55      101     55      56      56      101     56      57              \r\nCELAS3  57      101     57      58      58      101     58      59              \r\nCELAS3  59      101     59      60      60      101     60      61              \r\nCELAS3  61      101     61      62      62      101     62      63              \r\nCELAS3  63      101     63      64      64      101     64      65              \r\nCELAS3  65      101     65      66      66      101     66      67              \r\nCELAS3  67      101     67      68      68      101     68      69              \r\nCELAS3  69      101     69      70      70      101     70      71              \r\nCELAS3  71      101     71      72      72      101     72      73              \r\nCELAS3  73      101     73      74      74      101     74      75              \r\nCELAS3  75      101     75      76      76      101     76      77              \r\nCELAS3  77      101     77      78      78      101     78      79              \r\nCELAS3  79      101     79      80      80      101     80      81              \r\nCELAS3  81      101     81      82      82      101     82      83              \r\nCELAS3  83      101     83      84      84      101     84      85              \r\nCELAS3  85      101     85      86      86      101     86      87              \r\nCELAS3  87      101     87      88      88      101     88      89              \r\nCELAS3  89      101     89      90      90      101     90      91              \r\nCELAS3  91      101     91      92      92      101     92      93              \r\nCELAS3  93      101     93      94      94      101     94      95              \r\nCELAS3  95      101     95      96      96      101     96      97              \r\nCELAS3  97      101     97      98      98      101     98      99              \r\nCELAS3  99      101     99      100     100     101     100     101             \r\nCELAS3  101     101     101     102     102     101     102     103             \r\nCELAS3  103     101     103     104     104     101     104     105             \r\nCELAS3  105     101     105     106     106     101     106     107             \r\nCELAS3  107     101     107     108     108     101     108     109             \r\nCELAS3  109     101     109     110     110     101     110     111             \r\nCELAS3  111     101     111     112     112     101     112     113             \r\nCELAS3  113     101     113     114     114     101     114     115             \r\nCELAS3  115     101     115     116     116     101     116     117             \r\nCELAS3  117     101     117     118     118     101     118     119             \r\nCELAS3  119     101     119     120     120     101     120     121             \r\nCELAS3  121     101     121     122     122     101     122     123             \r\nCELAS3  123     101     123     124     124     101     124     125             \r\nCELAS3  125     101     125     126     126     101     126     127             \r\nCELAS3  127     101     127     128     128     101     128     129             \r\nCELAS3  129     101     129     130     130     101     130     131             \r\nCELAS3  131     101     131     132     132     101     132     133             \r\nCELAS3  133     101     133     134     134     101     134     135             \r\nCELAS3  135     101     135     136     136     101     136     137             \r\nCELAS3  137     101     137     138     138     101     138     139             \r\nCELAS3  139     101     139     140     140     101     140     141             \r\nCELAS3  141     101     141     142     142     101     142     143             \r\nCELAS3  143     101     143     144     144     101     144     145             \r\nCELAS3  145     101     145     146     146     101     146     147             \r\nCELAS3  147     101     147     148     148     101     148     149             \r\nCELAS3  149     101     149     150     150     101     150     151             \r\nCELAS3  151     101     151     152     152     101     152     153             \r\nCELAS3  153     101     153     154     154     101     154     155             \r\nCELAS3  155     101     155     156     156     101     156     157             \r\nCELAS3  157     101     157     158     158     101     158     159             \r\nCELAS3  159     101     159     160     160     101     160     161             \r\nCELAS3  161     101     161     162     162     101     162     163             \r\nCELAS3  163     101     163     164     164     101     164     165             \r\nCELAS3  165     101     165     166     166     101     166     167             \r\nCELAS3  167     101     167     168     168     101     168     169             \r\nCELAS3  169     101     169     170     170     101     170     171             \r\nCELAS3  171     101     171     172     172     101     172     173             \r\nCELAS3  173     101     173     174     174     101     174     175             \r\nCELAS3  175     101     175     176     176     101     176     177             \r\nCELAS3  177     101     177     178     178     101     178     179             \r\nCELAS3  179     101     179     180     180     101     180     181             \r\nCELAS3  181     101     181     182     182     101     182     183             \r\nCELAS3  183     101     183     184     184     101     184     185             \r\nCELAS3  185     101     185     186     186     101     186     187             \r\nCELAS3  187     101     187     188     188     101     188     189             \r\nCELAS3  189     101     189     190     190     101     190     191             \r\nCELAS3  191     101     191     192     192     101     192     193             \r\nCELAS3  193     101     193     194     194     101     194     195             \r\nCELAS3  195     101     195     196     196     101     196     197             \r\nCELAS3  197     101     197     198     198     101     198     199             \r\nCELAS3  199     101     199     200     200     101     200     201             \r\nCELAS3  201     101     201     202     202     101     202     203             \r\nCELAS3  203     101     203     204     204     101     204     205             \r\nCELAS3  205     101     205     206     206     101     206     207             \r\nCELAS3  207     101     207     208     208     101     208     209             \r\nCELAS3  209     101     209     210     210     101     210     211             \r\nCELAS3  211     101     211     212     212     101     212     213             \r\nCELAS3  213     101     213     214     214     101     214     215             \r\nCELAS3  215     101     215     216     216     101     216     217             \r\nCELAS3  217     101     217     218     218     101     218     219             \r\nCELAS3  219     101     219     220     220     101     220     221             \r\nCELAS3  221     101     221     222     222     101     222     223             \r\nCELAS3  223     101     223     224     224     101     224     225             \r\nCELAS3  225     101     225     226     226     101     226     227             \r\nCELAS3  227     101     227     228     228     101     228     229             \r\nCELAS3  229     101     229     230     230     101     230     231             \r\nCELAS3  231     101     231     232     232     101     232     233             \r\nCELAS3  233     101     233     234     234     101     234     235             \r\nCELAS3  235     101     235     236     236     101     236     237             \r\nCELAS3  237     101     237     238     238     101     238     239             \r\nCELAS3  239     101     239     240     240     101     240     241             \r\nCELAS3  241     101     241     242     242     101     242     243             \r\nCELAS3  243     101     243     244     244     101     244     245             \r\nCELAS3  245     101     245     246     246     101     246     247             \r\nCELAS3  247     101     247     248     248     101     248     249             \r\nCELAS3  249     101     249     250     250     101     250     251             \r\nCELAS3  251     101     251     252     252     101     252     253             \r\nCELAS3  253     101     253     254     254     101     254     255             \r\nCELAS3  255     101     255     256     256     101     256     257             \r\nCELAS3  257     101     257     258     258     101     258     259             \r\nCELAS3  259     101     259     260     260     101     260     261             \r\nCELAS3  261     101     261     262     262     101     262     263             \r\nCELAS3  263     101     263     264     264     101     264     265             \r\nCELAS3  265     101     265     266     266     101     266     267             \r\nCELAS3  267     101     267     268     268     101     268     269             \r\nCELAS3  269     101     269     270     270     101     270     271             \r\nCELAS3  271     101     271     272     272     101     272     273             \r\nCELAS3  273     101     273     274     274     101     274     275             \r\nCELAS3  275     101     275     276     276     101     276     277             \r\nCELAS3  277     101     277     278     278     101     278     279             \r\nCELAS3  279     101     279     280     280     101     280     281             \r\nCELAS3  281     101     281     282     282     101     282     283             \r\nCELAS3  283     101     283     284     284     101     284     285             \r\nCELAS3  285     101     285     286     286     101     286     287             \r\nCELAS3  287     101     287     288     288     101     288     289             \r\nCELAS3  289     101     289     290     290     101     290     291             \r\nCELAS3  291     101     291     292     292     101     292     293             \r\nCELAS3  293     101     293     294     294     101     294     295             \r\nCELAS3  295     101     295     296     296     101     296     297             \r\nCELAS3  297     101     297     298     298     101     298     299             \r\nCELAS3  299     101     299     300     300     101     300     301             \r\nCELAS3  301     101     301     302     302     101     302     303             \r\nCELAS3  303     101     303     304     304     101     304     305             \r\nCELAS3  305     101     305     306     306     101     306     307             \r\nCELAS3  307     101     307     308     308     101     308     309             \r\nCELAS3  309     101     309     310     310     101     310     311             \r\nCELAS3  311     101     311     312     312     101     312     313             \r\nCELAS3  313     101     313     314     314     101     314     315             \r\nCELAS3  315     101     315     316     316     101     316     317             \r\nCELAS3  317     101     317     318     318     101     318     319             \r\nCELAS3  319     101     319     320     320     101     320     321             \r\nCELAS3  321     101     321     322     322     101     322     323             \r\nCELAS3  323     101     323     324     324     101     324     325             \r\nCELAS3  325     101     325     326     326     101     326     327             \r\nCELAS3  327     101     327     328     328     101     328     329             \r\nCELAS3  329     101     329     330     330     101     330     331             \r\nCELAS3  331     101     331     332     332     101     332     333             \r\nCELAS3  333     101     333     334     334     101     334     335             \r\nCELAS3  335     101     335     336     336     101     336     337             \r\nCELAS3  337     101     337     338     338     101     338     339             \r\nCELAS3  339     101     339     340     340     101     340     341             \r\nCELAS3  341     101     341     342     342     101     342     343             \r\nCELAS3  343     101     343     344     344     101     344     345             \r\nCELAS3  345     101     345     346     346     101     346     347             \r\nCELAS3  347     101     347     348     348     101     348     349             \r\nCELAS3  349     101     349     350     350     101     350     351             \r\nCELAS3  351     101     351     352     352     101     352     353             \r\nCELAS3  353     101     353     354     354     101     354     355             \r\nCELAS3  355     101     355     356     356     101     356     357             \r\nCELAS3  357     101     357     358     358     101     358     359             \r\nCELAS3  359     101     359     360     360     101     360     361             \r\nCELAS3  361     101     361     362     362     101     362     363             \r\nCELAS3  363     101     363     364     364     101     364     365             \r\nCELAS3  365     101     365     366     366     101     366     367             \r\nCELAS3  367     101     367     368     368     101     368     369             \r\nCELAS3  369     101     369     370     370     101     370     371             \r\nCELAS3  371     101     371     372     372     101     372     373             \r\nCELAS3  373     101     373     374     374     101     374     375             \r\nCELAS3  375     101     375     376     376     101     376     377             \r\nCELAS3  377     101     377     378     378     101     378     379             \r\nCELAS3  379     101     379     380     380     101     380     381             \r\nCELAS3  381     101     381     382     382     101     382     383             \r\nCELAS3  383     101     383     384     384     101     384     385             \r\nCELAS3  385     101     385     386     386     101     386     387             \r\nCELAS3  387     101     387     388     388     101     388     389             \r\nCELAS3  389     101     389     390     390     101     390     391             \r\nCELAS3  391     101     391     392     392     101     392     393             \r\nCELAS3  393     101     393     394     394     101     394     395             \r\nCELAS3  395     101     395     396     396     101     396     397             \r\nCELAS3  397     101     397     398     398     101     398     399             \r\nCELAS3  399     101     399     400     400     101     400     401             \r\nCELAS3  401     101     401     402     402     101     402     403             \r\nCELAS3  403     101     403     404     404     101     404     405             \r\nCELAS3  405     101     405     406     406     101     406     407             \r\nCELAS3  407     101     407     408     408     101     408     409             \r\nCELAS3  409     101     409     410     410     101     410     411             \r\nCELAS3  411     101     411     412     412     101     412     413             \r\nCELAS3  413     101     413     414     414     101     414     415             \r\nCELAS3  415     101     415     416     416     101     416     417             \r\nCELAS3  417     101     417     418     418     101     418     419             \r\nCELAS3  419     101     419     420     420     101     420     421             \r\nCELAS3  421     101     421     422     422     101     422     423             \r\nCELAS3  423     101     423     424     424     101     424     425             \r\nCELAS3  425     101     425     426     426     101     426     427             \r\nCELAS3  427     101     427     428     428     101     428     429             \r\nCELAS3  429     101     429     430     430     101     430     431             \r\nCELAS3  431     101     431     432     432     101     432     433             \r\nCELAS3  433     101     433     434     434     101     434     435             \r\nCELAS3  435     101     435     436     436     101     436     437             \r\nCELAS3  437     101     437     438     438     101     438     439             \r\nCELAS3  439     101     439     440     440     101     440     441             \r\nCELAS3  441     101     441     442     442     101     442     443             \r\nCELAS3  443     101     443     444     444     101     444     445             \r\nCELAS3  445     101     445     446     446     101     446     447             \r\nCELAS3  447     101     447     448     448     101     448     449             \r\nCELAS3  449     101     449     450     450     101     450     451             \r\nCELAS3  451     101     451     452     452     101     452     453             \r\nCELAS3  453     101     453     454     454     101     454     455             \r\nCELAS3  455     101     455     456     456     101     456     457             \r\nCELAS3  457     101     457     458     458     101     458     459             \r\nCELAS3  459     101     459     460     460     101     460     461             \r\nCELAS3  461     101     461     462     462     101     462     463             \r\nCELAS3  463     101     463     464     464     101     464     465             \r\nCELAS3  465     101     465     466     466     101     466     467             \r\nCELAS3  467     101     467     468     468     101     468     469             \r\nCELAS3  469     101     469     470     470     101     470     471             \r\nCELAS3  471     101     471     472     472     101     472     473             \r\nCELAS3  473     101     473     474     474     101     474     475             \r\nCELAS3  475     101     475     476     476     101     476     477             \r\nCELAS3  477     101     477     478     478     101     478     479             \r\nCELAS3  479     101     479     480     480     101     480     481             \r\nCELAS3  481     101     481     482     482     101     482     483             \r\nCELAS3  483     101     483     484     484     101     484     485             \r\nCELAS3  485     101     485     486     486     101     486     487             \r\nCELAS3  487     101     487     488     488     101     488     489             \r\nCELAS3  489     101     489     490     490     101     490     491             \r\nCELAS3  491     101     491     492     492     101     492     493             \r\nCELAS3  493     101     493     494     494     101     494     495             \r\nCELAS3  495     101     495     496     496     101     496     497             \r\nCELAS3  497     101     497     498     498     101     498     499             \r\nCELAS3  499     101     499     500     500     101     500     501             \r\nCELAS3  501     101     501     502     502     101     502     503             \r\nCELAS3  503     101     503     504     504     101     504     505             \r\nCELAS3  505     101     505     506     506     101     506     507             \r\nCELAS3  507     101     507     508     508     101     508     509             \r\nCELAS3  509     101     509     510     510     101     510     511             \r\nCELAS3  511     101     511     512     512     101     512     513             \r\nCELAS3  513     101     513     514     514     101     514     515             \r\nCELAS3  515     101     515     516     516     101     516     517             \r\nCELAS3  517     101     517     518     518     101     518     519             \r\nCELAS3  519     101     519     520     520     101     520     521             \r\nCELAS3  521     101     521     522     522     101     522     523             \r\nCELAS3  523     101     523     524     524     101     524     525             \r\nCELAS3  525     101     525     526     526     101     526     527             \r\nCELAS3  527     101     527     528     528     101     528     529             \r\nCELAS3  529     101     529     530     530     101     530     531             \r\nCELAS3  531     101     531     532     532     101     532     533             \r\nCELAS3  533     101     533     534     534     101     534     535             \r\nCELAS3  535     101     535     536     536     101     536     537             \r\nCELAS3  537     101     537     538     538     101     538     539             \r\nCELAS3  539     101     539     540     540     101     540     541             \r\nCELAS3  541     101     541     542     542     101     542     543             \r\nCELAS3  543     101     543     544     544     101     544     545             \r\nCELAS3  545     101     545     546     546     101     546     547             \r\nCELAS3  547     101     547     548     548     101     548     549             \r\nCELAS3  549     101     549     550     550     101     550     551             \r\nCELAS3  551     101     551     552     552     101     552     553             \r\nCELAS3  553     101     553     554     554     101     554     555             \r\nCELAS3  555     101     555     556     556     101     556     557             \r\nCELAS3  557     101     557     558     558     101     558     559             \r\nCELAS3  559     101     559     560     560     101     560     561             \r\nCELAS3  561     101     561     562     562     101     562     563             \r\nCELAS3  563     101     563     564     564     101     564     565             \r\nCELAS3  565     101     565     566     566     101     566     567             \r\nCELAS3  567     101     567     568     568     101     568     569             \r\nCELAS3  569     101     569     570     570     101     570     571             \r\nCELAS3  571     101     571     572     572     101     572     573             \r\nCELAS3  573     101     573     574     574     101     574     575             \r\nCELAS3  575     101     575     576     576     101     576     577             \r\nCELAS3  577     101     577     578     578     101     578     579             \r\nCELAS3  579     101     579     580     580     101     580     581             \r\nCELAS3  581     101     581     582     582     101     582     583             \r\nCELAS3  583     101     583     584     584     101     584     585             \r\nCELAS3  585     101     585     586     586     101     586     587             \r\nCELAS3  587     101     587     588     588     101     588     589             \r\nCELAS3  589     101     589     590     590     101     590     591             \r\nCELAS3  591     101     591     592     592     101     592     593             \r\nCELAS3  593     101     593     594     594     101     594     595             \r\nCELAS3  595     101     595     596     596     101     596     597             \r\nCELAS3  597     101     597     598     598     101     598     599             \r\nCELAS3  599     101     599     600     600     101     600     601             \r\nCELAS3  601     101     601     602     602     101     602     603             \r\nCELAS3  603     101     603     604     604     101     604     605             \r\nCELAS3  605     101     605     606     606     101     606     607             \r\nCELAS3  607     101     607     608     608     101     608     609             \r\nCELAS3  609     101     609     610     610     101     610     611             \r\nCELAS3  611     101     611     612     612     101     612     613             \r\nCELAS3  613     101     613     614     614     101     614     615             \r\nCELAS3  615     101     615     616     616     101     616     617             \r\nCELAS3  617     101     617     618     618     101     618     619             \r\nCELAS3  619     101     619     620     620     101     620     621             \r\nCELAS3  621     101     621     622     622     101     622     623             \r\nCELAS3  623     101     623     624     624     101     624     625             \r\nCELAS3  625     101     625     626     626     101     626     627             \r\nCELAS3  627     101     627     628     628     101     628     629             \r\nCELAS3  629     101     629     630     630     101     630     631             \r\nCELAS3  631     101     631     632     632     101     632     633             \r\nCELAS3  633     101     633     634     634     101     634     635             \r\nCELAS3  635     101     635     636     636     101     636     637             \r\nCELAS3  637     101     637     638     638     101     638     639             \r\nCELAS3  639     101     639     640     640     101     640     641             \r\nCELAS3  641     101     641     642     642     101     642     643             \r\nCELAS3  643     101     643     644     644     101     644     645             \r\nCELAS3  645     101     645     646     646     101     646     647             \r\nCELAS3  647     101     647     648     648     101     648     649             \r\nCELAS3  649     101     649     650     650     101     650     651             \r\nCELAS3  651     101     651     652     652     101     652     653             \r\nCELAS3  653     101     653     654     654     101     654     655             \r\nCELAS3  655     101     655     656     656     101     656     657             \r\nCELAS3  657     101     657     658     658     101     658     659             \r\nCELAS3  659     101     659     660     660     101     660     661             \r\nCELAS3  661     101     661     662     662     101     662     663             \r\nCELAS3  663     101     663     664     664     101     664     665             \r\nCELAS3  665     101     665     666     666     101     666     667             \r\nCELAS3  667     101     667     668     668     101     668     669             \r\nCELAS3  669     101     669     670     670     101     670     671             \r\nCELAS3  671     101     671     672     672     101     672     673             \r\nCELAS3  673     101     673     674     674     101     674     675             \r\nCELAS3  675     101     675     676     676     101     676     677             \r\nCELAS3  677     101     677     678     678     101     678     679             \r\nCELAS3  679     101     679     680     680     101     680     681             \r\nCELAS3  681     101     681     682     682     101     682     683             \r\nCELAS3  683     101     683     684     684     101     684     685             \r\nCELAS3  685     101     685     686     686     101     686     687             \r\nCELAS3  687     101     687     688     688     101     688     689             \r\nCELAS3  689     101     689     690     690     101     690     691             \r\nCELAS3  691     101     691     692     692     101     692     693             \r\nCELAS3  693     101     693     694     694     101     694     695             \r\nCELAS3  695     101     695     696     696     101     696     697             \r\nCELAS3  697     101     697     698     698     101     698     699             \r\nCELAS3  699     101     699     700     700     101     700     701             \r\nCELAS3  701     101     701     702     702     101     702     703             \r\nCELAS3  703     101     703     704     704     101     704     705             \r\nCELAS3  705     101     705     706     706     101     706     707             \r\nCELAS3  707     101     707     708     708     101     708     709             \r\nCELAS3  709     101     709     710     710     101     710     711             \r\nCELAS3  711     101     711     712     712     101     712     713             \r\nCELAS3  713     101     713     714     714     101     714     715             \r\nCELAS3  715     101     715     716     716     101     716     717             \r\nCELAS3  717     101     717     718     718     101     718     719             \r\nCELAS3  719     101     719     720     720     101     720     721             \r\nCELAS3  721     101     721     722     722     101     722     723             \r\nCELAS3  723     101     723     724     724     101     724     725             \r\nCELAS3  725     101     725     726     726     101     726     727             \r\nCELAS3  727     101     727     728     728     101     728     729             \r\nCELAS3  729     101     729     730     730     101     730     731             \r\nCELAS3  731     101     731     732     732     101     732     733             \r\nCELAS3  733     101     733     734     734     101     734     735             \r\nCELAS3  735     101     735     736     736     101     736     737             \r\nCELAS3  737     101     737     738     738     101     738     739             \r\nCELAS3  739     101     739     740     740     101     740     741             \r\nCELAS3  741     101     741     742     742     101     742     743             \r\nCELAS3  743     101     743     744     744     101     744     745             \r\nCELAS3  745     101     745     746     746     101     746     747             \r\nCELAS3  747     101     747     748     748     101     748     749             \r\nCELAS3  749     101     749     750     750     101     750     751             \r\nCELAS3  751     101     751     752     752     101     752     753             \r\nCELAS3  753     101     753     754     754     101     754     755             \r\nCELAS3  755     101     755     756     756     101     756     757             \r\nCELAS3  757     101     757     758     758     101     758     759             \r\nCELAS3  759     101     759     760     760     101     760     761             \r\nCELAS3  761     101     761     762     762     101     762     763             \r\nCELAS3  763     101     763     764     764     101     764     765             \r\nCELAS3  765     101     765     766     766     101     766     767             \r\nCELAS3  767     101     767     768     768     101     768     769             \r\nCELAS3  769     101     769     770     770     101     770     771             \r\nCELAS3  771     101     771     772     772     101     772     773             \r\nCELAS3  773     101     773     774     774     101     774     775             \r\nCELAS3  775     101     775     776     776     101     776     777             \r\nCELAS3  777     101     777     778     778     101     778     779             \r\nCELAS3  779     101     779     780     780     101     780     781             \r\nCELAS3  781     101     781     782     782     101     782     783             \r\nCELAS3  783     101     783     784     784     101     784     785             \r\nCELAS3  785     101     785     786     786     101     786     787             \r\nCELAS3  787     101     787     788     788     101     788     789             \r\nCELAS3  789     101     789     790     790     101     790     791             \r\nCELAS3  791     101     791     792     792     101     792     793             \r\nCELAS3  793     101     793     794     794     101     794     795             \r\nCELAS3  795     101     795     796     796     101     796     797             \r\nCELAS3  797     101     797     798     798     101     798     799             \r\nCELAS3  799     101     799     800     800     101     800     801             \r\nCELAS3  801     101     801     802     802     101     802     803             \r\nCELAS3  803     101     803     804     804     101     804     805             \r\nCELAS3  805     101     805     806     806     101     806     807             \r\nCELAS3  807     101     807     808     808     101     808     809             \r\nCELAS3  809     101     809     810     810     101     810     811             \r\nCELAS3  811     101     811     812     812     101     812     813             \r\nCELAS3  813     101     813     814     814     101     814     815             \r\nCELAS3  815     101     815     816     816     101     816     817             \r\nCELAS3  817     101     817     818     818     101     818     819             \r\nCELAS3  819     101     819     820     820     101     820     821             \r\nCELAS3  821     101     821     822     822     101     822     823             \r\nCELAS3  823     101     823     824     824     101     824     825             \r\nCELAS3  825     101     825     826     826     101     826     827             \r\nCELAS3  827     101     827     828     828     101     828     829             \r\nCELAS3  829     101     829     830     830     101     830     831             \r\nCELAS3  831     101     831     832     832     101     832     833             \r\nCELAS3  833     101     833     834     834     101     834     835             \r\nCELAS3  835     101     835     836     836     101     836     837             \r\nCELAS3  837     101     837     838     838     101     838     839             \r\nCELAS3  839     101     839     840     840     101     840     841             \r\nCELAS3  841     101     841     842     842     101     842     843             \r\nCELAS3  843     101     843     844     844     101     844     845             \r\nCELAS3  845     101     845     846     846     101     846     847             \r\nCELAS3  847     101     847     848     848     101     848     849             \r\nCELAS3  849     101     849     850     850     101     850     851             \r\nCELAS3  851     101     851     852     852     101     852     853             \r\nCELAS3  853     101     853     854     854     101     854     855             \r\nCELAS3  855     101     855     856     856     101     856     857             \r\nCELAS3  857     101     857     858     858     101     858     859             \r\nCELAS3  859     101     859     860     860     101     860     861             \r\nCELAS3  861     101     861     862     862     101     862     863             \r\nCELAS3  863     101     863     864     864     101     864     865             \r\nCELAS3  865     101     865     866     866     101     866     867             \r\nCELAS3  867     101     867     868     868     101     868     869             \r\nCELAS3  869     101     869     870     870     101     870     871             \r\nCELAS3  871     101     871     872     872     101     872     873             \r\nCELAS3  873     101     873     874     874     101     874     875             \r\nCELAS3  875     101     875     876     876     101     876     877             \r\nCELAS3  877     101     877     878     878     101     878     879             \r\nCELAS3  879     101     879     880     880     101     880     881             \r\nCELAS3  881     101     881     882     882     101     882     883             \r\nCELAS3  883     101     883     884     884     101     884     885             \r\nCELAS3  885     101     885     886     886     101     886     887             \r\nCELAS3  887     101     887     888     888     101     888     889             \r\nCELAS3  889     101     889     890     890     101     890     891             \r\nCELAS3  891     101     891     892     892     101     892     893             \r\nCELAS3  893     101     893     894     894     101     894     895             \r\nCELAS3  895     101     895     896     896     101     896     897             \r\nCELAS3  897     101     897     898     898     101     898     899             \r\nCELAS3  899     101     899     900     900     101     900     901             \r\nCELAS3  901     101     901     902     902     101     902     903             \r\nCELAS3  903     101     903     904     904     101     904     905             \r\nCELAS3  905     101     905     906     906     101     906     907             \r\nCELAS3  907     101     907     908     908     101     908     909             \r\nCELAS3  909     101     909     910     910     101     910     911             \r\nCELAS3  911     101     911     912     912     101     912     913             \r\nCELAS3  913     101     913     914     914     101     914     915             \r\nCELAS3  915     101     915     916     916     101     916     917             \r\nCELAS3  917     101     917     918     918     101     918     919             \r\nCELAS3  919     101     919     920     920     101     920     921             \r\nCELAS3  921     101     921     922     922     101     922     923             \r\nCELAS3  923     101     923     924     924     101     924     925             \r\nCELAS3  925     101     925     926     926     101     926     927             \r\nCELAS3  927     101     927     928     928     101     928     929             \r\nCELAS3  929     101     929     930     930     101     930     931             \r\nCELAS3  931     101     931     932     932     101     932     933             \r\nCELAS3  933     101     933     934     934     101     934     935             \r\nCELAS3  935     101     935     936     936     101     936     937             \r\nCELAS3  937     101     937     938     938     101     938     939             \r\nCELAS3  939     101     939     940     940     101     940     941             \r\nCELAS3  941     101     941     942     942     101     942     943             \r\nCELAS3  943     101     943     944     944     101     944     945             \r\nCELAS3  945     101     945     946     946     101     946     947             \r\nCELAS3  947     101     947     948     948     101     948     949             \r\nCELAS3  949     101     949     950     950     101     950     951             \r\nCELAS3  951     101     951     952     952     101     952     953             \r\nCELAS3  953     101     953     954     954     101     954     955             \r\nCELAS3  955     101     955     956     956     101     956     957             \r\nCELAS3  957     101     957     958     958     101     958     959             \r\nCELAS3  959     101     959     960     960     101     960     961             \r\nCELAS3  961     101     961     962     962     101     962     963             \r\nCELAS3  963     101     963     964     964     101     964     965             \r\nCELAS3  965     101     965     966     966     101     966     967             \r\nCELAS3  967     101     967     968     968     101     968     969             \r\nCELAS3  969     101     969     970     970     101     970     971             \r\nCELAS3  971     101     971     972     972     101     972     973             \r\nCELAS3  973     101     973     974     974     101     974     975             \r\nCELAS3  975     101     975     976     976     101     976     977             \r\nCELAS3  977     101     977     978     978     101     978     979             \r\nCELAS3  979     101     979     980     980     101     980     981             \r\nCELAS3  981     101     981     982     982     101     982     983             \r\nCELAS3  983     101     983     984     984     101     984     985             \r\nCELAS3  985     101     985     986     986     101     986     987             \r\nCELAS3  987     101     987     988     988     101     988     989             \r\nCELAS3  989     101     989     990     990     101     990     991             \r\nCELAS3  991     101     991     992     992     101     992     993             \r\nCELAS3  993     101     993     994     994     101     994     995             \r\nCELAS3  995     101     995     996     996     101     996     997             \r\nCELAS3  997     101     997     998     998     101     998     999             \r\nCELAS3  999     101     999     1000    1000    101     1000    0               \r\nCMASS3  40002   301     2       0                                               \r\nCMASS3  40003   301     3       0       40004   301     4       0               \r\nCMASS3  40005   301     5       0       40006   301     6       0               \r\nCMASS3  40007   301     7       0       40008   301     8       0               \r\nCMASS3  40009   301     9       0       40010   301     10      0               \r\nCMASS3  40011   301     11      0       40012   301     12      0               \r\nCMASS3  40013   301     13      0       40014   301     14      0               \r\nCMASS3  40015   301     15      0       40016   301     16      0               \r\nCMASS3  40017   301     17      0       40018   301     18      0               \r\nCMASS3  40019   301     19      0       40020   301     20      0               \r\nCMASS3  40021   301     21      0       40022   301     22      0               \r\nCMASS3  40023   301     23      0       40024   301     24      0               \r\nCMASS3  40025   301     25      0       40026   301     26      0               \r\nCMASS3  40027   301     27      0       40028   301     28      0               \r\nCMASS3  40029   301     29      0       40030   301     30      0               \r\nCMASS3  40031   301     31      0       40032   301     32      0               \r\nCMASS3  40033   301     33      0       40034   301     34      0               \r\nCMASS3  40035   301     35      0       40036   301     36      0               \r\nCMASS3  40037   301     37      0       40038   301     38      0               \r\nCMASS3  40039   301     39      0       40040   301     40      0               \r\nCMASS3  40041   301     41      0       40042   301     42      0               \r\nCMASS3  40043   301     43      0       40044   301     44      0               \r\nCMASS3  40045   301     45      0       40046   301     46      0               \r\nCMASS3  40047   301     47      0       40048   301     48      0               \r\nCMASS3  40049   301     49      0       40050   301     50      0               \r\nCMASS3  40051   301     51      0       40052   301     52      0               \r\nCMASS3  40053   301     53      0       40054   301     54      0               \r\nCMASS3  40055   301     55      0       40056   301     56      0               \r\nCMASS3  40057   301     57      0       40058   301     58      0               \r\nCMASS3  40059   301     59      0       40060   301     60      0               \r\nCMASS3  40061   301     61      0       40062   301     62      0               \r\nCMASS3  40063   301     63      0       40064   301     64      0               \r\nCMASS3  40065   301     65      0       40066   301     66      0               \r\nCMASS3  40067   301     67      0       40068   301     68      0               \r\nCMASS3  40069   301     69      0       40070   301     70      0               \r\nCMASS3  40071   301     71      0       40072   301     72      0               \r\nCMASS3  40073   301     73      0       40074   301     74      0               \r\nCMASS3  40075   301     75      0       40076   301     76      0               \r\nCMASS3  40077   301     77      0       40078   301     78      0               \r\nCMASS3  40079   301     79      0       40080   301     80      0               \r\nCMASS3  40081   301     81      0       40082   301     82      0               \r\nCMASS3  40083   301     83      0       40084   301     84      0               \r\nCMASS3  40085   301     85      0       40086   301     86      0               \r\nCMASS3  40087   301     87      0       40088   301     88      0               \r\nCMASS3  40089   301     89      0       40090   301     90      0               \r\nCMASS3  40091   301     91      0       40092   301     92      0               \r\nCMASS3  40093   301     93      0       40094   301     94      0               \r\nCMASS3  40095   301     95      0       40096   301     96      0               \r\nCMASS3  40097   301     97      0       40098   301     98      0               \r\nCMASS3  40099   301     99      0       40100   301     100     0               \r\nCMASS3  40101   301     101     0       40102   301     102     0               \r\nCMASS3  40103   301     103     0       40104   301     104     0               \r\nCMASS3  40105   301     105     0       40106   301     106     0               \r\nCMASS3  40107   301     107     0       40108   301     108     0               \r\nCMASS3  40109   301     109     0       40110   301     110     0               \r\nCMASS3  40111   301     111     0       40112   301     112     0               \r\nCMASS3  40113   301     113     0       40114   301     114     0               \r\nCMASS3  40115   301     115     0       40116   301     116     0               \r\nCMASS3  40117   301     117     0       40118   301     118     0               \r\nCMASS3  40119   301     119     0       40120   301     120     0               \r\nCMASS3  40121   301     121     0       40122   301     122     0               \r\nCMASS3  40123   301     123     0       40124   301     124     0               \r\nCMASS3  40125   301     125     0       40126   301     126     0               \r\nCMASS3  40127   301     127     0       40128   301     128     0               \r\nCMASS3  40129   301     129     0       40130   301     130     0               \r\nCMASS3  40131   301     131     0       40132   301     132     0               \r\nCMASS3  40133   301     133     0       40134   301     134     0               \r\nCMASS3  40135   301     135     0       40136   301     136     0               \r\nCMASS3  40137   301     137     0       40138   301     138     0               \r\nCMASS3  40139   301     139     0       40140   301     140     0               \r\nCMASS3  40141   301     141     0       40142   301     142     0               \r\nCMASS3  40143   301     143     0       40144   301     144     0               \r\nCMASS3  40145   301     145     0       40146   301     146     0               \r\nCMASS3  40147   301     147     0       40148   301     148     0               \r\nCMASS3  40149   301     149     0       40150   301     150     0               \r\nCMASS3  40151   301     151     0       40152   301     152     0               \r\nCMASS3  40153   301     153     0       40154   301     154     0               \r\nCMASS3  40155   301     155     0       40156   301     156     0               \r\nCMASS3  40157   301     157     0       40158   301     158     0               \r\nCMASS3  40159   301     159     0       40160   301     160     0               \r\nCMASS3  40161   301     161     0       40162   301     162     0               \r\nCMASS3  40163   301     163     0       40164   301     164     0               \r\nCMASS3  40165   301     165     0       40166   301     166     0               \r\nCMASS3  40167   301     167     0       40168   301     168     0               \r\nCMASS3  40169   301     169     0       40170   301     170     0               \r\nCMASS3  40171   301     171     0       40172   301     172     0               \r\nCMASS3  40173   301     173     0       40174   301     174     0               \r\nCMASS3  40175   301     175     0       40176   301     176     0               \r\nCMASS3  40177   301     177     0       40178   301     178     0               \r\nCMASS3  40179   301     179     0       40180   301     180     0               \r\nCMASS3  40181   301     181     0       40182   301     182     0               \r\nCMASS3  40183   301     183     0       40184   301     184     0               \r\nCMASS3  40185   301     185     0       40186   301     186     0               \r\nCMASS3  40187   301     187     0       40188   301     188     0               \r\nCMASS3  40189   301     189     0       40190   301     190     0               \r\nCMASS3  40191   301     191     0       40192   301     192     0               \r\nCMASS3  40193   301     193     0       40194   301     194     0               \r\nCMASS3  40195   301     195     0       40196   301     196     0               \r\nCMASS3  40197   301     197     0       40198   301     198     0               \r\nCMASS3  40199   301     199     0       40200   301     200     0               \r\nCMASS3  40201   301     201     0       40202   301     202     0               \r\nCMASS3  40203   301     203     0       40204   301     204     0               \r\nCMASS3  40205   301     205     0       40206   301     206     0               \r\nCMASS3  40207   301     207     0       40208   301     208     0               \r\nCMASS3  40209   301     209     0       40210   301     210     0               \r\nCMASS3  40211   301     211     0       40212   301     212     0               \r\nCMASS3  40213   301     213     0       40214   301     214     0               \r\nCMASS3  40215   301     215     0       40216   301     216     0               \r\nCMASS3  40217   301     217     0       40218   301     218     0               \r\nCMASS3  40219   301     219     0       40220   301     220     0               \r\nCMASS3  40221   301     221     0       40222   301     222     0               \r\nCMASS3  40223   301     223     0       40224   301     224     0               \r\nCMASS3  40225   301     225     0       40226   301     226     0               \r\nCMASS3  40227   301     227     0       40228   301     228     0               \r\nCMASS3  40229   301     229     0       40230   301     230     0               \r\nCMASS3  40231   301     231     0       40232   301     232     0               \r\nCMASS3  40233   301     233     0       40234   301     234     0               \r\nCMASS3  40235   301     235     0       40236   301     236     0               \r\nCMASS3  40237   301     237     0       40238   301     238     0               \r\nCMASS3  40239   301     239     0       40240   301     240     0               \r\nCMASS3  40241   301     241     0       40242   301     242     0               \r\nCMASS3  40243   301     243     0       40244   301     244     0               \r\nCMASS3  40245   301     245     0       40246   301     246     0               \r\nCMASS3  40247   301     247     0       40248   301     248     0               \r\nCMASS3  40249   301     249     0       40250   301     250     0               \r\nCMASS3  40251   301     251     0       40252   301     252     0               \r\nCMASS3  40253   301     253     0       40254   301     254     0               \r\nCMASS3  40255   301     255     0       40256   301     256     0               \r\nCMASS3  40257   301     257     0       40258   301     258     0               \r\nCMASS3  40259   301     259     0       40260   301     260     0               \r\nCMASS3  40261   301     261     0       40262   301     262     0               \r\nCMASS3  40263   301     263     0       40264   301     264     0               \r\nCMASS3  40265   301     265     0       40266   301     266     0               \r\nCMASS3  40267   301     267     0       40268   301     268     0               \r\nCMASS3  40269   301     269     0       40270   301     270     0               \r\nCMASS3  40271   301     271     0       40272   301     272     0               \r\nCMASS3  40273   301     273     0       40274   301     274     0               \r\nCMASS3  40275   301     275     0       40276   301     276     0               \r\nCMASS3  40277   301     277     0       40278   301     278     0               \r\nCMASS3  40279   301     279     0       40280   301     280     0               \r\nCMASS3  40281   301     281     0       40282   301     282     0               \r\nCMASS3  40283   301     283     0       40284   301     284     0               \r\nCMASS3  40285   301     285     0       40286   301     286     0               \r\nCMASS3  40287   301     287     0       40288   301     288     0               \r\nCMASS3  40289   301     289     0       40290   301     290     0               \r\nCMASS3  40291   301     291     0       40292   301     292     0               \r\nCMASS3  40293   301     293     0       40294   301     294     0               \r\nCMASS3  40295   301     295     0       40296   301     296     0               \r\nCMASS3  40297   301     297     0       40298   301     298     0               \r\nCMASS3  40299   301     299     0       40300   301     300     0               \r\nCMASS3  40301   301     301     0       40302   301     302     0               \r\nCMASS3  40303   301     303     0       40304   301     304     0               \r\nCMASS3  40305   301     305     0       40306   301     306     0               \r\nCMASS3  40307   301     307     0       40308   301     308     0               \r\nCMASS3  40309   301     309     0       40310   301     310     0               \r\nCMASS3  40311   301     311     0       40312   301     312     0               \r\nCMASS3  40313   301     313     0       40314   301     314     0               \r\nCMASS3  40315   301     315     0       40316   301     316     0               \r\nCMASS3  40317   301     317     0       40318   301     318     0               \r\nCMASS3  40319   301     319     0       40320   301     320     0               \r\nCMASS3  40321   301     321     0       40322   301     322     0               \r\nCMASS3  40323   301     323     0       40324   301     324     0               \r\nCMASS3  40325   301     325     0       40326   301     326     0               \r\nCMASS3  40327   301     327     0       40328   301     328     0               \r\nCMASS3  40329   301     329     0       40330   301     330     0               \r\nCMASS3  40331   301     331     0       40332   301     332     0               \r\nCMASS3  40333   301     333     0       40334   301     334     0               \r\nCMASS3  40335   301     335     0       40336   301     336     0               \r\nCMASS3  40337   301     337     0       40338   301     338     0               \r\nCMASS3  40339   301     339     0       40340   301     340     0               \r\nCMASS3  40341   301     341     0       40342   301     342     0               \r\nCMASS3  40343   301     343     0       40344   301     344     0               \r\nCMASS3  40345   301     345     0       40346   301     346     0               \r\nCMASS3  40347   301     347     0       40348   301     348     0               \r\nCMASS3  40349   301     349     0       40350   301     350     0               \r\nCMASS3  40351   301     351     0       40352   301     352     0               \r\nCMASS3  40353   301     353     0       40354   301     354     0               \r\nCMASS3  40355   301     355     0       40356   301     356     0               \r\nCMASS3  40357   301     357     0       40358   301     358     0               \r\nCMASS3  40359   301     359     0       40360   301     360     0               \r\nCMASS3  40361   301     361     0       40362   301     362     0               \r\nCMASS3  40363   301     363     0       40364   301     364     0               \r\nCMASS3  40365   301     365     0       40366   301     366     0               \r\nCMASS3  40367   301     367     0       40368   301     368     0               \r\nCMASS3  40369   301     369     0       40370   301     370     0               \r\nCMASS3  40371   301     371     0       40372   301     372     0               \r\nCMASS3  40373   301     373     0       40374   301     374     0               \r\nCMASS3  40375   301     375     0       40376   301     376     0               \r\nCMASS3  40377   301     377     0       40378   301     378     0               \r\nCMASS3  40379   301     379     0       40380   301     380     0               \r\nCMASS3  40381   301     381     0       40382   301     382     0               \r\nCMASS3  40383   301     383     0       40384   301     384     0               \r\nCMASS3  40385   301     385     0       40386   301     386     0               \r\nCMASS3  40387   301     387     0       40388   301     388     0               \r\nCMASS3  40389   301     389     0       40390   301     390     0               \r\nCMASS3  40391   301     391     0       40392   301     392     0               \r\nCMASS3  40393   301     393     0       40394   301     394     0               \r\nCMASS3  40395   301     395     0       40396   301     396     0               \r\nCMASS3  40397   301     397     0       40398   301     398     0               \r\nCMASS3  40399   301     399     0       40400   301     400     0               \r\nCMASS3  40401   301     401     0       40402   301     402     0               \r\nCMASS3  40403   301     403     0       40404   301     404     0               \r\nCMASS3  40405   301     405     0       40406   301     406     0               \r\nCMASS3  40407   301     407     0       40408   301     408     0               \r\nCMASS3  40409   301     409     0       40410   301     410     0               \r\nCMASS3  40411   301     411     0       40412   301     412     0               \r\nCMASS3  40413   301     413     0       40414   301     414     0               \r\nCMASS3  40415   301     415     0       40416   301     416     0               \r\nCMASS3  40417   301     417     0       40418   301     418     0               \r\nCMASS3  40419   301     419     0       40420   301     420     0               \r\nCMASS3  40421   301     421     0       40422   301     422     0               \r\nCMASS3  40423   301     423     0       40424   301     424     0               \r\nCMASS3  40425   301     425     0       40426   301     426     0               \r\nCMASS3  40427   301     427     0       40428   301     428     0               \r\nCMASS3  40429   301     429     0       40430   301     430     0               \r\nCMASS3  40431   301     431     0       40432   301     432     0               \r\nCMASS3  40433   301     433     0       40434   301     434     0               \r\nCMASS3  40435   301     435     0       40436   301     436     0               \r\nCMASS3  40437   301     437     0       40438   301     438     0               \r\nCMASS3  40439   301     439     0       40440   301     440     0               \r\nCMASS3  40441   301     441     0       40442   301     442     0               \r\nCMASS3  40443   301     443     0       40444   301     444     0               \r\nCMASS3  40445   301     445     0       40446   301     446     0               \r\nCMASS3  40447   301     447     0       40448   301     448     0               \r\nCMASS3  40449   301     449     0       40450   301     450     0               \r\nCMASS3  40451   301     451     0       40452   301     452     0               \r\nCMASS3  40453   301     453     0       40454   301     454     0               \r\nCMASS3  40455   301     455     0       40456   301     456     0               \r\nCMASS3  40457   301     457     0       40458   301     458     0               \r\nCMASS3  40459   301     459     0       40460   301     460     0               \r\nCMASS3  40461   301     461     0       40462   301     462     0               \r\nCMASS3  40463   301     463     0       40464   301     464     0               \r\nCMASS3  40465   301     465     0       40466   301     466     0               \r\nCMASS3  40467   301     467     0       40468   301     468     0               \r\nCMASS3  40469   301     469     0       40470   301     470     0               \r\nCMASS3  40471   301     471     0       40472   301     472     0               \r\nCMASS3  40473   301     473     0       40474   301     474     0               \r\nCMASS3  40475   301     475     0       40476   301     476     0               \r\nCMASS3  40477   301     477     0       40478   301     478     0               \r\nCMASS3  40479   301     479     0       40480   301     480     0               \r\nCMASS3  40481   301     481     0       40482   301     482     0               \r\nCMASS3  40483   301     483     0       40484   301     484     0               \r\nCMASS3  40485   301     485     0       40486   301     486     0               \r\nCMASS3  40487   301     487     0       40488   301     488     0               \r\nCMASS3  40489   301     489     0       40490   301     490     0               \r\nCMASS3  40491   301     491     0       40492   301     492     0               \r\nCMASS3  40493   301     493     0       40494   301     494     0               \r\nCMASS3  40495   301     495     0       40496   301     496     0               \r\nCMASS3  40497   301     497     0       40498   301     498     0               \r\nCMASS3  40499   301     499     0       40500   301     500     0               \r\nCMASS3  40501   301     501     0       40502   301     502     0               \r\nCMASS3  40503   301     503     0       40504   301     504     0               \r\nCMASS3  40505   301     505     0       40506   301     506     0               \r\nCMASS3  40507   301     507     0       40508   301     508     0               \r\nCMASS3  40509   301     509     0       40510   301     510     0               \r\nCMASS3  40511   301     511     0       40512   301     512     0               \r\nCMASS3  40513   301     513     0       40514   301     514     0               \r\nCMASS3  40515   301     515     0       40516   301     516     0               \r\nCMASS3  40517   301     517     0       40518   301     518     0               \r\nCMASS3  40519   301     519     0       40520   301     520     0               \r\nCMASS3  40521   301     521     0       40522   301     522     0               \r\nCMASS3  40523   301     523     0       40524   301     524     0               \r\nCMASS3  40525   301     525     0       40526   301     526     0               \r\nCMASS3  40527   301     527     0       40528   301     528     0               \r\nCMASS3  40529   301     529     0       40530   301     530     0               \r\nCMASS3  40531   301     531     0       40532   301     532     0               \r\nCMASS3  40533   301     533     0       40534   301     534     0               \r\nCMASS3  40535   301     535     0       40536   301     536     0               \r\nCMASS3  40537   301     537     0       40538   301     538     0               \r\nCMASS3  40539   301     539     0       40540   301     540     0               \r\nCMASS3  40541   301     541     0       40542   301     542     0               \r\nCMASS3  40543   301     543     0       40544   301     544     0               \r\nCMASS3  40545   301     545     0       40546   301     546     0               \r\nCMASS3  40547   301     547     0       40548   301     548     0               \r\nCMASS3  40549   301     549     0       40550   301     550     0               \r\nCMASS3  40551   301     551     0       40552   301     552     0               \r\nCMASS3  40553   301     553     0       40554   301     554     0               \r\nCMASS3  40555   301     555     0       40556   301     556     0               \r\nCMASS3  40557   301     557     0       40558   301     558     0               \r\nCMASS3  40559   301     559     0       40560   301     560     0               \r\nCMASS3  40561   301     561     0       40562   301     562     0               \r\nCMASS3  40563   301     563     0       40564   301     564     0               \r\nCMASS3  40565   301     565     0       40566   301     566     0               \r\nCMASS3  40567   301     567     0       40568   301     568     0               \r\nCMASS3  40569   301     569     0       40570   301     570     0               \r\nCMASS3  40571   301     571     0       40572   301     572     0               \r\nCMASS3  40573   301     573     0       40574   301     574     0               \r\nCMASS3  40575   301     575     0       40576   301     576     0               \r\nCMASS3  40577   301     577     0       40578   301     578     0               \r\nCMASS3  40579   301     579     0       40580   301     580     0               \r\nCMASS3  40581   301     581     0       40582   301     582     0               \r\nCMASS3  40583   301     583     0       40584   301     584     0               \r\nCMASS3  40585   301     585     0       40586   301     586     0               \r\nCMASS3  40587   301     587     0       40588   301     588     0               \r\nCMASS3  40589   301     589     0       40590   301     590     0               \r\nCMASS3  40591   301     591     0       40592   301     592     0               \r\nCMASS3  40593   301     593     0       40594   301     594     0               \r\nCMASS3  40595   301     595     0       40596   301     596     0               \r\nCMASS3  40597   301     597     0       40598   301     598     0               \r\nCMASS3  40599   301     599     0       40600   301     600     0               \r\nCMASS3  40601   301     601     0       40602   301     602     0               \r\nCMASS3  40603   301     603     0       40604   301     604     0               \r\nCMASS3  40605   301     605     0       40606   301     606     0               \r\nCMASS3  40607   301     607     0       40608   301     608     0               \r\nCMASS3  40609   301     609     0       40610   301     610     0               \r\nCMASS3  40611   301     611     0       40612   301     612     0               \r\nCMASS3  40613   301     613     0       40614   301     614     0               \r\nCMASS3  40615   301     615     0       40616   301     616     0               \r\nCMASS3  40617   301     617     0       40618   301     618     0               \r\nCMASS3  40619   301     619     0       40620   301     620     0               \r\nCMASS3  40621   301     621     0       40622   301     622     0               \r\nCMASS3  40623   301     623     0       40624   301     624     0               \r\nCMASS3  40625   301     625     0       40626   301     626     0               \r\nCMASS3  40627   301     627     0       40628   301     628     0               \r\nCMASS3  40629   301     629     0       40630   301     630     0               \r\nCMASS3  40631   301     631     0       40632   301     632     0               \r\nCMASS3  40633   301     633     0       40634   301     634     0               \r\nCMASS3  40635   301     635     0       40636   301     636     0               \r\nCMASS3  40637   301     637     0       40638   301     638     0               \r\nCMASS3  40639   301     639     0       40640   301     640     0               \r\nCMASS3  40641   301     641     0       40642   301     642     0               \r\nCMASS3  40643   301     643     0       40644   301     644     0               \r\nCMASS3  40645   301     645     0       40646   301     646     0               \r\nCMASS3  40647   301     647     0       40648   301     648     0               \r\nCMASS3  40649   301     649     0       40650   301     650     0               \r\nCMASS3  40651   301     651     0       40652   301     652     0               \r\nCMASS3  40653   301     653     0       40654   301     654     0               \r\nCMASS3  40655   301     655     0       40656   301     656     0               \r\nCMASS3  40657   301     657     0       40658   301     658     0               \r\nCMASS3  40659   301     659     0       40660   301     660     0               \r\nCMASS3  40661   301     661     0       40662   301     662     0               \r\nCMASS3  40663   301     663     0       40664   301     664     0               \r\nCMASS3  40665   301     665     0       40666   301     666     0               \r\nCMASS3  40667   301     667     0       40668   301     668     0               \r\nCMASS3  40669   301     669     0       40670   301     670     0               \r\nCMASS3  40671   301     671     0       40672   301     672     0               \r\nCMASS3  40673   301     673     0       40674   301     674     0               \r\nCMASS3  40675   301     675     0       40676   301     676     0               \r\nCMASS3  40677   301     677     0       40678   301     678     0               \r\nCMASS3  40679   301     679     0       40680   301     680     0               \r\nCMASS3  40681   301     681     0       40682   301     682     0               \r\nCMASS3  40683   301     683     0       40684   301     684     0               \r\nCMASS3  40685   301     685     0       40686   301     686     0               \r\nCMASS3  40687   301     687     0       40688   301     688     0               \r\nCMASS3  40689   301     689     0       40690   301     690     0               \r\nCMASS3  40691   301     691     0       40692   301     692     0               \r\nCMASS3  40693   301     693     0       40694   301     694     0               \r\nCMASS3  40695   301     695     0       40696   301     696     0               \r\nCMASS3  40697   301     697     0       40698   301     698     0               \r\nCMASS3  40699   301     699     0       40700   301     700     0               \r\nCMASS3  40701   301     701     0       40702   301     702     0               \r\nCMASS3  40703   301     703     0       40704   301     704     0               \r\nCMASS3  40705   301     705     0       40706   301     706     0               \r\nCMASS3  40707   301     707     0       40708   301     708     0               \r\nCMASS3  40709   301     709     0       40710   301     710     0               \r\nCMASS3  40711   301     711     0       40712   301     712     0               \r\nCMASS3  40713   301     713     0       40714   301     714     0               \r\nCMASS3  40715   301     715     0       40716   301     716     0               \r\nCMASS3  40717   301     717     0       40718   301     718     0               \r\nCMASS3  40719   301     719     0       40720   301     720     0               \r\nCMASS3  40721   301     721     0       40722   301     722     0               \r\nCMASS3  40723   301     723     0       40724   301     724     0               \r\nCMASS3  40725   301     725     0       40726   301     726     0               \r\nCMASS3  40727   301     727     0       40728   301     728     0               \r\nCMASS3  40729   301     729     0       40730   301     730     0               \r\nCMASS3  40731   301     731     0       40732   301     732     0               \r\nCMASS3  40733   301     733     0       40734   301     734     0               \r\nCMASS3  40735   301     735     0       40736   301     736     0               \r\nCMASS3  40737   301     737     0       40738   301     738     0               \r\nCMASS3  40739   301     739     0       40740   301     740     0               \r\nCMASS3  40741   301     741     0       40742   301     742     0               \r\nCMASS3  40743   301     743     0       40744   301     744     0               \r\nCMASS3  40745   301     745     0       40746   301     746     0               \r\nCMASS3  40747   301     747     0       40748   301     748     0               \r\nCMASS3  40749   301     749     0       40750   301     750     0               \r\nCMASS3  40751   301     751     0       40752   301     752     0               \r\nCMASS3  40753   301     753     0       40754   301     754     0               \r\nCMASS3  40755   301     755     0       40756   301     756     0               \r\nCMASS3  40757   301     757     0       40758   301     758     0               \r\nCMASS3  40759   301     759     0       40760   301     760     0               \r\nCMASS3  40761   301     761     0       40762   301     762     0               \r\nCMASS3  40763   301     763     0       40764   301     764     0               \r\nCMASS3  40765   301     765     0       40766   301     766     0               \r\nCMASS3  40767   301     767     0       40768   301     768     0               \r\nCMASS3  40769   301     769     0       40770   301     770     0               \r\nCMASS3  40771   301     771     0       40772   301     772     0               \r\nCMASS3  40773   301     773     0       40774   301     774     0               \r\nCMASS3  40775   301     775     0       40776   301     776     0               \r\nCMASS3  40777   301     777     0       40778   301     778     0               \r\nCMASS3  40779   301     779     0       40780   301     780     0               \r\nCMASS3  40781   301     781     0       40782   301     782     0               \r\nCMASS3  40783   301     783     0       40784   301     784     0               \r\nCMASS3  40785   301     785     0       40786   301     786     0               \r\nCMASS3  40787   301     787     0       40788   301     788     0               \r\nCMASS3  40789   301     789     0       40790   301     790     0               \r\nCMASS3  40791   301     791     0       40792   301     792     0               \r\nCMASS3  40793   301     793     0       40794   301     794     0               \r\nCMASS3  40795   301     795     0       40796   301     796     0               \r\nCMASS3  40797   301     797     0       40798   301     798     0               \r\nCMASS3  40799   301     799     0       40800   301     800     0               \r\nCMASS3  40801   301     801     0       40802   301     802     0               \r\nCMASS3  40803   301     803     0       40804   301     804     0               \r\nCMASS3  40805   301     805     0       40806   301     806     0               \r\nCMASS3  40807   301     807     0       40808   301     808     0               \r\nCMASS3  40809   301     809     0       40810   301     810     0               \r\nCMASS3  40811   301     811     0       40812   301     812     0               \r\nCMASS3  40813   301     813     0       40814   301     814     0               \r\nCMASS3  40815   301     815     0       40816   301     816     0               \r\nCMASS3  40817   301     817     0       40818   301     818     0               \r\nCMASS3  40819   301     819     0       40820   301     820     0               \r\nCMASS3  40821   301     821     0       40822   301     822     0               \r\nCMASS3  40823   301     823     0       40824   301     824     0               \r\nCMASS3  40825   301     825     0       40826   301     826     0               \r\nCMASS3  40827   301     827     0       40828   301     828     0               \r\nCMASS3  40829   301     829     0       40830   301     830     0               \r\nCMASS3  40831   301     831     0       40832   301     832     0               \r\nCMASS3  40833   301     833     0       40834   301     834     0               \r\nCMASS3  40835   301     835     0       40836   301     836     0               \r\nCMASS3  40837   301     837     0       40838   301     838     0               \r\nCMASS3  40839   301     839     0       40840   301     840     0               \r\nCMASS3  40841   301     841     0       40842   301     842     0               \r\nCMASS3  40843   301     843     0       40844   301     844     0               \r\nCMASS3  40845   301     845     0       40846   301     846     0               \r\nCMASS3  40847   301     847     0       40848   301     848     0               \r\nCMASS3  40849   301     849     0       40850   301     850     0               \r\nCMASS3  40851   301     851     0       40852   301     852     0               \r\nCMASS3  40853   301     853     0       40854   301     854     0               \r\nCMASS3  40855   301     855     0       40856   301     856     0               \r\nCMASS3  40857   301     857     0       40858   301     858     0               \r\nCMASS3  40859   301     859     0       40860   301     860     0               \r\nCMASS3  40861   301     861     0       40862   301     862     0               \r\nCMASS3  40863   301     863     0       40864   301     864     0               \r\nCMASS3  40865   301     865     0       40866   301     866     0               \r\nCMASS3  40867   301     867     0       40868   301     868     0               \r\nCMASS3  40869   301     869     0       40870   301     870     0               \r\nCMASS3  40871   301     871     0       40872   301     872     0               \r\nCMASS3  40873   301     873     0       40874   301     874     0               \r\nCMASS3  40875   301     875     0       40876   301     876     0               \r\nCMASS3  40877   301     877     0       40878   301     878     0               \r\nCMASS3  40879   301     879     0       40880   301     880     0               \r\nCMASS3  40881   301     881     0       40882   301     882     0               \r\nCMASS3  40883   301     883     0       40884   301     884     0               \r\nCMASS3  40885   301     885     0       40886   301     886     0               \r\nCMASS3  40887   301     887     0       40888   301     888     0               \r\nCMASS3  40889   301     889     0       40890   301     890     0               \r\nCMASS3  40891   301     891     0       40892   301     892     0               \r\nCMASS3  40893   301     893     0       40894   301     894     0               \r\nCMASS3  40895   301     895     0       40896   301     896     0               \r\nCMASS3  40897   301     897     0       40898   301     898     0               \r\nCMASS3  40899   301     899     0       40900   301     900     0               \r\nCMASS3  40901   301     901     0       40902   301     902     0               \r\nCMASS3  40903   301     903     0       40904   301     904     0               \r\nCMASS3  40905   301     905     0       40906   301     906     0               \r\nCMASS3  40907   301     907     0       40908   301     908     0               \r\nCMASS3  40909   301     909     0       40910   301     910     0               \r\nCMASS3  40911   301     911     0       40912   301     912     0               \r\nCMASS3  40913   301     913     0       40914   301     914     0               \r\nCMASS3  40915   301     915     0       40916   301     916     0               \r\nCMASS3  40917   301     917     0       40918   301     918     0               \r\nCMASS3  40919   301     919     0       40920   301     920     0               \r\nCMASS3  40921   301     921     0       40922   301     922     0               \r\nCMASS3  40923   301     923     0       40924   301     924     0               \r\nCMASS3  40925   301     925     0       40926   301     926     0               \r\nCMASS3  40927   301     927     0       40928   301     928     0               \r\nCMASS3  40929   301     929     0       40930   301     930     0               \r\nCMASS3  40931   301     931     0       40932   301     932     0               \r\nCMASS3  40933   301     933     0       40934   301     934     0               \r\nCMASS3  40935   301     935     0       40936   301     936     0               \r\nCMASS3  40937   301     937     0       40938   301     938     0               \r\nCMASS3  40939   301     939     0       40940   301     940     0               \r\nCMASS3  40941   301     941     0       40942   301     942     0               \r\nCMASS3  40943   301     943     0       40944   301     944     0               \r\nCMASS3  40945   301     945     0       40946   301     946     0               \r\nCMASS3  40947   301     947     0       40948   301     948     0               \r\nCMASS3  40949   301     949     0       40950   301     950     0               \r\nCMASS3  40951   301     951     0       40952   301     952     0               \r\nCMASS3  40953   301     953     0       40954   301     954     0               \r\nCMASS3  40955   301     955     0       40956   301     956     0               \r\nCMASS3  40957   301     957     0       40958   301     958     0               \r\nCMASS3  40959   301     959     0       40960   301     960     0               \r\nCMASS3  40961   301     961     0       40962   301     962     0               \r\nCMASS3  40963   301     963     0       40964   301     964     0               \r\nCMASS3  40965   301     965     0       40966   301     966     0               \r\nCMASS3  40967   301     967     0       40968   301     968     0               \r\nCMASS3  40969   301     969     0       40970   301     970     0               \r\nCMASS3  40971   301     971     0       40972   301     972     0               \r\nCMASS3  40973   301     973     0       40974   301     974     0               \r\nCMASS3  40975   301     975     0       40976   301     976     0               \r\nCMASS3  40977   301     977     0       40978   301     978     0               \r\nCMASS3  40979   301     979     0       40980   301     980     0               \r\nCMASS3  40981   301     981     0       40982   301     982     0               \r\nCMASS3  40983   301     983     0       40984   301     984     0               \r\nCMASS3  40985   301     985     0       40986   301     986     0               \r\nCMASS3  40987   301     987     0       40988   301     988     0               \r\nCMASS3  40989   301     989     0       40990   301     990     0               \r\nCMASS3  40991   301     991     0       40992   301     992     0               \r\nCMASS3  40993   301     993     0       40994   301     994     0               \r\nCMASS3  40995   301     995     0       40996   301     996     0               \r\nCMASS3  40997   301     997     0       40998   301     998     0               \r\nCMASS3  40999   301     999     0       41000   301     1000    0               \r\nPELAS   101     1.0+7           10.0                                            \r\nPMASS   301     10.000                                                          \r\nTIC     9       2               .2                                              \r\nTIC     9       3               .4                                              \r\nTIC     9       4               .6                                              \r\nTIC     9       5               .8                                              \r\nTIC     9       6               1.0                                             \r\nTIC     9       7               1.2                                             \r\nTIC     9       8               1.4                                             \r\nTIC     9       9               1.6                                             \r\nTIC     9       10              1.8                                             \r\nTIC     9       11              2.0                                             \r\nTIC     9       12              1.8                                             \r\nTIC     9       13              1.6                                             \r\nTIC     9       14              1.4                                             \r\nTIC     9       15              1.2                                             \r\nTIC     9       16              1.0                                             \r\nTIC     9       17              .8                                              \r\nTIC     9       18              .6                                              \r\nTIC     9       19              .4                                              \r\nTIC     9       20              .2                                              \r\nTSTEP   9       50      .5-3    1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d09021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$           RIGID FORMAT No. 9, Transient Analysis - Direct Formulation\r\n$    Transient Analysis of a 1000 Cell String, Traveling Wave Problem (9-2-1)\r\n$        Transient Analysis of a 1000 Cell String, Traveling Wave Problem\r\n$                                 (INPUT, 9-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the ability of NASTRAN to perform time integration\r\n$ studies using the structural matrices directly. At each time step the applied\r\n$ loads, the structural matrices, and the previous displacements are used to\r\n$ calculate a new set of displacements, velocities, and accelerations. Initial\r\n$ displacements and velocities are also allowed for all unconstrained\r\n$ coordinates. The INPUT module is used to generate the scalar springs and\r\n$ masses.\r\n$ \r\n$ The structural model consists of a 1000 cell string under constant tension\r\n$ modeled by scalar elements. The string is given an initial condition at one\r\n$ end consisting of a triangular shaped set of initial displacements. The wave\r\n$ will then travel along the string, retaining its initial shape. The ends of\r\n$ the string are fixed, causing the wave to reflect with a sign reversal.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$                T          7\r\n$      k   =  -------  =  10      - scalar spring rates\r\n$       i     delta x\r\n$ \r\n$      m   =  mu delta x  =  10   - scalar masses\r\n$       i\r\n$ \r\n$      N   =  1000                - number of cells\r\n$ \r\n$    where\r\n$ \r\n$      T is the tension\r\n$ \r\n$      delta x is the incremental length\r\n$ \r\n$      mu is the mass per unit length\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The initial displacements are;\r\n$ \r\n$      u   =  .2               u   =  1.8\r\n$       2                       12\r\n$ \r\n$      u   =  .4               u   =  1.6\r\n$       3                       13\r\n$                                 :\r\n$      u   =  .6                  :\r\n$       4                      u   = 0.0\r\n$         :                     21\r\n$         :\r\n$      u   =  2.0              u   = 0, i > 21\r\n$       11                      i\r\n$ \r\n$ C. Theory\r\n$ \r\n$ As shown in Reference 11, Chapter 6, the wave velocity c is,\r\n$ \r\n$    c  =  +/- sqrt(T/mu) = +/- x sqrt(k /m ) = +/-1000 points/unit time     (1)\r\n$                                       i  i\r\n$ \r\n$ The initial displacement may be divided into two waves, traveling in opposite\r\n$ directions. The first wave travels outward; the second wave travels toward the\r\n$ fixed support and reflects with a sign change.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The theoretical and NASTRAN results are quite close, when both waves have\r\n$ traveled their complete width.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d09022a.inp",
    "content": "ID    D09022A,NASTRAN                                                           \r\nALTER   1 $                                                                     \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\nEQUIV   G2,GEOM2/TRUE $                                                         \r\nENDALTER $                                                                      \r\nTIME    16                                                                      \r\nAPP     DISP                                                                    \r\nSOL     9,1                                                                     \r\nDIAG    14                                                                      \r\nCEND                                                                            \r\nTITLE    = TRANSIENT ANALYSIS OF A 1000 CELL STRING                             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-02-2A                          \r\n   LABEL = TRAVELING WAVE PROBLEM                                               \r\n   TSTEP = 9                                                                    \r\n      IC = 9                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 2,4,5,6,10,12,14,16,18,20,22,24,26,28,30,40,50, 100,200,500          \r\n   DISPLACEMENT = 1                                                             \r\n   VELOCITY = 1                                                                 \r\nBEGIN BULK                                                                      \r\nTIC     9       2               .2                                              \r\nTIC     9       3               .4                                              \r\nTIC     9       4               .6                                              \r\nTIC     9       5               .8                                              \r\nTIC     9       6               1.0                                             \r\nTIC     9       7               1.2                                             \r\nTIC     9       8               1.4                                             \r\nTIC     9       9               1.6                                             \r\nTIC     9       10              1.8                                             \r\nTIC     9       11              2.0                                             \r\nTIC     9       12              1.8                                             \r\nTIC     9       13              1.6                                             \r\nTIC     9       14              1.4                                             \r\nTIC     9       15              1.2                                             \r\nTIC     9       16              1.0                                             \r\nTIC     9       17              .8                                              \r\nTIC     9       18              .6                                              \r\nTIC     9       19              .4                                              \r\nTIC     9       20              .2                                              \r\nTSTEP   9       50      .5-3    1                                               \r\nENDDATA                                                                         \r\n    1000 1.0E+07 0.0     1.0E+01 0.0                                            \r\n"
  },
  {
    "path": "inp/d09022a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$           RIGID FORMAT No. 9, Transient Analysis - Direct Formulation\r\n$    Transient Analysis of a 1000 Cell String, Traveling Wave Problem (9-2-1)\r\n$        Transient Analysis of a 1000 Cell String, Traveling Wave Problem\r\n$                                 (INPUT, 9-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the ability of NASTRAN to perform time integration\r\n$ studies using the structural matrices directly. At each time step the applied\r\n$ loads, the structural matrices, and the previous displacements are used to\r\n$ calculate a new set of displacements, velocities, and accelerations. Initial\r\n$ displacements and velocities are also allowed for all unconstrained\r\n$ coordinates. The INPUT module is used to generate the scalar springs and\r\n$ masses.\r\n$ \r\n$ The structural model consists of a 1000 cell string under constant tension\r\n$ modeled by scalar elements. The string is given an initial condition at one\r\n$ end consisting of a triangular shaped set of initial displacements. The wave\r\n$ will then travel along the string, retaining its initial shape. The ends of\r\n$ the string are fixed, causing the wave to reflect with a sign reversal.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$                T          7\r\n$      k   =  -------  =  10      - scalar spring rates\r\n$       i     delta x\r\n$ \r\n$      m   =  mu delta x  =  10   - scalar masses\r\n$       i\r\n$ \r\n$      N   =  1000                - number of cells\r\n$ \r\n$    where\r\n$ \r\n$      T is the tension\r\n$ \r\n$      delta x is the incremental length\r\n$ \r\n$      mu is the mass per unit length\r\n$ \r\n$ 2. Loads:\r\n$ \r\n$    The initial displacements are;\r\n$ \r\n$      u   =  .2               u   =  1.8\r\n$       2                       12\r\n$ \r\n$      u   =  .4               u   =  1.6\r\n$       3                       13\r\n$                                 :\r\n$      u   =  .6                  :\r\n$       4                      u   = 0.0\r\n$         :                     21\r\n$         :\r\n$      u   =  2.0              u   = 0, i > 21\r\n$       11                      i\r\n$ \r\n$ C. Theory\r\n$ \r\n$ As shown in Reference 11, Chapter 6, the wave velocity c is,\r\n$ \r\n$    c  =  +/- sqrt(T/mu) = +/- x sqrt(k /m ) = +/-1000 points/unit time     (1)\r\n$                                       i  i\r\n$ \r\n$ The initial displacement may be divided into two waves, traveling in opposite\r\n$ directions. The first wave travels outward; the second wave travels toward the\r\n$ fixed support and reflects with a sign change.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The theoretical and NASTRAN results are quite close, when both waves have\r\n$ traveled their complete width.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d09031a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D09031A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   9,3                                                                       \r\nTIME  100                                                                       \r\nCEND                                                                            \r\nTITLE    = TRANSIENT ANALYSIS OF A FLUID-FILLED ELASTIC CYLINDER.               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                          \r\n   LABEL = THIRD HARMONIC ANALYSIS.                                             \r\n   TSTEP = 10                                                                   \r\n   DLOAD = 10                                                                   \r\n     SPC = 3                                                                    \r\n   AXISYMMETRIC = FLUID                                                         \r\n   OUTPUT                                                                       \r\n   HARMONICS = 3                                                                \r\n     SET 100 = 10,11, 26,27, 42,43, 58,59, 74,75, 81 THRU 96,                   \r\n               106,107, 122,123, 138,139, 154,155, 170,171                      \r\n   DISPLACEMENT = 100                                                           \r\nPLOTID   = NASTRAN DEMONSTRATION PROBLEM NO. D09-03-1A                          \r\nOUTPUT(XYPLOT)                                                                  \r\n PLOTTER = NASTPLT                                                              \r\n  XTGRID = YES                                                                  \r\n  YTGRID = YES                                                                  \r\n  XBGRID = YES                                                                  \r\n  YBGRID = YES                                                                  \r\n  XDIVISIONS = 10                                                               \r\n  CURVELINESYMBOL = 1                                                           \r\n  XTITLE  =                                     TIME (SECONDS)                  \r\n  YTTITLE =  R DISP      -INCHES-                                               \r\n  YBTITLE =  R DISP      -INCHES-                                               \r\n$                                                                               \r\nTCURVE = PLOTTED  *TOP GRID 91(Z=5,A=0), *BOTTOM GRID 110(Z=5,A=18)             \r\n  XYPLOT DISP   /91(T1,), 110(,T1)                                              \r\nTCURVE = PLOTTED GRID(A=0,18) *TOP - 59,62(Z=7) *BOTTOM 123,126(Z=3)            \r\n  XYPLOT DISP   /59(T1,), 62(T1,), 123(,T1),126(,T1)                            \r\n$                                                                               \r\n  YTTITLE =  PRESSURE     *LB/INCH*                                             \r\n  YBTITLE =  PRESSURE     *LB/INCH*                                             \r\nTCURVE = PLOTTED PRESPT (Z=5,A=0)  *TOP 5301(R=3)  *BOTTOM 5801(R=8)            \r\n  XYPLOT DISP   / 5301(T1,), 5801(,T1)                                          \r\nTCURVE = PLOTTED PRESPT (R=5,A=0,Z=3,5,7)*TOP 3501,5501  *BOT 7501,5501         \r\n  XYPLOT DISP   / 5501(T1,T1), 3501(T1,), 7501(,T1)                             \r\n  YTITLE = R DISP       -INCH-                                                  \r\nTCURVE = PLOTTED  DISP AT MIDPOINT(Z=5.), ANGLE = 0.0 AND 18.0 DEGREES.         \r\n  XYPLOT DISP   /  91(T1), 110(T1)                                              \r\n   YTITLE = HARMONIC PRESSURE                                                   \r\nTCURVE = PLOTTED RINGFL (R=5,Z=5)  * 85                                         \r\n     XYPLOT DISP / 4000085 (T1)                                                 \r\n$                                                                               \r\nBEGIN BULK                                                                      \r\nAXIF    1       .0      1.8-2   .00     NO                              +AXIF   \r\n+AXIF   3                                                                       \r\nBDYLIST         10      26      42      58      74      90      106     +BDY-1  \r\n+BDY-1  122     138     154     170                                             \r\nCFLUID2 1001    17      1                                                       \r\nCFLUID2 2001    33      17                                                      \r\nCFLUID2 3001    49      33                                                      \r\nCFLUID2 4001    65      49                                                      \r\nCFLUID2 5001    81      65                                                      \r\nCFLUID2 6001    97      81                                                      \r\nCFLUID2 7001    113     97                                                      \r\nCFLUID2 8001    129     113                                                     \r\nCFLUID2 9001    145     129                                                     \r\nCFLUID2 10001   161     145                                                     \r\nCFLUID4 1002    18      2       1       17                                      \r\nCFLUID4 1003    19      3       2       18                                      \r\nCFLUID4 1004    20      4       3       19                                      \r\nCFLUID4 1005    21      5       4       20                                      \r\nCFLUID4 1006    22      6       5       21                                      \r\nCFLUID4 1007    23      7       6       22                                      \r\nCFLUID4 1008    24      8       7       23                                      \r\nCFLUID4 1009    25      9       8       24                                      \r\nCFLUID4 1010    26      10      9       25                                      \r\nCFLUID4 2002    34      18      17      33                                      \r\nCFLUID4 2003    35      19      18      34                                      \r\nCFLUID4 2004    36      20      19      35                                      \r\nCFLUID4 2005    37      21      20      36                                      \r\nCFLUID4 2006    38      22      21      37                                      \r\nCFLUID4 2007    39      23      22      38                                      \r\nCFLUID4 2008    40      24      23      39                                      \r\nCFLUID4 2009    41      25      24      40                                      \r\nCFLUID4 2010    42      26      25      41                                      \r\nCFLUID4 3002    50      34      33      49                                      \r\nCFLUID4 3003    51      35      34      50                                      \r\nCFLUID4 3004    52      36      35      51                                      \r\nCFLUID4 3005    53      37      36      52                                      \r\nCFLUID4 3006    54      38      37      53                                      \r\nCFLUID4 3007    55      39      38      54                                      \r\nCFLUID4 3008    56      40      39      55                                      \r\nCFLUID4 3009    57      41      40      56                                      \r\nCFLUID4 3010    58      42      41      57                                      \r\nCFLUID4 4002    66      50      49      65                                      \r\nCFLUID4 4003    67      51      50      66                                      \r\nCFLUID4 4004    68      52      51      67                                      \r\nCFLUID4 4005    69      53      52      68                                      \r\nCFLUID4 4006    70      54      53      69                                      \r\nCFLUID4 4007    71      55      54      70                                      \r\nCFLUID4 4008    72      56      55      71                                      \r\nCFLUID4 4009    73      57      56      72                                      \r\nCFLUID4 4010    74      58      57      73                                      \r\nCFLUID4 5002    82      66      65      81                                      \r\nCFLUID4 5003    83      67      66      82                                      \r\nCFLUID4 5004    84      68      67      83                                      \r\nCFLUID4 5005    85      69      68      84                                      \r\nCFLUID4 5006    86      70      69      85                                      \r\nCFLUID4 5007    87      71      70      86                                      \r\nCFLUID4 5008    88      72      71      87                                      \r\nCFLUID4 5009    89      73      72      88                                      \r\nCFLUID4 5010    90      74      73      89                                      \r\nCFLUID4 6002    98      82      81      97                                      \r\nCFLUID4 6003    99      83      82      98                                      \r\nCFLUID4 6004    100     84      83      99                                      \r\nCFLUID4 6005    101     85      84      100                                     \r\nCFLUID4 6006    102     86      85      101                                     \r\nCFLUID4 6007    103     87      86      102                                     \r\nCFLUID4 6008    104     88      87      103                                     \r\nCFLUID4 6009    105     89      88      104                                     \r\nCFLUID4 6010    106     90      89      105                                     \r\nCFLUID4 7002    114     98      97      113                                     \r\nCFLUID4 7003    115     99      98      114                                     \r\nCFLUID4 7004    116     100     99      115                                     \r\nCFLUID4 7005    117     101     100     116                                     \r\nCFLUID4 7006    118     102     101     117                                     \r\nCFLUID4 7007    119     103     102     118                                     \r\nCFLUID4 7008    120     104     103     119                                     \r\nCFLUID4 7009    121     105     104     120                                     \r\nCFLUID4 7010    122     106     105     121                                     \r\nCFLUID4 8002    130     114     113     129                                     \r\nCFLUID4 8003    131     115     114     130                                     \r\nCFLUID4 8004    132     116     115     131                                     \r\nCFLUID4 8005    133     117     116     132                                     \r\nCFLUID4 8006    134     118     117     133                                     \r\nCFLUID4 8007    135     119     118     134                                     \r\nCFLUID4 8008    136     120     119     135                                     \r\nCFLUID4 8009    137     121     120     136                                     \r\nCFLUID4 8010    138     122     121     137                                     \r\nCFLUID4 9002    146     130     129     145                                     \r\nCFLUID4 9003    147     131     130     146                                     \r\nCFLUID4 9004    148     132     131     147                                     \r\nCFLUID4 9005    149     133     132     148                                     \r\nCFLUID4 9006    150     134     133     149                                     \r\nCFLUID4 9007    151     135     134     150                                     \r\nCFLUID4 9008    152     136     135     151                                     \r\nCFLUID4 9009    153     137     136     152                                     \r\nCFLUID4 9010    154     138     137     153                                     \r\nCFLUID4 10002   162     146     145     161                                     \r\nCFLUID4 10003   163     147     146     162                                     \r\nCFLUID4 10004   164     148     147     163                                     \r\nCFLUID4 10005   165     149     148     164                                     \r\nCFLUID4 10006   166     150     149     165                                     \r\nCFLUID4 10007   167     151     150     166                                     \r\nCFLUID4 10008   168     152     151     167                                     \r\nCFLUID4 10009   169     153     152     168                                     \r\nCFLUID4 10010   170     154     153     169                                     \r\nCORD2C  1               .0      .0      .0      .0      .0      1.0     +CORD2C \r\n+CORD2C 1.0     .0      .0                                                      \r\nCQUAD1  1011    1       27      28      12      11                              \r\nCQUAD1  1012    1       28      29      13      12                              \r\nCQUAD1  1013    1       29      30      14      13                              \r\nCQUAD1  1014    1       30      31      15      14                              \r\nCQUAD1  1015    1       31      32      16      15                              \r\nCQUAD1  2011    1       43      44      28      27                              \r\nCQUAD1  2012    1       44      45      29      28                              \r\nCQUAD1  2013    1       45      46      30      29                              \r\nCQUAD1  2014    1       46      47      31      30                              \r\nCQUAD1  2015    1       47      48      32      31                              \r\nCQUAD1  3011    1       59      60      44      43                              \r\nCQUAD1  3012    1       60      61      45      44                              \r\nCQUAD1  3013    1       61      62      46      45                              \r\nCQUAD1  3014    1       62      63      47      46                              \r\nCQUAD1  3015    1       63      64      48      47                              \r\nCQUAD1  4011    1       75      76      60      59                              \r\nCQUAD1  4012    1       76      77      61      60                              \r\nCQUAD1  4013    1       77      78      62      61                              \r\nCQUAD1  4014    1       78      79      63      62                              \r\nCQUAD1  4015    1       79      80      64      63                              \r\nCQUAD1  5011    1       91      92      76      75                              \r\nCQUAD1  5012    1       92      93      77      76                              \r\nCQUAD1  5013    1       93      94      78      77                              \r\nCQUAD1  5014    1       94      95      79      78                              \r\nCQUAD1  5015    1       95      96      80      79                              \r\nCQUAD1  6011    1       107     108     92      91                              \r\nCQUAD1  6012    1       108     109     93      92                              \r\nCQUAD1  6013    1       109     110     94      93                              \r\nCQUAD1  6014    1       110     111     95      94                              \r\nCQUAD1  6015    1       111     112     96      95                              \r\nCQUAD1  7011    1       123     124     108     107                             \r\nCQUAD1  7012    1       124     125     109     108                             \r\nCQUAD1  7013    1       125     126     110     109                             \r\nCQUAD1  7014    1       126     127     111     110                             \r\nCQUAD1  7015    1       127     128     112     111                             \r\nCQUAD1  8011    1       139     140     124     123                             \r\nCQUAD1  8012    1       140     141     125     124                             \r\nCQUAD1  8013    1       141     142     126     125                             \r\nCQUAD1  8014    1       142     143     127     126                             \r\nCQUAD1  8015    1       143     144     128     127                             \r\nCQUAD1  9011    1       155     156     140     139                             \r\nCQUAD1  9012    1       156     157     141     140                             \r\nCQUAD1  9013    1       157     158     142     141                             \r\nCQUAD1  9014    1       158     159     143     142                             \r\nCQUAD1  9015    1       159     160     144     143                             \r\nCQUAD1  10011   1       171     172     156     155                             \r\nCQUAD1  10012   1       172     173     157     156                             \r\nCQUAD1  10013   1       173     174     158     157                             \r\nCQUAD1  10014   1       174     175     159     158                             \r\nCQUAD1  10015   1       175     176     160     159                             \r\nDAREA   1       27      1       .32345  28      1       .61525                  \r\nDAREA   1       29      1       .52336  30      1       .38024                  \r\nDAREA   1       31      1       .19991  32      1       3.23-10                 \r\nDAREA   1       43      1       .61525  44      1       1.17027                 \r\nDAREA   1       45      1       .99549  46      1       .72327                  \r\nDAREA   1       47      1       .38024  48      1       6.14-10                 \r\nDAREA   1       59      1       .84681  60      1       1.61074                 \r\nDAREA   1       61      1       1.37017 62      1       .99549                  \r\nDAREA   1       63      1       .52336  64      1       8.44-10                 \r\nDAREA   1       75      1       .99549  76      1       1.89353                 \r\nDAREA   1       77      1       1.61074 78      1       1.17027                 \r\nDAREA   1       79      1       .61525  80      1       9.93-10                 \r\nDAREA   1       91      1       1.04672 92      1       1.99098                 \r\nDAREA   1       93      1       1.69363 94      1       1.23049                 \r\nDAREA   1       95      1       .64691  96      1       1.044-9                 \r\nDAREA   1       107     1       .99549  108     1       1.89353                 \r\nDAREA   1       109     1       1.61074 110     1       1.17027                 \r\nDAREA   1       111     1       .61525  112     1       9.93-10                 \r\nDAREA   1       123     1       .84681  124     1       1.61074                 \r\nDAREA   1       125     1       1.37017 126     1       .99549                  \r\nDAREA   1       127     1       .52336  128     1       8.44-10                 \r\nDAREA   1       139     1       .61525  140     1       1.17027                 \r\nDAREA   1       141     1       .99549  142     1       .72327                  \r\nDAREA   1       143     1       .38024  144     1       6.14-10                 \r\nDAREA   1       155     1       .32345  156     1       .61525                  \r\nDAREA   1       157     1       .52336  158     1       .38024                  \r\nDAREA   1       159     1       .19991  160     1       3.23-10                 \r\nFLSYM   12      S       A                                                       \r\nFSLIST          AXIS    1       2       3       4       5       6       +FSL-1  \r\n+FSL-1  7       8       9       10                                              \r\nFSLIST          170     169     168     167     166     165     164     +FSL-2  \r\n+FSL-2  163     162     161     AXIS                                            \r\nGRIDB   11                      0.0             1       4       10              \r\nGRIDB   12                      6.00000         1       4       10              \r\nGRIDB   13                      12.0000         1       4       10              \r\nGRIDB   14                      18.0000         1       4       10              \r\nGRIDB   15                      24.0000         1       4       10              \r\nGRIDB   16                      30.0000         1       4       10              \r\nGRIDB   27                      0.0             1       4       26              \r\nGRIDB   28                      6.00000         1       4       26              \r\nGRIDB   29                      12.0000         1       4       26              \r\nGRIDB   30                      18.0000         1       4       26              \r\nGRIDB   31                      24.0000         1       4       26              \r\nGRIDB   32                      30.0000         1       4       26              \r\nGRIDB   43                      0.0             1       4       42              \r\nGRIDB   44                      6.00000         1       4       42              \r\nGRIDB   45                      12.0000         1       4       42              \r\nGRIDB   46                      18.0000         1       4       42              \r\nGRIDB   47                      24.0000         1       4       42              \r\nGRIDB   48                      30.0000         1       4       42              \r\nGRIDB   59                      0.0             1       4       58              \r\nGRIDB   60                      6.00000         1       4       58              \r\nGRIDB   61                      12.0000         1       4       58              \r\nGRIDB   62                      18.0000         1       4       58              \r\nGRIDB   63                      24.0000         1       4       58              \r\nGRIDB   64                      30.0000         1       4       58              \r\nGRIDB   75                      0.0             1       4       74              \r\nGRIDB   76                      6.00000         1       4       74              \r\nGRIDB   77                      12.0000         1       4       74              \r\nGRIDB   78                      18.0000         1       4       74              \r\nGRIDB   79                      24.0000         1       4       74              \r\nGRIDB   80                      30.0000         1       4       74              \r\nGRIDB   91                      0.0             1       4       90              \r\nGRIDB   92                      6.00000         1       4       90              \r\nGRIDB   93                      12.0000         1       4       90              \r\nGRIDB   94                      18.0000         1       4       90              \r\nGRIDB   95                      24.0000         1       4       90              \r\nGRIDB   96                      30.0000         1       4       90              \r\nGRIDB   107                     0.0             1       4       106             \r\nGRIDB   108                     6.00000         1       4       106             \r\nGRIDB   109                     12.0000         1       4       106             \r\nGRIDB   110                     18.0000         1       4       106             \r\nGRIDB   111                     24.0000         1       4       106             \r\nGRIDB   112                     30.0000         1       4       106             \r\nGRIDB   123                     0.0             1       4       122             \r\nGRIDB   124                     6.00000         1       4       122             \r\nGRIDB   125                     12.0000         1       4       122             \r\nGRIDB   126                     18.0000         1       4       122             \r\nGRIDB   127                     24.0000         1       4       122             \r\nGRIDB   128                     30.0000         1       4       122             \r\nGRIDB   139                     0.0             1       4       138             \r\nGRIDB   140                     6.00000         1       4       138             \r\nGRIDB   141                     12.0000         1       4       138             \r\nGRIDB   142                     18.0000         1       4       138             \r\nGRIDB   143                     24.0000         1       4       138             \r\nGRIDB   144                     30.0000         1       4       138             \r\nGRIDB   155                     0.0             1       4       154             \r\nGRIDB   156                     6.00000         1       4       154             \r\nGRIDB   157                     12.0000         1       4       154             \r\nGRIDB   158                     18.0000         1       4       154             \r\nGRIDB   159                     24.0000         1       4       154             \r\nGRIDB   160                     30.0000         1       4       154             \r\nGRIDB   171                     0.0             1       4       170             \r\nGRIDB   172                     6.00000         1       4       170             \r\nGRIDB   173                     12.0000         1       4       170             \r\nGRIDB   174                     18.0000         1       4       170             \r\nGRIDB   175                     24.0000         1       4       170             \r\nGRIDB   176                     30.0000         1       4       170             \r\nMAT1    2       1.6+5   6.0+4           6.0-2                                   \r\nPQUAD1  1       2       .01     2       8.3333-8                        +PQUAD1 \r\n+PQUAD1 .0      .005                                                            \r\nPRESPT  21              1501    +0.0                                            \r\nPRESPT  53              3501    +0.0                                            \r\nPRESPT  81              5101    +0.0                                            \r\nPRESPT  82              5201    +0.0                                            \r\nPRESPT  83              5301    +0.0                                            \r\nPRESPT  84              5401    +0.0                                            \r\nPRESPT  85              5501    +0.0    5502    30.0    5503    60.0            \r\nPRESPT  86              5601    +0.0                                            \r\nPRESPT  87              5701    +0.0                                            \r\nPRESPT  88              5801    +0.0                                            \r\nPRESPT  89              5901    +0.0                                            \r\nPRESPT  117             7501    +0.0                                            \r\nPRESPT  149             9501    +0.0                                            \r\nRINGFL  1       1.00000         10.0000 2       2.00000         10.0000         \r\nRINGFL  3       3.00000         10.0000 4       4.00000         10.0000         \r\nRINGFL  5       5.00000         10.0000 6       6.00000         10.0000         \r\nRINGFL  7       7.00000         10.0000 8       8.00000         10.0000         \r\nRINGFL  9       9.00000         10.0000 10      10.0000         10.0000         \r\nRINGFL  17      1.00000         9.00000 18      2.00000         9.00000         \r\nRINGFL  19      3.00000         9.00000 20      4.00000         9.00000         \r\nRINGFL  21      5.00000         9.00000 22      6.00000         9.00000         \r\nRINGFL  23      7.00000         9.00000 24      8.00000         9.00000         \r\nRINGFL  25      9.00000         9.00000 26      10.0000         9.00000         \r\nRINGFL  33      1.00000         8.00000 34      2.00000         8.00000         \r\nRINGFL  35      3.00000         8.00000 36      4.00000         8.00000         \r\nRINGFL  37      5.00000         8.00000 38      6.00000         8.00000         \r\nRINGFL  39      7.00000         8.00000 40      8.00000         8.00000         \r\nRINGFL  41      9.00000         8.00000 42      10.0000         8.00000         \r\nRINGFL  49      1.00000         7.00000 50      2.00000         7.00000         \r\nRINGFL  51      3.00000         7.00000 52      4.00000         7.00000         \r\nRINGFL  53      5.00000         7.00000 54      6.00000         7.00000         \r\nRINGFL  55      7.00000         7.00000 56      8.00000         7.00000         \r\nRINGFL  57      9.00000         7.00000 58      10.0000         7.00000         \r\nRINGFL  65      1.00000         6.00000 66      2.00000         6.00000         \r\nRINGFL  67      3.00000         6.00000 68      4.00000         6.00000         \r\nRINGFL  69      5.00000         6.00000 70      6.00000         6.00000         \r\nRINGFL  71      7.00000         6.00000 72      8.00000         6.00000         \r\nRINGFL  73      9.00000         6.00000 74      10.0000         6.00000         \r\nRINGFL  81      1.00000         5.00000 82      2.00000         5.00000         \r\nRINGFL  83      3.00000         5.00000 84      4.00000         5.00000         \r\nRINGFL  85      5.00000         5.00000 86      6.00000         5.00000         \r\nRINGFL  87      7.00000         5.00000 88      8.00000         5.00000         \r\nRINGFL  89      9.00000         5.00000 90      10.0000         5.00000         \r\nRINGFL  97      1.00000         4.00000 98      2.00000         4.00000         \r\nRINGFL  99      3.00000         4.00000 100     4.00000         4.00000         \r\nRINGFL  101     5.00000         4.00000 102     6.00000         4.00000         \r\nRINGFL  103     7.00000         4.00000 104     8.00000         4.00000         \r\nRINGFL  105     9.00000         4.00000 106     10.0000         4.00000         \r\nRINGFL  113     1.00000         3.00000 114     2.00000         3.00000         \r\nRINGFL  115     3.00000         3.00000 116     4.00000         3.00000         \r\nRINGFL  117     5.00000         3.00000 118     6.00000         3.00000         \r\nRINGFL  119     7.00000         3.00000 120     8.00000         3.00000         \r\nRINGFL  121     9.00000         3.00000 122     10.0000         3.00000         \r\nRINGFL  129     1.00000         2.00000 130     2.00000         2.00000         \r\nRINGFL  131     3.00000         2.00000 132     4.00000         2.00000         \r\nRINGFL  133     5.00000         2.00000 134     6.00000         2.00000         \r\nRINGFL  135     7.00000         2.00000 136     8.00000         2.00000         \r\nRINGFL  137     9.00000         2.00000 138     10.0000         2.00000         \r\nRINGFL  145     1.00000         1.00000 146     2.00000         1.00000         \r\nRINGFL  147     3.00000         1.00000 148     4.00000         1.00000         \r\nRINGFL  149     5.00000         1.00000 150     6.00000         1.00000         \r\nRINGFL  151     7.00000         1.00000 152     8.00000         1.00000         \r\nRINGFL  153     9.00000         1.00000 154     10.0000         1.00000         \r\nRINGFL  161     1.00000         0.0     162     2.00000         0.0             \r\nRINGFL  163     3.00000         0.0     164     4.00000         0.0             \r\nRINGFL  165     5.00000         0.0     166     6.00000         0.0             \r\nRINGFL  167     7.00000         0.0     168     8.00000         0.0             \r\nRINGFL  169     9.00000         0.0     170     10.0000         0.0             \r\nSPC1    3       126     11      12      13      14      15      16              \r\nSPC1    3       126     171     172     173     174     175     176             \r\nSPC1    3       135     16      32      48      64      80      96      H=3     \r\nSPC1    3       135     112     128     144     160     176             H=3     \r\nSPC1    3       246     11      27      43      59      75      91      H=3     \r\nSPC1    3       246     107     123     139     155     171             H=3     \r\nTLOAD2  10      1                       .0      1.0     .0      .0              \r\nTSTEP   10      50      .02     2                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d09031a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$           RIGID FORMAT No. 9, Transient Analysis - Direct Formulation\r\n$          Transient Analysis of a Fluid-Filled Elastic Cylinder (9-3-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The fluid-filled shell used for analysis of the third harmonic in\r\n$ Demonstration Problem No. 7-2-1 is subjected to a step change in external\r\n$ pressure at t = 0 of the form\r\n$ \r\n$                 pi z\r\n$    p  =  p  sin ---- cos n phi\r\n$           o      l\r\n$ \r\n$ The fluid is assumed incompressible in order to obtain an analytical solution\r\n$ with reasonable effort. The harmonic used is n = 3.\r\n$ \r\n$ In addition to the cards of Demonstration Problem No. 7-2-1, DAREA, PRESPT,\r\n$ TLOAD2, and TSTEP cards are also used. Selected displacements and pressures\r\n$ are plotted against time.\r\n$ \r\n$ B. Input\r\n$ \r\n$    Parameters used are:\r\n$ \r\n$      B  =  infinity                   (Bulk modulus of fluid - incompressible)\r\n$ \r\n$                    -2       2   4\r\n$      p  =  1.8 x 10   lb-sec /in      (Fluid mass density)\r\n$       f\r\n$ \r\n$                    -2       2   4\r\n$      p  =  6.0 x 10   lb-sec /in      (Structure mass density)\r\n$       s\r\n$                    5      2\r\n$      E  =  1.6 x 10  lb/in            (Young's modulus for structure)\r\n$ \r\n$                    4      2\r\n$      G  =  6.0 x 10  lb/in            (Shear modulus for structure)\r\n$ \r\n$      a  =  10.0 inch                  (Radius of cylinder)\r\n$ \r\n$      l  =  10.0 inch                  (Length of cylinder)\r\n$ \r\n$      h  =  0.01 inch                  (Thickness of cylinder wall)\r\n$ \r\n$      p  =  2.0                        (Pressure load coefficient)\r\n$       o\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The theory was derived with the aid of Reference 16 as in Demonstration\r\n$ Problem No. 7-2-1. Since the fluid is incompressible, it acts on the structure\r\n$ like a pure mass. Neglecting the bending stiffness, the equation of force on\r\n$ the structure is:\r\n$ \r\n$                             2\r\n$                    ..   1  a F\r\n$    p   =  (m + m ) w  + -  ---                                             (1)\r\n$     s           f       a    2\r\n$                            aZ\r\n$ \r\n$ where:\r\n$ \r\n$    p  is the loading pressure on the structure (positive outward).\r\n$     s\r\n$ \r\n$    m = p h is the mass per area of the structure.\r\n$         s\r\n$ \r\n$    m  is the apparent mass of the fluid.\r\n$     f\r\n$ \r\n$    w is the normal displacement (positive outward).\r\n$ \r\n$ The function F is defined by the equation,\r\n$ \r\n$                        2\r\n$            4      Eh  a w\r\n$    gradient F  =  --  ---                                                  (2)\r\n$                   a     2\r\n$                       az\r\n$ \r\n$ The spatial functions of pressure, displacement, and function F may be written\r\n$ in the form:\r\n$ \r\n$                  pi z\r\n$    p   =  p  sin ----  cos n phi\r\n$     s      o      l\r\n$ \r\n$                 pi z\r\n$    w  =  w  sin ----  cos n phi                                            (3)\r\n$           o      l\r\n$ \r\n$                 pi z\r\n$    F  =  F  sin ----  cos n phi\r\n$           o      l\r\n$ \r\n$ where p , w , and F  are variables with respect to time only.\r\n$        o   o       o\r\n$ \r\n$ Substituting Equations 3 into Equation 2 we obtain:\r\n$ \r\n$                               w\r\n$             Eh       2         o\r\n$    F   =  - -- (l/pi)  -----------------                                   (4)\r\n$     o       a                        2 2\r\n$                        [1 + (nl/pi a) ]\r\n$ \r\n$ Substituting Equations 3 and 4 into Equation 1 we obtain:\r\n$ \r\n$                   ..          Eh\r\n$    p   = (m + m ) w  + -------------------  w                              (5)\r\n$     o          f   o    2              2 2   o\r\n$                        a [1 + (nl/pi a) ]\r\n$ \r\n$ The incompressible fluid is described by the differential equation:\r\n$ \r\n$            2\r\n$    gradient  p  =  0                                                       (6)\r\n$ \r\n$ Applying the appropriate boundary conditions to Equation 6 results in the\r\n$ pressure distribution:\r\n$ \r\n$                 pi z                  pi r\r\n$    p  =  p  sin ----  cos (n phi) I  (----)                                (7)\r\n$           r      l                 n   l\r\n$ \r\n$ where I  is the modified Bessel function of the first kind and is an\r\n$        n\r\n$ undetermined variable. The balance of pressure and flow at the boundary of the\r\n$ fluid, with no structural effects, is described by the equations:\r\n$ \r\n$                    pi a\r\n$    p   =  - p  I  (----)                                                   (8)\r\n$     o        r  n   l\r\n$ \r\n$      ..     ap |\r\n$    p w  = - -- |                                                           (9)\r\n$     f       ar |r=a\r\n$ \r\n$ Substituting Equations 3 and 7 into Equation 9 results in:\r\n$ \r\n$      ..     pi     pi a\r\n$    p w   =  -- I' (----) p                                                (10)\r\n$     f o     l   n   l     r\r\n$ \r\n$ Eliminating P  with Equations 8 and 10 gives the expression for apparent mass,\r\n$              f\r\n$ m :\r\n$  f\r\n$ \r\n$                          ..\r\n$                       p  w\r\n$               pi a     f  o             ..\r\n$    p   =  I  (----) ------------  =  m  w                                 (11)\r\n$     o      n   l    pi     pi a       f  o\r\n$                     -- I' (----)\r\n$                     l   n   l\r\n$ \r\n$ Substituting the expression for mf from Equation 11 into Equation 5 results in\r\n$ a simple single degree of freedom system.  When the applied loading pressure\r\n$ is a step function at t = 0,\r\n$ \r\n$          p\r\n$           o                     pi z\r\n$    w  =  -- (1 - cos n phi) sin ---- cos n phi                            (12)\r\n$          k                       l\r\n$ \r\n$ where\r\n$ \r\n$    w  =  sqrt(k/m )\r\n$                  T\r\n$ \r\n$ and\r\n$ \r\n$                 Eh\r\n$    k  =  -------------------\r\n$           2              2 2\r\n$          a [1 + (nl/pi a) ]\r\n$ \r\n$ and\r\n$ \r\n$                                 I (pi a/l)\r\n$                              l   n\r\n$    m  =  m + m   =  p h + p  -- ----------\r\n$     T         f      s     f pi I'(pi a/l)\r\n$                                  n\r\n$ \r\n$ D. Results\r\n$ \r\n$ A transient analysis was performed for the case n = 3 on the model and various\r\n$ displacements and pressures were output versus time up to one second. The\r\n$ theoretical frequency is calculated to be 1.580 Hertz and the period is 0.633\r\n$ seconds.  The displacements at two points on the structure (Point 91 is located\r\n$ at phi = 0, z = 5.0; Point 94 is located at phi = 18 degrees, z = 5.0) were\r\n$ plotted versus time.\r\n$ \r\n$ The maximum error for the first full cycle occurs at the end of the cycle.\r\n$ The ratio of the error to maximum displacement is 4.75%. Changes in the time\r\n$ step used in the transient integration algorithm did not affect the accuracy\r\n$ to any great extent. The most probable causes for error were the mesh size of\r\n$ the model and the method used to apply the distributed load. The applied load\r\n$ was calculated by multiplying the pressure value at the point by an associated\r\n$ area. The \"consistent method\" of assuming a cubic polynomial displacement and\r\n$ integrating would eliminate the extraneous response of higher modes. The\r\n$ method chosen in this problem, however, is typical of actual applications.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 16. J. G. Berry and E. Reissner, \"The Effect of an Internal Compressible Fluid\r\n$     Column on the Breathing Vibrations of a Thin Pressurized Cylindrical\r\n$     Shell\", Journal of the Aeronautical Sciences, Vol. 25, No. 5, pp 288-294,\r\n$     May 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d09041a.inp",
    "content": "ID    D09041A,NASTRAN                                                           \r\nAPP   HEAT                                                                      \r\nSOL   9,1                                                                       \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = LINEAR TRANSIENT HEAT ANALYSIS  OF A PLATE                           \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D09-04-1A                          \r\nTEMP(MATERIAL) = 60                                                             \r\nSPC    = 21                                                                     \r\nIC     = 60                                                                     \r\nDLOAD  = 70                                                                     \r\nTSTEP  = 80                                                                     \r\nSET 21 = 21                                                                     \r\nOUTPUT                                                                          \r\nTHERMAL= ALL                                                                    \r\nOLOAD  = ALL                                                                    \r\nSPCF   = 21                                                                     \r\nBEGIN BULK                                                                      \r\nCELAS2  28      3.0+8   20      1       21      1                               \r\nCHBDY   31      2       LINE    10      12                                      \r\nCHBDY   33      2       LINE    12      14                                      \r\nCHBDY   35      2       LINE    14      16                                      \r\nCHBDY   37      2       LINE    16      18                                      \r\nCHBDY   39      2       LINE    18      20                                      \r\nCROD    11      1       10      12      13      1       12      14              \r\nCROD    15      1       14      16      17      1       16      18              \r\nCROD    19      1       18      20                                              \r\nDAREA   70      20      0       1.5+8                                           \r\nGRID    10              .0      .0      .0                                      \r\nGRID    12              .2      .0      .0                                      \r\nGRID    14              .4      .0      .0                                      \r\nGRID    16              .6      .0      .0                                      \r\nGRID    18              .8      .0      .0                                      \r\nGRID    20              1.0     .0      .0                                      \r\nGRID    21              1.0                                                     \r\nMAT4    1       1.0     2.4674                                                  \r\nPHBDY   2               1.0                                                     \r\nPROD    1       1       1.0                                                     \r\nQBDY1   70      100.0   31      33      35      37      39                      \r\nSPC     21      21      1                                                       \r\nTEMPD   60      .0                                                              \r\nTLOAD2  70      70      0               .0      100.0                           \r\nTSTEP   80      100     .05     2                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d09041a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$     RIGID FORMAT No. 9 (APP HEAT), Linear Transient Heat Transfer Analysis\r\n$          Plate with Suddenly Applied Flux and Edge Temperature (9-4-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The time history of the temperature in a long thin plate initially at zero\r\n$ degrees is analyzed using NASTRAN's transient heat analysis capability. At\r\n$ time t=0 a heat flux is applied on one surface of the plate and simultaneously\r\n$ the temperature along the edges is increased. These temperatures are\r\n$ maintained at a value by using a large heat flux through a good conductor to\r\n$ ground. The problem is one dimensional since it is assumed that no temperature\r\n$ variation exists along the length or through the thickness. Since the plate is\r\n$ symmetric about the center plane, only one half of the plate is modeled.\r\n$ \r\n$ B. Input\r\n$ \r\n$ The idealized NASTRAN model is represented by five ROD elements going from the\r\n$ centerplane to the edge. The conductor-ground arrangement is modeled by an\r\n$ ELAS2 element and an SPC card referenced in Case Control. The injected heat\r\n$ flux at the edge is specified using DAREA and TLOAD2 cards which are\r\n$ referenced in Case Control through a DLOAD card. The surface heat flux is\r\n$ specified on a QBDY1 card and references the TLOAD2 card. The time step\r\n$ intervals at which the solution is generated are given on the TSTEP card. The\r\n$ initial temperature conditions are specified on the TEMPD card and referenced\r\n$ in Case Control by an IC card. The heat capacity and conductivity are given on\r\n$ the MAT4 card.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The analytic solution is\r\n$ \r\n$                                                          n         2\r\n$                         4                            (-1)   -(2n+1) t\r\n$    T(x,t)  =  0.5 [ 1 - -- sum from n=0 to infinity ------ e\r\n$                         pi                          (2n+1)\r\n$ \r\n$                                                 2    32\r\n$               cos(2n+1) pi x/2 ] +  50. [ (1 - x ) - ---                   (1)\r\n$                                                        3\r\n$                                                      pi\r\n$ \r\n$                                             n          2\r\n$                                         (-1)    -(2n+1) t\r\n$               sum from n=0 to infinity ------- e          cos(2n+1)pi x/2 ]\r\n$                                              3\r\n$                                        (2n+1)\r\n$ \r\n$ D. Results\r\n$ \r\n$ A comparison of theoretical and NASTRAN results is given in Table 1.\r\n$ \r\n$                   Table 1. Theoretical and NASTRAN Temperatures\r\n$       ---------------------------------------------------------------------\r\n$                                               GRID(X)\r\n$                         ---------------------------------------------------\r\n$                         10(0.)   12(.2)   14(.4)   16(.6)   18(.8)   20(1.)\r\n$       ---------------------------------------------------------------------\r\n$             Theory*      0.       0.       0.       0.       0.       0.\r\n$       t = 0\r\n$             NASTRAN      0.       0.       0.       0.       0.       0.\r\n$       ---------------------------------------------------------------------\r\n$             Theory*     31.282   30.222   26.952   21.204   12.562   .500\r\n$       t = 1\r\n$             NASTRAN     30.641   29.612   26.433   20.826   12.362   .500\r\n$       ---------------------------------------------------------------------\r\n$             Theory*     43.430   41.776   36.780   28.344   16.316   .500\r\n$       t = 2\r\n$             NASTRAN     43.117   41.478   36.527   28.160   16.218   .500\r\n$       ---------------------------------------------------------------------\r\n$             Theory*     47.916   46.026   40.396   30.971   17.696   .500\r\n$       t = 3\r\n$             NASTRAN     47.755   45.890   40.280   30.887   17.652   .500\r\n$       ---------------------------------------------------------------------\r\n$       t = infinity\r\n$             Theory      50.500   48.500   42.500   32.500   18.500   .500\r\n$       ---------------------------------------------------------------------\r\n$       * n = 0 term only.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d10011a.inp",
    "content": "ID    D10011A,NASTRAN                                                           \r\nTIME  25                                                                        \r\nAPP   DISPLACEMENT                                                              \r\nSOL   10,1                                                                      \r\nDIAG  14                                                                        \r\nALTER 88 $                                                                      \r\nMATGPR   GPLD,USETD,SILD,PHIA // C,N,H / C,N,A  $                               \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = COMPLEX EIGENVALUE ANALYSIS OF A ROCKET CONTROL SYSTEM               \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-01-1A                          \r\n   LABEL = FLEXIBLE STRUCTURE CASE                                              \r\n     MPC = 101                                                                  \r\n  METHOD = 2                                                                    \r\n     TFL =  20                                                                  \r\n CMETHOD =  11                                                                  \r\nOUTPUT                                                                          \r\n  SET 1  =  1,100,101,1010 THRU 1090                                            \r\n            SVECTOR(SORT1,PHASE)  = ALL                                         \r\n        DISPLACEMENT(SORT1,PHASE) =  1                                          \r\nBEGIN BULK                                                                      \r\nBAROR                                   .0      10.0    .0      1               \r\nCBAR    1       10      1       2                                               \r\nCBAR    2       10      2       3                                               \r\nCBAR    3       10      3       4                                               \r\nCBAR    4       10      4       5                                               \r\nCBAR    5       10      5       6                                               \r\nCBAR    6       10      6       7                                               \r\nCBAR    7       10      7       8                                               \r\nCBAR    8       10      8       9                                               \r\nCBAR    9       10      9       10                                              \r\nCBAR    10      20      10      11                                              \r\nCBAR    11      20      11      12                                              \r\nCBAR    12      20      12      13                                              \r\nCBAR    13      20      13      14                                              \r\nCBAR    14      20      14      15                                              \r\nCBAR    15      20      15      16                                              \r\nCELAS4  1001    2.0261+71001            1002    32.417+71002                    \r\nCELAS4  1003    164.11+71003            1004    518.68+71004                    \r\nCMASS4  2001    2.5+3   1001    2001    2002    2.5+3   1002    2002            \r\nCMASS4  2003    2.5+3   1003    2003    2004    2.5+3   1004    2004            \r\nCONM2   101     1               3333.333                                        \r\nCONM2   102     2               6666.667                                        \r\nCONM2   103     3               6666.667                                        \r\nCONM2   104     4               6666.667                                        \r\nCONM2   105     5               6666.667                                        \r\nCONM2   106     6               6666.667                                        \r\nCONM2   107     7               6666.667                                        \r\nCONM2   108     8               6666.667                                        \r\nCONM2   109     9               6666.667                                        \r\nCONM2   110     10              5000.000                                        \r\nCONM2   111     11              3333.333                                        \r\nCONM2   112     12              3333.333                                        \r\nCONM2   113     13              3333.333                                        \r\nCONM2   114     14              3333.333                                        \r\nCONM2   115     15              3333.333                                        \r\nCONM2   116     16              2500.0                                          \r\nCONM2   117     17              1666.667                                        \r\nCONM2   118     18              1666.667                                        \r\nCONM2   119     19              833.333                                         \r\nEIGC    11      DET     MAX                                             +EC     \r\n+EC     -2.0    -1.0    -2.0    10.0    10.0    6       6                       \r\nEIGC    12      INV     MAX                                             +EC1    \r\n+EC1    .0      -1.0    .0      10.0    10.0    6       6                       \r\nEIGC    13      INV     MAX                                             EIGC13  \r\n+IGC13  -1.0    .0      -1.0    10.0    10.0    6       6                       \r\nEIGP    11      .0      .0      2                                               \r\nEIGR    1       INV     .0      1.0     1       2       2               +E1     \r\n+E1     MASS                                                                    \r\nEIGR    2       INV     .0      12.0    5       7                       +E2     \r\n+E2     MASS                                                                    \r\nEPOINT  1010    1011    1030    1040    1050    1060    1070    1080            \r\nEPOINT  1020    1021                                                            \r\nGRDSET                                                  1345                    \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               16.66667.0      .0                                      \r\nGRID    3               33.33333.0      .0                                      \r\nGRID    4               50.0    .0      .0                                      \r\nGRID    5               66.66666.0      .0                                      \r\nGRID    6               83.33333.0      .0                                      \r\nGRID    7               100.0   .0      .0                                      \r\nGRID    8               116.6667.0      .0                                      \r\nGRID    9               133.3333.0      .0                                      \r\nGRID    10              150.000 .0      .0                                      \r\nGRID    11              166.6667.0      .0                                      \r\nGRID    12              183.3333.0      .0                                      \r\nGRID    13              200.00  .0      .0                                      \r\nGRID    14              216.6667.0      .0                                      \r\nGRID    15              233.3333.0      .0                                      \r\nGRID    16              250.000 .0      .0                                      \r\nGRID    17              266.6667.0      .0              123456                  \r\nGRID    18              283.3333.0      .0              123456                  \r\nGRID    19              300.000 .0      .0                                      \r\nGRID    100             166.176 .0      .0                                      \r\nGRID    101             116.176 .0      .0                                      \r\nMAT1    1       10.4+6  4.0+6                                                   \r\nMPC     3       16      6       -1.0    1001            .0628318        +161    \r\n+161            1002            .12566371003            .1884955        +162    \r\n+162            1004            .251327419      2       .02             +163    \r\n+163            16      2       -.02                                            \r\nMPC     3       19      6       -1.0    1001            -.062832        +191    \r\n+191            1002            .12566371003            -.188496        +192    \r\n+192            1004            .251327419      2       .02             +193    \r\n+193            16      2       -0.02                                           \r\nMPC     3       2001            1.57079616      2       1.0             +201    \r\n+201            19      2       1.0                                             \r\nMPC     3       2002            1.57079616      2       .5              +202    \r\n+202            19      2       -0.5                                            \r\nMPC     3       2003            1.57079616      2       .3333333        +203    \r\n+203            19      2       .3333333                                        \r\nMPC     3       2004            1.57079616      2       .25             +204    \r\n+204            19      2       -0.25                                           \r\nMPC     100     8       2       1.0     101     2       -1.0            +MPC2   \r\n+MPC2           101     6       -.491                                           \r\nMPC     100     8       6       1.0     101     6       -1.0                    \r\nMPC     100     11      2       1.0     100     2       -1.0            +MPC1   \r\n+MPC1           100     6       -.491                                           \r\nMPC     100     11      6       1.0     100     6       -1.0                    \r\nMPCADD  101     100     3                                                       \r\nPARAM   GRDPNT  101                                                             \r\nPARAM   LMODES  4                                                               \r\nPBAR    10      1       4.0+2   6.0+4   6.0+4                                   \r\nPBAR    20      1       2.0+2   2.0+4   2.0+4                                   \r\nSEQGP   100     10.5    101     7.5                                             \r\nSPOINT  1001    1002    1003    1004    2001    2002    2003    2004            \r\nSUPORT  101     2       101     6                                               \r\nTF      20      1       2       .0      .0      50.0                    +T6     \r\n+T6     1       6       .0      .0      -150.0                          +T61    \r\n+T61    1070    0       -4.25+6         -150.0                                  \r\nTF      20      1       6                                               +T7     \r\n+T7     1060            1.0                                             +T71    \r\nTF      20      1010            1.0                                     +T8     \r\n+T8     100     2       -1.0                                            +T81    \r\n+T81    1080            -1.0    .0      .0                                      \r\nTF      20      1011            1.0                                     +T9     \r\n+T9     100     6       -1.0+2                                                  \r\nTF      20      1020            1.0                                             \r\nTF      20      1021            .01                                             \r\nTF      20      1030            1.0                                     +T1     \r\n+T1     1020            -16.0                                           +T11    \r\n+T11    1021            -15.0                                           +T12    \r\n+T12    1010            -16.0   -28.0                                   +T13    \r\n+T13    1011            -15.0   -7.0                                            \r\nTF      20      1040            1.0                                     +T2     \r\n+T2     1030            -1.0                                            +T21    \r\n+T21    1070            100.0   14.14                                           \r\nTF      20      1050            1.0                                     +T3     \r\n+T3     1040            -1.0                                                    \r\nTF      20      1060            1.0                                     +T4     \r\n+T4     1050            -500.0                                                  \r\nTF      20      1070            .0      .0      500.0                   +T5     \r\n+T5     1060            -1.0                                            +T51    \r\n+T51    1       6       .0      .0      500.0                           +T52    \r\n+T52    1       2       .0      .0      -150.0                                  \r\nTF      20      1080                            8.5+4                   +TX     \r\n+TX     1       6       -4.25+6                                                 \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d10011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$       RIGID FORMAT No. 10, Complex Eigenvalue Analysis - Modal Formulation\r\n$                   Rocket Guidance and Control Problem (10-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem, although a simplified model, contains all of the elements used\r\n$ in a linear control system analysis. The flexible structure consists of three\r\n$ sections: two sections are constructed of structural finite elements; the\r\n$ third section is formulated in terms of its modal coordinates. A sensor is\r\n$ located at an arbitrary point on the structure and connected to a structural\r\n$ point with multipoint constraints. The measured attitude and position of the\r\n$ sensor point is used to generate a control voltage for the gimbal angle of the\r\n$ thrust nozzle. The nozzle control is in itself a servomechanism consisting of\r\n$ an amplifier, a motor, and a position and velocity feedback control. The\r\n$ nozzle produces a force on the structure due to its mass and the angle of\r\n$ thrust. The motion of any point on the structure is dependent on the elastic\r\n$ motions, free-body notions, and large angle effects due to free-body rotation.\r\n$ \r\n$ The definitions for the variables and coefficients along with values for the\r\n$ coefficients are given in Table 1. The use of the Transfer Function data card\r\n$ (TF) allows the direct definition of the various relations.\r\n$ \r\n$ B. Theory\r\n$ \r\n$ A section of the structure is defined by its modaI coordinates by using a\r\n$ modification of the method given in the NASTRAN Theoretical Manual. The\r\n$ algorithm is given as follows:\r\n$ \r\n$ Define  xi , i = 1, n  - modal deflections scalar points\r\n$           i\r\n$                   u    - grid point components used as nonredundant\r\n$                    r     supports for modal test. These may or may not be\r\n$                          connected to the rest of the structure.\r\n$ \r\n$                   u    - grid point components to be connected to the\r\n$                    c     remaining structure (not u  points)\r\n$                                                    r\r\n$ \r\n$         x   i = 1, n   - rigid body component degrees of freedom for the\r\n$          i               nonzero nodes\r\n$ \r\n$ The relations between these variables are defined by using multipoint\r\n$ constraints with the following relationships:\r\n$ \r\n$    {u }  =  [phi  ]{xi } + [D  ]{u }                                       (1)\r\n$      c          ci    i      cr   r\r\n$ \r\n$ where phi   is the angular deflection of point u  for mode i. D   is the\r\n$          ci                                     c              cr\r\n$ deflection of point u  when the structure is rigid and point u  is given a\r\n$                      c                                        r\r\n$ unit deflection.\r\n$ \r\n$                 -1   T\r\n$    {x }  =  [K ]  [H] {u }  =  [G]{u }                                     (2)\r\n$      i        i         r           r\r\n$ \r\n$ where [K ] is a diagonal matrix. Each term K , the modal stiffness, is defined\r\n$         i                                   i\r\n$ as:\r\n$ \r\n$              2\r\n$    K   =  m w                      (w  not equal 0)                        (3)\r\n$     i      i i                       i\r\n$ \r\n$ where m  is the modal mass and w  is the natural frequency in radians per\r\n$        i                        i\r\n$ second. [H] is determined by the forces on the support points due to each\r\n$ nonzero eigenvector:\r\n$ \r\n$    P   =  - sum from i H   xi      (w  not equal 0)                        (4)\r\n$     r                   ri   i       i\r\n$ \r\n$ The structure to be added in this problem consists of a simply supported\r\n$ uniform bed. The support points, u , are y   and y  . The additional degree of\r\n$                                   r       16      19\r\n$ freedom to be connected is u  = theta  . Four modes are used in the test\r\n$                             c        16\r\n$ problem. The following data is used to define and connect the modal\r\n$ coordinates of this substructure. The mode shapes are\r\n$ \r\n$                    n pi x\r\n$    phi (x)  =  sin ------                                                  (5)\r\n$       n              l\r\n$ \r\n$ The modal frequencies, masses, and stiffness in terms of normal beam\r\n$ terminology are\r\n$ \r\n$            2  2\r\n$           n pi   EI\r\n$    w   =  -----  --                (n = 1, 2, 3, 4)                        (6)\r\n$     n       2    pA\r\n$            l\r\n$ \r\n$           pAl\r\n$    m   =  ---                                                              (7)\r\n$     n      2\r\n$ \r\n$            4  4\r\n$           n pi EI\r\n$    K   =  -------                                                          (8)\r\n$     n         3\r\n$             2l\r\n$ \r\n$ The forces of support for each mode are\r\n$ \r\n$                         3\r\n$                     EIpi    3\r\n$    P (16)  =  sum - -----  n                                               (9)\r\n$     y                 3\r\n$                      l\r\n$ \r\n$                            3\r\n$                      n EIpi    3\r\n$    P (19) =  sum (-1)  -----  n                                           (10)\r\n$     y                    3\r\n$                         l\r\n$ \r\n$ The motion theta   is defined by multipoint constraints:\r\n$                 16\r\n$ \r\n$              1                          n pi\r\n$    theta   = - (y   - y  ) + sum from n ----  xi                          (11)\r\n$         16   l   19    16                l      n\r\n$ \r\n$ The free-body components of the modes are defined, using multipoint constraints,\r\n$ as:\r\n$ \r\n$    +     +                          +            +\r\n$    |  x  |                          | 1      1   |\r\n$    |   1 |                          |            |\r\n$    |     |                          |            |  +     +\r\n$    |  x  |           3         3    | 1/2   -1/2 |  | y   |\r\n$    |   2 |         2l      EIpi     |            |  |  16 |\r\n$    |     |   =  - (-----) (-----)   |            |  |     |               (12)\r\n$    |  x  |           4       3      | 1/3    1/3 |  | y   |\r\n$    |   3 |         pi EI    l       |            |  |  19 |\r\n$    |     |                          |            |  +     +\r\n$    |  x  |                          | 1/4   -1/4 |\r\n$    |   4 |                          |            |\r\n$    +     +                          +            +\r\n$ \r\n$ The mass of the nozzle would normally be included with the structural\r\n$ modeling. However, to demonstrate the flexibility of the Transfer Function\r\n$ data, it is modeled as part of the guidance system. Defining the angle of\r\n$ thrust, gamma, to be measured relative to the deformed structure, the forces\r\n$ which result are\r\n$ \r\n$                  2     ..      ..           ..\r\n$    T  =  (I   + x m )(gamma + theta ) - m x y                             (13)\r\n$            no    n i               1     n n 1\r\n$ \r\n$                        ..      ..\r\n$    F   = m y  - x m  (gamma + theta ) - F  gamma                          (14)\r\n$     y     n 1    n n               1     n\r\n$ \r\n$ Using the thrust force, F , as a constant, the transfer functions are\r\n$                          n\r\n$ \r\n$       2                2               2\r\n$    I s  gamma - T + I s  theta  - x m s y   =  0                          (15)\r\n$     n                n        1    n n   1\r\n$ \r\n$       2           2                    2\r\n$    m s y  - (x m s  + F ) gamma - x m s  theta   =  0                     (16)\r\n$     n   1     n n      n           n n        1\r\n$ \r\n$    (0) theta  + T  =  0                                                   (17)\r\n$             1\r\n$ \r\n$ where\r\n$ \r\n$                  2\r\n$    I   =  I   + x  m   =  500                                             (18)\r\n$     n      no    n  n\r\n$ \r\n$ The large angle motion must be included in the analysis since it contributes\r\n$ to the linear terms. The equations of motion of the structure are formed\r\n$ relative to a coordinate system parallel to the body. The accelerations are\r\n$ coupled when the body rotates.\r\n$                               ..\r\n$ Since the axial acceleration, x, is constant throughout the body, the\r\n$ vertical acceleration at any point, to the first order, is\r\n$ \r\n$    ..       ..     ..           ..     ..\r\n$    y     =  y    + x theta   =  y    + y                                  (19)\r\n$     abs      rel          1      rel    theta\r\n$ \r\n$ An extra degree of freedom y      is added to the problem and coupled by\r\n$                             theta\r\n$ the equations:\r\n$ \r\n$     ..\r\n$    my       =  F  theta                                                   (20)\r\n$      theta      n      1\r\n$ \r\n$    y     =  y    + y                                                      (21)\r\n$     abs      rel    theta\r\n$ \r\n$ The center of gravity (point 101) and the sensor location (point 100) are\r\n$ rigidly connected to the nearest structural point with multipoint constraints.\r\n$ For instance the sensor point is located a distance of 4.91 from point 8.\r\n$ \r\n$ It is desired to leave point 101 as an independent variable point. Therefore\r\n$ point 8 is defined in terms of point 101 by the equations:\r\n$ \r\n$    y   =  y    + 4.91 theta                                               (22)\r\n$     8      101             101\r\n$ \r\n$    theta   =  theta                                                       (23)\r\n$         8          101\r\n$ \r\n$ C. Results\r\n$ \r\n$ A comparison of the NASTRAN complex roots and those derived by a conventional\r\n$ analysis described below are given in Table 2. The resulting eigenvectors were\r\n$ substituted into the equations of motion to check their validity. The\r\n$ equations of motion for a polynomial solution may be written in terms of the\r\n$ rigid body motions of the center of gravity plus the modal displacements. The\r\n$ equations of motion using Laplace transforms are\r\n$ \r\n$      2\r\n$    ms  y    =  F (theta  + gamma)                                         (24)\r\n$         cg      n      1\r\n$ \r\n$      2\r\n$    Is  theta    =  - F  x  gamma                                          (25)\r\n$             cg        n  1\r\n$ \r\n$ The inertia forces of the nozzle on the structure may be ignored.\r\n$ \r\n$ The motion of the nozzle, as explained above, is\r\n$ \r\n$       2                                                         2\r\n$      s                       ~                                 s\r\n$    (---- + tau s = 1) gamma  =  (a + bs)y  + (c + ds)theta  - ---- +\r\n$     beta                                 s                x   beta\r\n$ \r\n$     2\r\n$    s m x\r\n$       n n\r\n$    -------  y                                                             (26)\r\n$    beta I    1\r\n$          n\r\n$ \r\n$ where gamma is defined as the relative angle between the nozzle and the\r\n$ structure.\r\n$ \r\n$ The flexible motions at the sensor point, y  and theta , may be defined in\r\n$                                            s          s\r\n$ terms of the modal coefficients and the rigid motions of the center of\r\n$ gravity:\r\n$ \r\n$    y   =  y   + x  theta   + sum from i phi      xi                       (27)\r\n$     s      cg    2      cg                 100,i   i\r\n$ \r\n$    theta   =  theta   + sum from i phi      xi                            (28)\r\n$         s          cg                 100,i   i\r\n$ \r\n$ The motions of the nozzle point, in terms of the modal and center of gravity\r\n$ motions are\r\n$ \r\n$                                       '\r\n$    theta   =  theta   + sum from i phi    xi                              (29)\r\n$         1          cg                 1,i   i\r\n$ \r\n$    y   =  y   - x  theta   + sum from i phi    xi                         (30)\r\n$     1      cg    1      cg                 1,i   i\r\n$ \r\n$ The modal displacements are due primarily to the vertical component of the\r\n$ nozzle force. Their equation of motion is\r\n$ \r\n$        2    2\r\n$    m (s  + w )xi   =  F gamma                                             (31)\r\n$     i       i   i      n\r\n$ \r\n$ where\r\n$ \r\n$    phi    is the deflection of point j for mode i\r\n$       j,i\r\n$ \r\n$       '\r\n$    phi    is the rotation of point j for mode i\r\n$       j,i\r\n$ \r\n$    m      is the nodal mass of mode i\r\n$     i\r\n$ \r\n$    w      is the natural frequency of mode i\r\n$     i\r\n$ \r\n$    xi     is the modal displacement of mode i\r\n$      i\r\n$ \r\n$ The determinant of the matrix forms a polynomial of order 10. The roots of\r\n$ this polynomial were obtained by a standard computer library routine and are\r\n$ presented in Table 2 as the analytical results. The rigid body solution is\r\n$ also presented.\r\n$ \r\n$ The differences between the two sets of answers is due to the differences in\r\n$ models. The NASTRAN model produces errors due to the finite difference\r\n$ approximation and the number of modes chosen to model the third stage. The\r\n$ polynomial solution produces errors due to the approximations used in the\r\n$ equations of motion as applied to control system problems.\r\n$ \r\n$ As a further check the first eigenvalue (lambda = -1.41) was substituted into\r\n$ the matrix and the matrix was normalized by dividing each row by its diagonal\r\n$ value. The NASTRAN eigenvector was multiplied by the matrix, resulting in an\r\n$ error vector which theoretically should be zero. Dividing each term in the\r\n$ error vector by its corresponding term in the eigenvector resulted in very\r\n$ small error ratios.\r\n$ \r\n$                         Table 1. Variables and Parameters\r\n$ \r\n$ EXTRA\r\n$ POINT\r\n$ NUMBER   SYMBOL       DESCRIPTION\r\n$ \r\n$ 1010     e            Voltage describing y\r\n$           y\r\n$ 1011     e            Voltage describing theta\r\n$           theta\r\n$ 1020     E            Control voltage for y (Input)\r\n$           yc\r\n$ 1021     E            Control voltage for theta (Input)\r\n$           thetac\r\n$ 1030     E            Attitude error function\r\n$           gamma\r\n$ 1040     epsilon      Nozzle position error\r\n$                 gamma\r\n$ 1050     E            Voltage for nozzle servo\r\n$           m\r\n$ 1060     T            Torque for nozzle servo\r\n$ \r\n$ 1070     tau          Nozzle thrust angle relative to structure\r\n$ \r\n$ 1080     y            Position increment due to attitude\r\n$           theta\r\n$ \r\n$ \r\n$ PARAMETER   VALUE     DESCRIPTION\r\n$ \r\n$ K           1.0       Servo amplifier gain\r\n$  s\r\n$ \r\n$ K           500       Servo gain\r\n$  m\r\n$ \r\n$ tau         .1414     Nozzle angular velocity feedback\r\n$ \r\n$ x           3.0       Distance from nozzle c.g. to gimbal axis\r\n$  n\r\n$ \r\n$ I           500.0     Inertia of nozzle about gimbal axis\r\n$  n\r\n$                    6\r\n$ F           4.25x10   Thrust of nozzle\r\n$  n\r\n$ \r\n$ m           50        Nozzle mass\r\n$  n\r\n$ \r\n$ beta        100.0     Overall voltage-to-angle ratio\r\n$     theta\r\n$ \r\n$ beta        1.0       Overall voltage-to-position ratio\r\n$     y\r\n$ \r\n$ a           .16       Position feedback coefficient\r\n$ \r\n$ b           .28       Velocity feedback coefficient\r\n$ \r\n$ c           15.0      Angle feedback coefficient\r\n$ \r\n$ d           7.0       Angular velocity feedback coefficient\r\n$                   4\r\n$ m           8.5x10    Mass of structure\r\n$ \r\n$           Table 2. Comparison of Complex Roots for NASTRAN Modeling vs.\r\n$                          Simplified Polynomial Expansion\r\n$       --------------------------------------------------------------------\r\n$            Rigid Body Model                   Flexible Modes Model\r\n$       --------------------------------------------------------------------\r\n$       NASTRAN          POLYNOMIAL         NASTRAN          POLYNOMIAL\r\n$       --------------------------------------------------------------------\r\n$       -.540 +/- .821i  -.522 +/- .802i    -.507 +/- .819i  -.494 +/- .801i\r\n$ \r\n$       -1.68 +/- 0i     -1.74 +/- 0i       -1.41 +/- 0i     -1.46 +/- 0i\r\n$ \r\n$       +.751 +/- 5.96i  +.774 +/- 5.98i    +.520 +/- 3.82i  +.522 +/- 3.83i\r\n$       --------------------------------------------------------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d10021a.inp",
    "content": "ID    D10021A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   10,0                                                                      \r\nTIME  10                                                                        \r\nDIAG  14,18                                                                     \r\nALTER 66 $                                                                      \r\nMATGPR   GPL,USET,SIL,PHIA//C,N,FE,/C,N,A $                                     \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-1A (KE METHOD)              \r\nLABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n    ECHO = BOTH                                                                 \r\n    SPC  = 1                                                                    \r\n METHOD  = 10                                                                   \r\n CMETHOD = 20                                                                   \r\n FMETHOD = 30                                                                   \r\nOUTPUT(XYOUT)                                                                   \r\n XTITLE  = VELOCITY                                                             \r\n YTTITLE = DAMPING (G)                                                          \r\n YBTITLE = FREQUENCY (F)                                                        \r\n TCURVE  = V-G AND V-F DATA POINTS                                              \r\nCURVELINESYMBOL = -1                                                            \r\nXYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\nBEGIN BULK                                                                      \r\nAERO    0       1.3+4   2.0706  1.145-7                                         \r\nCAERO1  101     1       1       6       4                       1       +CA101  \r\n+CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\nCBAR    1       1       1       2       0.0     0.0     1.      1               \r\nCBAR    2       1       2       3       0.0     0.0     1.      1               \r\nCBAR    3       1       3       4       0.0     0.0     1.      1               \r\nCBAR    4       1       4       5       0.0     0.0     1.      1               \r\nCBAR    5       1       5       6       0.0     0.0     1.      1               \r\nCBAR    6       1       6       7       0.0     0.0     1.      1               \r\nCBAR    7       1       7       8       0.0     0.0     1.      1               \r\nCBAR    8       1       8       9       0.0     0.0     1.      1               \r\nCBAR    9       1       9       10      0.0     0.0     1.      1               \r\nCBAR    10      1       10      11      0.0     0.0     1.      1               \r\nCMASS2  12      2.8-6   2       5                                               \r\nCMASS2  13      2.8-6   3       5                                               \r\nCMASS2  14      2.8-6   4       5                                               \r\nCMASS2  15      2.8-6   5       5                                               \r\nCMASS2  16      2.8-6   6       5                                               \r\nCMASS2  17      2.8-6   7       5                                               \r\nCMASS2  18      2.8-6   8       5                                               \r\nCMASS2  19      2.8-6   9       5                                               \r\nCMASS2  20      2.8-6   10      5                                               \r\nCMASS2  21      1.4-6   11      5                                               \r\nCORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n+C1     .96593  -.25882 0.0                                                     \r\nEIGC    20      HESS    MAX                                             +EC     \r\n+EC                                                     3                       \r\nEIGR    10      GIV     .3      .1              6                       +ER     \r\n+ER     MAX                                                                     \r\nFLFACT  1       .967                                                            \r\nFLFACT  2       .45                                                             \r\nFLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\nFLUTTER 30      KE      1       2       3       L       3                       \r\nGRDSET          1                               1       126                     \r\nGRID    1               0.0     .0      0.0                                     \r\nGRID    2               0.0     .572    0.0                                     \r\nGRID    3               0.0     1.144   0.0                                     \r\nGRID    4               0.0     1.716   0.0                                     \r\nGRID    5               0.0     2.288   0.0                                     \r\nGRID    6               0.0     2.86    0.0                                     \r\nGRID    7               0.0     3.432   0.0                                     \r\nGRID    8               0.0     4.004   0.0                                     \r\nGRID    9               0.0     4.576   0.0                                     \r\nGRID    10              0.0     5.148   0.0                                     \r\nGRID    11              0.0     5.72    0.0                                     \r\nMAT1    1       10.4+6  3.9+6           2.61-4                                  \r\nMKAERO1 .45                                                             +MK     \r\n+MK     .0001   .1      .2                                                      \r\nPAERO1  1                                                                       \r\nPARAM   COUPMASS1                                                               \r\nPARAM   LMODES  3                                                               \r\nPBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\nSET1    100     1       THRU    11                                              \r\nSPC1    1       345     1                                                       \r\nSPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n+SP     0.0     0.0                                                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d10021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$               RIGID FORMAT No. 10 (APP AERO), Aeroelastic Analysis\r\n$          Aeroelastic Flutter Analysis of a 15 Degree Swept Wing (10-2-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the use of the aeroelastic analysis to determine\r\n$ flutter frequencies and mode shapes for an untapered wing having 15 degree\r\n$ sweep and an aspect ratio of 5.34.\r\n$ \r\n$ B. Input\r\n$ \r\n$ Bulk data cards used include CAERO1, PAERO1, SPLINE2, SET1, AERO, MKAERO1,\r\n$ FLUTTER, and FLFACT as illustrated in User's Manual Section 1.11.\r\n$ \r\n$ C. Theory\r\n$ \r\n$ Reference 22 specifies the reduced frequency k = .1314 (p.17) frequency\r\n$ ratio w/w      = 0.51 (p.35) and torsion frequency w      = 1488 (p.17).\r\n$          alpha                                      alpha\r\n$ \r\n$ The flutter velocity is found from\r\n$ \r\n$                 REFC              w\r\n$                 ---- x w      x ------\r\n$                  2      alpha   w\r\n$          bw                      alpha\r\n$    V  =  --  =  -----------------------  =  5980 in/sec.                   (1)\r\n$          k                 k\r\n$ \r\n$ where REFC is the reference length input on the AERO bulk data card.\r\n$ \r\n$ The flutter frequency is found from\r\n$ \r\n$                     w\r\n$          w      x ------\r\n$           alpha   w\r\n$                    alpha\r\n$    f  =  ----------------  =  121 Hz                                       (2)\r\n$              2 pi\r\n$ \r\n$ D. Results\r\n$ \r\n$ The results obtained are compared with both theoretical results using the\r\n$ modified strip analysis method and with experimental results. The flutter\r\n$ velocity is in good agreement.\r\n$ \r\n$ Frequencies are automatically output while mode shapes used in the modal\r\n$ formulation are obtained using an ALTER to the Rigid Format following the Real\r\n$ Eigenvalue Analysis Module.\r\n$ \r\n$ Mode shapes for all points in the model may be obtained by checkpointing the\r\n$ problem using the Normal Mode Analysis (Rigid Format 3) and subsequently\r\n$ restarting using the Aeroelastic Analysis.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 22. Yates. E. C. and R. M. Bennett, \"Use of Aerodynamic Parameters From\r\n$     Nonlinear Theory in Modified-Strip-Analysis Flutter Calculations for\r\n$     Finite-Span Wings at Supersonic Speeds\"; NASA TN D-l824, July 1963.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d10022a.inp",
    "content": "ID    D10022A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   10,0                                                                      \r\nTIME  10                                                                        \r\nDIAG  14,18                                                                     \r\nALTER 66 $                                                                      \r\nMATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                                      \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-2A (K METHOD)               \r\nLABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n    ECHO = BOTH                                                                 \r\n    SPC  = 1                                                                    \r\n  METHOD = 10                                                                   \r\n CMETHOD = 20                                                                   \r\n FMETHOD = 30                                                                   \r\nOUTPUT(XYOUT)                                                                   \r\n XTITLE  = VELOCITY                                                             \r\n YTTITLE = DAMPING (G)                                                          \r\n YBTITLE = FREQUENCY (F)                                                        \r\n TCURVE  = V-G AND V-F DATA POINTS                                              \r\nCURVELINESYMBOL = -1                                                            \r\nXYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\nBEGIN BULK                                                                      \r\nAERO    0       1.3+4   2.0706  1.145-7                                         \r\nCAERO1  101     1       1       6       4                       1       +CA101  \r\n+CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\nCBAR    1       1       1       2       0.0     0.0     1.      1               \r\nCBAR    2       1       2       3       0.0     0.0     1.      1               \r\nCBAR    3       1       3       4       0.0     0.0     1.      1               \r\nCBAR    4       1       4       5       0.0     0.0     1.      1               \r\nCBAR    5       1       5       6       0.0     0.0     1.      1               \r\nCBAR    6       1       6       7       0.0     0.0     1.      1               \r\nCBAR    7       1       7       8       0.0     0.0     1.      1               \r\nCBAR    8       1       8       9       0.0     0.0     1.      1               \r\nCBAR    9       1       9       10      0.0     0.0     1.      1               \r\nCBAR    10      1       10      11      0.0     0.0     1.      1               \r\nCMASS2  12      2.8-6   2       5                                               \r\nCMASS2  13      2.8-6   3       5                                               \r\nCMASS2  14      2.8-6   4       5                                               \r\nCMASS2  15      2.8-6   5       5                                               \r\nCMASS2  16      2.8-6   6       5                                               \r\nCMASS2  17      2.8-6   7       5                                               \r\nCMASS2  18      2.8-6   8       5                                               \r\nCMASS2  19      2.8-6   9       5                                               \r\nCMASS2  20      2.8-6   10      5                                               \r\nCMASS2  21      1.4-6   11      5                                               \r\nCORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n+C1     .96593  -.25882 0.0                                                     \r\nEIGC    20      HESS    MAX                                             +EC     \r\n+EC                                                     3                       \r\nEIGR    10      GIV     .3      .1              6                       +ER     \r\n+ER     MAX                                                                     \r\nFLFACT  1       .967                                                            \r\nFLFACT  2       .45                                                             \r\nFLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\nFLUTTER 30      K       1       2       3       L       3                       \r\nGRDSET          1                               1       126                     \r\nGRID    1               0.0     .0      0.0                                     \r\nGRID    2               0.0     .572    0.0                                     \r\nGRID    3               0.0     1.144   0.0                                     \r\nGRID    4               0.0     1.716   0.0                                     \r\nGRID    5               0.0     2.288   0.0                                     \r\nGRID    6               0.0     2.86    0.0                                     \r\nGRID    7               0.0     3.432   0.0                                     \r\nGRID    8               0.0     4.004   0.0                                     \r\nGRID    9               0.0     4.576   0.0                                     \r\nGRID    10              0.0     5.148   0.0                                     \r\nGRID    11              0.0     5.72    0.0                                     \r\nMAT1    1       10.4+6  3.9+6           2.61-4                                  \r\nMKAERO1 .45                                                             +MK     \r\n+MK     .0001   .1      .2                                                      \r\nPAERO1  1                                                                       \r\nPARAM   COUPMASS1                                                               \r\nPARAM   LMODES  3                                                               \r\nPBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\nSET1    100     1       THRU    11                                              \r\nSPC1    1       345     1                                                       \r\nSPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n+SP     0.0     0.0                                                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d10023a.inp",
    "content": "ID    D10023A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   10,0                                                                      \r\nTIME  10                                                                        \r\nDIAG  14,18                                                                     \r\nALTER    66 $                                                                   \r\nMATGPR   GPL,USET,SIL,PHIA//C,N,FE/C,N,A $                                      \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = AEROELASTIC FLUTTER ANALYSIS OF A FIFTEEN DEGREE SWEPT WING          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D10-02-3A (PK METHOD)              \r\nLABEL    = K VALUES .200(*)  .167(0)  .143(1)  .125(2)  .111(3)  .100(4)        \r\n    ECHO = BOTH                                                                 \r\n     SPC = 1                                                                    \r\n  METHOD = 10                                                                   \r\n CMETHOD = 20                                                                   \r\n FMETHOD = 30                                                                   \r\nOUTPUT(XYOUT)                                                                   \r\n XTITLE  = VELOCITY                                                             \r\n YTTITLE = DAMPING (G)                                                          \r\n YBTITLE = FREQUENCY (F)                                                        \r\n TCURVE  = V-G AND V-F DATA POINTS                                              \r\nCURVELINESYMBOL = -1                                                            \r\nXYPAPERPLOT VG / 1(G,F) 2(G,F) 3(G,F) 4(G,F) 5(G,F) 6(G,F)                      \r\nBEGIN BULK                                                                      \r\nAERO    0       1.3+4   2.0706  1.145-7                                         \r\nCAERO1  101     1       1       6       4                       1       +CA101  \r\n+CA101  -1.     -.26795 0.0     2.0706  -1.     5.45205 0.0     2.0706          \r\nCBAR    1       1       1       2       0.0     0.0     1.      1               \r\nCBAR    2       1       2       3       0.0     0.0     1.      1               \r\nCBAR    3       1       3       4       0.0     0.0     1.      1               \r\nCBAR    4       1       4       5       0.0     0.0     1.      1               \r\nCBAR    5       1       5       6       0.0     0.0     1.      1               \r\nCBAR    6       1       6       7       0.0     0.0     1.      1               \r\nCBAR    7       1       7       8       0.0     0.0     1.      1               \r\nCBAR    8       1       8       9       0.0     0.0     1.      1               \r\nCBAR    9       1       9       10      0.0     0.0     1.      1               \r\nCBAR    10      1       10      11      0.0     0.0     1.      1               \r\nCMASS2  12      2.8-6   2       5                                               \r\nCMASS2  13      2.8-6   3       5                                               \r\nCMASS2  14      2.8-6   4       5                                               \r\nCMASS2  15      2.8-6   5       5                                               \r\nCMASS2  16      2.8-6   6       5                                               \r\nCMASS2  17      2.8-6   7       5                                               \r\nCMASS2  18      2.8-6   8       5                                               \r\nCMASS2  19      2.8-6   9       5                                               \r\nCMASS2  20      2.8-6   10      5                                               \r\nCMASS2  21      1.4-6   11      5                                               \r\nCORD2R  1               0.0     0.0     0.0     0.0     0.0     1.      +C1     \r\n+C1     .96593  -.25882 0.0                                                     \r\nEIGC    20      HESS    MAX                                             +EC     \r\n+EC                                                     3                       \r\nEIGR    10      GIV     .3      .1              6                       +ER     \r\n+ER     MAX                                                                     \r\nFLFACT  1       .967                                                            \r\nFLFACT  2       .45                                                             \r\nFLFACT  3       .2      .16667  .14286  .125    .11111  .1                      \r\nFLFACT  4       4000.   5000.   5500.   5980.   6100.   6200.                   \r\nFLUTTER 30      PK      1       2       4       L       3                       \r\nGRDSET          1                               1       126                     \r\nGRID    1               0.0     .0      0.0                                     \r\nGRID    2               0.0     .572    0.0                                     \r\nGRID    3               0.0     1.144   0.0                                     \r\nGRID    4               0.0     1.716   0.0                                     \r\nGRID    5               0.0     2.288   0.0                                     \r\nGRID    6               0.0     2.86    0.0                                     \r\nGRID    7               0.0     3.432   0.0                                     \r\nGRID    8               0.0     4.004   0.0                                     \r\nGRID    9               0.0     4.576   0.0                                     \r\nGRID    10              0.0     5.148   0.0                                     \r\nGRID    11              0.0     5.72    0.0                                     \r\nMAT1    1       10.4+6  3.9+6           2.61-4                                  \r\nMKAERO1 .45                                                             +MK     \r\n+MK     .0001   .1      .2                                                      \r\nPAERO1  1                                                                       \r\nPARAM   COUPMASS1                                                               \r\nPARAM   LMODES  3                                                               \r\nPBAR    1       1       7.175-2 9.83-6          36.8-6                          \r\nSET1    100     1       THRU    11                                              \r\nSPC1    1       345     1                                                       \r\nSPLINE2 100     101     101     124     100     0.0     1.      1       +SP     \r\n+SP     0.0     0.0                                                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11011a.inp",
    "content": "NASTRAN FILES=(NPTP,PLT2)                                                       \r\nID    D11011A,NASTRAN                                                           \r\nCHKPNT YES                                                                      \r\nAPP    DISPLACEMENT                                                             \r\nSOL    11,3                                                                     \r\nDIAG   14                                                                       \r\nTIME   25                                                                       \r\nALTER  86 $                                                                     \r\nMATPRN   PHIA,,,,// $                                                           \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nMAXLINES = 50000                                                                \r\nTITLE    = FREQUENCY RESPONSE AND RANDOM ANALYSIS OF A 10 CELL BEAM             \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                          \r\n     SPC = 11                                                                   \r\n  METHOD = 2                                                                    \r\nFREQUENCY= 508                                                                  \r\n  RANDOM = 11                                                                   \r\nSDAMPING = 11                                                                   \r\nOUTPUT                                                                          \r\n  SET  2 = 5,10                                                                 \r\n  SET  6 = 6                                                                    \r\n  SET 10 = 6,11                                                                 \r\n  DISP(SORT2,PHASE)    = 10                                                     \r\n  ACCELER(SORT2,PHASE) = 10                                                     \r\n  OLOAD = 6                                                                     \r\n  ELFORCE(SORT2,PHASE) = 2                                                      \r\nSUBCASE 1                                                                       \r\n        LABEL =   THREE POINTS LOADED WITH TWO SETS                             \r\n        DLOAD = 506                                                             \r\nSUBCASE 2                                                                       \r\n        LABEL =   ONE POINT LOADED WITH TWO SETS AND TIME DELAYS                \r\n        DLOAD = 507                                                             \r\nSUBCASE 3                                                                       \r\n        LABEL =   ONE POINT LOADED WITH TWO TABULAR LOADS                       \r\n        DLOAD = 510                                                             \r\n$                                                                               \r\n$ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n$                                                                               \r\n$                                                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1A                            \r\nOUTPUT(XYOUT)                                                                   \r\nPLOTTER = NASTPLT                                                               \r\n        CAMERA = 3                                                              \r\n        SKIP BETWEEN FRAMES = 1                                                 \r\n        XGRID LINE = YES                                                        \r\n        YGRID LINE = YES                                                        \r\n     XTITLE =                       FREQUENCY (HERTZ)                           \r\n     YTITLE = S                                                                 \r\n     TCURVE = POWER SPECTRAL DENSITY OF POINT 6  DISPLACEMENT                   \r\n   XYPLOT,XYPRINT DISP PSDF /  6(T3)                                            \r\n$                                                                               \r\n     TCURVE = POWER SPECTRAL DENSITY OF POINT 6 ACCELERATION                    \r\n   XYPLOT ACCELERATION PSDF / 6(T3)                                             \r\n$                                                                               \r\n     XTITLE =                      TIME LAG (SECONDS)                           \r\n     YTITLE = R                                                                 \r\n     TCURVE = AUTOCORRELATION FUNCTION FOR POINT 6  DISPLACEMENT                \r\n   XYPLOT,XYPRINT DISP AUTO /  6(T3)                                            \r\nBEGIN BULK                                                                      \r\nCBAR    3       1       3       4       20.     .0      1.      1               \r\nCBAR    4       1       4       5       20.     .0      1.      1               \r\nCBAR    5       1       5       6       20.     .0      1.      1               \r\nCBAR    6       1       6       7       20.     .0      1.      1               \r\nCBAR    7       1       7       8       20.     .0      1.      1               \r\nCBAR    8       1       8       9       20.     .0      1.      1               \r\nCBAR    9       1       9       10      20.     .0      1.      1               \r\nCBAR    10      1       10      11      20.     .0      1.      1               \r\nCONM2  *11              1                               5.34604-3       *M1     \r\n*M1     .0                                                                      \r\nCONM2  *12              2                               1.069208-2      *M2     \r\n*M2     .0              .0                                                      \r\nCONM2  *13              3                               5.34604-3       *M3     \r\n*M3                                                                             \r\nDAREA   2       5       5       -100.                                           \r\nDAREA   2       6       3       50.     5       3       50.                     \r\nDAREA   2       7       3       50.     7       5       100.                    \r\nDAREA   3       6       3       100.                                            \r\nDAREA   510     6       3       1.0                                             \r\nDELAY   1       6       3       .5555-2                                         \r\nDLOAD   506     1.      1.      5       1.      6                               \r\nDLOAD   507     1.      1.      5       1.      7                               \r\nDLOAD   510     2.0     1.0     5101    1.0     5102                            \r\nDPHASE  1       6       3       30.                                             \r\nDPHASE  5102    6       3       -30.0                                           \r\nEIGR    2       INV     40.0    1000.0  3       5                       +EG     \r\n+EG     MASS                                                                    \r\nFREQ1   508     .0      5.0     40                                              \r\nGENEL   1101            2       1       2       3       2       5       +1      \r\n+1      3       1       3       3       3       5                       +2      \r\n+2      UD              1       1       1       3       1       5       *30     \r\n*30     Z               .89044935-8     .0              .0              *31     \r\n*31     .89044935-8     .0              .0              3.08928-6       *40     \r\n*40     -2.31696-6      .0              7.7232005-6     -2.31696-6      *41     \r\n*41     2.31696-6       .0              -6.950884-6     2.31696-6       *50     \r\n*50     1.7808987-8     .0              .0              24.714241-6     *51     \r\n*51     -9.26784-6      4.6339203-6                                     +60     \r\n+60     S       1.0     .0      .0      .0      1.0     -2.0    .0      +70     \r\n+70     .0      1.0     1.0     .0      .0      .0      1.0     -4.0    +80     \r\n+80     .0      .0      1.0                                                     \r\nGRDSET                                                  246                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               2.      .0      .0                                      \r\nGRID    3               4.      .0      .0                                      \r\nGRID    4               6.      .0      .0                                      \r\nGRID    5               8.      .0      .0                                      \r\nGRID    6               10.     .0      .0                                      \r\nGRID    7               12.     .0      .0                                      \r\nGRID    8               14.     .0      .0                                      \r\nGRID    9               16.     .0      .0                                      \r\nGRID    10              18.     .0      .0                                      \r\nGRID    11              20.     .0      .0                                      \r\nMAT1    1       10.4+6  4.+6            .2523-3                                 \r\nPARAM   GRDPNT  0                                                               \r\nPARAM   LMODES  4                                                               \r\nPBAR    1       1       21.18922.083    .083                                    \r\nRANDPS  11      1       1       .5              11                              \r\nRANDPS  11      1       3       .5              11                              \r\nRANDPS  11      2       2       1.0             11                              \r\nRANDPS  11      3       3       .5              11                              \r\nRANDT1  11      100     .0      .1                                              \r\nRLOAD1  5101    510                     5101                                    \r\nRLOAD1  5102    510             5102            5102                            \r\nRLOAD2  5       2                       1                                       \r\nRLOAD2  6       3               1       1       2                               \r\nRLOAD2  7       3       1               1                                       \r\nSPC     1       1       13              11      13                              \r\nSPC     11      1       13              11      3                               \r\nTABDMP1 11                                                              +DAMP   \r\n+DAMP   .0      .0      50.0    .02     ENDT                                    \r\nTABLED1 1                                                               +TAUU   \r\n+TAUU   .0      1.      100.    1.      ENDT                                    \r\nTABLED1 2                                                               +TAD21  \r\n+TAD21  .0      30.     100.    30.     ENDT                                    \r\nTABLED1 5101                                                            +TAD30  \r\n+TAD30  .0      75.0    100.    75.0    ENDT                                    \r\nTABLED1 5102                                                            +TAD31  \r\n+TAD31  .0      50.0    100.    50.0    ENDT                                    \r\nTABRND1 11                                                              +TR     \r\n+TR     -1.0    .0      .0      100.0   100.0   100.0   100.0   .0      +TR2    \r\n+TR2    101.0   .0      ENDT                                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$            RIGID FORMAT No. 11, Frequency Response - Modal Analysis\r\n$       Frequency Response and Random Analysis of a Ten-Cell Beam (11-1-1)\r\n$ \r\n$ A.  Description\r\n$ \r\n$ This problem demonstrates the frequency response solution of a structure using\r\n$ uncoupled modal formulation. With modal formulation, the structural degrees of\r\n$ freedom used in the solution are the uncoupled modal displacements. The\r\n$ solution equations are simple and efficient. The saving in time, however, is\r\n$ offset by the operations necessary to extract the modes, transform the loads\r\n$ to modal coordinates, and transform the modal displacements to structural\r\n$ displacements.\r\n$ \r\n$ This problem also illustrates the various methods of applying frequency\r\n$ response loads. Loads may be input as complex numbers, with phase lag angles\r\n$ and/or time lag factors. The loads may be added together for each subcase.\r\n$ \r\n$ The structure to be solved consists of a beam with simple supports on the end.\r\n$ The parameters selected produce natural frequencies of 50, 200, 450, and 800\r\n$ cps. The applied loads for the three subcases are applied to the center with\r\n$ variations in phase angles, time lags, and input formats. The first two\r\n$ subcases use three loaded points which, in essence, simulate a load on the\r\n$ center.\r\n$ \r\n$ Included in the structural representation is a \"general element\" representing\r\n$ the first two cells of the ten-cell bean. The flexibility matrix, [Z], of the\r\n$ element represents the displacements of grid points 2 and 3 when point 1 is\r\n$ fixed. The rigid body matrix, [S], represents the rigid body motions of points\r\n$ 2 and 3 when point 1 is displaced in the x, z, or theta  directions.\r\n$                                                        y\r\n$ \r\n$ The random analysis data consists of a flat power spectral density function\r\n$ (\"white noise\") for the three loading subcases. The first subcase spectral\r\n$ density is connected to the third subcase spectral density, simulating two\r\n$ interdependent probability functions. The XY-plotter is used to plot the\r\n$ displacement and acceleration power spectral density function of grid 6\r\n$ (center of the beam). The displacement autocorrelation function is also\r\n$ plotted for the same point. All values are tabulated in the printout.\r\n$ \r\n$ A static analysis restart of the frequency response problem is demonstrated.\r\n$ Gravity and element enforced deformation loads are used with a change in the\r\n$ single-point constraints.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    l  =  20            - length\r\n$ \r\n$    I  =  .083          - bending inertia\r\n$     1\r\n$ \r\n$    A  =  21.18922      - cross sectional area\r\n$ \r\n$                   6\r\n$    E  =  10.4 x 10    - modulus of elasticity\r\n$ \r\n$                    -3\r\n$    p  =  .2523 x 10    - mass density\r\n$ \r\n$    M  =  pAl           - total mass\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u   =  theta  = theta  = 0    - all points\r\n$     y          x        z\r\n$ \r\n$    u   = u   = u    = 0          - frequency response\r\n$     x1    z1    z11\r\n$ \r\n$    u   = u   = u    = u    = 0   - static analysis\r\n$     x1    z1    x11    z11\r\n$ \r\n$ 3. Modal Data:\r\n$ \r\n$    Interval: 40 < f < 1000 cps\r\n$ \r\n$    Normalization: Modal Mass  =  1.0\r\n$ \r\n$    Number of modes used in formulation: 4\r\n$ \r\n$                                   -4\r\n$    Modal Damping ratio: g = 4 x 10   f\r\n$ \r\n$ 4. Loads, Frequency Response:\r\n$ \r\n$    The loading functions for subcase 1 are:\r\n$ \r\n$      P     =  50\r\n$       z,5\r\n$ \r\n$      M     =  -100\r\n$       y,5\r\n$ \r\n$      P     =  50 + 100 (cos 60 degrees + i sin 60 degrees)\r\n$       z,6          ---------------------------------------\r\n$                                    SET 6\r\n$ \r\n$      P     =  50\r\n$       z,7\r\n$ \r\n$      M     =  100\r\n$       y,7\r\n$ \r\n$    The loading for subcase 2 is:\r\n$ \r\n$      P     =  50\r\n$       z,5\r\n$ \r\n$      M     =  -100\r\n$       y,5\r\n$ \r\n$      P     =  50 + 100 (cos2f degrees - i sin2f degrees)\r\n$       z,6          -------------------------------------\r\n$                           SET 7, tau = .005555\r\n$ \r\n$      P     =  50\r\n$       z,7\r\n$ \r\n$      M     =  100\r\n$       y,7\r\n$ \r\n$    The load for subcase 3 is:\r\n$ \r\n$      P     =  2[75 + 50i(cos30 degrees - i sin30 degrees)] = 200 + 86.6i\r\n$       z,6\r\n$ \r\n$    Note: At f = 30 cps the three subcases are nearly identical.\r\n$ \r\n$ 5. Random Analysis Data\r\n$ \r\n$    The nonzero factors for the three subcases are:\r\n$ \r\n$      S   =  50              |\r\n$       11                    |\r\n$                             |\r\n$      S   =  S   =  50       |\r\n$       13     31             |\r\n$                             |   0 < f < 100\r\n$      S   =  100             |\r\n$       22                    |\r\n$                             |\r\n$      S   =  50              |\r\n$       33                    |\r\n$ \r\n$      S   =  0 ,  f > 100\r\n$       ij\r\n$ \r\n$    The time lags selected for the autocorrelation function calculations are:\r\n$ \r\n$      T =  0.0, 0.001, 0.002,..., 0.1\r\n$ \r\n$ 6. Static Loads for Restart\r\n$ \r\n$    The problem is run first as a frequency response analysis. It is restarted\r\n$    as a static analysis with the following loads:\r\n$ \r\n$      Gravity vector:       g   =  32.2\r\n$                             z\r\n$ \r\n$      Element Deformation:  delta   = 0.089045 (expansion)\r\n$                                 10\r\n$ \r\n$ C. Theory\r\n$ \r\n$    1. The theoretical eigenvalue data according to Reference 8 is\r\n$ \r\n$             2  2\r\n$            n pi\r\n$     f   =  ------- sqrt(EI/A)  =  50, 200, 450, 800 ... (natural freqs.)   (1)\r\n$      n           2\r\n$            (2pi)l\r\n$ \r\n$     m   =  1.0    (modal mass)                                             (2)\r\n$      n\r\n$ \r\n$                                             2 n pi x    -1/2\r\n$     phi (x)  =  [integral from o to l pA sin  ------ dx]\r\n$        n                                         l\r\n$ \r\n$                      n pi x                  n pi x\r\n$                  sin(------) = sqrt(2/M) sin(------)  (mode shape)         (3)\r\n$                        l                       l\r\n$ \r\n$    2. The theoretical frequency response at the center point is essentially\r\n$       the response of the first mode which is\r\n$ \r\n$                 sum from j phi   P (w) phi\r\n$                               1,6 j       1,j\r\n$       u (w)  =  -----------------------------    (j = deg. of freedom no.) (4)\r\n$        6               2    2\r\n$                    m (w  - w  + igww )\r\n$                     1  i            1\r\n$ \r\n$       At the first natural frequency of 50 cps, the response will be nearly\r\n$       equal to the response of the first mode. The responses at the center\r\n$       point for the three subcases are\r\n$ \r\n$        1    3   94.764 + 41.033i\r\n$       u  = u  = ----------------     (Subcases 1 and 3)                    (5)\r\n$        6    6           2\r\n$                  (50 - f ) + if\r\n$ \r\n$        2   23.691(3 + 2cos2f - 2i sin2f)\r\n$       u  = -----------------------------    (Subcase 2)                    (6)\r\n$        6              2\r\n$                (50 - f ) + if\r\n$ \r\n$    3. The random analysis is explained in Reference 15. The power spectral\r\n$       response coefficients for the three subcases are given by the matrix:\r\n$ \r\n$                     +                  +\r\n$                     |  0.5    0    0.5 |\r\n$                     |                  |\r\n$       [S ]  =  100  |   0    1.0    0  |                                   (7)\r\n$         i           |                  |\r\n$                     |  0.5    0    0.5 |\r\n$                     +                  +\r\n$ \r\n$       If {H } is the vector of the responses of a point, i, to the three\r\n$            j\r\n$       loading cases, the power spectral response, S  is\r\n$                                            j\r\n$ \r\n$               _  T                _\r\n$       S   =  {H } [S]{H }        (H  is the complex conjugate)             (8)\r\n$        j       j       j           j\r\n$ \r\n$       or\r\n$ \r\n$                          2     _      _            2         2\r\n$       S   =  100[0.5|H  | +0.5(H  H  +H  H  )+|H  | +0.5|H  | ]            (9)\r\n$        j              1j        1j 3j  3j 1j    2j        3j\r\n$ \r\n$       Since H   = H  , then:\r\n$              1j    3j\r\n$ \r\n$                      2           2\r\n$       S   =  200|H  |  + 100|H  |                                         (10)\r\n$        j          1j          2j\r\n$ \r\n$       The mean square response is obtained by integrating the power spectral\r\n$       density over the frequency. In this particular case the frequency\r\n$       increments are uniform and the mean square response is simply\r\n$ \r\n$       E   =  sum from i pi [S (f   ) - S (f )] gradient f                 (11)\r\n$        i                     j  i+1     j  i\r\n$ \r\n$       The analytic solution for the displacement spectral density response of\r\n$       the center point due to the first mode is:\r\n$ \r\n$                             4                3\r\n$                 200(1.066x10 ) + 100(.5613x10 )(13 + 12cos2f)\r\n$       S (f)  =  ---------------------------------------------  =\r\n$        j                      2    2 2    2\r\n$                           [(50  - f )  + f ]\r\n$ \r\n$                         6           6\r\n$                 2.862x10  + .6735x10  cos2f\r\n$                 ---------------------------                               (12)\r\n$                       4        2     4\r\n$                     (f  - 4999f  + 50 )\r\n$ \r\n$       The mean deviation, sigma , is\r\n$                                j\r\n$ \r\n$                            E\r\n$                             i\r\n$       sigma   =  sqrt(--------------)                                     (13)\r\n$            j          2 pi (f  - f )\r\n$                              n    o\r\n$ \r\n$       where f  and f  are the upper and lower frequency limits.\r\n$              n      o\r\n$ \r\n$    4. The results of the static analysis restart are\r\n$ \r\n$       a. The gravity load produces normal displacements (in the z direction)\r\n$          and element moments as follows:\r\n$ \r\n$                    pAgx   3      2    3\r\n$          u (x)  =  ---- (l  - 2lx  + x )                                  (14)\r\n$           z        24EI\r\n$ \r\n$                    pAg   2\r\n$          M (x)  =  --- (x  - lx)                                          (15)\r\n$           1         2\r\n$ \r\n$       b. The element deformation produces the following axial forces and\r\n$          displacements:\r\n$ \r\n$                    delta 10\r\n$          F   =  AE --------                                               (16)\r\n$           x           l\r\n$ \r\n$                   F\r\n$                    x\r\n$          u   =  - -- x     (x < 18)                                       (17)\r\n$           x       AE\r\n$ \r\n$ D. Results\r\n$ \r\n$ The responses at the center point for Subcases 1 and 3 are:\r\n$ \r\n$       ----------------------------------------------\r\n$ \r\n$        f    u  (one mode)         u  (NASTRAN)\r\n$              6                     6\r\n$       ----------------------------------------------\r\n$        0    .0413 @ 23.42 deg.    .0429 @ 22.9 deg.\r\n$ \r\n$       30    .0646 @ 22.34 deg.    .0668 @ 21.8 deg.\r\n$ \r\n$       50    2.066 @ 293.42 deg.   2.074 @ 281.5 deg.\r\n$       ----------------------------------------------\r\n$ \r\n$ The response at the center point for Subcase 2 is:\r\n$ \r\n$       ----------------------------------------------\r\n$ \r\n$        f    u  (one mode)         u  (NASTRAN)\r\n$              6                     6\r\n$       ----------------------------------------------\r\n$        0    .047 @ 0 deg.         .049 @ 0 deg.\r\n$ \r\n$       30    .0646 @ -22.34 deg.   .0668 @ -23.97 deg.\r\n$ \r\n$       50    1.565 @ 233.4 deg.    1.577 @ 223.0 deg.\r\n$       ----------------------------------------------\r\n$ \r\n$ In numerical terms, the displacements of the center point (x = l/2) are:\r\n$ \r\n$                  Theoretical         NASTRAN\r\n$ \r\n$                          -2                    -2\r\n$        u    =  4.452 x 10            4.435 x 10\r\n$         x6\r\n$                          -4                    -4\r\n$        u    =  4.155 x 10            4.121 x 10\r\n$         z6\r\n$ \r\n$ The element forces at the center of the beam are:\r\n$ \r\n$                  Theoretical         NASTRAN\r\n$ \r\n$                           6                     6\r\n$        F    =  -.9811 x 10           -.9848 x 10\r\n$         x5\r\n$ \r\n$        M    =  -8.607                -8.607\r\n$         6\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d11011b.inp",
    "content": "NASTRAN FILES = OPTP                                                            \r\nID    D11011B,RESTART                                                           \r\n$ INSERT THE RESTART DICTIONARY HERE                                            \r\nREADFILE RSCARDS                                                                \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,9                                                                       \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nTITLE    = 10 CELL BEAM  RESTART WITH ENFORCED DEFORMATION, GRAVITY LOAD        \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-01-1B                          \r\nLABEL    = RIGID FORMAT SWITCH FROM 11 TO 1                                     \r\n  SPC    = 1                                                                    \r\n  DEFORM = 1102                                                                 \r\n  LOAD   = 1101                                                                 \r\nOUTPUT                                                                          \r\n  DISPLACEMENTS = ALL                                                           \r\n  OLOAD         = ALL                                                           \r\n  ELFORCE       = ALL                                                           \r\nBEGIN BULK                                                                      \r\nDEFORM  1102    10      0.089045                                                \r\nGRAV    1101            32.2    0.0     0.0     1.0                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11021a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D11021A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nTIME  35                                                                        \r\nSOL   11,1                                                                      \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 500 CELL STRING                              \r\nOUTPUT                                                                          \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                          \r\n  METHOD = 10                                                                   \r\n    FREQ = 11                                                                   \r\n   DLOAD = 11                                                                   \r\nOUTPUT                                                                          \r\n   SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451                           \r\n   SET 2 = 1 THRU 5                                                             \r\n   DISPLACEMENT(PHASE,SORT2)  = 1                                               \r\n   SDISPLACEMENT(PHASE,SORT2) = 2                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-1A                            \r\nOUTPUT(XYOUT)                                                                   \r\nPLOTTER = NASTPLT                                                               \r\n        CAMERA = 3                                                              \r\n        SKIP BETWEEN FRAMES = 1                                                 \r\n  CURVE LINE AND SYMBOLS = 1                                                    \r\n  XLOG   = YES                                                                  \r\n  YTLOG  = YES                                                                  \r\n  XTGRID = YES                                                                  \r\n  XBGRID = YES                                                                  \r\n  YTGRID = YES                                                                  \r\n  YBGRID = YES                                                                  \r\n  XTITLE =                              FREQUENCY (HERTZ)                       \r\n  YTTITLE= MAGNITUDE  *INCH*                                                    \r\n  YBTITLE= PHASE  *DEGREE*                                                      \r\n$                                                                               \r\n$ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n$                                                                               \r\n    TCURVE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /   51(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  101(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  151(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  201(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  251(T1RM,T1IP)                                                  \r\n$                                                                               \r\n$ *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *        \r\n$                                                                               \r\n  YLOG   = YES                                                                  \r\n  YTITLE = MAGNITUDE  *INCH*                                                    \r\n  XGRID LINES = YES                                                             \r\n  YGRID LINES = YES                                                             \r\n  TCURVE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *        \r\nXYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3)                             \r\n  YLOG   = NO                                                                   \r\n  YTITLE = REAL PART  *POUNDS*                                                  \r\n  TCURVE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *         \r\nXYPLOT, XYPRINT ELFORCE RESPONSE / 251(2)                                       \r\n$                                                                               \r\nBEGIN BULK                                                                      \r\nCELAS3  1       101     0       2       2       101     2       3               \r\nCELAS3  3       101     3       4       4       101     4       5               \r\nCELAS3  5       101     5       6       6       101     6       7               \r\nCELAS3  7       101     7       8       8       101     8       9               \r\nCELAS3  9       101     9       10      10      101     10      11              \r\nCELAS3  11      101     11      12      12      101     12      13              \r\nCELAS3  13      101     13      14      14      101     14      15              \r\nCELAS3  15      101     15      16      16      101     16      17              \r\nCELAS3  17      101     17      18      18      101     18      19              \r\nCELAS3  19      101     19      20      20      101     20      21              \r\nCELAS3  21      101     21      22      22      101     22      23              \r\nCELAS3  23      101     23      24      24      101     24      25              \r\nCELAS3  25      101     25      26      26      101     26      27              \r\nCELAS3  27      101     27      28      28      101     28      29              \r\nCELAS3  29      101     29      30      30      101     30      31              \r\nCELAS3  31      101     31      32      32      101     32      33              \r\nCELAS3  33      101     33      34      34      101     34      35              \r\nCELAS3  35      101     35      36      36      101     36      37              \r\nCELAS3  37      101     37      38      38      101     38      39              \r\nCELAS3  39      101     39      40      40      101     40      41              \r\nCELAS3  41      101     41      42      42      101     42      43              \r\nCELAS3  43      101     43      44      44      101     44      45              \r\nCELAS3  45      101     45      46      46      101     46      47              \r\nCELAS3  47      101     47      48      48      101     48      49              \r\nCELAS3  49      101     49      50      50      101     50      51              \r\nCELAS3  51      101     51      52      52      101     52      53              \r\nCELAS3  53      101     53      54      54      101     54      55              \r\nCELAS3  55      101     55      56      56      101     56      57              \r\nCELAS3  57      101     57      58      58      101     58      59              \r\nCELAS3  59      101     59      60      60      101     60      61              \r\nCELAS3  61      101     61      62      62      101     62      63              \r\nCELAS3  63      101     63      64      64      101     64      65              \r\nCELAS3  65      101     65      66      66      101     66      67              \r\nCELAS3  67      101     67      68      68      101     68      69              \r\nCELAS3  69      101     69      70      70      101     70      71              \r\nCELAS3  71      101     71      72      72      101     72      73              \r\nCELAS3  73      101     73      74      74      101     74      75              \r\nCELAS3  75      101     75      76      76      101     76      77              \r\nCELAS3  77      101     77      78      78      101     78      79              \r\nCELAS3  79      101     79      80      80      101     80      81              \r\nCELAS3  81      101     81      82      82      101     82      83              \r\nCELAS3  83      101     83      84      84      101     84      85              \r\nCELAS3  85      101     85      86      86      101     86      87              \r\nCELAS3  87      101     87      88      88      101     88      89              \r\nCELAS3  89      101     89      90      90      101     90      91              \r\nCELAS3  91      101     91      92      92      101     92      93              \r\nCELAS3  93      101     93      94      94      101     94      95              \r\nCELAS3  95      101     95      96      96      101     96      97              \r\nCELAS3  97      101     97      98      98      101     98      99              \r\nCELAS3  99      101     99      100     100     101     100     101             \r\nCELAS3  101     101     101     102     102     101     102     103             \r\nCELAS3  103     101     103     104     104     101     104     105             \r\nCELAS3  105     101     105     106     106     101     106     107             \r\nCELAS3  107     101     107     108     108     101     108     109             \r\nCELAS3  109     101     109     110     110     101     110     111             \r\nCELAS3  111     101     111     112     112     101     112     113             \r\nCELAS3  113     101     113     114     114     101     114     115             \r\nCELAS3  115     101     115     116     116     101     116     117             \r\nCELAS3  117     101     117     118     118     101     118     119             \r\nCELAS3  119     101     119     120     120     101     120     121             \r\nCELAS3  121     101     121     122     122     101     122     123             \r\nCELAS3  123     101     123     124     124     101     124     125             \r\nCELAS3  125     101     125     126     126     101     126     127             \r\nCELAS3  127     101     127     128     128     101     128     129             \r\nCELAS3  129     101     129     130     130     101     130     131             \r\nCELAS3  131     101     131     132     132     101     132     133             \r\nCELAS3  133     101     133     134     134     101     134     135             \r\nCELAS3  135     101     135     136     136     101     136     137             \r\nCELAS3  137     101     137     138     138     101     138     139             \r\nCELAS3  139     101     139     140     140     101     140     141             \r\nCELAS3  141     101     141     142     142     101     142     143             \r\nCELAS3  143     101     143     144     144     101     144     145             \r\nCELAS3  145     101     145     146     146     101     146     147             \r\nCELAS3  147     101     147     148     148     101     148     149             \r\nCELAS3  149     101     149     150     150     101     150     151             \r\nCELAS3  151     101     151     152     152     101     152     153             \r\nCELAS3  153     101     153     154     154     101     154     155             \r\nCELAS3  155     101     155     156     156     101     156     157             \r\nCELAS3  157     101     157     158     158     101     158     159             \r\nCELAS3  159     101     159     160     160     101     160     161             \r\nCELAS3  161     101     161     162     162     101     162     163             \r\nCELAS3  163     101     163     164     164     101     164     165             \r\nCELAS3  165     101     165     166     166     101     166     167             \r\nCELAS3  167     101     167     168     168     101     168     169             \r\nCELAS3  169     101     169     170     170     101     170     171             \r\nCELAS3  171     101     171     172     172     101     172     173             \r\nCELAS3  173     101     173     174     174     101     174     175             \r\nCELAS3  175     101     175     176     176     101     176     177             \r\nCELAS3  177     101     177     178     178     101     178     179             \r\nCELAS3  179     101     179     180     180     101     180     181             \r\nCELAS3  181     101     181     182     182     101     182     183             \r\nCELAS3  183     101     183     184     184     101     184     185             \r\nCELAS3  185     101     185     186     186     101     186     187             \r\nCELAS3  187     101     187     188     188     101     188     189             \r\nCELAS3  189     101     189     190     190     101     190     191             \r\nCELAS3  191     101     191     192     192     101     192     193             \r\nCELAS3  193     101     193     194     194     101     194     195             \r\nCELAS3  195     101     195     196     196     101     196     197             \r\nCELAS3  197     101     197     198     198     101     198     199             \r\nCELAS3  199     101     199     200     200     101     200     201             \r\nCELAS3  201     101     201     202     202     101     202     203             \r\nCELAS3  203     101     203     204     204     101     204     205             \r\nCELAS3  205     101     205     206     206     101     206     207             \r\nCELAS3  207     101     207     208     208     101     208     209             \r\nCELAS3  209     101     209     210     210     101     210     211             \r\nCELAS3  211     101     211     212     212     101     212     213             \r\nCELAS3  213     101     213     214     214     101     214     215             \r\nCELAS3  215     101     215     216     216     101     216     217             \r\nCELAS3  217     101     217     218     218     101     218     219             \r\nCELAS3  219     101     219     220     220     101     220     221             \r\nCELAS3  221     101     221     222     222     101     222     223             \r\nCELAS3  223     101     223     224     224     101     224     225             \r\nCELAS3  225     101     225     226     226     101     226     227             \r\nCELAS3  227     101     227     228     228     101     228     229             \r\nCELAS3  229     101     229     230     230     101     230     231             \r\nCELAS3  231     101     231     232     232     101     232     233             \r\nCELAS3  233     101     233     234     234     101     234     235             \r\nCELAS3  235     101     235     236     236     101     236     237             \r\nCELAS3  237     101     237     238     238     101     238     239             \r\nCELAS3  239     101     239     240     240     101     240     241             \r\nCELAS3  241     101     241     242     242     101     242     243             \r\nCELAS3  243     101     243     244     244     101     244     245             \r\nCELAS3  245     101     245     246     246     101     246     247             \r\nCELAS3  247     101     247     248     248     101     248     249             \r\nCELAS3  249     101     249     250     250     101     250     251             \r\nCELAS3  251     101     251     252     252     101     252     253             \r\nCELAS3  253     101     253     254     254     101     254     255             \r\nCELAS3  255     101     255     256     256     101     256     257             \r\nCELAS3  257     101     257     258     258     101     258     259             \r\nCELAS3  259     101     259     260     260     101     260     261             \r\nCELAS3  261     101     261     262     262     101     262     263             \r\nCELAS3  263     101     263     264     264     101     264     265             \r\nCELAS3  265     101     265     266     266     101     266     267             \r\nCELAS3  267     101     267     268     268     101     268     269             \r\nCELAS3  269     101     269     270     270     101     270     271             \r\nCELAS3  271     101     271     272     272     101     272     273             \r\nCELAS3  273     101     273     274     274     101     274     275             \r\nCELAS3  275     101     275     276     276     101     276     277             \r\nCELAS3  277     101     277     278     278     101     278     279             \r\nCELAS3  279     101     279     280     280     101     280     281             \r\nCELAS3  281     101     281     282     282     101     282     283             \r\nCELAS3  283     101     283     284     284     101     284     285             \r\nCELAS3  285     101     285     286     286     101     286     287             \r\nCELAS3  287     101     287     288     288     101     288     289             \r\nCELAS3  289     101     289     290     290     101     290     291             \r\nCELAS3  291     101     291     292     292     101     292     293             \r\nCELAS3  293     101     293     294     294     101     294     295             \r\nCELAS3  295     101     295     296     296     101     296     297             \r\nCELAS3  297     101     297     298     298     101     298     299             \r\nCELAS3  299     101     299     300     300     101     300     301             \r\nCELAS3  301     101     301     302     302     101     302     303             \r\nCELAS3  303     101     303     304     304     101     304     305             \r\nCELAS3  305     101     305     306     306     101     306     307             \r\nCELAS3  307     101     307     308     308     101     308     309             \r\nCELAS3  309     101     309     310     310     101     310     311             \r\nCELAS3  311     101     311     312     312     101     312     313             \r\nCELAS3  313     101     313     314     314     101     314     315             \r\nCELAS3  315     101     315     316     316     101     316     317             \r\nCELAS3  317     101     317     318     318     101     318     319             \r\nCELAS3  319     101     319     320     320     101     320     321             \r\nCELAS3  321     101     321     322     322     101     322     323             \r\nCELAS3  323     101     323     324     324     101     324     325             \r\nCELAS3  325     101     325     326     326     101     326     327             \r\nCELAS3  327     101     327     328     328     101     328     329             \r\nCELAS3  329     101     329     330     330     101     330     331             \r\nCELAS3  331     101     331     332     332     101     332     333             \r\nCELAS3  333     101     333     334     334     101     334     335             \r\nCELAS3  335     101     335     336     336     101     336     337             \r\nCELAS3  337     101     337     338     338     101     338     339             \r\nCELAS3  339     101     339     340     340     101     340     341             \r\nCELAS3  341     101     341     342     342     101     342     343             \r\nCELAS3  343     101     343     344     344     101     344     345             \r\nCELAS3  345     101     345     346     346     101     346     347             \r\nCELAS3  347     101     347     348     348     101     348     349             \r\nCELAS3  349     101     349     350     350     101     350     351             \r\nCELAS3  351     101     351     352     352     101     352     353             \r\nCELAS3  353     101     353     354     354     101     354     355             \r\nCELAS3  355     101     355     356     356     101     356     357             \r\nCELAS3  357     101     357     358     358     101     358     359             \r\nCELAS3  359     101     359     360     360     101     360     361             \r\nCELAS3  361     101     361     362     362     101     362     363             \r\nCELAS3  363     101     363     364     364     101     364     365             \r\nCELAS3  365     101     365     366     366     101     366     367             \r\nCELAS3  367     101     367     368     368     101     368     369             \r\nCELAS3  369     101     369     370     370     101     370     371             \r\nCELAS3  371     101     371     372     372     101     372     373             \r\nCELAS3  373     101     373     374     374     101     374     375             \r\nCELAS3  375     101     375     376     376     101     376     377             \r\nCELAS3  377     101     377     378     378     101     378     379             \r\nCELAS3  379     101     379     380     380     101     380     381             \r\nCELAS3  381     101     381     382     382     101     382     383             \r\nCELAS3  383     101     383     384     384     101     384     385             \r\nCELAS3  385     101     385     386     386     101     386     387             \r\nCELAS3  387     101     387     388     388     101     388     389             \r\nCELAS3  389     101     389     390     390     101     390     391             \r\nCELAS3  391     101     391     392     392     101     392     393             \r\nCELAS3  393     101     393     394     394     101     394     395             \r\nCELAS3  395     101     395     396     396     101     396     397             \r\nCELAS3  397     101     397     398     398     101     398     399             \r\nCELAS3  399     101     399     400     400     101     400     401             \r\nCELAS3  401     101     401     402     402     101     402     403             \r\nCELAS3  403     101     403     404     404     101     404     405             \r\nCELAS3  405     101     405     406     406     101     406     407             \r\nCELAS3  407     101     407     408     408     101     408     409             \r\nCELAS3  409     101     409     410     410     101     410     411             \r\nCELAS3  411     101     411     412     412     101     412     413             \r\nCELAS3  413     101     413     414     414     101     414     415             \r\nCELAS3  415     101     415     416     416     101     416     417             \r\nCELAS3  417     101     417     418     418     101     418     419             \r\nCELAS3  419     101     419     420     420     101     420     421             \r\nCELAS3  421     101     421     422     422     101     422     423             \r\nCELAS3  423     101     423     424     424     101     424     425             \r\nCELAS3  425     101     425     426     426     101     426     427             \r\nCELAS3  427     101     427     428     428     101     428     429             \r\nCELAS3  429     101     429     430     430     101     430     431             \r\nCELAS3  431     101     431     432     432     101     432     433             \r\nCELAS3  433     101     433     434     434     101     434     435             \r\nCELAS3  435     101     435     436     436     101     436     437             \r\nCELAS3  437     101     437     438     438     101     438     439             \r\nCELAS3  439     101     439     440     440     101     440     441             \r\nCELAS3  441     101     441     442     442     101     442     443             \r\nCELAS3  443     101     443     444     444     101     444     445             \r\nCELAS3  445     101     445     446     446     101     446     447             \r\nCELAS3  447     101     447     448     448     101     448     449             \r\nCELAS3  449     101     449     450     450     101     450     451             \r\nCELAS3  451     101     451     452     452     101     452     453             \r\nCELAS3  453     101     453     454     454     101     454     455             \r\nCELAS3  455     101     455     456     456     101     456     457             \r\nCELAS3  457     101     457     458     458     101     458     459             \r\nCELAS3  459     101     459     460     460     101     460     461             \r\nCELAS3  461     101     461     462     462     101     462     463             \r\nCELAS3  463     101     463     464     464     101     464     465             \r\nCELAS3  465     101     465     466     466     101     466     467             \r\nCELAS3  467     101     467     468     468     101     468     469             \r\nCELAS3  469     101     469     470     470     101     470     471             \r\nCELAS3  471     101     471     472     472     101     472     473             \r\nCELAS3  473     101     473     474     474     101     474     475             \r\nCELAS3  475     101     475     476     476     101     476     477             \r\nCELAS3  477     101     477     478     478     101     478     479             \r\nCELAS3  479     101     479     480     480     101     480     481             \r\nCELAS3  481     101     481     482     482     101     482     483             \r\nCELAS3  483     101     483     484     484     101     484     485             \r\nCELAS3  485     101     485     486     486     101     486     487             \r\nCELAS3  487     101     487     488     488     101     488     489             \r\nCELAS3  489     101     489     490     490     101     490     491             \r\nCELAS3  491     101     491     492     492     101     492     493             \r\nCELAS3  493     101     493     494     494     101     494     495             \r\nCELAS3  495     101     495     496     496     101     496     497             \r\nCELAS3  497     101     497     498     498     101     498     499             \r\nCELAS3  499     101     499     500     500     101     500     0               \r\nCMASS3  40002   301     2       0                                               \r\nCMASS3  40003   301     3       0       40004   301     4       0               \r\nCMASS3  40005   301     5       0       40006   301     6       0               \r\nCMASS3  40007   301     7       0       40008   301     8       0               \r\nCMASS3  40009   301     9       0       40010   301     10      0               \r\nCMASS3  40011   301     11      0       40012   301     12      0               \r\nCMASS3  40013   301     13      0       40014   301     14      0               \r\nCMASS3  40015   301     15      0       40016   301     16      0               \r\nCMASS3  40017   301     17      0       40018   301     18      0               \r\nCMASS3  40019   301     19      0       40020   301     20      0               \r\nCMASS3  40021   301     21      0       40022   301     22      0               \r\nCMASS3  40023   301     23      0       40024   301     24      0               \r\nCMASS3  40025   301     25      0       40026   301     26      0               \r\nCMASS3  40027   301     27      0       40028   301     28      0               \r\nCMASS3  40029   301     29      0       40030   301     30      0               \r\nCMASS3  40031   301     31      0       40032   301     32      0               \r\nCMASS3  40033   301     33      0       40034   301     34      0               \r\nCMASS3  40035   301     35      0       40036   301     36      0               \r\nCMASS3  40037   301     37      0       40038   301     38      0               \r\nCMASS3  40039   301     39      0       40040   301     40      0               \r\nCMASS3  40041   301     41      0       40042   301     42      0               \r\nCMASS3  40043   301     43      0       40044   301     44      0               \r\nCMASS3  40045   301     45      0       40046   301     46      0               \r\nCMASS3  40047   301     47      0       40048   301     48      0               \r\nCMASS3  40049   301     49      0       40050   301     50      0               \r\nCMASS3  40051   301     51      0       40052   301     52      0               \r\nCMASS3  40053   301     53      0       40054   301     54      0               \r\nCMASS3  40055   301     55      0       40056   301     56      0               \r\nCMASS3  40057   301     57      0       40058   301     58      0               \r\nCMASS3  40059   301     59      0       40060   301     60      0               \r\nCMASS3  40061   301     61      0       40062   301     62      0               \r\nCMASS3  40063   301     63      0       40064   301     64      0               \r\nCMASS3  40065   301     65      0       40066   301     66      0               \r\nCMASS3  40067   301     67      0       40068   301     68      0               \r\nCMASS3  40069   301     69      0       40070   301     70      0               \r\nCMASS3  40071   301     71      0       40072   301     72      0               \r\nCMASS3  40073   301     73      0       40074   301     74      0               \r\nCMASS3  40075   301     75      0       40076   301     76      0               \r\nCMASS3  40077   301     77      0       40078   301     78      0               \r\nCMASS3  40079   301     79      0       40080   301     80      0               \r\nCMASS3  40081   301     81      0       40082   301     82      0               \r\nCMASS3  40083   301     83      0       40084   301     84      0               \r\nCMASS3  40085   301     85      0       40086   301     86      0               \r\nCMASS3  40087   301     87      0       40088   301     88      0               \r\nCMASS3  40089   301     89      0       40090   301     90      0               \r\nCMASS3  40091   301     91      0       40092   301     92      0               \r\nCMASS3  40093   301     93      0       40094   301     94      0               \r\nCMASS3  40095   301     95      0       40096   301     96      0               \r\nCMASS3  40097   301     97      0       40098   301     98      0               \r\nCMASS3  40099   301     99      0       40100   301     100     0               \r\nCMASS3  40101   301     101     0       40102   301     102     0               \r\nCMASS3  40103   301     103     0       40104   301     104     0               \r\nCMASS3  40105   301     105     0       40106   301     106     0               \r\nCMASS3  40107   301     107     0       40108   301     108     0               \r\nCMASS3  40109   301     109     0       40110   301     110     0               \r\nCMASS3  40111   301     111     0       40112   301     112     0               \r\nCMASS3  40113   301     113     0       40114   301     114     0               \r\nCMASS3  40115   301     115     0       40116   301     116     0               \r\nCMASS3  40117   301     117     0       40118   301     118     0               \r\nCMASS3  40119   301     119     0       40120   301     120     0               \r\nCMASS3  40121   301     121     0       40122   301     122     0               \r\nCMASS3  40123   301     123     0       40124   301     124     0               \r\nCMASS3  40125   301     125     0       40126   301     126     0               \r\nCMASS3  40127   301     127     0       40128   301     128     0               \r\nCMASS3  40129   301     129     0       40130   301     130     0               \r\nCMASS3  40131   301     131     0       40132   301     132     0               \r\nCMASS3  40133   301     133     0       40134   301     134     0               \r\nCMASS3  40135   301     135     0       40136   301     136     0               \r\nCMASS3  40137   301     137     0       40138   301     138     0               \r\nCMASS3  40139   301     139     0       40140   301     140     0               \r\nCMASS3  40141   301     141     0       40142   301     142     0               \r\nCMASS3  40143   301     143     0       40144   301     144     0               \r\nCMASS3  40145   301     145     0       40146   301     146     0               \r\nCMASS3  40147   301     147     0       40148   301     148     0               \r\nCMASS3  40149   301     149     0       40150   301     150     0               \r\nCMASS3  40151   301     151     0       40152   301     152     0               \r\nCMASS3  40153   301     153     0       40154   301     154     0               \r\nCMASS3  40155   301     155     0       40156   301     156     0               \r\nCMASS3  40157   301     157     0       40158   301     158     0               \r\nCMASS3  40159   301     159     0       40160   301     160     0               \r\nCMASS3  40161   301     161     0       40162   301     162     0               \r\nCMASS3  40163   301     163     0       40164   301     164     0               \r\nCMASS3  40165   301     165     0       40166   301     166     0               \r\nCMASS3  40167   301     167     0       40168   301     168     0               \r\nCMASS3  40169   301     169     0       40170   301     170     0               \r\nCMASS3  40171   301     171     0       40172   301     172     0               \r\nCMASS3  40173   301     173     0       40174   301     174     0               \r\nCMASS3  40175   301     175     0       40176   301     176     0               \r\nCMASS3  40177   301     177     0       40178   301     178     0               \r\nCMASS3  40179   301     179     0       40180   301     180     0               \r\nCMASS3  40181   301     181     0       40182   301     182     0               \r\nCMASS3  40183   301     183     0       40184   301     184     0               \r\nCMASS3  40185   301     185     0       40186   301     186     0               \r\nCMASS3  40187   301     187     0       40188   301     188     0               \r\nCMASS3  40189   301     189     0       40190   301     190     0               \r\nCMASS3  40191   301     191     0       40192   301     192     0               \r\nCMASS3  40193   301     193     0       40194   301     194     0               \r\nCMASS3  40195   301     195     0       40196   301     196     0               \r\nCMASS3  40197   301     197     0       40198   301     198     0               \r\nCMASS3  40199   301     199     0       40200   301     200     0               \r\nCMASS3  40201   301     201     0       40202   301     202     0               \r\nCMASS3  40203   301     203     0       40204   301     204     0               \r\nCMASS3  40205   301     205     0       40206   301     206     0               \r\nCMASS3  40207   301     207     0       40208   301     208     0               \r\nCMASS3  40209   301     209     0       40210   301     210     0               \r\nCMASS3  40211   301     211     0       40212   301     212     0               \r\nCMASS3  40213   301     213     0       40214   301     214     0               \r\nCMASS3  40215   301     215     0       40216   301     216     0               \r\nCMASS3  40217   301     217     0       40218   301     218     0               \r\nCMASS3  40219   301     219     0       40220   301     220     0               \r\nCMASS3  40221   301     221     0       40222   301     222     0               \r\nCMASS3  40223   301     223     0       40224   301     224     0               \r\nCMASS3  40225   301     225     0       40226   301     226     0               \r\nCMASS3  40227   301     227     0       40228   301     228     0               \r\nCMASS3  40229   301     229     0       40230   301     230     0               \r\nCMASS3  40231   301     231     0       40232   301     232     0               \r\nCMASS3  40233   301     233     0       40234   301     234     0               \r\nCMASS3  40235   301     235     0       40236   301     236     0               \r\nCMASS3  40237   301     237     0       40238   301     238     0               \r\nCMASS3  40239   301     239     0       40240   301     240     0               \r\nCMASS3  40241   301     241     0       40242   301     242     0               \r\nCMASS3  40243   301     243     0       40244   301     244     0               \r\nCMASS3  40245   301     245     0       40246   301     246     0               \r\nCMASS3  40247   301     247     0       40248   301     248     0               \r\nCMASS3  40249   301     249     0       40250   301     250     0               \r\nCMASS3  40251   301     251     0       40252   301     252     0               \r\nCMASS3  40253   301     253     0       40254   301     254     0               \r\nCMASS3  40255   301     255     0       40256   301     256     0               \r\nCMASS3  40257   301     257     0       40258   301     258     0               \r\nCMASS3  40259   301     259     0       40260   301     260     0               \r\nCMASS3  40261   301     261     0       40262   301     262     0               \r\nCMASS3  40263   301     263     0       40264   301     264     0               \r\nCMASS3  40265   301     265     0       40266   301     266     0               \r\nCMASS3  40267   301     267     0       40268   301     268     0               \r\nCMASS3  40269   301     269     0       40270   301     270     0               \r\nCMASS3  40271   301     271     0       40272   301     272     0               \r\nCMASS3  40273   301     273     0       40274   301     274     0               \r\nCMASS3  40275   301     275     0       40276   301     276     0               \r\nCMASS3  40277   301     277     0       40278   301     278     0               \r\nCMASS3  40279   301     279     0       40280   301     280     0               \r\nCMASS3  40281   301     281     0       40282   301     282     0               \r\nCMASS3  40283   301     283     0       40284   301     284     0               \r\nCMASS3  40285   301     285     0       40286   301     286     0               \r\nCMASS3  40287   301     287     0       40288   301     288     0               \r\nCMASS3  40289   301     289     0       40290   301     290     0               \r\nCMASS3  40291   301     291     0       40292   301     292     0               \r\nCMASS3  40293   301     293     0       40294   301     294     0               \r\nCMASS3  40295   301     295     0       40296   301     296     0               \r\nCMASS3  40297   301     297     0       40298   301     298     0               \r\nCMASS3  40299   301     299     0       40300   301     300     0               \r\nCMASS3  40301   301     301     0       40302   301     302     0               \r\nCMASS3  40303   301     303     0       40304   301     304     0               \r\nCMASS3  40305   301     305     0       40306   301     306     0               \r\nCMASS3  40307   301     307     0       40308   301     308     0               \r\nCMASS3  40309   301     309     0       40310   301     310     0               \r\nCMASS3  40311   301     311     0       40312   301     312     0               \r\nCMASS3  40313   301     313     0       40314   301     314     0               \r\nCMASS3  40315   301     315     0       40316   301     316     0               \r\nCMASS3  40317   301     317     0       40318   301     318     0               \r\nCMASS3  40319   301     319     0       40320   301     320     0               \r\nCMASS3  40321   301     321     0       40322   301     322     0               \r\nCMASS3  40323   301     323     0       40324   301     324     0               \r\nCMASS3  40325   301     325     0       40326   301     326     0               \r\nCMASS3  40327   301     327     0       40328   301     328     0               \r\nCMASS3  40329   301     329     0       40330   301     330     0               \r\nCMASS3  40331   301     331     0       40332   301     332     0               \r\nCMASS3  40333   301     333     0       40334   301     334     0               \r\nCMASS3  40335   301     335     0       40336   301     336     0               \r\nCMASS3  40337   301     337     0       40338   301     338     0               \r\nCMASS3  40339   301     339     0       40340   301     340     0               \r\nCMASS3  40341   301     341     0       40342   301     342     0               \r\nCMASS3  40343   301     343     0       40344   301     344     0               \r\nCMASS3  40345   301     345     0       40346   301     346     0               \r\nCMASS3  40347   301     347     0       40348   301     348     0               \r\nCMASS3  40349   301     349     0       40350   301     350     0               \r\nCMASS3  40351   301     351     0       40352   301     352     0               \r\nCMASS3  40353   301     353     0       40354   301     354     0               \r\nCMASS3  40355   301     355     0       40356   301     356     0               \r\nCMASS3  40357   301     357     0       40358   301     358     0               \r\nCMASS3  40359   301     359     0       40360   301     360     0               \r\nCMASS3  40361   301     361     0       40362   301     362     0               \r\nCMASS3  40363   301     363     0       40364   301     364     0               \r\nCMASS3  40365   301     365     0       40366   301     366     0               \r\nCMASS3  40367   301     367     0       40368   301     368     0               \r\nCMASS3  40369   301     369     0       40370   301     370     0               \r\nCMASS3  40371   301     371     0       40372   301     372     0               \r\nCMASS3  40373   301     373     0       40374   301     374     0               \r\nCMASS3  40375   301     375     0       40376   301     376     0               \r\nCMASS3  40377   301     377     0       40378   301     378     0               \r\nCMASS3  40379   301     379     0       40380   301     380     0               \r\nCMASS3  40381   301     381     0       40382   301     382     0               \r\nCMASS3  40383   301     383     0       40384   301     384     0               \r\nCMASS3  40385   301     385     0       40386   301     386     0               \r\nCMASS3  40387   301     387     0       40388   301     388     0               \r\nCMASS3  40389   301     389     0       40390   301     390     0               \r\nCMASS3  40391   301     391     0       40392   301     392     0               \r\nCMASS3  40393   301     393     0       40394   301     394     0               \r\nCMASS3  40395   301     395     0       40396   301     396     0               \r\nCMASS3  40397   301     397     0       40398   301     398     0               \r\nCMASS3  40399   301     399     0       40400   301     400     0               \r\nCMASS3  40401   301     401     0       40402   301     402     0               \r\nCMASS3  40403   301     403     0       40404   301     404     0               \r\nCMASS3  40405   301     405     0       40406   301     406     0               \r\nCMASS3  40407   301     407     0       40408   301     408     0               \r\nCMASS3  40409   301     409     0       40410   301     410     0               \r\nCMASS3  40411   301     411     0       40412   301     412     0               \r\nCMASS3  40413   301     413     0       40414   301     414     0               \r\nCMASS3  40415   301     415     0       40416   301     416     0               \r\nCMASS3  40417   301     417     0       40418   301     418     0               \r\nCMASS3  40419   301     419     0       40420   301     420     0               \r\nCMASS3  40421   301     421     0       40422   301     422     0               \r\nCMASS3  40423   301     423     0       40424   301     424     0               \r\nCMASS3  40425   301     425     0       40426   301     426     0               \r\nCMASS3  40427   301     427     0       40428   301     428     0               \r\nCMASS3  40429   301     429     0       40430   301     430     0               \r\nCMASS3  40431   301     431     0       40432   301     432     0               \r\nCMASS3  40433   301     433     0       40434   301     434     0               \r\nCMASS3  40435   301     435     0       40436   301     436     0               \r\nCMASS3  40437   301     437     0       40438   301     438     0               \r\nCMASS3  40439   301     439     0       40440   301     440     0               \r\nCMASS3  40441   301     441     0       40442   301     442     0               \r\nCMASS3  40443   301     443     0       40444   301     444     0               \r\nCMASS3  40445   301     445     0       40446   301     446     0               \r\nCMASS3  40447   301     447     0       40448   301     448     0               \r\nCMASS3  40449   301     449     0       40450   301     450     0               \r\nCMASS3  40451   301     451     0       40452   301     452     0               \r\nCMASS3  40453   301     453     0       40454   301     454     0               \r\nCMASS3  40455   301     455     0       40456   301     456     0               \r\nCMASS3  40457   301     457     0       40458   301     458     0               \r\nCMASS3  40459   301     459     0       40460   301     460     0               \r\nCMASS3  40461   301     461     0       40462   301     462     0               \r\nCMASS3  40463   301     463     0       40464   301     464     0               \r\nCMASS3  40465   301     465     0       40466   301     466     0               \r\nCMASS3  40467   301     467     0       40468   301     468     0               \r\nCMASS3  40469   301     469     0       40470   301     470     0               \r\nCMASS3  40471   301     471     0       40472   301     472     0               \r\nCMASS3  40473   301     473     0       40474   301     474     0               \r\nCMASS3  40475   301     475     0       40476   301     476     0               \r\nCMASS3  40477   301     477     0       40478   301     478     0               \r\nCMASS3  40479   301     479     0       40480   301     480     0               \r\nCMASS3  40481   301     481     0       40482   301     482     0               \r\nCMASS3  40483   301     483     0       40484   301     484     0               \r\nCMASS3  40485   301     485     0       40486   301     486     0               \r\nCMASS3  40487   301     487     0       40488   301     488     0               \r\nCMASS3  40489   301     489     0       40490   301     490     0               \r\nCMASS3  40491   301     491     0       40492   301     492     0               \r\nCMASS3  40493   301     493     0       40494   301     494     0               \r\nCMASS3  40495   301     495     0       40496   301     496     0               \r\nCMASS3  40497   301     497     0       40498   301     498     0               \r\nCMASS3  40499   301     499     0       40500   301     500     0               \r\nDAREA   11      2               1.0     3               1.0                     \r\nDAREA   11      4               1.0     5               1.0                     \r\nDAREA   11      6               1.0     7               1.0                     \r\nDAREA   11      8               1.0     9               1.0                     \r\nDAREA   11      10              1.0     11              1.0                     \r\nDAREA   11      12              1.0     13              1.0                     \r\nDAREA   11      14              1.0     15              1.0                     \r\nDAREA   11      16              1.0     17              1.0                     \r\nDAREA   11      18              1.0     19              1.0                     \r\nDAREA   11      20              1.0     21              1.0                     \r\nDAREA   11      22              1.0     23              1.0                     \r\nDAREA   11      24              1.0     25              1.0                     \r\nDAREA   11      26              1.0     27              1.0                     \r\nDAREA   11      28              1.0     29              1.0                     \r\nDAREA   11      30              1.0     31              1.0                     \r\nDAREA   11      32              1.0     33              1.0                     \r\nDAREA   11      34              1.0     35              1.0                     \r\nDAREA   11      36              1.0     37              1.0                     \r\nDAREA   11      38              1.0     39              1.0                     \r\nDAREA   11      40              1.0     41              1.0                     \r\nDAREA   11      42              1.0     43              1.0                     \r\nDAREA   11      44              1.0     45              1.0                     \r\nDAREA   11      46              1.0     47              1.0                     \r\nDAREA   11      48              1.0     49              1.0                     \r\nDAREA   11      50              1.0     51              1.0                     \r\nDAREA   11      52              1.0     53              1.0                     \r\nDAREA   11      54              1.0     55              1.0                     \r\nDAREA   11      56              1.0     57              1.0                     \r\nDAREA   11      58              1.0     59              1.0                     \r\nDAREA   11      60              1.0     61              1.0                     \r\nDAREA   11      62              1.0     63              1.0                     \r\nDAREA   11      64              1.0     65              1.0                     \r\nDAREA   11      66              1.0     67              1.0                     \r\nDAREA   11      68              1.0     69              1.0                     \r\nDAREA   11      70              1.0     71              1.0                     \r\nDAREA   11      72              1.0     73              1.0                     \r\nDAREA   11      74              1.0     75              1.0                     \r\nDAREA   11      76              1.0     77              1.0                     \r\nDAREA   11      78              1.0     79              1.0                     \r\nDAREA   11      80              1.0     81              1.0                     \r\nDAREA   11      82              1.0     83              1.0                     \r\nDAREA   11      84              1.0     85              1.0                     \r\nDAREA   11      86              1.0     87              1.0                     \r\nDAREA   11      88              1.0     89              1.0                     \r\nDAREA   11      90              1.0     91              1.0                     \r\nDAREA   11      92              1.0     93              1.0                     \r\nDAREA   11      94              1.0     95              1.0                     \r\nDAREA   11      96              1.0     97              1.0                     \r\nDAREA   11      98              1.0     99              1.0                     \r\nDAREA   11      100             1.0     101             1.0                     \r\nDAREA   11      102             1.0     103             1.0                     \r\nDAREA   11      104             1.0     105             1.0                     \r\nDAREA   11      106             1.0     107             1.0                     \r\nDAREA   11      108             1.0     109             1.0                     \r\nDAREA   11      110             1.0     111             1.0                     \r\nDAREA   11      112             1.0     113             1.0                     \r\nDAREA   11      114             1.0     115             1.0                     \r\nDAREA   11      116             1.0     117             1.0                     \r\nDAREA   11      118             1.0     119             1.0                     \r\nDAREA   11      120             1.0     121             1.0                     \r\nDAREA   11      122             1.0     123             1.0                     \r\nDAREA   11      124             1.0     125             1.0                     \r\nDAREA   11      126             1.0     127             1.0                     \r\nDAREA   11      128             1.0     129             1.0                     \r\nDAREA   11      130             1.0     131             1.0                     \r\nDAREA   11      132             1.0     133             1.0                     \r\nDAREA   11      134             1.0     135             1.0                     \r\nDAREA   11      136             1.0     137             1.0                     \r\nDAREA   11      138             1.0     139             1.0                     \r\nDAREA   11      140             1.0     141             1.0                     \r\nDAREA   11      142             1.0     143             1.0                     \r\nDAREA   11      144             1.0     145             1.0                     \r\nDAREA   11      146             1.0     147             1.0                     \r\nDAREA   11      148             1.0     149             1.0                     \r\nDAREA   11      150             1.0     151             1.0                     \r\nDAREA   11      152             1.0     153             1.0                     \r\nDAREA   11      154             1.0     155             1.0                     \r\nDAREA   11      156             1.0     157             1.0                     \r\nDAREA   11      158             1.0     159             1.0                     \r\nDAREA   11      160             1.0     161             1.0                     \r\nDAREA   11      162             1.0     163             1.0                     \r\nDAREA   11      164             1.0     165             1.0                     \r\nDAREA   11      166             1.0     167             1.0                     \r\nDAREA   11      168             1.0     169             1.0                     \r\nDAREA   11      170             1.0     171             1.0                     \r\nDAREA   11      172             1.0     173             1.0                     \r\nDAREA   11      174             1.0     175             1.0                     \r\nDAREA   11      176             1.0     177             1.0                     \r\nDAREA   11      178             1.0     179             1.0                     \r\nDAREA   11      180             1.0     181             1.0                     \r\nDAREA   11      182             1.0     183             1.0                     \r\nDAREA   11      184             1.0     185             1.0                     \r\nDAREA   11      186             1.0     187             1.0                     \r\nDAREA   11      188             1.0     189             1.0                     \r\nDAREA   11      190             1.0     191             1.0                     \r\nDAREA   11      192             1.0     193             1.0                     \r\nDAREA   11      194             1.0     195             1.0                     \r\nDAREA   11      196             1.0     197             1.0                     \r\nDAREA   11      198             1.0     199             1.0                     \r\nDAREA   11      200             1.0     201             1.0                     \r\nDAREA   11      202             1.0     203             1.0                     \r\nDAREA   11      204             1.0     205             1.0                     \r\nDAREA   11      206             1.0     207             1.0                     \r\nDAREA   11      208             1.0     209             1.0                     \r\nDAREA   11      210             1.0     211             1.0                     \r\nDAREA   11      212             1.0     213             1.0                     \r\nDAREA   11      214             1.0     215             1.0                     \r\nDAREA   11      216             1.0     217             1.0                     \r\nDAREA   11      218             1.0     219             1.0                     \r\nDAREA   11      220             1.0     221             1.0                     \r\nDAREA   11      222             1.0     223             1.0                     \r\nDAREA   11      224             1.0     225             1.0                     \r\nDAREA   11      226             1.0     227             1.0                     \r\nDAREA   11      228             1.0     229             1.0                     \r\nDAREA   11      230             1.0     231             1.0                     \r\nDAREA   11      232             1.0     233             1.0                     \r\nDAREA   11      234             1.0     235             1.0                     \r\nDAREA   11      236             1.0     237             1.0                     \r\nDAREA   11      238             1.0     239             1.0                     \r\nDAREA   11      240             1.0     241             1.0                     \r\nDAREA   11      242             1.0     243             1.0                     \r\nDAREA   11      244             1.0     245             1.0                     \r\nDAREA   11      246             1.0     247             1.0                     \r\nDAREA   11      248             1.0     249             1.0                     \r\nDAREA   11      250             1.0     251             1.0                     \r\nDAREA   11      252             1.0     253             1.0                     \r\nDAREA   11      254             1.0     255             1.0                     \r\nDAREA   11      256             1.0     257             1.0                     \r\nDAREA   11      258             1.0     259             1.0                     \r\nDAREA   11      260             1.0     261             1.0                     \r\nDAREA   11      262             1.0     263             1.0                     \r\nDAREA   11      264             1.0     265             1.0                     \r\nDAREA   11      266             1.0     267             1.0                     \r\nDAREA   11      268             1.0     269             1.0                     \r\nDAREA   11      270             1.0     271             1.0                     \r\nDAREA   11      272             1.0     273             1.0                     \r\nDAREA   11      274             1.0     275             1.0                     \r\nDAREA   11      276             1.0     277             1.0                     \r\nDAREA   11      278             1.0     279             1.0                     \r\nDAREA   11      280             1.0     281             1.0                     \r\nDAREA   11      282             1.0     283             1.0                     \r\nDAREA   11      284             1.0     285             1.0                     \r\nDAREA   11      286             1.0     287             1.0                     \r\nDAREA   11      288             1.0     289             1.0                     \r\nDAREA   11      290             1.0     291             1.0                     \r\nDAREA   11      292             1.0     293             1.0                     \r\nDAREA   11      294             1.0     295             1.0                     \r\nDAREA   11      296             1.0     297             1.0                     \r\nDAREA   11      298             1.0     299             1.0                     \r\nDAREA   11      300             1.0     301             1.0                     \r\nDAREA   11      302             1.0     303             1.0                     \r\nDAREA   11      304             1.0     305             1.0                     \r\nDAREA   11      306             1.0     307             1.0                     \r\nDAREA   11      308             1.0     309             1.0                     \r\nDAREA   11      310             1.0     311             1.0                     \r\nDAREA   11      312             1.0     313             1.0                     \r\nDAREA   11      314             1.0     315             1.0                     \r\nDAREA   11      316             1.0     317             1.0                     \r\nDAREA   11      318             1.0     319             1.0                     \r\nDAREA   11      320             1.0     321             1.0                     \r\nDAREA   11      322             1.0     323             1.0                     \r\nDAREA   11      324             1.0     325             1.0                     \r\nDAREA   11      326             1.0     327             1.0                     \r\nDAREA   11      328             1.0     329             1.0                     \r\nDAREA   11      330             1.0     331             1.0                     \r\nDAREA   11      332             1.0     333             1.0                     \r\nDAREA   11      334             1.0     335             1.0                     \r\nDAREA   11      336             1.0     337             1.0                     \r\nDAREA   11      338             1.0     339             1.0                     \r\nDAREA   11      340             1.0     341             1.0                     \r\nDAREA   11      342             1.0     343             1.0                     \r\nDAREA   11      344             1.0     345             1.0                     \r\nDAREA   11      346             1.0     347             1.0                     \r\nDAREA   11      348             1.0     349             1.0                     \r\nDAREA   11      350             1.0     351             1.0                     \r\nDAREA   11      352             1.0     353             1.0                     \r\nDAREA   11      354             1.0     355             1.0                     \r\nDAREA   11      356             1.0     357             1.0                     \r\nDAREA   11      358             1.0     359             1.0                     \r\nDAREA   11      360             1.0     361             1.0                     \r\nDAREA   11      362             1.0     363             1.0                     \r\nDAREA   11      364             1.0     365             1.0                     \r\nDAREA   11      366             1.0     367             1.0                     \r\nDAREA   11      368             1.0     369             1.0                     \r\nDAREA   11      370             1.0     371             1.0                     \r\nDAREA   11      372             1.0     373             1.0                     \r\nDAREA   11      374             1.0     375             1.0                     \r\nDAREA   11      376             1.0     377             1.0                     \r\nDAREA   11      378             1.0     379             1.0                     \r\nDAREA   11      380             1.0     381             1.0                     \r\nDAREA   11      382             1.0     383             1.0                     \r\nDAREA   11      384             1.0     385             1.0                     \r\nDAREA   11      386             1.0     387             1.0                     \r\nDAREA   11      388             1.0     389             1.0                     \r\nDAREA   11      390             1.0     391             1.0                     \r\nDAREA   11      392             1.0     393             1.0                     \r\nDAREA   11      394             1.0     395             1.0                     \r\nDAREA   11      396             1.0     397             1.0                     \r\nDAREA   11      398             1.0     399             1.0                     \r\nDAREA   11      400             1.0     401             1.0                     \r\nDAREA   11      402             1.0     403             1.0                     \r\nDAREA   11      404             1.0     405             1.0                     \r\nDAREA   11      406             1.0     407             1.0                     \r\nDAREA   11      408             1.0     409             1.0                     \r\nDAREA   11      410             1.0     411             1.0                     \r\nDAREA   11      412             1.0     413             1.0                     \r\nDAREA   11      414             1.0     415             1.0                     \r\nDAREA   11      416             1.0     417             1.0                     \r\nDAREA   11      418             1.0     419             1.0                     \r\nDAREA   11      420             1.0     421             1.0                     \r\nDAREA   11      422             1.0     423             1.0                     \r\nDAREA   11      424             1.0     425             1.0                     \r\nDAREA   11      426             1.0     427             1.0                     \r\nDAREA   11      428             1.0     429             1.0                     \r\nDAREA   11      430             1.0     431             1.0                     \r\nDAREA   11      432             1.0     433             1.0                     \r\nDAREA   11      434             1.0     435             1.0                     \r\nDAREA   11      436             1.0     437             1.0                     \r\nDAREA   11      438             1.0     439             1.0                     \r\nDAREA   11      440             1.0     441             1.0                     \r\nDAREA   11      442             1.0     443             1.0                     \r\nDAREA   11      444             1.0     445             1.0                     \r\nDAREA   11      446             1.0     447             1.0                     \r\nDAREA   11      448             1.0     449             1.0                     \r\nDAREA   11      450             1.0     451             1.0                     \r\nDAREA   11      452             1.0     453             1.0                     \r\nDAREA   11      454             1.0     455             1.0                     \r\nDAREA   11      456             1.0     457             1.0                     \r\nDAREA   11      458             1.0     459             1.0                     \r\nDAREA   11      460             1.0     461             1.0                     \r\nDAREA   11      462             1.0     463             1.0                     \r\nDAREA   11      464             1.0     465             1.0                     \r\nDAREA   11      466             1.0     467             1.0                     \r\nDAREA   11      468             1.0     469             1.0                     \r\nDAREA   11      470             1.0     471             1.0                     \r\nDAREA   11      472             1.0     473             1.0                     \r\nDAREA   11      474             1.0     475             1.0                     \r\nDAREA   11      476             1.0     477             1.0                     \r\nDAREA   11      478             1.0     479             1.0                     \r\nDAREA   11      480             1.0     481             1.0                     \r\nDAREA   11      482             1.0     483             1.0                     \r\nDAREA   11      484             1.0     485             1.0                     \r\nDAREA   11      486             1.0     487             1.0                     \r\nDAREA   11      488             1.0     489             1.0                     \r\nDAREA   11      490             1.0     491             1.0                     \r\nDAREA   11      492             1.0     493             1.0                     \r\nDAREA   11      494             1.0     495             1.0                     \r\nDAREA   11      496             1.0     497             1.0                     \r\nDAREA   11      498             1.0     499             1.0                     \r\nDAREA   11      500             1.0                                             \r\nEIGR    10      FEER    10.5                    20                      +FEER   \r\n+FEER   MAX                                                                     \r\nEIGR    11      INV     .0      21.0    20      20                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nFREQ2   11      .1      10.0    15                                              \r\nPARAM   LMODES  20                                                              \r\nPARAM   MODACC  1                                                               \r\nPELAS   101     1.0+7                                                           \r\nPMASS   301     10.000                                                          \r\nRLOAD1  11      11                      1                                       \r\nTABLED1 1                                                               *T1     \r\n*T1     -10.0           310.022767      100.0           310.022767      *T2     \r\n*T2     ENDT                                                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11021a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 11, Frequency Response Analysis - Modal Formulation\r\n$                Frequency Response of a 500-Cell String (11-2-1)\r\n$             Frequency Response of a 500-Cell String (INPUT, 11-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the solution of a large frequency response problem\r\n$ using modal coordinates. When large numbers of frequency steps are used, or\r\n$ the problem is very large, the relative efficiency of the modal formulation is\r\n$ more attractive than the direct formulation. The structural model consists of\r\n$ scalar points, springs, and masses which simulate the transverse motions of a\r\n$ string under tension, T, with a mass per length of mu. A duplicate model is\r\n$ obtained via the INPUT module to generate the scalar springs and masses.\r\n$ \r\n$ Selected scalar point displacements and scalar element forces are plotted\r\n$ versus frequency. The magnitude and phase of the displacements are plotted\r\n$ separately, each on one-half of the plotter frame. The magnitude plots for the\r\n$ selected points are all drawn on a whole plotter frame for comparisons. The\r\n$ center spring element has the magnitude of its internal force plotted versus\r\n$ frequency.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    m   =  10  - mass\r\n$     i\r\n$             7\r\n$    K   =  10  - spring rate\r\n$     i\r\n$ \r\n$    N   =  500 - number of cells\r\n$ \r\n$    where\r\n$               T\r\n$      K   =  -------  ,  m   =  mu delta x\r\n$       i     delta x      i\r\n$ \r\n$ 2. Loads\r\n$ \r\n$    The load on each point is:\r\n$ \r\n$                                   3\r\n$      P (w)  =  delta xp   =  10 pi\r\n$       i                x\r\n$ \r\n$    where p  is the load per length of string.\r\n$           x\r\n$ \r\n$    The steady state frequency response is desired from .1 to 10 cycles per\r\n$    second in 15 logarithmic increments.\r\n$ \r\n$ 3. Real Eigenvalue Data\r\n$ \r\n$    Method: FEER\r\n$ \r\n$    Center of neighborhood: 10.5\r\n$ \r\n$    Normalization: maximum deflection\r\n$ \r\n$    Number of modes used in formulation: 20\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The analysis of the string is given in Reference 11, Chapter 6. The response,\r\n$ xi , of mode number n is given by the equation:\r\n$   n\r\n$ \r\n$                                     n pi x\r\n$            integral o to l P(x) sin(------) dx\r\n$                                        l\r\n$    xi   =  -----------------------------------                             (1)\r\n$      n                            2 n pi x   2    2\r\n$            [integral o to l mu sin (------)[w  - w ]\r\n$                                       l      n\r\n$ \r\n$ where w , the natural frequencies, are (n pi/N)sqrt(K /m ) for the theoretical\r\n$        n                                             i  i\r\n$ continuous string.\r\n$ \r\n$ For a uniform load:\r\n$                                          2p l    2P N      4  2\r\n$                             n pi x         x       i     10 pi\r\n$    integral o to l P(x) sin(------) dx = ----  = ----  = ------            (2)\r\n$                               l          n pi    n pi      n\r\n$ \r\n$                                                Nm\r\n$                          2 n pi x       ul       i           3\r\n$    integral o to l mu sin (------) dx = --  =  --- = 2.5 x 10              (3)\r\n$                              l          2       2\r\n$ \r\n$ The displacement of the center point is:\r\n$ \r\n$      l                  n pi\r\n$    u(-)  =  sum xi  sin ----  = xi  - xi  + xi  -xi  + ...                 (4)\r\n$      2            n      2        1     3     5    7\r\n$ \r\n$ D. Results\r\n$ \r\n$      At f = 0.1, the response due to 20 modes is:\r\n$ \r\n$        l\r\n$      u(-)  =  .97895 (Theory)\r\n$        2\r\n$ \r\n$      u     =  .97888 (NASTRAN)\r\n$       251\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d11022a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D11022A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nTIME  26                                                                        \r\nSOL   11,1                                                                      \r\nDIAG  14                                                                        \r\nALTER 1 $                                                                       \r\nPARAM   //C,N,NOP/V,N,TRUE=-1 $                                                 \r\nINPUT,  ,,,,/,G2,,,/C,N,5 $                                                     \r\nEQUIV   G2,GEOM2/TRUE $                                                         \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = FREQUENCY RESPONSE OF A 500 CELL STRING                              \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                          \r\n  METHOD = 10                                                                   \r\n    FREQ = 11                                                                   \r\n   DLOAD = 11                                                                   \r\nOUTPUT                                                                          \r\n   SET 1 = 51, 101, 151, 201, 251, 301, 351, 401, 451                           \r\n   SET 2 = 1 THRU 5                                                             \r\n   DISPLACEMENT(PHASE,SORT2)  = 1                                               \r\n   SDISPLACEMENT(PHASE,SORT2) = 2                                               \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D11-02-2A                            \r\nOUTPUT(XYOUT)                                                                   \r\nPLOTTER = NASTPLT                                                               \r\n        CAMERA = 3                                                              \r\n        SKIP BETWEEN FRAMES = 1                                                 \r\n  CURVE LINE AND SYMBOLS = 1                                                    \r\n  XLOG   = YES                                                                  \r\n  YTLOG  = YES                                                                  \r\n  XTGRID = YES                                                                  \r\n  XBGRID = YES                                                                  \r\n  YTGRID = YES                                                                  \r\n  YBGRID = YES                                                                  \r\n  XTITLE =                              FREQUENCY (HERTZ)                       \r\n  YTTITLE = MAGNITUDE  *INCH*                                                   \r\n  YBTITLE = PHASE  *DEGREE*                                                     \r\n$                                                                               \r\n$ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         \r\n$                                                                               \r\n    TCURVE = * * * * * *  SPOINT  5 1   * * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /   51(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  1 0 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  101(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  1 5 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  151(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  2 0 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  201(T1RM,T1IP)                                                  \r\n    TCURVE = * * * * * *  SPOINT  2 5 1   * * * * * * * * * * * * * * *         \r\nXYPLOT DISP  /  251(T1RM,T1IP)                                                  \r\n$                                                                               \r\n$ *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *        \r\n$                                                                               \r\n  YLOG   = YES                                                                  \r\n  YTITLE = MAGNITUDE  *INCH*                                                    \r\n  XGRID LINES = YES                                                             \r\n  YGRID LINES = YES                                                             \r\n  TCURVE = * * * * *  SUPERPOSITION OF SPOINT 51, 101, 151, 201, 251 * *        \r\nXYPLOT DISP / 51(3), 101(3), 151(3), 201(3), 251(3)                             \r\n  YLOG   = NO                                                                   \r\n  YTITLE = REAL PART  *POUNDS*                                                  \r\n  TCURVE = * * * * * * *   FORCE IN STRING ELEMENT 251  * * * * * * * *         \r\nXYPLOT, XYPRINT ELFORCE RESPONSE / 251(2)                                       \r\n$                                                                               \r\nBEGIN BULK                                                                      \r\nDAREA   11      2               1.0     3               1.0                     \r\nDAREA   11      4               1.0     5               1.0                     \r\nDAREA   11      6               1.0     7               1.0                     \r\nDAREA   11      8               1.0     9               1.0                     \r\nDAREA   11      10              1.0     11              1.0                     \r\nDAREA   11      12              1.0     13              1.0                     \r\nDAREA   11      14              1.0     15              1.0                     \r\nDAREA   11      16              1.0     17              1.0                     \r\nDAREA   11      18              1.0     19              1.0                     \r\nDAREA   11      20              1.0     21              1.0                     \r\nDAREA   11      22              1.0     23              1.0                     \r\nDAREA   11      24              1.0     25              1.0                     \r\nDAREA   11      26              1.0     27              1.0                     \r\nDAREA   11      28              1.0     29              1.0                     \r\nDAREA   11      30              1.0     31              1.0                     \r\nDAREA   11      32              1.0     33              1.0                     \r\nDAREA   11      34              1.0     35              1.0                     \r\nDAREA   11      36              1.0     37              1.0                     \r\nDAREA   11      38              1.0     39              1.0                     \r\nDAREA   11      40              1.0     41              1.0                     \r\nDAREA   11      42              1.0     43              1.0                     \r\nDAREA   11      44              1.0     45              1.0                     \r\nDAREA   11      46              1.0     47              1.0                     \r\nDAREA   11      48              1.0     49              1.0                     \r\nDAREA   11      50              1.0     51              1.0                     \r\nDAREA   11      52              1.0     53              1.0                     \r\nDAREA   11      54              1.0     55              1.0                     \r\nDAREA   11      56              1.0     57              1.0                     \r\nDAREA   11      58              1.0     59              1.0                     \r\nDAREA   11      60              1.0     61              1.0                     \r\nDAREA   11      62              1.0     63              1.0                     \r\nDAREA   11      64              1.0     65              1.0                     \r\nDAREA   11      66              1.0     67              1.0                     \r\nDAREA   11      68              1.0     69              1.0                     \r\nDAREA   11      70              1.0     71              1.0                     \r\nDAREA   11      72              1.0     73              1.0                     \r\nDAREA   11      74              1.0     75              1.0                     \r\nDAREA   11      76              1.0     77              1.0                     \r\nDAREA   11      78              1.0     79              1.0                     \r\nDAREA   11      80              1.0     81              1.0                     \r\nDAREA   11      82              1.0     83              1.0                     \r\nDAREA   11      84              1.0     85              1.0                     \r\nDAREA   11      86              1.0     87              1.0                     \r\nDAREA   11      88              1.0     89              1.0                     \r\nDAREA   11      90              1.0     91              1.0                     \r\nDAREA   11      92              1.0     93              1.0                     \r\nDAREA   11      94              1.0     95              1.0                     \r\nDAREA   11      96              1.0     97              1.0                     \r\nDAREA   11      98              1.0     99              1.0                     \r\nDAREA   11      100             1.0     101             1.0                     \r\nDAREA   11      102             1.0     103             1.0                     \r\nDAREA   11      104             1.0     105             1.0                     \r\nDAREA   11      106             1.0     107             1.0                     \r\nDAREA   11      108             1.0     109             1.0                     \r\nDAREA   11      110             1.0     111             1.0                     \r\nDAREA   11      112             1.0     113             1.0                     \r\nDAREA   11      114             1.0     115             1.0                     \r\nDAREA   11      116             1.0     117             1.0                     \r\nDAREA   11      118             1.0     119             1.0                     \r\nDAREA   11      120             1.0     121             1.0                     \r\nDAREA   11      122             1.0     123             1.0                     \r\nDAREA   11      124             1.0     125             1.0                     \r\nDAREA   11      126             1.0     127             1.0                     \r\nDAREA   11      128             1.0     129             1.0                     \r\nDAREA   11      130             1.0     131             1.0                     \r\nDAREA   11      132             1.0     133             1.0                     \r\nDAREA   11      134             1.0     135             1.0                     \r\nDAREA   11      136             1.0     137             1.0                     \r\nDAREA   11      138             1.0     139             1.0                     \r\nDAREA   11      140             1.0     141             1.0                     \r\nDAREA   11      142             1.0     143             1.0                     \r\nDAREA   11      144             1.0     145             1.0                     \r\nDAREA   11      146             1.0     147             1.0                     \r\nDAREA   11      148             1.0     149             1.0                     \r\nDAREA   11      150             1.0     151             1.0                     \r\nDAREA   11      152             1.0     153             1.0                     \r\nDAREA   11      154             1.0     155             1.0                     \r\nDAREA   11      156             1.0     157             1.0                     \r\nDAREA   11      158             1.0     159             1.0                     \r\nDAREA   11      160             1.0     161             1.0                     \r\nDAREA   11      162             1.0     163             1.0                     \r\nDAREA   11      164             1.0     165             1.0                     \r\nDAREA   11      166             1.0     167             1.0                     \r\nDAREA   11      168             1.0     169             1.0                     \r\nDAREA   11      170             1.0     171             1.0                     \r\nDAREA   11      172             1.0     173             1.0                     \r\nDAREA   11      174             1.0     175             1.0                     \r\nDAREA   11      176             1.0     177             1.0                     \r\nDAREA   11      178             1.0     179             1.0                     \r\nDAREA   11      180             1.0     181             1.0                     \r\nDAREA   11      182             1.0     183             1.0                     \r\nDAREA   11      184             1.0     185             1.0                     \r\nDAREA   11      186             1.0     187             1.0                     \r\nDAREA   11      188             1.0     189             1.0                     \r\nDAREA   11      190             1.0     191             1.0                     \r\nDAREA   11      192             1.0     193             1.0                     \r\nDAREA   11      194             1.0     195             1.0                     \r\nDAREA   11      196             1.0     197             1.0                     \r\nDAREA   11      198             1.0     199             1.0                     \r\nDAREA   11      200             1.0     201             1.0                     \r\nDAREA   11      202             1.0     203             1.0                     \r\nDAREA   11      204             1.0     205             1.0                     \r\nDAREA   11      206             1.0     207             1.0                     \r\nDAREA   11      208             1.0     209             1.0                     \r\nDAREA   11      210             1.0     211             1.0                     \r\nDAREA   11      212             1.0     213             1.0                     \r\nDAREA   11      214             1.0     215             1.0                     \r\nDAREA   11      216             1.0     217             1.0                     \r\nDAREA   11      218             1.0     219             1.0                     \r\nDAREA   11      220             1.0     221             1.0                     \r\nDAREA   11      222             1.0     223             1.0                     \r\nDAREA   11      224             1.0     225             1.0                     \r\nDAREA   11      226             1.0     227             1.0                     \r\nDAREA   11      228             1.0     229             1.0                     \r\nDAREA   11      230             1.0     231             1.0                     \r\nDAREA   11      232             1.0     233             1.0                     \r\nDAREA   11      234             1.0     235             1.0                     \r\nDAREA   11      236             1.0     237             1.0                     \r\nDAREA   11      238             1.0     239             1.0                     \r\nDAREA   11      240             1.0     241             1.0                     \r\nDAREA   11      242             1.0     243             1.0                     \r\nDAREA   11      244             1.0     245             1.0                     \r\nDAREA   11      246             1.0     247             1.0                     \r\nDAREA   11      248             1.0     249             1.0                     \r\nDAREA   11      250             1.0     251             1.0                     \r\nDAREA   11      252             1.0     253             1.0                     \r\nDAREA   11      254             1.0     255             1.0                     \r\nDAREA   11      256             1.0     257             1.0                     \r\nDAREA   11      258             1.0     259             1.0                     \r\nDAREA   11      260             1.0     261             1.0                     \r\nDAREA   11      262             1.0     263             1.0                     \r\nDAREA   11      264             1.0     265             1.0                     \r\nDAREA   11      266             1.0     267             1.0                     \r\nDAREA   11      268             1.0     269             1.0                     \r\nDAREA   11      270             1.0     271             1.0                     \r\nDAREA   11      272             1.0     273             1.0                     \r\nDAREA   11      274             1.0     275             1.0                     \r\nDAREA   11      276             1.0     277             1.0                     \r\nDAREA   11      278             1.0     279             1.0                     \r\nDAREA   11      280             1.0     281             1.0                     \r\nDAREA   11      282             1.0     283             1.0                     \r\nDAREA   11      284             1.0     285             1.0                     \r\nDAREA   11      286             1.0     287             1.0                     \r\nDAREA   11      288             1.0     289             1.0                     \r\nDAREA   11      290             1.0     291             1.0                     \r\nDAREA   11      292             1.0     293             1.0                     \r\nDAREA   11      294             1.0     295             1.0                     \r\nDAREA   11      296             1.0     297             1.0                     \r\nDAREA   11      298             1.0     299             1.0                     \r\nDAREA   11      300             1.0     301             1.0                     \r\nDAREA   11      302             1.0     303             1.0                     \r\nDAREA   11      304             1.0     305             1.0                     \r\nDAREA   11      306             1.0     307             1.0                     \r\nDAREA   11      308             1.0     309             1.0                     \r\nDAREA   11      310             1.0     311             1.0                     \r\nDAREA   11      312             1.0     313             1.0                     \r\nDAREA   11      314             1.0     315             1.0                     \r\nDAREA   11      316             1.0     317             1.0                     \r\nDAREA   11      318             1.0     319             1.0                     \r\nDAREA   11      320             1.0     321             1.0                     \r\nDAREA   11      322             1.0     323             1.0                     \r\nDAREA   11      324             1.0     325             1.0                     \r\nDAREA   11      326             1.0     327             1.0                     \r\nDAREA   11      328             1.0     329             1.0                     \r\nDAREA   11      330             1.0     331             1.0                     \r\nDAREA   11      332             1.0     333             1.0                     \r\nDAREA   11      334             1.0     335             1.0                     \r\nDAREA   11      336             1.0     337             1.0                     \r\nDAREA   11      338             1.0     339             1.0                     \r\nDAREA   11      340             1.0     341             1.0                     \r\nDAREA   11      342             1.0     343             1.0                     \r\nDAREA   11      344             1.0     345             1.0                     \r\nDAREA   11      346             1.0     347             1.0                     \r\nDAREA   11      348             1.0     349             1.0                     \r\nDAREA   11      350             1.0     351             1.0                     \r\nDAREA   11      352             1.0     353             1.0                     \r\nDAREA   11      354             1.0     355             1.0                     \r\nDAREA   11      356             1.0     357             1.0                     \r\nDAREA   11      358             1.0     359             1.0                     \r\nDAREA   11      360             1.0     361             1.0                     \r\nDAREA   11      362             1.0     363             1.0                     \r\nDAREA   11      364             1.0     365             1.0                     \r\nDAREA   11      366             1.0     367             1.0                     \r\nDAREA   11      368             1.0     369             1.0                     \r\nDAREA   11      370             1.0     371             1.0                     \r\nDAREA   11      372             1.0     373             1.0                     \r\nDAREA   11      374             1.0     375             1.0                     \r\nDAREA   11      376             1.0     377             1.0                     \r\nDAREA   11      378             1.0     379             1.0                     \r\nDAREA   11      380             1.0     381             1.0                     \r\nDAREA   11      382             1.0     383             1.0                     \r\nDAREA   11      384             1.0     385             1.0                     \r\nDAREA   11      386             1.0     387             1.0                     \r\nDAREA   11      388             1.0     389             1.0                     \r\nDAREA   11      390             1.0     391             1.0                     \r\nDAREA   11      392             1.0     393             1.0                     \r\nDAREA   11      394             1.0     395             1.0                     \r\nDAREA   11      396             1.0     397             1.0                     \r\nDAREA   11      398             1.0     399             1.0                     \r\nDAREA   11      400             1.0     401             1.0                     \r\nDAREA   11      402             1.0     403             1.0                     \r\nDAREA   11      404             1.0     405             1.0                     \r\nDAREA   11      406             1.0     407             1.0                     \r\nDAREA   11      408             1.0     409             1.0                     \r\nDAREA   11      410             1.0     411             1.0                     \r\nDAREA   11      412             1.0     413             1.0                     \r\nDAREA   11      414             1.0     415             1.0                     \r\nDAREA   11      416             1.0     417             1.0                     \r\nDAREA   11      418             1.0     419             1.0                     \r\nDAREA   11      420             1.0     421             1.0                     \r\nDAREA   11      422             1.0     423             1.0                     \r\nDAREA   11      424             1.0     425             1.0                     \r\nDAREA   11      426             1.0     427             1.0                     \r\nDAREA   11      428             1.0     429             1.0                     \r\nDAREA   11      430             1.0     431             1.0                     \r\nDAREA   11      432             1.0     433             1.0                     \r\nDAREA   11      434             1.0     435             1.0                     \r\nDAREA   11      436             1.0     437             1.0                     \r\nDAREA   11      438             1.0     439             1.0                     \r\nDAREA   11      440             1.0     441             1.0                     \r\nDAREA   11      442             1.0     443             1.0                     \r\nDAREA   11      444             1.0     445             1.0                     \r\nDAREA   11      446             1.0     447             1.0                     \r\nDAREA   11      448             1.0     449             1.0                     \r\nDAREA   11      450             1.0     451             1.0                     \r\nDAREA   11      452             1.0     453             1.0                     \r\nDAREA   11      454             1.0     455             1.0                     \r\nDAREA   11      456             1.0     457             1.0                     \r\nDAREA   11      458             1.0     459             1.0                     \r\nDAREA   11      460             1.0     461             1.0                     \r\nDAREA   11      462             1.0     463             1.0                     \r\nDAREA   11      464             1.0     465             1.0                     \r\nDAREA   11      466             1.0     467             1.0                     \r\nDAREA   11      468             1.0     469             1.0                     \r\nDAREA   11      470             1.0     471             1.0                     \r\nDAREA   11      472             1.0     473             1.0                     \r\nDAREA   11      474             1.0     475             1.0                     \r\nDAREA   11      476             1.0     477             1.0                     \r\nDAREA   11      478             1.0     479             1.0                     \r\nDAREA   11      480             1.0     481             1.0                     \r\nDAREA   11      482             1.0     483             1.0                     \r\nDAREA   11      484             1.0     485             1.0                     \r\nDAREA   11      486             1.0     487             1.0                     \r\nDAREA   11      488             1.0     489             1.0                     \r\nDAREA   11      490             1.0     491             1.0                     \r\nDAREA   11      492             1.0     493             1.0                     \r\nDAREA   11      494             1.0     495             1.0                     \r\nDAREA   11      496             1.0     497             1.0                     \r\nDAREA   11      498             1.0     499             1.0                     \r\nDAREA   11      500             1.0                                             \r\nEIGR    10      FEER    10.5                    20                      +FEER   \r\n+FEER   MAX                                                                     \r\nEIGR    11      INV     .0      21.0    20      20                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nFREQ2   11      .1      10.0    15                                              \r\nPARAM   LMODES  20                                                              \r\nPARAM   MODACC  1                                                               \r\nRLOAD1  11      11                      1                                       \r\nTABLED1 1                                                               *T1     \r\n*T1     -10.0           310.022767      100.0           310.022767      *T2     \r\n*T2     ENDT                                                                    \r\nENDDATA                                                                         \r\n     500 1.0E+07 0.0     1.0E+01 0.0                                            \r\n"
  },
  {
    "path": "inp/d11022a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$      RIGID FORMAT No. 11, Frequency Response Analysis - Modal Formulation\r\n$                Frequency Response of a 500-Cell String (11-2-1)\r\n$             Frequency Response of a 500-Cell String (INPUT, 11-2-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the solution of a large frequency response problem\r\n$ using modal coordinates. When large numbers of frequency steps are used, or\r\n$ the problem is very large, the relative efficiency of the modal formulation is\r\n$ more attractive than the direct formulation. The structural model consists of\r\n$ scalar points, springs, and masses which simulate the transverse motions of a\r\n$ string under tension, T, with a mass per length of mu. A duplicate model is\r\n$ obtained via the INPUT module to generate the scalar springs and masses.\r\n$ \r\n$ Selected scalar point displacements and scalar element forces are plotted\r\n$ versus frequency. The magnitude and phase of the displacements are plotted\r\n$ separately, each on one-half of the plotter frame. The magnitude plots for the\r\n$ selected points are all drawn on a whole plotter frame for comparisons. The\r\n$ center spring element has the magnitude of its internal force plotted versus\r\n$ frequency.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    m   =  10  - mass\r\n$     i\r\n$             7\r\n$    K   =  10  - spring rate\r\n$     i\r\n$ \r\n$    N   =  500 - number of cells\r\n$ \r\n$    where\r\n$               T\r\n$      K   =  -------  ,  m   =  mu delta x\r\n$       i     delta x      i\r\n$ \r\n$ 2. Loads\r\n$ \r\n$    The load on each point is:\r\n$ \r\n$                                   3\r\n$      P (w)  =  delta xp   =  10 pi\r\n$       i                x\r\n$ \r\n$    where p  is the load per length of string.\r\n$           x\r\n$ \r\n$    The steady state frequency response is desired from .1 to 10 cycles per\r\n$    second in 15 logarithmic increments.\r\n$ \r\n$ 3. Real Eigenvalue Data\r\n$ \r\n$    Method: FEER\r\n$ \r\n$    Center of neighborhood: 10.5\r\n$ \r\n$    Normalization: maximum deflection\r\n$ \r\n$    Number of modes used in formulation: 20\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The analysis of the string is given in Reference 11, Chapter 6. The response,\r\n$ xi , of mode number n is given by the equation:\r\n$   n\r\n$ \r\n$                                     n pi x\r\n$            integral o to l P(x) sin(------) dx\r\n$                                        l\r\n$    xi   =  -----------------------------------                             (1)\r\n$      n                            2 n pi x   2    2\r\n$            [integral o to l mu sin (------)[w  - w ]\r\n$                                       l      n\r\n$ \r\n$ where w , the natural frequencies, are (n pi/N)sqrt(K /m ) for the theoretical\r\n$        n                                             i  i\r\n$ continuous string.\r\n$ \r\n$ For a uniform load:\r\n$                                          2p l    2P N      4  2\r\n$                             n pi x         x       i     10 pi\r\n$    integral o to l P(x) sin(------) dx = ----  = ----  = ------            (2)\r\n$                               l          n pi    n pi      n\r\n$ \r\n$                                                Nm\r\n$                          2 n pi x       ul       i           3\r\n$    integral o to l mu sin (------) dx = --  =  --- = 2.5 x 10              (3)\r\n$                              l          2       2\r\n$ \r\n$ The displacement of the center point is:\r\n$ \r\n$      l                  n pi\r\n$    u(-)  =  sum xi  sin ----  = xi  - xi  + xi  -xi  + ...                 (4)\r\n$      2            n      2        1     3     5    7\r\n$ \r\n$ D. Results\r\n$ \r\n$      At f = 0.1, the response due to 20 modes is:\r\n$ \r\n$        l\r\n$      u(-)  =  .97895 (Theory)\r\n$        2\r\n$ \r\n$      u     =  .97888 (NASTRAN)\r\n$       251\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 11. I. S. Sokolnikoff and R. M. Redheffer, MATHEMATICS OF PHYSICS AND MODERN\r\n$     ENGINEERING. McGraw-Hill, 1958.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d11031a.inp",
    "content": "ID    D11031A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   11,0                                                                      \r\nTIME  25                                                                        \r\nCEND                                                                            \r\nTITLE    = JET TRANSPORT WING DYNAMIC ANALYSIS                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-1A                          \r\nLABEL    = SYMMETRIC RESPONSE , STIFF AILERON                                   \r\n  ECHO   = BOTH                                                                 \r\n$                                                                               \r\n$       MODEL DESCRIPTION           JET TRANSPORT WING EXAMPLE                  \r\n$                               SYMMETRIC RESPONSE TO A RANDOM                  \r\n$                               GUST WITH A STIFF AILERON                       \r\n$                                                                               \r\n  SPC    = 14   $  SYM , NO PITCH                                               \r\n  MPC    = 1                                                                    \r\n  METHOD = 10   $  GIVENS                                                       \r\n  SDAMP  = 2000                                                                 \r\n  FREQ   = 40                                                                   \r\n  RANDOM = 1031 $  EMPIRICAL PSDF                                               \r\nOUTPUT                                                                          \r\n$                                                                               \r\n$       SOLUTION                   RANDOM ANALYSIS USING                        \r\n$                               DOUBLET-LATTICE METHOD AERODYNAMICS             \r\n$                               AT MACH NO. OF .62                              \r\n$                                                                               \r\n  SET 1 = 1  , 2 , 12 $                                                         \r\n  SET 2 = 1 , 9 THRU 12 , 1040                                                  \r\n  SET 3 = 11                                                                    \r\n  SET 4 = 1001 , 1022 , 1023 , 1040 , 1041 $                                    \r\n  SDISP(IMAG) = 1                                                               \r\n  DISP(IMAG)  = 2                                                               \r\n  SPCF(IMAG)  = 3                                                               \r\n  AEROF = 4                                                                     \r\nSUBCASE 1                                                                       \r\n  LABEL =  RANDOM GUST ANALYSIS                                                 \r\n  GUST  = 3002                                                                  \r\n$                                                                               \r\n$           PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT        \r\n$       AND WING ROOT BENDING MOMENTS                                           \r\n$                                                                               \r\nOUTPUT(XYOUT)    $ FREQ RESP PACKAGE (COMPLEX NUMBERS)                          \r\n  CURVELINESYMBOL = 1                                                           \r\n  XTITLE  =  FREQUENCY(HERTZ)      JET TRANSPORT , FREQUENCY RESPONSE           \r\n  YTITLE  = MODAL DEFLECTION                                                    \r\n  TCURVE  =     FIRST MODE (PLUNGE)                                             \r\n  XYPAPERPLOT   SDISP /   1(T1RM) , 1(T1IP)                                     \r\n  TCURVE  =     SECOND MODE (WING BENDING)                                      \r\n  XYPAPERPLOT   SDISP /   2(T1RM) , 2(T1IP)                                     \r\n  TCURVE  =     TWELFTH MODE  (AILERON)                                         \r\n  XYPAPERPLOT   SDISP /  12(T1RM) , 12(T1IP)                                    \r\n  YTITLE  = PHYSICAL DEFLECTION                                                 \r\n  TCURVE  =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                        \r\n  XYPAPERPLOT    DISP /   9(T3RM) ,  9(T3IP) , 10(T3RM) , 10(T3IP)              \r\n  TCURVE  =     FUSELAGE PLUNGE                                                 \r\n  XYPAPERPLOT    DISP /  11(T3RM) , 11(T3IP)                                    \r\n  TCURVE  =     AILERON DEFLECTION                                              \r\n  XYPAPERPLOT    DISP /  12(R2RM) , 12(R2IP)                                    \r\n  TCURVE  =     AERODYNAMIC BOX NEAR TIP , PITCH                                \r\n  XYPAPERPLOT    DISP /  1040(R2RM) , 1040(R2IP)                                \r\n  TCURVE  =     WING ROOT BENDING MOMENT                                        \r\n  YTITLE  = ROTATIONAL CONSTRAINTS                                              \r\n  XYPAPERPLOT    SPCF /  11(R3RM) , 11(R3IP)                                    \r\n$ RANDOM ANALYSIS OUTPUT REQUESTS                                               \r\n  XTITLE  = FREQUENCY (HERTZ)      JET TRANSPORT , RANDOM ANALYSIS              \r\n  TCURVE  =   POWER SPECTRAL DENSITY FUNCTION                                   \r\n  YTITLE  = FUSELAGE PLUNGE  (11T3)         , PSDF , GUST LOAD                  \r\n  XYPAPERPLOT  DISP  PSDF     /  11(T3)                                         \r\n  YTITLE  = WING TIP DISPLACEMENT (9T3)     , PSDF , GUST LOAD                  \r\n  XYPAPERPLOT  DISP  PSDF     /   9(T3)                                         \r\n  YTITLE  = WING ROOT BENDING MOMENT (11R3) , PSDF , GUST LOAD                  \r\n  XYPAPERPLOT  SPCF  PSDF     /  11(R3)                                         \r\nBEGIN BULK                                                                      \r\nAEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1    \r\n+AE1    .74                                                                     \r\nAEFACT  2       .74     .82     .90     .974                                    \r\nAEFACT  3       .974    1.00                                                    \r\nAEFACT  4       0.0     .375    .750    1.00                                    \r\nAEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00            \r\nAERO    1       8360.   131.232 1.1468-71                               SYM     \r\nCAERO1  1001    1000    0                       1       4       1       +CA01   \r\n+CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCAERO1  1022    1000    0                       2       5       1       +CA22   \r\n+CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCAERO1  1040    1000    0                       3       4       1       +CA40   \r\n+CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCELAS2  3       5142671.12      5                                               \r\nCMASS2  2       13967.2 12      5                                               \r\nCMASS2  121     5248.7  1       3                                               \r\nCMASS2  122     134.9   1       3       2       3                               \r\nCMASS2  123     790.3   2       3                                               \r\nCMASS2  341     9727.   3       3                                               \r\nCMASS2  342     11005.  3       3       4       3                               \r\nCMASS2  343     473.    4       3                                               \r\nCMASS2  561     3253.6  5       3                                               \r\nCMASS2  562     -139.7  5       3       6       3                               \r\nCMASS2  563     946.3   6       3                                               \r\nCMASS2  781     2617.8  7       3                                               \r\nCMASS2  782     21.     7       3       8       3                               \r\nCMASS2  783     782.3   8       3                                               \r\nCMASS2  9101    494.8   9       3                                               \r\nCMASS2  9102    -7.3    9       3       10      3                               \r\nCMASS2  9103    185.2   10      3                                               \r\nCONM1   1       11                                                      +51     \r\n+51     17400.                          4.37+7                          +52     \r\n+52             4.35+09                                                         \r\nCORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1     \r\n+C1     -1.     0.0     0.0                                                     \r\nDAREA   9999    11      1       1.                                      DUMMY   \r\nEIGR    10      GIV     0.0     1.              12                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nFREQ1   40      0.0     .25     39                                              \r\nGENEL   432             1       3       2       3       3       3       +01     \r\n+01     4       3       5       3       6       3       7       3       +02     \r\n+02     8       3       9       3       10      3                       +03     \r\n+03     UD              11      3       11      4       11      5       +03A    \r\n+03A    11      6                                                       +04     \r\n+04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05     \r\n+05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06     \r\n+06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07     \r\n+07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08     \r\n+08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09     \r\n+09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10     \r\n+10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11     \r\n+11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12     \r\n+12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13     \r\n+13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14     \r\n+14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15     \r\n+15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16     \r\n+16     413.0                                                                   \r\nGRID    1               20.25   90.                     12456                   \r\nGRID    2               -81.    90.                     12456                   \r\nGRID    3               17.85   186.                    12456                   \r\nGRID    4               -71.4   186.                    12456                   \r\nGRID    5               15.8    268.                    12456                   \r\nGRID    6               -63.2   268.                    12456                   \r\nGRID    7               13.3    368.                    12456                   \r\nGRID    8               -53.2   368.                    12456                   \r\nGRID    9               11.05   458.                    12456                   \r\nGRID    10              -44.2   458.                    12456                   \r\nGRID    11              .0      .0                      126                     \r\nGRID    12              -86.45  368.                    1246                    \r\nGUST    3002    3002    1.1962-40.0     8360.                                   \r\nMKAERO1 .62                                                             +MK     \r\n+MK     .02     .10     .50                                                     \r\nMPC     1       12      3       -1.0    8       3       1.5             +MPC1   \r\n+MPC1           7       3       -0.5    12      5       33.25                   \r\nPAERO1  1000                                                                    \r\nPARAM   GUSTAERO1                                                               \r\nPARAM   LMODES  12                                                              \r\nPARAM   MACH    .62                                                             \r\nPARAM   Q       4.00747                                                         \r\nPARAM   WTMASS  .0025907                                                        \r\nRANDPS  1031    1       1       1.              1032                            \r\nRLOAD1  3002    9999                    1004                                    \r\nSET1    14      1       THRU    11                                              \r\nSET1    15      8       10      12                                              \r\nSPC     14      11      45                                                      \r\nSPLINE1 104     1022    1026    1039    15                                      \r\nSPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1    \r\n+SP1    -1.0    -1.0                                                            \r\nSPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2    \r\n+SP2    -1.0    -1.0                                                            \r\nSPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3    \r\n+SP3    -1.0    -1.0                                                            \r\nSUPORT  11      3                                                               \r\nTABDMP1 2000                                                            +T2000  \r\n+T2000  0.0     .06     10.     .06     ENDT                                    \r\nTABLED1 1004                                                             T1004  \r\n+T1004  0.0     0.0     .01     1.      10.     1.      ENDT                    \r\nTABRND1 1032                                                            +001    \r\n+001    .00     2.8708+0.25     1.2641+0.50     4.7188-1.75     2.3080-1+002    \r\n+002    1.00    1.3456-11.25    8.7595-21.50    6.1402-21.75    4.5369-2+003    \r\n+003    2.00    3.4865-22.25    2.7618-22.50    2.2412-22.75    1.8547-2+004    \r\n+004    3.00    1.5601-23.25    1.3304-23.50    1.1478-23.75    1.0004-2+005    \r\n+005    4.00    8.7964-34.25    7.7947-34.50    6.9547-34.75    6.2434-3+006    \r\n+006    5.00    5.6359-35.25    5.1128-35.50    4.6593-35.75    4.2636-3+007    \r\n+007    6.00    3.9162-36.25    3.6095-36.50    3.3375-36.75    3.0951-3+008    \r\n+008    7.00    2.8782-37.25    2.6833-37.50    2.5076-37.75    2.3485-3+009    \r\n+009    8.00    2.2042-38.25    2.0727-38.50    1.9526-38.75    1.8427-3+010    \r\n+010    9.00    1.7418-39.25    1.6490-39.50    1.5634-39.75    1.4843-3+011    \r\n+011    ENDT                                                                    \r\nTSTEP   41      40      .1      1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11031a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$              RIGID FORMAT No. 11 (APP AERO), Aeroelastic Response\r\n$        Jet Transport Wing Dynamic Analysis, Frequency Response (11-3-1)\r\n$        Jet Transport Wing Dynamic Analysis, Transient Response (11-3-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This example illustrates the use of the aeroelastic response analysis to\r\n$ perform frequency, random, and transient response calculations for a structure\r\n$ excited by aerodynamic loadings. This problem is also discussed in Section\r\n$ 1.11.5 of the User's Manual.\r\n$ \r\n$ For this demonstration problem, the aileron is locked and the fuselage to\r\n$ which the wing is attached is a rigid body represented by grid point 11. Only\r\n$ out-of-plane motions are retained in the model. The wing is modeled with GENEL\r\n$ data defining the flexibility matrix, [Z], and a free-body matrix, [S]. The\r\n$ aileron also is modeled as a rigid body with the hinge line at point 8. The\r\n$ vertical flap deflection at point 12 is defined by an MPC equation.\r\n$ \r\n$ The aerodynamic model consists of 42 doublet lattice aerodynamic boxes,\r\n$ forming one coupled group. Three CAERO1 aerodynamic elements are used to\r\n$ define the areas of uniform mesh on the wing. The aerodynamic degrees of\r\n$ freedom, implicitly defined by the CAERO data, are coupled to the structure\r\n$ with surface splines defined on SPLINE2 data cards.\r\n$ \r\n$ B. Input\r\n$ \r\n$ Two separate analyses are performed with this structural model. Problem 11-3-1\r\n$ performs a frequency response analysis for a smooth gust shape and generates\r\n$ spectral density output plots for a random gust magnitude. Problem 11-3-2\r\n$ produces a transient response solution using a Fourier transform of the\r\n$ frequency response solution.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    V = 5183.2         (Airstream velocity)\r\n$ \r\n$    M = 0.62           (Airstream mach number)\r\n$ \r\n$                   -7\r\n$    p = 1.1468 x 1O    (Air density)\r\n$ \r\n$    g = 0.06           (Structural damping)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    theta  = theta  = 0    Grid 11 (No fuselage isolation)\r\n$         y        z\r\n$ \r\n$    u  = u  = theta  = 0   All Grids\r\n$     x    y        z\r\n$ \r\n$    theta  = theta  = 0    All Grids except 11 and 12\r\n$         x        y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Problem 11-3-1. Frequency Response Analysis\r\n$ \r\n$             8360\r\n$      V   =  ---- (1 - cos 2 pi t)     (t < 1)   Gust Velocity\r\n$       g      2\r\n$ \r\n$    Problem 11-3-2. Transient Analysis\r\n$ \r\n$                8360 t < 1.0\r\n$      V   =                        Gust Velocity\r\n$       g      -16720 t > 1.0\r\n$ \r\n$ C. Theory\r\n$ \r\n$ No theoretical results are available to confirm the NASTRAN results.\r\n$ \r\n$ D. Results\r\n$ \r\n$ ??? (fig. refs. only)\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d11032a.inp",
    "content": "ID    D11032A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   11,0                                                                      \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = JET TRANSPORT WING DYNAMIC ANALYSIS                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D11-03-2A                          \r\nLABEL    = SYMMETRIC RESPONSE , SQUARE EDGE GUST , TRANSIENT ANALYSIS           \r\n  ECHO   = BOTH                                                                 \r\n$                                                                               \r\n$       MODEL DESCRIPTION           JET TRANSPORT WING EXAMPLE                  \r\n$                               SYMMETRIC RESPONSE TO A SQUARE                  \r\n$                               EDGE GUST WITH A STIFF AILERON                  \r\n$                                                                               \r\n  SPC    = 14    $  SYM , NO PITCH                                              \r\n  MPC    = 1                                                                    \r\n  METHOD = 10    $  GIVENS                                                      \r\n  SDAMP  = 2000                                                                 \r\n  FREQ   = 40                                                                   \r\n  TSTEP  = 41                                                                   \r\n$$$$$$$ TWELVE MODES AND FORTY TWO BOXES    AERO CALC THREE K VALUES            \r\n  GUST   = 1011  $  SQUARE                                                      \r\n  DLOAD  = 9999  $  NEEDED TO FORCE APPROACH TRANSIENT GUST                     \r\nOUTPUT                                                                          \r\n$                                                                               \r\n$       SOLUTION                TRANSIENT ANALYSIS USING                        \r\n$                               DOUBLET-LATTICE METHOD AERODYNAMICS             \r\n$                               AT MACH NO. OF 0.62                             \r\n$                                                                               \r\n  SET 1 = 1 , 2 , 12 $                                                          \r\n  SET 2 = 1 , 9 THRU 12 , 1040                                                  \r\n  SET 3 = 11                                                                    \r\n  SDISP = 1                                                                     \r\n  DISP  = 2                                                                     \r\n  SPCF  = 3                                                                     \r\n$                                                                               \r\n$       PRODUCES XY PAPER PLOTS OF MODAL AND GRID POINT DISPLACEMENT            \r\n$       AND WING ROOT BENDING MOMENT TIME HISTORIES                             \r\n$                                                                               \r\nOUTPUT(XYOUT)    $ TRANSIENT PACKAGE (REAL NUMBERS)                             \r\n  CURVELINESYMBOL = 1                                                           \r\n  XTITLE  =  TIME(SECONDS)         JET TRANSPORT , SQUARE GUST                  \r\n  TCURVE  =     FIRST MODE (PLUNGE)                                             \r\n  YTITLE  = MODAL DEFLECTION                                                    \r\n  XYPAPERPLOT   SDISP /   1(T1)                                                 \r\n  TCURVE  =     SECOND MODE (WING BENDING)                                      \r\n  XYPAPERPLOT   SDISP /   2(T1)                                                 \r\n  TCURVE  =     TWELFTH MODE  (AILERON)                                         \r\n  XYPAPERPLOT   SDISP /  12(T1)                                                 \r\n  YTITLE  = PHYSICAL DEFLECTION                                                 \r\n  TCURVE  =     WING ( 3/4 CHORD , 1/4 CHORD , STA 458 )                        \r\n  XYPAPERPLOT   DISP /   9(T3) , 10(T3)                                         \r\n  TCURVE  =     FUSELAGE PLUNGE                                                 \r\n  XYPAPERPLOT   DISP /  11(T3)                                                  \r\n  TCURVE  =     AILERON DEFLECTION                                              \r\n  XYPAPERPLOT   DISP /  12(R2)                                                  \r\n  TCURVE  =     AERODYNAMIC BOX NEAR TIP , PITCH                                \r\n  XYPAPERPLOT   DISP /  1040(R2)                                                \r\n  YTITLE  = ROTATIONAL CONSTRAINTS                                              \r\n  TCURVE  =     WING ROOT BENDING MOMENT                                        \r\n  XYPAPERPLOT   SPCF /  11(R3)                                                  \r\nBEGIN BULK                                                                      \r\nAEFACT  1       0.0     .09     .21     .33     .45     .56     .66     +AE1    \r\n+AE1    .74                                                                     \r\nAEFACT  2       .74     .82     .90     .974                                    \r\nAEFACT  3       .974    1.00                                                    \r\nAEFACT  4       0.0     .375    .750    1.00                                    \r\nAEFACT  5       0.0     .1875   .375    .625    .750    .875    1.00            \r\nAERO    1       8360.   131.232 1.1468-71                               SYM     \r\nCAERO1  1001    1000    0                       1       4       1       +CA01   \r\n+CA01   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCAERO1  1022    1000    0                       2       5       1       +CA22   \r\n+CA22   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCAERO1  1040    1000    0                       3       4       1       +CA40   \r\n+CA40   78.75   0.0     0.0     225.    35.     500.    0.0     100.            \r\nCELAS2  3       5142671.12      5                                               \r\nCMASS2  2       13967.2 12      5                                               \r\nCMASS2  121     5248.7  1       3                                               \r\nCMASS2  122     134.9   1       3       2       3                               \r\nCMASS2  123     790.3   2       3                                               \r\nCMASS2  341     9727.   3       3                                               \r\nCMASS2  342     11005.  3       3       4       3                               \r\nCMASS2  343     473.    4       3                                               \r\nCMASS2  561     3253.6  5       3                                               \r\nCMASS2  562     -139.7  5       3       6       3                               \r\nCMASS2  563     946.3   6       3                                               \r\nCMASS2  781     2617.8  7       3                                               \r\nCMASS2  782     21.     7       3       8       3                               \r\nCMASS2  783     782.3   8       3                                               \r\nCMASS2  9101    494.8   9       3                                               \r\nCMASS2  9102    -7.3    9       3       10      3                               \r\nCMASS2  9103    185.2   10      3                                               \r\nCONM1   1       11                                                      +51     \r\n+51     17400.                          4.37+7                          +52     \r\n+52             4.35+09                                                         \r\nCORD2R  1               0.0     0.0     0.0     0.0     0.0     -1.     +C1     \r\n+C1     -1.     0.0     0.0                                                     \r\nDAREA   1001    12      5       5142671.                                        \r\nDAREA   9999    11      1       1.                                      DUMMY   \r\nEIGR    10      GIV     0.0     1.              12                      +EIGR   \r\n+EIGR   MAX                                                                     \r\nFREQ1   40      0.0     .25     39                                              \r\nGENEL   432             1       3       2       3       3       3       +01     \r\n+01     4       3       5       3       6       3       7       3       +02     \r\n+02     8       3       9       3       10      3                       +03     \r\n+03     UD              11      3       11      4       11      5       +03A    \r\n+03A    11      6                                                       +04     \r\n+04     Z       8.7172-61.3361-61.2778-56.2720-61.6251-51.0492-52.0478-5+05     \r\n+05     1.5630-52.4285-52.0403-53.0861-56.2720-63.2297-51.0492-53.3529-5+06     \r\n+06     1.5630-53.5021-52.0257-53.5785-52.7732-51.5726-54.8255-53.7628-5+07     \r\n+07     7.3284-56.4338-59.5810-58.8378-56.3749-53.7628-58.0136-56.4338-5+08     \r\n+08     1.0012-48.8378-51.1811-41.2758-41.1344-41.9350-41.8160-42.5283-4+09     \r\n+09     2.4294-41.6999-41.8160-42.2920-42.4294-42.8249-43.6862-43.5052-4+10     \r\n+10     5.2675-45.1171-44.2292-45.1171-45.7187-48.4840-48.2340-49.2340-4+11     \r\n+11     S       1.0     90.0    -20.25  45.0    1.0     90.0    81.0    +12     \r\n+12     45.0    1.0     186.0   -17.85  141.0   1.0     186.0   71.4    +13     \r\n+13     141.0   1.0     268.0   -15.80  223.0   1.0     268.0   63.2    +14     \r\n+14     223.0   1.0     368.0   -13.30  323.0   1.0     368.0   53.2    +15     \r\n+15     323.0   1.0     458.0   -11.05  413.0   1.0     458.0   44.2    +16     \r\n+16     413.0                                                                   \r\nGRID    1               20.25   90.                     12456                   \r\nGRID    2               -81.    90.                     12456                   \r\nGRID    3               17.85   186.                    12456                   \r\nGRID    4               -71.4   186.                    12456                   \r\nGRID    5               15.8    268.                    12456                   \r\nGRID    6               -63.2   268.                    12456                   \r\nGRID    7               13.3    368.                    12456                   \r\nGRID    8               -53.2   368.                    12456                   \r\nGRID    9               11.05   458.                    12456                   \r\nGRID    10              -44.2   458.                    12456                   \r\nGRID    11              .0      .0                      126                     \r\nGRID    12              -86.45  368.                    1246                    \r\nGUST    1011    1000    1.      0.0     8360.                                   \r\nMKAERO1 .62                                                             +MK     \r\n+MK     .02     .10     .50                                                     \r\nMPC     1       12      3       -1.0    8       3       1.5             +MPC1   \r\n+MPC1           7       3       -0.5    12      5       33.25                   \r\nPAERO1  1000                                                                    \r\nPARAM   GUSTAERO1                                                               \r\nPARAM   IFTM    0                                                               \r\nPARAM   LMODES  12                                                              \r\nPARAM   MACH    .62                                                             \r\nPARAM   Q       4.00747                                                         \r\nPARAM   WTMASS  .0025907                                                        \r\nSET1    14      1       THRU    11                                              \r\nSET1    15      8       10      12                                              \r\nSPC     14      11      45                                                      \r\nSPLINE1 104     1022    1026    1039    15                                      \r\nSPLINE2 101     1001    1001    1021    14      0.0     2.      0       +SP1    \r\n+SP1    -1.0    -1.0                                                            \r\nSPLINE2 102     1022    1022    1037    14      0.0     2.      0       +SP2    \r\n+SP2    -1.0    -1.0                                                            \r\nSPLINE2 103     1040    1040    1042    14      0.0     2.      0       +SP3    \r\n+SP3    -1.0    -1.0                                                            \r\nSUPORT  11      3                                                               \r\nTABDMP1 2000                                                            +T2000  \r\n+T2000  0.0     .06     10.     .06     ENDT                                    \r\nTABLED1 1003                                                            +T1003  \r\n+T1003  0.0     1.      1.      1.      1.      -1.     2.      -1.     +T1003A \r\n+T1003A ENDT                                                                    \r\nTLOAD1  1000    1001                    1003                                    \r\nTLOAD1  9999    9999                    1003                            DUMIE   \r\nTSTEP   41      40      .1      1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d11032a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$              RIGID FORMAT No. 11 (APP AERO), Aeroelastic Response\r\n$        Jet Transport Wing Dynamic Analysis, Frequency Response (11-3-1)\r\n$        Jet Transport Wing Dynamic Analysis, Transient Response (11-3-2)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This example illustrates the use of the aeroelastic response analysis to\r\n$ perform frequency, random, and transient response calculations for a structure\r\n$ excited by aerodynamic loadings. This problem is also discussed in Section\r\n$ 1.11.5 of the User's Manual.\r\n$ \r\n$ For this demonstration problem, the aileron is locked and the fuselage to\r\n$ which the wing is attached is a rigid body represented by grid point 11. Only\r\n$ out-of-plane motions are retained in the model. The wing is modeled with GENEL\r\n$ data defining the flexibility matrix, [Z], and a free-body matrix, [S]. The\r\n$ aileron also is modeled as a rigid body with the hinge line at point 8. The\r\n$ vertical flap deflection at point 12 is defined by an MPC equation.\r\n$ \r\n$ The aerodynamic model consists of 42 doublet lattice aerodynamic boxes,\r\n$ forming one coupled group. Three CAERO1 aerodynamic elements are used to\r\n$ define the areas of uniform mesh on the wing. The aerodynamic degrees of\r\n$ freedom, implicitly defined by the CAERO data, are coupled to the structure\r\n$ with surface splines defined on SPLINE2 data cards.\r\n$ \r\n$ B. Input\r\n$ \r\n$ Two separate analyses are performed with this structural model. Problem 11-3-1\r\n$ performs a frequency response analysis for a smooth gust shape and generates\r\n$ spectral density output plots for a random gust magnitude. Problem 11-3-2\r\n$ produces a transient response solution using a Fourier transform of the\r\n$ frequency response solution.\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    V = 5183.2         (Airstream velocity)\r\n$ \r\n$    M = 0.62           (Airstream mach number)\r\n$ \r\n$                   -7\r\n$    p = 1.1468 x 1O    (Air density)\r\n$ \r\n$    g = 0.06           (Structural damping)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    theta  = theta  = 0    Grid 11 (No fuselage isolation)\r\n$         y        z\r\n$ \r\n$    u  = u  = theta  = 0   All Grids\r\n$     x    y        z\r\n$ \r\n$    theta  = theta  = 0    All Grids except 11 and 12\r\n$         x        y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    Problem 11-3-1. Frequency Response Analysis\r\n$ \r\n$             8360\r\n$      V   =  ---- (1 - cos 2 pi t)     (t < 1)   Gust Velocity\r\n$       g      2\r\n$ \r\n$    Problem 11-3-2. Transient Analysis\r\n$ \r\n$                8360 t < 1.0\r\n$      V   =                        Gust Velocity\r\n$       g      -16720 t > 1.0\r\n$ \r\n$ C. Theory\r\n$ \r\n$ No theoretical results are available to confirm the NASTRAN results.\r\n$ \r\n$ D. Results\r\n$ \r\n$ ??? (fig. refs. only)\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d12011a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    D12011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   12,3                                                                      \r\nTIME  100                                                                       \r\nCEND                                                                            \r\nTITLE    = TRANSIENT ANALYSIS OF A FREE ONE HUNDRED CELL BEAM                   \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                          \r\n   DLOAD = 516                                                                  \r\n   SDAMP = 15                                                                   \r\n   TSTEP = 516                                                                  \r\n  METHOD = 2                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 1, 26, 51, 75, 100                                                   \r\n   SET 2 = 1, 26, 76                                                            \r\n   DISPLACEMENT = 2                                                             \r\n   STRESS = 1                                                                   \r\nPLOTID = NASTRAN DEMONSTRATION PROBLEM NO. D12-01-1A                            \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT                                                                 \r\n        CAMERA = 3                                                              \r\nCSCALE = 2.0                                                                    \r\n        SET 1 INCLUDE BAR,                                                      \r\n          EXCLUDE GRID POINTS 1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,        \r\n          19,20,22,23,24,25,26,27,28,29,30,32,33,34,35,36,37,38,39,40,          \r\n          42,43,44,45,46,47,48,49,50,52,53,54,55,56,57,58,59,60,62,63,          \r\n          64,65,66,67,68,69,70,72,73,74,75,76,77,78,79,80,82,83,84,85,          \r\n          86,87,88,89,90,92,93,94,95,96,97,98,99,100                            \r\n        MAXIMUM DEFORMATION  2.0                                                \r\nSTEREO PROJECTION                                                               \r\n         FIND SCALE, ORIGIN 100, VANTAGE POINT, SET 1                           \r\nPTITLE = PAPER COPY OF STEREOSCOPIC PROJECTION OF DEFORMATIONS                  \r\n         PLOT TRANSIENT DEFORMATION 1, TIME 0.012, 0.013,                       \r\n         MAXIMUM DEFORMATION 0.76, SET 1, ORIGIN 100, SHAPE                     \r\nORTHOGRAPHIC PROJECTION                                                         \r\n         FIND SCALE, ORIGIN 1, REGION 0.0,0.0,1.0,0.5                           \r\n         FIND SCALE, ORIGIN 2, REGION 0.0,0.5,1.0,1.0                           \r\nPTITLE = DEFLECTIONS OF BARS WITH VECTORS                                       \r\n         PLOT TRANSIENT DEFORMATION 1, TIME .012, .016,                         \r\n         MAXIMUM DEFORMATION 1.0,                                               \r\n         SET 1, ORIGIN 1, SHAPE ,                                               \r\n         SET 1, ORIGIN 2, VECTOR Z                                              \r\n$                                                                               \r\n$                                                                               \r\nOUTPUT(XYOUT)                                                                   \r\nPLOTTER = NASTPLT                                                               \r\n     CAMERA = 3                                                                 \r\n     SKIP BETWEEN FRAMES = 1                                                    \r\n     YGRID LINES = YES                                                          \r\n     XGRID LINES = YES                                                          \r\n     YDIVISIONS  = 10                                                           \r\n     XDIVISIONS  = 10                                                           \r\n     XVALUE PRINT SKIP = 1                                                      \r\n     YVALUE PRINT SKIP = 1                                                      \r\n     XTITLE =                     TIME (SECONDS)                                \r\n     YTITLE =      D I S P  * INCH *                                            \r\n     TCURVE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *         \r\nXYPLOT,XYPRINT,DISP RESP /  51(T3)                                              \r\n     TCURVE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *         \r\nXYPLOT,XYPRINT,DISP RESP / 101(T3)                                              \r\n     YTITLE = ACCELERATION                                                      \r\n     TCURVE = * * * * * * *  G R I D    5 1   * * * * * * * * * * * * *         \r\nXYPLOT,XYPRINT,ACCE RESP /  51(T3)                                              \r\n     TCURVE = * * * * * * *  G R I D    1 0 1   * * * * * * * * * * * *         \r\nXYPLOT,XYPRINT,ACCE RESP / 101(T3)                                              \r\nBEGIN BULK                                                                      \r\nBAROR                                   10.0    .0      100.0   1               \r\nCBAR    1       17      1       2                                               \r\nCBAR    2       17      2       3                                               \r\nCBAR    3       17      3       4                                               \r\nCBAR    4       17      4       5                                               \r\nCBAR    5       17      5       6                                               \r\nCBAR    6       17      6       7                                               \r\nCBAR    7       17      7       8                                               \r\nCBAR    8       17      8       9                                               \r\nCBAR    9       17      9       10                                              \r\nCBAR    10      17      10      11                                              \r\nCBAR    11      17      11      12                                              \r\nCBAR    12      17      12      13                                              \r\nCBAR    13      17      13      14                                              \r\nCBAR    14      17      14      15                                              \r\nCBAR    15      17      15      16                                              \r\nCBAR    16      17      16      17                                              \r\nCBAR    17      17      17      18                                              \r\nCBAR    18      17      18      19                                              \r\nCBAR    19      17      19      20                                              \r\nCBAR    20      17      20      21                                              \r\nCBAR    21      17      21      22                                              \r\nCBAR    22      17      22      23                                              \r\nCBAR    23      17      23      24                                              \r\nCBAR    24      17      24      25                                              \r\nCBAR    25      17      25      26                                              \r\nCBAR    26      17      26      27                                              \r\nCBAR    27      17      27      28                                              \r\nCBAR    28      17      28      29                                              \r\nCBAR    29      17      29      30                                              \r\nCBAR    30      17      30      31                                              \r\nCBAR    31      17      31      32                                              \r\nCBAR    32      17      32      33                                              \r\nCBAR    33      17      33      34                                              \r\nCBAR    34      17      34      35                                              \r\nCBAR    35      17      35      36                                              \r\nCBAR    36      17      36      37                                              \r\nCBAR    37      17      37      38                                              \r\nCBAR    38      17      38      39                                              \r\nCBAR    39      17      39      40                                              \r\nCBAR    40      17      40      41                                              \r\nCBAR    41      17      41      42                                              \r\nCBAR    42      17      42      43                                              \r\nCBAR    43      17      43      44                                              \r\nCBAR    44      17      44      45                                              \r\nCBAR    45      17      45      46                                              \r\nCBAR    46      17      46      47                                              \r\nCBAR    47      17      47      48                                              \r\nCBAR    48      17      48      49                                              \r\nCBAR    49      17      49      50                                              \r\nCBAR    50      17      50      51                                              \r\nCBAR    51      17      51      52                                              \r\nCBAR    52      17      52      53                                              \r\nCBAR    53      17      53      54                                              \r\nCBAR    54      17      54      55                                              \r\nCBAR    55      17      55      56                                              \r\nCBAR    56      17      56      57                                              \r\nCBAR    57      17      57      58                                              \r\nCBAR    58      17      58      59                                              \r\nCBAR    59      17      59      60                                              \r\nCBAR    60      17      60      61                                              \r\nCBAR    61      17      61      62                                              \r\nCBAR    62      17      62      63                                              \r\nCBAR    63      17      63      64                                              \r\nCBAR    64      17      64      65                                              \r\nCBAR    65      17      65      66                                              \r\nCBAR    66      17      66      67                                              \r\nCBAR    67      17      67      68                                              \r\nCBAR    68      17      68      69                                              \r\nCBAR    69      17      69      70                                              \r\nCBAR    70      17      70      71                                              \r\nCBAR    71      17      71      72                                              \r\nCBAR    72      17      72      73                                              \r\nCBAR    73      17      73      74                                              \r\nCBAR    74      17      74      75                                              \r\nCBAR    75      17      75      76                                              \r\nCBAR    76      17      76      77                                              \r\nCBAR    77      17      77      78                                              \r\nCBAR    78      17      78      79                                              \r\nCBAR    79      17      79      80                                              \r\nCBAR    80      17      80      81                                              \r\nCBAR    81      17      81      82                                              \r\nCBAR    82      17      82      83                                              \r\nCBAR    83      17      83      84                                              \r\nCBAR    84      17      84      85                                              \r\nCBAR    85      17      85      86                                              \r\nCBAR    86      17      86      87                                              \r\nCBAR    87      17      87      88                                              \r\nCBAR    88      17      88      89                                              \r\nCBAR    89      17      89      90                                              \r\nCBAR    90      17      90      91                                              \r\nCBAR    91      17      91      92                                              \r\nCBAR    92      17      92      93                                              \r\nCBAR    93      17      93      94                                              \r\nCBAR    94      17      94      95                                              \r\nCBAR    95      17      95      96                                              \r\nCBAR    96      17      96      97                                              \r\nCBAR    97      17      97      98                                              \r\nCBAR    98      17      98      99                                              \r\nCBAR    99      17      99      100                                             \r\nCBAR    100     17      100     101                                             \r\nCONM2   20      1               10.0                                    +M1     \r\n+M1                     1666.66                                                 \r\nDAREA   1       101     3       100.                                            \r\nEIGR    2       INV     .0      1500.   5       6                       PEG     \r\n+EG     MASS                                                                    \r\nGRDSET                                                  1246                    \r\nGRID    1               .00     .00     .00                                     \r\nGRID    2               .20     .00     .00                                     \r\nGRID    3               .40     .00     .00                                     \r\nGRID    4               .60     .00     .00                                     \r\nGRID    5               .80     .00     .00                                     \r\nGRID    6               1.00    .00     .00                                     \r\nGRID    7               1.20    .00     .00                                     \r\nGRID    8               1.40    .00     .00                                     \r\nGRID    9               1.60    .00     .00                                     \r\nGRID    10              1.80    .00     .00                                     \r\nGRID    11              2.00    .00     .00                                     \r\nGRID    12              2.20    .00     .00                                     \r\nGRID    13              2.40    .00     .00                                     \r\nGRID    14              2.60    .00     .00                                     \r\nGRID    15              2.80    .00     .00                                     \r\nGRID    16              3.00    .00     .00                                     \r\nGRID    17              3.20    .00     .00                                     \r\nGRID    18              3.40    .00     .00                                     \r\nGRID    19              3.60    .00     .00                                     \r\nGRID    20              3.80    .00     .00                                     \r\nGRID    21              4.00    .00     .00                                     \r\nGRID    22              4.20    .00     .00                                     \r\nGRID    23              4.40    .00     .00                                     \r\nGRID    24              4.60    .00     .00                                     \r\nGRID    25              4.80    .00     .00                                     \r\nGRID    26              5.00    .00     .00                                     \r\nGRID    27              5.20    .00     .00                                     \r\nGRID    28              5.40    .00     .00                                     \r\nGRID    29              5.60    .00     .00                                     \r\nGRID    30              5.80    .00     .00                                     \r\nGRID    31              6.00    .00     .00                                     \r\nGRID    32              6.20    .00     .00                                     \r\nGRID    33              6.40    .00     .00                                     \r\nGRID    34              6.60    .00     .00                                     \r\nGRID    35              6.80    .00     .00                                     \r\nGRID    36              7.00    .00     .00                                     \r\nGRID    37              7.20    .00     .00                                     \r\nGRID    38              7.40    .00     .00                                     \r\nGRID    39              7.60    .00     .00                                     \r\nGRID    40              7.80    .00     .00                                     \r\nGRID    41              8.00    .00     .00                                     \r\nGRID    42              8.20    .00     .00                                     \r\nGRID    43              8.40    .00     .00                                     \r\nGRID    44              8.60    .00     .00                                     \r\nGRID    45              8.80    .00     .00                                     \r\nGRID    46              9.00    .00     .00                                     \r\nGRID    47              9.20    .00     .00                                     \r\nGRID    48              9.40    .00     .00                                     \r\nGRID    49              9.60    .00     .00                                     \r\nGRID    50              9.80    .00     .00                                     \r\nGRID    51              10.00   .00     .00                                     \r\nGRID    52              10.20   .00     .00                                     \r\nGRID    53              10.40   .00     .00                                     \r\nGRID    54              10.60   .00     .00                                     \r\nGRID    55              10.80   .00     .00                                     \r\nGRID    56              11.00   .00     .00                                     \r\nGRID    57              11.20   .00     .00                                     \r\nGRID    58              11.40   .00     .00                                     \r\nGRID    59              11.60   .00     .00                                     \r\nGRID    60              11.80   .00     .00                                     \r\nGRID    61              12.00   .00     .00                                     \r\nGRID    62              12.20   .00     .00                                     \r\nGRID    63              12.40   .00     .00                                     \r\nGRID    64              12.60   .00     .00                                     \r\nGRID    65              12.80   .00     .00                                     \r\nGRID    66              13.00   .00     .00                                     \r\nGRID    67              13.20   .00     .00                                     \r\nGRID    68              13.40   .00     .00                                     \r\nGRID    69              13.60   .00     .00                                     \r\nGRID    70              13.80   .00     .00                                     \r\nGRID    71              14.00   .00     .00                                     \r\nGRID    72              14.20   .00     .00                                     \r\nGRID    73              14.40   .00     .00                                     \r\nGRID    74              14.60   .00     .00                                     \r\nGRID    75              14.80   .00     .00                                     \r\nGRID    76              15.00   .00     .00                                     \r\nGRID    77              15.20   .00     .00                                     \r\nGRID    78              15.40   .00     .00                                     \r\nGRID    79              15.60   .00     .00                                     \r\nGRID    80              15.80   .00     .00                                     \r\nGRID    81              16.00   .00     .00                                     \r\nGRID    82              16.20   .00     .00                                     \r\nGRID    83              16.40   .00     .00                                     \r\nGRID    84              16.60   .00     .00                                     \r\nGRID    85              16.80   .00     .00                                     \r\nGRID    86              17.00   .00     .00                                     \r\nGRID    87              17.20   .00     .00                                     \r\nGRID    88              17.40   .00     .00                                     \r\nGRID    89              17.60   .00     .00                                     \r\nGRID    90              17.80   .00     .00                                     \r\nGRID    91              18.00   .00     .00                                     \r\nGRID    92              18.20   .00     .00                                     \r\nGRID    93              18.40   .00     .00                                     \r\nGRID    94              18.60   .00     .00                                     \r\nGRID    95              18.80   .00     .00                                     \r\nGRID    96              19.00   .00     .00                                     \r\nGRID    97              19.20   .00     .00                                     \r\nGRID    98              19.40   .00     .00                                     \r\nGRID    99              19.60   .00     .00                                     \r\nGRID    100             19.80   .00     .00                                     \r\nGRID    101             20.00   .00     .00                                     \r\nMAT1    1       10.4+6  4.+6            .2523-3                         +MAT1   \r\n+MAT1   111.111 11.1111                                                         \r\nOMIT1   53      2       3       4       5       6       7       8       +100    \r\n+100    9       10      12      13      14      15      16      17      +200    \r\n+200    18      19      20      22      23      24      25      26      +300    \r\n+300    27      28      29      30      32      33      34      35      +400    \r\n+400    36      37      38      39      40      42      43      44      +500    \r\n+500    45      46      47      48      49      50      52      53      +600    \r\n+600    54      55      56      57      58      59      60      62      +700    \r\n+700    63      64      65      66      67      68      69      70      +800    \r\n+800    72      73      74      75      76      77      78      79      +900    \r\n+900    80      82      83      84      85      86      87      88      +101    \r\n+101    89      90      92      93      94      95      96      97      +201    \r\n+201    98      99      100                                                     \r\nPARAM   GRDPNT  0                                                               \r\nPARAM   LMODES  6                                                               \r\nPBAR    17      1       1.      .083    .083                            +PBAR   \r\n+PBAR   1.11111 -1.11111                                                        \r\nSUPORT  1       3       1       5                                               \r\nTABDMP1 15                                                              +TD11   \r\n+TD11   10.     .01     100.    .1      3000.   .1      ENDT                    \r\nTLOAD2  516     1                       .0      .1      60.                     \r\nTSTEP   516     104     .001388 1                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d12011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$           RIGID FORMAT No. 12, Transient Analysis - Modal Formulation\r\n$           Transient Analysis of a Free One Hundred Cell Beam (12-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ \r\n$ The problem demonstrates the transient analysis of a free-body using the\r\n$ integration algorithm for uncoupled modal formulations. The model is a\r\n$ hundred-cell beam with a very large mass attached to one end. Modal damping is\r\n$ included as a function of natural frequency. It does not affect the free-body\r\n$ (zero frequency) modes. The omitted coordinate feature was used to reduce the\r\n$ analysis set of displacements to correspond to eleven grid points.\r\n$ \r\n$ Both structure plots and curve plots are requested. The types are as follows:\r\n$ \r\n$ 1. Stereoscopic structure plots of the deformed structure are drawn for a\r\n$    specified time step.\r\n$ \r\n$ 2. Orthographic projections of the deformed structure are plotted. However,\r\n$    two variations are plotted on each frame. The bottom region of the frame\r\n$    shows the deformed shape and the top region shows vectors at every tenth\r\n$    grid point which are proportional to the z-displacement at each specified\r\n$    time step.\r\n$ \r\n$ 3. Curve plots and printout of displacement versus time and of acceleration\r\n$    versus time are requested.\r\n$ \r\n$ When a structure is used without additional transfer functions or direct\r\n$ matrix inputs, the transient analysis solves exact equations for the uncoupled\r\n$ modes. The only errors will be in the discarded modes and the straight line\r\n$ approximation of the loads between time steps. The speed of this solution is\r\n$ offset by the fact that the eigenvalue calculation is relatively costly and\r\n$ the transformation of the vectors to and from modal coordinates could be time\r\n$ consuming.\r\n$ \r\n$ The mass and inertia on point (1) were selected to be much larger than values\r\n$ of the beam. The answers will therefore approximate a beam with a fixed end.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters\r\n$ \r\n$    Beam:\r\n$ \r\n$      l =  20             (Length)\r\n$ \r\n$      I =  .083           (Bending inertia)\r\n$ \r\n$      A =  1.0            (Cross sectional area)\r\n$                    6\r\n$      E =  10.4 x 10      (Modulus of elasticity)\r\n$                     -3\r\n$      p =  .2523 x 10     (Mass density)\r\n$ \r\n$    Lumped Mass:\r\n$ \r\n$      m   =  10.0, I      =  1666.66\r\n$       1            22,1\r\n$ \r\n$ 2. Damping:\r\n$ \r\n$    The damping coefficient for each mode is a function of the natural\r\n$    frequency. The function is:\r\n$ \r\n$              -3\r\n$      g  =  10  f\r\n$ \r\n$ 3. Load:\r\n$ \r\n$      P       =  100 sin(2 pi 60t)\r\n$       z,101\r\n$ \r\n$ 4. Real Eigenvalue Data\r\n$ \r\n$    Method: Inverse Power\r\n$ \r\n$    Region of Interest: 0 < f < 1000\r\n$ \r\n$    Normalization: Mass\r\n$ \r\n$ D. Results\r\n$ \r\n$ The modal mass may be calculated using the formula for the mode shape given in\r\n$ Reference 8. The modal displacement is a single degree of freedom response\r\n$ with a closed form solution.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 8. W. F. Stokey, \"Vibration of Systems Having Distributed Mass and\r\n$    Elasticity\", Chap. 7, SHOCK AND VIBRATION HANDBOOK, C. M. Harris and C. E.\r\n$    Crede, Editors, McGraw-Hill, 1961.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d13011a.inp",
    "content": "ID    D13011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   13,0                                                                      \r\nTIME  25                                                                        \r\nCEND                                                                            \r\nTITLE    = NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS                    \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D13-01-1A                          \r\n     SPC = 2                                                                    \r\n     SET 1 = 11,21,31,41,51,61,71,81,91                                         \r\n     DISPLACEMENT = 1                                                           \r\n     ELFORCE = 1                                                                \r\nSUBCASE 20                                                                      \r\n   LABEL = STATICS SOLUTION.                                                    \r\n    LOAD = 100                                                                  \r\n   OLOAD = ALL                                                                  \r\nSUBCASE 40                                                                      \r\n   LABEL = SECOND ORDER STATICS SOLUTION.                                       \r\n   DSCOEFFICIENT = DEFAULT                                                      \r\nSUBCASE 80                                                                      \r\n   LABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS EFFECTS                     \r\n  METHOD = 101                                                                  \r\nBEGIN BULK                                                                      \r\nBAROR                                   .0      1.      .0      1               \r\nCBAR    1       1       1       2                                               \r\nCBAR    2       1       2       3                                               \r\nCBAR    3       1       3       4                                               \r\nCBAR    4       1       4       5                                               \r\nCBAR    5       1       5       6                                               \r\nCBAR    6       1       6       7                                               \r\nCBAR    7       1       7       8                                               \r\nCBAR    8       1       8       9                                               \r\nCBAR    9       1       9       10                                              \r\nCBAR    10      1       10      11                                              \r\nCBAR    11      1       11      12                                              \r\nCBAR    12      1       12      13                                              \r\nCBAR    13      1       13      14                                              \r\nCBAR    14      1       14      15                                              \r\nCBAR    15      1       15      16                                              \r\nCBAR    16      1       16      17                                              \r\nCBAR    17      1       17      18                                              \r\nCBAR    18      1       18      19                                              \r\nCBAR    19      1       19      20                                              \r\nCBAR    20      1       20      21                                              \r\nCBAR    21      1       21      22                                              \r\nCBAR    22      1       22      23                                              \r\nCBAR    23      1       23      24                                              \r\nCBAR    24      1       24      25                                              \r\nCBAR    25      1       25      26                                              \r\nCBAR    26      1       26      27                                              \r\nCBAR    27      1       27      28                                              \r\nCBAR    28      1       28      29                                              \r\nCBAR    29      1       29      30                                              \r\nCBAR    30      1       30      31                                              \r\nCBAR    31      1       31      32                                              \r\nCBAR    32      1       32      33                                              \r\nCBAR    33      1       33      34                                              \r\nCBAR    34      1       34      35                                              \r\nCBAR    35      1       35      36                                              \r\nCBAR    36      1       36      37                                              \r\nCBAR    37      1       37      38                                              \r\nCBAR    38      1       38      39                                              \r\nCBAR    39      1       39      40                                              \r\nCBAR    40      1       40      41                                              \r\nCBAR    41      1       41      42                                              \r\nCBAR    42      1       42      43                                              \r\nCBAR    43      1       43      44                                              \r\nCBAR    44      1       44      45                                              \r\nCBAR    45      1       45      46                                              \r\nCBAR    46      1       46      47                                              \r\nCBAR    47      1       47      48                                              \r\nCBAR    48      1       48      49                                              \r\nCBAR    49      1       49      50                                              \r\nCBAR    50      1       50      51                                              \r\nCBAR    51      1       51      52                                              \r\nCBAR    52      1       52      53                                              \r\nCBAR    53      1       53      54                                              \r\nCBAR    54      1       54      55                                              \r\nCBAR    55      1       55      56                                              \r\nCBAR    56      1       56      57                                              \r\nCBAR    57      1       57      58                                              \r\nCBAR    58      1       58      59                                              \r\nCBAR    59      1       59      60                                              \r\nCBAR    60      1       60      61                                              \r\nCBAR    61      1       61      62                                              \r\nCBAR    62      1       62      63                                              \r\nCBAR    63      1       63      64                                              \r\nCBAR    64      1       64      65                                              \r\nCBAR    65      1       65      66                                              \r\nCBAR    66      1       66      67                                              \r\nCBAR    67      1       67      68                                              \r\nCBAR    68      1       68      69                                              \r\nCBAR    69      1       69      70                                              \r\nCBAR    70      1       70      71                                              \r\nCBAR    71      1       71      72                                              \r\nCBAR    72      1       72      73                                              \r\nCBAR    73      1       73      74                                              \r\nCBAR    74      1       74      75                                              \r\nCBAR    75      1       75      76                                              \r\nCBAR    76      1       76      77                                              \r\nCBAR    77      1       77      78                                              \r\nCBAR    78      1       78      79                                              \r\nCBAR    79      1       79      80                                              \r\nCBAR    80      1       80      81                                              \r\nCBAR    81      1       81      82                                              \r\nCBAR    82      1       82      83                                              \r\nCBAR    83      1       83      84                                              \r\nCBAR    84      1       84      85                                              \r\nCBAR    85      1       85      86                                              \r\nCBAR    86      1       86      87                                              \r\nCBAR    87      1       87      88                                              \r\nCBAR    88      1       88      89                                              \r\nCBAR    89      1       89      90                                              \r\nCBAR    90      1       90      91                                              \r\nCBAR    91      1       91      92                                              \r\nCBAR    92      1       92      93                                              \r\nCBAR    93      1       93      94                                              \r\nCBAR    94      1       94      95                                              \r\nCBAR    95      1       95      96                                              \r\nCBAR    96      1       96      97                                              \r\nCBAR    97      1       97      98                                              \r\nCBAR    98      1       98      99                                              \r\nCBAR    99      1       99      100                                             \r\nCBAR    100     1       100     101                                             \r\nEIGR    101     INV     .0      200.0   3       3       3       1.-4    +EIG1   \r\n+EIG1   MAX                                                                     \r\nFORCE1  100     101     3423.17 101     1                                       \r\nGRDSET                                                  345                     \r\nGRID    1               .0                                                      \r\nGRID    2               1.0                                                     \r\nGRID    3               2.0                                                     \r\nGRID    4               3.0                                                     \r\nGRID    5               4.0                                                     \r\nGRID    6               5.0                                                     \r\nGRID    7               6.0                                                     \r\nGRID    8               7.0                                                     \r\nGRID    9               8.0                                                     \r\nGRID    10              9.0                                                     \r\nGRID    11              10.0                                                    \r\nGRID    12              11.0                                                    \r\nGRID    13              12.0                                                    \r\nGRID    14              13.0                                                    \r\nGRID    15              14.0                                                    \r\nGRID    16              15.0                                                    \r\nGRID    17              16.0                                                    \r\nGRID    18              17.0                                                    \r\nGRID    19              18.0                                                    \r\nGRID    20              19.0                                                    \r\nGRID    21              20.0                                                    \r\nGRID    22              21.0                                                    \r\nGRID    23              22.0                                                    \r\nGRID    24              23.0                                                    \r\nGRID    25              24.0                                                    \r\nGRID    26              25.0                                                    \r\nGRID    27              26.0                                                    \r\nGRID    28              27.0                                                    \r\nGRID    29              28.0                                                    \r\nGRID    30              29.0                                                    \r\nGRID    31              30.0                                                    \r\nGRID    32              31.0                                                    \r\nGRID    33              32.0                                                    \r\nGRID    34              33.0                                                    \r\nGRID    35              34.0                                                    \r\nGRID    36              35.0                                                    \r\nGRID    37              36.0                                                    \r\nGRID    38              37.0                                                    \r\nGRID    39              38.0                                                    \r\nGRID    40              39.0                                                    \r\nGRID    41              40.0                                                    \r\nGRID    42              41.0                                                    \r\nGRID    43              42.0                                                    \r\nGRID    44              43.0                                                    \r\nGRID    45              44.0                                                    \r\nGRID    46              45.0                                                    \r\nGRID    47              46.0                                                    \r\nGRID    48              47.0                                                    \r\nGRID    49              48.0                                                    \r\nGRID    50              49.0                                                    \r\nGRID    51              50.0                                                    \r\nGRID    52              51.0                                                    \r\nGRID    53              52.0                                                    \r\nGRID    54              53.0                                                    \r\nGRID    55              54.0                                                    \r\nGRID    56              55.0                                                    \r\nGRID    57              56.0                                                    \r\nGRID    58              57.0                                                    \r\nGRID    59              58.0                                                    \r\nGRID    60              59.0                                                    \r\nGRID    61              60.0                                                    \r\nGRID    62              61.0                                                    \r\nGRID    63              62.0                                                    \r\nGRID    64              63.0                                                    \r\nGRID    65              64.0                                                    \r\nGRID    66              65.0                                                    \r\nGRID    67              66.0                                                    \r\nGRID    68              67.0                                                    \r\nGRID    69              68.0                                                    \r\nGRID    70              69.0                                                    \r\nGRID    71              70.0                                                    \r\nGRID    72              71.0                                                    \r\nGRID    73              72.0                                                    \r\nGRID    74              73.0                                                    \r\nGRID    75              74.0                                                    \r\nGRID    76              75.0                                                    \r\nGRID    77              76.0                                                    \r\nGRID    78              77.0                                                    \r\nGRID    79              78.0                                                    \r\nGRID    80              79.0                                                    \r\nGRID    81              80.0                                                    \r\nGRID    82              81.0                                                    \r\nGRID    83              82.0                                                    \r\nGRID    84              83.0                                                    \r\nGRID    85              84.0                                                    \r\nGRID    86              85.0                                                    \r\nGRID    87              86.0                                                    \r\nGRID    88              87.0                                                    \r\nGRID    89              88.0                                                    \r\nGRID    90              89.0                                                    \r\nGRID    91              90.0                                                    \r\nGRID    92              91.0                                                    \r\nGRID    93              92.0                                                    \r\nGRID    94              93.0                                                    \r\nGRID    95              94.0                                                    \r\nGRID    96              95.0                                                    \r\nGRID    97              96.0                                                    \r\nGRID    98              97.0                                                    \r\nGRID    99              98.0                                                    \r\nGRID    100             99.0                                                    \r\nGRID    101             100.0                                                   \r\nMAT1    22      10.4E6          .3      2.0E-4                                  \r\nPBAR    1       22      2.0     .666667 .666667                                 \r\nSPC     2       1       12      .0      101     2       .0                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d13011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$          RIGID FORMAT No. 13 Normal Modes with Differential Stiffness\r\n$      Normal Modes of a 100-Ce1l Beam with Differential Stiffness (13-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ This problem illustrates the effects of differential stiffness on the solution\r\n$ for the normal modes of a beam under axial compression.\r\n$ \r\n$ The natural frequencies of the beam are affected by this load as shown in\r\n$ Reference 23. The loading specified here is one half of the Euler value for\r\n$ compression buckling, which decreases the unloaded natural frequency, w,\r\n$ proportional to\r\n$ \r\n$      +            +\r\n$      |   2        | 1/2\r\n$      | pi EI      |\r\n$      | -----  - F |\r\n$      |   2        |\r\n$      |  l         |\r\n$      +            +\r\n$ \r\n$ where F is the applied load.\r\n$ \r\n$ The structural model is a uniform 100 cell beam hinged at both ends.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    A = 2.0         (cross sectional area)\r\n$ \r\n$    I = 0.667       (bending inertia)\r\n$ \r\n$                 6\r\n$    E = 10.4 x 10   (modulus of elasticity)\r\n$ \r\n$    l = 100.0       (length)\r\n$                -4\r\n$    p = 2.0 x 10    (mass density)\r\n$ \r\n$ 2. Constraints:\r\n$ \r\n$    u  = theta  = 0  = 0     (all points)\r\n$     z        x    y\r\n$ \r\n$    u  = 0                    (point 101)\r\n$     y\r\n$ \r\n$    u  = u  = 0               (point 1)\r\n$     x    y\r\n$ \r\n$ 3. Loads:\r\n$ \r\n$    F      = 3423.17\r\n$     101,x\r\n$ \r\n$    B      = 1.0       (default load factor)\r\n$ \r\n$ C. Theory\r\n$ \r\n$ The theoretical natural frequency for the first mode is given by\r\n$ \r\n$         +                      +\r\n$         |             2        | 1/2\r\n$         |    l      pi EI      |\r\n$    f  = |  ------  (----- - F) |                                           (1)\r\n$         |       2      2       |\r\n$         |  4pA l      l        |\r\n$         +                      +\r\n$ \r\n$ For this loading of one half the Euler buckling value, the theoretical value\r\n$ is 14.6269 Hertz for the bending mode.\r\n$ \r\n$ D. Results\r\n$ \r\n$ The natural frequency computed using NASTRAN is 14.62325 Hertz.\r\n$ \r\n$ APPLICABLE REFERENCES\r\n$ \r\n$ 23. Timoshenko, S. P., Theory of Elastic Stability, McGraw-Hill, 1961, p 159.\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d14011a.inp",
    "content": "ID    D14011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   14,0                                                                      \r\nTIME  15                                                                        \r\nCEND                                                                            \r\nTITLE    = STATIC ANALYSIS OF A CIRCULAR PLATE                                  \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D14-01-1A                          \r\nLABEL    = DIHEDRAL CYCLIC SYMMETRY                                             \r\n   SPC   = 101                                                                  \r\nOUTPUT                                                                          \r\n   OLOAD = ALL                                                                  \r\n   DISP  = ALL                                                                  \r\n   SPCF  = ALL                                                                  \r\nSUBCASE  1                                                                      \r\nLABEL    = SEGMENT  1 RIGHT                                                     \r\nSUBCASE  2                                                                      \r\nLABEL    = SEGMENT  1 LEFT                                                      \r\nSUBCASE  3                                                                      \r\nLABEL    = SEGMENT  2 RIGHT                                                     \r\n    LOAD = 102                                                                  \r\nSUBCASE  4                                                                      \r\nLABEL    = SEGMENT  2 LEFT                                                      \r\n    LOAD = 102                                                                  \r\nSUBCASE  5                                                                      \r\nLABEL    = SEGMENT  3 RIGHT                                                     \r\nSUBCASE  6                                                                      \r\nLABEL    = SEGMENT  3 LEFT                                                      \r\nSUBCASE  7                                                                      \r\nLABEL    = SEGMENT  4 RIGHT                                                     \r\nSUBCASE  8                                                                      \r\nLABEL    = SEGMENT  4 LEFT                                                      \r\nSUBCASE  9                                                                      \r\nLABEL    = SEGMENT  5 RIGHT                                                     \r\nSUBCASE  10                                                                     \r\nLABEL    = SEGMENT  5 LEFT                                                      \r\nSUBCASE  11                                                                     \r\nLABEL    = SEGMENT  6 RIGHT                                                     \r\nSUBCASE  12                                                                     \r\nLABEL    = SEGMENT  6 LEFT                                                      \r\nBEGIN BULK                                                                      \r\nCBAR    1       1       10      20      .0      .0      1.      1               \r\nCBAR    2       1       20      30      .0      .0      1.      1               \r\nCBAR    3       1       30      40      .0      .0      1.      1               \r\nCBAR    4       1       40      50      .0      .0      1.      1               \r\nCBAR    5       1       50      60      .0      .0      1.      1               \r\nCNGRNT  10      11                                                              \r\nCNGRNT  20      21                                                              \r\nCNGRNT  30      31                                                              \r\nCNGRNT  40      41                                                              \r\nCNGRNT  50      51                                                              \r\nCORD2C  1       0       .0      .0      .0      .0      .0      1.      +C1     \r\n+C1     1.      .0      .0                                                      \r\nCQUAD2  10      1       10      11      21      20                              \r\nCQUAD2  11      1       11      12      22      21                              \r\nCQUAD2  20      1       20      21      31      30                              \r\nCQUAD2  21      1       21      22      32      31                              \r\nCQUAD2  30      1       30      31      41      40                              \r\nCQUAD2  31      1       31      32      42      41                              \r\nCQUAD2  40      1       40      41      51      50                              \r\nCQUAD2  41      1       41      42      52      51                              \r\nCQUAD2  50      1       50      51      61      60                              \r\nCQUAD2  51      1       51      52      62      61                              \r\nCYJOIN  1       C       10      20      30      40      50      60      CYC SYM \r\nCYJOIN  2       C       12      22      32      42      52      62      CYC SYM \r\nGRDSET          1                               1                               \r\nGRID    10              1.0     .0      .0                                      \r\nGRID    11              1.0     15.0    .0                                      \r\nGRID    12              1.0     30.0    .0                                      \r\nGRID    20              .68     .0      .0                                      \r\nGRID    21              .68     15.0    .0                                      \r\nGRID    22              .68     30.0    .0                                      \r\nGRID    30              .46     .0      .0                                      \r\nGRID    31              .46     15.0    .0                                      \r\nGRID    32              .46     30.0    .0                                      \r\nGRID    40              .31     .0      .0                                      \r\nGRID    41              .31     15.0    .0                                      \r\nGRID    42              .31     30.0    .0                                      \r\nGRID    50              .21     .0      .0                                      \r\nGRID    51              .21     15.0    .0                                      \r\nGRID    52              .21     30.0    .0                                      \r\nGRID    60              .14     .0      .0                                      \r\nGRID    61              .14     15.0    .0                                      \r\nGRID    62              .14     30.0    .0                                      \r\nMAT1    1       10.6 +6         .325    2.59 -4 12.9 -6                         \r\nPARAM   CTYPE   DRL                                                     CYC SYM \r\nPARAM   KMAX    2                                                       CYC SYM \r\nPARAM   NLOAD   1                                                       CYC SYM \r\nPARAM   NSEGS   6                                                       CYC SYM \r\nPBAR    1       1       1.8 -3  5.4 -7  5.4 -7  1.0 -6                  +PB1    \r\n+PB1    .0      .03     .03     .0      .03     .03     .03     -.03            \r\nPLOAD2  102     200.    10      20      30      40      50                      \r\nPLOAD2  102     200.    11      21      31      41      51                      \r\nPQUAD2  1       1       .01                                                     \r\nSPC1    110     12346   10      11      12                                      \r\nSPC1    112     126     10      11      12      20      21      22              \r\nSPC1    112     126     30      31      32      40      41      42              \r\nSPC1    112     126     50      51      52      60      61      62              \r\nSPCADD  101     110     112                                                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d14011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$            RIGID FORMAT No. 14, Static Analysis with Cyclic Symmetry\r\n$                  Circular Plate Using Cyclic Symmetry (14-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ A constant thickness circular plate with six radial stiffeners and a central\r\n$ hole is analyzed using dihedral symmetry. The plate is subjected to a uniform\r\n$ pressure load applied over a 60 degree segment of the plate.\r\n$ \r\n$ The stringers are 60 degrees apart but only 30 degrees of the structure needs\r\n$ to be modeled when using the dihedral symmetry option. There are 12 subcases\r\n$ since these are 2 half segments in a 60 degree segment and only one loading\r\n$ condition. The CYJOIN bulk data card defines those points in the middle of the\r\n$ segment (SIDE 2) and those points on the boundary between segments (SIDE 1).\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    R  =  1.0        (outside radius)\r\n$     o\r\n$ \r\n$    R  =   .14       (inside radius)\r\n$     i\r\n$ \r\n$    t  =   .01       (plate thickness)\r\n$ \r\n$    a  =   .06       (height and width of stiffeners)\r\n$ \r\n$                  6\r\n$    E  = 10.6 x 10   (modulus of elasticity)\r\n$ \r\n$    v  =   .325      (Poisson's ratio)\r\n$ \r\n$ 2. Boundary Conditions:\r\n$ \r\n$    U  = U      = theta  = 0   (all points)\r\n$     r    theta        z\r\n$ \r\n$    U  = theta  = 0            (along r = 1.0)\r\n$     z        r\r\n$ \r\n$ 3. Applied loads:\r\n$ \r\n$    Pressure = 200.0 between theta = 60 degrees and 120 degrees\r\n$ \r\n$ 4. Cyclic symmetry parameters:\r\n$ \r\n$    CTYPE  = DRL\r\n$ \r\n$    KMAX   = 2\r\n$ \r\n$    NSEGS  = 6\r\n$ \r\n$    NLOAD  = 1\r\n$ \r\n$ C. Results\r\n$ \r\n$ The structure can be analyzed using rotational symmetry or dihedral symmetry\r\n$ described here and the results will be identical.\r\n$ \r\n$ The results for the normal displacements are given in Table 1 for r = 0.46.\r\n$ \r\n$     Table 1. Displacements of Circular Plate Under Pressure Load at r = 0.46\r\n$                         --------------------------------\r\n$                                     DIHEDRAL\r\n$                                      METHOD\r\n$                                   ------------\r\n$                         theta     Subcase Grid     Value\r\n$                         --------------------------------\r\n$                           0         1       30     1.365\r\n$                          15         1       31     1.379\r\n$                          30         1       32\r\n$                                     2       32\r\n$                          45         2       31     1.412\r\n$                          60         2       30\r\n$                                     3       30     1.430\r\n$                          75         3       31     1.464\r\n$                          90         3       32\r\n$                                     4       32     1.484\r\n$                         105         4       31\r\n$                         120         4       30\r\n$                                     5       30     1.430\r\n$                         135         5       31     1.412\r\n$                         150         5       32\r\n$                                     6       32     1.396\r\n$                         165         6       31     1.379\r\n$                         180         6       30\r\n$                                     7       30     1.365\r\n$                         195         7       31     1.359\r\n$                         210         7       32\r\n$                                     8       32     1.354\r\n$                         225         8       31     1.349\r\n$                         240         8       30\r\n$                                     9       30     1.345\r\n$                         255         9       31     1.344\r\n$                         270         9       32\r\n$                                    10       32     1.345\r\n$                         285        10       31     1.344\r\n$                         300        10       30\r\n$                                    11       30     1.345\r\n$                         315        11       31     1.349\r\n$                         330        11       32\r\n$                                    12       32     1.354\r\n$                         345        12       31     1.359\r\n$                         360        12       30     1.365\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/d15011a.inp",
    "content": "ID    D15011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   15,3                                                                      \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = NORMAL MODES ANALYSIS OF A CIRCULAR PLATE                            \r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D15-01-1A                          \r\nLABEL    = ROTATIONAL CYCLIC SYMMETRY                                           \r\nSPC      = 101                                                                  \r\nMETHOD   = 1                                                                    \r\nVECTOR   = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCBAR    1       1       10      20      .0      .0      1.      1               \r\nCBAR    2       1       20      30      .0      .0      1.      1               \r\nCBAR    3       1       30      40      .0      .0      1.      1               \r\nCBAR    4       1       40      50      .0      .0      1.      1               \r\nCBAR    5       1       50      60      .0      .0      1.      1               \r\nCBAR    110     1       14      24      .0      .0      1.0     1               \r\nCBAR    120     1       24      34      .0      .0      1.0     1               \r\nCBAR    130     1       34      44      .0      .0      1.0     1               \r\nCBAR    140     1       44      54      .0      .0      1.0     1               \r\nCBAR    150     1       54      64      .0      .0      1.0     1               \r\nCNGRNT  1       110                                                             \r\nCNGRNT  2       120                                                             \r\nCNGRNT  3       130                                                             \r\nCNGRNT  4       140                                                             \r\nCNGRNT  5       150                                                             \r\nCNGRNT  10      11      12      13                                              \r\nCNGRNT  20      21      22      23                                              \r\nCNGRNT  30      31      32      33                                              \r\nCNGRNT  40      41      42      43                                              \r\nCNGRNT  50      51      52      53                                              \r\nCORD2C  1       0       .0      .0      .0      .0      .0      1.      +C1     \r\n+C1     1.      .0      .0                                                      \r\nCQUAD2  10      1       10      11      21      20                              \r\nCQUAD2  11      1       11      12      22      21                              \r\nCQUAD2  12      1       12      13      23      22                              \r\nCQUAD2  13      1       13      14      24      23                              \r\nCQUAD2  20      1       20      21      31      30                              \r\nCQUAD2  21      1       21      22      32      31                              \r\nCQUAD2  22      1       22      23      33      32                              \r\nCQUAD2  23      1       23      24      34      33                              \r\nCQUAD2  30      1       30      31      41      40                              \r\nCQUAD2  31      1       31      32      42      41                              \r\nCQUAD2  32      1       32      33      43      42                              \r\nCQUAD2  33      1       33      34      44      43                              \r\nCQUAD2  40      1       40      41      51      50                              \r\nCQUAD2  41      1       41      42      52      51                              \r\nCQUAD2  42      1       42      43      53      52                              \r\nCQUAD2  43      1       43      44      54      53                              \r\nCQUAD2  50      1       50      51      61      60                              \r\nCQUAD2  51      1       51      52      62      61                              \r\nCQUAD2  52      1       52      53      63      62                              \r\nCQUAD2  53      1       53      54      64      63                              \r\nCYJOIN  1       C       10      20      30      40      50      60      CYC SYM \r\nCYJOIN  2       C       14      24      34      44      54      64      CYC SYM \r\nEIGR    1       INV     .0      12000.0 6       6                       +EIG1   \r\n+EIG1   MAX                                                                     \r\nGRDSET          1                               1                               \r\nGRID    10              1.0     .0      .0                                      \r\nGRID    11              1.0     15.0    .0                                      \r\nGRID    12              1.0     30.0    .0                                      \r\nGRID    13              1.0     45.0    .0                                      \r\nGRID    14              1.0     60.0    .0                                      \r\nGRID    20              .68     .0      .0                                      \r\nGRID    21              .68     15.0    .0                                      \r\nGRID    22              .68     30.0    .0                                      \r\nGRID    23              .68     45.0    .0                                      \r\nGRID    24              .68     60.0    .0                                      \r\nGRID    30              .46     .0      .0                                      \r\nGRID    31              .46     15.0    .0                                      \r\nGRID    32              .46     30.0    .0                                      \r\nGRID    33              .46     45.0    .0                                      \r\nGRID    34              .46     60.0    .0                                      \r\nGRID    40              .31     .0      .0                                      \r\nGRID    41              .31     15.0    .0                                      \r\nGRID    42              .31     30.0    .0                                      \r\nGRID    43              .31     45.0    .0                                      \r\nGRID    44              .31     60.0    .0                                      \r\nGRID    50              .21     .0      .0                                      \r\nGRID    51              .21     15.0    .0                                      \r\nGRID    52              .21     30.0    .0                                      \r\nGRID    53              .21     45.0    .0                                      \r\nGRID    54              .21     60.0    .0                                      \r\nGRID    60              .14     .0      .0                                      \r\nGRID    61              .14     15.0    .0                                      \r\nGRID    62              .14     30.0    .0                                      \r\nGRID    63              .14     45.0    .0                                      \r\nGRID    64              .14     60.0    .0                                      \r\nMAT1    1       10.6 +6         .325    2.59-4  12.9-6                          \r\nPARAM   CTYPE   ROT                                                     CYC SYM \r\nPARAM   KINDEX  2                                                       CYC SYM \r\nPARAM   NSEGS   6                                                       CYC SYM \r\nPBAR    1       1       1.8  -3 5.4  -7 5.4 -7  1.0 -6                  +PB1    \r\n+PB1    .0      .03     .03     .0      .03     .03     .03     -.03            \r\nPQUAD2  1       1       .01                                                     \r\nSPC1    110     12346   10      THRU    14                                      \r\nSPC1    112     126     10      THRU    14                                      \r\nSPC1    112     126     20      THRU    24                                      \r\nSPC1    112     126     30      THRU    34                                      \r\nSPC1    112     126     40      THRU    44                                      \r\nSPC1    112     126     50      THRU    54                                      \r\nSPC1    112     126     60      THRU    64                                      \r\nSPCADD  101     110     112                                                     \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/d15011a.txt",
    "content": "$-------------------------------------------------------------------------------\r\n$        RIGID FORMAT No. 15, Normal Modes Analysis Using Cyclic Symmetry\r\n$        Modal Analysis of a Circular Plate Using Cyclic Symmetry (15-1-1)\r\n$ \r\n$ A. Description\r\n$ \r\n$ The natural frequencies of a constant thickness circular plate with six radial\r\n$ stiffeners and a central hole are obtained using the rotational symmetry\r\n$ option. The structure is simply supported at the outer circumference.\r\n$ \r\n$ The finite element model represents only sixty degrees of the plate. Note that\r\n$ since the stiffeners are on the symmetry boundary, only 1/2 of the actual\r\n$ properties are used. The bulk data cards demonstrated are the CYJOIN and\r\n$ PARAM.\r\n$ \r\n$ B. Input\r\n$ \r\n$ 1. Parameters:\r\n$ \r\n$    R  =  1.0          (outside radius)\r\n$     o\r\n$ \r\n$    R  =   .14         (inside radius)\r\n$     i\r\n$ \r\n$    t  =   .01         (plate thickness)\r\n$ \r\n$    a  =   .06         (height and width of stiffeners)\r\n$                  6\r\n$    E  = 10.6 x 10     (modulus of elasticity)\r\n$ \r\n$    v  =   .325        (Poisson's ratio)\r\n$                   -4\r\n$    p  =  2.59 x 10    (mass density of plate and stiffeners)\r\n$ \r\n$ 2. Boundary conditions:\r\n$ \r\n$    u  = u      = theta  = 0    (all points)\r\n$     r    theta        z\r\n$ \r\n$    u  = theta  = 0              (along r = 1.0)\r\n$     z        r\r\n$ \r\n$ 3. Eigenvalue extraction data:\r\n$ \r\n$    Method: Inverse power\r\n$ \r\n$    Region of interest: 0.0 <= f <= 8000\r\n$ \r\n$    Number of desired roots: 3\r\n$ \r\n$    Normalization: maximum\r\n$ \r\n$ 4. Cyclic symmetry parameters:\r\n$ \r\n$    CTYPE ROT\r\n$ \r\n$    KINDEX 2\r\n$ \r\n$    NSEGS 6\r\n$ \r\n$ C. Results\r\n$ \r\n$ Solutions can be obtained using the dihedral symmetry or rotational symmetry\r\n$ described here.\r\n$ \r\n$ Results are accurate to approximately six significant figures.\r\n$ \r\n$                           Table 1. Natural Frequencies\r\n$                               ---------------------\r\n$                               Mode   Frequency (Hz)\r\n$                               ---------------------\r\n$                                1        4288.2\r\n$ \r\n$                                2        4288.2\r\n$ \r\n$                                3        6844.3\r\n$ \r\n$                                4        6844.3\r\n$ \r\n$                                5       11524.3\r\n$ \r\n$                                6       11524.3\r\n$                               ---------------------\r\n$-------------------------------------------------------------------------------\r\n"
  },
  {
    "path": "inp/t00001a.inp",
    "content": "NASTRAN  FILES=(INPT1,INPT2)                                                    \r\nID    T00001A,NASTRAN                                                           \r\n$                                                                               \r\n$     THIS DEMO PROBLEM DEMONSTRATES AN EASY WAY TO GENERATE VARIOUS            \r\n$     FORMS OF NASTRAN GINO DATA BLOCKS USING THE NEW INPUTT4 MODULE,           \r\n$     AND TO ALTER DATA BLOCK TRAILER BY THE NEW MATGEN, OPTION 10              \r\n$                                                                               \r\n$     TO COPY FROM INP1 THE FOLLOWING MATRICES                                  \r\n$        A 4X4 SQUARE      MATRIX OF FORM 1 TO SQR                              \r\n$        A 2X5 RECTANGULAR MATRIX OF FORM 2 TO REC                              \r\n$        A 1X6 DIAGONAL    MATRIX OF FORM 3 TO DI1                              \r\n$        A 5X5 DIAONGL     MATRIX OF FORM 2 TO DI5                              \r\n$        A 4X4 SYMMETRIC   MATRIX OF FORM 6 TO SYM                              \r\n$     TO COPY FROM INP2 THE FOLLOWING MATRICES                                  \r\n$        A 1X6 ROW VECTOR         OF FORM 7 TO RV1                              \r\n$        A 6X1 ROW VECTOR         OF FORM 2 TO RV6                              \r\n$        A 1X4 IDENTITY    MATRIX OF FORM 8 TO ID1                              \r\n$        A 4X4 IDENTITY    MATRIX OF FORM 2 TO ID4                              \r\n$        A 1X6 COLUMN      MATRIX OF FORM 2 TO CMX                              \r\n$     AND TO ALTER THE TRAILER OF SYM, FROM SYMMETRIC TO SQUARE                 \r\n$                                                                               \r\n$     NOTE - THERE IS NO DOCUMENTATION AVAILABLE IN THE USER'S MANUAL           \r\n$     4/93   ABOUT THE NEW CAPABILITIES BEING PERFORMED HERE.                   \r\n$          - USER CAN GENERATE GINO DATA BLOCKS THRU THE DMIG CARDS.            \r\n$            HOWEVER, INPUT VIA DMIG CARDS IS LIMITED TO ONLY SQAURE            \r\n$            (FORM 1), RECTANGULAR (FORM 2) AND SYMMETRIC (FORM 6)              \r\n$            MATRICES                                                           \r\n$                                                                               \r\nAPP   DMAP                                                                      \r\nDIAG  8,15                                                                      \r\nBEGIN $                                                                         \r\n$                                                                               \r\n$  CDC USER, USE FORTRAN UNITS 11(UT1) AND 12(UT2) INSTEAD OF 15(INP1)          \r\n$  AND 16(INP2) HERE.                                                           \r\n$  REWIND TAPE BEFORE READING, PARAMETER -1                                     \r\n$  INP1 & INP2 TAPES ARE ASCII FORMATTED TAPES, PARAMETERS -15 & -16            \r\n$  RECORDS IN MSC/OUTPUT4 FORMAT, 80 COLUMN PER RECORD, PARAMETER -4            \r\n$  (COSMIC/OUTPUT4 AND INPUTT4 USE 132-COLUMN-PER-RECORD FORMAT)                \r\n$  MATPRN MUST HAVE A $ AT END OF LINE. ELSEWHERE $ SIGN IS OPTIONAL.           \r\n$                                                                               \r\nINPUTT4   /SQR,REC,DI1,DI5,SYM/-1/-15//-4                                       \r\nINPUTT4   /RV1,RV6,ID1,ID4,CMX/-1/-16//-4 $                                     \r\nMATPRN     SQR,REC,DI1,DI5,SYM// $                                              \r\nMATPRN     RV1,RV6,ID1,ID4,CMX// $                                              \r\n$                                                                               \r\nMATGEN     SYM//10///1 $  OPTION 10, CHANGING THE 3RD TRAILER WORD TO 1         \r\nMATPRN     SYM,,,,// $                                                          \r\nEND $                                                                           \r\nTIME  5                                                                         \r\nCEND                                                                            \r\nBEGIN                                                                           \r\nENDDATA                                                                         \r\n$                                                                               \r\n$  MOVE THE FOLLWING DATA TO T00001A.INP1.                                      \r\n$  (INTEGERS IN 3I8, BCD IN 2A4, AND REAL IN 5E16.9 OR 5F16.X)                  \r\n       4       4       1       2SQUARE                                          \r\n       1       1       4                                                        \r\n 1.234567890E+03 2.224567890E+02-3.334567890E+00-0.034567890E+02                \r\n       2       2       3                                                        \r\n 1.234567890E+03-2.234567890E+03                                                \r\n       3       1       3                                                        \r\n 2.234567890E+03 7.224567890E+02-6.334567890E+00                                \r\n       4       3       4                                                        \r\n-9.034567890E+02-6.234567890E+03                                                \r\n       5       1       1                                                        \r\n 0.000000000E+00                                                                \r\n       2       5       2       1RECTANG                                         \r\n       1       1       4                                                        \r\n 1.234567890E+03 2.224567890E+02-3.334567890E+00-0.034567890E+02                \r\n       2       3       4                                                        \r\n-0.034567890E+02-2.234567890E+03                                                \r\n       3       1       1                                                        \r\n 1.000000000E+03                                                                \r\n       1       6       3       2DIAGONAL                                        \r\n       1       1       6                                                        \r\n 1100.           220.           -3300.0          440.            55000.         \r\n-660.0                                                                          \r\n       2       1       1                                                        \r\n 0.0                                                                            \r\n       5       5       2       2DIAGON2                                         \r\n       1       1       1                                                        \r\n 1111.1                                                                         \r\n       2       2       1                                                        \r\n 222.                                                                           \r\n       3       3       1                                                        \r\n-3.333333                                                                       \r\n       4       4       1                                                        \r\n 4440.4                                                                         \r\n       5       5       1                                                        \r\n 550000.                                                                        \r\n       6       1       1                                                        \r\n 0.0                                                                            \r\n       4       4       6       2SYMMETRC                                        \r\n       1       1       3                                                        \r\n 1.100000000E+03 2.200000000E+03-3.300000000E+03                                \r\n       2       1       4                                                        \r\n 2.200000000E+03-4.400000000E+02 5.500000000E+04-6.600000000E+04                \r\n       3       1       4                                                        \r\n-3.300000000E+03 5.500000000E+03-7.700000000E+03 8.800000000E+03                \r\n       4       2       4                                                        \r\n-6.600000000E+03 8.800000000E+03-9.900000000E+03                                \r\n       5       1       1                                                        \r\n 0.000000000E+00                                                                \r\n                                                                                \r\n$  MOVE THE FOLLWING DATA TO T00001A.INP2.                                      \r\n       1       6       7       1ROWVEC                                          \r\n       1       1       6                                                        \r\n 1.100000000E+03 2.200000000E+03-3.300000000E+03 4.400000000E+02 5.500000000E+04\r\n-6.600000000E+02                                                                \r\n       2       1       1                                                        \r\n 1.000000000E+03                                                                \r\n       6       1       2       2COLVEC                                          \r\n       1       1       1                                                        \r\n 9.876543210                                                                    \r\n       2       1       1                                                        \r\n-8.876543210                                                                    \r\n       3       1       1                                                        \r\n-7.776543210                                                                    \r\n       4       1       1                                                        \r\n 6.676543210                                                                    \r\n       5       1       1                                                        \r\n 5.576543210                                                                    \r\n       6       1       1                                                        \r\n-4.476543210                                                                    \r\n       7       1       1                                                        \r\n-3.376543210                                                                    \r\n       1       4       8       2IDENT                                           \r\n       1       1       4                                                        \r\n 1.0             1.0             1.0             1.0                            \r\n       2       1       1                                                        \r\n .0                                                                             \r\n       4       4       2       2IDENT                                           \r\n       1       1       1                                                        \r\n 1.0                                                                            \r\n       2       1       1                                                        \r\n 1.0                                                                            \r\n       3       1       1                                                        \r\n 1.0                                                                            \r\n       4       1       1                                                        \r\n 1.0                                                                            \r\n       5       1       1                                                        \r\n 0.0                                                                            \r\n       1       6       2       2COLMAT                                          \r\n       1       1       6                                                        \r\n 1.111           22.222          333.333        -44.4            5.5            \r\n-66666.666                                                                      \r\n       2       1       1                                                        \r\n 0.0                                                                            \r\n"
  },
  {
    "path": "inp/t01181a.inp",
    "content": "ID    T01181A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = 3-D PIPE NETWORK USING CURVED BEAM ELEMENTS (CELBOW)                 \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-18-1A                                   \r\nLABEL    = POINT TEMPERATURE AND GRAVITY LOAD                                   \r\n    LOAD = 10                                                                   \r\n    TEMPERATURE(LOAD) = 2                                                       \r\n    SPC  = 1                                                                    \r\nOUTPUT                                                                          \r\n    DISPLACEMENTS = ALL                                                         \r\n    ELSTRESS  = ALL                                                             \r\n    OLOAD     = ALL                                                             \r\n    ELFORCE   = ALL                                                             \r\n    SPCFORCES = ALL                                                             \r\nBEGIN BULK                                                                      \r\nLOAD    10      1.      1.      1       1.      3                               \r\nGRID    1               0.      105.    0.                                      \r\nGRID    2               -15.    120.    0.                                      \r\nGRID    3               -120.   120.    0.                                      \r\nGRID    4               -133.   120.    0.                                      \r\nGRID    5               -200.   120.    0.                                      \r\nGRID    6               -200.   225.    0.                                      \r\nGRID    7               -215.   240.    0.                                      \r\nGRID    8               -440.   240.    0.                                      \r\nGRID    9               -235.   120.    0.                                      \r\nGRID    10              -250.   120.    15.                                     \r\nGRID    11              -250.   120.    120.                                    \r\nGRID    12              -250.   120.    240.                                    \r\nGRID    13              0.      0.      0.                                      \r\nGRID    14              -245.   120.    0.                                      \r\nGRID    15              -250.   130.    120.                                    \r\nGRID    16              -240.   120.    240.                                    \r\nGRID    17              -250.   130.    240.                                    \r\nGRID    18              -250.   120.    250.                                    \r\nSPC1    1       123     12                                                      \r\nSPC1    1       456     12                                                      \r\nSPC1    1       123456  13      THRU    18                                      \r\nSPC     1       12      3       0.3                                             \r\nSPC     1       12      2       0.1                                             \r\nSPC     1       12      1       0.2                                             \r\nCELAS2  101     1.0+4   9       1       14      1                               \r\nCELAS2  102     1.0+5   11      2       15      2                               \r\nCELBOW  2       10      1       2       -15.0   0.0     0.0     1               \r\nCELBOW  7       10      6       7       -15.0   0.0     0.0     1               \r\nCELBOW  10      10      9       10      0.0     0.0     15.0    1               \r\nPELBOW  10      11      16.085  211.33  211.33  422.66  6.61            +P1     \r\n+P1     5.37    0.      5.37    90.     5.37    180.    5.37    270.    +P2     \r\n+P2     2.0     2.0     1.0     1.0     5.767   5.767   15.     90.             \r\nMAT1    11      27.9+6          0.333           6.81-6  0.                      \r\nCBAR    1       20      13      1       0.      0.      1.0     1               \r\nCBAR    3       20      2       3       0.      0.      1.      1               \r\nCBAR    4       21      3       4       0.      0.      1.      1               \r\nCBAR    5       20      4       5       0.      0.      1.      1               \r\nCBAR    6       20      5       6       0.      0.      1.      1               \r\nCBAR    8       20      7       8       0.      0.      1.      1               \r\nCBAR    9       20      5       9       0.      0.      1.      1               \r\nCBAR    11      20      10      11      0.      1.      0.      1               \r\nCBAR    12      20      11      12      0.      1.      0.      1               \r\nPBAR    20      11      16.085  211.33  211.33  422.66  6.61                    \r\nPBAR    21      11      54.915  551.8   551.8   1103.6  6.61                    \r\nFORCE   1       3               1000.   0.      1.      0.                      \r\nFORCE   1       4               -200.   0.      1.      0.                      \r\nFORCE   1       8               3000.   1.      0.      0.                      \r\nFORCE   1       8               2000.   0.      0.      1.                      \r\nFORCE   1       8               1000.   0.      1.      0.                      \r\nGRAV    3       0       1.      0.      -1.     0.                              \r\nTEMPD   2       740.                                                            \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01191a.inp",
    "content": "ID    T01191A,NASTRAN                                                           \r\nDIAG  14                                                                        \r\nAPP   HEAT                                                                      \r\nSOL   1                                                                         \r\nTIME  20                                                                        \r\nALTER   67,67 $                                                                 \r\nMAGBDY  GEOM1,HEQEXIN/PER/S,N,IPG $                                             \r\nSSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,PER/                 \r\n        HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                              \r\nALTER   77 $                                                                    \r\nSDR1,   ,HCFLD,,,,,,,,, /,HCFLDG,/V,N,NSKIP/C,N,STATICS $                       \r\nSDR1,   ,HCCEN,,,,,,,,, /,HCCENG,/V,N,NSKIP/C,N,STATICS $                       \r\nSDR1,   ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/C,N,STATICS $                       \r\nALTER   84 $                                                                    \r\nEMFLD   HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM,                     \r\n        HCCENG/HOEH1/V,N,HLUSET $                                               \r\nALTER   85 $                                                                    \r\nOFP     HOEH1,,,,,//S,N,CARDNO $                                                \r\nPROLATE GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF$        \r\nOUTPUT2 PROCOF,,,,//0/11 $                                                      \r\nTABPT   PROCOF,,,,// $                                                          \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 2-D ELEMENTS               \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-19-1A                                   \r\nDISP    = ALL                                                                   \r\nOLOAD   = ALL                                                                   \r\nELFORCE = ALL                                                                   \r\nSUBCASE 1                                                                       \r\n   LOAD = 6                                                                     \r\nSUBCASE 2                                                                       \r\n   LOAD = 5                                                                     \r\nSUBCASE 3                                                                       \r\n   LOAD = 7                                                                     \r\nSUBCOM  4                                                                       \r\n SUBSEQ = .5,.5,0.                                                              \r\nSUBCASE 5                                                                       \r\n   LOAD = 13                                                                    \r\nSUBCASE 6                                                                       \r\n   LOAD = 12                                                                    \r\nSUBCASE 7                                                                       \r\n   LOAD = 11                                                                    \r\nSUBCASE 100                                                                     \r\n   LOAD = 100                                                                   \r\nBEGIN BULK                                                                      \r\nGRID    1               0.      0.                      1                       \r\nGRID    4               0.      0.                      1                       \r\nGRID    7               0.      0.                      1                       \r\nGRID    26              0.      0.                      1                       \r\nGRID    14              0.      0.                      1                       \r\nGRID    18              0.      0.                      1                       \r\nGRID    22              0.      0.                      1                       \r\nGRID    15              2.82842 2.82842                                         \r\nGRID    19              2.82842 2.82842                                         \r\nGRID    23              2.82842 2.82842                                         \r\nGRID    2               2.82842 2.82842                                         \r\nGRID    5               2.82842 2.82842                                         \r\nGRID    8               2.82842 2.82842                                         \r\nGRID    27              2.82842 2.82842                                         \r\nGRID    3               1.41421 1.41421 2.                                      \r\nGRID    6               1.41421 1.41421 2.                                      \r\nGRID    9               1.41421 1.41421 2.                                      \r\nGRID    28              1.41421 1.41421 2.                                      \r\nGRID    16              2.82842 2.82842 2.                                      \r\nGRID    20              2.82842 2.82842 2.                                      \r\nGRID    24              2.82842 2.82842 2.                                      \r\nGRID    17              0.      0.      2.                                      \r\nGRID    21              0.      0.      2.                                      \r\nGRID    25              0.      0.      2.                                      \r\nGRID    10              0.      0.                      1                       \r\nGRID    11              2.82842 2.82842                                         \r\nGRID    12              2.82842 2.82842 2.                                      \r\nGRID    13              0.      0.      2.                                      \r\nGRID    110             0.      0.                      1                       \r\nGRID    111             2.82842 2.82842                                         \r\nGRID    112             2.82842 2.82842 2.                                      \r\nGRID    113             0.      0.      2.                                      \r\nGRID    210             1.41421 1.41421                                         \r\nGRID    211             2.82842 2.82842 1.                                      \r\nGRID    212             1.41421 1.41421 2.                                      \r\nGRID    213             0.      0.      1.                                      \r\nCIS2D8  100     1       110     111     112     113     210     211     +CIS    \r\n+CIS    212     213                                                             \r\nPIS2D8  1       1       2.                                                      \r\nSPCFLD  5               10.     20.     30.      1       10     110             \r\nSPCFLD  5               25.     30.     32.      2       11     111             \r\nSPCFLD  5               41.     44.     53.      3       12     13              \r\nSPCFLD  5               41.     44.     53.     112     113                     \r\nREMFLUX 6               7312.5  8625.   10500.  1       THRU    4               \r\nREMFLUX 6               7312.5  8625.   10500.  100                             \r\nSPCFLD  5               17.5    25.     31.     210                             \r\nSPCFLD  5               33.     37.     42.5    211                             \r\nSPCFLD  5               41.     44.     53.     212                             \r\nSPCFLD  5               25.5    32.     41.5    213                             \r\nSPCFLD  100             10.     20.     30.     10      THRU    13              \r\nSPCFLD  100             10.     20.     30.     110     THRU    113             \r\nSPCFLD  100             10.     20.     30.     210     THRU    213             \r\nGEMLOOP 13      5.              5.      0.      0.      4.94    .65     +G1     \r\n+G1     0.      4.77    1.28    0.      4.5     1.88    0.      4.12    +G2     \r\n+G2     2.41    0.      3.66    2.87    0.      3.13    3.25    0.      +G3     \r\n+G3     2.53    3.52    0.      1.9     3.69    0.      1.25    3.75    +G4     \r\n+G4     0.      .6      3.69    0.      -.03    3.52    0.      -.62    +G5     \r\n+G5     3.25    0.      -1.16   2.87    0.      -1.62   2.41    0.      +G6     \r\n+G6     ENDT                                                                    \r\nGEMLOOP 13      5.              -1.62   2.41    0.      -2.     1.87    +G7     \r\n+G7     0.      -2.27   1.28    0.      -2.44   .65     0.      -2.5    +G8     \r\n+G8     0.      0.      -2.44   -.65    0.      -2.27   -1.28   0.      +G9     \r\n+G9     -2.     -1.87   0.      -1.62   -2.41   0.      -1.16   -2.87   +G10    \r\n+G10    0.      -.62    -3.25   0.      -.03    -3.52   0.      .6      +G11    \r\n+G11    -3.69   0.      1.25    -3.75   0.      1.9     -3.69   0.      +G12    \r\n+G12    ENDT                                                                    \r\nGEMLOOP 13      5.              1.9     -3.69   0.      2.53    -3.52   +G13    \r\n+G13    0.      3.12    -3.25   0.      3.66    -2.87   0.      4.12    +G14    \r\n+G14    -2.41   0.      4.5     -1.87   0.      4.77    -1.28   0.      +G15    \r\n+G15    4.94    -.65    0.      5.      0.      0.      ENDT                    \r\nMDIPOLE 11      0       5.      0.      0.      10.     10.     10.     +M1     \r\n+M1     0.      0.                                                              \r\nCEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM12   \r\n+CM12   0.      1.25    0.      0.                                              \r\nCORD2R  2               0.      0.      0.      0.      0.      1.      +C2     \r\n+C2     -1.     0.      1.                                                      \r\nCORD2R  1               0.      0.      0.      0.      0.      1.      +C1     \r\n+C1     0.      1.      1.                                                      \r\nBFIELD  1       5       1       2       3       100                             \r\nBFIELD  0       6       THRU    8                                               \r\nBFIELD  2       -1                                                              \r\nLOAD    7       1.      1.      5       1.      6                               \r\nREMFLUX 6               6333.3337833.3339583.3336       5       8               \r\nREMFLUX 6               6333.3337833.3339583.3337                               \r\nSPCFLD  5               41.     44.     53.      6       16     17              \r\nSPCFLD  5               41.     44.     53.      9       20     21              \r\nSPCFLD  5               41.     44.     53.      28      24     25              \r\nSPCFLD  5               25.     30.     32.      5       15                     \r\nSPCFLD  5               25.     30.     32.      8       19                     \r\nSPCFLD  5               25.     30.     32.      27      23                     \r\nSPCFLD  5               10.     20.     30.      4       14                     \r\nSPCFLD  5               10.     20.     30.      7       18                     \r\nSPCFLD  5               10.     20.     30.      26      22                     \r\nMAT4    1       250.                                                            \r\nCTRMEM  8       6       1        2       3                                      \r\nPTRMEM  6       1       2.                                                      \r\nCQDMEM  1       1       10      11      12       13                             \r\nCQUAD1  2       2       15      14      17      16                              \r\nCQDMEM  3       1       21      18      19      20                              \r\nCQUAD2  4       3       24      25      22      23                              \r\nCTRIA1  5       4       5       4       6                                       \r\nCTRIA2  6       5       9       7       8                                       \r\nCTRIA2  7       5       27      28      26                                      \r\nPQDMEM  1       1       2.                                                      \r\nPQUAD1  2       1       2.      1        2.      1      2.                      \r\nPQUAD2  3       1       2.                                                      \r\nPTRIA1  4       1       2.      1       2.      1       2.                      \r\nPTRIA2  5       1       2.                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01201a.inp",
    "content": "ID    T01201A,NASTRAN                                                           \r\nAPP   HEAT                                                                      \r\nSOL   1,0                                                                       \r\nTIME  10                                                                        \r\nDIAG  14                                                                        \r\nALTER   67,67 $                                                                 \r\nSSG1    HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/                    \r\n        HPG,HCFLD,REMFLD,HCCEN,NSLT/HLUSET/NSKIP $                              \r\nALTER   84 $                                                                    \r\nEMFLD   HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/HOEH1/          \r\n        V,N,HLUSET $                                                            \r\nALTER   85 $                                                                    \r\nOFP     HOEH1,,,,,//S,N,CARDNO$                                                 \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = ELECTRIC AND MAGNETOSTATICS PROBLEM USING 3-D ELEMENTS               \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-20-1A                                   \r\nDISP     = ALL                                                                  \r\nELFORCE  = ALL                                                                  \r\nOLOAD    = ALL                                                                  \r\nSUBCASE  1                                                                      \r\n   LOAD  = 50                                                                   \r\nSUBCASE  2                                                                      \r\n   LOAD  = 51                                                                   \r\nSUBCASE  3                                                                      \r\n   LOAD  = 12                                                                   \r\nSUBCOM   20                                                                     \r\n  SUBSEQ = .5,.5,0.                                                             \r\nBEGIN BULK                                                                      \r\nCEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM12   \r\n+CM12   0.      1.25    0.      0.                                              \r\nCEMLOOP 12      5.      0       5.      0.      0.      1.25    3.75    +CM13   \r\n+CM13   0.      1.25    0.      0.                                              \r\nMDIPOLE 12      0       5.      0.      0.      10.     10.     10.     +M1     \r\n+M1     0.      0.                                                              \r\nREMFLUX 51              500.    0.      250.    16                              \r\nREMFLUX 51              250.    500.    750.    18                              \r\nREMFLUX 51              750.    1000.   500.    20                              \r\nREMFLUX 51              1000.   250.    750.    22                              \r\nCHEXA1        20       2      21      22      23      24      25      26+E1     \r\n+E1           27      28                                                        \r\nCHEXA2        22       2      31      32      33      34      35      36+E2     \r\n+E2           37      38                                                        \r\nCTETRA        16       2       1       2       3       4                        \r\nCWEDGE        18       2      11      12      13      14      15      16        \r\nGRID           1         1.     0.       3.             1                       \r\nGRID           2        2.      0.       3.                                     \r\nGRID           3        3.       2.      3.                                     \r\nGRID           4        2.      1.      5.                                      \r\nGRID          11        1.      2.      1.              1                       \r\nGRID          12         3.      1.      -3.                                    \r\nGRID          13        6.       2.      2.                                     \r\nGRID          14        1.      6.      1.                                      \r\nGRID          15        4.      4.       -3.                                    \r\nGRID          16         5.      6.      1.                                     \r\nGRID          21         1.     2.      1.              1                       \r\nGRID          22        2.      .5      3.                                      \r\nGRID          23        7.      2.      4.                                      \r\nGRID          24        5.      3.      2.                                      \r\nGRID          25        1.5      5.     2.                                      \r\nGRID          26        2.5     5.      3.                                      \r\nGRID          27        7.      6.      4.                                      \r\nGRID          28        6.      9.      3.                                      \r\nGRID          31        1.      2.      1.              1                       \r\nGRID          32        2.      .5      3.                                      \r\nGRID          33        7.      2.       4.                                     \r\nGRID          34        5.      3.      2.                                      \r\nGRID          35        1.5     5.      2.                                      \r\nGRID          36        2.5     5.      3.                                      \r\nGRID          37        7.      6.      4.                                      \r\nGRID          38        6.      9.      3.                                      \r\nMAT4           2 250.                                                           \r\nSPCFLD        50       0 2.      0.      1.            1       2       3        \r\nSPCFLD        50       0 2.      0.      1.            4                        \r\nSPCFLD        50       01.      2.      3.            11      12      13        \r\nSPCFLD        50       01.      2.      3.            14      15      16        \r\nSPCFLD        50       03.      4.      2.            21 THRU         28        \r\nSPCFLD        50       04.      1.      3.            31 THRU         38        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01211a.inp",
    "content": "NASTRAN BANDTMTH=2                                                              \r\nID    T01211A,NASTRAN                                                           \r\nDIAG  14                                                                        \r\nTIME  5                                                                         \r\nSOL   1                                                                         \r\nAPP   DISP                                                                      \r\nALTER 41 $                                                                      \r\nMATPRN KGGX,,,,//$                                                              \r\nEXIT $                                                                          \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = WEDGE ELEMENT PROBLEM                                                \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-21-1A                                   \r\nBEGIN BULK                                                                      \r\nCHEXA2  1       1       21      22      23      24      25      26      +C1     \r\n+C1     27      28                                                              \r\nCWEDGE  2       1       11      12      13      15      16      17              \r\nCTETRA  3       1       31      32      33      35                              \r\nCWEDGE  30      1       41      42      43      45      46      47              \r\nCWEDGE  4       1       41      43      44      45      47      48              \r\nCTETRA  5       1       1       2       3       5                               \r\nCTETRA  6       1       1       2       3       5                               \r\nCTETRA  7       1       1       2       3       6                               \r\nCTETRA  8       1       1       2       3       6                               \r\nCTETRA  9       1       1       2       3       7                               \r\nCTETRA  10      1       1       2       3       7                               \r\nCTETRA  11      1       1       5       6       7                               \r\nCTETRA  12      1       1       5       6       7                               \r\nCTETRA  13      1       2       5       6       7                               \r\nCTETRA  14      1       2       5       6       7                               \r\nCTETRA  15      1       3       5       6       7                               \r\nCTETRA  16      1       3       5       6       7                               \r\nCTETRA  17      1       1       2       5       7                               \r\nCTETRA  18      1       2       3       5       7                               \r\nCTETRA  19      1       1       3       5       6                               \r\nCTETRA  20      1       2       3       5       6                               \r\nCTETRA  21      1       1       3       6       7                               \r\nCTETRA  22      1       1       2       6       7                               \r\nGRID    1                                                                       \r\nGRID    11                                                                      \r\nGRID    21                                                                      \r\nGRID    31                                                                      \r\nGRID    41                                                                      \r\nGRID    2               2.                                                      \r\nGRID    12              2.                                                      \r\nGRID    22              2.                                                      \r\nGRID    32              2.                                                      \r\nGRID    42              2.                                                      \r\nGRID    3               2.      3.                                              \r\nGRID    13              2.      3.                                              \r\nGRID    23              2.      3.                                              \r\nGRID    33              2.      3.                                              \r\nGRID    43              2.      3.                                              \r\nGRID    4               0.      3.                                              \r\nGRID    14              0.      3.                                              \r\nGRID    24              0.      3.                                              \r\nGRID    34              0.      3.                                              \r\nGRID    44              0.      3.                                              \r\nGRID    5               0.      0.      4.                                      \r\nGRID    15              0.      0.      4.                                      \r\nGRID    25              0.      0.      4.                                      \r\nGRID    35              0.      0.      4.                                      \r\nGRID    45              0.      0.      4.                                      \r\nGRID    6               2.      0.      4.                                      \r\nGRID    16              2.      0.      4.                                      \r\nGRID    26              2.      0.      4.                                      \r\nGRID    36              2.      0.      4.                                      \r\nGRID    46              2.      0.      4.                                      \r\nGRID    7               2.      3.      4.                                      \r\nGRID    17              2.      3.      4.                                      \r\nGRID    27              2.      3.      4.                                      \r\nGRID    37              2.      3.      4.                                      \r\nGRID    47              2.      3.      4.                                      \r\nGRID    8               0.      3.      4.                                      \r\nGRID    18              0.      3.      4.                                      \r\nGRID    28              0.      3.      4.                                      \r\nGRID    38              0.      3.      4.                                      \r\nGRID    48              0.      3.      4.                                      \r\nMAT1    1       3.+7            .3                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01221a.inp",
    "content": "ID    T01221A,NASTRAN                                                           \r\nDIAG   14                                                                       \r\nAPP    DISP                                                                     \r\nSOL    1,0                                                                      \r\nTIME   20                                                                       \r\nCEND                                                                            \r\nTITLE    = ANISOTROPIC IHEX2 ELEMENT PROBLEM                                    \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-22-1A                                   \r\nSPCF  = ALL                                                                     \r\nSPC   = 11                                                                      \r\nOLOAD = ALL                                                                     \r\nDISP  = ALL                                                                     \r\nSTRESS= ALL                                                                     \r\nSUBCASE 1                                                                       \r\nLOAD  = 29                                                                      \r\nBEGIN BULK                                                                      \r\nCORD2R  30              0.      0.      0.      0.      0.      1.      +C1     \r\n+C1     1.      0.      1.                                                      \r\nPIHEX   1       31      30      3                                               \r\nMAT6    31      .232+7  -.211+7 .0316+7 .158+7  .105+7  .0526+7 .737+7  +M1     \r\n+M1     -.211+7 -.553+7 -.368+7 -.184+7 .232+7  .158+7  .105+7  .0526+7 +M2     \r\n+M2     .664+7  .276+7  .138+7  .434+7  .0921+7 .296+7  7.324-4                 \r\nSPC1    11      1       1       29      41                                      \r\nSPC1    11      2       1       2       3       29      30      41              \r\nSPC1    11      2       42      43                                              \r\nSPC1    11      123     1                                                       \r\nPLOAD3  29      -10.    10501   26      68                                      \r\nGRDSET                                                  456                     \r\nCIHEX2     10101       1       1       2       3       5       8       7CIH    1\r\n+IH    1       6       4      29      30      32      31      41      42CIH    2\r\n+IH    2      43      45      48      47      46      44                        \r\nCIHEX2     10201       1       6       7       8      10      13      12CIH    3\r\n+IH    3      11       9      31      32      34      33      46      47CIH    4\r\n+IH    4      48      50      53      52      51      49                        \r\nCIHEX2     10301       1      11      12      13      15      18      17CIH    5\r\n+IH    5      16      14      33      34      36      35      51      52CIH    6\r\n+IH    6      53      55      58      57      56      54                        \r\nCIHEX2     10401       1      16      17      18      20      23      22CIH    7\r\n+IH    7      21      19      35      36      38      37      56      57CIH    8\r\n+IH    8      58      60      63      62      61      59                        \r\nCIHEX2     10501       1      21      22      23      25      28      27CIH    9\r\n+IH    9      26      24      37      38      40      39      61      62CIH   10\r\n+IH   10      63      65      68      67      66      64                        \r\nGRID           1            .000   0.000   0.000                                \r\nGRID           2            .500   0.000   0.000                                \r\nGRID           3           1.000   0.000   0.000                                \r\nGRID           4            .000   1.000   0.000                                \r\nGRID           5           1.000   1.000   0.000                                \r\nGRID           6            .000   2.000   0.000                                \r\nGRID           7            .500   2.000   0.000                                \r\nGRID           8           1.000   2.000   0.000                                \r\nGRID           9            .000   3.000   0.000                                \r\nGRID          10           1.000   3.000   0.000                                \r\nGRID          11            .000   4.000   0.000                                \r\nGRID          12            .500   4.000   0.000                                \r\nGRID          13           1.000   4.000   0.000                                \r\nGRID          14           -.000   5.000   0.000                                \r\nGRID          15           1.000   5.000   0.000                                \r\nGRID          16           -.000   6.000   0.000                                \r\nGRID          17            .500   6.000   0.000                                \r\nGRID          18           1.000   6.000   0.000                                \r\nGRID          19            .000   7.000   0.000                                \r\nGRID          20           1.000   7.000   0.000                                \r\nGRID          21            .000   8.000   0.000                                \r\nGRID          22            .500   8.000   0.000                                \r\nGRID          23           1.000   8.000   0.000                                \r\nGRID          24            .000   9.000   0.000                                \r\nGRID          25           1.000   9.000   0.000                                \r\nGRID          26            .000  10.000   0.000                                \r\nGRID          27            .500  10.000   0.000                                \r\nGRID          28           1.000  10.000   0.000                                \r\nGRID          29           -.000   0.000    .500                                \r\nGRID          30           1.000   0.000    .500                                \r\nGRID          31           -.000   2.000    .500                                \r\nGRID          32           1.000   2.000    .500                                \r\nGRID          33           -.000   4.000    .500                                \r\nGRID          34           1.000   4.000    .500                                \r\nGRID          35           -.000   6.000    .500                                \r\nGRID          36           1.000   6.000    .500                                \r\nGRID          37           -.000   8.000    .500                                \r\nGRID          38           1.000   8.000    .500                                \r\nGRID          39           -.000  10.000    .500                                \r\nGRID          40           1.000  10.000    .500                                \r\nGRID          41            .000   0.000   1.000                                \r\nGRID          42            .500   0.000   1.000                                \r\nGRID          43           1.000   0.000   1.000                                \r\nGRID          44            .000   1.000   1.000                                \r\nGRID          45           1.000   1.000   1.000                                \r\nGRID          46            .000   2.000   1.000                                \r\nGRID          47            .500   2.000   1.000                                \r\nGRID          48           1.000   2.000   1.000                                \r\nGRID          49            .000   3.000   1.000                                \r\nGRID          50           1.000   3.000   1.000                                \r\nGRID          51            .000   4.000   1.000                                \r\nGRID          52            .500   4.000   1.000                                \r\nGRID          53           1.000   4.000   1.000                                \r\nGRID          54           -.000   5.000   1.000                                \r\nGRID          55           1.000   5.000   1.000                                \r\nGRID          56           -.000   6.000   1.000                                \r\nGRID          57            .500   6.000   1.000                                \r\nGRID          58           1.000   6.000   1.000                                \r\nGRID          59            .000   7.000   1.000                                \r\nGRID          60           1.000   7.000   1.000                                \r\nGRID          61            .000   8.000   1.000                                \r\nGRID          62            .500   8.000   1.000                                \r\nGRID          63           1.000   8.000   1.000                                \r\nGRID          64            .000   9.000   1.000                                \r\nGRID          65           1.000   9.000   1.000                                \r\nGRID          66            .000  10.000   1.000                                \r\nGRID          67            .500  10.000   1.000                                \r\nGRID          68           1.000  10.000   1.000                                \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01231a.inp",
    "content": "NASTRAN FILES=(INP1,INP2)                                                       \r\nID    T01231A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1                                                                         \r\nDIAG  8,15,-2,-14,-7                                                            \r\nTIME  30                                                                        \r\n$                                                                               \r\nALTER 113 $                                                                     \r\n$                                                                               \r\n$PRINT OQG1 TABLE FOR LATER COMPARISION                                         \r\nOFP    OQG1,,,,, //S,N,CARDNO $                                                 \r\n$                                                                               \r\n$CDC USERS, USE UT1 (UNIT 11) AND UT2 (UNIT 12) INSTEAD OF INP1 AND INP2        \r\n$IN THIS DEMO PROBLEM                                                           \r\n$                                                                               \r\n$COPY TABLE OQG1 TO INP1 (UNIT 15) AND COPY OQG1 TO MYFOOT (IN PACKED           \r\n$GINO FILE)                                                                     \r\nDUMMOD5 OQG1,,OQG1,,/,,MYFOOT,,/6/15/6/0/0/+1  $                                \r\n$                                                                               \r\n$PRINT  MYFOOT, IN MATRIX FORMAT, WHICH SHOULD CONTAIN OQG1 DATA                \r\n$PRINT  MATRIX KGG FOR LATER COMPARISON                                         \r\nMATPRN  MYFOOT,KGG,,,// $                                                       \r\n$                                                                               \r\n$COPY   MYFOOT AND KGG TO INP2 (UNIT 16), SEQUENTIAL FORMATTED TAPE             \r\nOUTPUT5 MYFOOT,KGG,,,//-1/16/*YOURFEET*/1  $                                    \r\n$                                                                               \r\n$RECOVER THE 2 FILES FROM INP2 (UNIT 16) AND MAKE THEM NASTRAN GINO FILES       \r\nINPUTT5 /OMYFOOT,OKGG,,,/-1/16/*YOURFEET*/1  $                                  \r\n$                                                                               \r\n$RECOVER THE BINARY FILE IN INP1 (UNIT 15) WHICH WAS SAVED IN DUMMOD5           \r\nINPUTT5  /OQG1X,,,,/-1/15/*XXXXXXXX*/0  $                                       \r\n$                                                                               \r\n$TABLE  PRINT OQG1X AND OMYFOOT, AND MATRIX PRINT OKGG FOR VERIFICATION         \r\nTABPT   OQG1X,OMYFOOT,,, // $                                                   \r\nMATPRN  OKGG,,,, // $                                                           \r\n$                                                                               \r\n$JUMP TO FINISH                                                                 \r\nJUMP  FINIS $                                                                   \r\n$                                                                               \r\nENDALTER                                                                        \r\n$                                                                               \r\nCEND                                                                            \r\nTITLE    = DEMONSTRATION TO USE DUMMOD5, OUTPUT5 AND INPUT5                     \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-23-1A                                   \r\nLOAD    = 10                                                                    \r\nSPC     = 1                                                                     \r\nSPCFORCE= ALL                                                                   \r\nDISP    = NONE                                                                  \r\nBEGIN BULK                                                                      \r\nGRDSET,8)246                                                                    \r\nGRID,1,,200.,0.0,10.0                                                           \r\n=,2,,200.,=,0.0                                                                 \r\n=,3,,150.0,0.0,10.0                                                             \r\n=,4,,=,=,0.0                                                                    \r\n=,5,,100.,=,10.0                                                                \r\n=,6,,100.,=,0.0                                                                 \r\n=,7,,76.,=,10.0                                                                 \r\n=,8,,50.0,=,0.0                                                                 \r\n=,9,,25.86,=,10.0                                                               \r\n=,10,,0.,=,0.0                                                                  \r\n=,11,,-24.,=,10.0                                                               \r\nSPC1,1,13,10,11                                                                 \r\nSPC1,1,3,1,2,4,6                                                                \r\nCBAR,1,2,1,2,1.0,0.0,0.0,1                                                      \r\n=,2,5,1,3                                                                       \r\n=,3,=,3,5                                                                       \r\n=,4,=,7,9                                                                       \r\n=,5,=,9,11                                                                      \r\n=,6,5,2,4                                                                       \r\n=,7,=,4,6                                                                       \r\n=,8,=,6,8                                                                       \r\n=,9,=,8,10                                                                      \r\n=,10,=,5,7                                                                      \r\n=,11,3,7,6                                                                      \r\n=,12,=,5,6,1.0,0.0,0.0,1                                                        \r\nBAROR,,5,,,0.,0.,1.,1                                                           \r\nPBAR,1,6061,100.,100.,100.,100.,,,+P1                                           \r\n=,2,=,1.359,.752,.752,1.504,,,+P2                                               \r\n=,3,=,.25,.08,.08,.09,,,+P3                                                     \r\n=,4,=,.25,.08,.08,.09,,,+P4                                                     \r\n=,5,=,2.718,1.504,1.504,3.0,,,+P5                                               \r\nMAT1,6061,1.+7,,0.3,0.1                                                         \r\n+P1,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0                                         \r\n+P2,==                                                                          \r\n+P3,-.25,1.0,.25,1.0,.25,-1.0,-.25,1.0                                          \r\n+P4,==                                                                          \r\n+P5,-1.0,6.0,1.0,6.0,1.0,-6.0,-1.0,-6.0                                         \r\nSPCD,10,1,3,-1.0                                                                \r\nSPCD,10,2,3,-1.0                                                                \r\nSPCD,10,4,3,-1.0                                                                \r\nSPCD,10,6,3,-1.0                                                                \r\nFORCE,10,1,,110.0,0.0,0.0,-1.0                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01241a.inp",
    "content": "NASTRAN  TITLEOPT=-1, BANDIT=-1                                                 \r\nID    T01241A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   1,0                                                                       \r\nTIME  10                                                                        \r\nALTER 58                                                                        \r\n    TABPT   EPT,,,,  //      $                                                  \r\n    MATPRN  KGGX,,,, //      $                                                  \r\n    PARAML  EPT //*TABLE1*/1/6      /V,N,RSP    $                               \r\n    PARAML  EPT //*TABLE1*/1/4     //V,N,INT    $                               \r\n    PARAML  EPT //*TABLE2*/1/4     //V,N,INT2   $ INTENTIONAL ERROR             \r\n    PARAML  EPT //*TABLE2*/1/6    ///V,N,RDP    $                               \r\n    PARAML  EPT //*TABLE2*/1/6      /RSPX/INTX/V,N,RDPX  $                      \r\n    PARAML  EPT //*TABLE1*/1/1   ////V,N,BCD    $                               \r\n    PARAML  EPT //*TABLE2*/1/6  /////V,N,SCPLX  $                               \r\n    PARAML  EPT //*TABLE2*/1/6 //////V,N,DCPLX  $                               \r\n    PARAML  EPT //*TABLE4*/1/6 //////V,N,DCPLX4 $                               \r\n    PARAML  EPT //*TABLE2*/1/9      /V,N,LAST   $                               \r\n    PARAML  EPT //*TABLE1*/1/9      /V,N,LAST1  $                               \r\n    PARAML  KGGX//*MATRIX*/7/1      /V,N,R1     $                               \r\n    PARAML  KGGX//*MATRIX*/3/1     //V,N,I1     $                               \r\n    PARAML  KGGX//*MATRIX*/1/3    ///V,N,D1     $                               \r\n    PARAML  KGGX//*MATRIX*/1/3   ////V,N,B1     $                               \r\n    PARAML  KGGX//*MATRIX*/7/13 /////V,N,CS1    $                               \r\n    PARAML  KGGX//*MATRIX*/13/7//////V,N,CD1    $                               \r\n    PARAML  KGGX//*MATRIX*/13/19  ///V,N,D13    $                               \r\n    SCALAR  KGGX//         1/1      /V,N,SP1    $                               \r\n    SCALAR  KGGX//         1/3      /V,N,SP2    $                               \r\n    SCALAR  KGGX//         3/1      /V,N,SP3    $                               \r\n    SCALAR  KGGX//         7/13     /V,N,SP4    $                               \r\n    SCALAR  KGGX//        19/13    //V,N,DP4    $                               \r\n    SCALAR  KGGX//         7/13   ///V,N,CSP4   $                               \r\n    SCALAR  KGGX//        13/7   ////V,N,CDP4   $                               \r\n    PARAMR  //*ADD*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $                     \r\n    PARAMR  //*SUB*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $                     \r\n    PARAMR  //*ABS*     /V,N,ABSR1  /V,N,R1               $                     \r\n    PARAMR  //*ABS*     /V,N,ABSRX //V,N,R1     $ INTENTIONAL ERROR INPUT       \r\n    PARAMR  //*SQRT*    /V,N,SQTR1  /V,N,R1               $                     \r\n    PARAMR  //*SQRT*    /V,N,SQTR1  /V,N,ABSR1            $                     \r\n    PARAMR  //*MPYC* ////V,N,CMPY   /V,N,SCPLX /V,N,CS1   $                     \r\n    PARAMR  //*COMPLEX*//V,N,R1     /V,N,SP4   /V,N,OUTC  $                     \r\n    PARAMR  //*LE*     //V,N,R1     /V,N,SP4////V,N,LEFLG $                     \r\n    PARAMD  //*MPY*     /V,N,RDPDP  /V,N,RDPX  /V,N,RDPX  $                     \r\n    PARAMD  //*MPY*     /V,N,RDPDX //V,N,RDPX  /V,N,RDPY  $ ERROR INPUT         \r\n    PARAMD  //*DIV*     /V,N,DP4X   /V,N,DP4   /V,N,RDPX  $                     \r\n    PARAMD  //*EXP*     /V,N,EXPX   /V,N,DP4   /V,N,RDP   $                     \r\n    PARAMD  //*CONJ* ////V,N,CONJX  /V,N,CDP4             $                     \r\n    PARAMD  //*DIVC* ////V,N,DIVCX  /V,N,DCPLX4/V,N,CDP4  $                     \r\n    PARAMD  //*EQ*     //V,N,EXPX   /V,N,DP4////V,N,EQFLG $                     \r\n    PRTPARM // 0   $                                                            \r\n    JUMP    FINIS  $                                                            \r\nENDALTER                                                                        \r\nCEND                                                                            \r\nTITLE    = TESTING PARAML,PARAMD,PARAMR,SCALAR MODULES                          \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-24-1A                                   \r\n    SPC  = 1                                                                    \r\n    LOAD = 1                                                                    \r\n    DISP = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nCROD    60      5       1       2       61      5       2       3               \r\nCROD    62      5       3       4                                               \r\nFORCE   1       4       0       -1.     .0      .0      100.                    \r\nGRDSET                                                  456                     \r\nGRID    1               .0      .0      .0                                      \r\nGRID    2               10.     .0      .0                                      \r\nGRID    3               30.     .0      .0                                      \r\nGRID    4               50.     .0      .0                                      \r\nPROD    5       6       2.1                                                     \r\nMAT1    6       1.04+7  4.+6                                                    \r\nSPC1    1       123     1                                                       \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01251a.inp",
    "content": "ID    T01251A,NASTRAN                                                           \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  30                                                                        \r\nDIAG  48                                                                        \r\nCEND                                                                            \r\nTITLE    = LAMINATED COMPOSITE PLATE - PURE TWIST LOADING                       \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-25-1A                                   \r\n$                                                                               \r\n$   MODEL: A SQUARE PLATE OF A 4X4 MESH WITH THREE CORNERS                      \r\n$          PINNED AND A TRANSVERSE POINT LOAD AT THE FREE                       \r\n$          CORNER TO SIMULATE A PURE TWIST LOADING.  THE                        \r\n$          LAMINATE LAYUP IS OF A CROSS-PLY CONFIGURATION                       \r\n$          [0/90/0].                                                            \r\n$                                                                               \r\n$       * * T3 DEFLECTION AT GRID 1 * *                                         \r\n$                                                                               \r\n$              THEORETICAL                                                      \r\n$        -----------------------------------------------                        \r\n$              -3.750E-2                                                        \r\n$                                                                               \r\n$                                                                               \r\n$       * * TAU FOR ELEMENT 1, ALL LAYERS * *                                   \r\n$                                                                               \r\n$              THEORETICAL                                                      \r\n$        -----------------------------------------------                        \r\n$       PLY 1  -5.0E1                                                           \r\n$       PLY 2   0.0                                                             \r\n$       PLY 3   5.0E1                                                           \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\n$   REFERENCES:  JONES R. M., MECHANICS OF COMPOSITE MATERIALS.                 \r\n$               M GRAW-HILL BOOK COMPANY.  (PAGE 181)                           \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\nSPC   = 1                                                                       \r\nSUBCASE 1                                                                       \r\nLABEL = LAYER STRESS REQUEST                                                    \r\nDISP  = ALL                                                                     \r\nSTRESS(LAYER) = ALL                                                             \r\nFORCE = ALL                                                                     \r\nLOAD  = 1                                                                       \r\nBEGIN BULK                                                                      \r\nCQUAD4  1       3       1       2       5       4                               \r\nCQUAD4  2       3       2       3       6       5                               \r\nCQUAD4  3       3       4       5       8       7                               \r\nCQUAD4  4       3       5       6       9       8                               \r\nFORCE   1       1               1.0     0.0     0.0     -1.0                    \r\nGRID    1               0.0     0.0                                             \r\nGRID    2               2.5     0.0                                             \r\nGRID    3               5.0     0.0                                             \r\nGRID    4               0.0     2.5                                             \r\nGRID    5               2.5     2.5                                             \r\nGRID    6               5.0     2.5                                             \r\nGRID    7               0.0     5.0                                             \r\nGRID    8               2.5     5.0                                             \r\nGRID    9               5.0     5.0                                             \r\nMAT8    3       2.0  E+75.0  E+5.25     25.0E+04                        +MAT8   \r\n+MAT8                           1.6 E+051.2 E+042.0 E+053.0 E+041.5 E+04        \r\nPCOMP1  3                       1.2 E+04HILL    3       .0666666        +PCOMP1 \r\n+PCOMP1 0.0     90.0    0.0                                                     \r\nSPC1    1       6       1       2       4       5       6       8               \r\nSPC1    1       1236    3       7       9                                       \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01261a.inp",
    "content": "ID    T01261A,NASTRAN                                                           \r\nDIAG  40                                                                        \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = COMP01 **COSMIC** QUAD4 FLAT PLATE TEST                              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-26-1A                                   \r\nLABEL    = MESH 4X4 , ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                  \r\n$                                                                               \r\n$    MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE                    \r\n$           OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0].                    \r\n$           UNDER A UNIFORM PRESSURE LOADING.                                   \r\n$                                                                               \r\n$       * * T3 DEFLECTION AT GRID 25 * *                                        \r\n$                                                                               \r\n$           THEORETICAL                                                         \r\n$        ----------------------------------------------                         \r\n$           -1.836E-3                                                           \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\n$   REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS.                   \r\n$              M GRAW-HILL BOOK COMPANY.  (PAGE 248-250)                        \r\n$                                                                               \r\n$                                                                               \r\nSET 1 = 2,7,12,17                                                               \r\nDISP  = ALL                                                                     \r\nSTRESS(LAYER) = 1                                                               \r\nFORCE = 1                                                                       \r\nSUBCASE 1                                                                       \r\n    SUBTITLE = SIMPLE SUPPORTS, UNIFORM LOAD                                    \r\n    SPC  = 1                                                                    \r\n    LOAD = 1                                                                    \r\nBEGIN BULK                                                                      \r\nMAT8    1       20.0E+06.50  E+6.25     .250 E+6                                \r\nPARAM   AUTOSPC 1                                                               \r\nPCOMP   1       -.001                                                   +PC1    \r\n+PC1    1       .000666 0.0     YES     1       .000666 90.0    YES     +PC2    \r\n+PC2    1       .000666 0.0     YES                                             \r\nPLOAD4  1       2       -1.0E-04                        THRU    17              \r\nSPC1    1       15      22      23      24                                      \r\nSPC1    1       24      10      15      20                                      \r\nSPC1    1       1234    2       3       4       5                               \r\nSPC1    1       1235    6       11      16      21                              \r\nSPC1    1       1245    25                                                      \r\nSPC1    1       12345   1                                                       \r\nGRID           1           0.000   0.000   0.000                                \r\nGRID           2           0.000    .250   0.000                                \r\nGRID           3           0.000    .500   0.000                                \r\nGRID           4           0.000    .750   0.000                                \r\nGRID           5           0.000   1.000   0.000                                \r\nGRID           6            .250   0.000   0.000                                \r\nGRID           7            .250    .250   0.000                                \r\nGRID           8            .250    .500   0.000                                \r\nGRID           9            .250    .750   0.000                                \r\nGRID          10            .250   1.000   0.000                                \r\nGRID          11            .500   0.000   0.000                                \r\nGRID          12            .500    .250   0.000                                \r\nGRID          13            .500    .500   0.000                                \r\nGRID          14            .500    .750   0.000                                \r\nGRID          15            .500   1.000   0.000                                \r\nGRID          16            .750   0.000   0.000                                \r\nGRID          17            .750    .250   0.000                                \r\nGRID          18            .750    .500   0.000                                \r\nGRID          19            .750    .750   0.000                                \r\nGRID          20            .750   1.000   0.000                                \r\nGRID          21           1.000   0.000   0.000                                \r\nGRID          22           1.000    .250   0.000                                \r\nGRID          23           1.000    .500   0.000                                \r\nGRID          24           1.000    .750   0.000                                \r\nGRID          25           1.000   1.000   0.000                                \r\nCQUAD4         2       1       1       6       7       2                        \r\nCQUAD4         3       1       6      11      12       7                        \r\nCQUAD4         4       1      11      16      17      12                        \r\nCQUAD4         5       1      16      21      22      17                        \r\nCQUAD4         6       1       2       7       8       3                        \r\nCQUAD4         7       1       7      12      13       8                        \r\nCQUAD4         8       1      12      17      18      13                        \r\nCQUAD4         9       1      17      22      23      18                        \r\nCQUAD4        10       1       3       8       9       4                        \r\nCQUAD4        11       1       8      13      14       9                        \r\nCQUAD4        12       1      13      18      19      14                        \r\nCQUAD4        13       1      18      23      24      19                        \r\nCQUAD4        14       1       4       9      10       5                        \r\nCQUAD4        15       1       9      14      15      10                        \r\nCQUAD4        16       1      14      19      20      15                        \r\nCQUAD4        17       1      19      24      25      20                        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01271a.inp",
    "content": "NASTRAN FILES=PLT2                                                              \r\nID    T01271A,NASTRAN                                                           \r\nDIAG  40                                                                        \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  100                                                                       \r\nCEND                                                                            \r\nTITLE    = QUAD4 COMPOSITE TUBE - SYMMETRIC LAYUP [45/-45/0/90]S                \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-27-1A                                   \r\nLABEL    = TUBE UNDER CONSTANT PRESSURE P                                       \r\n$                                                                               \r\n$                                                                               \r\n$    MODEL: SECTION OF A OPEN TUBE RADIUS R, UNDER PRESSURE P.                  \r\n$           SYMMETRIC LAYUP [45/-45/0/90/90/0/-45/45]                           \r\n$                                                                               \r\n$        * *  HOOP LOADING FY FOR ELEMENT ID 8 * *                              \r\n$                                                                               \r\n$                                                                               \r\n$        HOOP LOADING FY = P * R = 10.5 * 50 = 5.25E5                           \r\n$                                                                               \r\n$        THEORETICAL                                                            \r\n$        ------------------------------------------------                       \r\n$        5.25E2                                                                 \r\n$                                                                               \r\n$                                                                               \r\n$        * * LAYER STRESSES FOR ELEMENT ID 8 * *                                \r\n$                                                                               \r\n$        ------------------------------------------------------                 \r\n$                   SIG1           SIG2       TAU12                             \r\n$         LAYER 1  2.524E2       1.741E1      2.277E1                           \r\n$         LAYER 2  2.494E2       1.751E1     -2.276E1                           \r\n$         LAYER 3 -2.259E2       3.231E1      1.944E-2                          \r\n$         LAYER 4  7.271E2       2.652E0      1.556E-2                          \r\n$         LAYER 5  7.270E2       2.660E0      5.054E-2                          \r\n$         LAYER 6 -2.253E2       3.230E1     -8.551E-2                          \r\n$         LAYER 7  2.534E2       1.741E1     -2.273E1                           \r\n$         LAYER 8  2.477E2       1.759E1      2.272E1                           \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\nSPC   = 1                                                                       \r\nSET 1 = 29,45,61,77                                                             \r\nSET 2 = 8,24                                                                    \r\nDISP(PRINT)   = 1                                                               \r\nSTRESS(LAYER) = 2                                                               \r\nFORCE(PRINT)  = 2                                                               \r\nSUBCASE 1                                                                       \r\n  LOAD = 1                                                                      \r\nOUTPUT(PLOT)                                                                    \r\nSET 1  = ALL                                                                    \r\nPLOT SET 1                                                                      \r\nPLOT SET 1, HIDD                                                                \r\nBEGIN BULK                                                                      \r\nCORD2C  1               0.0     0.0     0.0     0.0     0.0     1.0     +MOR1001\r\n+MOR10011.0     0.0     0.0                                                     \r\nMAT8    1       73.8 E+33.75 E+30.4     1.74 E+3                        +MA1    \r\n+MA1                            1680.   -229.0  20.9    -137.0  82.9            \r\nPCOMP   2       -0.96           10000.0 HILL                    SYM     +PC1    \r\n+PC1    1       .24     45.0    YES                     -45.0   YES     +PC2    \r\n+PC2                    0.0     YES                     90.0    YES             \r\nPLOAD4  1       1       10.5                            THRU    128             \r\nSPC1    1       3       1       9       16      24                              \r\nSPC1    1       145     9       24      136     137                             \r\nSPC1    1       245     1       16      129     144                             \r\nGRID           1       1  50.000 180.000   0.000                                \r\nGRID           2       1  50.000 202.500   0.000                                \r\nGRID           3       1  50.000 157.500   0.000                                \r\nGRID           4       1  50.000 225.000   0.000                                \r\nGRID           5       1  50.000 135.000   0.000                                \r\nGRID           6       1  50.000 247.500   0.000                                \r\nGRID           7       1  50.000 112.500   0.000                                \r\nGRID           8       1  50.000 270.000   0.000                                \r\nGRID           9       1  50.000  90.000   0.000                                \r\nGRID          10       1  50.000 292.500   0.000                                \r\nGRID          11       1  50.000  67.500   0.000                                \r\nGRID          12       1  50.000 315.000   0.000                                \r\nGRID          13       1  50.000  45.000   0.000                                \r\nGRID          14       1  50.000 337.500   0.000                                \r\nGRID          15       1  50.000  22.500   0.000                                \r\nGRID          16       1  50.000   0.000   0.000                                \r\nGRID          17       1  50.000 180.000  10.000                                \r\nGRID          18       1  50.000 202.500  10.000                                \r\nGRID          19       1  50.000 157.500  10.000                                \r\nGRID          20       1  50.000 225.000  10.000                                \r\nGRID          21       1  50.000 135.000  10.000                                \r\nGRID          22       1  50.000 247.500  10.000                                \r\nGRID          23       1  50.000 112.500  10.000                                \r\nGRID          24       1  50.000 270.000  10.000                                \r\nGRID          25       1  50.000  90.000  10.000                                \r\nGRID          26       1  50.000 292.500  10.000                                \r\nGRID          27       1  50.000  67.500  10.000                                \r\nGRID          28       1  50.000 315.000  10.000                                \r\nGRID          29       1  50.000  45.000  10.000                                \r\nGRID          30       1  50.000 337.500  10.000                                \r\nGRID          31       1  50.000  22.500  10.000                                \r\nGRID          32       1  50.000   0.000  10.000                                \r\nGRID          33       1  50.000 180.000  20.000                                \r\nGRID          34       1  50.000 202.500  20.000                                \r\nGRID          35       1  50.000 157.500  20.000                                \r\nGRID          36       1  50.000 225.000  20.000                                \r\nGRID          37       1  50.000 135.000  20.000                                \r\nGRID          38       1  50.000 247.500  20.000                                \r\nGRID          39       1  50.000 112.500  20.000                                \r\nGRID          40       1  50.000 270.000  20.000                                \r\nGRID          41       1  50.000  90.000  20.000                                \r\nGRID          42       1  50.000 292.500  20.000                                \r\nGRID          43       1  50.000  67.500  20.000                                \r\nGRID          44       1  50.000 315.000  20.000                                \r\nGRID          45       1  50.000  45.000  20.000                                \r\nGRID          46       1  50.000 337.500  20.000                                \r\nGRID          47       1  50.000  22.500  20.000                                \r\nGRID          48       1  50.000   0.000  20.000                                \r\nGRID          49       1  50.000 180.000  30.000                                \r\nGRID          50       1  50.000 202.500  30.000                                \r\nGRID          51       1  50.000 157.500  30.000                                \r\nGRID          52       1  50.000 225.000  30.000                                \r\nGRID          53       1  50.000 135.000  30.000                                \r\nGRID          54       1  50.000 247.500  30.000                                \r\nGRID          55       1  50.000 112.500  30.000                                \r\nGRID          56       1  50.000 270.000  30.000                                \r\nGRID          57       1  50.000  90.000  30.000                                \r\nGRID          58       1  50.000 292.500  30.000                                \r\nGRID          59       1  50.000  67.500  30.000                                \r\nGRID          60       1  50.000 315.000  30.000                                \r\nGRID          61       1  50.000  45.000  30.000                                \r\nGRID          62       1  50.000 337.500  30.000                                \r\nGRID          63       1  50.000  22.500  30.000                                \r\nGRID          64       1  50.000   0.000  30.000                                \r\nGRID          65       1  50.000 180.000  40.000                                \r\nGRID          66       1  50.000 202.500  40.000                                \r\nGRID          67       1  50.000 157.500  40.000                                \r\nGRID          68       1  50.000 225.000  40.000                                \r\nGRID          69       1  50.000 135.000  40.000                                \r\nGRID          70       1  50.000 247.500  40.000                                \r\nGRID          71       1  50.000 112.500  40.000                                \r\nGRID          72       1  50.000 270.000  40.000                                \r\nGRID          73       1  50.000  90.000  40.000                                \r\nGRID          74       1  50.000 292.500  40.000                                \r\nGRID          75       1  50.000  67.500  40.000                                \r\nGRID          76       1  50.000 315.000  40.000                                \r\nGRID          77       1  50.000  45.000  40.000                                \r\nGRID          78       1  50.000 337.500  40.000                                \r\nGRID          79       1  50.000  22.500  40.000                                \r\nGRID          80       1  50.000   0.000  40.000                                \r\nGRID          81       1  50.000 180.000  50.000                                \r\nGRID          82       1  50.000 202.500  50.000                                \r\nGRID          83       1  50.000 157.500  50.000                                \r\nGRID          84       1  50.000 225.000  50.000                                \r\nGRID          85       1  50.000 135.000  50.000                                \r\nGRID          86       1  50.000 247.500  50.000                                \r\nGRID          87       1  50.000 112.500  50.000                                \r\nGRID          88       1  50.000 270.000  50.000                                \r\nGRID          89       1  50.000  90.000  50.000                                \r\nGRID          90       1  50.000 292.500  50.000                                \r\nGRID          91       1  50.000  67.500  50.000                                \r\nGRID          92       1  50.000 315.000  50.000                                \r\nGRID          93       1  50.000  45.000  50.000                                \r\nGRID          94       1  50.000 337.500  50.000                                \r\nGRID          95       1  50.000  22.500  50.000                                \r\nGRID          96       1  50.000   0.000  50.000                                \r\nGRID          97       1  50.000 180.000  60.000                                \r\nGRID          98       1  50.000 202.500  60.000                                \r\nGRID          99       1  50.000 157.500  60.000                                \r\nGRID         100       1  50.000 225.000  60.000                                \r\nGRID         101       1  50.000 135.000  60.000                                \r\nGRID         102       1  50.000 247.500  60.000                                \r\nGRID         103       1  50.000 112.500  60.000                                \r\nGRID         104       1  50.000 270.000  60.000                                \r\nGRID         105       1  50.000  90.000  60.000                                \r\nGRID         106       1  50.000 292.500  60.000                                \r\nGRID         107       1  50.000  67.500  60.000                                \r\nGRID         108       1  50.000 315.000  60.000                                \r\nGRID         109       1  50.000  45.000  60.000                                \r\nGRID         110       1  50.000 337.500  60.000                                \r\nGRID         111       1  50.000  22.500  60.000                                \r\nGRID         112       1  50.000   0.000  60.000                                \r\nGRID         113       1  50.000 180.000  70.000                                \r\nGRID         114       1  50.000 202.500  70.000                                \r\nGRID         115       1  50.000 157.500  70.000                                \r\nGRID         116       1  50.000 225.000  70.000                                \r\nGRID         117       1  50.000 135.000  70.000                                \r\nGRID         118       1  50.000 247.500  70.000                                \r\nGRID         119       1  50.000 112.500  70.000                                \r\nGRID         120       1  50.000 270.000  70.000                                \r\nGRID         121       1  50.000  90.000  70.000                                \r\nGRID         122       1  50.000 292.500  70.000                                \r\nGRID         123       1  50.000  67.500  70.000                                \r\nGRID         124       1  50.000 315.000  70.000                                \r\nGRID         125       1  50.000  45.000  70.000                                \r\nGRID         126       1  50.000 337.500  70.000                                \r\nGRID         127       1  50.000  22.500  70.000                                \r\nGRID         128       1  50.000   0.000  70.000                                \r\nGRID         129       1  50.000 180.000  80.000                                \r\nGRID         130       1  50.000 202.500  80.000                                \r\nGRID         131       1  50.000 157.500  80.000                                \r\nGRID         132       1  50.000 225.000  80.000                                \r\nGRID         133       1  50.000 135.000  80.000                                \r\nGRID         134       1  50.000 247.500  80.000                                \r\nGRID         135       1  50.000 112.500  80.000                                \r\nGRID         136       1  50.000 270.000  80.000                                \r\nGRID         137       1  50.000  90.000  80.000                                \r\nGRID         138       1  50.000 292.500  80.000                                \r\nGRID         139       1  50.000  67.500  80.000                                \r\nGRID         140       1  50.000 315.000  80.000                                \r\nGRID         141       1  50.000  45.000  80.000                                \r\nGRID         142       1  50.000 337.500  80.000                                \r\nGRID         143       1  50.000  22.500  80.000                                \r\nGRID         144       1  50.000   0.000  80.000                                \r\nCQUAD4  1       2       17      33      35      19                              \r\nCQUAD4  2       2       19      35      37      21                              \r\nCQUAD4  3       2       17      18      34      33                              \r\nCQUAD4  4       2       18      20      36      34                              \r\nCQUAD4  5       2       24      26      42      40                              \r\nCQUAD4  6       2       26      28      44      42                              \r\nCQUAD4  7       2       24      40      38      22                              \r\nCQUAD4  8       2       22      38      36      20                              \r\nCQUAD4  9       2       25      23      39      41                              \r\nCQUAD4  10      2       23      21      37      39                              \r\nCQUAD4  11      2       25      41      43      27                              \r\nCQUAD4  12      2       27      43      45      29                              \r\nCQUAD4  13      2       32      48      46      30                              \r\nCQUAD4  14      2       30      46      44      28                              \r\nCQUAD4  15      2       32      31      47      48                              \r\nCQUAD4  16      2       31      29      45      47                              \r\nCQUAD4  17      2       33      49      51      35                              \r\nCQUAD4  18      2       35      51      53      37                              \r\nCQUAD4  19      2       33      34      50      49                              \r\nCQUAD4  20      2       34      36      52      50                              \r\nCQUAD4  21      2       40      42      58      56                              \r\nCQUAD4  22      2       42      44      60      58                              \r\nCQUAD4  23      2       40      56      54      38                              \r\nCQUAD4  24      2       38      54      52      36                              \r\nCQUAD4  25      2       41      39      55      57                              \r\nCQUAD4  26      2       39      37      53      55                              \r\nCQUAD4  27      2       41      57      59      43                              \r\nCQUAD4  28      2       43      59      61      45                              \r\nCQUAD4  29      2       48      64      62      46                              \r\nCQUAD4  30      2       46      62      60      44                              \r\nCQUAD4  31      2       48      47      63      64                              \r\nCQUAD4  32      2       47      45      61      63                              \r\nCQUAD4  33      2       49      65      67      51                              \r\nCQUAD4  34      2       51      67      69      53                              \r\nCQUAD4  35      2       49      50      66      65                              \r\nCQUAD4  36      2       50      52      68      66                              \r\nCQUAD4  37      2       56      58      74      72                              \r\nCQUAD4  38      2       58      60      76      74                              \r\nCQUAD4  39      2       56      72      70      54                              \r\nCQUAD4  40      2       54      70      68      52                              \r\nCQUAD4  41      2       57      55      71      73                              \r\nCQUAD4  42      2       55      53      69      71                              \r\nCQUAD4  43      2       57      73      75      59                              \r\nCQUAD4  44      2       59      75      77      61                              \r\nCQUAD4  45      2       64      80      78      62                              \r\nCQUAD4  46      2       62      78      76      60                              \r\nCQUAD4  47      2       64      63      79      80                              \r\nCQUAD4  48      2       63      61      77      79                              \r\nCQUAD4  49      2       65      81      83      67                              \r\nCQUAD4  50      2       67      83      85      69                              \r\nCQUAD4  51      2       65      66      82      81                              \r\nCQUAD4  52      2       66      68      84      82                              \r\nCQUAD4  53      2       72      74      90      88                              \r\nCQUAD4  54      2       74      76      92      90                              \r\nCQUAD4  55      2       72      88      86      70                              \r\nCQUAD4  56      2       70      86      84      68                              \r\nCQUAD4  57      2       73      71      87      89                              \r\nCQUAD4  58      2       71      69      85      87                              \r\nCQUAD4  59      2       73      89      91      75                              \r\nCQUAD4  60      2       75      91      93      77                              \r\nCQUAD4  61      2       80      96      94      78                              \r\nCQUAD4  62      2       78      94      92      76                              \r\nCQUAD4  63      2       80      79      95      96                              \r\nCQUAD4  64      2       79      77      93      95                              \r\nCQUAD4  65      2       81      97      99      83                              \r\nCQUAD4  66      2       83      99      101     85                              \r\nCQUAD4  67      2       81      82      98      97                              \r\nCQUAD4  68      2       82      84      100     98                              \r\nCQUAD4  69      2       88      90      106     104                             \r\nCQUAD4  70      2       90      92      108     106                             \r\nCQUAD4  71      2       88      104     102     86                              \r\nCQUAD4  72      2       86      102     100     84                              \r\nCQUAD4  73      2       89      87      103     105                             \r\nCQUAD4  74      2       87      85      101     103                             \r\nCQUAD4  75      2       89      105     107     91                              \r\nCQUAD4  76      2       91      107     109     93                              \r\nCQUAD4  77      2       96      112     110     94                              \r\nCQUAD4  78      2       94      110     108     92                              \r\nCQUAD4  79      2       96      95      111     112                             \r\nCQUAD4  80      2       95      93      109     111                             \r\nCQUAD4  81      2       97      113     115     99                              \r\nCQUAD4  82      2       99      115     117     101                             \r\nCQUAD4  83      2       97      98      114     113                             \r\nCQUAD4  84      2       98      100     116     114                             \r\nCQUAD4  85      2       104     106     122     120                             \r\nCQUAD4  86      2       106     108     124     122                             \r\nCQUAD4  87      2       104     120     118     102                             \r\nCQUAD4  88      2       102     118     116     100                             \r\nCQUAD4  89      2       105     103     119     121                             \r\nCQUAD4  90      2       103     101     117     119                             \r\nCQUAD4  91      2       105     121     123     107                             \r\nCQUAD4  92      2       107     123     125     109                             \r\nCQUAD4  93      2       112     128     126     110                             \r\nCQUAD4  94      2       110     126     124     108                             \r\nCQUAD4  95      2       112     111     127     128                             \r\nCQUAD4  96      2       111     109     125     127                             \r\nCQUAD4  97      2       113     129     131     115                             \r\nCQUAD4  98      2       115     131     133     117                             \r\nCQUAD4  99      2       113     114     130     129                             \r\nCQUAD4  100     2       114     116     132     130                             \r\nCQUAD4  101     2       120     122     138     136                             \r\nCQUAD4  102     2       122     124     140     138                             \r\nCQUAD4  103     2       120     136     134     118                             \r\nCQUAD4  104     2       118     134     132     116                             \r\nCQUAD4  105     2       121     119     135     137                             \r\nCQUAD4  106     2       119     117     133     135                             \r\nCQUAD4  107     2       121     137     139     123                             \r\nCQUAD4  108     2       123     139     141     125                             \r\nCQUAD4  109     2       128     144     142     126                             \r\nCQUAD4  110     2       126     142     140     124                             \r\nCQUAD4  111     2       128     127     143     144                             \r\nCQUAD4  112     2       127     125     141     143                             \r\nCQUAD4  113     2       1       17      19      3                               \r\nCQUAD4  114     2       3       19      21      5                               \r\nCQUAD4  115     2       1       2       18      17                              \r\nCQUAD4  116     2       2       4       20      18                              \r\nCQUAD4  117     2       8       10      26      24                              \r\nCQUAD4  118     2       10      12      28      26                              \r\nCQUAD4  119     2       8       24      22      6                               \r\nCQUAD4  120     2       6       22      20      4                               \r\nCQUAD4  121     2       9       7       23      25                              \r\nCQUAD4  122     2       7       5       21      23                              \r\nCQUAD4  123     2       9       25      27      11                              \r\nCQUAD4  124     2       11      27      29      13                              \r\nCQUAD4  125     2       16      32      30      14                              \r\nCQUAD4  126     2       14      30      28      12                              \r\nCQUAD4  127     2       16      15      31      32                              \r\nCQUAD4  128     2       15      13      29      31                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01281a.inp",
    "content": "ID    T01281A,NASTRAN                                                           \r\nDIAG  40                                                                        \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = COMP04 ***COSMIS*** QUAD4 4-NODE STRAIGHT BEAM TEST                  \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-28-1A                                   \r\nLABEL    = REGULAR SHAPE ELEMENTS ( ISOTROPIC PROPERTIES)                       \r\n$                                                                               \r\n$    MODEL: CANTILEVERED BEAM MODEL UNDER A) EXTENSIONAL AND                    \r\n$           B) BENDING LOADINGS.  SIMULATION OF EQUIVALENT                      \r\n$           ISOTROPIC PROPERTIES. LAMINATE CONFIGURATION                        \r\n$           [0/0/0/0]                                                           \r\n$                                                                               \r\n$       * * T1 DEFLECTION AT GRIDS 13 AND 14 * *                                \r\n$                                                                               \r\n$           THEORETICAL                                                         \r\n$        --------------------------------------------------                     \r\n$ SUBCASE 1 (EXTENSIONAL)                                                       \r\n$                                                                               \r\n$ GRID 13   3.0E-5                                                              \r\n$ GRID 14   3.0E-5                                                              \r\n$                                                                               \r\n$       * * T3 DEFLECTION AT GRIDS 13 AND 14 * *                                \r\n$                                                                               \r\n$           THEORETICAL                                                         \r\n$        --------------------------------------------------                     \r\n$ SUBCASE 2 (BENDING)                                                           \r\n$                                                                               \r\n$ GRID 13   4.320E-1                                                            \r\n$ GRID 14   4.320E-1                                                            \r\n$                                                                               \r\n$                                                                               \r\n$       * * BENDING MOMENT DISTRIBUTION FROM     * *                            \r\n$       * * THE FREE END TO THE CANTILEVERED END * *                            \r\n$           NOTE: THE BENDING MOMENTS ARE AT THE ELEMENT CENTER                 \r\n$                                                                               \r\n$           THEORETICAL                                                         \r\n$        ----------------------------------------------------                   \r\n$           2.500E0                                                             \r\n$           7.500E0                                                             \r\n$           1.250E1                                                             \r\n$           1.750E1                                                             \r\n$           2.250E1                                                             \r\n$           2.750E1                                                             \r\n$                                                                               \r\n$                                                                               \r\n$       * * DIRECT LAYER BENDING STRESS           * *                           \r\n$       * * ELEMENT 6 (LARGEST BENDING MOMENT)    * *                           \r\n$                                                                               \r\n$        --------------------------------------                                 \r\n$                                                                               \r\n$           LAYER 1   1.238E4                                                   \r\n$           LAYER 2   4.125E3                                                   \r\n$           LAYER 3  -4.125E3                                                   \r\n$           LAYER 4  -1.238E4                                                   \r\n$                                                                               \r\n$                                                                               \r\n$                                                                               \r\nSTRESS(LAYER) = ALL                                                             \r\nDISP  = ALL                                                                     \r\nFORCE = ALL                                                                     \r\nSPC   = 1                                                                       \r\nSUBCASE 1                                                                       \r\n   SUBTITLE = EXTENSION                                                         \r\n       LOAD = 1                                                                 \r\nSUBCASE 2                                                                       \r\n   SUBTITLE = OUT-OF-PLANE SHEAR                                                \r\n       LOAD = 2                                                                 \r\nBEGIN BULK                                                                      \r\nCQUAD4  1       1       3       5       6       4                               \r\nCQUAD4  2       1       5       7       8       6                               \r\nCQUAD4  3       1       7       9       10      8                               \r\nCQUAD4  4       1       9       11      12      10                              \r\nCQUAD4  5       1       11      13      14      12                              \r\nCQUAD4  6       1       1       3       4       2                               \r\nFORCE   1       13              0.5     1.0     0.0     0.0                     \r\nFORCE   1       14              0.5     1.0     0.0     0.0                     \r\nFORCE   2       13              0.5     0.0     0.0     1.0                     \r\nFORCE   2       14              0.5     0.0     0.0     1.0                     \r\nGRID    1               0.0     0.0     0.0                                     \r\nGRID    2               0.0     0.200   0.0                                     \r\nGRID    3               1.0     0.0     0.0                                     \r\nGRID    4               1.0     0.2     0.0                                     \r\nGRID    5               2.0     0.0     0.0                                     \r\nGRID    6               2.0     0.2     0.0                                     \r\nGRID    7               3.0     0.0     0.0                                     \r\nGRID    8               3.0     0.2     0.0                                     \r\nGRID    9               4.0     0.0     0.0                                     \r\nGRID    10              4.0     0.2     0.0                                     \r\nGRID    11              5.0     0.0     0.0                                     \r\nGRID    12              5.0     0.2     0.0                                     \r\nGRID    13              6.0     0.0     0.0                                     \r\nGRID    14              6.0     0.2     0.0                                     \r\nMAT1    1       .100E+08        0.300                                           \r\nPARAM   AUTOSPC 1                                                               \r\nPCOMP2   1                                        1              SYM    +PC1    \r\n+PC1    0.025   0.0     0.025   0.0                                             \r\nSPC1    1       123456  1       2                                               \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01291a.inp",
    "content": "ID    T01291A,NASTRAN                                                           \r\nDIAG  40                                                                        \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = COMPO5 QUAD4 4-NODE SHELL ROOF TEST LAMINATED COMPOSITE SHELL        \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-29-1A                                   \r\n$                                                                               \r\n$                                                                               \r\n$    MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL.                               \r\n$           SYMMETRIC ANGLE PLY LAYUP                                           \r\n$           [ 45/-45/15/-15/-15/15/-45/45 ]                                     \r\n$                                                                               \r\n$                                                                               \r\nSPC  = 1                                                                        \r\nLOAD = 1                                                                        \r\nDISP = ALL                                                                      \r\nBEGIN BULK                                                                      \r\nGRID           1       1  25.000   0.000   0.000       1                        \r\nGRID           2       1  25.000   5.000   0.000       1                        \r\nGRID           3       1  25.000  10.000   0.000       1                        \r\nGRID           4       1  25.000  15.000   0.000       1                        \r\nGRID           5       1  25.000  20.000   0.000       1                        \r\nGRID           6       1  25.000  25.000   0.000       1                        \r\nGRID           7       1  25.000  30.000   0.000       1                        \r\nGRID           8       1  25.000  35.000   0.000       1                        \r\nGRID           9       1  25.000  40.000   0.000       1                        \r\nGRID          10       1  25.000   0.000   3.125       1                        \r\nGRID          11       1  25.000   5.000   3.125       1                        \r\nGRID          12       1  25.000  10.000   3.125       1                        \r\nGRID          13       1  25.000  15.000   3.125       1                        \r\nGRID          14       1  25.000  20.000   3.125       1                        \r\nGRID          15       1  25.000  25.000   3.125       1                        \r\nGRID          16       1  25.000  30.000   3.125       1                        \r\nGRID          17       1  25.000  35.000   3.125       1                        \r\nGRID          18       1  25.000  40.000   3.125       1                        \r\nGRID          19       1  25.000   0.000   6.250       1                        \r\nGRID          20       1  25.000   5.000   6.250       1                        \r\nGRID          21       1  25.000  10.000   6.250       1                        \r\nGRID          22       1  25.000  15.000   6.250       1                        \r\nGRID          23       1  25.000  20.000   6.250       1                        \r\nGRID          24       1  25.000  25.000   6.250       1                        \r\nGRID          25       1  25.000  30.000   6.250       1                        \r\nGRID          26       1  25.000  35.000   6.250       1                        \r\nGRID          27       1  25.000  40.000   6.250       1                        \r\nGRID          28       1  25.000   0.000   9.375       1                        \r\nGRID          29       1  25.000   5.000   9.375       1                        \r\nGRID          30       1  25.000  10.000   9.375       1                        \r\nGRID          31       1  25.000  15.000   9.375       1                        \r\nGRID          32       1  25.000  20.000   9.375       1                        \r\nGRID          33       1  25.000  25.000   9.375       1                        \r\nGRID          34       1  25.000  30.000   9.375       1                        \r\nGRID          35       1  25.000  35.000   9.375       1                        \r\nGRID          36       1  25.000  40.000   9.375       1                        \r\nGRID          37       1  25.000   0.000  12.500       1                        \r\nGRID          38       1  25.000   5.000  12.500       1                        \r\nGRID          39       1  25.000  10.000  12.500       1                        \r\nGRID          40       1  25.000  15.000  12.500       1                        \r\nGRID          41       1  25.000  20.000  12.500       1                        \r\nGRID          42       1  25.000  25.000  12.500       1                        \r\nGRID          43       1  25.000  30.000  12.500       1                        \r\nGRID          44       1  25.000  35.000  12.500       1                        \r\nGRID          45       1  25.000  40.000  12.500       1                        \r\nGRID          46       1  25.000   0.000  15.625       1                        \r\nGRID          47       1  25.000   5.000  15.625       1                        \r\nGRID          48       1  25.000  10.000  15.625       1                        \r\nGRID          49       1  25.000  15.000  15.625       1                        \r\nGRID          50       1  25.000  20.000  15.625       1                        \r\nGRID          51       1  25.000  25.000  15.625       1                        \r\nGRID          52       1  25.000  30.000  15.625       1                        \r\nGRID          53       1  25.000  35.000  15.625       1                        \r\nGRID          54       1  25.000  40.000  15.625       1                        \r\nGRID          55       1  25.000   0.000  18.750       1                        \r\nGRID          56       1  25.000   5.000  18.750       1                        \r\nGRID          57       1  25.000  10.000  18.750       1                        \r\nGRID          58       1  25.000  15.000  18.750       1                        \r\nGRID          59       1  25.000  20.000  18.750       1                        \r\nGRID          60       1  25.000  25.000  18.750       1                        \r\nGRID          61       1  25.000  30.000  18.750       1                        \r\nGRID          62       1  25.000  35.000  18.750       1                        \r\nGRID          63       1  25.000  40.000  18.750       1                        \r\nGRID          64       1  25.000   0.000  21.875       1                        \r\nGRID          65       1  25.000   5.000  21.875       1                        \r\nGRID          66       1  25.000  10.000  21.875       1                        \r\nGRID          67       1  25.000  15.000  21.875       1                        \r\nGRID          68       1  25.000  20.000  21.875       1                        \r\nGRID          69       1  25.000  25.000  21.875       1                        \r\nGRID          70       1  25.000  30.000  21.875       1                        \r\nGRID          71       1  25.000  35.000  21.875       1                        \r\nGRID          72       1  25.000  40.000  21.875       1                        \r\nGRID          73       1  25.000   0.000  25.000       1                        \r\nGRID          74       1  25.000   5.000  25.000       1                        \r\nGRID          75       1  25.000  10.000  25.000       1                        \r\nGRID          76       1  25.000  15.000  25.000       1                        \r\nGRID          77       1  25.000  20.000  25.000       1                        \r\nGRID          78       1  25.000  25.000  25.000       1                        \r\nGRID          79       1  25.000  30.000  25.000       1                        \r\nGRID          80       1  25.000  35.000  25.000       1                        \r\nGRID          81       1  25.000  40.000  25.000       1                        \r\nGRID    5001    1       25.0    40.0    25.0    3                               \r\nCQUAD4         2       1       1       2      11      10                        \r\nCQUAD4         3       1       2       3      12      11                        \r\nCQUAD4         4       1       3       4      13      12                        \r\nCQUAD4         5       1       4       5      14      13                        \r\nCQUAD4         6       1       5       6      15      14                        \r\nCQUAD4         7       1       6       7      16      15                        \r\nCQUAD4         8       1       7       8      17      16                        \r\nCQUAD4         9       1       8       9      18      17                        \r\nCQUAD4        10       1      10      11      20      19                        \r\nCQUAD4        11       1      11      12      21      20                        \r\nCQUAD4        12       1      12      13      22      21                        \r\nCQUAD4        13       1      13      14      23      22                        \r\nCQUAD4        14       1      14      15      24      23                        \r\nCQUAD4        15       1      15      16      25      24                        \r\nCQUAD4        16       1      16      17      26      25                        \r\nCQUAD4        17       1      17      18      27      26                        \r\nCQUAD4        18       1      19      20      29      28                        \r\nCQUAD4        19       1      20      21      30      29                        \r\nCQUAD4        20       1      21      22      31      30                        \r\nCQUAD4        21       1      22      23      32      31                        \r\nCQUAD4        22       1      23      24      33      32                        \r\nCQUAD4        23       1      24      25      34      33                        \r\nCQUAD4        24       1      25      26      35      34                        \r\nCQUAD4        25       1      26      27      36      35                        \r\nCQUAD4        26       1      28      29      38      37                        \r\nCQUAD4        27       1      29      30      39      38                        \r\nCQUAD4        28       1      30      31      40      39                        \r\nCQUAD4        29       1      31      32      41      40                        \r\nCQUAD4        30       1      32      33      42      41                        \r\nCQUAD4        31       1      33      34      43      42                        \r\nCQUAD4        32       1      34      35      44      43                        \r\nCQUAD4        33       1      35      36      45      44                        \r\nCQUAD4        34       1      37      38      47      46                        \r\nCQUAD4        35       1      38      39      48      47                        \r\nCQUAD4        36       1      39      40      49      48                        \r\nCQUAD4        37       1      40      41      50      49                        \r\nCQUAD4        38       1      41      42      51      50                        \r\nCQUAD4        39       1      42      43      52      51                        \r\nCQUAD4        40       1      43      44      53      52                        \r\nCQUAD4        41       1      44      45      54      53                        \r\nCQUAD4        42       1      46      47      56      55                        \r\nCQUAD4        43       1      47      48      57      56                        \r\nCQUAD4        44       1      48      49      58      57                        \r\nCQUAD4        45       1      49      50      59      58                        \r\nCQUAD4        46       1      50      51      60      59                        \r\nCQUAD4        47       1      51      52      61      60                        \r\nCQUAD4        48       1      52      53      62      61                        \r\nCQUAD4        49       1      53      54      63      62                        \r\nCQUAD4        50       1      55      56      65      64                        \r\nCQUAD4        51       1      56      57      66      65                        \r\nCQUAD4        52       1      57      58      67      66                        \r\nCQUAD4        53       1      58      59      68      67                        \r\nCQUAD4        54       1      59      60      69      68                        \r\nCQUAD4        55       1      60      61      70      69                        \r\nCQUAD4        56       1      61      62      71      70                        \r\nCQUAD4        57       1      62      63      72      71                        \r\nCQUAD4        58       1      64      65      74      73                        \r\nCQUAD4        59       1      65      66      75      74                        \r\nCQUAD4        60       1      66      67      76      75                        \r\nCQUAD4        61       1      67      68      77      76                        \r\nCQUAD4        62       1      68      69      78      77                        \r\nCQUAD4        63       1      69      70      79      78                        \r\nCQUAD4        64       1      70      71      80      79                        \r\nCQUAD4        65       1      71      72      81      80                        \r\nCORD2C  1               0.0     0.0     0.0     -1.0    0.0     0.0     +MOR1001\r\n+MOR10010.0     0.0     1.0                                                     \r\nCORD2R  2       0       0.0     0.0     0.0     0.0     0.0     1.0     +C2     \r\n+C2     1.0     0.0     0.0                                                     \r\nCORD2R  3       0       0.0     0.0     0.0     0.0     0.0     1.0     +C3     \r\n+C3     1.0     0.0     0.0                                                     \r\nMAT8    1       20.0 E+70.5 E+070.25    0.25 E+70.25 E+70.25 E+7                \r\nPARAM   AUTOSPC 1                                                               \r\nPCOMP   1                                                               +PC1    \r\n+PC1    1       .03125  45.0    YES                     -45.0   YES     +PC2    \r\n+PC2    1       .03125  15.0    YES                     -15.0   YES     +PC3    \r\n+PC3    1       .03125  -15.0   YES                     15.0    YES     +PC4    \r\n+PC4    1       .03125  -45.0   YES                     45.0    YES             \r\nPLOAD4  1       2       90.0                            THRU    65      +PL1    \r\n+PL1    2       0.0     0.0     -1.0                                            \r\nCRIGD1  1       81      5001                                                    \r\nSPC1    1       12      1       2       3       4       5       6       +SP10001\r\n+SP100017       8       9                                                       \r\nSPC1    1       26      1       10      19      28      37      46      +SP10005\r\n+SP1000555      64      73                                                      \r\nSPC1    1       35      73      74      75      76      77      78      +SP10003\r\n+SP1000379      80      81                                                      \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01301a.inp",
    "content": "NASTRAN FILES=(INP1,INP2)                                                       \r\nID    T01301A,NASTRAN                                                           \r\nSOL   1                                                                         \r\nTIME  10                                                                        \r\nAPP   DISP                                                                      \r\n$DIAG 15,-2,-14                                                                 \r\nALTER      110                                                                  \r\nDATABASE   EQEXIN,BGPDT,GEOM2,CSTM,OUGV1,,//C,N,15/C,N,+1/C,N,+1  $             \r\n$ALTER     131                                                                  \r\n$DATABASE  EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1  $                     \r\nALTER      147                                                                  \r\nDATABASE   EQEXIN,BGPDT,GEOM2,CSTM,OES1,,//C,N,16/C,N,+1  $                     \r\nJUMP       FINIS                                                                \r\nENDALTER                                                                        \r\nCEND                                                                            \r\nTITLE    = TESTING DATABASE MODULE                                              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-30-1A                                   \r\nSPC   = 10                                                                      \r\nDISP  = ALL                                                                     \r\nSTRES = ALL                                                                     \r\nELFOR = ALL                                                                     \r\nECHO  = NONE                                                                    \r\nLOAD  = 20                                                                      \r\nBEGIN BULK                                                                      \r\nCQUAD4,1,1,1,2,3,4                                                              \r\nCQUAD4,2,1,4,3,6,5                                                              \r\nGRID,1,,0.0                                                                     \r\n=,2,,0.0,1.0                                                                    \r\n=,3,,1.0,1.0                                                                    \r\n=,4,,1.0,0.0                                                                    \r\n=,5,,2.0,0.0                                                                    \r\n=,6,,2.0,1.0                                                                    \r\nMAT1,100,3.0E+7,,.3,1.0                                                         \r\nPSHELL,1,100,.1,100,1.0,100,.8333                                               \r\nSPC1,10,123456,1,2                                                              \r\nSPC1,10,6,1,THRU,6                                                              \r\nFORCE,20,6,,10.0,1.0,1.0,1.0                                                    \r\nFORCE,25,4,,-1.0,1.0,1.0,1.0                                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01311a.inp",
    "content": "ID    T01311A,NASTRAN                                                           \r\nSOL   1                                                                         \r\nAPP   DISP                                                                      \r\nTIME  10                                                                        \r\nDIAG  2,8,15                                                                    \r\nALTER     50                                                                    \r\nGINOFILE  /XXX/C,N,303 $                                                        \r\nMATPRN    XXX,,,, // $                                                          \r\nJUMP      FINIS $                                                               \r\nENDALTER                                                                        \r\nCEND                                                                            \r\nTITLE    = TESTING GINOFILE MODULE                                              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-31-1A                                   \r\nLABEL    = TO CAPTURE SCRATCH 3 OF GPWG MODULE                                  \r\nSPC   = 10                                                                      \r\nDISP  = ALL                                                                     \r\nSTRES = ALL                                                                     \r\nELFOR = ALL                                                                     \r\n$ECHO = NONE                                                                    \r\nLOAD  = 20                                                                      \r\nBEGIN BULK                                                                      \r\nPARAM,GRDPNT,1                                                                  \r\nCQUAD4,1,1,1,2,3,4                                                              \r\nCQUAD4,2,1,4,3,6,5                                                              \r\nGRID,1,,0.0                                                                     \r\n=,2,,0.0,1.0                                                                    \r\n=,3,,1.0,1.0                                                                    \r\n=,4,,1.0,0.0                                                                    \r\n=,5,,2.0,0.0                                                                    \r\n=,6,,2.0,1.0                                                                    \r\nMAT1,100,3.0E+7,,.3,1.0                                                         \r\nPSHELL,1,100,.1,100,1.0,100,.8333                                               \r\nSPC1,10,123456,1,2                                                              \r\nSPC1,10,6,1,THRU,6                                                              \r\nFORCE,20,6,,10.0,1.0,1.0,1.0                                                    \r\nFORCE,25,4,,-1.0,1.0,1.0,1.0                                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01321a.inp",
    "content": "ID    T01321A,NASTRAN                                                           \r\nSOL   1,0                                                                       \r\nDIAG  40                                                                        \r\nAPP   DISP                                                                      \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE    = CTRIA3 SIMPLE SUPPORTED FLAT PLATE WITH PLOAD4 UNIFORM LOAD          \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-32-1A                                   \r\nLABEL    = MESH 8X8, ASPECT RATIO 1.0 SYMM CROSS-PLY [0/90/0]                   \r\n$                                                                               \r\n$    MODEL: A QUARTER MODEL OF A SIMPLY SUPPORTED FLAT PLATE                    \r\n$           OF A SYMMETRIC CROSS-PLY CONFIGURATION [0/90/0].                    \r\n$           UNDER A UNIFORM PRESSURE LOADING.                                   \r\n$                                                                               \r\n$       * * COMPARISON OF T3 DEFLECTION AT GRID 25 * *                          \r\n$                                                                               \r\n$         COSMIC/NASTRAN          MSC/NASTRAN                                   \r\n$        CTRIA3      CQUAD4          CTRIA3        THEORETICAL                  \r\n$      --------------------------------------------------------                 \r\n$      -1.685E-3*  -1.855E-3       -1.622E-3        -1.836E-3                   \r\n$               * PLOAD CARDS WERE USED, NOT PLOAD4                             \r\n$                                                                               \r\n$                                                                               \r\n$   REFERENCE: JONES,R.M. , MECHANICS OF COMPOSITE MATERIALS.                   \r\n$              M GRAW-HILL BOOK COMPANY.  (PAGE 248-250)                        \r\n$                                                                               \r\n$                                                                               \r\nSET 1 = 2,7,12,17                                                               \r\nDISP  = ALL                                                                     \r\nOLOAD = ALL                                                                     \r\nFORCE = 1                                                                       \r\nSPC   = 1                                                                       \r\nLOAD  = 1                                                                       \r\nSTRESS(LAYER) = 1                                                               \r\nBEGIN BULK                                                                      \r\nMAT8    1       20.0+06 .50+6   .25     .250+6                                  \r\nPCOMP   1       -.001                                                   +PC1    \r\n+PC1    1       .000666 0.0     YES     1       .000666 90.0    YES     +PC2    \r\n+PC2    1       .000666 0.0     YES                                             \r\nSPC1    1       15      22      23      24                                      \r\nSPC1    1       24      10      15      20                                      \r\nSPC1    1       1234    2       3       4       5                               \r\nSPC1    1       1235    6       11      16      21                              \r\nSPC1    1       1245    25                                                      \r\nSPC1    1       12345   1                                                       \r\nSPC1    1       6       1       THRU    25                                      \r\nGRID    1               0.000   0.000   0.000                                   \r\nGRID    2               0.000   0.250   0.000                                   \r\nGRID    3               0.000   0.500   0.000                                   \r\nGRID    4               0.000   0.750   0.000                                   \r\nGRID    5               0.000   1.000   0.000                                   \r\nGRID    6               0.250   0.000   0.000                                   \r\nGRID    7               0.250   0.250   0.000                                   \r\nGRID    8               0.250   0.500   0.000                                   \r\nGRID    9               0.250   0.750   0.000                                   \r\nGRID    10              0.250   1.000   0.000                                   \r\nGRID    11              0.500   0.000   0.000                                   \r\nGRID    12              0.500   0.250   0.000                                   \r\nGRID    13              0.500   0.500   0.000                                   \r\nGRID    14              0.500   0.750   0.000                                   \r\nGRID    15              0.500   1.000   0.000                                   \r\nGRID    16              0.750   0.000   0.000                                   \r\nGRID    17              0.750   0.250   0.000                                   \r\nGRID    18              0.750   0.500   0.000                                   \r\nGRID    19              0.750   0.750   0.000                                   \r\nGRID    20              0.750   1.000   0.000                                   \r\nGRID    21              1.000   0.000   0.000                                   \r\nGRID    22              1.000   0.250   0.000                                   \r\nGRID    23              1.000   0.500   0.000                                   \r\nGRID    24              1.000   0.750   0.000                                   \r\nGRID    25              1.000   1.000   0.000                                   \r\nCTRIA3  1       1       1       6       2                                       \r\nCTRIA3  2       1       2       6       7       45.0                            \r\nCTRIA3  3       1       6       11      7                                       \r\nCTRIA3  4       1       7       11      12      45.0                            \r\nCTRIA3  5       1       11      16      12                                      \r\nCTRIA3  6       1       12      16      17      45.0                            \r\nCTRIA3  7       1       16      21      17                                      \r\nCTRIA3  8       1       17      21      22      45.0                            \r\nCTRIA3  9       1       2       7       3                                       \r\nCTRIA3  10      1       3       7       8       45.0                            \r\nCTRIA3  11      1       7       12      8                                       \r\nCTRIA3  12      1       8       12      13      45.0                            \r\nCTRIA3  13      1       12      17      13                                      \r\nCTRIA3  14      1       13      17      18      45.0                            \r\nCTRIA3  15      1       17      22      18                                      \r\nCTRIA3  16      1       18      22      23      45.0                            \r\nCTRIA3  17      1       3       8       4                                       \r\nCTRIA3  18      1       4       8       9       45.0                            \r\nCTRIA3  19      1       8       13      9                                       \r\nCTRIA3  20      1       9       13      14      45.0                            \r\nCTRIA3  21      1       13      18      14                                      \r\nCTRIA3  22      1       14      18      19      45.0                            \r\nCTRIA3  23      1       18      23      19                                      \r\nCTRIA3  24      1       19      23      24      45.0                            \r\nCTRIA3  25      1       4       9       5                                       \r\nCTRIA3  26      1       5       9       10      45.0                            \r\nCTRIA3  27      1       9       14      10                                      \r\nCTRIA3  28      1       10      14      15      45.0                            \r\nCTRIA3  29      1       14      19      15                                      \r\nCTRIA3  30      1       15      19      20      45.0                            \r\nCTRIA3  31      1       19      24      20                                      \r\nCTRIA3  32      1       20      24      25      45.0                            \r\nPLOAD4  1       1       -1.0-04                         THRU    32              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01331a.inp",
    "content": "ID    T01331A,NASTRAN                                                           \r\nSOL   1,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = CTRIA3 3-NODE SHELL ROOF TEST                                        \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-33-1A                                   \r\nLABEL    = LAMINATED COMPOSITE SHELL                                            \r\n$                                                                               \r\n$                                                                               \r\n$    MODEL: LAMINATED COMPOSITE SHELL ROOF MODEL.                               \r\n$           SYMMETRIC ANGLE PLY LAYUP                                           \r\n$           [ 45/-45/15/-15/-15/15/-45/45 ]                                     \r\n$                                                                               \r\n$                                                                               \r\n$       * * COMPARISION OF T1 DEFLECTIONS AT * *                                \r\n$       * * GRID POINTS 34,35,36,43,44,45    * *                                \r\n$                                                                               \r\n$                COSMIC/NASTRAN           MSC/NASTRAN                           \r\n$   USING:     CTRIA3      CQUAD4      CTRIA3     CQUAD4                        \r\n$           -----------------------------------------------                     \r\n$   GRID 34    -0.9839    -1.1187     -0.9928    -1.0662                        \r\n$   GRID 35    -1.2566    -1.4143     -1.2466    -1.3441                        \r\n$   GRID 36    -1.5126    -1.6911     -1.5300    -1.6074                        \r\n$   GRID 43    -1.2343    -1.3918     -1.2262    -1.3267                        \r\n$   GRID 44    -1.5792    -1.7590     -1.5955    -1.6739                        \r\n$   GRID 45    -1.9093    -2.1082     -1.9309    -2.0079                        \r\n$                                                                               \r\n$                                                                               \r\nSPC  = 1                                                                        \r\nLOAD = 1                                                                        \r\nDISP = ALL                                                                      \r\nBEGIN BULK                                                                      \r\nGRID           1       1  25.000   0.000   0.000       1                        \r\nGRID           2       1  25.000   5.000   0.000       1                        \r\nGRID           3       1  25.000  10.000   0.000       1                        \r\nGRID           4       1  25.000  15.000   0.000       1                        \r\nGRID           5       1  25.000  20.000   0.000       1                        \r\nGRID           6       1  25.000  25.000   0.000       1                        \r\nGRID           7       1  25.000  30.000   0.000       1                        \r\nGRID           8       1  25.000  35.000   0.000       1                        \r\nGRID           9       1  25.000  40.000   0.000       1                        \r\nGRID          10       1  25.000   0.000   3.125       1                        \r\nGRID          11       1  25.000   5.000   3.125       1                        \r\nGRID          12       1  25.000  10.000   3.125       1                        \r\nGRID          13       1  25.000  15.000   3.125       1                        \r\nGRID          14       1  25.000  20.000   3.125       1                        \r\nGRID          15       1  25.000  25.000   3.125       1                        \r\nGRID          16       1  25.000  30.000   3.125       1                        \r\nGRID          17       1  25.000  35.000   3.125       1                        \r\nGRID          18       1  25.000  40.000   3.125       1                        \r\nGRID          19       1  25.000   0.000   6.250       1                        \r\nGRID          20       1  25.000   5.000   6.250       1                        \r\nGRID          21       1  25.000  10.000   6.250       1                        \r\nGRID          22       1  25.000  15.000   6.250       1                        \r\nGRID          23       1  25.000  20.000   6.250       1                        \r\nGRID          24       1  25.000  25.000   6.250       1                        \r\nGRID          25       1  25.000  30.000   6.250       1                        \r\nGRID          26       1  25.000  35.000   6.250       1                        \r\nGRID          27       1  25.000  40.000   6.250       1                        \r\nGRID          28       1  25.000   0.000   9.375       1                        \r\nGRID          29       1  25.000   5.000   9.375       1                        \r\nGRID          30       1  25.000  10.000   9.375       1                        \r\nGRID          31       1  25.000  15.000   9.375       1                        \r\nGRID          32       1  25.000  20.000   9.375       1                        \r\nGRID          33       1  25.000  25.000   9.375       1                        \r\nGRID          34       1  25.000  30.000   9.375       1                        \r\nGRID          35       1  25.000  35.000   9.375       1                        \r\nGRID          36       1  25.000  40.000   9.375       1                        \r\nGRID          37       1  25.000   0.000  12.500       1                        \r\nGRID          38       1  25.000   5.000  12.500       1                        \r\nGRID          39       1  25.000  10.000  12.500       1                        \r\nGRID          40       1  25.000  15.000  12.500       1                        \r\nGRID          41       1  25.000  20.000  12.500       1                        \r\nGRID          42       1  25.000  25.000  12.500       1                        \r\nGRID          43       1  25.000  30.000  12.500       1                        \r\nGRID          44       1  25.000  35.000  12.500       1                        \r\nGRID          45       1  25.000  40.000  12.500       1                        \r\nGRID          46       1  25.000   0.000  15.625       1                        \r\nGRID          47       1  25.000   5.000  15.625       1                        \r\nGRID          48       1  25.000  10.000  15.625       1                        \r\nGRID          49       1  25.000  15.000  15.625       1                        \r\nGRID          50       1  25.000  20.000  15.625       1                        \r\nGRID          51       1  25.000  25.000  15.625       1                        \r\nGRID          52       1  25.000  30.000  15.625       1                        \r\nGRID          53       1  25.000  35.000  15.625       1                        \r\nGRID          54       1  25.000  40.000  15.625       1                        \r\nGRID          55       1  25.000   0.000  18.750       1                        \r\nGRID          56       1  25.000   5.000  18.750       1                        \r\nGRID          57       1  25.000  10.000  18.750       1                        \r\nGRID          58       1  25.000  15.000  18.750       1                        \r\nGRID          59       1  25.000  20.000  18.750       1                        \r\nGRID          60       1  25.000  25.000  18.750       1                        \r\nGRID          61       1  25.000  30.000  18.750       1                        \r\nGRID          62       1  25.000  35.000  18.750       1                        \r\nGRID          63       1  25.000  40.000  18.750       1                        \r\nGRID          64       1  25.000   0.000  21.875       1                        \r\nGRID          65       1  25.000   5.000  21.875       1                        \r\nGRID          66       1  25.000  10.000  21.875       1                        \r\nGRID          67       1  25.000  15.000  21.875       1                        \r\nGRID          68       1  25.000  20.000  21.875       1                        \r\nGRID          69       1  25.000  25.000  21.875       1                        \r\nGRID          70       1  25.000  30.000  21.875       1                        \r\nGRID          71       1  25.000  35.000  21.875       1                        \r\nGRID          72       1  25.000  40.000  21.875       1                        \r\nGRID          73       1  25.000   0.000  25.000       1                        \r\nGRID          74       1  25.000   5.000  25.000       1                        \r\nGRID          75       1  25.000  10.000  25.000       1                        \r\nGRID          76       1  25.000  15.000  25.000       1                        \r\nGRID          77       1  25.000  20.000  25.000       1                        \r\nGRID          78       1  25.000  25.000  25.000       1                        \r\nGRID          79       1  25.000  30.000  25.000       1                        \r\nGRID          80       1  25.000  35.000  25.000       1                        \r\nGRID          81       1  25.000  40.000  25.000       1                        \r\nGRID    5001    1       25.0    40.0    25.0    3                               \r\nCORD2C  1               0.0     0.0     0.0     -1.0    0.0     0.0     +MOR1001\r\n+MOR10010.0     0.0     1.0                                                     \r\nCORD2R  2       0       0.0     0.0     0.0     0.0     0.0     1.0     +C2     \r\n+C2     1.0     0.0     0.0                                                     \r\nCORD2R  3       0       0.0     0.0     0.0     0.0     0.0     1.0     +C3     \r\n+C3     1.0     0.0     0.0                                                     \r\nMAT8    1       20.0 E+70.5 E+070.25    0.25 E+70.25 E+70.25 E+7                \r\nPARAM   AUTOSPC 1                                                               \r\nPCOMP   1                                                               +PC1    \r\n+PC1    1       .03125  45.0    YES                     -45.0   YES     +PC2    \r\n+PC2    1       .03125  15.0    YES                     -15.0   YES     +PC3    \r\n+PC3    1       .03125  -15.0   YES                     15.0    YES     +PC4    \r\n+PC4    1       .03125  -45.0   YES                     45.0    YES             \r\nCRIGD1  1       81      5001                                                    \r\nSPC1    1       12      1       2       3       4       5       6       +SP10001\r\n+SP100017       8       9                                                       \r\nSPC1    1       26      1       10      19      28      37      46      +SP10005\r\n+SP1000555      64      73                                                      \r\nSPC1    1       35      73      74      75      76      77      78      +SP10003\r\n+SP1000379      80      81                                                      \r\nCTRIA3         1       1       1       2      10                                \r\nPLOAD          1-0.9E+02       1       2      10                                \r\nCTRIA3         2       1      10       2      11  45.000                        \r\nPLOAD          1-0.9E+02      10       2      11                                \r\nCTRIA3         3       1       2       3      11                                \r\nPLOAD          1-0.9E+02       2       3      11                                \r\nCTRIA3         4       1      11       3      12  45.000                        \r\nPLOAD          1-0.9E+02      11       3      12                                \r\nCTRIA3         5       1       3       4      12                                \r\nPLOAD          1-0.9E+02       3       4      12                                \r\nCTRIA3         6       1      12       4      13  45.000                        \r\nPLOAD          1-0.9E+02      12       4      13                                \r\nCTRIA3         7       1       4       5      13                                \r\nPLOAD          1-0.9E+02       4       5      13                                \r\nCTRIA3         8       1      13       5      14  45.000                        \r\nPLOAD          1-0.9E+02      13       5      14                                \r\nCTRIA3         9       1       5       6      14                                \r\nPLOAD          1-0.9E+02       5       6      14                                \r\nCTRIA3        10       1      14       6      15  45.000                        \r\nPLOAD          1-0.9E+02      14       6      15                                \r\nCTRIA3        11       1       6       7      15                                \r\nPLOAD          1-0.9E+02       6       7      15                                \r\nCTRIA3        12       1      15       7      16  45.000                        \r\nPLOAD          1-0.9E+02      15       7      16                                \r\nCTRIA3        13       1       7       8      16                                \r\nPLOAD          1-0.9E+02       7       8      16                                \r\nCTRIA3        14       1      16       8      17  45.000                        \r\nPLOAD          1-0.9E+02      16       8      17                                \r\nCTRIA3        15       1       8       9      17                                \r\nPLOAD          1-0.9E+02       8       9      17                                \r\nCTRIA3        16       1      17       9      18  45.000                        \r\nPLOAD          1-0.9E+02      17       9      18                                \r\nCTRIA3        17       1      10      11      19                                \r\nPLOAD          1-0.9E+02      10      11      19                                \r\nCTRIA3        18       1      19      11      20  45.000                        \r\nPLOAD          1-0.9E+02      19      11      20                                \r\nCTRIA3        19       1      11      12      20                                \r\nPLOAD          1-0.9E+02      11      12      20                                \r\nCTRIA3        20       1      20      12      21  45.000                        \r\nPLOAD          1-0.9E+02      20      12      21                                \r\nCTRIA3        21       1      12      13      21                                \r\nPLOAD          1-0.9E+02      12      13      21                                \r\nCTRIA3        22       1      21      13      22  45.000                        \r\nPLOAD          1-0.9E+02      21      13      22                                \r\nCTRIA3        23       1      13      14      22                                \r\nPLOAD          1-0.9E+02      13      14      22                                \r\nCTRIA3        24       1      22      14      23  45.000                        \r\nPLOAD          1-0.9E+02      22      14      23                                \r\nCTRIA3        25       1      14      15      23                                \r\nPLOAD          1-0.9E+02      14      15      23                                \r\nCTRIA3        26       1      23      15      24  45.000                        \r\nPLOAD          1-0.9E+02      23      15      24                                \r\nCTRIA3        27       1      15      16      24                                \r\nPLOAD          1-0.9E+02      15      16      24                                \r\nCTRIA3        28       1      24      16      25  45.000                        \r\nPLOAD          1-0.9E+02      24      16      25                                \r\nCTRIA3        29       1      16      17      25                                \r\nPLOAD          1-0.9E+02      16      17      25                                \r\nCTRIA3        30       1      25      17      26  45.000                        \r\nPLOAD          1-0.9E+02      25      17      26                                \r\nCTRIA3        31       1      17      18      26                                \r\nPLOAD          1-0.9E+02      17      18      26                                \r\nCTRIA3        32       1      26      18      27  45.000                        \r\nPLOAD          1-0.9E+02      26      18      27                                \r\nCTRIA3        33       1      19      20      28                                \r\nPLOAD          1-0.9E+02      19      20      28                                \r\nCTRIA3        34       1      28      20      29  45.000                        \r\nPLOAD          1-0.9E+02      28      20      29                                \r\nCTRIA3        35       1      20      21      29                                \r\nPLOAD          1-0.9E+02      20      21      29                                \r\nCTRIA3        36       1      29      21      30  45.000                        \r\nPLOAD          1-0.9E+02      29      21      30                                \r\nCTRIA3        37       1      21      22      30                                \r\nPLOAD          1-0.9E+02      21      22      30                                \r\nCTRIA3        38       1      30      22      31  45.000                        \r\nPLOAD          1-0.9E+02      30      22      31                                \r\nCTRIA3        39       1      22      23      31                                \r\nPLOAD          1-0.9E+02      22      23      31                                \r\nCTRIA3        40       1      31      23      32  45.000                        \r\nPLOAD          1-0.9E+02      31      23      32                                \r\nCTRIA3        41       1      23      24      32                                \r\nPLOAD          1-0.9E+02      23      24      32                                \r\nCTRIA3        42       1      32      24      33  45.000                        \r\nPLOAD          1-0.9E+02      32      24      33                                \r\nCTRIA3        43       1      24      25      33                                \r\nPLOAD          1-0.9E+02      24      25      33                                \r\nCTRIA3        44       1      33      25      34  45.000                        \r\nPLOAD          1-0.9E+02      33      25      34                                \r\nCTRIA3        45       1      25      26      34                                \r\nPLOAD          1-0.9E+02      25      26      34                                \r\nCTRIA3        46       1      34      26      35  45.000                        \r\nPLOAD          1-0.9E+02      34      26      35                                \r\nCTRIA3        47       1      26      27      35                                \r\nPLOAD          1-0.9E+02      26      27      35                                \r\nCTRIA3        48       1      35      27      36  45.000                        \r\nPLOAD          1-0.9E+02      35      27      36                                \r\nCTRIA3        49       1      28      29      37                                \r\nPLOAD          1-0.9E+02      28      29      37                                \r\nCTRIA3        50       1      37      29      38  45.000                        \r\nPLOAD          1-0.9E+02      37      29      38                                \r\nCTRIA3        51       1      29      30      38                                \r\nPLOAD          1-0.9E+02      29      30      38                                \r\nCTRIA3        52       1      38      30      39  45.000                        \r\nPLOAD          1-0.9E+02      38      30      39                                \r\nCTRIA3        53       1      30      31      39                                \r\nPLOAD          1-0.9E+02      30      31      39                                \r\nCTRIA3        54       1      39      31      40  45.000                        \r\nPLOAD          1-0.9E+02      39      31      40                                \r\nCTRIA3        55       1      31      32      40                                \r\nPLOAD          1-0.9E+02      31      32      40                                \r\nCTRIA3        56       1      40      32      41  45.000                        \r\nPLOAD          1-0.9E+02      40      32      41                                \r\nCTRIA3        57       1      32      33      41                                \r\nPLOAD          1-0.9E+02      32      33      41                                \r\nCTRIA3        58       1      41      33      42  45.000                        \r\nPLOAD          1-0.9E+02      41      33      42                                \r\nCTRIA3        59       1      33      34      42                                \r\nPLOAD          1-0.9E+02      33      34      42                                \r\nCTRIA3        60       1      42      34      43  45.000                        \r\nPLOAD          1-0.9E+02      42      34      43                                \r\nCTRIA3        61       1      34      35      43                                \r\nPLOAD          1-0.9E+02      34      35      43                                \r\nCTRIA3        62       1      43      35      44  45.000                        \r\nPLOAD          1-0.9E+02      43      35      44                                \r\nCTRIA3        63       1      35      36      44                                \r\nPLOAD          1-0.9E+02      35      36      44                                \r\nCTRIA3        64       1      44      36      45  45.000                        \r\nPLOAD          1-0.9E+02      44      36      45                                \r\nCTRIA3        65       1      37      38      46                                \r\nPLOAD          1-0.9E+02      37      38      46                                \r\nCTRIA3        66       1      46      38      47  45.000                        \r\nPLOAD          1-0.9E+02      46      38      47                                \r\nCTRIA3        67       1      38      39      47                                \r\nPLOAD          1-0.9E+02      38      39      47                                \r\nCTRIA3        68       1      47      39      48  45.000                        \r\nPLOAD          1-0.9E+02      47      39      48                                \r\nCTRIA3        69       1      39      40      48                                \r\nPLOAD          1-0.9E+02      39      40      48                                \r\nCTRIA3        70       1      48      40      49  45.000                        \r\nPLOAD          1-0.9E+02      48      40      49                                \r\nCTRIA3        71       1      40      41      49                                \r\nPLOAD          1-0.9E+02      40      41      49                                \r\nCTRIA3        72       1      49      41      50  45.000                        \r\nPLOAD          1-0.9E+02      49      41      50                                \r\nCTRIA3        73       1      41      42      50                                \r\nPLOAD          1-0.9E+02      41      42      50                                \r\nCTRIA3        74       1      50      42      51  45.000                        \r\nPLOAD          1-0.9E+02      50      42      51                                \r\nCTRIA3        75       1      42      43      51                                \r\nPLOAD          1-0.9E+02      42      43      51                                \r\nCTRIA3        76       1      51      43      52  45.000                        \r\nPLOAD          1-0.9E+02      51      43      52                                \r\nCTRIA3        77       1      43      44      52                                \r\nPLOAD          1-0.9E+02      43      44      52                                \r\nCTRIA3        78       1      52      44      53  45.000                        \r\nPLOAD          1-0.9E+02      52      44      53                                \r\nCTRIA3        79       1      44      45      53                                \r\nPLOAD          1-0.9E+02      44      45      53                                \r\nCTRIA3        80       1      53      45      54  45.000                        \r\nPLOAD          1-0.9E+02      53      45      54                                \r\nCTRIA3        81       1      46      47      55                                \r\nPLOAD          1-0.9E+02      46      47      55                                \r\nCTRIA3        82       1      55      47      56  45.000                        \r\nPLOAD          1-0.9E+02      55      47      56                                \r\nCTRIA3        83       1      47      48      56                                \r\nPLOAD          1-0.9E+02      47      48      56                                \r\nCTRIA3        84       1      56      48      57  45.000                        \r\nPLOAD          1-0.9E+02      56      48      57                                \r\nCTRIA3        85       1      48      49      57                                \r\nPLOAD          1-0.9E+02      48      49      57                                \r\nCTRIA3        86       1      57      49      58  45.000                        \r\nPLOAD          1-0.9E+02      57      49      58                                \r\nCTRIA3        87       1      49      50      58                                \r\nPLOAD          1-0.9E+02      49      50      58                                \r\nCTRIA3        88       1      58      50      59  45.000                        \r\nPLOAD          1-0.9E+02      58      50      59                                \r\nCTRIA3        89       1      50      51      59                                \r\nPLOAD          1-0.9E+02      50      51      59                                \r\nCTRIA3        90       1      59      51      60  45.000                        \r\nPLOAD          1-0.9E+02      59      51      60                                \r\nCTRIA3        91       1      51      52      60                                \r\nPLOAD          1-0.9E+02      51      52      60                                \r\nCTRIA3        92       1      60      52      61  45.000                        \r\nPLOAD          1-0.9E+02      60      52      61                                \r\nCTRIA3        93       1      52      53      61                                \r\nPLOAD          1-0.9E+02      52      53      61                                \r\nCTRIA3        94       1      61      53      62  45.000                        \r\nPLOAD          1-0.9E+02      61      53      62                                \r\nCTRIA3        95       1      53      54      62                                \r\nPLOAD          1-0.9E+02      53      54      62                                \r\nCTRIA3        96       1      62      54      63  45.000                        \r\nPLOAD          1-0.9E+02      62      54      63                                \r\nCTRIA3        97       1      55      56      64                                \r\nPLOAD          1-0.9E+02      55      56      64                                \r\nCTRIA3        98       1      64      56      65  45.000                        \r\nPLOAD          1-0.9E+02      64      56      65                                \r\nCTRIA3        99       1      56      57      65                                \r\nPLOAD          1-0.9E+02      56      57      65                                \r\nCTRIA3       100       1      65      57      66  45.000                        \r\nPLOAD          1-0.9E+02      65      57      66                                \r\nCTRIA3       101       1      57      58      66                                \r\nPLOAD          1-0.9E+02      57      58      66                                \r\nCTRIA3       102       1      66      58      67  45.000                        \r\nPLOAD          1-0.9E+02      66      58      67                                \r\nCTRIA3       103       1      58      59      67                                \r\nPLOAD          1-0.9E+02      58      59      67                                \r\nCTRIA3       104       1      67      59      68  45.000                        \r\nPLOAD          1-0.9E+02      67      59      68                                \r\nCTRIA3       105       1      59      60      68                                \r\nPLOAD          1-0.9E+02      59      60      68                                \r\nCTRIA3       106       1      68      60      69  45.000                        \r\nPLOAD          1-0.9E+02      68      60      69                                \r\nCTRIA3       107       1      60      61      69                                \r\nPLOAD          1-0.9E+02      60      61      69                                \r\nCTRIA3       108       1      69      61      70  45.000                        \r\nPLOAD          1-0.9E+02      69      61      70                                \r\nCTRIA3       109       1      61      62      70                                \r\nPLOAD          1-0.9E+02      61      62      70                                \r\nCTRIA3       110       1      70      62      71  45.000                        \r\nPLOAD          1-0.9E+02      70      62      71                                \r\nCTRIA3       111       1      62      63      71                                \r\nPLOAD          1-0.9E+02      62      63      71                                \r\nCTRIA3       112       1      71      63      72  45.000                        \r\nPLOAD          1-0.9E+02      71      63      72                                \r\nCTRIA3       113       1      64      65      73                                \r\nPLOAD          1-0.9E+02      64      65      73                                \r\nCTRIA3       114       1      73      65      74  45.000                        \r\nPLOAD          1-0.9E+02      73      65      74                                \r\nCTRIA3       115       1      65      66      74                                \r\nPLOAD          1-0.9E+02      65      66      74                                \r\nCTRIA3       116       1      74      66      75  45.000                        \r\nPLOAD          1-0.9E+02      74      66      75                                \r\nCTRIA3       117       1      66      67      75                                \r\nPLOAD          1-0.9E+02      66      67      75                                \r\nCTRIA3       118       1      75      67      76  45.000                        \r\nPLOAD          1-0.9E+02      75      67      76                                \r\nCTRIA3       119       1      67      68      76                                \r\nPLOAD          1-0.9E+02      67      68      76                                \r\nCTRIA3       120       1      76      68      77  45.000                        \r\nPLOAD          1-0.9E+02      76      68      77                                \r\nCTRIA3       121       1      68      69      77                                \r\nPLOAD          1-0.9E+02      68      69      77                                \r\nCTRIA3       122       1      77      69      78  45.000                        \r\nPLOAD          1-0.9E+02      77      69      78                                \r\nCTRIA3       123       1      69      70      78                                \r\nPLOAD          1-0.9E+02      69      70      78                                \r\nCTRIA3       124       1      78      70      79  45.000                        \r\nPLOAD          1-0.9E+02      78      70      79                                \r\nCTRIA3       125       1      70      71      79                                \r\nPLOAD          1-0.9E+02      70      71      79                                \r\nCTRIA3       126       1      79      71      80  45.000                        \r\nPLOAD          1-0.9E+02      79      71      80                                \r\nCTRIA3       127       1      71      72      80                                \r\nPLOAD          1-0.9E+02      71      72      80                                \r\nCTRIA3       128       1      80      72      81  45.000                        \r\nPLOAD          1-0.9E+02      80      72      81                                \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t01341a.inp",
    "content": "ID    T01341A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   1                                                                         \r\nTIME  30                                                                        \r\nCEND                                                                            \r\nTITLE    = TESTING ENFORCE DISPLACEMENT WITH SPCD                               \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T01-34-1A                                   \r\nECHO     = BOTH                                                                 \r\nLOAD     = 10                                                                   \r\nSPC      = 1                                                                    \r\nSPCFORCE = ALL                                                                  \r\nDISP     = ALL                                                                  \r\nSTRESS   = ALL                                                                  \r\nBEGIN BULK                                                                      \r\nGRDSET,8)246                                                                    \r\nGRID,10,,0.0, 0.0, 0.0                                                          \r\n=(9),*(-1),,*(10.),==                                                           \r\nSPC1,1,13,10                                                                    \r\nSPC1,1,3,1 THRU 9                                                               \r\nCBAR,1,2,1,2, 0.0,1.0,0.0,1                                                     \r\n=(8),*(1),=,*(1),/,==                                                           \r\nPBAR,2,6061,100.,100.,100.,100.                                                 \r\n,-1.0,1.0,1.0,1.0,1.0,-1.0,-1.0,-1.0                                            \r\nMAT1,6061,1.+7,,0.3,0.1                                                         \r\nSPCD,10,1,3,-1.00                                                               \r\nSPCD,10,2,3,-0.82                                                               \r\nSPCD,10,3,3,-0.74                                                               \r\nSPCD,10,4,3,-0.58                                                               \r\nSPCD,10,5,3,-0.40                                                               \r\nSPCD,10,6,3,-0.29                                                               \r\nSPCD,10,7,3,-0.16                                                               \r\nSPCD,10,8,3,-0.07                                                               \r\nSPCD,10,9,3,-0.01                                                               \r\nFORCE,10,1,,110.0,0.0,0.0,-1.0                                                  \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03091a.inp",
    "content": "ID    T03091A,NASTRAN                                                           \r\nSOL   3                                                                         \r\nTIME  20                                                                        \r\nAPP   DISP                                                                      \r\nCEND                                                                            \r\nTITLE    = TRAPEZOIDAL (TRAPAX) ELEMENT PROBLEM                                 \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-09-1A                                   \r\n  METHOD = 1                                                                    \r\n  AXISYM = COSINE                                                               \r\nSUBCASE  1                                                                      \r\n   DISP  = ALL                                                                  \r\n   MODES = 5                                                                    \r\nSUBCASE  6                                                                      \r\n   DISP  = NONE                                                                 \r\nBEGIN BULK                                                                      \r\nAXIC    1                                                                       \r\nPTRAPAX 1               1                                                       \r\nPARAM   COUPMASS1                                                               \r\nMAT1    1       3.+7            .3      7.8-3                                   \r\nEIGR    1       INV     0.      5000.   10      10              1.-3    +E      \r\n+E      MAX                                                                     \r\nRINGAX         1          5.0000  2.0000                2456                    \r\nRINGAX         2          5.4167  2.0000                2456                    \r\nRINGAX         3          5.8333  2.0000                2456                    \r\nRINGAX         4          6.2500  2.0000                2456                    \r\nRINGAX         5          5.0000  2.2917                2456                    \r\nRINGAX         6          5.4167  2.2917                2456                    \r\nRINGAX         7          5.8333  2.2917                2456                    \r\nRINGAX         8          6.2500  2.2917                2456                    \r\nRINGAX         9          5.0000  2.5833                2456                    \r\nRINGAX        10          5.4167  2.5833                2456                    \r\nRINGAX        11          5.8333  2.5833                2456                    \r\nRINGAX        12          6.2500  2.5833                2456                    \r\nRINGAX        13          5.0000  2.8750                2456                    \r\nRINGAX        14          5.4167  2.8750                2456                    \r\nRINGAX        15          5.8333  2.8750                2456                    \r\nRINGAX        16          6.2500  2.8750                2456                    \r\nRINGAX        17          5.0000  3.1667                2456                    \r\nRINGAX        18          5.4167  3.1667                2456                    \r\nRINGAX        19          5.8333  3.1667                2456                    \r\nRINGAX        20          6.2500  3.1667                2456                    \r\nRINGAX        21          5.0000  3.4583                2456                    \r\nRINGAX        22          5.4167  3.4583                2456                    \r\nRINGAX        23          5.8333  3.4583                2456                    \r\nRINGAX        24          6.2500  3.4583                2456                    \r\nRINGAX        25          5.0000  3.7500                2456                    \r\nRINGAX        26          5.4167  3.7500                2456                    \r\nRINGAX        27          5.8333  3.7500                2456                    \r\nRINGAX        28          6.2500  3.7500                2456                    \r\nRINGAX        29          5.0000  4.0417                2456                    \r\nRINGAX        30          5.4167  4.0417                2456                    \r\nRINGAX        31          5.8333  4.0417                2456                    \r\nRINGAX        32          6.2500  4.0417                2456                    \r\nRINGAX        33          5.0000  4.3333                2456                    \r\nRINGAX        34          5.4167  4.3333                2456                    \r\nRINGAX        35          5.8333  4.3333                2456                    \r\nRINGAX        36          6.2500  4.3333                2456                    \r\nRINGAX        37          5.0000  4.6250                2456                    \r\nRINGAX        38          5.4167  4.6250                2456                    \r\nRINGAX        39          5.8333  4.6250                2456                    \r\nRINGAX        40          6.2500  4.6250                2456                    \r\nRINGAX        41          5.0000  4.9167                2456                    \r\nRINGAX        42          5.4167  4.9167                2456                    \r\nRINGAX        43          5.8333  4.9167                2456                    \r\nRINGAX        44          6.2500  4.9167                2456                    \r\nRINGAX        45          5.0000  5.2083                2456                    \r\nRINGAX        46          5.4167  5.2083                2456                    \r\nRINGAX        47          5.8333  5.2083                2456                    \r\nRINGAX        48          6.2500  5.2083                2456                    \r\nRINGAX        49          5.0000  5.5000                2456                    \r\nRINGAX        50          5.4167  5.5000                2456                    \r\nRINGAX        51          5.8333  5.5000                2456                    \r\nRINGAX        52          6.2500  5.5000                2456                    \r\nCTRAPAX        11              1       2       6       5                        \r\nCTRAPAX        21              2       3       7       6                        \r\nCTRAPAX        31              3       4       8       7                        \r\nCTRAPAX        51              5       6      10       9                        \r\nCTRAPAX        61              6       7      11      10                        \r\nCTRAPAX        71              7       8      12      11                        \r\nCTRAPAX        91              9      10      14      13                        \r\nCTRAPAX       101             10      11      15      14                        \r\nCTRAPAX       111             11      12      16      15                        \r\nCTRAPAX       131             13      14      18      17                        \r\nCTRAPAX       141             14      15      19      18                        \r\nCTRAPAX       151             15      16      20      19                        \r\nCTRAPAX       171             17      18      22      21                        \r\nCTRAPAX       181             18      19      23      22                        \r\nCTRAPAX       191             19      20      24      23                        \r\nCTRAPAX       211             21      22      26      25                        \r\nCTRAPAX       221             22      23      27      26                        \r\nCTRAPAX       231             23      24      28      27                        \r\nCTRAPAX       251             25      26      30      29                        \r\nCTRAPAX       261             26      27      31      30                        \r\nCTRAPAX       271             27      28      32      31                        \r\nCTRAPAX       291             29      30      34      33                        \r\nCTRAPAX       301             30      31      35      34                        \r\nCTRAPAX       311             31      32      36      35                        \r\nCTRAPAX       331             33      34      38      37                        \r\nCTRAPAX       341             34      35      39      38                        \r\nCTRAPAX       351             35      36      40      39                        \r\nCTRAPAX       371             37      38      42      41                        \r\nCTRAPAX       381             38      39      43      42                        \r\nCTRAPAX       391             39      40      44      43                        \r\nCTRAPAX       411             41      42      46      45                        \r\nCTRAPAX       421             42      43      47      46                        \r\nCTRAPAX       431             43      44      48      47                        \r\nCTRAPAX       451             45      46      50      49                        \r\nCTRAPAX       461             46      47      51      50                        \r\nCTRAPAX       471             47      48      52      51                        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03101a.inp",
    "content": "ID    T03101A,NASTRAN                                                           \r\nSOL   3                                                                         \r\nTIME  20                                                                        \r\nAPP   DISP                                                                      \r\nCEND                                                                            \r\nTITLE    = TRAPEZOIDAL (TRAPRG) ELEMENT PROBLEM                                 \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-10-1A                                   \r\n  METHOD = 1                                                                    \r\nSUBCASE  1                                                                      \r\n  DISP   = ALL                                                                  \r\n  MODES  = 5                                                                    \r\nSUBCASE  6                                                                      \r\n  DISP   = NONE                                                                 \r\nBEGIN BULK                                                                      \r\nPARAM   COUPMASS1                                                               \r\nGRDSET                                                    2456                  \r\nMAT1    1       3.+7            .3      7.8-3                                   \r\nEIGR    1       INV     0.      5000.   10      10              1.-3    +E      \r\n+E      MAX                                                                     \r\nGRID           1          5.0000          2.0000                                \r\nGRID           2          5.4167          2.0000                                \r\nGRID           3          5.8333          2.0000                                \r\nGRID           4          6.2500          2.0000                                \r\nGRID           5          5.0000          2.2917                                \r\nGRID           6          5.4167          2.2917                                \r\nGRID           7          5.8333          2.2917                                \r\nGRID           8          6.2500          2.2917                                \r\nGRID           9          5.0000          2.5833                                \r\nGRID          10          5.4167          2.5833                                \r\nGRID          11          5.8333          2.5833                                \r\nGRID          12          6.2500          2.5833                                \r\nGRID          13          5.0000          2.8750                                \r\nGRID          14          5.4167          2.8750                                \r\nGRID          15          5.8333          2.8750                                \r\nGRID          16          6.2500          2.8750                                \r\nGRID          17          5.0000          3.1667                                \r\nGRID          18          5.4167          3.1667                                \r\nGRID          19          5.8333          3.1667                                \r\nGRID          20          6.2500          3.1667                                \r\nGRID          21          5.0000          3.4583                                \r\nGRID          22          5.4167          3.4583                                \r\nGRID          23          5.8333          3.4583                                \r\nGRID          24          6.2500          3.4583                                \r\nGRID          25          5.0000          3.7500                                \r\nGRID          26          5.4167          3.7500                                \r\nGRID          27          5.8333          3.7500                                \r\nGRID          28          6.2500          3.7500                                \r\nGRID          29          5.0000          4.0417                                \r\nGRID          30          5.4167          4.0417                                \r\nGRID          31          5.8333          4.0417                                \r\nGRID          32          6.2500          4.0417                                \r\nGRID          33          5.0000          4.3333                                \r\nGRID          34          5.4167          4.3333                                \r\nGRID          35          5.8333          4.3333                                \r\nGRID          36          6.2500          4.3333                                \r\nGRID          37          5.0000          4.6250                                \r\nGRID          38          5.4167          4.6250                                \r\nGRID          39          5.8333          4.6250                                \r\nGRID          40          6.2500          4.6250                                \r\nGRID          41          5.0000          4.9167                                \r\nGRID          42          5.4167          4.9167                                \r\nGRID          43          5.8333          4.9167                                \r\nGRID          44          6.2500          4.9167                                \r\nGRID          45          5.0000          5.2083                                \r\nGRID          46          5.4167          5.2083                                \r\nGRID          47          5.8333          5.2083                                \r\nGRID          48          6.2500          5.2083                                \r\nGRID          49          5.0000          5.5000                                \r\nGRID          50          5.4167          5.5000                                \r\nGRID          51          5.8333          5.5000                                \r\nGRID          52          6.2500          5.5000                                \r\nCTRAPRG        1       1       2       6       5        1                       \r\nCTRAPRG        2       2       3       7       6        1                       \r\nCTRAPRG        3       3       4       8       7        1                       \r\nCTRAPRG        5       5       6      10       9        1                       \r\nCTRAPRG        6       6       7      11      10        1                       \r\nCTRAPRG        7       7       8      12      11        1                       \r\nCTRAPRG        9       9      10      14      13        1                       \r\nCTRAPRG       10      10      11      15      14        1                       \r\nCTRAPRG       11      11      12      16      15        1                       \r\nCTRAPRG       13      13      14      18      17        1                       \r\nCTRAPRG       14      14      15      19      18        1                       \r\nCTRAPRG       15      15      16      20      19        1                       \r\nCTRAPRG       17      17      18      22      21        1                       \r\nCTRAPRG       18      18      19      23      22        1                       \r\nCTRAPRG       19      19      20      24      23        1                       \r\nCTRAPRG       21      21      22      26      25        1                       \r\nCTRAPRG       22      22      23      27      26        1                       \r\nCTRAPRG       23      23      24      28      27        1                       \r\nCTRAPRG       25      25      26      30      29        1                       \r\nCTRAPRG       26      26      27      31      30        1                       \r\nCTRAPRG       27      27      28      32      31        1                       \r\nCTRAPRG       29      29      30      34      33        1                       \r\nCTRAPRG       30      30      31      35      34        1                       \r\nCTRAPRG       31      31      32      36      35        1                       \r\nCTRAPRG       33      33      34      38      37        1                       \r\nCTRAPRG       34      34      35      39      38        1                       \r\nCTRAPRG       35      35      36      40      39        1                       \r\nCTRAPRG       37      37      38      42      41        1                       \r\nCTRAPRG       38      38      39      43      42        1                       \r\nCTRAPRG       39      39      40      44      43        1                       \r\nCTRAPRG       41      41      42      46      45        1                       \r\nCTRAPRG       42      42      43      47      46        1                       \r\nCTRAPRG       43      43      44      48      47        1                       \r\nCTRAPRG       45      45      46      50      49        1                       \r\nCTRAPRG       46      46      47      51      50        1                       \r\nCTRAPRG       47      47      48      52      51        1                       \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03111a.inp",
    "content": "NASTRAN FILES=NPTP                                                              \r\nID    T03111A,NASTRAN                                                           \r\nCHKPNT  YES                                                                     \r\nAPP   DISP                                                                      \r\nSOL   3,0                                                                       \r\nDIAG  14                                                                        \r\nTIME  10                                                                        \r\n$INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                      \r\nREADFILE COSHYD1                                                                \r\n$INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                     \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC DIRECT FORMULATION SOLUTION WITH CHECKPOINT             \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1A                                   \r\n$ TEST PROBLEM I.1 - FULL SOLUTION                                              \r\nDISP = ALL                                                                      \r\nSPCF = ALL                                                                      \r\nMETHOD = 50                                                                     \r\nSPC  = 10                                                                       \r\nBEGIN BULK                                                                      \r\nCFFREE  1       100     6                                                       \r\nCFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n+CFH1   8       7                                                               \r\nCFLSTR  1       100     101     THRU    104                                     \r\nCQUAD2  101     100     101     102     106     105                             \r\nCQUAD2  102     100     102     104     108     106                             \r\nCQUAD2  103     100     104     103     107     108                             \r\nCQUAD2  104     100     101     103     104     102                             \r\nEIGR    50      GIV     0.0     20.0    6       6       0               +E1     \r\n+E1     MAX                                                                     \r\nGRAV    100             386.0   0.0     0.0     -1.0                            \r\nGRID    1               0.0     0.0     0.0                                     \r\nGRID    2               6.0     0.0     0.0                                     \r\nGRID    3               0.0     12.0    0.0                                     \r\nGRID    4               6.0     12.0    0.0                                     \r\nGRID    5               0.0     0.0     12.0                                    \r\nGRID    6               6.0     0.0     12.0                                    \r\nGRID    7               0.0     12.0    12.0                                    \r\nGRID    8               6.0     12.0    12.0                                    \r\nGRID    101             0.0     0.0     0.0                                     \r\nGRID    102             6.0     0.0     0.0                                     \r\nGRID    103             0.0     12.0    0.0                                     \r\nGRID    104             6.0     12.0    0.0                                     \r\nGRID    105             0.0     0.0     12.0                                    \r\nGRID    106             6.0     0.0     12.0                                    \r\nGRID    107             0.0     12.0    12.0                                    \r\nGRID    108             6.0     12.0    12.0                                    \r\nMAT1    100     10.6+6          .3      .92-3                                   \r\nMATF    200     9.355-4                                                         \r\nOMIT1   4       101     103     105     107                                     \r\nOMIT1   456     102     104     106     108                                     \r\nPQUAD2  100     100     .06                                                     \r\nSPC1    10      1256    101     103     105     107                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03111b.inp",
    "content": "NASTRAN BANDIT = -1, FILES = OPTP                                               \r\nID    T03111B,NASTRAN                                                           \r\n$                                                                               \r\n$ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO.          \r\n$     (1) REFER TO COSMIC/NASTRAN DMAP COMPILER SOURCE LISTING IN T03111A       \r\n$         AND LOCATE THE DMAP NUMBER OF 'LABEL NEWM' (ASSUME IT IS NO. M)       \r\n$     (2) LOOK FOR THE 'REENTER AT DMAP SEQUENCE NUMBER  N' IN THE T03111A      \r\n$         CHECKPOINT DICTIONARY DECK (T03111A.PCH OR .DIC), WHERE N IS          \r\n$         GREATER THAN THE LOCATION M OF (1)                                    \r\n$     (3) REMOVE ALL THE CARDS FROM THIS 'REENTER AT DMAP SEQ. NO. N' TO        \r\n$         THE END OF THE T03111A CHECKPOINT DICTIONARY DECK.                    \r\n$         THE LAST '$ END OF CHECKPOINT DICTIONARY' IS OPTIONAL.                \r\n$     (4) FATAL ERROR IN QOPEN IF THESE CARDS WERE NOT REMOVED.                 \r\n$     (5) IN 1993 VERSION, M IN (1) IS 67, AND N IN (2) IS 69                   \r\n$                                                                               \r\nREADFILE RSCARDS                                                                \r\nTIME  20                                                                        \r\nSOL   3,0                                                                       \r\nAPP   DISP                                                                      \r\n$ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                     \r\nREADFILE COSHYD1                                                                \r\n$ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                    \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC DIRECT FORMULATION RESTART FOR ADDITIONAL MODES         \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-11-1B                                   \r\n$ REFERENCE PROBLEM I.2                                                         \r\nDISP = ALL                                                                      \r\nSPCF = ALL                                                                      \r\nMETHOD = 50                                                                     \r\nSPC  = 10                                                                       \r\nBEGIN BULK                                                                      \r\n$                                                                               \r\n$ NEW EIGR CARD FOR DIFFERENT MODES                                             \r\n$                                                                               \r\n/       9       10                                                              \r\nEIGR    50      GIV     100.0   2500.0                  0               +E1     \r\n+E1     MAX                                                                     \r\n$                                                                               \r\n$ PARAMETER TO SKIP UNNEEDED DMAP                                               \r\n$                                                                               \r\nPARAM   NEWMODE -1                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03121a.inp",
    "content": "NASTRAN FILES=NPTP                                                              \r\nID    T03121A,NASTRAN                                                           \r\nDIAG  14                                                                        \r\nTIME  10                                                                        \r\nSOL   3,0                                                                       \r\nAPP   DISP                                                                      \r\nCHKPNT  YES                                                                     \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\nREADFILE COSHYD2                                                                \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC MODAL FORMULATION SOLUTION WITH CHECKPOINT              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1A                                   \r\n$ REFERENCE PROBLEM IV.1                                                        \r\nSPC  = 10                                                                       \r\nDISP = ALL                                                                      \r\nSUBCASE 1                                                                       \r\n    LABEL  = MODES OF EMPTY STRUCTURE                                           \r\n    METHOD = 50                                                                 \r\nSUBCASE 2                                                                       \r\n    LABEL  = MODES WITH FLUID INCLUDED                                          \r\n    METHOD = 60                                                                 \r\n    SPCF   = ALL                                                                \r\nBEGIN BULK                                                                      \r\nCFFREE  1       100     6                                                       \r\nCFHEX2  1       200     1       2       4       3       5       6       +CFH1   \r\n+CFH1   8       7                                                               \r\nCFLSTR  1       100     101     THRU    104                                     \r\nCQUAD2  101     100     101     102     106     105                             \r\nCQUAD2  102     100     102     104     108     106                             \r\nCQUAD2  103     100     104     103     107     108                             \r\nCQUAD2  104     100     101     103     104     102                             \r\nEIGR    50      GIV     0.0     2600.0  10      10      0               +EMOD1  \r\n+EMOD1  MAX                                                                     \r\nEIGR    60      GIV     0.0     10.0    6       6       0               +E1     \r\n+E1     MAX                                                                     \r\nGRAV    100             386.0   0.0     0.0     -1.0                            \r\nGRID    1               0.0     0.0     0.0                                     \r\nGRID    2               6.0     0.0     0.0                                     \r\nGRID    3               0.0     12.0    0.0                                     \r\nGRID    4               6.0     12.0    0.0                                     \r\nGRID    5               0.0     0.0     12.0                                    \r\nGRID    6               6.0     0.0     12.0                                    \r\nGRID    7               0.0     12.0    12.0                                    \r\nGRID    8               6.0     12.0    12.0                                    \r\nGRID    101             0.0     0.0     0.0                                     \r\nGRID    102             6.0     0.0     0.0                                     \r\nGRID    103             0.0     12.0    0.0                                     \r\nGRID    104             6.0     12.0    0.0                                     \r\nGRID    105             0.0     0.0     12.0                                    \r\nGRID    106             6.0     0.0     12.0                                    \r\nGRID    107             0.0     12.0    12.0                                    \r\nGRID    108             6.0     12.0    12.0                                    \r\nMAT1    100     10.6+6          .3      .92-3                                   \r\nMATF    200     9.355-4                                                         \r\nOMIT1   4       101     103     105     107                                     \r\nOMIT1   456     102     104     106     108                                     \r\nPQUAD2  100     100     .06                                                     \r\nSPC1    10      1256    101     103     105     107                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03121b.inp",
    "content": "NASTRAN FILES = OPTP                                                            \r\nID    T03121B,NASTRAN                                                           \r\n$                                                                               \r\n$ NOTES - FOLLOWING STEPS MUST BE DONE FIRST BEFORE RUNNING THIS DEMO.          \r\n$     (1) LOOK FOR 'CASE2' IN THE T03121A CHECKPOINT DICTIONARY DECK            \r\n$         (T03121A.PCH OR .DIC).  DELETE ALL THE CARDS FROM THE 'REENTER        \r\n$         AT DMAP SEQUENCE NUMBER' CARD IMMEDIATELY BELOW THE 'CASE2' TO        \r\n$         THE END OF THE DECK.                                                  \r\n$         (DELETE CARDS 216 THRU 271 IN 1993 VERSION)                           \r\n$     (2) NASTRAN FATAL ERROR IF THESE CARDS ARE NOT REMOVED.                   \r\n$     (3) SINCE T03121C USES THE FULL CHECKPOINT DICTIONARY DECK FROM           \r\n$         T03121A, YOU MAY WANT TO RUN DEMO T03121C FIRST BEFORE THIS           \r\n$         DEMO.                                                                 \r\n$                                                                               \r\nREADFILE RSCARDS                                                                \r\nTIME  10                                                                        \r\nSOL   3,0                                                                       \r\nAPP   DISP                                                                      \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\nREADFILE COSHYD2                                                                \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC MODAL FORMULATION RESTART FOR NEW MODES                 \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1B                                   \r\n$ REFERENCE PROBLEM IV.2                                                        \r\nSPC  = 10                                                                       \r\nDISP = ALL                                                                      \r\nSUBCASE 2                                                                       \r\n    LABEL  = MODES WITH FLUID INCLUDED                                          \r\n    METHOD = 70                                                                 \r\n    SPCF   = ALL                                                                \r\nBEGIN BULK                                                                      \r\n$                                                                               \r\n$ NEW EIGR CARD FOR DIFFERENT MODE                                              \r\n$                                                                               \r\n/       11      12                                                              \r\nEIGR    70      GIV     100.0   2500.0                  0               +EMOD2  \r\n+EMOD2  MAX                                                                     \r\n$                                                                               \r\n$ PARAMETER TO TURN OFF UNNEEDED DMAP                                           \r\n$                                                                               \r\nPARAM   NEWMODE -1                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t03121c.inp",
    "content": "NASTRAN FILES = OPTP                                                            \r\nID    T03121C,NASTRAN                                                           \r\n$                                                                               \r\n$     INSERT T03121A (NOT T03121B) CHECKPOINT DICTIONARY                        \r\n$                                                                               \r\nREADFILE RSCARDS                                                                \r\nTIME  10                                                                        \r\nSOL   3,0                                                                       \r\nAPP   DISP                                                                      \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) AFTER THIS CARD                      \r\nREADFILE COSHYD2                                                                \r\n$ INSERT HYDRO MODAL DMAP ALTERS (COSHYD2) BEFORE THIS CARD                     \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC MODAL FORMULATION RESTART WITH NEW FLUID MODEL          \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-12-1C                                   \r\n$ REFERENCE PROBLEM IV.3                                                        \r\nSPC  = 10                                                                       \r\nDISP = ALL                                                                      \r\nSUBCASE 2                                                                       \r\n    LABEL  = MODES WITH FLUID INCLUDED                                          \r\n    METHOD = 60                                                                 \r\n    SPCF   = ALL                                                                \r\nBEGIN BULK                                                                      \r\n$                                                                               \r\n$ NEW FLUID MODEL                                                               \r\n$                                                                               \r\n/       1       4                                                               \r\nCFWEDGE 1       200     1       2       3       5       6       7               \r\nCFWEDGE 2       200     2       4       3       6       8       7               \r\nCFFREE  1       100     5               2       100     5                       \r\nCFLSTR  1       100     101     104                                             \r\nCFLSTR  2       100     102     103     104                                     \r\n$                                                                               \r\n$ *** NOTE *** AT LEAST ONE GRID MUST BE ALTERED IN TO FORCE                    \r\n$              REEXECUTION OF PROPER MODULES                                    \r\n$                                                                               \r\n/       14                                                                      \r\nGRID    1               .0      .0      .0                                      \r\n$                                                                               \r\n$ PARAMETER TO SKIP RECOMPUTATION OF UNCHANGED STRUCTURE                        \r\n$                                                                               \r\nPARAM   OLDSTR  -1                                                              \r\nENDDATA                                                                         \r\n                                                                                \r\n"
  },
  {
    "path": "inp/t03131a.inp",
    "content": "ID    T03131A,NASTRAN                                                           \r\n$                                                                               \r\n$     THIS DEMO IS SAME AS T17011A WHERE SOLUTION 17 IS USED AND NO             \r\n$     DMAP ALTERS                                                               \r\n$                                                                               \r\nDIAG  25                                                                        \r\n$                                                                               \r\n$     INSERT ALTERS FOR DYNAMIC DESIGN ANALYSIS METHOD (COSDDAM) HERE           \r\n$                                                                               \r\nREADFILE COSDDAM                                                                \r\n$                                                                               \r\nSOL   3                                                                         \r\nAPP   DISP                                                                      \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = NAVY DYNAMIC DESIGN ANALYSIS METHOD (DDAM)                           \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T03-13-1A                                   \r\nLABEL    = HY-100 PLATFORM MODEL                                                \r\nOLOAD    = ALL                                                                  \r\nDISP     = ALL                                                                  \r\nMETHOD   = 1                                                                    \r\nSPC      = 1                                                                    \r\nFORCE(SORT2)  = ALL                                                             \r\nSTRESS(SORT2) = ALL                                                             \r\nBEGIN BULK                                                                      \r\nBAROR           1                       0.      1.      1.      1               \r\nCBAR    1               1       2                                               \r\nCBAR    2               2       3                                               \r\nCBAR    3               3       4                                               \r\nCBAR    4               4       5                                               \r\nCBAR    5       4       2       6       1.      0.      1.                      \r\nCBAR    6       5       3       8       1.      0.      1.                      \r\nCBAR    7       5       4       10      1.      0.      1.                      \r\nCBAR    8       2       6       7                                               \r\nCBAR    9       2       7       8                                               \r\nCBAR    10      2       8       9                                               \r\nCBAR    11      2       9       10                                              \r\nCBAR    12      4       6       11      1.      0.      1.                      \r\nCBAR    13      5       8       13      1.      0.      1.                      \r\nCBAR    14      5       10      15      1.      0.      1.                      \r\nCBAR    15      2       11      12                                              \r\nCBAR    16      2       12      13                                              \r\nCBAR    17      2       13      14                                              \r\nCBAR    18      2       14      15                                              \r\nCBAR    19      4       11      17      1.      0.      1.                      \r\nCBAR    20      5       13      20      1.      0.      1.                      \r\nCBAR    21      5       15      23      1.      0.      1.                      \r\nCBAR    22      3       16      17                                              \r\nCBAR    23      3       17      18                                              \r\nCBAR    24      3       18      19                                              \r\nCBAR    25      3       19      20                                              \r\nCBAR    26      3       20      21                                              \r\nCBAR    27      3       21      22                                              \r\nCBAR    28      3       22      23                                              \r\nCBAR    29      3       23      24                                              \r\nCBAR    30              19      25      0.      1.      -1.                     \r\nCBAR    31              22      26      0.      1.      -1.                     \r\nCBAR    32      4       17      27      1.      0.      1.                      \r\nCBAR    33      5       23      28      1.      0.      1.                      \r\nCONM2   32      2       1       7.76                                            \r\nCONM2   33      4       1       7.76                                            \r\nCONM2   34      7       1       9.52                                            \r\nCONM2   35      9       1       9.52                                            \r\nCONM2   36      11      1       29.97                                           \r\nCONM2   37      12      1       4.                                              \r\nCONM2   38      14      1       4.                                              \r\nCONM2   39      15      1       29.97                                           \r\nCONM2   40      18      1       5.                                              \r\nCONM2   41      21      1       5.                                              \r\nCORD2R  1               0.      0.      0.      0.      0.      1.      +COR1   \r\n+COR1   1.      0.      1.                                                      \r\nEIGR    1       GIV                             30              1.-3    +EGR1   \r\n+EGR1   MAX                                                                     \r\nGRID    1               0.      0.                                              \r\nGRID    2               0.      50.                                             \r\nGRID    3               0.      150.                                            \r\nGRID    4               0.      230.                                            \r\nGRID    5               0.      280.                                            \r\nGRID    6               48.     50.                                             \r\nGRID    7               48.     130.                                            \r\nGRID    8               48.     150.                                            \r\nGRID    9               48.     180.                                            \r\nGRID    10              48.     230.                                            \r\nGRID    11              120.    50.                                             \r\nGRID    12              120.    90.                                             \r\nGRID    13              120.    150.                                            \r\nGRID    14              120.    195.                                            \r\nGRID    15              120.    230.                                            \r\nGRID    16              180.    0.                                              \r\nGRID    17              180.    50.                                             \r\nGRID    18              180.    100.                                            \r\nGRID    19              180.    120.                                            \r\nGRID    20              180.    150.                                            \r\nGRID    21              180.    190.                                            \r\nGRID    22              180.    205.                                            \r\nGRID    23              180.    230.                                            \r\nGRID    24              180.    280.                                            \r\nGRID    25              180.    120.    -96.                                    \r\nGRID    26              180.    205.    -96.                                    \r\nGRID    27              230.    50.                                             \r\nGRID    28              230.    230.                                            \r\nMAT1    1       3.+7            .3      0.                                      \r\nOMIT1   456     1       THRU    15                                              \r\nOMIT1   456     17      THRU    23                                              \r\nOMIT1   123456  3       6       8       10      13      17      19      +OMT1   \r\n+OMT1   20      22      23                                                      \r\nPBAR    1       1       20.     332.    133.    3.8                     +BAR1   \r\n+BAR1   4.8     5.0     4.8     -5.0    -4.8    -5.     -4.8    5.0             \r\nPBAR    2       1       12.6    114.    51.2    1.4                     +BAR2   \r\n+BAR2   3.6     4.      3.6     -4.     -3.6    -4.     -3.6    4.              \r\nPBAR    3       1       20.     332.    133.    3.8                     +BAR3   \r\n+BAR3   4.8     5.      4.8     -5.     -4.8    -5.     -4.8    5.              \r\nPBAR    4       1       44.     861.    432.    30.                     +BAR4   \r\n+BAR4   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\nPBAR    5       1       44.     861.    432.    30.                     +BAR5   \r\n+BAR5   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\nSPC1    1       123     1       5                                               \r\nSPC1    1       123456  16      24      25      26      27      28              \r\nPARAM   ACCA    10.4                                                            \r\nPARAM   ACCB    480.                                                            \r\nPARAM   ACCC    20.                                                             \r\nPARAM   ACCD    0.                                                              \r\nPARAM   ACC1    .4                                                              \r\nPARAM   ACC2    1.                                                              \r\nPARAM   ACC3    1.                                                              \r\nPARAM   VELA    20.                                                             \r\nPARAM   VELB    480.                                                            \r\nPARAM   VELC    100.                                                            \r\nPARAM   VEL1    .4                                                              \r\nPARAM   VEL2    1.                                                              \r\nPARAM   VEL3    1.                                                              \r\nPARAM   LMODES  30                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t04021a.inp",
    "content": "NASTRAN FILES=NPTP                                                              \r\nID    T04021A,NASTRAN                                                           \r\nDIAG   14                                                                       \r\nTIME   10                                                                       \r\nCHKPNT YES                                                                      \r\nAPP    DISP                                                                     \r\nSOL    4,6                                                                      \r\nALTER  2,2 $                                                                    \r\nALTER  91 $                                                                     \r\nCHKPNT   KDGG $                                                                 \r\nEXIT $                                                                          \r\nENDALTER $                                                                      \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC ULLAGE PRESSURE, DIFFERENTIAL STIFFNESS PROBLEM         \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1A                                   \r\n$ REFERENCE PROBLEM III.1                                                       \r\nSPC  = 10                                                                       \r\nLOAD = 10                                                                       \r\nDISP = ALL                                                                      \r\nSUBCASE 1                                                                       \r\n  LABEL = STATIC SOLUTION                                                       \r\nSUBCASE 2                                                                       \r\n  LABEL = DIFFERENTIAL STIFFNESS SOLUTION                                       \r\nBEGIN BULK                                                                      \r\nCQUAD2  101     100     101     102     106     105                             \r\nCQUAD2  102     100     102     104     108     106                             \r\nCQUAD2  103     100     104     103     107     108                             \r\nCQUAD2  104     100     101     103     104     102                             \r\nGRID    101             0.0     0.0     0.0                                     \r\nGRID    102             6.0     0.0     0.0                                     \r\nGRID    103             0.0     12.0    0.0                                     \r\nGRID    104             6.0     12.0    0.0                                     \r\nGRID    105             0.0     0.0     12.0                                    \r\nGRID    106             6.0     0.0     12.0                                    \r\nGRID    107             0.0     12.0    12.0                                    \r\nGRID    108             6.0     12.0    12.0                                    \r\nMAT1    100     10.6+6          .3      .92-3                                   \r\nPLOAD2  10      1.0     101     THRU    104                                     \r\nPQUAD2  100     100     .06                                                     \r\nSPC1    10      12356   101     103     105     107                             \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t04021b.inp",
    "content": "NASTRAN FILES = OPTP                                                            \r\nID    T04021B,NASTRAN                                                           \r\n$ INSERT CHECKPOINT DICTIONARY                                                  \r\nREADFILE RSCARDS                                                                \r\nTIME  10                                                                        \r\nAPP   DISP                                                                      \r\nSOL   3,0                                                                       \r\n$ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) AFTER THIS CARD                     \r\nREADFILE COSHYD1                                                                \r\n$ INSERT HYDRO DIRECT DMAP ALTERS (COSHYD1) BEFORE THIS CARD                    \r\nCEND                                                                            \r\nTITLE    = HYDROELASTIC ULLAGE PRESSURE, NORMAL MODES RESTART                   \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T04-02-1B                                   \r\n$ REFERENCE PROBLEM III.2                                                       \r\nDISP   = ALL                                                                    \r\nSPCF   = ALL                                                                    \r\nMETHOD = 50                                                                     \r\nSPC    = 10                                                                     \r\nBEGIN BULK                                                                      \r\n$                                                                               \r\n$ *** NOTE - STRUCTURE BULK DATA IS ON RESTART TAPE                             \r\n$                                                                               \r\nGRID    1               0.0     0.0     0.0                                     \r\nGRID    2               6.0     0.0     0.0                                     \r\nGRID    3               0.0     12.0    0.0                                     \r\nGRID    4               6.0     12.0    0.0                                     \r\nGRID    5               0.0     0.0     12.0                                    \r\nGRID    6               6.0     0.0     12.0                                    \r\nGRID    7               0.0     12.0    12.0                                    \r\nGRID    8               6.0     12.0    12.0                                    \r\nCFHEX2  1       200     1       2       4       3       5       6       +C1     \r\n+C1     8       7                                                               \r\nCFFREE  1       100     6                                                       \r\nCFLSTR  1       100     101     THRU    104                                     \r\nMATF    200     9.355-4                                                         \r\nOMIT1   4       101     103     105     107                                     \r\nOMIT1   456     102     104     106     108                                     \r\nGRAV    100             386.0   0.0     0.0     -1.0                            \r\nEIGR    50      GIV     0.0     20.0    6       6       0               +E12    \r\n+E12    MAX                                                                     \r\n$                                                                               \r\n$ PARAMETERS TO TRIGGER ADDITION OF ULLAGE PRESSURE                             \r\n$                                                                               \r\nPARAM   DIFSTIF -1                                                              \r\nPARAM   DIFSCALE 14.7                                                           \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t05031a.inp",
    "content": "ID    T05031A,NASTRAN                                                           \r\nSOL   5,0                                                                       \r\nAPP   DISP                                                                      \r\nTIME  200                                                                       \r\nCEND                                                                            \r\nTITLE    = BUCKLING ANALYSIS USING CIS2D8 ELEMENTS                              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T05-03-1A                                   \r\nSTRESS   = ALL                                                                  \r\nDISP     = ALL                                                                  \r\nOLOAD    = ALL                                                                  \r\nSUBCASE 1                                                                       \r\n  LABEL = STATIC SOLUTION                                                       \r\n  LOAD  = 4                                                                     \r\n  TEMP(LOAD)=3                                                                  \r\nSUBCASE 2                                                                       \r\n  LABEL = BUCKLING SOLUTION                                                     \r\n  METHOD= 1                                                                     \r\nBEGIN BULK                                                                      \r\nCIS2D8  1       1       1       7       9       3       4       8       +C1     \r\n+C1     6       2       3                                                       \r\nCIS2D8  2       1       7       13      15      9       10      14      +C2     \r\n+C2     12      8       3                                                       \r\nCIS2D8  3       1       13      19      21      15      16      20      +C3     \r\n+C3     18      14      3                                                       \r\nCIS2D8  4       1       19      25      27      21      22      26      +C4     \r\n+C4     24      20      3                                                       \r\nCIS2D8  5       1       25      31      33      27      28      32      +C5     \r\n+C5     30      26      3                                                       \r\nEIGB    1       INV     5.      10.     1       1       0               +EIGB   \r\n+EIGB   MAX                                                                     \r\nFORCE   1       31      0       166.6667-1.     0.      0.                      \r\nFORCE   1       32      0       666.6666-1.     0.      0.                      \r\nFORCE   1       33      0       166.6667-1.     0.      0.                      \r\nGRAV    2               5.      0.      1.      0.                              \r\nGRDSET                                                  3456                    \r\nGRID    1               0.      0.                      123456                  \r\nGRID    2               0.      .5                      123456                  \r\nGRID    3               0.      1.                      123456                  \r\nGRID    4               1.      0.                                              \r\nGRID    6               1.      1.                                              \r\nGRID    7               2.      0.                                              \r\nGRID    8               2.      .5                                              \r\nGRID    9               2.      1.                                              \r\nGRID    10              3.      0.                                              \r\nGRID    12              3.      1.                                              \r\nGRID    13              4.      0.                                              \r\nGRID    14              4.      .5                                              \r\nGRID    15              4.      1.                                              \r\nGRID    16              5.      0.                                              \r\nGRID    18              5.      1.                                              \r\nGRID    19              6.      0.                                              \r\nGRID    20              6.      .5                                              \r\nGRID    21              6.      1.                                              \r\nGRID    22              7.      0.                                              \r\nGRID    24              7.      1.                                              \r\nGRID    25              8.      0.                                              \r\nGRID    26              8.      .5                                              \r\nGRID    27              8.      1.                                              \r\nGRID    28              9.      0.                                              \r\nGRID    30              9.      1.                                              \r\nGRID    31              10.     0.                                              \r\nGRID    32              10.     .5                                              \r\nGRID    33              10.     1.                                              \r\nLOAD    4       1.      1.      1       1.      2                               \r\nMAT1    1       3.+7            .3      7.324-4 .001    5.                      \r\nPIS2D8  1       1       .1                                                      \r\nTEMPD   3       20.                                                             \r\nENDDATA                                                                         \r\n/EOF                                                                            \r\n+C1     6       2       3                                                       \r\n"
  },
  {
    "path": "inp/t08021a.inp",
    "content": "NASTRAN FILES = PLT2                                                            \r\nID    T08021A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   8                                                                         \r\nDIAG  14                                                                        \r\nTIME  50                                                                        \r\n$                                                                               \r\nREADFILE COSDFVA                                                                \r\n$                                                                               \r\nCEND                                                                            \r\nTITLE    = ROTATING CYCLIC STRUCTURE (FREQ+BASE ACCN LOADS, HARM. I/O)          \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-1A                                   \r\n$                                                                               \r\n   SPC   = 30                                                                   \r\n   FREQ  = 1                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 8,16,18                                                              \r\n   SET 2 = 11                                                                   \r\n   OLOAD = 1                                                                    \r\n   DISP(SORT2,PHASE)   = 1                                                      \r\n   STRESS(SORT2,PHASE) = 2                                                      \r\nSUBCASE  1                                                                      \r\n   LABEL = KINDEX 0                                                             \r\n   DLOAD = 1   $ FREQ DEPENDENT LOADS                                           \r\n$                AXIAL BASE ACCN LOADS VIA PARAM BXTID,BXPTID                   \r\n SUBCASE 2                                                                      \r\n   LABEL = KINDEX 1C                                                            \r\n$                LATERAL BASE ACCN LOADS VIA PARAM BYTID                        \r\n SUBCASE 3                                                                      \r\n   LABEL = KINDEX 1S                                                            \r\n$                LATERAL BASE ACCN LOADS VIA PARAM BZTID                        \r\n SUBCASE 4                                                                      \r\n   LABEL = KINDEX 2C                                                            \r\n   DLOAD = 1   $ FREQ DEPENDENT LOADS                                           \r\n SUBCASE 5                                                                      \r\n   LABEL = KINDEX 2S                                                            \r\nOUTPUT(XYPLOT)                                                                  \r\n   PLOTTER NASTPLT D,0                                                          \r\n   XPAPER = 8.0                                                                 \r\n   YPAPER = 10.5                                                                \r\n   XAXIS  = YES                                                                 \r\n   YAXIS  = YES                                                                 \r\n   XGRID LINES = YES                                                            \r\n   YGRID LINES = YES                                                            \r\n   CURVELINESYMBOL = 1                                                          \r\n   XTITLE =                           FREQUENCY (HERTZ)                         \r\n   YTITLE =            GRID POINT DISPLACEMENTS ( MAGNITUDE,INCH )              \r\n   YLOG   = YES                                                                 \r\n   TCURVE = 8(T3RM),18(T3RM)                                                    \r\n   XYPLOT,XYPRINT DISP RESPONSE 1 /8(T3RM),18(T3RM)                             \r\n   XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3RM),18(T3RM)                             \r\n   XYPLOT,XYPRINT DISP RESPONSE 3 /8(T3RM),18(T3RM)                             \r\n   XYPLOT,XYPRINT DISP RESPONSE 4 /8(T3RM),18(T3RM)                             \r\n   YTITLE =            GRID POINT DISPLACEMENTS ( PHASE,DEGREE )                \r\n   YLOG   = NO                                                                  \r\n   TCURVE = 8(T3IP),18(T3IP)                                                    \r\n   XYPLOT,XYPRINT DISP RESPONSE 2 /8(T3IP),18(T3IP)                             \r\n   YTITLE =                   ELEMENT STRESSES ( MAGNITUDE,PSI )                \r\n   YLOG   = YES                                                                 \r\n   TCURVE = 11(3),11(5),11(7),11(10),11(12),11(14)                              \r\n   XYPLOT,XYPRINT STRESS RESPONSE 1 /11(3),11(5),11(7),                         \r\n                                     11(10),11(12),11(14)                       \r\n   XYPLOT,XYPRINT STRESS RESPONSE 2 /11(3),11(5),11(7),                         \r\n                                     11(10),11(12),11(14)                       \r\n   XYPLOT,XYPRINT STRESS RESPONSE 3 /11(3),11(5),11(7),                         \r\n                                     11(10),11(12),11(14)                       \r\n   XYPLOT,XYPRINT STRESS RESPONSE 4 /11(3),11(5),11(7),                         \r\n                                     11(10),11(12),11(14)                       \r\nBEGIN BULK                                                                      \r\nCORD2C  1               0.0     0.0     0.0     1.0     0.0     0.0     +COR12  \r\n+COR12  0.0     1.0     0.0                                                     \r\nCQUAD2  4       2       2       3       7       6                               \r\nCQUAD2  5       2       6       7       12      11                              \r\nCQUAD2  6       2       3       4       8       7                               \r\nCQUAD2  7       2       7       8       13      12                              \r\nCQUAD2  8       2       4       5       9       8                               \r\nCQUAD2  10      2       8       15      14      13                              \r\nCQUAD2  11      3       9       16      18      15                              \r\nCQUAD2  12      3       16      17      19      18                              \r\nCTRIA2  1       1       1       6       10                                      \r\nCTRIA2  2       1       1       2       6                                       \r\nCTRIA2  3       1       10      6       11                                      \r\nCTRIA2  9       1       8       9       15                                      \r\nCYJOIN  1               1       2       3       4       5                       \r\nCYJOIN  2               10      11      12      13      14                      \r\nDAREA   1       8       3       -1.0                                            \r\nDAREA   1       16      3        1.0                                            \r\nDAREA   1       18      3        1.0                                            \r\nFREQ    1       1700.0  1750.0  1777.6  1795.7  1813.8541832.0  1850.1  +FR1    \r\n+FR1    1880.0  1920.0                                                          \r\nGRDSET            1                               1                             \r\nGRID    1               2.0     30.0    0.0                                     \r\nGRID    2               3.1     30.0    0.0                                     \r\nGRID    3               4.3     30.0    0.0                                     \r\nGRID    4               5.2     30.0    0.0                                     \r\nGRID    5               7.1     30.0    0.0                                     \r\nGRID    6               3.1     45.0    0.0                                     \r\nGRID    7               4.3     45.0    0.0                                     \r\nGRID    8               5.2     45.0    0.0                                     \r\nGRID    9               7.1     40.0    0.0                                     \r\nGRID    10              2.0     60.0    0.0                                     \r\nGRID    11              3.1     60.0    0.0                                     \r\nGRID    12              4.3     60.0    0.0                                     \r\nGRID    13              5.2     60.0    0.0                                     \r\nGRID    14              7.1     60.0    0.0                                     \r\nGRID    15              7.1     50.0    0.0                                     \r\nGRID    16              8.5     40.0    -.25                                    \r\nGRID    17              9.7     40.0    -.50                                    \r\nGRID    18              8.5     50.0    0.25                                    \r\nGRID    19              9.7     50.0    0.50                                    \r\nMAT1    1       30.0+6          .3      7.4-4                                   \r\nPARAM   BXTID   9001                                                            \r\nPARAM   BXPTID  9002                                                            \r\nPARAM   BYTID   9003                                                            \r\nPARAM   BZTID   9004                                                            \r\nPARAM   CYCIO   -1                                                              \r\nPARAM   G       .02                                                             \r\nPARAM   GKAD    FREQRESP                                                        \r\nPARAM   KMAX    2                                                               \r\nPARAM   KMIN    0                                                               \r\nPARAM   LGKAD   1                                                               \r\nPARAM   NSEGS   12                                                              \r\nPARAM   RPS     600.0                                                           \r\nPQUAD2  2       1       .25                                                     \r\nPQUAD2  3       1       .125                                                    \r\nPTRIA2  1       1       .25                                                     \r\nRLOAD1  1       1                       100                                     \r\nSPC1    30      123456  1       10                                              \r\nSPC1    30      6       1       THRU    19                                      \r\nTABLED1 100                                                             +TBD1   \r\n+TBD1   0.0     1.0     1000.0  1.0     ENDT                                    \r\nTABLED1 9001                                                            +TAB11  \r\n+TAB11  1000.   0.0     2000.0  1000.0  ENDT                                    \r\nTABLED1 9002                                                            +TAB21  \r\n+TAB21  1000.   -180.   2000.0  0.0     ENDT                                    \r\nTABLED1 9003                                                            +TAB31  \r\n+TAB31  1000.   1000.0  2000.0  1000.0  ENDT                                    \r\nTABLED1 9004                                                            +TAB41  \r\n+TAB41  1000.   500.0   2000.0  500.0   ENDT                                    \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t08022a.inp",
    "content": "ID    T08022A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   8                                                                         \r\nDIAG  14                                                                        \r\nTIME  20                                                                        \r\n$                                                                               \r\nREADFILE COSDFVA                                                                \r\n$                                                                               \r\nCEND                                                                            \r\nTITLE    = ROTATING CYCLIC STRUCTURE (TIME DEP. LOADS, PHYSICAL I/O)            \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T08-02-2A                                   \r\n$                                                                               \r\n   SPC   = 30                                                                   \r\n   TSTEP = 1                                                                    \r\nOUTPUT                                                                          \r\n   SET 1 = 8,16,18                                                              \r\n   SET 2 = 11                                                                   \r\n   OLOAD = 1                                                                    \r\n   DISP(SORT2,PHASE)   = 1                                                      \r\n   STRESS(SORT2,PHASE) = 2                                                      \r\n      SUBCASE 1                                                                 \r\n         LABEL = SEGMENT 1                                                      \r\n         DLOAD = 1   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 2                                                                 \r\n         LABEL = SEGMENT 2                                                      \r\n         DLOAD = 2   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 3                                                                 \r\n         LABEL = SEGMENT 3                                                      \r\n         DLOAD = 3   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 4                                                                 \r\n         LABEL = SEGMENT 4                                                      \r\n         DLOAD = 4   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 5                                                                 \r\n         LABEL = SEGMENT 5                                                      \r\n         DLOAD = 5   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 6                                                                 \r\n         LABEL = SEGMENT 6                                                      \r\n         DLOAD = 6   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 7                                                                 \r\n         LABEL = SEGMENT 7                                                      \r\n         DLOAD = 7   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 8                                                                 \r\n         LABEL = SEGMENT 8                                                      \r\n         DLOAD = 8   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 9                                                                 \r\n         LABEL = SEGMENT 9                                                      \r\n         DLOAD = 9   $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 10                                                                \r\n         LABEL = SEGMENT 10                                                     \r\n         DLOAD = 10  $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 11                                                                \r\n         LABEL = SEGMENT 11                                                     \r\n         DLOAD = 11  $ TIME DEPENDENT LOADS                                     \r\n      SUBCASE 12                                                                \r\n         LABEL = SEGMENT 12                                                     \r\n         DLOAD = 12  $ TIME DEPENDENT LOADS                                     \r\nBEGIN BULK                                                                      \r\nCORD2C  1               0.0     0.0     0.0     1.0     0.0     0.0     +COR12  \r\n+COR12  0.0     1.0     0.0                                                     \r\nCQUAD2  4       2       2       3       7       6                               \r\nCQUAD2  5       2       6       7       12      11                              \r\nCQUAD2  6       2       3       4       8       7                               \r\nCQUAD2  7       2       7       8       13      12                              \r\nCQUAD2  8       2       4       5       9       8                               \r\nCQUAD2  10      2       8       15      14      13                              \r\nCQUAD2  11      3       9       16      18      15                              \r\nCQUAD2  12      3       16      17      19      18                              \r\nCTRIA2  1       1       1       6       10                                      \r\nCTRIA2  2       1       1       2       6                                       \r\nCTRIA2  3       1       10      6       11                                      \r\nCTRIA2  9       1       8       9       15                                      \r\nCYJOIN  1               1       2       3       4       5                       \r\nCYJOIN  2               10      11      12      13      14                      \r\nDAREA   1       8       3       -1.0                                            \r\nDAREA   1       16      3        1.0                                            \r\nDAREA   1       18      3        1.0                                            \r\nDAREA   2       8       3       -0.5                                            \r\nDAREA   2       16      3        0.5                                            \r\nDAREA   2       18      3        0.5                                            \r\nDAREA   3       8       3        0.5                                            \r\nDAREA   3       16      3       -0.5                                            \r\nDAREA   3       18      3       -0.5                                            \r\nDAREA   4       8       3        1.0                                            \r\nDAREA   4       16      3       -1.0                                            \r\nDAREA   4       18      3       -1.0                                            \r\nDAREA   5       8       3        0.5                                            \r\nDAREA   5       16      3       -0.5                                            \r\nDAREA   5       18      3       -0.5                                            \r\nDAREA   6       8       3       -0.5                                            \r\nDAREA   6       16      3        0.5                                            \r\nDAREA   6       18      3        0.5                                            \r\nDAREA   7       8       3       -1.0                                            \r\nDAREA   7       16      3        1.0                                            \r\nDAREA   7       18      3        1.0                                            \r\nDAREA   8       8       3       -0.5                                            \r\nDAREA   8       16      3        0.5                                            \r\nDAREA   8       18      3        0.5                                            \r\nDAREA   9       8       3        0.5                                            \r\nDAREA   9       16      3       -0.5                                            \r\nDAREA   9       18      3       -0.5                                            \r\nDAREA   10      8       3        1.0                                            \r\nDAREA   10      16      3       -1.0                                            \r\nDAREA   10      18      3       -1.0                                            \r\nDAREA   11      8       3        0.5                                            \r\nDAREA   11      16      3       -0.5                                            \r\nDAREA   11      18      3       -0.5                                            \r\nDAREA   12      8       3       -0.5                                            \r\nDAREA   12      16      3        0.5                                            \r\nDAREA   12      18      3        0.5                                            \r\nGRDSET            1                               1                             \r\nGRID    1               2.0     30.0    0.0                                     \r\nGRID    2               3.1     30.0    0.0                                     \r\nGRID    3               4.3     30.0    0.0                                     \r\nGRID    4               5.2     30.0    0.0                                     \r\nGRID    5               7.1     30.0    0.0                                     \r\nGRID    6               3.1     45.0    0.0                                     \r\nGRID    7               4.3     45.0    0.0                                     \r\nGRID    8               5.2     45.0    0.0                                     \r\nGRID    9               7.1     40.0    0.0                                     \r\nGRID    10              2.0     60.0    0.0                                     \r\nGRID    11              3.1     60.0    0.0                                     \r\nGRID    12              4.3     60.0    0.0                                     \r\nGRID    13              5.2     60.0    0.0                                     \r\nGRID    14              7.1     60.0    0.0                                     \r\nGRID    15              7.1     50.0    0.0                                     \r\nGRID    16              8.5     40.0    -.25                                    \r\nGRID    17              9.7     40.0    -.50                                    \r\nGRID    18              8.5     50.0    0.25                                    \r\nGRID    19              9.7     50.0    0.50                                    \r\nMAT1    1       30.0+6          .3      7.4-4                                   \r\nPARAM   CYCIO   +1                                                              \r\nPARAM   G       .02                                                             \r\nPARAM   GKAD    FREQRESP                                                        \r\nPARAM   KMAX    2                                                               \r\nPARAM   KMIN    2                                                               \r\nPARAM   LGKAD   1                                                               \r\nPARAM   LMAX    1                                                               \r\nPARAM   NSEGS   12                                                              \r\nPARAM   RPS     600.0                                                           \r\nPQUAD2  2       1       .25                                                     \r\nPQUAD2  3       1       .125                                                    \r\nPTRIA2  1       1       .25                                                     \r\nSPC1    30      123456  1       10                                              \r\nSPC1    30      6       1       THRU    19                                      \r\nTLOAD2  1       1                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  2       2                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  3       3                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  4       4                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  5       5                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  6       6                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  7       7                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  8       8                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  9       9                       0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  10      10                      0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  11      11                      0.0     5.5131-41813.854 -90.0          \r\nTLOAD2  12      12                      0.0     5.5131-41813.854 -90.0          \r\nTSTEP   1       10      4.5943-5 1                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t08031a.inp",
    "content": "NASTRAN  SYSTEM(93)=1                                                           \r\nID    T08031A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   8                                                                         \r\nDIAG  14                                                                        \r\nTIME  500                                                                       \r\n$                                                                               \r\nREADFILE COSMFVA                                                                \r\n$                                                                               \r\nCEND                                                                            \r\nTITLE    = FREQ. RESPONSE OF A TURBOPROP TO 1 PER REV. OSC. AIRLOADS            \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T08-03-1A                                   \r\nLABEL    = K = 0 MODES, OSCILLATORY AIRLOADS PRESENT                            \r\n$                                                                               \r\n  SPC       = 1                                                                 \r\n  MPC       = 1                                                                 \r\n  METHOD    = 1                                                                 \r\n  FREQUENCY = 1                                                                 \r\n  DLOAD     = 1000                                                              \r\n$                                                                               \r\n  DISP(SORT1,PHASE)   = ALL                                                     \r\n  STRESS(SORT1,PHASE) = ALL                                                     \r\n$                                                                               \r\n$   NOTE ---                                                                    \r\n$   THE FOLLOWING DATA IS FOR A RIGID HUB AND UNIFORM FLOW                      \r\n$                                                                               \r\nBEGIN BULK                                                                      \r\nCORD2R  77      0       .0      .0      .0      .0      .0      1.      +C2R    \r\n+C2R    10.     -0.618  .0                                                      \r\nCTRIA2  1       1       10      9       8                                       \r\nCTRIA2  2       2       11      10      8                                       \r\nCTRIA2  3       3       8       7       11                                      \r\nCTRIA2  4       4       12      11      7                                       \r\nCTRIA2  5       5       7       1       12                                      \r\nCTRIA2  6       6       13      12      1                                       \r\nCTRIA2  7       7       1       2       13                                      \r\nCTRIA2  8       8       14      13      2                                       \r\nCTRIA2  9       9       2       3       14                                      \r\nCTRIA2  10      10      15      14      3                                       \r\nCTRIA2  11      11      3       4       15                                      \r\nCTRIA2  12      12      16      15      4                                       \r\nCTRIA2  13      13      4       5       16                                      \r\nCTRIA2  14      14      17      16      5                                       \r\nCTRIA2  15      15      5       6       17                                      \r\nCTRIA2  16      16      20      19      18                                      \r\nCTRIA2  17      17      21      20      18                                      \r\nCTRIA2  18      18      18      9       21                                      \r\nCTRIA2  19      19      22      21      9                                       \r\nCTRIA2  20      20      9       10      22                                      \r\nCTRIA2  21      21      10      11      22                                      \r\nCTRIA2  22      22      23      22      11                                      \r\nCTRIA2  23      23      11      12      23                                      \r\nCTRIA2  24      24      24      23      12                                      \r\nCTRIA2  25      25      12      13      24                                      \r\nCTRIA2  26      26      25      24      13                                      \r\nCTRIA2  27      27      13      14      25                                      \r\nCTRIA2  28      28      14      15      25                                      \r\nCTRIA2  29      29      26      25      15                                      \r\nCTRIA2  30      30      15      16      26                                      \r\nCTRIA2  31      31      27      26      16                                      \r\nCTRIA2  32      32      16      17      27                                      \r\nCTRIA2  33      33      29      28      19                                      \r\nCTRIA2  34      34      30      29      19                                      \r\nCTRIA2  35      35      19      20      30                                      \r\nCTRIA2  36      36      31      30      20                                      \r\nCTRIA2  37      37      20      21      31                                      \r\nCTRIA2  38      38      32      31      21                                      \r\nCTRIA2  39      39      21      22      32                                      \r\nCTRIA2  40      40      33      32      22                                      \r\nCTRIA2  41      41      22      23      33                                      \r\nCTRIA2  42      42      23      24      33                                      \r\nCTRIA2  43      43      34      33      24                                      \r\nCTRIA2  44      44      24      25      34                                      \r\nCTRIA2  45      45      35      34      25                                      \r\nCTRIA2  46      46      25      26      35                                      \r\nCTRIA2  47      47      36      35      26                                      \r\nCTRIA2  48      48      26      27      36                                      \r\nCTRIA2  49      49      38      37      28                                      \r\nCTRIA2  50      50      28      29      39                                      \r\nCTRIA2  51      51      39      38      28                                      \r\nCTRIA2  52      52      40      39      29                                      \r\nCTRIA2  53      53      29      30      40                                      \r\nCTRIA2  54      54      30      31      40                                      \r\nCTRIA2  55      55      41      40      31                                      \r\nCTRIA2  56      56      31      32      41                                      \r\nCTRIA2  57      57      42      41      32                                      \r\nCTRIA2  58      58      32      33      42                                      \r\nCTRIA2  59      59      43      42      33                                      \r\nCTRIA2  60      60      33      34      43                                      \r\nCTRIA2  61      61      44      43      34                                      \r\nCTRIA2  62      62      34      35      44                                      \r\nCTRIA2  63      63      45      44      35                                      \r\nCTRIA2  64      64      35      36      45                                      \r\nCTRIA2  65      65      47      46      37                                      \r\nCTRIA2  66      66      37      38      47                                      \r\nCTRIA2  67      67      48      47      38                                      \r\nCTRIA2  68      68      38      39      48                                      \r\nCTRIA2  69      69      49      48      39                                      \r\nCTRIA2  70      70      39      40      49                                      \r\nCTRIA2  71      71      50      49      40                                      \r\nCTRIA2  72      72      40      41      50                                      \r\nCTRIA2  73      73      51      50      41                                      \r\nCTRIA2  74      74      41      42      51                                      \r\nCTRIA2  75      75      52      51      42                                      \r\nCTRIA2  76      76      42      43      52                                      \r\nCTRIA2  77      77      53      52      43                                      \r\nCTRIA2  78      78      43      44      53                                      \r\nCTRIA2  79      79      54      53      44                                      \r\nCTRIA2  80      80      44      45      54                                      \r\nCTRIA2  81      81      56      55      46                                      \r\nCTRIA2  82      82      46      47      56                                      \r\nCTRIA2  83      83      57      56      47                                      \r\nCTRIA2  84      84      47      48      57                                      \r\nCTRIA2  85      85      58      57      48                                      \r\nCTRIA2  86      86      48      49      58                                      \r\nCTRIA2  87      87      59      58      49                                      \r\nCTRIA2  88      88      49      50      59                                      \r\nCTRIA2  89      89      60      59      50                                      \r\nCTRIA2  90      90      50      51      60                                      \r\nCTRIA2  91      91      61      60      51                                      \r\nCTRIA2  92      92      51      52      61                                      \r\nCTRIA2  93      93      62      61      52                                      \r\nCTRIA2  94      94      52      53      62                                      \r\nCTRIA2  95      95      63      62      53                                      \r\nCTRIA2  96      96      53      54      63                                      \r\nCTRIA2  97      97      65      64      55                                      \r\nCTRIA2  98      98      55      56      65                                      \r\nCTRIA2  99      99      66      65      56                                      \r\nCTRIA2  100     100     56      57      66                                      \r\nCTRIA2  101     101     67      66      57                                      \r\nCTRIA2  102     102     57      58      67                                      \r\nCTRIA2  103     103     68      67      58                                      \r\nCTRIA2  104     104     58      59      68                                      \r\nCTRIA2  105     105     69      68      59                                      \r\nCTRIA2  106     106     59      60      69                                      \r\nCTRIA2  107     107     70      69      60                                      \r\nCTRIA2  108     108     60      61      70                                      \r\nCTRIA2  109     109     71      70      61                                      \r\nCTRIA2  110     110     61      62      71                                      \r\nCTRIA2  111     111     72      71      62                                      \r\nCTRIA2  112     112     62      63      72                                      \r\nCTRIA2  113     113     74      73      64                                      \r\nCTRIA2  114     114     64      65      74                                      \r\nCTRIA2  115     115     75      74      65                                      \r\nCTRIA2  116     116     65      66      75                                      \r\nCTRIA2  117     117     76      75      66                                      \r\nCTRIA2  118     118     66      67      76                                      \r\nCTRIA2  119     119     77      76      67                                      \r\nCTRIA2  120     120     67      68      77                                      \r\nCTRIA2  121     121     78      77      68                                      \r\nCTRIA2  122     122     68      69      78                                      \r\nCTRIA2  123     123     79      78      69                                      \r\nCTRIA2  124     124     69      70      79                                      \r\nCTRIA2  125     125     80      79      70                                      \r\nCTRIA2  126     126     70      71      80                                      \r\nCTRIA2  127     127     81      80      71                                      \r\nCTRIA2  128     128     71      72      81                                      \r\nCTRIA2  129     129     82      81      72                                      \r\nCTRIA2  130     130     87      86      73                                      \r\nCTRIA2  131     131     73      74      87                                      \r\nCTRIA2  132     132     88      87      74                                      \r\nCTRIA2  133     133     74      75      88                                      \r\nCTRIA2  134     134     89      88      75                                      \r\nCTRIA2  135     135     75      76      89                                      \r\nCTRIA2  136     136     90      89      76                                      \r\nCTRIA2  137     137     76      77      90                                      \r\nCTRIA2  138     138     91      90      77                                      \r\nCTRIA2  139     139     77      78      91                                      \r\nCTRIA2  140     140     92      91      78                                      \r\nCTRIA2  141     141     78      79      92                                      \r\nCTRIA2  142     142     79      80      83                                      \r\nCTRIA2  143     143     79      83      92                                      \r\nCTRIA2  144     144     93      92      83                                      \r\nCTRIA2  145     145     80      81      84                                      \r\nCTRIA2  146     146     84      83      80                                      \r\nCTRIA2  147     147     83      84      94                                      \r\nCTRIA2  148     148     94      93      83                                      \r\nCTRIA2  149     149     81      82      85                                      \r\nCTRIA2  150     150     85      84      81                                      \r\nCTRIA2  151     151     84      85      95                                      \r\nCTRIA2  152     152     95      94      84                                      \r\nCTRIA2  153     153     100     99      86                                      \r\nCTRIA2  154     154     86      87      100                                     \r\nCTRIA2  155     155     101     100     87                                      \r\nCTRIA2  156     156     87      88      101                                     \r\nCTRIA2  157     157     102     101     88                                      \r\nCTRIA2  158     158     88      89      102                                     \r\nCTRIA2  159     159     103     102     89                                      \r\nCTRIA2  160     160     89      90      103                                     \r\nCTRIA2  161     161     104     103     90                                      \r\nCTRIA2  162     162     90      91      104                                     \r\nCTRIA2  163     163     105     104     91                                      \r\nCTRIA2  164     164     91      92      105                                     \r\nCTRIA2  165     165     92      93      96                                      \r\nCTRIA2  166     166     92      96      105                                     \r\nCTRIA2  167     167     106     105     96                                      \r\nCTRIA2  168     168     93      94      97                                      \r\nCTRIA2  169     169     97      96      93                                      \r\nCTRIA2  170     170     96      97      107                                     \r\nCTRIA2  171     171     107     106     96                                      \r\nCTRIA2  172     172     94      95      98                                      \r\nCTRIA2  173     173     98      97      94                                      \r\nCTRIA2  174     174     97      98      108                                     \r\nCTRIA2  175     175     108     107     97                                      \r\nCTRIA2  176     176     113     112     99                                      \r\nCTRIA2  177     177     99      100     113                                     \r\nCTRIA2  178     178     114     113     100                                     \r\nCTRIA2  179     179     100     101     114                                     \r\nCTRIA2  180     180     115     114     101                                     \r\nCTRIA2  181     181     101     102     115                                     \r\nCTRIA2  182     182     116     115     102                                     \r\nCTRIA2  183     183     102     103     116                                     \r\nCTRIA2  184     184     117     116     103                                     \r\nCTRIA2  185     185     103     104     117                                     \r\nCTRIA2  186     186     118     117     104                                     \r\nCTRIA2  187     187     104     105     118                                     \r\nCTRIA2  188     188     105     106     109                                     \r\nCTRIA2  189     189     105     109     118                                     \r\nCTRIA2  190     190     119     118     109                                     \r\nCTRIA2  191     191     106     107     110                                     \r\nCTRIA2  192     192     110     109     106                                     \r\nCTRIA2  193     193     109     110     120                                     \r\nCTRIA2  194     194     120     119     109                                     \r\nCTRIA2  195     195     107     108     111                                     \r\nCTRIA2  196     196     111     110     107                                     \r\nCTRIA2  197     197     110     111     121                                     \r\nCTRIA2  198     198     121     120     110                                     \r\nCTRIA2  199     199     112     113     125                                     \r\nCTRIA2  200     200     126     125     113                                     \r\nCTRIA2  201     201     113     114     126                                     \r\nCTRIA2  202     202     127     126     114                                     \r\nCTRIA2  203     203     114     115     127                                     \r\nCTRIA2  204     204     128     127     115                                     \r\nCTRIA2  205     205     115     116     128                                     \r\nCTRIA2  206     206     129     128     116                                     \r\nCTRIA2  207     207     116     117     129                                     \r\nCTRIA2  208     208     130     129     117                                     \r\nCTRIA2  209     209     117     118     130                                     \r\nCTRIA2  210     210     131     130     118                                     \r\nCTRIA2  211     211     118     119     122                                     \r\nCTRIA2  212     212     118     122     131                                     \r\nCTRIA2  213     213     132     131     122                                     \r\nCTRIA2  214     214     119     120     122                                     \r\nCTRIA2  215     215     123     122     120                                     \r\nCTRIA2  216     216     122     123     132                                     \r\nCTRIA2  217     217     133     132     123                                     \r\nCTRIA2  218     218     120     121     123                                     \r\nCTRIA2  219     219     124     123     121                                     \r\nCTRIA2  220     220     123     124     133                                     \r\nCTRIA2  221     221     134     133     124                                     \r\nCTRIA2  222     222     125     126     138                                     \r\nCTRIA2  223     223     139     138     126                                     \r\nCTRIA2  224     224     126     127     139                                     \r\nCTRIA2  225     225     140     139     127                                     \r\nCTRIA2  226     226     127     128     140                                     \r\nCTRIA2  227     227     141     140     128                                     \r\nCTRIA2  228     228     128     129     141                                     \r\nCTRIA2  229     229     142     141     129                                     \r\nCTRIA2  230     230     129     130     142                                     \r\nCTRIA2  231     231     143     142     130                                     \r\nCTRIA2  232     232     130     131     143                                     \r\nCTRIA2  233     233     144     143     131                                     \r\nCTRIA2  234     234     131     132     135                                     \r\nCTRIA2  235     235     131     135     144                                     \r\nCTRIA2  236     236     145     144     135                                     \r\nCTRIA2  237     237     132     133     135                                     \r\nCTRIA2  238     238     136     135     133                                     \r\nCTRIA2  239     239     135     136     145                                     \r\nCTRIA2  240     240     146     145     136                                     \r\nCTRIA2  241     241     133     134     136                                     \r\nCTRIA2  242     242     137     136     134                                     \r\nCTRIA2  243     243     136     137     146                                     \r\nCTRIA2  244     244     147     146     137                                     \r\nCTRIA2  245     245     138     139     148                                     \r\nCTRIA2  246     246     149     148     139                                     \r\nCTRIA2  247     247     139     140     149                                     \r\nCTRIA2  248     248     150     149     140                                     \r\nCTRIA2  249     249     140     141     150                                     \r\nCTRIA2  250     250     151     150     141                                     \r\nCTRIA2  251     251     141     142     151                                     \r\nCTRIA2  252     252     152     151     142                                     \r\nCTRIA2  253     253     142     143     152                                     \r\nCTRIA2  254     254     153     152     143                                     \r\nCTRIA2  255     255     143     144     153                                     \r\nCTRIA2  256     256     154     153     144                                     \r\nCTRIA2  257     257     144     145     154                                     \r\nCTRIA2  258     258     155     154     145                                     \r\nCTRIA2  259     259     145     146     155                                     \r\nCTRIA2  260     260     156     155     146                                     \r\nCTRIA2  261     261     146     147     156                                     \r\nCTRIA2  262     262     148     149     157                                     \r\nCTRIA2  263     263     158     157     149                                     \r\nCTRIA2  264     264     149     150     158                                     \r\nCTRIA2  265     265     159     158     150                                     \r\nCTRIA2  266     266     160     159     150                                     \r\nCTRIA2  267     267     150     151     160                                     \r\nCTRIA2  268     268     161     160     151                                     \r\nCTRIA2  269     269     151     152     162                                     \r\nCTRIA2  270     270     162     161     151                                     \r\nCTRIA2  271     271     163     162     152                                     \r\nCTRIA2  272     272     164     163     152                                     \r\nCTRIA2  273     273     152     153     164                                     \r\nCTRIA2  274     274     165     164     153                                     \r\nCTRIA2  275     275     166     165     153                                     \r\nCTRIA2  276     276     153     154     166                                     \r\nCTRIA2  277     277     167     166     154                                     \r\nCTRIA2  278     278     154     155     167                                     \r\nCTRIA2  279     279     155     156     167                                     \r\nCTRIA2  280     280     157     158     175                                     \r\nCTRIA2  281     281     206     175     158                                     \r\nCTRIA2  282     282     158     159     206                                     \r\nCTRIA2  283     283     176     206     159                                     \r\nCTRIA2  284     284     159     160     176                                     \r\nCTRIA2  285     285     176     177     160                                     \r\nCTRIA2  286     286     160     161     168                                     \r\nCTRIA2  287     287     168     177     160                                     \r\nCTRIA2  288     288     168     178     177                                     \r\nCTRIA2  289     289     169     168     161                                     \r\nCTRIA2  290     290     161     162     169                                     \r\nCTRIA2  291     291     170     169     162                                     \r\nCTRIA2  292     292     162     163     170                                     \r\nCTRIA2  293     293     171     170     163                                     \r\nCTRIA2  294     294     172     171     163                                     \r\nCTRIA2  295     295     163     164     172                                     \r\nCTRIA2  296     296     173     172     164                                     \r\nCTRIA2  297     297     164     165     173                                     \r\nCTRIA2  298     298     174     173     165                                     \r\nCTRIA2  299     299     168     169     179                                     \r\nCTRIA2  300     300     179     178     168                                     \r\nCTRIA2  301     301     169     170     180                                     \r\nCTRIA2  302     302     180     179     169                                     \r\nCTRIA2  303     303     170     171     181                                     \r\nCTRIA2  304     304     181     180     170                                     \r\nCTRIA2  305     305     171     172     182                                     \r\nCTRIA2  306     306     182     181     171                                     \r\nCTRIA2  307     307     172     173     183                                     \r\nCTRIA2  308     308     183     182     172                                     \r\nCTRIA2  309     309     173     174     184                                     \r\nCTRIA2  310     310     184     183     173                                     \r\nCTRIA2  311     311     178     179     185                                     \r\nCTRIA2  312     312     186     185     179                                     \r\nCTRIA2  313     313     179     180     186                                     \r\nCTRIA2  314     314     187     186     180                                     \r\nCTRIA2  315     315     180     181     187                                     \r\nCTRIA2  316     316     188     187     181                                     \r\nCTRIA2  317     317     181     182     188                                     \r\nCTRIA2  318     318     189     188     182                                     \r\nCTRIA2  319     319     182     183     189                                     \r\nCTRIA2  320     320     190     189     183                                     \r\nCTRIA2  321     321     183     184     190                                     \r\nCTRIA2  322     322     191     190     184                                     \r\nCTRIA2  323     323     185     186     192                                     \r\nCTRIA2  324     324     193     192     186                                     \r\nCTRIA2  325     325     186     187     193                                     \r\nCTRIA2  326     326     194     193     187                                     \r\nCTRIA2  327     327     187     188     194                                     \r\nCTRIA2  328     328     195     194     188                                     \r\nCTRIA2  329     329     188     189     195                                     \r\nCTRIA2  330     330     196     195     189                                     \r\nCTRIA2  331     331     189     190     196                                     \r\nCTRIA2  332     332     197     196     190                                     \r\nCTRIA2  333     333     190     191     197                                     \r\nCTRIA2  334     334     198     197     191                                     \r\nCTRIA2  335     335     200     199     192                                     \r\nCTRIA2  336     336     192     193     200                                     \r\nCTRIA2  337     337     201     200     193                                     \r\nCTRIA2  338     338     193     194     201                                     \r\nCTRIA2  339     339     202     201     194                                     \r\nCTRIA2  340     340     194     195     202                                     \r\nCTRIA2  341     341     195     196     202                                     \r\nCTRIA2  342     342     203     202     196                                     \r\nCTRIA2  343     343     196     197     203                                     \r\nCTRIA2  344     344     204     203     197                                     \r\nCTRIA2  345     345     197     198     204                                     \r\nCTRIA2  346     346     205     204     198                                     \r\nCYJOIN  1               199                                                     \r\nCYJOIN  2               205                                                     \r\nEIGR    1       FEER                            4                       +EIG1   \r\n+EIG1   MAX                                                                     \r\nGRDSET          77                                                              \r\nGRID           1           1.808   1.839  12.250                                \r\nGRID           3           2.376   2.347  12.250                                \r\nGRID           4           2.625   2.558  12.250                                \r\nGRID           5           2.877   2.765  12.250                                \r\nGRID           6           3.134   2.966  12.250                                \r\nGRID           7           1.556   1.589  12.033                                \r\nGRID           8           1.304   1.339  11.817                                \r\nGRID           9           1.052   1.088  11.600                                \r\nGRID          10           1.293   1.308  11.600                                \r\nGRID          12           1.791   1.730  11.600                                \r\nGRID          13           2.044   1.937  11.600                                \r\nGRID          14           2.298   2.141  11.600                                \r\nGRID          15           2.555   2.343  11.600                                \r\nGRID          16           2.814   2.542  11.600                                \r\nGRID          17           3.078   2.733  11.600                                \r\nGRID          18           0.737   0.793  11.300                                \r\nGRID          19           0.423   0.498  11.000                                \r\nGRID          20           0.725   0.761  11.000                                \r\nGRID          22           1.347   1.264  11.000                                \r\nGRID          23           1.663   1.510  11.000                                \r\nGRID          24           1.981   1.753  11.000                                \r\nGRID          25           2.302   1.993  11.000                                \r\nGRID          26           2.626   2.228  11.000                                \r\nGRID          27           2.956   2.454  11.000                                \r\nGRID          28          -0.168  -0.013  10.400                                \r\nGRID          29           0.186   0.281  10.400                                \r\nGRID          31           0.917   0.842  10.400                                \r\nGRID          32           1.288   1.115  10.400                                \r\nGRID          33           1.661   1.385  10.400                                \r\nGRID          34           2.038   1.650  10.400                                \r\nGRID          35           2.418   1.910  10.400                                \r\nGRID          36           2.806   2.158  10.400                                \r\nGRID          37          -0.702  -0.430   9.800                                \r\nGRID          38          -0.306  -0.118   9.800                                \r\nGRID          40           0.512   0.476   9.800                                \r\nGRID          41           0.926   0.764   9.800                                \r\nGRID          42           1.344   1.048   9.800                                \r\nGRID          43           1.766   1.326   9.800                                \r\nGRID          44           2.191   1.598   9.800                                \r\nGRID          45           2.625   1.856   9.800                                \r\nGRID          46          -1.193  -0.766   9.187                                \r\nGRID          47          -0.760  -0.445   9.187                                \r\nGRID          49           0.130   0.162   9.187                                \r\nGRID          50           0.582   0.456   9.187                                \r\nGRID          51           1.037   0.745   9.187                                \r\nGRID          52           1.495   1.027   9.187                                \r\nGRID          53           1.959   1.303   9.187                                \r\nGRID          54           2.430   1.563   9.187                                \r\nGRID          55          -1.612  -1.013   8.600                                \r\nGRID          56          -1.149  -0.691   8.600                                \r\nGRID          58          -0.199  -0.083   8.600                                \r\nGRID          59           0.282   0.210   8.600                                \r\nGRID          60           0.768   0.498   8.600                                \r\nGRID          61           1.257   0.778   8.600                                \r\nGRID          62           1.750   1.051   8.600                                \r\nGRID          63           2.252   1.308   8.600                                \r\nGRID          64          -1.985  -1.192   8.000                                \r\nGRID          65          -1.496  -0.874   8.000                                \r\nGRID          67          -0.494  -0.277   8.000                                \r\nGRID          68           0.013   0.010   8.000                                \r\nGRID          69           0.525   0.291   8.000                                \r\nGRID          70           1.040   0.564   8.000                                \r\nGRID          71           1.560   0.829   8.000                                \r\nGRID          72           2.086   1.078   8.000                                \r\nGRID          73          -2.301  -1.303   7.400                                \r\nGRID          74          -1.790  -0.995   7.400                                \r\nGRID          76          -0.747  -0.418   7.400                                \r\nGRID          77          -0.218  -0.141   7.400                                \r\nGRID          78           0.314   0.128   7.400                                \r\nGRID          79           0.850   0.390   7.400                                \r\nGRID          80           1.390   0.642   7.400                                \r\nGRID          81           1.664   0.760   7.400                                \r\nGRID          82           1.937   0.878   7.400                                \r\nGRID          83           1.324   0.567   7.100                                \r\nGRID          84           1.602   0.681   7.100                                \r\nGRID          85           1.880   0.795   7.100                                \r\nGRID          86          -2.556  -1.354   6.800                                \r\nGRID          87          -2.028  -1.058   6.800                                \r\nGRID          89          -0.948  -0.508   6.800                                \r\nGRID          90          -0.402  -0.245   6.800                                \r\nGRID          91           0.147   0.010   6.800                                \r\nGRID          92           0.701   0.256   6.800                                \r\nGRID          93           1.258   0.493   6.800                                \r\nGRID          94           1.541   0.603   6.800                                \r\nGRID          95           1.823   0.712   6.800                                \r\nGRID          96           1.227   0.439   6.500                                \r\nGRID          97           1.512   0.544   6.500                                \r\nGRID          98           1.798   0.649   6.500                                \r\nGRID          99          -2.716  -1.339   6.200                                \r\nGRID         100          -2.173  -1.060   6.200                                \r\nGRID         102          -1.066  -0.542   6.200                                \r\nGRID         103          -0.507  -0.296   6.200                                \r\nGRID         104           0.057  -0.059   6.200                                \r\nGRID         105           0.624   0.169   6.200                                \r\nGRID         106           1.195   0.386   6.200                                \r\nGRID         107           1.484   0.486   6.200                                \r\nGRID         108           1.772   0.586   6.200                                \r\nGRID         109           1.195   0.352   5.900                                \r\nGRID         110           1.484   0.447   5.900                                \r\nGRID         111           1.773   0.542   5.900                                \r\nGRID         112          -2.748  -1.254   5.600                                \r\nGRID         113          -2.198  -0.996   5.600                                \r\nGRID         115          -1.083  -0.519   5.600                                \r\nGRID         116          -0.519  -0.294   5.600                                \r\nGRID         117           0.049  -0.079   5.600                                \r\nGRID         118           0.620   0.125   5.600                                \r\nGRID         119           1.195   0.318   5.600                                \r\nGRID         120           1.485   0.408   5.600                                \r\nGRID         121           1.775   0.498   5.600                                \r\nGRID         122           1.216   0.301   5.300                                \r\nGRID         123           1.504   0.386   5.300                                \r\nGRID         124           1.792   0.471   5.300                                \r\nGRID         125          -2.670  -1.111   5.000                                \r\nGRID         126          -2.124  -0.880   5.000                                \r\nGRID         128          -1.017  -0.453   5.000                                \r\nGRID         129          -0.459  -0.254   5.000                                \r\nGRID         130           0.104  -0.065   5.000                                \r\nGRID         131           0.669   0.114   5.000                                \r\nGRID         132           1.238   0.283   5.000                                \r\nGRID         133           1.523   0.363   5.000                                \r\nGRID         134           1.809   0.444   5.000                                \r\nGRID         135           1.274   0.278   4.700                                \r\nGRID         136           1.556   0.355   4.700                                \r\nGRID         137           1.837   0.432   4.700                                \r\nGRID         138          -2.513  -0.927   4.400                                \r\nGRID         139          -1.976  -0.727   4.400                                \r\nGRID         141          -0.891  -0.359   4.400                                \r\nGRID         142          -0.344  -0.189   4.400                                \r\nGRID         143           0.206  -0.028   4.400                                \r\nGRID         144           0.758   0.125   4.400                                \r\nGRID         145           1.311   0.274   4.400                                \r\nGRID         146           1.588   0.347   4.400                                \r\nGRID         147           1.865   0.420   4.400                                \r\nGRID         148          -2.273  -0.686   3.715                                \r\nGRID         149          -1.742  -0.524   3.715                                \r\nGRID         151          -0.672  -0.233   3.715                                \r\nGRID         152          -0.133  -0.099   3.715                                \r\nGRID         153           0.406   0.031   3.715                                \r\nGRID         154           0.946   0.159   3.715                                \r\nGRID         155           1.485   0.291   3.715                                \r\nGRID         156           2.021   0.433   3.715                                \r\nGRID         157          -2.051  -0.483   3.180                                \r\nGRID         158          -1.675  -0.394   3.180                                \r\nGRID         159          -1.296  -0.309   3.180                                \r\nGRID         161          -0.548  -0.089   3.180                                \r\nGRID         162          -0.274  -0.044   3.180                                \r\nGRID         163           0.000   0.000   3.180                                \r\nGRID         164           0.274   0.044   3.180                                \r\nGRID         165           0.548   0.089   3.180                                \r\nGRID         166           1.037   0.214   3.358                                \r\nGRID         167           1.527   0.328   3.537                                \r\nGRID         168          -0.548  -0.089   2.930                                \r\nGRID         169          -0.365  -0.059   2.930                                \r\nGRID         170          -0.183  -0.030   2.930                                \r\nGRID         171           0.000   0.000   2.930                                \r\nGRID         172           0.183   0.030   2.930                                \r\nGRID         173           0.365   0.059   2.930                                \r\nGRID         174           0.548   0.089   2.930                                \r\nGRID         175          -1.804  -0.270   2.650                                \r\nGRID         176          -1.188  -0.182   2.650                                \r\nGRID         177          -0.750  -0.123   2.740                                \r\nGRID         178          -0.550  -0.072   2.600                                \r\nGRID         179          -0.367  -0.048   2.600                                \r\nGRID         180          -0.184  -0.024   2.600                                \r\nGRID         181           0.000   0.000   2.600                                \r\nGRID         182           0.184   0.024   2.600                                \r\nGRID         183           0.367   0.048   2.600                                \r\nGRID         184           0.550   0.072   2.600                                \r\nGRID         185          -0.550  -0.072   2.350                                \r\nGRID         186          -0.367  -0.048   2.350                                \r\nGRID         187          -0.184  -0.024   2.350                                \r\nGRID         188           0.000   0.000   2.350                                \r\nGRID         189           0.184   0.024   2.350                                \r\nGRID         190           0.367   0.048   2.350                                \r\nGRID         191           0.550   0.072   2.350                                \r\nGRID         192          -0.550  -0.072   2.070                                \r\nGRID         193          -0.367  -0.048   2.070                                \r\nGRID         194          -0.184  -0.024   2.070                                \r\nGRID         195           0.000   0.000   2.070                                \r\nGRID         196           0.184   0.024   2.070                                \r\nGRID         197           0.367   0.048   2.070                                \r\nGRID         198           0.550   0.072   2.070                                \r\nGRID         199          -0.699  -0.091   1.920                                \r\nGRID         200          -0.466  -0.061   1.920                                \r\nGRID         201          -0.233  -0.030   1.920                                \r\nGRID         202           0.000   0.000   1.920                                \r\nGRID         203           0.233   0.030   1.920                                \r\nGRID         204           0.466   0.061   1.920                                \r\nGRID         205           0.699   0.091   1.920                                \r\nGRID         206          -1.496  -0.226   2.650                                \r\nGRID           2           2.129   2.133  12.250                                \r\nGRID          11           1.541   1.520  11.600                                \r\nGRID          21           1.034   1.014  11.000                                \r\nGRID          30           0.550   0.564  10.400                                \r\nGRID          39           0.101   0.182   9.800                                \r\nGRID          48          -0.317  -0.138   9.187                                \r\nGRID          57          -0.677  -0.383   8.600                                \r\nGRID          66          -0.998  -0.572   8.000                                \r\nGRID          75          -1.271  -0.702   7.400                                \r\nGRID          88          -1.490  -0.779   6.800                                \r\nGRID         101          -1.621  -0.796   6.200                                \r\nGRID         114          -1.642  -0.753   5.600                                \r\nGRID         127          -1.572  -0.662   5.000                                \r\nGRID         140          -1.435  -0.538   4.400                                \r\nGRID         150          -1.208  -0.374   3.715                                \r\nGRID         160          -0.917  -0.229   3.180                                \r\nMAT1    1       1.6  E7         .35     .0004141                                \r\nMPC     1       5       4       1.0     4       4       -1.0                    \r\nMPC     1       6       4       1.0     4       4       -1.0                    \r\nMPC     1       7       4       1.0     1       4       -1.0                    \r\nPTRIA2  1       1       .01570                                                  \r\nPTRIA2  2       1       .02827                                                  \r\nPTRIA2  3       1       .01897                                                  \r\nPTRIA2  4       1       .03380                                                  \r\nPTRIA2  5       1       .02043                                                  \r\nPTRIA2  6       1       .03623                                                  \r\nPTRIA2  7       1       .02917                                                  \r\nPTRIA2  8       1       .04440                                                  \r\nPTRIA2  9       1       .03830                                                  \r\nPTRIA2  10      1       .04253                                                  \r\nPTRIA2  11      1       .03677                                                  \r\nPTRIA2  12      1       .03397                                                  \r\nPTRIA2  13      1       .02740                                                  \r\nPTRIA2  14      1       .01673                                                  \r\nPTRIA2  15      1       .00823                                                  \r\nPTRIA2  16      1       .01970                                                  \r\nPTRIA2  17      1       .03550                                                  \r\nPTRIA2  18      1       .02390                                                  \r\nPTRIA2  19      1       .04250                                                  \r\nPTRIA2  20      1       .03487                                                  \r\nPTRIA2  21      1       .04743                                                  \r\nPTRIA2  22      1       .05847                                                  \r\nPTRIA2  23      1       .05413                                                  \r\nPTRIA2  24      1       .06033                                                  \r\nPTRIA2  25      1       .05580                                                  \r\nPTRIA2  26      1       .05663                                                  \r\nPTRIA2  27      1       .05230                                                  \r\nPTRIA2  28      1       .04877                                                  \r\nPTRIA2  29      1       .04293                                                  \r\nPTRIA2  30      1       .03390                                                  \r\nPTRIA2  31      1       .02023                                                  \r\nPTRIA2  32      1       .00963                                                  \r\nPTRIA2  33      1       .02363                                                  \r\nPTRIA2  34      1       .04273                                                  \r\nPTRIA2  35      1       .03977                                                  \r\nPTRIA2  36      1       .06260                                                  \r\nPTRIA2  37      1       .05863                                                  \r\nPTRIA2  38      1       .07160                                                  \r\nPTRIA2  39      1       .06707                                                  \r\nPTRIA2  40      1       .07400                                                  \r\nPTRIA2  41      1       .06923                                                  \r\nPTRIA2  42      1       .06910                                                  \r\nPTRIA2  43      1       .06850                                                  \r\nPTRIA2  44      1       .06057                                                  \r\nPTRIA2  45      1       .05280                                                  \r\nPTRIA2  46      1       .04220                                                  \r\nPTRIA2  47      1       .02500                                                  \r\nPTRIA2  48      1       .01207                                                  \r\nPTRIA2  49      1       .02780                                                  \r\nPTRIA2  50      1       .04730                                                  \r\nPTRIA2  51      1       .05020                                                  \r\nPTRIA2  52      1       .07393                                                  \r\nPTRIA2  53      1       .07003                                                  \r\nPTRIA2  54      1       .07890                                                  \r\nPTRIA2  55      1       .08777                                                  \r\nPTRIA2  56      1       .08443                                                  \r\nPTRIA2  57      1       .08887                                                  \r\nPTRIA2  58      1       .08297                                                  \r\nPTRIA2  59      1       .08140                                                  \r\nPTRIA2  60      1       .07273                                                  \r\nPTRIA2  61      1       .06277                                                  \r\nPTRIA2  62      1       .05077                                                  \r\nPTRIA2  63      1       .02983                                                  \r\nPTRIA2  64      1       .01467                                                  \r\nPTRIA2  65      1       .03187                                                  \r\nPTRIA2  66      1       .04680                                                  \r\nPTRIA2  67      1       .07307                                                  \r\nPTRIA2  68      1       .07707                                                  \r\nPTRIA2  69      1       .09197                                                  \r\nPTRIA2  70      1       .09173                                                  \r\nPTRIA2  71      1       .10140                                                  \r\nPTRIA2  72      1       .09827                                                  \r\nPTRIA2  73      1       .10277                                                  \r\nPTRIA2  74      1       .09670                                                  \r\nPTRIA2  75      1       .09440                                                  \r\nPTRIA2  76      1       .08500                                                  \r\nPTRIA2  77      1       .07300                                                  \r\nPTRIA2  78      1       .05943                                                  \r\nPTRIA2  79      1       .03483                                                  \r\nPTRIA2  80      1       .01723                                                  \r\nPTRIA2  81      1       .03637                                                  \r\nPTRIA2  82      1       .05337                                                  \r\nPTRIA2  83      1       .08310                                                  \r\nPTRIA2  84      1       .08787                                                  \r\nPTRIA2  85      1       .10477                                                  \r\nPTRIA2  86      1       .10487                                                  \r\nPTRIA2  87      1       .11580                                                  \r\nPTRIA2  88      1       .11257                                                  \r\nPTRIA2  89      1       .11757                                                  \r\nPTRIA2  90      1       .11090                                                  \r\nPTRIA2  91      1       .10817                                                  \r\nPTRIA2  92      1       .09773                                                  \r\nPTRIA2  93      1       .08390                                                  \r\nPTRIA2  94      1       .06857                                                  \r\nPTRIA2  95      1       .04017                                                  \r\nPTRIA2  96      1       .02000                                                  \r\nPTRIA2  97      1       .04190                                                  \r\nPTRIA2  98      1       .06107                                                  \r\nPTRIA2  99      1       .09537                                                  \r\nPTRIA2  100     1       .10040                                                  \r\nPTRIA2  101     1       .12033                                                  \r\nPTRIA2  102     1       .11993                                                  \r\nPTRIA2  103     1       .13323                                                  \r\nPTRIA2  104     1       .12900                                                  \r\nPTRIA2  105     1       .13550                                                  \r\nPTRIA2  106     1       .12730                                                  \r\nPTRIA2  107     1       .12473                                                  \r\nPTRIA2  108     1       .11227                                                  \r\nPTRIA2  109     1       .09677                                                  \r\nPTRIA2  110     1       .07883                                                  \r\nPTRIA2  111     1       .04630                                                  \r\nPTRIA2  112     1       .02297                                                  \r\nPTRIA2  113     1       .04790                                                  \r\nPTRIA2  114     1       .07000                                                  \r\nPTRIA2  115     1       .10907                                                  \r\nPTRIA2  116     1       .11527                                                  \r\nPTRIA2  117     1       .13790                                                  \r\nPTRIA2  118     1       .13793                                                  \r\nPTRIA2  119     1       .15300                                                  \r\nPTRIA2  120     1       .14870                                                  \r\nPTRIA2  121     1       .15617                                                  \r\nPTRIA2  122     1       .14720                                                  \r\nPTRIA2  123     1       .14463                                                  \r\nPTRIA2  124     1       .13037                                                  \r\nPTRIA2  125     1       .11300                                                  \r\nPTRIA2  126     1       .09187                                                  \r\nPTRIA2  127     1       .06993                                                  \r\nPTRIA2  128     1       .04230                                                  \r\nPTRIA2  129     1       .01937                                                  \r\nPTRIA2  130     1       .05410                                                  \r\nPTRIA2  131     1       .07907                                                  \r\nPTRIA2  132     1       .12273                                                  \r\nPTRIA2  133     1       .13063                                                  \r\nPTRIA2  134     1       .15583                                                  \r\nPTRIA2  135     1       .15690                                                  \r\nPTRIA2  136     1       .17377                                                  \r\nPTRIA2  137     1       .16983                                                  \r\nPTRIA2  138     1       .17853                                                  \r\nPTRIA2  139     1       .16917                                                  \r\nPTRIA2  140     1       .16647                                                  \r\nPTRIA2  141     1       .15090                                                  \r\nPTRIA2  142     1       .10750                                                  \r\nPTRIA2  143     1       .13113                                                  \r\nPTRIA2  144     1       .12383                                                  \r\nPTRIA2  145     1       .06393                                                  \r\nPTRIA2  146     1       .08037                                                  \r\nPTRIA2  147     1       .07120                                                  \r\nPTRIA2  148     1       .09103                                                  \r\nPTRIA2  149     1       .01970                                                  \r\nPTRIA2  150     1       .03663                                                  \r\nPTRIA2  151     1       .02113                                                  \r\nPTRIA2  152     1       .03927                                                  \r\nPTRIA2  153     1       .06227                                                  \r\nPTRIA2  154     1       .09003                                                  \r\nPTRIA2  155     1       .14073                                                  \r\nPTRIA2  156     1       .14847                                                  \r\nPTRIA2  157     1       .17940                                                  \r\nPTRIA2  158     1       .17887                                                  \r\nPTRIA2  159     1       .20047                                                  \r\nPTRIA2  160     1       .19430                                                  \r\nPTRIA2  161     1       .20483                                                  \r\nPTRIA2  162     1       .19300                                                  \r\nPTRIA2  163     1       .18800                                                  \r\nPTRIA2  164     1       .17083                                                  \r\nPTRIA2  165     1       .12680                                                  \r\nPTRIA2  166     1       .14623                                                  \r\nPTRIA2  167     1       .12853                                                  \r\nPTRIA2  168     1       .07737                                                  \r\nPTRIA2  169     1       .09420                                                  \r\nPTRIA2  170     1       .07600                                                  \r\nPTRIA2  171     1       .09090                                                  \r\nPTRIA2  172     1       .02237                                                  \r\nPTRIA2  173     1       .04063                                                  \r\nPTRIA2  174     1       .02237                                                  \r\nPTRIA2  175     1       .04090                                                  \r\nPTRIA2  176     1       .07267                                                  \r\nPTRIA2  177     1       .10533                                                  \r\nPTRIA2  178     1       .16657                                                  \r\nPTRIA2  179     1       .17420                                                  \r\nPTRIA2  180     1       .21267                                                  \r\nPTRIA2  181     1       .21013                                                  \r\nPTRIA2  182     1       .23567                                                  \r\nPTRIA2  183     1       .22653                                                  \r\nPTRIA2  184     1       .23553                                                  \r\nPTRIA2  185     1       .22000                                                  \r\nPTRIA2  186     1       .20763                                                  \r\nPTRIA2  187     1       .18747                                                  \r\nPTRIA2  188     1       .12633                                                  \r\nPTRIA2  189     1       .15213                                                  \r\nPTRIA2  190     1       .12827                                                  \r\nPTRIA2  191     1       .07373                                                  \r\nPTRIA2  192     1       .08800                                                  \r\nPTRIA2  193     1       .07187                                                  \r\nPTRIA2  194     1       .08633                                                  \r\nPTRIA2  195     1       .02223                                                  \r\nPTRIA2  196     1       .04017                                                  \r\nPTRIA2  197     1       .02113                                                  \r\nPTRIA2  198     1       .03857                                                  \r\nPTRIA2  199     1       .07367                                                  \r\nPTRIA2  200     1       .12303                                                  \r\nPTRIA2  201     1       .18327                                                  \r\nPTRIA2  202     1       .21377                                                  \r\nPTRIA2  203     1       .23553                                                  \r\nPTRIA2  204     1       .25797                                                  \r\nPTRIA2  205     1       .26063                                                  \r\nPTRIA2  206     1       .27393                                                  \r\nPTRIA2  207     1       .25797                                                  \r\nPTRIA2  208     1       .25653                                                  \r\nPTRIA2  209     1       .22173                                                  \r\nPTRIA2  210     1       .20550                                                  \r\nPTRIA2  211     1       .12690                                                  \r\nPTRIA2  212     1       .15470                                                  \r\nPTRIA2  213     1       .12620                                                  \r\nPTRIA2  214     1       .08497                                                  \r\nPTRIA2  215     1       .06900                                                  \r\nPTRIA2  216     1       .08243                                                  \r\nPTRIA2  217     1       .06653                                                  \r\nPTRIA2  218     1       .03707                                                  \r\nPTRIA2  219     1       .01923                                                  \r\nPTRIA2  220     1       .03527                                                  \r\nPTRIA2  221     1       .01803                                                  \r\nPTRIA2  222     1       .08143                                                  \r\nPTRIA2  223     1       .13560                                                  \r\nPTRIA2  224     1       .20770                                                  \r\nPTRIA2  225     1       .23597                                                  \r\nPTRIA2  226     1       .26447                                                  \r\nPTRIA2  227     1       .28117                                                  \r\nPTRIA2  228     1       .28797                                                  \r\nPTRIA2  229     1       .29323                                                  \r\nPTRIA2  230     1       .27777                                                  \r\nPTRIA2  231     1       .26773                                                  \r\nPTRIA2  232     1       .23027                                                  \r\nPTRIA2  233     1       .20870                                                  \r\nPTRIA2  234     1       .12567                                                  \r\nPTRIA2  235     1       .15577                                                  \r\nPTRIA2  236     1       .12690                                                  \r\nPTRIA2  237     1       .08110                                                  \r\nPTRIA2  238     1       .06640                                                  \r\nPTRIA2  239     1       .08210                                                  \r\nPTRIA2  240     1       .06740                                                  \r\nPTRIA2  241     1       .03460                                                  \r\nPTRIA2  242     1       .01817                                                  \r\nPTRIA2  243     1       .03527                                                  \r\nPTRIA2  244     1       .01850                                                  \r\nPTRIA2  245     1       .08470                                                  \r\nPTRIA2  246     1       .14377                                                  \r\nPTRIA2  247     1       .22293                                                  \r\nPTRIA2  248     1       .25577                                                  \r\nPTRIA2  249     1       .28550                                                  \r\nPTRIA2  250     1       .31427                                                  \r\nPTRIA2  251     1       .31520                                                  \r\nPTRIA2  252     1       .34400                                                  \r\nPTRIA2  253     1       .31200                                                  \r\nPTRIA2  254     1       .33630                                                  \r\nPTRIA2  255     1       .27047                                                  \r\nPTRIA2  256     1       .28763                                                  \r\nPTRIA2  257     1       .19700                                                  \r\nPTRIA2  258     1       .17977                                                  \r\nPTRIA2  259     1       .09497                                                  \r\nPTRIA2  260     1       .06357                                                  \r\nPTRIA2  261     1       .01923                                                  \r\nPTRIA2  262     1       .09560                                                  \r\nPTRIA2  263     1       .17233                                                  \r\nPTRIA2  264     1       .25333                                                  \r\nPTRIA2  265     1       .31430                                                  \r\nPTRIA2  266     1       .39720                                                  \r\nPTRIA2  267     1       .38410                                                  \r\nPTRIA2  268     1       .48943                                                  \r\nPTRIA2  269     1       .46790                                                  \r\nPTRIA2  270     1       .54337                                                  \r\nPTRIA2  271     1       .58850                                                  \r\nPTRIA2  272     1       .61167                                                  \r\nPTRIA2  273     1       .49710                                                  \r\nPTRIA2  274     1       .61533                                                  \r\nPTRIA2  275     1       .51933                                                  \r\nPTRIA2  276     1       .37560                                                  \r\nPTRIA2  277     1       .31070                                                  \r\nPTRIA2  278     1       .20550                                                  \r\nPTRIA2  279     1       .10433                                                  \r\nPTRIA2  280     1       .16253                                                  \r\nPTRIA2  281     1       .29247                                                  \r\nPTRIA2  282     1       .36323                                                  \r\nPTRIA2  283     1       .50120                                                  \r\nPTRIA2  284     1       .52317                                                  \r\nPTRIA2  285     1       .67620                                                  \r\nPTRIA2  286     1       .64723                                                  \r\nPTRIA2  287     1       .72723                                                  \r\nPTRIA2  288     1       .65833                                                  \r\nPTRIA2  289     1       .76263                                                  \r\nPTRIA2  290     1       .71047                                                  \r\nPTRIA2  291     1       .80953                                                  \r\nPTRIA2  292     1       .76303                                                  \r\nPTRIA2  293     1       .85827                                                  \r\nPTRIA2  294     1       .90487                                                  \r\nPTRIA2  295     1       .83280                                                  \r\nPTRIA2  296     1       .86773                                                  \r\nPTRIA2  297     1       .76483                                                  \r\nPTRIA2  298     1       .60217                                                  \r\nPTRIA2  299     1       .83203                                                  \r\nPTRIA2  300     1       .64773                                                  \r\nPTRIA2  301     1       .93570                                                  \r\nPTRIA2  302     1       .90603                                                  \r\nPTRIA2  303     1       .99047                                                  \r\nPTRIA2  304     1       1.02140                                                 \r\nPTRIA2  305     1       1.01607                                                 \r\nPTRIA2  306     1       1.03707                                                 \r\nPTRIA2  307     1       .89447                                                  \r\nPTRIA2  308     1       .97073                                                  \r\nPTRIA2  309     1       .43940                                                  \r\nPTRIA2  310     1       .62880                                                  \r\nPTRIA2  311     1       .45607                                                  \r\nPTRIA2  312     1       .62880                                                  \r\nPTRIA2  313     1       .89447                                                  \r\nPTRIA2  314     1       .97073                                                  \r\nPTRIA2  315     1       1.06800                                                 \r\nPTRIA2  316     1       1.08900                                                 \r\nPTRIA2  317     1       1.08900                                                 \r\nPTRIA2  318     1       1.06800                                                 \r\nPTRIA2  319     1       .97073                                                  \r\nPTRIA2  320     1       .89447                                                  \r\nPTRIA2  321     1       .62880                                                  \r\nPTRIA2  322     1       .43940                                                  \r\nPTRIA2  323     1       .43940                                                  \r\nPTRIA2  324     1       .62880                                                  \r\nPTRIA2  325     1       .89447                                                  \r\nPTRIA2  326     1       .97073                                                  \r\nPTRIA2  327     1       1.06800                                                 \r\nPTRIA2  328     1       1.08900                                                 \r\nPTRIA2  329     1       1.08900                                                 \r\nPTRIA2  330     1       1.06800                                                 \r\nPTRIA2  331     1       .97073                                                  \r\nPTRIA2  332     1       .89447                                                  \r\nPTRIA2  333     1       .62880                                                  \r\nPTRIA2  334     1       .43940                                                  \r\nPTRIA2  335     1       .55867                                                  \r\nPTRIA2  336     1       .70640                                                  \r\nPTRIA2  337     1       1.06620                                                 \r\nPTRIA2  338     1       1.06487                                                 \r\nPTRIA2  339     1       1.13913                                                 \r\nPTRIA2  340     1       1.06600                                                 \r\nPTRIA2  341     1       1.06600                                                 \r\nPTRIA2  342     1       1.13913                                                 \r\nPTRIA2  343     1       1.06487                                                 \r\nPTRIA2  344     1       1.06620                                                 \r\nPTRIA2  345     1       .70640                                                  \r\nPTRIA2  346     1       .55867                                                  \r\nSEQGP   1       9       2       8       3       7       4       4               \r\nSEQGP   5       2       6       1       7       10      8       11              \r\nSEQGP   9       20      10      19      11      18      12      17              \r\nSEQGP   13      16      14      15      15      12      16      5               \r\nSEQGP   17      3       18      21      19      30      20      29              \r\nSEQGP   21      28      22      27      23      26      24      25              \r\nSEQGP   25      22      26      13      27      6       28      39              \r\nSEQGP   29      38      30      37      31      36      32      35              \r\nSEQGP   33      34      34      31      35      23      36      14              \r\nSEQGP   37      47      38      48      39      46      40      45              \r\nSEQGP   41      44      42      43      43      40      44      32              \r\nSEQGP   45      24      46      56      47      57      48      55              \r\nSEQGP   49      54      50      53      51      52      52      49              \r\nSEQGP   53      41      54      33      55      66      56      67              \r\nSEQGP   57      65      58      64      59      63      60      62              \r\nSEQGP   61      58      62      50      63      42      64      76              \r\nSEQGP   65      77      66      75      67      74      68      73              \r\nSEQGP   69      72      70      68      71      59      72      51              \r\nSEQGP   73      86      74      87      75      85      76      84              \r\nSEQGP   77      83      78      82      79      78      80      69              \r\nSEQGP   81      61      82      60      83      79      84      71              \r\nSEQGP   85      70      86      88      87      99      88      98              \r\nSEQGP   89      97      90      96      91      95      92      91              \r\nSEQGP   93      92      94      81      95      80      96      103             \r\nSEQGP   97      94      98      93      99      89      100     100             \r\nSEQGP   101     110     102     109     103     108     104     107             \r\nSEQGP   105     104     106     114     107     106     108     105             \r\nSEQGP   109     115     110     118     111     117     112     90              \r\nSEQGP   113     101     114     111     115     121     116     120             \r\nSEQGP   117     119     118     116     119     127     120     128             \r\nSEQGP   121     132     122     130     123     139     124     145             \r\nSEQGP   125     102     126     112     127     122     128     134             \r\nSEQGP   129     133     130     129     131     131     132     142             \r\nSEQGP   133     150     134     157     135     144     136     156             \r\nSEQGP   137     169     138     113     139     123     140     135             \r\nSEQGP   141     146     142     140     143     141     144     143             \r\nSEQGP   145     154     146     167     147     179     148     124             \r\nSEQGP   149     136     150     147     151     151     152     152             \r\nSEQGP   153     153     154     155     155     166     156     178             \r\nSEQGP   157     125     158     137     159     148     160     158             \r\nSEQGP   161     160     162     161     163     162     164     163             \r\nSEQGP   165     165     166     164     167     168     168     170             \r\nSEQGP   169     172     170     173     171     174     172     175             \r\nSEQGP   173     176     174     177     175     126     176     149             \r\nSEQGP   177     159     178     171     179     180     180     182             \r\nSEQGP   181     183     182     184     183     185     184     186             \r\nSEQGP   185     181     186     187     187     190     188     191             \r\nSEQGP   189     192     190     193     191     194     192     188             \r\nSEQGP   193     195     194     197     195     198     196     199             \r\nSEQGP   197     200     198     201     199     189     200     196             \r\nSEQGP   201     202     202     203     203     204     204     205             \r\nSEQGP   205     206     206     138                                             \r\nSPC1    1       5       17      27      36      14      10      45              \r\nSPC1    1       5       23      54      37      112     146     185             \r\nSPC1    1       5       186     192     187     188     189     190             \r\nSPC1    1       5       191     193     194     195     196     197             \r\nSPC1    1       5       198                                                     \r\nSPC1    1       123456  199     THRU    205                                     \r\nPARAM   LMODES  5                                                               \r\nPARAM   KGGIN   -1                                                              \r\nAERO*   0                0.91639E+04     0.28149E+01     0.91790E-07    *AERO   \r\n*AERO                                                                           \r\nPARAM   CYCIO         -1                                                        \r\nPARAM   IREF          60                                                        \r\nPARAM   MAXMACH    0.950                                                        \r\nPARAM   MINMACH    1.010                                                        \r\nPARAM   NSEGS          8                                                        \r\nPARAM   RPS       133.33                                                        \r\nPARAM*  Q                  0.3854121E+01                                *PARAMQ \r\n*PARAMQ                                                                         \r\nPARAM*  BOV                0.1535890E-03                                *PARAMB \r\n*PARAMB                                                                         \r\nSTREAML1      10     175     177     163     166     156                        \r\nSTREAML2      10       5    7.79   4.032   0.322   2.085   0.786.9179- 7+2    10\r\n+2    10 10316.6  -14.88                                                        \r\nSTREAML1      20     138     140     129     131     121                        \r\nSTREAML2      20       5   17.14   4.675   0.108   3.508   0.827.9179- 7+2    20\r\n+2    20 10859.5  -12.13                                                        \r\nSTREAML1      30      99     101     103     105     111                        \r\nSTREAML2      30       5   18.27   4.876  -0.178   4.955   0.877.9179- 7+2    30\r\n+2    30 11513.1    6.97                                                        \r\nSTREAML1      40      64      75      77      92     108                        \r\nSTREAML2      40       5   18.50   4.529  -0.312   6.339   0.826.9179- 7+2    40\r\n+2    40 10848.5   26.04                                                        \r\nSTREAML1      50      37      49      60      70      82                        \r\nSTREAML2      50       5   21.10   3.799  -0.408   7.703   0.742.9179- 7+2    50\r\n+2    50  9745.6   40.02                                                        \r\nSTREAML1      60      18      21      33      44      54                        \r\nSTREAML2      60       5   24.78   2.815  -0.570   8.894   0.698.9179- 7+2    60\r\n+2    60  9163.9   47.18                                                        \r\nSTREAML1      70       1      13      14      15      27                        \r\nSTREAML2      70       5   31.02   1.805  -0.570   9.716   0.834.9179- 7+2    70\r\n+2    70 10952.6   40.07                                                        \r\nFREQ    1          133.3                                                        \r\nMKAERO2  -45.000   0.129                                                        \r\nPARAM   KMAX           0                                                        \r\nPARAM   KMIN           0                                                        \r\nRLOAD1  1000    11              12      13                                      \r\nTABLED1*13                                                              *TB13A  \r\n*TB13A                                                                  *TB13B  \r\n*TB13B  0.0             0.0                  133.19667  0.0             *TB13C  \r\n*TB13C       133.19667  1.0                  133.46333  1.0             *TB13D  \r\n*TB13D       133.46333  0.0             1.0E10          0.0             *TB13E  \r\n*TB13E  ENDT                                                                    \r\nDAREA*  11                           175               1  0.16697867E+00        \r\nDPHASE* 12                           175               1           38.30        \r\nDAREA*  11                           175               2  0.11229591E+01        \r\nDPHASE* 12                           175               2         -141.70        \r\nDAREA*  11                           175               3  0.11429680E+00        \r\nDPHASE* 12                           175               3         -141.70        \r\nDAREA*  11                           177               1  0.15455769E+00        \r\nDPHASE* 12                           177               1           47.47        \r\nDAREA*  11                           177               2  0.10394259E+01        \r\nDPHASE* 12                           177               2         -132.53        \r\nDAREA*  11                           177               3  0.10579464E+00        \r\nDPHASE* 12                           177               3         -132.53        \r\nDAREA*  11                           163               1  0.91613639E-01        \r\nDPHASE* 12                           163               1           62.64        \r\nDAREA*  11                           163               2  0.61611682E+00        \r\nDPHASE* 12                           163               2         -117.36        \r\nDAREA*  11                           163               3  0.62709480E-01        \r\nDPHASE* 12                           163               3         -117.36        \r\nDAREA*  11                           166               1  0.68733418E-01        \r\nDPHASE* 12                           166               1           73.66        \r\nDAREA*  11                           166               2  0.46224357E+00        \r\nDPHASE* 12                           166               2         -106.34        \r\nDAREA*  11                           166               3  0.47047983E-01        \r\nDPHASE* 12                           166               3         -106.34        \r\nDAREA*  11                           156               1  0.21958183E-01        \r\nDPHASE* 12                           156               1           84.65        \r\nDAREA*  11                           156               2  0.14767240E+00        \r\nDPHASE* 12                           156               2          -95.35        \r\nDAREA*  11                           156               3  0.15030363E-01        \r\nDPHASE* 12                           156               3          -95.35        \r\nDAREA*  11                           138               1  0.57418266E+00        \r\nDPHASE* 12                           138               1           16.20        \r\nDAREA*  11                           138               2  0.19500249E+01        \r\nDPHASE* 12                           138               2         -163.80        \r\nDAREA*  11                           138               3  0.20845945E+00        \r\nDPHASE* 12                           138               3         -163.80        \r\nDAREA*  11                           140               1  0.60323770E+00        \r\nDPHASE* 12                           140               1           29.39        \r\nDAREA*  11                           140               2  0.20487010E+01        \r\nDPHASE* 12                           140               2         -150.61        \r\nDAREA*  11                           140               3  0.21900801E+00        \r\nDPHASE* 12                           140               3         -150.61        \r\nDAREA*  11                           129               1  0.33933484E+00        \r\nDPHASE* 12                           129               1           55.33        \r\nDAREA*  11                           129               2  0.11524406E+01        \r\nDPHASE* 12                           129               2         -124.67        \r\nDAREA*  11                           129               3  0.12319696E+00        \r\nDPHASE* 12                           129               3         -124.67        \r\nDAREA*  11                           131               1  0.21757333E+00        \r\nDPHASE* 12                           131               1           75.16        \r\nDAREA*  11                           131               2  0.73891717E+00        \r\nDPHASE* 12                           131               2         -104.84        \r\nDAREA*  11                           131               3  0.78990923E-01        \r\nDPHASE* 12                           131               3         -104.84        \r\nDAREA*  11                           121               1  0.68323975E-01        \r\nDPHASE* 12                           121               1           88.12        \r\nDAREA*  11                           121               2  0.23204020E+00        \r\nDPHASE* 12                           121               2          -91.88        \r\nDAREA*  11                           121               3  0.24805310E-01        \r\nDPHASE* 12                           121               3          -91.88        \r\nDAREA*  11                            99               1  0.52604476E+00        \r\nDPHASE* 12                            99               1           -7.05        \r\nDAREA*  11                            99               2  0.15372548E+01        \r\nDPHASE* 12                            99               2          172.95        \r\nDAREA*  11                            99               3  0.14154789E+00        \r\nDPHASE* 12                            99               3          172.95        \r\nDAREA*  11                           101               1  0.60993456E+00        \r\nDPHASE* 12                           101               1            8.77        \r\nDAREA*  11                           101               2  0.17824051E+01        \r\nDPHASE* 12                           101               2         -171.23        \r\nDAREA*  11                           101               3  0.16412092E+00        \r\nDPHASE* 12                           101               3         -171.23        \r\nDAREA*  11                           103               1  0.34096106E+00        \r\nDPHASE* 12                           103               1           37.70        \r\nDAREA*  11                           103               2  0.99638677E+00        \r\nDPHASE* 12                           103               2         -142.30        \r\nDAREA*  11                           103               3  0.91745648E-01        \r\nDPHASE* 12                           103               3         -142.30        \r\nDAREA*  11                           105               1  0.16581230E+00        \r\nDPHASE* 12                           105               1           61.75        \r\nDAREA*  11                           105               2  0.48455145E+00        \r\nDPHASE* 12                           105               2         -118.25        \r\nDAREA*  11                           105               3  0.44616697E-01        \r\nDPHASE* 12                           105               3         -118.25        \r\nDAREA*  11                           111               1  0.35667474E-01        \r\nDPHASE* 12                           111               1           77.85        \r\nDAREA*  11                           111               2  0.10423067E+00        \r\nDPHASE* 12                           111               2         -102.15        \r\nDAREA*  11                           111               3  0.95973878E-02        \r\nDPHASE* 12                           111               3         -102.15        \r\nDAREA*  11                            64               1  0.60110915E+00        \r\nDPHASE* 12                            64               1            8.85        \r\nDAREA*  11                            64               2  0.14405499E+01        \r\nDPHASE* 12                            64               2         -171.15        \r\nDAREA*  11                            64               3  0.54113474E-01        \r\nDPHASE* 12                            64               3            8.85        \r\nDAREA*  11                            75               1  0.66993644E+00        \r\nDPHASE* 12                            75               1           17.25        \r\nDAREA*  11                            75               2  0.16054936E+01        \r\nDPHASE* 12                            75               2         -162.75        \r\nDAREA*  11                            75               3  0.60309493E-01        \r\nDPHASE* 12                            75               3           17.25        \r\nDAREA*  11                            77               1  0.37152123E+00        \r\nDPHASE* 12                            77               1           35.10        \r\nDAREA*  11                            77               2  0.89034558E+00        \r\nDPHASE* 12                            77               2         -144.90        \r\nDAREA*  11                            77               3  0.33445348E-01        \r\nDPHASE* 12                            77               3           35.10        \r\nDAREA*  11                            92               1  0.20735313E+00        \r\nDPHASE* 12                            92               1           53.41        \r\nDAREA*  11                            92               2  0.49691896E+00        \r\nDPHASE* 12                            92               2         -126.59        \r\nDAREA*  11                            92               3  0.18666491E-01        \r\nDPHASE* 12                            92               3           53.41        \r\nDAREA*  11                           108               1  0.55394205E-01        \r\nDPHASE* 12                           108               1           68.02        \r\nDAREA*  11                           108               2  0.13275146E+00        \r\nDPHASE* 12                           108               2         -111.98        \r\nDAREA*  11                           108               3  0.49867364E-02        \r\nDPHASE* 12                           108               3           68.02        \r\nDAREA*  11                            37               1  0.79817915E+00        \r\nDPHASE* 12                            37               1           25.97        \r\nDAREA*  11                            37               2  0.14759277E+01        \r\nDPHASE* 12                            37               2         -154.03        \r\nDAREA*  11                            37               3  0.20008119E+00        \r\nDPHASE* 12                            37               3           25.97        \r\nDAREA*  11                            49               1  0.71490322E+00        \r\nDPHASE* 12                            49               1           31.01        \r\nDAREA*  11                            49               2  0.13219407E+01        \r\nDPHASE* 12                            49               2         -148.99        \r\nDAREA*  11                            49               3  0.17920624E+00        \r\nDPHASE* 12                            49               3           31.01        \r\nDAREA*  11                            60               1  0.27469639E+00        \r\nDPHASE* 12                            60               1           40.23        \r\nDAREA*  11                            60               2  0.50794615E+00        \r\nDPHASE* 12                            60               2         -139.77        \r\nDAREA*  11                            60               3  0.68858701E-01        \r\nDPHASE* 12                            60               3           40.23        \r\nDAREA*  11                            70               1  0.17440697E+00        \r\nDPHASE* 12                            70               1           49.76        \r\nDAREA*  11                            70               2  0.32249913E+00        \r\nDPHASE* 12                            70               2         -130.24        \r\nDAREA*  11                            70               3  0.43718948E-01        \r\nDPHASE* 12                            70               3           49.76        \r\nDAREA*  11                            82               1  0.67720352E-01        \r\nDPHASE* 12                            82               1           59.47        \r\nDAREA*  11                            82               2  0.12522295E+00        \r\nDPHASE* 12                            82               2         -120.53        \r\nDAREA*  11                            82               3  0.16975598E-01        \r\nDPHASE* 12                            82               3           59.47        \r\nDAREA*  11                            18               1  0.40443266E+00        \r\nDPHASE* 12                            18               1           34.14        \r\nDAREA*  11                            18               2  0.63937426E+00        \r\nDPHASE* 12                            18               2         -145.86        \r\nDAREA*  11                            18               3  0.13156524E+00        \r\nDPHASE* 12                            18               3           34.14        \r\nDAREA*  11                            21               1  0.61634525E+00        \r\nDPHASE* 12                            21               1           36.35        \r\nDAREA*  11                            21               2  0.97439037E+00        \r\nDPHASE* 12                            21               2         -143.65        \r\nDAREA*  11                            21               3  0.20050213E+00        \r\nDPHASE* 12                            21               3           36.35        \r\nDAREA*  11                            33               1  0.38572686E+00        \r\nDPHASE* 12                            33               1           41.14        \r\nDAREA*  11                            33               2  0.60980195E+00        \r\nDPHASE* 12                            33               2         -138.86        \r\nDAREA*  11                            33               3  0.12548009E+00        \r\nDPHASE* 12                            33               3           41.14        \r\nDAREA*  11                            44               1  0.16265719E+00        \r\nDPHASE* 12                            44               1           47.73        \r\nDAREA*  11                            44               2  0.25714743E+00        \r\nDPHASE* 12                            44               2         -132.27        \r\nDAREA*  11                            44               3  0.52913708E-01        \r\nDPHASE* 12                            44               3           47.73        \r\nDAREA*  11                            54               1  0.36674013E-01        \r\nDPHASE* 12                            54               1           56.96        \r\nDAREA*  11                            54               2  0.57978552E-01        \r\nDPHASE* 12                            54               2         -123.04        \r\nDAREA*  11                            54               3  0.11930355E-01        \r\nDPHASE* 12                            54               3           56.96        \r\nDAREA*  11                             1               1  0.30489490E+00        \r\nDPHASE* 12                             1               1           30.96        \r\nDAREA*  11                             1               2  0.43567597E+00        \r\nDPHASE* 12                             1               2         -149.04        \r\nDAREA*  11                             1               3  0.99471353E-01        \r\nDPHASE* 12                             1               3           30.96        \r\nDAREA*  11                            13               1  0.23555727E+00        \r\nDPHASE* 12                            13               1           33.94        \r\nDAREA*  11                            13               2  0.33659678E+00        \r\nDPHASE* 12                            13               2         -146.06        \r\nDAREA*  11                            13               3  0.76850090E-01        \r\nDPHASE* 12                            13               3           33.94        \r\nDAREA*  11                            14               1  0.78612371E-01        \r\nDPHASE* 12                            14               1           38.54        \r\nDAREA*  11                            14               2  0.11233222E+00        \r\nDPHASE* 12                            14               2         -141.46        \r\nDAREA*  11                            14               3  0.25647129E-01        \r\nDPHASE* 12                            14               3           38.54        \r\nDAREA*  11                            15               1  0.10624694E+00        \r\nDPHASE* 12                            15               1           43.11        \r\nDAREA*  11                            15               2  0.15182032E+00        \r\nDPHASE* 12                            15               2         -136.89        \r\nDAREA*  11                            15               3  0.34662853E-01        \r\nDPHASE* 12                            15               3           43.11        \r\nDAREA*  11                            27               1  0.48804804E-01        \r\nDPHASE* 12                            27               1           49.89        \r\nDAREA*  11                            27               2  0.69739050E-01        \r\nDPHASE* 12                            27               2         -130.11        \r\nDAREA*  11                            27               3  0.15922470E-01        \r\nDPHASE* 12                            27               3           49.89        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t09051a.inp",
    "content": "ID    T09051A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   9                                                                         \r\nDIAG  14                                                                        \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = MODAL FLUTTER ANALYSIS OF A ROTOR BLADE                              \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T09-05-1A                                   \r\nSPC     = 500                                                                   \r\nMPC     = 600                                                                   \r\nFMETHOD = 30                                                                    \r\nMETHOD  = 10                                                                    \r\nCMETHOD = 20                                                                    \r\nDISP = ALL                                                                      \r\nOUTPUT(XYOUT)                                                                   \r\nXTITLE  = VELOCITY-V                                                            \r\nYTTITLE = DAMPING-G                                                             \r\nYBTITLE = FREQUENCY-F                                                           \r\nXYPAPERPLOT VG /1(G,F),4(G,F),7(G,F)/2(G,F),5(G,F),8(G,F)/                      \r\n                3(G,F),6(G,F),9(G,F)                                            \r\nBEGIN BULK                                                                      \r\nAERO    0       1.3+4   1.86958 1.507-6                                         \r\nCHEXA1  201     1       101     103     104     108     113     115     +CH1    \r\n+CH1    116     120                                                             \r\nCHEXA1  202     1       108     104     105     107     120     116     +CH2    \r\n+CH2    117     119                                                             \r\nCHEXA1  203     1       121     123     124     128     101     103     +CH3    \r\n+CH3    104     108                                                             \r\nCHEXA1  204     1       128     124     125     127     108     104     +CH4    \r\n+CH4    105     107                                                             \r\nCORD2C  1               0.      0.      0.      1.0     0.      0.      +CD1    \r\n+CD1    0.      0.      1.                                                      \r\nCTRIA2         1    2000       1       5       4                                \r\nCTRIA2         2    2000       1       2       5                                \r\nCTRIA2         3    2005       2       6       5                                \r\nCTRIA2         4    2005       2       3       6                                \r\nCTRIA2         5    2010       4       8       7                                \r\nCTRIA2         6    2010       4       5       8                                \r\nCTRIA2         7    2015       5       9       8                                \r\nCTRIA2         8    2015       5       6       9                                \r\nCTRIA2         9    2020       7      11      10                                \r\nCTRIA2        10    2020       7       8      11                                \r\nCTRIA2        11    2025       8      12      11                                \r\nCTRIA2        12    2025       8       9      12                                \r\nCYJOIN  1               121     101     113     123     103     115             \r\nCYJOIN  2               127     107     119     125     105     117             \r\nEIGC    20      HESS    MAX                                             +EIGC20 \r\n+EIGC20                                                 4                       \r\nEIGR    10      INV     200.0   2000.0  8       5                       +EIGR10 \r\n+EIGR10 MAX                                                                     \r\nFLFACT  1       .059164 .118328 .177492                                         \r\nFLFACT  2       180.0                                                           \r\nFLFACT  3       0.3     0.7     1.0                                             \r\nFLUTTER 30      K       1       2       3       L       4                       \r\nGRID           1         -0.8979 -0.2814  3.7712                                \r\nGRID           2          0.0001  0.0516  4.0003                                \r\nGRID           3          0.8981 -0.2461  4.1795                                \r\nGRID           4         -0.7726 -0.4744  5.4413                                \r\nGRID           5         -0.0031  0.0228  5.5033                                \r\nGRID           6          0.7797  0.2247  5.4889                                \r\nGRID           7         -0.6646 -0.7082  7.3062                                \r\nGRID           8         -0.0157  0.0164  7.4058                                \r\nGRID           9          0.6303  0.5962  7.3237                                \r\nGRID          10         -0.5237 -1.1552  9.8520                                \r\nGRID          11         -0.0320 -0.0656 10.0079                                \r\nGRID          12          0.4130  0.7329  9.9093                                \r\nGRID    101     1       2.375   4.186   -0.987  1                               \r\nGRID    103     1       2.375   4.186   0.987   1                               \r\nGRID    104     1       2.375   0.0     0.987   1                               \r\nGRID    105     1       2.375   -4.186  0.987   1                               \r\nGRID    107     1       2.375   -4.186  -0.987  1                               \r\nGRID    108     1       2.375   0.0     -0.987  1                               \r\nGRID    113     1       3.982   4.186   -0.987  1                               \r\nGRID    115     1       4.539   4.186   0.987   1                               \r\nGRID    116     1       4.539   0.0     0.987                                   \r\nGRID    117     1       4.539   -4.186  0.987   1                               \r\nGRID    119     1       3.982   -4.186  -0.987  1                               \r\nGRID    120     1       3.982   0.0     -0.987                                  \r\nGRID    121     1       0.905   4.186   -0.987  1                               \r\nGRID    123     1       0.905   4.186   0.987   1                               \r\nGRID    124     1       0.905   0.0     0.987   1                               \r\nGRID    125     1       0.905   -4.186  0.987   1                               \r\nGRID    127     1       0.905   -4.186  -0.987  1                               \r\nGRID    128     1       0.905   0.0     -0.987  1                               \r\nMAT1    1       31.0E6          0.3     7.300E-4                                \r\nMKAERO1 180.0                                                           +MKA1   \r\n+MKA1   0.3     0.7     1.0                                                     \r\nMPC     600     1       1       1.0     2       1       -1.0                    \r\nMPC     600     1       2       1.0     2       2       -1.0                    \r\nMPC     600     1       3       1.0     2       3       -1.0                    \r\nMPC     600     1       4       1.0     2       4       -1.0                    \r\nMPC     600     1       5       1.0     2       5       -1.0                    \r\nMPC     600     1       6       1.0     2       6       -1.0                    \r\nMPC     600     3       1       1.0     2       1       -1.0                    \r\nMPC     600     3       2       1.0     2       2       -1.0                    \r\nMPC     600     3       3       1.0     2       3       -1.0                    \r\nMPC     600     3       4       1.0     2       4       -1.0                    \r\nMPC     600     3       5       1.0     2       5       -1.0                    \r\nMPC     600     3       6       1.0     2       6       -1.0                    \r\nMPC     600     116     1       1.0     2       1       -1.0                    \r\nMPC     600     116     2       1.0     2       2       -1.0                    \r\nMPC     600     116     3       1.0     2       3       -1.0                    \r\nMPC     600     120     1       1.0     2       1       -1.0                    \r\nMPC     600     120     2       1.0     2       2       -1.0                    \r\nMPC     600     120     3       1.0     2       3       -1.0                    \r\nPARAM   CTYPE   ROT                                                             \r\nPARAM   IREF    4                                                               \r\nPARAM   KGGIN   -1                                                              \r\nPARAM   KINDEX  0                                                               \r\nPARAM   LMODES  4                                                               \r\nPARAM   MAXMACH 0.90                                                            \r\nPARAM   MINMACH 1.00                                                            \r\nPARAM   MTYPE   COSINE                                                          \r\nPARAM   NSEGS   43                                                              \r\nPARAM   PRINT   YESB                                                            \r\nPTRIA2      2000       1  0.1040      0.                                        \r\nPTRIA2      2005       1  0.1040      0.                                        \r\nPTRIA2      2010       1  0.0707      0.                                        \r\nPTRIA2      2015       1  0.0707      0.                                        \r\nPTRIA2      2020       1  0.0422      0.                                        \r\nPTRIA2      2025       1  0.0422      0.                                        \r\nSPC1    500     23      121     123     124     125     127     128             \r\nSPC1    500     45      7       10      12                                      \r\nSPC1    500     456     101     103     104     105     107     108             \r\nSPC1    500     456     113     115     116     117     119     120             \r\nSPC1    500     456     121     123     124     125     127     128             \r\nSTREAML1       1       1       2       3                                        \r\nSTREAML1       2       4       5       6                                        \r\nSTREAML1       3       7       8       9                                        \r\nSTREAML1       4      10      11      12                                        \r\nSTREAML2       1       3   2.739 1.79600 3.98420 0.582170.6568460.069472+STRL 1 \r\n+STRL 1   719.0  47.423                                                         \r\nSTREAML2       2       3  23.534 1.85044 6.06853 0.886740.9343880.066610+STRL 2 \r\n+STRL 2  1014.2  55.107                                                         \r\nSTREAML2       3       3  44.697 1.86419 8.07620 1.180101.1936660.064685+STRL 3 \r\n+STRL 3  1288.1  60.380                                                         \r\nSTREAML2       4       3  62.028 1.86958 9.92791 1.450671.5022760.059201+STRL 4 \r\n+STRL 4  1592.6  60.687                                                         \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t09061a.inp",
    "content": "NASTRAN SYSTEM(93)=1, FILES=PLT2                                                \r\nID    T09061A,NASTRAN                                                           \r\nAPP   AERO                                                                      \r\nSOL   9                                                                         \r\nDIAG  14                                                                        \r\nTIME  1000                                                                      \r\nCEND                                                                            \r\nTITLE    = MODAL FLUTTER ANALYSIS OF AN ADVANCED TURBOPROP                      \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T09-06-1A                                   \r\nLABEL    = 10 BLADES, 6800 RPM, .70 TUNNEL MACH NO.                             \r\n$                                                                               \r\nSPC      = 1                                                                    \r\nMETHOD   = 1                                                                    \r\nFMETHOD  = 1                                                                    \r\n$                                                                               \r\nOUTPUT(XYOUT)                                                                   \r\n$                                                                               \r\nPLOTTER NASTPLT D,0                                                             \r\nXPAPER = 8.5                                                                    \r\nYPAPER = 11.0                                                                   \r\nYAXIS  = YES                                                                    \r\nXINTERCEPT = 7046.0  $ OPERATING VELOCITY                                       \r\nXTAXIS =  YES                                                                   \r\nXBAXIS =  YES                                                                   \r\nCURVELINESYMBOL = 6                                                             \r\nXDIVISIONS   = 10                                                               \r\nYTDIVISIONS  = 10                                                               \r\nYBDIVISIONS  = 10                                                               \r\nYTGRID LINES = YES                                                              \r\nYBGRID LINES = YES                                                              \r\nXTGRID LINES = YES                                                              \r\nXBGRID LINES = YES                                                              \r\nXTITLE  =     VELOCITY VSBAR , IN/SEC....REF VSBAR = 7046 IN/SEC, CASE 3        \r\nYTTITLE =          DAMPING G                                                    \r\nYBTITLE =     FREQUENCY F, HZ                                                   \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=0.0                                    \r\nXYPLOT,XYPRINT VG/ 1(G,F), 2(G,F), 3(G,F), 4(G,F), 5(G,F), 6(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=36.0                                   \r\nXYPLOT,XYPRINT VG/ 7(G,F), 8(G,F), 9(G,F),10(G,F),11(G,F),12(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=72.0                                   \r\nXYPLOT,XYPRINT VG/13(G,F),14(G,F),15(G,F),16(G,F),17(G,F),18(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=108.0                                  \r\nXYPLOT,XYPRINT VG/19(G,F),20(G,F),21(G,F),22(G,F),23(G,F),24(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=144.0                                  \r\nXYPLOT,XYPRINT VG/25(G,F),26(G,F),27(G,F),28(G,F),29(G,F),30(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=180.0                                  \r\nXYPLOT,XYPRINT VG/31(G,F),32(G,F),33(G,F),34(G,F),35(G,F),36(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-144.0                                 \r\nXYPLOT,XYPRINT VG/37(G,F),38(G,F),39(G,F),40(G,F),41(G,F),42(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-108.0                                 \r\nXYPLOT,XYPRINT VG/43(G,F),44(G,F),45(G,F),46(G,F),47(G,F),48(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-72.0                                  \r\nXYPLOT,XYPRINT VG/49(G,F),50(G,F),51(G,F),52(G,F),53(G,F),54(G,F)               \r\nTCURVE  =   K=.1,.2,.3,.6,.9,1.2,1.5,SIG=-36.0                                  \r\nXYPLOT,XYPRINT VG/55(G,F),56(G,F),57(G,F),58(G,F),59(G,F),60(G,F)               \r\nBEGIN BULK                                                                      \r\nCORD2R  1               0.0     0.0     0.0     -.0277  -.9996  0.0     +C2R1   \r\n+C2R1   .9996   -.0277  0.0                                                     \r\nGRDSET          1                               1                               \r\nGRID*   1                                   2.419817E+00    1.244079E+01*GD    1\r\n*GD    1   -2.031032E+00                                                        \r\nGRID*   2                                   2.457173E+00    1.238143E+01*GD    2\r\n*GD    2   -2.058249E+00                                                        \r\nGRID*   3                                   2.551602E+00    1.225216E+01*GD    3\r\n*GD    3   -2.114527E+00                                                        \r\nGRID*   4                                   2.683628E+00    1.202870E+01*GD    4\r\n*GD    4   -2.173213E+00                                                        \r\nGRID*   5                                   2.865225E+00    1.172653E+01*GD    5\r\n*GD    5   -2.216011E+00                                                        \r\nGRID*   6                                   2.990463E+00    1.158475E+01*GD    6\r\n*GD    6   -2.254392E+00                                                        \r\nGRID*   7                                   3.126074E+00    1.140011E+01*GD    7\r\n*GD    7   -2.266630E+00                                                        \r\nGRID*   8                                   2.194761E+00    1.228047E+01*GD    8\r\n*GD    8   -1.843213E+00                                                        \r\nGRID*   9                                   2.250464E+00    1.216055E+01*GD    9\r\n*GD    9   -1.876635E+00                                                        \r\nGRID*   10                                  2.377542E+00    1.206568E+01*GD   10\r\n*GD   10   -1.963854E+00                                                        \r\nGRID*   11                                  2.548495E+00    1.179959E+01*GD   11\r\n*GD   11   -2.027197E+00                                                        \r\nGRID*   12                                  2.733165E+00    1.150046E+01*GD   12\r\n*GD   12   -2.066389E+00                                                        \r\nGRID*   13                                  2.832836E+00    1.132142E+01*GD   13\r\n*GD   13   -2.069136E+00                                                        \r\nGRID*   14                                  2.996484E+00    1.108674E+01*GD   14\r\n*GD   14   -2.097482E+00                                                        \r\nGRID*   15                                  1.964924E+00    1.211923E+01*GD   15\r\n*GD   15   -1.666834E+00                                                        \r\nGRID*   16                                  2.043783E+00    1.199233E+01*GD   16\r\n*GD   16   -1.720535E+00                                                        \r\nGRID*   17                                  2.109893E+00    1.187122E+01*GD   17\r\n*GD   17   -1.744548E+00                                                        \r\nGRID*   18                                  2.348317E+00    1.154853E+01*GD   18\r\n*GD   18   -1.835006E+00                                                        \r\nGRID*   19                                  2.540135E+00    1.125291E+01*GD   19\r\n*GD   19   -1.870254E+00                                                        \r\nGRID*   20                                  2.675576E+00    1.106813E+01*GD   20\r\n*GD   20   -1.882862E+00                                                        \r\nGRID*   21                                  2.839677E+00    1.085337E+01*GD   21\r\n*GD   21   -1.909663E+00                                                        \r\nGRID*   22                                  1.631763E+00    1.188205E+01*GD   22\r\n*GD   22   -1.396830E+00                                                        \r\nGRID*   23                                  1.673820E+00    1.179605E+01*GD   23\r\n*GD   23   -1.420859E+00                                                        \r\nGRID*   24                                  1.815764E+00    1.160683E+01*GD   24\r\n*GD   24   -1.491647E+00                                                        \r\nGRID*   25                                  2.063309E+00    1.124282E+01*GD   25\r\n*GD   25   -1.576361E+00                                                        \r\nGRID*   26                                  2.302190E+00    1.087758E+01*GD   26\r\n*GD   26   -1.640171E+00                                                        \r\nGRID*   27                                  2.437845E+00    1.068192E+01*GD   27\r\n*GD   27   -1.643727E+00                                                        \r\nGRID*   28                                  2.632743E+00    1.045467E+01*GD   28\r\n*GD   28   -1.652845E+00                                                        \r\nGRID*   29                                  1.311218E+00    1.164496E+01*GD   29\r\n*GD   29   -1.141120E+00                                                        \r\nGRID*   30                                  1.360893E+00    1.154351E+01*GD   30\r\n*GD   30   -1.161242E+00                                                        \r\nGRID*   31                                  1.501914E+00    1.131251E+01*GD   31\r\n*GD   31   -1.229293E+00                                                        \r\nGRID*   32                                  1.786772E+00    1.089894E+01*GD   32\r\n*GD   32   -1.340499E+00                                                        \r\nGRID*   33                                  2.047144E+00    1.055134E+01*GD   33\r\n*GD   33   -1.383823E+00                                                        \r\nGRID*   34                                  2.220435E+00    1.030633E+01*GD   34\r\n*GD   34   -1.413691E+00                                                        \r\nGRID*   35                                  2.465178E+00    1.012088E+01*GD   35\r\n*GD   35   -1.453387E+00                                                        \r\nGRID*   36                                  9.178853E-01    1.134436E+01*GD   36\r\n*GD   36   -8.344505E-01                                                        \r\nGRID*   37                                  9.881784E-01    1.123093E+01*GD   37\r\n*GD   37   -8.854066E-01                                                        \r\nGRID*   38                                  1.129425E+00    1.096814E+01*GD   38\r\n*GD   38   -9.357375E-01                                                        \r\nGRID*   39                                  1.453193E+00    1.050240E+01*GD   39\r\n*GD   39   -1.043262E+00                                                        \r\nGRID*   40                                  1.781501E+00    1.010489E+01*GD   40\r\n*GD   40   -1.113802E+00                                                        \r\nGRID*   41                                  1.955276E+00    9.860262E+00*GD   41\r\n*GD   41   -1.142711E+00                                                        \r\nGRID*   42                                  2.199200E+00    9.625038E+00*GD   42\r\n*GD   42   -1.183993E+00                                                        \r\nGRID*   43                                  4.878750E-01    1.099476E+01*GD   43\r\n*GD   43   -5.068682E-01                                                        \r\nGRID*   44                                  5.593370E-01    1.085660E+01*GD   44\r\n*GD   44   -5.470380E-01                                                        \r\nGRID*   45                                  7.476242E-01    1.062701E+01*GD   45\r\n*GD   45   -6.576909E-01                                                        \r\nGRID*   46                                  1.137788E+00    1.008176E+01*GD   46\r\n*GD   46   -8.041450E-01                                                        \r\nGRID*   47                                  1.466719E+00    9.623438E+00*GD   47\r\n*GD   47   -8.569880E-01                                                        \r\nGRID*   48                                  1.670425E+00    9.369388E+00*GD   48\r\n*GD   48   -8.965883E-01                                                        \r\nGRID*   49                                  1.905910E+00    9.134694E+00*GD   49\r\n*GD   49   -9.252617E-01                                                        \r\nGRID*   50                                 -1.396976E-02    1.059563E+01*GD   50\r\n*GD   50   -1.396792E-01                                                        \r\nGRID*   51                                  7.075590E-02    1.044524E+01*GD   51\r\n*GD   51   -2.047331E-01                                                        \r\nGRID*   52                                  2.875357E-01    1.012399E+01*GD   52\r\n*GD   52   -3.129540E-01                                                        \r\nGRID*   53                                  7.360002E-01    9.570383E+00*GD   53\r\n*GD   53   -5.007564E-01                                                        \r\nGRID*   54                                  1.103680E+00    9.064291E+00*GD   54\r\n*GD   54   -5.847520E-01                                                        \r\nGRID*   55                                  1.308623E+00    8.811132E+00*GD   55\r\n*GD   55   -6.212754E-01                                                        \r\nGRID*   56                                  1.586562E+00    8.499916E+00*GD   56\r\n*GD   56   -6.411608E-01                                                        \r\nGRID*   57                                 -4.000301E-01    1.022161E+01*GD   57\r\n*GD   57    1.274626E-01                                                        \r\nGRID*   58                                 -3.109443E-01    1.007667E+01*GD   58\r\n*GD   58    6.474346E-02                                                        \r\nGRID*   59                                 -4.257504E-02    9.746097E+00*GD   59\r\n*GD   59   -9.011447E-02                                                        \r\nGRID*   60                                  4.317413E-01    9.133682E+00*GD   60\r\n*GD   60   -2.848848E-01                                                        \r\nGRID*   61                                  8.400738E-01    8.629044E+00*GD   61\r\n*GD   61   -3.864452E-01                                                        \r\nGRID*   62                                  1.075119E+00    8.326850E+00*GD   62\r\n*GD   62   -4.330833E-01                                                        \r\nGRID*   63                                  1.372284E+00    7.998097E+00*GD   63\r\n*GD   63   -4.656390E-01                                                        \r\nGRID*   64                                 -8.876041E-01    9.747480E+00*GD   64\r\n*GD   64    4.344531E-01                                                        \r\nGRID*   65                                 -7.852193E-01    9.579490E+00*GD   65\r\n*GD   65    3.506024E-01                                                        \r\nGRID*   66                                 -4.903399E-01    9.209817E+00*GD   66\r\n*GD   66    1.900352E-01                                                        \r\nGRID*   67                                  8.824563E-02    8.577651E+00*GD   67\r\n*GD   67   -4.811718E-02                                                        \r\nGRID*   68                                  5.764167E-01    8.055484E+00*GD   68\r\n*GD   68   -1.965310E-01                                                        \r\nGRID*   69                                  8.417380E-01    7.754916E+00*GD   69\r\n*GD   69   -2.687562E-01                                                        \r\nGRID*   70                                  1.127948E+00    7.304899E+00*GD   70\r\n*GD   70   -3.480781E-01                                                        \r\nGRID*   71                                 -1.340348E+00    9.248205E+00*GD   71\r\n*GD   71    6.895647E-01                                                        \r\nGRID*   72                                 -1.211896E+00    9.064268E+00*GD   72\r\n*GD   72    5.941403E-01                                                        \r\nGRID*   73                                 -8.663878E-01    8.684826E+00*GD   73\r\n*GD   73    4.148975E-01                                                        \r\nGRID*   74                                 -1.849050E-01    7.997163E+00*GD   74\r\n*GD   74    1.370639E-01                                                        \r\nGRID*   75                                  3.419222E-01    7.404170E+00*GD   75\r\n*GD   75   -6.006306E-02                                                        \r\nGRID*   76                                  6.469184E-01    7.104341E+00*GD   76\r\n*GD   76   -1.762950E-01                                                        \r\nGRID*   77                                  9.723798E-01    6.754175E+00*GD   77\r\n*GD   77   -2.997903E-01                                                        \r\nGRID*   78                                 -1.721028E+00    8.748784E+00*GD   78\r\n*GD   78    8.876511E-01                                                        \r\nGRID*   79                                 -1.560428E+00    8.580663E+00*GD   79\r\n*GD   79    7.867939E-01                                                        \r\nGRID*   80                                 -1.135652E+00    8.151909E+00*GD   80\r\n*GD   80    5.662700E-01                                                        \r\nGRID*   81                                 -4.147282E-01    7.403061E+00*GD   81\r\n*GD   81    2.401156E-01                                                        \r\nGRID*   82                                  1.852081E-01    6.753466E+00*GD   82\r\n*GD   82   -9.743430E-03                                                        \r\nGRID*   83                                  5.310093E-01    6.498033E+00*GD   83\r\n*GD   83   -1.498038E-01                                                        \r\nGRID*   84                                  9.002047E-01    6.103145E+00*GD   84\r\n*GD   84   -2.552683E-01                                                        \r\nGRID*   85                                 -2.167293E+00    7.999124E+00*GD   85\r\n*GD   85    1.095234E+00                                                        \r\nGRID*   86                                 -1.965024E+00    7.748323E+00*GD   86\r\n*GD   86    9.662098E-01                                                        \r\nGRID*   87                                 -1.447637E+00    7.370351E+00*GD   87\r\n*GD   87    7.037064E-01                                                        \r\nGRID*   88                                 -5.651237E-01    6.672748E+00*GD   88\r\n*GD   88    2.690339E-01                                                        \r\nGRID*   89                                  1.080579E-01    6.122757E+00*GD   89\r\n*GD   89    9.317569E-03                                                        \r\nGRID*   90                                  4.961708E-01    5.802341E+00*GD   90\r\n*GD   90   -1.257418E-01                                                        \r\nGRID*   91                                  9.450005E-01    5.499189E+00*GD   91\r\n*GD   91   -2.549328E-01                                                        \r\nGRID*   92                                 -2.501855E+00    6.998549E+00*GD   92\r\n*GD   92    1.159885E+00                                                        \r\nGRID*   93                                 -2.243557E+00    6.869573E+00*GD   93\r\n*GD   93    1.004043E+00                                                        \r\nGRID*   94                                 -1.663980E+00    6.498133E+00*GD   94\r\n*GD   94    6.963711E-01                                                        \r\nGRID*   95                                 -6.590906E-01    5.998307E+00*GD   95\r\n*GD   95    2.671809E-01                                                        \r\nGRID*   96                                  1.295218E-01    5.498876E+00*GD   96\r\n*GD   96   -1.361039E-02                                                        \r\nGRID*   97                                  5.590804E-01    5.251667E+00*GD   97\r\n*GD   97   -1.359098E-01                                                        \r\nGRID*   98                                  1.008383E+00    5.000014E+00*GD   98\r\n*GD   98   -2.679553E-01                                                        \r\nGRID*   99                                 -2.658578E+00    5.997640E+00*GD   99\r\n*GD   99    1.050546E+00                                                        \r\nGRID*   100                                -2.343632E+00    5.902313E+00*GD  100\r\n*GD  100    9.020252E-01                                                        \r\nGRID*   101                                -1.669497E+00    5.672649E+00*GD  101\r\n*GD  101    6.170529E-01                                                        \r\nGRID*   102                                -5.963364E-01    5.302208E+00*GD  102\r\n*GD  102    2.088603E-01                                                        \r\nGRID*   103                                 1.954939E-01    4.999296E+00*GD  103\r\n*GD  103   -4.400190E-02                                                        \r\nGRID*   104                                 6.204426E-01    4.870985E+00*GD  104\r\n*GD  104   -1.597679E-01                                                        \r\nGRID*   105                                 1.050502E+00    4.750490E+00*GD  105\r\n*GD  105   -2.685744E-01                                                        \r\nGRID*   106                                -2.496761E+00    4.997375E+00*GD  106\r\n*GD  106    8.496489E-01                                                        \r\nGRID*   107                                -2.194051E+00    4.997557E+00*GD  107\r\n*GD  107    7.381414E-01                                                        \r\nGRID*   108                                -1.543487E+00    4.903041E+00*GD  108\r\n*GD  108    4.893306E-01                                                        \r\nGRID*   109                                -5.069078E-01    4.751890E+00*GD  109\r\n*GD  109    1.591752E-01                                                        \r\nGRID*   110                                 2.414709E-01    4.620979E+00*GD  110\r\n*GD  110   -6.520444E-02                                                        \r\nGRID*   111                                 6.511260E-01    4.550488E+00*GD  111\r\n*GD  111   -1.757268E-01                                                        \r\nGRID*   112                                 1.101048E+00    4.450042E+00*GD  112\r\n*GD  112   -2.750542E-01                                                        \r\nGRID*   113                                -2.273488E+00    4.304033E+00*GD  113\r\n*GD  113    6.919722E-01                                                        \r\nGRID*   114                                -1.994164E+00    4.303668E+00*GD  114\r\n*GD  114    5.999017E-01                                                        \r\nGRID*   115                                -1.405457E+00    4.402983E+00*GD  115\r\n*GD  115    3.958974E-01                                                        \r\nGRID*   116                                -4.174645E-01    4.351565E+00*GD  116\r\n*GD  116    1.095533E-01                                                        \r\nGRID*   117                                 3.215386E-01    4.300690E+00*GD  117\r\n*GD  117   -8.331943E-02                                                        \r\nGRID*   118                                 7.212664E-01    4.250240E+00*GD  118\r\n*GD  118   -1.836711E-01                                                        \r\nGRID*   119                                 1.151106E+00    4.249871E+00*GD  119\r\n*GD  119   -2.738665E-01                                                        \r\nGRID*   120                                -1.996529E+00    3.623911E+00*GD  120\r\n*GD  120    5.362222E-01                                                        \r\nGRID*   121                                -1.717033E+00    3.593472E+00*GD  121\r\n*GD  121    4.447856E-01                                                        \r\nGRID*   122                                -1.167562E+00    3.662519E+00*GD  122\r\n*GD  122    2.925791E-01                                                        \r\nGRID*   123                                -2.483512E-01    3.751040E+00*GD  123\r\n*GD  123    4.970558E-02                                                        \r\nGRID*   124                                 4.511786E-01    3.800256E+00*GD  124\r\n*GD  124   -1.118595E-01                                                        \r\nGRID*   125                                 8.409850E-01    3.799903E+00*GD  125\r\n*GD  125   -2.023238E-01                                                        \r\nGRID*   126                                 1.290810E+00    3.799548E+00*GD  126\r\n*GD  126   -2.828727E-01                                                        \r\nGRID*   127                                -1.608941E+00    2.873360E+00*GD  127\r\n*GD  127    3.625186E-01                                                        \r\nGRID*   128                                -1.308840E+00    2.992764E+00*GD  128\r\n*GD  128    2.919613E-01                                                        \r\nGRID*   129                                -9.387804E-01    3.101987E+00*GD  129\r\n*GD  129    2.111757E-01                                                        \r\nGRID*   130                                -8.885711E-02    3.300630E+00*GD  130\r\n*GD  130    1.195536E-01                                                        \r\nGRID*   131                                 5.608683E-01    3.500004E+00*GD  131\r\n*GD  131   -1.414182E-01                                                        \r\nGRID*   132                                 9.507490E-01    3.499724E+00*GD  132\r\n*GD  132   -2.217990E-01                                                        \r\nGRID*   133                                 1.369986E+00    3.600738E+00*GD  133\r\n*GD  133   -2.995755E-01                                                        \r\nGRID*   134                                -1.368847E+00    2.576391E+00*GD  134\r\n*GD  134    2.804042E-01                                                        \r\nGRID*   135                                -1.139708E+00    2.642426E+00*GD  135\r\n*GD  135    2.214295E-01                                                        \r\nGRID*   136                                -7.496524E-01    2.721577E+00*GD  136\r\n*GD  136    1.307743E-01                                                        \r\nGRID*   137                                -4.592137E-01    3.001000E+00*GD  137\r\n*GD  137    9.034532E-02                                                        \r\nGRID*   138                                -4.695653E-01    2.760897E+00*GD  138\r\n*GD  138    7.035846E-02                                                        \r\nGRID*   139                                -2.695652E-01    2.800594E+00*GD  139\r\n*GD  139    3.012025E-02                                                        \r\nGRID*   140                                 3.953020E-04    2.830271E+00*GD  140\r\n*GD  140   -2.015355E-02                                                        \r\nGRID*   141                                 2.705058E-01    2.980117E+00*GD  141\r\n*GD  141   -5.050298E-02                                                        \r\nGRID*   142                                 4.705606E-01    3.069980E+00*GD  142\r\n*GD  142   -8.079284E-02                                                        \r\nGRID*   143                                 7.906197E-01    3.199841E+00*GD  143\r\n*GD  143   -1.611942E-01                                                        \r\nGRID*   144                                 1.100652E+00    3.339638E+00*GD  144\r\n*GD  144   -2.316611E-01                                                        \r\nGRID*   145                                 1.475051E+00    3.454741E+00*GD  145\r\n*GD  145   -2.780864E-01                                                        \r\nGRID*   146                                -4.697902E-01    2.440455E+00*GD  146\r\n*GD  146    9.014469E-02                                                        \r\nGRID*   147                                -2.698651E-01    2.440315E+00*GD  147\r\n*GD  147    4.007889E-02                                                        \r\nGRID*   148                                 8.703647E-05    2.440156E+00*GD  148\r\n*GD  148   -1.476011E-05                                                        \r\nGRID*   149                                 2.700679E-01    2.440040E+00*GD  149\r\n*GD  149   -4.009397E-02                                                        \r\nGRID*   150                                 4.700607E-01    2.439936E+00*GD  150\r\n*GD  150   -8.013493E-02                                                        \r\nGRID*   151                                -4.700000E-01    2.060000E+00*GD  151\r\n*GD  151    8.999997E-02                                                        \r\nGRID*   152                                -2.700000E-01    2.060000E+00*GD  152\r\n*GD  152    4.000000E-02                                                        \r\nGRID*   153                                 0.0             2.060000E+00*GD  153\r\n*GD  153    0.0                                                                 \r\nGRID*   154                                 2.700000E-01    2.060000E+00*GD  154\r\n*GD  154   -4.000000E-02                                                        \r\nGRID*   155                                 4.700000E-01    2.060000E+00*GD  155\r\n*GD  155   -8.999997E-02                                                        \r\nPQUAD2    1     1       .012                                                    \r\nPQUAD2    2     1       .024                                                    \r\nPQUAD2    3     1       .032                                                    \r\nPQUAD2    4     1       .036                                                    \r\nPQUAD2    5     1       .030                                                    \r\nPQUAD2    6     1       .018                                                    \r\nPQUAD2    7     1       .014                                                    \r\nPQUAD2    8     1       .028                                                    \r\nPQUAD2    9     1       .037                                                    \r\nPQUAD2   10     1       .043                                                    \r\nPQUAD2   11     1       .036                                                    \r\nPQUAD2   12     1       .022                                                    \r\nPQUAD2   13     1       .016                                                    \r\nPQUAD2   14     1       .032                                                    \r\nPQUAD2   15     1       .048                                                    \r\nPQUAD2   16     1       .051                                                    \r\nPQUAD2   17     1       .042                                                    \r\nPQUAD2   18     1       .023                                                    \r\nPQUAD2   19     1       .018                                                    \r\nPQUAD2   20     1       .034                                                    \r\nPQUAD2   21     1       .053                                                    \r\nPQUAD2   22     1       .058                                                    \r\nPQUAD2   23     1       .046                                                    \r\nPQUAD2   24     1       .025                                                    \r\nPQUAD2   25     1       .021                                                    \r\nPQUAD2   26     1       .042                                                    \r\nPQUAD2   27     1       .061                                                    \r\nPQUAD2   28     1       .066                                                    \r\nPQUAD2   29     1       .051                                                    \r\nPQUAD2   30     1       .027                                                    \r\nPQUAD2   31     1       .024                                                    \r\nPQUAD2   32     1       .049                                                    \r\nPQUAD2   33     1       .070                                                    \r\nPQUAD2   34     1       .073                                                    \r\nPQUAD2   35     1       .057                                                    \r\nPQUAD2   36     1       .030                                                    \r\nPQUAD2   37     1       .028                                                    \r\nPQUAD2   38     1       .054                                                    \r\nPQUAD2   39     1       .078                                                    \r\nPQUAD2   40     1       .082                                                    \r\nPQUAD2   41     1       .065                                                    \r\nPQUAD2   42     1       .035                                                    \r\nPQUAD2   43     1       .031                                                    \r\nPQUAD2   44     1       .061                                                    \r\nPQUAD2   45     1       .088                                                    \r\nPQUAD2   46     1       .093                                                    \r\nPQUAD2   47     1       .075                                                    \r\nPQUAD2   48     1       .039                                                    \r\nPQUAD2   49     1       .038                                                    \r\nPQUAD2   50     1       .068                                                    \r\nPQUAD2   51     1       .098                                                    \r\nPQUAD2   52     1       .103                                                    \r\nPQUAD2   53     1       .083                                                    \r\nPQUAD2   54     1       .046                                                    \r\nPQUAD2   55     1       .041                                                    \r\nPQUAD2   56     1       .076                                                    \r\nPQUAD2   57     1       .110                                                    \r\nPQUAD2   58     1       .118                                                    \r\nPQUAD2   59     1       .091                                                    \r\nPQUAD2   60     1       .047                                                    \r\nPQUAD2   61     1       .043                                                    \r\nPQUAD2   62     1       .083                                                    \r\nPQUAD2   63     1       .120                                                    \r\nPQUAD2   64     1       .129                                                    \r\nPQUAD2   65     1       .100                                                    \r\nPQUAD2   66     1       .044                                                    \r\nPQUAD2   67     1       .045                                                    \r\nPQUAD2   68     1       .090                                                    \r\nPQUAD2   69     1       .135                                                    \r\nPQUAD2   70     1       .138                                                    \r\nPQUAD2   71     1       .100                                                    \r\nPQUAD2   72     1       .048                                                    \r\nPQUAD2   73     1       .053                                                    \r\nPQUAD2   74     1       .106                                                    \r\nPQUAD2   75     1       .152                                                    \r\nPQUAD2   76     1       .148                                                    \r\nPQUAD2   77     1       .099                                                    \r\nPQUAD2   78     1       .044                                                    \r\nPQUAD2   79     1       .063                                                    \r\nPQUAD2   80     1       .123                                                    \r\nPQUAD2   81     1       .171                                                    \r\nPQUAD2   82     1       .157                                                    \r\nPQUAD2   83     1       .099                                                    \r\nPQUAD2   84     1       .046                                                    \r\nPQUAD2   85     1       .071                                                    \r\nPQUAD2   86     1       .141                                                    \r\nPQUAD2   87     1       .206                                                    \r\nPQUAD2   88     1       .177                                                    \r\nPQUAD2   89     1       .112                                                    \r\nPQUAD2   90     1       .048                                                    \r\nPQUAD2   91     1       .084                                                    \r\nPQUAD2   92     1       .172                                                    \r\nPQUAD2   93     1       .232                                                    \r\nPQUAD2   94     1       .198                                                    \r\nPQUAD2   95     1       .135                                                    \r\nPQUAD2   96     1       .062                                                    \r\nPQUAD2   97     1       .119                                                    \r\nPQUAD2   98     1       .206                                                    \r\nPQUAD2   99     1       .266                                                    \r\nPQUAD2   100    1       .230                                                    \r\nPQUAD2   101    1       .152                                                    \r\nPQUAD2   102    1       .071                                                    \r\nPQUAD2   103    1       .161                                                    \r\nPQUAD2   104    1       .237                                                    \r\nPQUAD2   105    1       .347                                                    \r\nPQUAD2   106    1       .319                                                    \r\nPQUAD2   107    1       .167                                                    \r\nPQUAD2   108    1       .075                                                    \r\nPQUAD2   109    1       .222                                                    \r\nPQUAD2   110    1       .373                                                    \r\nPQUAD2   121    1       .242                                                    \r\nPQUAD2   122    1       .089                                                    \r\nPQUAD2   123    1       .441                                                    \r\nPQUAD2   124    1       .830                                                    \r\nPQUAD2   125    1       .830                                                    \r\nPQUAD2   126    1       .441                                                    \r\nPQUAD2   127    1       .441                                                    \r\nPQUAD2   128    1       .830                                                    \r\nPQUAD2   129    1       .830                                                    \r\nPQUAD2   130    1       .441                                                    \r\nPTRIA2   111    1       .531                                                    \r\nPTRIA2   112    1       .532                                                    \r\nPTRIA2   113    1       .396                                                    \r\nPTRIA2   114    1       .544                                                    \r\nPTRIA2   115    1       .590                                                    \r\nPTRIA2   116    1       .591                                                    \r\nPTRIA2   117    1       .557                                                    \r\nPTRIA2   118    1       .519                                                    \r\nPTRIA2   119    1       .396                                                    \r\nPTRIA2   120    1       .377                                                    \r\nCQUAD2    1       1       1       2       9       8                             \r\nCQUAD2    2       2       2       3      10       9                             \r\nCQUAD2    3       3       3       4      11      10                             \r\nCQUAD2    4       4       4       5      12      11                             \r\nCQUAD2    5       5       5       6      13      12                             \r\nCQUAD2    6       6       6       7      14      13                             \r\nCQUAD2    7       7       8       9      16      15                             \r\nCQUAD2    8       8       9      10      17      16                             \r\nCQUAD2    9       9      10      11      18      17                             \r\nCQUAD2   10      10      11      12      19      18                             \r\nCQUAD2   11      11      12      13      20      19                             \r\nCQUAD2   12      12      13      14      21      20                             \r\nCQUAD2   13      13      15      16      23      22                             \r\nCQUAD2   14      14      16      17      24      23                             \r\nCQUAD2   15      15      17      18      25      24                             \r\nCQUAD2   16      16      18      19      26      25                             \r\nCQUAD2   17      17      19      20      27      26                             \r\nCQUAD2   18      18      20      21      28      27                             \r\nCQUAD2   19      19      22      23      30      29                             \r\nCQUAD2   20      20      23      24      31      30                             \r\nCQUAD2   21      21      24      25      32      31                             \r\nCQUAD2   22      22      25      26      33      32                             \r\nCQUAD2   23      23      26      27      34      33                             \r\nCQUAD2   24      24      27      28      35      34                             \r\nCQUAD2   25      25      29      30      37      36                             \r\nCQUAD2   26      26      30      31      38      37                             \r\nCQUAD2   27      27      31      32      39      38                             \r\nCQUAD2   28      28      32      33      40      39                             \r\nCQUAD2   29      29      33      34      41      40                             \r\nCQUAD2   30      30      34      35      42      41                             \r\nCQUAD2   31      31      36      37      44      43                             \r\nCQUAD2   32      32      37      38      45      44                             \r\nCQUAD2   33      33      38      39      46      45                             \r\nCQUAD2   34      34      39      40      47      46                             \r\nCQUAD2   35      35      40      41      48      47                             \r\nCQUAD2   36      36      41      42      49      48                             \r\nCQUAD2   37      37      43      44      51      50                             \r\nCQUAD2   38      38      44      45      52      51                             \r\nCQUAD2   39      39      45      46      53      52                             \r\nCQUAD2   40      40      46      47      54      53                             \r\nCQUAD2   41      41      47      48      55      54                             \r\nCQUAD2   42      42      48      49      56      55                             \r\nCQUAD2   43      43      50      51      58      57                             \r\nCQUAD2   44      44      51      52      59      58                             \r\nCQUAD2   45      45      52      53      60      59                             \r\nCQUAD2   46      46      53      54      61      60                             \r\nCQUAD2   47      47      54      55      62      61                             \r\nCQUAD2   48      48      55      56      63      62                             \r\nCQUAD2   49      49      57      58      65      64                             \r\nCQUAD2   50      50      58      59      66      65                             \r\nCQUAD2   51      51      59      60      67      66                             \r\nCQUAD2   52      52      60      61      68      67                             \r\nCQUAD2   53      53      61      62      69      68                             \r\nCQUAD2   54      54      62      63      70      69                             \r\nCQUAD2   55      55      64      65      72      71                             \r\nCQUAD2   56      56      65      66      73      72                             \r\nCQUAD2   57      57      66      67      74      73                             \r\nCQUAD2   58      58      67      68      75      74                             \r\nCQUAD2   59      59      68      69      76      75                             \r\nCQUAD2   60      60      69      70      77      76                             \r\nCQUAD2   61      61      71      72      79      78                             \r\nCQUAD2   62      62      72      73      80      79                             \r\nCQUAD2   63      63      73      74      81      80                             \r\nCQUAD2   64      64      74      75      82      81                             \r\nCQUAD2   65      65      75      76      83      82                             \r\nCQUAD2   66      66      76      77      84      83                             \r\nCQUAD2   67      67      78      79      86      85                             \r\nCQUAD2   68      68      79      80      87      86                             \r\nCQUAD2   69      69      80      81      88      87                             \r\nCQUAD2   70      70      81      82      89      88                             \r\nCQUAD2   71      71      82      83      90      89                             \r\nCQUAD2   72      72      83      84      91      90                             \r\nCQUAD2   73      73      85      86      93      92                             \r\nCQUAD2   74      74      86      87      94      93                             \r\nCQUAD2   75      75      87      88      95      94                             \r\nCQUAD2   76      76      88      89      96      95                             \r\nCQUAD2   77      77      89      90      97      96                             \r\nCQUAD2   78      78      90      91      98      97                             \r\nCQUAD2   79      79      92      93     100      99                             \r\nCQUAD2   80      80      93      94     101     100                             \r\nCQUAD2   81      81      94      95     102     101                             \r\nCQUAD2   82      82      95      96     103     102                             \r\nCQUAD2   83      83      96      97     104     103                             \r\nCQUAD2   84      84      97      98     105     104                             \r\nCQUAD2   85      85      99     100     107     106                             \r\nCQUAD2   86      86     100     101     108     107                             \r\nCQUAD2   87      87     101     102     109     108                             \r\nCQUAD2   88      88     102     103     110     109                             \r\nCQUAD2   89      89     103     104     111     110                             \r\nCQUAD2   90      90     104     105     112     111                             \r\nCQUAD2   91      91     106     107     114     113                             \r\nCQUAD2   92      92     107     108     115     114                             \r\nCQUAD2   93      93     108     109     116     115                             \r\nCQUAD2   94      94     109     110     117     116                             \r\nCQUAD2   95      95     110     111     118     117                             \r\nCQUAD2   96      96     111     112     119     118                             \r\nCQUAD2   97      97     113     114     121     120                             \r\nCQUAD2   98      98     114     115     122     121                             \r\nCQUAD2   99      99     115     116     123     122                             \r\nCQUAD2  100     100     116     117     124     123                             \r\nCQUAD2  101     101     117     118     125     124                             \r\nCQUAD2  102     102     118     119     126     125                             \r\nCQUAD2  103     103     120     121     128     127                             \r\nCQUAD2  104     104     121     122     129     128                             \r\nCQUAD2  105     105     122     123     130     129                             \r\nCQUAD2  106     106     123     124     131     130                             \r\nCQUAD2  107     107     124     125     132     131                             \r\nCQUAD2  108     108     125     126     133     132                             \r\nCQUAD2  109     109     127     128     135     134                             \r\nCQUAD2  110     110     128     129     136     135                             \r\nCQUAD2  121     121     131     132     144     143                             \r\nCQUAD2  122     122     132     133     145     144                             \r\nCQUAD2  123     123     138     139     147     146                             \r\nCQUAD2  124     124     139     140     148     147                             \r\nCQUAD2  125     125     140     141     149     148                             \r\nCQUAD2  126     126     141     142     150     149                             \r\nCQUAD2  127     127     146     147     152     151                             \r\nCQUAD2  128     128     147     148     153     152                             \r\nCQUAD2  129     129     148     149     154     153                             \r\nCQUAD2  130     130     149     150     155     154                             \r\nCTRIA2  111     111     129     138     136                                     \r\nCTRIA2  112     112     129     137     138                                     \r\nCTRIA2  113     113     129     130     137                                     \r\nCTRIA2  114     114     137     130     140                                     \r\nCTRIA2  115     115     138     137     139                                     \r\nCTRIA2  116     116     139     137     140                                     \r\nCTRIA2  117     117     140     130     141                                     \r\nCTRIA2  118     118     141     130     142                                     \r\nCTRIA2  119     119     130     131     142                                     \r\nCTRIA2  120     120     142     131     143                                     \r\nMAT1    1        1.6  E7         .35    .0004141                                \r\nSPC1    1       123456  151     THRU    155                                     \r\nSPC1    1       6       7       91      98      134     145                     \r\nSPC1    1       4       1       57                                              \r\nRFORCE  1       0               113.34  1.0     0.0     0.0                     \r\nEIGR    1       INV     100.0   2000.0  10      8                       +E1     \r\n+E1     MAX                                                                     \r\nCYJOIN  1               155                                                     \r\nCYJOIN  2               151                                                     \r\nPARAM   CTYPE   ROT                                                             \r\nPARAM   KINDEX  0                                                               \r\nPARAM   NSEGS   10                                                              \r\n$                                                                               \r\n$           AERODYNAMIC DATA FOR FLUTTER ANALYSIS                               \r\n$                                                                               \r\nAERO    0       1.0     2.905   9.763E-8                                        \r\nFLFACT  1       1.0                                                             \r\nFLFACT  2       0.0     36.0    72.0    108.0   144.0   180.0   -144.0  +FL21   \r\n+FL21   -108.0  -72.    -36.                                                    \r\nFLFACT  3       .10     .20     .30     .6      .9      1.2     1.5             \r\nFLUTTER 1       KE      1       2       3       L       6                       \r\nMKAERO2 0.0     .001    0.0     .3      0.0     .6      0.0     .9              \r\nMKAERO2 36.     .001    36.     .3      36.     .6      36.     .9              \r\nMKAERO2 72.     .001    72.     .3      72.     .6      72.     .9              \r\nMKAERO2 108.    .001    108.    .3      108.    .6      108.    .9              \r\nMKAERO2 144.    .001    144.    .3      144.    .6      144.    .9              \r\nMKAERO2 180.    .001    180.    .3      180.    .6      180.    .9              \r\nMKAERO2 -144.   .001    -144.   .3      -144.   .6      -144.   .9              \r\nMKAERO2 -108.   .001    -108.   .3      -108.   .6      -108.   .9              \r\nMKAERO2 -72.    .001    -72.    .3      -72.    .6      -72.    .9              \r\nMKAERO2 -36.    .001    -36.    .3      -36.    .6      -36.    .9              \r\nMKAERO2 0.0     1.2     0.0     1.5     0.0     .15                             \r\nMKAERO2 36.     1.2     36.     1.5     36.0    .15                             \r\nMKAERO2 72.     1.2     72.     1.5     72.0    .15                             \r\nMKAERO2 108.    1.2     108.    1.5     108.    .15                             \r\nMKAERO2 144.    1.2     144.    1.5     144.    .15                             \r\nMKAERO2 180.    1.2     180.    1.5     180.    .15                             \r\nMKAERO2 -144.   1.2     -144.   1.5     -144.   .15                             \r\nMKAERO2 -108.   1.2     -108.   1.5     -108.   .15                             \r\nMKAERO2 -72.    1.2     -72.    1.5     -72.    .15                             \r\nMKAERO2 -36.    1.2     -36.    1.5     -36.    .15                             \r\nPARAM   IREF    6                                                               \r\nPARAM   LMODES  6                                                               \r\nPARAM   MAXMACH 0.95                                                            \r\nPARAM   MINMACH 1.01                                                            \r\nPARAM   MTYPE   COSINE                                                          \r\nPARAM   PRINT   YESB                                                            \r\nSTREAML1   1    134     136     143     145                                     \r\nSTREAML1   2    113     115     117     119                                     \r\nSTREAML1   3    99      101     103     105                                     \r\nSTREAML1   4    85      87      89      91                                      \r\nSTREAML1   5    71      73      75      77                                      \r\nSTREAML1   6    57      59      61      63                                      \r\nSTREAML1   7    43      45      47      49                                      \r\nSTREAML1   8    29      31      33      35                                      \r\nSTREAML1   9    15      17      19      21                                      \r\nSTREAML1   10   1       3       5       7                                       \r\nSTREAML2   1       4      11.075   3.028   0.278   1.626   0.6869.763E-8+STR   1\r\n+STR   1   9152. -15.899                                                        \r\nSTREAML2   2       4      13.895   3.559   0.336   2.733   0.7349.763E-8+STR   4\r\n+STR   4   9794.   2.890                                                        \r\nSTREAML2   3       4      14.946   4.129   0.152   3.818   0.7139.763E-8+STR   6\r\n+STR   6   9512.  20.206                                                        \r\nSTREAML2   4       4      16.492   4.214  -0.355   5.068   0.6189.763E-8+STR   8\r\n+STR   8   8246.  38.813                                                        \r\nSTREAML2   5       4      17.712   3.542  -0.389   5.825   0.5679.763E-8+STR  10\r\n+STR  10   7558.  46.112                                                        \r\nSTREAML2   6       4      16.167   2.905  -0.367   6.423   0.5289.763E-8+STR  12\r\n+STR  12   7046.  50.138                                                        \r\nSTREAML2   7       4      17.910   2.376  -0.316   6.915   0.5359.763E-8+STR  14\r\n+STR  14   7139.  50.796                                                        \r\nSTREAML2   8       4      19.990   1.937  -0.369   7.350   0.5569.763E-8+STR  16\r\n+STR  16   7419.  50.323                                                        \r\nSTREAML2   9       4      23.516   1.558  -0.294   7.682   0.5579.763E-8+STR  18\r\n+STR  18   7424.  51.910                                                        \r\nSTREAML2  10       4      27.788   1.280  -0.541   7.913   0.5879.763E-8+STR  20\r\n+STR  20   7830.  50.992                                                        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t09071a.inp",
    "content": "ID    T09071A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nTIME  40                                                                        \r\nSOL   9                                                                         \r\nDIAG  14                                                                        \r\nREADFILE COSDBCL                                            \r\nCEND                                                                            \r\nTITLE    = DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UDER            \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T09-07-1A                                   \r\nLABEL    = A DYNAMIC TRANSIENT RESPONSE ANALYSIS - IMPACT LOADING               \r\n  DISP   = ALL                                                                  \r\n  SPC    = 4                                                                    \r\nSUBCASE 1                                                                       \r\n  DLOAD  = 4                                                                    \r\n  TSTEP  = 7                                                                    \r\n  STRESS = ALL                                                                  \r\nSUBCASE 2                                                                       \r\n  METHOD = 25                                                                   \r\nBEGIN BULK                                                                      \r\nCBAR,  1, 1,  1, 2,  0.  0.  1.0  1                                             \r\n=(9),*(1),=,*(1),/, ==                                                          \r\nDAREA, 8, 1,  2, +1.0                                                           \r\nDMI     TIP1    0       2       1       1               1000    1               \r\nDMI     TIP1    1       1       1.0                                             \r\nDMI     BAS1    0       2       1       1               1000    1               \r\nDMI     BAS1    1       1000    1.0                                             \r\nEIGB,  25 INV  0.01  1.0 2                                                      \r\n, MAX                                                                           \r\nGRID,    1 ,, 0.0  0.0  0.0                                                     \r\n=(10), *(1),, =, *(10.),==                                                      \r\nMAT1,11  10.0+6, 16.5+6,, 2.59-4                                                \r\nPBAR, 1  11 .785 .049 .049 .098                                                 \r\nSPC,  4  11 123456                                                              \r\nTABLED1, 4  )+S4                                                                \r\n),  0.0  0.0  25.E-6  120.9  1.0  120.9  ENDT                                   \r\nTLOAD1, 4  8   0,, 4                                                            \r\nTSTEP,  6  20  0.0002  1                                                        \r\nTSTEP,  7 200  12.5-6  4                                                        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t13021a.inp",
    "content": "ID    T13021A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nSOL   13                                                                        \r\nDIAG  38                                                                        \r\nTIME  10                                                                        \r\nCEND                                                                            \r\nTITLE = OCTAGONAL FRAME MODELED BY 8 CBARS AND USING CPSE2 ELEMENTS\r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. T13-02-1A\r\nECHO  = BOTH                                                                    \r\nDISP  = ALL                                                                     \r\nSPC = 1\r\nSUBCASE 1                                                                       \r\nLABEL = STATIC SOLUTION                                                         \r\nLOAD  = 1                                                                       \r\nOLOAD = ALL                                                                     \r\nSUBCASE 2                                                                       \r\nLABEL = SECOND ORDER STATICS SOLUTION                                           \r\nDSCOEFFICIENT = DEFAULT                                                         \r\nSUBCASE 3                                                                       \r\nLABEL = NORMAL MODES WITH DIFFERENTIAL STIFFNESS                                \r\nMETHOD = 1                                                                      \r\nBEGIN BULK                                                                      \r\nSPC,1,1,126\r\nCORD2C,  1  0  0.  0.  0.  0.  0.  1.                                           \r\n,    1.  0. 0.                                                                  \r\nCONM2,   9  1,,   5.74025  0.  0.  0.  )+C-21                                   \r\n=(7), *(1),*(1),,==                                                             \r\n+C-21,  5.74025  0.0  5.74025,  0.  0.  5.74025                                 \r\n=(7),==                                                                         \r\nFORCE1, 1  1   26516.5  5   1                                                   \r\n=(3),  =,*(1),       = *(1),/                                                   \r\nFORCE1, 1  5   26516.5  1   5                                                   \r\n=(3),  =,*(1),       = *(1),/                                                   \r\nGRID,  1  0   0.     75.     0.   0  345                                        \r\nGRID,  2  0  53.033  53.033  ==                                                 \r\nGRID,  3  0  75.      0.     ==                                                 \r\nGRID,  4  0  53.033 -53.033  ==                                                 \r\nGRID,  5  0   0.    -75.     ==                                                 \r\nGRID,  6  0 -53.033 -53.033  ==                                                 \r\nGRID,  7  0 -75.      0.     ==                                                 \r\nGRID,  8  0 -53.033  53.033  ==                                                 \r\nBAROR,,1,,,   1.  0.  0.                                                        \r\nCBAR,  1  1   1   2                                                             \r\n=(6),*(1),=, *(1),/                                                             \r\nCBAR,  8  1   8   1                                                             \r\nPBAR,  1  1   1.  .83333  .83333                                                \r\nCPSE2,17  2   1   2                                                             \r\n=(6),*(1),=, *(1),/                                                             \r\nCPSE2,24  2   8   1                                                             \r\nPPSE,  2  500.                                                                  \r\nMAT1,  1  1.E7,, 0.3                                                            \r\nEIGR,  1  FEER,, 1.0E-8,, 10                                                    \r\n, MAX                                                                           \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t13022a.inp",
    "content": "ID    T13022A,NASTRAN                                                           \r\nAPP   DISP                                                                      \r\nDIAG  38                                                                        \r\nSOL   13                                                                        \r\nTIME  20                                                                         \r\n$                                                                               \r\n$   THIS PROBLEM DEMONSTRATES THE EFFECTS OF PRESSURE ON THE DYNAMICS OF        \r\n$   PRE-STIFFENED STRUCTURE USEING CPSE3 AND CPSE4 DIFFERNTIAL STIFFNESS        \r\n$   ELEMENTS                                                                    \r\n$                                                                               \r\n$   THIS FREE-FREE UNIT LENGTH CYLINDER PROBLEM GIVES THE FOLLOWING             \r\n$   NATURAL FREQUENCIES (HZ)                                                    \r\n$                                                                               \r\n$        WITHOUT THE PRESSURE        WITH  THE PRESSURE                         \r\n$        STIFFNESS ELEMENTS          STIFFNESS ELEMENTS                         \r\n$        --------------------        ------------------                         \r\n$               3.4432                     0.0053                               \r\n$               4.6821                     5.3927                               \r\n$              13.2614                    13.6570                               \r\n$              22.4341                    22.6865                               \r\n$              33.1777                    33.3529                               \r\n$              46.1936                    46.3210                               \r\n$              61.9870                    62.0752                               \r\n$              81.8336                    81.8986                               \r\n$                                                                               \r\n$   THE FOLLOWING DMAP ALTER ALLOWS SOL 13 TO USE DIFFERENT BOUNDARY            \r\n$   CONDITION SPC'S FOR THE STATIC SOLUTION (SUBCASE 1 AND 2) AND THE           \r\n$   NORMAL MODE SOLUTION (SUBCASE 3)                                            \r\n$                                                                               \r\n$   THIS DMAP ALTER WILL CAUSE A NUMBER OF WARNING MESSAGES OF POTENTIAL        \r\n$   ERRORS PRINTED, BUT IT WORKS OK                                             \r\n$                                                                               \r\nALTER  117 $  AFTER OFP MODULE AND BEFORE DPD IN RIGID FORMAT 13                \r\nGP4    CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,ASET,OGPST/          \r\n       LUSET/S,N,MPCF1/S,N,MPCF2/,S,N,SINGLE/S,N,OMIT/S,N,REACT/                \r\n       S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/C,Y,ASETOUT/              \r\n       S,N,AUTOSPC $                                                            \r\nPARAM  //*AND*/NOSR/SINGLE/REACT $                                              \r\nPURGE  GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/QG/NOSR $        \r\nOFP    OGPST,,,,,//S,N,CARDNO $                                                 \r\nLABEL  LBL15D $                                                                 \r\nEQUIV  KGG,KNN/MPCF1 $                                                          \r\nCOND   LBL16D,MPCF1 $                                                           \r\nMCE1   USET,RG/GM $                                                             \r\nMCE2   USET,GM,KGG,,,/KNN,,, $                                                  \r\nLABEL  LBL16D $                                                                 \r\nEQUIV  KNN,KFF/SINGLE $                                                         \r\nCOND   LBL17D,SINGLE $                                                          \r\nSCE1   USET,KNN,,,/KFF,KFS,KSS,,, $                                             \r\nLABEL  LBL17D $                                                                 \r\nEQUIV  KFF,KAA/OMIT $                                                           \r\nCOND   LBL18D,OMIT $                                                            \r\nSMP1   USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $                                        \r\nLABEL  LBL18D $                                                                 \r\nEQUIV  KDGG,KDNN/MPCF2 /MGG,MNN/MPCF2 $                                         \r\nCOND   LBL19D,MPCF2 $                                                           \r\nMCE2   USET,GM,KDGG,MGG,,/KDNN,MNN,, $                                          \r\nLABEL  LBL19D $                                                                 \r\nEQUIV  KDNN,KDFF/SINGLE /MNN,MFF/SINGLE $                                       \r\nCOND   LBL20D,SINGLE $                                                          \r\nSCE1   USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $                                   \r\nLABEL  LBL20D $                                                                 \r\nEQUIV  KDFF,KDAA/OMIT /MFF,MAA/OMIT $                                           \r\nCOND   LBL21D,OMIT $                                                            \r\nSMP2   USET,GO,KDFF/KDAA $                                                      \r\nSMP2   USET,GO,MFF/MAA $                                                        \r\nLABEL  LBL21D $                                                                 \r\nPARAM  //*ADD*/DSCOSET/-1/0 $                                                   \r\nPARAM  //*MPY*/NDSKIP/0/0 $                                                     \r\nDSMG2  MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS,             \r\n       PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $                       \r\nENDALTER $                                                                      \r\n$                                                                               \r\nCEND                                                                            \r\nTITLE    = FREE-FREE UNIT LENGTH PRESSURIZED CYLINDER, QUARTER MODEL            \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T13-02-2A                               \r\nLABEL  = NORMAL MODES WITH DIFFERENTIAL STIFFNESS USING CPSE3/4 ELEMENTS        \r\nECHO   = BOTH                                                                   \r\nDISP   = ALL                                                                    \r\n$                                                                               \r\nSUBCASE  1                                                                      \r\nLABEL  = STATIC SOLUTION                                                        \r\nLOAD   = 1                                                                      \r\nSPC    = 1                                                                      \r\nOLOAD  = ALL                                                                    \r\n$                                                                               \r\nSUBCASE  2                                                                      \r\nLABEL  = SECOND ORDER STATICS SOLUTION                                          \r\nSPC    = 4                                                                      \r\nDSCOEFFICIENT = DEFAULT                                                         \r\n$                                                                               \r\nSUBCASE  3                                                                      \r\nLABEL  = NORMAL MODES WITH DIFFERENTIAL STIFFNESS                               \r\nSPC    = 4                                                                      \r\nMETHOD = 1                                                                      \r\n$                                                                               \r\nBEGIN BULK                                                                      \r\nPARAM,COUPMASS,1                                                                \r\nCORD2C,1  0  0. 0. 0.  0. 0. 1.                                                 \r\n,      1. 0. 0.                                                                 \r\nGRID,  1  1  5.0   0.0  0.5,, 345                                               \r\nGRID,  2  1  5.0   0.0 -0.5,  ==                                                \r\nGRID,  3  1  5.0  11.0  0.5,  ==                                                \r\nGRID,  4  1  5.0  11.0 -0.5,  ==                                                \r\nGRID,  5  1  5.0  22.0  0.5,  ==                                                \r\nGRID,  6  1  5.0  22.0 -0.5,  ==                                                \r\nGRID,  7  1  5.0  33.0  0.5,  ==                                                \r\nGRID,  8  1  5.0  33.0 -0.5,  ==                                                \r\nGRID,  9  1  5.0  45.0  0.5,  ==                                                \r\nGRID, 10  1  5.0  45.0 -0.5,  ==                                                \r\nGRID, 11  1  5.0  56.0  0.5,  ==                                                \r\nGRID, 12  1  5.0  56.0 -0.5,  ==                                                \r\nGRID, 13  1  5.0  67.0  0.5,  ==                                                \r\nGRID, 14  1  5.0  67.0 -0.5,  ==                                                \r\nGRID, 15  1  5.0  78.0  0.5,  ==                                                \r\nGRID, 16  1  5.0  78.0 -0.5,  ==                                                \r\nGRID, 17  1  5.0  90.0  0.5,  ==                                                \r\nGRID, 18  1  5.0  90.0 -0.5,  ==                                                \r\n$                                                                               \r\n$ SPC=1 FOR SYMMETRY-SYMMETRY BC'S                                              \r\n$                                                                               \r\nSPC, 1  1 26,,  2 26                                                            \r\nSPC, 1 17 16,, 18 16                                                            \r\n$                                                                               \r\n$ SPC=2 FOR SYMMETRY-ANTISYMMETRY BC'S                                          \r\n$                                                                               \r\nSPC, 2  1  1,,  2  1                                                            \r\nSPC, 2 17 16,, 18 16                                                            \r\n$                                                                               \r\n$ SPC=3 FOR ANTISYMMETRY-SYMMETRY BC'S                                          \r\n$                                                                               \r\nSPC, 3  1 26,,  2 26                                                            \r\nSPC, 3 17  2,, 18  2                                                            \r\n$                                                                               \r\n$ SPC=4 FOR ANTISYMMETRY-ANTISYMMETRY BC'S                                      \r\n$                                                                               \r\nSPC, 4, 1, 1,,  2, 1                                                            \r\nSPC, 4,17, 2,, 18, 2                                                            \r\n$                                                                               \r\nCQUAD2, 1, 1, 1, 2, 4, 3                                                        \r\n=(7), *(1),=,*(2), ///                                                          \r\nPQUAD2, 1, 1, 0.1                                                               \r\n$                                                                               \r\nCPSE3, 10  2  1  2  4                                                           \r\n=(3), *(1),=,*(2), //                                                           \r\nCPSE3, 15  2  4  3  1                                                           \r\n=(3), *(1),=,*(2), //                                                           \r\n$                                                                               \r\nCPSE4, 20  2  9 10 12 11                                                        \r\n=(3), *(1),=,*(2), ///                                                          \r\n$                                                                               \r\nPPSE,  2  1000.                                                                 \r\nPLOAD2,1  1000. 1 THRU 8                                                        \r\nMAT1,  1  1.0E7,, 0.33   4.28                                                   \r\nEIGR,  1  FEER,,  1.0E-8,, 10                                                   \r\n, MAX                                                                           \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t16011a.inp",
    "content": "NASTRAN FILES = PLT2                                                            \r\nID    T16011A,NASTRAN                                                           \r\nAPP   DISPLACEMENT                                                              \r\nSOL   16                                                                        \r\nDIAG  14                                                                        \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = STATIC AEROTHERMOELASTIC ANALYSIS OF A ROTOR BLADE                   \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T16-01-1A                                   \r\nSPC    = 500                                                                    \r\nMPC    = 600                                                                    \r\nLOAD   = 1                                                                      \r\nDISP   = ALL                                                                    \r\nSPCF   = ALL                                                                    \r\nOLOAD  = ALL                                                                    \r\nSTRESS = ALL                                                                    \r\nFORCE  = ALL                                                                    \r\nSUBCASE 1                                                                       \r\nLABEL  = LINEAR SOLUTION OF ROTOR BLADE                                         \r\nSUBCASE 2                                                                       \r\nLABEL  = NONLINEAR SOLUTION OF ROTOR BLADE                                      \r\nGPFORCE= ALL                                                                    \r\nOUTPUT(PLOT)                                                                    \r\nPLOTTER NASTPLT D,0                                                             \r\nPAPER SIZE 10.0 X 10.0                                                          \r\nSET 1  = ALL                                                                    \r\nORTHOGRAPHIC PROJECTION                                                         \r\nMAXIMUM DEFORMATION 0.5                                                         \r\nAXES X,Y,Z                                                                      \r\nVIEW 0.0,0.0,0.0                                                                \r\nFIND SCALE, ORIGIN 1, SET 1                                                     \r\nPLOT SET 1, ORIGIN 1, LABEL                                                     \r\nAXES Y,Z,X                                                                      \r\nFIND SCALE, ORIGIN 2, SET 1                                                     \r\nPLOT SET 1, ORIGIN 2, LABEL                                                     \r\nAXES Z,X,Y                                                                      \r\nFIND SCALE, ORIGIN 3, SET 1                                                     \r\nPLOT SET 1, ORIGIN 3, LABEL                                                     \r\nAXES X,Y,Z                                                                      \r\nVIEW 34.27,23.17,0.0                                                            \r\nFIND SCALE, ORIGIN 4, SET 1                                                     \r\nPLOT STATIC DEFORMATION 0,   SET 1, ORIGIN 4, LABEL                             \r\nAXES Z,X,Y                                                                      \r\nVIEW 0.0,0.0,0.0                                                                \r\nFIND SCALE, ORIGIN 5, SET 1                                                     \r\nPLOT STATIC DEFORMATION 0,   SET 1, ORIGIN 5, LABEL                             \r\nBEGIN BULK                                                                      \r\nCHEXA1  201     1       101     103     104     108     113     115     +CH1    \r\n+CH1    116     120                                                             \r\nCHEXA1  202     1       108     104     105     107     120     116     +CH2    \r\n+CH2    117     119                                                             \r\nCHEXA1  203     1       121     123     124     128     101     103     +CH3    \r\n+CH3    104     108                                                             \r\nCHEXA1  204     1       128     124     125     127     108     104     +CH4    \r\n+CH4    105     107                                                             \r\nCORD2C  1               0.      0.      0.      1.0     0.      0.      +CD1    \r\n+CD1    0.      0.      1.                                                      \r\nCTRIA2         1    2000       1       5       4                                \r\nCTRIA2         2    2000       1       2       5                                \r\nCTRIA2         3    2005       2       6       5                                \r\nCTRIA2         4    2005       2       3       6                                \r\nCTRIA2         5    2010       4       8       7                                \r\nCTRIA2         6    2010       4       5       8                                \r\nCTRIA2         7    2015       5       9       8                                \r\nCTRIA2         8    2015       5       6       9                                \r\nCTRIA2         9    2020       7      11      10                                \r\nCTRIA2        10    2020       7       8      11                                \r\nCTRIA2        11    2025       8      12      11                                \r\nCTRIA2        12    2025       8       9      12                                \r\nDTI     ALGDB          0     135       0       0       0       0       0+AL    0\r\n+AL    0ENDREC                                                          +AL    1\r\nDTI     ALGDB          1NASA LEWIS EXPERIMENTAL FAN                     +AL    2\r\n+AL    2                        ENDREC                                  +AL    3\r\nDTI     ALGDB          2       1       1       0       0       0       0+AL    4\r\n+AL    4       0       0       0       0       0       0       0       0+AL    5\r\n+AL    5       0       0       0       0       0       0       0       0+AL    6\r\n+AL    6       0       0ENDREC                                          +AL    7\r\nDTI     ALGDB          3GRID GENERATION                                 +AL    8\r\n+AL    8                        ENDREC                                  +AL    9\r\nDTI     ALGDB          4       4       5       3       4      30      43+AL   10\r\n+AL   10       2       0       2       1       0       3       0       0+AL   11\r\n+AL   11       2       4       1       0       0       0       0       0+AL   12\r\n+AL   12       0       0ENDREC                                          +AL   13\r\nDTI*    ALGDB                          5 0.438399982E 01 0.999999905E 01+AL   14\r\n*AL   14 0.999999940E 00               0 0.109999990E 02               0+AL   15\r\n+AL   15ENDREC                                                          +AL   16\r\nDTI     ALGDB          6       2       0       0       0       0       0+AL   17\r\n+AL   17       0       0       0       0       0       0       0       0+AL   18\r\n+AL   18       0       0       0       0       0       0       0       0+AL   19\r\n+AL   19       0       0ENDREC                                          +AL   20\r\nDTI*    ALGDB                          7-0.199999905E 01 0.359999943E 01+AL   21\r\n*AL   21               0               0               0               0+AL   22\r\n+AL   22ENDREC                                                          +AL   23\r\nDTI*    ALGDB                          8-0.199999905E 01 0.100400000E 02+AL   24\r\n*AL   24               0               0               0               0+AL   25\r\n+AL   25ENDREC                                                          +AL   26\r\nDTI*    ALGDB                          9 0.359999943E 01               0+AL   27\r\n*AL   27               0               0               0               0+AL   28\r\n+AL   28ENDREC                                                          +AL   29\r\nDTI*    ALGDB                         10 0.549999905E 01               0+AL   30\r\n*AL   30               0               0               0               0+AL   31\r\n+AL   31ENDREC                                                          +AL   32\r\nDTI*    ALGDB                         11 0.739999962E 01               0+AL   33\r\n*AL   33               0               0               0               0+AL   34\r\n+AL   34ENDREC                                                          +AL   35\r\nDTI*    ALGDB                         12 0.100400000E 02               0+AL   36\r\n*AL   36               0               0               0               0+AL   37\r\n+AL   37ENDREC                                                          +AL   38\r\nDTI     ALGDB         13       4       1ENDREC                          +AL   39\r\nDTI*    ALGDB                         14-0.898070633E 00 0.378958511E 01+AL   40\r\n*AL   40ENDREC                                                          +AL   41\r\nDTI*    ALGDB                         15-0.765281737E 00 0.547675800E 01+AL   42\r\n*AL   42ENDREC                                                          +AL   43\r\nDTI*    ALGDB                         16-0.638598502E 00 0.736359024E 01+AL   44\r\n*AL   44ENDREC                                                          +AL   45\r\nDTI*    ALGDB                         17-0.405804217E 00 0.995540905E 01+AL   46\r\n*AL   46ENDREC                                                          +AL   47\r\nDTI*    ALGDB                         18 0.378958511E 01               0+AL   48\r\n*AL   48ENDREC                                                          +AL   49\r\nDTI*    ALGDB                         19 0.547675800E 01               0+AL   50\r\n*AL   50ENDREC                                                          +AL   51\r\nDTI*    ALGDB                         20 0.736359024E 01               0+AL   52\r\n*AL   52ENDREC                                                          +AL   53\r\nDTI*    ALGDB                         21 0.995540905E 01               0+AL   54\r\n*AL   54ENDREC                                                          +AL   55\r\nDTI     ALGDB         22       4       1ENDREC                          +AL   56\r\nDTI*    ALGDB                         23-0.707454019E-04 0.399898529E 01+AL   57\r\n*AL   57ENDREC                                                          +AL   58\r\nDTI*    ALGDB                         24-0.459544128E-03 0.549857426E 01+AL   59\r\n*AL   59ENDREC                                                          +AL   60\r\nDTI*    ALGDB                         25-0.911400467E-02 0.739762974E 01+AL   61\r\n*AL   61ENDREC                                                          +AL   62\r\nDTI*    ALGDB                         26-0.106336363E-01 0.999707603E 01+AL   63\r\n*AL   63ENDREC                                                          +AL   64\r\nDTI*    ALGDB                         27 0.399898529E 01               0+AL   65\r\n*AL   65ENDREC                                                          +AL   66\r\nDTI*    ALGDB                         28 0.549857426E 01               0+AL   67\r\n*AL   67ENDREC                                                          +AL   68\r\nDTI*    ALGDB                         29 0.739762974E 01               0+AL   69\r\n*AL   69ENDREC                                                          +AL   70\r\nDTI*    ALGDB                         30 0.999707603E 01               0+AL   71\r\n*AL   71ENDREC                                                          +AL   72\r\nDTI     ALGDB         31       4       1ENDREC                          +AL   73\r\nDTI*    ALGDB                         32 0.897929192E 00 0.419198513E 01+AL   74\r\n*AL   74ENDREC                                                          +AL   75\r\nDTI*    ALGDB                         33 0.779861093E 00 0.549377537E 01+AL   76\r\n*AL   76ENDREC                                                          +AL   77\r\nDTI*    ALGDB                         34 0.623993874E 00 0.736712265E 01+AL   78\r\n*AL   78ENDREC                                                          +AL   79\r\nDTI*    ALGDB                         35 0.413974285E 00 0.996370506E 01+AL   80\r\n*AL   80ENDREC                                                          +AL   81\r\nDTI*    ALGDB                         36 0.419198513E 01               0+AL   82\r\n*AL   82ENDREC                                                          +AL   83\r\nDTI*    ALGDB                         37 0.549377537E 01               0+AL   84\r\n*AL   84ENDREC                                                          +AL   85\r\nDTI*    ALGDB                         38 0.736712265E 01               0+AL   86\r\n*AL   86ENDREC                                                          +AL   87\r\nDTI*    ALGDB                         39 0.996370506E 01               0+AL   88\r\n*AL   88ENDREC                                                          +AL   89\r\nDTI     ALGDB         40       2       0       0       0       0       0+AL   90\r\n+AL   90       0       0       0       0       0       0       0       0+AL   91\r\n+AL   91       0       0       0       0       0       0       0       0+AL   92\r\n+AL   92       0       0ENDREC                                          +AL   93\r\nDTI*    ALGDB                         41 0.199999905E 01 0.439999962E 01+AL   94\r\n*AL   94               0               0               0               0+AL   95\r\n+AL   95ENDREC                                                          +AL   96\r\nDTI*    ALGDB                         42 0.199999905E 01 0.100400000E 02+AL   97\r\n*AL   97               0               0               0               0+AL   98\r\n+AL   98ENDREC                                                          +AL   99\r\nDTI*    ALGDB                         43 0.439999962E 01               0+AL  100\r\n*AL  100               0               0               0               0+AL  101\r\n+AL  101ENDREC                                                          +AL  102\r\nDTI*    ALGDB                         44 0.549999905E 01               0+AL  103\r\n*AL  103               0               0               0               0+AL  104\r\n+AL  104ENDREC                                                          +AL  105\r\nDTI*    ALGDB                         45 0.739999962E 01               0+AL  106\r\n*AL  106               0               0               0               0+AL  107\r\n+AL  107ENDREC                                                          +AL  108\r\nDTI*    ALGDB                         46 0.100400000E 02               0+AL  109\r\n*AL  109               0               0               0               0+AL  110\r\n+AL  110ENDREC                                                          +AL  111\r\nDTI*    ALGDB                         47 0.999999940E 00-0.381756897E 02+AL  112\r\n*AL  112 0.329245758E 02               0               0 0.161499977E-01+AL  113\r\n+AL  113ENDREC                                                          +AL  114\r\nDTI*    ALGDB                         48 0.979999900E-01 0.155899972E-01+AL  115\r\n*AL  115 0.559999943E 00 0.179599857E 01 0.471492521E-01-0.222556889E-01+AL  116\r\n+AL  116ENDREC                                                          +AL  117\r\nDTI*    ALGDB                         49 0.199999905E 01-0.437350769E 02+AL  118\r\n*AL  118-0.468236637E 01               0               0 0.124260001E-01+AL  119\r\n+AL  119ENDREC                                                          +AL  120\r\nDTI*    ALGDB                         50 0.734763145E-01 0.135056563E-01+AL  121\r\n*AL  121 0.539999962E 00 0.185159492E 01 0.676045194E-02-0.272210650E-01+AL  122\r\n+AL  122ENDREC                                                          +AL  123\r\nDTI*    ALGDB                         51 0.299999905E 01-0.524065857E 02+AL  124\r\n*AL  124-0.400783386E 02               0               0 0.912010297E-02+AL  125\r\n+AL  125ENDREC                                                          +AL  126\r\nDTI*    ALGDB                         52 0.360004082E-01 0.966010615E-02+AL  127\r\n*AL  127 0.489999950E 00 0.186397648E 01-0.834399834E-02 0.131941922E-01+AL  128\r\n+AL  128ENDREC                                                          +AL  129\r\nDTI*    ALGDB                         53 0.399999905E 01-0.724938965E 02+AL  130\r\n*AL  130-0.592066498E 02               0               0 0.482162833E-02+AL  131\r\n+AL  131ENDREC                                                          +AL  132\r\nDTI*    ALGDB                         54 0.268090703E-01 0.429144874E-02+AL  133\r\n*AL  133 0.479999959E 00 0.186236858E 01-0.373036265E-01 0.498055629E-01+AL  134\r\n+AL  134ENDREC                                                          +AL  135\r\nDTI     ALGDB         55       1       5       1       2       2       4+AL  136\r\n+AL  136       0       0       0       0       0       0       0       0+AL  137\r\n+AL  137       0       0       0       0       0       0       0       0+AL  138\r\n+AL  138       0       0ENDREC                                          +AL  139\r\nDTI*    ALGDB                         56 0.999999940E 00 0.160427969E 05+AL  140\r\n*AL  140               0               0               0               0+AL  141\r\n+AL  141ENDREC                                                          +AL  142\r\nDTI     ALGDB         57       0       0      10       0       0       0+AL  143\r\n+AL  143       0       0       0       0       0       0       0       0+AL  144\r\n+AL  144       0       0       0       0       0       0       0       0+AL  145\r\n+AL  145       0       0ENDREC                                          +AL  146\r\nDTI     ALGDB         58       1       0       0       4      -1      -1+AL  147\r\n+AL  147       0       1       0       0       0       0       0     -43+AL  148\r\n+AL  148       0       0       0       0       0       0       0       0+AL  149\r\n+AL  149       0       0ENDREC                                          +AL  150\r\nDTI     ALGDB         59       0       0       0       0       0       0+AL  151\r\n+AL  151       0       0       0       0       0       0       0       0+AL  152\r\n+AL  152       0       0       0       0       0       0       0       0+AL  153\r\n+AL  153       0       0ENDREC                                          +AL  154\r\nDTI     ALGDB         60       8       0       0       1      -2      -2+AL  155\r\n+AL  155      -1       0       0       2       0       0      20     -43+AL  156\r\n+AL  156       0       0       0       0       0       0       0       0+AL  157\r\n+AL  157       0       0ENDREC                                          +AL  158\r\nDTI*    ALGDB                         61 0.419999981E 01 0.499999970E-01+AL  159\r\n*AL  159               0               0               0               0+AL  160\r\n+AL  160ENDREC                                                          +AL  161\r\nDTI*    ALGDB                         62 0.461999989E 01 0.499999970E-01+AL  162\r\n*AL  162               0               0               0               0+AL  163\r\n+AL  163ENDREC                                                          +AL  164\r\nDTI*    ALGDB                         63 0.549999905E 01 0.499999970E-01+AL  165\r\n*AL  165               0               0               0               0+AL  166\r\n+AL  166ENDREC                                                          +AL  167\r\nDTI*    ALGDB                         64 0.649999905E 01 0.499999970E-01+AL  168\r\n*AL  168               0               0               0               0+AL  169\r\n+AL  169ENDREC                                                          +AL  170\r\nDTI*    ALGDB                         65 0.739999962E 01 0.499999970E-01+AL  171\r\n*AL  171               0               0               0               0+AL  172\r\n+AL  172ENDREC                                                          +AL  173\r\nDTI*    ALGDB                         66 0.839999962E 01 0.499999970E-01+AL  174\r\n*AL  174               0               0               0               0+AL  175\r\n+AL  175ENDREC                                                          +AL  176\r\nDTI*    ALGDB                         67 0.949999905E 01 0.499999970E-01+AL  177\r\n*AL  177               0               0               0               0+AL  178\r\n+AL  178ENDREC                                                          +AL  179\r\nDTI*    ALGDB                         68 0.999999905E 01 0.499999970E-01+AL  180\r\n*AL  180               0               0               0               0+AL  181\r\n+AL  181ENDREC                                                          +AL  182\r\nDTI     ALGDB         69       0       0       0       0       0       0+AL  183\r\n+AL  183       0       0       0       0       0       0       0       0+AL  184\r\n+AL  184       0       0       0       0       0       0       0       0+AL  185\r\n+AL  185       0       0ENDREC                                          +AL  186\r\nDTI     ALGDB         70       0       0       0       0       0       0+AL  187\r\n+AL  187       0       0       0       0       0       0       0       0+AL  188\r\n+AL  188       0       0       0       0       0       0       0       0+AL  189\r\n+AL  189       0       0ENDREC                                          +AL  190\r\nDTI*    ALGDB                         71 0.249999940E 00 0.249999940E 00+AL  191\r\n*AL  191               0               0               0               0+AL  192\r\n+AL  192ENDREC                                                          +AL  193\r\nDTI*    ALGDB                         72 0.499999940E 00 0.499999940E 00+AL  194\r\n*AL  194               0               0               0               0+AL  195\r\n+AL  195ENDREC                                                          +AL  196\r\nDTI*    ALGDB                         73 0.749999940E 00 0.749999940E 00+AL  197\r\n*AL  197               0               0               0               0+AL  198\r\n+AL  198ENDREC                                                          +AL  199\r\nDTI*    ALGDB                         74 0.999999940E 00 0.999999940E 00+AL  200\r\n*AL  200               0               0               0               0+AL  201\r\n+AL  201ENDREC                                                          +AL  202\r\nDTI*    ALGDB                         75               0               0+AL  203\r\n*AL  203 0.499999940E 00               0               0               0+AL  204\r\n+AL  204       0       0       0       0       0       0       0       0+AL  205\r\n+AL  205       0       0       0       0       0       0       0       0+AL  206\r\n+AL  206       0       0ENDREC                                          +AL  207\r\nDTI     ALGDB         76AERODYNAMIC ANALYSIS OF NASA LEWIS BLADE        +AL  208\r\n+AL  208                        ENDREC                                  +AL  209\r\nDTI     ALGDB         77       0       0       0       0       0       0+AL  210\r\n+AL  210       0       0       0       0       0       0       0       0+AL  211\r\n+AL  211       0       0       0       0       0       0       0       0+AL  212\r\n+AL  212       0       0ENDREC                                          +AL  213\r\nDTI     ALGDB         78       7       4       0      40       0       0+AL  214\r\n+AL  214       0       1       1       0       0       0       0       0+AL  215\r\n+AL  215       0       3       0       0       3       5       1       0+AL  216\r\n+AL  216       0       0ENDREC                                          +AL  217\r\nDTI     ALGDB         79       3       4       5       0       0       0+AL  218\r\n+AL  218       0       0       0       0       0       0       0       0+AL  219\r\n+AL  219       0       0       0       0       0       0       0       0+AL  220\r\n+AL  220       0       0ENDREC                                          +AL  221\r\nDTI*    ALGDB                         80               0               0+AL  222\r\n*AL  222               0 0.999999931E-03               0               0+AL  223\r\n+AL  223       0       0       0       0       0       0       0       0+AL  224\r\n+AL  224       0       0       0       0       0       0       0       0+AL  225\r\n+AL  225       0       0ENDREC                                          +AL  226\r\nDTI*    ALGDB                         81 0.999999940E 00 0.999999940E 00+AL  227\r\n*AL  227 0.399999905E 01               0 0.699999988E 00 0.799999905E 01+AL  228\r\n+AL  228ENDREC                                                          +AL  229\r\nDTI     ALGDB         82       0       0       0       0       0       0+AL  230\r\n+AL  230       0       0       0       0       0       0       0       0+AL  231\r\n+AL  231       0       0       0       0       0       0       0       0+AL  232\r\n+AL  232       0       0ENDREC                                          +AL  233\r\nDTI*    ALGDB                         83 0.731459961E 02 0.999999940E 00+AL  234\r\n*AL  234               0               0               0               0+AL  235\r\n+AL  235ENDREC                                                          +AL  236\r\nDTI     ALGDB         84       2       0       0       0       0       0+AL  237\r\n+AL  237       0       0       0       0       0       0       0       0+AL  238\r\n+AL  238       0       0       0       0       0       0       0       0+AL  239\r\n+AL  239       0       0ENDREC                                          +AL  240\r\nDTI*    ALGDB                         85-0.399999905E 01 0.324999905E 01+AL  241\r\n*AL  241               0               0               0               0+AL  242\r\n+AL  242ENDREC                                                          +AL  243\r\nDTI*    ALGDB                         86-0.399999905E 01 0.100400000E 02+AL  244\r\n*AL  244               0               0               0               0+AL  245\r\n+AL  245ENDREC                                                          +AL  246\r\nDTI     ALGDB         87       2       0       0       0       0       0+AL  247\r\n+AL  247       0       0       0       0       0       0       0       0+AL  248\r\n+AL  248       0       0       0       0       0       0       0       0+AL  249\r\n+AL  249       0       0ENDREC                                          +AL  250\r\nDTI*    ALGDB                         88-0.199999905E 01 0.359999943E 01+AL  251\r\n*AL  251               0               0               0               0+AL  252\r\n+AL  252ENDREC                                                          +AL  253\r\nDTI*    ALGDB                         89-0.199999905E 01 0.100400000E 02+AL  254\r\n*AL  254               0               0               0               0+AL  255\r\n+AL  255ENDREC                                                          +AL  256\r\nDTI     ALGDB         90       4ENDREC                                  +AL  257\r\nDTI*    ALGDB                         91-0.898070633E 00 0.378958511E 01+AL  258\r\n*AL  258ENDREC                                                          +AL  259\r\nDTI*    ALGDB                         92-0.765281737E 00 0.547675800E 01+AL  260\r\n*AL  260ENDREC                                                          +AL  261\r\nDTI*    ALGDB                         93-0.638598502E 00 0.736359024E 01+AL  262\r\n*AL  262ENDREC                                                          +AL  263\r\nDTI*    ALGDB                         94-0.405804217E 00 0.995540905E 01+AL  264\r\n*AL  264ENDREC                                                          +AL  265\r\nDTI     ALGDB         95       4ENDREC                                  +AL  266\r\nDTI*    ALGDB                         96-0.707454019E-04 0.399898529E 01+AL  267\r\n*AL  267ENDREC                                                          +AL  268\r\nDTI*    ALGDB                         97-0.459544128E-03 0.549857426E 01+AL  269\r\n*AL  269ENDREC                                                          +AL  270\r\nDTI*    ALGDB                         98-0.911400467E-02 0.739762974E 01+AL  271\r\n*AL  271ENDREC                                                          +AL  272\r\nDTI*    ALGDB                         99-0.106336363E-01 0.999707603E 01+AL  273\r\n*AL  273ENDREC                                                          +AL  274\r\nDTI     ALGDB        100       4ENDREC                                  +AL  275\r\nDTI*    ALGDB                        101 0.897929192E 00 0.419198513E 01+AL  276\r\n*AL  276ENDREC                                                          +AL  277\r\nDTI*    ALGDB                        102 0.779861093E 00 0.549377537E 01+AL  278\r\n*AL  278ENDREC                                                          +AL  279\r\nDTI*    ALGDB                        103 0.623993874E 00 0.736712265E 01+AL  280\r\n*AL  280ENDREC                                                          +AL  281\r\nDTI*    ALGDB                        104 0.413974285E 00 0.996370506E 01+AL  282\r\n*AL  282ENDREC                                                          +AL  283\r\nDTI     ALGDB        105       2       0       0       0       0       0+AL  284\r\n+AL  284       0       0       0       0       0       0       0       0+AL  285\r\n+AL  285       0       0       0       0       0       0       0       0+AL  286\r\n+AL  286       0       0ENDREC                                          +AL  287\r\nDTI*    ALGDB                        106 0.199999905E 01 0.439999962E 01+AL  288\r\n*AL  288               0               0               0               0+AL  289\r\n+AL  289ENDREC                                                          +AL  290\r\nDTI*    ALGDB                        107 0.199999905E 01 0.100400000E 02+AL  291\r\n*AL  291               0               0               0               0+AL  292\r\n+AL  292ENDREC                                                          +AL  293\r\nDTI     ALGDB        108       2       0       0       0       0       0+AL  294\r\n+AL  294       0       0       0       0       0       0       0       0+AL  295\r\n+AL  295       0       0       0       0       0       0       0       0+AL  296\r\n+AL  296       0       0ENDREC                                          +AL  297\r\nDTI*    ALGDB                        109 0.399999905E 01 0.474999905E 01+AL  298\r\n*AL  298               0               0               0               0+AL  299\r\n+AL  299ENDREC                                                          +AL  300\r\nDTI*    ALGDB                        110 0.399999905E 01 0.100400000E 02+AL  301\r\n*AL  301               0               0               0               0+AL  302\r\n+AL  302ENDREC                                                          +AL  303\r\nDTI     ALGDB        111       1       0       0       0       0       0+AL  304\r\n+AL  304       0       0       0       0       0       0       0       0+AL  305\r\n+AL  305       0       0       0       0       0       0       0       0+AL  306\r\n+AL  306       0       0ENDREC                                          +AL  307\r\nDTI*    ALGDB                        112 0.324999905E 01 0.146999998E 02+AL  308\r\n*AL  308 0.518699951E 03               0               0               0+AL  309\r\n+AL  309ENDREC                                                          +AL  310\r\nDTI     ALGDB        113       0       0       0       0       0       0+AL  311\r\n+AL  311       0       0       0       0       0       0       0       0+AL  312\r\n+AL  312       0       0       0       0       0       0       0       0+AL  313\r\n+AL  313       0       0ENDREC                                          +AL  314\r\nDTI*    ALGDB                        114 0.399999905E 01               0+AL  315\r\n*AL  315               0               0               0               0+AL  316\r\n+AL  316ENDREC                                                          +AL  317\r\nDTI*    ALGDB                        115 0.999999905E 01 0.999999940E 00+AL  318\r\n*AL  318               0               0               0               0+AL  319\r\n+AL  319ENDREC                                                          +AL  320\r\nDTI     ALGDB        116       0       0       0       0       0       0+AL  321\r\n+AL  321       0       0       0       0       0       0       0       0+AL  322\r\n+AL  322       0       0       0       0       0       0       0       0+AL  323\r\n+AL  323       0       0ENDREC                                          +AL  324\r\nDTI     ALGDB        117       0       0       0       0       0       0+AL  325\r\n+AL  325       0       0       0       0       0       0       0       0+AL  326\r\n+AL  326       0       0       0       0       0       0       0       0+AL  327\r\n+AL  327       0       0ENDREC                                          +AL  328\r\nDTI     ALGDB        118       0       0       0       0       0       0+AL  329\r\n+AL  329       0       0       0       0       0       0       0       0+AL  330\r\n+AL  330       0       0       0       0       0       0       0       0+AL  331\r\n+AL  331       0       0ENDREC                                          +AL  332\r\nDTI     ALGDB        119       0       0       0       0       0       0+AL  333\r\n+AL  333       0       0       0       0       0       0       0       0+AL  334\r\n+AL  334       0       0       0       0       0       0       0       0+AL  335\r\n+AL  335       0       0ENDREC                                          +AL  336\r\nDTI     ALGDB        120       0       0       0       0       0       0+AL  337\r\n+AL  337       0       0       0       0       0       0       0       0+AL  338\r\n+AL  338       0       0       0       0       0       0       0       0+AL  339\r\n+AL  339       0       0ENDREC                                          +AL  340\r\nDTI     ALGDB        121       0       0       0       0       0       0+AL  341\r\n+AL  341       0       0       0       0       0       0       0       0+AL  342\r\n+AL  342       0       0       0       0       0       0       0       0+AL  343\r\n+AL  343       0       0ENDREC                                          +AL  344\r\nDTI     ALGDB        122       0       0       0       0       0       0+AL  345\r\n+AL  345       0       0       0       0       0       0       0       0+AL  346\r\n+AL  346       0       0       0       0       0       0       0       0+AL  347\r\n+AL  347       0       0ENDREC                                          +AL  348\r\nDTI     ALGDB        123       0       0       0       0       0       0+AL  349\r\n+AL  349       0       0       0       0       0       0       0       0+AL  350\r\n+AL  350       0       0       0       0       0       0       0       0+AL  351\r\n+AL  351       0       0ENDREC                                          +AL  352\r\nDTI     ALGDB        124       0       0       0       0       0       0+AL  353\r\n+AL  353       0       0       0       0       0       0       0       0+AL  354\r\n+AL  354       0       0       0       0       0       0       0       0+AL  355\r\n+AL  355       0       0ENDREC                                          +AL  356\r\nDTI     ALGDB        125       6       0       0       0       0       0+AL  357\r\n+AL  357       0       0       0       0       0       0       0       0+AL  358\r\n+AL  358       0       0       0       0       0       0       0       0+AL  359\r\n+AL  359       0       0ENDREC                                          +AL  360\r\nDTI*    ALGDB                        126               0 0.599999726E-02+AL  361\r\n*AL  361 0.599999726E-02 0.599999726E-02               0               0+AL  362\r\n+AL  362       0       0       0       0       0       0       0       0+AL  363\r\n+AL  363       0       0       0       0       0       0       0       0+AL  364\r\n+AL  364       0       0ENDREC                                          +AL  365\r\nDTI*    ALGDB                        127 0.199999988E 00 0.699999928E-02+AL  366\r\n*AL  366 0.699999928E-02 0.699999928E-02               0               0+AL  367\r\n+AL  367ENDREC                                                          +AL  368\r\nDTI*    ALGDB                        128 0.399999976E 00 0.139999986E-01+AL  369\r\n*AL  369 0.139999986E-01 0.139999986E-01               0               0+AL  370\r\n+AL  370ENDREC                                                          +AL  371\r\nDTI*    ALGDB                        129 0.599999964E 00 0.299999975E-01+AL  372\r\n*AL  372 0.309999995E-01 0.309999995E-01               0               0+AL  373\r\n+AL  373ENDREC                                                          +AL  374\r\nDTI*    ALGDB                        130 0.799999952E 00 0.599999987E-01+AL  375\r\n*AL  375 0.599999987E-01 0.599999987E-01               0               0+AL  376\r\n+AL  376ENDREC                                                          +AL  377\r\nDTI*    ALGDB                        131 0.999999940E 00 0.124999940E 00+AL  378\r\n*AL  378 0.124999940E 00 0.124999940E 00               0               0+AL  379\r\n+AL  379ENDREC                                                          +AL  380\r\nDTI     ALGDB        132       2       1       0       0       0       0+AL  381\r\n+AL  381       0       0       0       0       0       0       0       0+AL  382\r\n+AL  382       0       0       0       0       0       0       0       0+AL  383\r\n+AL  383       0       0ENDREC                                          +AL  384\r\nDTI     ALGDB        133       0       0       0       0       0       0+AL  385\r\n+AL  385       0       0       0       0       0       0       0       0+AL  386\r\n+AL  386       0       0       0       0       0       0       0       0+AL  387\r\n+AL  387       0       0ENDREC                                          +AL  388\r\nDTI     ALGDB        134       0       0       0       0       0       0+AL  389\r\n+AL  389       0       0       0       0       0       0       0       0+AL  390\r\n+AL  390       0       0       0       0       0       0       0       0+AL  391\r\n+AL  391       0       0ENDREC                                          +AL  392\r\nDTI*    ALGDB                        135 0.999999940E 00               0+AL  393\r\n*AL  393               0               0               0               0+AL  394\r\n+AL  394ENDREC                                                          +AL  395\r\nGRID           1         -0.8981 -0.2755  3.7796                                \r\nGRID           2         -0.0001  0.0540  3.9986                                \r\nGRID           3          0.8979 -0.2464  4.1847                                \r\nGRID           4         -0.7653 -0.4830  5.4554                                \r\nGRID           5         -0.0005  0.0209  5.4985                                \r\nGRID           6          0.7799  0.2307  5.4889                                \r\nGRID           7         -0.6386 -0.7217  7.3281                                \r\nGRID           8         -0.0091  0.0155  7.3976                                \r\nGRID           9          0.6240  0.6123  7.3416                                \r\nGRID          10         -0.4058 -1.1351  9.8905                                \r\nGRID          11         -0.0106 -0.0236  9.9970                                \r\nGRID          12          0.4140  0.8134  9.9304                                \r\nGRID    101     1       2.375   4.186   -0.987  1                               \r\nGRID    103     1       2.375   4.186   0.987   1                               \r\nGRID    104     1       2.375   0.0     0.987   1                               \r\nGRID    105     1       2.375   -4.186  0.987   1                               \r\nGRID    107     1       2.375   -4.186  -0.987  1                               \r\nGRID    108     1       2.375   0.0     -0.987  1                               \r\nGRID    113     1       3.982   4.186   -0.987  1                               \r\nGRID    115     1       4.539   4.186   0.987   1                               \r\nGRID    116     1       4.539   0.0     0.987                                   \r\nGRID    117     1       4.539   -4.186  0.987   1                               \r\nGRID    119     1       3.982   -4.186  -0.987  1                               \r\nGRID    120     1       3.982   0.0     -0.987                                  \r\nGRID    121     1       0.905   4.186   -0.987  1                               \r\nGRID    123     1       0.905   4.186   0.987   1                               \r\nGRID    124     1       0.905   0.0     0.987   1                               \r\nGRID    125     1       0.905   -4.186  0.987   1                               \r\nGRID    127     1       0.905   -4.186  -0.987  1                               \r\nGRID    128     1       0.905   0.0     -0.987  1                               \r\nMAT1    1       31.0E6          0.3     7.300E-4                                \r\nMPC     600     1       1       1.0     2       1       -1.0                    \r\nMPC     600     1       2       1.0     2       2       -1.0                    \r\nMPC     600     1       3       1.0     2       3       -1.0                    \r\nMPC     600     1       4       1.0     2       4       -1.0                    \r\nMPC     600     1       5       1.0     2       5       -1.0                    \r\nMPC     600     1       6       1.0     2       6       -1.0                    \r\nMPC     600     3       1       1.0     2       1       -1.0                    \r\nMPC     600     3       2       1.0     2       2       -1.0                    \r\nMPC     600     3       3       1.0     2       3       -1.0                    \r\nMPC     600     3       4       1.0     2       4       -1.0                    \r\nMPC     600     3       5       1.0     2       5       -1.0                    \r\nMPC     600     3       6       1.0     2       6       -1.0                    \r\nMPC     600     116     1       1.0     2       1       -1.0                    \r\nMPC     600     116     2       1.0     2       2       -1.0                    \r\nMPC     600     116     3       1.0     2       3       -1.0                    \r\nMPC     600     120     1       1.0     2       1       -1.0                    \r\nMPC     600     120     2       1.0     2       2       -1.0                    \r\nMPC     600     120     3       1.0     2       3       -1.0                    \r\nMPC     600     121     1       1.0     127     1       -1.0                    \r\nMPC     600     101     1       1.0     107     1       -1.0                    \r\nMPC     600     101     2       1.0     107     2       -1.0                    \r\nMPC     600     101     3       1.0     107     3       -1.0                    \r\nMPC     600     113     1       1.0     119     1       -1.0                    \r\nMPC     600     113     2       1.0     119     2       -1.0                    \r\nMPC     600     113     3       1.0     119     3       -1.0                    \r\nMPC     600     123     1       1.0     125     1       -1.0                    \r\nMPC     600     103     1       1.0     105     1       -1.0                    \r\nMPC     600     103     2       1.0     105     2       -1.0                    \r\nMPC     600     103     3       1.0     105     3       -1.0                    \r\nMPC     600     115     1       1.0     117     1       -1.0                    \r\nMPC     600     115     2       1.0     117     2       -1.0                    \r\nMPC     600     115     3       1.0     117     3       -1.0                    \r\nPARAM   APRESS  1                                                               \r\nPARAM   ATEMP   1                                                               \r\nPARAM   FXCOOR  1.0                                                             \r\nPARAM   FYCOOR  1.0                                                             \r\nPARAM   FZCOOR  1.0                                                             \r\nPARAM   IPRTCF  1                                                               \r\nPARAM   IPRTCI  1                                                               \r\nPARAM   IPRTCL  0                                                               \r\nPARAM   KTOUT   -1                                                              \r\nPARAM   PGEOM   1                                                               \r\nPARAM   SIGN    +1.0                                                            \r\nPARAM   STREAML 2                                                               \r\nPARAM   ZORIGN  0.0                                                             \r\nPTRIA2      2000       1  0.1040      0.                                        \r\nPTRIA2      2005       1  0.1040      0.                                        \r\nPTRIA2      2010       1  0.0707      0.                                        \r\nPTRIA2      2015       1  0.0707      0.                                        \r\nPTRIA2      2020       1  0.0422      0.                                        \r\nPTRIA2      2025       1  0.0422      0.                                        \r\nRFORCE  1       0       0       267.367  1.0    0.0     0.0                     \r\nSPC1    500     23      121     123     124     125     127     128             \r\nSPC1    500     45      7       10      12                                      \r\nSPC1    500     456     101     103     104     105     107     108             \r\nSPC1    500     456     113     115     116     117     119     120             \r\nSPC1    500     456     121     123     124     125     127     128             \r\nSTREAML1       1       1 THRU          3                                        \r\nSTREAML1       2       4 THRU          6                                        \r\nSTREAML1       3       7 THRU          9                                        \r\nSTREAML1       4      10 THRU         12                                        \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "inp/t17011a.inp",
    "content": "ID    T17011A,NASTRAN                                                           \r\n$                                                                               \r\n$     THIS DEMO IS SAME AS T03131A WHERE SOLUTION 3 IS USED WITH DMAP           \r\n$     ALTERS, COSDDAM                                                           \r\n$                                                                               \r\nSOL   17                                                                        \r\nAPP   DISP                                                                      \r\nDIAG  14,25                                                                     \r\nTIME  20                                                                        \r\nCEND                                                                            \r\nTITLE    = DYNAMIC DESIGN ANALYSIS METHOD, DDAM                                 \r\nSUBTITLE = NASTRAN TEST PROBLEM NO. T17-01-1A                                   \r\nLABEL    = HY-100 PLATFORM MODEL                                                \r\nOLOAD    = ALL                                                                  \r\nDISP     = ALL                                                                  \r\nMETHOD   = 1                                                                    \r\nSPC      = 1                                                                    \r\nFORCE(SORT2)  = ALL                                                             \r\nSTRESS(SORT2) = ALL                                                             \r\nBEGIN BULK                                                                      \r\nBAROR           1                       0.      1.      1.      1               \r\nCBAR    1               1       2                                               \r\nCBAR    2               2       3                                               \r\nCBAR    3               3       4                                               \r\nCBAR    4               4       5                                               \r\nCBAR    5       4       2       6       1.      0.      1.                      \r\nCBAR    6       5       3       8       1.      0.      1.                      \r\nCBAR    7       5       4       10      1.      0.      1.                      \r\nCBAR    8       2       6       7                                               \r\nCBAR    9       2       7       8                                               \r\nCBAR    10      2       8       9                                               \r\nCBAR    11      2       9       10                                              \r\nCBAR    12      4       6       11      1.      0.      1.                      \r\nCBAR    13      5       8       13      1.      0.      1.                      \r\nCBAR    14      5       10      15      1.      0.      1.                      \r\nCBAR    15      2       11      12                                              \r\nCBAR    16      2       12      13                                              \r\nCBAR    17      2       13      14                                              \r\nCBAR    18      2       14      15                                              \r\nCBAR    19      4       11      17      1.      0.      1.                      \r\nCBAR    20      5       13      20      1.      0.      1.                      \r\nCBAR    21      5       15      23      1.      0.      1.                      \r\nCBAR    22      3       16      17                                              \r\nCBAR    23      3       17      18                                              \r\nCBAR    24      3       18      19                                              \r\nCBAR    25      3       19      20                                              \r\nCBAR    26      3       20      21                                              \r\nCBAR    27      3       21      22                                              \r\nCBAR    28      3       22      23                                              \r\nCBAR    29      3       23      24                                              \r\nCBAR    30              19      25      0.      1.      -1.                     \r\nCBAR    31              22      26      0.      1.      -1.                     \r\nCBAR    32      4       17      27      1.      0.      1.                      \r\nCBAR    33      5       23      28      1.      0.      1.                      \r\nCONM2   32      2       1       7.76                                            \r\nCONM2   33      4       1       7.76                                            \r\nCONM2   34      7       1       9.52                                            \r\nCONM2   35      9       1       9.52                                            \r\nCONM2   36      11      1       29.97                                           \r\nCONM2   37      12      1       4.                                              \r\nCONM2   38      14      1       4.                                              \r\nCONM2   39      15      1       29.97                                           \r\nCONM2   40      18      1       5.                                              \r\nCONM2   41      21      1       5.                                              \r\nCORD2R  1               0.      0.      0.      0.      0.      1.      +COR1   \r\n+COR1   1.      0.      1.                                                      \r\nEIGR    1       GIV                             30              1.-3    +EGR1   \r\n+EGR1   MAX                                                                     \r\nGRID    1               0.      0.                                              \r\nGRID    2               0.      50.                                             \r\nGRID    3               0.      150.                                            \r\nGRID    4               0.      230.                                            \r\nGRID    5               0.      280.                                            \r\nGRID    6               48.     50.                                             \r\nGRID    7               48.     130.                                            \r\nGRID    8               48.     150.                                            \r\nGRID    9               48.     180.                                            \r\nGRID    10              48.     230.                                            \r\nGRID    11              120.    50.                                             \r\nGRID    12              120.    90.                                             \r\nGRID    13              120.    150.                                            \r\nGRID    14              120.    195.                                            \r\nGRID    15              120.    230.                                            \r\nGRID    16              180.    0.                                              \r\nGRID    17              180.    50.                                             \r\nGRID    18              180.    100.                                            \r\nGRID    19              180.    120.                                            \r\nGRID    20              180.    150.                                            \r\nGRID    21              180.    190.                                            \r\nGRID    22              180.    205.                                            \r\nGRID    23              180.    230.                                            \r\nGRID    24              180.    280.                                            \r\nGRID    25              180.    120.    -96.                                    \r\nGRID    26              180.    205.    -96.                                    \r\nGRID    27              230.    50.                                             \r\nGRID    28              230.    230.                                            \r\nMAT1    1       3.+7            .3      0.                                      \r\nOMIT1   456     1       THRU    15                                              \r\nOMIT1   456     17      THRU    23                                              \r\nOMIT1   123456  3       6       8       10      13      17      19      +OMT1   \r\n+OMT1   20      22      23                                                      \r\nPBAR    1       1       20.     332.    133.    3.8                     +BAR1   \r\n+BAR1   4.8     5.0     4.8     -5.0    -4.8    -5.     -4.8    5.0             \r\nPBAR    2       1       12.6    114.    51.2    1.4                     +BAR2   \r\n+BAR2   3.6     4.      3.6     -4.     -3.6    -4.     -3.6    4.              \r\nPBAR    3       1       20.     332.    133.    3.8                     +BAR3   \r\n+BAR3   4.8     5.      4.8     -5.     -4.8    -5.     -4.8    5.              \r\nPBAR    4       1       44.     861.    432.    30.                     +BAR4   \r\n+BAR4   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\nPBAR    5       1       44.     861.    432.    30.                     +BAR5   \r\n+BAR5   5.5     6.      5.5     -6.     -5.5    -6.     -5.5    6.              \r\nSPC1    1       123     1       5                                               \r\nSPC1    1       123456  16      24      25      26      27      28              \r\nPARAM   ACCA    10.4                                                            \r\nPARAM   ACCB    480.                                                            \r\nPARAM   ACCC    20.                                                             \r\nPARAM   ACCD    0.                                                              \r\nPARAM   ACC1    .4                                                              \r\nPARAM   ACC2    1.                                                              \r\nPARAM   ACC3    1.                                                              \r\nPARAM   VELA    20.                                                             \r\nPARAM   VELB    480.                                                            \r\nPARAM   VELC    100.                                                            \r\nPARAM   VEL1    .4                                                              \r\nPARAM   VEL2    1.                                                              \r\nPARAM   VEL3    1.                                                              \r\nPARAM   LMODES  30                                                              \r\nENDDATA                                                                         \r\n"
  },
  {
    "path": "mds/DSIOF.COM",
    "content": "       PARAMETER  ( MAXPRI = 80, MAXFCB = 89 )\r\n       COMMON / DSIO /  IEOR          \r\n     *,         IOERR , IPRVOP, IRETRN, IRWORD, IDATAD          \r\n     *,         IDSN  , LCW   , LWORDS, MASKH1, MASKH2          \r\n     *,         MASKE1, MASKE2, MASKE3, MASKE4, MAXDSN, NWORDS          \r\n     *,         NBUFF , IOBLK , NBFZ  , NLR             \r\n     *,         MASKQ1, MASKQ2, MASKQ3, MASKQ4, IDSX  , IDSP            \r\n     *,         IDSC  , IDSRH , IDSRT , IDSSB , IDSSE , IDSCH           \r\n     *,         IDSCT , IDSSH , IDSST , IDSSD , IDSEB , IDSEF           \r\n     *,         IBLOCK, LASNAM, MCBMAS, MULQ1 , MULQ2 , MULQ3\r\n     *,         LHALF\r\n     *,         LENDSP, LENWPB, NWRDEL(4)     \r\n        COMMON /DSNAME/ MDSNAM(MAXFCB)\r\n        COMMON /DSDEVC/ NUMDEV, DEV(10)\r\n        CHARACTER*2     DEV\r\n        CHARACTER*80    MDSNAM     \r\n        COMMON /DBM   / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP\r\n     *,                 NBLOCK, LENALC, IOCODE, IFILEX, NAME,   MAXALC\r\n     *,                 MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR \r\n     *,                 NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC   \r\n        INTEGER  FCB\r\n        COMMON / FCB  / FCB(17,MAXFCB)\r\n"
  },
  {
    "path": "mds/GINOX.COM",
    "content": "      PARAMETER  ( NUMFCB=89, NUMSOF=10 )\r\n      COMMON / GINOX / LGINOX, IDSLIM, MDSFCB( 3,NUMFCB ), \r\n     &                 LENSOF( NUMSOF )  \r\n      \r\n"
  },
  {
    "path": "mds/NASNAMES.COM",
    "content": "      COMMON / DOSNAM / DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH\r\n     &,                 PLOT,   NPTP , DIC  , OPTP  , RDIC, IN12, OUT11\r\n     &,                 INP1,   INP2 \r\n      CHARACTER * 72    DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH\r\n      CHARACTER * 72    PLOT  , NPTP , DIC  , OPTP  , RDIC, IN12, OUT11\r\n      CHARACTER * 72    INP1,   INP2\r\n      COMMON / DSNAME / DSNAMES(89)\r\n      CHARACTER * 80    DSNAMES\r\n"
  },
  {
    "path": "mds/PAKBLK.COM",
    "content": "      COMMON / PAKBLK / ITYPI, ITYPO, ITRAIL, IBLKA(15), IBLKB(15),   \r\n     *                  IBLKC(15)   , IBLKD(15)                       \r\n\u001a"
  },
  {
    "path": "mds/XNSTRN.COM",
    "content": "      COMMON / ZZZZZZ / IBASE(700000)\r\n"
  },
  {
    "path": "mds/ZZZZZZ.COM",
    "content": "      COMMON / ZZZZZZ /MEM(10)\r\n"
  },
  {
    "path": "mds/bckrec.f",
    "content": "        SUBROUTINE BCKREC ( FILE )                                              \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        INTEGER FILE                                                            \r\n        NAME = FILE                                                             \r\n        CALL DSGEFL                                                             \r\n        CALL DSBRC1                                                             \r\n        CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/bldpk.f",
    "content": "        SUBROUTINE BLDPK ( ITYPIN, ITYPOT, FILE, BLOCK, IFLAG )                 \r\n        INCLUDE 'PAKBLK.COM'                                                    \r\n        INCLUDE 'DSIOF.COM'                                                     \r\n        INTEGER  BLOCK(15), FILE                                                \r\n        ITRAIL = IFLAG                                                          \r\n        ITYPI  = ITYPIN                                                         \r\n        ITYPO  = ITYPOT                                                         \r\n        NAME   = FILE                                                           \r\n        IF ( ITYPI .LT. 1 .OR. ITYPI .GT. 4 ) GO TO 40                          \r\n        IF ( ITYPO .LT. 1 .OR. ITYPO .GT. 4 ) GO TO 40                          \r\n        IF ( IFLAG .EQ. 0 ) GO TO 20                                            \r\n        CALL DSBLPK ( BLOCK )                                                   \r\n        GO TO 30                                                                \r\n20      ITRAIL = 0                                                              \r\n        CALL DSBLPK ( IBLKA )                                                   \r\n30      GO TO 700                                                               \r\n40      IF ( IFLAG .EQ. 0 ) CALL DSMSG1 ( IBLKA )                               \r\n        IF ( IFLAG .NE. 0 ) CALL DSMSG1 ( BLOCK )                               \r\n        CALL DSMSG( 118 )                                                       \r\n700     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/bldpki.f",
    "content": "        SUBROUTINE BLDPKI ( A, I, FILE, BLOCK )                                 \r\n      INTEGER BLOCK(15), A(4), FILE                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      NAME   = FILE                                                             \r\n      BLOCK( 15 ) = I                                                           \r\n      ITYPIN = BLOCK( 13 )                                                      \r\n      NWORDS = NWRDEL( ITYPIN )                                                 \r\n      IF ( BLOCK( 2 ) .GE. 3 ) GO TO 5                                          \r\n      INCCNT = 1                                                                \r\n      GO TO 8                                                                   \r\n5     INCCNT = 2                                                                \r\n8     CONTINUE                                                                  \r\n      DO 10 K = 1, NWORDS                                                       \r\n      IF ( A( K ) .NE. 0 ) GO TO 20                                             \r\n10    CONTINUE                                                                  \r\n      GO TO 7000                                                                \r\n20    IF ( BLOCK( 4 ) .EQ. 0 ) GO TO 35                                         \r\n      NEXROW = BLOCK( 4 ) + BLOCK( 7 )                                          \r\n      ICROW  = BLOCK( 15 )                                                      \r\n      IF ( ICROW .GE. NEXROW ) GO TO 30                                         \r\n      CALL DSMSG1( BLOCK )                                                      \r\n      CALL DSMSG( 119 )                                                         \r\n30    IF ( ICROW .EQ. NEXROW ) GO TO 40                                         \r\n      CALL ENDPUT( BLOCK )                                                      \r\n      CALL PUTSTR( BLOCK )                                                      \r\n      BLOCK( 7 ) = 0                                                            \r\n35    ICROW = BLOCK( 15 )                                                       \r\n      BLOCK( 4 ) = ICROW                                                        \r\n40    INDEX  = ( BLOCK( 5 ) - 1  ) * BLOCK( 14 ) + 1                            \r\n      IF ( ITYPIN .NE. BLOCK( 2 ) ) GO TO 100                                   \r\nCDIR$ NOVECTOR                                                                  \r\n      DO 70 KK = 1, NWORDS                                                      \r\n      IBASE( INDEX + KK - 1 ) = A( KK )                                         \r\n70    CONTINUE                                                                  \r\nCDIR$ VECTOR                                                                    \r\n      GO TO 200                                                                 \r\n100   CALL DSUPKC ( ITYPIN, BLOCK( 2 ), A, IBASE( INDEX ) )                     \r\n200   CONTINUE                                                                  \r\n      BLOCK( 5 ) = BLOCK( 5 ) + INCCNT                                          \r\n      BLOCK( 7 ) = BLOCK( 7 ) + 1                                               \r\n      BLOCK(10 ) = BLOCK(10 ) + BLOCK( 11 )                                     \r\n      IF ( BLOCK( 6 ) .GT. BLOCK( 7 ) ) GO TO 7000                              \r\n      CALL ENDPUT( BLOCK )                                                      \r\n      CALL PUTSTR( BLOCK )                                                      \r\n      BLOCK( 4 ) = 0                                                            \r\n      BLOCK( 7 ) = 0                                                            \r\n7000  RETURN                                                                    \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/bldpkn.f",
    "content": "      SUBROUTINE BLDPKN ( FILE, BLOCK,  MCB )                                   \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INTEGER FILE, BLOCK( 15 ), MCB( 7 )                                       \r\n      NAME = FILE                                                               \r\n      IF ( BLOCK( 1) .EQ. 0 ) GO TO 10                                          \r\n      CALL DSBPNK ( BLOCK, MCB )                                                \r\n      GO TO 20                                                                  \r\n10    CALL DSBPNK ( IBLKA, MCB )                                                \r\n20    CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/bpack.f",
    "content": "      SUBROUTINE BPACK (IG,I,J,L)        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\nC        \r\nCDC   NEXT 2 LINES FOR CDC AND UNIVAC ONLY        \r\nC     EXTERNAL         ORF,      LSHIFT        \r\nC     INTEGER          IG(1)        \r\nC        \r\nC     NEXT LINE FOR IBM, VAX, AND MACHINES THAT HAVE INTEGER*2        \r\n      INTEGER*2        IG(1)        \r\nC        \r\n      COMMON /BANDB /  NBIT,     DUM3B(3), IPASS,    NW,       DUM1B,   \r\n     1                 NBPW        \r\n      COMMON /BANDS /  DUM4S(4), II1,      DUM5S(5), MASK        \r\nC        \r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE        \r\nC        \r\nC     PACK INTERNAL GRID NO. INTO IG TABLE.  SEE BUNPK FOR UNPACKING    \r\nC     TABLE IG IS PACKED COLUMN-WISE.        \r\nC     USE APPROP. PORTION OF THIS ROUTINE FOR DIFFERENT TYPE OF MACHINE.\r\nC     IPASS=COUNTER ON NUMBER OF CALLS TO PACK/UNPACK        \r\nC        \r\nC     NOTE - THIS ROUTINE DOES NOT CHECK NOR ZERO OUT THE PACKING SLOT  \r\nC            BEFORE PACKING.        \r\nC            L IS ASSUMED TO BE A POSITIVE INTEGER, NBIT BITS OR LESS   \r\nC        \r\n      IPASS=IPASS+1        \r\n      LOC  =J-1        \r\nC        \r\nC     ********************************************        \r\nC     UNIVAC AND CDC MACHINES        \r\nC     (IG SHOULD BE IN INTEGER*4 HERE)        \r\nC     ********************************************        \r\nC        \r\nC     N1 =II1*(LOC/NW)+I        \r\nC     N2 =MOD(LOC,NW)*NBIT+NBIT        \r\nC     LOC=ORF(IG(N1),LSHIFT(L,NBPW-N2))        \r\nC     IG(N1)=LOC        \r\nC        \r\nC     RETURN        \r\nC        \r\nC     ********************************************        \r\nC     IBM AND VAX MACHINES        \r\nC     (IG IS SET TO INTEGER*2 IN BPACK AND BUNPK, ELSEWHERE INTEGER*4)  \r\nC     INTEGER*2     IG(1)        \r\nC     ********************************************        \r\nC        \r\n      N1=II1*LOC+I        \r\n      IG(N1)=L        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/btstrp.f",
    "content": "      SUBROUTINE BTSTRP        \r\nC        \r\nC     BASED ON MACHINE NUMBER, BTSTRP WILL DEFINE ALL THE     \r\nC     MACHINE-DEPENDENT CONSTANTS NEEDED IN NASTRAN. THESE CONSTANTS    \r\nC     ARE SAVED IN LABEL COMMONS /SYSTEM/, /LHPWX/, /MACHIN/ & /CHMACH/       \r\nC        \r\nC     SEE ALSO  PRTPRM, SDCMPS, SDR2E, AND UPCASE WHEN NASTRAN SOURCE   \r\nC     CODE IS PORTED TO OTHER (NEW) MACHINE        \r\nC        \r\nC                ===        \r\nC        \r\n      EXTERNAL        LSHIFT ,RSHIFT ,ANDF   ,COMPLF        \r\n      CHARACTER       MCHNAM*11, MACHOS*7, COMPUT(22)*11, COMPOS(22)*7\r\n      INTEGER         SYSBUF ,OUTTAP ,TWO     ,COMPLF    ,RSHIFT     ,   \r\n     1                FCB    ,ORDER  ,IDATE(3),   \r\n     2                ABCD   ,AK     ,RECL    ,ANDF      ,   \r\n     3                SPERLK ,QP     ,M1(110) ,M2(110)   ,MCONST(220),   \r\n     4                HIGHPW        \r\n      REAL            XX     ,YY        \r\n      COMMON /MACHIN/ MACHX  ,IHALF  ,JHALF  ,LQRO      \r\n      COMMON /CHMACH/ MCHNAM, MACHOS\r\n      COMMON /SEM   / A      ,MASK2  ,MASK3  ,LNKNOS(15)        \r\n      COMMON /LHPWX / LOWPW  ,HIGHPW ,NWPIC  ,NUDFLW    ,MXFL       ,   \r\n     1                KSHIFT ,MTISA        \r\n      COMMON /SYSTEM/ B(100)        \r\n      COMMON /TWO   / TWO(32),MZERO        \r\n      COMMON /XXREAD/ DUM(3) ,IBMCDC        \r\n      EQUIVALENCE     (B( 1),SYSBUF) ,(B(22),LINKNO) ,(B(40),NBPW ) ,   \r\n     1                (B( 2),OUTTAP) ,(B(41),NCPW ) , (B(42),IDATE(1)),  \r\n     2                (B( 4),INTP  ) ,(B(34),IDRUM ) ,(B(55),IPREC) ,   \r\n     3                (B( 9),NLPP  ) ,(B(39),NBPC  ) ,(B(91),LPCH ) ,   \r\n     4                (B(92),LDICT ) ,(B(95),SPERLK) ,(MACHX,MACH ) ,   \r\n     5                (M1(1),MCONST(1))     ,(M2(1)  ,MCONST(111) )     \r\nC      \r\nC  DEFINE SYSTEM RELEASE DATE\r\nC\r\n      DATA IMNTH, IYR1, IYR2 /4HAPR., 3H 19, 2H95 /\r\nC\r\n      DATA    XX    , YY    / 1.2E-38, 0.3E-38       /        \r\n      DATA    MVAX  , ABCD  , KA   /  1H1,   4HABCD  ,4HA           /   \r\nC        \r\nC     MACH   = MACHX = HOST MACHINE        \r\nC              ANY SUBROUTINE, THAT USES 'MACHX' INSTEAD OF 'MACH' IN   \r\nC              LABEL COMMON /MACHIN/, CONTAINES MACHINE CONSTANTS THAT  \r\nC              ARE USED LOCALLY.        \r\nC     NMACH  = NUMBER OF MACHINES        \r\nC     MCONST = ARRAY CONTAINING MACHINE DEPENDENT CONSTANTS        \r\nC        \r\nC        \r\nC     COSMIC/NASTRAN SUPPORTS ONLY MACHINES 2, 5, 6, 7, 8, 9, 10, 16,        \r\nC     21, & 22.   CONSTANTS FOR OTHER MACHINES MAY NOT BE EXACT      \r\nC        \r\nC     -MACHINE-    IBM/  UNIVAC   CDC   DEC/    DEC/   SUN   IBM/    HP \r\nC           DUMMY   MVS    FTN   FTN5    VMS  ULTRIX SOLARIS  AIX    UX \r\nC     MACH = -1-  ---2-  ---3-  ---4-  ---5-  ---6-  ---7-  ---8-  ---9-\r\nC        \r\nC           SGI    MAC   CRAY  CONVEX   NEC  FUJITSU  SUN  AMDAHL  PRIME\r\nC           IRIS        UNICOS                       SUNOS             \r\nC          --10-  --11-  --12-  --13-  --14-  --15-  --16-  --17-  --18-\r\nC        \r\nC           PC            DEC/   DEC/       \r\nC         MS/DOS  DUMMY OPENVMS  OSF         \r\nC          --19-  --20-  --21-  --22-        \r\nC\r\nC  MACHINE NAMES\r\nC\r\n      DATA    COMPUT/\r\n     1        'DUMMY      ', 'IBM        ', 'UNIVAC     ',\r\n     2        'CDC        ', 'DEC-VAX    ', 'DEC-MIPS   ',\r\n     3        'SUN        ', 'IBM RS6000 ', 'HP         ', \r\n     4        'SGI        ', 'MACINTOCH  ', 'CRAY       ',\r\n     5        'CONVEX     ', 'NEC        ', 'FUJITSU    ',\r\n     6        'SUN        ', 'AMDAHL     ', 'PRIME      ',\r\n     7        'PC         ', 'DUMMY      ', 'DEC-ALPHA  ',\r\n     8        'DEC-ALPHA  '/\r\nC     \r\nC  MACHINE OPERATING SYSTEM\r\nC\r\n      DATA    COMPOS/\r\n     1        '       ', 'MVS    ', 'FTN    ',\r\n     2        'FTN5   ', 'VMS    ', 'ULTRIX ',\r\n     3        'SOLARIS', 'AIX    ', 'HP-UX  ', \r\n     4        'IRIX   ', '       ', 'UNICOS ',\r\n     5        '       ', '       ', '       ',\r\n     6        'SUNOS  ', '       ', '       ',\r\n     7        'MS-DOS ', '       ', 'OPENVMS',\r\n     8        'OSF    '/\r\nC\r\n      DATA    NMACH / 22 /,    M1/        \r\nC        \r\nC     SYSBUF  =   LENGTH OF NASTRAN I/O BUFFER        \r\nC        \r\n     1      200,  4100,   871,  1042,  1028,  1028,  1028,  1028,  1028,\r\n     2     1028,  1028,  2052,  1028,  2052,  2052,  1028,  1028,  1028,\r\n     3     1028,  1028,  1028,  1028,        \r\nC        \r\nC     INTP(X100)  =  FORTRAN UNIT NO. FOR INPUT DATA        \r\nC     OUTTAP      =  FORTRAN UNIT NO. FOR PRINTED OUTPUT        \r\nC        \r\n     4     5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,\r\n     5     5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,  5 06,\r\n     6     5 06,  5 06,  5 06,  5 06,        \r\nC        \r\nC        \r\nC     NLPP(X100)  =  NUMBER OF LINES PRINTED PER PAGE        \r\nC     NWPIC       =  NUMBER OF WORDS PER INPUT CARD, USED ONLY IN XGPIBS\r\nC        \r\n     7    50 00, 55 18, 55 18, 42 08, 55 18, 55 18, 55 18, 55 18, 55 18,\r\n     8    55 18, 55 18, 55 09, 55 18, 55 00, 55 00, 55 00, 55 00, 55 00,\r\n     9    55 00, 55 00, 55 18, 55  0,        \r\nC        \r\nC     NBPC(X100)  =  NUMBER OF BITS PER CHARACTER        \r\nC     NBPW        =  NUMBER OF BITS PER WORD        \r\nC        \r\n     O     6 36,  8 32,  9 36,  6 60,  8 32,  8 32,  8 32,  8 32,  8 32,\r\n     1     8 32,  8 32,  8 64,  8 32,  8 64,  8 64,  8 32,  8 32,  8 32,\r\n     2     8 32,  8 32,  8 32,  8 32,        \r\nC        \r\nC     IPREC(X100) =  PRECISION (1 = S.P., 2 = D.P.)        \r\nC     RECL(X10)   =  DIRECT FILE RECORD LENGTH (USED IN FORTRAN OPEN    \r\nC                    STATEMENT) BY WORDS (= 1), OR BYTE (= NCPW)        \r\nC     QP          =  REAL*16 PRECISION FLAG (1 = YES, 0 = NO)        \r\nC        \r\nCWKBR3    2 0 0, 2 4 0, 2 1 1, 1 1 0, 2 1 1, 2 1 0, 2 4 0, 2 4 1, 2 4 1,\r\n     3    2 0 0, 2 4 0, 2 1 0, 1 1 0, 2 1 0, 2 1 0, 2 4 0, 2 4 0, 2 4 0,\r\n     4    2 1 0, 2 0 0, 1 8 0, 2 4 0, 1 0 0, 1 0 0, 2 0 0, 2 0 0, 2 0 0,\r\n     5    2 0 0, 2 0 0, 2 1 0, 2 0 0 /        \r\nC        \r\nC        \r\n      DATA          M2/        \r\nC        \r\nC     LPCH(X100)  =  FORTRAN UNIT NO. FOR PUNCHED OUTPUT        \r\nC     LDICT       =  FORTRAN UNIT NO. FOR RESTART DICTIONARY PUNCH      \r\nC        \r\n     1     7 03,  7 07,  1 03,  7 07,  1 04,  1 04,  1 04,  1 04,  1 04,\r\n     2     1 04,  1 04,  1 04,  1 04,  1 04,  1 04,  1 04,  1 04,  1 04,\r\n     3     1 04,  1 04,  1 04,  1 04,        \r\nC        \r\nC     LOWPW, HIGHPW = MACHINE NUMERIC RANGE FOR S. P. REAL NUMBER,      \r\nC     USED ONLY BY RCARD, RCARD2, XRCARD AND YRCARD        \r\nC        \r\n     4       38,    75,    38,   321,    38,    38,    38,    38,    38,\r\n     5       38,    38,  2465,    38,     0,     0,     0,     0,     0,\r\n     6        0,     0,    38,     0,        \r\nC        \r\nC     NUDFLW(X100) =  FLOATING NUMBER UNDERFLOW CONTROL        \r\nC                     (USED ONLY BY FQRW AND FQRWV)        \r\nC     MXFL         =  MAXINUM FILES MAXFIL CAN REQUEST VIA THE NASTRAN  \r\nC                     CARD, USED ONLY IN NASCAR        \r\nC        \r\n     7    16 50, 16 50, 18 49, 14 75,  8 75, 16 75, 16 75, 16 75, 16 75,\r\n     8    16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75, 16 75,\r\n     9    16 75, 16 75,  9 75, 16 75,        \r\nC        \r\nC     KSHIFT  =  SHIFT COUNTS USED IN A DIVIDE TO CONVERT A GINO LOC    \r\nC                RETURNED FROM SAVPOS TO GINO BLOCK NUMBER, USED IN EMA \r\nC        \r\n     O        1,  4096,   4096,262144,  4096,  4096, 4096,  4096,  4096,\r\n     1     4096,  4096,   4096,  4096,     0,     0,    0,     0,     0,\r\n     2        0,     0,   4096,     0,        \r\nC        \r\nC     MANTISSA BITS, USED ONLY IN SDCMPS        \r\nC        \r\n     3     0 00, 24 26, 27 60, 48 96, 23 55, 23 55, 23 52, 23 55, 23 55,\r\n     4    23 55, 23 55, 48 96, 23 52, 48 96, 48 96, 23 55, 23 55, 23 55,\r\n     5     0 00,  0 00, 23 55,  0 00/        \r\nC        \r\nC     DEFINE SYSTEM (42), SYSTEM(43), SYSTEM(44)\r\nC\r\n      IDATE(1) = IMNTH\r\n      IDATE(2) = IYR1\r\n      IDATE(3) = IYR2\r\nC        \r\nC     MACHINE TYPE IS SET HERE        \r\nC     +++++++++++++++++++++++++++++++        \r\n  100 MACH = 7\r\n      MCHNAM = COMPUT(MACH)\r\n      MACHOS = COMPOS(MACH)\r\n      SYSBUF = MCONST(MACH)        \r\n      IBMCDC = 1        \r\n      IF (MACH.EQ.2 .OR. MACH.EQ.4) IBMCDC = 0        \r\nC        \r\n      I  = MACH + NMACH        \r\n      INTP   = MCONST(I)/100        \r\n      OUTTAP = MOD(MCONST(I),100)        \r\nC        \r\n      I  = I + NMACH        \r\n      NLPP   = MCONST(I)/100        \r\n      NWPIC  = MOD(MCONST(I),100)        \r\nC        \r\n      I  = I + NMACH        \r\n      NBPC   = MCONST(I)/100        \r\n      NBPW   = MOD(MCONST(I),100)        \r\nC        \r\n      I  = I + NMACH        \r\n      IPREC  = MCONST(I)/100        \r\n      RECL   = MOD(MCONST(I),100)/10        \r\n      QP     = MOD(MCONST(I),10)        \r\nC        \r\nC        \r\n      I  = I + NMACH        \r\n      LPCH   = MCONST(I)/100        \r\n      LDICT  = MOD(MCONST(I),100)        \r\nC        \r\nC     MACHINE S.P. RANGE        \r\nC        \r\n      I  = I + NMACH        \r\n      HIGHPW = MCONST(I)        \r\n      LOWPW  = 1 - HIGHPW\r\n      IF (MACH .EQ. 2) LOWPW = -78        \r\n      IF (MACH .EQ. 4) LOWPW = -292        \r\nC        \r\nC     FLOATING NUMBER UNDERFLOW CONTROL        \r\nC     MAXINUM FILES FOR MAXFIL CHECK        \r\nC        \r\n      I  = I + NMACH        \r\n      NUDFLW = MCONST(I)/100        \r\n      MXFL   = MOD(MCONST(I),100)        \r\nC        \r\nC     SHIFT COUNTER FOR EMA SUBROUTINE        \r\nC        \r\n      I  = I + NMACH        \r\n      KSHIFT = MCONST(I)        \r\nC        \r\nC     MANTISSA BITS        \r\nC        \r\n      I  = I + NMACH        \r\n      MTISA  = MCONST(I)/100        \r\n      IF (IPREC .EQ. 2) MTISA = MOD(MCONST(I),100)        \r\nC        \r\nC     NUMBER OF BITS PER HALF WORD, USED MAINLY FOR INTEGER PACKING     \r\nC        \r\nC     IHALF = NBPW/2        \r\nC     JHALF = 2**IHALF - 1        \r\n      IHALF = 16        \r\n      JHALF = 65535        \r\nC        \r\nC     NUMBER OF CHARACTERS PER WORD        \r\nC        \r\n      NCPW = NBPW/NBPC        \r\nC        \r\nC     ZERO FIELD KA, AK AND GENERATE A MASK FOR FIRST BYTE        \r\nC        \r\n      AK   = KHRFN1(0,1,KA,4)        \r\n      KA   = KHRFN1(0,1,KA,1)        \r\n      I    = 2**NBPC - 1        \r\n      MASK = LSHIFT(I,NBPW-NBPC)        \r\nC        \r\nC     CHECK BCD WORD (NOT CHARACTER WORD) STORING ORDER.        \r\nC     IF 'ABCD' IS STORED INTERNALLY IN A-B-C-D ORDER, SET ORDER TO 0,  \r\nC     OR  IF IT IS STORED IN REVERSED ORDER, D-C-B-A,  SET ORDER TO 1   \r\nC        \r\n      I = ANDF(ABCD,MASK)        \r\n      ORDER = 0        \r\n      IF (NBPW.LT.60 .AND. I.NE.KA .AND. I.NE.AK) ORDER = 1        \r\nC        \r\nC     CHECK SYSTEM LOC OR %LOC FUNCTION.        \r\nC     IF SYSTEM LOC FUNCTION IS WORD COUNT, SET LOCF TO 1        \r\nC     IF SYSTEM LOC FUNCTION IS BYTE COUNT, SET LOCF TO NCPW        \r\nC        \r\n      LQRO = 1000        \r\n      I    = LOCFX(B(11)) - LOCFX(B(1))        \r\n      LOCF = I/10        \r\nC        \r\nC     MERGE LOCF, QP, RECL, AND ORDER INTO LQRO        \r\nC        \r\n      LQRO = LOCF*1000 + QP*100 + RECL*10 + ORDER        \r\nC        \r\nC        \r\nC     GENERATE MASKS        \r\nC                   7094      360         1108            6600        \r\nC     MASK2  = 777777007777,FFFFFFF0,777777607777,77777760777777777777  \r\nC     MASK3  = 377777777777,7FFFFFFF,377777777777,37777777777777777777  \r\nC     TWO(1) = 020000000000,80000000,020000000000,00000000020000000000  \r\nC        \r\n      MASK2  = COMPLF(LSHIFT(2**NBPC-1, NBPW-4*NBPC))        \r\n      MASK3  = RSHIFT(COMPLF(0),1)        \r\n      MZERO  = LSHIFT(1,NBPW-1)        \r\n      TWO(1) = LSHIFT(1,31)        \r\nC        \r\nC     TWO(1) = LSHIFT(1,31) = 2**31        \r\nC            = +2147483648   IN MACHINES WITH MORE THAN 32-BIT WORD     \r\nC            = -2147483648   IN 32-BIT MACHINES. A NEGATIVE NUMBER!     \r\nC            = -0.000E0      IN SOME  32-BIT MACHINES        \r\nC            = +0.000E0      IN OTHER 32-BIT MACHINES        \r\nC     NOTICE FOR THE 32-BIT MACHINES, IABS(-2147483648) IS FATAL!       \r\nC        \r\nC     DEFINE COMMONLY USED PHYSICAL CONSTANTS        \r\nC        \r\n      CALL CNSTDD        \r\n      LINKNO = LNKNOS(1)\r\nC        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/bufchk.f",
    "content": "      SUBROUTINE BUFCHK        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      LOGICAL          OD,OS,OR,STRDAT        \r\n      INTEGER          I(4)        \r\n      REAL             S(4)        \r\n      DOUBLE PRECISION D(2)        \r\n      CHARACTER*8      NAM,IIBL        \r\n      COMMON /ZZZZZZ/  B(1)        \r\n      COMMON /BUFCOM/  OFFSET,OUTBGN,OUTEND,OUTLVL        \r\n      EQUIVALENCE      (I(1),S(1),D(1))        \r\n      DATA             NOUT    ,  NAM      , IIBL      /        \r\n     1                 6       ,  'BUFCHK@','II,B(L)=' /        \r\nC VAX:        \r\n      DATA             RECTRL  ,  RCTRLL   , RCTRLC  , COLHDR, COLTRL / \r\n     1                 '1'X    ,  '2'X     , '3'X    , '4'X  , '8'X   / \r\n      DATA             RECHDR  ,  RCHDST   , STRDUM  , EOBSTR   /       \r\n     1                 'F1111'X,  'F2222'X , 'FAAAA'X, 'FBBBB'X /       \r\n      DATA             EOB     ,  EOF      , STRHDR  , STRTRL   /       \r\n     1                 'F5555'X,  'F7777'X , 'F8888'X, 'F9999'X /       \r\nC UNIX:        \r\nC     DATA             RECTRL  ,  RCTRLL   , RCTRLC  , COLHDR, COLTRL / \r\nC    1                 X'1'    ,  X'2'     , X'3'    , X'4'  , X'8'   / \r\nC     DATA             RECHDR  ,  RCHDST   , STRDUM  , EOBSTR   /       \r\nC    1                 X'F1111',  X'F2222' , X'FAAAA', X'FBBBB' /       \r\nC     DATA             EOB     ,  EOF      , STRHDR  , STRTRL   /       \r\nC    1                 X'F5555',  X'F7777' , X'F8888', X'F9999' /       \r\nC        \r\nC*****        \r\n      LSHIFT(K,J) = ISHFT(K, J)        \r\n      RSHIFT(K,J) = ISHFT(K,-J)        \r\nC     WHERE         ISHFT(K,+J) IS  LEFT-SHIFT K BY J BITS, ZERO FILL   \r\nC                   ISHFT(K,-J) IS RIGHT-SHIFT K BY J BITS, ZERO FILL   \r\nC     AND           ISHFT IS SYSTEM ROUTINE        \r\nC        \r\nC UNIX:        \r\nC     REMOVE ABOVE 2 ON-LINE FUNCTIONS IF THE SYSTEM ISHFT FUNCTION IS  \r\nC     NOT AVAILABLE.  LSHIFT AND RSHIFT ARE ALREADY ENTRY POINTS IN     \r\nC     SUBROUTINE MAPFNS.        \r\nC*****        \r\nC        \r\n      L      = OFFSET - 1        \r\n      DATBGN = L + 1        \r\n      DATEND = L + 8        \r\n      DATTYP = 5        \r\n      SKP    = 0        \r\nC        \r\n      DO 700 II = 1,10000        \r\n      IF (II .LE. OUTEND) GO TO 110        \r\n      IF (OD) WRITE (NOUT,100) NAM,II        \r\n  100 FORMAT (5X,A7,'100  LIMIT POINTER REACHED.  II=',I6)        \r\n      GO TO 900        \r\n  110 L   = L + 1        \r\n      OD  = II.GE.OUTBGN .AND. OUTLVL.GT.0        \r\n      OS  = II.GE.OUTBGN .AND. OUTLVL.GT.1        \r\n      OR  = II.GE.OUTBGN .AND. OUTLVL.GT.2        \r\n      SKP = SKP - 1        \r\n      IF (SKP .GT. 0) GO TO 700        \r\n      IF (L.GE.DATBGN .AND. L.LE.DATEND) GO TO 500        \r\n      W   = B(L)        \r\n      F1  = RSHIFT(       W    ,28)        \r\n      F2  = RSHIFT(LSHIFT(W, 4),16)        \r\n      F3  = RSHIFT(LSHIFT(W,20),20)        \r\n      F12 = RSHIFT(       W    ,12)        \r\n      F31 = RSHIFT(LSHIFT(W,20),24)        \r\n      F32 = RSHIFT(LSHIFT(W,28),28)        \r\n      IF (F12 .NE. RECHDR) GO TO 160        \r\n      DATBGN = L + 1        \r\n      DATEND = L + F3        \r\n      DATTYP = 5        \r\n      IF (OD) WRITE (NOUT,150) NAM,IIBL,II,B(L)        \r\n  150 FORMAT (5X,A7,'150  REC HDR - NO STRING.  ',A8,I6,Z8)        \r\n      GO TO 700        \r\n  160 IF (F12 .NE. RCHDST) GO TO 180        \r\n      IF (OD) WRITE (NOUT,170) NAM,IIBL,II,B(L)        \r\n  170 FORMAT (5X,A7,'170  REC HDR - STRING.  ',A8,I6,Z8)        \r\n      STRDAT = .TRUE.        \r\n      GO TO 700        \r\n  180 IF (.NOT.(F1.EQ.RECTRL .OR. F1.EQ.RCTRLL)) GO TO 210        \r\n      IF (OD) WRITE (NOUT,200) NAM,IIBL,II,B(L)        \r\n  200 FORMAT (5X,A7,'200  REC TRAILR - END OF RECORD.  ',A8,I6,Z8)      \r\n      GO TO 700        \r\n  210 IF (F1 .NE. RCTRLC) GO TO 240        \r\n      IF (OD) WRITE (NOUT,230) NAM,IIBL,II,B(L)        \r\n  230 FORMAT (5X,A7,'230  REC TRAILER - RECORD CONTINUES.  ',A8,I6,Z8)  \r\n      GO TO 700        \r\n  240 IF (F12 .NE. EOB) GO TO 260        \r\n      IF (OD) WRITE (NOUT,250) NAM,IIBL,II,B(L)        \r\n  250 FORMAT (5X,A7,'250  END OF BLOCK.  ',A8,I6,Z8)        \r\n      GO TO 700        \r\n  260 IF (F12 .NE. EOF) GO TO 280        \r\n      IF (OD) WRITE (NOUT,270) NAM,IIBL,II,B(L)        \r\n  270 FORMAT (5X,A7,'270  END OF FILE.  ',A8,I6,Z8)        \r\n      GO TO 700        \r\n  280 IF (F1 .NE. COLHDR) GO TO 310        \r\n      IF (OD) WRITE (NOUT,300) NAM,IIBL,II,B(L),F2        \r\n  300 FORMAT (5X,A7,'300  COLUMN HEADER.  ',A7,',F2=',I6,Z8,I8)        \r\n      DATTYP = F31        \r\n      GO TO 700        \r\n  310 IF (F1 .NE. COLTRL) GO TO 340        \r\n      IF (OD) WRITE (NOUT,330) NAM,IIBL,II,B(L),F2        \r\n  330 FORMAT (5X,A7,'330  COLUMN TRAILER.  ',A7,',F2=',I6,Z8,I8)        \r\n      GO TO 700        \r\n  340 IF (F12 .NE. STRHDR) GO TO 360        \r\n      IF (OD) WRITE (NOUT,350) NAM,IIBL,II,B(L),B(L+1),F3        \r\n  350 FORMAT (5X,A7,'350  STRING HEADER.  ',A7,',B(L+1),F3=',I6,2Z8,I8) \r\n      SKP    = 2        \r\n      DATBGN = L + 1        \r\n      DATEND = L + F3        \r\n      GO TO 700        \r\n  360 IF (F12 .NE. STRTRL) GO TO 380        \r\n      IF (OD) WRITE (NOUT,370) NAM,IIBL,II,B(L),B(L+1),F3        \r\n  370 FORMAT (5X,A7,'370  STRING TRAILER.  ',A7,',B(L+1),F3=',I6,2Z8,I8)\r\n      SKP = 2        \r\n      GO TO 700        \r\n  380 IF (F12 .NE. STRDUM) GO TO 410        \r\n      IF (OD) WRITE (NOUT,400) NAM,IIBL,II,B(L)        \r\n  400 FORMAT (5X,A7,'400  STRING DUMMY WORD.  ',A8,I6,Z8)        \r\n      GO TO 700        \r\n  410 WRITE (NOUT,430) NAM,IIBL,II,B(L)        \r\n  430 FORMAT (5X,A7,'430  INVALID CONTROL WORD.  ',A8,I6,Z8)        \r\n      GO TO 800        \r\nC        \r\n  500 CONTINUE        \r\n      DO 510 J = 1,4        \r\n  510 I(J) = B(L+J-1)        \r\n      GO TO (610,620,630,640,650) DATTYP        \r\n      WRITE (NOUT,550) NAM,DATTYP        \r\n  550 FORMAT (5X,A7,'550  BAD DATA TYP,  DATTYP=',I6)        \r\n      GO TO 800        \r\n  610 IF (OS) WRITE (NOUT,615) NAM,II,S(1)        \r\n  615 FORMAT (5X,A7,'615  II,S(1)=',I6,E13.6)        \r\n      GO TO 700        \r\n  620 IF (OS) WRITE (NOUT,625) NAM,II,D(1)        \r\n  625 FORMAT (5X,A7,'625  II,D(1)=',I6,D17.9)        \r\n      SKP = 2        \r\n      GO TO 700        \r\n  630 IF (OS) WRITE (NOUT,635) NAM,II,S(1),S(2)        \r\n  635 FORMAT (5X,A7,'635  II,S(1),S(2)=',I6,2E13.6)        \r\n      SKP = 2        \r\n      GO TO 700        \r\n  640 IF (OS) WRITE (NOUT,645) NAM,II,D(1),D(2)        \r\n  645 FORMAT (5X,A7,'645  II,D(1),D(2)=',I6,2D17.9)        \r\n      SKP = 4        \r\n      GO TO 700        \r\n  650 IF (OR) WRITE (NOUT,660) NAM,II,I(1)        \r\n  660 FORMAT (5X,A7,'615  II,I(1)=',I6,I14)        \r\n  700 CONTINUE        \r\nC        \r\n      WRITE (NOUT,750) NAM        \r\n  750 FORMAT (5X,A7,'750  BLOCK TOO LONG')        \r\n  800 CALL VAXEND        \r\n  900 RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/bunpak.f",
    "content": "      SUBROUTINE BUNPAK (IG,I,NJ,JG)        \r\nC        \r\nC     THIS ROUTINE WORKS SIMILARLY AS BUNPK EXCEPT IT UNPACKS A WHOLE   \r\nC     (I-TH) ROW OF GRID NUMBERS (1 THRU NJ) FROM IG TABLE, AND SAVES   \r\nC     THE UNPACKED DATA IN JG ARRAY.        \r\nC     (BUNPK UNPACKS ONLY AN ELEMENT OF GRID NUMBER IN IG TABLE)        \r\nC        \r\nC     THIS ROUTINE GREATLY INCREASES BANDIT INTERNAL EFFICIENCY        \r\nC     WRITTEN BY G.CHAN/UNISYS,    MAY 1988        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\nC        \r\nCDC   NEXT 2 LINES FOR CDC AND UNIVAC ONLY        \r\nC     EXTERNAL         ANDF,     RSHIFT        \r\nC     INTEGER          ANDF,     RSHIFT  ,IG(1)        \r\nC        \r\nC     NEXT LINE FOR IBM, VAX, AND MACHINES THAT HAVE INTEGER*2        \r\n      INTEGER*2        IG(1)        \r\nC        \r\n      INTEGER          JG(1),    NAM(2)        \r\n      COMMON /SYSTEM/  IBUF,     NOUT        \r\n      COMMON /BANDB /  NBIT,     DUM3B(3), IPASS,    NW        \r\n      COMMON /BANDS /  DUM4S(4), II1,      MAXDEG,   DUM4(4),  MASK     \r\n      DATA    NAM   /  4HUNPA  , 4HK       /        \r\nC        \r\n      IF (NJ .LE. MAXDEG) GO TO 20        \r\n      WRITE  (NOUT,10) NJ,MAXDEG        \r\n 10   FORMAT ('0 *** BUNPAK .GT. MAXDEG',2I7)        \r\n      CALL ERRTRC (NAM)        \r\nC        \r\n 20   IPASS = IPASS+NJ        \r\n      N1 = I        \r\nC        \r\nC     ********************************************        \r\nC     UNIVAC AND CDC MACHINES        \r\nC     ********************************************        \r\nC        \r\nC     DO 40 N=1,NJ,NW        \r\nC     N2 = IG(N1)        \r\nC     N3 = N+NW-1        \r\nC     DO 30 M=1,NW        \r\nC     JG(N3) = ANDF(N2,MASK)        \r\nC     IF (M .EQ. NW) GO TO 40        \r\nC     N2 = RSHIFT(N2,NBIT)        \r\nC  30 N3 = N3-1        \r\nC  40 N1 = N1+II1        \r\nC     RETURN        \r\nC        \r\nC     ********************************************        \r\nC     IBM AND VAX MACHINES        \r\nC     ********************************************        \r\nC        \r\n      DO 50 N=1,NJ        \r\n      JG(N) = IG(N1)        \r\n   50 N1 = N1+II1        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/bunpk.f",
    "content": "      INTEGER FUNCTION BUNPK (IG,I,J)        \r\nC        \r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE        \r\nC        \r\nC     UNPACK INTEGER GRID NO. FROM IG TABLE.   SEE BPACK FOR PACKING    \r\nC     USE APPROP. PORTION OF THIS ROUTINE FOR DIFFERENT TYPE OF MACHINE.\r\nC        \r\n      INTEGER*2        IG(1)        \r\nC        \r\n      COMMON /BANDB /  NBIT,     DUM3B(3), IPASS,    NW,       DUM1B,   \r\n     1                 NBPW        \r\n      COMMON /BANDS /  DUM4S(4), II1,      DUM5S(5), MASK        \r\nC        \r\n      IPASS=IPASS+1        \r\n      LOC  =J-1        \r\nC        \r\nC     ********************************************        \r\nC     UNIVAC AND CDC MACHINES        \r\nC     ********************************************        \r\nC     INTEGER          RSHIFT,   ANDF        \r\nC        \r\nC     N1 =II1*(LOC/NW)+I        \r\nC     N2 =MOD(LOC,NW)*NBIT+NBIT        \r\nC     LOC=RSHIFT(IG(N1),NBPW-N2)        \r\nC     BUNPK=ANDF(LOC,MASK)        \r\nC     RETURN        \r\nC        \r\nC     ********************************************        \r\nC     IBM AND VAX MACHINES        \r\nC     (IG IS SET TO INTEGER*2 IN BPACK AND BUNPK, ELSEWHERE INTEGER*4)  \r\nC     INTEGER*2        IG(1)        \r\nC     ********************************************        \r\nC        \r\n      N1=II1*LOC+I        \r\n      BUNPK=IG(N1)        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/chkfil.f",
    "content": "       program chkfil                                                   \r\n       character*80 card                                                \r\n       read(5,901) card                                                 \r\n901    format(a80)                                                      \r\n       inptp = index( card, 'NPTP' )                                    \r\n       iplt2 = index( card, 'PLT'  )                                    \r\n       iexit = 0                                                        \r\n       if ( inptp .ne. 0 ) iexit = 1                                    \r\n       if ( iplt2 .ne. 0 ) iexit = iexit + 10                           \r\n       if ( iexit .eq. 0 ) go to 700\r\n       if ( iexit .eq. 1 ) open ( 77, file='nogood1', status='unknown' )\r\n       if ( iexit .eq. 10) open ( 77, file='nogood2', status='unknown' )\r\n       if ( iexit .eq. 11) open ( 77, file='nogood3', status='unknown' )\r\n       write ( 77, * ) ' iexit=',iexit\r\n       close ( 77 )\r\n700    call exit( iexit )                                               \r\n       end                                                              \r\n"
  },
  {
    "path": "mds/close.f",
    "content": "        SUBROUTINE CLOSE ( FILE, IOP )                                          \r\nC***************************************************************                \r\nC                          NOTICE                                               \r\nC                                                                               \r\nC     THIS PROGRAM BELONGS TO RPK CORPORATION.  IT IS CONSIDERED                \r\nC A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES                   \r\nC WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK.                         \r\nC***************************************************************                \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INTEGER*2         IUNIT                                                   \r\n      COMMON / DSUNIT / IUNIT( 220 )                                            \r\n      COMMON / SYSTEM / ISYSBF, DUM1( 77 ), IDIAG, DUM2( 21 )                   \r\n      INTEGER           FILE                                                    \r\n      NAME   = FILE                                                             \r\n      IOCODE = IOP                                                              \r\n      IRETRN = 77                                                               \r\n      CALL DSGEFL                                                               \r\n      IF ( IFILEX .EQ. 0 ) GO TO 50                                             \r\n      IRETRN = 0                                                                \r\n      IF ( IAND( IDIAG,2**14 ).NE. 0 ) CALL DSMSG( 2 )                          \r\n      IF ( IOCODE .NE. 1 ) GO TO 20                                             \r\n      IF ( IPRVOP .EQ. 0 ) GO TO 10                                             \r\n      CALL DSEFWR                                                               \r\n      IF ( ( INDCLR-INDBAS ) .EQ. 5 ) GO TO 5                                   \r\n      IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1                                   \r\n      CALL DBMMGR( 4 )                                                          \r\n5     CALL DSXFSZ                                                               \r\n10    CONTINUE                                                                  \r\n      CALL DBMMGR( 2 )                                                          \r\n      NBLOCK  = 1                                                               \r\n      INDCLR  = INDBAS + 5                                                      \r\n      INDCBP  = INDCLR                                                          \r\n      GO TO 40                                                                  \r\n20    IF ( IPRVOP .EQ. 0 ) GO TO 30                                             \r\n      CALL DSEFWR                                                               \r\n      IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1                                   \r\nC SAVE INDBAS TO ALLOW DSBRC1 TO CORRECTLY BACKSPACE FILE OPENNED FOR WRITE\r\n      ISAVE = INDBAS\r\n      CALL DBMMGR( 4 )                                                          \r\n      CALL DSXFSZ                                                               \r\n      INDBAS = ISAVE\r\n      IF ( IOCODE .NE. -2 ) CALL DSBRC1                                         \r\nC      CALL DSGNCL                                                              \r\n      CALL DBMMGR( 2 ) \r\n      GO TO 40                                                                  \r\n30    IF ( INDCBP .EQ. INDCLR ) GO TO 35                                        \r\n      CALL DSSKRC                                                               \r\n35    CONTINUE                                                                  \r\n      CALL DBMMGR( 2 )                                                          \r\n40    CALL DSSDCB                                                               \r\n      FCB( 2,IFILEX ) = 0                                                       \r\n      FCB(12,IFILEX ) = 0\r\n      IF ( NAME .LT. 101 .OR. NAME .GT. 320 ) GO TO 50                          \r\n      IUNIT( NAME-100 ) = 0                                                     \r\n50    RETURN                                                                    \r\nC***************************************************************                \r\nC                          NOTICE                                               \r\nC                                                                               \r\nC     THIS PROGRAM BELONGS TO RPK CORPORATION.  IT IS CONSIDERED                \r\nC A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES                   \r\nC WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK.                         \r\nC***************************************************************                \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/corwds.f",
    "content": "      FUNCTION CORWDS (I,J)        \r\nC        \r\n      INTEGER CORWDS        \r\nC        \r\n      CORWDS = IABS(LOCFX(I) - LOCFX(J)) + 1        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/cputim.f",
    "content": "      SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG)        \r\nC        \r\nC     THIS ROUTINE IS MACHINE DEPENDENT        \r\nC        \r\nC     THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS.        \r\nC     IF IFLAG .EQ. 0, CPU TIME IS RETURNED AS AN INTEGER VALUE.        \r\nC     IF IFLAG .NE. 0, CPU TIME IS RETURNED AS A REAL VALUE.        \r\nC        \r\nC     DESIGN REQUIREMENT:        \r\nC     RCPUSC MUST OVER THE RANGE OF 10**-3 TO 10**5 CPU SECONDS        \r\nC        \r\nC     DEC VAX/VMS VERSION        \r\nC     ===================        \r\nC        \r\nC     INCLUDE '($JPIDEF)'        \r\nC        \r\nC     INTEGER   BUF_ADDR, ZERO, CPU_TIME        \r\nC     INTEGER*2 BUF_LNGTH, ITEM_CODE        \r\nC        \r\nC     COMMON /CPU_LIST/ BUF_LNGTH, ITEM_CODE, BUF_ADDR, LNGTH_ADDR,     \r\nC    1                  ZERO        \r\nC        \r\nC     DATA BUF_LNGTH, LNGTH_ADDR, ZERO /4, 2*0/        \r\nC     DATA ITEM_CODE /JPI$_CPUTIM/        \r\nC        \r\nC     BUF_ADDR = %LOC (CPU_TIME)        \r\nC     CALL SYS$GETJPI (,,,BUF_LNGTH,,,)        \r\nC     IF (IFLAG.EQ.0) ICPUSC = CPU_TIME/100        \r\nC     IF (IFLAG.NE.0) RCPUSC = CPU_TIME/100.0        \r\nC     RETURN        \r\nC        \r\nC        \r\nC     SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG)        \r\nC        \r\nC     UNIX VERSION        \r\nC     ============        \r\nC        \r\nC     THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS        \r\nC     IF IFLAG.EQ.0, CPU TIME IS RETURNED AS AN INTEGER VALUE IN ICPUSC \r\nC     IF IFLAG.NE.0, CPU TIME IS RETURNED AS A REAL VALUE IN RCPUSC,    \r\nC        \r\nC     DESIGN REQUIREMENT -        \r\nC     RCPUSC MUST COVER THE RANGE OF 1.0**-3 TO 1.0**+5 CPU SECONDS     \r\nC        \r\nC     NOTE - THE CURRENT CALL TO CPUTIM MUST GIVE A TIME VALUE BIGGER   \r\nC     THAN PREVIOUS CPUTIME CALL. OTHERWISE, CALLING ROUTINE MAY GET    \r\nC     INTO TROUBLE, SUCH AS DIVIDED BY ZERO.        \r\nC        \r\nC     REAL ARRAY(2)        \r\nC        \r\nC     CALL ETIME (ARRAY)        \r\nC     IF (IFLAG .NE. 0) GO TO 10        \r\nC     ICPUSC = ARRAY(2) + .49        \r\nC     GO TO 20        \r\nC  10 SAVE   = RCPUSC        \r\nC     RCPUSC = ARRAY(2)        \r\nC     IF (RCPUSC .LE. SAVE) RCPUSC = RCPUSC + 0.0001        \r\nC  20 RETURN        \r\nC        \r\nC        \r\nC        \r\nC     SUBROUTINE CPUTIM (ICPUSC,RCPUSC,IFLAG)        \r\nC        \r\nC     UNIVERSAL VERSION        \r\nC     =================        \r\nC        \r\nC     THIS ROUTINE OBTAINS THE CURRENT CPU TIME IN SECONDS        \r\nC     IF IFLAG.EQ.0, CPU TIME IS RETURNED AS AN INTEGER VALUE IN ICPUSC \r\nC     IF IFLAG.NE.0, CPU TIME IS RETURNED AS A REAL VALUE IN RCPUSC,    \r\nC        \r\nC     DESIGN REQUIREMENT -        \r\nC     RCPUSC MUST COVER THE RANGE OF 1.0**-3 TO 1.0**+5 CPU SECONDS     \r\nC     (SECNDS MAY BE ACCURATE ONLY TO 1/60, OR 0.001 SECOND)        \r\nC        \r\nC     NOTE - THE CURRENT CALL TO CPUTIM MUST GIVE A TIME VALUE BIGGER   \r\nC     THAN PREVIOUS CPUTIME CALL. OTHERWISE, CALLING ROUTINE MAY GET    \r\nC     INTO TROUBLE, SUCH AS DIVIDED BY ZERO.        \r\nC        \r\n      REAL ARRAY(2)        \r\n      CALL ETIME(ARRAY)\r\n      T=ARRAY(2)\r\n      IF (IFLAG .NE. 0) GO TO 30        \r\n      ICPUSC = T + .49        \r\n      GO TO 40        \r\n   30 SAVE   = RCPUSC        \r\n      RCPUSC = T        \r\n      IF (RCPUSC .LE. SAVE) RCPUSC = RCPUSC + 0.0001        \r\n   40 RETURN        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/dbmalb.f",
    "content": "      SUBROUTINE DBMALB ( LENREQ, INDEX )                                       \r\nC********************************************************************           \r\nC     DBMALB - ALLOCATES A MEMORY BLOCK OF LENGTH \"LENREQ\"                      \r\nC              FROM THE FREE CHAIN AND RETURNS THE                              \r\nC              POINTER IN MEMORY FOR THE BLOCK IN \"INDEX\" (RELATIVE TO.         \r\nC              /DBM/.                                                           \r\nC                                                                               \r\nC     EACH FREE BLOCK IN MEMORY HAS THE FOLLOWING FORMAT:                       \r\nC         WORD 1  POINTER TO PREVIOUS FREE BLOCK (=0, IF FIRST)                 \r\nC         WORD 2  POINTER TO NEXT FREE BLOCK (=0, IF END OF CHAIN)              \r\nC         WORD 3  NUMBER OF WORDS AVAILABLE IN THIS FREE BLOCK                  \r\nC                                                                               \r\nC     NOTE:  IDBFRE POINTS TO THE FIRST FREE BLOCK OF THE CHAIN                 \r\nC********************************************************************           \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'ZZZZZZ.COM'\r\n      NEXT  = IDBFRE                                                            \r\n      IF ( IDBFRE .EQ. 0 ) GO TO 701                                            \r\nC  OBTAIN THE LENGTH OF THE FREE BLOCK                                          \r\n10    LENAVL = MEM( NEXT + 2 )                                                  \r\n      IF ( LENAVL .GE. LENREQ ) GO TO 100                                       \r\nC  MEMORY NOT AVAILABLE IN THIS BLOCK, CHECK FOR OTHER BLOCKS                   \r\n      NEXT  = MEM( NEXT + 1 )                                                   \r\nC  IF NO MORE FREE BLOCKS, RETURN WITH INDEX SET TO -1                          \r\n      IF ( NEXT .EQ. 0 ) GO TO 701                                              \r\n      GO TO 10                                                                  \r\nC  RETURN POINTER FOR THIS BLOCK                                                \r\n100   INDEX = NEXT                                                              \r\n      IF ( LENREQ .NE. LENAVL ) GO TO 200                                       \r\nC  COME HERE WHEN REQUESTED BLOCK SAME SIZE AS FREE BLOCK                       \r\n      NEXT  = MEM( NEXT+1 )                                                     \r\n      IPREV = MEM(INDEX   )                                                     \r\n      IF ( IPREV .EQ. 0 ) GO TO 110                                             \r\n      IF ( NEXT  .EQ. 0 ) GO TO 120                                             \r\nC  CONNECT THE PREVIOUS FREE BLOCK WITH THE NEXT FREE BLOCK                     \r\n      MEM( IPREV+1 ) = NEXT                                                     \r\n      MEM( NEXT    ) = IPREV                                                    \r\n      GO TO 700                                                                 \r\n110   IF ( NEXT .EQ. 0 ) GO TO 130                                              \r\nC  NO PREVIOUS BLOCK, SET IDBFRE TO POINT TO NEW FIRST FREE BLOCK               \r\n      IDBFRE = NEXT                                                             \r\n      MEM( NEXT ) = 0                                                           \r\n      GO TO 700                                                                 \r\nC  PREVIOUS BLOCK EXITS BUT BLOCK ALLOCATED WAS LAST IN CHAIN                   \r\n120   MEM( IPREV+1 ) = 0                                                        \r\n      GO TO 700                                                                 \r\nC  NO MORE FREE BLOCKS EXIST, SET IDBFRE TO ZERO                                \r\n130   IDBFRE = 0                                                                \r\n      GO TO 700                                                                 \r\nC  COME HERE WHEN FREE BLOCK HAS MORE SPACE THEN REQUESTED                      \r\n200   NEWIND = INDEX + LENREQ + 4                                               \r\n      IPREV  = MEM( INDEX  )                                                    \r\n      NEXT   = MEM( INDEX+1)                                                    \r\nC  CHECK TO DETERMINE IF ANY SPACE REMAINS                                      \r\n      IF ( ( LENAVL-LENREQ-4 ) .LE. 0 ) GO TO 240                               \r\nC  RECOMPUTE FREE SPACE AND SET UP CHAIN WORDS                                  \r\n      MEM( NEWIND+2 ) = LENAVL - LENREQ - 4                                     \r\n      IF ( IPREV .EQ. 0 ) GO TO 210                                             \r\n      IF ( NEXT  .EQ. 0 ) GO TO 220                                             \r\nC  CONNECT TO PREVIOUS AND NEXT FREE BLOCK                                      \r\n      MEM( NEWIND  ) = IPREV                                                    \r\n      MEM( NEWIND+1) = NEXT                                                     \r\n      MEM( IPREV+1 ) = NEWIND                                                   \r\n      MEM( NEXT    ) = NEWIND                                                   \r\n      GO TO 700                                                                 \r\n210   IF ( NEXT .EQ. 0 ) GO TO 230                                              \r\nC  NO PREVIOUS BLOCK, NEWLY CREATED BLOCK BECOMES THE FIRST FREE BLOCK          \r\n      IDBFRE         = NEWIND                                                   \r\n      MEM( NEWIND  ) = 0                                                        \r\n      MEM( NEWIND+1) = NEXT                                                     \r\n      MEM( NEXT    ) = NEWIND                                                   \r\n      GO TO 700                                                                 \r\nC  PREVIOUS BLOCK EXISTS BUT THE NEWLY CREATED BLOCK IS LAST                    \r\n220   MEM( IPREV+1 ) = NEWIND                                                   \r\n      MEM( NEWIND  ) = IPREV                                                    \r\n      MEM( NEWIND+1) = 0                                                        \r\n      GO TO 700                                                                 \r\nC  NEW BLOCK IS THE ONLY FREE BLOCK                                             \r\n230   IDBFRE  = NEWIND                                                          \r\n      MEM( NEWIND  ) = 0                                                        \r\n      MEM( NEWIND+1) = 0                                                        \r\n      GO TO 700                                                                 \r\nC  FREE CHAIN IS EXHAUSTED                                                      \r\n240   IDBFRE = 0                                                                \r\n701   INDEX = -1                                                                \r\n      RETURN                                                                    \r\n700   CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmdfc.f",
    "content": "      SUBROUTINE DBMDFC                                                         \r\nC********************************************************************           \r\nC     DBMDFC - DUMPS THE FREE CHAIN                                             \r\nC********************************************************************           \r\n      INCLUDE  'DSIOF.COM'                                                      \r\n      INCLUDE  'ZZZZZZ.COM'\r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      WRITE ( IWR, 906 )                                                        \r\n      WRITE ( IWR, 907 )                                                        \r\n      NEXT = IDBFRE                                                             \r\n      ITOTAL = 0                                                                \r\n      ITOTBK = 0                                                                \r\n      ICNT = 0                                                                  \r\n      IF ( NEXT .EQ. 0 ) GO TO 40                                               \r\n30    ICNT = ICNT + 1                                                           \r\n      IF ( NEXT .EQ. 0 ) GO TO 50                                               \r\n      IVAL = NEXT                                                               \r\n      IVALP= MEM(NEXT)                                                          \r\n      IVALN= MEM(NEXT+1)                                                        \r\n      IF ( MEM(NEXT  ) .EQ. 0 ) IVALP = 0                                       \r\n      IF ( MEM(NEXT+1) .EQ. 0 ) IVALN = 0                                       \r\n      ITOTAL = ITOTAL + MEM(NEXT+2)                                             \r\n      ITOTBK = ITOTBK + 1                                                       \r\n      WRITE ( IWR, 908 ) ICNT,IVALP,IVAL,IVALN,MEM(NEXT+2)                      \r\n      NEXT = MEM( NEXT+1 )                                                      \r\n      GO TO 30                                                                  \r\n40    CONTINUE                                                                  \r\n      WRITE( IWR, 909 )                                                         \r\n      GO TO 60                                                                  \r\n50    CONTINUE                                                                  \r\n      WRITE( IWR, 910 ) ITOTAL, ITOTBK                                          \r\n60    CONTINUE                                                                  \r\n700   RETURN                                                                    \r\n906   FORMAT(///,31X,' DUMP OF FREE CHAIN',/                                    \r\n     &,13X,' ( BLOCK ADDRESSES IN WORDS,  BLOCK LENGTHS IN WORDS )',/)          \r\n907   FORMAT(10X,                                                               \r\n     &'  BLOCK NO    PREV. BLOCK    BLOCK ADDRESS NEXT BLOCK    LENGTH')        \r\n908   FORMAT( I17,I20,I13,I13,I10)                                              \r\n909   FORMAT(//' *************** NO FREE SPACE REMAINS **************')         \r\n910   FORMAT(///,' TOTAL FREE SPACE IN WORDS            =',I10                  \r\n     &,/,        ' NUMBER OF BLOCKS IN FREE SPACE CHAIN =',I10)                 \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmdia.f",
    "content": "      SUBROUTINE DBMDIA                                                         \r\nC********************************************************************           \r\nC     DBMDIA - DUMPS THE IN MEMORY DATA BASE DIRECTORY                          \r\nC********************************************************************           \r\n      INCLUDE  'DSIOF.COM'                                                      \r\n      INCLUDE  'ZZZZZZ.COM'\r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      INTEGER           SCRATCH(2)                                              \r\n      DATA              SCRATCH / 'SCRA','TCHX' /                               \r\n      IBLKSZ = ISYSBF - 4                                                       \r\n      ITOTI  = 0                                                                \r\n      ITOTX  = 0                                                                \r\n      WRITE ( IWR, 903 )                                                        \r\n      DO 20 I = 1, 80                                                           \r\n      IF ( I .EQ. 7 ) GO TO 20\r\n      IF ( FCB( 9,I ) .EQ. 0 .AND. FCB( 5,I ) .EQ. 0 ) GO TO 20                 \r\n      INDEX = FCB( 10, I )                                                      \r\n      IINTB = 0                                                                 \r\n      IEXTB = 0                                                                 \r\n      IF ( FCB( 9,I ) .NE. 0 ) IINTB = MEM( INDEX+3 )                           \r\n      ITOTI = ITOTI + IINTB                                                     \r\n      IF ( FCB( 5,I ) .NE. 0 ) IEXTB = FCB(6,I) - FCB( 5,I) + 1                 \r\n      IF ( IEXTB .GE. FCB( 7, IFILEX ) ) GO TO 20\r\n      ITOTX = ITOTX + IEXTB                                                     \r\n      IF ( FCB( 13,I ) .NE. 0 ) GO TO 15                                        \r\n      FCB( 13,I ) = SCRATCH(1)                                                  \r\n      FCB( 14,I ) = SCRATCH(2)                                                  \r\n15    CONTINUE                                                                  \r\n      WRITE ( IWR, 904 ) I, FCB( 13,I ), FCB( 14,I ), FCB( 4,I )                \r\n     &,                  IINTB, IEXTB                                           \r\n20    CONTINUE                                                                  \r\n      WRITE ( IWR, 905 ) ITOTI, ITOTX                                           \r\nC      WRITE ( IWR, 906 ) MAXBLK, MAXDSK, MAXALC, IBLKSZ                        \r\n700   RETURN                                                                    \r\n903   FORMAT(///,27X,' MEMORY DATA BASE DIRECTORY',//,                          \r\n     &'    UNIT    NAME   CURRENT  IN-MEM'                                      \r\n     &,'   DISK ',/,                                                            \r\n     &'                    BLOCK   BLOCKS'                                      \r\n     &,'  BLOCKS ',/)                                                           \r\n904   FORMAT(I7,3X,2A4,2X,I6,2X,I6,2X,I6 )                                      \r\n905   FORMAT(/,' CURRENT IN-MEMORY BLOCKS =',I8                                 \r\n     &      ,/,' CURRENT DISK BLOCKS      =',I8 )                               \r\n906   FORMAT(/,' MAXIMUM IN-MEMORY BLOCKS USED                   =',I8          \r\n     &      ,/,' MAXIMUM DISK BLOCKS WRITTEN                     =',I8          \r\n     &      ,/,' BLOCKS INITIALLY ALLOCATED FOR THE IN-MEMORY DB =',I8          \r\n     &      ,/,' BLOCK SIZE                                      =',I8 )        \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmdmp.f",
    "content": "      SUBROUTINE DBMDMP                                                         \r\nC********************************************************************           \r\nC     DBMDMP - DUMPS THE IN MEMORY DATA BASE DIRECTORY                          \r\nC********************************************************************           \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      COMMON / ZZZZZZ / MEM(4)                                                  \r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      WRITE ( IWR, 900 ) IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP         \r\n     &,                  NBLOCK, LENALC, IOCODE, IFILEX, NAME,   MAXALC         \r\n     &,                  MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR        \r\n     &,                  NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC                 \r\n900   FORMAT(/,' CONTENTS OF / DBM / FOLLOW:'                                   \r\n     &,/,' IDBBAS =',I8,' IDBFRE =',I8,' IDBDIR =',I8,' INDBAS =',I8            \r\n     &,/,' INDCLR =',I8,' INDCBP =',I8,' NBLOCK =',I8,' LENALC =',I8            \r\n     &,/,' IOCODE =',I8,' IFILEX =',I8,' NAME   =',I8,' MAXALC =',I8            \r\n     &,/,' MAXBLK =',I8,' MAXDSK =',I8,' IDBLEN =',I8,' IDBADR =',I8            \r\n     &,/,' IBASBF =',I8,' INDDIR =',I8,' NUMOPN =',I8,' NUMCLS =',I8            \r\n     &,/,' NUMWRI =',I8,' NUMREA -',I8,' LENOPC =',I8 )                         \r\n      WRITE ( IWR, 901 )                                                        \r\n901   FORMAT(/,' CONTENTS OF FCB FOLLOW:',/)                                    \r\n      DO 10 I = 1, 80                                                           \r\n      WRITE ( IWR, 902 ) I, ( FCB(K,I),K=1,15)                                  \r\n902   FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,2A4,I4)                                \r\n10    CONTINUE                                                                  \r\n      CALL DBMDIA                                                               \r\nC      WRITE ( IWR, 906 )                                                       \r\nC      WRITE ( IWR, 907 )                                                       \r\n      NEXT = IDBFRE                                                             \r\n      ITOTAL = 0                                                                \r\n      ITOTBK = 0                                                                \r\n      ICNT = 0                                                                  \r\n      IF ( NEXT .EQ. 0 ) GO TO 40                                               \r\n30    ICNT = ICNT + 1                                                           \r\n      IF ( NEXT .EQ. 0 ) GO TO 50                                               \r\n      IVAL = NEXT                                                               \r\n      IVALP= MEM(NEXT)                                                          \r\n      IVALN= MEM(NEXT+1)                                                        \r\n      IF ( MEM(NEXT  ) .EQ. 0 ) IVALP = 0                                       \r\n      IF ( MEM(NEXT+1) .EQ. 0 ) IVALN = 0                                       \r\n      ITOTAL = ITOTAL + MEM(NEXT+2)                                             \r\n      ITOTBK = ITOTBK + 1                                                       \r\nC      WRITE ( IWR, 908 ) ICNT,IVAL,IVALP,IVALN,MEM(NEXT+2)                     \r\n      NEXT = MEM( NEXT+1 )                                                      \r\n      GO TO 30                                                                  \r\n40    CONTINUE                                                                  \r\nC      WRITE( IWR, 909 )                                                        \r\n      GO TO 60                                                                  \r\n50    CONTINUE                                                                  \r\nC     WRITE( IWR, 910 ) ITOTAL, ITOTBK                                          \r\n60    CONTINUE                                                                  \r\n700   RETURN                                                                    \r\n906   FORMAT(///,31X,' DUMP OF FREE CHAIN',/                                    \r\n     &,13X,' ( BLOCK ADDRESSES IN BYTES,  BLOCK LENGTHS IN WORDS )',/)          \r\n907   FORMAT(10X,                                                               \r\n     &'  BLOCK NO    BLOCK ADDRESS  PREV. BLOCK   NEXT BLOCK    LENGTH')        \r\n908   FORMAT( I17,I20,I13,I13,I10)                                              \r\n909   FORMAT(//' *************** NO FREE SPACE REMAINS **************')         \r\n910   FORMAT(///,' TOTAL FREE SPACE IN WORDS            =',I10                  \r\n     &,/,        ' NUMBER OF BLOCKS IN FREE SPACE CHAIN =',I10)                 \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmfdp.f",
    "content": "      SUBROUTINE DBMFDP                                                         \r\nC********************************************************************           \r\nC     DBMFDP- DUMPS THE DIRECTORY CHAIN OF A GIVEN FILE.                        \r\nC             ARGUMENT IDIR IS THE IN-MEMORY DIRECTORY FOR THE FILE             \r\nC********************************************************************           \r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      INCLUDE  'ZZZZZZ.COM'\r\n      INCLUDE  'DSIOF.COM'                                                      \r\n      IBASE  = LOCFX( MEM )                                                     \r\n      IVAL2  = IBASE + FCB(  9, IFILEX )                                        \r\n      IVAL3  = IBASE + FCB( 10, IFILEX )                                        \r\n      IVAL4  = IBASE + FCB( 11, IFILEX )                                        \r\n      INDEX  = FCB( 10, IFILEX )                                                \r\n      LBLOCK = MEM( INDEX+3 )                                                   \r\n      WRITE ( IWR, 902 ) IFILEX, IVAL2, IVAL3, IVAL4, FCB(12,IFILEX)           \r\n      WRITE ( IWR, 903 )                                                        \r\n      NEXT = FCB(  9, IFILEX )                                                  \r\n      ICNT = 0                                                                  \r\n      IF ( NEXT .EQ. 0 ) GO TO 25                                               \r\n20    ICNT = ICNT + 1                                                           \r\n      IF ( NEXT .EQ. 0 ) GO TO 30                                               \r\n      IVAL = IBASE + NEXT                                                       \r\n      IVALP= IBASE + MEM(NEXT)                                                  \r\n      IVALN= IBASE + MEM(NEXT+1)                                                \r\n      IF ( MEM( NEXT   ) .EQ. 0 ) IVALP = 0                                     \r\n      IF ( MEM( NEXT+1 ) .EQ. 0 ) IVALN = 0                                     \r\n      WRITE ( IWR, 904 )                                                        \r\n     &       MEM(NEXT+3),MEM(NEXT+7),IVAL,IVALP,IVALN,MEM(NEXT+2)               \r\n990   FORMAT( 12(8(1X,I8),/))                                                   \r\n      NEXT = MEM( NEXT+1 )                                                      \r\n      GO TO 20                                                                  \r\n25    WRITE( IWR, 907 )                                                         \r\n30    CONTINUE                                                                  \r\n      WRITE( IWR, 908 )                                                         \r\n      RETURN                                                                    \r\n902   FORMAT(///,25X,' DUMP OF FILE CHAIN FOR UNIT=',I6,/                       \r\n     &,14X,'( BLOCK ADDRESSES ARE IN WORDS,  BLOCK LENGTHS IN WORDS)',/         \r\n     &,/,7X,                                                                    \r\n     &' FIRST BLOCK ADDRESS   ',I12,'   LAST BLOCK ADDRESS      ',I12          \r\n     &,/,7X,                                                                    \r\n     &' CURRENT BLOCK ADDRESS ',I12,'   ORIGINAL BUFFER ADDRESS ',I12)          \r\n903   FORMAT(/,                                                                 \r\n     & '  IN-MEM     BUFFER',/                                                  \r\n     &,' BLOCK NO.  BLOCK NO  BLOCK ADDRESS  PREV. BLOCK   NEXT BLOCK '         \r\n     &,' LENGTH')                                                               \r\n904   FORMAT( I9,I11,5X,I12,7X,I12,5X,I12,I12)                                      \r\n907   FORMAT(//' *************** NO BLOCK ALLOCATED TO FILE **********')        \r\n908   FORMAT(///)                                                               \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmint.f",
    "content": "      SUBROUTINE DBMINT                                                         \r\nC********************************************************************           \r\nC     DBMINT - INITIALIZES ALL PARAMETERS AND THE FREE BLOCK CHAIN              \r\nC              FOR THE IN-MEMORY DATA BASE.                                     \r\nC                                                                               \r\nC        ARGUMENTS                                                              \r\nC            IDBADR - (INPUT)-BEGINNING ADDRESS FOR IN-MEMORY DATA BASE         \r\nC            IDBLEN - (INPUT)-NUMBER OF MEMORY WORDS FOR IN-MEMORY              \r\nC                             DATA BASE                                         \r\nC        / DBMPAR/                                                              \r\nC            IDBBAS - (OUTPUT)-INDEX TO IN-MEMORY DATA BASE RELATIVE            \r\nC                              TO /DBM/                                         \r\nC            IDBFRE - (OUTPUT)-INDEX TO FREE CHAIN OF IN-MEMORY DATA            \r\nC                              BASE RELATIVE TO /DBM/                           \r\nC            IDBDIR - (OUTPUT)-INDEX TO FIRST DIRECTORY BLOCK                   \r\nC        FREE CHAIN FORMAT                                                      \r\nC               IDBFRE==> WORD 0 - 0   (POINTS TO PREVIOUS FREE BLOCK           \r\nC                                      IN CHAIN, ALWAYS 0 FOR 1ST BLK)          \r\nC                         WORD 1 - 0   (POINTS TO NEXT BLOCK IN CHAIN           \r\nC                                      -INITIALLY SET TO ZERO)                  \r\nC                         WORD 2 - L   (NUMBER OF FREE WORDS IN BLOCK)          \r\nC        DIRECTORY FORMAT                                                       \r\nC               THE FIRST TWO WORDS OF THE DIRECTORY BLOCK CONTAIN:             \r\nC                   WORD  0 - MAXIMUM NUMBER OF ENTRIES IN DIRECTORY            \r\nC                   WORD  1 - CURRENT ENTRIES IN THE DIRECTORY                  \r\nC               EACH ENTRY IN THE DIRECTORY HAS THE FOLLOWING FORMAT            \r\nC               (NOTE, FIRST ENTRY BEGINS AT WORD 3 OF BLOCK)                   \r\nC                   WORD  0 - UNIT NUMBER OF DMAP FILE AS FOUND IN FIAT         \r\nC                   WORD  1 - INDEX TO FIRST IN-MEMORY DATA BLOCK               \r\nC                   WORD  2 - INDEX TO LAST IN-MEMORY DATA BLOCK                \r\nC                   WORD  3 - INDEX TO CURRENT IN-MEMORY DATA BLOCK             \r\nC                   WORD  4 - CURRENT BLOCK NUMBER BEING PROCESSED              \r\nC                   WORD  5 - LAST BLOCK NUMBER                                 \r\nC                   WORD  6 - ORIGINAL BUFFER ADDRESS                           \r\nC                   WORD  7 - TOTAL BLOCKS (EXT. FILE + IN M. DB)               \r\nC                   WORD  8 - OPEN FLAG FOR EXT. FILE (0,NO;1,YES)              \r\nC               WORDS  9-10 - DMAP FILE NAME                                    \r\nC               WORDS 11-16 - DMAP FILE TRAILER                                 \r\nC********************************************************************           \r\n      INCLUDE  'DSIOF.COM'\r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      COMMON / ZZZZZZ / MEM( 4 )                                                \r\n      IDBDIR = 0                                                                \r\n      IF ( IDBLEN .EQ. 0 ) GO TO 700                                            \r\nC  INITIALIZE THE CHAIN OF FREE BLOCKS AS ONE BIG FREE BLOCK                    \r\n      IDBBAS = LOCFX( MEM )                                                     \r\n      IDBFRE = IDBADR - IDBBAS + 1                                              \r\n      MEM( IDBFRE )  = 0                                                        \r\n      MEM( IDBFRE+1) = 0                                                        \r\n      MEM( IDBFRE+2) = IDBLEN - 2                                               \r\n      MAXALC         = IDBLEN / ( ISYSBF-3+4 )                                  \r\n      IDBDIR = 1                                                                \r\n700   CONTINUE                                                                  \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmio.f",
    "content": "      SUBROUTINE DBMIO ( OPCODE )                                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\nC                                                                               \r\nC  OPCODE                                                                       \r\nC         = 1   OPEN, IOCODE = 0 OPEN FOR READ WITH REWIND                      \r\nC                            = 1 OPEN FOR WRITE WITH REWIND                     \r\nC                            = 2 OPEN FOR READ WITHOUT REWIND                   \r\nC                            = 3 OPEN FOR WRITE WITHOUT REWIND                  \r\nC         = 2   CLOSE, IOCODE = 1 CLOSE WITH REWIND                             \r\nC                                OTHERWISE, NO REWIND                           \r\nC         = 3   REWIND                                                          \r\nC         = 4   WRITE ONE BLOCK                                                 \r\nC         = 5   READ ONE BLOCK                                                  \r\nC         = 6   POSITION                                                        \r\nC         = 7   DELETE FILE                                                     \r\nC         = 8   WRTBLK CODE                                                     \r\nC         = 9   RDBLK CODE                                                      \r\nC-----------------------------------------------------------------------        \r\n      INTEGER   OPCODE                                                          \r\nC      PRINT *,' DBMIO CALLED WITH OPCODE,IFILEX=',OPCODE,IFILEX                \r\nC      PRINT *,' DBMIO,NBLOCK,IOCODE=',NBLOCK,IOCODE                            \r\nC      WRITE(6,40646)(FCB(K,IFILEX),K=1,15)                                     \r\n40646 FORMAT(' DBMIO-ENTRY,FCB=',/                                              \r\n     & I3,I7,4I5,I7,I2,4I7,1X,2A4,I4)                                           \r\n      GO TO (100,200,300,400,500,600,700,800,900),OPCODE                        \r\nC-OPEN ------------------------------                                           \r\nC     OPEN FILE ACCORDING TO IOCODE                                             \r\nC       =0, OPEN AND READ FIRST BLOCK                                           \r\nC       =1, OPEN AND RETURN ( OPEN FOR WRITE )                                  \r\nC       =2, OPEN AND READ THE CURRENT BLOCK WHEN FILE WAS CLOSED                \r\nC       =3, OPEN AND READ THE CURRENT BLOCK WHEN FILE WAS CLOSED                \r\n100   CONTINUE                                                                  \r\n      CALL DSGNOP                                                               \r\n      FCB( 15, IFILEX ) = 700+IOCODE                                            \r\n      FCB(  1, IFILEX ) = IOCODE                                                \r\n      IF ( IOCODE .EQ. 0 ) GO TO 110                                            \r\n      IF ( IOCODE .EQ. 1 ) GO TO 111                                            \r\n      IF ( IOCODE .EQ. 2 ) GO TO 112                                            \r\n      IF ( IOCODE .EQ. 3 ) GO TO 113                                            \r\n110   CONTINUE                                                                  \r\n      FCB( 4, IFILEX ) = NBLOCK                                                 \r\n      GO TO 600                                                                 \r\n111   CONTINUE                                                                  \r\n      FCB( 4, IFILEX ) = NBLOCK                                                 \r\n      FCB( 5, IFILEX ) = NBLOCK                                                 \r\n      FCB( 6, IFILEX ) = NBLOCK                                                 \r\n      GO TO 7000                                                                \r\n112   CONTINUE                                                                  \r\n113   CONTINUE                                                                  \r\n      NBLOCK = FCB( 4, IFILEX )                                                 \r\n      IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 600                                  \r\n      NBLOCK = 1                                                                \r\n      GO TO 111                                                                 \r\nC-CLOSE -----------------------------                                           \r\n200   CONTINUE                                                                  \r\n      CALL DSGNCL                                                               \r\n      IF ( IOCODE .EQ. 0 ) FCB( 4, IFILEX ) = 1                                 \r\n      IF ( FCB( 15, IFILEX ) .NE. 701 .AND. FCB( 15, IFILEX ) .NE. 703 )        \r\n     &     GO TO 210                                                            \r\n      FCB(  4, IFILEX ) = FCB(  4, IFILEX ) - 1                                 \r\n      FCB(  6, IFILEX ) = FCB(  6, IFILEX ) - 1                                 \r\n210   CONTINUE                                                                  \r\n      FCB( 15, IFILEX ) = 0                                                     \r\n      GO TO 7000                                                                \r\nC-REWIND ----------------------------                                           \r\n300   CONTINUE                                                                  \r\n      FCB(  4, IFILEX ) = 1                                                     \r\n      NBLOCK = 1                                                                \r\n      IF ( FCB( 15, IFILEX ) .EQ. 701 .OR.                                      \r\n     &     FCB( 15, IFILEX ) .EQ. 703 ) GO TO 7000                              \r\n      GO TO 600                                                                 \r\nC-WRITE -----------------------------                                           \r\n400   CONTINUE                                                                  \r\n      CALL DSGNWR                                                               \r\n      FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1                                   \r\n      IF ( FCB( 4, IFILEX ) .GT. FCB( 6, IFILEX ) )                             \r\n     &     FCB( 6, IFILEX ) = FCB( 4, IFILEX )                                  \r\n      GO TO 7000                                                                \r\nC-READ                                                                          \r\n500   CONTINUE                                                                  \r\n      FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1                                   \r\n      NBLOCK = FCB( 4, IFILEX )                                                 \r\n      CALL DSGNRD                                                               \r\n      GO TO 7000                                                                \r\nC-POSITION AND READ BLOCK \"NBLOCK\"                                              \r\n600   CONTINUE                                                                  \r\n      CALL DSGNRD                                                               \r\n      GO TO 7000                                                                \r\nC-DELETE FILE                                                                   \r\n700   CONTINUE                                                                  \r\n      OPEN  (IFILEX, FILE=MDSNAM(IFILEX), STATUS='UNKNOWN')                     \r\n      CLOSE (IFILEX, STATUS='DELETE')                                           \r\n      FCB( 5, IFILEX ) = 0                                                      \r\n      FCB( 6, IFILEX ) = 0                                                      \r\n      GO TO 7000                                                                \r\nC-SPECIAL RDBLK CALL                                                            \r\n900   CONTINUE                                                                  \r\n      PRINT *,' ERROR, DBMIO CALLED FOR RDBLK CALL'                             \r\n      STOP                                                                      \r\nC-SPECIAL WRTBLK CALL                                                           \r\n800   CONTINUE                                                                  \r\n      PRINT *,' ERROR, DBMIO CALLED FOR WRTBLK CALL'                            \r\n      STOP                                                                      \r\n7000  CONTINUE                                                                  \r\nC      WRITE(6,40647)(FCB(K,IFILEX),K=1,15)                                     \r\n40647 FORMAT(' DBMIO-EXIT,FCB=',/                                               \r\n     & I3,I7,4I5,I7,I2,4I7,1X,2A4,I4)                                           \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmlbk.f",
    "content": "      SUBROUTINE DBMLBK ( LASBLK )                                              \r\nC                                                                               \r\nC THIS SUBROUTINE WILL RETURN THE LAST BLOCK NUMBER ALLOCATED TO THE            \r\nC UNIT \"IFILEX\"                                                                 \r\nC                                                                               \r\n      INCLUDE   'DSIOF.COM'                                                     \r\n      INCLUDE   'ZZZZZZ.COM'\r\n      LASBLK = FCB( 6, IFILEX )                                                 \r\n      IF ( LASBLK .NE. 0 ) GO TO 7000                                           \r\n      INDEX  = FCB( 10, IFILEX )                                                \r\n      IF ( INDEX .EQ. 0 ) GO TO 200                                             \r\n      LASBLK = MEM( INDEX+3 )                                                   \r\n      GO TO 7000                                                                \r\n200   LASBLK = 0                                                                \r\n7000  CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n                                                                                \r\n                                                                                \r\n"
  },
  {
    "path": "mds/dbmmgr.f",
    "content": "      SUBROUTINE DBMMGR ( OPCODE )\r\nC*********************************************************************\r\nC        / FCB /\r\nC            FCB(1,I) - OPEN FLAG\r\nC            FCB(2,I) - BUFFER ADDRESS\r\nC            FCB(3,I) - CURRENT CLR\r\nC            FCB(4,I) - CURRENT BLOCK NUMBER\r\nC            FCB(5,I) - FIRST BLOCK NUMBER WRITTEN TO THIS FILE\r\nC            FCB(6,I) - LAST BLOCK NUMBER WRITTEN TO THIS FILE\r\nC            FCB(7,I) - MAXIMUM NUMBER OF BLOCKS TO BE ALLOCATED\r\nC                       TO THIS FILE\r\nC            FCB(8,I) - =0, IF NO MATRIX STRINGS WRITTEN TO FILE\r\nC                       =1, OTHERWISE, USED TO INITIALIZE COLUMN\r\nC                           NUMBER TO 1.\r\nC            FCB(9,I) - INDEX TO FIRST IN-MEMORY BLOCK\r\nC            FCB(10,I)- INDEX TO LAST IN-MEMORY BLOCK\r\nC            FCB(11,I)- INDEX TO CURRENT IN-MEMORY BLOCK\r\nC            FCB(12,I)- ORIGINAL BUFFER ADDRESS\r\nC            FCB(13-14,I) - DMAP FILE NAME (2A4)\r\nC            FCB(15,I)- OPEN FLAG FOR EXTERNAL FILE\r\nC        / DBM/\r\nC            IDBBAS - (INPUT)-INDEX TO IN-MEMORY DATA BASE RELATIVE\r\nC                              TO /DBM/\r\nC            IDBFRE - (INPUT)-INDEX TO FREE CHAIN OF IN-MEMORY DATA\r\nC                              BASE RELATIVE TO /DBM/\r\nC            IDBDIR - (INPUT)-INDEX TO FIRST DIRECTORY BLOCK\r\nC            MAXALC - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS AVAILABLE FOR\r\nC                              JOB\r\nC            MAXBLK - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS ALLOCATED(JOB)\r\nC            MAXDSK - (OUTPUT)-MAXIMUM NUMBER OF BLOCKS WRITTEN TO\r\nC                              TO DISK\r\nC            LENALC - (OUTPUT)-LENGTH OF EACH ALLOCATED BLOCK\r\nC            IOCODE - (INPUT) -IO-CODE FOR OPEN/CLOSE CALL\r\nC            IFILEX - (INPUT) -FILE NUMBER FOR GINO FILE IN /XFIAT/\r\nC            NBLOCK - (INPUT/OUTPUT) -BLOCK NUMBER BEING REFERENCED\r\nC            NAME   - (INPUT) -GINO FILE NAME (E.G., 101,201,303,...)\r\nC            INDBAS - INDEX TO START OF BUFFER RELATIVE TO /ZZZZZZ/\r\nC            INDCLR - INDEX TO CLR WITHIN BUFFER RELATIVE TO /ZZZZZZ/\r\nC            INDCBP - INDEX TO CBP WITHIN BUFFER RELATIVE TO /ZZZZZZ/\r\nC        FREE CHAIN FORMAT (ALSO, ALL BLOCKS ALLOCATED)\r\nC               IDBFRE==> WORD 0    POINTER TO PREVIOUS FREE BLOCK\r\nC                                      IN CHAIN, ALWAYS 0 FOR 1ST BLK)\r\nC                         WORD 1    POINTER TO NEXT BLOCK IN CHAIN\r\nC                                      -INITIALLY SET TO ZERO)\r\nC                         WORD 2    NUMBER OF FREE WORDS IN BLOCK\r\nC                         WORD 3    RELATIVE BLOCK NUMBER\r\nC\r\nC         OPCODE\r\nC           1    OPEN\r\nC                  /GINOX/ IOCODE = 0 ; READ WITH REWIND\r\nC                                 = 1 ; WRITE WITH REWIND\r\nC                                 = 2 ; READ WITHOUT REWIND\r\nC                                 = 3 ; WRITE WITHOUT REWIND\r\nC           2    CLOSE\r\nC                  /GINOX/ IOCODE = 1 ; CLOSE WITH REWIND\r\nC                                    (OTHERWISE NO REWIND)\r\nC           3    REWIND\r\nC           4    WRITE\r\nC           5    READ\r\nC           6    POSITION FILE\r\nC                  NBLOCK = BLOCK NUMBER TO POSITION TO\r\nC           7    DELETE FILE\r\nC           8    PROCESS WRTBLK REQUEST (SUBSTRUCTURING)\r\nC           9    PROCESS RDBLK REQUEST (SUBSTRUCTURING)\r\nC********************************************************************\r\n      INTEGER    OPCODE\r\n      INTEGER    CASE  / 4HCASE /\r\n      INTEGER    XYCD  / 4HXYCD /\r\n      INTEGER    PCDB  / 4HPCDB /\r\n      INTEGER    POOL  / 4HPOOL /\r\n      INTEGER    XPDT  / 4HXPDT /\r\n      INCLUDE    'DSIOF.COM'\r\n      COMMON / XFIST  / FIST(10)\r\n      COMMON / XFIAT  / FIAT(10)\r\n      COMMON / ZZZZZZ / MEM(4)\r\n      COMMON / SYSTEM / ISYSBF, IWR\r\n      DATA     LENBUF / 0 /\r\n      IF ( LENBUF .NE. 0 ) GO TO 10\r\nC SET UP BLOCK ALLOCATIONS FOR DOUBLE WORD BOUNDARIES\r\n      IBASBF = LOCFX( MEM )\r\n      LENBUF = ISYSBF - 3 + 8\r\n      LENALC = LENBUF\r\n      NBUFF3 = ISYSBF - 4\r\n      ITEST  = MOD( LENBUF,2)\r\n      IF ( ITEST .NE. 0 ) LENBUF = LENBUF + 1\r\n10    IF ( IDBDIR .NE. 0 ) GO TO 30\r\nC OPCODES OF 8 AND 9 HAVE NO PURPOSE WHEN THERE IS NO USE OF THE\r\nC IN-MEMORY DATA BASE\r\n      IF ( OPCODE .EQ. 8 .OR. OPCODE .EQ. 9 ) GO TO 7777\r\nC  CALL DBMIO DIRECTLY, NO IN-MEMORY DATA BASE\r\n20    CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\n30    IF ( NAME .GT. 100 .AND. NAME .LT. 400 ) GO TO 50\r\nC30    IF ( NAME .GT. 300 .AND. NAME .LT. 400 ) GO TO 50\r\nC  CHECK FOR CASECC, XYCD, AND PCDB (SETUP IN FIAT FOR PREFACE)\r\n      IF ( NAME .EQ. CASE ) GO TO 50\r\n      IF ( NAME .EQ. XYCD ) GO TO 50\r\n      IF ( NAME .EQ. PCDB ) GO TO 50\r\n      IF ( NAME .EQ. XPDT ) GO TO 50\r\n      IF ( NAME .EQ. POOL ) GO TO 50\r\nC OPCODES OF 8 AND 9 HAVE NO PURPOSE WHEN THERE IS NO USE OF THE\r\nC IN-MEMORY DATA BASE\r\n      IF ( OPCODE .EQ. 8 .OR. OPCODE .EQ. 9 ) GO TO 7777\r\nC CALL DBMIO DIRECTLY BECAUSE THIS IS AN EXECUTIVE FILE\r\n      IF ( FCB(  9, IFILEX ) .NE. 0 ) CALL DBMREL\r\n      GO TO 20\r\n50    CONTINUE\r\nC      IF ( IFILEX .NE. 48 ) GO TO 55\r\nC      IF ( NAME .NE. 307 ) GO TO 55\r\nC      WRITE(IWR,40646)OPCODE,IOCODE,NBLOCK,IFILEX,NAME,INDBAS\r\n40646 FORMAT(/,' OPCODE,IOCODE,NBLOCK,IFILEX,NAME,INDBAS=',6I6)\r\nC      WRITE(IWR,40647)(MEM(INDBAS+KB),KB=-4,20)\r\n40647 FORMAT(' INPUT BUFFER HAS=',/,10(4(1X,Z8),/))\r\nC      WRITE(6,44770)(FCB(K,IFILEX),K=1,15)\r\n44770 FORMAT(' ENTERRED FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8)\r\nC      CALL DBMFDP\r\n55    CONTINUE\r\n      GO TO ( 100,200,300,400,500,600,700,800,900),OPCODE\r\nC****************\r\nC OPEN CODE *********************************************************\r\nC****************\r\n100   CONTINUE\r\n      FCB(  1, IFILEX ) = IOCODE\r\n      FCB( 12, IFILEX ) = FCB(  2, IFILEX )\r\n      IF ( FCB( 9, IFILEX ) .NE. 0 ) GO TO 130\r\nC CHECK TO SEE IF FILE IS SELF CONTAINED ON DISK\r\n      IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 120\r\n105   CONTINUE\r\n      IF ( IOCODE .NE. 0 .AND. IOCODE .NE. 2 ) GO TO 108\r\n      WRITE ( IWR, 9900 ) IFILEX, FCB( 13, IFILEX), FCB( 14, IFILEX )\r\n9900  FORMAT(///,' DBMMGR ERROR, ATTEMPT TO OPEN FOR READ OR WRITE APP'\r\n     &,'END:'\r\n     &,/,' UNIT-',I4,'  NAME=',2A4,' WHICH DOES NOT EXIST.')\r\nC      CALL DBMDMP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n108   CONTINUE\r\nC NEW FILE NAME FOR IFILEX, RELEASE ANY PREVIOUSLY ALLOCATED BLOCKS\r\n      IF ( FCB(  9, IFILEX ) .NE. 0 ) CALL DBMREL\r\nC CREATE FILE ENTRY IN FCB\r\n      DO 110 I = 3,11\r\n      IF ( I .EQ. 7 ) GO TO 110\r\n      FCB(  I, IFILEX ) = 0\r\n110   CONTINUE\r\n      FCB(  4, IFILEX ) = 1\r\n      NBLOCK            = 1\r\n115   CONTINUE\r\nC ALLOCATE FIRST BLOCK\r\n      CALL DBMALB ( LENBUF, NEXBLK )\r\n      IF ( NEXBLK .LE. 0 ) GO TO 120\r\n      FCB(  9, IFILEX ) = NEXBLK\r\n      FCB( 10, IFILEX ) = NEXBLK\r\n      FCB( 11, IFILEX ) = NEXBLK\r\nC INITIALIZE PREVIOUS, NEXT, LENGTH AND BLOCK NUMBER FOR ALLOCATED BLK\r\n      MEM( NEXBLK   ) = 0\r\n      MEM( NEXBLK+1 ) = 0\r\n      MEM( NEXBLK+2 ) = LENBUF\r\n      MEM( NEXBLK+3 ) = 1\r\n      FCB(  2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 4)\r\n      GO TO 7000\r\nC NO MORE SPACE WITHIN IN-MEMORY DATA BASE, USE I/O\r\n120   CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\nC FILE EXISTS IN IN-MEMORY DATA BASE\r\n130   CONTINUE\r\n      IF ( IOCODE .EQ. 0 ) GO TO 150\r\n      IF ( IOCODE .EQ. 1 ) GO TO 160\r\n      IF ( IOCODE .EQ. 2 ) GO TO 170\r\n      IF ( IOCODE .EQ. 3 ) GO TO 180\r\nC FILE IS OPENED FOR READ WITH REWIND\r\n150   CONTINUE\r\n      NEXBLK = FCB( 9, IFILEX )\r\n      IF ( NEXBLK .GT. 0 ) GO TO 155\r\n      WRITE ( IWR, 9910 ) IFILEX\r\n9910  FORMAT(///,' DBMMGR ERROR, ATTEMPT TO READ FILE WITH NO BLOCKS'\r\n     &        /,' UNIT=',I4)\r\nC      CALL DBMDMP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE( -61, 0, 0 )\r\n155   CONTINUE\r\n      FCB( 11, IFILEX ) = NEXBLK\r\n      FCB(  4, IFILEX ) = 1\r\n      NBLOCK            = 1\r\n      FCB(  2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 3 )\r\n      GO TO 7000\r\nC FILE IS OPENED FOR WRITE WITH REWIND\r\n160   CONTINUE\r\n      GO TO 105\r\nC FILE IS OPENED FOR READ WITHOUT REWIND\r\n170   CONTINUE\r\n      NEXBLK = FCB(  10, IFILEX )\r\n      LASTIB = MEM( NEXBLK+3 )\r\n      NBLOCK = FCB( 4, IFILEX )\r\n      IF ( FCB( 4, IFILEX ) .GT. LASTIB ) GO TO 120\r\n      IF ( FCB( 4, IFILEX ) .EQ. 1 ) GO TO 150\r\n      NEXBLK = FCB( 11, IFILEX )\r\n      IBLK1 = FCB(  4, IFILEX )\r\n      IBLK2 = MEM( NEXBLK+3 )\r\n      IBLK3 = MEM( NEXBLK+7 )\r\n      FCB(  2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\nC CHECK THAT CURRENT BLOCK NUMBER MATCHES BLOCK NO. IN IN-MEM BLK\r\n      IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000\r\n      GO TO 190\r\nC FILE IS OPENED FOR WRITE WITHOUT REWIND\r\n180   CONTINUE\r\n      NEXBLK = FCB(  10, IFILEX )\r\n      LASTIB = MEM( NEXBLK+3 )\r\n      IF ( FCB( 4, IFILEX ) .GT. LASTIB ) GO TO 120\r\nC======      IF ( FCB( 4, IFILEX ) .EQ. 1      ) GO TO 160\r\n      NEXBLK = FCB( 11, IFILEX )\r\nC IGNORE ANY PREVIOUSLY WRITTEN BLOCKS FOR THIS FILE\r\n      FCB(  5, IFILEX ) = 0\r\n      FCB(  6, IFILEX ) = 0\r\n      IBLK1  = FCB(  4, IFILEX )\r\n      IBLK2  = MEM( NEXBLK+3 )\r\n      IBLK3  = MEM( NEXBLK+7 )\r\n      FCB(  2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\nC CHECK THAT CURRENT BLOCK NUMBER MATCHES BLOCK NO. IN IN-MEM BLK\r\n      IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000\r\n190   CONTINUE\r\n      WRITE ( IWR, 9911 ) IFILEX, IBLK1, IBLK2, IBLK3\r\n9911  FORMAT(///' BLOCK NUMBERS INCONSISTANT ON OPEN IN DBMMGR'\r\n     &,/,' UNIT =',I4\r\n     &,/,' BLOCK NUMBER EXPECTED (IN FCB)  =',I8\r\n     &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8\r\n     &,/,' BLOCK NUMBER IN BUFFER          =',I8 )\r\nC      CALL DBMDMP\r\n      CALL DBMFDP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\nC****************\r\nC CLOSE CODE ********************************************************\r\nC****************\r\n200   CONTINUE\r\nC CHECK TO SEE IF FILE HAS IN-MEMORY BLOCKS\r\n      IF ( FCB(  9, IFILEX ) .NE. 0 ) GO TO 220\r\n210   CALL DBMIO ( OPCODE )\r\n      GO TO 7000\r\n220   CONTINUE\r\nCWKBDB SPR94012 10/94\r\nC      IF ( IOCODE .NE. 1 ) GO TO 225\r\nCC CLOSE FILE WITH REWIND\r\nC      FCB( 11, IFILEX ) = FCB(  9, IFILEX )\r\nC      FCB(  4, IFILEX ) = 1\r\nC      IF ( FCB( 5, IFILEX ) .NE. 0 ) GO TO 210\r\nCWKBDE SPR94012 10/94\r\nC IF FILE IS OPENED FOR READ THAN GO COMPUTE STATISTICS\r\n225   IF ( FCB(  1, IFILEX ) .EQ. 0.OR.\r\n     &     FCB(  1, IFILEX ) .EQ. 2 ) GO TO 240\r\n      IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 240\r\nC FILE OPENED FOR WRITE AND FILE NOT SPILLED TO DISK, THEN\r\nC RELEASE LAST ALLOCATED BLOCK, BECAUSE IT WAS NOT USED\r\n      NEXBLK = FCB( 11, IFILEX )\r\nC RESET LAST BLOCK POINTER, GET PREVIOUS BLOCK ALLOCATED\r\nCWKBNB SPR94012 10/94\r\n228   IBLOCK = MEM( NEXBLK+3 )\r\nC CHECK IF LAST BLOCK NOT USED, THERE COULD HAVE BEEN A BACKPSPACE BACK\r\nC TO A PREVIOUS USED BLOCK (CAUSED BY CLOSE CALLING DSBRC1 TO BACKSPACE\r\nC OVER AN EOF THAT WAS AT THE END OF A PREVIOUS BLOCK).\r\n      IF ( IBLOCK .GT. NBLOCK ) GO TO 230\r\n      NEXBLK = MEM( NEXBLK+1 )\r\n      IF ( NEXBLK .EQ. 0 ) GO TO 240\r\n      GO TO 228\r\n230   CONTINUE\r\nCWKBNE SPR94012 10/94\r\n      INDBLK            = MEM( NEXBLK )\r\n      FCB( 10, IFILEX ) = INDBLK\r\n      FCB( 11, IFILEX ) = INDBLK\r\n      FCB(  4, IFILEX ) = MEM( INDBLK+3 )\r\n      FCB(  2, IFILEX ) = LOCFX( MEM( INDBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMRLB( NEXBLK )\r\nCWKBNB SPR94012 10/94\r\n240   IF ( IOCODE .NE. 1 ) GO TO 245\r\nC CLOSE FILE WITH REWIND\r\n      FCB( 11, IFILEX ) = FCB(  9, IFILEX )\r\n      FCB(  4, IFILEX ) = 1\r\nCWKBNE SPR94012 10/94\r\nCWKBR  SPR94012 10/94\r\nC240   IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( OPCODE )\r\n245   IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( OPCODE )\r\n      IF ( FCB( 5, IFILEX ) .LE. FCB( 6, IFILEX ) ) GO TO 7000\r\nC SPECIAL CASE, LAST BLOCK ALLOCATED WAS FOR DISK BUT NEVER USED, RESET\r\nC INDBAS BACK TO LAST IN-MEMORY BLOCK\r\n      NEXBLK = FCB( 10, IFILEX )\r\n      FCB( 2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      FCB( 5, IFILEX ) = 0\r\n      FCB( 6, IFILEX ) = 0\r\n      FCB(11, IFILEX ) = FCB( 10, IFILEX )\r\n      GO TO 7000\r\nC****************\r\nC REWIND OPCODE *****************************************************\r\nC****************\r\n300   CONTINUE\r\nC IF FILE IS ON EXTERNAL FILE CALL DBMIO DIRECTLY\r\n      IF ( FCB( 9, IFILEX ) .NE. 0 ) GO TO 320\r\n      CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\n320   CONTINUE\r\n      NEXBLK            = FCB(  9, IFILEX )\r\n      FCB( 11, IFILEX ) = NEXBLK\r\n      FCB(  4, IFILEX ) = 1\r\nC REPLACE BUFFER ADDRESS IN FCB\r\n      FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 3 )\r\n      IOCODE = 0\r\n      IF ( FCB( 5, IFILEX ) .NE. 0 ) CALL DBMIO ( 2 )\r\n      GO TO 7000\r\nC****************\r\nC WRITE CODE ********************************************************\r\nC****************\r\n400   CONTINUE\r\nC CHECK TO SEE IF THIS BLOCK IS ON EXTERNAL FILE\r\n      IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 450\r\nC CHECK THAT BLOCK NUMBER MATCHES\r\n      NEXBLK = FCB( 11, IFILEX )\r\n      IBLK1  = FCB(  4, IFILEX )\r\n      IBLK2  = MEM( NEXBLK+3 )\r\n      IBLK3  = MEM( NEXBLK+7 )\r\n      IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 410\r\n      WRITE ( IWR, 9940 ) IFILEX, IBLK1, IBLK2, IBLK3\r\n9940  FORMAT(///' BLOCK NUMBERS INCONSISTANT ON WRITE IN DBMMGR'\r\n     &,/,' UNIT = ',I4\r\n     &,/,' BLOCK NUMBER EXPECTED (IN FCB)  =',I8\r\n     &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8\r\n     &,/,' BLOCK NUMBER IN BUFFER          =',I8 )\r\nC      CALL DBMDMP\r\n      CALL DBMFDP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n410   CONTINUE\r\n      FCB(  4, IFILEX ) = FCB(  4, IFILEX ) + 1\r\n      NEXBLK = MEM( INDBAS-3 )\r\n      IF ( NEXBLK .EQ. 0 ) GO TO 420\r\nC USE EXISTING BLOCK ALREADY ALLOCATED FROM PREVIOUS OPEN FOR WRITE\r\n      FCB( 11, IFILEX) = NEXBLK\r\n      FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 4 )\r\n      GO TO 7000\r\n420   CONTINUE\r\n      CALL DBMALB ( LENBUF, NEXBLK )\r\n      IF ( NEXBLK .LE. 0 ) GO TO 440\r\nC ANOTHER BLOCK SUCCESSFULLY ALLOCATED, CONNECT TO CHAIN\r\n      INDBLK          = FCB( 11, IFILEX )\r\n      MEM( INDBLK+1 ) = NEXBLK\r\n      MEM( NEXBLK   ) = INDBLK\r\n      MEM( NEXBLK+1 ) = 0\r\n      MEM( NEXBLK+2 ) = LENBUF\r\n      MEM( NEXBLK+3 ) = FCB(  4, IFILEX )\r\n      FCB( 10, IFILEX) = NEXBLK\r\n      FCB( 11, IFILEX) = NEXBLK\r\n      FCB( 2,IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 4 )\r\n      GO TO 7000\r\nC NO MORE SPACE IN IN-MEMORY DATA BASE, WRITE DATA TO FILE\r\n440   CONTINUE\r\nC CALL DBMIO TO OPEN EXTERNAL FILE WITH REWIND\r\n      ISAVE  = IOCODE\r\n      ISAVEB = NBLOCK\r\n      IOCODE = 1\r\n      NBLOCK = FCB( 4, IFILEX )\r\n      IPRBLK = INDBAS\r\nC RESET BUFFER ADDRESS TO BUFFER IN USER'S OPEN CORE\r\n      FCB( 2,IFILEX ) = FCB( 12, IFILEX )\r\n      INDBAS = FCB( 2, IFILEX )\r\n      CALL DBMIO ( 1 )\r\n      IOCODE   = ISAVE\r\n      NBLOCK   = ISAVEB\r\nC      WRITE(6,88771)(MEM(IPRBLK+K),K=-4,4)\r\n88771 FORMAT(' MEMPRBLK=',9(1X,Z8))\r\nC      WRITE(6,88772)(MEM(INDBAS+K),K=-4,4)\r\n88772 FORMAT(' MEMINDBAS=',9(1X,Z8))\r\nC      PRINT *,' IFILEX,NBLOCK,IPRBLK,INDBAS=',IFILEX,NBLOCK,\r\nC     & IPRBLK,INDBAS\r\n      CALL DBMMOV ( IPRBLK, INDBAS, 4 )\r\nC      PRINT *,' MEM(IPRBLK=',MEM(IPRBLK)\r\nC      WRITE(6,88771)(MEM(IPRBLK+K),K=-4,4)\r\nC      WRITE(6,88772)(MEM(INDBAS+K),K=-4,4)\r\n      GO TO 7000\r\n450   CONTINUE\r\n      CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\nC****************\r\nC READ CODE *********************************************************\r\nC****************\r\n500   CONTINUE\r\n      IF ( FCB( 5, IFILEX ) .EQ. 0 ) GO TO 505\r\n      IF ( FCB( 4, IFILEX ) .GE. ( FCB( 5, IFILEX ) - 1 ) ) GO TO 540\r\n505   FCB( 4, IFILEX ) = FCB( 4, IFILEX ) + 1\r\n      NEXBLK = MEM( INDBAS-3 )\r\n      IF ( NEXBLK .GT. 0 ) GO TO 510\r\n      WRITE ( IWR, 9950 ) FCB( 4, IFILEX ), IFILEX\r\n9950  FORMAT(///,' ERROR IN DBMMGR DURING READ',/,' EXPECTED ANOTHER '\r\n     &,' IN-MEMORY BLOCK FOR BLOCK=',I8,' UNIT=',I3)\r\nC      CALL DBMDMP\r\n      CALL DBMFDP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n510   FCB(  2, IFILEX ) = LOCFX( MEM( NEXBLK+4 ) ) - IBASBF + 1\r\n      FCB( 11, IFILEX ) = NEXBLK\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 3 )\r\n      IBLK1 = FCB( 4, IFILEX)\r\n      IBLK2 = MEM( NEXBLK+3 )\r\n      IBLK3 = MEM( NEXBLK+7 )\r\n      IF ( IBLK1 .EQ. IBLK2 .AND. IBLK1 .EQ. IBLK3 ) GO TO 7000\r\n      WRITE ( IWR, 9951 ) IFILEX, IBLK1, IBLK2, IBLK3\r\n9951  FORMAT(///' BLOCK NUMBERS INCONSISTANT ON READ IN DBMMGR'\r\n     &,/,' UNIT =',I4\r\n     &,/,' BLOCK NUMBER  (IN FCB)          =',I8\r\n     &,/,' BLOCK NUMBER IN IN-MEMORY BLOCK =',I8\r\n     &,/,' BLOCK NUMBER IN BUFFER          =',I8 )\r\nC      CALL DBMDMP\r\n      CALL DBMFDP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\nC BLOCK IS NOT IN MEMORY, CALL DBMIO\r\n540   CONTINUE\r\n      IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 550\r\n      ISAVE  = IOCODE\r\n      ISAVEB = NBLOCK\r\n      IOCODE = 0\r\n      NBLOCK = FCB( 4, IFILEX ) + 1\r\n      IPRBLK = INDBAS\r\n      INDBAS = FCB( 12, IFILEX )\r\n      FCB( 2, IFILEX ) = INDBAS\r\n      CALL DBMIO ( 1 )\r\n      IOCODE = ISAVE\r\n      NBLOCK = ISAVEB\r\n      CALL DBMMOV ( IPRBLK, INDBAS, 3 )\r\n      GO TO 7777\r\n550   CONTINUE\r\n      IF ( FCB( 4, IFILEX ) .GT. FCB( 6, IFILEX ) ) GO TO 570\r\n      INDBAS = FCB( 12, IFILEX )\r\n      FCB( 2, IFILEX ) = INDBAS\r\n      CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\n570   CONTINUE\r\n      WRITE ( IWR, 9052 ) IFILEX\r\n9052  FORMAT(///,' DBMMGR ERROR, ATTEMPT TO READ BEYOND EOF'\r\n     &,/' UNIT=',I5)\r\nC      CALL DBMDMP\r\n      CALL DBMFDP\r\n      CALL DSMSG ( 777 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\nC****************\r\nC POSITION CODE *****************************************************\r\nC****************\r\n600   CONTINUE\r\n      IF ( FCB( 5, IFILEX ) .EQ. 0 ) GO TO 605\r\n      IF ( NBLOCK .GE. FCB( 5, IFILEX ) ) GO TO 690\r\n605   CONTINUE\r\nC BLOCK IS IN THE IN-MEMORY DATA BASE, WALK CHAIN TO CORRECT BLOCK\r\n      IOFF    = 1\r\n      NBLK    = NBLOCK - 1\r\n      NEXBLK  = FCB( 9, IFILEX )\r\n      IF ( NBLOCK .EQ. 1 ) GO TO 670\r\n      ICNDEX = FCB( 11, IFILEX )\r\n      IF ( ICNDEX .EQ. 0 ) GO TO 610\r\n      NEXBLK  = ICNDEX\r\n      ICBLK   = MEM( ICNDEX+3 )\r\n      IF ( ICBLK .EQ. NBLOCK ) GO TO 670\r\n      IDIFF   = NBLOCK - ICBLK\r\n      NBLK    = IABS( IDIFF )\r\n      IF ( IDIFF .LT. 0 ) IOFF = 0\r\n610   CONTINUE\r\n      DO 620 I = 1, NBLK\r\n      NEXBLK  = MEM( NEXBLK+IOFF )\r\n620   CONTINUE\r\nC SET DIRECTORY ENTRIES FOR THE POSITIONED BLOCK\r\n670   FCB( 11, IFILEX ) = NEXBLK\r\n      FCB(  4, IFILEX ) = NBLOCK\r\n      FCB(  2, IFILEX ) = LOCFX( MEM(NEXBLK+4) ) - IBASBF + 1\r\n      CALL DBMMOV ( INDBAS, NEXBLK+4, 3 )\r\n      GO TO 7000\r\n690   CONTINUE\r\n      IF ( FCB( 15, IFILEX ) .NE. 0 ) GO TO 695\r\n      ISAVE  = IOCODE\r\n      IOCODE = 0\r\n      IPRBLK = INDBAS\r\n      INDBAS = FCB( 12, IFILEX )\r\n      FCB( 2, IFILEX ) = INDBAS\r\n      FCB( 4, IFILEX ) = NBLOCK\r\n      CALL DBMIO( 1 )\r\n      IOCODE = ISAVE\r\n      CALL DBMMOV ( IPRBLK, INDBAS, 3 )\r\n      GO TO 7777\r\n695   CONTINUE\r\n      FCB( 4, IFILEX ) = NBLOCK\r\n      INDBAS = FCB( 12, IFILEX )\r\n      FCB( 2, IFILEX ) = INDBAS\r\n      CALL DBMIO ( OPCODE )\r\n      GO TO 7777\r\nC****************\r\nC DELETE CODE *******************************************************\r\nC****************\r\n700   CONTINUE\r\n      IF ( FCB( 9, IFILEX ) .EQ. 0 ) GO TO 710\r\n      CALL DBMREL\r\n710   CONTINUE\r\n      CALL DBMIO ( 7 )\r\n      DO 720 K = 1,15\r\n      IF ( K .EQ. 7 ) GO TO 720\r\n      FCB( K, IFILEX ) = 0\r\n720   CONTINUE\r\n      GO TO 7777\r\nC****************\r\nC WRTBLK CODE *******************************************************\r\nC****************\r\nC SPECIAL ENTRY FOR SUBSTRUCTURING, MOVE DATA FROM OPENCORE BUFFER\r\nC CALLED BY WRTBLK OF GINO\r\n800   CONTINUE\r\n      IF ( FCB( 15, IFILEX ) .EQ. 0 ) GO TO 810\r\nC ORIGINAL BUFFER IS BEING USED BY GINO, JUST RETURN\r\n      GO TO 7777\r\n810   IND1 = FCB(  2, IFILEX )\r\n      IND2 = FCB( 12, IFILEX )\r\n      IND1 = IND1 + 2\r\n      IND2 = IND2 + 2\r\nC      PRINT *,' DBMMGR,WRTBLK,IND1,IND2,NBUFF3=',IND1,IND2,NBUFF3\r\nC      PRINT *,' DBMMGR,WRTBLK,INDBAS=',INDBAS\r\nC      WRITE(6,44771)(FCB(K,IFILEX),K=1,15)\r\nC      WRITE(6,44772)(MEM(IND2+K),K=1,8)\r\n44772 FORMAT(' DBMMGR,BUFFER,IND2=',8(1X,Z8))\r\n      DO 820 I = 1, NBUFF3\r\n      MEM( IND1+I ) = MEM( IND2+I )\r\n820   CONTINUE\r\n      GO TO 7000\r\nC****************\r\nC RDBLK  CODE *******************************************************\r\nC****************\r\nC SPECIAL ENTRY FOR SUBSTRUCTURING, MOVE DATA TO ORIGINAL BUFFER IF\r\nC THE IN-MEMORY DATA BASE IS BEING USED\r\nC CALLED BY RDBLK\r\n900   CONTINUE\r\n      IF ( FCB( 15, IFILEX ) .EQ. 0 ) GO TO 910\r\nC ORIGINAL BUFFER IS BEING USED, JUST RETURN\r\n      GO TO 7777\r\n910   IND1 = FCB(  2, IFILEX )\r\n      IND2 = FCB( 12, IFILEX )\r\n      IND1 = IND1 + 2\r\n      IND2 = IND2 + 2\r\nC      PRINT *,' DBMMGR,RDBLK,IND1,IND2,NBUFF3=',IND1,IND2,NBUFF3\r\nC      PRINT *,' DBMMGR,RDBLK,INDBAS=',INDBAS\r\nC      WRITE(6,44771)(FCB(K,IFILEX),K=1,15)\r\nC      WRITE(6,44773)(MEM(IND1+K),K=1,8)\r\n44773 FORMAT(' DBMMGR,BUFFER,IND1=',8(1X,Z8))\r\n      DO 920 I = 1, NBUFF3\r\n      MEM( IND2+I ) = MEM( IND1+I )\r\n920   CONTINUE\r\n      GO TO 7000\r\n7000  CONTINUE\r\nC SET INDBAS TO POINT TO CURRENT BUFFER\r\n      INDBAS = FCB( 2, IFILEX )\r\nC      IF ( NAME .NE. 307 ) GO TO 7777\r\nC      IF ( IFILEX .NE. 48 ) GO TO 7777\r\nC      PRINT *,' DBMMGR RETURNING,IFILEX,INDBAS=',IFILEX,INDBAS\r\nC      PRINT *,' DBMMGR RETURNING,INDCLR,INDCBP=',INDCLR,INDCBP\r\nC      write(6,40648)(mem(kb),kb=indbas-4,indbas+8)\r\n40648 format(' returned buffer=',/,10(4(1x,z8),/))\r\nC      WRITE(6,44771)(FCB(K,IFILEX),K=1,15)\r\nC      CALL DBMFDP\r\n44771 FORMAT(' returned FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8)\r\n7777  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/dbmmov.f",
    "content": "      SUBROUTINE DBMMOV ( INDEX1, INDEX2, NO )                                  \r\n      INCLUDE 'ZZZZZZ.COM'\r\n      DO 10 I = 1, NO                                                           \r\n      MEM( INDEX2+I-1 ) = MEM( INDEX1+I-1 )                                     \r\n10    CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmnam.f",
    "content": "      SUBROUTINE DBMNAM ( IGNAME, NAME, IFILEX )                                \r\nC********************************************************************           \r\nC  DBMNAM RETURNS THE DMAP NAME AND TRAILER FOR A GIVEN GINO FILE               \r\nC     ARGUMENTS                                                                 \r\nC       IGNAME  (INPUT )   GINO FILE NAME (E.G., 101,201,301)                   \r\nC       FIST    (INPUT )   COMMON BLOCK /XFIST/                                 \r\nC       FIAT    (INPUT )   COMMON BLOCK /XFIAT/                                 \r\nC       NAME    (OUTPUT)   (2A4) DMAP FILE NAME                                 \r\nC********************************************************************           \r\n      INTEGER FIST(100), FIAT(100), NAME(2)                          \r\n      INTEGER BLANK, POOL\r\n      COMMON / XFIST / FIST                                                     \r\n      COMMON / XFIAT / FIAT                                                     \r\n      DATA     POOL / 4HPOOL /, BLANK / 4H    /\r\n      IF ( IGNAME .LE. 100 .OR. IGNAME .GE. 400 ) GO TO 100\r\n      LIM  = FIST(2)*2 - 1                                                      \r\n      DO 10 I = 1, LIM, 2                                                       \r\n      IF ( IGNAME .NE. FIST(2+I) ) GO TO 10                                     \r\n      INDEX     = FIST(3+I)                                                     \r\n      NAME(1)   = FIAT( INDEX+2 )                                               \r\n      NAME(2)   = FIAT( INDEX+3 )                                               \r\n      GO TO 700                                                                 \r\n10    CONTINUE                                                                  \r\n      NAME(1)   = 0                                                             \r\n      NAME(2)   = 0                                                             \r\n      GO TO 700\r\n100   NAME(1) = IGNAME\r\n      NAME(2) = BLANK\r\n      IF ( IFILEX .EQ. 22 ) NAME(1) = POOL\r\n700   RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmrel.f",
    "content": "      SUBROUTINE DBMREL                                                         \r\nC********************************************************************           \r\nC  DBMREL  -   RELEASES IN-MEMORY BLOCKS THAT ARE CURRENTLY                     \r\nC              ALLOCATED TO AN IN-MEMORY FILE                                   \r\nC********************************************************************           \r\n      INCLUDE   'DSIOF.COM'                                                     \r\n      INCLUDE   'ZZZZZZ.COM'\r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      IF ( FCB( 9, IFILEX ) .EQ. 0 .OR. FCB( 10, IFILEX ) .EQ. 0 )              \r\n     &    GO TO 701                                                             \r\n      IF ( IDBFRE .NE. 0 ) GO TO 10                                             \r\nC FREE CHAIN IS EMPTY, THIS CHAIN BECOMES FREE CHAIN                            \r\n      IDBFRE = FCB( 9, IFILEX )                                                 \r\n      GO TO 777                                                                 \r\nC SET FIRST OF BLOCKS TO BE FREED AT FIRST OF FREE CHAIN AND                    \r\nC THEN CONNECT LAST OF BLOCKS TO BE FREED WITH FIRST OF EXISTING                \r\nC FREE CHAIN                                                                    \r\n10    CONTINUE                                                                  \r\n      IF ( FCB( 9, IFILEX ) .EQ. FCB( 10, IFILEX ) ) GO TO 20                   \r\n      ISAVE          = IDBFRE                                                   \r\n      IDBFRE         = FCB(  9, IFILEX )                                        \r\n      MEM( ISAVE )   = FCB( 10, IFILEX )                                        \r\n      INDEX          = FCB( 10, IFILEX )                                        \r\n      MEM( INDEX+1 ) = ISAVE                                                    \r\n      GO TO 777                                                                 \r\nC FILE HAD ONLY ONLY ONE BLOCK ALLOCATED TO IT                                  \r\n20    CONTINUE                                                                  \r\n      ISAVE          = IDBFRE                                                   \r\n      IDBFRE         = FCB(  9, IFILEX )                                        \r\n      MEM( ISAVE )   = IDBFRE                                                   \r\n      MEM( IDBFRE+1) = ISAVE                                                    \r\n      GO TO 777                                                                 \r\n701   WRITE( IWR, 901 )                                                         \r\n901   FORMAT(///,' ERROR IN ATTEMPT TO FREE BLOCKS TO FREE CHAIN',              \r\n     &       /,' CONTENTS OF THE DIRECTORY ARE AS FOLLOWS')                     \r\n      CALL DBMDMP                                                               \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n777   CONTINUE                                                                  \r\n      FCB(  9, IFILEX ) = 0                                                     \r\n      FCB( 10, IFILEX ) = 0                                                     \r\n      FCB( 11, IFILEX ) = 0                                                     \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmrlb.f",
    "content": "      SUBROUTINE DBMRLB ( INDEX )                                               \r\nC********************************************************************           \r\nC  DBMRLB  -   RELEASES AN IN-MEMORY BLOCK THAT IS CURRENTLY                    \r\nC              ALLOCATED AS THE LAST BLOCK OF AN IN-MEMORY FILE.                \r\nC              THIS IS USED TO RELEASE THE NEXT ALLOCATED BLOCK FOR A           \r\nC              FILE OPENED FOR WRITE BUT WAS NEVER USED BECAUSE THE            \r\nC              FILE WAS CLOSED--I.E., THE LAST BLOCK ALLOCATED FOR A            \r\nC              FILE OPENED FOR WRITE IS NEVER USED BUT IT MUST HAVE            \r\nC              BEEN ALLOCATED JUST IN CASE THE FILE IS NOT TO BE CLOSED.        \r\nC********************************************************************           \r\n      INCLUDE   'DSIOF.COM'                                                     \r\n      COMMON / ZZZZZZ / MEM(4)                                                  \r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      INDEXL = INDEX\r\nC CHECK IF OTHER BLOCKS ARE CHAINED TO THE END OF THIS BLOCK\r\n      IF ( MEM( INDEX+1 ) .NE. 0 ) GO TO 100                                    \r\nC SET \"NEXT\" OF PREVIOUS BLOCK TO ZERO, IF IT EXISTS                            \r\n5     LINDEX = MEM( INDEX )                                                     \r\n      IF ( LINDEX .EQ. 0 ) GO TO 10                                             \r\n      MEM( LINDEX+1 ) = 0                                                       \r\n10    IF ( IDBFRE .NE. 0 ) GO TO 20                                             \r\nC FREE CHAIN IS EMPTY, THIS BLOCK BECOMES FREE CHAIN                            \r\n      IDBFRE = INDEX                                                            \r\nC SET \"NEXT\" AND \"PREVIOUS\" OF THIS CHAIN TO ZERO                               \r\n      MEM( INDEX    ) = 0                                                        \r\n      MEM( INDEXL+1 ) = 0                                                        \r\n      GO TO 700                                                                 \r\nC SET BLOCKS TO BE FREED AT FIRST OF FREE CHAIN AND                              \r\nC THEN CONNECT FREE CHAIN TO THIS BLOCK                                         \r\n20    ISAVE  = IDBFRE                                                           \r\n      IDBFRE = INDEX                                                            \r\n      MEM( ISAVE    ) = INDEXL                                                    \r\n      MEM( INDEX    ) = 0                                                        \r\n      MEM( INDEXL+1 ) = ISAVE                                                    \r\n      GO TO 700                                                                 \r\nC MORE THAN ONE BLOCK IN THIS CHAIN TO RELEASE BACK TO FREE CHAIN\r\n100   CONTINUE\r\n110   IF ( MEM( INDEXL+1 ) .EQ. 0 ) GO TO 5\r\nCWKBR SPR94012 10/94      INDEXL = MEM( INDEX+1 )          \r\n      INDEXL = MEM( INDEXL+1 )          \r\n      GO TO 110\r\n700   CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmsrf.f",
    "content": "      SUBROUTINE DBMSRF (  NAME, IFILEX )                                \r\nC********************************************************************           \r\nC  DBMNAM RETURNS THE UNIT NUMBER ASSOCIATED WITH A DMAP FILE NAME            \r\nC     ARGUMENTS                                                                 \r\nC       NAME    (INPUT) (2A4) DMAP FILE NAME                                 \r\nC       IFILEX  (OUTPUT) (I)  UNIT ASSOCIATED WITH FILE NAME IN FIAT\r\nC********************************************************************           \r\n      INTEGER FIST(100), FIAT(100), NAME(2)\r\n      COMMON / XFIST / FIST                                                     \r\n      COMMON / XFIAT / FIAT                                                     \r\n      LIM  = FIAT(2)*11 + 3                                                      \r\n      DO 10 I = 4, LIM, 11                                                       \r\n      IF ( NAME( 1 ) .NE. FIAT( I+1 ) .OR. NAME( 2 ) .NE. FIAT( I+2 ) )\r\n     &   GO TO 10\r\n      IFILEX = IAND( FIAT( I ), 32767 )\r\n      GO TO 700\r\n10    CONTINUE\r\n      IFILEX = 0\r\n700   RETURN\r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dbmstf.f",
    "content": "      SUBROUTINE DBMSTF                                                         \r\n      INCLUDE   'DSIOF.COM'                                                     \r\n      COMMON / SYSTEM / ISYSBF, IWR                                             \r\n      COMMON / LOGOUT / LOUT\r\n      IBLKSZ = ISYSBF - 4                                                       \r\n      IF ( MAXBLK .NE. 0 )  PERC1 = MAXBLK*1.0 / MAXALC                         \r\n      IPERC1 = PERC1 * 100.                                                     \r\n      IMEMNU = ( MAXALC - MAXBLK ) * LENALC                                     \r\n      WRITE( LOUT, 901 ) LENOPC, IDBLEN, MAXBLK, MAXALC, IPERC1, MAXDSK          \r\n     &, IBLKSZ, NUMOPN, NUMCLS, NUMWRI, NUMREA                                  \r\n      IF ( IDBDIR .NE. 0 ) WRITE( LOUT, 902 ) IMEMNU                             \r\n901   FORMAT(1H1                                                                \r\n     &,5X,'STATISTICS ON IN-MEMORY DATA BASE AND DISK I/O USAGE',/              \r\n     &,/,8X,' LENGTH (IN WORDS) OF OPEN CORE ALLOCATED          ',I8            \r\n     &,/,8X,' LENGTH (IN WORDS) OF IN-MEMORY DATA BASE ALLOCATED',I8            \r\n     &,/,8X,' NUMBER OF BLOCKS USED IN THE IN-MEMORY DATA BASE  ',I8            \r\n     &,/,8X,' NUMBER OF BLOCKS ALLOCATED FOR THE IN-MEMORY DATA ',I8            \r\n     &,/,8X,' PERCENTAGE OF IN-MEMORY DATA USED                 ',I8,'%'       \r\n     &,/,8X,' TOTAL BLOCKS WRITTEN TO DISK                      ',I8            \r\n     &,/,8X,' BLOCK SIZE (IN WORDS)                             ',I8            \r\n     &,/,8X,' NUMBER OF OPENS TO DISK FILES                     ',I8            \r\n     &,/,8X,' NUMBER OF CLOSES TO DISK FILES                    ',I8            \r\n     &,/,8X,' NUMBER OF WRITES TO DISK FILES                    ',I8            \r\n     &,/,8X,' NUMBER OF READS FROM DISK FILES                   ',I8)            \r\n902   FORMAT(                                                                   \r\n     &   8X,' MEMORY (IN WORDS) NOT USED BY IN-MEM. DATA BASE   ',I8            \r\n     & )                                                                        \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/defcor.f",
    "content": "      SUBROUTINE DEFCOR\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/delscr.f",
    "content": "      SUBROUTINE DELSCR                                                         \r\nC                                                                               \r\nC     THIS SUBROUTINE IS CALLED AT THE BEGINNING OF EACH FUNCTIONAL             \r\nC     MODULE TO PHYSICALLY DELETE ALL SCRATCH FILES USED BY A                   \r\nC     PREVIOUS FUNCTIONAL MODULE                                                \r\nC                                                                               \r\n      INTEGER*2       IUNIT                                                     \r\nC                                                                               \r\n      COMMON /DSUNIT/ IUNIT(220)                                                \r\n      COMMON /XFIST / IFIST(2)                                                  \r\n      COMMON /XPFIST/ IPFIST                                                    \r\n      INCLUDE 'DSIOF.COM'                                                       \r\nC                                                                               \r\n      DATA MASK / 32767 /                                                       \r\nC                                                                               \r\n      NFILES = IFIST(2) - IPFIST                                                \r\n      IF (NFILES .EQ. 0) RETURN                                                 \r\n      ISTR = IPFIST + 1                                                         \r\n      IEND = IFIST(2)                                                           \r\n      DO 100 I = ISTR, IEND                                                     \r\n      IFILE = IFIST(2*I+1)                                                      \r\n      IF (IFILE.LT.301 .OR. IFILE.GT.320) GO TO 100                             \r\n      IFILEX = 0                                                                \r\n      CALL GETURN (IFILE)                                                       \r\n      IF (IFILEX .EQ. MASK) GO TO 100                                           \r\n      CALL DBMMGR ( 7 )                                                         \r\n  100 CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dmpmat.f",
    "content": "      SUBROUTINE DMPMAT (IFILE,Z      ,LZ)                                      \r\nC                                                                               \r\nC     DUMPS A FILE ON DIAG 20 SETTING.                                          \r\nC                                                                               \r\n      INTEGER         SYSBUF,OUTPT,BUF,FILE,NAME(2)                             \r\n      integer         itrail(7)                                                 \r\n      REAL            Z(2)                                                      \r\n      COMMON /SYSTEM/ SYSBUF,OUTPT                                              \r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS                            \r\n      COMMON /UNPAKX/ IOUT,IROW,NROW,INCR                                       \r\n      DATA    NAME  / 4HDMPF,2HIL  /                                            \r\nC                                                                               \r\n    1 FORMAT (1H0,I5,10(1X,I10,1X))                                             \r\n    2 FORMAT (1H ,5X,10(1X,1P,E11.4))                                           \r\n    3 FORMAT (1H ,5X,10(4X,A4,4X))                                              \r\nC                                                                               \r\nc      CALL SSWTCH (20,L)                                                       \r\nc      IF (L .EQ. 0) RETURN                                                     \r\nC                                                                               \r\n      FILE = IABS(IFILE)                                                        \r\n      BUF  = LZ - SYSBUF + 1                                                    \r\n      IF (BUF .LT. 6) GO TO 91                                                  \r\n      LCORE = (BUF-1)/5                                                         \r\n      LCORE = LCORE*5                                                           \r\n      CALL OPEN (*90,FILE,Z(BUF),RDREW)                                         \r\n      WRITE  (OUTPT,10) FILE                                                    \r\n   10 FORMAT (14H1DUMP OF FILE ,I3)                                             \r\n      GO TO 100                                                                 \r\nC                                                                               \r\n   70 itrail(1) = FILE                                                          \r\n      CALL CLOSE (FILE,CLSREW)                                                  \r\n      CALL RDTRL (itrail)                                                       \r\n      WRITE  (OUTPT,80) (itrail(I),I=1,7)                                       \r\n   80 FORMAT (4H0EOF ,//,8H0TRAILER  ,/,7(1X,I12 /))                            \r\n   90 RETURN                                                                    \r\nC                                                                               \r\n   91 CALL MESAGE (8,0,NAME)                                                    \r\n      GO TO 90                                                                  \r\nC                                                                               \r\n  100 CALL READ (*70,*101,FILE,Z,2,1,IWORDS)                                    \r\n  101 WRITE  (OUTPT,102) Z(1),Z(2)                                              \r\n  102 FORMAT (14H0HEADER RECORD  ,/1H0,2A4)                                     \r\n      itrail(1) = FILE                                                          \r\n      CALL RDTRL (itrail)                                                       \r\n      NCOLS = itrail(2)                                                         \r\n      IF (NCOLS .GT. 300) NCOLS = 100                                           \r\n      IOUT = 1                                                                  \r\n      INCR = 1                                                                  \r\n      IF (NCOLS) 70,70,110                                                      \r\n  110 DO 150 J = 1,NCOLS                                                        \r\n      WRITE  (OUTPT,115) J                                                      \r\n  115 FORMAT (7H0COLUMN  ,I5)                                                   \r\n      IROW = 0                                                                  \r\n      NROW = 0                                                                  \r\n      CALL UNPACK (*140,FILE,Z)                                                 \r\n      WRITE  (OUTPT,118) IROW,NROW                                              \r\n  118 FORMAT (1H+,20X,3HROW  ,I4,11H   THRU ROW   ,I5)                          \r\n      IF (NROW .GT. 300) NROW = 100                                             \r\n      NELS = NROW - IROW + 1                                                    \r\n      IF (NELS .LE. 0) GO TO 150                                                \r\n      WRITE  (OUTPT,119) (Z(K),K=1,NELS)                                        \r\n      write  (outpt,1119) (z(k),k=1,nels)                                       \r\n 1119 format( 10z9)                                                             \r\n  119 FORMAT (1P,10E13.4)                                                       \r\n      GO TO 150                                                                 \r\n  140 WRITE  (OUTPT,141)                                                        \r\n  141 FORMAT (13H NULL COLUMN  )                                                \r\n  150 CONTINUE                                                                  \r\n      GO TO 70                                                                  \r\nC                                                                               \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsblpk.f",
    "content": "        SUBROUTINE DSBLPK ( BLOCK )                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INTEGER           BLOCK(15)                                               \r\n      BLOCK( 1 ) = NAME                                                         \r\n      BLOCK( 2 ) = ITYPO                                                        \r\n      IF ( ITRAIL .EQ. -1 ) GO TO 10                                            \r\n      BLOCK( 3 ) = 0                                                            \r\n      GO TO 20                                                                  \r\n10    BLOCK( 3 ) = 1                                                            \r\n20    CONTINUE                                                                  \r\n      BLOCK( 4 ) = 0                                                            \r\n      BLOCK( 7 ) = 0                                                            \r\n      BLOCK( 8 ) = -1                                                           \r\n      BLOCK(10 ) = 0                                                            \r\n      BLOCK(12 ) = BLOCK( 12 )  + 1                                             \r\n      BLOCK(13 ) = ITYPI                                                        \r\n      CALL PUTSTR( BLOCK )                                                      \r\n      IFLAG =  FCB( 8, IFILEX )                                                 \r\n      IF ( IFLAG .NE. 0 ) GO TO 700                                             \r\n      BLOCK( 12 ) = 1                                                           \r\n      FCB( 8, IFILEX ) = 1                                                      \r\n      IBASE( INDCLR + 2 ) = 1                                                   \r\n      GO TO 700                                                                 \r\n700   RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsbpnk.f",
    "content": "        SUBROUTINE DSBPNK ( BLOCK, MCB )                                        \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INTEGER BLOCK( 15 ), MCB( 7 )                                             \r\n      IF ( BLOCK( 1 ) .EQ. NAME ) GO TO 10                                      \r\n      CALL DSMSG1( BLOCK )                                                      \r\n      CALL DSMSG( 120 )                                                         \r\n10    CONTINUE                                                                  \r\n      IF ( MCB( 2 ) .EQ. 0 ) MCB( 7 ) = MCBMAS                                  \r\n      MCB( 2 ) = MCB( 2 ) + 1                                                   \r\n      NUM      = BLOCK( 10 )                                                    \r\n      IF ( MCB( 6 ) .GT. NUM ) GO TO 20                                         \r\n      MCB( 6 ) = NUM                                                            \r\n20    MCB( 7 ) = MCB( 7 ) + NUM                                                 \r\n      BLOCK( 8 ) = 1                                                            \r\n      CALL ENDPUT ( BLOCK )                                                     \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsbrc1.f",
    "content": "        SUBROUTINE DSBRC1                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\nC        PRINT *,' DSBRC1-1,NBLOCK,INDCLR,INDBAS=',NBLOCK,INDCLR,INDBAS         \r\n        IF ( INDCLR .NE. INDCBP ) GO TO 20                                      \r\n        IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 10                                \r\n        IF ( NBLOCK .EQ. 1 ) GO TO 100                                          \r\n        CALL DSRDPB                                                             \r\n        INDCBP = INDCBP - 1                                                     \r\n        GO TO 100                                                               \r\n10      INDCBP = INDCBP - 1                                                     \r\n        GO TO 100                                                               \r\n20      INDCBP = INDCLR                                                         \r\n100     IF ( NBLOCK .NE. 1 ) GO TO 110                                          \r\n        IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 110                               \r\n        GO TO 7000                                                              \r\n110     ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSEF ) GO TO 7000                                         \r\n        IF ( ID .NE. IDSRT ) GO TO 120                                          \r\n        INDCBP = INDBAS + ( IAND( IBASE( INDCBP ), MASKH2 ) ) - 1               \r\n        ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n120     IF ( ID .EQ. IDSRH ) GO TO 140                                          \r\n        IF ( ID .EQ. IDSSB ) GO TO 140                                          \r\n        IF ( ID .EQ. IDSEB ) GO TO 130                                          \r\n        CALL DSMSG( 106 )                                                       \r\n130     INDCBP = INDCBP - 1                                                     \r\n        GO TO 100                                                               \r\n140     IFLAG = IAND( IBASE( INDCBP ), MASKQ2 )                                 \r\n        IF ( IFLAG .EQ. IDSC ) GO TO 7000                                       \r\n        IF ( IFLAG .EQ. IDSP ) GO TO 7000                                       \r\n        IF ( ( INDCBP-INDBAS ) .LE. 5 ) GO TO 150                               \r\n        INDCBP = INDCBP - 1                                                     \r\n        GO TO 100                                                               \r\n150     IF ( NBLOCK .EQ. 1 ) GO TO 7000                                         \r\n        CALL DSRDPB                                                             \r\n        INDCBP = INDCBP - 1                                                     \r\n        GO TO 100                                                               \r\n7000    INDCLR = INDCBP                                                         \r\nC        PRINT *,' DSBRC1-2,NBLOCK,INDCLR,INDBAS=',NBLOCK,INDCLR,INDBAS         \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsclos.f",
    "content": "      SUBROUTINE DSCLOS ( IUNIT )                                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\nc      print *,' dsclos,iunit=',iunit                                           \r\n      CLOSE ( IUNIT )                                                           \r\n      NUMCLS = NUMCLS + 1                                                       \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dscpos.f",
    "content": "      SUBROUTINE DSCPOS ( FILE, ICBLK, ICLR, ICBP )\r\nC\r\nC RETURNS THE CURRENT BLOCK NUMBER \"ICBLK\", CURRENT LOGICAL RECORD\r\nC POINTER \"ICLR\" AND CURRENT BUFFER POINT \"ICBP\" FOR \"FILE\"\r\nC\r\n      INCLUDE 'DSIOF.COM'\r\n      INTEGER          FILE\r\n      NAME   = FILE\r\n      CALL DSGEFL\r\n      ICBLK  = FCB( 4, IFILEX )\r\n      ICLR   = INDCLR - INDBAS + 1\r\n      ICBP   = INDCBP - INDBAS + 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/dsefwr.f",
    "content": "        SUBROUTINE DSEFWR                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        IF ( IPRVOP .NE. 0 ) GO TO 10                                           \r\n        CALL DSMSG ( 7 )                                                        \r\n10      IF ( INDCLR .EQ. INDCBP ) GO TO 20                                      \r\n        IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 )                  \r\n        INDCLR = INDCBP + 2                                                     \r\n        INDCBP = INDCLR                                                         \r\n20      IF ( ( INDCLR-INDBAS-2 ) .LT. NBUFF ) GO TO 30                          \r\n        IBASE( INDCLR ) = IDSEB                                                 \r\n        CALL DSWRNB                                                             \r\n30      IBASE( INDCLR   ) = IDSEF                                               \r\n        IBASE( INDCLR+1 ) = IDSEB                                               \r\n        INDCLR = INDCLR + 1                                                     \r\n        INDCBP = INDCLR                                                         \r\n        IF ( ( INDCLR-INDBAS ) .LE. NBUFF ) GO TO 40                            \r\n        CALL DSWRNB                                                             \r\n40      RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsfwr1.f",
    "content": "      SUBROUTINE DSFWR1                                                         \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      CALL DSSKRC                                                               \r\n      ID     = IAND( IBASE( INDCLR-1 ), MASKQ1 )                                \r\n      IF ( ID .EQ. IDSEF ) GO TO 10                                             \r\n      IRETRN = 0                                                                \r\n      GO TO 7000                                                                \r\n10    IRETRN = 1                                                                \r\n7000  RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsgefl.f",
    "content": "        SUBROUTINE DSGEFL                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER*2         IUNIT                                                 \r\n        COMMON / DSUNIT / IUNIT(220)                                            \r\n        IF ( NAME .GE. 101 .AND. NAME .LE. 320 ) GO TO 10                       \r\n        CALL GETURN ( NAME )                                                    \r\n        GO TO 20                                                                \r\n   10   IFILEX = IUNIT( NAME-100 )                                              \r\n   20   IF ( IFILEX .NE. 0 ) GO TO 30                                           \r\n        IF ( IRETRN .EQ. 77 ) GO TO 50                                          \r\n        CALL DSMSG ( 107 )                                                      \r\n   30   IOBUF =  FCB( 2, IFILEX )                                               \r\n        IF ( IOBUF .EQ. 0 ) GO TO 40                                            \r\n        IPRVOP = FCB( 1,IFILEX )                                                \r\n        IF ( IPRVOP .EQ. 2 ) IPRVOP = 0                                         \r\n        INDBAS = IOBUF                                                          \r\n        INDCBP = INDBAS + IBASE( INDBAS+1 ) - 1                                 \r\n        INDCLR = INDBAS + IBASE( INDBAS+2 ) - 1                                 \r\n        NBLOCK = FCB( 4, IFILEX )                                               \r\n        LCW    = IBASE( INDBAS+4 )                                              \r\n        LASNAM = NAME                                                           \r\n        GO TO 50                                                                \r\n   40   IFILEX = 0                                                              \r\n   50   CONTINUE                                                                \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsgncl.f",
    "content": "        SUBROUTINE DSGNCL                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n        IDSN =  MDSFCB( 2, IFILEX )                                             \r\n        CALL DSCLOS( IDSN )                                                     \r\n        MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 )                     \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsgnop.f",
    "content": "        SUBROUTINE DSGNOP                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        CHARACTER*4     CBUFF( 3 )                                              \r\n        EQUIVALENCE     (CBUFF,IBASE)                                           \r\n        IDSN    = IFILEX                                                        \r\n        IF ( IOCODE .GE. 2 ) GO TO 10                                           \r\n        IF ( IOCODE .NE. 1 ) GO TO 30                                           \r\n        CALL DSRLSE                                                             \r\n        GO TO 30                                                                \r\n   10   INEXT   = IAND( MDSFCB( 3, IDSN ), MASKH2 )                             \r\n        IF ( INEXT .EQ. 0 ) GO TO 30                                            \r\n        ITEST =  FCB( 6, IDSN )                                                 \r\n        IF ( NBLOCK .LE. ITEST ) GO TO 30                                       \r\n        IDSN    = INEXT                                                         \r\n        GO TO 10                                                                \r\n   30   IOP = MOD ( IOCODE,2 )                                                  \r\n        MDSFCB( 2,IFILEX ) = IDSN                                               \r\n        MDSFCB( 1,IDSN )   = IOR( MDSFCB( 1,IDSN ), MASKH2 )                    \r\n   40   CONTINUE                                                                \r\n        CALL DSOPEN( MDSNAM( IDSN ), IDSN, IOCODE)                              \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsgnrd.f",
    "content": "        SUBROUTINE DSGNRD                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n        CHARACTER*4     CBUFF(2)                                                \r\n        EQUIVALENCE     (CBUFF,IBASE)                                           \r\n        IDSN   =  MDSFCB( 2, IFILEX )                                           \r\n        IDSNR  = IDSN                                                           \r\n   10   ISTRB  = FCB( 5, IDSNR )                                                \r\n        IF ( NBLOCK .GE. ISTRB ) GO TO 20                                       \r\n        IDSNR  = MDSFCB( 3, IDSNR ) / MULQ2                                     \r\n        GO TO 30                                                                \r\n   20   IEND   = FCB( 6, IDSNR )                                                \r\n        IF ( NBLOCK .LE. IEND ) GO TO 40                                        \r\n        IDSNR  = IAND( MDSFCB( 3, IDSNR  ), MASKH2 )                            \r\n   30   IF ( IDSNR .GE. 1 .AND. IDSNR .LE. MAXDSN ) GO TO 10                    \r\n        CALL DSMSG( 121 )                                                       \r\n   40   IF ( IDSN .EQ. IDSNR ) GO TO 50                                         \r\n        CALL DSCLOS( IDSN )                                                     \r\n        MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 )                     \r\n        IDSN   = IDSNR                                                          \r\n        MDSFCB( 1, IDSN )   = IOR ( MDSFCB( 1,IDSN ), MASKH2 )                  \r\n        MDSFCB( 2, IFILEX ) = IDSN                                              \r\n        ISAVE = IOP                                                             \r\n        IOP = 0                                                                 \r\n        CALL DSOPEN( MDSNAM(IDSN), IDSN, IOP )                                  \r\n        IOP = ISAVE                                                             \r\n        CBUFF( INDBAS ) = MDSNAM( IDSN )                                        \r\n   50   IOBLK  = NBLOCK - ISTRB + 1                                             \r\n        CALL DSREAD( IDSN, IBASE(INDBAS+3), NBUFF, IOBLK )                      \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsgnwr.f",
    "content": "        SUBROUTINE DSGNWR                                                       \r\n        COMMON /SYSTEM/ ISYBUF, IWR                                             \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        CHARACTER*4     CBUFF(3)                                                \r\n        EQUIVALENCE     (CBUFF,IBASE)                                           \r\n        IDSN   = MDSFCB( 2,IFILEX )                                             \r\n        IDSNR  = IDSN                                                           \r\n   10   ISTRB  = FCB( 5,IDSNR  )                                                \r\n        IF ( NBLOCK .GE. ISTRB ) GO TO 20                                       \r\n        INEXT  = MDSFCB( 3,IDSNR  ) / MULQ2                                     \r\n        GO TO 40                                                                \r\n   20   IALLOC = FCB( 7, IDSNR )                                                \r\n        IF ( NBLOCK .LE. ( IALLOC+ISTRB-1 ) ) GO TO 50                          \r\n        IF ( IDSN .EQ. 8 ) CALL DSMSG( 9 )                                      \r\n        INEXT  = IAND( MDSFCB( 3,IDSNR ), MASKH2 )                              \r\n        IF ( INEXT .NE. 0 ) GO TO 40                                            \r\n        MAXPR1 = MAXPRI + 1                                                     \r\n        DO 30 I = MAXPR1, MAXFCB                                                \r\n        IAVAIL = MDSFCB( 3,I )                                                  \r\n        IF ( IAVAIL .NE. 0 ) GO TO 30                                           \r\n        IFIRST = IALLOC + ISTRB                                                 \r\n        IALLOC = 20000000                                                       \r\n        FCB( 5,I ) = IFIRST                                                     \r\n        FCB( 6,I ) = IFIRST-1                                                   \r\n        MDSFCB( 3,I ) = IDSNR * MULQ2                                           \r\n        INEXT  = I                                                              \r\n        MDSFCB( 3,IDSNR ) = IOR( MDSFCB( 3,IDSNR ), I )                         \r\n        GO TO 40                                                                \r\n   30   CONTINUE                                                                \r\n   40   IDSNR  = INEXT                                                          \r\n        IF ( IDSNR .GE. 1 .AND. IDSNR .LE. MAXDSN ) GO TO 10                    \r\n        CALL DSMSG ( 122 )                                                      \r\n   50   IF ( IDSN .EQ. IDSNR ) GO TO 60                                         \r\n        CALL DSCLOS( IDSN )                                                     \r\n        MDSFCB( 1,IDSN ) = IAND( MDSFCB( 1,IDSN ), MASKH1 )                     \r\n        IDSN   = IDSNR                                                          \r\n        MDSFCB( 1,IDSN )   =  IOR( MDSFCB( 1,IDSN ), MASKH2 )                   \r\n        MDSFCB( 2,IFILEX ) = IDSN                                               \r\n        CALL DSMSG( 8 )                                                         \r\n        IDEVIC = 0                                                              \r\n        DO 55 KK = 1, NUMDEV                                                    \r\n        MDSNAM(IDSN)(1:2) = DEV(KK)                                             \r\n        ISAVE = IOP                                                             \r\n        IOP = 0                                                                 \r\n        CALL DSOPEN( MDSNAM( IDSN ), IDSN, IOP )                                \r\n        IOP = ISAVE                                                             \r\n        CBUFF( INDBAS ) = MDSNAM( IDSN )                                        \r\n        CALL DSWRIT( IDSN, IBASE( INDBAS+3 ), NBUFF, IOBLK, ICCER )             \r\n        IF ( ICCER .EQ. 0 ) GO TO 60                                            \r\n        CALL DSCLOS (IDSN)                                                      \r\n   55   CONTINUE                                                                \r\n   57   WRITE ( IWR, 901 )                                                      \r\n  901   FORMAT(///,' NO MORE DISK SPACE AVAILABLE, JOB ABORTED.')               \r\n        CALL DSMSG( 122 )                                                       \r\n   60   IOBLK  = NBLOCK - ISTRB + 1                                             \r\n        CALL DSWRIT( IDSN, IBASE( INDBAS+3 ), NBUFF, IOBLK, ICCER )             \r\n        IF ( ICCER .NE. 0 ) GO TO 70                                            \r\n        LASBLK = FCB( 6,IDSN )                                                  \r\n        IF ( LASBLK .GE. NBLOCK ) GO TO 7000                                    \r\n        FCB( 6,IDSN ) = FCB( 6,IDSN ) + 1                                       \r\n        GO TO 7000                                                              \r\n   70   IF ( ICCER .NE. 28 ) CALL DSMSG( 101 )                                  \r\n        IF ( IDSN .LE. 21 .AND. IDSN .NE. 8 .AND. IDSN .NE. 9) GO TO 80         \r\nC ALLOW XPDT TO EXTEND (IDSN=9)---NOTE IDSN=8 IS THE NPTP                       \r\n        ITEST = INDEX( MDSNAM(8), 'ZAP' )                                       \r\n        IF ( IDSN .EQ. 8  .AND. ITEST .EQ. 0 ) GO TO 80                         \r\n        FCB( 7,IFILEX ) = FCB( 6,IFILEX )                                       \r\n        IDSNR = IDSN                                                            \r\n        GO TO 10                                                                \r\n   80   WRITE ( IWR, 902 )                                                      \r\n  902   FORMAT(///,' NO MORE DISK SPACE AVAILABLE IN DEFAULT DIRECTORY',        \r\n     &             ' FOR PERMANENT FILES',/,' JOB ABORTED')                     \r\n        CALL DSMSG( 122 )                                                       \r\n 7000   RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dshxdd.f",
    "content": "      SUBROUTINE DSHXDD ( II,IARR, LEN)                                         \r\n      INTEGER    IARR( 10000)                                                   \r\n      COMMON / DSBUFF / IIBUFF(2048)                                            \r\n      DO 10 K = 1, LEN                                                          \r\n10    IIBUFF(K) = IARR(K)                                                       \r\n      WRITE ( 6, 901 ) II,(IIBUFF(I),I=1,LEN )                                  \r\n901   FORMAT(I5,200(8(1X,Z8),/))                                                \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dshxdp.f",
    "content": "      SUBROUTINE DSHXDP ( IARR, LEN )                                           \r\n      INTEGER    IARR( 10000)                                                   \r\n      WRITE ( 6, 901 ) (IARR(I),I=1,LEN )                                       \r\n901   FORMAT(200(8(1X,Z8),/))                                                   \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsinqr.f",
    "content": "      SUBROUTINE DSINQR ( DSN, ISTAT, ISIZE )                                   \r\nC        DSINQR DETERMINES THE EXISTANCE OF A FILE:                             \r\nC            DSN   ( INPUT  )   FILE NAME                                       \r\nC            ISTAT ( OUTPUT )   =0, IF NOT EXIST; =1, IF EXIST                  \r\nC            ISIZE ( OUTPUT )   = FILE SIZE IN GINO BLOCKS                      \r\nC                                                                               \r\n      LOGICAL       AVAIL                                                       \r\n      CHARACTER*(*) DSN                                                         \r\n      INQUIRE( FILE=DSN, EXIST=AVAIL, NEXTREC = NREC )                          \r\n      ISTAT = 0                                                                 \r\n      IF ( AVAIL ) ISTAT = 1                                                    \r\n      ISIZE = NREC - 1                                                          \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsiodd.f",
    "content": "      SUBROUTINE DSIODD                                                         \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      LGINOX = 5*NUMFCB + NUMSOF + 2                                            \r\n      LHALF  = 16                                                               \r\n      LENDSP = 0                                                                \r\n      LENWPB = 0                                                                \r\n      MASKH1 = 'FFFF0000'X                                                     \r\n      MASKH2 = '0000FFFF'X                                                     \r\n      MASKE1 = 'FF000000'X                                                     \r\n      MASKE2 = '00FF0000'X                                                     \r\n      MASKE3 = '0000FF00'X                                                      \r\n      MASKE4 = '000000FF'X                                                      \r\n      MCBMAS = '40000000'X                                                      \r\n      MAXDSN = NUMFCB                                                           \r\n      MASKQ1 = MASKE1                                                           \r\n      MASKQ2 = MASKE2                                                           \r\n      MASKQ3 = MASKE3                                                           \r\n      MASKQ4 = MASKE4                                                           \r\n      MULQ1  = 2**24                                                            \r\n      MULQ2  = 2**16                                                            \r\n      MULQ3  = 2**8                                                             \r\n      IDSX   = '00EE0000'X                                                      \r\n      IDSP   = '000E0000'X                                                      \r\n      IDSC   = '000C0000'X                                                      \r\n      IDSRH  = '11000000'X                                                      \r\n      IDSRT  = '77000000'X                                                      \r\n      IDSSB  = '22000000'X                                                      \r\n      IDSSE  = '7F000000'X                                                      \r\n      IDSCH  = '3B000000'X                                                      \r\n      IDSCT  = '3F000000'X                                                      \r\n      IDSSH  = '4B000000'X                                                      \r\n      IDSST  = '4F000000'X                                                      \r\n      IDSSD  = 'DD000000'X                                                      \r\n      IDSEB  = 'EB000000'X                                                      \r\n      IDSEF  = 'EF000000'X                                                      \r\n      NWRDEL( 1 ) = 1                                                           \r\n      NWRDEL( 2 ) = 2                                                           \r\n      NWRDEL( 3 ) = 2                                                           \r\n      NWRDEL( 4 ) = 4                                                           \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsipk1.f",
    "content": "        SUBROUTINE DSIPK1 ( BLOCK, ITYPOT )                                     \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        INTEGER BLOCK( 15 )                                                     \r\n        IRETRN = 0                                                              \r\n        BLOCK( 1 ) = NAME                                                       \r\n        BLOCK( 8 ) = -1                                                         \r\n        IF ( ITYPOT .GT. 0 ) GO TO 10                                           \r\n        IFLAG = IABS( ITYPOT ) + 64                                             \r\n        GO TO 20                                                                \r\n10      IFLAG = ITYPOT                                                          \r\n20      BLOCK( 13) = IFLAG                                                      \r\n        CALL GETSTR( *777, BLOCK )                                              \r\n        BLOCK( 7 ) = 0                                                          \r\n        IF ( IFLAG .GE. 1 .AND. IFLAG .LE. 4 ) GO TO 30                         \r\n        IF ( IFLAG .GE. 65 .AND. IFLAG .LE. 68 ) GO TO 30                       \r\n        CALL DSMSG1( BLOCK )                                                    \r\n        CALL DSMSG( 118 )                                                       \r\n30      CONTINUE                                                                \r\n        GO TO 700                                                               \r\n777     IRETRN = 1                                                              \r\n700     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsmsg.f",
    "content": "      SUBROUTINE DSMSG ( IFLAG )                                                \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      COMMON / DSIO   / MSSOFT                                                  \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      COMMON / LOGOUT / LOUT                                                    \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      COMMON / DDIOSV / IFLPOS(2,MAXPRI)                                        \r\n      COMMON / SOFCOM / NFILES,FILNAM(10),FILSIZ(10)                            \r\n      COMMON / SYS    / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK                       \r\n      COMMON / SYSTEM / ISYSTM(175)                                             \r\nC                                                                               \r\n      INTEGER XNAME(2), BLANK                                                   \r\n      INTEGER FILNAM,FILSIZ,BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK                   \r\n      INTEGER GINO(52)                                                          \r\nC                                                                               \r\n      EQUIVALENCE ( IEOR, GINO(1) )                                             \r\n      EQUIVALENCE (ISYSTM(  2), IWR   ),                                        \r\n     *            (ISYSTM(151), NLLOG ),                                        \r\n     *            (ISYSTM(152), LOGLIN)                                         \r\nC                                                                               \r\n      DATA BLANK / 1H /                                                         \r\n      DATA INAME /4HDSMS/                                                       \r\nC                                                                               \r\n      CALL FNAME ( NAME, XNAME )                                                \r\n      IF ( XNAME( 1 ) .NE. 0 ) GO TO 4                                          \r\n      XNAME( 1 ) = BLANK                                                        \r\n      XNAME( 2 ) = BLANK                                                        \r\n    4 CONTINUE                                                                  \r\n      IF ( IABS(IFLAG) .EQ. 777 ) GO TO 7770                                    \r\n      IF ( IFLAG .NE. 1 .AND. IFLAG .NE. 2 .AND. IFLAG .NE. 8 )                 \r\n     C      WRITE( IWR, 5 ) IFLAG                                               \r\n    5 FORMAT(' I/O SUBSYSTEM ERROR NUMBER',I10)                                 \r\n      IF ( IFLAG .GT. 100 ) GO TO 1000                                          \r\n      GO TO ( 10, 20, 30, 40, 50, 60, 70, 80, 90 ),IFLAG                        \r\n   10 CONTINUE                            \r\n      WRITE ( LOUT, 15 ) 'OPEN ',XNAME, IOCODE                                  \r\n      LOGLIN = LOGLIN + 1                                                       \r\n      GO TO 90000                                                               \r\n   20 CONTINUE                            \r\n      WRITE ( LOUT, 15 ) 'CLOSE ', XNAME, IOCODE                                \r\n      LOGLIN = LOGLIN + 1                                                       \r\n      GO TO 90000                                                               \r\n   30 WRITE ( IWR, 35 ) XNAME, IFILEX                                           \r\n      GO TO 99999                                                               \r\n   40 WRITE ( IWR, 45 ) XNAME, IFILEX                                           \r\n      GO TO 7000                                                                \r\n   50 WRITE ( IWR, 55 ) XNAME, IFILEX                                           \r\n      GO TO 99999                                                               \r\n   60 WRITE ( IWR, 65 ) XNAME, IFILEX                                           \r\n      GO TO 99999                                                               \r\n   70 WRITE ( IWR, 75 ) XNAME, IFILEX                                           \r\n      GO TO 7000                                                                \r\n   80 CONTINUE\r\n      WRITE ( LOUT, 85 ) XNAME, IFILEX, IDSN                                    \r\n      GO TO 90000                                                               \r\n   90 WRITE ( IWR, 95 ) NBLOCK                                                  \r\n      GO TO 99999                                                               \r\n  100 CONTINUE                                                                  \r\n      GO TO 7000                                                                \r\n 1000 ITEMP = IFLAG - 100                                                       \r\n      GO TO ( 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080                    \r\n     *       ,1090, 1100, 1110, 1120, 1130, 1140, 1150, 1160                    \r\n     *       ,1170, 1180, 1190, 1200, 1210, 1220, 1230, 1240                    \r\n     *       ), ITEMP                                                           \r\nC1010 WRITE ( IWR, 1015 ) IOERR                                                 \r\n 1010 GO TO 7000                                                                \r\n 1020 WRITE ( IWR, 1025 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1030 WRITE ( IWR, 1035 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1040 WRITE ( IWR, 1045 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1050 WRITE ( IWR, 1055 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1060 WRITE ( IWR, 1065 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1070 WRITE ( IWR, 1075 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1080 WRITE ( IWR, 1085 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1090 WRITE ( IWR, 1095 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1100 WRITE ( IWR, 1105 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1110 WRITE ( IWR, 1115 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1120 WRITE ( IWR, 1125 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1130 WRITE ( IWR, 1135 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1140 WRITE ( IWR, 1145 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1150 WRITE ( IWR, 1155 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1160 WRITE ( IWR, 1165 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1170 WRITE ( IWR, 1175 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1180 WRITE ( IWR, 1185 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1190 WRITE ( IWR, 1195 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1200 WRITE ( IWR, 1205 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1210 WRITE ( IWR, 1215 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1220 WRITE ( IWR, 1225 ) XNAME, IFILEX                                         \r\n      GO TO 7000                                                                \r\n 1230 CONTINUE                                                                  \r\n 1240 CONTINUE                                                                  \r\n 7000 CONTINUE                                                                  \r\n7770  CONTINUE                                                                  \r\n      WRITE ( IWR, 91000 ) IOERR, NAME, XNAME, IFILEX                           \r\n      WRITE ( IWR, 92000 )                                                      \r\n      DO 7772 I = 1, MAXFCB                                                     \r\n      CALL DSHXDD ( I, MDSFCB( 1, I ), 3 )                                      \r\n 7772 CONTINUE                                                                  \r\n      WRITE( IWR, 92001 )                                                       \r\n      DO 7773 I = 1, 80                                                         \r\nCWKBR NCL93007 11/94\r\nC      WRITE ( IWR, 92003 ) I, ( FCB(K,I),K=1,15)            \r\n      WRITE ( IWR, 92003 ) I, ( FCB(K,I),K=1,17)                                \r\nCWKBR NCL93007 11/04\r\nC92003 FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,1X,2A4,I4)  \r\n92003 FORMAT(I3,'-',I3,I7,4I5,I12,I2,4I7,1X,2A4,I4,2I8)                             \r\n 7773 CONTINUE                                                                  \r\n      WRITE ( IWR, 92002)IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP         \r\n     &,                  NBLOCK, LENALC, IOCODE, IFILEX, NAME,   MAXALC         \r\n     &,                  MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR         \r\n     &,                  NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC                \r\n92002 FORMAT(/,' CONTENTS OF / DBM / FOLLOW:'                                   \r\n     &,/,' IDBBAS =',I8,' IDBFRE =',I8,' IDBDIR =',I8,' INDBAS =',I8            \r\n     &,/,' INDCLR =',I8,' INDCBP =',I8,' NBLOCK =',I8,' LENALC =',I8            \r\n     &,/,' IOCODE =',I8,' IFILEX =',I8,' NAME   =',I8,' MAXALC =',I8            \r\n     &,/,' MAXBLK =',I8,' MAXDSK =',I8,' IDBLEN =',I8,' IDBADR =',I8            \r\n     &,/,' IBASBF =',I8,' INDDIR =',I8,' NUMOPN =',I8,' NUMCLS =',I8            \r\n     &,/,' NUMWRI =',I8,' NUMREA =',I8,' LENOPC =',I8)                         \r\n      IF ( IFLAG .GE. 118 .AND. IFLAG .LE. 120 ) GO TO 946                      \r\n      WRITE ( IWR, 95020 )                                                      \r\n      CALL DSHXDP ( NFILES, 16 )                                                \r\n      WRITE ( IWR, 95030 )                                                      \r\n      CALL DSHXDP ( BLKSIZ, 1 )                                                 \r\n      WRITE ( IWR, 96000 )                                                      \r\n      CALL DSHXDP ( IEOR, 59 )                                                  \r\n      WRITE ( IWR, 97000 )                                                      \r\n      DO 944 I = 1, MAXPRI                                                      \r\n      WRITE ( IWR, 97001 ) I, IFLPOS(1,I), IFLPOS(2,I)                          \r\n97001 FORMAT(I5,2I10)                                                           \r\n  944 CONTINUE                                                                  \r\n      LOOP = (NBUFF+LENDSP) / 8 + 4                                             \r\n      INDEX = INDBAS                                                            \r\n      WRITE ( IWR, 94510 )                                                      \r\n      DO 945 I = 1, LOOP                                                        \r\n      III = (I-1) * 8 + 1                                                       \r\n      CALL DSHXDD ( III, IBASE( INDEX ), 8 )                                    \r\n      INDEX = INDEX + 8                                                         \r\n  945 CONTINUE                                                                  \r\n      CALL DBMDIA                                                               \r\n  946 IF ( IFLAG .NE. 777 ) GO TO 99999                                         \r\nC     CALL TRBK( IWR )                                                          \r\n      RETURN                                                                    \r\n91000 FORMAT(' I/O ERROR #',I6,' ON FILE ',Z8,' NAME=',2A4,' UNIT=',I4)         \r\n92000 FORMAT(//' CONTENTS OF MDSFCB' )                                          \r\n92001 FORMAT(//' CONTENTS OF FCB' )                                             \r\n94510 FORMAT(//' CONTENTS OF I/O BUFFER' )                                      \r\n95020 FORMAT(//' CONTENTS OF SOFCOM ')                                          \r\n95030 FORMAT(//' CONTENTS OF SYS ')                                             \r\n96000 FORMAT(//' CONTENTS OF /DSIO/')                                           \r\n97000 FORMAT(//' CONTENTS OF /DDIOSV/')                                         \r\n99999 CALL MESAGE (-61, 0, 0)                                                   \r\n90000 CONTINUE                                                                  \r\n      RETURN                                                                    \r\n   15 FORMAT( 40X, A6, 2A4, 2X, I2 )                                            \r\n   35 FORMAT( ' BUFFER CONFLICTS WITH EXISTING BUFFERS',                        \r\n     * ' ON FILE ',2A4, ' LOGICAL UNIT', I4 )                                   \r\n   45 FORMAT(' ATTEMPT TO READ FILE OPENED FOR WRITE',                          \r\n     * ' FILE=',2A4,' UNIT=',I4 )                                               \r\n   55 FORMAT(' FILE IS ALREADY OPENED-FILE ',2A4,                               \r\n     * ' UNIT=', I4 )                                                           \r\n   65 FORMAT(' ATTEMPT TO WRITE LESS THAN ONE WORD',                            \r\n     *       ' ON FILE ',2A4,' UNIT= ',I4 )                                     \r\n   75 FORMAT(' ATTEMPT TO WRITE ON FILE OPENED FOR READ ',                      \r\n     *       '-FILE=',2A4,' UNIT =',I4)                                         \r\n   85 FORMAT(//,' ****** GINO SUBSYSTEM WILL EXTEND FILE ',2A4,                 \r\n     *       ' ON UNIT',I4,' TO UNIT',I4,' ******' )                            \r\n   95 FORMAT(//,' INSUFFICIENT SPACE ALLOCATION ON FILE NPTP',                  \r\n     *      ' -, NUMBER OF BLOCKS WRITTEN WERE ',I10)                           \r\n 1015 FORMAT(' ERROR DURING I/O REQUEST - ERROR FLAG=',Z8)                      \r\n 1025 FORMAT(' INCORRECT BLOCK NUMBER ENCOUNTERED',                             \r\n     *       ' ON FILE ',2A4,' UNIT=',I4)                                       \r\n 1035 FORMAT(' EXPECTED RH, SB, EF, OR EB CONTROL WORD',                        \r\n     *       ' ON FILE ',2A4,' UNIT=',I4)                                       \r\n 1045 FORMAT(' EXPECTED RT CONTROL WORD ON FILE ',2A4,                          \r\n     *       ' UNIT=',I4)                                                       \r\n 1055 FORMAT(' EXPECTED RH OR EF CONTROL WORD ON FILE ',2A4,                    \r\n     *       ' UNIT=',I4)                                                       \r\n 1065 FORMAT(' EXPECTED RH, EB OR SB CONTROL WORD ON FILE ',2A4,                \r\n     *       ' UNIT=',I4)                                                       \r\n 1075 FORMAT(' REFERENCE IS MADE TO FILE ',2A4,                                 \r\n     *       ' THAT IS NOT OPENED-UNIT=',I4)                                    \r\n 1085 FORMAT(' INSUFFICIENT SPACE FOR I/O CONTROL WORDS ON FILE '               \r\n     *         ,2A4,' UNIT=',I4)                                                \r\n 1095 FORMAT(' TOO MANY TERMS WRITTEN TO STRING ON FILE ',2A4,                  \r\n     *        ' UNIT=',I4)                                                      \r\n 1105 FORMAT(' EXPECTED A SB OR EB CONTROL WORD ON FILE ',2A4,                  \r\n     *       ' UNIT=',I4)                                                       \r\n 1115 FORMAT(' EXPECTED A CH CONTROL WORD ON FILE ',2A4,                        \r\n     *        ' UNIT=',I4)                                                      \r\n 1125 FORMAT(' EXPECTED A SE, SD, CT, OR SH CONTROL WORD ON FILE ',             \r\n     *        2A4,' UNIT=',I4)                                                  \r\n 1135 FORMAT(' ERROR  - CLR.GT. LCW  ON FILE ',2A4, ' UNIT=',I4)                \r\n 1145 FORMAT(' EXPECTED A RT CONTROL WORD ON FILE ',2A4, ' UNIT=',I4)           \r\n 1155 FORMAT(' EXPECTED A CH CONTROL WORD ON FILE ',2A4,' UNIT=',I4)            \r\n 1165 FORMAT(' EXPECTED A CH,ST,SH,SD,RT, OR SE CONTROL WORD ON FILE ',         \r\n     *        2A4,' UNIT=',I4)                                                  \r\n 1175 FORMAT(' EXPECTED A ST CONTROL WORD ON FILE ',2A4, ' UNIT=',I4)           \r\n 1185 FORMAT(' TYPIN OR TYPOUT FOR MATRIX PACK IS OUT OF RANGE ON',             \r\n     *       ' FILE ',2A4,' UNIT=',I4)                                          \r\n 1195 FORMAT(' NON-ASCENDING ROW NUMBER GIVEN',                                 \r\n     *       ' ON FILE ',2A4, ' UNIT=',I10)                                     \r\n 1205 FORMAT(' FILE NAME DOES NOT MATCH STRING CONTROL BLOCK FOR ',             \r\n     *       'FILE ',2A4,' UNIT=',I4)                                           \r\n 1215 FORMAT(' INVALID UNIT NUMBER IN MDSFCB FOR FILE ',2A4,' UNIT=',I4)        \r\n 1225 FORMAT(' INSUFFICIENT NUMBER OF FILES AVAILABLE FOR FILE ',               \r\n     *       2A4,' UNIT=',I4)                                                   \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsmsg1.f",
    "content": "        SUBROUTINE DSMSG1 ( BLOCK )                                             \r\n        COMMON / ZBLPKX / A1(4), IROW1                                          \r\n        COMMON / ZNTPKX / A2(4), IROW2, IEOL2, IEOR2                            \r\n        COMMON / PACKX  / ITIN3, ITOUT3, IROW3, NROW3, INCR3                    \r\n        COMMON / UNPAKX / ITOUT4,IROW4, NROW4, INCR4                            \r\n        COMMON / SYSTEM / NONE,  IWR                                            \r\n        INTEGER BLOCK(15)                                                       \r\n        WRITE( IWR, 9000 )                                                      \r\n        WRITE( IWR, 9010 )                                                      \r\n        WRITE( IWR, 9015 ) BLOCK                                                \r\n        WRITE( IWR, 9020 )                                                      \r\n        WRITE( IWR, 9015 ) A1, IROW1                                            \r\n        WRITE( IWR, 9030 )                                                      \r\n        WRITE( IWR, 9015 ) A2, IROW2, IEOL2, IEOR2                              \r\n        WRITE( IWR, 9040 )                                                      \r\n        WRITE( IWR, 9015 ) ITIN3, ITOUT3, IROW3, NROW3, INCR3                   \r\n        WRITE( IWR, 9050 )                                                      \r\n        WRITE( IWR, 9015 ) ITOUT4, IROW4, NROW4, INCR4                          \r\n9000    FORMAT(' *** ERROR OCCURRED IN PAKUNPK I/O SUBSYSTEM ***')              \r\n9010    FORMAT(' CONTENTS OF THE STRING CONTROL BLOCK')                         \r\n9015    FORMAT(10(5(1X,Z8),/))                                                  \r\n9020    FORMAT(' CONTENTS OF /ZBLPKX/')                                         \r\n9030    FORMAT(' CONTENTS OF /ZNTPKX/')                                         \r\n9040    FORMAT(' CONTENTS OF /PACKX/ ')                                         \r\n9050    FORMAT(' CONTENTS OF /UNPAKX/')                                         \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsnmdd.f",
    "content": "      SUBROUTINE DSNMDD                                                         \r\n      INCLUDE   'DSIOF.COM'                                                     \r\n      INCLUDE   'NASNAMES.COM'                                                  \r\n      CHARACTER*12 FILNAM(100)                                                  \r\nC                                                                               \r\n      COMMON /SYSTEM/ SYSBUF, IWR                                               \r\nC                                                                               \r\n      DATA FILNAM/'PUNCH','LINK' ,'LOG      ' ,'RDICT   ' , 'INPUT   '          \r\n     *,'OUTPUT   ' , 'OPTP'    ,'NPTP.ZAP' ,'XPDT.ZAP' , 'PLOT    '          \r\n     *,'UT1'      , 'UT2'     ,'UT3'      ,'UT4'      , 'UT5'              \r\n     *,'INPT'     , 'INP1'    ,'INP2'     ,'INP3'     , 'INP4'             \r\n     *,'INP5'     , 'POOL.ZAP','SCR23.ZAP','SCR24.ZAP','SCR25.ZAP'         \r\n     *,'SCR26.ZAP','SCR27.ZAP','SCR28.ZAP','SCR29.ZAP','SCR30.ZAP'         \r\n     *,'SCR31.ZAP','SCR32.ZAP','SCR33.ZAP','SCR34.ZAP','SCR35.ZAP'         \r\n     *,'SCR36.ZAP','SCR37.ZAP','SCR38.ZAP','SCR39.ZAP','SCR40.ZAP'         \r\n     *,'SCR41.ZAP','SCR42.ZAP','SCR43.ZAP','SCR44.ZAP','SCR45.ZAP'         \r\n     *,'SCR46.ZAP','SCR47.ZAP','SCR48.ZAP','SCR49.ZAP','SCR50.ZAP'         \r\n     *,'SCR51.ZAP','SCR52.ZAP','SCR53.ZAP','SCR54.ZAP','SCR55.ZAP'         \r\n     *,'SCR56.ZAP','SCR57.ZAP','SCR58.ZAP','SCR59.ZAP','SCR60.ZAP'         \r\n     *,'SCR61.ZAP','SCR62.ZAP','SCR63.ZAP','SCR64.ZAP','SCR65.ZAP'         \r\n     *,'SCR66.ZAP','SCR67.ZAP','SCR68.ZAP','SCR69.ZAP','SCR70.ZAP'         \r\n     *,'SCR71.ZAP','SCR72.ZAP','SCR73.ZAP','SCR74.ZAP','SCR75.ZAP'         \r\n     *,'SCR76.ZAP','SCR77.ZAP','SCR78.ZAP','SCR79.ZAP','SCR80.ZAP'         \r\n     *,'SCR81.ZAP','SCR82.ZAP','SCR83.ZAP','SCR84.ZAP','SCR85.ZAP'         \r\n     *,'SCR86.ZAP','SCR87.ZAP','SCR88.ZAP','SCR89.ZAP','SCR90.ZAP'         \r\n     *,'SCR91.ZAP','SCR92.ZAP','SCR93.ZAP','SCR94.ZAP','SCR95.ZAP'         \r\n     *,'SCR96.ZAP','SCR97.ZAP','SCR98.ZAP','SCR99.ZAP','SCR00.ZAP'/        \r\n      LENDIR = INDEX( DIRTRY, ' ' ) - 1\r\n      DO 15 K = 1, 21                                                           \r\n      MDSNAM( K ) = FILNAM(K)                                                   \r\n15    CONTINUE                                                                  \r\n      MDSNAM( 8 ) = DIRTRY(1:LENDIR) // '/' // FILNAM( 8 )                      \r\n      MDSNAM( 9 ) = DIRTRY(1:LENDIR) // '/' // FILNAM( 9 )                      \r\n      DO 20 K = 22, MAXFCB                                                      \r\n      MDSNAM( K ) = DIRTRY(1:LENDIR) // '/' // FILNAM( K )                      \r\n20    CONTINUE                                                                  \r\n700   RETURN                                                                    \r\n      END                                                                       \r\n\r\n"
  },
  {
    "path": "mds/dsnmrd.f",
    "content": "      SUBROUTINE DSNMRD (IUNITU)                                                \r\n      INCLUDE  'DSIOF.COM'                                                      \r\n      COMMON /GNDATE/ IGNDAT(2)                                                 \r\n      READ (IUNITU) FCB, NUMDEV, DEV, MDSNAM, IGNDAT, MAXBLK, MAXDSK            \r\n      READ (IUNITU) NUMOPN, NUMCLS, NUMWRI, NUMREA                              \r\n      DO 10 I = 1, 80                                                           \r\n      FCB( 9, I ) = 0                                                           \r\n      FCB(10, I ) = 0                                                           \r\n      FCB(11, I ) = 0                                                           \r\n10    CONTINUE                                                                  \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsnmwr.f",
    "content": "          SUBROUTINE DSNMWR (IUNITU)                                            \r\nC                                                                               \r\nC         THIS SUBROUTINE IS CALLED BY ENDSYS                                   \r\nC                                                                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      COMMON /GNDATE/ IGNDAT(2)                                                 \r\n      WRITE (IUNITU) FCB, NUMDEV, DEV, MDSNAM, IGNDAT,MAXBLK,MAXDSK             \r\n      WRITE (IUNITU) NUMOPN, NUMCLS, NUMWRI, NUMREA                             \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsocff.f",
    "content": "      SUBROUTINE DSOCFF ( DSNAME, IUNIT, ISTATUS )                              \r\n      CHARACTER*72      DSNAME                                                  \r\n      COMMON / SYSTEM / SYSBUF, IWR                                             \r\n      COMMON / MACHIN / MAC(3), LQRO\r\n      INCLUDE  'DSIOF.COM'                                                      \r\nC  OPEN AND CLOSE FILE IN ORDER TO DELETE SPACE                                 \r\n      OPEN  ( UNIT=IUNIT, FILE=DSNAME    , IOSTAT=ISTATUS, ERR=100 \r\n     &,       STATUS='UNKNOWN' )            \r\n100   CLOSE ( UNIT=IUNIT, STATUS='DELETE', IOSTAT=ISTATUS, ERR=701 )            \r\nC NOW, OPEN FILE AS NEW FOR NASTRAN                                             \r\nc      print *,' dsocff,nbuff=',nbuff                                           \r\n      nbuff4 = nbuff * ( MOD(LQRO,100) / 10 )                                  \r\n      OPEN  ( UNIT=IUNIT, FILE=DSNAME, RECL=NBUFF4, STATUS='NEW'                \r\n     &,       access='direct', form='unformatted',IOSTAT=ISTATUS                \r\n     &,       ERR=702 )                                                         \r\n      GO TO 777                                                                 \r\n701   WRITE ( IWR, 901 ) IUNIT, ISTATUS, DSNAME                                 \r\n901   FORMAT(//,' FATAL ERROR IN DSOCFF, UNABLE TO CLOSE UNIT=',I4              \r\n     &,         ' STATUS='I4                                                    \r\n     &,       /,' FILE NAME=',A72 )                                             \r\n      ICCERR = ISTATUS                                                          \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n702   WRITE ( IWR, 902 ) IUNIT, ISTATUS, DSNAME                                 \r\n902   FORMAT(//,' FATAL ERROR IN DSOCFF, UNABLE TO OPEN UNIT=',I4               \r\n     &,         ' STATUS=',I4                                                   \r\n     &,       /,' FILE NAME=',A72 )                                             \r\n      ICCERR = ISTATUS                                                          \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n777   RETURN                                                                    \r\n      END                                                    \r\n"
  },
  {
    "path": "mds/dsopen.f",
    "content": "      SUBROUTINE DSOPEN ( DSNAME, IUNIT, IOP )                                  \r\n      CHARACTER*72      DSNAME                                                  \r\n      INCLUDE          'DSIOF.COM'                                              \r\nC      print *,' dsopen,iunit,iop,dsname=',iunit,iop,dsname                     \r\n      IF ( IOP .NE. 1 ) CALL DSOPFF ( DSNAME, IUNIT, ICCER )                    \r\n      IF ( IOP .EQ. 1 ) CALL DSOCFF ( DSNAME, IUNIT, ICCER )                    \r\n      NUMOPN = NUMOPN + 1                                                       \r\n 700  RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsopff.f",
    "content": "      SUBROUTINE DSOPFF ( DSNAME, IUNIT, ISTATUS )                              \r\n      CHARACTER*72      DSNAME                                                  \r\n      COMMON / SYSTEM / SYSBUF, IWR                                             \r\n      COMMON / MACHIN / MAC(3), LQRO\r\n      INCLUDE          'DSIOF.COM'                                              \r\n      NBUFF4 = NBUFF * ( MOD(LQRO,100) / 10 )                           \r\n      OPEN  ( UNIT=IUNIT, FILE=DSNAME, RECL=NBUFF4, FORM='UNFORMATTED'          \r\n     &,       ACCESS='DIRECT', IOSTAT=ISTATUS, ERR=701 \r\n     &,       STATUS='UNKNOWN' )                        \r\n      GO TO 777                                                                 \r\n701   WRITE ( IWR, 901 ) IUNIT, ISTATUS, DSNAME                                 \r\n901   FORMAT(//,' FATAL ERROR IN DSOPFF, UNABLE TO OPEN UNIT=',I4               \r\n     &         ,' IOSTAT=',I5                                                   \r\n     &       ,/,' FILE NAME=',A72 )                                             \r\n      ICCERR = ISTATUS                                                          \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n777   RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsprcl.f",
    "content": "        SUBROUTINE DSPRCL ( BLOCK )                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 )                                                     \r\n        INTEGER IDIV( 4 )                                                       \r\n        DATA    IDIV / 1, 2, 1, 2 /                                             \r\n        BLOCK(  2 ) = IAND( IBASE( INDCBP ), MASKQ4 )                           \r\n        BLOCK(  3 ) = IAND( IBASE( INDCBP ), MASKQ3 )                           \r\n        BLOCK(  3 ) = BLOCK( 3 ) / MULQ3                                        \r\n        BLOCK( 11 ) = NWRDEL( BLOCK( 2 ) )                                      \r\n        BLOCK( 12 ) = IBASE( INDCBP+1 )                                         \r\n        BLOCK( 14 ) = IDIV( BLOCK( 2 ) )                                        \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsrdmb.f",
    "content": "        SUBROUTINE DSRDMB ( IDATA, M )                                          \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER           IDATA(2)                                              \r\n        IRWORD = 0                                                              \r\n10      LEN     = IAND( IBASE( INDCLR ) , MASKH2 )                              \r\n        IF ( LEN .EQ. 0 ) GO TO 40                                              \r\n        IDIFF   = INDCBP - INDCLR                                               \r\n        IWORDS  = LEN - IDIFF                                                   \r\n        IREQ    = IABS( NWORDS )                                                \r\n        IF ( IREQ .GT. ( IWORDS+IRWORD ) ) GO TO 40                             \r\n        INUM    = IREQ - IRWORD                                                 \r\n        IF ( INUM .EQ. 0 ) GO TO 7000                                           \r\n        IF ( NWORDS .LT. 0 ) GO TO 30                                           \r\n        DO 20 K = 1, INUM                                                       \r\n        IDATA( IRWORD+K ) = IBASE( INDCBP+K )                                   \r\n20      CONTINUE                                                                \r\n30      INDCBP = INDCBP + INUM                                                  \r\n        GO TO 7000                                                              \r\n40      ID = IAND( IBASE( INDCLR+LEN+1 ), MASKQ2 )                              \r\n        IF ( LEN .EQ. 0 ) GO TO 65                                              \r\n        IF ( NWORDS .LT. 0 ) GO TO 60                                           \r\n        DO 50 K = 1, IWORDS                                                     \r\n        IDATA( IRWORD+K ) = IBASE( INDCBP+K )                                   \r\n50      CONTINUE                                                                \r\n60      IRWORD = IRWORD + IWORDS                                                \r\n65      IF ( ID .EQ. IDSC ) GO TO 70                                            \r\n        CALL DSRDNB                                                             \r\n        GO TO 10                                                                \r\n70      IRETRN = 2                                                              \r\n        IEOR   = 1                                                              \r\n        M      = IRWORD                                                         \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsrdnb.f",
    "content": "        SUBROUTINE DSRDNB                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        CALL DBMMGR( 5 )                                                        \r\n        NBLOCK = FCB( 4, IFILEX )                                               \r\n        INDCLR = INDBAS + 5                                                     \r\n        INDCBP = INDCLR                                                         \r\n        LCW    = IBASE( INDBAS+4 )                                              \r\n        IBLK   = IBASE( INDBAS+3 )                                              \r\n        IF ( IBLK .EQ. NBLOCK ) GO TO 10                                        \r\n        CALL DSMSG ( 102 )                                                      \r\n10      RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsrdpb.f",
    "content": "        SUBROUTINE DSRDPB                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        NBLOCK = NBLOCK - 1                                                     \r\n        CALL DBMMGR( 6 )                                                        \r\n        INDCLR = IBASE( INDBAS+4 ) + INDBAS - 1                                 \r\n        INDCBP = INDCLR                                                         \r\n        IBLK   = IBASE( INDBAS+3 )                                              \r\n        IF ( IBLK .EQ. NBLOCK ) GO TO 10                                        \r\n        CALL DSMSG( 102 )                                                       \r\n10      RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsread.f",
    "content": "      SUBROUTINE DSREAD ( IUNIT, BUFF, LEN, IREC )                              \r\n      INTEGER           BUFF( LEN )                                             \r\n      COMMON / SYSTEM / SYSBUF, IWR                                             \r\n      INCLUDE          'DSIOF.COM'                                              \r\n      IF ( IREC  .LT. 0 ) GO TO 701                                             \r\nc      PRINT *,' DSREAD,LEN,IREC,IUNIT=',LEN,IREC,IUNIT                         \r\n      ISTAT=0                                                                   \r\n      READ ( IUNIT, REC=IREC, ERR=702, IOSTAT=ISTAT )                  \r\n     &       BUFF                                                               \r\n      IF ( ISTAT .EQ. 0 ) GO TO 777                                             \r\n      IOERR = ISTAT                                                             \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n701   WRITE ( IWR, 901 ) IUNIT, IREC, MDSNAM( IUNIT )                           \r\n901   FORMAT(//' ERROR IN DSREAD-BAD REC NO., UNIT=',I4,' REC=',I4              \r\n     &,      /,' FILE NAME=',A72)                                               \r\n      ICCERR = 0                                                                \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n      GO TO 777                                                                 \r\n702   WRITE( IWR, 902 ) IUNIT, IREC, ISTAT, MDSNAM( IUNIT )                     \r\n902   FORMAT(//', ERROR ENCOUNTERED IN DSREAD, UNIT=',I5,' RECORD='             \r\n     &, I5,' STATUS=',I9,/' DSNAME=',A72 )                                      \r\n      ICCERR = ISTAT                                                            \r\n      CALL DSMSG( 101 )                                                         \r\n      CALL MESAGE( -61, 0, 0 )                                                  \r\n      GO TO 777                                                                 \r\n777   CONTINUE                                                                  \r\n      NUMREA = NUMREA + 1                                                       \r\n      RETURN                                                                    \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/dsrlse.f",
    "content": "        SUBROUTINE DSRLSE                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INEXT  = IFILEX                                                           \r\n10    NEXDSN = IAND( MDSFCB( 3,INEXT ), MASKH2 )                                \r\n      IF ( NEXDSN .EQ. 0 ) GO TO 20                                             \r\n      MDSFCB( 1, INEXT ) = IAND( MDSFCB( 1,INEXT ), MASKH1 )                    \r\n      MDSFCB( 2, INEXT ) = 0                                                    \r\n      MDSFCB( 3, INEXT ) = 0                                                    \r\nC                                                                               \r\nC OPEN AND CLOSE FILE TO DELETE SPACE ALLOCATION                                \r\nC                                                                               \r\n      CALL DSOPEN ( MDSNAM(NEXDSN), NEXDSN, 1 )                                 \r\n      CALL DSCLOS ( NEXDSN )                                                    \r\n      INEXT  = NEXDSN                                                           \r\n      GO TO 10                                                                  \r\n20    RETURN                                                                    \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dssdcb.f",
    "content": "        SUBROUTINE DSSDCB                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        ICLR  =  INDCLR - INDBAS + 1                                            \r\n        FCB( 3, IFILEX )  = ICLR                                                \r\n        FCB( 4, IFILEX )  = NBLOCK                                              \r\n        IBASE( INDBAS+1 ) = INDCBP - INDBAS + 1                                 \r\n        IBASE( INDBAS+2 ) = ICLR                                                \r\n        LASNAM = NAME                                                           \r\nC        WRITE(6,40646)IFILEX,NBLOCK,ICLR,INDBAS,INDCLR                         \r\n40646   FORMAT(' DSSDCB,IFILEX,NBLOCK,ICLR,BAS,CLR=',I3,I5,6I7)                 \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dssend.f",
    "content": "      SUBROUTINE DSSEND ( FILE )\r\nC\r\nC DSSEND (Dataset Set to End) will position a file to the end\r\nC to allow for closing a file for read and opening it for write\r\nC append.  This eliminates having to read sequentially to the end \r\nC of the file before closing for read.\r\nC\r\n      INCLUDE 'DSIOF.COM'\r\n      INCLUDE 'XNSTRN.COM'\r\n      INTEGER    FILE\r\n      NAME  = FILE\r\n      CALL DSGEFL\r\nC\r\nC GET LAST BLOCK NUMBER IN THIS FILE FROM FCB\r\nC      \r\n      NBLOCK = FCB( 6, IFILEX )\r\nC\r\nC GET CURRENT BLOCK NUMBER IN THIS FILE FROM FCB\r\nC\r\n      ICBLK  = FCB( 4, IFILEX )\r\n      IF ( ICBLK .EQ. NBLOCK ) GO TO 10\r\n      CALL DBMMGR( 6 )\r\n10    CONTINUE\r\n      INDCLR = IBASE( INDBAS+4) + INDBAS - 1\r\n      INDCBP = INDCLR\r\n      CALL DSSDCB\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/dssize.f",
    "content": "      SUBROUTINE DSSIZE ( NAMFIL, NCOLS, NTERMS, NSTRGS, NWDTRM )\r\nC\r\nC   DSSIZE DETERMINES THE SIZE OF A GIVEN MATRIX FILE\r\nC      NCOLS  = NUMBER OF COLUMNS\r\nC      NTERMS = TOTAL NUMBER OF NON-ZERO TERMS IN MATRIX\r\nC      NSTRGS = TOTAL NUMBER OF STRINGS OF CONSECUTIVE TERMS IN MATRIX\r\nC      NWDTRM = NUMBER OF WORDS PER TERM\r\nC\r\n      INCLUDE 'DSIOF.COM'\r\n      COMMON / ZZZZZZ / MEM( 4 )\r\n      INTEGER   MCB(7)\r\n      CALL GETURN( NAMFIL )\r\n      IF ( IFILEX .EQ. 0 ) GO TO 701\r\n      MCB( 1 ) = NAMFIL\r\n      CALL RDTRL ( MCB )\r\n      NCOLS  = MCB( 2 )\r\n      NSTRGS = FCB( 16, IFILEX )\r\n      NTERMS = FCB( 17, IFILEX )\r\n      NWDTRM = 2\r\n      IF ( MCB( 5 ) .EQ. 1 ) NWDTRM = 1\r\n      IF ( MCB( 5 ) .EQ. 4 ) NWDTRM = 4\r\n      GO TO 777\r\n701   NTERMS = 0\r\n      NSTRGS = 0\r\n      NCOLS  = 0\r\n      NWDTRM = 0\r\n777   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/dsskfb.f",
    "content": "        SUBROUTINE DSSKFB( NN )                                                 \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        N = NN                                                                  \r\n10      IF ( N .EQ. 0 ) GO TO 7000                                              \r\n20      CALL DSBRC1                                                             \r\n        ID = IAND( IBASE( INDCLR ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSEF ) GO TO 30                                           \r\n        IF ( NBLOCK .NE. 1 ) GO TO 20                                           \r\n        IF ( ( INDCLR-INDBAS ) .LE. 5 ) GO TO 7000                              \r\n        GO TO 20                                                                \r\n30      N = N + 1                                                               \r\n        GO TO 10                                                                \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsskff.f",
    "content": "        SUBROUTINE DSSKFF ( NN )                                                \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        N = NN                                                                  \r\n10      IF ( N .EQ. 0 ) GO TO 7000                                              \r\n20      CALL DSFWR1                                                             \r\n        IF ( IRETRN .EQ. 0 ) GO TO 20                                           \r\n        N = N - 1                                                               \r\n        GO TO 10                                                                \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsskrc.f",
    "content": "        SUBROUTINE DSSKRC                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n10      ID = IAND( IBASE( INDCLR ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSRH ) GO TO 40                                           \r\n        IF ( ID .EQ. IDSSB ) GO TO 40                                           \r\n        IF ( ID .EQ. IDSEF ) GO TO 30                                           \r\n        IF ( ID .EQ. IDSEB ) GO TO 20                                           \r\n        CALL DSMSG ( 103 )                                                      \r\n20      CALL DSRDNB                                                             \r\n        GO TO 10                                                                \r\n30      INDCLR = INDCLR + 1                                                     \r\n        INDCBP = INDCLR                                                         \r\n        GO TO 7000                                                              \r\n40      LEN  = IAND( IBASE( INDCLR ), MASKH2 )                                  \r\n        ICLR = INDCLR + LEN + 1                                                 \r\n        ID   = IAND( IBASE( ICLR ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSRT ) GO TO 50                                           \r\n        CALL DSMSG ( 104 )                                                      \r\n50      IFLG = IAND( IBASE( ICLR ), MASKQ2 )                                    \r\n        IF ( IFLG .EQ. IDSC ) GO TO 60                                          \r\n        CALL DSRDNB                                                             \r\n        GO TO 10                                                                \r\n60      INDCLR = ICLR +  1                                                      \r\n        INDCBP = INDCLR                                                         \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsspos.f",
    "content": "      SUBROUTINE DSSPOS( FILE, KCBLK, KCLR, KCBP )\r\nC\r\nC DSSPOS REPOSITIONS THE \"FILE\" TO BLOCK \"KCBLK\" WITH THE CURRENT\r\nC LOGICAL RECORD POINTER SET TO \"KCLR\" AND THE CURRENT BUFFER\r\nC POINTER SET TO \"KCBP\"\r\nC\r\n      INCLUDE 'DSIOF.COM'\r\n      INCLUDE 'XNSTRN.COM'\r\n      INTEGER    FILE\r\n      NAME  = FILE\r\n      CALL DSGEFL\r\n      ICBLK  = FCB( 4, IFILEX )\r\n      IF ( ICBLK .EQ. KCBLK ) GO TO 10\r\n      NBLOCK = KCBLK\r\n      CALL DBMMGR( 6 )\r\n10    CONTINUE\r\n      INDCLR = KCLR + INDBAS - 1\r\n      INDCBP = KCBP + INDBAS - 1\r\n      CALL DSSDCB\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/dsupkc.f",
    "content": "        SUBROUTINE DSUPKC ( ITIN, ITOUT, A, B )                                 \r\n        COMMON / SYSTEM / ISYSBF, IWR                                           \r\n        REAL               A(4), B(4), AA(4), BB(4)                             \r\n        INTEGER           NWORDS(4)                                             \r\n        REAL              RS1, RS2                                              \r\n        DOUBLE PRECISION  RD1, RD2, RDI1, RDI2                                  \r\n        EQUIVALENCE       (AA,RS1,RD1), (BB,RS2,RD2)                            \r\n        EQUIVALENCE       ( AA(3), RDI1 ), ( BB(3), RDI2 )                      \r\n        DATA              NWORDS / 1,2,2,4/                                     \r\n        IWRD1   = NWORDS( ITIN )                                                \r\n        IF ( ITIN .NE. ITOUT ) GO TO 20                                         \r\nCDIR$ NEXTSCALAR                                                                \r\n        DO 10 K = 1, IWRD1                                                      \r\n        B( K )  = A( K )                                                        \r\n10      CONTINUE                                                                \r\n        GO TO 7777                                                              \r\n20      IF ( ITOUT .GT. 64 ) GO TO 30                                           \r\n        ITOUT2 = ITOUT                                                          \r\n        IWRD2  = NWORDS( ITOUT )                                                \r\n        SSIGN  = 1.0                                                            \r\n        GO TO 40                                                                \r\n30      ITOUT2 = ITOUT - 64                                                     \r\n        IWRD2  = NWORDS( ITOUT2 )                                               \r\n        SSIGN  = -1.0                                                           \r\nCDIR$ NEXTSCALAR                                                                \r\n40      DO 50 K = 1, IWRD1                                                      \r\n        AA( K ) = A( K )                                                        \r\n50      CONTINUE                                                                \r\n        GO TO ( 1000, 2000, 3000, 4000 ), ITIN                                  \r\n1000    GO TO ( 1100, 1200, 1300, 1400 ), ITOUT2                                \r\n1100    RS2 = SSIGN * RS1                                                       \r\n        GO TO 7000                                                              \r\n1200    RD2 = SSIGN * RS1                                                       \r\n        GO TO 7000                                                              \r\n1300    BB( 1 ) = SSIGN * RS1                                                   \r\n        BB( 2 ) = 0.                                                            \r\n        GO TO 7000                                                              \r\n1400    RD2 = SSIGN * RS1                                                       \r\n        RDI2 = 0.                                                               \r\n        GO TO 7000                                                              \r\n2000    GO TO ( 2100, 2200, 2300, 2400 ), ITOUT2                                \r\n2100    RS2 = SSIGN * RD1                                                       \r\n        GO TO 7000                                                              \r\n2200    RD2 = SSIGN * RD1                                                       \r\n        GO TO 7000                                                              \r\n2300    BB( 1 ) = SSIGN * RD1                                                   \r\n        BB( 2 ) = 0.                                                            \r\n        GO TO 7000                                                              \r\n2400    RD2 = SSIGN * RD1                                                       \r\n        RDI2 = 0.                                                               \r\n        GO TO 7000                                                              \r\n3000    GO TO ( 3100, 3200, 3300, 3400 ), ITOUT2                                \r\n3100    RS2 = SSIGN * AA( 1 )                                                   \r\n        GO TO 7000                                                              \r\n3200    RD2 = SSIGN * AA( 1 )                                                   \r\n        GO TO 7000                                                              \r\n3300    BB( 1 ) = SSIGN * AA( 1 )                                               \r\n        BB( 2 ) = SSIGN * AA( 2 )                                               \r\n        GO TO 7000                                                              \r\n3400    RD2 = SSIGN * AA( 1 )                                                   \r\n        RDI2 = SSIGN * AA( 2 )                                                  \r\n        GO TO 7000                                                              \r\n4000    GO TO ( 4100, 4200, 4300, 4400 ), ITOUT2                                \r\n4100    RS2 = SSIGN * RD1                                                       \r\n        GO TO 7000                                                              \r\n4200    RD2 = SSIGN * RD1                                                       \r\n        GO TO 7000                                                              \r\n4300    BB( 1 ) = SSIGN * RD1                                                   \r\n        BB( 2 ) = SSIGN * RDI1                                                  \r\n        GO TO 7000                                                              \r\n4400    RD2 = SSIGN * RD1                                                       \r\n        RDI2 = SSIGN * RDI1                                                     \r\n        GO TO 7000                                                              \r\nCDIR$ NEXTSCALAR                                                                \r\n7000    DO 7200 K = 1, IWRD2                                                    \r\n        B( K ) = BB( K )                                                        \r\n7200    CONTINUE                                                                \r\n7777    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dswrit.f",
    "content": "      SUBROUTINE DSWRIT ( IUNIT, BUFF, LEN, IREC, ICCERR )                      \r\n      INTEGER           BUFF( LEN )                                             \r\n      COMMON / SYSTEM / SYSBUF, IWR                                             \r\n      INCLUDE          'DSIOF.COM'                                              \r\nc      print *,' dswrit,len,IREC,UNIT=',len,irec,iunit                          \r\n      IF ( IREC .LE. 0 ) GO TO 701                                              \r\n      WRITE ( IUNIT, REC=IREC, IOSTAT=ISTAT, ERR=702 ) BUFF                     \r\n      ICCERR = 0                                                                \r\n      GO TO 777                                                                 \r\n701   WRITE( IWR, 901 ) IUNIT, IREC, MDSNAM( IUNIT )                            \r\n901   FORMAT(//' ERROR IN DSWRIT, BAD RECORD NO., UNIT=',I4,' REC=',I5          \r\n     &,      /,' FILE NAME=',A72 )                                              \r\n      ICCERR = ISTAT                                                            \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n702   WRITE( IWR, 902 ) IUNIT, IREC, ISTAT, MDSNAM( IUNIT )                     \r\n902   FORMAT(//', ERROR ENCOUNTERED IN DSWRCC, UNIT=',I5,' RECORD='             \r\n     &, I5,' STATUS=',I9,/' DSNAME=',A72 )                                      \r\n      ICCERR = ISTAT                                                            \r\n      CALL DSMSG  ( 101 )                                                       \r\n      CALL MESAGE ( -61, 0, 0 )                                                 \r\n777   CONTINUE                                                                  \r\n      NUMWRI = NUMWRI + 1                                                       \r\n      RETURN                                                                    \r\n      END                                                                       \r\n                                                                                \r\n                                                                                \r\n"
  },
  {
    "path": "mds/dswrnb.f",
    "content": "        SUBROUTINE DSWRNB                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        IBASE( INDBAS+4 ) = INDCLR - INDBAS + 1                                 \r\n        CALL DBMMGR( 4 )                                                        \r\n        NBLOCK  = FCB( 4, IFILEX )                                              \r\n        INDCLR  = INDBAS + 5                                                    \r\n        IBASE( INDBAS+3 ) = NBLOCK                                              \r\n        INDCBP  = INDCLR                                                        \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dswrt1.f",
    "content": "        SUBROUTINE DSWRT1 ( IDATA )                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER IDATA( 2 )                                                      \r\n        INEXT = 0                                                               \r\n        IF ( LWORDS .LE. -1 ) GO TO 50                                          \r\n        IF ( NBLOCK .EQ. IBLOCK ) GO TO 10                                      \r\n        IFLG = IDSX                                                             \r\n        GO TO 20                                                                \r\n10      IFLG = IDSP                                                             \r\n20      IF ( LWORDS .LE. 0 ) GO TO 40                                           \r\n        ICOUNT = IAND( IBASE( INDCLR ), MASKH2 )                                \r\n        IBASE( INDCLR ) = IDSRH + IFLG + ICOUNT + LWORDS                        \r\n        DO 30 I = 1, LWORDS                                                     \r\n        IBASE( INDCBP + I ) = IDATA( I )                                        \r\n30      CONTINUE                                                                \r\n        INDCBP = INDCBP + LWORDS + 1                                            \r\n        IBASE( INDCBP ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 )                    \r\n        INDCLR = INDCBP + 1                                                     \r\n        IBASE( INDCBP+1 ) = IDSEB                                               \r\n        IFLG   = IDSX                                                           \r\n        GO TO 60                                                                \r\n40      IBASE( INDCLR ) = IAND( IBASE( INDCLR ), NOT( MASKQ2 ) )                \r\n        IBASE( INDCLR ) = IOR( IFLG, IBASE( INDCLR ) )                          \r\n        IBASE( INDCBP+1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 )                  \r\n        IBASE( INDCBP+2 ) = IDSEB                                               \r\n        LWORDS = 0                                                              \r\n        INDCLR = INDCBP + 2                                                     \r\n        INDCBP = INDCLR                                                         \r\n        IFLG   = IDSX                                                           \r\n        GO TO 60                                                                \r\n50      IBASE( INDCLR ) = IDSEB                                                 \r\n        LWORDS = 0                                                              \r\n        IFLG    = IDSX                                                          \r\n        IF ( IBLOCK .EQ. NBLOCK ) IFLG = IDSC                                   \r\n60      CALL DSWRNB                                                             \r\n        IRWORDS = NWORDS - LWORDS                                               \r\n        INEXT   = INEXT + LWORDS                                                \r\n70      IF ( IRWORDS .GT. ( NBUFF-5 ) ) GO TO 80                                \r\n        IFIN    = 1                                                             \r\n        NWORDS  = IRWORDS                                                       \r\n        GO TO 90                                                                \r\n80      IFIN    = 0                                                             \r\n        IF ( IFLG .EQ. IDSC ) IFLG = IDSP                                       \r\n        NWORDS  = NBUFF - 5                                                     \r\n90      IBASE( INDCLR ) = IDSRH + IFLG + NWORDS                                 \r\n        DO 100 I = 1, NWORDS                                                    \r\n        IBASE( INDCBP+I ) = IDATA( INEXT+I )                                    \r\n100     CONTINUE                                                                \r\n        INDCBP = INDCBP + NWORDS                                                \r\n        IF ( IFIN .EQ. 1 ) GO TO 110                                            \r\n        INEXT  = INEXT + NWORDS                                                 \r\n        IBASE( INDCBP+1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 )                  \r\n        IBASE( INDCBP+2 ) = IDSEB                                               \r\n        IRWORDS = IRWORDS - NWORDS                                              \r\n        IFLG   = IDSX                                                           \r\n        INDCLR  = INDCLR + NWORDS + 2                                           \r\n        CALL DSWRNB                                                             \r\n        GO TO 70                                                                \r\n110     IF ( IEOR .EQ. 0 ) GO TO 120                                            \r\n        IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 )                  \r\n        INDCLR = INDCBP + 2                                                     \r\n        INDCBP = INDCLR                                                         \r\n120     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dsxfsz.f",
    "content": "      SUBROUTINE DSXFSZ                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      COMMON / XFIST / LFIST, NFIST, IFIST( 100 )                               \r\n      COMMON / XFIAT / IFIAT( 643 )                                             \r\n      COMMON / ZZZZZZ/ MEM(2)                                                   \r\n      IDSN   = IFILEX                                                           \r\n      NUN    = 0                                                                \r\n      ITOTAL = 0                                                                \r\n10    LASBLK = FCB( 6,IDSN )                                                    \r\n      IFRBLK = FCB( 5,IDSN )                                                    \r\n      NUMBLK = LASBLK - IFRBLK + 1                                              \r\n      IF ( IDSN .EQ. IFILEX ) GO TO 20                                          \r\n      NUN    = NUN + 1                                                          \r\n      ITOTAL = ITOTAL + NUMBLK                                                  \r\n      GO TO 40                                                                  \r\n20    IPBLKS = NUMBLK                                                           \r\n      IF ( FCB( 10, IFILEX ) .EQ. 0 ) GO TO 40                                  \r\n      INDEX  = FCB( 10, IFILEX )                                                \r\n      LBLOCK = MEM( INDEX+3 )                                                   \r\n      IPBLKS = IPBLKS + LBLOCK                                                  \r\n40    IDSN   = IAND( MDSFCB( 3,IDSN ), MASKH2 )                                 \r\n      IF ( IDSN .NE. 0 ) GO TO 10                                               \r\n      LIM    = 2 * NFIST                                                        \r\n      DO 50 I = 1,LIM,2                                                         \r\n      IF ( NAME .NE. IFIST( I ) ) GO TO 50                                      \r\n      IF ( IFIST( I+1 ) .LE. 0 ) GO TO 70                                       \r\n      INDX   = IFIST( I+1 )                                                     \r\n      IFIAT( INDX+7 ) = IPBLKS * 2**16 + NUN * 2**8                             \r\n      IFIAT( INDX+8 ) = ITOTAL * 2**16                                          \r\n      GO TO 70                                                                  \r\n50    CONTINUE                                                                  \r\n70    CONTINUE                                                                  \r\n      MAXUSM = 0                                                                \r\n      MAXUSD = 0                                                                \r\nC ACCUMULATE TOTAL I/O USAGE STATISTICS                                         \r\n      DO 100 I = 1, 80                                                          \r\n      IF ( I .EQ. 7 ) GO TO 100\r\n      ITOTL1 = 0                                                                \r\n      ITOTL2 = 0                                                                \r\n      IF ( FCB( 4, I ) .EQ. 0 ) GO TO 100                                       \r\n      NEXBLK  = FCB( 10, I )                                                    \r\n      IF ( NEXBLK .NE. 0 ) ITOTL1 = MEM( NEXBLK+3 )                             \r\n      IF ( FCB( 5, I ) .NE. 0 )                                                 \r\n     &   ITOTL2 = FCB( 6, I ) - FCB( 5, I ) + 1                                 \r\n      MAXUSM = MAXUSM + ITOTL1                                                  \r\n      MAXUSD = MAXUSD + ITOTL2                                                  \r\n100   CONTINUE                                                                  \r\n      IF ( MAXBLK .LT. MAXUSM ) MAXBLK = MAXUSM                                 \r\n      IF ( MAXDSK .LT. MAXUSD ) MAXDSK = MAXUSD                                 \r\n      RETURN                                                                    \r\n      END                                                                     \r\n"
  },
  {
    "path": "mds/dszbkk.f",
    "content": "        SUBROUTINE DSZBKK ( BLOCK, A )                                          \r\n        INTEGER BLOCK(15), A(4)                                                 \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        ITYPIN = BLOCK( 13 )                                                    \r\n        NWORDS = NWRDEL( ITYPIN )                                               \r\n        IF ( BLOCK( 2 ) .GE. 3 ) GO TO 5                                        \r\n        INCCNT = 1                                                              \r\n        GO TO 8                                                                 \r\n5       INCCNT = 2                                                              \r\n8       CONTINUE                                                                \r\n        DO 10 K = 1, NWORDS                                                     \r\n        IF ( A( K ) .NE. 0 ) GO TO 20                                           \r\n10      CONTINUE                                                                \r\n        GO TO 7000                                                              \r\n20      IF ( BLOCK( 4 ) .EQ. 0 ) GO TO 35                                       \r\n        NEXROW = BLOCK( 4 ) + BLOCK( 7 )                                        \r\n        ICROW  = BLOCK( 15 )                                                    \r\n        IF ( ICROW .GE. NEXROW ) GO TO 30                                       \r\n        CALL DSMSG1( BLOCK )                                                    \r\n        CALL DSMSG( 119 )                                                       \r\n30      IF ( ICROW .EQ. NEXROW ) GO TO 40                                       \r\n        CALL ENDPUT( BLOCK )                                                    \r\n        CALL PUTSTR( BLOCK )                                                    \r\n        BLOCK( 7 ) = 0                                                          \r\n35      ICROW = BLOCK( 15 )                                                     \r\n        BLOCK( 4 ) = ICROW                                                      \r\n40      INDEX  = ( BLOCK( 5 ) - 1  ) * BLOCK( 14 ) + 1                          \r\n        CALL DSUPKC ( ITYPIN, BLOCK( 2 ), A, IBASE( INDEX ) )                   \r\n        BLOCK( 5 ) = BLOCK( 5 ) + INCCNT                                        \r\n        BLOCK( 7 ) = BLOCK( 7 ) + 1                                             \r\n        BLOCK(10 ) = BLOCK(10 ) + BLOCK( 11 )                                   \r\n        IF ( BLOCK( 6 ) .GT. BLOCK( 7 ) ) GO TO 7000                            \r\n        CALL ENDPUT( BLOCK )                                                    \r\n        CALL PUTSTR( BLOCK )                                                    \r\n        BLOCK( 4 ) = 0                                                          \r\n        BLOCK( 7 ) = 0                                                          \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/dummy.f",
    "content": "      SUBROUTINE DUMMY        \r\nC\r\nC     NOTE:\r\nC     THIS DUMMY.MIS ROUTINE CONTAINS 4 MACHINE VERSIONS (IBM,CDC,VAX,\r\nC     AND UNIVAC). MOVE THIS SUBROUTINE TO THE MDS GROUP AND\r\nC     REPLACE ALL THE 'C+' BY 2 SPACES IF MACHINE IS IBM, OR\r\nC     REPLACE ALL THE 'C-' BY 2 SPACES IF MACHINE IS CDC, OR\r\nC     REPLACE ALL THE 'C=' BY 2 SPACES IF MACHINE IS VAX, AND UNIX, OR\r\nC     REPLACE ALL THE 'C*' BY 2 SPACES IF MACHINE IS UNIVAC\r\nC     REPLACE ALL THE 'C.' BY 2 SPACES IF MACHINE TYPE IS 1, AND 11-20 \r\nC        \r\nC ****        \r\nC     IBM VERSION        \r\nC        \r\nC     THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES        \r\nC     USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN        \r\nC     VARIOUS NASTRAN LINKS        \r\nC        \r\nC     THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET        \r\nC     WRITTEN        \r\nC        \r\nC     THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT        \r\nC     SECTION (MDS)        \r\nC ****        \r\nC        \r\nC+    DIMENSION       N(1)        \r\nC+    CHARACTER*8     NAME        \r\nC        \r\nC+    COMMON /MACHIN/ MACH        \r\nC+    COMMON /SYSTEM/ ISYSBF, NOUT        \r\nC        \r\nC+    IF (MACH .EQ. 2) GO TO 250        \r\nC+    WRITE  (NOUT,20) MACH\r\nC+ 20 FORMAT (/,' MACH =',I7)\r\nC+    NAME = 'DUMMY'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN UNIVAC MACHINE        \r\nC ****        \r\nC        \r\nC        \r\nC+    ENTRY NTRAN (I,J,K)        \r\nC+    NAME = 'NTRAN'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY CONTIN        \r\nC+    NAME = 'CONTIN'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY FACIL (I,J)        \r\nC+    NAME = 'FACIL'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY FACSF (I)        \r\nC+    NAME = 'FACSF'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY UNVOPN (I)        \r\nC+    NAME = 'UNVOPN'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY UNVCLS (I)        \r\nC+    NAME = 'UNVCLS'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY ADDCRD (I,J)        \r\nC+    NAME = 'ADDCRD'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY UNIVAC AND IBM        \r\nC ****        \r\nC        \r\nC     ENTRY RETURN        \r\nC     GO TO 250        \r\nC        \r\nC+    ENTRY MSGUNI        \r\nC+    IF (MACH .EQ. 2) GO TO 250        \r\nC+    NAME = 'MSGUNI'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY XEOT (I,J,K,L)        \r\nC+    IF (MACH .EQ. 2) GO TO 250        \r\nC+    NAME = 'XEOT'        \r\nC+    GO TO 100        \r\nC        \r\nC     ENTRY TPSWIT (I,J,K,L)        \r\nC     NAME = 'TPSWIT'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN IBM MACHINE        \r\nC ****        \r\nC        \r\nC     ENTRY UMFTRN (I)        \r\nC     NAME = 'UMFTRN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY TAPSWI (I,J,K,L)        \r\nC     NAME = 'TAPSWI'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY SOFIOI        \r\nC     NAME = 'SOFIOI'        \r\nC     GO TO 100        \r\nC\r\nC     ENTRY SEARCH (I)\r\nC     NAME = 'SEARCH'\r\nC     GO TO 100\r\nC        \r\nC ... NEXT THREE ARE SYSTEM ROUTINES THAT OPEN FILE DYNAMICALLY WITHOUT        \r\nC     THE USE OF JCL. THESE ROUTINES ARE COMMONLY 'LOCAL INSTALLED'.        \r\nC        \r\nC     IQADDN CHECKS WHETHER A FILE EXISTS OR NOT        \r\nC     QQDCBF BUILDS AN ATTRIBUTE LIST BY DDNAME        \r\nC     QQGETF ALLOCATES FILE IN TSO OR BATCH        \r\nC        \r\nC     ENTRY IQZDDN (I)        \r\nC     NAME = 'IQZDDN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY QQDCBF (I,J,K,L,M,N)        \r\nC     NAME = 'QQDCBF'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY QQGETF (I,J,K)        \r\nC     NAME = 'QQGETF'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINE USED ONLY BY IBM AND VAX        \r\nC ****        \r\nC        \r\nC     ENTRY SOFIOF        \r\nC     NAME = 'SOFIOF'        \r\nC     GO TO 100        \r\nC\r\nC     THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS   \r\nC                                           (REAL*16)\r\nC     ENTRY QABS (I)                                         \r\nC     NAME = 'QABS'                                        \r\nC     GO TO 100                                                    \r\nC\r\nC     ENTRY SNGLQ (I)                                      \r\nC     NAME = 'SNGLQ'\r\nC     GO TO 100                                                    \r\nC\r\nC     ENTRY DBLEQ (I) \r\nC     NAME = 'DBLEQ'\r\nC     GO TO 100                                                    \r\nC\r\nC     ENTRY QSQRT (I)                                         \r\nC     NAME = 'QSQRT'\r\nC     GO TO 100                                                    \r\nC\r\nC     ENTRY QLOG (I)                                         \r\nC     NAME = 'QLOG'\r\nC     GO TO 100                                                    \r\nC\r\nC     ENTRY QEXTD (I)                                      \r\nC     NAME = 'QEXTD'\r\nC     GO TO 100                                                    \r\nC\r\nC ****                                                             \r\nC     ROUTINE USED BY UNIVAC AND VAX        \r\nC ****        \r\nC        \r\nC+    ENTRY DEFCOR        \r\nC+    NAME = 'DEFCOR'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY ALL MACHINES, EXCEPT VAX        \r\nC ****        \r\nC        \r\nC     ENTRY GPERR        \r\nC     NAME = 'GPERR'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY PDUMP        \r\nC     GO TO 250        \r\nC        \r\nC     ENTRY MPY1        \r\nC     NAME = 'MPY1'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2NT        \r\nC     NAME = 'MPY2NT'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2T        \r\nC     NAME = 'MPY2T'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN CDC MACHINE        \r\nC ****        \r\nC        \r\nC+    ENTRY LINK (I,J,K)        \r\nC+    NAME = 'LINK'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY REMARK (I)        \r\nC+    NAME = 'REMARK'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY CDCBUG (I,J,K,L)        \r\nC+    NAME = 'CDCBUG'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY CDCOPN (I)        \r\nC+    NAME = 'CDCOPN'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY CDCCLS (I)        \r\nC+    NAME = 'CDCCLS'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY CDCKSZ (I)        \r\nC+    NAME = 'CDCKSZ'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY PF (I,J,K)        \r\nC+    NAME = 'PF'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY ISWAP (I)        \r\nC+    NAME = 'ISWAP'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN VAX MACHINE        \r\nC ****        \r\nC        \r\nC+    ENTRY VAXEND        \r\nC+    NAME = 'VAXEND'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY VAXERR (L)        \r\nC+    WRITE (NOUT,50) L        \r\nC+ 50 FORMAT (/,' *** GINO ERROR AT LOC',I5)        \r\nC+    GO TO 220        \r\nC        \r\nC+    ENTRY VAXSCH        \r\nC+    NAME = 'VAXSCH'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY VAXBRK        \r\nC+    NAME = 'VAXBRK'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY MPY1V (I,J,K)        \r\nC+    NAME = 'MPY1V'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY MPY2NV (I,J,K)        \r\nC+    NAME = 'MPY2NV'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY MPY2TV (I,J,K)        \r\nC+    NAME = 'MPY2TV'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY        \r\nC     ARE STILL CALLED BY NASTRAN        \r\nC ****        \r\nC        \r\nC+    ENTRY UNLOAD (I)        \r\nC     CALLED BY INPTT1        \r\nC+    GO TO 250        \r\nC        \r\nC ****        \r\nC     THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN        \r\nC ****        \r\nC        \r\nC+    ENTRY JIDINT (I)        \r\nC+    NAME = 'JIDINT'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY OPMESG        \r\nC+    NAME = 'OPMESG'        \r\nC+    GO TO 100        \r\nC        \r\nC     ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI        \r\nC     ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE        \r\nC        \r\nC+    ENTRY SEMTRN        \r\nC+    NAME = 'SEMTRN'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES        \r\nC ****        \r\nC        \r\nC+    ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O)        \r\nC+    NAME = 'PDUMI'        \r\nC+    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES        \r\nC ****        \r\nC        \r\nC+    ENTRY PLBAR1 (I,J)        \r\nC+    NAME = 'PLBAR1'        \r\nC+    GO TO 100        \r\nC      \r\nC+    ENTRY PLOADX        \r\nC+    NAME = 'PLOADX'        \r\nC+    GO TO 100        \r\nC        \r\nC+    ENTRY ERRTRC (NAM)        \r\nC     ==================        \r\nC     ERROR TRACEBACK        \r\nC        \r\nC+    GO TO 220        \r\nC        \r\nC+100 WRITE  (NOUT,150) NAME        \r\nC+150 FORMAT ('0*** SYSTEM FATAL ERROR  ---  JOB TERMINATED',        \r\nC+   1        ' DUE TO CALL TO DUMMY SUBROUTINE.  ENTRY NAME IS ', A8)        \r\nC+    GO TO 220                                                \r\nC        \r\nC ****        \r\nC     TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK        \r\nC ****        \r\nC        \r\nC+220 WRITE  (NOUT,230)        \r\nC+230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE')        \r\nC+    I = 987654321        \r\nC+    N(I) = 1        \r\nC+250 RETURN        \r\nC\r\nC\r\nC     SUBROUTINE DUMMY        \r\nC        \r\nC ****        \r\nC     CDC VERSION        \r\nC        \r\nC     THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES        \r\nC     USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN        \r\nC     VARIOUS NASTRAN LINKS        \r\nC        \r\nC     THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET        \r\nC     WRITTEN        \r\nC        \r\nC     THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT        \r\nC     SECTION (MDS)        \r\nC ****        \r\nC        \r\nC-    CHARACTER*8     NAME        \r\nC        \r\nC-    COMMON /MACHIN/ MACH        \r\nC-    COMMON /SYSTEM/ ISYSBF, NOUT        \r\nC        \r\nC-    IF (MACH .EQ. 4) GO TO 250        \r\nC-    WRITE  (NOUT,20) MACH\r\nC- 20 FORMAT (/,' MACH =',I7)\r\nC-    NAME = 'DUMMY'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN UNIVAC MACHINE        \r\nC ****        \r\nC        \r\nC-    ENTRY NTRAN (I,J,K)        \r\nC-    NAME = 'NTRAN'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY CONTIN        \r\nC-    NAME = 'CONTIN'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY FACIL (I,J)        \r\nC-    NAME = 'FACIL'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY FACSF (I)        \r\nC-    NAME = 'FACSF'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY UNVOPN (I)        \r\nC-    NAME = 'UNVOPN'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY UNVCLS (I)        \r\nC-    NAME = 'UNVCLS'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY ADDCRD (I,J)        \r\nC-    NAME = 'ADDCRD'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY UNIVAC AND IBM        \r\nC ****        \r\nC        \r\nC-    ENTRY RETURN        \r\nC-    GO TO 250        \r\nC        \r\nC-    ENTRY MSGUNI        \r\nC-    IF (MACH .EQ. 2) GO TO 250        \r\nC-    NAME = 'MSGUNI'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY XEOT (I,J,K,L)        \r\nC-    IF (MACH .EQ. 2) GO TO 250        \r\nC-    NAME = 'XEOT'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY TPSWIT (I,J,K,L)        \r\nC-    NAME = 'TPSWIT'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN IBM MACHINE        \r\nC ****        \r\nC        \r\nC-    ENTRY UMFTRN (I)        \r\nC-    NAME = 'UMFTRN'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY TAPWSI (I,J,K,L)        \r\nC-    NAME = 'TAPSWI'        \r\nC-    GO TO 100        \r\nC\r\nC-    ENTRY SEARCH (I)\r\nC-    NAME = 'SEARCH'\r\nC-    GO TO 100\r\nC        \r\nC-    ENTRY SOFIOI        \r\nC-    NAME = 'SOFIOI'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY IQZDDN (I)        \r\nC-    NAME = 'IQZDDN'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY QQDCBF (I,J,K,L,M,N)        \r\nC-    NAME = 'QQDCBF'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY QQGETF (I,J,K)        \r\nC-    NAME = 'QQGETF'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINE USED ONLY BY IBM AND VAX        \r\nC ****        \r\nC        \r\nC-    ENTRY SOFIOF        \r\nC-    NAME = 'SOFIOF'        \r\nC-    GO TO 100        \r\nC        \r\nC     THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS       \r\nC                                           (REAL*16)\r\nC-    ENTRY QABS (I)                                        \r\nC-    NAME = 'QABS'\r\nC-    GO TO 100                                                        \r\nC\r\nC-    ENTRY SNGLQ (I)                                        \r\nC-    NAME = 'SNGLQ'\r\nC-    GO TO 100                                                        \r\nC\r\nC-    ENTRY DBLEQ (I) \r\nC-    NAME = 'DBLEQ'\r\nC-    GO TO 100                                                        \r\nC\r\nC-    ENTRY QSQRT (I)                                       \r\nC-    NAME = 'QSQRT'\r\nC-    GO TO 100                                                        \r\nC\r\nC-    ENTRY QLOG (I)                                      \r\nC-    NAME = 'QLOG'\r\nC-    GO TO 100                                                    \r\nC\r\nC-    ENTRY QEXTD (I)                                      \r\nC-    NAME = 'QEXTD'\r\nC-    GO TO 100                                                    \r\nC\r\nC ****                                                                 \r\nC     ROUTINE USED BY UNIVAC AND VAX        \r\nC ****        \r\nC        \r\nC-    ENTRY DEFCOR        \r\nC-    NAME = 'DEFCOR'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USEDS BY ALL MACHINES, EXCEPT VAX        \r\nC ****        \r\nC        \r\nC     ENTRY GPERR (I,J)        \r\nC     NAME = 'GPERR'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY PDUMP        \r\nC     NAME = 'PDUMP'        \r\nC     GO TO 250        \r\nC        \r\nC     ENTRY MPY1        \r\nC     NAME = 'MPY1'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2NT        \r\nC     NAME = 'MPY2NT'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2T        \r\nC     NAME = 'MPY2T'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN CDC MACHINE        \r\nC ****        \r\nC        \r\nC     ENTRY LINK (I,J,K)        \r\nC     NAME = 'LINK'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY REMARK (I)        \r\nC     NAME = 'REMARK'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY CDCBUG (I,J,K,L)        \r\nC     NAME = 'CDCBUG'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY CDCOPN (I)        \r\nC     NAME = 'CDCOPN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY CDCCLS (I)        \r\nC     NAME = 'CDCCLS'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY PF (I,J,K)        \r\nC     NAME = 'PF'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY ISWAP (I)        \r\nC     NAME = 'ISWAP'        \r\nC     GO TO 100        \r\nC        \r\nC-    ENTRY CDCKSZ (I)        \r\nC-    ENCODE (20,30,A) I        \r\nC- 30 FORMAT ('OPEN CORE =',I7,2X)        \r\nC-    CALL REMARK (A)        \r\nC-    GO TO 250        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN VAX MACHINE        \r\nC ****        \r\nC        \r\nC-    ENTRY VAXEND        \r\nC-    NAME = 'VAXEND'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY VAXERR (L)        \r\nC-    WRITE  (NOUT,50) L        \r\nC- 50 FORMAT (/,' *** GINO ERROR AT LOC',I5)        \r\nC-    GO TO 220        \r\nC        \r\nC-    ENTRY VAXSCH        \r\nC-    NAME = 'VAXSCH'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY VAXBRK        \r\nC-    NAME = 'VAXBRK'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY MPY1V (I,J,K)        \r\nC-    NAME = 'MPY1V'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY MPY2NV (I,J,K)        \r\nC-    NAME = 'MPY2NV'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY MPY2TV (I,J,K)        \r\nC-    NAME = 'MPY2TV'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY        \r\nC     ARE STILL CALLED BY NASTRAN        \r\nC ****        \r\nC        \r\nC-    ENTRY UNLOAD (I)        \r\nC     CALLED BY INPTT1        \r\nC-    GO TO 250        \r\nC        \r\nC ****        \r\nC     THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN        \r\nC ****        \r\nC        \r\nC-    ENTRY JIDINT (I)        \r\nC-    NAME = 'JIDINT'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY OPMESG        \r\nC-    NAME = 'OPMESG'        \r\nC-    GO TO 100        \r\nC        \r\nC     ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI        \r\nC     ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE        \r\nC        \r\nC-    ENTRY SEMTRN        \r\nC-    NAME = 'SEMTRN'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES        \r\nC ****        \r\nC        \r\nC-    ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O)        \r\nC-    NAME = 'PDUMI'        \r\nC-    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES        \r\nC ****        \r\nC        \r\nC-    ENTRY PLBAR1 (I,J)        \r\nC-    NAME = 'PLBAR1'        \r\nC-    GO TO 100        \r\nC      \r\nC-    ENTRY PLOADX        \r\nC-    NAME = 'PLOADX'        \r\nC-    GO TO 100        \r\nC        \r\nC-    ENTRY ERRTRC (NAM)        \r\nC     ==================        \r\nC     ERROR TRACEBACK        \r\nC        \r\nC-    GO TO 220        \r\nC        \r\nC-100 WRITE  (NOUT,150) NAME        \r\nC-150 FORMAT ('0*** SYSTEM FATAL ERROR  ---  JOB TERMINATED',        \r\nC-   1        ' DUE TO CALL TO DUMMY SUBROUTINE.  ENTRY NAME IS ', A8)        \r\nC-    GO TO 220                                           \r\nC        \r\nC ****        \r\nC     TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK        \r\nC ****        \r\nC        \r\nC-220 WRITE  (NOUT,230)        \r\nC-230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE')        \r\nC-    I =-3        \r\nC-    READ (I) J,K,M,N,O        \r\nC-250 RETURN        \r\nC\r\nC\r\nC     SUBROUTINE DUMMY        \r\nC        \r\nC ****        \r\nC     VAX VERSION  (MODIFIED FOR DEC/ULTRIX)      \r\nC        \r\nC     THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES        \r\nC     USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN        \r\nC     VARIOUS NASTRAN LINKS        \r\nC        \r\nC     THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET        \r\nC     WRITTEN        \r\nC        \r\nC     THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT        \r\nC     SECTION (MDS)        \r\nC ****        \r\nC        \r\n      DIMENSION       N(1)        \r\n      CHARACTER*8     NAME        \r\nC        \r\n      COMMON /MACHIN/ MACH        \r\n      COMMON /SYSTEM/ ISYSBF, NOUT        \r\nC        \r\n      IF (MACH .EQ. 6) GO TO 250        \r\n      WRITE  (NOUT,20) MACH\r\n   20 FORMAT (/,' MACH =',I7)\r\n      NAME = 'DUMMY'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN UNIVAC MACHINE        \r\nC ****        \r\nC        \r\n      ENTRY ZCORSZ (I)\r\n      NAME = 'ZCORSZ'\r\n      GO TO 100\r\nC        \r\n      ENTRY MVBITS (I1,I2,I3,I4,I5)\r\n      NAME = 'MVBITS'\r\n      GO TO 100\r\nC\r\n      ENTRY CODKEY (CODE,KEY)        \r\n      NAME = 'CODKEY'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY KCONEQ       \r\n      NAME = 'KCONEQ'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY FNXTVQ (V1,V2,V3,V4,V5,ZB,I)        \r\n      NAME = 'FNXTVQ'        \r\n      GO TO 100        \r\nC      \r\n      ENTRY NTRAN (I,J,K)        \r\n      NAME = 'NTRAN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY CONTIN        \r\n      NAME = 'CONTIN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY FACIL (I,J)        \r\n      NAME = 'FACIL'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY FACSF (I)        \r\n      NAME = 'FACSF'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY UNVOPN (I)        \r\n      NAME = 'UNVOPN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY UNVCLS (I)        \r\n      NAME = 'UNVCLS'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY ADDCRD (I,J)        \r\n      NAME = 'ADDCRD'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY UNIVAC AND IBM        \r\nC ****        \r\nC        \r\n      ENTRY RETURN        \r\n      GO TO 250        \r\nC        \r\n      ENTRY MSGUNI        \r\n      IF (MACH .EQ. 2) GO TO 250        \r\n      NAME = 'MSGUNI'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY XEOT (I,J,K,L)        \r\n      IF (MACH .EQ. 2) GO TO 250        \r\n      NAME = 'XEOT'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY TPSWIT (I,J,K,L)        \r\n      NAME = 'TPSWIT'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN IBM MACHINE        \r\nC ****        \r\nC        \r\n      ENTRY UMFTRN (I)        \r\n      NAME = 'UMFTRN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY TAPSWI (I,J,K,L)        \r\n      NAME = 'TAPSWI'        \r\n      GO TO 100        \r\nC\r\n      ENTRY SEARCH (I)\r\n      NAME = 'SEARCH'\r\n      GO TO 100\r\nC        \r\n      ENTRY SOFIOI        \r\n      NAME = 'SOFIOI'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY IQZDDN (I)        \r\n      NAME = 'IQZDDN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY QQDCBF (I,J,K,L,M,N)        \r\n      NAME = 'QQDCBF'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY QQGETF (I,J,K)        \r\n      NAME = 'QQGETF'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINE USED ONLY BY IBM AND VAX        \r\nC ****        \r\nC        \r\nC     ENTRY SOFIOF        \r\nC     NAME = 'SOFIOF'        \r\nC     GO TO 100        \r\nC        \r\nC     THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS       \r\nC                                           (REAL*16)\r\n      ENTRY QABS (I)                                         \r\n      NAME = 'QABS'\r\n      GO TO 100                                                        \r\nC\r\n      ENTRY SNGLQ (I)                                    \r\n      NAME = 'SNGLQ'\r\n      GO TO 100                                                        \r\nC\r\n      ENTRY DBLEQ (I)\r\n      NAME = 'DBLEQ'\r\n      GO TO 100                                                        \r\nC\r\n      ENTRY QSQRT (I)                                       \r\n      NAME = 'QSQRT'\r\n      GO TO 100                                                        \r\nC\r\n      ENTRY QLOG (I)                                       \r\n      NAME = 'QLOG'\r\n      GO TO 100                                                    \r\nC\r\n      ENTRY QEXTD (I)                                       \r\n      NAME = 'QEXTD'\r\n      GO TO 100                                                    \r\nC\r\nC ****                                                                 \r\nC     ROUTINE USED BY UNIVAC AND VAX        \r\nC ****        \r\nC        \r\nC     ENTRY DEFCOR        \r\nC     NAME = 'DEFCOR'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY ALL MACHINES, EXCEPT VAX        \r\nC ****        \r\nC        \r\n      ENTRY GPERR (I,J)        \r\n      NAME = 'GPERR'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY PDUMP        \r\n      GO TO 250        \r\nC        \r\n      ENTRY MPY1        \r\n      NAME = 'MPY1'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY MPY2NT        \r\n      NAME = 'MPY2NT'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY MPY2T        \r\n      NAME = 'MPY2T'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN CDC MACHINE        \r\nC ****        \r\nC        \r\n      ENTRY LINK (I,J,K)        \r\n      NAME = 'LINK'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY REMARK (I)        \r\n      NAME = 'REMARK'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY CDCBUG (I,J,K,L)        \r\n      NAME = 'CDCBUG'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY CDCOPN (I)        \r\n      NAME = 'CDCOPN'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY CDCCLS (I)        \r\n      NAME = 'CDCCLS'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY CDCKSZ (I)        \r\n      NAME = 'CDCKSZ'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY PF (I,J,K)        \r\n      NAME = 'PF'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY ISWAP (I)        \r\n      NAME = 'ISWAP'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN VAX MACHINE        \r\nC ****        \r\nC        \r\n      ENTRY VAXEND        \r\n      NAME = 'VAXEND'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY VAXERR (L)        \r\n      WRITE  (NOUT,50) L        \r\n   50 FORMAT (/,' *** GINO ERROR AT LOC',I5)        \r\n      GO TO 220        \r\nC        \r\nC     ENTRY VAXSCH        \r\nC     NAME = 'VAXSCH'        \r\nC     GO TO 100        \r\nC        \r\n      ENTRY VAXBRK        \r\n      NAME = 'VAXBRK'        \r\n      GO TO 100        \r\nC        \r\nC     ENTRY MPY1V (I,J,K)        \r\nC     NAME = 'MPY1V'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2NV (I,J,K)        \r\nC     NAME = 'MPY2NV'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2TV (I,J,K)        \r\nC     NAME = 'MPY2TV'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY        \r\nC     ARE STILL CALLED BY NASTRAN        \r\nC ****        \r\nC        \r\n      ENTRY UNLOAD (I)        \r\nC     CALLED BY INPTT1        \r\n      GO TO 250        \r\nC        \r\nC ****        \r\nC     THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN        \r\nC ****        \r\nC        \r\n      ENTRY JIDINT (I)        \r\n      NAME = 'JIDINT'        \r\n      GO TO 100        \r\nC        \r\n      ENTRY OPMESG        \r\n      NAME = 'OPMESG'        \r\n      GO TO 100        \r\nC        \r\nC     ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI        \r\nC     ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE        \r\nC        \r\n      ENTRY SEMTRN        \r\n      NAME = 'SEMTRN'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES        \r\nC ****        \r\nC        \r\n      ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O)        \r\n      NAME = 'PDUMI'        \r\n      GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES        \r\nC ****        \r\nC        \r\n      ENTRY PLBAR1 (I,J)        \r\n      NAME = 'PLBAR1'        \r\n      GO TO 100        \r\nC      \r\n      ENTRY PLOADX        \r\n      NAME = 'PLOADX'        \r\n      GO TO 100        \r\nC        \r\nCWKBD ENTRY ERRTRC (NAM)        \r\nC     ==================        \r\nC     ERROR TRACEBACK        \r\nC        \r\nCWKBD GO TO 220        \r\nC        \r\n  100 WRITE  (NOUT,150) NAME        \r\n  150 FORMAT ('0*** SYSTEM FATAL ERROR  ---  JOB TERMINATED',        \r\n     1        ' DUE TO CALL TO DUMMY SUBROUTINE.  ENTRY NAME IS ', A8)        \r\n      GO TO 220                                            \r\nC        \r\nC ****        \r\nC     TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK (VAX ONLY, NOT UNIX) \r\nC ****        \r\nC        \r\n  220 IF (MACH .NE. 5) GO TO 240                             \r\n      WRITE  (NOUT,230)        \r\n  230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE')        \r\n      I = 987654321        \r\n      N(I) = 0        \r\n  240 STOP                                             \r\n  250 RETURN        \r\nC\r\nC\r\nC     SUBROUTINE DUMMY        \r\nC        \r\nC ****        \r\nC     UNIVAC  VERSION        \r\nC        \r\nC     THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES        \r\nC     USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN        \r\nC     VARIOUS NASTRAN LINKS        \r\nC        \r\nC     THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET        \r\nC     WRITTEN        \r\nC        \r\nC     THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT        \r\nC     SECTION (MDS)        \r\nC ****        \r\nC        \r\nC*    CHARACTER*8     NAME        \r\nC        \r\nC*    COMMON /MACHIN/ MACH        \r\nC*    COMMON /SYSTEM/ ISYSBF, NOUT        \r\nC        \r\nC*    IF (MACH .EQ. 3) GO TO 250        \r\nC*    WRITE  (NOUT,20) MACH\r\nC* 20 FORMAT (/,' MACH =',I7)\r\nC*    NAME = 'DUMMY'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN UNIVAC MACHINE        \r\nC ****        \r\nC        \r\nC     ENTRY NTRAN (I,J,K)        \r\nC     NAME = 'NTRAN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY CONTIN        \r\nC     NAME = 'CONTIN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY FACIL (I,J)        \r\nC     NAME = 'FACIL'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY FACSF (I)        \r\nC     NAME = 'FACSF'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY UNVOPN (I)        \r\nC     NAME = 'UNVOPN'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY UNVCLS (I)        \r\nC     NAME = 'UNVCLS'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY ADDCRD (I,J)        \r\nC     NAME = 'ADDCRD'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY UNIVAC AND IBM        \r\nC ****        \r\nC        \r\nC*    ENTRY RETURN        \r\nC*    GO TO 250        \r\nC        \r\nC     ENTRY MSGUNI        \r\nC     IF (MACH .EQ. 2) GO TO 250        \r\nC     NAME = 'MSGUNI'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY XEOT (I,J,K,L)        \r\nC     IF (MACH .EQ. 2) GO TO 250        \r\nC     NAME = 'XEOT'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY TPSWIT (I,J,K,L)        \r\nC     NAME = 'TPSWIT'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN IBM MACHINE        \r\nC ****        \r\nC        \r\nC*    ENTRY UMFTRN (I)        \r\nC*    NAME = 'UMFTRN'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY TAPSWI (I,J,K,L)        \r\nC*    NAME = 'TAPWSI'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY SEARCH (I)\r\nC*    NAME = 'SEARCH'\r\nC*    GO TO 100\r\nC\r\nC*    ENTRY SOFIOI        \r\nC*    NAME = 'SOFIOI'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY IQZDDN (I)        \r\nC*    NAME = 'IQZDDN'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY QQDCBF (I,J,K,L,M,N)        \r\nC*    NAME = 'QQDCBF'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY QQGETF (I,J,K)        \r\nC*    NAME = 'QQGETF'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINE USED ONLY BY IBM AND VAX        \r\nC ****        \r\nC        \r\nC*    ENTRY SOFIOF        \r\nC*    NAME = 'SOFIOF'        \r\nC*    GO TO 100        \r\nC        \r\nC     THE FOLLOWING THREE ARE FUNCTIONS FOR QUAD WORD OPERATIONS       \r\nC                                           (REAL*16)\r\nC*    ENTRY QABS (I)                                        \r\nC*    NAME = 'QABS'\r\nC*    GO TO 100                                                        \r\nC\r\nC*    ENTRY SNGLQ (I)                                    \r\nC*    NAME = 'SNGLQ'\r\nC*    GO TO 100                                                        \r\nC\r\nC*    ENTRY DBLEQ (I) \r\nC*    NAME = 'DBLEQ'\r\nC*    GO TO 100                                                        \r\nC\r\nC*    ENTRY QSQRT (I)                                 \r\nC*    NAME = 'QSQRT'\r\nC*    GO TO 100                                                        \r\nC\r\nC*    ENTRY QLOG (I)                                 \r\nC*    NAME = 'QLOG'\r\nC*    GO TO 100                                                    \r\nC\r\nC*    ENTRY QEXTD (I)                                   \r\nC*    NAME = 'QEXTD'\r\nC*    GO TO 100                                                    \r\nC\r\nC ****                                                                 \r\nC     ROUTINE USED BY UNIVAC AND VAX        \r\nC ****        \r\nC        \r\nC     ENTRY DEFCOR        \r\nC     NAME = 'DEFCOR'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED BY ALL MACHINES, EXCEPT VAX        \r\nC ****        \r\nC        \r\nC     ENTRY GPERR (I,J)        \r\nC     NAME = 'GPERR'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY PDUMP        \r\nC     GO TO 250        \r\nC        \r\nC     ENTRY MPY1        \r\nC     NAME = 'MPY1'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2NT        \r\nC     NAME = 'MPY2NT'        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY MPY2T        \r\nC     NAME = 'MPY2T'        \r\nC     GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN CDC MACHINE        \r\nC ****        \r\nC        \r\nC*    ENTRY LINK (I,J,K)        \r\nC*    NAME = 'LINK'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY REMARK (I)        \r\nC*    NAME = 'REMARK'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY CDCBUG (I,J,K,L)        \r\nC*    NAME = 'CDCBUG'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY CDCOPN (I)        \r\nC*    NAME = 'CDCOPN'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY CDCCLS (I)        \r\nC*    NAME = 'CDCCLS'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY CDCKSZ (I)        \r\nC*    NAME = 'CDCKSZ'        \r\nC*    GO TO 100        \r\nC       \r\nC*    ENTRY PF (I,J,K)        \r\nC*    NAME = 'PF'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY ISWAP (I)        \r\nC*    NAME = 'ISWAP'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES USED ONLY IN VAX MACHINE        \r\nC ****        \r\nC        \r\nC*    ENTRY VAXEND        \r\nC*    NAME = 'VAXEND'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY VAXERR (L)        \r\nC*    WRITE  (NOUT,50) L        \r\nC* 50 FORMAT (/,' *** GINO ERROR AT LOC',I5)        \r\nC*    GO TO 220        \r\nC        \r\nC*    ENTRY VAXSCH        \r\nC*    NAME = 'VAXSCH'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY VAXBRK        \r\nC*    NAME = 'VAXBRK'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY MPY1V (I,J,K)        \r\nC*    NAME = 'MPY1V'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY MPY2NV (I,J,K)        \r\nC*    NAME = 'MPY2NV'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY MPY2TV (I,J,K)        \r\nC*    NAME = 'MPY2TV'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     ROUTINES THAT PERFORM NO PARTICULAR FUNCTIONS, BUT THEY        \r\nC     ARE STILL CALLED BY NASTRAN        \r\nC ****        \r\nC        \r\nC*    ENTRY UNLOAD (I)        \r\nC     CALLED BY INPTT1        \r\nC*    GO TO 250        \r\nC        \r\nC ****        \r\nC     THE FOLLOWING ROUTINES SEEM TO BE NO LONGER USED IN NASTRAN        \r\nC ****        \r\nC        \r\nC*    ENTRY JIDINT (I)        \r\nC*    NAME = 'JIDINT'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY OPMESG        \r\nC*    NAME = 'OPMESG'        \r\nC*    GO TO 100        \r\nC        \r\nC     ENTRY PDUM1,PDUM2,...,PDUM9 HAD BEEN REPLACED BY PDUMI        \r\nC     ENTRY QDMM3, SQDM31, AND SQDM32 ARE NOW OBSOLETE        \r\nC        \r\nC*    ENTRY SEMTRN        \r\nC*    NAME = 'SEMTRN'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 2, ALL MACHINES        \r\nC ****        \r\nC        \r\nC*    ENTRY PDUMI (*,*,*,I,J,K,L,M,N,O)        \r\nC*    NAME = 'PDUMI'        \r\nC*    GO TO 100        \r\nC        \r\nC ****        \r\nC     DUMMY ROUTINES REFERENCED ONLY IN LINK 5, ALL MACHINES        \r\nC ****        \r\nC        \r\nC*    ENTRY PLBAR1 (I,J)        \r\nC*    NAME = 'PLBAR1'        \r\nC*    GO TO 100        \r\nC      \r\nC*    ENTRY PLOADX        \r\nC*    NAME = 'PLOADX'        \r\nC*    GO TO 100        \r\nC        \r\nC*    ENTRY ERRTRC (NAM)        \r\nC     ==================        \r\nC     ERROR TRACEBACK        \r\nC        \r\nC*    GO TO 220        \r\nC        \r\nC*100 WRITE  (NOUT,150) NAME        \r\nC*150 FORMAT ('0*** SYSTEM FATAL ERROR  ---  JOB TERMINATED',        \r\nC*   1        ' DUE TO CALL TO DUMMY SUBROUTINE.  ENTRY NAME IS ', A8)        \r\nC*    GO TO 220                                           \r\nC        \r\nC ****        \r\nC     TO FORCE A SYSTEM FATAL ERROR FOR TRACEBACK        \r\nC ****        \r\nC        \r\nC*220 WRITE  (NOUT,230)        \r\nC*230 FORMAT ('0*** ERROR TRACEBACK IN SYSTEM LOG FILE')        \r\nC*    X =-1.0        \r\nC*    X = SQRT(X)        \r\nC*250 RETURN        \r\nC\r\nC        \r\nC     SUBROUTINE DUMMY                           \r\nC        \r\nC ****        \r\nC     MACHINES 1, AND 6 THRU 20 VERSION         \r\nC        \r\nC     THIS SUBROUTINE PROVIDES ENTRIES FOR THE DUMMY ROUTINES        \r\nC     USED BY OTHER COMPUTER MACHINES, AND ARE REFERENCED IN        \r\nC     VARIOUS NASTRAN LINKS        \r\nC        \r\nC     THIS SUBROUTINE INCLUDES ALSO SOME DUMMY ROUTINES NOT YET        \r\nC     WRITTEN        \r\nC        \r\nC     THIS ROUTINE SHOULD BE MOVED TO NASTRAN MACHINE-DEPENDENT        \r\nC     SECTION (MDS)        \r\nC ****        \r\nC        \r\nC.    DIMENSION       N(1)        \r\nC.    CHARACTER*8     NAME        \r\nC        \r\nC.    COMMON /MACHIN/ MACH        \r\nC.    COMMON /SYSTEM/ ISYSBF, NOUT        \r\nC        \r\nC.    IF (MACH.EQ.1 .AND. MACH.GE.6) GO TO RETURN\r\nC.    WRITE  (NOUT,150) NAME,MACH \r\nC.150 FORMAT ('0*** SYSTEM FATAL ERROR  ---  JOB TERMINATED', /5X,\r\nC.   1       'SUBROUTINE DUMMY FOR MACHINE TYPE',I4,' IS NOT AVAILABLE')  \r\nC.    I = 987654321        \r\nC.    N(I) = 0        \r\nC.    STOP \r\nC\r\n      END        \r\n"
  },
  {
    "path": "mds/emgsoc.f",
    "content": "      SUBROUTINE EMGSOC (ICORE,NCORE,HEAT)        \r\nC        \r\nC     THIS .MDS VERSION IS USED ONLY IN THE VIRTUAL MACHINES (IBM, VAX, \r\nC     AND UNIX)        \r\nC     CDC & UNIVAC, NON-VIRTUAL MACHINES, SHOULD USE THE EMGSOC.MIS     \r\nC     VERSION        \r\nC        \r\nC     ICORE = RELATIVE ADDRESS OF FIRST WORD OF OPEN CORE.        \r\nC     NCORE = RELATIVE ADDRESS OF FINAL WORD OF OPEN CORE.        \r\nC        \r\nC     IFILE = GINO FILE WHOSE TRAILER BITS INDICATE ACTIVE COMMON GROUPS\r\nC        \r\nC     BOUNDARY ALIGNMENT IS ASSURED BY THE FACT THAT ALL COMMON BLOCKS  \r\nC     START AT AN ODD ADDRESS.        \r\nC        \r\n      COMMON /MACHIN/ MACH        \r\n      COMMON /ZZEMGX/ IXXX        \r\nC        \r\n      NCORE = KORSZ(IXXX)        \r\n      ICORE = 3        \r\n      IF (MACH.EQ.3 .OR. MACH.EQ.4) STOP ' EMGSOC'        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/endget.f",
    "content": "        SUBROUTINE ENDGET( BLOCK )                                              \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 )                                                     \r\n        NAME = BLOCK( 1 )                                                       \r\n        CALL DSGEFL                                                             \r\n        NWORDS = BLOCK( 11 )                                                    \r\n        NELM = IAND( IBASE( INDCBP-2 ), MASKH2 )                                \r\n        INDCBP = INDCBP + NELM*NWORDS + BLOCK(3)*2                              \r\n        CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/endgtb.f",
    "content": "        SUBROUTINE ENDGTB ( BLOCK )                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 )                                                     \r\n        NAME = BLOCK( 1)                                                        \r\n        CALL DSGEFL                                                             \r\n        ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n        IF ( ID .NE. IDSST ) CALL DSMSG ( 117 )                                 \r\n        LEN = IAND ( IBASE( INDCBP ), MASKH2 ) * BLOCK( 11 )                    \r\n        INDCBP = INDCBP - LEN - 2                                               \r\n        CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/endput.f",
    "content": "      SUBROUTINE ENDPUT ( BLOCK )                                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INTEGER BLOCK( 15 )                                                     \r\n      LIM = NBUFF - BLOCK( 3 )*2                                              \r\n      NAME = BLOCK( 1 )                                                       \r\n      CALL DSGEFL                                                             \r\n      IF ( BLOCK( 7 ) .LE. 0 ) GO TO 10                                       \r\n      IF ( BLOCK( 6 ) .GE. BLOCK( 7 ) ) GO TO 5                               \r\n      CALL DSMSG1( BLOCK )                                                    \r\n      CALL DSMSG ( 109 )                                                      \r\n5     IBASE( INDCBP+1 ) = IDSSH  + BLOCK(7)                                   \r\n      IBASE( INDCBP+2 ) = BLOCK(4)                                            \r\n      NWORDS = BLOCK( 11 )                                                    \r\n      INDCBP = INDCBP + ( BLOCK( 7 ) * NWORDS ) + 2                           \r\n      IF ( ( INDCBP-INDBAS ) .GT. LIM ) CALL DSMSG( 108 )                     \r\n      IF ( BLOCK( 3 ) .EQ. 0 ) GO TO 10                                       \r\n      IBASE( INDCBP+1 ) = IDSST + BLOCK( 7 )                                  \r\n      IBASE( INDCBP+2 ) = BLOCK(4) + BLOCK(7) - 1                             \r\n      INDCBP = INDCBP + 2                                                     \r\n10    IF ( BLOCK( 8 ) .NE. 1 ) GO TO 20                                       \r\n      IBASE( INDCBP+1 ) = IDSCT +  BLOCK(3)*MULQ3 + BLOCK(2)                  \r\n      IBASE( INDCBP+2 ) = BLOCK( 12 )                                         \r\n      IBASE( INDCBP+3 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 )                  \r\n      IBASE( INDCLR )   = IDSSB + BLOCK( 9 ) + INDCBP-INDCLR+2                \r\n      INDCBP = INDCBP + 4                                                     \r\n      INDCLR = INDCBP                                                         \r\n20    IF ( BLOCK( 6 ) .NE. BLOCK( 7 ) ) GO TO 50                              \r\n      IF ( BLOCK ( 8 ) .NE. 1 ) GO TO 30                                      \r\n      IBASE( INDCBP ) = IDSEB                                                 \r\n      GO TO 40                                                                \r\n30    IFLG = BLOCK( 9 )                                                       \r\n      IF ( IFLG .EQ. IDSX ) GO TO 45                                          \r\n      IFLG = IDSP                                                             \r\n      BLOCK( 9 ) = IDSX                                                       \r\n45    IBASE( INDCLR ) = IDSSB + IFLG + ( INDCBP-INDCLR )                      \r\n      IBASE( INDCBP + 1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 )                \r\n      IBASE( INDCBP + 2 ) = IDSEB                                             \r\n      INDCLR = INDCBP + 2                                                     \r\n      INDCBP = INDCLR                                                         \r\n40    CALL DSWRNB                                                             \r\nCWKBD  NCL93007 11/94  \r\nC  50 CALL DSSDCB\r\nCWKBNB NCL93007 11/94\r\nC ACCUMULATE THE TOTAL NUMBER OF TERMS AND STRINGS\r\n50    FCB( 16, IFILEX ) = FCB( 16, IFILEX ) + 1\r\n      FCB( 17, IFILEX ) = FCB( 17, IFILEX ) + BLOCK( 7 )\r\n      CALL DSSDCB                                                             \r\nCWKBNE NCL93007 11/94\r\n      RETURN                                                                  \r\n      END                                                                     \r\n"
  },
  {
    "path": "mds/eof.f",
    "content": "        SUBROUTINE EOF ( FILE )                                                 \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        INTEGER FILE                                                            \r\n        NAME   = FILE                                                           \r\n        IRETRN = 0                                                              \r\n        CALL DSGEFL                                                             \r\n        CALL DSEFWR                                                             \r\n        CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/errtrc.f",
    "content": "       SUBROUTINE ERRTRC ( NAME, IVAL )\r\n       CHARACTER *(*) NAME\r\n       COMMON / SYSTEM / ISYSBF, NOUT\r\n       WRITE ( NOUT, * ) ' ERRTRC CALLED'\r\n       WRITE ( NOUT, * ) ' NAME=',NAME\r\n       WRITE ( NOUT, * ) ' IVAL=',IVAL\r\n       RETURN\r\n       END\r\n"
  },
  {
    "path": "mds/exford.f",
    "content": "      SUBROUTINE EXFORD                                                         \r\n     &  ( IUN, IPREC, FORM, InDATA, NWDS )                                      \r\nC********************************************************************           \r\nC    EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS                              \r\nC        NH------       NENN.N       NDNN.N         NX                          \r\nC        NFNN.N         NINN         NGNN.N         NAN                         \r\nC        NPENN.N        NPFNN.N      NPN(----)                                  \r\nC        SPECIAL CHARACTERS:  /(),                                              \r\nC     ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN \"FORM\"                \r\nC     ICOL  = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE                 \r\nC     NCNT  = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE        \r\nC********************************************************************           \r\n      CHARACTER*1     FORM(1000)                                                \r\n      CHARACTER*1     SLASH , BLANK                                             \r\n      CHARACTER*1     LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10)                 \r\n      CHARACTER*1     H, E, D, X, F, I, G, A, P                                 \r\n      CHARACTER*2     PFACT                                                     \r\n      CHARACTER*4     CDATA(200)                                                \r\n      CHARACTER*132   LINE                                                      \r\n      CHARACTER*132   TFORM                                                     \r\n      INTEGER*4       IDATA(200)                                                \r\n      REAL*4          DATA(200)                                                 \r\n      REAL*8          DDATA(100)                                                \r\n      integer*4       indata(nwds)                                              \r\n      COMMON /SYSTEM/ ISYSBF, IWR                                               \r\n      equivalence     (idata, data, ddata, cdata )                              \r\n      DATA            H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/                    \r\n      DATA            I/'I'/, G/'G'/, A/'A'/, P/'P'/                            \r\n      DATA            LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/                    \r\n      DATA            COMMA  /','/, SLASH /'/'/, BLANK /' '/                    \r\n      DATA            NUMBER /'0','1','2','3','4','5','6','7','8','9'/          \r\n      if ( nwds .le. 200 ) go to 3                                              \r\n      print *,' word limit exceeded in exford-limit=200'                        \r\n      return                                                                    \r\n3     do 4 kb = 1, 200                                                          \r\n      idata(kb) = indata(kb)                                                    \r\n4     continue                                                                  \r\n      READ ( IUN, 900 ) LINE                                                    \r\n      ILOOP = 0                                                                 \r\n      ICHAR = 1                                                                 \r\n      NCNT  = 1                                                                 \r\n      ICOL  = 1                                                                 \r\n      PFACT = BLANK                                                             \r\n      ICYCLE= 0                                                                 \r\n5     IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75                                   \r\n      ICHAR = ICHAR + 1                                                         \r\n      IF ( ICHAR .LE. 1000 ) GO TO 5                                            \r\n      GO TO 7702                                                                \r\n70    IF ( ICHAR .GT. 1000 ) GO TO 7702                                         \r\n      IF ( NCNT  .GT. NWDS ) GO TO 1200                                         \r\n      IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75                                    \r\n      IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100                                   \r\n      IF ( FORM(ICHAR) .GE. NUMBER(1) .AND.                                     \r\n     &     FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200                              \r\n      IF ( FORM(ICHAR) .EQ. A ) GO TO 300                                       \r\n      IF ( FORM(ICHAR) .EQ. I ) GO TO 400                                       \r\n      IF ( FORM(ICHAR) .EQ. X ) GO TO 600                                       \r\n      IF ( FORM(ICHAR) .EQ. P ) GO TO 700                                       \r\n      IF ( FORM(ICHAR) .EQ. F ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. G ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. D ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. E ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000                                 \r\n      IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100                                 \r\n      IF ( FORM(ICHAR) .NE. COMMA  ) GO TO 7702                                 \r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK                                        \r\n75    ICHAR = ICHAR + 1                                                         \r\n      GO TO 70                                                                  \r\nC PROCESS SLASH                                                                 \r\n100   CONTINUE                                                                  \r\n      READ  ( IUN,900 ) LINE                                                    \r\n900   FORMAT(A132)                                                              \r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK                                        \r\n      ICOL = 1                                                                  \r\n      GO TO 75                                                                  \r\nC GET MULTIPLIER FOR FIELD CONVERSION                                           \r\n200   CALL FORNUM ( FORM, ICHAR, IMULT )                                        \r\n      GO TO 70                                                                  \r\nC PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD)                     \r\n300   ICHAR = ICHAR + 1                                                         \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 902 ) IMULT, IFIELD                                        \r\n902   FORMAT('(',I2,'A',I2,')')                                                 \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      READ( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND)                   \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT = 1                                                                 \r\n      GO TO 70                                                                  \r\nC PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD)                 \r\n400   ICHAR = ICHAR + 1                                                         \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 903 ) IMULT, IFIELD                                        \r\n903   FORMAT('(',I2,'I',I2,')')                                                 \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      READ( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND)                   \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 70                                                                  \r\nC PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT)                                     \r\n600   LAST   = ICOL + IMULT - 1                                                 \r\n      ICOL   = ICOL + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 75                                                                  \r\nC PROCESS P FACTOR FOR FLOATING FORMAT                                          \r\n700   WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR)                            \r\n904   FORMAT(132A1)                                                             \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      GO TO 75                                                                  \r\nC PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN)  WHERE                        \r\nC          (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC)                        \r\n800   ITYPE = ICHAR                                                             \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      ICHAR = ICHAR + 1                                                         \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n810   IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820                                \r\n      ICHAR = ICHAR + 1                                                         \r\n      GO TO 810                                                                 \r\n820   ICHAR = ICHAR + 1                                                         \r\n      CALL FORNUM ( FORM, ICHAR, IDEC )                                         \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC               \r\n906   FORMAT('(',A2,I2,A1,I2,'.',I2,')')                                        \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      IF ( IPREC .EQ. 2 )                                                       \r\n     &  READ( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND)                 \r\n      IF ( IPREC .NE. 2 )                                                       \r\n     &  READ( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND)                  \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 70                                                                  \r\nC PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP)             \r\nC IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP                           \r\n1000  ICYCLE = IMULT-1                                                          \r\n      ICSAVE = ICHAR+1                                                          \r\n      ILOOP  = 1                                                                \r\n      IMULT  = 1                                                                \r\n      GO TO 75                                                                  \r\nC PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT)                  \r\nC IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO                        \r\n1100  IF ( ICYCLE .GT. 0 ) GO TO 1110                                           \r\n      IF ( ILOOP  .NE. 0 ) GO TO 1120                                           \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\nC NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT                              \r\nC UNTIL LIST IS SATISFIED                                                       \r\n      READ( IUN,900 ) LINE                                                      \r\n      ICHAR  = 2                                                                \r\n      PFACT  = BLANK                                                            \r\n      ICOL   = 1                                                                \r\n      GO TO 70                                                                  \r\nC GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING           \r\nC OF THE GROUP                                                                  \r\n1110  ICYCLE = ICYCLE - 1                                                       \r\n      ICHAR  = ICSAVE                                                           \r\n      GO TO 70                                                                  \r\nC FINISHED WITH LOOP, CONTINUE WITH FORMAT                                      \r\n1120  ILOOP  = 0                                                                \r\n      ICYCLE = 0                                                                \r\n      GO TO 75                                                                  \r\n1200  CONTINUE                                                                  \r\n7000  CONTINUE                                                                  \r\n      RETURN                                                                    \r\n7702  WRITE( IWR, 9901 ) ICHAR, FORM                                            \r\n9901  FORMAT(///' SUBROUTINE EXFORD UNABLE TO DECIPHER THE FOLLOWING'           \r\n     & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:'         \r\n     & ,/,(1X,131A1))                                                           \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/exfort.f",
    "content": "      SUBROUTINE EXFORT (RW,U,F,BUF,NWDS,PREC,DBUF)        \r\nC*****        \r\nC        \r\nC         *** IBM 360/370, VAX/780 VERSION ***        \r\nC        \r\nC     EXFORT PERFORMS FORTRAN FORMATTED IO FOR MODULE EXIO        \r\nC        \r\nC*****        \r\n      INTEGER          RW,U,F,BUF(NWDS),PREC,FP,FMT,FRMT(10)        \r\n      DOUBLE PRECISION DBUF(1)        \r\n      COMMON /BLANK /  X1(26),LBUF        \r\n      COMMON /EXIO2P/  NF,FP(5,1)        \r\n      COMMON /EXIO2F/  FMT(1)        \r\nC     COMMON /EXIO2X/  ==> /ZZEXO2/ UNIVAC ONLY        \r\nC        \r\n      DATA    LEOF  / 4H&EOF/        \r\nC        \r\n      IF (NWDS .LE. 0) RETURN        \r\n      IF (F    .LE. 0) GO TO 8        \r\n      IFMT = FP(1,F)-1        \r\n      DO 5 I = 1,10        \r\n    5 FRMT(I) = FMT(IFMT+I)        \r\n    8 GO TO (10,20,80,150), RW        \r\n   10 GO TO (30,50), PREC        \r\n   20 GO TO (40,60), PREC        \r\nC        \r\nC     READ -- SINGLE PRECISION        \r\nC        \r\n   30 READ (U,FRMT,ERR=35) BUF        \r\n   35 IF (BUF(1) .EQ. LEOF) GOTO 70        \r\n      RETURN        \r\nC        \r\nC     WRITE -- SINGLE PRECISION        \r\nC        \r\n   40 WRITE (U,FRMT,ERR=45) BUF        \r\n   45 RETURN        \r\nC        \r\nC     READ -- DOUBLE PRECISION        \r\nC        \r\n   50 N = NWDS/3        \r\n      READ (U,FRMT) (BUF(4*I-3),DBUF(2*I),I=1,N)        \r\n      RETURN        \r\nC        \r\nC     WRITE -- DOUBLE PRECISION        \r\nC        \r\n   60 N = NWDS/3        \r\n      WRITE (U,FRMT) (BUF(4*I-3),DBUF(2*I),I=1,N)        \r\n      RETURN        \r\nC        \r\nC     END OF FILE        \r\nC        \r\n   70 BUF(3) = -1        \r\n      RETURN        \r\nC        \r\nC     POSITION THE FILE        \r\nC        \r\n   80 GO TO (90,100,100), NWDS        \r\n   90 REWIND U        \r\n      RETURN        \r\n  100 N = LBUF/33+1        \r\n      DO 110 I = 1,N        \r\n  110 BACKSPACE U        \r\n  120 READ (U,160) N        \r\n      IF (N .NE. LEOF) GO TO 120        \r\n      BACKSPACE U        \r\n      RETURN        \r\nC        \r\nC     WRITE LOGICAL EOF        \r\nC        \r\n  150 N = LBUF/33        \r\n      DO 170 I = 1,N        \r\n      WRITE  (U,160) LEOF        \r\n  160 FORMAT (A4,128X)        \r\n  170 CONTINUE        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/exfowr.f",
    "content": "      SUBROUTINE EXFOWR                                                         \r\n     &  ( IUN, IPREC, FORM, InDATA, NWDS )                                      \r\nC********************************************************************           \r\nC    EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS                              \r\nC        NH------       NENN.N       NDNN.N         NX                          \r\nC        NFNN.N         NINN         NGNN.N         NAN                         \r\nC        NPENN.N        NPFNN.N      NPN(----)                                  \r\nC        SPECIAL CHARACTERS:  /(),                                              \r\nC     ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN \"FORM\"                \r\nC     ICOL  = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE                 \r\nC     NCNT  = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE        \r\nC********************************************************************           \r\n      CHARACTER*1     FORM(1000)                                                \r\n      CHARACTER*1     SLASH , BLANK                                             \r\n      CHARACTER*1     LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10)                 \r\n      CHARACTER*1     H, E, D, X, F, I, G, A, P                                 \r\n      CHARACTER*2     PFACT                                                     \r\n      CHARACTER*4     CDATA(200)                                                \r\n      CHARACTER*132   LINE                                                      \r\n      CHARACTER*132   TFORM                                                     \r\n      INTEGER*4       IDATA(200)                                                \r\n      REAL*4          DATA(200)                                                 \r\n      REAL*8          DDATA(100)                                                \r\n      integer*4       indata(200)                                               \r\n      COMMON /SYSTEM/ ISYSBF, IWR                                               \r\n      equivalence     ( idata, data, ddata, cdata )                             \r\n      DATA            H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/                    \r\n      DATA            I/'I'/, G/'G'/, A/'A'/, P/'P'/                            \r\n      DATA            LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/                    \r\n      DATA            COMMA  /','/, SLASH /'/'/, BLANK /' '/                    \r\n      DATA            NUMBER /'0','1','2','3','4','5','6','7','8','9'/          \r\n      if ( nwds .le. 200 ) go to 2                                              \r\n      print *,' word limit exceeded in exfowr, limit=200'                       \r\n      return                                                                    \r\n2     do 3 kb = 1, nwds                                                         \r\n      idata( kb ) = indata( kb )                                                \r\n3     continue                                                                  \r\n      ILOOP = 0                                                                 \r\n      ICHAR = 1                                                                 \r\n      NCNT  = 1                                                                 \r\n      ICOL  = 1                                                                 \r\n      LINE  = BLANK                                                             \r\n      PFACT = BLANK                                                             \r\n      ICYCLE= 0                                                                 \r\n5     IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75                                   \r\n      ICHAR = ICHAR + 1                                                         \r\n      IF ( ICHAR .LE. 1000 ) GO TO 5                                            \r\n      GO TO 7702                                                                \r\n70    IF ( ICHAR .GT. 1000 ) GO TO 7702                                         \r\n      IF ( NCNT  .GT. NWDS ) GO TO 1200                                         \r\n      IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75                                    \r\n      IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100                                   \r\n      IF ( FORM(ICHAR) .GE. NUMBER(1) .AND.                                     \r\n     &     FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200                              \r\n      IF ( FORM(ICHAR) .EQ. A ) GO TO 300                                       \r\n      IF ( FORM(ICHAR) .EQ. I ) GO TO 400                                       \r\n      IF ( FORM(ICHAR) .EQ. H ) GO TO 500                                       \r\n      IF ( FORM(ICHAR) .EQ. X ) GO TO 600                                       \r\n      IF ( FORM(ICHAR) .EQ. P ) GO TO 700                                       \r\n      IF ( FORM(ICHAR) .EQ. F ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. G ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. D ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. E ) GO TO 800                                       \r\n      IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000                                 \r\n      IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100                                 \r\n      IF ( FORM(ICHAR) .NE. COMMA  ) GO TO 7702                                 \r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK                                        \r\n75    ICHAR = ICHAR + 1                                                         \r\n      GO TO 70                                                                  \r\nC PROCESS SLASH                                                                 \r\n100   CONTINUE                                                                  \r\n      IF ( LINE .NE. BLANK ) WRITE ( IWR,900 ) LINE                             \r\n900   FORMAT(A132)                                                              \r\n      IF ( LINE .EQ. BLANK ) WRITE ( IWR,901 )                                  \r\n901   FORMAT(/)                                                                 \r\n      LINE   = BLANK                                                            \r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK                                        \r\n      ICOL = 1                                                                  \r\n      GO TO 75                                                                  \r\nC GET MULTIPLIER FOR FIELD CONVERSION                                           \r\n200   CALL FORNUM ( FORM, ICHAR, IMULT )                                        \r\n      GO TO 70                                                                  \r\nC PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD)                     \r\n300   ICHAR = ICHAR + 1                                                         \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 902 ) IMULT, IFIELD                                        \r\n902   FORMAT('(',I2,'A',I2,')')                                                 \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      WRITE( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND)                  \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT = 1                                                                 \r\n      GO TO 70                                                                  \r\nC PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD)                 \r\n400   ICHAR = ICHAR + 1                                                         \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 903 ) IMULT, IFIELD                                        \r\n903   FORMAT('(',I2,'I',I2,')')                                                 \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      WRITE( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND)                  \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 70                                                                  \r\nC PROCESS HOLERITH FIELD -- FORMAT(NNH----) (NN=IMULT)                          \r\n500   LAST   = ICOL  + IMULT - 1                                                \r\n      ICHAR  = ICHAR + 1                                                        \r\n      LCHAR  = ICHAR + IMULT - 1                                                \r\n      WRITE ( LINE(ICOL:LAST), 904 ) (FORM(KK),KK=ICHAR,LCHAR)                  \r\n904   FORMAT(133A1)                                                             \r\n      ICOL   = ICOL  + IMULT                                                    \r\n      ICHAR  = LCHAR                                                            \r\n      IMULT  = 1                                                                \r\n      GO TO 75                                                                  \r\nC PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT)                                     \r\n600   WRITE ( TFORM, 905 ) IMULT                                                \r\n905   FORMAT('(',I2,'X',')')                                                    \r\n      LAST   = ICOL + IMULT - 1                                                 \r\n      WRITE( LINE(ICOL:LAST), TFORM )                                           \r\n      ICOL   = ICOL + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 75                                                                  \r\nC PROCESS P FACTOR FOR FLOATING FORMAT                                          \r\n700   WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR)                            \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      GO TO 75                                                                  \r\nC PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN)  WHERE                        \r\nC          (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC)                        \r\n800   ITYPE = ICHAR                                                             \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\n      ICHAR = ICHAR + 1                                                         \r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )                                       \r\n810   IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820                                \r\n      ICHAR = ICHAR + 1                                                         \r\n      GO TO 810                                                                 \r\n820   ICHAR = ICHAR + 1                                                         \r\n      CALL FORNUM ( FORM, ICHAR, IDEC )                                         \r\n      IF ( IMULT .EQ. 0 ) IMULT = 1                                             \r\n      WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC               \r\n906   FORMAT('(',A2,I2,A1,I2,'.',I2,')')                                        \r\n      I1 = ICOL                                                                 \r\n      LENGTH = IMULT*IFIELD                                                     \r\n      NEND   = NCNT + IMULT - 1                                                 \r\n      LAST   = ICOL + LENGTH - 1                                                \r\n      IF ( NEND .GT. NWDS ) NEND = NWDS                                         \r\n      IF ( IPREC .EQ. 2 )                                                       \r\n     &  WRITE( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND)                \r\n      IF ( IPREC .NE. 2 )                                                       \r\n     &  WRITE( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND)                 \r\n      ICOL   = ICOL + LENGTH                                                    \r\n      NCNT   = NCNT + IMULT                                                     \r\n      IMULT  = 1                                                                \r\n      GO TO 70                                                                  \r\nC PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP)             \r\nC IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP                           \r\n1000  ICYCLE = IMULT-1                                                          \r\n      ICSAVE = ICHAR+1                                                          \r\n      ILOOP  = 1                                                                \r\n      IMULT  = 1                                                                \r\n      GO TO 75                                                                  \r\nC PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT)                  \r\nC IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO                        \r\n1100  IF ( ICYCLE .GT. 0 ) GO TO 1110                                           \r\n      IF ( ILOOP  .NE. 0 ) GO TO 1120                                           \r\n      IF ( NCNT .GT. NWDS ) GO TO 1200                                          \r\nC NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT                              \r\nC UNTIL LIST IS SATISFIED                                                       \r\n      WRITE ( IUN,900 ) LINE                                                    \r\n      ICHAR  = 2                                                                \r\n      LINE   = BLANK                                                            \r\n      PFACT  = BLANK                                                            \r\n      ICOL   = 1                                                                \r\n      GO TO 70                                                                  \r\nC GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING           \r\nC OF THE GROUP                                                                  \r\n1110  ICYCLE = ICYCLE - 1                                                       \r\n      ICHAR  = ICSAVE                                                           \r\n      GO TO 70                                                                  \r\nC FINISHED WITH LOOP, CONTINUE WITH FORMAT                                      \r\n1120  ILOOP  = 0                                                                \r\n      ICYCLE = 0                                                                \r\n      GO TO 75                                                                  \r\n1200  WRITE ( IUN,900 ) LINE                                                    \r\n      IF ( NCNT .GT. NWDS ) GO TO 7000                                          \r\n      LINE = BLANK                                                              \r\n      GO TO 70                                                                  \r\n7000  CONTINUE                                                                  \r\n      RETURN                                                                    \r\n7702  WRITE( IWR, 9901 ) ICHAR, FORM                                            \r\n9901  FORMAT(///' SUBROUTINE EXFOWR UNABLE TO DECIPHER THE FOLLOWING'           \r\n     & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:'         \r\n     & ,/,(1X,131A1))                                                           \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/fbsv.f",
    "content": "      SUBROUTINE FBSV (*,ZS,ZD)        \r\nC        \r\nC     GIVEN A LOWER UNIT TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED        \r\nC     AND WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBSV WILL        \r\nC     PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A        \r\nC     LINEAR SYSTEM OF EQUATIONS.        \r\nC        \r\nC     THIS FBSV.MDS ROUTINE IS ALMOST SAME AS FBS.MIS        \r\nC     IT IS INTENDED TO BE USED FOR VAX, A VIRTUAL MEMORY MACHINE.        \r\nC     FBSV.MDS DIFFERS FROM FBS.MIS IN        \r\nC       1. THREE BUFFERS ARE USED        \r\nC       2. OPEN CORE IS REDUCED. THE INTENTION HERE IS TO AVOID        \r\nC          ACCESSIVE SYSTEM PAGING.        \r\nC        \r\nC     FBSV IS CALLED ONLY BY FBS ROUTINE.        \r\nC     IT IS INTRODUCED INTO NASTRAN REPERTORY BY G.CHAN/UNISYS, 10/88        \r\nC        \r\n      LOGICAL IDENT        \r\n      INTEGER DBL     ,DBU      ,DBB      ,DBX      ,PREC     ,SIGN    ,        \r\n     1        SYSBUF  ,PRC      ,WORDS    ,RLCMPX   ,BUF1     ,BUF2    ,        \r\n     2        BUF3    ,TYPEL    ,TYPEB    ,TYPEX    ,SUBNAM(2),BEGN    ,        \r\n     3        END     ,BUF(2)   ,RC       ,EOL      ,RD       ,RDREW   ,        \r\n     4        WRT     ,WRTREW   ,REW      ,EOFNRW   ,SWITCH   ,RSP     ,        \r\n     5        RDP     ,CSP      ,CDP      ,BLOCK(15),HICORE   ,SYS34        \r\n      REAL    ZS(1)   ,XS(4)    ,YS(4)        \r\n      DOUBLE  PRECISION          ZD(1)    ,XD       ,YD        \r\n      COMMON /FBSX  / DBL(7)    ,DBU(7)   ,DBB(7)   ,DBX(7)   ,LCORE   ,        \r\n     1                PREC      ,SIGN        \r\n      COMMON /SYSTEM/ SYSBUF    ,NOUT     ,SY1(28)  ,HICORE   ,SY2(2)  ,        \r\n     1                SYS34        \r\n      COMMON /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,REW     ,        \r\n     1                NOREW     ,EOFNRW   ,RSP      ,RDP      ,CSP     ,        \r\n     2                CDP        \r\n      COMMON /TYPE  / PRC(2)    ,WORDS(4) ,RLCMPX(4)        \r\n      COMMON /PACKX / ITYPE1    ,ITYPE2   ,I1       ,J1       ,INCR1        \r\n      COMMON /UNPAKX/ ITYPE3    ,I2       ,J2       ,INCR2        \r\n      COMMON /ZNTPKX/ XD(2)     ,IX       ,EOL        \r\n      COMMON /ZBLPKX/ YD(2)     ,IY        \r\n      EQUIVALENCE    (DBL(5),TYPEL) , (DBB(5),TYPEB) , (DBX(5),TYPEX)  ,        \r\n     1               (XD(1) ,XS(1)) , (DBL(2),NL   ) , (YD(1) ,YS(1))        \r\n      DATA    SUBNAM/ 4HFBSV, 1H  / , BEGN/ 4HBEGN / , END/ 3HEND /        \r\nC        \r\nC        \r\nC     CHECK OPEN CORE SITUATION. IF SYS34 (PAGECNTL) IS NOT ZERO, SET        \r\nC     OPEN CORE SIZE TO SIZE SPECIFIED BY SYS34 (MINUS OVERHEAD OF 6000        \r\nC     WORDS). TOO BIG A CORE SIZE MAY CAUSE EXCESSIVE PAGING AND SLOW        \r\nC     DOWN FBS OPERATION        \r\nC        \r\nC        \r\n      KORCHG = 0        \r\n      IF (SYS34 .EQ. 0) GO TO 50        \r\n      KORCHG = HICORE - SYS34 + 6000        \r\n      IF (KORCHG .LE. 0) GO TO 80        \r\n      LCORE  = LCORE- KORCHG        \r\n      WRITE (NOUT,40) SYS34        \r\n 40   FORMAT ('0*** SYSTEM INFORMATION MESSAGE - OPEN CORE FOR FBS IS',        \r\n     1        ' SET TO',I7,' WORDS BY PAGECNTL OF /SYSTEM/',/)        \r\n      GO TO 80        \r\n 50   IF (HICORE .GT. 130001) WRITE (NOUT,60) HICORE        \r\n 60   FORMAT ('0*** SYSTEM INFORMATION MESSAGE - PRESENT OPEN CORE =',        \r\n     1        I7, /5X,'FURTHER INCREASE OF OPEN CORE MAY ACTUALLY ',        \r\n     2        'SLOW DOWN FBS''S OPERATION.', //5X,        \r\n     3        'SUGGESTION: TO OPTIMIZE CORE USAGE AND USER''S PROBLEM,',        \r\n     4        ' AND TO MINIMIZE VAX''S PAGE FAULTS,', /5X,        \r\n     4        'CHECK WORKING_SET PAGE LIMIT ASSIGNED TO USER, AND SET ',        \r\n     6        'NASTRAN PAGECNTL WORD OF /SYSTEM/ TO MATCH, BUT NOT TO ',        \r\n     7        'EXCEED, THE CURRENT SETTING',/)        \r\nC        \r\nC     GENERAL INITIALIZATION        \r\nC        \r\n 80   BUF3   = LCORE- SYSBUF        \r\n      BUF2   = BUF3 - SYSBUF        \r\n      BUF1   = BUF2 - SYSBUF        \r\n      NNN    = BUF1 - 1        \r\n      BUF(1) = SUBNAM(1)        \r\n      BUF(2) = BEGN        \r\n      CALL CONMSG (BUF,2,0)        \r\n      NBRLOD = DBB(2)        \r\n      RC     = RLCMPX(TYPEB)        \r\n      I2     = 1        \r\n      J2     = NL        \r\n      INCR2  = 1        \r\n      I1     = 1        \r\n      J1     = NL        \r\n      INCR1  = 1        \r\n      ITYPE1 = TYPEL        \r\n      ITYPE2 = TYPEX        \r\n      ITYPE3 = SIGN*TYPEL        \r\n      NWDS   = WORDS(TYPEL)*NL        \r\n      NVECS  = NNN/NWDS        \r\n      IF (NVECS .EQ. 0) CALL MESAGE(-8,NWDS-NNN,SUBNAM)        \r\n      SWITCH = 1        \r\n      IF (TYPEL.EQ.RSP .AND. RC.EQ.2) SWITCH = 2        \r\n      IF (TYPEL.EQ.RDP .AND. RC.EQ.2) SWITCH = 3        \r\n      IF (SWITCH .NE. 1) NVECS = NVECS/2        \r\n      K1     = 1        \r\n      BLOCK(1) = DBL(1)        \r\n      DBX(2) = 0        \r\n      DBX(6) = 0        \r\n      DBX(7) = 0        \r\n      IDENT  = .FALSE.        \r\n      IF (DBB(4) .EQ. 8) IDENT = .TRUE.        \r\n      NNNDBL = NNN/2        \r\n      NTERMS = RLCMPX(TYPEL)*NL        \r\n      IF (IDENT) NBRLOD = NL        \r\nC        \r\nC     OPEN OUTPUT FILE (DBX), LOAD VECTORS FILE (DBB), AND LOWER        \r\nC     TRIANGULAR FACTOR FILE (DBL)        \r\nC        \r\n      CALL GOPEN (DBX,ZS(BUF3),WRTREW)        \r\n      CALL GOPEN (DBL,ZS(BUF1),RDREW )        \r\n      IF (.NOT.IDENT) CALL GOPEN (DBB,ZS(BUF2),RDREW)        \r\nC        \r\nC     CHECK TIMING AND ISSUE MESSAGE        \r\nC        \r\n      NPASS = (NBRLOD+NVECS-1)/NVECS        \r\n      CALL SSWTCH (11,L11)        \r\n      IF (NPASS .GE. 10) L11=1        \r\n      IF (L11 .NE. 1) GO TO 140        \r\n      CALL PAGE2 (-4)        \r\n      WRITE (NOUT,100) TYPEL,NPASS        \r\n  100 FORMAT ('0*** USER INFORMATION MESSAGE FROM FBS',I1,' - NO. OF ',        \r\n     1        'PASSES NEEDED TO COMPLETE FBS OPERATION =',I5)        \r\n      IF (NPASS .GT. 15) WRITE (NOUT,110)        \r\n  110 FORMAT (5X,'INCREASE OF OPEN CORE MAY ACTUALLY SLOW DOWN FBS ',        \r\n     1        'OPERATION.')        \r\n      GO TO 140        \r\n  120 IF (L11 .LT. 0) GO TO 150        \r\n      CALL CPUTIM (J,T2,1)        \r\n      T2 = T2-T1        \r\n      IF (L11 .GT. 0) WRITE (NOUT,130) T2        \r\n  130 FORMAT (5X,'TIME TO COMPLETE ONE PASS =',F10.4,' CPU SECONDS',//)        \r\n      L11 = -1        \r\n      CALL TMTOGO (J)        \r\n      I = NPASS*T2        \r\n      IF (J .LT. I) CALL MESAGE (-50,I,SUBNAM)        \r\n      GO TO 150        \r\n  140 CALL CPUTIM (J,T1,1)        \r\nC        \r\nC     COMPUTE EXTENT OF THIS PASS        \r\nC        \r\n  150 KN   = MIN0(K1+NVECS-1,NBRLOD)        \r\n      LAST = 1 + (KN-K1)*NWDS        \r\n      IF (IDENT) GO TO 190        \r\n      GO TO (160,170,180), SWITCH        \r\nC        \r\nC     NORMAL CASE - FILL CORE WITH LOAD VECTORS        \r\nC        \r\n  160 DO 168 L=1,LAST,NWDS        \r\n      CALL UNPACK (*162,DBB,ZS(L))        \r\n      GO TO 168        \r\n  162 LN = L+NWDS-1        \r\n      DO 164 LL=L,LN        \r\n  164 ZS(LL) = 0.        \r\n  168 CONTINUE        \r\n      GO TO 200        \r\nC        \r\nC     SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP        \r\nC        \r\n  170 LAST = 1 + 2*(KN-K1)*NWDS + NWDS        \r\n      L = 0        \r\n      DO 171 K=1,NNNDBL        \r\n  171 ZD(K) = 0.        \r\n      DO 178 K=K1,KN        \r\n      ICSPSG = CSP*SIGN        \r\n      CALL INTPK (*176,DBB,0,ICSPSG,0)        \r\n  172 CALL ZNTPKI        \r\n      ZS(L+IX   ) = XS(1)        \r\n      ZS(L+IX+NL) = XS(2)        \r\n      IF (EOL .EQ. 0) GO TO 172        \r\n  176 L = L + 2*NL        \r\n  178 CONTINUE        \r\n      GO TO 200        \r\nC        \r\nC     SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP        \r\nC        \r\n  180 LAST = 1 + 2*(KN-K1)*NWDS + NWDS        \r\n      L = 0        \r\n      DO 181 K=1,NNNDBL        \r\n  181 ZD(K) = 0.        \r\n      DO 188 K=K1,KN        \r\n      ICDPSG = CDP*SIGN        \r\n      CALL INTPK (*186,DBB,0,ICDPSG,0)        \r\n  182 CALL ZNTPKI        \r\n      ZD(L+IX   ) = XD(1)        \r\n      ZD(L+IX+NL) = XD(2)        \r\n      IF (EOL .EQ. 0) GO TO 182        \r\n  186 L = L + 2*NL        \r\n  188 CONTINUE        \r\n      GO TO 200        \r\nC        \r\nC     SPECIAL CASE - GENERATE IDENTITY MATRIX        \r\nC        \r\n  190 L = 0        \r\n      DO 197 K=1,NNNDBL        \r\n  197 ZD(K) = 0.        \r\n      DO 198 K=K1,KN        \r\n      GO TO (191,192,193,194), TYPEL        \r\n  191 ZS(L+K) = 1.0        \r\n      GO TO 196        \r\n  192 ZD(L+K) = 1.0D0        \r\n      GO TO 196        \r\n  193 ZS(L+2*K-1) = 1.0        \r\n      GO TO 196        \r\n  194 ZD(L+2*K-1) = 1.0D0        \r\n  196 L = L + NTERMS        \r\n  198 CONTINUE        \r\nC        \r\nC     COMPUTE FORWARD-BACKWARD SUBSTITUTION ON LOAD VECTORS NOW IN CORE        \r\nC        \r\n  200 CALL REWIND (DBL)        \r\n      CALL FWDREC (*270,DBL)        \r\nC        \r\n      GO TO (201,202,203,204), TYPEL        \r\nC        \r\n  201 CALL FBS1 (BLOCK,ZS,ZS(LAST),NWDS)        \r\n      GO TO 210        \r\n  202 CALL FBS2 (BLOCK,ZS,ZS(LAST),NWDS)        \r\n      GO TO 210        \r\n  203 CALL FBS3 (BLOCK,ZS,ZS(LAST),NWDS)        \r\n      GO TO 210        \r\n  204 CALL FBS4 (BLOCK,ZS,ZS(LAST),NWDS)        \r\nC        \r\nC     PACK SOLUTION VECTORS ONTO OUTPUT FILE        \r\nC        \r\n  210 GO TO (220,230,240), SWITCH        \r\nC        \r\nC     NORMAL CASE - CALL PACK        \r\nC        \r\n  220 DO 228 L=1,LAST,NWDS        \r\n      CALL PACK (ZS(L),DBX,DBX)        \r\n  228 CONTINUE        \r\n      GO TO 250        \r\nC        \r\nC     SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP, CALL BLDPK        \r\nC        \r\n  230 L = 0        \r\n      DO 238 K=K1,KN        \r\n      CALL BLDPK (CSP,TYPEX,DBX,0,0)        \r\n      DO 234 I=1,NL        \r\n      YS(1) = ZS(L+I   )        \r\n      YS(2) = ZS(L+I+NL)        \r\n      IY = I        \r\n      CALL ZBLPKI        \r\n  234 CONTINUE        \r\n      CALL BLDPKN (DBX,0,DBX)        \r\n      L = L + 2*NL        \r\n  238 CONTINUE        \r\n      GO TO 250        \r\nC        \r\nC     SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP, CALL BLDPK        \r\nC        \r\n  240 L = 0        \r\n      DO 248 K=K1,KN        \r\n      CALL BLDPK (CDP,TYPEX,DBX,0,0)        \r\n      DO 244 I=1,NL        \r\n      YD(1) = ZD(L+I   )        \r\n      YD(2) = ZD(L+I+NL)        \r\n      IY = I        \r\n      CALL ZBLPKI        \r\n  244 CONTINUE        \r\n      CALL BLDPKN (DBX,0,DBX)        \r\n      L = L + 2*NL        \r\n  248 CONTINUE        \r\nC        \r\nC     TEST FOR MORE PASSES        \r\nC        \r\n  250 IF (KN .EQ. NBRLOD) GO TO 300        \r\n      K1   = KN + 1        \r\n      GO TO 120        \r\nC        \r\nC     ERROR        \r\nC        \r\n  270 CALL MESAGE (-2,DBL,SUBNAM)        \r\nC        \r\n  300 IF (.NOT.IDENT) CALL CLOSE (DBB,REW)        \r\n      CALL CLOSE (DBL,REW)        \r\n      CALL CLOSE (DBX,REW)        \r\n      BUF(2) = END        \r\n      CALL CONMSG (BUF,2,0)        \r\n      RETURN 1        \r\n      END        \r\n"
  },
  {
    "path": "mds/filpos.f",
    "content": "        SUBROUTINE FILPOS ( FILE, IPOS )                                        \r\n        INCLUDE 'DSIOF.COM'                                                     \r\n        INCLUDE 'XNSTRN.COM'                                                    \r\n        INTEGER    FILE                                                         \r\n        NAME  = FILE                                                            \r\n        CALL DSGEFL                                                             \r\n        NBLOCK = IAND( IPOS, MASKH2 )                                           \r\n        ICBLK  = FCB( 4, IFILEX )                                               \r\n        IF ( ICBLK .EQ. NBLOCK ) GO TO 10                                       \r\n        CALL DBMMGR( 6 )                                                        \r\n10      CONTINUE                                                                \r\n        INDCLR = IPOS/MULQ2 + INDBAS - 1                                        \r\n        INDCBP = INDCLR                                                         \r\n        CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/forwrt.f",
    "content": "      SUBROUTINE FORWRT ( FORM, INDATA, NWDS )\r\nC********************************************************************\r\nC    EXPECTED TYPES OF FORMAT CODES ARE AS FOLLOWS\r\nC        NH------       NENN.N       NDNN.N         NX\r\nC        NFNN.N         NINN         NGNN.N         NAN\r\nC        NPENN.N        NPFNN.N      NPN(----)      NP,ENN.N\r\nC        NP,FNN.N       NP,N(----)\r\nC        SPECIAL CHARACTERS:  /(),\r\nC     ICHAR = CURRENT CHARACTER NUMBER BEING PROCESSED IN \"FORM\"\r\nC     ICOL  = CURRENT CHARACTER COLUMN POSITION WITHIN THE LINE\r\nC     NCNT  = NUMBER OF VALUES OF IDATA AND DATA THAT HAVE BEEN PROCESSE\r\nC********************************************************************\r\n      CHARACTER*1     FORM(1000)\r\n      CHARACTER*1     SLASH , BLANK\r\n      CHARACTER*1     LPAREN, RPAREN, PERIOD, COMMA, NUMBER(10)\r\n      CHARACTER*1     H, E, D, X, F, I, G, A, P\r\n      CHARACTER*2     PFACT\r\n      CHARACTER*4     CDATA(200)\r\n      CHARACTER*132   LINE\r\n      CHARACTER*132   TFORM\r\n      INTEGER*4       INDATA(NWDS), IDATA(200)\r\n      REAL*4          DATA(200)\r\n      REAL*8          DDATA(100)\r\n      COMMON /SYSTEM/ ISYSBF, IWR\r\n      EQUIVALENCE     (IDATA, DATA, DDATA, CDATA )\r\n      DATA            H/'H'/, E/'E'/, D/'D'/, X/'X'/, F/'F'/\r\n      DATA            I/'I'/, G/'G'/, A/'A'/, P/'P'/\r\n      DATA            LPAREN /'('/, RPAREN/')'/, PERIOD/'.'/\r\n      DATA            COMMA  /','/, SLASH /'/'/, BLANK /' '/\r\n      DATA            NUMBER /'0','1','2','3','4','5','6','7','8','9'/\r\n      IF ( NWDS .LE. 200 ) GO TO 2\r\n      PRINT *,' LIMIT OF WORDS REACHED IN FORWRT, LIMIT=200'\r\n      CALL PEXIT\r\n2     DO 3 KB = 1, NWDS\r\n      IDATA( KB ) = INDATA( KB )\r\n3     CONTINUE\r\n      ILOOP = 0\r\n      ICHAR = 1\r\n      NCNT  = 1\r\n      ICOL  = 1\r\n      LINE  = BLANK\r\n      PFACT = BLANK\r\n      ICYCLE= 0\r\n5     IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 75\r\n      ICHAR = ICHAR + 1\r\n      IF ( ICHAR .LE. 1000 ) GO TO 5\r\n      GO TO 7702\r\n70    IF ( ICHAR .GT. 1000 ) GO TO 7702\r\n      IF ( FORM(ICHAR) .EQ. BLANK ) GO TO 75\r\n      IF ( FORM(ICHAR) .EQ. SLASH ) GO TO 100\r\n      IF ( FORM(ICHAR) .GE. NUMBER(1) .AND.\r\n     &     FORM(ICHAR) .LE. NUMBER(10) ) GO TO 200\r\n      IF ( FORM(ICHAR) .EQ. A ) GO TO 300\r\n      IF ( FORM(ICHAR) .EQ. I ) GO TO 400\r\n      IF ( FORM(ICHAR) .EQ. H ) GO TO 500\r\n      IF ( FORM(ICHAR) .EQ. X ) GO TO 600\r\n      IF ( FORM(ICHAR) .EQ. P ) GO TO 700\r\n      IF ( FORM(ICHAR) .EQ. F ) GO TO 800\r\n      IF ( FORM(ICHAR) .EQ. G ) GO TO 800\r\n      IF ( FORM(ICHAR) .EQ. D ) GO TO 800\r\n      IF ( FORM(ICHAR) .EQ. E ) GO TO 800\r\n      IF ( FORM(ICHAR) .EQ. LPAREN ) GO TO 1000\r\n      IF ( FORM(ICHAR) .EQ. RPAREN ) GO TO 1100\r\n      IF ( FORM(ICHAR) .NE. COMMA  ) GO TO 7702\r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK\r\n75    ICHAR = ICHAR + 1\r\n      GO TO 70\r\nC PROCESS SLASH\r\n100   CONTINUE\r\n      IF ( LINE .NE. BLANK ) WRITE ( IWR,900 ) LINE\r\n900   FORMAT(A132)\r\n      IF ( LINE .EQ. BLANK ) WRITE ( IWR,901 )\r\n901   FORMAT(/)\r\n      LINE   = BLANK\r\n      IF ( ICYCLE .EQ. 0 ) PFACT = BLANK\r\n      ICOL = 1\r\n      GO TO 75\r\nC GET MULTIPLIER FOR FIELD CONVERSION\r\n200   CALL FORNUM ( FORM, ICHAR, IMULT )\r\n      GO TO 70\r\nC PROCESS ALPHA FIELD--FORMAT(NNANNN) (NN=IMULT,NNN=IFIELD)\r\n300   ICHAR = ICHAR + 1\r\n      IF ( NCNT .GT. NWDS ) GO TO 1200\r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )\r\n      ILEFT = NWDS - NCNT + 1\r\n      IF ( ILEFT .LT. IMULT ) IMULT = ILEFT\r\n      IF ( IMULT .EQ. 0 ) IMULT = 1\r\n      WRITE ( TFORM, 902 ) IMULT, IFIELD\r\n902   FORMAT('(',I2,'A',I2,')')\r\n      I1 = ICOL\r\n      LENGTH = IMULT*IFIELD\r\n      NEND   = NCNT + IMULT - 1\r\n      LAST   = ICOL + LENGTH - 1\r\n      WRITE( LINE(ICOL:LAST), TFORM ) (CDATA(KK),KK=NCNT,NEND)\r\n      ICOL   = ICOL + LENGTH\r\n      NCNT   = NCNT + IMULT\r\n      IMULT = 1\r\n      GO TO 70\r\nC PROCESS INTEGER FIELD -- FORMAT(NNINNN) (NN=IMULT,NNN=IFIELD)\r\n400   ICHAR = ICHAR + 1\r\n      IF ( NCNT .GT. NWDS ) GO TO 1200\r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )\r\n      IF ( IMULT .EQ. 0 ) IMULT = 1\r\n      WRITE ( TFORM, 903 ) IMULT, IFIELD\r\n903   FORMAT('(',I2,'I',I2,')')\r\n      I1 = ICOL\r\n      LENGTH = IMULT*IFIELD\r\n      NEND   = NCNT + IMULT - 1\r\n      LAST   = ICOL + LENGTH - 1\r\n      WRITE( LINE(ICOL:LAST), TFORM ) (IDATA(KK),KK=NCNT,NEND)\r\n      ICOL   = ICOL + LENGTH\r\n      NCNT   = NCNT + IMULT\r\n      IMULT  = 1\r\n      GO TO 70\r\nC PROCESS HOLERITH FIELD -- FORMAT(NNH----) (NN=IMULT)\r\n500   LAST   = ICOL  + IMULT - 1\r\n      ICHAR  = ICHAR + 1\r\n      LCHAR  = ICHAR + IMULT - 1\r\n      WRITE ( LINE(ICOL:LAST), 904 ) (FORM(KK),KK=ICHAR,LCHAR)\r\n904   FORMAT(133A1)\r\n      ICOL   = ICOL  + IMULT\r\n      ICHAR  = LCHAR\r\n      IMULT  = 1\r\n      GO TO 75\r\nC PROCESS X FIELD -- FORMAT(NNX) (NN=IMULT)\r\n600   WRITE ( TFORM, 905 ) IMULT\r\n905   FORMAT('(',I2,'X',')')\r\n      LAST   = ICOL + IMULT - 1\r\n      WRITE( LINE(ICOL:LAST), TFORM )\r\n      ICOL   = ICOL + IMULT\r\n      IMULT  = 1\r\n      GO TO 75\r\nC PROCESS P FACTOR FOR FLOATING FORMAT\r\n700   WRITE ( PFACT,904 ) FORM(ICHAR-1), FORM(ICHAR)\r\n      IF ( NCNT .GT. NWDS ) GO TO 1200\r\n710   IF ( FORM( ICHAR+1 ) .NE. BLANK .AND. FORM( ICHAR+1 ) .NE.\r\n     &     COMMA ) GO TO 75\r\n      ICHAR = ICHAR + 1\r\n      IF ( ICHAR .GT. 1000 ) GO TO 7702\r\n      GO TO 710\r\nC PROCESS FLOATING FIELD -- FORMAT(NPNNXNNN.NNNN)  WHERE\r\nC          (NP = PFACT, NN=IMULT, NNN=IFIELD, NNNN=IDEC)\r\n800   ITYPE = ICHAR\r\n      IF ( NCNT .GT. NWDS ) GO TO 1200\r\n      ICHAR = ICHAR + 1\r\n      CALL FORNUM ( FORM, ICHAR, IFIELD )\r\n810   IF ( FORM( ICHAR ) .EQ. PERIOD ) GO TO 820\r\n      ICHAR = ICHAR + 1\r\n      GO TO 810\r\n820   ICHAR = ICHAR + 1\r\n      CALL FORNUM ( FORM, ICHAR, IDEC )\r\n      IF ( IMULT .EQ. 0 ) IMULT = 1\r\n      WRITE ( TFORM, 906 ) PFACT, IMULT, FORM(ITYPE),IFIELD, IDEC\r\n906   FORMAT('(',A2,I2,A1,I2,'.',I2,')')\r\n      I1 = ICOL\r\n      LENGTH = IMULT*IFIELD\r\n      NEND   = NCNT + IMULT - 1\r\n      LAST   = ICOL + LENGTH - 1\r\n      IF ( FORM(ITYPE) .EQ. D )\r\n     &  WRITE( LINE(ICOL:LAST), TFORM ) (DDATA(KK),KK=NCNT,NEND)\r\n      IF ( FORM(ITYPE) .NE. D )\r\n     &  WRITE( LINE(ICOL:LAST), TFORM ) (DATA(KK),KK=NCNT,NEND)\r\n      ICOL   = ICOL + LENGTH\r\n      NCNT   = NCNT + IMULT\r\n      IMULT  = 1\r\n      GO TO 70\r\nC PROCESS LEFT PAREN (NOT THE FIRST LEFT PAREN BUT ONE FOR A GROUP)\r\nC IMULT HAS THE MULTIPLIER TO BE APPLIED TO THE GROUP\r\n1000  ICYCLE = IMULT-1\r\n      ICSAVE = ICHAR+1\r\n      ILOOP  = 1\r\n      IMULT  = 1\r\n      GO TO 75\r\nC PROCESS RIGHT PAREN ( CHECK IF IT IS THE LAST OF THE FORMAT)\r\nC IF IT IS PART OF A GROUP, THEN ICYCLE WILL BE NON-ZERO\r\n1100  IF ( ICYCLE .GT. 0 ) GO TO 1110\r\n      IF ( ILOOP  .NE. 0 ) GO TO 1120\r\n      IF ( NCNT .GT. NWDS ) GO TO 1200\r\nC NO GROUP, THEREFORE MUST RE CYCLE THROUGH FORMAT\r\nC UNTIL LIST IS SATISFIED\r\n      WRITE ( IWR,900 ) LINE\r\n      ICHAR  = 2\r\n      LINE   = BLANK\r\n      PFACT  = BLANK\r\n      ICOL   = 1\r\n      GO TO 70\r\nC GROUP BEING PROCESSED, DECREMENT COUNT AND RESET ICHAR TO BEGINNING\r\nC OF THE GROUP\r\n1110  ICYCLE = ICYCLE - 1\r\n      ICHAR  = ICSAVE\r\n      GO TO 70\r\nC FINISHED WITH LOOP, CONTINUE WITH FORMAT\r\n1120  ILOOP  = 0\r\n      ICYCLE = 0\r\n      GO TO 75\r\n1200  WRITE ( IWR,900 ) LINE\r\n7000  CONTINUE\r\n      RETURN\r\n7702  WRITE( IWR, 9901 ) ICHAR, FORM\r\n9901  FORMAT(///' SUBROUTINE FORWRT UNABLE TO DECIPHER THE FOLLOWING'\r\n     & ,' FORMAT AT CHARACTER ',I4,/,' FORMAT GIVEN WAS THE FOLLOWING:'\r\n     & ,/,(1X,131A1))\r\n      END\r\n"
  },
  {
    "path": "mds/fwdrec.f",
    "content": "        SUBROUTINE FWDREC ( *, FILE )                                           \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        INTEGER           FILE                                                  \r\n        NAME = FILE                                                             \r\n        CALL DSGEFL                                                             \r\n        CALL DSFWR1                                                             \r\n        CALL DSSDCB                                                             \r\n        IF ( IRETRN .EQ. 1 ) RETURN 1                                           \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/getstb.f",
    "content": "        SUBROUTINE GETSTB ( *, BLOCK )                                          \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 )                                                     \r\n        IRETRN = 0                                                              \r\n        NAME   = BLOCK( 1 )                                                     \r\n        CALL DSGEFL                                                             \r\n        IF ( BLOCK( 8 ) .NE. -1 ) GO TO 100                                     \r\n        IF ( ( INDCLR-INDBAS ) .GT. 5 ) GO TO 10                                \r\n        CALL DSRDPB                                                             \r\n10      INDCBP = INDCBP - 1                                                     \r\n        ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n        IF ( ID .NE. IDSRT ) CALL DSMSG( 114 )                                  \r\n        INDCBP = INDCBP - 2                                                     \r\n        ID     = IAND( IBASE( INDCBP ), MASKQ1 )                                \r\n        IF ( ID .NE. IDSCT ) CALL DSMSG ( 115 )                                 \r\n        CALL DSPRCL( BLOCK )                                                    \r\n        BLOCK( 8 ) = 0                                                          \r\n100     INDCBP = INDCBP - 2                                                     \r\n        IF ( ( INDCBP-INDBAS ) .GT. 5 ) GO TO 110                               \r\n        CALL DSRDPB                                                             \r\n        INDCBP = INDCBP + 1                                                     \r\n        GO TO 100                                                               \r\n110     ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSCH ) GO TO 130                                          \r\n        IF ( ID .EQ. IDSST ) GO TO 120                                          \r\n        IF ( ID .EQ. IDSSH ) GO TO 100                                          \r\n        IF ( ID .EQ. IDSRT ) GO TO 100                                          \r\n        IF ( ID .EQ. IDSSD ) GO TO 100                                          \r\n        IF ( ID .EQ. IDSSE ) GO TO 100                                          \r\nCWKBNB 1/94                                                                     \r\n        ID = IAND( IBASE( INDCBP+1 ), MASKQ1 )                                  \r\n        IF ( ID .NE. IDSSD ) GO TO 116                                          \r\n        INDCBP = INDCBP + 1                                                     \r\n        GO TO 100                                                               \r\nCWKBNE 1/94                                                                     \r\nCWKBR 1/94  CALL DSMSG ( 116 )                                                  \r\n116     CALL DSMSG ( 116 )                                                      \r\n120     BLOCK( 4 ) = IBASE( INDCBP+1 )                                          \r\n        BLOCK( 6 ) = IAND( IBASE( INDCBP ), MASKH2 )                            \r\n        IDIV   = MIN0( 2, BLOCK( 11 ) )                                         \r\n        BLOCK( 5 ) = INDCBP-1                                                   \r\n        IF ( BLOCK( 2 ) .EQ. 2 ) BLOCK( 5 ) = ( INDCBP-1 ) / IDIV               \r\n        IF ( BLOCK( 2 ) .EQ. 3 ) BLOCK( 5 ) =   INDCBP-2                        \r\n        IF ( BLOCK( 2 ) .EQ. 4 ) BLOCK( 5 ) = ( INDCBP-3 ) / IDIV               \r\n        GO TO 7000                                                              \r\n130     INDCBP = INDCBP - 1                                                     \r\n        INDCLR = INDCBP                                                         \r\n        BLOCK( 8 ) = 1                                                          \r\n        IRETRN = 1                                                              \r\n7000    CALL DSSDCB                                                             \r\n        IF ( IRETRN .EQ. 1 ) RETURN 1                                           \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/getstr.f",
    "content": "        SUBROUTINE GETSTR ( *, BLOCK )                                          \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 )                                                     \r\n        IRETRN = 0                                                              \r\n        NAME   = BLOCK( 1 )                                                     \r\n        CALL DSGEFL                                                             \r\n        IF ( BLOCK( 8 ) .NE. -1 ) GO TO 100                                     \r\n10      IF ( ( INDCLR-INDBAS+1 ) .GT. LCW ) CALL DSMSG( 113 )                   \r\n        ID = IAND( IBASE( INDCLR ), MASKQ1 )                                    \r\n        IF ( ID .EQ. IDSSB ) GO TO 30                                           \r\n        IF ( ID .EQ. IDSEB ) GO TO 20                                           \r\n        CALL DSMSG ( 110 )                                                      \r\n20      CALL DSRDNB                                                             \r\n        GO TO 10                                                                \r\n30      ID = IAND( IBASE( INDCBP+1 ), MASKQ1 )                                  \r\n        IF ( ID .EQ. IDSCH ) GO TO 40                                           \r\n        CALL DSMSG1( BLOCK )                                                    \r\n        CALL DSMSG( 111 )                                                       \r\n40      CONTINUE                                                                \r\n        INDCBP = INDCBP + 1                                                     \r\n        CALL DSPRCL( BLOCK )                                                    \r\n        INDCBP = INDCBP + 2                                                     \r\n        BLOCK( 8 ) = 0                                                          \r\n100     ID = IAND( IBASE( INDCBP ), MASKQ1 )                                    \r\n        INDCBP = INDCBP + 1                                                     \r\n        IF ( ID .EQ. IDSSH ) GO TO 130                                          \r\n        IF ( ID .EQ. IDSSD ) GO TO 100                                          \r\n        IF ( ID .EQ. IDSCT ) GO TO 120                                          \r\n        IF ( ID .EQ. IDSSE ) GO TO 110                                          \r\n        IF ( ID .EQ. IDSRT ) GO TO 110                                          \r\n        CALL DSMSG ( 112 )                                                      \r\n110     CALL DSRDNB                                                             \r\n        INDCBP = INDCBP + 1                                                     \r\n        GO TO 100                                                               \r\n120     CALL DSSKRC                                                             \r\n        BLOCK( 6 ) = 0                                                          \r\n        BLOCK( 8 ) = 1                                                          \r\n        IRETRN     = 1                                                          \r\n        GO TO 7000                                                              \r\n130     BLOCK( 4 ) = IBASE( INDCBP )                                            \r\n        BLOCK( 6 ) = IAND( IBASE( INDCBP-1 ), MASKH2 )                          \r\n        INDCBP     = INDCBP + 1                                                 \r\n        BLOCK( 5 ) = ( INDCBP-1 ) / BLOCK( 14 ) + 1                             \r\n7000    CALL DSSDCB                                                             \r\n        IF ( IRETRN .EQ. 1 ) RETURN 1                                           \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/geturn.f",
    "content": "        SUBROUTINE GETURN ( NAMFIL )                                            \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        COMMON / XFIST  / IFSTMX, IFSTCA, IFIST( 100 )                          \r\n        COMMON / XFIAT  / IFATUF, IFATMX, IFATCA, IFIAT( 640 )                  \r\n        COMMON / XXFIAT / IXFIAT( 19 )                                          \r\n        INTEGER*2         IUNIT                                                 \r\n        COMMON / DSUNIT / IUNIT( 220 )                                          \r\n        DATA  MASK / '00007FFF'X /                                             \r\n        IF ( NAMFIL .EQ. LASNAM .AND. IFILEX .NE. 0 ) GO TO 20                  \r\n        IFILEX = 0                                                              \r\n        LIM = 2 * IFSTCA - 1                                                    \r\n        DO 15 IFST = 1, LIM, 2                                                  \r\n        IF ( NAMFIL .NE. IFIST( IFST ) ) GO TO 15                               \r\n        IF ( NAMFIL .GE. 101 .AND. NAMFIL .LE. 320 ) GO TO 10                   \r\n        IF ( IFIST( IFST + 1 ) .GT. 0 ) GO TO 5                                 \r\n        IFILEX = IXFIAT( IABS( IFIST( IFST+1 ) ) + 1 )                          \r\n        IF (IFILEX .LE. MAXPRI) GO TO 20                                        \r\n   2    IFILEX = 0                                                              \r\n        GO TO 200                                                               \r\n   5    IFILEX = IAND( IFIAT( IFIST( IFST+1 ) - 2 ), MASK )                     \r\n        GO TO 20                                                                \r\n   10   IFILEX = IAND( IFIAT( IFIST( IFST+1 ) - 2 ), MASK )                     \r\n        IF (IFILEX .GT. MAXPRI) GO TO 2                                         \r\n        IUNIT( NAMFIL-100 ) = IFILEX                                            \r\n        GO TO 20                                                                \r\n   15   CONTINUE                                                                \r\n        GO TO 200                                                               \r\n   20   IPRVOP = FCB( 1, IFILEX )                                               \r\n        IF ( IPRVOP .EQ. 2 ) IPRVOP = 0                                         \r\n        NLR    = FCB( 3, IFILEX )                                               \r\n        NBLOCK = FCB( 4, IFILEX )                                               \r\n        LASNAM = NAMFIL                                                         \r\n  200   CONTINUE                                                                \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/gnfiat.f",
    "content": "        SUBROUTINE GNFIAT\r\nC\r\nC\r\nC    FORMAT OF THE MEMBER DATASET FILE CONTROL BLOCK (MDSFCB)\r\nC          (ONE ENTRY FOR EVERY FILE)\r\nC   0             8            16             24                 31\r\nC   ***************************************************************\r\nC 1 *                      OPEN FLAG                              *\r\nC   ***************************************************************\r\nC 2 *                     CURRENT  DSN                            *\r\nC   ***************************************************************\r\nC 3 *        PREVIOUS DSN       *          NEXT DSN               *\r\nC   ***************************************************************\r\nC\r\nC   FORMAT OF THE FCB\r\nC   ***************************************************************\r\nC 1 *                    OPEN FLAG (0 - READ, 1 - WRITE )         *\r\nC   ***************************************************************\r\nC 2 *                   BUFFER ADDRESS                            *\r\nC   ***************************************************************\r\nC 3 *               CURRENT LOGICAL RECORD (CLR)                  *\r\nC   ***************************************************************\r\nC 4 *                 CURRENT BLOCK NUMBER                        *\r\nC   ***************************************************************\r\nC 5 *              FIRST BLOCK NUMBER ON EXTERNAL FILE            *\r\nC   ***************************************************************\r\nC 6 *               LAST BLOCK NUMBER ON EXTERNAL FILE            *\r\nC   ***************************************************************\r\nC 7 *          NUMBER OF BLOCKS ALLOCATED TO THIS FILE            *\r\nC   ***************************************************************\r\nC 8 *     FLAG FOR WRITING THE FIRST COLUMN ON FILE (0-NO, 1=YES) *\r\nC   ***************************************************************\r\nC 9 *              INDEX TO FIRST IN-MEMORY BLOCK                 *\r\nC   ***************************************************************\r\nC10 *               INDEX TO LAST IN-MEMORY BLOCK                 *\r\nC   ***************************************************************\r\nC11 *             INDEX TO CURRENT IN-MEMORY BLOCK                *\r\nC   ***************************************************************\r\nC12 *            ORIGINAL BUFFER ADDRESS (ON OPEN)                *\r\nC   ***************************************************************\r\nC13 *                    DMAP FILE NAME                           *\r\nC14 *                                                             *\r\nC   ***************************************************************\r\nC15 *               OPEN FLAG FOR EXTERNAL FILE                   *\r\nC   ***************************************************************\r\nC16 *           TOTAL NUMBER OF STRINGS IN THIS MATRIX            *\r\nC   ***************************************************************\r\nC17 *             TOTAL NUMBER OF TERMS IN THIS MATRIX            *\r\nC   ***************************************************************\r\nC\r\nC\r\nC\r\nC\r\nC                          I/O BUFFER FORMAT\r\nC   ***************************************************************\r\nC 1 *                       DMAP FILE NAME                        *\r\nC   ***************************************************************\r\nC 2 *                             CBP                             *\r\nC   ***************************************************************\r\nC 3 *                             CLR                             *\r\nC   ***************************************************************\r\nC 4 *                        BLOCK NUMBER                         *\r\nC   ***************************************************************\r\nC 5 *                             LCW                             *\r\nC   ***************************************************************\r\nC 6 *          I/O BUFFER (4 THRU NBUFF+3 ARE WRITTEN)            *\r\nC   ***************************************************************\r\nC   *                                                             *\r\nC   ***************************************************************\r\nC\r\nC\r\nC\r\nC\r\nC                        I/O BUFFER CONTROL WORDS\r\nC  DEFINITION WORD        0         8        16         24       31\r\nC                         *****************************************\r\nC   RECORD HEADER         *  '11'   *  FLAG   *  NUMBER OF WORDS  *\r\nC                         *****************************************\r\nC   RECORD TRAILER        *  '77'   *  FLAG   *        CLR        *\r\nC                         *****************************************\r\nC   STRING DATA           *  '22'   *  FLAG   *  NUMBER OF WORDS  *\r\nC                         *****************************************\r\nC   EOB STRING            *  '7F'   *  FLAG   *                   *\r\nC                         *****************************************\r\nC   COLUMN HEADER         *  '3B'   *         *  FORMAT  *  TYPE  *\r\nC                         *****************************************\r\nC                         *            COLUMN NUMBER              *\r\nC                         *****************************************\r\nC   COLUMN TRAILER        *  '3F'   *         *  FORMAT  *  TYPE  *\r\nC                         *****************************************\r\nC                         *            COLUMN NUMBER              *\r\nC                         *****************************************\r\nC   STRING HEADER         *  '4B'   *         *  NUMBER OF TERMS  *\r\nC                         *****************************************\r\nC                         *             ROW NUMBER                *\r\nC                         *****************************************\r\nC   STRING TRAILER        *  '4E'   *         *  NUMBER OF TERMS  *\r\nC                         *****************************************\r\nC                         *             ROW NUMBER                *\r\nC                         *****************************************\r\nC   DUMMY STRING          *  'DD'   *                             *\r\nC                         *****************************************\r\nC   END OF BLOCK          *  'EB'   *                             *\r\nC                         *****************************************\r\nC                         *  'EF'   *                             *\r\nC                         *****************************************\r\nC\r\nC          FLAG   =  C-COMPLETE, E-EXTENDED, F-FURTHER EXTENDED\r\nC          TYPE   =  1-RSP, 2-RDP, 3-CSP, 4-CDP\r\nC          FORMAT =  1-TRAILERS, 0-NO TRAILERS\r\nC\r\n*    IPERM OF /SYSTEM/ HAS BITS DESIGNATED FOR THE FOLLOWING FILES\r\n*\r\n*               BIT                     FILE\r\n*               7                       INPT\r\n*               8-16                    INP1-INP9\r\n*\r\n* //////////////////////////////////////////////////////////////////\r\n*\r\n*     PERMANENT FILES IN /XXFIAT/ ARE ALLOCATED ACCORDING TO THE\r\n*     FOLLOWING:\r\n*\r\n*       XFIAT(1) = UNIT FOR POOL = 22\r\n*       XFIAT(2) = UNIT FOR OPTP = 7\r\n*       XFIAT(3) = UNIT FOR NPTP = 8\r\n*       XFIAT(8) = UNIT FOR INPT = 16\r\n*       XFIAT(9) = UNIT FOR INP1 = 17\r\n*       XFIAT(10)= UNIT FOR INP2 = 18\r\n*       XFIAT(11)= UNIT FOR INP3 = 19\r\n*       XFIAT(12)= UNIT FOR INP4 = 20\r\n*       XFIAT(13)= UNIT FOR INP5 = 21\r\n*       XFIAT(18)= UNIT FOR XPTD = 9\r\n*\r\n*              FORTRAN UNITS ARE ASSIGNED AS FOLLOWS:\r\n*\r\n*                 PUNCH = 1\r\n*                 LINK  = 2\r\n*                 LOG   = 3\r\n*                 RDICT = 4\r\n*                 INPUT = 5\r\n*                 OUTPUT= 6\r\n*                 PLOT  = 10\r\n*                 UT1   = 11\r\n*                 UT2   = 12\r\n*                 UT3   = 13\r\n*                 UT4   = 14\r\n*                 UT5   = 15\r\n*                 SOF   = 90\r\n* /////////////////////////////////////////////////////////////////\r\nC\r\n        INCLUDE           'NASNAMES.COM'\r\n        INCLUDE           'DSIOF.COM'\r\n        INCLUDE           'GINOX.COM'\r\n        COMMON / XFIAT  / IFUFA   , IFMXE   , IFCAE   , FIAT(640)\r\n        COMMON / XPFIST / NPFIST\r\n        COMMON / XXFIAT / XFIAT(19)\r\n        COMMON / SYSTEM / ISYSBF  , DUM1(43), IPERM  , DUM2(110),\r\n     *                    INMBLK\r\n        INTEGER*2         IUNIT\r\n        COMMON / DSUNIT / IUNIT(220)\r\n        INTEGER           FIAT    , XFIAT, ANDF\r\nC\r\n        EQUIVALENCE       (DUM1(1), NOUT)\r\nC\r\n        CALL DSIODD\r\n        IFUFA   = 0\r\n        IDSLIM = INMBLK\r\n        NUMBLK = 1\r\n        IF( LENWPB .NE. 0 ) NUMBLK = ISYSBF / LENWPB\r\n        DO 15 I = 1, NUMSOF\r\n        LENSOF( I ) = 0\r\n   15   CONTINUE\r\n        DO 16 I = 1, MAXFCB\r\n        MDSFCB( 1,I ) = 0\r\n        MDSFCB( 2,I ) = 0\r\n        MDSFCB( 3,I ) = 0\r\n   16   CONTINUE\r\n        DO 20 I = 1, MAXFCB\r\n        DO 17 K = 1, 17\r\n        FCB( K, I ) = 0\r\n   17   CONTINUE\r\n        FCB( 7,I ) = 20000000\r\n   20   CONTINUE\r\n        DO 30 I =1, 220\r\n        IUNIT( I ) = 0\r\n   30   CONTINUE\r\n        IF (ANDF(4, IPERM) .EQ. 0) GO TO 40\r\n        MDSNAM( 8 ) = NPTP\r\n   40   MDSNAM( 7 ) = OPTP\r\n        DO 50 I = 1, NPFIST\r\n        XFIAT( I ) = 4095\r\n   50   CONTINUE\r\n        DO 60 I = 7, 22\r\n        IF ( DSNAMES( I ) .EQ. 'none' ) GO TO 60\r\n        IF ( DSNAMES( I ) .EQ. 'NONE' ) GO TO 60\r\n        CALL DSINQR ( DSNAMES( I ), ISTAT, ISIZE )\r\n        IF (ISTAT.EQ.0) GO TO 60\r\n        FCB( 3,I ) = 6\r\n        FCB( 4,I ) = 1\r\n        FCB( 5,I ) = 1\r\n        FCB( 6,I ) = FCB(7,I)\r\n        IF ( I .EQ. 7 ) XFIAT( 2 ) = 7\r\n   60   CONTINUE\r\n        DO 70 I = 23, MAXPRI\r\n        IFUFA = IFUFA + 1\r\n        IND   = IFUFA * 11 - 10\r\n        FIAT( IND ) = I\r\n   70   CONTINUE\r\n        XFIAT( 1 ) = 22\r\n        XFIAT( 3 ) =  8\r\n        XFIAT( 8 ) = 16\r\n        XFIAT( 9 ) = 17\r\n        XFIAT( 10) = 18\r\n        XFIAT( 11) = 19\r\n        XFIAT( 12) = 20\r\n        XFIAT( 13) = 21\r\n        XFIAT( 18) =  9\r\n        IFCAE  = IFUFA\r\n  700   RETURN\r\n        END\r\n"
  },
  {
    "path": "mds/ibmopn.f",
    "content": "      SUBROUTINE IBMOPN (*,*,LU,FNAME)        \r\nC        \r\nC     THIS MDS SUBROUTINE OPENS AN IBM FORTRAN LOGICAL UNIT WHICH HAS   \r\nC     NOT BEEN ASSIGNED EXTERNALLY.        \r\nC        \r\nC     THIS SUBROUTINE USES THE FOLLOWING 3 IBM SYSTEM ROUTINES:        \r\nC        \r\nC     IQZDDN - TO DETERMINE WHETHER FILE ALREADY EXISTS OR NOT        \r\nC     QQDCBF - TO DYNAMICALLY BUILD AN ATTRIBUTE LIST BY DDNAME        \r\nC     QQGETF - TO DYNAMICALLY ALLOCATE FILE IN TSO OR BATCH        \r\nC        \r\nC     ALTERNATE RETURN 1: FILE OPENED SUCESSFULLY        \r\nC     ALTERNATE RETURN 2: ERROR OPENING FILE        \r\nC        \r\n      CHARACTER  FNAME*8, OLD*3, NEW*3, ODNW*3        \r\n      DATA       OLD, NEW / 'OLD', 'NEW' /        \r\nC        \r\n      ISTUS = IQZDDN(FNAME)        \r\n      ODNW  = OLD        \r\n      IF (ISTUS .NE. 0) GO TO 10        \r\n      ODNW = NEW        \r\n      CALL QQDCBF (FNAME,0,'F  ',80,80,DA)        \r\n   10 CALL QQGETF (LU,FNAME,IERR)        \r\n      IF (IERR .NE. 0) GO TO 20        \r\n      OPEN (UNIT=LU,FILE=FNAME,STATUS=ODNW,ERR=20)        \r\n      RETURN 1        \r\nC        \r\nC     ERROR        \r\nC        \r\n   20 RETURN 2        \r\n      END        \r\n"
  },
  {
    "path": "mds/intpk.f",
    "content": "        SUBROUTINE INTPK ( *, FILE, BLOCK, ITYPOT, IFLAG )                      \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n        COMMON / ZNTPKX / A(4), IROW, IEOL, IENDRC                              \r\n        INTEGER BLOCK( 15 ), FILE                                               \r\n        NAME = FILE                                                             \r\n        IF ( IFLAG .EQ. 0 ) GO TO 10                                            \r\n        CALL DSIPK1( BLOCK, ITYPOT )                                            \r\n        GO TO 700                                                               \r\n10      IEOL = 0                                                                \r\n        IENDRC = 0                                                              \r\n        CALL DSIPK1( IBLKB, ITYPOT )                                            \r\n700     CONTINUE                                                                \r\n        IF ( IRETRN .NE. 0 ) RETURN 1                                           \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/intpki.f",
    "content": "        SUBROUTINE INTPKI ( A, I, FILE, BLOCK, IEOL )                           \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER A(4), BLOCK(15), FILE                                           \r\n        NAME   = FILE                                                           \r\n        IRETRN = 0                                                              \r\n        I = BLOCK( 4 )                                                          \r\n        INDEX  = ( BLOCK(5)-1 )*BLOCK(14) + 1 + BLOCK(7)*BLOCK(11)              \r\n        ITYPOT = BLOCK( 13 )                                                    \r\n        IF ( BLOCK(2) .NE. ITYPOT ) GO TO 50                                    \r\n        NUM = NWRDEL( ITYPOT )                                                  \r\nCDIR$ NOVECTOR                                                                  \r\n        DO 40 KK = 1, NUM                                                       \r\n        A( KK ) = IBASE( INDEX + KK - 1 )                                       \r\n40      CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        GO TO 60                                                                \r\n50      CALL DSUPKC( BLOCK(2), ITYPOT, IBASE( INDEX ), A )                      \r\n60      CONTINUE                                                                \r\n        BLOCK( 4 ) = BLOCK( 4 ) + 1                                             \r\n        BLOCK( 7 ) = BLOCK( 7 ) + 1                                             \r\n        BLOCK(10 ) = BLOCK( 4 )                                                 \r\n        IF ( BLOCK( 7 ) .LT. BLOCK( 6 ) ) GO TO 200                             \r\n        CALL ENDGET( BLOCK )                                                    \r\n        CALL GETSTR( *100, BLOCK )                                              \r\n100     BLOCK( 7 ) = 0                                                          \r\n200     CONTINUE                                                                \r\n        IF ( IRETRN .NE. 0 ) GO TO 300                                          \r\n        IEOL = 0                                                                \r\n        GO TO 700                                                               \r\n300     IEOL = 1                                                                \r\n700     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/k2b.f",
    "content": "      SUBROUTINE K2B (K,B,N)        \r\nC        \r\nC     MOVE ONLY THE APPROPRIATE PORTION OF THIS ROUTINE TO THE MDS GROUP\r\nC        \r\nC     VAX, IBM, UNIX AND UNIVAC VERSION        \r\nC     =================================        \r\nC        \r\nC     TO CONVERT CHARACTER STRING TO BCD WORDS, ONE CHARACTER PER WORD  \r\nC     AND BLANK FILLED. SAME RESULT AS        \r\nC                READ (Kn,10) B        \r\nC             10 FORMAT (nA1)      WHERE Kn IS IN CHARACTER*n        \r\nC        \r\nC     (NOTE - THE INTERNAL FILE READ AND WRITE ARE SLOW IN MOST MACHINES\r\nC             AND IS EXTREMELY SLOW IN CDC)        \r\nC        \r\n      INTEGER     B(1),A        \r\n      CHARACTER*1 K(1),C        \r\n      CHARACTER*4 C4,D4        \r\nC     CHARACTER*n C4,D4        \r\nC         Where n = 4 for IBM, VAX and UNIVAC, 8 for 64-BIT UNIX MACHINE\r\n      EQUIVALENCE (A,C,C4)        \r\n      DATA   D4 / '    ' /        \r\nC        \r\n      C4 = D4        \r\n      I  = 1\r\n 10   C  = K(I)        \r\n      B(I) = A        \r\n      I  = I + 1\r\n      IF (I .LE. N) GO TO 10\r\n      RETURN        \r\nC        \r\n      ENTRY B2K (B,K,N)        \r\nC     =================        \r\nC        \r\nC     TO MERGE FROM ONE-CHARACTER BCD WORDS TO A CHARACTER STRING       \r\nC     SAME RESULT AS        \r\nC                WRITE (Kn,10) B        \r\nC             10 FORMAT (nA1)      WHERE Kn IS IN CHARACTER*n        \r\nC        \r\n      I = 1\r\n 20   A = B(I)        \r\n      K(I) = C        \r\n      I = I + 1\r\n      IF (I .LE. N) GO TO 20\r\n      RETURN        \r\nC        \r\nC        \r\nC     SUBROUTINE K2B (K,B,N)        \r\nC        \r\nC     CDC VERSION        \r\nC     ===========        \r\nC        \r\nC     TO CONVERT CHARACTER STRING TO BCD WORDS, ONE CHARACTER PER WORD  \r\nC     AND BLANK FILLED. SAME RESULT AS        \r\nC                READ (Kn,10) B        \r\nC             10 FORMAT (nA1)      WHERE Kn IS IN CHARACTER*n        \r\nC        \r\nC     (NOTE - THE INTERNAL FILE READ AND WRITE ARE SLOW IN MOST MACHINES\r\nC             AND IS EXTREMELY SLOW IN CDC)        \r\nC        \r\nC     INTEGER K(1),B(1)        \r\nC     DATA    NBPC,NCPW,NCPWP1 / 6, 10, 11  /        \r\nC     DATA    MASK /O\"77000000000000000000\" /        \r\nC        \r\nC     IE = 1 + N/NCPW        \r\nC     KK = 0        \r\nC     DO 40 I = 1,IE        \r\nC     KI = K(I)        \r\nC     DO 30 J = 1,NCPW        \r\nC     KK = KK + 1        \r\nC     IF (KK .GT. N) GO TO 50        \r\nC     B(KK) = AND(KI,MASK)        \r\nC     KI = SHIFT(KI,NBPC)        \r\nC30   CONTINUE        \r\nC40   CONTINUE        \r\nC50   RETURN        \r\nC        \r\nC        \r\nC     ENTRY B2K (B,K,N)        \r\nC     =================        \r\nC        \r\nC     TO MERGE FROM ONE-CHARACTER BCD WORDS TO A CHARACTER STRING       \r\nC     SAME RESULT AS        \r\nC                WRITE (Kn,10) B        \r\nC             10 FORMAT (nA1)      WHERE Kn IS IN CHARACTER*n        \r\nC        \r\nC     IE = 1 + N/NCPW        \r\nC     KK = 0        \r\nC     DO 70 I = 1,IE        \r\nC     KK = KK + 1        \r\nC     KI = AND(B(KK),MASK)        \r\nC     DO 60 J = 2,NCPW        \r\nC     KI = SHIFT(KI,NBPC)        \r\nC     KK = KK + 1        \r\nC     IF (KK .GT. N) GO TO 80        \r\nC     KI = OR(KI,AND(B(KK),MASK))        \r\nC60   CONTINUE        \r\nC70   K(I) = SHIFT(KI,NBPC)        \r\nC     GO TO 90        \r\nC80   J = NCPWP1 - MOD(KK,NCPW)        \r\nC     IF (J .GT. NCPW) J = 1        \r\nC     K(IE) = SHIFT(KI,J*NBPC)        \r\nC90   RETURN        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/khrbcd.f",
    "content": "      SUBROUTINE KHRBCD (KHR80,BCD4)        \r\nC        \r\nC     MOVE ONLY THE APPROPRIATE PORTION OF THIS ROUTINE TO THE MDS GROUP\r\nC        \r\nC     VAX, IBM, AND UNIVAC VERSION        \r\nC     ============================        \r\nC        \r\nC     THESE GROUP OF ROUTINES ARE MAINLY USED BY XREAD, RCARD2, AND     \r\nC     XRCARD IN LINK1        \r\nC        \r\nC     THESE GROUP OF ROUTINES CONVERT CHARACTER STRING (IN KHR100,      \r\nC     KHR80, KHR2), TO BCD4 ARRAY, OF 4 BYTES EACH WORD.        \r\nC     SAME OPERATION AS:        \r\nC        \r\nC           READ (KHRi,15) BCD4        \r\nC        15 FORMAT (20A4),  or (25A4),  or (2A4)        \r\nC        \r\nC     (THE READ OPERATION IS I/O BOUND, AND IS SLOW IN MOST MACHINES)   \r\nC        \r\nC        \r\n      INTEGER         B4(2) ,BCD4(2)        \r\n      CHARACTER*100   KHR100,K100        \r\n      CHARACTER*80    KHR80 ,K80        \r\n      CHARACTER*72    KHR72 ,K72        \r\n      CHARACTER*8     KHR8  ,K8        \r\n      EQUIVALENCE     (K100,K80,K72,K8,B4(1))        \r\nC        \r\nC     ROUTINE KHRBCD (KAR80,BCD4)        \r\nC     ===========================        \r\nC     A80 ---> 20A4        \r\nC        \r\n      K80=KHR80        \r\n      DO 10 I=1,20        \r\n 10   BCD4(I)=B4(I)        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY KHRBC1 (KHR100,BCD4)        \r\nC     ==========================        \r\nC     A100 ---> 25A4        \r\nC        \r\n      K100=KHR100        \r\n      DO 20 I=1,25        \r\n 20   BCD4(I)=B4(I)        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY KHRBC2 (KHR8,BCD4)        \r\nC     ========================        \r\nC     A8 ---> 2A4        \r\nC        \r\n      K8=KHR8        \r\n      BCD4(1)=B4(1)        \r\n      BCD4(2)=B4(2)        \r\n      RETURN        \r\nC        \r\nC        \r\nC     THE FOLLOWING ROUTINES, BCDKHi, CONVERT FROM BCD ARRAY TO        \r\nC     CHARACTER STRING.   SAME OPERATION AS:        \r\nC        \r\nC           WRITE (KHRi,25) BCD4        \r\nC        25 FORMAT (20A4),  or (18A4), or (2A4)        \r\nC        \r\nC     WHERE KHRi IS KHR80, KHR72, OR KHR8 ACCORDINGLY        \r\nC     (THE WRITE OPERATION IS I/O BOUND, AND IS SLOW IN MOST MACHINES)  \r\nC        \r\nC        \r\n      ENTRY BCDKH8 (BCD4,KHR80)        \r\nC     =========================        \r\nC     20A4 ---> A80        \r\nC        \r\n      DO 30 I=1,20        \r\n 30   B4(I)=BCD4(I)        \r\n      KHR80=K80        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY BCDKH7 (BCD4,KHR72)        \r\nC     =========================        \r\nC     18A4 ---> A72        \r\nC        \r\n      DO 40 I=1,18        \r\n 40   B4(I)=BCD4(I)        \r\n      KHR72=K72        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY BCDKH2 (BCD4,KHR8)        \r\nC     ========================        \r\nC     2A4 ---> A8        \r\nC        \r\n      B4(1)=BCD4(1)        \r\n      B4(2)=BCD4(2)        \r\n      KHR8=K8        \r\n      RETURN        \r\nC     END        \r\nC        \r\nC        \r\nC        \r\nC     SUBROUTINE KHRBCD (KHR,BCD4)        \r\nC        \r\nC     CDC VERSION        \r\nC     ===========        \r\nC        \r\nC     THIS GROUP OF ROUTINES ARE CALLED BY XREAD, RCARD2, AND XRCARD    \r\nC        \r\nC     THESE GROUP OF ROUTINES CONVERT CHARACTER STRINGS TO BCD ARRAY,   \r\nC     4 BYTES EACH WORD, AND VISE VERSA.     SIMILARY TO -        \r\nC        \r\nC        METHOD 1:        \r\nC        --------        \r\nC           READ (KHR80,10) BCD4     and       WRITE (KHR72,20) BCD4    \r\nC        10 FORMAT (20A4)                   20 FORMAT (18A4)        \r\nC        \r\nC        METHOD 2:        \r\nC        --------        \r\nC           I2=0                     and       I2=0        \r\nC           DO 10 I=1,NWDS                     DO 20 I=1,NWDS        \r\nC           I1=I2+1                            I1=I2+1        \r\nC           I2=I2+4                            I2=I2+4        \r\nC        10 BCD4(I)(1:4)=KHR(I1:I2)         20 KHR(I1:I2)=BCD4(I)(1:4)  \r\nC        \r\nC     HOWEVER THE INTERNAL-FILE READ AND WRITE (METHOD 1) AND THE       \r\nC     CHARACTER MANIPULATION (METHOD 2) ARE EXTREMELY SLOW IN CDC       \r\nC     (METHOD 1 IS ABOUT 18 TIMES SLOWER THAN SHIFT/AND/OR OPERATIONS   \r\nC     THAT ACCOMPLISH THE SAME THING. METHOD 2 IS 2 TO 4 TIMES SLOWER)  \r\nC        \r\nC     THE CALLING ROUTINES ACTUALLY PASS THE KHR ARGUMENTS IN CHARACTER \r\nC     STRINGS (CHARACTER*100, CHARACTER*80, CHARACTER*2), WHEREAS, THEY \r\nC     ARE PICKED UP HERE IN THIS ROUTINE AS INTEGER-BCD ARRAYS, 10 BYTES\r\nC     EACH WORDS. ONLY THE FIRST 4 BYTES ARE USED IN NASTRAN.        \r\nC        \r\nC     (THE FOLLOWING CODE ASSUMES NO BREAK ON THE 1ST AND 4TH BCD WORDS \r\nC     IN A GROUP OF 5)        \r\nC        \r\nC     INPUT  - KHR  = CHARACTER STRING IN CHARACTER*80, CHARACTER*100,  \r\nC                     AND CHARACTER*2        \r\nC     OUTPUT - BCD4 = BCD ARRAYS (OF DIMENSION NWDS)        \r\nC                     EACH BCD4 WORD HOLDS ONLY 4 BYTES OF DATA        \r\nC        \r\nC     INTEGER       BCD4(1),KHR(1),BLANK,BLK90        \r\nC                                     1 2 3 4 5 6 7 8 9 10        \r\nC     DATA          M1234,M12,M34 / O\"77777777000000000000\",        \r\nC    1                              O\"77770000000000000000\",        \r\nC    2                              O\"00007777000000000000\"/        \r\nC     DATA          M5678,M90     / O\"00000000777777770000\",        \r\nC    1                              O\"00000000000000007777\"/        \r\nC     DATA          M3456,M7890   / O\"00007777777700000000\",        \r\nC    1                              O\"00000000000077777777\"/        \r\nC     DATA          BLANK,BLK90   / O\"00000000555555555555\",        \r\nC    1                              O\"00000000000000005555\"/        \r\nC                                     1 2 3 4 5 6 7 8 9 10        \r\nC        \r\nC     SUBROUTINE KHRBCD (KHR,BCD4)        \r\nC     ============================        \r\nC     A80 ----> 20A4        \r\nC        \r\nC     NWDS = 20        \r\nC     GO TO 40        \r\nC        \r\nC        \r\nC     ENTRY KHRBC1 (KHR,BCD4)        \r\nC     =======================        \r\nC     A100 ----> 25A4        \r\nC        \r\nC     NWDS = 25        \r\nC     GO TO 40        \r\nC        \r\nC        \r\nC     ENTRY KHRBC2 (KHR,BCD4)        \r\nC     =======================        \r\nC     A8 ----> 2A4        \r\nC        \r\nC     NWDS = 2        \r\nC        \r\nC40   I   =-5        \r\nC     II  = 0        \r\nC50   I   = I+5        \r\nC     IF (I .GE. NWDS) GO TO 80        \r\nC     II  = II+1        \r\nC     NW1 = KHR(II)        \r\nC     NN  = AND(NW1,M1234)        \r\nC     BCD4(I+1) = OR(NN,BLANK)        \r\nC     NW1 = SHIFT(NW1,24)        \r\nC     NN  = AND(NW1,M1234)        \r\nC     BCD4(I+2) = OR(NN,BLANK)        \r\nC     IF (I+2 .GE. NWDS) GO TO 80        \r\nC     NW1 = SHIFT(NW1,24)        \r\nC     II=II+1        \r\nC     NW2 = KHR(II)        \r\nC     IF (I+3 .LT. NWDS) GO TO 60        \r\nC     NW2 = SHIFT(NW2,-12)        \r\nC     GO TO 70        \r\nC60   NW2 = SHIFT(NW2,12)        \r\nC     NN  = AND(NW2,M1234)        \r\nC     BCD4(I+4) = OR(NN,BLANK)        \r\nC     NW2 = SHIFT(NW2,24)        \r\nC     NN  = AND(NW2,M1234)        \r\nC     BCD4(I+5) = OR(NN,BLANK)        \r\nC     NW2 = SHIFT(NW2,12)        \r\nC70   NW1 = AND(NW1,M12)        \r\nC     NW2 = AND(NW2,M34)        \r\nC     NN  = OR(NW1,NW2)        \r\nC     BCD4(I+3) = OR(NN,BLANK)        \r\nC     GO TO 50        \r\nC80   CONTINUE        \r\nC     GO TO 140        \r\nC        \r\nC        \r\nC     ENTRY BCDKH8 (BCD4,KHR)        \r\nC     =======================        \r\nC     20A4 ----> A80        \r\nC        \r\nC     INPUT  - BCD4 = BCD ARRAYS (OF DIMENSION NWDS). BCD DATA ARE IN   \r\nC                     A4 FORMAT        \r\nC     OUTPUT - KHR  = CHARACTER STRING IN CHARACTER*80, CHARACTER*100,  \r\nC                     AND CHARACTER*2        \r\nC        \r\nC     NWDS = 20        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY BCDKH7 (BCD4,KHR)        \r\nC     =======================        \r\nC     18A4 ----> A72        \r\nC        \r\nC     NWDS = 18        \r\nC     GO TO 100        \r\nC        \r\nC     ENTRY BCDKH2 (BCD4,KHR)        \r\nC     =======================        \r\nC     2A4 ----> A8        \r\nC        \r\nC     NWDS = 2        \r\nC        \r\nC100  I   =-5        \r\nC     II  = 0        \r\nC110  I   = I+5        \r\nC     IF (I .GE. NDWS) GO TO 140        \r\nC     II  = II+1        \r\nC     NW1 = AND(BCD4(I+1),M1234)        \r\nC     NW2 = SHIFT(BCD4(I+2),-24)        \r\nC     NW2 = AND(NW2,M5678)        \r\nC     KHR(II) = OR(NW1,NW2)        \r\nC     IF (I+2 .GE. NWDS) GO TO 120        \r\nC     NW3 = SHIFT(BCD4(I+3),12)        \r\nC     NW2 = AND(NW3,M90)        \r\nC     KHR(II) = OR(KHR(II),NW2)        \r\nC     II  = II+1        \r\nC     KHR(II) = AND(NW3,M12)        \r\nC     NW3 = SHIFT(BCD4(I+4),-12)        \r\nC     NW1 = AND(NW3,M3456)        \r\nC     NM3 = SHIFT(BCD4(I+5),-36)        \r\nC     NW2 = AND(NW3,M7890)        \r\nC     NW3 = OR(NW1,NW2)        \r\nC     KHR(II) = OR(KHR(II),NW3)        \r\nC     GO TO 110        \r\nC120  KHR(II) = OR(KHR(II),BLK90)        \r\nC        \r\nC140  RETURN        \r\nC     END        \r\nC        \r\nC        \r\nC     SUBROUTINE KHRBCD (KHR80,BCD4)        \r\nC        \r\nC     64-BIT MACHINE, UNIX VERSION        \r\nC     ============================        \r\nC        \r\nC     THIS GROUP OF ROUTINES ARE CALLED BY XREAD, RCARD2, AND XRCARD    \r\nC        \r\nC     CHARACTER*100 KHR100, KDUM        \r\nC     CHARACTER*80  KHR80 , K80        \r\nC     CHARACTER*72  KHR72 , K72        \r\nC     CHARACTER*8   KHR8  , K8,   BCD4(1)        \r\nC        \r\nC     EQUIVALENCE   (KDUM,K100,K80,K72,K8)        \r\nC        \r\nC        \r\nC     SUBROUTINE KHRBCD (KHR80,BCD4)        \r\nC     ==============================        \r\nC     A80 ----> 20A4        \r\nC        \r\nC     K80  = KHR80        \r\nC     NWDS = 20        \r\nC     GO TO 100        \r\nC        \r\nC        \r\nC     ENTRY KHRBC1 (KHR100,BCD4)        \r\nC     ==========================        \r\nC     A100 ----> 25A4        \r\nC        \r\nC     KDUM = KHR100        \r\nC     NWDS = 25        \r\nC     GO TO 100        \r\nC        \r\nC        \r\nC     ENTRY KHRBC2 (KHR8,BCD4)        \r\nC     ========================        \r\nC     A8 ----> 2A4        \r\nC        \r\nC     K8   = KHR8        \r\nC     NWDS = 2        \r\nC        \r\nC 100 I2 = 0        \r\nC     DO 200 I = 1,NWDS        \r\nC     I1 = I2 + 1        \r\nC     I2 = I2 + 4        \r\nC     BCD4(I) = KDUM(I1:I2)        \r\nC 200 CONTINUE        \r\nC     GO TO 800        \r\nC        \r\nC        \r\nC     ENTRY BCDKH8 (BCD4,KHR80)        \r\nC     =========================        \r\nC     20A4 ----> A80        \r\nC        \r\nC     NWDS  = 20        \r\nC     GO TO 300        \r\nC        \r\nC        \r\nC     ENTRY BCDKH7 (BCD4,KHR72)        \r\nC     =========================        \r\nC     18A4 ----> A72        \r\nC        \r\nC     NWDS = 18        \r\nC     GO TO 300        \r\nC        \r\nC        \r\nC     ENTRY BCDKH2 (BCD4,KHR8)        \r\nC     ========================        \r\nC     2A4 ----> A8        \r\nC        \r\nC     NWDS = 2        \r\nC        \r\nC 300 I2 = 0        \r\nC     DO 400 I = 1,NWDS        \r\nC     I1 = I2 + 1        \r\nC     I2 = I2 + 4        \r\nC     KDUM(I1:I2) = BCD4(I)        \r\nC 400 CONTINUE        \r\nC     IF (NWDS-18) 500,600,700        \r\nC        \r\nC 500 KHR8 = K8        \r\nC     GO TO 800        \r\nC        \r\nC 600 KHR72 = K72        \r\nC     GO TO 800        \r\nC        \r\nC 700 KHR80 = K80        \r\nC 800 RETURN        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/khrfn1.f",
    "content": "      INTEGER FUNCTION KHRFN1 (WORD1,I,WORD2,J)        \r\nC        \r\nC     CHARACTER-FUNCTIONS 1,2,3,4, AND 5 WERE WRITTEN BY G.CHAN/UNISYS  \r\nC     TO STANDARDIZE NASTRAN BCD-WORD BYTE PROCESSING.        \r\nC        \r\nC     NOTE - THE INPUT WORD(S) ARE INTEGERS OR REALS, HOLDING BCD TYPE  \r\nC            DATA. (NOT CHARACTER)        \r\nC            BYTE COUNTS FROM LEFT TO RIGHT        \r\nC        \r\nC     THESE FIVE CHARACTER FUNCTIONS ARE COMPLETELY MACHINE INDEPENDENT \r\nC        \r\nC     KHRFN1 REPLACES THE I-TH BYTE OF WORD 1 BY THE J-TH BYTE OF WORD2 \r\nC     E.G.   WORD1=ABCD,    WORD2=1234        \r\nC            KHRFN1(WORD1,3,WORD2,2) GIVES  AB2D        \r\nC        \r\nC     ABSOLUTE VALUES OF I AND J ARE USED        \r\nC        \r\nC     THE CODE BELOW WORKS WITH ALL MACHINES.  HOWEVER, SEE THE        \r\nC     SIMPLIFIED VERSION FURTHER DOWN.        \r\nC        \r\nC     INTEGER      WORD1(1),WORD2(1),TEMP(2)        \r\nC     CHARACTER*8  TEMP8        \r\nC        \r\nC     TEMP(1) = WORD1(1)        \r\nC     TEMP(2) = WORD2(1)        \r\nC     CALL BCDKH2 (TEMP,TEMP8)        \r\nC     II = IABS(I)        \r\nC     JJ = IABS(J) + 4        \r\nC     TEMP8(II:II) = TEMP8(JJ:JJ)        \r\nC     CALL KHRBC2 (TEMP8,TEMP)        \r\nC     KHRFN1 = TEMP(1)        \r\nC        \r\nC     SIMPLIFIED VERSION        \r\nC        \r\nC     FOR MACHINES (CDC, IBM, VAX, AND GRAY) THAT ALLOW EQUIVALENCE     \r\nC     BETWEEN CHARACTERS AND INTEGER VARIABLES, THE FOLLOWING SIMPLIFIED\r\nC     CODE CAN BE USED.        \r\nC        \r\n      INTEGER      WORD1(1),WORD2(1),TEMP1,TEMP2        \r\n      CHARACTER*4  TEMPC1,TEMPC2        \r\nC     CHARACTER*n  TEMPC1,TEMPC2        \r\nC        (WHERE n is 10 for CDC, 8 for 64-BIT UNIX and        \r\nC                     4 for VAX and IBM)        \r\n      EQUIVALENCE (TEMP1,TEMPC1), (TEMP2,TEMPC2)        \r\nC        \r\n      TEMP1 = WORD1(1)        \r\n      TEMP2 = WORD2(1)        \r\n      II = IABS(I)        \r\n      JJ = IABS(J)        \r\n      TEMPC1(II:II) = TEMPC2(JJ:JJ)        \r\n      KHRFN1 = TEMP1        \r\n      RETURN        \r\nC\r\nC     DEC/ULTRIX VERSION\r\nC     ==================\r\nC     THE ABOVE VAX VERSION DOES NOT WORK IN DEC/ULTRIX(RISC)\r\nC\r\nC     INTEGER     TEMP1,TEMP2,WORD1,WORD2\r\nC     CHARACTER*1 TMP1(4),TMP2(4)\r\nC     EQUIVALENCE (TEMP1,TMP1(1)),(TEMP2,TMP2(1))\r\nC\r\nC     TEMP1 = WORD1\r\nC     TEMP2 = WORD2\r\nC     II = IABS(I)\r\nC     JJ = IABS(J)\r\nC     TMP1(II) = TMP2(JJ)\r\nC     KHR = TEMP1\r\nC     RETURN\r\nC        \r\nC     CDC VERSION        \r\nC     ===========        \r\nC     THE CHARACTER OPERATIONS IN CDC MACHINE ARE EXTREMELY SLOW.       \r\nC     THE FOLLOWING CODE, USING SHIFT/AND/OR IS 2 TO 3 TIMES        \r\nC     FASTER        \r\nC        \r\nC     INTEGER       WORD1,WORD2,MASK1(4),MASK2(4),BLANK        \r\nC     DATA  MASK1 / O\"77000000000000000000\", O\"00770000000000000000\",   \r\nC    1              O\"00007700000000000000\", O\"00000077000000000000\"/   \r\nC     DATA  MASK2 / O\"00777777000000000000\", O\"77007777000000000000\",   \r\nC    1              O\"77770077000000000000\", O\"77777700000000000000\"/   \r\nC     DATA  BLANK / O\"00000000555555555555\"/        \r\nC        \r\nC     II = IABS(I)        \r\nC     JJ = IABS(J)        \r\nC     KK = (JJ-II)*6        \r\nC     JJ = SHIFT(WORD2,KK)        \r\nC     KK = AND(JJ,MASK1(II))        \r\nC     JJ = AND(WORD1,MASK2(II))        \r\nC     II = OR(JJ,KK)        \r\nC     KHRFN1 = OR(II,BLANK)        \r\nC     RETURN        \r\nC        \r\nC        \r\nC     UNIVAC VERSION (1988 ORIGINAL)        \r\nC     ==============================        \r\nC        \r\nC     INTEGER     WORD1(1),WORD2(1)        \r\nC     CHARACTER   W1(8)*1 ,W4*4, W8*8        \r\nC     EUIVALENCE  (W1(1),W4,W8)        \r\nC        \r\nC     WRITE  (W8,10) WORD1(1),WORD2(1)        \r\nC  10 FORMAT (2A4)        \r\nC     II = IABS(I)        \r\nC     JJ = IABS(J) + 4        \r\nC     W1(II) = W1(JJ)        \r\nC     READ (W4,20) KHRFN1        \r\nC  20 FORMAT (A4)        \r\nC     RETURN        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/khrfn4.f",
    "content": "      INTEGER FUNCTION KHRFN4 (WORD)        \r\nC        \r\nC     REVERSE BYTES FOR SORTING (USED MAINLY BY THE VAX MACHINE)        \r\nC        \r\n      INTEGER      WORD(1),  W1,    W2        \r\n      CHARACTER*1  C1(4),    C2(4)        \r\n      EQUIVALENCE (C1(1),W1),(C2(1),W2)        \r\nC        \r\n      W1=WORD(1)        \r\n      C2(1)=C1(4)        \r\n      C2(2)=C1(3)        \r\n      C2(3)=C1(2)        \r\n      C2(4)=C1(1)        \r\n      KHRFN4=W2        \r\n      RETURN        \r\nC        \r\nC     CDC VERSION        \r\nC     ===========        \r\nC        \r\nC     CHARACTER*1 WORD(10),C2(10)        \r\nC        \r\nC     C2(1)=WORD(4)        \r\nC     C2(2)=WORD(3)        \r\nC     C2(3)=WORD(2)        \r\nC     C2(4)=WORD(1)        \r\nC     DO 10 J=5,10        \r\nC 10  C2(J)=WORD(J)        \r\nC     KHRFN4=ISWAP(C2)        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/klock.f",
    "content": "      SUBROUTINE KLOCK (ICPUSC)\r\nC\r\nC     THIS SUBROUTINE OBTAINS THE CURRENT CPU TIME AS AN INTEGER VALUE\r\nC\r\n      CALL CPUTIM (ICPUSC, ICPUSC, 0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/mapfns.f",
    "content": "      FUNCTION MAPFNS (I)        \r\nC        \r\nC     THIS FUNCTION PROVIDES ENTRIES FOR VARIOUS FUNCTIONS        \r\nC     ON THE VAX VERSION OF NASTRAN        \r\nC     (THIS ROUTINE WAS PREVIOUSLY CALLED 'VAXFNS')        \r\nC        \r\n      INTEGER AND, ANDF, COMPLF, ORF, RSHIFT, XORF        \r\n      COMMON /MACHIN/ M(3), LQRO        \r\nC        \r\n      MAPFNS = 0\r\n      RETURN        \r\nC        \r\n      ENTRY AND (I,J)        \r\nC     ==============        \r\n      AND = IAND(I,J)        \r\n      RETURN        \r\nC        \r\n      ENTRY ANDF (I,J)        \r\nC     ================        \r\n      ANDF = IAND(I,J)        \r\n      RETURN        \r\nC        \r\n      ENTRY COMPLF (I)        \r\nC     ================        \r\n      COMPLF = NOT(I)        \r\n      RETURN        \r\nC        \r\n      ENTRY LOCFX (I)        \r\nC     ===============        \r\n      K = LQRO/1000        \r\n      LOCFX = LOC(I)/K        \r\n      RETURN        \r\nC        \r\n      ENTRY LSHIFT (I,J)        \r\nC     ==================        \r\n      LSHIFT = ISHFT(I,J)        \r\n      RETURN        \r\nC        \r\n      ENTRY ORF (I,J)        \r\nC     ===============        \r\n      ORF = IOR (I,J)        \r\n      RETURN        \r\nC        \r\n      ENTRY RSHIFT (I,J)        \r\nC     ==================        \r\n      RSHIFT = ISHFT(I,-J)        \r\n      RETURN        \r\nC        \r\n      ENTRY XORF (I,J)        \r\nC     ================        \r\n      XORF = IEOR (I,J)        \r\n      RETURN        \r\nC        \r\n      END        \r\n"
  },
  {
    "path": "mds/nasopn.f",
    "content": "      SUBROUTINE NASOPN ( *, LU, DSN )\r\n      CHARACTER*80  IFILE, DSN\r\n      INCLUDE 'NASNAMES.COM'\r\n      LOGICAL IEXIST\r\n      KLEN = INDEX( RFDIR, ' ' )\r\n      IFILE = RFDIR(1:KLEN-1) // '/NASINFO'\r\n      DSN = IFILE\r\n      INQUIRE ( FILE=IFILE, EXIST=IEXIST )\r\n      IF ( .NOT. IEXIST ) GO TO 100\r\n      OPEN ( UNIT=LU, FILE=IFILE, STATUS='OLD', ERR=100 )\r\n      RETURN\r\n100   RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mds/nastim.f",
    "content": "      SUBROUTINE NASTIM (IHR, IMN, ISC, CPUSEC)\r\n      REAL ARRAY(2)\r\n      CALL ETIME(ARRAY)\r\n      SECS   = ARRAY(2)\r\n      IHR    = SECS / 3600.  \r\n      IMN    = ( SECS - 3600.*IHR ) / 60.\r\n      ISC    = SECS - ( 3600.*IHR ) - ( 60.*IMN )\r\n      CPUSEC = SECS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/nastrn.f",
    "content": "      PROGRAM NASTRN        \r\nC        \r\n      CHARACTER*80    VALUE\r\n      CHARACTER*5     TMP\r\n      INTEGER         SPERLK\r\n      REAL            SYSTM(94)\r\n      COMMON / LSTADD / LASTAD\r\n      COMMON / SYSTEM / ISYSTM(94),SPERLK\r\n      COMMON / SOFDSN / SDSN(10)\r\n      COMMON / LOGOUT / LOUT\r\n      COMMON / RESDIC / IRDICT, IROPEN\r\n      COMMON / ZZZZZZ / IZ(14000000)\r\n      COMMON / DBM    / IDBBAS, IDBFRE, IDBDIR, INDBAS, INDCLR, INDCBP\r\n     &,                 NBLOCK, LENALC, IOCODE, IFILEX, NAME,   MAXALC\r\n     &,                 MAXBLK, MAXDSK, IDBLEN, IDBADR, IBASBF, INDDIR\r\n     &,                 NUMOPN, NUMCLS, NUMWRI, NUMREA, LENOPC\r\n      INCLUDE 'NASNAMES.COM'\r\n      CHARACTER*80    SDSN\r\n      EQUIVALENCE    ( ISYSTM, SYSTM )\r\n      LENOPC = 14000000\r\nC        \r\nC     SAVE STARTING CPU TIME AND WALL CLOCK TIME IN /SYSTEM/        \r\nC      \r\n      ISYSTM(18) = 0\r\n      CALL SECOND (SYSTM(18))        \r\n      CALL WALTIM (ISYSTM(32))        \r\nC        \r\nC     EXECUTE NASTRAN SUPER LINK\r\nC        \r\n      LEN = 80\r\n      VALUE = ' '\r\n      CALL BTSTRP\r\n      CALL GETENV ( 'DBMEM', VALUE )\r\n      READ ( VALUE, * ) IDBLEN\r\n      CALL GETENV ( 'OCMEM', VALUE )\r\n      READ ( VALUE, * ) IOCMEM\r\n      IF ( IOCMEM .LE. LENOPC ) GO TO 10\r\n      PRINT *,' LARGEST VALUE FOR OPEN CORE ALLOWED IS:',LENOPC\r\n      CALL MESAGE ( -61, 0, 0 )\r\n10    IF ( IDBLEN .NE. 0 ) IDBLEN = LENOPC - IOCMEM \r\n      LASTAD = LOCFX( IZ( IOCMEM ) )\r\n      IF ( IDBLEN .NE. 0 ) IDBADR = LOCFX( IZ( IOCMEM+1 ) )\r\n      LENOPC = IOCMEM\r\n      CALL DBMINT\r\n      LOUT   = 3\r\n      IRDICT = 4\r\n      SPERLK = 1        \r\n      ISYSTM(11) = 1        \r\n      VALUE = ' '\r\n      CALL GETENV ( 'RFDIR',  RFDIR  )\r\n      VALUE = ' '\r\n      CALL GETENV ( 'DIRCTY', DIRTRY )\r\n      LEN = INDEX( DIRTRY, ' ' ) - 1\r\n      DO 20 I = 1, 90\r\n      IF ( I .LE. 9 ) WRITE ( TMP, 901 ) I\r\n      IF ( I .GT. 9 ) WRITE ( TMP, 902 ) I\r\n901   FORMAT('scr',I1)\r\n902   FORMAT('scr',I2)\r\n      DSNAMES( I ) = DIRTRY(1:LEN)//'/'//TMP\r\n20    CONTINUE\r\n      CALL GETENV ( 'LOGNM', LOG )\r\n      DSNAMES(3) = LOG\r\n      CALL GETENV ( 'OPTPNM', OPTP )\r\n      DSNAMES(7)  = OPTP\r\n      CALL GETENV ( 'NPTPNM', NPTP )\r\n      DSNAMES(8)  = NPTP\r\n      CALL GETENV ( 'FTN11', OUT11 )\r\n      DSNAMES(11) = OUT11\r\n      CALL GETENV ( 'FTN12', IN12 )\r\n      DSNAMES(12) = IN12\r\n      CALL GETENV ( 'FTN13', VALUE )\r\n      DSNAMES(13) = VALUE\r\n      CALL GETENV ( 'FTN14', VALUE )\r\n      DSNAMES(14) = VALUE\r\n      CALL GETENV ( 'FTN15', VALUE )\r\n      DSNAMES(15) = VALUE\r\n      CALL GETENV ( 'FTN16', VALUE )\r\n      DSNAMES(16) = VALUE\r\n      CALL GETENV ( 'FTN17', VALUE )\r\n      DSNAMES(17) = VALUE\r\n      CALL GETENV ( 'FTN18', VALUE )\r\n      DSNAMES(18) = VALUE\r\n      CALL GETENV ( 'FTN19', VALUE )\r\n      DSNAMES(19) = VALUE\r\n      CALL GETENV ( 'FTN20', VALUE )\r\n      DSNAMES(20) = VALUE\r\n      CALL GETENV ( 'FTN21', VALUE )\r\n      DSNAMES(21) = VALUE\r\n      CALL GETENV ( 'PLTNM', PLOT )\r\n      DSNAMES(10) = PLOT\r\n      CALL GETENV ( 'DICTNM', DIC )\r\n      DSNAMES(4) = DIC\r\n      CALL GETENV ( 'PUNCHNM', PUNCH )\r\n      DSNAMES(1) = PUNCH \r\n      CALL GETENV ( 'SOF1', VALUE )\r\n      SDSN(1) = VALUE\r\n      CALL GETENV ( 'SOF2', VALUE )\r\n      SDSN(2) = VALUE\r\n      CALL GETENV ( 'SOF3', VALUE )\r\n      SDSN(3) = VALUE\r\n      CALL GETENV ( 'SOF4', VALUE )\r\n      SDSN(4) = VALUE\r\n      CALL GETENV ( 'SOF5', VALUE )\r\n      SDSN(5) = VALUE\r\n      CALL GETENV ( 'SOF6', VALUE )\r\n      SDSN(6) = VALUE\r\n      CALL GETENV ( 'SOF7', VALUE )\r\n      SDSN(7) = VALUE\r\n      CALL GETENV ( 'SOF8', VALUE )\r\n      SDSN(8) = VALUE\r\n      CALL GETENV ( 'SOF9', VALUE )\r\n      SDSN(9) = VALUE\r\n      CALL GETENV ( 'SOF10', VALUE )\r\n      SDSN(10) = VALUE\r\n      OPEN (  3, FILE=DSNAMES(3) ,STATUS='UNKNOWN')\r\n      IF ( DSNAMES(11) .NE. 'none' )\r\n     & OPEN ( 11, FILE=DSNAMES(11),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(12) .NE. 'none' )\r\n     & OPEN ( 12, FILE=DSNAMES(12),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(10) .NE. 'none' )\r\n     & OPEN ( 10, FILE=DSNAMES(10),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(4) .NE. 'none' )\r\n     & OPEN ( 4, FILE=DSNAMES(4),STATUS='UNKNOWN')\r\n      IF ( DSNAMES(1) .NE. 'none' )\r\n     & OPEN ( 1, FILE=DSNAMES(1),STATUS='UNKNOWN')\r\n      CALL XSEM00       \r\n      STOP\r\n      END        \r\n"
  },
  {
    "path": "mds/numtyp.f",
    "content": "      FUNCTION NUMTYP ( IVALUE )\r\nC\r\n      CHARACTER * 2  BYTE(4)\r\n      CHARACTER * 8  WORD\r\n\r\nC\r\n      EQUIVALENCE    ( BYTE, WORD )\r\nC\r\nC      WRITE(6,40646) IVALUE\r\n40646 FORMAT(' NUMTYP,IVALUE=',Z9)\r\n      IF ( IVALUE .EQ. 0 ) GO TO 200\r\n      WRITE ( WORD, 2000 ) IVALUE\r\n      IF ( BYTE(1) .EQ. '  ' ) GO TO 210\r\n      IF ( BYTE(1) .EQ. '00' ) GO TO 210\r\n      IF ((BYTE(1) .EQ. '07'.OR. BYTE(1) .EQ. ' 7') .AND.\r\n     &     BYTE(2) .EQ. 'FF' .AND.   \r\n     &     BYTE(3) .EQ. 'FF' .AND.   \r\n     &     BYTE(4) .EQ. 'FF' )  GO TO 210\r\n      IF ( BYTE(1) .EQ. '7F' .AND.\r\n     &     BYTE(2) .EQ. 'FF' .AND.   \r\n     &     BYTE(3) .EQ. 'FF' .AND.   \r\n     &     BYTE(4) .EQ. 'FF' )  GO TO 210\r\n\r\n      IF ( BYTE(1) .EQ. 'FF' ) GO TO 210\r\n      DO 100 I = 1, 4\r\n      IF ( BYTE(I) .LT. '1F' .OR. BYTE(I) .GT. '5E' ) GO TO 220\r\n100   CONTINUE\r\n      GO TO 230\r\nC\r\nC     VALUE IS ZERO\r\nC\r\n200   NUMTYP = 0\r\n      GO TO 700\r\nC\r\nC     VALUE IS INTEGER\r\nC\r\n210   NUMTYP = 1\r\n      GO TO 700\r\nC\r\nC     VALUE IS REAL\r\nC\r\n220   NUMTYP = 2\r\n      GO TO 700\r\nC\r\nC     VALUE IS ALPHA\r\nC\r\n230   NUMTYP = 3\r\nC\r\n700   CONTINUE\r\n      RETURN\r\nC*****\r\n2000  FORMAT(Z8)\r\nC*****\r\n      END\r\n"
  },
  {
    "path": "mds/open.f",
    "content": "      SUBROUTINE OPEN(*,NAMFIL,BUFF,OP)                                         \r\nC******                                                                         \r\nC                                                                               \r\nC OPEN IS AN INTERMEDIARY TO ENTRY POINT QOPEN IN SUBROUTINE GINO.              \r\nC THE MAIN TASK OF OPEN IS TO INSURE THAT DATA BLOCKS WHICH WERE                \r\nC WRITTEN AND CLOSED OFF THE LOAD POINT HAVE AN END-OF-FILE BEFORE              \r\nC THEY ARE READ.                                                                \r\nC                                                                               \r\nC******                                                                         \r\n      INTEGER BUFF(1), OP, XOP, XNAME                                           \r\n      COMMON /SYSTEM/ ISYSTM(157)                                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\nC                                                                               \r\nC                                                                               \r\nC TEST FOR CONDITION IN WHICH END-OF-FILE IS TO BE WRITTEN                      \r\nC                                                                               \r\n      DATA INIT / 0 /                                                           \r\n      IF ( INIT .NE. 0 ) GO TO 5                                                \r\n      CALL DSIODD                                                               \r\n      INIT = 1                                                                  \r\n   5  CONTINUE                                                                  \r\n      XNAME = NAMFIL                                                            \r\n      IFILEX = 0                                                                \r\n      CALL GETURN( XNAME )                                                      \r\n      IF(IFILEX.EQ.0)RETURN 1                                                   \r\n   10 IF( OP.EQ.1 .OR. OP.EQ.3 ) GO TO 80                                       \r\n      IF( NBLOCK+NLR .GT. 7 ) GO TO 12                                          \r\n   11 IF( OP .EQ. -2 ) RETURN                                                   \r\n      GO TO 80                                                                  \r\n   12 IF( IPRVOP .EQ. 0 ) GO TO 11                                              \r\nC                                                                              \r\nC DATA BLOCK WAS PREVIOUSLY OPENED TO WRITE AND IS NOW OFF LOAD POINT.          \r\nC WRITE AN END-OF-FILE. IF SPECIAL CALL, RETURN                                 \r\nC                                                                               \r\n      CALL QOPEN(*88,NAMFIL,BUFF,3)                                             \r\n      CALL EOF( NAMFIL )                                                        \r\n      XOP = 2                                                                   \r\n      IF( OP .EQ. -2 ) XOP = 1                                                  \r\n      CALL CLOSE( NAMFIL, XOP )                                                 \r\n      IF( OP .EQ. -2 ) RETURN                                                   \r\nC                                                                               \r\nC NOW OPEN ACCORDING TO OP. IF NECESSARY, POSITION PRIOR TO EOF                 \r\nC                                                                               \r\n      LASNAM = 0                                                                \r\n      CALL GETURN( NAMFIL )                                                     \r\n      CALL QOPEN(*88,NAMFIL,BUFF,OP)                                            \r\n      IF( OP .EQ. 2 ) CALL BCKREC( NAMFIL )                                     \r\n      RETURN                                                                    \r\nC                                                                               \r\nC NORMAL OPEN CALL                                                              \r\nC                                                                               \r\n   80 CALL QOPEN(*88,NAMFIL,BUFF,OP)                                            \r\nCWKBNB NCL93007 11/94\r\nC SET THE COUNT FOR THE TOTAL NUMBER OF STRINGS AND TERMS \r\nC TO ZERO IF FILE IS BEING OPENED FOR WRITE\r\n      IF ( OP .NE. 1 ) GO TO 70\r\n      FCB( 16, IFILEX ) = 0\r\n      FCB( 17, IFILEX ) = 0\r\n   70 CONTINUE\r\nCWKBNE NCL93007 11/94\r\n      RETURN                                                                    \r\n   88 RETURN 1                                                                  \r\n      END                                                                       \r\n"
  },
  {
    "path": "mds/pack.f",
    "content": "        SUBROUTINE PACK ( A, FILE, MCB )                                        \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        COMMON / PACKX  / ITYPIN, ITYPOT, IROBGN, LASROW, INCR                  \r\n        COMMON / DDIOSV / IFLPOS( 2,80 )                                        \r\n        INTEGER           FILE,   MCB(7)                                        \r\n        INTEGER           A(4)                                                  \r\n        NAME       = FILE                                                       \r\n        IBLKC( 1 ) = NAME                                                       \r\n        IBLKC( 2 ) = ITYPOT                                                     \r\n        IBLKC( 3 ) = 0                                                          \r\n        IBLKC( 4 ) = 0                                                          \r\n        IBLKC( 7 ) = 0                                                          \r\n        IBLKC( 8 ) = -1                                                         \r\n        IBLKC( 9 ) = ITYPIN                                                     \r\n        IBLKC(10 ) = 0                                                          \r\n        IF ( ITYPIN .LE. 0 .OR. ITYPIN .GT. 4 ) GO TO 10                        \r\n        IF ( ITYPOT .LE. 0 .OR. ITYPOT .GT. 4 ) GO TO 10                        \r\n        GO TO 20                                                                \r\n10      CALL DSMSG1( IBLKC )                                                    \r\n        CALL DSMSG( 118 )                                                       \r\n20      NWDIN      = NWRDEL( ITYPIN )                                           \r\n        IBLKC( 12) = MCB( 2 ) + 1                                               \r\n        CALL DSGEFL                                                             \r\n        IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX )                                   \r\n        IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX )                                   \r\n        CALL PUTSTR( IBLKC )                                                    \r\n        IEOR       = 0                                                          \r\n        INDEXA     = 0                                                          \r\n        IROW       = IROBGN                                                     \r\n        INDEXB     = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1                       \r\nCDIR$ NOVECTOR                                                                  \r\n100     DO 110 K = 1, NWDIN                                                     \r\n        IF ( A( INDEXA+K ) .NE. 0 ) GO TO 120                                   \r\n110     CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        LASIND = (LASROW-IROW+1)*INCR*NWDIN                                     \r\n        KLIM   = LASIND + INCR                                                  \r\n        KLAST  = KLIM                                                           \r\n        INCRR = INCR*NWDIN                                                      \r\n        DO 116 KK = 1, NWDIN                                                    \r\n        INDEA1 = INDEXA - 1 + KK                                                \r\n        DO 115 K  = 1, LASIND, INCRR                                            \r\n        IF ( A(INDEA1 + K) .EQ. 0 ) GO TO 115                                   \r\n        IF ( K .LT. KLAST ) KLAST = K                                           \r\n        GO TO 116                                                               \r\n115     CONTINUE                                                                \r\n116     CONTINUE                                                                \r\n        NCNT = (( KLAST-1 ) / INCRR) - 1                                        \r\n        IF ( KLAST .EQ. KLIM ) NCNT = LASROW - IROW                             \r\n        IROW = IROW + NCNT                                                      \r\n        INDEXA= INDEXA + NCNT*(NWDIN*INCR)                                      \r\n        IEOR       = 1                                                          \r\n        GO TO 150                                                               \r\n120     IF ( IBLKC( 7 ) .EQ. 0 ) GO TO 130                                      \r\n        IF ( IEOR .EQ. 0 ) GO TO 140                                            \r\n        CALL ENDPUT( IBLKC )                                                    \r\n        CALL PUTSTR( IBLKC )                                                    \r\n        IBLKC( 7 ) = 0                                                          \r\n        INDEXB     = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1                       \r\n130     IBLKC( 4 ) = IROW                                                       \r\n140     IF ( ITYPIN .NE. ITYPOT ) GO TO 1400                                    \r\nCDIR$ NOVECTOR                                                                  \r\n        DO 141 K = 1, NWDIN                                                     \r\n        IBASE( INDEXB + K - 1 ) = A( INDEXA + K )                               \r\n141     CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        GO TO 1401                                                              \r\n1400    CALL DSUPKC( ITYPIN, ITYPOT, A( INDEXA+1 ), IBASE( INDEXB ))            \r\n1401    CONTINUE                                                                \r\n        IEOR       = 0                                                          \r\n        INDEXB     = INDEXB + IBLKC( 11 )                                       \r\n        IBLKC( 7 ) = IBLKC( 7 ) + 1                                             \r\n        IBLKC(10 ) = IBLKC( 10 ) + IBLKC( 11 )                                  \r\n        IF ( IBLKC( 7 ) .LT. IBLKC( 6 ) ) GO TO 150                             \r\n        CALL ENDPUT( IBLKC )                                                    \r\n        CALL PUTSTR( IBLKC )                                                    \r\n        IBLKC( 7 ) = 0                                                          \r\n        INDEXB = ( IBLKC( 5 ) - 1 ) * IBLKC( 14 ) + 1                           \r\n150     INDEXA = INDEXA + ( INCR*NWDIN )                                        \r\n        IROW   = IROW + 1                                                       \r\n        IF ( IROW .LE. LASROW ) GO TO 100                                       \r\n        CALL DSBPNK( IBLKC, MCB )                                               \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/putstr.f",
    "content": "        SUBROUTINE PUTSTR ( BLOCK )                                             \r\n********************************************************                        \r\n*                                                                               \r\n*       FORMAT OF THE I/O MATRIX CONTROL TABLE                                  \r\n*                                                                               \r\n*    WORD    QUARTER            DESCRIPTION                                     \r\n*       1       -       GINO FILE NAME                                          \r\n*       2       -       TYPE OF ELEMENTS (1,2,3,4) - REFERS TO TYPE             \r\n*                       BEING WRITTEN (BLDPK--) TO THE BUFFER OR                \r\n*                       TYPE OF ELEMENTS READ (INTPK--) FROM THE BUFFER         \r\n*       3       -       TRAILERS TO BE INCLUDED (0=NO,1=YES) ON WRITE           \r\n*                       TO BUFFER OR ARE INCLUDED ON READ FROM BUFFER           \r\n*       4       -       ROW NUMBER                                              \r\n*       5       -       INDEX TO STRING (RELATIVE TO /XNSTRN/)                  \r\n*       6       -       NUMBER OF ELEMENTS AVAIL. OR  RESIDE IN STRING          \r\n*       7       -       NUMBER OF ELEMENTS WRITTEN TO STRING BY USER            \r\n*       8       -       BEGIN/END FLAG (-1, FIRST CALL FOR COLUMN,              \r\n*                       =0, INTERMEDIATE CALL; =1, LAST CALL)                   \r\n*       9       -       INTERIM FLAG FOR COLUMN ('C','P','X')                   \r\n*       10      -       COUNT OF NON-ZERO WORDS PER COLUMN                      \r\n*       11      -       NUMBER OF WORDS PER ELEMENT (SEE WORD 2)                \r\n*       12      -       COLUMN NUMBER                                           \r\n*       13      -       TYPE OF INPUT (BLDPK) OR OUTPUT (INTPK)                 \r\n*       14      -       DIVISOR FOR COMPUTING BLOCK(5)                          \r\n*       15      -       ROW NUMBER ON INPUT (BLDPK)                             \r\n*                                                                               \r\n**********************************************************************          \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER BLOCK( 15 ), IDIV( 4 )                                          \r\n        DATA    IDIV / 1, 2, 1, 2 /                                             \r\n        NAME = BLOCK( 1 )                                                       \r\n        CALL DSGEFL                                                             \r\n        LIM  = INDBAS + NBUFF + 2                                               \r\n        IF ( BLOCK( 8 ) .EQ. -1 ) GO TO 10                                      \r\n        NWORDS = BLOCK( 11 )                                                    \r\n        IFLG = BLOCK( 9 )                                                       \r\n        GO TO 30                                                                \r\n10      NWORDS = NWRDEL( BLOCK( 2 ) )                                           \r\n        BLOCK( 14 ) = IDIV( BLOCK( 2 ) )                                        \r\n        BLOCK( 11 ) = NWORDS                                                    \r\n        BLOCK(  8 ) = 0                                                         \r\n        BLOCK(  9 ) = IDSC                                                      \r\n        IFLG = IDSC                                                             \r\n        IF ( ( LIM-INDCBP-6-BLOCK(3)*2 ).GE. NWORDS ) GO TO 20                  \r\n        IBASE( INDCBP ) = IDSEB                                                 \r\n        CALL DSWRNB                                                             \r\n        LIM  = INDBAS + NBUFF + 2                                               \r\n20      IBASE( INDCBP+1 ) = IDSCH +  BLOCK( 3 )*MULQ3 + BLOCK( 2 )              \r\n        IBASE( INDCBP+2 ) = BLOCK( 12 )                                         \r\n        INDCBP = INDCBP + 2                                                     \r\n30      NLR = IABS( MOD( INDCBP+2, BLOCK( 14 ) ) )                              \r\n        NELM = ( LIM - INDCBP - NLR - 6 - BLOCK( 3 )*2 ) / NWORDS               \r\n        IF ( NELM .GE. 1 ) GO TO 50                                             \r\n        IFLG = BLOCK( 9 )                                                       \r\n        IF ( IFLG .EQ. IDSX ) GO TO 40                                          \r\n        IFLG = IDSP                                                             \r\n        BLOCK( 9 ) = IDSX                                                       \r\n40      IBASE( INDCLR ) = IDSSB + IFLG + ( INDCBP - INDCLR )                    \r\n        IBASE( INDCBP + 1 ) = IDSRT + IFLG + ( INDCLR-INDBAS+1 )                \r\n        IBASE( INDCBP + 2 ) = IDSEB                                             \r\n        INDCLR = INDCBP + 2                                                     \r\n        CALL DSWRNB                                                             \r\n        LIM  = INDBAS + NBUFF + 2                                               \r\n        GO TO 30                                                                \r\n50      BLOCK( 6 ) = NELM                                                       \r\n        BLOCK( 7 ) = 0                                                          \r\n        BLOCK( 5 ) = ( INDCBP+NLR+2 ) / BLOCK( 14 ) + 1                         \r\n        IF ( NLR .EQ. 0 ) GO TO 70                                              \r\n        IBASE( INDCBP + 1 ) = IDSSD                                             \r\n        INDCBP = INDCBP + 1                                                     \r\n70      CALL DSSDCB                                                             \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/qopen.f",
    "content": "        SUBROUTINE QOPEN ( *, NAMFIL, BUFF, IOP )                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        COMMON / SYSTEM / ISYSBF, DUM1(77), IDIAG, DUM2(21)                     \r\n        INTEGER           BUFF(10), DNAME(2), ITRL(7)                          \r\n        DATA     INIT   / 0 /                                                   \r\n        NAME   = NAMFIL                                                         \r\n        IOCODE = IOP                                                            \r\n        IF ( INIT .NE. 0 ) GO TO 10                                             \r\n        IBASBF = LOCFX( IBASE )                                                 \r\n        CALL DSIODD                                                             \r\n        NBUFF  = ISYSBF - 4                                                     \r\n        NBFZ   = 1                                                              \r\n        IF ( LENWPB .NE. 0 ) NBFZ   = NBUFF / LENWPB + .1                       \r\n        INIT   = 1                                                              \r\n   10   IF ( IAND( IDIAG, 2**14 ) .NE. 0 ) CALL DSMSG ( 1 )                     \r\n        LOCBUF = LOCFX( BUFF )                                                  \r\n        INDBAS = LOCBUF - IBASBF + 1                                            \r\n        IF ( MOD( INDBAS,2 ) .EQ. 0 ) INDBAS = INDBAS + 1                       \r\n        IF ( FCB( 2, IFILEX ) .EQ. 0 ) GO TO 20                                 \r\n        CALL DSMSG( 5 )                                                         \r\n   20   DO 30 I =1, MAXPRI                                                      \r\n        IBASTS = FCB( 2, I )                                                    \r\n        IF ( IBASTS .EQ. 0 ) GO TO 30                                           \r\n        IBASHI = IBASTS + ISYSBF - 2                                            \r\n        IBASLO = IBASTS - ISYSBF                                                \r\n        IF( INDBAS .LE. IBASLO .OR. INDBAS .GT. IBASHI ) GO TO 30               \r\n        CALL DSMSG( 3 )                                                         \r\n   30   CONTINUE                                                                \r\n        IBASE( INDBAS )  = NAMFIL                                               \r\n        FCB( 2, IFILEX ) = INDBAS                                               \r\n        FCB(12, IFILEX ) = INDBAS                                               \r\n        CALL DBMNAM ( NAME, DNAME, IFILEX )\r\n        IF( IOCODE .LE. 1 ) GO TO 40                                            \r\n        IF( FCB( 13, IFILEX ) .EQ. DNAME( 1 ) .AND.\r\n     &      FCB( 14, IFILEX ) .EQ. DNAME( 2 ) ) GO TO 35\r\nC        CALL DBMSRF( DNAME, IUNI )\r\nC        IF ( IUNI .EQ. IFILEX ) GO TO 35\r\n        ITRL(1) = NAME\r\n        CALL RDTRL( ITRL )\r\n        DO 32 I = 2, 7\r\n        IF ( ITRL(I) .NE. 0 ) GO TO 35\r\n   32   CONTINUE\r\n        IF ( IOCODE .EQ. 3 ) IOCODE = 1\r\n        IF ( IOCODE .EQ. 2 ) IOCODE = 0\r\n        GO TO 40\r\n   35   CONTINUE\r\n        NBLOCK = FCB( 4,IFILEX )                                                \r\n        IF ( NBLOCK .EQ. 0 ) GO TO 40                                           \r\n        CALL DBMMGR ( 1 )                                                       \r\n        INDCLR = FCB( 3, IFILEX ) + INDBAS - 1                                  \r\n        INDCBP = INDCLR                                                         \r\n        GO TO 60                                                                \r\n   40   NBLOCK = 1                                                              \r\n        FCB( 13, IFILEX ) = DNAME( 1 )\r\n        FCB( 14, IFILEX ) = DNAME( 2 )\r\n        CALL DBMMGR ( 1 )                                                       \r\n        INDCLR = INDBAS + 5                                                     \r\n        INDCBP = INDCLR                                                         \r\n        IF( IOCODE .EQ. 0 ) GO TO 60                                            \r\n        IBASE( INDBAS+3 ) = 1                                                   \r\n        IBASE( INDBAS+4 ) = 0                                                   \r\n        FCB( 8, IFILEX )  = 0                                                   \r\n   60   IF ( NBLOCK .EQ. IBASE( INDBAS+3 ) ) GO TO 70                           \r\n        CALL DSMSG ( 102 )                                                      \r\n   70   CALL DSSDCB                                                             \r\nC        PRINT *,' QOPEN,UN,CLR,BLK,IOP=',IFILEX,FCB(3,IFILEX),                 \r\nC     &     FCB(4,IFILEX),IOP                                                   \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/rdblk.f",
    "content": "        SUBROUTINE RDBLK ( *, FILE, IFIRST, LEFT )                              \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER FILE                                                            \r\n        NAME = FILE                                                             \r\n        CALL    DSGEFL                                                          \r\nC        PRINT *,' RDBLK,NAME,IFILEX,INDBAS=',NAME,IFILEX,INDBAS                \r\nC        WRITE(6,40646)(IBASE(INDBAS+K),K=1,8)                                  \r\n40646   FORMAT(' BUFFER=',8(1X,Z8))                                             \r\n        IF ( IPRVOP .NE. 0 ) CALL DSMSG( 4 )                                    \r\n        IF ( IFIRST .NE. 0 ) GO TO 10                                           \r\n        CALL DSRDNB                                                             \r\n10      CALL DBMMGR( 9 )                                                        \r\nC      WRITE(6,44771)(FCB(K,IFILEX),K=1,15)                                     \r\n44771 FORMAT(' RDBLK,FCB=',/,2(5I8,/),2I8,4X,2A4,4X,I8)                         \r\nC      INNN = FCB( 12, IFILEX )                                                 \r\nC       PRINT *,' RDBLK-2,IFILEX,INNN=',IFILEX,INNN                             \r\nC       WRITE(6,40646)(IBASE(INNN+K),K=0,7)                                     \r\n        IBASE( INDBAS+1 ) = IBASE( INDBAS+4 )                                   \r\n        IBASE( INDBAS+2 ) = IBASE( INDBAS+4 )                                   \r\n        LEFT = NBUFF + 3 - LCW                                                  \r\n        IF ( IBASE( INDBAS+LCW-2) .EQ. IDSEF ) RETURN 1                         \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/read.f",
    "content": "        SUBROUTINE READ ( *, *, FILE, IDATA, N, IEORFL, M )                     \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER           FILE, IDATA( 2 )                                      \r\n        NAME   = FILE                                                           \r\n        NWORDS = N                                                              \r\n        IEOR   = IEORFL                                                         \r\n        IRETRN = 0                                                              \r\n        CALL DSGEFL                                                             \r\n        IF ( IPRVOP .EQ. 0 ) GO TO 10                                           \r\n        CALL DSMSG ( 4 )                                                        \r\n10      ID = IAND( IBASE( INDCLR ), MASKQ1 )                                    \r\n        IF ( ID .NE. IDSEB ) GO TO 30                                           \r\n        CALL DBMLBK( LASBLK )                                                   \r\n        IF ( LASBLK .GT. NBLOCK ) GO TO 20                                      \r\n        IRETRN = 1                                                              \r\n        GO TO 7000                                                              \r\n20      CALL DSRDNB                                                             \r\n        ID = IAND( IBASE( INDCLR ), MASKQ1 )                                    \r\n30      IF ( ID .EQ. IDSRH ) GO TO 50                                           \r\n        IF ( ID .EQ. IDSEF ) GO TO 40                                           \r\n        CALL DSMSG ( 105 )                                                      \r\n40      INDCLR = INDCLR + 1                                                     \r\n        INDCBP = INDCLR                                                         \r\n        IRETRN = 1                                                              \r\n        GO TO 7000                                                              \r\n50      IWORDS = IAND( IBASE( INDCLR ), MASKH2 )                                \r\n        IDIFF  = INDCBP - INDCLR                                                \r\n        IWORDS = IWORDS - IDIFF                                                 \r\n        IREQ   = IABS( NWORDS )                                                 \r\n        IF ( IREQ .GT. IWORDS ) GO TO 80                                        \r\n        IF ( NWORDS .LE. 0 ) GO TO 70                                           \r\n        L = 1                                                                   \r\n        ILIM = INDCBP + NWORDS - 1                                              \r\n        DO 60 K = INDCBP, ILIM                                                  \r\n        IDATA( L ) = IBASE( K+1 )                                               \r\n        L = L + 1                                                               \r\n60      CONTINUE                                                                \r\n70      INDCBP = INDCBP + IREQ                                                  \r\n        GO TO 90                                                                \r\n80      CALL DSRDMB ( IDATA, M )                                                \r\n90      IF ( IEOR .EQ. 0 ) GO TO 7000                                           \r\n        CALL DSSKRC                                                             \r\n7000    CALL DSSDCB                                                             \r\n        IF ( IRETRN .EQ. 2 ) RETURN 2                                           \r\n        IF ( IRETRN .EQ. 1 ) RETURN 1                                           \r\n        RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/rectyp.f",
    "content": "        SUBROUTINE RECTYP ( FILE, ITYPE )                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER           FILE                                                  \r\n        NAME = FILE                                                             \r\n        CALL DSGEFL                                                             \r\n 5      ID   = IAND( IBASE( INDCLR ), MASKQ1 )                                  \r\n        IF ( ID .EQ. IDSSB ) GO TO 10                                           \r\n        IF ( ID .EQ. IDSEB ) GO TO 20                                           \r\n        ITYPE = 0                                                               \r\n        GO TO 7000                                                              \r\n10      ITYPE = 1                                                               \r\n        GO TO 7000                                                              \r\n20      CALL DSRDNB                                                             \r\n        CALL DSSDCB                                                             \r\n        GO TO 5                                                                 \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/rewind.f",
    "content": "      SUBROUTINE REWIND ( FILE )                                              \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      INTEGER           FILE                                                  \r\n      NAME   = FILE                                                           \r\n      CALL DSGEFL                                                             \r\nC CALL DBMMGR FOR REWIND SO TO SET BUFFER ADDRESS CORRECTLY                     \r\n      CALL DBMMGR ( 3 )                                                       \r\n      NBLOCK = FCB( 4, IFILEX )                                               \r\n      IF ( IPRVOP .EQ. 0 ) GO TO 30                                           \r\nC IF FILE OPEN FOR WRITE, THEN INITIAL BUFFER AND BLOCK NUMBER                  \r\n      IBASE( INDBAS+3 ) = 1                                                   \r\n      IBASE( INDBAS+4 ) = 6                                                   \r\nCWKBNB NCL93007 11/94\r\nC SET THE COUNTER FOR NUMBER OF STRINGS AND TERMS TO ZERO\r\n      FCB( 16, IFILEX ) = 0\r\n      FCB( 17, IFILEX ) = 0\r\nCWKBNE NCL93007 11/94\r\n30    INDCLR = INDBAS+5                                                       \r\n      INDCBP = INDCLR                                                         \r\n      CALL DSSDCB                                                             \r\n      RETURN                                                                  \r\n      END                                                                     \r\n"
  },
  {
    "path": "mds/rfopen.f",
    "content": "      SUBROUTINE RFOPEN (MEMBER,LU)        \r\nC        \r\nC     THIS .MIS ROUTINE OPENS THE RIGID FORMAT FILE, AS AN ORDINARY     \r\nC     FORTRAN FILE. USE REGULAR FORTRAN READ TO READ THE FILE        \r\nC        \r\nC     ENTRY POINT RFCLSE TO CLOSE IT        \r\nC        \r\nC     IF RIGID FORMAT FILE OPENS OK, LU IS THE FORTRAN UNIT NUMBER      \r\nC     OTHERWISE, LU = 0        \r\nC        \r\nC     THIS ROUTINE REPLACES ALL THE MACHINE DEPENDENT DSXOPN, DSXCLS,   \r\nC     DSXREA, AND DSXFRE ROUTINES. PLUS DSXRDS, DSXIO, AND DSXSIO IN    \r\nC     IBM VERSION, AND DSXRET AND DSXZER IN CDC        \r\nC        \r\nC     NOTE - FORTRAN UNIT 'IN' IS USED TO READ THE RIGID FORMAT FILE.   \r\nC            UNIT 'IN' IS SYNCHRONOUS WITH ANY READFILE OR NESTED       \r\nC            READFILE OPERATION.        \r\nC        \r\nC     WRITTEN BY G.CHAN/UNISYS.   10/1990        \r\nC        \r\n      INTEGER         MEMBER(2),FACSF        \r\n      CHARACTER*1     BK,MB1(8)        \r\n      CHARACTER       MB5*5,MB6*6        \r\n      CHARACTER*8     MB8,FREE8,ADD(3)        \r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25        \r\nCWKBI \r\n      CHARACTER*44    RFDIR, DSN\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM        \r\n      COMMON /MACHIN/ MACH        \r\n      COMMON /XXREAD/ IN        \r\n      COMMON /SYSTEM/ IBUF,NOUT,NOGO        \r\n      EQUIVALENCE     (MB1(1),MB5,MB6,MB8)        \r\n      DATA    BK,     ADD(1),   ADD(3), FREE8     /        \r\n     1        ' '   , '@ADD,E ',' .  ', '@FREE   '/        \r\nC        \r\n      CALL A42K8 (MEMBER(1),MEMBER(2),MB8)        \r\n      IF (MACH .EQ. 3) GO TO 30        \r\n      IN = IN + 1        \r\n      IF (IN .LT. 60) IN = 60        \r\n      J  = 5        \r\n      IF (MB1(6) .NE. BK) J = 6        \r\nC        \r\nC           DUMMY  IBM  UNVC  CDC  VAX  ULTRIX  SUN   AIX   HP        \r\nC             S/G  MAC  CRAY CNVX  NEC  FUJTSU   DG  AMDL PRIME        \r\nC             486 DUMMY ALFA RESV        \r\nC            ---- ----  ---- ---- ----  ------ ----  ---- -----        \r\n      GO TO (  60,  50,   30,  50,  50,     50,  50,   50,  50,        \r\n     1         50,  70,   70,  70,  70,     70,  70,   70,  70,        \r\n     2         50,  60,   50,  70), MACH        \r\nC        \r\nC     UNIVAC ONLY -        \r\nC     ADD FILE TO INPUT STREAM        \r\nC        \r\n 30   ADD(2) = MB8        \r\n      J = FACSF(ADD)        \r\n      LU = 5        \r\n      GO TO 130        \r\n50    CONTINUE\r\n      RFDIR = ' '\r\n      CALL GETENV ( 'RFDIR', RFDIR )\r\n      DO 55 I = 44, 1, -1\r\n      IF ( RFDIR( I:I ) .EQ. ' ' ) GO TO 55\r\n      LENR = I\r\n      GO TO 56\r\n55    CONTINUE\r\n      LENR = 44\r\n56    DSN = ' '\r\n      DSN = RFDIR(1:LENR) // '/' // MB6\r\nCWKBR IF (J .EQ. 6) OPEN (UNIT=IN,FILE=MB6,ACCESS='SEQUENTIAL',ERR=100, \r\n      OPEN (UNIT=IN,FILE=DSN,ACCESS='SEQUENTIAL',ERR=100, \r\n     1                    FORM='FORMATTED',STATUS='OLD')        \r\n      GO TO 80        \r\nC        \r\nC     OTHERS -        \r\nC        \r\n 60   GO TO 100        \r\nC        \r\n 70   OPEN (UNIT=IN,FILE=MB8,ACCESS='SEQUENTIAL',ERR=100,STATUS='OLD',  \r\n     1      FORM='FORMATTED')        \r\nC        \r\nC     VERIFY FILE EXISTANCE        \r\nC        \r\n 80   READ (IN,90,ERR=100,END=100) J        \r\n 90   FORMAT (A1)        \r\n      REWIND IN        \r\n      LU = IN        \r\n      GO TO 130        \r\nC        \r\nCWKBR100  WRITE  (NOUT,110) SFM,MB8        \r\n 100  WRITE  (NOUT,110) SFM,DSN        \r\nCWKBR 110  FORMAT (A25,', RFOPEN CAN NOT OPEN ',A8)        \r\n 110  FORMAT (A25,', RFOPEN CAN NOT OPEN ',A44)        \r\nC        \r\n      IF (MACH.GT.7 .AND. MACH.NE.21) WRITE (NOUT,120) MACH        \r\n 120  FORMAT (5X,'MACHINE',I4,' IS NOT AVAILABLE/RFOPEN')        \r\n      LU   = 0        \r\n      NOGO = 1        \r\nC        \r\n 130  RETURN        \r\nC        \r\nC        \r\n      ENTRY RFCLSE (LU)        \r\nC     =================        \r\nC        \r\n      IF (MACH .EQ. 3) GO TO 150        \r\n      IF (LU  .LT. 60) WRITE (NOUT,140) SFM,LU        \r\n 140  FORMAT (A25,'. RFCLSE/RFOPEN ERROR.  LU =',I4)        \r\n      CLOSE (UNIT=LU)        \r\n      IN = IN - 1        \r\n      IF (IN .LT. 60) IN = 0        \r\n      GO TO 160        \r\nC        \r\n 150  ADD(1) = FREE8        \r\n      J = FACSF(ADD)        \r\n 160  LU = 0        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/savpos.f",
    "content": "      SUBROUTINE SAVPOS ( FILE, IPOS )                                          \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      COMMON / DDIOSV / IFLPOS( 2,80 )                                          \r\n      INTEGER          FILE                                                     \r\n      NAME = FILE                                                               \r\n      CALL DSGEFL                                                               \r\n      IPOS = IFLPOS( 1,IFILEX )*MULQ2 + IFLPOS( 2, IFILEX )                     \r\n      IF (IPRVOP .EQ. 0)                                                        \r\n     &        IPOS = FCB(3,IFILEX)*MULQ2 + FCB(4,IFILEX)                        \r\n      RETURN                                                                    \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/second.f",
    "content": "      SUBROUTINE SECOND (RCPUSC)\r\nC\r\nC     THIS SUBROUTINE OBTAINS THE CURRENT CPU TIME AS A REAL VALUE\r\nC\r\n      CALL CPUTIM (RCPUSC, RCPUSC, 1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/sgino.f",
    "content": "      SUBROUTINE SGINO        \r\nC        \r\nC     REVISED  9/90 BY G.CHAN/UNISYS. TO REACTIVATE PLT1 FILE        \r\nC        \r\nC     THE HIGH POINTS OF PLT1 FILE ARE        \r\nC       NEW 130 COLUMN FORMAT RECORD        \r\nC       MACHINE PORTABLE FILE        \r\nC       NO DATA RECONSTRUCTION REQUIRED WHEN PLT1 IS USED BY AN EXTERNAL\r\nC          TRANSLATOR PROGRAM        \r\nC                                          PLT2 FILE       PLT1 FILE    \r\nC     ---------------------------------  -------------  --------------  \r\nC     FILE TYPE, SEQUENTIAL FORMATTED    NO CARRIGE CTRL CARRIAGE CTRL  \r\nC     RECORD  TYPE                        ASSCII/BINARY*    ASCII       \r\nC     RECORD  LENGTH                       3000 BYTES     130 COLUMNS   \r\nC     FORTRAN FORMAT                      (10(180A4))*   (5(2I3,4I5))   \r\nC     PLOT COMMANDS PER PHYSICAL RECORD        100            5        \r\nC     DATA TYPE PER COMMAND (TOTAL)         30 BYTES       26 DECIMALS  \r\nC          COMMAND, P   (SEE USER'S MANUAL   1 BYTE         3 DIGITS    \r\nC          CONTROL, C    PAGE 4.4-2)         1 BYTE         3 DITITS    \r\nC          FIRST  VALUE, R                   5 BYTES        5 DIGITS    \r\nC          SECOND VALUE, S                   5 BYTES        5 DIGITS    \r\nC          THIRD  VALUE, T                   5 BYTES        5 DIGITS    \r\nC          FOURTH VALUE, U                   5 BYTES        5 DIGITS    \r\nC          FILLER (ALL ZEROS)                8 BYTES          NONE      \r\nC     DATA BYTE PACKING                        YES            NO        \r\nC     FILE - EDITED, PRINTED, SCREEN VIEWING   NO             YES       \r\nC     PORTABLE FILE AMONG MACHINES             NO             YES       \r\nC     FORTRAN UNIT NUMBER                      13             12        \r\nC     DISC STORAGE REQUIREMENT                  -           25% LESS    \r\nC     IF MAGNETIC TAPE - TRACK AND PARITY     9,ODD          9,ODD      \r\nC     (* 1. ASCII RECORD, BUT DATA STORED IN BINARY BYTES.        \r\nC           (IN EARLY NASTRAN PLOT TAPE DESIGN, A BYTE HAD 6        \r\nC           BITS. BUT IT IS NO LONGER TRUE. NOW, A BYTE CAN        \r\nC           BE 6, 8 OR 9 BITS, DEPENDING ON THE MACHINE)        \r\nC        2. SINCE THE RECORD LENGTH IS 3000 BYTES, A FORMAT        \r\nC           OF (750A4) IS SUFFICIENT)        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      LOGICAL         OPEN,NOPACK        \r\n      INTEGER         BUF(1),LBUF(1),A(1),NAME(2),FORMAT(3),FORMTX(3)   \r\n      CHARACTER*7     FORTN,NONE        \r\n      COMMON /SYSTEM/ IDUM1,NOUT,SKPSYS(36),NBPC,NBPW,NCPW        \r\nCWKBNB\r\n      CHARACTER*80  DSNAMES\r\n      COMMON / DSNAME / DSNAMES(80)\r\nCWKBNE\r\n      DATA    OPEN  /.FALSE. /, NAME  / 4H SGI, 2HNO /        \r\n      DATA    PLT1,PLT2,PLTX /  4HPLT1, 4HPLT2,    0 /        \r\n      DATA    FORMAT/ 4H(10( ,  4H180A, 4H4))        /,        \r\n     1        FORMTX/ 4H(5(2 ,  4HI3,4, 4HI5))       /        \r\n      DATA    FORTN , NONE   / 'FORTRAN', 'NONE   '  /        \r\n      DATA    SHIFT , NBITS  /  0, 0                 /        \r\nC        \r\n      GO TO 250        \r\nC        \r\nC        \r\n      ENTRY SOPEN (*,PLTAPE,BUF,IBFSZ)        \r\nC     ================================        \r\nC        \r\nC     PLT2 FILE -        \r\nC     IBFSZ (FIRST WORD OF /XXPARM/), IS THE PLOT FILE BUFFER SIZE. IT  \r\nC     IS SET EQUAL TO PDATA(12,1)/NCPW IN PLTSET. PDATA(12,1) IS        \r\nC     INITIALIZED  IN PLOTBD VIA DATA(12,1) WHICH IS EQUIVALENT TO      \r\nC     PBFSIZ(1,1). COMPLICATED ISN'T IT?        \r\nC        \r\nC     (PBFSIZ(1,1)=3000, NCPW=4, IBFSZ AND BFSZ ARE THEREFORE =750 EACH \r\nC     EACH PHYSICAL RECORD HOLDS 100 (=3000/30) PLOT COMMANDS)        \r\nC        \r\nC     NOTE - BOTH PLT2 AND PLT1 ARE SEQUENTIAL FILES, NOT DIRECT ACCESS \r\nC     FILES. THE RECORD LENGTH, IF USED, IS BASED ON NO. CHARACTERS PER \r\nC     WORD        \r\nC        \r\n      PTAPE = 10\r\n      IF (PLTAPE.NE.PLT1 .AND. PLTAPE.NE.PLT2) RETURN 1        \r\n      PLTX   = PLTAPE        \r\n      NOPACK = PLTX .EQ. PLT1        \r\n      IF (NOPACK) GO TO 10        \r\nC        \r\nC     PLT2 -        \r\nC        \r\n      BFSZ   = IBFSZ        \r\n      IRECSZ = NCPW*BFSZ        \r\n      NOFF   = LOCFX(BUF(1)) - LOCFX(LBUF(1))        \r\n      GO TO 20        \r\nC        \r\nC     PLT1 -        \r\nC        \r\nCWKBR 10   PTAPE  = 12        \r\n 10   CONTINUE        \r\n      NOPACK = .TRUE.        \r\n      BFSZ   = 30        \r\n      IRECSZ = (BFSZ/6)*(2*3 + 4*5)        \r\n      NONE   = FORTN        \r\n      FORMAT(1) = FORMTX(1)        \r\n      FORMAT(2) = FORMTX(2)        \r\n      FORMAT(3) = FORMTX(3)        \r\nC        \r\nC     NOFF CAN BE SET TO ZERO IF LBUF IS LOCALLY DIMENSIONED TO 30 WORDS\r\nC     AND OPEN CORE IS NOT USED        \r\nC        \r\n      NOFF   = LOCFX(BUF(1)) - LOCFX(LBUF(1))        \r\nC        \r\nC     OPEN STATEMENT ADDED TO SET OUTPUT RECORDSIZE GREATER THAN DEFAULT\r\nC     (COMMENTS FORM G.C./UNISYS 1989 -        \r\nC     RECORDSIZE IS NOT ALLOWED FOR SEQUENTIAL FILE IN SOME COMPILERS,  \r\nC     (e.g. DEC/ULTRIX(RISC), AND BLOCKSIZE AND ORGANINZATION ARE NOT   \r\nC     DEFINED. RECORDTYPE='FIXED' IS ALSO NOT ALLOWED FOR SEQUENTIAL    \r\nC     FORMATTED FILE.        \r\nC     FOR UNICOS, RECL IS NOT ALLOWED IF ASSCESS=SEQUENTIAL)        \r\nC        \r\nC     FOR MACHINES THAT DO NOT HAVE 'APPEN' FEATURE        \r\nC        \r\n 20   IF (OPEN) GO TO 80        \r\nC     MA = 'A'        \r\nC     IF (NONE .EQ. 'NONE') MA = 'M'        \r\nC     IF (MACH .EQ IBM) CALL FILEDEF (PTAPE,RECFM,FB(MA))        \r\n      OPEN (UNIT   = PTAPE,        \r\nCWKBI\r\n     1      FILE = DSNAMES(10),\r\n     1      STATUS = 'OLD',        \r\n     2      FORM   = 'FORMATTED',        \r\n     3      ACCESS = 'SEQUENTIAL',        \r\n     4      IOSTAT = J        \r\nCHP  5      ,CARRIAGECONTROL = NONE        \r\nCHP  6      ,RECL  = IRECSZ        \r\nC            RECL IS NEEDED BY VAX, AND POSSIBLY OTHER MACHINES)        \r\n     6      )        \r\n      IF (J .NE. 0) GO TO 60        \r\n 30   READ   (PTAPE,40,END=50) J        \r\n 40   FORMAT (A1)        \r\n      GO TO 30        \r\n 50   BACKSPACE PTAPE        \r\n      GO TO 80        \r\nC        \r\n 60   OPEN (UNIT   = PTAPE,        \r\nCWKBI\r\n     1      FILE = DSNAMES(10),\r\n     1      STATUS = 'NEW',        \r\n     2      FORM   = 'FORMATTED',        \r\n     3      ACCESS = 'SEQUENTIAL',        \r\n     4      IOSTAT = J        \r\nCHP  5      ,CARRIAGECONTROL = NONE        \r\nCHP  6      ,RECL  = IRECSZ        \r\nC            RECL IS NEEDED BY VAX, AND POSSIBLY OTHER MACHINES)        \r\n     6      )        \r\n      IF (J .EQ. 0) GO TO 80        \r\n      WRITE  (NOUT,70) PLTX,PTAPE        \r\n 70   FORMAT ('0*** SYSTEM FATAL ERROR. SGINO CAN NOT OPEN ',A4,        \r\n     1        ' FILE, FORTRAN UNIT',I5)        \r\n      CALL MESAGE (-61,0,0)        \r\nC        \r\n 80   OPEN  = .TRUE.        \r\n      NB    = 1        \r\n      IF (NOPACK) GO TO 210        \r\n      ASSIGN 100 TO TRA        \r\n      WORD  = 0        \r\n      NBITS = NBPW - NBPC        \r\n      SHIFT = NBITS        \r\n      GO TO 250        \r\nC        \r\nC        \r\n      ENTRY SWRITE (PLTAPE,A,N,EORX)        \r\nC     ==============================        \r\nC        \r\nC     SWRITE IS CALLED ONLY BY WPLT10        \r\nC        \r\n      IF (PLTAPE .NE. PLTX) GO TO 180        \r\n      EOR = EORX        \r\n      NW  = 1        \r\n  90  IF (NOPACK) GO TO 120        \r\nC        \r\nC     ORIGINAL BYTE PACKING LOGIC        \r\nC        \r\n 100  IF (NW .GT. N) GO TO 110        \r\nCUNIX IF (A(NW) .NE. 0) WORD =  OR(ISHFT(A(NW),SHIFT),WORD)        \r\n      IF (A(NW) .NE. 0) WORD = IOR(ISHFT(A(NW),SHIFT),WORD)             \r\n      NW  = NW + 1        \r\n      IF (SHIFT .EQ. 0) GO TO 105        \r\n      SHIFT = SHIFT - NBPC        \r\n      GO TO 100        \r\n 105  LBUF(NB+NOFF) = WORD        \r\n      IF (NB .EQ. BFSZ) GO TO 200        \r\n      WORD  = 0        \r\n      NB    = NB + 1        \r\n      SHIFT = NBITS        \r\n      GO TO 100        \r\nC        \r\n 110  IF (EOR .EQ. 0) GO TO 250        \r\n      EOR = 0        \r\n      IF (SHIFT .NE. NBITS) GO TO 115        \r\n      NB  = NB - 1        \r\n      IF (NB) 190,190,200        \r\nC        \r\n 115  LBUF(NB+NOFF) = WORD        \r\n      GO TO 200        \r\nC        \r\nC     NON BYTE PACKING LOGIC        \r\nC        \r\n 120  IF (NW .GT. N) GO TO 125        \r\n      LBUF(NB+NOFF) = A(NW)        \r\n      NW = NW + 1        \r\n      NB = NB + 1        \r\n      IF (NB .LE. BFSZ) GO TO 120        \r\n      NB = NB - 1        \r\n      GO TO 200        \r\nC        \r\n 125  IF (EOR .EQ. 0) GO TO 250        \r\n      EOR = 0        \r\n      IF (NB .GE. BFSZ) GO TO 135        \r\n      DO 130 J = NB,BFSZ        \r\n 130  LBUF(J+NOFF) = 0        \r\n 135  NB = BFSZ        \r\n      GO TO 200        \r\nC        \r\nC        \r\n      ENTRY SCLOSE (PLTAPE)        \r\nC     =====================        \r\nC        \r\n      EOF = 0        \r\nC        \r\n 150  IF (PLTAPE .NE. PLTX) GO TO 180        \r\n      IF (.NOT.NOPACK .AND. SHIFT.NE.NBITS) GO TO 155        \r\n      NB = NB - 1        \r\n      IF (NB) 170,170,160        \r\n 155  LBUF(NB+NOFF) = WORD        \r\n 160  ASSIGN 165 TO TRA        \r\n      GO TO 200        \r\n 165  ASSIGN 100 TO TRA        \r\n      IF (NOPACK) ASSIGN 120 TO TRA        \r\n 170  IF (EOF .EQ. 0) GO TO 175        \r\n      ENDFILE PTAPE        \r\n      GO TO 190        \r\n 175  PLTX = 0        \r\n      GO TO 190        \r\nC        \r\n 180  WRITE  (NOUT,185) PLTX,PLTAPE        \r\n 185  FORMAT ('0*** SYSTEM FATAL ERROR FROM SGINO. ',A4,' FILE OR ',A4, \r\n     1        ' FILE GOT LOST')        \r\n      CALL ERRTRC (NAME)        \r\nC        \r\nC        \r\n      ENTRY SEOF (PLTAPE)        \r\nC     ===================        \r\nC        \r\n      EOF = 1        \r\n      GO TO 150        \r\nC        \r\n 190  NB = 1        \r\n      GO TO 250        \r\nC        \r\n 200  WRITE (PTAPE,FORMAT) (LBUF(NOFF+J),J=1,NB)        \r\n      NB = 1        \r\n      WORD  = 0        \r\n      SHIFT = NBITS        \r\n      GO TO TRA, (100,120,165)        \r\nC        \r\n 210  ASSIGN 120 TO TRA        \r\nC        \r\n 250  RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/skpfil.f",
    "content": "        SUBROUTINE SKPFIL ( FILE, N )                                           \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        INTEGER FILE                                                            \r\n        IF ( N .EQ. 0 ) GO TO 7777                                              \r\n        NAME = FILE                                                             \r\n        CALL DSGEFL                                                             \r\n        IRWORD = N                                                              \r\n        IF ( N .GT. 0 ) GO TO 20                                                \r\n        IF ( ( INDCLR-INDBAS ) .NE. 5 ) GO TO 10                                \r\n        IF ( NBLOCK .EQ. 1 ) GO TO 7000                                         \r\n10      CALL DSSKFB( N )                                                        \r\n        GO TO 7000                                                              \r\n20      IF ( IPRVOP .NE. 0 ) CALL DSMSG( 4 )                                    \r\n        CALL DSSKFF( N )                                                        \r\n7000    CALL DSSDCB                                                             \r\n7777    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/sofio.f",
    "content": "        SUBROUTINE SOFIO ( ISOP, IBLKNM, BUF )                                  \r\n      INCLUDE 'GINOX.COM'                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        COMMON / SOFCOM / NFILES, FILNAM( 10 ), FILSIZ( 10 )                    \r\n        COMMON / SYS    / BLKSIZ, DIRSIZ, SUPSIZ, AVBLKS, HIBLK                 \r\n        COMMON / SYSTEM / ISYSBF, IWR                                           \r\n        common / sofdsn / sofdsn(10)                                            \r\n        CHARACTER*4       FILNAM                                                \r\n        CHARACTER*80      DSNAME                                                \r\n        character*80      sofdsn                                                \r\n        INTEGER           FILSIZ, HIBLK, BUF(10)                                \r\n        IF ( LENSOF( 1 ) .NE. 0 ) GO TO 20                                      \r\n        NUMBLK = 1                                                              \r\n        IF ( LENWPB .NE. 0 ) NUMBLK = ISYSBF / LENWPB                           \r\n        DO 10 K = 1, NFILES                                                     \r\n        LENSOF( K ) = 0                                                         \r\n        DSNAME      = sofdsn(K)                                                 \r\n        CALL DSINQR ( DSNAME, ISTAT, ISIZE)                                     \r\n        IF (ISTAT .EQ. 0) GO TO 10                                              \r\n        LENSOF( K ) = FILSIZ( K )                                               \r\n10      CONTINUE                                                                \r\n        LASFIL = 0                                                              \r\n20      CONTINUE                                                                \r\n        IF ( ISOP .EQ. 7 ) GO TO 200                                            \r\n        IBLK   = IBLKNM                                                         \r\n        IF ( IBLK .LE. 0 ) GO TO 700                                            \r\n        IFILE  = 0                                                              \r\n        DO 50 K = 1, NFILES                                                     \r\n        IF ( IBLK .LE. FILSIZ( K ) )GO TO 30                                    \r\n        IBLK   = IBLK - FILSIZ( K )                                             \r\n        GO TO 50                                                                \r\n30      IFILE  = K                                                              \r\n        GO TO 100                                                               \r\n50      CONTINUE                                                                \r\n        WRITE( IWR, 9910 ) IBLKNM                                               \r\n9910    FORMAT(' *** SUBSTRUCTURING ERROR - BLOCK NUMBER OUT OF RANGE ',        \r\n     *         ' -  BLOCK NUMBER IS ',I10)                                      \r\n        WRITE( IWR, 9915 )                                                      \r\n9915    FORMAT( //,' THE FOLLOWING SOF FILES WERE AVAILABLE',//)                \r\n        DO 60 K = 1, NFILES                                                     \r\n        WRITE( IWR, 9920 ) sofdsn( K ), FILSIZ( K ), LENSOF( K )                \r\n9920    FORMAT(' FILE ',A72' HAS ',I10, ' BLOCKS - BLOCKS USED ',I10)           \r\n60      CONTINUE                                                                \r\n        CALL MESAGE (-61, 0, 0)                                                 \r\n100     IF ( LASFIL .EQ. IFILE ) GO TO 120                                      \r\n        IF ( LASFIL .NE. 0 ) CALL DSCLOS ( 90 )                                 \r\n        IALLOC = NUMBLK * FILSIZ(IFILE)                                         \r\n        dsname = sofdsn( IFILE )                                                \r\n        IOP = 0                                                                 \r\n        CALL DSOPEN (  DSNAME, 90, IOP )                                        \r\n        LASFIL = IFILE                                                          \r\n120     IF ( ISOP .EQ. 1 ) GO TO 140                                            \r\n        IF ( ( IBLK - LENSOF( IFILE ) ) .LE. 1 ) GO TO 130                      \r\n        NUM  = IBLK - LENSOF( IFILE ) - 1                                       \r\n        IF ( NUM .EQ. 0 ) GO TO 130                                             \r\n        DO 125 K = 1, NUM                                                       \r\n        LENSOF( IFILE ) = LENSOF( IFILE ) + 1                                   \r\n        CALL DSWRIT ( 90, BUF(4), NBUFF, LENSOF( IFILE ),ICERR )                \r\n        IF ( ICERR .NE. 0 ) GO TO 701                                           \r\n125     CONTINUE                                                                \r\n130     CONTINUE                                                                \r\n        CALL DSWRIT ( 90, BUF(4), NBUFF, IBLK, ICERR )                          \r\n        IF ( ICERR .NE. 0 ) GO TO 701                                           \r\n        IF ( IBLK   .GT. LENSOF( IFILE ) ) LENSOF( IFILE ) = IBLK               \r\n        IF ( IBLKNM .GT. HIBLK ) HIBLK = IBLKNM                                 \r\n        GO TO 700                                                               \r\n140     CALL DSREAD ( 90, BUF(4), NBUFF, IBLK )                                 \r\n        GO TO 700                                                               \r\n200     CALL DSCLOS( 90 )                                                       \r\n        LASFIL = 0                                                              \r\n700     GO TO 7000                                                              \r\n701     IF ( ICERR .EQ. 28 ) WRITE ( IWR, 901 )                                 \r\n        IF ( ICERR .NE. 28 ) WRITE ( IWR, 902 )                                 \r\n        CALL MESAGE (-61, 0, 0)                                                 \r\n901     FORMAT(///,' INSUFFICIENT SPACE FOR SOF FILE ON DEFAULT',               \r\n     &             ' DEVICE---JOB ABORTED.')                                    \r\n902     FORMAT(///,' I/O ERROR OCCURRED ON SOF FILE, JOB ABORTED')              \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/tdate.f",
    "content": "      SUBROUTINE TDATE (DATE)        \r\nC        \r\nC     VAX VERSION        \r\nC     ===========        \r\nC     (ALSO SiliconGraphics, DEC/ultrix, and SUN.        \r\nC      CRAY AND HP DO NOT HAVE IDATE)        \r\nC        \r\nC     THIS ROUTINE OBTAINS THE MONTH, DAY AND YEAR, IN INTEGER FORMAT   \r\nC        \r\n      INTEGER DATE(3), DATE1(3)        \r\nC        \r\n      CALL IDATE (DATE1)        \r\nC                 DAY   MONTH     YEAR        \r\nC     THESE DATES HAD TO BE INTERCHANGED FOR THE SUN\r\n      DATE(1)=DATE1(2)\r\n      DATE(2)=DATE1(1)\r\n      DATE(3)=DATE1(3)-1900\r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/umffd.f",
    "content": "      SUBROUTINE UMFFD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/unpack.f",
    "content": "        SUBROUTINE UNPACK ( *, FILE, A )                                        \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        COMMON / UNPAKX / ITYPOT, IROBGN, LASROW, INCR                          \r\n        INTEGER           FILE                                                  \r\n        REAL              A(4), IBASE                                           \r\n        DATA              LARGE / 65536 /                                       \r\n        NAME = FILE                                                             \r\n        NUM    = NWRDEL( IABS( ITYPOT ) )                                       \r\n        CALL DSIPK1( IBLKD, ITYPOT )                                            \r\n        IF ( IRETRN .EQ. 1 ) GO TO 7700                                         \r\n        IF ( IROBGN .LE. 0 .OR. LASROW .LE. 0 ) GO TO 10                        \r\n        IROW   = IROBGN                                                         \r\n        ILSROW = LASROW                                                         \r\n        GO TO 20                                                                \r\n10      IROBGN = IBLKD( 4 )                                                     \r\n        IROW   = IROBGN                                                         \r\n        ILSROW = LARGE                                                          \r\n20      CONTINUE                                                                \r\n        INDEX2 = 1                                                              \r\n        ITYPE  = IBLKD( 13 )                                                    \r\n        INDEX1 = ( IBLKD( 5 ) - 1 ) * IBLKD( 14 ) + 1                           \r\n        NUMINC = NUM * INCR                                                     \r\n90      IF ( IBLKD( 4 ) .GT. ILSROW ) GO TO 200                                 \r\n        IF ( ( IBLKD( 4 ) + IBLKD( 6 ) - 1 ) .LT. IROBGN ) GO TO 145            \r\n100     IDIFF = ( IBLKD( 4 ) + IBLKD( 7 ) ) - IROW                              \r\n        IBLKD( 7 ) = IBLKD( 7 ) + 1                                             \r\n        IF ( IDIFF .EQ. 0 ) GO TO 140                                           \r\n        IF ( IDIFF .LT. 0 ) GO TO 142                                           \r\n        DO 130 K = 1, NUM                                                       \r\n        DO 110   KKK = 1, IDIFF                                                 \r\n        A( INDEX2 + K - 1 + (KKK-1)*NUMINC ) = 0.                               \r\n110     CONTINUE                                                                \r\n130     CONTINUE                                                                \r\n        INDEX2 = INDEX2 + IDIFF*NUMINC                                          \r\n        IROW   = IROW + IDIFF                                                   \r\n140     IF ( IBLKD(2) .NE. ITYPE ) GO TO 1400                                   \r\nCDIR$ NOVECTOR                                                                  \r\n        DO 141 K = 1, NUM                                                       \r\n        A( INDEX2 + K - 1 ) = IBASE( INDEX1 + K - 1 )                           \r\n141     CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        GO TO 1401                                                              \r\n1400    CALL DSUPKC( IBLKD( 2 ), ITYPE, IBASE( INDEX1 ), A( INDEX2 ) )          \r\n1401    CONTINUE                                                                \r\n        IF ( IROW .GE. ILSROW ) GO TO 225                                       \r\n        IROW = IROW + 1                                                         \r\n        INDEX2 = INDEX2 + NUMINC                                                \r\n142     INDEX1 = INDEX1 + IBLKD( 11 )                                           \r\n        IF ( IBLKD( 7 ) .NE. IBLKD( 6 ) ) GO TO 100                             \r\n145     CALL ENDGET( IBLKD )                                                    \r\n        CALL GETSTR( *200, IBLKD )                                              \r\n        INDEX1 = ( IBLKD( 5 ) - 1 ) * IBLKD( 14 ) + 1                           \r\n        IBLKD( 7 ) = 0                                                          \r\n150     IF ( IBLKD( 8 ) .LT. 1 ) GO TO 90                                       \r\n200     IF ( ILSROW .EQ. LARGE ) GO TO 230                                      \r\n        NUMLEF = LASROW - IROW + 1                                              \r\n        IF ( NUMLEF .LE. 0 ) GO TO 225                                          \r\n        DO 220 KK = 1, NUM                                                      \r\n        DO 210 K  = 1, NUMLEF                                                   \r\n        A( INDEX2 + KK - 1 + (K-1)*NUMINC ) = 0.                                \r\n210     CONTINUE                                                                \r\n220     CONTINUE                                                                \r\n225     IF ( IBLKD( 8 ) .GE. 1 ) GO TO 240                                      \r\n        CALL DSSKRC                                                             \r\n        CALL DSSDCB                                                             \r\n        GO TO 240                                                               \r\n230     LASROW = IROW - 1                                                       \r\n240     RETURN                                                                  \r\n7700    RETURN 1                                                                \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/vaxsch.f",
    "content": "      SUBROUTINE VAXSCH (NIN,NOUT)        \r\nC        \r\nC     TO SEARCH UNIT NIN FOR END OF BULK DATA DECK        \r\nC        \r\n      CHARACTER*8 E1,E2,E3,CHR        \r\n      DATA        E1,E2,E3 / 'ENDDATA ', 'END DATA', 'ENDATA  ' /       \r\nC        \r\nC        \r\n   60 READ (NIN,70,END=80) CHR        \r\n   70 FORMAT (A8)        \r\n      IF (CHR.EQ.E1 .OR. CHR.EQ.E2 .OR. CHR.EQ.E3) GO TO 100        \r\n      GO TO 60        \r\nC        \r\nC     ENDDATA CARD NOT FOUND        \r\nC        \r\n   80 WRITE  (NOUT,90)        \r\n   90 FORMAT ('0*** USER FATAL MESSAGE: \"ENDDATA\" CARD NOT FOUND BY ',  \r\n     1        'INPUT MODULE')        \r\n      CALL VAXEND        \r\nC        \r\n  100 RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/waltim.f",
    "content": "      SUBROUTINE WALTIM (WALSEC)        \r\nC        \r\nC     THIS ROUTINE OBTAINS THE CURRENT WALL CLOCK TIME IN SECONDS,      \r\nC     PASS MID-NIGHT        \r\nC        \r\n      INTEGER WALSEC, TIME(3)        \r\nC        \r\n      CALL ITIME ( TIME )\r\n      WALSEC = TIME(1) * 3600 + TIME(2) * 60 + TIME(3)\r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mds/write.f",
    "content": "      SUBROUTINE WRITE ( FILE, IDATA, N, EORFLG )                             \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n      COMMON / DDIOSV / IFLPOS( 2,80 )                                        \r\n      INTEGER  FILE, EORFLG, IDATA( 2 )                                       \r\n      IEOR   = EORFLG                                                         \r\n      NAME   = FILE                                                           \r\n      NWORDS = N                                                              \r\n      IF ( NWORDS .GE. 0 ) GO TO 10                                           \r\n      CALL DSMSG( 6 )                                                         \r\n10    CALL DSGEFL                                                             \r\n      IF ( NWORDS .EQ. 0 ) GO TO 25                                           \r\n      IF ( IPRVOP .NE. 0 ) GO TO 20                                           \r\n      CALL DSMSG( 7 )                                                         \r\n20    IF ( INDCLR .NE. INDCBP ) GO TO 30                                      \r\n      IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX )                                   \r\n      IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX )                                   \r\n      IBASE( INDCLR ) = IDSRH + IDSC                                          \r\n      IBLOCK = NBLOCK                                                         \r\n      IBASE( INDBAS + NBUFF + 2 ) = NBLOCK                                    \r\n      GO TO 40                                                                \r\n25    IF ( INDCBP .NE. INDCLR ) GO TO 70                                      \r\n      LWORDS = NBUFF - ( INDCLR - INDBAS ) - 2                                \r\n      IF ( LWORDS .GT. 0 ) GO TO 70                                           \r\n      IBASE( INDCLR ) = IDSEB                                                 \r\n      CALL DSWRNB                                                             \r\n      IBASE( INDCLR ) = IDSRH + IDSC                                          \r\n      IBASE( INDCLR + 1 ) = IDSRT + IDSC + ( INDCLR - INDBAS + 1 )            \r\n      INDCBP = INDCBP + 2                                                     \r\n      INDCLR = INDCBP                                                         \r\n      GO TO 80                                                                \r\n30    IBLOCK = IBASE( INDBAS + NBUFF + 2 )                                    \r\n40    LWORDS = NBUFF - ( INDCBP-INDBAS )                                      \r\n      IF ( LWORDS .GE. NWORDS ) GO TO 50                                      \r\n      CALL DSWRT1( IDATA )                                                    \r\nCWKBI SPR94013 11/94\r\n      IBASE( INDBAS + NBUFF + 2 ) = IBLOCK \r\n      GO TO 80                                                                \r\n50    DO 60 I = 1, NWORDS                                                     \r\n      IBASE( INDCBP + I  ) = IDATA( I )                                       \r\n60    CONTINUE                                                                \r\n      IBASE( INDCLR ) = IBASE( INDCLR ) + NWORDS                              \r\n      INDCBP = INDCBP + NWORDS                                                \r\n70    IF ( IEOR .EQ. 0 ) GO TO 80                                             \r\n      IF ( INDCBP .NE. INDCLR ) GO TO 75                                      \r\n      IBASE( INDCBP ) = IDSRH + IDSC                                          \r\n      IFLPOS( 1,IFILEX ) = FCB( 3, IFILEX )                                   \r\n      IFLPOS( 2,IFILEX ) = FCB( 4, IFILEX )                                   \r\n75    IBASE( INDCBP+1 ) = IDSRT + IDSC + ( INDCLR-INDBAS+1 )                  \r\n      INDCBP = INDCBP + 2                                                     \r\n      INDCLR = INDCBP                                                         \r\n80    CALL DSSDCB                                                             \r\n      RETURN                                                                  \r\n      END                                                                     \r\n"
  },
  {
    "path": "mds/wrtblk.f",
    "content": "        SUBROUTINE WRTBLK ( FILE, IEND )                                        \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER FILE                                                            \r\n        NAME = FILE                                                             \r\n        CALL DSGEFL                                                             \r\nC        PRINT *,' WRTBLK,NAME,IFILEX,INDBAS=',NAME,IFILEX,INDBAS               \r\nC        WRITE(6,40646)(IBASE(INDBAS+K),K=0,7)                                  \r\n40646   FORMAT(' WRTBLK,BUFFER=',8(1X,Z8))                                      \r\n        CALL DBMMGR( 8 )                                                        \r\n        INDCLR = IBASE( INDBAS+4 )                                              \r\n        NBLOCK = IBASE( INDBAS+3 )                                              \r\n        IBASE( INDBAS+1 ) = IBASE( INDBAS+4 )                                   \r\n        IBASE( INDBAS+2 ) = IBASE( INDBAS+4 )                                   \r\n        FCB( 3,IFILEX ) = INDCLR                                                \r\n        FCB( 4,IFILEX ) = NBLOCK                                                \r\nC       INNN = FCB(12, IFILEX)                                                  \r\nC       PRINT *,' WRTBLK-2,IFILEX,INNN=',IFILEX,INNN                            \r\nC       WRITE(6,40646)(IBASE(INNN+K),K=0,7)                                     \r\n        IF ( IEND .EQ. 1 ) GO TO 700                                            \r\n        CALL DBMMGR( 4 )                                                        \r\n700     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/wrtfmt.f",
    "content": "      SUBROUTINE WRTFMT ( IOUT, NWDS, IFMT )\r\n      CHARACTER*1  IFMT(*)\r\n      CALL FORWRT ( IFMT, IOUT, NWDS )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mds/zblpki.f",
    "content": "        SUBROUTINE ZBLPKI                                                       \r\n        INTEGER A                                                               \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        COMMON / ZBLPKX / A(4), I                                               \r\n        IBLKA(15) = I                                                           \r\n        ITYPIN = IBLKA( 13 )                                                    \r\n        NWORDS = NWRDEL( ITYPIN )                                               \r\n        IF ( IBLKA( 2 ) .GE. 3 ) GO TO 5                                        \r\n        INCCNT = 1                                                              \r\n        GO TO 8                                                                 \r\n5       INCCNT = 2                                                              \r\n8       CONTINUE                                                                \r\n        DO 10 K = 1, NWORDS                                                     \r\n        IF ( A( K ) .NE. 0 ) GO TO 20                                           \r\n10      CONTINUE                                                                \r\n        GO TO 7000                                                              \r\n20      IF ( IBLKA( 4 ) .EQ. 0 ) GO TO 35                                       \r\n        NEXROW = IBLKA( 4 ) + IBLKA( 7 )                                        \r\n        ICROW  = IBLKA( 15 )                                                    \r\n        IF ( ICROW .GE. NEXROW ) GO TO 30                                       \r\n        CALL DSMSG1( IBLKA )                                                    \r\n        CALL DSMSG( 119 )                                                       \r\n30      IF ( ICROW .EQ. NEXROW ) GO TO 40                                       \r\n        CALL ENDPUT( IBLKA )                                                    \r\n        CALL PUTSTR( IBLKA )                                                    \r\n        IBLKA( 7 ) = 0                                                          \r\n35      ICROW = IBLKA( 15 )                                                     \r\n        IBLKA( 4 ) = ICROW                                                      \r\n40      INDEX  = ( IBLKA( 5 ) - 1  ) * IBLKA( 14 ) + 1                          \r\n        IF ( ITYPIN .NE. IBLKA(2) ) GO TO 100                                   \r\nCDIR$ NOVECTOR                                                                  \r\n        DO 50 KK = 1, NWORDS                                                    \r\n        IBASE( INDEX + KK - 1 ) = A( KK )                                       \r\n50      CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        GO TO 200                                                               \r\n100     CALL DSUPKC ( ITYPIN, IBLKA( 2 ), A, IBASE( INDEX ) )                   \r\n200     CONTINUE                                                                \r\n        IBLKA( 5 ) = IBLKA( 5 ) + INCCNT                                        \r\n        IBLKA( 7 ) = IBLKA( 7 ) + 1                                             \r\n        IBLKA(10 ) = IBLKA(10 ) + IBLKA( 11 )                                   \r\n        IF ( IBLKA( 6 ) .GT. IBLKA( 7 ) ) GO TO 7000                            \r\n        CALL ENDPUT( IBLKA )                                                    \r\n        CALL PUTSTR( IBLKA )                                                    \r\n        IBLKA( 4 ) = 0                                                          \r\n        IBLKA( 7 ) = 0                                                          \r\n7000    RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mds/zntpki.f",
    "content": "        SUBROUTINE ZNTPKI                                                       \r\n      INCLUDE 'DSIOF.COM'                                                       \r\n        COMMON / ZNTPKX / A(4), I, IEOL, IENDRC                                 \r\n      INCLUDE 'PAKBLK.COM'                                                      \r\n      INCLUDE 'XNSTRN.COM'                                                      \r\n        INTEGER            A                                                    \r\n        IRETRN = 0                                                              \r\n        I      = IBLKB( 4 )                                                     \r\n        INDEX  = ( IBLKB(5)-1 )*IBLKB(14) + 1 + IBLKB(7)*IBLKB(11)              \r\n        ITYPOT = IBLKB( 13 )                                                    \r\nCDIR$ NOVECTOR                                                                  \r\n        IF ( ITYPOT .NE. IBLKB(2) ) GO TO 50                                    \r\n        NUM = NWRDEL( ITYPOT )                                                  \r\n        DO 40 KK = 1, NUM                                                       \r\n        A( KK ) = IBASE( INDEX + KK - 1 )                                       \r\n40      CONTINUE                                                                \r\nCDIR$ VECTOR                                                                    \r\n        GO TO 70                                                                \r\n50      CALL DSUPKC( IBLKB(2), ITYPOT, IBASE( INDEX ), A )                      \r\n70      CONTINUE                                                                \r\n        IBLKB( 4 ) = IBLKB( 4 ) + 1                                             \r\n        IBLKB( 7 ) = IBLKB( 7 ) + 1                                             \r\n        IBLKB(10 ) = IBLKB( 4 )                                                 \r\n        IF ( IBLKB( 7 ) .LT. IBLKB( 6 ) ) GO TO 200                             \r\n        CALL ENDGET( IBLKB )                                                    \r\n        CALL GETSTR( *100, IBLKB )                                              \r\n100     IBLKB( 7 ) = 0                                                          \r\n200     CONTINUE                                                                \r\n        IF ( IRETRN .NE. 0 ) GO TO 300                                          \r\n        IEOL    = 0                                                             \r\n        IENDRC  = 0                                                             \r\n        GO TO 700                                                               \r\n300     IEOL    = 1                                                             \r\n        IENDRC  = 1                                                             \r\n700     RETURN                                                                  \r\n        END                                                                     \r\n"
  },
  {
    "path": "mis/MMACOM.COM",
    "content": "      COMMON / MMACOM / IFILE , LASIND, SIGN  , ITYPE , IAX   , IDX\r\n     1,                 IDX2  , IDX4  , IBROW , NWDD  , NWDB  , NCOLPP\r\n     2,                 OFILE , IPASS , NASTOR, NBSTOR, NWDDNDR,IBX\r\n     3,                 NWDDNBR,IRFILE, IRCOL1, IRCOLN, LASMEM, IRPOS(3)\r\n     4,                 IAX2  , LASINDM,METHOD\r\n"
  },
  {
    "path": "mis/SMCOMX.COM",
    "content": "      DOUBLE PRECISION  DAJJR   ,DAJJI   ,DDR     ,DDC     ,MINDD   \r\n      INTEGER           POWER   ,STURM   ,CHLSKY\r\n      LOGICAL           OPNSCR\r\n      COMMON  /SMCOMX/  NCOL    ,IERROR  ,IVWRDS  ,MAXNAC  ,NSPILL\r\n     &,                 MAXINLOP,IDBASE  ,IDBMAX  ,IBUF1   ,IBUF2\r\n     &,                 OPNSCR  ,IOLOOP  ,IILOOP  ,LASCOL  ,KROW\r\n     &,                 KROWS   ,KROWN   ,KRIDX   ,KRIDXN  ,JRIDXN\r\n     &,                 JROW    ,JROWS   ,JROWN   ,JRIDX   ,JVIDX\r\n     &,                 IROW1   ,IROWN   ,KFRCOL  ,KLSCOL  ,KLSROW\r\n     &,                 IOL     ,IIL     ,KTYPE   ,ISKIP   ,INDEXV\r\n     &,                 INDEXVD ,JCOL    ,KAROWS  ,MXRECL  ,NVTERM\r\n     &,                 KCOL    ,MAXNCOL ,MEMFRE  ,MEMCOL1 ,MEMLCK\r\n     &,                 MEMLAS  ,MEMCOLN ,ISPILL  ,KPREC   ,NBANDW\r\n     &,                 MAXNAR  ,MBLK(15),MOBLK(15)\r\n      COMMON  /SMCOMY/  DAJJR   ,DAJJI   ,AJJR    ,AJJI\r\n      COMMON  /SYSTEM/  ISYSBF  ,NOUT    ,DUM1(37),NBPW    ,DUM2(14)\r\n     &,                 ISPREC\r\n      COMMON  /SFACT /  MCB(7)  ,LLL(7)  ,DBC(7)  ,ISCR1   ,ISCR2\r\n     &,                 LCORE   ,DDR     ,DDC     ,POWER   ,SCR3    \r\n     &,                 MINDD   ,CHLSKY\r\n      COMMON  /STURMX/  STURM   ,SHFTPT  ,KEEP    ,PTSHFT  ,NR\r\n"
  },
  {
    "path": "mis/a42a8.f",
    "content": "      SUBROUTINE A4 2 A8 (A,B,C)\r\nC\r\nC     MERGES TWO A4 BCD WORDS (A AND B) TO ONE A8 BCD WORD (C)\r\nC\r\n      CHARACTER*4     KA,    KB\r\n      CHARACTER*8     KC,    D\r\n      REAL            A,     B\r\n      REAL            C(2)\r\n      COMMON /SYSTEM/ DUMMY(40), NCPW\r\nC\r\n      WRITE (D,10) A,B\r\n      IF (NCPW .LT. 8) READ (D,10) C(1),C(2)\r\n      IF (NCPW .GE. 8) READ (D,20) C(1)\r\n 10   FORMAT (2A4)\r\n 20   FORMAT ( A8)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY A4 2 K8 (A,B,KC)\r\nC     ======================\r\nC\r\nC     MERGES TWO A4 BCD WORDS (A AND B) TO ONE A8 CHARACTER WORD (KC)\r\nC\r\n      WRITE (KC,10) A,B\r\n      RETURN\r\nC\r\nC\r\n      ENTRY A4 2 K4 (A,KA,NOTUSE)\r\nC     ===========================\r\nC\r\nC     CONVERTS ONE A4 BCD WORD (A) TO ONE A4 CHARACTER WORD (KA)\r\nC\r\n      WRITE  (KA,30) A\r\n 30   FORMAT (A4)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY A8 2 K8 (C,KC,NOTUSE)\r\nC     ===========================\r\nC\r\nC     CONVERTS ONE A8 BCD WORD (C) TO ONE A4 CHARACTER WORD (KC)\r\nC\r\n      IF (NCPW .LT. 8) WRITE (KC,10) C(1),C(2)\r\n      IF (NCPW .GE. 8) WRITE (KC,20) C(1)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY K4 2 K8 (KA,KB,KC)\r\nC     ========================\r\nC\r\nC     MERGES TWO A4 CHARACTER WORDS (KA AND KB) TO ONE A8 CHARACTER\r\nC     WORD (KC)\r\nC\r\nC     NOTE - SOME MACHINES, SUCH AS UNIVAC, HANDLE BCD WORD AND\r\nC            CHARACTER WORD QUIT DIFFERENTLY\r\nC\r\n      WRITE (KC,10) KA,KB\r\n      RETURN\r\nC\r\nC\r\n      ENTRY K4 2 A8 (KA,KB,C)\r\nC     =======================\r\nC\r\nC     MERGES TWO A4 CHARACTER WORDS (KA AND KB) TO ONE A8 BCD WORD (C)\r\nC\r\n      WRITE (D,10) KA,KB\r\n      IF (NCPW .LT. 8) READ (D,10) C(1),C(2)\r\n      IF (NCPW .GE. 8) READ (D,20) C(1)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY K4 2 A4 (KA,A,NOTUSE)\r\nC     ===========================\r\nC\r\nC     CONVERTS ONE A4 CHARACTER WORD (KA) TO ONE A4 BCD WORD (A)\r\nC\r\n      READ (KA,30) A\r\n      RETURN\r\nC\r\nC\r\n      ENTRY K8 2 A8 (KC,C,NOTUSE)\r\nC     ===========================\r\nC\r\nC     CONVERTS ONE A8 CHARACTER WORD (KC) TO ONE A8 BCD WORD (C)\r\nC\r\n      IF (NCPW .LT. 8) READ (KC,10) C(1),C(2)\r\n      IF (NCPW .GE. 8) READ (KC,20) C(1)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/a82int.f",
    "content": "      SUBROUTINE A8 2 INT (*,A,N,B,INT)\r\nC\r\n      CHARACTER*8     C\r\n      REAL            A(2)\r\n      COMMON /XREADX/ NOUT\r\nC\r\nC     THESE ROUTINES PERFORM IN THE OPPOSITE DIRECTION AS THOSE OF THE\r\nC     INT2A8 GROUP OF ROUTINES\r\nC     THIS ROUTINE IS MACHINE INDEPENDENT\r\nC\r\nC     ENTRY POINTS   A8 2 INT  (BCD-INTEGER VERSION)\r\nC                    K8 2 INT  (CHARACTER-INTEGER VERSION)\r\nC                    A8 2 FP   (BCD-REAL VERSION)\r\nC                    K8 2 FP   (CHARACTER-REAL VERSION)\r\nC\r\n      NT = +1\r\n      GO TO 20\r\nC\r\n      ENTRY K8 2 INT (*,C,N,B,INT)\r\nC     ****************************\r\nC\r\n      NT = +1\r\n      GO TO 30\r\nC\r\n      ENTRY A8 2 FP (*,A,N,B,INT)\r\nC     ***************************\r\nC\r\n      NT = -1\r\nC\r\n 20   IF (N .GT. 8) GO TO 50\r\n      INT = NT\r\n      CALL NA12IF (*80,A,N,B,INT)\r\n      RETURN\r\nC\r\n      ENTRY K8 2 FP (*,C,N,B,INT)\r\nC     ***************************\r\nC\r\n      NT = -1\r\nC\r\n 30   IF (N .GT. 8) GO TO 50\r\n      INT = NT\r\n      CALL NK12IF (*80,C,N,B,INT)\r\n      RETURN\r\nC\r\n 50   WRITE  (NOUT,60) N,NT\r\n 60   FORMAT ('  N.GT.8/A82INT',I5,7X,'NT=',I2)\r\n 80   RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/adr.f",
    "content": "      SUBROUTINE ADR\r\nC\r\nC     AERODYNAMIC DATA RECOVERY   -  FORCE OUTPUT BY SET SELECTION\r\nC\r\nC     DMAP\r\nC     FLUTTER\r\nC     ADR  CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/C,N,BOV/C,\r\nC          N,MACH=0.0/C,N,APP $\r\nC     DYNAMICS\r\nC     ADR  UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/V,N,BOV/C,Y,\r\nC          MACH=0.0/C,N,APP $\r\nC\r\n      INTEGER         SYSBUF,OUT,CASECC,DISP,QKHL,LOAD,SPLINE,SILA,\r\n     1                USETA,IZ(1),PKF,APP,FLUT,FREQ,SCR1,SCR2,SCR3,SCR4,\r\n     2                MCB(7)\r\n      REAL            MACH\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / BOV,MACH,APP\r\n      COMMON /SYSTEM/ SYSBUF,OUT\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    IAERO / 176/\r\n      DATA    FLUT  / 4HFLUT/, FREQ /4HFREQ/\r\n      DATA    DISP  / 101/ , CASECC /102/ , QKHL /103/ , LOAD /104/\r\n      DATA    SPLINE/ 105/ , SILA   /106/ , USETA/107/ , PKF  /201/\r\n      DATA    SCR1  / 301/ , SCR2   /302/ , SCR3 /303/ , SCR4 /304/\r\nC\r\nC\r\nC     BUILD    P    =  Q    *  U\r\nC               KF      KH      H\r\nC     WHERE  QKH INTERPOLATED FOR A EIGENVALUE OR FREQUENCY - MACH DEP.\r\nC            UH  - EIGENVALUE OR FREQUENCY\r\nC\r\nC\r\nC     INITIALIZE  - LOOK FOR A REQUEST\r\nC\r\n      IF (APP.EQ.FLUT .OR. APP.EQ.FREQ) GO TO 5\r\n      GO TO 1000\r\n    5 NCORE  = KORSZ(Z)\r\n      IBUF1  = NCORE - SYSBUF\r\n      CALL OPEN (*1000,CASECC,IZ(IBUF1),0)\r\n      CALL FWDREC (*1000,CASECC)\r\n      CALL READ (*1000,*10,CASECC,Z,IBUF1,0,NW)\r\n   10 IF (IZ(IAERO) .EQ. 0) GO TO 1000\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     BUILD INTERPOLATED MATRIX FROM QHKL ON SCR1\r\nC     DEPENDENT LIST\r\nC     IF CLAMAL1 PICK UP FREQUENCY FROM OFP TABLE\r\nC     IF TOL1    PICK UP FREQUENCY FROM HEADER\r\nC     INDEPENDENT LIST ON QKHL\r\nC\r\n      CALL OPEN (*1000,LOAD,IZ(IBUF1),0)\r\n      IF (APP .EQ. FLUT) GO TO 30\r\nC\r\nC     TOL1 = LOAD\r\nC\r\n      MCB(1) = CASECC\r\n      CALL RDTRL (MCB)\r\n      CALL READ (*1000,*1000,LOAD,IZ,-2,0,NFREQ)\r\n      CALL READ (*1000,*20,LOAD,IZ,IBUF1,0,NFREQ)\r\n      GO TO 999\r\n   20 NLOAD = MCB(2)\r\n      GO TO 60\r\nC\r\nC     CLAMAL1 = LOAD\r\nC\r\n   30 CALL FWDREC (*1000,LOAD)\r\n      CALL FWDREC (*1000,LOAD)\r\n      CALL READ (*1000,*40,LOAD,IZ,IBUF1,0,NFREQ)\r\n      GO TO 999\r\n   40 NFREQ = NFREQ/6\r\n      IF(BOV .EQ. 0.0) GO TO 997\r\n      DO 50 I = 1,NFREQ\r\n      K     =  I*6 - 1\r\n      Z(I)  = Z(K)/(TWOPI*BOV)\r\n   50 CONTINUE\r\n      NLOAD = 1\r\nC\r\nC     CALL ADRI TO BUILD  (AFTER ADRI FREQUENCY*2PI*BOV IS IN Z AT EVERY\r\nC     OTHER SLOT 0.0 ,W FOR NFREQ*2\r\nC\r\n   60 CALL CLOSE (LOAD,1)\r\n      CALL ADRI (Z,NFREQ,NCORE,QKHL,SCR1,SCR2,SCR3,SCR4,NROW,NCOL,NOGO)\r\n      IF (NOGO .NE. 0) GO TO 1000\r\nC\r\nC     SCR1 NOW HAS QKH INTERPOLATED    NROW*NCOL(ROW5)  NFREQ(COLUMNS)\r\nC\r\n      IPQ   = NFREQ*2 + 1\r\nC\r\nC     BUILD PKF\r\nC\r\n      IOUT  = 3\r\n      ITI   = 3\r\n      ITO   = 3\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      MCB(1)= DISP\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT.    0) GO TO 1000\r\n      IF (MCB(3) .NE. NCOL) GO TO 998\r\n      NNS1  = NROW*NCOL\r\n      II    = 1\r\n      NN    = NROW\r\n      INN   = 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      CALL GOPEN (PKF,Z(IBUF2),1)\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      CALL GOPEN (DISP,Z(IBUF3),0)\r\n      CALL GOPEN (SCR1,Z(IBUF1),0)\r\n      MCB(1) = PKF\r\n      MCB(2) = 0\r\n      MCB(3) = NN\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      NTERMS = NNS1*2\r\n      NTERMD = NCOL*2\r\n      NTERMA = NROW*2\r\n      IPD    = IPQ + NTERMS\r\n      IPA    = IPD + NTERMD\r\n      NEXT   = IPA + NTERMA\r\n      IF (NEXT .GT. IBUF3) GO TO 999\r\n      DO 150 I = 1,NLOAD\r\n      DO 140 J = 1,NFREQ\r\nC\r\nC     UNPACK INTERPOLATED MATRIX COLUMN THEN DISP VECTOR  MULTIPLY AND\r\nC     PACK OUT\r\nC\r\n      NNN = NNS1\r\n      CALL UNPACK (*70,SCR1,Z(IPQ))\r\nC\r\nC     MULTIPLY BACK BY FREQUENCY (K)\r\nC\r\n      DO 71 L = 1,NTERMS,2\r\n      M = J*2\r\n      Z(IPQ+L) = Z(IPQ+L)*Z(M)\r\n   71 CONTINUE\r\n      GO TO 75\r\n   70 CALL ZEROC (Z(IPQ),NTERMS)\r\n   75 NNN = NCOL\r\n      CALL UNPACK (*80,DISP,Z(IPD))\r\n      GO TO 90\r\n   80 CALL ZEROC (Z(IPD),NTERMD)\r\n   90 CALL GMMATC (Z(IPD),1,NCOL,0,Z(IPQ),NCOL,NROW,0,Z(IPA))\r\n      CALL PACK (Z(IPA),PKF,MCB)\r\n  140 CONTINUE\r\n      IF (I .EQ. NLOAD) GO TO 150\r\n      CALL REWIND (SCR1)\r\n      CALL SKPREC (SCR1,1)\r\n  150 CONTINUE\r\n      CALL CLOSE  (SCR1,1)\r\n      CALL CLOSE  (DISP,1)\r\n      CALL CLOSE  (PKF, 1)\r\n      CALL WRTTRL (MCB)\r\n      CALL DMPFIL (-PKF,Z(IPQ),IBUF3-IPQ)\r\nC\r\nC     PUT FREQUENCY BACK TO ORIGINAL VALUE\r\nC\r\n      DO 160 I = 1,NFREQ\r\n      Z(I) = Z(I*2)/(TWOPI*BOV)\r\n  160 CONTINUE\r\nC\r\nC     PRINT RESULTS\r\nC\r\n      CALL ADRPRT (CASECC,PKF,SPLINE,SILA,USETA,Z,NFREQ,NCORE,NLOAD)\r\nC\r\nC     STOP  CLOSE ALL POSSIBLE OPENS\r\nC\r\n 1000 CALL CLOSE (CASECC,1)\r\n      CALL CLOSE (LOAD  ,1)\r\n      CALL CLOSE (PKF   ,1)\r\n      CALL CLOSE (DISP  ,1)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  999 CALL MESAGE (8,0,NAM)\r\n      GO TO 1000\r\n  998 CALL MESAGE (7,0,NAM)\r\n      GO TO 1000\r\n  997 WRITE  (OUT,9970) UIM\r\n 9970 FORMAT (A29,' 2272, NO FLUTTER CALCULATIONS CAN BE MADE IN ',\r\n     1        'MODULE ADR SINCE BOV = 0.0.')\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/adri.f",
    "content": "      SUBROUTINE ADRI (FL,NFREQ,NCORE,QHHL,SCR2,SCR1,SCR3,SCR4,NROW,\r\n     1                 NCOL,NOGO)\r\nC\r\n      INTEGER         QHHL,SCR1,SCR2,SCR3,SCR4,TRL(7),OUT\r\n      DIMENSION       FL(1),MCB(7),NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / BOV,RM\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /SYSTEM/ ISYS,OUT,DUM(52),IPREC\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /TYPE  / P(2),IWC(4)\r\n      DATA    NHFRDI, NAME /4HFRDI,4HADRI,4H    /\r\nC\r\n      IBUF1 = NCORE - ISYS\r\n      IBUF2 = IBUF1 - ISYS\r\n      NROW  = 0\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      II    = 1\r\n      INN   = 1\r\n      MCB(1)= QHHL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 250\r\n      NROW  = MCB(3)\r\n      CALL OPEN (*250,QHHL,FL(IBUF2),0)\r\n      CALL GOPEN (SCR1,FL(IBUF1),1)\r\n      CALL READ (*220,*220,QHHL,FL(1),-2,0,FLAG)\r\n      CALL READ (*220,*220,QHHL,NCOL,1,0,FLAG)\r\n      CALL READ (*220,*220,QHHL,N,1,0,FLAG)\r\n      N    = N + N\r\n      NI   = (MCB(2)/NCOL)*2\r\n      NI   = MIN0(NI,N)\r\n      NNN  = NROW\r\n      NN   = NCOL*NROW\r\n      ITI  = 3\r\n      ITO  = ITI\r\n      IOUT = ITI\r\n      NWC  = IWC(ITI)\r\n      CALL MAKMCB (TRL,SCR1,NN,MCB(4),ITO)\r\nC\r\nC     MAKE   DEPENDENT FREQ LIST\r\nC\r\n      IPD  = 1\r\n      NL   = 2*NFREQ\r\n      N    = NFREQ + 1\r\n      IPI  = IPD + NL\r\n      DO 10 I = 1,NFREQ\r\n      FL(NL  ) = FL(N-I)*TWOPI*BOV\r\n      FL(NL-1) = 0.0\r\n      NL   = NL -2\r\n   10 CONTINUE\r\nC\r\nC     MAKE INDEPENDENT FREQ LIST\r\nC\r\n      CALL READ (*220,*220,QHHL,FL(IPI),NI,1,FLAG)\r\nC\r\nC     FIND M\"S CLOSEST TO RM\r\nC\r\n      ICP = IPI + NI\r\n      RMI = 1.E20\r\n      RMS = 0.0\r\n      DO 30 I = 1,NI,2\r\n      RMX = ABS(FL(IPI+I-1) - RM)\r\n      RMI = AMIN1(RMI,RMX)\r\n      IF (RMX .GT. RMI) GO TO 30\r\n      RMS = FL(IPI+I-1)\r\n   30 CONTINUE\r\n      RMI = RMS\r\nC\r\nC     DO ALL K\"S ASSOCIATED WITH RMI\r\nC\r\n      K = 0\r\n      DO 150 I = 1,NI,2\r\n      IF (FL(IPI+I-1) .EQ. RMI) GO TO 120\r\nC\r\nC     SKIP MATRIX\r\nC\r\n      CALL SKPREC (QHHL,NCOL)\r\n      GO TO 150\r\nC\r\nC     MAKE MATRIX INTO COLUMN\r\nC\r\n  120 FL(IPI+K+1) = FL(IPI+I)\r\n      K  = K + 2\r\n      JI = ICP\r\n      N  = NROW*NWC\r\n      DO 130 J = 1,NCOL\r\n      CALL UNPACK (*131,QHHL,FL(JI))\r\n      GO TO 135\r\n  131 CALL ZEROC (FL(JI),N)\r\n  135 JI = JI + N\r\n  130 CONTINUE\r\nC\r\nC     DIVIDE IMAG PART OF QHHL BY FREQUENCY\r\nC\r\n      JJ = ICP + 1\r\n      KK = JI  - 1\r\n      DO 132 J = JJ,KK,2\r\n      FL(J) = FL(J)/FL(IPI+I)\r\n  132 CONTINUE\r\n      CALL PACK (FL(ICP),SCR1,TRL)\r\n  150 CONTINUE\r\n      CALL CLOSE (QHHL,1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL WRTTRL (TRL)\r\n      CALL BUG (NHFRDI,150,K ,1)\r\n      CALL BUG (NHFRDI,150,NFREQ,1)\r\n      CALL BUG (NHFRDI,150,FL(1),ICP)\r\nC\r\nC     SETUP TO CALL MINTRP\r\nC\r\n      NI   = K/2\r\n      NOGO = 0\r\n      NC   = NCORE - ICP\r\n      CALL DMPFIL (-SCR1,FL(ICP),NC)\r\n      IM   = 0\r\n      IK   = 1\r\n      CALL MINTRP (NI,FL(IPI),NFREQ,FL(IPD),-1,IM,IK,0.0,SCR1,SCR2,\r\n     1             SCR3,SCR4,FL(ICP),NC,NOGO,IPREC)\r\n      IF (NOGO .EQ. 1) GO TO 200\r\n      CALL DMPFIL (-SCR2,FL(ICP),NC)\r\n      RETURN\r\nC\r\n  200 WRITE  (OUT,210) UFM\r\n  210 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR')\r\nCIBMR 6/93  GO TO 240                                                 !*\r\n      GO TO 240\r\n  220 CALL MESAGE (3,QHHL,NAME)\r\n  240 NOGO = 1\r\n  250 CALL CLOSE (QHHL,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/adrprt.f",
    "content": "      SUBROUTINE ADRPRT (CASECC,PKF,SPLINE,SILA,USETA,FREQ,NFREQ,\r\n     1                   NCORE,NLOAD)\r\nC\r\nC     ADRPRT FORMATS PKF BY USER SET REQUEST FOR EACH FREQUENCY\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         CASECC,PKF,SPLINE,SILA,USETA,SYSBUF,OUT,NAM(2),\r\n     1                LSP(2),ANDF,SETNO,ALL,EXTID,TRL(7)\r\n      REAL            FREQ(1),Z(1),BUF(12),TSAVE(96)\r\n      COMMON /SYSTEM/ SYSBUF,OUT,DUM1(6),NLPP\r\n      COMMON /UNPAKX/ ITO,II,NN,INCR\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /OUTPUT/ HEAD(96)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    IAERO / 176 /, LCS /200/\r\n      DATA    NHFSSU, NAM /  4HFSSU,4HADRP,4HRT  /\r\n      DATA    LSP   / 200,2/\r\nC\r\nC     CORE LAYOUT\r\nC       FREQ LIST          NFREQ\r\nC       SPLINE TRIPLETS    3*K POINTS\r\nC       SILS FOR K POINTS  1 PER K\r\nC       USET MASKS         6*K POINTS\r\nC       CASECC RECORD      TRL(4) LONG\r\nC       LOAD VECTOR        K SIZE\r\nC       BUFFERS            2 * SYSBUF\r\nC\r\n      MASK = IBIT(19)\r\n      MASK = ITWO(MASK)\r\n      DO 5 I = 1,96\r\n    5 TSAVE(I) = HEAD(I)\r\n      IBUF1 = NCORE - SYSBUF - 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IZSPL = NFREQ\r\n      NR = IBUF2 - IZSPL\r\n      CALL PRELOC (*1000,Z(IBUF1),SPLINE)\r\n      CALL LOCATE (*1000,Z(IBUF1),LSP,DUM)\r\n      CALL READ (*1000,*10,SPLINE,Z(IZSPL+1),NR,0,NWR)\r\n      GO TO 999\r\n   10 NSPL  = NWR\r\n      IZSIL = IZSPL + NWR\r\n      CALL CLOSE (SPLINE,1)\r\nC\r\nC     FIND SMALLEST SILGA POINTER (-1+NEXTRA = NSKIP ON SILA)\r\nC\r\n      ISMAL = 1000000\r\n      DO 20 I = 1,NSPL,3\r\n      ISMAL = MIN0(ISMAL,IZ(IZSPL+I+1))\r\n   20 CONTINUE\r\n      ISMAL = ISMAL - 1\r\n      TRL(1)= SILA\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) GO TO 1000\r\n      NEXTRA = TRL(3)\r\n      CALL GOPEN (SILA,Z(IBUF1),0)\r\n      NSKIP = ISMAL + NEXTRA\r\n      NR = IBUF2 - IZSIL\r\n      CALL READ (*1000,*1000,SILA,Z(IZSIL+1),-NSKIP,0,NWR)\r\n      CALL READ (*1000,*30,SILA,Z(IZSIL+1),NR,0,NWR)\r\n      GO TO 999\r\n   30 NSIL = NWR\r\n      CALL CLOSE (SILA,1)\r\n      IZUSET = IZSIL + NWR\r\n      NR = IBUF2 - IZUSET\r\n      NSKIP = IZ(IZSIL+1) -1\r\n      CALL OPEN (*1000,USETA,Z(IBUF1),0)\r\n      CALL FWDREC (*1000,USETA)\r\n      CALL READ (*1000,*1000,USETA,Z(IZUSET+1),-NSKIP,0,NWR)\r\n      CALL READ (*1000,*40,USETA,Z(IZUSET+1),NR,0,NWR)\r\n      GO TO 999\r\n   40 ICC = IZUSET + NWR\r\n      CALL CLOSE (USETA,1)\r\nC\r\nC     ADJUST SILA AND USET POINTERS FOR SHRUNKEN LISTS\r\nC\r\n      DO 50 I = 1,NSPL,3\r\n      IZ(IZSPL+I+1) = IZ(IZSPL+I+1) - ISMAL\r\n   50 CONTINUE\r\n      DO 60 I = 1,NSIL\r\n      IZ(IZSIL+I) = IZ(IZSIL+I) - NSKIP\r\n   60 CONTINUE\r\n      CALL BUG (NHFSSU,60,Z,ICC)\r\n      TRL(1) = CASECC\r\n      CALL RDTRL (TRL)\r\n      LCC = TRL(4) + 1\r\n      IZVECT = ICC + LCC\r\n      TRL(1) = PKF\r\n      CALL RDTRL (TRL)\r\n      ITO = 3\r\n      II  = 1\r\n      NN  = TRL(3)\r\n      INCR  = 1\r\n      NVECT = TRL(3)*2\r\n      IEND  = IZVECT + NVECT\r\n      IF (IEND .GT. IBUF2) GO TO 999\r\n      CALL OPEN (*1000,CASECC,Z(IBUF1),0)\r\n      CALL FWDREC (*1000,CASECC)\r\n      CALL OPEN (*1000,PKF,Z(IBUF2),0)\r\n      CALL FWDREC (*1000,PKF)\r\nC\r\nC     LOOP OVER NLOAD (CASECC RECORDS)\r\nC     THEN LOOP OVER NFREQ  (PKF COLUMNS)\r\nC     OUTPUT K POINTS FOR SET LIST\r\nC\r\n      DO 300 K = 1,NLOAD\r\n      CALL READ (*1000,*65,CASECC,Z(ICC+1),LCC,1,NWR)\r\n   65 SETNO = IZ(ICC+IAERO)\r\n      ALL = 0\r\n      DO 61 I = 1,96\r\n   61 HEAD(I) = Z(ICC+I+38)\r\n      IF(SETNO) 70,250,80\r\n   70 ALL = 1\r\n      GO TO 100\r\n   80 ISETNO = LCS + IZ(ICC+LCS) + 1 + ICC\r\n   90 ISET = ISETNO + 2\r\n      NSET = IZ(ISETNO+1) + ISET - 1\r\n      IF (IZ(ISETNO) .EQ. SETNO) GO TO 100\r\n      ISETNO = NSET +1\r\n      IF (ISETNO .LT. IZVECT) GO TO 90\r\n      ALL = 1\r\n  100 DO 240 J = 1,NFREQ\r\n      NLPPP = NLPP\r\n      CALL UNPACK (*110,PKF,Z(IZVECT+1))\r\n      GO TO 120\r\n  110 CALL ZEROC (Z(IZVECT+1),NVECT)\r\nC\r\nC     PRINT LOOP\r\nC\r\n  120 IF (ALL .EQ. 0) GO TO 150\r\n      ASSIGN 140 TO IRET\r\n      L = 1\r\n      GO TO 181\r\n  140 L = L + 3\r\n      IF (L .GE. NSPL) GO TO 240\r\n      GO TO 181\r\n  150 I = ISET\r\n  155 IF (I .EQ. NSET) GO TO 170\r\n      IF (IZ(I+1) .GT. 0) GO TO 170\r\n      ID = IZ(I  )\r\n      N  =-IZ(I+1)\r\n      I  = I+1\r\n      ASSIGN 160 TO IRET1\r\n      GO TO 180\r\n  160 ID = ID + 1\r\n      IF (ID .LE. N) GO TO 180\r\n      GO TO 175\r\n  170 ID = IZ(I)\r\n      ASSIGN 175 TO IRET1\r\n      GO TO 180\r\n  175 I = I + 1\r\n      IF (I .LE. NSET) GO TO 155\r\n      GO TO 240\r\nC\r\nC     LOCATE ELEMENT THEN  PRINT DATA\r\nC\r\n  180 ASSIGN 190 TO IRET\r\n      CALL BISLOC (*190,ID,IZ(IZSPL+1),3,NSPL/3,L)\r\n  181 EXTID = IZ(IZSPL+L)\r\n      IPSIL = IZ(IZSPL+L+1)\r\n      IROW  = IZ(IZSPL+L+2) *2 - 1 + IZVECT\r\n      IPUSET= IZ(IZSIL+IPSIL) + IZUSET - 1\r\n      GO TO 200\r\n  190 GO TO IRET1, (160,175)\r\nC\r\nC     PRINT\r\nC\r\n  200 IF (NLPPP .LT. NLPP) GO TO 210\r\n      CALL PAGE1\r\n      WRITE  (OUT,201) J,FREQ(J)\r\n  201 FORMAT (44X,42HAERODYNAMIC LOADS  (UNIT DYNAMIC PRESSURE),  /\r\n     1  30X,7HVECTOR ,I8,10X,12HFREQUENCY = ,1P,E14.6,7H  HERTZ,  /,\r\n     2  11H BOX OR    ,12X,7HT1 / R1,23X,7HT2 / R2,23X,7HT3 / R3, /,\r\n     3  11H BODY ELMT., 3(4X,4HREAL,10X,12HIMAGINARY   ))\r\n      NLPPP = 1\r\n  210 DO 220 M = 1,6\r\n      MM = M*2 - 1\r\n      BUF(MM  ) = 0.0\r\n      BUF(MM+1) = 0.0\r\n      IF (ANDF(IZ(IPUSET+M),MASK) .EQ. 0) GO TO 220\r\n      BUF(MM  ) = Z(IROW  )\r\n      BUF(MM+1) = Z(IROW+1)\r\n      IROW = IROW + 2\r\n  220 CONTINUE\r\n      WRITE  (OUT,221) EXTID,BUF\r\n  221 FORMAT (1H0,I10,6(1P,E15.6), /11X,6(1P,E15.6))\r\n      NLPPP = NLPPP + 3\r\n      GO TO IRET, (140,190)\r\n  240 CONTINUE\r\n  250 IF (K .EQ. NLOAD) GO TO 300\r\n      CALL REWIND (PKF)\r\n      CALL SKPREC (PKF,1)\r\n  300 CONTINUE\r\nC\r\nC     CLOSE UP AND RETURN\r\nC\r\n 1000 CALL CLOSE (CASECC,1)\r\n      CALL CLOSE (PKF,1)\r\n      CALL CLOSE (SILA,1)\r\n      CALL CLOSE (SPLINE,1)\r\n      DO 1001 I = 1,96\r\n 1001 HEAD(I) = TSAVE(I)\r\n      CALL PAGE2 (1)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  999 CALL MESAGE (8,0,NAM)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/af.f",
    "content": "      SUBROUTINE AF (F,N,A,B,C,C1,C2,C3,T1,T3,T5,JUMP)\r\nC\r\nC     THIS AREA INTEGRATION ROUTINE IS USED IN TRIM6, TRPLT1 AND TRSHL\r\nC     IT COMPUTES THE F FUNCTION, AND CONSTANTS C1, C2, C3\r\nC\r\nC     FAC ARE THE FACTORIALS 1 THRU 36\r\nC     B   IS  DISTANCE OF GRID POINT 1\r\nC     A   IS  DISTANCE OF GRID POINT 3\r\nC     C   IS  DISTANCE OF GRID POINT 5\r\nC     T1  IS  ASSOCIATIVE VARIABLE AT GRID POINT 1\r\nC     T3  IS  ASSOCIATIVE VARIABLE AT GRID POINT 3\r\nC     T5  IS  ASSOCIATIVE VARIABLE AT GRID POINT 5\r\nC     N   IS  DIMENSION OF AREA FUNCTION F\r\nC\r\nC\r\nC\r\n      REAL             F(N,N)\r\n      DOUBLE PRECISION FAC(20), TEMP\r\n      DATA FAC / 1.D0,1.D0, 2.D0,6.D0, 2.4D1,  1.2D2, 7.2D2, 5.04D3,\r\n     1           4.032D4,       3.6288D5,     3.6288D6,     3.99168D7,\r\n     2           4.790016D8,    6.227021D9,   8.7178291D10, 1.307674D12,\r\n     3           2.092279D13,   3.556874D14,  6.402374D15,  1.216451D17/\r\nC\r\n      IF (JUMP .GT. 0) GO TO 30\r\n      IF (N .GT. 18) STOP 'IN AF'\r\n      DO 10 I=1,N\r\n      DO 10 J=1,N\r\n 10   F(I,J)=0.0\r\n      DO 20 I=1,N\r\n      I1=I\r\n      DO 15 J=1,I\r\n      TEMP = DBLE(C**J) * FAC(I1) / FAC(I+2)\r\n      TEMP = DBLE(A**I1-(-B)**I1) * TEMP * FAC(J)\r\n      F(I1,J) = SNGL(TEMP)\r\n      I1=I1-1\r\n 15   CONTINUE\r\n 20   CONTINUE\r\n      IF (JUMP .LT. 0) RETURN\r\nC\r\n 30   AB=A-B\r\n      IF (A .EQ. B .AND. A .NE. 0.0) AB=A+B\r\n      IF (AB .EQ. 0.0) CALL MESAGE (-37,0,0)\r\n      C1=(T1*A-T3*B)/AB\r\n      C2=(T3-T1)/AB\r\n      C3=(T5-C1)/C\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ai.f",
    "content": "      FUNCTION AI (I,J,K,L,M,N,IP,IQ,R,Z)\r\nC\r\n      DIMENSION  R(1),Z(1)\r\nC\r\n      IF (R(I) .EQ. R(J)) GO TO 20\r\n      RD   = R(J)\r\n      IF (R(J) .EQ. 0.0) RD = R(I)\r\n      ABS1 = ABS((R(I)-R(J))/RD)\r\n      IF (ABS1 .LE. .0001) GO TO 20\r\n      AMKL = (R(L)*Z(K)-R(K)*Z(L))/(R(L)-R(K))\r\n      AKKL = (Z(L)-Z(K))/(R(L)-R(K))\r\n      AMMN = (R(N)*Z(M)-R(M)*Z(N))/(R(N)-R(M))\r\n      AKMN = (Z(N)-Z(M))/(R(N)-R(M))\r\n      IF (AKMN.NE.AKKL .OR. AMMN.NE.AMKL) GO TO 30\r\n   20 AI  = 0.0\r\n      GO TO 510\r\n   30 CONTINUE\r\n      ISS = IABS(IP)\r\n      IRR = IABS(IQ)\r\n      IF (IQ + 1) 100,300,50\r\n   50 CONTINUE\r\n      MM = IP\r\n      NN = IQ + 1\r\n      AI = BINT(I,J,AMMN,AKMN,MM,NN,R,Z) - BINT(I,J,AMKL,AKKL,MM,NN,R,Z)\r\n      GO TO 510\r\n  100 CONTINUE\r\n      IF (IP .LT. 0) GO TO 200\r\n      MM = IP\r\n      NN = IRR - 1\r\n      AI = F89(I,AMKL,AKKL,MM,NN,R) - F89(I,AMMN,AKMN,MM,NN,R)\r\n     1   - F89(J,AMKL,AKKL,MM,NN,R) + F89(J,AMMN,AKMN,MM,NN,R)\r\n      ARR= IRR\r\n      AI = (1.0/(1.0 - ARR))*AI\r\n      GO TO 510\r\n  200 CONTINUE\r\n      MM = ISS\r\n      NN = IRR - 1\r\n      AI = FF100(I,AMKL,AKKL,MM,NN,R) -FF100(I,AMMN,AKMN,MM,NN,R)\r\n     1   - FF100(J,AMKL,AKKL,MM,NN,R) +FF100(J,AMMN,AKMN,MM,NN,R)\r\n      ARR= IRR\r\n      AI = (1.0/(1.0-ARR))*AI\r\n      GO TO 510\r\n  300 CONTINUE\r\n      IF (IP + 1) 400,500,301\r\n  301 CONTINUE\r\n      MM = IP + 1\r\n      AMM= MM\r\n      XX = R(I)**MM/AMM\r\n      AI = (\r\n     1   +XX*ALOG(ABS(AMKL+AKKL*R(I)))-AKKL/AMM*F89(I,AMKL,AKKL,MM,1,R)\r\n     2   -XX*ALOG(ABS(AMMN+AKMN*R(I)))+AKMN/AMM*F89(I,AMMN,AKMN,MM,1,R)\r\n     3     )\r\n      XX = R(J)**MM/AMM\r\n      AI = (\r\n     1   -XX*ALOG(ABS(AMKL+AKKL*R(J)))+AKKL/AMM*F89(J,AMKL,AKKL,MM,1,R)\r\n     2   +XX*ALOG(ABS(AMMN+AKMN*R(J)))-AKMN/AMM*F89(J,AMMN,AKMN,MM,1,R)\r\n     3     ) + AI\r\n      GO TO 510\r\n  400 CONTINUE\r\n      MM = ISS - 1\r\n      AMM= MM\r\n      XX = AMM*R(I)**MM\r\n      AI = (\r\n     1  -ALOG(ABS(AMKL+AKKL*R(I)))/XX+AKKL/AMM*FF100(I,AMKL,AKKL,MM,1,R)\r\n     2  +ALOG(ABS(AMMN+AKMN*R(I)))/XX-AKMN/AMM*FF100(I,AMMN,AKMN,MM,1,R)\r\n     3     )\r\n      XX = AMM*R(J)**M\r\n      AI = (\r\n     1  +ALOG(ABS(AMKL+AKKL*R(J)))/XX-AKKL/AMM*FF100(J,AMKL,AKKL,MM,1,R)\r\n     2  -ALOG(ABS(AMMN+AKMN*R(J)))/XX+AKMN/AMM*FF100(J,AMMN,AKMN,MM,1,R)\r\n     3     ) + AI\r\n      GO TO 510\r\n  500 CONTINUE\r\n      AI = F6211(I,AMKL,AKKL,R) - F6211(I,AMMN,AKMN,R)\r\n     1   - F6211(J,AMKL,AKKL,R) + F6211(J,AMMN,AKMN,R)\r\n  510 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ais.f",
    "content": "      REAL FUNCTION AIS (NP,I,L,RR,ZZ)\r\nC\r\nC     THIS ROUTINE CALCULATES THE SINGLE PRECISION  DELTA(IJ) INTEGRALS\r\nC     FOR AXISYMMETRIC SOLIDS IN SDR2. CALCULATIONS DONE IN DOUBLE\r\nC     PRECISION\r\nC\r\nC     INPUT\r\nC     NP  = NUMBER OF POINTS (3 OR 4.  MORE THAN 4 WILL FAIL FSN-5)\r\nC     I,L = THE INTEGRAL DESIRED (I SERIES STARTS WITH -1)\r\nC     R   = RADIUS ARRAY (NP LONG)\r\nC     Z   = Z-CORD ARRAY (NP LONG)\r\nC\r\nC     OUTPUT\r\nC     DKL = DESIRED INTEGRAL\r\nC\r\n      INTEGER          NAM(2)\r\n      DOUBLE PRECISION A,AJ,AR,BETA,DR,DZ,DFACT,DZJ,DL1,DKL,EPS,FACT,\r\n     1                 GKL,ZERO,ONE,TWO,THREE,PR,RA,RB,R(4),RAK,RBK,\r\n     2                 ZA,ZB,Z(4)\r\n      DIMENSION        RR(4),ZZ(4)\r\n      DATA       EPS / .01D0 /\r\n      DATA       ZERO, ONE,TWO,THREE / 0.0D0, 1.0D0, 2.0D0, 3.0D0 /\r\n      DATA       NAM / 4HAIS , 1H    /\r\nC\r\n      DO 5 M = 1,NP\r\n      R(M) = RR(M)\r\n    5 Z(M) = ZZ(M)\r\n      DKL  = ZERO\r\n      L1   = L + 1\r\n      L2   = L + 2\r\n      DL1  = L1\r\n      K    = I + 1\r\nC\r\nC     LOOP ON NUMBER OF POINTS\r\nC\r\n      IF (R(1) .LE. ZERO) GO TO 300\r\n      DO 200 M = 1,NP\r\n      J  = M + 1\r\n      IF (M .EQ. NP) J = 1\r\n      RA = R(M)\r\n      RB = R(J)\r\n      ZA = Z(M)\r\n      ZB = Z(J)\r\n      DR = RB - RA\r\n      DZ = ZB - ZA\r\nC\r\nC     TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS)\r\nC\r\n      IF (RB .LE. ZERO) GO TO 300\r\n      GKL = ZERO\r\n      PR  = RA + RB\r\n      AR  = PR/TWO\r\nC\r\nC     CHECK FOR APPROXIMATION, DR/AVE(R)\r\nC\r\n      IF ( DABS ( DR/AR ) .LT. EPS ) GO TO 70\r\nC\r\n      A = ZA*DR - RA*DZ\r\n      BETA = A/DR\r\nC\r\nC     CHECK FOR BETA .EQ. 0 CASE\r\nC\r\n      IF (DABS(BETA/AR) .GT. EPS) GO TO 10\r\nC\r\n      IF (DZ .EQ. ZERO) GO TO 200\r\n      LK  = L + K + 1\r\n      AR  = LK\r\n      GKL = (DZ/DR)**L1*(RA**LK-RB**LK)/(DL1*AR)\r\n      GO TO 200\r\nC\r\nC     GENERAL CASE\r\nC\r\n   10 RAK = RA**K\r\n      RBK = RB**K\r\n      IF (K) 300,20,30\r\nC\r\nC     GENERAL CASE, K.EQ.0, CONSTANT TERM\r\nC\r\n   20 GKL = DLOG(RA/RB)/DL1\r\n      GO TO 40\r\nC\r\nC     GENERAL CASE, CONSTANT TERM\r\nC\r\n   30 AR  = K*L1\r\n      GKL = (RAK-RBK)/AR\r\nC\r\nC     GENERAL CASE, SUMMATION\r\nC\r\n   40 IF (DZ .EQ. ZERO) GO TO 65\r\n      LFACT = 1\r\nC\r\nC     CALCULATE FACTORIAL (L+1)\r\nC\r\n      DO 50 J = 2,L\r\n   50 LFACT = LFACT*J\r\n      FACTL = LFACT\r\n      JFACT = 1\r\n      AJ    = ONE\r\n      DZJ   = ONE\r\n      LMJF  = LFACT*L1\r\n      DO 60 J = 1,L1\r\n      JFACT = JFACT*J\r\nC\r\nC     CALCULATE (L+1-J) FACTORIAL IN LMJF\r\nC\r\n      LMJF  = LMJF /(L2-J)\r\n      FACT  = FACTL/FLOAT (JFACT*LMJF)\r\n      DFACT = K + J\r\n      DFACT = FACT /DFACT\r\n      AJ    = AJ *A\r\n      RAK   = RAK*RA\r\n      RBK   = RBK*RB\r\n      DZJ   = DZJ*DZ\r\n   60 GKL   = GKL + (DFACT*DZJ*(RAK-RBK))/AJ\r\nC\r\n   65 GKL   = GKL*BETA**L1\r\n      GO TO 200\r\nC\r\nC     APPROXIMATE CODE\r\nC\r\n   70 CONTINUE\r\n      IF (DR .EQ. ZERO) GO TO 200\r\n      DZJ = L1*L2\r\n      RBK = ZB**L1\r\n      J   = K - 1\r\n      GKL =-DR*AR**J*RBK/DL1\r\nC\r\n      IF (DZ .EQ. ZERO) GO TO 200\r\n      GKL = GKL + (((TWO*RA+RB)/THREE)**J*DR*DABS(ZA**L2-RBK*ZB))\r\n     1            /(DZJ*DZ)\r\nC\r\n  200 DKL = DKL + GKL\r\nC\r\nC     ALL DONE\r\nC\r\n  210 AIS = DKL\r\n      RETURN\r\nC\r\nC     ERROR\r\nC\r\n  300 CALL MESAGE (-7,K,NAM)\r\n      GO TO 210\r\n      END\r\n"
  },
  {
    "path": "mis/akapm.f",
    "content": "      SUBROUTINE AKAPM (ARG,BKPM)\r\nC\r\nC     SUBROUTINE FOR COMPUTING KAPPA MINUS\r\nC\r\n      COMPLEX         BKPM,C1,AI,C1TEST,BSYCON,ARG,\r\n     1                AT2,AT3,ALP0,ALP,ALN\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\nC\r\n      C1   = CEXP(-AI*ARG/2.0*(SPS-SNS))\r\n      GAM0 = SPS*DEL - SIGMA\r\n      PI2  = 2.0*PI\r\n      S1   = SPS/(DSTR**2)\r\n      S2   = SNS/DSTR\r\n      C2Q  = GAM0/DSTR - SCRK\r\n      C3Q  = GAM0/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2Q*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAM0*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP0 = T1 + T2\r\n      IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2)\r\n      C1   = C1*(1.0-ARG/ALP0)\r\n      A1   = PI2/(SPS-SNS)\r\n      A2   =-A1\r\n      B1   = GAM0/(SPS-SNS)\r\n      C1TEST = 0.0\r\n      DO 20 I = 1,200\r\n      R    = I\r\n      GAMP = PI2*R + GAM0\r\n      GAMN =-PI2*R + GAM0\r\n      C2P  = GAMP/DSTR - SCRK\r\n      C2Q  = GAMP/DSTR + SCRK\r\n      C2N  = GAMN/DSTR - SCRK\r\n      C3Q  = GAMN/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2P*C2Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMP*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP = T1 + T2\r\n      IF (NN .EQ. 1) ALP = CMPLX(T1,T2)\r\n      NN   = 0\r\n      CSEC = C2N*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMN*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALN = T1 + T2\r\n      IF (NN .EQ. 1) ALN = CMPLX(T1,T2)\r\n      AT2  = (ALP-A1*R-B1)/(A1*R+B1-ARG)\r\n      AT3  = (ALN-A2*R-B1)/(A2*R+B1-ARG)\r\n      C1   = C1*(1.0+AT2)*(1.0+AT3)\r\n      IF (CABS((C1-C1TEST)/C1) .LT. 0.0009) GO TO 50\r\n      C1TEST = C1\r\n   20 CONTINUE\r\n      GO TO 70\r\n   50 CONTINUE\r\n      C1   = C1*B1/(ARG-B1)*CSIN(PI/A1*(ARG-B1))/(SIN(PI*B1/A1))\r\n      C1   = C1*BSYCON\r\n      BKPM = C1\r\n      RETURN\r\nC\r\n   70 WRITE  (IBBOUT,80) UFM\r\n   80 FORMAT (A23,' - AMG MODULE -SUBROUTINE AKAPM')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/akappa.f",
    "content": "      SUBROUTINE AKAPPA (ARG,BKAPPA)\r\nC\r\nC     SUBROUTINE FOR COMPUTING KAPPA\r\nC\r\n      COMPLEX AI\r\nC\r\n      COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\nC\r\n      SCRK1 =  ABS (SCRK)\r\n      ARG1  =  ABS (ARG)\r\n      IF ( SCRK1 .GT. ARG1)  GO TO 10\r\n      GAM=SQRT(ARG**2-SCRK**2)\r\n      S1=SNS*GAM\r\n      C1=BETA*GAM*SIN(S1)\r\n      C2=COS(S1)-COS((ARG-DEL)*SPS+SIGMA)\r\n      BKAPPA=C1/C2\r\n      RETURN\r\n   10 CONTINUE\r\n      GAM=SQRT(SCRK**2-ARG**2)\r\n      S1=SNS*GAM\r\n      C1=-BETA*GAM*SINH(S1)\r\n      C2=COSH(S1)-COS((ARG-DEL)*SPS+SIGMA)\r\n      BKAPPA=C1/C2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/akp2.f",
    "content": "      SUBROUTINE AKP2\r\nC\r\n      COMPLEX AI\r\nC\r\n      COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\nC\r\n      GAM=SQRT(DEL**2-SCRK**2)\r\n      S1=SNS*GAM\r\n      C1=(SIGMA-S1)/2.0\r\n      C2=(SIGMA+S1)/2.0\r\n      DGDA=DEL/GAM\r\n      D1=SPS/2.0\r\n      D2=SNS/2.0*DGDA\r\n      DC1DA=D1-D2\r\n      DC2DA=D1+D2\r\n      RES=1.0/GAM*DGDA+SNS*COS(S1)/SIN(S1)*DGDA\r\n     1-COS(C1)/SIN(C1)*DC1DA-COS(C2)/SIN(C2)*DC2DA\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alamda.f",
    "content": "      SUBROUTINE ALAMDA (ARG,Y,BLAMDA)\r\nC\r\nC     SUBROUTINE FOR COMPUTING LAMDA\r\nC\r\n      COMPLEX BLAMDA,AI,C1\r\nC\r\n      COMMON/BLK1/SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\nC\r\n      SCRK1= ABS(SCRK)\r\n      ARG1=  ABS(ARG)\r\n      S1=(ARG-DEL)*SPS+SIGMA\r\n      IF( SCRK1.GT.ARG1) GO TO 10\r\n      GAM=SQRT(ARG**2-SCRK**2)\r\n      C1=COS(GAM*(SNS-Y))-CEXP(AI*S1)*COS(GAM*Y)\r\n      C2=COS(SNS*GAM)-COS(S1)\r\n      BLAMDA=C1/C2\r\n      RETURN\r\n   10 CONTINUE\r\n      GAM=SQRT(SCRK**2-ARG**2)\r\n      C1=COSH(GAM*(SNS-Y))-CEXP(AI*S1)*COSH(GAM*Y)\r\n      C2=COSH(SNS*GAM)-COS(S1)\r\n      BLAMDA=C1/C2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg.f",
    "content": "      SUBROUTINE ALG\r\nC\r\nC     THIS IS THE DRIVER SUBROUTINE FOR THE ALG MODULE\r\nC\r\n      INTEGER         APRESS,ATEMP,STRML,PGEOM,NAME(2),SYSBUF,\r\n     1                TITLE1(18),WD(2),ALGDB\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL,SIGN,ZORIGN,\r\n     1                FXCOOR,FYCOOR,FZCOOR\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /ALGINO/ ISCR3,ALGDB\r\n      COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21)\r\n      COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6\r\n      DATA    NAME  / 4HALG ,4H    /\r\n      DATA    WD    / 2HNO  ,2HAN  /\r\n      DATA    ISCR1 , ISCR2 / 301,302 /\r\nC\r\n      ISCR3  = 303\r\n      ISCR4  = 304\r\n      ISTRML = STRML\r\n      IPGEOM = PGEOM\r\n      IF (IPGEOM .EQ. 3) IPGEOM = 1\r\n      IPRTC = IPRTK\r\n      NZ    = KORSZ(IZ)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME)\r\n      CALL ALGPR (IERR)\r\n      IF (IERR .LT. 0) GO TO 400\r\n      ALGDB = ISCR1\r\n      IF (IERR .EQ. 1) ALGDB = ISCR2\r\n      LOG1  = ALGDB\r\n      LOG2  = NOUT\r\n      LOG3  = 7\r\n      LOG4  = ALGDB\r\n      LOG5  = ISCR4\r\n      LOG6  = 9\r\n      CALL GOPEN (LOG1,IZ(IBUF1),0)\r\n      CALL FREAD (LOG1,TITLE1,18,1)\r\n      CALL FREAD (LOG1,NANAL,1,0)\r\n      CALL FREAD (LOG1,NAERO,1,1)\r\n      NARBIT = 0\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,20) TITLE1,NANAL,WD(NAERO+1)\r\n      IF (IPRTC .EQ. 0) WRITE (LOG2,40) UIM\r\n   20 FORMAT (1H1,/40X,48HALG MODULE - COMPRESSOR DESIGN - CONTROL SECTI\r\n     1ON , /40X,48(1H*), //10X,8HTITLE = ,18A4, /10X,39HNUMBER OF ANALYT\r\n     2IC MEALINE BLADEROWS = ,I3, /10X,14HTHERE WILL BE ,A2,33H ENTRY TO\r\n     3 THE AERODYNAMIC SECTION )\r\n   40 FORMAT (A29,' - MODULE ALG ENTERED.')\r\nC\r\n      IF (NANAL .EQ. 0) GO TO 200\r\n      IFILE = LOG5\r\n      CALL OPEN (*500,LOG5,IZ(IBUF2),1)\r\n      CALL ALGAN\r\n      CALL CLOSE (LOG5,1)\r\n  200 IF (NAERO .EQ. 0) GO TO 300\r\n      IFILE = LOG5\r\n      CALL OPEN (*500,LOG5,IZ(IBUF2),0)\r\n      IFILE = ISCR3\r\n      CALL OPEN (*500,ISCR3,IZ(IBUF3),1)\r\n      CALL ALGAR\r\n      CALL CLOSE (ISCR3,1)\r\n      CALL CLOSE (LOG5,1)\r\n  300 CALL CLOSE (LOG1,1)\r\n      CALL ALGPO (ISCR3)\r\n  400 GO TO 600\r\n  500 CALL MESAGE(-1,IFILE,NAME)\r\nC\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg01.f",
    "content": "      SUBROUTINE ALG01 (XDATA,YDATA,NDATA,XIN,YOUT,SLOPE,NXY,NTYPE,NWOT)\r\nC\r\n      REAL      M\r\nC\r\n      DIMENSION XDATA(2),YDATA(2),XIN(1),YOUT(1),SLOPE(1),A(21),B(21),\r\n     1          D(21),M(21)\r\nC\r\n      IF (NTYPE.EQ.1.OR.NDATA.LT.3) GO TO 210\r\n      A(1)=1.0\r\n      B(1)=0.0\r\n      D(1)=0.0\r\n      N=NDATA-1\r\n      DO 110 I=2,N\r\n      A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0\r\n     1*A(I-1))\r\n      B(I)=(XDATA(I+1)-XDATA(I))/6.0\r\n 110  D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I\r\n     1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/(6.0*A(I-1\r\n     2))\r\n      A(NDATA)=0.0\r\n      B(NDATA)=1.0\r\n      D(NDATA)=0.0\r\n      M(NDATA)=A(NDATA)*D(N)/(A(NDATA)*B(N)-A(N)*B(NDATA))\r\n      DO 120 II=2,NDATA\r\n      I=NDATA+1-II\r\n 120  M(I)=(D(I)-B(I)*M(I+1))/A(I)\r\n      ASSIGN 150 TO IY\r\n      IF (NWOT.EQ.1) ASSIGN 160 TO IY\r\n      ASSIGN 160 TO ISLOPE\r\n      IF (NWOT.EQ.0) ASSIGN 200 TO ISLOPE\r\n      J=2\r\n      DO 200 I=1,NXY\r\n      IF (XIN(I).LT.XDATA(1)) GO TO 170\r\n      IF (XIN(I).GT.XDATA(NDATA)) GO TO 180\r\n 130  IF (XIN(I).LE.XDATA(J)) GO TO 140\r\n      J=J+1\r\n      GO TO 130\r\n 140  DX=XDATA(J)-XDATA(J-1)\r\n      GO TO IY, (150,160)\r\n 150  YOUT(I)=M(J-1)/(6.0*DX)*(XDATA(J)-XIN(I))**3+M(J)/(6.0*DX)*(XIN(I)\r\n     1-XDATA(J-1))**3+(XDATA(J)-XIN(I))*(YDATA(J-1)/DX-M(J-1)/6.0*DX)+(X\r\n     2IN(I)-XDATA(J-1))*(YDATA(J)/DX-M(J)/6.0*DX)\r\n      GO TO ISLOPE, (160,200)\r\n 160  SLOPE(I)=(-M(J-1)*(XDATA(J)-XIN(I))**2/2.0+M(J)*(XIN(I)-XDATA(J-1)\r\n     1)**2/2.0+YDATA(J)-YDATA(J-1))/DX-(M(J)-M(J-1))/6.0*DX\r\n      GO TO 200\r\n 170  JP=1\r\n      KP=2\r\n      GO TO 190\r\n 180  JP=NDATA\r\n      KP=N\r\n 190  YPRIME=(YDATA(KP)-YDATA(JP))/(XDATA(KP)-XDATA(JP))-M(KP)/6.0*(XDAT\r\n     1A(KP)-XDATA(JP))\r\n      IF (NWOT.NE.1) YOUT(I)=YDATA(JP)+(XIN(I)-XDATA(JP))*YPRIME\r\n      IF (NWOT.NE.0) SLOPE(I)=YPRIME\r\n 200  CONTINUE\r\n      RETURN\r\n 210  IF (NDATA.NE.1) GO TO 230\r\n      DO 220 I=1,NXY\r\n 220  YOUT(I)=YDATA(1)\r\n      RETURN\r\n 230  IF (NWOT.EQ.1) GO TO 254\r\n      J=2\r\n      DO 250 I=1,NXY\r\n 240  IF (XIN(I).LE.XDATA(J).OR.J.EQ.NDATA) GO TO 250\r\n      J=J+1\r\n      GO TO 240\r\n 250  YOUT(I)=YDATA(J-1)+(YDATA(J)-YDATA(J-1))/(XDATA(J)-XDATA(J-1))*(XI\r\n     1N(I)-XDATA(J-1))\r\n      IF (NWOT.NE.2) RETURN\r\n 254  YPRIME=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))\r\n      DO 260 I=1,NXY\r\n 260  SLOPE(I)=YPRIME\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg02.f",
    "content": "      SUBROUTINE ALG02\r\nC\r\n      LOGICAL         DEBUG\r\n      REAL            LOSS,LAMI,LAMIP1,LAMIM1\r\n      DIMENSION       II(21,30),JJ(21,30),IDATA(24),RDATA(6),NAME(2)\r\n      COMMON /UD3PRT/ IPRTC\r\n      COMMON /UDSIGN/ NSIGN\r\n      COMMON /UPAGE / LIMIT,LQ\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1                NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,\r\n     2                I,IVFAIL,IFFAIL,NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,\r\n     3                IMID,IFAIL,ITER,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6,\r\n     4                IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     5                NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),\r\n     6                NL2(30),NDIMEN(30),IS1(30),IS2(30),IS3(30),\r\n     7                NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),NM(2),\r\n     8                NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),\r\n     9                NOUT3(30),NBLADE(30),DM(11,5,2),WFRAC(11,5,2),\r\n     O                R(21,30),XL(21,30),X(21,30),H(21,30),S(21,30),\r\n     1                VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     2                FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),\r\n     3                DATAC(100),DATA1(100),DATA2(100),DATA3(100),\r\n     4                DATA4(100),DATA5(100),DATA6(100),DATA7(100),\r\n     5                DATA8(100),DATA9(100),FLOW(10),SPEED(30),\r\n     6                SPDFAC(10),BBLOCK(30),BDIST(30),WBLOCK(30),\r\n     7                WWBL(30),XSTN(150),RSTN(150),DELF(30),DELC(100),\r\n     8                DELTA(100),TITLE(18),DRDM2(30),RIM1(30),XIM1(30)\r\n      COMMON /UD300C/ WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),\r\n     1                DELW(21),LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),\r\n     2                CR(21),GAMA(21),SPPG(21),CPPG(21),HKEEP(21),\r\n     3                SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,SHAPE,\r\n     4                SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,\r\n     5                RCONST,FM2,HMIN,C1,PI,CONTR,CONMX\r\n      EQUIVALENCE     (H(1,1),II(1,1)),(S(1,1),JJ(1,1))\r\n      DATA    NAME  / 4HALG0, 4H2     /\r\nC\r\n      DEBUG = .FALSE.\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG =.TRUE.\r\n      NEVAL(1) = 0\r\n      CALL FREAD (LOG1,TITLE,18,1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,110) TITLE\r\n 110  FORMAT (10X,10HINPUT DATA, /10X,10(1H*), //10X,5HTITLE,34X,2H= ,\r\n     1       18A4)\r\n      LNCT = LNCT + 4\r\n      CALL ALG1 (LNCT)\r\n      CALL FREAD (LOG1,IDATA,21,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',111,IDATA,21)\r\n      NSTNS  = IDATA( 1)\r\n      NSTRMS = IDATA( 2)\r\n      NMAX   = IDATA( 3)\r\n      NFORCE = IDATA( 4)\r\n      NBL    = IDATA( 5)\r\n      NCASE  = IDATA( 6)\r\n      NSPLIT = IDATA( 7)\r\n      NSET1  = IDATA( 8)\r\n      NSET2  = IDATA( 9)\r\n      NREAD  = IDATA(10)\r\n      NPUNCH = IDATA(11)\r\n      NPLOT  = IDATA(12)\r\n      NPAGE  = IDATA(13)\r\n      NTRANS = IDATA(14)\r\n      NMIX   = IDATA(15)\r\n      NMANY  = IDATA(16)\r\n      NSTPLT = IDATA(17)\r\n      NEQN   = IDATA(18)\r\n      NLE    = IDATA(19)\r\n      NTE    = IDATA(20)\r\n      NSIGN  = IDATA(21)\r\n      IF (NSTRMS .EQ. 0) NSTRMS = 11\r\n      IF (NMAX   .EQ. 0) NMAX   = 40\r\n      IF (NFORCE .EQ. 0) NFORCE = 10\r\n      IF (NCASE  .EQ. 0) NCASE  = 1\r\n      IF (NPAGE  .EQ. 0) NPAGE  = 60\r\n      LQ    = LOG2\r\n      LIMIT = NPAGE\r\n      CALL ALG03 (LNCT,19)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,130) NSTNS,NSTRMS,NMAX,NFORCE,NBL,\r\n     1       NCASE,NSPLIT,NSET1,NSET2,NREAD,NPUNCH,NPLOT,NPAGE,NTRANS,\r\n     2       NMIX,NMANY,NSTPLT,NEQN,NLE,NTE,NSIGN\r\n 130  FORMAT (//10X,'NUMBER OF STATIONS',21X,1H=,I3, /10X,'NUMBER OF ',\r\n     1       'STREAMLINES',18X,1H=,I3, /10X,20HMAX NUMBER OF PASSES,19X,\r\n     2       1H=,I3, /10X,30HMAX NUMBER OF ARBITRARY PASSES,9X,1H=,I3,\r\n     3       /10X,29HBOUNDARY LAYER CALC INDICATOR,10X,1H=,I3, /10X,\r\n     4       24HNUMBER OF RUNNING POINTS,15X,1H=,I3, /10X,\r\n     5       33HSTREAMLINE DISTRIBUTION INDICATOR,6X,1H=,I3, /10X,\r\n     6       34HNUMBER OF LOSS/D-FACTOR CURVE SETS,5X,1H=,I3, /10X,\r\n     7       34HNUMBER OF LOSS/T.E.LOSS CURVE SETS,5X,1H=,I3, /10X,\r\n     8       26HSTREAMLINE INPUT INDICATOR,13X,1H=,I3, /10X,\r\n     9       27HSTREAMLINE OUTPUT INDICATOR,12X,1H=,I3, /10X,\r\n     O       24HPRECISION PLOT INDICATOR,15X,1H=,I3, /10X,\r\n     1       24HMAX NUMBER OF LINES/PAGE,15X,1H=,I3, /10X,\r\n     2       29HWAKE TRANSPORT CALC INDICATOR,10X,1H=,I3, /10X,\r\n     3       32HMAINSTREAM MIXING CALC INDICATOR,7X,1H=,I3, /10X,\r\n     4       33HNO OF STATIONS FROM ANALYTIC SECN,6X,1H=,I3, /10X,\r\n     5       27HLINE-PRINTER PLOT INDICATOR,12X,1H=,I3, /10X,\r\n     6       32HMOMENTUM EQUATION FORM INDICATOR,7X,1H=,I3, /10X,\r\n     7       30HSTATION NUMBER AT LEADING EDGE,9X,1H=,I3, /10X,\r\n     8       31HSTATION NUMBER AT TRAILING EDGE,8X,1H=,I3, /10X,\r\n     9       37HCOMPRESSOR DIR. OF ROTATION INDICATOR,2X,1H=,I3)\r\n      ITUB = NSTRMS - 1\r\n      IMID = NSTRMS/2 + 1\r\n      IF (NMANY .EQ. 0) GO TO 136\r\n      CALL FREAD (LOG1,NWHICH,NMANY,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',132,NWHICH,NMANY)\r\n      CALL ALG03 (LNCT,2)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,134) (NWHICH(I),I=1,NMANY)\r\n 134  FORMAT (//10X,'GEOMETRY COMES FROM ANALYTIC SECTION FOR STATIONS',\r\n     1       23I3)\r\n 136  CALL ALG03 (LNCT,7)\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',136,RDATA,6)\r\n      G      = RDATA(1)\r\n      EJ     = RDATA(2)\r\n      SCLFAC = RDATA(3)\r\n      TOLNCE = RDATA(4)\r\n      VISK   = RDATA(5)\r\n      SHAPE  = RDATA(6)\r\n      IF (G   .EQ.   0.0) G  = 32.174\r\n      IF (EJ  .EQ.   0.0) EJ = 778.16\r\n      IF (SCLFAC .EQ. 0.) SCLFAC = 12.0\r\n      IF (TOLNCE .EQ. 0.) TOLNCE = 0.001\r\n      IF (VISK .EQ.  0.0) VISK  = 0.00018\r\n      IF (SHAPE.EQ.  0.0) SHAPE = 0.7\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,150) G,EJ,SCLFAC,TOLNCE,VISK,SHAPE\r\n 150  FORMAT (//10X,22HGRAVITATIONAL CONSTANT,17X,1H=,F8.4, /10X,\r\n     1       17HJOULES EQUIVALENT,22X,1H=,F8.3, /10X,\r\n     2       29HLINEAR DIMENSION SCALE FACTOR,10X,1H=,F8.4, /10X,\r\n     3       15HBASIC TOLERANCE,24X,1H=,F8.5, /10X,\r\n     4       19HKINEMATIC VISCOSITY,20X,1H=,F8.5, /10X,\r\n     5       17HB.L. SHAPE FACTOR,22X,1H=,F8.5)\r\n      CALL ALG03 (LNCT,7)\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',151,RDATA,6)\r\n      XSCALE = RDATA(1)\r\n      PSCALE = RDATA(2)\r\n      RLOW   = RDATA(3)\r\n      PLOW   = RDATA(4)\r\n      XMMAX  = RDATA(5)\r\n      RCONST = RDATA(6)\r\n      IF (XMMAX .EQ.0.0) XMMAX  = 0.6\r\n      IF (RCONST.EQ.0.0) RCONST = 6.0\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,160) XSCALE,PSCALE,RLOW,PLOW,XMMAX,\r\n     1       RCONST\r\n 160  FORMAT (//10X,29HPLOTTING SCALE FOR DIMENSIONS,10X,1H=,F7.3, /10X,\r\n     1       28HPLOTTING SCALE FOR PRESSURES,11X,1H=,F7.3, /10X,\r\n     2       22HMINIMUM RADIUS ON PLOT,17X,1H=,F7.3, /10X,\r\n     3       24HMINIMUM PRESSURE ON PLOT,15X,1H=,F7.3, /10X,\r\n     4       40HMAXIMUM M-SQUARED IN RELAXATION FACTOR =,F8.4, /10X,\r\n     5       29HCONSTANT IN RELAXATION FACTOR,10X,1H=,F8.4)\r\n      CALL ALG03 (LNCT,3)\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',162,RDATA,2)\r\n      CONTR = RDATA(1)\r\n      CONMX = RDATA(2)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,164) CONTR,CONMX\r\n 164  FORMAT (//10X,22HWAKE TRANSFER CONSTANT,17X,1H=,F8.5, /10X,\r\n     1       25HTURBULENT MIXING CONSTANT,14X,1H=,F8.5)\r\n      CALL ALG03 (LNCT,5+NCASE)\r\n      DO 168 K = 1,NCASE\r\n      CALL FREAD (LOG1,FLOW(K),1,0)\r\n 168  CALL FREAD (LOG1,SPDFAC(K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',171,FLOW,NCASE)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',172,SPDFAC,NCASE)\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,180) (K,FLOW(K),SPDFAC(K),K=1,NCASE)\r\n 180  FORMAT (//10X,21HPOINTS TO BE COMPUTED,  //10X,2HNO,6X,8HFLOWRATE,\r\n     1       4X,12HSPEED FACTOR, //,(10X,I2,F13.3,F14.3))\r\n      CALL FREAD (LOG1,L1,1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',180,L1,1)\r\n      DO 185 K = 1,L1\r\n      CALL FREAD (LOG1,XSTN(K),1,0)\r\n 185  CALL FREAD (LOG1,RSTN(K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',191,XSTN,L1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',192,RSTN,L1)\r\n      ISTAG = 0\r\n      IF (RSTN(1) .EQ. 0.0) ISTAG = 1\r\n      NSPEC(1) = L1\r\n      CALL ALG03 (LNCT,7+L1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,200) L1,(XSTN(K),RSTN(K),K=1,L1)\r\n 200  FORMAT (//10X,'ANNULUS / COMPUTING STATION GEOMETRY', //10X,\r\n     1       24HSTATION  1  SPECIFIED BY,I3,7H POINTS, //17X,4HXSTN,8X,\r\n     2       4HRSTN,//,(F22.4,F12.4))\r\n      IS1(1) = 1\r\n      LAST   = L1\r\n      DO 220 I = 2,NSTNS\r\n      CALL FREAD (LOG1,L1,1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',210,L1,1)\r\n      NEXT = LAST + 1\r\n      LAST = LAST + L1\r\n      IF (LAST .GT. 150) GO TO 550\r\n      DO 215 K = NEXT,LAST\r\n      CALL FREAD (LOG1,XSTN(K),1,0)\r\n 215  CALL FREAD (LOG1,RSTN(K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',215,XSTN(NEXT),LAST-NEXT+1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',216,RSTN(NEXT),LAST-NEXT+1)\r\n      IF (RSTN(NEXT) .EQ. 0.0) ISTAG = I\r\n      CALL ALG03 (LNCT,5+L1)\r\n      IS1(I) = NEXT\r\n      NSPEC(I) = L1\r\n 220  IF (IPRTC .EQ. 1) WRITE (LOG2,230) I,L1,(XSTN(K),RSTN(K),\r\n     1       K=NEXT,LAST)\r\n 230  FORMAT (//10X,7HSTATION,I3,14H  SPECIFIED BY,I3,7H POINTS, //17X,\r\n     1       4HXSTN,8X,4HRSTN, //,(F22.4,F12.4))\r\n      SPEED(1)  = 0.0\r\n      CALL FREAD (LOG1,IDATA,4,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',233,IDATA,4)\r\n      L1        = IDATA(1)\r\n      NTERP(1)  = IDATA(2)\r\n      NDIMEN(1) = IDATA(3)\r\n      NMACH(1)  = IDATA(4)\r\n      DO 335 K = 1,L1\r\n      CALL FREAD (LOG1,RDATA,4,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',234,RDATA,4)\r\n      DATAC(K) = RDATA(1)\r\n      DATA1(K) = RDATA(2)\r\n      DATA2(K) = RDATA(3)\r\n 335  DATA3(K) = RDATA(4)\r\n      CALL ALG03 (LNCT,7+L1)\r\n      IS2(1)   = 1\r\n      NDATA(1) = L1\r\n      LAST = L1\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,250) L1,NTERP(1),NDIMEN(1),NMACH(1),\r\n     1       (DATAC(K),DATA1(K),DATA2(K),DATA3(K),K=1,L1)\r\n 250  FORMAT (//10X,24HSTATION CALCULATION DATA,   //7X,\r\n     1       18HSTATION  1  NDATA=,I3,7H NTERP=,I2,8H NDIMEN=,I2,\r\n     2       7H NMACH=,I2, //11X,5HDATAC,6X,14HTOTAL PRESSURE,4X,\r\n     3       17HTOTAL TEMPERATURE,4X,11HWHIRL ANGLE, //,\r\n     4       (5X,F12.4,F15.4,F19.3,F18.3))\r\n      DO 252 K = 1,L1\r\n 252  DATA1(K) = DATA1(K)*SCLFAC**2\r\n      LASTD    = 0\r\n      NOUT1(1) = 0\r\n      NOUT2(1) = 0\r\n      DO 320 I = 2,NSTNS\r\n      LOGN = LOG1\r\n      IF (NMANY .EQ. 0) GO TO 258\r\n      DO 254 L1 = 1,NMANY\r\n      IF (NWHICH(L1) .EQ. I) GO TO 256\r\n 254  CONTINUE\r\n      GO TO 258\r\n 256  LOGN = LOG5\r\n 258  CALL FREAD (LOGN,IDATA,16,1)\r\nCWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02   ',258,IDATA,16)\r\n      NDATA(I)  = IDATA(1)\r\n      NTERP(I)  = IDATA(2)\r\n      NDIMEN(I) = IDATA(3)\r\n      NMACH(I)  = IDATA(4)\r\n      NWORK(I)  = IDATA(5)\r\n      NLOSS(I)  = IDATA(6)\r\n      NL1(I)    = IDATA(7)\r\n      NL2(I)    = IDATA(8)\r\n      NEVAL(I)  = IDATA(9)\r\n      NCURVE(I) = IDATA(10)\r\n      NLITER(I) = IDATA(11)\r\n      NDEL(I)   = IDATA(12)\r\n      NOUT1(I)  = IDATA(13)\r\n      NOUT2(I)  = IDATA(14)\r\n      NOUT3(I)  = IDATA(15)\r\n      NBLADE(I) = IDATA(16)\r\n      L1 = 3\r\n      IF (NDATA(I) .NE. 0) L1 = L1 + 5 + NDATA(I)\r\n      IF (NDEL(I)  .NE. 0) L1 = L1 + 3 + NDEL(I)\r\n      CALL ALG03 (LNCT,L1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,270) I,NDATA(I),NTERP(I),NDIMEN(I),\r\n     1       NMACH(I),NWORK(I),NLOSS(I),NL1(I),NL2(I),NEVAL(I),NCURVE(I)\r\n     2,      NLITER(I),NDEL(I),NOUT1(I),NOUT2(I),NOUT3(I),NBLADE(I)\r\n 270  FORMAT (//7X,7HSTATION,I3, 8H  NDATA=,I3,7H NTERP=,I2,8H NDIMEN=,\r\n     1       I2,7H NMACH=,I2,7H NWORK=,I2,7H NLOSS=,I2,5H NL1=,I3,\r\n     2       5H NL2=,I3,7H NEVAL=,I2,8H NCURVE=,I2,8H NLITER=,I3,\r\n     3       6H NDEL=,I3, /19X,6HNOUT1=,I2,7H NOUT2=,I2,7H NOUT3=,I2,\r\n     4       8H NBLADE=,I3)\r\n      SPEED(I) = 0.0\r\n      IF (NDATA(I) .EQ. 0) GO TO 320\r\n      NEXT   = LAST + 1\r\n      LAST   = LAST + NDATA(I)\r\n      IS2(I) = NEXT\r\n      IF (LAST .GT. 100) GO TO 550\r\n      CALL FREAD (LOGN,SPEED(I),1,1)\r\nCWKBD IF (DEBUG .AND.LOGN.EQ.LOG1) CALL BUG1 ('ALG02   ',271,SPEED(I),1)\r\n      DO 275 K = NEXT,LAST\r\n      CALL FREAD (LOGN,RDATA,6,1)\r\nCWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02   ',272,RDATA,6)\r\n      DATAC(K) = RDATA(1)\r\n      DATA1(K) = RDATA(2)\r\n      DATA2(K) = RDATA(3)\r\n      DATA3(K) = RDATA(4)\r\n      DATA4(K) = RDATA(5)\r\n      DATA5(K) = RDATA(6)\r\n      CALL FREAD (LOGN,RDATA,4,1)\r\nCWKBD IF (DEBUG .AND. LOGN.EQ.LOG1) CALL BUG1 ('ALG02   ',273,RDATA,4)\r\n      DATA6(K) = RDATA(1)\r\n      DATA7(K) = RDATA(2)\r\n      DATA8(K) = RDATA(3)\r\n 275  DATA9(K) = RDATA(4)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,290) SPEED(I),(DATAC(K),DATA1(K),\r\n     1       DATA2(K),DATA3(K),DATA4(K),DATA5(K),DATA6(K),DATA7(K),\r\n     2       DATA8(K),DATA9(K),K=NEXT,LAST)\r\n 290  FORMAT (//10X,7HSPEED =,F9.2, //13X,5HDATAC,7X,5HDATA1,7X,5HDATA2,\r\n     1       7X,5HDATA3,7X,5HDATA4,7X,5HDATA5,7X,5HDATA6,7X,5HDATA7,7X,\r\n     2       5HDATA8,7X,5HDATA9, //,\r\n     3       (10X,F9.4,F12.3,F13.6,F11.4,F12.5,F12.5,4F12.4))\r\n      IF (NWORK(I) .NE. 1) GO TO 296\r\n      DO 294 K = NEXT,LAST\r\n 294  DATA1(K) = DATA1(K)*SCLFAC**2\r\n 296  IF (NEVAL(I).GT.0 .AND. NSTRMS.GT.NDATA(I)) LAST = LAST + NSTRMS -\r\n     1    NDATA(I)\r\n      IF (NDEL(I) .EQ. 0) GO TO 320\r\n      NEXT   = LASTD + 1\r\n      LASTD  = LASTD + NDEL(I)\r\n      IS3(I) = NEXT\r\n      IF (LASTD .GT. 100) GO TO 550\r\n      DO 298 K = NEXT,LASTD\r\n      CALL FREAD (LOG1,DELC(K), 1,0)\r\n 298  CALL FREAD (LOG1,DELTA(K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',298,DELC(NEXT),LASTD-NEXT+1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',299,DELTA(NEXT),LASTD-NEXT+1)\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,310)(DELC(K),DELTA(K),K=NEXT,LASTD)\r\n 310  FORMAT (//13X,4HDELC,8X,5HDELTA, //,(10X,F9.4,F12.4))\r\n 320  CONTINUE\r\n      CALL ALG03 (LNCT,5+NSTNS)\r\n      DO 325 I = 1,NSTNS\r\n      CALL FREAD (LOG1,RDATA,3,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',323,RDATA,3)\r\n      WBLOCK(I) = RDATA(1)\r\n      BBLOCK(I) = RDATA(2)\r\n 325  BDIST(I)  = RDATA(3)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,340) (I,WBLOCK(I),BBLOCK(I),\r\n     1       BDIST(I),I=1,NSTNS)\r\n 340  FORMAT (//10X,'BLOCKAGE FACTOR SPECIFICATIONS', //10X,'STATION  ',\r\n     1      ' WALL BLOCKAGE   WAKE BLOCKAGE   WAKE DISTRIBUTION FACTOR',\r\n     2       //,(10X,I4,F16.5,F16.5,F19.3))\r\n      IF (NSET1 .EQ. 0) GO TO 380\r\n      DO 370 K = 1,NSET1\r\n      CALL FREAD (LOG1,L1,1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',342,L1,1)\r\n      DO 345 J = 1,L1\r\n      CALL FREAD (LOG1,RDATA,4,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',343,RDATA,4)\r\n      DIFF(J,K)  = RDATA(1)\r\n      FDHUB(J,K) = RDATA(2)\r\n      FDMID(J,K) = RDATA(3)\r\n 345  FDTIP(J,K) = RDATA(4)\r\n      CALL ALG03 (LNCT,6+L1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,360) K,L1,(DIFF(J,K),FDHUB(J,K),\r\n     1       FDMID(J,K),FDTIP(J,K),J=1,L1)\r\n 360  FORMAT (//10X,'LOSS PARAMETER / DIFFUSION FACTOR CURVES FOR BLADE'\r\n     1,      ' TYPE',I2,I5,' D-FACTORS GIVEN', //15X,9HDIFFUSION,5X,\r\n     2       'L O S S   P A R A M E T E R S', /16X,7HFACTORS,8X,3HHUB,\r\n     3       9X,3HMID,8X,3HTIP,//,(15X,F8.3,F13.5,F12.5,F11.5))\r\n 370  NDIFF(K) = L1\r\n 380  IF (NSET2 .EQ. 0) GO TO 450\r\n      DO 440 K = 1,NSET2\r\n      CALL FREAD (LOG1,IDATA,2,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',385,IDATA,2)\r\n      L1 = IDATA(1)\r\n      L2 = IDATA(2)\r\n      CALL ALG03 (LNCT,7+L1)\r\n      NM(K)   = L1\r\n      NRAD(K) = L2\r\n      CALL FREAD (LOG1,TERAD(1,K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',391,TERAD(1,K),1)\r\n      DO 398 J = 1,L1\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',398,RDATA,2)\r\n      DM(J,1,K)    = RDATA(1)\r\n 398  WFRAC(J,1,K) = RDATA(2)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,410) K,L1,L2,TERAD(1,K),(DM(J,1,K),\r\n     1       WFRAC(J,1,K),J=1,L1)\r\n 410  FORMAT (//10X,'FRACTIONAL LOSS DISTRIBUTION CURVES FOR BLADE ',\r\n     1       'CLASS',I2,I5,' POINTS GIVEN AT',I3,' RADIAL LOCATIONS', //\r\n     2       10X,'FRACTION OF COMPUTING STATION LENGTH AT BLADE EXIT =',\r\n     3       F7.4, //10X,'FRACTION OF MERIDIONAL CHORD',4X,\r\n     4       'LOSS/LOSS AT TRAILING EDGE', //,(15X,F11.4,20X,F11.4))\r\n      IF (L2 .EQ. 1) GO TO 440\r\n      DO 420 L = 2,L2\r\n      CALL ALG03 (LNCT,5+L1)\r\n      CALL FREAD (LOG1,TERAD(L,K),1,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',411,TERAD(L,K),1)\r\n      DO 415 J = 1,L1\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',412,RDATA,2)\r\n      DM(J,L,K)    = RDATA(1)\r\n 415  WFRAC(J,L,K) = RDATA(2)\r\n 420  IF (IPRTC .EQ. 1) WRITE (LOG2,430) TERAD(L,K),(DM(J,L,K),\r\n     1       WFRAC(J,L,K),J=1,L1)\r\n 430  FORMAT (//10X,'FRACTION OF COMPUTING STATION LENGTH AT BLADE ',\r\n     1       'EXIT =',F7.4, //10X,'FRACTION OF MERIDIONAL CHORD',4X,\r\n     2       'LOSS/LOSSAT TRAILING EDGE', //,(15X,F11.4,20X,F11.4))\r\n 440  CONTINUE\r\n 450  IF (NSPLIT.EQ.0 .AND. NREAD.EQ.0) GO TO 570\r\n      DO 455 J = 1,NSTRMS,6\r\n 455  CALL FREAD (LOG1,DELF(J),6,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',455,DELF,NSTRMS)\r\n      L1 = 5\r\n      IF (NSTRMS .GE. 16) L1 = 8\r\n      CALL ALG03 (LNCT,L1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,470)\r\n      L1 = NSTRMS\r\n      IF (NSTRMS .GT. 15) L1 = 15\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,480) (J,J=1,L1)\r\n 480  FORMAT (//10X,'STREAMLINE',I5,14I7)\r\n 470  FORMAT (//10X,'PROPORTIONS OF TOTAL FLOW BETWEEN HUB AND EACH ',\r\n     1       'STREAMLINE ARE TO BE AS FOLLOWS')\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,490) (DELF(J),J=1,L1)\r\n 490  FORMAT (10X,4HFLOW,7X,15F7.4)\r\n      IF (NSTRMS .LE. 15) GO TO 500\r\n      L1 = L1 + 1\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,480) (J,J=L1,NSTRMS)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,490) (DELF(J),J=L1,NSTRMS)\r\n 500  IF (NREAD .EQ. 0) GO TO 570\r\n      DO 505 I = 1,NSTNS\r\n      DO 505 J = 1,NSTRMS\r\n      CALL FREAD (LOG1,RDATA,3,0)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',501,RDATA,3)\r\n      R(J,I)  = RDATA(1)\r\n      X(J,I)  = RDATA(2)\r\n      XL(J,I) = RDATA(3)\r\n      CALL FREAD (LOG1,IDATA,2,1)\r\nCWKBD IF (DEBUG) CALL BUG1 ('ALG02   ',502,IDATA,2)\r\n      II(J,I) = IDATA(1)\r\n 505  JJ(J,I) = IDATA(2)\r\n      CALL ALG03 (LNCT,5+NSTRMS)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,520)\r\n 520  FORMAT (//10X,'ESTIMATED STREAMLINE COORDINATES')\r\n      DO 530 I = 1,NSTNS\r\n      IF (I .GT. 1) CALL ALG03 (LNCT,3+NSTRMS)\r\n 530  IF (IPRTC .EQ. 1) WRITE (LOG2,540) (I,J,R(J,I),X(J,I),XL(J,I),\r\n     1       II(J,I),JJ(J,I),J=1,NSTRMS)\r\n 540  FORMAT (//10X,'STATION  STREAMLINE   RADIUS  AXIAL COORDINATE  ',\r\n     1       'L -COORDINATE    CHECKS-  I    J', //,\r\n     2       (3X,2I11,F14.4,F12.4,F16.4,I17,I5))\r\n      GO TO 570\r\n 550  WRITE  (LOG2,560)\r\n 560  FORMAT (////10X,'JOB STOPPED - TOO MUCH INPUT DATA')\r\n      CALL MESAGE (-37,0,NAME)\r\n 570  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg03.f",
    "content": "      SUBROUTINE ALG03 (LNCT,L)\r\nC\r\n      COMMON /UPAGE / LIMIT,LQ\r\n      COMMON /UD3PRT/ IPRTC\r\nC\r\n      LNCT=LNCT+L\r\n      IF(LNCT.LE.LIMIT)RETURN\r\n      LNCT=1+L\r\n      IF (IPRTC .NE. 0) WRITE(LQ,100)\r\n100   FORMAT(1H1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg04.f",
    "content": "      SUBROUTINE ALG04(H,S,VW,R1,R2,X1,X2,VM,EPS,SCLFAC,G,EJ,HMIN,VMIN,\r\n     1PSMID,NSTRMS,LOG2,LNCT,IFAIL)\r\nC\r\n      DIMENSION H(1),S(1),VW(1),R1(1),R2(1),X1(1),X2(1),VM(1)\r\n      DIMENSION VZUP(21),VZDN(21),PSDN(21),HUP(21),VWUP(21),SUP(21),RMID\r\n     1(20),DELR(20),PSUP(21),HSUP(21),VWFUN(21),VZFUN(21),SDN(21),HSDN(2\r\n     21),VWDN(21),HDN(21),XX1(21),XX2(21),R(21)\r\nC\r\n      DO 80 J=1,NSTRMS\r\n80    R(J)=(R1(J)+R2(J))*0.5\r\n      Q1=R(NSTRMS)-R(1)\r\n      Q2=VM(1)\r\n      DO 90 J=2,NSTRMS\r\n      IF(R(J)-R(J-1).LT.Q1)Q1=R(J)-R(J-1)\r\n      IF(VM(J).LT.Q2)Q2=VM(J)\r\n90    CONTINUE\r\n      DELZ=Q2*Q1**2/(EPS*SCLFAC)*0.25\r\n      Q1=(X2(1)+X2(NSTRMS)-X1(1)-X1(NSTRMS))*0.5\r\n      ISTEP=Q1/DELZ+1.0\r\n      DELZ=Q1/FLOAT(ISTEP)\r\n      VM2=VMIN**2\r\n      ITUB=NSTRMS-1\r\n      IMID=NSTRMS/2+1\r\n      DO 110 J=1,NSTRMS\r\n      PSUP(J)=PSMID\r\n      HUP(J)=H(J)\r\n      VWUP(J)=VW(J)\r\n110   SUP(J)=S(J)\r\n      DO 120 J=1,ITUB\r\n      RMID(J)=(R(J)+R(J+1))*0.5\r\n120   DELR(J)=R(J+1)-R(J)\r\n      IFAIL=0\r\n      KSTEP=1\r\n130   CALL ALG29(VWUP,R,XX2,NSTRMS)\r\n      DO 150 J=1,NSTRMS\r\n150   VWFUN(J)=EPS/R(J)*(XX2(J)-VWUP(J)/R(J))*SCLFAC\r\n      IF(KSTEP.GT.1)GO TO 280\r\n      JSTEP=1\r\n      J1=IMID\r\n190   J2=J1+JSTEP\r\n      JJ=J1\r\n      IF(JSTEP.EQ.-1)JJ=J2\r\n      Q1=((VWUP(J1)+VWUP(J2))*0.5)**2/RMID(JJ)\r\n      Q1=DELR(JJ)*Q1*FLOAT(JSTEP)\r\n      X3=(SUP(J1)+SUP(J2))*0.5\r\n      K=1\r\n200   Q2=ALG2(X3,(PSUP(J1)+PSUP(J2))*0.5)\r\n      IF(Q2.GE.HMIN)GO TO 210\r\n      IFAIL=1\r\n      GO TO 600\r\n210   Q2=ALG5(Q2,X3)/G\r\n      X4=PSUP(J2)\r\n      PSUP(J2)=PSUP(J1)+Q1*Q2\r\n      IF(ABS(X4/PSUP(J2)-1.0).LE.1.0E-5)GO TO 220\r\n      K=K+1\r\n      IF(K.LE.10)GO TO 200\r\n      IFAIL=2\r\n      GO TO 600\r\n220   IF(J2.EQ.1)GO TO 240\r\n      IF(J2.EQ.NSTRMS)GO TO 230\r\n      J1=J2\r\n      GO TO 190\r\n230   JSTEP=-1\r\n      J1=IMID\r\n      GO TO 190\r\n240   DO 260 J=1,NSTRMS\r\n      HSUP(J)=ALG2(SUP(J),PSUP(J))\r\n      IF(HSUP(J).GE.HMIN)GO TO 250\r\n      IFAIL=3\r\n      GO TO 600\r\n250   Q1=2.0*G*EJ*(HUP(J)-HSUP(J))-VWUP(J)**2\r\n      IF(Q1.GE.VM2)GO TO 260\r\n      IFAIL=4\r\n      GO TO 600\r\n260   VZUP(J)=SQRT(Q1)\r\n      FLOW=0.0\r\n      DO 270 J=1,ITUB\r\n270   FLOW=FLOW+(R(J+1)**2-R(J)**2)*(VZUP(J)+VZUP(J+1))*ALG5((HSUP(J)+HS\r\n     1UP(J+1))*0.5,(SUP(J)+SUP(J+1))*0.5)\r\n280   CALL ALG29(HSUP,R,XX2,NSTRMS)\r\n      DO 300 J=1,NSTRMS\r\n300   HDN(J)=HUP(J)+DELZ/VZUP(J)*EPS/R(J)*XX2(J)*SCLFAC\r\n      DO 310 J=1,NSTRMS\r\n310   VWDN(J)=VWUP(J)+DELZ/VZUP(J)*VWFUN(J)\r\n      CALL ALG29(VZUP,R,VZFUN,NSTRMS)\r\n      DO 330 J=1,NSTRMS\r\n      VZFUN(J)=DELZ*EPS*SCLFAC*VZFUN(J)/R(J)\r\n      SDN(J)=SUP(J)\r\n330   PSDN(J)=PSUP(J)\r\n      KK=1\r\n340   J1=IMID\r\n      JSTEP=1\r\n350   J2=J1+JSTEP\r\n      JJ=J1\r\n      IF(JSTEP.EQ.-1)JJ=J2\r\n      Q1=((VWDN(J1)+VWDN(J2))*0.5)**2/RMID(JJ)\r\n      Q1=DELR(JJ)*Q1*FLOAT(JSTEP)\r\n      X3=(SDN(J1)+SDN(J2))*0.5\r\n      K=1\r\n360   Q2=ALG2(X3,(PSDN(J1)+PSDN(J2))*0.5)\r\n      IF(Q2.GE.HMIN)GO TO 370\r\n      IFAIL=5\r\n      GO TO 600\r\n370   Q2=ALG5(Q2,X3)/G\r\n      X4=PSDN(J2)\r\n      PSDN(J2)=PSDN(J1)+Q1*Q2\r\n      IF(ABS(X4/PSDN(J2)-1.0).LE.1.0E-5)GO TO 380\r\n      K=K+1\r\n      IF(K.LE.10)GO TO 360\r\n      IFAIL=6\r\n      GO TO 600\r\n380   IF(J2.EQ.1)GO TO 400\r\n      IF(J2.EQ.NSTRMS)GO TO 390\r\n      J1=J2\r\n      GO TO 350\r\n390   J1=IMID\r\n      JSTEP=-1\r\n      GO TO 350\r\n400   DO 410 J=1,NSTRMS\r\n      VZDN(J)=VZUP(J)+(VZFUN(J)-(PSDN(J)-PSUP(J))/ALG5(HSUP(J),SUP(J))*G\r\n     1)/VZUP(J)\r\n      HSDN(J)=HDN(J)-(VZDN(J)**2+VWDN(J)**2)/(2.0*G*EJ)\r\n      IF(HSDN(J).GE.HMIN)GO TO 410\r\n      IFAIL=7\r\n      GO TO 600\r\n410   SDN(J)=ALG3(PSDN(J),HSDN(J))\r\n      XX1(1)=0.0\r\n      DO 420 J=1,ITUB\r\n420   XX1(J+1)=XX1(J)+(R(J+1)**2-R(J)**2)*(VZDN(J+1)+VZDN(J))*ALG5((HSDN\r\n     1(J)+HSDN(J+1))*0.5,(SDN(J)+SDN(J+1))*0.5)\r\n      Q1=XX1(NSTRMS)\r\n      IF(ABS(Q1/FLOW-1.0).LE.1.0E-5.AND.KK.GT.1)GO TO 450\r\n      IF(KK.LE.15)GO TO 430\r\n      IFAIL=8\r\n      GO TO 600\r\n430   Q2=ALG9(HSDN(IMID),SDN(IMID),VZDN(IMID)**2)\r\n      Q1=(Q1-FLOW)*PSDN(IMID)*Q2/(FLOW*(1.0-Q2))\r\n      DO 440 J=1,NSTRMS\r\n440   PSDN(J)=PSDN(J)+Q1\r\n      KK=KK+1\r\n      GO TO 340\r\n450   IF(KSTEP.EQ.ISTEP)GO TO 510\r\n      DO 500 J=1,NSTRMS\r\n      PSUP(J)=PSDN(J)\r\n      HSUP(J)=HSDN(J)\r\n      VZUP(J)=VZDN(J)\r\n      VWUP(J)=VWDN(J)\r\n      HUP(J)=HDN(J)\r\n500   SUP(J)=SDN(J)\r\n      KSTEP=KSTEP+1\r\n      GO TO 130\r\n510   DO 520 J=1,NSTRMS\r\n      H(J)=HDN(J)\r\n      S(J)=SDN(J)\r\n520   VW(J)=VWDN(J)\r\n      RETURN\r\n600   CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,610)IFAIL\r\n610   FORMAT(5X,30HMIXING CALCULATION FAILURE NO.,I2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg05.f",
    "content": "      SUBROUTINE ALG05\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),XX5(21)\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      L1=NDIMEN(I)+1\r\n      GO TO(100,120,140,160),L1\r\n100   DO 110 J=1,NSTRMS\r\n110   XX5(J)=R(J,I)\r\n      GO TO 180\r\n120   DO 130 J=1,NSTRMS\r\n130   XX5(J)=R(J,I)/R(NSTRMS,I)\r\n      GO TO 180\r\n140   DO 150 J=1,NSTRMS\r\n150   XX5(J)=XL(J,I)\r\n      GO TO 180\r\n160   DO 170 J=1,NSTRMS\r\n170   XX5(J)=XL(J,I)/XL(NSTRMS,I)\r\n180   L2=IS2(I)\r\n      L3=NDATA(I)\r\n      L4=NTERP(I)\r\n      CALL ALG01(DATAC(L2),DATA1(L2),L3,XX5,WORK  ,X1,NSTRMS,L4,0)\r\n      CALL ALG01(DATAC(L2),DATA3(L2),L3,XX5,TANEPS,X1,NSTRMS,L4,0)\r\n      DO 190 J=1,NSTRMS\r\n190   TANEPS(J)=TAN(TANEPS(J)/C1)\r\n      IW=NWORK(I)\r\n      IL=NLOSS(I)\r\n      IF(IW.EQ.7.OR.IL.LE.3)\r\n     1CALL ALG01(DATAC(L2),DATA2(L2),L3,XX5,LOSS  ,X1,NSTRMS,L4,0)\r\n      IF(IW.GE.5)\r\n     1CALL ALG01(DATAC(L2),DATA6(L2),L3,XX5,XX1,X1,NSTRMS,L4,0)\r\n      IF(IL.NE.4)GO TO 350\r\n      DO 200 II=I,NSTNS\r\n      IF(NLOSS(II).EQ.1)GO TO 210\r\n200   CONTINUE\r\n210   L2=IS2(II)\r\n      L3=NDATA(II)\r\n      L4=NTERP(II)\r\n      L1=NDIMEN(II)+1\r\n      GO TO(220,240,260,280),L1\r\n220   DO 230 J=1,NSTRMS\r\n230   XX5(J)=R(J,II)\r\n      GO TO 300\r\n240   DO 250 J=1,NSTRMS\r\n250   XX5(J)=R(J,II)/R(NSTRMS,II)\r\n      GO TO 300\r\n260   DO 270 J=1,NSTRMS\r\n270   XX5(J)=XL(J,II)\r\n      GO TO 300\r\n280   DO 290 J=1,NSTRMS\r\n290   XX5(J)=XL(J,II)/XL(NSTRMS,II)\r\n300   CALL ALG01(DATAC(L2),DATA2(L2),L3,XX5,LOSS,X1,NSTRMS,L4,0)\r\n      III=I+NL1(I)+1\r\n      DO 320 J=1,NSTRMS\r\n      XX2(J)=0.0\r\n      DO 310 IK=III,II\r\n      XX2(J)=XX2(J)+SQRT((X(J,IK)-X(J,IK-1))**2+(R(J,IK)-R(J,IK-1))**2)\r\n      IF(IK.EQ.I)XX3(J)=XX2(J)\r\n310   CONTINUE\r\n320   XX3(J)=XX3(J)/XX2(J)\r\n      L1=NCURVE(I)\r\n      L2=NM(L1)\r\n      L3=NRAD(L1)\r\n      DO 340 J=1,NSTRMS\r\n      DO 330 K=1,L3\r\n330   CALL ALG01(DM(1,K,L1),WFRAC(1,K,L1),L2,XX3(J),XX2(K),X1,1,0,0)\r\n      X2=(R(J,II)-R(1,II))/(R(NSTRMS,II)-R(1,II))\r\n      CALL ALG01(TERAD(1,L1),XX2,L3,X2,X1,X1,1,0,0)\r\n340   LOSS(J)=LOSS(J)*X1\r\n350   IF(IW.LT.5)GO TO 420\r\n      IF(IW.NE.5)GO TO 370\r\n      DO 360 J=1,NSTRMS\r\n360   TBETA(J,I)=TAN((WORK(J)+XX1(J))/C1)\r\n      GO TO 420\r\n370   IF(IW.EQ.7)GO TO 400\r\n      DO 380 J=1,NSTRMS\r\n380   XX2(J)=TAN((ATAN((R(J,I+1)-R(J,I))/(X(J,I+1)-X(J,I)))+ATAN((R(J,I)\r\n     1-R(J,I-1))/(X(J,I)-X(J,I-1))))/2.0)\r\n      L1=IS1(I)\r\n      CALL ALG01(RSTN(L1),XSTN(L1),NSPEC(I),R(1,I),X1,XX3,NSTRMS,0,1)\r\n      DO 390 J=1,NSTRMS\r\n390   TBETA(J,I)=TAN(ATAN((TAN(WORK(J)/C1)*(1.0-XX3(J)*XX2(J))-XX2(J)*TA\r\n     1NEPS(J)*SQRT(1.0+XX3(J)**2))/SQRT(1.0+XX2(J)**2))+XX1(J)/C1)\r\n      GO TO 420\r\n400   XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      CALL ALG01(DATAC(L2),DATA7(L2),L3,XX5,XX2,X1,NSTRMS,L4,0)\r\n      CALL ALG01(DATAC(L2),DATA8(L2),L3,XX5,XX3,X1,NSTRMS,L4,0)\r\n      CALL ALG01(DATAC(L2),DATA9(L2),L3,XX5,XX4,X1,NSTRMS,L4,0)\r\n      II=I+NL1(I)\r\n      DO 410 J=1,NSTRMS\r\n      X1=C1*ATAN((VW(J,II)-XN*R(J,II))/VM(J,II))\r\n      X2=XX3(J)\r\n      IF(X1.LT.XX1(J))X2=XX4(J)\r\n      LOSS(J)=LOSS(J)*(1.0+((X1-XX1(J))/(X2-XX1(J)))**2)\r\n      IF(LOSS(J).GT.0.5)LOSS(J)=0.5\r\n410   TBETA(J,I)=TAN((WORK(J)+(X1-XX1(J))*XX2(J))/C1)\r\n420   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg06.f",
    "content": "      SUBROUTINE ALG06(R1,R2,X1,X2,H,S,VM,TB1,TB2,W,XK,SCLFAC,SPEED,SPD\r\n     1FAC,G,EJ,HMIN,NSTRMS,PI)\r\nC\r\n      DIMENSION R1(1),R2(1),X1(1),X2(1),H(1),S(1),VM(1),TB1(1),TB2(1),W(\r\n     11)\r\n      DIMENSION R(150),W2D(150),W3D(150),XX1(150),XX2(150),XX3(150),XX5(\r\n     19,9),B(150)\r\nC\r\n      EQUIVALENCE (XX2(1),XX5(1,1))\r\nC\r\n      NTUB=NSTRMS-1\r\n      DO 50 J=1,NSTRMS\r\n      Q1=H(J)-VM(J)**2*(1.0+(TB2(J)+R2(J)*SPEED*SPDFAC*PI/(SCLFAC*30.0*V\r\n     1M(J)))**2)/(2.0*G*EJ)\r\n      IF(Q1.LT.HMIN)Q1=HMIN\r\n      XX1(J)=ALG4(Q1,S(J))\r\n50    XX2(J)=ALG5(Q1,S(J))\r\n      CALL ALG01(R2,XX1,NSTRMS,R2,Q1,XX3,NSTRMS,0,1)\r\n      DO 60 J=1,NSTRMS\r\n60    XX1(J)=XX3(J)*G/XX2(J)\r\n      Q1=(R2(NSTRMS)-R2(1))/149.0\r\n      R(1)=R2(1)\r\n      DO 70 J=2,150\r\n70    R(J)=R(J-1)+Q1\r\n      CALL ALG01(R2,XX1,NSTRMS,R,XX2,Q1,150,0,0)\r\n      DO 80 J=1,NSTRMS\r\n80    XX3(J)=((R2(J)-R1(J))**2+(X2(J)-X1(J))**2)*(1.0+((TB1(J)+TB2(J))*0\r\n     1.5)**2)\r\n      CALL ALG01(R2,XX3,NSTRMS,R,XX1,Q1,150,0,0)\r\n      DO 90 J=1,NSTRMS\r\n90    W2D(J)=VM(J)**2*(1.0+TB2(J)**2)\r\n      CALL ALG01(R2,W2D,NSTRMS,R,XX3,Q1,150,0,0)\r\n      CALL ALG01(R2,W  ,NSTRMS,R,W2D,Q1,150,0,0)\r\n      NKEEP=NSTRMS\r\n      NSTRMS=150\r\n      NTUB=149\r\n      Q2=(SPEED*SPDFAC*PI/(30.0*SCLFAC))**2\r\n      DO 100 J=1,NSTRMS\r\n100   W3D(J)=0.0\r\n      B(1)=(R(2)-R(1))/2.0\r\n      B(NSTRMS)=(R(NSTRMS)-R(NTUB))/2.0\r\n      DO 110 J=2,NTUB\r\n110   B(J)=(R(J+1)-R(J-1))/2.0\r\n      DO 270 J=1,NSTRMS\r\n      DR=XK*XX1(J)/XX3(J)*(Q2*R(J)-XX2(J))\r\n      IF(DR)130,120,200\r\n120   W3D(J)=W3D(J)+W2D(J)\r\n      GO TO 270\r\n130   IF(J.EQ.1)GO TO 120\r\n      IF(R(J)+DR.LE.R(1))GO TO 180\r\n      DO 140 JJ=2,J\r\n      JJJ=J-JJ+1\r\n      IF(R(J)+DR.GE.R(JJJ))GO TO 150\r\n140   CONTINUE\r\n150   JJJ=JJJ+1\r\n      Q1=W2D(J)*B(J)/(B(J)-DR)\r\n      DO 170 JJ=JJJ,J\r\n170   W3D(JJ)=W3D(JJ)+Q1\r\n      GO TO 270\r\n180   A=B(J)*W2D(J)/(R(NSTRMS)-R(1))\r\n      IF(J.NE.NSTRMS)A=B(J)*W2D(J)/((R(J+1)+R(J))*0.5-R(1))\r\n      DO 190 JJ=1,J\r\n190   W3D(JJ)=W3D(JJ)+A\r\n      GO TO 270\r\n200   IF(J.EQ.NSTRMS)GO TO 120\r\n      IF(R(J)+DR.GE.R(NSTRMS))GO TO 250\r\n      DO 210 JJ=J,NSTRMS\r\n      IF(R(J)+DR.LT.R(JJ))GO TO 220\r\n210   CONTINUE\r\n220   JJ=JJ-1\r\n      Q1=W2D(J)*B(J)/(B(J)+DR)\r\n      DO 240 JJJ=J,JJ\r\n240   W3D(JJJ)=W3D(JJJ)+Q1\r\n      GO TO 270\r\n250   A=B(J)*W2D(J)/(R(NSTRMS)-R(1))\r\n      IF(J.NE.1)A=B(J)*W2D(J)/(R(NSTRMS)-(R(J)+R(J-1))*0.5)\r\n      DO 260 JJ=J,NSTRMS\r\n260   W3D(JJ)=W3D(JJ)+A\r\n270   CONTINUE\r\n      NSTRMS=NKEEP\r\n      XX1(1)=0.0\r\n      DO 280 LL=1,150\r\n280   XX1(1)=XX1(1)+W3D(LL)\r\n      DO 290 L=2,9\r\n      XX1(L)=0.0\r\n      DO 290 LL=1,150\r\n290   XX1(L)=XX1(L)+R(LL)**(L-1)*W3D(LL)\r\n      DO 330 L=1,9\r\n      DO 320 J=L,9\r\n      IF(J.EQ.1)GO TO 310\r\n      XX5(L,J)=0.0\r\n      DO 300 LL=1,150\r\n300   XX5(L,J)=XX5(L,J)+R(LL)**(L+J-2)\r\n      GO TO 320\r\n310   XX5(1,1)=150\r\n320   XX5(J,L)=XX5(L,J)\r\n330   CONTINUE\r\n      CALL ALG30(XX5,XX1)\r\n      DO 340 J=1,NSTRMS\r\n340   W(J)=(((((((XX1(9)*R2(J)+XX1(8))*R2(J)+XX1(7))*R2(J)+XX1(6))*R2(J)\r\n     1+XX1(5))*R2(J)+XX1(4))*R2(J)+XX1(3))*R2(J)+XX1(2))*R2(J)+XX1(1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg07.f",
    "content": "      SUBROUTINE ALG07\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      L1=I+NL1(I)\r\n      L2=I+NL2(I)\r\n      IW=NWORK(I)\r\n      IL=NLOSS(I)\r\n      XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      GO TO(100,250,270,290,440,440,440),IW\r\n100   GO TO(110,190,210,110),IL\r\n110   IF(L2.NE.I)GO TO 150\r\n      DO 140 J=1,NSTRMS\r\n      IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 120\r\n      IF(ITER.EQ.0)VV(J)=VM(J,I)\r\n      X1=H(J,I)-(VV(J)**2+VW(J,I)**2)/(2.0*G*EJ)\r\n      X2=H(J,I)-(VW(J,I)**2-(VW(J,I)-XN*R(J,I))**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I))))\r\n      GO TO 130\r\n120   X3=1.0\r\n130   H(J,I)=ALG2(S(J,L1),WORK(J)/X3)\r\n140   S(J,I)=ALG3(WORK(J),H(J,I))\r\n      GO TO 230\r\n150   DO 180 J=1,NSTRMS\r\n      IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 160\r\n      X1=H(J,L1)-(VW(J,L1)**2-(VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ)+XN**2\r\n     1*(R(J,I)**2-R(J,L1)**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      X2=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ)\r\n      X3=H(J,L2)-(VW(J,L2)**2-(VW(J,L2)-XN*R(J,L2))**2)/(2.0*G*EJ)\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      IF(X3.LT.HMIN)X3=HMIN\r\n      X4=1.0-LOSS(J)/ALG4(X1,S(J,L1))*(ALG4(X3,S(J,L2))-ALG4(X2,S(J,L2))\r\n     1)\r\n      GO TO 170\r\n160   X4=1.0\r\n170   H(J,I)=ALG2(S(J,L1),WORK(J)/X4)\r\n180   S(J,I)=ALG3(WORK(J),H(J,I))\r\n      GO TO 230\r\n190   DO 200 J=1,NSTRMS\r\n      H(J,I)=H(J,L1)+(ALG2(S(J,L1),WORK(J))-H(J,L1))/LOSS(J)\r\n200   S(J,I)=ALG3(WORK(J),H(J,I))\r\n      GO TO 230\r\n210   DO 220 J=1,NSTRMS\r\n      S(J,I)=S(J,L1)+LOSS(J)\r\n220   H(J,I)=ALG2(S(J,I),WORK(J))\r\n230   DO 240 J=1,NSTRMS\r\n240   VW(J,I)=(XN*RIM1(J)*VW(J,I-1)+(H(J,I)-H(J,I-1))*G*EJ)/(XN*R(J,I))\r\n      GO TO 570\r\n250   DO 260 J=1,NSTRMS\r\n      H(J,I)=WORK(J)\r\n260   VW(J,I)=(XN*RIM1(J)*VW(J,I-1)+(H(J,I)-H(J,I-1))*G*EJ)/(XN*R(J,I))\r\n      GO TO 330\r\n270   DO 280 J=1,NSTRMS\r\n280   VW(J,I)=WORK(J)/R(J,I)\r\n      GO TO 310\r\n290   DO 300 J=1,NSTRMS\r\n300   VW(J,I)=WORK(J)\r\n310   DO 320 J=1,NSTRMS\r\n320   H(J,I)=H(J,I-1)+XN*(R(J,I)*VW(J,I)-RIM1(J)*VW(J,I-1))/(G*EJ)\r\n330   GO TO(340,400,420,340),IL\r\n340   IF(L2.NE.I)GO TO 370\r\n      DO 360 J=1,NSTRMS\r\n      IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 350\r\n      IF(ITER.EQ.0)VV(J)=VM(J,I)\r\n      X1=H(J,I)-(VV(J)**2+VW(J,I)**2)/(2.0*G*EJ)\r\n      X2=H(J,I)-(VW(J,I)**2-(VW(J,I)-XN*R(J,I))**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I))))\r\n      GO TO 360\r\n350   X3=1.0\r\n360   S(J,I)=ALG3(X3*ALG4(H(J,I),S(J,L1)),H(J,I))\r\n      GO TO 570\r\n370   DO 390 J=1,NSTRMS\r\n      IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 380\r\n      X1=H(J,L1)-(VW(J,L1)**2-(VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ)+XN**2\r\n     1*(R(J,I)**2-R(J,L1)**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      X2=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ)\r\n      X3=H(J,L2)-(VW(J,L2)**2-(VW(J,L2)-XN*R(J,L2))**2)/(2.0*G*EJ)\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      IF(X3.LT.HMIN)X3=HMIN\r\n      X4=1.0-LOSS(J)/ALG4(X1,S(J,L1))*(ALG4(X3,S(J,L2))-ALG4(X2,S(J,L2))\r\n     1)\r\n      GO TO 390\r\n380   X4=1.0\r\n390   S(J,I)=ALG3(X4*ALG4(H(J,I),S(J,L1)),H(J,I))\r\n      GO TO 570\r\n400   DO 410 J=1,NSTRMS\r\n410   S(J,I)=ALG3(ALG4(H(J,L1)+LOSS(J)*(H(J,I)-H(J,L1)),S(J,L1)),H(J,I))\r\n      GO TO 570\r\n420   DO 430 J=1,NSTRMS\r\n430   S(J,I)=S(J,L1)+LOSS(J)\r\n      GO TO 570\r\n440   DO 450 J=1,NSTRMS\r\n450   XI(J)=H(J,I-1)-XN*RIM1(J)*VW(J,I-1)/(G*EJ)\r\n      GO TO(460,510,550,460),IL\r\n460   IF(L2.NE.I)GO TO 490\r\n      DO 480 J=1,NSTRMS\r\n      X2=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ)\r\n      IF(IPASS.EQ.1.AND.ITER.EQ.0) GO TO 470\r\n      IF(ITER.EQ.0) VV(J) = VM(J,I)\r\n      X1=X2-VV(J)**2*(1.0+TBETA(J,I)**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      X3=1.0/(1.0+LOSS(J)*(1.0-ALG4(X1,S(J,I))/ALG4(X2,S(J,I))))\r\n      GO TO 480\r\n470   X3=1.0\r\n480   S(J,I)=ALG3(X3*ALG4(X2,S(J,L1)),X2)\r\n      GO TO 570\r\n490   DO 500 J=1,NSTRMS\r\n      X4=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ)\r\n      IF(X4.LT.HMIN)X4=HMIN\r\n      X1=ALG4(X4,S(J,L1))\r\n      IF(IPASS.EQ.1.AND.L2.GT.I)GO TO 500\r\n      X2=XI(J)+(XN*R(J,L2))**2/(2.0*G*EJ)\r\n      X3=H(J,L2)-(VM(J,L2)**2+VW(J,L2)**2)/(2.0*G*EJ)\r\n      IF(X2.LT.HMIN)X2=HMIN\r\n      IF(X3.LT.HMIN)X3=HMIN\r\n      X1=X1-LOSS(J)*(ALG4(X2,S(J,L2))-ALG4(X3,S(J,L2)))\r\n500   S(J,I)=ALG3(X1,X4)\r\n      GO TO 570\r\n510   IF(IPASS.EQ.1.AND.ITER.EQ.0)GO TO 530\r\n      DO 520 J=1,NSTRMS\r\n      IF(ITER.EQ.0)VV(J)=VM(J,I)\r\n      X1=H(J,I-1)+XN*(VV(J)*(TBETA(J,I)+XN*R(J,I)/VV(J))*R(J,I)-RIM1(J)*\r\n     1VW(J,I-1))/(G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      X2=ALG4(H(J,L1)+(X1-H(J,L1))*LOSS(J),S(J,L1))\r\n520   S(J,I)=ALG3(X2,X1)\r\n      GO TO 570\r\n530   DO 540 J=1,NSTRMS\r\n540   S(J,I)=S(J,L1)\r\n      GO TO 570\r\n550   DO 560 J=1,NSTRMS\r\n560   S(J,I)=S(J,L1)+LOSS(J)\r\n570   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg08.f",
    "content": "      SUBROUTINE ALG08\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION XX1(21),DLADM(21),DSDM(21),DRVWDM(21),DL(21),DSDL(21),DP\r\n     1HIDL(21),FX1(21),FX2(21),VVOLD(21),AFUN(20),BFUN(20),HS(20),XM2(20\r\n     2),VMMAX(21),DVMDVM(20),TEIP1(21),TBIP1(21)\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      ITMAX=20\r\n      LPMAX=10\r\n      K=1\r\n      IF(I.EQ.ISTAG)K=2\r\n      XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      IF(I.EQ.1)GO TO 234\r\n      DO 100 J=1,NSTRMS\r\n      LAMIM1(J)=LAMI(J)\r\n      LAMI(J)=LAMIP1(J)\r\n100   LAMIP1(J)=1.0\r\n      IF(I.EQ.NSTNS)GO TO 234\r\n      IF(NDATA(I+1).EQ.0)GO TO 210\r\n      L1=NDIMEN(I+1)+1\r\n      GO TO(110,130,150,170),L1\r\n110   DO 120 J=1,NSTRMS\r\n120   XX1(J)=R(J,I+1)\r\n      GO TO 190\r\n130   DO 140 J=1,NSTRMS\r\n140   XX1(J)=R(J,I+1)/R(NSTRMS,I+1)\r\n      GO TO 190\r\n150   DO 160 J=1,NSTRMS\r\n160   XX1(J)=XL(J,I+1)\r\n      GO TO 190\r\n170   DO 180 J=1,NSTRMS\r\n180   XX1(J)=XL(J,I+1)/XL(NSTRMS,I+1)\r\n190   L1=IS2(I+1)\r\n      CALL ALG01(DATAC(L1),DATA4(L1),NDATA(I+1),XX1,XX1,X1,NSTRMS,NTERP\r\n     1(I+1),0)\r\n      DO 200 J=1,NSTRMS\r\n200   LAMIP1(J)=1.0-XX1(J)\r\n210   DO 220 J=1,NSTRMS\r\n      X1=SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2)\r\n      X2=SQRT((R(J,I)-RIM1(J))**2+(X(J,I)-XIM1(J))**2)\r\n      X3=ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I))\r\n      X4=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J))\r\n      PHI(J)=(X3+X4)/2.0\r\n      CR(J)=(X3-X4)/(X1+X2)*2.0\r\n      DSDM(J)=0.0\r\n      DRVWDM(J)=0.0\r\n      DLADM(J)=((LAMIP1(J)-LAMI(J))/X1+(LAMI(J)-LAMIM1(J))/X2)/2.0\r\n      IF(IPASS.EQ.1)GO TO 220\r\n      DSDM(J)=((S(J,I+1)-S(J,I))/X1+(S(J,I)-S(J,I-1))/X2)/2.0*G*EJ\r\n      DRVWDM(J)=((R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)-\r\n     1RIM1(J)*VW(J,I-1))/X2)/(2.0*R(J,I))\r\n220   CONTINUE\r\n      IF(IPASS.EQ.1.OR.NDATA(I).EQ.0.OR.NEQN.EQ.1.OR.NWORK(I).NE.0.OR.NW\r\n     1ORK(I+1).EQ.0)GO TO 390\r\n      L1=NDIMEN(I)+1\r\n      GO TO(221,223,225,227),L1\r\n221   DO 222 J=1,NSTRMS\r\n222   TEIP1(J)=R(J,I)\r\n      GO TO 229\r\n223   DO 224 J=1,NSTRMS\r\n224   TEIP1(J)=R(J,I)/R(NSTRMS,I)\r\n      GO TO 229\r\n225   DO 226 J=1,NSTRMS\r\n226   TEIP1(J)=XL(J,I)\r\n      GO TO 229\r\n227   DO 228 J=1,NSTRMS\r\n228   TEIP1(J)=XL(J,I)/XL(NSTRMS,I)\r\n229   L1=IS2(I)\r\n      CALL ALG01(DATAC(L1),DATA3(L1),NDATA(I),TEIP1,TEIP1,X1,NSTRMS,NTE\r\n     1RP(I),0)\r\n      X1=SPEED(I+1)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      DO 230 J=1,NSTRMS\r\n      TEIP1(J)=TAN(TEIP1(J)/C1)\r\n230   TBIP1(J)=(VW(J,I)-X1*R(J,I))/VM(J,I)\r\n      GO TO 390\r\n234   DO 240 J=1,NSTRMS\r\n      DLADM(J)=0.0\r\n      DSDM(J)=0.0\r\n      DRVWDM(J)=0.0\r\n240   CR(J)=0.0\r\n      IF(I.EQ.1)GO TO 244\r\n      DO 246 J=1,NSTRMS\r\n246   PHI(J)=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J))\r\n      GO TO 390\r\n244   DO 260 J=1,NSTRMS\r\n260   PHI(J)=ATAN2(R(J,2)-R(J,1),X(J,2)-X(J,1))\r\n      DO 270 J=1,NSTRMS\r\n      XI(J)=H(J,1)\r\n      LAMI(J)=1.0\r\n270   LAMIP1(J)=1.0\r\n      IF(NDATA(2).EQ.0)GO TO 390\r\n      L2=NDIMEN(2)+1\r\n      GO TO(290,310,330,350),L2\r\n290   DO 300 J=1,NSTRMS\r\n300   XX1(J)=R(J,2)\r\n      GO TO 370\r\n310   DO 320 J=1,NSTRMS\r\n320   XX1(J)=R(J,2)/R(NSTRMS,2)\r\n      GO TO 370\r\n330   DO 340 J=1,NSTRMS\r\n340   XX1(J)=XL(J,2)\r\n      GO TO 370\r\n350   DO 360 J=1,NSTRMS\r\n360   XX1(J)=XL(J,2)/XL(NSTRMS,2)\r\n370   L1=IS2(2)\r\n      CALL ALG01(DATAC(L1),DATA4(L1),NDATA(2),XX1,XX1,X1,NSTRMS,NTERP(2\r\n     1),0)\r\n      DO 380 J=1,NSTRMS\r\n380   LAMIP1(J)=1.0-XX1(J)\r\n390   CALL ALG01(R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1)\r\n      DO 400 J=1,NSTRMS\r\n      GAMA(J)=ATAN(GAMA(J))\r\n      SPPG(J)=GAMA(J)+PHI(J)\r\n      CPPG(J)=COS(SPPG(J))\r\n      SPPG(J)=SIN(SPPG(J))\r\n400   VV(J)=VM(J,I)\r\n      DO 410 J=1,ITUB\r\n      DL(J)=XL(J+1,I)-XL(J,I)\r\n      DSDL(J)=(S(J+1,I)-S(J,I))/DL(J)*G*EJ\r\n410   DPHIDL(J)=(PHI(J+1)-PHI(J))/DL(J)\r\n      IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 430\r\n      DO 420 J=1,ITUB\r\n      DVMDVM(J)=0.0\r\n      FX1(J)=(VW(J+1,I)+VW(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*VW(J+1,I)-R\r\n     1(J,I)*VW(J,I))/DL(J)\r\n420   FX2(J)=(H(J+1,I)-H(J,I))/DL(J)*G*EJ\r\n      DO 426 J=1,NSTRMS\r\n      X1=ALG8(H(J,I),S(J,I))\r\n      X1=(2.0/ALG9(H(J,I),S(J,I),1.0)-VW(J,I)**2*(X1-1.0))/(X1+1.0)\r\n      IF(X1.GT.1.0)GO TO 426\r\n      IF(IPASS.LE.NFORCE)GO TO 424\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,422)IPASS,I,J,X1\r\n422   FORMAT(5X,4HPASS,I3,9H  STATION,I3,12H  STREAMLINE,I3,40H  LIMITIN\r\n     1G MERIDIONAL VELOCITY SQUARED =,E12.5)\r\n424   X1=6250000.0\r\n      IF(IFAILO.EQ.0)IFAILO=I\r\n426   VMMAX(J)=SQRT(X1)\r\n      GO TO 450\r\n430   DO 440 J=1,ITUB\r\n      FX1(J)=(TBETA(J+1,I)+TBETA(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*TBETA\r\n     1(J+1,I)-R(J,I)*TBETA(J,I))/DL(J)\r\n440   FX2(J)=(XI(J+1)-XI(J))/DL(J)*G*EJ\r\n      DO 446 J=1,NSTRMS\r\n      X1=XI(J)+(XN*R(J,I))**2/(2.0*G*EJ)\r\n      X1=1.0/(ALG9(X1,S(J,I),1.0)*(1.0+(ALG8(X1,S(J,I))-1.0)*(1.0+TBETA(\r\n     1J,I)**2)/2.0))\r\n      IF(X1.GT.1.0)GO TO 446\r\n      IF(IPASS.LE.NFORCE)GO TO 442\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,422)IPASS,I,J,X1\r\n442   X1=6250000.0\r\n      IF(IFAILO.EQ.0)IFAILO=I\r\n446   VMMAX(J)=SQRT(X1)\r\n450   VMAX=0.0\r\n      VMIN=1.05*VMMAX(IMID)\r\n      ITER=0\r\n460   ITER=ITER+1\r\n      IFAIL=0\r\n      ICONF1=0\r\n      DO 470 J=1,NSTRMS\r\n470   VVOLD(J)=VV(J)\r\n      IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 810\r\n      DO 580 J=1,ITUB\r\n      X1=(H(J,I)+H(J+1,I))/2.0-(((VVOLD(J)+VVOLD(J+1))/2.0)**2+((VW(J,I)\r\n     1+VW(J+1,I))/2.0)**2)/(2.0*G*EJ)\r\n      IF(X1.GE.HMIN)GO TO 520\r\n      IF(IPASS.LE.NFORCE)GO TO 510\r\n      IF(LNCT.LT.NPAGE)GO TO 480\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n480   LNCT=LNCT+1\r\n      WRITE(LOG2,490)IPASS,I,ITER,J,X1\r\n490   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,53H  STATIC ENTHALPY BELOW LIMIT IN MOMENTUM EQUATION AT,E13\r\n     2.5)\r\n500   FORMAT(1H1)\r\n510   IFAIL=1\r\n      X1=HMIN\r\n520   X2=(S(J,I)+S(J+1,I))/2.0\r\n      X6=ALG8(X1,X2)\r\n      X7=ALG7(X1,X2)\r\n      X1=ALG9(X1,X2,((VVOLD(J)+VVOLD(J+1))/2.0)**2)\r\n      XQ=X1\r\n      IF(X1.LE.0.9801)GO TO 560\r\n      IF(IPASS.LE.NFORCE)GO TO 550\r\n      IF(LNCT.LT.NPAGE)GO TO 530\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n530   LNCT=LNCT+1\r\n      X1=SQRT(X1)\r\n      WRITE(LOG2,540)IPASS,I,ITER,J,X1\r\n540   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,39H  MERIDIONAL MACH NUMBER ABOVE LIMIT AT,E13.5)\r\n550   IFAIL=1\r\n      X1=0.9801\r\n560   X2=(CPPG(J)+CPPG(J+1))/2.0\r\n      X3=(SPPG(J)+SPPG(J+1))/2.0\r\n      AFUN(J)=-2.0/(1.0-X1)*((1.0-X2*X2*XQ)*(CR(J)+CR(J+1))/(2.0*X2)-X3/\r\n     1X2*DPHIDL(J)-X3*(SIN((PHI(J)+PHI(J+1))/2.0)/(R(J,I)+R(J+1,I))*2.0*\r\n     2(1.0+X1*((VW(J,I)+VW(J+1,I))/(VVOLD(J)+VVOLD(J+1)))**2)+(DLADM(J)+\r\n     3DLADM(J+1))/(LAMI(J)+LAMI(J+1))))\r\n      BFUN(J)=2.0*(FX2(J)-X7*DSDL(J)-FX1(J))\r\n      IF(I.EQ.NSTNS.OR.IPASS.EQ.1)GO TO 580\r\n      IF(NEQN.EQ.1.OR.NDATA(I).EQ.0.OR.(NWORK(I).EQ.0.AND.NWORK(I+1).EQ.\r\n     10))GO TO 570\r\n      IF(NWORK(I).EQ.0)GO TO 564\r\n      X4=(TBETA(J,I)+TBETA(J+1,I))/2.0\r\n      X5=(TANEPS(J)+TANEPS(J+1))/2.0\r\n562   BFUN(J)=BFUN(J)+2.0*(X7*(DSDM(J)+DSDM(J+1))/2.0*(X3*(1.0/(1.0+X4*X\r\n     14)+X6*X1/(1.0-X1))-X5*X4/(1.0+X4*X4))-(VVOLD(J)+VVOLD(J+1))*.25*(D\r\n     2RVWDM(J)+DRVWDM(J+1))*(X5-X3*X1/(1.0-X1)*X4))\r\n      GO TO 580\r\n564   X4=(TBIP1(J)+TBIP1(J+1))*0.5\r\n      X5=(TEIP1(J)+TEIP1(J+1))*0.5\r\n      GO TO 562\r\n570   BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*X3*(1.0-X1*(X6-1.0))/(1.0-X\r\n     11)\r\n580   CONTINUE\r\n      VV(IMID)=VVOLD(IMID)**2\r\n      J=IMID\r\n      JINC=1\r\n590   JOLD=J\r\n      J=J+JINC\r\n      JJ=JOLD\r\n      IF(JINC.EQ.-1)JJ=J\r\n      IF(ABS(AFUN(JJ)).LE.1.0E-5) GO TO 660\r\n      X1=-AFUN(JJ)*(XL(J,I)-XL(JOLD,I))\r\n      IF(X1.LE.88.0)GO TO 630\r\n      IF(IPASS.LE.NFORCE)GO TO 620\r\n      IF(LNCT.LT.NPAGE)GO TO 600\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n600   LNCT=LNCT+1\r\n      WRITE(LOG2,610)IPASS,I,ITER,JJ,X1\r\n610   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,43H  MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT,E13.5)\r\n620   IFAIL=1\r\n      X1=88.0\r\n630   X1=EXP(X1)\r\n      VV(J)=VV(JOLD)*X1+(1.0-X1)*BFUN(JJ)/AFUN(JJ)\r\n640   IF(J.EQ.K)GO TO 670\r\n      IF(J.EQ.NSTRMS)GO TO 650\r\n      GO TO 590\r\n650   J=IMID\r\n      JINC=-1\r\n      GO TO 590\r\n660   VV(J)=VV(JOLD)+BFUN(JJ)*(XL(J,I)-XL(JOLD,I))\r\n      GO TO 640\r\n670   DO 710 J=K,NSTRMS\r\n      IF(VV(J).LE.4.0*VVOLD(IMID)**2)GO TO 676\r\n      IFAIL=1\r\n      IF(IPASS.LE.NFORCE)GO TO 674\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,672)IPASS,I,ITER,J\r\n672   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,50H  MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE)\r\n674   VV(J)=4.0*VVOLD(IMID)**2\r\n676   IF(VV(J).GE.1.0)GO TO 702\r\n      IF(IPASS.LE.NFORCE)GO TO 700\r\n      IF(LNCT.LT.NPAGE)GO TO 680\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n680   LNCT=LNCT+1\r\n      WRITE(LOG2,690)IPASS,I,ITER,J,VV(J)\r\n690   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,46H  (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT,E13.5)\r\n700   VV(J)=1.0\r\n      IFAIL=1\r\n      GO TO 710\r\n702   VV(J)=SQRT(VV(J))\r\n      IF(VV(J).LE.VMMAX(J))GO TO 710\r\n      IFAIL=1\r\n      IF(IPASS.LE.NFORCE)GO TO 708\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,706)IPASS,I,ITER,J,VV(J),VMMAX(J)\r\n706   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,44H  MERIDIONAL VELOCITY ABOVE SOUND SPEED  VM=,F8.2,3H A=,F\r\n     28.2)\r\n708   VV(J)=VMMAX(J)\r\n710   CONTINUE\r\n      X1=0.0\r\n      DO 712 J=K,ITUB\r\n712   X1=X1+(XL(J+1,I)-XL(J,I))*ABS((VV(J+1)+VV(J))/(VVOLD(J+1)+VVOLD(J)\r\n     1)-1.0)\r\n      X1=X1/(XL(NSTRMS,I)-XL(K,I))\r\n      X2=0.1\r\n      IF(X1.LT.0.2)X2=EXP(-11.52*X1)\r\n      DO 715 J=K,NSTRMS\r\n715   VV(J)=VVOLD(J)+X2*(VV(J)-VVOLD(J))\r\n      IF(NLOSS(I).EQ.1.AND.NL2(I).EQ.0)CALL ALG07\r\n      DO 800 J=1,ITUB\r\n      HS(J)=(H(J,I)+H(J+1,I))/2.0-(((VV(J)+VV(J+1))/2.0)**2+((VW(J,I)+VW\r\n     1(J+1,I))/2.0)**2)/(2.0*G*EJ)\r\n      IF(HS(J).GE.HMIN)GO TO 800\r\n      IF(IPASS.LE.NFORCE)GO TO 790\r\n      IF(LNCT.LT.NPAGE)GO TO 770\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n770   LNCT=LNCT+1\r\n      WRITE(LOG2,780)IPASS,I,ITER,J,HS(J)\r\n780   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,55H  STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION AT,E\r\n     213.5)\r\n790   IFAIL=1\r\n      HS(J)=HMIN\r\n800   XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,((VV(J)+VV(J+1))/2.0)**2)\r\n      GO TO 1100\r\n810   J=IMID\r\n      JINC=1\r\n820   LOOP=1\r\n      JOLD=J\r\n      J=J+JINC\r\n      JJ=JOLD\r\n      IF(JINC.EQ.-1)JJ=J\r\n830   VOLD=VV(J)\r\n      VAV=(VOLD+VV(JOLD))/2.0\r\n      IFAIE=0\r\n      ICONF2=0\r\n      X2=(TBETA(J,I)+TBETA(JOLD,I))/2.0\r\n      X1=(XI(J)+XI(JOLD))/2.0+((XN*(R(J,I)+R(JOLD,I))/2.0)**2-VAV**2*(1.\r\n     10+X2*X2))/(2.0*G*EJ)\r\n      IF(X1.GE.HMIN)GO TO 870\r\n      IF(IPASS.LE.NFORCE)GO TO 860\r\n      IF(LNCT.LT.NPAGE)GO TO 840\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n840   LNCT=LNCT+1\r\n      WRITE(LOG2,850)IPASS,I,ITER,JJ,LOOP,X1\r\n850   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,6H  LOOP,I3,43H  STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT,E\r\n     213.5)\r\n860   IFAIE=1\r\n      ICONF2 = 1\r\n      X1=HMIN\r\n870   X3=(S(J,I)+S(JOLD,I))/2.0\r\n      X6=ALG8(X1,X3)\r\n      X7=ALG7(X1,X3)\r\n      X1=ALG9(X1,X3,VAV*VAV)\r\n      IF(X1.LE.0.9801)GO TO 910\r\n      IF(IPASS.LE.NFORCE)GO TO 900\r\n      IF(LNCT.LT.NPAGE)GO TO 880\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n880   LNCT=LNCT+1\r\n      X1=SQRT(X1)\r\n      WRITE(LOG2,890)IPASS,I,ITER,JJ,LOOP,X1\r\n890   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,6H  LOOP,I3,39H  MERIDIONAL MACH NUMBER ABOVE LIMIT AT,E13.5\r\n     2)\r\n900   IFAIE=1\r\n      ICONF2=1\r\n      X1=0.9801\r\n910   X4=(SPPG(J)+SPPG(JOLD))/2.0\r\n      X5=(CPPG(J)+CPPG(JOLD))/2.0\r\n      X9=(R(J,I)+R(JOLD,I))*0.5\r\n      X10=SIN((PHI(J)+PHI(JOLD))*0.5)\r\n      X11=(1.0-X5*X5*X1)*(CR(J)+CR(JOLD))*0.5/X5-X4/X5*DPHIDL(JJ)-X4*(X1\r\n     10/X9*(1.0+X1*(X2+XN*X9/VAV)**2)+(DLADM(J)+DLADM(JOLD))/(LAMI(J)+LA\r\n     2MI(JOLD)))\r\n      DV2DL=FX2(JJ)-X7*DSDL(JJ)-2.0*XN*VAV*X2*COS((GAMA(J)+GAMA(JOLD))*0\r\n     1.5)+VAV*VAV*(X11/(1.0-X1)-FX1(JJ))\r\n      X12=1.0/(1.0+X2*X2)\r\n      DVMDVM(JJ)=X12*((X7*DSDL(JJ)-FX2(JJ))/VAV**2-FX1(JJ)+X11/(1.0-X1))\r\n      IF(I.EQ.1.OR.I.EQ.NSTNS.OR.IPASS.EQ.1)GO TO 920\r\n      IF(NEQN.EQ.1)GO TO 914\r\n      X8=(TANEPS(J)+TANEPS(JOLD))*0.5\r\n      X5=0.5*(DSDM(J)+DSDM(JOLD))*X7*(X4*(X12+X6*X1/(1.0-X1))-X8*X2*X12)\r\n      DV2DL=DV2DL+X5-VAV*(DRVWDM(J)+DRVWDM(JOLD))*0.5*(X8-X4*X1*X2/(1.0-\r\n     1X1))\r\n      DVMDVM(JJ)=DVMDVM(JJ)-X5*X12/VAV**2\r\n      GO TO 920\r\n914   X5=0.5*(DSDM(J)+DSDM(JOLD))*X7*X4*(1.0-X1*(X6-1.0))/(1.0-X1)\r\n      DV2DL=DV2DL+X5\r\n      DVMDVM(JJ)=DVMDVM(JJ)-X5*X12/VAV**2\r\n920   DV2DL=DV2DL*2.0*X12\r\n      X1=VV(JOLD)**2+DV2DL*(XL(J,I)-XL(JOLD,I))\r\n      IF(X1.LE.9.0*VVOLD(IMID)**2)GO TO 938\r\n      ICONF2=1\r\n      IFAIE=1\r\n      IF(IPASS.LE.NFORCE)GO TO 936\r\n      CALL ALG03(LNCT,1)\r\n      X1=SQRT(X1)\r\n      X2=3.0*VVOLD(IMID)\r\n      WRITE(LOG2,934)IPASS,I,ITER,J,LOOP,X1,X2\r\n934   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,6H  LOOP,I3,33H  MERIDIONAL VELOCITY ABOVE LIMIT,E13.5,9H  L\r\n     2IMIT =,E13.5)\r\n936   X1=9.0*VVOLD(IMID)**2\r\n938   IF(X1.GE.1.0)GO TO 950\r\n      IF(IPASS.LE.NFORCE)GO TO 944\r\n      IF(LNCT.LT.NPAGE)GO TO 930\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n930   LNCT=LNCT+1\r\n      WRITE(LOG2,940)IPASS,I,ITER,J ,LOOP,X1\r\n940   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,6H  LOOP,I3,46H  (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT A\r\n     2T,E13.5)\r\n944   X1=1.0\r\n      IFAIE=1\r\n      ICONF2=1\r\n950   VV(J)=SQRT(X1)\r\n      IF(VV(J).LE.VMMAX(J))GO TO 958\r\n      IFAIE=1\r\n      ICONF2=1\r\n      IF(IPASS.LE.NFORCE)GO TO 956\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,706)IPASS,I,ITER,J,VV(J),VMMAX(J)\r\n956   VV(J)=VMMAX(J)\r\n958   IF(ABS(VV(J)/VOLD-1.0).LE.TOLNCE*0.2)GO TO 990\r\n      IF(LOOP.GE.LPMAX)GO TO 960\r\n      LOOP=LOOP+1\r\n      GO TO 830\r\n960   ICONF2=1\r\n      IF(IPASS.LE.NFORCE)GO TO 990\r\n      IF(LNCT.LT.NPAGE)GO TO 970\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n970   LNCT=LNCT+1\r\n      WRITE(LOG2,980)IPASS,I,ITER,J,VV(J),VOLD\r\n980   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,38H  MERIDIONAL VELOCITY UNCONVERGED  VM=,E13.6,9H VM(OLD)=,\r\n     2E13.6)\r\n990   IF(IFAIE.EQ.1)IFAIL=1\r\n      IF(ICONF2.EQ.1)ICONF1=1\r\n      IF(J.EQ.NSTRMS)GO TO 1000\r\n      IF(J.EQ.1)GO TO 1010\r\n      GO TO 820\r\n1000  J=IMID\r\n      JINC=-1\r\n      GO TO 820\r\n1010  IF(I.EQ.1)GO TO 1014\r\n      IF(NLOSS(I).EQ.2.OR.(NLOSS(I).EQ.1.AND.NL2(I).EQ.0))CALL ALG07\r\n1014  DO 1090 J=1,ITUB\r\n      X1=((VV(J)+VV(J+1))/2.0)**2*(1.0+((TBETA(J,I)+TBETA(J+1,I))/2.0)**\r\n     12)\r\n      HS(J)=(XI(J)+XI(J+1))/2.0+((XN*(R(J,I)+R(J+1,I))/2.0)**2-X1)/(2.0*\r\n     1G*EJ)\r\n      IF(HS(J).GE.HMIN)GO TO 1080\r\n      IF(IPASS.LE.NFORCE)GO TO 1070\r\n      IF(LNCT.LT.NPAGE)GO TO 1060\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1060  LNCT=LNCT+1\r\n      WRITE(LOG2,780)IPASS,I,ITER,J,HS(J)\r\n1070  IFAIL=1\r\n      HS(J)=HMIN\r\n1080  XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,X1)\r\n      IF(I.EQ.1.OR.NLOSS(I).NE.1.OR.NL2(I).NE.0)GO TO 1090\r\n      X1=(S(J,I)+S(J+1,I))/2.0\r\n      X2=ALG4(HS(J),X1)\r\n      X4=ALG8(HS(J),X1)\r\n      X3=(XI(J)+XI(J))/2.0+(XN*((R(J,I)+R(J+1,I))/2.0))**2/(2.0*G*EJ)\r\n      X3=ALG4(X3,X1)\r\n      XM2(J)=XM2(J)*(1.0+X4*(LOSS(J)+LOSS(J+1))/2.0*X2/(X3*(1.0+(LOSS(J)\r\n     1+LOSS(J+1))/2.0*(1.0-X2/X3))))\r\n1090  CONTINUE\r\n1100  DELW(1)=0.0\r\n      DWDV=0.0\r\n      X2=BBLOCK(I)*BDIST(I)\r\n      X3=BBLOCK(I)*(1.0-BDIST(I))*2.0/XL(NSTRMS,I)\r\n      DO 1200 J=1,ITUB\r\n      X1=DL(J)*(R(J+1,I)+R(J,I))*ALG5(HS(J),(S(J,I)+S(J+1,I))/2.0)*(VV(J\r\n     1)+VV(J+1))*(CPPG(J)+CPPG(J+1))*PI/(4.0*SCLFAC**2)\r\n      X1=X1*((LAMI(J)+LAMI(J+1))/2.0-WWBL(I)-X2-X3*(XL(J,I)+XL(J+1,I)))\r\n      DELW(J+1)=DELW(J)+X1\r\n      X4=0.0\r\n      IF(J.GE.IMID)GO TO 1130\r\n      L1=J\r\n1110  X4=X4+DVMDVM(L1)\r\n      IF(L1.GE.IMID-1)GO TO 1120\r\n      L1=L1+1\r\n      GO TO 1110\r\n1120  X4=X4/FLOAT(IMID-J)\r\n      GO TO 1200\r\n1130  L1=IMID+1\r\n1140  X4=X4+DVMDVM(L1)\r\n      IF(L1.GE.J)GO TO 1150\r\n      L1=L1+1\r\n      GO TO 1140\r\n1150  X4=X4/FLOAT(J-IMID+1)\r\n1200  DWDV=DWDV+X1*(1.0-XM2(J))*2.0/((VV(J)+VV(J+1))*(1.0-((XL(J,I)+XL(J\r\n     1+1,I))*0.5-XL(IMID,I))*X4))\r\n      W=DELW(NSTRMS)\r\n      FM2=DWDV/W*VV(IMID)\r\n      DO 1210 J=2,NSTRMS\r\n1210  DELW(J)=DELW(J)/W\r\n      IF(DWDV.LE.0.0)GO TO 1280\r\n      IF(NMACH(I).EQ.1)GO TO 1330\r\n      IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMAX=VV(IMID)\r\n1220  DV=(FLOW(ICASE)-W)/DWDV\r\n      IF(DV.LT.-0.1*VV(IMID))DV=-0.1*VV(IMID)\r\n      IF(DV.GT. 0.1*VV(IMID))DV= 0.1*VV(IMID)\r\n1230  IF(IPASS.EQ.1.OR.(I.NE.1.AND.NWORK(I).LE.4))GO TO 1234\r\n      IF(VV(IMID)+DV.LT.VMIN)GO TO 1232\r\n      DV=(VMIN-VV(IMID))*0.5\r\n1232  IF(VV(IMID)+DV.GT.VMAX)GO TO 1234\r\n      DV=(VMAX-VV(IMID))*0.5\r\n1234  DO 1270 J=K,NSTRMS\r\n      VV(J)=VV(J)+DV\r\n      IF(VV(J).LE.VMMAX(J))GO TO 1238\r\n      IFAIL=1\r\n      VV(J)=VMMAX(J)\r\n1238  IF(VV(J).GE.1.0)GO TO 1270\r\n      IF(IPASS.LE.NFORCE)GO TO 1260\r\n      IF(LNCT.LT.NPAGE)GO TO 1240\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1240  LNCT=LNCT+1\r\n      WRITE(LOG2,1250)IPASS,I,ITER,J,VV(J)\r\n1250  FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,50H  MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT,E13.5)\r\n1260  VV(J)=1.0\r\n      IFAIL=1\r\n1270  CONTINUE\r\n      GO TO 1340\r\n1280  IF(NMACH(I).EQ.0)GO TO 1290\r\n      IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMIN=VV(IMID)\r\n      GO TO 1220\r\n1290  IF(VV(IMID).LT.VMIN.AND.ICONF1.EQ.0)VMIN=VV(IMID)\r\n      DV=-.1*VV(IMID)\r\n1300  IFAIL=1\r\n      IF(IPASS.LE.NFORCE)GO TO 1230\r\n      IF(LNCT.LT.NPAGE)GO TO 1310\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1310  LNCT=LNCT+1\r\n      WRITE(LOG2,1320)IPASS,I,ITER\r\n1320  FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,43H  OTHER CO\r\n     1NTINUITY EQUATION BRANCH REQUIRED)\r\n      GO TO 1230\r\n1330  IF(VV(IMID).GT.VMAX.AND.ICONF1.EQ.0)VMAX=VV(IMID)\r\n      DV=0.1*VV(IMID)\r\n      GO TO 1300\r\n1340  X1=TOLNCE/5.0\r\n      IF(NEVAL(I).GT.0)X1=X1/2.0\r\n      IF(ABS(W/FLOW(ICASE)-1.0).GT.X1)GO TO 1354\r\n      DO 1350 J=K,NSTRMS\r\n      IF(ABS(VV(J)/VVOLD(J)-1.0).GT.X1)GO TO 1354\r\n1350  CONTINUE\r\n      GO TO 1390\r\n1354  IF(ITER.GE.ITMAX)GO TO 1360\r\n      IF(I.EQ.1)GO TO 460\r\n      IF((NLOSS(I).EQ.1.AND.NL2(I).EQ.0).OR.(NWORK(I).GE.5.AND.NLOSS(I).\r\n     1EQ.2))CALL ALG07\r\n      GO TO 460\r\n1360  IF(IPASS.LE.NFORCE)GO TO 1390\r\n      IF(LNCT.LT.NPAGE)GO TO 1370\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1370  LNCT=LNCT+1\r\n      X1=W/FLOW(ICASE)\r\n      X2=VV(K)/VVOLD(K)\r\n      X3=VV(IMID)/VVOLD(IMID)\r\n      X4=VV(NSTRMS)/VVOLD(NSTRMS)\r\n      WRITE(LOG2,1380)IPASS,I,X1,X2,X3,X4\r\n1380  FORMAT(5X,4HPASS,I3,9H  STATION,I3,49H  MOMENTUM AND/OR CONTINUITY\r\n     1 UNCONVERGED W/WSPEC=,F8.5,16H VM/VM(OLD) HUB=,F8.5,5H MID=,F8.5,5\r\n     2H TIP=,F8.5)\r\n1390  IF(IFAIL.NE.0.AND.IFAILO.EQ.0)IFAILO=I\r\n      DO 1400 J=1,NSTRMS\r\n1400  VM(J,I)=VV(J)\r\n      IF(I.NE.1)GO TO 1420\r\n      DO 1410 J=1,NSTRMS\r\n1410  VW(J,1)=VV(J)*TBETA(J,1)\r\n      GO TO 1480\r\n1420  IF(NMIX.NE.1)GO TO 1440\r\n      DO 1430 J=1,NSTRMS\r\n      S(J,I-1)=SKEEP(J)\r\n      H(J,I-1)=HKEEP(J)\r\n1430  VW(J,I-1)=VWKEEP(J)\r\n1440  IF(NWORK(I).GE.5)GO TO 1460\r\n      TBETA(1,I)=0.0\r\n      DO 1450 J=K,NSTRMS\r\n1450  TBETA(J,I)=(VW(J,I)-XN*R(J,I))/VV(J)\r\n      GO TO 1480\r\n1460  DO 1470 J=1,NSTRMS\r\n      VW(J,I)=VV(J)*TBETA(J,I)+XN*R(J,I)\r\n1470  H(J,I)=XI(J)+XN*R(J,I)*VW(J,I)/(G*EJ)\r\n1480  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg09.f",
    "content": "      SUBROUTINE ALG09\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),XX5(21),XX6(21),SOL(21),\r\n     1WPARA(21),WD(21),DIF(21),WS(21),PM1(21),XINC(21),BETA1(21),TALPH1(\r\n     221),ANG(21),HIGHM(21),WT(21),XMR(21)\r\nC\r\n      COMMON /UD3PRT/ IPRTC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      WMAX=0.7\r\n      L1=I+NL1(I)\r\n      XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      IF(IPRINT.EQ.0)GO TO 116\r\n      L2=ABS(FLOAT(NEVAL(I)))\r\n      CALL ALG03(LNCT,7+NSTRMS)\r\n      LNCT=LNCT-3\r\n      IF(NEVAL(I).GT.0.AND.IPRTC.EQ.1) WRITE(LOG2,100) L1,I,L2\r\n      IF(NEVAL(I).LT.0.AND.IPRTC.EQ.1) WRITE(LOG2,110) L1,I,L2\r\n100   FORMAT(2X,/,8X,57HLOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN\r\n     1 STATIONS,I3,4H AND,I3,47H - AS INCORPORATED IN ABOVE RESULTS  BLA\r\n     1DE TYPE,I2,/,8X,116(1H*),/,2X)\r\n110   FORMAT(2X,/,8X,57HLOSS COEFFICIENT DETERMINATION FOR BLADE BETWEEN\r\n     1 STATIONS,I3,4H AND,I3,47H - FOR PURPOSES OF COMPARISON ONLY   BLA\r\n     2DE TYPE,I2,/,8X,116(1H*),/,2X)\r\n116   L2=NDIMEN(I)+1\r\n      GO TO(120,140,160,180),L2\r\n120   DO 130 J=1,NSTRMS\r\n      XX2(J)=R(J,L1)\r\n130   XX6(J)=R(J,I)\r\n      GO TO 200\r\n140   DO 150 J=1,NSTRMS\r\n      XX2(J)=R(J,L1)/R(NSTRMS,L1)\r\n150   XX6(J)=R(J,I)/R(NSTRMS,I)\r\n      GO TO 200\r\n160   DO 170 J=1,NSTRMS\r\n      XX2(J)=XL(J,L1)\r\n170   XX6(J)=XL(J,I)\r\n      GO TO 200\r\n180   DO 190 J=1,NSTRMS\r\n      XX2(J)=XL(J,L1)/XL(NSTRMS,L1)\r\n190   XX6(J)=XL(J,I)/XL(NSTRMS,I)\r\n200   L2=IS2(I)\r\n      CALL ALG01(DATAC(L2),DATA5(L2),NDATA(I),XX6,SOL,X1,NSTRMS,NTERP(I\r\n     1),0)\r\n      Q=1.0\r\n      IF(SPEED(I).LT.0.0)GO TO 208\r\n      IF(SPEED(I).GT.0.0)GO TO 206\r\n      IF(I.LT.3)GO TO 208\r\n      II=I-1\r\n204   IF(SPEED(II).NE.0.0)GO TO 205\r\n      IF(II.EQ.2)GO TO 208\r\n      II=II-1\r\n      GO TO 204\r\n205   IF(SPEED(II).LT.0.0)Q=-1.0\r\n      GO TO 208\r\n206   Q=-1.0\r\n208   DO 210 J=1,NSTRMS\r\n      TALPH1(J)=(VW(J,L1)-XN*R(J,L1))/VM(J,L1)\r\n210   DIF(J)=1.0-VM(J,I)/VM(J,L1)*SQRT((1.0+TBETA(J,I)**2)/(1.0+TALPH1(J\r\n     1)**2))+(VM(J,L1)*TALPH1(J)-VM(J,I)*TBETA(J,I))/(2.0*SOL(J)*VM(J,L1\r\n     2)*SQRT(1.0+TALPH1(J)**2))*Q\r\n      L2=ABS(FLOAT(NEVAL(I)))\r\n      L3=NDIFF(L2)\r\n      CALL ALG01(DIFF(1,L2),FDHUB(1,L2),L3,DIF,XX3,X1,NSTRMS,0,0)\r\n      CALL ALG01(DIFF(1,L2),FDMID(1,L2),L3,DIF,XX4,X1,NSTRMS,0,0)\r\n      CALL ALG01(DIFF(1,L2),FDTIP(1,L2),L3,DIF,XX5,X1,NSTRMS,0,0)\r\n      XX1(1)=0.1\r\n      XX1(2)=0.5\r\n      XX1(3)=0.9\r\n      DO 220 J=1,NSTRMS\r\n      XX1(4)=XX3(J)\r\n      XX1(5)=XX4(J)\r\n      XX1(6)=XX5(J)\r\n      X1=(R(J,I)-R(1,I))/(R(NSTRMS,I)-R(1,I))\r\n220   CALL ALG01(XX1,XX1(4),3,X1,WPARA(J),X1,1,0,0)\r\n      DO 230 J=1,NSTRMS\r\n      XMR(J)=0.0\r\n      HIGHM(J)=0.0\r\n      ANG(J)=0.0\r\n      WS(J)=0.0\r\n      XINC(J)=0.0\r\n      BETA1(J)=0.0\r\n      WD(J)=WPARA(J)*2.0*SOL(J)*SQRT(1.0+TBETA(J,I)**2)\r\n230   WT(J)=WD(J)\r\n      IF(NDEL(I).EQ.0)GO TO 384\r\n      L2=IS3(I)\r\n      CALL ALG01(DELC(L2),DELTA(L2),NDEL(I),XX2,PM1,X1,NSTRMS,1,0)\r\n      IF(NDATA(L1).EQ.0)GO TO 340\r\n      CALL ALG01(R(1,L1),X(1,L1),NSTRMS,R(1,L1),X1,XX1,NSTRMS,0,1)\r\n      L2=NDIMEN(L1)+1\r\n      GO TO(240,260,280,300),L2\r\n240   DO 250 J=1,NSTRMS\r\n250   XX2(J)=R(J,L1)\r\n      GO TO 320\r\n260   DO 270 J=1,NSTRMS\r\n270   XX2(J)=R(J,L1)/R(J,NSTRMS)\r\n      GO TO 320\r\n280   DO 290 J=1,NSTRMS\r\n290   XX2(J)=XL(J,L1)\r\n      GO TO 320\r\n300   DO 310 J=1,NSTRMS\r\n310   XX2(J)=XL(J,L1)/XL(NSTRMS,L1)\r\n320   L2=IS2(L1)\r\n      L3=NDATA(L1)\r\n      CALL ALG01(DATAC(L2),DATA1(L2),L3,XX2,XX3,X1,NSTRMS,NTERP(L1),0)\r\n      CALL ALG01(DATAC(L2),DATA3(L2),L3,XX2,XX4,X1,NSTRMS,NTERP(L1),0)\r\n      DO 330 J=1,NSTRMS\r\n      X1=(ATAN((R(J,L1+1)-R(J,L1))/(X(J,L1+1)-X(J,L1)))+ATAN((R(J,L1)-R(\r\n     1J,L1-1))/(X(J,L1)-X(J,L1-1))))/2.0\r\n      BETA1(J)=ATAN((TAN(XX3(J)/C1)*(1.0-XX1(J)*TAN(X1))-TAN(X1)*TAN(XX4\r\n     1(J)/C1)*SQRT(1.0+XX1(J)**2))*COS(X1))\r\n330   XINC(J)=(ATAN(TALPH1(J))-BETA1(J))*Q\r\n340   DO 380 J=1,NSTRMS\r\n      ANG(J)=XINC(J)+PM1(J)/C1\r\n      X1=H(J,L1)-(VM(J,L1)**2+VW(J,L1)**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      X4=ALG8(X1,S(J,L1))\r\n      X2=(X4+1.0)/(X4-1.0)\r\n      X3=SQRT(X2)\r\n      X5=ALG9(X1,S(J,L1),VM(J,L1)**2*(1.0+TALPH1(J)**2))\r\n      XMR(J)=SQRT(X5)\r\n      X6=X5\r\n      IF(X6.LT.1.0)X6=1.0\r\n      X7=X3*ATAN(SQRT(X6-1.0)/X3)-ATAN(SQRT(X6-1.0))+ANG(J)\r\n      X10=0.0\r\n      IF(X7.LE.0.0)GO TO 376\r\n      X8=0.4*PI*(X3-1.0)\r\n      IF(X7.GT.X8)GO TO 374\r\n      X9 = 1.0\r\n      K=1\r\n350   X10=X9-(X2+X9*X9)*(1.0+X9*X9)/(X9*X9*(X2-1.0))*(X3*ATAN(X9/X3)-ATA\r\n     1N(X9)-X7)\r\n      IF(ABS(X10-X9).LE.0.00001)GO TO 376\r\n      IF(K.GT.20)GO TO 360\r\n      K=K+1\r\n      X9=X10\r\n      GO TO 350\r\n360   IF(IPRINT.EQ.0)GO TO 374\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,370)IPASS,I,J\r\n370   FORMAT(5X,4HPASS,I3,9H  STATION,I3,12H  STREAMLINE,I3,58H  PRANDTL\r\n     1-MEYER FUNCTION NOT CONVERGED - USE INLET MACH NO)\r\n374   X10=SQRT(X6-1.0)\r\n376   HIGHM(J)=SQRT(1.0+X10*X10)\r\n      X1=(HIGHM(J)+SQRT(X6))/2.0\r\n      IF(X5.LT.1.0)X1=X1*SQRT(X5)\r\n      IF(X1.LE.1.0)GO TO 380\r\n      X1=X1*X1\r\n      WS(J)=(((X4+1.0)*X1/((X4-1.0)*X1+2.0))**(X4/(X4-1.0))*((X4+1.0)/(2\r\n     1.0*X4*X1-X4+1.0))**(1.0/(X4-1.0))-1.0)/((1.0+(X4-1.0)/2.0*X5)**(X4\r\n     2/(1.0-X4))-1.0)\r\n380   WT(J)=WD(J)+WS(J)\r\n384   IF(IPRINT.EQ.1)GO TO 400\r\n      L2=IS2(I)\r\n      L3=NTERP(I)\r\n      L4=NDATA(I)\r\n      IF(NWORK(I).GE.5)\r\n     1CALL ALG01(DATAC(L2),DATA6(L2),L4,XX6,XX5,X1,NSTRMS,L3,0)\r\n      CALL ALG01(DATAC(L2),DATA1(L2),L4,XX6,XX1,X1,NSTRMS,L3,0)\r\n      CALL ALG01(DATAC(L2),DATA4(L2),L4,XX6,XX4,X1,NSTRMS,L3,0)\r\n      CALL ALG01(DATAC(L2),DATA3(L2),L4,XX6,XX3,X1,NSTRMS,L3,0)\r\n      NDATA(I)=NSTRMS\r\n      L2=L2-1\r\n      DO 390 J=1,NSTRMS\r\n      K=L2+J\r\n      DATAC(K)=XX6(J)\r\n      IF(NWORK(I).GE.5)\r\n     1DATA6(K)=XX5(J)\r\n      DATA1(K)=XX1(J)\r\n      IF(WT(J).GT.WMAX)WT(J)=WMAX\r\n      DATA2(K)=WT(J)\r\n      DATA3(K)=XX3(J)\r\n      DATA4(K)=XX4(J)\r\n390   DATA5(K)=SOL(J)\r\n      GO TO 450\r\n400   IF(LNCT+3.LE.NPAGE)GO TO 420\r\n      IF(IPRTC.NE.0) WRITE(LOG2,410)\r\n410   FORMAT(1H1)\r\n      LNCT=4+NSTRMS\r\n  420 IF(IPRTC.EQ.1) WRITE(LOG2,430)\r\n430   FORMAT(5X,   'STREAM  INLET   OUTLET  CASCADE   DIFF       LOSS\r\n     1DIFFUSION  BLADE  INCIDENCE  EXPANSION INLET  EXPANDED SHOCK   TOT\r\n     2AL',/,5X,  '-LINE   RADIUS  RADIUS  SOLIDITY  FACTOR  PARAMETER\r\n     3LOSS     ANGLE    ANGLE      ANGLE    M.NO  MACH NO   LOSS   LOSS\r\n     4',/,2X)\r\n      LNCT=LNCT+3\r\n      DO 440 J=1,NSTRMS\r\n      X1=BETA1(J)*C1*Q\r\n      X2=XINC(J)*C1\r\n      X3=ANG(J)*C1\r\n  440 IF(IPRTC.EQ.1)\r\n     *WRITE(LOG2,460)J,R(J,L1),R(J,I),SOL(J),DIF(J),WPARA(J),WD(J),X1,X2\r\n     1,X3,XMR(J),HIGHM(J),WS(J),WT(J)\r\n450   CONTINUE\r\n460   FORMAT(I9,F10.3,F8.3,2F9.4,F10.5,F9.5,2F9.3,F10.3,F10.4,F8.4,F8.5,\r\n     1F9.5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg1.f",
    "content": "      SUBROUTINE ALG1 (LNCT)\r\nC\r\n      DIMENSION       RDATA(4)\r\n      COMMON /GAS   / G,EJ,R,CP,GAMMA,ROJCP\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /ALGINO/ DUM,NALGDB\r\n      COMMON /UD3PRT/ IPRTC\r\nC\r\n      LOG1 = NALGDB\r\n      LOG2 = NOUT\r\n      CALL FREAD (LOG1,RDATA,4,1)\r\n      CP   = RDATA(1)\r\n      R    = RDATA(2)\r\n      G    = RDATA(3)\r\n      EJ   = RDATA(4)\r\n      IF (CP .EQ. 0.0) CP = 0.24\r\n      IF (R  .EQ. 0.0) R  = 53.32\r\n      IF (G  .EQ. 0.0) G  = 32.174\r\n      IF (EJ .EQ. 0.0) EJ = 778.16\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,10) CP,R,G,EJ\r\n  10  FORMAT (/10X,'SPECIFIC HEAT AT CONSTANT PRESSURE',5X,1H=,F8.5,\r\n     1        /10X,'GAS CONSTANT',27X,1H=,F8.4,\r\n     2        /10X,'GRAVITATIONAL CONSTANT',17X,1H=,F8.4,\r\n     3        /10X,'JOULES EQUIVALENT',22X,1H=,F8.3)\r\n      LNCT  = LNCT + 5\r\n      ROJCP = R/(EJ*CP)\r\n      GAMMA = 1.0/(1.0-ROJCP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg10.f",
    "content": "      SUBROUTINE ALG10\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      IF(I.GT.1)GO TO 130\r\n      V5=VISK**0.2\r\n      VINH=0.0\r\n      VINT=0.0\r\n      IF(WWBL(1).GT.0.0)GO TO 100\r\n      C1H=0.0\r\n      C1T=0.0\r\n      DELH(1)=0.0\r\n      DELT(1)=0.0\r\n      GO TO 150\r\n100   IF(ISTAG.GT.0)GO TO 110\r\n      X1=WWBL(1)*XL(NSTRMS,1)*(CPPG(1)+CPPG(NSTRMS))/4.0\r\n      DELH(1)=X1\r\n      DELT(1)=X1\r\n      X1=X1/(SCLFAC*SHAPE)\r\n      C1H=(X1*VM(1,1)**3.4/V5)**1.25\r\n      C1T=(X1*VM(NSTRMS,1)**3.4/V5)**1.25\r\n      GO TO 150\r\n110   DELH(1)=0.0\r\n      C1H=0.0\r\n      IF(ABS(PHI(NSTRMS)).GT.PI/2.0-0.00015.AND.ABS(PHI(NSTRMS)).LT.PI/2\r\n     1.0+0.00015)GO TO 120\r\n      X1=(R(NSTRMS,1)-SQRT(R(NSTRMS,1)**2-COS(PHI(NSTRMS))*CPPG(NSTRMS)*\r\n     1WWBL(1)*(R(NSTRMS,1)+R(1,1))*XL(NSTRMS,I)))/COS(PHI(NSTRMS))\r\n      DELT(1)=X1\r\n      C1T=(X1/(SHAPE*SCLFAC*V5)*VM(NSTRMS,1)**3.4)**1.25\r\n      GO TO 150\r\n120   DELT(1)=WWBL(1)*XL(NSTRMS,1)/CPPG(NSTRMS)\r\n      C1T=(DELT(1)*VM(NSTRMS,1)**3.4/(V5*SCLFAC*SHAPE))**1.25\r\n      GO TO 150\r\n130   VINT=VINT+SQRT((X(NSTRMS,I)-X(NSTRMS,I-1))**2+(R(NSTRMS,I)-R(NSTRM\r\n     1S,I-1))**2)*((VM(NSTRMS,I)+VM(NSTRMS,I-1))/2.0)**4/SCLFAC\r\n      DELT(I)=V5*(C1T+0.016*VINT)**0.8/VM(NSTRMS,I)**3.4*SCLFAC*SHAPE\r\n      DELH(I)=0.0\r\n      IF(I.LE.ISTAG)GO TO 140\r\n      VINH=VINH+SQRT((X(1,I)-X(1,I-1))**2+(R(1,I)-R(1,I-1))**2)*((VM(1,I\r\n     1)+VM(1,I-1))/2.0)**4/SCLFAC\r\n      DELH(I)=V5*(C1H+0.016*VINH)**0.8/VM(1,I)**3.4*SCLFAC*SHAPE\r\n140   WWBL(I)=0.5*WWBL(I)+0.5*(((2.0*R(NSTRMS,I)-DELT(I)*COS(PHI(NSTRMS)\r\n     1))*DELT(I)/CPPG(NSTRMS)+(2.0*R(1,I)+DELH(I)*COS(PHI(1)))*DELH(I)/C\r\n     2PPG(1))/((R(NSTRMS,I)+R(1,I))*XL(NSTRMS,I)))\r\n      IF(WWBL(I).GT.0.3)WWBL(I)=0.3\r\n      IF(WWBL(I).LT.0.0)WWBL(I)=0.3\r\n150   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg11.f",
    "content": "      SUBROUTINE ALG11\r\nC\r\n      REAL            LOSS,LAMI,LAMIP1,LAMIM1\r\n      DIMENSION       XM(21),PPG(21),V(21),PT(21),PS(21),WT(21),PN(21),\r\n     1                P1(21),DELTP(21,30),TS(21),SOLID(21),DELTB(21),\r\n     2                TR(21,30),RMDV(21,6),IDATA(6),RDATA(6),NAME1(2),\r\n     3                NAME2(2)\r\n      COMMON /SYSTEM/ KSYSTM(90),LPUNCH\r\n      COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM\r\n      COMMON /ALGINO/ ISCR\r\n      COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21)\r\n      COMMON /UDSIGN/ NSIGN\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\n      EQUIVALENCE    (IDATA(1),RDATA(1))\r\n      DATA    NAME1, NAME2 /4HPLOA,4HD2  ,4HTEMP,4H    /\r\nC\r\n      OPR   = 0.0\r\n      OEFF  = 1.0\r\n      PFAC  = 550.0\r\n      ILAST = NSTNS\r\nC\r\nC     LOCATE COMPUTING STATION NUMBER AT THE BLADE LEADING EDGE AND\r\nC     AT THE BLADE TRAILING EDGE.\r\nC\r\n      LEDGEB = 0\r\n      ITRLEB = 0\r\n      DO 10 IBLE = 1,NSTNS\r\n      NOUT3S = NOUT3(IBLE)/10\r\n      IF (NOUT3(IBLE).EQ.1 .OR. NOUT3S.EQ.1) LEDGEB = IBLE\r\n      IF (NOUT3(IBLE).EQ.2 .OR. NOUT3S.EQ.2) ITRLEB = IBLE\r\n   10 CONTINUE\r\n      IF (IFAILO .NE. 0) ILAST = IFAILO\r\n      DO 700 I = 1,ILAST\r\n      CALL ALG03 (LNCT,7+NSTRMS)\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,100) I\r\n  100 FORMAT (//10X,'STATION',I3,'  FLOW-FIELD DESCRIPTION', /10X,\r\n     1        34(1H*), //,'  STREAM      -----MESH-POINT COORDS------',\r\n     2        3X,16(1H-),'V E L O C I T I E S,16(1H-)    RADIUS OF  ',\r\n     3        'STREAMLINE   STATION',/,'  -LINE       RADIUS    X-COORD'\r\n     4,       '    L-COORD   MERIDIONAL TANGENTIAL   AXIAL',6X,'RADIAL',\r\n     5        4X,'TOTAL    CURVATURE SLOPE ANGLE LEAN ANGLE',/)\r\n      CALL ALG01 (R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1)\r\n      IF (I.NE.1 .AND. I.NE.NSTNS) GO TO 130\r\n      L1 = 1\r\n      L2 = 2\r\n      IF (I .EQ. 1) GO TO 110\r\n      L2 = NSTNS\r\n      L1 = L2 - 1\r\n  110 DO 120 J = 1,NSTRMS\r\n      CR(J)  = 0.0\r\n  120 PHI(J) = ATAN2(R(J,L2)-R(J,L1),X(J,L2)-X(J,L1))\r\n      GO TO 150\r\n  130 DO 140 J = 1,NSTRMS\r\n      X1 = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2)\r\n      X2 = SQRT((R(J,I)-R(J,I-1))**2+(X(J,I)-X(J,I-1))**2)\r\n      X3 = ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I))\r\n      X4 = ATAN2(R(J,I)-R(J,I-1),X(J,I)-X(J,I-1))\r\n      CR(J) = (X3-X4)/(X1+X2)*2.0\r\n      IF (CR(J) .NE. 0.0) CR(J) = 1.0/CR(J)\r\n  140 PHI(J) = (X3+X4)/2.0\r\n  150 DO 160 J = 1,NSTRMS\r\n      VA = VM(J,I)*COS(PHI(J))\r\n      VR = VM(J,I)*SIN(PHI(J))\r\n      FI = PHI(J)*C1\r\n      GA = ATAN(GAMA(J))*C1\r\n      PPG(J) = FI + GA\r\n      V(J) = SQRT(VM(J,I)**2+VW(J,I)**2)\r\nC\r\nC     STORE RADIUS AT BLADE LEADING AND TRAILING EDGES, ALL STREAMLINES\r\nC\r\n      IF (ICASE.EQ.1 .AND. I.EQ.LEDGEB) RMDV(J,5) = R(J,I)\r\n      IF (ICASE.EQ.1 .AND. I.EQ.ITRLEB) RMDV(J,6) = R(J,I)\r\n  160 IF (IPRTC .EQ. 1) WRITE (LOG2,170) J,R(J,I),X(J,I),XL(J,I),\r\n     1    VM(J,I),VW(J,I),VA,VR,V(J),CR(J),FI,GA\r\n  170 FORMAT (I6,F14.4,2F11.4,5F11.2,1X,F10.2,2F11.3)\r\n      CALL ALG03 (LNCT,NSTRMS+4)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,180)\r\n  180 FORMAT (/8H  STREAM,7X,4HMACH,6X,4(1H-),9HPRESSURES,4(1H-),5X,\r\n     1       17H---TEMPERATURES--,4X,8HSPECIFIC,4X,17H---ENTHALPIES----,\r\n     2       4X,7HENTROPY,6X,4HFLOW,3X,11H(PHI+GAMMA), /,7H  -LINE,7X,\r\n     3       6HNUMBER,5X,5HTOTAL,6X,6HSTATIC,5X,5HTOTAL,6X,6HSTATIC,5X,\r\n     4       6HWEIGHT,5X,5HTOTAL,6X,6HSTATIC,16X,5HANGLE,/)\r\n      DO 190 J = 1,NSTRMS\r\n      DELTB(J) = 0.0\r\n      HS = H(J,I) - V(J)**2/(2.0*G*EJ)\r\n      IF (HS .LT. HMIN) HS = HMIN\r\n      XM(J) = SQRT(ALG9(HS,S(J,I),V(J)**2))\r\n      PT(J) = ALG4(H(J,I),S(J,I))\r\n      PTINS = PT(J)/SCLFAC**2\r\n      PS(J) = ALG4(HS,S(J,I))\r\n      PSINS = PS(J)/SCLFAC**2\r\n      TT    = ALG7(H(J,I),S(J,I))\r\n      TS(J) = ALG7(HS,S(J,I))\r\n      WT(J) = ALG5(HS,S(J,I))\r\n      ALPHA = 0.0\r\n      IF (I.NE.ISTAG .OR. J.NE.1) ALPHA = C1*ATAN(VW(J,I)/VM(J,I))\r\nC\r\nC     STORE DENSITY AT BLADE LEADING EDGE FOR ALL STREAMLINES\r\nC\r\n      IF (ICASE.EQ.1 .AND. I.EQ.LEDGEB) RMDV(J,2) = WT(J)\r\n  190 IF (IPRTC .EQ. 1) WRITE (LOG2,200) J,XM(J),PTINS,PSINS,TT,TS(J),\r\n     1    WT(J),H(J,I),HS,S(J,I),ALPHA,PPG(J)\r\n  200 FORMAT (I6,F14.4,2F11.4,2F11.3,F12.6,F10.3,F11.3,F12.6,F10.3,\r\n     1        F11.3)\r\n      IF (I .NE. 1) GO TO 220\r\n      P1BAR = 0.0\r\n      H1BAR = 0.0\r\n      P1(1) = PT(1)\r\n      PN(1) = PT(1)\r\n      DO 210 J = 1,ITUB\r\n      P1(J+1) = PT(J+1)\r\n      PN(J+1) = PT(J+1)\r\n      X1    = (DELF(J+1)-DELF(J))/2.0\r\n      P1BAR = P1BAR + X1*(PT(J)+PT(J+1))\r\n  210 H1BAR = H1BAR + X1*(H(J,1)+H(J+1,1))\r\n      HBAR  = H1BAR\r\n      S1BAR = ALG3(P1BAR,H1BAR)\r\n      PNBAR = P1BAR\r\n      HNBAR = H1BAR\r\n      SNBAR = S1BAR\r\n      L1KEEP= 1\r\n      GO TO 700\r\n  220 IFLE  = 0\r\n      IFTE  = 0\r\n      IF (NWORK(I) .EQ. 0) GO TO 230\r\n      IFTE  = 1\r\n      IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0 .OR. SPEED(I).EQ.SPEED(I+1))\r\n     1    GO TO 240\r\n      IFLE  = 1\r\n      GO TO 240\r\n  230 IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0) GO TO 240\r\n      IFLE  = 1\r\n  240 IF (IFTE .EQ. 0) GO TO 500\r\n      CALL ALG03 (LNCT,NSTRMS+8)\r\n      XN    = SPEED(I)*SPDFAC(ICASE)\r\n      XBLADE= 10.0\r\n      IF (NBLADE(I) .NE. 0) XBLADE = ABS(FLOAT(NBLADE(I)))\r\n      L1    = XBLADE\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,250) I,XN,L1\r\n  250 FORMAT (/10X,'STATION',I3,' IS WITHIN OR AT THE TRAILING EDGE OF',\r\n     1        ' A BLADE ROTATING AT',F8.1,' RPM  NUMBER OF BLADES IN ',\r\n     2        'ROW =',I3, /10X,109(1H*), //,'  STREAM      BLADE     ',\r\n     2        'RELATIVE    RELATIVE   RELATIVE  DEVIATION    BLADE    ',\r\n     3        '  LEAN    PRESS DIFF    LOSS     DIFFUSION   DELTA P',\r\n     5        /,'  -LINE',7X,'SPEED     VELOCITY    MACH NO.  FLOW',\r\n     6        ' ANGLE   ANGLE      ANGLE      ANGLE   ACROSS BLADE  ',\r\n     7        'COEFF      FACTOR     ON Q',/)\r\n      Q = 1.0\r\n      IF (SPEED(I) .LT. 0.0) GO TO 290\r\n      IF (SPEED(I) .GT. 0.0) GO TO 280\r\n      IF (I .LT. 3) GO TO 290\r\n      II = I - 1\r\n  260 IF (SPEED(II) .NE. 0.0) GO TO 270\r\n      IF (II .EQ. 2) GO TO 290\r\n      II = II - 1\r\n      GO TO 260\r\n  270 IF (SPEED(II) .LT. 0.0) Q = -1.0\r\n      GO TO 290\r\n  280 Q  = -1.0\r\n  290 L1 = NDIMEN(I) + 1\r\n      GO TO (300,320,340,360), L1\r\n  300 DO 310 J = 1,NSTRMS\r\n  310 TANEPS(J) = R(J,I)\r\n      GO TO 380\r\n  320 DO 330 J = 1,NSTRMS\r\n  330 TANEPS(J) = R(J,I)/R(NSTRMS,I)\r\n      GO TO 380\r\n  340 DO 350 J = 1,NSTRMS\r\n  350 TANEPS(J) = XL(J,I)\r\n      GO TO 380\r\n  360 DO 370 J = 1,NSTRMS\r\n  370 TANEPS(J) = XL(J,I)/XL(NSTRMS,I)\r\n  380 L1 = IS2(I)\r\n      IF (NWORK(I).EQ.5 .OR. NWORK(I).EQ.6) CALL ALG01 (DATAC(L1),\r\n     1    DATA6(L1),NDATA(I),TANEPS,DELTB,X1,NSTRMS,NTERP(I),0)\r\n      CALL ALG01 (DATAC(L1),DATA5(L1),NDATA(I),TANEPS,SOLID,X1,NSTRMS,\r\n     1            NTERP(I),0)\r\n      CALL ALG01 (DATAC(L1),DATA3(L1),NDATA(I),TANEPS,TANEPS,X1,NSTRMS,\r\n     1            NTERP(I),0)\r\n      L1 = I + NL1(I)\r\n      L2 = L1\r\n      IF (NLOSS(I).EQ.1 .OR. NLOSS(I).EQ.4 .OR. NWORK(I).EQ.7)\r\n     1    L2 = I + NL2(I)\r\n      XN = XN*PI/(30.0*SCLFAC)\r\n      DO 430 J = 1,NSTRMS\r\n      U  = XN*R(J,I)\r\n      VR = SQRT(VM(J,I)**2+(VW(J,I)-U)**2)\r\n      XMR  = XM(J)*VR/V(J)\r\n      BETA = ATAN(TBETA(J,I))*C1\r\n      BBETA= 0.0\r\n      IF (NWORK(I).EQ.5 .OR. NWORK(I).EQ.6) BBETA = BETA - DELTB(J)\r\n      DELTB(J) = DELTB(J)*Q\r\n      DELP = 0.0\r\n      IF (I.EQ.NSTNS .OR. NWORK(I+1).EQ.0 .OR. SPEED(I).NE.SPEED(I+1))\r\n     1    GO TO 390\r\n      X1 = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2)\r\n      X2 = SQRT((R(J,I)-R(J,I-1))**2+(X(J,I)-X(J,I-1))**2)\r\n      X3 = XBLADE\r\n      DELP = PI*R(J,I)*WT(J)/(SCLFAC**2*X3*G)*(TBETA(J,I)/\r\n     1       (1.0+TBETA(J,I)**2)*TS(J)*G*EJ*((S(J,I+1)-S(J,I))/X1 +\r\n     2       (S(J,I)-S(J,I-1))/X2)+VM(J,I)/R(J,I)*((R(J,I+1)*VW(J,I+1) -\r\n     3       R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)-R(J,I-1)*VW(J,I-1))/X2))\r\n      DELTP(J,I) = DELP\r\n  390 HRI  = H(J,I) - (V(J)**2-VR**2)/(2.0*G*EJ)\r\n      PRD  = ALG4(HRI,S(J,L1))\r\n      PR   = ALG4(HRI,S(J,I))\r\n      TR(J,I) = ALG7(HRI,S(J,I))\r\n      PRL2 = PR\r\n      PSL2 = PS(J)*SCLFAC**2\r\n      IF (L2 .EQ. I) GO TO 400\r\n      PRL2 = H(J,L2) - (VW(J,L2)**2 - (VW(J,L2) - XN*R(J,L2))**2)/\r\n     1       (2.0*G*EJ)\r\n      PRL2 = ALG4(PRL2,S(J,L2))\r\n      PSL2 = H(J,L2) - (VW(J,L2)**2+VM(J,L2)**2)/(2.0*G*EJ)\r\n      PSL2 = ALG4(PSL2,S(J,L2))\r\n  400 COEF = (PRD-PR)/(PRL2-PSL2)\r\n      DIF  = 0.0\r\n      IF (SOLID(J) .EQ. 0.0) GO TO 410\r\n      X2   = VW(J,L1) - XN*R(J,L1)\r\n      X1   = SQRT(VM(J,L1)**2+X2**2)\r\n      X3   = VW(J,I) - U\r\n      DIF  = 1.0 - VR/X1 + (X2-X3)/(2.0*X1*SOLID(J))*Q\r\n  410 PRL1 = PRL2\r\n      PSL1 = PSL2\r\n      IF (L2 .EQ. L1) GO TO 420\r\n      PSL1 = H(J,L1) - (VW(J,L1)**2 + VM(J,L1)**2)/(2.0*G*EJ)\r\n      PRL1 = PSL1 + (VM(J,L1)**2 + (VW(J,L1)-XN*R(J,L1))**2)/(2.0*G*EJ)\r\n      PSL1 = ALG4(PSL1,S(J,L1))\r\n      PRL1 = ALG4(PRL1,S(J,L1))\r\n  420 DPQ  = (PS(J)-PSL1)/(PRL1-PSL1)\r\n  430 IF (IPRTC .EQ. 1) WRITE (LOG2,434) J,U,VR,XMR,BETA,DELTB(J),BBETA,\r\n     1    TANEPS(J),DELP,COEF,DIF,DPQ\r\n  434 FORMAT (I6,F14.2,F11.2,F11.4,4F11.3,F11.4,F11.5,F10.4,F11.4)\r\n      CALL ALG03 (LNCT,NSTRMS+5)\r\n      PBAR = 0.0\r\n      HBAR = 0.0\r\n      DO 440 J = 1,ITUB\r\n      X1   = (DELF(J+1)-DELF(J))/2.0\r\n      PBAR = PBAR + X1*(PT(J)+PT(J+1))\r\n  440 HBAR = HBAR + X1*(H(J,I)+H(J+1,I))\r\n      RBAR1= PBAR/P1BAR\r\n      DH1  = (HBAR-H1BAR)/H1BAR\r\n      EFF1 = 0.0\r\n      IF (HBAR .NE. H1BAR) EFF1 = (ALG2(S1BAR,PBAR)-H1BAR)/(HBAR-H1BAR)\r\n      OPR  = RBAR1\r\n      IF (EFF1 .NE. 0.0) OEFF = EFF1\r\n      IF (L1 .EQ. L1KEEP) GO TO 460\r\n      L1KEEP= L1\r\n      PNBAR = 0.0\r\n      HNBAR = 0.0\r\n      DO 444 J = 1,NSTRMS\r\n  444 PN(J) = ALG4(H(J,L1),S(J,L1))\r\n      DO 450 J = 1,ITUB\r\n      X1    = (DELF(J+1)-DELF(J))/2.0\r\n      PNBAR = PNBAR + X1*(PN(J)+PN(J+1))\r\n  450 HNBAR = HNBAR + X1*(H(J,L1)+H(J+1,L1))\r\n      SNBAR = ALG3(PNBAR,HNBAR)\r\n  460 EFFN  = 0.0\r\n      IF (HNBAR .NE. HBAR) EFFN = (ALG2(SNBAR,PBAR)-HNBAR)/(HBAR-HNBAR)\r\n      RBARN = PBAR/PNBAR\r\n      DHN   = (HBAR-HNBAR)/HNBAR\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,470) I,L1,I,I,L1,I,RBAR1,RBARN,EFF1,\r\n     1    EFFN,DH1,DHN\r\n  470 FORMAT (/,'  STREAM',7X,'INLET THROUGH STATION',I3,7X,'STATION',\r\n     1       I3,' THROUGH STATION',I3,5X,'MEAN VALUES',6X,\r\n     2       'INLET TO STA.',I2,'   STA.',I2,' TO STA.',I2, /,\r\n     3       '  -LINE',6X,'PRESSURE  ISENTROPIC  DELTA H    PRESSURE  ',\r\n     4       'ISENTROPIC  DELTA H     PRESSURE RATIO',F14.4,F19.4, /15X,\r\n     5       'RATIO   EFFICIENCY  ON H1        RATIO   EFFICIENCY  ON ',\r\n     6       'H1       ISEN EFFY',2F19.4, /80X,'DELTA H ON H1',F15.4,\r\n     7       F19.4)\r\n      DO 480 J = 1,NSTRMS\r\n      RBAR1 = PT(J)/P1(J)\r\n      EFF1  = 0.0\r\n      IF (H(J,I) .NE. H(J,1)) EFF1 = (ALG2(S(J,1),PT(J))-H(J,1))/\r\n     1                               (H(J,I)-H(J,1))\r\n      DH1   = (H(J,I)-H(J,1))/H(J,1)\r\n      RBARN = PT(J)/PN(J)\r\n      EFFN  = 0.0\r\n      IF (H(J,I) .NE. H(J,L1)) EFFN = (ALG2(S(J,L1),PT(J))-H(J,L1))/\r\n     1                                (H(J,I)-H(J,L1))\r\n      DHN = (H(J,I)-H(J,L1))/H(J,L1)\r\n  480 IF (IPRTC .EQ. 1) WRITE (LOG2,490) J,RBAR1,EFF1,DH1,RBARN,EFFN,DHN\r\n  490 FORMAT (I6,F14.4,F10.4,F11.4,F12.4,F10.4,F11.4)\r\n  500 IF (IFLE .EQ. 0) GO TO 700\r\n      CALL ALG03 (LNCT,NSTRMS+8)\r\n      XN = SPEED(I+1)*SPDFAC(ICASE)\r\n      IP = I + 1\r\n      XBLADE = 10.0\r\n      IF (NBLADE(IP) .NE. 0) XBLADE = ABS(FLOAT(NBLADE(IP)))\r\n      L1 = XBLADE\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,510) I,XN,L1\r\n  510 FORMAT (/10X,'STATION',I3,' IS AT THE LEADING EDGE OF A BLADE ',\r\n     1        'ROATING AT',F9.1,' RPM  NUMBER OF BLADES IN ROW =',I3,\r\n     2        /10X,99(1H*), //,'  STREAM      BLADE     RELATIVE   ',\r\n     3        'RELATIVE   RELATIVE  INCIDENCE    BLADE      LEAN    ',\r\n     4        'PRESS DIFF', /,'  -LINE       SPEED     VELOCITY   MACH',\r\n     5        ' NO.  FLOW ANGLE   ANGLE      ANGLE      ANGLE   ACROSS',\r\n     6        ' BLADE',/)\r\n      XN = XN*PI/(30.0*SCLFAC)\r\n      Q  = 1.0\r\n      IF (SPEED(IP) .LT. 0.0) GO TO 550\r\n      IF (SPEED(IP) .GT. 0.0) GO TO 540\r\n      IF (IP .LT. 3) GO TO 550\r\n      II = IP - 1\r\n  520 IF (SPEED(II) .NE. 0.0) GO TO 530\r\n      IF (II .EQ. 2) GO TO 550\r\n      II = II - 1\r\n      GO TO 520\r\n  530 IF (SPEED(II) .LT. 0.0) Q = -1.0\r\n      GO TO 550\r\n  540 Q = -1.0\r\n  550 DO 560 J = 1,NSTRMS\r\n      CR(J) = 0.0\r\n  560 TANEPS(J) = 0.0\r\n      IF (NWORK(I).NE.0 .OR. NDATA(I).EQ.0) GO TO 660\r\n      L1 = NDIMEN(I) + 1\r\n      GO TO (570,590,610,630), L1\r\n  570 DO 580 J = 1,NSTRMS\r\n  580 TANEPS(J) = R(J,I)\r\n      GO TO 650\r\n  590 DO 600 J = 1,NSTRMS\r\n  600 TANEPS(J) = R(J,I)/R(NSTRMS,I)\r\n      GO TO 650\r\n  610 DO 620 J = 1,NSTRMS\r\n  620 TANEPS(J) = XL(J,I)\r\n      GO TO 650\r\n  630 DO 640 J = 1,NSTRMS\r\n  640 TANEPS(J) = XL(J,I)/XL(NSTRMS,I)\r\n  650 L1 = IS2(I)\r\n      CALL ALG01 (DATAC(L1),DATA1(L1),NDATA(I),TANEPS,CR,X1,NSTRMS,\r\n     1            NTERP(I),0)\r\n      CALL ALG01 (DATAC(L1),DATA3(L1),NDATA(I),TANEPS,TANEPS,X1,NSTRMS,\r\n     1            NTERP(I),0)\r\n  660 BBETA = 0.0\r\n      DO 680 J = 1,NSTRMS\r\n      U   = XN*R(J,I)\r\n      VR  = SQRT(VM(J,I)**2 + (VW(J,I)-U)**2)\r\n      XMR = XM(J)*VR/V(J)\r\n      TR(J,I) = ALG7(H(J,I)-(V(J)**2-VR**2)/(2.0*G*EJ),S(J,I))\r\n      BETA = ATAN((VW(J,I)-U)/VM(J,I))*C1\r\nC\r\nC     STORE REL. MACH, REL. VEL AND REL. FLOW ANGLE FOR ALL STREAMLINES\r\nC     AT THE BLADE LEADING EDGE\r\nC\r\n      IF (ICASE.NE.1 .OR. I.NE.LEDGEB) GO TO 675\r\n      RMDV(J,1) = XMR\r\n      RMDV(J,3) = VR\r\n      RMDV(J,4) = BETA\r\n  675 CONTINUE\r\n      DELTB(J) = 0.0\r\n      IF (NWORK(I).NE.0 .OR. NDATA(I).EQ.0) GO TO 670\r\n      BBETA = ATAN((TAN(CR(J)/C1)*(1.0-GAMA(J)*TAN(PHI(J))) -\r\n     1        TAN(PHI(J))*TAN(TANEPS(J)/C1)*SQRT(1.0+GAMA(J)**2))*\r\n     2        COS(PHI(J)))*C1\r\n      DELTB(J) = (BETA-BBETA)*Q\r\n  670 X1   = SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2)\r\n      DELP = PI*R(J,I)*2.0*WT(J)/(SCLFAC**2*XBLADE*G)*(SIN(BETA/C1)*\r\n     1       COS(BETA/C1)*G*EJ*TS(J)*(S(J,I+1)-S(J,I))/X1+VM(J,I)/\r\n     2       (R(J,I)*X1)*(R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I)))\r\n      DELTP(J,I) = DELP\r\n  680 IF (IPRTC .EQ. 1) WRITE (LOG2,690) J,U,VR,XMR,BETA,DELTB(J),BBETA,\r\n     1    TANEPS(J),DELP\r\n  690 FORMAT (I6,F14.2,F11.2,F11.4,4F11.3,F11.4)\r\n  700 CONTINUE\r\n      IF (NBL .EQ. 0) GO TO 770\r\n      L1 = (ILAST-1)/10 + 1\r\n      CALL ALG03 (LNCT,3+5*L1)\r\n      IF (IPRTC .NE. 1) GO TO 770\r\n      WRITE  (LOG2,710)\r\n  710 FORMAT (/10X,'ANNULUS WALL BOUNDARY LAYER CALCULATION RESULTS',\r\n     1        /10X,47(1H*))\r\n      DO 720 K = 1,L1\r\n      L2 = 10*(K-1) + 1\r\n      L3 = L2 + 9\r\n      IF (L3 .GT. ILAST) L3 = ILAST\r\n      WRITE (LOG2,730) (I,I=L2,L3)\r\n      WRITE (LOG2,740) (DELH(I),I=L2,L3)\r\n      WRITE (LOG2,750) (DELT(I),I=L2,L3)\r\n      WRITE (LOG2,760) (WWBL(I),I=L2,L3)\r\n  720 CONTINUE\r\n  730 FORMAT (/,' STATION NUMBER',14X,10I10)\r\n  740 FORMAT (' HUB DISPLACEMENT THICKNESS',4X,10F10.5)\r\n  750 FORMAT (' CASE DISPLACEMENT THICKNESS',3X,10F10.5)\r\n  760 FORMAT (' BLOCKAGE AREA FRACTION',8X,10F10.5)\r\n  770 CALL ALG03 (LNCT,4)\r\n      IF (IPRTC.EQ.1 .AND. IVFAIL.EQ.0.AND.IFFAIL.EQ.0) WRITE (LOG2,780)\r\n     1    ICASE,IPASS\r\n      IF (IFAILO .NE. 0) WRITE (LOG2,790) ICASE,IPASS,IFAILO\r\n      IF (IFAILO.EQ.0 .AND. (IVFAIL.NE.0.OR.IFFAIL.NE.0))\r\n     1    WRITE (LOG2,800) ICASE,IPASS,IVFAIL,IFFAIL\r\n  780 FORMAT (/10X,'POINT NO',I3,'   PASS',I3,'   THE CALCULATION IS ',\r\n     1       'CONVERGED', /10X,52(1H*))\r\n  790 FORMAT (/10X,'POINT NO',I3,'   PASS',I3,'   THE CALCULATION FAIL',\r\n     1       'ED AT STATION',I3, /10X,60(1H*))\r\n  800 FORMAT (/10X,'POINT NO',I3,'   PASS',I3,'   THE CALCULATION IS ',\r\n     1       'NOT FULLY CONVERGED  IVFAIL =',I3,'  IFFAIL =',I3, /10X,\r\n     2       88(1H*))\r\n      POWER = FLOW(ICASE)*(HBAR-H1BAR)*EJ/PFAC\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,810) SPDFAC(ICASE),FLOW(ICASE),OPR,\r\n     1        OEFF,POWER\r\n  810 FORMAT (10X,'SPEED FACTOR =',F10.3,'  FLOW =',F8.3,'  TOTAL PRES',\r\n     1        'SURE RATIO =',F7.3,'  ISENTROPIC EFFICIENCY =',F6.4,\r\n     2        '  POWER =',E11.4)\r\n      IF (IPRTC .EQ. 0) WRITE (LOG2,815) ICASE,IPASS,SPDFAC(ICASE),\r\n     1        FLOW(ICASE),OPR,OEFF,POWER\r\n  815 FORMAT  (18H     FOR POINT NO.,I3,5H PASS,I3,15H - SPEED FACTOR,\r\n     1        10X,1H=,F10.4 / 32X,4HFLOW,18X,1H=,F10.4, /\r\n     2        32X,23HTOTAL PRESSURE RATIO  =,F10.4, /32X,'ISENTROPIC ',\r\n     3        'EFFICIENCY =',F10.4, /32X,'POWER',17X,1H=,E10.4)\r\n      IF (IFAILO .NE. 0) GO TO 920\r\n      L1 = 2\r\n  820 DO 830 I = L1,NSTNS\r\n      NOUT3S = NOUT3(I)/10\r\n      IF (NOUT3S .EQ. 0) NOUT3S = NOUT3(I)\r\n      IF (NOUT3S.EQ.1 .OR. NOUT3S.EQ.3) GO TO 840\r\n  830 CONTINUE\r\n      GO TO 920\r\n  840 L2 = I\r\n      L3 = I + 1\r\n      DO 850 I = L3,NSTNS\r\n      NOUT3S = NOUT3(I)/10\r\n      NOUT3T = NOUT3(I) - NOUT3S*10\r\n      IF (NOUT3S .EQ. 0) NOUT3T = 1\r\n      IF (NOUT3S .EQ. 0) NOUT3S = NOUT3(I)\r\n      IF (NOUT3S.EQ.2 .OR. NOUT3S.EQ.3) GO TO 860\r\n  850 CONTINUE\r\n  860 L3 = I\r\n      CALL ALG03 (LNCT,10)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,870) L2,L3\r\n  870 FORMAT (/10X,'DATA FOR NASTRAN PROGRAM FOR BLADE BETWEEN STATIONS'\r\n     1,      I3,' AND',I3, /10X,61(1H*),//)\r\n      IF (NOUT3T .EQ. 2) GO TO 891\r\n      IF (IPRTC  .EQ. 1) WRITE (LOG2,871)\r\n  871 FORMAT (' NAME   CODE    DELTA P   ELEMENT',7X,\r\n     1       'MESHPOINTS -  J   I',9X,'J   I',9X,'J   I',/)\r\n      LNCT  = LNCT - 4\r\n      IELEM = 0\r\n      XSIGN =-FLOAT(NSIGN)\r\n      L4    = L2 + 1\r\n      IDATA(1) = NAME1(1)\r\n      IDATA(2) = NAME1(2)\r\n      IDATA(3) = 60\r\n      DO 890 J = 1,ITUB\r\n      DO 890 I = L4,L3\r\n      CALL ALG03 (LNCT,2)\r\n      IELEM = IELEM + 1\r\n      L5 = I - 1\r\n      L6 = J + 1\r\n      IF (I .EQ. L3) GO TO 880\r\n      PLOAD = XSIGN*((DELTP(J,L5)+DELTP(L6,L5)+DELTP(L6,I))/3.0)\r\n      IF (NBLADE(I) .LT. 0) PLOAD = XSIGN*((DELTP(J,L5)+DELTP(J,I) +\r\n     1    DELTP(L6,L5)+DELTP(L6,I))*0.25)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,L6,L5,L6,I,J,L5\r\n      RDATA(4) = PLOAD\r\n      IDATA(5) = IELEM\r\n      CALL WRITE (ISCR,IDATA,5,1)\r\n      IELEM = IELEM + 1\r\n      IF (NBLADE(I) .GE. 0) PLOAD = XSIGN*((DELTP(J,L5)+DELTP(L6,I)+\r\n     1    DELTP(J,I))/3.0)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,I,J,I\r\n      RDATA(4) = PLOAD\r\n      IDATA(5) = IELEM\r\n      CALL WRITE (ISCR,IDATA,5,1)\r\n      GO TO 890\r\n  880 PLOAD    = XSIGN*((DELTP(J,L5)+DELTP(L6,L5))/3.0)\r\n      IF (NBLADE(I) .LT. 0) PLOAD = PLOAD*0.75\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,L5,L6,I\r\n      RDATA(4) = PLOAD\r\n      IDATA(5) = IELEM\r\n      CALL WRITE (ISCR,IDATA,5,1)\r\n      IELEM    = IELEM + 1\r\n      IF (NBLADE(I) .GE. 0) PLOAD = XSIGN*(DELTP(J,L5)/3.0)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,900) PLOAD,IELEM,J,L5,L6,I,J,I\r\n      RDATA(4) = PLOAD\r\n      IDATA(5) = IELEM\r\n      CALL WRITE (ISCR,IDATA,5,1)\r\n  890 CONTINUE\r\n  900 FORMAT (' PLOAD2   60',F12.5,I7,14X,3(I10,I4))\r\n      L1 = L3\r\n  891 IF (NOUT3T .EQ. 1) GO TO 820\r\nC\r\nC     OUTPUT RELATIVE TOTAL TEMPERATURES AT NODES ON *TEMP* CARDS\r\nC\r\n      CALL ALG03 (LNCT,10)\r\n      LNCT = LNCT - 6\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,892)\r\n  892 FORMAT (//,' NAME   CODE    DELTA T   NODE',10X,'MESHPOINTS -  ',\r\n     1        'J   I   COORDINATES -   RADIAL       AXIAL',/)\r\n      INODE = 1\r\n      IDATA(1) = NAME2(1)\r\n      IDATA(2) = NAME2(2)\r\n      IDATA(3) = 70\r\n      DO 894 J = 1,NSTRMS\r\n      DO 894 I = L2,L3\r\n      CALL ALG03(LNCT,1)\r\n      IDATA(4) = INODE\r\n      RDATA(5) = TR(J,I)\r\n      CALL WRITE (ISCR,IDATA,5,1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,912) TR(J,I),INODE,J,I,R(J,I),X(J,I)\r\n  894 INODE = INODE + 1\r\n  912 FORMAT (' TEMP     70',F12.5,I6,21X,2I4,16X,F10.4,2X,F10.4)\r\n      GO TO 820\r\n  920 CONTINUE\r\nC\r\nC     PUNCH STREAML2 BULK DATA CARDS FOR EACH STREAMLINE\r\nC     CHANGE THE SIGN ON THE STAGGER AND FLOW ANGLES FOR STREAML2 CARDS.\r\nC     THIS CHANGE IS NECESSARY BECAUSE OF THE AERODYNAMIC PROGRAMS IN\r\nC     NASTRAN MODULE AMG THAT USE THESE ANGLES.\r\nC\r\n      IF (LEDGEB*ITRLEB .EQ. 0) GO TO 940\r\n      IF (ISTRML.EQ.-1 .OR. ISTRML.EQ.1) GO TO 940\r\n      WRITE (LOG2,931)\r\n      NSTNSX = ITRLEB - LEDGEB + 1\r\n      DO 930 ILEB = 1,NSTRMS\r\n      RADIUS = (RMDV(ILEB,5)+RMDV(ILEB,6))/2.0\r\n      BSPACE = (6.283185*RADIUS)/FLOAT(NBLDES)\r\n      STAG(ILEB  ) = -1.0*STAG(ILEB  )\r\n      RMDV(ILEB,4) = -1.0*RMDV(ILEB,4)\r\n      WRITE (LPUNCH,932) ILEB,NSTNSX,STAG(ILEB),CHORDD(ILEB),RADIUS,\r\n     1       BSPACE,RMDV(ILEB,1),RMDV(ILEB,2),ILEB,ILEB,RMDV(ILEB,3),\r\n     2       RMDV(ILEB,4)\r\n      WRITE (LOG2,933) ILEB,NSTNSX,STAG(ILEB),CHORDD(ILEB),RADIUS,\r\n     1       BSPACE,RMDV(ILEB,1),RMDV(ILEB,2),RMDV(ILEB,3),RMDV(ILEB,4)\r\n  930 CONTINUE\r\n  931 FORMAT (//10X,47HNASTRAN - STREAML2 - COMPRESSOR BLADE BULK DATA,\r\n     1       /10X,49(1H*), /,'  SLN  NSTNS  STAGGER    CHORD    RADIUS',\r\n     2       '    BSPACE     MACH       DEN       VEL      FLOWA',/)\r\n  932 FORMAT (8HSTREAML2,2I8,F8.3,3F8.5,2F8.6,5H+STRL,I2,5H+STRL,I2,\r\n     1        F8.1,F8.3 )\r\n  933 FORMAT (I5,I6,2X,F8.3,3(2X,F8.5),2(2X,F8.6),2X,F8.1,2X,F8.3)\r\n  940 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg12.f",
    "content": "      SUBROUTINE ALG12\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION PSTAT(32),XX(32)\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      XMAX=X(1,NSTNS)\r\n      XMIN=X(1,1)\r\n      DO 100 J=2,NSTRMS\r\n      IF(X(J,1).LT.XMIN)XMIN=X(J,1)\r\n      IF(X(J,NSTNS).GT.XMAX)XMAX=X(J,NSTNS)\r\n100   CONTINUE\r\n      IF(XMIN.LT.0.0)XMIN=XMIN-1.0\r\n      L1=XMIN-1.0\r\n      XMIN=FLOAT(L1)\r\n      L1=XMAX+1.0\r\n      XMAX=FLOAT(L1)\r\n      DELX=(XMAX-XMIN)/XSCALE+0.01\r\n      XX(NSTNS+1)=XMIN\r\n      XX(NSTNS+2)=XSCALE\r\n      IF(NPLOT.EQ.2)GO TO 134\r\n      PSTAT(NSTNS+1)=PLOW\r\n      PSTAT(NSTNS+2)=PSCALE\r\n      J=1\r\n      K=1\r\n110   DO 120 I=1,NSTNS\r\n      HS=H(J,I)-(VW(J,I)**2+VM(J,I)**2)/(2.0*G*EJ)\r\n      IF(HS.LT.HMIN)HS=HMIN\r\n      PSTAT(I)=ALG4(HS,S(J,I))/SCLFAC**2\r\n120   XX(I)=X(J,I)\r\n      IF(J.EQ.NSTRMS)GO TO 130\r\n      K=K+1\r\n      IF(J.EQ.IMID)J=NSTRMS\r\n      IF(J.EQ.1)J=IMID\r\n      GO TO 110\r\n130   CONTINUE\r\n      IF(NPLOT.EQ.1)GO TO 180\r\n134   CONTINUE\r\n      PSTAT(NSTNS+1)=RLOW\r\n      PSTAT(NSTNS+2)=XSCALE\r\n      DO 150 J=1,NSTRMS\r\n      DO 140 I=1,NSTNS\r\n      XX(I)=X(J,I)\r\n140   PSTAT(I)=R(J,I)\r\n150   CONTINUE\r\n      PSTAT(NSTRMS+1)=RLOW\r\n      PSTAT(NSTRMS+2)=XSCALE\r\n      XX(NSTRMS+1)=XMIN\r\n      XX(NSTRMS+2)=XSCALE\r\n      DO 170 I=1,NSTNS\r\n      DO 160 J=1,NSTRMS\r\n      PSTAT(J)=R(J,I)\r\n160   XX(J)=X(J,I)\r\n170   CONTINUE\r\n180   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg13.f",
    "content": "      SUBROUTINE ALG13 (IBL,YS,YP,XS,XP,YSEMI,XSEMI,LOG1,LOG2,N,IPRINT,\r\n     1                BETA1,BETA2,P,Q,YZERO,T,YONE,XDEL,YDEL,Z,AXIALC,\r\n     2                LNCT,IFCORD,SQ,SB,ISECN,XSEMJ,YSEMJ,ISTAK,XHERE,\r\n     3                X,SS,NSTNS,R,DX,Y,DY,SS1,BX,SIGMA,CCORD,ISPLIT,\r\n     4                YZEROS,TS,YONES,ZSPMXT,PERSPJ,INAST,IRLE,IRTE,\r\n     5                THARR)\r\nC\r\n      REAL            IX,IY,IXY,IPX,IPY,IXD,IYD,IXN,IYN,IXYN\r\n      DIMENSION       CCORD(1),NAME(2),XXM(81),SNADUM(10),THARR(21,10)\r\n      DIMENSION       YS(21,80),YP(21,80),XS(21,80),XP(21,80),\r\n     1                YSEMI(21,31),XSEMI(21,31),S(80),PHI(11),\r\n     2                THICK2(80),XM(81),YM(80),AM(80),XSEMJ(21,31),\r\n     3                YSEMJ(21,31),XHERE(100),X(100),SS(100),R(10,21),\r\n     4                DX(100),DY(100),SS1(80,4),Y(100),SIGMA(100)\r\n      DIMENSION       XSPLTM(45),YSPLTM(45),SSPLTM(45),XSPLTS(45),\r\n     1                YSPLTS(45),XSPLTP(45),YSPLTP(45),THICK(45)\r\n      COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21)\r\n      DATA    NAME  / 4HALG1, 4H3    /\r\nC\r\n      F1(A) = A*EXP(1.0-A*SQ)*SQ\r\n      F2(A) = (SQ-1.0)*A*EXP(1.0+A*(1.0-SQ))\r\n      F3(A,B,C,D) = B/A**3*EXP(A*XD)*(A*XD-2.0) + C*(XD+SQ) + D\r\n      F4(A,B) = ABS(A-B)/(A-B)\r\n      F5(A,B,C) = B/A**2*EXP(A*XD)*(A*XD-1.0) + C\r\n      F6(XAB) = SQRT(RDIUS**2-(XAB-X1)**2) + Y1\r\n      F7(XAB) =-SQRT(RDIUS**2-(XAB-X1)**2) + Y1\r\n      F8(XAB) =-1./SQRT(RDIUS**2-(XAB-X1)**2)*(XAB-X1)\r\nC\r\n10    FORMAT (1H1)\r\n      A    = 0.\r\n      D    = 0.\r\n      BTA1 = BETA1\r\n      BTA2 = BETA2\r\n      BETA3= 0.0\r\n      PI   = 3.1415926535\r\n      C1   = 180.0/PI\r\n      IF (IPRINT .GE. 2) GO TO 40\r\n      WRITE  (LOG2,20) IBL,P,Q,BETA1,BETA2,YZERO,T,YONE,Z,AXIALC\r\n20    FORMAT (1H1,44X,43HSTREAMSURFACE GEOMETRY ON STREAMLINE NUMBER,I3,\r\n     1 /45X,46(1H*), //20X,1HP,1\r\n     25X,1H=,F7.4,6X,72H(D2YDX2 OF MEANLINE AT LEADING EDGE AS A FRACTIO\r\n     3N OF ITS MAXIMUM VALUE.), /20X,1HQ,15X,1H=,F7.4,6X,73H(D2YDX2 OF M\r\n     4EANLINE AT TRAILING EDGE AS A FRACTION OF ITS MAXIMUM VALUE.), /20\r\n     5X,5HBETA1,11X,1H=,F7.3,6X,20H(BLADE INLET ANGLE.), /20X,5HBETA2,11\r\n     6X,1H=,F7.3,6X,21H(BLADE OUTLET ANGLE.), /20X,5HYZERO,11X,1H=,F8.5,\r\n     75X,51H(BLADE LEADING EDGE RADIUS AS A FRACTION OF CHORD.), /20X,1H\r\n     8T,15X,1H=,F8.5,5X,49H(BLADE MAXIMUM THICKNESS AS A FRACTION OF CHO\r\n     9RD.), /20X,4HYONE,12X,1H=,F8.5,5X,60H(BLADE TRAILING EDGE HALF-THI\r\n     OCKNESS AS A FRACTION OF CHORD.), /20X,1HZ,15X,1H=,F7.4,6X,59H(LOCA\r\n     1TION OF MAXIMUM THICKNESS AS A FRACTION OF MEAN LINE.), /20X,4HCOR\r\n     2D,12X,1H=,F7.4,6X,39H(CHORD OR MERIDIONAL CHORD OF SECTION.))\r\n      IF (ISECN.EQ.1 .OR. ISECN.EQ.3) WRITE (LOG2,30) SQ,SB\r\n30    FORMAT (20X,1HS,15X,1H=,F7.4,6X,53H(INFLECTION POINT AS A FRACTION\r\n     1 OF MERIDIONAL CHORD.), /20X,5HBETA3,11X,1H=,F7.3,6X,36H(CHANGE IN\r\n     2 ANGLE FROM LEADING EDGE.))\r\n   40 IF (IPRINT .EQ. 3) GO TO 55\r\n      LNCT = LNCT + 2\r\n      IF (LNCT .LE. 60)GO TO 45\r\n      LNCT = 3\r\n      WRITE  (LOG2,10)\r\n45    WRITE  (LOG2,50) IBL,P,Q,BETA1,BETA2,YZERO,T,YONE,Z,AXIALC\r\n50    FORMAT (2X, /5X,4HLINE,I3,4H  P=,F7.4,4H  Q=,F7.4,8H  BETA1=,F7.3,\r\n     18H  BETA2=,F7.3,8H  YZERO=,F7.5,6H  T/C=,F7.5,7H  YONE=,F7.5,4H  Z\r\n     2=,F7.4,6H  AXC=,F7.3)\r\n55    IF (ISECN .EQ. 1) GO TO 60\r\n      IF (ISECN .EQ. 3) GO TO 130\r\n      IF (ISECN .EQ. 2) GO TO 150\r\n      H  = 1.0/(1.0+SQRT((1.0-Q)/(1.0-P)))\r\n      HH = H*H\r\n      OA = 4.0*(TAN(BETA1/C1)-TAN(BETA2/C1))/(P/(1.0-P)*HH+H-1.0/3.0)\r\n      OA48 = OA/48.0\r\n      XK2  =-HH/(8.0*(1.0-P))*OA\r\n      B    = HH*H/12.0*OA+TAN(BETA1/C1)\r\n      C    =-HH*HH*OA48\r\n      XMLC = SQRT(1.0+(OA48*(1.0-H)**4+XK2+B+C)**2)\r\n      GO TO 160\r\n60    NQ = 1\r\n      SB = BETA1+SB\r\n      G1 = 1.0/SQ\r\n      R1 = F1(G1)\r\n      G2 = G1+5.0\r\n      R2 = F1(G2)\r\n      S2 = F4(R2,P)\r\n70    G3 = G2+(P-R2)*(G2-G1)/(R2-R1)\r\n      R3 = F1(G3)\r\n      S3 = F4(R3,P)\r\n      IF (ABS(R3-P) .LE. 0.0001) GO TO 90\r\n      IF (NQ .GT. 50) GO TO 1290\r\n      NQ = NQ + 1\r\n      IF (ABS(S2-S3) .LE. 0.0001) GO TO 80\r\n      G1 = G3\r\n      R1 = R3\r\n      GO TO 70\r\n80    G2 = G3\r\n      R2 = R3\r\n      S2 = S3\r\n      GO TO 70\r\n90    A1 = G3\r\n      NQ = 1\r\n      G1 = 1.0/(SQ-1.0)\r\n      R1 = F2(G1)\r\n      G2 = G1-5.0\r\n      R2 = F2(G2)\r\n      S2 = F4(R2,Q)\r\n100   G3 = G2+(Q-R2)*(G2-G1)/(R2-R1)\r\n      R3 = F2(G3)\r\n      S3 = F4(R3,Q)\r\n      IF (ABS(R3-Q) .LE. 0.0001) GO TO 120\r\n      IF (NQ .GT. 50) GO TO 1290\r\n      NQ = NQ + 1\r\n      IF (ABS(S2-S3) .LE. 0.0001) GO TO 110\r\n      G1 = G3\r\n      R1 = R3\r\n      GO TO 100\r\n110   G2 = G3\r\n      R2 = R3\r\n      S2 = S3\r\n      GO TO 100\r\n120   A2 = G3\r\n      B1 = A1**2*(TAN(BETA1/C1)-TAN(SB/C1))/\r\n     1     (1.0-(A1*SQ+1.0)*EXP(-A1*SQ))\r\n      CC1= TAN(SB/C1)+B1/A1**2\r\n      E1 = (A1*SQ+2.0)*B1/A1**3*EXP(-A1*SQ)\r\n      B2 = A2**2*(TAN(BETA2/C1)-TAN(SB/C1))/\r\n     1     (1.0+(A2*(1.0-SQ)-1.0)*EXP(A2*(1.0-SQ)))\r\n      CC2= TAN(SB/C1)+B2/A2**2\r\n      D2 = 2.*(B2/A2**3-B1/A1**3)+SQ*(CC1-CC2) + E1\r\n      XD = 1.0-SQ\r\n      R2 = F3(A2,B2,CC2,D2)\r\n      XMLC = SQRT(1.0+R2**2)\r\n      GO TO 160\r\n130   I1 = 1\r\n      BETA3 = BETA1+SB\r\n      S0 = 0.\r\n      X0 = 0.\r\n      Y0 = 0.\r\n      Y21= 0.0\r\n      I2 = FLOAT(N)*SQ\r\n      IF (I2 .LE. 1) SQ = 0.0\r\n      IF (I2 .LE. 1) BETA3 = BETA1\r\n      IF (I2 .LE. 1) GO TO 140\r\n      XRNGE = SQ\r\n      FACT  = SQ\r\n      CALL ALG18 (BETA1,BETA3,I1,I2,FACT,X0,Y0,S0,XRNGE,Y11,X11,Y21,\r\n     1            RDIUS1,S,C1)\r\n      I1 = I2\r\n      X0 = SQ\r\n      Y0 = Y21\r\n      S0 = S(I1)\r\n140   I2 = N\r\n      FACT  = 1.-SQ\r\n      XRNGE = FACT\r\n      CALL ALG18 (BETA3,BETA2,I1,I2,FACT,X0,Y0,S0,XRNGE,Y12,X12,Y22,\r\n     1            RDIUS2,S,C1)\r\n      XMLC = SQRT(1.0+Y22**2)\r\n      GO TO 160\r\n150   CALL ALG18 (BETA1,BETA2,1,N,1.0,0.0,0.0,0.0,1.0,Y1,X1,Y2,RDIUS,\r\n     1            S,C1)\r\n      XMLC  = SQRT(1.+Y2**2)\r\n      CHORD = XMLC/(1.-2.*YZERO*(1.-XMLC))\r\n      FCSLMN= 1.0 - CHORD*2.*YZERO\r\n      GO TO 170\r\n160   CHORD = XMLC/(1.0-YZERO+XMLC*(YZERO+ABS(YONE*SIN(BETA2/C1))))\r\n      FCSLMN= 1.0 - CHORD*(YZERO+ABS(YONE*SIN(BETA2/C1)))\r\n170   IF (IFCORD .EQ. 1) AXIALC = AXIALC/CHORD\r\n      YZERO = YZERO*CHORD/FCSLMN\r\n      YONE  = YONE*CHORD/FCSLMN\r\n      T   = T*CHORD/FCSLMN\r\n      S(1)= 0.0\r\n      XX  = 0.0\r\n      XN  = N\r\n      IF (ISECN .EQ. 2) GO TO 240\r\n      AT = (YZERO-T/2.0)/(2.0*Z**3)\r\n      CT = (T/2.0-YZERO)*3.0/(2.0*Z)\r\n      DT = YZERO\r\n      ET = (YONE-T/2.0)/(1.0-Z)**3 - 1.5*(YZERO-T/2.0)/(Z**2*(1.0-Z))\r\n      FT = 1.5*(YZERO-T/2.0)/Z**2\r\n      HT = T/2.0\r\n      IF (ISECN .EQ. 3) GO TO 240\r\n      DELX = 1.0/(10.0*(XN-1.0))\r\n      ASSIGN 190 TO ISEC1\r\n      ASSIGN 290 TO ISEC2\r\n      IF (ISECN .EQ. 0) GO TO 180\r\n      ASSIGN 200 TO ISEC1\r\n      ASSIGN 300 TO ISEC2\r\n180   DO 230 J  = 2,N\r\n      DO 220 JJ = 1,11\r\n      GO TO ISEC1, (190,200)\r\n190   PHI(JJ) = SQRT(1.0+(OA/12.0*(XX-H)**3+XK2*2.0*XX+B)**2)\r\n      GO TO 220\r\n200   XD = XX - SQ\r\n      IF (XD .GT. 0.0) GO TO 210\r\n      PHI(JJ) = SQRT(1.0+(F5(A1,B1,CC1))**2)\r\n      GO TO 220\r\n210   PHI(JJ) = SQRT(1.+(F5(A2,B2,CC2))**2)\r\n220   XX = XX + DELX\r\n      XX = XX - DELX\r\n230   S(J) = S(J-1)+ (PHI(1)+ PHI(11)+ 4.0*(PHI(2)+PHI(4)+PHI(6)+PHI(8)+\r\n     1       PHI(10))+2.0*(PHI(3)+PHI(5)+PHI(7)+PHI(9)))/(30.0*(XN-1.0))\r\n240   DELX = 1.0/(XN-1.0)\r\n      IF (ISECN .NE. 2) GO TO 250\r\n      T2 = T/2.\r\n      TPRIM2 = T2 - YZERO\r\n      C2 = 2.*C1\r\n      AFORM = (TPRIM2+RDIUS*(1.-COS((BETA1-BETA2)/C2)))/XMLC*2.\r\n      PHIS  = ACOS((1.-AFORM**2)/(1.+AFORM**2))\r\n      RS    = YZERO + XMLC/2./SIN(PHIS)\r\n      YSS   = RDIUS - RS + T2\r\n      BFORM = (RDIUS*(1.-COS((BETA1-BETA2)/C2))-TPRIM2)/XMLC*2.\r\n      PHIP  = ACOS((1.-BFORM**2)/(1.+BFORM**2))\r\n      PHI2  = ABS((BETA1-BETA2)/C1)\r\n250   XM(1) = 0.0\r\n      IF (ISECN .NE. 3) GO TO 260\r\n      YMM = 0.0\r\n      XMM = 0.0\r\n      I2  = SQ*FLOAT(N)\r\n      I3  = I2\r\n      IF (I2 .LE.  1) I2 = N + 1\r\n      DELX= SQ/FLOAT(I2-1)\r\n      IF (I3 .NE. I2) I3 = 1\r\n      DELXX = (1.-SQ)/FLOAT(N-I3)\r\n      IF (I2 .EQ. N+1) DELX = DELXX\r\n260   DO 380 J = 1,N\r\n      SN = S(J)/S(N)\r\n      IF (ISECN .EQ. 2) GO TO 340\r\n      IF (SN    .GT. Z) GO TO 270\r\n      THICK2(J) = (AT*SN**2+CT)*SN + DT\r\n      GO TO 280\r\n270   SN = SN - Z\r\n      THICK2(J) = (ET*SN+FT)*SN**2 + HT\r\n280   IF (ISECN .EQ. 3) GO TO 320\r\n      GO TO ISEC2, (290,300)\r\n290   YM(J)  = OA48*(XM(J)-H)**4+XK2*XM(J)**2 + B*XM(J) + C\r\n      YPRIME = OA/12.0*(XM(J)-H)**3 + XK2*2.0*XM(J) + B\r\n      GO TO 370\r\n300   XD = XM(J) - SQ\r\n      IF (XD .GT. 0.0) GO TO 310\r\n      YM(J)  = F3(A1,B1,CC1,E1)\r\n      YPRIME = F5(A1,B1,CC1)\r\n      GO TO 370\r\n310   YM(J)  = F3(A2,B2,CC2,D2)\r\n      YPRIME = F5(A2,B2,CC2)\r\n      GO TO 370\r\n320   IF (XM(J)-SQ.GT.0.0 .OR. XM(J).EQ.0.0 .AND. SQ.EQ.0.0) GO TO 330\r\n      IF (BETA1 .EQ. BETA3) GO TO 360\r\n      BTA1  = BETA1\r\n      BTA2  = BETA3\r\n      RDIUS = RDIUS1\r\n      Y1 = Y11\r\n      X1 = X11\r\n      GO TO 350\r\n330   IF (BETA2 .EQ. BETA3) GO TO 360\r\n      RDIUS = RDIUS2\r\n      X1 = X12\r\n      Y1 = Y12\r\n      BTA1 = BETA3\r\n      BTA2 = BETA2\r\n      GO TO 350\r\n340   PHIX = (SN-0.5)*PHI2\r\n      THICK2(J) = YSS*COS(PHIX) + SQRT(RS**2-YSS**2*SIN(PHIX)**2) -RDIUS\r\n350   YM(J)  = F6(XM(J))\r\n      YPRIME = F8(XM(J))\r\n      IF (BTA1-BTA2 .LT. 0.0) YPRIME = -YPRIME\r\n      IF (BTA1-BTA2 .LT. 0.0) YM(J) = F7(XM(J))\r\n      IF (ISECN .EQ. 2) GO TO 370\r\n      IF (J .EQ. I3) DELX = DELXX\r\n      GO TO 370\r\n360   YPRIME = TAN(BETA3/C1)\r\n      IF (J .NE. 1) XMM = XM(J-1)/FCSLMN - YZERO\r\n      IF (J .NE. 1) YMM = YM(J-1)/FCSLMN\r\n      YM(J) = YPRIME*(XM(J)-XMM) + YMM\r\n      IF (J .EQ. I3) DELX = DELXX\r\n370   XM(J+1) = XM(J) + DELX\r\n      FYPR = 1.0/SQRT(1.0+YPRIME**2)\r\n      XS(IBL,J) = (XM(J)-THICK2(J)*YPRIME*FYPR+YZERO)*FCSLMN\r\n      YS(IBL,J) = (YM(J)+THICK2(J)*FYPR)*FCSLMN\r\n      XP(IBL,J) = (XM(J)+THICK2(J)*YPRIME*FYPR+YZERO)*FCSLMN\r\n      YP(IBL,J) = (YM(J)-THICK2(J)*FYPR)*FCSLMN\r\n      AM(J)  = ATAN(YPRIME)*C1\r\n      XXM(J) = XM(J)\r\n      IF(J .EQ. N) STAGER = ATAN(YM(N)/XM(N))*C1\r\n      IF(J .EQ. N) STAG(IBL) = STAGER\r\n      XM(J) = (XM(J)+YZERO)*FCSLMN\r\n      YM(J) = YM(J)*FCSLMN\r\n      THICK2(J) = THICK2(J)*FCSLMN\r\n380   S(J) = S(J)*FCSLMN\r\n      IF (ISPLIT .EQ. 0) GO TO 530\r\n      XSPLTM(1) = 1. - PERSPJ\r\n      K1 = 25\r\n      XSPLTM(K1) = 1.\r\n      K11 = K1 - 1\r\n      DELXX = PERSPJ/FLOAT(K11)\r\n      DO 390 J = 2,K11\r\n390   XSPLTM(J) = XSPLTM(J-1) + DELXX\r\n      CALL ALG15 (XM,YM,N,XSPLTM,YSPLTM,K1,1)\r\n      YLE = YSPLTM(1)\r\n      CALL ALG15 (XM,S,N,XSPLTM,SSPLTM,K1,1)\r\n      CALL ALG15 (XM,AM,N,XSPLTM,SS1(1,3),K1,1)\r\n      SSPLS = SSPLTM(1)\r\n      DO 400 J = 1,K1\r\n400   SSPLTM(J) = SSPLTM(J) - SSPLS\r\n      GO TO (410,420), ISPLIT\r\n410   XNORMS = SQRT((XSPLTM(K1)-XSPLTM(1))**2+(YSPLTM(K1)-YSPLTM(1))**2)\r\n      CHORDS = XNORMS/(1.-YZEROS+XNORMS*(YZEROS+ABS(YONES*SIN(BETA2/\r\n     1         C1))))\r\n      FCSLMS = (PERSPJ-CHORDS*(YZEROS+ABS(YONES*SIN(BETA2/C1))))/PERSPJ\r\n      YZEROS = YZEROS*CHORDS/FCSLMS\r\n      YONES  = YONES *CHORDS/FCSLMS\r\n      TS  = TS*CHORDS/FCSLMS\r\n      AT  = (YZEROS-TS/2.)/(2.*ZSPMXT**3)\r\n      CT  = (TS/2.-YZEROS)*3./(2.*ZSPMXT)\r\n      DT  = YZEROS\r\n      ET  = (YONES-TS/2.)/(1.-ZSPMXT)**3-1.5*(YZEROS-TS/2.)/\r\n     1      (ZSPMXT**2*(1.-ZSPMXT))\r\n      FT  = 1.5*(YZEROS-TS/2.)/ZSPMXT**2\r\n      HT  = TS/2.\r\n      GO TO 450\r\n420   YZS = YZEROS\r\n      TS1 = TS\r\n      BETA1 = SS1(1,3)\r\n      Y1  =-COS(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1))\r\n      X1  = SIN(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1))\r\n      RDIUS = ABS(1./(SIN(BETA1/C1)-SIN(BETA2/C1)))\r\n      Y2  = TAN((BETA1+BETA2)/(2.*C1))\r\n      XMLCS  = SQRT(1.+Y2**2)\r\n      CHORDS = XMLCS/(1.0-2.*YZEROS*(1.0-XMLCS))\r\n      FCSLMS = 1.0-CHORDS*2.*YZEROS\r\n      YZEROS = YZEROS*CHORDS/FCSLMS\r\n      TS  = TS*CHORDS/FCSLMS\r\n      SS1(1,1) = 0.\r\n      DELX  = 1./(XN-1.)\r\n      T2    = TS/2.\r\n      TPRIM2= T2-YZEROS\r\n      C2    = 2.*C1\r\n      AFORM = (TPRIM2+RDIUS*(1.-COS((BETA1-BETA2)/C2)))/XMLCS*2.\r\n      PHIS  = ACOS((1.-AFORM**2)/(1.+AFORM**2))\r\n      RS    = YZEROS + XMLCS/2./SIN(PHIS)\r\n      YSS   = RDIUS - RS + T2\r\n      BFORM = (RDIUS*(1.-COS((BETA1-BETA2)/C2))-TPRIM2)/XMLCS*2.\r\n      PHIP  = ACOS((1.-BFORM**2)/(1.+BFORM**2))\r\n      RP    = XMLCS/2./SIN(PHIP)-YZEROS\r\n      YPP   = RDIUS - RP - T2\r\n      XX = 0.\r\n      DO 430 J = 2,N\r\n      XX = XX + DELX\r\n      PHI1 = ATAN(-1./SQRT(RDIUS**2-(XX-X1)**2)*(XX-X1))\r\n      IF (BETA1 .LT. 0.) PHI1 = -PHI1\r\n      PHI2 = ABS(BETA1/C1-PHI1)\r\n430   SS1(J,1) = RDIUS*PHI2\r\n      DO 440 J = 1,N\r\n      SS1(J,1) = SS1(J,1)/SS1(N,1)\r\n      PHIX = (SS1(J,1)-.5)*PHI2\r\n440   SS1(J,2) =(YSS*COS(PHIX)+SQRT(RS**2-YSS**2*SIN(PHIX)**2)-RDIUS)/T2\r\n      CALL ALG14 (XSPLTM,YSPLTM,K1,XSPLTM,XDUM,SS1(1,3),K1,1)\r\n      XNORMS = SQRT(PERSPJ**2+(YSPLTM(K1)-YSPLTM(1))**2)\r\n      CHORDS = XNORMS/(1.-2.*YZS*(1.-XNORMS))\r\n      FCSLMS = (PERSPJ-CHORDS*2.*YZS)/PERSPJ\r\n      TS     = TS1*CHORDS/FCSLMS\r\n      YZEROS = YZS*CHORDS/FCSLMS\r\n450   DO 500 J = 1,K1\r\n      SN = SSPLTM(J)/SSPLTM(K1)\r\n      IF (ISPLIT  .GT. 1) GO TO 480\r\n      IF (SN .GT. ZSPMXT) GO TO 460\r\n      THICK(J) = (AT*SN**2+CT)*SN + DT\r\n      GO TO 470\r\n460   SN = SN - ZSPMXT\r\n      THICK(J) = (ET*SN+FT)*SN**2 + HT\r\n470   FYPR   = 1./SQRT(1.+TAN(SS1(J,3)/C1)**2)\r\n      YPRIME = TAN(SS1(J,3)/C1)\r\n      GO TO 490\r\n480   CALL ALG15 (SS1,SS1(1,2),N,SN,THICK(J),1,1)\r\n      THICK(J) = THICK(J)*TS/2.\r\n      FYPR   = 1.0/SQRT(1.0+SS1(J,3)**2)\r\n      YPRIME = SS1(J,3)\r\n490   XSPLTP(J) = (XSPLTM(J)-(1.-PERSPJ)+THICK(J)*YPRIME*FYPR+YZEROS)*\r\n     1             FCSLMS+(1.-PERSPJ)\r\n      XSPLTS(J) = (XSPLTM(J)-(1.-PERSPJ)-THICK(J)*YPRIME*FYPR+YZEROS)*\r\n     1             FCSLMS+(1.-PERSPJ)\r\n      YSPLTP(J) = (YSPLTM(J)-YLE-THICK(J)*FYPR)*FCSLMS+YLE\r\n      YSPLTS(J) = (YSPLTM(J)-YLE+THICK(J)*FYPR)*FCSLMS+YLE\r\n      XSPLTM(J) = (XSPLTM(J)-(1.-PERSPJ)+YZEROS)*FCSLMS+(1.-PERSPJ)\r\n      YSPLTM(J) = (YSPLTM(J)-YLE)*FCSLMS+YLE\r\n      THICK(J)  = THICK(J)*FCSLMS\r\n500   SSPLTM(J) = SSPLTM(J)*FCSLMS\r\n      IF (ISPLIT .GT. 1) SS1(1,3) = ATAN(SS1(1,3))*C1\r\n      YZEROS = YZEROS*FCSLMS\r\n      AREAS  = PI/2.*YZEROS**2\r\n      AREA2  = AREAS\r\n      YINT   =-4./(3.*PI)*YZEROS*AREAS*SIN(SS1(1,3)/C1)\r\n      XINT   = YZEROS*(1.-COS(SS1(1,3)/C1)*4./(3.*PI))*AREAS\r\n      DO 510 J = 2,K1\r\n      DELA  = (THICK(J)+THICK(J-1))*(SSPLTM(J)-SSPLTM(J-1))\r\n      AREAS = AREAS + DELA\r\n      XINT  = XINT + DELA*(XSPLTM(J)+XSPLTM(J-1))/2.\r\n510   YINT  = YINT + DELA*(YSPLTM(J)+YSPLTM(J-1))/2.\r\n      IF (ISPLIT .LT. 2) GO TO 520\r\n      XINT  = XINT + AREA2*(XSPLTM(K1)+4.*YZEROS/(3.*PI)*COS(BETA2/C1))\r\n      YINT  = YINT + AREA2*(YSPLTM(K1)+4.*YZEROS/(3.*PI)*SIN(BETA2/C1))\r\n      AREAS = AREAS + AREA2\r\n520   XBARS = XINT/AREAS\r\n      YBARS = YINT/AREAS\r\n530   CONTINUE\r\n      YZERO = YZERO*FCSLMN\r\n      IF (INAST .EQ. 0) GO TO 550\r\n      NASNUM = IRTE - IRLE + 1\r\n      CALL ALG15 (X,SS,100,XHERE(IRLE),SNADUM(IRLE),NASNUM,1)\r\n      SNDUM1 = SNADUM(IRLE)\r\n      SNDUM2 = SNADUM(IRTE)\r\n      DO 540 J = IRLE,IRTE\r\n      SNADUM(J) = (SNADUM(J)-SNDUM1)/(SNDUM2-SNDUM1)\r\n      CALL ALG15 (XXM,THICK2,N,SNADUM(J),THARR(IBL,J),1,1)\r\n540   THARR(IBL,J) = THARR(IBL,J)*2.*AXIALC\r\n550   CONTINUE\r\n      AREA = PI/2.0*YZERO**2\r\n      XINT = YZERO*(1.0-COS(BETA1/C1)*4.0/(3.0*PI))*AREA\r\n      YINT =-4.0/(3.0*PI)*YZERO*AREA*SIN(BETA1/C1)\r\n      DO 560 J = 2,N\r\n      DELA = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1))\r\n      AREA = AREA + DELA\r\n      XINT = XINT + DELA*(XM(J)+XM(J-1))/2.0\r\n560   YINT = YINT + DELA*(YM(J)+YM(J-1))/2.0\r\n      IF (ISECN .NE. 2) GO TO 570\r\n      AREA2= PI/2.*YZERO**2\r\n      XINT = XINT + AREA2*(XM(N)+4.*YZERO/(3.*PI)*COS(BETA2/C1))\r\n      YINT = YINT + AREA2*(YM(N)+4.*YZERO/(3.*PI)*SIN(BETA2/C1))\r\n      AREA = AREA + AREA2\r\n570   XBAR = XINT/AREA\r\n      YBAR = YINT/AREA\r\n      XBARB= XBAR\r\n      YBARB= YBAR\r\n      YBAR = YBAR + YDEL/AXIALC\r\n      XBAR = XBAR + XDEL/AXIALC\r\n      AX   = 1./99.\r\n      DX(1)= 0.\r\n      DO 580 IK = 2,100\r\n580   DX(IK) = DX(IK-1) + AX\r\n      YMM = 0.0\r\n      XMM = 0.0\r\n      DO 660 IK = 1,100\r\n      XAB = DX(IK)\r\n      IF (ISECN .EQ. 0) GO TO 590\r\n      IF (ISECN .EQ. 1) GO TO 600\r\n      IF (ISECN .EQ. 2) GO TO 640\r\n      IF (ISECN .EQ. 3) GO TO 620\r\n590   Y(IK) = (OA48*(XAB-H)**4+XAB**2*XK2+B*XAB+C)*FCSLMN\r\n      SS1(IK,1) = OA/12.*(XAB-H)**3+XK2*2.*XAB+B\r\n      GO TO 660\r\n600   XD = XAB - SQ\r\n      IF (XD .GT. 0.) GO TO 610\r\n      Y(IK) = F3(A1,B1,CC1,E1)*FCSLMN\r\n      SS1(IK,1) = F5(A1,B1,CC1)\r\n      GO TO 660\r\n610   Y(IK) = F3(A2,B2,CC2,D2)*FCSLMN\r\n      SS1(IK,1) = F5(A2,B2,CC2)\r\n      GO TO 660\r\n620   IF (XAB-SQ.GT.0.0 .OR. XAB.EQ.0.0 .AND. SQ.EQ.0.0) GO TO 630\r\n      IF (BETA1 .EQ. BETA3) GO TO 650\r\n      RDIUS = RDIUS1\r\n      X1 = X11\r\n      Y1 = Y11\r\n      BTA1 = BETA1\r\n      BTA2 = BETA3\r\n      GO TO 640\r\n630   IF (BETA2 .EQ. BETA3) GO TO 650\r\n      RDIUS = RDIUS2\r\n      X1 = X12\r\n      Y1 = Y12\r\n      BTA1 = BETA3\r\n      BTA2 = BETA2\r\n640   Y(IK) = F6(XAB)*FCSLMN\r\n      SS1(IK,1) = F8(XAB)\r\n      IF (BTA1-BTA2 .LT. 0.0) SS1(IK,1) = -SS1(IK,1)\r\n      IF (BTA1-BTA2 .LT. 0.0) Y(IK) = F7(XAB)*FCSLMN\r\n      GO TO 660\r\n650   SS1(IK,1) = TAN(BETA3/C1)\r\n      IF (IK .NE. 1) YMM = Y(IK-1)/FCSLMN\r\n      IF (IK .NE. 1) XMM = DX(IK-1)\r\n      Y(IK) = (SS1(IK,1)*(XAB-XMM)+YMM)*FCSLMN\r\n660   SIGMA(IK) = DX(IK)*FCSLMN + YZERO\r\n      CALL ALG15 (SIGMA,Y,100,DX,DY,100,1)\r\n      CALL ALG15 (SIGMA,SS1(1,1),100,DX,Y,100,1)\r\n      CALL ALG15 (DX,DY,100,XBAR,XAB,1,1)\r\n      CALL ALG15 (DX,Y,100,XBAR,XBC,1,1)\r\n      XBAR = XBARB\r\n      YBAR = YBARB\r\n      IX   = 0.0\r\n      IY   = 0.0\r\n      IXY  = 0.0\r\n      DO 670 J = 2,N\r\n      DELA = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1))\r\n      IXD  = (THICK2(J)+THICK2(J-1))**3*(S(J)-S(J-1))/12.0\r\n      IYD  = (THICK2(J)+THICK2(J-1))*(S(J)-S(J-1))**3/12.0\r\n      COSANG = COS((AM(J)+AM(J-1))/C1)\r\n      IXN  = (IXD+IYD+(IXD-IYD)*COSANG)/2.0\r\n      IYN  = (IXD+IYD-(IXD-IYD)*COSANG)/2.0\r\n      IXYN = 0.0\r\n      IF (AM(J)+AM(J-1) .NE. 0.0) IXYN = ((IXN-IYN)*COSANG-IXD+IYD)/\r\n     1   (2.0*SIN((AM(J)+AM(J-1))/C1))\r\n      IX  = IX + IXN + DELA*((YM(J)+YM(J-1))/2.0-YBAR)**2\r\n      IY  = IY + IYN + DELA*((XM(J)+XM(J-1))/2.0-XBAR)**2\r\n670   IXY = IXY+ IXYN+ DELA*(YBAR-(YM(J)+YM(J-1))/2.0)*(XBAR-(XM(J)+\r\n     1      XM(J-1))/2.0)\r\n      ANG = ATAN(2.0*IXY/(IY-IX))\r\n      IPX = (IX+IY)/2.0+(IX-IY)/2.0*COS(ANG)-IXY*SIN(ANG)\r\n      IPY = (IX+IY)/2.0-(IX-IY)/2.0*COS(ANG)+IXY*SIN(ANG)\r\n      ANG = ANG/2.0*C1\r\n      XML = XM(N)\r\n      YML = YM(N)\r\n      CAMBER = BETA1 - BETA2\r\n      IF (IPRINT .GE. 2) GO TO 790\r\n      LNCT = 47\r\n      IF (ISECN.EQ.1 .OR. ISECN.EQ.3) LNCT = 49\r\n      WRITE (LOG2,680) CHORD,STAGER,CAMBER,AREA,XBAR,YBAR,IX,IY,IXY,ANG,\r\n     1                 IPX,ANG,IPY,ANG\r\n680   FORMAT ( /16X,100HNORMALISED RESULTS - ALL THE FOLLOWING REFER TO\r\n     1ABLADE HAVING A MERIDIONAL CHORD PROJECTION OF UNITY, /16X,100(1H*\r\n     2),//20X,11HBLADE CHORD,4X,1H=,F7.4, //20X,16HSTAGGER ANGLE  =,F7.3\r\n     3, //20X,16HCAMBER ANGLE   =,F7.3, //20X,16HSECTION AREA   =,F7.5,\r\n     4//20X,45HLOCATION OF CENTROID RELATIVE TO LEADING EDGE, //30X,6HXB\r\n     5AR =,F8.5, /30X,6HYBAR =,F8.5, //20X,37HSECOND MOMENTS OF AREA ABO\r\n     6UT CENTROID, //30X,6HIX   =,F8.5, /30X,6HIY   =,F8.5, /30X,6HIXY  \r\n     7=,F8.5, //20X,58HANGLE OF INCLINATION OF (ONE) PRINCIPAL AXIS TO  \r\n     8X  AXIS =,F7.3, //20X,47HPRINCIPAL SECOND MOMENTS OF AREA ABOUT CE\r\n     9NTROID, //30X,6HIPX  =,F7.5,6X,3H(AT,F7.3,15H WITH  X  AXIS), /30X\r\n     $,6HIPY  =,F7.5,6X,3H(AT,F7.3,15H WITH  Y  AXIS), //)\r\n690   FORMAT (27X,5HPOINT,8X,24HM E A N L I N E  D A T A,13X,23HSURFACE\r\n     1COORDINATE DATA, /27X,6HNUMBER,5X,1HX,7X,1HY,5X,15HANGLE THICKNESS\r\n     2,9X,2HX1,6X,2HY1,6X,2HX2,6X,2HY2, //)\r\n      WRITE (LOG2,690)\r\n      DO 710 J = 1,N\r\n      IF (LNCT .NE. 60) GO TO 700\r\n      WRITE (LOG2,10)\r\n      WRITE (LOG2,690)\r\n      LNCT = 4\r\n700   LNCT = LNCT + 1\r\n      TM   = THICK2(J)*2.0\r\n710   WRITE (LOG2,720) J,XM(J),YM(J),AM(J),TM,XS(IBL,J),YS(IBL,J),\r\n     1                 XP(IBL,J),YP(IBL,J)\r\n720   FORMAT (27X,I3,F13.5,F8.5,F7.3,F8.5,F16.5,3F8.5)\r\n      IF (ISPLIT .EQ. 0) GO TO 760\r\n      IF (LNCT  .LE. 40) GO TO 730\r\n      WRITE (LOG2,10)\r\n      LNCT = 1\r\n730   WRITE  (LOG2,740)\r\n740   FORMAT (//10X,20HSPLITTER COORDINATES, /10X,21(1H*), //2X)\r\n      WRITE (LOG2,690)\r\n      LNCT = LNCT + 11\r\n      N  = K1\r\n      DO 750 J = 1,N\r\n      TM = THICK(J)*2.\r\n      XS(IBL,J) = XSPLTS(J)\r\n      XP(IBL,J) = XSPLTP(J)\r\n      YP(IBL,J) = YSPLTP(J)\r\n      YS(IBL,J) = YSPLTS(J)\r\n      WRITE (LOG2,720) J,XSPLTM(J),YSPLTM(J),SS1(J,3),TM,XS(IBL,J),\r\n     1                 YS(IBL,J),XP(IBL,J),YP(IBL,J)\r\n      LNCT = LNCT + 1\r\n      IF (LNCT .LE. 60) GO TO 750\r\n      WRITE (LOG2,10)\r\n      WRITE (LOG2,690)\r\n      LNCT = 4\r\n750   CONTINUE\r\n760   CONTINUE\r\n      DO 770 J = 1,N\r\n      XM(J) = XS(IBL,J)\r\n      YM(J) = YS(IBL,J)\r\n      AM(J) = XP(IBL,J)\r\n770   THICK2(J) = YP(IBL,J)\r\n      WRITE  (LOG2,780) IBL\r\n780   FORMAT (1H1,45X,33HNORMALISED PLOT OF SECTION NUMBER,I3, /2X)\r\n      CALL ALG16 (N,LOG2,XM,YM,AM,THICK2)\r\n790   A2  = AXIALC**2\r\n      A4  = A2**2\r\n      IX  = IX*A4\r\n      IY  = IY*A4\r\n      IXY = IXY*A4\r\n      IPX = IPX*A4\r\n      IPY = IPY*A4\r\n      IF (ISTAK .GT. 1) GO TO 800\r\n      XBAR= ISTAK\r\n      IF (ISTAK .EQ. 0) YBAR = 0.\r\n      IF (ISTAK .EQ. 1) YBAR = YML\r\n800   RLE = YZERO*AXIALC\r\n      IF (ISPLIT .NE. 0) GO TO 810\r\n      CHORD = CHORD*AXIALC\r\n      CCORD(IBL) = CHORD\r\n      AREA = AREA*A2\r\n      XC  = RLE - XBAR*AXIALC - XDEL\r\n      YC  =-YBAR*AXIALC - YDEL\r\n      XTC = (XML-XBAR)*AXIALC - XDEL\r\n      YTC = (YML-YBAR)*AXIALC - YDEL\r\n      GO TO 860\r\n810   RLE = YZEROS*AXIALC\r\n      CHORD = CHORDS*AXIALC\r\n      AREAS = AREAS*AXIALC**2\r\n      XC  = (XSPLTM(1)-XBAR)*AXIALC - XDEL\r\n      YC  = (YSPLTM(1)-YBAR)*AXIALC - YDEL\r\n      XTC = (XSPLTM(K1)-XBAR)*AXIALC - XDEL\r\n      YTC = (YSPLTM(K1)-YBAR)*AXIALC - YDEL\r\n      XBARS = (XBARS-XBAR)*AXIALC - XDEL\r\n      YBARS = (YBARS-YBAR)*AXIALC - YDEL\r\n      IF (IPRINT .GE. 2) GO TO 940\r\n      GO TO (820,840), ISPLIT\r\n820   WRITE  (LOG2,830) CHORD,RLE,XC,YC,XBARS,YBARS,AREAS\r\n830   FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL\r\n     1ADE OF SPECIFIED CHORD, /32X,69(1H*), //20X,11HBLADE CHORD,4X,1H=,\r\n     21P,E12.5,//20X,10HEND RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=,\r\n     31P,E12.5,3H Y=,1P,E13.5, //20X,26HLOCATION OF CENTROID AT X=,\r\n     41P,E12.5,7H AND Y=,1P,E12.5, //20X,16HSECTION AREA   =,1P,E12.5,\r\n     5 //2X)\r\n      GO TO 900\r\n840   WRITE  (LOG2,850) CHORD,RLE,XC,YC,XTC,YTC,XBARS,YBARS,AREAS\r\n850   FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL\r\n     1ADE OF SPECIFIED CHORD, /32X,69(1H*), //20X,11HBLADE CHORD,4X,1H=,\r\n     21P,E12.5,//20X,10HEND RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=,\r\n     31P,E12.5,3H Y=,1P,E13.5, /64X,6HAND X=,1P,E12.5,3H Y=,1P,E13.5,\r\n     4 /20X,26HLOCATION OF CENTROID AT X=,1P,E12.5,7H AND Y=,1P,E12.5,\r\n     5 //20X,16HSECTION AREA   =,1P,E12.5, //2X)\r\n      GO TO 900\r\n860   CONTINUE\r\n      IF (IPRINT .GE. 2) GO TO 940\r\n      IF (ISECN  .EQ. 2) GO TO 880\r\n      WRITE  (LOG2,870) CHORD,RLE,XC,YC,AREA,IX,IY,IXY,IPX,ANG,IPY,ANG\r\n870   FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL\r\n     1ADE OF SPECIFIED CHORD, /32X,69(1H*),//20X,11HBLADE CHORD,4X,1H=,\r\n     31P,E12.5,//20X,10HL.E.RADIUS,5X,1H=,1P,E12.5,8X,14HCENTERED AT X=,\r\n     41P,E13.5,3H Y=,1P,E13.5, //20X,16HSECTION AREA   =,1P,E12.5,//20X,\r\n     537HSECOND MOMENTS OF AREA ABOUT CENTROID, //30X,6HIX   =,1P,E12.5,\r\n     6 /30X,6HIY   =,1P,E12.5, /30X,6HIXY  =,1P,E12.5, //20X,47HPRINCIPA\r\n     7L SECOND MOMENTS OF AREA ABOUT CENTROID, //30X,6HIPX  =,1P,E12.5,\r\n     85H  (AT,0P,F7.3,15H WITH  X  AXIS), /30X,6HIPY  =,1P,E12.5,\r\n     95H  (AT,0P,F7.3,15H WITH  Y  AXIS), //)\r\n      GO TO 910\r\n880   CONTINUE\r\n      WRITE (LOG2,890) CHORD,RLE,XC,YC,XTC,YTC,AREA,IX,IY,IXY,IPX,ANG,\r\n     1                 IPY,ANG\r\n890   FORMAT (1H1,31X,69HDIMENSIONAL RESULTS - ALL RESULTS REFER TO A BL\r\n     1ADE OF SPECIFIED CHORD, /32X,69(1H*),//20X,11HBLADE CHORD,4X,1H=,\r\n     21P,E12.5, //20X,9HEND RADII,6X,1H=,1P,E12.5,8X,14HCENTERED AT X=,\r\n     31P,E13.5,3H Y=,1P,E13.5, /64X,6HAND X=,1P,E13.5,3H Y=,1P,E13.5,\r\n     4 /20X,16HSECTION AREA   =,1P,E12.5, //20X,37HSECOND MOMENTS OF ARE\r\n     5A ABOUT CENTROID, //30X,6HIX   =,1P,E12.5, /30X,6HIY   =,1P,E12.5,\r\n     6 /30X,6HIXY  =,1P,E12.5, //20X,47HPRINCIPAL SECOND MOMENTS OF AREA\r\n     7 ABOUT CENTROID, //30X,6HIPX  =,1P,E12.5,5H  (AT,0P,F7.3,\r\n     815H WITH  X  AXIS), /30X,6HIPY  =,1P,E12.5,5H  (AT,0P,F7.3,\r\n     915H WITH  Y  AXIS), //)\r\n900   CONTINUE\r\n910   WRITE (LOG2,920)\r\n      WRITE (LOG2,930)\r\n920   FORMAT(4X,2HPT,5X,7HSURFACE,10(1H-),3HONE,8X,7HSURFACE,10(1H-),3HT\r\n     1WO,10X,2HPT,5X,7HSURFACE,10(1H-),3HONE,8X,7HSURFACE,10(1H-),3HTWO)\r\n930   FORMAT (4X,2HNO,8X,1HX,13X,1HY,13X,1HX,13X,1HY,12X,2HNO,8X,1HX,13X\r\n     1,1HY,13X,1HX,13X,1HY, //)\r\n      LNCT = 24\r\n940   DO 970 J = 1,N\r\n      XS(IBL,J) = (XS(IBL,J) - XBAR)*AXIALC - XDEL\r\n      YS(IBL,J) = (YS(IBL,J) - YBAR)*AXIALC - YDEL\r\n      XP(IBL,J) = (XP(IBL,J) - XBAR)*AXIALC - XDEL\r\n      YP(IBL,J) = (YP(IBL,J) - YBAR)*AXIALC - YDEL\r\n      IF (IPRINT  .GE. 2) GO TO 970\r\n      IF ((J/2)*2 .NE. J) GO TO 970\r\n      IF (LNCT   .NE. 60) GO TO 950\r\n      LNCT = 4\r\n      WRITE (LOG2,10)\r\n      WRITE (LOG2,920)\r\n      WRITE (LOG2,930)\r\n950   LNCT = LNCT + 1\r\n      JM1  = J - 1\r\n      WRITE (LOG2,960) JM1,XS(IBL,JM1),YS(IBL,JM1),XP(IBL,JM1),\r\n     1                 YP(IBL,JM1),J,XS(IBL,J),YS(IBL,J),XP(IBL,J),\r\n     2                 YP(IBL,J)\r\n960   FORMAT (3X,I3,4(2X,1P,E12.5),6X,I3,4(2X,1P,E12.5))\r\n970   CONTINUE\r\n      CHORDD(IBL) = CHORD\r\n      IF (ISPLIT .GT. 1) ISECN = ISPLIT\r\n      IF (IPRINT .GE. 2) GO TO 1000\r\n      IF (LNCT  .GT. 24) WRITE (LOG2,980)\r\n980   FORMAT (1H1)\r\n      IF (LNCT .GT. 24) LNCT = 2\r\n      LNCT = LNCT + 5\r\n      IF (ISECN .EQ. 2) GO TO 1030\r\n      WRITE  (LOG2,990)\r\n990   FORMAT (//48X,37HPOINTS DESCRIBING LEADING EDGE RADIUS, //48X,\r\n     1        9HPOINT NO.,6X,1HX,13X,1HY, /2X)\r\n1000  EPS = BETA1 + 180.0\r\n      IF (ISECN .EQ. 2) GO TO 1030\r\n      DO 1020 J = 1,31\r\n      XSEMI(IBL,J) = XC - RLE*SIN(EPS/C1)\r\n      YSEMI(IBL,J) = YC + RLE*COS(EPS/C1)\r\n      EPS = EPS - 6.0\r\n      IF (IPRINT .GE. 2) GO TO 1020\r\n      WRITE (LOG2,1010) J,XSEMI(IBL,J),YSEMI(IBL,J)\r\n      LNCT = LNCT + 1\r\n1010  FORMAT (48X,I5,1P,E17.5,1P,E14.5)\r\n1020  CONTINUE\r\n      GO TO 1090\r\n1030  PHISS = PHIS - ABS((BETA1-BETA2)/C2)\r\n      PHIPP = ABS((BETA1-BETA2))/C2 - PHIP\r\n      EPS   = BETA1 + 180.0\r\n      EPS2  = BETA2 + 90.\r\n      DELEP = (180.-(PHISS+PHIPP)*C1)/28.\r\n      DO 1060 J = 1,31\r\n      IF (J .NE. 1) GO TO 1040\r\n      XSEMI(IBL,J) = XP(IBL,1)\r\n      YSEMI(IBL,J) = YP(IBL,1)\r\n      XSEMJ(IBL,J) = XS(IBL,N)\r\n      YSEMJ(IBL,J) = YS(IBL,N)\r\n      EPS  = EPS  - PHIPP*C1\r\n      EPS2 = EPS2 - PHISS*C1\r\n      GO TO 1060\r\n1040  IF (J .NE. 31) GO TO 1050\r\n      XSEMI(IBL,J) = XS(IBL,1)\r\n      YSEMI(IBL,J) = YS(IBL,1)\r\n      YSEMJ(IBL,J) = YP(IBL,N)\r\n      XSEMJ(IBL,J) = XP(IBL,N)\r\n      GO TO 1060\r\n1050  XSEMI(IBL,J) = XC  - RLE*SIN(EPS/C1)\r\n      YSEMI(IBL,J) = YC  + RLE*COS(EPS/C1)\r\n      XSEMJ(IBL,J) = XTC + RLE*COS(EPS2/C1)\r\n      YSEMJ(IBL,J) = YTC + RLE*SIN(EPS2/C1)\r\n      EPS  = EPS  - DELEP\r\n      EPS2 = EPS2 - DELEP\r\n1060  CONTINUE\r\n      IF (IPRINT .GE. 2) GO TO 1090\r\n      WRITE  (LOG2,1070)\r\n1070  FORMAT (//39X,44HPOINTS DESCRIBING LEADING AND TRAILING EDGES,\r\n     1 /25X,12HLEADING EDGE,22X,13HTRAILING EDGE, /2X,9HPOINT NO.,4X,8X,\r\n     2 1HX,14X,1HY,12X,8X,1HX,14X,1HY, /2X)\r\n      WRITE (LOG2,1080) (J,XSEMI(IBL,J),YSEMI(IBL,J),XSEMJ(IBL,J),\r\n     1                   YSEMJ(IBL,J),J=1,31)\r\n      LNCT = LNCT + 31\r\n1080  FORMAT (6X,I2,7X,1P,E17.5,1P,E14.5,2X,1P,E17.5,1P,E14.5)\r\n1090  SSURF = AXIALC\r\n      SS2   =  BX - AXIALC*XBAR  - XDEL\r\n      SBAR  = SS2 + AXIALC*XBARB + XDEL\r\n      DO 1100 IK = 1,100\r\n1100  SS(IK) = SS(IK) - SBAR\r\n      CALL ALG15 (SS,X,100,0.0,SBAR,1,1)\r\n      CALL ALG15 (XHERE,R(1,IBL),NSTNS,SBAR,RXBAR,1,0)\r\n      XBARC = XBAR\r\n      YBARC = YBAR\r\n      XBAR  = XBARB + XDEL/AXIALC\r\n      YBAR  = YBARB + YDEL/AXIALC\r\n      SS1(1,1) = SS(1)\r\n      S23 = AXIALC/99.\r\n      SS(1) = SS(1) + SS2\r\n      DO 1110 IK = 2,100\r\n      SS1(IK,1) = SS(IK)\r\n1110  SS(IK) = SS(IK-1) + S23\r\n      SIGMAO = (XAB-YBAR)/RXBAR*AXIALC\r\n      DO 1120 IK = 2,100\r\n      IF (XBAR .EQ. DX(IK)) GO TO 1140\r\n      IF (XBAR.GT.DX(IK-1) .AND. XBAR.LT.DX(IK)) GO TO 1150\r\n1120  CONTINUE\r\n      WRITE  (LOG2,1130)\r\n1130  FORMAT (1H1,23H XBAR CANNOT BE LOCATED)\r\n1140  SIGMA(IK) = SIGMAO\r\n      KL = IK + 1\r\n      GO TO 1160\r\n1150  KL = IK\r\n      SIGMA(IK-1) = SIGMAO\r\n1160  SSDUM = SS(KL-1)\r\n      SS(KL-1) = 0.\r\n      YP1 = XBC\r\n      RX1 = RXBAR\r\n      DO 1170 IK = KL,100\r\n      XSURF = SS2 + DX(IK)*SSURF + SS1(1,1)\r\n      CALL ALG15 (SS1(1,1),X,100,XSURF,XDUM,1,1)\r\n      CALL ALG15 (XHERE,R(1,IBL),NSTNS,XDUM,RX2,1,0)\r\n      SIGMA(IK) = SIGMA(IK-1) + (Y(IK)/RX2+YP1/RX1)/2.*(SS(IK)-SS(IK-1))\r\n      YP1 = Y(IK)\r\n1170  RX1 = RX2\r\n      SS(KL-1) = SSDUM\r\n      SSDUM  = SS(KL)\r\n      SIGDUM = SIGMA(KL)\r\n      SIGMA(KL) = SIGMAO\r\n      SS(KL) = 0.\r\n      RX1 = RXBAR\r\n      YP1 = XBC\r\n      KM  = KL - 1\r\n      DO 1180 IK = 1,KM\r\n      KJ  = KL - IK\r\n      XSURF = SS2 + DX(KJ)*SSURF + SS1(1,1)\r\n      CALL ALG15 (SS1(1,1),X,100,XSURF,XDUM,1,1)\r\n      CALL ALG15 (XHERE,R(1,IBL),NSTNS,XDUM,RX2,1,0)\r\n      SIGMA(KJ) = SIGMA(KJ+1)-(Y(KJ)/RX2+YP1/RX1)/2.*(SS(KJ+1)-SS(KJ))\r\n      YP1 = Y(KJ)\r\n1180  RX1 = RX2\r\n      SIGMA(KL) = SIGDUM\r\n      SS(KL) = SSDUM\r\n      DO 1190 IK = 1,100\r\n1190  SS(IK) = SS1(IK,1)\r\n      XBAR = XBARC\r\n      YBAR = YBARC\r\n      DO 1200 IK = 1,N\r\n      SS1(IK,1) = SS2 + ((XS(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1)\r\n1200  SS1(IK,2) = SS2 + ((XP(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1)\r\n      DO 1210 IK =1,31\r\n1210  SS1(IK,3) = SS2 + ((XSEMI(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1)\r\n      IF (ISECN .NE. 2) GO TO 1230\r\n      DO 1220 IK = 1,31\r\n1220  SS1(IK,4) = SS2 + ((XSEMJ(IBL,IK)+XDEL)/AXIALC+XBAR)*SSURF+SS(1)\r\n      CALL ALG15 (SS,X,100,SS1(1,4),SS1(1,4),31,1)\r\n1230  CALL ALG15 (SS,X,100,SS1(1,1),SS1(1,1),N,1)\r\n      CALL ALG15 (SS,X,100,SS1(1,2),SS1(1,2),N,1)\r\n      CALL ALG15 (SS,X,100,SS1(1,3),SS1(1,3),31,1)\r\n      IF (ISTAK .GT. 1) GO TO 1250\r\n      IF (ISTAK .EQ. 1) SIGMAO = SIGMA(100)\r\n      IF (ISTAK .EQ. 0) SIGMAO = SIGMA(1)\r\n      DO 1240 IK = 1,100\r\n1240  SIGMA(IK) = SIGMA(IK) - SIGMAO\r\n1250  DO 1260 IK = 1,100\r\n      DX(IK) = (DX(IK)-XBAR)*AXIALC - XDEL\r\n1260  DY(IK) = (DY(IK)-YBAR)*AXIALC - YDEL\r\n      DO 1280 MK = 1,4\r\n      IF (ISECN.NE.2 .AND. MK.EQ.4) GO TO 1280\r\n      IF (MK.EQ.4 .OR. MK.EQ.3) NNN = 31\r\n      IF (MK.EQ.1 .OR. MK.EQ.2) NNN = N\r\n      DO 1270 IK = 1,NNN\r\n      IF (MK .EQ. 1) YP1 = YS(IBL,IK)\r\n      IF (MK .EQ. 2) YP1 = YP(IBL,IK)\r\n      IF (MK .EQ. 3) YP1 = YSEMI(IBL,IK)\r\n      IF (MK .EQ. 4) YP1 = YSEMJ(IBL,IK)\r\n      IF (MK .EQ. 1) RX1 = XS(IBL,IK)\r\n      IF (MK .EQ. 2) RX1 = XP(IBL,IK)\r\n      IF (MK .EQ. 3) RX1 = XSEMI(IBL,IK)\r\n      IF (MK .EQ. 4) RX1 = XSEMJ(IBL,IK)\r\n      CALL ALG15 (DX,DY,100,RX1,RXBAR,1,1)\r\n      DELLY = YP1 - RXBAR\r\n      CALL ALG15 (XHERE,R(1,IBL),NSTNS,SS1(IK,MK),RAB,1,0)\r\n      DELSIG = DELLY/RAB\r\n      CALL ALG15 (DX,SIGMA,100,RX1,XAB,1,1)\r\n1270  SS1(IK,MK) = XAB + DELSIG\r\n1280  CONTINUE\r\n      RETURN\r\nC\r\n1290  WRITE  (LOG2,1300)\r\n1300  FORMAT (1H1,10X,54HITERATIVE SOLUTION FOR CONSTANT FAILS - CASE AB\r\n     1ANDONED)\r\n      CALL MESAGE (-37,0,NAME)\r\n      END\r\n"
  },
  {
    "path": "mis/alg14.f",
    "content": "      SUBROUTINE ALG14 (XDATA,YDATA,NDATA,XIN,YOUT,YPRIME,NXY,NWOT)\r\nC\r\nC     THIS SPLINE ROUTINE DETERMINES Y AND/OR YPRIME  LINEAR EXTRAPOLATI\r\nC     XDATA AND XIN MUST BE IN ASCENDING ORDER  E1 AND E2 ARE D2YDX2 LAS\r\nC     D2YDX2 LAST-BUT-ONE AT ENDS OF SPECIFIED REGION OF BEAM\r\nC\r\n      REAL M\r\nC\r\n      DIMENSION A(65), B(65), D(65), M(65), XDATA(2), YDATA(2), XIN(1),\r\n     1YOUT(1), YPRIME(1)\r\nC\r\n      IF (NDATA-2) 240,10,70\r\n10    IF (NWOT-1) 20,40,20\r\n20    DO 30 I=1,NXY\r\n30    YOUT(I)=((YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1)))*(XIN(I)-XDATA(1)\r\n     1)+YDATA(1)\r\n40    IF (NWOT) 240,240,50\r\n50    DO 60 I=1,NXY\r\n60    YPRIME(I)=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))\r\n      GO TO 240\r\n70    CONTINUE\r\n      E1=1.0\r\n      E2=1.0\r\n      A(1)=1.0\r\n      B(1)=-E1\r\n      D(1)=0.0\r\n      N=NDATA-1\r\n      DO 80 I=2,N\r\n      A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0\r\n     1*A(I-1))\r\n      B(I)=(XDATA(I+1)-XDATA(I))/6.0\r\n80    D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I\r\n     1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/6.0/A(I-1)\r\n      A(NDATA)=-E2\r\n      B(NDATA)=1.0\r\n      D(NDATA)=0.0\r\n      M(NDATA)=A(NDATA)*D(N)/(A(NDATA)*B(N)-A(N)*B(NDATA))\r\n      DO 90 II=2,NDATA\r\n      I=NDATA+1-II\r\n90    M(I)=(D(I)-B(I)*M(I+1))/A(I)\r\n      J=1\r\n      I=1\r\n100   IF (XIN(I)-XDATA(1)) 190,190,110\r\n110   IF (XIN(I)-XDATA(J+1)) 140,140,120\r\n120   IF (J+1-NDATA) 130,140,140\r\n130   J=J+1\r\n      GO TO 110\r\n140   IF (XIN(I)-XDATA(NDATA)) 150,220,220\r\n150   DX=XDATA(J+1)-XDATA(J)\r\n      IF (NWOT-1) 160,170,160\r\n160   YOUT(I)=M(J)/(6.0*DX)*(XDATA(J+1)-XIN(I))**3+M(J+1)/(6.0*DX)*(XIN(\r\n     1I)-XDATA(J))**3+(XDATA(J+1)-XIN(I))*(YDATA(J)/DX-M(J)/6.0*DX)+(XIN\r\n     2(I)-XDATA(J))*(YDATA(J+1)/DX-M(J+1)/6.0*DX)\r\n      IF (NWOT) 170,180,170\r\n170   YPRIME(I)=(-M(J)*(XDATA(J+1)-XIN(I))**2/2.0+M(J+1)*(XIN(I)-XDATA(J\r\n     1))**2/2.0+YDATA(J+1)-YDATA(J))/DX-(M(J+1)-M(J))/6.0*DX\r\n180   I=I+1\r\n      IF (I-NXY) 100,100,240\r\n190   YDASH=(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))-(M(1)/3.0+M(2)/6.0)*\r\n     1(XDATA(2)-XDATA(1))\r\n      IF (NWOT-1) 200,210,200\r\n200   YOUT(I)=YDATA(1)-YDASH*(XDATA(1)-XIN(I))\r\n      IF (NWOT) 210,180,210\r\n210   YPRIME(I)=YDASH\r\n      GO TO 180\r\n220   YDASH=(YDATA(NDATA)-YDATA(N))/(XDATA(NDATA)-XDATA(N))+(M(NDATA)/3.\r\n     10+M(N)/6.0)*(XDATA(NDATA)-XDATA(N))\r\n      IF (NWOT-1) 230,210,230\r\n230   YOUT(I)=YDATA(NDATA)+YDASH*(XIN(I)-XDATA(NDATA))\r\n      IF (NWOT) 210,180,210\r\n240   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg15.f",
    "content": "      SUBROUTINE ALG15 (XDATA,YDATA,NDATA,XIN,YOUT,NXY,NTYPE)\r\nC\r\n      REAL M\r\nC\r\n      DIMENSION M(21), A(21), B(21), D(21), XDATA(2), YDATA(2), XIN(1),\r\n     1YOUT(1)\r\nC\r\n      IF (NDATA-1) 10,10,30\r\n10    DO 20 I=1,NXY\r\n20    YOUT(I)=YDATA(1)\r\n      RETURN\r\n30    IF (NDATA-2) 50,50,40\r\n40    IF (NTYPE) 180,180,50\r\n50    J=1\r\n      I=1\r\n60    IF (XIN(I)-XDATA(2)) 130,130,70\r\n70    IF (XIN(I)-XDATA(NDATA-1)) 80,140,140\r\n80    IF (XIN(I)-XDATA(J)) 100,120,90\r\n90    IF (XIN(I)-XDATA(J+1)) 120,120,100\r\n100   J=J+1\r\n      IF (J-NDATA) 80,110,110\r\n110   J=1\r\n      GO TO 80\r\n120   YOUT(I)=YDATA(J)+(YDATA(J+1)-YDATA(J))/(XDATA(J+1)-XDATA(J))*(XIN(\r\n     1I)-XDATA(J))\r\n      GO TO 150\r\n130   YOUT(I)=YDATA(1)+(YDATA(2)-YDATA(1))/(XDATA(2)-XDATA(1))*(XIN(I)-X\r\n     1DATA(1))\r\n      GO TO 150\r\n140   YOUT(I)=YDATA(NDATA-1)+(YDATA(NDATA)-YDATA(NDATA-1))/(XDATA(NDATA)\r\n     1-XDATA(NDATA-1))*(XIN(I)-XDATA(NDATA-1))\r\n150   IF (I-NXY) 160,170,170\r\n160   I=I+1\r\n      GO TO 60\r\n170   RETURN\r\n180   A(1)=1.0\r\n      B(1)=0.0\r\n      D(1)=0.0\r\n      N=NDATA-1\r\n      DO 190 I=2,N\r\n      A(I)=(XDATA(I+1)-XDATA(I-1))/3.0-(XDATA(I)-XDATA(I-1))*B(I-1)/(6.0\r\n     1*A(I-1))\r\n      B(I)=(XDATA(I+1)-XDATA(I))/6.0\r\n190   D(I)=(YDATA(I+1)-YDATA(I))/(XDATA(I+1)-XDATA(I))-(YDATA(I)-YDATA(I\r\n     1-1))/(XDATA(I)-XDATA(I-1))-(XDATA(I)-XDATA(I-1))*D(I-1)/6.0/A(I-1)\r\n      M(NDATA)=0.0\r\n      DO 200 II=2,N\r\n      I=NDATA+1-II\r\n200   M(I)=(D(I)-B(I)*M(I+1))/A(I)\r\n      M(1)=0.0\r\n      J=1\r\n      I=1\r\n210   IF (XIN(I)-XDATA(1)) 230,260,220\r\n220   IF (XIN(I)-XDATA(NDATA)) 280,270,240\r\n230   JP=1\r\n      KP=2\r\n      GO TO 250\r\n240   JP=NDATA\r\n      KP=NDATA-1\r\n250   YPRIME=(YDATA(KP)-YDATA(JP))/(XDATA(KP)-XDATA(JP))-M(KP)/6.0*(XDAT\r\n     1A(KP)-XDATA(JP))\r\n      YOUT(I)=YDATA(JP)+(XIN(I)-XDATA(JP))*YPRIME\r\n      GO TO 350\r\n260   YOUT(I)=YDATA(1)\r\n      GO TO 350\r\n270   YOUT(I)=YDATA(NDATA)\r\n      GO TO 350\r\n280   IF (XIN(I)-XDATA(J)) 300,320,290\r\n290   IF (XIN(I)-XDATA(J+1)) 340,330,300\r\n300   J=J+1\r\n      IF (J-NDATA) 280,310,310\r\n310   J=1\r\n      GO TO 280\r\n320   YOUT(I)=YDATA(J)\r\n      GO TO 350\r\n330   YOUT(I)=YDATA(J+1)\r\n      GO TO 350\r\n340   DX=XDATA(J+1)-XDATA(J)\r\n      YOUT(I)=M(J)/(6.0*DX)*(XDATA(J+1)-XIN(I))**3+M(J+1)/(6.0*DX)*(XIN(\r\n     1I)-XDATA(J))**3+(XDATA(J+1)-XIN(I))*(YDATA(J)/DX-M(J)/6.0*DX)+(XIN\r\n     2(I)-XDATA(J))*(YDATA(J+1)/DX-M(J+1)/6.0*DX)\r\n350   IF (I-NXY) 360,370,370\r\n360   I=I+1\r\n      GO TO 210\r\n370   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg16.f",
    "content": "      SUBROUTINE ALG16 (IX,LOG1,X1,Y1,X2,Y2)\r\nC\r\n      REAL LINE\r\nC\r\n      DIMENSION X1(1), Y1(1), X2(1), Y2(1), LINE(121), XNUM(13)\r\nC\r\n      DATA SYMBOL/1H*/,DASH/1H-/,CROSS/1H+/,BLANK/1H /,XI/1HI/\r\nC\r\n      YMIN=Y1(1)\r\n      XMIN=X1(1)\r\n      YMAX=YMIN\r\n      XMAX=XMIN\r\n      DO 10 I=1,IX\r\n      IF (Y2(I).LT.YMIN) YMIN=Y2(I)\r\n      IF (Y2(I).GT.YMAX) YMAX=Y2(I)\r\n      IF (X2(I).LT.XMIN) XMIN=X2(I)\r\n      IF (X2(I).GT.XMAX) XMAX=X2(I)\r\n      IF (Y1(I).GT.YMAX) YMAX=Y1(I)\r\n      IF (X1(I).GT.XMAX) XMAX=X1(I)\r\n10    CONTINUE\r\n      IF (XMAX.EQ.XMIN.OR.YMIN.EQ.YMAX) GO TO 170\r\n      YH=YMAX+(YMAX-YMIN)/25.0\r\n      YL=YMIN-(YMAX-YMIN)/25.0\r\n      XH=XMAX+(XMAX-XMIN)/38.3333\r\n      XL=XMIN-(XMAX-XMIN)/38.3333\r\n      IF ((YH-YL)/(XH-XL).GT.0.75) XH=1.3333*(YH-YL)+XL\r\n      IF ((YH-YL)/(XH-XL).LT.0.75) YH=0.75*(XH-XL)+YL\r\n      XMAX=(XMIN+XMAX-XH+XL)/2.0\r\n      XH=XH-XL+XMAX\r\n      XL=XMAX\r\n      XMAX=(YMIN+YMAX-YH+YL)/2.0\r\n      YH=YH-YL+XMAX\r\n      YL=XMAX\r\n      XMAX=ABS(XH)\r\n      XMIN=ABS(XL)\r\n      YMIN=ABS(YL)\r\n      YMAX=ABS(YH)\r\n      IF (XMIN.GT.XMAX) XMAX=XMIN\r\n      IF (YMIN.GT.YMAX) YMAX=YMIN\r\n      XMAX=ALOG10(XMAX)\r\n      YMAX=ALOG10(YMAX)\r\n      IF (XMAX.LT.0.0) XMAX=XMAX-1.0\r\n      IF (YMAX.LT.0.0) YMAX=YMAX-1.0\r\n      MX=-XMAX\r\n      MY=-YMAX\r\n      WRITE (LOG1,20) MX,MY\r\n20    FORMAT (20X,46HSCALES -  X  IS SHOWN TIMES 10 TO THE POWER OF,I3,4\r\n     10H    Y  IS SHOWN TIMES 10 TO THE POWER OF,I3,/)\r\n      YINC=(YH-YL)/54.0\r\n      YINC2=YINC/2.0\r\n      XRANGE=XH-XL\r\n      DO 140 KLINE=1,55\r\n      IF (KLINE.EQ.1.OR.KLINE.EQ.55) GO TO 50\r\n      DO 30 L=2,120\r\n30    LINE(L)=BLANK\r\n      IF (KLINE.EQ.7.OR.KLINE.EQ.13.OR.KLINE.EQ.19.OR.KLINE.EQ.25.OR.KLI\r\n     1NE.EQ.31.OR.KLINE.EQ.37.OR.KLINE.EQ.43.OR.KLINE.EQ.49) GO TO 40\r\n      LINE(1)=XI\r\n      LINE(121)=XI\r\n      GO TO 80\r\n40    LINE(1)=DASH\r\n      LINE(121)=DASH\r\n      GO TO 80\r\n50    DO 60 L=2,120\r\n60    LINE(L)=DASH\r\n      LINE(1)=CROSS\r\n      LINE(121)=CROSS\r\n      DO 70 L=11,111,10\r\n70    LINE(L)=XI\r\n      GO TO 120\r\n80    DO 100 I=1,IX\r\n      IF (Y2(I).GT.YH+YINC2.OR.Y2(I).LE.YH-YINC2) GO TO 90\r\n      L=(X2(I)-XL)/XRANGE*120.0+1.5\r\n      LINE(L)=SYMBOL\r\n90    IF (Y1(I).GT.YH+YINC2.OR.Y1(I).LE.YH-YINC2) GO TO 100\r\n      L=(X1(I)-XL)/XRANGE*120.0+1.5\r\n      LINE(L)=SYMBOL\r\n100   CONTINUE\r\n      IF (KLINE.EQ.1.OR.KLINE.EQ.7.OR.KLINE.EQ.13.OR.KLINE.EQ.19.OR.KLIN\r\n     1E.EQ.25.OR.KLINE.EQ.31.OR.KLINE.EQ.37.OR.KLINE.EQ.43.OR.KLINE.EQ.4\r\n     29.OR.KLINE.EQ.55) GO TO 120\r\n      WRITE (LOG1,110) LINE\r\n110   FORMAT (8X,121A1)\r\n      GO TO 140\r\n120   YNUM=YH*10.0**MY\r\n      WRITE (LOG1,130) YNUM,LINE\r\n130   FORMAT (1X,F6.3,1X,121A1)\r\n140   YH=YH-YINC\r\n      XNUM(1)=XL*10.0**MX\r\n      XINC=((XH-XL)/12.0)*10.0**MX\r\n      DO 150 I=2,13\r\n150   XNUM(I)=XNUM(I-1)+XINC\r\n      WRITE (LOG1,160) XNUM\r\n160   FORMAT (6X,12(F6.3,4X),F6.3)\r\n      RETURN\r\n170   WRITE (LOG1,180)\r\n180   FORMAT (//,35X,54HNO PLOT HAS BEEN MADE BECAUSE  X  OR  Y  RANGE I\r\n     1S ZERO)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg17.f",
    "content": "      SUBROUTINE ALG17 (ISTAK,PLTSZE,ITRIG,TITLE,IKDUM,IFPLOT)\r\nC\r\n      DIMENSION TITLE(18)\r\nC\r\n      PLTTIT=PLTSZE*.1\r\n      IF (ISTAK.LT.2) GO TO 10\r\n      BAL=.35*PLTSZE\r\n      XLEN1=.3*PLTSZE\r\n      XLEN2=XLEN1\r\n      YLEN1=.25*PLTSZE\r\n      YLEN2=-1.*YLEN1\r\n      XBACK1=-1.9\r\n      XBACK2=-6.2\r\n      GO TO 50\r\n10    IF (ISTAK.EQ.0) GO TO 20\r\n      XLEN1=.70*PLTSZE\r\n      XLEN2=.15*PLTSZE\r\n      XBACK1=-1.9-.20*PLTSZE\r\n      XBACK2=-6.2-.20*PLTSZE\r\n      IF (IKDUM.EQ.1) GO TO 30\r\n      GO TO 40\r\n20    CONTINUE\r\n      XLEN1=.15*PLTSZE\r\n      XLEN2=.70*PLTSZE\r\n      XBACK1=-1.9+.20*PLTSZE\r\n      XBACK2=-6.2+.20*PLTSZE\r\n      IF (IKDUM.EQ.1) GO TO 40\r\n30    BAL=.25*PLTSZE\r\n      YLEN1=.50*PLTSZE\r\n      YLEN2=-.15*PLTSZE\r\n      GO TO 50\r\n40    BAL=.50*PLTSZE\r\n      YLEN1=.15*PLTSZE\r\n      YLEN2=-.50*PLTSZE\r\n50    CONTINUE\r\n      YBACK1=-(.35+BAL)\r\n      YBACK2=YBACK1-.01*PLTSZE-.175\r\n      GO TO (60,70), ITRIG\r\n60    CONTINUE\r\n      GO TO 80\r\n70    XBACK1=XBACK1+0.35\r\n80    CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg18.f",
    "content": "      SUBROUTINE ALG18 (BETA1,BETA2,I1,I2,FACT,X0,Y0,S0,XR,Y1,X1,Y2,RDI\r\n     1US,S,C1)\r\nC\r\n      DIMENSION S(80)\r\nC\r\n      DELX=XR/FLOAT(I2-I1)\r\n      XX=X0\r\n      I3=I1+1\r\n      IF (BETA1.EQ.BETA2) GO TO 20\r\n      Y1=-COS(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1))\r\n      X1=SIN(BETA1/C1)/(SIN(BETA1/C1)-SIN(BETA2/C1))\r\n      Y2=TAN((BETA1+BETA2)/(2.0*C1))\r\n      RDIUS=ABS(1.0/(SIN(BETA1/C1)-SIN(BETA2/C1)))\r\n      Y2=Y2*FACT+Y0\r\n      Y1=Y1*FACT+Y0\r\n      X1=X1*FACT+X0\r\n      RDIUS=RDIUS*FACT\r\n      DO 10 J=I3,I2\r\n      XX=XX+DELX\r\n      PHI1=ATAN(-1./SQRT(RDIUS**2-(XX-X1)**2)*(XX-X1))\r\n      IF ((BETA1-BETA2).LT.0.0) PHI1=-PHI1\r\n      PHI2=ABS(BETA1/C1-PHI1)\r\n10    S(J)=RDIUS*PHI2+S0\r\n      RETURN\r\n20    AM=TAN(BETA1/C1)\r\n      DO 30 J=I3,I2\r\n      XX=XX+DELX\r\n30    S(J)=(XX-X0)*SQRT(AM*AM+1.0)+S0\r\n      Y2=AM*(XX-X0)+Y0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg19.f",
    "content": "      SUBROUTINE ALG19 (LOG1,LOG2,LOG3,LOG5,NLINES,NSPEC,KPTS,RSTA,\r\n     1                  XSTA,R,ZR,B1,B2,TC,PI,C1,NBLADE,CCORD,BLOCK,\r\n     2                  ALPB,EPSLON,IFANGS,IPUNCH,NAERO)\r\nC\r\n      DIMENSION       IDATA(24),RDATA(6),KPTS(1),RSTA(21,10),\r\n     1                XSTA(21,10),R(10,21),ZR(1),B1(1),B2(1),TC(1),\r\n     2                CCORD(1),BLOCK(10,21),ALPB(10,21),EPSLON(10,21),\r\n     3                NR(10),NTERP(10),NMACH(10),NLOSS(10),NL1(10),\r\n     4                NL2(10),NEVAL(10),NCURVE(10),NLITER(10),NDEL(10),\r\n     5                RR(21,10),XLOSS(21,10),RTE(5),DM(11,5),\r\n     6                DVFRAC(11,5),RDTE(21),DELTAD(21),AC(21),F137B(8),\r\n     7                F137S(5),F142TC(7),F161D(8,5),F195M(8,2),F164XB(8)\r\n     8,               F172K(7),NOUT1(10),NOUT2(10),SOL(21),DEV(10,21),\r\n     9                DEVV(10,5),DX(10),X(10),DOO(5),IFANGS(1),\r\n     O                NOUT3(10),NBLAD(10)\r\n      COMMON /UD3PRT/ IPRTC\r\n      DATA    F137B / 0.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0/\r\n      DATA    F137S / 0.4,0.8,1.2,1.6,2.0/\r\n      DATA    F142TC/ 0.0,0.02,0.04,0.06,0.08,0.10,0.12/\r\n      DATA    F161D / 0.0,0.009,0.17,0.29,0.42,0.59,0.79,1.05,0.0,0.12,\r\n     1                0.30,0.51,0.75,1.05,1.47,2.07,0.0,0.16,0.33,0.61,\r\n     2                0.95,1.42,2.12,3.07,0.0,0.17,0.40,0.72,1.11,1.71,\r\n     3                2.62,3.95,0.0,0.2,0.44,0.78,1.21,1.90,3.01,4.75/\r\n      DATA    F195M / 0.17,0.173,0.179,0.189,0.206,0.232,0.269,0.310,\r\n     1                0.25,0.255,0.261,0.268,0.278,0.292,0.312,0.342 /\r\n      DATA    F164XB/ 0.965,0.945,0.921,0.890,0.850,0.782,0.679,0.550/\r\n      DATA    F172K / 0.0,0.160,0.331,0.521,0.74,1.0,1.300/\r\nC\r\n      LMAX   = 60\r\n      CALL FREAD (LOG1,IDATA,6,1)\r\n      NRAD   = IDATA(1)\r\n      NDPTS  = IDATA(2)\r\n      NDATR  = IDATA(3)\r\n      NSWITC = IDATA(4)\r\n      NLE    = IDATA(5)\r\n      NTE    = IDATA(6)\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      XKSHPE = RDATA(1)\r\n      SPEED  = RDATA(2)\r\n      CALL FREAD (LOG1,IDATA,3,1)\r\n      NOUT1(NLE) = IDATA(1)\r\n      NOUT2(NLE) = IDATA(2)\r\n      NOUT3(NLE) = IDATA(3)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,20) NRAD,NDPTS,NDATR,NSWITC,NLE,NTE,\r\n     1       XKSHPE,SPEED,NLE,NOUT1(NLE),NOUT2(NLE),NOUT3(NLE)\r\n   20 FORMAT (1H1,9X,'DATA INTERFACING ROUTINE - DEVIATION CALCULATIONS'\r\n     1,      ' AND DATA FORMATTING', /10X,69(1H*), /10X,5HINPUT, /10X,\r\n     2       5(1H*), //10X,6HNRAD =,I3,9H  NDPTS =,I3,9H  NDATR =,I3,\r\n     3       11H  NSWITCH =,I2,7H  NLE =,I2,7H  NTE =,I3, //10X,\r\n     4       8HXKSHPE =,F7.4,9H  SPEED =,F9.1, //10X,'AT LEADING EDGE ',\r\n     5       '(STATION,I3,9H) NOUT1 =',I2,9H  NOUT2 =,I2,9H  NOUT3 =,I2)\r\n      LNCT = 10\r\n      K    = NLE + 1\r\n      DO 80 I = K,NTE\r\n      CALL FREAD (LOG1,IDATA,14,1)\r\n      NR(I)     = IDATA(1)\r\n      NTERP(I)  = IDATA(2)\r\n      NMACH(I)  = IDATA(3)\r\n      NLOSS(I)  = IDATA(4)\r\n      NL1(I)    = IDATA(5)\r\n      NL2(I)    = IDATA(6)\r\n      NEVAL(I)  = IDATA(7)\r\n      NCURVE(I) = IDATA(8)\r\n      NLITER(I) = IDATA(9)\r\n      NDEL(I)   = IDATA(10)\r\n      NOUT1(I)  = IDATA(11)\r\n      NOUT2(I)  = IDATA(12)\r\n      NOUT3(I)  = IDATA(13)\r\n      NBLAD(I)  = IDATA(14)\r\n      IF (LNCT+6+NR(I) .LE. LMAX) GO TO 50\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,40)\r\n   40 FORMAT (1H1)\r\n      LNCT = 1\r\n   50 LNCT = LNCT + 6 + NR(I)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,60) I,NR(I),NTERP(I),NMACH(I),\r\n     1       NLOSS(I),NL1(I),NL2(I),NEVAL(I),NCURVE(I),NLITER(I),\r\n     2       NDEL(I),NOUT1(I),NOUT2(I),NOUT3(I),NBLAD(I)\r\n   60 FORMAT (/10X,7HSTATION,I3,7H   NR =,I3,9H  NTERP =,I2,9H  NMACH =,\r\n     1       I2,9H  NLOSS =,I2,7H  NL1 =,I3,7H  NL2 =,I3,9H  NEVAL =,I2,\r\n     2       8HNCURVE =,I2,10H  NLITER =,I3,8H  NDEL =,I2, /22X,\r\n     3       7HNOUT1 =,I2,9H  NOUT2 =,I2,9H  NOUT3 =,I2,9H  NBLAD =,I3)\r\n      L1 = NR(I)\r\n      DO 70 J = 1,L1\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      RR(J,I)    = RDATA(1)\r\n   70 XLOSS(J,I) = RDATA(2)\r\n   80 IF (IPRTC .EQ. 1) WRITE (LOG2,90) (RR(J,I),XLOSS(J,I),J=1,L1)\r\n   90 FORMAT (/14X,6HRADIUS,6X,15HLOSS DESCRIPTOR,//,(F20.4,F17.6))\r\n      IF (LNCT+7+NDPTS .LE. LMAX) GO TO 100\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,40)\r\n      LNCT = 1\r\n  100 LNCT = LNCT + 2\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,110) NRAD\r\n  110 FORMAT (/10X,28HDEVIATION FRACTION CURVES AT,I2,6H RADII)\r\n      DO 140 K = 1,NRAD\r\n      IF (LNCT+5+NDPTS .LE. LMAX) GO TO 120\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,40)\r\n      LNCT = 1\r\n  120 LNCT = LNCT + 5 + NDPTS\r\n      CALL FREAD (LOG1,RTE(K),1,1)\r\n      DO 130 J = 1,NDPTS\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      DM(J,K)     = RDATA(1)\r\n  130 DVFRAC(J,K) = RDATA(2)\r\n  140 IF (IPRTC .EQ. 1) WRITE (LOG2,150) RTE(K),(DM(J,K),DVFRAC(J,K),\r\n     1       J=1,NDPTS)\r\n  150 FORMAT (/10X,5HRTE =,F8.4, //15X,2HDM,10X,6HDVFRAC, //,\r\n     1       (F20.5,F13.5))\r\n      DO 160 J = 1,NDATR\r\n      CALL FREAD (LOG1,RDATA,3,1)\r\n      RDTE(J)   = RDATA(1)\r\n      DELTAD(J) = RDATA(2)\r\n  160 AC(J)     = RDATA(3)\r\n      IF (LNCT+3+NDATR .LE. LMAX) GO TO 170\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,40)\r\n      LNCT = 1\r\n  170 LNCT = LNCT + 3 + NDATR\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,180) (RDTE(J),DELTAD(J),AC(J),\r\n     1       J=1,NDATR)\r\n  180 FORMAT (/15X,4HRDTE,6X,6HDELTAD,9X,2HAC,//,(F20.4,F11.3,F13.4))\r\n      IF (LNCT+6+NLINES .LE. LMAX) GO TO 190\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,40)\r\n      LNCT = 1\r\n  190 LNCT = LNCT + 6 + NLINES\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,200)\r\n  200 FORMAT (/10X,7HRESULTS, /,10X,7(1H*))\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,210)\r\n  210 FORMAT (/5X,10HSTREAMLINE,5X,5HBETA1,6X,5HBETA2,5X,6HCAMBER,7X,\r\n     1       3HT/C,8X,3HA/C,6X,8HSOLIDITY,4X,11HADDIT. DEVN,4X,\r\n     2       15HTOTAL DEVIATION,/)\r\n      DO 290 J = 1,NLINES\r\n      XJ = J\r\n      CALL ALG15 (ZR,B1,NSPEC,XJ,BETA1,1,0)\r\n      CALL ALG15 (ZR,B2,NSPEC,XJ,BETA2,1,0)\r\n      CALL ALG15 (ZR,TC,NSPEC,XJ,THICK,1,0)\r\n      Q = 1.0\r\n      IF (SPEED .GT. 0.0) Q = -1.0\r\n      CAMBER = (BETA1-BETA2)*Q\r\n      SOLID  = CCORD(J)*FLOAT(NBLADE)/(PI*(R(NLE,J)+R(NTE,J)))\r\n      BETA1  = BETA1*Q\r\n      CALL ALG15 (F137B,F195M(1,NSWITC),8,BETA1,XMS,1,0)\r\n      CALL ALG15 (F137B,F164XB,8,BETA1,XB,1,0)\r\n      CALL ALG15 (F142TC,F172K,7,THICK,XKDT,1,0)\r\n      DO 220 K = 1,5\r\n  220 CALL ALG15 (F137B,F161D(1,K),8,BETA1,DOO(K),1,0)\r\n      CALL ALG15 (F137S,DOO,5,SOLID,DO,1,1)\r\n      CALL ALG15 (RDTE,DELTAD,NDATR,R(NTE,J),DADD,1,0)\r\n      CALL ALG15 (RDTE,AC,NDATR,R(NTE,J),AONC,1,0)\r\n      SOL(J) = SOLID\r\n      DEV(NTE,J) = (DADD+DO*XKSHPE*XKDT+CAMBER*SOLID**(-XB)*\r\n     1             (XMS+0.5*(AONC-0.5)))*Q\r\n      BETA2  = BETA2*Q\r\n      DO 230 I = NLE,NTE\r\n  230 CALL ALG15 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),X(I),1,0)\r\n      DX(NLE) = 0.0\r\n      K = NLE + 1\r\n      DO 240 I = K,NTE\r\n  240 DX(I) = DX(I-1) + SQRT((X(I)-X(I-1))**2+(R(I,J)-R(I-1,J))**2)\r\n      X1 = DX(NTE)\r\n      DO 250 I = K,NTE\r\n  250 DX(I) = DX(I)/X1\r\n      L2 = NTE - NLE - 1\r\n      K  = NLE + 1\r\n      DO 260 L1 = 1,NRAD\r\n  260 CALL ALG15 (DM(1,L1),DVFRAC(1,L1),NDPTS,DX(K),DEVV(K,L1),L2,0)\r\n      KK = NTE - 1\r\n      DO 280 I  = K,KK\r\n      DO 270 L1 = 1,NRAD\r\n  270 DOO(L1) = DEVV(I,L1)\r\n      CALL ALG15 (RTE,DOO,NRAD,R(NTE,J),DEVFR,1,0)\r\n  280 DEV(I,J) = DEV(NTE,J)*DEVFR\r\n  290 IF (IPRTC .EQ. 1) WRITE (LOG2,300) J,BETA1,BETA2,CAMBER,THICK,\r\n     1       AONC,SOLID,DADD,DEV(NTE,J)\r\n  300 FORMAT (I11,F14.3,2F11.3,2F11.4,F12.5,F14.4,F17.4)\r\n      IF (IFANGS(NLE) .EQ. 0) GO TO 340\r\n      IF (NAERO .EQ. 0) GO TO 330\r\n      IDATA(1)  = NLINES\r\n      IDATA(2)  = 0\r\n      IDATA(3)  = 0\r\n      IDATA(4)  = 0\r\n      IDATA(5)  = 0\r\n      IDATA(6)  = 0\r\n      IDATA(7)  = 0\r\n      IDATA(8)  = 0\r\n      IDATA(9)  = 0\r\n      IDATA(10) = 0\r\n      IDATA(11) = 0\r\n      IDATA(12) = 0\r\n      IDATA(13) = NOUT1(NLE)\r\n      IDATA(14) = NOUT2(NLE)\r\n      IDATA(15) = NOUT3(NLE)\r\n      IDATA(16) = 0\r\n      CALL WRITE (LOG5,IDATA,16,1)\r\n      CALL WRITE (LOG5,0.0,1,1)\r\n  310 FORMAT (I3,11(2X,1H0),3I3,3H  0, /,4H 0.0)\r\n      DO 315 J = 1,NLINES\r\n      RDATA(1) = R(NLE,J)\r\n      RDATA(2) = ALPB(NLE,J)\r\n      RDATA(3) = 0.0\r\n      RDATA(4) = EPSLON(NLE,J)\r\n      RDATA(5) = 0.0\r\n      RDATA(6) = 0.0\r\n      CALL WRITE (LOG5,RDATA,6,1)\r\n      RDATA(1) = 0.0\r\n      RDATA(2) = 0.0\r\n      RDATA(3) = 0.0\r\n      RDATA(4) = 0.0\r\n  315 CALL WRITE (LOG5,RDATA,4,1)\r\n  320 FORMAT (2F12.7,12X,F12.7,24X,/,4H 0.0,44X)\r\n      IF (IPUNCH .EQ. 0) GO TO 340\r\n  330 WRITE (LOG3,310) NLINES,NOUT1(NLE),NOUT2(NLE),NOUT3(NLE)\r\n      WRITE (LOG3,320) (R(NLE,J),ALPB(NLE,J),EPSLON(NLE,J),J=1,NLINES)\r\n  340 DO 370 I = K,NTE\r\n      DO 350 J = 1,NLINES\r\n  350 RDTE(J) = R(I,J)\r\n      CALL ALG15 (RR(1,I),XLOSS(1,I),NR(I),RDTE,DELTAD,NLINES,0)\r\n      NX = LOG5\r\n      IF (NAERO .EQ. 0) NX = LOG3\r\n      IF (NX .EQ. LOG3) GO TO 360\r\n      IDATA(1)  = NLINES\r\n      IDATA(2)  = NTERP(I)\r\n      IDATA(3)  = 0\r\n      IDATA(4)  = NMACH(I)\r\n      IDATA(5)  = 6\r\n      IDATA(6)  = NLOSS(I)\r\n      IDATA(7)  = NL1(I)\r\n      IDATA(8)  = NL2(I)\r\n      IDATA(9)  = NEVAL(I)\r\n      IDATA(10) = NCURVE(I)\r\n      IDATA(11) = NLITER(I)\r\n      IDATA(12) = NDEL(I)\r\n      IDATA(13) = NOUT1(I)\r\n      IDATA(14) = NOUT2(I)\r\n      IDATA(15) = NOUT3(I)\r\n      IDATA(16) = NBLAD(I)\r\n      CALL WRITE (LOG5,IDATA,16,1)\r\n      CALL WRITE (LOG5,SPEED,1,1)\r\n      DO 355 J = 1,NLINES\r\n      RDATA(1) = R(I,J)\r\n      RDATA(2) = ALPB(I,J)\r\n      RDATA(3) = DELTAD(J)\r\n      RDATA(4) = EPSLON(I,J)\r\n      RDATA(5) = BLOCK(I,J)\r\n      RDATA(6) = SOL(J)\r\n      CALL WRITE (LOG5,RDATA,6,1)\r\n      RDATA(1) = DEV(I,J)\r\n      RDATA(2) = 0.0\r\n      RDATA(3) = 0.0\r\n      RDATA(4) = 0.0\r\n  355 CALL WRITE (LOG5,RDATA,4,1)\r\n      GO TO 365\r\n  360 WRITE (NX,380) NLINES,NTERP(I),NMACH(I),NLOSS(I),NL1(I),NL2(I),\r\n     1       NEVAL(I),NCURVE(I),NLITER(I),NDEL(I),NOUT1(I),NOUT2(I),\r\n     2       NOUT3(I),NBLAD(I),SPEED,(R(I,J),ALPB(I,J),DELTAD(J),\r\n     3       EPSLON(I,J),BLOCK(I,J),SOL(J),DEV(I,J),J=1,NLINES)\r\n  365 IF (NX .EQ. LOG3) GO TO 370\r\n      NX = LOG3\r\n      IF (NAERO.NE.0 .AND. IPUNCH.NE.0) GO TO 360\r\n  370 CONTINUE\r\n  380 FORMAT (2I3,3H  0,I3,3H  6,11I3, /,F12.3,/,(6F12.7, /,F12.7,36X))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg2.f",
    "content": "      FUNCTION ALG2 (S,P)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG2=CP*EXP(S/CP+ROJCP*ALOG(P))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg25.f",
    "content": "      SUBROUTINE ALG25 (IX,LX,LOG1,X,Y1)\r\nC\r\n      REAL        LINE\r\n      DIMENSION   X(1),Y1(1),SYMBOL(1),LINE(121),XNUM(13)\r\n      DATA SYMBOL/1H*/, DASH/1H-/, CROSS/1H+/, BLANK/1H /, XI/1HI/\r\nC\r\n      YMIN = Y1(1)\r\n      YMAX = YMIN\r\n      DO 200 I = 1,IX\r\n      IF (Y1(I) .LT. YMIN) YMIN = Y1(I)\r\n      IF (Y1(I) .GT. YMAX) YMAX = Y1(I)\r\n200   CONTINUE\r\n      IF (YMIN .EQ. YMAX) GO TO 900\r\n      YH   = YMAX + (YMAX-YMIN)/18.0\r\n      YL   = YMIN - (YMAX-YMIN)/18.0\r\n      XH   = 60.0\r\n      IF (LX .GT. 59) XH = FLOAT(LX) + 1.0\r\n      XL   = XH - 60.0\r\n      XMAX = ABS(XH)\r\n      XMIN = ABS(XL)\r\n      YMIN = ABS(YL)\r\n      YMAX = ABS(YH)\r\n      IF (XMIN .GT. XMAX) XMAX = XMIN\r\n      IF (YMIN .GT. YMAX) YMAX = YMIN\r\n      XMAX = ALOG10(XMAX)\r\n      YMAX = ALOG10(YMAX)\r\n      IF (XMAX .LT. 0.0) XMAX = XMAX - 1.0\r\n      IF (YMAX .LT. 0.0) YMAX = YMAX - 1.0\r\n      MX   = -XMAX\r\n      MY   = -YMAX\r\n      WRITE (LOG1,250) MX,MY\r\n250   FORMAT (20X,46HSCALES - 'X' IS SHOWN TIMES 10 TO THE POWER OF,I3,\r\n     1        40H   'Y' IS SHOWN TIMES 10 TO THE POWER OF,I3,/)\r\n      YINC  = (YH-YL)/54.0\r\n      YINC2 = YINC/2.0\r\n      XRANGE= XH - XL\r\n      DO 750 KLINE = 1,55\r\n      IF (KLINE.EQ.1 .OR. KLINE.EQ.55) GO TO 350\r\n      DO 265 L = 2,120\r\n265   LINE(L) = BLANK\r\n      IF (KLINE.EQ. 7 .OR. KLINE.EQ.13 .OR. KLINE.EQ.19 .OR.\r\n     1    KLINE.EQ.25 .OR. KLINE.EQ.31 .OR. KLINE.EQ.37 .OR.\r\n     2    KLINE.EQ.43 .OR. KLINE.EQ.49) GO TO 300\r\n      LINE(  1) = XI\r\n      LINE(121) = XI\r\n      GO TO 400\r\n300   LINE(  1) = DASH\r\n      LINE(121) = DASH\r\n      GO TO 400\r\n350   DO 360 L = 2,120\r\n360   LINE(L) = DASH\r\n      LINE(1) = CROSS\r\n      LINE(121) = CROSS\r\n      DO 365 L = 11,111,10\r\n365   LINE(L) = XI\r\n      GO TO 650\r\n400   DO 600 I = 1,IX\r\n      IF (Y1(I).GT.YH+YINC2 .OR. Y1(I).LE.YH-YINC2) GO TO 600\r\n      L = (X(I)-XL)/XRANGE*120.0 + 1.5\r\n      LINE(L) = SYMBOL( 1)\r\n600   CONTINUE\r\n      IF (KLINE.EQ. 1 .OR. KLINE.EQ. 7 .OR. KLINE.EQ.13 .OR.\r\n     1    KLINE.EQ.19 .OR. KLINE.EQ.25 .OR. KLINE.EQ.31 .OR.\r\n     2    KLINE.EQ.37 .OR. KLINE.EQ.43 .OR. KLINE.EQ.49 .OR.\r\n     3    KLINE.EQ.55) GO TO 650\r\n      WRITE  (LOG1,610) LINE\r\n610   FORMAT (8X,121A1)\r\n      GO TO 750\r\n650   YNUM = YH*10.0**MY\r\n      WRITE  (LOG1,655) YNUM,LINE\r\n655   FORMAT (1X,F6.3,1X,121A1)\r\n750   YH   = YH - YINC\r\n      XNUM(1) = XL*10.0**MX\r\n      XINC = ((XH-XL)/12.0)*10.0**MX\r\n      DO 800 I = 2,13\r\n800   XNUM(I) = XNUM(I-1) + XINC\r\n      WRITE  (LOG1,820) XNUM\r\n820   FORMAT (6X,12(F6.3,4X),F6.3)\r\n      RETURN\r\nC\r\n900   WRITE  (LOG1,910)\r\n910   FORMAT (//35X,54HNO PLOT HAS BEEN MADE BECAUSE 'X' OR 'Y' RANGE IS\r\n     1 ZERO)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg26.f",
    "content": "      SUBROUTINE ALG26\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION XX1(21),DSDM(21),DRVWDM(21),DL(21),DSDL(21),FX1(21),FX2(\r\n     121),VVOLD(21),AFUN(20),BFUN(20),HS(20),XM2(20),DVMDVM(20),DVMDM(21\r\n     2),TBIP1(21),TEIP1(21)\r\nC\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      ITMAX=20\r\n      LPMAX=10\r\n      K=1\r\n      IF(I.EQ.ISTAG)K=2\r\n      XN=SPEED(I)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      IF(I.EQ.1)GO TO 234\r\n      DO 100 J=1,NSTRMS\r\n      LAMI(J)=LAMIP1(J)\r\n100   LAMIP1(J)=1.0\r\n      IF(I.EQ.NSTNS)GO TO 234\r\n      IF(NDATA(I+1).EQ.0)GO TO 210\r\n      L1=NDIMEN(I+1)+1\r\n      GO TO(110,130,150,170),L1\r\n110   DO 120 J=1,NSTRMS\r\n120   XX1(J)=R(J,I+1)\r\n      GO TO 190\r\n130   DO 140 J=1,NSTRMS\r\n140   XX1(J)=R(J,I+1)/R(NSTRMS,I+1)\r\n      GO TO 190\r\n150   DO 160 J=1,NSTRMS\r\n160   XX1(J)=XL(J,I+1)\r\n      GO TO 190\r\n170   DO 180 J=1,NSTRMS\r\n180   XX1(J)=XL(J,I+1)/XL(NSTRMS,I+1)\r\n190   L1=IS2(I+1)\r\n      CALL ALG01(DATAC(L1),DATA4(L1),NDATA(I+1),XX1,XX1,X1,NSTRMS,NTERP\r\n     1(I+1),0)\r\n      DO 200 J=1,NSTRMS\r\n200   LAMIP1(J)=1.0-XX1(J)\r\n210   DO 220 J=1,NSTRMS\r\n      X1=SQRT((R(J,I+1)-R(J,I))**2+(X(J,I+1)-X(J,I))**2)\r\n      X2=SQRT((R(J,I)-RIM1(J))**2+(X(J,I)-XIM1(J))**2)\r\n      X3=ATAN2(R(J,I+1)-R(J,I),X(J,I+1)-X(J,I))\r\n      X4=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J))\r\n      PHI(J)=(X3+X4)/2.0\r\n      CR(J)=(X3-X4)/(X1+X2)*2.0\r\n      DSDM(J)=0.0\r\n      DRVWDM(J)=0.0\r\n      DVMDM(J)=0.0\r\n      IF(IPASS.EQ.1)GO TO 220\r\n      DSDM(J)=((S(J,I+1)-S(J,I))/X1+(S(J,I)-S(J,I-1))/X2)/2.0*G*EJ\r\n      DRVWDM(J)=((R(J,I+1)*VW(J,I+1)-R(J,I)*VW(J,I))/X1+(R(J,I)*VW(J,I)-\r\n     1RIM1(J)*VW(J,I-1))/X2)/(2.0*R(J,I))\r\n      DVMDM(J)=((VM(J,I+1)-VM(J,I))/X1+(VM(J,I)-VM(J,I-1))/X2)*0.5\r\n220   CONTINUE\r\n      IF(IPASS.EQ.1.OR.NDATA(I).EQ.0.OR.NEQN.EQ.3.OR.NWORK(I).NE.0.OR.NW\r\n     1ORK(I+1).EQ.0)GO TO 390\r\n      L1=NDIMEN(I)+1\r\n      GO TO(221,223,225,227),L1\r\n221   DO 222 J=1,NSTRMS\r\n222   TEIP1(J)=R(J,I)\r\n      GO TO 229\r\n223   DO 224 J=1,NSTRMS\r\n224   TEIP1(J)=R(J,I)/R(NSTRMS,I)\r\n      GO TO 229\r\n225   DO 226 J=1,NSTRMS\r\n226   TEIP1(J)=XL(J,I)\r\n      GO TO 229\r\n227   DO 228 J=1,NSTRMS\r\n228   TEIP1(J)=XL(J,I)/XL(NSTRMS,I)\r\n229   L1=IS2(I)\r\n      CALL ALG01(DATAC(L1),DATA3(L1),NDATA(I),TEIP1,TEIP1,X1,NSTRMS,NTE\r\n     1RP(I),0)\r\n      X1=SPEED(I+1)*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      DO 230 J=1,NSTRMS\r\n      TEIP1(J)=TAN(TEIP1(J)/C1)\r\n230   TBIP1(J)=(VW(J,I)-X1*R(J,I))/VM(J,I)\r\n      GO TO 390\r\n234   DO 240 J=1,NSTRMS\r\n      DVMDM(J)=0.0\r\n      DSDM(J)=0.0\r\n      DRVWDM(J)=0.0\r\n240   CR(J)=0.0\r\n      IF(I.EQ.1)GO TO 244\r\n      DO 246 J=1,NSTRMS\r\n246   PHI(J)=ATAN2(R(J,I)-RIM1(J),X(J,I)-XIM1(J))\r\n      GO TO 390\r\n244   DO 260 J=1,NSTRMS\r\n260   PHI(J)=ATAN2(R(J,2)-R(J,1),X(J,2)-X(J,1))\r\n      DO 270 J=1,NSTRMS\r\n      XI(J)=H(J,1)\r\n      LAMI(J)=1.0\r\n270   LAMIP1(J)=1.0\r\n      IF(NDATA(2).EQ.0)GO TO 390\r\n      L2=NDIMEN(2)+1\r\n      GO TO(290,310,330,350),L2\r\n290   DO 300 J=1,NSTRMS\r\n300   XX1(J)=R(J,2)\r\n      GO TO 370\r\n310   DO 320 J=1,NSTRMS\r\n320   XX1(J)=R(J,2)/R(NSTRMS,2)\r\n      GO TO 370\r\n330   DO 340 J=1,NSTRMS\r\n340   XX1(J)=XL(J,2)\r\n      GO TO 370\r\n350   DO 360 J=1,NSTRMS\r\n360   XX1(J)=XL(J,2)/XL(NSTRMS,2)\r\n370   L1=IS2(2)\r\n      CALL ALG01(DATAC(L1),DATA4(L1),NDATA(2),XX1,XX1,X1,NSTRMS,NTERP(2\r\n     1),0)\r\n      DO 380 J=1,NSTRMS\r\n380   LAMIP1(J)=1.0-XX1(J)\r\n390   CALL ALG01(R(1,I),X(1,I),NSTRMS,R(1,I),X1,GAMA,NSTRMS,0,1)\r\n      DO 400 J=1,NSTRMS\r\n      GAMA(J)=ATAN(GAMA(J))\r\n      SPPG(J)=GAMA(J)+PHI(J)\r\n      CPPG(J)=COS(SPPG(J))\r\n      SPPG(J)=SIN(SPPG(J))\r\n400   VV(J)=VM(J,I)\r\n      DO 410 J=1,ITUB\r\n      DL(J)=XL(J+1,I)-XL(J,I)\r\n410   DSDL(J)=(S(J+1,I)-S(J,I))*G*EJ/DL(J)\r\n      IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 430\r\n      DO 420 J=1,ITUB\r\n      DVMDVM(J)=0.0\r\n      FX1(J)=(VW(J+1,I)+VW(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*VW(J+1,I)-R\r\n     1(J,I)*VW(J,I))/DL(J)\r\n420   FX2(J)=(H(J+1,I)-H(J,I))/DL(J)*G*EJ\r\n      GO TO 450\r\n430   DO 440 J=1,ITUB\r\n      FX1(J)=(TBETA(J+1,I)+TBETA(J,I))/(R(J+1,I)+R(J,I))*(R(J+1,I)*TBETA\r\n     1(J+1,I)-R(J,I)*TBETA(J,I))/DL(J)\r\n440   FX2(J)=(XI(J+1)-XI(J))/DL(J)*G*EJ\r\n450   VMAX=0.0\r\n      VMIN=2500.0\r\n      ITER=0\r\n460   ITER=ITER+1\r\n      IFAIL=0\r\n      ICONF1=0\r\n      DO 470 J=1,NSTRMS\r\n470   VVOLD(J)=VV(J)\r\n      IF(I.EQ.1.OR.NWORK(I).GE.5)GO TO 810\r\n      DO 580 J=1,ITUB\r\n      X1=(H(J,I)+H(J+1,I))/2.0-(((VVOLD(J)+VVOLD(J+1))/2.0)**2+((VW(J,I)\r\n     1+VW(J+1,I))/2.0)**2)/(2.0*G*EJ)\r\n      IF(X1.GE.HMIN)GO TO 520\r\n      IF(IPASS.LE.NFORCE)GO TO 510\r\n      IF(LNCT.LT.NPAGE)GO TO 480\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n480   LNCT=LNCT+1\r\n      WRITE(LOG2,490)IPASS,I,ITER,J,X1\r\n490   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,53H  STATIC ENTHALPY BELOW LIMIT IN MOMENTUM EQUATION AT,E13\r\n     2.5)\r\n500   FORMAT(1H1)\r\n510   IFAIL=1\r\n      X1=HMIN\r\n520   X2=(S(J,I)+S(J+1,I))/2.0\r\n      X7=ALG7(X1,X2)\r\n      X2=(CPPG(J)+CPPG(J+1))*0.5\r\n      X3=(SPPG(J)+SPPG(J+1))*0.5\r\n      AFUN(J)=-2.0*X3*(DVMDM(J)+DVMDM(J+1))/(VVOLD(J)+VVOLD(J+1))-X2*(CR\r\n     1(J)+CR(J+1))\r\n      BFUN(J)=2.0*(FX2(J)-X7*DSDL(J)-FX1(J))\r\n      IF(IPASS.EQ.1.OR.I.EQ.NSTNS)GO TO 580\r\n      IF(NDATA(I).EQ.0.OR.NEQN.EQ.3.OR.(NWORK(I).EQ.0.AND.NWORK(I+1).EQ.\r\n     10))GO TO 560\r\n      IF(NWORK(I).EQ.0)GO TO 540\r\n      X4=(TBETA(J,I)+TBETA(J+1,I))*0.5\r\n      X5=(TANEPS(J)+TANEPS(J+1))*0.5\r\n530   BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*(X3/(1.0+X4*X4)-X5*X4/(1.0+\r\n     1X4*X4)*0.5)-X5*(DRVWDM(J)+DRVWDM(J+1))*(VVOLD(J)+VVOLD(J+1))*0.5\r\n      GO TO 580\r\n540   X4=(TBIP1(J)+TBIP1(J+1))*0.5\r\n      X5 = (TEIP1(J)+TEIP1(J+1))*0.5\r\n      GO TO 530\r\n560   BFUN(J)=BFUN(J)+X7*(DSDM(J)+DSDM(J+1))*X3\r\n580   VV(IMID)=VVOLD(IMID)**2\r\n      J=IMID\r\n      JINC=1\r\n590   JOLD=J\r\n      J=J+JINC\r\n      JJ=JOLD\r\n      IF(JINC.EQ.-1)JJ=J\r\n      IF(ABS(AFUN(J)).LE.1.0E-5) GO TO 660\r\n      X1=-AFUN(JJ)*(XL(J,I)-XL(JOLD,I))\r\n      IF(ABS(X1).LE.1.0E-10)GO TO 660\r\n      IF(X1.LE.88.0)GO TO 630\r\n      IF(IPASS.LE.NFORCE)GO TO 620\r\n      IF(LNCT.LT.NPAGE)GO TO 600\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n600   LNCT=LNCT+1\r\n      WRITE(LOG2,610)IPASS,I,ITER,JJ,X1\r\n610   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,43H  MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT,E13.5)\r\n620   IFAIL=1\r\n      X1=88.0\r\n630   X1=EXP(X1)\r\n      VV(J)=VV(JOLD)*X1+(1.0-X1)*BFUN(JJ)/AFUN(JJ)\r\n640   IF(J.EQ.K)GO TO 670\r\n      IF(J.EQ.NSTRMS)GO TO 650\r\n      GO TO 590\r\n650   J=IMID\r\n      JINC=-1\r\n      GO TO 590\r\n660   VV(J)=VV(JOLD)+BFUN(JJ)*(XL(J,I)-XL(JOLD,I))\r\n      GO TO 640\r\n670   DO 710 J=K,NSTRMS\r\n      IF(VV(J).LE.4.0*VVOLD(IMID)**2)GO TO 676\r\n      IFAIL=1\r\n      IF(IPASS.LE.NFORCE)GO TO 674\r\n      CALL ALG03(LNCT,1)\r\n      WRITE(LOG2,672)IPASS,I,ITER,J\r\n672   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,50H  MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE)\r\n674   VV(J)=4.0*VVOLD(IMID)**2\r\n676   IF(VV(J).GE.1.0)GO TO 702\r\n      IF(IPASS.LE.NFORCE)GO TO 700\r\n      IF(LNCT.LT.NPAGE)GO TO 680\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n680   LNCT=LNCT+1\r\n      WRITE(LOG2,690)IPASS,I,ITER,J,VV(J)\r\n690   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,46H  (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT,E13.5)\r\n700   VV(J)=1.0\r\n      IFAIL=1\r\n      GO TO 710\r\n702   VV(J)=SQRT(VV(J))\r\n710   CONTINUE\r\n      X1=0.0\r\n      DO 712 J=K,ITUB\r\n712   X1=X1+(XL(J+1,I)-XL(J,I))*ABS((VV(J+1)+VV(J))/(VVOLD(J+1)+VVOLD(J)\r\n     1)-1.0)\r\n      X1=X1/(XL(NSTRMS,I)-XL(K,I))\r\n      X2=0.1\r\n      IF(X1.LT.0.2)X2=EXP(-11.52*X1)\r\n      DO 715 J=K,NSTRMS\r\n715   VV(J)=VVOLD(J)+X2*(VV(J)-VVOLD(J))\r\n      IF(NLOSS(I).EQ.1.AND.NL2(I).EQ.0)CALL ALG07\r\n      DO 800 J=1,ITUB\r\n      HS(J)=(H(J,I)+H(J+1,I))/2.0-(((VV(J)+VV(J+1))/2.0)**2+((VW(J,I)+VW\r\n     1(J+1,I))/2.0)**2)/(2.0*G*EJ)\r\n      IF(HS(J).GE.HMIN)GO TO 800\r\n      IF(IPASS.LE.NFORCE)GO TO 790\r\n      IF(LNCT.LT.NPAGE)GO TO 770\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n770   LNCT=LNCT+1\r\n      WRITE(LOG2,780)IPASS,I,ITER,J,HS(J)\r\n780   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,55H  STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION AT,E\r\n     213.5)\r\n790   IFAIL=1\r\n      HS(J)=HMIN\r\n800   XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,((VV(J)+VV(J+1))/2.0)**2)\r\n      GO TO 1100\r\n810   J=IMID\r\n      JINC=1\r\n820   LOOP=1\r\n      JOLD=J\r\n      J=J+JINC\r\n      JJ=JOLD\r\n      IF(JINC.EQ.-1)JJ=J\r\n830   VOLD=VV(J)\r\n      VAV=(VOLD+VV(JOLD))/2.0\r\n      IFAIE=0\r\n      ICONF2=0\r\n      X2=(TBETA(J,I)+TBETA(JOLD,I))/2.0\r\n      X1=(XI(J)+XI(JOLD))/2.0+((XN*(R(J,I)+R(JOLD,I))/2.0)**2-VAV**2*(1.\r\n     10+X2*X2))/(2.0*G*EJ)\r\n      IF(X1.GE.HMIN)GO TO 870\r\n      IF(IPASS.LE.NFORCE)GO TO 860\r\n      IF(LNCT.LT.NPAGE)GO TO 840\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n840   LNCT=LNCT+1\r\n      WRITE(LOG2,850)IPASS,I,ITER,JJ,LOOP,X1\r\n850   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMTU\r\n     1BE,I3,6H  LOOP,I3,43H  STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT,E\r\n     213.5)\r\n860   IFAIE=1\r\n      ICONF2 = 1\r\n      X1=HMIN\r\n870   X3=(S(J,I)+S(JOLD,I))/2.0\r\n      X7=ALG7(X1,X3)\r\n      X4=(SPPG(J)+SPPG(JOLD))*0.5\r\n      X5=(CPPG(J)+CPPG(JOLD))*0.5\r\n      X1=X5*(CR(J)+CR(JOLD))*0.5-FX1(JJ)\r\n      X12=1.0/(1.0+X2*X2)\r\n      X8=(TANEPS(J)+TANEPS(JOLD))*0.5\r\n      X11=FX2(JJ)-X7*DSDL(JJ)\r\n      X6=X4*(DVMDM(J)+DVMDM(JOLD))*0.5-2.0*XN*X2*COS((GAMA(J)+GAMA(JOLD)\r\n     1)*0.5)\r\n      IF(IPASS.EQ.1.OR.I.EQ.1.OR.I.EQ.NSTNS)GO TO 920\r\n      IF(NEQN.EQ.3)GO TO 900\r\n      X11=X11+X7*(DSDM(J)+DSDM(JOLD))*0.5*(X4*X12-X8*X2*X12)\r\n      X6=X6-X8*(DRVWDM(J)+DRVWDM(JOLD))*0.5\r\n      GO TO 920\r\n900   X11=X11+X7*(DSDM(J)+DSDM(JOLD))*0.5*X4\r\n920   DV2DL=2.0*X12*(VAV*(X6+VAV*X1)+X11)\r\n      DVMDVM(JJ)=X12*(X1-X11/VAV**2)\r\n      X1=VV(JOLD)**2+DV2DL*(XL(J,I)-XL(JOLD,I))\r\n      IF(X1.LE.9.0*VVOLD(IMID)**2)GO TO 938\r\n      ICONF2=1\r\n      IFAIE=1\r\n      IF(IPASS.LE.NFORCE)GO TO 936\r\n      CALL ALG03(LNCT,1)\r\n      X1=SQRT(X1)\r\n      X2=3.0*VVOLD(IMID)\r\n      WRITE(LOG2,934)IPASS,I,ITER,J,LOOP,X1,X2\r\n934   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,6H  LOOP,I3,33H  MERIDIONAL VELOCITY ABOVE LIMIT,E13.5,9H  L\r\n     2IMIT =,E13.5)\r\n936   X1=9.0*VVOLD(IMID)**2\r\n938   IF(X1.GE.1.0)GO TO 950\r\n      IF(IPASS.LE.NFORCE)GO TO 944\r\n      IF(LNCT.LT.NPAGE)GO TO 930\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n930   LNCT=LNCT+1\r\n      WRITE(LOG2,940)IPASS,I,ITER,J ,LOOP,X1\r\n940   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,6H  LOOP,I3,46H  (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT A\r\n     2T,E13.5)\r\n944   X1=1.0\r\n      IFAIE=1\r\n      ICONF2=1\r\n950   VV(J)=SQRT(X1)\r\n      IF(ABS(VV(J)/VOLD-1.0).LE.TOLNCE/5.0)GO TO 990\r\n      IF(LOOP.GE.LPMAX)GO TO 960\r\n      LOOP=LOOP+1\r\n      GO TO 830\r\n960   ICONF2=1\r\n      IF(IPASS.LE.NFORCE)GO TO 990\r\n      IF(LNCT.LT.NPAGE)GO TO 970\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n970   LNCT=LNCT+1\r\n      WRITE(LOG2,980)IPASS,I,ITER,J,VV(J),VOLD\r\n980   FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,38H  MERIDIONAL VELOCITY UNCONVERGED  VM=,E13.6,9H VM(OLD)=,\r\n     2E13.6)\r\n990   IF(IFAIE.EQ.1)IFAIL=1\r\n      IF(ICONF2.EQ.1)ICONF1=1\r\n      IF(J.EQ.NSTRMS)GO TO 1000\r\n      IF(J.EQ.1)GO TO 1010\r\n      GO TO 820\r\n1000  J=IMID\r\n      JINC=-1\r\n      GO TO 820\r\n1010  IF(I.EQ.1)GO TO 1014\r\n      IF(NLOSS(I).EQ.2.OR.(NLOSS(I).EQ.1.AND.NL2(I).EQ.0))CALL ALG07\r\n1014  DO 1090 J=1,ITUB\r\n      X1=((VV(J)+VV(J+1))/2.0)**2*(1.0+((TBETA(J,I)+TBETA(J+1,I))/2.0)**\r\n     12)\r\n      HS(J)=(XI(J)+XI(J+1))/2.0+((XN*(R(J,I)+R(J+1,I))/2.0)**2-X1)/(2.0*\r\n     1G*EJ)\r\n      IF(HS(J).GE.HMIN)GO TO 1080\r\n      IF(IPASS.LE.NFORCE)GO TO 1070\r\n      IF(LNCT.LT.NPAGE)GO TO 1060\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1060  LNCT=LNCT+1\r\n      WRITE(LOG2,780)IPASS,I,ITER,J,HS(J)\r\n1070  IFAIL=1\r\n      HS(J)=HMIN\r\n1080  XM2(J)=ALG9(HS(J),(S(J,I)+S(J+1,I))/2.0,X1)\r\n      IF(I.EQ.1.OR.NLOSS(I).NE.1.OR.NL2(I).NE.0)GO TO 1090\r\n      X1=(S(J,I)+S(J+1,I))/2.0\r\n      X2=ALG4(HS(J),X1)\r\n      X4=ALG8(HS(J),X1)\r\n      X3=(XI(J)+XI(J))/2.0+(XN*((R(J,I)+R(J+1,I))/2.0))**2/(2.0*G*EJ)\r\n      X3=ALG4(X3,X1)\r\n      XM2(J)=XM2(J)*(1.0+X4*(LOSS(J)+LOSS(J+1))/2.0*X2/(X3*(1.0+(LOSS(J)\r\n     1+LOSS(J+1))/2.0*(1.0-X2/X3))))\r\n1090  CONTINUE\r\n1100  DELW(1)=0.0\r\n      DWDV=0.0\r\n      X2=BBLOCK(I)*BDIST(I)\r\n      X3=BBLOCK(I)*(1.0-BDIST(I))/XL(NSTRMS,I)\r\n      DO 1200 J=1,ITUB\r\n      X1=DL(J)*(R(J+1,I)+R(J,I))*ALG5(HS(J),(S(J,I)+S(J+1,I))/2.0)*(VV(J\r\n     1)+VV(J+1))*(CPPG(J)+CPPG(J+1))*PI/(4.0*SCLFAC**2)\r\n      X1=X1*((LAMI(J)+LAMI(J+1))/2.0-WWBL(I)-X2-X3*(XL(J,I)+XL(J+1,I)))\r\n      DELW(J+1)=DELW(J)+X1\r\n      X4=0.0\r\n      IF(J.GE.IMID)GO TO 1130\r\n      L1=J\r\n1110  X4=X4+DVMDVM(L1)\r\n      IF(L1.GE.IMID-1)GO TO 1120\r\n      L1=L1+1\r\n      GO TO 1110\r\n1120  X4=X4/FLOAT(IMID-J)\r\n      GO TO 1200\r\n1130  L1=IMID+1\r\n1140  X4=X4+DVMDVM(L1)\r\n      IF(L1.GE.J)GO TO 1150\r\n      L1=L1+1\r\n      GO TO 1140\r\n1150  X4=X4/FLOAT(J-IMID+1)\r\n1200  DWDV=DWDV+X1*(1.0-XM2(J))*2.0/((VV(J)+VV(J+1))*(1.0-((XL(J,I)+XL(J\r\n     1+1,I))*0.5-XL(IMID,I))*X4))\r\n      W=DELW(NSTRMS)\r\n      FM2=DWDV/W*VV(IMID)\r\n      DO 1210 J=2,NSTRMS\r\n1210  DELW(J)=DELW(J)/W\r\n      IF(DWDV.LE.0.0)GO TO 1280\r\n      IF(NMACH(I).EQ.1)GO TO 1330\r\n      IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMAX=VV(IMID)\r\n1220  DV=(FLOW(ICASE)-W)/DWDV\r\n      IF(DV.LT.-0.1*VV(IMID))DV=-0.1*VV(IMID)\r\n      IF(DV.GT. 0.1*VV(IMID))DV= 0.1*VV(IMID)\r\n1230  IF(IPASS.EQ.1.OR.(I.NE.1.AND.NWORK(I).LE.4))GO TO 1234\r\n      IF(VV(IMID)+DV.LT.VMIN)GO TO 1232\r\n      DV=(VMIN-VV(IMID))*0.5\r\n1232  IF(VV(IMID)+DV.GT.VMAX)GO TO 1234\r\n      DV=(VMAX-VV(IMID))*0.5\r\n1234  DO 1270 J=K,NSTRMS\r\n      VV(J)=VV(J)+DV\r\n      IF(VV(J).GE.1.0)GO TO 1270\r\n      IF(IPASS.LE.NFORCE)GO TO 1260\r\n      IF(LNCT.LT.NPAGE)GO TO 1240\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1240  LNCT=LNCT+1\r\n      WRITE(LOG2,1250)IPASS,I,ITER,J,VV(J)\r\n1250  FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,12H  STREAMLI\r\n     1NE,I3,50H  MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT,E13.5)\r\n1260  VV(J)=1.0\r\n      IFAIL=1\r\n1270  CONTINUE\r\n      GO TO 1340\r\n1280  IF(NMACH(I).EQ.0)GO TO 1290\r\n      IF(W.LT.FLOW(ICASE).AND.ICONF1.EQ.0)VMIN=VV(IMID)\r\n      GO TO 1220\r\n1290  IF(VV(IMID).LT.VMIN.AND.ICONF1.EQ.0)VMIN=VV(IMID)\r\n      DV=-.1*VV(IMID)\r\n1300  IFAIL=1\r\n      IF(IPASS.LE.NFORCE)GO TO 1230\r\n      IF(LNCT.LT.NPAGE)GO TO 1310\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1310  LNCT=LNCT+1\r\n      WRITE(LOG2,1320)IPASS,I,ITER\r\n1320  FORMAT(5X,4HPASS,I3,9H  STATION,I3,11H  ITERATION,I3,43H  OTHER CO\r\n     1NTINUITY EQUATION BRANCH REQUIRED)\r\n      GO TO 1230\r\n1330  IF(VV(IMID).GT.VMAX.AND.ICONF1.EQ.0)VMAX=VV(IMID)\r\n      DV=0.1*VV(IMID)\r\n      GO TO 1300\r\n1340  X1=TOLNCE/5.0\r\n      IF(NEVAL(I).GT.0)X1=X1/2.0\r\n      IF(ABS(W/FLOW(ICASE)-1.0).GT.X1)GO TO 1354\r\n      DO 1350 J=K,NSTRMS\r\n      IF(ABS(VV(J)/VVOLD(J)-1.0).GT.X1)GO TO 1354\r\n1350  CONTINUE\r\n      GO TO 1390\r\n1354  IF(ITER.GE.ITMAX)GO TO 1360\r\n      IF(I.EQ.1)GO TO 460\r\n      IF((NLOSS(I).EQ.1.AND.NL2(I).EQ.0).OR.(NWORK(I).GE.5.AND.NLOSS(I).\r\n     1EQ.2))CALL ALG07\r\n      GO TO 460\r\n1360  IF(IPASS.LE.NFORCE)GO TO 1390\r\n      IF(LNCT.LT.NPAGE)GO TO 1370\r\n      WRITE(LOG2,500)\r\n      LNCT=1\r\n1370  LNCT=LNCT+1\r\n      X1=W/FLOW(ICASE)\r\n      X2=VV(K)/VVOLD(K)\r\n      X3=VV(IMID)/VVOLD(IMID)\r\n      X4=VV(NSTRMS)/VVOLD(NSTRMS)\r\n      WRITE(LOG2,1380)IPASS,I,X1,X2,X3,X4\r\n1380  FORMAT(5X,4HPASS,I3,9H  STATION,I3,49H  MOMENTUM AND/OR CONTINUITY\r\n     1 UNCONVERGED W/WSPEC=,F8.5,16H VM/VM(OLD) HUB=,F8.5,5H MID=,F8.5,5\r\n     2H TIP=,F8.5)\r\n1390  IF(IFAIL.NE.0.AND.IFAILO.EQ.0)IFAILO=I\r\n      DO 1400 J=1,NSTRMS\r\n1400  VM(J,I)=VV(J)\r\n      IF(I.NE.1)GO TO 1420\r\n      DO 1410 J=1,NSTRMS\r\n1410  VW(J,1)=VV(J)*TBETA(J,1)\r\n      GO TO 1480\r\n1420  IF(NMIX.NE.1)GO TO 1440\r\n      DO 1430 J=1,NSTRMS\r\n      S(J,I-1)=SKEEP(J)\r\n      H(J,I-1)=HKEEP(J)\r\n1430  VW(J,I-1)=VWKEEP(J)\r\n1440  IF(NWORK(I).GE.5)GO TO 1460\r\n      TBETA(1,I)=0.0\r\n      DO 1450 J=K,NSTRMS\r\n1450  TBETA(J,I)=(VW(J,I)-XN*R(J,I))/VV(J)\r\n      GO TO 1480\r\n1460  DO 1470 J=1,NSTRMS\r\n      VW(J,I)=VV(J)*TBETA(J,I)+XN*R(J,I)\r\n1470  H(J,I)=XI(J)+XN*R(J,I)*VW(J,I)/(G*EJ)\r\n1480  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg29.f",
    "content": "      SUBROUTINE ALG29 (Y,X,FXY,N)\r\nC\r\n      DIMENSION Y(3),X(3),FXY(3)\r\nC\r\n      X1=(X(3)+X(2))*(Y(3)-Y(2))/(X(3)-X(2))\r\n      FXY(2)=X1/(X(3)-X(1))\r\n      N2=N-2\r\n      DO 100 J=3,N2\r\n      X2=(X(J+1)+X(J))*(Y(J+1)-Y(J))/(X(J+1)-X(J))\r\n      FXY(J)=(X2-X1)/(X(J+1)-X(J-1))\r\n100   X1=X2\r\n      FXY(N-1)=-X1/(X(N)-X(N-2))\r\n      FXY(1)=FXY(2)-(FXY(3)-FXY(2))/(X(3)-X(2))*(X(2)-X(1))\r\n      FXY(N)=FXY(N-1)+(FXY(N-1)-FXY(N-2))/(X(N-1)-X(N-2))*(X(N)-X(N-1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg3.f",
    "content": "      FUNCTION ALG3 (P,H)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG3=CP*ALOG(H/CP)-R/EJ*ALOG(P)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg30.f",
    "content": "      SUBROUTINE ALG30 (A,B)\r\nC\r\n      DIMENSION A(9,9),B(9),INDEX(9)\r\nC\r\n      N=9\r\n      DO 100 J=1,N\r\n100   INDEX(J)=0\r\n110   AMAX=-1.0\r\n      DO 120 J=1,N\r\n      IF(INDEX(J).NE.0)GO TO 120\r\n      DO 115 L=1,N\r\n      IF(INDEX(L).NE.0)GO TO 115\r\n      PV=ABS(A(J,L))\r\n      IF(PV.LE.AMAX)GO TO 115\r\n      IR=J\r\n      IC=L\r\n      AMAX=PV\r\n115   CONTINUE\r\n120   CONTINUE\r\n      IF(AMAX.LE.0.0)RETURN\r\n      INDEX(IC)=IR\r\n      IF(IC.EQ.IR)GO TO 150\r\n      DO 140 L=1,N\r\n      PV=A(IR,L)\r\n      A(IR,L)=A(IC,L)\r\n      A(IC,L)=PV\r\n      IF(L.GT.1)GO TO 140\r\n      PV=B(IR)\r\n      B(IR)=B(IC)\r\n      B(IC)=PV\r\n140   CONTINUE\r\n150   PV=1.0/A(IC,IC)\r\n      A(IC,IC)=1.0\r\n      DO 160 L=1,N\r\n      A(IC,L)=A(IC,L)*PV\r\n      IF(L.GT.1)GO TO 160\r\n      B(IC)=B(IC)*PV\r\n160   CONTINUE\r\n      DO 180 L1=1,N\r\n      IF(L1.EQ.IC)GO TO 180\r\n      PV=A(L1,IC)\r\n      A(L1,IC)=0.0\r\n      DO 170 L=1,N\r\n170   A(L1,L)=A(L1,L)-A(IC,L)*PV\r\n      B(L1)=B(L1)-B(IC)*PV\r\n180   CONTINUE\r\n      GO TO 110\r\n      END\r\n"
  },
  {
    "path": "mis/alg4.f",
    "content": "      FUNCTION ALG4 (H,S)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG4=EXP(ALOG(H/CP)/ROJCP-EJ/R*S)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg5.f",
    "content": "      FUNCTION ALG5 (H,S)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG5=ALG4(H,S)/(R*H)*CP\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg6.f",
    "content": "      FUNCTION ALG6 (P,T)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG6=CP*T\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg7.f",
    "content": "      FUNCTION ALG7 (H,S)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG7=H/CP\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg8.f",
    "content": "      FUNCTION ALG8 (H,S)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG8=GAMMA\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/alg9.f",
    "content": "      FUNCTION ALG9 (H,S,V2)\r\nC\r\n      COMMON /GAS/ G,EJ,R,CP,GAMMA,ROJCP\r\nC\r\n      ALG9=CP*V2/(GAMMA*G*R*H)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/algan.f",
    "content": "      SUBROUTINE ALGAN\r\nC\r\n      REAL            IX,IY,IXY,IPX,IPY,IXN,IYN,IXYN,IXD,IYD\r\n      DIMENSION       RLES(21),TCS(21),TES(21),ZZS(21),PERSPT(21),\r\n     1                ALPB(10,21),BLOCK(10,21),EPSLON(10,21),CCORD(21),\r\n     2                YS(21,70),YP(21,70),XP(21,70),XS(21,70),ZS(21,70),\r\n     3                ZQ(21),TQ(21),BLAFOR(10,21),XCAMB(21,10),\r\n     4                THARR(21,10),TITLE(18),IDATA(24),RDATA(6)\r\n      COMMON /SYSTEM/ KSYSTM(90),LPUNCH\r\n      COMMON /UD3PRT/ IPRTC,ISTRML,IPGEOM\r\n      COMMON /UDSTR2/ NBLDES,STAG(21),CHORDD(21)\r\n      COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOG1,LOG2,LOG3,LOG4,LOG5,LOG6\r\n      COMMON /UD3ANC/ EPZ(80,4),R(10,21),ZOUT(21),SS(100),X(100),\r\n     1                YPRIME(100),YSEMI(21,31),XSEMI(21,31),ZP(21,70),\r\n     2                ZSEMI(21,31),TITLE2(18),XHERE(10),XTEMP(100),\r\n     3                RAD(100),TEMP1(21),TEMP2(21),TEMP3(21),TEMP4(21),\r\n     4                ZR(21),B1(21),B2(21),PP(21),QQ(21),ZZ(21),RLE(21),\r\n     5                TC(21),TE(21),CORD(21),DELX(21),DELY(21),S(21),\r\n     6                BS(21),XSEMJ(21,31),YSEMJ(21,31),ZSEMJ(21,31),\r\n     7                XSTA(21,10),RSTA(21,10),KPTS(21),SIGMA(100),\r\n     8                TANPHI(10,21),ZCAMB(21,10),YCAMB(21,10),\r\n     9                IFANGS(10),THETA(21,10),ALPHA(21,10)\r\n      EQUIVALENCE     (TITLE(1),TITLE2(1))\r\nC\r\n      PI = 4.0*ATAN(1.0)\r\n      C1 = 180.0/PI\r\n      CALL FREAD (LOG1,TITLE2,18,1)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,120) TITLE2\r\n 120  FORMAT (1H1,31X,'PROGRAM ALG - COMPRESSOR DESIGN - ANALYTIC MEAN',\r\n     1       'LINE BLADE SECTION', /32X,65(1H*), //10X,5HTITLE,25X,1H=,\r\n     2       18A4)\r\n      CALL FREAD (LOG1,IDATA,17,1)\r\n      NLINES = IDATA(1)\r\n      NSTNS  = IDATA(2)\r\n      NZ     = IDATA(3)\r\n      NSPEC  = IDATA(4)\r\n      NPOINT = IDATA(5)\r\n      NBLADE = IDATA(6)\r\n      ISTAK  = IDATA(7)\r\n      IPUNCH = IDATA(8)\r\n      ISECN  = IDATA(9)\r\n      IFCORD = IDATA(10)\r\n      IFPLOT = IDATA(11)\r\n      IPRINT = IDATA(12)\r\n      ISPLIT = IDATA(13)\r\n      INAST  = IDATA(14)\r\n      IRLE   = IDATA(15)\r\n      IRTE   = IDATA(16)\r\n      NSIGN  = IDATA(17)\r\n      NBLDES = NBLADE\r\n      IF (IPRTC .EQ. 0) IPRINT = 3\r\n      IF (INAST.EQ.0 .AND. IPGEOM.NE.-1) INAST = -4\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,140) NLINES,NSTNS,NZ,NSPEC,NPOINT,\r\n     1    NBLADE,ISTAK,IPUNCH,ISECN,IFCORD,IFPLOT,IPRINT,ISPLIT,INAST,\r\n     2    IRLE,IRTE,NSIGN\r\n 140  FORMAT (10X,24HNUMBER OF STREAMSURFACES,6X,1H=,I3, /10X,18HNUMBER\r\n     1OF STATIONS,12X,1H=,I3, /10X,27HNUMBER OF CONSTANT-Z PLANES,3X,1H=\r\n     2,I3, /10X,27HNUMBER OF BLADE DATA POINTS,3X,1H=,I3, /10X,31HNUMBER\r\n     3 OF POINTS ON SURFACES  =,I3, /10X,29HNUMBER OF BLADES IN BLADE RO\r\n     4W,1X,1H=,I3, /10X,5HISTAK,25X,1H=,I3, /10X,6HIPUNCH,24X,1H=,I3, /1\r\n     50X,5HISECN,25X,1H=,I3,/,10X,6HIFCORD,24X,1H=,I3, /10X,6HIFPLOT,24X\r\n     6,1H=,I3, /10X,6HIPRINT,24X,1H=,I3, /10X,6HISPLIT,24X,1H=,I3, /10X,\r\n     75HINAST,25X,1H=,I3, /10X,4HIRLE,26X,1H=,I3, /10X,4HIRTE,26X,1H=,I3\r\n     8, /10X,5HNSIGN,25X,1H=,I3)\r\n      CALL FREAD (LOG1,RDATA,5,1)\r\n      ZINNER = RDATA(1)\r\n      ZOUTER = RDATA(2)\r\n      SCALE  = RDATA(3)\r\n      STACKX = RDATA(4)\r\n      PLTSZE = RDATA(5)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,160) ZINNER,ZOUTER,SCALE,STACKX,\r\n     1                                   PLTSZE\r\n 160  FORMAT (/10X,6HZINNER,24X,1H=,F8.4, /10X,6HZOUTER,24X,1H=,F8.4, /\r\n     110X,5HSCALE,25X,1H=,F8.4, /10X,6HSTACKX,24X,1H=,F8.4, /10X,6HPLTSZ\r\n     2E,24X,1H=,F8.4, //20X,36HSTREAMSURFACE GEOMETRY SPECIFICATION)\r\n      LNCT = 30\r\n      DO 300 I = 1,NSTNS\r\n      CALL FREAD (LOG1,IDATA,2,1)\r\n      KPTS(I)   = IDATA(1)\r\n      IFANGS(I) = IDATA(2)\r\n      KPT = KPTS(I)\r\n      DO 165 K = 1,KPT\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      XSTA(K,I) = RDATA(1)\r\n 165  RSTA(K,I) = RDATA(2)\r\n      IF (KPTS(I) .GE. 2) GO TO 170\r\n      KPTS(I) = 2\r\n      XSTA(2,I) = XSTA(1,I)\r\n      RSTA(2,I) = RSTA(1,I) + 1.0\r\n 170  DO 180 J = 1,NLINES\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      R(I,J)      = RDATA(1)\r\n 180  BLAFOR(I,J) = RDATA(2)\r\n      IDUM = KPTS(I)\r\n      IF (NLINES .GT. IDUM) IDUM = NLINES\r\n      IF (LNCT .LE. 54-IDUM) GO TO 210\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n 200  FORMAT (1H1)\r\n      LNCT = 2\r\n 210  LNCT = LNCT + IDUM + 7\r\n      IF (INAST .NE. 0) GO TO 240\r\n      IF (IPRTC .EQ. 1)  WRITE (LOG2,220) I,KPTS(I),I,IFANGS(I)\r\n 220  FORMAT (/10X,'COMPUTING STATION',I3,5X,'NUMBER OF DESCRIBING ',\r\n     1        'POINTS=',I3,6X,7HIFANGS(,I2,2H)=,I3, //6X,'DESCRIPTION',\r\n     2        9X,'STREAMLINE',5X,5HRADII,/6X,1HX,9X,1HR,11X,6HNUMBER,//)\r\n      DO 230 K = 1,IDUM\r\n      IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.LE.NLINES)\r\n     1    WRITE (LOG2,260) XSTA(K,I),RSTA(K,I),K,R(I,K)\r\n      IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.GT.NLINES)\r\n     1    WRITE (LOG2,270) XSTA(K,I),RSTA(K,I)\r\n      IF (IPRTC.EQ.1 .AND. K.GT.KPTS(I).AND.K.LE.NLINES)\r\n     1    WRITE (LOG2,280) K,R(I,K)\r\n 230  CONTINUE\r\n      IF (INAST .EQ. 0) GO TO 300\r\n 240  IF (IPRTC .EQ. 1) WRITE (LOG2,290) I,KPTS(I),I,IFANGS(I)\r\n      DO 250 K = 1,IDUM\r\n      IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.LE.NLINES)\r\n     1    WRITE (LOG2,260) XSTA(K,I),RSTA(K,I),K,R(I,K),BLAFOR(I,K)\r\n      IF (IPRTC.EQ.1 .AND. K.LE.KPTS(I).AND.K.GT.NLINES)\r\n     1    WRITE (LOG2,270) XSTA(K,I),RSTA(K,I)\r\n      IF (IPRTC.EQ.1 .AND. K.GT.KPTS(I).AND.K.LE.NLINES)\r\n     1    WRITE (LOG2,280) K,R(I,K),BLAFOR(I,K)\r\n 250  CONTINUE\r\n 260  FORMAT (3X,F8.4,2X,F8.4,8X,I2,9X,F8.4,9X,F8.4)\r\n 270  FORMAT (3X,F8.4,2X,F8.4)\r\n 280  FORMAT (29X,I2,9X,F8.4,9X,F8.4)\r\n 290  FORMAT (/10X,'COMPUTING STATION',I3,5X,'NUMBER OF DESCRIBING ',\r\n     1       'POINTS=',I3,6X,7HIFANGS(,I2,2H)=,I3, //6X,'DESCRIPTION',\r\n     2       9X,'STREAMLINE',5X,5HRADII,9X,'DELTA PRESSURE', /6X,1HX,\r\n     3       9X,1HR,11X,6HNUMBER, //)\r\n 300  CONTINUE\r\n      SQ = 0.0\r\n      SB = 0.0\r\n      IF (ISECN.EQ.1 .OR. ISECN.EQ.3) GO TO 340\r\n      DO 305 ISBS = 1,NSPEC\r\n      S(ISBS)  = 0.0\r\n 305  BS(ISBS) = 0.0\r\n      IF (LNCT .LE. 54-NSPEC) GO TO 310\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 310  LNCT = LNCT + NSPEC + 6\r\n      DO 315 J = 1,NSPEC\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\n      ZR(J)  = RDATA(1)\r\n      B1(J)  = RDATA(2)\r\n      B2(J)  = RDATA(3)\r\n      PP(J)  = RDATA(4)\r\n      QQ(J)  = RDATA(5)\r\n      RLE(J) = RDATA(6)\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\n      TC(J)   = RDATA(1)\r\n      TE(J)   = RDATA(2)\r\n      ZZ(J)   = RDATA(3)\r\n      CORD(J) = RDATA(4)\r\n      DELX(J) = RDATA(5)\r\n 315  DELY(J) = RDATA(6)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,330) (ZR(J),B1(J),B2(J),PP(J),QQ(J),\r\n     1    RLE(J),TC(J),TE(J),ZZ(J),CORD(J),DELX(J),DELY(J),J=1,NSPEC)\r\n 330  FORMAT (/20X,'SECTION GEOMETRY SPECIFICATION', //10X,'STREAMLINE',\r\n     1       '  INLET',5X,6HOUTLET,4X,6HY2 LE/,4X,6HY2 TE/,3X,48HLE RADI\r\n     2US MAX THICK TE THICK  POINT OF  CHORD OR,3X,7HX STACK,3X,7HY STAC\r\n     3K, /11X,6HNUMBER,5X,5HANGLE,5X,5HANGLE,3X,19HMAX VALUE MAX VALUE,3\r\n     4X,6H/CHORD,4X,6H/CHORD,3X,8H/2*CHORD,2X,18HMAX THICK AXIAL CD,4X,6\r\n     5HOFFSET,4X,6HOFFSET, //,(10X,F7.2,3X,F8.3,F10.3,2F10.4,3F10.5,\r\n     62F10.4,F11.6,F10.6))\r\n      GO TO 390\r\n 340  IF (LNCT .LE. 50-2*NSPEC) GO TO 350\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 350  LNCT = LNCT + 10 + 2*NSPEC\r\n      DO 360 J = 1,NSPEC\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\n      ZR(J)  = RDATA(1)\r\n      B1(J)  = RDATA(2)\r\n      B2(J)  = RDATA(3)\r\n      PP(J)  = RDATA(4)\r\n      QQ(J)  = RDATA(5)\r\n      RLE(J) = RDATA(6)\r\n      CALL FREAD (LOG1,RDATA,6,1)\r\n      TC(J)   = RDATA(1)\r\n      TE(J)   = RDATA(2)\r\n      ZZ(J)   = RDATA(3)\r\n      CORD(J) = RDATA(4)\r\n      DELX(J) = RDATA(5)\r\n      DELY(J) = RDATA(6)\r\n      CALL FREAD (LOG1,RDATA,2,1)\r\n      S(J)  = RDATA(1)\r\n 360  BS(J) = RDATA(2)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,330) (ZR(J),B1(J),B2(J),PP(J),QQ(J),\r\n     1    RLE(J),TC(J),TE(J),ZZ(J),CORD(J),DELX(J),DELY(J),J=1,NSPEC)\r\n      IF (IPRTC.EQ.1 .AND. ISECN.EQ.1) WRITE (LOG2,370) (ZR(J),S(J),\r\n     1    BS(J),J=1,NSPEC)\r\n 370  FORMAT (/10X,'STREAMLINE  INFLECTION  INFLECTION', /11X,'NUMBER',\r\n     1       8X,5HPOINT,7X,5HANGLE, //,(10X,F7.2,F14.5,F11.3))\r\n      IF (IPRTC.EQ.1 .AND. ISECN.EQ.3) WRITE (LOG2,380) (ZR(J),S(J),\r\n     1    BS(J),J=1,NSPEC)\r\n 380  FORMAT (/10X,'STREAMLINE  TRANSITION  DEL ANGLE', /11X,'NUMBER',\r\n     1       8X,5HPOINT,6X,7HFROM LE, //,(10X,F7.2,F14.5,F11.3))\r\n 390  IF (ISPLIT .EQ. 0) GO TO 430\r\n      DO 400 J = 1,NSPEC\r\n      CALL FREAD (LOG1,RDATA,5,1)\r\n      RLES(J)   = RDATA(1)\r\n      TCS(J)    = RDATA(2)\r\n      TES(J)    = RDATA(3)\r\n      ZZS(J)    = RDATA(4)\r\n 400  PERSPT(J) = RDATA(5)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,410)\r\n 410  FORMAT (/20X,13HSPLITTER DATA, //10X,10HSTREAMLINE,2X,47HLE RADIUS\r\n     1 MAX THICK TE THICK  POINT OF PER CENT, /11X,6HNUMBER,7X,6H/CHORD,\r\n     2 4X,6H/CHORD,3X,8H/2*CHORD,2X,9HMAX THICK,2X,8HSPLITTER, /)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,420) (ZR(J),RLES(J),TCS(J),TES(J),\r\n     1    ZZS(J),PERSPT(J),J=1,NSPEC)\r\n 420  FORMAT (10X,F7.2,3X,F8.3,F10.3,3F10.4)\r\n 430  CONTINUE\r\n      IF (IFPLOT.EQ.0 .OR. IFPLOT.EQ.4) GO TO 440\r\n      IKDUM = 0\r\n      IF (B1(1) .LT. 0.0) IKDUM = 1\r\n      IF (IFPLOT.EQ.1 .OR. IFPLOT.EQ.3) CALL ALG17 (ISTAK,PLTSZE,1,\r\n     1    TITLE,IKDUM,IFPLOT)\r\n 440  NDUM  = NPOINT\r\n      IIDUM = ISECN\r\n      DO 870 J = 1,NLINES\r\n      NPOINT = NDUM\r\n      ISECN  = IIDUM\r\n      DO 450 I = 1,NSTNS\r\n      KPT = KPTS(I)\r\n 450  CALL ALG15 (RSTA(1,I),XSTA(1,I),KPT,R(I,J),XHERE(I),1,0)\r\n      X(1)   = XHERE(1)\r\n      X(100) = XHERE(NSTNS)\r\n      AX = (X(100)-X(1))/99.0\r\n      DO 460 I = 2,99\r\n 460  X(I) = X(I-1) + AX\r\n      CALL ALG14 (XHERE,R(1,J),NSTNS,X,XDUM,YPRIME,100,1)\r\n      CALL ALG14 (XHERE,R(1,J),NSTNS,XHERE,XDUM,TANPHI(1,J),NSTNS,1)\r\n      SS(1) = 0.0\r\n      DO 470 I = 2,100\r\n 470  SS(I) = SS(I-1) + AX*SQRT(1.0+((YPRIME(I)+YPRIME(I-1))/2.0)**2)\r\n      XJ = J\r\n      CALL ALG15 (ZR,B1,NSPEC,XJ,BETA1,1,0)\r\n      CALL ALG15 (ZR,B2,NSPEC,XJ,BETA2,1,0)\r\n      CALL ALG15 (ZR,PP,NSPEC,XJ,P,1,0)\r\n      CALL ALG15 (ZR,QQ,NSPEC,XJ,Q,1,0)\r\n      CALL ALG15 (ZR,RLE,NSPEC,XJ,YZERO,1,0)\r\n      CALL ALG15 (ZR,TC,NSPEC,XJ,T,1,0)\r\n      CALL ALG15 (ZR,TE,NSPEC,XJ,YONE,1,0)\r\n      CALL ALG15 (ZR,DELX,NSPEC,XJ,XDEL,1,0)\r\n      CALL ALG15 (ZR,DELY,NSPEC,XJ,YDEL,1,0)\r\n      CALL ALG15 (ZR,ZZ,NSPEC,XJ,Z,1,0)\r\n      CALL ALG15 (ZR,CORD,NSPEC,XJ,CHD,1,0)\r\n      IF (ISECN.EQ.0 .OR. ISECN.EQ.2) GO TO 480\r\n      CALL ALG15 (ZR,S,NSPEC,XJ,SQ,1,0)\r\n      CALL ALG15 (ZR,BS,NSPEC,XJ,SB,1,0)\r\n 480  IF (ISPLIT .EQ. 0) GO TO 490\r\n      CALL ALG15 (ZR,RLES,NSPEC,XJ,YZEROS,1,1)\r\n      CALL ALG15 (ZR,TCS,NSPEC,XJ,TS,1,1)\r\n      CALL ALG15 (ZR,TES,NSPEC,XJ,YONES,1,1)\r\n      CALL ALG15 (ZR,ZZS,NSPEC,XJ,ZSPMXT,1,1)\r\n      CALL ALG15 (ZR,PERSPT,NSPEC,XJ,PERSPJ,1,1)\r\n 490  CALL ALG15 (X,SS,100,STACKX,BX,1,1)\r\n      CALL ALG13 (J,YS,YP,XS,XP,YSEMI,XSEMI,LOG1,LOG2,NPOINT,IPRINT,\r\n     1     BETA1,BETA2,P,Q,YZERO,T,YONE,XDEL,YDEL,Z,CHD,LNCT,IFCORD,SQ,\r\n     2     SB,ISECN,XSEMJ,YSEMJ,ISTAK,XHERE,X,SS,NSTNS,R,XTEMP,YPRIME,\r\n     3     RAD,EPZ,BX,SIGMA,CCORD,ISPLIT,YZEROS,TS,YONES,ZSPMXT,PERSPJ,\r\n     4     INAST,IRLE,IRTE,THARR)\r\n      CALL ALG15 (X,SS,100,STACKX,BX,1,1)\r\n      DO 500 I = 1,100\r\n      X(I)  = X(I) - STACKX\r\n 500  SS(I) = SS(I)- BX\r\n      DO 510 I = 1,NSTNS\r\n 510  XHERE(I) = XHERE(I) - STACKX\r\n      IF (IFPLOT.EQ.0 .OR. IFPLOT.EQ.2 .OR. IFPLOT.EQ.4) GO TO 570\r\n      XPLOT = XS(J,1)*SCALE\r\n      YPLOT = YS(J,1)*SCALE\r\n      DO 520 I = 2,NPOINT\r\n      XPLOT = XS(J,I)*SCALE\r\n      YPLOT = YS(J,I)*SCALE\r\n 520  CONTINUE\r\n      IF (ISECN .NE. 2) GO TO 540\r\n      DO 530 I = 2,30\r\n      XPLOT = XSEMJ(J,I)*SCALE\r\n      YPLOT = YSEMJ(J,I)*SCALE\r\n 530  CONTINUE\r\n 540  DO 550 II = 1,NPOINT\r\n      I = NPOINT - II + 1\r\n      XPLOT = XP(J,I)*SCALE\r\n      YPLOT = YP(J,I)*SCALE\r\n 550  CONTINUE\r\n      DO 560 I = 2,30\r\n      XPLOT = XSEMI(J,I)*SCALE\r\n      YPLOT = YSEMI(J,I)*SCALE\r\n 560  CONTINUE\r\n      XPLOT = XS(J,1)*SCALE\r\n      YPLOT = YS(J,1)*SCALE\r\n 570  IJDUM = 0\r\n      DO 580 I = 1,NSTNS\r\n      IF (IFANGS(I).GE.1) IJDUM = 1\r\n 580  CONTINUE\r\n      IF (IJDUM.EQ.0 .AND. INAST.EQ.0) GO TO 600\r\n      CALL ALG15 (SS,X,100,XTEMP,XTEMP,100,1)\r\n      DO 590 I = 1,NSTNS\r\n      CALL ALG15 (XTEMP,SIGMA,100,XHERE(I),THETA(J,I),1,1)\r\n      CALL ALG15 (XTEMP,YPRIME,100,XHERE(I),ALPHA(J,I),1,1)\r\n      ZCAMB(J,I) = R(I,J)*COS(THETA(J,I))\r\n      XCAMB(J,I) = XHERE(I)\r\n 590  YCAMB(J,I) = R(I,J)*SIN(THETA(J,I))\r\n 600  DO 610 I = 1,NPOINT\r\n 610  XTEMP(I) = XS(J,I)\r\n      CALL ALG15 (SS,X,100,XTEMP,XTEMP,NPOINT,1)\r\n      CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,NPOINT,0)\r\n      K = 1\r\n      DO 620 I = 1,NPOINT\r\n      EPS = EPZ(I,K)\r\n      ZS(J,I) = RAD(I)*COS(EPS)\r\n      YS(J,I) = RAD(I)*SIN(EPS)\r\n 620  XS(J,I) = XTEMP(I)\r\n      DO 630 I = 1,NPOINT\r\n 630  XTEMP(I) = XP(J,I)\r\n      CALL ALG15 (SS,X,100,XTEMP,XTEMP,NPOINT,1)\r\n      CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,NPOINT,0)\r\n      K = 2\r\n      DO 640 I = 1,NPOINT\r\n      EPS = EPZ(I,K)\r\n      ZP(J,I) = RAD(I)*COS(EPS)\r\n      YP(J,I) = RAD(I)*SIN(EPS)\r\n 640  XP(J,I) = XTEMP(I)\r\n      DO 650 I = 1,31\r\n 650  XTEMP(I) = XSEMI(J,I)\r\n      CALL ALG15 (SS,X,100,XTEMP,XTEMP,31,1)\r\n      CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,31,0)\r\n      K = 3\r\n      DO 660 I = 1,31\r\n      EPS = EPZ(I,K)\r\n      ZSEMI(J,I) = RAD(I)*COS(EPS)\r\n      YSEMI(J,I) = RAD(I)*SIN(EPS)\r\n 660  XSEMI(J,I) = XTEMP(I)\r\n      IF (ISECN .NE. 2) GO TO 690\r\n      DO 670 I = 1,31\r\n 670  XTEMP(I) = XSEMJ(J,I)\r\n      CALL ALG15 (SS,X,100,XTEMP,XTEMP,31,1)\r\n      CALL ALG15 (XHERE,R(1,J),NSTNS,XTEMP,RAD,31,0)\r\n      K = 4\r\n      DO 680 I = 1,31\r\n      EPS = EPZ(I,K)\r\n      ZSEMJ(J,I) = RAD(I)*COS(EPS)\r\n      YSEMJ(J,I) = RAD(I)*SIN(EPS)\r\n 680  XSEMJ(J,I) = XTEMP(I)\r\n 690  IF (IPRINT .GE. 2) GO TO 870\r\n      IF (LNCT  .LE. 50) GO TO 700\r\n      IF (IPRTC .NE.  1) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 700  LNCT = LNCT + 5\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,710) J\r\n 710  FORMAT (/10X,38HCARTESIAN COORDINATES ON STREAMSURFACE,I3, //10X,\r\n     1       8HPOINT NO,5X,2HZ1,12X,2HX1,12X,2HY1,16X,2HZ2,12X,2HX2,\r\n     2       12X,2HY2, /)\r\n      I = 1\r\n 720  IF (IPRTC .EQ. 1) WRITE (LOG2,730) I,ZS(J,I),XS(J,I),YS(J,I),\r\n     1    ZP(J,I),XP(J,I),YP(J,I)\r\n 730  FORMAT (10X,I5,3X,1P,3E14.5,4X,1P,3E14.5)\r\n      I = I + 1\r\n      LNCT = LNCT + 1\r\n      IF (I .GT. NPOINT) GO TO 750\r\n      IF (LNCT .LE.  59) GO TO 720\r\n      IF (IPRTC .EQ.  1) WRITE (LOG2,740)\r\n 740  FORMAT (1H1,9X,8HPOINT NO,5X,2HZ1,12X,2HX1,12X,2HY1,16X,2HZ2,12X,\r\n     1        2HX2,12X,2HY2, /)\r\n      LNCT = 2\r\n      GO TO 720\r\n 750  IF (LNCT .LE. 50) GO TO 760\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 760  LNCT = LNCT + 3\r\n      IF (ISECN .NE. 2) GO TO 770\r\n      GO TO 820\r\n 770  IF (IPRTC .EQ. 1) WRITE (LOG2,780)\r\n 780  FORMAT (/10X,8HPOINT NO,4X,5HZSEMI,9X,5HXSEMI,9X,5HYSEMI, /)\r\n 790  FORMAT (/10X,8HPOINT NO,4X,5HZSEMI,9X,5HXSEMI,9X,5HYSEMI,13X,\r\n     15HZSEMJ,9X,5HXSEMJ,9X,5HYSEMJ, /)\r\n      I = 1\r\n 800  IF (IPRTC .EQ. 1) WRITE (LOG2,810) I,ZSEMI(J,I),XSEMI(J,I),\r\n     1    YSEMI(J,I)\r\n 810  FORMAT (10X,I5,3X,1P,3E14.5)\r\n      GO TO 850\r\n 820  IF (IPRTC .EQ. 1) WRITE (LOG2,790)\r\n      I = 1\r\n 830  IF (IPRTC .EQ. 1) WRITE (LOG2,840) I,ZSEMI(J,I),XSEMI(J,I),\r\n     1                  YSEMI(J,I),ZSEMJ(J,I),XSEMJ(J,I),YSEMJ(J,I)\r\n 840  FORMAT (10X,I5,3X,1P,3E14.5,4X,1P,3E14.5)\r\n 850  I = I + 1\r\n      LNCT = LNCT + 1\r\n      IF (I .GT. 31) GO TO 870\r\n      IF (LNCT.LE.59 .AND. ISECN.EQ.2) GO TO 830\r\n      IF (ISECN .NE. 2) GO TO 860\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,790)\r\n      LNCT = 4\r\n      GO TO 830\r\n 860  IF (LNCT .LE. 59) GO TO 800\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,780)\r\n      LNCT = 4\r\n      GO TO 800\r\n 870  CONTINUE\r\n      IF (IPRINT .EQ. 1) GO TO 1030\r\n      VOL = 0.0\r\n      DO 880 J = 2,NLINES\r\n      VOL = VOL + (((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2) +\r\n     1      ((XS(J-1,1)-XP(J-1,1))**2 + (YS(J-1,1)-YP(J-1,1))**2))*\r\n     2      (ZS(J,1)+ZP(J,1)-ZS(J-1,1) - ZP(J-1,1))*PI/32.0\r\n      DO 880 I = 2,NPOINT\r\n 880  VOL = VOL + ((SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2) +\r\n     1      SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2))*\r\n     2      (SQRT((XS(J,I-1)-XS(J,I))**2+(YS(J,I-1)-YS(J,I))**2) +\r\n     3      SQRT((XP(J,I-1)-XP(J,I))**2+(YP(J,I-1)-YP(J,I))**2)) +\r\n     4      (SQRT((XS(J-1,I)-XP(J-1,I))**2+(YS(J-1,I)-YP(J-1,I))**2) +\r\n     5      SQRT((XS(J-1,I-1)-XP(J-1,I-1))**2+(YS(J-1,I-1)-YP(J-1,I-1))\r\n     6      **2))*(SQRT((XS(J-1,I-1)-XS(J-1,I))**2+(YS(J-1,I-1)-\r\n     7      YS(J-1,I))**2)+SQRT((XP(J-1,I-1)-XP(J-1,I))**2+(YP(J-1,I-1)-\r\n     8      YP(J-1,I))**2)))*(ZS(J,I)+ZS(J,I-1)+ZP(J,I)+ZP(J,I-1)-\r\n     9      ZS(J-1,I)-ZS(J-1,I-1)-ZP(J-1,I)-ZP(J-1,I-1))/32.0\r\n      IF (LNCT .LE. 56) GO TO 890\r\n      LNCT = 1\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n 890  LNCT = LNCT + 4\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,900) VOL\r\n 900  FORMAT (//40X,25HVOLUME OF BLADE SECTION =,1P,E11.4, /40X,36(1H*))\r\n      IF (IJDUM  .EQ. 0) GO TO 1030\r\n      IF (IPRINT .NE. 3) WRITE (LOG2,200)\r\n      IF (IPRINT .EQ. 3) WRITE (LOG2,910)\r\n 910  FORMAT (//)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,920)\r\n 920  FORMAT (1H1,42X,43HBLADE CALCULATIONS FOR AERODYNAMIC ANALYSIS,\r\n     1        /43X,43(1H*))\r\n      IDUM = 7\r\n      LNCT = LNCT + 4\r\n      IF (IPRINT .NE. 3) LNCT = 3\r\n      DO 1020 I = 1,NSTNS\r\n      IF (IFANGS(I).EQ.0 .OR. (ISPLIT.GE.1 .AND. IFANGS(I).EQ.1))\r\n     1    GO TO 1020\r\n      DO 940 J = 1,NLINES\r\n      CALL ALG15 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),XDUM,1,0)\r\n      CALL ALG14 (RSTA(1,I),XSTA(1,I),KPTS(I),R(I,J),XDUM,ZQ(J),1,1)\r\n      DO 930 K = 1,NPOINT\r\n      SS(K)  = XS(J,K)\r\n      RAD(K) = YS(J,K)\r\n      XTEMP(K) = XP(J,K)\r\n 930  X(K) = YP(J,K)\r\n      XDUM = XDUM - STACKX\r\n      CALL ALG15 (SS,RAD,NPOINT,XDUM,YY1,1,1)\r\n      CALL ALG15 (XTEMP,X,NPOINT,XDUM,YY2,1,1)\r\n      W1 = YY1/R(I,J)\r\n      W2 = YY2/R(I,J)\r\n      TQ(J) = ABS(ATAN(W1/SQRT(1.-W1**2))-ATAN(W2/SQRT(1.-W2**2)))/\r\n     1        (2.*PI)*FLOAT(NBLADE)\r\n 940  CONTINUE\r\n      CALL ALG14 (ZCAMB(1,I),YCAMB(1,I),NLINES,ZCAMB(1,I),XDUM,RLE,\r\n     1            NLINES,1)\r\n      IF (LNCT+IDUM+NLINES .LE. 59) GO TO 950\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      LNCT = 2\r\n 950  LNCT = LNCT + IDUM + NLINES\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,960) I,NLINES\r\n 960  FORMAT (///48X,8HSTATION ,I2,5X,17HNUMBER OF RADII= ,I2,  //36X,6H\r\n     1RADIUS,5X,7HSECTION,6X,4HLEAN,9X,5HBLADE,7X,5HTHETA, /48X,5HANGLE,\r\n     26X,5HANGLE,7X,8HBLOCKAGE, /)\r\n      DO 1000 J = 1,NLINES\r\n      EPS = (THETA(J,I)-ATAN(RLE(J)))*C1\r\n      ALPHB = ALPHA(J,I)\r\n      ALP = (ATAN((TANPHI(I,J)*TAN(EPS/C1)+ALPHB*SQRT(1.+TANPHI(I,J)**2)\r\n     1      )/(1.-TANPHI(I,J)*ZQ(J))))*C1\r\n      ALPB(I,J) = ALP\r\n      EPSLON(I,J) = ATAN(TAN(EPS/C1)/SQRT(1.0+ZQ(J)**2))*C1\r\n      IF (ISPLIT .LT. 1) GO TO 990\r\n      CALL FREAD (LOG1,RDATA,4,1)\r\n      XB = RDATA(4)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,980) XB,I,J\r\n 980  FORMAT(90X,14HADDIT. BLOCK =,F7.5,3H I=,I2,3H J=,I2)\r\n      TQ(J) = TQ(J) + XB\r\n 990  IF (IPRTC .EQ.1) WRITE (LOG2,1010) R(I,J),ALP,EPS,TQ(J),THETA(J,I)\r\n 1000 BLOCK(I,J) = TQ(J)\r\n 1010 FORMAT (30X,5F12.4)\r\n 1020 CONTINUE\r\n 1030 IF (IFPLOT.LT.2 .OR. IFPLOT.EQ.4) GO TO 1040\r\n      CALL ALG17 (ISTAK,PLTSZE,2,TITLE,IKDUM,IFPLOT)\r\n 1040 IF (IPRINT.EQ.1 .OR. IPRINT.EQ.3) GO TO 1060\r\n      LNCT = 2\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1050)\r\n 1050 FORMAT (1H1,27X,74HBLADE SURFACE GEOMETRY IN CARTESIAN COORDINATES\r\n     1 AT SPECIFIED VALUES OF  Z , /28X,18(4H****),2H**)\r\n 1060 IF (IPRINT.EQ.1 .AND. IFPLOT.LE.1) GO TO 1470\r\n      XZ = NZ - 1\r\n      DZ = (ZOUTER-ZINNER)/XZ\r\n      ZOUT(1) = ZINNER\r\n      DO 1070 J = 3,NZ\r\n 1070 ZOUT(J-1) = ZOUT(J-2) + DZ\r\n      ZOUT(NZ) = ZOUTER\r\n      DO 1080 I = 1,NPOINT\r\n      CALL ALG15 (ZS(1,I),XS(1,I),NLINES,ZOUT,TEMP1,NZ,0)\r\n      CALL ALG15 (ZS(1,I),YS(1,I),NLINES,ZOUT,TEMP2,NZ,0)\r\n      CALL ALG15 (ZP(1,I),XP(1,I),NLINES,ZOUT,TEMP3,NZ,0)\r\n      CALL ALG15 (ZP(1,I),YP(1,I),NLINES,ZOUT,TEMP4,NZ,0)\r\n      DO 1080 J = 1,NZ\r\n      XS(J,I) = TEMP1(J)\r\n      YS(J,I) = TEMP2(J)\r\n      XP(J,I) = TEMP3(J)\r\n 1080 YP(J,I) = TEMP4(J)\r\n      DO 1090 I = 1,31\r\n      CALL ALG15 (ZSEMI(1,I),XSEMI(1,I),NLINES,ZOUT,TEMP1,NZ,0)\r\n      CALL ALG15 (ZSEMI(1,I),YSEMI(1,I),NLINES,ZOUT,TEMP2,NZ,0)\r\n      DO 1090 J = 1,NZ\r\n      XSEMI(J,I) = TEMP1(J)\r\n 1090 YSEMI(J,I) = TEMP2(J)\r\n      IF (ISECN .NE. 2) GO TO 1110\r\n      DO 1100 I = 1,31\r\n      CALL ALG15 (ZSEMJ(1,I),XSEMJ(1,I),NLINES,ZOUT,TEMP1,NZ,0)\r\n      CALL ALG15 (ZSEMJ(1,I),YSEMJ(1,I),NLINES,ZOUT,TEMP2,NZ,0)\r\n      DO 1100 J = 1,NZ\r\n      XSEMJ(J,I) = TEMP1(J)\r\n 1100 YSEMJ(J,I) = TEMP2(J)\r\n 1110 DO 1460 J = 1,NZ\r\n      RD = SQRT((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2)/2.0\r\n      AREA = PI*RD**2/2.0\r\n      BETA1 = ATAN((YS(J,2)+YP(J,2)-YS(J,1)-YP(J,1))/(XS(J,2)+XP(J,2)-\r\n     1        XS(J,1)-XP(J,1)))\r\n      XINT = AREA*((XP(J,1)+XS(J,1))/2.0-COS(BETA1)*4.0/(3.0*PI)*RD)\r\n      YINT = AREA*((YP(J,1)+YS(J,1))/2.0-SIN(BETA1)*4.0/(3.0*PI)*RD)\r\n      IF (ISECN .NE. 2) GO TO 1120\r\n      N1 = NPOINT\r\n      N  = N1\r\n      N2 = N1 - 1\r\n      BETA2 = ATAN((YS(J,N1)+YP(J,N1)-YS(J,N2)-YP(J,N2))/(XS(J,N1)+\r\n     1        XP(J,N1)-XS(J,N2)-XP(J,N2)))\r\n      XINT = XINT + AREA*((XP(J,N)+XS(J,N))/2.+COS(BETA2)*4./(3.*PI)*RD)\r\n      YINT = YINT + AREA*((YP(J,N)+YS(J,N))/2.+SIN(BETA2)*4./(3.*PI)*RD)\r\n      AREA = 2.*AREA\r\n 1120 DO 1130 I = 2,NPOINT\r\n      DELA = (SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2)+\r\n     1        SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2))*\r\n     2        (SQRT((XS(J,I-1)-XS(J,I))**2+(YS(J,I-1)-YS(J,I))**2)+\r\n     3        SQRT((XP(J,I-1)-XP(J,I))**2+(YP(J,I-1)-YP(J,I))**2))/4.0\r\n      AREA = AREA + DELA\r\n      XINT = XINT + DELA*(XS(J,I)+XS(J,I-1)+XP(J,I)+XP(J,I-1))/4.0\r\n 1130 YINT = YINT + DELA*(YS(J,I)+YS(J,I-1)+YP(J,I)+YP(J,I-1))/4.0\r\n      YINT = YINT/AREA\r\n      XINT = XINT/AREA\r\n      X1   = (XS(J,1)+XP(J,1))/2.\r\n      Y1   = (YS(J,1)+YP(J,1))/2.\r\n      T1   = SQRT((XS(J,1)-XP(J,1))**2+(YS(J,1)-YP(J,1))**2)\r\n      F    = 0.\r\n      U    = 0.\r\n      DO 1140 I = 2,NPOINT\r\n      T2   = SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2)\r\n      X2   = (XS(J,I)+XP(J,I))/2.\r\n      Y2   = (YS(J,I)+YP(J,I))/2.\r\n      DELU = SQRT((X2-X1)**2+(Y2-Y1)**2)\r\n      U    = U + DELU\r\n      TAV3 = (T1**3+T2**3)/2.\r\n      F    = F + TAV3*DELU\r\n      X1   = X2\r\n      Y1   = Y2\r\n 1140 T1   = T2\r\n      TORCON = ((1./3.)*F)/(1.+(4./3.)*F/AREA/U**2)\r\n      IX   = 0.0\r\n      IY   = 0.0\r\n      IXY  = 0.0\r\n      DO 1150 I = 2,NPOINT\r\n      XD   = (SQRT((XS(J,I-1)-XP(J,I-1))**2+(YS(J,I-1)-YP(J,I-1))**2)+\r\n     1        SQRT((XS(J,I)-XP(J,I))**2+(YS(J,I)-YP(J,I))**2))/2.0\r\n      YD   = (SQRT((XS(J,I)-XS(J,I-1))**2+(YS(J,I)-YS(J,I-1))**2)+\r\n     1        SQRT((XP(J,I)-XP(J,I-1))**2+(YP(J,I)-YP(J,I-1))**2))/2.0\r\n      IXD  = YD*YD*YD*XD/12.0\r\n      IYD  = XD*XD*XD*YD/12.0\r\n      ANG  = ATAN((YS(J,I)+YP(J,I)-YS(J,I-1)-YP(J,I-1))/(XP(J,I)+XS(J,I)\r\n     1       -XP(J,I-1)-XS(J,I-1)))\r\n      COSANG = COS(2.0*ANG)\r\n      IXN  = (IXD+IYD+(IXD-IYD)*COSANG)/2.0\r\n      IYN  = (IXD+IYD-(IXD-IYD)*COSANG)/2.0\r\n      IXYN = 0.0\r\n      IF (ANG .NE. 0.0) IXYN = ((IXN-IYN)*COSANG-IXD+IYD)/\r\n     1                         (2.0*SIN(2.0*ANG))\r\n      DELA = XD*YD\r\n      YMN  = (YS(J,I)+YS(J,I-1)+YP(J,I)+YP(J,I-1))/4.0-YINT\r\n      XMN  = (XS(J,I)+XS(J,I-1)+XP(J,I)+XP(J,I-1))/4.0-XINT\r\n      IX   = IX + IXN + DELA*YMN*YMN\r\n      IY   = IY + IYN + DELA*XMN*XMN\r\n 1150 IXY  = IXY+ IXYN+ DELA*YMN*XMN\r\n      ANG  = ATAN(2.0*IXY/(IY-IX))\r\n      IPX  = (IX+IY)/2.0+(IX-IY)/2.0*COS(ANG)-IXY*SIN(ANG)\r\n      IPY  = (IX+IY)/2.0-(IX-IY)/2.0*COS(ANG)+IXY*SIN(ANG)\r\n      ANG  = ANG/2.0*C1\r\n      IF (IPRINT.EQ.1 .OR. IPRINT.EQ.3) GO TO 1320\r\n      IF (LNCT .LE. 45) GO TO 1160\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 1160 LNCT = LNCT + 16\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1170) J,ZOUT(J),AREA,XINT,YINT,IX,\r\n     1    IY,IXY,IPX,ANG,IPY,ANG\r\n 1170 FORMAT (/50X,14HSECTION NUMBER,I3,3X,5H Z  =,F9.4, /50X,    34H***\r\n     1*******************************, ///20X,18HSECTION PROPERTIES,7X,1\r\n     22HSECTION AREA,26X,1H=,1P,E12.4,//45X,20HLOCATION OF CENTROID,11X,\r\n     34HXBAR,3X,1H=,E12.4, /45X,22HRELATIVE TO STACK AXIS,9X,4HYBAR,3X,1\r\n     4H=,E12.4, //45X,22HSECOND MOMENTS OF AREA,9X,2HIX,5X,1H=,E12.4, /4\r\n     55X,14HABOUT CENTROID,17X,2HIY,5X,1H=,E12.4, /76X,3HIXY,4X,1H=,E12.\r\n     64, //45X,24HPRINCIPAL SECOND MOMENTS,7X,3HIPX,4X,1H=,E12.4,4H (AT,\r\n     70P,F7.2,21H DEGREES TO  X  AXIS),/45X,22HOF AREA ABOUT CENTROID,9X\r\n     8,3HIPY,4X,1H=,1P,E12.4,4H (AT,0P,F7.2,21H DEGREES TO  Y  AXIS))\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1180) TORCON\r\n 1180 FORMAT (/45X,18HTORSIONAL CONSTANT,20X,1H=,1P,E12.4, /)\r\n      LNCT = LNCT + 3\r\n      IF (LNCT .LE. 50) GO TO 1190\r\n      IF(IPRTC .NE.  0) WRITE (LOG2,200)\r\n      LNCT = 1\r\n 1190 LNCT = LNCT + 5\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1200)\r\n 1200 FORMAT (/20X,19HSECTION COORDINATES, /)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1210)\r\n 1210 FORMAT (31X,8HPOINT NO,5X,2HX1,12X,2HY1,16X,2HX2,12X,2HY2, /)\r\n      DO 1220 I = 1,NPOINT\r\n      LNCT = LNCT + 1\r\n      IF (LNCT .LE. 60) GO TO 1220\r\n      LNCT = 4\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1210)\r\n 1220 IF (IPRTC .EQ. 1) WRITE (LOG2,1230) I,XS(J,I),YS(J,I),XP(J,I),\r\n     1                                    YP(J,I)\r\n 1230 FORMAT (31X,I5,3X,1P,2E14.5,4X,1P,2E14.5)\r\n      IF (LNCT.LE.55) GO TO 1240\r\n      LNCT = 1\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n 1240 LNCT = LNCT + 3\r\n      IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1260)\r\n      IF (ISECN .EQ. 2) GO TO 1270\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1250)\r\n 1250 FORMAT (/31X,8HPOINT NO,5X,5HXSEMI,9X,5HYSEMI, /)\r\n 1260 FORMAT (/31X,8HPOINT NO,5X,5HXSEMI,9X,5HYSEMI,12X,5HXSEMJ,9X,\r\n     1        5HYSEMJ, /)\r\n 1270 DO 1300 I = 1,31\r\n      LNCT = LNCT + 1\r\n      IF (LNCT .LE. 60) GO TO 1290\r\n      IF (IPRTC .NE. 0) WRITE (LOG2,200)\r\n      IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1260)\r\n      IF (ISECN .EQ. 2) GO TO 1280\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1250)\r\n 1280 LNCT = 4\r\n 1290 IF (IPRTC.EQ.1 .AND. ISECN.EQ.2) WRITE (LOG2,1230) I,XSEMI(J,I),\r\n     1    YSEMI(J,I),XSEMJ(J,I),YSEMJ(J,I)\r\n      IF (ISECN .EQ. 2) GO TO 1300\r\n      IF (IPRTC .EQ. 1) WRITE (LOG2,1310) I,XSEMI(J,I),YSEMI(J,I)\r\n 1300 CONTINUE\r\n 1310 FORMAT (31X,I5,3X,1P,2E14.5)\r\n 1320 IF (IFPLOT .LT. 2) GO TO 1460\r\n      IF (IFPLOT .EQ. 4) GO TO 1380\r\n      XPLOT = XS(J,1)*SCALE\r\n      YPLOT = YS(J,1)*SCALE\r\n      DO 1330 I = 2,NPOINT\r\n      XPLOT = XS(J,I)*SCALE\r\n      YPLOT = YS(J,I)*SCALE\r\n 1330 CONTINUE\r\n      IF (ISECN .NE. 2) GO TO 1350\r\n      DO 1340 I = 2,30\r\n      XPLOT = XSEMJ(J,I)*SCALE\r\n      YPLOT = YSEMJ(J,I)*SCALE\r\n 1340 CONTINUE\r\n 1350 DO 1360 II = 1,NPOINT\r\n      I = NPOINT + 1 - II\r\n      XPLOT = XP(J,I)*SCALE\r\n      YPLOT = YP(J,I)*SCALE\r\n 1360 CONTINUE\r\n      DO 1370 I = 2,30\r\n      XPLOT = XSEMI(J,I)*SCALE\r\n      YPLOT = YSEMI(J,I)*SCALE\r\n 1370 CONTINUE\r\n      XPLOT = XS(J,1)*SCALE\r\n      YPLOT = YS(J,1)*SCALE\r\n      GO TO 1460\r\n 1380 CONTINUE\r\n      XJ = J\r\n      STAGER = ATAN((YS(J,NPOINT)+YP(J,NPOINT)-YS(J,1)-YP(J,1))/\r\n     1         (XS(J,NPOINT)+XP(J,NPOINT)-XS(J,1)-XP(J,1)))*C1\r\n      XSIGN  = FLOAT(NSIGN)\r\n      SINSTG = SIN(STAGER/C1)\r\n      COSSTG = COS(STAGER/C1)\r\n      YPLOT  = 4.75\r\n      XPLOT  = 4.75*SINSTG/COSSTG\r\n      IF (ABS(XPLOT) .LE. 22.0) GO TO 1390\r\n      XPLOT  = 22.0\r\n      YPLOT  =-22.0/SINSTG*COSSTG\r\n 1390 CONTINUE\r\n      XPLOT = -XPLOT\r\n      YPLOT = -YPLOT\r\n      XPLOT = 22.0\r\n      YPLOT =-22.0*SINSTG/COSSTG\r\n      IF (ABS(YPLOT) .LE. 4.75) GO TO 1400\r\n      YPLOT =-4.75\r\n      XPLOT = 4.75/SINSTG*COSSTG\r\n 1400 CONTINUE\r\n      XPLOT = -XPLOT\r\n      YPLOT = -YPLOT\r\n      XPLOT = SCALE*(XS(J,1)*COSSTG+YS(J,1)*SINSTG)\r\n      YPLOT = SCALE*(YS(J,1)*COSSTG-XS(J,1)*SINSTG)\r\n      DO 1410 I = 2,NPOINT\r\n      XPLOT = SCALE*(XS(J,I)*COSSTG+YS(J,I)*SINSTG)\r\n      YPLOT = SCALE*(YS(J,I)*COSSTG-XS(J,I)*SINSTG)\r\n 1410 CONTINUE\r\n      IF (ISECN.NE.2) GO TO 1430\r\n      DO 1420 I = 2,30\r\n      XPLOT = SCALE*(XSEMJ(J,I)*COSSTG+YSEMJ(J,I)*SINSTG)\r\n      YPLOT = SCALE*(YSEMJ(J,I)*COSSTG-XSEMJ(J,I)*SINSTG)\r\n 1420 CONTINUE\r\n 1430 DO 1440 II = 1,NPOINT\r\n      I = NPOINT + 1 - II\r\n      XPLOT = SCALE*(XP(J,I)*COSSTG+YP(J,I)*SINSTG)\r\n      YPLOT = SCALE*(YP(J,I)*COSSTG-XP(J,I)*SINSTG)\r\n 1440 CONTINUE\r\n      DO 1450 I = 2,30\r\n      XPLOT = SCALE*(XSEMI(J,I)*COSSTG+YSEMI(J,I)*SINSTG)\r\n      YPLOT = SCALE*(YSEMI(J,I)*COSSTG-XSEMI(J,I)*SINSTG)\r\n 1450 CONTINUE\r\n      XPLOT = SCALE*(XS(J,1)*COSSTG+YS(J,1)*SINSTG)\r\n      YPLOT = SCALE*(YS(J,1)*COSSTG-XS(J,1)*SINSTG)\r\n 1460 CONTINUE\r\n 1470 CONTINUE\r\n      IF (INAST .EQ. 0) GO TO 1580\r\n      XSIGN = FLOAT(NSIGN)\r\n      WRITE  (LOG2,1471)\r\n 1471 FORMAT (1H0,10X,34HNASTRAN COMPRESSOR BLADE BULK DATA , /10X,\r\n     1        36(1H*), //)\r\n      IF (IPGEOM .EQ. 1) GO TO 1562\r\n      WRITE  (LOG2,1472)\r\n 1472 FORMAT (11X,30H*** CTRIA2 AND PTRIA2 DATA ***, /)\r\n      NSTAD = IRTE - IRLE + 1\r\n      JLOOP = 0\r\n      NELEM = 0\r\n      NSTRD = NLINES - 1\r\n      IRT   = IRTE - 1\r\n      NT    = 1995\r\n      DO 1520 J = 1,NSTRD\r\n      DO 1510 I = IRLE,IRT\r\n      NELEM = NELEM + 1\r\n      IGRD1 = I - 1 + JLOOP\r\n      IGRD3 = IGRD1 + NSTAD\r\n      IGRD2 = IGRD1 + NSTAD + 1\r\n      NT    = NT + 5\r\n      WRITE (LPUNCH,1530) NELEM,NT,IGRD1,IGRD2,IGRD3\r\n      WRITE (LOG2,1531) NELEM,NT,IGRD1,IGRD2,IGRD3\r\n      IF (ABS(FLOAT(INAST)) .GT. 3.5) GO TO 1480\r\n      THCK = (THARR(J,I)+THARR(J+1,I)+THARR(J+1,I+1))/3.\r\n      PRES =-XSIGN*(BLAFOR(I,J)+BLAFOR(I,J+1)+BLAFOR(I+1,J+1))/3.\r\n      GO TO 1490\r\n 1480 THCK = (THARR(J,I)+THARR(J+1,I)+THARR(J+1,I+1)+THARR(J,I+1))/4.\r\n      PRES =-XSIGN*(BLAFOR(I,J)+BLAFOR(I,J+1)+BLAFOR(I+1,J+1)+\r\n     1       BLAFOR(I+1,J))/4.\r\n 1490 WRITE (LPUNCH,1540) NT,THCK\r\n      WRITE (LOG2,1541)   NT,THCK\r\n      IF (INAST .GT. 0) WRITE (LPUNCH,1550) PRES,NELEM\r\n      IF (INAST .GT. 0) WRITE (LOG2,1551)   PRES,NELEM\r\n      NELEM = NELEM + 1\r\n      IGRD3 = IGRD2\r\n      IGRD2 = IGRD1 + 1\r\n      IF (ABS(FLOAT(INAST)) .GT. 3.5) GO TO 1500\r\n      NT   = NT + 5\r\n      THCK = (THARR(J,I)+THARR(J,I+1)+THARR(J+1,I+1))/3.\r\n      PRES = -XSIGN*(BLAFOR(I,J)+BLAFOR(I+1,J)+BLAFOR(I+1,J+1))/3.\r\n      WRITE (LPUNCH,1540) NT,THCK\r\n      WRITE (LOG2,1541)   NT,THCK\r\n 1500 WRITE (LPUNCH,1530) NELEM,NT,IGRD1,IGRD2,IGRD3\r\n      WRITE (LOG2,1531)   NELEM,NT,IGRD1,IGRD2,IGRD3\r\n      IF (INAST .GT. 0) WRITE (LPUNCH,1550) PRES,NELEM\r\n      IF (INAST .GT. 0) WRITE (LOG2,1551)   PRES,NELEM\r\n 1510 CONTINUE\r\n 1520 JLOOP = JLOOP + NSTAD\r\n 1530 FORMAT (6HCTRIA2,7X,I3,4X,I4,3(5X,I3))\r\n 1531 FORMAT (1X,6HCTRIA2,7X,I3,4X,I4,3(5X,I3))\r\n 1540 FORMAT (6HPTRIA2,6X,I4,7X,1H1,F8.4,6X,2H0.)\r\n 1541 FORMAT (1X,6HPTRIA2,6X,I4,7X,1H1,F8.4,6X,2H0.)\r\n 1550 FORMAT (6HPLOAD2,8X,2H60,F8.4,5X,I3)\r\n 1551 FORMAT (1X,6HPLOAD2,8X,2H60,F8.4,5X,I3)\r\n 1560 FORMAT (4HGRID,9X,I3,8X,3F8.4)\r\n 1561 FORMAT (1X,4HGRID,9X,I3,8X,3F8.4)\r\n 1562 CONTINUE\r\n      WRITE  (LOG2,1563)\r\n 1563 FORMAT (1H0,10X,29H*** BLADE GRID POINT DATA *** ,/)\r\n      JD = 0\r\n      DO 1570 J = 1,NLINES\r\n      DO 1570 I = IRLE,IRTE\r\n      JD = JD + 1\r\n      YCAMB(J,I) = -XSIGN*YCAMB(J,I)\r\n      WRITE (LOG2,1561) JD,XCAMB(J,I),YCAMB(J,I),ZCAMB(J,I)\r\n 1570 WRITE (LPUNCH,1560) JD,XCAMB(J,I),YCAMB(J,I),ZCAMB(J,I)\r\n      IF (ISTRML.EQ.-1 .OR. ISTRML.EQ.2) GO TO 1580\r\n      WRITE  (LOG2,1571)\r\n 1571 FORMAT (1H0,10X,27H*** BLADE STREAML1 DATA ***,/)\r\n      NSTAD  = IRTE - IRLE + 1\r\n      NSTAD1 = NSTAD - 1\r\n      DO 1572 J = 1,NLINES\r\n      ND1 = (J-1)*NSTAD + 1\r\n      ND2 = ND1 + NSTAD1\r\n      WRITE  (LPUNCH, 1573) J,ND1,ND2\r\n 1572 WRITE  (LOG2,1574) J,ND1,ND2\r\n 1573 FORMAT (8HSTREAML1,I8,I8,8H THRU   ,I8)\r\n 1574 FORMAT (1X,8HSTREAML1,I8,I8,8H THRU   ,I8)\r\n 1580 CONTINUE\r\n      IF (NAERO.EQ.1 .OR. IPUNCH.EQ.1) CALL ALG19 (LOG1,LOG2,LOG3,LOG5,\r\n     1    NLINES,NSPEC,KPTS,RSTA,XSTA,R,ZR,B1,B2,TC,PI,C1,NBLADE,CCORD,\r\n     2    BLOCK,ALPB,EPSLON,IFANGS,IPUNCH,NAERO)\r\nC     IF (IFPLOT .NE. 0) CALL PLOT (0.0,0.0,-3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/algap.f",
    "content": "      SUBROUTINE ALGAP (IFNAME,IFNM)\r\nC\r\nC     THIS ROUTINE IS A MODIFIED VERSION OF SUBROUTINE TABPCH. IT WILL\r\nC     ONLY PUNCH ONE TABLE INTO DTI CHARDS.\r\nC\r\nC     CONTINUATION CARD CHARACTERS ARE - AL.\r\nC\r\nC     SINGLE FIELD CARDS WILL BE MADE UNLESS REAL NUMBERS ARE TO BE MADE\r\nC     ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION.\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      INTEGER         SYSBUF   ,IZ(10)   ,NAME(2)  ,INT(2)   ,IREAL(2) ,\r\n     1                MCB(7)   ,FILE     ,TABNM(2) ,DTI(2)   ,DTIS(2)  ,\r\n     2                IDATA(20),ENDREC(2),OUT      ,IFORM(20),BLANK    ,\r\n     3                IBCD(2)  ,INTD(2)  ,IBCDD(2) ,PFORM(30),LL(4)    ,\r\n     4                FORM(30,2)         ,FORMS(30,2)\r\n      REAL            RDATA(20)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF),(KSYSTM(2),OUT ),\r\n     1                (KSYSTM(91),LPUNCH),(IZ(1)    ,Z(1)),\r\n     2                (IDATA(1),RDATA(1))\r\n      DATA    BLANK / 1H             /\r\n      DATA    DTI   / 4HDTI , 1H     /\r\n      DATA    DTIS  / 4HDTI*, 1H     /\r\n      DATA    ENDREC/ 4HENDR, 4HEC   /\r\n      DATA    FORMS / 4H(2A4, 26*4H    ,4H,1H+ ,4HA2,I,4H5)  ,\r\n     1                4H(A1,, 4HA2,I   ,4H5    ,24*4H        ,4H,1H+  ,\r\n     2                4HA2,I, 4H5)   /\r\n      DATA    IBCD  / 4H,2A4, 1H     /\r\n      DATA    IBCDD / 4H,2A4, 4H,8X  /\r\n      DATA    INT   / 4H,I8 , 1H     /\r\n      DATA    INTD  / 4H,I16, 1H     /\r\n      DATA    IPLUS / 1H+            /\r\n      DATA    IREAL / 4H,E16, 4H.9   /\r\n      DATA    ISTAR / 1H*            /\r\n      DATA    NAME  / 4HALGA, 4HP    /\r\n      DATA    N1    / 2HAL           /\r\n      DATA    LL    / 3, 1, 3, 2     /\r\nC\r\n      NZ   = KORSZ(Z)\r\n      IBUF = NZ - SYSBUF + 1\r\n      NZ   = IBUF - 1\r\n      IF (NZ .LE. 10) CALL MESAGE (-8,0,NAME)\r\n      NREAD = NZ/2  - 2\r\n      NLIST = NREAD + 3\r\n      DO 5 J = 1,2\r\n      DO 5 I = 1,30\r\n      FORM(I,J) = FORMS(I,J)\r\n    5 CONTINUE\r\nC\r\nC     FOR EACH  TABLE DEFINED\r\nC\r\n      MCB(1) = IFNM\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 310\r\nC\r\nC     TABLE EXISTS SET IT UP\r\nC\r\n      FILE = IFNM\r\n      CALL OPEN (*320,FILE,IZ(IBUF),0)\r\n      CALL READ (*340,*350,FILE,IZ(1),-2,0,ILEN)\r\n      CALL FNAME (IFNAME,TABNM)\r\n      IRECNO = 0\r\n      ICHR   = N1\r\n      IZ(3)  = 0\r\nC\r\nC     SET UP FIRST RECORD\r\nC\r\n      IZ(1) = TABNM(1)\r\n      IZ(2) = TABNM(2)\r\n      IZ(4) = MCB(2)\r\n      IZ(5) = MCB(3)\r\n      IZ(6) = MCB(4)\r\n      IZ(7) = MCB(5)\r\n      IZ(8) = MCB(6)\r\n      IZ(9) = MCB(7)\r\n      CALL READ (*290,*10,FILE,IZ(10),NREAD,0,ILEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 ILEN = ILEN + 11\r\n   11 IZ(ILEN-1) = ENDREC(1)\r\n      IZ(ILEN  ) = ENDREC(2)\r\n      GO TO 40\r\nC\r\nC     BRING IN NEXT RECORD\r\nC\r\n   20 CALL READ (*290,*30,FILE,IZ(4),NREAD,0,ILEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n   30 IZ(3) = IZ(3) + 1\r\n      IF (ILEN .EQ. 0) GO TO 20\r\n      ILEN = ILEN + 5\r\n      GO TO 11\r\nC\r\nC     BUILD FORMAT VECTOR  1= INTEGER, 2 =BCD, 3=REAL\r\nC\r\n   40 DO 50 K = 1,ILEN\r\n      M = NLIST + K - 1\r\n      J = NUMTYP(IZ(K))\r\n      IZ(M) = LL(J+1)\r\n   50 CONTINUE\r\nC\r\nC     MOVE DATA/FORMAT TO DATA AREA 8 FIELDS AT A TIME--SET D.F. FLAG\r\nC\r\n      ID = 1\r\n      IF = NLIST\r\n      IFRS = 1\r\nC\r\nC     HERE FOR EIGHT MORE WORDS\r\nC\r\n   60 IDF = 0\r\n      IDT = 1\r\n      IFT = 1\r\n      NF  = 1\r\nC\r\nC     HERE  FOR EACH FIELD\r\nC\r\n   70 IDATA(IDT) = IZ(ID)\r\n      IFORM(IFT) = IZ(IF)\r\n      IF (IFORM(IFT) .EQ. 3) IDF = 1\r\n      IF (IFORM(IFT) .NE. 2) GO TO 80\r\nC\r\nC     BCD IS TWO WORDS\r\nC\r\n      IDATA(IDT+1) = IZ(ID+1)\r\nC\r\nC     MAY BE FALSE BCD, CHECK FORMAT OF SECOND WORD ALSO\r\nC     ( SOME REAL NUMBER BIT PATTERNS LOOK LIKE BCD ).\r\nC\r\n      IF (IZ(IF+1) .EQ. 2) GO TO 100\r\nC\r\nC     SECOND WORD IS NOT BCD, ASSUME FIRST WORD IS REAL.\r\nC\r\n      IDF = 1\r\n      IFORM(IFT) = 3\r\n      GO TO 80\r\n  100 IDT = IDT + 2\r\n      IFT = IFT + 1\r\n      ID  = ID  + 2\r\n      IF  = IF  + 2\r\n      GO TO 90\r\nC\r\nC     REAL OR INTEGER\r\nC\r\n   80 IDT = IDT + 1\r\n      IFT = IFT + 1\r\n      ID  = ID  + 1\r\n      IF  = IF  + 1\r\nC\r\nC     BUMP FIELD COUNTER\r\nC\r\n   90 NF = NF + 1\r\n      IF (NF .GT. 8) GO TO 110\r\n      IF (ID .LT. ILEN) GO TO 70\r\nC\r\nC     FILL  WITH BLANKS\r\nC\r\n      IDATA(IDT  ) = BLANK\r\n      IDATA(IDT+1) = BLANK\r\n      IFORM(IFT  ) = 2\r\n      GO TO 100\r\nC\r\nC     PUNCH OUT 8 FIELDS OF DATA\r\nC\r\n  110 IDT = 0\r\n      IF (IDF .NE. 0) GO TO 200\r\nC\r\nC     SINGLE FIELD CARD\r\nC\r\n      NF = 1\r\n  120 M = 2*NF + 2\r\n      IF (IFORM(NF)-2) 130,150,160\r\nC\r\nC     INTEGER\r\nC\r\n  130 FORM(M  ,IFRS) = INT(1)\r\n      FORM(M+1,IFRS) = INT(2)\r\nC\r\nC     GET NEXT ITEM\r\nC\r\n      IDT = IDT + 1\r\n  140 NF  = NF  + 1\r\n      IF (NF .LE. 8) GO TO 120\r\n      GO TO 170\r\nC\r\nC     BCD\r\nC\r\n  150 FORM(M  ,IFRS) = IBCD(1)\r\n      FORM(M+1,IFRS) = IBCD(2)\r\n      IDT = IDT + 2\r\n      GO TO 140\r\nC\r\nC     REAL NOT LEGAL\r\nC\r\n  160 CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\nC\r\nC     PUNCH OUT SINGLE CARD\r\nC\r\n  170 IF (IFRS .NE. 1) GO TO 190\r\n      DO 171 J = 1,30\r\n      PFORM(J) = FORM(J,1)\r\n  171 CONTINUE\r\n      WRITE (LPUNCH,PFORM,ERR=173) DTI,(RDATA(M),M=1,IDT),ICHR,IRECNO\r\n  173 IRECNO = IRECNO + 1\r\n      IFRS = 2\r\n      DO 175 J = 1,30\r\n  175 FORM(J,1) = FORMS(J,1)\r\n  180 IF (ID .GE. ILEN) GO TO 20\r\n      GO TO 60\r\nC\r\nC     CONTINUATION CARD\r\nC\r\n  190 IRCNM1 = IRECNO - 1\r\n      DO 191 J = 1,30\r\n      PFORM(J) = FORM(J,2)\r\n  191 CONTINUE\r\n      WRITE (LPUNCH,PFORM,ERR=193)\r\n     1      IPLUS,ICHR,IRCNM1,(RDATA(M),M=1,IDT),ICHR,IRECNO\r\n  193 IRECNO = IRECNO + 1\r\n      DO 195 J = 1,30\r\n  195 FORM(J,2) = FORMS(J,2)\r\n      GO TO 180\r\nC\r\nC     DOUBLE FIELD CARDS\r\nC\r\n  200 NF = 1\r\n      IS = 1\r\n      IT = 4\r\n      IDT= 0\r\n      M  = 2\r\n  210 M  = M + 2\r\n      IF (IFORM(NF)-2) 211,240,250\r\nC\r\nC     INTEGER\r\nC\r\n  211 FORM(M  ,IFRS) = INTD(1)\r\n      FORM(M+1,IFRS) = INTD(2)\r\n  220 IDT = IDT + 1\r\n  230 NF  = NF  + 1\r\n      IF (M .LE. 8) GO TO 210\r\n      GO TO 260\r\nC\r\nC     BCD\r\nC\r\n  240 FORM(M  ,IFRS) = IBCDD(1)\r\n      FORM(M+1,IFRS) = IBCDD(2)\r\n      IDT = IDT + 2\r\n      GO TO 230\r\nC\r\nC     REAL\r\nC\r\n  250 FORM(M  ,IFRS) = IREAL(1)\r\n      FORM(M+1,IFRS) = IREAL(2)\r\n      GO TO 220\r\nC\r\nC     PUNCH OUT DOUBLE FIELD CARD\r\nC\r\n  260 IF (IFRS .NE. 1) GO TO 280\r\n      DO 261 J = 1,30\r\n      PFORM(J) = FORM(J,1)\r\n  261 CONTINUE\r\n      WRITE (LPUNCH,PFORM,ERR=263) DTIS,(RDATA(M),M=IS,IDT),ICHR,IRECNO\r\n  263 IRECNO = IRECNO + 1\r\n      DO 265 J = 1,30\r\n  265 FORM(J,1) = FORMS(J,1)\r\n      IFRS = 2\r\n  270 IT = 8\r\n      M  = 2\r\n      IS = IDT + 1\r\n      GO TO 210\r\nC\r\nC     CONTINUATION CARD\r\nC\r\n  280 IRCNM1 = IRECNO - 1\r\n      DO 281 J = 1,30\r\n      PFORM(J) = FORM(J,2)\r\n  281 CONTINUE\r\n      WRITE (LPUNCH,PFORM,ERR=283)\r\n     1      ISTAR,ICHR,IRCNM1,(RDATA(M),M=IS,IDT),ICHR,IRECNO\r\n  283 IRECNO = IRECNO + 1\r\n      DO 285 J = 1,30\r\n  285 FORM(J,2) = FORMS(J,2)\r\n      IF (IT .EQ. 4) GO TO 270\r\n      GO TO 180\r\nC\r\nC     CLOSE OFF FILES\r\nC\r\n  290 CALL CLOSE (FILE,1)\r\n      WRITE  (OUT,300) UIM,TABNM,IRECNO\r\n  300 FORMAT (A29,' 4015.', /5X,'TABLE NAMED ',2A4,' PUNCHED ONTO',I9,\r\n     1        ' CARDS.')\r\n  310 CONTINUE\r\n      WRITE  (LPUNCH,311)\r\n  311 FORMAT (1H , /,1H , /,1H )\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  320 IP1 = -1\r\n  330 CALL MESAGE (IP1,FILE,NAME)\r\n      CALL MESAGE (-61,0,NAME)\r\n  340 IP1 =-2\r\n      GO TO 330\r\n  350 IP1 =-3\r\n      GO TO 330\r\n      END\r\n"
  },
  {
    "path": "mis/algar.f",
    "content": "      SUBROUTINE ALGAR\r\nC\r\n      REAL LOSS,LAMI,LAMIP1,LAMIM1\r\nC\r\n      DIMENSION XX1(21),XX2(21),XX3(21),XX4(21),VMOLD(21),VMLOLD(21)\r\n      DIMENSION DELTAR(59,30),PASS(59)\r\nC\r\n      COMMON /UD3PRT/ IPRTC\r\n      COMMON /CONTRL/ NANAL,NAERO,NARBIT,LOQ1,LOQ2,LOQ3,LOQ4,LOQ5,LOQ6\r\n      COMMON /UD300C/ NSTNS,NSTRMS,NMAX,NFORCE,NBL,NCASE,NSPLIT,NREAD,\r\n     1NPUNCH,NPAGE,NSET1,NSET2,ISTAG,ICASE,IFAILO,IPASS,I,IVFAIL,IFFAIL,\r\n     2NMIX,NTRANS,NPLOT,ILOSS,LNCT,ITUB,IMID,IFAIL,ITER,LOG1,LOG2,LOG3,\r\n     3LOG4,LOG5,LOG6,IPRINT,NMANY,NSTPLT,NEQN,NSPEC(30),NWORK(30),\r\n     4NLOSS(30),NDATA(30),NTERP(30),NMACH(30),NL1(30),NL2(30),NDIMEN(30)\r\n     5,IS1(30),IS2(30),IS3(30),NEVAL(30),NDIFF(4),NDEL(30),NLITER(30),\r\n     6NM(2),NRAD(2),NCURVE(30),NWHICH(30),NOUT1(30),NOUT2(30),NOUT3(30),\r\n     7NBLADE(30),DM(11,5,2),WFRAC(11,5,2),R(21,30),XL(21,30),X(21,30),\r\n     8H(21,30),S(21,30),VM(21,30),VW(21,30),TBETA(21,30),DIFF(15,4),\r\n     9FDHUB(15,4),FDMID(15,4),FDTIP(15,4),TERAD(5,2),DATAC(100),\r\n     1DATA1(100),DATA2(100),DATA3(100),DATA4(100),DATA5(100),DATA6(100),\r\n     2DATA7(100),DATA8(100),DATA9(100),FLOW(10),SPEED(30),SPDFAC(10),\r\n     3BBLOCK(30),BDIST(30),WBLOCK(30),WWBL(30),XSTN(150),RSTN(150),\r\n     4DELF(30),DELC(100),DELTA(100),TITLE(18),DRDM2(30),RIM1(30),\r\n     5XIM1(30),WORK(21),LOSS(21),TANEPS(21),XI(21),VV(21),DELW(21),\r\n     6LAMI(21),LAMIM1(21),LAMIP1(21),PHI(21),CR(21),GAMA(21),SPPG(21),\r\n     7CPPG(21),HKEEP(21),SKEEP(21),VWKEEP(21),DELH(30),DELT(30),VISK,\r\n     8SHAPE,SCLFAC,EJ,G,TOLNCE,XSCALE,PSCALE,PLOW,RLOW,XMMAX,RCONST,\r\n     9FM2,HMIN,C1,PI,CONTR,CONMX\r\nC\r\n      IF = 0\r\n      LOG1=LOQ1\r\n      LOG2=LOQ2\r\n      LOG3=LOQ3\r\n      LOG5=LOQ5\r\n      LOG6=LOQ6\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,1)\r\n1     FORMAT(1HT)\r\n      PI=3.141592653589\r\n      C1=180.0/PI\r\n      HMIN=50.0\r\n      VMIN = 25.0\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,50)\r\n50    FORMAT(1H1,37X, 53HPROGRAM ALG - COMPRESSOR DESIGN - AERODYNAMIC S\r\n     1ECTION,/,38X,53(1H*))\r\n      LNCT=2\r\n      CALL ALG02\r\n      ICASE=1\r\n  100 IF (IPRTC .EQ. 1) WRITE(LOG2,104) ICASE\r\n104   FORMAT(1H1,9X,20HOUTPUT FOR POINT NO.,I2,/,10X,22(1H*))\r\n      LNCT=2\r\n      DO 106 I=1,30\r\n      DO 106 J=1,59\r\n106   DELTAR(J,I)=0.0\r\n      IF((ICASE.EQ.1.AND.NREAD.EQ.1).OR.(ICASE.GT.1.AND.IFAILK.EQ.0))GO\r\n     1TO 254\r\n      IF(NSPLIT.EQ.1)GO TO 170\r\n      L1=NSPEC(1)\r\n      XX1(1)=0.0\r\n      DO 110 K=2,L1\r\n110   XX1(K)=XX1(K-1)+SQRT((RSTN(K)-RSTN(K-1))**2+(XSTN(K)-XSTN(K-1))**2\r\n     1)\r\n      X1=1.0/XX1(L1)\r\n      DO 120 K=2,L1\r\n120   XX1(K)=XX1(K)*X1\r\n      DO 130 K=1,11\r\n130   XX2(K)=FLOAT(K-1)*0.1\r\n      CALL ALG01(XX1,XSTN,L1,XX2,XX3,X1,11,0,0)\r\n      CALL ALG01(XX1,RSTN,L1,XX2,XX4,X1,11,0,0)\r\n      DO 136 K=2,11\r\n      XX1(K)=XX1(K-1)+SQRT((XX3(K)-XX3(K-1))**2+(XX4(K)-XX4(K-1))**2)\r\n136   XX3(K-1)=(XX1(K)+XX1(K-1))*0.5\r\n      L2=IS1(2)\r\n      XX2(1)=ATAN2(RSTN(L2)-RSTN(1),XSTN(L2)-XSTN(1))\r\n      L2=L2+NSPEC(2)-1\r\n      XX2(2)=ATAN2(RSTN(L2)-RSTN(L1),XSTN(L2)-XSTN(L1))\r\n      XI(1)=0.0\r\n      XI(2)=XX1(11)\r\n      CALL ALG01(XI,XX2,2,XX3,PHI,X1,10,1,0)\r\n      CALL ALG01(RSTN,XSTN,L1,XX3,X1,GAMA,10,0,1)\r\n      XX3(1)=0.0\r\n      DO 140 K=2,11\r\n140   XX3(K)=XX3(K-1)+COS(PHI(K-1)+ATAN(GAMA(K-1)))*(XX4(K)+XX4(K-1))*(X\r\n     1X1(K)-XX1(K-1))\r\n      X1=1.0/XX3(11)\r\n      X2=1.0/XX1(11)\r\n      DO 150 K=2,11\r\n      XX1(K)=XX1(K)*X2\r\n150   XX3(K)=XX3(K)*X1\r\n      X1=1.0/FLOAT(ITUB)\r\n      DO 160 K=1,NSTRMS\r\n160   XX2(K)=FLOAT(K-1)*X1\r\n      CALL ALG01(XX1,XX3,11,XX2,DELF,X1,NSTRMS,1,0)\r\n170   DO 250 I=1,NSTNS\r\n      L1=IS1(I)\r\n      L2=NSPEC(I)\r\n      XX1(1)=0.0\r\n      VV(1)=0.0\r\n      DO 180 K=2,L2\r\n      L3=L1+K-1\r\n180   VV(K)=VV(K-1)+SQRT((RSTN(L3)-RSTN(L3-1))**2+(XSTN(L3)-XSTN(L3-1))*\r\n     1*2)\r\n      X1=1.0/VV(L2)\r\n      DO 190 K=2,L2\r\n190   XX1(K)=VV(K)*X1\r\n      DO 200 K=1,11\r\n200   XX2(K)=FLOAT(K-1)*0.1\r\n      CALL ALG01(XX1,XSTN(L1),L2,XX2,XX3,X1,11,0,0)\r\n      CALL ALG01(XX1,RSTN(L1),L2,XX2,XX4,X1,11,0,0)\r\n      DO 230 K=2,11\r\n      XX1(K)=XX1(K-1)+SQRT((XX3(K)-XX3(K-1))**2+(XX4(K)-XX4(K-1))**2)\r\n      GAMA(K-1)=(XX4(K)+XX4(K-1))*0.5\r\n230   XX3(K-1)=(XX1(K)+XX1(K-1))*0.5\r\n      IF(I.EQ.1.OR.I.EQ.NSTNS)GO TO 234\r\n      L3=IS1(I+1)\r\n      L4=IS1(I-1)\r\n      L5=L1\r\n      XX2(1)=(ATAN2(RSTN(L3)-RSTN(L5),XSTN(L3)-XSTN(L5))+ATAN2(RSTN(L5)-\r\n     1RSTN(L4),XSTN(L5)-XSTN(L4)))*0.5\r\n      L3=L3+NSPEC(I+1)-1\r\n      L4=L4+NSPEC(I-1)-1\r\n      L5=L5+L2-1\r\n      XX2(2)=(ATAN2(RSTN(L3)-RSTN(L5),XSTN(L3)-XSTN(L5))+ATAN2(RSTN(L5)-\r\n     1RSTN(L4),XSTN(L5)-XSTN(L4)))*0.5\r\n      GO TO 238\r\n234   IF(I.EQ.NSTNS)GO TO 236\r\n      L3=IS1(2)\r\n      XX2(1)=ATAN2(RSTN(L3)-RSTN(1),XSTN(L3)-XSTN(1))\r\n      L4=NSPEC(1)\r\n      L3=L3+NSPEC(2)-1\r\n      XX2(2)=ATAN2(RSTN(L3)-RSTN(L4),XSTN(L3)-XSTN(L4))\r\n      GO TO 238\r\n236   L4=IS1(I-1)\r\n      XX2(1)=ATAN2(RSTN(L1)-RSTN(L4),XSTN(L1)-XSTN(L4))\r\n      L4=L4+NSPEC(I-1)-1\r\n      L3=L1+L2-1\r\n      XX2(2)=ATAN2(RSTN(L3)-RSTN(L4),XSTN(L3)-XSTN(L4))\r\n238   XI(1)=0.0\r\n      XI(2)=XX1(11)\r\n      CALL ALG01(XI,XX2,2,XX3,PHI,X1,10,1,0)\r\n      CALL ALG01(RSTN(L1),XSTN(L1),L2,GAMA,X1,GAMA,10,0,1)\r\n      XX3(1)=0.0\r\n      DO 240 K=2,11\r\n240   XX3(K)=XX3(K-1)+COS(PHI(K-1)+ATAN(GAMA(K-1)))*(XX4(K)+XX4(K-1))*(X\r\n     1X1(K)-XX1(K-1))\r\n      X1=1.0/XX3(11)\r\n      DO 244 K=2,11\r\n244   XX3(K)=XX3(K)*X1\r\n      CALL ALG01(XX3,XX1,11,DELF,XL(1,I),X1,NSTRMS,1,0)\r\n      X1=VV(L2)/XX1(11)\r\n      DO 246 J=2,NSTRMS\r\n246   XL(J,I)=XL(J,I)*X1\r\n      CALL ALG01(VV,XSTN(L1),L2,XL(1,I),X(1,I),X1,NSTRMS,0,0)\r\n250   CALL ALG01(VV,RSTN(L1),L2,XL(1,I),R(1,I),X1,NSTRMS,0,0)\r\n254   IF(ICASE.GT.1)GO TO 270\r\n      X1=(X(IMID,2)-X(IMID,1))**2+(R(IMID,2)-R(IMID,1))**2\r\n      DRDM2(1)=((R(NSTRMS,1)-R(1,1))**2+(X(NSTRMS,1)-X(1,1))**2)/X1\r\n      L1=NSTNS-1\r\n      DO 260 I=2,L1\r\n      X2=(X(IMID,I+1)-X(IMID,I))**2+(R(IMID,I+1)-R(IMID,I))**2\r\n      X3=X2\r\n      IF(X1.LT.X3)X3=X1\r\n      DRDM2(I)=((R(NSTRMS,I)-R(1,I))**2+(X(NSTRMS,I)-X(1,I))**2)/X3\r\n260   X1=X2\r\n      DRDM2(NSTNS)=((R(NSTRMS,NSTNS)-R(1,NSTNS))**2+(X(NSTRMS,NSTNS)-X(1\r\n     1,NSTNS))**2)/X2\r\n270   DO 280 I=1,NSTNS\r\n280   WWBL(I)=WBLOCK(I)\r\n      IPASS=1\r\n290   I=1\r\n      IF((IPASS.GT.1.OR.ICASE.GT.1).AND.NDATA(1).EQ.1)GO TO 400\r\n      L1=NDIMEN(1)+1\r\n      GO TO(300,320,340,360),L1\r\n300   DO 310 J=1,NSTRMS\r\n310   XX1(J)=R(J,1)\r\n      GO TO 380\r\n320   DO 330 J=1,NSTRMS\r\n330   XX1(J)=R(J,1)/R(NSTRMS,1)\r\n      GO TO 380\r\n340   DO 350 J=1,NSTRMS\r\n350   XX1(J)=XL(J,1)\r\n      GO TO 380\r\n360   DO 370 J=1,NSTRMS\r\n370   XX1(J)=XL(J,1)/XL(NSTRMS,1)\r\n380   L1=NTERP(1)\r\n      L2=NDATA(1)\r\n      CALL ALG01(DATAC,DATA1,L2,XX1,S    ,X1,NSTRMS,L1,0)\r\n      CALL ALG01(DATAC,DATA2,L2,XX1,H    ,X1,NSTRMS,L1,0)\r\n      CALL ALG01(DATAC,DATA3,L2,XX1,TBETA,X1,NSTRMS,L1,0)\r\n      DO 390 J=1,NSTRMS\r\n      H(J,1)=ALG6(S(J,1),H(J,1))\r\n      S(J,1)=ALG3(S(J,1),H(J,1))\r\n390   TBETA(J,1)=TAN(TBETA(J,1)/C1)\r\n400   IF(IPASS.GT.1.OR.ICASE.GT.1)GO TO 420\r\n      X1=FLOW(1)/(ALG5(H,S)*PI*(R(NSTRMS,1)+R(1,1))*XL(NSTRMS,1))*SCLFAC\r\n     1**2\r\n      DO 410 J=1,NSTRMS\r\n410   VM(J,1)=X1\r\n      IF(ISTAG.EQ.1)VM(1,1)=0.0\r\n420   IFAILO=0\r\n      IFFAIL=0\r\n      IVFAIL=0\r\n      DO 430 J=1,NSTRMS\r\n430   VMOLD(J)=VM(J,1)\r\n      GO TO 500\r\n440   IF(IPASS.GT.1)GO TO 460\r\n      DO 450 J=1,NSTRMS\r\n450   VM(J,I)=VM(J,I-1)\r\n      IF(I-1.EQ.ISTAG)VM(1,I)=VM(2,I)\r\n      IF(I.EQ.ISTAG)VM(1,I)=0.0\r\n460   ILOSS=1\r\n      DO 464 J=1,NSTRMS\r\n464   VMOLD(J)=VM(J,I)\r\n470   DO 474 J=1,NSTRMS\r\n      VWKEEP(J)=VW(J,I-1)\r\n      SKEEP(J)=S(J,I-1)\r\n474   HKEEP(J)=H(J,I-1)\r\n      X1=H(IMID,I-1)-(VM(IMID,I-1)**2+VW(IMID,I-1)**2)/(2.0*G*EJ)\r\n      IF(X1.LT.HMIN)X1=HMIN\r\n      PSMID=ALG4(X1,S(IMID,I-1))\r\n      IF(NMIX.EQ.1)CALL ALG04(H(1,I-1),S(1,I-1),VW(1,I-1),R(1,I-1),R(1,\r\n     1I),X(1,I-1),X(1,I),VM(1,I-1),CONMX,SCLFAC,G,EJ,HMIN,VMIN,PSMID,NST\r\n     2RMS,LOG2,LNCT,IF)\r\n      IF(IF.EQ.0)GO TO 478\r\n      IFAILO=I-1\r\n      GO TO 640\r\n478   IF(NWORK(I).EQ.0)GO TO 480\r\n      CALL ALG05\r\n      IF(NTRANS.EQ.1.AND.IPASS.GT.1)CALL ALG06(R(1,I-1),R(1,I),X(1,I-1)\r\n     1,X(1,I),H(1,I),S(1,I),VM(1,I),TBETA(1,I-1),TBETA(1,I),LOSS,CONTR,S\r\n     2CLFAC,SPEED(I),SPDFAC(ICASE),G,EJ,HMIN,NSTRMS,PI)\r\n      ITER=0\r\n      CALL ALG07\r\n      GO TO 500\r\n480   DO 490 J=1,NSTRMS\r\n      H(J,I)=H(J,I-1)\r\n      S(J,I)=S(J,I-1)\r\n      VW(J,I)=0.0\r\n      IF(I.GT.ISTAG.OR.J.NE.1)VW(J,I)=VW(J,I-1)*RIM1(J)/R(J,I)\r\n490   CONTINUE\r\n500   DO 510 J=1,NSTRMS\r\n510   VMLOLD(J)=VM(J,I)\r\n      IF(NEQN.GE.2)GO TO 514\r\n      CALL ALG08\r\n      GO TO 516\r\n  514 CALL ALG26\r\n516   IF(NEVAL(I).LE.0)GO TO 590\r\n      IPRINT=0\r\n      CALL ALG09\r\n      IF(IFAILO.NE.0.AND.IPASS.GT.NFORCE)GO TO 550\r\n      DO 520 J=1,NSTRMS\r\n      IF(ABS(VM(J,I)/VMLOLD(J)-1.0).GT.TOLNCE/5.0)GO TO 530\r\n520   CONTINUE\r\n      GO TO 590\r\n530   IF(ILOSS.GE.NLITER(I))GO TO 550\r\n      ILOSS=ILOSS+1\r\n      DO 540 J=1,NSTRMS\r\n540   VMLOLD(J)=VM(J,I)\r\n      GO TO 470\r\n550   IF(IPASS.LE.NFORCE)GO TO 590\r\n      IF(LNCT+1.LE.NPAGE)GO TO 570\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,560)\r\n560   FORMAT(1H1)\r\n      LNCT=1\r\n570   LNCT=LNCT+1\r\n      X1=VM(1,I)/VMLOLD(1)\r\n      X2=VM(IMID,I)/VMLOLD(IMID)\r\n      X3=VM(NSTRMS,I)/VMLOLD(NSTRMS)\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,580) IPASS,I,X1,X2,X3\r\n580   FORMAT(5X,4HPASS,I3,9H  STATION,I3,66H  VM PROFILE NOT CONVERGED W\r\n     1ITH LOSS RECALC   VM NEW/VM PREV  HUB=,F9.6,6H  MID=,F9.6,7H  CASE\r\n     2=,F9.6)\r\n590   IF(NBL.EQ.1.AND.(IFAILO.EQ.0.OR.IPASS.LE.NFORCE))CALL ALG10\r\n      DO 600 J=1,NSTRMS\r\n      XIM1(J)=X(J,I)\r\n      RIM1(J)=R(J,I)\r\n      IF(I.EQ.ISTAG.AND.J.EQ.1)GO TO 600\r\n      IF(ABS(VM(J,I)/VMOLD(J)-1.0).GT.TOLNCE)IVFAIL=IVFAIL+1\r\n      IF(ABS(DELW(J)-DELF(J)).GT.TOLNCE)IFFAIL=IFFAIL+1\r\n600   CONTINUE\r\n      IF(NMAX.EQ.1.OR.(IPASS.EQ.1.AND.NREAD.EQ.1))GO TO 624\r\n      X1=FM2\r\n      IF(X1.LT.1.0-XMMAX)X1=1.0-XMMAX\r\n      X2=1.0\r\n      IF(I.EQ.1.OR.NWORK(I).GE.5)X2=1.0+TBETA(IMID,I)**2\r\n      X1=1.0/(1.0+X1*DRDM2(I)/(RCONST*X2))\r\n      L3=NSTRMS-2\r\n      CALL ALG01(DELW,XL(1,I),NSTRMS,DELF(2),XX1(2),X1,L3,1,0)\r\n      XX=XL(IMID,I)\r\n      DO 610 J=2,ITUB\r\n610   XL(J,I)=XL(J,I)+X1*(XX1(J)-XL(J,I))\r\n      L1=IPASS\r\n      IF(L1.LE.59)GO TO 618\r\n      L1=59\r\n      DO 616 K=1,58\r\n616   DELTAR(K,I)=DELTAR(K+1,I)\r\n618   DELTAR(L1,I)=XL(IMID,I)-XX\r\n      L1=IS1(I)\r\n      L2=NSPEC(I)\r\n      XX1(1)=0.0\r\n      DO 620 K=2,L2\r\n      KK=L1-1+K\r\n620   XX1(K)=XX1(K-1)+SQRT((XSTN(KK)-XSTN(KK-1))**2+(RSTN(KK)-RSTN(KK-1)\r\n     1)**2)\r\n      CALL ALG01(XX1,RSTN(L1),L2,XL(2,I),R(2,I),X1,L3,0,0)\r\n      CALL ALG01(XX1,XSTN(L1),L2,XL(2,I),X(2,I),X1,L3,0,0)\r\n624   IF(IPASS.GT.NFORCE.AND.IFAILO.NE.0)GO TO 640\r\n      IF(I.EQ.NSTNS)GO TO 630\r\n      I=I+1\r\n      GO TO 440\r\n630   IF(IPASS.GE.NMAX)GO TO 640\r\n      IF(IFAILO.NE.0)GO TO 635\r\n      IF(IVFAIL.EQ.0.AND.IFFAIL.EQ.0)GO TO 640\r\n635   IPASS=IPASS+1\r\n      GO TO 290\r\n640   CALL ALG11\r\n      L1=NSTNS\r\n      IF(IFAILO.NE.0)L1=IFAILO\r\n      IPRINT=1\r\n      DO 650 I=2,L1\r\n      IF(NEVAL(I).NE.0)CALL ALG09\r\n650   CONTINUE\r\n      IF(NPLOT.NE.0)CALL ALG12\r\n      IF(IFAILO.NE.0)GO TO 750\r\n      IF(NPUNCH.EQ.0)GO TO 680\r\n      WRITE(LOG3,660)(DELF(J),J=1,NSTRMS)\r\n660   FORMAT(6F12.8)\r\n      WRITE(LOG3,670)((R(J,I),X(J,I),XL(J,I),I,J,J=1,NSTRMS),I=1,NSTNS)\r\n670   FORMAT(3F12.8,2I3)\r\n680   DO 700 I=1,NSTNS\r\n      IF(NOUT1(I).EQ.0)GO TO 700\r\n      WRITE(LOG3,690)(R(J,I),J,I,J=1,NSTRMS)\r\n690   FORMAT(F12.8,60X,2I4)\r\n700   CONTINUE\r\n      L1=LOG3\r\n      IF(NARBIT.NE.0)L1=LOG6\r\n      DO 740 I=1,NSTNS\r\n      IF(NOUT2(I).EQ.0)GO TO 740\r\n      L2=IS1(I)\r\n      L3=L2+NSPEC(I)-1\r\n      WRITE(L1,710)NSPEC(I),(XSTN(K),RSTN(K),K=L2,L3)\r\n710   FORMAT(I3,/,(2F12.7))\r\n      XN=SPEED(I)\r\n      IF(I.EQ.NSTNS)GO TO 714\r\n      IF(SPEED(I).NE.SPEED(I+1).AND.NWORK(I+1).NE.0)XN=SPEED(I+1)\r\n714   XN=XN*SPDFAC(ICASE)*PI/(30.0*SCLFAC)\r\n      DO 720 J=1,NSTRMS\r\n720   XX1(J)=ATAN((VW(J,I)-XN*R(J,I))/VM(J,I))*C1\r\n      WRITE(L1,730)(R(J,I),XX1(J),J,I,J=1,NSTRMS)\r\n730   FORMAT(2F12.8,48X,2I4)\r\n740   CONTINUE\r\n750   IF(NSTPLT.EQ.0)GO TO 759\r\n      L1=IPASS\r\n      IF(L1.GT.59)L1=59\r\n      DO 754 K=1,L1\r\n754   PASS(K)=FLOAT(K)\r\n      DO 758 K=1,NSTNS\r\n      IF (IPRTC .EQ. 1) WRITE(LOG2,756) K\r\n756   FORMAT(1H1,53X,19HDELTA L FOR STATION,I3,/,2X)\r\n758   CALL ALG25(L1,IPASS,LOG2,PASS,DELTAR(1,K))\r\n759   IF(ICASE.GE.NCASE)GO TO 760\r\n      ICASE=ICASE+1\r\n      IFAILK=IFAILO\r\n      GO TO 100\r\n  760 IF (IPRTC .EQ. 1) WRITE(LOG2,770)\r\n770   FORMAT(1HS)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/algpb.f",
    "content": "      SUBROUTINE ALGPB (IDAT,NTYPE)\r\nC\r\n      INTEGER NA(4)\r\n      DATA    NA / 2 ,     2  ,   3 ,    1 /\r\nC                ZERO, INTEGER, REAL, ALPHA\r\nC\r\nC     RETURN FROM NUMTYP IS            SET NTYPE TO\r\nC       0 -  ZERO                        1 - ALPHA\r\nC       1 -  INTEGER                     2 - INTEGER\r\nC       2 -  REAL                        3 - REAL\r\nC       3 -  BCD\r\nC\r\nC     BLANK IS ALPHA,  ZERO IS INTEGER UNLESS NUMTYP SET IT TO REAL\r\nC\r\n      ITYPE = NUMTYP(IDAT) + 1\r\n      NTYPE = NA(ITYPE)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/algpo.f",
    "content": "      SUBROUTINE ALGPO (SCR1)\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         APRESS,ATEMP,STRML,NAME(2),CORWDS,ITRL(7),TWO(32),\r\n     1                ORF,CASECC,CASECA,GEOM3A,SCR1,LEND(3),SYSBUF,\r\n     2                PGEOM,RD,RDREW,WRT,WRTREW,REW,NOREW,PLOAD2(3),\r\n     3                TEMP(3),TEMPD(3),LREC(5)\r\n      DIMENSION       RREC(5)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW\r\n      COMMON /TWO   / TWO\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (LREC(1),RREC(1))\r\n      DATA    LEND  / 3*2147483647 /\r\n      DATA    NAME  / 4HALG ,4H    /\r\n      DATA    LABP  / 4HPLOA/      , LABT /4HTEMP/\r\n      DATA    PLOAD2/ 6809,68,199 /, TEMP/5701,57,27/, TEMPD/5641,65,98/\r\n      DATA    CASECC, CASECA,GEOM3A /101,201,202/\r\nC\r\nC     ALG WILL USE OPEN CORE AT IZ\r\nC     ALLOCATE OPEN CORE\r\nC\r\n      NZ    = KORSZ(IZ)\r\n      IBUF1 = NZ - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF - 1\r\n      LAST  = IBUF2 - 1\r\nC\r\nC     CHECK FOR SUFFICIENT CORE\r\nC\r\n      IF (LAST .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      LEFT   = CORWDS(IZ(1),IZ(LAST))\r\n      KAPERR = 0\r\n      KATERR = 0\r\n      IFAIL  = 1\r\nC\r\nC     OPEN GEOM3A FOR OUTPUT OF PLOAD2 AND TEMP DATA\r\nC\r\n      CALL GOPEN (GEOM3A,IZ(IBUF1),WRTREW)\r\nC\r\nC     AERODYNAMIC PRESSURE SECTION\r\nC\r\n      IF (APRESS .LT. 0) GO TO 20\r\n      IFILE = SCR1\r\n      CALL OPEN (*901,SCR1,IZ(IBUF2),RDREW)\r\n    8 CALL READ (*11,*10,SCR1,LREC,5,1,NWAR)\r\n   10 IF (LREC(1) .EQ. LABP) GO TO 12\r\n      GO TO 8\r\nC\r\nC     NO PLOAD2 CARDS ON SCR1 FILE\r\nC\r\n   11 KAPERR = 1\r\n      IDP    = 0\r\n      CALL REWIND (SCR1)\r\n      WRITE (NOUT,2001) UWM\r\n      GO TO 20\r\n   12 CONTINUE\r\nC\r\nC     CREATE PLOAD2 RECORD\r\nC\r\n      CALL WRITE (GEOM3A,PLOAD2,3,0)\r\n      IDP = LREC(3)\r\n      GO TO 16\r\n   14 CALL READ (*18,*15,SCR1,LREC,5,1,NWAR)\r\n   15 IF (LREC(1) .NE. LABP) GO TO 18\r\n   16 CALL WRITE (GEOM3A,LREC(3),3,0)\r\n      GO TO 14\r\n   18 CALL WRITE (GEOM3A,IZ,0,1)\r\n      CALL REWIND (SCR1)\r\nC\r\nC     AERODYNAMIC TEMPERATURE SECTION\r\nC\r\n   20 IF (ATEMP .LT. 0) GO TO 35\r\n      IF (APRESS .LT. 0) CALL OPEN (*901,SCR1,IZ(IBUF2),RDREW)\r\n   21 CALL READ (*23,*22,SCR1,LREC,5,1,NWAR)\r\n   22 IF (LREC(1) .EQ. LABT) GO TO 24\r\n      GO TO 21\r\nC\r\nC     NO TEMP CARDS ON SCR1 FILE\r\nC\r\n   23 KATERR = 1\r\n      IDT = 0\r\n      WRITE (NOUT,2002) UWM\r\n      GO TO 35\r\n   24 CONTINUE\r\nC\r\nC     CREATE TEMP RECORD\r\nC\r\n      CALL WRITE (GEOM3A,TEMP,3,0)\r\n      IDT   = LREC(3)\r\n      DTEMP = RREC(5)\r\n      ITPD  = 1\r\n      GO TO 28\r\n   26 CALL READ (*30,*27,SCR1,LREC,5,1,NWAR)\r\n   27 IF (LREC(1) .NE. LABT) GO TO 30\r\n   28 CALL WRITE (GEOM3A,LREC(3),3,0)\r\n      ITPD = ITPD + 1\r\n      IF (ITPD .LE. 3) DTEMP = DTEMP + RREC(5)\r\n      GO TO 26\r\n   30 CALL WRITE (GEOM3A,IZ,0,1)\r\nC\r\nC     CREATE TEMPD RECORD. AVERAGE FIRST THREE TEMPS. ON BLADE ROOT.\r\nC\r\n      CALL WRITE (GEOM3A,TEMPD,3,0)\r\n      CALL WRITE (GEOM3A,IDT,1,0)\r\n      DTEMP = DTEMP/3.0\r\n      CALL WRITE (GEOM3A,DTEMP,1,1)\r\nC\r\nC     CLOSE GEOM3A\r\nC\r\n   35 CALL WRITE (GEOM3A,LEND,3,1)\r\n      CALL CLOSE (GEOM3A,1)\r\n      ITRL(1) = GEOM3A\r\n      ITRL(2) = 0\r\n      ITRL(3) = 0\r\n      ITRL(4) = 0\r\n      ITRL(5) = 0\r\n      ITRL(6) = 0\r\n      ITRL(7) = 0\r\n      IF (APRESS.LT.0 .OR. KAPERR.EQ.1) GO TO 40\r\n      IBIT = 68\r\n      I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      ITRL(I1) = ORF(ITRL(I1),TWO(I2))\r\n   40 IF (ATEMP.LT.0 .OR. KATERR.EQ.1) GO TO 50\r\n      IBIT = 57\r\n      I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      ITRL(I1) = ORF(ITRL(I1),TWO(I2))\r\n      IBIT = 65\r\n      I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      ITRL(I1) = ORF(ITRL(I1),TWO(I2))\r\n   50 CALL WRTTRL (ITRL)\r\nC\r\nC     CLOSE SCR1\r\nC\r\n      IF (APRESS.GE.0 .OR. ATEMP.GE.0) CALL CLOSE (SCR1,1)\r\n      IF (KAPERR .EQ. 1) APRESS = -1\r\n      IF (KATERR .EQ. 1) ATEMP  = -1\r\nC\r\nC     SET IFAIL TO INDICATE ALG MODULE FAILED. CONDITIONAL JUMP BASED\r\nC     ON VALUE OF IFAIL IS PERFORMED AFTER EXITING FROM ALG MODULE.\r\nC\r\n      IF (APRESS.EQ.-1 .AND. ATEMP.EQ.-1) IFAIL = -1\r\nC\r\nC     NEW CASE CONTROL DATA BLOCK\r\nC     OPEN CASECC AND COPY ALL SUBCASES WITH CHANGES MADE TO\r\nC     STATIC AND THERMAL LOAD ID-S\r\nC\r\n      IFILE = CASECC\r\n      CALL OPEN (*901,CASECC,IZ(IBUF1),RDREW)\r\n      CALL FWDREC (*902,CASECC)\r\n      CALL GOPEN (CASECA,IZ(IBUF2),WRTREW)\r\n   60 CALL READ (*70,*65,CASECC,IZ,LEFT,1,NWDS)\r\n   65 IZX = 4\r\n      IZ(IZX) = IDP\r\n      IZX = 7\r\n      IZ(IZX) = IDT\r\n      CALL WRITE (CASECA,IZ,NWDS,1)\r\n      GO TO 60\r\n   70 CALL CLOSE (CASECC,1)\r\n      CALL CLOSE (CASECA,1)\r\n      ITRL(1) = CASECC\r\n      CALL RDTRL (ITRL)\r\n      ITRL(1) = CASECA\r\n      CALL WRTTRL (ITRL)\r\n      GO TO 999\r\n  901 CALL MESAGE (-1,IFILE,NAME)\r\n      GO TO 999\r\n  902 CALL MESAGE (-2,IFILE,NAME)\r\n      GO TO 999\r\n  999 RETURN\r\nC\r\n 2001 FORMAT (A25,' - ALG MODULE - AERODYNAMIC PRESSURES REQUESTED VIA',\r\n     1       ' PARAM APRESS, BUT NOUT3=0 IN AERODYNAMIC INPUT', /41X,\r\n     2       'OR AERODYNAMIC CALCULATION FAILED. REQUEST IGNORED.')\r\n 2002 FORMAT (A25,' - ALG MODULE - AERODYNAMIC TEMPERATURES REQUESTED ',\r\n     1       'VIA PARAM ATEMP, BUT NOUT3=0 IN AERODYNAMIC INPUT' ,/41X,\r\n     2       'OR AERODYNAMIC CALCULATION FAILED. REQUEST IGNORED.')\r\n      END\r\n"
  },
  {
    "path": "mis/algpr.f",
    "content": "      SUBROUTINE ALGPR (IERR)\r\nC\r\n      LOGICAL         DEBUG\r\n      INTEGER         SYSBUF,NAME(2),EDT,EQEXIN,CSTM,UGV,FILE,CORWDS,\r\n     1                PGEOM,BUF1,BUF2,SCR1,SCR2,RET2,TYPOUT,BGPDT,\r\n     2                ITRL(7),STREAM(3),APRESS,ATEMP,STRML,ALGDB,\r\n     3                IDATA(24),KPTSA(10),IFANGS(10),RD,RDREW,WRT,\r\n     4                WRTREW,CLSREW,NOREW,LEN(3),IFILL(3),ALGDD\r\n      REAL            RFILL(3),Z(1),TA(9),RDATA(6),XSTA(21,10),\r\n     1                RSTA(21,10),R(21,10),B1(21),B2(21),RLE(21),\r\n     2                TC(21),TE(21),CORD(21),DELX(21),DELY(21),ZED(21),\r\n     3                PHI(2,21),ZR(21),PP(21),QQ(21),CORD2(21),\r\n     4                FCHORD(21),JZ(21),XB(21,10),YB(21,10),ZB(21,10),\r\n     5                DISPT(3),DISPR(3),DISPT1(21,10),DISPT2(21,10),\r\n     6                DISPT3(21,10),BLAFOR(21,10),DISPR1(21,10),\r\n     7                DISPR2(21,10),DISPR3(21,10)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / APRESS,ATEMP,STRML,PGEOM,IPRTK,IFAIL,SIGN,ZORIGN,\r\n     1                FXCOOR,FYCOOR,FZCOOR\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,NOREW\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG\r\n      COMMON /UNPAKX/ TYPOUT,IR1,IR2,INCR\r\n      EQUIVALENCE     (IZ(1),Z(1)),(IDATA(1),RDATA(1)),\r\n     1                (IFILL(1),RFILL(1))\r\n      DATA    NAME  / 4HALGP,4HR   /\r\n      DATA    STREAM/ 3292, 92,292 /\r\n      DATA    LEN   / 18, 24, 6    /\r\n      DATA    IBLK  , IZERO,RZERO  / 4H    , 0, 0.0          /\r\n      DATA    EDT   , EQEXIN,UGV,ALGDD,CSTM,BGPDT, SCR1,SCR2 /\r\n     1        102   , 103   ,104,105  ,106 ,107  , 301 ,302  /\r\nC\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      DEBUG =.FALSE.\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG =.TRUE.\r\n      BUF1 = KORSZ(IZ) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      LEFT = CORWDS(IZ(1),IZ(BUF2-1))\r\n      M8   =-8\r\n      IF (LEFT .LE. 0) CALL MESAGE (M8,0,NAME)\r\n      IR1  = 1\r\n      INCR = 1\r\n      TYPOUT = 1\r\n      IERR = 0\r\nC\r\n      IFILL(1) = IBLK\r\n      IFILL(2) = IZERO\r\n      RFILL(3) = RZERO\r\nC\r\nC     CREATE ALGDB WITH CORRECT LENGTH RECORDS -\r\nC     BCD(18 WORDS), INTEGER(24 WORDS), REAL(6 WORDS)\r\nC\r\n      CALL GOPEN (ALGDD,IZ(BUF1),RDREW)\r\n      CALL GOPEN (SCR2,IZ(BUF2),WRTREW)\r\n      ITRL(1) = ALGDD\r\n      CALL RDTRL (ITRL)\r\n      ITRL(1) = SCR2\r\n      CALL WRTTRL (ITRL)\r\n    1 CALL READ (*7,*2,ALGDD,IDATA,99,1,NWAR)\r\n    2 CALL ALGPB (IDATA(1),NTYPE)\r\n      LENGTH = LEN(NTYPE)\r\nC\r\nC     REMOVE NUMERIC ZEROS FROM BCD STRING\r\nC\r\n      IF (NTYPE .NE. 1) GO TO 4\r\n    3 IF (IDATA(NWAR) .NE. 0) GO TO 4\r\n      NWAR = NWAR - 1\r\n      IF (NWAR .GT.      0) GO TO 3\r\n    4 IF (NWAR .GE. LENGTH) GO TO 6\r\n      NWAR1 = NWAR + 1\r\n      DO 5 I = NWAR1,LENGTH\r\n    5 IDATA(I) = IFILL(NTYPE)\r\n    6 CALL WRITE (SCR2,IDATA,LENGTH,1)\r\n      GO TO 1\r\n    7 CALL CLOSE (ALGDD,CLSREW)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      ALGDB = SCR2\r\nC\r\nC     IF UGV IS NOT IN FIST (PURGED) THEN THERE WILL BE NO DATA\r\nC     MODIFICATION\r\nC\r\n      ITRL(1) = UGV\r\n      CALL RDTRL (ITRL)\r\n      IF (ITRL(1) .LT. 0) GO TO 997\r\nC\r\nC     READ EQEXIN INTO CORE\r\nC\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,IZ(BUF1),RDREW)\r\n      CALL READ (*901,*10,EQEXIN,IZ(1),LEFT,1,NEQEX)\r\n      CALL MESAGE (M8,0,NAME)\r\n   10 CALL FREAD (EQEXIN,IZ(NEQEX+1),NEQEX,1)\r\n      CALL CLOSE (EQEXIN,CLSREW)\r\n      KN = NEQEX/2\r\n      IF (DEBUG) CALL BUG1 ('EQEX    ',10,IZ(1),NEQEX)\r\n      IF (DEBUG) CALL BUG1 ('EQEX    ',10,IZ(NEQEX+1),NEQEX)\r\nC\r\nC     READ CSTM INTO CORE (CSTM MAY BE PURGED)\r\nC\r\n      FILE  = CSTM\r\n      ICSTM = 2*NEQEX + 1\r\n      NCSTM = 0\r\n      CALL OPEN (*30,CSTM,Z(BUF1),RDREW)\r\n      CALL FWDREC (*901,CSTM)\r\n      CALL READ (*901,*20,CSTM,IZ(ICSTM),BUF1-ICSTM,1,NCSTM)\r\n      CALL MESAGE (M8,0,NAME)\r\n   20 CALL CLOSE (CSTM,CLSREW)\r\n      IF (DEBUG) CALL BUG1 ('CSTM    ',20,IZ(ICSTM),NCSTM)\r\nC\r\nC     SET-UP FOR CALLS TO TRANSS\r\nC\r\n      CALL PRETRS (IZ(ICSTM),NCSTM)\r\nC\r\nC     UNPACK UGV DISPLACEMENT VECTOR (SUBCASE 2) INTO CORE\r\nC\r\n   30 IVEC = ICSTM + NCSTM\r\n      FILE = UGV\r\n      ITRL(1) = FILE\r\n      CALL RDTRL (ITRL)\r\nC\r\nC     CHECK FOR VALID UGV VECTOR\r\nC     THIS ROUTINE WILL ONLY PROCESS A REAL S.P. RECT. VECTOR\r\nC     OF SIZE G X 2\r\nC     (EXPANDED TO INCLUDE REAL D.P. RECT. VECTOR, G X 2,\r\nC     BY G.CHAN/UNISYS)\r\nC\r\n      NVECTS = ITRL(2)\r\n      KFORM  = ITRL(4)\r\n      KTYPE  = ITRL(5)\r\n      IF (NVECTS.NE.2 .OR. KFORM.NE.2) GO TO 902\r\n      IVECN = IVEC + KTYPE*ITRL(3) - 1\r\n      IF (IVECN .GE. BUF1) CALL MESAGE (M8,0,NAME)\r\nC\r\nC     OPEN UGV AND SKIP FIRST COLUMN (SUBCASE 1)\r\nC\r\n      CALL GOPEN (UGV,IZ(BUF1),RDREW)\r\n      CALL FWDREC (*901,UGV)\r\n      IR2 = ITRL(3)\r\n      CALL UNPACK (*40,UGV,IZ(IVEC))\r\n      GO TO 60\r\nC\r\nC     NULL COLUMN\r\nC\r\n   40 DO 50 I = IVEC,IVECN\r\n   50 Z(I) = 0.0\r\n   60 CALL CLOSE (UGV,CLSREW)\r\n      IF (DEBUG) CALL BUG1 ('UGV     ',60,IZ(IVEC),IR2)\r\nC\r\nC     LOCATE STREAML1 CARDS ON EDT AND STORE IN CORE\r\nC\r\n      FILE   = EDT\r\n      ICHORD = IVECN + 1\r\n      CALL PRELOC (*903,IZ(BUF1),EDT)\r\n      CALL LOCATE (*904,IZ(BUF1),STREAM,IDX)\r\n      CALL READ (*901,*70,EDT,IZ(ICHORD),BUF1-ICHORD,1,NCHORD)\r\n      CALL MESAGE (M8,0,NAME)\r\n   70 CALL CLOSE (EDT,CLSREW)\r\n      IF (DEBUG) CALL BUG1 ('CHOR    ',70,IZ(ICHORD),NCHORD)\r\n      LCHORD = ICHORD + NCHORD -1\r\nC\r\nC     READ THE BGPDT INTO CORE\r\nC\r\n      IBGPDT = LCHORD + 1\r\n      FILE   = BGPDT\r\n      CALL GOPEN (BGPDT,IZ(BUF1),RDREW)\r\n      CALL READ (*901,*80,BGPDT,IZ(IBGPDT),BUF1-IBGPDT,1,NBGPDT)\r\n      CALL MESAGE (M8,0,NAME)\r\n   80 CALL CLOSE (BGPDT,CLSREW)\r\n      IF (DEBUG) CALL BUG1 ('BGPD    ',80,IZ(IBGPDT),NBGPDT)\r\nC\r\nC     FOR EACH STREAML1 CARD -\r\nC     (1) FIND BLADE NODES\r\nC     (2) FIND EQUIVALENT INTERNAL NUMBERS OF THESE NODES\r\nC     (3) LOCATE CORRESPONDING COMPONENTS OF DISPLACEMENT AND\r\nC         CONVERT THEN TO BASIC VIA CSTM\r\nC     (4) LOCATE BASIC GRID POINT DATA FOR BLADE NODES\r\nC\r\n      IC  = ICHORD + 1\r\n      ICC = ICHORD\r\n      JCHORD = 1\r\n      NNODES = 0\r\n  100 ISTATN = 0\r\n  110 ID = IZ(IC)\r\n      IF (ID .NE. -1) GO TO 120\r\n      ICC = IC + 1\r\n      IC  = IC + 2\r\n      NNODES = NNODES + ISTATN\r\n      JCHORD = JCHORD + 1\r\n      IF (IC .GE. LCHORD) GO TO 150\r\n      GO TO 100\r\n  120 ISTATN = ISTATN + 1\r\n      GO TO 1005\r\nC\r\nC     STORE BASIC GRID POINT COORDINATES FROM BGPDT\r\nC\r\n  130 XB(JCHORD,ISTATN) = Z(ICID+1)\r\n      YB(JCHORD,ISTATN) = Z(ICID+2)\r\n      ZB(JCHORD,ISTATN) = Z(ICID+3)\r\n      DISPT1(JCHORD,ISTATN) = DISPT(1)\r\n      DISPT2(JCHORD,ISTATN) = DISPT(2)\r\n      DISPT3(JCHORD,ISTATN) = DISPT(3)\r\n      DISPR1(JCHORD,ISTATN) = DISPR(1)\r\n      DISPR2(JCHORD,ISTATN) = DISPR(2)\r\n      DISPR3(JCHORD,ISTATN) = DISPR(3)\r\n      IF (DEBUG) CALL BUG1 ('NODE    ',ID,Z(ICID+1),3)\r\n      IF (DEBUG) CALL BUG1 ('NODE    ',ID,DISPT,3)\r\n      IF (DEBUG) CALL BUG1 ('NODE    ',ID,DISPR,3)\r\n      IC = IC + 1\r\n      GO TO 110\r\n  150 CONTINUE\r\n      JCHORD = JCHORD - 1\r\n      IF (JCHORD .GT. 21) GO TO 906\r\nC\r\nC     MODIFY AERODYNAMIC INPUT  (OPEN ALGDB DATA BLOCK)\r\nC\r\n      FILE = ALGDB\r\n      CALL GOPEN (ALGDB,IZ(BUF1),RDREW)\r\n      CALL FWDREC (*907,ALGDB)\r\n      CALL READ (*901,*908,ALGDB,IDATA,2,1,NWAR)\r\n      NAERO = IDATA(2)\r\n      CALL SKPREC (ALGDB,1)\r\n      CALL FREAD (ALGDB,IDATA,17,1)\r\n      NLINES = IDATA(1)\r\n      NSTNS  = IDATA(2)\r\n      NSPEC  = IDATA(4)\r\n      IPUNCH = IDATA(8)\r\n      ISECN  = IDATA(9)\r\n      IFCORD = IDATA(10)\r\n      ISPLIT = IDATA(13)\r\n      IRLE   = IDATA(15)\r\n      IRTE   = IDATA(16)\r\n      NSIGN  = IDATA(17)\r\n      CALL SKPREC (ALGDB,1)\r\n      DO 204 ISK = 1,NSTNS\r\n      CALL FREAD (ALGDB,IDATA,2,1)\r\n      KPTSA(ISK) = IDATA(1)\r\n      IFANGS(ISK)= IDATA(2)\r\n      CALL SKPREC (ALGDB,IDATA(1))\r\n      DO 202 INL = 1,NLINES\r\n      CALL FREAD (ALGDB,RDATA,2,1)\r\n  202 BLAFOR(INL,ISK) = RDATA(2)\r\n  204 CONTINUE\r\n      DO 210 ISK = 1,NSPEC\r\n      CALL FREAD (ALGDB,RDATA,6,1)\r\n      ZR(ISK)  = RDATA(1)\r\n      JZ(ISK)  = RDATA(1) + 0.4\r\n      B1(ISK)  = RDATA(2)\r\n      B2(ISK)  = RDATA(3)\r\n      PP(ISK)  = RDATA(4)\r\n      QQ(ISK)  = RDATA(5)\r\n      RLE(ISK) = RDATA(6)\r\n      CALL FREAD (ALGDB,RDATA,6,1)\r\n      TC(ISK)  = RDATA(1)\r\n      TE(ISK)  = RDATA(2)\r\n      ZED(ISK) = RDATA(3)\r\n      CORD(ISK)= RDATA(4)\r\n      DELX(ISK)= RDATA(5)\r\n      DELY(ISK)= RDATA(6)\r\n      IF (ISECN.EQ.1 .OR. ISECN.EQ.3) CALL SKPREC (ALGDB,1)\r\n  210 CONTINUE\r\n      CALL CLOSE (ALGDB,CLSREW)\r\nC\r\nC     NUMBER OF BLADE STATIONS\r\nC\r\n      NBLSTN = IRTE - IRLE + 1\r\n      IF (NLINES .NE. JCHORD) GO TO 909\r\n      IF (NNODES .NE. NLINES*NBLSTN) GO TO 909\r\nC\r\nC     COMPUTE FCORD AND PHI\r\nC\r\n      DO 305 K = 1,NSPEC\r\n      J    = JZ(K)\r\n      TEMP = (XB(J,NBLSTN)-XB(J,1))**2 + (ZB(J,NBLSTN)-ZB(J,1))**2\r\n      IF (IFCORD .EQ. 1) TEMP = TEMP   + (YB(J,NBLSTN)-YB(J,1))**2\r\n      FCHORD(K) = CORD(K)/SQRT(TEMP)\r\n      PHI(1,K)  = ATAN((ZB(J,2)-ZB(J,1))/(XB(J,2)-XB(J,1)))\r\n      PHI(2,K)  = ATAN((ZB(J,NBLSTN)-ZB(J,NBLSTN-1))/\r\n     1                 (XB(J,NBLSTN)-XB(J,NBLSTN-1)))\r\n  305 CONTINUE\r\nC     COMPUTE NEW COORDINATES\r\nC     GENERATE XSTA, RSTA AND R , SET KPTS = NLINES\r\n      DO 310 I = 1,NLINES\r\n      DO 310 J = 1,NBLSTN\r\n      XB(I,J) = XB(I,J) + SIGN*DISPT1(I,J)*FXCOOR\r\n      YB(I,J) = YB(I,J) + SIGN*DISPT2(I,J)*FYCOOR\r\n      ZB(I,J) = ZB(I,J) + SIGN*DISPT3(I,J)*FZCOOR\r\n      XSTA(I,J) = XB(I,J)\r\n      RSTA(I,J) = ZB(I,J) + ZORIGN\r\n      R(I,J)  = RSTA(I,J)\r\n  310 CONTINUE\r\nC\r\nC     COMPUTE CORD2\r\nC\r\n      DO 315 K = 1,NSPEC\r\n      J    = JZ(K)\r\n      TEMP = (XB(J,NBLSTN)-XB(J,1))**2 + (ZB(J,NBLSTN)-ZB(J,1))**2\r\n      IF (IFCORD .EQ. 1) TEMP = TEMP   + (YB(J,NBLSTN)-YB(J,1))**2\r\n      CORD2(K) = FCHORD(K)*SQRT(TEMP)\r\n  315 CONTINUE\r\nC\r\nC     MODIFY B1, B2, RLE, TC, TE, CORD, DELX AND DELY\r\nC\r\n      I1 = (NBLSTN+1)/2\r\n      I2 = I1\r\n      IF (I1*2 .NE. NBLSTN+1) I2 = I2 + 1\r\n      DO 318 K = 1,NSPEC\r\n      J  = JZ(K)\r\n      B1(K) = B1(K) - NSIGN*SIGN*RADEG*(DISPR3(J,1)*COS(PHI(1,K)) -\r\n     1                                  DISPR1(J,1)*SIN(PHI(1,K)))\r\n      B2(K) = B2(K) - NSIGN*SIGN*RADEG*(DISPR3(J,NBLSTN)*COS(PHI(2,K)) -\r\n     1                                  DISPR1(J,NBLSTN)*SIN(PHI(2,K)))\r\n      TEMP   = CORD(K)/CORD2(K)\r\n      RLE(K) = RLE(K) *TEMP\r\n      TC(K)  = TC(K)  *TEMP\r\n      TE(K)  = TE(K)  *TEMP\r\n      CORD(K) = CORD2(K)\r\n      DELX(K) = DELX(K) + 0.5*SIGN*FXCOOR*(DISPT1(J,I1)+DISPT1(J,I2))\r\n      DELY(K) = DELY(K) + 0.5*SIGN*FYCOOR*(DISPT2(J,I1)+DISPT2(J,I2))\r\n  318 CONTINUE\r\nC\r\nC     GENERATE NEW ALGDB DATA BLOCK\r\nC\r\n      CALL GOPEN (ALGDB,IZ(BUF1),RDREW)\r\n      CALL GOPEN (SCR1,IZ(BUF2),WRTREW)\r\n      ITRL(1) = ALGDB\r\n      CALL RDTRL (ITRL)\r\nC\r\nC     MODIFY THE NUMBER OF CARDS IN ALGDB\r\nC\r\n      NCDSX = 0\r\n      DO 320 KPT = IRLE,IRTE\r\n  320 NCDSX = NCDSX + NLINES - KPTSA(KPT)\r\n      ITRL(2) = ITRL(2) + NCDSX\r\n      ITRL(1) = SCR1\r\n      CALL WRTTRL (ITRL)\r\n      ASSIGN 322 TO RET2\r\n      NREC = 5\r\n      GO TO 1300\r\nC\r\nC     COPY DATA FOR STATIONS 1 THRU (IRLE-1)\r\nC\r\n  322 IF (IRLE .EQ. 1) GO TO 335\r\n      NLES = IRLE - 1\r\n      NREC = NLES + NLES*NLINES\r\n      DO 324 IKP = 1,NLES\r\n  324 NREC = NREC + KPTSA(IKP)\r\n      ASSIGN 326 TO RET2\r\n      GO TO 1300\r\nC\r\nC     SKIP OVER EXISTING RECORDS FOR STATIONS IRLE THRU IRTE\r\nC\r\n  326 NREC = NBLSTN + NBLSTN*NLINES\r\n      DO 328 IKP = IRLE,IRTE\r\n  328 NREC = NREC + KPTSA(IKP)\r\n      CALL SKPREC (ALGDB,NREC)\r\nC\r\nC     CREATE NEW DATA RECORDS FOR STATIONS IRLE THRU IRTE\r\nC\r\n      KSTA = 0\r\n      DO 334 JSTA = IRLE,IRTE\r\n      KSTA = KSTA + 1\r\n      IDATA(1) = NLINES\r\n      IDATA(2) = IFANGS(JSTA)\r\n      CALL WRITE (SCR1,IDATA,2,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',329,IDATA,2)\r\n      DO 330 I = 1,NLINES\r\n      RDATA(1) = XSTA(I,KSTA)\r\n      RDATA(2) = RSTA(I,KSTA)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',330,RDATA,2)\r\n  330 CALL WRITE(SCR1,RDATA,2,1)\r\n      DO 332 I = 1,NLINES\r\n      RDATA(1) = R(I,KSTA)\r\n      RDATA(2) = BLAFOR(I,KSTA)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',332,RDATA,2)\r\n  332 CALL WRITE (SCR1,RDATA,2,1)\r\n  334 CONTINUE\r\n  335 CONTINUE\r\nC\r\nC     COPY DATA FOR STATIONS (IRTE+1) THRU NSTNS\r\nC\r\n      IF (IRTE .EQ. NSTNS) GO TO 338\r\n      IRTE1 = IRTE  + 1\r\n      IRTE2 = NSTNS - IRTE\r\n      NREC  = IRTE2 + IRTE2*NLINES\r\n      DO 336 IKP = IRTE1,NSTNS\r\n  336 NREC  = NREC  + KPTSA(IKP)\r\n      ASSIGN 338 TO RET2\r\n      GO TO 1300\r\n  338 CONTINUE\r\nC\r\nC     MODIFY THE NEXT NSPEC RECORDS\r\nC\r\n      DO 340 I = 1,NSPEC\r\n      CALL SKPREC(ALGDB,2)\r\n      RDATA(1) = ZR(I)\r\n      RDATA(2) = B1(I)\r\n      RDATA(3) = B2(I)\r\n      RDATA(4) = PP(I)\r\n      RDATA(5) = QQ(I)\r\n      RDATA(6) = RLE(I)\r\n      CALL WRITE (SCR1,RDATA,6,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',338,RDATA,6)\r\n      RDATA(1) = TC(I)\r\n      RDATA(2) = TE(I)\r\n      RDATA(3) = ZED(I)\r\n      RDATA(4) = CORD(I)\r\n      RDATA(5) = DELX(I)\r\n      RDATA(6) = DELY(I)\r\n      CALL WRITE (SCR1,RDATA,6,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',339,RDATA,6)\r\n      IF (ISECN.NE.1 .AND. ISECN.NE.3) GO TO 340\r\n      CALL FREAD (ALGDB,RDATA,2,1)\r\n      CALL WRITE (SCR1,RDATA,2,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',340,RDATA,2)\r\n  340 CONTINUE\r\nC\r\nC     COPY REST OF ANALYTIC DATA\r\nC\r\n      IF (ISPLIT .LT. 1) GO TO 344\r\n      NREC = NSPEC\r\n      DO 342 I = 1,NSTNS\r\n      IF (IFANGS(I) .EQ. 2) NREC = NREC + NLINES\r\n  342 CONTINUE\r\n      ASSIGN 344 TO RET2\r\n      GO TO 1300\r\n  344 CONTINUE\r\n      IF (NAERO.NE.1 .AND. IPUNCH.NE.1) GO TO 352\r\n      NREC  = 1\r\n      ASSIGN 346 TO RET2\r\n      GO TO 1300\r\n  346 NRAD  = IDATA(1)\r\n      NDPTS = IDATA(2)\r\n      NDATR = IDATA(3)\r\n      ASSIGN 347 TO RET2\r\n      NREC  = 2\r\n      GO TO 1300\r\n  347 NB = NBLSTN - 1\r\n      I  = 1\r\n  348 NREC = 1\r\n      ASSIGN 349 TO RET2\r\n      GO TO  1300\r\n  349 NREC = IDATA(1)\r\n      ASSIGN 350 TO RET2\r\n      GO TO  1300\r\n  350 I = I + 1\r\n      IF (I .LE. NB) GO TO 348\r\n      NREC = NRAD*(NDPTS+1) + NDATR\r\n      ASSIGN 352 TO RET2\r\n      GO TO  1300\r\nC\r\nC     PROCESS AERODYNAMIC INPUT\r\nC\r\n  352 IF (NAERO .EQ. 0) GO TO 366\r\n      ASSIGN 354 TO RET2\r\n      NREC  = 3\r\n      GO TO 1300\r\n  354 NSTNS = IDATA(1)\r\n      NCASE = IDATA(6)\r\n      NMANY = IDATA(16)\r\n      NLE   = IDATA(19)\r\n      NTE   = IDATA(20)\r\n      NSIGN = IDATA(21)\r\n      IF (NSTNS .EQ. 0) NSTNS = 11\r\n      IF (NCASE .EQ. 0) NCASE = 1\r\n      NREC  = NCASE + 3\r\n      IF (NMANY .GT. 0) NREC = NCASE + 4\r\n      ASSIGN 356 TO RET2\r\n      GO TO  1300\r\n  356 CONTINUE\r\nC\r\nC     COPY DATA FOR STATIONS 1 THRU (NLE-1)\r\nC\r\n      IF (NLE .EQ. 1) GO TO 361\r\n      NLE1 = NLE - 1\r\n      I    = 1\r\n  357 NREC = 1\r\n      ASSIGN 358 TO RET2\r\n      GO TO  1300\r\n  358 NREC = IDATA(1)\r\n      ASSIGN 360 TO RET2\r\n      GO TO  1300\r\n  360 I = I + 1\r\n      IF (I .LE. NLE1) GO TO 357\r\n  361 JSTA = 0\r\nC\r\nC     MODIFY DATA FOR STATIONS NLE THRU NTE\r\nC\r\n      DO 364 I = NLE,NTE\r\n      JSTA = JSTA + 1\r\n      CALL FREAD (ALGDB,NSPEC,1,1)\r\n      CALL SKPREC (ALGDB,NSPEC)\r\n      CALL WRITE (SCR1,NLINES,1,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',361,NLINS,1)\r\n      DO 362 NL = 1,NLINES\r\n      RDATA(1) = XSTA(NL,JSTA)\r\n      RDATA(2) = RSTA(NL,JSTA)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',362,RDATA,2)\r\n  362 CALL WRITE (SCR1,RDATA,2,1)\r\n  364 CONTINUE\r\nC\r\nC     COPY REST OF DATA\r\nC\r\n      ASSIGN 366 TO RET2\r\n      NREC = 65000\r\n      GO TO  1300\r\nC\r\nC     CLOSE ALGDB AND SCR1\r\nC\r\n  366 CALL CLOSE (ALGDB,CLSREW)\r\n      CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     PUNCH NEW ALGDB TABLE INTO DTI CARDS IF PGEOM=3.\r\nC\r\n      IF (PGEOM .EQ. 3) CALL ALGAP (ALGDD,SCR1)\r\n      GO TO 999\r\nC\r\nC\r\nC     INTERNAL BINARY SEARCH ROUTINE\r\nC\r\nC     SEARCH EQEXIN FOR INTERNAL NUMBER AND SIL NUMBER OF EXTERNAL NODE\r\nC\r\n 1005 KLO = 1\r\n      KHI = KN\r\n 1010 K   = (KLO + KHI + 1) / 2\r\n 1020 IF (ID - IZ(2*K-1)) 1030,1090,1040\r\n 1030 KHI = K\r\n      GO TO 1050\r\n 1040 KLO = K\r\n 1050 IF (KHI - KLO - 1)  905,1060,1010\r\n 1060 IF (K .EQ. KLO) GO TO 1070\r\n      K   = KLO\r\n      GO TO 1080\r\n 1070 K   = KHI\r\n 1080 KLO = KHI\r\n      GO TO 1020\r\n 1090 INTN = IZ(2*K)\r\n      ISIL = IZ(2*K+NEQEX)/10\r\n      KODE = IZ(2*K+NEQEX) - 10*ISIL\r\n      IF (DEBUG) CALL BUG1('ISTL    ',1090,ISIL,1)\r\n      IF (DEBUG) CALL BUG1('KODE    ',1090,KODE,1)\r\nC\r\nC     LOCATE COORDINATE SYSTEM ID FOR THIS NODE IN THE BGPDT\r\nC\r\n      ICID = 4*(INTN-1) + IBGPDT\r\nC\r\nC     SET-UP COORDINATE SYSTEM TRANSFORMATION FOR DISPLACEMENTS.\r\nC\r\n      IF (IZ(ICID) .GT. 0) CALL TRANSS (IZ(ICID),TA)\r\nC\r\nC     COMPUTE POINTER INTO UGV\r\nC     JVEC = IVEC + KTYPE *(ISIL-1)\r\nC\r\n      JVEC = IVEC + TYPOUT*(ISIL-1)\r\nC\r\nC     PICK-UP DISPLACEMENTS\r\nC\r\n      IF (KODE .EQ. 1) GO TO 1092\r\nC\r\nC     SCALAR POINT\r\nC\r\n      DISPT(1) = Z(JVEC)\r\n      DISPT(2) = 0.0\r\n      DISPT(3) = 0.0\r\n      DISPR(1) = 0.0\r\n      DISPR(2) = 0.0\r\n      DISPR(3) = 0.0\r\n      GO TO 1100\r\nC\r\nC     GRID POINT\r\nC\r\n 1092 IF (IZ(ICID) .GT. 0) GO TO 1094\r\nC\r\nC     DISPLACEMENTS ALREADY IN BASIC SYSTEM\r\nC\r\n      DISPT(1) = Z(JVEC  )\r\n      DISPT(2) = Z(JVEC+1)\r\n      DISPT(3) = Z(JVEC+2)\r\n      DISPR(1) = Z(JVEC+3)\r\n      DISPR(2) = Z(JVEC+4)\r\n      DISPR(3) = Z(JVEC+5)\r\n      GO TO 1100\r\nC\r\nC     DISPLACEMENTS MUST BE TRANSFORMED TO BASIC\r\nC\r\n 1094 CALL GMMATS (TA,3,3,0,Z(JVEC  ),3,1,0,DISPT)\r\n      CALL GMMATS (TA,3,3,0,Z(JVEC+3),3,1,0,DISPR)\r\n 1100 CONTINUE\r\n      GO TO 130\r\n 1300 DO 1304 ICOPY = 1,NREC\r\n      CALL READ (*1306,*1302,ALGDB,IDATA,99,1,NWAR)\r\n 1302 CALL WRITE (SCR1,IDATA,NWAR,1)\r\n      IF (DEBUG) CALL BUG1 ('ALGPR   ',1302,IDATA,NWAR)\r\n 1304 CONTINUE\r\n      IF (NREC .LT. 65000) GO TO 1306\r\n      WRITE  (NOUT,1305)\r\n 1305 FORMAT (/,' *** NO. OF RECORDS EXCEEDS HARDWARE LIMIT/ALGPR')\r\n      CALL MESAGE (-37,0,0)\r\n 1306 GO TO RET2, (322,326,338,344,346,347,349,350,352,354,356,358,\r\n     1             360,366)\r\nC\r\n  901 CALL MESAGE (-2,FILE,NAME)\r\n      GO TO 998\r\n  902 WRITE (NOUT,2001) UFM\r\n      GO TO 998\r\n  903 WRITE (NOUT,2002) UFM\r\n      GO TO 998\r\n  904 WRITE (NOUT,2003) UFM\r\n      GO TO 998\r\n  905 WRITE (NOUT,2004) UFM,IZ(ICC),ID\r\n      GO TO 998\r\n  906 WRITE (NOUT,2005) UWM\r\n      GO TO 999\r\n  907 WRITE (NOUT,2006) UFM\r\n      GO TO 998\r\n  908 CALL MESAGE (-3,FILE,NAME)\r\n      GO TO 998\r\n  909 WRITE (NOUT,2007) UFM\r\n      GO TO 998\r\n  997 IERR = 1\r\n      GO TO 999\r\n  998 IERR = -1\r\n  999 RETURN\r\nC\r\n 2001 FORMAT (A23,' - ALG MODULE - UGV DATA BLOCK IS NOT A REAL S.P. ',\r\n     1       'RECTANGULAR MATRIX OF ORDER G BY 2.')\r\n 2002 FORMAT (A23,' - ALG MODULE - EDT DATA BLOCK MAY NOT BE PURGED.')\r\n 2003 FORMAT (A23,' - ALG MODULE - STREAML1 BULK DATA CARD MISSING ',\r\n     1       'FROM BULK DATA DECK.')\r\n 2004 FORMAT (A23,' - ALG MODULE - STREAML1 BULK DATA CARD (SLN NO. =',\r\n     1       I3,') REFERENCES UNDEFINED NODE NO.',I8)\r\n 2005 FORMAT (A25,' - ALG MODULE - MORE THAN 21 STREAML1 CARDS READ. ',\r\n     1       'FIRST 21 WILL BE USED.')\r\n 2006 FORMAT (A23,' - ALG MODULE - ALGDB DATA BLOCK (FILE 105) DOES ',\r\n     1       'NOT HAVE ENOUGH RECORDS.')\r\n 2007 FORMAT (A23,' - ALG MODULE - INPUT IN ALGDB DATA BLOCK (FILE 105',\r\n     1       ') INCONSISTENT WITH DATA ON STREAML1 BULK DATA CARDS.',\r\n     2       /39X,'CHECK THE NUMBER OF COMPUTING STATIONS AND THE ',\r\n     3       'NUMBER OF STREAMSURFACES ON THE BLADE.')\r\n      END\r\n"
  },
  {
    "path": "mis/allmat.f",
    "content": "      SUBROUTINE ALLMAT (A,LAMBDA,H,HL,VECT,MULT,INTH,INT,M,NCAL,IOPT1)\r\nC\r\nC     SUBROUTINE ALLMAT (A,LAMBDA,M,IA,NCAL)\r\nC\r\nC     A ON ENTRY      = MATRIX TO BE ITERATED\r\nC     A    ON RETURN  = EIGENVECTORS  (OPTIONAL)\r\nC     LAMBDA          = EIGENVALUES\r\nC     M               = FIRST DIMENSION OF (A)\r\nC     NCAL ON ENTRY   = FLAG .NE. 0. COMPUTE VECTORS\r\nC                            .EQ. 0. NO VECTORS\r\nC     NCAL ON RETURN  = NUMBER OF EIGENVALUES\r\nC\r\nC\r\nC     PROG. AUTHORS JOHN RINZEL AND R.E.FUNDERLIC, UNION CARBIDE CORP.\r\nC     NUCLEAR DIVISION,CENTRAL DATA PROCESSING FACILITY,\r\nC     OAK RIDGE, TENNESSEE\r\nC\r\n      LOGICAL INTH(1),TWICE\r\n      INTEGER INT(1),R,RP1,RP2\r\n      COMPLEX A(M,M),H(M,M),HL(M,M),LAMBDA(2),VECT(1),MULT(1),\r\n     1        SHIFT(3),TEMP,SIN,COS,TEMP1,TEMP2\r\nC\r\n      NVEC = NCAL\r\n      N    = M\r\n      NCAL = N\r\n      IF (N .NE. 1) GO TO 1\r\n      LAMBDA(1) = A(1,1)\r\n      A(1,1) = 1.\r\n      GO TO 62\r\n    1 ICOUNT = 0\r\n      SHIFT(1) = 0.\r\n      IF (N .NE. 2) GO TO 4\r\n    2 TEMP = (A(1,1)+A(2,2) + CSQRT((A(1,1)+A(2,2))*(A(1,1)+A(2,2)) -\r\n     1        4.*(A(2,2)*A(1,1)-A(2,1)*A(1,2))))/2.\r\n      IF (REAL(TEMP).NE.0. .OR. AIMAG(TEMP).NE.0.) GO TO 3\r\n      LAMBDA(M  ) = SHIFT(1)\r\n      LAMBDA(M-1) = A(1,1) + A(2,2) + SHIFT(1)\r\n      GO TO 37\r\n    3 LAMBDA(M  ) = TEMP + SHIFT(1)\r\n      LAMBDA(M-1) = (A(2,2)*A(1,1)-A(2,1)*A(1,2))/(LAMBDA(M)-SHIFT(1))\r\n     1            + SHIFT(1)\r\n      GO TO 37\r\nC\r\nC     REDUCE MATRIX A TO HESSENBERG FORM\r\nC\r\n    4 NM2 = N - 2\r\n      DO 15 R = 1,NM2\r\n      RP1 = R + 1\r\n      RP2 = R + 2\r\n      ABIG= 0.\r\n      INT(R) = RP1\r\n      DO 5 I = RP1,N\r\n      ABSSQ = REAL(A(I,R))**2 + AIMAG(A(I,R))**2\r\n      IF (ABSSQ .LE. ABIG) GO TO 5\r\n      INT(R) = I\r\n      ABIG   = ABSSQ\r\n    5 CONTINUE\r\n      IF (ABIG .EQ. 0.) GO TO 15\r\n      INTER = INT(R)\r\n      IF (INTER .EQ. RP1) GO TO 8\r\n      DO 6 I = R,N\r\n      TEMP = A(RP1,I)\r\n      A(RP1,I) = A(INTER,I)\r\n    6 A(INTER,I) = TEMP\r\n      DO 7 I = 1,N\r\n      TEMP = A(I,RP1)\r\n      A(I,RP1) = A(I,INTER)\r\n    7 A(I,INTER) = TEMP\r\n    8 DO 9 I  = RP2,N\r\n      MULT(I) = A(I,R)/A(RP1,R)\r\n    9 A(I,R)  = MULT(I)\r\n      DO 11 I = 1,RP1\r\n      TEMP = 0.\r\n      DO 10 J = RP2,N\r\n   10 TEMP = TEMP + A(I,J)*MULT(J)\r\n   11 A(I,RP1) = A(I,RP1) + TEMP\r\n      DO 13 I = RP2,N\r\n      TEMP = 0.\r\n      DO 12 J = RP2,N\r\n   12 TEMP = TEMP + A(I,J)*MULT(J)\r\n   13 A(I,RP1) = A(I,RP1) + TEMP - MULT(I)*A(RP1,RP1)\r\n      DO 14 I = RP2,N\r\n      DO 14 J = RP2,N\r\n   14 A(I,J) = A(I,J) - MULT(I)*A(RP1,J)\r\n   15 CONTINUE\r\nC\r\nC     CALCULATE EPSILON\r\nC\r\n      EPS = 0.\r\n      DO 16 I = 1,N\r\n   16 EPS = EPS + CABS(A(1,I))\r\n      DO 18 I = 2,N\r\n      SUM = 0.\r\n      IM1 = I - 1\r\n      DO 17 J = IM1,N\r\n   17 SUM = SUM + CABS(A(I,J))\r\n   18 IF (SUM .GT. EPS) EPS = SUM\r\n      EPS = SQRT(FLOAT(N))*EPS*1.E-12\r\n      IF (EPS .EQ. 0.) EPS = 1.E-12\r\n      DO 19 I = 1,N\r\n      DO 19 J = 1,N\r\n   19 H(I,J) = A(I,J)\r\n   20 IF (N .NE. 1) GO TO 21\r\n      LAMBDA(M) = A(1,1) + SHIFT(1)\r\n      GO TO 37\r\n   21 IF (N .EQ. 2) GO TO 2\r\n   22 MN1 = M - N + 1\r\n      ARD = REAL (A(N,N))\r\n      AID = AIMAG(A(N,N))\r\n      ARN = REAL (A(N,N-1))\r\n      AIN = AIMAG(A(N,N-1))\r\n      IF (ARD.EQ.0.0 .AND. AID.EQ.0.0) GO TO 23\r\n      TERM1 = ABS(ARD*ARN + AID*AIN)\r\n      TERM2 = ABS(ARD*AIN - AID*ARN)\r\n      TERM3 = ARD*ARD + AID*AID\r\n      IF ((TERM1+TERM2) .LE. 1.0E-9*TERM3) GO TO 24\r\n   23 IF ((ABS(ARN)+ABS(AIN)) .GE. EPS) GO TO 25\r\n   24 LAMBDA(MN1) = A(N,N) + SHIFT(1)\r\n      ICOUNT = 0\r\n      N = N - 1\r\n      GO TO 21\r\nC\r\nC     DETERMINE SHIFT\r\nC\r\n   25 SHIFT(2) = (A(N-1,N-1)+A(N,N) + CSQRT((A(N-1,N-1)+A(N,N))*\r\n     1           (A(N-1,N-1)+A(N,N)) - 4.*(A(N,N)*A(N-1,N-1)-A(N,N-1)*\r\n     2            A(N-1,N))))/2.\r\n      IF (REAL(SHIFT(2)).NE.0. .OR. AIMAG(SHIFT(2)).NE.0.) GO TO 26\r\n      SHIFT(3) = A(N-1,N-1) + A(N,N)\r\n      GO TO 27\r\n   26 SHIFT(3) = (A(N,N)*A(N-1,N-1) - A(N,N-1)*A(N-1,N))/SHIFT(2)\r\n   27 IF (CABS(SHIFT(2)-A(N,N)) .LT. CABS(SHIFT(3)-A(N,N))) GO TO 28\r\n      INDEX = 3\r\n      GO TO 29\r\n   28 INDEX = 2\r\n   29 IF (CABS(A(N-1,N-2)) .GE. EPS) GO TO 30\r\n      LAMBDA(MN1  ) = SHIFT(2) + SHIFT(1)\r\n      LAMBDA(MN1+1) = SHIFT(3) + SHIFT(1)\r\n      ICOUNT = 0\r\n      N = N - 2\r\n      GO TO 20\r\n   30 SHIFT(1) = SHIFT(1) + SHIFT(INDEX)\r\n      DO 31 I = 1,N\r\n   31 A(I,I) = A(I,I) - SHIFT(INDEX)\r\nC\r\nC     PERFORM GIVENS ROTATIONS, QR ITERATES\r\nC\r\n      IF (ICOUNT .LE. 20) GO TO 32\r\n      NCAL  = M - N\r\n      GO TO 37\r\n   32 NM1   = N - 1\r\n      TEMP1 = A(1,1)\r\n      TEMP2 = A(2,1)\r\n      DO 36 R = 1,NM1\r\n      RP1   = R + 1\r\n      RHO   = SQRT(REAL(TEMP1)**2 + AIMAG(TEMP1)**2 +\r\n     1        REAL(TEMP2)**2 + AIMAG(TEMP2)**2)\r\n      IF (RHO .EQ. 0.) GO TO 36\r\n      COS   = TEMP1/RHO\r\n      SIN   = TEMP2/RHO\r\n      INDEX = MAX0(R-1,1)\r\n      DO 33 I = INDEX,N\r\n      TEMP  = CONJG(COS)*A(R,I) + CONJG(SIN)*A(RP1,I)\r\n      A(RP1,I) =-SIN*A(R,I) + COS*A(RP1,I)\r\n   33 A(R,I) = TEMP\r\n      TEMP1  = A(RP1,RP1)\r\n      TEMP2  = A(R+2,R+1)\r\n      DO 34 I = 1,R\r\n      TEMP   = COS*A(I,R) + SIN*A(I,RP1)\r\n      A(I,RP1) =-CONJG(SIN)*A(I,R) + CONJG(COS)*A(I,RP1)\r\n   34 A(I,R) = TEMP\r\n      INDEX  = MIN0(R+2,N)\r\n      DO 35 I = RP1,INDEX\r\n      A(I,R) = SIN*A(I,RP1)\r\n   35 A(I,RP1) = CONJG(COS)*A(I,RP1)\r\n   36 CONTINUE\r\n      ICOUNT = ICOUNT + 1\r\n      GO TO 22\r\nC\r\nC     CALCULATE VECTORS\r\nC\r\n   37 IF (NCAL.EQ.0 .OR. NVEC.EQ.0) GO TO 62\r\n      N   = M\r\n      NM1 = N - 1\r\n      IF (N .NE. 2) GO TO 38\r\n      EPS = AMAX1(CABS(LAMBDA(1)),CABS(LAMBDA(2)))*1.E-8\r\n      IF (EPS .EQ. 0.) EPS = 1.E-12\r\n      H(1,1) = A(1,1)\r\n      H(1,2) = A(1,2)\r\n      H(2,1) = A(2,1)\r\n      H(2,2) = A(2,2)\r\n   38 DO 56 L = 1,NCAL\r\n      DO 40 I = 1,N\r\n      DO 39 J = 1,N\r\n   39 HL(I,J) = H(I,J)\r\n   40 HL(I,I) = HL(I,I) - LAMBDA(L)\r\n      DO 44 I = 1,NM1\r\n      MULT(I) = 0.\r\n      INTH(I) = .FALSE.\r\n      IP1 = I + 1\r\n      IF (CABS(HL(I+1,I)) .LE. CABS(HL(I,I))) GO TO 42\r\n      INTH(I) = .TRUE.\r\n      DO 41 J = I,N\r\n      TEMP = HL(I+1,J)\r\n      HL(I+1,J) = HL(I,J)\r\n   41 HL(I,J  ) = TEMP\r\n   42 IF (REAL(HL(I,I)).EQ.0. .AND. AIMAG(HL(I,I)).EQ.0.) GO TO 44\r\n      MULT(I) = -HL(I+1,I)/HL(I,I)\r\n      DO 43 J = IP1,N\r\n   43 HL(I+1,J) = HL(I+1,J) + MULT(I)*HL(I,J)\r\n   44 CONTINUE\r\n      DO 45 I = 1,N\r\n   45 VECT(I) = 1.\r\n      TWICE = .FALSE.\r\n   46 IF (REAL(HL(N,N)).EQ.0. .AND. AIMAG(HL(N,N)).EQ.0.) HL(N,N) = EPS\r\n      VECT(N) = VECT(N)/HL(N,N)\r\n      DO 48 I = 1,NM1\r\n      K = N - I\r\n      DO 47 J = K,NM1\r\n   47 VECT(K) = VECT(K) - HL(K,J+1)*VECT(J+1)\r\n      IF (REAL(HL(K,K)).EQ.0. .AND. AIMAG(HL(K,K)).EQ.0.) HL(K,K) = EPS\r\n   48 VECT(K) = VECT(K)/HL(K,K)\r\n      BIG = 0.\r\n      DO 49 I = 1,N\r\n      SUM = ABS(REAL(VECT(I))) + ABS(AIMAG(VECT(I)))\r\n   49 IF (SUM .GT. BIG) BIG = SUM\r\n      DO 50 I = 1,N\r\n   50 VECT(I) = VECT(I)/BIG\r\n      IF (TWICE) GO TO 52\r\n      DO 51 I = 1,NM1\r\n      IF (.NOT.INTH(I)) GO TO 51\r\n      TEMP = VECT(I)\r\n      VECT(I  ) = VECT(I+1)\r\n      VECT(I+1) = TEMP\r\n   51 VECT(I+1) = VECT(I+1) + MULT(I)*VECT(I)\r\n      TWICE = .TRUE.\r\n      GO TO 46\r\n   52 IF (N .EQ. 2) GO TO 55\r\n      NM2 = N - 2\r\n      DO 54 I = 1,NM2\r\n      N1I = N - 1 - I\r\n      NI1 = N - I + 1\r\n      DO 53 J = NI1,N\r\n   53 VECT(J) = H(J,N1I)*VECT(N1I+1) + VECT(J)\r\n      INDEX = INT(N1I)\r\n      TEMP  = VECT(N1I+1)\r\n      VECT(N1I+1) = VECT(INDEX)\r\n   54 VECT(INDEX) = TEMP\r\n   55 DO 56 I = 1,N\r\n   56 A(I,L) = VECT(I)\r\n      DO 61 J = 1,NCAL\r\n      TE = 0.\r\n      DO 58 I = 1,N\r\n      TEM = CABS(A(I,J))\r\n      IF (TE .GT. TEM) GO TO 58\r\n      L = I\r\n      TE = TEM\r\n   58 CONTINUE\r\n      TEMP1 = A(L,J)\r\n      DO 60 I = 1,N\r\n   60 A(I,J) = A(I,J)/TEMP1\r\n   61 CONTINUE\r\n   62 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amatrx.f",
    "content": "      SUBROUTINE AMATRX (D,V,C,CA, CA2, VA, DM, DB, YI)\r\nC\r\nC\r\nC THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR\r\nC THE TOROIDAL RING\r\nC\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN AMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN AMATRX ROUTINE.\r\nC\r\nC\r\n      DIMENSION  D (10,10) , YI (6,11)\r\nC\r\nC     ------------------------------------------------------------------\r\nC\r\n      D(1,1)   =  DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1))\r\n      D(2,1)   =  DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2))\r\n      D(3,1)   =  DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3))\r\n      D(4,1)   =  DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4))\r\n      D(5,1)   =  DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5))\r\n      D(6,1)   =  DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6))\r\n      D(7,1)   =  DM * (VA*YI(4,1)  +  YI(5,1))\r\n      D(8,1)   =  DM * (CA*YI(1,1)  +  VA*YI(4,2) + V*YI(2,1) + YI(5,2))\r\n      D(9,1)   =  DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5\r\n     1                 ,3))\r\n      D(10,1)  =  DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(2,2)   =  DB * YI(6,1)  +  D(3,1)\r\n      D(3,2)   =  DB * (2.*V*YI(4,1) + 2.*YI(6,2))  +  D(4,1)\r\n      D(4,2)   =  DB * (6.*V*YI(4,2) + 3.*YI(6,3))  +  D(5,1)\r\n      D(5,2)   =  DB * (12.*V*YI(4,3) + 4.*YI(6,4)) +  D(6,1)\r\n      D(6,2)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * (20.*V*YI(4,4) + 5.*YI(6,5))\r\n      D (7,2)  =  DM * (VA*YI(4,2) + YI(5,2))\r\n      D(8,2)   =  DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3))\r\n      D(9,2)   =  DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(10,2)  =  DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(3,3)   =  DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1)\r\n      D(4,3)   =  DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1)\r\n      D(5,3)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1        DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5))\r\n      D(6,3)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D (7,3)  =  DM * (VA*YI(4,3) + YI(5,3))\r\n      D(8,3)   =  DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4))\r\n      D(9,3)   =  DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(10,3)  =  DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(4,4)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(5,4)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(6,4)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D (7,4)  =  DM * (VA*YI(4,4) + YI(5,4))\r\n      D(8,4)   =  DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5))\r\n      D(9,4)   =  DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(10,4)  =  DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) +\r\n     1                 YI(5,7))\r\n      D(5,5)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D(6,5)   =  DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) +\r\n     1            DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7)  + YI(6,8))\r\n      D (7,5)  =  DM * (VA*YI(4,5) + YI(5,5))\r\n      D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6))\r\n      D(9,5)   =  DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5\r\n     1                 ,7))\r\n      D(10,5)  =  DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(6,6)   =  DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11))  +\r\n     1            DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9))\r\n      D (7,6)  =  DM * (VA*YI(4,6) + YI(5,6))\r\n      D(8,6)   =  DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7))\r\n      D(9,6)   =  DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(10,6)  =  DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5\r\n     1                 ,9))\r\n      D (7,7)  =  DM * YI(6,1)\r\n      D (8,7)  =  DM * (V*YI(4,1) + YI(6,2))\r\n      D (9,7)  =  DM * (2.*V*YI(4,2) + YI(6,3))\r\n      D (10,7) =  DM * (3.*V*YI(4,3) + YI(6,4))\r\n      D(8,8)   =  DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3))\r\n      D(9,8)   =  DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))\r\n      D(10,8)  =  DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5))\r\n      D(9,9)   =  DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(10,9)  =  DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(10,10) =  DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      DO 147 I=1,10\r\n      DO 147 J=1,I\r\n      D(J,I)  = D(I,J)\r\n  147 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amg.f",
    "content": "      SUBROUTINE AMG\r\nC\r\nC     THIS IS THE MAIN DRIVER FOR AEROELASTIC MATRIX GENERATION\r\nC\r\nC     NOTES ON NEW METHOD IMPLIMENTATION\r\nC     1. ACPT FILE WILL BE POSITIONED READY TO READ AN INPUT RECORD\r\nC        LEAVE FILE READY TO READ NEXT RECORD.\r\nC\r\nC     2. ALWAYS PACK OUT A COLUMN (REALY A ROW) OF NJ LENGTH\r\nC        OUTPUT FILE, PACKX, AND TRAILER(MCB) WILL BE SET UP\r\nC\r\nC     3. YOUR ROW POSITION WILL START AT NROW + 1\r\nC\r\nC     4. ALWAYS BUMP NROW BY THE NUMBER OF ROWS WHICH EXIST IN\r\nC        YOUR INPUT RECORD\r\nC\r\nC     5. COMPUTATIONS FOR AJJK MATRIX WILL HAVE 3 BUFFERS OF CORE USED\r\nC        COMPUTATIONS FOR OTHER MATRICES WILL HAVE 4 BUFFERS USED\r\nC\r\n      LOGICAL         DEBUG\r\n      INTEGER         SYSBUF,BUF1,BUF2,BUF3,AERO,ACPT,AJJL,SKJ,W1JK,\r\n     1                W2JK,TSKJ,TW1JK,TW2JK\r\n      DIMENSION       FMACH(1),ND(1),NAME(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /AMGP2 / TW1JK(7),TW2JK(7)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /AMGBUG/ DEBUG\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      DATA    NAME  / 4HAMG ,4H      /\r\n      DATA    AERO  / 101/, ACPT /102/, AJJL /201/,\r\n     1        SKJ   / 202/, W1JK /203/, W2JK /204/\r\nC\r\n      DEBUG =.FALSE.\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG =.TRUE.\r\nC\r\nC     USE IZ TO COMPUTE BUFFERS\r\nC\r\n      ICORE = KORSZ(IZ)\r\n      IFILE = 4*SYSBUF + 3*NJ\r\n      IF (ICORE .LE. IFILE) GO TO 460\r\nC\r\nC     OPEN INPUT STRUCTURAL DATA\r\nC\r\n      ICORE = ICORE - SYSBUF\r\n      CALL GOPEN (ACPT,IZ(ICORE+1),0)\r\nC\r\nC     OPEN AND SKIP HEADER ON AERO\r\nC\r\n      IFILE = AERO\r\n      BUF1  = ICORE - SYSBUF\r\n      CALL GOPEN (AERO,IZ(BUF1+1),0)\r\nC\r\nC     READ 3 INPUT WORDS INTO COMMON\r\nC\r\n      CALL READ (*450,*450,AERO,ND,3,1,N)\r\nC\r\nC     OPEN OUTPUT FILE FOR AJJL MATRIX, SET UP TRAILER AND WRITE HEADER\r\nC\r\n      BUF2  = BUF1 - SYSBUF\r\n      IFILE = AJJL\r\n      CALL OPEN  (*440,AJJL,IZ(BUF2+1),1)\r\n      CALL FNAME (AJJL,MCB)\r\n      CALL WRITE (AJJL,MCB,2,0)\r\n      CALL WRITE (AJJL,NJ,1,0)\r\n      CALL WRITE (AJJL,NK,1,0)\r\n      BUF3  = BUF2 - SYSBUF\r\n      CALL GOPEN (SKJ,IZ(BUF3+1),1)\r\n      IFILE = AERO\r\n      CALL READ (*440,*10,AERO,IZ,BUF3,0,N)\r\n      GO TO 460\r\n   10 NMK   = N/2\r\n      CALL REWIND (AERO)\r\n      CALL FWDREC (*450,AERO)\r\n      CALL FWDREC (*450,AERO)\r\n      CALL WRITE  (AJJL,NMK,1,0)\r\n      CALL WRITE  (AJJL,IZ,N,0)\r\n      IFILE = ACPT\r\n      IZ(1) = 0\r\n      N1    = 2\r\n   20 CALL READ (*90,*90,ACPT,METHOD,1,0,N)\r\n      IZ( 1) = IZ(1) + 1\r\n      IZ(N1) = METHOD\r\n      GO TO (30,40,50,50,50,60,70), METHOD\r\nC\r\nC     DOUBLET LATTICE METHOD\r\nC\r\n   30 CONTINUE\r\n      CALL READ (*440,*450,ACPT,MCB,3,1,N)\r\nC\r\nC     NUMBER OF COLUMNS ADDED EQUAL NUMBER OF BOXES\r\nC\r\n      IZ(N1+1) = MCB(3)\r\n      IZ(N1+2) = MCB(3)\r\n      GO TO 80\r\nC\r\nC     DOUBLET LATTICE WITH BODIES\r\nC\r\n   40 CALL READ (*440,*450,ACPT,MCB,2,1,N)\r\n      IZ(N1+1) = MCB(1)\r\n      IZ(N1+2) = MCB(2)\r\n      GO TO 80\r\nC\r\nC     MACH BOX  STRIP THEORY  PISTON THEORY\r\nC\r\n   50 CALL READ (*440,*450,ACPT,MCB,1,1,N)\r\n      IZ(N1+1) = MCB(1)\r\n      IZ(N1+2) = MCB(1)\r\n      GO TO 80\r\nC\r\nC     COMPRESSOR BLADE METHOD\r\nC\r\n   60 CALL READ (*440,*450,ACPT,MCB,5,1,N)\r\nC\r\nC     NUMBER OF COLUMNS ADDED IS NJ = NK = (NSTNS*NLINES) FOR THE BLADE\r\nC\r\n      IZ(N1+1) = MCB(4)*MCB(5)\r\n      IZ(N1+2) = IZ(N1+1)\r\n      GO TO 80\r\nC\r\nC     SWEPT TURBOPROP BLADE METHOD\r\nC\r\n   70 CALL READ (*440,*450,ACPT,MCB,5,1,N)\r\nC\r\nC     NUMBER OF COLUMNS ADDED IS NJ = NK = (2*NSTNS*NLINES) FOR THE PROP\r\nC\r\n      IZ(N1+1) = 2*MCB(4)*MCB(5)\r\n      IZ(N1+2) = IZ(N1+1)\r\n   80 N1 = N1 + 3\r\n      GO TO 20\r\n   90 CALL REWIND (ACPT)\r\n      CALL WRITE  (AJJL,IZ,N1-1,1)\r\n      MCB(1)  = AJJL\r\n      MCB(2)  = 0\r\n      MCB(3)  = NJ\r\n      MCB(4)  = 2\r\n      MCB(5)  = 3\r\n      MCB(6)  = 0\r\n      MCB(7)  = 0\r\n      INCR    = 1\r\n      TSKJ(1) = SKJ\r\n      TSKJ(2) = 0\r\n      TSKJ(3) = NK\r\n      TSKJ(4) = 2\r\n      TSKJ(5) = 3\r\n      TSKJ(6) = 0\r\n      TSKJ(7) = 0\r\n      IFILE   = ACPT\r\nC\r\nC     READ MACH NUMBER AND REDUCED FREQUENCY AND LOOP UNTIL COMPLETED\r\nC\r\n  100 CALL READ (*210,*210,AERO,FMACH,2,0,N)\r\nC\r\nC     NUMBER OF ROWS ADDED BY EACH RECORD ON ACPT\r\nC\r\n      NROW = 0\r\n      ISK  = 1\r\n      NSK  = 0\r\nC\r\nC     SKIP HEADER\r\nC\r\n      CALL FWDREC (*450,ACPT)\r\nC\r\nC     READ A RECORD AND LOOP BY METHOD UNTIL EOF\r\nC     NSK IS BUMPED BY DRIVERS = COLUMNS BUILT  ISK = NEXT COLUMN\r\nC\r\n  110 CALL READ (*200,*200,ACPT,METHOD,1,0,N)\r\n      GO TO (120,130,140,150,160,170,180), METHOD\r\nC\r\nC     DOUBLET LATTICE METHOD\r\nC\r\n  120 CALL DLAMG (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     DOUBLET LATTICE WITH BODIES\r\nC\r\n  130 CALL DLAMBY (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     MACH BOX\r\nC\r\n  140 CALL MBAMG (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     STRIP THEORY\r\nC\r\n  150 CALL STPDA (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     PISTON THEORY\r\nC\r\n  160 CALL PSTAMG (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     COMPRESSOR BLADE METHOD\r\nC\r\n  170 CALL AMGB1 (ACPT,AJJL,SKJ)\r\n      GO TO 190\r\nC\r\nC     SWEPT TURBOPROP BLADE METHOD\r\nC\r\n  180 CALL AMGT1 (ACPT,AJJL,SKJ)\r\n  190 IF (NSK .GT. NK) GO TO 400\r\n      IF (NROW.GT. NJ) GO TO 420\r\n      GO TO 110\r\n  200 CALL REWIND (ACPT)\r\n      GO TO 100\r\n  210 CALL CLOSE  (AERO,1)\r\n      CALL CLOSE  (AJJL,1)\r\n      CALL CLOSE  (SKJ,1)\r\n      CALL WRTTRL (TSKJ)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     COMPUTE W1JK - W2JK\r\nC\r\nC\r\nC     OPEN OUTPUT FILES\r\nC\r\n      CALL FWDREC (*450,ACPT)\r\n      IFILE = W1JK\r\n      CALL GOPEN (W1JK,IZ(BUF1+1),1)\r\n      IFILE = W2JK\r\n      CALL GOPEN (W2JK,IZ(BUF2+1),1)\r\n      IFILE = ACPT\r\nC\r\nC     SET UP PACKX AND TRAILERS\r\nC\r\n      INCR = 1\r\n      ITI  = 1\r\n      ITO  = 1\r\nC\r\nC     II AND NN ARE BUMPED BY METHOD DRIVERS\r\nC\r\n      II   = 1\r\n      DO 220 I = 2,7\r\n      TW1JK(I) = 0\r\n      TW2JK(I) = 0\r\n  220 CONTINUE\r\n      TW1JK(1) = W1JK\r\n      TW2JK(1) = W2JK\r\n      TW1JK(3) = NK\r\n      TW1JK(4) = 2\r\n      TW1JK(5) = 1\r\n      TW2JK(3) = NK\r\n      TW2JK(4) = 2\r\n      TW2JK(5) = 1\r\nC\r\nC     READ A RECORD AND LOOP ON METHOD UNTIL EOR\r\nC\r\n  230 CALL READ (*300,*300,ACPT,METHOD,1,0,N)\r\n      GO TO (240,250,260,260,260,270,280), METHOD\r\nC\r\nC     DOUBLET LATTICE METHOD\r\nC\r\n  240 CALL DLPT2 (ACPT,W1JK,W2JK)\r\n      GO TO 290\r\nC\r\nC     DOUBLET LATTICE WITH BODIES\r\nC\r\n  250 CALL DLBPT2 (ACPT,W1JK,W2JK)\r\n      GO TO 290\r\nC\r\nC     STRIP THEORY     PISTON THEORY\r\nC     MACH BOX\r\nC\r\n  260 CALL STPPT2 (ACPT,W1JK,W2JK)\r\n      GO TO 290\r\nC\r\nC     COMPRESSOR BLADE METHOD\r\nC\r\n  270 CALL AMGB2 (ACPT,W1JK,W2JK)\r\n      GO TO 290\r\nC\r\nC     SWEPT TURBOPROP BLADE METHOD\r\nC\r\n  280 CALL AMGT2 (ACPT,W1JK,W2JK)\r\n  290 IF (NN .GT. NK) GO TO 410\r\n      GO TO 230\r\nC\r\nC     DONE\r\nC\r\n  300 CALL CLOSE  (ACPT,1)\r\n      CALL CLOSE  (W1JK,1)\r\n      CALL CLOSE  (W2JK,1)\r\n      CALL WRTTRL (TW1JK)\r\n      CALL WRTTRL (TW2JK)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NROW IN RECORDS DID NOT MATCH NJ PARAMETER\r\nC\r\n  400 NROW = NSK\r\n      NJ   = NK\r\n      GO TO 420\r\n  410 NROW = NN\r\n      NJ   = NK\r\n  420 WRITE  (IOUT,430) SFM,NROW,NJ\r\n  430 FORMAT (A25,' 2264, NUMBER OF ROWS COMPUTED (',I4,') WAS GREATER',\r\n     1       ' THAN SIZE REQUESTED FOR OUTPUT MATRIX (',I4,2H).)\r\n      CALL MESAGE (-61,N,NAME)\r\n  440 NMS = -1\r\n      GO TO 470\r\n  450 NMS = -2\r\n      GO TO 470\r\n  460 NMS = -8\r\n  470 CALL MESAGE (NMS,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgb1.f",
    "content": "      SUBROUTINE AMGB1 (INPUT,MATOUT,SKJ)\r\nC\r\nC     DRIVER FOR COMPRESSOR BLADE THEORY.\r\nC     COMPUTATIONS ARE FOR THE AJJL AND SKJ MATRICES.\r\nC     FOR COMPRESSOR BLADES K-SET = J-SET = NLINES*NSTNS.\r\nC     SKJ = W*F(INVERS)TRANSPOSE.\r\nC\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         ECORE,SYSBUF,IZ(1),NAME(2),SLN,SKJ,TSKJ\r\n      REAL            MINMAC,MAXMAC,MACH,RADII(50)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ,TSKJ(7),ISK,\r\n     1                NSK\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /AMGBUG/ DEBUG\r\n      EQUIVALENCE     (WORK(1),IZ(1))\r\n      DATA    NAME  / 4HAMGB,4H1   /\r\nC\r\nC     READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS\r\nC\r\n      CALL READ (*999,*999,INPUT,IREF,5,0,N)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REF  ',5,IREF,5)\r\nC\r\nC     READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE\r\nC     PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFFLO\r\nC     STORE STREAMLINE RADIUS FOR ALL STREAMLINES\r\nC\r\n      ECORE = KORSZ(IZ) - 4*SYSBUF\r\n      CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR)\r\n      GO TO 998\r\n   10 IRSLN = 0\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR)\r\n      NTSONX= 0\r\n      NDATA = 3*NSTNS + 10\r\n      NLINE = 0\r\n      DO 20 I = 1,NWAR,NDATA\r\nC\r\nC     LOCATE REFERENCE STREAMLINE NUMBER (IREF = SLN)\r\nC\r\n      IF (IREF .EQ. IZ(I)) IRSLN = I\r\nC\r\nC     STORE AMACH FOR LATER DATA CHECK. COUNT TRANSONIC STREAMLINES\r\nC\r\n      AMACHL = WORK(I+6)*COS(DEGRA*(WORK(I+9)-WORK(I+2)))\r\n      IF (AMACHL.GT.MAXMAC .AND. AMACHL.LT.MINMAC) NTSONX = NTSONX + 1\r\n      NLINE = NLINE + 1\r\n      WORK(NWAR+NLINE) = AMACHL\r\n      RADII(NLINE) = WORK(I+4)\r\n   20 CONTINUE\r\nC\r\nC     DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP\r\nC     STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE.\r\nC\r\n      IPTR  = NDATA*(NLINES-1)\r\n      XSIGN = 1.0\r\n      IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0\r\nC\r\n      IF (DEBUG) CALL BUG1 ('RADII     ',25,RADII,NLINES)\r\nC\r\nC     INPUT CHECKS -\r\nC     (1) AMACH MUST INCREASE FROM BLADE ROOT TO BLADE TIP\r\nC     (2) ALL TRANSONIC AMACH-S ARE NOT ALLOWED AT PRESENT\r\nC\r\n      IBAD = 0\r\n      IF (NTSONX .LT. NLINES) GO TO 30\r\n      IBAD = 1\r\n      WRITE (IOUT,1001) UFM\r\n   30 CONTINUE\r\n      NW1 = NWAR + 1\r\n      NW2 = NWAR + NLINES - 1\r\n      DO 35 I = NW1,NW2\r\n      IF (WORK(I) .GT. WORK(I+1)) GO TO 40\r\n   35 CONTINUE\r\n      GO TO 45\r\n   40 IBAD = 1\r\n      ISLN = (I-NWAR-1)*NDATA + 1\r\n      WRITE (IOUT,1002) UFM,IZ(ISLN)\r\n   45 IF (IBAD .NE. 0) GO TO 997\r\nC\r\nC     SET TSONIC IF THERE ARE ANY TRANSONIC STREAMLINES\r\nC\r\n      TSONIC = .FALSE.\r\n      IF (NTSONX .GT. 0) TSONIC = .TRUE.\r\nC\r\nC     STORE REFERENCE PARAMETERS\r\nC     DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN  (BLADE TIP)\r\nC\r\n      IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1\r\n      REFSTG = WORK(IRSLN+2)\r\n      REFCRD = WORK(IRSLN+3)\r\n      REFMAC = WORK(IRSLN+6)\r\n      REFDEN = WORK(IRSLN+7)\r\n      REFVEL = WORK(IRSLN+8)\r\n      REFFLO = WORK(IRSLN+9)\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD (INPUT,0,-6,0)\r\n      IF (DEBUG) CALL BUG1 ('BAMG1L    ',47,IREF,26)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC     IP1 AND IP2 ARE COMPLEX POINTERS\r\nC\r\n      NAJJC  = NSTNS\r\n      NTSONX = 1\r\n      IF (TSONIC) NAJJC  = NLINES*NSTNS\r\n      IF (TSONIC) NTSONX = NLINES\r\n      IP1  = 1\r\n      IP2  = IP1 + 2*(NSTNS*NAJJC)\r\n      IP3  = IP2 + 2*NSTNS\r\n      IP4  = IP3 + NTSONX\r\n      IP5  = IP4 + NTSONX\r\n      NEXT = IP5 + NTSONX\r\n      IF (NEXT .GT. ECORE) GO TO 998\r\nC\r\nC     CALL ROUTINE TO COMPUTE AND OUTPUT AJJL.\r\nC\r\n      ITI = 3\r\n      ITO = 3\r\nC\r\n      CALL AMGB1A (INPUT,MATOUT,WORK(IP1),WORK(IP2),WORK(IP3),\r\n     1             WORK(IP4),WORK(IP5))\r\n      IF (DEBUG) CALL BUG1 ('AJJL      ',48,WORK(IP1),IP2-1)\r\nC\r\nC     COMPUTE F(INVERSE) AND W(FACTOR) FOR EACH STREAMLINE\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      NSNS = NSTNS*NSTNS\r\n      IP1  = 1\r\n      IP2  = IP1 + NSNS\r\n      NEXT = IP2 + 3*NSTNS\r\n      IF (NEXT .GT. ECORE) GO TO 998\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD  (INPUT,0,-6,0)\r\nC\r\n      ITI = 1\r\n      ITO = 3\r\nC\r\n      II  = ISK\r\n      NSK = NSK + NSTNS\r\n      NN  = NSK\r\n      DO 100 NLINE = 1,NLINES\r\n      CALL AMGB1S (INPUT,WORK(IP1),WORK(IP2),WORK(IP2),RADII,WFACT,\r\n     1             NLINE)\r\nC\r\nC     OUTPUT SKJ (= WFACT*F(INVERS)TRANSPOSE) FOR THIS STREAMLINE\r\nC\r\n      IP3 = IP2 + NSTNS - 1\r\n      DO 60 I = 1,NSTNS\r\n      K  = I\r\n      DO 50 J = IP2,IP3\r\n      WORK(J) = WORK(K)*WFACT\r\n   50 K  = K + NSTNS\r\n      CALL PACK (WORK(IP2),SKJ,TSKJ)\r\n      IF (DEBUG) CALL BUG1 ('SKJ       ',55,WORK(IP2),NSTNS)\r\n   60 CONTINUE\r\n      II = II + NSTNS\r\n      IF (NLINE .EQ. NLINES) GO TO 100\r\n      NN = NN + NSTNS\r\n  100 CONTINUE\r\nC\r\nC     UPDATE NROW AND PACK POINTERS\r\nC\r\n      NROW = NROW + NLINES*NSTNS\r\n      IF (DEBUG) CALL BUG1 ('NEW-NROW  ',110,NROW,1)\r\n      ISK = II\r\n      NSK = NN\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     BAD STREAMLINE DATA\r\nC\r\n  997 CALL MESAGE (-61,0,0)\r\nC\r\nC     NOT ENOUGH CORE\r\nC\r\n  998 CALL MESAGE (-8,0,NAME)\r\nC\r\nC     INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN\r\nC\r\n  999 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\nC\r\n 1001 FORMAT (A23,' -AMG MODULE- ALL TRANSONIC STREAMLINES NOT ALLOWED',\r\n     1       /39X,'CHECK MACH ON STREAML2 BULK DATA CARDS OR', /39X,\r\n     2       'CHANGE PARAMETERS MINMACH AND MAXMACH.')\r\n 1002 FORMAT (A23,' -AMG MODULE- MACH NUMBERS MUST INCREASE FROM BLADE',\r\n     1       ' ROOT TO BLADE TIP.', /39X,\r\n     2       'CHECK STREAML2 BULK DATA CARD WITH SLN =',I3)\r\n      END\r\n"
  },
  {
    "path": "mis/amgb1a.f",
    "content": "      SUBROUTINE AMGB1A (INPUT,MATOUT,AJJ,AJJT,TSONX,TAMACH,TREDF)\r\nC\r\nC     COMPUTE AJJ MATRIX FOR COMPRESSOR BLADES\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN,NAME(2),TSONX(1)\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      COMPLEX         AJJ(NSTNS,1),AJJT(NSTNS)\r\n      DIMENSION       TAMACH(1),TREDF(1)\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC\r\n      COMMON /AMGBUG/ DEBUG\r\n      DATA    NAME  / 4HAMGB,4H1A  /\r\nC\r\nC     LOOP ON STREAMLINES, COMPUTE AJJ FOR EACH STREAMLINE AND THEN\r\nC     PACK AJJ INTO AJJL MATRIX AT CORRECT POSITION\r\nC\r\n      II = 0\r\n      NN = 0\r\n      NSTNS3 = 3*NSTNS\r\n      DO 100 LINE = 1,NLINES\r\nC\r\nC     READ STREAMLINE DATA (SKIP COORDINATE DATA)\r\nC\r\n      CALL READ (*999,*999,INPUT,SLN,10,0,NWAR)\r\n      CALL READ (*999,*999,INPUT,0,-NSTNS3,0,NWAR)\r\nC\r\nC     COMPUTE PARAMETERS\r\nC\r\n      AMACH = MACH*COS(DEGRA*(FLOWA-STAGER))\r\n      REDF  = RFREQ*(CHORD/REFCRD)*(REFVEL/VEL)*(MACH/AMACH)\r\n      BLSPC = BSPACE/CHORD\r\n      IF (DEBUG) CALL BUG1 ('BAMG1L    ',5,IREF,26)\r\nC\r\nC     COMPUTE POINTER FOR LOCATION INTO AJJ MATRIX\r\nC\r\n      IAJJC = 1\r\n      IF (TSONIC) IAJJC = NSTNS*(LINE-1) + 1\r\nC\r\nC     BRANCH TO SUBSONIC, SUPERSONIC OR TRANSONIC CODE\r\nC\r\n      TAMACH(LINE) = AMACH\r\n      TREDF(LINE)  = REDF\r\n      IF (AMACH .LE. MAXMAC) GO TO 10\r\n      IF (AMACH .GE. MINMAC) GO TO 20\r\nC\r\nC     TRANSONIC STREAMLINE. STORE DATA FOR TRANSONIC INTERPOLATION\r\nC\r\n      TSONX(LINE) = IAJJC\r\n      GO TO 100\r\nC\r\nC     SUBSONIC STREAMLINE\r\nC\r\n   10 CALL AMGB1B (AJJ(1,IAJJC))\r\n      GO TO 30\r\nC\r\nC     SUPERSONIC STREAMLINE\r\nC\r\n   20 CALL AMGB1C (AJJ(1,IAJJC))\r\n   30 CONTINUE\r\nC\r\nC     IF THERE ARE NO TRANSONIC STREAMLINES OUTPUT THIS AJJ SUBMATRIX\r\nC\r\n      IF (TSONIC) GO TO 60\r\n      II = NN + 1\r\n      NN = NN + NSTNS\r\nC\r\nC     OUTPUT AJJ MATRIX\r\nC\r\n      DO 50 I = 1,NSTNS\r\n      IF (DEBUG) CALL BUG1 ('SS-AJJL   ',40,AJJ(1,I),NSTNS*2)\r\n      CALL PACK (AJJ(1,I),MATOUT,MCB)\r\n   50 CONTINUE\r\n      GO TO 100\r\n   60 TSONX(LINE) = 0\r\n  100 CONTINUE\r\nC\r\nC     PERFORM TRANSONIC INTERPOLATION, IF NECESSARY\r\nC\r\n      IF (.NOT.TSONIC) GO TO 300\r\n      IF (DEBUG) CALL BUG1 ('TSONX     ',102,TSONX,NLINES)\r\n      IF (DEBUG) CALL BUG1 ('TAMACH    ',103,TAMACH,NLINES)\r\n      IF (DEBUG) CALL BUG1 ('TREDF     ',104,TREDF,NLINES)\r\n      CALL AMGB1D (AJJ,TSONX,TAMACH,TREDF)\r\nC\r\nC     OUTPUT AJJ FOR EACH STREAMLINE\r\nC\r\n      DO 200 NLINE = 1,NLINES\r\n      II = NN + 1\r\n      NN = NN + NSTNS\r\n      DO 120 I = II,NN\r\n      IF (DEBUG) CALL BUG1 ('STS-AJJL  ',110,AJJ(1,I),NSTNS*2)\r\n      CALL PACK (AJJ(1,I),MATOUT,MCB)\r\n  120 CONTINUE\r\n  200 CONTINUE\r\n  300 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN\r\nC\r\n  999 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgb1b.f",
    "content": "      SUBROUTINE AMGB1B (Q)        \r\nC        \r\nC     SUBSONIC RAO (CASCADES)        \r\nC        \r\n      INTEGER         SLN        \r\n      REAL            M,KAPPA,MU,MUS,LAMDA,LAMDM,NU,        \r\n     1                X(20),DISP(20,10),W(8)        \r\n      COMPLEX         Q(NSTNS,NSTNS),LOADS(21),STT(20),SUM,        \r\n     1                AN(401),AB(401),FK(401),CN(401),CB(401),PD(401),  \r\n     2                SO(100),S1(100),P(50),A(20,30),        \r\n     3                FF,ST,STP,FG,FS,FO,SLOPE        \r\n      CHARACTER       UFM*23        \r\n      COMMON /XMSSG / UFM        \r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,    \r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAG,      \r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,     \r\n     3                REDF,BLSPC,AMACHR,TSONIC        \r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ        \r\n      COMMON /SYSTEM/ IBUF,IOUT        \r\n      DATA    W     / 1.48283,.89414,.83521,.66721,        \r\n     1                 .64172,.55519,.54026,.48547 /        \r\nC        \r\nC     THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING        \r\nC     STATIONS PER STREAMLINE IS REFLECTED IN CODING.        \r\nC        \r\n      IF (NSTNS .GT. 10) GO TO 1000        \r\n      M     = AMACH        \r\n      OMEGA = REDF        \r\n      SS    = 2*BLSPC        \r\n      DELTM =-SIGMA        \r\n      XLAM  = STAG        \r\n      NM    = NSTNS        \r\n      N     = 20        \r\n      PI    = 3.141593        \r\n      PI2   = PI*2        \r\n      CON   = 1.0E-5        \r\n      NNN   = 100        \r\n      KKK   = 2*NNN + 1        \r\n      DELTM = DELTM/360        \r\n      XL    = XLAM*PI/180        \r\n      B     = 1.0/N        \r\n      B2    = 2*B        \r\n      D     = SS*SIN(XL)        \r\n      HH    = SS*COS(XL)        \r\n      BETA  = SQRT(1. - M**2)        \r\n      H     = HH*BETA        \r\n      ZER   = 0.0        \r\n      S     = SQRT(H**2 + D**2)        \r\n      LAMDM = ATAN(D/H)        \r\n      CL    = COS(LAMDM)        \r\n      SL    = SIN(LAMDM)        \r\n      NU    = OMEGA/BETA**2        \r\n      KAPPA = M*NU        \r\n      LAMDA = M*KAPPA        \r\n      DELTA = DELTM + LAMDA*D/PI2        \r\n      MU    = KAPPA*S/PI2        \r\n      MUS   = MU**2        \r\n      FF    = (0.0,1.0)        \r\n      FG    = CMPLX(ZER,NU*S)        \r\n      L     = 1        \r\n      CC    = DELTA**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      AN(L) = FK(L)*CL + FF*DELTA*SL        \r\n      AB(L) = FK(L)*CL - FF*DELTA*SL        \r\n      PD(L) = FK(L)*(PI2*AB(L) + FG)        \r\n      CK    = PI2*B/S        \r\n      CN(L) = CEXP(-AN(L)*CK)        \r\n      CB(L) = CEXP(-AB(L)*CK)        \r\n      DO 20 I = 1,NNN        \r\n      L     = L + 1        \r\n      CC    = (DELTA+I)**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      AN(L) = FK(L)*CL + (DELTA+I)*FF*SL        \r\n      AB(L) = FK(L)*CL - (DELTA+I)*FF*SL        \r\n      PD(L) = FK(L)*(PI2*AB(L)+FG)        \r\n      CN(L) = CEXP(-AN(L)*CK)        \r\n      CB(L) = CEXP(-AB(L)*CK)        \r\n      L     = L + 1        \r\n      CC    = (DELTA-I)**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      AN(L) = FK(L)*CL+(DELTA-I)*FF*SL        \r\n      AB(L) = FK(L)*CL-(DELTA-I)*FF*SL        \r\n      PD(L) = FK(L)*(PI2*AB(L)+FG)        \r\n      CN(L) = CEXP(-AN(L)*CK)        \r\n      CB(L) = CEXP(-AB(L)*CK)        \r\n   20 CONTINUE        \r\n      STP   = 0.0        \r\n      L     = 1        \r\n      ST    = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L)        \r\n      DO 25 I = 2,KKK,2        \r\n      L     = I        \r\n      ST    = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST        \r\n      L     = L + 1        \r\n      ST    = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 30        \r\n      STP   = ST        \r\n   25 CONTINUE        \r\n   30 CONTINUE        \r\n      SO(1) =-ST*S/(2*PI2*B2)        \r\n      DO 40 J = 2,N        \r\n      JK    = 2*(J-1)        \r\n      L     = 1        \r\n      STP   = 0.0        \r\n      ST    = CN(L)**JK/FK(L)        \r\n      DO 32 I = 2,KKK,2        \r\n      L     = L + 1        \r\n      ST    = CN(L)**JK/FK(L) + ST        \r\n      L     = L + 1        \r\n      ST    = CN(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 35        \r\n   32 STP   = ST        \r\n   35 SO(J) =-0.5*ST        \r\n   40 CONTINUE        \r\n      N1    = N + 1        \r\n      N2    = 3*N - 1        \r\n      DO 50 J = N1,N2        \r\n      JK    = J - N        \r\n      STP   = 0.0        \r\n      L     = 1        \r\n      ST    = CB(L)**JK/FK(L)        \r\n      DO 42 I = 2,KKK,2        \r\n      L     = L + 1        \r\n      ST    = CB(L)**JK/FK(L) + ST        \r\n      L     = L + 1        \r\n      ST    = CB(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 45        \r\n   42 STP   = ST        \r\n   45 SO(J) =-0.5*ST        \r\n   50 CONTINUE        \r\n      DO 55 J = 1,N        \r\n      JK    = (J-1)*2 + 1        \r\n      L     = 1        \r\n      STP   = 0.0        \r\n      ST    = AN(L)*CN(L)**JK/FK(L)        \r\n      DO 52 I = 2,KKK,2        \r\n      L     = L + 1        \r\n      ST    = AN(L)*CN(L)**JK/FK(L) + ST        \r\n      L     = L + 1        \r\n      ST    = AN(L)*CN(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 54        \r\n      STP   = ST        \r\n   52 CONTINUE        \r\n   54 S1(J) =-PI/S*ST        \r\n   55 CONTINUE        \r\n      N1    = N + 1        \r\n      N2    = 2*N        \r\n      DO 60 J = N1,N2        \r\n      JK    = (J-N1)*2 + 1        \r\n      L     = 1        \r\n      STP   = 0.0        \r\n      ST    = AB(L)*CB(L)**JK/FK(L)        \r\n      DO 57 I = 2,KKK,2        \r\n      L     = L + 1        \r\n      ST    = AB(L)*CB(L)**JK/FK(L) + ST        \r\n      L     = L + 1        \r\n      ST    = AB(L)*CB(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 59        \r\n      STP   = ST        \r\n   57 CONTINUE        \r\n   59 S1(J) = PI/S*ST        \r\n   60 CONTINUE        \r\n      DO 64 J = 1,N        \r\n      JK    = (J-1)*2 + 1        \r\n      L     = 1        \r\n      STP   = 0.0        \r\n      ST    = CB(L)**JK/PD(L)        \r\n      DO 61 I = 2,KKK,2        \r\n      L     = L + 1        \r\n      ST    = CB(L)**JK/PD(L) + ST        \r\n      L     = L + 1        \r\n      ST    = CB(L)**JK/PD(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 62        \r\n      STP   = ST        \r\n   61 CONTINUE        \r\n   62 P(J)  =-S/2*ST        \r\n   64 CONTINUE        \r\n      FG    = CMPLX(ZER,-NU*B)        \r\n      FG    = 1/(CEXP(FG) + CMPLX(ZER,NU*B2))        \r\n      FS    = CMPLX(ZER,NU)        \r\n      CJ    = (NU*BETA)**2        \r\n      L     = 0        \r\n      CT    = 2*KAPPA**2*B        \r\n      DO 70 J = 1,N        \r\n      DO 70 I = 1,N        \r\n      L     = L + 1        \r\n      NK    = I - J + 1        \r\n      NK1   = I - J        \r\n      NK2   = NK1 + 1        \r\n      IF (I .EQ. J) NK1 = N + 1        \r\n      IF (I .EQ. J) NK2 = 1        \r\n      IF (J .LE. I) GO TO 65        \r\n      NK1   = N + J - I + 1        \r\n      NK2   = NK1 - 1        \r\n      NK    = N + 2*(J-I)        \r\n   65 A(I,J)= S1(NK1) - S1(NK2) + CT*SO(NK)        \r\n      IF (J .NE. N) GO TO 70        \r\n      NK    = N + 2*(J-I) + 1        \r\n      NK2   = J - I + 1        \r\n      A(I,J)= A(I,J) - FG*(S1(NK1) + SO(NK)*FS + CJ*P(NK2))        \r\n   70 CONTINUE        \r\n      X(1)  =-1.0 + B        \r\n      DO 81 I = 2,N        \r\n   81 X(I)  = X(I-1) + B2        \r\n      N1    = N + NM        \r\n      N1N   = N - 1        \r\n      N1M   = NM- 1        \r\n      N11   = N + 1        \r\n      N22   = N + 2        \r\n      FO    = FF*OMEGA        \r\n      DO 75 I = 1,N        \r\n      DISP(I,1) =-1.0        \r\n      DISP(I,2) =-1.0 - X(I)        \r\n      STT(I)= CEXP(-FF*LAMDA*X(I))*PI2/BETA        \r\n      A(I,N11) = STT(I)*FO*DISP(I,1)        \r\n   75 A(I,N22) = STT(I)*(FO*DISP(I,2)-1.)        \r\n      DO 83 JJ = 3,NM        \r\n      NF    = N + JJ        \r\n      CON2  = PI*(JJ-2)/2        \r\n      DO 83 I = 1,N        \r\n      CON   = CON2*DISP(I,2)        \r\n      DISP(I,JJ) =SIN(CON)        \r\n   83 A(I,NF) = STT(I)*(FO*DISP(I,JJ) - CON2*COS(CON))        \r\nCWKBR SPR93019 10/93      CALL GAUSS (A,N,N1)        \r\n      CALL GAUSS2 (A,N,N1)  \r\n      DO 95 J = 1,NM        \r\n      NF    = N + J        \r\n      DO 84 I = 1,N        \r\n   84 LOADS(I) = A(I,NF)        \r\nC        \r\n      SLOPE  = LOADS(2)/3./B        \r\n      A(1,NF)= 2.*CEXP(LAMDA*FF*X(1))*(FF*NU*LOADS(1) + SLOPE)        \r\nC        \r\n      SLOPE  = (LOADS(N) - LOADS(N1N))/B2        \r\n      A(N,NF)= 2.*CEXP(LAMDA*FF*X(N))*(FF*NU*LOADS(N) + SLOPE)        \r\nC        \r\n      DO 85 I = 2,N1N        \r\n      SLOPE  = (LOADS(I+1) - LOADS(I-1))/4./B        \r\n   85 A(I,NF)= 2.*CEXP(LAMDA*FF*X(I))*(FF*NU*LOADS(I) + SLOPE)        \r\n   95 CONTINUE        \r\n      DO 86 I = 1,N        \r\n      A(I,1) = SQRT((1-X(I))/(1+X(I)))        \r\n      DO 87 J = 2,N1M        \r\n   87 A(I,J) =-DISP(I,J+1)        \r\n      DO 86 J = NM,N        \r\n      CON2   =-PI*(J-1)*DISP(I,2)/2        \r\n   86 A(I,J) = SIN(CON2)        \r\nCWKBR SPR93019 10/93      CALL GAUSS (A,N,N1)        \r\n      CALL GAUSS2 (A,N,N1)\r\n      A(1,1) = PI        \r\n      CON    = 1.        \r\n      DO 88 J = 1,N1N        \r\n      A(1,J+1) = CON*4/J/PI        \r\n   88 CON    = 1. - CON        \r\n      A(2,1) = PI/2        \r\n      CON    = 0.        \r\n      DO 89 J = 1,N1N        \r\n      A(2,J+1) = A(1,J+1) - CON*4/J/PI        \r\n   89 CON    = 1. - CON        \r\n      DO 90 I = 3,NM        \r\n      DO 90 J = 2,N        \r\n      CON    = 0.        \r\n      IF ((I-1) .EQ. J) CON = 1.        \r\n   90 A(I,J) = CON        \r\n      DO 91 J = 3,NM        \r\n   91 A(J,1) = W(J-2)        \r\n      DO 160 J = 1,NM        \r\n      DO 160 K = 1,NM        \r\n      NF    = N + K        \r\n      SUM   = (0.,0.)        \r\n      DO150 I = 1,N        \r\n  150 SUM   = SUM + A(J,I)*A(I,NF)        \r\n  160 Q(J,K)= SUM        \r\n  200 RETURN        \r\nC        \r\n 1000 WRITE  (IOUT,3001) UFM,SLN,NSTNS        \r\n 3001 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ',   \r\n     1        'STREAMLINE',I8,4H IS ,I3,1H., /39X,'SUBSONIC CASCADE ',  \r\n     2        'ROUTINE AMGB1B ALLOWS ONLY A MAXIMUM OF 10.')        \r\n      CALL MESAGE (-61,0,0)        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mis/amgb1c.f",
    "content": "      SUBROUTINE AMGB1C (Q)\r\nC\r\nC     UNSTEADY FLOW ANALYSIS OF A SUPERSONIC CASCADE\r\nC\r\n      INTEGER         SLN\r\n      COMPLEX         SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,\r\n     3                F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,\r\n     4                SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     5                C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,\r\n     6                BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,\r\n     7                PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,FQ7,PRESU,\r\n     8                PRESL,Q,GUSAMP\r\n      DIMENSION       GYE(29,29),GEE(29,40),PRESU(29),PRESL(29),XUP(29),\r\n     1                XTEMP(29),GEETMP(29,20),XLOW(29),AYE(10,29),\r\n     2                INDEX(29,3),Q(NSTNS,NSTNS),PRES1(21),PRES2(21),\r\n     3                PRES3(21),PRES4(21),QRES4(21),SBKDE1(201),\r\n     4                SBKDE2(201),SUMSV1(201),SUMSV2(201),SVKL1(201),\r\n     5                SVKL2(201),XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGM ,RFREQ\r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STG,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACHD,\r\n     3                REDFD,BLSPC,AMACHR,TSONIC\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\nC     THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING\r\nC     STATIONS PER STREAMLINE IS REFLECTED IN CODING.\r\nC\r\n      IF (NSTNS .GT. 10) GO TO 420\r\nC\r\n      REDF  = REDFD\r\n      AMACH = AMACHD\r\n      AI    = CMPLX(0.0,1.0)\r\n      PI    = 3.1415927\r\n      PITCOR= BLSPC\r\n      STAG  = 90.0 - STG\r\n      SIGMA = -SIGM*PI/180.0\r\n      BETA  = SQRT(AMACH**2 - 1.0)\r\n      SCRK  = REDF*AMACH/(BETA**2)\r\n      DEL   = SCRK*AMACH\r\n      AMU   = REDF/(BETA**2)\r\n      SP    = PITCOR*COS(STAG*PI/180.0)*2.0\r\n      SN    = PITCOR*SIN(STAG*PI/180.0)*2.0\r\n      SPS   = SP\r\n      SNS   = SN*BETA\r\n      DSTR  = SQRT(SPS**2 - SNS**2)\r\n      SPS1  = ABS(SPS - SNS)\r\n      IF (SPS1 .LT. .00001) GO TO 400\r\nC\r\nC     ZERO OUT GEE\r\nC\r\n      NSTNS2 = 2*NSTNS\r\n      NSTNS4 = 4*NSTNS\r\n      DO 10 I = 1,29\r\n      DO 10 J = 1,NSTNS4\r\n   10 GEE(I,J) = 0.0\r\n      PITAXS = 0.0\r\n      AMOAXS = 0.\r\n      CALL ASYCON\r\n      CALL AKP2\r\n      RL1 = 9\r\n      S1  = SPS - SNS\r\n      AA  = S1/RL1\r\n      XLSV1(1) = 0.0\r\n      DO 20 JL = 1,9\r\n   20 XLSV1(JL+1) = JL*AA\r\n      AA  = SPS - SNS\r\n      RL2 = 19\r\n      S1  = 2.0 + SNS - SPS\r\n      TEMP= S1/RL2\r\n      XL  = AA\r\n      DO 30 JL = 1,20\r\n      XLSV2(JL) = XL\r\n      XLSV3(JL) = XL + SNS - SPS\r\n   30 XL  = XL  + TEMP\r\n      XL  = SNS + 2.0 - SPS\r\n      TEMP= (SPS-SNS)/RL1\r\n      DO 40 JL = 1,10\r\n      XLSV4(JL) = XL\r\n   40 XL = XL + TEMP\r\nC\r\nC     ACCUMULATE PRESSURE VECTORS INTO G-MATRIX\r\nC\r\n      DO 140 NM = 1,NSTNS\r\n      NTIMES = 1\r\n      IF (NM .GT.2) NTIMES = 2\r\n      DO 130 NMM = 1,NTIMES\r\nC\r\nC     DEFINE -----------------------------\r\nC            ALPAMP - PITCHING AMP\r\nC            DISAMP - PLUNGING AMP\r\nC            GUSAMP - GUST AMP\r\nC            GL -GUST WAVE NUMBER\r\nC\r\n      ALPAMP = 0.0\r\n      IF (NM .EQ. 2) ALPAMP = 1.0\r\n      DISAMP = 0.0\r\n      IF (NM .EQ. 1) DISAMP = 1.0\r\n      GUSAMP = 0.0\r\n      GL     = 0.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.1) GUSAMP =-REDF/2.0 + (NM-2)*PI/4.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.1) GL = (NM-2)*PI/2.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.2) GUSAMP = REDF/2.0 + (NM-2)*PI/4.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.2) GL =-(NM-2)*PI/2.0\r\nC\r\n      A = (1.0+AI*REDF*PITAXS)*ALPAMP - AI*REDF*DISAMP\r\n      B =-AI*REDF*ALPAMP\r\n      IF (GL .EQ. 0.0) GO TO 50\r\n      A = GUSAMP\r\n      B = 0.0\r\n   50 CONTINUE\r\n      CALL SUBA\r\nC\r\nC     FIND  DELTA P(LOWER-UPPER)\r\nC\r\n      DO 80 NX = 1,10\r\n      PRESU(NX) = PRES1(NX)\r\n      XUP(NX)   = XLSV1(NX)\r\n      IF (NX .EQ. 10) GO TO 60\r\n      NXX = NX + 20\r\n      PRESL(NXX) = PRES4(NX+1)\r\n      XLOW( NXX) = XLSV4(NX+1)\r\n      GO TO 70\r\n   60 PRESU(NX) = (PRES1(10) + PRES2(1))/2.0\r\n      XUP(10)   = (XLSV1(10) + XLSV2(1))/2.0\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      DO 110 NX = 1,20\r\n      NXX = NX + 10\r\n      IF (NX .EQ. 20) GO TO 90\r\n      PRESU(NXX) = PRES2(NX+1)\r\n      XUP  (NXX) = XLSV2(NX+1)\r\n      PRESL(NX)  = PRES3(NX)\r\n      XLOW( NX)  = XLSV3(NX)\r\n      GO TO 100\r\n   90 PRESL(20) = (PRES3(20) + PRES4(1))/2.0\r\n      XLOW(20)  = (XLSV3(20) + XLSV4(1))/2.0\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      NM2 = NM + NSTNS\r\n      NM3 = NM + 2*NSTNS\r\n      NM4 = NM + 3*NSTNS\r\n      DO 120 NMMM = 1,29\r\n      GEE(NMMM,NM)  = GEE(NMMM,NM ) + REAL(PRESL(NMMM))\r\n      GEE(NMMM,NM2) = GEE(NMMM,NM2) + AIMAG(PRESL(NMMM))\r\n      GEE(NMMM,NM3) = GEE(NMMM,NM3) + REAL(PRESU(NMMM))\r\n      GEE(NMMM,NM4) = GEE(NMMM,NM4) + AIMAG(PRESU(NMMM))\r\n  120 CONTINUE\r\n  130 CONTINUE\r\n  140 CONTINUE\r\nC\r\nC     NOW DEFINE  I-MATRIX (NSTNS X 29)\r\nC\r\n      AYE(1,1) = 2.0\r\n      CON = 1.0\r\n      AYE(1,2) = 2.0\r\n      N1N = 27\r\n      DO 150 J = 1,N1N\r\n      AYE(1,J+2) = CON*4.0/J/PI\r\n  150 CON = 1.0 - CON\r\n      AYE(2,1) = 2.0\r\n      AYE(2,2) = 2.66666667\r\n      CON = 1.0\r\n      DO 160 J = 1,N1N\r\n      AYE(2,J+2) = CON*4/J/PI\r\n  160 CON = -CON\r\n      DO 170 I = 3,NSTNS\r\n      DO 170 J = 2,28\r\n      CON = 0.0\r\n      IF ((I-1) .EQ. J) CON = 1.0\r\n  170 AYE(I,J+1) = CON\r\n      DO 180 J = 3,NSTNS\r\n      AYE(J,1) = AYE(1,J)\r\n  180 AYE(J,2) = AYE(2,J)\r\nC\r\nC     Q DUE TO PRESL ONLY\r\nC\r\nC     NOW DEFINE LARGE G MATRIX\r\nC\r\n      DO 190 I = 1,29\r\n      GYE(1,I) = 0.0\r\n  190 GYE(I,1) = 1.0\r\nC\r\nC     PUT XLOW IN XTEMP\r\nC\r\n      DO 200 I = 1,29\r\n  200 XTEMP(I) = XLOW(I)\r\n      DO 210 J = 3,29\r\n      CONST = (J-2)*PI/2.0\r\n      DO 210 I = 2,29\r\n      GYE(I,J) = SIN(CONST*XTEMP(I))\r\n  210 CONTINUE\r\n      DO 220 I = 2,29\r\n  220 GYE(I,2) = XTEMP(I)\r\nC\r\nC     PUT PRESL PART OF GEE IN GEETMP\r\nC\r\n      DO 230 I = 1,29\r\n      DO 230 J = 1,NSTNS2\r\n  230 GEETMP(I,J) = GEE(I,J)\r\nC\r\nC     SOLVE FOR G-INVERSE G IN GEE MATRIV\r\nC     ISING = 1 NON-SINGULAR (GYE)\r\nC     ISING = 2  SIGULAR     (GYE)\r\nC     INDEX IS WORK STORAGE FOR ROUTINE INVERS\r\nC\r\n      ISING = -1\r\n      CALL INVERS (29,GYE,29,GEETMP,NSTNS2,DETERM,ISING,INDEX)\r\n      IF (ISING .EQ. 2) GO TO 410\r\nC\r\nC     NOW  MULTIPLY  I*G-INVERSE*G(DELTA P'S)\r\nC\r\n      DO 250 J = 1,NSTNS\r\n      DO 250 K = 1,NSTNS\r\n      NF   = K + NSTNS\r\n      SUMI = 0.0\r\n      SUMR = 0.0\r\n      DO 240 I = 1,29\r\n      SUMR = AYE(J,I)*GEETMP(I,K ) + SUMR\r\n      SUMI = AYE(J,I)*GEETMP(I,NF) + SUMI\r\n  240 CONTINUE\r\nC\r\nC  NOTE - NOTE THAT DUE TO CEXP( - I*OMEGA*T) TYPE OF TIME DEPENDENCE\r\nC         IN UCAS DEVELOPMENT, Q IS DEFINED AS THE COMPLEX CONJUGATE\r\nC         OF 'USUAL' Q\r\nC\r\n  250 Q(J,K) = 2.0*CMPLX(SUMR,-SUMI)\r\nC\r\nC     FINALLY, Q DUE TO (PRESL-PRESU) IS COMPUTED BY SUBTRACTING Q DUE\r\nC     TO PRESU FROM Q DUE TO PRESL ABOVE\r\nC\r\nC     LARGE G MATRIX\r\nC\r\n      DO 260 I = 1,29\r\n      GYE(1,I) = 0.0\r\n  260 GYE(I,1) = 1.0\r\nC\r\nC     PUT XUP IN XTEMP\r\nC\r\n      DO 270 I = 1,29\r\n  270 XTEMP(I) = XUP(I)\r\n      DO 280 J = 3,29\r\n      CONST = (J-2)*PI/2.0\r\n      DO 280 I = 2,29\r\n      GYE(I,J) = SIN(CONST*XTEMP(I))\r\n  280 CONTINUE\r\n      DO 290 I = 2, 29\r\n  290 GYE(I,2) = XTEMP(I)\r\nC\r\nC     PUT PRESU PART OF GEE IN GEETMP\r\nC\r\n      DO 300 I = 1,29\r\n      DO 300 J = 1,NSTNS2\r\nC\r\n      NSNS2 = NSTNS2 + J\r\n  300 GEETMP(I,J) = GEE(I,NSNS2)\r\nC\r\nC     SOLVE FOR G-INVERSE G IN GEETMP MATRIX\r\nC     ISING = 1  NON-SINGULAR (GYE)\r\nC     ISING = 2  SINGULAR GYE\r\nC     INDEX IS WORK STORAGE FOR ROUTINE INVERS\r\nC\r\n      ISING = -1\r\n      CALL INVERS (29,GYE,29,GEETMP,NSTNS2,DETERM,ISING,INDEX)\r\nC\r\n      IF (ISING .EQ. 2) GO TO 410\r\nC\r\nC     MULTIPLY I*G-INVERS*G\r\nC\r\n      DO 320 J = 1,NSTNS\r\n      DO 320 K = 1,NSTNS\r\n      NF = K + NSTNS\r\n      SUMI = 0.0\r\n      SUMR = 0.0\r\n      DO 310 I = 1,29\r\nC\r\n      SUMR = AYE(J,I)*GEETMP(I,K ) + SUMR\r\n      SUMI = AYE(J,I)*GEETMP(I,NF) + SUMI\r\nC\r\n  310 CONTINUE\r\nC\r\n  320 Q(J,K) = Q(J,K) - 2.0*CMPLX(SUMR,-SUMI)\r\nC\r\n      RETURN\r\nC\r\n  400 WRITE (IBBOUT,500) UFM\r\n      GO TO 430\r\n  410 WRITE (IBBOUT,510) UFM\r\n      GO TO 430\r\n  420 WRITE (IBBOUT,520) UFM,SLN,NSTNS\r\n  430 CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n  500 FORMAT (A23,' - AMG MODULE -SUBROUTINE AMGB1C', /39X,\r\n     1        'AXIAL MACH NUMB. IS EQUAL TO OR GREATER THAN ONE.')\r\n  510 FORMAT (A23,' - AMG MODULE - LARGE G-MATRIX IS SINGULAR IN ',\r\n     2        'ROUTINE AMGBIC.')\r\n  520 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ',\r\n     1        'STREAMLINE',I8,4H IS ,I3,1H. , /39X,'SUPERSONIC CASCADE',\r\n     2        ' ROUTINE AMGB1C ALLOWS ONLY A MAXIMUM OF 10.')\r\n      END\r\n"
  },
  {
    "path": "mis/amgb1d.f",
    "content": "      SUBROUTINE AMGB1D (AJJ,TSONX,TAMACH,TREDF)\r\nC\r\nC     THIS ROUTINE INTERPOLATES TRANSONIC AJJ MATRICES\r\nC\r\n      COMPLEX AJJ(NSTNS,1)\r\nC\r\n      INTEGER TSONX(1)\r\nC\r\n      DIMENSION TAMACH(1),TREDF(1)\r\nC\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC\r\nC\r\n      NUMM = 2 * NSTNS * NSTNS\r\n      DO 100 NLINE = 1,NLINES\r\n      IF(TSONX(NLINE).EQ. 0) GO TO 100\r\n      NS = 0\r\n      IF(NLINE .EQ. 1) GO TO 90\r\n      IF(TAMACH(NLINE) .GE. 1.0) GO TO 20\r\nC       SUBSONIC\r\n      IF(NLINE . EQ.2) NLINE1=1\r\n      IF(NLINE . EQ.2) GO TO 93\r\n   17 NLINE1 = NLINE -2\r\n      NLINE2 = NLINE -1\r\n      GO TO 70\r\nC        SUPERSONIC\r\n   20 IF( NLINE .EQ. NLINES) GO TO 17\r\n      NS =1\r\n      GO TO 90\r\n   30 IF(NLINE1 .EQ. 0) GO TO 17\r\n      IF(NLINE2 .NE. 0) GO TO 70\r\n      NLINE2 = NLINE1\r\n      NLINE1 = NLINE-1\r\n   70 CALL INTERT(NLINE,NLINE1,NLINE2,NUMM,AJJ,TAMACH)\r\n      GO TO 100\r\nC       SEARCH FOR 1ST--2--KNOWN STREAMLINES\r\n   90 NLINE1 = 0\r\n   93 NLINE2 = 0\r\n      NNLINE = NLINE + 1\r\n      DO 96  I=NNLINE,NLINES\r\n      IF(NLINE2 .NE. 0)  GO TO 97\r\n      IF(TSONX(I).NE. 0) GO TO 96\r\n      IF(NLINE1 .EQ. 0)  NLINE1 = I\r\n      IF(NLINE1 .NE. I)  NLINE2 = I\r\n   96 CONTINUE\r\n   97 IF(NS .EQ. 0) GO TO 70\r\n      GO TO 30\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgb1s.f",
    "content": "      SUBROUTINE AMGB1S (INPUT,FMAT,XYZB,INDEX,RADII,WFACT,NLINE)\r\nC\r\nC     COMPUTE F(INVERSE) AND WFACT FOR THIS STREAMLINE\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),RADII(1),\r\n     1                TBL(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO\r\n      COMMON /BAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\nC\r\nC     READ STREAMLINE DATA\r\nC\r\n      NSTNS3 = 3*NSTNS\r\n      CALL FREAD (INPUT,SLN,10,0)\r\n      CALL FREAD (INPUT,XYZB,NSTNS3,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-SLN  ',11,SLN,10)\r\n      IF (DEBUG) CALL BUG1 ('XYZB      ',12,XYZB,NSTNS3)\r\nC\r\nC     COMPUTE PARAMETERS\r\nC\r\n      AMACH  = MACH  *COS(DEGRA*(FLOWA-STAGER))\r\n      AMACHR = REFMAC*COS(DEGRA*(REFFLO-REFSTG))\r\n      IF (DEBUG) CALL BUG1 ('AMACH     ',13,AMACH,1)\r\n      IF (DEBUG) CALL BUG1 ('AMACHR    ',14,AMACHR,1)\r\nC\r\nC     (1) COMPUTE BASIC TO LOCAL TRANSFORMATION\r\nC         XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM\r\nC         FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE\r\nC     (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S\r\nC     (3) COMPUTE FMAT(NSTNS X NSTNS)\r\nC     (4) COMPUTE FMAT(INVERS) - USE -\r\nC         CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\nC     (5) COMPUTE WFACT FOR THIS STREAMLINE - NOTE - ALL RADIUS HAVE\r\nC         ALREADY BEEN STORED IN ARRAY RADII FOR ALL STREAMLINES\r\nC\r\n      XA =  XYZB(1,1)\r\n      YA =  XYZB(2,1)\r\n      ZA =  XYZB(3,1)\r\n      XB =  XYZB(1,NSTNS)\r\n      YB =  XYZB(2,NSTNS)\r\n      ZB =  XYZB(3,NSTNS)\r\nC\r\nC     EVALUATE  TBL  ROW 2\r\nC\r\n      XBA = XB - XA\r\n      YBA = YB - YA\r\n      ZBA = ZB - ZA\r\n      AL2SQ = XBA**2 + YBA**2\r\n      AL2 = SQRT(AL2SQ)\r\n      AL1SQ = AL2SQ  + ZBA**2\r\n      AL1=  SQRT(AL1SQ)\r\n      TBL(2,1) =-XSIGN*(YBA/AL2)\r\n      TBL(2,2) = XSIGN*(XBA/AL2)\r\n      TBL(2,3) = 0.0\r\nC\r\nC     EVAL  TBL  ROW 1\r\nC\r\n      TBL(1,1) = XBA/AL1\r\n      TBL(1,2) = YBA/AL1\r\n      TBL(1,3) = ZBA/AL1\r\nC\r\nC     EVALUATE TBL  ROW 3\r\nC\r\n      TBL(3,1) =-TBL(1,3)*(XBA/AL2)\r\n      TBL(3,2) =-TBL(1,3)*(YBA/AL2)\r\n      TBL(3,3) = AL2/AL1\r\n      FMAT(1,1)= 1.0\r\n      PIC =  PI/CHORD\r\n      CH2 = 2.0/CHORD\r\n      DO 40 I = 2,NSTNS\r\n      X = TBL(1,1)*(XYZB(1,I)-XYZB(1,1))\r\n     1  + TBL(1,2)*(XYZB(2,I)-XYZB(2,1))\r\n     2  + TBL(1,3)*(XYZB(3,I)-XYZB(3,1))\r\n      FMAT(1,I) = 0.0\r\n      FMAT(I,1) = 1.0\r\n      FMAT(I,2) = CH2*X\r\n      DO 30 J = 3,NSTNS\r\n      AN  = J - 2\r\n      ARG = PIC*AN*X\r\n  30  FMAT(I,J) = SIN(ARG)\r\n  40  CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('FMAT      ',50,FMAT,NSTNS*NSTNS)\r\n      ISING = -1\r\n      CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\n      IF (DEBUG) CALL BUG1 ('FMAT-INV  ',60,FMAT,NSTNS*NSTNS)\r\n      IF (ISING .EQ. 2) GO TO 80\r\n      K = NLINE + 1\r\n      L = K - 2\r\n      IF (NLINE .EQ.      1) L = 1\r\n      IF (NLINE .EQ. NLINES) K = NLINES\r\nC\r\nC     COMPUT WFACT FOR THIS STREAMLINE\r\nC\r\n      WFACT = (DEN/REFDEN)*(VEL/REFVEL)**2 *\r\n     1        ((AMACH*REFMAC)/(MACH*AMACHR))**2 *\r\n     2        (RADII(K) - RADII(L))*0.5\r\n      IF (DEBUG) CALL BUG1 ('WFACT     ',70,WFACT,1)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE, SINGULAR MATRIX\r\nC\r\n   80 WRITE  (IOUT,90) UFM,SLN\r\n   90 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGB1S FOR',\r\n     1     ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgb2.f",
    "content": "      SUBROUTINE AMGB2 (INPUT,D1JK,D2JK)\r\nC\r\nC     DRIVER FOR COMPRESSOR BLADE THEORY\r\nC     COMPUTATIONS ARE FOR D1JK AND D2JK MATRICES\r\nC     FOR COMPRESSOR BLADES K-SET = J-SET = NLINES*NSTNS\r\nC     D1JK = F(INVERSE)TRANSPOSE\r\nC     NOTE - AMP MODULE TAKES D1JK(TRANSPOSE) SO OUTPUT\r\nC            F(INVERSE)TRANSPOSE TO GET EFFECT OF F(INVERSE) IN AMP.\r\nC\r\nC     D2JK = NULL\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         D1JK,D2JK,TD1JK,TD2JK,ECORE,SYSBUF,NAME(2),SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       IZ(1)\r\n      COMMON /AMGP2 / TD1JK(7),TD2JK(7)\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /BAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\n      EQUIVALENCE     (WORK(1),IZ(1))\r\n      DATA    NAME  / 4HAMGB,4H2   /\r\nC\r\nC     READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS\r\nC\r\n      CALL FREAD (INPUT,IREF,5,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REF  ',5,IREF,5)\r\nC\r\nC     READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE\r\nC     PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFFLO\r\nC\r\n      ECORE = KORSZ(IZ) - 3*SYSBUF\r\n      CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR)\r\n      GO TO 120\r\n   10 NDATA = 3*NSTNS + 10\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR)\r\n      IRSLN = 0\r\n      NLINE = 0\r\n      DO 20 I = 1,NWAR,NDATA\r\n      IF (IREF .EQ. IZ(I)) IRSLN = I\r\n      NLINE = NLINE + 1\r\n   20 CONTINUE\r\nC\r\nC     DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP\r\nC     STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE.\r\nC\r\n      IPTR  = NDATA*(NLINES-1)\r\n      XSIGN = 1.0\r\n      IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0\r\nC\r\n      IF (DEBUG) CALL BUG1 ('RADII     ',20,RADII,NLINES)\r\nC\r\nC     DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP)\r\nC\r\n      IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1\r\n      REFSTG = WORK(IRSLN+2)\r\n      REFCRD = WORK(IRSLN+3)\r\n      REFMAC = WORK(IRSLN+6)\r\n      REFDEN = WORK(IRSLN+7)\r\n      REFVEL = WORK(IRSLN+8)\r\n      REFFLO = WORK(IRSLN+9)\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF COMPRESSOR BLADE DATA\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD (INPUT,0,-6,0)\r\nC\r\n      IF (DEBUG) CALL BUG1 ('BAMG2L    ',22,IREF,27)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      NSNS = NSTNS*NSTNS\r\n      IP1  = 1\r\n      IP2  = IP1 + NSNS\r\n      NEXT = IP2 + 3*NSTNS\r\n      IF (NEXT .GT. ECORE) GO TO 120\r\nC\r\nC     COMPUTE F(INVERSE) FOR EACH STREAMLINE\r\nC\r\n      NN = II + NSTNS - 1\r\n      DO 100 NLINE = 1,NLINES\r\n      CALL AMGB2A (INPUT,WORK(IP1),WORK(IP2),WORK(IP2))\r\nC\r\nC     OUTPUT D1JK (=F(INVERSE)TRANSPOSE) FOR THIS STREAMLINE.\r\nC     NOTE - AMP MODULE TAKES D1JK(TRANSPOSE) SO OUTPUT\r\nC            F(INVERSE)TRANSPOSE TO GET EFFECT OF F(INVERSE) IN AMP.\r\nC\r\n      IP3 = IP2 + NSTNS - 1\r\n      DO 50 I = 1,NSTNS\r\n      K   = I\r\n      DO 30 J = IP2,IP3\r\n      WORK(J) = WORK(K)\r\n   30 K   = K + NSTNS\r\n      CALL PACK (WORK(IP2),D1JK,TD1JK)\r\n      IF (DEBUG) CALL BUG1 ('D1JK      ',31,WORK(IP2),NSTNS)\r\n   50 CONTINUE\r\n      II  = II +NSTNS\r\n      IF (NLINE .EQ. NLINES) GO TO 100\r\n      NN  = NN + NSTNS\r\n  100 CONTINUE\r\nC\r\nC     OUTPUT D2JK = NULL\r\nC\r\n      DO 110 ICOL = 1,NK\r\n      CALL BLDPK (ITI,ITO,D2JK,0,0)\r\n  110 CALL BLDPKN (D2JK,0,TD2JK)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NOT ENOUGH CORE\r\nC\r\n  120 CALL MESAGE (-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgb2a.f",
    "content": "      SUBROUTINE AMGB2A (INPUT,FMAT,XYZB,INDEX)\r\nC\r\nC     COMPUTE F(INVERSE) FOR THIS STREAMLINE\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),\r\n     1                TBL(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO\r\n      COMMON /BAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFFLO,SLN,NSTNSX,STAGER,\r\n     2                CHORD,RADIUS,BSPACE,MACH,DEN,VEL,FLOWA,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\nC\r\nC     READ STREAMLINE DATA\r\nC\r\n      NSTNS3 = 3*NSTNS\r\n      CALL FREAD (INPUT,SLN,10,0)\r\n      CALL FREAD (INPUT,XYZB,NSTNS3,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-SLN  ',10,SLN,10)\r\n      IF (DEBUG) CALL BUG1 ('XYZB      ',20,XYZB,NSTNS3)\r\nC\r\nC     (1) COMPUTE BASIC TO LOCAL TRANSFORMATION\r\nC         XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM\r\nC         FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE\r\nC     (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S\r\nC     (3) COMPUTE FMAT(NSTNS X NSTNS)\r\nC     (4) COMPUTE FMAT(INVERS) - USE -\r\nC         CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\nC\r\n      XA =  XYZB(1,1)\r\n      YA =  XYZB(2,1)\r\n      ZA =  XYZB(3,1)\r\n      XB =  XYZB(1,NSTNS)\r\n      YB =  XYZB(2,NSTNS)\r\n      ZB =  XYZB(3,NSTNS)\r\nC\r\nC     EVALUATE  TBL  ROW 2\r\nC\r\n      XBA = XB - XA\r\n      YBA = YB - YA\r\n      ZBA = ZB - ZA\r\n      AL2SQ = XBA**2 + YBA**2\r\n      AL2 = SQRT(AL2SQ)\r\n      AL1SQ = AL2SQ + ZBA**2\r\n      AL1 = SQRT(AL1SQ)\r\n      TBL(2,1) =-XSIGN*(YBA/AL2)\r\n      TBL(2,2) = XSIGN*(XBA/AL2)\r\n      TBL(2,3) = 0.0\r\nC\r\nC     EVAL  TBL  ROW 1\r\nC\r\n      TBL(1,1) = XBA/AL1\r\n      TBL(1,2) = YBA/AL1\r\n      TBL(1,3) = ZBA/AL1\r\nC\r\nC     EVALUATE TBL  ROW 3\r\nC\r\n      TBL(3,1) = -TBL(1,3)*(XBA/AL2)\r\n      TBL(3,2) = -TBL(1,3)*(YBA/AL2)\r\n      TBL(3,3) =  AL2/AL1\r\n      FMAT(1,1) = 1.0\r\n      PIC =  PI/CHORD\r\n      CH2 = 2.0/CHORD\r\n      DO 40 I = 2,NSTNS\r\n      X = TBL(1,1)*(XYZB(1,I)-XYZB(1,1))\r\n     1  + TBL(1,2)*(XYZB(2,I)-XYZB(2,1))\r\n     2  + TBL(1,3)*(XYZB(3,I)-XYZB(3,1))\r\n      FMAT(1,I) = 0.0\r\n      FMAT(I,1) = 1.0\r\n      FMAT(I,2) = CH2*X\r\n      DO 30 J = 3,NSTNS\r\n      AN  = J - 2\r\n      ARG = PIC*AN*X\r\n  30  FMAT(I,J) = SIN(ARG)\r\n  40  CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('FMAT      ',50,FMAT,NSTNS*NSTNS)\r\n      ISING = -1\r\n      CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\n      IF (DEBUG) CALL BUG1 ('FMAT-INV  ',60,FMAT,NSTNS*NSTNS)\r\n      IF (ISING .EQ. 2) GO TO 70\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE, SINGULAR MATRIX\r\nC\r\n   70 WRITE  (IOUT,80) UFM,SLN\r\n   80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGB2A FOR',\r\n     1     ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgbfs.f",
    "content": "      SUBROUTINE AMGBFS (SKJ,EE,DELX,NC,NBA,XIS2,XIS1,A0,A0P,NSBE)\r\nC\r\nC     BUILD SKJ CALL BFSMAT THEN SHUFFEL AND DEAL\r\nC\r\n      INTEGER         SKJ,NAME(2),TSKJ,SYSBUF,SCR1,SCR2,ECORE\r\n      DIMENSION       EE(1),DELX(1),NC(1),NBA(1),XIS2(1),XIS1(1),A0(1),\r\n     1                A0P(1),NSBE(1)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     1                INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,\r\n     2                IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,\r\n     3                IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM,\r\n     4                IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2,ITH1A,\r\n     5                ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZBLPKX/ A(4),IIS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    NAME  / 4HAMGB,4HFS  /\r\n      DATA    NHBFS , NHG,NHA      / 4HBFS ,4HG   ,4HA   /\r\nC\r\n      NSB   = NTYS + NTZS\r\n      NZY2  = NSB*2\r\n      NT02  = NT0*2\r\n      NTP2  = NTP*2\r\n      LENGTH= NT0 + NSB\r\n      ISL   = ISK - 1\r\n      II    = ISK + LENGTH\r\n      NN    = NSK + NZY2 + NTP2\r\n      IBUF2 = ECORE\r\n      IF (NSB .EQ. 0) GO TO 40\r\n      IBUF2 = ECORE - SYSBUF\r\nC\r\nC     CALL BFSMAT\r\nC     SCR1 HAS NTZS + NTYS ROWS WITH NTO*2 THEN NTZS+NTYS*2 TERMS\r\nC     ROWS ARE Z FOR Z , Y THEN Z FOR ZY , AND Y FOR Y\r\nC\r\n      CALL GOPEN (SCR1,Z(IBUF2),1)\r\n      ICORR = NEXT\r\n      IF (NEXT+LENGTH*4 .GT. IBUF2) GO TO 998\r\n      CALL BFSMAT (ND,NE,NB,NP,NTP,LENGTH,NT0,SCR1,JF,JL,Z(INAS),FMACH,\r\n     1             Z(IYB),Z(IZB),Z(IYS),Z(IZS),Z(IX),DELX,EE,Z(IXIC),\r\n     2             Z(ISG),Z(ICG),Z(IARB),Z(IRIA),Z(INBEA1),Z(INBEA2),\r\n     3             Z(INASB),Z(INB),NC,Z(ICORR),Z(IAVR),REFC,A0,XIS1,\r\n     4             XIS2,RFK,NSBE,NT0)\r\n      CALL WRITE  (SCR1,0,0,1)\r\n      CALL CLOSE  (SCR1,1)\r\n      CALL DMPFIL (SCR1,Z(NEXT),IBUF2-NEXT)\r\n      CALL GOPEN  (SCR1,Z(IBUF2),0)\r\n      NCORE = NT0*NZY2*2\r\n      IF (NCORE+NEXT .GT. IBUF2) GO TO 998\r\n      CALL ZEROC  (Z(NEXT),NCORE)\r\n      I    = NEXT\r\n      IZBF = 1\r\n      DO 30 J = 1,NSB\r\n      CALL FREAD (SCR1,Z(I),NT02,0)\r\n      CALL FREAD (SCR1,Z(I),-NZY2,0)\r\n      I = I + NT02\r\n      IF (JF .EQ. 0) GO TO 20\r\n      IF (J.LT.JF .OR. J.GT.JL) GO TO 20\r\n      IZBF = -IZBF\r\n      IF (IZBF .LT. 0) GO TO 30\r\n      I = I + NT02\r\n   20 I = I + NT02\r\n   30 CONTINUE\r\n      CALL BCKREC (SCR1)\r\nC\r\nC     BUILD NT0 COLUMNS OF SKJ\r\nC\r\n   40 IF (NT0 .EQ. 0) GO TO 100\r\n      IBF  = NEXT - 2\r\n      K    = 1\r\n      KS   = 1\r\n      NBXR = NC(K)\r\n      DO 70 I = 1,NT0\r\n      CALL BLDPK (3,3,SKJ,0,0)\r\n      IF (I .GT. NTP) GO TO 45\r\n      A(1) = 2.0*EE(KS)*DELX(I)\r\n      A(2) = 0.0\r\n      IIS  = ISL + (I-1)*2 + 1\r\n      CALL ZBLPKI\r\n      A(1) = (EE(KS)*DELX(I)**2)/2.0\r\n      IIS  = IIS + 1\r\n      CALL ZBLPKI\r\n      IF (I .EQ.    NTP) GO TO 45\r\n      IF (I .EQ. NBA(K)) K = K + 1\r\n      IF (I .EQ.   NBXR) GO TO 44\r\n      GO TO 45\r\n   44 KS   = KS + 1\r\n      NBXR = NBXR + NC(K)\r\n   45 IF (NSB .EQ. 0) GO TO 60\r\n      IBF  = IBF + 2\r\n      DO 50 J = 1,NZY2\r\n      L    = (J-1)*NT02\r\n      A(1) = Z(IBF+L  )\r\n      A(2) = Z(IBF+L+1)\r\n      IIS  = ISL + NTP2 + J\r\n      CALL ZBLPKI\r\n   50 CONTINUE\r\n   60 CALL BLDPKN (SKJ,0,TSKJ)\r\n   70 CONTINUE\r\nC\r\nC     SLENDER BODY ONLY PART OF SKJ  BFS * G\r\nC\r\n  100 IF (NSB .EQ. 0) GO TO 900\r\n      NCORE = NZY2*NSB*4 + NSB*NSB*2\r\n      IF (NCORE+NEXT .GT. IBUF2) GO TO 998\r\n      CALL ZEROC (Z(NEXT),NCORE)\r\n      I    = NEXT\r\n      IZBF = 1\r\n      DO 130 J = 1,NSB\r\n      CALL FREAD (SCR1,Z(I),-NT02,0)\r\n      CALL FREAD (SCR1,Z(I), NZY2,0)\r\n      I = I + NZY2\r\n      IF (JF .EQ. 0) GO TO 120\r\n      IF (J.LT.JF .OR. J.GT.JL) GO TO 120\r\n      IZBF = -IZBF\r\n      IF (IZBF .LT. 0) GO TO 130\r\n      I = I + NZY2\r\n  120 I = I + NZY2\r\n  130 CONTINUE\r\nC\r\nC     BFS AT NEXT  G AT IG\r\nC\r\n      IG   = I\r\n      IA   = IG + NSB*NSB*2\r\n      NFYB = NB + 1 - NBY\r\n      IROW = IG\r\n      RFKOC= 2.0*RFK/REFC\r\n      IBZY = 0\r\n      P5   = .5\r\n      IF (NTZS .EQ. 0) GO TO 170\r\n      NFSE = 1\r\n      NLSE = 0\r\n      NFB  = 1\r\n      NBX  = NBZ\r\n  141 DO 160 IB = NFB,NBX\r\n      NLSE = NLSE + NSBE(IB)\r\n      DO 150 IT = NFSE,NLSE\r\n      DX   = XIS2(IT) - XIS1(IT)\r\n      A02P = 2.0/A0(IT)*A0P(IT)\r\n      IF (NFSE .EQ. NLSE) GO TO 148\r\n      IF (IT   .NE. NFSE) GO TO 142\r\n      X2 = P5*(XIS2(IT+1) + XIS1(IT+1))\r\n      X1 = P5*(XIS2(IT  ) + XIS1(IT  ))\r\n      Z(IROW  ) = (-1.0/(X2-X1))*DX\r\n      Z(IROW+2) = -Z(IROW)*(A0(IT)/A0(IT+1))**2\r\n      GO TO 148\r\n  142 IF (IT .EQ. NLSE) GO TO 145\r\n      X1 = P5*(XIS2(IT-1) + XIS1(IT-1))\r\n      X2 = P5*(XIS2(IT  ) + XIS1(IT  ))\r\n      X3 = P5*(XIS2(IT+1) + XIS1(IT+1))\r\n      Z(IROW-2) = (1.0/(X3-X1) - 1.0/(X2-X1))*DX*(A0(IT)/A0(IT-1))**2\r\n      Z(IROW)   = (1.0/(X2-X1) - 1.0/(X3-X2))*DX\r\n      Z(IROW+2) = (1.0/(X3-X2) - 1.0/(X3-X1))*DX*(A0(IT)/A0(IT+1))**2\r\n      GO TO 148\r\n  145 X1 = P5*(XIS2(IT-1) + XIS1(IT-1))\r\n      X2 = P5*(XIS2(IT  ) + XIS1(IT  ))\r\n      Z(IROW  ) = (1.0/(X2-X1))*DX\r\n      Z(IROW-2) =-Z(IROW)*(A0(IT)/A0(IT-1))**2\r\n  148 Z(IROW  ) = Z(IROW) + DX*A02P\r\n      Z(IROW+1) = DX*RFKOC\r\n      IROW = IROW + NZY2 + 2\r\n  150 CONTINUE\r\n      NFSE = NFSE + NSBE(IB)\r\n  160 CONTINUE\r\n  170 IF (IBZY .EQ. 1) GO TO 200\r\n      IBZY = 1\r\n      IF (NTYS .EQ. 0) GO TO 200\r\n      NFB  = NFYB\r\n      NBX  = NB\r\n      NFSE = 1\r\n      NLSE = 0\r\n      NL   = NFYB - 1\r\n      IF (NL .EQ. 0) GO TO 141\r\n      DO 172 J = 1,NL\r\n      NLSE = NLSE + NSBE(J)\r\n      NFSE = NFSE + NSBE(J)\r\n  172 CONTINUE\r\n      GO TO 141\r\nC\r\nC     MULTIPLY BFS * G\r\nC\r\n  200 CALL BUG (NHBFS ,200,Z(NEXT),NZY2*NZY2)\r\n      CALL BUG (NHG   ,200,Z(IG),NSB*NSB*2)\r\n      CALL GMMATC (Z(NEXT),NZY2,NSB,0,Z(IG),NSB,NSB,0,Z(IA))\r\n      CALL BUG (NHA   ,200,Z(IA),NZY2*NSB*2)\r\n      IROW = IA - 2\r\n      DO 220 I = 1,NSB\r\n      CALL BLDPK (3,3,SKJ,0,0)\r\n      IROW = IROW + 2\r\n      K    = IROW\r\n      DO 210 J = 1,NZY2\r\n      A(1) = Z(K  )\r\n      A(2) = Z(K+1)\r\n      IIS  = ISL + NTP2 + J\r\n      CALL ZBLPKI\r\n      K    = K + NZY2\r\n  210 CONTINUE\r\n      CALL BLDPKN (SKJ,0,TSKJ)\r\n  220 CONTINUE\r\n  900 ISK  = II\r\n      NSK  = NN\r\n      CALL CLOSE (SCR1,1)\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  998 CALL MESAGE (-8,0,NAME)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/amgrod.f",
    "content": "      SUBROUTINE AMGROD(D,BETA)\r\n      INTEGER NAME(2),SYSBUF\r\n      INTEGER SCR1,SCR2,ECORE\r\nC  D IS REALLY A 2-D ARRAY D(2,NTZS)\r\n      DIMENSION D(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /ZZZZZZ / Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      DATA NAME /4HAMGR,4HOD  /\r\n      CALL SSWTCH(30,IPRNT)\r\n      NFZB = 1\r\n      NLZB = NBZ\r\n      NFYB = NB+1-NBY\r\n      NLYB = NB\r\n      IBUF1 = ECORE - SYSBUF\r\nC\r\nC     CALCULATE DZ ON SCR1\r\nC\r\n      IF(NTZS.EQ.0) GO TO 100\r\n      IF(NEXT+2*NTZS.GT.IBUF1) CALL MESAGE(-8,0,NAME)\r\n      CALL GOPEN(SCR1,Z(IBUF1),1)\r\n      IDZDY = 0\r\n      CALL DZYMAT(D,NFZB,NLZB,NTZS,IDZDY,SCR1,Z(IX),BETA,IPRNT,Z(INB),\r\n     * Z(INC),Z(IYS),Z(IZS),Z(ISG),Z(ICG),Z(IYB),Z(IZB),Z(INBEA1))\r\n      CALL CLOSE(SCR1,1)\r\n  100 IF(NTYS.EQ.0) GO TO 200\r\n      IF(NEXT+2*NTYS.GT.IBUF1) CALL MESAGE(-8,0,NAME)\r\n      CALL GOPEN(SCR2,Z(IBUF1),1)\r\n      IDZDY = 1\r\n      CALL DZYMAT(D,NFYB,NLYB,NTYS,IDZDY,SCR2,Z(IX),BETA,IPRNT ,Z(INB),\r\n     * Z(INC),Z(IYS),Z(IZS),Z(ISG),Z(ICG),Z(IYB),Z(IZB),Z(INBEA1))\r\n      CALL CLOSE(SCR2,1)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgsba.f",
    "content": "      SUBROUTINE AMGSBA(AJJL,A0,AR,NSBE,A,YB,ZB)\r\nC\r\nC     BUILD AJJL FOR DOUBLET LATTICE WITH BODIES\r\nC\r\n      INTEGER SYSBUF,ECORE,AJJL,NAME(2),SCR1,SCR2,SCR5\r\n      DIMENSION A(1),A0(1),AR(1),NSBE(1)\r\n      DIMENSION YB(1),ZB(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ / Z(1)\r\n      COMMON /PACKX/ ITI,ITO,II,NN,INCR\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      DATA NAME /4HAMGS,4HBA  /\r\n      II = NROW +1\r\n      NN = NROW + NJ1\r\n      IF(NEXT+2*NJ1.GT.ECORE) CALL MESAGE(-8,0,NAME)\r\n      INCR = 1\r\n      ITI = 3\r\n      ITO = 3\r\n      IF(NT0.EQ.0) GO TO 100\r\n      NBUF = 1\r\n      IF(NTZS.NE.0) NBUF = NBUF +1\r\n      IF(NTYS.NE.0) NBUF = NBUF +1\r\n      IBUF1 = ECORE - NBUF*SYSBUF\r\n      IBUF2 = IBUF1\r\n      IF(NTZS.NE.0) IBUF2 = IBUF1+SYSBUF\r\n      IBUF3 = IBUF2\r\n      IF(NTYS.NE.0) IBUF3 = IBUF2+SYSBUF\r\n      NS5 = NT0*2\r\n      NS1 = NTZS*2\r\n      NS2 = NTYS*2\r\n      NTOT = NS5+NS1+NS2\r\n      IF(NEXT+NTOT.GT.IBUF3) CALL MESAGE(-8,0,NAME)\r\nC\r\nC     BUILD PANEL AND BODY PART OF AJJL\r\nC\r\n      CALL GOPEN(SCR5,Z(IBUF1),0)\r\n      IF(NTZS.NE.0) CALL GOPEN(SCR1,Z(IBUF2),0)\r\n      IF(NTYS.NE.0) CALL GOPEN(SCR2,Z(IBUF3),0)\r\n      DO 50 I=1,NT0\r\n      CALL FREAD(SCR5,A,NS5,0)\r\n      IF(NTZS.NE.0) CALL FREAD(SCR1,A(NS5+1),NS1,0)\r\n      IF(NTYS.NE.0) CALL FREAD(SCR2,A(NS5+NS1+1),NS2,0)\r\n      CALL PACK(A,AJJL,MCB)\r\n   50 CONTINUE\r\n      CALL CLOSE(SCR5,1)\r\n      CALL CLOSE(SCR1,1)\r\n      CALL CLOSE(SCR2,1)\r\n  100 CALL ZEROC(A,2*NJ1)\r\nC\r\nC     ADD DIAGIONAL TERMS OF AJJL FOR SLENDER BODIES\r\nC\r\n      IF(NTZS.EQ.0.AND.NTYS.EQ.0) GO TO 1000\r\n      I = NT0*2+1\r\n      DEN=TWOPI*2.0\r\n      IF(NTZS.EQ.0) GO TO 200\r\n      NFSBEB = 1\r\n      NLSBEB = 0\r\n      DO 150 IB = 1,NBZ\r\n      NLSBEB = NLSBEB + NSBE(IB)\r\n      DO 140 IT = NFSBEB,NLSBEB\r\n      A(I) = 1.0 / (DEN*A0(IT)**2)\r\n      IF(ABS(YB(IB)).LT..00001) A(I) = (1.0+FLOAT(ND))*A(I)\r\n      IF(ABS(ZB(IB)).LT..00001) A(I) = (1.0+FLOAT(NE))*A(I)\r\n      CALL PACK(A,AJJL,MCB)\r\n      A(I) = 0.0\r\n      I = I+2\r\n  140 CONTINUE\r\n      NFSBEB = NFSBEB + NSBE(IB)\r\n  150 CONTINUE\r\n  200 IF(NTYS.EQ.0) GO TO 1000\r\n      NFYB = NB+1-NBY\r\n      NFSBEB = 1\r\n      NLSBEB = 0\r\n      NL = NFYB-1\r\n      IF(NL.EQ.0) GO TO 220\r\n      DO 210 J=1,NL\r\n      NLSBEB = NLSBEB+NSBE(J)\r\n      NFSBEB = NFSBEB+NSBE(J)\r\n  210 CONTINUE\r\n  220 DO 250 IB = NFYB,NB\r\n      NLSBEB = NLSBEB+NSBE(IB)\r\n      DO 240 IT = NFSBEB,NLSBEB\r\n      A(I) = 1.0 / (DEN*A0(IT)**2)\r\n      IF(ABS(YB(IB)).LT..00001) A(I) = (1.0-FLOAT(ND))*A(I)\r\n      IF(ABS(ZB(IB)).LT..00001) A(I) = (1.0-FLOAT(NE))*A(I)\r\n      CALL PACK(A,AJJL,MCB)\r\n      A(I) = 0.0\r\n      I = I+2\r\n  240 CONTINUE\r\n      NFSBEB = NFSBEB+NSBE(IB)\r\n  250 CONTINUE\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1.f",
    "content": "      SUBROUTINE AMGT1 (INPUT,MATOUT,SKJ)\r\nC\r\nC     DRIVER FOR SWEPT TURBOPROP BLADES (AEROELASTIC THEORY 7).\r\nC\r\nC     COMPUTATIONS ARE FOR THE AJJL AND SKJ MATRICES.\r\nC     FOR SWEPT TURBOPROPS K-SET = J-SET = 2*NSTNS*NLINES.\r\nC     SKJ = F(INVERS)TRANSPOSE.\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         ECORE,SYSBUF,IZ(1),NAME(2),SLN,SKJ,TSKJ\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ,TSKJ(7),ISK,\r\n     1                NSK\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /BLANK / NK,NJ\r\n      EQUIVALENCE     (WORK(1),IZ(1))\r\n      DATA    NAME  / 4HAMGT,4H1   /\r\nC\r\nC     READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS\r\nC\r\n      CALL READ (*999,*999,INPUT,IREF,5,0,N)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REF  ',5,IREF,5)\r\nC\r\nC     READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE\r\nC     PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFSWP\r\nC\r\n      ECORE = KORSZ(IZ) - 4*SYSBUF\r\n      CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR)\r\n      GO TO 998\r\n   10 IRSLN = 0\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR)\r\n      NTSONX= 0\r\n      NDATA = 3*NSTNS + 10\r\n      NLINE = 0\r\n      DO 20 I = 1,NWAR,NDATA\r\nC\r\nC     LOCATE REFERENCE STREAMLINE NUMBER (IREF = SLN)\r\nC\r\n      IF (IREF .EQ. IZ(I)) IRSLN = I\r\nC\r\nC     STORE MACH NUMBERS FOR LATER DATA CHECK.\r\nC\r\n      MACH = WORK(I+6)\r\n      IF (MACH.GT.MAXMAC .AND. MACH.LT.MINMAC) NTSONX = NTSONX + 1\r\n      NLINE = NLINE + 1\r\n      WORK(NWAR+NLINE) = MACH\r\n   20 CONTINUE\r\nC\r\nC     DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP\r\nC     STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE.\r\nC\r\n      IPTR  = NDATA*(NLINES-1)\r\n      XSIGN = 1.0\r\n      IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0\r\nC\r\nC     INPUT CHECKS -\r\nC\r\nC     (1) MACH NUMBERS MUST INCREASE FROM BLADE ROOT TO BLADE TIP.\r\nC         NOTE - THIS CHECK WILL NOT BE MADE FOR SWEPT TURBOPROPS.\r\nC     (2) SUPERSONIC CASCADE CODE HAS BEEN INSTALLED IN SUB.AMGT1C\r\nC     (3) LINEAR INTERPOLATION EXISTS FOR TRANSONIC STREAMLINES\r\nC     (4) ALL TRANSONIC STREAMLINES ARE NEVER ALLOWED.\r\nC\r\nC\r\nC     CHECK FOR ALL TRANSONIC STREAMLINES.\r\nC\r\n      IBAD = 0\r\n      IF (NTSONX .LT. NLINES ) GO TO 30\r\n      IBAD = 1\r\n      WRITE (IOUT,1001) UFM\r\n   30 CONTINUE\r\nC\r\nC     MACH NUMBERS MUST INCREASE FROM BLADE ROOT TO BLADE TIP.\r\nC\r\nC     NOTE - THIS CHECK WILL NOT BE MADE FOR SWEPT TURBOPROPS.\r\nC\r\n      IF (IBAD .NE. 0) GO TO 997\r\nC\r\nC     SET TSONIC IF THERE ARE ANY TRANSONIC STREAMLINES\r\nC\r\n      TSONIC = .FALSE.\r\n      IF (NTSONX .GT. 0) TSONIC = .TRUE.\r\nC\r\nC     STORE REFERENCE PARAMETERS\r\nC     DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN  (BLADE TIP)\r\nC\r\n      IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1\r\n      REFSTG = WORK(IRSLN+2)\r\n      REFCRD = WORK(IRSLN+3)\r\n      REFMAC = WORK(IRSLN+6)\r\n      REFDEN = WORK(IRSLN+7)\r\n      REFVEL = WORK(IRSLN+8)\r\n      REFSWP = WORK(IRSLN+9)\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF BLADE DATA.\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD (INPUT,0,-6,0)\r\n      IF (DEBUG) CALL BUG1 ('TAMG1L    ',46,IREF,26)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE.\r\nC     IP1 AND IP2 ARE COMPLEX POINTERS.\r\nC\r\n      NSTNS2 = 2*NSTNS\r\n      NAJJC  = NSTNS2\r\n      NTSONX = 1\r\n      IF (TSONIC) NAJJC  = NLINES*NSTNS2\r\n      IF (TSONIC) NTSONX = NLINES\r\n      IP1  = 1\r\n      IP2  = IP1 + 2*(NSTNS2*NAJJC)\r\n      IP3  = IP2 + 1\r\n      IP4  = IP3 + NTSONX\r\n      IP5  = IP4 + NTSONX\r\n      NEXT = IP5 + NTSONX\r\n      IF (NEXT .GT. ECORE) GO TO 998\r\nC\r\nC     CALL ROUTINE TO COMPUTE AND OUTPUT AJJL.\r\nC\r\n      ITI = 3\r\n      ITO = 3\r\nC\r\n      CALL AMGT1A (INPUT,MATOUT,WORK(IP1),WORK(IP3),WORK(IP4),WORK(IP5),\r\n     1             NSTNS2)\r\n      IF (DEBUG) CALL BUG1 ('AJJL      ',48,WORK(IP1),IP2-1)\r\nC\r\nC     COMPUTE F(INVERSE) FOR EACH STREAMLINE\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      NSNS = NSTNS*NSTNS\r\n      IP1  = 1\r\n      IP2  = IP1 + NSNS\r\n      NEXT = IP2 + 3*NSTNS\r\n      IF (NEXT .GT. ECORE) GO TO 998\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF BLADE DATA.\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD (INPUT,0,-6,0)\r\nC\r\n      ITI = 1\r\n      ITO = 3\r\nC\r\n      II  = ISK\r\n      NSK = NSK + NSTNS\r\n      NN  = NSK\r\n      DO 100 NLINE = 1,NLINES\r\n      CALL AMGT1S (INPUT,WORK(IP1),WORK(IP2),WORK(IP2))\r\nC\r\nC     OUTPUT SKJ (= F(INVERS)TRANSPOSE) FOR THIS STREAMLINE\r\nC\r\n      IP3 = IP2 + NSTNS - 1\r\n      DO 60 I = 1,NSTNS\r\n      K = I\r\n      DO 50 J = IP2,IP3\r\n      WORK(J) = WORK(K)\r\n   50 K = K + NSTNS\r\n      CALL PACK (WORK(IP2),SKJ,TSKJ)\r\n      IF (DEBUG) CALL BUG1 ('SKJ       ',55,WORK(IP2),NSTNS)\r\n   60 CONTINUE\r\n      II = II + NSTNS\r\n      NN = NN + NSTNS\r\n      DO 80 I = 1,NSTNS\r\n      K  = I\r\n      DO 70 J = IP2,IP3\r\n      WORK(J) = WORK(K)\r\n   70 K  = K + NSTNS\r\n      CALL PACK (WORK(IP2),SKJ,TSKJ)\r\n      IF (DEBUG) CALL BUG1 ('SKJ       ',75,WORK(IP2),NSTNS)\r\n   80 CONTINUE\r\n      II = II + NSTNS\r\n      IF (NLINE .EQ. NLINES) GO TO 100\r\n      NN = NN + NSTNS\r\n  100 CONTINUE\r\nC\r\nC     UPDATE NROW AND PACK POINTERS\r\nC\r\n      NROW = NROW + NLINES*NSTNS2\r\n      IF (DEBUG) CALL BUG1 ('NEW-NROW  ',110,NROW,1)\r\n      ISK = II\r\n      NSK = NN\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     BAD STREAMLINE DATA\r\nC\r\n  997 CALL MESAGE (-61,0,0)\r\nC\r\nC     NOT ENOUGH CORE\r\nC\r\n  998 CALL MESAGE (-8,0,NAME)\r\nC\r\nC     INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN\r\nC\r\n  999 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\nC\r\n 1001 FORMAT (A23,' -AMG MODULE- ALL TRANSONIC STREAMLINES NOT ALLOWED',\r\n     1       /39X,'CHECK MACH ON STREAML2 BULK DATA CARDS OR', /39X,\r\n     2       'CHANGE PARAMETERS MINMACH AND MAXMACH.')\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1a.f",
    "content": "      SUBROUTINE AMGT1A (INPUT,MATOUT,AJJ,TSONX,TAMACH,TREDF,NSTNS2)\r\nC\r\nC     COMPUTE AJJ MATRIX FOR SWEPT TURBOPROP BLADES.\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN,NAME(2),TSONX(1)\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      COMPLEX         AJJ(NSTNS2,1)\r\n      DIMENSION       TAMACH(1),TREDF(1)\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC\r\n      COMMON /AMGBUG/ DEBUG\r\n      DATA    NAME  / 4HAMGT,4H1A  /\r\nC\r\nC     LOOP ON STREAMLINES, COMPUTE AJJ FOR EACH STREAMLINE AND THEN\r\nC     PACK AJJ INTO AJJL MATRIX AT CORRECT POSITION\r\nC\r\n      II = 0\r\n      NN = 0\r\n      NSTNS3 = 3*NSTNS\r\n      DO 70 LINE = 1,NLINES\r\nC\r\nC     READ STREAMLINE DATA (SKIP COORDINATE DATA)\r\nC\r\n      CALL READ (*400,*400,INPUT,SLN,10,0,NWAR)\r\nC\r\nC     COMPUTE PARAMETERS\r\nC\r\n      AMACH = MACH\r\n      REDF  = RFREQ*(CHORD/REFCRD)*(REFVEL/VEL)\r\n      BLSPC = BSPACE/CHORD\r\nC\r\nC     COMPUTE C3 AND C4 FOR THIS STREAMLINE.\r\nC\r\nC     INPUT IS POSITIONED AT THE FIRST 10 WORDS OF THE NEXT\r\nC     STREAMLINE WHEN IT RETURNS FROM AMGT1T\r\nC\r\n      CALL AMGT1T (NLINES,LINE,INPUT,NSTNS,C3,C4)\r\nC\r\n      IF (DEBUG) CALL BUG1 ('TAMG1L    ',5,IREF,26)\r\nC\r\nC     COMPUTE POINTER FOR LOCATION INTO AJJ MATRIX\r\nC\r\n      IAJJC = 1\r\n      IF (TSONIC) IAJJC = NSTNS2*(LINE-1) + 1\r\nC\r\nC     BRANCH TO SUBSONIC, SUPERSONIC OR TRANSONIC CODE\r\nC\r\n      TAMACH(LINE) = AMACH\r\n      TREDF(LINE)  = REDF\r\n      IF (AMACH .LE. MAXMAC) GO TO 10\r\n      IF (AMACH .GE. MINMAC) GO TO 20\r\nC\r\nC     TRANSONIC STREAMLINE. STORE DATA FOR TRANSONIC INTERPOLATION\r\nC\r\n      TSONX(LINE) = IAJJC\r\n      GO TO 70\r\nC\r\nC     SUBSONIC STREAMLINE\r\nC\r\n   10 CALL AMGT1B (AJJ(1,IAJJC),NSTNS2,C3,C4)\r\n      GO TO 30\r\nC\r\nC     SUPERSONIC STREAMLINE\r\nC\r\n   20 CALL AMGT1C (AJJ(1,IAJJC),NSTNS2,C3,C4)\r\n   30 CONTINUE\r\nC\r\nC     IF THERE ARE NO TRANSONIC STREAMLINES OUTPUT THIS AJJ SUBMATRIX\r\nC\r\n      IF (TSONIC) GO TO 60\r\n      II = NN + 1\r\n      NN = NN + NSTNS2\r\nC\r\nC     OUTPUT AJJ MATRIX\r\nC\r\n      DO 50 I = 1,NSTNS2\r\n      IF (DEBUG) CALL BUG1 ('SS-AJJL   ',40,AJJ(1,I),NSTNS2*2)\r\n      CALL PACK (AJJ(1,I),MATOUT,MCB)\r\n   50 CONTINUE\r\n      GO TO 70\r\n   60 TSONX(LINE) = 0\r\n   70 CONTINUE\r\nC\r\nC     PERFORM TRANSONIC INTERPOLATION, IF NECESSARY\r\nC\r\n      IF (.NOT.TSONIC) GO TO 300\r\n      IF (DEBUG) CALL BUG1 ('TSONX     ', 80,TSONX,NLINES)\r\n      IF (DEBUG) CALL BUG1 ('TAMACH    ', 90,TAMACH,NLINES)\r\n      IF (DEBUG) CALL BUG1 ('TREDF     ',100,TREDF,NLINES)\r\n      CALL AMGT1D (AJJ,TSONX,TAMACH,TREDF,NSTNS2)\r\nC\r\nC     OUTPUT AJJ FOR EACH STREAMLINE\r\nC\r\n      DO 200 NLINE = 1,NLINES\r\n      II = NN + 1\r\n      NN = NN + NSTNS2\r\n      DO 120 I = II,NN\r\n      IF (DEBUG) CALL BUG1 ('STS-AJJL  ',110,AJJ(1,I),NSTNS2*2)\r\n      CALL PACK (AJJ(1,I),MATOUT,MCB)\r\n  120 CONTINUE\r\n  200 CONTINUE\r\n  300 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN\r\nC\r\n  400 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1b.f",
    "content": "      SUBROUTINE AMGT1B (Q,NSTNS2,C1SBAR,C2SBAR)        \r\nC        \r\nC      SUBSONIC RAO (CASCADES) CODE FOR SWEPT TURBOPROPS.        \r\nC        \r\n      INTEGER         SLN        \r\n      REAL            M,KAPPA,MU,MUS,LAMDA,LAMDM,NU,X(20),DISP(20,10),  \r\n     1                W(8),WW(8),M2SBAR        \r\n      COMPLEX         Q(NSTNS2,NSTNS2),LOADS(21),STT(20),SUM1,SUM2,STTI,\r\n     1                AN(401),AB(401),FK(401),CN(401),CB(401),PD(401),  \r\n     2                SO(100),S1(100),P(50),A(20,40),FF,ST,STP,FG,FS,FO,\r\n     3                SLOPE        \r\n      CHARACTER       UFM*23        \r\n      COMMON /XMSSG / UFM        \r\n      COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,    \r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAG,      \r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,     \r\n     3                REDF,BLSPC,AMACHR,TSONIC        \r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ        \r\n      COMMON /SYSTEM/ IBUF,IOUT        \r\n      DATA    W     / 1.48283,  .89414, .83521,  .66721,        \r\n     1                 .64172,  .55519, .54026,  .48547 /        \r\n      DATA    WW    / 1.13333,-0.00036,0.18796,-0.00027,        \r\n     1                0.08469,-0.00022,0.05049,-0.00019 /        \r\nC        \r\nC     THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING        \r\nC     STATIONS PER STREAMLINE IS REFLECTED IN CODING.        \r\nC        \r\n      IF (NSTNS .GT. 10) GO TO 1000        \r\nC        \r\n      M      = AMACH        \r\n      OMEGA  = REDF        \r\n      SS     = 2*BLSPC        \r\n      DELTM  =-SIGMA        \r\n      XLAM   = STAG        \r\n      NM     = NSTNS        \r\n      NNM    = NSTNS2        \r\n      CSBAR  = .25*(DEN*VEL**2*CHORD**2)/(REFDEN*REFVEL**2)        \r\n      CSBAR1 = 2.0/CHORD        \r\n      M2SBAR =-DCBDZB/CHORD        \r\n      C2SSCH = CSBAR1*C2SBAR        \r\n      CSBLSB = CSBAR*CSBAR1        \r\n      CSBM2S = CSBAR*M2SBAR        \r\n      N      = 20        \r\n      PI     = 3.141593        \r\n      PI2    = PI*2        \r\n      CON    = 1.0E-5        \r\n      NNN    = 100        \r\n      KKK    = 2*NNN + 1        \r\n      DELTM  = DELTM/360        \r\n      XL     = XLAM*PI/180        \r\n      B      = 1.0/N        \r\n      B2     = 2*B        \r\n      D      = SS*SIN(XL)        \r\n      HH     = SS*COS(XL)        \r\n      BETA   = SQRT(1. - M**2)        \r\n      H      = HH*BETA        \r\n      ZER    = 0.0        \r\n      S      = SQRT(H**2 + D**2)        \r\n      LAMDM  = ATAN(D/H)        \r\n      CL     = COS(LAMDM)        \r\n      SL     = SIN(LAMDM)        \r\n      NU     = OMEGA/BETA**2        \r\n      KAPPA  = M*NU        \r\n      LAMDA  = M*KAPPA        \r\n      DELTA  = DELTM + LAMDA*D/PI2        \r\n      MU     = KAPPA*S/PI2        \r\n      MUS    = MU**2        \r\n      FF     = (0.0,1.0)        \r\n      FG     = CMPLX(ZER,NU*S)        \r\n      L      = 1        \r\n      CC     = DELTA**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      AN(L)  = FK(L)*CL + FF*DELTA*SL        \r\n      AB(L)  = FK(L)*CL - FF*DELTA*SL        \r\n      PD(L)  = FK(L)*(PI2*AB(L) + FG)        \r\n      CK     = PI2*B/S        \r\n      CN(L)  = CEXP(-AN(L)*CK)        \r\n      CB(L)  = CEXP(-AB(L)*CK)        \r\n      DO 20 I = 1,NNN        \r\n      L      = L + 1        \r\n      CC     = (DELTA+I)**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      AN(L)  = FK(L)*CL + (DELTA+I)*FF*SL        \r\n      AB(L)  = FK(L)*CL - (DELTA+I)*FF*SL        \r\n      PD(L)  = FK(L)*(PI2*AB(L) + FG)        \r\n      CN(L)  = CEXP(-AN(L)*CK)        \r\n      CB(L)  = CEXP(-AB(L)*CK)        \r\n      L      = L + 1        \r\n      CC     = (DELTA-I)**2 - MUS        \r\n      IF (CC .EQ. 0.0) GO TO 200        \r\n      IF (CC .GT. 0.0) FK(L) = SQRT(CC)        \r\n      IF (CC .LT. 0.0) FK(L) = SQRT(-CC)*FF        \r\n      AN(L)  = FK(L)*CL + (DELTA-I)*FF*SL        \r\n      AB(L)  = FK(L)*CL - (DELTA-I)*FF*SL        \r\n      PD(L)  = FK(L)*(PI2*AB(L) + FG)        \r\n      CN(L)  = CEXP(-AN(L)*CK)        \r\n      CB(L)  = CEXP(-AB(L)*CK)        \r\n   20 CONTINUE        \r\n      STP    = 0.0        \r\n      L      = 1        \r\n      ST     = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L)        \r\n      DO 25 I = 2,KKK,2        \r\n      L      = I        \r\n      ST     = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST        \r\n      L      = L + 1        \r\n      ST     = ((1-CN(L))/AN(L) + (1-CB(L))/AB(L))/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 30        \r\n      STP    = ST        \r\n   25 CONTINUE        \r\n   30 CONTINU E        \r\n      SO(1)  =-ST*S/(2*PI2*B2)        \r\n      DO 40 J = 2,N        \r\n      JK     = 2*(J-1)        \r\n      L      = 1        \r\n      STP    = 0.0        \r\n      ST     = CN(L)**JK/FK(L)        \r\n      DO 32 I = 2,KKK,2        \r\n      L      = L + 1        \r\n      ST     = CN(L)**JK/FK(L) + ST        \r\n      L      = L + 1        \r\n      ST     = CN(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 35        \r\n   32 STP    = ST        \r\n   35 SO(J)  =-0.5*ST        \r\n   40 CONTINUE        \r\n      N1     = N + 1        \r\n      N2     = 3*N - 1        \r\n      DO 50 J = N1,N2        \r\n      JK     = J - N        \r\n      STP    = 0.0        \r\n      L      = 1        \r\n      ST     = CB(L)**JK/FK(L)        \r\n      DO 42 I = 2,KKK,2        \r\n      L      = L + 1        \r\n      ST     = CB(L)**JK/FK(L) + ST        \r\n      L      = L + 1        \r\n      ST     = CB(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 45        \r\n   42 STP    = ST        \r\n   45 SO(J)  =-0.5*ST        \r\n   50 CONTINUE        \r\n      DO 55 J = 1,N        \r\n      JK     = (J-1)*2 + 1        \r\n      L      = 1        \r\n      STP    = 0.0        \r\n      ST     = AN(L)*CN(L)**JK/FK(L)        \r\n      DO 52 I = 2,KKK,2        \r\n      L      = L + 1        \r\n      ST     = AN(L)*CN(L)**JK/FK(L) + ST        \r\n      L      = L + 1        \r\n      ST     = AN(L)*CN(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 54        \r\n      STP    = ST        \r\n   52 CONTINUE        \r\n   54 S1(J)  =-PI/S*ST        \r\n   55 CONTINUE        \r\n      N1     = N + 1        \r\n      N2     = 2*N        \r\n      DO 60 J = N1,N2        \r\n      JK     = (J-N1)*2 + 1        \r\n      L      = 1        \r\n      STP    = 0.0        \r\n      ST     = AB(L)*CB(L)**JK/FK(L)        \r\n      DO 57 I = 2,KKK,2        \r\n      L      = L + 1        \r\n      ST     = AB(L)*CB(L)**JK/FK(L) + ST        \r\n      L      = L + 1        \r\n      ST     = AB(L)*CB(L)**JK/FK(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 59        \r\n      STP    = ST        \r\n   57 CONTINUE        \r\n   59 S1(J)  = PI/S*ST        \r\n   60 CONTINUE        \r\n      DO 64 J = 1,N        \r\n      JK     = (J-1)*2 + 1        \r\n      L      = 1        \r\n      STP    = 0.0        \r\n      ST     = CB(L)**JK/PD(L)        \r\n      DO 61 I = 2,KKK,2        \r\n      L      = L + 1        \r\n      ST     = CB(L)**JK/PD(L) + ST        \r\n      L      = L + 1        \r\n      ST     = CB(L)**JK/PD(L) + ST        \r\n      IF (CABS(ST-STP) .LT. CON) GO TO 62        \r\n      STP    = ST        \r\n   61 CONTINUE        \r\n   62 P(J)   =-S/2*ST        \r\n   64 CONTINUE        \r\n      FG     = CMPLX(ZER,-NU*B)        \r\n      FG     = 1/(CEXP(FG) + CMPLX(ZER,NU*B2))        \r\n      FS     = CMPLX(ZER,NU)        \r\n      CJ     = (NU*BETA)**2        \r\n      L      = 0        \r\n      CT     = 2*KAPPA**2*B        \r\n      DO 70 J = 1,N        \r\n      DO 70 I = 1,N        \r\n      L      = L + 1        \r\n      NK     = I - J + 1        \r\n      NK1    = I - J        \r\n      NK2    = NK1 + 1        \r\n      IF (I .EQ. J) NK1 = N + 1        \r\n      IF (I .EQ. J) NK2 = 1        \r\n      IF (J .LE. I) GO TO 65        \r\n      NK1    = N + J - I + 1        \r\n      NK2    = NK1 - 1        \r\n      NK     = N + 2*(J-I)        \r\n   65 A(I,J) = S1(NK1) - S1(NK2) + CT*SO(NK)        \r\n      IF (J .NE. N) GO TO 70        \r\n      NK     = N + 2*(J-I) + 1        \r\n      NK2    = J - I + 1        \r\n      A(I,J) = A(I,J) - FG*(S1(NK1) + SO(NK)*FS + CJ*P(NK2))        \r\n   70 CONTINUE        \r\n      X(1)   =-1.0 + B        \r\n      DO 81 I = 2,N        \r\n   81 X(I)   = X(I-1) + B2        \r\n      N1     = N  + NM        \r\n      NN     = N1        \r\n      NN1    = NN + NM        \r\n      N1N    = N  - 1        \r\n      N1M    = NM - 1        \r\n      N11    = N  + 1        \r\n      NN11   = NN + 1        \r\n      N22    = N  + 2        \r\n      NN22   = NN + 2        \r\n      FO     = FF*OMEGA        \r\n      TANLAM = TAN(SWEEP*PI/180.0)        \r\n      DLSDZB = DCBDZB/2.0        \r\n      TD     = TANLAM*DLSDZB        \r\n      DO 75 I = 1,N        \r\n      DISP(I,1) =-1.0        \r\n      DISP(I,2) =-1.0 - X(I)        \r\n      STT(I) = CEXP(-FF*LAMDA*X(I))*PI2/BETA        \r\n      STTI   = STT(I)        \r\n      A(I,N11 ) = STTI*DISP(I,1)*(FO+TD)        \r\n      A(I,NN11) = STTI*DISP(I,1)*TANLAM        \r\n      A(I,N22 ) = STTI*(DISP(I,2)*(FO+TD)-1.)        \r\n   75 A(I,NN22) = STTI*DISP(I,2)*TANLAM        \r\n      DO 83 JJ = 3,NM        \r\n      NF     = N  + JJ        \r\n      NNF    = NN + JJ        \r\n      CON2   = PI*(JJ-2)/2        \r\n      DO 83 I = 1,N        \r\n      CON    = CON2*DISP(I,2)        \r\n      DISP(I,JJ) = SIN(CON)        \r\n      A(I,NF ) = STT(I)*(DISP(I,JJ)*(FO+TD)-CON2*COS(CON))        \r\n   83 A(I,NNF) = STT(I)*DISP(I,JJ)*TANLAM        \r\nCWKBR SPR93019 10/93 CALL GAUSS (A,N,NN1)        \r\n      CALL GAUSS2 (A,N,NN1) \r\n      DO 95 J = 1,NNM        \r\n      NF     = N + J        \r\n      DO 84 I = 1, N        \r\n   84 LOADS(I) = A(I,NF)        \r\nC        \r\n      SLOPE   = LOADS(2)/3./B        \r\n      A(1,NF) = 2.*CEXP(LAMDA*FF*X(1))*(FF*NU*LOADS(1) + SLOPE)        \r\nC        \r\n      SLOPE   = (LOADS(N) - LOADS(N1N))/B2        \r\n      A(N,NF) = 2.*CEXP(LAMDA*FF*X(N))*(FF*NU*LOADS(N) + SLOPE)        \r\nC        \r\n      DO 85 I = 2,N1N        \r\n      SLOPE   = (LOADS(I+1) - LOADS(I-1))/4./B        \r\n   85 A(I,NF) = 2.*CEXP(LAMDA*FF*X(I))*(FF*NU*LOADS(I) + SLOPE)        \r\n   95 CONTINUE        \r\n      DO 86 I = 1,N        \r\n      A(I,1) = SQRT((1-X(I))/(1+X(I)))        \r\n      DO 87 J = 2,N1M        \r\n   87 A(I,J) =-DISP(I,J+1)        \r\n      DO 86 J = NM,N        \r\n      CON2   =-PI*(J-1)*DISP(I,2)/2        \r\n   86 A(I,J) = SIN(CON2)        \r\nCWKBR SPR93019 10/93      CALL GAUSS (A,N,NN1)        \r\n      CALL GAUSS2 (A,N,NN1) \r\n      A(1,1) = C2SSCH*PI+C1SBAR*PI/2.        \r\n      A(2,1) = (C2SSCH+C1SBAR)*PI/2.        \r\n      CON    = 1.        \r\n      CONN   = 1.        \r\n      DO 88 J = 1,N1N        \r\n      A(1,J+1) = (C2SSCH*CON+C1SBAR*CONN)*4./J/PI        \r\n      A(2,J+1) = (C2SSCH+2.*C1SBAR)*CONN*4./J/PI-CON*C1SBAR*32./        \r\n     1           (J*PI)**3        \r\n      CON    = 1. - CON        \r\n   88 CONN   =-CONN        \r\n      DO 90 I = 3,NM        \r\n      IR     = I - 2        \r\n      DO 90 J = 2,N        \r\n      IS     = J - 1        \r\n      IF (IR .EQ. IS) GO TO 901        \r\n      IF ((IR+IS)/2*2.EQ.(IR+IS)) GO TO 902        \r\n      A(I,J) =-C1SBAR*16.*IR*IS/(PI*(IR+IS)*(IR-IS))**2        \r\n      GO TO 90        \r\n  902 A(I,J) = (0.,0.)        \r\n      GO TO 90        \r\n  901 A(I,J) = C2SSCH + C1SBAR        \r\n   90 CONTINUE        \r\n      DO 91 J = 3,NM        \r\n   91 A(J,1) = C2SSCH*W(J-2)+C1SBAR*WW(J-2)        \r\n      DO 160 J = 1,NM        \r\n      DO 160 K = 1,NM        \r\n      NF     = N  + K        \r\n      NNF    = NN + K        \r\n      SUM1   = (0.,0.)        \r\n      SUM2   = (0.,0.)        \r\n      DO150 I = 1,N        \r\n      SUM1 = SUM1 + A(J,I)*A(I,NF)        \r\n  150 SUM2 = SUM2 + A(J,I)*A(I,NNF)        \r\n      Q(J,K   ) = CSBLSB*SUM1 + CSBM2S*SUM2        \r\n      Q(J,K+NM) = CSBAR*SUM2        \r\n      Q(J+NM,K) = (0.,0.)        \r\n  160 Q(J+NM,K+NM) = (0.,0.)        \r\n  200 RETURN        \r\nC        \r\n 1000 WRITE  (IOUT,3001) UFM,SLN,NSTNS        \r\n 3001 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ',   \r\n     1       'STREAMLINE',I8,4H IS ,I3,1H., /39X,'SUBSONIC CASCADE ',   \r\n     2       'ROUTINE AMGT1B ALLOWS ONLY A MAXIMUM OF 10.')        \r\n      CALL MESAGE (-61,0,0)        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mis/amgt1c.f",
    "content": "      SUBROUTINE AMGT1C (Q,NSTNS2,C1SBAR,C2SBAR)\r\nC\r\nC     SUPERSONIC CASCADE CODE FOR SWEPT TURBOPROPS.\r\nC\r\n      INTEGER         SLN\r\n      REAL            M2SBAR\r\n      COMPLEX         SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,\r\n     3                F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,\r\n     4                SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     5                C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,\r\n     6                BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,\r\n     7                PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,FQ7,PRESU,\r\n     8                PRESL,Q,GUSAMP\r\n      DIMENSION       GYE(29,29),GEE(29,80),PRESU(29),PRESL(29),XUP(29),\r\n     1                XTEMP(29),GEETMP(29,40),XLOW(29),AYE(10,29),\r\n     2                INDEX(29,3),Q(NSTNS2,NSTNS2),PRES1(21),PRES2(21),\r\n     3                PRES3(21),PRES4(21),QRES4(21),SBKDE1(201),\r\n     4                SBKDE2(201),SUMSV1(201),SUMSV2(201),SVKL1(201),\r\n     5                SVKL2(201),XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STG,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACHD,\r\n     3                REDFD,BLSPC,AMACHR,TSONIC\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGM,RFREQ\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\nC\r\nC     THEORY DEPENDENT RESTRICTION OF NO MORE THAN 10 COMPUTING\r\nC     STATIONS PER STREAMLINE IS REFLECTED IN CODING.\r\nC\r\n      IF (NSTNS .GT. 10) GO TO 9993\r\nC\r\n      REDF  = REDFD\r\n      AMACH = AMACHD\r\n      AI    = CMPLX(0.0,1.0)\r\n      PI    = 3.1415927\r\n      PITCOR= BLSPC\r\n      STAG  = 90.0 - STG\r\n      SIGMA = -SIGM*PI/180.0\r\n      BETA  = SQRT(AMACH**2-1.0)\r\n      SCRK  = REDF*AMACH/(BETA**2)\r\n      DEL   = SCRK*AMACH\r\n      AMU   = REDF/(BETA**2)\r\n      SP    = PITCOR*COS(STAG*PI/180.0)*2.0\r\n      SN    = PITCOR*SIN(STAG*PI/180.0)*2.0\r\n      SPS   = SP\r\n      SNS   = SN*BETA\r\n      DSTR  = SQRT(SPS**2-SNS**2)\r\n      SPS1  = ABS(SPS-SNS)\r\n      IF (SPS1 .LT. .00001)  GO TO 9991\r\nC\r\nC     PARAMETERS RELATED TO SWEEP CHANGES\r\nC\r\n      CSBAR  = .25*(DEN*VEL**2*CHORD**2)/(REFDEN*REFVEL**2)\r\n      CSBAR1 = 2.0/CHORD\r\n      M2SBAR = -DCBDZB/CHORD\r\n      C2SSCH = CSBAR1*C2SBAR\r\n      CSBLSB = CSBAR*CSBAR1\r\n      CSBM2S = CSBAR*M2SBAR\r\n      TANLAM = TAN(SWEEP*PI/180.)\r\n      DLSDZB = DCBDZB/2.0\r\n      TD     = TANLAM*DLSDZB\r\nC\r\nC     ZERO OUT GEE\r\nC\r\n      NSTNS4 = 4*NSTNS\r\n      NSTNS8 = 8 * NSTNS\r\n      DO 50 I = 1,29\r\n      DO 50 J = 1,NSTNS8\r\n   50 GEE(I,J) = 0.0\r\n      PITAXS   = 0.0\r\n      AMOAXS   = 0.\r\n      CALL ASYCON\r\n      CALL AKP2\r\n      RL1 = 9\r\n      S1  = SPS - SNS\r\n      AA  = S1/RL1\r\n      XLSV1(1) = 0.0\r\n      DO 4541 JL = 1,9\r\n4541  XLSV1(JL+1) = JL*AA\r\n      AA  = SPS - SNS\r\n      RL2 = 19\r\n      S1  = 2.0 + SNS - SPS\r\n      TEMP= S1/RL2\r\n      XL  = AA\r\n      DO 4571 JL = 1,20\r\n      XLSV2(JL) = XL\r\n      XLSV3(JL) = XL + SNS - SPS\r\n4571  XL = XL + TEMP\r\n      XL = SNS + 2.0 - SPS\r\n      TEMP = (SPS-SNS)/RL1\r\n      DO 458 JL = 1,10\r\n      XLSV4(JL) = XL\r\n458   XL = XL + TEMP\r\nC\r\nC     ACCUMULATE PRESSURE VECTORS INTO G-MATRIX\r\nC\r\n      DO 100 NM = 1,NSTNS\r\n      NTIMES = 1\r\n      IF (NM .GT. 2) NTIMES = 2\r\n      DO 100 NMM = 1,NTIMES\r\nC\r\n      JNDX = 0\r\n 5000 IF (JNDX .EQ. 0) GO TO 5010\r\nC\r\n      IF (NM .GT. 2) GO TO 5020\r\nC\r\n      GL = 0.0\r\n      IF (NM .EQ. 1) A = TANLAM/CSBAR1\r\n      IF (NM .EQ. 1) B = 0.0\r\n      IF (NM .EQ. 2) A = 0.0\r\n      IF (NM .EQ. 2) B = TANLAM/CSBAR1\r\nC\r\n      GO TO 2047\r\nC\r\n 5020 IF (NMM .EQ. 1) GUSAMP =-AI*TANLAM/CSBAR1/2.0\r\n      IF (NMM .EQ. 1) GL = (NM-2)*PI/2.0\r\n      IF (NMM .EQ. 2) GUSAMP = AI*TANLAM/CSBAR1/2.0\r\n      IF (NMM .EQ. 2) GL =-(NM-2)*PI/2.0\r\nC\r\n      A = GUSAMP\r\n      B = 0.0\r\nC\r\n      GO TO 2047\r\nC\r\nC     DEFINE -----------------------------\r\nC              ALPAMP - PITCHING AMP\r\nC              DISAMP - PLUNGING AMP\r\nC              GUSAMP - GUST AMP\r\nC              GL -GUST WAVE NUMBER\r\n 5010 ALPAMP = 0.0\r\n      IF (NM .EQ. 2) ALPAMP = 1.0\r\n      DISAMP = 0.0\r\n      IF (NM .EQ. 1) DISAMP = 1.0\r\n      GUSAMP = 0.0\r\n      GL     = 0.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.1) GUSAMP =-(REDF+AI*TD)/2.+(NM-2)*PI/4.\r\n      IF (NM.GT.2 .AND. NMM.EQ.1) GL = (NM-2)*PI/2.0\r\n      IF (NM.GT.2 .AND. NMM.EQ.2) GUSAMP = (REDF+AI*TD)/2.+(NM-2)*PI/4.\r\n      IF (NM.GT.2 .AND. NMM.EQ.2) GL =-(NM-2)*PI/2.0\r\nC\r\n      A = (1.0+AI*REDF*PITAXS)*ALPAMP - (AI*REDF-TD)*DISAMP\r\n      B =-(AI*REDF-TD)*ALPAMP\r\n      IF (GL .EQ. 0.0) GO TO 2047\r\n      A = GUSAMP\r\n      B = 0.0\r\n 2047 CONTINUE\r\nC\r\n      CALL SUBA\r\nC\r\nC     FIND  DELTA P(LOWER-UPPER)\r\nC\r\n      DO 60 NX = 1,10\r\n      PRESU(NX) = PRES1(NX)\r\n      XUP(NX)   = XLSV1(NX)\r\n      IF (NX .EQ. 10) GO TO 55\r\n      NXX = NX + 20\r\n      PRESL(NXX) = PRES4(NX+1)\r\n      XLOW( NXX) = XLSV4(NX+1)\r\n      GO TO 610\r\n   55 PRESU(NX) = (PRES1(10) + PRES2(1))/2.0\r\n      XUP(10)   = (XLSV1(10) + XLSV2(1))/2.0\r\n 610  CONTINUE\r\n   60 CONTINUE\r\n      DO 70 NX = 1,20\r\n      NXX = NX + 10\r\n      IF (NX .EQ. 20) GO TO 65\r\n      PRESU(NXX) = PRES2(NX+1)\r\n      XUP  (NXX) = XLSV2(NX+1)\r\n      PRESL(NX)  = PRES3(NX  )\r\n      XLOW( NX)  = XLSV3(NX  )\r\n      GO TO 710\r\n   65 PRESL(20) = (PRES3(20) + PRES4(1))/2.0\r\n      XLOW(20)  = (XLSV3(20) + XLSV4(1))/2.0\r\n  710 CONTINUE\r\n   70 CONTINUE\r\nC\r\n      JX   = JNDX*4*NSTNS\r\n      NMZ  = NM + JX\r\n      NM2Z = NM + NSTNS   + JX\r\n      NM3Z = NM + 2*NSTNS + JX\r\n      NM4Z = NM + 3*NSTNS + JX\r\nC\r\n      DO 101 NMMM = 1,29\r\n      GEE(NMMM,NMZ ) = GEE(NMMM,NMZ ) + REAL(PRESL(NMMM))\r\n      GEE(NMMM,NM2Z) = GEE(NMMM,NM2Z) + AIMAG(PRESL(NMMM))\r\n      GEE(NMMM,NM3Z) = GEE(NMMM,NM3Z) + REAL(PRESU(NMMM))\r\n      GEE(NMMM,NM4Z) = GEE(NMMM,NM4Z) + AIMAG(PRESU(NMMM))\r\nC\r\n  101 CONTINUE\r\nC\r\n      IF (JNDX .NE. 0) GO TO 100\r\n      JNDX = 1\r\n      GO TO 5000\r\nC\r\n  100 CONTINUE\r\nC\r\nC     NOW DEFINE  I-MATRIX (NSTNS X 29)\r\nC\r\n      AYE(1,1) = C1SBAR*2.0 + C2SSCH*2.0\r\n      AYE(1,2) = C1SBAR*8.0/3.0 + C2SSCH*2.0\r\n      AYE(2,1) = C1SBAR*8.0/3.0 + C2SSCH*2.0\r\n      AYE(2,2) = C1SBAR*4.0 + C2SSCH*8.0/3.0\r\nC\r\n      CONZ1 = 1.0\r\nC\r\n      DO 280 I = 3,NSTNS\r\n      CONZ4 = (1.+CONZ1 )*2./(PI*(J-2))\r\n      CONZ5 = CONZ1*4./ (PI*(J-2))\r\n      CONZ6 = CONZ1*8./(PI*(J-2)) - (1.+CONZ1)*16./(PI*(J-2))**3\r\nC\r\n      AYE(I,1) = C1SBAR*CONZ5 + C2SSCH*CONZ4\r\n      AYE(I,2) = C1SBAR*CONZ6 + C2SSCH*CONZ5\r\n  280 CONZ1    = -CONZ1\r\nC\r\n      CONZ1 = 1.0\r\nC\r\n      DO 282 J = 3,29\r\n      CONZ4 = (1.+CONZ1)*2./(PI*(J-2))\r\n      CONZ5 = CONZ1*4./(PI*(J-2))\r\n      CONZ6 = CONZ1*8./(PI*(J-2)) - (1.+CONZ1)*16./(PI*(J-2))**3\r\nC\r\n      AYE(1,J) = C1SBAR*CONZ5 + C2SSCH*CONZ4\r\n      AYE(2,J) = C1SBAR*CONZ6 + C2SSCH*CONZ5\r\n  282 CONZ1    = -CONZ1\r\nC\r\n      DO 284 I = 3, NSTNS\r\nC\r\n      DO 284 J = 3,29\r\n      CONZ1 = 0.0\r\n      IF (J .EQ. I) GO TO 286\r\n      IF ((I+J)/2*2 .EQ. (I+J)) GO TO 285\r\n      CONZ1 = -16.*(I-2)*(J-2)/(PI*PI*(I-J)*(I-J)*(I+J-4)**2)\r\n  285 CONZ2 = 0.0\r\n      GO TO 284\r\n  286 CONZ1 = 1.0\r\n      CONZ2 = 1.0\r\n  284 AYE(I,J) = C1SBAR*CONZ1 + C2SSCH*CONZ2\r\nC\r\nC\r\nC     Q DUE TO PRESL ONLY\r\nC\r\nC     NOW DEFINE LARGE G MATRIX\r\nC\r\n      DO 110 I = 1,29\r\n      GYE(1,I) = 0.0\r\n  110 GYE(I,1) = 1.0\r\nC\r\nC     PUT XLOW IN XTEMP\r\nC\r\n      DO 120 I = 1,29\r\n  120 XTEMP(I) = XLOW(I)\r\n      DO 160 J = 3,29\r\n      CONST = (J-2)*PI/2.0\r\n      DO 160 I = 2,29\r\n      GYE(I,J) = SIN(CONST*XTEMP(I))\r\n  160 CONTINUE\r\n      DO 165 I = 2,29\r\n  165 GYE(I,2) = XTEMP(I)\r\nC\r\nC     PUT PRESL PARTS OF GEE IN GEETMP (UNPRIMED AND PRIMED TERMS)\r\nC\r\n      DO 1655 I = 1,29\r\n      DO 1655 J = 1,NSTNS2\r\n      GEETMP(I,J) = GEE(I,J)\r\n 1655 GEETMP(I,J+NSTNS2) = GEE(I,J+NSTNS4)\r\nC\r\nC     SOLVE FOR G-INVERSE G IN GEE MATRIV\r\nC     ISING = 1  NON-SINGULAR (GYE)\r\nC     ISING = 2  SIGULAR      (GYE)\r\nC     INDEX IS WORK STORAGE FOR ROUTINE INVERS\r\nC\r\n      ISING = -1\r\n      CALL INVERS (29,GYE,29,GEETMP,NSTNS4,DETERM,ISING,INDEX)\r\n      IF (ISING .EQ. 2) GO TO 9992\r\nC\r\nC     NOW  MULTIPLY  I*G-INVERSE*G(DELTA P'S)\r\nC\r\n      DO  360  J = 1,NSTNS\r\n      DO  360  K = 1,NSTNS\r\nC\r\n      SUMR1 = 0.0\r\n      SUMI1 = 0.0\r\n      SUMR2 = 0.0\r\n      SUMI2 = 0.0\r\nC\r\n      DO 350 I = 1,29\r\n      SUMR1 = SUMR1 + AYE(J,I)*GEETMP(I,K)\r\n      SUMI1 = SUMI1 + AYE(J,I)*GEETMP(I,K+NSTNS)\r\n      SUMR2 = SUMR2 + AYE(J,I)*GEETMP(I,K+NSTNS4)\r\n  350 SUMI2 = SUMI2 + AYE(J,I)*GEETMP(I,K+NSTNS+NSTNS4)\r\nC\r\n      CONZ1 = CSBLSB*SUMR1 + CSBM2S*SUMR2\r\n      CONZ2 = CSBLSB*SUMI1 + CSBM2S*SUMI2\r\n      CONZ3 = CSBAR*SUMR2\r\n      CONZ4 = CSBAR*SUMI2\r\nC\r\n      Q(J,K      ) = 2.0*CMPLX(CONZ1,-CONZ2)\r\n      Q(J,K+NSTNS) = 2.0*CMPLX(CONZ3,-CONZ4)\r\n      Q(J+NSTNS,K) = (0.0,0.0)\r\n  360 Q(J+NSTNS,K+NSTNS) = (0.0,0.0)\r\nC\r\nC     FINALLY, Q DUE TO (PRESL-PRESU) IS COMPUTED BY SUBTRACTING Q DUE\r\nC     TO PRESU FROM Q DUE TO PRESL ABOVE\r\nC\r\nC     LARGE G MATRIX\r\nC\r\n      DO 1101 I = 1,29\r\n      GYE(1,I) = 0.0\r\n 1101 GYE(I,1) = 1.0\r\nC\r\nC     PUT XUP IN XTEMP\r\nC\r\n      DO 1201 I = 1,29\r\n 1201 XTEMP(I) = XUP(I)\r\n      DO 1601 J = 3,29\r\n      CONST = (J-2)*PI/2.0\r\n      DO 1601 I = 2,29\r\n      GYE(I,J) = SIN(CONST*XTEMP(I))\r\n 1601 CONTINUE\r\n      DO 1651 I = 2,29\r\n 1651 GYE(I,2) = XTEMP(I)\r\nC\r\nC     PUT PRESU PARTS OF GEE IN GEETMP (UNPRIMED AND PRIMED TERMS)\r\nC\r\n      DO 2655 I = 1,29\r\n      DO 2655 J = 1,NSTNS2\r\nC\r\n      NSNS2 = NSTNS2 + J\r\n      GEETMP(I,J) = GEE(I,NSNS2)\r\n 2655 GEETMP(I,NSNS2) = GEE(I,NSNS2+NSTNS4)\r\nC\r\nC     SOLVE FOR G-INVERSE G IN GEETMP MATRIX\r\nC     ISING = 1  NON-SINGULAR (GYE)\r\nC     ISING = 2  SINGULAR GYE\r\nC     INDEX IS WORK STORAGE FOR ROUTINE INVERS\r\nC\r\n      ISING = -1\r\n      CALL INVERS (29,GYE,29,GEETMP,NSTNS4,DETERM,ISING,INDEX)\r\nC\r\n      IF (ISING .EQ. 2) GO TO 9992\r\nC\r\nC    MULTIPLY I*G-INVERS*G\r\nC\r\n      DO 3601 J = 1,NSTNS\r\n      DO 3601 K = 1,NSTNS\r\nC\r\n      SUMR1 = 0.0\r\n      SUMI1 = 0.0\r\n      SUMR2 = 0.0\r\n      SUMI2 = 0.0\r\nC\r\n      DO 3501 I = 1, 29\r\n      SUMR1 = SUMR1 + AYE(J,I)*GEETMP(I,K)\r\n      SUMI1 = SUMI1 + AYE(J,I)*GEETMP(I,K+NSTNS)\r\n      SUMR2 = SUMR2 + AYE(J,I)*GEETMP(I,K+NSTNS4)\r\n 3501 SUMI2 = SUMI2 + AYE(J,I)*GEETMP(I,K+NSTNS+NSTNS4)\r\nC\r\n      CONZ1 = CSBLSB*SUMR1 + CSBM2S*SUMR2\r\n      CONZ2 = CSBLSB*SUMI1 + CSBM2S*SUMI2\r\n      CONZ3 = CSBAR*SUMR2\r\n      CONZ4 = CSBAR*SUMI2\r\nC\r\n      Q(J,K      ) = Q(J,K) - 2.0*CMPLX(CONZ1,-CONZ2)\r\n 3601 Q(J,K+NSTNS) = Q(J,K+NSTNS) - 2.0*CMPLX(CONZ3,-CONZ4)\r\n      RETURN\r\nC\r\n 9991 WRITE (IBBOUT,3000) UFM\r\n      GO TO 9999\r\n 9992 WRITE (IBBOUT,3001) UFM\r\n      GO TO 9999\r\n 9993 WRITE (IBBOUT,3002) UFM,SLN,NSTNS\r\n 9999 CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n 3000 FORMAT (A23,' - AMG MODULE -SUBROUTINE AMGT1C', /39X,\r\n     1       'AXIAL MACH NUMB. IS EQUAL TO OR GREATER THAN ONE.')\r\n 3001 FORMAT (A23,' - AMG MODULE - LARGE G-MATRIX IS SINGULAR IN ',\r\n     1        'ROUTINE AMGT1C.')\r\n 3002 FORMAT (A23,' - AMG MODULE - NUMBER OF COMPUTING STATIONS ON ',\r\n     1       'STREAMLINE',I8,4H IS ,I3,1H. ,/39X,'SUPERSONIC CASCADE ',\r\n     2       'ROUTINE AMGT1C ALLOWS ONLY A MAXIMUM OF 10.')\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1d.f",
    "content": "      SUBROUTINE AMGT1D (AJJ,TSONX,TAMACH,TREDF,NSTNS2)\r\nC\r\nC     TRANSONIC INTERPOLATION CODE FOR SWEPT TURBOPROPS.\r\nC\r\n      INTEGER SLN\r\n      INTEGER TSONX(1)\r\nC\r\n      COMPLEX AJJ(NSTNS2,1)\r\nC\r\n      DIMENSION TAMACH(1),TREDF(1)\r\nC\r\n      COMMON /TAMG1L/IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1               REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAG,\r\n     2               CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3               REDF,BLSPC,AMACHR,TSONIC\r\n      COMMON /AMGMN /MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\nC\r\n      NUMM = 2 * NSTNS2 * NSTNS2\r\n      DO 100 NLINE = 1,NLINES\r\n      IF(TSONX(NLINE).EQ. 0) GO TO 100\r\n      NS = 0\r\n      IF(NLINE .EQ. 1) GO TO 90\r\n      IF(TAMACH(NLINE) .GE. 1.0) GO TO 20\r\nC       SUBSONIC\r\n      IF(NLINE . EQ.2) NLINE1=1\r\n      IF(NLINE . EQ.2) GO TO 93\r\n   17 NLINE1 = NLINE -2\r\n      NLINE2 = NLINE -1\r\n      GO TO 70\r\nC        SUPERSONIC\r\n   20 IF( NLINE .EQ. NLINES) GO TO 17\r\n      NS =1\r\n      GO TO 90\r\n   30 IF(NLINE1 .EQ. 0) GO TO 17\r\n      IF(NLINE2 .NE. 0) GO TO 70\r\n      NLINE2 = NLINE1\r\n      NLINE1 = NLINE-1\r\n   70 CALL INTERT(NLINE,NLINE1,NLINE2,NUMM,AJJ,TAMACH)\r\n      GO TO 100\r\nC       SEARCH FOR 1ST--2--KNOWN STREAMLINES\r\n   90 NLINE1 = 0\r\n   93 NLINE2 = 0\r\n      NNLINE = NLINE + 1\r\n      DO 96  I=NNLINE,NLINES\r\n      IF(NLINE2 .NE. 0)  GO TO 97\r\n      IF(TSONX(I).NE. 0) GO TO 96\r\n      IF(NLINE1 .EQ. 0)  NLINE1 = I\r\n      IF(NLINE1 .NE. I)  NLINE2 = I\r\n   96 CONTINUE\r\n   97 IF(NS .EQ. 0) GO TO 70\r\n      GO TO 30\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1s.f",
    "content": "      SUBROUTINE AMGT1S (INPUT,FMAT,XYZB,INDEX)\r\nC\r\nC     COMPUTE F(INVERSE) FOR THIS STREAMLINE\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),TBL(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO\r\n      COMMON /TAMG1L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\nC\r\nC     READ STREAMLINE DATA\r\nC\r\n      NSTNS3 = 3*NSTNS\r\n      CALL FREAD (INPUT,SLN,10,0)\r\n      CALL FREAD (INPUT,XYZB,NSTNS3,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-SLN  ',10,SLN,10)\r\n      IF (DEBUG) CALL BUG1 ('XYZB      ',20,XYZB,NSTNS3)\r\nC\r\nC     (1) COMPUTE BASIC TO LOCAL TRANSFORMATION\r\nC         XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM\r\nC         FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE\r\nC     (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S\r\nC     (3) COMPUTE FMAT(NSTNS X NSTNS)\r\nC     (4) COMPUTE FMAT(INVERS) - USE -\r\nC         CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\nC\r\n      XA  = XYZB(1,1)\r\n      YA  = XYZB(2,1)\r\n      ZA  = XYZB(3,1)\r\n      XB  = XYZB(1,NSTNS)\r\n      YB  = XYZB(2,NSTNS)\r\n      ZB  = XYZB(3,NSTNS)\r\n      XBA = XB - XA\r\n      YBA = YB - YA\r\n      ZBA = ZB - ZA\r\n      AL2SQ = XBA**2 + YBA**2\r\n      AL1SQ = AL2SQ  + ZBA**2\r\n      AL1 = SQRT(AL1SQ)\r\n      TBL(1,1) = XBA/AL1\r\n      TBL(1,2) = YBA/AL1\r\n      TBL(1,3) = ZBA/AL1\r\n      FMAT(1,1)= 1.0\r\n      PIC =  PI/CHORD\r\n      CH2 = 2.0/CHORD\r\n      DO 40 I = 2,NSTNS\r\n      X = TBL(1,1)*(XYZB(1,I) - XYZB(1,1))\r\n     1  + TBL(1,2)*(XYZB(2,I) - XYZB(2,1))\r\n     2  + TBL(1,3)*(XYZB(3,I) - XYZB(3,1))\r\n      FMAT(1,I) = 0.0\r\n      FMAT(I,1) = 1.0\r\n      FMAT(I,2) = CH2*X\r\n      DO 30 J = 3,NSTNS\r\n      AN  = J - 2\r\n      ARG = PIC*AN*X\r\n  30  FMAT(I,J) = SIN(ARG)\r\n  40  CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('FMAT      ',50,FMAT,NSTNS*NSTNS)\r\n      ISING = -1\r\n      CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\n      IF (DEBUG) CALL BUG1 ('FMAT-INV  ',60,FMAT,NSTNS*NSTNS)\r\n      IF (ISING .EQ. 2) GO TO 70\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE,  SINGULAR MATRIX\r\nC\r\n   70 WRITE  (IOUT,80) UFM,SLN\r\n   80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGT1S FOR',\r\n     1     ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt1t.f",
    "content": "      SUBROUTINE AMGT1T (NLINE,NL,ACPT,NSTNS,C3T,C4T)\r\nC\r\nC     GENERATE CONSTANTS C3T AND C4T FOR\r\nC     STREAMLINE NL OF SWEPT TURBOPROP BLADE.\r\nC\r\n      REAL       L1,L2,L3\r\n      INTEGER    ACPT,FILE,NAME(2)\r\n      DIMENSION  PN(3),P1(3),FN(3),F1(3),S1(3),SN(3),DATA(3)\r\n      DATA FILE/ 102 /, NAME / 4HAMGT,4H1T  /\r\nC\r\nC     INPUT VARIABLES -\r\nC     NLINE      TOTAL NO. OF STREAMLINES\r\nC     NL         PRESENT STEAMLINE\r\nC     ACPT       SCRATCH UNIT WITH BASIC COORDINATES OF NODES\r\nC     NSTNS      TOTAL NO. OF STATIONS\r\nC\r\nC     OUTPUT VARIABLES -\r\nC     C3T        CONSTANTS USED BY SUB. AND SUP. AERODYNAMIC ROUTINES\r\nC     C4T        USED IN DEFINING DATA BLOCK AJJ\r\nC\r\nC     LOCAL VARIABLES -\r\nC     PN         COORDINATES TRAILING EDGE PREVIOUS STREAMLINE\r\nC     P1         COORDINATES LEADING EDGE PREVIOUS STREAMLINE\r\nC     FN         COORDINATES TRAILING EDGE NEXT STREAMLINE\r\nC     F1         COORDINATES LEADING EDGE NEXT STREAMLINE\r\nC     S1         COORDINATES OF LEADING EDGE OF CURRENT STREAMLINE\r\nC     SN         COORDINATES OF TRAILING EDGE OF CURRENT STREAMLINE\r\nC\r\nC     EXTRACT LEADING COORDINATES OF CURRENT STREAMLINE\r\nC\r\n      CALL FREAD (ACPT,DATA,3,0)\r\n      DO 1 I = 1,3\r\n   1  S1(I) = DATA(I)\r\nC\r\nC     SKIP TO TRAILING EDGE COORDINATES OF CURRENT STREAMLINE\r\nC\r\n      NSKIP = (2-NSTNS)*3\r\n      CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM)\r\n      CALL FREAD (ACPT,DATA,3,0)\r\n      DO 2 I = 1,3\r\n  2   SN(I) = DATA(I)\r\nC\r\nC     EXTRACT COORDINATES FOR PREVIOUS--P-FOR FIRST STREAMLINE\r\nC\r\n      IF (NL .NE. 1) GO TO 10\r\n      DO 5 I = 1,3\r\n      PN(I) = SN(I)\r\n  5   P1(I) = S1(I)\r\nC\r\nC     NOW COORDINATES FOR NEXT -F- FOR LAST STREAMLINE\r\nC\r\n 10   IF (NL .NE. NLINE) GO TO 15\r\n      DO 12 I = 1,3\r\n      FN(I) = SN(I)\r\n 12   F1(I) = S1(I)\r\n      GO TO 50\r\nC\r\nC     NOW COORDINATES FOR NEXT -F- FOR ALL OTHER STREAMLINES\r\nC\r\nC     SKIP FIRST 10 WORDS OF NEXT STREAMLINE\r\nC\r\n 15   CALL READ (*905,*900,ACPT,DATA,-10,0,MM)\r\n      CALL FREAD (ACPT,DATA,3,0)\r\n      F1(1) = DATA(1)\r\n      F1(2) = DATA(2)\r\n      F1(3) = DATA(3)\r\nC\r\nC     COMPUTE SKIP TO TRAILING EDGE COORDINATES\r\nC\r\n      NSKIP = (2-NSTNS)*3\r\n      CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM)\r\n      CALL FREAD (ACPT,DATA,3,0)\r\n      FN(1) = DATA(1)\r\n      FN(2) = DATA(2)\r\n      FN(3) = DATA(3)\r\n 50   A1 = SN(1) - S1(1)\r\n      B1 = SN(2) - S1(2)\r\n      C1 = SN(3) - S1(3)\r\nC\r\n      A2 = FN(1) - P1(1)\r\n      B2 = FN(2) - P1(2)\r\n      C2 = FN(3) - P1(3)\r\nC\r\n      A3 = PN(1) - F1(1)\r\n      B3 = PN(2) - F1(2)\r\n      C3 = PN(3) - F1(3)\r\nC\r\n      A4 = B2*C1 - B1*C2\r\n      B4 = C2*A1 - C1*A2\r\n      C4 = A2*B1 - A1*B2\r\nC\r\n      A5 = B1*C3 - B3*C1\r\n      B5 = C1*A3 - C3*A1\r\n      C5 = A1*B3 - A3*B1\r\nC\r\n      L1 = SQRT(A1**2 + B1**2 + C1**2)\r\n      L2 = SQRT(A4**2 + B4**2 + C4**2)\r\n      L3 = SQRT(A5**2 + B5**2 + C5**2)\r\nC\r\n      A6 = 0.5*(A4/L2 + A5/L3)\r\n      B6 = 0.5*(B4/L2 + B5/L3)\r\n      C6 = 0.5*(C4/L2 + C5/L3)\r\nC\r\n      A7 = (B1*C6 - B6*C1)/L1\r\n      B7 = (C1*A6 - C6*A1)/L1\r\n      C7 = (A1*B6 - A6*B1)/L1\r\nC\r\n      A8 = F1(1) - P1(1)\r\n      B8 = F1(2) - P1(2)\r\n      C8 = F1(3) - P1(3)\r\nC\r\n      A9 = FN(1) - PN(1)\r\n      B9 = FN(2) - PN(2)\r\n      C9 = FN(3) - PN(3)\r\nC\r\n      W1 = A7*A8 + B7*B8 + C7*C8\r\n      W2 = A7*A9 + B7*B9 + C7*C9\r\nC\r\n      C3T = (W2-W1)/(2.0*L1)\r\n      C4T = W1/2.0\r\nC\r\n      IF (NL .EQ. NLINE) RETURN\r\nC\r\nC     RETURN TO START OF RECORD\r\nC\r\n      CALL BCKREC (ACPT)\r\nC\r\nC     COMPUTE SKIP TO NEXT STREAMLINE AT EXIT FROM THIS ROUTINE\r\nC\r\n      NSKIP = -6 - (10+3*NSTNS)*NL\r\n      CALL READ (*905,*900,ACPT,DATA,NSKIP,0,MM)\r\nC\r\nC     SET PREVIOUS COORDINATES -P- TO PRESENT STREAMLINE COORDINATES\r\nC\r\n      DO 800 I = 1,3\r\n      PN(I) = SN(I)\r\n 800  P1(I) = S1(I)\r\n      RETURN\r\nC\r\nC     E-O-R    ENCOUNTERED\r\n 900  IP1 = -3\r\n      GO TO 999\r\nC\r\nC     E-O-F    ENCOUNTERED\r\nC\r\n 905  IP1 = -2\r\n 999  CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt2.f",
    "content": "      SUBROUTINE AMGT2 (INPUT,D1JK,D2JK)\r\nC\r\nC     DRIVER FOR SWEPT TURBOPROP BLADES (AEROELASTIC THEORY 7).\r\nC\r\nC     COMPUTATIONS ARE FOR D1JK AND D2JK MATRICES.\r\nC     FOR SWEPT TURBOPROPS K-SET = J-SET = 2*NSTNS*NLINES.\r\nC\r\nC     D1JK = F(INVERSE)TRANSPOSE\r\nC\r\nC     D2JK = NULL\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         D1JK,D2JK,TD1JK,TD2JK,ECORE,SYSBUF,NAME(2),SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       IZ(1)\r\n      COMMON /AMGP2 / TD1JK(7),TD2JK(7)\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /TAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\n      EQUIVALENCE     (WORK(1),IZ(1))\r\n      DATA    NAME  / 4HAMGT,4H2   /\r\nC\r\nC     READ PARAMETERS IREF,MINMAC,MAXMAC,NLINES AND NSTNS\r\nC\r\n      CALL FREAD (INPUT,IREF,5,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REF  ',5,IREF,5)\r\nC\r\nC     READ REST OF ACPT RECORD INTO OPEN CORE AND LOCATE REFERENCE\r\nC     PARAMETERS REFSTG,REFCRD,REFMAC,REFDEN,REFVEL AND REFSWP\r\nC\r\n      ECORE = KORSZ(IZ) - 3*SYSBUF\r\n      CALL READ (*10,*10,INPUT,IZ,ECORE,1,NWAR)\r\n      GO TO 120\r\n   10 NDATA = 3*NSTNS + 10\r\n      IF (DEBUG) CALL BUG1 ('ACPT-REST ',10,IZ,NWAR)\r\n      IRSLN = 0\r\n      NLINE = 0\r\n      DO 20 I = 1,NWAR,NDATA\r\n      IF (IREF .EQ. IZ(I)) IRSLN = I\r\n      NLINE = NLINE + 1\r\n   20 CONTINUE\r\nC\r\nC     DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP\r\nC     STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE.\r\nC\r\n      IPTR  = NDATA*(NLINES-1)\r\n      XSIGN = 1.0\r\n      IF (WORK(IPTR+15) .LT. WORK(IPTR+12)) XSIGN = -1.0\r\nC\r\nC     DID IREF MATCH AN SLN OR IS THE DEFAULT TO BE TAKEN (BLADE TIP)\r\nC\r\n      IF (IRSLN .EQ. 0) IRSLN = (NLINES-1)*NDATA + 1\r\n      REFSTG = WORK(IRSLN+2)\r\n      REFCRD = WORK(IRSLN+3)\r\n      REFMAC = WORK(IRSLN+6)\r\n      REFDEN = WORK(IRSLN+7)\r\n      REFVEL = WORK(IRSLN+8)\r\n      REFSWP = WORK(IRSLN+9)\r\nC\r\nC     REPOSITION ACPT TO BEGINNING OF BLADE DATA.\r\nC\r\n      CALL BCKREC (INPUT)\r\n      CALL FREAD  (INPUT,0,-6,0)\r\nC\r\n      IF (DEBUG) CALL BUG1 ('TAMG2L    ',22,IREF,27)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      NSTNS2 = 2*NSTNS\r\n      NSNS   = NSTNS*NSTNS\r\n      IP1    = 1\r\n      IP2    = IP1 + NSNS\r\n      NEXT   = IP2 + 3*NSTNS\r\n      IF (NEXT .GT. ECORE) GO TO 120\r\nC\r\nC     COMPUTE F(INVERSE) FOR EACH STREAMLINE\r\nC\r\n      NN = II + NSTNS - 1\r\n      DO 100 NLINE = 1,NLINES\r\n      CALL AMGT2A (INPUT,WORK(IP1),WORK(IP2),WORK(IP2))\r\nC\r\nC     OUTPUT D1JK (=F(INVERSE)TRANSPOSE) FOR THIS STREAMLINE.\r\nC\r\n      IP3 = IP2 + NSTNS - 1\r\n      DO 50 I = 1,NSTNS\r\n      K   = I\r\n      DO 30 J = IP2,IP3\r\n      WORK(J) = WORK(K)\r\n   30 K   = K + NSTNS\r\n      CALL PACK (WORK(IP2),D1JK,TD1JK)\r\n      IF (DEBUG) CALL BUG1 ('D1JK      ',40,WORK(IP2),NSTNS)\r\n   50 CONTINUE\r\n      II = II + NSTNS\r\n      NN = NN + NSTNS\r\n      DO 80 I = 1,NSTNS\r\n      K = I\r\n      DO 70 J = IP2,IP3\r\n      WORK(J) = WORK(K)\r\n   70 K = K + NSTNS\r\n      CALL PACK (WORK(IP2),D1JK,TD1JK)\r\n      IF (DEBUG) CALL BUG1 ('D1JK      ',70,WORK(IP2),NSTNS)\r\n   80 CONTINUE\r\n      II = II + NSTNS\r\n      IF (NLINE .EQ. NLINES) GO TO 100\r\n      NN = NN + NSTNS\r\n  100 CONTINUE\r\nC\r\nC     OUTPUT D2JK = NULL\r\nC\r\n      DO 110 ICOL = 1,NK\r\n      CALL BLDPK  (ITI,ITO,D2JK,0,0)\r\n  110 CALL BLDPKN (D2JK,0,TD2JK)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NOT ENOUGH CORE\r\nC\r\n  120 CALL MESAGE (-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amgt2a.f",
    "content": "      SUBROUTINE AMGT2A (INPUT,FMAT,XYZB,INDEX)\r\nC\r\nC     COMPUTE F(INVERSE) FOR THIS STREAMLINE\r\nC\r\n      LOGICAL         TSONIC,DEBUG\r\n      INTEGER         SLN\r\n      REAL            MINMAC,MAXMAC,MACH\r\n      DIMENSION       FMAT(NSTNS,NSTNS),XYZB(3,NSTNS),INDEX(1),TBL(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /AMGMN / MCB(7),NROW,DUM(2),REFC,SIGMA,RFREQ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISO\r\n      COMMON /TAMG2L/ IREF,MINMAC,MAXMAC,NLINES,NSTNS,REFSTG,REFCRD,\r\n     1                REFMAC,REFDEN,REFVEL,REFSWP,SLN,NSTNSX,STAGER,\r\n     2                CHORD,DCBDZB,BSPACE,MACH,DEN,VEL,SWEEP,AMACH,\r\n     3                REDF,BLSPC,AMACHR,TSONIC,XSIGN\r\n      COMMON /AMGBUG/ DEBUG\r\nC\r\nC     READ STREAMLINE DATA\r\nC\r\n      NSTNS3 = 3*NSTNS\r\n      CALL FREAD (INPUT,SLN,10,0)\r\n      CALL FREAD (INPUT,XYZB,NSTNS3,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT-SLN  ',10,SLN,10)\r\n      IF (DEBUG) CALL BUG1 ('XYZB      ',20,XYZB,NSTNS3)\r\nC\r\nC     (1) COMPUTE BASIC TO LOCAL TRANSFORMATION\r\nC         XYZB ARRAY CONTAINS X,Y,Z COORDINATES IN BASIC SYSTEM\r\nC         FOR ALL NODES ON THE STREAMLINE LEADING EDGE TO TRAILING EDGE\r\nC     (2) TRANSFORM BASIC X,Y,Z ON STREAMLINE TO LOCAL X,Y,Z-S\r\nC     (3) COMPUTE FMAT(NSTNS X NSTNS)\r\nC     (4) COMPUTE FMAT(INVERS) - USE -\r\nC         CALL INVERS(NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\nC\r\n      XA  = XYZB(1,1)\r\n      YA  = XYZB(2,1)\r\n      ZA  = XYZB(3,1)\r\n      XB  = XYZB(1,NSTNS)\r\n      YB  = XYZB(2,NSTNS)\r\n      ZB  = XYZB(3,NSTNS)\r\n      XBA = XB - XA\r\n      YBA = YB - YA\r\n      ZBA = ZB - ZA\r\n      AL2SQ = XBA**2 + YBA**2\r\n      AL1SQ = AL2SQ  + ZBA**2\r\n      AL1 =  SQRT(AL1SQ)\r\nC\r\nC     EVAL  TBL  ROW 1\r\nC\r\n      TBL(1,1) = XBA/AL1\r\n      TBL(1,2) = YBA/AL1\r\n      TBL(1,3) = ZBA/AL1\r\n      FMAT(1,1)= 1.0\r\n      PIC =  PI/CHORD\r\n      CH2 = 2.0/CHORD\r\n      DO 40 I = 2,NSTNS\r\n      X = TBL(1,1)*(XYZB(1,I) - XYZB(1,1))\r\n     1  + TBL(1,2)*(XYZB(2,I) - XYZB(2,1))\r\n     2  + TBL(1,3)*(XYZB(3,I) - XYZB(3,1))\r\n      FMAT(1,I) = 0.0\r\n      FMAT(I,1) = 1.0\r\n      FMAT(I,2) = CH2*X\r\n      DO 30 J = 3,NSTNS\r\n      AN  = J - 2\r\n      ARG = PIC*AN*X\r\n  30  FMAT(I,J) = SIN(ARG)\r\n  40  CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('FMAT      ',50,FMAT,NSTNS*NSTNS)\r\n      ISING = -1\r\n      CALL INVERS (NSTNS,FMAT,NSTNS,DUM1,0,DETERM,ISING,INDEX)\r\n      IF (DEBUG) CALL BUG1 ('FMAT-INV  ',60,FMAT,NSTNS*NSTNS)\r\n      IF (ISING .EQ. 2) GO TO 70\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE.  SINGULAR MATRIX\r\nC\r\n   70 WRITE  (IOUT,80) UFM,SLN\r\n   80 FORMAT (A23,' -AMG MODULE- SINGULAR MATRIX IN ROUTINE AMGT2A FOR',\r\n     1     ' STREAML2, SLN =',I3, /39X,'CHECK STREAML2 BULK DATA CARD.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/amp.f",
    "content": "      SUBROUTINE AMP\r\nC\r\nC     THIS IS THE DMAP DRIVER FOR AMP\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC     AMP  AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO/\r\nC          QHHL,QJHL/V,N,NOVE/V,N,XQHHL  $\r\nC\r\nC     D1JE AND D2JE MAY BE PURGED\r\nC\r\nC     QHHL AND QJHL ARE APPEND TYPE FILES\r\nC\r\nC     QJHL MAY BE PURGED\r\nC\r\nC     DATA BLOCK ASSIGNMENTS                           COMPUTED BY   USE\r\nC\r\nC     SCR1   --OLD QHHL                                AMPA        A,D\r\nC     SCR2   --OLD QJHL                                AMPA        A,C\r\nC     SCR3   --INDEX OF WORK TO BE DONE                AMPA        A,MOD\r\nC     SCR4   --DJH1                                    AMPB        B,C\r\nC     SCR5   --DJH2                                    AMPB        B,C\r\nC     SCR6   --GKI                                     AMPB        B,D\r\nC     SCR7   --DJH                                     AMPC        C,C\r\nC     SCR8   --QJHUA                                   AMPC        C,D\r\nC     SCR9   --SCRATCH FILE                                       B,C,D\r\nC     SCR10  --SCRATCH FILE                                       B,C,D\r\nC     SCR11  --SCRATCH FILE                                       B,C,D\r\nC     SCR12  --SCRATCH FILE                                       C\r\nC     SCR13  --SCRATCH FILE                                       C\r\nC     SCR14  --SCRATCH FILE                                       C\r\nC\r\nC     VARIABLES\r\nC     NAME          MEANING\r\nC     -------      ---------------\r\nC     NCOL          NUMBER OF COLUMNS IN SUBMATRIX OF AJJL\r\nC     NSUB          ACTUAL NUMBER OF SUBMATRICES ON AJJL\r\nC     XM            CURRENT M\r\nC     XK            CURRENT K\r\nC     AJJCOL        COLUMN NUMBER IN AJJL WHERE CURRENT SUBMATRIX STARTS\r\nC     QHHCOL        COLUMN NUMBER IN QHH AND QJH WHERE SUBMATRIX STARTS\r\nC                        0 MEANS RECOMPUTE\r\nC     NGP           NUMBER OF GROUPS IN AJJL\r\nC     NGPD          PAIRS FOR EACH GROUP - 1--THEORY -1 =D.L.\r\nC                                          2--NUMBER OF COLUM\r\nC                                          2--NUMBER OF COLS IN GROUP\r\nC     NOH           NUMBER OF H D.O.F.\r\nC     IDJH          FLAG TO RECOMPUTE DJH IF K CHANGES\r\nC     IMAX          NUMBER OF M-K PAIRS\r\nC     IANY          FLAG TO INDICATE SOME CALCULATION MUST BE PERFORMED\r\nC     ITL           MAXIMUM TIME FOR ANY LOOP\r\nC     XKO           OLD VALUE OF K\r\nC\r\nC\r\n      INTEGER  AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO,QHHL,\r\n     1  QJHL,      SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,     SCR8,SCR9,\r\n     2  SCR10,SCR11,SCR12,SCR13,SCR14,SYSBUF,XQHHL,AJJCOL,QHHCOL,\r\n     3  MCB(7),NAME(2)\r\n      INTEGER QHJL\r\n      COMMON /SYSTEM/SYSBUF,NOUT\r\n      COMMON /BLANK/NOUE,XQHHL,IGUST\r\n      COMMON /AMPCOM/NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30),\r\n     1   MCBQHH(7),MCBQJH(7),NOH,IDJH\r\n     1  ,MCBRJH(7)\r\n      COMMON /CDCMPX/ISK(32),IB,IBBAR\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      DATA  AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETA,AERO/\r\n     1      101 ,102 ,103 ,104 ,105 ,106 ,107 ,108 ,109 ,110 /\r\n      DATA  QHHL,QJHL,NAME /201,202,4HAMP ,1H /\r\n      DATA QHJL /203/\r\n      DATA  SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9,SCR10,SCR11,\r\n     1SCR12,SCR13,SCR14/301,302,303,304,305,306,307,308,309,310,311,312,\r\n     2 313,314 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IBUF1 = KORSZ(IZ) -SYSBUF+1\r\n      MCB(1) = PHIDH\r\n      CALL RDTRL(MCB(1))\r\n      NOH=MCB(2)\r\n      MCBRJH(1)=QHJL\r\n      IB = 0\r\n      IBBAR = 0\r\nC\r\nC     BUILD INDEXES\r\nC\r\n      CALL AMPA(AERO,QJHL,QHHL,AJJL,SCR1,SCR2,SCR3,IMAX,IANY)\r\nC\r\nC     COMPUTE DJH AND GKI\r\nC\r\nC\r\nC     IF NO NEW VALUES ARE TO BE COMPUTED SKIP AMPB\r\nC\r\n      IF(IANY.NE.0)GO TO 90\r\n      CALL AMPB(PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA,SCR4,SCR5,SCR6,\r\n     1 SCR9,SCR10,SCR11)\r\n   90 CONTINUE\r\nC\r\nC     LOOP ON MK PAIRS\r\nC\r\n      XKO=-1.0\r\n      IOP=0\r\n      ITL=0\r\n      DO 100 I = 1, IMAX\r\n      CALL KLOCK(ITS)\r\n      CALL GOPEN(SCR3,IZ(IBUF1),IOP)\r\n      IOP=2\r\n      CALL FREAD(SCR3,XM,4,1)\r\n      CALL CLOSE(SCR3,2)\r\nC\r\nC     COMPUTE QJH\r\nC\r\n      IDJH=0\r\n      IF(XK.EQ.XKO)IDJH=1\r\n      CALL AMPC(SCR4,SCR5,SCR7,AJJL,QJHL,SCR2,SCR8,SCR9,SCR10,SCR11,\r\n     1   SCR12,SCR13,SCR14)\r\n      IF(QHHCOL .EQ. 0) XKO = XK\r\nC\r\nC     COMPUTE QHH\r\nC\r\n      IF(MCBQHH(1).LE.0)GO TO 50\r\n      CALL AMPD(SCR8,SCR1,SKJ,SCR6,QHHL,SCR9,SCR10,SCR11,SCR12)\r\n   50 CONTINUE\r\n      IF(I.EQ.IMAX)GO TO 100\r\nC\r\nC     CHECK TIME\r\nC\r\n      CALL KLOCK(ITF)\r\n      CALL TMTOGO(ITMTO)\r\n      ITL=MAX0(ITF-ITS,1,ITL)\r\n      IF(1.1*ITL.GE.ITMTO)GO TO 200\r\n  100 CONTINUE\r\nC\r\nC     FINISH UP\r\nC\r\n  110 IF(MCBQHH(1).GT.0)CALL WRTTRL(MCBQHH)\r\n      IF(MCBQJH(1).GT.0)CALL WRTTRL(MCBQJH)\r\n      XQHHL=-1\r\n      IF(IGUST .LE. 0) RETURN\r\nC\r\nC     COMPUTE QHJL\r\nC          NOTE  QHJL IS REALLY QJHL\r\nC\r\nC     FIRST COMPUTE GKH ONTO SCR4\r\nC\r\nC\r\n      CALL AMPE(PHIDH,GTKA,SCR4,SCR5,SCR6,USETA)\r\nC\r\nC     LOOP ON GROUPS WITHIN MK PAIRS FOR QHJL\r\nC\r\n      CALL AMPF(SKJ,SCR4,AJJL,QHJL,SCR3,IMAX,SCR5,SCR6,SCR7,SCR8,SCR9,\r\n     1 SCR10,SCR11,SCR12,SCR13,SCR1)\r\n      RETURN\r\nC\r\nC     INSUFFICIENT TIME TO COMPLETE\r\nC\r\n  200 CALL MESAGE(45,IMAX-I,NAME)\r\n      GO TO 110\r\n      END\r\n"
  },
  {
    "path": "mis/ampa.f",
    "content": "      SUBROUTINE AMPA (AERO,QJH,QHH,AJJL,QHHLO,QJHLO,INDEX,IMAX,IANY)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO\r\nC         1. INITIALIZE QHJ AND QHH\r\nC         2. COPY USEFUL DATA FROM QJH AND QHH TO QHHLO AND  QJHLO\r\nC         3. SET UP INDEX, IMAX,IANY, AND AMPCOM\r\nC\r\nC     OPEN CORE IS LAID OUT AS FOLLOWS\r\nC\r\nC     CONTENTS                POINTER                  LENGTH\r\nC     --------                -------                  ------\r\nC     AJJL HEADER\r\nC     NCOL\r\nC     NSUB\r\nC     M-K PAIRS               IAJJL                    2*NSUB +2\r\nC      .\r\nC      .\r\nC      .\r\nC     AERO RECORD 2           IAERO                    2* IMAX\r\nC     M- K  PAIRS\r\nC      .\r\nC      .\r\nC      .\r\nC     QHH HEADER RECORD(RST)\r\nC     NOH (OLD)\r\nC     M- K PAIRS              IQHH                     2*NQHH\r\nC       .\r\nC       .\r\nC       .\r\nC     BUFFER2                 IBUF2\r\nC     BUFFER1                 IBUF1\r\nC\r\nC\r\nC     SPECIAL CODE EXISTS IN CASE AJJK HEADER HAS ONLY 2 WORDS\r\nC\r\n      INTEGER         AERO,QJH,QHH,AJJL,QHHLO,QJHLO,XQHHL,SYSBUF,\r\n     1                NAME(2),MCBAJJ(7),FILE,AJJCOL,QHHCOL\r\n      REAL            Z(1)\r\n      COMMON /UNPAKX/ IT1,II,JJ,INCR\r\n      COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC\r\n      COMMON /BLANK / NOUE,XQHHL,IGUST\r\n      COMMON /AMPCOM/ NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30),\r\n     1                MCBQHH(7),MCBQJH(7),NOH,IDJH,MCBRJH(7)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    NAME  / 4HAMPA,4H..../\r\nC\r\nC     INITIALIZE\r\nC\r\n      MCBAJJ(1) = AJJL\r\n      CALL RDTRL (MCBAJJ)\r\n      MCBQHH(1) = QHH\r\n      CALL RDTRL (MCBQHH)\r\n      MCBQJH(1) = QJH\r\n      CALL RDTRL (MCBQJH)\r\n      IANY = 1\r\n      IBUF1= KORSZ(IZ) - SYSBUF + 1\r\n      IBUF2= IBUF1 - SYSBUF\r\nC\r\nC     EXTRACT DATA FROM AJJL HEADER\r\nC\r\n      FILE = AJJL\r\n      CALL OPEN (*900,AJJL,IZ(IBUF1),0)\r\n      CALL READ (*910,*920,AJJL,IZ,-2,0,IFLAG)\r\n      CALL READ (*910,*30,AJJL,IZ,IBUF2-1,0,IFLAG)\r\n      GO TO 980\r\nC\r\nC     PROCESS AJJL  DATA\r\nC\r\n   30 CALL CLOSE (AJJL,1)\r\n      NOAJJH= 0\r\n      IAJJL = 4\r\n      IF (IFLAG .EQ. 0) GO TO 50\r\n      NCOL = IZ(1)\r\n      IZX  = 3\r\n      NSUB = MIN0(IZ(IZX),MCBAJJ(2)/NCOL)\r\n      NGP  = IZ(2*NSUB+4)\r\n      K    = 2*NSUB + 5\r\n      IAERO= K - 1\r\n      DO 35 I = 1,NGP\r\n      NGPD(1,I) = IZ(K  )\r\n      NGPD(2,I) = IZ(K+1)\r\n      K = K + 3\r\n   35 CONTINUE\r\n      GO TO 55\r\nC\r\nC     NO AJJ HEADER DATA\r\nC\r\n   50 NOAJJH = 1\r\n      IAERO  = 3\r\nC\r\nC     BRING IN AERO DATA\r\nC\r\n   55 CONTINUE\r\n      CALL GOPEN (AERO,IZ(IBUF1),0)\r\n      FILE = AERO\r\n      CALL FWDREC (*910,AERO)\r\n      NZ = IBUF2 - IAERO\r\n      CALL READ (*910,*60,AERO,IZ(IAERO),NZ,0,IFLAG)\r\n      GO TO 980\r\nC\r\nC     AERO DATA IN CORE\r\nC\r\n   60 CALL CLOSE (AERO,1)\r\n      IMAX = IFLAG/2\r\n      IF (NOAJJH .EQ. 0) GO TO 70\r\nC\r\nC     FIX UP FOR AJJ MISSING HEADER\r\nC\r\n      NCOL = MCBAJJ(2)/IMAX\r\n      NSUB = IMAX\r\n      NGP  = 1\r\n      NGPD(1,1) = 1\r\n      NGPD(2,1) = NCOL\r\n      IAERO = IFLAG + 3\r\n      K = IAERO\r\n      DO 65 I = 1, IFLAG\r\n      IZ(K) = IZ(I+2)\r\n      K = K+1\r\n   65 CONTINUE\r\nC\r\nC     PUT HEADERS FROM OLD QHH IN CORE\r\nC\r\n   70 IF (XQHHL .EQ. 1) GO TO 80\r\n      FILE = QHH\r\n      CALL OPEN (*900,QHH,IZ(IBUF1),0)\r\n      CALL FREAD (QHH,IZ,-2,0)\r\n      IQHH = IAERO + 2*IMAX + 2\r\n      NZ   = NZ - 2*IMAX\r\n      CALL READ (*910,*75,QHH,IZ(IQHH),NZ,0,IFLAG)\r\n      GO TO 980\r\n   75 CALL CLOSE (QHH,1)\r\n      IQHH = IQHH + 2\r\n      NQHH = MIN0((IFLAG-2)/2,MCBQHH(2)/NOH)\r\nC\r\nC     BUILD INDEX FILE\r\nC\r\n   80 CONTINUE\r\n      I = 0\r\n      CALL GOPEN (INDEX,IZ(IBUF1),1)\r\n   90 CONTINUE\r\n      XM =  Z(IAERO+I  )\r\n      XK =  Z(IAERO+I+1)\r\nC\r\nC     SEARCH FOR COLUMN NUMBER IN AJJL\r\nC\r\n      J  =  0\r\n  100 CONTINUE\r\n      XMA = Z(IAJJL+J  )\r\n      XKA = Z(IAJJL+J+1)\r\n      IF (XMA.EQ.XM .AND. XKA.EQ.XK) GO TO 120\r\n      J =  J + 2\r\n      IF (J .GE. 2*NSUB) CALL MESAGE (-7,0,NAME)\r\n      GO TO 100\r\nC\r\nC     FOUND IN AJJL\r\nC\r\n  120 CONTINUE\r\n      AJJCOL = (J/2)*NCOL + 1\r\nC\r\nC     SEARCH FOR COLUMN NUMBER IN QHH\r\nC\r\n      QHHCOL = 0\r\n      IF (XQHHL .EQ. 1) GO TO 140\r\n      J = 0\r\n  130 CONTINUE\r\n      XMA = Z(IQHH+J  )\r\n      XKA = Z(IQHH+J+1)\r\n      IF (XMA.EQ.XM .AND. XKA.EQ.XK) GO TO 150\r\n      J = J + 2\r\n      IF (J .GE. 2*NQHH) GO TO 140\r\n      GO TO 130\r\nC\r\nC     FOUND IN QHH\r\nC\r\n  150 QHHCOL = (J/2)*NOH + 1\r\nC\r\nC     WRITE ON INDEX\r\nC\r\n  140 CALL WRITE (INDEX,XM,4,1)\r\n      IF (QHHCOL .EQ. 0) IANY = 0\r\n      I = I + 2\r\n      IF (I .GE. 2*IMAX) GO TO 200\r\n      GO TO 90\r\nC\r\nC     DONE WITH INDEX\r\nC\r\n  200 CALL CLOSE (INDEX,1)\r\nC\r\nC     COPY OLD  QHH  ONTO QHHLO\r\nC\r\n      IF (XQHHL .EQ. 1) GO TO 300\r\n      IT1  = MCBQHH(5)\r\n      IT2  = IT1\r\n      IT3  = IT1\r\n      INCR = 1\r\n      INCR1= 1\r\n      IF (MCBQHH(1) .LE. 0) GO TO 230\r\n      CALL GOPEN (QHH,IZ(IBUF1),0)\r\n      CALL GOPEN (QHHLO,IZ(IBUF2),1)\r\n      NCLQHH    = MCBQHH(2)\r\n      MCBQHH(2) = 0\r\n      MCBQHH(6) = 0\r\n      MCBQHH(7) = 0\r\n      MCBQHH(1) = QHHLO\r\n      CALL CYCT2B (QHH,QHHLO,NCLQHH,IZ,MCBQHH)\r\n      CALL CLOSE (QHH,1)\r\n      CALL CLOSE (QHHLO,1)\r\n      CALL WRTTRL (MCBQHH)\r\nC\r\nC     COPY OLD QJH ONTO QJHLO\r\nC\r\n  230 CONTINUE\r\nC\r\nC     COPY QJH ONTO QJHLO\r\nC\r\n      IF (MCBQJH(1) .LE. 0) GO TO 250\r\n      CALL GOPEN (QJH,IZ(IBUF1),0)\r\n      CALL GOPEN (QJHLO,IZ(IBUF2),1)\r\n      NCLQJH    = MCBQJH(2)\r\n      MCBQJH(1) = QJHLO\r\n      MCBQJH(2) = 0\r\n      MCBQJH(6) = 0\r\n      MCBQJH(7) = 0\r\n      CALL CYCT2B (QJH,QJHLO,NCLQJH,IZ,MCBQJH)\r\n      CALL CLOSE (QJH,1)\r\n      CALL CLOSE (QJHLO,1)\r\n      CALL WRTTRL (MCBQJH)\r\n  250 CONTINUE\r\nC\r\nC     PUT HEADERS ON NEW OUTPUT FILES\r\nC\r\n  300 CONTINUE\r\n      IF (MCBQHH(1) .LE. 0) GO TO 350\r\n      FILE  = QHH\r\n      CALL OPEN (*900,QHH,IZ(IBUF1),1)\r\n      CALL FNAME (QHH,MCBQHH)\r\n      CALL WRITE (QHH,MCBQHH,2,0)\r\n      CALL WRITE (QHH,NOH,1,0)\r\n      CALL WRITE (QHH,IMAX,1,0)\r\n      CALL WRITE (QHH,IZ(IAERO),2*IMAX,1)\r\n      CALL CLOSE (QHH,3)\r\n      MCBQHH(1) = QHH\r\n      MCBQHH(2) = 0\r\n      MCBQHH(3) = NOH\r\n      MCBQHH(4) = 2\r\n      MCBQHH(5) = 2 + IPREC\r\n      MCBQHH(6) = 0\r\n      MCBQHH(7) = 0\r\n  350 CONTINUE\r\n      IF (MCBQJH(1) .LE. 0) GO TO 360\r\n      FILE = QJH\r\n      CALL OPEN (*900,QJH,IZ(IBUF1),1)\r\n      CALL FNAME (QJH,MCBQJH)\r\n      CALL WRITE (QJH,MCBQJH,2,0)\r\n      CALL WRITE (QJH,NOH,1,0)\r\n      CALL WRITE (QJH,IMAX,1,0)\r\n      CALL WRITE (QJH,IZ(IAERO),2*IMAX,1)\r\n      CALL CLOSE (QJH,3)\r\n      MCBQJH(1) = QJH\r\n      MCBQJH(2) = 0\r\n      MCBQJH(3) = NCOL\r\n      MCBQJH(4) = 2\r\n      MCBQJH(5) = 2 + IPREC\r\n      MCBQJH(6) = 0\r\n      MCBQJH(7) = 0\r\n  360 CONTINUE\r\n      IANY = 0\r\nC\r\nC     PUT HEADER ON QHJL\r\nC\r\n      IF (IGUST .LE. 0) RETURN\r\n      FILE = MCBRJH(1)\r\n      CALL OPEN (*900,FILE,IZ(IBUF1),1)\r\n      CALL FNAME (FILE,MCBRJH(2))\r\n      CALL WRITE (FILE,MCBRJH(2),2,0)\r\n      CALL WRITE (FILE,NOH,1,0)\r\n      CALL WRITE (FILE,IMAX,1,0)\r\n      CALL WRITE (FILE,IZ(IAERO),2*IMAX,1)\r\n      CALL CLOSE (FILE,3)\r\n      CALL MAKMCB (MCBRJH,FILE,NCOL,2,2+IPREC)\r\n      CALL WRTTRL (MCBRJH)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1 = -1\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n  910 IP1 = -2\r\n      GO TO 901\r\n  920 IP1 = -3\r\n      GO TO 901\r\n  980 IP1 = -8\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/ampb.f",
    "content": "      SUBROUTINE AMPB(PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA,\r\n     1 DJH1,DJH2,GKI,SCR1,SCR2,SCR3)\r\nC\r\nC     THE PURPOSE OF THIS SUBROUTINE IS TO SOLVE FOR THE DJH MATRICES.\r\nC      IT ALSO COMPUTES GKI FOR LATER USE.\r\nC      THE STEPS ARE,\r\nC\r\nC     1. PHIDH GOES TO   1       1      1\r\nC                        1 PHIA  1      1\r\nC                        1 ----- 1 ---- 1\r\nC                        1       1      1\r\nC                        1       1      1\r\nC\r\nC     2. GKI =GTKA$PHIA\r\nC\r\nC     3. DJI1=D1JK*GKI\r\nC     4. DJI2=D2JK*GKI\r\nC     5.\r\nC     6. DJH1= 1 DJI1 1 D1JE 1\r\nC              1      1      1\r\nC     7. DJH2= 1 DJI2 1 D2JE 1\r\nC\r\nC\r\nC\r\n      INTEGER PHIDH,GTKA,D1JK,D2JK,D1JE,D2JE,USETA,DJH1,DJH2,GKI,\r\n     1 SCR1,SCR2,SCR3,PHIA,DJI1,DJI2,MCB(7),UD,UA,UE\r\nC\r\n      COMMON /BLANK/NOUE\r\n      COMMON /PATX/LC,NS0,NS1,NS2,IUSET\r\n      COMMON /BITPOS/UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,UD\r\n     1 ,UPS,USA,UK,UPA\r\n      COMMON/ZZZZZZ/Z(1)\r\n      COMMON/SYSTEM/SYSBUF,NOUT,SKIP(52),IPREC\r\n      COMMON /AMPCOM/ NCOLJ\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      MCB(1)=PHIDH\r\n      CALL RDTRL(MCB)\r\n      NOH=MCB(2)\r\nC\r\nC     DETERMINE IF PHIDH MUST BE MODIFIED\r\nC\r\n      IF(NOUE.EQ.-1)GO TO 20\r\nC\r\nC     BUILD PARTITIONING VECTORS\r\nC\r\n      IUSET = USETA\r\n      LC=KORSZ(Z)\r\n      CALL CALCV(SCR1,UD,UA,UE,Z)\r\n      CALL AMPB1(SCR2,NOH-NOUE,NOUE)\r\nC\r\nC     PERFORM PARTITION\r\nC                       RP   CP\r\n      CALL AMPB2(PHIDH,SCR3,0,0,0,SCR2,SCR1,0,0)\r\n      PHIA=SCR3\r\n      GO TO 30\r\nC\r\nC     NO MOD REQUIRED\r\nC\r\n   20 PHIA=PHIDH\r\n   30 CONTINUE\r\nC\r\nC     COMPUTE GKI\r\nC\r\n      CALL SSG2B(GTKA,PHIA,0,GKI,1,IPREC,1,SCR1)\r\nC\r\nC     START COMPUTATION OF DJH MATRICES\r\nC\r\n      DJI1=SCR3\r\n      DJI2=SCR3\r\n      IF(NOUE.GT.0)GO TO 40\r\n      DJI1=DJH1\r\n      DJI2=DJH2\r\n   40 CONTINUE\r\n      CALL SSG2B(D1JK,GKI,0,DJI1,1,IPREC,1,SCR1)\r\n      IF(NOUE.EQ.-1)GO TO 50\r\n      CALL MERGED(DJI1,D1JE,0,0,DJH1,SCR2,0,0,NCOLJ)\r\n   50 CONTINUE\r\n      CALL SSG2B(D2JK,GKI,0,DJI2,1,IPREC,1,SCR1)\r\n      IF(NOUE.EQ.-1)GO TO 60\r\n      CALL MERGED(DJI2,D2JE,0,0,DJH2,SCR2,0,0,NCOLJ)\r\n   60 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampb1.f",
    "content": "      SUBROUTINE AMPB1(IPVCT,NOH,NOE)\r\nC\r\nC     THIS ROUTINE BUILDS A PARTITIONING VECTOR WHICH WILL APPEND NOE\r\nC       TERM(OR COLUMNS)\r\nC\r\n      INTEGER SYSBUF,MCB(7)\r\nC\r\n      COMMON  /ZBLPKX/A(4),II\r\n      COMMON /SYSTEM/SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      IBUF1=KORSZ(Z)-SYSBUF+1\r\n      CALL GOPEN(IPVCT,Z(IBUF1),1)\r\n      CALL MAKMCB(MCB,IPVCT,NOH+NOE,2,1)\r\n      CALL BLDPK(1,1,IPVCT,0,0)\r\n      II=NOH\r\n      DO 10 I=1,NOE\r\n      A(1)=1.0\r\n      II=II+1\r\n      CALL ZBLPKI\r\n   10 CONTINUE\r\n      CALL BLDPKN(IPVCT,0,MCB)\r\n      CALL CLOSE(IPVCT,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampb2.f",
    "content": "      SUBROUTINE AMPB2(A,A11,A12,A21,A22,RP,CP,N1,N2)\r\nC\r\nC     THIS SUBROUTINE IS A GENERAL DRIVER FOR PARTN\r\nC\r\n      INTEGER A11,A12,A21,A22,A,RP,CP,RULE,MCB(20),MCB1(20)\r\nC\r\n      COMMON /PARMEG/MCBA(7),MCBA11(7),MCBA21(7),MCBA12(7),MCBA22(7),\r\n     1 NX,RULE\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      MCB(1)=RP\r\n      CALL RDTRL(MCB)\r\n      MCB1(1)=CP\r\n      CALL RDTRL(MCB1)\r\n      NX=KORSZ(IZ)\r\n      RULE=0\r\n      MCBA11(1)=A11\r\n      IF(A11.EQ.0)GO TO 10\r\n      CALL RDTRL(MCBA11)\r\n      IF(MCBA11(1).LE.0)MCBA11(1)=0\r\n   10 CONTINUE\r\n      MCBA21(1)=A21\r\n      IF(A21.LE.0)GO TO 20\r\n      CALL RDTRL(MCBA21)\r\n      IF(MCBA21(1).LE.0)MCBA21(1)=0\r\n   20 CONTINUE\r\n      MCBA12(1)=A12\r\n      IF(A12.EQ.0)GO TO 30\r\n      CALL RDTRL(MCBA12)\r\n      IF(MCBA12(1).LE.0)MCBA12(1)=0\r\n   30 CONTINUE\r\n      MCBA22(1)=A22\r\n      IF(A22.EQ.0)GO TO 40\r\n      CALL RDTRL(MCBA22)\r\n      IF(MCBA22(1).LE.0)MCBA22(1)=0\r\n   40 CONTINUE\r\n      MCBA(1)=A\r\n      CALL RDTRL(MCBA)\r\n      MCBA11(2) = MCBA(2) - MCB(6)\r\n      MCBA11(3) = MCBA(3) -MCB1(6)\r\n      MCBA12(2) = MCBA(2) -MCBA11(2)\r\n      MCBA12(3) = MCBA11(3)\r\n      MCBA21(2) = MCBA11(2)\r\n      MCBA21(3) = MCBA(3) -MCBA11(3)\r\n      MCBA22(2) = MCB(6)\r\n      MCBA22(3) = MCB1(6)\r\n      MCBA11(4)=2\r\n      MCBA21(4)=2\r\n      MCBA12(4)=2\r\n      MCBA22(4)=2\r\n      MCBA11(5)=MCBA(5)\r\n      MCBA21(5)=MCBA(5)\r\n      MCBA12(5)=MCBA(5)\r\n      MCBA22(5)=MCBA(5)\r\n      CALL PARTN(MCB,MCB1,IZ)\r\n      IF(MCBA11(1).GT.0)CALL WRTTRL(MCBA11)\r\n      IF(MCBA21(1).GT.0)CALL WRTTRL(MCBA21)\r\n      IF(MCBA12(1).GT.0)CALL WRTTRL(MCBA12)\r\n      IF(MCBA22(1).GT.0)CALL WRTTRL(MCBA22)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampc.f",
    "content": "      SUBROUTINE AMPC (DJH1,DJH2,DJH,AJJL,QJH,QJHO,QJHUA,SCR1,SCR2,SCR3,\r\n     1                 SCR4,SCR5,SCR6)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COMPUTE (OR RETRIEVE QJH)\r\nC\r\nC     IF QJH MUST BE COMPUTED\r\nC\r\nC     1. FORM DJH FOR THIS K (IF IDJH.EQ.0)\r\nC        DJH = DJH1 + I*K*DJH2\r\nC     2. FOR EACH CONSTANT THEORY\r\nC        A. RETRIEVE AJJ PORTION = AJJTH\r\nC        B. PERFORM THEORY FOR QJH\r\nC           1) DOUBLET LATTICE\r\nC              A) DECOMPOSE AJJTH\r\nC              B) FIND PROPER DJH PORTION DJHTH\r\nC              C) FBS FOR QJHTH\r\nC              D) ADD TO BOTTOM OF QJHUA(CYCLE)\r\nC           6) COMPRESSOR BLADES  (IONCE = 1).\r\nC              A) COMPUTE QJHTH = (AJJ)*DJH.\r\nC              B) QJHUA = QJHTH SINCE ONLY ONE BLADE AND GROUP (NGP = 1)\r\nC           7) SWEPT TURBOPROPS   (IONCE = 1).\r\nC              A) COMPUTE QJHTH = (AJJ)*DJH.\r\nC              B) QJHUA = QJHTH SINCE ONLY ONE BLADE AND GROUP (NGP = 1)\r\nC\r\n      INTEGER         DJH1,DJH2,DJH,AJJL,QJH,QJHO,QJHUA,AJJCOL,QHHCOL,\r\n     1                SYSBUF,FILE,NAME(2),IBLOCK(11),MCB(7),SCR1,SCR2,\r\n     2                SCR3,SCR4,SCR5,SCR6,QJHTH\r\n      REAL            BLOCK(11)\r\n      COMMON /AMPCOM/ NCOLJ,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30),\r\n     1                MCBQHH(7),MCBQJH(7),NOH,IDJH\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1\r\n      COMMON /CDCMPX/ DUM32(32),IB\r\n      EQUIVALENCE     (IBLOCK(1),BLOCK(1))\r\n      DATA    NAME  / 4HAMPC,4H    /\r\n      DATA    IBLOCK(1),IBLOCK(7),BLOCK(2),BLOCK(3),BLOCK(8) /\r\n     1                3,        3,     1.0,      0.,      0. /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IBUF1 = KORSZ(IZ) - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      ITC   = MCBQHH(5)\r\n      INCR  = 1\r\n      ITC1  = ITC\r\n      ITC2  = ITC1\r\n      INCR1 = INCR\r\n      II1   = 1\r\nC\r\nC     IS QJH ON SAVE FILE\r\nC\r\n      IF (QHHCOL .EQ. 0) GO TO 100\r\nC\r\nC     COPY QJH FROM OLD FILE TO QJH\r\nC\r\n      IF (MCBQJH(1) .LE. 0) GO TO 10\r\n      CALL GOPEN (QJHO,IZ(IBUF1),0)\r\n      CALL GOPEN (QJH, IZ(IBUF2),3)\r\n      K = QHHCOL - 1\r\n      IF (K .EQ. 0) GO TO 20\r\n      FILE = QJHO\r\n      DO 30 I = 1,K\r\n      CALL FWDREC (*910,QJHO)\r\n   30 CONTINUE\r\n   20 CONTINUE\r\n      CALL CYCT2B (QJHO,QJH,NOH,IZ,MCBQJH)\r\n      CALL CLOSE (QJHO,1)\r\n      CALL CLOSE (QJH,3)\r\n   10 CONTINUE\r\n      RETURN\r\nC\r\nC     COMPUTE QJH\r\nC\r\n  100 CONTINUE\r\nC\r\nC     HAS DJH ALREADY BEEN COMPUTED\r\nC\r\n      IF (IDJH .NE. 0) GO TO 110\r\n      BLOCK(9) = XK\r\n      CALL SSG2C (DJH1,DJH2,DJH,1,BLOCK)\r\nC\r\nC     POSITION AJJL\r\nC\r\n  110 CALL GOPEN (AJJL,IZ(IBUF1),0)\r\n      K = AJJCOL - 1\r\n      IF (K .EQ. 0) GO TO 120\r\n      FILE = AJJL\r\n      DO 130 I = 1,K\r\n      CALL FWDREC (*910,AJJL)\r\n  130 CONTINUE\r\n  120 CONTINUE\r\n      CALL CLOSE (AJJL,2)\r\nC\r\nC     SET UP TO LOOP ON CONSTANT THEORY\r\nC\r\n      NGPS = 1\r\n      NTH  = NGPD(1,NGPS)\r\n      NCOLTH = 0\r\n  135 NCLOLD = NCOLTH + 1\r\n  140 IF (NGPS .GT. NGP) GO TO 150\r\n      IF (NGPD(1,NGPS) .NE. NTH) GO TO 150\r\n      NCOLTH = NCOLTH + NGPD(2,NGPS)\r\n      NGPS   = NGPS + 1\r\n      GO TO 140\r\nC\r\nC     BRANCH ON THEORY\r\nC\r\n  150 CONTINUE\r\n      IONCE = 0\r\n      IF (NCLOLD.EQ.1 .AND. NGPS.GT.NGP) IONCE = 1\r\nC\r\nC     COPY AJJL TO SCR1\r\nC\r\n      CALL GOPEN (AJJL,IZ(IBUF1),2)\r\n      CALL GOPEN (SCR1,IZ(IBUF2),1)\r\n      MCB(1) = AJJL\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = SCR1\r\n      MCB(2) = 0\r\n      MCB(3) = NCOLTH\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      II     = NC LOLD\r\n      JJ     = NCOLTH\r\n      II1    = 1\r\n      JJ1    = NCOLTH - NC LOLD + 1\r\n      ITC    = MCB(5)\r\n      ITC1   = ITC\r\n      ITC2   = ITC\r\n      INCR   = 1\r\n      INCR1  = 1\r\n      CALL AMPC1 (AJJL,SCR1,NCOLTH,IZ,MCB)\r\n      CALL CLOSE (AJJL,2)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO (1000,2000,3000,4000,5000,6000,7000), NTH\r\nC\r\nC     DOUBLET LATTICE WITH SLENDER BODIES\r\nC\r\n 1000 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     TRANSPOSE MATRIX\r\nC\r\n      CALL TRANP1 (SCR1,SCR4,4,SCR2,SCR3,SCR5,SCR6,0,0,0,0)\r\nC\r\nC     DECOMPOSE MATRIX\r\nC\r\n      IB = 0\r\n      CALL CFACTR (SCR4,SCR2,SCR3,SCR1,SCR5,SCR6,IOPT)\r\nC\r\nC     MACH BOX\r\nC     PISTON\r\nC\r\nC\r\nC     COMPRESSOR BLADE AND SWEPT TURBOPROP THEORIES -\r\nC     ONE BLADE ALLOWED, ONE GROUP, USE WHOLE AJJ AND DJH MATRICES.\r\nC\r\n 3000 CONTINUE\r\n 4000 CONTINUE\r\n 5000 CONTINUE\r\n 6000 CONTINUE\r\n 7000 CONTINUE\r\nC\r\nC     COPY PROPER ROWS OF DJH TO SCR4\r\nC\r\n      IDJHA = DJH\r\n      IF (IONCE .NE. 0) GO TO 1010\r\n      II  = NC LOLD\r\n      JJ  = NCOLTH\r\n      II1 = 1\r\n      JJ1 = NCOLTH-NC LOLD+1\r\n      MCB(1) = DJH\r\n      CALL RDTRL (MCB)\r\n      ITC  = MCB(5)\r\n      ITC1 = ITC\r\n      ITC2 = ITC\r\n      INCR = 1\r\n      INCR1  = 1\r\n      MCB(2) = 0\r\n      MCB(3) = JJ1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      MCB(1) = SCR4\r\n      CALL GOPEN (DJH,IZ(IBUF1),0)\r\n      CALL GOPEN (SCR4,IZ(IBUF2),1)\r\n      CALL AMPC1 (DJH,SCR4,NOH,IZ,MCB)\r\n      CALL CLOSE (DJH,1)\r\n      CALL CLOSE (SCR4,1)\r\n      CALL WRTTRL (MCB)\r\n      IDJHA = SCR4\r\n 1010 CONTINUE\r\n      QJHTH = SCR5\r\n      IF (IONCE .NE. 0) QJHTH = QJHUA\r\n      GO TO (1001,2001,3001,4001,5001,6001,7001), NTH\r\n 1001 CONTINUE\r\n 2001 CONTINUE\r\nC\r\nC     SOLVE FOR THIS PORTION OF QJH\r\nC\r\n      CALL CFBSOR (SCR2,SCR3,IDJHA,QJHTH,IOPT)\r\n 1020 CONTINUE\r\nC\r\nC     COPY ACCUMULATIVELY ONTO QJHUA\r\nC\r\n      IF (IONCE .NE. 0) GO TO 8000\r\n      CALL AMPC2 (SCR5,QJHUA,SCR1)\r\n      IF (NGPS .GT. NGP) GO TO 8000\r\n      GO TO 135\r\nC\r\nC     COMPUTE THIS PORTION OF QJH  = AJJ*DJH\r\nC\r\n 3001 CONTINUE\r\n 4001 CONTINUE\r\n 5001 CONTINUE\r\n 6001 CONTINUE\r\n 7001 CONTINUE\r\n      CALL SSG2B (SCR1,IDJHA,0,QJHTH,0,IPREC,1,SCR6)\r\n      GO TO 1020\r\nC\r\nC     ALL GROUPS / THEORIES COMPLETE\r\nC\r\n 8000 CONTINUE\r\n      GO TO 10\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n  910 IP1 = -2\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/ampc1.f",
    "content": "      SUBROUTINE AMPC1(INPUT,OUTPUT,NCOL,Z,MCB)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COPY NCOL COLUMNS FROM INPUT\r\nC      TO OUTPUT VIA UNPACK AND PACK.\r\nC\r\nC     THE PACK COMMON BLOCKS HAVE BEEN INITIALIZED OUTSIDE THE ROUTINE\r\nC\r\n      INTEGER OUTPUT,MCB(7),Z(1)\r\nC\r\n      COMMON /PACKX/IT1,IT2,II,NN,INCR\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      DO 10 I=1,NCOL\r\n      CALL UNPACK(*20,INPUT,Z)\r\n      CALL PACK(Z,OUTPUT,MCB)\r\n      GO TO 10\r\nC\r\nC     NULL COLUMN\r\nC\r\n   20 CALL BLDPK(IT1,IT2,OUTPUT,0,0)\r\n      CALL BLDPKN(OUTPUT,0,MCB)\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampc2.f",
    "content": "      SUBROUTINE AMPC2 (INP,OUTP,SCRF)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COPY SCR5 ONTO THE BOTTOM OF\r\nC     OUTPUT\r\nC\r\n      INTEGER         OUTP,SCRF,SYSBUF,MCBI(7),MCBO(7)\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/ IT3,II1,JJ1,INCR1\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /TYPE  / ISK(2),IWORD(4)\r\nC\r\nC\r\n      MCBI(1) = INP\r\n      CALL RDTRL (MCBI)\r\n      MCBO(1) = OUTP\r\n      CALL RDTRL (MCBO)\r\nC\r\nC     IS THIS THE FIRST ENTRY\r\nC\r\n      IF (MCBO(2) .NE. 0) GO TO 10\r\nC\r\nC     SWITCH SCRATCH FILES\r\nC\r\n      CALL FILSWI (INP,OUTP)\r\n      RETURN\r\nC\r\nC     MUST DO COPY\r\nC\r\n   10 CALL FILSWI (OUTP,SCRF)\r\n      IBUF1 = KORSZ(IZ) - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      CALL GOPEN (INP,IZ(IBUF1),0)\r\n      CALL GOPEN (SCRF,IZ(IBUF2),0)\r\n      CALL GOPEN (OUTP,IZ(IBUF2),1)\r\n      NCOL  = MCBI(2)\r\n      NROWO = MCBI(3) + MCBO(3)\r\n      IT1   = MCBI(5)\r\n      IT2   = IT1\r\n      IT3   = IT1\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      NTERM = NROWO*IWORD(IT1)\r\n      II    = 1\r\n      JJ    = NROWO\r\n      NROWIS= MCBO(3)*IWORD(IT1) + 1\r\n      II1   = 1\r\n      NRI   = MCBI(3)\r\n      NRO   = MCBO(3)\r\n      MCBO(2) = 0\r\n      MCBO(6) = 0\r\n      MCBO(7) = 0\r\n      MCBO(3) = NROWO\r\n      DO 20 I = 1,NCOL\r\n      DO 30 J = 1,NTERM\r\n      IZ(J) = 0\r\n   30 CONTINUE\r\n      JJ1 = NRO\r\n      CALL UNPACK (*40,SCRF,IZ)\r\n   40 CONTINUE\r\n      JJ1 = NRI\r\n      CALL UNPACK (*50,INP,IZ(NROWIS))\r\n   50 CALL PACK (IZ,OUTP,MCBO)\r\n   20 CONTINUE\r\n      CALL CLOSE (SCRF,1)\r\n      CALL CLOSE (INP,1)\r\n      CALL CLOSE (OUTP,1)\r\n      CALL WRTTRL (MCBO)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampd.f",
    "content": "      SUBROUTINE AMPD (QJHUA,QHHO,SKJ,GKI,QHH,SCR1,SCR2,SCR3,SCR4)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COMPUTE(OR RETRIEVE) QHH\r\nC\r\nC     QHH EITHER EXISTS ON QHHO (AS COLUMN QCOL) OR MUST BE COMPUTED\r\nC     AS FOLLOWS\r\nC\r\nC     1. QKH = SKJ*QJH\r\nC     2. QIH = GKI(T)*QKH\r\nC     3. QHH = 1 QIH 1\r\nC              1-----1\r\nC              1 0   1\r\nC              1     1\r\nC\r\n      INTEGER         QJHUA,QHHO,SKJ,GKI,QHH,AJJCOL,QHHCOL,SYSBUF,FILE,\r\n     1                SCR1,SCR2,SCR3,NAME(2),MCB(7),SCR4,QKH\r\n      COMMON /AMPCOM/ NCOL,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30),\r\n     1                MCBQHH(7),MCBQJH(7),NOH\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /BLANK / NOUE\r\n      DATA    NAME  / 4HAMPD,4H    /\r\nC\r\n      IBUF1 = KORSZ(IZ) - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      INCR  = 1\r\n      ITC   = MCBQHH(5)\r\nC\r\nC     DETERMINE IF QHH EXISTS ON QHHO\r\nC\r\n      IF (QHHCOL .EQ. 0) GO TO 100\r\nC\r\nC     COPY FROM QHHO TO QHH\r\nC\r\n      CALL GOPEN (QHH,IZ(IBUF1),3)\r\n      CALL GOPEN (QHHO,IZ(IBUF2),0)\r\n      K = QHHCOL - 1\r\n      IF (K .EQ. 0) GO TO 20\r\n      FILE = QHHO\r\n      DO 10 I = 1,K\r\n      CALL FWDREC (*910,QHHO)\r\n   10 CONTINUE\r\n   20 CONTINUE\r\n      CALL CYCT2B (QHHO,QHH,NOH,IZ,MCBQHH)\r\n      CALL CLOSE  (QHHO,1)\r\n      CALL CLOSE  (QHH,3)\r\n      RETURN\r\nC\r\nC     QHH MUST BE COMPUTED\r\nC\r\n  100 CONTINUE\r\nC\r\nC     COPY SKJ TO SCR4 FOR PROPER M-K PAIR\r\nC\r\n      CALL GOPEN (SKJ,IZ(IBUF1),0)\r\n      CALL GOPEN (SCR4,IZ(IBUF2),1)\r\n      K = AJJCOL - 1\r\n      CALL SKPREC (SKJ,K)\r\n      MCB(1) = QJHUA\r\n      CALL RDTRL (MCB)\r\n      NCOLJ  = MCB(3)\r\n      MCB(1) = SKJ\r\n      CALL RDTRL (MCB)\r\n      MCBQJH(3) = MCB(3)\r\n      MCB(1) = SCR4\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      ITC = MCB(5)\r\n      CALL CYCT2B (SKJ,SCR4,NCOLJ,IZ,MCB)\r\n      CALL CLOSE  (SKJ,1)\r\n      CALL CLOSE  (SCR4,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL SSG2B  (SCR4,QJHUA,0,SCR1,0,IPREC,1,SCR2)\r\nC\r\nC     COPY SCR1(QKH) TO OUTPUT\r\nC\r\n      QKH = MCBQJH(1)\r\n      IF (QKH .LE. 0) GO TO 200\r\n      ITC  = MCBQJH(5)\r\n      INCR = 1\r\n      CALL GOPEN  (SCR1,IZ(IBUF1),0)\r\n      CALL GOPEN  (QKH,IZ(IBUF2),3)\r\n      CALL CYCT2B (SCR1,QKH,NOH,IZ,MCBQJH)\r\n      CALL CLOSE  (QKH,3)\r\n      CALL CLOSE  (SCR1,1)\r\n  200 CONTINUE\r\n      CALL SSG2B (GKI,SCR1,0,SCR3,1,IPREC,1,SCR2)\r\nC\r\nC     COPY TO QHH\r\nC\r\n      CALL GOPEN (QHH,IZ(IBUF1),3)\r\n      CALL GOPEN (SCR3,IZ(IBUF2),0)\r\n      ITC  = MCBQHH(5)\r\n      INCR = 1\r\n      CALL CYCT2B (SCR3,QHH,NOH,IZ,MCBQHH)\r\n      CALL CLOSE  (SCR3,1)\r\n      CALL CLOSE  (QHH,3)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  910 IP1 = -2\r\n      CALL MESAGE (IP1,FILE,NAME)\r\n      GO TO 910\r\n      END\r\n"
  },
  {
    "path": "mis/ampe.f",
    "content": "      SUBROUTINE AMPE (PHIDH,GTKA,GKH,SCR1,SCR2,USETA)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COMPUTE GKH\r\nC\r\n      INTEGER         PHIDH,GTKA,GKH,SCR1,SCR2,USETA,PHIAH\r\n      COMMON /BLANK / NOUE\r\n      COMMON /PATX  / LC,NS0,NS1,NS2,IUSET\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD,UPS,USA,UK,UPA\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(52),IPREC\r\n      COMMON /PATX  / XXX,NROW1,NROW2\r\nC\r\n      PHIAH = PHIDH\r\nC\r\nC     DETERMINE IF PHIDH MUST BE MODIFIED\r\nC\r\n      IF (NOUE .EQ. -1) GO TO 20\r\nC\r\nC     BUILD PARTITIONING VECTORS\r\nC\r\n      IUSET = USETA\r\n      LC = KORSZ(Z)\r\n      CALL CALCV (SCR1,UD,UA,UE,Z)\r\nC\r\nC     PERFORM PARTITION\r\nC\r\n      NROW1 = NS0\r\n      NROW2 = NS1\r\n      PHIAH = SCR2\r\n      CALL SSG2A (PHIDH,PHIAH,0,SCR1)\r\nC\r\nC     COMPUTE GKH\r\nC\r\n   20 CONTINUE\r\n      CALL SSG2B (GTKA,PHIAH,0,GKH,1,IPREC,1,SCR1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ampf.f",
    "content": "      SUBROUTINE AMPF (SKJ,GKH,AJJL,QHJL,PLAN,IMAX,SCR1,SCR2,SCR3,SCR4,\r\n     1                 SCR5,SCR6,SCR7,SCR8,SCR9,SCR10)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO SOLVE FOR QHJL\r\nC\r\nC     THE STEPS ARE AS FOLLOWS\r\nC\r\nC       I.  FOR EACH M-K PAIR\r\nC\r\nC           A. FIND SKJ FROM SKJ LIST\r\nC                                      T\r\nC           B.  COMPUTE  S(K) =  SKJ(K) *GKH\r\nC\r\nC           C.  FOR EACH GROUP\r\nC                                                  G\r\nC               1. BREAK  S(K) INTO GROUPS  =  S(K)\r\nC\r\nC               2. SOLVE FOR  RJH\r\nC                                                        -1     G\r\nC                      D.L. AND D.L. WITH BODIES RGH= AJJ  *S(K)\r\nC                                                        T      G\r\nC                      OTHERS                    RGH= AJJ  *S(K)\r\nC\r\nC               3. MERGE RESULTS\r\nC\r\nC                  1    G11\r\nC                  1 RJH  1\r\nC                  1------1  =   RJH(K)\r\nC                  1    G21\r\nC                  1 RJH  1\r\nC                  1      1\r\nC\r\nC\r\nC           D.  APPEND  RJH ONTO GROWING  QHJL\r\nC                1       1       1\r\nC                1RJH(K1)1RJH(K2)1  =  QHJL\r\nC                1       1       1\r\nC                1       1       1\r\nC\r\n      INTEGER         SKJ,GKH,AJJL,QHJL,PLAN,MCB(7),SYSBUF,NAME(2),\r\n     1                AJJCOL,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,\r\n     2                SCR9,SCR10,RJH\r\n      COMMON /AMPCOM/ NCOLJ,NSUB,XM,XK,AJJCOL,QHHCOL,NGP,NGPD(2,30),\r\n     1                MCBQHH(7),MCBQJH(7),NOH,IDJH\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKP(52),IPREC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CDCMPX/ DUM32(32),IB\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1\r\n      DATA    NAME  / 4HAMPF,1H /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IBUF1 = KORSZ(Z) - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IOP   = 0\r\n      ITL   = 0\r\n      DO 9000 ILOOP = 1,IMAX\r\n      CALL KLOCK (ITS)\r\n      CALL GOPEN (PLAN,Z(IBUF1),IOP)\r\n      IOP = 2\r\n      CALL FREAD (PLAN,XM,4,1)\r\n      CALL CLOSE (PLAN,2)\r\nC\r\nC     FIND  SKJ(K) IN SKJL\r\nC\r\n      CALL GOPEN (SKJ,Z(IBUF1),0)\r\n      CALL GOPEN (SCR1,Z(IBUF2),1)\r\n      K = AJJCOL - 1\r\n      CALL SKPREC (SKJ,K)\r\n      MCB(1) = SKJ\r\n      CALL RDTRL (MCB)\r\n      CALL MAKMCB (MCB,SCR1,MCB(3),MCB(4),MCB(5))\r\n      INCR = 1\r\n      ITC  = MCB(5)\r\n      CALL CYCT2B (SKJ,SCR1,NCOLJ,Z,MCB)\r\n      CALL CLOSE  (SKJ,1)\r\n      CALL CLOSE  (SCR1,1)\r\n      CALL WRTTRL (MCB)\r\nC                     T\r\nC     MULTIPLY  SKJ(K) *GKH  ONTO SCR2\r\nC\r\n      CALL SSG2B (SCR1,GKH,0,SCR2,1,IPREC,1,SCR3)\r\nC\r\nC     POSITION AJJL\r\nC\r\n      CALL GOPEN (AJJL,Z(IBUF1),0)\r\n      K = AJJCOL - 1\r\n      CALL SKPREC (AJJL,K)\r\n      CALL CLOSE  (AJJL,2)\r\nC\r\nC     SET UP TO LOOP ON CONSTANT THEORY\r\nC\r\n      NGPS = 1\r\n      NTH  = NGPD(1,NGPS)\r\n      NCOLTH = 0\r\n  135 NCLOLD = NCOLTH + 1\r\n  140 IF (NGPS .GT. NGP) GO TO 150\r\n      IF (NGPD(1,NGPS) .NE. NTH) GO TO 150\r\n      NCOLTH = NCOLTH + NGPD(2,NGPS)\r\n      NGPS   = NGPS + 1\r\n      GO TO 140\r\n  150 CONTINUE\r\n      IONCE = 0\r\n      IF (NCLOLD.EQ.1 .AND. NGPS.GT.NGP) IONCE = 1\r\nC                                 G\r\nC     COPY AJJL(K) TO SCR1 (AJJ(K) )\r\nC\r\n      CALL GOPEN (AJJL,Z(IBUF1),2)\r\n      CALL GOPEN (SCR1,Z(IBUF2),1)\r\n      MCB(1) = AJJL\r\n      CALL RDTRL (MCB)\r\n      CALL MAKMCB (MCB,SCR1,NCOLTH,MCB(4),MCB(5))\r\n      II   = NCLOLD\r\n      JJ   = NCOLTH\r\n      II1  = 1\r\n      JJ1  = NCOLTH - NCLOLD + 1\r\n      ITC  = MCB(5)\r\n      ITC1 = ITC\r\n      ITC2 = ITC\r\n      INCR = 1\r\n      INCR1= 1\r\n      CALL AMPC1 (AJJL,SCR1,NCOLTH,Z,MCB)\r\n      CALL CLOSE (AJJL,2)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL WRTTRL (MCB)\r\nC                                   G\r\nC     COPY SKJ(K)  ONTO SCR3 (SKJ(K) )\r\nC\r\n      CALL GOPEN (SCR2,Z(IBUF1),0)\r\n      CALL GOPEN (SCR3,Z(IBUF2),1)\r\n      MCB(1) = SCR2\r\n      CALL RDTRL (MCB)\r\n      CALL MAKMCB (MCB,SCR3,NCOLTH,MCB(4),MCB(5))\r\n      ITC  = MCB(5)\r\n      ITC1 = ITC\r\n      ITC2 = ITC\r\n      CALL AMPC1 (SCR2,SCR3,NOH,Z,MCB)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL WRTTRL (MCB)\r\n      RJH = SCR10\r\n      IF (IONCE .NE. 0) RJH = SCR9\r\nC\r\nC     BRANCH ON THEORY\r\nC\r\n      GO TO (1000,2000,3000,4000,5000), NTH\r\nC\r\nC     DOUBLET LATTICE--D.L. WITH SLENDER BODIES\r\nC\r\n 1000 CONTINUE\r\n 2000 CONTINUE\r\nC                     G\r\nC     DECOMPOSE AJJ(K)\r\nC\r\n      IB = 0\r\n      CALL CFACTR (SCR1,SCR4,SCR5,SCR6,SCR7,SCR8,IOPT)\r\n      CALL CFBSOR (SCR4,SCR5,SCR3,RJH,IOPT)\r\n      GO TO 1020\r\nC\r\nC     OTHER THEORIES\r\nC\r\n 3000 CONTINUE\r\n 4000 CONTINUE\r\n 5000 CONTINUE\r\n      CALL SSG2B (SCR1,SCR3,0,RJH,1,IPREC,1,SCR4)\r\nC\r\nC     COPY ACCUMULATIVELY ONTO RJH(K)\r\nC\r\n 1020 IF (IONCE .NE. 0) GO TO 8000\r\n      CALL AMPC2 (RJH,SCR9,SCR1)\r\n      IF (NGPS .GT. NGP) GO TO 8000\r\n      GO TO 135\r\nC\r\nC     ALL GROUPS /THEORIES COMPLETE\r\nC\r\n 8000 CONTINUE\r\nC\r\nC     COPY ONTO  QHJL\r\nC\r\n      CALL GOPEN (SCR9,Z(IBUF1),0)\r\n      CALL GOPEN (QHJL,Z(IBUF2),3)\r\n      MCB(1) = QHJL\r\n      CALL RDTRL (MCB(1))\r\n      ITC  = MCB(5)\r\n      INCR = 1\r\n      CALL CYCT2B (SCR9,QHJL,NOH,Z,MCB)\r\n      CALL CLOSE  (QHJL,2)\r\n      CALL CLOSE  (SCR9,1)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     END LOOP ON M-K PAIRS\r\nC\r\n      IF (ILOOP .EQ. IMAX) GO TO 9000\r\nC\r\nC     CHECK TIME\r\nC\r\n      CALL KLOCK (ITF)\r\n      CALL TMTOGO (ITMTO)\r\n      ITL= MAX0(ITF-ITS,1,ITL)\r\n      IF (1.1*ITL .GE. ITMTO) GO TO 9010\r\n 9000 CONTINUE\r\n      RETURN\r\nC\r\nC     INSUFFICIENT TIME TO COMPLETE\r\nC\r\n 9010 CALL MESAGE (45,IMAX-ILOOP,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/angtrs.f",
    "content": "      SUBROUTINE ANGTRS (THETA,K,TRANS)\r\nC     &    ENTRY ANGTRD\r\nC\r\nC     ROUTINE TO CALCULATE AND OUTPUT THE INPLANE ROTATION\r\nC     TRANSFORMATION IN 3-D USING THE ANGLE OF ROTATION.\r\nC\r\nC     IF K=1, TRANS OR TRAND WILL BE TRANSPOSED AND THEN RETURNED.\r\nC\r\nC     SINGLE PRECISION -\r\nC\r\n      REAL               TRANS(9)\r\n      DOUBLE PRECISION   TRAND(9), THETAD\r\nC\r\n      DO 10 I = 1,9\r\n   10 TRANS(I) = 0.0\r\nC\r\n      TRANS(1) =  COS(THETA)\r\n      TRANS(2) =  SIN(THETA)\r\n      TRANS(4) = -TRANS(2)\r\n      TRANS(5) =  TRANS(1)\r\n      TRANS(9) =  1.0\r\nC\r\n      IF (K .NE. 1) GO TO 30\r\n      TRANS(2) = -TRANS(2)\r\n      TRANS(4) = -TRANS(4)\r\n      RETURN\r\nC\r\n      ENTRY ANGTRD (THETAD,K,TRAND)\r\nC     =============================\r\nC\r\nC     DOUBLE PRECISION -\r\nC\r\n      DO 20 I = 1,9\r\n   20 TRAND(I) = 0.0D0\r\nC\r\n      TRAND(1) =  DCOS(THETAD)\r\n      TRAND(2) =  DSIN(THETAD)\r\n      TRAND(4) = -TRAND(2)\r\n      TRAND(5) =  TRAND(1)\r\n      TRAND(9) =  1.0D0\r\nC\r\n      IF (K .NE. 1) GO TO 30\r\n      TRAND(2) = -TRAND(2)\r\n      TRAND(4) = -TRAND(4)\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/anisop.f",
    "content": "      SUBROUTINE ANISOP\r\nC\r\nC     COMPUTES DIRECTION COSINES FOR RECTANGULAR COORD. SYSTEMS\r\nC     (W.R.T. BASIC COORD. SYSTEM) DESCRIBING ORIENTATION OF ANIS.\r\nC     MATERIAL FOR ISOPARAMETRIC SOLIDS\r\nC\r\nC     ANISOP  GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\nC     EQUIV   MPTA,MPT/ISOP $\r\nC     ISOP=-1 MEANS SUCH MATERIALS EXIST\r\nC\r\n      INTEGER         GEOM1,EPT,BGPDT,FILE,BUF1,BUF2,EQEXIN\r\n      DIMENSION       IZ(1),NAM(2),IC1(2),IC2(2),IPI(2),IMAT6(2),\r\n     1                IDUM(31),A(3),B(3),C(3),XP(3),YP(3),ZP(3),\r\n     2                STORE(9),XD(9),ITRL(7),MAT1(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / ISOP\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    GEOM1 , EPT,BGPDT,EQEXIN,MPT,MPTA /\r\n     1        101   , 102,103  ,104   ,105,201  /\r\n      DATA    IPI   / 7002,70/ ,IC1 / 1801,18   /, IC2 / 2101,21 /,\r\n     1        IMAT6 / 2503,25/ ,MAT1/  103, 1   /\r\n      DATA    NAM   / 4HANIS, 4HOP  /\r\nC\r\n      ISOP  = 1\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - IBUF - 1\r\n      BUF2  = BUF1  - IBUF\r\n      LCORE = BUF2 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\nC     GET LIST OF MAT1 AND MAT6 ID-S\r\nC\r\n      NMAT1 = 0\r\n      NMAT6 = 0\r\n      I     = 0\r\nCWKBI SPR93033 5/94\r\n      FILE  = MPT\r\n      CALL PRELOC (*1001,Z(BUF1),MPT)\r\n      CALL LOCATE (*2,Z(BUF1),MAT1,IDX)\r\nCWKBD SPR93022 5/94      FILE  = MPT\r\n    1 CALL READ (*1002,*2,MPT,IDUM,12,0,M)\r\n      NMAT1 = NMAT1 + 1\r\n      I = I + 1\r\n      IF (I .GT. LCORE) GO TO 1008\r\n      IZ(I) = IDUM(1)\r\n      GO TO 1\r\nC\r\nC     DONE WITH MAT1\r\nC\r\n    2 CALL LOCATE (*4,Z(BUF1),IMAT6,IDX)\r\n    3 CALL READ (*1002,*4,MPT,IDUM,31,0,M)\r\n      NMAT6 = NMAT6 + 1\r\n      I = I + 1\r\n      IF (I .GT. LCORE) GO TO 1008\r\n      IZ(I) = IDUM(1)\r\n      GO TO 3\r\n    4 CALL CLOSE (MPT,1)\r\nC\r\nC     LOCATE PIHEX CARDS ON EPT AND FORM A LIST OF MATERIAL COORD.\r\nC     SYSTEM ID\r\nC\r\nCWKBI SPR93033 5/94\r\n      FILE = EPT\r\n      CALL PRELOC (*310,Z(BUF1),EPT)\r\n      CALL LOCATE (*310,Z(BUF1),IPI,IDX)\r\nCWKBD SPR93033 5/94      FILE = EPT\r\n   10 CALL READ (*1002,*40,EPT,IDUM,7,0,M)\r\nC\r\n      ICID = IDUM(3)\r\n      MID  = IDUM(2)\r\nC\r\nC     IF CID = 0, MID MUST BE MAT1\r\nC     IF CID IS NOT 0, MID MUST BE MAT6\r\nC\r\n      IF (ICID  .GT. 0) GO TO 11\r\n      IF (NMAT1 .EQ. 0) GO TO 14\r\n      II = 1\r\n      NN = NMAT1\r\n      GO TO 12\r\n   11 IF (NMAT6 .EQ. 0) GO TO 14\r\n      II = NMAT1 + 1\r\n      NN = NMAT1 + NMAT6\r\n   12 DO 13 III = II,NN\r\n      IF (MID .EQ. IZ(III)) GO TO 1141\r\n   13 CONTINUE\r\n   14 WRITE  (NOUT,1140) UFM,MID\r\n 1140 FORMAT (A23,', MATERIAL',I8,', SPECIFIED ON A PIHEX CARD, DOES ',\r\n     1       'NOT REFERENCE THE PROPER MATERIAL TYPE', /5X,\r\n     2       'CID = 0 MEANS MAT1, CID NOT 0 MEANS MAT6')\r\n      GO TO 115\r\n 1141 CONTINUE\r\nC\r\nC     STORE ALL CID,MID PAIRS WHERE CID IS NOT 0\r\nC\r\n      IF (ICID .EQ. 0) GO TO 10\r\n      I = I + 1\r\n      IZ(I) = ICID\r\n      I = I + 1\r\n      IZ(I) = MID\r\n      GO TO 10\r\nC\r\nC     LIST IS MADE. MOVE IT UP TO IZ(1)\r\nC\r\n   40 CALL CLOSE (EPT,1)\r\n      NCID = I - NMAT1 - NMAT6\r\n      IF (NCID .EQ. 0) RETURN\r\nC\r\n      DO 41 II = 1,NCID\r\n      JJ = NMAT1 + NMAT6 + II\r\n      IZ(II) = IZ(JJ)\r\n   41 CONTINUE\r\nC\r\nC     NOW MAKE A UNIQUE LIST OF CID-S\r\nC\r\n      IJK = NCID + 1\r\n      NUM = 1\r\n      IZ(IJK) = IZ(1)\r\n      IF (NCID .EQ. 2) GO TO 44\r\n      DO 43 II = 3,NCID,2\r\n      ICID = IZ(II)\r\n      DO 42 JJ = 1,NUM\r\n      NCJJ = NCID + JJ\r\n      IF (ICID .EQ. IZ(NCJJ)) GO TO 43\r\n   42 CONTINUE\r\nC\r\nC     UNIQUE - LIST IT\r\nC\r\n      IJK = IJK + 1\r\n      NUM = NUM + 1\r\n      IF (IJK .GT. LCORE) GO TO 1008\r\n      IZ(IJK) = ICID\r\n   43 CONTINUE\r\nC\r\nC     UNIQUE LIST IS MADE- CHECK AGAINST CORD1R AND CORD2R ID-S\r\nC\r\n   44 ICORD = NCID + NUM + 1\r\nC\r\n      NCORD1 = 0\r\n      NCORD2 = 0\r\n      FILE   = GEOM1\r\n      CALL PRELOC (*1001,Z(BUF1),GEOM1)\r\n      CALL LOCATE (*70,Z(BUF1),IC1,IDX)\r\n   45 IF (ICORD+12 .GT. LCORE) GO TO 1008\r\n      CALL READ (*1002,*70,GEOM1,Z(ICORD),6,0,M)\r\nC\r\nC     COMPARE AGAINST CIDS ON PIHEX-S\r\nC\r\n      DO 50 JJ = 1,NUM\r\n      J = NCID + JJ\r\n      IF (IZ(ICORD) .EQ. IZ(J)) GO TO 60\r\n   50 CONTINUE\r\n      GO TO 45\r\nC\r\nC     MATCH- RESERVE 13 WORDS SINCE THIS CORD1R WILL BE CONVERTED TO\r\nC     CORD2R TYPE ENTRY LATER\r\nC\r\n   60 IZ(J)  =-IZ(J)\r\n      NCORD1 = NCORD1 + 1\r\n      ICORD  = ICORD  + 13\r\n      IF (NCORD1 .EQ. NUM) GO TO 120\r\n      GO TO 45\r\nC\r\nC     TRY CORD2R\r\nC\r\n   70 CALL LOCATE (*100,Z(BUF1),IC2,IDX)\r\n   75 IF (ICORD+12 .GT. LCORE) GO TO 1008\r\n      CALL READ (*1002,*100,GEOM1,Z(ICORD),13,0,M)\r\nC\r\nC     COMPARE\r\nC\r\n      DO 80 JJ = 1,NUM\r\n      J = NCID + JJ\r\n      IF (IZ(ICORD) .EQ. IZ(J)) GO TO 90\r\n   80 CONTINUE\r\n      GO TO 75\r\nC\r\nC     MATCH ON CORD2R. CHECK FOR RID. MUST BE 0\r\nC\r\n   90 IF (IZ(ICORD+3) .NE. 0) GO TO 330\r\nC\r\n      IZ(J)  =-IZ(J)\r\n      NCORD2 = NCORD2 + 1\r\n      ICORD  = ICORD  + 13\r\n      IF (NCORD1+NCORD2 .EQ. NUM) GO TO 120\r\n      GO TO 75\r\nC\r\nC     EXHAUSTED CORD2R-S, BUT NOT ALL  CID-S ARE LOCATED\r\nC\r\n  100 DO 110 JJ = 1,NUM\r\n      J = NCID + JJ\r\n      IF (IZ(J) .LT. 0) GO TO 110\r\n      WRITE  (NOUT,105) UFM,IZ(J)\r\n  105 FORMAT (A23,', CID',I8,' ON A PIHEX CARD IS NOT DEFINED TO BE ',\r\n     1       'CORD1R OR CORD2R')\r\n  110 CONTINUE\r\n  115 CALL MESAGE (-61,0,NAM)\r\nC\r\nC\r\nC     MATCHING IS COMPLETE\r\nC\r\n  120 CALL CLOSE (GEOM1,1)\r\nC\r\nC     CID,MATID PAIRS ARE IN Z(1)-Z(NCID). UNIQUE CID LIST IS IN\r\nC     Z(NCID+1)-Z(NCID+NUM). THERE ARE NCORD1 CORD1R-S AND NCORD2\r\nC     CORD2R-S AT 13 WORDS EACH STARTING AT Z(NCID+NUM+1).\r\nC     NEXT AVAILABLE OPEN CORE IS AT Z(ICORD)\r\nC\r\n      DO 130 JJ = 1,NUM\r\n      J = NCID + JJ\r\n  130 IZ(J) =-IZ(J)\r\nC\r\nC     FOR CID-S ON CORD1R WE MUST OBTAIN THE BASIC COORDINATES OF EACH\r\nC     POINT FROM BGPDT. FIRST, THE EXTERNAL POINT NUMBERS ON CORD1R MUST\r\nC     BE CONVERTED TO  INTERNAL.\r\nC\r\n      LCORE = LCORE - (ICORD-1)\r\n      IF (LCORE .LE. 0) GO TO 1008\r\n      MCORE  = LCORE\r\n      IBGPDT = ICORD\r\n      IF (NCORD1 .EQ. 0) GO TO 200\r\n      CALL GOPEN (BGPDT,Z(BUF1),0)\r\n      FILE = BGPDT\r\n      CALL READ (*1002,*140,BGPDT,Z(IBGPDT),LCORE,0,M)\r\n      GO TO 1008\r\n  140 CALL CLOSE (BGPDT,1)\r\n      IEQ   = IBGPDT + M\r\n      LCORE = LCORE  - M\r\n      CALL GOPEN (EQEXIN,Z(BUF1),0)\r\n      FILE = EQEXIN\r\n      CALL READ (*1002,*150,EQEXIN,Z(IEQ),LCORE,0,M)\r\n      GO TO 1008\r\n  150 CALL CLOSE (EQEXIN,1)\r\n      LCORE = LCORE - M\r\nC\r\nC     FOR EACH CORD1R ENTRY, FIND THE BASIC COORDINATES FOR EACH POINT\r\nC     AND FORM A CORD2R ENTRY BACK WHERE THE CORD1R IS STORED\r\nC\r\n      DO 190 J = 1,NCORD1\r\n      IPOINT = 13*(J-1) + NCID + NUM\r\n      ICID   = IZ(IPOINT+1)\r\n      DO 170 K = 1,3\r\n      ISUBK = IPOINT + 3 + K\r\n      K3 = 3*(K-1)\r\n      IGRID = IZ(ISUBK)\r\n      CALL BISLOC (*350,IGRID,Z(IEQ),2,M/2,JP)\r\nC\r\nC     IM IS POINTER TO INTERNAL NUMBER. NOW FIND BGPDT ENTRY\r\nC\r\n      IM = IEQ + JP\r\n      IP = 4*(IZ(IM)-1)\r\n      DO 160 L = 1,3\r\n      ISUBB = IBGPDT + IP + L\r\n      ISUBL = K3 + L\r\n      STORE(ISUBL) = Z(ISUBB)\r\n  160 CONTINUE\r\n  170 CONTINUE\r\nC\r\nC     WE HAVE THE BASIC COORDINATES OF THE 3 POINTS. STORE IT BACK INTO\r\nC     THE CORD1R ENTRY. THE ENTRY STARTS AT Z(IPOINT+1)\r\nC\r\n      IP4 = IPOINT + 4\r\n      IZ(IP4) = 0\r\n      DO 180 L = 1,9\r\n      ISUBL = IP4 + L\r\n      Z(ISUBL) = STORE(L)\r\n  180 CONTINUE\r\nC\r\nC     GO BACK FOR ANOTHER CORD1R\r\nC\r\n  190 CONTINUE\r\nC\r\nC     FOR EACH COORDINATE SYSTEM, COMPUTE THE 9 DIRECTION COSINES FROM\r\nC     THE BASIC COORDINATE SYSTEM. Z(ICORD) IS THE NEXT AVAILABLE\r\nC     LOCATION OF OPEN CORE SINCE WE NO LONGER NEED EQEXIN OR BGPDT\r\nC     INFO.\r\nC\r\n  200 LCORE = MCORE\r\n      CALL GOPEN (MPT,Z(BUF1),0)\r\n      CALL GOPEN (MPTA,Z(BUF2),1)\r\n      IF (ICORD+30 .GT. LCORE) GO TO 1008\r\nC\r\nC     COPY MPT TO MPTA UNTIL MAT6 IS REACHED\r\nC\r\n      FILE = MPT\r\n  210 CALL READ (*280,*1003,MPT,Z(ICORD),3,0,M)\r\n      CALL WRITE (MPTA,Z(ICORD),3,0)\r\n      IF (IZ(ICORD) .EQ. IMAT6(1)) GO TO 240\r\n  220 CALL READ (*1002,*230,MPT,Z(ICORD),LCORE,0,M)\r\n      CALL WRITE (MPTA,Z(ICORD),LCORE,0)\r\n      GO TO 220\r\n  230 CALL WRITE (MPTA,Z(ICORD),M,1)\r\n      GO TO 210\r\nC\r\nC     MAT6 RECORD FOUND. EACH MAT6 CONTAINS 31 WORDS. INCREASE THAT\r\nC     TO 40\r\nC\r\n  240 CALL READ (*1002,*270,MPT,Z(ICORD),31,0,M)\r\nC\r\nC     SEE IF THIS ID MATCHES A CID ON PIHEX) IT NEED NOT\r\nC\r\n      DO 250 J = 2,NCID,2\r\n      IF (IZ(J) .EQ. IZ(ICORD)) GO TO 258\r\n  250 CONTINUE\r\nC\r\nC     NO MATCH. MAT6 NOT REFERENCED BY PIHEX. COPY IT TO MAT6 AND FILL\r\nC     IN ALL 3 DIRECTION COSINES. THIS MAT6 IS NOT REFERENCED BY PIHEX\r\nC\r\n      DO 255 K = 1,9\r\n  255 XD(K) = 0.\r\n      GO TO 265\r\nC\r\nC     MATCH. NOW FIND IT IN CORD1R,CORD2R LIST\r\nC\r\n  258 ICID = IZ(J-1)\r\n      DO 259 II = 1,NUM\r\n      IPOINT = NCID + NUM + 13*(II-1)\r\n      IF (ICID .EQ. IZ(IPOINT+1)) GO TO 260\r\n  259 CONTINUE\r\nC\r\nC     LOGIC ERROR\r\nC\r\n      GO TO 370\r\nC\r\n  260 IZ(IPOINT+1) = -IZ(IPOINT+1)\r\n      A(1) = Z(IPOINT+ 5)\r\n      A(2) = Z(IPOINT+ 6)\r\n      A(3) = Z(IPOINT+ 7)\r\n      B(1) = Z(IPOINT+ 8)\r\n      B(2) = Z(IPOINT+ 9)\r\n      B(3) = Z(IPOINT+10)\r\n      C(1) = Z(IPOINT+11)\r\n      C(2) = Z(IPOINT+12)\r\n      C(3) = Z(IPOINT+13)\r\nC\r\nC     ZP AXIS IS B-A. YP IS ZP X (C-A). XP IS YP X ZP\r\nC\r\n      ZP(1) = B(1) - A(1)\r\n      ZP(2) = B(2) - A(2)\r\n      ZP(3) = B(3) - A(3)\r\n      STORE(1) = C(1) - A(1)\r\n      STORE(2) = C(2) - A(2)\r\n      STORE(3) = C(3) - A(3)\r\n      YP(1) = ZP(2)*STORE(3) - ZP(3)*STORE(2)\r\n      YP(2) = ZP(3)*STORE(1) - ZP(1)*STORE(3)\r\n      YP(3) = ZP(1)*STORE(2) - ZP(2)*STORE(1)\r\n      XP(1) = YP(2)*ZP(3) - YP(3)*ZP(2)\r\n      XP(2) = YP(3)*ZP(1) - YP(1)*ZP(3)\r\n      XP(3) = YP(1)*ZP(2) - YP(2)*ZP(1)\r\nC\r\nC     NOW COMPUTE DIRECTION COSINES BETWEEN XP,YP, ZP AND BASIC X,Y,Z\r\nC     X=(1,0,0),Y=(0,1,0),Z=(0,0,1)\r\nC     COS(THETA)=(DP.D)/(LENGTH OF DP)*(LENGTH OF D) WHERE DP=XP,YP,OR\r\nC     ZP   AND D=X,Y,OR Z. LENGTH OF D=1\r\nC\r\n      DL    = SQRT(XP(1)**2 + XP(2)**2 + XP(3)**2)\r\n      XD(1) = XP(1)/DL\r\n      XD(2) = XP(2)/DL\r\n      XD(3) = XP(3)/DL\r\n      DL    = SQRT(YP(1)**2 + YP(2)**2 + YP(3)**2)\r\n      XD(4) = YP(1)/DL\r\n      XD(5) = YP(2)/DL\r\n      XD(6) = YP(3)/DL\r\n      DL    = SQRT(ZP(1)**2 + ZP(2)**2 + ZP(3)**2)\r\n      XD(7) = ZP(1)/DL\r\n      XD(8) = ZP(2)/DL\r\n      XD(9) = ZP(3)/DL\r\nC\r\nC     WRITE OUT NEW MAT6 RECORD WITH DIRECTION COSINES APPENDED\r\nC\r\n  265 CALL WRITE (MPTA,Z(ICORD),31,0)\r\n      CALL WRITE (MPTA,XD,9,0)\r\nC\r\nC     GET ANOTHER MAT6\r\nC\r\n      GO TO 240\r\nC\r\nC     MAT6 RECORD FINISHED. WRITE EOR, COPY REMAINDER OF MPT, AND CHECK\r\nC     TO SEE THAT ALL PIHEX CID-S HAVE BEEN ACCOUNTED FOR.\r\nC\r\n  270 CALL WRITE (MPTA,0,0,1)\r\n      GO TO 210\r\nC\r\nC     MPT EXHAUSTED\r\nC\r\n  280 CALL CLOSE (MPT,1)\r\n      CALL CLOSE (MPTA,1)\r\n      ITRL(1) = MPT\r\n      CALL RDTRL (ITRL)\r\n      ITRL(1) = MPTA\r\n      CALL WRTTRL (ITRL)\r\n      ISOP = -1\r\n  285 RETURN\r\nC\r\nCWKBDB 5/94 SPR 93033\r\nC  310 WRITE  (NOUT,320) UWM\r\nC  320 FORMAT (A25,', EITHER EPT IS PURGED OR NO PIHEX CARDS FOUND ON ',\r\nC     1       'EPT IN ANISOP')\r\nCWKBDE 5/94 SPR 93033\r\nCWKBI  SPR 93033 5/94\r\n  310 CALL CLOSE ( EPT, 1 )\r\n      GO TO 285\r\n  330 WRITE  (NOUT,340) UFM,IZ(J)\r\n  340 FORMAT (A23,', CORD2R',I8,' DEFINES A PIHEX CID BUT HAS NONZERO',\r\n     1       ' RID')\r\n      GO TO 115\r\n  350 WRITE  (NOUT,360) UFM,IGRID\r\n  360 FORMAT (A23,', EXTERNAL GRID',I8,' CANNOT BE FOUND ON EQEXIN IN ',\r\n     1       'ANISOP')\r\n      GO TO 115\r\n  370 WRITE  (NOUT,380) UFM\r\n  380 FORMAT (A23,', NON-UNIQUE COORDINATE SYSTEMS ON PIHEX CARDS', /5X,\r\n     1       '(SEE USER MANUAL P.2.4-233(05/30/86))')\r\n      GO TO 115\r\nC\r\nCWKBDB SPR93033 5/94\r\nC 1001 N = -1\r\nC      GO TO 1010\r\nCWKBDE SPR93033 5/94\r\nCWKBIB SPR93033 5/94\r\n 1001 CALL CLOSE ( MPT, 1 )\r\n      CALL CLOSE ( GEOM1, 1 )\r\n      GO TO 285\r\nCWKBIE SPR93033 5/94\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1003 N = -3\r\n      GO TO 1010\r\n 1008 FILE = 0\r\n      N = -8\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apd.f",
    "content": "      SUBROUTINE APD\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      LOGICAL         LMKAER ,LSKIP,LSET,LSPLIN\r\n      INTEGER         IZ(1),FLAG,SILGP\r\n      INTEGER         EID,PID,CP,CIDBX,ACSID,SILB,SCR1,SCR2,SCR3,SCR4,\r\n     1                SCR5,ECTA,BGPA,GPLA,USETA,SILA,CSTMA,ACPT,BUF10,\r\n     2                BUF11,BUF12\r\n      INTEGER         CAERO2(3),CAERO3(3),CAERO4(3),CAERO5(3)\r\n      INTEGER         PAERO2(3),PAERO3(3),PAERO4(3),PAERO5(3)\r\n      INTEGER         KSPL(3),ANDF,FILE\r\n      INTEGER         SPLIN3(3)\r\n      INTEGER         CAERO1(3),PAERO1(3),AERO(3),SPLIN 1(3),SPLIN 2(3),\r\n     1                SET1(3),SET2(3),MKAER 2(3),MKAER 1(3),FLUTT R(3),\r\n     2                AEFACT(3),FLFACT(3),BUF(7),MSG(7),\r\n     3                BUF1,BUF2,BUF3,BUF4,BUF5,BUF6,BUF7,BUF8,BUF9,\r\n     4                EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,\r\n     5                EQAERO,SPLINE,AEROR,FLIST,GPLD,NAM(2),\r\n     6                AERX(3),SYMXZ,SYMXY,CORWDS,RDREW,CLSREW,\r\n     7                ORF,SYSBUF,WTREW,PSPA,NBCA(3)\r\n      INTEGER         CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,CA5S,CA5E\r\n      INTEGER         PA2S,PA2E,PA3S,PA3E,PA4S,PA4E,PA5S,PA5E\r\n      INTEGER         MSG1(9),MSG2(5),MSG3(6),MSG4(10)\r\n      COMMON /BLANK / NK,NJ,LUSETA,BOV\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,\r\n     3                SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,\r\n     4                SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,\r\n     6                CA4S,CA4E,NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E,\r\n     7                CA5S,CA5E,PA5S,PA5E\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1), IZ(1))\r\n      EQUIVALENCE     (AERX(1),SYMXZ),(AERX(2),SYMXY),(AERX(3),BREF)\r\n      DATA    RDREW , CLSREW,WTREW /0,1,1 /\r\n      DATA    MSG1  / 4HSETI,4H AND,4H/OR ,4HSPLI,4HNEI ,4HCARD,4HS RE,\r\n     1                4HQUIR,4HED  /\r\n      DATA    MSG2  / 4HNO A,4HERO ,4HCARD,4H FOU,4HND    /\r\n      DATA    MSG3  / 4HNO C,4HAERO,4H  CA,4HARDS,4HFOUN,4HD    /\r\n      DATA    MSG4  / 4HNEIT,4HHER ,4HMKAE,4HRO1 ,4HOR  ,4HMKAE,4HRO2 ,\r\n     1                4HCARD,4HS FO,4HUND /\r\n      DATA    CAERO2/ 4301,43, 0/ , CAERO3 /4401,44, 0 /\r\n      DATA    CAERO4/ 4501,45, 0/ , PAERO2 /4601,46, 0 /\r\n      DATA    PAERO3/ 4701,47, 0/ , PAERO4 /4801,48, 0 /\r\n      DATA    CAERO5/ 5001,50, 0/ , PAERO5 /5101,51, 0 /\r\n      DATA    SPLIN3/ 4901,49, 0/\r\n      DATA    KSPL  / 200 , 2, 0/\r\n      DATA    CAERO1/ 3002,30,16 /, PAERO1 /3102,31,0  /,\r\n     1        AERO  / 3202,32,0  /, SPLIN1 /3302,33,0  /,\r\n     2        SPLIN2/ 3402,34,0  /, SET1   /3502,35,0  /,\r\n     3        SET2  / 3602,36,0  /, MKAER2 /3702,37,0  /,\r\n     4        MKAER1/ 3802,38,0  /, FLUTTR /3902,39,0  /,\r\n     5        AEFACT/ 4002,40,0  /, FLFACT /4102,41,0  /,\r\n     6        NBCA  / 3002,46,0/\r\n      DATA    EDT   , EQDYN,  ECT, BGPDT, SILD, USETD, CSTM, GPLD /\r\n     1        101   , 102,    103, 104,   105,  106,   107,  108  /\r\n      DATA    EQAERO, SPLINE, AEROR, FLIST  /\r\n     1        201   , 206,    207,   209    /\r\n     2\r\n      DATA    MSG   / 7*0 /,  NAM / 4HAPD ,4H    /\r\nC\r\n      LCA  = CAERO1(3)\r\n      NOGO = 0\r\n      BUF1 = KORSZ(IZ) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      BUF5 = BUF4 - SYSBUF\r\n      BUF6 = BUF5 - SYSBUF\r\n      BUF7 = BUF6 - SYSBUF\r\n      BUF8 = BUF7 - SYSBUF\r\n      BUF9 = BUF8 - SYSBUF\r\n      BUF10= BUF9 - SYSBUF\r\n      BUF11= BUF10- SYSBUF\r\n      BUF12= BUF11- SYSBUF\r\n      SCR1 = 301\r\n      SCR2 = 302\r\n      SCR3 = 303\r\n      SCR4 = 304\r\n      SCR5 = 305\r\n      ECTA = 202\r\n      BGPA = 203\r\n      SILA = 204\r\n      USETA= 205\r\n      ACPT = 208\r\n      CSTMA= 210\r\n      GPLA = 211\r\n      SILGP= 212\r\n      LAST = BUF12 - 1\r\n      IF (LAST .LE. 0) GO TO 995\r\n      NJ   = 0\r\n      NK   = 0\r\n      I17  = IBIT(17)\r\n      I20  = IBIT(20)\r\n      PSPA = ORF(ITWO(I17),ITWO(I20))\r\nC\r\nC     READ AERO CARDS\r\nC\r\n      LEFT = LAST\r\n      FILE = EDT\r\n      CALL PRELOC (*940,Z(BUF1),EDT)\r\n      CALL LOCATE (*800,Z(BUF1),AERO,FLAG)\r\n      CALL READ (*960,*970,EDT,Z(1),6,1,FLAG)\r\n      ACSID= IZ(1)\r\n      IZX  = 2\r\n      VSOUND = Z(IZX)\r\n      IZX  = 3\r\n      BREF = Z(IZX)\r\n      BOV  = 0.0\r\n      IF (VSOUND .NE. 0.0) BOV = BREF/(2.0*VSOUND)\r\n      IZX  = 5\r\n      SYMXZ= IZ(IZX)\r\n      IZX  = 6\r\n      SYMXY= IZ(IZX)\r\nC\r\nC     READ AEFACT CARDS\r\nC\r\n      NAEF2 = 0\r\n      CALL APDR (EDT,Z,LEFT,NAEF1,NAEF2,FLAG,BUF1,AEFACT)\r\nC\r\nC     READ CSTM TABLE\r\nC\r\n      FILE  = CSTM\r\n      NCST2 = NAEF2\r\n      NCST1 = 0\r\n      MCSTM = 0\r\n      BUF(1)= CSTM\r\n      CALL RDTRL(BUF)\r\n      IF (BUF(1) .NE. CSTM) GO TO 100\r\n      CALL GOPEN (CSTM,Z(BUF2),RDREW)\r\n      NCST1 = NCST2 + 1\r\n      CALL READ (*980,*80,CSTM,Z(NCST1),LEFT,0,NCST2)\r\n      GO TO 970\r\n   80 CALL CLOSE (CSTM,CLSREW)\r\n      LEFT  = LEFT  - NCST2\r\n      NCST2 = NCST1 + NCST2 - 1\r\nC\r\nC     FIND LARGEST CID OF CSTM\r\nC\r\n      DO 90 J = NCST1,NCST2,14\r\n      IF (IZ(J) .LT. MCSTM) GO TO 90\r\n      MCSTM = IZ(J)\r\n   90 CONTINUE\r\nC\r\nC     FIND AC TRANS\r\nC\r\n  100 IF (ACSID .EQ. 0) GO TO 120\r\n      IF (NCST1 .EQ. 0) GO TO 880\r\n      DO 110 IACS = NCST1,NCST2,14\r\n      IF (IZ(IACS) .EQ. ACSID) GO TO 120\r\n  110 CONTINUE\r\n      GO TO 880\r\nC\r\nC     WRITE CSTM TO CSTMA\r\nC\r\n  120 CALL GOPEN (CSTMA,Z(BUF2),WTREW)\r\n      IF (MCSTM .NE. 0) CALL WRITE (CSTMA,Z(NCST1),NCST2-NCST1+1,0)\r\n      NCSA = MCSTM\r\nC\r\nC     READ EQDYN INTO CORE\r\nC\r\n      NEXT = NCST2 + 1\r\n      FILE = EQDYN\r\n      CALL GOPEN (EQDYN,Z(BUF3),RDREW)\r\n      CALL SKPREC (EQDYN,1)\r\n      CALL READ (*980,*140,EQDYN,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  140 CALL CLOSE (EQDYN,CLSREW)\r\n      BUF(1) = EQDYN\r\n      CALL RDTRL (BUF)\r\n      NEXTRA = BUF(3)\r\nC\r\nC     CIDBX = LARGEST ID\r\nC     NCRD  = NUMBER OF GRID AND SCALAR POINTS\r\nC\r\n      NCRD  = BUF(2) - NEXTRA\r\n      NCRDO = NCRD\r\n      CIDBX = 1000000\r\nC\r\nC     WRITE SECOND RECORD OF EQDYN ONTO SCR1\r\nC\r\n      CALL GOPEN (SCR1,Z(BUF3),WTREW)\r\n      CALL WRITE (SCR1,Z(NEXT),NX,0)\r\nC\r\nC     READ BGPDT\r\nC\r\n      FILE = BGPDT\r\n      CALL GOPEN (BGPDT,Z(BUF4),RDREW)\r\n      CALL READ (*980,*150,BGPDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  150 CALL CLOSE (BGPDT,CLSREW)\r\nC\r\nC     WRITE BGPDT TO BGPA\r\nC\r\n      CALL GOPEN (BGPA,Z(BUF4),WTREW)\r\n      CALL WRITE (BGPA,Z(NEXT),NX,0)\r\nC\r\nC     READ USETD\r\nC\r\n      FILE = USETD\r\n      CALL GOPEN (USETD,Z(BUF5),RDREW)\r\n      CALL READ (*980,*160,USETD,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  160 CALL CLOSE (USETD,CLSREW)\r\nC\r\nC     MASK IN PS AND PA BITS\r\nC\r\n      N2 = NEXT + NX - 1\r\n      DO 170 I = NEXT,N2\r\n  170 IZ(I) = ORF(IZ(I),PSPA)\r\nC\r\nC     WRITE USETD TO USETA\r\nC\r\n      FILE = USETA\r\n      CALL GOPEN (USETA,Z(BUF5),WTREW)\r\n      CALL WRITE (USETA,Z(NEXT),NX,0)\r\nC\r\nC     READ ECT\r\nC\r\n      FILE   = ECT\r\n      BUF(1) = ECT\r\n      CALL GOPEN (ECTA,Z(BUF6),WTREW)\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .NE. ECT) GO TO 210\r\n      CALL GOPEN (ECT,Z(BUF7),RDREW)\r\n  180 CALL READ (*200,*190,ECT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  190 CALL WRITE (ECTA,Z(NEXT),NX,1)\r\n      GO TO 180\r\n  200 CALL CLOSE (ECT,CLSREW)\r\n  210 CALL WRITE (ECTA,NBCA,3,0)\r\nC\r\nC     READ FIRST RECORD OF SILD INTO CORE\r\nC\r\n      FILE = SILD\r\n      CALL GOPEN (SILD,Z(BUF8),RDREW)\r\n      CALL READ (*980,*220,SILD,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\nC\r\nC     WRITE FIRST RECORD OF SILD ONTO SILA\r\nC\r\n  220 BUF(1) = SILD\r\n      CALL RDTRL (BUF)\r\nC\r\nC     SILB  + 6 = NEXT DOF IN PROBLEM\r\nC     ISILN + 6 = NEXT DOF WITHOUT EXTRA POINTS\r\nC\r\n      SILB  = BUF(2) - 5\r\n      ISILN = SILB - NEXTRA\r\n      CALL GOPEN (SILA,Z(BUF7),WTREW)\r\n      CALL WRITE (SILA,Z(NEXT),NX,0)\r\nC\r\nC     READ SECOND RECORD OF SILD INTO CORE\r\nC\r\n      CALL READ (*980,*230,SILD,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  230 CALL CLOSE (SILD,CLSREW)\r\nC\r\nC     WRITE SECOND RECORD OF SILD ONTO SCR2\r\nC\r\n      CALL GOPEN (SCR2,Z(BUF8),WTREW)\r\n      CALL WRITE (SCR2,Z(NEXT),NX,0)\r\nC\r\nC     COPY GPLD TO GPLA\r\nC\r\n      FILE = GPLD\r\n      CALL GOPEN (GPLD,Z(BUF9),RDREW)\r\n      CALL READ (*980,*235,GPLD,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  235 CALL CLOSE (GPLD,CLSREW)\r\n      CALL GOPEN (GPLA,Z(BUF9),WTREW)\r\n      CALL WRITE (GPLA,Z(NEXT),NX,0)\r\nC\r\nC     READ CAERO CARDS INTO CORE\r\nC\r\n      NCA2 = NCST2\r\n      LCAS = NCA2 + 1\r\n      CALL APDR (EDT,Z,LEFT,NCA1,NCA2,FLAG,BUF1,CAERO1)\r\n      CA2E = NCA2\r\n      CALL APDR (EDT,Z,LEFT,CA2S,CA2E,FLAG,BUF1,CAERO2)\r\n      CA3E = CA2E\r\n      CALL APDR (EDT,Z,LEFT,CA3S,CA3E,FLAG,BUF1,CAERO3)\r\n      CA4E = CA3E\r\n      CALL APDR (EDT,Z,LEFT,CA4S,CA4E,FLAG,BUF1,CAERO4)\r\n      CA5E = CA4E\r\n      CALL APDR (EDT,Z,LEFT,CA5S,CA5E,FLAG,BUF1,CAERO5)\r\n      LCAE = MAX0(NCA2,CA2E,CA3E,CA4E,CA5E)\r\nC\r\nC     READ PAERO CARDS INTO CORE\r\nC\r\n      NPA2 = CA5E\r\n      CALL APDR (EDT,Z,LEFT,NPA1,NPA2,FLAG,BUF1,PAERO1)\r\n      PA2E = NPA2\r\n      CALL APDR (EDT,Z,LEFT,PA2S,PA2E,FLAG,BUF1,PAERO2)\r\n      PA3E = PA2E\r\n      CALL APDR (EDT,Z,LEFT,PA3S,PA3E,FLAG,BUF1,PAERO3)\r\n      PA4E = PA3E\r\n      CALL APDR (EDT,Z,LEFT,PA4S,PA4E,FLAG,BUF1,PAERO4)\r\n      PA5E = PA4E\r\n      CALL APDR (EDT,Z,LEFT,PA5S,PA5E,FLAG,BUF1,PAERO5)\r\n      NEXT = PA5E + 1\r\n      CALL CLOSE (EDT,CLSREW)\r\n      IF (NCA1.EQ.0 .AND. CA2S.EQ.0 .AND. CA3S.EQ.0 .AND. CA4S.EQ.0\r\n     1   .AND. CA5S.EQ.0) GO TO 820\r\nC\r\nC     OPEN ACPT\r\nC\r\n      CALL GOPEN (ACPT,Z(BUF1),WTREW)\r\nC\r\nC     CALL CAERO TYPE\r\nC\r\n      IF (NCA1.NE.0 .OR. CA2S.NE.0) CALL APD12\r\n      IF (CA3S .NE. 0) CALL APD3\r\n      IF (CA4S .NE. 0) CALL APD4\r\n      IF (CA5S .NE. 0) CALL APD5\r\n      LUSETA = LUSETA + 5\r\n      CALL WRITE (CSTMA,0,0,1)\r\n      CALL CLOSE (CSTMA,CLSREW)\r\n      CALL CLOSE (ACPT,CLSREW)\r\n      CALL WRITE (ECTA,0,0,1)\r\n      CALL CLOSE (ECTA,CLSREW)\r\n      CALL WRITE (BGPA,0,0,1)\r\n      CALL CLOSE (BGPA,CLSREW)\r\n      CALL WRITE (GPLA,0,0,1)\r\n      CALL CLOSE (GPLA,CLSREW)\r\n      CALL WRITE (USETA,0,0,1)\r\n      CALL CLOSE (USETA,CLSREW)\r\n      CALL WRITE (SILA,0,0,1)\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR2,CLSREW)\r\nC\r\nC     READ SECOND RECORD OF EQAERO TABLE OFF SCR1\r\nC\r\n      FILE = SCR1\r\n      CALL GOPEN (SCR1,Z(BUF3),RDREW)\r\n      I = NEXT\r\n  411 CONTINUE\r\n      IF (I+2 .GT. NEXT+LEFT) GO TO 970\r\n      CALL READ (*980,*420,SCR1,Z(I),2,0,NX)\r\n      IZ(I+2) = 0\r\n      I = I + 3\r\n      GO TO 411\r\n  420 CALL CLOSE (SCR1,CLSREW)\r\n      NX = I - NEXT\r\nC\r\nC     SORT TABLE ON SILD VALUE\r\nC\r\n      CALL SORT (0,0,3,2,Z(NEXT),NX)\r\n      NY = NEXT + NX - 1\r\nC\r\nC     REPLACE THIRD ENTRIES WITH INTERNAL GRID ID WITH OUT EXTRA\r\nC\r\n      K = 0\r\n      DO 412 I = NEXT,NY,3\r\n      IF (IZ(I+1)-(IZ(I+1)/10)*10 .EQ. 3) GO TO 412\r\n      K = K + 1\r\n      IZ(I+2) = K\r\n  412 CONTINUE\r\nC\r\nC     SORT EQAERO TABLE\r\nC\r\n      CALL SORT (0,0,3,1,Z(NEXT),NX)\r\nC\r\nC     CHECK FOR DUPLICATE EXT ID\r\nC\r\n      N1 = NEXT + 3\r\n      DO 430 I = N1,NY,3\r\n      IF (IZ(I-3) .NE. IZ(I)) GO TO 430\r\n      CALL EMSG (0,2329,1,2,0)\r\n      NOGO = 1\r\n      WRITE  (NOT,421) IZ(I)\r\n  421 FORMAT (10X,26HDUPLICATE EXTERNAL ID NO. ,I8,11H GENERATED.)\r\n  430 CONTINUE\r\nC\r\nC     WRITE FIRST RECORD OF EQAERO TABLE\r\nC\r\n      CALL GOPEN (EQAERO,Z(BUF3),WTREW)\r\n      DO 440 I = NEXT,NY,3\r\n      BUF(1) = IZ(I  )\r\n      BUF(2) = IZ(I+2)\r\n  440 CALL WRITE (EQAERO,BUF,2,0)\r\n      CALL WRITE (EQAERO,0,0,1)\r\nC\r\nC     WRITE SECOND RECORD OF EQAERO TABLE\r\nC\r\n      DO 441 I = NEXT,NY,3\r\n  441 CALL WRITE (EQAERO,IZ(I),2,0)\r\n      CALL WRITE (EQAERO,0,0,1)\r\n      CALL CLOSE (EQAERO,CLSREW)\r\nC\r\nC     PUT ON SPLINE A RECORD OF K POINTS WITH\r\nC     EXTERNAL ID , BGPA POINTERS, AND K COLUMN NUMBER\r\nC\r\n      FILE = USETA\r\n      N1   = NEXT + NX\r\n      CALL GOPEN (USETA,Z(BUF3),RDREW)\r\n      CALL READ (*980,*442,USETA,Z(N1),LEFT-NX,0,N2)\r\n      GO TO 970\r\n  442 CALL CLOSE (USETA,CLSREW)\r\n      CALL GOPEN (SPLINE,Z(BUF3),WTREW)\r\n      CALL WRITE (SPLINE,KSPL,3,0)\r\n      MASK = IBIT(19)\r\n      MASK = ITWO(MASK)\r\n      KO   = 1\r\n      N3   = (NCRDO+NEXTRA)*3 + NEXT\r\n      DO 444 I = NEXT,NY,3\r\n      IF (MOD(IZ(I+1),10) .NE. 1) GO TO 444\r\n      K  = 0\r\n      N4 = IZ(I+1)/10 - 2\r\n      DO 443 J = 1,6\r\n      IF (ANDF(IZ(N1+N4+J),MASK) .NE. 0) K = K + 1\r\n  443 CONTINUE\r\n      IF (K .EQ. 0) GO TO 444\r\n      BUF(1) = IZ(I  )\r\n      BUF(2) = IZ(I+2)\r\n      BUF(3) = KO\r\n      CALL WRITE (SPLINE,BUF,3,0)\r\n      KO = KO + K\r\n  444 CONTINUE\r\n      CALL WRITE (SPLINE,0,0,1)\r\n      CALL CLOSE (SPLINE,2)\r\nC\r\nC     READ SECOND RECORD OF SILA TABLE\r\nC\r\n      CALL GOPEN (SCR2,Z(BUF8),RDREW)\r\n      CALL READ  (*980,*450,SCR2,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  450 CALL CLOSE (SCR2,CLSREW)\r\n      CALL WRITE (SILA,Z(NEXT),NX,1)\r\n      CALL CLOSE (SILA,CLSREW)\r\nC\r\nC     BUILD SILGP TABLE\r\nC\r\n      CALL GOPEN (SILGP,Z(BUF8),W TREW)\r\n      NY = NEXT + NX - 1\r\n      K  = 0\r\n      DO 451 I = NEXT,NY,2\r\n      IZ(NEXT+K) = IZ(I)\r\n      K  = K + 1\r\n  451 CONTINUE\r\n      CALL WRITE (SILGP,IZ(NEXT),K,1)\r\n      CALL CLOSE (SILGP,CLSREW)\r\nC\r\nC     WRITE RECORD\r\nC\r\n      CALL GOPEN (AEROR,Z(BUF2),WTREW)\r\n      CALL WRITE (AEROR,AERX,3,1)\r\nC\r\nC     READ IN MKAERO1 CARDS\r\nC\r\n      FILE = EDT\r\n      CALL PRELOC (*940,Z(BUF1),EDT)\r\n      LMKAER = .FALSE.\r\n      CALL LOCATE (*510,Z(BUF1),MKAER1,FLAG)\r\n      CALL READ (*980,*460,EDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  460 N1 = NEXT\r\n      LMKAER = .TRUE.\r\n  470 N2 = N1 + 7\r\n      DO 490 I = N1,N2\r\n      IF (IZ(I) .EQ. -1) GO TO 500\r\n      BUF(1) = IZ(I)\r\n      N3 = N2 + 1\r\n      N4 = N3 + 7\r\n      DO 480 J = N3,N4\r\n      IF (IZ(J) .EQ. -1) GO TO 490\r\n      BUF(2) = IZ(J)\r\n  480 CALL WRITE (AEROR,BUF,2,0)\r\n  490 CONTINUE\r\n  500 IF (N4-NEXT+1 .GE. NX) GO TO 510\r\n      N1 = N1 + 16\r\n      GO TO 470\r\nC\r\nC     READ IN MKAER2 CARDS\r\nC\r\n  510 CALL LOCATE (*530,Z(BUF1),MKAER2,FLAG)\r\n      CALL READ (*980,*520,EDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  520 CALL WRITE (AEROR,Z(NEXT),NX,0)\r\n      LMKAER =.TRUE.\r\n  530 CALL WRITE (AEROR,0,0,1)\r\n      CALL CLOSE (AEROR,CLSREW)\r\n      IF (LMKAER) GO TO 540\r\n      GO TO 870\r\nC\r\nC     PROCESS SET1 CARDS\r\nC\r\n  540 CALL OPEN (*940,SPLINE,Z(BUF2),3)\r\n      LSET =.FALSE.\r\n      CALL LOCATE (*610,Z(BUF1),SET1,FLAG)\r\n      LSET =.TRUE.\r\n      CALL READ (*980,*550,EDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  550 N3 = NEXT + NX\r\n      CALL GOPEN (EQAERO,Z(BUF3),RDREW)\r\n      LEFT = CORWDS(IZ(N3),IZ(LAST))\r\n      FILE = EQAERO\r\n      CALL READ (*980,*560,EQAERO,Z(N3),LEFT,0,N4)\r\n      GO TO 970\r\n  560 N1 = NEXT\r\n      FILE = EDT\r\n      N2 = N1 + NX - 1\r\n      CALL CLOSE (EQAERO,CLSREW)\r\n      LEFT = CORWDS(IZ(NEXT),IZ(LAST))\r\nC\r\nC     CONVERT SET1 TO INTERNAL COOR NO\r\nC\r\n      LSKIP = .TRUE.\r\n      DO 600 I = N1,N2\r\n      IF (IZ(I) .EQ. -1) GO TO 590\r\n      IF (LSKIP) GO TO 580\r\n      KID = IZ(I)\r\n      CALL BISLOC (*930,KID,IZ(N3),2,N4/2,JP)\r\n      K = N3 + JP\r\n      IF (IZ(K) .GT. NCRDO) GO TO 930\r\n      IZ(I) = IZ(K)\r\n      GO TO 600\r\n  580 LSKIP =.FALSE.\r\n      GO TO 600\r\n  930 CALL EMSG (0,2330,1,2,0)\r\n      NOGO = 1\r\n      WRITE  (NOT,931) IZ(N1),IZ(I)\r\n  931 FORMAT (10X,24HSET1 OR SPLIN3 CARD NO. ,I8,28H REFERENCES EXTERNAL\r\n     1 ID NO. ,I8,22H WHICH DOES NOT EXIST.)\r\n      GO TO 600\r\n  590 LSKIP = .TRUE.\r\n  600 CONTINUE\r\nC\r\nC     WRITE OUT SET1 CARD ON SPLINE\r\nC\r\n      CALL WRITE (SPLINE,SET1,3,0)\r\n      CALL WRITE (SPLINE,Z(NEXT),NX,1)\r\nC\r\nC     PROCESS SET2 CARDS\r\nC\r\n  610 CALL LOCATE (*660,Z(BUF1),SET2,FLAG)\r\n      LSET =.TRUE.\r\n      CALL WRITE (SPLINE,SET2,3,0)\r\n  620 CALL READ (*980,*650,EDT,Z(NEXT),8,0,NX)\r\n      CALL WRITE (SPLINE,Z(NEXT),10,0)\r\n      NX = IZ(NEXT+1)\r\n      DO 630 I = LCAS,LCAE,LCA\r\n      IF (IZ(I) .EQ. NX) GO TO 640\r\n  630 CONTINUE\r\n      GO TO 830\r\n  640 CALL WRITE (SPLINE,Z(I),LCA,0)\r\n      GO TO 620\r\n  650 CALL WRITE (SPLINE,0,0,1)\r\nC\r\nC     PROCESS SPLINE1 CARDS\r\nC\r\n  660 LSPLIN =.FALSE.\r\n      CALL LOCATE (*710,Z(BUF1),SPLIN1,FLAG)\r\n      LSPLIN =.TRUE.\r\n      CALL WRITE (SPLINE,SPLIN 1,3,0)\r\n      ASSIGN 670 TO IRET\r\n  670 CALL READ (*980,*700,EDT,Z(NEXT),6,0,NX)\r\n      GO TO 671\r\nC\r\nC     INTERNAL ROUTINE TO ATTACH CAERO DATA TO SPLINE\r\nC\r\n  671 CONTINUE\r\n      CALL WRITE (SPLINE,Z(NEXT),10,0)\r\n      NX = IZ(NEXT+1)\r\n      DO 680 I = LCAS,LCAE,LCA\r\n      IF (IZ(I) .EQ. NX) GO TO 690\r\n  680 CONTINUE\r\n      GO TO 810\r\n  690 CALL WRITE (SPLINE,Z(I),LCA,0)\r\n      IF (IZ(NEXT+2) .GT. IZ(NEXT+3)) GO TO 691\r\n      J1 = IZ(I+4)*IZ(I+3) + IZ(I) - 1\r\n      IF (IZ(NEXT+2).LT.IZ(I) .OR. IZ(NEXT+3).GT.J1) GO TO 691\r\n      GO TO 693\r\n  691 NOGO = 1\r\n      CALL EMSG (0,2331,1,2,0)\r\n      WRITE  (NOT,692) IZ(NEXT),IZ(I)\r\n  692 FORMAT (10X,30HBOX PICKED ON SPLINE CARD NO. ,I8,32HNOT GENERATED\r\n     1BY CAERO CARD NO. ,I8,1H.)\r\n  693 GO TO IRET, (670,720,7651)\r\n  700 CALL WRITE (SPLINE,0,0,1)\r\nC\r\nC     PROCESS SPLINE2 CARDS\r\nC\r\n  710 CALL LOCATE (*760,Z(BUF1),SPLIN2,FLAG)\r\n      LSPLIN =.TRUE.\r\n      CALL WRITE (SPLINE,SPLIN 2,3,0)\r\n      ASSIGN 720 TO IRET\r\n  720 CALL READ (*980,*750,EDT,Z(NEXT),10,0,NX)\r\n      GO TO 671\r\n  750 CALL WRITE (SPLINE,0,0,1)\r\nC\r\nC     PROCESS  SPLINE3 CARDS\r\nC\r\n  760 NSPLIE = NEXT - 1\r\n      CALL APDR (EDT,Z,LEFT,NSPLIS,NSPLIE,FLAG,BUF1,SPLIN3)\r\n      IF (NSPLIS .EQ. 0) GO TO 769\r\n      FILE = EQAERO\r\n      N3   = NSPLIE + 1\r\n      CALL GOPEN (EQAERO,Z(BUF3),RDREW)\r\n      CALL READ (*980,*761,EQAERO,Z(N3),LEFT,0,N4)\r\n      GO TO 970\r\n  761 FILE = EDT\r\n      CALL CLOSE (EQAERO,CLSREW)\r\n      N4   = N4/2\r\n      LSET = .TRUE.\r\n      LEFT = LEFT + FLAG\r\n      LSPLIN = .TRUE.\r\n      ASSIGN 7651 TO IRET\r\n      CALL WRITE (SPLINE,SPLIN3,3,0)\r\n      ISP = NSPLIS\r\n      NLS = 0\r\nC\r\nC     PICK UP NEXT SPLIN3 AND ATTACHED CAERO\r\nC\r\n  765 ISP = ISP + NLS\r\n      IF (ISP .GE. NSPLIE) GO TO 768\r\n      CALL APDOE (IZ(ISP),Z,ISP,NSPLIE,FLAG,NLS)\r\n      NLS = NLS + 1\r\n      NX  = IZ(ISP+1)\r\n      DO 766 I = LCAS,LCAE,LCA\r\n      J   = I\r\n      IF (IZ(I) .EQ. NX) GO TO 767\r\n  766 CONTINUE\r\n      GO TO 810\r\n  767 J1  = IZ(I+3)*IZ(I+4) + NX - 1\r\n      IZ(NEXT) = IZ(ISP)\r\n      IF (IZ(ISP+2) .LT. IZ(ISP+1)) GO TO 691\r\n      IF (IZ(ISP+2) .GT. J1) GO TO 691\r\nC\r\nC     CONVERT TO INTERNAL ID\r\nC\r\n      N2 = NLS - 4\r\n      DO 7652 I = 1,N2,3\r\n      N1 = IZ(ISP+I+3)\r\n      CALL BISLOC (*7653,N1,IZ(N3),2,N4,JP)\r\n      IF (IZ(N3+JP) .GT. NCRDO) GO TO 7653\r\n      IZ(ISP+I+3) = IZ(N3+JP)\r\n 7652 CONTINUE\r\n 7651 CALL WRITE (SPLINE,NLS+LCA,1,0)\r\n      CALL WRITE (SPLINE,IZ(ISP),NLS,0)\r\n      NLS = NLS + 1\r\n      CALL WRITE (SPLINE,IZ(J),LCA,0)\r\n      GO TO 765\r\n 7653 NOGO = 1\r\n      CALL EMSG (0,2330,1,2,0)\r\n      WRITE (NOT,931) IZ(ISP),N1\r\n      GO TO 7651\r\n  768 CALL WRITE (SPLINE,0,0,1)\r\n  769 CALL CLOSE (SPLINE,CLSREW)\r\nC\r\nC     CREATE FLIST TABLE\r\nC\r\n      CALL GOPEN (FLIST,Z(BUF2),WTREW)\r\n      CALL LOCATE (*800,Z(BUF1),AERO,FLAG)\r\n      CALL READ (*980,*770,EDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  770 CALL WRITE (FLIST,AERO,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n      CALL LOCATE (*785,Z(BUF1),FLFACT,FLAG)\r\n      CALL READ (*980,*780,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 970\r\n  780 CALL WRITE (FLIST,FLFACT,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n  785 CALL LOCATE (*900,Z(BUF1),FLUTTR,FLAG)\r\n      CALL READ (*980,*790,EDT,Z(NEXT),LEFT,0,NX)\r\n      GO TO 970\r\n  790 CALL WRITE (FLIST,FLUTT R,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n  900 CALL CLOSE (FLIST,CLSREW)\r\n      CALL CLOSE (EDT,CLSREW)\r\n      MSG(1) = AEROR\r\n      MSG(2) = 1\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = EQDYN\r\n      CALL RDTRL (MSG)\r\n      MSG(1) = EQAERO\r\n      MSG(2) = NCRD + NEXTRA\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = BGPDT\r\n      CALL RDTRL (MSG(1))\r\n      MSG(3) = NCRD - MSG(2)\r\n      MSG(1) = BGPA\r\n      MSG(2) = NCRD\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = SILA\r\n      MSG(2) = LUSETA\r\n      MSG(3) = NEXTRA\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = ACPT\r\n      MSG(2) = 1\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = GPLA\r\n      MSG(2) = NCRD + NEXTRA\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = CSTM\r\n      CALL RDTRL (MSG)\r\n      IF (MSG(1) .LT.0) MSG(3) = 0\r\n      MSG(1) = CSTMA\r\n      MSG(3) = MSG(3) + MCSTM - NCSA\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = USETA\r\n      MSG(2) = LUSETA\r\n      MSG(3) = NEXTRA\r\n      MSG(4) = PSPA\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = EDT\r\n      CALL RDTRL (MSG)\r\n      MSG(1) = FLIST\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = EDT\r\n      CALL RDTRL (MSG)\r\n      MSG(1) = SPLINE\r\n      MSG(2) = ORF(MSG(2),ITWO(18))\r\n      CALL WRTTRL (MSG)\r\n      MSG(1) = ECT\r\n      CALL RDTRL (MSG)\r\n      N1     = (NBCA(2)-1)/16 + 2\r\n      N2     = NBCA(2) - (N1-2)*16 + 16\r\n      MSG(N1)= ORF(MSG(N1),ITWO(N2))\r\n      MSG(1) = ECTA\r\n      CALL WRTTRL (MSG)\r\nC\r\nC     PUT OUT SILGP TRAILER\r\nC\r\n      MSG(1) = SILGP\r\n      MSG(2) = NCRD\r\n      MSG(3) = LUSETA - NEXTRA\r\n      MSG(4) = 0\r\n      MSG(5) = 0\r\n      MSG(6) = 0\r\n      MSG(7) = 0\r\n      CALL WRTTRL (MSG)\r\n      IF (NOGO .EQ. 1) CALL MESAGE (-37,0,NAM)\r\n      IF (LSET .AND. LSPLIN) RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n      CALL EMSG (35,-2328,1,2,MSG1)\r\n  800 CALL EMSG (18,-2318,1,3,MSG2)\r\n  810 CALL EMSG (0,-2324,1,2,0)\r\n      WRITE  (NOT,811) NX\r\n  811 FORMAT (10X,19HCAERO  ELEMENT NO. ,I8,\r\n     1        45H REFERENCED ON A SPLINEI CARD DOES NOT EXIST.)\r\n  812 CALL MESAGE (-61,0,NAM)\r\n  820 CALL EMSG (21,-2319,1,2,MSG3)\r\n  830 CALL EMSG (0,-2325,1,2,0)\r\n      WRITE  (NOT,831) NX\r\n  831 FORMAT (10X,19HCAERO  ELEMENT NO. ,I8,\r\n     1        42H REFERENCED ON A SET2 CARD DOES NOT EXIST.)\r\n      GO TO 812\r\n  870 CALL EMSG (38,-2322,1,2,MSG4)\r\n  880 CALL MESAGE (-30,25,ACSID)\r\n  940 IP1 = -1\r\n  950 CALL MESAGE (IP1,FILE,NAM)\r\n  995 IP1 = -8\r\n      GO TO 950\r\n  960 IP1 = -2\r\n      GO TO 950\r\n  970 IP1 = 3\r\n      GO TO 950\r\n  980 GO TO 960\r\n      END\r\n"
  },
  {
    "path": "mis/apd1.f",
    "content": "      SUBROUTINE APD1 (FST,NS,FCT,NC,LS,LC)\r\nC\r\n      LOGICAL         LS,LC\r\n      INTEGER         IZ(1),NAME(2),FILE,NCARY(2),SILC,NECTA(6),\r\n     1                CP,ACSID,EID,EIDB,CID(5),CIDBX,AUSET(6,2),SILB,\r\n     2                RDREW,CLSREW,AYS(5),KEY(5),SILDX(4),ACSIX(4),BACK,\r\n     3                SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,\r\n     4                SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,WTREW,ACSIB,PID\r\n      REAL            RB1(3),ACPL(3,3),VX1(3),VX2(3),AXIC(3),FST(1),\r\n     1                FCT(1),XB(5)\r\n      COMMON /BLANK / NK,NJ,LUSETA\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,\r\n     3                SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,\r\n     4                SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN\r\n      COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3)\r\n      COMMON /APD12C/ KEY,AUSET,USA,UK,NCAM2,NASB,IPPC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)),\r\n     1                (NECTA(2),CID(1)),(KEY(2),NP),(KEY(3),NSTRIP),\r\n     2                (KEY(4),NTP),(KEY(5),F),(AYS(1),YS),(AYS(2),ZS),\r\n     3                (AYS(3),EE),(AYS(4),SG),(AYS(5),CG),(AXIC(1),XIC),\r\n     4                (AXIC(2),DELX),(AXIC(3),XLAM),(SILDX(1),ICID),\r\n     5                (SILDX(3),SILC),(ACSIX(1),ACSIB),(Z(1),IZ(1)),\r\n     6                (ACSIX(2),VX2(1)),(NECTA(1),EIDB)\r\n      DATA    RDREW , CLSREW,WTREW / 0,1,1 /\r\n      DATA    NAME  / 4HAPD1,1H    /\r\nC\r\n      KEY(1) = 1\r\n      SILC   = SILB\r\nC\r\nC     IF NEW IGRID SET INITIALIZE\r\nC\r\n      IF (.NOT.LS) GO TO 30\r\n      NP   = 0\r\n      NTP  = 0\r\n      NBOX = 0\r\n      NASB = 0\r\n      NSTRIP = 0\r\n      CALL GOPEN (SCR3,Z(BUF10),WTREW)\r\n      CALL GOPEN (SCR4,Z(BUF11),WTREW)\r\n      CALL GOPEN (SCR5,Z(BUF12),WTREW)\r\nC\r\nC     MAKE COORD SYSTEM AND GET POINTS IN PROPER SYSTEM\r\nC\r\n   30 CALL APDCS\r\n      SG = S1\r\n      CG = C1\r\n      ACSIB = MCSTM\r\nC\r\nC     CHECK FOR ASSOCIATED BODIES\r\nC\r\n      DO 40 J = 1,6\r\n      IF (IZ(IPPC+J) .EQ. 0) GO TO 45\r\n   40 NASB = NASB + 1\r\n   45 CONTINUE\r\nC\r\nC     GENERATE BOXES\r\nC\r\n      NCRDP= NCRD\r\n      NP   = NP + 1\r\n      FSJ1 = APDF(FST,1,NSPAN)\r\n      YJ1  = FSJ1*YP4\r\n      DJ1  = FSJ1*XP4\r\n      CJ1  = (1.0-FSJ1)*XP2 + FSJ1*(XP3-XP4)\r\n      EIDB = EID - 1\r\n      DO 370 J = 1,NS\r\n      YJ   = YJ1\r\n      DJ   = DJ1\r\n      CJ   = CJ1\r\n      FSJ1 = APDF(FST,J+1,NSPAN)\r\n      YJ1  = FSJ1*YP4\r\n      DJ1  = FSJ1*XP4\r\n      CJ1  = (1.0-FSJ1)*XP2 + FSJ1*(XP3-XP4)\r\n      EE   = .5*(YJ1-YJ)\r\n      YSP  = YJ + EE\r\n      NSTRIP = NSTRIP + 1\r\n      FCI1 = APDF(FCT,1,NCHORD)\r\n      XI1J = DJ + FCI1*CJ\r\n      XI1J1= DJ1+ FCI1*CJ1\r\n      DS   = 1.0/(YJ1-YJ)\r\n      YS   = YSP*CG + RA1(2)\r\n      ZS   = YSP*SG + RA1(3)\r\n      CALL WRITE (SCR3,AYS(1),5,0)\r\n      DO 370 I = 1,NC\r\n      NTP  = NTP + 1\r\n      XIJ  = XI1J\r\n      XIJ1 = XI1J1\r\n      FCI1 = APDF(FCT,I+1,NCHORD)\r\n      XI1J = DJ + FCI1*CJ\r\n      XI1J1= DJ1+ FCI1*CJ1\r\n      AIJ  = (1.0-XOP)*XIJ  + XOP*XI1J\r\n      AIJ1 = (1.0-XOP)*XIJ1 + XOP*XI1J1\r\n      XIC  = .5*(AIJ+AIJ1)  + RA1(1)\r\n      XLAM = (AIJ1-AIJ)*DS\r\n      DELX = .50*(-XIJ+XI1J - XIJ1+XI1J1)\r\n      CALL WRITE (SCR4,AXIC(1),3,0)\r\n      XIC  = XIC - RA1(1)\r\n      EIDB = EIDB + 1\r\n      NBOX = NBOX + 1\r\n      CID(1) = CIDBX + I + (NC+1)*(J-1)\r\n      CID(2) = CID(1) + 1\r\n      CID(3) = CID(1) + NC + 1\r\n      CID(4) = CID(3) + 1\r\n      CID(5) = EIDB\r\n      NCID = CID(4)\r\n      NJ   = NJ + 1\r\n      NK   = NK + 2\r\n      VX1(3) = 0\r\n      IF (J .NE. 1) GO TO 310\r\n      IF (I .NE. 1) GO TO 300\r\n      ASSIGN 300 TO BACK\r\n      ICID = CID(1)\r\n      VX1(1) = XIJ\r\n      VX1(2) = YJ\r\n      KK = 1\r\n      GO TO 340\r\n  300 ASSIGN 310 TO BACK\r\n      ICID = CID(2)\r\n      VX1(1) = XI1J\r\n      VX1(2) = YJ\r\n      KK = 1\r\n      GO TO 340\r\n  310 IF (I .NE. 1) GO TO 320\r\n      ASSIGN 320 TO BACK\r\n      ICID = CID(3)\r\n      VX1(1) = XIJ1\r\n      VX1(2) = YJ1\r\n      KK = 1\r\n      GO TO 340\r\n  320 ASSIGN 330 TO BACK\r\n      ICID = CID(4)\r\n      VX1(1) = XI1J1\r\n      VX1(2) = YJ1\r\n      KK = 1\r\n      GO TO 340\r\n  330 ASSIGN 360 TO BACK\r\n      ICID = CID(5)\r\n      VX1(1) = XIC + .25*DELX\r\n      VX1(2) = YSP\r\n      KK = 2\r\n  340 CALL GMMATS (ACPL,3,3,0, VX1,3,1,0, VX2)\r\n      DO 350 K = 1,3\r\n  350 VX2(K) = VX2(K) + RB1(K)\r\n      CALL WRITE (BGPA,ACSIX,4,0)\r\n      CALL WRITE (GPLA,ICID,1,0)\r\n      CALL WRITE (USETA,AUSET(1,KK),6,0)\r\n      NCRD = NCRD + 1\r\n      SILC = SILC + 6\r\n      ISILN= ISILN + 6\r\n      SILDX(4) = ISILN\r\n      LUSETA = SILC\r\n      SILDX(2) = 10*SILC + 1\r\n      CALL WRITE (SILA,SILC,1,0)\r\n      CALL WRITE (SCR2,ISILN,1,0)\r\n      CALL WRITE (SCR2,SILC,1,0)\r\n      CALL WRITE (SCR1,ICID,2,0)\r\n      GO TO BACK, (300,310,320,330,360)\r\n  360 CID(1) = IAPD(I  ,J  ,NC,NCRDP)\r\n      CID(2) = IAPD(I+1,J  ,NC,NCRDP)\r\n      CID(4) = IAPD(I  ,J+1,NC,NCRDP)\r\n      CID(3) = IAPD(I+1,J+1,NC,NCRDP)\r\n      CID(5) = CID(3) + 1\r\n      CALL WRITE (ECTA,NECTA(1),6,0)\r\n  370 CONTINUE\r\n      CIDBX = NCID\r\n      NCARY(1) = NC\r\n      NCARY(2) = NBOX\r\n      CALL WRITE (SCR5,NCARY,2,0)\r\nC\r\nC     ADD PROPERITY CARD POINTERS FOR APD2\r\nC\r\n      CALL WRITE (SCR5,IPPC,1,0)\r\n      SILB = SILC\r\n      IF(.NOT.LC) RETURN\r\nC\r\nC     WRITE ACPT TABLE\r\nC\r\n      F = X1P - XOP\r\n      CALL WRITE (ACPT,KEY,5,0)\r\nC\r\nC     COPY STUFF FROM SCRATCH FILES TO ACPT\r\nC\r\n      FILE = SCR5\r\n      K = 3\r\n      ASSIGN 410 TO IRET\r\n      GO TO 375\r\n  410 ASSIGN 420 TO IRET\r\n      FILE = SCR3\r\n      K = 5\r\n      GO TO 375\r\n  420 ASSIGN 430 TO IRET\r\n      FILE = SCR4\r\n      K = 3\r\n  375 CALL WRITE (FILE,0,0,1)\r\n      CALL CLOSE (FILE,CLSREW)\r\n      CALL GOPEN (FILE,Z(BUF12),RDREW)\r\n      DO 400 I = 1,K\r\n  380 CALL READ (*480,*390,FILE,XB(1),K,0,J)\r\nC\r\nC     SKIP PROPERTY CARD POINTERS\r\nC\r\n      IF (I.EQ.3 .AND. FILE.EQ.SCR5) GO TO 380\r\n      CALL WRITE (ACPT,XB(I),1,0)\r\n      GO TO 380\r\n  390 CALL REWIND (FILE)\r\n      CALL SKPREC (FILE,1)\r\n  400 CONTINUE\r\n      CALL CLOSE (FILE,CLSREW)\r\n      GO TO IRET, (410,420,430)\r\n  430 CALL WRITE (ACPT,0,0,1)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  480 IP1 = -2\r\n      CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apd12.f",
    "content": "      SUBROUTINE APD12\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         LS,LC,DLB\r\n      INTEGER         AUSET(6,2),ORF,PSPA,UK,USA,IZ(1),NAM(2),\r\n     1                EID,PID,CP,CIDBX,ACSID,SILB,SCR1,SCR2,SCR3,SCR4,\r\n     2                SCR5,ECTA,BGPA,GPLA,USETA,SILA,CSTMA,ACPT,BUF10,\r\n     3                BUF11,BUF12,IAX(20),\r\n     4                CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,\r\n     5                PA2S,PA2E,PA3S,PA3E,PA4S,PA4E\r\n      COMMON /SYSTEM/ SYSBUF,IUT\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1,\r\n     3                SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA,\r\n     4                CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,\r\n     6                CA4S,CA4E,NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E\r\n      COMMON /APD12C/ KEY(5),AUSET,USA,UK,NCAM2,NASB,IPPC\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE    (Z(1),IZ(1)),(EID,IAX(1))\r\n      DATA    NAM   /4HAPD1,4H2   /\r\nC\r\n      I17 = IBIT(17)\r\n      I18 = IBIT(18)\r\n      I19 = IBIT(19)\r\n      I20 = IBIT(20)\r\n      PSPA= ORF(ITWO(I17),ITWO(I20))\r\n      USA = ORF(PSPA,ITWO(I18))\r\n      UK  = ORF(ITWO(I19),ITWO(I20))\r\n      DO 10 J = 1,2\r\n      DO 10 I = 1,6\r\n   10 AUSET(I,J) = USA\r\n      AUSET(3,2) = UK\r\n      AUSET(5,2) = UK\r\n      NCAM = ((NCA2-NCA1)+1)/16\r\n      IF (NCA1 .EQ. 0) NCAM = 0\r\n      NCAM2 = ((CA2E-CA2S)+1)/16\r\n      IF (CA2S .EQ. 0) NCAM2 = 0\r\n      LCA = 16\r\nC\r\nC     CREATE IGID SEQUENCE ARRAY\r\nC\r\n      NIGID1 = NEXT\r\n      IGID2  = NEXT\r\n      NIGID  = NEXT\r\n      NX = NCA1\r\n      J  = NIGID1\r\n      IF (NCAM .EQ. 0) GO TO 15\r\n      DO 240 I = 1,NCAM\r\n      IZ(J) = IZ(NX+7)\r\n      J = J + 1\r\n      IZ(J) = NX\r\n      NX = NX + LCA\r\n  240 J = J + 1\r\nC\r\nC     SORT IGID ARRAY ON IGID\r\nC\r\n      CALL SORT (0,0,2,1,IZ(NIGID1),2*NCAM)\r\n   15 IF (NCAM2 .EQ. 0) GO TO 30\r\n      NX = CA2S\r\n      NIGID2 = J\r\n      DO 20 I = 1,NCAM2\r\n      IZ(J) = IZ(NX+7)\r\n      J = J + 1\r\n      IZ(J) = NX\r\n      NX = NX + LCA\r\n   20 J = J + 1\r\n      CALL SORT (0,0,2,1,IZ(NIGID2),2*NCAM2)\r\n      IGID2 = NIGID2\r\n   30 NEXTC = J\r\n      IF (NCAM .EQ. 0) GO TO 500\r\n      NIGID = NIGID1\r\nC\r\nC     OUTTER LOOP PROCESSES CAERO1 CARDS\r\nC\r\n      DO 410 I = 1,NCAM\r\nC\r\nC     SET APD1 INPUT COMMON BLOCK\r\nC\r\n      NC = IZ(NIGID+1) - 1\r\nC\r\nC     MOVE CAERO TO COMMON\r\nC\r\n      DO 250 J = 1,16\r\n      N1 = J + NC\r\n  250 IAX(J) = IZ(N1)\r\n      MCSTM  = MCSTM + 1\r\n      IZ(NC+2) = MCSTM\r\nC\r\nC     FIND PAERO1 CARD\r\nC\r\n      IF (NPA1 .EQ. 0) GO TO 890\r\n      DO 260 J = NPA1,NPA2,8\r\n      IPPC = J\r\n      IF (PID .EQ. IZ(J)) GO TO 270\r\n  260 CONTINUE\r\n      GO TO 890\r\n  270 XOP  = .25\r\n      X1P  = .75\r\n      ALZO = 0.0\r\nC\r\nC     FIND AEFACT ARRAYS IF PRESENT\r\nC\r\n      JSPAN  = NSPAN\r\n      JCHORD = NCHORD\r\n      IF (LSPAN .EQ. 0) GO TO 280\r\n      CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ISPAN,JSPAN)\r\n      IF (ISPAN .EQ. 0) GO TO 850\r\n      ISPAN = ISPAN + 1\r\n      JSPAN = JSPAN - 1\r\n  280 IF (LCHORD .EQ. 0) GO TO 350\r\n      CALL APDOE (LCHORD,IZ,NAEF1,NAEF2,ICHORD,JCHORD)\r\n      IF (ICHORD .EQ. 0) GO TO 860\r\n      ICHORD = ICHORD + 1\r\n      JCHORD = JCHORD - 1\r\n  350 CONTINUE\r\nC\r\nC     CHECK IF FIRST OR LAST ENTRY IN IGID SET\r\nC\r\n      LS = .FALSE.\r\n      IF (I .EQ. 1) GO TO 370\r\n      IF (IZ(NIGID) .EQ. IZ(NIGID-2)) GO TO 380\r\n  370 LS = .TRUE.\r\n  380 LC = .FALSE.\r\n      DLB= .FALSE.\r\n      IF (I .EQ. NCAM) GO TO 390\r\n      IF (IZ(NIGID) .EQ. IZ(NIGID+2)) GO TO 400\r\n  390 LC = .TRUE.\r\nC\r\nC     CHECK FOR CAERO2 ELEMENT\r\nC\r\n      IF (NCAM2 .EQ. 0) GO TO 400\r\n      IF (NIGID2 .GT. NEXTC) GO TO 50\r\n   40 IF (IZ(NIGID2) .GT. IZ(NIGID)) GO TO 50\r\n      IF (IZ(NIGID) .EQ. IZ(NIGID2)) DLB = .TRUE.\r\n      IF (DLB) GO TO 50\r\n      NIGID2 = NIGID2 + 2\r\n      IF (NIGID2 .GT. NEXTC) GO TO 50\r\n      GO TO 40\r\n   50 CONTINUE\r\n      IF (DLB) LC = .FALSE.\r\nC\r\nC     CALL APD1 TO MANUFACTURE BOXES\r\nC\r\n  400 CALL APD1 (Z(ISPAN),JSPAN,Z(ICHORD),JCHORD,LS,LC)\r\n      NCHORD = JCHORD\r\n      NSPAN  = JSPAN\r\n      IZ(NC+4) = NSPAN\r\n      IZ(NC+5) = NCHORD\r\n      IZ(NC+8) = 1\r\n      IF (.NOT.DLB) GO TO 410\r\nC\r\nC     PROCESS CAERO2 WITH CAERO1\r\nC\r\n      CALL APD2 (1,IZ(NEXT),IZ(IGID2 ),NEXTC,IZ(NIGID))\r\n  410 NIGID = NIGID + 2\r\nC\r\nC     PROCESS CAERO2 CARDS NOT PROCESSED YET\r\nC\r\n  500 IF (NCAM2 .EQ. 0) GO TO 1000\r\n      CALL APD2 (0,IZ(NEXT),IZ(IGID2 ),NEXTC,IZ(NIGID))\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  812 CALL MESAGE (-61,0,NAM)\r\n  850 CALL EMSG (0,2326,1,2,0)\r\n      WRITE  (IUT,851) EID,LSPAN\r\n  851 FORMAT (10X,19HCAERO1 ELEMENT NO. ,I8,28H REFERENCES AEFACT CARD N\r\n     1O. ,I8,22H WHICH DOES NOT EXIST.)\r\n      GO TO 812\r\n  860 CALL EMSG (0,2327,1,2,0)\r\n      WRITE (IUT,851) EID,LCHORD\r\n      GO TO 812\r\n  890 CALL EMSG (0,2323,1,2,0)\r\n      WRITE  (IUT,891) PID,EID\r\n  891 FORMAT (10X,16HPAERO1 CARD NO. , I8,31H REFERENCED BY CAERO1 CARD\r\n     1NO. ,I8,20H BUT DOES NOT EXIST.)\r\n      GO TO 812\r\n      END\r\n"
  },
  {
    "path": "mis/apd2.f",
    "content": "      SUBROUTINE APD2 (IOPT,CAO1,CAO2,NCORE,ID)\r\nC\r\n      INTEGER         PA2S,PA2E,CA2S,CA2E,IZ(1),NAM(2),IAX(1),CAO1(1),\r\n     1                CAO2(1),PC,PPC,BET,TYPE(3),\r\n     2                CP,ACSID,EID,EIDB,CID(5),CIDBX,AUSET(6,2),SILB,\r\n     3                UK,USA,NECTA(6),KEY(5),SILDX(2),ACSIX(4),BACK,\r\n     4                SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,\r\n     5                SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,ACSIB,PID\r\n      REAL            RB1(3),ACPL(3,3),VX1(3),VX2(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NK,NJ,LUSETA\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,\r\n     3                SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,\r\n     4                SILA,CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,\r\n     6                NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,\r\n     7                NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E\r\n      COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3)\r\n      COMMON /APD12C/ KEY,AUSET,USA,UK,NCAM2,NASB\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1)),(ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)),\r\n     1                (NECTA(1),EIDB),(NECTA(2),CID(1)),(KEY(2),NP),\r\n     2                (KEY(3),NSTRIP),(KEY(4),NTP),(EID,IAX(1)),\r\n     3                (SILDX(1),ICID),(ACSIX(1),ACSIB),(ACSIX(2),VX2(1))\r\n      DATA    TYPE  / 1HZ,2HZY,1HY /\r\n      DATA    NAM   / 4HAPD2,4H    /\r\n      DATA    PIO180/ .0174532925  /\r\nC\r\n      IBC   = 0\r\n      NB    = 0\r\n      IF (IOPT .EQ. 1) GO TO 200\r\nC\r\nC     PROCESS CAERO2 WITHOUT CAERO1 ATTACHED\r\nC\r\n      NP    = 0\r\n      NSTRIP= 0\r\n      NTP   = 0\r\n      NAS   = 0\r\n      IPC   = 1\r\n      IDS   = CAO2(1)\r\n   10 IF (CAO2(IPC) .LT. 0) GO TO 191\r\n   11 PC    = CAO2(IPC+1) - 1\r\n      IF (IBC .NE. NB) GO TO 31\r\nC\r\nC     LOOP OVER ALL CAERO2 WITH CURRENT ID TO SET UP POINTERS\r\nC\r\n      NB    = 0\r\n      IBC   = 0\r\n      NBZ   = 0\r\n      NBY   = 0\r\n      NTZ   = 0\r\n      NTY   = 0\r\n      NTZS  = 0\r\n      NTYS  = 0\r\n      NBEA1 = 0\r\n      NSBEA = 0\r\n      NFL   = 0\r\n      NT121 = 0\r\n      NT122 = 0\r\n      K     = IPC\r\n   12 IF (CAO2(K) .NE. IDS) GO TO 19\r\n      NB    = NB + 1\r\n      L     = CAO2(K+1) - 1\r\n      DO 13 M = 1,7\r\n   13 IAX(M) = IZ(L+M)\r\n      ASSIGN 14 TO IRET\r\n      GO TO 29\r\n   14 CONTINUE\r\n      GO TO (15,15,16), BET\r\n   15 NBZ   = NBZ  + 1\r\n      NTZ   = NTZ  + NINT\r\n      NTZS  = NTZS + NSB\r\n      IF (BET .EQ. 1) GO TO 17\r\n   16 NBY   = NBY  + 1\r\n      NTY   = NTY  + NINT\r\n      NTYS  = NTYS + NSB\r\n   17 CONTINUE\r\n      NBEA1 = NBEA1 + NINT\r\n      NSBEA = NSBEA + NSB\r\n      NT121 = NT121 + NTH1\r\n      NT122 = NT122 + NTH2\r\n      NFL   = NFL + KT1\r\n      K     = K + 2\r\n      IF (K .GT. NCAM2*2) GO TO 19\r\n      GO TO 12\r\n   19 IDS   = CAO2(K)\r\n      NTO   = NTP + NTZ + NTY\r\n      NAS   = NASB\r\nC\r\nC     NOW SET UP POINTERS TO BUILD ACPT IN CORE\r\nC\r\n      I = NCORE\r\n      IZ(I   ) = 2\r\n      IZ(I+ 1) = NTP\r\n      IZ(I+ 2) = NTP*2\r\n      IZ(I+ 3) = NP\r\n      IZ(I+ 4) = NB\r\n      IZ(I+ 5) = NTP\r\n      IZ(I+ 6) = NBZ\r\n      IZ(I+ 7) = NBY\r\n      IZ(I+ 8) = NTZ\r\n      IZ(I+ 9) = NTY\r\n      IZ(I+10) = NTO\r\n      IZ(I+11) = NTZS\r\n      IZ(I+12) = NTYS\r\n      IZ(I+13) = NSTRIP\r\n      INC    = I + 14\r\n      INB    = INC  + NP\r\n      INAS   = INB  + NP\r\n      INBEA1 = INAS + NP\r\n      INBEA2 = INBEA1 + NB\r\n      INSBEA = INBEA2 + NB\r\n      IZB    = INSBEA + NB\r\n      IYB    = IZB  + NB\r\n      IAVR   = IYB  + NB\r\n      IARB   = IAVR + NB\r\n      INFL   = IARB + NB\r\n      IXLE   = INFL + NB\r\n      IXTE   = IXLE + NB\r\n      INT121 = IXTE + NB\r\n      INT122 = INT121 + NB\r\n      IZS    = INT122 + NB\r\n      IYS    = IZS + NB + NSTRIP\r\n      IEE    = IYS + NB + NSTRIP\r\n      ISG    = IEE + NSTRIP\r\n      ICG    = ISG + NSTRIP\r\n      IX     = ICG + NSTRIP\r\n      IDELX  = IX  + NTP   + NBEA1\r\n      IXIC   = IDELX + NTP + NBEA1\r\n      IXLAM  = IXIC  + NTP\r\n      IAO    = IXLAM + NTP\r\n      IXIS1  = IAO   + NSBEA\r\n      IXIS2  = IXIS1 + NSBEA\r\n      IAOP   = IXIS2 + NSBEA\r\n      IRIA   = IAOP  + NSBEA\r\n      INASB  = IRIA  + NBEA1\r\n      IFLA1  = INASB + NAS\r\n      IFLA2  = IFLA1 + NFL\r\n      ITH1A  = IFLA2 + NFL\r\n      ITH2A  = ITH1A + NT121\r\n      NWR    = ITH2A + NT122 - NCORE\r\n      NA     = ITH2A + NT122 - 1\r\n      I      = NA + NP*6 +1\r\n      IF (I .GT. LEFT) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     IF PANELS EXIST INSERT DATA FROM SCRATCH FILES\r\nC\r\n      IF(NP.EQ.0) GO TO 31\r\n      NASS = NA\r\n      CALL WRITE (SCR3,0,0,1)\r\n      CALL WRITE (SCR4,0,0,1)\r\n      CALL WRITE (SCR5,0,0,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (SCR4,1)\r\n      CALL CLOSE (SCR5,1)\r\n      CALL GOPEN (SCR3,Z(BUF10),0)\r\n      CALL GOPEN (SCR4,Z(BUF11),0)\r\n      CALL GOPEN (SCR5,Z(BUF12),0)\r\n      DO 21 I = 1,NP\r\n      CALL FREAD (SCR5,IZ(INC),1,0)\r\n      CALL FREAD (SCR5,IZ(INB),1,0)\r\n      CALL FREAD (SCR5,K,1,0)\r\n      DO 22 J = 1,6\r\n   22 IZ(NA+J) = IZ(K+J)\r\n      INC = INC + 1\r\n      INB = INB + 1\r\n   21 NA  = NA  + 6\r\n      DO 23 I = 1,NSTRIP\r\n      CALL FREAD (SCR3,IZ(IYS),1,0)\r\n      CALL FREAD (SCR3,IZ(IZS),1,0)\r\n      CALL FREAD (SCR3,IZ(IEE),1,0)\r\n      CALL FREAD (SCR3,IZ(ISG),1,0)\r\n      CALL FREAD (SCR3,IZ(ICG),1,0)\r\n      IYS = IYS + 1\r\n      IZS = IZS + 1\r\n      IEE = IEE + 1\r\n      ISG = ISG + 1\r\n   23 ICG = ICG + 1\r\n      DO 24 I = 1,NTP\r\n      CALL FREAD (SCR4,IZ(IXIC),1,0)\r\n      CALL FREAD (SCR4,IZ(IDELX),1,0)\r\n      CALL FREAD (SCR4,IZ(IXLAM),1,0)\r\n      Z(IX) = Z(IXIC) + .5*Z(IDELX)\r\n      IXIC  = IXIC  + 1\r\n      IDELX = IDELX + 1\r\n      IXLAM = IXLAM + 1\r\n   24 IX    = IX    + 1\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (SCR4,1)\r\n      CALL CLOSE (SCR5,1)\r\nC\r\nC     FILL IN ASSOCIATED BODIES\r\nC\r\n      NA  = NASS\r\n      DO 26 I = 1,NP\r\n      L   = 0\r\n      DO 25 J = 1,6\r\n      IF (IZ(NA+J) .EQ. 0) GO TO 25\r\n      L   = L + 1\r\n      IBT = IPC\r\n      DO 27 K = 1,NB\r\n      M   = CAO2(IBT+1)\r\n      IF (IZ(M) .NE. IZ(NA+J)) GO TO 28\r\n      IZ(INASB) = K\r\n      INASB = INASB +1\r\n      GO TO 25\r\n   28 IBT = IBT + 2\r\n   27 CONTINUE\r\n      GO TO 880\r\n   25 CONTINUE\r\n      IZ(INAS) = L\r\n      INAS = INAS + 1\r\n      NA   = NA + 6\r\n   26 CONTINUE\r\n   31 CONTINUE\r\n      IBC  = IBC + 1\r\nC\r\nC     MOVE TO COMMON\r\nC\r\n      DO 20 J = 1,16\r\n   20 IAX(J) = IZ(J+PC)\r\n      IZ(PC+2) = ACSID\r\n      ACSIB = ACSID\r\n      X4    = X1\r\n      Y4    = Y1 + 1.0\r\n      Z4    = Z1\r\n      X43   = X12\r\n      IGID  =-IGID\r\n      CALL APDCS\r\n      IGID  =-IGID\r\nC\r\nC     MOVE AERO CORD SYS TO ICPL\r\nC\r\n      IF (ACSID .EQ. 0) GO TO 35\r\n      DO 34 I = 1,14\r\n      ICPL(I) = IZ(IACS+I-1)\r\n   34 CONTINUE\r\n   35 CONTINUE\r\n      ASSIGN 85 TO IRET\r\n      GO TO 29\r\nC\r\nC     FIND PAERO2 CARD\r\nC\r\n   29 CONTINUE\r\n      IF (PA2S .EQ. 0) GO TO 990\r\n      DO 30 J = PA2S,PA2E,15\r\n      IF (PID .EQ. IZ(J)) GO TO 40\r\n   30 CONTINUE\r\n      GO TO 990\r\n   40 PPC = J\r\nC\r\nC     GET BODY TYPE AND NUMBER OF ELEMENTS\r\nC\r\n      NSB  = NSPAN\r\n      NINT = NCHORD\r\n      BET  = IZ(PPC+1)\r\n      DO 50 J = 1,3\r\n      IF (BET .EQ. TYPE(J)) GO TO 60\r\n   50 CONTINUE\r\n   60 BET  = J\r\n      LTH1 = IZ(PPC+7)\r\n      LTH2 = IZ(PPC+8)\r\n      NTH1 = 0\r\n      NTH2 = 0\r\n      KT1  = 0\r\n      IF (LSPAN .EQ. 0) GO TO 70\r\n      CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ISPAN,JSPAN)\r\n      IF (ISPAN .EQ. 0) GO TO 950\r\n      NSB  = JSPAN - 1\r\n   70 IF (LCHORD .EQ. 0) GO TO 79\r\n      CALL APDOE (LCHORD,IZ,NAEF1,NAEF2,ICHORD,JCHORD)\r\n      IF (ICHORD .EQ. 0) GO TO 960\r\n      NINT = JCHORD - 1\r\n   79 IF (NINT .EQ. 0) GO TO 80\r\n      KT1  = KT1 + 1\r\n      IF (IZ(PPC+ 9) .EQ. 0) GO TO 920\r\n      IF (IZ(PPC+11) .EQ. 0) GO TO 75\r\n      KT1  = KT1 + 1\r\n      IF (IZ(PPC+13) .EQ. 0) GO TO 75\r\n      KT1  = KT1 + 1\r\n   75 IF (LTH1 .EQ. 0) GO TO 940\r\n      CALL APDOE (LTH1,IZ,NAEF1,NAEF2,ITH1,NTH1)\r\n      IF (ITH1 .EQ. 0) GO TO 940\r\n      IF (LTH2 .EQ. 0) GO TO 80\r\n      CALL APDOE (LTH2,IZ,NAEF1,NAEF2,ITH2,NTH2)\r\n      IF (ITH2 .EQ. 0) GO TO 930\r\n   80 IF (NSB .LT. 2) GO TO 970\r\n      GO TO IRET, (14,85)\r\nC\r\nC     PUT IN TERMS FOR SOME BODY ARRAYS\r\nC\r\n   85 IZ(INBEA1) = NINT\r\n      IF(IBC.GT.1 .AND. BET.LT.IZ(INBEA2-1)) GO TO 870\r\n      IZ(INBEA2) = BET\r\n      IZ(INSBEA) = NSB\r\n      Z(IZB)  = RA1(3)\r\n      Z(IYB)  = RA1(2)\r\n      Z(IZS)  = RA1(3)\r\n      Z(IYS)  = RA1(2)\r\n      Z(IAVR) = Z(PPC+3)\r\n      Z(IARB) = Z(PPC+4)\r\n      IZ(INFL)= KT1\r\n      IZ(INT121) = NTH1\r\n      IZ(INT122) = NTH2\r\n      INBEA1  = INBEA1 + 1\r\n      INBEA2  = INBEA2 + 1\r\n      INSBEA  = INSBEA+1\r\n      IZB  = IZB + 1\r\n      IYB  = IYB + 1\r\n      IZS  = IZS + 1\r\n      IYS  = IYS + 1\r\n      IAVR = IAVR+ 1\r\n      IARB = IARB+ 1\r\n      INFL = INFL+ 1\r\n      INT121 = INT121 + 1\r\n      INT122 = INT122 + 1\r\nC\r\nC     ADD SOME MISC ARRAYS\r\nC\r\n      IF (NTH1 .EQ. 0) GO TO 89\r\n      DO 86 I = 1,NTH1\r\n      Z(ITH1A) = Z(ITH1+I)*PIO180\r\n   86 ITH1A = ITH1A + 1\r\n      IF (NTH2 .EQ. 0) GO TO 88\r\n      DO 87 I = 1,NTH2\r\n      Z(ITH2A) = Z(ITH2+I)*PIO180\r\n   87 ITH2A = ITH2A + 1\r\n   88 K = PPC + 9\r\n      IF (IZ(K).NE.1 .AND. IZ(K+1).NE.NINT .AND. NTH2.EQ.0) GO TO 910\r\n      DO 81 I = 1,KT1\r\n      IZ(IFLA1) = IZ(K)\r\n      IZ(IFLA2) = IZ(K+1)\r\n      K = K + 2\r\n      IF (IZ(IFLA1) .GT. IZ(IFLA2)) GO TO 910\r\n      IF (IZ(IFLA2) .GT. NINT) GO TO 910\r\n      IF (I .EQ. 1) GO TO 82\r\n      IF (IZ(IFLA1) .LE. IZ(IFLA2-1)) GO TO 910\r\n   82 IFLA1 = IFLA1 + 1\r\n      IFLA2 = IFLA2 + 1\r\n   81 CONTINUE\r\n   89 LRSB = IZ(PPC+5)\r\n      LRIB = IZ(PPC+6)\r\n      IF (LRSB .EQ. 0) GO TO 91\r\n      CALL APDOE (LRSB,IZ,NAEF1,NAEF2,IRSB,NRSB)\r\n      IF (IRSB .EQ.     0) GO TO 900\r\n      IF (NRSB .NE. NSB+1) GO TO 900\r\n   91 IF (LRIB .EQ.     0) GO TO 92\r\n      CALL APDOE (LRIB,IZ,NAEF1,NAEF2,IRIB,NRIB)\r\n      IF (IRIB .EQ.      0) GO TO 890\r\n      IF (NRIB .NE. NINT+1) GO TO 890\r\n   92 CONTINUE\r\n      WIDTH = Z(PPC+3)\r\nC\r\nC     GENERATE ELEMENTS\r\nC\r\n      EIDB   = EID - 1\r\n      CIDBX  = CIDBX + 1\r\n      VX1(2) = RA1(2)\r\n      VX1(3) = RA1(3)\r\nC\r\nC     PUT IN PROPER MASKS FOR USET\r\nC\r\n      IF (BET .EQ. 1) GO TO 90\r\n      AUSET(2,2) = UK\r\n      AUSET(6,2) = UK\r\n      IF (BET .EQ. 2) GO TO 90\r\n      AUSET(3,2) = USA\r\n      AUSET(5,2) = USA\r\n   90 CONTINUE\r\nC\r\nC     BUMP NJ AND NK\r\nC\r\n      NJA = NSB + NINT\r\n      NKA = NSB*2\r\n      NJ  = NJ + NJA\r\n      NK  = NK + NKA\r\n      IZ(NCORE+1) = IZ(NCORE+1) + NJA\r\n      IZ(NCORE+2) = IZ(NCORE+2) + NKA\r\n      IF (BET .NE. 2) GO TO 94\r\n      NJ  = NJ + NJA\r\n      NK  = NK + NKA\r\n      IZ(NCORE+1) = IZ(NCORE+1) + NJA\r\n      IZ(NCORE+2) = IZ(NCORE+2) + NKA\r\n   94 I = 1\r\n   95 EIDB = EIDB + 1\r\n      CID(1) = CIDBX\r\n      CIDBX  = CIDBX + 1\r\n      CID(2) = CIDBX\r\n      CID(5) = EIDB\r\nC\r\nC     GRID POINTS IN AERO SYSTEM\r\nC\r\n      IF (I .NE. 1) GO TO 110\r\n      ASSIGN 110 TO BACK\r\n      ICID = CID(1)\r\n      IF (LSPAN .EQ. 0) VX1(1) = RA1(1) + (X12/NSB)*(I-1)\r\n      IF (LSPAN .NE. 0) VX1(1) = RA1(1) + Z(ISPAN+I)*X12\r\n      OLDX = VX1(1)\r\n      Z(IXLE)  = OLDX\r\n      Z(IXIS1) = OLDX\r\n      IXIS1 = IXIS1 + 1\r\n      KK = 1\r\n      GO TO 130\r\n  110 ASSIGN 120 TO BACK\r\n      ICID = CID(2)\r\n      IF (LSPAN .EQ. 0) VX1(1) = RA1(1) + (X12/NSB)*I\r\n      IF (LSPAN .NE. 0) VX1(1) = RA1(1) + Z(ISPAN+I+1)*X12\r\n      Z(IXTE ) = VX1(1)\r\n      Z(IXIS2) = VX1(1)\r\n      IXIS2 = IXIS2 + 1\r\n      IF (I .NE. 1) Z(IXIS1) = OLDX\r\n      IF (I .NE. 1) IXIS1 = IXIS1 + 1\r\n      KK = 1\r\n      GO TO 130\r\n  120 ASSIGN 160 TO BACK\r\nC\r\nC     A0 AND AOP\r\nC\r\n      Z(IAO ) = WIDTH\r\n      Z(IAOP) = 0.0\r\n      IF (LRSB .EQ. 0) GO TO 125\r\n      Z(IAO ) = (Z(IRSB+I  ) + Z(IRSB+I+1))*.5\r\n      Z(IAOP) = (Z(IRSB+I+1) - Z(IRSB+I))/(VX1(1)-OLDX)\r\n  125 IAO  = IAO  + 1\r\n      IAOP = IAOP + 1\r\n      TEMP = (VX1(1)+OLDX)/2.0\r\n      OLDX = VX1(1)\r\n      VX1(1) = TEMP\r\n      ICID = CID(5)\r\n      KK   = 2\r\nC\r\nC     CONVERT TO BASIC\r\nC\r\n  130 IF (ACSID .EQ. 0) GO TO 140\r\n      CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2)\r\n      DO 135 K = 1,3\r\n  135 VX2(K) = VX2(K) + RB1(K)\r\n      GO TO 150\r\n  140 DO 145 K = 1,3\r\n  145 VX2(K) = VX1(K)\r\nC\r\nC     PUT OUT BGPDT GPL USET\r\nC\r\n  150 CALL WRITE (BGPA,ACSIX,4,0)\r\n      CALL WRITE (GPLA,ICID,1,0)\r\n      CALL WRITE (USETA,AUSET(1,KK),6,0)\r\nC\r\nC     BUMP POINTERS\r\nC     PUT OUT SIL EQEXIN SILGA\r\nC\r\n      NCRD   = NCRD + 1\r\n      SILB   = SILB + 6\r\n      ISILN  = ISILN+ 6\r\n      LUSETA = SILB\r\n      SILDX(2) = 10*SILB + 1\r\n      CALL WRITE (SILA,SILB,1,0)\r\n      CALL WRITE (SCR2,ISILN,1,0)\r\n      CALL WRITE (SCR2,SILB,1,0)\r\n      CALL WRITE (SCR1,ICID,2,0)\r\n      GO TO BACK, (110,120,160)\r\nC\r\nC     PUT OUT ECT\r\nC\r\n  160 CID(1) = NCRD - 3\r\n      IF (I .EQ. 1) CID(1) = CID(1) + 1\r\n      CID(2) = NCRD - 1\r\n      CID(3) = CID(1)\r\n      CID(4) = CID(2)\r\n      CID(5) = NCRD\r\n      CALL WRITE (ECTA,NECTA,6,0)\r\n      I  = I + 1\r\n      IF (I .LE. NSB) GO TO 95\r\nC\r\nC     INTEFERENCE CALCULATIONS AND ARRAYS\r\nC\r\n      IF (NINT .EQ. 0) GO TO 170\r\n      P1 = 1.0/NINT\r\n      DO 165 J = 1,NINT\r\n      Z(IRIA) = WIDTH\r\n      IF (LRIB .NE. 0) Z(IRIA) = .5*(Z(IRIB+J)+Z(IRIB+J+1))\r\n      IRIA = IRIA + 1\r\n      D1   = P1*(J-1)\r\n      D2   = P1*J\r\n      IF (LCHORD .NE. 0) D1 = Z(ICHORD+J  )\r\n      IF (LCHORD .NE. 0) D2 = Z(ICHORD+J+1)\r\n      Z(IDELX) = X12*(D2-D1)\r\n      Z(IX) = RA1(1) + X12*(D1+D2)/2.0\r\n      IF (J .EQ.    1) Z(IXLE) = RA1(1) + D1*X12\r\n      IF (J .EQ. NINT) Z(IXTE) = RA1(1) + D2*X12\r\n      IDELX = IDELX + 1\r\n      IX = IX + 1\r\n  165 CONTINUE\r\n  170 CONTINUE\r\n      IXLE = IXLE + 1\r\n      IXTE = IXTE + 1\r\n      IZ(PC+ 4) = NSB\r\n      IZ(PC+ 5) = 1\r\n      IZ(PC+ 8) = 2\r\n      IZ(PC+16) = BET\r\n      IF (BET .EQ. 1) GO TO 190\r\n      AUSET(2,2) = USA\r\n      AUSET(6,2) = USA\r\n      AUSET(3,2) = UK\r\n      AUSET(5,2) = UK\r\n  190 IF (IBC .EQ. NB) CALL WRITE (ACPT,IZ(NCORE),NWR,1)\r\n  191 IF (IOPT .EQ. 1) GO TO 230\r\n      IPC = IPC + 2\r\n      IF (IPC .LT. NCAM2*2) GO TO 10\r\n      GO TO 1000\r\nC\r\nC     CAERO2 WITH CAERO1 ATTACHED\r\nC\r\n  200 IPC = 1\r\n      IDS = ID\r\n  210 IF (CAO2(IPC) .EQ. ID) GO TO 11\r\n  220 IPC = IPC + 2\r\n      IF (IPC .LT. NCAM2*2) GO TO 210\r\n      GO TO 1000\r\n  230 CAO2(IPC) = -CAO2(IPC)\r\n      GO TO 220\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  912 CALL MESAGE (-61,0,NAM)\r\n  870 WRITE  (NOT,8777) UFM,EID\r\n 8777 FORMAT (A23,' 2273, CAERO2',I9,' NOT INPUT IN Z, ZY, Y SEQUENCE.')\r\n      GO TO 912\r\n  880 WRITE  (NOT,8888) UFM,IZ(NA+J),CAO2(IBT)\r\n 8888 FORMAT (A23,' 2274, ASSOCIATED BODY',I9,' WAS NOT FOUND WITH ',\r\n     1       'CAERO2 GROUP',I9,1H.)\r\n      GO TO 912\r\n  890 J = LRIB\r\n      GO TO 941\r\n  900 J = LRSB\r\n      GO TO 941\r\n  910 WRITE  (NOT,9111) UFM,EID\r\n 9111 FORMAT (A23,' 2275, CAERO2',I9,' HAS INCONSISTENT USE FOR THI OR',\r\n     1       ' THN, OR LTH2 IS REQUIRED.')\r\n      GO TO 912\r\n  920 WRITE  (NOT,9222) UFM,EID\r\n 9222 FORMAT (A23,' 2276, THI1 AND THN1 REQUIRED FOR CAERO2',I9,1H.)\r\n      GO TO 912\r\n  930 J = LTH2\r\n      GO TO 941\r\n  940 J = LTH1\r\n  941 WRITE  (NOT,9999) UFM,J,EID\r\n 9999 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR',\r\n     1       ' CARD ID',I9, /28X,'ASSOCIATED WITH CAERO2 ID',I9)\r\n      GO TO 912\r\n  950 CALL EMSG (0,2326,1,2,0)\r\n      WRITE  (NOT,951) EID,LSPAN\r\n  951 FORMAT (10X,'CAERO2 ELEMENT NO.',I9,' REFERENCES AEFACT CARD NO.',\r\n     1        I9,' WHICH DOES NOT EXIST.')\r\n      GO TO 912\r\n  960 CALL EMSG (0,2327,1,2,0)\r\n      WRITE (NOT,951) EID,LCHORD\r\n      GO TO 912\r\n  970 WRITE  (NOT,971) UFM,EID\r\n  971 FORMAT (A23,' 2277, CAERO2 BODY',I9,' DOES NOT HAVE ENOUGH ',\r\n     1       'SLENDER ELEMENTS.')\r\n      GO TO 912\r\n  990 CALL EMSG (0,2323,1,2,0)\r\n      WRITE  (NOT,991) PID,EID\r\n  991 FORMAT (10X,'PAERO2 CARD NO.',I9,' REFERENCED BY CAERO2 CARD NO.',\r\n     1        I9,' BUT DOES NOT EXIST.')\r\n      GO TO 912\r\n      END\r\n"
  },
  {
    "path": "mis/apd3.f",
    "content": "      SUBROUTINE APD3\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         CNTRL1,CNTRL2,CRANK1,CRANK2\r\n      INTEGER         NAM(2),IZ(1),BACK,PSPA,RET,IC(16),EID,PID,CIDBX,\r\n     1                SILB,SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10,\r\n     2                CA3S,CA3E,PA3S,PA3E,AUSET(6,2),SILC,ORF,USA,UK,\r\n     3                EIDB,SILDX(2),ACSIX(4),CID(5),NECTA(2)\r\n      REAL            VX1(3),VX2(3),ACPL(3,3),RB1(3)\r\n      DIMENSION       IHEAD(10),BND(24)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NK,NJ,LUSETA\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1,\r\n     3                SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA,\r\n     4                CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,\r\n     6                NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,\r\n     7                NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E\r\n      COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      EQUIVALENCE     (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)),\r\n     1                (NECTA(1),EIDB),(NECTA(2),CID(1)),\r\n     2                (ACSIX(2),VX2(1)),(SILDX(1),ICID),\r\n     3                (Z(1),IZ(1)),(EID,IC(1)),\r\n     4                (CRANK1,IHEAD(3)),(CRANK2,IHEAD(4)),\r\n     5                (CNTRL1,IHEAD(5)),(CNTRL2,IHEAD(6))\r\n      DATA     NAM  / 4HAPD3,4H    /\r\nC\r\n      NOGO = 0\r\n      LCA  = 16\r\n      NC3  = ((CA3E-CA3S)+1)/LCA\r\n      NCAM = NCAM+NC3\r\nC\r\nC     INITIAL SETUP\r\nC\r\n      I17 = IBIT(17)\r\n      I18 = IBIT(18)\r\n      I19 = IBIT(19)\r\n      I20 = IBIT(20)\r\n      PSPA= ORF(ITWO(I17),ITWO(I20))\r\n      USA = ORF(PSPA,ITWO(I18))\r\n      UK  = ORF(ITWO(I19),ITWO(I20))\r\n      DO 5 J = 1,2\r\n      DO 5 I = 1,6\r\n    5 AUSET(I,J) = USA\r\n      AUSET(3,2) = UK\r\n      IHEAD(1) = 3\r\n      SILC = SILB\r\nC\r\nC     LOOP ON NC3 MOVING CAERO3 CARD TO COMMON\r\nC\r\n      DO 400 I = 1,NC3\r\n      N = (I-1)*LCA - 1\r\n      DO 10 J = 1,LCA\r\n      IC(J) = IZ(CA3S+N+J)\r\n   10 CONTINUE\r\n      MCSTM = MCSTM + 1\r\n      IZ(CA3S+N+2) = MCSTM\r\n      IZ(CA3S+N+8) = 3\r\n      ACSIX(1) = MCSTM\r\nC\r\nC     GET POINTS IN PROPER COORD SYSTEM\r\nC\r\n      CALL APDCS\r\nC\r\nC     FIND PAERO3 CARD\r\nC\r\n      J = PA3S\r\n   20 IF (J .GE. PA3E) GO TO 999\r\n      IF (IZ(J) .EQ. PID) GO TO 30\r\n      J = J + 4 + IZ(J+3)\r\n      GO TO 20\r\n   30 IPID = J\r\n      IHEAD(7) = IZ(IPID+1)\r\n      CRANK1 = .FALSE.\r\n      CRANK2 = .FALSE.\r\n      IF (Z(IPID+5) .GT. 0.0) CRANK1 = .TRUE.\r\n      IF (Z(IPID+7) .GT. 0.0) CRANK2 = .TRUE.\r\n      CNTRL1 = .FALSE.\r\n      CNTRL2 = .FALSE.\r\n      IF (IZ(IPID+2) .GT. 0 ) CNTRL1 = .TRUE.\r\n      IF (IZ(IPID+2) .EQ. 2 ) CNTRL2 = .TRUE.\r\nC\r\nC     GENERATE AERO POINTS FOR CAERO3  PUT POINTS 1-4 IN BGPDT\r\nC\r\n      DO 40 J = 13,24\r\n   40 BND(J) = 0.0\r\n      VX1(3) = 0.0\r\n      KK = 1\r\n      ASSIGN 50 TO BACK\r\n      IBS = NCRD + 1\r\n      VX1(1) = 0.0\r\n      VX1(2) = 0.0\r\n      BND(1) = 0.0\r\n      BND(2) = 0.0\r\n      GO TO 300\r\n   50 ASSIGN 60 TO BACK\r\n      VX1(1) = X12\r\n      VX1(2) = 0.0\r\n      BND(7) = X12\r\n      BND(8) = 0.0\r\n      GO TO 300\r\n   60 VX1(1) = XP4\r\n      VX1(2) = YP4\r\n      BND(5) = XP4\r\n      BND(6) = YP4\r\n      ASSIGN 70 TO BACK\r\n      GO TO 300\r\n   70 ASSIGN 80 TO BACK\r\n      VX1(1) = XP4 + X43\r\n      VX1(2) = YP4\r\n      BND(11) = VX1(1)\r\n      BND(12) = VX1(2)\r\n      GO TO 300\r\nC\r\nC     ADD POINTS 5 AND 6 IF THEY EXIST\r\nC\r\n   80 BND(3) = BND(5)\r\n      BND(4) = BND(6)\r\n      IF (.NOT.CRANK1) GO TO 90\r\n      VX1(1) = Z(IPID+4)\r\n      VX1(2) = Z(IPID+5)\r\n      BND(3) = VX1(1)\r\n      BND(4) = VX1(2)\r\n      ASSIGN 90 TO BACK\r\n      GO TO 300\r\n   90 BND(9) = BND(11)\r\n      BND(10) = BND(12)\r\n      IF (.NOT.CRANK2) GO TO 100\r\n      VX1(1) = Z(IPID+6)\r\n      VX1(2) = Z(IPID+7)\r\n      BND(9) = VX1(1)\r\n      BND(10)= VX1(2)\r\n      ASSIGN 100 TO BACK\r\n      GO TO 300\r\nC\r\nC      ADD CONTROLS\r\nC\r\n  100 IF (.NOT.CNTRL1) GO TO 120\r\n      ASSIGN 101 TO BACK\r\n      VX1(1)  = Z(IPID+8)\r\n      VX1(2)  = Z(IPID+9)\r\n      BND(15) = VX1(1)\r\n      BND(16) = VX1(2)\r\n      GO TO 300\r\n  101 ASSIGN 102 TO BACK\r\n      VX1(1)  = Z(IPID+10)\r\n      VX1(2)  = Z(IPID+11)\r\n      BND(13) = VX1(1)\r\n      BND(14) = VX1(2)\r\n      GO TO 300\r\n  102 ASSIGN 103 TO BACK\r\n      VX1(1)  = Z(IPID+12)\r\n      VX1(2)  = Z(IPID+13)\r\n      BND(17) = VX1(1)\r\n      BND(18) = VX1(2)\r\n      GO TO 300\r\n  103 ASSIGN 104 TO BACK\r\n      VX1(1)  = Z(IPID+14)\r\n      VX1(2)  = Z(IPID+15)\r\n      BND(21) = VX1(1)\r\n      BND(22) = VX1(2)\r\n      GO TO 300\r\n  104 IF (.NOT.CNTRL2) GO TO 120\r\n      ASSIGN 105 TO BACK\r\n      VX1(1)  = Z(IPID+16)\r\n      VX1(2)  = Z(IPID+17)\r\n      BND(19) = VX1(1)\r\n      BND(20) = VX1(2)\r\n      GO TO 300\r\n  105 ASSIGN 120 TO BACK\r\n      VX1(1)  = Z(IPID+18)\r\n      VX1(2)  = Z(IPID+19)\r\n      BND(23) = VX1(1)\r\n      BND(24) = VX1(2)\r\n      GO TO 300\r\nC\r\nC     CONNECT POINT TO BOXES FOR ECTA\r\nC\r\n  120 EIDB   = EID\r\n      CID(1) = IBS\r\n      CID(2) = IBS + 1\r\n      CID(5) = IBS\r\n      IF (CRANK1) GO TO 121\r\n      IF (CRANK2) GO TO 122\r\n      CID(3) = IBS + 3\r\n      CID(4) = IBS + 2\r\n      GO TO 124\r\n  121 IF (CRANK2) GO TO 123\r\n      CID(3) = IBS + 3\r\n      CID(4) = IBS + 4\r\n      GO TO 124\r\n  122 CID(3) = IBS + 4\r\n      CID(4) = IBS + 2\r\n      GO TO 124\r\n  123 CID(3) = IBS + 5\r\n      CID(4) = IBS + 4\r\n  124 CONTINUE\r\n      CALL WRITE (ECTA,NECTA,6,0)\r\n      EIDB   = EIDB + 1\r\n      CID(1) = IBS + 2\r\n      CID(2) = IBS + 3\r\n      CID(5) = IBS + 2\r\n      IBS    = IBS + 4\r\n      IF (.NOT.CRANK1 .AND. .NOT.CRANK2) GO TO 130\r\n      IF (CRANK1 .AND. CRANK2) GO TO 125\r\n      CID(3) = IBS\r\n      CID(4) = CID(5)\r\n      IBS = IBS + 1\r\n      GO TO 129\r\n  125 CID(3) = IBS + 1\r\n      CID(4) = IBS\r\n      IBS    = IBS + 2\r\n  129 CALL WRITE (ECTA,NECTA,6,0)\r\n      EIDB   = EIDB + 1\r\n  130 IF (.NOT.CNTRL1) GO TO 135\r\n      CID(1) = IBS + 2\r\n      CID(2) = IBS + 3\r\n      CID(3) = IBS + 1\r\n      CID(4) = IBS\r\n      CID(5) = IBS + 2\r\n      CALL WRITE (ECTA,NECTA,6,0)\r\n      EIDB   = EIDB + 1\r\n      IF (.NOT.CNTRL2) GO TO 135\r\n      CID(3) = IBS+5\r\n      CID(4) = IBS+4\r\n      CALL WRITE (ECTA,NECTA,6,0)\r\nC\r\nC     FIND CONTROL POINTS FOR ELEMENT\r\nC\r\n  135 CALL APDOE (NSPAN,IZ,NAEF1,NAEF2,ILW,NWW)\r\n      IF (ILW .EQ. 0) GO TO 998\r\n      IF (NWW .LT. 6) GO TO 998\r\n      IF (MOD(NWW,2) .NE. 0) GO TO 998\r\n      ILC1 = 0\r\n      ILC2 = 0\r\n      NWC1 = 0\r\n      NWC2 = 0\r\n      IF (.NOT.CNTRL1) GO TO 140\r\n      CALL APDOE (NCHORD,IZ,N AEF1,NAEF2,ILC1,NWC1)\r\n      IF (ILC1 .EQ. 0) GO TO 997\r\n      IF (NWC1 .LT. 6) GO TO 997\r\n      IF (MOD(NWC1,2) .NE. 0) GO TO 997\r\n      IF (.NOT.CNTRL2) GO TO 140\r\n      CALL APDOE (LSPAN,IZ,NAEF1,NAEF2,ILC2,NWC2)\r\n      IF (ILC2 .EQ. 0) GO TO 996\r\n      IF (NWC2 .LT. 6) GO TO 996\r\n      IF (MOD(NWC2,2) .NE. 0) GO TO 996\r\n  140 IHEAD( 8) = NWW/2\r\n      IHEAD( 9) = NWC1/2\r\n      IHEAD(10) = NWC2/2\r\n      IHEAD( 2) = IHEAD(8)+IHEAD(9)+IHEAD(10)\r\n      NK = NK + IHEAD(2)\r\n      NJ = NJ + IHEAD(2)\r\n      IZ(CA3S+N+4) = IHEAD(2)\r\n      IZ(CA3S+N+5) = 1\r\nC\r\nC     START THE ACPT AND ADD THE CONTROL POINTS IN A LOOP\r\nC\r\n      CALL WRITE (ACPT,IHEAD,10,0)\r\n      CALL WRITE (ACPT,BND,24,0)\r\n      EIDB = EID - 1\r\n      KK  = 2\r\n      NN  = NWW\r\n      KKK = ILW - 1\r\n      ASSIGN 150 TO RET\r\n      GO TO 190\r\n  150 IF (IHEAD(9) .EQ. 0) GO TO 180\r\n      ASSIGN 160 TO RET\r\n      NN  = NWC1\r\n      KKK = ILC1 - 1\r\n      GO TO 190\r\n  160 IF (IHEAD(10) .EQ. 0) GO TO 180\r\n      ASSIGN 180 TO RET\r\n      NN  = NWC2\r\n      KKK = ILC2 - 1\r\n      GO TO 190\r\n  180 CALL WRITE (ACPT,0,0,1)\r\nC\r\nC     GEOMETRY CHECKS\r\nC\r\n      NM = 0\r\n      IF (BND(1) .GT.  BND(3)) NM = 1\r\n      IF (BND(3) .GT.  BND(5)) NM = 1\r\n      IF (BND(15).GT. BND(17)) NM = 1\r\n      IF (CNTRL2 .AND. BND(17).GT.BND(19)) NM = 1\r\n      IF (BND(16) .LT. BND(14)) NM = 1\r\n      IF (BND(18) .LT. BND(22)) NM = 1\r\n      IF (BND(20) .LT. BND(24)) NM = 1\r\n      IF (NM .EQ. 1) NOGO = 1\r\n      IF (NM .EQ. 1) WRITE (NOT,1851) UFM,EID\r\n 1851 FORMAT (A23,' 2278, PLANFORM GEOMETRY FOR CAERO3 ID',I9,\r\n     1       ' IS IN ERROR', /5X,'CHECK SWEEP  ANGLE FOR LEADING EDGE ',\r\n     2       'OR CONTROL SURFACE HINGE LINE.')\r\n      GO TO 400\r\nC\r\nC     PUT CONTROL POINTS IN TABLE\r\nC\r\n  190 J = 2\r\n  195 CONTINUE\r\n      VX1(1) = Z(KKK+J  )\r\n      VX1(2) = Z(KKK+J+1)\r\n      CALL WRITE (ACPT,VX1,2,0)\r\n      ASSIGN 200 TO BACK\r\n      GO TO 300\r\n  200 CONTINUE\r\n      J = J + 2\r\n      IF (J .LE. NN) GO TO 195\r\n      GO TO RET, (150,160,180)\r\nC\r\nC     BGPA  GPL  USET\r\nC\r\n  300 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2)\r\n      DO 310 K = 1,3\r\n  310 VX2(K) = VX2(K) + RB1(K)\r\n      CALL WRITE (BGPA,ACSIX,4,0)\r\n      IF (KK .EQ. 2) GO TO 320\r\n      CIDBX = CIDBX + 1\r\n      ICID  = CIDBX\r\n      GO TO 330\r\n  320 EIDB  = EIDB + 1\r\n      ICID  = EIDB\r\n  330 CALL WRITE (GPLA,ICID,1,0)\r\n      CALL WRITE (USETA,AUSET(1,KK),6,0)\r\nC\r\nC     SIL AND EQEXIN\r\nC\r\n      NCRD  = NCRD + 1\r\n      SILC  = SILC + 6\r\n      ISILN = ISILN + 6\r\n      LUSETA= SILC\r\n      SILDX(2) = 10*SILC + 1\r\n      CALL WRITE (SILA,SILC,1,0)\r\n      CALL WRITE (SCR2,ISILN,1,0)\r\n      CALL WRITE (SCR2,SILC,1,0)\r\n      CALL WRITE (SCR1,ICID,2,0)\r\n      GO TO BACK, (50,60,70,80,90,100,101,102,103,104,105,120,200)\r\n  400 CONTINUE\r\n      SILB = SILC\r\n      IF (NOGO .EQ. 1) GO TO 1001\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  996 I = LSPAN\r\n      GO TO 9941\r\n  997 I = NCHORD\r\n      GO TO 9941\r\n  998 I = NSPAN\r\n 9941 WRITE  (NOT,9942) UFM,I,EID\r\n 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ',\r\n     1       'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO3 ID',I9)\r\n      GO TO 1001\r\n  999 CALL EMSG (0,2323,1,2,0)\r\n      WRITE  (NOT,891) PID,EID\r\n  891 FORMAT (10X,16HPAERO3 CARD NO. ,I8,31H REFERENCED BY CAERO3 CARD N\r\n     *O. ,I8,15H DOES NOT EXIST)\r\n 1001 CALL MESAGE (-61,0,NAM)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/apd4.f",
    "content": "      SUBROUTINE APD4\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         NAM(2),IZ(1),BACK,PSPA,IC(16),EID,PID,CIDBX,SILB,\r\n     1                SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10,CA4S,\r\n     2                CA4E,PA4S,PA4E,AUSET(6,2),SILC,ORF,USA,UK,EIDB,\r\n     3                SILDX(4),ACSIX(4),CID(5),NECTA(2)\r\n      REAL            VX1(3),VX2(3),ACPL(3,3),RB1(3)\r\n      DIMENSION       AI(6),HEAD(9),IHEAD(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NK,NJ,LUSETA\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1,\r\n     3                SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA,\r\n     4                CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,\r\n     6                NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,\r\n     7                NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E\r\n      COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      EQUIVALENCE     (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)),\r\n     1                (NECTA(1),EIDB),(NECTA(2),CID(1)),\r\n     2                (ACSIX(2),VX2(1)),(Z(1),IZ(1)),(EID,IC(1)),\r\n     3                (SILDX(1),ICID),(SILDX(3),SILC),\r\n     4                (AI(1),DY),(AI(2),BLOC),(AI(3),D),(AI(4),CA),\r\n     5                (AI(5),GAP),(AI(6),NSIZE),(HEAD(1),IHEAD(1))\r\n      DATA     NAM  / 4HAPD4,4H    /\r\nC\r\n      LCA  = 16\r\n      NC4  = ((CA4E-CA4S)+1)/LCA\r\n      NCAM = NCAM + NC4\r\nC\r\nC     INITIAL SETUP\r\nC\r\n      I17 = IBIT(17)\r\n      I18 = IBIT(18)\r\n      I19 = IBIT(19)\r\n      I20 = IBIT(20)\r\n      PSPA= ORF(ITWO(I17),ITWO(I20))\r\n      USA = ORF(PSPA,ITWO(I18))\r\n      UK  = ORF(ITWO(I19),ITWO(I20))\r\n      DO 5 J = 1,2\r\n      DO 5 I = 1,6\r\n    5 AUSET(I,J) = USA\r\n      AUSET(3,2) = UK\r\n      AUSET(5,2) = UK\r\n      IHEAD(1) = 4\r\n      SILC = SILB\r\nC\r\nC     LOOP ON NC4 MOVING CAERO4 CARD TO COMMON\r\nC\r\n      DO 400 I = 1,NC4\r\n      NTOT = 0\r\n      N = (I-1)*LCA - 1\r\n      DO 10 J = 1,LCA\r\n      IC(J) = IZ(CA4S+N+J)\r\n   10 CONTINUE\r\n      MCSTM = MCSTM + 1\r\n      IZ(CA4S+N+2) = MCSTM\r\n      IZ(CA4S+N+8) = 4\r\n      ACSIX(1) = MCSTM\r\nC\r\nC     FIND PAERO4 CARD\r\nC\r\n      CALL APDOE (PID,IZ,PA4S,PA4E,IPID,NPC)\r\n      IF (IPID .EQ. 0) GO TO 999\r\nC\r\nC     FIND NUMBER OF STRIPS\r\nC\r\n      ISPAN = NSPAN\r\n      IAST  = 0\r\n      IF (NSPAN .NE. 0) GO TO 20\r\n      CALL APDOE (NCHORD,IZ,NAEF1,NAEF2,IAST,NSPAN)\r\n      IF (IAST .EQ. 0) GO TO 998\r\n      NSPAN = NSPAN - 1\r\n      IAST  = IAST + 1\r\n   20 IZ(CA4S+N+4) = NSPAN\r\n      IZ(CA4S+N+5) = 1\r\n      IPP = IPID + 5\r\n      NPC = NPC - 4\r\n      NPC = NPC/3\r\n      IF (NPC .LT. NSPAN ) GO TO 997\r\n      IHEAD(8) = NSPAN\r\nC\r\nC     GET POINTS IN PROPER COORD SYSTEM\r\nC\r\n      CALL APDCS\r\n      HEAD(9) = 1.0/SQRT(1.0+((XP4+.25*(X43-X12))/YP4)**2)\r\n      IF (NEXT+6*NSPAN .GT. LEFT) GO TO 996\r\n      IOC = NEXT\r\nC\r\nC     GENERATE DATA FOR BOXES\r\nC\r\n      NCRDP = NCRD\r\n      FSJ1  = APDF(Z(IAST),1,ISPAN)\r\n      YJ1   = FSJ1*YP4\r\n      DJ1   = FSJ1*XP4\r\n      CJ1   = X12 + FSJ1*(X43-X12)\r\n      XIJ1  = DJ1\r\n      XI1J1 = DJ1 + CJ1\r\n      EIDB  = EID - 1\r\n      DO 100 J = 1,NSPAN\r\n      YJ    = YJ1\r\n      FSJ1  = APDF(Z( IAST),J+1,ISPAN)\r\n      YJ1   = FSJ1*YP4\r\n      DJ1   = FSJ1*XP4\r\n      CJ1   = X12 + FSJ1*(X43-X12)\r\n      DY    = (YJ1 - YJ)\r\n      YA    = .5*DY + YJ\r\n      YSP   = YA\r\n      CLOC  = X12 - (X12-X43)*YA/YP4\r\n      BLOC  = CLOC*.5\r\n      DOC   = Z(IPP)\r\n      CAOC  = Z(IPP+1)\r\n      GAPOC = Z(IPP+2)\r\n      IPP   = IPP + 3\r\n      D     = DOC*CLOC\r\n      CA    = CAOC*CLOC\r\n      GAP   = GAPOC*CLOC\r\n      NSIZE = 2\r\n      IF (CAOC .NE. 0.0) NSIZE = 3\r\n      NJ    = NJ + NSIZE\r\n      NK    = NK + NSIZE\r\n      NTOT  = NTOT + NSIZE\r\n      KK    = 0\r\n      DO 40 K = 1,6\r\n      Z(IOC+J+KK) =  AI(K)\r\n      KK = KK + NSPAN\r\n   40 CONTINUE\r\nC\r\nC     EXTERNAL ID S\r\nC\r\n      EIDB   = EIDB + 1\r\n      CID(1) = CIDBX + 1 + 2*(J-1)\r\n      CID(2) = CID(1) + 1\r\n      CID(3) = CID(1) + 2\r\n      CID(4) = CID(3) + 1\r\n      CID(5) = EIDB\r\n      NCID   = CID(4)\r\nC\r\nC     BGPDT , SPL, AND USET\r\nC\r\n      XIJ    = XIJ1\r\n      XI1J   = XI1J1\r\n      XIJ1   = DJ1\r\n      XI1J1  = DJ1 + CJ1\r\n      XIC    = (XIJ+XIJ1+BLOC)*.5\r\n      VX1(3) = 0\r\n      IF (J .NE. 1) GO TO 310\r\n      ASSIGN 300 TO BACK\r\n      ICID   = CID(1)\r\n      VX1(1) = XIJ\r\n      VX1(2) = YJ\r\n      KK     = 1\r\n      GO TO 340\r\n  300 ASSIGN 310 TO BACK\r\n      ICID   = CID(2)\r\n      VX1(1) = XI1J\r\n      VX1(2) = YJ\r\n      KK     = 1\r\n      GO TO 340\r\n  310  ASSIGN 320 TO BACK\r\n      ICID   = CID(3)\r\n      VX1(1) = XIJ1\r\n      VX1(2) = YJ1\r\n      KK     = 1\r\n      GO TO 340\r\n  320 ASSIGN 330 TO BACK\r\n      ICID   = CID(4)\r\n      VX1(1) = XI1J1\r\n      VX1(2) = YJ1\r\n      KK     = 1\r\n      GO TO 340\r\n  330 ASSIGN 360 TO BACK\r\n      ICID   = CID(5)\r\n      VX1(1) = XIC\r\n      IF (NSIZE .EQ. 3) AUSET(6,2) = UK\r\n      VX1(2) = YSP\r\n      KK     = 2\r\n  340 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2)\r\n      DO 350 K = 1,3\r\n  350 VX2(K) = VX2(K) + RB1(K)\r\n      CALL WRITE (BGPA,ACSIX,4,0)\r\n      CALL WRITE (GPLA,ICID,1,0)\r\n      CALL WRITE (USETA,AUSET(1,KK),6,0)\r\nC\r\nC     SIL AND EQEXIN\r\nC\r\n      NCRD   = NCRD + 1\r\n      SILC   = SILC + 6\r\n      ISILN  = ISILN +6\r\n      SILDX(4) = ISILN\r\n      LUSETA = SILC\r\n      SILDX(2) = 10*SILC + 1\r\n      CALL WRITE (SILA,SILC,1,0)\r\n      CALL WRITE (SCR2,ISILN,1,0)\r\n      CALL WRITE (SCR2,SILC,1,0)\r\n      CALL WRITE (SCR1,ICID,2,0)\r\n      GO TO BACK, (300,310,320,330,360)\r\nC\r\nC     ECT\r\nC\r\n  360 CID(1) = IAPD(1,J  ,1,NCRDP)\r\n      CID(2) = IAPD(2,J  ,1,NCRDP)\r\n      CID(4) = IAPD(1,J+1,1,NCRDP)\r\n      CID(3) = IAPD(2,J+1,1,NCRDP)\r\n      CID(5) = CID(3) + 1\r\n      CALL WRITE (ECTA,NECTA(1),6,0)\r\n      AUSET(6,2) = USA\r\n  100 CONTINUE\r\n      CIDBX = NCID\r\nC\r\nC     PUT OUT ACPT REC\r\nC\r\n      IHEAD(2) = NTOT\r\n      IHEAD(3) = IZ(IPID+1)\r\n      LCLA     = IHEAD(3)\r\n      IHEAD(4) = IZ(IPID+2)\r\n      IHEAD(5) = IZ(IPID+3)\r\n      ICIRC    = IHEAD(5)\r\n      IHEAD(6) = IZ(IPID+4)\r\n      IHEAD(7) = 0\r\n      IL       = 0\r\n      IN       = NSPAN + 1\r\nC\r\nC     PROPERTY DATA\r\nC\r\n      IF (LCLA.EQ.0 .AND. ICIRC.EQ.0) GO TO 70\r\n      IF (LCLA .EQ. 0) GO TO 50\r\n      CALL APDOE (IHEAD(4),IZ,NAEF1,NAEF2,IL,NW)\r\n      IF (IL .EQ. 0) GO TO 994\r\n      IF (MOD(NW,IN) .NE. 0) GO TO 994\r\n      IHEAD(7) = NW/IN\r\n      GO TO 70\r\n   50 IF (ICIRC .EQ. 0) GO TO 70\r\n      CALL APDOE (IHEAD(6),IZ,NAEF1,NAEF2,IL,NW)\r\n      IF (IL .EQ. 0) GO TO 995\r\n      IN = 2 + 2*ICIRC\r\n      IF (MOD(NW,IN) .NE. 0) GO TO 995\r\n      IHEAD(7) = NW/IN\r\n   70 CALL WRITE (ACPT,IHEAD,9,0)\r\n      CALL WRITE (ACPT,Z(IOC+1),NSPAN*6,0)\r\n      IF (IL .NE. 0) CALL WRITE (ACPT,Z(IL+1),NW,0)\r\n      CALL WRITE (ACPT,0,0,1)\r\n  400 CONTINUE\r\n      SILB = SILC\r\n 1001 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  994 I = IHEAD(4)\r\n 9941 WRITE  (NOT,9942) UFM,I,EID\r\n 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ',\r\n     1       'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO4 ID',I9)\r\n      GO TO 1000\r\n  995 I = IHEAD(6)\r\n      GO TO 9941\r\n  996 CALL MESAGE (-8,0,NAM)\r\n  997 I = PID\r\n      GO TO 9941\r\n  998 I = NCHORD\r\n      GO TO 9941\r\n  999 CALL EMSG (0,2323,1,2,0)\r\n      WRITE  (NOT,891) PID,EID\r\n  891 FORMAT (10X,16HPAERO4 CARD NO. ,I8,31H REFERENCED BY CAERO4 CARD N\r\n     *O. ,I8,15H DOES NOT EXIST)\r\n      GO TO 1000\r\n 1000 CALL MESAGE (-61,0,NAM)\r\n      GO TO 1001\r\n      END\r\n"
  },
  {
    "path": "mis/apd5.f",
    "content": "      SUBROUTINE APD5\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         NAM(2),IZ(1),BACK,PSPA,IC(16),EID,PID,CIDBX,SILB,\r\n     1                SCR1,ECTA,BGPA,GPLA,USETA,SILA,ACPT,BUF10,CA5S,\r\n     2                CA5E,PA5S,PA5E,AUSET(6,2),SILC,ORF,USA,UK,EIDB,\r\n     3                SILDX(4),ACSIX(4),CID(5),NECTA(2)\r\n      REAL            VX1(3),VX2(3),ACPL(3,3),RB1(3)\r\n      DIMENSION       AI(3),HEAD(10),IHEAD(10)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NK,NJ,LUSETA\r\n      COMMON /APD1C / EID,PID,CP,NSPAN,NCHORD,NTHRY,NTHICK,IGID,\r\n     1                X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM,\r\n     2                NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD,SCR1,\r\n     3                SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA,\r\n     4                CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN,\r\n     5                NCAM,NAEF1,NAEF2,\r\n     6                NCA1,NCA2,CA2S,CA2E,CA3S,CA3E,CA4S,CA4E,\r\n     7                NPA1,NPA2,PA2S,PA2E,PA3S,PA3E,PA4S,PA4E,CA5S,CA5E,\r\n     8                PA5S,PA5E\r\n      COMMON /APD1D / ICPL(14),YP4,S1,C1,XP2,XP3,XP4,RA1(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BITPOS/ IBIT(64)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      EQUIVALENCE     (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1)),\r\n     1                (NECTA(1),EIDB),(NECTA(2),CID(1)),\r\n     2                (ACSIX(2),VX2(1)),(Z(1),IZ(1)),(EID,IC(1)),\r\n     3                (SILDX(1),ICID),(SILDX(3),SILC),\r\n     4                (AI(1),DY),(AI(2),BLOC),(AI(3),CA),\r\n     5                (HEAD(1),IHEAD(1))\r\n      DATA    NAM   / 4HAPD5,4H    /\r\nC\r\n      LCA  = 16\r\n      NC5  = ((CA5E-CA5S)+1)/LCA\r\n      NCAM = NCAM + NC5\r\nC\r\nC     INITIAL SETUP\r\nC\r\n      I17  = IBIT(17)\r\n      I18  = IBIT(18)\r\n      I19  = IBIT(19)\r\n      I20  = IBIT(20)\r\n      PSPA = ORF(ITWO(I17),ITWO(I20))\r\n      USA  = ORF(PSPA,ITWO(I18))\r\n      UK   = ORF(ITWO(I19),ITWO(I20))\r\n      DO 5 J = 1,2\r\n      DO 5 I = 1,6\r\n    5 AUSET(I,J) = USA\r\n      AUSET(3,2) = UK\r\n      AUSET(5,2) = UK\r\n      IHEAD(1)   = 5\r\n      SILC = SILB\r\nC\r\nC     LOOP ON NC5 MOVING CAERO5 CARD TO COMMON\r\nC\r\n      DO 400 I = 1,NC5\r\n      NTOT = 0\r\n      N = (I-1)*LCA - 1\r\n      DO 10 J = 1,LCA\r\n      IC(J) = IZ(CA5S+N+J)\r\n   10 CONTINUE\r\n      MCSTM = MCSTM + 1\r\n      IZ(CA5S+N+2) = MCSTM\r\n      IZ(CA5S+N+8) = 5\r\n      ACSIX(1) = MCSTM\r\nC\r\nC     FIND PAERO5 CARD\r\nC\r\n      CALL APDOE (PID,IZ,PA5S,PA5E,IPID,NPC)\r\n      IF (IPID .EQ. 0) GO TO 999\r\nC\r\nC     FIND NUMBER OF STRIPS\r\nC\r\n      ISPAN = NSPAN\r\n      IAST  = 0\r\n      IF (NSPAN .NE. 0) GO TO 20\r\n      CALL APDOE (NCHORD,IZ,NAEF1,NAEF2,IAST,NSPAN)\r\n      IF (IAST .EQ. 0) GO TO 998\r\n      NSPAN = NSPAN - 1\r\n      IAST  = IAST + 1\r\n   20 IZ(CA5S+N+4) = NSPAN\r\n      IZ(CA5S+N+5) = 1\r\n      IPP = IPID + 7\r\n      NPC = NPC - 6\r\n      IF (NPC .LT. NSPAN) GO TO 997\r\n      IHEAD(9) = NSPAN\r\nC\r\nC     GET POINTS IN PROPER COORD SYSTEM\r\nC\r\n      CALL APDCS\r\n      HEAD(10) = SQRT(1.0+(XP4/YP4)**2)\r\n      IF (NEXT+3*NSPAN .GT. LEFT) GO TO 996\r\n      IOC = NEXT\r\nC\r\nC     GENERATE DATA FOR BOXES\r\nC\r\n      NCRDP= NCRD\r\n      FSJ1 = APDF(Z(IAST),1,ISPAN)\r\n      YJ1  = FSJ1*YP4\r\n      DJ1  = FSJ1*XP4\r\n      CJ1  = X12 + FSJ1*(X43-X12)\r\n      XIJ1 = DJ1\r\n      XI1J1= DJ1 + CJ1\r\n      EIDB = EID - 1\r\n      DO 100 J = 1,NSPAN\r\n      YJ   = YJ1\r\n      FSJ1 = APDF(Z(IAST),J+1,ISPAN)\r\n      YJ1  = FSJ1*YP4\r\n      DJ1  = FSJ1*XP4\r\n      CJ1  = X12 + FSJ1*(X43-X12)\r\n      DY   = YJ1 - YJ\r\n      YA   = .5*DY + YJ\r\n      YSP  = YA\r\n      CLOC = X12 - (X12-X43)*YA/YP4\r\n      BLOC = CLOC*.5\r\n      CAOC = Z(IPP)\r\n      IPP  = IPP + 1\r\n      CA   = CAOC*CLOC\r\n      NSIZE= 2\r\n      IF (CAOC .NE. 0.0) NSIZE = 3\r\n      NJ   = NJ + NSIZE\r\n      NK   = NK + NSIZE\r\n      NTOT = NTOT + NSIZE\r\n      KK   = 0\r\n      DO 40 K = 1,3\r\n      Z(IOC+J+KK) = AI(K)\r\n      KK = KK + NSPAN\r\n   40 CONTINUE\r\nC\r\nC     EXTERNAL ID S\r\nC\r\n      EIDB   = EIDB   + 1\r\n      CID(1) = CIDBX  + 1 + 2*(J-1)\r\n      CID(2) = CID(1) + 1\r\n      CID(3) = CID(1) + 2\r\n      CID(4) = CID(3) + 1\r\n      CID(5) = EIDB\r\n      NCID   = CID(4)\r\nC\r\nC     BGPDT, SPL, AND USET\r\nC\r\n      XIJ  = XIJ1\r\n      XI1J = XI1J1\r\n      XIJ1 = DJ1\r\n      XI1J1= DJ1 + CJ1\r\n      XIC  = (XIJ+XIJ1+BLOC)*.5\r\n      VX1(3) = 0\r\n      IF (J .NE. 1) GO TO 310\r\n      ASSIGN 300 TO BACK\r\n      ICID   = CID(1)\r\n      VX1(1) = XIJ\r\n      VX1(2) = YJ\r\n      KK = 1\r\n      GO TO 340\r\n  300 ASSIGN 310 TO BACK\r\n      ICID   = CID(2)\r\n      VX1(1) = XI1J\r\n      VX1(2) = YJ\r\n      KK     = 1\r\n      GO TO 340\r\n  310 ASSIGN 320 TO BACK\r\n      ICID   = CID(3)\r\n      VX1(1) = XIJ1\r\n      VX1(2) = YJ1\r\n      KK     = 1\r\n      GO TO 340\r\n  320 ASSIGN 330 TO BACK\r\n      ICID   = CID(4)\r\n      VX1(1) = XI1J1\r\n      VX1(2) = YJ1\r\n      KK     = 1\r\n      GO TO 340\r\n  330 ASSIGN 360 TO BACK\r\n      ICID   = CID(5)\r\n      VX1(1) = XIC\r\n      IF (NSIZE .EQ. 3) AUSET(6,2) = UK\r\n      VX1(2) = YSP\r\n      KK     = 2\r\n  340 CALL GMMATS (ACPL,3,3,0,VX1,3,1,0,VX2)\r\n      DO 350 K = 1,3\r\n  350 VX2(K) = VX2(K) + RB1(K)\r\n      CALL WRITE (BGPA,ACSIX,4,0)\r\n      CALL WRITE (GPLA,ICID,1,0)\r\n      CALL WRITE (USETA,AUSET(1,KK),6,0)\r\nC\r\nC     SIL AND EQEXIN\r\nC\r\n      NCRD  = NCRD + 1\r\n      SILC  = SILC + 6\r\n      ISILN = ISILN +6\r\n      SILDX(4) = ISILN\r\n      LUSETA = SILC\r\n      SILDX(2) = 10*SILC + 1\r\n      CALL WRITE (SILA,SILC,1,0)\r\n      CALL WRITE (SCR2,ISILN,1,0)\r\n      CALL WRITE (SCR2,SILC,1,0)\r\n      CALL WRITE (SCR1,ICID,2,0)\r\n      GO TO BACK, (300,310,320,330,360)\r\nC\r\nC     ECT\r\nC\r\n  360 CID(1) = IAPD(1,J  ,1,NCRDP)\r\n      CID(2) = IAPD(2,J  ,1,NCRDP)\r\n      CID(4) = IAPD(1,J+1,1,NCRDP)\r\n      CID(3) = IAPD(2,J+1,1,NCRDP)\r\n      CID(5) = CID(3) + 1\r\n      CALL WRITE (ECTA,NECTA(1),6,0)\r\n      AUSET(6,2) = USA\r\n  100 CONTINUE\r\n      CIDBX = NCID\r\nC\r\nC     PUT OUT ACPT REC\r\nC\r\n      IHEAD(2) = NTOT\r\n      IHEAD(4) = NTHRY\r\n      IF (NTHRY .EQ. 1) HEAD(10) = 0.0\r\n      IHEAD(5) = NTHICK\r\n      IHEAD(6) = IZ(IPID+1)\r\n      IHEAD(7) = IZ(IPID+3)\r\n      IHEAD(8) = IZ(IPID+5)\r\nC\r\nC     PROPERTY DATA\r\nC\r\n      IL = 0\r\n      IN = NSPAN + 1\r\nC\r\nC     ALPHAS\r\nC\r\n      CALL APDOE (IZ(IPID+2),IZ,NAEF1,NAEF2,IL,NW)\r\n      IF (IL .EQ. 0) GO TO 994\r\n      IF (IHEAD(6) .EQ. 1) GO TO 50\r\n      IHEAD(3) = NW/IN\r\n      IF (MOD(NW,IN) .NE. 0) GO TO 994\r\n      IHEAD(6) = NSPAN\r\n      GO TO 60\r\n   50 IHEAD(3) = NW/2\r\n      IF (MOD(NW,2) .NE. 0) GO TO 994\r\nC\r\nC     INTEGRALS\r\nC\r\n   60 INT = 0\r\n      ITN = 0\r\n      IF (NTHICK .EQ. 0) GO TO 70\r\n      CALL APDOE (NTHICK,IZ,NAEF1,NAEF2,INT,NWI)\r\n      IF (INT .EQ. 0) GO TO 995\r\n      IF (IHEAD(7).EQ.0 .AND. NWI.LT. 6) GO TO 995\r\n      IF (IHEAD(7).NE.0 .AND. NWI.NE.12) GO TO 995\r\n      GO TO 90\r\nC\r\nC     TAUS\r\nC\r\n   70 CALL APDOE (Z(IPID+6),IZ,NAEF1,NAEF2,ITN,NWT)\r\n      IF (INT .EQ. 0) GO TO 993\r\n      IF (IHEAD(8) .EQ. 0) GO TO 993\r\n      IF (IHEAD(8) .EQ. 1) GO TO 80\r\n      IF (NWT .NE. 3*NSPAN) GO TO 993\r\n      IHEAD(8) = NSPAN\r\n      GO TO 90\r\n   80 IF (NWT .NE. 3) GO TO 993\r\nC\r\nC     THICKNESSES\r\nC\r\n   90 ITK = 0\r\n      IF (NTHICK.NE.0 .AND. IHEAD(7).EQ.0) GO TO 99\r\n      CALL APDOE (Z(IPID+4),IZ,NAEF1,NAEF2,ITK,NWTK)\r\n      IF (ITK .EQ. 0) GO TO 992\r\n      IF (INT .EQ. 0) GO TO 92\r\n      IF (IHEAD(7) .NE. 1) IHEAD(7) = NSPAN\r\n      IF (IHEAD(7).EQ.NSPAN .AND. NWTK.LT.NSPAN) GO TO 992\r\n      GO TO 99\r\n   92 IF (NWTK .LT. 2) GO TO 992\r\n      IF (IHEAD(8).EQ.NSPAN .AND. NWTK.LT.2*NSPAN) GO TO 992\r\n   99 CALL WRITE (ACPT,IHEAD,10,0)\r\n      CALL WRITE (ACPT,Z(IOC+1),NSPAN*3,0)\r\n      CALL WRITE (ACPT,Z(IL+1),NW,0)\r\n      IF (INT .NE. 0) CALL WRITE (ACPT,Z(INT+1),NWI,0)\r\n      IF (INT.NE.0 .AND. ITK.NE.0) CALL WRITE (ACPT,Z(ITK+1),NWTK,0)\r\n      IF (ITN .NE. 0) CALL WRITE (ACPT,Z(ITN+1),NWT,0)\r\n      IF (ITN .NE. 0) CALL WRITE (ACPT,Z(ITK+1),NWTK,0)\r\n      CALL WRITE (ACPT,0,0,1)\r\n  400 CONTINUE\r\n      SILB = SILC\r\n 1001 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  992 I = IZ(IPID+4)\r\n      GO TO 9941\r\n  993 I = IZ(IPID+6)\r\n      GO TO 9941\r\n  994 I = IHEAD(6)\r\n 9941 WRITE  (NOT,9942) UFM,I,EID\r\n 9942 FORMAT (A23,' 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR ',\r\n     1       'CARD ID',I9, /29X,'ASSOCIATED WITH CAERO5 ID',I9)\r\n      GO TO 1000\r\n  995 I = NTHICK\r\n      GO TO 9941\r\n  996 CALL MESAGE (-8,0,NAM)\r\n  997 I = PID\r\n      GO TO 9941\r\n  998 I = NCHORD\r\n      GO TO 9941\r\n  999 CALL EMSG (0,2323,1,2,0)\r\n      WRITE  (NOT,891) PID,EID\r\n  891 FORMAT (10X,16HPAERO5 CARD NO. ,I8,31H REFERENCED BY CAERO5 CARD N\r\n     1O. ,I8,15H DOES NOT EXIST)\r\n      GO TO 1000\r\n 1000 CALL MESAGE (-61,0,NAM)\r\n      GO TO 1001\r\n      END\r\n"
  },
  {
    "path": "mis/apdb.f",
    "content": "      SUBROUTINE APDB\r\nC\r\nC     AERODYNAMIC POOL DISTRIBUTOR AND GEOMETRY INTERPOLATOR FOR\r\nC     COMPRESSOR BLADES (AERODYNAMIC THEORY 6) AND SWEPT TURBOPROP\r\nC     BLADES (AERODYNAMIC THEORY 7).\r\nC\r\nC     THIS IS THE DMAP DRIVER FOR APDB\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC     APDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO / AEROB,ACPT,FLIST,\r\nC              GTKA,PVECT / V,N,NK/V,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/\r\nC              V,Y,IREF/V,Y,MTYPE/V,N,NEIGV/V,Y,KINDEX $\r\nC\r\nC     INPUT  DATA BLOCKS CSTM, GM AND GO MAY BE PURGED\r\nC     OUTPUT DATA BLOCK  PVECT MAY BE PURGED\r\nC     PARAMETERS NK AND NJ ARE OUTPUT, THE OTHERS ARE INPUT\r\nC\r\nC\r\n      LOGICAL         LMKAER,FIRST,DEBUG\r\n      INTEGER         SYSBUF,RD,RDREW,WRT,WRTREW,CLSREW,NOREW,EOFNRW,\r\n     1                NAME(2),AERO(3),MKAER1(3),MKAER2(3),FLUTTR(3),\r\n     2                FLFACT(3),ITRL(7),STRML1(3),STRML2(3),SCR1,FILE,\r\n     3                FLAG,NAME1(6,2),BUF(7),EDT,BGPDT,CSTM,EQEXIN,\r\n     4                AEROB,ACPT,FLIST,PVECT,CORWDS,PSTRM(100),TYPIN,\r\n     5                TYPOUT,SINE,IZ(6)\r\n      REAL            MINMAC,MAXMAC\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / NK,NJ,MINMAC,MAXMAC,IREF,MTYPE(2),NEIGV,KINDEX\r\n      COMMON /SYSTEM/ SYSBUF,IOUT,NSYS(91)\r\n      COMMON /APDBUG/ DEBUG\r\n      COMMON /PACKX / TYPIN,TYPOUT,II,NN,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,NOREW,EOFNRW\r\nC     NAMES  -VALUE =  2   0    3    1      1      2     3\r\n      EQUIVALENCE     (Z(1),IZ(1)), (MINMAC,MACMIN), (MAXMAC,MACMAX)\r\n      DATA    AERO  / 3202,32,0/, MKAER1 /3802,38,0/, MKAER2 /3702,37,0/\r\n      DATA    FLUTTR/ 3902,39,0/, FLFACT /4102,41,0/\r\n      DATA    STRML1/ 3292,92,0/, STRML2 /3293,93,0/\r\n      DATA    EDT   , BGPDT,CSTM,EQEXIN  /\r\n     1        101   , 103  ,104 ,105     /\r\n      DATA    AEROB , ACPT ,FLIST,PVECT  /\r\n     1        201   , 202  ,203  ,205    /\r\n      DATA    NAME  / 4HAPDB,4H          /, SCR1 /301/\r\n      DATA    ITRL  / 7*0 / , FIRST / .TRUE./,  SINE / 4HSINE/\r\n      DATA    NAME1(1,1),NAME1(1,2) / 4HAERO,4H      /\r\n      DATA    NAME1(2,1),NAME1(2,2) / 4HMKAE,4HRO    /\r\n      DATA    NAME1(3,1),NAME1(3,2) / 4HFLFA,4HCT    /\r\n      DATA    NAME1(4,1),NAME1(4,2) / 4HFLUT,4HTER   /\r\n      DATA    NAME1(5,1),NAME1(5,2) / 4HSTRE,4HAML1  /\r\n      DATA    NAME1(6,1),NAME1(6,2) / 4HSTRE,4HAML2  /\r\nC\r\n      DEBUG = .FALSE.\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG = .TRUE.\r\nC\r\nC     SELECT AERODYNAMIC THEORY\r\nC\r\nC     COMPRESSOR BLADES (AERODYNAMIC THEORY 6).\r\nC     SWEPT TURBOPROPS  (AERODYNAMIC THEORY 7).\r\nC\r\nC     AT PRESENT THE USER SELECTS THE THEORY VIA THE NASTRAN CARD.\r\nC     SET SYSTEM(93)=0  FOR THEORY 6 OR SYSTEM(93)=1 FOR THEORY 7.\r\nC     NOTE - THE DEFAULT IS THEORY 6 (SYSTEM(93)=0).\r\nC\r\nC     FOR EXAMPLE, TO SELECT THEORY 7, USE THE FOLLOWING CARD -\r\nC     NASTRAN SYSTEM(93)=1\r\nC\r\n      IF (NSYS(91) .EQ. 0) MTHD = 6\r\n      IF (NSYS(91) .EQ. 1) MTHD = 7\r\nC\r\n      IF (DEBUG) CALL BUG1 ('BLANK COMM',1,NK,9)\r\n      NOGO  = 0\r\n      MAXSL = 100\r\n      IBUF1 = KORSZ(Z) - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      LAST  = IBUF3 - SYSBUF - 1\r\n      IF (LAST .LE. 0) GO TO 991\r\n      LEFT = CORWDS(Z(1),Z(LAST))\r\nC\r\nC     CREATE AEROB DATA BLOCK\r\nC\r\n      CALL GOPEN (AEROB,Z(IBUF2),WRTREW)\r\nC\r\nC     READ AERO CARD VALUES - BREF, SYMXZ AND SYMXY\r\nC\r\n      FILE = EDT\r\n      CALL PRELOC (*992,Z(IBUF1),EDT)\r\n      CALL LOCATE (*981,Z(IBUF1),AERO,FLAG)\r\n      CALL READ   (*993,*994,EDT,Z(1),6,1,FLAG)\r\n      IF (DEBUG) CALL BUG1 ('AERO CARD ',2,Z,6)\r\n      IZ(1) = IZ(5)\r\n      IZ(2) = IZ(6)\r\n      CALL WRITE (AEROB,Z,3,1)\r\nC\r\nC     READ IN MKAERO1 CARDS\r\nC\r\n      LMKAER = .FALSE.\r\n      NEXT = 1\r\n      CALL LOCATE (*60,Z(IBUF1),MKAER1,FLAG)\r\n      CALL READ (*993,*10,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 991\r\n   10 N1 = NEXT\r\n      IF (DEBUG) CALL BUG1 ('MKAERO1   ',10,Z(N1),NX)\r\n      LMKAER = .TRUE.\r\n   20 N2 = N1 + 7\r\n      DO 40 I = N1,N2\r\n      IF (IZ(I) .EQ. -1) GO TO 50\r\n      BUF(1) = IZ(I)\r\n      N3 = N2 + 1\r\n      N4 = N3 + 7\r\n      DO 30 J = N3,N4\r\n      IF (IZ(J) .EQ. -1) GO TO 40\r\n      BUF(2) = IZ(J)\r\n   30 CALL WRITE (AEROB,BUF,2,0)\r\n   40 CONTINUE\r\n   50 IF (N4-NEXT+1 .GE. NX) GO TO 60\r\n      N1 = N1 + 16\r\n      GO TO 20\r\nC\r\nC     READ IN MKAERO2 CARDS\r\nC\r\n   60 CALL LOCATE (*80,Z(IBUF1),MKAER2,FLAG)\r\n      CALL READ (*993,*70,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 991\r\n   70 CALL WRITE (AEROB,Z(NEXT),NX,0)\r\n      IF (DEBUG) CALL BUG1 ('MKAERO2   ',70,Z(NEXT),NX)\r\n      LMKAER = .TRUE.\r\n   80 CALL WRITE (AEROB,0,0,1)\r\n      CALL CLOSE (AEROB,CLSREW)\r\n      IF (.NOT.LMKAER) GO TO 982\r\n      ITRL(1) = AEROB\r\n      ITRL(2) = 1\r\n      CALL WRTTRL (ITRL)\r\nC\r\nC     CREATE FLIST TABLE\r\nC\r\n      CALL OPEN  (*85,FLIST,Z(IBUF2),WRTREW)\r\n      CALL FNAME (FLIST,IZ(NEXT))\r\n      CALL WRITE (FLIST,IZ(NEXT),2,1)\r\n      CALL LOCATE (*981,Z(IBUF1),AERO,FLAG)\r\n      CALL READ (*993,*90,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 991\r\nC\r\nC     FLIST CAN BE PURGED IF THE APPROACH IS NOT AERO\r\nC\r\n   85 IF (IABS(NSYS(19)) .NE. 4) GO TO 115\r\n      FILE = FLIST\r\n      GO TO 992\r\n   90 CALL WRITE (FLIST,AERO,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n      IF (DEBUG) CALL BUG1 ('FLIST AERO',90,Z(NEXT),NX)\r\n      CALL LOCATE (*983,Z(IBUF1),FLFACT,FLAG)\r\n      CALL READ (*993,*100,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 991\r\n  100 CALL WRITE (FLIST,FLFACT,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n      IF (DEBUG) CALL BUG1 ('FLIST FLFA',100,Z(NEXT),NX)\r\n      CALL LOCATE (*984,Z(IBUF1),FLUTTR,FLAG)\r\n      CALL READ (*993,*110,EDT,Z(NEXT),LEFT,1,NX)\r\n      GO TO 991\r\n  110 CALL WRITE (FLIST,FLUTTR,3,0)\r\n      CALL WRITE (FLIST,Z(NEXT),NX,1)\r\n      IF (DEBUG) CALL BUG1 ('FLIST FLUT',110,Z(NEXT),NX)\r\n      CALL CLOSE (FLIST,CLSREW)\r\n      ITRL(1) = EDT\r\n      CALL RDTRL (ITRL)\r\n      ITRL(1) = FLIST\r\n      CALL WRTTRL (ITRL)\r\n  115 CONTINUE\r\nC\r\nC     CREATE ACPT TABLE\r\nC\r\n      CALL GOPEN (ACPT,Z(IBUF2),WRTREW)\r\nC\r\nC     STORE EXTERNAL NODE NUMBER, INTERNAL NODE NUMBER AND BASIC\r\nC     COORDINATES OF ALL NODES ON BLADE ON SCR1\r\nC\r\n      CALL GOPEN (SCR1,Z(IBUF3),WRTREW)\r\nC\r\nC     READ STREAML1 AND STREAML2 CARDS. STORE IN-CORE\r\nC\r\n      NSL1A = NEXT\r\n      CALL LOCATE (*985,Z(IBUF1),STRML1,FLAG)\r\n      CALL READ (*993,*120,EDT,Z(NSL1A),LEFT,1,NSL1L)\r\n      GO TO 991\r\n  120 NSL1B = NSL1A + NSL1L - 1\r\n      IF (DEBUG) CALL BUG1 ('STREAML1  ',120,Z(NSL1A),NSL1L)\r\n      NSL2A = NSL1B + 1\r\n      LEFT  = CORWDS(Z(NSL2A),Z(LAST))\r\n      CALL LOCATE (*986,Z(IBUF1),STRML2,FLAG)\r\n      CALL READ (*993,*130,EDT,Z(NSL2A),LEFT,1,NSL2L)\r\n      GO TO 991\r\n  130 NSL2B = NSL2A + NSL2L - 1\r\n      IF (DEBUG) CALL BUG1 ('STREAML2  ',130,Z(NSL2A),NSL2L)\r\n      CALL CLOSE (EDT,CLSREW)\r\nC\r\nC     INPUT CHECKS  (ALL ARE THEORY DEPENDENT RESTRICTIONS)\r\nC     STREAML1 - ALL CARDS MUST HAVE THE SAME NUMBER OF NODES\r\nC     STREAML2 - THERE MUST BE AT LEAST THREE(3) STREAML2 CARDS.\r\nC                (THIS IS A THEORY DEPENDENT RESTRICTION,\r\nC                SEE AMG MODULE - COMPRESSOR BLADE CODE FOR AJJL)\r\nC              - NSTNS MUST BE THE SAME FOR ALL STREAML2 CARDS\r\nC                AND MUST EQUAL THE NO. OF NODES ON THE STRAML1 CARD\r\nC\r\nC     COUNT THE NUMBER OF STREAML2 CARDS\r\nC\r\n      NLINES = NSL2L/10\r\n      IF (DEBUG) CALL BUG1 ('NLINES    ',131,NLINES,1)\r\n      IF (NLINES .GE. 3) GO TO 135\r\n      NOGO = 1\r\n      WRITE (IOUT,3001) UFM,NLINES\r\n  135 IF (NLINES .GT. MAXSL) GO TO 988\r\nC\r\nC     LOCATE STREAML1 CARDS THAT CORRESPOND TO STREAML2 CARDS BY\r\nC     MATCHING SLN VALUES\r\nC\r\n      NLINE = 0\r\n      DO 140 ISLN = NSL2A,NSL2B,10\r\n      NLINE = NLINE + 1\r\n  140 PSTRM(NLINE) = -IZ(ISLN)\r\nC\r\nC     LOCATE SLN AND COUNT THE NUMBER OF COMPUTING STATIONS\r\nC\r\n      IPOS = NSL1A\r\n  145 DO 150 NS = IPOS,NSL1B\r\n      IF (IZ(NS) .EQ. -1) GO TO 155\r\n  150 CONTINUE\r\nC\r\nC     CHECK FOR VALID SLN\r\nC\r\n  155 DO 160 NLINE = 1,NLINES\r\n      IF (IZ(IPOS) .EQ. -PSTRM(NLINE)) GO TO 165\r\n  160 CONTINUE\r\n      GO TO 175\r\n  165 PSTRM(NLINE) = IPOS\r\n      NSTNSX = NS - IPOS - 1\r\n      IF (.NOT.FIRST) GO TO 170\r\n      NSTNS = NSTNSX\r\n      FIRST = .FALSE.\r\n      GO TO 175\r\nC\r\nC     ALL NSTNSX MUST BE THE SAME\r\nC\r\n  170 IF (NSTNSX .EQ. NSTNS) GO TO 175\r\n      NOGO = 2\r\n      WRITE (IOUT,3002) UFM,IZ(IPOS)\r\n  175 IPOS = NS + 1\r\n      IF (IPOS .LT. NSL1B) GO TO 145\r\nC\r\nC     IS THERE A STREAML1 CARD FOR EVERY STREAML2 CARD\r\nC\r\n      DO 180 NLINE = 1,NLINES\r\n      IF (PSTRM(NLINE) .GT. 0) GO TO 180\r\n      NOGO = 3\r\n      ISLN = -PSTRM(NLINE)\r\n      WRITE (IOUT,3003) UFM,ISLN\r\n  180 CONTINUE\r\n      IF (NOGO .GT. 0) GO TO 1000\r\nC\r\nC     READ BGPDT\r\nC\r\n      NBG1 = NSL2B + 1\r\n      LEFT = CORWDS(Z(NBG1),Z(LAST))\r\n      FILE = BGPDT\r\n      CALL GOPEN (BGPDT,Z(IBUF1),RDREW)\r\n      CALL READ (*993,*200,BGPDT,Z(NBG1),LEFT,1,NBGL)\r\n      GO TO 991\r\n  200 CALL CLOSE (BGPDT,CLSREW)\r\n      IF (DEBUG) CALL BUG1 ('BGPDT     ',200,Z(NBG1),NBGL)\r\n      NBG2 = NBG1 + NBGL - 1\r\nC\r\nC     READ EQEXIN (RECORD 1)\r\nC\r\n      NEQ1 = NBG2 + 1\r\n      LEFT = CORWDS(Z(NEQ1),Z(LAST))\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(IBUF1),RDREW)\r\n      CALL READ (*993,*210,EQEXIN,Z(NEQ1),LEFT,1,NEQL)\r\n      GO TO 991\r\n  210 NEQ2 = NEQ1 + NEQL - 1\r\n      IF (DEBUG) CALL BUG1 ('EQEXIN R1 ',210,Z(NEQ1),NEQL)\r\nC\r\nC     READ EQEXIN (RECORD 2)\r\nC\r\n      NEQ21 = NEQ2 + 1\r\n      LEFT = CORWDS(Z(NEQ21),Z(LAST))\r\n      CALL READ (*993,*215,EQEXIN,Z(NEQ21),LEFT,1,NEQ2L)\r\n      GO TO 991\r\n  215 NEQ22 = NEQ2 + NEQ2L - 1\r\n      IF (DEBUG) CALL BUG1 ('EQEXIN R2 ',212,Z(NEQ21),NEQ2L)\r\n      CALL CLOSE (EQEXIN,CLSREW)\r\nC\r\nC     WRITE ACPT\r\nC\r\nC     KEY WORD = 6 FOR COMPRESSOR BLADES, I.E. METHOD ID = 6\r\nC     KEY WORD = 7 FOR SWEPT TURBOPROPS , I.E. METHOD ID = 7\r\nC\r\nC     WRITE CONSTANT PARAMETERS, WORDS 1 - 6\r\nC\r\n      BUF(1) = MTHD\r\n      BUF(2) = IREF\r\n      BUF(3) = MACMIN\r\n      BUF(4) = MACMAX\r\n      BUF(5) = NLINES\r\n      BUF(6) = NSTNS\r\n      CALL WRITE (ACPT,BUF,6,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT WRT 1',216,BUF,6)\r\nC\r\nC     WRITE STREAMLINE DATA\r\nC\r\n      KN = NEQL/2\r\n      NLINE = 0\r\n      DO 240 NSL = NSL2A,NSL2B,10\r\nC\r\nC     MAKE SURE NSTNS ON ALL STREAML2 CARDS IS THE SAME\r\nC\r\n      IF (IZ(NSL+1) .EQ. NSTNS) GO TO 217\r\n      WRITE (IOUT,3004) UWM,IZ(NSL)\r\n      IZ(NSL+1) = NSTNS\r\nC\r\nC     WRITE STREAML2 DATA\r\nC\r\n  217 CALL WRITE (ACPT,Z(NSL),10,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT WRT 2',217,Z(NSL),10)\r\nC\r\nC     WRITE BASIC X, Y AND Z FOR EACH NODE ON STREAML1 CARD\r\nC\r\n      NLINE = NLINE + 1\r\n      IPOS  = PSTRM(NLINE)\r\n      IPOS1 = IPOS + 1\r\n      IPOS2 = IPOS + NSTNS\r\n      DO 230 IGDP = IPOS1,IPOS2\r\nC\r\nC     LOCATE INTERNAL NUMBER THAT CORRESOONDS TO THIS EXTERNAL NODE\r\nC\r\n      CALL BISLOC (*220,IZ(IGDP),IZ(NEQ1),2,KN,JLOC)\r\n      GO TO 225\r\nC\r\nC     STREAML1 REFERNCES AN EXTERNAL ID THAT DOES NOT EXIST\r\nC\r\n  220 NOGO = 5\r\n      WRITE (IOUT,3005) UFM,IZ(IPOS),IZ(IGDP)\r\n      GO TO 230\r\nC\r\nC     PICK-UP BASIC GRID DATA FOR THIS NODE\r\nC\r\n  225 INTRL  = IZ(NEQ1+JLOC)\r\n      ISILC  = IZ(NEQ21+JLOC)\r\n      JLOC   = NBG1 + (INTRL-1)*4\r\n      BUF(1) = IZ(IGDP)\r\n      BUF(2) = INTRL\r\n      BUF(3) = ISILC\r\n      BUF(4) = IZ(JLOC  )\r\n      BUF(5) = IZ(JLOC+1)\r\n      BUF(6) = IZ(JLOC+2)\r\n      BUF(7) = IZ(JLOC+3)\r\nC\r\nC     TEST FOR SCALAR POINT (CID = -1)\r\nC\r\n      IF (BUF(4) .GE. 0) GO TO 227\r\n      NOGO = 6\r\n      WRITE (IOUT,3006) UFM,IZ(IPOS),IZ(IGDP)\r\n  227 CALL WRITE (ACPT,BUF(5),3,0)\r\n      CALL WRITE (SCR1,BUF,7,0)\r\n      IF (DEBUG) CALL BUG1 ('ACPT WRT 3',227,BUF,7)\r\nC\r\nC-----DETERMINE DIRECTION OF BLADE ROTATION VIA Y-COORDINATES AT TIP\r\nC-----STREAMLINE. USE COORDINATES OF FIRST 2 NODES ON STREAMLINE.\r\nC\r\n      IF (NLINE.EQ.NLINES .AND. IGDP.EQ.IPOS1)   YTIP1 = Z(JLOC+2)\r\n      IF (NLINE.EQ.NLINES .AND. IGDP.EQ.IPOS1+1) YTIP2 = Z(JLOC+2)\r\nC\r\n  230 CONTINUE\r\n  240 CONTINUE\r\nC\r\n      XSIGN = 1.0\r\n      IF (YTIP2 .LT. YTIP1) XSIGN = -1.0\r\n      IF (DEBUG) CALL BUG1 ('XSIN      ',240,XSIGN,1)\r\n      CALL WRITE (ACPT,0,0,1)\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (ACPT,CLSREW)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      ITRL(1) = ACPT\r\n      ITRL(2) = 1\r\n      ITRL(3) = 0\r\n      ITRL(4) = 0\r\n      ITRL(5) = 0\r\n      ITRL(6) = 0\r\n      ITRL(7) = 0\r\n      CALL WRTTRL (ITRL)\r\n      IF (NOGO .GT. 0) GO TO 1000\r\nC\r\nC     SET OUTPUT PARAMETERS NK AND NJ FOR APPROPRIATE THEORY.\r\nC\r\nC     COMPRESSOR BLADES (THEORY 6) - NK = NJ = NSTNS*NLINES.\r\nC     SWEPT TURBOPROPS  (THEORY 7) - NK = NJ = 2*NSTNS*NLINES.\r\nC\r\n      IF (MTHD .EQ. 6) NK = NSTNS*NLINES\r\n      IF (MTHD .EQ. 7) NK = 2*NSTNS*NLINES\r\n      NJ = NK\r\n      IF (DEBUG) CALL BUG1 ('BLANK COM ',241,NK,9)\r\nC\r\nC     CREATE PVECT PARTITIONING VECTOR     (PVECT MAY BE PURGED)\r\nC     PVECT IS A COLUMN PARTITIONING VECTOR TO BE USED BY MODULE PARTN\r\nC     TO PARTITION OUT EITHER THE SINE OR COSINE COLUMNS OF MATRIX\r\nC     PHIA WHICH IS OUTPUT BY THE CYCT2 MODULE  WHEN DOING A CYCLIC\r\nC     NORMAL MODES ANALYSIS\r\nC     PARAMETER MTYPE=SINE OR COSINE (DEFAULT IS COSINE)\r\nC\r\nC     OPEN PVECT AND WRITE HEADER\r\nC\r\n      CALL OPEN (*270,PVECT,Z(IBUF2),WRTREW)\r\nC\r\nC     TEST FOR VALID NEIGV AND KINDEX\r\nC\r\n      IF (NEIGV.LE.0 .OR. KINDEX.LT.0) GO TO 987\r\nC\r\n      CALL FNAME (PVECT,BUF)\r\n      CALL WRITE (PVECT,BUF,2,1)\r\nC\r\nC     PVECT IS TO BE GENERATED\r\nC\r\n      LEFT = LEFT - NEQ2\r\n      NCOL = NEIGV\r\n      IF (KINDEX .GT. 0) NCOL = 2*NCOL\r\n      IPOS1 = NEQ2 + 1\r\n      IPOS2 = NEQ2 + NCOL\r\n      DO 250 IPV = IPOS1,IPOS2\r\n  250 Z(IPV) = 0.0\r\n      IF (KINDEX .EQ. 0) GO TO 260\r\n      IPOS3 = IPOS1\r\n      IF (MTYPE(1) .NE. SINE) IPOS3 = IPOS1 + 1\r\n      DO 255 IPV = IPOS3,IPOS2,2\r\n  255 Z(IPV) = 1.0\r\n  260 TYPIN  = 1\r\n      TYPOUT = 1\r\n      II     = 1\r\n      NN     = NCOL\r\n      INCR   = 1\r\n      CALL MAKMCB (ITRL,PVECT,NCOL,2,1)\r\n      CALL PACK (Z(IPOS1),PVECT,ITRL)\r\n      IF (DEBUG) CALL BUG1 ('PVECT     ',260,Z(IPOS1),NCOL)\r\n      CALL CLOSE (PVECT,CLSREW)\r\n      CALL WRTTRL (ITRL)\r\n  270 CONTINUE\r\nC\r\nC     GENERATE GTKA TRANSFORMATION MATRIX\r\nC\r\nC     READ CSTM INTO CORE\r\nC\r\n      NCSTM1 = 1\r\n      NCSTML = 0\r\n      FILE   = CSTM\r\n      ITRL(1)= CSTM\r\n      CALL RDTRL (ITRL)\r\n      IF (ITRL(1) .NE. CSTM) GO TO 300\r\n      LEFT = CORWDS(Z(NCSTM1),Z(LAST))\r\n      CALL GOPEN (CSTM,Z(IBUF1),RDREW)\r\n      CALL READ (*993,*300,CSTM,Z(NCSTM1),LEFT,1,NCSTML)\r\n      GO TO 991\r\n  300 NCSTM2 = NCSTM1 + NCSTML - 1\r\n      IF (DEBUG) CALL BUG1 ('CSTM      ',300,Z(NCSTM1),NCSTML)\r\n      CALL CLOSE (CSTM,CLSREW)\r\nC\r\nC     ALLOCATE WORK STORAGE\r\nC\r\n      IP1  = NCSTM2 + 1\r\n      IP2  = IP1 + NSTNS\r\n      IP3  = IP2 + NSTNS\r\n      IP4  = IP3 + NSTNS\r\n      NEXT = IP4 + 4*NSTNS\r\n      LEFT = LEFT - NEXT + 1\r\n      IF (LEFT .LE. 0) GO TO 991\r\nC\r\nC     GENERATE GTKA TRANSFORMATION MATRIX FOR APPROPRIATE THEORY.\r\nC\r\nC     COMPRESSOR BLADES (AERODYNAMIC THEORY 6).\r\nC\r\n      IF (MTHD .EQ. 6) CALL APDB1 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,\r\n     1    XSIGN,NCSTML,Z(NCSTM1),Z(IP1),Z(IP2),Z(IP3),Z(IP4))\r\nC\r\nC     SWEPT TURBOPROPS (AERODYNAMIC THEORY 7).\r\nC\r\n      IF (MTHD .EQ. 7) CALL APDB2 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,\r\n     1    XSIGN,NCSTML,Z(NCSTM1),Z(IP1),Z(IP2),Z(IP3),Z(IP4))\r\n      GO TO 1000\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NO AERO CARD FOUND\r\n  981 KODE = 1\r\n      GO TO 989\r\nC\r\nC     NO MKAERO1 OR MKAERO2 CARDS FOUND\r\nC\r\n  982 KODE = 2\r\n      GO TO 989\r\nC\r\nC     NO FLFACT CARD FOUND\r\nC\r\n  983 KODE = 3\r\n      GO TO 989\r\nC\r\nC     NO FLUTTER CARD FOUND\r\nC\r\n  984 KODE = 4\r\n      GO TO 989\r\nC\r\nC     NO STREAML1 CARD FOUND\r\nC\r\n  985 KODE = 5\r\n      GO TO 989\r\nC\r\nC     NO STREAML2 CARD FOUND\r\nC\r\n  986 KODE = 6\r\n      GO TO 989\r\nC\r\nC     NEIGV OR KINDEX INVALID\r\nC\r\n  987 WRITE (IOUT,2987) UFM,NEIGV,KINDEX\r\n      GO TO 1091\r\nC\r\nC     MAXIMUM NUMBER OF STREAML2 CARDS EXCEEDED FOR\r\nC     LOCAL ARRAY PSTRM. SEE ERROR MESSAGE FOR FIX.\r\nC\r\n  988 WRITE (IOUT,3007) UFM,MAXSL\r\n      GO TO 1091\r\n  989 WRITE (IOUT,2989) UFM,NAME1(KODE,1),NAME1(KODE,2)\r\n      GO TO 1091\r\nC\r\nC     NOT ENOUGH CORE\r\nC\r\n  991 IP1 = -8\r\n      GO TO 999\r\nC\r\nC     DATA SET NOT IN FIST\r\nC\r\n  992 IP1 = -1\r\n      GO TO 999\r\nC\r\nC     E-O-F ENCOUNTERED\r\nC\r\n  993 IP1 = -2\r\n      GO TO 999\r\nC\r\nC     E-O-L ENCOUNTERED\r\nC\r\n  994 IP1 = -3\r\n  999 CALL MESAGE (IP1,FILE,NAME)\r\nC\r\n 1000 IF (NOGO .EQ. 0) GO TO 1099\r\n 1091 CALL MESAGE (-37,0,NAME)\r\n 1099 RETURN\r\nC\r\n 2987 FORMAT (A23,' - APDB MODULE - INVALID PARAMETER NEIGV OR KINDEX',\r\n     1       ' INPUT.', /40X,\r\n     2       'DATA BLOCK PVECT (FILE 205) CANNOT BE GENERATED.', /40X,\r\n     3       7HNEIGV =,I8,10H, KINDEX =,I8)\r\n 2989 FORMAT (A23,' - MODULE APDB - BULK DATA CARD ',2A4,\r\n     1       ' MISSING FROM INPUT DECK.')\r\n 3001 FORMAT (A23,' - APDB MODULE - THE NO. OF STREAML2 CARDS INPUT =',\r\n     1       I3, /40X,'THERE MUST BE AT LEAST THREE(3) STREAML2 CARDS',\r\n     2       ' INPUT.')\r\n 3002 FORMAT (A23,' - APDB MODULE - ILLEGAL NO. OF NODES ON STREAML1 ',\r\n     1       'CARD WITH SLN =',I8, /40X,\r\n     2       'ALL STREAML1 CARDS MUST HAVE THE SAME NUMBER OF NODES.')\r\n 3003 FORMAT (A23,' - APDB MODULE - NO STREAML1 CARD FOR THE STREAML2',\r\n     1       ' WITH SLN =',I8)\r\n 3004 FORMAT (A25,' - APDB MODULE - STREAML2 WITH SLN =',I8, /42X,\r\n     1       'NSTNS INCONSISTENT WITH NO. OF NODES ON STREAML2 CARD ',\r\n     2       'FOR BLADE ROOT.', /42X,'CORRECT VALUE OF NSTNS WILL BE ',\r\n     3       'SUBSTITUTED ON STREAML2 CARD.')\r\n 3005 FORMAT (A23,' - APDB MODULE - STREAML1 CARD WITH SLN =',I8,\r\n     1       ' REFERENCES NON-EXISTENT EXTERNAL NODE =',I8)\r\n 3006 FORMAT (A23,' - APDB MODULE - STREAML1 CARD WITH SLN =',I8,\r\n     1       ' REFERENCES A SCALAR POINT WITH EXTERNAL ID =',I8, /40X,\r\n     2       'SCALAR POINTS ARE ILLEGAL. USE A GRID POINT.')\r\n 3007 FORMAT (A23,' - APDB MODULE - MAXIMUM NUMBER OF STREAML2 CARDS ',\r\n     1       'EXCEEDED FOR LOCAL ARRAY PSTRM.', /40X,\r\n     2       'UPDATE VARABLE MAXSL AND ARRAY PSTRM IN ROUTINE APDB.',\r\n     3       /40X,'CURRENT VALUE OF MAXSL AND DIMENSION OF PSTRM =',I4)\r\n      END\r\n"
  },
  {
    "path": "mis/apdb1.f",
    "content": "      SUBROUTINE APDB1 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,XSIGN,\r\n     1                  LCSTM,ACSTM,NODEX,NODEI,ISILC,XYZB)\r\nC\r\nC     GENERATE GTKA TRANSFORMATION MATRIX\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         MULTI,OMIT,SINGLE,DEBUG\r\n      INTEGER         GM,GO,GTKA,SCR1,SCR2,CORE,\r\n     1                UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,USET1,IDATA(7),\r\n     2                GTKG,GKNB,GKM,GKAB,GKF,GKS,GKO,GKN,GSIZE,\r\n     3                ANDF,RD,RDREW,WRT,WRTREW,CLSREW,TGKG(7)\r\n      DIMENSION       ITRL(7),XYZB(4,NSTNS),IZ(1),Z(1),RDATA(7),TA(3,3),\r\n     1                TBL(3),TBLA(3),ACSTM(1),NODEX(1),NODEI(1),ISILC(1)\r\n      COMMON /SYSTEM/ KSYSTM(54),IPREC\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /ZBLPKX/ AP(4),II\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /PATX  / LC,N,NO,NY,USET1,IBC(7)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW\r\n      COMMON /APDBUG/ DEBUG\r\n      EQUIVALENCE     (Z(1),CORE(1))\r\n      EQUIVALENCE     (Z(1),IZ(1)), (IDATA(1),RDATA(1))\r\n      DATA    SINGLE, MULTI,OMIT /.TRUE.,.TRUE.,.TRUE./\r\nC\r\n      USET = 102\r\n      GM   = 106\r\n      GO   = 107\r\n      GTKA = 204\r\n      SCR1 = 301\r\n      SCR2 = 302\r\n      GKNB = 303\r\n      GKM  = 304\r\n      GKAB = 305\r\n      ITRL(1) = USET\r\n      CALL RDTRL(ITRL)\r\n      GSIZE = ITRL(3)\r\n      IF (ANDF(ITRL(5),ITWO(UM)) .EQ. 0) MULTI = .FALSE.\r\n      IF (ANDF(ITRL(5),ITWO(US)) .EQ. 0) SINGLE= .FALSE.\r\n      IF (ANDF(ITRL(5),ITWO(UO)) .EQ. 0) OMIT  = .FALSE.\r\n      IF (.NOT.(MULTI .OR. SINGLE .OR. OMIT)) SCR2 = GTKA\r\n      GTKG = SCR2\r\nC\r\nC     OPEN SCR1 TO READ BLADE NODE DATA\r\nC\r\nC                         T\r\nC     OPEN SCR2 TO WRITE G   MATRIX OF ORDER (GSIZE X KSIZE)\r\nC                         KG\r\nC\r\n      CALL GOPEN (SCR1,Z(IBUF1),RDREW)\r\n      CALL GOPEN (GTKG,Z(IBUF2),WRTREW)\r\n      TGKG(1) = GTKG\r\n      TGKG(2) = 0\r\n      TGKG(3) = GSIZE\r\n      TGKG(4) = 2\r\n      TGKG(5) = 1\r\n      TGKG(6) = 0\r\n      TGKG(7) = 0\r\nC\r\nC     SET-UP CALL TO TRANSS VIA PRETRS\r\nC\r\n      IF (LCSTM .GT. 0) CALL PRETRS (ACSTM,LCSTM)\r\nC\r\nC     LOOP ON STREAMLINES\r\nC\r\n      DO 50  NLINE = 1,NLINES\r\nC\r\nC     READ STREAMLINE NODE DATA FROM SCR1\r\nC\r\n      DO 10 NST = 1,NSTNS\r\n      CALL FREAD (SCR1,IDATA,7,0)\r\n      IF (DEBUG) CALL BUG1 ('SCR1 IDATA',10,IDATA,7)\r\n      NODEX(NST) = IDATA(1)\r\n      NODEI(NST) = IDATA(2)\r\n      ISILC(NST) = IDATA(3)\r\n      XYZB(1,NST)= RDATA(4)\r\n      XYZB(2,NST)= RDATA(5)\r\n      XYZB(3,NST)= RDATA(6)\r\n      XYZB(4,NST)= RDATA(7)\r\n   10 CONTINUE\r\nC\r\nC     GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR THIS STREAMLINE\r\nC\r\n      XBMXA = XYZB(2,NSTNS) - XYZB(2,1)\r\n      YBMYA = XYZB(3,NSTNS) - XYZB(3,1)\r\n      ZBMZA = XYZB(4,NSTNS) - XYZB(4,1)\r\n      RL1 = SQRT(XBMXA*XBMXA + YBMYA*YBMYA + ZBMZA*ZBMZA)\r\n      RL2 = SQRT(RL1*RL1 - ZBMZA*ZBMZA)\r\n      TBL(1) = -XSIGN*(YBMYA/RL2)\r\n      TBL(2) =  XSIGN*(XBMXA/RL2)\r\n      TBL(3) =  0.0\r\n      IF (DEBUG) CALL BUG1 ('MAT-TBL   ',15,TBL,3)\r\nC\r\nC     LOOP ON COMPUTING STATIONS\r\nC\r\n      DO 40  NCS = 1,NSTNS\r\nC\r\nC     LOCATE GLOBAL TO BASIC TRANSFORMATION MATRIX\r\nC\r\n      RDATA(1) = XYZB(1,NCS)\r\n      IF (LCSTM.EQ.0 .OR. IDATA(1).EQ.0) GO TO 20\r\n      CALL TRANSS (XYZB(1,NCS),TA)\r\n      CALL GMMATS (TBL,1,3,0, TA,3,3,0, TBLA)\r\n      GO TO 25\r\n   20 TBLA(1) = TBL(1)\r\n      TBLA(2) = TBL(2)\r\n      TBLA(3) = TBL(3)\r\n   25 CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('MAT-TBLA  ',25,TBLA,3)\r\nC\r\nC     COMPUTE LOCATION IN G-SET USING SIL\r\nC     KODE = 1 FOR GRID POINT\r\nC     KODE = 2 FOR SCALAR POINT (NOT ALLOWED, CHECK WAS MADE BY APDB)\r\nC\r\n      ISIL = ISILC(NCS)/10\r\n      CALL BLDPK (1,1,GTKG,0,0)\r\nC\r\nC     OUTPUT GKG(TRANSPOSE) = GTKG\r\nC     II IS ROW POSITION\r\nC\r\n      DO 30 ICOL = 1,3\r\n      II = ISIL\r\n      AP(1) = TBLA(ICOL)\r\n      IF (DEBUG) CALL BUG1 ('ISIL      ',28,ISIL,1)\r\n      IF (DEBUG) CALL BUG1 ('MAT-AP    ',29,AP,1)\r\n      CALL ZBLPKI\r\n      ISIL = ISIL + 1\r\n   30 CONTINUE\r\n      CALL BLDPKN (GTKG,0,TGKG)\r\n   40 CONTINUE\r\n   50 CONTINUE\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL CLOSE (GTKG,CLSREW)\r\n      CALL WRTTRL (TGKG)\r\nC\r\nC     CREATE GTKA MATRIX\r\nC\r\n      IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 60\r\n      GO TO 100\r\n   60 CONTINUE\r\n      LC  = KORSZ(CORE)\r\n      GKF = GKNB\r\n      GKS = GKM\r\n      GKO = GKS\r\n      USET1 = USET\r\nC\r\nC     REDUCE TO N-SET IF MULTI POINT CONSTRAINTS\r\nC\r\n      GKN = GTKG\r\n      IF (.NOT.MULTI) GO TO 70\r\n      IF (.NOT.SINGLE .AND. .NOT.OMIT) GKN = GTKA\r\n      CALL CALCV (SCR1,UG,UN,UM,CORE)\r\n      CALL SSG2A (GTKG,GKNB,GKM,SCR1)\r\n      CALL SSG2B (GM,GKM,GKNB,GKN,1,IPREC,1,SCR1)\r\nC\r\nC     PARTITION INTO F-SET IF SINGLE POINT CONSTRAINTS\r\nC\r\n   70 IF (.NOT.SINGLE) GO TO 80\r\n      IF (.NOT.OMIT  ) GKF = GTKA\r\n      CALL CALCV (SCR1,UN,UF,US,CORE)\r\n      CALL SSG2A (GKN,GKF,0,SCR1)\r\n      GO TO 90\r\nC\r\nC     REDUCE TO A-SET IF OMITS\r\nC\r\n   80 GKF = GKN\r\n   90 IF (.NOT.OMIT) GO TO 100\r\n      CALL CALCV (SCR1,UF,UA,UO,CORE)\r\n      CALL SSG2A (GKF,GKAB,GKO,SCR1)\r\n      CALL SSG2B (GO,GKO,GKAB,GTKA,1,IPREC,1,SCR1)\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apdb2.f",
    "content": "      SUBROUTINE APDB2 (IBUF1,IBUF2,NEXT,LEFT,NSTNS,NLINES,XSIGN,\r\n     1                  LCSTM,ACSTM,NODEX,NODEI,ISILC,XYZB)\r\nC\r\nC     GENERATE GTKA TRANSFORMATION MATRIX FOR SWEPT TURBOPROP\r\nC     BLADES (AERODYNAMIC THEORY NUMBER 7).\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         MULTI,OMIT,SINGLE,DEBUG\r\n      INTEGER         GM,GO,GTKA,SCR1,SCR2,CORE,IDATA(7),\r\n     1                UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,USET1,\r\n     2                GTKG,GKNB,GKM,GKAB,GKF,GKS,GKO,GKN,GSIZE,\r\n     3                ANDF,RD,RDREW,WRT,WRTREW,CLSREW,TGKG(7)\r\n      DIMENSION       ITRL(7),XYZB(4,NSTNS),IZ(1),Z(1),RDATA(7),\r\n     1                TA(3,3),TBL(3),TBLA(3),TBLT(3),TBLR(3),\r\n     2                ACSTM(1),NODEX(1),NODEI(1),ISILC(1)\r\n      COMMON /SYSTEM/ KSYSTM(54),IPREC\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /ZBLPKX/ AP(4),II\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /PATX  / LC,N,NO,NY,USET1,IBC(7)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW\r\n      COMMON /APDBUG/ DEBUG\r\n      EQUIVALENCE     (Z(1),CORE(1))\r\n      EQUIVALENCE     (Z(1),IZ(1)), (IDATA(1),RDATA(1))\r\n      DATA    SINGLE, MULTI,OMIT /.TRUE.,.TRUE.,.TRUE./\r\nC\r\n      USET = 102\r\n      GM   = 106\r\n      GO   = 107\r\n      GTKA = 204\r\n      SCR1 = 301\r\n      SCR2 = 302\r\n      GKNB = 303\r\n      GKM  = 304\r\n      GKAB = 305\r\n      ITRL(1) = USET\r\n      CALL RDTRL (ITRL)\r\n      GSIZE = ITRL(3)\r\n      IF (ANDF(ITRL(5),ITWO(UM)) .EQ. 0) MULTI = .FALSE.\r\n      IF (ANDF(ITRL(5),ITWO(US)) .EQ. 0) SINGLE= .FALSE.\r\n      IF (ANDF(ITRL(5),ITWO(UO)) .EQ. 0) OMIT  = .FALSE.\r\n      IF (.NOT.(MULTI .OR. SINGLE .OR. OMIT)) SCR2 = GTKA\r\n      GTKG = SCR2\r\nC\r\nC     OPEN SCR1 TO READ BLADE NODE DATA\r\nC\r\nC                         T\r\nC     OPEN SCR2 TO WRITE G   MATRIX OF ORDER (GSIZE X KSIZE)\r\nC                         KG\r\nC\r\n      CALL GOPEN (SCR1,Z(IBUF1),RDREW)\r\n      CALL GOPEN (GTKG,Z(IBUF2),WRTREW)\r\n      TGKG(1) = GTKG\r\n      TGKG(2) = 0\r\n      TGKG(3) = GSIZE\r\n      TGKG(4) = 2\r\n      TGKG(5) = 1\r\n      TGKG(6) = 0\r\n      TGKG(7) = 0\r\nC\r\nC     SET-UP CALL TO TRANSS VIA PRETRS\r\nC\r\n      IF (LCSTM .GT. 0) CALL PRETRS (ACSTM,LCSTM)\r\nC\r\nC     LOOP ON STREAMLINES\r\nC\r\n      DO 50 NLINE = 1,NLINES\r\nC\r\nC     READ STREAMLINE NODE DATA FROM SCR1\r\nC\r\n      DO 10 NST = 1,NSTNS\r\n      CALL FREAD (SCR1,IDATA,7,0)\r\n      IF (DEBUG) CALL BUG1 ('SCR1 IDATA',10,IDATA,7)\r\n      NODEX(NST) = IDATA(1)\r\n      NODEI(NST) = IDATA(2)\r\n      ISILC(NST) = IDATA(3)\r\n      XYZB(1,NST)= RDATA(4)\r\n      XYZB(2,NST)= RDATA(5)\r\n      XYZB(3,NST)= RDATA(6)\r\n      XYZB(4,NST)= RDATA(7)\r\n   10 CONTINUE\r\nC\r\nC     GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR THIS STREAMLINE\r\nC\r\n      CALL APDB2A (NLINES,NLINE,SCR1,NSTNS,XSIGN,XYZB(2,1),\r\n     1             XYZB(2,NSTNS),TBLT,TBLR)\r\nC\r\nC     SET TRANSFORMATION TO TRANSLATION FIRST\r\nC\r\n      DO 15 NN = 1,3\r\n  15  TBL(NN) = TBLT(NN)\r\nC\r\nC     LOOP FOR TRANSLATION THEN ROTATION\r\nC\r\n      NDEG = 0\r\n      DO 45 NLOOP = 1,2\r\n      IF (DEBUG) CALL BUG1 ('MAT-TBL   ' ,18,TBL,3)\r\nC\r\nC     LOOP ON COMPUTING STATIONS\r\nC\r\n      DO 40 NCS = 1,NSTNS\r\nC\r\nC     LOCATE GLOBAL TO BASIC TRANSFORMATION MATRIX\r\nC\r\n      RDATA(1) = XYZB(1,NCS)\r\n      IF (LCSTM.EQ.0 .OR. IDATA(1).EQ.0) GO TO 20\r\n      CALL TRANSS (XYZB(1,NCS),TA)\r\n      CALL GMMATS (TBL,1,3,0,TA,3,3,0,TBLA)\r\n      GO TO 25\r\n   20 TBLA(1) = TBL(1)\r\n      TBLA(2) = TBL(2)\r\n      TBLA(3) = TBL(3)\r\n   25 CONTINUE\r\n      IF (DEBUG) CALL BUG1 ('MAT-TBLA  ',25,TBLA,3)\r\nC\r\nC     COMPUTE LOCATION IN G-SET USING SIL\r\nC     KODE = 1 FOR GRID POINT\r\nC     KODE = 2 FOR SCALAR POINT (NOT ALLOWED, CHECK WAS MADE BY APDB)\r\nC\r\n      ISIL = ISILC(NCS)/10\r\n      CALL BLDPK (1,1,GTKG,0,0)\r\nC\r\nC     OUTPUT GKG(TRANSPOSE) = GTKG\r\nC     II IS ROW POSITION\r\nC\r\n      DO 30 ICOL = 1,3\r\n      II = ISIL + NDEG\r\n      AP(1) = TBLA(ICOL)\r\n      IF (DEBUG) CALL BUG1 ('ISIL      ',28,ISIL,1)\r\n      IF (DEBUG) CALL BUG1 ('MAT-AP    ',29,AP,1)\r\n      CALL ZBLPKI\r\n      ISIL = ISIL + 1\r\n   30 CONTINUE\r\n      CALL BLDPKN (GTKG,0,TGKG)\r\n   40 CONTINUE\r\nC\r\nC     CHANGE BASIC TO LOCAL TRANSFORMATION TO ROTATION\r\nC\r\n      DO 43 NN = 1,3\r\n   43 TBL(NN) = TBLR(NN)\r\n      NDEG = 3\r\n   45 CONTINUE\r\n   50 CONTINUE\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL CLOSE (GTKG,CLSREW)\r\n      CALL WRTTRL (TGKG)\r\nC\r\nC     CREATE GTKA MATRIX\r\nC\r\n      IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 60\r\n      GO TO 100\r\n   60 CONTINUE\r\n      LC  = KORSZ(CORE)\r\n      GKF = GKNB\r\n      GKS = GKM\r\n      GKO = GKS\r\n      USET1 = USET\r\nC\r\nC     REDUCE TO N-SET IF MULTI POINT CONSTRAINTS\r\nC\r\n      GKN = GTKG\r\n      IF (.NOT.MULTI) GO TO 70\r\n      IF (.NOT.SINGLE .AND. .NOT.OMIT) GKN = GTKA\r\n      CALL CALCV (SCR1,UG,UN,UM,CORE)\r\n      CALL SSG2A (GTKG,GKNB,GKM,SCR1)\r\n      CALL SSG2B (GM,GKM,GKNB,GKN,1,IPREC,1,SCR1)\r\nC\r\nC     PARTITION INTO F-SET IF SINGLE POINT CONSTRAINTS\r\nC\r\n   70 IF (.NOT.SINGLE) GO TO 80\r\n      IF (.NOT.OMIT  ) GKF = GTKA\r\n      CALL CALCV (SCR1,UN,UF,US,CORE)\r\n      CALL SSG2A (GKN,GKF,0,SCR1)\r\n      GO TO 90\r\nC\r\nC     REDUCE TO A-SET IF OMITS\r\nC\r\n   80 GKF = GKN\r\n   90 IF (.NOT.OMIT) GO TO 100\r\n      CALL CALCV (SCR1,UF,UA,UO,CORE)\r\n      CALL SSG2A (GKF,GKAB,GKO,SCR1)\r\n      CALL SSG2B (GO,GKO,GKAB,GTKA,1,IPREC,1,SCR1)\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apdb2a.f",
    "content": "      SUBROUTINE APDB2A (NLINE,NL,SCR1,NSTNS,M1,S1,SN,TBLT,TBLR)\r\nC\r\nC     GENERATE BASIC TO LOCAL TRANSFORMATION MATRIX FOR\r\nC     STREAMLINE NL OF SWEPT TURBOPROP BLADE.\r\nC\r\n      REAL L1,L2,L3,M1\r\nC\r\n      INTEGER SCR1,FILE,NAME(2)\r\nC\r\n      DIMENSION PN(3),P1(3),FN(3),F1(3),S1(3),SN(3),TBLT(3),TBLR(3)\r\n      DIMENSION DATA(7)\r\nC\r\n      DATA FILE/301/,NAME  /4HAPDB,4H2A  /\r\nC\r\nC---------------------------------------------------------------------\r\nC     INPUT VARIABLES--\r\nC     NLINE      TOTAL NO. OF STREAMLINES\r\nC     NL         PRESENT STEAMLINE\r\nC     SCR1       SCRATCH UNIT WITH BASIC COORDINATES OF NODES\r\nC     NSTNS      TOTAL NO. OF STATIONS\r\nC     M1         SIGN BASED ON ROTATION OF BLADE\r\nC     S1         COORDINATES OF LEADING EDGE OF CURRENT STREAMLINE\r\nC     SN         COORDINATES OF TRAILING EDGE OF CURRENT STREAMLINE\r\nC\r\nC     OUTPUT VARIABLES--\r\nC     TBLT      BASIC TO LOCAL TRANSFORMATION FOR TRANSLATION\r\nC     TBLR      BASIC TO LOCAL TRANSFORMATION FOR ROTATION\r\nC\r\nC     LOCAL VARIABLES--\r\nC     PN        COORDINATES TRAILING EDGE PREVIOUS STREAMLINE\r\nC     P1        COORDINATES LEADING EDGE PREVIOUS STREAMLINE\r\nC     FN        COORDINATES TRAILING EDGE NEXT STREAMLINE\r\nC     F1        COORDINATES LEADING EDGE NEXT STREAMLINE\r\nC---------------------------------------------------------------------\r\nC     EXTRACT COORDINATES FOR PREVIOUS--P-FOR FIRST STREAMLINE\r\nC---------------------------------------------------------------------\r\n      IF(NL.NE.1)GO TO 10\r\n      DO 5 I=1,3\r\n      PN(I)=SN(I)\r\n  5   P1(I)=S1(I)\r\nC----------------------------------------------------------------------\r\nC     NOW COORDINATES FOR NEXT--F-FOR LAST STREAMLINE\r\nC----------------------------------------------------------------------\r\n 10   IF(NL.NE.NLINE)GO TO 15\r\n      DO 12 I=1,3\r\n      FN(I)=SN(I)\r\n 12   F1(I)=S1(I)\r\n      GO TO 50\r\nC----------------------------------------------------------------------\r\nC     NOW COORDINATES FOR NEXT--F-FOR ALL OTHER STREAMLINES\r\nC---------------------------------------------------------------------\r\n 15   CALL FREAD(SCR1,DATA,7,0)\r\n      F1(1)=DATA(5)\r\n      F1(2)=DATA(6)\r\n      F1(3)=DATA(7)\r\nC----------------------------------------------------------------------\r\nC    COMPUTE SKIP TO TRAILING EDGE COORDINATES\r\nC-----------------------------------------------------------------------\r\n      NSKIP=(2-NSTNS)*7\r\n      CALL READ(*905,*900,SCR1,DATA,NSKIP,0,MM)\r\n      CALL FREAD(SCR1,DATA,7,0)\r\n      FN(1)=DATA(5)\r\n      FN(2)=DATA(6)\r\n      FN(3)=DATA(7)\r\nC----------------------------------------------------------------------\r\nC     RETURN TO START OF RECORD\r\nC----------------------------------------------------------------------\r\n      CALL BCKREC(SCR1)\r\nC---------------------------------------------------------------------\r\nC     COMPUTE SKIP TO ORIGINAL LOCATION AT ENTRY TO THIS ROUTINE\r\nC---------------------------------------------------------------------\r\n      NSKIP=-NSTNS*NL*7\r\n      CALL READ(*905,*900,SCR1,DATA,NSKIP,0,MM)\r\n 50   A1=SN(1)-S1(1)\r\n      B1=SN(2)-S1(2)\r\n      C1=SN(3)-S1(3)\r\nC\r\n      A2=FN(1)-P1(1)\r\n      B2=FN(2)-P1(2)\r\n      C2=FN(3)-P1(3)\r\nC\r\n      A3=PN(1)-F1(1)\r\n      B3=PN(2)-F1(2)\r\n      C3=PN(3)-F1(3)\r\nC\r\n      A4=B2*C1-B1*C2\r\n      B4=C2*A1-C1*A2\r\n      C4=A2*B1-A1*B2\r\nC\r\n      A5=B1*C3-B3*C1\r\n      B5=C1*A3-C3*A1\r\n      C5=A1*B3-A3*B1\r\nC\r\n      L1=SQRT(A1**2+B1**2+C1**2)\r\n      L2=SQRT(A4**2+B4**2+C4**2)\r\n      L3=SQRT(A5**2+B5**2+C5**2)\r\nC\r\n      A6=0.5 *(A4/L2  +  A5/L3)\r\n      B6=0.5 *(B4/L2  +  B5/L3)\r\n      C6=0.5 *(C4/L2  +  C5/L3)\r\nC---------------------------------------------------------------------\r\nC     BASIC TO LOCAL TRANSFORMATION FOR TRANSLATION\r\nC---------------------------------------------------------------------\r\n      TBLT(1)= A6*M1\r\n      TBLT(2)= B6*M1\r\n      TBLT(3)= C6*M1\r\nC----------------------------------------------------------------------\r\nC     BASIC TO LOCAL TRANSFORMATION FOR ROTATION\r\nC---------------------------------------------------------------------\r\n      TBLR(1)= -M1*A1/L1\r\n      TBLR(2)= -M1*B1/L1\r\n      TBLR(3)= -M1*C1/L1\r\n      IF(NL.EQ.NLINE)RETURN\r\nC---------------------------------------------------------------------\r\nC     SET PREVIOUS COORDINATES--P- TO PRESENT STREAMLINE\r\nC---------------------------------------------------------------------\r\n      DO 800 I=1,3\r\n      PN(I)=SN(I)\r\n 800  P1(I)=S1(I)\r\n      RETURN\r\nC     E-O-R    ENCOUNTERED\r\n 900  IP1 = -3\r\n      GO TO 999\r\nC     E-O-F    ENCOUNTERED\r\n 905  IP1 = -2\r\n 999  CALL MESAGE(IP1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apdcs.f",
    "content": "      SUBROUTINE APDCS\r\n      INTEGER CP,ACSID,CSTMA,IZ(1)\r\n      REAL           RCP1(3),RCP4(3),RB1(3),RB4(3),RX1(3),RX4(3)\r\n     1,              RA2(3),RA3(3),RA4(3),RB2(3),RB3(3),VX1(3),VX2(3)\r\n     2,   VX3(3),ACPL(3,3),V1(3),V2(3)\r\n      COMMON /APD1C/ EID,PID,CP,NSPAN,NCHORD,LSPAN,LCHORD,IGID\r\n     1,              X1,Y1,Z1,X12,X4,Y4,Z4,X43,XOP,X1P,ALZO,MCSTM\r\n     2,              NCST1,NCST2,CIDBX,ACSID,IACS,SILB,NCRD\r\n     3,              SCR1,SCR2,SCR3,SCR4,SCR5,ECTA,BGPA,GPLA,USETA,SILA\r\n     4,              CSTMA,ACPT,BUF10,BUF11,BUF12,NEXT,LEFT,ISILN\r\n      COMMON /APD1D/ ICPL(14),YP4,SG,CG,XP2,XP3,XP4,RA1(3)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      EQUIVALENCE (ICPL(3),RB1(1)),(ICPL(6),ACPL(1,1))\r\n     1, (V1(1),RCP1(1)),(V2(1),RCP4(1))\r\n      DATA DEGR/.017453293/\r\n      ICPL(2) = 1\r\nC CREATE PANEL COORDINATE SYSTEM\r\nC FIND CP TRANSFORMATION AND CONVERT POINT 1 AND 4 TO BASIC\r\n      IF(CP.EQ.0) GO TO 120\r\n      IF(NCST1.EQ.0) GO TO 470\r\n      DO 40 ICP=NCST1,NCST2,14\r\n      IF(IZ(ICP).EQ.CP) GO TO 50\r\n   40 CONTINUE\r\n      GO TO 470\r\n   50 IF(IZ(ICP+1)-2) 60,70,80\r\nC CP RECTANGULAR\r\n   60 RCP1(1)=X1\r\n      RCP1(2)=Y1\r\n      RCP1(3)=Z1\r\n      RCP4(1)=X4\r\n      RCP4(2)=Y4\r\n      RCP4(3)=Z4\r\n      GO TO 90\r\nC CP CYLINDRICAL\r\n   70 RCP1(1)=X1*COS(Y1*DEGR)\r\n      RCP1(2)=X1*SIN(Y1*DEGR)\r\n      RCP1(3)=Z1\r\n      RCP4(1)=X4*COS(Y4*DEGR)\r\n      RCP4(2) = X4*SIN(Y4*DEGR)\r\n      RCP4(3)=Z4\r\n      GO TO 90\r\nC CP SPHERICAL\r\n   80 RCP1(1)=X1*SIN(Y1*DEGR)*COS(Z1*DEGR)\r\n      RCP1(2)=X1*SIN(Y1*DEGR)*SIN(Z1*DEGR)\r\n      RCP1(3)=X1*COS(Y1*DEGR)\r\n      RCP4(1)=X4*SIN(Y4*DEGR)*COS(Z4*DEGR)\r\n      RCP4(2)=X4*SIN(Y4*DEGR)*SIN(Z4*DEGR)\r\n      RCP4(3)=X4*COS(Y4*DEGR)\r\nC CONVERT TO BASIC\r\n   90 CALL GMMATS(Z(ICP+5),3,3,0,RCP1,3,1,0,RB1)\r\n      CALL GMMATS(Z(ICP+5),3,3,0,RCP4,3,1,0,RB4)\r\n      J=ICP+1\r\n      DO 100 I=1,3\r\n      K=J+I\r\n  100 RB1(I)=RB1(I)+Z(K)\r\n      DO 110 I=1,3\r\n      K=J+I\r\n  110 RB4(I)=RB4(I)+Z(K)\r\n      GO TO 130\r\nC COORDS ARE IN BASIC\r\n  120 RB1(1)=X1\r\n      RB1(2)=Y1\r\n      RB1(3)=Z1\r\n      RB4(1)=X4\r\n      RB4(2)=Y4\r\n      RB4(3)=Z4\r\nC FIND R1 THRU IN R4 AERO CS\r\n  130 IF(ACSID.EQ.0) GO TO 150\r\n      J=IACS+1\r\n      DO 140 I=1,3\r\n      K=J+I\r\n      RX1(I)=RB1(I)-Z(K)\r\n  140 RX4(I)=RB4(I)-Z(K)\r\n      CALL GMMATS(Z(IACS+5),3,3,1,RX1,3,1,0,RA1)\r\n      CALL GMMATS (Z(IACS+5),3,3,1,RX4,3,1,0,RA4)\r\n      GO TO 170\r\n  150 DO 160 I=1,3\r\n      RA1(I)=RB1(I)\r\n  160 RA4(I)=RB4(I)\r\nC\r\nC     STOP IF BODY\r\nC\r\n      IF(IGID.LT.0) GO TO 1000\r\nC CALCULATE R2 AND R3 IN AC CS\r\n  170 DO 180 I=2,3\r\n      RA2(I)=RA1(I)\r\n  180 RA3(I)=RA4(I)\r\n      RA2(1)=RA1(1)+X12\r\n      RA3(1)=RA4(1)+X43\r\n      EE=SQRT((RA4(3)-RA1(3))**2 + (RA4(2)-RA1(2))**2)\r\n      SG=(RA4(3)-RA1(3))/EE\r\n      CG=(RA4(2)-RA1(2))/EE\r\nC LOCATE POINTS 2,3,4 IN PANEL CORDINATE SYSTEM\r\n      XP2=X12\r\n      XP4=RA4(1)-RA1(1)\r\n      XP3=RA3(1)-RA1(1)\r\n      YP4=EE\r\nC TRANSFORM R2 AND R3 INTO BASIC\r\n      IF(ACSID.EQ.0) GO TO 200\r\n      CALL GMMATS(Z(IACS+5),3,3,0,RA2,3,1,0,RB2)\r\n      CALL GMMATS(Z(IACS+5),3,3,0,RA3,3,1,0,RB3)\r\n      J=IACS+1\r\n      DO 190 I=1,3\r\n      K=J+I\r\n      RB2(I) = RB2(I) + Z(K)\r\n  190 RB3(I) = RB3(I) + Z(K)\r\n      GO TO 220\r\n  200 DO 210 I=1,3\r\n      RB2(I)=RA2(I)\r\n  210 RB3(I)=RA3(I)\r\nC FIND PANEL COORDINATE SYSTEM\r\n  220 DO 230 I=1,3\r\n      VX1(I)=RB2(I)-RB1(I)\r\n      VX2(I)=RB4(I)-RB1(I)\r\n      VX3(I) = RB3(I) - RB1(I)\r\n  230 IF ( X12. EQ. 0.0 ) VX1(I) = VX3(I)\r\n      CALL SAXB(VX1,VX2,V1)\r\n      SX1=SADOTB(V1,V1)\r\n      CALL SAXB(VX1,VX3,V2)\r\n      SX2=SADOTB(V2,V2)\r\n      IF(SX1.LT.SX2) GO TO 250\r\n      SX1=1.0/SQRT(SX1)\r\n      DO 240 I=1,3\r\n  240 VX3(I)=V1(I)*SX1\r\n      GO TO 270\r\n  250 SX2=1.0/SQRT(SX2)\r\n      DO 260 I=1,3\r\n  260 VX3(I)=V2(I)*SX2\r\n  270 IF(ACSID .NE. 0) GO TO 275\r\n      VX1(1) = 1.0\r\n      VX1(2) = 0.0\r\n      VX1(3) = 0.0\r\n      GO TO 285\r\n  275 J=IACS+5\r\n      DO 280 I=1,3\r\n      K=J+3*(I-1)\r\n  280 VX1(I)=Z(K)\r\n  285 CONTINUE\r\n      CALL SAXB(VX3,VX1,VX2)\r\n      DO 290 I=1,3\r\n      ACPL(1,I)=VX1(I)\r\n      ACPL(2,I)=VX2(I)\r\n  290 ACPL(3,I)=VX3(I)\r\nC WRITE TRANSFORMATION ON CSTMA\r\n      ICPL(1)=MCSTM\r\n      CALL WRITE(CSTMA,ICPL(1),14,0)\r\n 1000 RETURN\r\n  470 CALL MESAGE(-30,25,CP)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/apdf.f",
    "content": "      FUNCTION APDF (F,IN,NS)\r\nC\r\n      REAL F(1)\r\nC\r\nC     IF (NS .EQ. 0) GO TO 10\r\nC     APDF = FLOAT(IN-1)/FLOAT(NS)\r\nC     RETURN\r\nC  10 APDF = F(IN)\r\nC     RETURN\r\nC\r\n      APDF = F(IN)\r\n      IF (NS .NE. 0) APDF = FLOAT(IN-1)/FLOAT(NS)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apdoe.f",
    "content": "      SUBROUTINE APDOE(ID,Z,START,END,FOUND,COUNT)\r\nC\r\nC     APDOE FINDS AND OPEN ENDED CARD FOR ID\r\nC     GIVEN A LIST Z(START ) TO Z(END)\r\nC     FOUND = 0 IF NOT FOUND\r\nC     FOUND = POINTER TO START OF CARD Z(FOUND)\r\nC     COUNT = NUMBER OF DATA ITEMS NOT COUNTING THE ID\r\nC\r\n      INTEGER START,END,FOUND,COUNT,Z(1)\r\n      LOGICAL LOOK\r\n      FOUND = 0\r\n      LOOK = .TRUE.\r\n      COUNT = 0\r\n      IF(START.EQ.0) GO TO 50\r\n      DO 10 I = START,END\r\n      IF(LOOK) GO TO 20\r\n      IF(Z(I).EQ.-1) LOOK = .TRUE.\r\n      GO TO 10\r\n   20 IF(Z(I).EQ.ID) GO TO 30\r\n      LOOK = .FALSE.\r\n   10 CONTINUE\r\n      GO TO 50\r\n   30 FOUND = I\r\n      J = I + 2\r\n      COUNT = COUNT + 1\r\nC\r\nC     START COUNT AT + 2 BECAUSE PAERO4 CARD CAN HAVE -1 IN FIELD 2\r\nC\r\n      DO 40 I=J,END\r\n      IF(Z(I).EQ.-1) GO TO 50\r\n      COUNT = COUNT + 1\r\n   40 CONTINUE\r\n   50 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/apdr.f",
    "content": "      SUBROUTINE APDR (FILE,Z,CORE,IN,OUT,WR,BUF,TYPE)\r\nC\r\n      INTEGER FILE,OUT,CORE,WR,BUF,FLAG,Z(1),TYPE(3),NAME(2)\r\n      DATA    NAME /4HAPD ,4HR   /\r\nC\r\n      WR = 0\r\n      IN = 0\r\n      CALL LOCATE (*20,Z(BUF),TYPE,FLAG)\r\n      IN = OUT + 1\r\n      CALL READ (*90,*10,FILE,Z(IN),CORE,0,WR)\r\n      GO TO 80\r\n   10 OUT  = IN + WR - 1\r\n   20 CORE = CORE - WR\r\n      RETURN\r\nC\r\n   80 CALL MESAGE (-3,FILE,NAME)\r\n   90 CALL MESAGE (-2,FILE,NAME)\r\n      GO TO 20\r\n      END\r\n"
  },
  {
    "path": "mis/area.f",
    "content": "      FUNCTION AREA (G,I,J,K)\r\nC\r\nC     THIS ROUTINE IS CALLED BY SFAREA WHICH IS CALLED BY EMGFIN TO\r\nC     COMPUTE THE SURFACE AREAS OF THE SOLID ELEMENTS\r\nC\r\n      DIMENSION  G(1)\r\n      AREA = 0.5*SQRT(\r\n     1 ((G(J+2)-G(I+2))*(G(K+3)-G(I+3))-(G(J+3)-G(I+3))*(G(K+2)-G(I+2)))\r\n     2 **2\r\n     3+((G(J+3)-G(I+3))*(G(K+1)-G(I+1))-(G(J+1)-G(I+1))*(G(K+3)-G(I+3)))\r\n     4 **2\r\n     5+((G(J+1)-G(I+1))*(G(K+2)-G(I+2))-(G(J+2)-G(I+2))*(G(K+1)-G(I+1)))\r\n     6 **2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/arrm.f",
    "content": "      SUBROUTINE ARRM(P,D,ND)\r\nC\r\nC     SCALED ARITHMETIC ROUTINES--ARRANGING ROUTINE\r\nC\r\n      DOUBLE PRECISION DX,D,P,PX\r\n      DIMENSION P(3),D(3),ND(3)\r\n      DO 30 I=1,3\r\n      IF(D(I) .EQ. 0.0D0) GO TO 30\r\n   10 IF(DABS(D(I)) .GE. 1.0) GO TO 20\r\n      D(I) = D(I)*10.0\r\n      ND(I) = ND(I)-1\r\n      GO TO 10\r\n   20 IF(DABS(D(I)) .LT. 10.0) GO TO 30\r\n      D(I) = D(I)*0.1\r\n      ND(I) = ND(I)+1\r\n      GO TO 20\r\n   30 CONTINUE\r\n      IF(ND(1) .GT. ND(2) .AND. ND(2) .GT. ND(3)) RETURN\r\n      IF(ND(1) .GT. ND(2) .AND. ND(1) .GT. ND(3)) GO TO 110\r\n      IF(ND(2) - ND(3)) 50,40,80\r\n   40 IF(DABS(D(2)) .GE. DABS(D(3))) GO TO 80\r\n   50 IF(ND(1) - ND(3)) 70,60,110\r\n   60 IF(DABS(D(1)) .GE. DABS(D(3))) GO TO 110\r\n   70 NX=ND(1)\r\n      DX=D(1)\r\n      PX=P(1)\r\n      ND(1)=ND(3)\r\n      D(1)=D(3)\r\n      P(1)=P(3)\r\n      ND(3)=NX\r\n      D(3)=DX\r\n      P(3)=PX\r\n      GO TO 110\r\n   80 IF(ND(1) - ND(2)) 100,90,110\r\n   90 IF(DABS(D(1)) .GE. DABS(D(2))) GO TO 110\r\n  100 NX=ND(1)\r\n      DX=D(1)\r\n      PX=P(1)\r\n      ND(1)=ND(2)\r\n      D(1)=D(2)\r\n      P(1)=P(2)\r\n      ND(2)=NX\r\n      D(2)=DX\r\n      P(2)=PX\r\n  110 IF(ND(2) - ND(3)) 130,120,140\r\n  120 IF(DABS(D(2)) .GE. DABS(D(3))) RETURN\r\n  130 NX=ND(2)\r\n      DX=D(2)\r\n      PX=P(2)\r\n      ND(2)=ND(3)\r\n      D(2)=D(3)\r\n      P(2)=P(3)\r\n      ND(3)=NX\r\n      D(3)=DX\r\n      P(3)=PX\r\n  140 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ascm01.f",
    "content": "      SUBROUTINE ASCM01 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     SUBSTRUCTURE COMMAND DMAP DATA\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   8/1991\r\nC     IN SOME UNIX MACHINES, SUCH AS SiliconGraphics, THE FORTRAN\r\nC     COMPILER IS A SUBSET OF THE C COMPILER. THE SYMBOL /* IS A COMMENT\r\nC     MARKER FOR C, AND ANYTHING AFTER /* IS NOT PASS OVER TO THE\r\nC     FORTRAN COMPILER. THEREFORE, ALL /* SYMBOLS IN RDMAP ARRAY ARE\r\nC     REPLACED BY\r\nC     THE ! WILL BE CHANGED BACK TO / IN THE EXECUTABLE CODE.\r\nC\r\n      INTEGER         COMND(6,3),XTRA(3),SUBNAM(2),ISAVE(21),\r\n     1                RDMAP(18,29),RDMAP1(18,9),RDMAP2(18,9),\r\n     2                RDMAP3(18,9),RDMAP4(18,2),OCT(3,13),OCT1(3,13),\r\n     3                PTBS(7,16),PTBS1(7,16)\r\n      COMMON /PHAS11/ IPAS11(8)\r\n      COMMON /PHAS31/ IPAS31(2)\r\n      COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1                IPH,NPH,IDAT(684)\r\n      EQUIVALENCE     (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)),\r\n     1                (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)),\r\n     2                (RDMAP3(1,1),RDMAP(1,19)),\r\n     3                (RDMAP4(1,1),RDMAP(1,28))\r\n      DATA COMND    /\r\n     1                4HSUBS    , 29    ,  3    , 13    , 16    ,  8  ,\r\n     2                4HSUBS    ,  8    ,  1    ,  0    ,  3    ,  0  ,\r\n     3                4HSUBS    ,  8    ,  1    ,  0    ,  3    ,  2  /\r\n      DATA SLASH    / 1H/       /\r\n      DATA ISAVE    /\r\n     1     3,13,1, 19,8,2, 26,13,3, 26,15,2, 26,17,1, 27,5,1, 28,4,3  /\r\n      DATA RDMAP 1  /\r\n     1 4HALTE,4HR   ,4H  (B,4HEGIN,4H) $ ,13*4H    ,\r\n     2 4HPARA,4HM   ,4H  //,4H*NOP,4H*/AL,4HLWAY,4HS=-1,4H $  ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HSGEN,4H    ,4H  CA,4HSECC,4H,,,/,4HCASE,4HSS,C,4HASEI,4H,,,,,\r\n     * 4H,,,,,4H/S,N,4H,DRY,4H!*XX,4HXXXX,4HXX*/,4HS,N,,4HLUSE,4HT/  ,\r\n     4 4H    ,4H    ,4H  S,,4HN,NO,4HGPDT,4H $  ,12*4H    ,\r\n     5 4HEQUI,4HV   ,4H  CA,4HSEI,,4HCASE,4HCC/A,4HLLWA,4HYS $,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     6 4HALTE,4HR   ,4H  (A,4HFTGP,4H4) $,13*4H    ,\r\n     7 4HPARA,4HM   ,4H  //,4H*ADD,4H*/DR,4HY/-1,4H /0 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     8 4HLABE,4HL   ,4H  LB,4HSBEG,4H $  ,13*4H    ,\r\n     9 4HCOND,4H    ,4H  LB,4HLIS,,4HDRY ,4H$   ,12*4H    /\r\n      DATA RDMAP 2  /\r\n     O 4HSSG1,4H    ,4H  SL,4HT,BG,4HPDT,,4HCSTM,4H,SIL,4H,EST,4H,MPT,\r\n     * 4H,GPT,4HT,ED,4HT,MG,4HG,CA,4HSECC,4H,DIT,4H,/PG,4H,,,,,4H/   ,\r\n     1 4H    ,4H    ,4H  LU,4HSET/,4HNSKI,4HP $ ,12*4H    ,\r\n     2 4HCHKP,4HNT  ,4H  PG,4H $  ,14*4H    ,\r\n     3 4HALTE,4HR   ,4H  (S,4HOLVE,4H) $ ,13*4H    ,\r\n     4 4HSSG2,4H    ,4H  US,4HET,G,4HM,,K,4HFS,G,4HO,,P,4HG/QR,4H,PO,,\r\n     * 4HPS,P,4HL $ ,7*4H    ,\r\n     5 4HCHKP,4HNT  ,4H  PO,4H,PS,,4HPL $,13*4H    ,\r\n     6 4HLABE,4HL   ,4H  LB,4HLIS ,4H$   ,13*4H    ,\r\n     7 4HALTE,4HR   ,4H  (S,4HDR) ,4H$   ,13*4H    ,\r\n     8 4HSUBP,4HH1  ,4H  CA,4HSECC,4H,EQE,4HXIN,,4HUSET,4H,BGP,4HDT,C,\r\n     * 4HSTM,,4HGPSE,4HTS,E,4HLSET,4HS//S,4H,N,D,4HRY/ ,4H    ,4H    /\r\n      DATA RDMAP 3  /\r\n     9 4H    ,4H    ,4H  *N,4HAME ,4H   *,4H/XPL,4HOTID,4H !*P,4HVEC*,\r\n     * 4H $  ,8*4H    ,\r\n     O 4HCOND,4H    ,4H  LB,4HSEND,4H,DRY,4H $  ,12*4H    ,\r\n     1 4HEQUI,4HV   ,4H  PG,4H,PL/,4HNOSE,4HT $ ,12*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HL10,,4HNOSE,4HT $ ,12*4H    ,\r\n     3 4HSSG2,4H    ,4H  US,4HET,G,4HM,YS,4H,KFS,4H,GO,,4H,PG/,4HQR,P,\r\n     * 4HO,PS,4H,PL ,4H$   ,6*4H    ,\r\n     4 4HCHKP,4HNT  ,4H  PO,4H,PS,,4HPL $,13*4H    ,\r\n     5 4HLABE,4HL   ,4H  LB,4HL10 ,4H$   ,13*4H    ,\r\n     6 4HSOFO,4H    ,4H  ,K,4HAA,M,4HAA,P,4HL,BA,4HA,K4,4HAA//,4HS,N,,\r\n     * 4HDRY/,4H*XXX,4HXXXX,4HX*!*,4HKMTX,4H*!*M,4HMTX*,4H!*PV,4HEC*/,\r\n     7 4H    ,4H    ,4H  *B,4HMTX*,4H!*K4,4HMX* ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    /\r\n      DATA RDMAP 4  /\r\n     8 4HLODA,4HPP  ,4H  PL,4H,/!*,4HNAME,4H    ,4H*/S,,4HN,DR,4HY $ ,\r\n     * 4H    ,8*4H    ,\r\n     9 4HEQUI,4HV   ,4H  CA,4HSESS,4H,CAS,4HECC/,4HALWA,4HYS $,4H    ,\r\n     * 4H    ,8*4H    /\r\n      DATA XTRA     /\r\n     1 4HSAVE,4HNAME,4HRUN      /\r\n      DATA OCT 1    /\r\n     1                     9    ,    524288    ,         0     ,\r\n     2                    10    ,    983040    ,        12     ,\r\n     3                    11    ,    983040    ,        12     ,\r\n     4                    12    ,    983040    ,        12     ,\r\n     5                    14    ,    983040    ,        12     ,\r\n     6                    15    ,    983040    ,        12     ,\r\n     7                    16    ,    524288    ,         0     ,\r\n     8                    21    ,   1572864    ,        12     ,\r\n     9                    22    ,   1572864    ,        12     ,\r\n     O                    23    ,   1572864    ,        12     ,\r\n     1                    24    ,   1572864    ,        12     ,\r\n     2                    25    ,   1572864    ,        12     ,\r\n     3                    28    ,    524288    ,         8     /\r\n      DATA PTBS 1   /\r\n     1           1  , 11  , 11  ,  7  ,     4  ,         0  ,  0  ,\r\n     2           6  , 11  , 11  ,  8  ,     1  ,         0  ,  0  ,\r\n     3           7  , 22  , 23  ,  3  ,4HRUN   ,         0  ,  0  ,\r\n     4          13  , 11  , 11  ,  7  ,     2  ,         0  ,  0  ,\r\n     5          17  , 11  , 11  ,  5  ,     3  ,         0  ,  0  ,\r\n     6          19  , 11  , 12  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     7          19  , 21  , 22  ,  8  ,4HSAVE  ,         0  ,  0  ,\r\n     8          19  , 30  , 32  ,  4  ,4HPITM  ,    524300  ,  0  ,\r\n     9          26  , 12  , 15  ,  0  ,4HNAME  ,         1  ,  0  ,\r\n     O          26  , 16  , 19  ,  0  ,4HNAME  ,         2  ,  0  ,\r\n     1          26  , 20  , 22  ,  0  ,4HNAME  ,        12  ,  0  ,\r\n     2          26  , 23  , 26  ,  0  ,4HNAME  ,        16  ,  0  ,\r\n     3          26  , 27  , 31  ,  0  ,4HNAME  ,        32  ,  0  ,\r\n     4          26  , 40  , 42  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     5          26  , 65  , 67  ,  4  ,4HPITM  ,    524288  ,  0  ,\r\n     6          28  , 15  , 17  ,  8  ,4HNAME  ,         0  ,  0  /\r\n      DATA SUBNAM   / 4HASCM,2H01  /\r\nC\r\nC     RESTORE ORIGINAL DATA BY REPLACING ! BY / IN RDMAP\r\nC\r\n      DO 20 L = 1,21,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,IPHASE)) GO TO 1000\r\n      ICOMND = IPHASE\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC      MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\nC     MOVE PHASE 1 DATA\r\nC\r\n      IF (IPHASE.NE.1 .OR. NPH.EQ.0) GO TO 80\r\n      DO 70 I = 3,8\r\n      K = K + 1\r\n   70 IDAT(K) = IPAS11(I)\r\n      DO 75 I = 1,2\r\n      K = K + 1\r\n      IDAT(K) = IPAS11(I)\r\n   75 CONTINUE\r\n      GO TO 200\r\n   80 CONTINUE\r\nC\r\nC     MOVE PHASE 3 DATA\r\nC\r\n      IF (IPHASE.NE.3 .OR. NPH.EQ.0) GO TO 200\r\n      DO 110 I = 1,NPH\r\n      K = K + 1\r\n  110 IDAT(K) = IPAS31(I)\r\nC\r\n  200 RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n 1000 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm02.f",
    "content": "      SUBROUTINE ASCM02 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     RUN COMMAND DATA\r\nC\r\n      INTEGER        COMND(6,2),SUBNAM(2),RDMAP(18,6),PTBS(7,1)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(117)\r\n      DATA    COMND/\r\n     1               4HRUN     ,  1    ,  0    ,  0    ,  1    ,  0  ,\r\n     2               4HENDD    ,  6    ,  0    ,  0    ,  0    ,  0  /\r\n      DATA    RDMAP/\r\n     1 4HPARA,4HM   ,4H  //,4H*ADD,4H*/DR,4HY/-1,4H /0 ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     2 4HLABE,4HL   ,4H  LB,4HSEND,4H $  ,13*4H    ,\r\n     3 4HPARA,4HM   ,4H  //,4H*ADD,4H*/DR,4HY/DR,4HY/1 ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     4 4HCOND,4H    ,4H  FI,4HNIS,,4HDRY ,4H$   ,12*4H    ,\r\n     5 4HREPT,4H    ,4H  LB,4HSBEG,4H,1 $,13*4H    ,\r\n     6 4HJUMP,4H    ,4H  FI,4HNIS ,4H$   ,13*4H           /\r\n      DATA    PTBS /\r\n     1               1,  22, 23, 3,  4HRUN ,  0,  0       /\r\nC\r\n      DATA   SUBNAM/ 4HASCM,2H02  /\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      DO 10 I = 1, 2\r\n      IF (NAME .EQ. COMND(1,I)) GO TO 20\r\n   10 CONTINUE\r\n      GO TO 70\r\n   20 ICOMND = I\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 40\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   40 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 60\r\n      DO 50 J = 1,NPTBS\r\n      DO 50 I = 1,7\r\n      K = K + 1\r\n   50 IDAT(K) = PTBS(I,J)\r\n   60 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm03.f",
    "content": "      SUBROUTINE ASCM03 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     COMBINE COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,1),XTRA(10),SUBNAM(2),ISAVE(111),\r\n     1               RDMAP(18,24),RDMAP1(18,9),RDMAP2(18,9),\r\n     2               RDMAP3(18,6),OCT(3,21),OCT1(3,18),OCT2(3,3),\r\n     3               PTBS(7,93),PTBS1(7,18),PTBS2(7,18),PTBS3(7,18),\r\n     4               PTBS4(7,18),PTBS5(7,18),PTBS6(7,3)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(1156)\r\n      EQUIVALENCE    (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1, 1)),\r\n     1               (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)),\r\n     2               (RDMAP3(1,1),RDMAP(1,19)),\r\n     3               (PTBS 1(1,1),PTBS (1, 1)),(PTBS2(1,1),PTBS(1,19)),\r\n     4               (PTBS 3(1,1),PTBS(1, 37)),(PTBS4(1,1),PTBS(1,55)),\r\n     5               (PTBS 5(1,1),PTBS(1, 73)),(PTBS6(1,1),PTBS(1,91))\r\n      DATA COMND   /\r\n     1               4HCOMB    , 24    , 10    , 21    , 93    ,  0  /\r\n      DATA SLASH   / 1H/       /\r\n      DATA ISAVE   /\r\n     1    3,15,3,  3,16,3,  4, 6,1,  4,11,3,  4,14,2,  5, 6,1,  6, 8,1,\r\n     2    7,15,3,  7,16,3,  8, 6,1,  8,11,3,  8,14,2,  9, 6,1, 10, 8,1,\r\n     3   11,15,3, 11,16,3, 12, 6,1, 12,11,3, 12,14,2, 13, 6,1, 14, 8,1,\r\n     4   15,15,3, 15,16,3, 16, 6,1, 16,11,3, 16,14,2, 17, 6,1, 18, 8,1,\r\n     5   19,17,3, 20, 5,1, 20,10,3, 20,13,2, 20,16,1, 21, 6,1, 22, 8,2,\r\n     6   22,11,1, 24, 5,1  /\r\n      DATA RDMAP 1 /\r\n     1 4HCOMB,4H1   ,4H  CA,4HSECC,4H,GEO,4HM4//,4HSTP/,4HS,N,,4HDRY/,\r\n     * 4H*PVE,4HC* $, 7*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HSTP,,4HDRY ,4H$   ,12*4H    ,\r\n     3 4HCOMB,4H2   ,4H  ,K,4HN01,,4HKN02,4H,KN0,4H3,KN,4H04,K,4HN05,,\r\n     * 4HKN06,4H,KN0,4H7/KN,4HSC/S,4H,N,D,4HRY!*,4HK*!*,4H    ,4H*/  ,\r\n     4 4H    ,4H    ,4H  *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM,\r\n     * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/   ,4H    ,\r\n     5 4H    ,4H    ,4H  *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$   ,\r\n     * 4H    , 8*4H    ,\r\n     6 4HSOFO,4H    ,4H  ,K,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC ,\r\n     * 4H  */,4H*KMT,4HX* $, 6*4H    ,\r\n     7 4HCOMB,4H2   ,4H  ,M,4HN01,,4HMN02,4H,MN0,4H3,MN,4H04,M,4HN05,,\r\n     * 4HMN06,4H,MN0,4H7/MN,4HSC/S,4H,N,D,4HRY!*,4HM*!*,4H    ,4H*/  ,\r\n     8 4H    ,4H    ,4H  *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM,\r\n     * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/   ,4H    ,\r\n     9 4H    ,4H    ,4H  *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$   ,\r\n     * 4H    , 8*4H    /\r\n      DATA RDMAP 2 /\r\n     O 4HSOFO,4H    ,4H  ,M,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC ,\r\n     * 4H  */,4H*MMT,4HX* $, 6*4H    ,\r\n     1 4HCOMB,4H2   ,4H  ,P,4HN01,,4HPN02,4H,PN0,4H3,PN,4H04,P,4HN05,,\r\n     * 4HPN06,4H,PN0,4H7/PN,4HSC/S,4H,N,D,4HRY!*,4HP*!*,4HPVEC,4H*/  ,\r\n     2 4H    ,4H    ,4H  *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM,\r\n     * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/   ,4H    ,\r\n     3 4H    ,4H    ,4H  *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$   ,\r\n     * 4H    , 8*4H    ,\r\n     4 4HSOFO,4H    ,4H  ,P,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC ,\r\n     * 4H  */,4H*PVE,4HC* $, 6*4H    ,\r\n     5 4HCOMB,4H2   ,4H  ,B,4HN01,,4HBN02,4H,BN0,4H3,BN,4H04,B,4HN05,,\r\n     * 4HBN06,4H,BN0,4H7/BN,4HSC/S,4H,N,D,4HRY!*,4HB*!*,4H    ,4H*/  ,\r\n     6 4H    ,4H    ,4H  *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM,\r\n     * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H/   ,4H    ,\r\n     7 4H    ,4H    ,4H  *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$   ,\r\n     * 4H    , 8*4H    ,\r\n     8 4HSOFO,4H    ,4H  ,B,4HNSC,,4H,,,/,4H/S,N,4H,DRY,4H!*NA,4HMEC ,\r\n     * 4H  */,4H*BMT,4HX* $, 6*4H    /\r\n      DATA RDMAP 3 /\r\n     9 4HCOMB,4H2   ,4H  ,K,4H4N01,4H,K4N,4H02,K,4H4N03,4H,K4N,4H04,K,\r\n     * 4H4N05,4H,K4N,4H06,K,4H4N07,4H/K4N,4HSC/S,4H,N,D,4HRY!*,4HK4*/,\r\n     O 4H    ,4H    ,4H  * ,4H   *,4H!*NA,4HME00,4H01*/,4H*NAM,4HE000,\r\n     * 4H2*!*,4HNAME,4H0003,4H*!*N,4HAME0,4H004*,4H!*NA,4HME00,4H05*/,\r\n     1 4H    ,4H    ,4H  *N,4HAME0,4H006*,4H!*NA,4HME00,4H07* ,4H$   ,\r\n     * 4H    , 8*4H    ,\r\n     2 4HSOFO,4H    ,4H  ,K,4H4NSC,4H,,,,,4H//S,,4HN,DR,4HY!*N,4HAMEC,\r\n     * 4H   *,4H!*K4,4HMX* ,4H$   , 5*4H    ,\r\n     3 4HLABE,4HL   ,4H  LB,4HSTP ,4H$   ,13*4H    ,\r\n     4 4HLODA,4HPP  ,4H  PN,4HSC,/,4H!*NA,4HMEC ,4H  */,4HS,N,,4HDRY ,\r\n     * 4H$   , 8*4H    /\r\n      DATA XTRA /\r\n     1             4HSORT,4HNAME,4HNAMS,4HTOLE,4HCONN,4HCOMP,4HTRAN  ,\r\n     2             4HSYMT,4HSEAR,4HOUTP/\r\n      DATA OCT 1 /\r\n     1                    3    ,         0    ,         1     ,\r\n     2                    4    ,         0    ,         1     ,\r\n     3                    5    ,         0    ,         1     ,\r\n     4                    6    ,         0    ,         1     ,\r\n     5                    7    ,         0    ,         2     ,\r\n     6                    8    ,         0    ,         2     ,\r\n     7                    9    ,         0    ,         2     ,\r\n     8                   10    ,         0    ,         2     ,\r\n     9                   11    ,         0    ,        12     ,\r\n     O                   12    ,         0    ,        12     ,\r\n     1                   13    ,         0    ,        12     ,\r\n     2                   14    ,         0    ,        12     ,\r\n     3                   15    ,         0    ,        16     ,\r\n     4                   16    ,         0    ,        16     ,\r\n     5                   17    ,         0    ,        16     ,\r\n     6                   18    ,         0    ,        16     ,\r\n     7                   19    ,         0    ,        32     ,\r\n     8                   20    ,         0    ,        32     /\r\n      DATA OCT 2 /\r\n     1                   21    ,         0    ,        32     ,\r\n     2                   22    ,         0    ,        32     ,\r\n     3                   24    ,         0    ,         8     /\r\n      DATA PTBS 1 /\r\n     1          1  , 24  , 25  ,  3  ,4HNSTP  ,         0  ,  0  ,\r\n     2          1  , 36  , 38  ,  4  ,4HPITM  ,        12  ,  0  ,\r\n     3          2  , 13  , 13  ,  3  ,4HNSTP  ,         0  ,  0  ,\r\n     4          3  , 12  , 13  ,  3  ,4HN1    ,         0  ,  1  ,\r\n     5          3  , 17  , 18  ,  3  ,4HN2    ,         0  ,  1  ,\r\n     6          3  , 22  , 23  ,  3  ,4HN3    ,         0  ,  1  ,\r\n     7          3  , 27  , 28  ,  3  ,4HN4    ,         0  ,  1  ,\r\n     8          3  , 32  , 33  ,  3  ,4HN5    ,         0  ,  1  ,\r\n     9          3  , 37  , 38  ,  3  ,4HN6    ,         0  ,  1  ,\r\n     O          3  , 42  , 43  ,  3  ,4HN7    ,         0  ,  1  ,\r\n     1          3  , 47  , 48  ,  3  ,4HNCNO  ,         1  , -1  ,\r\n     2          4  , 11  , 12  ,  8  ,4HNA1   ,         0  ,  0  ,\r\n     3          4  , 21  , 23  ,  8  ,4HNA2   ,         0  ,  0  ,\r\n     4          4  , 32  , 34  ,  8  ,4HNA3   ,         0  ,  0  ,\r\n     5          4  , 43  , 45  ,  8  ,4HNA4   ,         0  ,  0  ,\r\n     6          4  , 54  , 56  ,  8  ,4HNA5   ,         0  ,  0  ,\r\n     7          5  , 11  , 12  ,  8  ,4HNA6   ,         0  ,  0  ,\r\n     8          5  , 21  , 23  ,  8  ,4HNA7   ,         0  ,  0  /\r\n      DATA PTBS 2 /\r\n     1          6  , 12  , 13  ,  3  ,4HNCNO  ,         1  ,  1  ,\r\n     2          6  , 29  , 31  ,  8  ,4HNAMC  ,         0  ,  0  ,\r\n     3          7  , 12  , 13  ,  3  ,4HN1    ,         0  ,  1  ,\r\n     4          7  , 17  , 18  ,  3  ,4HN2    ,         0  ,  1  ,\r\n     5          7  , 22  , 23  ,  3  ,4HN3    ,         0  ,  1  ,\r\n     6          7  , 27  , 28  ,  3  ,4HN4    ,         0  ,  1  ,\r\n     7          7  , 32  , 33  ,  3  ,4HN5    ,         0  ,  1  ,\r\n     8          7  , 37  , 38  ,  3  ,4HN6    ,         0  ,  1  ,\r\n     9          7  , 42  , 43  ,  3  ,4HN7    ,         0  ,  1  ,\r\n     O          7  , 47  , 48  ,  3  ,4HNCNO  ,         2  , -1  ,\r\n     1          8  , 11  , 12  ,  8  ,4HNA1   ,         0  ,  0  ,\r\n     2          8  , 21  , 23  ,  8  ,4HNA2   ,         0  ,  0  ,\r\n     3          8  , 32  , 34  ,  8  ,4HNA3   ,         0  ,  0  ,\r\n     4          8  , 43  , 45  ,  8  ,4HNA4   ,         0  ,  0  ,\r\n     5          8  , 54  , 56  ,  8  ,4HNA5   ,         0  ,  0  ,\r\n     6          9  , 11  , 12  ,  8  ,4HNA6   ,         0  ,  0  ,\r\n     7          9  , 21  , 23  ,  8  ,4HNA7   ,         0  ,  0  ,\r\n     8         10  , 12  , 13  ,  3  ,4HNCNO  ,         2  ,  1  /\r\n      DATA PTBS 3 /\r\n     1         10  , 29  , 31  ,  8  ,4HNAMC  ,         0  ,  0  ,\r\n     2         11  , 12  , 13  ,  3  ,4HN1    ,         0  ,  1  ,\r\n     3         11  , 17  , 18  ,  3  ,4HN2    ,         0  ,  1  ,\r\n     4         11  , 22  , 23  ,  3  ,4HN3    ,         0  ,  1  ,\r\n     5         11  , 27  , 28  ,  3  ,4HN4    ,         0  ,  1  ,\r\n     6         11  , 32  , 33  ,  3  ,4HN5    ,         0  ,  1  ,\r\n     7         11  , 37  , 38  ,  3  ,4HN6    ,         0  ,  1  ,\r\n     8         11  , 42  , 43  ,  3  ,4HN7    ,         0  ,  1  ,\r\n     9         11  , 47  , 48  ,  3  ,4HNCNO  ,        12  , -1  ,\r\n     O         11  , 63  , 65  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     1         12  , 11  , 12  ,  8  ,4HNA1   ,         0  ,  0  ,\r\n     2         12  , 21  , 23  ,  8  ,4HNA2   ,         0  ,  0  ,\r\n     3         12  , 32  , 34  ,  8  ,4HNA3   ,         0  ,  0  ,\r\n     4         12  , 43  , 45  ,  8  ,4HNA4   ,         0  ,  0  ,\r\n     5         12  , 54  , 56  ,  8  ,4HNA5   ,         0  ,  0  ,\r\n     6         13  , 11  , 12  ,  8  ,4HNA6   ,         0  ,  0  ,\r\n     7         13  , 21  , 23  ,  8  ,4HNA7   ,         0  ,  0  ,\r\n     8         14  , 12  , 13  ,  3  ,4HNCNO  ,        12  ,  1  /\r\n      DATA PTBS 4 /\r\n     1         14  , 29  , 31  ,  8  ,4HNAMC  ,         0  ,  0  ,\r\n     2         14  , 40  , 42  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     3         15  , 12  , 13  ,  3  ,4HN1    ,         0  ,  1  ,\r\n     4         15  , 17  , 18  ,  3  ,4HN2    ,         0  ,  1  ,\r\n     5         15  , 22  , 23  ,  3  ,4HN3    ,         0  ,  1  ,\r\n     6         15  , 27  , 28  ,  3  ,4HN4    ,         0  ,  1  ,\r\n     7         15  , 32  , 33  ,  3  ,4HN5    ,         0  ,  1  ,\r\n     8         15  , 37  , 38  ,  3  ,4HN6    ,         0  ,  1  ,\r\n     9         15  , 42  , 43  ,  3  ,4HN7    ,         0  ,  1  ,\r\n     O         15  , 47  , 48  ,  3  ,4HNCNO  ,        16  , -1  ,\r\n     1         16  , 11  , 12  ,  8  ,4HNA1   ,         0  ,  0  ,\r\n     2         16  , 21  , 23  ,  8  ,4HNA2   ,         0  ,  0  ,\r\n     3         16  , 32  , 34  ,  8  ,4HNA3   ,         0  ,  0  ,\r\n     4         16  , 43  , 45  ,  8  ,4HNA4   ,         0  ,  0  ,\r\n     5         16  , 54  , 56  ,  8  ,4HNA5   ,         0  ,  0  ,\r\n     6         17  , 11  , 12  ,  8  ,4HNA6   ,         0  ,  0  ,\r\n     7         17  , 21  , 23  ,  8  ,4HNA7   ,         0  ,  0  ,\r\n     8         18  , 12  , 13  ,  3  ,4HNCNO  ,        16  ,  1  /\r\n      DATA PTBS 5 /\r\n     1         18  , 29  , 31  ,  8  ,4HNAMC  ,         0  ,  0  ,\r\n     2         19  , 12  , 14  ,  3  ,4HN1    ,         0  ,  1  ,\r\n     3         19  , 18  , 20  ,  3  ,4HN2    ,         0  ,  1  ,\r\n     4         19  , 24  , 26  ,  3  ,4HN3    ,         0  ,  1  ,\r\n     5         19  , 30  , 32  ,  3  ,4HN4    ,         0  ,  1  ,\r\n     6         19  , 36  , 38  ,  3  ,4HN5    ,         0  ,  1  ,\r\n     7         19  , 42  , 44  ,  3  ,4HN6    ,         0  ,  1  ,\r\n     8         19  , 48  , 50  ,  3  ,4HN7    ,         0  ,  1  ,\r\n     9         19  , 54  , 56  ,  3  ,4HNCNO  ,        32  , -1  ,\r\n     O         20  , 17  , 19  ,  8  ,4HNA1   ,         0  ,  0  ,\r\n     1         20  , 28  , 30  ,  8  ,4HNA2   ,         0  ,  0  ,\r\n     2         20  , 39  , 41  ,  8  ,4HNA3   ,         0  ,  0  ,\r\n     3         20  , 50  , 52  ,  8  ,4HNA4   ,         0  ,  0  ,\r\n     4         20  , 61  , 63  ,  8  ,4HNA5   ,         0  ,  0  ,\r\n     5         21  , 11  , 12  ,  8  ,4HNA6   ,         0  ,  0  ,\r\n     6         21  , 21  , 23  ,  8  ,4HNA7   ,         0  ,  0  ,\r\n     7         22  , 12  , 14  ,  3  ,4HNCNO  ,        32  ,  1  ,\r\n     8         22  , 30  , 32  ,  8  ,4HNAMC  ,         0  ,  0  /\r\n      DATA PTBS 6 /\r\n     1         23  , 11  , 13  ,  3  ,4HNSTP  ,         0  ,  0  ,\r\n     2         24  , 11  , 12  ,  3  ,4HNCNO  ,         0  ,  1  ,\r\n     3         24  , 17  , 19  ,  8  ,4HNAMC  ,         0  ,  0  /\r\n      DATA SUBNAM / 4HASCM,2H03 /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      DO 20 L = 1,111,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 70\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm04.f",
    "content": "      SUBROUTINE ASCM04 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     REDUCE COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,1),XTRA(4),SUBNAM(2),ISAVE(54),\r\n     1               RDMAP(18,23),RDMAP1(18,9),RDMAP2(18,9),\r\n     2               RDMAP3(18,5),OCT(3,16),OCT1(3,16),PTBS(7,67),\r\n     3               PTBS1(7,18),PTBS2(7,18),PTBS3(7,18),PTBS4(7,13)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(935)\r\n      EQUIVALENCE    (RDMAP1(1,1),RDMAP(1,1)),(RDMAP2(1,1),RDMAP(1,10)),\r\n     1               (RDMAP3(1,1),RDMAP(1,19)),(OCT1(1,1),OCT(1,1)),\r\n     2               (PTBS 1(1,1),PTBS(1, 1)),(PTBS2(1,1),PTBS(1,19)),\r\n     3               (PTBS 3(1,1),PTBS(1,37)),(PTBS4(1,1),PTBS(1,55))\r\n      DATA COMND   /\r\n     1               4HREDU    , 23    ,  4    , 16    , 67    ,  0  /\r\n      DATA SLASH   / 1H/       /\r\n      DATA ISAVE   /\r\n     1    1,14,1,  3,12,1,  3,16,3,  4, 5,1,  8, 8,2,  8,11,1,  9, 7,1,\r\n     2   10,10,3, 12, 7,1, 14, 7,1, 16, 7,2, 16,10,1, 19, 7,2, 19,10,1,\r\n     3   20, 7,2, 20,10,1, 21, 7,1, 23, 6,2    /\r\n      DATA RDMAP 1 /\r\n     1 4HREDU,4HCE  ,4H  CA,4HSECC,4H,GEO,4HM4/P,4HVNOA,4H,USS,4HTP,I,\r\n     * 4HNSTP,4H/STP,4H/S,N,4H,DRY,4H!*PV,4HEC* ,4H$   ,4H    ,4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HRSTP,4H,DRY,4H $  ,12*4H    ,\r\n     3 4HSOFI,4H    ,4H  /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA,\r\n     * 4H/S,N,4H,DRY,4H!*NA,4HME00,4H0A*/,4H*KMT,4HX*!*,4HMMTX,4H*/  ,\r\n     4 4H    ,4H    ,4H  *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     5 4HCOND,4H    ,4H  LB,4HRSTP,4H,DRY,4H $  ,12*4H    ,\r\n     6 4HSMP1,4H    ,4H  US,4HSTP,,4HKNOA,4H,,,/,4HGONO,4HA,KN,4HOB,K,\r\n     * 4HONOA,4H,LON,4HOA,,,4H,,, ,4H$   , 4*4H    ,\r\n     7 4HMERG,4HE   ,4H  GO,4HNOA,,4HINST,4HP,,,,4H,PVN,4HOA/G,4HNOA/,\r\n     * 4H1/TY,4HP/2 ,4H$   , 6*4H    ,\r\n     8 4HSOFO,4H    ,4H  ,G,4HNOA,,4HLONO,4HA,,,,4H//DR,4HY!*N,4HAME0,\r\n     * 4H00A*,4H!*HO,4HRG*/,4H*LMT,4HX* $, 4*4H    ,\r\n     9 4HSOFO,4H    ,4H  ,K,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/,\r\n     * 4H*KMT,4HX* $, 7*4H       /\r\n      DATA RDMAP 2 /\r\n     O 4HSOFI,4H    ,4H  /G,4HNOA,,4H,,,/,4HS,N,,4HDRY/,4H*NAM,4HE000,\r\n     * 4HA*!*,4HHORG,4H* $ , 6*4H    ,\r\n     1 4HMPY3,4H    ,4H  GN,4HOA,M,4HNOA,,4H/MNO,4HB/0/,4H0 $ ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     2 4HSOFO,4H    ,4H  ,M,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/,\r\n     * 4H*MMT,4HX* $, 7*4H    ,\r\n     3 4HMPY3,4H    ,4H  GN,4HOA,B,4HNOA,,4H/BNO,4HB/0/,4H0 $ ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     4 4HSOFO,4H    ,4H  ,B,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/,\r\n     * 4H*BMT,4HX* $, 7*4H    ,\r\n     5 4HMPY3,4H    ,4H  GN,4HOA,K,4H4NOA,4H,/K4,4HNOB/,4H0/0 ,4H$   ,\r\n     * 4H    , 8*4H    ,\r\n     6 4HSOFO,4H    ,4H  ,K,4H4NOB,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00B*,\r\n     * 4H!*K4,4HMX* ,4H$   , 6*4H    ,\r\n     7 4HPART,4HN   ,4H  PN,4HOA,,,4HPVNO,4HA/PO,4HNOA,,4H,,/1,4H/1/2,\r\n     * 4H $  , 8*4H    ,\r\n     8 4HMPYA,4HD   ,4H  GN,4HOA,P,4HNOA,,4H/PNO,4HB/1/,4H1/0/,4H1 $ ,\r\n     * 4H    , 8*4H        /\r\n      DATA RDMAP 3 /\r\n     9 4HSOFO,4H    ,4H  ,P,4HONOA,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00A*,\r\n     * 4H!*PO,4HVE* ,4H$   , 6*4H    ,\r\n     O 4HSOFO,4H    ,4H  ,P,4HVNOA,4H,,,,,4H//DR,4HY!*N,4HAME0,4H00A*,\r\n     * 4H!*UP,4HRT* ,4H$   , 6*4H    ,\r\n     1 4HSOFO,4H    ,4H  ,P,4HNOB,,4H,,,/,4H/DRY,4H!*NA,4HME00,4H0B*/,\r\n     * 4H*PVE,4HC* $, 7*4H    ,\r\n     2 4HLABE,4HL   ,4H  LB,4HRSTP,4H $  ,13*4H    ,\r\n     3 4HLODA,4HPP  ,4H  PN,4HOB,P,4HONOA,4H/!*N,4HAME0,4H00B*,4H/S,N,\r\n     * 4H,DRY,4H $  , 7*4H      /\r\n      DATA XTRA    /\r\n     1               4HOUTP,4HNAME,4HBOUN,4HRSAV        /\r\n      DATA OCT 1   /\r\n     1                    6    ,         0    ,         1  ,\r\n     2                    7    ,         0    ,         1  ,\r\n     3                    8    ,         0    ,         1  ,\r\n     4                    9    ,         0    ,         1  ,\r\n     5                   10    ,         1    ,        62  ,\r\n     6                   11    ,         0    ,         2  ,\r\n     7                   12    ,         0    ,         2  ,\r\n     8                   13    ,         0    ,        16  ,\r\n     9                   14    ,         0    ,        16  ,\r\n     O                   15    ,         0    ,        32  ,\r\n     1                   16    ,         0    ,        32  ,\r\n     2                   17    ,         0    ,        12  ,\r\n     3                   18    ,         0    ,        12  ,\r\n     4                   19    ,         0    ,        12  ,\r\n     5                   21    ,         0    ,        12  ,\r\n     6                   23    ,         0    ,         8  /\r\n      DATA PTBS 1  /\r\n     1          1  , 24  , 26  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     2          1  , 32  , 32  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3          1  , 38  , 38  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4          1  , 41  , 42  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5          1  , 53  , 55  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     6          2  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     7          3  , 12  , 13  ,  3  ,4HNONA  ,         1  , -1  ,\r\n     8          3  , 17  , 18  ,  3  ,4HNONA  ,         2  , -1  ,\r\n     9          3  , 22  , 23  ,  3  ,4HNONA  ,        12  , -1  ,\r\n     O          3  , 27  , 28  ,  3  ,4HNONA  ,        16  , -1  ,\r\n     1          3  , 32  , 34  ,  3  ,4HNONA  ,        32  , -1  ,\r\n     2          3  , 45  , 47  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     3          4  , 11  , 12  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     4          5  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5          6  , 11  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6          6  , 17  , 18  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     7          6  , 25  , 27  ,  3  ,4HNONA  ,         0  , -1  ,\r\n     8          6  , 31  , 32  ,  3  ,4HNONB  ,         0  , -1  /\r\n      DATA PTBS 2  /\r\n     1          6  , 36  , 38  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     2          6  , 42  , 44  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     3          7  , 11  , 13  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     4          7  , 17  , 19  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5          7  , 26  , 28  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6          7  , 32  , 33  ,  3  ,4HNONA  ,         0  , -1  ,\r\n     7          7  , 38  , 39  ,  3  ,4HPREC  ,         0  ,  0  ,\r\n     8          8  , 12  , 13  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     9          8  , 17  , 19  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     O          8  , 17  , 21  ,  0  ,4HRSAV  ,         0  ,  0  ,\r\n     1          8  , 30  , 32  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     2          8  , 48  , 54  ,  0  ,4HRSAV  ,         0  ,  0  ,\r\n     3          9  , 12  , 13  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     4          9  , 25  , 27  ,  8  ,4HNAMB  ,         0  ,  0  ,\r\n     5         10  , 12  , 13  ,  3  ,4HNONA  ,         0  , -1  ,\r\n     6         10  , 28  , 30  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     7         11  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     8         11  , 16  , 17  ,  3  ,4HNONA  ,         0  ,  0  /\r\n      DATA PTBS 3  /\r\n     1         11  , 22  , 23  ,  3  ,4HNONB  ,         0  , -1  ,\r\n     2         12  , 12  , 13  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     3         12  , 25  , 27  ,  8  ,4HNAMB  ,         0  ,  0  ,\r\n     4         13  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     5         13  , 16  , 17  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6         13  , 22  , 23  ,  3  ,4HNONB  ,         0  , -1  ,\r\n     7         14  , 12  , 13  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     8         14  , 25  , 27  ,  8  ,4HNAMB  ,         0  ,  0  ,\r\n     9         15  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     O         15  , 16  , 18  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     1         15  , 23  , 25  ,  3  ,4HNONB  ,         0  , -1  ,\r\n     2         16  , 12  , 14  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     3         16  , 26  , 28  ,  8  ,4HNAMB  ,         0  ,  0  ,\r\n     4         17  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     5         17  , 17  , 19  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6         17  , 23  , 25  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     7         18  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     8         18  , 16  , 17  ,  3  ,4HNONA  ,         0  ,  0  /\r\n      DATA PTBS 4  /\r\n     1         18  , 22  , 23  ,  3  ,4HNONB  ,         0  , -1  ,\r\n     2         19  , 12  , 14  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     3         19  , 26  , 28  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     4         19  , 37  , 39  ,  4  ,4HPOIT  ,         0  ,  0  ,\r\n     5         20  , 12  , 14  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6         20  , 26  , 28  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     7         21  , 12  , 13  ,  3  ,4HNONB  ,         0  ,  1  ,\r\n     8         21  , 25  , 27  ,  8  ,4HNAMB  ,         0  ,  0  ,\r\n     9         21  , 36  , 38  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     O         22  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     1         23  , 11  , 12  ,  3  ,4HNONB  ,         0  ,  1  ,\r\n     2         23  , 16  , 18  ,  3  ,4HNONA  ,         0  ,  1  ,\r\n     3         23  , 22  , 24  ,  8  ,4HNAMB  ,         0  ,  0  /\r\nC\r\n      DATA SUBNAM  / 4HASCM,2H04  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING !* BY /* IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION)\r\nC\r\n      DO 20 L = 1,51,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 70\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm05.f",
    "content": "      SUBROUTINE ASCM05 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     SOLVE COMMAND DMAP DATA\r\nC\r\n      INTEGER         COMND(6,1),SUBNAM(2),RDMAP(18,28),RDMAP1(18,9),\r\n     1                RDMAP2(18,9),RDMAP3(18,9),RDMAP4(18,1),OCT(3,5),\r\n     2                OCT1(3,5),PTBS(7,20),PTBS1(7,18),PTBS2(7,2)\r\n      COMMON /PHAS25/ IPAS25(14)\r\n      COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1                IPH,NPH,IDAT(673)\r\n      EQUIVALENCE     (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)),\r\n     1                (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)),\r\n     2                (RDMAP3(1,1),RDMAP(1,19)),(PTBS 2(1,1),PTBS(1,19))\r\n     3,               (RDMAP4(1,1),RDMAP(1,28))\r\n      DATA COMND   /\r\n     1                4HSOLV    , 28    ,  0    ,  5    , 20    , 14  /\r\n      DATA SLASH   /  1H/       /\r\n      DATA RDMAP 1 /\r\n     1 4HALTE,4HR   ,4H  (G,4HP1) ,4H$   ,13*4H    ,\r\n     2 4HPARA,4HM   ,4H  //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HSGEN,4H    ,4H  CA,4HSECC,4H,GEO,4HM3,G,4HEOM4,4H,DYN,4HAMIC,\r\n     * 4HS/CA,4HSESS,4H,CAS,4HEI,G,4HPL,E,4HQEXI,4HN,GP,4HDT, ,4H    ,\r\n     4 4H    ,4H    ,4H  BG,4HPDT,,4HSIL,,4HGE3S,4H,GE4,4HS,DY,4HNS/S,\r\n     * 4H,N,D,4HRY!*,4HNAME,4HSOLS,4H*/S,,4HN,LU,4HSET/,4H    ,4H    ,\r\n     5 4H    ,4H    ,4H  S,,4HN,NO,4HGPDT,4H $  ,12*4H    ,\r\n     6 4HPURG,4HE   ,4H  CS,4HTM $,14*4H    ,\r\n     7 4HEQUI,4HV   ,4H  GE,4H3S,G,4HEOM3,4H/ALW,4HAYS/,4HGE4S,4H,GEO,\r\n     * 4HM4/A,4HLWAY,4HS/CA,4HSEI,,4HCASE,4HCC/A,4HLWAY,4HS/  ,4H    ,\r\n     8 4H    ,4H    ,4H  DY,4HNS,D,4HYNAM,4HICS/,4HALWA,4HYS $,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     9 4HCOND,4H    ,4H  LB,4HSTP,,4HDRY ,4H$   ,12*4H     /\r\n      DATA RDMAP 2 /\r\n     O 4HALTE,4HR   ,4H  (P,4HLOT),4H $  ,13*4H    ,\r\n     1 4HALTE,4HR   ,4H  (C,4HOND),4H $  ,13*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HSOL,,4HNOSI,4HMP $,12*4H    ,\r\n     3 4HALTE,4HR   ,4H  (O,4HPTP),4H $  ,13*4H    ,\r\n     4 4HCOND,4H    ,4H  LB,4HSOL,,4HNOMG,4HG $ ,12*4H    ,\r\n     5 4HALTE,4HR   ,4H  (S,4HMA3),4H $  ,13*4H    ,\r\n     6 4HLABE,4HL   ,4H  LB,4HSOL ,4H$   ,13*4H    ,\r\n     7 4HSOFI,4H    ,4H  /K,4HNOS,,4HMNOS,4H,,,/,4HDRY/,4H*NAM,4HESOL,\r\n     * 4HS*!*,4HKMTX,4H*!*M,4HMTX*,4H $  , 4*4H    ,\r\n     8 4HEQUI,4HV   ,4H  KN,4HOS,K,4HGG/N,4HOSIM,4HP $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H      /\r\n      DATA RDMAP 3 /\r\n     9 4HEQUI,4HV   ,4H  MN,4HOS,M,4HGG/N,4HOSIM,4HP $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     O 4HCOND,4H    ,4H  LB,4HSTP,,4HNOSI,4HMP $,12*4H    ,\r\n     1 4HADD ,4H    ,4H  KG,4HGX,K,4HNOS/,4HKGG/,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H    ,\r\n     2 4HADD ,4H    ,4H  MG,4HG,MN,4HOS/M,4HGGX/,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H    ,\r\n     3 4HEQUI,4HV   ,4H  MG,4HGX,M,4HGG/A,4HLWAY,4HS $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     4 4HLABE,4HL   ,4H  LB,4HSTP ,4H$   ,13*4H    ,\r\n     5 4HCHKP,4HNT  ,4H  MG,4HG $ ,14*4H    ,\r\n     6 4HALTE,4HR   ,4H  (G,4HP4) ,4H$   ,13*4H    ,\r\n     7 4HCOND,4H    ,4H  LB,4HSEND,4H,DRY,4H $  ,12*4H     /\r\n      DATA RDMAP 4 /\r\n     8 4HALTE,4HR   ,4H  (S,4HDR2),4H $  ,13*4H            /\r\n      DATA OCT 1   /\r\n     1                   18    ,         0    ,         1  ,\r\n     2                   19    ,         0    ,         2  ,\r\n     3                   21    ,         0    ,         1  ,\r\n     4                   22    ,         0    ,         2  ,\r\n     5                   23    ,         0    ,         2  /\r\n      DATA PTBS 1  /\r\n     1          1  , 11  , 11  ,  5  ,     1  ,         0  ,  0  ,\r\n     2          4  , 43  , 45  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     3          9  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4         10  , 11  , 11  ,  6  ,     2  ,         0  ,  0  ,\r\n     5         11  , 11  , 11  ,  6  ,     6  ,         0  ,  0  ,\r\n     6         12  , 50  , 50  ,  0  ,4HSOL   ,         0  ,  0  ,\r\n     7         13  , 11  , 11  ,  6  ,     7  ,         0  ,  0  ,\r\n     8         14  , 50  , 50  ,  0  ,4HMSKP  ,         0  ,  0  ,\r\n     9         15  , 11  , 11  ,  6  ,     3  ,         0  ,  0  ,\r\n     O         17  , 12  , 13  ,  3  ,4HNANO  ,         1  , -1  ,\r\n     1         17  , 17  , 18  ,  3  ,4HNANO  ,         2  , -1  ,\r\n     2         17  , 28  , 30  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     3         18  , 11  , 12  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     4         19  , 11  , 12  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     5         20  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6         21  , 16  , 17  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     7         22  , 15  , 16  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     8         24  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  /\r\n      DATA PTBS 2  /\r\n     1         26  , 11  , 11  ,  5  ,     4  ,         0  ,  0  ,\r\n     2         28  , 11  , 11  ,  6  ,     5  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H05  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      RDMAP(11, 4) = KHRFN1(RDMAP(11, 4),3,SLASH,1)\r\n      RDMAP(10,17) = KHRFN1(RDMAP(10,17),3,SLASH,1)\r\n      RDMAP(12,17) = KHRFN1(RDMAP(12,17),2,SLASH,1)\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 1000\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\nC     MOVE PHASE 2 DATA\r\nC\r\n      IF (IPHASE.NE.2 .OR. NPH.EQ.0) GO TO 100\r\n      DO 70 I = 1,4\r\n      K = K + 1\r\n   70 IDAT(K) = IPAS25(I)\r\n      DO 80 I = 9,14\r\n      K = K + 1\r\n   80 IDAT(K) = IPAS25(I)\r\n      DO 90 I = 5,8\r\n      K = K + 1\r\n   90 IDAT(K) = IPAS25(I)\r\n      GO TO 200\r\n  100 CONTINUE\r\nC\r\n  200 RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n 1000 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm06.f",
    "content": "      SUBROUTINE ASCM06 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     RECOVER, MRECOVER COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,2),XTRA(15),SUBNAM(2),RDMAP(18,17),\r\n     1               RDMAP1(18,9),RDMAP2(18,8),OCT(3,1),OCT1(3,1),\r\n     2               PTBS(7,31),PTBS1(7,18),PTBS2(7,13)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(543)\r\n      EQUIVALENCE    (RDMAP1(1,1),RDMAP(1, 1)),(PTBS1(1,1),PTBS(1,1)),\r\n     1               (RDMAP2(1,1),RDMAP(1,10)),(PTBS2(1,1),PTBS(1,19)),\r\n     2               (OCT1(1,1),OCT(1,1))\r\n      DATA COMND   /\r\n     1               4HRECO    , 17    , 15    ,  1    , 31    ,  0  ,\r\n     2               4HMREC    , 17    , 15    ,  1    , 31    ,  0  /\r\n      DATA SLASH   / 1H/       /\r\n      DATA RDMAP 1 /\r\n     1 4HFILE,4H    ,4H  U1,4H=APP,4HEND/,4HU2=A,4HPPEN,4HD/U3,4H=APP,\r\n     * 4HEND/,4HU4=A,4HPPEN,4HD/U5,4H=APP,4HEND ,4H$   ,4H    ,4H    ,\r\n     2 4HPARA,4HM   ,4H  //,4H*ADD,4H*/IL,4HOOP/,4H0/0 ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     3 4HLABE,4HL   ,4H  LB,4HSTP ,4H$   ,13*4H    ,\r\n     4 4HRCOV,4HR   ,4H  CA,4HSESS,4H,GEO,4HM4,K,4HGG,M,4HGG,P,4HGG,U,\r\n     * 4HGV ,,4HDIT,,4HDLT,,4HBGG,,4HK4GG,4H,PPF,4H/OUG,4HV1 ,,4H    ,\r\n     5 4H    ,4H    ,4H  OP,4HG1,O,4HQG1,,4HU1,U,4H2,U3,4H,U4,,4HU5/S,\r\n     * 4H,N,D,4HRY/S,4H,N,I,4HLOOP,4H/STP,4H!*NA,4HMEFS,4HS */,4H    ,\r\n     6 4H    ,4H    ,4H  NS,4HOL/N,4HEIGV,4H/S,N,4H,LUI,4H/S,N,4H,U1N,\r\n     * 4H/S,N,4H,U2N,4H/S,N,4H,U3N,4H/S,N,4H,U4N,4H/S,N,4H,U5N,4H/   ,\r\n     7 4H    ,4H    ,4H  S,,4HN,NO,4HSORT,4H2/V,,4HY,UT,4HHRES,4HH/V,,\r\n     * 4HY,PT,4HHRES,4HH/V,,4HY,QT,4HHRES,4HH $ , 3*4H    ,\r\n     8 4HEQUI,4HV   ,4H  OU,4HGV1 ,4H,OUG,4HV /N,4HOSOR,4HT2/O,4HQG1,,\r\n     * 4HOQG/,4HNOSO,4HRT2 ,4H$   , 5*4H    ,\r\n     9 4HEQUI,4HV   ,4H  OP,4HG1,O,4HPG/N,4HOSOR,4HT2 $,4H    ,4H    ,\r\n     * 4H    , 8*4H        /\r\n      DATA RDMAP 2 /\r\n     O 4HCOND,4H    ,4H  NS,4HT2ST,4HP,NO,4HSORT,4H2 $ ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     1 4HSDR3,4H    ,4H  OU,4HGV1 ,4H,OPG,4H1,OQ,4HG1,,,4H,/OU,4HGV ,,\r\n     * 4HOPG,,4HOQG,,4H,, $, 6*4H    ,\r\n     2 4HLABE,4HL   ,4H  NS,4HT2ST,4HP $ ,13*4H    ,\r\n     3 4HOFP ,4H    ,4H  OU,4HGV ,,4HOPG,,4HOQG,,4H,,//,4HS,N,,4HCARD,\r\n     * 4HNO $, 8*4H    ,\r\n     4 4HCOND,4H    ,4H  LB,4HBSTP,4H,ILO,4HOP $,12*4H    ,\r\n     5 4HREPT,4H    ,4H  LB,4HSTP,,4H100 ,4H$   ,12*4H    ,\r\n     6 4HLABE,4HL   ,4H  LB,4HBSTP,4H $  ,13*4H    ,\r\n     7 4HSOFO,4H    ,4H  ,U,4H1,U2,4H,U3,,4HU4,U,4H5//-,4H1!*X,4HXXXX,\r\n     * 4HXXX*,4H $  , 7*4H        /\r\n      DATA XTRA    /\r\n     1               4HPRIN,4HSAVE,4HDISP,4HOLOA,4HSPCF,4HMODE,4HRANG ,\r\n     2               4HSUBC,4HSORT,4HBASI,4HVELO,4HACCE,4HENER,4HUIMP ,\r\n     3               4HSTEP       /\r\n      DATA OCT  1  /\r\n     1                    9    ,    262144    ,         0     /\r\n      DATA PTBS 1  /\r\n     1          3  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2          4  , 11  , 15  ,  2  ,4HCASE  ,         0  ,  0  ,\r\n     3          4  , 18  , 18  ,  5  ,4HGORL  ,         0  ,  0  ,\r\n     4          4  , 24  , 27  ,  0  ,4HNAME  ,         1  ,  0  ,\r\n     5          4  , 28  , 31  ,  0  ,4HNAME  ,         2  ,  0  ,\r\n     6          4  , 32  , 32  ,  3  ,4HPVEC  ,         0  ,  0  ,\r\n     7          4  , 36  , 36  ,  4  ,4HUVEC  ,         0  ,  0  ,\r\n     8          4  , 41  , 44  ,  0  ,4HNAME  ,    458752  ,  0  ,\r\n     9          4  , 45  , 48  ,  0  ,4HNAME  ,    458752  ,  0  ,\r\n     O          4  , 49  , 52  ,  0  ,4HNAME  ,    458768  ,  0  ,\r\n     1          4  , 53  , 57  ,  0  ,4HNAME  ,    458784  ,  0  ,\r\n     2          4  , 58  , 58  ,  3  ,4HPFTL  ,         0  ,  0  ,\r\n     3          4  , 62  , 62  ,  6  ,4HOVEC  ,         0  ,  0  ,\r\n     4          5  , 11  , 15  ,  0  ,4HNAME  ,    262144  ,  0  ,\r\n     5          5  , 54  , 54  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6          5  , 57  , 59  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     7          6  , 11  , 11  ,  4  ,4HSOL   ,         0  ,  0  ,\r\n     8          6  , 16  , 21  ,  0  ,4HNAME  ,   1769472  ,  0  /\r\n      DATA PTBS 2  /\r\n     1          8  , 11  , 11  ,  6  ,4HOVEC  ,         0  ,  0  ,\r\n     2          8  , 18  , 18  ,  5  ,4HOVC2  ,         0  ,  0  ,\r\n     3         10  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4         11  , 11  , 11  ,  6  ,4HOVEC  ,         0  ,  0  ,\r\n     5         11  , 18  , 22  ,  0  ,4HNAME  ,    262144  ,  0  ,\r\n     6         11  , 31  , 31  ,  5  ,4HOVC2  ,         0  ,  0  ,\r\n     7         11  , 37  , 40  ,  0  ,4HNAME  ,    262144  ,  0  ,\r\n     8         12  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     9         13  , 11  , 11  ,  5  ,4HOVC2  ,         0  ,  0  ,\r\n     O         13  , 17  , 20  ,  0  ,4HNAME  ,    262144  ,  0  ,\r\n     1         14  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2         15  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3         16  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H06  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      RDMAP(15,5) = KHRFN1(RDMAP(15,5),1,SLASH,1)\r\n      RDMAP(8,17) = KHRFN1(RDMAP(8,17),2,SLASH,1)\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      DO 10 I = 1,2\r\n      IF (NAME .EQ. COMND(1,I)) GO TO 20\r\n   10 CONTINUE\r\n      GO TO 70\r\n   20 ICOMND = I\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm07.f",
    "content": "      SUBROUTINE ASCM07 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     BRECOVER COMMAND DMAP DATA\r\nC\r\n      INTEGER         COMND(6,1),SUBNAM(2),RDMAP(18,21),RDMAP1(18,9),\r\n     1                RDMAP2(18,9),RDMAP3(18,3),OCT(3,13),OCT1(3,13),\r\n     2                PTBS(7,26),PTBS1(7,18),PTBS2(7,8)\r\n      COMMON /PHAS37/ IPAS37(6)\r\n      COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1                IPH,NPH,IDAT(605)\r\n      EQUIVALENCE     (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)),\r\n     1                (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)),\r\n     2                (RDMAP3(1,1),RDMAP(1,19)),(PTBS2(1,1),PTBS(1,19))\r\n      DATA COMND    /\r\n     1                4HBREC  , 21    ,  0    , 13    , 26    ,  6  /\r\n      DATA SLASH    / 1H/     /\r\n      DATA RDMAP 1  /\r\n     1 4HALTE,4HR   ,4H  (S,4HOLVE,4H) $ ,13*4H    ,\r\n     2 4HPARA,4HM   ,4H  //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     3 4HSSG1,4H    ,4H  SL,4HT,BG,4HPDT,,4HCSTM,4H,SIL,4H,EST,4H,MPT,\r\n     * 4H,GPT,4HT,ED,4HT,MG,4HG,CA,4HSECC,4H,DIT,4H,/PG,4H,,,,,4H/   ,\r\n     4 4H    ,4H    ,4H  LU,4HSET/,4HNSKI,4HP $ ,12*4H    ,\r\n     5 4HSSG2,4H    ,4H  US,4HET,G,4HM,YS,4H,KFS,4H,GO,,4H,PG/,4HQR,P,\r\n     * 4HO,PS,4H,PL ,4H$   , 6*4H    ,\r\n     6 4HRCOV,4HR3  ,4H  ,P,4HG,PS,4H,PO,,4HYS/U,4HAS ,,4HQAS,,4HPGS,,\r\n     * 4HPSS,,4HPOS,,4HYSS,,4HLAMA,4H/SOL,4HN!*N,4HAME ,4H   *,4H/   ,\r\n     7 4H    ,4H    ,4H  NO,4HUE $,14*4H    ,\r\n     8 4HEQUI,4HV   ,4H  PG,4HS,PG,4H/ALW,4HAYS ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     9 4HEQUI,4HV   ,4H  PS,4HS,PS,4H/ALW,4HAYS ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H        /\r\n      DATA RDMAP 2 /\r\n     O 4HEQUI,4HV   ,4H  PO,4HS,PO,4H/ALW,4HAYS ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     1 4HEQUI,4HV   ,4H  YS,4HS,YS,4H/ALW,4HAYS ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HSSTP,4H,OMI,4HT $ ,12*4H    ,\r\n     3 4HFBS ,4H    ,4H  LO,4HO,,P,4HOS/U,4HOOV/,4H1/1/,4HPREC,4H/0 $,\r\n     * 4H    , 8*4H    ,\r\n     4 4HLABE,4HL   ,4H  LB,4HSSTP,4H $  ,13*4H    ,\r\n     5 4HOFP ,4H    ,4H  LA,4HMA,,,4H,,,/,4H/CAR,4HDNO ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     6 4HALTE,4HR   ,4H  (S,4HDR1),4H $  ,13*4H    ,\r\n     7 4HUMER,4HGE  ,4H  US,4HET,Q,4HAS,/,4HQGS/,4H*G*/,4H*A*/,4H*O* ,\r\n     * 4H$   , 8*4H    ,\r\n     8 4HADD ,4H    ,4H  QG,4H ,QG,4HS/QG,4HT/  ,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H      /\r\n      DATA RDMAP 3 /\r\n     9 4HEQUI,4HV   ,4H  QG,4HT,QG,4H /AL,4HWAYS,4H $  ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     O 4HEQUI,4HV   ,4H  CA,4HSECC,4H,CAS,4HEXX/,4HALWA,4HYS $,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     1 4HALTE,4HR   ,4H  (R,4HEPT),4H $  ,13*4H        /\r\n      DATA OCT 1   /\r\n     1                    3    ,    983040    ,        12  ,\r\n     2                    4    ,    983040    ,        12  ,\r\n     3                    5    ,    524288    ,        12  ,\r\n     4                    8    ,   1835008    ,        12  ,\r\n     5                    9    ,   1835008    ,        12  ,\r\n     6                   10    ,   1835008    ,        12  ,\r\n     7                   11    ,   1835008    ,        12  ,\r\n     8                   12    ,   1835008    ,        12  ,\r\n     9                   13    ,   1835008    ,        12  ,\r\n     O                   14    ,   1835008    ,        12  ,\r\n     1                   15    ,   1769472    ,         0  ,\r\n     2                   20    ,    458752    ,         0  ,\r\n     3                   21    ,    458752    ,         0  /\r\n      DATA PTBS 1  /\r\n     1          1  , 11  , 11  ,  0  ,     1  ,         0  ,  0  ,\r\n     2          5  ,  1  ,  1  ,  0  ,4HNAME  ,         0  ,  0  ,\r\n     3          5  , 19  , 21  ,  0  ,4HNAME  ,   1048576  ,  0  ,\r\n     4          5  , 33  , 35  ,  0  ,4HNAME  ,         0  ,  0  ,\r\n     5          5  , 36  , 38  ,  0  ,4HNAME  ,         0  ,  0  ,\r\n     6          5  , 42  , 44  ,  0  ,4HNAME  ,         0  ,  0  ,\r\n     7          6  , 12  , 14  ,  0  ,4HNAME  ,    524300  ,  0  ,\r\n     8          6  , 15  , 17  ,  0  ,4HNAME  ,    524300  ,  0  ,\r\n     9          6  , 18  , 20  ,  0  ,4HNAME  ,   1572876  ,  0  ,\r\n     O          6  , 21  , 23  ,  0  ,4HNAME  ,   1572876  ,  0  ,\r\n     1          6  , 24  , 24  ,  4  ,4HUAPH  ,         0  ,  0  ,\r\n     2          6  , 33  , 33  ,  3  ,4HPGVC  ,         0  ,  0  ,\r\n     3          6  , 37  , 37  ,  3  ,4HPSVC  ,         0  ,  0  ,\r\n     4          6  , 41  , 44  ,  0  ,4HNAME  ,   1572876  ,  0  ,\r\n     5          6  , 45  , 48  ,  0  ,4HNAME  ,   1572876  ,  0  ,\r\n     6          6  , 49  , 49  ,  4  ,4HDYNT  ,    196608  ,  0  ,\r\n     7          6  , 54  , 54  ,  4  ,4HSOL   ,         0  ,  0  ,\r\n     8          6  , 60  , 60  ,  8  ,4HNAME  ,         0  ,  0  /\r\n      DATA PTBS 2  /\r\n     1          7  , 11  , 15  ,  0  ,4HNAME  ,    458752  ,  0  ,\r\n     2         12  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3         13  , 29  , 29  ,  4  ,4HPREC  ,         0  ,  0  ,\r\n     4         14  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5         16  , 11  , 11  ,  0  ,     2  ,         0  ,  0  ,\r\n     6         18  , 11  , 11  ,  3  ,4HQVEC  ,         0  ,  0  ,\r\n     7         19  , 15  , 15  ,  3  ,4HQVEC  ,         0  ,  0  ,\r\n     8         21  , 11  , 11  ,  0  ,     3  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H07  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      RDMAP(15,6) = KHRFN1(RDMAP(15,6),2,SLASH,1)\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 1000\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\nC     MOVE PHASE 3 DATA\r\nC\r\n      IF (IPHASE.NE.3 .OR. NPH.EQ.0) GO TO 200\r\n      DO 110 I = 1,NPH\r\n      K = K + 1\r\n  110 IDAT(K) = IPAS37(I)\r\nC\r\n  200 RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n 1000 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm08.f",
    "content": "      SUBROUTINE ASCM08 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     SOLVE COMMAND DMAP DATA FOR DYNAMIC ANALYSIS\r\nC\r\n      INTEGER         COMND(6,1),SUBNAM(2),ISAVE(21),RDMAP(18,55),\r\n     1                RDMAP1(18,9),RDMAP2(18,9),RDMAP3(18,9),\r\n     2                RDMAP4(18,9),RDMAP5(18,9),RDMAP6(18,9),\r\n     3                RDMAP7(18,1),OCT(3,23),OCT1(3,18),OCT2(3,5),\r\n     4                PTBS(7,25),PTBS1(7,18),PTBS2(7,7)\r\n      COMMON /PHAS28/ IPAS28(14)\r\n      COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1                IPH,NPH,IDAT(1248)\r\n      EQUIVALENCE     (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)),\r\n     1                (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)),\r\n     2                (RDMAP3(1,1),RDMAP(1,19)),(PTBS1(1,1),PTBS(1,1)),\r\n     3                (RDMAP4(1,1),RDMAP(1,28)),(PTBS2(1,1),PTBS(1,19)),\r\n     4                (RDMAP5(1,1),RDMAP(1,37)),\r\n     5                (RDMAP6(1,1),RDMAP(1,46)),\r\n     6                (RDMAP7(1,1),RDMAP(1,55))\r\n      DATA COMND    /\r\n     1                4HSOLV    , 55    ,  0    , 23    , 25    , 14 /\r\n      DATA SLASH    / 1H/       /\r\n      DATA ISAVE    /\r\n     1    4,11,3, 13,10,1, 13,14,3, 13,16,2, 54,8,2, 54,9,2, 54,10,2 /\r\n      DATA RDMAP 1  /\r\n     1 4HALTE,4HR   ,4H  (G,4HP1) ,4H$   ,13*4H    ,\r\n     2 4HPARA,4HM   ,4H  //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HSGEN,4H    ,4H  CA,4HSECC,4H,GEO,4HM3,G,4HEOM4,4H,DYN,4HAMIC,\r\n     * 4HS/CA,4HSESS,4H,CAS,4HEI,G,4HPL,E,4HQEXI,4HN,GP,4HDT, ,4H    ,\r\n     4 4H    ,4H    ,4H  BG,4HPDT,,4HSIL,,4HGE3S,4H,GE4,4HS,DY,4HNS/S,\r\n     * 4H,N,D,4HRY!*,4HNAME,4HSOLS,4H*/S,,4HN,LU,4HSET/,4H    ,4H    ,\r\n     5 4H    ,4H    ,4H  S,,4HN,NO,4HGPDT,4H $  ,12*4H    ,\r\n     6 4HPURG,4HE   ,4H  CS,4HTM $,14*4H    ,\r\n     7 4HEQUI,4HV   ,4H  GE,4H3S,G,4HEOM3,4H/ALW,4HAYS/,4HGE4S,4H,GEO,\r\n     * 4HM4/A,4HLWAY,4HS/CA,4HSEI,,4HCASE,4HCC/A,4HLWAY,4HS/  ,4H    ,\r\n     8 4H    ,4H    ,4H  DY,4HNS,D,4HYNAM,4HICS/,4HALWA,4HYS $,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     9 4HCOND,4H    ,4H  LB,4HSTP,,4HDRY ,4H$   ,12*4H     /\r\n      DATA RDMAP 2  /\r\n     O 4HALTE,4HR   ,4H  (P,4HLOT),4H $  ,13*4H    ,\r\n     1 4HALTE,4HR   ,4H  (C,4HOND),4H $  ,13*4H    ,\r\n     2 4HALTE,4HR   ,4H  (G,4HPWG),4H $  ,13*4H    ,\r\n     3 4HSOFI,4H    ,4H  /K,4HNOS,,4HMNOS,4H,BNO,4HS,K4,4HNOS,,4H/DRY,\r\n     * 4H!*NA,4HMESO,4HLS*/,4H*KMT,4HX*!*,4HMMTX,4H*!*B,4HMTX*,4H/   ,\r\n     4 4H    ,4H    ,4H  *K,4H4MX*,4H $  ,13*4H    ,\r\n     5 4HEQUI,4HV   ,4H  KN,4HOS,K,4HGG/N,4HOKGG,4HX $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     6 4HCOND,4H    ,4H  LB,4H2K,N,4HOKGG,4HX $ ,12*4H    ,\r\n     7 4HADD ,4H    ,4H  KG,4HGX,K,4HNOS/,4HKGG/,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H    ,\r\n     8 4HLABE,4HL   ,4H  LB,4H2K $,14*4H       /\r\n      DATA RDMAP 3  /\r\n     9 4HEQUI,4HV   ,4H  MN,4HOS,M,4HGG/N,4HOMGG,4H $  ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     O 4HCOND,4H    ,4H  LB,4H2M,N,4HOMGG,4H $  ,12*4H    ,\r\n     1 4HADD ,4H    ,4H  MG,4HG,MN,4HOS/M,4HGGX/,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H    ,\r\n     2 4HEQUI,4HV   ,4H  MG,4HGX,M,4HGG/A,4HLWAY,4HS $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HLABE,4HL   ,4H  LB,4H2M $,14*4H    ,\r\n     4 4HEQUI,4HV   ,4H  BN,4HOS,B,4HGG/N,4HOBGG,4H $  ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     5 4HCOND,4H    ,4H  LB,4H2B,N,4HOBGG,4H $  ,12*4H    ,\r\n     6 4HADD ,4H    ,4H  BG,4HG,BN,4HOS/B,4HGGX/,4H(1.0,4H,0.0,4H)/(1,\r\n     * 4H.0,0,4H.0) ,4H$   ,6*4H    ,\r\n     7 4HEQUI,4HV   ,4H  BG,4HGX,B,4HGG/A,4HLWAY,4HS $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H         /\r\n      DATA RDMAP 4  /\r\n     8 4HLABE,4HL   ,4H  LB,4H2B $,14*4H    ,\r\n     9 4HEQUI,4HV   ,4H  K4,4HNOS,,4HK4GG,4H/NOK,4H4GG ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     O 4HCOND,4H    ,4H  LB,4H2K4,,4HNOK4,4HGG $,12*4H    ,\r\n     1 4HADD ,4H    ,4H  K4,4HGG,K,4H4NOS,4H/K4G,4HGX/ ,4H(1.0,4H,0.0,\r\n     * 4H)/(1,4H.0,0,4H.0) ,4H$   ,5*4H    ,\r\n     2 4HEQUI,4HV   ,4H  K4,4HGGX,,4HK4GG,4H/ALW,4HAYS ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HLABE,4HL   ,4H  LB,4H2K4 ,4H$   ,13*4H    ,\r\n     4 4HLABE,4HL   ,4H  LB,4HSTP ,4H$   ,13*4H    ,\r\n     5 4HCHKP,4HNT  ,4H  MG,4HG,BG,4HG,K4,4HGG $,12*4H    ,\r\n     6 4HALTE,4HR   ,4H  (P,4HARAM,4H) $ ,13*4H           /\r\n      DATA RDMAP 5  /\r\n     7 4HPARA,4HM   ,4H  //,4H*AND,4H*/MD,4HEMA/,4HNOUE,4H/NOM,4H2PP ,\r\n     * 4H$   ,8*4H    ,\r\n     8 4HPARA,4HM   ,4H  //,4H*ADD,4H*/KD,4HEK2/,4H1/0 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     9 4HPARA,4HM   ,4H  //,4H*ADD,4H*/NO,4HMGG/,4H1/0 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     O 4HPARA,4HM   ,4H  //,4H*ADD,4H*/NO,4HBGG/,4H1/0 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     1 4HPARA,4HM   ,4H  //,4H*ADD,4H*/NO,4HK4GG,4H/1/0,4H $  ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     2 4HALTE,4HR   ,4H  (E,4HQUIV,4H) $ ,13*4H    ,\r\n     3 4HEQUI,4HV   ,4H  K2,4HDD,K,4HDD/K,4HDEK2,4H $  ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     4 4HEQUI,4HV   ,4H  M2,4HDD,M,4HDD/N,4HOMGG,4H $  ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     5 4HEQUI,4HV   ,4H  B2,4HDD,B,4HDD/N,4HOBGG,4H $  ,4H    ,4H    ,\r\n     * 4H    ,8*4H         /\r\n      DATA RDMAP 6  /\r\n     6 4HALTE,4HR   ,4H  (S,4HDR2),4H $  ,13*4H    ,\r\n     7 4HEQUI,4HV   ,4H  UP,4HVF,U,4HPVC/,4HNOA ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     8 4HCOND,4H    ,4H  LB,4HL19,,4HNOA ,4H$   ,12*4H    ,\r\n     9 4HSDR1,4H    ,4H  US,4HETD,,4H,UDV,4HF,,,,4HGOD,,4HGMD,,4H,,,/,\r\n     * 4HUPVC,4H,,/1,4H/DYN,4HAMIC,4HS $ , 4*4H    ,\r\n     O 4HLABE,4HL   ,4H  LB,4HL19 ,4H$   ,13*4H    ,\r\n     1 4HCHKP,4HNT  ,4H  UP,4HVC $,14*4H    ,\r\n     2 4HEQUI,4HV   ,4H  UP,4HVC,U,4HGV/N,4HOUE ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HCOND,4H    ,4H  LB,4HUE,N,4HOUE ,4H$   ,12*4H    ,\r\n     4 4HUPAR,4HTN  ,4H  US,4HET,U,4HPVC/,4HUGV,,4HUEV,,4H,!*P,4H*!*G,\r\n     * 4H*!*E,4H* $ ,7*4H       /\r\n      DATA RDMAP 7  /\r\n     5 4HLABE,4HL   ,4H  LB,4HUE $,14*4H      /\r\n      DATA OCT 1    /\r\n     1                   15    ,         0    ,         1  ,\r\n     2                   16    ,         0    ,         1  ,\r\n     3                   17    ,         0    ,         1  ,\r\n     4                   18    ,         0    ,         1  ,\r\n     5                   19    ,         0    ,         2  ,\r\n     6                   20    ,         0    ,         2  ,\r\n     7                   21    ,         0    ,         2  ,\r\n     8                   22    ,         0    ,         2  ,\r\n     9                   23    ,         0    ,         2  ,\r\n     O                   24    ,         0    ,        16  ,\r\n     1                   25    ,         0    ,        16  ,\r\n     2                   26    ,         0    ,        16  ,\r\n     3                   27    ,         0    ,        16  ,\r\n     4                   28    ,         0    ,        16  ,\r\n     5                   29    ,         0    ,        32  ,\r\n     6                   30    ,         0    ,        32  ,\r\n     7                   31    ,         0    ,        32  ,\r\n     8                   32    ,         0    ,        32  /\r\n      DATA OCT 2   /\r\n     1                   33    ,         0    ,        32  ,\r\n     2                   38    ,         0    ,         1  ,\r\n     3                   39    ,         0    ,         2  ,\r\n     4                   40    ,         0    ,        16  ,\r\n     5                   41    ,         0    ,        32  /\r\n      DATA PTBS 1  /\r\n     1          1  , 11  , 11  ,  5  ,     1  ,         0  ,  0  ,\r\n     2          4  , 43  , 45  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     3          9  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4         10  , 11  , 11  ,  6  ,     2  ,         0  ,  0  ,\r\n     5         11  , 11  , 11  ,  6  ,     3  ,         0  ,  0  ,\r\n     6         12  , 11  , 11  ,  6  ,     4  ,         0  ,  0  ,\r\n     7         13  , 12  , 13  ,  3  ,4HNANO  ,         1  , -1  ,\r\n     8         13  , 17  , 18  ,  3  ,4HNANO  ,         2  , -1  ,\r\n     9         13  , 22  , 23  ,  3  ,4HNANO  ,        16  , -1  ,\r\n     O         13  , 27  , 29  ,  3  ,4HNANO  ,        32  , -1  ,\r\n     1         13  , 37  , 39  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     2         15  , 11  , 12  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     3         17  , 16  , 17  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     4         19  , 11  , 12  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     5         21  , 15  , 16  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     6         24  , 11  , 12  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     7         26  , 15  , 16  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     8         29  , 11  , 13  ,  3  ,4HNANO  ,         0  ,  0  /\r\n      DATA PTBS 2  /\r\n     1         31  , 16  , 18  ,  3  ,4HNANO  ,         0  ,  0  ,\r\n     2         34  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3         36  , 11  , 11  ,  7  ,     5  ,         0  ,  0  ,\r\n     4         42  , 11  , 11  ,  7  ,     6  ,         0  ,  0  ,\r\n     5         46  , 11  , 11  ,  6  ,     7  ,         0  ,  0  ,\r\n     6         47  , 11  , 11  ,  4  ,4HDVEC  ,         0  ,  0  ,\r\n     7         49  , 18  , 18  ,  4  ,4HDVEC  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H08  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      DO 20 L = 1,21,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 1000\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\nC     MOVE PHASE 2 DATA\r\nC\r\n      IF (IPHASE.NE.2 .OR. NPH.EQ.0) GO TO 100\r\n      DO 90 I = 1,NPH\r\n      K = K + 1\r\n   90 IDAT(K) = IPAS28(I)\r\n      GO TO 200\r\n  100 CONTINUE\r\nC\r\n  200 RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n 1000 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm09.f",
    "content": "      SUBROUTINE ASCM09 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     MREDUCE COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,1),XTRA(13),SUBNAM(2),ISAVE(30),\r\n     1               RDMAP(18,25),RDMAP1(18,9),RDMAP2(18,9),\r\n     2               RDMAP3(18,7),OCT(3,16),OCT1(3,16),PTBS(7,53),\r\n     3               PTBS1(7,18),PTBS2(7,18),PTBS3(7,17)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(882)\r\n      EQUIVALENCE    (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1,1)),\r\n     1               (RDMAP2(1,1),RDMAP(1,10)),(PTBS1(1,1),PTBS(1,1)),\r\n     2               (RDMAP3(1,1),RDMAP(1,19)),(PTBS2(1,1),PTBS(1,19)),\r\n     3               (PTBS3(1,1),PTBS(1,37))\r\n      DATA COMND   /\r\n     1                4HMRED    , 25    , 13    , 16    , 53    ,  0  /\r\n      DATA SLASH   /  1H/       /\r\n      DATA ISAVE   /\r\n     1   1,15,1,  2,11,2,  4,12,1,  4,16,3,  5, 5,1, 19, 7,3, 19, 8,3,\r\n     2  19, 9,3, 22,15,2, 24, 6,2    /\r\n      DATA RDMAP 1 /\r\n     1 4HMRED,4H1   ,4H  CA,4HSECC,4H,GEO,4HM4,D,4HYNAM,4HICS,,4HCSTM,\r\n     * 4H/USE,4HTR,E,4HEDR,,4HEQST,4H,DMR,4H!*NA,4HMEA ,4H  */,4H    ,\r\n     2 4H    ,4H    ,4H  S,,4HN,DR,4HY/ST,4HP/S,,4HN,NO,4HFIX/,4HS,N,,\r\n     * 4HSKIP,4HM!*R,4HEAL*,4H $  , 5*4H    ,\r\n     3 4HCOND,4H    ,4H  LB,4HM3ST,4HP,DR,4HY $ ,12*4H    ,\r\n     4 4HSOFI,4H    ,4H  /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA,\r\n     * 4H/S,N,4H,DRY,4H!*NA,4HMEA ,4H  */,4H*KMT,4HX*!*,4HMMTX,4H*/  ,\r\n     5 4H    ,4H    ,4H  *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     6 4HCOND,4H    ,4H  LB,4HM2ST,4HP,SK,4HIPM ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     7 4HEQUI,4HV   ,4H  KN,4HOA,K,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     8 4HEQUI,4HV   ,4H  MN,4HOA,M,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     9 4HEQUI,4HV   ,4H  BN,4HOA,B,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    , 8*4H        /\r\n      DATA RDMAP 2 /\r\n     O 4HEQUI,4HV   ,4H  K4,4HNOA,,4HK4FF,4HX/NO,4HFIX ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     1 4HCOND,4H    ,4H  LB,4HM1ST,4HP,NO,4HFIX ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     2 4HSCE1,4H    ,4H  US,4HETR,,4HKNOA,4H,MNO,4HA,BN,4HOA,K,4H4NOA,\r\n     * 4H/KFF,4HX,KF,4HSX,K,4HSSX,,4HMFFX,4H,BFF,4HX,K4,4HFFX ,4H$   ,\r\n     3 4HLABE,4HL   ,4H  LB,4HM1ST,4HP $ ,13*4H    ,\r\n     4 4HREAD,4H    ,4H  KF,4HFX,M,4HFFX,,4HBFFX,4H,K4F,4HFX,E,4HEDR,,\r\n     * 4HUSET,4HR,/L,4HAMAR,4H,PHI,4HR,MI,4HR,OE,4HIGR/,4H*MOD,4HES*/,\r\n     5 4H    ,4H    ,4H  NE,4HIGVS,4H $  ,13*4H    ,\r\n     6 4HOFP ,4H    ,4H  LA,4HMAR,,4HOEIG,4HR,,,,4H,// ,4H$   ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     7 4HEQUI,4HV   ,4H  PH,4HIR,P,4HHIS/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    , 8*4H    ,\r\n     8 4HCOND,4H    ,4H  LB,4HM2ST,4HP,NO,4HFIX ,4H$   ,4H    ,4H    ,\r\n     * 4H    , 8*4H        /\r\n      DATA RDMAP 3 /\r\n     9 4HUMER,4HGE  ,4H  US,4HETR,,4HPHIR,4H,/PH,4HIS!*,4HN*!*,4HF*!*,\r\n     * 4HS* $, 8*4H    ,\r\n     O 4HLABE,4HL   ,4H  LB,4HM2ST,4HP $ ,13*4H    ,\r\n     1 4HMRED,4H2   ,4H  CA,4HSECC,4H,LAM,4HAR,P,4HHIS,,4HEQST,4H,USE,\r\n     * 4HTR,K,4HNOA,,4HMNOA,4H,BNO,4HA,K4,4HNOA,,4HPNOA,4H,DMR,4H,   ,\r\n     2 4H    ,4H    ,4H  QS,4HM/KN,4HOB,M,4HNOB,,4HBNOB,4H,K4N,4HOB,P,\r\n     * 4HNOB,,4HPONO,4HB/ST,4HP/S,,4HN,DR,4HY!*P,4HVEC*,4H $  ,4H    ,\r\n     3 4HLABE,4HL   ,4H  LB,4HM3ST,4HP $ ,13*4H    ,\r\n     4 4HLODA,4HPP  ,4H  PN,4HOB,P,4HONOB,4H/!*N,4HAMEB,4H   *,4H/S,N,\r\n     * 4H,DRY,4H $  , 7*4H    ,\r\n     5 4HCOND,4H    ,4H  FI,4HNIS,,4HDRY ,4H$   ,12*4H        /\r\n      DATA XTRA   /\r\n     1              4HNAME,4HBOUN,4HFIXE,4HMETH,4HRANG,4HNMAX,4HOLDM ,\r\n     2              4HOLDB,4HUSER,4HOUTP,4HRGRI,4HRNAM,4HRSAV        /\r\n      DATA OCT 1  /\r\n     1                    6    ,         8    ,         0  ,\r\n     2                    7    ,         8    ,         1  ,\r\n     3                    8    ,         8    ,         2  ,\r\n     4                    9    ,         8    ,        16  ,\r\n     5                   10    ,         8    ,        32  ,\r\n     6                   11    ,         8    ,         0  ,\r\n     7                   12    ,         8    ,         0  ,\r\n     8                   13    ,         8    ,         0  ,\r\n     9                   14    ,         8    ,         0  ,\r\n     O                   15    ,         8    ,         0  ,\r\n     1                   16    ,         8    ,         0  ,\r\n     2                   17    ,         8    ,         0  ,\r\n     3                   18    ,         8    ,         0  ,\r\n     4                   19    ,         8    ,         0  ,\r\n     5                   20    ,         8    ,         0  ,\r\n     6                   24    ,         0    ,         8  /\r\n      DATA PTBS 1  /\r\n     1          1  , 59  , 59  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     2          2  , 19  , 19  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3          3  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4          4  , 12  , 13  ,  3  ,4HNONA  ,         1  , -1  ,\r\n     5          4  , 17  , 18  ,  3  ,4HNONA  ,         2  , -1  ,\r\n     6          4  , 22  , 23  ,  3  ,4HNONA  ,        12  , -1  ,\r\n     7          4  , 27  , 28  ,  3  ,4HNONA  ,        16  , -1  ,\r\n     8          4  , 32  , 34  ,  3  ,4HNONA  ,        32  , -1  ,\r\n     9          4  , 47  , 47  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     O          5  , 12  , 12  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     1          6  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2          7  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     3          8  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     4          9  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     5         10  , 11  , 13  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6         11  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     7         12  , 17  , 18  ,  3  ,4HNONA  ,         1  ,  0  ,\r\n     8         12  , 22  , 23  ,  3  ,4HNONA  ,         2  ,  0  /\r\n      DATA PTBS 2  /\r\n     1         12  , 27  , 28  ,  3  ,4HNONA  ,        16  ,  0  ,\r\n     2         12  , 32  , 34  ,  3  ,4HNONA  ,        32  ,  0  ,\r\n     3         12  , 38  , 42  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     4         12  , 43  , 47  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     5         12  , 48  , 52  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     6         12  , 53  , 57  ,  0  ,4HNAMA  ,         2  ,  0  ,\r\n     7         12  , 58  , 62  ,  0  ,4HNAMA  ,        16  ,  0  ,\r\n     8         12  , 63  , 68  ,  0  ,4HNAMA  ,        32  ,  0  ,\r\n     9         13  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     O         14  , 11  , 15  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     1         14  , 16  , 20  ,  0  ,4HNAMA  ,         2  ,  0  ,\r\n     2         14  , 21  , 25  ,  0  ,4HNAMA  ,        16  ,  0  ,\r\n     3         14  , 26  , 31  ,  0  ,4HNAMA  ,        32  ,  0  ,\r\n     4         18  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5         20  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6         21  , 18  , 23  ,  0  ,4HNAMA  ,        55  ,  0  ,\r\n     7         21  , 24  , 28  ,  0  ,4HNAMA  ,        55  ,  0  ,\r\n     8         21  , 40  , 41  ,  3  ,4HNONA  ,         1  ,  0  /\r\n      DATA PTBS 3  /\r\n     1         21  , 45  , 46  ,  3  ,4HNONA  ,         2  ,  0  ,\r\n     2         21  , 50  , 51  ,  3  ,4HNONA  ,        16  ,  0  ,\r\n     3         21  , 55  , 57  ,  3  ,4HNONA  ,        32  ,  0  ,\r\n     4         21  , 61  , 62  ,  3  ,4HNONA  ,        12  ,  0  ,\r\n     5         22  , 11  , 14  ,  0  ,4HNAMA  ,    131072  ,  0  ,\r\n     6         22  , 15  , 16  ,  3  ,4HNONB  ,         1  , -1  ,\r\n     7         22  , 20  , 21  ,  3  ,4HNONB  ,         2  , -1  ,\r\n     8         22  , 25  , 26  ,  3  ,4HNONB  ,        16  , -1  ,\r\n     9         22  , 30  , 32  ,  3  ,4HNONB  ,        32  , -1  ,\r\n     O         22  , 36  , 37  ,  3  ,4HNONB  ,        12  , -1  ,\r\n     1         22  , 41  , 43  ,  3  ,4HNONB  ,        12  , -1  ,\r\n     2         22  , 47  , 47  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3         22  , 60  , 60  ,  4  ,4HPITM  ,        12  ,  0  ,\r\n     4         23  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5         24  , 11  , 12  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     6         24  , 16  , 18  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     7         24  , 24  , 24  ,  8  ,4HNAMB  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H09  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      DO 20 L = 1,30,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 70\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm10.f",
    "content": "      SUBROUTINE ASCM10 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     SUBSTRUCTURE UTILITY COMMANDS DMAP DATA\r\nC\r\n      INTEGER        COMND(6,6),XTRA(1),SUBNAM(2),RDMAP(18,2),PTBS(7,10)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(109)\r\n      DATA    COMND/\r\n     1               4HDEST    ,  2    ,  0    ,  0    ,  3    ,  0  ,\r\n     2               4HEDIT    ,  2    ,  0    ,  0    ,  3    ,  0  ,\r\n     3               4HEQUI    ,  2    ,  1    ,  0    ,  5    ,  0  ,\r\n     4               4HSOFP    ,  2    ,  0    ,  0    , 10    ,  0  ,\r\n     5               4HDELE    ,  2    ,  0    ,  0    , 10    ,  0  ,\r\n     6               4HRENA    ,  2    ,  0    ,  0    ,  5    ,  0  /\r\n      DATA    SLASH/ 1H/       /\r\n      DATA    RDMAP/\r\n     1 4HSOFU,4HT   ,4H  //,4HDRY/,4H*NAM,4HE   ,4H *!*,4HOPER,4H*/OP,\r\n     * 4HT!*N,4HAME0,4H002*,4H!*PR,4HEF*/,4H*ITM,4H1*!*,4HITM2,4H*/  ,\r\n     2 4H    ,4H    ,4H  *I,4HTM3*,4H!*IT,4HM4*/,4H*ITM,4H5* $,4H    ,\r\n     * 4H    ,8*4H          /\r\n      DATA    XTRA / 4HPREF /\r\n      DATA    PTBS /\r\n     1          1  , 16  , 18  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     2          1  , 27  , 29  ,  4  ,4HOPER  ,         0  ,  0  ,\r\n     3          1  , 34  , 35  ,  3  ,4HOPTI  ,         0  ,  0  ,\r\n     4          1  , 38  , 40  ,  8  ,4HNEW   ,         0  ,  0  ,\r\n     5          1  , 49  , 51  ,  4  ,4HPREF  ,         0  ,  0  ,\r\n     6          1  , 56  , 58  ,  4  ,4HITM1  ,         0  ,  0  ,\r\n     7          1  , 63  , 65  ,  4  ,4HITM2  ,         0  ,  0  ,\r\n     8          2  , 11  , 12  ,  4  ,4HITM3  ,         0  ,  0  ,\r\n     9          2  , 17  , 19  ,  4  ,4HITM4  ,         0  ,  0  ,\r\n     O          2  , 24  , 26  ,  4  ,4HITM5  ,         0  ,  0  /\r\n      DATA   SUBNAM / 4HASCM,2H10    /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      RDMAP(7, 1) = KHRFN1(RDMAP(7, 1),3,SLASH,1)\r\n      RDMAP(10,1) = KHRFN1(RDMAP(10,1),2,SLASH,1)\r\n      RDMAP(13,1) = KHRFN1(RDMAP(13,1),1,SLASH,1)\r\n      RDMAP(16,1) = KHRFN1(RDMAP(16,1),3,SLASH,1)\r\n      RDMAP(5, 2) = KHRFN1(RDMAP(5, 2),1,SLASH,1)\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      DO 10 I = 1,6\r\n      IF (NAME .EQ. COMND(1,I)) GO TO 20\r\n   10 CONTINUE\r\n      GO TO 70\r\n   20 ICOMND = I\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm11.f",
    "content": "      SUBROUTINE ASCM11 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     EXIO COMMANDS DMAP DATA\r\nC\r\n      INTEGER        COMND(6,7),SUBNAM(2),RDMAP(18,2),XTRA(4),\r\n     1               PTBS(7,12),ISAVE(21)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(126)\r\n      DATA    COMND/\r\n     1               4HSOFI    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     2               4HSOFO    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     3               4HREST    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     4               4HDUMP    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     5               4HCHEC    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     6               4HCOMP    ,  2    ,  4    ,  0    , 12    ,  0  ,\r\n     7               4HAPPE    ,  2    ,  4    ,  0    , 12    ,  0  /\r\n      DATA    SLASH/ 1H/       /\r\n      DATA    ISAVE/\r\n     1   1, 7,1,  1,11,3,  1,13,2,  1,15,1,  2, 6,1,  2,11,3,  2,14,2/\r\n      DATA    RDMAP/\r\n     1 4HEXIO,4H    ,4H  //,4HS,N,,4HDRY/,4HMACH,4H!*DE,4HVI*/,4H*UNI,\r\n     * 4HTNAM,4HE*!*,4HFORM,4H*!*M,4HODE*,4H!*PO,4HSI*/,4H*ITE,4HM*/ ,\r\n     2 4H    ,4H    ,4H  *N,4HAME0,4H001*,4H!*NA,4HME00,4H02*/,4H*NAM,\r\n     * 4HE000,4H3*!*,4HNAME,4H0004,4H*!*N,4HAME0,4H005*,4H $  ,4H    /\r\n      DATA    XTRA / 4HMACH,4HPOSI,4HITEM,4HNAME /\r\n      DATA    PTBS /\r\n     1          1  , 21  , 21  ,  4  ,   101  ,         0  ,  0  ,\r\n     2          1  , 27  , 27  ,  4  ,   102  ,         0  ,  0  ,\r\n     3          1  , 34  , 34  ,  8  ,   103  ,         0  ,  0  ,\r\n     4          1  , 45  , 45  ,  4  ,   104  ,         0  ,  0  ,\r\n     5          1  , 52  , 52  ,  4  ,   105  ,         0  ,  0  ,\r\n     6          1  , 59  , 59  ,  4  ,   106  ,         0  ,  0  ,\r\n     7          1  , 66  , 66  ,  4  ,   107  ,         0  ,  0  ,\r\n     8          2  , 12  , 12  ,  8  ,   108  ,         0  ,  0  ,\r\n     9          2  , 23  , 23  ,  8  ,   109  ,         0  ,  0  ,\r\n     O          2  , 34  , 34  ,  8  ,   110  ,         0  ,  0  ,\r\n     1          2  , 45  , 45  ,  8  ,   111  ,         0  ,  0  ,\r\n     2          2  , 56  , 56  ,  8  ,   112  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H11  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      DO 10 L = 1,21,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   10 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      DO 15 I = 1,7\r\n      IF (NAME .EQ. COMND(1,I)) GO TO 20\r\n   15 CONTINUE\r\n      GO TO 70\r\n   20 ICOMND = I\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm12.f",
    "content": "      SUBROUTINE ASCM12 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     PLOT COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,1),SUBNAM(2),RDMAP(18,6),PTBS(7,15)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT(213)\r\n      DATA    COMND/ 4HPLOT,  6,  0,  0, 15,  0   /\r\n      DATA    RDMAP/\r\n     1 4HPLTM,4HRG  ,4H  CA,4HSECC,4H,PCD,4HB/PL,4HTSTP,4H,GPS,4HTP,E,\r\n     * 4HLSTP,4H,BGS,4HTP,C,4HASST,4HP,EQ,4HSTP/,4H*NAM,4HE   ,4H */ ,\r\n     2 4H    ,4H    ,4H  S,,4HN,NG,4HP/S,,4HN,LS,4HIL/S,4H,N,N,4HPSET,\r\n     * 4H $  , 8*4H    ,\r\n     3 4HSETV,4HAL  ,4H  //,4HS,N,,4HPLTF,4HLG/1,4H/S,N,4H,PFI,4HL/0 ,\r\n     * 4H$   , 8*4H    ,\r\n     4 4HPLOT,4H    ,4H  PL,4HTSTP,4H,GPS,4HTP,E,4HLSTP,4H,CAS,4HSTP,,\r\n     * 4HBGST,4HP,EQ,4HSTP,,4H,,,,,4H,,/P,4HMSTP,4H/NGP,4H/LSI,4HL/  ,\r\n     5 4H    ,4H    ,4H  S,,4HN,NP,4HSET/,4HS,N,,4HPLTF,4HLG/S,4H,N,P,\r\n     * 4HFIL ,4H$   , 7*4H    ,\r\n     6 4HPRTM,4HSG  ,4H  PM,4HSTP/,4H/ $ ,13*4H        /\r\n      DATA    PTBS /\r\n     1           1  , 26  , 26  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2           1  , 32  , 32  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3           1  , 38  , 38  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4           1  , 44  , 44  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5           1  , 51  , 51  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6           1  , 57  , 57  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     7           1  , 62  , 62  ,  8  ,4HNAME  ,         0  ,  0  ,\r\n     8           4  , 14  , 14  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     9           4  , 20  , 20  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     O           4  , 26  , 26  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     1           4  , 33  , 33  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2           4  , 39  , 39  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3           4  , 45  , 45  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4           4  , 58  , 58  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5           6  , 13  , 13  ,  3  ,4HSTEP  ,         0  ,  0  /\r\n      DATA  SUBNAM  / 4HASCM,2H12  /\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 70\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ascm13.f",
    "content": "      SUBROUTINE ASCM13 (NAME,IPHASE,ISOL,NOGO)\r\nC\r\nC     CREDUCE COMMAND DMAP DATA\r\nC\r\n      INTEGER        COMND(6,1),XTRA(11),SUBNAM(2),ISAVE(39),\r\n     1               RDMAP(18,30),RDMAP1(18,9),RDMAP2(18,9),\r\n     2               RDMAP3(18,9),RDMAP4(18,3),OCT(3,20),OCT1(3,18),\r\n     3               OCT2(3,2),PTBS(7,53),PTBS1(7,18),PTBS2(7,18),\r\n     4               PTBS3(7,17)\r\n      COMMON /ASDBD/ IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1               IPH,NPH,IDAT( 982)\r\n      EQUIVALENCE    (RDMAP1(1,1),RDMAP(1, 1)),(OCT1(1,1),OCT(1, 1)),\r\n     1               (RDMAP2(1,1),RDMAP(1,10)),(OCT2(1,1),OCT(1,19)),\r\n     2               (RDMAP3(1,1),RDMAP(1,19)),(PTBS1(1,1),PTBS(1,1)),\r\n     3               (RDMAP4(1,1),RDMAP(1,28)),(PTBS2(1,1),PTBS(1,19)),\r\n     4               (PTBS3 (1,1),PTBS (1,37))\r\n      DATA COMND   /\r\n     1               4HCRED    , 30    , 11    , 20    , 53    ,  0  /\r\n      DATA SLASH   / 1H/       /\r\n      DATA ISAVE   /\r\n     1   2,15,1,  3,11,2,  5,12,1,  5,16,3,  6, 5,1, 23,8,1, 23,9,1,\r\n     2  23,10,1, 24, 8,1, 24, 9,1, 24,10,1, 27,14,2, 29, 6,2         /\r\n      DATA RDMAP 1 /\r\n     1 4HPARA,4HM   ,4H  //,4H*NOP,4H*/AL,4HWAYS,4H=-1 ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     2 4HMRED,4H1   ,4H  CA,4HSECC,4H,GEO,4HM4,D,4HYNAM,4HICS,,4HCSTM,\r\n     * 4H/USE,4HTR,E,4HEDR,,4HEQST,4H,DMR,4H!*NA,4HMEA ,4H  */,4H    ,\r\n     3 4H    ,4H    ,4H  S,,4HN,DR,4HY/ST,4HP/S,,4HN,NO,4HFIX/,4HS,N,,\r\n     * 4HSKIP,4HM!*C,4HOMPL,4HEX* ,4H$   , 4*4H    ,\r\n     4 4HCOND,4H    ,4H  LB,4HM3ST,4HP,DR,4HY $ ,12*4H    ,\r\n     5 4HSOFI,4H    ,4H  /K,4HNOA,,4HMNOA,4H,PNO,4HA,BN,4HOA,K,4H4NOA,\r\n     * 4H/S,N,4H,DRY,4H!*NA,4HMEA ,4H  */,4H*KMT,4HX*!*,4HMMTX,4H*/  ,\r\n     6 4H    ,4H    ,4H  *P,4HVEC*,4H!*BM,4HTX*/,4H*K4M,4HX* $,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     7 4HCOND,4H    ,4H  LB,4HM2ST,4HP,SK,4HIPM ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     8 4HEQUI,4HV   ,4H  KN,4HOA,K,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     9 4HEQUI,4HV   ,4H  MN,4HOA,M,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H         /\r\n      DATA RDMAP 2 /\r\n     O 4HEQUI,4HV   ,4H  BN,4HOA,B,4HFFX/,4HNOFI,4HX $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     1 4HEQUI,4HV   ,4H  K4,4HNOA,,4HK4FF,4HX/NO,4HFIX ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HM1ST,4HP,NO,4HFIX ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HSCE1,4H    ,4H  US,4HETR,,4HKNOA,4H,MNO,4HA,BN,4HOA,K,4H4NOA,\r\n     * 4H/KFF,4HX,KF,4HSX,K,4HSSX,,4HMFFX,4H,BFF,4HX,K4,4HFFX ,4H$   ,\r\n     4 4HLABE,4HL   ,4H  LB,4HM1ST,4HP $ ,13*4H    ,\r\n     5 4HPARA,4HMR  ,4H  //,4H*COM,4HPLEX,4H*//1,4H.0/G,4HPARA,4HM  /,\r\n     * 4HG $ ,8*4H    ,\r\n     6 4HADD ,4H    ,4H  KF,4HFX,K,4H4FFX,4H/KDD,4H/G/(,4H0.0,,4H1.0),\r\n     * 4H/(1.,4H0,0.,4H0)  ,4H$   ,5*4H    ,\r\n     7 4HEQUI,4HV   ,4H  KD,4HD,KF,4HFX/A,4HLWAY,4HS $ ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     8 4HCEAD,4H    ,4H  KF,4HFX,B,4HFFX,,4HMFFX,4H,EED,4HR,/P,4HHIDR,\r\n     * 4H,CLA,4HMA,O,4HCEIG,4HS,PH,4HIDL/,4HNEIG,4HVS $,4H    ,4H    /\r\n      DATA RDMAP 3 /\r\n     9 4HOFP ,4H    ,4H  CL,4HAMA,,4HOCEI,4HGS,,,4H,,//,4H $  ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     O 4HEQUI,4HV   ,4H  PH,4HIDR,,4HPHIF,4HR/NO,4HFIX ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     1 4HEQUI,4HV   ,4H  PH,4HIDL,,4HPHIF,4HL/NO,4HFIX ,4H$   ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     2 4HCOND,4H    ,4H  LB,4HM2ST,4HP,NO,4HFIX ,4H$   ,4H    ,4H    ,\r\n     * 4H    ,8*4H    ,\r\n     3 4HUMER,4HGE  ,4H  US,4HETR,,4HPHID,4HR,/P,4HHIFR,4H!*N*,4H!*F*,\r\n     * 4H!*S*,4H $  , 7*4H    ,\r\n     4 4HUMER,4HGE  ,4H  US,4HETR,,4HPHID,4HL,/P,4HHIFL,4H!*N*,4H!*F*,\r\n     * 4H!*S*,4H $  , 7*4H    ,\r\n     5 4HLABE,4HL   ,4H  LB,4HM2ST,4HP $ ,13*4H    ,\r\n     6 4HCMRE,4HD2  ,4H  CA,4HSECC,4H,CLA,4HMA,P,4HHIFR,4H,PHI,4HFL,E,\r\n     * 4HQST,,4HUSET,4HR,KN,4HOA,M,4HNOA,,4HBNOA,4H,K4N,4HOA,P,4HNOA/,\r\n     7 4H    ,4H    ,4H  KN,4HOB,M,4HNOB,,4HBNOB,4H,K4N,4HOB,P,4HNOB,,\r\n     * 4HPONO,4HB/ST,4HP/S,,4HN,DR,4HY!*P,4HVEC*,4H $  ,4H    ,4H    /\r\n      DATA RDMAP 4 /\r\n     8 4HLABE,4HL   ,4H  LB,4HM3ST,4HP $ ,13*4H    ,\r\n     9 4HLODA,4HPP  ,4H  PN,4HOB,P,4HONOB,4H/!*N,4HAMEB,4H   *,4H/S,N,\r\n     * 4H,DRY,4H $  ,7*4H    ,\r\n     O 4HCOND,4H    ,4H  FI,4HNIS,,4HDRY ,4H$   ,12*4H        /\r\n      DATA XTRA    /\r\n     1              4HNAME,4HBOUN,4HFIXE,4HMETH,4HRANG,4HNMAX,4HUSER,\r\n     2              4HOUTP,4HOLDM,4HGPAR,4HRSAV/\r\n      DATA OCT 1   /\r\n     1                    7    ,         8    ,         0  ,\r\n     2                    8    ,         8    ,         1  ,\r\n     3                    9    ,         8    ,         2  ,\r\n     4                   10    ,         8    ,        16  ,\r\n     5                   11    ,         8    ,        32  ,\r\n     6                   12    ,         8    ,         0  ,\r\n     7                   13    ,         8    ,         0  ,\r\n     8                   14    ,         8    ,         0  ,\r\n     9                   15    ,         8    ,         0  ,\r\n     O                   16    ,         8    ,         0  ,\r\n     1                   17    ,         8    ,         0  ,\r\n     2                   18    ,         8    ,         0  ,\r\n     3                   19    ,         8    ,         0  ,\r\n     4                   20    ,         8    ,         0  ,\r\n     5                   21    ,         8    ,         0  ,\r\n     6                   22    ,         8    ,         0  ,\r\n     7                   23    ,         8    ,         0  ,\r\n     8                   24    ,         8    ,         0  /\r\n      DATA OCT 2   /\r\n     1                   25    ,         8    ,         0  ,\r\n     2                   29    ,         0    ,         8  /\r\n      DATA PTBS 1  /\r\n     1          2  , 59  , 59  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     2          3  , 19  , 19  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3          4  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     4          5  , 12  , 13  ,  3  ,4HNONA  ,         1  , -1  ,\r\n     5          5  , 17  , 18  ,  3  ,4HNONA  ,         2  , -1  ,\r\n     6          5  , 22  , 23  ,  3  ,4HNONA  ,        12  , -1  ,\r\n     7          5  , 27  , 28  ,  3  ,4HNONA  ,        16  , -1  ,\r\n     8          5  , 32  , 34  ,  3  ,4HNONA  ,        32  , -1  ,\r\n     9          5  , 47  , 47  ,  8  ,4HNAMA  ,         0  ,  0  ,\r\n     O          6  , 12  , 12  ,  4  ,4HPITM  ,         0  ,  0  ,\r\n     1          7  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     2          8  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     3          9  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     4         10  , 11  , 12  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     5         11  , 11  , 13  ,  3  ,4HNONA  ,         0  ,  0  ,\r\n     6         12  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     7         13  , 17  , 18  ,  3  ,4HNONA  ,         1  ,  0  ,\r\n     8         13  , 22  , 23  ,  3  ,4HNONA  ,         2  ,  0  /\r\n      DATA PTBS 2  /\r\n     1         13  , 27  , 28  ,  3  ,4HNONA  ,        16  ,  0  ,\r\n     2         13  , 32  , 34  ,  3  ,4HNONA  ,        32  ,  0  ,\r\n     3         13  , 38  , 42  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     4         13  , 43  , 47  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     5         13  , 48  , 52  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     6         13  , 53  , 57  ,  0  ,4HNAMA  ,         2  ,  0  ,\r\n     7         13  , 58  , 62  ,  0  ,4HNAMA  ,        16  ,  0  ,\r\n     8         13  , 63  , 68  ,  0  ,4HNAMA  ,        32  ,  0  ,\r\n     9         14  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     O         15  , 28  , 28  ,  8  ,4HGPAR  ,         0  ,  0  ,\r\n     1         18  , 11  , 15  ,  0  ,4HNAMA  ,         1  ,  0  ,\r\n     2         18  , 16  , 20  ,  0  ,4HNAMA  ,        16  ,  0  ,\r\n     3         18  , 21  , 25  ,  0  ,4HNAMA  ,         2  ,  0  ,\r\n     4         22  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5         25  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     6         26  , 18  , 23  ,  0  ,4HNAMA  ,        55  ,  0  ,\r\n     7         26  , 24  , 29  ,  0  ,4HNAMA  ,        55  ,  0  ,\r\n     8         26  , 30  , 35  ,  0  ,4HNAMA  ,        55  ,  0  /\r\n      DATA PTBS 3  /\r\n     1         26  , 47  , 48  ,  3  ,4HNONA  ,         1  ,  0  ,\r\n     2         26  , 52  , 53  ,  3  ,4HNONA  ,         2  ,  0  ,\r\n     3         26  , 57  , 58  ,  3  ,4HNONA  ,        16  ,  0  ,\r\n     4         26  , 62  , 64  ,  3  ,4HNONA  ,        32  ,  0  ,\r\n     5         26  , 68  , 69  ,  3  ,4HNONA  ,        12  ,  0  ,\r\n     6         27  , 11  , 12  ,  3  ,4HNONB  ,         1  , -1  ,\r\n     7         27  , 16  , 17  ,  3  ,4HNONB  ,         2  , -1  ,\r\n     8         27  , 21  , 22  ,  3  ,4HNONB  ,        16  , -1  ,\r\n     9         27  , 26  , 28  ,  3  ,4HNONB  ,        32  , -1  ,\r\n     O         27  , 32  , 33  ,  3  ,4HNONB  ,        12  , -1  ,\r\n     1         27  , 37  , 39  ,  3  ,4HNONB  ,        12  , -1  ,\r\n     2         27  , 43  , 43  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     3         27  , 56  , 56  ,  4  ,4HPITM  ,        12  ,  0  ,\r\n     4         28  , 15  , 15  ,  3  ,4HSTEP  ,         0  ,  0  ,\r\n     5         29  , 11  , 12  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     6         29  , 16  , 18  ,  3  ,4HNONB  ,         0  ,  0  ,\r\n     7         29  , 24  , 24  ,  8  ,4HNAMB  ,         0  ,  0  /\r\n      DATA SUBNAM  / 4HASCM,2H13  /\r\nC\r\nC     RESTORE TO ORIGINAL DATA BY REPLACEING ! BY / IN RDMAP ARRAY\r\nC     (SEE ASCM01 FOR EXPLANATION))\r\nC\r\n      DO 20 L = 1,111,3\r\n      I = ISAVE(L+1)\r\n      J = ISAVE(L  )\r\n      K = ISAVE(L+2)\r\n      RDMAP(I,J) = KHRFN1(RDMAP(I,J),K,SLASH,1)\r\n   20 CONTINUE\r\nC\r\nC     VALIDATE COMMAND AND SET POINTERS\r\nC\r\n      IF (NAME .NE. COMND(1,1)) GO TO 70\r\n      ICOMND = 1\r\n      IRDM   = 1\r\n      NRDM   = COMND(2,ICOMND)\r\n      IXTRA  = IRDM  + 18*NRDM\r\n      NXTRA  = COMND(3,ICOMND)\r\n      IOCT   = IXTRA + NXTRA\r\n      NOCT   = COMND(4,ICOMND)\r\n      IPTBS  = IOCT  + 3*NOCT\r\n      NPTBS  = COMND(5,ICOMND)\r\n      IPH    = IPTBS + 7*NPTBS\r\n      NPH    = COMND(6,ICOMND)\r\nC\r\nC     MOVE RDMAP DATA\r\nC\r\n      K = 0\r\n      IF (NRDM .EQ. 0) GO TO 35\r\n      DO 30 J = 1,NRDM\r\n      DO 30 I = 1,18\r\n      K = K + 1\r\n   30 IDAT(K) = RDMAP(I,J)\r\n   35 CONTINUE\r\nC\r\nC     MOVE XTRA DATA\r\nC\r\n      IF (NXTRA .EQ. 0) GO TO 45\r\n      DO 40 I = 1,NXTRA\r\n      K = K + 1\r\n   40 IDAT(K) = XTRA(I)\r\n   45 CONTINUE\r\nC\r\nC     MOVE OCT DATA\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 55\r\n      DO 50 J = 1,NOCT\r\n      DO 50 I = 1,3\r\n      K = K + 1\r\n   50 IDAT(K) = OCT(I,J)\r\n   55 CONTINUE\r\nC\r\nC     MOVE PTBS DATA\r\nC\r\n      IF (NPTBS .EQ. 0) GO TO 65\r\n      DO 60 J = 1,NPTBS\r\n      DO 60 I = 1,7\r\n      K = K + 1\r\n   60 IDAT(K) = PTBS(I,J)\r\n   65 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     INPUT ERROR\r\nC\r\n   70 CALL MESAGE (7,0,SUBNAM)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/asdmap.f",
    "content": "      SUBROUTINE ASDMAP\r\nC\r\nC     THIS ROUTINE PROCESSES THE SUBSTRUCTURE COMMAND DATA DECK\r\nC\r\nC     IT CREATES A SET OF SUBSTRUCTURE DATA ON THE FRONT OF THE CASE\r\nC     FILE AND GENERATES DMAP ALTERS FOR THE XALTER FILE. THE ALTERS ARE\r\nC     PLACED FIRST ON THE SCRATCH FILE AND THEN COPIED TO THE PROBLEM\r\nC     TAPE\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        ANDF        ,ORF        ,RSHIFT      ,LSHIFT    ,\r\n     1                COMPLF\r\n      LOGICAL         ALTER       ,ALTFL      ,FIRST       ,IFIN      ,\r\n     1                SOLVE       ,OPSOF      ,PASS2       ,RECOV     ,\r\n     2                REJECT      ,SKIP\r\n      REAL            FACT        ,XX\r\n      DIMENSION       ALTS(18)    ,CARD(20)   ,CDATA(30)   ,FNAME(7)  ,\r\n     1                COMND(2,25) ,DMAP(18,60),EXTRA(3,200),II(9)     ,\r\n     2                NASUB(2,100),OCARD(200) ,ITEMP(200)  ,ASD1(2)   ,\r\n     3                ASD2(2)     ,PHS(3)     ,EXDEF(2,14) ,ITMN(5)   ,\r\n     4                NCASEC(2)   ,NCASES(2)  ,NHEAD(16)   ,SUBNAM(2) ,\r\n     5                DVEC(3)     ,DBVAR(6)   ,DBVAL(2,6,5),R3VAR(5)  ,\r\n     6                R3VAL(5,5)  ,VAR(3,200) ,IVAR(3,200) ,Z(1)      ,\r\n     7                COREY(2)\r\n      CHARACTER       UFM*23      ,UWM*25     ,UIM*29      ,SFM*25\r\n      COMMON /XMSSG / UFM         ,UWM        ,UIM         ,SFM\r\n      COMMON /MACHIN/ MCHN\r\n      COMMON /GINOX / IDUM(161)   ,IGINOB\r\n      COMMON /BLANK / XX\r\n      COMMON /ASDBD / IRDM        ,NRDM       ,IXTRA       ,NXTRA     ,\r\n     1                IOCT        ,NOCT       ,IPTBS       ,NPTBS     ,\r\n     1                IPH         ,NPH        ,IDAT(1248)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /OUTPUT/ IOTIT(68)   ,IHEAD(20)\r\n      COMMON /SOFCOM/ NSOF        ,NNAME(10)  ,LENGTH(10)  ,STAT      ,\r\n     1                PASWD(2)    ,FIRST      ,OPSOF\r\n      COMMON /SYSTEM/ SYS(90)     ,LPCH\r\n      EQUIVALENCE     (IBUF,SYS(1))           ,(OUTT,SYS(2))          ,\r\n     1                (NOGO,SYS(3))           ,(INTP,SYS(4))          ,\r\n     2                (NLPP,SYS(9))           ,(NLINES,SYS(12))       ,\r\n     3                (IPREC,SYS(55))         ,(BANDIT,SYS(77))\r\n      EQUIVALENCE     (VAR(1,1),IVAR(1,1))    ,(ITEMP(1),OCARD(1))    ,\r\n     1                (COREX(1),COREY(1),NDBS),(COREY(2),Z(1))\r\n      DATA   ALT1   / 4HALTE /,            ALT2   / 4HR    /,\r\n     1       ASD1   / 4HASDM,4HBEGN /,     ASD2   / 4HASDM,4HEND /,\r\n     2       BLANK  / 4H     /,            CASE   / 4HCASE /,\r\n     3       DISK   / 4HDISK /,            DOLSN  / 4H$    /,\r\n     4       DRY    / 4HDRY  /,            DRYGO  / 4HDRYG /,\r\n     5       ENDS   / 4HENDS /,            EQSN   / 4H=    /\r\n      DATA   EXDEF  / -1,0,  4HTAPE,4H    ,-1,0   , 4HINTE,4H    , 0,0,\r\n     1                4HNORE,4H    ,4HALL ,4H     , 4HWHOL,4HESOF,\r\n     2                8*4HXXXX,-1,0,   -1 ,0               /\r\n      DATA   IDG    / 2H0    /,            IDRY   / 2H-1   /,\r\n     1       INPT   / 4HINPT /,            IOPEN  / 1      /,\r\n     2       ISTP   / 2H1    /,            ITEM   / 4HITEM /\r\n      DATA   ITMN   / 4HITM1,4HITM2,4HITM3,4HITM4,  4HITM5 /\r\n      DATA   JNEW   / 4HNEW  /,            KBEG   / 4HBEGI /,\r\n     1       KWD    / 4HK    /,            GORUN  / 4HGO   /,\r\n     2       LPAR   / 4H(    /,            MACH   / 4HMACH /,\r\n     3       MWD    / 4HM    /,            NAME   / 4HNAME /,\r\n     4       NANO   / 4HNANO /,            NBREC  / 4HBREC /,\r\n     5       NCASEC / 4HCASE,4HCC   /,     NCASES / 4HCASE,4HSS   /,\r\n     6       NEW    / 4HNEW  /\r\n      DATA   NHEAD  / 2*4H    ,4HN A ,4HS T ,4HR A ,4HN  S,4H U B,4H S T\r\n     1              , 4H R U,4H C T,4H U R,4H E  ,4HD E ,4HC K ,4H E C,\r\n     2                4H H O /\r\n      DATA   NH1    / 4H1    /,            NH1A   / 4H1A   /,\r\n     1       NPHASE / 3      /,            NPREC  / 4HPREC /,\r\n     2       NREC   / 4HRECO /,            NSAVE  / 4HSAVE /,\r\n     3       NSOL   / 4HSOL  /,            NSTP   / 4HNSTP /,\r\n     4       POIT   / 4HPOIT /,            NXALT  / 4HXALT /,\r\n     5       NXCSA  / 4HXCSA /,            NXL2   / 4HER   /,\r\n     6       OPER   / 4HOPER /,            OPTI   / 4HOPTI /,\r\n     7       PASS   / 4HPASS /,            PASS2  / .FALSE./\r\n      DATA   PHS    / 4HE1  ,4HE2  , 4HE3         /\r\n      DATA   POSI   / 4HPOSI /,            PTAPE  / 4HNPTP /,\r\n     1       PWD    / 4HP    /,            RUN    / 4HRUN  /,\r\n     2       SCRT   / 301    /,            SOF    / 4HSOF  /,\r\n     3       STEP   / 4HSTEP /,            TITL   / 4HTITL /\r\n      DATA   MSKP   / 4HMSKP /\r\n      DATA   PAPP   / 4HPAPP /,            PAWD   / 4HPA   /,\r\n     1       PITM   / 4HPITM /,            POAP   / 4HPOAP /,\r\n     2       POVE   / 4HPOVE /,            PVEC   / 4HPVEC /\r\n      DATA   BWD    / 4HB    /,            K4WD   / 4HK4   /\r\n      DATA   OUTP   / 4HOUTP /,            RANG   / 4HRANG /\r\n      DATA   DVEC   / 4HDVEC,4HUDVF, 4HUDVT       /\r\n      DATA   NDBVAR / 6      /\r\n      DATA   DBVAR  / 4HGORL,4HPVEC, 4HUVEC,4HPFTL, 4HOVEC,4HOVC2 /\r\n      DATA   DBVAL  / 4HGEOM,4H4   , 4HPGG ,4H    , 4HUGV ,4H\r\n     1              , 4H    ,4H    , 4HOUGV,4H1   , 4HOUGV,4H\r\n     2              , 4HGEOM,4H4   , 4HPGG ,4H    , 4HUGV ,4H\r\n     3              , 4H    ,4H    , 4HOUGV,4H1   , 4HOUGV,4H\r\n     4              , 4HLAMA,4H    , 4H    ,4H    , 4HPHIG,4H\r\n     5              , 4H    ,4H    , 4HOPHI,4HG1  , 4HOPHI,4HG\r\n     6              , 4HGEOM,4H4   , 4HPPF ,4H    , 4HUGV ,4H\r\n     7              , 4HPPF ,4H    , 4HOUGV,4H1   , 4HOUGV,4H\r\n     8              , 4HGEOM,4H4   , 4HPPT ,4H    , 4HUGV ,4H\r\n     9              , 4HTOL ,4H    , 4HOUGV,4H1   , 4HOUGV,4H     /\r\n      DATA   NR3VAR / 5      /\r\n      DATA   R3VAR  / 4HUAPH,4HPGVC, 4HPSVC,4HDYNT, 4HQVEC /\r\n      DATA   R3VAL  / 4HULV ,4HPGS , 4HPSS ,4H    , 4HQG\r\n     1              , 4HULV ,4HPGS , 4HPSS ,4H    , 4HQG\r\n     2              , 4HPHIA,4H    , 4H    ,4HLAMA, 4HQG\r\n     3              , 4HUDVF,4H    , 4H    ,4HPPF , 4HQPC\r\n     4              , 4HUDVT,4HPPT , 4HPST ,4HTOL , 4HQP          /\r\n      DATA   NCOM   / 25 /\r\n      DATA   COMND  /\r\n     1                4HSUBS ,1    , 4HRUN  ,2\r\n     3              , 4HENDD ,2    , 4HCOMB ,3\r\n     5              , 4HREDU ,4    , 4HSOLV ,5\r\n     7              , 4HRECO ,6    , 4HMREC ,6\r\n     9              , 4HBREC ,7    , 4HMRED ,9\r\n     1              , 4HCRED ,13   , 4HDEST ,10\r\n     3              , 4HEDIT ,10   , 4HEQUI ,10\r\n     5              , 4HSOFP ,10   , 4HDELE ,10\r\n     7              , 4HRENA ,10   , 4HSOFI ,11\r\n     9              , 4HSOFO ,11   , 4HREST ,11\r\n     1              , 4HDUMP ,11   , 4HCHEC ,11\r\n     3              , 4HCOMP ,11   , 4HAPPE ,11\r\n     5              , 4HPLOT ,12   /\r\n      DATA   SUBNAM / 4HASDM,4HAP  /\r\nC\r\nC\r\n      CALL CONMSG (ASD1,2,0)\r\n      DO 10 I  = 64,68\r\n   10 IOTIT(I) = BLANK\r\n      DO 20 I  = 1,16\r\n   20 IHEAD(I) = NHEAD(I)\r\n      CALL PAGE\r\n      NZ   = KORSZ(Z(1))\r\n      BUF1 = NZ - IBUF + 1\r\n      BUF2 = BUF1 - IBUF\r\n      BUF3 = BUF2 - IBUF\r\nC\r\nC     INITIALIZE THE CASE CONTROL FILE\r\nC\r\n      CALL OPEN (*2620,CASE,Z(BUF2),1)\r\n      CALL CLOSE (CASE,1)\r\n      IOPEN = 1\r\n      NOPEN = BUF3 - 1\r\n      IF (NOPEN .LE. 100) CALL MESAGE (-8,100-NOPEN,SUBNAM)\r\n      FIRST = .TRUE.\r\n      SKIP  = .FALSE.\r\n      ISOPT = 0\r\nC\r\nC     SET NUMBER OF POSSIBLE COMMANDS HERE\r\nC\r\nC     SET LAST WORD INDICATER\r\nC\r\n      I6777 = RSHIFT(COMPLF(0),1)\r\nC\r\nC     READ FIRST CARD AFTER CEND\r\nC\r\n      ASSIGN 70 TO IREAD\r\n      GO TO 50\r\n   30 IF (SKIP) GO TO 60\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      NLINES = NLINES + 1\r\n      WRITE (OUTT,40) CARD\r\n   40 FORMAT (1H ,4X,20A4)\r\n   50 CALL XREAD (*2600,CARD)\r\n      CALL XRCARD (OCARD,200,CARD)\r\n      IF (OCARD(1).GT.0 .AND. OCARD(2).EQ.BLANK) GO TO 30\r\n      IF (OCARD(1) .EQ. 0) GO TO 30\r\n      IF (OCARD(2).EQ.TITL .OR. OCARD(2).EQ.KBEG) GO TO 2600\r\n   60 SKIP = .FALSE.\r\n      GO TO IREAD, (70,90,330,630)\r\nC                      90?  NOT ASSIGNED BY ANYBODY    G.CHAN  4/93\r\nC\r\n   70 IF (OCARD(1).GT.0 .AND. OCARD(2).EQ.COMND(1,1)) GO TO 100\r\nC\r\nC     NO SUBSTRUCTURE CARD\r\nC\r\n      WRITE (OUTT,80) UFM\r\n      NLINES = NLINES + 2\r\nC\r\n   80 FORMAT (A23,' 6001. SUBSTRUCTURE DATA IS REQUIRED WITH THIS ',\r\n     1       'APPROACH')\r\n      NOGO  = 1\r\n   90 PHASE = 2\r\n      ALTER = .FALSE.\r\n      SKIP  = .TRUE.\r\n      ICOM  = 1\r\n      IF (OCARD(2) .EQ. ENDS) GO TO 2200\r\n      GO TO 130\r\nC\r\nC     PROCESS SUBSTRUCTURE CARD\r\nC\r\n  100 CNAME = COMND(1,1)\r\n      J = OCARD(1)*2\r\n      DO 110 I = 1,NPHASE\r\n      IF (OCARD(J+1) .NE. PHS(I)) GO TO 110\r\n      PHASE = I\r\n      ALTER = .TRUE.\r\n      ICOM  = 1\r\n      GO TO 130\r\n  110 CONTINUE\r\nC\r\nC     NO PHASE IS DEFINED\r\nC\r\n      WRITE (OUTT,120) UWM\r\n      NLINES = NLINES +2\r\n  120 FORMAT (A25,' 6002, INCORRECT PHASE DATA')\r\n      ALTER = .FALSE.\r\n      NOGO  = 1\r\n      ICOM  = 1\r\n      PHASE = 2\r\nC\r\nC     FOUND PHASE. TURN BANDIT OFF IF PHASE IS 2\r\nC\r\n  130 IF (PHASE .EQ. 2) BANDIT = -1\r\n      J    = 2\r\n      IAPP = IABS(SYS(21))\r\n      IF (IAPP .NE. 2) ALTER = .FALSE.\r\n      IAP2 = SYS(69)/10\r\n      IF (IAP2 .EQ. 1) ALTER = .FALSE.\r\n      SOL  = 1\r\n      IF (.NOT. ALTER) GO TO 200\r\n      FILE = PTAPE\r\n      KALT = 0\r\n      KFILE= 0\r\n      CALL OPEN (*2620,PTAPE,Z(BUF1),0)\r\n  140 CALL SKPFIL (PTAPE,1)\r\n      KFILE = KFILE + 1\r\n      CALL READ (*2620,*150,PTAPE,FNAME,7,1,NWORDS)\r\n  150 CONTINUE\r\n      IF (FNAME(1) .NE.NXALT) GO TO 160\r\n      KALT = KFILE\r\nC\r\n      GO TO 140\r\n  160 IF (FNAME(1) .NE. NXCSA) GO TO 140\r\n      ALTFL = .FALSE.\r\n      SOL = 1\r\n      IF (IAPP .EQ. 3) GO TO 180\r\n      CALL READ (*2620,*180,PTAPE,II,6,0,NWDS)\r\n      SOL = II(5)\r\n  180 CALL REWIND (PTAPE)\r\n      IF (KALT .NE. 0) ALTFL = .TRUE.\r\n      IF (ALTFL) GO TO 190\r\n      CALL SKPFIL (PTAPE,KFILE)\r\n      GO TO 200\r\n  190 CALL SKPFIL (PTAPE,KALT)\r\n      CALL FWDREC (*2620,PTAPE)\r\n      CALL READ (*2620,*200,PTAPE,ALTS,2,1,NWDS)\r\nC\r\nC     NO XALTER FILE\r\nC\r\nC     OPEN CASE FILE FOR SUBSTRUCTURE DATA OR TITLE\r\nC\r\n  200 IF (PHASE .EQ. 3) GO TO 300\r\n      FILE = CASE\r\n      CALL OPEN (*2620,CASE,Z(BUF2),1)\r\n      CALL WRITE (CASE,NCASES,2,1)\r\n      FILE = SCRT\r\nC\r\nC     SET UP INITAL VALUES\r\nC\r\n  300 IAC   = 0\r\n      ISTEP = 0\r\n      NDBS  = 0\r\n      DRYFLG= 1\r\n      OBITS = 55\r\n      IF (SOL .EQ. 1) OBITS = 5\r\n      IF (SOL .EQ. 2) OBITS = 7\r\n      IF (SOL .EQ. 3) OBITS = 3\r\n      IF (SOL .EQ. 8) OBITS = 55\r\n      IF (SOL .EQ. 9) OBITS = 55\r\n      NEWBT = OBITS\r\n      RECOV = .FALSE.\r\n      SOLVE = .FALSE.\r\n      IAPP  =  SYS(21)\r\n      IF (IAPP .EQ. 3) ALTER = .FALSE.\r\n      IF (.NOT.ALTER ) GO TO 310\r\n      CALL OPEN (*2620,SCRT,Z(BUF3),1)\r\n      II(1) = NXALT\r\n      II(2) = NXL2\r\n      CALL WRITE (SCRT,II,2,1)\r\n  310 CONTINUE\r\n      NSOF = 0\r\n      ISOF = 1\r\n      NNAME(1) = INPT\r\n      STAT = 1\r\n      LENGTH(1)= 100\r\n      PASWD(1) = BLANK\r\n      PASWD(2) = BLANK\r\nC\r\nC     READ PASSWORD AND SOF DECLARATIONS\r\nC\r\n      INEX = 0\r\n  320 ASSIGN 330 TO IREAD\r\n      GO TO 30\r\n  330 IF (OCARD(2) .NE. PASS) GO TO 340\r\n      K = 4\r\n      IF (OCARD(5) .EQ. EQSN) K = 6\r\n      PASWD(1) = OCARD(K)\r\n      PASWD(2) = OCARD(K+1)\r\n      GO TO 320\r\n  340 IF (OCARD(2) .NE. SOF) GO TO 380\r\n      K = 4\r\n      IF (OCARD(5) .NE. LPAR) GO TO 350\r\n      K = 9\r\n      ISOF = OCARD(7)\r\n  350 IF (ISOF.LT.0 .OR. ISOF.GT.10) GO TO 370\r\n      NSOF = NSOF + 1\r\n      IF (OCARD(K+1) .EQ. EQSN) K = K + 2\r\n      IF (OCARD(K+4).EQ.JNEW .OR. OCARD(K+5).EQ.JNEW) STAT = 0\r\n      NNAME (ISOF) = OCARD(K  )\r\n      LENGTH(ISOF) = OCARD(K+3)\r\n      IF (OCARD(K+2) .EQ. -1) GO TO 320\r\n      LENGTH(ISOF) = 100\r\n      IF (NLINES+3 .GT. NLPP) CALL PAGE\r\n      NLINES = NLINES + 3\r\n      IF (.NOT.SKIP) WRITE (OUTT,40) CARD\r\n      WRITE  (OUTT,360) UWM,ISOF\r\n  360 FORMAT (A25,', SOF(',I2,') FILESIZE NOT SPECIFIED. DEFAULT OF ',\r\n     1       '100K WORDS WILL BE ALLOCATED',/)\r\n      ASSIGN 330 TO IREAD\r\n      IF (SKIP) GO TO 60\r\n      GO TO 50\r\n  370 WRITE (OUTT,790) UFM\r\n      NLINES = NLINES + 1\r\n      NOGO = 1\r\n      GO TO 320\r\n  380 IF (INEX .EQ. 1) GO TO 640\r\n      INEX = 1\r\n      SKIP = .TRUE.\r\n      ICNEXT = 1\r\nC\r\nC     START PROCESSING SUBSTRUCTURE COMMAND CARDS HERE\r\nC     TOP OF COMMAND LOOP\r\nC\r\n  400 ICOM = ICNEXT\r\n      IF ( OCARD(2) .EQ. ENDS) GO TO 2100\r\n      DO 410 L = 1,30\r\n  410 CDATA(L) = OCARD(L)\r\n  420 CNAME = COMND(1,ICOM)\r\n      JCOM  = COMND(2,ICOM)\r\n      IF (ICOM.EQ.6 .AND. SOL.GT.3) JCOM = 8\r\n      REJECT = .FALSE.\r\n      GO TO (430,440,450,460,470,480,490,500,510,520,530,540,550), JCOM\r\n  430 CALL ASCM01 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  440 CALL ASCM02 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  450 CALL ASCM03 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  460 CALL ASCM04 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  470 CALL ASCM05 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  480 CALL ASCM06 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  490 CALL ASCM07 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  500 CALL ASCM08 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  510 CALL ASCM09 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  520 CALL ASCM10 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  530 CALL ASCM11 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  540 CALL ASCM12 (CNAME,PHASE,SOL,NOGO)\r\n      GO TO 600\r\n  550 CALL ASCM13 (CNAME,PHASE,SOL,NOGO)\r\n  600 JX = 0\r\n      ISTEP = ISTEP + 1\r\nC\r\nC     TRANSFER RAW DMAP TO WORKING AREA\r\nC\r\n      M = IRDM - 1\r\n      DO 610 J = 1,NRDM\r\n      DO 610 I = 1,18\r\n      M = M + 1\r\n      DMAP(I,J) = IDAT(M)\r\n  610 CONTINUE\r\nC\r\nC     READ IN EXTRAS, FIND IN OPTION LIST, STOP AT NEXT COMMAND\r\nC\r\n  620 ASSIGN 630 TO IREAD\r\n      GO TO 30\r\n  630 IF (OCARD(2).EQ.PASS .OR. OCARD(2).EQ.SOF) GO TO 330\r\n  640 IF (REJECT) GO TO 2090\r\n      IF (ITEMP(2) .EQ. DOLSN) GO TO 620\r\n      IF (ITEMP(2) .EQ.  ENDS) GO TO 810\r\n      IF (ITEMP(2) .NE.  OPTI) GO TO 660\r\n      NEWBT = 0\r\n      I2 = 4\r\n      IF (ITEMP(5) .EQ. EQSN) I2 = 6\r\n      DO 650 I = 1,6\r\n      J = 2*I + I2 - 2\r\n      IF (ITEMP(J) .EQ. KWD) NEWBT = ORF(NEWBT,1)\r\n      IF (ITEMP(J) .EQ. MWD) NEWBT = ORF(NEWBT,2)\r\n      IF (ITEMP(J) .EQ. PWD) NEWBT = ORF(NEWBT,4)\r\n      IF (ITEMP(J) .EQ.PAWD) NEWBT = ORF(NEWBT,8)\r\n      IF (ITEMP(J) .EQ. BWD) NEWBT = ORF(NEWBT,16)\r\n      IF (ITEMP(J) .EQ.K4WD) NEWBT = ORF(NEWBT,32)\r\n  650 CONTINUE\r\n      IF (ANDF(NEWBT,12) .EQ. 12) GO TO 780\r\n      IF (ISTEP .LE. 1) OBITS = NEWBT\r\n      GO TO 620\r\n  660 CONTINUE\r\n      IF (NXTRA .EQ. 0) GO TO 760\r\n      M = IXTRA - 1\r\n      DO 670 I = 1,NXTRA\r\n      M = M + 1\r\n      IF (ITEMP(2) .EQ. IDAT(M)) GO TO 680\r\n  670 CONTINUE\r\nC\r\nC     CARD IS NOT AN EXTRA\r\nC\r\n      GO TO 760\r\nC\r\nC     FOUND AN EXTRA, STORE SEQUENTIALLY AS PAIRS OF TWO WORD ITEMS\r\nC\r\n  680 JX = JX + 1\r\n      EXTRA(1,JX) = ITEMP(2)\r\n      I2 = 4\r\n      IF (ITEMP(5) .EQ. EQSN) I2 = 6\r\n      EXTRA(2,JX) = ITEMP(I2  )\r\n      EXTRA(3,JX) = ITEMP(I2+1)\r\nC\r\nC     SPECIAL OUTPUT EXTRA\r\nC\r\n      IF (ITEMP(2) .NE. OUTP) GO TO 700\r\n      EXTRA(2,JX) = -1\r\n      EXTRA(3,JX) = 0\r\n  690 IF (ITEMP(I2).NE.-1 .OR. ITEMP(I2+1).LE.0 .OR. ITEMP(I2+1).GT.31)\r\n     1    GO TO 620\r\n      J = LSHIFT(1,ITEMP(I2+1)-1)\r\n      EXTRA(3,JX) = ORF(EXTRA(3,JX),J)\r\n      I2 = I2 + 2\r\n      GO TO 690\r\n  700 CONTINUE\r\n      IF (ITEMP(2) .NE. RANG) GO TO 720\r\n      JX = JX + 1\r\n      EXTRA(1,JX) = RANG\r\n      I2 = I2 + 2\r\n      IF (ITEMP(I2).EQ.-1 .OR. ITEMP(I2).EQ.-2) GO TO 710\r\n      EXTRA(2,JX) = EXTRA(2,JX-1)\r\n      EXTRA(3,JX) = EXTRA(3,JX-1)\r\n      EXTRA(3,JX-1) = 0\r\n      GO TO 620\r\n  710 EXTRA(2,JX) = ITEMP(I2)\r\n      EXTRA(3,JX) = ITEMP(I2+1)\r\n      GO TO 620\r\n  720 CONTINUE\r\n      IF (EXTRA(1,JX) .NE. RUN) GO TO 620\r\n      EXTRA(3,JX) = BLANK\r\n      EXTRA(2,JX) = IDRY\r\n      IF (ITEMP(I2) .EQ.   DRY) GO TO 620\r\n      IF (ITEMP(I2) .NE. GORUN) GO TO 730\r\n      EXTRA(2,JX) = IDG\r\n      GO TO 620\r\n  730 IF (ITEMP(I2) .NE. STEP) GO TO 740\r\n      EXTRA(2,JX) = ISTP\r\n      GO TO 620\r\n  740 IF (ITEMP(I2) .NE. DRYGO) GO TO 750\r\n      DRYFLG = 0\r\n      GO TO 620\r\n  750 JX = JX - 1\r\n      GO TO 620\r\nC\r\nC      CHECK AND SET IF COMMAND CARD\r\nC\r\n  760 DO 770 I = 2,NCOM\r\n      ICNEXT = I\r\n      IF (OCARD(2) .EQ. COMND(1,I)) GO TO 800\r\n  770 CONTINUE\r\n  780 WRITE (OUTT,790) UFM\r\n      NLINES = NLINES +2\r\n  790 FORMAT (A23,' 6003. ILLEGAL COMMANDS OR OPTIONS DEFINED ON NEXT ',\r\n     1       'CARD')\r\n      NOGO = 1\r\n      GO TO 620\r\nC\r\nC     FOR PHASE 3 RECOVERY, CHANGE RECO TO BREC\r\nC\r\n  800 IF (PHASE.NE.3 .OR. COMND(1,ICNEXT).NE.NREC) GO TO 810\r\n      OCARD(2) = NBREC\r\n      ICNEXT = 9\r\n  810 CONTINUE\r\nC\r\n      GO TO ( 820,1030,2200,1100,1200,1300,1400,1400,1700,1200,\r\n     1       1200,1500,1500,1500,1500,1500,1500,1730,1730,1730,\r\n     2       1730,1730,1730,1730,1900), ICOM\r\nC\r\nC     SUBSTRUCTURE   PHASES\r\nC         PHASE 1\r\nC      VARIABLES,     NO.     TYPE      POSITION      DEFINITION\r\nC                     1,2,3    I           1    ALTE,R.F. REMOVE NUMBERS\r\nC                     4,5,6    I           4    ALTE,R.F. REMOVE NUMBERS\r\nC                     7,8,9                     ALTE,R.F. REMOVE NUMBERS\r\nC                     10,11,12                  SAVE,-1, PLOT SET ID\r\nC                 1   13,14,15                  RUN ,-1, RUN  FLAG\r\nC                 1   16,17,18                  NAME, SUBS NAME\r\nC\r\n  820 GO TO (830,900,1000), PHASE\r\n  830 NVAR = 24\r\n      NOUT = 0\r\n      DO 840 I = 1,NVAR\r\n  840 VAR(I,1) = 0\r\n      VAR(1,8) = PITM\r\n      VAR(2,8) = PVEC\r\n      VAR(3,8) = BLANK\r\n      IF (ANDF(OBITS,8) .NE. 0) VAR(2,8) = PAPP\r\n      DO 850 I = 1,JX\r\n      DO 850 J = 1,3\r\n      VAR(J,I+4) = EXTRA(J,I)\r\n  850 CONTINUE\r\n      NX   = JX + 4\r\n      INAM = 0\r\n      IRUN = 0\r\n      ISAV = 0\r\nC\r\nC     CHECK FOR REQUIRED NAME\r\nC\r\n      DO 860 I = 5,NX\r\n      IF (VAR(1,I) .EQ.  NAME) INAM = I\r\n      IF (VAR(1,I) .EQ.   RUN) IRUN = I\r\n      IF (VAR(1,I) .EQ. NSAVE) ISAV = I\r\n  860 CONTINUE\r\nC\r\nC     NO NAME DEFINED IS A LEVEL 3 ERROR\r\nC\r\n      IF (INAM .LE. 0) GO TO 2640\r\n      IF (IRUN .NE. 0) GO TO 870\r\n      IRUN = NX + 1\r\n      VAR(1,IRUN) =  RUN\r\n      VAR(2,IRUN) = ISTP\r\n      VAR(3,IRUN) = BLANK\r\n      NX = NX + 1\r\n  870 CONTINUE\r\n      IF (ISAV .NE. 0) GO TO 880\r\n      VAR(1,NX+1) = NSAVE\r\n      VAR(2,NX+1) = -1\r\n      VAR(3,NX+1) = 0\r\n  880 CONTINUE\r\n      M = IPH - 1\r\n      DO 890 I = 1,4\r\n      M = M + 2\r\n      VAR(1,I) = ALT1\r\n      VAR(2,I) = IDAT(M-1)\r\n      VAR(3,I) = IDAT(M  )\r\n  890 CONTINUE\r\n      GO TO 2000\r\nC\r\nC     PHASE 2 PROCESS\r\nC\r\n  900 IF (JX .GT. 0) GO TO 910\r\n      JX = 1\r\n      EXTRA(1,1) = RUN\r\n      EXTRA(2,1) = ISTP\r\n      EXTRA(3,1) = BLANK\r\n  910 VAR(1,1) = ALT1\r\n      VAR(2,1) = 4\r\n      IF (SOL .EQ. 1) VAR(2,1) = 5\r\n      VAR(3,1) = 0\r\nC\r\n      DO 920 J = 1,JX\r\n      DO 920 I = 1,3\r\n      VAR(I,J+1) = EXTRA(I,J)\r\n  920 CONTINUE\r\n      NVAR = 3*(1+JX)\r\n      NOUT = 0\r\n      DO 930 I = 1,5\r\n      DMAP(1,I) = -1\r\n  930 CONTINUE\r\n      GO TO 2000\r\nC\r\nC     PHASE 3 PROCESSING\r\nC     NORMALLY THIS IS A RESTART, IF NOT THE DATA WILL BE REGENERATED\r\nC\r\n 1000 NVAR = 6\r\n      VAR(1,1) = ALT1\r\n      VAR(2,1) = IDAT(IPH)\r\n      VAR(3,1) = IDAT(IPH+1)\r\n      VAR(1,2) = RUN\r\n      VAR(2,2) = ISTP\r\n      VAR(3,2) = BLANK\r\n      IF (JX .LT. 1) GO TO 1010\r\n      IF (EXTRA(1,1) .EQ. RUN) VAR(2,2) = EXTRA(2,1)\r\n 1010 NOUT = 0\r\n      DO 1020 I = 1,5\r\n      DMAP(1,I) = -1\r\n 1020 CONTINUE\r\n      GO TO 2000\r\nC\r\nC     RUN COMMAND (SOMETIMES AN EXTRA)\r\nC\r\n 1030 I2 = 4\r\n      IF (CDATA(5) .EQ. EQSN) I2 = 6\r\n      VAR(1,1) = CDATA(2)\r\n      VAR(2,1) = ISTP\r\n      VAR(3,1) = BLANK\r\n      IF (CDATA(I2) .EQ. STEP) GO TO 1040\r\n      VAR(2,1) = IDRY\r\n      IF (CDATA(I2) .EQ. DRYGO) DRYFLG = 0\r\n 1040 IF (DRYFLG .EQ. 0) GO TO 2080\r\n      NVAR = 3\r\n      NOUT = 0\r\n      GO TO 2000\r\nC\r\nC     COMBINE OPERATION, USES SUBROUTINE COMBO\r\nC\r\n 1100 CALL COMBO (CDATA,JX,EXTRA,IAC,NASUB,NS,VAR(1,3),IER)\r\n      NVAR = 3*(5+JX+3*NS)\r\n      VAR(1,1) = NS\r\n      VAR(2,1) = 0\r\n      VAR(3,1) = 0\r\n      VAR(1,2) = NSTP\r\n      VAR(2,2) =-1\r\n      VAR(3,2) = ISTEP\r\n      NVAR = NVAR + 3\r\n      VAR(NVAR+1,1) = PITM\r\n      VAR(NVAR+2,1) = PVEC\r\n      VAR(NVAR+3,1) = BLANK\r\n      IF (ANDF(OBITS,8) .NE. 0) VAR(NVAR+2,1) = PAPP\r\n      NVAR = NVAR + 3\r\n      NOUT = NVAR\r\n      IF (IER) 2640,2000,2640\r\nC\r\nC     REDUCE, MREDUCE, CREDUCE OPERATIONS - VARIABLES TO BE SET ARE\r\nC\r\nC                STEP - STEP NO.\r\nC                NONA - NO. OF SUBSTRUCTURE A\r\nC                NONB - NO. OF SUBSTRUCTURE B\r\nC                NAMA - NAME OF SUBSTRUCTURE A\r\nC                NAMB - NAME OF SUBSTRUCTURE B\r\nC                PREC - PRECISION FLAG\r\nC                PITM - LOAD ITEM\r\nC                POIT - LOAD TRANSFORMATION ITEM\r\nC\r\n 1200 CALL REDU (CDATA,JX,EXTRA,IAC,NASUB,NVAR,VAR(1,2),IPREC,IER)\r\n      VAR(1,1) = STEP\r\n      VAR(2,1) = -1\r\n      VAR(3,1) = ISTEP\r\n      NVAR     = NVAR+3\r\n      VAR(NVAR+1,1) = PITM\r\n      VAR(NVAR+2,1) = PVEC\r\n      VAR(NVAR+3,1) = BLANK\r\n      VAR(NVAR+4,1) = POIT\r\n      VAR(NVAR+5,1) = POVE\r\n      VAR(NVAR+6,1) = BLANK\r\n      IF (ANDF(OBITS,8) .EQ. 0) GO TO 1210\r\n      VAR(NVAR+2,1) = PAPP\r\n      VAR(NVAR+5,1) = POAP\r\n 1210 NVAR = NVAR + 6\r\n      NOUT = NVAR\r\n      IF (IER) 2090,2000,2090\r\nC\r\nC     SOLVE OPERATION - VARIABLES ARE SUBSTRUCTURE NAME AND ALTER NO S\r\nC\r\n 1300 NVAR = 33\r\n      NOUT = NVAR\r\n      I2   = 4\r\n      IF (CDATA(5) .EQ. EQSN) I2 = 6\r\n      IF (CDATA(1)*2 .LT. I2) GO TO 2660\r\n      VAR(1,8) = NAME\r\n      VAR(2,8) = CDATA(I2  )\r\n      VAR(3,8) = CDATA(I2+1)\r\n      NSOLV1   = CDATA(I2  )\r\n      NSOLV2   = CDATA(I2+1)\r\nC\r\nC     FIND STRUCTURE NUMBER\r\nC\r\n      NS = IAC\r\n      IF (NS .EQ. 0) GO TO 1320\r\n      DO 1310 I = 1,NS\r\n      IF (CDATA(I2).EQ.NASUB(1,I) .AND. CDATA(I2+1).EQ.NASUB(2,I))\r\n     1    GO TO 1330\r\n 1310 CONTINUE\r\n 1320 CONTINUE\r\n      NS = NS+1\r\n      NASUB(1,NS) = CDATA(I2  )\r\n      NASUB(2,NS) = CDATA(I2+1)\r\n      I = NS\r\n 1330 VAR(1, 9) = NANO\r\n      VAR(2, 9) = -1\r\n      VAR(3, 9) = I\r\n      VAR(1,10) = STEP\r\n      VAR(2,10) = -1\r\n      VAR(3,10) = ISTEP\r\n      IF (JCOM .EQ. 8) GO TO 1340\r\n      VAR(1,11) = NSOL\r\n      VAR(2,11) = BLANK\r\n      VAR(3,11) = BLANK\r\n      GO TO 1350\r\n 1340 VAR(1,11) = DVEC(1)\r\n      VAR(2,11) = DVEC(2)\r\n      VAR(3,11) = BLANK\r\n      IF (SOL .EQ. 9) VAR(2,11) = DVEC(3)\r\n 1350 CONTINUE\r\n      IF (SOL .EQ. 1) GO TO 1360\r\n      IF (SOL .EQ. 2) VAR(2,11) = NH1A\r\n      IF (SOL .EQ. 3) VAR(2,11) = NH1\r\n      NVAR = 36\r\n      NOUT = 36\r\n      VAR(1,12) = MSKP\r\n      VAR(2,12) = BLANK\r\n      VAR(3,12) = BLANK\r\n 1360 CONTINUE\r\n      IAC = NS\r\n      M   = IPH - 1\r\n      DO 1370 I = 1,7\r\n      M = M + 2\r\n      VAR(1,I) = ALT1\r\n      VAR(2,I) = IDAT(M-1)\r\n      VAR(3,I) = IDAT(M  )\r\n 1370 CONTINUE\r\n      SOLVE = .TRUE.\r\n      GO TO 2000\r\nC\r\nC     RECOVERY PHASE2 - VARIABLES ARE SOLUTION STRUCTURE NAME,\r\nC                       PRINT, NAME AND/OR SAVE, NAME+ALTER\r\nC\r\n 1400 I2 = 4\r\n      IF (CDATA(5) .EQ. EQSN) I2 = 6\r\n      IF (CDATA(1)*2 .LT. I2) GO TO 2660\r\n      VAR(1,1) = NCASES(1)\r\n      VAR(2,1) = NCASES(2)\r\n      VAR(3,1) = BLANK\r\n      VAR(1,2) = NAME\r\n      VAR(2,2) = CDATA(I2  )\r\n      VAR(3,2) = CDATA(I2+1)\r\n      ISOL = SOL\r\n      IF (SOL  .GT. 3) ISOL = ISOL - 4\r\n      IF (ICOM .EQ. 8) ISOL = 3\r\n      DO 1410 I = 1,NDBVAR\r\n      VAR(1,I+2) = DBVAR(I)\r\n      VAR(2,I+2) = DBVAL(1,I,ISOL)\r\n      IF (ICOM.EQ.8 .AND. I.LT.4) VAR(2,I+2) = BLANK\r\n      VAR(3,I+2) = DBVAL(2,I,ISOL)\r\n      IF (ICOM.EQ.8 .AND. I.LT.4) VAR(3,I+2) = BLANK\r\n 1410 CONTINUE\r\n      VAR(1,9) = NSOL\r\n      VAR(2,9) = -1\r\n      VAR(3,9) = SOL\r\n      IF (ICOM .EQ. 8) VAR(3,9) = 3\r\n      VAR(1,10) = STEP\r\n      VAR(2,10) = -1\r\n      VAR(3,10) = ISTEP\r\n      IF (JX .LE. 0) GO TO 1430\r\n      DO 1420 I = 1,JX\r\n      DO 1420 K = 1,3\r\n      VAR(K,I+10) = EXTRA(K,I)\r\n 1420 CONTINUE\r\n 1430 IF (SOLVE) GO TO 1440\r\nC\r\nC     SAVE OPTION BITS AND SET TO ZERO\r\nC\r\n      OBITS   = 0\r\n      VAR(1,4)= 0\r\n      VAR(2,1)= NCASEC(2)\r\n 1440 RECOV   = .TRUE.\r\n      NVAR    = 3*JX + 30\r\n      NOUT    = NVAR\r\n      GO TO 2000\r\nC\r\nC     UTILITY COMMANDS - USE SOFOUT MODULE TO MANIPULATE SOF FILE(S).\r\nC     DESTROY, EDITOUT, EQUIV, PRINT, DELETE, AND RENAME\r\nC\r\n 1500 NVAR = 0\r\n      I2   = 4\r\n      KWDS = 1\r\nC\r\nC     DECODE AND STORE COMMAND DATA FROM HEADER CARD\r\nC\r\n 1510 KWDS = KWDS + 1\r\n      IF (CDATA(I2+1).EQ.LPAR .OR. CDATA(I2+1).EQ.EQSN) I2 = I2 + 2\r\n      VAR(2,KWDS) = CDATA(I2  )\r\n      VAR(3,KWDS) = CDATA(I2+1)\r\n      I2 = I2 + 2\r\n      IF (CDATA(I2).EQ.I6777 .OR. CDATA(I2+1).EQ.I6777) GO TO 1520\r\n      IF (VAR(2,KWDS) .EQ. -1) I2 = I2 + 1\r\n      IF (KWDS .LT. 8) GO TO 1510\r\nC\r\nC     INSERT VARIABLE NAMES\r\nC\r\n 1520 J = ICOM - 11\r\n      VAR(1,1) = OPER\r\n      VAR(2,1) = CNAME\r\n      VAR(3,1) = BLANK\r\n      JOPT = 0\r\n      GO TO (1530,1540,1550,1580,1590,1550), J\r\nC\r\nC      DESTROY NAME\r\nC\r\n 1530 VAR(1,2) = NAME\r\n      NVAR = 2\r\n      GO TO 1620\r\nC\r\nC     EDITOUT(CODE) = NAME\r\nC\r\n 1540 GO TO 1580\r\nC\r\nC     EQUIV A,B   +PREFIX = B CARD\r\nC\r\n 1550 VAR(1,2) = NAME\r\n      VAR(1,3) = NEW\r\n      NVAR = 3\r\n      IF (J    .EQ. 6) GO TO 1620\r\n      IF (KWDS .LT. 2) GO TO 2640\r\n      IF (JX   .LT. 1) GO TO 1560\r\n      VAR(1,4) = EXTRA(1,1)\r\n      VAR(2,4) = EXTRA(2,1)\r\n      VAR(3,4) = EXTRA(3,1)\r\n      NVAR = 4\r\n      GO TO 1620\r\n 1560 WRITE  (OUTT,1570) UWM\r\n 1570 FORMAT (A25,' 6004, NO PREFIX DEFINED AFTER EQUIVALENCE.')\r\n      NLINES = NLINES + 2\r\n      GO TO 1620\r\nC\r\nC     PRINT(CODE) = NAME,ITM1,ITM2,ITM3,ITM4,ITM5\r\nC\r\n 1580 IF (VAR(2,2).NE. -1) GO TO 1590\r\n      VAR(1,2) = OPTI\r\n      JOPT = 1\r\n      I2   = 3\r\n      GO TO 1600\r\n 1590 I2   = 2\r\n 1600 VAR(1,I2) = NAME\r\n      NS = KWDS - I2\r\n      DO 1610 I = 1,NS\r\n      J  = I2 + I\r\n 1610 VAR(1,J) = ITMN(I)\r\n      NVAR = KWDS\r\n 1620 NOUT = 0\r\n      IF (JOPT .EQ. 1) GO TO 1630\r\n      NVAR = NVAR + 1\r\n      VAR(1,NVAR) = OPTI\r\n      VAR(2,NVAR) = -1\r\n      VAR(3,NVAR) = 32\r\n      IF (ICOM .EQ. 15) VAR(3,NVAR) = 0\r\n 1630 NVAR = 3*NVAR\r\n      GO TO 2000\r\nC\r\nC     RECOVERY, PHASE 3.  VARIABLES ARE NAME, SOL, STEP, PREC, UAPH,\r\nC     PGVC, PSVC, DYNT, QVEC\r\nC\r\n 1700 I2 = 4\r\n      IF (CDATA(I2) .EQ. EQSN) I2 = I2 + 2\r\n      M = IPH - 1\r\n      DO 1710 I = 1,3\r\n      M = M + 2\r\n      VAR(1,I) = ALT1\r\n      VAR(2,I) = IDAT(M-1)\r\n      VAR(3,I) = IDAT(M  )\r\n 1710 CONTINUE\r\n      ISOL = SOL\r\n      IF (SOL .GT. 3) ISOL = ISOL - 4\r\n      DO 1720 I = 1,NR3VAR\r\n      VAR(1,I+3) = R3VAR(I)\r\n      VAR(2,I+3) = R3VAL(I,ISOL)\r\n      VAR(3,I+3) = BLANK\r\n 1720 CONTINUE\r\n      VAR(1, 9) = NAME\r\n      VAR(2, 9) = CDATA(I2  )\r\n      VAR(3, 9) = CDATA(I2+1)\r\n      VAR(1,10) = NSOL\r\n      VAR(2,10) = -1\r\n      VAR(3,10) = SOL\r\n      VAR(1,11) = STEP\r\n      VAR(2,11) = -1\r\n      VAR(3,11) = ISTEP\r\n      VAR(1,12) = NPREC\r\n      VAR(2,12) = -1\r\n      VAR(3,12) = IPREC\r\n      NVAR      = 36\r\n      NOUT      = 0\r\n      GO TO 2000\r\nC\r\nC     EXIO OPERATIONS -\r\nC     SOFIN, SOFOUT, RESTORE, DUMP, CHECK, COMPRESS AND APPEND\r\nC\r\n 1730 NVAR = 42\r\n      NOUT = 0\r\nC\r\n      DO 1740 I = 1,14\r\n      VAR(1,I) = 100 + I\r\n      VAR(2,I) = EXDEF(1,I)\r\n 1740 VAR(3,I) = EXDEF(2,I)\r\nC\r\nC     DECODE COMMAND CARD\r\nC\r\n      VAR(2,5) = CDATA(2)\r\n      VAR(3,5) = CDATA(3)\r\n      I2 = 4\r\n      IF (CDATA(5) .NE. LPAR) GO TO 1750\r\n      VAR(2,4) = CDATA(6)\r\n      VAR(3,4) = CDATA(7)\r\n      I2 = 8\r\n 1750 IF (CDATA(I2+1) .EQ. EQSN) I2 = I2 + 2\r\n      IF (CDATA(I2).EQ.I6777 .OR. CDATA(I2+1).EQ.LPAR) GO TO 1830\r\n      VAR(2,3) = CDATA(I2  )\r\n      VAR(3,3) = CDATA(I2+1)\r\n      IF (CDATA(I2+2) .EQ. I6777) GO TO 1760\r\n      VAR(2,2) = CDATA(I2+2)\r\n      VAR(3,2) = CDATA(I2+3)\r\nC\r\nC     SET EXTRAS\r\nC\r\n 1760 NN = 0\r\n      IF (JX .EQ.0) GO TO 1820\r\n      DO 1810 I = 1,JX\r\n      IF (EXTRA(1,I) .NE. MACH) GO TO 1770\r\n      K = 1\r\n      GO TO 1800\r\n 1770 IF (EXTRA(1,I) .NE. POSI) GO TO 1780\r\n      K = 6\r\n      GO TO 1800\r\n 1780 IF (EXTRA(1,I) .NE. ITEM) GO TO 1790\r\n      K = 7\r\n      GO TO 1800\r\n 1790 IF (EXTRA(1,I) .NE. NAME) GO TO 1810\r\n      NN = NN + 1\r\n      K  = NN + 7\r\n 1800 VAR(2,K) = EXTRA(2,I)\r\n      VAR(3,K) = EXTRA(3,I)\r\n 1810 CONTINUE\r\nC\r\nC     SET DISK FIELD FOR COMPRESS ETC\r\nC\r\n 1820 IF (ICOM .GE. 24) VAR(2,2) = DISK\r\n      GO TO 2000\r\n 1830 WRITE  (OUTT,1840) UFM\r\n 1840 FORMAT (A23,' 6008, ILLEGAL INPUT ON THE PREVIOUS COMMAND.', /5X,\r\n     1       'MISSING FILE NAME FOR IO OPERATION')\r\n      NLINES = NLINES + 3\r\n      GO TO 2090\r\nC\r\nC     PLOT COMMAND\r\nC          FORMAT\r\nC     PLOT NAME\r\nC\r\n 1900 NVAR = 6\r\n      NOUT = 0\r\n      I2   = 4\r\n      IF (CDATA(I2) .EQ. EQSN) I2 = 6\r\n      IF (CDATA(1)*2 .LT.  I2) GO TO 2640\r\n      VAR(1,1) = NAME\r\n      VAR(2,1) = CDATA(I2  )\r\n      VAR(3,1) = CDATA(I2+1)\r\n      VAR(1,2) = STEP\r\n      VAR(2,2) = -1\r\n      VAR(3,2) = ISTEP\r\nC\r\nC     PROCESS VARIABLE CHARACTERS IF DMAP IS TO BE GENERATED\r\nC\r\n 2000 IF (.NOT.ALTER) GO TO 2080\r\n      CALL ASPRO (DMAP,IVAR,NVAR,OBITS,SOL)\r\nC\r\nC     RESET OPTION BITS IF DUMMY VALUE WAS USED\r\nC\r\n      OBITS = NEWBT\r\n      IF (NOGO .GE. 1) GO TO 2080\r\nC\r\nC     WRITE  DMAP ON  SCRATCH FILE\r\nC\r\n      DO 2070 I = 1,NRDM\r\nC\r\nC     GO TO SPECIAL CODE IF AN ALTER CARD\r\nC\r\n      IF (DMAP(1,I) .NE. ALT1) GO TO 2060\r\nC\r\n      II(1) = DMAP(2,I)\r\n      II(2) = DMAP(3,I)\r\n      IF (.NOT.ALTFL) GO TO 2050\r\n      IF (II(2)  .EQ. 0) II(2)  = -II(1)\r\n 2010 IF (ALTS(2).EQ. 0) ALTS(2)= -ALTS(1)\r\nC\r\n      IF (ALTS(1) .GT. IABS(II(2))) GO TO 2050\r\nC\r\nC     OVERLAPPING DMAP\r\nC\r\n      IF (IABS(ALTS(2)) .GE. II(1)) GO TO 2660\r\nC\r\nC     ALTERS ENCOUNTERED BEFORE NEW ALTERS\r\nC\r\n      IF (ALTS(2) .LT. 0) ALTS(2) = 0\r\n      CALL WRITE (SCRT,ALTS,2,1)\r\n      FILE = PTAPE\r\n 2020 CALL READ (*2040,*2030,PTAPE,ALTS,18,1,NWDS)\r\nC\r\nC     DMAP DATA ENCOUNTERED\r\nC\r\n      CALL WRITE (SCRT,ALTS,18,1)\r\n      GO TO 2020\r\nC\r\nC     MORE ALTERS ENCOUNTERED\r\nC\r\n 2030 IF (NWDS .EQ. 2) GO TO 2010\r\nC\r\nC     END OF USER ALTERS\r\nC\r\n 2040 ALTFL = .FALSE.\r\nC\r\nC     INSERT NEW DMAP ALTERS\r\nC\r\n 2050 IF (II(2) .LT. 0) II(2) = 0\r\nC\r\n      CALL WRITE (SCRT,II,2,1)\r\n      GO TO 2070\r\nC\r\nC     WRITE ORDINARY DMAP DATA HERE\r\nC\r\n 2060 CALL WRITE (SCRT,DMAP(1,I),18,1)\r\n 2070 CONTINUE\r\nC\r\nC     WRITE COMMAND AND VARIABLE DATA ON CASE CONTROL FILE\r\nC\r\n 2080 IF (PHASE .EQ. 3) GO TO 2090\r\n      II(1) = CNAME\r\n      II(2) = NOUT\r\n      CALL WRITE (CASE,II,2,0)\r\n      CALL WRITE (CASE,IVAR,NOUT,1)\r\nC\r\nC\r\n 2090 IF (ITEMP(2) .EQ. ENDS) GO TO 2100\r\nC\r\n      REJECT = .FALSE.\r\nC\r\n      GO TO 400\r\nC\r\nC     ENDSUBS ENCOUNTERED,  STOP PROCESS\r\nC     ENSURE THAT A RECOVER ALWAYS EXISTS FOLLOWING A SOLVE\r\nC\r\n 2100 IF (PHASE.NE.2 .OR. .NOT.SOLVE .OR. RECOV) GO TO 2110\r\nC\r\nC     CONSTRUCT A DUMMY INPUT CARD\r\nC\r\n      CDATA(1) = 4\r\n      CDATA(2) = NREC\r\n      CDATA(3) = BLANK\r\n      CDATA(4) = NSOLV1\r\n      CDATA(5) = NSOLV2\r\n      SKIP = .TRUE.\r\n      ICOM = 7\r\n      GO TO 420\r\nC\r\nC     CHECK SOF AND PASSWORD DECLARATIONS\r\nC\r\n 2110 IF (PASWD(1) .NE. BLANK) IF (NSOF) 2120,2120,2140\r\n 2120 CALL PAGE2 (2)\r\n      WRITE  (OUTT,2130) UFM\r\n 2130 FORMAT (A23,' 6011, SOF DATA PASSWORD MISSING')\r\n      NOGO = 1\r\n 2140 CONTINUE\r\n      IBLKSZ = IBUF - 4\r\n      IF (MCHN.EQ.3 .OR. MCHN.EQ.4) IBLKSZ = IGINOB\r\n      FACT = 1000.0/IBLKSZ\r\n      DO 2150 I = 1,10\r\n      LENGTH(I) = LENGTH(I)*FACT\r\n      JX = LENGTH(I)/2\r\n 2150 LENGTH(I) = 2*JX\r\nC\r\nC     INITIALIZE DIRECT ACCESS FILES FOR IBM 360/370 MACHINES\r\nC\r\n      IF (MCHN .EQ. 2) CALL SOFIOI\r\n 2200 CALL PAGE2 (1)\r\n      WRITE  (OUTT,2210)\r\n 2210 FORMAT (7X,7HENDSUBS)\r\n      IF (.NOT. ALTER) GO TO 2540\r\nC\r\nC     WRAP UP DMAP\r\nC     PUT LABEL ON END OF ALTER DECK\r\nC\r\n      CNAME = COMND(1,3)\r\n      CALL ASCM02 (CNAME,PHASE,SOL,NOGO)\r\n      M = IRDM + 18\r\n      CALL WRITE (SCRT,IDAT(M),18,1)\r\nC\r\nC     REPEAT ALTER IF DRYGO IS ON\r\nC\r\n      IF (DRYFLG .NE. 0) GO TO 2230\r\n      DO 2220 I = 1,3\r\n      M = M + 18\r\n      CALL WRITE (SCRT,IDAT(M),18,1)\r\n 2220 CONTINUE\r\nC\r\nC     JUMP TO FINISH OF RIGID FORMAT\r\nC\r\n 2230 IF (PHASE .NE. 3) CALL WRITE (SCRT,IDAT(91),18,1)\r\n      IFILE = PTAPE\r\n      OFILE = SCRT\r\n      IFIN  = .FALSE.\r\n      PASS2 = .FALSE.\r\n      IF (.NOT.ALTFL) GO TO 2240\r\n      IF (ALTS(2) .LT. 0) ALTS(2)=0\r\n      CALL WRITE (SCRT,ALTS,2,1)\r\n      GO TO 2270\r\n 2240 CALL EOF (SCRT)\r\n      CALL READ (*2620,*2250,PTAPE,II,9,1,NW)\r\nC\r\nC     COPY REMAINDER OF PROBLEM TAPE TO SCRATCH FILE\r\nC\r\n 2250 IFIN = .FALSE.\r\n 2260 IF (II(1) .EQ. NXCSA) IFIN = .TRUE.\r\n      CALL WRITE (OFILE,II,NW,1)\r\nC\r\nC\r\n      IREC = 1\r\n 2270 CALL READ (*2290,*2280,IFILE,Z(IOPEN),NOPEN,0,NWDS)\r\nC\r\n      CALL WRITE (OFILE,Z(IOPEN),NOPEN,0)\r\n      GO TO 2270\r\nC\r\nC     SET ALTER FLAG ON SOL RECORD OF XCSA FILE\r\nC\r\n 2280 IF (IFIN .AND. PASS2 .AND. IREC.EQ.1) Z(IOPEN+2) = 1\r\n      CALL WRITE (OFILE,Z(IOPEN),NWDS,1)\r\n      IREC = IREC + 1\r\n      GO TO 2270\r\n 2290 CONTINUE\r\n      CALL EOF (OFILE)\r\n      IF (IFIN) GO TO 2300\r\n      CALL READ (*2620,*2260,IFILE,II,9,1,NW)\r\n      GO TO 2260\r\n 2300 CALL CLOSE (IFILE,1)\r\n      CALL CLOSE (OFILE,3)\r\n      IF (PASS2) GO TO 2530\r\nC\r\nC     PRINT OR PUNCH ALTER DECK HERE\r\nC\r\nC     DIAG 23 REQUESTS PRINT\r\nC     DIAG 24 REQUESTS PUNCH\r\nC\r\n      CALL SSWTCH (23,KPRT)\r\n      CALL SSWTCH (24,KPCH)\r\n      IF (KPRT.EQ.0 .AND. KPCH.EQ.0) GO TO 2510\r\n      ICARD = 0\r\n      CALL OPEN (*2620,SCRT,Z(BUF3),0)\r\nC\r\n 2310 CONTINUE\r\n      CALL PAGE\r\n      WRITE  (OUTT,2320)\r\n 2320 FORMAT (5X,'ALTER DECK ECHO')\r\n      NLINES = NLINES + 1\r\n 2330 IF (NLINES.GE.NLPP .AND. KPRT.NE.0) GO TO 2310\r\n      CALL READ (*2500,*2360,SCRT,CARD,18,1,NW)\r\nC\r\nC     DMAP CARD\r\nC\r\n      NC = 18\r\n      IF (KPRT .NE. 0) WRITE (OUTT,2340) ICARD,(CARD(I),I=1,NC)\r\n      IF (KPRT .NE. 0) NLINES = NLINES + 1\r\n      IF (KPCH .NE. 0) WRITE (LPCH,2350) (CARD(I),I=1,NC)\r\n      ICARD = ICARD + 1\r\n 2340 FORMAT (4X,I5,4X,18A4)\r\n 2350 FORMAT (18A4)\r\n      GO TO 2330\r\n 2360 IF (ICARD .GT. 0) GO TO 2370\r\n      ICARD = 1\r\n      GO TO 2330\r\nC\r\nC      ALTER CARD\r\nC\r\n 2370 IF (CARD(2) .LE. 0) GO TO 2400\r\n      IF (KPRT .NE. 0) WRITE (OUTT,2380) ICARD,ALT1,ALT2,(CARD(I),I=1,2)\r\n      IF (KPRT .NE. 0) NLINES = NLINES + 1\r\n      IF (KPCH .NE. 0) WRITE (LPCH,2390) ALT1,ALT2,CARD(1),CARD(2)\r\n      ICARD = ICARD + 1\r\n 2380 FORMAT (5X,I4,4X,2A4,I8,1H, ,I3)\r\n 2390 FORMAT (2A4,I8,1H,,I3)\r\n      GO TO 2330\r\n 2400 IF (KPRT .NE. 0) WRITE (OUTT,2410)ICARD,ALT1,ALT2,CARD(1)\r\n      IF (KPRT .NE. 0) NLINES = NLINES + 1\r\n      IF (KPCH .NE. 0) WRITE (LPCH,2420) ALT1,ALT2,CARD(1)\r\n      ICARD = ICARD + 1\r\n 2410 FORMAT (5X,I4,4X,2A4,I8)\r\n 2420 FORMAT (2A4,I8)\r\n      GO TO 2330\r\nC\r\nC     END OF FILE\r\nC\r\n 2500 CALL CLOSE (SCRT,0)\r\n 2510 CONTINUE\r\n      CALL OPEN (*2620,SCRT,Z(BUF3),0)\r\n      CALL OPEN (*2620,PTAPE,Z(BUF1),0)\r\nC\r\nC     COPY SCRATCH TO PROB.TAPE, FIRST POSITION PTAPE TO XALTER OR\r\nC     XCSA FILE\r\nC\r\n      ISKP = KFILE\r\n      IF (KALT .NE. 0) ISKP = KALT\r\n      CALL SKPFIL (PTAPE,ISKP)\r\n      CALL CLOSE (PTAPE,2)\r\n      CALL OPEN (*2620,PTAPE,Z(BUF1),3)\r\n      CALL READ (*2620,*2520,SCRT,II,9,1,NW)\r\n 2520 PASS2 = .TRUE.\r\n      IFIN  = .FALSE.\r\n      IFILE = SCRT\r\n      OFILE = PTAPE\r\n      GO TO 2260\r\n 2530 CONTINUE\r\nC\r\n      CALL CLOSE (SCRT,1)\r\nC\r\nC     CLOSE CASE CONTROL\r\nC\r\n 2540 IF (PHASE .NE. 3) CALL CLOSE (CASE,2)\r\n      CALL CONMSG (ASD2,2,0)\r\n      RETURN\r\nC\r\nC     USER FATAL MESSAGES\r\nC\r\n 2600 WRITE  (OUTT,2610) UFM\r\n 2610 FORMAT (A23,' 6017, MISSING ENDSUBS CARD.')\r\n      CALL MESAGE (-37,0,SUBNAM)\r\nC\r\nC     SYSTEM ERROR MESSAGES\r\nC\r\n 2620 WRITE  (OUTT,2630) SFM,FILE\r\n 2630 FORMAT (A25,' 6007, IMPROPER FILE SETUP FOR ',A4)\r\n      NLINES = NLINES + 2\r\n      GO TO 2680\r\n 2640 WRITE  (OUTT,2650) UFM,CNAME\r\n 2650 FORMAT (A23,' 6005, ILLEGAL OR MISSING DATA FOR THE PREVIOUS ',\r\n     1       'COMMAND - ',A4)\r\n      NLINES = NLINES + 2\r\n      NOGO   = 1\r\n      GO TO 2090\r\n 2660 WRITE  (OUTT,2670) UFM,ALTS(1),ALTS(2),II\r\n 2670 FORMAT (A23,' 6006, DMAP ALTERS  ',2I8, /5X,\r\n     1        'INTERFERE WITH SUBSTRUCTURE ALTERS  ',2I4)\r\n      NLINES = NLINES + 3\r\n      NOGO   = 1\r\n      GO TO 2090\r\n 2680 WRITE  (OUTT,2690) UFM\r\n 2690 FORMAT (A23,' 6009, UNRECOVERABLE ERROR CONDITIONS IN SUBROUTINE',\r\n     1       ' ASDMAP')\r\n      NLINES = NLINES + 2\r\n      NOGO   = 3\r\n      CALL CLOSE (SCRT ,1)\r\n      CALL CLOSE (CASE ,1)\r\n      CALL CLOSE (PTAPE,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/aspro.f",
    "content": "      SUBROUTINE ASPRO (DMAP,VAR,NVAR,OBITS,SOL)\r\nC\r\nC     THIS CODE  PERFORMS THE  ROUTINE PROCESSING OF THE  DMAP ALTERS\r\nC     FOR ASDMAP.  KEY TABLES ARE-\r\nC\r\nC      DMAP  -  RAW  18 WORD PER CARD BCD DATA ON INPUT, VARIABLE\r\nC               CHARACTERS ARE ADDED AND  FIELDS AND CARDS ARE DELETED\r\nC               DEPENDING ON USER INPUT IN  VAR(IABLE) AND OPTION FLAGS.\r\nC\r\nC      VAR      CONTROL DATA AND USER INPUT DATA, 3 WORDS, BCD + DATA\r\nC\r\nC      PTBS     POSITIONS-TO-BE-SET TABLE, CONTENTS-PER ENTRY\r\nC\r\nC                    1   CARD NUMBER IN DMAP\r\nC                    2   FIRST CHARACTER OF MODIFIED FIELD\r\nC                    3   FIRST CHARACTER FOR ADDED VARIABLE\r\nC                    4   NUMBER OF VARIABLE CHARACTERS\r\nC                    5   KEY OF VARIABLE TO BE INSERTED\r\nC                    6   MATRIX OPTION FLAG , 1= K, 2=M, 4=P  ETC\r\nC                    7   OUTPUT CONTROL FLAG, AVOIDS SAME DATA BLOCK\r\nC                        OUTPUT FROM TWO MODULES\r\nC\r\nC      OCT      OPTIONAL CARDS TABLE - EACH ENTRY =\r\nC                   DMAP CARD NO. , DELETE BITS ,  KEEP BITS\r\nC\r\nC      OBITS -  BITS ARE ON FOR REQUIRED MATRICES  =  SUM OF NUMBERS\r\nC                   K=1 , M=2 , P=4 , PA=8 , B=16 , K4=32\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         RMV,RMVALL\r\n      INTEGER         ANDF,DBS(2,50),DMAP(18,1),FLAG,II(2),NAME(4),\r\n     1                OBITS,OCT(3,50),PTBS(7,200),VAR(3,200),VWORD,SOL,\r\n     2                ALTER,BLANK,AST,SLAS,OBALL,RFMASK(40)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /ASDBD / IRDM,NRDM,IXTRA,NXTRA,IOCT,NOCT,IPTBS,NPTBS,\r\n     1                IPH,NPH,IDAT(1)\r\n      COMMON /ZZZZZZ/ SBD(2)\r\n      COMMON /SYSTEM/ IDUM1,IOUT,NOGO\r\n      EQUIVALENCE     (NDBS,SBD(1)),(DBS(1,1),SBD(2))\r\n      DATA    ALTER / 4HALTE /,      BLANK  / 4H     /\r\n      DATA    AST   / 4H*    /,      SLAS   / 4H/    /\r\n      DATA    RFMASK/ 65536,131072,262144,0,0,0,0,524288,1048576,31*0 /\r\n      DATA    OBALL / 63     /\r\nC\r\n      RMVALL = .TRUE.\r\n      NXDEL  = 0\r\n      NOLD   = 0\r\nC\r\nC     DELETE CARDS USING OCT TABLE.\r\nC\r\n      IF (NOCT .EQ. 0) GO TO 45\r\n      M = IOCT - 1\r\n      DO 10 J = 1,NOCT\r\n      DO 10 I = 1,3\r\n      M = M + 1\r\n      OCT(I,J) = IDAT(M)\r\n   10 CONTINUE\r\n      DO 40 I = 1,NOCT\r\n      ICD = OCT(1,I)\r\n      IF (OCT(3,I) .EQ. 0) GO TO 20\r\n      IF (ANDF(OCT(3,I),OBITS)       .EQ. 0) GO TO 35\r\n   20 IF (ANDF(OCT(2,I),RFMASK(SOL)) .EQ. 0) GO TO 40\r\n   35 DMAP(1,ICD) = -1\r\n   40 CONTINUE\r\n   45 IF (NPTBS .EQ. 0) GO TO 2000\r\n      M = IPTBS - 1\r\n      DO 46 J = 1,NPTBS\r\n      DO 46 I = 1,7\r\n      M = M + 1\r\n      PTBS(I,J) = IDAT(M)\r\n   46 CONTINUE\r\n      DO 1000 I = 1,NPTBS\r\n      ICD = PTBS(1,I)\r\n      IF (DMAP(1,ICD) .EQ. -1) GO TO 1000\r\n      IF (ICD .EQ. 0) GO TO 1000\r\n      RMV = .FALSE.\r\nC\r\nC     CHECK IF  OPTION IS ON\r\nC\r\n      KOPT = PTBS(6,I)\r\n      IF (ANDF(KOPT,OBITS) .EQ. 0) RMV = .TRUE.\r\n      IF (ANDF(KOPT,OBALL) .EQ. 0) RMV = .FALSE.\r\n      IF (ANDF(KOPT,RFMASK(SOL)) .NE. 0) RMV = .TRUE.\r\n      NCHAR = PTBS(4,I)\r\n      NC    = 0\r\n      FLAG  = 0\r\n      VWORD = BLANK\r\n      ICOL  = PTBS(3,I)\r\nC\r\nC     FIND  VARIABLE  IF  REQUIRED\r\nC\r\n      IF (RMV) GO TO 300\r\n      KEY = PTBS(5,I)\r\n      I3  = NVAR/3\r\n      DO 60 J = 1,I3\r\n      IF (VAR(1,J) .EQ. KEY) GO TO 70\r\n      IF (KEY.EQ.J .AND. VAR(1,J).EQ.ALTER) GO TO 450\r\n   60 CONTINUE\r\nC\r\nC     VARIABLE HAS NOT BEEN SET\r\nC\r\n      VWORD = BLANK\r\n      RMV   = .TRUE.\r\n      GO TO 300\r\nC\r\nC     VARIABLE  IS FOUND , IT IS IN VAR(2,J) AND/OR VAR(3,J)\r\nC\r\n   70 VWORD   = VAR(2,J)\r\n      NAME(1) = VAR(2,J)\r\n      NAME(2) = VAR(3,J)\r\nC\r\nC     TEST FOR REAL OR INTEGER\r\nC\r\n      IF (VWORD .EQ.  0) GO TO 300\r\n      IF (VWORD .EQ. -1) GO TO 74\r\n      IF (VWORD .EQ. -2) GO TO 3010\r\nC\r\nC     WORD IS REAL (TEMPORARY ERROR)\r\nC\r\n      GO TO 75\r\nC\r\nC     WORD IS AN INTEGER\r\nC\r\n   74 NAME(1) = NAME (2)\r\n      NAME(2) = 0\r\n      FLAG    = 1\r\n   75 IF (PTBS(7,I) .EQ. 0) GO TO 500\r\n      NC    = PTBS(3,I) - PTBS(2,I)\r\n      II(1) = BLANK\r\n      II(2) = BLANK\r\n      IF (NC .GT. 0) GO TO 80\r\n      IF (NC .LT. 0) GO TO 3010\r\n      II(1) = NAME(1)\r\n      II(2) = NAME(2)\r\n      GO TO 100\r\nC\r\nC     CONSTRUCT WHOLE DATA BLOCK NAME\r\nC\r\n   80 CALL PULL (DMAP(1,ICD),II,PTBS(2,I),NC,0)\r\n      CALL PUSH (NAME,II,NC+1,NCHAR,FLAG)\r\nC\r\nC     CHECK OUTPUT DATA BLOCKS AGAINST PREVIOUS OUTPUTS\r\nC\r\n  100 IF (NDBS .EQ. 0) GO TO 142\r\nC\r\n      DO 140 L = 1, NDBS\r\n      IF (II(1).EQ.DBS(1,L) .AND. II(2).EQ.DBS(2,L)) GO TO 150\r\n  140 CONTINUE\r\n  142 IF (PTBS(7,I) .GT. 0) GO TO 200\r\nC\r\nC     VARIABLE IS OK , ADD NAME TO LIST\r\nC\r\n      NDBS = NDBS + 1\r\n      DBS(1,NDBS) = II(1)\r\n      DBS(2,NDBS) = II(2)\r\n      GO TO 500\r\n  150 IF (PTBS(7,I) .GT. 0) GO TO 500\r\nC\r\nC     DATA BLOCK IS OUTPUT, REMOVE IF ALLREADY DEFINED.\r\nC\r\n  200 RMV  =.TRUE.\r\nC\r\nC     REMOVE WHOLE  NAME HERE  , CHECK FOR PARAMETER\r\nC\r\n  300 II(1)   = 0\r\n      NAME(1) = BLANK\r\n      NAME(2) = BLANK\r\n      NAME(3) = BLANK\r\n      NAME(4) = BLANK\r\n      FLAG    = 0\r\n      CALL PULL (DMAP(1,ICD),II,PTBS(2,I),1,0)\r\n      IF (II(1).EQ.SLAS .OR. II(1).EQ.AST) GO TO 500\r\n      ICOL  = PTBS(2,I)\r\n      NCHAR = NCHAR + PTBS(3,I) - PTBS(2,I)\r\n      GO TO 500\r\nC\r\nC     CHECK IF ALTER CARD, OUTPUT AS BCD AND TWO INTEGERS\r\nC\r\n  450 DMAP(1,ICD) = ALTER\r\n      DMAP(2,ICD) = VAR(2,J)\r\n      DMAP(3,ICD) = VAR(3,J)\r\n      RMVALL = .FALSE.\r\n      NXDEL  = 0\r\n      IF (VAR(2,J) .EQ. 0) RMVALL = .TRUE.\r\n      GO TO 910\r\nC\r\nC     ADD VARIABLES TO BCD DMAP\r\nC\r\n  500 CALL PUSH (NAME,DMAP(1,ICD),ICOL,NCHAR,FLAG)\r\nC\r\n      IF (.NOT.RMV) RMVALL = .FALSE.\r\nC\r\nC     IF ALL VARIABLES ARE REMOVED FROM ONE CARD, DELETE THE CARD\r\nC\r\n      NNEW = PTBS(1,I+1)\r\n      IF (ICD .EQ. NNEW) GO TO 1000\r\nC\r\nC     NEXT  COMMAND GOES TO NEW CARD,  CHECK IF CONTINUATION\r\nC\r\n  905 CALL PULL (DMAP(1,ICD+1),II,1,4,0)\r\nC\r\n      IF (II(1) .NE. BLANK) GO TO 910\r\nC\r\nC     CONTINUATION FOUND\r\nC\r\n      NXDEL = NXDEL + 1\r\n      IF (NNEW .EQ. ICD+1) GO TO 1000\r\n      ICD = ICD+1\r\n      GO TO 905\r\nC\r\nC     FINISHED WITH  LOGICAL CARD\r\nC\r\n  910 IF (.NOT.RMVALL) GO TO 940\r\n      DMAP(1,ICD) = -1\r\n      IF (NXDEL .LE. 0) GO TO 1000\r\n      DO 930 L = 1,NXDEL\r\n      J = ICD-L\r\n      DMAP(1,J) = -1\r\n  930 CONTINUE\r\n  940 RMVALL = .TRUE.\r\nC\r\nC     END OF LOOP ON VARIABLE CHARACTERS\r\nC\r\n      NXDEL = 0\r\nC\r\n 1000 CONTINUE\r\nC\r\nC     PROCESS CARDS TO BE DELETED FROM SEQUENCE\r\nC\r\n 2000 IKEEP = 0\r\n      DO 2500 ICD = 1,NRDM\r\nC\r\n      IF (DMAP(1,ICD) .EQ. -1) GO TO 2500\r\nC\r\nC     KEEP CARD\r\nC\r\n      IKEEP = IKEEP + 1\r\n      DO 2450 J = 1,18\r\n      DMAP(J,IKEEP) = DMAP(J,ICD)\r\n 2450 CONTINUE\r\n 2500 CONTINUE\r\n      NRDM = IKEEP\r\n      RETURN\r\n 3010 WRITE  (IOUT,3020) SFM,DMAP(1,ICD)\r\n 3020 FORMAT (A25,' 6010, ILLEGAL VARIABLE TO BE SET IN DMAP STATEMENT',\r\n     1        3X,A4)\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/asycon.f",
    "content": "      SUBROUTINE ASYCON\r\nC\r\nC     SUBROUTINE FOR COMPUTING CONSTANT TERM IN KAPPA MINUS\r\nC\r\n      COMPLEX         BSYCON,AI,C1,C1TEST,ALP,ALN,ARAT1,ARAT2\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\nC\r\n      C1   = 1.0\r\n      PI2  = 2.0*PI\r\n      A1   = PI2/(SPS-SNS)\r\n      GAM0 = SPS*DEL - SIGMA\r\n      A2   =-A1\r\n      B1   = GAM0/(SPS-SNS)\r\n      S1   = SPS/(DSTR**2)\r\n      S2   = SNS/DSTR\r\n      C1TEST = 0.0\r\n      DO 10 I = 1,200\r\n      R    = I\r\n      GAMP = PI2*R + GAM0\r\n      GAMN =-PI2*R + GAM0\r\n      C2P  = GAMP/DSTR - SCRK\r\n      C2Q  = GAMP/DSTR + SCRK\r\n      C2N  = GAMN/DSTR - SCRK\r\n      C3Q  = GAMN/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2P*C2Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMP*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP = T1 + T2\r\n      IF (NN .EQ. 1) ALP = CMPLX(T1,T2)\r\n      NN   = 0\r\n      CSEC = C2N*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMN*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALN = T1 + T2\r\n      IF (NN .EQ. 1) ALN = CMPLX(T1,T2)\r\n      ARAT1 = (A1*R+B1)/ALP\r\n      ARAT2 = (A2*R+B1)/ALN\r\n      C1    = C1*ARAT1*ARAT2\r\n      IF (CABS((C1-C1TEST)/C1) .LT. 0.0001)  GO TO 60\r\n      C1TEST = C1\r\n   10 CONTINUE\r\n      GO TO 9999\r\n   60 CONTINUE\r\n      BSYCON = C1\r\n      RETURN\r\nC\r\n 9999 WRITE  (IBBOUT,1000) UFM\r\n 1000 FORMAT (A23,' - AMG MODULE - SUBROUTINE ASYCON')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ateig.f",
    "content": "      SUBROUTINE ATEIG(M,A,RR,RI,IANA,IA,B,RRA,RRI)\r\nC\r\nC     ..................................................................\r\nC\r\nC        SUBROUTINE ATEIG\r\nC\r\nC        PURPOSE\r\nC           COMPUTE THE EIGENVALUES OF A REAL ALMOST TRIANGULAR MATRIX\r\nC\r\nC        USAGE\r\nC           CALL ATEIG(M,A,RR,RI,IANA,IA)\r\nC\r\nC        DESCRIPTION OF THE PARAMETERS\r\nC           M      ORDER OF THE MATRIX\r\nC           A      THE INPUT MATRIX, M BY M\r\nC           RR     VECTOR CONTAINING THE REAL PARTS OF THE EIGENVALUES\r\nC                  ON RETURN\r\nC           RI     VECTOR CONTAINING THE IMAGINARY PARTS OF THE EIGEN-\r\nC                  VALUES ON RETURN\r\nC           IANA   VECTOR WHOSE DIMENSION MUST BE GREATER THAN OR EQUAL\r\nC                  TO M, CONTAINING ON RETURN INDICATIONS ABOUT THE WAY\r\nC                  THE EIGENVALUES APPEARED (SEE MATH. DESCRIPTION)\r\nC           IA     SIZE OF THE FIRST DIMENSION ASSIGNED TO THE ARRAY A\r\nC                  IN THE CALLING PROGRAM WHEN THE MATRIX IS IN DOUBLE\r\nC                  SUBSCRIPTED DATA STORAGE MODE.\r\nC                  IA=M WHEN THE MATRIX IS IN SSP VECTOR STORAGE MODE.\r\nC\r\nC        REMARKS\r\nC           THE ORIGINAL MATRIX IS DESTROYED\r\nC           THE DIMENSION OF RR AND RI MUST BE GREATER OR EQUAL TO M\r\nC\r\nC        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED\r\nC           NONE\r\nC\r\nC        METHOD\r\nC           QR DOUBLE ITERATION\r\nC\r\nC        REFERENCES\r\nC           J.G.F. FRANCIS - THE QR TRANSFORMATION---THE COMPUTER\r\nC           JOURNAL, VOL. 4, NO. 3, OCTOBER 1961, VOL. 4, NO. 4, JANUARY\r\nC           1962.  J. H. WILKINSON - THE ALGEBRAIC EIGENVALUE PROBLEM -\r\nC           CLARENDON PRESS, OXFORD, 1965.\r\nC\r\nC     ..................................................................\r\nC\r\n      DIMENSION IANA(1)\r\n      DIMENSION RRA(1),RRI(1),B(1)\r\n      DOUBLE PRECISION A(1),RR(1),RI(1),PRR(2),PRI(2)\r\n      DOUBLE PRECISION ALPHA,CAP,D,DELTA,EPS,ETA,E10,E6,E7,G1,G2,G3\r\n      DOUBLE PRECISION PAN,PAN1,PSI1,PSI2,R,RMOD,S,T,U,V\r\n      INTEGER P,P1,Q\r\nC\r\n      E7=1.0E-8\r\n      E6=1.0E-6\r\n      E10=1.0E-10\r\n      DELTA=0.5\r\n      MAXIT=30\r\nC\r\nC        INITIALIZATION\r\nC\r\n      N=M\r\n   20 N1=N-1\r\n      IN=N1*IA\r\n      NN=IN+N\r\n      IF(N1) 30,1300,30\r\n   30 NP=N+1\r\nC\r\nC        ITERATION COUNTER\r\nC\r\n      IT=0\r\nC\r\nC        ROOTS OF THE 2ND ORDER MAIN SUBMATRIX AT THE PREVIOUS\r\nC        ITERATION\r\nC\r\n      DO 40 I=1,2\r\n      PRR(I)=0.0\r\n   40 PRI(I)=0.0\r\nC\r\nC        LAST TWO SUBDIAGONAL ELEMENTS AT THE PREVIOUS ITERATION\r\nC\r\n      PAN=0.0\r\n      PAN1=0.0\r\nC\r\nC        ORIGIN SHIFT\r\nC\r\n      R=0.0\r\n      S=0.0\r\nC\r\nC        ROOTS OF THE LOWER MAIN 2 BY 2 SUBMATRIX\r\nC\r\n      N2=N1-1\r\n      IN1=IN-IA\r\n      NN1=IN1+N\r\n      N1N=IN+N1\r\n      N1N1=IN1+N1\r\n   60 T=A(N1N1)-A(NN)\r\n      U=T*T\r\n      V=4.0D0*A(N1N)*A(NN1)\r\n      IF (DABS(V)-U*E7) 100,100,65\r\n   65 T=U+V\r\n      IF (DABS(T)-DMAX1(U,DABS(V))*E6) 67,67,68\r\n   67 T=0.0\r\n68    U=(A(N1N1)+A(NN))/2.0D0\r\n      V=DSQRT(DABS(T))/2.0D0\r\n      IF(T)140,70,70\r\n   70 IF(U) 80,75,75\r\n   75 RR(N1)=U+V\r\n      RR(N)=U-V\r\n      GO TO 130\r\n   80 RR(N1)=U-V\r\n      RR(N)=U+V\r\n      GO TO 130\r\n  100 IF(T)120,110,110\r\n  110 RR(N1)=A(N1N1)\r\n      RR(N)=A(NN)\r\n      GO TO 130\r\n  120 RR(N1)=A(NN)\r\n      RR(N)=A(N1N1)\r\n  130 RI(N)=0.0\r\n      RI(N1)=0.0\r\n      GO TO 160\r\n  140 RR(N1)=U\r\n      RR(N)=U\r\n      RI(N1)=V\r\n      RI(N)=-V\r\n  160 IF(N2)1280,1280,180\r\nC\r\nC        TESTS OF CONVERGENCE\r\nC\r\n  180 N1N2=N1N1-IA\r\n      RMOD=RR(N1)*RR(N1)+RI(N1)*RI(N1)\r\n      EPS=E10*DSQRT(RMOD)\r\n      IF(DABS(A(N1N2))-EPS)1280,1280,240\r\n240   IF(DABS(A(NN1))-E10*DABS(A(NN))) 1300,1300,250\r\n250   IF(DABS(PAN1-A(N1N2))-DABS(A(N1N2))*E6) 1240,1240,260\r\n260   IF(DABS(PAN-A(NN1))-DABS(A(NN1))*E6) 1240,1240,300\r\n  300 IF(IT-MAXIT) 320,1240,1240\r\nC\r\nC        COMPUTE THE SHIFT\r\nC\r\n  320 J=1\r\n      DO 360 I=1,2\r\n      K=NP-I\r\n      IF(DABS(RR(K)-PRR(I))+DABS(RI(K)-PRI(I))-DELTA*(DABS(RR(K))\r\n     *   +DABS(RI(K)))) 340,360,360\r\n  340 J=J+I\r\n  360 CONTINUE\r\n      GO TO (440,460,460,480),J\r\n  440 R=0.0\r\n      S=0.0\r\n      GO TO 500\r\n  460 J=N+2-J\r\n      R=RR(J)*RR(J)\r\n      S=RR(J)+RR(J)\r\n      GO TO 500\r\n  480 R=RR(N)*RR(N1)-RI(N)*RI(N1)\r\n      S=RR(N)+RR(N1)\r\nC\r\nC        SAVE THE LAST TWO SUBDIAGONAL TERMS AND THE ROOTS OF THE\r\nC        SUBMATRIX BEFORE ITERATION\r\nC\r\n  500 PAN=A(NN1)\r\n      PAN1=A(N1N2)\r\n      DO 520 I=1,2\r\n      K=NP-I\r\n      PRR(I)=RR(K)\r\n  520 PRI(I)=RI(K)\r\nC\r\nC        SEARCH FOR A PARTITION OF THE MATRIX, DEFINED BY P AND Q\r\nC\r\n      P=N2\r\n      IPI = N1N2\r\n      DO 580 J=2,N2\r\n      IPI = IPI - IA - 1\r\n      IF(DABS(A(IPI))-EPS) 600,600,530\r\n  530 IPIP=IPI+IA\r\n      IPIP2=IPIP+IA\r\n      D=A(IPIP)*(A(IPIP)-S)+A(IPIP2)*A(IPIP+1)+R\r\n      IF(D)540,560,540\r\n540   IF(DABS(A(IPI)*A(IPIP+1))*(DABS(A(IPIP)+A(IPIP2+1)-S)+\r\n     * DABS(A(IPIP2+2)))-DABS(D)*EPS) 620,620,560\r\n  560 P=N1-J\r\n  580 CONTINUE\r\n  600 Q=P\r\n      GO TO 680\r\n  620 P1=P-1\r\n      Q = P\r\n      DO 660 I = 1,P1\r\n      IPI = IPI - IA - 1\r\n      IF(DABS(A(IPI))-EPS) 680,680,660\r\n  660 Q=Q-1\r\nC\r\nC        QR DOUBLE ITERATION\r\nC\r\n  680 II=(P-1)*IA+P\r\n      DO 1220 I=P,N1\r\n      II1=II-IA\r\n      IIP=II+IA\r\n      IF(I-P)720,700,720\r\n  700 IPI=II+1\r\n      IPIP=IIP+1\r\nC\r\nC        INITIALIZATION OF THE TRANSFORMATION\r\nC\r\n      G1=A(II)*(A(II)-S)+A(IIP)*A(IPI)+R\r\n      G2=A(IPI)*(A(IPIP)+A(II)-S)\r\n      G3=A(IPI)*A(IPIP+1)\r\n      A(IPI+1)=0.0\r\n      GO TO 780\r\n  720 G1=A(II1)\r\n      G2=A(II1+1)\r\n      IF(I-N2)740,740,760\r\n  740 G3=A(II1+2)\r\n      GO TO 780\r\n  760 G3=0.0\r\n780   CAP=DSQRT(G1*G1+G2*G2+G3*G3)\r\n      IF(CAP)800,860,800\r\n  800 IF(G1)820,840,840\r\n  820 CAP=-CAP\r\n  840 T=G1+CAP\r\n      PSI1=G2/T\r\n      PSI2=G3/T\r\n      ALPHA=2.0D0/(1.0D0+PSI1*PSI1+PSI2*PSI2)\r\n      GO TO 880\r\n  860 ALPHA=2.0\r\n      PSI1=0.0\r\n      PSI2=0.0\r\n  880 IF(I-Q)900,960,900\r\n  900 IF(I-P)920,940,920\r\n  920 A(II1)=-CAP\r\n      GO TO 960\r\n  940 A(II1)=-A(II1)\r\nC\r\nC        ROW OPERATION\r\nC\r\n  960 IJ=II\r\n      DO 1040 J=I,N\r\n      T=PSI1*A(IJ+1)\r\n      IF(I-N1)980,1000,1000\r\n  980 IP2J=IJ+2\r\n      T=T+PSI2*A(IP2J)\r\n 1000 ETA=ALPHA*(T+A(IJ))\r\n      A(IJ)=A(IJ)-ETA\r\n      A(IJ+1)=A(IJ+1)-PSI1*ETA\r\n      IF(I-N1)1020,1040,1040\r\n 1020 A(IP2J)=A(IP2J)-PSI2*ETA\r\n 1040 IJ=IJ+IA\r\nC\r\nC        COLUMN OPERATION\r\nC\r\n      IF(I-N1)1080,1060,1060\r\n 1060 K=N\r\n      GO TO 1100\r\n 1080 K=I+2\r\n 1100 IP=IIP-I\r\n      DO 1180 J=Q,K\r\n      JIP=IP+J\r\n      JI=JIP-IA\r\n      T=PSI1*A(JIP)\r\n      IF(I-N1)1120,1140,1140\r\n 1120 JIP2=JIP+IA\r\n      T=T+PSI2*A(JIP2)\r\n 1140 ETA=ALPHA*(T+A(JI))\r\n      A(JI)=A(JI)-ETA\r\n      A(JIP)=A(JIP)-ETA*PSI1\r\n      IF(I-N1)1160,1180,1180\r\n 1160 A(JIP2)=A(JIP2)-ETA*PSI2\r\n 1180 CONTINUE\r\n      IF(I-N2)1200,1220,1220\r\n 1200 JI=II+3\r\n      JIP=JI+IA\r\n      JIP2=JIP+IA\r\n      ETA=ALPHA*PSI2*A(JIP2)\r\n      A(JI)=-ETA\r\n      A(JIP)=-ETA*PSI1\r\n      A(JIP2)=A(JIP2)-ETA*PSI2\r\n 1220 II=IIP+1\r\n      IT=IT+1\r\n      GO TO 60\r\nC\r\nC        END OF ITERATION\r\nC\r\n1240  IF(DABS(A(NN1))-DABS(A(N1N2))) 1300,1280,1280\r\nC\r\nC        TWO EIGENVALUES HAVE BEEN FOUND\r\nC\r\n 1280 IANA(N)=0\r\n      IANA(N1)=2\r\n      N=N2\r\n      IF(N2)1400,1400,20\r\nC\r\nC        ONE EIGENVALUE HAS BEEN FOUND\r\nC\r\n 1300 RR(N)=A(NN)\r\n      RI(N)=0.0\r\n      IANA(N)=1\r\n      IF(N1)1400,1400,1320\r\n 1320 N=N1\r\n      GO TO 20\r\n1400  CONTINUE\r\n      K=0\r\n      DO 1410 I=1,M\r\n      RRA(I)=RR(I)\r\n      RRI(I)=RI(I)\r\n      DO 1420 J=1,M\r\n      K=K+1\r\n      B(K)=A(K)\r\n1420  CONTINUE\r\n1410  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/autock.f",
    "content": "      SUBROUTINE AUTOCK (IADD)\r\nC\r\nC     THIS ROUTINE GENERATES A CHKPT OSCAR RECORD WHEN THE PRECHK\r\nC     OPTION IS BEING USED, THE ADDRESS IADD IS THE STARTING\r\nC     LOCATION OF THE OUTPUT FILE NAMES TO BE TESTED\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      INTEGER         PRENAM,PREFLG,OSPRC,OSBOT,OSPNT,LIST(100),XCHK(2),\r\n     1                DMPCNT,RSHIFT,CASESS(2),CASECC(2),CASEI(2),\r\n     2                OSCAR(1),OS(5)\r\n      COMMON /AUTOCM/ PREFLG,NNAMES,PRENAM(100)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI4 / JUNK(2),ISEQN,DMPCNT\r\n      COMMON /AUTOHD/ IHEAD\r\n      EQUIVALENCE     (LOSCAR,CORE(1),OS(1)),(OSPRC,OS(2)),\r\n     1                (OSBOT,OS(3)),(OSPNT,OS(4)),(OSCAR(1),OS(5))\r\n      DATA    CASESS/ 4HCASE, 4HSS  /\r\n      DATA    CASECC/ 4HCASE, 4HCC  /\r\n      DATA    CASEI / 4HCASE, 4HI   /\r\n      DATA    XCHK  / 4HXCHK, 4H    /\r\n      DATA    IBLANK/ 0             /\r\nC\r\n      IHEAD = 0\r\n      IOP   = 0\r\n      IF (PREFLG) 200,200,5\r\n    5 PREFLG = IABS(PREFLG)\r\n      NOPF = OSCAR(IADD)\r\n      NWD  = 3*NOPF\r\n      IST  = IADD + 1\r\n      IFIN = IST + NWD - 1\r\n      NLIST= 0\r\n      INCR = 3\r\nC\r\n      GO TO (1,2,3), PREFLG\r\nC\r\nC     CHECK OUTPUT FILE AGAINST LIST\r\nC\r\n    1 N2 = 2*NNAMES\r\n      DO 10 I = IST,IFIN,INCR\r\n      DO 11 J = 1,N2,2\r\n      IF (PRENAM(J).EQ.CASESS(1) .AND.PRENAM(J+1).EQ.CASESS(2)) GO TO 11\r\n      IF (PRENAM(J).EQ.CASECC(1) .AND.PRENAM(J+1).EQ.CASECC(2)) GO TO 11\r\n      IF (PRENAM(J).EQ.CASEI( 1) .AND.PRENAM(J+1).EQ.CASEI( 2)) GO TO 11\r\n      IF (PRENAM(J).NE.OSCAR(I) .OR. PRENAM(J+1).NE.OSCAR(I+1)) GO TO 11\r\n      NLIST = NLIST + 1\r\n      LIST(2*NLIST-1) = OSCAR(I  )\r\n      LIST(2*NLIST  ) = OSCAR(I+1)\r\n   11 CONTINUE\r\n   10 CONTINUE\r\n      IF (IOP   .EQ. 1) GO TO 300\r\n      IF (NLIST .EQ. 0) RETURN\r\n      GO TO 100\r\nC\r\nC     PREFLG=ALL OPTION, CHECKPOINT ALL OUTPUT DATA BLOCKS\r\nC\r\n    2 DO 20 I = IST,IFIN,INCR\r\n      IF (OSCAR(I).EQ.IBLANK .AND. OSCAR(I+1).EQ.IBLANK) GO TO 20\r\n      IF (OSCAR(I).EQ.CASESS(1) .AND. OSCAR(I+1).EQ.CASESS(2)) GO TO 20\r\n      IF (OSCAR(I).EQ.CASECC(1) .AND. OSCAR(I+1).EQ.CASECC(2)) GO TO 20\r\n      IF (OSCAR(I).EQ.CASEI( 1) .AND. OSCAR(I+1).EQ.CASEI( 2)) GO TO 20\r\n      NLIST = NLIST + 1\r\n      LIST(2*NLIST-1) = OSCAR(I  )\r\n      LIST(2*NLIST  ) = OSCAR(I+1)\r\n   20 CONTINUE\r\n      IF (IOP .EQ. 1) GO TO 300\r\n      GO TO 100\r\nC\r\nC     CHECK OUTPUT FILES EXCEPT THOSE IN LIST\r\nC\r\n    3 N2 = 2*NNAMES\r\n      DO 30 I = IST,IFIN,INCR\r\n      DO 31 J = 1,N2,2\r\n      IF (PRENAM(J).EQ.OSCAR(I) .AND.PRENAM(J+1).EQ.OSCAR(I+1)) GO TO 30\r\n   31 CONTINUE\r\n      IF (OSCAR(I).EQ.IBLANK .AND. OSCAR(I+1).EQ.IBLANK ) GO TO 30\r\n      IF (OSCAR(I).EQ.CASESS(1) .AND. OSCAR(I+1).EQ.CASESS(2)) GO TO 30\r\n      IF (OSCAR(I).EQ.CASECC(1) .AND. OSCAR(I+1).EQ.CASECC(2)) GO TO 30\r\n      IF (OSCAR(I).EQ.CASEI( 1) .AND. OSCAR(I+1).EQ.CASEI( 2)) GO TO 30\r\n      NLIST = NLIST + 1\r\n      LIST(2*NLIST-1) = OSCAR(I  )\r\n      LIST(2*NLIST  ) = OSCAR(I+1)\r\n   30 CONTINUE\r\n      IF (IOP   .EQ. 1) GO TO 300\r\n      IF (NLIST .EQ. 0) RETURN\r\n      GO TO 100\r\nC\r\nC     PURGE OR EQUIV DATA BLOCK LIST MUST BE CHECKED\r\nC\r\n  200 NWD = OSCAR(OSPNT)\r\n      MI  = RSHIFT(OSCAR(OSPNT+2),16)\r\n      IB  = OSPNT + 6\r\n      PREFLG = IABS(PREFLG)\r\n      NDB = OSCAR(IB)\r\n      IOP = 1\r\n      IF (MI .EQ.  9) IST  = IB + 1\r\n      IF (MI .EQ. 10) IST  = IB + 4\r\n      IF (MI .EQ.  9) IFIN = IST + 2*NDB - 1\r\n      IF (MI .EQ. 10) IFIN = IST + 2*NDB - 3\r\n      NWD  = NWD - 6\r\n      INCR = 2\r\n      NLIST= 0\r\n      GO TO (1,2,3), PREFLG\r\n300   NWD = NWD - 2*NDB - 2\r\n      IF (MI .EQ. 10) NWD = NWD - 1\r\n      IF (NWD.LE.0 .AND. NLIST.NE.0) GO TO 100\r\n      IF (NWD.LE.0 .AND. NLIST.EQ.0) GO TO 999\r\n      NDB = OSCAR(IFIN+2)\r\n      IF (MI .EQ.  9) IST = IFIN + 3\r\n      IF (MI .EQ. 10) IST = IFIN + 6\r\n      IFIN = IST + 2*NDB - 1\r\n      IF (MI .EQ. 10) IFIN = IFIN - 2\r\n      GO TO (1,2,3), PREFLG\r\nC\r\nC     UPDATE OSCAR PARAMETERS\r\nC\r\n  100 IHEAD = 1\r\n      OSPRC = OSBOT\r\n      OSBOT = OSCAR(OSBOT) + OSBOT\r\n      OSPNT = OSBOT\r\n      ISEQN = OSCAR(OSPRC+1) + 1\r\nC\r\nC     LOAD HEADER\r\nC\r\n      OSCAR(OSPNT  ) = 6\r\n      OSCAR(OSPNT+1) = ISEQN\r\n      OSCAR(OSPNT+2) = 4 + LSHIFT(3,16)\r\n      OSCAR(OSPNT+3) = XCHK(1)\r\n      OSCAR(OSPNT+4) = XCHK(2)\r\n      OSCAR(OSPNT+5) = DMPCNT\r\n      IF (IOP .EQ. 1) OSCAR(OSPNT+5) = OSCAR(OSPNT+5) - 1\r\n      OSCAR(OSPNT+6) = NLIST\r\n      CALL XLNKHD\r\n      IF (NLIST .EQ. 0) GO TO 110\r\nC\r\nC     LOAD CHKPNT INFORMATION\r\nC\r\n      NLIST = 2*NLIST\r\n      DO 101 I = 1,NLIST,2\r\n      OSCAR(OSPNT+6+I) = LIST(I)\r\n      OSCAR(OSPNT+7+I) = LIST(I+1)\r\n  101 CONTINUE\r\n  110 OSCAR(OSPNT) = OSCAR(OSPNT) + NLIST + 1\r\n  999 IHEAD = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/autosv.f",
    "content": "      SUBROUTINE AUTOSV\r\nC\r\nC     THIS ROUTINE GENERATES OSCAR ENTRIES FOR PARAMTERS\r\nC     THAT ARE TO BE SAVED IMPLICITLY\r\nC\r\n      EXTERNAL         LSHIFT,ANDF\r\n      INTEGER          SAVNAM,OSPRC,OSBOT,OSPNT,OSCAR(1),OS(5),XSAV(2),\r\n     1                 DMPCNT,ANDF,VPS\r\n      COMMON  /XGPIC / JUNK(25),MASKHI,JUNK1(2),NOSGN\r\n      COMMON  /AUTOSM/ NWORDS,SAVNAM(100)\r\n      COMMON  /ZZZZZZ/ CORE(1)\r\n      COMMON  /XVPS  / VPS(1)\r\n      COMMON  /XGPI4 / JUNK4(2),ISEQN,DMPCNT\r\n      COMMON  /AUTOHD/ IHEAD\r\n      EQUIVALENCE      (CORE(1),OS(1),LOSCAR), (OS(2),OSPRC),\r\n     1                 (OS(3),OSBOT), (OS(4),OSPNT), (OS(5),OSCAR(1))\r\n      DATA     XSAV  / 4HXSAV,4HE    /\r\nC\r\nC     UPDATE OSCAR PARAMETERS\r\nC\r\n      IHEAD = 1\r\n      OSPRC = OSBOT\r\n      OSBOT = OSCAR(OSBOT) + OSBOT\r\n      OSPNT = OSBOT\r\n      ISEQN = OSCAR(OSPRC+1) + 1\r\nC\r\nC     LOAD HEADER\r\nC\r\n      OSCAR(OSPNT  ) = 6\r\n      OSCAR(OSPNT+1) = ISEQN\r\n      OSCAR(OSPNT+2) = 4 + LSHIFT(8,16)\r\n      OSCAR(OSPNT+3) = XSAV(1)\r\n      OSCAR(OSPNT+4) = XSAV(2)\r\n      OSCAR(OSPNT+5) = DMPCNT\r\n      CALL XLNKHD\r\nC\r\nC     HAVING THE VPS POINTERS FOR EACH PARAMETER, FIND THE\r\nC     DISPLACEMENT IN COMMON\r\nC\r\n      J = OSPRC + 6 + 3*OSCAR(OSPRC+6) + 1\r\n      IF (ANDF(OSCAR(OSPRC+2),MASKHI) .EQ. 1) J = J+1+3*OSCAR(J)\r\n      J  = J + 1\r\n      N3 = J+1\r\n      N1 = OSCAR(J)\r\n      N2 = 1\r\n      OSCAR(OSPNT+6) = NWORDS\r\n      OSCAR(OSPNT  ) = OSCAR(OSPNT) + 1\r\n      IPT = 1\r\n      IST = N3\r\n140   IF (OSCAR(IST) .GT. 0) GO TO 110\r\nC\r\nC     SEEE IF PARAMETER IS IN SAVE LIST\r\nC\r\nC     LL = ANDF(OSCAR(IST),NOSGN )  REPLACED BY NEXT CARD, OCT. 1983\r\n      LL = ANDF(OSCAR(IST),MASKHI)\r\n      L  = ANDF(VPS(LL-1) ,MASKHI)\r\n      DO 100 I = 1,NWORDS\r\n      IF (ANDF(OSCAR(IST),NOSGN) .EQ. SAVNAM(I)) GO TO 120\r\n100   CONTINUE\r\nC\r\nC     NOT TO BE SAVED, GO TO NEXT PARAMETER\r\nC\r\n      IST = IST + 1\r\n      N2  = N2  + L\r\n      GO TO 140\r\nC\r\nC     CONSTANT PARAMETER, SKIP IT\r\nC\r\n110   NWD = OSCAR(IST)\r\n      IST = IST+NWD+1\r\n      N2  = N2 + NWD\r\n      GO TO 140\r\nC\r\nC     PARAMETER TO BE SAVED, PUT IN OSCAR\r\nC\r\n120   OSCAR(OSPNT+6+2*I-1) = SAVNAM(IPT)\r\n      OSCAR(OSPNT+6+2*I  ) = N2\r\n      OSCAR(OSPNT) = OSCAR(OSPNT) + 2\r\n      IPT = IPT + 1\r\n      IST = IST + 1\r\n      N2  = N2  + L\r\n      IF (IPT .LE. NWORDS) GO TO  140\r\n      IHEAD = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/axis.f",
    "content": "      SUBROUTINE AXIS (XA,YA,XB,YB,PENX,OPT)\r\nC\r\nC     (XA,YA) = STARTING POINT OF THE AXIS.\r\nC     (XB,YB) = TERMINAL POINT OF THE AXIS.\r\nC     PENX    = PEN NUMBER OR LINE DENSITY (DEPENDS ON PLOTTER).\r\nC     OPT     = -1 TO INITIATE  THE LINE MODE.\r\nC             = +1 TO TERMINATE THE LINE MODE.\r\nC             =  0 TO DRAW A LINE.\r\nC\r\n      INTEGER PEN,PENX,OPT,PLOTER\r\n      COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(6),NPENS\r\nC\r\n      IF (OPT .NE. 0) GO TO 110\r\n      PEN = MAX0(PENX,1)\r\n      PEN = PEN - NPENS*((PEN-1)/NPENS)\r\nC\r\n  110 CALL AXIS10 (XA,YA,XB,YB,PEN,OPT)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/axis10.f",
    "content": "      SUBROUTINE AXIS10 (X1,Y1,X2,Y2,PENDEN,OPT)\r\nC\r\nC     (X1,Y1) = STARTING POINT OF THE AXIS.\r\nC     (X2,Y2) = TERMINAL POINT OF THE AXIS.\r\nC     PENDEN  = PEN NUMBER OR LINE DENSITY.\r\nC     OPT     = -1 TO INITIATE  THE AXIS MODE.\r\nC     ...     = +1 TO TERMINATE THE AXIS MODE.\r\nC     ...     =  0 TO DRAW AN AXIS.\r\nC\r\n      INTEGER PENDEN,OPT,OPTX,A(6),AXIS\r\n      REAL    XY(2,2)\r\n      COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2)\r\n      DATA    OPTX  / -1 /\r\n      DATA    AXIS  /  6 /\r\nC\r\n      IF (OPTX .GE. 0) OPTX = OPT\r\n      IF (OPT) 200,100,150\r\n  100 XY(1,1) = X1\r\n      XY(2,1) = Y1\r\n      XY(1,2) = X2\r\n      XY(2,2) = Y2\r\n      DO 101 J = 1,2\r\n      DO 101 I = 1,2\r\n      IF (XY(I,J) .LT. XYMIN(I)) XY(I,J) = XYMIN(I)\r\n      IF (XY(I,J) .GT. XYMAX(I)) XY(I,J) = XYMAX(I)\r\n  101 CONTINUE\r\nC\r\nC     DRAW THE AXIS.\r\nC\r\n      A(1) = AXIS\r\n      A(2) = PENDEN\r\n      DO 110 J = 1,2\r\n      A(2*J+1) = XY(1,J) + .1\r\n      A(2*J+2) = XY(2,J) + .1\r\n  110 CONTINUE\r\n      IF (OPTX .EQ. 0) GO TO 120\r\nC\r\nC     INITIATE THE AXIS MODE.\r\nC\r\n      A(1) = A(1) + 10\r\n      OPTX = 0\r\nC\r\nC     DRAW THE LINE.\r\nC\r\n  120 CALL WPLT10 (A,0)\r\n      GO TO 200\r\nC\r\nC\r\nC     TERMINATE THE LINE MODE.\r\nC\r\n  150 CALL WPLT10 (A,1)\r\n      OPTX = -1\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/axloop.f",
    "content": "      SUBROUTINE AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\nC\r\n      INTEGER         OTPE\r\n      DIMENSION       BUF(50),IBUF(50)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ SYSBUF,OTPE\r\n      COMMON /BLANK / IDUM(3),EPSE\r\nC\r\n      PI    = 3.1415926536\r\n      PIBY2 = 1.5707963268\r\n      FPI   = 12.56637062\r\n      C     = 1.\r\nC\r\n      XJ  = BUF(1)\r\n      IAXI= IBUF(2)\r\n      X1  = BUF(3)\r\n      Y1  = BUF(4)\r\n      Z1  = BUF(5)\r\n      X2  = BUF(6)\r\n      Y2  = BUF(7)\r\n      Z2  = BUF(8)\r\n      XC  = BUF(9)\r\n      YC  = BUF(10)\r\n      ZC  = BUF(11)\r\nC\r\nC     FOR NOW, ICID = 0\r\nC\r\n      ICID = IBUF(12)\r\nC\r\nC     CHECK FOR AXISYMMETRIC PROBLEM\r\nC\r\n      IF (IAXI .NE. 1) GO TO 10\r\n      XC = 0.\r\n      YC = 0.\r\n      ZC = Z1\r\n      X2 = 0.\r\n      Y2 = X1\r\n      Z2 = Z1\r\n   10 CONTINUE\r\nC\r\nC     DETERMINE THE DIRECTION OF THE CURRENT LOOP AXIS\r\nC\r\n      CX = X1 - XC\r\n      CY = Y1 - YC\r\n      CZ = Z1 - ZC\r\n      BX = X2 - XC\r\n      BY = Y2 - YC\r\n      BZ = Z2 - ZC\r\nC\r\nC     THE VECTOR AN IS NORMAL TO THE PLANE OF THE LOOP\r\nC\r\n      ANX = CY*BZ - CZ*BY\r\n      ANY = CZ*BX - CX*BZ\r\n      ANZ = CX*BY - CY*BX\r\n      AT1 = SQRT(ANX*ANX + ANY*ANY + ANZ*ANZ)\r\n      AT2  = BX*BX + BY*BY + BZ*BZ\r\n      RAD2 = CX*CX + CY*CY + CZ*CZ\r\n      RADIUS = SQRT(RAD2)\r\n      XIACPI = (XJ*RAD2*PI)/C\r\nC\r\n      ANX = ANX/AT1\r\n      ANY = ANY/AT1\r\n      ANZ = ANZ/AT1\r\nC\r\nC     THE VECTOR R IS FROM THE CENTER OF LOOP TO THE FIELD POINT\r\nC\r\n      RX = XX - XC\r\n      RY = YY - YC\r\n      RZ = ZZ - ZC\r\nC\r\n      R2 = RX*RX + RY*RY + RZ*RZ\r\n      R  = SQRT(R2)\r\nC\r\nC     AT (OR NEAR) CENTER OF LOOP TEST\r\nC\r\n      IF (R .GE. .001) GO TO 218\r\n      COSTHE = 1.\r\n      SINTHE = 0.\r\n      SQAR2S = SQRT(RAD2+R2)\r\n      RX  = ANX\r\n      RY  = ANY\r\n      RZ  = ANZ\r\n      RPX = 0.\r\n      RPY = 0.\r\n      RPZ = 0.\r\n      GO TO 220\r\n  218 CONTINUE\r\nC\r\n      RX = RX/R\r\n      RY = RY/R\r\n      RZ = RZ/R\r\n      COSTHE = ANX*RX + ANY*RY + ANZ*RZ\r\n      SINTHE = SQRT(1. - COSTHE*COSTHE)\r\nC\r\nC     ON (OR VERY NEAR) AXIS OF LOOP TEST\r\nC\r\n      IF (SINTHE .GE. .000001) GO TO 219\r\n      COSTHE = 1.\r\n      SINTHE = 0.\r\n      SQAR2S = SQRT(RAD2+R2)\r\n      RX  = ANX\r\n      RY  = ANY\r\n      RZ  = ANZ\r\n      RPX = 0.\r\n      RPY = 0.\r\n      RPZ = 0.\r\n      GO TO 220\r\n  219 CONTINUE\r\nC\r\n      SQAR2S = SQRT(RAD2 + R2 + (2.*RADIUS*R*SINTHE))\r\n      REALK2 = (4.*RADIUS*R*SINTHE)/(RAD2+R2+(2.*RADIUS*R*SINTHE))\r\n      REALK  = SQRT(REALK2)\r\n      XIACR  = (XJ*RADIUS)/(C*R)\r\nC\r\nC     A CROSS R, NORMAL TO THE PLANE OF A AND R\r\nC\r\n      TX = ANY*RZ - ANZ*RY\r\n      TY = ANZ*RX - ANX*RZ\r\n      TZ = ANX*RY - ANY*RX\r\nC\r\nC     (A CROSS R) CROSS R, NORMAL TO THE PLANE OF R AND (A AND R)\r\nC\r\n      TRPX = TY*RZ - TZ*RY\r\n      TRPY = TZ*RX - TX*RZ\r\n      TRPZ = TX*RY - TY*RX\r\n      AT3  = SQRT(TRPX*TRPX + TRPY*TRPY + TRPZ*TRPZ)\r\nC\r\nC     RPERP, PERPENDICULAR TO THE VECTOR FROM THE CENTER TO THE FIELD PT\r\nC\r\n      RPX = TRPX/AT3\r\n      RPY = TRPY/AT3\r\n      RPZ = TRPZ/AT3\r\nC\r\nC     FOR SMALL POLAR ANGLE OR SMALL RADIUS USE ALTERNATIVE APPROX.\r\nC\r\n      IF (REALK2 .LT. .0001) GO TO 220\r\nC\r\nC     COMPUTE ELLIPTIC INTEGRAL OF FIRST KIND\r\nC\r\n      F = 1.\r\n      DELTF1 = 1.\r\n      DO 240 N = 1,15000\r\n      XN2  = 2.*FLOAT(N)\r\n      XN21 = XN2 - 1.\r\n      DELTF1 = DELTF1*(XN21/XN2)*REALK\r\n      DELTF2 = DELTF1*DELTF1\r\n      F = F + DELTF2\r\n      IF (ABS(DELTF2/F) .LE. EPSE) GO TO 250\r\n  240 CONTINUE\r\n      DELF = ABS(DELTF2/F)\r\n      WRITE (OTPE,245) UWM,XX,YY,ZZ,XC,YC,ZC,X1,Y1,Z1,X2,Y2,Z2,DELF,EPSE\r\n  245 FORMAT (A25,', CONVERGENCE OF ELLIPTIC INTEGRAL IS UNCERTAIN. ',\r\n     1     'GRID OR INTEGRATION POINT AT COORDINATES', /5X,\r\n     2     1P,3E15.6,'  IS TOO CLOSE TO CURRENT LOOP WITH CENTER AT',\r\n     3     /5X,1P,3E15.6,' AND 2 POINTS AT ',1P,3E15.6, /5X,4HAND ,1P,\r\n     4     3E15.6,' COMPUTATIONS WILL CONTINUE WITH LAST VALUES', /5X,\r\n     5     'CONVERGENCE VALUE WAS ',1P,E15.6,\r\n     6     ' CONVERGENCE CRITERION IS ',1P,E15.6)\r\n  250 F = PIBY2*F\r\nC\r\nC     COMPUTE ELLIPTIC INTEGRAL OF SECOND KIND\r\nC\r\n      E = 1.\r\n      DELTE1 = 1.\r\n      DO 260 N = 1,15000\r\n      XN2  = 2.*FLOAT(N)\r\n      XN21 = XN2-1.\r\n      DELTE1 = DELTE1*(XN21/XN2)*REALK\r\n      DELTE2 = (DELTE1*DELTE1)/XN21\r\n      E = E - DELTE2\r\n      IF (ABS(DELTE2/E) .LE. .000001) GO TO 270\r\n  260 CONTINUE\r\n      DELE = ABS(DELTE2/E)\r\n      WRITE (OTPE,245) UWM,XX,YY,ZZ,XC,YC,ZC,X1,Y1,Z1,X2,Y2,Z2,DELE\r\n  270 E = PIBY2*E\r\nC\r\nC     COMPUTE THE RADIAL COMPONENT OF THE MAGNETIC FIELD\r\nC\r\n      BR = XIACR*(COSTHE/SINTHE)*(E/SQAR2S)*(REALK2/(1.-REALK2))\r\nC\r\nC     COMPUTE THE POLAR COMPONENT OF THE MAGNETIC FIELD\r\nC\r\n      BTHE = XIACR*(1./(SQAR2S*RADIUS*R*SINTHE))*\r\n     1       (((((2.*R2)-((R2+(RADIUS*R*SINTHE))*REALK2))/\r\n     2       (1.-REALK2))*E)-(2.*R2*F))\r\nC\r\nC     GO TO THE RESOLUTION OF FIELD COMPONENTS\r\nC\r\n      GO TO 230\r\nC\r\nC     ALTERNATIVE APPROXIMATION FOR SMALL K**2\r\nC\r\nC     COMPUTE THE RADIAL COMPONENT OF THE MAGNETIC FIELD\r\nC\r\n  220 CONTINUE\r\n      BR = XIACPI*COSTHE*(((2.*RAD2)+(2.*R2)+(RADIUS*R*SINTHE))/\r\n     1     ((SQAR2S)**5))\r\nC\r\nC     COMPUTE THE POLAR COMPONENT OF THE MAGNETIC FIELD\r\nC\r\n      BTHE = -XIACPI*SINTHE*\r\n     1       (((2.*RAD2)-R2+(RADIUS*R*SINTHE))/((SQAR2S)**5))\r\nC\r\nC     RESOLVE MAGNETIC FIELD COMPONENTS INTO RECTANGULAR COMPONENTS\r\nC\r\n  230 CONTINUE\r\n      HCX = RX*BR + RPX*BTHE\r\n      HCY = RY*BR + RPY*BTHE\r\n      HCZ = RZ*BR + RPZ*BTHE\r\n      HC1 = HCX/FPI\r\n      HC2 = HCY/FPI\r\n      HC3 = HCZ/FPI\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bandit.f",
    "content": "      SUBROUTINE BANDIT\r\nC\r\nC     BANDIT - A COMPUTER PROGRAM TO RE-SEQUENCE MATRIX BY BANDWIDTH,\r\nC              PROFILE, AND WAVEFRONT METHODS FOR NASTRAN.\r\nC\r\nC     THIS PROGRAM GENERATES THE RE-SEQUENCE CARDS, SEQGP (AFTER GEOM1,\r\nC     GEOM2, AND GEOM4 DATA BLOCKS ARE ASSEMBLED), AND ADD THESE CARDS\r\nC     TO THE END OF GEOM1 FILE.\r\nC\r\nC     HOWEVER, IF THE ORIGINAL NASTRAN INPUT DECK CONTAINS ONE OR MORE\r\nC     SEQGP CARD, BANDIT WILL BE AUTOMATICALLY SKIPPED.\r\nC\r\nC     ******************************************************************\r\nC\r\nC     ACKNOWLEDGEMENT:\r\nC\r\nC     THE ORIGINAL BANDIT PROGRAM (VERSION 9, DEC. 1978, DISTRIBUTED BY\r\nC     COSMIC  NO. DOD-0034) WAS WRITTEN BY G. C. EVERTINE OF NAVAL SHIP\r\nC     RESEARCH AND DEVELOPMENT CENTER (NSRDC), BETHESDA, MD.\r\nC\r\nC     THE FOLLOWING SUBROUTINES WERE WRITTEN BY E. CUTHILL AND J. MCKEE\r\nC     OF NSRDC\r\nC     - CTHMCK,DEGREE,DIAM,IDIST,KOMPNT,MAXDGR,MINDEG,RELABL\r\nC\r\nC     THE FOLLOWING SUBROUTINES WERE WRITTEN BY N. GIBBS, W. POOLE,\r\nC     P. STOCKMEYER, AND H. CRANE OF THE COLLEGE OF WILLIAM AND MARY\r\nC     - DGREE,FNDIAM,GIBSTK,NUMBER,PIKLVL,RSETUP,SORTDG,SORT2,TREE.\r\nC     (THESE ROUTINES AND CTHMCK WERE MODIFIED BY G. C. EVERSTINE.)\r\nC\r\nC     ******************************************************************\r\nC\r\nC     ONLY HALF OF THE ORIGINAL BANDIT PROGRAM WAS ADOPTED IN THIS\r\nC     NASTRAN VERSION BY G. C. CHAN OF SPERRY, HUNTSVILLE, AL., 1982\r\nC\r\nC     THE ORIGINAL BANDIT ROUTINES WERE UPDATED TO MEET NASTRAN\r\nC     PROGRAMMING STYLE AND STANDARD.\r\nC     NASTRAN GINO FILES AND GINO I/O ARE USED INSTEAD OF FORTRAN FILES\r\nC     AND FORTRAN READ/WRITE\r\nC     THE INTEGER PACK AND UNPACK ROUTINES, BPACK AND BUNPK, WERE RE-\r\nC     WRITTEN TO ALLOW COMMON USAGE FOR IBM, CDC, UNIVAC AND VAX MACH.\r\nC\r\nC     ROUTINES BANDIT, SCHEME, BREAD, BGRID, BSEQGP, AND TIGER WERE\r\nC     COMPLETELY RE-WRITTEN.\r\nC     (SCHEME WAS FORMALLY CALLED NASNUM, AND CTHMCK WAS SCHEME)\r\nC\r\nC     ******************************************************************\r\nC\r\nC     THIS NASTRAN VERSION DOES NOT USE $-OPTION CARDS AS IN THE CASE OF\r\nC     ORIGINAL BANDIT PROGRAM.\r\nC\r\nC     THE FOLLOWING 'OPTIONS' ARE PRE-SELECTED -\r\nC\r\nC        $ADD        (NOT USE)            $INSERT     (NOT USE)\r\nC        $APPEND     (NOT USE)            $METHOD     (GPS    )\r\nC        $CONFIG     (NOT USE)            $MPC        (NO     )\r\nC        $CRITERION  (RMS    )            $NASTRAN    (NOT USE)\r\nC        $DEGREE     (NOT USE)            $PLUS       (NOT USE)\r\nC        $DIMENSION  (NOT USE)            $PRINT      (MIN    )\r\nC        $ELEMENTS   (NOT USE)            $PUNCH      (NONE   )\r\nC        $FRONTAL    (NOT USE)            $SEQUENCE   (YES    )\r\nC        $GRID       (NOT USE)            $SPRING     (NO     )\r\nC        $HICORE     (NOT USE)            $TABLE      (NO     )\r\nC        $IGNORE     (NOT USE)            $START      (NOT USE)\r\nC\r\nC     ******************************************************************\r\nC\r\n      INTEGER          HICORE,   GEOM1,    GEOM2,    GEOM4,    SCR1,\r\n     1                 Z,        SUB(3),   END,\r\n     2                 RD,       RDREW,    WRT,      WRTREW,   REW\r\nC\r\n      COMMON /MACHIN/  MACHIN\r\n      COMMON /BANDA /  IBUF1,    NOMPC,    NODEP,    NOPCH,    NORUN,\r\n     1                 METHOD,   ICRIT,    NGPTS(2)\r\n      COMMON /BANDB /  NBITIN,   KORE,     IFL,      NGRID,    IPASS,\r\n     1                 NW,       KDIM,     NBPW,     IREPT\r\n      COMMON /BANDD /  KORIG,    KNEW,     IOP,      INP,      NCM,\r\n     1                 NZERO,    NEL,      NEQ,      NEQR\r\n      COMMON /BANDG /  DUM3G(3)\r\n      COMMON /BANDS /  NN,       MM,       IH,       IB,       MAXGRD,\r\n     1                 MAXDEG,   KMOD,     MACH,     MINDEG,   NEDGE,\r\n     2                 MASK\r\n      COMMON /BANDW /  DUM4W(4), I77,      DUM2W(2)\r\n      COMMON /SYSTEM/  IBUF,     NOUT,     NOGO,     IS(97)\r\n      COMMON /GEOMX /  GEOM1,    GEOM2,    GEOM4,    SCR1\r\n      COMMON /NAMES /  RD,       RDREW,    WRT,      WRTREW,   REW\r\n      COMMON /ZZZZZZ/  Z(1)\r\nC\r\n      EQUIVALENCE      (HICORE,IS(28))\r\n      DATA             SUB  /    4HBAND,   4HIT  ,   4HBEGN  /\r\n      DATA             END,      IQUIT /   4HEND ,   4HQUIT  /\r\nC\r\nC     INITIALIZE PROGRAM PARAMETERS\r\nC\r\nC     NOMPC =  0, MPC'S AND RIGID ELEM. ARE NOT USED IN BANDIT COMPUTATI\r\nC           = +1, ONLY RIGID ELEMENTS ARE USED IN BANDIT RESEQUENCING\r\nC           = +2, BOTH MPC'S  AND RIGID ELEM. ARE USED IN BANDIT\r\nC           = +3, ONLY MPC'S, NOT RIGID ELEM. ARE USED IN BANDIT\r\nC     NODEP = +1, MPC DEPENDENT PTS. ARE TO BE REMOVED FROM COMPUTATION\r\nC           = -1, MPC DEPENDENT PTS. ARE NOT TO BE REMOVED.\r\nC                 (NOTE - NODEP DICTATES ALSO THE DEPENDENT GRIDS OF\r\nC                         THE RIGID ELEMENTS)\r\nC     NOPCH = +1, PUNCH OUT SEQGP CARDS\r\nC           = -1, NO SEQGP CARDS PUNCHED\r\nC     NORUN = +1, BANDIT WILL RUN EVEN SEQGP CARDS ARE PRESENT\r\nC           = -1, BANDIT IS SKIPPED IF ONE OR MORE SEQGP CARD IS\r\nC                 PRESENT IN  THE INPUT DECK\r\nC     METHOD= -1, CM METHOD ONLY\r\nC           =  0, BOTHE CM AND GPS METHODS ARE USED\r\nC           = +1, USE GPS METHOD ONLY\r\nC     ICRIT =     RE-SEQUENCING CRITERION\r\nC           =  1, RMS WAVEFRONT\r\nC           =  2, BANDWIDTH\r\nC           =  3, PROFILE\r\nC           =  4, MAX WAVEFRONT\r\nC\r\n      NZERO = 0\r\n      I77   = 77\r\n      NOMPC = 0\r\n      NODEP =-1\r\n      NOPCH =-1\r\n      NORUN =-1\r\n      METHOD=+1\r\n      KDIM  = 1\r\n      ICRIT = 1\r\n      IREPT = 0\r\nC\r\nC     THE ABOVE DEFAULT VALUES CAN BE RESET BY THE NASTRAN CARD.\r\nC     (SEE SUBROUTINE NASCAR BANDIT FLAG FOR MORE DETAILS)\r\nC     ******************************************************************\r\nC\r\n      CALL CONMSG (SUB,3,0)\r\n      NBPW = IS(37)\r\n      MACH = MACHIN\r\n      KORE = KORSZ(Z(1))\r\n      IBUF1= KORE - IBUF - 2\r\n      KORE = IBUF1 - 1\r\nC\r\nC     CALL BGRID TO GET THE NO. OF GRID POINTS IN THE PROBLEM, SET\r\nC     THE INTEGER PACKING CONSTANT, NW, AND COMPUTE MAXGRD AND MAXDEG.\r\nC     BANDIT QUITS IF PROBLEM IS TOO SMALL TO BE WORTHWHILE.\r\nC\r\n    5 IREPT = IREPT + 1\r\n      CALL BGRID\r\n      IF (NGRID .LT. 15) GO TO 30\r\n      KDIM4 = KDIM*4\r\n      II3   = 2*MAXGRD\r\nC\r\nC     PARTITION OPEN CORE FOR SCHEME COMPUTATION.\r\nC\r\n      K2 =  1 + KDIM4\r\n      K3 = K2 + 2*II3  + 2\r\n      IF (METHOD.LE.0 .AND. MAXDEG.GT.MAXGRD) K3 = K3 + MAXDEG - MAXGRD\r\n      K4 = K3 + MAXGRD + 1\r\n      K5 = K4 + MAXGRD\r\n      K6 = K5 + MAXGRD + 1\r\n      K7 = K6 + MAXGRD\r\n      K8 = K7 + MAXDEG\r\n      K1 = K8 + MAXDEG + NW\r\n      K9 = K1 + MAXGRD*MAXDEG/NW\r\n      IF (K9 .GT. KORE) CALL MESAGE (-8,K9-KORE,SUB)\r\nC\r\nC     READ BULK DATA, SET UP CONNECTION TABLE, AND RESEQUENCE NODES.\r\nC\r\n      CALL SCHEME(Z(K1),Z(K2),II3,Z(K3),Z(K4),Z(K5),Z(K6),Z(K7),Z(K8),Z)\r\n      IF (NGRID .EQ. -1) CALL SPTCHK\r\n      IF (IREPT .EQ.  2) GO TO 5\r\n      IF (NGRID) 20,30,10\r\nC\r\nC     JOB DONE.\r\nC\r\n   10 SUB(3) = END\r\n      GO TO 40\r\nC\r\nC     NO BANDIT RUN.\r\nC\r\n   20 NOGO = 1\r\n   30 SUB(3) = IQUIT\r\n   40 CALL CONMSG (SUB,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bar.f",
    "content": "      SUBROUTINE BAR (Z,IDEFM,NOGPTT,NOEDT)\r\nC\r\nC     THIS IS THE ELEMENT TEMPERATURE AND DEFORMATION LOADING ROUTINE\r\nC     FOR THE BAR ELEMENT.\r\nC\r\nC     THIS ROUTINE IS VERY MUCH SIMILIAR TO THAT OF SUBROUTINES KBAR AND\r\nC     SBAR1 THUS ANY ALTERS HERE MAY BE REQUIRED IN THESE OTHER TWO\r\nC     ROUTINES ALSO.\r\nC\r\nC     ECPT FOR THE BAR\r\nC\r\nC     ECPT( 1)  -  IELID         ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)     * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...         *\r\nC     ECPT( 4)  -  SMALLV(3)     $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...         $\r\nC     ECPT( 6)  -    ...         $\r\nC     ECPT( 7)  -  ICSSV         COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)     * PIN FLAGS\r\nC     ECPT( 9)  -    ...         *\r\nC     ECPT(10)  -  ZA(3)         $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -    ...         $\r\nC     ECPT(12)  -    ...         $\r\nC     ECPT(13)  -  ZB(3)         * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -    ...         *\r\nC     ECPT(15)  -    ...         *\r\nC     ECPT(16)  -  IMATID        MATERIAL ID.\r\nC     ECPT(17)  -  A             CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1            $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2            $\r\nC     ECPT(20)  -  FJ            TORSIONAL CONSTANT\r\nC     ECPT(21)  -  NSM           NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE            FORCE ELEM DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1            * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2            *\r\nC     ECPT(25)  -  D1            *\r\nC     ECPT(26)  -  D2            *\r\nC     ECPT(27)  -  F1            *\r\nC     ECPT(28)  -  F2            *\r\nC     ECPT(29)  -  G1            *\r\nC     ECPT(30)  -  G2            *\r\nC     ECPT(31)  -  K1            $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2            $\r\nC     ECPT(33)  -  I12           AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA        COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)        * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -    ...         *\r\nC     ECPT(37)  -    ...         *\r\nC     ECPT(38)  -  MCSIDB        COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)        $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -    ...         $\r\nC     ECPT(41)  -    ...         $\r\nC     ECPT(42)  -  ELTEMP        AVG. ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL           ABASIC   ,BBASIC   ,BASIC    ,AOFSET ,BOFSET   ,\r\n     1                  OFFSET\r\n      REAL              L        ,LSQ      ,LCUBE    ,I1     ,I2       ,\r\n     1                  K1       ,K2       ,KE       ,KEP    ,I12      ,\r\n     2                  NSM      ,LR1      ,LR2      ,LB     ,L2B3     ,\r\n     3                  L2B6     ,UA(6)\r\n      DIMENSION         VECI(3)  ,VECJ(3)  ,VECK(3)  ,Z(1)   ,TA(18)   ,\r\n     1                  TB(9)    ,ECPT(100),IECPT(38),IPIN(10)         ,\r\n     2                  SMALV0(6)\r\nC\r\nC     SDR2 PHASE I INPUT AND OUTPUT COMMON BLOCK\r\nC\r\n      COMMON   /TRIMEX/ IELID    ,ISILNO(2),SMALLV(3),ICSSV  ,IPINFL(2),\r\n     1                  ZA(3)    ,ZB(3)    ,IMATID   ,A      ,I1       ,\r\n     2                  I2       ,FJ       ,NSM      ,FE     ,C1       ,\r\n     3                  C2       ,D1       ,D2       ,F1     ,F2       ,\r\n     4                  G1       ,G2       ,K1       ,K2     ,I12      ,\r\n     5                  MCSIDA   ,GPA(3)   ,MCSIDB   ,GPB(3) ,TEMPEL\r\nC\r\n      COMMON   /SSGWRK/ KE(144)  ,KEP(144) ,DELA(6)  ,DELB(6)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN / MATIDC   ,MATFLG   ,ELTEMP   ,STRESS  ,SINTH   ,\r\n     1                  COSTH\r\n      COMMON   /MATOUT/ E        ,G        ,NU       ,RHO     ,ALPHA   ,\r\n     1                  T SUB 0  ,G SUB E  ,SIGT     ,SIGC    ,SIGS\r\n      EQUIVALENCE       (IELID,ECPT(1),IECPT(1))     ,(TA(10),TB(1))\r\nC\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n      JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC\r\n      FL = 0.0\r\n      DO 50 I = 1,3\r\n   50 FL = FL + SMALLV(I)**2\r\n      FL = SQRT(FL)\r\n      DO 60 I = 1,3\r\n   60 SMALLV(I) = SMALLV(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT.ABASIC) CALL GBTRAN (ECPT(JCSIDA),ECPT(JCSIDA+1),TA)\r\n      IF (.NOT.BBASIC) CALL GBTRAN (ECPT(JCSIDB),ECPT(JCSIDB+1),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC\r\n  100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1)\r\n      VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2)\r\n      VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 VECI(1) = -VECI(1)\r\n      VECI(2) = -VECI(2)\r\n      VECI(3) = -VECI(3)\r\n      FL = SQRT (VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ***CHECK THIS LOGIC***\r\nC\r\n      DO 165 I = 1,3\r\n  165 SMALV0(I) = SMALLV(I)\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) =  VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1)\r\n      VECK(2) =  VECI(3)*SMALV0(ISV  ) - VECI(1)*SMALV0(ISV+2)\r\n      VECK(3) =  VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV)\r\n      FLL     =  SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      VECK(1) =  VECK(1)/FLL\r\n      VECK(2) =  VECK(2)/FLL\r\n      VECK(3) =  VECK(3)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) =  VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) =  VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) =  VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL     =  SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      VECJ(1) =  VECJ(1)/FLL\r\n      VECJ(2) =  VECJ(2)/FLL\r\n      VECJ(3) =  VECJ(3)/FLL\r\nC\r\nC     CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      L    = FL\r\n      LSQ  = L**2\r\n      LCUBE= LSQ*L\r\n      EI1  = E*I1\r\n      EI2  = E*I2\r\n      IF (K1.EQ.0.0 .OR. I12 .NE.0.0) GO TO 210\r\n      GAK1 = G*A*K1\r\n      R1   = (12.0*EI1*GAK1)/(GAK1*LCUBE + 12.0*L*EI1)\r\n      GO TO 220\r\n  210 R1   =  12.0*EI1/LCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      GAK2 = G*A*K2\r\n      R2   = (12.0*EI2*GAK2)/(GAK2*LCUBE + 12.0*L*EI2)\r\n      GO TO 240\r\n  230 R2   =  12.0*EI2/LCUBE\r\nC\r\nC     COMPUTE THE -SMALL- K-S, SK1, SK2, SK3, AND SK4\r\nC\r\n  240 SK1 = 0.25*R1*LSQ + EI1/L\r\n      SK2 = 0.25*R2*LSQ + EI2/L\r\n      SK3 = 0.25*R1*LSQ - EI1/L\r\n      SK4 = 0.25*R2*LSQ - EI2/L\r\nC\r\nC     COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      AEL = A*E /L\r\n      LR1 = L*R1/2.0\r\n      LR2 = L*R2/2.0\r\n      GJL = G*FJ/L\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(I) = 0.0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.0) GO TO 255\r\n      BETA = 12.0*E*I12/LCUBE\r\n      LB   = L  *BETA/2.0\r\n      L2B3 = LSQ*BETA/3.0\r\n      L2B6 = LSQ*BETA/6.0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  255 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  260 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0\r\n      KE(IL) = 0.0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI = 12*(J-1) + IPIN(I)\r\n      IJ = 12*(IPIN(I) - 1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I) - 1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ) = 0.0\r\n      KEP(JI) = 0.0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC            E\r\nC     STORE K   IN KEP(1),...,KEP(36) AND\r\nC            AA\r\nC\r\nC            E\r\nC     STORE K   IN KEP(37),...,KEP(72)\r\nC            AB\r\nC\r\n  325 J = 0\r\n      DO 340 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J) = KE(K)\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A.\r\nC\r\n      BASIC = ABASIC\r\n      JCSID = JCSIDA\r\n      OFFSET= AOFSET\r\n      JOFSET= JOFSTA\r\n      IWBEG = 0\r\n      IKEL  = 1\r\n      ISASB = 73\r\n      INDEX = ISILNO(1)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W  AND W  6 X 6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0\r\nC\r\nC     SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G MATRIX\r\nC     G = AT X TI\r\nC\r\n  360 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL GBTRAN (ECPT(JCSID),ECPT(JCSID+1),KE(10))\r\n      CALL GMMATS (KE(1),3,3,0,KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3\r\nC     MATRIX.\r\nC\r\n  370 IF (.NOT. OFFSET) GO TO 380\r\n      KE(10) =  0.0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.0\r\nC\r\nC     FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28))\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC                              E                    E\r\nC     FORM THE PRODUCT  S  =  K   X  W   OR  S  = K   X  W  , DEPENDING\r\nC                        A     AA     A       B    AB     B\r\nC\r\nC     UPON WHICH POINT WE ARE WORKING WITH.\r\nC\r\n  390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, KEP(ISASB))\r\nC\r\nC     IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED.  IF\r\nC     NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B.\r\nC\r\n      IF (IWBEG .EQ. 36) GO TO 500\r\n      BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IWBEG  = 36\r\n      IKEL   = 37\r\n      ISASB  = 109\r\n      INDEX  = ISILNO(2)\r\n      DO 400 I = 28,36\r\n  400 KE(I) = 0.0\r\n      GO TO 360\r\nC\r\nC     NOW PERFORM THE ELEMENT TEMPERATURE AND DEFORMATION LOADING.\r\nC\r\n  500 TBAR = TSUB0\r\n      IF (NOGPTT .EQ. 0) GO TO 510\r\n      CALL SSGETD (ECPT(1),KE(1),0)\r\n      TBAR = (KE(1) + KE(2))/2.0\r\n  510 DELTA = 0.0\r\n      IF (NOEDT .EQ. 0) GO TO 520\r\n      KE(3) =  0.0\r\n      KE(4) =  0.0\r\n      KE(5) =  0.0\r\n      KE(6) =  0.0\r\n      CALL FEDT (ECPT(1),DELTA,IDEFM)\r\n      GO TO 530\r\n  520 DELTA = 0.0\r\nC\r\nC     ELEMENT TEMPERATURE DATA BEGINS AT KE(1)\r\nC     ELEMENT DEFORMATION DATA = DELTA\r\nC\r\nC     S  BEGINS AT KEP(73)             (6 X 6)\r\nC      A\r\nC\r\nC     S  BEGINS AT KEP(109)            (6 X 6)\r\nC      B\r\nC\r\nC     NOW FILL THE U  MATRIX           (6 X 1)\r\nC                   A\r\nC\r\n  530 ALPHAL = ALPHA*L\r\nC\r\n      UA(1) = -ALPHAL*(TBAR - TSUB0) - DELTA\r\n      UA(2) = -ALPHAL*L*(KE(3) + 2.0*KE(4))/6.0\r\n      UA(3) = -ALPHAL*L*(KE(5) + 2.0*KE(6))/6.0\r\n      UA(4) =  0.0\r\n      UA(5) = -ALPHAL*(KE(5) + KE(6))/2.0\r\n      UA(6) =  ALPHAL*(KE(3) + KE(4))/2.0\r\nC\r\nC     COMPUTE P  AND P  AND STORE THEM INTO Z (OPEN CORE)\r\nC              A      B\r\nC\r\n      DO 600 I = 1,2\r\n      CALL GMMATS (KEP(36*I+37),6,6,1, UA(1),6,1,0, KE(1))\r\n      K = IECPT(I+1) - 1\r\n      DO 550 J = 1,6\r\n      K = K + 1\r\n  550 Z(K) = Z(K) + KE(J)\r\n  600 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bard.f",
    "content": "      SUBROUTINE BARD\r\nC\r\nC     THIS SUBROUTINE PROCESSES BAR  ELEMENT DATA TO PRODUCE STIFFNESS\r\nC     AND MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY\r\nC     AND CAPACITY  MATRICES ARE PRODUCED.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC     THIS ROUTINE WILL PRODUCE MASS MATRICES BY EITHER THE CONSISTENT\r\nC     OR CONVENTIONAL MASS METHODS.\r\nC     THE ECPT/EST  ENTRIES FOR THE BAR (ELEMENT TYPE 34) ARE\r\nC\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)      * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...          *\r\nC     ECPT( 4)  -  SMALLV(3)      $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...          $\r\nC     ECPT( 6)  -    ...          $\r\nC     ECPT( 7)  -  ICSSV          COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)      * PIN FLAGS\r\nC     ECPT( 9)  -    ...          *\r\nC     ECPT(10)  -  ZA(3)          $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -    ...          $\r\nC     ECPT(12)  -    ...          $\r\nC     ECPT(13)  -  ZB(3)          * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -    ...          *\r\nC     ECPT(15)  -    ...          *\r\nC     ECPT(16)  -  IMATID         MATERIAL ID.\r\nC     ECPT(17)  -  A              CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1             $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2             $\r\nC     ECPT(20)  -  FJ             TORSIONAL CONSTANT\r\nC     ECPT(21)  -  NSM            NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE             FORCE ELEM DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1             * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2             *\r\nC     ECPT(25)  -  D1             *\r\nC     ECPT(26)  -  D2             *\r\nC     ECPT(27)  -  F1             *\r\nC     ECPT(28)  -  F2             *\r\nC     ECPT(29)  -  G1             *\r\nC     ECPT(30)  -  G2             *\r\nC     ECPT(31)  -  K1             $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2             $\r\nC     ECPT(33)  -  I12            AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA         COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)         * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -    ...          *\r\nC     ECPT(37)  -    ...          *\r\nC     ECPT(38)  -  MCSIDB         COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)         $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -    ...          $\r\nC     ECPT(41)  -    ...          $\r\nC     ECPT(42)  -  ELTEMP         AVG. ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          BASIC,OFFSET,NOGO,AOFSET,BOFSET\r\n      INTEGER          DICT(7),IS12OR(4),IS21OR(4),GSUBE,ESTID,IECPT(38)\r\n      REAL             K1,K2,I1,I2,I12,NSM\r\n      DIMENSION        ECPT(42),IPIN(10),IKK(4)\r\n      DOUBLE PRECISION CONST,BL22,BLSQ3,FM,KE,KK,KEP,M,MEP,ME,\r\n     1                 LR1,LR2,LB,L2B3,L2B6,VECI(3),VECJ(3),VECK(3),\r\n     2                 SMALVN,TA,TB,VEC,DELA,DELB,FL,SMALLV(3),\r\n     3                 FLL,BL,BLSQ,BLCUBE,EI1,EI2,R1,R2,SK1,SK2,\r\n     4                 SK3,SK4,AEL,GJL,BETA,BL13,BLSQ4,A2B,LIMIT,\r\n     5                 EPSI,EPSI2\r\n      CHARACTER        UFM*23,UWM*25\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /SYSTEM/  KSYSTM(100)\r\n      COMMON /EMGEST/  IELID,ISILNO(2),SMALV(3),ICSSV,IPINFL(2),ZA(3),\r\n     1                 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,\r\n     2                 F1,F2,G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,\r\n     3                 GPB(3),TEMPEL\r\n      COMMON /EMGPRM/  IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP,\r\n     1                 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT\r\n      COMMON /EMGDIC/  IDUMM, LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGTRX/  KE(144),KEP(144),M(12,12),ME(144),MEP(144),\r\n     1                 KK(144),SMALVN(6),TA(18),TB(9),VEC(10),\r\n     2                 DELA(6),DELB(6)\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS\r\n      COMMON /HMTOUT/  FK\r\n      EQUIVALENCE      (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT),\r\n     1                 (ECPT(1),IECPT(1),IELID),(KSYSTM(87),KSY87),\r\n     2                 (VEC(1),VECI(1)),(VEC(4),VECJ(1)),\r\n     3                 (VEC(7),VECK(1))\r\n      DATA    IKK   /  1,7,73,79   /, EPSI,EPSI2 / 1.0D-18,1.0D-7 /\r\n      DATA    IS12OR/  1,37,109,73 /, IS21OR     / 73,109,37,1    /\r\nC\r\nC\r\n      DICT(1) = ESTID\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n      JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\n      LIMIT  = DBLE(IABS(KSY87))*.01D0\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC\r\n      FL = 0.D0\r\n      DO 40 I = 1,3\r\n      SMALLV(I) = SMALV(I)\r\n   40 FL = FL + SMALLV(I)**2\r\n      FL = DSQRT(FL)\r\n      IF (DABS(FL) .LT. EPSI) GO TO 7770\r\n      DO 50 I = 1,3\r\n   50 SMALVN(I) = SMALLV(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (ICSIDA .NE. 0) CALL TRANSD(ECPT(JCSIDA),TA)\r\n      IF (ICSIDB .NE. 0) CALL TRANSD(ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC\r\n  100 DO 105 I = 1,3\r\n      JTA = I + JCSIDA\r\n      JTB = I + JCSIDB\r\n  105 VECI(I) = ECPT(JTA) - ECPT(JTB)\r\nC\r\nC     SAVE IN A2B THE LENGTH OF BAR, WITHOUT OFFSET, FROM GRID PT. A\r\nC     TO B\r\nC\r\n      A2B = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ICSIDA .EQ. 0) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATD (TA, 3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (ICSIDB .EQ. 0) GOTO 140\r\n      IDELB = 4\r\n      CALL GMMATD (TB, 3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 DO 145 I = 1,3\r\n      JTA = I - 1 + IDELA\r\n      JTB = I - 1 + IDELB\r\n  145 VECI(I) = VECI(I)+DELA(JTA) - DELB(JTB)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 FL = 0.D0\r\n      DO 155 I = 1,3\r\n      VECI(I) = -VECI(I)\r\n  155 FL = FL + VECI(I)**2\r\n      FL = DSQRT(FL)\r\n      IF (DABS(FL) .LT. EPSI) GO TO 7770\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     NOW THAT LENGTH HAS BEEN COMPUTED, CHECK POSSIBLE OFFSET ERROR\r\nC     ISSUE WARNING MESSAGE IF OFFSET EXCEEDS A2B BY 'LIMIT' PERCENT.\r\nC     (DEFAULT IS 15 PERCENT, KSYSTM(87) WORD)\r\nC\r\n      IF (DABS(FL-A2B)/A2B .LE. LIMIT) GO TO 170\r\n      WRITE  (IOUTPT,165) UWM,IELID\r\n  165 FORMAT (A25,' - UNUSUALLY LARGE OFFSET IS DETECTED FOR CBAR ',\r\n     1       'ELEMENT ID =',I8)\r\n      IF (KSY87 .LE. 0) GO TO 170\r\n      WRITE  (IOUTPT,167) KSY87\r\n  167 FORMAT (/5X,'(OFFSET BAR LENGTH EXCEEDS NON-OFFSET LENGTH BY',\r\n     1        I4,' PERCENT, SET BY SYSTEM 87TH WORD)')\r\n      KSY87 = -KSY87\r\nC\r\nC     BRANCH IF THIS IS A -HEAT- FORMULATION.\r\nC\r\n  170 IF (IHEAT .EQ.1) GO TO 500\r\nC\r\nC     COMPUTE THE  SMALV0  VECTOR\r\nC\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATD (TA,3,3,0, SMALVN(1),3,1,0, SMALVN(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) = VECI(2)*SMALVN(ISV+2) - VECI(3)*SMALVN(ISV+1)\r\n      VECK(2) = VECI(3)*SMALVN(ISV  ) - VECI(1)*SMALVN(ISV+2)\r\n      VECK(3) = VECI(1)*SMALVN(ISV+1) - VECI(2)*SMALVN(ISV  )\r\n      FLL     = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (DABS(FLL) .LT. EPSI2) GO TO 7770\r\n      DO 190 I = 1,3\r\n  190 VECK(I) = VECK(I)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL     = DSQRT (VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      IF (DABS(FLL) .LT. EPSI2) GO TO 7770\r\n      VECJ(1) = VECJ(1)/FLL\r\n      VECJ(2) = VECJ(2)/FLL\r\n      VECJ(3) = VECJ(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\n      IF (ISTIF .EQ. 0) GOTO 600\r\nC\r\nC     IF ELASTICITY AND SHEAR MODULES BOTH ZERO, SKIP STIFFNESS\r\nC     CALCULATION\r\nC\r\n      IF (E.EQ.0. .AND. G.EQ.0.) GO TO 600\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      ASSIGN 305 TO K OR M\r\n  205 BL    = FL\r\n      BLSQ  = FL**2\r\n      BLCUBE= BLSQ*BL\r\nC\r\nC     COMPUTE SOME TERMS TO BE USED IN STIFFNESS MATRIX KE\r\nC\r\n      EI1  = DBLE(E)*DBLE(I1)\r\n      EI2  = DBLE(E)*DBLE(I2)\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210\r\n      GAK1 = DBLE(G)*DBLE(A)*DBLE(K1)\r\n      R1   = (12.D0*EI1*GAK1)/(GAK1*BLCUBE + 12.D0*BL*EI1)\r\n      GO TO 220\r\n  210 R1   = 12.D0*EI1/BLCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      GAK2 = DBLE(G)*DBLE(A)*DBLE(K2)\r\n      R2   = (12.D0*EI2*GAK2)/(GAK2*BLCUBE + 12.D0*BL*EI2)\r\n      GO TO 240\r\n  230 R2  = 12.D0*EI2/BLCUBE\r\nC\r\n  240 SK1 = .25D0*R1*BLSQ + EI1/BL\r\n      SK2 = .25D0*R2*BLSQ + EI2/BL\r\n      SK3 = .25D0*R1*BLSQ - EI1/BL\r\n      SK4 = .25D0*R2*BLSQ - EI2/BL\r\nC\r\n      AEL = DBLE(A)*DBLE(E)/BL\r\n      LR1 = BL*R1/2.D0\r\n      LR2 = BL*R2/2.D0\r\n      GJL = DBLE(G)*DBLE(FJ)/BL\r\nC\r\nC\r\nC     CONSTRUCT  THE GENERAL 12X12 MATRIX FOR THE BAR ELEMENT\r\nC\r\nC                      **       **\r\nC                      * K    K  *\r\nC                      *  AA   AB*\r\nC                K =   *  T      *\r\nC                      * K    K  *\r\nC                      *  AB   BB*\r\nC                      **       **\r\nC\r\nC\r\nC\r\nC     FIRST SET THE COMPONENT CODE AND THE DOF\r\nC\r\n      ICODE = 63\r\n      NDOF  = 12\r\n      NSQ   = NDOF**2\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\nC     **                                    **\r\nC     *  1                73                 *\r\nC     *    14          62    86         134  *\r\nC     *       27    51          99   123     *\r\nC     *          40               112        *\r\nC     *       29    53         101   125     *\r\nC     *    18          66    90         138  *\r\nC     *  7                79                 *\r\nC     *    20          68    92         140  *\r\nC     *       33    57         105   129     *\r\nC     *          46               118        *\r\nC     *       35    59         107   131     *\r\nC     *    24          72    96         144  *\r\nC     **                                    **\r\nC\r\n      DO 300 I = 1,144\r\n  300 KE(I) = 0.D0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.) GOTO 303\r\n      BETA = 12.D0*DBLE(E)*DBLE(I12)/BLCUBE\r\n      LB      =   BL*BETA/2.0D0\r\n      L2B3    = BLSQ*BETA/3.0D0\r\n      L2B6    = BLSQ*BETA/6.0D0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\n  303 GO TO K OR M, (305,640,465,750)\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  305 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GOTO 345\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 310 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  310 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 340 I = 1,10\r\n      IF (IPIN(I) .EQ.0) GO TO 340\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.D0) GO TO 320\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 315 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.D0\r\n      KE(IL) = 0.D0\r\n      IL = IL + 12\r\n  315 CONTINUE\r\n      GO TO 340\r\n  320 DO 330 J = 1,12\r\n      JI = 12*(J-1) + IPIN(I)\r\n      IJ = 12*(IPIN(I)-1) + J\r\n      DO 325  LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  325 CONTINUE\r\n      KEP(IJ) = 0.D0\r\n      KEP(JI) = 0.D0\r\n  330 CONTINUE\r\n      DO 335 K = 1,144\r\n  335 KE(K) = KEP(K)\r\n  340 CONTINUE\r\nC\r\nC     DIVIDE KE INTO FOUR SUBMATRICES AND STORE IN OPEN CORE\r\nC\r\nC      E                   E                   E\r\nC     K   = KK(1 TO 36)   K   = KK(37 TO 72)  K   = KK(73 TO 108)\r\nC      AA                  AB                  BA\r\nC\r\nC      E\r\nC     K   =  KK(109 TO 144)\r\nC      BB\r\nC\r\nC\r\n  345 J = 0\r\n      DO 355 I = 1,72,12\r\n      LOW = I\r\n      LIM = I + 5\r\n      DO 350 K = LOW,LIM\r\n      J = J + 1\r\n      KK(J   ) = KE(K   )\r\n      KK(J+36) = KE(K+ 6)\r\n      KK(J+72) = KE(K+72)\r\n  350 KK(J+108)= KE(K+78)\r\n  355 CONTINUE\r\nC\r\n      ASSIGN 465 TO K OR M\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W  AND W  6X6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC      T\r\nC     A   MATRIX NOW STORED IN KE\r\nC\r\n  358 DO 357 I = 1,9\r\n  357 KE(I) = VEC(I)\r\nC\r\n      DO 360 I = 28,144\r\n  360 KE(I) = 0.D0\r\nC\r\nC\r\nC     SET UP POINTERS\r\nC\r\n      BASIC  = ICSIDA.EQ.0\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      DO 395 I = 1,2\r\n      IWBEG  = I*36\r\nC\r\nC     SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G MATRIX\r\nC     G = AT X TI\r\nC\r\n      IG = 1\r\n      IF (BASIC) GO TO 380\r\n      CALL TRANSD (ECPT(JCSID),KE(10))\r\n      CALL GMMATD (KE(1), 3,3,0, KE(10), 3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3\r\nC     MATRIX.\r\nC\r\n  380 IF (.NOT.OFFSET) GO TO 385\r\n      KE(10) =  0.D0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.D0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.D0\r\nC\r\nC     FORM THE 3X3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATD (KE(IG), 3,3,0, KE(10), 3,3,0, KE(28))\r\nC\r\nC\r\nC     FORM THE W SUBMATRICES IN KE(37) AND KE(73)\r\nC\r\nC\r\n  385 KE(IWBEG+ 1) = KE(IG  )\r\n      KE(IWBEG+ 2) = KE(IG+1)\r\n      KE(IWBEG+ 3) = KE(IG+2)\r\n      KE(IWBEG+ 7) = KE(IG+3)\r\n      KE(IWBEG+ 8) = KE(IG+4)\r\n      KE(IWBEG+ 9) = KE(IG+5)\r\n      KE(IWBEG+13) = KE(IG+6)\r\n      KE(IWBEG+14) = KE(IG+7)\r\n      KE(IWBEG+15) = KE(IG+8)\r\n      KE(IWBEG+22) = KE(IG  )\r\n      KE(IWBEG+23) = KE(IG+1)\r\n      KE(IWBEG+24) = KE(IG+2)\r\n      KE(IWBEG+28) = KE(IG+3)\r\n      KE(IWBEG+29) = KE(IG+4)\r\n      KE(IWBEG+30) = KE(IG+5)\r\n      KE(IWBEG+34) = KE(IG+6)\r\n      KE(IWBEG+35) = KE(IG+7)\r\n      KE(IWBEG+36) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+ 4) = KE(28)\r\n      KE(IWBEG+ 5) = KE(29)\r\n      KE(IWBEG+ 6) = KE(30)\r\n      KE(IWBEG+10) = KE(31)\r\n      KE(IWBEG+11) = KE(32)\r\n      KE(IWBEG+12) = KE(33)\r\n      KE(IWBEG+16) = KE(34)\r\n      KE(IWBEG+17) = KE(35)\r\n      KE(IWBEG+18) = KE(36)\r\n  390 BASIC  = ICSIDB.EQ.0\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n  395 CONTINUE\r\nC\r\nC     CONVERT THE K PARTITIONS TO GLOBAL COORDINATES AND STORE IN KEP\r\nC\r\n      IAFT = 37\r\n      DO 400 I = 1,4\r\n      IKX = (I-1)*36 + 1\r\n      IK  = IKX\r\n      IF (I .GE. 3) IKX = (7-I-1)*36 + 1\r\n      IFORE = ((I-1)/2)*36 + 37\r\n      CALL GMMATD (KE(IFORE), 6,6,1, KK(IKX), 6,6,0, KE(109))\r\n      CALL GMMATD (KE(109),  6,6,0, KE(IAFT), 6,6,0, KEP(IK))\r\n      IAFT = 73\r\n      IF (I .EQ. 3) IAFT = 37\r\n  400 CONTINUE\r\nC\r\nC     REFORM THE K MATRIX (12X12) FROM THE FOUR SUBMATRICES (6X6) AND\r\nC     ORDER  THE SUBMATRICES BY INCREASING SIL VALUE\r\nC\r\n      DO 460 II = 1,4\r\n      IX1 = IKK(II)\r\n      IX2 = IX1 + 60\r\n      IS  = IS12OR(II)\r\n      IF (ISILNO(1) .GT. ISILNO(2)) IS = IS21OR(II)\r\n      DO 450 I = IX1,IX2,12\r\n      IP5 = I + 5\r\n      DO 440 J = I,IP5\r\n      KE(J) = KEP(IS)\r\n  440 IS = IS + 1\r\n  450 CONTINUE\r\n  460 CONTINUE\r\nC\r\n      GO TO K OR M, (305,640,465,750)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n  465 DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      CALL EMGOUT (KE(1),KE(1),NSQ,1,DICT,1,IPREC)\r\n      GO TO 600\r\nC\r\nC     THE MASS MATRIX IS GENERATED HERE.  IF THE PARAMETER ICMBAR IS\r\nC     .LT. 0, CALL THE CONVENTIONAL MASS MATRIX GENERATION ROUTINE FOR\r\nC     THE BAR.  OTHERWISE CALL THE ROUTINE TO GENERATE CONSISTENT MASS\r\nC     MATRICES FOR THE BAR.\r\nC\r\n  600 CONST = (FL*(DBLE(RHO)*DBLE(A) +  DBLE(NSM)))/420.D0\r\n      IF (IMASS.EQ.0 .OR. CONST.EQ.0.D0) RETURN\r\n      IF (ICMBAR .LT. 0) GO TO 800\r\nC\r\nC     CALCULATE THE CONSISTENT/CONVENTIONAL MASS MATRIX\r\nC\r\nC     CALL THE MAT ROUTINE TO FETCH SINGLE PRECISION MATERIAL PROPERTIES\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC     COMPUTE TERMS OF THE ELEMENT MASS MATRIX\r\nC\r\n      BL22  = 22.D0*FL\r\n      BL13  = 13.D0*FL\r\n      BLSQ4 =  4.D0*FL**2\r\n      BLSQ3 =  3.D0*FL**2\r\nC\r\nC     CONSTRUCT THE ELEMENT MASS MATRIX.\r\nC\r\n      DO 610 I = 1,12\r\n      DO 610 J = 1,12\r\n  610 M( I, J) = 0.D0\r\n      M( 1, 1) = 175.D0\r\n      M( 1, 7) = 35.D0\r\n      M( 2, 2) = 156.D0\r\n      M( 2, 6) = BL22\r\n      M( 2, 8) = 54.D0\r\n      M( 2,12) =-BL13\r\n      M( 3, 3) = 156.D0\r\n      M( 3, 5) =-BL22\r\n      M( 3, 9) = 54.D0\r\n      M( 3,11) = BL13\r\n      M( 5, 5) = BLSQ4\r\n      M( 5, 9) =-BL13\r\n      M( 5,11) =-BLSQ3\r\n      M( 6, 6) = BLSQ4\r\n      M( 6, 8) = BL13\r\n      M( 6,12) =-BLSQ3\r\n      M( 7, 7) = 175.D0\r\n      M( 8, 8) = 156.D0\r\n      M( 8,12) =-BL22\r\n      M( 9, 9) = 156.D0\r\n      M( 9,11) = BL22\r\n      M(11,11) = BLSQ4\r\n      M(12,12) = BLSQ4\r\nC\r\nC     STORE THE UPPER TRIANGULAR PART OF THE MATRIX IN THE LOWER PART.\r\nC\r\n      DO 625  I = 1,10\r\n      LOW = I + 1\r\n      DO 620 J = LOW,12\r\n      M(J,I) = M(I,J)\r\n  620 CONTINUE\r\n  625 CONTINUE\r\nC\r\nC     MULTIPLY BY CONSTANT AND STORE ROW-WISE IN THE ARRAY ME\r\nC\r\n      K = 0\r\n      DO 630 I = 1,12\r\n      DO 630 J = 1,12\r\n      K = K + 1\r\n  630 ME(K) = CONST*M(I,J)\r\nC\r\nC     IF THERE ARE NO PIN FLAGS THERE IS NO NEED TO CALCULATE THE\r\nC     ELEMENT STIFFNESS MATRIX\r\nC\r\n      KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 705\r\nC\r\nC     COMPUTE THE STIFFNESS MATRIX KE\r\nC\r\nC\r\n      ASSIGN 640 TO K OR M\r\n      GO TO 205\r\nC\r\nC     RETURN HERE AFTER COMPUTING THE STIFFNESS MATRIX\r\nC\r\nC\r\nC     SET UP TNHE IPIN ARRAY\r\nC\r\n  640 DO 645 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10)+6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  645 KB = KB/10\r\nC\r\nC     ALTER THE ELEMENT MASS MATRIX DUE TO PIN FLAGS.  NOTE THAT THE\r\nC     FOLLOWING CODE IS CONGRUENT AS IT WERE TO THE CODE IN SUBROUTINE\r\nC     DBEAM IN THE DSMG1 MODULE.\r\nC\r\n      DO 700 J = 1,10\r\n      IF (IPIN(J) .EQ. 0) GO TO 700\r\n      JJ = 12*(IPIN(J)-1) + IPIN(J)\r\n      IF (KE(JJ) .EQ. 0.) GO TO 680\r\n      DO 660 I = 1,12\r\n      JI = 12*(IPIN(J)-1) + I\r\n      IJ = 12*(I-1) + IPIN(J)\r\n      DO 650 L1 = 1,12\r\n      IL = 12*(I -1) + L1\r\n      LJ = 12*(L1-1) + IPIN(J)\r\n      MEP(IL) = ME(IL) - KE(LJ)*ME(JI)/KE(JJ) - KE(JI)*ME(LJ)/KE(JJ)\r\n     1                 + KE(LJ)*KE(JI)*ME(JJ)/KE(JJ)**2\r\n  650 CONTINUE\r\n  660 CONTINUE\r\n      DO 670 K = 1,144\r\n  670 ME(K) = MEP(K)\r\nC\r\nC     ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF ME\r\nC\r\n  680 J1 = JJ - IPIN(J)\r\n      J2 = IPIN(J)\r\n      DO 690 K = 1,12\r\n      J1 = J1 + 1\r\n      ME(J1) = 0.D0\r\n      ME(J2) = 0.D0\r\n  690 J2 = J2 + 12\r\n  700 CONTINUE\r\nC\r\nC           E                   E                    E\r\nC    STORE M   AT KK(1 TO 36), M  AT KK (37 TO 72), M  AT KK(73 TO 108)\r\nC           AA                  AB                   BA\r\nC\r\nC           E\r\nC          M   AT KK(109 TO 144)\r\nC           BB\r\nC\r\n  705 J = 0\r\n      DO 720 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 710 K = LOW,LIM\r\n      J = J + 1\r\n      KK(J) = ME(K)\r\n      KK(J+ 36) = ME(K+ 6)\r\n      KK(J+ 72) = ME(K+72)\r\n  710 KK(J+108) = ME(K+78)\r\n  720 CONTINUE\r\nC\r\nC     CALCULATE THE TRANSFORMATION VECTORS\r\nC\r\n      ASSIGN 750 TO K OR M\r\n      GO TO 358\r\nC\r\nC     OUTPUT THE CONSISTENT MASS MATRIX\r\nC\r\n  750 DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = 0\r\n      CALL EMGOUT (KE(1),KE(1),144,1,DICT,2,IPREC)\r\n      RETURN\r\nC\r\nC     CALCULATE THE CONVENTIONAL MASS MATRIX HERE\r\nC\r\nC\r\nC     GET RHO FROM MPT BY CALLING MAT\r\nC\r\n  800 MATIDC = IMATID\r\n      MATFLG = 4\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (ECPT(1))\r\n      DO 810 I = 1,72\r\n  810 MEP(I) = 0.D0\r\n      FM = .5D0*FL*(DBLE(RHO)*DBLE(A) + DBLE(NSM))\r\nC\r\nC     DETERMINE IF THE GRID POINT IS ASSOCIATED WITH A NON-ZERO OFFSET.\r\nC\r\n      JOFSET = 9\r\n      DO 850 II = 1,2\r\n      IX = (II-1)*36\r\n      J  = JOFSET\r\n      DO 815 I = 1,3\r\n      J  = J + 1\r\n      IF (ECPT(J) .NE. 0.) GO TO 820\r\n  815 CONTINUE\r\n      GO TO 840\r\nC\r\nC     FORM UPPER RIGHT CORNER OF THE MATRIX\r\nC\r\n  820 MEP(IX+ 1) = 1.D0\r\n      MEP(IX+ 8) = 1.D0\r\n      MEP(IX+15) = 1.D0\r\n      MEP(IX+ 5) = ECPT(JOFSET+3)\r\n      MEP(IX+ 6) =-ECPT(JOFSET+2)\r\n      MEP(IX+12) = ECPT(JOFSET+1)\r\n      MEP(IX+10) =-MEP(IX+ 5)\r\n      MEP(IX+16) =-MEP(IX+ 6)\r\n      MEP(IX+17) =-MEP(IX+12)\r\n      MEP(IX+20) =-MEP(IX+ 5)\r\n      MEP(IX+21) =-MEP(IX+ 6)\r\n      MEP(IX+25) =-MEP(IX+10)\r\n      MEP(IX+27) =-MEP(IX+12)\r\n      MEP(IX+31) =-MEP(IX+16)\r\n      MEP(IX+32) =-MEP(IX+17)\r\n      MEP(IX+22) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+2)**2\r\n      MEP(IX+29) = ECPT(JOFSET+3)**2 + ECPT(JOFSET+1)**2\r\n      MEP(IX+36) = ECPT(JOFSET+2)**2 + ECPT(JOFSET+1)**2\r\n      MEP(IX+23) =-ECPT(JOFSET+1)*ECPT(JOFSET+2)\r\n      MEP(IX+24) =-ECPT(JOFSET+1)*ECPT(JOFSET+3)\r\n      MEP(IX+30) =-ECPT(JOFSET+2)*ECPT(JOFSET+3)\r\n      MEP(IX+28) = MEP(IX+23)\r\n      MEP(IX+34) = MEP(IX+24)\r\n      MEP(IX+35) = MEP(IX+30)\r\nC\r\nC     MULTIPLY M BY THE CONSTANT FL\r\nC\r\n      DO 830 I = 1,36\r\n      IS = IX + I\r\n  830 MEP(IS) = MEP(IS)*FM\r\n      GO TO 850\r\nC\r\nC     HERE WE HAVE A ZERO OFFSET VECTOR\r\nC\r\n  840 MEP(IX+ 1) = FM\r\n      MEP(IX+ 8) = FM\r\n      MEP(IX+15) = FM\r\n  850 JOFSET = 12\r\nC\r\nC     INSERT THE  M  AND  M  SUBMATRICES INTO M ACCORDING TO INCREASING\r\nC     SIL          A       B\r\nC\r\n      DO 860 I = 1,144\r\n  860 ME(I) = 0.D0\r\nC\r\n      IF (ISILNO(1) - ISILNO(2)) 870,870,880\r\n  870 IX1 = 1\r\n      IX2 = 37\r\n      GO TO 890\r\n  880 IX1 = 37\r\n      IX2 = 1\r\n  890 CONTINUE\r\n      DO 900 JJ = 1,36\r\n      MM = MOD(JJ,6)\r\n      IF (MM .EQ. 0) MM = 6\r\n      I = ((JJ-1)/6)*12  + MM\r\n      J = I + 78\r\n      ME(I) = MEP(IX1)\r\n      ME(J) = MEP(IX2)\r\n      IX1 = IX1 + 1\r\n  900 IX2 = IX2 + 1\r\nC\r\nC     OUTPUT THE CONVENTIONAL MASS MATRIX\r\nC\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = 0\r\nC\r\n      CALL EMGOUT (ME,ME,144,1,DICT,2,IPREC)\r\nC\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION CONTINUES HERE.  GET MATERIAL PROPERTY -K- FROM\r\nC     HMAT\r\nC\r\n  500 MATFLG  = 1\r\n      MATIDC  = IECPT(16)\r\n      ELTEMP  = ECPT(42)\r\n      DICT(2) = 1\r\n      DICT(3) = 2\r\n      DICT(4) = 1\r\n      DICT(5) = 0\r\n      IF (ISTIF .EQ. 0) GO TO 540\r\n      CALL HMAT (IELID)\r\nC\r\n      KK(1) = DBLE(FK)*DBLE(ECPT(17))/FL\r\n      IF (KK(1).EQ. 0.D0) GO TO 520\r\n      KK(2) =-KK(1)\r\n      KK(3) = KK(2)\r\n      KK(4) = KK(1)\r\n      CALL EMGOUT (KK(1),KK(1),4,1,DICT,1,IPREC)\r\nC\r\n  520 MATFLG = 4\r\nC\r\nC     ERROR IN NEXT CARD FOR HEAT FORMULATION. REMOVED BY G.CHAN/SPERRY,\r\nC     1984.   ALSO, CHANGE  GO TO 520 TO 540, 11-TH CARD ABOVE, AND\r\nC     CALL EMGOUT BELOW AND WRITE TO THE 3-RD FILE INSTEAD OF THE 2-ND.\r\nC\r\n      CALL HMAT (IELID)\r\n      KK(1) = (DBLE(FK)*DBLE(ECPT(17)))*FL/2.D0\r\n      IF (KK(1) .EQ. 0.D0) RETURN\r\n      KK(2) = KK(1)\r\n      DICT(2) = 2\r\n      CALL EMGOUT (KK(1),KK(1),2,1,DICT,3,IPREC)\r\n  540 RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 7770 CONTINUE\r\n      WRITE  (IOUTPT,7775) UFM,IELID\r\n 7775 FORMAT (A23,' 3176, BAR ELEMENT ID',I9,\r\n     1        ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.')\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bars.f",
    "content": "      SUBROUTINE BARS\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS SUBROUTINE PROCESSES BAR  ELEMENT DATA TO PRODUCE STIFFNESS\r\nC     AND MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY\r\nC     AND CAPACITY MATRICES ARE PRODUCED.\r\nC\r\nC     THIS ROUTINE WILL PRODUCE MASS MATRICES BY EITHER THE CONSISTENT\r\nC     OR CONVENTIONAL MASS METHODS.\r\nC     THE ECPT/EST ENTRIES FOR THE BAR (ELEMENT TYPE 34) ARE\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)      * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...          *\r\nC     ECPT( 4)  -  SMALLV(3)      $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...          $\r\nC     ECPT( 6)  -    ...          $\r\nC     ECPT( 7)  -  ICSSV          COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)      * PIN FLAGS\r\nC     ECPT( 9)  -    ...          *\r\nC     ECPT(10)  -  ZA(3)          $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -    ...          $\r\nC     ECPT(12)  -    ...          $\r\nC     ECPT(13)  -  ZB(3)          * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -    ...          *\r\nC     ECPT(15)  -    ...          *\r\nC     ECPT(16)  -  IMATID         MATERIAL ID.\r\nC     ECPT(17)  -  A              CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1             $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2             $\r\nC     ECPT(20)  -  FJ             TORSIONAL CONSTANT\r\nC     ECPT(21)  -  NSM            NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE             FORCE ELEM DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1             * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2             *\r\nC     ECPT(25)  -  D1             *\r\nC     ECPT(26)  -  D2             *\r\nC     ECPT(27)  -  F1             *\r\nC     ECPT(28)  -  F2             *\r\nC     ECPT(29)  -  G1             *\r\nC     ECPT(30)  -  G2             *\r\nC     ECPT(31)  -  K1             $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2             $\r\nC     ECPT(33)  -  I12            AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA         COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)         * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -    ...          *\r\nC     ECPT(37)  -    ...          *\r\nC     ECPT(38)  -  MCSIDB         COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)         $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -    ...          $\r\nC     ECPT(41)  -    ...          $\r\nC     ECPT(42)  -  ELTEMP         AVG. ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         BASIC,OFFSET,NOGO,AOFSET,BOFSET\r\n      INTEGER         DICT(7),IS12OR(4),IS21OR(4),GSUBE,ESTID,IECPT(38)\r\n      REAL            K1,K2,I1,I2,I12,NSM,KE,KK,KEP,M,MEP,ME,LR1,LR2,LB,\r\n     1                L2B3,L2B6,LIMIT\r\n      DIMENSION       VECI(3),VECJ(3),VECK(3),ECPT(42),IPIN(10),IKK(4)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /EMGEST/ IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3),\r\n     1                ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2,\r\n     2                G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3),TEMPEL\r\n      COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP,\r\n     1                IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT\r\n      COMMON /EMGDIC/ IDUMM, LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGTRX/ KE(144),KEP(144),M(12,12),ME(144),MEP(144),\r\n     1                KK(144),SMALVN(6),TA(18),TB(9),VEC(10),\r\n     2                DELA(6),DELB(6)\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS\r\n      COMMON /HMTOUT/ FK\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT), (KSYSTM(56),IHEAT),\r\n     1                (ECPT(1),IECPT(1),IELID), (KSYSTM(87),KSY87),\r\n     2                (VEC(1),VECI(1)), (VEC(4),VECJ(1)),\r\n     3                (VEC(7),VECK(1))\r\n      DATA    IKK   / 1,7,73,79   /, EPSI,EPSI2 / 1.0E-18,1.0E-7 /\r\n      DATA    IS12OR/ 1,37,109,73 /, IS21OR     / 73,109,37,1    /\r\nC\r\nC\r\n      DICT(1) = ESTID\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n      JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\n      LIMIT  = IABS(KSY87)*.01\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC\r\n      FL = SQRT(SMALLV(1)**2 + SMALLV(2)**2 + SMALLV(3)**2)\r\n      IF (ABS(FL) .LT. EPSI) GO TO 7770\r\n      DO 50 I = 1,3\r\n   50 SMALVN(I) = SMALLV(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (ICSIDA .NE. 0) CALL TRANSS (ECPT(JCSIDA),TA)\r\n      IF (ICSIDB .NE. 0) CALL TRANSS (ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC\r\n  100 DO 105 I = 1,3\r\n      JTA = I + JCSIDA\r\n      JTB = I + JCSIDB\r\n  105 VECI(I) = ECPT(JTA) - ECPT(JTB)\r\nC\r\nC     SAVE IN A2B THE LENGTH OF BAR WITHOUT OFFSET, FROM GRID PT. A TO B\r\nC\r\n      A2B = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ICSIDA .EQ.0) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATS (TA,3,3,0,DELA(1),3,1,0,DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (ICSIDB .EQ. 0) GOTO 140\r\n      IDELB = 4\r\n      CALL GMMATS (TB,3,3,0,DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 DO 145 I = 1,3\r\n      JTA = I - 1 + IDELA\r\n      JTB = I - 1 + IDELB\r\n  145 VECI(I) = VECI(I)+DELA(JTA) - DELB(JTB)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 FL = 0.\r\n      DO 155 I = 1,3\r\n      VECI(I) = - VECI(I)\r\n  155 FL = FL + VECI(I)**2\r\n      FL = SQRT(FL)\r\n      IF (ABS(FL) .LT. EPSI) GO TO 7770\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     NOW THAT LENGTH HAS BEEN COMPUTED, CHECK POSSIBLE OFFSET ERROR\r\nC     ISSUE WARNING MESSAGE IF OFFSET EXCEEDS A2B BY 'LIMIT' PERCENT.\r\nC     (DEFAULT IS 15 PERCENT, KSYSTM(87) WORD)\r\nC\r\n      IF (ABS(FL-A2B)/A2B .LE. LIMIT) GO TO 170\r\n      WRITE  (IOUTPT,165) UWM,IELID\r\n  165 FORMAT (A25,' - UNUSUALLY LARGE OFFSET IS DETECTED FOR CBAR ',\r\n     1       'ELEMENT ID =',I8,' ***')\r\n      IF (KSY87 .LE. 0) GO TO 170\r\n      WRITE  (IOUTPT,167) KSY87\r\n  167 FORMAT (/5X,'(OFFSET BAR LENGTH EXCEEDS NON-OFFSET LENGTH BY',\r\n     1        I4,' PERCENT, SET BY SYSTEM 87TH WORD)')\r\n      KSY87 = -KSY87\r\nC\r\nC     BRANCH IF THIS IS A -HEAT- FORMULATION.\r\nC\r\n  170 IF (IHEAT .EQ.1) GO TO 500\r\nC\r\nC     COMPUTE THE  SMALV0  VECTOR\r\nC\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATS (TA,3,3,0,SMALVN(1),3,1,0,SMALVN(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) = VECI(2)*SMALVN(ISV+2) - VECI(3)*SMALVN(ISV+1)\r\n      VECK(2) = VECI(3)*SMALVN(ISV  ) - VECI(1)*SMALVN(ISV+2)\r\n      VECK(3) = VECI(1)*SMALVN(ISV+1) - VECI(2)*SMALVN(ISV  )\r\n      FLL= SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (ABS(FLL) .LT. EPSI2) GO TO 7770\r\n      DO 190 I = 1,3\r\n  190 VECK(I) = VECK(I)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL = SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      IF (ABS(FLL) .LT. EPSI2) GO TO 7770\r\n      VECJ(1) = VECJ(1)/FLL\r\n      VECJ(2) = VECJ(2)/FLL\r\n      VECJ(3) = VECJ(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\n      IF (ISTIF .EQ. 0) GOTO 600\r\nC\r\nC     IF ELASTICITY AND SHEAR MODULES BOTH ZERO, SKIP STIFFNESS\r\nC     CALCULATION\r\nC\r\n      IF (E.EQ.0. .AND. G.EQ.0.) GO TO 600\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      ASSIGN 305 TO K OR M\r\n  205 BL    = FL\r\n      BLSQ  = FL**2\r\n      BLCUBE= BLSQ*BL\r\nC\r\nC     COMPUTE SOME TERMS TO BE USED IN STIFFNESS MATRIX KE\r\nC\r\n      EI1  = E*I1\r\n      EI2  = E*I2\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210\r\n      GAK1 = G*A*K1\r\n      R1   = (12.*EI1*GAK1)/(GAK1*BLCUBE + 12.*BL*EI1)\r\n      GO TO 220\r\n  210 R1   = 12.*EI1/BLCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      GAK2 = G*A*K2\r\n      R2   = (12.*EI2*GAK2)/(GAK2*BLCUBE + 12.*BL*EI2)\r\n      GO TO 240\r\n  230 R2   = 12.*EI2/BLCUBE\r\nC\r\n  240 SK1 = .25*R1*BLSQ + EI1/BL\r\n      SK2 = .25*R2*BLSQ + EI2/BL\r\n      SK3 = .25*R1*BLSQ - EI1/BL\r\n      SK4 = .25*R2*BLSQ - EI2/BL\r\nC\r\n      AEL =  A*E/BL\r\n      LR1 =  BL*R1/2.\r\n      LR2 =  BL*R2/2.\r\n      GJL =  G*FJ/BL\r\nC\r\nC     CONSTRUCT  THE GENERAL 12X12 MATRIX FOR THE BAR ELEMENT\r\nC\r\nC                      **       **\r\nC                      * K    K  *\r\nC                      *  AA   AB*\r\nC                K =   *  T      *\r\nC                      * K    K  *\r\nC                      *  AB   BB*\r\nC                      **       **\r\nC\r\nC\r\nC     FIRST SET THE COMPONENT CODE AND THE DOF\r\nC\r\n      ICODE = 63\r\n      NDOF  = 12\r\n      NSQ   = NDOF**2\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 300 I = 1,144\r\n  300 KE(I)   = 0.\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.) GO TO 303\r\n      BETA    =  12.*E*I12/BLCUBE\r\n      LB      =  BL*BETA/2.0\r\n      L2B3    =  BLSQ*BETA/3.0\r\n      L2B6    =  BLSQ*BETA/6.0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\n  303 GO TO K OR M, (305,640,465,750)\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  305 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 345\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 310 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  310 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 340 I = 1,10\r\n      IF (IPIN(I) .EQ.0) GO TO 340\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.) GO TO 320\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 315 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.\r\n      KE(IL) = 0.\r\n      IL = IL + 12\r\n  315 CONTINUE\r\n      GO TO 340\r\n  320 DO 330 J = 1,12\r\n      JI = 12*(J-1) + IPIN(I)\r\n      IJ = 12*(IPIN(I)-1) + J\r\n      DO 325 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  325 CONTINUE\r\n      KEP(IJ) = 0.\r\n      KEP(JI) = 0.\r\n  330 CONTINUE\r\n      DO 335 K = 1,144\r\n  335 KE(K) = KEP(K)\r\n  340 CONTINUE\r\nC\r\nC     DIVIDE KE INTO FOUR SUBMATRICES AND STORE IN OPEN CORE\r\nC\r\nC      E                   E                   E\r\nC     K   = KK(1 TO 36)   K   = KK(37 TO 72)  K   = KK(73 TO 108)\r\nC      AA                  AB                  BA\r\nC\r\nC      E\r\nC     K   =  KK(109 TO 144)\r\nC      BB\r\nC\r\nC\r\n  345 J = 0\r\n      DO 355 I = 1,72,12\r\n      LOW = I\r\n      LIM = I + 5\r\n      DO 350 K = LOW,LIM\r\n      J = J + 1\r\n      KK(J    ) = KE(K   )\r\n      KK(J+ 36) = KE(K+ 6)\r\n      KK(J+ 72) = KE(K+72)\r\n  350 KK(J+108) = KE(K+78)\r\n  355 CONTINUE\r\nC\r\n      ASSIGN 465 TO K OR M\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W AND W  6 X 6\r\nC     MATRICES WILL RESIDE.                                A      B\r\nC      T\r\nC     A   MATRIX NOW STORED IN KE\r\nC\r\n  358 DO 357 I = 1,9\r\n  357 KE(I) = VEC(I)\r\nC\r\n      DO 360 I = 28,144\r\n  360 KE(I) = 0.\r\nC\r\nC     SET UP POINTERS\r\nC\r\n      BASIC  = ICSIDA.EQ.0\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      DO 395 I = 1,2\r\n      IWBEG = I*36\r\nC\r\nC     SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G MATRIX\r\nC     G = AT X TI\r\nC\r\n      IG = 1\r\n      IF (BASIC) GO TO 380\r\n      CALL TRANSS (ECPT(JCSID),KE(10))\r\n      CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19) )\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3\r\nC     MATRIX.\r\nC\r\n  380 IF (.NOT.OFFSET) GO TO 385\r\n      KE(10) =  0.\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.\r\nC\r\nC     FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0,KE(28))\r\nC\r\nC\r\nC     FORM THE W SUBMATRICES IN KE(37) AND KE(73)\r\nC\r\nC\r\n  385 KE(IWBEG+ 1) = KE(IG  )\r\n      KE(IWBEG+ 2) = KE(IG+1)\r\n      KE(IWBEG+ 3) = KE(IG+2)\r\n      KE(IWBEG+ 7) = KE(IG+3)\r\n      KE(IWBEG+ 8) = KE(IG+4)\r\n      KE(IWBEG+ 9) = KE(IG+5)\r\n      KE(IWBEG+13) = KE(IG+6)\r\n      KE(IWBEG+14) = KE(IG+7)\r\n      KE(IWBEG+15) = KE(IG+8)\r\n      KE(IWBEG+22) = KE(IG  )\r\n      KE(IWBEG+23) = KE(IG+1)\r\n      KE(IWBEG+24) = KE(IG+2)\r\n      KE(IWBEG+28) = KE(IG+3)\r\n      KE(IWBEG+29) = KE(IG+4)\r\n      KE(IWBEG+30) = KE(IG+5)\r\n      KE(IWBEG+34) = KE(IG+6)\r\n      KE(IWBEG+35) = KE(IG+7)\r\n      KE(IWBEG+36) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+ 4) = KE(28)\r\n      KE(IWBEG+ 5) = KE(29)\r\n      KE(IWBEG+ 6) = KE(30)\r\n      KE(IWBEG+10) = KE(31)\r\n      KE(IWBEG+11) = KE(32)\r\n      KE(IWBEG+12) = KE(33)\r\n      KE(IWBEG+16) = KE(34)\r\n      KE(IWBEG+17) = KE(35)\r\n      KE(IWBEG+18) = KE(36)\r\n  390 BASIC  = ICSIDB.EQ.0\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n  395 CONTINUE\r\nC\r\nC     CONVERT THE K PARTITIONS TO GLOBAL COORDINATES AND STORE IN KEP\r\nC\r\n      IAFT = 37\r\n      DO 400 I = 1,4\r\n      IKX  = (I-1)*36 + 1\r\n      IK   = IKX\r\n      IF (I .GE. 3) IKX = (7-I-1)*36  + 1\r\n      IFORE = ((I-1)/2)*36 + 37\r\n      CALL GMMATS (KE(IFORE),6,6,1, KK(IKX),6,6,0, KE(109))\r\n      CALL GMMATS (KE(109), 6,6,0, KE(IAFT),6,6,0, KEP(IK))\r\n      IAFT = 73\r\n      IF (I .EQ. 3) IAFT = 37\r\n  400 CONTINUE\r\nC\r\nC     REFORM THE K MATRIX (12X12) FROM THE FOUR SUBMATRICES (6X6) AND\r\nC     ORDER  THE SUBMATRICES BY INCREASING SIL VALUE\r\nC\r\n      DO 460 II = 1,4\r\n      IX1 = IKK(II)\r\n      IX2 = IX1 + 60\r\n      IS  = IS12OR(II)\r\n      IF (ISILNO(1) .GT. ISILNO(2)) IS = IS21OR(II)\r\n      DO 450 I = IX1,IX2,12\r\n      IP5 = I + 5\r\n      DO 440 J = I,IP5\r\n      KE(J) = KEP(IS)\r\n  440 IS = IS + 1\r\n  450 CONTINUE\r\n  460 CONTINUE\r\nC\r\n      GO TO K OR M, (305,640,465,750)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n  465 DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      CALL EMGOUT (KE(1),KE(1),NSQ,1,DICT,1,IPREC)\r\n      GO TO 600\r\nC\r\nC     THE MASS MATRIX IS GENERATED HERE.  IF THE PARAMETER ICMBAR IS\r\nC     .LT. 0, CALL THE CONVENTIONAL MASS MATRIX GENERATION ROUTINE FOR\r\nC     THE BAR.  OTHERWISE CALL THE ROUTINE TO GENERATE CONSISTENT MASS\r\nC     MATRICES FOR THE BAR.\r\nC\r\n  600 CONST = (FL*(RHO*A + NSM))/420.\r\n      IF (IMASS.EQ.0 .OR. CONST.EQ.0.) RETURN\r\n      IF (ICMBAR .LT. 0) GO TO 800\r\nC\r\nC     CALCULATE THE CONSISTENT/CONVENTIONAL MASS MATRIX\r\nC\r\nC     CALL THE MAT ROUTINE TO FETCH SINGLE PRECISION MATERIAL PROPERTIES\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC\r\nC     COMPUTE TERMS OF THE ELEMENT MASS MATRIX\r\nC\r\n      BL22  = 22.*FL\r\n      BL13  = 13.*FL\r\n      BLSQ4 = 4.0*FL**2\r\n      BLSQ3 = 3.0*FL**2\r\nC\r\nC     CONSTRUCT THE ELEMENT MASS MATRIX.\r\nC\r\n      DO 610 I = 1,12\r\n      DO 610 J = 1,12\r\n  610 M( I, J) = 0.\r\n      M( 1, 1) = 175.\r\n      M( 1, 7) = 35.\r\n      M( 2, 2) = 156.\r\n      M( 2, 6) = BL22\r\n      M( 2, 8) = 54.\r\n      M( 2,12) =-BL13\r\n      M( 3, 3) = 156.\r\n      M( 3, 5) =-BL22\r\n      M( 3, 9) = 54.\r\n      M( 3,11) = BL13\r\n      M( 5, 5) = BLSQ4\r\n      M( 5, 9) =-BL13\r\n      M( 5,11) =-BLSQ3\r\n      M( 6, 6) = BLSQ4\r\n      M( 6, 8) = BL13\r\n      M( 6,12) =-BLSQ3\r\n      M( 7, 7) = 175.\r\n      M( 8, 8) = 156.\r\n      M( 8,12) =-BL22\r\n      M( 9, 9) = 156.\r\n      M( 9,11) = BL22\r\n      M(11,11) = BLSQ4\r\n      M(12,12) = BLSQ4\r\nC\r\nC     STORE THE UPPER TRIANGULAR PART OF THE MATRIX IN THE LOWER PART.\r\nC\r\n      DO 625 I = 1,10\r\n      LOW = I + 1\r\n      DO 620 J = LOW,12\r\n      M(J,I) = M(I,J)\r\n  620 CONTINUE\r\n  625 CONTINUE\r\nC\r\nC     MULTIPLY BY CONSTANT AND STORE ROW-WISE IN THE ARRAY ME\r\nC\r\n      K = 0\r\n      DO 630 I = 1,12\r\n      DO 630 J = 1,12\r\n      K = K + 1\r\n  630 ME(K) = CONST*M(I,J)\r\nC\r\nC     IF THERE ARE NO PIN FLAGS THERE IS NO NEED TO CALCULATE THE\r\nC     ELEMENT STIFFNESS MATRIX\r\nC\r\n      KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 705\r\nC\r\nC     COMPUTE THE STIFFNESS MATRIX KE\r\nC\r\n      ASSIGN 640 TO K OR M\r\n      GO TO 205\r\nC\r\nC     RETURN HERE AFTER COMPUTING THE STIFFNESS MATRIX\r\nC\r\nC\r\nC     SET UP TNHE IPIN ARRAY\r\nC\r\n  640 DO 645 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  645 KB = KB/10\r\nC\r\nC     ALTER THE ELEMENT MASS MATRIX DUE TO PIN FLAGS.  NOTE THAT THE\r\nC     FOLLOWING CODE IS CONGRUENT AS IT WERE TO THE CODE IN SUBROUTINE\r\nC     DBEAM IN THE DSMG1 MODULE.\r\nC\r\n      DO 700 J = 1,10\r\n      IF (IPIN(J) .EQ. 0) GO TO 700\r\n      JJ = 12*(IPIN(J)-1) + IPIN(J)\r\n      IF (KE(JJ) .EQ. 0.) GO TO 680\r\n      DO 660 I = 1,12\r\n      JI = 12*(IPIN(J)-1) + I\r\n      IJ = 12*(I-1) + IPIN(J)\r\n      DO 650 L1 = 1,12\r\n      IL = 12*(I-1) + L1\r\n      LJ = 12*(L1-1) + IPIN(J)\r\n      MEP(IL) = ME(IL) - KE(LJ)*ME(JI)/KE(JJ) - KE(JI)*ME(LJ)/KE(JJ)\r\n     2                 + KE(LJ)*KE(JI)*ME(JJ)/KE(JJ)**2\r\n  650 CONTINUE\r\n  660 CONTINUE\r\n      DO 670 K = 1,144\r\n  670 ME(K) = MEP(K)\r\nC\r\nC     ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF ME\r\nC\r\n  680 J1 = JJ - IPIN(J)\r\n      J2 = IPIN(J)\r\n      DO 690 K = 1,12\r\n      J1 = J1 + 1\r\n      ME(J1) = 0.\r\n      ME(J2) = 0.\r\n  690 J2 = J2 + 12\r\n  700 CONTINUE\r\nC\r\nC            E                  E                    E\r\nC     STORE M  AT KK(1 TO 36), M  AT KK (37 TO 72), M  AT KK(73 TO 108)\r\nC            AA                 AB                   BA\r\nC\r\nC            E\r\nC     AND   M  AT KK(109 TO 144)\r\nC            BB\r\nC\r\n  705 J = 0\r\n      DO 720 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 710 K = LOW,LIM\r\n      J = J + 1\r\n      KK(J) = ME(K)\r\n      KK(J+ 36) = ME(K+ 6)\r\n      KK(J+ 72) = ME(K+72)\r\n  710 KK(J+108) = ME(K+78)\r\n  720 CONTINUE\r\nC\r\nC     CALCULATE THE TRANSFORMATION VECTORS\r\nC\r\n      ASSIGN 750 TO K OR M\r\n      GO TO 358\r\nC\r\nC     OUTPUT THE CONSISTENT MASS MATRIX\r\nC\r\n  750 DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = 0\r\n      CALL EMGOUT (KE(1),KE(1),144,1,DICT,2,IPREC)\r\n      RETURN\r\nC\r\nC     CALCULATE THE CONVENTIONAL MASS MATRIX HERE\r\nC\r\nC     GET RHO FROM MPT BY CALLING MAT\r\nC\r\n  800 MATIDC = IMATID\r\n      MATFLG = 4\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (ECPT(1))\r\n      DO 810 I = 1,72\r\n  810 MEP(I) = 0.\r\n      FM = .5*FL*(RHO*A + NSM)\r\nC\r\nC     DETERMINE IF THE GRID POINT IS ASSOCIATED WITH A NON-ZERO OFFSET.\r\nC\r\n      JOFSET = 9\r\n      DO 850 II = 1,2\r\n      IX = (II-1)*36\r\n      J  = JOFSET\r\n      DO 815 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.) GO TO 820\r\n  815 CONTINUE\r\n      GO TO 840\r\nC\r\nC     FORM UPPER RIGHT CORNER OF THE MATRIX\r\nC\r\n  820 MEP(IX+ 1) =  1.\r\n      MEP(IX+ 8) =  1.\r\n      MEP(IX+15) =  1.\r\n      MEP(IX+ 5) =  ECPT(JOFSET+3)\r\n      MEP(IX+ 6) = -ECPT(JOFSET+2)\r\n      MEP(IX+12) =  ECPT(JOFSET+1)\r\n      MEP(IX+10) = -MEP(IX+ 5)\r\n      MEP(IX+16) = -MEP(IX+ 6)\r\n      MEP(IX+17) = -MEP(IX+12)\r\n      MEP(IX+20) = -MEP(IX+ 5)\r\n      MEP(IX+21) = -MEP(IX+ 6)\r\n      MEP(IX+25) = -MEP(IX+10)\r\n      MEP(IX+27) = -MEP(IX+12)\r\n      MEP(IX+31) = -MEP(IX+16)\r\n      MEP(IX+32) = -MEP(IX+17)\r\n      MEP(IX+22) =  ECPT(JOFSET+3)**2 + ECPT(JOFSET+2)**2\r\n      MEP(IX+29) =  ECPT(JOFSET+3)**2 + ECPT(JOFSET+1)**2\r\n      MEP(IX+36) =  ECPT(JOFSET+2)**2 + ECPT(JOFSET+1)**2\r\n      MEP(IX+23) = -ECPT(JOFSET+1)*ECPT(JOFSET+2)\r\n      MEP(IX+24) = -ECPT(JOFSET+1)*ECPT(JOFSET+3)\r\n      MEP(IX+30) = -ECPT(JOFSET+2)*ECPT(JOFSET+3)\r\n      MEP(IX+28) =  MEP(IX+23)\r\n      MEP(IX+34) =  MEP(IX+24)\r\n      MEP(IX+35) =  MEP(IX+30)\r\nC\r\nC     MULTIPLY M BY THE CONSTANT FL\r\nC\r\n      DO 830 I = 1,36\r\n      IS = IX + I\r\n  830 MEP(IS) = MEP(IS)*FM\r\n      GO TO 850\r\nC\r\nC     HERE WE HAVE A ZERO OFFSET VECTOR\r\nC\r\n  840 MEP(IX+ 1) = FM\r\n      MEP(IX+ 8) = FM\r\n      MEP(IX+15) = FM\r\n  850 JOFSET = 12\r\nC\r\nC     INSERT M  AND M  SUBMATRICES INTO M ACCORDING TO INCREASING SIL\r\nC             A      B\r\nC\r\n      DO 860 I = 1,144\r\n  860 ME(I) = 0.\r\nC\r\n      IF (ISILNO(1)-ISILNO(2)) 870,870,880\r\n  870 IX1 = 1\r\n      IX2 = 37\r\n      GO TO 890\r\n  880 IX1 = 37\r\n      IX2 = 1\r\n  890 CONTINUE\r\n      DO 900 JJ = 1,36\r\n      MM = MOD(JJ,6)\r\n      IF (MM .EQ. 0) MM = 6\r\n      I = ((JJ-1)/6)*12  + MM\r\n      J = I + 78\r\n      ME(I) = MEP(IX1)\r\n      ME(J) = MEP(IX2)\r\n      IX1 = IX1 + 1\r\n  900 IX2 = IX2 + 1\r\nC\r\nC     OUTPUT THE CONVENTIONAL MASS MATRIX\r\nC\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = 0\r\nC\r\n      CALL EMGOUT ( ME,ME,144,1,DICT,2,IPREC)\r\nC\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION CONTINUES HERE.  GET MATERIAL PROPERTY -K- FROM\r\nC     HMAT\r\nC\r\n  500 MATFLG  = 1\r\n      MATIDC  = IECPT(16)\r\n      ELTEMP  = ECPT(42)\r\n      DICT(2) = 1\r\n      DICT(3) = 2\r\n      DICT(4) = 1\r\n      DICT(5) = 0\r\n      IF (ISTIF .EQ. 0) GO TO 540\r\n      CALL HMAT (IELID)\r\nC\r\n      KK(1) = FK*ECPT(17)/FL\r\n      IF (KK(1) .EQ. 0.) GO TO 520\r\n      KK(2) =-KK(1)\r\n      KK(3) = KK(2)\r\n      KK(4) = KK(1)\r\n      CALL EMGOUT (KK(1),KK(1),4,1,DICT,1,IPREC)\r\nC\r\n  520 MATFLG = 4\r\nC\r\nC     ERROR IN NEXT CARD FOR HEAT FORMULATION. REMOVED BY\r\nC     G.CHAN/UNISYS, 1984\r\nC     ALSO, CHANGE  GO TO 520  TO 540, 11-TH CARD ABOVE, AND\r\nC     CALL EMGOUT BELOW AND WRITE TO THE 3-RD FILE INSTEAD OF THE 2-ND.\r\nC\r\nC\r\n      CALL HMAT (IELID)\r\n      KK(1) = (FK*ECPT(17))*FL/2.\r\n      IF (KK(1) .EQ. 0.) RETURN\r\n      KK(2) = KK(1)\r\n      DICT(2) = 2\r\n      CALL EMGOUT (KK(1),KK(1),2,1,DICT,3,IPREC)\r\n  540 RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 7770 CONTINUE\r\n      WRITE  (IOUTPT,7775) UFM,IELID\r\n 7775 FORMAT (A23,' 3176, BAR ELEMENT ID',I9,\r\n     1       ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.')\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/basglb.f",
    "content": "      SUBROUTINE BASGLB (VIN1,VOUT1,PONT,ICSTM)\r\nC\r\nC     THIS ROUTINE CONTAINS FOUR ENTRY POINTS\r\nC\r\nC     1- BASGLB TRANSFORMS A VECTOR FROM BASIC TO GLOBAL\r\nC     2- GLBBAS TRANSFORMS A VECTOR FROM GLOBAL TO BASIC\r\nC     3- FDCSTM FINDS THE LOGICAL RECORD ON THE CSTM FOR A PARTICULAR ID\r\nC     4- GBTRAN FINDS A PARTICULAR GLOBAL TO BASIC TRANSFORMATION AND\r\nC        RETURNS IT AS A 3 X 3 STORED BY ROWS.\r\nC\r\nC\r\n      LOGICAL         TONLY\r\n      INTEGER         CSTM,TYSYS,CHECK\r\n      REAL            T(9)\r\n      DIMENSION       VIN(3),VIN1(3),VOUT1(3),TI(3,3),TL(3,3),\r\n     1                PONT(3),PONT1(3),TZ(3,3),IPARM(2)\r\n      COMMON /XCSTM / TZ\r\n      COMMON /LOADX / LC(4),CSTM,LC1(10),IDUM(3),ICM\r\n      COMMON /TRANX / NSYS,TYSYS,RO(3),TO(3,3)\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    IPARM/ 4HBASG,2HLB /\r\nC\r\nC     NSYS  IS SYSTEM NUMBER\r\nC     TYSYS IS SYSTEM TYPE\r\nC     RO IS LOCATION OF ORIGIN\r\nC     TO IS ROTATION MATRIX\r\nC\r\n      TONLY = .FALSE.\r\n      CHECK = 123456789\r\n      ASSIGN 90 TO IEXIT\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY GBTRAN (ICSTM,PONT,T)\r\nC     ===========================\r\nC\r\n      IF (ICSTM .EQ. 0) GO TO 300\r\n      IF (TYSYS.GE.2 .AND. CHECK.NE.123456789) WRITE (NOUT,5)\r\n    5 FORMAT ('0*** SYSTEM POTENTIAL ERROR, GBTRAN WAS CALLED WITHOUT',\r\n     1        ' FIRST CALLING BASGLB')\r\n      CHECK = 123456789\r\n      TONLY = .TRUE.\r\n      GO TO 235\r\nC\r\nC\r\n      ENTRY FDCSTM (ICSTM)\r\nC     ====================\r\nC\r\n      TONLY = .FALSE.\r\n      ASSIGN 50 TO IEXIT\r\nC\r\nC     FDCSTM WILL FIND REQUESTED SYSTEM (ICSTM)\r\nC\r\n   10 CONTINUE\r\n      IF (ICSTM .EQ. 0) GO TO 81\r\n      IF (ICM   .NE. 0) GO TO 80\r\n      IF (ICSTM-NSYS) 20,40,20\r\n   20 CALL READ (*60,*80,CSTM,NSYS,14,0,FLAG)\r\n      IF (ICSTM-NSYS) 20,30,20\r\n   30 CALL BCKREC (CSTM)\r\n   40 GO TO IEXIT, (90,240,50)\r\n   50 RETURN\r\nC\r\n   60 N1 = -2\r\n      IPARM1 = CSTM\r\n   70 CALL MESAGE (N1,IPARM1,IPARM)\r\nC\r\nC     UNABLE TO FIND REQUESTED COORDINATE SYSTEM\r\nC\r\n   80 N1      =-30\r\n      IPARM1  = 25\r\n      IPARM(1)= ICSTM\r\n      GO TO 70\r\nC\r\nC     REQUEST FOR BASIC COORDINATE SYSTEM\r\nC\r\n   81 CONTINUE\r\n      TYSYS = 1\r\n      NSYS  = 0\r\n      RO(1) = 0.0\r\n      RO(2) = 0.0\r\n      RO(3) = 0.0\r\n      DO 82 I = 1,3\r\n      DO 82 J = 1,3\r\n      TO(J,I) = 0.0\r\n   82 CONTINUE\r\n      TO(1,1) = 1.0\r\n      TO(2,2) = 1.0\r\n      TO(3,3) = 1.0\r\n      GO TO 40\r\nC\r\nC     CONVERTS BASIC TO GLOBAL\r\nC\r\n   90 IOTH = 0\r\nC\r\nC     RECTANGULAR\r\nC\r\n  100 DO 120 I = 1,3\r\n      DO 110 J = 1,3\r\n      TZ(I,J) = TO(J,I)\r\n  110 TI(I,J) = TO(J,I)\r\n  120 VIN(I)  = VIN1(I)\r\n      IF (TYSYS-2) 130,140,140\r\n  130 CALL MPYL (TI(1,1),VIN(1),3,3,1,VOUT1(1))\r\n      GO TO 50\r\nC\r\nC     CYLINDRICAL\r\nC\r\n  140 DO 150 I = 1,3\r\n  150 PONT1(I) = PONT(I) - RO(I)\r\n      CALL MPYL (TI(1,1),PONT1(1),3,3,1,VIN(1))\r\n      DO 160 I = 1,3\r\n      DO 160 J = 1,3\r\n  160 TL(I,J) = 0.0\r\n      R = SQRT(VIN(1)*VIN(1) + VIN(2)*VIN(2))\r\n      IF (R  .EQ.  0.0) GO TO 210\r\n      IF (TYSYS .GT. 2) GO TO 230\r\n      TL(3,3) = 1.0\r\n      TL(1,1) = VIN(1)/R\r\n      TL(2,2) = TL(1,1)\r\n      TL(2,1) = VIN(2)/R\r\n      TL(1,2) =-TL(2,1)\r\n  170 CALL MPYL (TL(1,1),TI(1,1),3,3,3,TZ(1,1))\r\n  180 IF (TONLY) GO TO 201\r\n      IF ( IOTH) 270,190,270\r\n  190 DO 200 I = 1,3\r\n  200 VIN(I) = VIN1(I)\r\n      CALL MPYL (TZ(1,1),VIN(1),3,3,1,VOUT1(1))\r\n      GO TO 50\r\nC\r\nC     RETURN THE TRANSFORMATION ONLY\r\nC\r\n  201 T(1) = TZ(1,1)\r\n      T(2) = TZ(1,2)\r\n      T(3) = TZ(1,3)\r\n      T(4) = TZ(2,1)\r\n      T(5) = TZ(2,2)\r\n      T(6) = TZ(2,3)\r\n      T(7) = TZ(3,1)\r\n      T(8) = TZ(3,2)\r\n      T(9) = TZ(3,3)\r\n      GO TO 50\r\nC\r\nC     ORIENTATION ARBITARY   TL = I   I.E. TZ = TI\r\nC\r\n  210 DO 220 I = 1,3\r\n      DO 220 J = 1,3\r\n      TZ(I,J) = TI(I,J)\r\n  220 CONTINUE\r\n      GO TO 180\r\nC\r\nC     SPHERICAL\r\nC\r\n  230 XL = SQRT(VIN(1)*VIN(1) + VIN(2)*VIN(2) + VIN(3)*VIN(3))\r\n      XR = VIN(1)/R\r\n      YR = VIN(2)/R\r\n      ZL = VIN(3)/XL\r\nC\r\nC     BUILD TL TRANSPOSE\r\nC\r\n      TL(1,1) = VIN(1)/XL\r\n      TL(1,2) = XR*ZL\r\n      TL(1,3) =-YR\r\n      TL(2,1) = VIN(2)/XL\r\n      TL(2,2) = YR*ZL\r\n      TL(2,3) = XR\r\n      TL(3,1) = ZL\r\n      TL(3,2) =-R/XL\r\n      GO TO 170\r\nC\r\nC\r\n      ENTRY GLBBAS (VIN1,VOUT1,PONT,ICSTM)\r\nC     ====================================\r\nC\r\n      TONLY = .FALSE.\r\n  235 ASSIGN 240 TO IEXIT\r\n      IOTH = 1\r\n      GO TO 10\r\nC\r\nC     CONVERTS FROM GLOBAL TO BASIC\r\nC\r\n  240 IF (TYSYS-2) 250,100,100\r\n  250 IF ( TONLY ) GO TO 261\r\n      DO 260 I = 1,3\r\n  260 VIN(I) = VIN1(I)\r\n      CALL MPYL (TO(1,1),VIN(1),3,3,1,VOUT1(1))\r\n      GO TO 50\r\nC\r\nC     RETURN THE TRANSFORMATION ONLY.\r\nC\r\n  261 T(1) = TO(1,1)\r\n      T(2) = TO(2,1)\r\n      T(3) = TO(3,1)\r\n      T(4) = TO(1,2)\r\n      T(5) = TO(2,2)\r\n      T(6) = TO(3,2)\r\n      T(7) = TO(1,3)\r\n      T(8) = TO(2,3)\r\n      T(9) = TO(3,3)\r\n      GO TO 50\r\nC\r\nC     COMPUTE TL TRANSPOSE\r\nC\r\nC     TRANSPOSE ROTATION PRODUCT\r\nC\r\n  270 DO 280 I = 1,3\r\n      VIN(I) = VIN1(I)\r\n      DO 280 J = 1,3\r\n  280 TI(I,J) = TZ(J,I)\r\n      CALL MPYL (TI(1,1),VIN(1),3,3,1,VOUT1(1))\r\n      GO TO 50\r\nC\r\nC     COORDINATE SYSTEM 0\r\nC\r\n  300 DO 310 I = 2,8\r\n  310 T(I) = 0.\r\n      T(1) = 1.\r\n      T(5) = 1.\r\n      T(9) = 1.\r\n      GO TO 50\r\n      END\r\n"
  },
  {
    "path": "mis/bdat01.f",
    "content": "      SUBROUTINE BDAT01\r\nC\r\nC     THIS SUBROUTINE PROCESSES CONCT1 BULK DATA GENERATING\r\nC     CONNECTION ENTRIES IN TERMS OF GRID POINT ID NUMBERS\r\nC     CODED TO THE PSEUDO-STRUCTURE ID NUMBER.\r\nC     THESE ARE THEN WRITTEN ON SCR1.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TDAT,PRINT\r\n      INTEGER         IO(9),ID(14),IS(7),IC(7),SCR1,CONSET,GEOM4,AAA(2),\r\n     1                FLAG,BUF1,CONCT1(2),BUF2,OUTT,ANDF,RSHIFT,COMBO\r\n      DIMENSION       IBITS(32),JBITS(32),NAME(14),IHD(16)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /CMBFND/ INAM(2),IERR\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    AAA   / 4HBDAT,4H01     / , CONCT1 / 110,41 /\r\n      DATA    IHD   / 4H  SU , 4HMMAR , 4HY OF , 4H CON , 4HNECT ,\r\n     1                4HION  , 4HENTR , 4HIES  , 4HSPEC , 4HIFIE ,\r\n     2                4HD BY , 4H CON , 4HCT1  , 4HBULK , 4H DAT ,\r\n     3                4HA    /\r\n      DATA    IBLNK / 4H     /\r\nC\r\n      DO 10 I = 1,96\r\n      IHEAD(I) = IBLNK\r\n   10 CONTINUE\r\n      J = 1\r\n      DO 15 I = 73,88\r\n      IHEAD(I) = IHD(J)\r\n   15 J = J + 1\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,2),1) .EQ. 1) PRINT = .TRUE.\r\n      NP2 = 2*NPSUB\r\n      DO 20 I = 1,NP2,2\r\n      J = I/2 + 1\r\n      NAME(I  ) = COMBO(J,1)\r\n      NAME(I+1) = COMBO(J,2)\r\n   20 CONTINUE\r\n      IFILE = SCR1\r\n      CALL OPEN (*320,SCR1,Z(BUF2),1)\r\n      CALL LOCATE (*400,Z(BUF1),CONCT1,FLAG)\r\n      IFILE = GEOM4\r\n   30 CALL READ (*300,*210,GEOM4,ID,2,0,N)\r\n      NSS   = ID(1)\r\n      NSSP1 = NSS + 1\r\n      IF (ID(2) .EQ. CONSET) GO TO 50\r\n   40 CALL READ (*300,*310,GEOM4,ID,1,0,NNN)\r\n      IF (ID(1) .NE. -1) GO TO 40\r\n      GO TO 30\r\n   50 NWD = 2*NSS\r\n      IF (.NOT.PRINT) GO TO 70\r\n      CALL PAGE\r\n      CALL PAGE2 (6)\r\n      WRITE  (OUTT,60) (NAME(KDH),KDH=1,NP2)\r\n   60 FORMAT (/24X,74HNOTE  GRID POINT ID NUMBERS HAVE BEEN CODED TO THE\r\n     1 COMPONENT SUBSTRUCTURE, /30X,75HWITHIN A GIVEN PSEUDOSTRUCTURE BY\r\n     2 - 1000000*COMPONENT NO. + ACTUAL GRID ID.,//15X,22HCONNECTED   CO\r\n     3NNECTION,23X,33HGRID POINT ID FOR PSEUDOSTRUCTURE, /18X,3HDOF,9X,\r\n     44HCODE,3X,7(3X,2A4)/)\r\n   70 CONTINUE\r\nC\r\nC     MAKING IT TO 50 IMPLIES THAT CONCT1 DATA EXISTS\r\nC\r\n      TDAT(1) = .TRUE.\r\n      CALL READ (*300,*310,GEOM4,ID,NWD,0,NNN)\r\n      DO 90 I = 1,NSS\r\n      J = 2*(I-1)\r\n      CALL FINDER (ID(1+J),IS(I),IC(I))\r\n      IF (IERR .NE. 1) GO TO 90\r\n      WRITE  (OUTT,80) UFM,ID(1+J),ID(2+J)\r\n   80 FORMAT (A23,' 6522, THE BASIC SUBSTRUCTURE ',2A4, /30X,\r\n     1       'REFERED TO BY A CONCT1 BULK DATA CARD CAN NOT BE FOUND ',\r\n     2       'IN THE PROBLEM TABLE OF CONTENTS.')\r\n      IDRY = -2\r\n   90 CONTINUE\r\n  100 DO 110 I = 1,9\r\n  110 IO(I) = 0\r\n      DO 120 I = 1,NSSP1\r\n      CALL READ (*300,*310,GEOM4,ID(I),1,0,NNN)\r\n      IF (ID(I) .EQ. -1) GO TO 30\r\n  120 CONTINUE\r\n      DO 140 I = 1,NSS\r\n      DO 130 J = 1,NSS\r\n      IF (I .EQ. J) GO TO 130\r\n      IF (IS(I).EQ.IS(J) .AND. ID(I+1).NE.0 .AND. ID(J+1).NE.0)\r\n     1    GO TO 150\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n      GO TO 170\r\n  150 KK = 2*IS(I) - 1\r\n      WRITE  (OUTT,160) UFM,ID(I+1),ID(J+1),NAME(KK),NAME(KK+1)\r\n  160 FORMAT (A23,' 6536, MANUAL CONNECTION DATA IS ATTEMPTING TO ',\r\n     1       'CONNECT', /31X,'GRID POINTS',I9,5X,4HAND ,I8, /31X,\r\n     2       'WHICH ARE BOTH CONTAINED IN PSEUDOSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n  170 CALL ENCODE (ID(1))\r\n      IO(1) = ID(1)\r\n      ISUM  = 0\r\n      DO 180 I = 1,NSS\r\n      IF (ID(I+1) .EQ. 0) GO TO 180\r\n      IF (ID(I+1) .NE. 0) ISUM = ISUM + 2**(IS(I)-1)\r\n      M = 2 + IS(I)\r\n      IO(M) = IC(I)*1000000 + ID(I+1)\r\n  180 CONTINUE\r\n      IO(2) = -1*ISUM\r\n      NWD   = 2 + NPSUB\r\n      CALL WRITE (SCR1,IO,NWD,1)\r\n      IF (.NOT.PRINT .OR. IDRY.EQ.-2) GO TO 200\r\n      CALL BITPAT (IO(1),IBITS)\r\n      CALL BITPAT (IABS(IO(2)),JBITS)\r\n      CALL PAGE2 (1)\r\n      WRITE (OUTT,190) (IBITS(KDH),KDH=1,2),(JBITS(KDH),KDH=1,2),\r\n     1                 (IO(KDH+2),KDH=1,NPSUB)\r\n  190 FORMAT (16X,A4,A2,6X,A4,A3,2X,7(3X,I8))\r\n  200 CONTINUE\r\n      GO TO 100\r\n  210 CONTINUE\r\n      GO TO 400\r\nC\r\n  300 IMSG = -2\r\n      GO TO 330\r\n  310 IMSG = -3\r\n      GO TO 330\r\n  320 IMSG = -1\r\n  330 CALL MESAGE (IMSG,IFILE,AAA)\r\n  400 CALL CLOSE  (SCR1,2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bdat02.f",
    "content": "      SUBROUTINE BDAT02\r\nC\r\nC     THIS SUBROUTINE PROCESSES CONCT BULK DATA AND WRITES CONNECTION\r\nC     ENTRIES IN TERMS OF CODED GRID POINT ID NUMBERS ON SCR1\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TDAT,PRINT\r\n      INTEGER         SCR1,OUTT,BUF1,BUF2,CONCT(2),FLAG,GEOM4,ID(2),\r\n     1                COMP,NAMS(4),IO(9),AAA(2),CONSET,ANDF,RSHIFT,COMBO\r\n      DIMENSION       IBITS(32),JBITS(32),NAME(14),IHD(16)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /CMBFND/ INAM(2),IERR\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    AAA   / 4HBDAT,4H02       / , CONCT  / 210,2  /\r\n      DATA    IHD   / 4H  SU , 4HMMAR , 4HY OF , 4H CON , 4HNECT ,\r\n     1                4HION  , 4HENTR , 4HIES  , 4HSPEC , 4HIFIE ,\r\n     2                4HD BY , 4H CON , 4HCT   , 4HBULK , 4H DAT ,\r\n     3                4HA    /\r\n      DATA    IBLNK / 4H     /\r\nC\r\n      DO 10 I = 1,96\r\n      IHEAD(I) = IBLNK\r\n   10 CONTINUE\r\n      J = 1\r\n      DO 20 I = 73,88\r\n      IHEAD(I) = IHD(J)\r\n   20 J = J + 1\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,3),1) .EQ. 1) PRINT = .TRUE.\r\n      NP2 = 2*NPSUB\r\n      DO 30 I = 1,NP2,2\r\n      J = I/2 + 1\r\n      NAME(I  ) = COMBO(J,1)\r\n      NAME(I+1) = COMBO(J,2)\r\n   30 CONTINUE\r\n      IFILE = SCR1\r\n      CALL OPEN (*220,SCR1,Z(BUF2),3)\r\n      CALL LOCATE (*180,Z(BUF1),CONCT,FLAG)\r\n      IFILE = GEOM4\r\n   40 CALL READ (*200,*170,GEOM4,ID,1,0,N)\r\n      IF (ID(1) .EQ. CONSET) GO TO 60\r\n      CALL READ (*200,*210,GEOM4,ID,-5,0,N)\r\n   50 CALL READ (*200,*210,GEOM4,ID,2,0,N)\r\n      IF (ID(1)+ID(2) .NE. -2) GO TO 50\r\n      GO TO 40\r\n   60 CALL READ (*200,*210,GEOM4,COMP,1,0,N)\r\n      IF (.NOT.PRINT) GO TO 80\r\n      CALL PAGE\r\n      CALL PAGE2 (6)\r\n      WRITE  (OUTT,70) (NAME(KDH),KDH=1,NP2)\r\n   70 FORMAT (/24X,74HNOTE  GRID POINT ID NUMBERS HAVE BEEN CODED TO THE\r\n     1 COMPONENT SUBSTRUCTURE ,/30X,75HWITHIN A GIVEN PSEUDOSTRUCTURE BY\r\n     2 - 1000000*COMPONENT NO. + ACTUAL GRID ID., //15X,22HCONNECTED   C\r\n     3ONNECTION,23X,33HGRID POINT ID FOR PSEUDOSTRUCTURE/18X,3HDOF,9X,\r\n     44HCODE,3X,7(3X,2A4)/)\r\n   80 CONTINUE\r\n      TDAT(2) = .TRUE.\r\n      CALL ENCODE (COMP)\r\n      CALL READ (*200,*210,GEOM4,NAMS,4,0,N)\r\n      CALL FINDER (NAMS(1),IS1,IC1)\r\n      IF (IERR .NE. 1) GO TO 90\r\n      WRITE (OUTT,100) UFM,NAMS(1),NAMS(2)\r\n      IDRY = -2\r\n   90 CONTINUE\r\n      CALL FINDER (NAMS(3),IS2,IC2)\r\n      IF (IERR .NE. 1) GO TO 110\r\n      WRITE (OUTT,100) UFM,NAMS(3),NAMS(4)\r\n      IDRY = -2\r\n  100 FORMAT (A23,' 6523, THE BASIC SUBSTRUCTURE ',2A4, /30X,\r\n     1       'REFERED TO BY A CONCT  BULK DATA CARD CAN NOT BE FOUND ',\r\n     2       'IN THE PROBLEM TABLE OF CONTENTS.')\r\n  110 CALL READ (*200,*210,GEOM4,ID,2,0,N)\r\nC\r\n      IF (ID(1)+ID(2) .EQ. -2) GO TO 40\r\n      IF (IS1 .NE. IS2) GO TO 130\r\n      KK = 2*IS1 - 1\r\n      WRITE  (OUTT,120) UFM,ID(1),ID(2),NAME(KK),NAME(KK+1)\r\n  120 FORMAT (A23,' 6536, MANUAL CONNECTION DATA IS ATTEMPTING TO ',\r\n     1       'CONNECT', /31X,'GRID POINTS',I9,5X,4HAND ,I8, /31X,\r\n     2       'WHICH ARE BOTH CONTAINED IN PSEUDOSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n  130 CONTINUE\r\n      DO 140 I = 1,9\r\n  140 IO(I) = 0\r\n      IO(1) = COMP\r\n      IO(2) = 2**(IS1-1) + 2**(IS2-1)\r\n      IO(2+IS1) = IC1*1000000 + ID(1)\r\n      IO(2+IS2) = IC2*1000000 + ID(2)\r\n      NWD = 2 + NPSUB\r\n      CALL WRITE (SCR1,IO,NWD,1)\r\n      IF (.NOT.PRINT .OR. IDRY.EQ.-2) GO TO 160\r\n      CALL BITPAT (IO(1),IBITS)\r\n      CALL BITPAT (IO(2),JBITS)\r\n      CALL PAGE2 (1)\r\n      WRITE (OUTT,150) (IBITS(KDH),KDH=1,2),(JBITS(KDH),KDH=1,2),\r\n     1                 (IO(KDH+2),KDH=1,NPSUB)\r\n  150 FORMAT (16X,A4,A2,6X,A4,A3,2X,7(3X,I8))\r\n  160 CONTINUE\r\n      GO TO 110\r\n  170 CONTINUE\r\n  180 CALL CLOSE (SCR1,1)\r\n      RETURN\r\nC\r\n  200 IMSG = -2\r\n      GO TO 230\r\n  210 IMSG = -3\r\n      GO TO 230\r\n  220 IMSG = -1\r\n  230 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bdat03.f",
    "content": "      SUBROUTINE BDAT03\r\nC\r\nC     THIS SUBROUTINE PROCESSES TRANS BULK DATA, GENERATES THE\r\nC     TRANSFORMATION MATRIX, AND WRITES TO SCBDAT.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TDAT\r\n      INTEGER         BUF1,TRANS(2),GEOM4,COMBO,AAA(2),OUTT,BUF2,BUF4,\r\n     1                ANDF,RSHIFT,IHD(10),Z\r\n      DIMENSION       TEMP(9),XAX(3),YAX(3),ZAX(3),V2(3),OUT(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /SYSTEM/ XXX,IOT,JUNK(6),NLPP,JUNK1(2),LINE,JUNK2(2),\r\n     1                IDAT(3)\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    IHD   / 4H  SU , 4HMMAR , 4HY OF , 4H PRO  , 4HCESS    ,\r\n     1                4HED T , 4HRANS , 4H BUL , 4HK DA  , 4HTA      /\r\n      DATA    TRANS / 310,3 /,    AAA / 4HBDAT,4H03   /  ,\r\n     1        IBLNK / 4H    /\r\nC\r\n      NGTRN = Z(BUF4)\r\n      INUM  = 1\r\n      IERR  = 0\r\n      DO 10 I = 1,7\r\n      DO 10 J = 1,3\r\n      ORIGIN(I,J) = 0.0\r\n   10 CONTINUE\r\n      DO 20 I = 1,96\r\n      IHEAD(I) = IBLNK\r\n   20 CONTINUE\r\n      J = 1\r\n      DO 30 I = 76,85\r\n      IHEAD(I) = IHD(J)\r\n   30 J = J + 1\r\n      CALL LOCATE (*220,Z(BUF1),TRANS(1),FLAG)\r\n      IFILE = GEOM4\r\n   40 CALL READ (*300,*130,GEOM4,ID,1,0,N)\r\n      DO 50 I = 1,NPSUB\r\n      IT = 1\r\n      IF (ID .EQ. COMBO(I,3)) GO TO 80\r\n   50 CONTINUE\r\n      IF (NGTRN .EQ. 0) GO TO 70\r\n      DO 60 I = 1,NGTRN\r\n      IT = 2\r\n      IF (ID .EQ. Z(BUF4+I)) GO TO 80\r\n   60 CONTINUE\r\n   70 CONTINUE\r\n      CALL READ (*300,*310,GEOM4,TEMP,-9,0,NNN)\r\n      GO TO 40\r\n   80 TDAT(3) = .TRUE.\r\n      IF (IT .EQ. 1) COMBO(I,3) = -COMBO(I,3)\r\n      IF (IT .EQ. 2)  Z(BUF4+I) = -Z(BUF4+I)\r\n      CALL READ (*300,*310,GEOM4,TEMP,9,0,NNN)\r\n      IF (IT .NE. 1) GO TO 100\r\n      DO 90 LL = 1,3\r\n      ORIGIN(I,LL) = TEMP(LL)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\nC\r\nC     DEFINE Z-AXIS\r\nC\r\n      ZAX(1) = TEMP(4) - TEMP(1)\r\n      ZAX(2) = TEMP(5) - TEMP(2)\r\n      ZAX(3) = TEMP(6) - TEMP(3)\r\nC\r\nC     DEFINE Y-AXIS\r\nC\r\n      V2(1)  = TEMP(7) - TEMP(1)\r\n      V2(2)  = TEMP(8) - TEMP(2)\r\n      V2(3)  = TEMP(9) - TEMP(3)\r\n      YAX(1) = ZAX(2)*V2(3) - ZAX(3)*V2(2)\r\n      YAX(2) = ZAX(3)*V2(1) - ZAX(1)*V2(3)\r\n      YAX(3) = ZAX(1)*V2(2) - ZAX(2)*V2(1)\r\nC\r\nC     DEFINE X-AXIS\r\nC\r\n      XAX(1) = YAX(2)*ZAX(3) - ZAX(2)*YAX(3)\r\n      XAX(2) = YAX(3)*ZAX(1) - ZAX(3)*YAX(1)\r\n      XAX(3) = YAX(1)*ZAX(2) - ZAX(1)*YAX(2)\r\nC\r\nC     CHANGE TO UNIT VECTORS\r\nC\r\n      ZMAG = SQRT(ZAX(1)**2 + ZAX(2)**2 + ZAX(3)**2)\r\n      YMAG = SQRT(YAX(1)**2 + YAX(2)**2 + YAX(3)**2)\r\n      XMAG = SQRT(XAX(1)**2 + XAX(2)**2 + XAX(3)**2)\r\n      DO 110 I = 1,3\r\n      ZAX(I) = ZAX(I)/ZMAG\r\n      YAX(I) = YAX(I)/YMAG\r\n      XAX(I) = XAX(I)/XMAG\r\n  110 CONTINUE\r\n      CALL WRITE (SCBDAT,ID,1,0)\r\n      CALL WRITE (SCBDAT, 1,1,0)\r\n      CALL WRITE (SCBDAT,TEMP(1),3,0)\r\n      OUT(1) = XAX(1)\r\n      OUT(2) = YAX(1)\r\n      OUT(3) = ZAX(1)\r\n      OUT(4) = XAX(2)\r\n      OUT(5) = YAX(2)\r\n      OUT(6) = ZAX(2)\r\n      OUT(7) = XAX(3)\r\n      OUT(8) = YAX(3)\r\n      OUT(9) = ZAX(3)\r\n      CALL WRITE (SCBDAT,OUT,9,0)\r\n      IF (ANDF(RSHIFT(IPRINT,6),1) .NE. 1) GO TO 120\r\n      INUM = INUM + 1\r\n      IF (MOD(INUM,2) .EQ. 0) CALL PAGE\r\n      WRITE (OUTT,430) ID\r\n      WRITE (OUTT,440) (TEMP(I),I=1,3)\r\n      WRITE (OUTT,420) ( OUT(I),I=1,9)\r\n  120 CONTINUE\r\n      GO TO 40\r\n  130 CONTINUE\r\nC\r\nC     PROCESS REPEATED GTRAN IDS\r\nC\r\n      IF (NGTRN .LT. 2) GO TO 160\r\n      NGTRN1 = NGTRN - 1\r\n      DO 150 I = 1,NGTRN1\r\n      IF (Z(BUF4+I) .GE. 0) GO TO 150\r\n      KK = I + 1\r\n      DO 140 J = KK,NGTRN\r\n      IF (IABS(Z(BUF4+I)) .EQ. Z(BUF4+J)) Z(BUF4+J) = -Z(BUF4+J)\r\n  140 CONTINUE\r\n  150 CONTINUE\r\n  160 NPM1 = NPSUB - 1\r\n      DO 190 I = 1,NPM1\r\n      IF (COMBO(I,3) .GE. 0) GO TO 190\r\n      KK = I + 1\r\n      DO 180 J = KK,NPSUB\r\n      IF (IABS(COMBO(I,3)) .NE. COMBO(J,3)) GO TO 180\r\n      COMBO(J,3) = -COMBO(J,3)\r\n      DO 170 JDH = 1,3\r\n      ORIGIN(J,JDH) = ORIGIN(I,JDH)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC\r\nC     TEST TO SEE THAT ALL TRANS HAVE BEEN FOUND\r\nC\r\n      DO 200 I = 1,NPSUB\r\n      IF (COMBO(I,3) .LE. 0) GO TO 200\r\n      IERR = 1\r\n      WRITE (OUTT,400) UFM,COMBO(I,3)\r\n  200 CONTINUE\r\n      IF (NGTRN .EQ. 0) GO TO 220\r\n      DO 210 I = 1,NGTRN\r\n      IF (Z(BUF4+I) .LE. 0) GO TO 210\r\n      IERR = 1\r\n      WRITE (OUTT,410) UFM,Z(BUF4+I)\r\n  210 CONTINUE\r\n  220 CALL EOF (SCBDAT)\r\n      CALL WRITE (SCBDAT,ID,1,1)\r\n      CALL CLOSE (SCBDAT,1)\r\n      DO 230 I = 1,NPSUB\r\n      COMBO(I,3) = IABS(COMBO(I,3))\r\n  230 CONTINUE\r\n      IF (IERR .EQ. 1) IDRY = -2\r\n      RETURN\r\nC\r\n  300 IMSG = -2\r\n      GO TO 320\r\n  310 IMSG = -3\r\n  320 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\nC\r\n  400 FORMAT (A23,' 6511, THE REQUESTED TRANS SET ID',I9,\r\n     1       ' HAS NOT BEEN DEFINED BY BULK DATA.')\r\n  410 FORMAT (A23,' 6513, THE TRANS SET ID',I9,' REQUESTED BY A GTRAN ',\r\n     1       'BULK DATA CARD HAS NOT BEEN DEFINED.')\r\n  420 FORMAT (43X,5H*****,42X,5H*****, /3(43X,1H*,50X,1H*, /43X,1H*,1X,\r\n     1       3E15.6,4X,1H*,/),43X,1H*,50X,1H*, /43X,5H*****,42X,5H*****)\r\n  430 FORMAT (//48X,34HTRANS SET IDENTIFICATION NUMBER = ,I8)\r\n  440 FORMAT ( /50X,37HCOORDINATES OF ORIGIN IN BASIC SYSTEM ,\r\n     1         /45X,3E15.6, //58X,21HTRANSFORMATION MATRIX/)\r\n      END\r\n"
  },
  {
    "path": "mis/bdat04.f",
    "content": "      SUBROUTINE BDAT04\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE RELES BULK DATA.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         NAME,TDAT,PRINT,PAGER\r\n      INTEGER         SCR2,BUF2,BUF1,RELES(2),FLAG,GEOM4,ID(2),AAA(2),\r\n     1                CONSET,IP(6),ICC(6),ANDF,SCBDAT,RSHIFT,IHD(96),\r\n     2                OUTT,IBAS(2)\r\n      DIMENSION       IBITS(32),JBITS(32),KBITS(32)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,\r\n     1                SCTOC,GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /CMBFND/ INAM(2),IERR\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /SYSTEM/ XXX,IOT,JUNK(6),IPAGE,LINE,ITLINE,MAXLIN,IDAT(3)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    IHD   / 11*4H    ,4H  SU,4HMMAR,4HY OF,4H PRO,4HCESS,\r\n     1                4HED R,4HELES,4H BUL,4HK DA,4HTA  ,18*4H    ,\r\n     2                4H   B,4HASIC,2*4H    ,4H GRI,4HD   ,4H     ,\r\n     3                4HREQU,4HESTE,4HD   ,4H  IN,4HTERN,  4HAL   ,\r\n     4                4H   C,4HURRE,4HNT  ,4H  DO,4HF TO,  4H BE  ,\r\n     5                13*4H    ,4HSUBS,4HTRUC,4HTURE,4H   P,4HOINT,\r\n     6                4H ID ,4H    ,4H REL,4HEASE,4H    ,4H  PO,4HINT ,\r\n     7                4HNO. ,4H    ,4H DOF,4H    ,4H   R,4HELEA,4HSED ,\r\n     8                6*4H       /\r\n      DATA    RELES / 410,4      / , AAA / 4HBDAT,4H04    /\r\nC\r\n      DO 10 I = 1,96\r\n      IHEAD(I) = IHD(I)\r\n   10 CONTINUE\r\n      PAGER = .TRUE.\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,8),1) .EQ. 1) PRINT = .TRUE.\r\n      IFILE = SCBDAT\r\n      CALL OPEN (*200,SCBDAT,Z(BUF2),0)\r\n      CALL SKPFIL (SCBDAT,3)\r\n      CALL CLOSE  (SCBDAT,2)\r\n      CALL OPEN (*200,SCBDAT,Z(BUF2),3)\r\n      IFILE = SCR2\r\n      CALL LOCATE (*170,Z(BUF1),RELES,FLAG)\r\n      IFILE = GEOM4\r\n   20 CALL READ (*210,*160,GEOM4,ID,1,0,N)\r\n      IF (ID(1) .EQ. CONSET) GO TO 40\r\n   30 CALL READ (*210,*220,GEOM4,ID,2,0,N)\r\n      IF (ID(1)+ID(2) .NE. -2) GO TO 30\r\n      GO TO 20\r\n   40 NAME = .TRUE.\r\n      IF (PAGER .AND. PRINT) CALL PAGE\r\n      PAGER = .FALSE.\r\n      TDAT(4) = .TRUE.\r\n   50 CALL READ (*210,*220,GEOM4,ID,2,0,N)\r\n      IF (ID(1)+ID(2) .NE. -2) GO TO 60\r\n      CALL WRITE (SCBDAT,ID,0,1)\r\n      GO TO 20\r\n   60 IF (.NOT.NAME) GO TO 100\r\n      CALL FINDER (ID,IS,IC)\r\n      IBAS(1) = ID(1)\r\n      IBAS(2) = ID(2)\r\n      IF (IERR .NE. 1) GO TO 90\r\n      WRITE  (OUTT,70) UFM,(ID(K),K=1,2)\r\n   70 FORMAT (A23,' 6517, THE BASIC SUBSTRUCTURE  ',2A4, /30X,\r\n     1       'REFERED TO BY A RELES  BULK DATA CARD CAN NOT BE FOUND ',\r\n     2       'IN THE PROBLEM TABLE OF CONTENTS.')\r\n      IDRY = -2\r\n   80 CALL READ (*210,*220,GEOM4,ID,2,0,N)\r\n      IF (ID(1)+ID(2) .NE. -2) GO TO 80\r\n      GO TO 20\r\n   90 CONTINUE\r\n      CALL WRITE (SCBDAT,IS,1,0)\r\n      NAME = .NOT.NAME\r\n      GO TO 50\r\n  100 CALL FNDGRD (IS,IC,ID(1),IP,ICC,N)\r\n      IF (IERR .NE. 1) GO TO 120\r\n      WRITE  (OUTT,110) UFM,ID(1),INAM\r\n  110 FORMAT (A23,' 6515, GRID POINT',I10,' BASIC SUBSTRUCTURE ',2A4,\r\n     1       ' DOES NOT EXIST.')\r\n      IDRY = -2\r\n      GO TO 50\r\n  120 CALL ENCODE (ID(2))\r\n      CALL BITPAT (ID(2),IBITS)\r\n      DO 150 I = 1,N\r\n      ICCC = ANDF(ID(2),ICC(I))\r\n      CALL BITPAT (ICCC,JBITS)\r\n      ICC(I) = ANDF(ICC(I),63)\r\n      CALL BITPAT (ICC(I),KBITS)\r\n      IF (ICCC .EQ. 0) GO TO 150\r\n      IF (.NOT.PRINT ) GO TO 140\r\n      WRITE (OUTT,130) IBAS,ID(1),IBITS(1),IBITS(2),IP(I),KBITS(1),\r\n     1                 KBITS(2),JBITS(1),JBITS(2)\r\n  130 FORMAT (35X,2A4,5X,I8,7X,A4,A2,6X,I8,6X,A4,A2,6X,A4,A2)\r\n  140 CONTINUE\r\n      CALL WRITE (SCBDAT,IP(I),1,0)\r\n      CALL WRITE (SCBDAT,ICCC, 1,0)\r\n  150 CONTINUE\r\n      GO TO 50\r\n  160 CONTINUE\r\n  170 CALL CLOSE (SCBDAT,1)\r\n      RETURN\r\nC\r\n  200 IMSG = -1\r\n      GO TO 230\r\n  210 IMSG = -2\r\n      GO TO 230\r\n  220 IMSG = -3\r\n  230 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bdat05.f",
    "content": "      SUBROUTINE BDAT05\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE GNEW BULK DATA\r\nC\r\n      LOGICAL         TDAT\r\n      INTEGER         SCR2,BUF3,SCBDAT,BUF2,BUF1,GNEW(2),FLAG,GEOM4,\r\n     1                CONSET,AAA(2),Z,OUTT,SCORE\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,\r\n     1                SCTOC,GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    GNEW  / 1410,14 / , AAA/ 4HBDAT,4H05   /\r\nC\r\n      IFILE = SCR2\r\n      CALL OPEN (*30,SCR2,Z(BUF3),1)\r\n      IFILE = GEOM4\r\n      CALL LOCATE (*20,Z(BUF1),GNEW,FLAG)\r\n      WRITE  (OUTT,10) UFM\r\n 10   FORMAT (A23,' 6532, THE GNEW OPTION IS NOT CURRENTLY AVAILABLE.')\r\n      IDRY = -2\r\n      RETURN\r\nC\r\n 20   CALL EOF (SCBDAT)\r\n      CALL CLOSE (SCR2,1)\r\n      RETURN\r\nC\r\n 30   IMSG = -1\r\n      CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bdat06.f",
    "content": "      SUBROUTINE BDAT06\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE GTRAN BULK DATA\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         PRINT,TDAT\r\nCWKBI 8/94 ALPHA-VMS\r\n      INTEGER         GEOM4, SCR1\r\n      INTEGER         SCR2,BUF3,SCBDAT,BUF2,BUF1,GTRAN(2),FLAG,ID(5),\r\n     1                COMBO,SCORE,Z,AAA(2),OUTT,BUF4,ANDF,RSHIFT,IHD(96)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,\r\n     1                SCTOC,GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /CMBFND/ INAM(2),IERR\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA   GTRAN  / 1510,15 / , AAA/ 4HBDAT,4H06   /\r\n      DATA   IHD  / 11*4H    ,4H  SU,4HMMAR,4HY OF,4H PRO,4HCESS,4HED G,\r\n     1       4HTRAN,4H BUL,4HK DA,4HTA  ,19*4H    ,4H PSE,4HUDO-,4H    ,\r\n     2       4H    ,4H COM,4HPONE,4HNT  ,4H    ,4H   T,4HRANS,2*4H     ,\r\n     3       4HGRID,4H    ,4HREFE,4HRENC,4HE   ,14*4H    ,4H  ST,4HRUCT,\r\n     4       4HURE ,4HNO. ,4H   S,4HTRUC,4HTURE,4H NO.,4H    ,4H  SE   ,\r\n     5       4HT ID,2*4H    ,4H ID ,4H    ,4HTRAN,4HS  I,4HD   ,7*2H   /\r\nC\r\n      IFILE = SCR1\r\n      KK    = 0\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,5),1) .EQ. 1) PRINT = .TRUE.\r\n      DO 10 I = 1,96\r\n      IHEAD(I) = IHD(I)\r\n   10 CONTINUE\r\n      CALL OPEN (*100,SCR2,Z(BUF3),1)\r\n      IFILE = SCBDAT\r\n      CALL LOCATE (*80,Z(BUF1),GTRAN,FLAG)\r\n      IF (PRINT) CALL PAGE\r\n      IFILE = GEOM4\r\n   20 CALL READ (*110,*60,GEOM4,ID,1,0,N)\r\n      DO 30 I = 1,NPSUB\r\n      IF (ID(1) .EQ. COMBO(I,3)) GO TO 40\r\n   30 CONTINUE\r\n      CALL READ (*110,*120,GEOM4,ID,-4,0,N)\r\n      GO TO 20\r\n   40 TDAT(6) = .TRUE.\r\n      KK = KK + 1\r\n      CALL READ (*110,*120,GEOM4,ID(2),4,0,N)\r\n      CALL FINDER (ID(2),IS,IC)\r\n      IF (IERR .NE. 1) GO TO 50\r\n      WRITE (OUTT,210) UFM,ID(2),ID(3)\r\n      IDRY = -2\r\n   50 CONTINUE\r\n      IF (PRINT) CALL PAGE2 (1)\r\n      IF (PRINT) WRITE (OUTT,200) IS,IC,ID(1),ID(4),ID(5)\r\n      ID(3) = ID(1)\r\n      ID(1) = IS\r\n      ID(2) = IC\r\n      ID(4) = IC*1000000 + ID(4)\r\n      Z(BUF4+KK) = ID(5)\r\n      CALL WRITE (SCR2,ID,5,0)\r\n      GO TO 20\r\n   60 CALL WRITE (SCR2,ID,0,1)\r\n      CALL CLOSE (SCR2,1)\r\n      IF (.NOT.TDAT(6)) GO TO 80\r\n      IFILE = SCR2\r\n      CALL OPEN (*100,SCR2,Z(BUF3),2)\r\n      CALL READ (*110,*70,SCR2,Z(SCORE),LCORE,0,NN)\r\n      GO TO 130\r\n   70 CALL SORT (0,0,5,1,Z(SCORE),NN)\r\n      CALL WRITE (SCBDAT,Z(SCORE),NN,1)\r\n   80 CALL EOF (SCBDAT)\r\n      Z(BUF4) = KK\r\n      CALL CLOSE (SCR2,1)\r\n      IF (PRINT) CALL PAGE2 (3)\r\n      IF (PRINT) WRITE (OUTT,220)\r\n      RETURN\r\nC\r\n  100 IMSG = -1\r\n      GO TO 140\r\n  110 IMSG = -2\r\n      GO TO 140\r\n  120 IMSG = -3\r\n      GO TO 140\r\n  130 IMSG = -8\r\n  140 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\nC\r\n  200 FORMAT (36X,I1,14X,I5,8X,I8,4X,I8,4X,I8)\r\n  210 FORMAT (A23,' 6530, THE BASIC SUBSTRUCTURE ',2A4, /30X,\r\n     1       'REFERED TO BY A GTRAN BULK DATA CARD WHICH CANNOT BE ',\r\n     2       'FOUNDD IN THE PROBLEM TABLE OF CONTENTS.')\r\n  220 FORMAT (/5X,'NOTE - THE PSEUDOSTRUCTURE AND COMPONENT NUMBERS RE',\r\n     1       'FER TO THEIR POSITIONS IN THE PROBLEM TABLE OF CONTENTS.')\r\n      END\r\n"
  },
  {
    "path": "mis/betrns.f",
    "content": "      SUBROUTINE BETRNS (TBE,GG,KFLAG,ELID)\r\nC     &    ENTRY BETRND (TBD,GD,KFLAG,ELID)\r\nC\r\nC*****\r\nC     SUBROUTINE WHICH CALCULATES THE TBE TRANSFORMATION\r\nC     MATRIX WHICH RELATES THE ELEMENT TO THE BASIC C.S.\r\nC\r\nC     GG(9) OR GD(9) IS A 9X1 ARRAY WHICH STORES THE GRID PT. COORD.\r\nC     X(G1),Y(G1),Z(G1),X(G2),Y(G2),Z(G2),X(G3),Y(G3),Z(G3)\r\nC     GG(1),GG(2),GG(3),GG(4),GG(5),GG(6),GG(7),GG(8),GG(9), OR\r\nC     GD(1),GD(2),GD(3),GD(4),GD(5),GD(6),GD(7),GD(8),GD(9)\r\nC\r\nC     KFLAG = 0, TBE (OR TBD) IS OUTPUT WITHOUT TRANSPOSING\r\nC           = 1, TBE (OR TBD) IS OUTPUT AFTER IT IS TRANSPOSED\r\nC*****\r\nC\r\n      INTEGER          ELID\r\n      REAL             GG(9),TBE(9),RSSTR(3),RSTR(3),R12(3),RV(3),LEN\r\n      DOUBLE PRECISION GD(9),TBD(9),DSSTR(3),DSTR(3),D12(3),DV(3),\r\n     1                 DTEMP,LED\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC*****\r\nC     CALCULATE APPROPRIATE LENGTH QUANTITIES\r\nC*****\r\n      LEN = SQRT((GG(4)-GG(1))**2 + (GG(5)-GG(2))**2\r\n     1          +(GG(6)-GG(3))**2)\r\n      IF (LEN .EQ. 0.0) GO TO 40\r\nC*****\r\nC     CALCULATE APPROPRIATE VECTOR QUANTITIES\r\nC*****\r\n      R12(1) = (GG(4)-GG(1))/LEN\r\n      R12(2) = (GG(5)-GG(2))/LEN\r\n      R12(3) = (GG(6)-GG(3))/LEN\r\n      RV(1)  = (GG(7)-GG(1))\r\n      RV(2)  = (GG(8)-GG(2))\r\n      RV(3)  = (GG(9)-GG(3))\r\nC*****\r\nC     CALCULATE ENTRIES INTO THE TRANSFORMATION MATRIX\r\nC*****\r\n      RSTR(1) = (R12(2)*RV(3) - R12(3)*RV(2))\r\n      RSTR(2) = (R12(3)*RV(1) - R12(1)*RV(3))\r\n      RSTR(3) = (R12(1)*RV(2) - R12(2)*RV(1))\r\nC\r\n      LEN = SQRT (RSTR(1)**2 + RSTR(2)**2 + RSTR(3)**2)\r\n      IF (LEN .EQ. 0.0) GO TO 40\r\n      DO 10 I=1,3\r\n   10 RSTR(I) = RSTR(I)/LEN\r\nC\r\n      RSSTR(1)= (RSTR(2)*R12(3) - RSTR(3)*R12(2))\r\n      RSSTR(2)= (RSTR(3)*R12(1) - RSTR(1)*R12(3))\r\n      RSSTR(3)= (RSTR(1)*R12(2) - RSTR(2)*R12(1))\r\n      TBE(1)  = R12(1)\r\n      TBE(2)  = R12(2)\r\n      TBE(3)  = R12(3)\r\n      TBE(4)  = RSSTR(1)\r\n      TBE(5)  = RSSTR(2)\r\n      TBE(6)  = RSSTR(3)\r\n      TBE(7)  = RSTR(1)\r\n      TBE(8)  = RSTR(2)\r\n      TBE(9)  = RSTR(3)\r\n      IF (KFLAG .EQ. 0) GO TO 30\r\nC*****\r\nC     TRANSPOSE TBE(9) SINCE KFLAG.NE.ZERO\r\nC*****\r\n      TEMP   = TBE(2)\r\n      TBE(2) = TBE(4)\r\n      TBE(4) = TEMP\r\n      TEMP   = TBE(3)\r\n      TBE(3) = TBE(7)\r\n      TBE(7) = TEMP\r\n      TEMP   = TBE(6)\r\n      TBE(6) = TBE(8)\r\n      TBE(8) = TEMP\r\n      GO TO 30\r\nC\r\n      ENTRY BETRND (TBD,GD,KFLAG,ELID)\r\nC     ================================\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC*****\r\nC     CALCULATE APPROPRIATE LENGTH QUANTITIES\r\nC*****\r\n      LED = DSQRT((GD(4)-GD(1))**2 + (GD(5)-GD(2))**2\r\n     1           +(GD(6)-GD(3))**2)\r\n      IF (LED .EQ. 0.0D+0) GO TO 40\r\n      D12(1) = (GD(4)-GD(1))/LED\r\n      D12(2) = (GD(5)-GD(2))/LED\r\n      D12(3) = (GD(6)-GD(3))/LED\r\n      DV(1)  = (GD(7)-GD(1))\r\n      DV(2)  = (GD(8)-GD(2))\r\n      DV(3)  = (GD(9)-GD(3))\r\nC*****\r\nC     CALCULATE ENTRIES INTO THE TRANSFORMATION MATRIX\r\nC*****\r\n      DSTR(1) = (D12(2)*DV(3) - D12(3)*DV(2))\r\n      DSTR(2) = (D12(3)*DV(1) - D12(1)*DV(3))\r\n      DSTR(3) = (D12(1)*DV(2) - D12(2)*DV(1))\r\nC\r\n      LED = DSQRT(DSTR(1)**2 + DSTR(2)**2 + DSTR(3)**2)\r\n      IF (LED .EQ. 0.0D+0) GO TO 40\r\n      DO 20 I=1,3\r\n   20 DSTR(I) = DSTR(I)/LED\r\nC\r\n      DSSTR(1)= (DSTR(2)*D12(3) - DSTR(3)*D12(2))\r\n      DSSTR(2)= (DSTR(3)*D12(1) - DSTR(1)*D12(3))\r\n      DSSTR(3)= (DSTR(1)*D12(2) - DSTR(2)*D12(1))\r\n      TBD(1)  = D12(1)\r\n      TBD(2)  = D12(2)\r\n      TBD(3)  = D12(3)\r\n      TBD(4)  = DSSTR(1)\r\n      TBD(5)  = DSSTR(2)\r\n      TBD(6)  = DSSTR(3)\r\n      TBD(7)  = DSTR(1)\r\n      TBD(8)  = DSTR(2)\r\n      TBD(9)  = DSTR(3)\r\n      IF (KFLAG .EQ. 0) GO TO 30\r\nC*****\r\nC     TRANSPOSE TBD(9) SINCE KFLAG.NE.ZERO\r\nC*****\r\n      DTEMP  = TBD(2)\r\n      TBD(2) = TBD(4)\r\n      TBD(4) = DTEMP\r\n      DTEMP  = TBD(3)\r\n      TBD(3) = TBD(7)\r\n      TBD(7) = DTEMP\r\n      DTEMP  = TBD(6)\r\n      TBD(6) = TBD(8)\r\n      TBD(8) = DTEMP\r\n   30 RETURN\r\nC*****\r\nC     ZERO LENGTH ERROR, BAD GEOMETRY\r\nC*****\r\n   40 CALL MESAGE (-30,31,ELID)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bfsmat.f",
    "content": "      SUBROUTINE BFSMAT (ND,NE,NB,NP,NTP,LENGTH,NTOTAL,SCR1,JF,JL,NAS,\r\n     1                   FMACH,YB,ZB,YS,ZS,X,DELX,EE,XIC,SG,CG,AR,RIA,\r\n     2                   NBEA1,NBEA2,NASB,NSARAY,NCARAY,BFS,AVR,CBAR,\r\n     3                   A0,XIS1,XIS2,KR,NSBEA,NT0)\r\nC\r\nC     NOTE:\r\nC     A JUMP (VIA AN ASSIGN STATEMENT) TO 200 AND A JUMP TO 1100 (ALSO\r\nC     VIA AN ASSIGN STATEMENT), INTO THE MIDDLES OF SOME DO LOOPS, ARE\r\nC     ACCEPTABLE ANSI 77 FORTRAN. HOWEVER, IBM COMPILER MAY COMPLAIN.\r\nC     THIS PROBLEM IS NOW ELIMINATED (BY G.C. 9/89)\r\nC\r\nC\r\nC        ND         SYMMETRY FLAG\r\nC        NE         GROUND EFFECTS FLAG\r\nC        NB         NUMBER OF BODIES\r\nC        NP         NUMBER OF PANELS\r\nC        NTP        NUMBER OF LIFTING SURFACE BOXES\r\nC        NTOTAL     NTP + TOTAL NO. OF Y AND Z ORIENTED BODY ELEMENTS\r\nC        LENGTH     NTOTAL + THE TOTAL NUMBER OF Z- AND Y-ORIENTED\r\nC                   SLENDER BODY ELEMENTS\r\nC        SCR1       FILE FOR OUTPUT\r\nC        JF         ROW FOR FIRST ZY BODY\r\nC        JL         ROW FOR LAST  ZY BODY\r\nC        NAS        ARRAY CONTAINING THE NUMBER OF ASSOCIATED BODIES\r\nC                   FOR EACH PANEL\r\nC        FMACH      MACH NUMBER\r\nC        YB         ARRAY OF -Y- COORDINATES OF THE BODIES\r\nC        ZB         ARRAY OF -Z- COORDINATES OF THE BODIES\r\nC        YS         ARRAY OF -Y- COORDINATES OF STRIPS AND BODIES\r\nC        ZS         ARRAY OF -Z- COORDINATES OF STRIPS AND BODIES\r\nC        X          ARRAY OF 3/4 CHORD LOCATIONS OF BOXES AND\r\nC                            1/2 CHORD FOR BODY ELEMENTS\r\nC        DELX       ARRAY OF LENGTHS OF BOXES AND BODY ELEMENTS\r\nC        EE         ARRAY OF THE SEMI-WITH OF STRIPS\r\nC        XIC        ARRAY OF 1/4 CHORD COORDINATES OF BOXES\r\nC        SG         ARRAY OF SINE   OF STRIP DIHEDRAL ANGLE\r\nC        CG         ARRAY OF COSINE OF STRIP DIHEDRAL ANGLE\r\nC        AR         ARRAY OF RATIO OF MAJOR AXES OF BODIES\r\nC        RIA        ARRAY OF RADII OF BODY ELEMENTS\r\nC        NBEA1      ARRAY OF NUMBER OF BODY ELEMENTS PER BODY\r\nC        NBEA2      ARRAY OF THE BODY ORIENTATION FLAGS PER BODY\r\nC        NASB       ARRAY OF THE BODIES ASSOCIATED WITH PANELS\r\nC        NSARAY     ARRAY OF THE NUMBER OF STRIPS PER PANEL\r\nC        NCARAY     ARRAY OF THE NUMBER OF CHORDWISE DIV. PER PANEL\r\nC        BFS        WORK ARRAY FOR TEMPORARY STORAGE OF THE BFS COLS.\r\nC        AVR        ARRAY OF RADII OF BODIES\r\nC        CBAR       REFERENCE CHORD\r\nC        A0         ARRAY OF SLENDER BODY ELEMENT RADII\r\nC        XIS1       ARRAY OF SLENDER BODY ELEMENT LEADING  EDGE COORD.S\r\nC        XIS2       ARRAY OF SLENDER BODY ELEMENT TRAILING EDGE COORD.S\r\nC        KR         REDUCED FREQUENCY\r\nC        NSBEA      ARRAY OF THE NUMBER OF ELEMENTS PER SLENDER BODY\r\nC\r\n      LOGICAL    LAST\r\n      INTEGER    SCR1\r\n      REAL       KR\r\n      COMPLEX    BFS(LENGTH,2) , FWZ, FWY, EIKJ1 , EIKJ2\r\n      DIMENSION  YB(1), ZB(1), YS(1), ZS(1), X(1), DELX(1), EE(1),\r\n     1           XIC(1), SG(1), CG(1), AR(1), RIA(1), AVR(1), XIS1(1),\r\n     2           XIS2(1), A0(1), NAS(1), NASB(1), NBEA1(1), NBEA2(1) ,\r\n     3           NSBEA(1), NCARAY(1), NSARAY(1)\r\nC\r\nC\r\n      BETA2 = 1.0 - FMACH**2\r\n      ICOL  = 0\r\n      KSP   = 1\r\n      GO TO 3000\r\nC\r\n   50 CONTINUE\r\nC\r\nC     -Y- ORIENTED BODIES AS SENDING ELEMENTS\r\nC\r\n      SGS   =-1.0\r\n      CGS   = 0.0\r\n      NASD  = 0\r\n      IZYFLG= 3\r\n      ASSIGN 4010 TO IBODY\r\n      GO TO 1000\r\n  100 CONTINUE\r\nC\r\nC     - LIFTING SURF. BOXES AS SENDING ELEMENTS\r\nC\r\n      IF (NTP .LE. 0) GO TO 800\r\n      J     = 1\r\n      JP1   = J\r\n      IBOX  = 0\r\n      ISTRIP= 0\r\n      ISN   = 0\r\n      KSP   = 1\r\nC\r\nC     LOOP FOR -PANEL-\r\nC\r\n      DO 700 ISP = 1,NP\r\n      NS  = NSARAY(ISP)\r\n      NC  = NCARAY(ISP)\r\n      NS  = (NS-ISN) / NC\r\n      ISN = NSARAY(ISP)\r\n      NASD= NAS(ISP)\r\nC\r\nC     LOOP FOR -STRIP-\r\nC\r\n      DO 600 IS = 1,NS\r\n      ISTRIP= ISTRIP + 1\r\n      DYS   = YS(ISTRIP)\r\n      DZS   = ZS(ISTRIP)\r\n      SGS   = SG(ISTRIP)\r\n      CGS   = CG(ISTRIP)\r\n      WIDTH = 2.0 * EE(ISTRIP)\r\nC\r\nC     LOOP FOR -BOX-\r\nC\r\n      DO 500 IB = 1,NC\r\n      IBOX = IBOX + 1\r\n      DXS  = XIC(IBOX)\r\nC\r\n      ICOL = ICOL + 1\r\nC\r\n      CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,DXS,DYS,\r\n     1           DZS,NASD,NASB(KSP),KR,BETA2,CBAR,AVR,FWZ,FWY)\r\n      BFS(ICOL,1) = FWZ * (DXTE - DXLE)\r\n      BFS(ICOL,2) = FWY * (DXTE - DXLE)\r\n      BFS(ICOL,1) = BFS(ICOL,1) * SCALE\r\n      BFS(ICOL,2) = BFS(ICOL,2) * SCALE\r\nC\r\n      AREA = WIDTH * DELX(IBOX)\r\n      BFS(ICOL,1) = BFS(ICOL,1) * AREA\r\n      BFS(ICOL,2) = BFS(ICOL,2) * AREA\r\n  500 CONTINUE\r\n  600 CONTINUE\r\n      KSP = KSP + NASD\r\n  700 CONTINUE\r\nC\r\nC     -Z-  ORIENTED BODIES AS SENDING ELEMENTS\r\nC\r\n  800 CONTINUE\r\n      SGS   = 0.0\r\n      CGS   = 1.0\r\n      NASD  = 0\r\n      IZYFLG= 1\r\n      ASSIGN   50 TO IBODY\r\n      GO TO  1000\r\nC\r\nC\r\nC     *** LOOP FOR EACH INTERFERENCE BODY SENDING ELEMENT\r\nC\r\n 1000 CONTINUE\r\n      INDEX = NTP\r\nC\r\nC     --ISB-- IS THE SENDING BODY\r\nC\r\n      DO 1900 ISB  = 1,NB\r\n      IF (NBEA2(ISB) .EQ.     2 ) GO TO 1070\r\n      IF (NBEA2(ISB) .NE. IZYFLG) GO TO 1850\r\n 1070 DYS   = YB(ISB)\r\n      NSBE  = NBEA1(ISB)\r\n      JP1   = 1\r\n      LAST  = .FALSE.\r\n      DZS   = ZB(ISB)\r\n      EARG2 = 1.0\r\nC\r\nC     --ISBE-- IS THE ELEMENT OF THE SEND BODY\r\nC\r\n      DO 1800 ISBE = 1,NSBE\r\n      EARG1 = EARG2\r\n      INDEX = INDEX + 1\r\n      DXS   = X (INDEX) - DELX(INDEX) /4.0\r\n      EARG2 = KR * DELX(INDEX) / CBAR\r\nC\r\nC     CALCULATE THIS COLUMN\r\nC\r\n      ICOL  = ICOL + 1\r\n      EIKJ1 = CMPLX(COS(EARG1),-SIN(EARG1))\r\n      EIKJ2 = CMPLX(COS(EARG2), SIN(EARG2))\r\nC\r\n      CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,DXS,DYS,\r\n     1           DZS,NASD,NASB(KSP),KR,BETA2,CBAR,AVR,FWZ,FWY)\r\n      BFS(ICOL,1) = FWZ * (DXTE - DXLE)\r\n      BFS(ICOL,2) = FWY * (DXTE - DXLE)\r\n      BFS(ICOL,1) = BFS(ICOL,1) * SCALE\r\n      BFS(ICOL,2) = BFS(ICOL,2) * SCALE\r\nC\r\nC\r\nC     IS THIS THE FIRST COLUMN, YES  BRANCH\r\nC\r\n      IF (ISBE .EQ. 1) GO TO 1800\r\n      BFS(ICOL-1,1) = BFS(ICOL-1,1)*EIKJ1 - BFS(ICOL,1)*EIKJ2\r\n      BFS(ICOL-1,2) = BFS(ICOL-1,2)*EIKJ1 - BFS(ICOL,2)*EIKJ2\r\n 1800 CONTINUE\r\n      GO TO 1900\r\n 1850 INDEX = INDEX + NBEA1(ISB)\r\n 1900 CONTINUE\r\nC\r\nC     RETURN TO CALLING POINT - EITHER Y OR Z SENDING BODY ELEM\r\nC\r\nC     *** GO  EITHER TO THE  Y-ORIENTED INTERFERENCE BODY ELEMENT LOOP\r\nC         OR  TO THE LOOP FOR SLENDER BODY SENDING ELEMENTS\r\nC\r\n      GO TO IBODY, (50,4010)\r\nC\r\nC\r\nC     CALCULATE EACH ROW OF THE SENDING COLUMN\r\nC\r\n 3000 CONTINUE\r\n      IY   = 0\r\n      JF   = 0\r\n      NW   = LENGTH*2\r\n      IROW = 0\r\nC\r\nC     --IRB-- IS THE RECEIVING BODY\r\nC\r\n      IRB  = 0\r\n 3050 IRB  = IRB + 1\r\n      IF (IRB .GT. NB) GO TO 3900\r\n      NRBE = NSBEA(IRB)\r\n      ITSB = NBEA2(IRB)\r\nC\r\n      XYB  = YB(IRB)\r\n      XZB  = ZB(IRB)\r\n      SCALE= 1.0\r\n      IF (ND.NE.0 .AND. XYB.EQ.0.0) SCALE = .5\r\n      IF (NE.NE.0 .AND. XZB.EQ.0.0) SCALE = SCALE*.5\r\nC\r\nC     --IRBE-- IS THE ELEM. OF THE REC. BODY\r\nC\r\n      IRBE = 0\r\n 3060 IRBE = IRBE + 1\r\n      IF (IRBE .GT. NRBE) GO TO 3800\r\n      IY   = IY   + 1\r\n      IROW = IROW + 1\r\n      DRIA = A0  (IY)\r\n      DXLE = XIS1(IY)\r\n      DXTE = XIS2(IY)\r\n      XX1  = DXLE\r\n      XX2  = DXTE\r\n      XAA  = DRIA\r\n      ICOL = 0\r\n      GO  TO  100\r\nC\r\n 3100 CONTINUE\r\n      GO TO (3110,3120,3130), ITSB\r\n 3110 CALL WRITE (SCR1,BFS(1,1),NW,0)\r\n      GO TO 3140\r\n 3120 CALL WRITE (SCR1,BFS(1,2),NW,0)\r\n      CALL WRITE (SCR1,BFS(1,1),NW,0)\r\n      IF (JF .EQ. 0) JF = IROW\r\n      IROW = IROW + 1\r\n      GO TO 3140\r\n 3130 CALL WRITE (SCR1,BFS(1,2),NW,0)\r\n      IROW = IROW - 1\r\n 3140 CONTINUE\r\n      GO TO 3060\r\n 3800 CONTINUE\r\n      GO TO 3050\r\n 3900 CONTINUE\r\n      JL = IROW\r\n      RETURN\r\nC\r\nC\r\n 4010 CONTINUE\r\nC\r\nC\r\nC     *** LOOP FOR EACH SLENDER BODY SENDING ELEMENT\r\nC\r\n      IZYFLG= 1\r\n      SGS   = 0.0\r\n      CGS   = 1.0\r\n 4050 CONTINUE\r\n      LSBE  =  0\r\n      DO 5000 LSB = 1,NB\r\nC\r\nC     --LSB-- IS THE INDEX OF THE SLENDER SENDING BODY\r\nC\r\n      IF (NSBEA(LSB) .EQ.      0) GO TO 5000\r\n      IF (NBEA2(LSB) .EQ.      2) GO TO 4070\r\n      IF (NBEA2(LSB) .NE. IZYFLG) GO TO 4097\r\n 4070 CONTINUE\r\n      XETA  =  YB(LSB)\r\n      XZETA =  ZB(LSB)\r\n      SCALE2=  SCALE\r\n      MSBE  =  NSBEA(LSB)\r\n      DO 4080 LSBS = 1,MSBE\r\n      LSBE  =  LSBE + 1\r\n      ICOL  =  ICOL + 1\r\n      XXIJ  = .50 * XIS1(LSBE) + .50 * XIS2(LSBE)\r\n      CALL FWMW (ND,NE,SGS,CGS,IRB,DRIA,AR,DXLE,DXTE,YB,ZB,XXIJ,XETA,\r\n     1           XZETA,NASD,NASB,KR,BETA2,CBAR,AVR,FWZ,FWY)\r\n      BFS(ICOL,1) =  FWZ * (DXTE - DXLE)\r\n      BFS(ICOL,2) =  FWY * (DXTE - DXLE)\r\n      BFS(ICOL,1) =  BFS(ICOL,1) * SCALE2\r\n      BFS(ICOL,2) =  BFS(ICOL,2) * SCALE2\r\n 4080 CONTINUE\r\n      GO TO 5000\r\n 4097 LSBE = LSBE + NSBEA(LSB)\r\n 5000 CONTINUE\r\n      IF (IZYFLG .EQ. 3) GO TO  5010\r\n      IZYFLG = 3\r\n      SGS =-1.0\r\n      CGS = 0.0\r\n      GO TO 4050\r\n 5010 CONTINUE\r\nC\r\n      GO TO 3100\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/bgrid.f",
    "content": "      SUBROUTINE BGRID\r\nC\r\nC     THIS ROUTINE COMPUTES PROBLEM SIZE, INTEGER PACKING FACTOR, AND\r\nC     MAXGRD AND MAXDEG CONSTANTS.\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GRID(2),  SEQGP,    GEOM1,    TWO,      ANDF,\r\n     1                GEOM2,    GEOM4,    SCR1,     REW,      SUB(2),\r\n     2                ITRL(8)\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /BANDA / IBUF1,    NOMPC,    NODEP,    NOPCH,    NORUN,\r\n     1                METHOD,   ICRIT,    NGPTS(2)\r\n      COMMON /BANDB / NBITIN,   KOR,      DUM,      NGRID,    IPASS,\r\n     1                NW,       KDIM,     NBPW,     IREPT\r\n      COMMON /BANDD / IDUM5D(5),NZERO,    NEL,      NEQ,      NEQR\r\n      COMMON /BANDS / NN,       MM,       DUM2S(2), MAXGRD,   MAXDEG,\r\n     1                KMOD,     MACH,     MINDEG,   NEDGE,    MASK\r\n      COMMON /BANDW / DUM4W(4), I77\r\n      COMMON /GEOMX / GEOM1,    GEOM2,    GEOM4,    SCR1\r\n      COMMON /SYSTEM/ ISYS(100)\r\n      COMMON /TWO   / TWO(1)\r\n      COMMON /NAMES / RDUM(4),  REW,      NOREW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (NOUT,ISYS(2))\r\n      DATA            IGEOM1,   IGEOM2,   IGEOM4,   ISCR1   /\r\n     1                201,      208,      210,      301     /\r\n      DATA            KDIMX,    NELX,     NEQX,     NEQRX   /\r\n     1                150,      0,        0,        0       /\r\n      DATA            GRID,     SEQGP,    SUB               /\r\n     1                4501,45,  53,       4HBGRI,4HD        /\r\nC\r\n      IF (IREPT .EQ. 2) GO TO 100\r\n      GEOM1 = IGEOM1\r\n      GEOM2 = IGEOM2\r\n      GEOM4 = IGEOM4\r\n      SCR1  = ISCR1\r\n      NEL   = NELX\r\n      NEQ   = NEQX\r\n      NEQR  = NEQRX\r\n      NGRID = 0\r\nC\r\nC     BANDIT QUITS IF DMI CARDS ARE PRESENT. (CHK WAS DONE IN IFS2P)\r\nC     RE-SET PROGRAM PARAMETERS IF USER REQUESTED VIA NASTRAN CARD.\r\nC\r\n      K = ISYS(I77)\r\n      IF (K) 250,30,10\r\n   10 IF (K .EQ. +9) GO TO 230\r\n      DO 20 I = 1,7\r\n      ITRL(I) = MOD(K,10)\r\n      K = K/10\r\n   20 CONTINUE\r\n      IF (ITRL(1).GT.0 .AND. ITRL(1).LE.4) ICRIT  = ITRL(1)\r\n      IF (ITRL(2).GT.0 .AND. ITRL(2).LE.3) METHOD = ITRL(2) - 2\r\n      NOMPC = ITRL(3)\r\n      IF (ITRL(4) .EQ. 1) NODEP = -NODEP\r\n      IF (ITRL(5) .EQ. 1) NOPCH = -NOPCH\r\n      IF (ITRL(5) .EQ. 9) NOPCH = +9\r\n      IF (ITRL(6) .EQ. 1) NORUN = -NORUN\r\n      IF (ITRL(7).GE.2 .AND. ITRL(7).LE.9) KDIM = ITRL(7)\r\nC\r\n   30 IF (NORUN .EQ. +1) GO TO 40\r\nC\r\nC     OPEN GEOM1 FILE AND CHECK THE PRESENCE OF ANY SEQGP CARD.  IF\r\nC     ONE OR MORE IS PRESENT, ABORT BANDIT JOB.  OTHERWISE CONTINUE TO\r\nC     COUNT HOW MANY GRID POINTS IN THE PROBLEM.\r\nC     RESET GEOM1 TO THE BEGINNING OF GRID DATA FOR BSEQGP, AND CLOSE\r\nC     GEOM1 WITHOUT REWINDING THE FILE\r\nC\r\nC     COMMENT FROM G.CHAN/SPERRY\r\nC     IF TIME AND $ ALLOW, WE SHOULD MAKE USE OF THE SORTED GRID DATA\r\nC     FROM GEOM1 FILE AND GET RID OF INV, INT, NORIG, ILD ARRAYS LATER.\r\nC     THE SCATTERING TECHNEQUE (REALLY A HASHING METHOD) CAN BE REPLACED\r\nC     BY A SIMPLE BINARY SEARCH. ROUTINES SCAT, BRIGIT, AND INTERN\r\nC     COULD BE ELIMINATED.\r\nC\r\n      ITRL(1) = GEOM1\r\n      CALL RDTRL (ITRL)\r\n      J  = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7)\r\n      IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 250\r\n      K  = SEQGP\r\n      K1 = (K-1)/16\r\n      K2 = K - 16*K1\r\n      K  = ANDF(ITRL(K1+2),TWO(K2+16))\r\n      IF (K .NE. 0) GO TO 210\r\nC\r\nC     WE ASSUME THAT THE GRID POINT DATA IN GEOM1 AT THIS TIME IS NOT\r\nC     SORTED. IF IT IS, WE CAN BLAST READ THE GRID POINT RECORD AND\r\nC     TAKE THE LAST GRID POINT TO BE THE LARGEST GRID EXTERNAL NUMBER.\r\nC\r\n   40 CALL PRELOC (*170,Z(IBUF1),GEOM1)\r\n      CALL LOCATE (*70,Z(IBUF1),GRID,K)\r\n      MAX = 0\r\n   50 CALL READ (*60,*60,GEOM1,ITRL,8,0,K)\r\n      NGRID = NGRID + 1\r\n      IF (ITRL(1) .GT. MAX) MAX = ITRL(1)\r\n      GO TO 50\r\n   60 CALL BCKREC (GEOM1)\r\n   70 CALL CLOSE (GEOM1,NOREW)\r\nC\r\nC     IF SPOINTS ARE PRESENT, ADD THEM TO THE GRID COUNT\r\nC\r\n      N = 0\r\n      CALL PRELOC (*90,Z(IBUF1),GEOM2)\r\n      NGPTS(1) = 5551\r\n      NGPTS(2) = 49\r\n      CALL LOCATE (*80,Z(IBUF1),NGPTS,K)\r\n      CALL READ (*80,*80,GEOM2,Z(1),IBUF1,1,N)\r\n   80 CALL CLOSE (GEOM2,REW)\r\n   90 NGPTS(1) = NGRID\r\n      NGPTS(2) = N\r\n      NGRID = NGRID + N\r\nC\r\n      IF (NOPCH.EQ.9 .AND. NGRID.EQ.1) NGRID = MAX\r\n  100 IF (NGRID .LE.  0) GO TO 180\r\n      IF (NGRID .LT. 15) GO TO 160\r\nC\r\nC     SET WORD PACKING CONSTANT, NW - (NUMBER OF INTEGERS PER WORD)\r\nC     MACHX =  1 DUMMY,   =  2 IBM 360/370, =  3 UNIVAC 1100, =  4 CDC,\r\nC           =  5 VAX 780, =  6 DEC ULTRIX,  =  7 SUN,         =  8 AIX,\r\nC           =  9 HP,      = 10 SILIC.GRAPH  = 11 MAC,         = 12 CRAY,\r\nC           = 13 CONVEX,  = 14 NEC          = 15 FUJITSU,     = 16 DG,\r\nC           = 17 AMDAHL   = 18 PRIME        = 19 486,         = 20 DUMMY\r\nC           = 21 ALPHA    = 22 RESERVED\r\nC\r\n      GO TO (130,120,130,110,120,120,120,120,120,120,\r\n     1       120,135,120,110,110,120,120,120,120,120,\r\n     2       120,120), MACHX\r\n  110 NW = 6\r\n      IF (NGRID .GT.   510) NW = 5\r\n      IF (NGRID .GT.  2045) NW = 4\r\n      IF (NGRID .GT. 16380) NW = 3\r\n      IF (NGRID .GT.524288) NW = 2\r\n      GO TO 140\r\n  120 NW = 2\r\n      GO TO 140\r\n  130 NW = 4\r\n      IF (NGRID .GT. 508) NW = 3\r\n      IF (NGRID .GT.4095) NW = 2\r\n      GO TO 140\r\n  135 NW = 8\r\n      IF (NGRID.GT.255) NW = 4\r\nC\r\n  140 NBITIN = NBPW/NW\r\n      MASK   = 2**NBITIN - 1\r\nC\r\nC     KDIM IS THE ARRAY DIMENSNION OF A SCRATCH ARRAY USED ONLY BY GPS\r\nC     METHOD. IT IS 150 WORDS OR 10% OF TOTAL GRID POINT NUMBER. IF\r\nC     USER SPECIFIED BANDTDIM = N, (WHERE N IS FROM 1 THRU 9), THE ARRAY\r\nC     DIMENSION WILL BE N*10 PERCENT INSTEAD OF THE DEFAULT OF 10%.\r\nC\r\n      KDIM = NGRID*KDIM/10\r\n      IF (METHOD .NE. -1) KDIM = MAX0(KDIM,KDIMX,NGRID/10)\r\n      IF (METHOD .EQ. -1) KDIM = MIN0(KDIM,KDIMX,NGRID/10)\r\n      N = NGRID\r\n      IF (N .LT. 10) N = 10\r\nC\r\nC     CALCULATE WIDTH MAXDEG AND EFFECTIVE LENGTH MAXGRD OF IG MATRIX.\r\nC\r\n      MAXGRD = N\r\n      KORE   = KOR\r\n  150 MAXDEG = ((((KORE-4*KDIM-8*MAXGRD-5)*NW)/(MAXGRD+NW))/NW)*NW\r\n      MAXDEG = MIN0(MAXDEG,MAXGRD-1)\r\n      IF (MAXDEG .LE. 0) GO TO 200\r\n      J      = MAXDEG*2.2\r\n      KORE   = KORE - J\r\n      IF (KOR-J .EQ. KORE) GO TO 150\r\nC\r\nC     INITIALIZE VARIABLES\r\nC\r\n      NN     = 0\r\n      MM     = 0\r\n      NEDGE  = 0\r\n      IPASS  = 0\r\n      KMOD   = 2*MAXGRD - IFIX(2.3715*SQRT(FLOAT(MAXGRD)))\r\n      MINDEG = 500000\r\n      RETURN\r\nC\r\nC     ERROR OR QUIT\r\nC\r\n  160 WRITE  (NOUT,280) UIM\r\n      WRITE  (NOUT,270)\r\n      GO TO  250\r\n  170 CALL MESAGE (-1,GEOM1,SUB)\r\n  180 WRITE  (NOUT,280) UIM\r\n      WRITE  (NOUT,190)\r\n  190 FORMAT (5X,25HTHE ABSENCE OF GRID CARDS)\r\n      CALL CLOSE (GEOM1,REW)\r\n      GO TO  250\r\n  200 CALL MESAGE (-8,0,SUB)\r\n  210 WRITE  (NOUT,280) UIM\r\n      WRITE  (NOUT,220)\r\n  220 FORMAT (5X,27HTHE PRESENCE OF SEQGP CARDS)\r\n      GO TO  250\r\n  230 WRITE  (NOUT,280) UIM\r\n      WRITE  (NOUT,240)\r\n  240 FORMAT (5X,25HTHE PRESENCE OF DMI CARDS)\r\n  250 ISYS(I77) = 0\r\n      IF (NOPCH .GT. 0) ISYS(I77) = -2\r\n      IF (ISYS(I77) .NE. -2) WRITE (NOUT,260)\r\n  260 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**')\r\n  270 FORMAT (5X,'SMALL PROBLEM SIZE')\r\n  280 FORMAT (A29,' -  GRID-POINT RESEQUENCING PROCESSOR BANDIT IS ',\r\n     1       'NOT USED DUE TO')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bint.f",
    "content": "      FUNCTION BINT(I,J,A,B,IV,IW,R,Z)\r\n      DIMENSION  R(1) , Z(1)\r\n      BINT = 0.0\r\n      IW1 = IW + 1\r\n      C1P = B\r\n      C2P = A\r\n      C1 = C1P\r\n       C2 = C2P\r\n      AW = 0.0\r\n      IF( R(I) .NE. 0.0E0 .AND. R(J) .NE. 0.0E0 ) AW = ALOG(R(J)/R(I))\r\n      DO 100 IT = 1,IW1\r\n      IC = IW - IT + 1\r\n      IF (IC.EQ.0) C1 = 1.0\r\n      IF (IT.EQ.1) C2 = 1.0\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC THE FOLLOWING CODE REPLACES REAL FUNCTION COEF\r\nC\r\n      IF(IT.EQ.1) GO TO 20\r\n      IN = 1\r\n      ID = 1\r\n      DO 10 K=2,IT\r\n      IN = IN*(IW-K+2)\r\n      ID = ID*(K-1)\r\n   10 CONTINUE\r\n      COEF = IN/ID\r\n      GO TO 30\r\n   20 COEF = 1.0\r\n   30 CONTINUE\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC THE FOLLOWING CODE REPLACES REAL FUNCTION AJ\r\nC\r\n      IS1 = IC+IV+1\r\n      IF(IS1.EQ.0) GO TO 60\r\n      SP1 = IS1\r\n      AJ = (R(J)**IS1-R(I)**IS1) / SP1\r\n      GO TO 70\r\n   60 AJ = AW\r\n   70 CONTINUE\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\n      BINT = BINT + C1 ** IC * AJ * C2 ** (IT - 1) * COEF\r\n      C1 = C1P\r\n      C2 = C2P\r\n  100 CONTINUE\r\n      AW = IW\r\n      BINT = BINT / AW\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/biotsv.f",
    "content": "      SUBROUTINE BIOTSV (XX,YY,ZZ,HCX,HCY,HCZ)\r\nC\r\nC     THIS ROUTINE COMPUTES THE MAGNETIC FIELD AT A POINT (XX,YY,ZZ)\r\nC     DUE TO MAGNETIC SOIRCES. THE ROUTINE IS USED BY PROLATE IN\r\nC     COMPUTING HC POTENTIALS USING LINE INTEGRALS. AT Z(IST) IS STORED\r\nC     LOAD INFO. NEEDED FOR THIS SUBCASE (WHICH COULD BE A LOAD\r\nC     COMBINATION) AS STORED BY ROUTINE LOADSU. THE INFO. IS STORED AS\r\nC     FOLLOWS -\r\nC\r\nC     OVERALL SCALE FACTOR - ALLS\r\nC     NUMBER OF SIMPLE LOADS - NSIMP\r\nC     SCALE FACTOR FOR 1ST SIMPLE LOAD\r\nC     NUMBER OF LOAD CARDS FOR 1ST SIMPLE LOAD\r\nC     SCALE FACTOR FOR 2ND SIMPLE LOAD\r\nC     NUMBER OF LOAD CARDS FOR 2ND SIMPLE LOAD\r\nC      .\r\nC     ETC.\r\nC      .\r\nC     TYPE(NOBLD) OF 1ST CARD FOR 1ST SIMPLE LOAD\r\nC     NUMBER OF CARDS FOR THIS TYPE - IDO\r\nC     LOAD INFO FOR THIS TYPE FOR 1ST SIMPLE LOAD\r\nC     ANOTHER TYPE FOR 1ST SIMPLE LOAD\r\nC      .\r\nC     ETC\r\nC      .\r\nC     LOAD CARDS FOR SUBSEQUENT SIMPLE LOADS FOR THIS SUBCASE\r\nC\r\n      INTEGER         HEST,BGPDT,SCR1,FILE,BUF2,SUBCAS\r\n      DIMENSION       NAM(2),IZ(1),BUF(50),IBUF(50),MCB(7),HC(3),HC1(3),\r\n     1                HC2(3)\r\n      COMMON /BIOT  / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL,\r\n     1                MCORE,LOAD,NSLT,SCR1,HEST,NTOT\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1)),(BUF(1),IBUF(1))\r\n      DATA    NAM   / 4HBIOT,4HSV  /\r\nC\r\n      HCX    = 0.\r\n      HCY    = 0.\r\n      HCZ    = 0.\r\n      SCR1   = 301\r\n      BGPDT  = 103\r\n      MCB(1) = BGPDT\r\n      CALL RDTRL (MCB)\r\n      NROWSP = MCB(2)\r\n      MCB(1) = SCR1\r\n      CALL RDTRL (MCB)\r\n      N3     = MCB(3)\r\n      NGRIDS = N3/3\r\nC\r\n      ALLS   = Z(IST+1)\r\n      NSIMP  = IZ(IST+2)\r\n      ISIMP  = IST + 2*NSIMP + 2\r\nC\r\nC     LOOP ON NUMBER OF SIMPLE LOADS\r\nC\r\n      DO 270 NS = 1,NSIMP\r\n      NC     = 0\r\n      HC(1)  = 0.\r\n      HC(2)  = 0.\r\n      HC(3)  = 0.\r\nC\r\n      FACTOR = Z(IST+2*NS+1)\r\n      NCARDS = IZ(IST+2*NS+2)\r\n   15 NOBLD  = IZ(ISIMP+1)\r\n      IDO    = IZ(ISIMP+2)\r\n      ISIMP  = ISIMP + 2\r\nC\r\nC\r\n      KTYPE  = NOBLD - 19\r\n      GO TO (20,30,40,50,60), KTYPE\r\n   20 MWORDS = 3*NROWSP\r\n      GO TO 70\r\n   30 MWORDS = 12\r\n      GO TO 70\r\n   40 MWORDS = 48\r\n      GO TO 70\r\n   50 MWORDS = 9\r\n      GO TO 70\r\n   60 MWORDS = 0\r\nC\r\n   70 DO 245 J = 1,IDO\r\nC\r\n      GO TO (145,150,150,150,180), KTYPE\r\nC\r\nC     SPCFLD DATA STARTS AT Z(ISIMP+1)\r\nC\r\n  145 CONTINUE\r\nC\r\nC\r\nC     NG1 AND NG2 ARE THE SIL NUMBERS OF THE END POINTS OF THE LINE\r\nC     INTEGRL WITH (X1,Y1,Z1) AND (X2,Y2,Z2) BEING THE COORDINATES.\r\nC     LINEARLY INTERPOLATE TO (XX,YY,ZZ). THE SILS ARE POINTERS INTO\r\nC     THE SPCFLD DATA\r\nC\r\n      ISUB   = ISIMP + 3*NG1\r\n      HC1(1) = Z(ISUB-2)\r\n      HC1(2) = Z(ISUB-1)\r\n      HC1(3) = Z(ISUB)\r\n      ISUB   = ISIMP + 3*NG2\r\n      HC2(1) = Z(ISUB-2)\r\n      HC2(2) = Z(ISUB-1)\r\n      HC2(3) = Z(ISUB)\r\n  148 TLEN   = SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2)\r\n      XLEN   = SQRT((XX-X1)**2 + (YY-Y1)**2 + (ZZ-Z1)**2)\r\n      RATIO  = XLEN/TLEN\r\n      HC(1)  = HC(1) + (1.-RATIO)*HC1(1) + RATIO*HC2(1)\r\n      HC(2)  = HC(2) + (1.-RATIO)*HC1(2) + RATIO*HC2(2)\r\n      HC(3)  = HC(3) + (1.-RATIO)*HC1(3) + RATIO*HC2(3)\r\n      GO TO 240\r\nC\r\nC     CEMLOOP,GEMLOOP,MDIPOLE\r\nC\r\n  150 DO 152 K = 1,MWORDS\r\n  152 BUF(K) = Z(ISIMP+K)\r\n      LTYPE  = KTYPE - 1\r\n      GO TO (155,160,165), LTYPE\r\n  155 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC)\r\n      GO TO 170\r\n  160 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC)\r\n      GO TO 170\r\n  165 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HCA,HCB,HCC)\r\nC\r\n  170 HC(1)  = HC(1) + HCA\r\n      HC(2)  = HC(2) + HCB\r\n      HC(3)  = HC(3) + HCC\r\n      GO TO 240\r\nC\r\nC     REMFLUX - BRING IN VALUES FROM SCR1 AFTER POSITIONING TO PROPER\r\nC     CASE\r\nC\r\n  180 CALL GOPEN (SCR1,Z(BUF2),0)\r\n      IC = SUBCAS - 1\r\n      IF (IC .EQ. 0) GO TO 200\r\n      DO 190 I = 1,IC\r\n      CALL FWDREC (*520,SCR1)\r\n  190 CONTINUE\r\nC\r\n  200 ISIMP1 = 6*NGRIDS + NTOT\r\n      CALL FREAD (SCR1,Z(ISIMP1+1),N3,1)\r\nC\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     MUST MATCH NG1 AND NG2 TO SIL-S IN CORE TO LOCATE REMFLUX INFO ON\r\nC    SCR1\r\nC\r\n      ING1 = 0\r\n      ING2 = 0\r\n      DO 220 I = 1,NGRIDS\r\n      IF (NG1 .EQ. IZ(I)) GO TO 205\r\n      IF (NG2 .EQ. IZ(I)) GO TO 210\r\n      GO TO 220\r\n  205 ING1 = I\r\n      IF (ING2 .EQ. 0) GO TO 220\r\n      GO TO 230\r\n  210 ING2 = I\r\n      IF (ING1 .EQ. 0) GO TO 220\r\n      GO TO 230\r\n  220 CONTINUE\r\n      GO TO 510\r\n  230 ISUB   = 3*ING1 + ISIMP1\r\n      HC1(1) = Z(ISUB-2)\r\n      HC1(2) = Z(ISUB-1)\r\n      HC1(3) = Z(ISUB)\r\n      ISUB   = 3*ING2 + ISIMP1\r\n      HC2(1) = Z(ISUB-2)\r\n      HC2(2) = Z(ISUB-1)\r\n      HC2(3) = Z(ISUB)\r\nC\r\nC     INTERPOLATE AS WITH SPCFLD\r\nC\r\n      GO TO 148\r\nC\r\nC     DONE FOR ONE CARD OF PRESENT TYPE  - GET ANOTHER\r\nC\r\n  240 ISIMP = ISIMP + MWORDS\r\n      NC = NC + 1\r\nC\r\n  245 CONTINUE\r\nC\r\nC     CHECK TO SEE IF WE ARE DONE WITH THIS LOAD FACTOR\r\nC\r\n      IF (NC .LT. NCARDS) GO TO 15\r\nC\r\nC     DONE WITH THIS SIMPLE LOAD. APPLY INDIVIDUAL AND OVERALL SCALE\r\nC     FACTORS THEN GET ANOTHER SIMPLE LOAD\r\nC\r\n      FAC = FACTOR*ALLS\r\n      HCX = HCX + FAC*HC(1)\r\n      HCY = HCY + FAC*HC(2)\r\n      HCZ = HCZ + FAC*HC(3)\r\nC\r\n  270 CONTINUE\r\nC\r\nC     DONE\r\nC\r\n      RETURN\r\nC\r\n  510 WRITE  (IOUT,511) NG1,NG2\r\n  511 FORMAT ('0*** LOGIC ERROR, SILS',2I8,\r\n     1       ' CANNOT BE FOUND IN PROLATE LIST IN BIOTSV')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  520 CALL MESAGE (-2,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bishel.f",
    "content": "      SUBROUTINE BISHEL(*,LIST,NENT,NTERM,ARRAY)\r\nC-----\r\nC   BISHEL IS A MERGE/SORT/DUPLICATE ENTRY ELIMINATOR.  GIVEN A SORTED\r\nC -ARRAY- AND A -LIST- TO MERGE, BISHEL ADDS THE -LIST- IN THE SORTED\r\nC LOCATION.  SORT IS ONLY ON THE FIRST WORD OF LIST.\r\nC\r\nC   ARGUMENTS...\r\nC\r\nC     LIST  -- IN/OUT - LIST OF LENGTH NTERM TO MERGE INTO ARRAY.\r\nC     NENT  -- IN/OUT - LENGTH OF LIST BEFORE/AFTER MERGE.\r\nC     NTERM -- IN     - LENGTH OF ARRAY (AND LIST) ENTRIES.\r\nC     ARRAY -- IN/OUT - ARRAY TO MERGE LIST INTO.\r\nC     NONSTANDARD RETURN -- WHEN ARRAY(ITERM) IS A DUPLICATE.\r\nC-----\r\n      INTEGER LIST(1),ARRAY(1)\r\nC\r\n      K = 1\r\n      L = NENT + 1\r\n      M = NENT - NTERM + 1\r\nC\r\nC  . LOCATE DUPLICATES...\r\nC\r\n      IF (NENT.LT.NTERM) GO TO 50\r\n      IF (LIST(1) - ARRAY(M) ) 10,20,60\r\n   10 KID = LIST(1)\r\n      CALL BISLOC (*30, KID, ARRAY, NTERM, NENT/NTERM, K)\r\n   20 RETURN 1\r\nC\r\nC  . CREATE A HOLE IN THE LIST BY MOVING THE END OF THE LIST...\r\nC\r\n   30 CONTINUE\r\n      J = L-K\r\n      N = NENT+NTERM\r\n      DO 40 I = 1,J\r\n      M = L-I\r\n      ARRAY(N) = ARRAY(M)\r\n   40 N = N-1\r\nC\r\nC  . LOAD LIST INTO HOLE...\r\nC\r\n      GO TO 70\r\n   50 NENT = 0\r\n      GO TO 70\r\n   60 K = L\r\n   70 CONTINUE\r\n      DO 80 I = 1,NTERM\r\n      ARRAY(K)=LIST(I)\r\n   80 K = K+1\r\n      NENT = NENT + NTERM\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bislc2.f",
    "content": "      SUBROUTINE BISLC2 (*,ID,AA,NC,NR,LOC)\r\nC-----\r\nC     BINARY SEARCH ROUTINE - LOCATE ID POSTION IN AA\r\nC     SEARCH BY FIRST 2 WORDS (ROWS) OF ENTRIES.\r\nC\r\nC     ID  = TARGET WORD SEARCH, 2 BCD-WORDS\r\nC     AA  = A (NR X NC) TABLE TO SEARCH FOR ID.\r\nC     NR  = SIZE   OF ENTRIES (ROW   ) IN THE AA.\r\nC     NC  = NUMBER OF ENTRIES (COLUMN) IN THE AA.\r\nC     LOC = POINTER RETURNED, OF NC LOCATION\r\nC\r\nC     NONSTANDARD RETURN IN THE EVENT OF NO MATCH.\r\nC\r\n      INTEGER  ID(2),AA(NR,NC)\r\nC\r\n      KLO = 1\r\n      KHI = NC\r\n   10 K   = (KLO+KHI+1)/2\r\n   20 IF (ID(1) - AA(1,K)) 30,25,40\r\n   25 IF (ID(2) - AA(2,K)) 30,90,40\r\n   30 KHI = K\r\n      GO TO 50\r\n   40 KLO = K\r\n   50 IF (KHI-KLO -1) 100,60,10\r\n   60 IF (K .EQ. KLO)  GO TO 70\r\n      K   = KLO\r\n      GO TO 80\r\n   70 K   = KHI\r\n   80 KLO = KHI\r\n      GO TO 20\r\n   90 LOC = K\r\n      RETURN\r\n  100 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/bisloc.f",
    "content": "      SUBROUTINE BISLOC (*,ID,ARR,LEN,KN,JLOC)\r\nC-----\r\nC     BINARY SEARCH - LOCATE KEY WORD 'ID' IN ARRAY 'ARR', 1ST ENTRY\r\nC     IF FOUND, 'JLOC' IS THE MATCHED POSITION IN 'ARR'\r\nC     IF NOT FOUND, NON-STANDARD RETURN\r\nC                                                     I.E.\r\nC     ID  = KEY WORD TO MATCH IN ARR.      MATCH AGAINST 1ST COL OF ARR\r\nC     ARR = ARRAY TO SEARCH.                          ARR(ROW,COL)\r\nC     LEN = LENGTH OF EACH ENTRY IN ARRAY.            LEN=ROW\r\nC     KN  = NUMBER OF ENTRIES IN THE ARR.             KN =COL\r\nC     JLOC= POINTER RETURNED - FIRST WORD OF ENTRY.   MATCHED ROW\r\nC-----\r\nC\r\n      INTEGER  ARR(1)\r\n      DATA     ISWTCH / 16 /\r\nC\r\n      JJ = LEN - 1\r\n      IF (KN .LT. ISWTCH) GO TO 120\r\n      KLO = 1\r\n      KHI = KN\r\n   10 K   = (KLO+KHI+1)/2\r\n   20 J   = K*LEN - JJ\r\n      IF (ID-ARR(J)) 30,90,40\r\n   30 KHI = K\r\n      GO TO 50\r\n   40 KLO = K\r\n   50 IF (KHI-KLO -1) 100,60,10\r\n   60 IF (K .EQ. KLO) GO TO 70\r\n      K   = KLO\r\n      GO TO 80\r\n   70 K   = KHI\r\n   80 KLO = KHI\r\n      GO TO 20\r\n   90 JLOC = J\r\n      RETURN\r\n  100 JLOC = KHI*LEN - JJ\r\n      J    = KN *LEN - JJ\r\n      IF (ID .GT.ARR(J)) JLOC = JLOC + LEN\r\n  110 RETURN 1\r\nC\r\nC     SEQUENTIAL SEARCH MORE EFFICIENT\r\nC\r\n  120 KHI = KN*LEN - JJ\r\n      DO 130 J = 1,KHI,LEN\r\n      IF (ARR(J)-ID) 130,90,140\r\n  130 CONTINUE\r\n      JLOC = KHI + LEN\r\n      GO TO 110\r\n  140 JLOC = J\r\n      GO TO 110\r\n      END\r\n"
  },
  {
    "path": "mis/bitpat.f",
    "content": "      SUBROUTINE BITPAT (ICODE,IBITS)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO TRANSFORM THE DOF WORD INTO ITS\r\nC     NASTRAN DIGITAL REPRESENTATION.\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         LIST(32),IBITS(2),ORF,INT(9)\r\n      COMMON /SYSTEM/ JUNK(38),NBPC,NBPW\r\n      DATA    IBLANK/ 4H    /\r\n      DATA    INT   / 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\nC\r\n      IBITS(1) = IBLANK\r\n      IBITS(2) = IBLANK\r\nC\r\n      CALL DECODE (ICODE,LIST,N)\r\n      IF (N .EQ. 0) RETURN\r\nC\r\n      J = 1\r\n      NBITS = -NBPC\r\n      DO 20 I = 1,N\r\n      NBITS = NBITS + NBPC\r\n      IA = LIST(I)  + 1\r\n      K  = NBPW - NBITS\r\n      IBITS(J) = KLSHFT(KRSHFT(IBITS(J),K/NBPC),K/NBPC)\r\n      IBITS(J) = ORF(IBITS(J),KRSHFT(INT(IA),NBITS/NBPC))\r\n      IF (I .NE. 4) GO TO 20\r\n      J = 2\r\n      NBITS = -NBPC\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bmg.f",
    "content": "      SUBROUTINE BMG\r\nC\r\nC     HYDROELASTIC BOUNDARY MATRIX GENERATOR\r\nC\r\nC     7/12/73 NO AXIAL SYMMETRY UPPER INTEGRATION LIMIT OF LAST\r\nC             CIRCUMFERENTIAL GRID IS INCORRECT\r\nC\r\n      LOGICAL          LABFL    ,LKBFL    ,NSTAR    ,HEAD\r\n      INTEGER          SYSBUF   ,NABFL(2) ,NKBFL(2) ,SUBR(2)  ,FORM   ,\r\n     1                 BUF(10)  ,Z        ,SCRT1    ,BDPOOL   ,CSTM   ,\r\n     2                 EQEXIN   ,BGPDT    ,RD       ,RDREW    ,ENTRYS ,\r\n     3                 WRT      ,WRTREW   ,CLSREW   ,DMIG(3)  ,CLS    ,\r\n     4                 FILE     ,BUF1     ,BUF2     ,BUF3     ,CORE   ,\r\n     5                 POINT    ,BNDFL(2) ,FLAG     ,MONES(3) ,EOR\r\n      REAL             RBUF(10) ,RZ(1)    ,KII\r\n      DOUBLE PRECISION DZ(1)    ,DTEMP(3) ,TERM(3)  ,VI(3)    ,T0F(9) ,\r\n     1                 TI(9)    ,AIN      ,DUB\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /SYSTEM/  SYSBUF   ,IOUT     ,ISKP(52) ,IPREC\r\n      COMMON /BLANK /  KFLAGS(2),VALUE(2)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /NAMES /  RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      EQUIVALENCE      (CONSTS(2),TWOPI)  ,(CONSTS(4),DEGRAD)  ,\r\n     1                 (Z(1),RZ(1),DZ(1)) ,(BUF(1),RBUF(1))\r\n      DATA    SUBR  /  4HBMG ,4H    /,  NABFL / 4HABFL,4H    /\r\n      DATA    BNDFL /  9614  ,96    /,  MONES / -1, -1, -1   /\r\n      DATA    IS    /  1            /,  DMIG  / 114, 1, 120  /\r\n      DATA    EOR   ,  NOEOR/ 1,0   /,  NKBFL / 4HKBFL,4H    /\r\n      DATA    MATPOL,  BGPDT,EQEXIN,CSTM / 101,102,103,104   /\r\n      DATA    BDPOOL/  201          /,  SCRT1 / 301          /\r\n      DATA    IZ2   ,  IZ6,IZ7,IZ8,IZ9   /  2, 6, 7, 8, 9    /\r\nC\r\nC     DEFINE CORE AND BUFFER POINTERS\r\nC\r\n      CORE = KORSZ(Z)\r\n      BUF1 = CORE - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      CORE = BUF3 - 1\r\n      IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR)\r\n      KFLAGS(1) = -1\r\n      KFLAGS(2) = -1\r\nC\r\nC     OPEN MATPOOL AND LOCATE THE BNDFL RECORD AS PREPARED BY IFP4.\r\nC\r\n      CALL PRELOC (*10000,Z(BUF1),MATPOL)\r\n      CALL LOCATE (*10000,Z(BUF1),BNDFL,FLAG)\r\nC\r\nC     THIS MODULE DOES NOTHING IF THE MATPOOL IS PURGED OR THE BNDFL\r\nC     RECORD IS ABSENT.  NOW READ THE HEADER DATA OF THIS RECORD.\r\nC\r\n      FILE = MATPOL\r\n      CALL READ (*10002,*10003,MATPOL,Z(1),9,NOEOR,FLAG)\r\n      IN = 10\r\n      NN = Z(IZ9) + 9\r\n      IF (NN+5 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     READ THE INDICES\r\nC\r\n      CALL READ (*10002,*10003,MATPOL,Z(IN),Z(IZ9),NOEOR,FLAG)\r\n      VALUE(1) = Z(IZ6)\r\n      VALUE(2) = 0.0\r\n      IF (Z(IZ6) .EQ. 0) VALUE(1) = 1.0\r\nC\r\nC     MODIFY LIST OF INDICES TO FIT THE FOLLOWING TABLE\r\nC\r\nC        M      S1    S2         N              N*\r\nC        -      --    --         -              --\r\nC        0                      ALL             ALL\r\nC\r\nC                               K M\r\nC     .GE.2      S     S        ---             NONE\r\nC                                2\r\nC\r\nC                             (2K+1)M\r\nC     .GE.2      S     A      -------           NONE\r\nC                                4\r\nC\r\nC                                              (2K+1)M\r\nC     .GE.2      A     S        NONE           -------\r\nC                                                 4\r\nC\r\nC                                               K M\r\nC     .GE.2      A     A        NONE            ---\r\nC                                                2\r\nC\r\nC     K MAY BE 0,1,2,..... IN ORDER TO CHECK INDICE FOR MATCH.\r\nC\r\n      IF (Z(IZ6)) 90,90,10\r\nC\r\nC     M IS POSITIVE THUS CHECK FOR STAR OR NO-STAR INDICES PERMITTED.\r\nC     DETERMINE THE FORM OF THE CHECK EQUATION.\r\nC\r\nC          Z(7) = S1\r\nC          Z(8) = S2\r\nC          Z(6) = M\r\nC\r\n   10 IF (Z(IZ7) .EQ. IS) GO TO 12\r\n      NSTAR = .TRUE.\r\n      GO TO 13\r\n   12 NSTAR = .FALSE.\r\n   13 IF (Z(IZ7) .EQ. Z(IZ8)) GO TO 14\r\n      FORM = 1\r\n      GO TO 15\r\n   14 FORM = -1\r\nC\r\nC     NOW FORM NEW LIST OF INDICES\r\nC\r\n   15 INN = NN + 1\r\n      NNN = NN\r\n      DO 80 I = IN,NN\r\n      N = (Z(I)-1)/2\r\n      IF (MOD(Z(I),2)) 30,20,30\r\nC\r\nC     NON-STAR CASE\r\nC\r\n   20 IF (NSTAR) GO TO 80\r\n      IF (FORM ) 40,70,70\r\nC\r\nC     STAR CASE\r\nC\r\n   30 IF (.NOT.NSTAR) GO TO 80\r\n      IF (FORM) 40,70,70\r\nC\r\nC                           K M\r\nC     CHECK USING EQUATION  ---\r\nC                            2\r\nC\r\n   40 N2 = N*2\r\n      K  = N2/Z(IZ6)\r\n      IF (K*Z(IZ6) .NE. N2) GO TO 80\r\nC\r\nC     GOOD INDICE,  ADD IT TO THE LIST\r\nC\r\n   50 NNN = NNN + 1\r\n      Z(NNN) = Z(I)\r\n      GO TO 80\r\nC\r\nC                            (2K+1)M\r\nC     CHECK USING EQUATION   -------\r\nC                               4\r\nC\r\n   70 N4 = N*4\r\n      IK = N4 / Z(IZ6)\r\n      IK = IK - 1\r\n      K  = IK / 2\r\n      IF ((2*K+1)*Z(IZ6) .EQ. N4) GO TO 50\r\n   80 CONTINUE\r\nC\r\nC     LIST IS COMPLETE\r\nC\r\n      IN = INN\r\n      NN = NNN\r\n   90 LABFL = .TRUE.\r\n      IF (NN .LT. IN) LABFL = .FALSE.\r\nC\r\nC     SET LKBFL AS A FLAG INDICATING WHETHER KBFL WILL BE GENERATED\r\nC     ALONG WITH ABFL.  IF G IS NON-ZERO THEN KBFL WILL BE GENERATED.\r\nC\r\n      LKBFL = .TRUE.\r\n      IF (RZ(IZ2).EQ.0.0) LKBFL = .FALSE.\r\n      IF (LKBFL) KFLAGS(1) = 0\r\n      IF (LABFL) KFLAGS(2) = 0\r\n      IF (.NOT.LABFL .AND. .NOT.LKBFL) GO TO 10000\r\nC\r\nC     BGPDT IS NOW READ INTO CORE AS 5 WORD ENTRIES, RESERVING FIRST\r\nC     WORD FOR THE EXTERNAL ID.\r\nC\r\n      FILE   = BGPDT\r\n      IBGPDT = NN + 1\r\n      NBGPDT = NN\r\n      CALL GOPEN (BGPDT,Z(BUF2),RDREW)\r\n  100 CALL READ (*10002,*120,BGPDT,Z(NBGPDT+2),4,NOEOR,FLAG)\r\n      NBGPDT = NBGPDT + 5\r\n      IF (NBGPDT+5 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      GO TO 100\r\n  120 CALL CLOSE (BGPDT,CLSREW)\r\nC\r\nC     READ EQEXIN PLACING EXTERNAL ID ON RESPECTIVE BGPDT ENTRY.\r\nC\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(BUF2),RDREW)\r\n  130 CALL READ (*10002,*140,EQEXIN,BUF,2,NOEOR,FLAG)\r\n      N = 5*BUF(2) - 5 + IBGPDT\r\n      Z(N) = BUF(1)\r\n      GO TO 130\r\n  140 CALL CLOSE (EQEXIN,CLSREW)\r\n      LBGPDT = NBGPDT - IBGPDT + 1\r\n      ENTRYS = LBGPDT / 5\r\nC\r\nC     SORT THE BGPDT ON EXTERNAL ID\r\nC\r\n      CALL SORT (0,0,5,1,Z(IBGPDT),LBGPDT)\r\nC\r\nC  BLAST CSTM INTO CORE\r\nC\r\n      FILE = CSTM\r\n      CALL GOPEN (CSTM,Z(BUF2),RDREW)\r\n      ICSTM = NBGPDT + 1\r\n      CALL READ (*10002,*160,CSTM,Z(ICSTM),CORE-ICSTM,NOEOR,FLAG)\r\n      CALL MESAGE (-8,0,SUBR)\r\n  160 NCSTM = ICSTM + FLAG - 1\r\n      LCSTM = NCSTM - ICSTM + 1\r\n      CALL CLOSE (CSTM,CLSREW)\r\nC\r\nC     LOCATE THE T   MATRIX IN THE CSTM DATA BY USING CSID = CDF IN\r\nC                 0F\r\nC\r\nC     THE HEADER DATA.      ( Z(1) )\r\nC\r\n      DO 200 I = ICSTM,NCSTM,14\r\n      IF (Z(1) .EQ. Z(I)) GO TO 240\r\n  200 CONTINUE\r\n      WRITE  (IOUT,210) SFM,Z(1)\r\n  210 FORMAT (A25,' 4060, COORDINATE SYSTEM =',I9,\r\n     1       ' CAN NOT BE FOUND IN CSTM DATA.')\r\n      GO TO 9999\r\n  240 N = I + 5\r\n      DO 250 I = 1,9\r\n      T0F(I) = DBLE(RZ(N))\r\n      N = N + 1\r\n  250 CONTINUE\r\nC\r\nC     OPEN BDPOOL FOR ABFL, AND SCRATCH1 FOR KBFL AND WRITE THE DMIG\r\nC     HEADER INFORMATION.\r\nC\r\n      CALL GOPEN (BDPOOL,Z(BUF2),WRTREW)\r\nC\r\nC     WRITE DMIG RECORD ID\r\nC\r\n      CALL WRITE (BDPOOL,DMIG,3,NOEOR)\r\n      BUF(1) = NABFL(1)\r\n      BUF(2) = NABFL(2)\r\n      BUF(3) = 0\r\n      BUF(4) = 1\r\n      BUF(5) = 1\r\n      BUF(6) = IPREC\r\n      BUF(7) = 0\r\n      BUF(8) = 0\r\n      BUF(9) = 0\r\n      IF (.NOT. LABFL) GO TO 270\r\n      CALL WRITE (BDPOOL,BUF,9,NOEOR)\r\n  270 IF (.NOT.LKBFL) GO TO 280\r\n      FILE = SCRT1\r\n      CALL OPEN (*10001,SCRT1,Z(BUF3),WRTREW)\r\n      BUF(1) = NKBFL(1)\r\n      BUF(2) = NKBFL(2)\r\n      CALL WRITE (SCRT1,BUF,9,NOEOR)\r\nC\r\nC     READ SOME FLUID-PT DATA (IDF,R,Z,L,C,S,RHO)\r\nC\r\n  280 FILE = MATPOL\r\n      CALL READ (*10002,*10003,MATPOL,IDF,1,NOEOR,FLAG)\r\n  285 IDATA = NCSTM + 1\r\n      NDATA = NCSTM + 6\r\n      CALL READ (*10002,*10003,MATPOL,Z(IDATA),6,NOEOR,FLAG)\r\nC\r\nC     START BUILDING TABLE OF CONNECTED GRID POINTS.\r\nC     READ ID,PHI.  CREATE A 26 WORD ENTRY FOR EACH ID,PHI.\r\nC\r\n      ITABLE = NDATA + 1\r\nC\r\nC     INSURE THAT TABLE STARTS ON AN EVEN BOUNDARY FOR DOUBLE\r\nC     PRECISION\r\nC\r\n      IF (MOD(ITABLE,2) .NE. 1) ITABLE = ITABLE + 1\r\n      NTABLE = ITABLE - 1\r\n  290 CALL READ (*10002,*10003,MATPOL,Z(NTABLE+1),2,NOEOR,FLAG)\r\n      IF (Z(NTABLE+1) .EQ. -1) GO TO 300\r\nC\r\nC     CONVERT PHI TO RADIANS\r\nC\r\n      RZ(NTABLE+2) = RZ(NTABLE+2)*DEGRAD\r\n      NTABLE = NTABLE + 26\r\n      IF (NTABLE+26 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      GO TO 290\r\nC\r\nC     COMPUTATION AND INSERTION OF PHI   AND PHI   FOR EACH ENTRY.\r\nC                                     0         1\r\nC\r\n  300 DO 370 I = ITABLE,NTABLE,26\r\nC\r\nC     SET UP PHI  IN THIRD SLOT OF ENTRY = (PHI  + PHI   )/2.0\r\nC               0                              I      I-1\r\nC\r\n      IF (I .NE. ITABLE) GO TO 310\r\nC\r\nC     SPECIAL CASE ON FIRST POINT, TEST M TO FIND PHI\r\nC                                                    I-1\r\nC\r\n      IF (Z(IZ6) .GT. 1) GO TO 320\r\n      PHIL1 = RZ(NTABLE-24) - TWOPI\r\n      GO TO 350\r\n  320 PHIL1 = RZ(ITABLE+1)\r\n      GO TO 350\r\n  310 PHIL1 = RZ(I-25)\r\n  350 RZ(I+2) = (RZ(I+1) + PHIL1) / 2.0\r\nC\r\nC     SET UP PHI  IN FOURTH SLOT OF ENTRY = (PHI  + PHI   )/2.0\r\nC               1                               I      I+1\r\nC\r\n      IF (I .NE. NTABLE-25) GO TO 345\r\nC\r\nC     SPECIAL CASE ON LAST POINT, TEST M TO FIND PHI\r\nC                                                   I+1\r\nC\r\n      IF (Z(IZ6) .GT. 1) GO TO 340\r\n      PHIP1 = RZ(ITABLE+1) + TWOPI\r\n      GO TO 360\r\n  340 PHIP1 = RZ(NTABLE-24)\r\n      GO TO 360\r\n  345 PHIP1 = RZ(I+27)\r\n  360 RZ(I+3) = (RZ(I+1) + PHIP1) / 2.0\r\n  370 CONTINUE\r\nC\r\nC     PICK UP NEXT FLUID POINT IDF\r\nC\r\n      NEXTID = 0\r\n      CALL READ (*10002,*400,MATPOL,NEXTID,1,NOEOR,FLAG)\r\n      IF (NEXTID .NE. IDF) GO TO 400\r\nC\r\nC     NEXTID IS SAME AS CURRENT IDF, THUS ADD ANOTHER ENTRY OF R,Z,L,C,\r\nC     S,RH FIRST MOVE SINGLE ENTRY DOWN UNDER TABLE SO IT CAN GROW.\r\nC\r\n      Z(NTABLE+1) = Z(IDATA  )\r\n      Z(NTABLE+2) = Z(IDATA+1)\r\n      Z(NTABLE+3) = Z(IDATA+2)\r\n      Z(NTABLE+4) = Z(IDATA+3)\r\n      Z(NTABLE+5) = Z(IDATA+4)\r\n      Z(NTABLE+6) = Z(IDATA+5)\r\n      IDATA = NTABLE + 1\r\n      NDATA = NTABLE + 6\r\n  380 IF (NDATA+6 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      CALL READ (*10002,*10003,MATPOL,Z(NDATA+1),6,NOEOR,FLAG)\r\n      NDATA = NDATA + 6\r\nC\r\nC     SKIP THE ID-PHI PAIRS AS THEY SHOULD BE IDENTICAL TO ONES ALREADY\r\nC     IN THE TABLE.\r\nC\r\n  390 CALL READ (*10002,*10003,MATPOL,BUF,2,NOEOR,FLAG)\r\n      IF (BUF(1) .NE. -1) GO TO 390\r\nC\r\nC     READ THE NEXTID\r\nC\r\n      NEXTID = 0\r\n      CALL READ (*10002,*400,MATPOL,NEXTID,1,NOEOR,FLAG)\r\n      IF (NEXTID .EQ. IDF) GO TO 380\r\nC\r\nC     SORT THE TABLE ON FIELD ONE OF EACH ENTRY THE ID.\r\nC\r\n  400 CALL SORT (0,0,26,1,Z(ITABLE),NTABLE-ITABLE+1)\r\nC\r\nC                                  T\r\nC     FOR EACH ENTRY GENERATE THE T T   MATRICE AND IF LKBFL = .TRUE.\r\nC                                  I 0F\r\nC\r\nC     THE W  MATRICE.\r\nC          I\r\nC\r\n      DO 500 I = ITABLE,NTABLE,26\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRIX IN DOUBLE PRECISION.\r\nC     FIRST LOCATE BGPDT ENTRY\r\nC\r\n      KID = Z(I)\r\n      CALL BISLOC (*10004,KID,Z(IBGPDT),5,ENTRYS,POINT)\r\n      POINT = POINT + IBGPDT\r\n      CALL BMGTNS (Z(ICSTM),LCSTM,Z(POINT),TI(1))\r\nC\r\nC     COMPUTE VI MATRIX.  (3X3)\r\nC\r\n      CALL GMMATD (TI(1),3,3,1, T0F(1),3,3,0, Z(I+4))\r\n      IF (.NOT. LKBFL) GO TO 500\r\n      J = (I+4)/2\r\n      RZ(I+22) = DZ(J+3)\r\n      RZ(I+23) = DZ(J+6)\r\n      RZ(I+24) = DZ(J+9)\r\n  500 CONTINUE\r\nC\r\nC     GENERATION AND OUTPUT OF MATRIX COLUMNS TO THE ABFL MATRIX.\r\nC\r\n      IF (.NOT.LABFL) GO TO 690\r\n      DO 680 I = IN,NN\r\nC\r\nC     COLUMN INDEX INFORMATION GJ,CJ FOR THIS HARMONIC COLUMN\r\nC\r\n      BUF(1) = IDF + Z(I)*500000\r\n      BUF(2) = 0\r\n      CALL WRITE (BDPOOL,BUF,2,NOEOR)\r\nC\r\nC     TERMS OF THE COLUMN\r\nC\r\n      DO 670 J = ITABLE,NTABLE,26\r\nC\r\nC     3 TERMS FOR THE J-TH ID ARE THE FOLLOWING SUMMATION\r\nC\r\n      TERM(1) = 0.0D0\r\n      TERM(2) = 0.0D0\r\n      TERM(3) = 0.0D0\r\n      DO 650 K = IDATA,NDATA,6\r\nC\r\nC                     N\r\nC     COMPUTATION OF A\r\nC                     I\r\nC\r\n      AIN = RZ(K)*RZ(K+2)\r\n      N   = (Z(I) - 1) / 2\r\n      FN  = N\r\n      IF (N) 520,510,520\r\nC\r\nC     N = 0\r\nC\r\n  510 AIN = AIN*DBLE(RZ(J+3) - RZ(J+2))\r\n      GO TO 545\r\nC\r\nC     N IS POSITIVE, CHECK FOR STAR CASE = N*\r\nC\r\n  520 IF (MOD(Z(I),2)) 540,530,540\r\n  530 DUB = (SIN(RZ(J+3)*FN) - SIN(RZ(J+2)*FN)) / FN\r\n      AIN = AIN*DUB\r\n      GO TO 545\r\n  540 DUB = (COS(RZ(J+2)*FN) - COS(RZ(J+3)*FN)) / FN\r\n      AIN = AIN*DUB\r\nC\r\nC     FORM VI MATRIX FOR THIS POINT\r\nC\r\n  545 DTEMP(1) = RZ(K+3)*COS(RZ(J+1))\r\n      DTEMP(2) = RZ(K+3)*SIN(RZ(J+1))\r\n      DTEMP(3) = RZ(K+4)\r\n      CALL GMMATD (Z(J+4),3,3,0, DTEMP(1),3,1,0, VI(1))\r\n      DO 550 L = 1,3\r\n      TERM(L) = TERM(L) + AIN*VI(L)\r\n  550 CONTINUE\r\n  650 CONTINUE\r\nC\r\nC     OUTPUT THESE 3 TERMS\r\nC\r\n      BUF(1) = Z(J)\r\n      DO 660 K = 1,3\r\n      BUF(2) = K\r\n      RBUF(3) = TERM(K)\r\n      IF (RBUF(3)) 655,660,655\r\n  655 CALL WRITE (BDPOOL,BUF,3,NOEOR)\r\n  660 CONTINUE\r\n  670 CONTINUE\r\n      CALL WRITE (BDPOOL,MONES,2,NOEOR)\r\n  680 CONTINUE\r\nC\r\nC     GENERATION AND OUTPUT OF COLUMNS TO THE KBFL MATRIX.\r\nC\r\n  690 IF (.NOT.LKBFL) GO TO 800\r\n      DO 750 I = ITABLE,NTABLE,26\r\n      COSPHI = COS(RZ(I+1))\r\n      SINPHI = SIN(RZ(I+1))\r\n      ANGLE   = RZ(I+3) - RZ(I+2)\r\nC\r\nC     PUT OUT 3 COLUMNS FOR EACH OF THESE CONNECTED GRIDPOINTS\r\nC\r\nC     SOLVE NOW FOR K   V  = 3X1  CONSTANT FOR THE 3 COLUMNS\r\nC                    II  I\r\nC\r\nC     AND IS A SUMMATION\r\nC\r\n      TERM(1) = 0.0D0\r\n      TERM(2) = 0.0D0\r\n      TERM(3) = 0.0D0\r\n      DO 715 J = IDATA,NDATA,6\r\n      KII = RZ(J)*RZ(J+2)*RZ(J+5)*RZ(IZ2)*ANGLE\r\n      DTEMP(1) = KII*RZ(J+3)*COSPHI\r\n      DTEMP(2) = KII*RZ(J+3)*SINPHI\r\n      DTEMP(3) = KII*RZ(J+4)\r\n      CALL GMMATD (Z(I+4),3,3,0, DTEMP(1),3,1,0, VI(1))\r\n      DO 710 K = 1,3\r\n      TERM(K) = TERM(K) + VI(K)\r\n  710 CONTINUE\r\n  715 CONTINUE\r\nC\r\nC     PUT OUT THE 3 COLUMNS\r\nC\r\n      DO 740 J = 1,3\r\n      HEAD = .FALSE.\r\n      L = I + J + 21\r\n      DTEMP(1) = DBLE(RZ(L))*TERM(1)\r\n      DTEMP(2) = DBLE(RZ(L))*TERM(2)\r\n      DTEMP(3) = DBLE(RZ(L))*TERM(3)\r\n      BUF(1) = Z(I)\r\n      DO 730 K = 1,3\r\n      BUF(2) = K\r\n      RBUF(3) = DTEMP(K)\r\nC\r\nC     TERM IS NOT WRITTEN IF HAS A ZERO VALUE\r\nC\r\n      IF (RBUF(3)) 720,730,720\r\n  720 IF (HEAD) GO TO 721\r\n      BUF(4) = Z(I)\r\n      BUF(5) = J\r\n      CALL WRITE (SCRT1,BUF(4),2,NOEOR)\r\n      HEAD = .TRUE.\r\n  721 CALL WRITE (SCRT1,BUF,3,NOEOR)\r\n  730 CONTINUE\r\n      IF (HEAD) CALL WRITE (SCRT1,MONES,2,NOEOR)\r\n  740 CONTINUE\r\n  750 CONTINUE\r\nC\r\nC     PROCESS THE NEXT FLUID POINT\r\nC\r\n  800 IF (NEXTID) 810,840,810\r\n  810 IDF = NEXTID\r\n      GO TO 285\r\nC\r\nC     ALL FLUID POINTS HAVE NOW BEEN PROCESSED.  APPEND THE KBFL, IF\r\nC     ANY, DATA TO THE ABFL DATA AND WRAP UP.\r\nC\r\n  840 IF (LABFL) CALL WRITE (BDPOOL,MONES,2,NOEOR)\r\n      IF (.NOT.LKBFL) GO TO 900\r\n      CALL WRITE (SCRT1,0,0,EOR)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      FILE = SCRT1\r\n      CALL OPEN (*10001,SCRT1,Z(BUF3),RDREW)\r\n  850 CALL READ (*10002,*860,SCRT1,Z(1),CORE,NOEOR,FLAG)\r\n      CALL WRITE (BDPOOL,Z(1),CORE,NOEOR)\r\n      GO TO 850\r\n  860 CALL WRITE (BDPOOL,Z(1),FLAG,NOEOR)\r\n      CALL WRITE (BDPOOL,MONES,2,EOR)\r\n  900 CALL CLOSE (BDPOOL,CLSREW)\r\nC\r\nC     PREPARE AND WRITE TRAILER\r\nC\r\n      BUF(1) = BDPOOL\r\nC\r\nC     SET TRAILER BIT FOR DMIG CARDS\r\nC\r\n      BUF(2) = 32768\r\n      BUF(3) = 0\r\n      BUF(4) = 0\r\n      BUF(5) = 0\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      CALL WRTTRL (BUF)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\nC\r\nC     END OF PROCESSING\r\nC\r\n10000 CALL CLOSE (MATPOL,CLSREW)\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n10001 CALL MESAGE (-1,FILE,SUBR)\r\n10002 CALL MESAGE (-2,FILE,SUBR)\r\n10003 CALL MESAGE (-3,FILE,SUBR)\r\n      GO TO 10000\r\n10004 WRITE  (IOUT,10005) SFM,Z(I)\r\n10005 FORMAT (A25,' 4061, CONNECTED FLUID POINT ID =',I10,\r\n     1       ' IS MISSING BGPDT DATA.')\r\nC\r\n 9999 CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/bmgtns.f",
    "content": "      SUBROUTINE BMGTNS(CSTM,NCSTM,ECPT,TA)\r\nC/// THIS ROUTINE WAS LIFTED FROM PRETRD AND TRANSD AND CONVERTED\r\nC///// TO HAVE ONE ENTRY POINT\r\nC\r\nC PRETRD SETS UP EVENTUAL CALLS TO TRANSD.  FOR A MODULE TO USE TRANSD\r\nC A CALL TO PRETRD MUST BE INITIATED BY THE MODULE DRIVER ONCE AND ONLY\r\nC ONCE.  CSTM IS ARRAY OF COORDINATE SYSTEM TRANSFORMATION MATRICES\r\nC AND NCSTM IS THE LENGTH OF THIS ARRAY.\r\nC\r\n      DIMENSION          CSTM(1)\r\nC*****\r\nC GIVEN THE ECPT ARRAY OF LENGTH 4, THE FIRST WORD BEING AN INTEGER\r\nC COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING THE\r\nC REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE\r\nC COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH WILL\r\nC MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC COORDI-\r\nC NATES.  TA IS A DOUBLE PRECISION MATRIX.\r\nC*****\r\n      DIMENSION          ECPT(4)\r\nC\r\n      DOUBLE PRECISION\r\n     1                   TA(9)              ,TL(9)\r\n     2,                  XN(3)              ,X\r\n     3,                  Y                  ,Z\r\n     4,                  R                  ,KE(9)\r\n     5,                  XL\r\nC\r\n      EQUIVALENCE        (FL1,INT1)         ,(FL2,INT2)\r\nC\r\n      FL1 = ECPT(1)\r\n      IF(INT1.EQ.0) GO TO 13\r\n      DO 6 I = 1,NCSTM,14\r\n      FL2 = CSTM(I)\r\n      IF(INT1.NE.INT2) GO TO 6\r\n      KK = I\r\n      FL2 = CSTM(I + 1)\r\n      GO TO (7,10,10),INT2\r\n    6 CONTINUE\r\nC\r\nC THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM.\r\nC\r\n      CALL MESAGE (-30,25,INT1)\r\nC\r\nC THE COORDINATE SYSTEM IS RECTANGULAR.\r\nC\r\n    7 DO 8 J = 1,9\r\n      K = KK + 4 + J\r\n    8 TA(J) = CSTM(K)\r\n      RETURN\r\n   10 XN(1) = ECPT(2) - CSTM(KK+2)\r\n      XN(2) = ECPT(3) - CSTM(KK+3)\r\n      XN(3) = ECPT(4) - CSTM(KK + 4)\r\n      X = CSTM(KK+5)*XN(1)+CSTM(KK+8)*XN(2)+CSTM(KK+11)*XN(3)\r\n      Y = CSTM(KK+6)*XN(1)+CSTM(KK+9)*XN(2)+CSTM(KK+12)*XN(3)\r\n      Z = CSTM(KK+7)*XN(1)+CSTM(KK+10)*XN(2)+CSTM(KK+13)*XN(3)\r\n      R = DSQRT(X**2+Y**2)\r\n      IF (R .EQ. 0.0D0) GO TO 7\r\n      DO 110 J=1,9\r\n      K=KK+4+J\r\n  110 KE(J)=CSTM(K)\r\n      GO TO (11,11,12),INT2\r\nC\r\nC THE COORDINATE SYSTEM IS CYLINDRICAL.\r\nC\r\n   11 TL(1)=X/R\r\n      TL(2)=-Y/R\r\n      TL(3)=0.0D0\r\n      TL(4)=-TL(2)\r\n      TL(5)=TL(1)\r\n      TL(6)=0.0D0\r\n      TL(7)=0.0D0\r\n      TL(8)=0.0D0\r\n      TL(9)=1.0D0\r\n      GO TO 125\r\nC\r\nC THE COORDINATE SYSTEM IS SPHERICAL.\r\nC\r\n   12 XL=DSQRT(X*X+Y*Y+Z*Z)\r\n      TL(1)=X/XL\r\n      TL(2)=(X*Z)/(R*XL)\r\n      TL(3)=-Y/R\r\n      TL(4)=Y/XL\r\n      TL(5)=(Y*Z)/(R*XL)\r\n      TL(6)=X/R\r\n      TL(7)=Z/XL\r\n      TL(8)=-R/XL\r\n      TL(9)=0.0D0\r\n  125 CALL GMMATD (KE(1),3,3,0, TL(1),3,3,0, TA(1))\r\n      RETURN\r\nC\r\nC THE LOCAL SYSTEM IS BASIC.\r\nC\r\n   13 DO 14 I=1,9\r\n   14 TA(I)=0.0D0\r\n      TA(1)=1.0D0\r\n      TA(5)=1.0D0\r\n      TA(9)=1.0D0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/border.f",
    "content": "      SUBROUTINE BORDER (GPLST,X,U,ISTORE,DEFORM,B1,OPCOR)\r\nC\r\n      INTEGER        GPLST(1),DEFORM,OPCOR,SCR2,WORDS(2),ELID,B1,SCR4\r\n      REAL           X(3,1),U(2,1)\r\n      DIMENSION      PT(2,3),ISTORE(2)\r\n      COMMON /BLANK/ SKIP(25),SCR2,SCR3,SCR4\r\n      EQUIVALENCE    (WORDS(1),NELMT),(WORDS(2),IGDPT)\r\nC\r\n      LCOR = OPCOR/5 - 1\r\n      CALL OPEN (*150,SCR2,GPLST(B1),0)\r\n      CALL LINE (0.,0.,0.,0.,1,-1)\r\n    9 CALL FWDREC (*100,SCR2)\r\n   10 CALL READ (*100,*9,SCR2,IFLAG,1,0,M)\r\n      IF (IFLAG .EQ.  0) GO TO 100\r\n      IF (IFLAG .EQ. -1) GO TO 9\r\n      CALL FREAD (SCR2,WORDS,2,0)\r\n      IE = -1\r\n   20 IE = IE + 2\r\n      CALL READ (*100,*30,SCR2,ELID,1,0,M)\r\n      CALL FREAD (SCR2,ISTORE(IE),2,0)\r\n      GO TO 20\r\n   30 IONE = ISTORE(1)\r\n      ITWO = ISTORE(2)\r\n      IF (NELMT .EQ. 1) GO TO 50\r\n      IE = 2*NELMT\r\n      IE1= IE - 1\r\n      DO 37 I = 1,IE1\r\n      IF (ISTORE(I) .EQ. 0) GO TO 37\r\n      IP1 = I + 1\r\n      DO 36 J = IP1,IE\r\n      IF (ISTORE(I) .NE. ISTORE(J)) GO TO 36\r\n      ISTORE(I) = 0\r\n      ISTORE(J) = 0\r\n      GO TO 37\r\n   36 CONTINUE\r\n   37 CONTINUE\r\n      J = 0\r\n      DO 40 I = 1,IE\r\n      IF (ISTORE(I) .EQ. 0) GO TO 40\r\n      J = J + 1\r\n      IF (J-1) 38,38,39\r\n   38 IONE = ISTORE(I)\r\n      GO TO 40\r\n   39 ITWO = ISTORE(I)\r\n   40 CONTINUE\r\n      IF (J .EQ. 0) GO TO 10\r\n   50 IG = IABS(GPLST(IGDPT))\r\n      IF (DEFORM .NE. 0) GO TO 57\r\n      PT(1,3) = X(2,IG)\r\n      PT(2,3) = X(3,IG)\r\n      GO TO 60\r\n   57 PT(1,3) = U(1,IG)\r\n      PT(2,3) = U(2,IG)\r\n   60 IG = IONE\r\n      DO 65 I = 1,2\r\n      IG = IABS(GPLST(IG))\r\n      IF (DEFORM .NE. 0) GO TO 63\r\n      PT(1,I) = X(2,IG)\r\n      PT(2,I) = X(3,IG)\r\n      GO TO 64\r\n   63 PT(1,I) = U(1,IG)\r\n      PT(2,I) = U(2,IG)\r\n   64 CALL LINE (PT(1,I),PT(2,I),PT(1,3),PT(2,3),1,0)\r\n      IG = ITWO\r\n   65 CONTINUE\r\n      GO TO 10\r\n  100 CALL LINE (0.,0.,0.,0.,1,+1)\r\n      CALL CLOSE (SCR2,1)\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bound.f",
    "content": "      SUBROUTINE BOUND (FBREC,AFE,NAFE,KGE,NKGE)\r\nC\r\nC     COMPUTES AREA FACTOR AND GRAVITIONAL STIFFNESS MATRICES FOR A FACE\r\nC     OF A INDIVIDUAL FLUID ELEMENT\r\nC\r\n      LOGICAL         ERROR    ,GRAV\r\n      INTEGER         GF1      ,GF2      ,GF3      ,GF4      ,FBREC(12),\r\n     1                GS1      ,GS2      ,GS3      ,GS4      ,GRID(3,4),\r\n     2                GSI      ,GSJ      ,IZ(1)    ,LOCSOF(4),LOCTOF(3),\r\n     3                LOCFOS(4),FLEDGE(2,4)        ,FEDGE(2,4)         ,\r\n     4                STEDGE(2,3)\r\n      REAL            Z\r\n      DOUBLE PRECISION          AFE(48)  ,KGE(144) ,IN(3)    ,JN(3)    ,\r\n     1                KN(3)    ,R12(3)   ,R13(3)   ,R14(3)   ,R24(3)   ,\r\n     2                H        ,NN       ,KS(3)    ,MAG      ,X3       ,\r\n     3                Y3       ,Y4       ,S(48)    ,X4       ,AKJ(3,4) ,\r\n     4                AA       ,BB       ,CC       ,A        ,ZZ       ,\r\n     5                DVMAG    ,RHOXG    ,Y(3)     ,E(3,2)   ,KII(144) ,\r\n     6                KTWO(2,2),KIK(9)   ,T(3,3)   ,KTEMP(2,3)         ,\r\n     7                TFST(3,3),Z1       ,X1       ,DHALF    ,C1       ,\r\n     8                ST(3,4)  ,Z2       ,Y1       ,EPS(2)   ,C2       ,\r\n     9                FL(3,4)  ,Z3       ,X2       ,DLB      ,C3       ,\r\n     O                TR(3,3)  ,Z4       ,Y2       ,DUB      ,D1       ,\r\n     1                P(2,7)   ,SS(9)    ,AA2      ,NN1      ,D2       ,\r\n     2                C(4,7)   ,EPSLON   ,FDET     ,ZZ1      ,DZ       ,\r\n     3                F(3,7)   ,NX       ,AKJCON   ,DD       ,AEPS     ,\r\n     4                PT(3,4)  ,TRIA     ,EPSO10   ,AFLEL    ,LEPS     ,\r\n     5                VTEMP(3) ,KSB(3)   ,NZ       ,KIDENT(3),FACTII   ,\r\n     6                CONII    ,FII      ,DPOLY    ,ASTRIA   ,ASTREL   ,\r\n     7                AFLSTR   ,DADOTB   ,DAPOLY\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC     CORE POINTERS\r\nC\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NBGPDT   ,\r\n     1                ISIL     ,NSIL     ,IGRAV    ,NGRAV\r\nC\r\nC     MATERIAL PROPERTIES\r\nC\r\n      COMMON /MATIN / MATID    ,INFLAG\r\n      COMMON /MATOUT/ DUM(3)   ,RHO\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK / NOGRAV\r\nC\r\nC     NASTRAN PARAMETERS\r\nC\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      EQUIVALENCE     (TFST(1,1),IN(1))  ,(X1,FL(1,1))  ,(X2,FL(1,2))  ,\r\n     1                (TFST(1,2),JN(1))  ,(Y1,FL(2,1))  ,(Y2,FL(2,2))  ,\r\n     2                (TFST(1,3),KN(1))  ,(Z1,FL(3,1))  ,(Z2,FL(3,2))  ,\r\n     3                (SS(1),BB)         ,(X3,FL(1,3))  ,(X4,FL(1,4))  ,\r\n     4                (SS(2),CC)         ,(Y3,FL(2,3))  ,(Y4,FL(2,4))  ,\r\n     5                (SS(3),ZZ)         ,(Z3,FL(3,3))  ,(Z4,FL(3,4))  ,\r\n     6                (SS(4),NN)         ,(SS(5),NN1)   ,(SS(6),ZZ1 )  ,\r\n     7                (EPS(1),AEPS)      ,(EPS(2),LEPS) ,(FII,BB    )  ,\r\n     8                (FACTII,CC)        ,(CONII,AKJCON),(Z(1),IZ(1))\r\nC\r\nC     GRID POINTS TO BE USED IN SUBDIVIDING QUADS INTO TRIANGLES\r\nC\r\n      DATA    GRID  /  1     ,2     ,3   ,\r\n     1                 2     ,3     ,4   ,\r\n     2                 3     ,4     ,1   ,\r\n     3                 4     ,1     ,2   /\r\nC\r\n      DATA    DZ, D1,  D2, DHALF / 0.D0,  1.D0, 2.D0, .5D0 /\r\n      DATA    EPSLON,  EPSO10    / 1.D-3, 1.D-4            /\r\n      DATA    DLB   ,  DUB       /-1.D-3, 1.001D0          /\r\n      DATA    X1, X2,  Y1, Y2, Z1, Z2, Z3, Z4 / 8*0.D0     /\r\nC\r\n      DATA    FEDGE /  1,2, 2,3, 3,4, 4,1 /\r\n      DATA    STEDGE/  1,2, 2,3, 3,1      /\r\n      DATA    KIDENT/  0.D0, 0.D0, 1.D0   /\r\nC\r\nC\r\nC     DETERMINE SIZES OF MATRIX PARTITIONS\r\nC\r\n      NGRIDS = 4\r\n      IF (FBREC( 6) .LT. 0) NGRIDS = 3\r\n      NGRIDF = 4\r\n      IF (FBREC(12) .LT. 0) NGRIDF = 3\r\nC\r\n      NROW = 3*NGRIDS\r\n      NAFE = NROW*NGRIDF*2\r\n      NKGE = 0\r\nC\r\nC     OBTAIN MATERIAL PROPERTY AND GRAVITY DATA IF GRAV ID IS\r\nC     PRESENT\r\nC\r\n      GRAV   = .FALSE.\r\n      IF (FBREC(7) .EQ. 0) GO TO 600\r\n      INFLAG = 11\r\n      MATID  = FBREC(8)\r\n      CALL MAT (FBREC(1))\r\nC\r\n      IF (NGRAV .EQ. 0) GO TO 8013\r\n      LGRAV = IGRAV + NGRAV - 1\r\n      DO 200 I = IGRAV,LGRAV,6\r\n      IF (IZ(I) .EQ. FBREC(7)) GO TO 400\r\n  200 CONTINUE\r\nC\r\n      GO TO 8013\r\nC\r\n  400 G     = SQRT(Z(I+3)**2 + Z(I+4)**2 + Z(I+5)**2)\r\n      G     = G*Z(I+2)\r\n      RHOXG = DBLE(RHO)*DBLE(G)\r\n      NKGE  = NROW*NROW*2\r\n      NOGRAV= 1\r\n      GRAV  = .TRUE.\r\nC\r\nC     NORMILIZE THE GRAVITY VECTOR\r\nC\r\n      E(1,2) = DBLE(Z(I+3))\r\n      E(2,2) = DBLE(Z(I+4))\r\n      E(3,2) = DBLE(Z(I+5))\r\n      CALL DNORM (E(1,2),MAG)\r\n      IF (IZ(I+1) .EQ. 0) GO TO 600\r\nC\r\nC     TRANSFORM GRAVITY VECTOR TO BASIC\r\nC\r\n      J = IZ(IBGPDT)\r\n      IZ(IBGPDT) = IZ(I+1)\r\n      CALL TRANSD (IZ(IBGPDT),TR)\r\n      IZ(IBGPDT) = J\r\n      CALL GMMATD (TR,3,3,0,E(1,2),3,1,0,VTEMP)\r\n      DO 500 J = 1,3\r\n  500 E(J,2) = VTEMP(J)\r\nC\r\nC\r\nC     COMPUTE NEW COORDINATES FOR FLUID FACE BASED ON FLUID COORDINATE\r\nC     SYSTEM - PERFORM THIS ONLY IF THE FLUID FACE HAS CHANGED\r\nC     THESE COMPUTATIONS INCLUDE --\r\nC\r\nC        IN,JN,KN  - NORMAL VECTORS TO DEFINE FLUID COORDINATE SYSTEM\r\nC        X2,X3,X4  - X COORDINATES OF GRID POINTS IN NEW SYSTEM\r\nC                    ( X1 = 0 )\r\nC        Y3,Y4       Y COORDINATES OF GRID POINTS IN NEW SYSTEM\r\nC                    ( Y1,Y2 = 0 )\r\nC\r\nC     NORMAL (UNIT) VECTORS STORED *COLUMN-WISE* IN U --\r\nC           I IN U(L,1), J IN U(L,2), K IN U(L,3), L= 1,3\r\nC        TRANSFORMED FLUID COORDINATES STORED IN FL\r\nC\r\nC\r\nC     LOCATE GRID POINTS COORDINATES FOR THE FLUID GRID POINTS IN THE\r\nC     BGPDT TABLE\r\nC\r\n  600 GF1 = IBGPDT + (FBREC( 9)-1)*4\r\n      GF2 = IBGPDT + (FBREC(10)-1)*4\r\n      GF3 = IBGPDT + (FBREC(11)-1)*4\r\n      GF4 = -1\r\n      IF (NGRIDF .EQ. 4) GF4 = IBGPDT + (FBREC(12)-1)*4\r\nC\r\n      IF (NGRIDF .EQ. 4) GO TO 700\r\nC\r\nC     TRIANGULAR FLUID FACE\r\nC\r\n      DO 660 I = 1,3\r\n      R12(I) = Z(GF2+I) - Z(GF1+I)\r\n      IN(I)  = R12(I)\r\n  660 R13(I) = Z(GF3+I) - Z(GF1+I)\r\nC\r\n      CALL DNORM (IN,MAG)\r\n      X2 = MAG\r\nC\r\n      CALL DAXB  (R12,R13,KN)\r\n      CALL DNORM (KN,MAG)\r\nC\r\n      CALL DAXB (KN,IN,JN)\r\nC\r\n      X3 = R13(1)*IN(1) + R13(2)*IN(2) + R13(3)*IN(3)\r\n      Y3 = R13(1)*JN(1) + R13(2)*JN(2) + R13(3)*JN(3)\r\n      GO TO 1000\r\nC\r\nC     QUADRATIC FLUID FACE\r\nC\r\n  700 DO 800 I = 1,3\r\n      R12(I) = Z(GF2+I) - Z(GF1+I)\r\n      R13(I) = Z(GF3+I) - Z(GF1+I)\r\n      R14(I) = Z(GF4+I) - Z(GF1+I)\r\n  800 R24(I) = Z(GF4+I) - Z(GF2+I)\r\nC\r\n      CALL DAXB  (R13,R24,KN)\r\n      CALL DNORM (KN,MAG)\r\nC\r\n      H = R12(1)*KN(1) + R12(2)*KN(2) + R12(3)*KN(3)\r\nC\r\n      DO 900 I = 1,3\r\n  900 IN(I) = R12(I) - H*KN(I)\r\n      CALL DNORM (IN,MAG)\r\nC\r\n      X2 = MAG\r\nC\r\n      CALL DAXB (KN,IN,JN)\r\nC\r\n      X3 = R13(1)*IN(1) + R13(2)*IN(2) + R13(3)*IN(3)\r\n      X4 = R14(1)*IN(1) + R14(2)*IN(2) + R14(3)*IN(3)\r\n      Y3 = R13(1)*JN(1) + R13(2)*JN(2) + R13(3)*JN(3)\r\n      Y4 = R14(1)*JN(1) + R14(2)*JN(2) + R14(3)*JN(3)\r\nC\r\nC     VARIOUS CALCULATIONS DEPENDENT ON FLUID FACE\r\nC\r\nC     INDICES FOR CORNERS OF FLUID ELEMENT\r\nC\r\n 1000 DO 1010 N = 1,2\r\n      DO 1010 J = 1,NGRIDF\r\n 1010 FLEDGE(N,J) = FEDGE(N,J)\r\n      FLEDGE(2,NGRIDF) = 1\r\nC\r\nC     SET UP FOR FLUID TRIANGLE\r\nC\r\n      C1 = (D1 - FL(1,3)/FL(1,2))/FL(2,3)\r\n      C2 = FL(1,3)/(FL(1,2)*FL(2,3))\r\n      DO 1020 N = 1,3\r\n      R12(N) = FL(N,2) - FL(N,1)\r\n 1020 R13(N) = FL(N,3) - FL(N,1)\r\n      CALL DAXB (R12,R13,VTEMP)\r\nC\r\n      IF (NGRIDF .EQ. 3) GO TO 1040\r\nC\r\nC     SET UP FOR FLUID QUADRANGLE\r\nC\r\n      C1  = FL(2,3) - FL(2,4)\r\n      C2  = FL(1,2)*FL(2,4)\r\n      C3  = FL(1,2) - FL(1,3) + FL(1,4)\r\n      AA  =-FL(1,2)*C1\r\n      AA2 = D2*AA\r\nC\r\n      DO 1030 N = 1,3\r\n      R13(N) = FL(N,3) - FL(N,1)\r\n 1030 R24(N) = FL(N,4) - FL(N,2)\r\n      CALL DAXB (R13, R24,VTEMP)\r\n 1040 AFLEL = DVMAG(VTEMP,DZ)\r\nC\r\nC     ZERO OUT AREA FACTOR MATRIX\r\nC     AND AREA COMMON TO FLUID AND STRUCTURE ELEMENTS (AFLSTR)\r\nC\r\n      DO 1042 I = 1,48\r\n      AFE(I) = DZ\r\n 1042 S(I) = 0.0D0\r\n      DO 1044 I = 1,144\r\n 1044 KGE(I) = 0.0D0\r\n      AFLSTR = 0.0\r\nC\r\nC     DETERMINE NUMBER OF STRUCTURAL TRIANGLES TO BE USED, ITRIA\r\nC     AND CUMULATIVE AREA CONSTANT, TRIA\r\nC        ITRIA= 4, TRIA= .5 WHEN STRUCTURE ELEMENT IS QUADRANGLE\r\nC        ITRIA= 1, TRIA= 1. WHEN STRUCTURE ELEMENT IS TRIANGLE\r\nC\r\n      ITRIA = 1\r\n      TRIA  = D1\r\n      IF (NGRIDS .EQ. 3) GO TO 1050\r\n      ITRIA = 4\r\n      TRIA  = DHALF\r\nC\r\nC     TRANSFORM STRUCTURE COORDINATES TO FLUID COORDINATE SYSTEM\r\nC\r\n 1050 GS1 = IBGPDT + (FBREC(3)-1)*4\r\n      GS2 = IBGPDT + (FBREC(4)-1)*4\r\n      GS3 = IBGPDT + (FBREC(5)-1)*4\r\n      GS4 = -1\r\n      IF (NGRIDS .EQ. 4) GS4 = IBGPDT + (FBREC(6)-1)*4\r\nC\r\n      DO 1060 N = 1,3\r\n      PT(N,1) = Z(GS1+N) - Z(GF1+N)\r\n      PT(N,2) = Z(GS2+N) - Z(GF1+N)\r\n      PT(N,3) = Z(GS3+N) - Z(GF1+N)\r\n      PT(N,4) = DZ\r\n      IF (NGRIDS .EQ. 4) PT(N,4) = Z(GS4+N) - Z(GF1+N)\r\n      DO 1060 K = 1,4\r\n      ST(N,K) = DZ\r\n 1060 CONTINUE\r\nC\r\n      DO 1070 K = 1,NGRIDS\r\n      DO 1070 N = 1,3\r\n      DO 1070 M = 1,3\r\n 1070 ST(N,K) =  ST(N,K) + PT(M,K)*TFST(M,N)\r\n      DO 1075 N = 1,2\r\n      R12(N) = ST(N,2) - ST(N,1)\r\n      R13(N) = ST(N,3) - ST(N,1)\r\n      IF (NGRIDS .EQ. 4) R24(N) = ST(N,4) - ST(N,2)\r\n 1075 CONTINUE\r\n      CALL DAXB (R12,R13,VTEMP)\r\n      IF (NGRIDS .EQ. 4) CALL DAXB (R12,R24,VTEMP)\r\n      ASTREL = DVMAG(VTEMP,DZ)\r\n      AEPS   = DHALF*DMIN1(AFLEL,ASTREL)\r\n      LEPS   = DZ\r\n      IF (AEPS .GT. DZ) LEPS = EPSLON*DSQRT(AEPS)\r\n      AEPS   = EPSLON*AEPS\r\nC\r\nC     LOCATE STRUCTURE ELEMENT GRIDS RELATIVE TO FLUID SURFACE\r\nC     LOCSOF FLAGS STRUCTURE ON FLUID:\r\nC            1= INSIDE, -1= OUTSIDE, 0= ON FLUID EDGE\r\nC\r\n      CALL LOCPT (NGRIDS,ST,NGRIDF,FL,FLEDGE,KIDENT,EPS,LOCSOF)\r\nC\r\nC\r\nC     LOOP THRU (INCREMENTAL) STRUCTURAL TRIANGLES (ITRIA IS 1 OR 4)\r\nC\r\n      DO 2500 IT = 1,ITRIA\r\nC\r\nC     LOCATE COORDINATES OF CURRENT TRIANGLE\r\nC\r\n      GS1 = GRID(1,IT)\r\n      GS2 = GRID(2,IT)\r\n      GS3 = GRID(3,IT)\r\nC\r\n      LOCTOF(1) = LOCSOF(GS1)\r\n      LOCTOF(2) = LOCSOF(GS2)\r\n      LOCTOF(3) = LOCSOF(GS3)\r\nC\r\nC     TRANSFER COORDINATES OF CURRENT STRUCTURE TRIANGLE TO CONTIGUOUS\r\nC     ARRAY, AND DO VARIOUS CALCULATIONS DEPENDENT ON THEM\r\nC\r\n      DO 1100 N = 1,3\r\n      TR(N,1) = ST(N,GS1)\r\n      TR(N,2) = ST(N,GS2)\r\n      TR(N,3) = ST(N,GS3)\r\n      R12(N)  = TR(N,2) - TR(N,1)\r\n 1100 R13(N)  = TR(N,3) - TR(N,1)\r\nC\r\nC     OBTAIN KS, UNIT VECTOR NORMAL TO (XY) PLANE OF CURRENT STRUCTURAL\r\nC     TRIANGLE (IN SYSTEM LOCAL TO FLUID ELEMENT)\r\nC\r\n      CALL DAXB (R12,R13,KS)\r\n      ASTRIA = DVMAG(KS,DZ)\r\n      CALL DNORM (KS,MAG)\r\nC\r\nC     OBTAIN KSB, UNIT VECTOR NORMAL TO (XY) PLANE OF CURRENT STRUCTURE\r\nC     TRIANGLE (IN NASTRAN BASIC COORD SYSTEM)\r\nC\r\n      DO 1150 N = 1,3\r\n      R12(N) = PT(N,GS2) - PT(N,GS1)\r\n      R13(N) = PT(N,GS3) - PT(N,GS1)\r\n 1150 CONTINUE\r\nC\r\n      CALL DAXB  (R12,R13,KSB)\r\n      CALL DNORM (KSB,MAG)\r\nC\r\nC     CALCULATE EPSLON FUNCTIONS FOR SIGNIFICANCE TESTING\r\nC\r\n      LEPS = DZ\r\n      AEPS = DHALF*DMIN1(AFLEL,ASTRIA)*EPSLON\r\n      IF (AEPS .GT. DZ)  LEPS = DSQRT(AEPS)\r\nC\r\nC     DETERMINE POINTS DESCRIBING AREA POLYGON COMMON TO BOTH FLUID\r\nC     ELEMENT AND (INCREMENTAL) STRUCTURAL TRIANGLE\r\nC\r\nC        POLYGON POINTS IN   P(2,I)    I .LE. 7\r\nC        FLUID POINTS IN     FL(3,J)   J .LE. 4\r\nC        TRIANGLE POINTS IN  TR(3,K)   K=1,3\r\nC\r\nC     DETERMINE POINTS DESCRIBING POLYGON OF COMMON AREA\r\nC\r\nC\r\nC     LOCATE FLUID ELEMENT POINTS RELATIVE TO BOUNDRY OF THIS STRUCTURAL\r\nC     TRIANGLE\r\nC\r\n      CALL LOCPT (NGRIDF,FL,3,TR,STEDGE,KS,EPS,LOCFOS)\r\n      DO 1240 J = 1,NGRIDF\r\n      IF (LOCFOS(J) .LT. 0) GO TO 1300\r\n 1240 CONTINUE\r\nC\r\nC     FLUID ELEMENT IS COMMON AREA POLYGON WHEN NO FLUID POINTS ARE\r\nC     OUTSIDE BOUNDRY OF THIS STRUCTURAL TRIANGLE\r\nC\r\n      NPOLY = NGRIDF\r\n      DO 1250 N = 1,2\r\n      DO 1250 J = 1,NGRIDF\r\n 1250 P(N,J) = FL(N,J)\r\n      GO TO 2000\r\nC\r\nC     CALL POLYPT TO DETERMINE POINTS DESCRIBING THE COMMON AREA POLYGON\r\nC\r\n 1300 CALL POLYPT (LOCTOF,STEDGE,TR,NGRIDF,FLEDGE,FL,LOCFOS,EPS,NPOLY,P)\r\nC\r\nC     SKIP TO NEXT (INCREMENTAL) STRUCTURAL TRIANGLE WHEN THIS TRIANGLE\r\nC     IS DISJOINT FROM FLUID ELEMENT\r\nC\r\n      IF (NPOLY .LT. 3) GO TO 2500\r\nC\r\nC     AREA OF COMMON POLYGON AND HALVED WHEN OVERLAPPING (INCREMENTAL)\r\nC     STRUCTURE TRIANGLES USED CUMULATIVE AREA OF FLUID/STRUCTURAL\r\nC     ELEMENT OVERLAP\r\nC\r\n 2000 A = TRIA*DAPOLY(NPOLY,P)\r\n      AFLSTR = AFLSTR + A\r\nC\r\nC     TERMS FOR LOAD FACTORS\r\nC\r\n      SS(1) =  TR(1,1)*TR(2,2)\r\n      SS(2) = -TR(1,1)*TR(2,3)\r\n      SS(3) =  TR(1,2)*TR(2,3)\r\n      SS(4) = -TR(1,2)*TR(2,1)\r\n      SS(5) =  TR(1,3)*TR(2,1)\r\n      SS(6) = -TR(1,3)*TR(2,2)\r\n      FDET  =  DZ\r\n      DO 2005 M = 1,6\r\n 2005 FDET  =  FDET  + SS(M)\r\n      SS(1) =  SS(1) + SS(4)\r\n      SS(2) =  SS(2) + SS(5)\r\n      SS(3) =  SS(3) + SS(6)\r\n      SS(4) =  TR(2,2) - TR(2,3)\r\n      SS(5) =  TR(2,3) - TR(2,1)\r\n      SS(6) =  TR(2,1) - TR(2,2)\r\n      SS(7) =  TR(1,3) - TR(1,2)\r\n      SS(8) =  TR(1,1) - TR(1,3)\r\n      SS(9) =  TR(1,2) - TR(1,1)\r\nC\r\nC     GET LOAD DISTRIBUTION FACTORS, F(K,I)\r\nC     - FROM -\r\nC         I -- AREA POLYGON POINT -- P(N,I)\r\nC         K -- STRUCTURE TRIANGLE POINT -- TR(N,K)\r\nC\r\n      DO 2010 I = 1,NPOLY\r\n      F(1,I) = P(1,I)*SS(4) + P(2,I)*SS(7) + SS(3)\r\n      F(2,I) = P(1,I)*SS(5) + P(2,I)*SS(8) + SS(2)\r\n 2010 F(3,I) = P(1,I)*SS(6) + P(2,I)*SS(9) + SS(1)\r\nC\r\nC     GET PRESSURE DISTRIBUTION FACTORS, C(J,I)\r\nC     - FROM -\r\nC         I -- AREA POLYGON POINT  -- P(N,I)\r\nC         J -- FLUID ELEMENT POINT -- FL(N,J)\r\nC\r\n      IF (NGRIDF .EQ. 4) GO TO 2030\r\nC\r\nC     FLUID ELEMENT IS TRIANGLE\r\nC\r\n      DO 2020 I = 1,NPOLY\r\n      BB     = P(1,I)/FL(1,2)\r\n      C(1,I) = D1 - BB - P(2,I)*C1\r\n      C(2,I) = BB - P(2,I)*C2\r\n 2020 C(3,I) = P(2,I)/FL(2,3)\r\n      GO TO 2100\r\nC\r\nC     FLUID ELEMENT IS QUADRANGLE\r\nC\r\n 2030 DO 2050 I = 1,NPOLY\r\n      BB = P(1,I)*C1 - C2 + P(2,I)*C3\r\n      CC = P(1,I)*FL(2,4) - P(2,I)*FL(1,4)\r\n      IF (BB.EQ.DZ .OR. DABS(AA).GT.DABS(BB*EPSLON)) GO TO 2040\r\n      ZZ = -CC/BB\r\n      GO TO 2045\r\nC\r\n 2040 DD = DSQRT(BB*BB - D2*AA2*CC)\r\n      ZZ = (DD-BB)/AA2\r\n      IF (ZZ.GT.DLB .AND. ZZ.LT.DUB) GO TO 2045\r\n      ZZ = (-DD-BB)/AA2\r\nC\r\n 2045 NN = P(2,I)/(FL(2,4) + ZZ*C1)\r\n      IF (NN.LE.DLB .OR. NN.GE.DUB) GO TO 8005\r\nC\r\n      ZZ1 = D1 - ZZ\r\n      NN1 = D1 - NN\r\n      C(1,I) = ZZ1*NN1\r\n      C(2,I) = ZZ *NN1\r\n      C(3,I) = ZZ *NN\r\n 2050 C(4,I) = ZZ1*NN\r\nC\r\nC     CALCULATE AREA TERMS FOR THIS STRUCTURAL TRIANGLE AND INSERT IN\r\nC     MATRIX\r\nC\r\n 2100 DPOLY  = NPOLY\r\n      AKJCON = A/(FDET*DPOLY)\r\n      DPOLY  = NPOLY - 1\r\n      FACTII = D1/DPOLY\r\nC\r\n      DO 2120 J = 1,NGRIDF\r\n      JLOC = 3*NGRIDS*(J-1)\r\nC\r\n      DO 2120 K = 1,3\r\n      LOC = JLOC + 3*(GRID(K,IT)-1)\r\nC\r\n      AKJ(K,J) = DZ\r\n      DO 2110 I = 1,NPOLY\r\n 2110 AKJ(K,J) = AKJ(K,J) + F(K,I)*C(J,I)\r\n      AKJ(K,J) = AKJCON*AKJ(K,J)\r\nC\r\n      DO 2119 N = 1,3\r\n 2119 S(LOC+N) = S(LOC+N) + AKJ(K,J)*KSB(N)\r\n 2120 CONTINUE\r\nC\r\n      IF (.NOT. GRAV) GO TO 2500\r\nC\r\nC     CALCULATE GRAVITATIONAL STIFFNESS TERMS FOR THIS TRIANGLE\r\nC     AND INSERT INTO MATRIX\r\nC\r\n      DO 2210 N = 1,3\r\n 2210 E(N,1) = DZ\r\n      CALL DAXB (E(1,2),KSB,Y)\r\n      MAG = DADOTB(Y,Y)\r\n      IF (MAG .GT. DZ) MAG = DSQRT(MAG)\r\n      IF (MAG .LT. EPSO10) GO TO 2220\r\nC\r\n      CALL DAXB  (E(1,2),Y,E)\r\n      CALL DNORM (E,MAG)\r\nC\r\n 2220 NX = 0.D0\r\n      NZ = 0.D0\r\n      DO 2230 N = 1,3\r\n      NX = NX + E(N,1)*KSB(N)\r\n 2230 NZ = NZ + E(N,2)*KSB(N)\r\n      CONII = RHOXG*AKJCON/(D2*FDET)\r\n      KTWO(1,1) = DZ\r\nC\r\n      KTWO(2,1) = NX\r\n      KTWO(1,2) = KTWO(2,1)\r\n      KTWO(2,2) = NZ\r\n      CALL GMMATD (E,2,3,1, KTWO,2,2,0, KTEMP)\r\n      CALL GMMATD (KTEMP,3,2,0, E,2,3,0, KIK )\r\nC\r\n      DO 2250 KK1 = 1,3\r\n      K1LOC = 9*NGRIDS*(GRID(KK1,IT)-1)\r\nC\r\n      DO 2250 KK2 = 1,3\r\n      LOC = K1LOC + 9*(GRID(KK2,IT)-1)\r\nC\r\n      H = 0.D0\r\n      DO 2240 I1 = 1,NPOLY\r\n      DO 2240 I2 = 1,NPOLY\r\n      FII = F(KK1,I1)*F(KK2,I2)\r\n      IF (I1 .NE. I2) FII= FACTII*FII\r\n 2240 H = H + FII\r\nC\r\n      DO 2249 N = 1,9\r\n      KGE(LOC+N) = KGE(LOC+N) - KIK(N)*H*CONII\r\n 2249 CONTINUE\r\nC\r\n 2250 CONTINUE\r\nC\r\nC     END OF (INCREMENTAL) STRUCTURAL TRIANGLE LOOP\r\nC\r\n 2500 CONTINUE\r\nC\r\nC     WARNING MESSAGE WHEN FLUID AND STRUCTURE ELEMENTS ARE DISJOINT\r\nC\r\n      IF (AFLSTR .LE. DZ) GO TO 8014\r\nC\r\nC     TRANSFORM THE AREA AND STIFFNESS MATRICES TO GLOBAL COORDINATES IF\r\nC     REQUIRED\r\nC\r\n      DO 2610 IROW = 1,NGRIDS\r\n      GSI = IBGPDT + (FBREC(IROW+2)-1)*4\r\n      CALL TRANSD (Z(GSI),T)\r\nC\r\nC     AREA FACTOR MATRIX\r\nC\r\n      JLOC = 3*(IROW-1)\r\nC\r\n      DO 2530 ICOL = 1,NGRIDF\r\n      ILOC = 3*NGRIDS*(ICOL-1) + JLOC\r\nC\r\n      IF (IZ(GSI) .EQ. 0) GO TO 2510\r\n      CALL GMMATD (T,3,3,1,S(ILOC+1),3,1,0,AFE(ILOC+1))\r\n      GO TO 2530\r\nC\r\n 2510 DO 2520 I = 1,3\r\n 2520 AFE(ILOC+I) = S(ILOC+I)\r\nC\r\n 2530 CONTINUE\r\n      IF (.NOT.GRAV) GO TO 2610\r\nC\r\nC     GRAVITATIONAL STIFFNESS MATRIX\r\nC\r\n      JLOC = 9*(IROW-1)\r\nC\r\n      DO 2600 ICOL = 1,NGRIDS\r\n      ILOC = 9*NGRIDS*(ICOL-1) + JLOC\r\nC\r\n      IF (IZ(GSI) .EQ. 0) GO TO 2540\r\n      CALL GMMATD (T,3,3,1, KGE(ILOC+1),3,3,0, KIK)\r\n      GO TO 2570\r\nC\r\n 2540 KLOC = ILOC\r\n      DO 2550 I = 1,9\r\n 2550 KIK(I) = KGE(KLOC+I)\r\nC\r\n 2570 GSJ = IBGPDT + (FBREC(ICOL+2)-1)*4\r\n      IF (IZ(GSJ) .EQ. 0) GO TO 2580\r\n      CALL TRANSD (Z(GSJ),T)\r\n      CALL GMMATD (KIK,3,3,0, T,3,3,0, KII(ILOC+1))\r\n      GO TO 2600\r\nC\r\n 2580 KLOC = ILOC\r\n      DO 2590 I = 1,9\r\n 2590 KII(KLOC+I) = KIK(I)\r\n 2600 CONTINUE\r\n 2610 CONTINUE\r\nC\r\nC     REARANGE THE STORAGE OF THE GRAVITATIONAL STIFFNESS MATRIX\r\nC     TO COLUMNWISE FOR THE USE WITH THE ASSEMBLER\r\nC\r\n      IF (.NOT.GRAV) RETURN\r\nC\r\n      DO 2630 ICOL = 1,NGRIDS\r\n      JLOC = 9*NGRIDS*(ICOL-1)\r\nC\r\n      DO 2630 IROW = 1,NGRIDS\r\n      ILOC = JLOC + 9*(IROW-1)\r\n      KLOC = JLOC + 3*(IROW-1)\r\nC\r\n      DO 2620 I = 1,3\r\n      KGE(KLOC+1) = KII(ILOC+1)\r\n      KGE(KLOC+2) = KII(ILOC+4)\r\n      KGE(KLOC+3) = KII(ILOC+7)\r\n      KLOC = KLOC + 3*NGRIDS\r\n 2620 ILOC = ILOC + 1\r\n 2630 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 8005 WRITE (NOUT,9005) UFM,FBREC(2)\r\n      ERROR = .TRUE.\r\n      GO TO 9000\r\n 8013 WRITE (NOUT,9013) UFM,FBREC(1),FBREC(7)\r\n      ERROR = .TRUE.\r\n      GO TO 9000\r\n 8014 WRITE (NOUT,9014) UWM,FBREC(1),FBREC(2)\r\n 9000 RETURN\r\nC\r\n 9005 FORMAT (A23,' 8005. BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT ',\r\n     1       I8)\r\nC\r\n 9013 FORMAT (A23,' 8013, FLUID ELEMENT',I9,' ON A CFLSTR CARD ',\r\n     1       'REFERENCES UNDEFINED GRAVITY ID',I9)\r\nC\r\n 9014 FORMAT (A25,' 8014, FLUID ELEMENT',I9,' AND STRUCTURE ELEMENT',I9,\r\n     1       ' ARE DISJOINT. CHECK CFLSTR CARDS.')\r\n      END\r\n"
  },
  {
    "path": "mis/bread.f",
    "content": "       SUBROUTINE BREAD (IG,INV,II3,NORIG,KG)\r\nC\r\nC      THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC      IT READS THE CONNECTING ELEMENTS AND GENEL ELEM. FROM GEOM2 FILE\r\nC      AND PREPROCESS THE MPC CARDS AND THE RIGID ELEMENTS FROM GEOM4\r\nC\r\nC      REVISED BY G.CHAN/UNISYS\r\nC      12/89, TO INCLUDE NEW RIGID ELEMENTS CRROD, CRBAR, CRTRPLT,\r\nC      CRBE1, CREB2, CRBE3 AND CRSPLINE\r\nC      03/92, TO INCLUDE DUMMY ELEMENTS, CDUM1,...,CDUM9\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          DEBUG\r\n      DIMENSION        SUB(2),   XXX(3),   IZ(3),    KG(7),    IG(1),\r\n     1                 NORIG(1), INV(II3,1)\r\n      CHARACTER        UFM*23,   UWM*25\r\n      COMMON /XMSSG /  UFM,      UWM\r\n      COMMON /BANDA /  IBUF1,    NOMPC\r\n      COMMON /BANDB /  NBITIN,   KORE,     IFL,      NGRID,    IPNW(2),\r\n     1                 KDIM\r\n      COMMON /BANDD /  DUM6(6),  NEL,      NEQ,      NEQR\r\n      COMMON /BANDS /  NN(10)\r\n      COMMON /GEOMX /  GEOM1,    GEOM2,    GEOM4,    SCR1\r\n      COMMON /NAMES /  RD,       RDREW,    WRT,      WRTREW,   REW\r\n      COMMON /SYSTEM/  IBUF,     NOUT,     DUM43(43),KDUM(9)\r\n      COMMON /GPTA1 /  NE,       LAST,     INCR,     KE(1)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      DATA             CRIGDR,   CRIGD1,   CRIGD2,   CRIGD3,   GENEL  /\r\n     1                 8210,     5310,     5410,     8310,     4301   /\r\n      DATA             CHBDY,    PLOTEL,   CRROD,    CRBAR,    CRTRPT /\r\n     1                 4208,     5201,     6510,     6610,     6710   /\r\n      DATA             CRBE1,    CRBE2,    CRBE3,    CRSPLN,   MSET   /\r\n     1                 6810,     6910,     7010,     7110,     4HMSET /\r\n      DATA             SUB,                MPC,      MAXMPC,   DEBUG  /\r\n     1                 4HBREA,   4HD   ,   4901,     150,      .FALSE./\r\nC\r\nC\r\nC     CHECK THE PRESENCE OF GEOM2 FILE\r\nC\r\n      KG(1) = GEOM2\r\n      CALL RDTRL (KG(1))\r\n      J = KG(2) + KG(3) + KG(4) + KG(5) + KG(6) + KG(7)\r\n      IF (KG(1).LT.0 .OR. J.EQ.0) GO TO 370\r\n      DO 10 I = 1,7\r\n 10   KG(I) = 0\r\nC\r\nC     UPDATE /GPTA1/ IF DUMMY ELEMENTS ARE PRESENT\r\nC\r\n      DO 15 I = 1,9\r\n      IF (KDUM(I) .EQ. 0) GO TO 15\r\n      K = KDUM(I)/10000000\r\n      L = (KDUM(I)-K*10000000)/10000\r\n      J = (I+51)*INCR\r\n      KE(J+ 6) = 2 + K + L\r\n      KE(J+10) = K\r\n 15   CONTINUE\r\nC\r\nC     CHECK THE PRESENCE OF MPC CARDS AND RIGID ELEMENTS.  SAVE THEIR\r\nC     GRID DATA IN SCR1 FILE FOR TIGER AND UPDATE NEQ AND NEQR COUNTERS\r\nC\r\n      IF (NOMPC .EQ. 0) GO TO 200\r\n      Z(1) = GEOM4\r\n      CALL RDTRL (Z(1))\r\n      J = 0\r\n      DO 20 I = 2,7\r\n 20   J = J + Z(I)\r\n      IF (Z(1).LT.0 .OR. J.EQ.0) GO TO 200\r\nC\r\n      IBUF2 = IBUF1 - IBUF\r\n      CALL OPEN (*290,SCR1,Z(IBUF2),WRTREW)\r\n      IFILE  = GEOM4\r\n      CALL PRELOC (*190,Z(IBUF1),GEOM4)\r\nC\r\n      IF (NOMPC .EQ. 1) GO TO 40\r\nC\r\n      XXX(1) = MPC\r\n      XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*40,Z(IBUF1),XXX,J)\r\n 25   J = 1\r\n      CALL READ (*300,*40,GEOM4,IZ,1,0,M)\r\n 30   J = J + 1\r\n      CALL READ (*300,*40,GEOM4,KG(J),3,0,M)\r\n      IF (KG(J) .NE. -1) IF (J+3-MAXMPC) 30,30,320\r\n      J = J - 1\r\n      KG(1) = J - 1\r\n      CALL WRITE (SCR1,KG,J,1)\r\n      NEQ = NEQ + 1\r\n      GO TO 25\r\nC\r\nC     LOCATE ANY CRIGDR AND CRROD ELEMENTS, AND SAVE THE GRID DATA IN\r\nC     SCR1. (DEPENDENT GRID FIRST, AND ONE INDEPENDENT GRID LAST)\r\nC\r\nC     FOR ALL RIGID ELEMENTS, THE FIRST WORD OF KG ARRAY CONTAINS\r\nC     (NO. OF DEPENDENT + INDEP. GRIDS)*1000 + (NO. OF INDEP. GRIDS)\r\nC     THE DATA IN SCR1 WILL BE PROCESSED BY TIGER\r\nC\r\n 40   IF (NOMPC .EQ. 3) GO TO 180\r\n      XXX(1) = CRIGDR\r\n 50   XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*60,Z(IBUF1),XXX,J)\r\n 55   CALL READ (*300,*60,GEOM4,IZ,1,0,M)\r\n      CALL READ (*300,*60,GEOM4,KG(3),3,0,M)\r\n      KG(1) = 2*1000 + 1\r\n      KG(2) = KG(4)\r\n      CALL WRITE (SCR1,KG,3,1)\r\n      NEQR  = NEQR + 1\r\n      GO TO 55\r\nC\r\n 60   IF (XXX(1) .EQ. CRROD) GO TO 70\r\n      XXX(1) = CRROD\r\n      GO TO 50\r\nC\r\nC     LOCATE ANY CRIGD1, CRIGD2  AND CRBE2  ELEMENTS, AND SAVE GRID\r\nC     DATA IN SCR1. PUT THE ONE INDEPENDENT GRID LAST\r\nC\r\n 70   XXX(1) = CRIGD1\r\n 75   XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*90,Z(IBUF1),XXX,J)\r\n 80   J = 1\r\n      CALL READ (*300,*90,GEOM4,IZ,2,0,M)\r\n      IZ2 = IZ(2)\r\n 85   J = J + 1\r\n      CALL READ (*300,*90,GEOM4,KG(J),1,0,M)\r\n      CALL READ (*300,*90,GEOM4,   0,-6,0,M)\r\n      IF (KG(J) .NE. -1) IF (J-MAXMPC) 85,85,320\r\n      KG(J) = IZ2\r\n      KG(1) = (J-1)*1000 + 1\r\n      CALL WRITE (SCR1,KG,J,1)\r\n      NEQR  = NEQR + 1\r\n      GO TO 80\r\n 90   IF (XXX(1) .EQ. CRBE2) GO TO 110\r\nC\r\nC     LOCATE ANY CRIGD2 ELEMENT\r\nC\r\n      IF (XXX(1) .EQ. CRIGD2) GO TO 100\r\n      XXX(1) = CRIGD2\r\n      GO TO 75\r\nC\r\nC     LOCATE ANY CRBE2 ELEMENT\r\nC\r\n 100  XXX(1) = CRBE2\r\n      GO TO 75\r\nC\r\nC     LOCATE ANY CRIGD3, CRBE1, CRBAR AND CRTRPLT ELEMENTS, AND SAVE\r\nC     GRID DATA IN SCR1 FILE. PUT THE INDEPENDENT GRID LAST\r\nC\r\n 110  XXX(1) = CRBAR\r\n      ASSIGN 115 TO IRTN\r\n      GO TO 130\r\n 115  XXX(1) = CRTRPT\r\n      ASSIGN 120 TO IRTN\r\n      GO TO 130\r\n 120  XXX(1) = CRBE1\r\n      ASSIGN 125 TO IRTN\r\n      GO TO 130\r\n 125  XXX(1) = CRIGD3\r\n      ASSIGN 150 TO IRTN\r\n 130  XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*145,Z(IBUF1),XXX,J)\r\n 133  J = 2\r\n      K = 1\r\n      CALL READ (*300,*145,GEOM4,IZ,1,0,M)\r\n 135  CALL READ (*300,*145,GEOM4,IZ(K),1,0,M)\r\n      IF (IZ(K) .EQ. MSET) GO TO 137\r\n      CALL READ (*300,*145,GEOM4,0,-6,0,M)\r\n      K = K + 1\r\n      IF (K .GT. 999) GO TO 340\r\n      GO TO 135\r\n 137  CALL READ (*300,*145,GEOM4,KG(J),1,0,M)\r\n      CALL READ (*300,*145,GEOM4,0,-6,0,M)\r\n      IF (KG(J) .EQ. -1) GO TO 140\r\n      J = J + 1\r\n      IF (J .GT. MAXMPC) GO TO 320\r\n      GO TO 137\r\n 140  K = K - 1\r\n      DO 142 I = 1,K\r\n      KG(J) = IZ(I)\r\n 142  J = J + 1\r\n      J = J - 1\r\n      KG(1) = (J-1)*1000 + K\r\n      CALL WRITE (SCR1,KG,J,1)\r\n      NEQR = NEQR + 1\r\n      GO TO 133\r\nC\r\nC     LOCATE ANY CRSPLINE ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE.\r\nC     PUT THE INDEPENDENT GRIDS LAST\r\n 145  GO TO IRTN, (115,120,125,150)\r\nC\r\nC     LOCATE ANY CRBE3 ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE. PUT\r\nC     THE INDEPENDENT GRID LAST\r\nC\r\n 150  XXX(1) = CRBE3\r\n      XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*165,Z(IBUF1),XXX,J)\r\n 151  CALL READ (*300,*165,GEOM4,IZ,3,0,M)\r\n      IZ2 = IZ(2)\r\n      J = 2\r\n      CALL READ (*300,*165,GEOM4,0,-2,0,M)\r\n 153  CALL READ (*300,*165,GEOM4,KG(J),1,0,M)\r\n      K = -KG(J)\r\n      IF (K .GT. 0) GO TO (155,157,160) K\r\n      J = J + 1\r\n      IF (J-MAXMPC) 153,153,320\r\n 155  CALL READ (*300,*165,GEOM4,I,1,0,M)\r\n      IF (I .EQ. -2) GO TO 157\r\n      CALL READ (*300,*165,GEOM4,0,-1,0,M)\r\n      GO TO 153\r\n 157  CALL READ (*300,*165,GEOM4,KG(J),1,0,M)\r\n      IF (KG(J) .LT. 0) GO TO 160\r\n      CALL READ (*300,*165,GEOM4,0,-1,0,M)\r\n      J = J + 1\r\n      GO TO 157\r\n 160  KG(J) = IZ2\r\n      KG(1) = (J-1)*1000 + 1\r\n      CALL WRITE (SCR1,KG,J,1)\r\n      NEQR = NEQR + 1\r\n      GO TO 151\r\nC\r\nC     LOCATE ANY CRSPLINE ELEMENTS, AND SAVE GRID DATA IN SCR1 FILE.\r\nC     PUT THE INDEPENDENT GRIDS LAST\r\nC\r\n 165  XXX(1) = CRSPLN\r\n      XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*180,Z(IBUF1),XXX,J)\r\n 167  CALL READ (*300,*180,GEOM4,IZ,3,0,M)\r\n      K = 1\r\n      IZ(K) = IZ(3)\r\n      J = 1\r\n 170  J = J + 1\r\n 173  CALL READ (*300,*175,GEOM4,KG(J),2,0,M)\r\n      IF (KG(J) .EQ. -1) GO TO 175\r\n      IF (J+2 .GT. MAXMPC) GO TO 320\r\n      IF (KG(J+1) .NE.  0) GO TO 170\r\n      K = K + 1\r\n      IF (K .GT. 999) GO TO 340\r\n      IZ(K) = KG(J)\r\n      GO TO 173\r\n 175  DO 177 I = 1,K\r\n      KG(J) = IZ(I)\r\n 177  J = J + 1\r\n      J = J - 1\r\n      KG(1) = (J-1)*1000 + K\r\n      CALL WRITE (SCR1,KG,J,1)\r\n      NEQR = NEQR + 1\r\n      GO TO 167\r\nC\r\n 180  DO 185 K = 1,MAXMPC\r\n 185  KG(K) = 0\r\n 190  CALL CLOSE (GEOM4,REW)\r\n      CALL CLOSE (SCR1,REW)\r\nC\r\nC     PROCESS ELEMENT CARDS AND FILL UP CONNECTION TABLE IG\r\nC\r\n 200  IFILE = GEOM2\r\n      CALL PRELOC (*300,Z(IBUF1),GEOM2)\r\n      IELEM = 1 - INCR\r\n 205  IELEM = IELEM + INCR\r\n      IF (IELEM .GT. LAST) GO TO 250\r\n      IF (KE(IELEM+3) .EQ. CHBDY ) GO TO 205\r\n      IF (KE(IELEM+3) .EQ. PLOTEL) GO TO 205\r\n      SCALAR = KE(IELEM+10)\r\n      IF (SCALAR .EQ. -1) GO TO 205\r\n      CALL LOCATE (*205,Z(IBUF1),KE(IELEM+3),J)\r\n      NWDS  = KE(IELEM+ 5)\r\n      NGPTS = KE(IELEM+ 9)\r\n      NGPT1 = KE(IELEM+12)\r\n      NCON  = NGPTS\r\n 210  CALL READ (*300,*205,GEOM2,KG(1),NWDS,0,M)\r\n      IF (SCALAR .EQ. 0) GO TO 220\r\n      IF (KG(5).EQ.0 .OR. KG(6).EQ.0) GO TO 210\r\nC     THE ABOVE CONDITIONS HOLD TRUE FOR CDAMPI, CELASI, AND CMASSI\r\nC     WHERE I = 1,2\r\n 220  NEL = NEL + 1\r\n      CALL SCAT (KG(NGPT1),NCON,INV,II3,NORIG)\r\n      IF (NGRID .EQ. -1) GO TO 270\r\n      IF (NCON  .LE.  1) GO TO 240\r\n      NGPT2 = NGPT1 + NCON - 1\r\n      K = NGPT2 - 1\r\n      DO 230 I = NGPT1,K\r\n      L = I + 1\r\n      DO 230 J = L,NGPT2\r\n 230  CALL SETIG (KG(I),KG(J),IG,NORIG)\r\n 240  IF (IELEM-LAST) 210,210,255\r\nC\r\nC     SPECIAL TREATMENT FOR GENERAL ELEM.\r\nC     (LIMITED TO KDIM*4 GRID POINTS PER GENEL)\r\nC\r\n 250  XXX(1) = GENEL\r\n      XXX(2) = XXX(1)/100\r\n      CALL LOCATE (*270,Z(IBUF1),XXX,J)\r\n      KDIM4  = KDIM*4\r\n 255  NTOT   = 0\r\n      CALL READ (*300,*270,GEOM2,K,1,0,M)\r\n      K    = 0\r\n      KGPV = 0\r\n      GO TO 263\r\n 260  IF (KG(NCON) .EQ. KGPV) GO TO 265\r\n      KGPV = KG(NCON)\r\n 263  NTOT = NTOT + 1\r\n      IF (NTOT .LT. KDIM4) NCON = NTOT\r\n 265  CALL READ (*300,*270,GEOM2,KG(NCON),2,0,M)\r\n      IF (KG(NCON) .NE. -1) IF (KG(NCON+1)) 260,  265,  260\r\nC                                           GRD  SCALAR GRD\r\nC                                           PT.   PT.   PT.\r\n      K = K + 1\r\n      XXX(K) = KG(NCON+1)\r\n      IF (K .LT. 2) GO TO 265\r\n      NCON = NCON - 1\r\n      M    = XXX(1)\r\n      NWDS = 1 + (M*M-M)/2 + M\r\n      CALL READ (*300,*270,GEOM2,K,-NWDS,0,M)\r\n      CALL READ (*300,*270,GEOM2,K,   1,0,M)\r\n      NGPT1 = 1\r\n      IF (K .EQ. 0) GO TO 220\r\n      NWDS  = M*XXX(2)\r\n      CALL READ (*300,*270,GEOM2,K,-NWDS,0,M)\r\n      GO TO 220\r\n 270  CALL CLOSE (GEOM2,REW)\r\n      IF (NTOT .GT. KDIM4) GO TO 330\r\n      IF (.NOT.DEBUG) RETURN\r\nC\r\n      M = NN(1)\r\n      WRITE  (NOUT,280) NN\r\n      WRITE  (NOUT,285) ((INV(I,J),J=1,2),I=1,M)\r\n 280  FORMAT (//21H /BANDS/ FROM BREAD =,10I8)\r\n 285  FORMAT (/12H TABLE INV =,(/10X,2I8))\r\n      RETURN\r\nC\r\n 290  IFILE = SCR1\r\n 300  CALL MESAGE (-1,IFILE,SUB)\r\n 320  WRITE  (NOUT,325) UWM,IZ(1),MAXMPC\r\n 325  FORMAT (A25,', MPC SET (OR CRIGID ID)',I9,\r\n     1        ' IS TOO LONG,  ONLY THE FIRST',I4, /5X,\r\n     2        ' GRID POINTS ARE USED IN THE BANDIT COMPUTATION')\r\n      GO TO 180\r\n 330  WRITE  (NOUT,335) UFM,NTOT\r\n 335  FORMAT (A23,', GENEL ELEMENT HAS TOO MANY GRID POINTS,',I7)\r\n      J = NTOT/400 + 1\r\n      IF (J .LE. 9) WRITE (NOUT,336) J\r\n 336  FORMAT (5X,'USER NEEDS TO ADD A ''NASTRAN BANDTDIM=',I1,\r\n     1       ''' CARD AND RERUN JOB')\r\n      GO TO 350\r\n 340  WRITE  (NOUT,345)\r\n 345  FORMAT ('0*** MORE THAN 1000 INDEPENDENT GRID POINTS USED IN A ',\r\n     1        'RIGID ELEMENT')\r\n 350  CALL MESAGE (-61,0,0)\r\nC\r\n 370  NGRID = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bseqgp.f",
    "content": "      SUBROUTINE BSEQGP (NORIG,ILD,JUMP)\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         GEOM1,    GEOM2,    SEQGP(3), EOF(3),   SUB(2),\r\n     1                TWO,      ORF,      OBW,      OP,       RD,\r\n     2                RDREW,    WRT,      WRTREW,   REW,      GRID(8),\r\n     3                Z\r\n      DIMENSION       NORIG(2), ILD(1),   ISYS(100)\r\n      COMMON /BANDA / IBUF1,    DUM2A(2), NOPCH,    DUM1A,    METHOD,\r\n     1                ICRIT,    NGPTS,    NSPTS\r\n      COMMON /BANDB / NBIT,     KORE,     DUM1B,    NGRD\r\n      COMMON /BANDD / OBW,      NBW,      OP,       NP,       NCM,\r\n     1                NZERO,    NEL,      NEQ,      NEQR\r\n      COMMON /BANDS / NN,       MM,       DUM2(2),  NGRID,    DUM3(3),\r\n     1                MINDEG,   NEDGE\r\n      COMMON /BANDW / MAXW0,    RMS0,     MAXW1,    RMS1,     I77,\r\n     1                BRMS0,    BRMS1\r\n      COMMON /TWO   / TWO(1)\r\n      COMMON /SYSTEM/ IBUF,     NOUT\r\n      COMMON /NAMES / RD,       RDREW,    WRT,      WRTREW,   REW,\r\n     1                NOREW\r\n      COMMON /GEOMX / GEOM1,    GEOM2\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (IBUF,ISYS(1)),     (NLPP,ISYS(9)),\r\n     1                (LPCH,ISYS(91)),    (IECHO,ISYS(19))\r\n      DATA            SUB           ,  EOF    ,  SEQGP          /\r\n     1                4HSSEQ, 4HGP  ,  3*2147483647,  5301, 53, 4    /\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     NORIG(I) = ORIGINAL GRID POINT CORRESPONDING TO BANDIT INTERNAL\r\nC                LABLE I\r\nC     ILD(I)   = NEW RESEQUENCED LABEL CORRESPONDING TO BANDIT INTERNAL\r\nC                LABLE I\r\nC     NN       = NUMBER OF GRID POINTS\r\nC     NGRD     .LT.0, INSUFF. WORKING CORE, OR SCRATCH ARRAY FOR BANDIT\r\nC\r\n      J77 = 0\r\n      IF (NN.LE.0 .OR. NGRD.LT.0) GO TO 145\r\nC\r\nC     PRINT BANDIT SUMMARY.\r\nC\r\n      IF (NLPP.LE.48 .AND. METHOD.EQ.0) CALL PAGE1\r\n      WRITE  (NOUT,10)\r\n   10 FORMAT (//53X,22H*** BANDIT SUMMARY ***,/,\r\n     1       /72X,6HBEFORE,5X,5HAFTER)\r\nC\r\n      WRITE  (NOUT,20) OBW,NBW,OP,NP,MAXW0,MAXW1\r\n   20 FORMAT (40X,13HBANDWIDTH (B),15X,2I10,\r\n     1       /40X,11HPROFILE (P), 17X,2I10,\r\n     2       /40X,25HMAXIMUM WAVEFRONT (C-MAX),3X,2I10)\r\nC\r\n      ANN = FLOAT(NN)\r\n      AV1 = FLOAT(OP)/ANN\r\n      AV2 = FLOAT(NP)/ANN\r\n      WRITE  (NOUT,30) AV1,AV2,RMS0,RMS1,BRMS0,BRMS1,NGPTS\r\n   30 FORMAT (40X,25HAVERAGE WAVEFRONT (C-AVG),3X,2F10.3,\r\n     1       /40X,21HRMS WAVEFRONT (C-RMS),7X,2F10.3,\r\n     2       /40X,21HRMS BANDWITCH (B-RMS),7X,2F10.3,\r\n     3       /40X,25HNUMBER OF GRID POINTS (N),15X,I8)\r\nC\r\n      IF (NSPTS .GT. 0) WRITE (NOUT,35) NSPTS\r\n   35 FORMAT (40X,23HNUMBER OF SCALAR POINTS,17X,I8)\r\nC\r\n      WRITE  (NOUT,40) NEL,NEQR,NEQ\r\n   40 FORMAT (40X,30HNUMBER OF ELEMENTS (NON-RIGID) ,10X,I8,\r\n     1       /40X,35HNUMBER OF RIGID ELEMENTS PROCESSED*,5X,I8,\r\n     2       /40X,35HNUMBER OF MPC  EQUATIONS PROCESSED*,5X,I8)\r\nC\r\n      WRITE  (NOUT,50) NCM,MM,MINDEG\r\n   50 FORMAT (40X,20HNUMBER OF COMPONENTS,20X,I8,\r\n     1       /40X,20HMAXIMUM NODAL DEGREE,20X,I8,\r\n     2       /40X,20HMINIMUM NODAL DEGREE,20X,I8)\r\nC\r\n      NONZ = 2*NEDGE + NN\r\n      AN   = NN*NN\r\n      DEN  = FLOAT(NONZ)*100./AN\r\n      WRITE  (NOUT,60) NEDGE,DEN,NZERO,KORE\r\n   60 FORMAT (40X,22HNUMBER OF UNIQUE EDGES,18X,I8,\r\n     1       /40X,23HMATRIX DENSITY, PERCENT, 16X,F9.3,\r\n     2       /40X,31HNUMBER OF POINTS OF ZERO DEGREE,9X,I8,\r\n     3       /40X,16HBANDIT OPEN CORE,24X,I8)\r\nC\r\n      IF (ICRIT .EQ. 1) WRITE (NOUT,61)\r\n      IF (ICRIT .EQ. 2) WRITE (NOUT,62)\r\n      IF (ICRIT .EQ. 3) WRITE (NOUT,63)\r\n      IF (ICRIT .EQ. 4) WRITE (NOUT,64)\r\n   61 FORMAT (40X,10HCRITERION*,25X,13HRMS WAVEFRONT)\r\n   62 FORMAT (40X,10HCRITERION*,29X,9HBANDWIDTH)\r\n   63 FORMAT (40X,10HCRITERION*,31X,7HPROFILE)\r\n   64 FORMAT (40X,10HCRITERION*,25X,13HMAX WAVEFRONT)\r\nC\r\n      IF (METHOD .EQ. -1) WRITE (NOUT,66)\r\n      IF (METHOD .EQ. +1) WRITE (NOUT,67)\r\n      IF (METHOD .EQ.  0) WRITE (NOUT,68)\r\n   66 FORMAT (40X,12HMETHOD USED*,34X,2HCM)\r\n   67 FORMAT (40X,12HMETHOD USED*,33X,3HGPS)\r\n   68 FORMAT (40X,12HMETHOD USED*,26X,10HCM AND GPS)\r\nC\r\n      IF (JUMP .EQ. 0) GO TO 90\r\n      WRITE  (NOUT,75)\r\n   75 FORMAT (/31X,'(* THESE DEFAULT OPTIONS CAN BE OVERRIDDEN BY THE',\r\n     1       ' NASTRAN CARD)')\r\n      WRITE  (NOUT,80)\r\n   80 FORMAT (//31X,'BANDIT FINDS GRID POINT RE-SEQUENCING NOT ',\r\n     1       'NECESSARY')\r\n      GO TO 142\r\nC\r\nC     GENERATE SEQGP ARRAY AND OUTPUT SEQGP CARDS\r\nC\r\n   90 J = 0\r\n      DO 100 I = 1,NN\r\n      Z(J+1) = NORIG(I)\r\n      Z(J+2) = ILD(I)\r\n  100 J = J + 2\r\n      CALL SORT (0,0,2,1,Z(1),J)\r\nC\r\nC     CHECK AGAINST ORIGINAL GRID POINT DATA, AND SEE ANY UNUSED GRIDS\r\nC     (SUCH AS THE THIRD GRID ON CBAR CARD). IF THEY EXIST, BRING THEM\r\nC     IN, AND RE-SORT TABLE.  (GEOM1 IS READY HERE, SEE BGRID)\r\nC\r\n      CALL OPEN (*160,GEOM1,Z(IBUF1),RD)\r\n      NNX = NN\r\n      IF (NN .EQ. NGRID) GO TO 106\r\n      CALL READ (*104,*104,GEOM1,GRID,3,0,K)\r\n  102 CALL READ (*104,*104,GEOM1,GRID,8,0,K)\r\n      CALL BISLOC (*103,GRID(1),Z,2,NNX,K)\r\n      GO TO 102\r\n  103 NN = NN + 1\r\n      Z(J+1) = GRID(1)\r\n      Z(J+2) = NN\r\n      J = J + 2\r\n      GO TO 102\r\nC\r\nC     DO THE SAME CHECK IF SCALAR POINTS ARE PRESENT\r\nC\r\n  104 IF (NSPTS .EQ. 0) GO TO 1045\r\n      NONZ = J + 2*NSPTS + 2\r\n      CALL PRELOC (*1045,Z(NONZ),GEOM2)\r\n      GRID(1) = 5551\r\n      GRID(2) = 49\r\n      CALL LOCATE (*1044,Z(NONZ),GRID,K)\r\n 1042 CALL READ (*1044,*1044,GEOM2,I,1,0,K)\r\n      CALL BISLOC (*1043,I,Z,2,NNX,K)\r\n      GO TO 1042\r\n 1043 NN = NN + 1\r\n      Z(J+1) = I\r\n      Z(J+2) = NN\r\n      J = J + 2\r\n      GO TO 1042\r\n 1044 CALL CLOSE (GEOM2,REW)\r\n 1045 I = NN - NNX\r\n      IF (I .GT. 0) WRITE (NOUT,105) I\r\n  105 FORMAT (40X,29HNO. OF NON-ACTIVE GRID POINTS,11X,I8)\r\n  106 I = (J+7)/8\r\n      WRITE  (NOUT,107) I\r\n  107 FORMAT (40X,28HNO. OF SEQGP CARDS GENERATED,12X,I8)\r\n      WRITE  (NOUT,75)\r\n      IF (NOPCH .EQ. +9) GO TO 147\r\n      IF (NNX   .NE. NN) CALL SORT (0,0,2,1,Z(1),J)\r\n      IF (IECHO .EQ. -1) GO TO 125\r\n      CALL PAGE1\r\n      WRITE  (NOUT,110)\r\n  110 FORMAT (//35X,52HS Y S T E M  G E N E R A T E D  S E Q G P  C A R\r\n     1D S,/)\r\n      WRITE  (NOUT,120) (Z(I),I=1,J)\r\n  120 FORMAT (25X,8HSEQGP   ,8I8)\r\n  121 FORMAT (    8HSEQGP   ,8I8)\r\n  125 IF (NOPCH .LE. 0) GO TO 130\r\n      WRITE (LPCH,121) (Z(I),I=1,J)\r\n  127 J77 = -2\r\n      GO TO 141\r\nC\r\nC     BEEF UP INTERNAL GRID NOS. BY 1000 AS REQUIRED BY NASTRAN\r\nC\r\n  130 DO 140 I = 2,J,2\r\n  140 Z(I) = Z(I)*1000\r\nC\r\nC     REWIND AND SKIP FORWARDS TO THE END OF GEOM1 FILE.\r\nC     OVERWRITE THE OLD SEQGP RECORD IF NECESSARY.\r\nC     (WARNING - IF SEQGP IS NOT THE VERY LAST ITEM IN GEOM1 FILE, THE\r\nC      FOLLOWING LOGIC OF INSERTING SEQGP CARDS NEEDS MODIFICATION -\r\nC      BECAUSE GEOM1 IS IN ALPHA-NUMERIC SORTED ORDER).\r\nC\r\n      CALL REWIND (GEOM1)\r\n      CALL SKPFIL (GEOM1,+1)\r\n      CALL SKPFIL (GEOM1,-1)\r\n      CALL BCKREC (GEOM1)\r\n      CALL READ (*150,*150,GEOM1,NORIG(1),3,1,I)\r\n      IF (NORIG(1).EQ.SEQGP(1) .AND. NORIG(2).EQ.SEQGP(2))\r\n     1    CALL BCKREC (GEOM1)\r\n      CALL CLOSE (GEOM1,NOREW)\r\nC\r\nC     ADD SEQGP CARDS TO THE END OF GEOM1 FILE\r\nC     SET GEOM1 TRAILER, AND CLEAR /SYSTEM/ 76TH WORD\r\nC\r\n      CALL OPEN  (*160,GEOM1,Z(IBUF1),WRT)\r\n      CALL WRITE (GEOM1,SEQGP(1),3,0)\r\n      CALL WRITE (GEOM1,Z(1),J,1)\r\n      CALL WRITE (GEOM1,EOF(1),3,1)\r\nC\r\n      Z(1) = GEOM1\r\n      CALL RDTRL (Z(1))\r\n      I = (SEQGP(2)+31)/16\r\n      J = SEQGP(2)-I*16 + 48\r\n      Z(I) = ORF(Z(I),TWO(J))\r\n      CALL WRTTRL (Z(1))\r\n  141 CALL CLOSE (GEOM1,REW)\r\n  142 DO 143 I = 1,KORE\r\n  143 Z(I) = 0\r\n  145 ISYS(I77) = J77\r\n      IF (NGRD .LT. 0) RETURN\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,146)\r\n  146 FORMAT (1H0,9X,45H**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**)\r\n      RETURN\r\nC\r\nC     SPECIAL PUNCH OPTION (BANDTPCH=+9)\r\nC     TO PUNCH OUT EXTERNAL GRIDS IN RE-SEQUENCED INTERNAL ORDER\r\nC\r\n  147 CALL SORT (0,0,2,2,Z(1),J)\r\n      WRITE  (NOUT,148) (Z(I),I=1,J,2)\r\n  148 FORMAT (1H1,35X,59HLIST OF EXTERNAL GRID POINTS IN INTERNAL RE-SEQ\r\n     1UENCED ORDER,/4X,31(4H----),/,(/5X,15I8))\r\n      WRITE  (LPCH,149) (Z(I),I=1,J,2)\r\n  149 FORMAT (10I7)\r\n      GO TO 127\r\nC\r\nC     FILE ERROR\r\nC\r\n  150 K = -2\r\n      GO TO 170\r\n  160 K = -1\r\n  170 CALL MESAGE (K,GEOM1,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/bug.f",
    "content": "      SUBROUTINE BUG (NAME,LOC,BUF,NWDS)\r\nC\r\nC     THIS ROUTINE PRINTS NAME,LOC, AND CONTENT OF BUF ARRAY\r\nC     E.G.   CALL BUG ('SUBR ABC',105,CORE(1),120)\r\nC     LIMITED TO 5000 LINES EACH CALL,  14 VALUES PER LINE\r\nC\r\nC     (THIS ROUTINE REPLACES THE OLD ONE IN NASTRAN)\r\nC     WRITTEN BY G.CHAN/SPERRY     MARCH 1986\r\nC\r\n      REAL            BUF(1),   NAME(3)\r\n      CHARACTER*4     A(28),    XLOC,     BLANK\r\n      CHARACTER*8     B(14),    ZERO,     ERR\r\n      COMMON /SYSTEM/ IBUF,     NOUT\r\n      EQUIVALENCE     (A(1),B(1))\r\n      DATA    LINE,   NWPL,     LIMIT              /\r\n     1        0,      14,       5000               /\r\n      DATA    ZERO,   BLANK,    XLOC,     ERR      /\r\n     1        ' 00 ', '    ',   'LOC',    '(ERR)'  /\r\nC\r\n      CALL SSWTCH (20,L)\r\n      IF (L .EQ. 0) RETURN\r\n      GO TO 5\r\nC\r\n      ENTRY BUG1 (NAME,LOC,BUF,NWDS)\r\nC     ==============================\r\nC\r\n 5    IF (NWDS .LT. 0) RETURN\r\n      L = 2\r\n      I = 0\r\n      CALL A42K8 (NAME(1),NAME(2),B(1))\r\n      CALL INT2K8 (*20,LOC,A(3))\r\n      A(4) = A(3)\r\n      A(3) = XLOC\r\nC\r\n 10   IF (I .GE. NWDS) GO TO 60\r\n 15   I = I + 1\r\n      L = L + 1\r\n      J = NUMTYP(BUF(I)) + 1\r\n      GO TO (  25, 30,  35, 40), J\r\nC            ZERO,INT,REAL,BCD\r\n 20   B(L) = ERR\r\n      GO TO 55\r\n 25   B(L) = ZERO\r\n      GO TO 55\r\n 30   CALL INT2K8 (*20,BUF(I),B(L))\r\n      GO TO 55\r\n 35   CALL FP2K8  (*20,BUF(I),B(L))\r\n      GO TO 55\r\n 40   CALL A42K8 (BUF(I),BUF(I+1),B(L))\r\n      IF (NUMTYP(BUF(I+1)) .NE. 3) GO TO 45\r\n      I = I + 1\r\n      GO TO 50\r\n 45   A(L*2) = BLANK\r\n 50   IF (I .GE. NWDS) GO TO 60\r\n 55   IF (L .LT. NWPL) GO TO 10\r\n 60   IF (L .GT. 0) WRITE (NOUT,65) (B(J),J=1,L)\r\n 65   FORMAT (2X,14(A8,1X))\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. LIMIT) GO TO 70\r\n      L = 0\r\n      IF (I .LT. NWDS) GO TO 15\r\n      RETURN\r\nC\r\n 70   WRITE  (NOUT,75) LIMIT\r\n 75   FORMAT (/2X,'PRINT LINES IN BUG EXCEEDS LIMIT OF',I6)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/calcv.f",
    "content": "      SUBROUTINE CALCV (PVACT,SET1,SUB1,SUB2,CORE)\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         A1,PVECT,SET1,SUB1,SUB2,USET,SYSBUF,PVACT,ANDF,\r\n     1                CORE(1)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /PATX  / LC,N,NO,N3,USET,PVECT(7)\r\n      COMMON /ZBLPKX/ B1(4),N1\r\nC\r\nC\r\n      N  = 0\r\n      N3 = 0\r\n      NO = 0\r\n      N1 = 0\r\n      CALL MAKMCB (PVECT,PVACT,0,2,1)\r\n      LCORE = LC - SYSBUF\r\n      CALL GOPEN (USET,CORE(LCORE+1),0)\r\n      LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (PVACT,CORE(LCORE+1),1)\r\n      CALL BLDPK (1,1,PVACT,0,0)\r\n   20 CALL READ (*90,*90,USET,A1,1,0,FLAG)\r\n      IF (ANDF(TWO1(SET1),A1) .EQ. 0) GO TO 20\r\n      N1 = N1 + 1\r\n      IF (ANDF(TWO1(SUB1),A1) .EQ. 0) GO TO 50\r\n      N  = N  + 1\r\n      GO TO 20\r\n   50 IF (ANDF(TWO1(SUB2),A1) .EQ. 0) GO TO 60\r\n      NO = NO + 1\r\n      B1(1) = 1.0\r\n      GO TO 70\r\n   60 B1(1) = 2.0\r\n      N3 = N3 + 1\r\n   70 CONTINUE\r\n      CALL ZBLPKI\r\n      GO TO 20\r\n   90 CONTINUE\r\n      CALL BLDPKN (PVACT,0,PVECT)\r\n      PVECT(3) = N1\r\n      CALL WRTTRL (PVECT)\r\n      CALL CLOSE  (USET,1)\r\n      CALL CLOSE  (PVACT,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/case.f",
    "content": "      SUBROUTINE CASE\r\nC\r\nC     CASE READS THE CASE CONTROL DATA BLOCK AND WRITES A NEW\r\nC     DATA BLOCK WHICH CONTAINS ONLY THOSE RECORDS WHICH DESCRIBE THE\r\nC     CURRENT CASE IN THE LOOP. ADDITIONALLY, THE LOOP CONTROL PARAMETER\r\nC     IS SET.\r\nC\r\nC\r\n      INTEGER         APP    ,COUNT  ,SYSBUF,CASECC,CASEXX,FILE  ,Z    ,\r\n     1                BUF1   ,BUF2   ,RFMTS ,BRANCH,BUF   ,ERROR(2)\r\n      INTEGER         BUF3   ,PSDL\r\n      DIMENSION       NAM(2) ,BUF(20),MCB(7),RFMTS(40)\r\n      COMMON /BLANK / APP(2) ,COUNT  ,LOOP\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /NAMES / RD     ,RDREW  ,WRT   ,WRTREW,CLSREW\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC     DATA DESCRIBING DATA BLOCK FILE NAMES AND POSITION\r\nC     OF PARAMETERS IN THE CASE CONTROL RECORD.\r\nC\r\n      DATA   CASECC / 101/ ,CASEXX /201/ ,IK2PP  /139/ ,IM2PP /141/ ,\r\n     1       IB2PP  / 143/ ,ITFL   / 15/ ,PSDL   /102/ ,IRAND /163/\r\n      DATA   ERROR  / 4HPSDL,4HCASE/\r\n      DATA   IFREQ  / 14/  ,IMETH  /  5/\r\nC\r\nC     DATA DEFINING RIGID FORMATS.\r\nC\r\n      DATA   NRIGDS / 10   /, RFMTS  /\r\n     1                4HSTAT,4HICS , 4HREIG,4HEN  , 4HDS0 ,4H    ,\r\n     2                4HDS1 ,4H    , 4HFREQ,4H    , 4HTRAN,4HSNT ,\r\n     3                4HBKL0,4H    , 4HBKL1,4H    , 4HCEIG,4HEN  ,\r\n     4                4HPLA ,4H    , 20*0  /\r\nC\r\nC     MISC DATA\r\nC\r\n      DATA   NAM    / 4HCASE,4H    /, MCB    / 7*0  /\r\nC\r\nC     PERFORM BUFFER ALLOCATION.\r\nC\r\n      BUF1  = KORSZ(Z) - SYSBUF + 1\r\n      BUF3  = BUF1 - SYSBUF\r\n      BUF2  = BUF3 - SYSBUF\r\n      IRY   = 0\r\n      M8    = -8\r\n      IF (COUNT .LE. 0) COUNT = 1\r\n      LOOP  = 1\r\n      IOCNT = COUNT\r\nC\r\nC     SET PARAMETER FOR APPROACH.\r\nC\r\n      N = 2*NRIGDS - 1\r\n      DO 20 I = 1,N,2\r\n      IF (RFMTS(I) .EQ. APP(1)) GO TO 30\r\n   20 CONTINUE\r\n      CALL MESAGE (30,75,APP)\r\n      I = 19\r\n   30 BRANCH = (I+1)/2\r\nC\r\nC     OPEN CASECC. SKIP RECORDS ALREADY PROCESSED. OPEN CASEXX.\r\nC     WRITE HEADER RECORD. THEN BRANCH ON APPROACH.\r\nC\r\n      FILE = CASECC\r\n      CALL OPEN (*130,CASECC,Z(BUF1),RDREW)\r\n      DO 40 I = 1,COUNT\r\n   40 CALL FWDREC (*140,CASECC)\r\n      FILE = CASEXX\r\n      CALL OPEN  (*130,CASEXX,Z(BUF2),WRTREW)\r\n      CALL FNAME (CASEXX,BUF)\r\n      CALL WRITE (CASEXX,BUF,2,1)\r\n      GO TO (120,50,120,120,50,100,120,120,50,120), BRANCH\r\nC\r\nC     COMPLEX EIGENVALUES OR FREQUENCY RESPONSE.\r\nC\r\n   50 CALL READ (*140,*60,CASECC,Z,BUF2,1,NCC)\r\n      CALL MESAGE (M8,0,NAM)\r\n   60 BUF(1) = Z(IK2PP  )\r\n      BUF(2) = Z(IK2PP+1)\r\n      BUF(3) = Z(IM2PP  )\r\n      BUF(4) = Z(IM2PP+1)\r\n      BUF(5) = Z(IB2PP  )\r\n      BUF(6) = Z(IB2PP+1)\r\n      BUF(7) = Z(ITFL)\r\n      IRSET  = Z(IRAND)\r\n      IFRQST = Z(IFREQ)\r\n      IMRQST = Z(IMETH)\r\n      IF (BRANCH.EQ.5 .AND. IRSET.NE.0) IRY = 1\r\n      IF (IRY .EQ. 0) GO TO 70\r\nC\r\nC     BUILD LIST OF UNIQUE LOAD ID-S\r\nC\r\n      FILE = PSDL\r\n      CALL OPEN (*68,PSDL,Z(BUF3),RDREW)\r\n      CALL FWDREC (*90,PSDL)\r\n      ILS  = BUF2\r\n      ILF  = BUF2 - 1\r\n   61 CALL READ (*90,*66,PSDL,Z(NCC+1),6,0,J)\r\n      IF (Z(NCC+1) .NE. IRSET) GO TO 61\r\n      J = 1\r\n      ILOAD = Z(NCC+2)\r\n      IF (ILS .EQ. ILF+1) GO TO 63\r\n   65 DO 62 I = ILS,ILF\r\n      IF (Z(I) .EQ. ILOAD) GO TO 64\r\n   62 CONTINUE\r\nC\r\nC     NEW LOAD ID\r\nC\r\n   63 ILS = ILS - 1\r\n      Z(ILS) = ILOAD\r\n   64 IF (J .EQ. 0) GO TO 61\r\n      J = 0\r\n      ILOAD = Z(NCC+3)\r\n      GO TO 65\r\nC\r\nC     END OF PSDL RECORD\r\nC\r\n   66 CALL CLOSE (PSDL,CLSREW)\r\n      IF (ILS .EQ. ILF+1) CALL MESAGE (-31,IRSET,ERROR(1))\r\n      BUF2 = ILS - 1\r\n      GO TO 70\r\nC\r\nC     NO PSDL IS EQUIVALENT TO NO RANDOM\r\nC\r\n   68 IRY = 0\r\n   70 CALL WRITE (CASEXX,Z,NCC,1)\r\n      COUNT = COUNT + 1\r\n      IF (IRY .EQ. 0) GO TO 71\r\nC\r\nC     CHECK  SUBCASE ID-S\r\nC\r\n      DO 72 I = ILS,ILF\r\n      IF (Z(1) .EQ. Z(I)) GO TO 74\r\n   72 CONTINUE\r\n      GO TO 71\r\nC\r\nC     MARK USED\r\nC\r\n   74 Z(I) = -Z(I)\r\n   71 CONTINUE\r\n      CALL READ (*90,*80,CASECC,Z,BUF2,1,NCC)\r\n      CALL MESAGE (M8,0,NAM)\r\n   80 IF (Z(IK2PP).NE.BUF(1) .OR. Z(IK2PP+1).NE.BUF(2) .OR.\r\n     1    Z(IM2PP).NE.BUF(3) .OR. Z(IM2PP+1).NE.BUF(4) .OR.\r\n     2    Z(IB2PP).NE.BUF(5) .OR. Z(IB2PP+1).NE.BUF(6)) GO TO 120\r\n      IF (Z(ITFL) .NE. BUF(7)) GO TO 120\r\n      IF (Z(IMETH).NE.0 .AND. Z(IMETH).NE.IMRQST) GO TO 120\r\nC\r\nC     TEST FOR CHANGED FREQUENCY SET\r\nC\r\n      IF (Z(IFREQ).NE.IFRQST .AND. BRANCH.EQ.5) GO TO 120\r\n      GO TO 70\r\n   90 COUNT = -1\r\n      GO TO 120\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n  100 CALL READ (*140,*110,CASECC,Z,BUF2,1,NCC)\r\n      CALL MESAGE (M8,0,NAM)\r\n  110 CALL WRITE (CASEXX,Z,NCC,1)\r\n      COUNT = COUNT + 1\r\n      CALL READ (*90,*120,CASECC,Z,BUF2,1,NCC)\r\n      GO TO 120\r\nC\r\nC     CLOSE FILES. WRITE TRAILER. RETURN.\r\nC\r\n  120 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (CASEXX,CLSREW)\r\n      MCB(1) = CASEXX\r\n      MCB(2) = COUNT\r\n      CALL WRTTRL (MCB)\r\n      IF (COUNT.LE.1 .AND. IOCNT.EQ.1) LOOP = -1\r\nC\r\nC     CHECK ALL PSDL ACCOUNTED FOR\r\nC\r\n      IF (IRY .EQ. 0) GO TO 125\r\n      NOGO = 0\r\n      DO 121  I = ILS,ILF\r\n      IF (Z(I) .LT. 0) GO TO 121\r\n      NOGO = -1\r\n      CALL MESAGE (33,Z(I),NAM)\r\n  121 CONTINUE\r\n      IF (NOGO .LT. 0) CALL MESAGE (-7,0,NAM)\r\n  125 RETURN\r\nC\r\nC     FATAL FILE ERRORS.\r\nC\r\n  130 N = -1\r\n      GO TO 150\r\n  140 N = -2\r\n      FILE = CASECC\r\n  150 CALL MESAGE (N,FILE,NAM)\r\n      GO TO 150\r\n      END\r\n"
  },
  {
    "path": "mis/casege.f",
    "content": "      SUBROUTINE CASEGE\r\nC\r\nC GENERATES IDENTICAL SUBCASES LMODES*NDIR TIMES FOR DDAM\r\nC\r\nC     CASEGEN  CASECC/CASEDD/C,Y,LMODES/V,N,NDIR/V,N,NMODES $\r\nC    EQUIV CASEDD,CASECC  $\r\nC\r\n      INTEGER BUF1,BUF2,SYSBUF,CASECC,CASEDD\r\n      DIMENSION IZ(1),NAM(2),MCB(7)\r\n      COMMON/SYSTEM/SYSBUF\r\n      COMMON/BLANK/LMODES,NDIR,NMODES\r\n      COMMON/ZZZZZZ/Z(1)\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      DATA CASECC,CASEDD/101,201/\r\n      DATA NAM/4HCASE,4HGE  /\r\nC\r\n      LCORE=KORSZ(Z)\r\n      BUF1=LCORE-SYSBUF+1\r\n      BUF2=BUF1-SYSBUF\r\n      LCORE=BUF2-1\r\n      IF(LCORE.LE.0)GO TO 1008\r\nC\r\n      CALL GOPEN(CASECC,Z(BUF1),0)\r\n      CALL GOPEN(CASEDD,Z(BUF2),1)\r\n      CALL READ (*1002,*10,CASECC,Z,LCORE,0,IWORDS)\r\n      GO TO 1008\r\n   10 IF(LMODES.GT.NMODES)LMODES=NMODES\r\n      ITOT=LMODES*NDIR\r\n      DO 20 I=1,ITOT\r\n      IZ(1)=I\r\n      CALL WRITE(CASEDD,Z,IWORDS,1)\r\n   20 CONTINUE\r\n      CALL CLOSE(CASECC,1)\r\n      CALL CLOSE(CASEDD,1)\r\n      MCB(1)=CASECC\r\n      CALL RDTRL(MCB)\r\n      MCB(1)=CASEDD\r\n      MCB(2)=ITOT\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\n 1002 CALL MESAGE(-2,CASECC,NAM)\r\n 1008 CALL MESAGE(-8,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdcmpd.f",
    "content": "      SUBROUTINE CDCMPD (*,IX,X,DX)\r\nC\r\nC     DOUBLE-PRECISION VERSION OF CDCOMP\r\nC     (THIS ROUTINE WAS PREVIOUSLY CALLED CDCOMP AND IS NOW RENAMED\r\nC     TO CDCMPD)    BY G.CHAN/SPERRY  6/85\r\nC\r\nC     TO ELIMINATE IBM UNDERFLOW MESSAGES, THIS VERSION ZEROS OUT\r\nC     THE COMPUTED DX ELEMENT IF /IT/ IS LESS THAN 1.0D-38\r\nC\r\nC     CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A UNIT LOWE\r\nC     TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING PARTIAL\r\nC     PIVOTING WITHIN THE LOWER BAND\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEA    =  MATRIX CONTROL BLOCK FOR THE INPUT  MATRIX A\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U\r\nC     SR1FIL   =  SCRATCH FILE\r\nC     SR2FIL   =  SCRATCH FILE\r\nC     SR3FIL   =  SCRATCH FILE\r\nC     NX       =  NUMBER OF CELLS OF CORE AVAILABLE AT IX\r\nC     DET      =  CELL WHERE THE DETERMINATE OF A WILL BE STORED\r\nC     POWER    =  SCALE FACTOR TO BE APPLIED TO THE DETERMINATE\r\nC                 (DETERMINATE = DET*10**POWER)\r\nC     MINDIA   =  CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE S\r\nC     IX       =  BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP\r\nC     X        =  SAME BLOCK AS IX, BUT TYPED REAL\r\nC     DX       =  SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,POWER    ,\r\n     1                   SYSBUF    ,FORMA    ,TYPEA    ,RDP      ,\r\n     2                   TYPEL     ,EOL      ,PARM(5)  ,BUFA     ,\r\n     3                   OUTBUF    ,SR1BUF   ,SR2BUF   ,SR3BUF   ,\r\n     4                   B         ,BBAR     ,C        ,CBAR     ,\r\n     5                   BBAR1     ,R        ,CCOUNT   ,CBCNT    ,\r\n     6                   SCRFLG    ,END      ,BBBAR    ,BBBAR1   ,\r\n     7                   COUNT     ,SR2FL    ,SR3FL    ,SR1FIL   ,\r\n     8                   SR2FIL    ,SR3FIL   ,SQR      ,SYM      ,\r\n     9                   FLAG      ,ITRAN(6)\r\n      DOUBLE PRECISION   DZ(2)     ,DA(2)    ,DET      ,MAX(2)   ,\r\n     1                   MINDIA    ,DX(1)    ,DTRN(2)  ,DX1      ,\r\n     2                   DX2       ,EPSI\r\n      DIMENSION          IX(1)     ,X(1)\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM\r\n      COMMON   /CDCMPX/  FILEA(7)  ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL    ,SR3FIL   ,DET(2)   ,POWER    ,\r\n     2                   NX        ,MINDIA   ,B        ,BBAR     ,\r\n     3                   C         ,CBAR     ,R\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENT\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /ZBLPKX/  Z(4)      ,JJ\r\n      COMMON   /UNPAKX/  ITYPEX    ,IXY      ,JXY      ,INCRX\r\n      COMMON   /PACKX /  ITYPE1    ,ITYPE2   ,IY       ,JY       ,\r\n     1                   INCRY\r\n      EQUIVALENCE        (DA(1),A(1))        ,(DZ(1),Z(1))       ,\r\n     1                   (FORMA,FILEA(4))    ,(TYPEA,FILEA(5))   ,\r\n     2                   (NCOL,FILEA(3))     ,(TYPEL,FILEL(5))   ,\r\n     3                   (ITRAN(1),ITRN)     ,(ITRAN(2),JTRN)    ,\r\n     4                   (ITRAN(3),DTRN(1))\r\n      DATA      PARM(3), PARM(4)  /4HCDCO,4HMP  /\r\n      DATA      IBEGN  , IEND     /4HBEGN,4HEND /\r\n      DATA      EPSI   / 1.0D-38  /\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      BUFA   = NX     - SYSBUF\r\n      IBUFL  = BUFA   - SYSBUF\r\n      OUTBUF = IBUFL  - SYSBUF\r\n      SR1BUF = OUTBUF - SYSBUF\r\n      SR2BUF = SR1BUF - SYSBUF\r\n      SR3BUF = SR2BUF - SYSBUF\r\n      ICRQ   =-SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      DET(1) = 1.D0\r\n      DET(2) = 0.D0\r\n      POWER  = 0\r\n      MINDIA = 1.D+25\r\n      ITERM  = 0\r\n      IF (FILEA(1) .LT. 0) ITERM = 1\r\n      FILEA(1) = IABS(FILEA(1))\r\nC\r\nC     WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE\r\nC     TRAILER RECORDS.\r\nC\r\n      CALL GOPEN (FILEL,IX(IBUFL),WRTREW)\r\n      PARM(2) = SR2FIL\r\n      CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW)\r\n      CALL FNAME (FILEU(1),X(1))\r\n      CALL WRITE (SR2FIL,X(1),2,1)\r\n      FILEL(2) = 0\r\n      FILEL(3) = NCOL\r\n      FILEL(4) = 4\r\n      FILEL(6) = 0\r\n      FILEL(7) = 0\r\n      FILEU(2) = 0\r\n      FILEU(3) = NCOL\r\n      FILEU(4) = 5\r\n      FILEU(6) = 0\r\n      FILEU(7) = 0\r\nC\r\nC     CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R\r\nC\r\n      IF (B.GT.0 .AND. BBAR.GT.0) GO TO 11\r\n      CALL GENVEC (*1720,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR,\r\n     1             R,2)\r\n   11 CONTINUE\r\n      BBAR1  = BBAR + 1\r\n      BBBAR  = MIN0(B+BBAR,NCOL)\r\n      BBBAR1 = BBBAR - 1\r\n      SCRFLG = 0\r\n      IF (R .LT. BBBAR1) SCRFLG = 1\r\n      IF (SCRFLG .EQ. 0) GO TO 20\r\n      ICRQ = (BBBAR1-R)*4*BBAR\r\n      CALL PAGE2(2)\r\n      WRITE  (NOUT,15) UIM,ICRQ\r\n   15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ',\r\n     1       'DECOMPOSITION.', /1X,I10,\r\n     2       ' ADDITIONAL WORDS NEEDED TO STAY IN CORE.')\r\nC\r\nC     INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE\r\nC\r\n   20 I1   = 1\r\n      IPAK = I1 + 2*BBAR*R + BBBAR/2 + 1\r\n      I1SP = BBAR*R*4 + 1\r\n      I2   = IPAK\r\n      I3SP = (I2  + 2*MIN0(NCOL,BBBAR + BBAR))*2 - 1\r\n      I3   = I2   + 2*MIN0(NCOL,BBBAR+BBAR) + C\r\n      I4SP = I3SP + (BBAR+2)*C*4 - 2*C\r\n      I4   = I3   + 2*BBAR1*C + CBAR\r\n      I5   = I4   + 2*BBBAR*CBAR\r\n      I6SP = (I5  + 2*C*CBAR)*2 - 1\r\n      I7SP = I6SP + CBAR\r\n      PARM(5) = IBEGN\r\n      CALL CONMSG (PARM(3),3,0)\r\n      END  = I7SP + C\r\nC\r\nC     DEFINITION OF KEY PROGRAM PARAMETERS\r\nC\r\nC     I1     =  POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED\r\nC     I1SP   =  POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED\r\nC     IPAK   =  POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM\r\nC     I2     =  POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED\r\nC     I3     =  POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED\r\nC     I4     =  POINTER TO AREA WHERE ACTIVE ROWS ARE STORED\r\nC     I5     =  POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED\r\nC     I6SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES\r\nC               ARE STORED\r\nC     I7SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES\r\nC               ARE STORED\r\nC     B      =  UPPER HALF-BAND\r\nC     BBAR   =  LOWER HALF-BAND\r\nC     C      =  NUMBER OF ACTIVE COLUMNS\r\nC     CBAR   =  NUMBER OF ACTIVE ROWS\r\nC     R      =  NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE\r\nC     JPOS   =  CURRENT PIVOTAL COLUMN INDEX\r\nC     JPOSL  =  NEXT COLUMN OF L TO BE WRITTEN OUT\r\nC     LCOL   =  NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON\r\nC               SCRATCH FILES\r\nC     CCOUNT =  CURRENT NUMBER OF ACTIVE COLUMNS\r\nC     CBCNT  =  CURRENT NUMBER OF ACTIVE ROWS\r\nC     ITRN   =  ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT\r\nC     JTRN   =  COLUMN INDEX  OF NEXT ACTIVE COLUMN ELEMENT\r\nC     IOFF   =  ROW POSITION OF THE FIRST ELEMENT IN AREA II\r\nC     ITERM  =  IF NONZERO, TERMINATE BEFORE THE RE-WRITE\r\nC     NCOL   =  SIZE OF THE INPUT MATRIX\r\nC     BBBAR  =  B + BBAR\r\nC     BBAR1  =  BBAR + 1\r\nC     BBBAR1 =  B + BBAR - 1\r\nC     SCRFLG =  NONZERO MEANS SPILL\r\nC\r\nC     ****************************************************************\r\nC     RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED\r\nC     ORDER\r\nC     ****************************************************************\r\nC\r\n      PARM(2) = FILEA(1)\r\n      CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW)\r\n      CCOUNT = 0\r\n      IF (C .EQ. 0) GO TO 40\r\n      CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL)\r\nC\r\nC     ZERO CORE\r\nC\r\n   40 DO 50 I = 1,END\r\n   50 X(I) = 0.\r\n      IF (C .EQ. 0) GO TO 260\r\nC\r\nC     ****************************************************************\r\nC     OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ\r\nC     IN THE FIRST BBAR + 1 ROWS\r\nC     ****************************************************************\r\nC\r\n      PARM(2) = SR1FIL\r\n      CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD)\r\n      K = 0\r\n   60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 70\r\n      CALL CLOSE (SR1FIL,REW)\r\n      GO TO 140\r\n   70 IF (ITRN .GT. K+1) GO TO 130\r\nC\r\nC     DETERMINE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      IF (JTRN .LE. BBBAR) GO TO 60\r\n      KK  = 0\r\n   80 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 90\r\n      KK  = KK + 1\r\n      IF (KK-C) 80,100,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING COLUMN\r\nC\r\n   90 IN1 = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      GO TO 60\r\nC\r\nC     CREATE NEW ACTIVE COLUMN\r\nC\r\n  100 CCOUNT = CCOUNT + 1\r\n      KK  = 0\r\n  110 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 120\r\n      KK  = KK + 1\r\n      IF (KK - C) 110,1710,1710\r\n  120 IX(IN1) = JTRN\r\n      IN1 = IN1 + C\r\n      IX(IN1) = K + 1\r\n      IN1 = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      GO TO 60\r\n  130 K = K + 1\r\n      IF (K-BBAR1) 70,140,1710\r\nC\r\nC     SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE\r\nC\r\n  140 ASSIGN 260 TO KK\r\n  150 IN1 = I7SP\r\n      K   = 0\r\n  160 IN2 = I3SP + K\r\n      IF (IX(IN2)) 1710,180,190\r\n  170 IN1 = IN1 + 1\r\n  180 K   = K + 1\r\n      IF (K-C) 160,250,1710\r\n  190 IF (IN1 .NE. I7SP) GO TO 200\r\n      IX(IN1) = K\r\n      GO TO 170\r\n  200 KKK = 0\r\n  210 IN3 = IN1 - KKK\r\n      IF (IN3 .GT. I7SP) GO TO 220\r\n      IX(IN3) = K\r\n      GO TO 170\r\n  220 IN4 = I3SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 240,1710,230\r\n  230 IX(IN3) = K\r\n      GO TO 170\r\n  240 IX(IN3) = IX(IN3-1)\r\n      KKK = KKK + 1\r\n      GO TO 210\r\n  250 GO TO KK, (260,1570)\r\n  260 CONTINUE\r\nC\r\nC     INITIALIZE\r\nC\r\n      SR2FL = FILEU(1)\r\n      SR3FL = SR3FIL\r\n      JPOS  = 1\r\n      PARM(2) = FILEA(1)\r\n      CALL FWDREC (*1690,FILEA(1))\r\n      LCOL  = 0\r\n      CBCNT = 0\r\n      JPOSL = 0\r\n  270 IF (JPOS .GT. NCOL) GO TO 1670\r\nC\r\nC     ****************************************************************\r\nC     READ NEXT COLUMN OF A INTO AREA II\r\nC     ****************************************************************\r\nC\r\n      IOFF  = MAX0(1,JPOS-BBBAR1)\r\n      COUNT = CBCNT\r\n      CALL INTPK (*1720,FILEA(1),0,CDP,0)\r\n      K = 1\r\n      IF (JPOS .GT. BBBAR) K = JPOS - B + 1\r\n  280 IF (EOL) 400,290,400\r\n  290 CALL ZNTPKI\r\n      IF (II .LT. K) GO TO 280\r\n      K = JPOS + BBAR\r\n  300 IF (II .GT. K) GO TO 330\r\nC\r\nC     READ ELEMENTS WITHIN THE BAND INTO AREA II\r\nC\r\n      IN1 = I2 + 2*(II-IOFF)\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n  310 IF (EOL) 400,320,400\r\n  320 CALL ZNTPKI\r\n      GO TO 300\r\nC\r\nC     TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND\r\nC\r\n  330 KK  = 0\r\n  340 IN1 = I4SP + KK\r\n      IF (IX(IN1)-II) 350,360,350\r\n  350 KK  = KK + 1\r\n      IF (KK-CBAR) 340,370,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING ROW\r\nC\r\n  360 IN1 = I4 + 2*(KK+1)*BBBAR - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      GO TO 310\r\nC\r\nC     CREATE NEW ACTIVE ROW\r\nC\r\n  370 KK  = 0\r\n  380 IN1 = I4SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 390\r\n      KK  = KK + 1\r\n      IF (KK-CBAR) 380,1710,1710\r\n  390 IX(IN1) = II\r\n      IN1 = IN1 + CBAR\r\n      IX(IN1) = JPOS\r\n      IN1 = I4 + (KK+1)*BBBAR*2 - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      CBCNT = CBCNT + 1\r\n      GO TO 310\r\nC\r\nC     ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI\r\nC\r\n  400 IF (COUNT .EQ. CBCNT) GO TO 500\r\n      IN1 = I6SP\r\n      K   = 0\r\n  410 IN2 = I4SP + K\r\n      IF (IX(IN2)) 1710,430,440\r\n  420 IN1 = IN1 + 1\r\n  430 K   = K + 1\r\n      IF (K-CBAR) 410,500,1710\r\n  440 IF (IN1 .NE. I6SP) GO TO 450\r\n      IX(IN1) = K\r\n      GO TO 420\r\n  450 KK  = 0\r\n  460 IN3 = IN1 - KK\r\n      IF (IN3 .GT. I6SP) GO TO 470\r\n      IX(IN3) = K\r\n      GO TO 420\r\n  470 IN4 = I4SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 490,1710,480\r\n  480 IX(IN3) = K\r\n      GO TO 420\r\n  490 IX(IN3) = IX(IN3-1)\r\n      KK = KK + 1\r\n      GO TO 460\r\n  500 CONTINUE\r\nC\r\nC     TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND\r\nC     THE CURRENT PIVOTAL COLUMN\r\nC\r\n      IF (CCOUNT .EQ. 0) GO TO 600\r\n      IN1 = IX(I7SP) + I3SP\r\n      IF (IX(IN1)-JPOS) 1710,510,600\r\nC\r\nC     MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT\r\nC     ACTIVE COLUMN IN AREA III\r\nC\r\n  510 IX(IN1) = 0\r\n      IN1     = IN1 + C\r\n      IX(IN1) = 0\r\n      IN1     = I3 + IX(I7SP)*BBAR1*2\r\n      CCOUNT  = CCOUNT - 1\r\n      KK  = 0\r\n  520 IN2 = IN1 + KK + KK\r\n      IN3 = I2  + KK + KK\r\n      DX(IN3  ) = DX(IN3  ) + DX(IN2  )\r\n      DX(IN3+1) = DX(IN3+1) + DX(IN2+1)\r\n      DX(IN2  ) = 0.D0\r\n      DX(IN2+1) = 0.D0\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 520,530,1710\r\nC\r\nC     MERGE INTERACTION ELEMENTS\r\nC\r\n  530 CONTINUE\r\n      IF (CBCNT .EQ. 0) GO TO 580\r\n      IN1 = I5 + 2*IX(I7SP)*CBAR\r\n      K   = 0\r\n  540 IN2 = I4SP + K\r\n      IF (IX(IN2) .EQ. 0) GO TO 560\r\n      IN3 = IN1 + 2*K\r\n      IF (DABS(DX(IN3)).LT.EPSI .AND. DABS(DX(IN3+1)).LT.EPSI)\r\n     1    GO TO 560\r\n      IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570\r\nC\r\nC     STORE ELEMENT WITHIN THE LOWER BAND\r\nC\r\n      IN2 = I2 + 2*(IX(IN2)-IOFF)\r\n      DX(IN2  ) = DX(IN2  ) - DX(IN3  )\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n  550 DX(IN3  ) = 0.D0\r\n      DX(IN3+1) = 0.D0\r\n  560 K = K + 1\r\n      IF (K-CBAR) 540,580,1710\r\nC\r\nC     STORE ELEMENT IN THE ACTIVE ROW\r\nC\r\n  570 IN2 = I4 + 2*(K+1)*BBBAR - 2\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n      DX(IN3+1) = 0.D0\r\n      DX(IN2  ) = DX(IN2) - DX(IN3)\r\n      DX(IN3  ) = 0.D0\r\n      GO TO 550\r\nC\r\nC     MOVE THE POINTERS IN AREA VII UP ONE\r\nC\r\n  580 IN1 = I7SP + CCOUNT - 1\r\n      DO 590 I = I7SP,IN1\r\n  590 IX(I) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n  600 IF (LCOL .EQ. 0) GO TO 830\r\nC\r\nC     ****************************************************************\r\nC     OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L,\r\nC     MAKING NOTED INTERCHANGES AS YOU GO\r\nC     ****************************************************************\r\nC\r\n      IF (SCRFLG .EQ. 0) GO TO 630\r\n      IF (LCOL-(R-1)) 630,620,610\r\n  610 PARM(2) = SR2FL\r\n      CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD)\r\n  620 PARM(2) = SR3FL\r\n      CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW)\r\n  630 LL   = 0\r\n      LLL  = 0\r\n      LLLL = 0\r\nC\r\nC     PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1\r\nC\r\n  640 IN1 = I1SP + LL\r\n      INTCHN = IX(IN1)\r\n      IN2 = I2 + LL + LL\r\n      IF (INTCHN .EQ. 0) GO TO 650\r\nC\r\nC     PERFORM ROW INTERCHANGE\r\nC\r\n      IN1 = IN2 + 2*INTCHN\r\n      DA(  1) = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1  ) = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  650 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION FROM THAT COLUMN\r\nC\r\n      END = MIN0(BBAR1,NCOL-(JPOSL+LL))\r\n      IF (DABS(DX(IN2)).LT.EPSI .AND. DABS(DX(IN2+1)).LT.EPSI)\r\n     1    GO TO 720\r\n      IN1 = I1 + 2*LLL*BBAR\r\n      CALL CLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1)\r\n      IF (CBCNT .EQ. 0) GO TO 720\r\nC\r\nC     TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE\r\nC     ADDED IN\r\nC\r\n      KKK = 0\r\n  690 IN3 = I6SP + KKK\r\n      IN1 = IX(IN3) + I4SP\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720\r\n      KK  = IN1 + CBAR\r\n      IF (IX(KK) .GT. JPOSL+LL+1) GO TO 710\r\n      IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710\r\nC\r\nC     ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW\r\nC\r\n      IN4 = I2 + 2*(IX(IN1)-IOFF)\r\n      K   = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR)\r\n      DX1 = DX(K  )\r\n      DX2 = DX(K+1)\r\n      IF (DABS(DX1) .LT. EPSI) DX1 = 0.0D0\r\n      IF (DABS(DX2) .LT. EPSI) DX2 = 0.0D0\r\n      DX(IN4  ) = DX(IN4  ) - DX1*DX(IN2) + DX2*DX(IN2+1)\r\n      DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX1 - DX(IN2)*DX2\r\n      IF (DABS(DX(IN4  )) .LT. EPSI) DX(IN4  ) = 0.0D0\r\n      IF (DABS(DX(IN4+1)) .LT. EPSI) DX(IN4+1) = 0.0D0\r\n  710 KKK = KKK + 1\r\n      IF (KKK .LT. CBCNT) GO TO 690\r\n  720 LL  = LL  + 1\r\n      LLL = LLL + 1\r\n      IF (LL .EQ. LCOL) GO TO 780\r\n      IF (LL-R+1) 640,730,760\r\n  730 IF (R .EQ. BBBAR1) GO TO 640\r\n      IN1  = I1  + 2*LL*BBAR\r\n  750 ICRQ = IN1 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG)\r\n      GO TO 640\r\n  760 IN1 = I1 + (LLL-1)*BBAR *2\r\n      IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770\r\n      CALL WRITE (SR3FL,DX(IN1),4*BBAR,0)\r\n  770 LLL = LLL - 1\r\n      GO TO 750\r\n  780 CONTINUE\r\nC\r\nC     COMPUTE ELEMENTS FOR THE ACTIVE ROWS\r\nC\r\n      IF (CBCNT .EQ. 0) GO TO 830\r\n      K   = 0\r\n  790 IN1 = I4SP + K\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810\r\n  800 K   = K + 1\r\n      IF (K-CBAR) 790,830,1710\r\n  810 IN1 = IN1 + CBAR\r\n      IF (IX(IN1) .EQ. JPOS) GO TO 800\r\n      KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1)\r\n      IN2 = I4  + 2*K*BBBAR - 2\r\n      IN3 = I2  + 2*(KKK-1-MAX0(0,BBBAR-JPOS))\r\n      IN1 = IN2 + 2*BBBAR\r\n      IN2 = IN2 + 2*KKK\r\n  820 IN2 = IN2 + 2\r\n      KKK = KKK + 1\r\n      IN3 = IN3 + 2\r\n      DX(IN1  ) = DX(IN1  ) - DX(IN2)*DX(IN3) + DX(IN2+1)*DX(IN3+1)\r\n      DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      IF (KKK-BBBAR1) 820,800,1710\r\nC\r\nC     SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE\r\nC     ROWS TO BRING IT TO THE DIAGONAL\r\nC\r\n  830 K   = 1\r\n      IN1 = I2 + (JPOS-IOFF)*2\r\n      DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN1  )) .GT. EPSI)  DX1 = DX(IN1  )**2\r\n      IF (DABS(DX(IN1+1)) .GT. EPSI)  DX2 = DX(IN1+1)**2\r\n      MAX(1) = DX1 + DX2\r\n      INTCHN = 0\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 870\r\n  840 IN2 = IN1 + K + K\r\n      DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN2  )) .GT. EPSI)  DX1 = DX(IN2  )**2\r\n      IF (DABS(DX(IN2+1)) .GT. EPSI)  DX2 = DX(IN2+1)**2\r\n      DX2 = DX2 + DX1\r\n      IF (DX2 .GT. MAX(1)) GO TO 860\r\n  850 K   = K + 1\r\n      IF (K-END) 840,870,1710\r\n  860 MAX(1) = DX2\r\n      INTCHN = K\r\n      GO TO 850\r\nC\r\n  870 IF (INTCHN .EQ. 0) GO TO 880\r\nC\r\nC     INTERCHANGE ROWS IN AREA II\r\nC\r\n      DET(1) = -DET(1)\r\n      DET(2) = -DET(2)\r\nC\r\n      MAX(1) = DX(IN1)\r\n      IN2    = IN1 + 2*INTCHN\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = MAX(1)\r\n      MAX(1)  = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = MAX(1)\r\nC\r\nC     STORE THE PERMUTATION INDEX\r\nC\r\n      IN2 = I1SP + LCOL\r\n      IX(IN2) = INTCHN\r\nC\r\nC     DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT\r\nC\r\n  880 DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN1  )) .GT. EPSI)  DX1 = DX(IN1  )**2\r\n      IF (DABS(DX(IN1+1)) .GT. EPSI)  DX2 = DX(IN1+1)**2\r\n      DA(1) = DX1 + DX2\r\n      IF (DABS(DA(1)) .LT. EPSI) GO TO 1720\r\n      MAX(1) = DX(IN1  )/DA(1)\r\n      MAX(2) =-DX(IN1+1)/DA(1)\r\n      MINDIA = DMIN1(DSQRT(DA(1)),MINDIA)\r\n      DA(1)  = DMAX1(DABS(DET(1)),DABS(DET(2)))\r\n  890 IF (DA(1) .LE. 10.D0) GO TO 900\r\n      DET(1) = DET(1)*.1D0\r\n      DET(2) = DET(2)*.1D0\r\n      DA(1)  = DA(1) *.1D0\r\n      POWER  = POWER + 1\r\n      GO TO 890\r\n  900 IF (DA(1).GE. .1D0) GO TO 910\r\n      DET(1) = DET(1)*10.D0\r\n      DET(2) = DET(2)*10.D0\r\n      DA(1)  = DA(1) *10.D0\r\n      POWER  = POWER - 1\r\n      GO TO 900\r\n  910 DA(1)  = DET(1)*DX(IN1) - DET(2)*DX(IN1+1)\r\n      DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1)\r\n      DET(1) = DA(1)\r\n      K   = 1\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 930\r\n  920 IN2 = IN1 + K + K\r\n      DA(1) = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2)\r\n      DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1)\r\n      DX(IN2  ) = DA(1)\r\n      IF (DABS(DX(IN2  )) .LT. EPSI) DX(IN2  ) = 0.0D0\r\n      IF (DABS(DX(IN2+1)) .LT. EPSI) DX(IN2+1) = 0.0D0\r\n      K = K + 1\r\n      IF (K-END) 920,930,1710\r\n  930 IF (CBCNT .EQ. 0) GO TO 950\r\nC\r\nC     DIVIDE THE ACTIVE ROWS BY THE DIAGONAL\r\nC\r\n      K   = 0\r\n      IN1 = I4 + 2*BBBAR1\r\n  940 DA(    1) = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2)\r\n      DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1)\r\n      DX(IN1  ) = DA(1)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      IN1 = IN1 + 2*BBBAR\r\n      K   = K + 1\r\n      IF (K-CBAR) 940,950,1710\r\n  950 CONTINUE\r\nC\r\nC     INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN\r\nC\r\n      IF (CCOUNT  .EQ.  0) GO TO 1000\r\n      IF (JPOS .LT. BBBAR) GO TO 1000\r\n      INTCH = IX(I1SP)\r\n      K   = 0\r\n  960 IN1 = I3SP + K\r\n      IF (INTCH .EQ. 0) GO TO 970\r\n      IN1 = I3  + 2*K*BBAR1\r\n      IN2 = IN1 + INTCH + INTCH\r\n      DA(  1) = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1  ) = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  970 KK  = 1\r\n      IN2 = I1 - 2\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (DABS(DX(IN1)).LT.EPSI .AND. DABS(DX(IN1+1)).LT.EPSI)\r\n     1    GO TO 990\r\n  980 IN3 = IN1 + KK + KK\r\n      IN4 = IN2 + KK + KK\r\n      DX(IN3  ) = DX(IN3  ) - DX(IN1)*DX(IN4) + DX(IN1+1)*DX(IN4+1)\r\n      DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4)\r\n      IF (DABS(DX(IN3  )) .LT. EPSI) DX(IN3  ) = 0.0D0\r\n      IF (DABS(DX(IN3+1)) .LT. EPSI) DX(IN3+1) = 0.0D0\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 980,990,1710\r\n  990 K  = K + 1\r\n      IF (K-C) 960,1000,1710\r\nC\r\nC     WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS\r\nC\r\n 1000 PARM(2) = SR2FIL\r\n      CALL BLDPK (CDP,TYPEL,SR2FIL,0,0)\r\n      IN1 = I2\r\n      JJ  = IOFF\r\n 1010 DZ(1) = DX(IN1  )\r\n      DZ(2) = DX(IN1+1)\r\n      IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1030\r\n      CALL ZBLPKI\r\n 1030 IN1 = IN1 + 2\r\n      JJ  = JJ  + 1\r\n      IF (JJ-JPOS) 1010,1010,1040\r\n 1040 IF (DABS(DX(IN1-2)).LT.EPSI .AND. DABS(DX(IN1-1)).LT.EPSI)\r\n     1    GO TO 1720\r\nC\r\nC     PACK ACTIVE COLUMN ELEMENTS ALSO\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1090\r\n      IF (JPOS .LT. BBBAR) GO TO 1090\r\n      K   = 0\r\n 1060 IN1 = I7SP + K\r\n      IN2 = IX(IN1) + I3SP\r\n      GO TO 1080\r\n 1070 K   = K + 1\r\n      IF (K-CCOUNT) 1060,1090,1710\r\n 1080 IN3 = I3 + 2*(IX(IN1)*BBAR1)\r\n      DZ(1) = DX(IN3  )\r\n      DZ(2) = DX(IN3+1)\r\n      IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1070\r\n      JJ  = IX(IN2)\r\n      CALL ZBLPKI\r\n      GO TO 1070\r\n 1090 CALL BLDPKN (SR2FIL,0,FILEU)\r\nC\r\nC     COMPUTE ACTIVE ROW-COLUMN INTERACTION\r\nC\r\n      IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140\r\n      IF (JPOS .LT. BBBAR) GO TO 1140\r\n      K   = 0\r\n 1100 CONTINUE\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (DABS(DX(IN1)).LT.EPSI .AND. DABS(DX(IN1+1)).LT.EPSI)\r\n     1    GO TO 1130\r\n      KK  = 0\r\n 1110 IN2 = I4 + 2*KK*BBBAR\r\n      IF (DABS(DX(IN2)).LT.EPSI .AND. DABS(DX(IN2+1)).LT.EPSI)\r\n     1    GO TO 1120\r\n      IN3 = I5 + 2*(K*CBAR+KK)\r\n      DX(IN3  ) = DX(IN3  ) + DX(IN2)*DX(IN1) - DX(IN2+1)*DX(IN1+1)\r\n      DX(IN3+1) = DX(IN3+1) + DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1)\r\n      IF (DABS(DX(IN3  )) .LT. EPSI) DX(IN3  ) = 0.0D0\r\n      IF (DABS(DX(IN3+1)) .LT. EPSI) DX(IN3+1) = 0.0D0\r\n 1120 KK = KK + 1\r\n      IF (KK-CBAR) 1110,1130,1710\r\n 1130 K = K + 1\r\n      IF (K-C) 1100,1140,1710\r\nC\r\nC     MOVE ELEMENTS IN AREA III UP ONE CELL\r\nC\r\n 1140 IF (CCOUNT .EQ.   0) GO TO 1190\r\n      IF (JPOS .LT. BBBAR) GO TO 1190\r\n      K   = 0\r\n 1150 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1180\r\n      KK  = 0\r\n      IN1 = I3  + 2*K*BBAR1\r\n 1160 IN2 = IN1 + KK + KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK  = KK + 1\r\n      IF (KK-BBAR) 1160,1170,1710\r\n 1170 DX(IN2+2) = 0.D0\r\n      DX(IN2+3) = 0.D0\r\n 1180 K   = K + 1\r\n      IF (K-C) 1150,1190,1710\r\nC\r\nC\r\nC     DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT\r\nC\r\n 1190 IF (LCOL-BBBAR1) 1370,1200,1200\r\nC\r\nC     OUTPUT A COLUMN OF L\r\nC\r\n 1200 PARM(2) = FILEL(1)\r\n      JPOSL   = JPOSL + 1\r\n      CALL BLDPK (CDP,TYPEL,FILEL(1),0,0)\r\nC\r\nC     STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT\r\nC\r\n      JJ    = JPOSL\r\n      DZ(1) = IX(I1SP)\r\n      DZ(2) = 0.D0\r\n      CALL ZBLPKI\r\n      K     = 0\r\n 1210 JJ    = JPOSL + K   + 1\r\n      IN2   = I1 + K + K\r\n      DZ(1) = DX(IN2  )\r\n      DZ(2) = DX(IN2+1)\r\n      IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1230\r\n      CALL ZBLPKI\r\n 1230 K = K + 1\r\n      IF (K-BBAR) 1210,1240,1710\r\nC\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC\r\n 1240 IF (CBCNT .EQ. 0) GO TO 1280\r\n      K   = 0\r\n 1250 IN1 = I6SP + K\r\n      IN2 = I4 + (IX(IN1)*BBBAR)*2\r\n      IN1 = IX(IN1) + I4SP\r\n      JJ  = IX(IN1)\r\n      DZ(1) = DX(IN2  )\r\n      DZ(2) = DX(IN2+1)\r\n      IF (DABS(DZ(1)).LT.EPSI .AND. DABS(DZ(2)).LT.EPSI) GO TO 1270\r\n      CALL ZBLPKI\r\n 1270 K = K + 1\r\n      IF (K-CBCNT) 1250,1280,1710\r\n 1280 CALL BLDPKN (FILEL,0,FILEL)\r\nC\r\nC     MOVE PERMUTATION INDICES OVER ONE ELEMENT\r\nC\r\n      END = I1SP + LCOL\r\n      DO 1290 I = I1SP,END\r\n 1290 IX(I) = IX(I+1)\r\nC\r\nC     MOVE ELEMENTS IN AREA I OVER ONE COLUMN\r\nC\r\n      K = 0\r\n      IF (SCRFLG .EQ. 0) GO TO 1310\r\n      CALL CLOSE (SR2FL,REW)\r\n      CALL OPEN  (*1680,SR2FL,IX(SR2BUF),RD)\r\n      IF (R .GT. 2) GO TO 1310\r\n      ICRQ = I1 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG)\r\n      GO TO 1360\r\n 1310 IN1 = I1  + K*BBAR*2\r\n      IN2 = IN1 + BBAR+BBAR\r\n      CALL CXLOOP (DX(IN1),DX(IN2),BBAR)\r\n      K   = K + 1\r\n      IF (K-R+2) 1310,1340,1360\r\n 1340 IF (R-BBBAR1) 1350,1310,1710\r\n 1350 ICRQ = IN2 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG)\r\n 1360 LCOL = LCOL - 1\r\nC\r\nC     STORE CURRENT COLUMN OF L\r\nC\r\n 1370 IF (CBCNT .EQ. 0) GO TO 1420\r\nC\r\nC     MOVE ELEMENTS IN AREA IV UP ONE CELL\r\nC\r\n      K   = 0\r\n 1380 IN1 = I4SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1410\r\n      KK  = 0\r\n      IN1 = I4 + 2*K*BBBAR\r\n 1390 IN2 = IN1 + KK+KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK  = KK + 1\r\n      IF (KK-BBBAR1) 1390,1400,1710\r\n 1400 DX(IN2+2) = 0.D0\r\n      DX(IN2+3) = 0.D0\r\n 1410 K   = K + 1\r\n      IF (K-CBAR) 1380,1420,1710\r\n 1420 IF (SCRFLG .NE. 0) GO TO 1450\r\nC\r\nC     STORE COLUMN IN CORE\r\nC\r\n 1430 IN1 = I1 + 2*LCOL*BBAR\r\n      END = MIN0(BBAR,NCOL-JPOS)\r\n      IF (END .EQ. 0) GO TO 1480\r\n      K   = 0\r\n      IN3 = I2 + 2*(JPOS-IOFF+1)\r\n 1440 IN2 = IN1 + K + K\r\n      IN4 = IN3 + K + K\r\n      DX(IN2  ) = DX(IN4  )\r\n      DX(IN2+1) = DX(IN4+1)\r\n      K   = K + 1\r\n      IF (K-END) 1440,1480,1710\r\nC\r\nC     STORE COLUMN ON THE SCRATCH FILE\r\nC\r\n 1450 IF (LCOL-R+1) 1430,1470,1460\r\n 1460 IN1 = I1 + (LLL-1)*BBAR*2\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*4,0)\r\n 1470 IN1 = I2 + 2*(JPOS-IOFF+1)\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*4,0)\r\nC\r\nC     CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM\r\nC\r\n      CALL CLOSE (SR3FL,REW)\r\n      CALL CLOSE (SR2FL,REW)\r\n      IN1   = SR2FL\r\n      SR2FL = SR3FL\r\n      SR3FL = IN1\r\n 1480 LCOL  = LCOL + 1\r\n      IF (C .EQ. 0) GO TO 1570\r\n      IF (JPOS .LT . BBBAR) GO TO 1570\r\nC\r\nC     READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS\r\nC\r\n      COUNT = CCOUNT\r\n      IF (ITRN .LT. 0) GO TO 1570\r\n 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560\r\nC\r\nC     TEST TO SEE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      K   = 0\r\n 1500 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 1540\r\n      K   = K + 1\r\n      IF (K-C) 1500,1510,1710\r\nC\r\nC     CREATE A NEW ACTIVE COLUMN\r\nC\r\n 1510 K   = 0\r\n 1520 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1530\r\n      K   = K + 1\r\n      IF (K-C) 1520,1710,1710\r\n 1530 IX(IN1) = JTRN\r\n      IN1 = IN1 + C\r\n      IX(IN1) = ITRN\r\n      IN1 = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      IF (DABS(DX(IN1  )) .LT. EPSI) DX(IN1  ) = 0.0D0\r\n      IF (DABS(DX(IN1+1)) .LT. EPSI) DX(IN1+1) = 0.0D0\r\n      CCOUNT = CCOUNT + 1\r\n      GO TO 1550\r\nC\r\nC     STORE ELEMENT IN EXISTING COLUMN\r\nC\r\n 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DX(IN1  ) + DTRN(1)\r\n      DX(IN1+1) = DX(IN1+1) + DTRN(2)\r\n 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 1490\r\n      CALL CLOSE (SR1FIL,REW)\r\n 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570\r\nC\r\nC     RE-ARRANGE INDEXES IN SEQUENTIAL ORDER\r\nC\r\n      ASSIGN 1570 TO KK\r\n      GO TO 150\r\n 1570 CONTINUE\r\n      JPOS = JPOS + 1\r\nC\r\nC     ZERO AREA II\r\nC\r\n      END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1\r\n      DO 1590 I = I2,END\r\n 1590 DX(I) = 0.D0\r\nC\r\nC      TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III\r\nC\r\n      IF (CBCNT  .EQ. 0) GO TO 270\r\n      IF (CCOUNT .EQ. 0) GO TO 1640\r\n      IF (JPOS-1 .LT. BBBAR) GO TO 270\r\n      IN1 = I4SP\r\n      K   = 0\r\n 1600 IN2 = IN1 + K\r\n      IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610\r\n      K   = K + 1\r\n      IF (K .LT. CBAR) GO TO 1600\r\n      GO TO 270\r\n 1610 IN1 = I5 + K + K\r\n      IN2 = I3 + BBAR + BBAR\r\n      K   = 0\r\n 1620 DX(IN2  ) = DX(IN2  ) - DX(IN1  )\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN1+1)\r\n      DX(IN1  ) = 0.D0\r\n      DX(IN1+1) = 0.D0\r\n      IN2 = IN2 + BBAR1 + BBAR1\r\n      IN1 = IN1 + CBAR  + CBAR\r\n      K   = K + 1\r\n      IF (K .LT. C) GO TO 1620\r\nC\r\nC     TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED\r\nC\r\n 1640 IN1 = IX(I6SP) + I4SP\r\n      IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270\r\nC\r\nC     ELIMINATE THE ACTIVE ROW\r\nC\r\n 1650 IX(IN1) = 0\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = 0\r\n      CBCNT   = CBCNT - 1\r\nC\r\nC     MOVE INDEXES IN AREA VI UP ONE\r\nC\r\n      IN1 = I6SP + CBCNT - 1\r\n      DO 1660 I = I6SP,IN1\r\n 1660 IX(I) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n      GO TO 270\r\nC\r\nC     FINISH WRITING OUT THE COMPLETED COLUMNS OF L\r\nC\r\n 1670 CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (FILEL,NOREW)\r\n      CALL CLOSE (SR2FIL,NOREW)\r\n      CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R,\r\n     1             BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\n      PARM(5) = IEND\r\n      CALL CONMSG (PARM(3),3,0)\r\n      FILEU(7) = BBBAR\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1680 PARM(1) = -1\r\n      GO TO 1730\r\n 1690 PARM(1) = -2\r\n      GO TO 1730\r\n 1700 PARM(1) = -3\r\n      GO TO 1730\r\n 1710 PARM(1) = -25\r\n      GO TO 1730\r\n 1715 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      GO TO 1730\r\nC\r\nC     SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER\r\nC\r\n 1720 CALL CLOSE (FILEA(1),REW)\r\n      CALL CLOSE (FILEL(1),REW)\r\n      CALL CLOSE (FILEU(1),REW)\r\n      CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (SR2FIL,REW)\r\n      CALL CLOSE (SR3FIL,REW)\r\n      FILEU(2) = BBBAR\r\n      RETURN 1\r\nC\r\n 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdcmps.f",
    "content": "      SUBROUTINE CDCMPS (*,IX,X,DX)\r\nC\r\nC     CDCMPS IS THE SINGLE PRECISION VERSION OF CDCOMP\r\nC     (THIS ROUTINE IS NOT IN OPERATION YET, 6/87)\r\nC\r\nC     CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A LOWER\r\nC     TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX, USING PARTIAL\r\nC     PIVOTING WITHIN THE LOWER BAND\r\nC     THE OUTPUT MATRICES ARE PACKED IN S.P. OR D.P. AS SPECIFIED BY\r\nC     THE CALLING ROUTINE VIA TYPEL (=FILEL(5) IN /CDCMPX/)\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEA    =  MATRIX CONTROL BLOCK FOR THE INPUT MATRIX A\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U\r\nC     SR1FIL   =  SCRATCH FILE\r\nC     SR2FIL   =  SCRATCH FILE\r\nC     SR3FIL   =  SCRATCH FILE\r\nC     NX       =  NUMBER OF CELLS OF CORE AVAILABLE AT IX\r\nC     DET      =  CELL WHERE THE DETERMINATE OF A WILL BE STORED\r\nC     POWER    =  SCALE FACTOR TO BE APPLIED TO THE DETERMINATE\r\nC                 ( DETERMINATE = DET*10**POWER )\r\nC     MINDIA   =  CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE S\r\nC     IX       =  BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP\r\nC     X        =  SAME BLOCK AS IX, BUT TYPED S.P. REAL\r\nC     DX       =  SAME BLOCK AS IX, BUT TYPED S.P. REAL\r\nC\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,POWER    ,\r\n     1                   SYSBUF    ,FORMA    ,TYPEA    ,RDP      ,\r\n     2                   TYPEL     ,EOL      ,PARM(5)  ,BUFA     ,\r\n     3                   OUTBUF    ,SR1BUF   ,SR2BUF   ,SR3BUF   ,\r\n     4                   B         ,BBAR     ,C        ,CBAR     ,\r\n     5                   BBAR1     ,R        ,CCOUNT   ,CBCNT    ,\r\n     6                   SCRFLG    ,END      ,BBBAR    ,BBBAR1   ,\r\n     7                   COUNT     ,SR2FL    ,SR3FL    ,SR1FIL   ,\r\n     8                   SR2FIL    ,SR3FIL   ,SQR      ,SYM      ,\r\n     9                   FLAG      ,ITRAN(4) ,CSP      ,IX(1)\r\n      REAL               DZ(2)     ,DA(2)    ,MAX(2)   ,X(1)     ,\r\n     1                   DX(1)     ,DTRN(2)  ,DX1      ,DX2      ,\r\n     2                   EPSI\r\n      DOUBLE PRECISION   MINDIA    ,DET\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM\r\n      COMMON   /CDCMPX/  FILEA(7)  ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL    ,SR3FIL   ,DET(2)   ,POWER    ,\r\n     2                   NX        ,MINDIA   ,B        ,BBAR     ,\r\n     3                   C         ,CBAR     ,R\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENT\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /ZBLPKX/  Z(4)      ,JJ\r\n      COMMON   /UNPAKX/  ITYPEX    ,IXY      ,JXY      ,INCRX\r\n      COMMON   /PACKX /  ITYPE1    ,ITYPE2   ,IY       ,JY       ,\r\n     1                   INCRY\r\n      EQUIVALENCE        (DA(1)   ,A(1)    ) ,(DZ(1)   ,Z(1)    ),\r\n     1                   (FORMA   ,FILEA(4)) ,(TYPEA   ,FILEA(5)),\r\n     2                   (NCOL    ,FILEA(3)) ,(TYPEL   ,FILEL(5)),\r\n     3                   (ITRAN(1),ITRN    ) ,(ITRAN(2),JTRN    ),\r\n     4                   (ITRAN(3),DTRN(1) )\r\n      DATA      PARM(3), PARM(4)  /4HCDCM, 4HPS  /\r\n      DATA      IBEGN  , IEND     /4HBEGN, 4HEND /\r\n      DATA      EPSI   , J4, J2   /1.E-38, 2, 1  /\r\nC               WERE...  J4, J2   =        4, 2  IN CDCMPD\r\nC\r\n      WRITE  (NOUT,10) UIM\r\n   10 FORMAT (A29,', COMPLEX MATRIX DECOMP. IS NOW COMPUTED IN SINGLE',\r\n     1       ' PRECISION', /5X,'REVERT TO DOUBLE PRECISION COMPUTATION',\r\n     2       ' BY TURNING ON DIAG 41')\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      BUFA   = NX     - SYSBUF\r\n      IBUFL  = BUFA   - SYSBUF\r\n      OUTBUF = IBUFL  - SYSBUF\r\n      SR1BUF = OUTBUF - SYSBUF\r\n      SR2BUF = SR1BUF - SYSBUF\r\n      SR3BUF = SR2BUF - SYSBUF\r\n      ICRQ   =-SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\nC     ITYPEX = CSP\r\nC     ITYPE2 = TYPEL\r\n      DET(1) = 1.D+0\r\n      DET(2) = 0.D+0\r\n      POWER  = 0\r\n      MINDIA = 1.D+25\r\n      N64    = 4\r\n      ITERM  = 0\r\n      IF (FILEA(1) .LT. 0) ITERM = 1\r\n      FILEA(1) = IABS(FILEA(1))\r\nC\r\nC     WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE\r\nC     TRAILER RECORDS.\r\nC\r\n      CALL GOPEN (FILEL,IX(IBUFL),WRTREW)\r\n      PARM(2)  = SR2FIL\r\n      CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW)\r\n      CALL FNAME (FILEU(1),X(1))\r\n      CALL WRITE (SR2FIL,X(1),2,1)\r\n      FILEL(2) = 0\r\n      FILEL(3) = NCOL\r\n      FILEL(4) = 4\r\n      FILEL(6) = 0\r\n      FILEL(7) = 0\r\n      FILEU(2) = 0\r\n      FILEU(3) = NCOL\r\n      FILEU(4) = 5\r\n      FILEU(6) = 0\r\n      FILEU(7) = 0\r\nC\r\nC     CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R\r\nC\r\n      IF (B.GT.0 .AND. BBAR.GT.0) GO TO 11\r\n      CALL GENVEC (*1720,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR,\r\n     1             R,2)\r\n   11 CONTINUE\r\n      BBAR1  = BBAR + 1\r\n      BBBAR  = MIN0(B+BBAR,NCOL)\r\n      BBBAR1 = BBBAR - 1\r\n      SCRFLG = 0\r\n      IF (R .LT. BBBAR1) SCRFLG=1\r\n      IF (SCRFLG .EQ. 0) GO TO 20\r\n      ICRQ = (BBBAR1-R)*J4*BBAR\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,15) UIM,ICRQ\r\n   15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ',\r\n     1       'DECOMPOSITION.', /I10,' ADDITIONAL WORDS NEEDED TO STAY ',\r\n     2       'IN CORE.')\r\nC\r\nC     INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE\r\nC\r\n   20 I1SP = 1\r\n      I1   = I1SP + (BBBAR/2 +1)*2\r\n      I2   = I1 + 2*BBAR*R\r\n      IPAK = I2\r\n      I3SP = I2 + 2*MIN0(NCOL,BBBAR+BBAR)\r\n      I3   = I3SP + C*2\r\n      I4SP = I3 + 2*BBAR1*C\r\n      I4   = I4SP + CBAR*2\r\n      I5   = I4 + 2*BBBAR*CBAR\r\n      I6SP = I5 + 2*CBAR*C\r\n      I7SP = I6SP + C\r\n      END  = I7SP + CBAR\r\nC\r\nC     DEFINITION OF KEY PROGRAM PARAMETERS\r\nC\r\nC     AREA I\r\nC     I1SP   =  POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED\r\nC     I1     =  POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED\r\nC     AREA II\r\nC     I2     =  POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED\r\nC     IPAK   =  POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM\r\nC     AREA III\r\nC     I3SP   =  POINTER TO AREA WHERE SEQUENCE ACTIVE COLUMNS INDEXES\r\nC               ARE STORED\r\nC     I3     =  POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED\r\nC     AREA IV\r\nC     I4SP   =  POINTER TO AREA WHERE SEQUENCE ACTIVE ROW INDEXES ARE\r\nC               STORED\r\nC     I4     =  POINTER TO AREA WHERE ACTIVE ROWS ARE STORED\r\nC     AREA V\r\nC     I5     =  POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED\r\nC     AREA VI\r\nC     I6SP   =  POINTER TO AREA WHERE SEQUENCE ACTIVE ROW INDICES ARE\r\nC               STORED\r\nC     AREA VII\r\nC     I7SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES\r\nC               ARE STORED\r\nC\r\nC     B      =  UPPER HALF-BAND\r\nC     BBAR   =  LOWER HALF-BAND\r\nC     BBAR1  =  BBAR + 1\r\nC     BBBAR  =  B + BBAR\r\nC     BBBAR1 =  B + BBAR - 1\r\nC     C      =  NUMBER OF ACTIVE COLUMNS\r\nC     CBAR   =  NUMBER OF ACTIVE ROWS\r\nC     R      =  NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE\r\nC\r\nC     JPOS   =  CURRENT PIVOTAL COLUMN INDEX\r\nC     JPOSL  =  NEXT COLUMN OF L TO BE WRITTEN OUT\r\nC     LCOL   =  NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON\r\nC               SCRATCH FILES\r\nC     CCOUNT =  CURRENT NUMBER OF ACTIVE COLUMNS\r\nC     CBCNT  =  CURRENT NUMBER OF ACTIVE ROWS\r\nC     ITRN   =  ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT\r\nC     JTRN   =  COLUMN INDEX  OF NEXT ACTIVE COLUMN ELEMENT\r\nC     IOFF   =  ROW POSITION OF THE FIRST ELEMENT IN AREA II\r\nC     ITERM  =  IF NONZERO, TERMINATE BEFORE THE RE-WRITE\r\nC     NCOL   =  SIZE OF THE INPUT MATRIX\r\nC     SCRFLG =  NONZERO MEANS SPILL\r\nC\r\n      IMHERE = 0\r\n      WRITE (NOUT,1711) IMHERE,\r\n     1          I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END,\r\n     2          BBAR,BBAR1,BBBAR,C,CBAR,NCOL\r\n      PARM(5) = IBEGN\r\n      CALL CONMSG (PARM(3),3,0)\r\nC     ****************************************************************\r\nC     RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED\r\nC     ORDER\r\nC     ****************************************************************\r\n      PARM(2) = FILEA(1)\r\n      CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW)\r\n      CCOUNT = 0\r\n      IF (C .EQ. 0) GO TO 40\r\n      CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL,N64)\r\nC\r\nC     ZERO CORE\r\nC\r\n   40 DO 50 I = 1,END\r\n   50 X(I) = 0.\r\n      IF (C .EQ. 0) GO TO 260\r\nC     ****************************************************************\r\nC     OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ\r\nC     IN THE FIRST BBAR + 1 ROWS\r\nC     ****************************************************************\r\n      PARM(2) = SR1FIL\r\n      CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD)\r\n      K = 0\r\n   60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),N64,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 70\r\n      CALL CLOSE (SR1FIL,REW)\r\n      GO TO 140\r\n   70 IF (ITRN .GT. K+1) GO TO 130\r\nC\r\nC     DETERMINE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      IF (JTRN .LE. BBBAR) GO TO 60\r\n      KK  = 0\r\n   80 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 90\r\n      KK  = KK + 1\r\n      IMHERE = 80\r\n      IF (KK-C) 80,100,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING COLUMN\r\nC\r\n   90 IN1 = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      GO TO 60\r\nC\r\nC     CREATE NEW ACTIVE COLUMN\r\nC\r\n  100 CCOUNT = CCOUNT + 1\r\n      KK  = 0\r\n  110 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 120\r\n      KK  = KK + 1\r\n      IMHERE = 120\r\n      IF (KK-C) 110,1710,1710\r\n  120 IX(IN1) = JTRN\r\n      IN1     = IN1 + C\r\n      IX(IN1) = K+1\r\n      IN1     = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      GO TO 60\r\n  130 K = K + 1\r\n      IMHERE = 130\r\n      IF (K-BBAR1) 70,140,1710\r\nC\r\nC     SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE\r\nC\r\n  140 ASSIGN 260 TO KK\r\n  150 IN1 = I7SP\r\n      K   = 0\r\n  160 IN2 = I3SP + K\r\n      IMHERE = 160\r\n      IF (IX(IN2)) 1710,180,190\r\n  170 IN1 = IN1 + 1\r\n  180 K   = K + 1\r\n      IMHERE = 180\r\n      IF (K-C) 160,250,1710\r\n  190 IF (IN1 .NE. I7SP) GO TO 200\r\n      IX(IN1) = K\r\n      GO TO 170\r\n  200 KKK = 0\r\n  210 IN3 = IN1 - KKK\r\n      IF (IN3 .GT. I7SP) GO TO 220\r\n      IX(IN3) = K\r\n      GO TO 170\r\n  220 IN4 = I3SP + IX(IN3-1)\r\n      IMHERE = 220\r\n      IF (IX(IN2)-IX(IN4)) 240,1710,230\r\n  230 IX(IN3) = K\r\n      GO TO 170\r\n  240 IX(IN3) = IX(IN3-1)\r\n      KKK = KKK + 1\r\n      GO TO 210\r\n  250 GO TO KK, (260,1570)\r\n  260 CONTINUE\r\nC\r\nC     INITIALIZE\r\nC\r\n      SR2FL = FILEU(1)\r\n      SR3FL = SR3FIL\r\n      JPOS  = 1\r\n      PARM(2) = FILEA(1)\r\n      CALL FWDREC (*1690,FILEA(1))\r\n      LCOL  = 0\r\n      CBCNT = 0\r\n      JPOSL = 0\r\n  270 IF (JPOS .GT. NCOL) GO TO 1670\r\nC     ****************************************************************\r\nC     READ NEXT COLUMN OF A INTO AREA II\r\nC     ****************************************************************\r\n      IOFF  = MAX0(1,JPOS-BBBAR1)\r\n      COUNT = CBCNT\r\n      CALL INTPK (*1720,FILEA(1),0,CSP,0)\r\n      K = 1\r\n      IF (JPOS .GT. BBBAR) K = JPOS - B + 1\r\n  280 IF (EOL) 400,290,400\r\n  290 CALL ZNTPKI\r\n      IF (II .LT. K) GO TO 280\r\n      K = JPOS + BBAR\r\n  300 IF (II .GT. K) GO TO 330\r\nC\r\nC     READ ELEMENTS WITHIN THE BAND INTO AREA II\r\nC\r\n      IN1 = I2 + 2*(II-IOFF)\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n  310 IF (EOL) 400,320,400\r\n  320 CALL ZNTPKI\r\n      GO TO 300\r\nC\r\nC     TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND\r\nC\r\n  330 KK  = 0\r\n  340 IN1 = I4SP + KK\r\n      IF (IX(IN1)-II) 350,360,350\r\n  350 KK  = KK + 1\r\n      IMHERE = 350\r\n      IF (KK-CBAR) 340,370,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING ROW\r\nC\r\n  360 IN1 = I4 + 2*(KK+1)*BBBAR - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      GO TO 310\r\nC\r\nC     CREATE NEW ACTIVE ROW\r\nC\r\n  370 KK  = 0\r\n  380 IN1 = I4SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 390\r\n      KK = KK + 1\r\n      IMHERE = 380\r\n      IF (KK-CBAR) 380,1710,1710\r\n  390 IX(IN1) = II\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = JPOS\r\n      IN1     = I4 + 2*(KK+1)*BBBAR - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      CBCNT   = CBCNT + 1\r\n      GO TO 310\r\nC\r\nC     ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI\r\nC\r\n  400 IF (COUNT .EQ. CBCNT) GO TO 500\r\n      IN1 = I6SP\r\n      K   = 0\r\n  410 IN2 = I4SP + K\r\n      IMHERE = 410\r\n      IF (IX(IN2)) 1710,430,440\r\n  420 IN1 = IN1 + 1\r\n  430 K   = K + 1\r\n      IMHERE = 430\r\n      IF (K-CBAR) 410,500,1710\r\n  440 IF (IN1 .NE. I6SP) GO TO 450\r\n      IX(IN1) = K\r\n      GO TO 420\r\n  450 KK  = 0\r\n  460 IN3 = IN1 - KK\r\n      IF (IN3 .GT. I6SP) GO TO 470\r\n      IX(IN3) = K\r\n      GO TO 420\r\n  470 IN4 = I4SP + IX(IN3-1)\r\n      IMHERE = 470\r\n      IF (IX(IN2)-IX(IN4)) 490,1710,480\r\n  480 IX(IN3) = K\r\n      GO TO 420\r\n  490 IX(IN3) = IX(IN3-1)\r\n      KK = KK + 1\r\n      GO TO 460\r\n  500 CONTINUE\r\nC\r\nC     TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND\r\nC     THE CURRENT PIVOTAL COLUMN\r\nC\r\n      IF (CCOUNT .EQ. 0) GO TO 600\r\n      IN1 = IX(I7SP) + I3SP\r\n      IMHERE = 505\r\n      IF (IX(IN1)-JPOS) 1710,510,600\r\nC\r\nC     MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT\r\nC     ACTIVE COLUMN IN AREA III\r\nC\r\n  510 IX(IN1) = 0\r\n      IN1     = IN1 + C\r\n      IX(IN1) = 0\r\n      IN1     = I3 + 2*IX(I7SP)*BBAR1\r\n      CCOUNT  = CCOUNT - 1\r\n      KK      = 0\r\n  520 IN2     = IN1 + KK + KK\r\n      IN3     = I2  + KK + KK\r\n      DX(IN3  ) = DX(IN3  ) + DX(IN2  )\r\n      DX(IN3+1) = DX(IN3+1) + DX(IN2+1)\r\n      DX(IN2  ) = 0.0\r\n      DX(IN2+1) = 0.0\r\n      KK = KK + 1\r\n      IMHERE = 525\r\n      IF (KK-BBAR1) 520,530,1710\r\nC\r\nC     MERGE INTERACTION ELEMENTS\r\nC\r\n  530 CONTINUE\r\n      IF (CBCNT .EQ. 0) GO TO 580\r\n      IN1 = I5 + 2*IX(I7SP)*CBAR\r\n      K   = 0\r\n  540 IN2 = I4SP + K\r\n      IF (ABS(IX(IN2)) .LT. EPSI) GO TO 560\r\n      IN3 = IN1 + K + K\r\n      IF (ABS(DX(IN3)).LT.EPSI .AND. ABS(DX(IN3+1)).LT.EPSI)\r\n     1    GO TO 560\r\n      IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570\r\nC\r\nC     STORE ELEMENT WITHIN THE LOWER BAND\r\nC\r\n      IN2 = I2 + 2*(IX(IN2)-IOFF)\r\n      DX(IN2  ) = DX(IN2  ) - DX(IN3  )\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n  550 DX(IN3  ) = 0.0\r\n      DX(IN3+1) = 0.0\r\n  560 K = K + 1\r\n      IMHERE = 560\r\n      IF (K-CBAR) 540,580,1710\r\nC\r\nC     STORE ELEMENT IN THE ACTIVE ROW\r\nC\r\n  570 IN2 = I4 + 2*(K+1)*BBBAR - 2\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n      DX(IN3+1) = 0.0\r\n      DX(IN2) = DX(IN2)-DX(IN3)\r\n      DX(IN3) = 0.0\r\n      GO TO 550\r\nC\r\nC     MOVE THE POINTERS IN AREA VII UP ONE\r\nC\r\n  580 IN1 = I7SP + CCOUNT - 1\r\n      DO 590 I = I7SP,IN1\r\n  590 IX(I) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n  600 IF (LCOL .EQ. 0) GO TO 830\r\nC     ****************************************************************\r\nC     OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L,\r\nC     MAKING NOTED INTERCHANGES AS YOU GO\r\nC     ****************************************************************\r\n      IF (SCRFLG .EQ. 0) GO TO 630\r\n      IF (LCOL-(R-1)) 630,620,610\r\n  610 PARM(2) = SR2FL\r\n      CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD)\r\n  620 PARM(2) = SR3FL\r\n      CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW)\r\n  630 LL   = 0\r\n      LLL  = 0\r\n      LLLL = 0\r\nC\r\nC     PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1\r\nC\r\n  640 IN1   = I1SP + LL\r\n      INTCHN= IX(IN1)\r\n      IN2   = I2 + LL + LL\r\n      IF (INTCHN .EQ. 0) GO TO 650\r\nC\r\nC     PERFORM ROW INTERCHANGE\r\nC\r\n      IN1 = IN2 + 2*INTCHN\r\n      DA(1)   = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1)   = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  650 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION FROM THAT COLUMN\r\nC\r\n      END = MIN0(BBAR1,NCOL-(JPOSL+LL))\r\n      IF (ABS(DX(IN2)).LT.EPSI .AND. ABS(DX(IN2+1)).LT.EPSI)\r\n     1    GO TO 720\r\n      IN1 = I1 + 2*LLL*BBAR\r\n      CALL SLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1)\r\n      IF (CBCNT .EQ. 0) GO TO 720\r\nC\r\nC     TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE\r\nC     ADDED IN\r\nC\r\n      KKK = 0\r\n  690 IN3 = I6SP + KKK\r\n      IN1 = IX(IN3) + I4SP\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720\r\n      KK = IN1 + CBAR\r\n      IF (IX(KK)      .GT. JPOSL+LL+1) GO TO 710\r\n      IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710\r\nC\r\nC     ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW\r\nC\r\n      IN4 = I2 + 2*(IX(IN1)-IOFF)\r\n      K   = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR)\r\n      DX1 = DX(K  )\r\n      DX2 = DX(K+1)\r\n      IF (ABS(DX1) .LT. EPSI) DX1 = 0.\r\n      IF (ABS(DX2) .LT. EPSI) DX2 = 0.\r\n      DX(IN4  ) = DX(IN4  ) - DX1*DX(IN2) + DX2*DX(IN2+1)\r\n      DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX1 - DX(IN2)*DX2\r\n      IF (ABS(DX(IN4  )) .LT. EPSI) DX(IN4  ) = 0.\r\n      IF (ABS(DX(IN4+1)) .LT. EPSI) DX(IN4+1) = 0.\r\n  710 KKK = KKK + 1\r\n      IF (KKK .LT. CBCNT) GO TO 690\r\n  720 LL  = LL  + 1\r\n      LLL = LLL + 1\r\n      IF (LL .EQ. LCOL) GO TO 780\r\n      IF (LL-R+1) 640,730,760\r\n  730 IF (R .EQ. BBBAR1) GO TO 640\r\n      IN1  = I1  + 2*LL*BBAR\r\n  750 ICRQ = IN1 + BBAR*J4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*J4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG)\r\n      GO TO 640\r\n  760 IN1 = I1 + 2*(LLL-1)*BBAR\r\n      IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770\r\n      CALL WRITE (SR3FL,DX(IN1),J4*BBAR,0)\r\n  770 LLL = LLL - 1\r\n      GO TO 750\r\n  780 CONTINUE\r\nC\r\nC     COMPUTE ELEMENTS FOR THE ACTIVE ROWS\r\nC\r\n      IF (CBCNT .EQ. 0) GO TO 830\r\n          JKK = I4SP + CBAR\r\n          WRITE  (6,788) JPOS,BBAR,(IX(K),K=I4SP,JKK)\r\n  788     FORMAT (' JPOS,BBAR,IX(I4SP...I4)=',12I6)\r\n      K   = 0\r\n  790 IN1 = I4SP + K\r\n          WRITE  (6,791) K,I4SP,IN1,IX(IN1),JPOS,BBAR\r\n  791     FORMAT (' CDCMPS/791  K,I4SP,IN1,IX(INX),JPOS,BBAR=',6I7)\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810\r\n  800 K   = K + 1\r\n      IMHERE = 800\r\n      IF (K-CBAR) 790,830,1710\r\n  810 IN1 = IN1 + CBAR\r\n      IF (IX(IN1) .EQ. JPOS) GO TO 800\r\n      KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1)\r\n          WRITE  (6,811) IN1,IX(IN1),JPOS,KKK\r\n  811     FORMAT ('    CDCMPS/811  IN1,IX(IN1),JPOS,KKK=',4I10)\r\n      IN2 = I4  + 2*K*BBBAR - 2\r\n      IN3 = I2  + 2*(KKK-1-MAX0(0,BBBAR-JPOS))\r\n      IN1 = IN2 + 2*BBBAR\r\n      IN2 = IN2 + 2*KKK\r\n  820 IN2 = IN2 + 2\r\n      KKK = KKK + 1\r\n      IN3 = IN3 + 2\r\n      DX(IN1  ) = DX(IN1  ) - DX(IN2)*DX(IN3) + DX(IN2+1)*DX(IN3+1)\r\n      DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1)\r\n      IMHERE = 825\r\n          WRITE  (6,821) KKK,BBBAR1,IN1\r\n  821     FORMAT ('         CDCMPS/821  KKK,BBBAR1,IN1=',3I7)\r\n      IF (KKK-BBBAR1) 820,800,1710\r\nC\r\nC     SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE\r\nC     ROWS TO BRING IT TO THE DIAGONAL\r\nC\r\n  830 K   = 1\r\n      IN1 = I2 + 2*(JPOS-IOFF)\r\n      DX1 = 0.0\r\n      DX2 = 0.0\r\n      IF (ABS(DX(IN1  )) .GT. EPSI) DX1 = DX(IN1  )**2\r\n      IF (ABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2\r\n      MAX(1) = DX1 + DX2\r\n      INTCHN = 0\r\n      END    = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 870\r\n  840 IN2 = IN1 + K + K\r\n      DX1 = 0.0\r\n      DX2 = 0.0\r\n      IF (ABS(DX(IN2  )) .GT. EPSI) DX1 = DX(IN2  )**2\r\n      IF (ABS(DX(IN2+1)) .GT. EPSI) DX2 = DX(IN2+1)**2\r\n      DX2 = DX2 + DX1\r\n      IF (DX2 .GT. MAX(1)) GO TO 860\r\n  850 K   = K + 1\r\n      IMHERE = 850\r\n      IF (K-END) 840,870,1710\r\n  860 MAX(1) = DX2\r\n      INTCHN = K\r\n      GO TO 850\r\nC\r\n  870 IF(INTCHN.EQ.0)GO TO 880\r\nC\r\nC     INTERCHANGE ROWS IN AREA II\r\nC\r\n      DET(1)  =-DET(1)\r\n      DET(2)  =-DET(2)\r\nC\r\n      MAX(1)  = DX(IN1)\r\n      IN2     = IN1 + 2*INTCHN\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = MAX(1)\r\n      MAX(1)  = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = MAX(1)\r\nC\r\nC     STORE THE PERMUTATION INDEX\r\nC\r\n      IN2 = I1SP + LCOL\r\n      IX(IN2) = INTCHN\r\nC\r\nC     DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT\r\nC\r\n  880 DX1 = 0.0\r\n      DX2 = 0.0\r\n      IF (ABS(DX(IN1  )) .GT. EPSI) DX1 = DX(IN1  )**2\r\n      IF (ABS(DX(IN1+1)) .GT. EPSI) DX2 = DX(IN1+1)**2\r\n      DA(1) = DX1 + DX2\r\n      IF (ABS(DA(1)) .LT. EPSI) GO TO 1720\r\n      MAX(1) = DX(IN1)/DA(1)\r\n      MAX(2) =-DX(IN1+1)/DA(1)\r\n      TEMP   = SQRT(DA(1))\r\n      IF (MINDIA .LT. DBLE(TEMP)) MINDIA = DBLE(TEMP)\r\n      DA(1)  = SNGL(DABS(DET(1)))\r\n      TEMP   = SNGL(DABS(DET(2)))\r\n      IF (TEMP .GT. DA(1)) DA(1) = TEMP\r\n  890 IF (DA(1) .LE. 10.0) GO TO 900\r\n      DET(1) = DET(1)*.1D0\r\n      DET(2) = DET(2)*.1D0\r\n      DA(1)  = DA(1) *.10\r\n      POWER  = POWER + 1\r\n      GO TO 890\r\n  900 IF (DA(1) .GE. .1) GO TO 910\r\n      DET(1) = DET(1)*10.D0\r\n      DET(2) = DET(2)*10.D0\r\n      DA(1)  = DA(1) *10.0\r\n      POWER  = POWER - 1\r\n      GO TO 900\r\n  910 DA(1)  = DET(1)*DX(IN1) - DET(2)*DX(IN1+1)\r\n      DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1)\r\n      DET(1) = DA(1)\r\n      K   = 1\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 930\r\n  920 IN2   = IN1 + K + K\r\n      DA(1) = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2)\r\n      DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1)\r\n      DX(IN2  ) = DA(1)\r\n      K = K + 1\r\n      IMHERE = 930\r\n      IF (K-END) 920,930,1710\r\n  930 IF (CBCNT .EQ. 0) GO TO 950\r\nC\r\nC     DIVIDE THE ACTIVE ROWS BY THE DIAGONAL\r\nC\r\n      K   = 0\r\n      IN1 = I4 + 2*BBBAR1\r\n  940 DA(1) = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2)\r\n      DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1)\r\n      DX(IN1  ) = DA(1)\r\n      IN1 = IN1 + 2*BBBAR\r\n      K   = K + 1\r\n      IMHERE = 945\r\n      IF (K-CBAR) 940,950,1710\r\n  950 CONTINUE\r\nC\r\nC     INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1000\r\n      IF (JPOS .LT. BBBAR) GO TO 1000\r\n      INTCH = IX(I1SP)\r\n      K   = 0\r\n  960 IN1 = I3SP + K\r\n      IF (INTCH .EQ. 0) GO TO 970\r\n      IN1 = I3  + 2*K*BBAR1\r\n      IN2 = IN1 + 2*INTCH\r\n      DA(1)   = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1)   = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  970 KK  = 1\r\n      IN2 = I1 - 2\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (ABS(DX(IN1)).LT.EPSI .AND. ABS(DX(IN1+1)).LT.EPSI) GO TO 990\r\n  980 IN3 = IN1 + 2*KK\r\n      IN4 = IN2 + 2*KK\r\n      DX(IN3  ) = DX(IN3)   - DX(IN1)*DX(IN4) + DX(IN1+1)*DX(IN4+1)\r\n      DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4)\r\n      KK = KK + 1\r\n      IMHERE = 985\r\n      IF (KK-BBAR1) 980,990,1710\r\n  990 K = K + 1\r\n      IMHERE = 990\r\n      IF (K-C) 960,1000,1710\r\nC\r\nC     WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS\r\nC\r\n 1000 PARM(2) = SR2FIL\r\n      CALL BLDPK (CSP,TYPEL,SR2FIL,0,0)\r\n      IN1 = I2\r\n      JJ  = IOFF\r\n 1010 DZ(1) = DX(IN1  )\r\n      DZ(2) = DX(IN1+1)\r\n      IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1030\r\n      CALL ZBLPKI\r\n 1030 IN1 = IN1 + 2\r\n      JJ  = JJ  + 1\r\n      IF (JJ-JPOS) 1010,1010,1040\r\n 1040 IF (ABS(DX(IN1-2)).LT.EPSI .AND. ABS(DX(IN1-1)).LT.EPSI)\r\n     1    GO TO 1720\r\nC\r\nC     PACK ACTIVE COLUMN ELEMENTS ALSO\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1090\r\n      IF (JPOS .LT. BBBAR) GO TO 1090\r\n      K   = 0\r\n 1060 IN1 = I7SP + K\r\n      IN2 = IX(IN1)+I3SP\r\n      GO TO 1080\r\n 1070 K = K + 1\r\n      IMHERE = 1070\r\n      IF (K-CCOUNT) 1060,1090,1710\r\n 1080 IN3   = I3 + 2*(IX(IN1)*BBAR1)\r\n      DZ(1) = DX(IN3  )\r\n      DZ(2) = DX(IN3+1)\r\n      IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1070\r\n      JJ = IX(IN2)\r\n      CALL ZBLPKI\r\n      GO TO 1070\r\n 1090 CALL BLDPKN (SR2FIL,0,FILEU)\r\nC\r\nC     COMPUTE ACTIVE ROW-COLUMN INTERACTION\r\nC\r\n      IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140\r\n      IF (JPOS .LT. BBBAR) GO TO 1140\r\n      K = 0\r\n 1100 CONTINUE\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (ABS(DX(IN1)).LT.EPSI .AND. ABS(DX(IN1+1)).LT.EPSI)\r\n     1    GO TO 1130\r\n      KK  = 0\r\n 1110 IN2 = I4 + 2*KK*BBBAR\r\n      IF (ABS(DX(IN2)).LT.EPSI .AND. ABS(DX(IN2+1)).LT.EPSI)\r\n     1    GO TO 1120\r\n      IN3 = I5 + 2*(K*CBAR+KK)\r\n      DX(IN3  ) = DX(IN3  ) +DX(IN2)*DX(IN1  ) - DX(IN2+1)*DX(IN1+1)\r\n      DX(IN3+1) = DX(IN3+1) +DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1  )\r\n 1120 KK = KK + 1\r\n      IMHERE = 1120\r\n      IF (KK-CBAR) 1110,1130,1710\r\n 1130 K = K + 1\r\n      IMHERE = 1130\r\n      IF (K-C) 1100,1140,1710\r\nC\r\nC     MOVE ELEMENTS IN AREA III UP ONE CELL\r\nC\r\n 1140 IF (CCOUNT . EQ.  0) GO TO 1190\r\n      IF (JPOS .LT. BBBAR) GO TO 1190\r\n      K   = 0\r\n 1150 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1180\r\n      KK  = 0\r\n      IN1 = I3  + 2*K*BBAR1\r\n 1160 IN2 = IN1 + KK + KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK = KK + 1\r\n      IMHERE = 1170\r\n      IF (KK-BBAR) 1160,1170,1710\r\n 1170 DX(IN2+2) = 0.0\r\n      DX(IN2+3) = 0.0\r\n 1180 K = K + 1\r\n      IMHERE = 1180\r\n      IF (K-C) 1150,1190,1710\r\nC\r\nC\r\nC     DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT\r\nC\r\n 1190 IF (LCOL-BBBAR1) 1370,1200,1200\r\nC\r\nC     OUTPUT A COLUMN OF L\r\nC\r\n 1200 PARM(2) = FILEL(1)\r\n      JPOSL   = JPOSL + 1\r\n      CALL BLDPK (CSP,TYPEL,FILEL(1),0,0)\r\nC\r\nC     STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT\r\nC\r\n      JJ    = JPOSL\r\n      DZ(1) = IX(I1SP)\r\n      DZ(2) = 0.0\r\n      CALL ZBLPKI\r\n      K     = 0\r\n 1210 JJ    = JPOSL + K   + 1\r\n      IN2   = I1 + 2*K\r\n      DZ(1) = DX(IN2)\r\n      DZ(2) = DX(IN2+1)\r\n      IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1230\r\n      CALL ZBLPKI\r\n 1230 K = K + 1\r\n      IMHERE = 1230\r\n      IF (K-BBAR) 1210,1240,1710\r\nC\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC\r\n 1240 IF (CBCNT .EQ. 0) GO TO 1280\r\n      K   = 0\r\n 1250 IN1 = I6SP + K\r\n      IN2 = I4 + 2*(IX(IN1)*BBBAR)\r\n      IN1 = IX(IN1) + I4SP\r\n      JJ  = IX(IN1)\r\n      DZ(1) = DX(IN2  )\r\n      DZ(2) = DX(IN2+1)\r\n      IF (ABS(DZ(1)).LT.EPSI .AND. ABS(DZ(2)).LT.EPSI) GO TO 1270\r\n      CALL ZBLPKI\r\n 1270 K = K + 1\r\n      IMHERE = 1270\r\n      IF (K-CBCNT) 1250,1280,1710\r\n 1280 CALL BLDPKN (FILEL,0,FILEL)\r\nC\r\nC     MOVE PERMUTATION INDICES OVER ONE ELEMENT\r\nC\r\n      END = I1SP + LCOL\r\n      DO 1290 I = I1SP,END\r\n 1290 IX(I) = IX(I+1)\r\nC\r\nC     MOVE ELEMENTS IN AREA I OVER ONE COLUMN\r\nC\r\n      K = 0\r\n      IF (SCRFLG .EQ. 0) GO TO 1310\r\n      CALL CLOSE (SR2FL,REW)\r\n      CALL OPEN  (*1680,SR2FL,IX(SR2BUF),RD)\r\n      IF (R .GT. 2) GO TO 1310\r\n      ICRQ = I1 + BBAR*J4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*J4\r\n      CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG)\r\n      GO TO 1360\r\n 1310 IN1 = I1  + 2*K*BBAR\r\n      IN2 = IN1 + BBAR + BBAR\r\n      CALL SXLOOP (DX(IN1),DX(IN2),BBAR)\r\n      K = K + 1\r\n      IMHERE = 1340\r\n      IF (K-R+2) 1310,1340,1360\r\n 1340 IF (R-BBBAR1) 1350,1310,1710\r\n 1350 ICRQ = IN2 + BBAR*J4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*J4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG)\r\n 1360 LCOL = LCOL - 1\r\nC\r\nC     STORE CURRENT COLUMN OF L\r\nC\r\n 1370 IF (CBCNT .EQ. 0) GO TO 1420\r\nC\r\nC     MOVE ELEMENTS IN AREA IV UP ONE CELL\r\nC\r\n      K   = 0\r\n 1380 IN1 = I4SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1410\r\n      KK  = 0\r\n      IN1 = I4  + 2*K*BBBAR\r\n 1390 IN2 = IN1 + KK + KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK = KK + 1\r\n      IMHERE = 1395\r\n      IF (KK-BBBAR1) 1390,1400,1710\r\n 1400 DX(IN2+2) = 0.0\r\n      DX(IN2+3) = 0.0\r\n 1410 K = K + 1\r\n      IMHERE = 1410\r\n      IF (K-CBAR) 1380,1420,1710\r\n 1420 IF (SCRFLG .NE. 0) GO TO 1450\r\nC\r\nC     STORE COLUMN IN CORE\r\nC\r\n 1430 IN1 = I1 + 2*LCOL*BBAR\r\n      END = MIN0(BBAR,NCOL-JPOS)\r\n      IF (END .EQ. 0) GO TO 1480\r\n      K   = 0\r\n      IN3 = I2  + 2*(JPOS-IOFF+1)\r\n 1440 IN2 = IN1 + K + K\r\n      IN4 = IN3 + K + K\r\n      DX(IN2  ) = DX(IN4  )\r\n      DX(IN2+1) = DX(IN4+1)\r\n      K   = K + 1\r\n      IMHERE = 1445\r\n      IF (K-END) 1440,1480,1710\r\nC\r\nC     STORE COLUMN ON THE SCRATCH FILE\r\nC\r\n 1450 IF (LCOL-R+1) 1430,1470,1460\r\n 1460 IN1 = I1 + 2*(LLL-1)*BBAR\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*J4,0)\r\n 1470 IN1 = I2 + 2*(JPOS-IOFF+1)\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*J4,0)\r\nC\r\nC     CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM\r\nC\r\n      CALL CLOSE (SR3FL,REW)\r\n      CALL CLOSE (SR2FL,REW)\r\n      IN1   = SR2FL\r\n      SR2FL = SR3FL\r\n      SR3FL = IN1\r\n 1480 LCOL  = LCOL + 1\r\n      IF (C    .EQ.     0) GO TO 1570\r\n      IF (JPOS .LT. BBBAR) GO TO 1570\r\nC\r\nC     READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS\r\nC\r\n      COUNT = CCOUNT\r\n      IF (ITRN .LT.         0) GO TO 1570\r\n 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560\r\nC\r\nC     TEST TO SEE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      K   = 0\r\n 1500 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 1540\r\n      K = K + 1\r\n      IMHERE = 1500\r\n      IF (K-C) 1500,1510,1710\r\nC\r\nC     CREATE A NEW ACTIVE COLUMN\r\nC\r\n 1510 K   = 0\r\n 1520 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1530\r\n      K = K + 1\r\n      IMHERE = 1520\r\n      IF (K-C) 1520,1710,1710\r\n 1530 IX(IN1) = JTRN\r\n      IN1     = IN1 + C\r\n      IX(IN1) = ITRN\r\n      IN1     = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      CCOUNT  = CCOUNT + 1\r\n      GO TO 1550\r\nC\r\nC     STORE ELEMENT IN EXISTING COLUMN\r\nC\r\n 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DX(IN1  ) + DTRN(1)\r\n      DX(IN1+1) = DX(IN1+1) + DTRN(2)\r\n 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),N64,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 1490\r\n      CALL CLOSE (SR1FIL,REW)\r\n 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570\r\nC\r\nC     RE-ARRANGE INDEXES IN SEQUENTIAL ORDER\r\nC\r\n      ASSIGN 1570 TO KK\r\n      GO TO 150\r\n 1570 CONTINUE\r\n      JPOS = JPOS + 1\r\nC\r\nC     ZERO AREA II\r\nC\r\n      END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1\r\n      DO 1590 I = I2,END\r\n 1590 DX(I) = 0.0\r\nC\r\nC      TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III\r\nC\r\n      IF (CBCNT  .EQ. 0) GO TO 270\r\n      IF (CCOUNT .EQ. 0) GO TO 1640\r\n      IF (JPOS-1 .LT. BBBAR) GO TO 270\r\n      IN1 = I4SP\r\n      K   = 0\r\n 1600 IN2 = IN1 + K\r\n      IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610\r\n      K   = K + 1\r\n      IF (K .LT. CBAR) GO TO 1600\r\n      GO TO 270\r\n 1610 IN1 = I5 + K + K\r\n      IN2 = I3 + BBAR + BBAR\r\n      K   = 0\r\n 1620 DX(IN2  ) = DX(IN2  ) - DX(IN1)\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN1+1)\r\n      DX(IN1  ) = 0.0\r\n      DX(IN1+1) = 0.0\r\n      IN2 = IN2 + BBAR1 + BBAR1\r\n      IN1 = IN1 + CBAR  + CBAR\r\n      K   = K + 1\r\n      IF (K .LT. C) GO TO 1620\r\nC\r\nC     TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED\r\nC\r\n 1640 IN1 = IX(I6SP) + I4SP\r\n      IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270\r\nC\r\nC     ELIMINATE THE ACTIVE ROW\r\nC\r\n 1650 IX(IN1) = 0\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = 0\r\n      CBCNT   = CBCNT - 1\r\nC\r\nC     MOVE INDEXES IN AREA VI UP ONE\r\nC\r\n      IN1 = I6SP + CBCNT - 1\r\n      DO 1660 I = I6SP,IN1\r\n 1660 IX(I) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n      GO TO 270\r\nC\r\nC     FINISH WRITING OUT THE COMPLETED COLUMNS OF L\r\nC\r\n 1670 CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (FILEL,NOREW)\r\n      CALL CLOSE (SR2FIL,NOREW)\r\n      CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R,\r\n     1             BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\n      PARM(5) = IEND\r\n      CALL CONMSG (PARM(3),3,0)\r\n      FILEU(7) = BBBAR\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1680 PARM(1) = -1\r\n      GO TO 1730\r\n 1690 PARM(1) = -2\r\n      GO TO 1730\r\n 1700 PARM(1) = -3\r\n      GO TO 1730\r\n 1710 PARM(1) = -25\r\n      WRITE (NOUT,1711) IMHERE,\r\n     1           I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END,\r\n     2           BBAR,BBAR1,BBBAR,C,CBAR,NCOL,K,KK,KKK,\r\n     3           IN1,IN2,IN4,IX(IN1),IX(IN2),IX(IN4),IX(I7SP),\r\n     4           R,CCOUNT,CBCNT,JPOS\r\n 1711 FORMAT (//,' IMHERE=',I5,/,\r\n     1       '   I1SP,I1,I2,I3SP,I3,I4SP,I4,I5,I6SP,I7SP,END=',11I7,/,\r\n     2       '   BBAR,BBAR1,BBBAR,C,CBAR,NCOL,K,KK,KKK=',9I8,/,\r\n     3       '   IN1,IN2,IN4,IX(IN1),IX(IN2),IX(IN4),IX(I7SP)=',7I8,/,\r\n     4       '   R,CCOUNT,CBCNT,JPOS=',4I8,/)\r\n      GO TO 1730\r\n 1715 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      GO TO 1730\r\nC\r\nC     SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER\r\nC\r\n 1720 CALL CLOSE (FILEA(1),REW)\r\n      CALL CLOSE (FILEL(1),REW)\r\n      CALL CLOSE (FILEU(1),REW)\r\n      CALL CLOSE (SR1FIL,  REW)\r\n      CALL CLOSE (SR2FIL,  REW)\r\n      CALL CLOSE (SR3FIL,  REW)\r\n      FILEU(2) = BBBAR\r\n      RETURN 1\r\n 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdcomp.f",
    "content": "      SUBROUTINE CDCOMP (*,IX,X,DX)\r\nC\r\nC     CDCOMP WILL DECOMPOSE A COMPLEX UNSYMETRIC MATRIX INTO A UNIT\r\nC     LOWER TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING\r\nC     PARTIAL PIVOTING WITHIN THE LOWER BAND\r\nC\r\nC     IMPORTANT - CALLER MUST FIRST INITIALIZE B AND/OR BBAR IN /CDCMPX/\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEA  =  MATRIX CONTROL BLOCK FOR THE  INPUT MATRIX A\r\nC     FILEL  =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L\r\nC     FILEU  =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U\r\nC     SR1FIL =  SCRATCH FILE\r\nC     SR2FIL =  SCRATCH FILE\r\nC     SR3FIL =  SCRATCH FILE\r\nC     NX     =  NUMBER OF CELLS OF CORE AVAILABLE AT IX\r\nC     DET    =  CELL WHERE THE DETERMINATE OF A WILL BE STORED\r\nC     POWER  =  SCALE FACTOR TO BE APPLIED TO THE DETERMINATE\r\nC               ( DETERMINATE = DET*10**POWER )\r\nC     MINDIA =  CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE\r\nC               STORED\r\nC     IX     =  BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP\r\nC     X      =  SAME BLOCK AS IX, BUT TYPED REAL\r\nC     DX     =  SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION\r\nC\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,POWER    ,\r\n     1                   SYSBUF    ,FORMA    ,TYPEA    ,RDP      ,\r\n     2                   TYPEL     ,EOL      ,PARM(5)  ,BUFA     ,\r\n     3                   OUTBUF    ,SR1BUF   ,SR2BUF   ,SR3BUF   ,\r\n     4                   B         ,BBAR     ,C        ,CBAR     ,\r\n     5                   BBAR1     ,R        ,CCOUNT   ,CBCNT    ,\r\n     6                   SCRFLG    ,END      ,BBBAR    ,BBBAR1   ,\r\n     7                   COUNT     ,SR2FL    ,SR3FL    ,SR1FIL   ,\r\n     8                   SR2FIL    ,SR3FIL   ,SQR      ,SYM      ,\r\n     9                   FLAG      ,ITRAN(6)\r\n      DOUBLE PRECISION   DZ(2)     ,DA(2)    ,DET      ,MAX(2)   ,\r\n     1                   MINDIA    ,DX(1)    ,DTRN(2)  ,DX1      ,\r\n     2                   DX2       ,LIMIT\r\n      DIMENSION          IX(1)     ,X(1)\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM\r\n      COMMON   /CDCMPX/  FILEA(7)  ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL    ,SR3FIL   ,DET(2)   ,POWER    ,\r\n     2                   NX        ,MINDIA   ,B        ,BBAR     ,\r\n     3                   C         ,CBAR     ,R\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENT\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /ZBLPKX/  Z(4)      ,JJ\r\n      COMMON   /UNPAKX/  ITYPEX    ,IXY      ,JXY      ,INCRX\r\n      COMMON   /PACKX /  ITYPE1    ,ITYPE2   ,IY       ,JY       ,\r\n     1                   INCRY\r\n      EQUIVALENCE        (DA(1),A(1))        ,(DZ(1),Z(1))       ,\r\n     1                   (FORMA,FILEA(4))    ,(TYPEA,FILEA(5))   ,\r\n     2                   (NCOL,FILEA(3))     ,(TYPEL,FILEL(5))\r\n      EQUIVALENCE        (ITRAN(1),ITRN)     ,(ITRAN(2),JTRN)    ,\r\n     1                   (ITRAN(3),DTRN(1))\r\n      DATA      PARM(3), PARM(4)/  4HCDCO,4HMP  /\r\n      DATA      IBEGN  / 4HBEGN /, IEND  /4HEND /\r\n      DATA      LIMIT  / 1.0D-38/\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      BUFA   = NX     - SYSBUF\r\n      IBUFL  = BUFA   - SYSBUF\r\n      OUTBUF = IBUFL  - SYSBUF\r\n      SR1BUF = OUTBUF - SYSBUF\r\n      SR2BUF = SR1BUF - SYSBUF\r\n      SR3BUF = SR2BUF - SYSBUF\r\n      ICRQ   =-SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      DET(1) = 1.D0\r\n      DET(2) = 0.D0\r\n      POWER  = 0\r\n      MINDIA = 1.D+25\r\n      ITERM  = 0\r\n      IF (FILEA(1) .LT. 0) ITERM = 1\r\n      FILEA(1) = IABS(FILEA(1))\r\nC\r\nC     WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE\r\nC     TRAILER RECORDS.\r\nC\r\n      CALL GOPEN (FILEL,IX(IBUFL),WRTREW)\r\n      PARM(2) = SR2FIL\r\n      CALL OPEN (*1680,SR2FIL,IX(OUTBUF),WRTREW)\r\n      CALL FNAME (FILEU(1),X(1))\r\n      CALL WRITE (SR2FIL,X(1),2,1)\r\n      FILEL(2) = 0\r\n      FILEL(3) = NCOL\r\n      FILEL(4) = 4\r\n      FILEL(6) = 0\r\n      FILEL(7) = 0\r\n      FILEU(2) = 0\r\n      FILEU(3) = NCOL\r\n      FILEU(4) = 5\r\n      FILEU(6) = 0\r\n      FILEU(7) = 0\r\n      IF (NCOL .GT. 2) GO TO 10\r\n      CALL COM12 (*1720,IX(1),X(1),DX(1),ITERM)\r\n      PARM(5) = IEND\r\n      CALL CONMSG (PARM(3),3,0)\r\n      RETURN\r\nC\r\nC     CALL GENVEC TO PICK B, BBAR, C, CBAR, AND R\r\nC\r\n   10 IF (B.LE.0 .OR. BBAR.LE.0) CALL GENVEC (*1720,IX(BUFA),FILEA(1),\r\n     1    NX,IX(1),NCOL,B,BBAR,C,CBAR,R,2)\r\n      BBAR1  = BBAR + 1\r\n      BBBAR  = MIN0(B+BBAR,NCOL)\r\n      BBBAR1 = BBBAR - 1\r\n      SCRFLG = 0\r\n      IF (R .LT. BBBAR1) SCRFLG = 1\r\n      IF (SCRFLG .EQ. 0) GO TO 20\r\n      ICRQ = (BBBAR1-R)*4*BBAR\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,15) UIM,ICRQ\r\n   15 FORMAT (A29,' 2177, SPILL WILL OCCUR IN COMPLEX UNSYMMETRIC ',\r\n     1       'DECOMPOSITION.', /I10,\r\n     2       ' ADDITIONAL WORDS NEEDED TO STAY IN CORE.')\r\nC\r\nC     INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE\r\nC\r\n   20 I1   = 1\r\n      IPAK = I1 + 2*BBAR*R + BBBAR/2 + 1\r\n      I1SP = BBAR*R*4 + 1\r\n      I2   = IPAK\r\n      I3SP = (I2+ 2*MIN0(NCOL,BBBAR+BBAR))*2 - 1\r\n      I3   = I2 + 2*MIN0(NCOL,BBBAR+BBAR) + C\r\n      I4SP = I3SP + (BBAR+2)*C*4 - 2*C\r\n      I4   = I3 + 2*BBAR1*C + CBAR\r\n      I5   = I4 + 2*BBBAR*CBAR\r\n      I6SP = (I5 + 2*C*CBAR)*2 - 1\r\n      I7SP = I6SP + CBAR\r\n      PARM(5) = IBEGN\r\n      CALL CONMSG (PARM(3),3,0)\r\n      END  = I7SP + C\r\nC\r\nC     DEFINITION OF KEY PROGRAM PARAMETERS\r\nC\r\nC     I1     =  POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORE\r\nC     I1SP   =  POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STOR\r\nC     IPAK   =  POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM\r\nC     I2     =  POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED\r\nC     I3     =  POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED\r\nC     I4     =  POINTER TO AREA WHERE ACTIVE ROWS ARE STORED\r\nC     I5     =  POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED\r\nC     I6SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES\r\nC               ARE STORED\r\nC     I7SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES\r\nC               ARE STORED\r\nC     B      =  UPPER HALF-BAND\r\nC     BBAR   =  LOWER HALF-BAND\r\nC     C      =  NUMBER OF ACTIVE COLUMNS\r\nC     CBAR   =  NUMBER OF ACTIVE ROWS\r\nC     R      =  NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE\r\nC     JPOS   =  CURRENT PIVOTAL COLUMN INDEX\r\nC     JPOSL  =  NEXT COLUMN OF L TO BE WRITTEN OUT\r\nC     LCOL   =  NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON\r\nC               SCRATCH FILES\r\nC     CCOUNT =  CURRENT NUMBER OF ACTIVE COLUMNS\r\nC     CBCNT  =  CURRENT NUMBER OF ACTIVE ROWS\r\nC     ITRN   =  ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT\r\nC     JTRN   =  COLUMN INDEX  OF NEXT ACTIVE COLUMN ELEMENT\r\nC     IOFF   =  ROW POSITION OF THE FIRST ELEMENT IN AREA II\r\nC     ITERM  =  IF NONZERO, TERMINATE BEFORE THE RE-WRITE\r\nC     NCOL   =  SIZE OF THE INPUT MATRIX\r\nC     BBBAR  =  B + BBAR\r\nC     BBAR1  =  BBAR + 1\r\nC     BBBAR1 =  B + BBAR - 1\r\nC     SCRFLG =  NONZERO MEANS SPILL\r\nC\r\nC     RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED\r\nC     ORDER\r\nC\r\n      PARM(2) = FILEA(1)\r\n      CALL OPEN (*1680,FILEA(1),IX(BUFA),RDREW)\r\n      CCOUNT = 0\r\n      IF (C .EQ. 0) GO TO 40\r\n      CALL CTRNSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL)\r\nC\r\nC     ZERO CORE\r\nC\r\n   40 DO 50 I = 1,END\r\n   50 X(I) = 0.\r\n      IF (C .EQ. 0) GO TO 260\r\nC\r\nC     OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ I\r\nC     THE FIRST BBAR + 1 ROWS\r\nC\r\n      PARM(2) = SR1FIL\r\n      CALL OPEN (*1680,SR1FIL,IX(SR1BUF),RD)\r\n      K = 0\r\n   60 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 70\r\n      CALL CLOSE (SR1FIL,REW)\r\n      GO TO 140\r\n   70 IF (ITRN .GT. K+1) GO TO 130\r\nC\r\nC     DETERMINE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      IF (JTRN .LE. BBBAR) GO TO 60\r\n      KK  = 0\r\n   80 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 90\r\n      KK = KK + 1\r\n      IF (KK-C) 80,100,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING COLUMN\r\nC\r\n   90 IN1 = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      GO TO 60\r\nC\r\nC     CREATE NEW ACTIVE COLUMN\r\nC\r\n  100 CCOUNT = CCOUNT + 1\r\n      KK  = 0\r\n  110 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 120\r\n      KK = KK + 1\r\n      IF (KK-C) 110,1710,1710\r\n  120 IX(IN1) = JTRN\r\n      IN1     = IN1 + C\r\n      IX(IN1) = K  + 1\r\n      IN1     = I3 + 2*KK*BBAR1 + K + K\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      GO TO 60\r\n  130 K = K + 1\r\n      IF (K-BBAR1) 70,140,1710\r\nC\r\nC     SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE\r\nC\r\n  140 ASSIGN 260 TO KK\r\n  150 IN1 = I7SP\r\n      K   = 0\r\n  160 IN2 = I3SP + K\r\n      IF (IX(IN2)) 1710,180,190\r\n  170 IN1 = IN1 + 1\r\n  180 K   = K + 1\r\n      IF (K-C) 160,250,1710\r\n  190 IF (IN1 .NE. I7SP) GO TO 200\r\n      IX(IN1) = K\r\n      GO TO 170\r\n  200 KKK = 0\r\n  210 IN3 = IN1 - KKK\r\n      IF (IN3 .GT. I7SP) GO TO 220\r\n      IX(IN3) = K\r\n      GO TO 170\r\n  220 IN4 = I3SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 240,1710,230\r\n  230 IX(IN3) = K\r\n      GO TO 170\r\n  240 IX(IN3) = IX(IN3-1)\r\n      KKK = KKK + 1\r\n      GO TO 210\r\n  250 GO TO KK, (260,1570)\r\n  260 CONTINUE\r\nC\r\nC     INITIALIZE\r\nC\r\n      SR2FL = FILEU(1)\r\n      SR3FL = SR3FIL\r\n      JPOS  = 1\r\n      PARM(2) = FILEA(1)\r\n      CALL FWDREC (*1690,FILEA(1))\r\n      LCOL  = 0\r\n      CBCNT = 0\r\n      JPOSL = 0\r\n  270 IF (JPOS .GT. NCOL) GO TO 1670\r\nC\r\nC     READ NEXT COLUMN OF A INTO AREA II\r\nC\r\n      IOFF  = MAX0(1,JPOS-BBBAR1)\r\n      COUNT = CBCNT\r\n      CALL INTPK (*1720,FILEA(1),0,CDP,0)\r\n      K = 1\r\n      IF (JPOS .GT. BBBAR) K = JPOS - B + 1\r\n  280 IF (EOL) 400,290,400\r\n  290 CALL ZNTPKI\r\n      IF (II .LT. K) GO TO 280\r\n      K = JPOS + BBAR\r\n  300 IF (II .GT. K) GO TO 330\r\nC\r\nC     READ ELEMENTS WITHIN THE BAND INTO AREA II\r\nC\r\n      IN1 = I2 + 2*(II-IOFF)\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n  310 IF (EOL) 400,320,400\r\n  320 CALL ZNTPKI\r\n      GO TO 300\r\nC\r\nC     TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND\r\nC\r\n  330 KK  = 0\r\n  340 IN1 = I4SP + KK\r\n      IF (IX(IN1)-II) 350,360,350\r\n  350 KK  = KK + 1\r\n      IF (KK-CBAR) 340,370,1710\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING ROW\r\nC\r\n  360 IN1 = I4 + 2*(KK+1)*BBBAR - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      GO TO 310\r\nC\r\nC     CREATE NEW ACTIVE ROW\r\nC\r\n  370 KK  = 0\r\n  380 IN1 = I4SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 390\r\n      KK  = KK + 1\r\n      IF (KK-CBAR) 380,1710,1710\r\n  390 IX(IN1) = II\r\n      IN1 = IN1 + CBAR\r\n      IX(IN1) = JPOS\r\n      IN1 = I4 + (KK+1)*BBBAR*2 - 2\r\n      DX(IN1  ) = DA(1)\r\n      DX(IN1+1) = DA(2)\r\n      CBCNT = CBCNT + 1\r\n      GO TO 310\r\nC\r\nC     ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI\r\nC\r\n  400 IF (COUNT .EQ. CBCNT) GO TO 500\r\n      IN1 = I6SP\r\n      K   = 0\r\n  410 IN2 = I4SP + K\r\n      IF (IX(IN2)) 1710,430,440\r\n  420 IN1 = IN1 + 1\r\n  430 K   = K + 1\r\n      IF (K-CBAR) 410,500,1710\r\n  440 IF (IN1 .NE. I6SP) GO TO 450\r\n      IX(IN1) = K\r\n      GO TO 420\r\n  450 KK  = 0\r\n  460 IN3 = IN1 - KK\r\n      IF (IN3 .GT. I6SP) GO TO 470\r\n      IX(IN3) = K\r\n      GO TO 420\r\n  470 IN4 = I4SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 490,1710,480\r\n  480 IX(IN3) = K\r\n      GO TO 420\r\n  490 IX(IN3) = IX(IN3-1)\r\n      KK = KK + 1\r\n      GO TO 460\r\n  500 CONTINUE\r\nC\r\nC     TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND\r\nC     THE CURRENT PIVOTAL COLUMN\r\nC\r\n      IF (CCOUNT .EQ. 0) GO TO 600\r\n      IN1 = IX(I7SP) + I3SP\r\n      IF (IX(IN1)-JPOS) 1710,510,600\r\nC\r\nC     MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT\r\nC     ACTIVE COLUMN IN AREA III\r\nC\r\n  510 IX(IN1) = 0\r\n      IN1     = IN1 + C\r\n      IX(IN1) = 0\r\n      IN1     = I3 + IX(I7SP)*BBAR1*2\r\n      CCOUNT  = CCOUNT - 1\r\n      KK  = 0\r\n  520 IN2 = IN1 + KK + KK\r\n      IN3 = I2  + KK + KK\r\n      DX(IN3  ) = DX(IN3  ) + DX(IN2)\r\n      DX(IN3+1) = DX(IN3+1) + DX(IN2+1)\r\n      DX(IN2  ) = 0.D0\r\n      DX(IN2+1) = 0.D0\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 520,530,1710\r\nC\r\nC     MERGE INTERACTION ELEMENTS\r\nC\r\n  530 CONTINUE\r\n      IF (CBCNT .EQ. 0) GO TO 580\r\n      IN1 = I5 + 2*IX(I7SP)*CBAR\r\n      K   = 0\r\n  540 IN2 = I4SP + K\r\n      IF (IX(IN2) .EQ. 0) GO TO 560\r\n      IN3 = IN1 + 2*K\r\n      IF (DX(IN3).EQ.0.D0 .AND. DX(IN3+1).EQ.0.D0) GO TO 560\r\n      IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570\r\nC\r\nC     STORE ELEMENT WITHIN THE LOWER BAND\r\nC\r\n      IN2 = I2 + 2*(IX(IN2)-IOFF)\r\n      DX(IN2  ) = DX(IN2  ) - DX(IN3)\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n  550 DX(IN3  ) = 0.D0\r\n      DX(IN3+1) = 0.D0\r\n  560 K = K + 1\r\n      IF (K-CBAR) 540,580,1710\r\nC\r\nC     STORE ELEMENT IN THE ACTIVE ROW\r\nC\r\n  570 IN2 = I4 + 2*(K+1)*BBBAR - 2\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN3+1)\r\n      DX(IN3+1) = 0.D0\r\n      DX(IN2) = DX(IN2) - DX(IN3)\r\n      DX(IN3) = 0.D0\r\n      GO TO 550\r\nC\r\nC     MOVE THE POINTERS IN AREA VII UP ONE\r\nC\r\n  580 IN1 = I7SP + CCOUNT - 1\r\n      DO 590 I = I7SP,IN1\r\n  590 IX(I    ) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n  600 IF (LCOL .EQ. 0) GO TO 830\r\nC\r\nC     OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L,\r\nC     MAKING NOTED INTERCHANGES AS YOU GO\r\nC\r\n      IF (SCRFLG .EQ. 0) GO TO 630\r\n      IF (LCOL-(R-1)) 630,620,610\r\n  610 PARM(2) = SR2FL\r\n      CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD)\r\n  620 PARM(2) = SR3FL\r\n      CALL OPEN (*1680,SR3FL,IX(SR3BUF),WRTREW)\r\n  630 LL   = 0\r\n      LLL  = 0\r\n      LLLL = 0\r\nC\r\nC     PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1\r\nC\r\n  640 IN1    = I1SP + LL\r\n      INTCHN = IX(IN1)\r\n      IN2    = I2 + LL + LL\r\n      IF (INTCHN .EQ. 0) GO TO 650\r\nC\r\nC     PERFORM ROW INTERCHANGE\r\nC\r\n      IN1     = IN2 + 2*INTCHN\r\n      DA(1)   = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1)   = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  650 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION FROM THAT COLUMN\r\nC\r\n      END = MIN0(BBAR1,NCOL-(JPOSL+LL))\r\n      IF (DX(IN2).EQ.0.D0 .AND. DX(IN2+1).EQ.0.D0) GO TO 720\r\n      IN1 = I1 + 2*LLL*BBAR\r\n      CALL CLOOP (DX(IN2+2),DX(IN1),DX(IN2),END-1)\r\n      IF (CBCNT .EQ. 0) GO TO 720\r\nC\r\nC     TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE\r\nC     ADDED IN\r\nC\r\n      KKK = 0\r\n  690 IN3 = I6SP + KKK\r\n      IN1 = IX(IN3) + I4SP\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 720\r\n      KK  = IN1 + CBAR\r\n      IF (IX(KK) .GT. JPOSL+LL+1) GO TO 710\r\n      IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 710\r\nC\r\nC     ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW\r\nC\r\n      IN4 = I2 + 2*(IX(IN1)-IOFF)\r\n      K   = I4 + 2*(JPOSL+BBBAR - JPOS+LL + IX(IN3)*BBBAR)\r\n      DX(IN4  ) = DX(IN4  ) - DX(K)*DX(IN2)   + DX(K+1)*DX(IN2+1)\r\n      DX(IN4+1) = DX(IN4+1) - DX(IN2+1)*DX(K) - DX(IN2)*DX(K+1)\r\n  710 KKK = KKK + 1\r\n      IF (KKK .LT. CBCNT) GO TO 690\r\n  720 LL  = LL  + 1\r\n      LLL = LLL + 1\r\n      IF (LL .EQ. LCOL) GO TO 780\r\n      IF (LL-R+1) 640,730,760\r\n  730 IF (R .EQ. BBBAR1) GO TO 640\r\n      IN1 = I1 + 2*LL*BBAR\r\n  750 ICRQ = IN1 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN1),IBBAR4,0,FLAG)\r\n      GO TO 640\r\n  760 IN1 = I1 + (LLL-1)*BBAR*2\r\n      IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 770\r\n      CALL WRITE (SR3FL,DX(IN1),4*BBAR,0)\r\n  770 LLL = LLL - 1\r\n      GO TO 750\r\n  780 CONTINUE\r\nC\r\nC     COMPUTE ELEMENTS FOR THE ACTIVE ROWS\r\nC\r\n      IF (CBCNT .EQ. 0) GO TO 830\r\n      K   = 0\r\n  790 IN1 = I4SP + K\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 810\r\n  800 K = K + 1\r\n      IF (K-CBAR) 790,830,1710\r\n  810 IN1 = IN1 + CBAR\r\n      IF (IX(IN1) .EQ. JPOS) GO TO 800\r\n      KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1)\r\n      IN2 = I4  + 2*K*BBBAR - 2\r\n      IN3 = I2  + 2*(KKK-1-MAX0(0,BBBAR-JPOS))\r\n      IN1 = IN2 + 2*BBBAR\r\n      IN2 = IN2 + 2*KKK\r\n  820 IN2 = IN2 + 2\r\n      KKK = KKK + 1\r\n      IN3 = IN3 + 2\r\n      DX(IN1  ) = DX(IN1  ) - DX(IN2)*DX(IN3)   + DX(IN2+1) *DX(IN3+1)\r\n      DX(IN1+1) = DX(IN1+1) - DX(IN2+1)*DX(IN3) - DX(IN2)*DX(IN3+1)\r\n      IF (KKK-BBBAR1) 820,800,1710\r\nC\r\nC     SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE\r\nC     ROWS TO BRING IT TO THE DIAGONAL\r\nC\r\n  830 K   = 1\r\n      IN1 = I2 + (JPOS-IOFF)*2\r\n      DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN1  )) .GT. LIMIT) DX1 = DX(IN1  )**2\r\n      IF (DABS(DX(IN1+1)) .GT. LIMIT) DX2 = DX(IN1+1)**2\r\n      MAX(1) = DX1 + DX2\r\n      INTCHN = 0\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 870\r\n  840 IN2 = IN1 + K + K\r\n      DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN2  )) .GT. LIMIT) DX1 = DX(IN2  )**2\r\n      IF (DABS(DX(IN2+1)) .GT. LIMIT) DX2 = DX(IN2+1)**2\r\n      DX2 = DX2 + DX1\r\n      IF (DX2 .GT. MAX(1)) GO TO 860\r\n  850 K = K + 1\r\n      IF (K-END) 840,870,1710\r\n  860 MAX(1) = DX2\r\n      INTCHN = K\r\n      GO TO 850\r\nC\r\n  870 IF (INTCHN .EQ. 0) GO TO 880\r\nC\r\nC     INTERCHANGE ROWS IN AREA II\r\nC\r\n      DET(1)  =-DET(1)\r\n      DET(2)  =-DET(2)\r\nC\r\n      MAX(1)  = DX(IN1)\r\n      IN2     = IN1+2*INTCHN\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = MAX(1)\r\n      MAX(1)  = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = MAX(1)\r\nC\r\nC     STORE THE PERMUTATION INDEX\r\nC\r\n      IN2 = I1SP + LCOL\r\n      IX(IN2) = INTCHN\r\nC\r\nC     DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT\r\nC\r\n  880 DX1 = 0.D0\r\n      DX2 = 0.D0\r\n      IF (DABS(DX(IN1  )) .GT. LIMIT) DX1 = DX(IN1  )**2\r\n      IF (DABS(DX(IN1+1)) .GT. LIMIT) DX2 = DX(IN1+1)**2\r\n      DA(1) = DX1 + DX2\r\n      IF (DA(1) .EQ. 0.D0) GO TO 1720\r\n      MAX(1) = DX(IN1  )/DA(1)\r\n      MAX(2) =-DX(IN1+1)/DA(1)\r\n      MINDIA = DMIN1(DSQRT(DA(1)),MINDIA)\r\n      DA(1)  = DMAX1(DABS(DET(1)),DABS(DET(2)))\r\n  890 IF (DA(1) .LE. 10.D0) GO TO 900\r\n      DET(1) = DET(1)*.1D0\r\n      DET(2) = DET(2)*.1D0\r\n      DA(1)  = DA(1) *.1D0\r\n      POWER  = POWER + 1\r\n      GO TO 890\r\n  900 IF (DA(1).GE. .1D0) GO TO 910\r\n      DET(1) = DET(1)*10.D0\r\n      DET(2) = DET(2)*10.D0\r\n      DA(1)  = DA(1) *10.D0\r\n      POWER  = POWER - 1\r\n      GO TO 900\r\n  910 DA(1)  = DET(1)*DX(IN1) - DET(2)*DX(IN1+1)\r\n      DET(2) = DET(2)*DX(IN1) + DET(1)*DX(IN1+1)\r\n      DET(1) = DA(1)\r\n      K   = 1\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 930\r\n  920 IN2 = IN1 + K + K\r\n      DA(1)     = DX(IN2)*MAX(1) - DX(IN2+1)*MAX(2)\r\n      DX(IN2+1) = DX(IN2)*MAX(2) + DX(IN2+1)*MAX(1)\r\n      DX(IN2) = DA(1)\r\n      K = K + 1\r\n      IF (K-END) 920,930,1710\r\n  930 IF (CBCNT .EQ. 0) GO TO 950\r\nC\r\nC     DIVIDE THE ACTIVE ROWS BY THE DIAGONAL\r\nC\r\n      K   = 0\r\n      IN1 = I4 + 2*BBBAR1\r\n  940 DA(1)     = DX(IN1)*MAX(1) - DX(IN1+1)*MAX(2)\r\n      DX(IN1+1) = DX(IN1)*MAX(2) + DX(IN1+1)*MAX(1)\r\n      DX(IN1) = DA(1)\r\n      IN1 = IN1 + 2*BBBAR\r\n      K   = K + 1\r\n      IF (K-CBAR) 940,950,1710\r\n  950 CONTINUE\r\nC\r\nC     INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE CURRENT COLUMN\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1000\r\n      IF (JPOS .LT. BBBAR) GO TO 1000\r\n      INTCH = IX(I1SP)\r\n      K   = 0\r\n  960 IN1 = I3SP + K\r\n      IF (INTCH .EQ. 0) GO TO 970\r\n      IN1 = I3  + 2*K*BBAR1\r\n      IN2 = IN1 + INTCH + INTCH\r\n      DA(1)   = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA(1)\r\n      DA(1)   = DX(IN1+1)\r\n      DX(IN1+1) = DX(IN2+1)\r\n      DX(IN2+1) = DA(1)\r\n  970 KK  = 1\r\n      IN2 = I1 - 2\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (DX(IN1).EQ.0.D0 .AND. DX(IN1+1).EQ.0.D0) GO TO 990\r\n  980 IN3 = IN1 + KK + KK\r\n      IN4 = IN2 + KK + KK\r\n      DX(IN3  ) = DX(IN3  ) - DX(IN1)*DX(IN4  ) + DX(IN1+1)*DX(IN4+1)\r\n      DX(IN3+1) = DX(IN3+1) - DX(IN1)*DX(IN4+1) - DX(IN1+1)*DX(IN4)\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 980,990,1710\r\n  990 K = K + 1\r\n      IF (K-C) 960,1000,1710\r\nC\r\nC     WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS\r\nC\r\n 1000 PARM(2) = SR2FIL\r\n      CALL BLDPK (CDP,TYPEL,SR2FIL,0,0)\r\n      IN1 = I2\r\n      JJ  = IOFF\r\n 1010 DZ(1) = DX(IN1)\r\n      DZ(2) = DX(IN1+1)\r\n      IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1030\r\n      CALL ZBLPKI\r\n 1030 IN1 = IN1 + 2\r\n      JJ  = JJ  + 1\r\n      IF (JJ-JPOS) 1010,1010,1040\r\n 1040 IF (DX(IN1-2).EQ.0.D0 .AND. DX(IN1-1).EQ.0.D0) GO TO 1720\r\nC\r\nC     PACK ACTIVE COLUMN ELEMENTS ALSO\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1090\r\n      IF (JPOS .LT. BBBAR) GO TO 1090\r\n      K   = 0\r\n 1060 IN1 = I7SP + K\r\n      IN2 = IX(IN1) + I3SP\r\n      GO TO 1080\r\n 1070 K   = K + 1\r\n      IF (K-CCOUNT) 1060,1090,1710\r\n 1080 IN3 = I3 + 2*(IX(IN1)*BBAR1)\r\n      DZ(1) = DX(IN3  )\r\n      DZ(2) = DX(IN3+1)\r\n      IF (DZ(1).EQ.0.D0 .AND.  DZ(2).EQ.0.D0) GO TO 1070\r\n      JJ = IX(IN2)\r\n      CALL ZBLPKI\r\n      GO TO 1070\r\n 1090 CALL BLDPKN (SR2FIL,0,FILEU)\r\nC\r\nC     COMPUTE ACTIVE ROW-COLUMN INTERACTION\r\nC\r\n      IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1140\r\n      IF (JPOS .LT. BBBAR) GO TO 1140\r\n      K = 0\r\n 1100 CONTINUE\r\n      IN1 = I3 + 2*K*BBAR1\r\n      IF (DX(IN1).EQ.0.D0 .AND. DX(IN1+1).EQ.0.D0) GO TO 1130\r\n      KK  = 0\r\n 1110 IN2 = I4 + 2*KK*BBBAR\r\n      IF (DX(IN2).EQ.0.D0 .AND. DX(IN2+1).EQ.0.D0) GO TO 1120\r\n      IN3 = I5 + 2*(K*CBAR+KK)\r\n      DX(IN3  ) = DX(IN3  ) + DX(IN2)*DX(IN1)   - DX(IN2+1)*DX(IN1+1)\r\n      DX(IN3+1) = DX(IN3+1) + DX(IN2)*DX(IN1+1) + DX(IN2+1)*DX(IN1)\r\n 1120 KK = KK + 1\r\n      IF (KK-CBAR) 1110,1130,1710\r\n 1130 K = K + 1\r\n      IF (K-C) 1100,1140,1710\r\nC\r\nC     MOVE ELEMENTS IN AREA III UP ONE CELL\r\nC\r\n 1140 IF (CCOUNT .EQ.   0) GO TO 1190\r\n      IF (JPOS .LT. BBBAR) GO TO 1190\r\n      K   = 0\r\n 1150 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1180\r\n      KK  = 0\r\n      IN1 = I3  + 2*K*BBAR1\r\n 1160 IN2 = IN1 + KK + KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK = KK + 1\r\n      IF (KK-BBAR) 1160,1170,1710\r\n 1170 DX(IN2+2) = 0.D0\r\n      DX(IN2+3) = 0.D0\r\n 1180 K = K + 1\r\n      IF (K-C) 1150,1190,1710\r\nC\r\nC\r\nC     DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT\r\nC\r\n 1190 IF (LCOL-BBBAR1) 1370,1200,1200\r\nC\r\nC     OUTPUT A COLUMN OF L\r\nC\r\n 1200 PARM(2) = FILEL(1)\r\n      JPOSL   = JPOSL + 1\r\n      CALL BLDPK (CDP,TYPEL,FILEL(1),0,0)\r\nC\r\nC     STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT\r\nC\r\n      JJ    = JPOSL\r\n      DZ(1) = IX(I1SP)\r\n      DZ(2) = 0.D0\r\n      CALL ZBLPKI\r\n      K  = 0\r\n 1210 JJ = JPOSL + K + 1\r\n      IN2 = I1 + K + K\r\n      DZ(1) = DX(IN2  )\r\n      DZ(2) = DX(IN2+1)\r\n      IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1230\r\n      CALL ZBLPKI\r\n 1230 K = K + 1\r\n      IF (K-BBAR) 1210,1240,1710\r\nC\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC\r\n 1240 IF (CBCNT .EQ. 0) GO TO 1280\r\n      K   = 0\r\n 1250 IN1 = I6SP + K\r\n      IN2 = I4 + (IX(IN1)*BBBAR)*2\r\n      IN1 = IX(IN1) + I4SP\r\n      JJ  = IX(IN1)\r\n      DZ(1) = DX(IN2  )\r\n      DZ(2) = DX(IN2+1)\r\n      IF (DZ(1).EQ.0.D0 .AND. DZ(2).EQ.0.D0) GO TO 1270\r\n      CALL ZBLPKI\r\n 1270 K = K + 1\r\n      IF (K-CBCNT) 1250,1280,1710\r\n 1280 CALL BLDPKN (FILEL,0,FILEL)\r\nC\r\nC     MOVE PERMUTATION INDICES OVER ONE ELEMENT\r\nC\r\n      END = I1SP + LCOL\r\n      DO 1290 I = I1SP,END\r\n 1290 IX(I) = IX(I+1)\r\nC\r\nC     MOVE ELEMENTS IN AREA I OVER ONE COLUMN\r\nC\r\n      K = 0\r\n      IF (SCRFLG .EQ. 0) GO TO 1310\r\n      CALL CLOSE (SR2FL,REW)\r\n      CALL OPEN (*1680,SR2FL,IX(SR2BUF),RD)\r\n      IF (R .GT. 2) GO TO 1310\r\n      ICRQ = I1 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(I1),IBBAR4,0,FLAG)\r\n      GO TO 1360\r\n 1310 IN1 = I1  + K*BBAR*2\r\n      IN2 = IN1 + BBAR + BBAR\r\n      CALL CXLOOP (DX(IN1),DX(IN2),BBAR)\r\n      K = K + 1\r\n      IF (K-R+2) 1310,1340,1360\r\n 1340 IF (R-BBBAR1) 1350,1310,1710\r\n 1350 ICRQ = IN2 + BBAR*4 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1715\r\n      IBBAR4 = BBAR*4\r\n      CALL READ (*1690,*1700,SR2FL,DX(IN2),IBBAR4,0,FLAG)\r\n 1360 LCOL = LCOL - 1\r\nC\r\nC     STORE CURRENT COLUMN OF L\r\nC\r\n 1370 IF (CBCNT .EQ. 0) GO TO 1420\r\nC\r\nC     MOVE ELEMENTS IN AREA IV UP ONE CELL\r\nC\r\n      K   = 0\r\n 1380 IN1 = I4SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1410\r\n      KK  = 0\r\n      IN1 = I4  + 2*K*BBBAR\r\n 1390 IN2 = IN1 + KK + KK\r\n      DX(IN2  ) = DX(IN2+2)\r\n      DX(IN2+1) = DX(IN2+3)\r\n      KK = KK + 1\r\n      IF (KK-BBBAR1) 1390,1400,1710\r\n 1400 DX(IN2+2) = 0.D0\r\n      DX(IN2+3) = 0.D0\r\n 1410 K = K + 1\r\n      IF (K-CBAR) 1380,1420,1710\r\n 1420 IF (SCRFLG .NE. 0) GO TO 1450\r\nC\r\nC     STORE COLUMN IN CORE\r\nC\r\n 1430 IN1 = I1 + 2*LCOL*BBAR\r\n      END = MIN0(BBAR,NCOL-JPOS)\r\n      IF (END .EQ. 0) GO TO 1480\r\n      K   = 0\r\n      IN3 = I2  + 2*(JPOS-IOFF+1)\r\n 1440 IN2 = IN1 + K + K\r\n      IN4 = IN3 + K + K\r\n      DX(IN2  ) = DX(IN4  )\r\n      DX(IN2+1) = DX(IN4+1)\r\n      K = K + 1\r\n      IF (K-END) 1440,1480,1710\r\nC\r\nC     STORE COLUMN ON THE SCRATCH FILE\r\nC\r\n 1450 IF (LCOL-R+1) 1430,1470,1460\r\n 1460 IN1 = I1 + (LLL-1)*BBAR*2\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*4,0)\r\n 1470 IN1 = I2 + 2*(JPOS-IOFF+1)\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*4,0)\r\nC\r\nC     CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM\r\nC\r\n      CALL CLOSE (SR3FL,REW)\r\n      CALL CLOSE (SR2FL,REW)\r\n      IN1   = SR2FL\r\n      SR2FL = SR3FL\r\n      SR3FL = IN1\r\n 1480 LCOL  = LCOL + 1\r\n      IF (C .EQ. 0) GO TO 1570\r\n      IF (JPOS .LT. BBBAR) GO TO 1570\r\nC\r\nC     READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS\r\nC\r\n      COUNT = CCOUNT\r\n      IF (ITRN .LT. 0) GO TO 1570\r\n 1490 IF (ITRN .GT. JPOS-B+2) GO TO 1560\r\nC\r\nC     TEST TO SEE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      K   = 0\r\n 1500 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 1540\r\n      K   = K + 1\r\n      IF (K-C) 1500,1510,1710\r\nC\r\nC     CREATE A NEW ACTIVE COLUMN\r\nC\r\n 1510 K   = 0\r\n 1520 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1530\r\n      K   = K + 1\r\n      IF (K-C) 1520,1710,1710\r\n 1530 IX(IN1) = JTRN\r\n      IN1 = IN1 + C\r\n      IX(IN1) = ITRN\r\n      IN1 = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DTRN(1)\r\n      DX(IN1+1) = DTRN(2)\r\n      CCOUNT = CCOUNT + 1\r\n      GO TO 1550\r\nC\r\nC     STORE ELEMENT IN EXISTING COLUMN\r\nC\r\n 1540 IN1 = I3 + 2*(K+1)*BBAR1 - 2\r\n      DX(IN1  ) = DX(IN1  ) + DTRN(1)\r\n      DX(IN1+1) = DX(IN1+1) + DTRN(2)\r\n 1550 CALL READ (*1690,*1700,SR1FIL,ITRAN(1),6,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 1490\r\n      CALL CLOSE (SR1FIL,REW)\r\n 1560 IF (CCOUNT .EQ. COUNT) GO TO 1570\r\nC\r\nC     RE-ARRANGE INDEXES IN SEQUENTIAL ORDER\r\nC\r\n      ASSIGN 1570 TO KK\r\n      GO TO 150\r\n 1570 CONTINUE\r\n      JPOS = JPOS + 1\r\nC\r\nC     ZERO AREA II\r\nC\r\n      END = I2 + 2*MIN0(JPOS-IOFF+BBAR-1,NCOL-1) + 1\r\n      DO 1590 I = I2,END\r\n 1590 DX(I) = 0.D0\r\nC\r\nC      TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III\r\nC\r\n      IF (CBCNT  .EQ. 0) GO TO 270\r\n      IF (CCOUNT .EQ. 0) GO TO 1640\r\n      IF (JPOS-1 .LT. BBBAR) GO TO 270\r\n      IN1 = I4SP\r\n      K   = 0\r\n 1600 IN2 = IN1 + K\r\n      IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1610\r\n      K   = K + 1\r\n      IF (K .LT. CBAR) GO TO 1600\r\n      GO TO 270\r\n 1610 IN1 = I5 + K + K\r\n      IN2 = I3 + BBAR + BBAR\r\n      K   = 0\r\n 1620 DX(IN2  ) = DX(IN2  ) - DX(IN1)\r\n      DX(IN2+1) = DX(IN2+1) - DX(IN1+1)\r\n      DX(IN1  ) = 0.D0\r\n      DX(IN1+1) = 0.D0\r\n      IN2 = IN2 + BBAR1 + BBAR1\r\n      IN1 = IN1 + CBAR  + CBAR\r\n      K   = K + 1\r\n      IF (K .LT. C) GO TO 1620\r\nC\r\nC     TEST TO SEE IF A ACTIVE ROW HAS BEEN ELIMINATED\r\nC\r\n 1640 IN1 = IX(I6SP) + I4SP\r\n      IF (IX(IN1)-JPOSL-BBAR1) 270,1650,270\r\nC\r\nC     ELIMINATE THE ACTIVE ROW\r\nC\r\n 1650 IX(IN1) = 0\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = 0\r\n      CBCNT   = CBCNT - 1\r\nC\r\nC     MOVE INDEXES IN AREA VI UP ONE\r\nC\r\n      IN1 = I6SP + CBCNT - 1\r\n      DO 1660 I = I6SP,IN1\r\n 1660 IX(I) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n      GO TO 270\r\nC\r\nC     FINISH WRITING OUT THE COMPLETED COLUMNS OF L\r\nC\r\n 1670 CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (FILEL,NOREW)\r\n      CALL CLOSE (SR2FIL,NOREW)\r\n      CALL COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R,\r\n     1             BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\n      PARM(5) = IEND\r\n      CALL CONMSG (PARM(3),3,0)\r\n      FILEU(7) = BBBAR\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1680 PARM(1) = -1\r\n      GO TO 1730\r\n 1690 PARM(1) = -2\r\n      GO TO 1730\r\n 1700 PARM(1) = -3\r\n      GO TO 1730\r\n 1710 PARM(1) = -25\r\n      GO TO 1730\r\n 1715 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      GO TO 1730\r\nC\r\nC     SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER\r\nC\r\n 1720 CALL CLOSE (FILEA(1),REW)\r\n      CALL CLOSE (FILEL(1),REW)\r\n      CALL CLOSE (FILEU(1),REW)\r\n      CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (SR2FIL,REW)\r\n      CALL CLOSE (SR3FIL,REW)\r\nCWKBR SPR94018 4/95      FILEU(2) = BBBAR \r\n      FILEU(7) = BBBAR \r\n      RETURN 1\r\nC\r\n 1730 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdetm.f",
    "content": "      SUBROUTINE CDETM (METHOD,EED,MDD,BDD,KDD,LAMA,PHID,OCEIGS,NFOUND,\r\n     1                  SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8)\r\nC\r\nC     SOLVES COMPLEX EIGENVALUE PROBLEM BY DETERMINANT METHOD\r\nC\r\n      INTEGER          EED,BDD,PHID,OCEIGS,SCR1,SCR2,SCR3,SCR4,SCR5,\r\n     1                 SCR6,SCR7,SYSBUF,IZ(1),FA,FL,FU,SR1,SR2,SR3,POWR,\r\n     2                 IPOLE(2),EIGC(2),IHEAD(50),POIN,DRETN,IPS(3),\r\n     3                 IPDET(3),FILE,NAME(2),SCR8,OTPE,ILUSP(2),\r\n     4                 ISCR2(7),ISP(2)\r\n      REAL             LU\r\n      DOUBLE PRECISION ZD(1),D1,D2,D3,D4,D5,D6,MINDA,RL,PR,DT1,PI,DR,DI,\r\n     1                 PSR(3),PSI(3),DSR(3),DSI(3),PKR(3),PKI(3),\r\n     2                 DETR(3),DETI(3),DT2,DT3,D7,D8,PTR,PTI,D9,D10,\r\n     3                 HK1R,HK1I,HKR,HKI,LAMDKR,LAMDKI,DELTKR,DELTKI,\r\n     4                 GKR,GKI,ROOTR,ROOTI,LAMK1R,LAMK1I,HKP1R,HKP1I,\r\n     5                 H1BAR,H2BAR,H3BAR,TEST,AMCB(2),BMCB(2),CMCB(2),\r\n     6                 DPI,D2PI,RADDEG,DEGRAD,D4PISQ,\r\n     7                 DDISTX,DDIST2,ZZ,ZDKM1,ZDK\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /CONDAD/  DPI,D2PI,RADDEG,DEGRAD,D4PISQ\r\n      COMMON /OUTPUT/  HEAD(1)\r\n      COMMON /MSGX  /  NMSGX,MAXGX\r\n      COMMON /SADDX /  NOMAT,LCADD,MCBA(12),MCBB(12),MCBC(12),MCBD(12),\r\n     1                 MCBE(12),MC(7)\r\n      COMMON /CDCMPX/  FA(7),FL(7),FU(7),SR1,SR2,SR3,DR,DI,POWR,NX,\r\n     1                 MINDA,IB\r\n      EQUIVALENCE      (KSYSTM(1),SYSBUF), (KSYSTM(2),OTPE),\r\n     1                 (AMCB(1),MCBA(9)), (BMCB(1),MCBB(9)),\r\n     2                 (CMCB(1),MCBC(9)), (Z(1),IZ(1),ZD(1))\r\n      DATA    IPOLE ,  EIGC,  IHEAD,        POIN,   NAME            /\r\n     1        257,4 ,  207,2, 0,1009,1,47*0, 4HPOIN, 4HCDET, 4HM     /\r\n      DATA    NIT,IM1, SIGN, NUMINT, IZ2,IZ3, IZ4,IZ5, IZ6,IZ7, IZ8 /\r\n     1        20, 1,   -1.0, 4,      2,  3,   4,  5,   6,  7,   8   /\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     METHOD   SELECT SET OF POLES AND EIGC CARDS\r\nC     EED      EIGENVALUE EXTRACTION DATA BLOCK\r\nC     MDD      MASS MATRIX      - DIRECT OR MODAL\r\nC     BDD      DAMPING MATRIX   - DIRECT OR MODAL\r\nC     KDD      STIFFNESS MATRIX - DIRECT OR MODAL\r\nC     LAMA     EIGENVALUE FILE\r\nC     PHID     EIGENVECTOR FILE\r\nC     OEIGS    EIGENVALUE SUMMARY FILE\r\nC     NFOUND   TOTAL NUMBER OF EIGENVALUES FOUND IN ALL REGIONS\r\nC     SCR      SCRATCHES\r\nC     IPOLE    LOCATE WORDS FOR POLES\r\nC     EIGC     LOCATE WORDS FOR EIGC CARDS\r\nC     EPSI     CONVERGENCE CRITERION\r\nC     IBUF     POINTER TO BUFFER\r\nC     NPOLE    NUMBER OF POLES TO BE USED\r\nC     IPOLES   POINTER TO START OF POLES - 4 WORDS PER POLE ID,X,Y,MUL\r\nC     NREGN    NUMBER OF REGIONS\r\nC     IREG1    POINTER TO WORDS DESCRIBING REGIONS\r\nC     INORM    NORMALIZATION METHOD - 1 = MAX,  0 = POINT\r\nC     ISIL     POINTER FOR NORM IF  NORM = 0\r\nC     NE       ESTIMATED NUMBER OF ROOTS IN REGION\r\nC     ND       DESIRED NUMBER OF ROOTS\r\nC     LREGN    LENGTH OF BLOCK DESCRIBING REGION\r\nC     NPASS    NUMBER OF PASSES THROUGH STARTING POINTS\r\nC     NCHANG   NUMBER OF CHANGES OF CONVERGENCE CRITERIA\r\nC     NMOVES   NUMBER OF STARTING POINT MOVES\r\nC     NDCOMP   NUMBER OF DECOMPOSITIONS\r\nC     NFAIL    NUMBER OF FAILURES TO INTERATE TO A ROOT\r\nC     NOUTSD   NUMBER OF PREDICTIONS OUTSIDE REGION\r\nC     ITERM    REASON FOR TERMINATION  0 - FOUND REQUESTED NUMBER\r\nC                                      1 - NO MORE IN REGIONS\r\nC     IRGP     POINTER FOR CURRENT REGION\r\nC     ICNT     NUMBER OF INTERATIONS\r\nC     NIT      MAXIMUM NUMBER OF INTERATIONS/ROOT\r\nC     NUMINT   MAXIMUM NUMBER OF CONVERGENCE  CHANGES\r\nC     NROW     ORDER OF PROBLEM\r\nC     ICMPX    SWITCH IF ROOTS FOUND ARE COMPLEX CONJUGATE -0  NOT-1\r\nC     ISPNT    POINTER TO CURRENT 3 STARTING POINTS\r\nC     PS       SORTED 3 STARTING POINTS\r\nC     DS       SORTED 3 DET OF STARTING POINTS\r\nC     IPS      POWERS OF STARTING POINTS\r\nC     P        TRIAL EIGENVALUE\r\nC     D        SCALED SWEPT DETERMINANT AT P\r\nC     IFPASS   FLAG TO SIGNAL ROOT FROUND ON PASS 1, 0 IF NOT\r\nC     IPOINT   NUMBER OF STARTING POINTS USED IN CURRENT REGION\r\nC     ILUSP    INDEX TO LAST USED STARTING POINT (1ST OF 3) IN EACH\r\nC              SUBRGN\r\nC     NSBRGN   NUMBER OF SUBREGIONS IN PROBLEM THIS REGION\r\nC     NSBDON   FLAG MARKING COMPLETED SUBREGION\r\nC     ISP      POINTS NEAREST AND NEXT NEAREST THE ORIGIN\r\nC\r\nC     STRUCTURE OF REGION\r\nC\r\nC     A1,B1,A2,B2,XL,NE,ND,NF,POINTER TO NEXT REGION (ZERO IF LAST),RL,\r\nC     X  (12  WORDS)\r\nC\r\nC     STARTING POINTS  8NE + 8 WORDS  - D.P. COMPLEX\r\nC     DETERMINANTS     8NE + 8 WORDS    D.P. COMPLEX\r\nC     SCALE FACTORS    4NE + 4 WORDS    2 INTEGERS PER STARTING POINT\r\nC\r\nC     ROOTS   4ND WORDS                 D.P. COMPLEX\r\nC\r\nC\r\nC     DEFINE EPSI (CONVERGENCE CRITERION)\r\nC\r\n      EPSI = 1.0E-16\r\n      IF (MACH.EQ.5 .OR. MACH.EQ.21) EPSI = 1.0E-12\r\nC\r\n      LC   = KORSZ(Z)\r\n      IBUF = LC - SYSBUF - 1\r\n      LC   = (IBUF/2)*2 - 1\r\n      NOSING = 1\r\n      CALL SSWTCH (7,IPRT)\r\n      ISING = 0\r\n      FA(1) = KDD\r\n      CALL RDTRL (FA(1))\r\n      IF (FA(1) .LE. 0) GO TO 1\r\n      IDD = KDD\r\n      GO TO 9\r\n    1 FA(1) = MDD\r\n      CALL RDTRL (FA(1))\r\n      IF (FA(1) .LE. 0) GO TO 2\r\n      IDD = MDD\r\n      GO TO 9\r\n    2 FA(1) = BDD\r\n      CALL RDTRL (FA(1))\r\n      IF (FA(1) .LE. 0) GO TO 990\r\n      IDD   = BDD\r\n    9 FA(1) =-SCR2\r\n      FA(5) = 4\r\n      FL(1) = IDD\r\n      CALL RDTRL (FL(1))\r\n      FL(4) = 4\r\n      FL(5) = 4\r\n      FU(1) = IDD\r\n      CALL RDTRL (FU(1))\r\n      FU(4) = 5\r\n      FU(5) = 4\r\n      SR1   = SCR3\r\n      SR2   = SCR4\r\n      SR3   = SCR5\r\n      FL(1) = SCR6\r\n      FU(1) = SCR7\r\n      DO 10 I = 1,7\r\n      MCBA(I) = 0\r\n      MCBB(I) = 0\r\n      MCBC(I) = 0\r\n      MC(I)   = 0\r\n   10 CONTINUE\r\n      MCBA(1) = KDD\r\n      MCBB(1) = BDD\r\n      MCBC(1) = MDD\r\n      CALL RDTRL (MCBA(1))\r\n      CALL RDTRL (MCBB(1))\r\n      CALL RDTRL (MCBC(1))\r\nC\r\nC     MUST HAVE  B OR M MATRICES\r\nC\r\n      IF (MCBB(1) .LT. 0) MCBB(1) = 0\r\n      IF (MCBC(1) .LT. 0) MCBC(1) = 0\r\n      IF (MCBB(1)+MCBC(1) .EQ. 0) GO TO 990\r\n      NROW  = MAX0(MCBA(3),MCBB(3),MCBC(3))\r\n      ICMPX = 0\r\n      IF (MCBA(5).GT.2 .OR. MCBB(5).GT.2 .OR. MCBC(5).GT.2) ICMPX = 1\r\n      AMCB(1) = 1.0D0\r\n      AMCB(2) = 0.D0\r\n      MC(2)   = MCBA(2)\r\n      MC(3)   = MCBA(3)\r\n      MC(4)   = MCBA(4)\r\n      MC(5)   = 4\r\n      MCBA(8) = 4\r\n      MCBC(8) = 4\r\n      MCBB(8) = 4\r\n      NOMAT   = 3\r\n      MC(1)   = SCR2\r\n      NDESRD  = 0\r\nC\r\nC     PICK UP AND STORE ANY POLES\r\nC\r\n      FILE = EED\r\n      CALL PRELOC (*950,IZ(IBUF),EED)\r\n      NPOLE = 0\r\n      CALL LOCATE (*40,IZ(IBUF),IPOLE(1),IFLAG)\r\nC\r\nC     FOUND POLE CARDS\r\nC\r\n   20 LC = LC - 4\r\n   30 CALL READ (*970,*40,EED,IZ(LC),4,0,IFLAG)\r\n      IF (IZ(LC) .NE. METHOD) GO TO 30\r\n      NPOLE = NPOLE + 1\r\n      GO TO 20\r\n   40 IPOLES = LC + 4\r\nC\r\nC     STORE REGIONS\r\nC\r\n      NREGN = 0\r\n      CALL LOCATE (*990,IZ(IBUF),EIGC(1),IFLAG)\r\n   50 CALL READ (*970,*990,EED,IZ(1),10,0,IFLAG)\r\n      IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 70\r\nC\r\nC     SKIP REMAINDER OF EIGC CARD\r\nC\r\n   60 CALL READ (*970,*990,EED,IZ(1),7,0,IFLAG)\r\n      IF (IZ(IZ6) .NE. -1) GO TO 60\r\n      GO TO 50\r\nC\r\nC     EIGC CARD FOUND - ALLOCATE CORE + BUILD UP REGIONS\r\nC\r\n   70 INORM = 0\r\n      IF (IZ(IZ4) .NE. POIN) INORM = 1\r\n      ISIL = IZ(IZ6)\r\n      IF (Z(IZ8) .NE. 0.0) EPSI = Z(IZ8)\r\nC\r\nC     PROCESS EACH REGION DEFINITION\r\nC\r\n   80 CALL READ (*970,*980,EED,Z(1),7,0,IFLAG)\r\n      IF (IZ(IZ7) .LT. 0) GO TO 130\r\n      NREGN = NREGN + 1\r\n      ALPH1 = Z(  1)\r\n      W1    = Z(IZ2)\r\n      ALPH2 = Z(IZ3)\r\n      W2    = Z(IZ4)\r\n      XL    = Z(IZ5)\r\n      NE    = IZ(IZ6)\r\n      ND    = IZ(IZ7)\r\n      IF (ND .EQ. 0) ND = 3*NE\r\n      LREGN = 20*NE + 4*ND + 32\r\n      NDESRD = NDESRD + ND\r\n      IF (NREGN .EQ.1) GO TO 90\r\n      IZ(LC+8) = LC - LREGN\r\n   90 LC = LC - LREGN\r\n      IF (LC    .LE. 0) GO TO 1000\r\n      IF (NREGN .NE. 1) GO TO 100\r\n      IREG1 = LC\r\nC\r\nC     ZERO REGION\r\nC\r\n  100 K = LC - 1\r\n      DO 110 I = 1,LREGN\r\n      K = K + 1\r\n      IF (I .EQ. 9) GO TO 110\r\n      IZ(K) = 0\r\n  110 CONTINUE\r\nC\r\nC     STORE CONSTANTS\r\n      Z(LC  ) = ALPH1\r\n      Z(LC+1) = W1\r\n      Z(LC+2) = ALPH2\r\n      Z(LC+3) = W2\r\n      Z(LC+4) = XL\r\n      IZ(LC+5)= NE\r\n      IZ(LC+6)= ND\r\nC\r\nC     DISTRIBUTE  STARTING POINTS\r\nC\r\n      D1 = ALPH2 - ALPH1\r\n      D2 = W2 - W1\r\n      RL = DSQRT(D1*D1+D2*D2)\r\n      Z(LC+9) = RL\r\n      D1 = D1/RL\r\n      D2 = D2/RL\r\n      J  = (LC+1)/2 + 6\r\n      D3 = RL/FLOAT(4*NE +4)\r\n      ZD(J  ) = D1*D3 + ALPH1\r\n      ZD(J+1) = D2*D3 + W1\r\n      K  = 2*NE + 1\r\n      D3 = RL/FLOAT(K+1)\r\n      D1 = D1*D3\r\n      D2 = D2*D3\r\n      DO 120 I = 1,K\r\n      J  = J + 2\r\n      ZD(J  ) = ZD(J-2) + D1\r\n      ZD(J+1) = ZD(J-1) + D2\r\n  120 CONTINUE\r\n      GO TO 80\r\n  130 LCADD = LC - 1\r\n      NX = LCADD\r\n      IZ(LC+8) = 0\r\n      CALL CLOSE (EED,1)\r\n      IF (LC-4*NROW .LE. 0) GO TO 1000\r\nC\r\nC     INITIALIZE CUMULATIVE POINTERS\r\n      IFAIL  = 0\r\n      NFOUND = 0\r\n      NPASS  =-1\r\n      NCHANG = 0\r\n      NMOVES = 0\r\n      NDCOMP = 0\r\n      NFAIL  = 0\r\n      NOUTSD = 0\r\n      ITERM  = 1\r\n      IFPASS = 1\r\nC\r\nC     RETURN HERE TO SEARCH ALL REGIONS AGAIN\r\nC\r\n  140 NPASS = NPASS + 1\r\n      IF (IFPASS .EQ. 0) GO TO 690\r\n      IFPASS = 0\r\n      IRGP   = IREG1\r\nC\r\nC     FIND REGION WHICH LACKS ROOTS\r\nC\r\n      DO 160 I = 1,NREGN\r\n      IF (IZ(IRGP+6) .GT. IZ(IRGP+7)) GO TO 170\r\n      IRGP = IZ(IRGP+8)\r\n  160 CONTINUE\r\nC\r\nC     ALL REGIONS HAVE ENOUGH ROOTS - EXIT\r\nC\r\n      GO TO 710\r\nC\r\nC     PICK UP REGION POINTERS AND PARAMETERS\r\nC\r\n  170 ALPH1 =  Z(IRGP  )\r\n      W1    =  Z(IRGP+1)\r\n      ALPH2 =  Z(IRGP+2)\r\n      W2    =  Z(IRGP+3)\r\n      XL    =  Z(IRGP+4)\r\n      NE    = IZ(IRGP+5)\r\n      ND    = IZ(IRGP+6)\r\n      NF    = IZ(IRGP+7)\r\n      RL    = Z(IRGP+9)\r\n      XVR   = (ALPH2-ALPH1)/RL\r\n      YVR   = (W2-W1)/RL\r\n      IPOINT= 0\r\n      ISPNT = (IRGP+1)/2 + 4\r\nC\r\nC     FIND POINTS CLOSEST TO AND NEXT CLOSEST TO ORIGIN THUS DIVIDING\r\nC     REGION INTO TWO SUBREGIONS\r\nC\r\n      ISPT1 = (IRGP+13)/2\r\n      LSPT  =  ISPT1 + 2*(2*NE+2) - 2\r\n      DDISTX= 0.\r\n      NXORG = 0\r\n      NRORG = ISPT1\r\n      DDIST2= ZD(ISPT1)*ZD(ISPT1) + ZD(ISPT1+1)*ZD(ISPT1+1)\r\n      ISPT2 = ISPT1 + 2\r\n      DO 173 I = ISPT2,LSPT,2\r\n      ZZ = ZD(I)*ZD(I) + ZD(I+1)*ZD(I+1)\r\n      IF (ZZ .GT. DDIST2) GO TO 175\r\n      NXORG  = NRORG\r\n      NRORG  = I\r\n      DDISTX = DDIST2\r\n      DDIST2 = ZZ\r\n  173 CONTINUE\r\n  175 IF (ZZ .GT. DDISTX) GO TO 178\r\n  177 NXORG  = I\r\n      DDISTX = ZZ\r\n      GO TO 179\r\n  178 IF (NXORG) 177,179,177\r\nC\r\nC     CALCULATE THE NUMBER OR SUBREGIONS, NSBRGN. THERE MUST BE AT LEAST\r\nC     3 POINTS EACH SIDE OF BISECTOR IN ORDER TO HAVE 2 SUBREGIONS.\r\nC          ISPT2+2 .LE. (NRORG+NXORG)/2 .LE. LSPT-4\r\nC\r\n  179 CONTINUE\r\n      IF (2*(ISPT2+2).LE.NRORG+NXORG .AND. NRORG+NXORG.LE.(LSPT-4)*2)\r\n     1    GO TO 185\r\nC\r\nC     ONLY ONE SUBREGION\r\nC     FIND FIRST UNEVALUATED POINT\r\nC\r\n      NSBRGN = 1\r\n      K = IRGP + 16*NE + 32\r\n      L = 2*NE\r\n      DO 180 J = 1,L\r\n      IF (IZ(K) .EQ. 0) GO TO 196\r\n      K = K + 2\r\n      IPOINT = IPOINT + 1\r\n      ISPNT  = ISPNT  + 2\r\n  180 CONTINUE\r\nC\r\nC     ALL TRIED  GO TO BEGINNING\r\nC\r\n      IPOINT = 0\r\n      ISPNT  = (IRGP+1)/2 + 4\r\n      GO TO 196\r\nC\r\nC     TWO SUBREGIONS EXIST. DETERMINE STARTING POINTS FOR EACH\r\nC\r\n  185 NSBRGN = 2\r\n      NSBDON = 0\r\n      ISP(1) = NRORG\r\n      IF (NRORG .LT. NXORG) ISP(1) = NXORG\r\n      ISP(2) = NRORG + NXORG - ISP(1)\r\n      KREG   = 2\r\n      ILUSP(1) = ISP(1)\r\n      ILUSP(2) = ISP(2) - 2\r\n      GO TO 192\r\nC\r\nC     RETURN HERE TO GET NEW STARTING POINT (OR NEW REGION IF NECESSARY)\r\nC     DETINES  ISPNT\r\nC\r\n  190 IF (NSBRGN .EQ. 1) GO TO 196\r\n      IF (NSBDON-1) 192,195,1945\r\nC\r\nC     CHANGE SUBREGIONS\r\nC\r\n  192 KREG = 3 - KREG\r\n      GO TO (194,195), KREG\r\nC\r\nC     PROCESS FIRST SUBREGION\r\nC\r\n  194 ISPNT = ILUSP(1)\r\n      LS    = ISP  (2)\r\n      ALOC1 = ZD(LS  )\r\n      WLOC1 = ZD(LS+1)\r\n      ILUSP(1) = ILUSP(1) + 2\r\n      IF (ISPNT+4 .EQ. LSPT) GO TO 1942\r\n      PR = .45*ZD(ISPNT+4) + .55*ZD(ISPNT+6) - ALOC1\r\n      PI = .45*ZD(ISPNT+5) + .55*ZD(ISPNT+7) - WLOC1\r\n 1940 IPOINT = (ISPNT -ISPT1)/2 + 1\r\n      GO TO 220\r\nC\r\nC     PROCESS LAST SET OF STARTING IN FIRST SUBREGION\r\nC\r\n 1942 NSBDON = NSBDON + 1\r\n      PR = .45*ZD(ISPNT+4) + .55*ALPH1 - ALOC1\r\n      PI = .45*ZD(ISPNT+5) + .55*W1    - WLOC1\r\n      GO TO 1940\r\nC\r\nC     SUBREGION 2 IS COMPLETE.  IS SUBREGION 1 FINISHED AS WELL\r\nC\r\n 1945 IF (NSBDON .EQ. 3) GO TO 680\r\n      GO TO 194\r\nC\r\nC     PROCESS SUBREGION 2\r\nC\r\n  195 ISPNT = ILUSP(2) - 2\r\n      ILUSP(2) = ILUSP(2) - 2\r\n      LS    = ISP(1)\r\n      ALOC1 = ZD(LS)\r\n      WLOC1 = ZD(LS+1)\r\n      IF (ISPNT .EQ. ISPT1) GO TO 1952\r\n      PR = -(.45*ZD(ISPNT-2) + .55*ZD(ISPNT  )) + ALOC1\r\n      PI = -(.45*ZD(ISPNT-1) + .55*ZD(ISPNT+1)) + WLOC1\r\n      GO TO 1940\r\nC\r\nC     LAST SET OF STARTING POINTS IN SUBREGION2 TO PROCESS\r\nC\r\n 1952 NSBDON = NSBDON + 2\r\n      PR = -(.45*ZD(ISPT1  ) + .55*ZD(ISPNT  )) + ALOC1\r\n      PI = -(.45*ZD(ISPT1+1) + .55*ZD(ISPNT+1)) + WLOC1\r\n      GO TO 1940\r\nC\r\nC     ONLY ONE SUBREGION PROCESS FROM END TO END\r\nC\r\n  196 IPOINT = IPOINT + 1\r\n      ISPNT  = ISPNT+2\r\n      IF (IPOINT .GT. 2*NE) GO TO 680\r\nC\r\nC     FIND OUT IF ANY DETERMINT EVALUATIONS ARE NECESSARY\r\nC\r\nC     COMPUTE LOCAL SEARCH REGION DESCRITIONS\r\nC\r\n      ALOC1 = ALPH1\r\n      WLOC1 = W1\r\n      IF (IPOINT .EQ. 2*NE) GO TO 210\r\n      PR = .45*ZD(ISPNT+4) + .55*ZD(ISPNT+6) - ALOC1\r\n      PI = .45*ZD(ISPNT+5) + .55*ZD(ISPNT+7) - WLOC1\r\n      GO TO 220\r\n  210 PR = ALPH2 - ALOC1\r\n      PI = W2 - WLOC1\r\n  220 RLL= DSQRT(PR*PR+PI*PI)\r\n      K  = IRGP + 16*NE + 24 + 2*IPOINT\r\n      I  = 1\r\n      ISING = 0\r\n  230 K  = K + 2\r\n      IF (IZ(K) .NE. 0) GO TO 250\r\nC\r\nC     EVALUATE DETERMINANT\r\nC\r\n      J  = ISPNT + 2*I - 2\r\n      PR = ZD(J  )\r\n      PI = ZD(J+1)\r\n      ASSIGN 240 TO DRETN\r\n      GO TO 810\r\n  240 IZ(K  ) = 1\r\n      IZ(K+1) = POWR\r\n      M = 4*NE + 2 + ISPNT + 2*I\r\n      ZD(M  ) = DR\r\n      ZD(M+1) = DI\r\n  250 I = I + 1\r\n      IF (I .LE. 3) GO TO 230\r\n      IF (ISING.EQ.3 .AND. NPASS.EQ.0) GO TO 701\r\nC\r\nC     SORT STARTING POINTS BY MAGNITUDE OF DET\r\nC\r\n  260 CALL KLOCK (ITIME1)\r\n      K = ISPNT + 4*NE + 4\r\n      L = IRGP + 16*NE + 26 + 2*IPOINT\r\n      CALL CDETM2 (ZD(ISPNT),ZD(K),IZ(L),PSR(1),PSI(1),DSR(1),DSI(1),\r\n     1             IPS(1))\r\nC\r\nC     LOAD STARTING POINTS INTO TRAIL EIGENVALUES\r\nC\r\n      DO 270 I = 1,3\r\n      PKR(I)  = PSR(I)\r\n      PKI(I)  = PSI(I)\r\n      DETR(I) = DSR(I)\r\n      DETI(I) = DSI(I)\r\n      IPDET(I)= IPS(I)\r\n  270 CONTINUE\r\n      DT2 = 1.0D38\r\nC\r\nC     START INTERATION LOOP\r\nC\r\n      ICNT = 1\r\n  280 HK1R = PKR(2) - PKR(1)\r\n      HK1I = PKI(2) - PKI(1)\r\n      HKR  = PKR(3) - PKR(2)\r\n      HKI  = PKI(3) - PKI(2)\r\n      IF (HKR.EQ.0.0D0 .AND. HKI.EQ.0.0D0) GO TO 550\r\n      D1     = HK1R*HK1R + HK1I*HK1I\r\n      LAMDKR = (HKR*HK1R + HKI*HK1I)/D1\r\n      LAMDKI = (HKI*HK1R - HKR*HK1I)/D1\r\n      DELTKR = 1.0D0 + LAMDKR\r\n      DELTKI = LAMDKI\r\nC\r\nC     COMPUTE GK\r\nC\r\n      D1 = LAMDKR*LAMDKR - LAMDKI*LAMDKI\r\n      D2 = 2.0*LAMDKR*LAMDKI\r\n      D3 = D1*DETR(1) - D2*DETI(1)\r\n      D4 = D2*DETR(1) + D1*DETI(1)\r\n      D1 = DELTKR*DELTKR - DELTKI*DELTKI\r\n      D2 = 2.0*DELTKR*DELTKI\r\n      D5 =-D1*DETR(2) + D2*DETI(2)\r\n      D6 =-D2*DETR(2) - D1*DETI(2)\r\n      CALL CSUMM (D3,D4,IPDET(1),D5,D6,IPDET(2),D1,D2,ID1)\r\n      D3 = LAMDKR + DELTKR\r\n      D4 = LAMDKI + DELTKI\r\n      D5 = D3*DETR(3) - D4*DETI(3)\r\n      D6 = D4*DETR(3) + D3*DETI(3)\r\n      CALL CSUMM (D1,D2,ID1,D5,D6,IPDET(3),GKR,GKI,IGK)\r\nC\r\nC     COMPUTE TERM UNDER RADICAL IN EQ. 11\r\nC\r\n      D1 = DETR(1)*LAMDKR - DETI(1)*LAMDKI\r\n      D2 = DETI(1)*LAMDKR + DETR(1)*LAMDKI\r\n      D3 =-DETR(2)*DELTKR + DETI(2)*DELTKI\r\n      D4 =-DETI(2)*DELTKR - DETR(2)*DELTKI\r\n      CALL CSUMM (D1,D2,IPDET(1),D3,D4,IPDET(2),D5,D6,ID1)\r\n      CALL CSUMM (D5,D6,ID1,DETR(3),DETI(3),IPDET(3),D1,D2,ID2)\r\n      D3 = DELTKR*LAMDKR - DELTKI *LAMDKI\r\n      D4 = DELTKI*LAMDKR + DELTKR *LAMDKI\r\n      D5 = D1*D3 - D2*D4\r\n      D6 = D2*D3 + D1*D4\r\n      D1 =-4.0*(DETR(3)*D5 - DETI(3)*D6)\r\n      D2 =-4.0*(DETI(3)*D5 + DETR(3)*D6)\r\nC\r\nC     COMPUTE  GK*GK\r\nC\r\n      D3 = GKR*GKR - GKI*GKI\r\n      D4 = 2.0*GKR*GKI\r\n      CALL CSUMM  (D3,D4,2*IGK,D1,D2,IPDET(3)+ID2,D5,D6,ID1)\r\n      CALL CSQRTN (D5,D6,ID1,ROOTR,ROOTI,IROOT)\r\n      CALL CSUMM  (GKR,GKI,IGK,ROOTR,ROOTI,IROOT,D9,D10,ID3)\r\n      CALL CSUMM  (GKR,GKI,IGK,-ROOTR,-ROOTI,IROOT,D7,D8,ID4)\r\n      IF (ICNT .EQ. 1) GO TO 290\r\n      D1  = D9\r\n      D2  = D10\r\n      ID1 = ID3\r\n      D5  = D9*D9 + D10*D10\r\n      D6  = D7*D7 + D8*D8\r\n      IF (D5 .GE. D6) GO TO 310\r\n      D1  = D7\r\n      D2  = D8\r\n      ID1 = ID4\r\n      GO TO 310\r\nC\r\nC     COMPUTE  NUMERATOR  EQ. 11\r\nC\r\n  290 D1 = D9\r\n      D2 = D10\r\n      ID1= ID3\r\n      M  = 2\r\n      GO TO 310\r\n  300 D1 = D7\r\n      D2 = D8\r\n      ID1= ID4\r\n      M  = 1\r\n  310 D3 =-2.0*(DETR(3)*DELTKR - DETI(3)*DELTKI)\r\n      D4 =-2.0*(DETI(3)*DELTKR + DETR(3)*DELTKI)\r\n      D5 = D1*D1 + D2*D2\r\n      D6 = 10.0**(IPDET(3) - ID1)\r\n      LAMK1R = D6*(D3*D1 + D4*D2)/D5\r\n      LAMK1I = D6*(D4*D1 - D3*D2)/D5\r\n      HKP1R  = LAMK1R*HKR - LAMK1I*HKI\r\n      HKP1I  = LAMK1I*HKR + LAMK1R*HKI\r\n      PR = PKR(3) + HKP1R\r\n      PI = PKI(3) + HKP1I\r\n      IF (ICNT .NE. 1) GO TO 370\r\n      DT3 = 0.0D0\r\n      DO 330 I = 1,3\r\n      DT3 = DT3+DSQRT((PKR(I)-PR)**2 + (PKI(I)-PI)**2)\r\n  330 CONTINUE\r\n      IF (DT3 .GT. DT2) GO TO 340\r\n      PTR = PR\r\n      PTI = PI\r\n      DT2 = DT3\r\n  340 IF (M .EQ. 2) GO TO 300\r\n      PR  = PTR\r\n      PI  = PTI\r\nC\r\nC     DO RANGE CHECKS\r\nC\r\nC\r\nC     COMPUTE U VECTOR\r\nC\r\n  370 XU = PR - ALPH1\r\n      YU = PI - W1\r\n      LU = SQRT(XU*XU + YU*YU)\r\n      IF (LU .EQ. 0.0) GO TO 380\r\n      XU = XU/LU\r\n      YU = YU/LU\r\n      X  = LU*(XU*XVR + YU*YVR)\r\n      Y  = LU*(YU*XVR - XU*YVR)\r\n      IF (ABS(Y).GT.XL/2.0 .OR. X.LT.0.0 .OR. X.GT.RL) GO TO 400\r\nC\r\nC     SEE IF POINT IS IN LOCAL REGION\r\nC\r\n  380 XU = PR - ALOC1\r\n      YU = PI - WLOC1\r\n      LU = SQRT(XU*XU + YU*YU)\r\n      IF (LU .EQ. 0.0) GO TO 390\r\n      XU = XU/LU\r\n      YU = YU/LU\r\n      Y  = LU*(YU*XVR-XU*YVR)\r\n      X  = LU*(XU*XVR+YU*YVR)\r\n      IF (ABS(Y).GT.XL/2.0 .OR. X.LT.0.0 .OR. X.GT.RLL) GO TO 190\r\nC\r\nC     TRY FOR CONVERGENCE\r\nC\r\n  390 ASSIGN 450 TO DRETN\r\n      GO TO 810\r\nC\r\nC     PREDICTED OUTSIDE BIG REGION\r\nC\r\n  400 NOUTSD = NOUTSD + 1\r\n      GO TO 190\r\nC\r\nC     BEGIN CONVERGENCE TESTS\r\nC\r\n  450 IF (ICNT .LE. 2) GO TO 520\r\n      H1BAR = DSQRT(HK1R*HK1R + HK1I*HK1I)\r\n      H2BAR = DSQRT(HKR*HKR + HKI*HKI)\r\n      H3BAR = DSQRT(HKP1R*HKP1R + HKP1I*HKP1I)\r\n  460 TEST  = EPSI*RL\r\n      IF (H1BAR .GT. TEST*1.0E7) GO TO 480\r\n      IF (H2BAR .GT. TEST*1.0E4) GO TO 480\r\n      IF (H3BAR .GT.      H2BAR) GO TO 470\r\n      IF (H3BAR .GT.       TEST) GO TO 480\r\n      GO TO 550\r\n  470 IF (H2BAR .LE.  1.0E-7*RL) GO TO 550\r\n  480 ICNT = ICNT + 1\r\n      IF (ICNT-NIT) 530,500,490\r\n  490 IFAIL = 1\r\n      NFAIL = NFAIL + 1\r\n      GO TO 190\r\n  500 IF (NCHANG.LT.NUMINT .AND. IFAIL.EQ.1) GO TO 510\r\n      GO TO 490\r\n  510 EPSI   = EPSI*10.0\r\n      NCHANG = NCHANG + 1\r\n      GO TO 460\r\nC\r\nC     CONTINUE INTERATIONS\r\nC\r\n  520 ICNT = ICNT + 1\r\n  530 DO 540 I = 1,2\r\n      PKR(I)  = PKR(I+1)\r\n      PKI(I)  = PKI(I+1)\r\n      IPDET(I)= IPDET(I+1)\r\n      DETR(I) = DETR(I+1)\r\n      DETI(I) = DETI(I+1)\r\n  540 CONTINUE\r\n      PKR(3)  = PR\r\n      PKI(3)  = PI\r\n      DETR(3) = DR\r\n      DETI(3) = DI\r\n      IPDET(3)= POWR\r\n      GO TO 280\r\nC\r\nC     ACCEPT CURRENT EIGENVALUE\r\nC\r\n  550 FILE   = LAMA\r\n      NFOUND = NFOUND + 1\r\n      IFPASS = 1\r\n      IF (NFOUND .GT. 1) IM1 = 3\r\n      CALL OPEN (*950,LAMA,IZ(IBUF),IM1)\r\n      ZD(1  ) = PR\r\n      ZD(IZ2) = PI\r\n      CALL WRITE (LAMA,ZD(1),4,1)\r\n      CALL CLOSE (LAMA,2)\r\nC\r\nC     BUILD LOAD FOR FBS\r\nC\r\n      IF (MINDA .EQ. 0.0D0) MINDA = 1.0D-8\r\n      SIGN =-SIGN\r\n      D1   = NROW\r\n      D2   = NFOUND\r\n      J    = 2*NROW\r\n      DO 560 I = 1,J,2\r\n      K    = (I+1)/2\r\n      ZD(I  ) = SIGN*MINDA/(1.0D0+(1.0D0-FLOAT(K)/D1)*D2)\r\n      ZD(I+1) = 0.0D0\r\n  560 CONTINUE\r\n      ISCR2(1) = SR2\r\n      ISCR2(7) = FU(7)\r\n      CALL CDTFBS (ZD(1),ZD(J+1),IZ(IBUF),ISCR2,NROW)\r\nC\r\nC     NORMALIZE\r\nC\r\n      D1 = 0.0D0\r\n      DO 570 I = 1,J,2\r\n      D2 = ZD(I)*ZD(I) + ZD(I+1)*ZD(I+1)\r\n      IF (D2 .LT. D1) GO TO 570\r\n      D3 = ZD(I  )\r\n      D4 = ZD(I+1)\r\n      D1 = D2\r\n  570 CONTINUE\r\n      IF (INORM .EQ. 0) GO TO 600\r\n  580 DO 590 I = 1,J,2\r\n      D5 = (ZD(I)*D3  + ZD(I+1)*D4)/D1\r\n      ZD(I+1) = (D3*ZD(I+1) - D4*ZD(I))/D1\r\n      ZD(I  ) = D5\r\n  590 CONTINUE\r\n      GO TO 610\r\n  600 JJ = 2*ISIL\r\n      D2 = ZD(JJ)*ZD(JJ) + ZD(JJ-1)*ZD(JJ-1)\r\n      IF (D2.EQ.0.0D0 .OR. D1/D2.GT.1.0D6) GO TO 580\r\n      D3 = ZD(JJ-1)\r\n      D4 = ZD(JJ  )\r\n      D1 = D2\r\n      GO TO 580\r\nC\r\nC     WRITE OUT NORMALIZED VECTOR\r\nC\r\n  610 FILE = PHID\r\n      CALL OPEN  (*950,PHID,IZ(IBUF),IM1)\r\n      CALL WRITE (PHID,ZD(1),4*NROW,1)\r\n      CALL CLOSE (PHID,2)\r\nC\r\nC     STORE ACCEPTED VALUE\r\nC\r\n      IZ(IRGP+7) = IZ(IRGP+7) + 1\r\n      NF = NF + 1\r\n      J  = (IRGP+1)/2 + 2*NF + 10*NE + 14\r\n      ZD(J  ) = PR\r\n      ZD(J+1) = PI\r\n      IFAIL   = 0\r\nC\r\nC     CHECK FOR STARTING POINT MOVES\r\nC\r\n      J   = IREG1\r\n      I   = 1\r\n  620 DT1 = 200.0*EPSI*EPSI*Z(J+9)\r\n      M   = 2*IZ(J+5) + 2\r\n      K   = (J+1)/2 + 5\r\n      L   = 1\r\n  630 K   = K + 2\r\n      KKK = J + 16*IZ(J+5) + 26 + 2*L\r\n      IF (DSQRT((ZD(K)-PI)**2+(ZD(K-1)-PR)**2) .GE. DT1) GO TO 650\r\nC\r\nC     SHIFT STARTING POINT\r\nC\r\n      D2  = 1000.0*EPSI*EPSI*Z(J+9)\r\n      ZD(K-1) = DSIGN((Z(J+2)-Z(J  ))/Z(J+9)*D2+ZD(K-1),ZD(K-1))\r\n      ZD(K  ) = DSIGN((Z(J+3)-Z(J+1))/Z(J+9)*D2+ZD(K  ),ZD(K  ))\r\n      NMOVES  = NMOVES + 1\r\nC\r\nC     IF  DETERMINANT EVALUATED - REEVALUATE FOR SHIFT\r\nC\r\n      IF (IZ(KKK) .EQ. 0) GO TO 670\r\n      DT2 = PR\r\n      DT3 = PI\r\n      PR  = ZD(K-1)\r\n      PI  = ZD(K  )\r\n      ASSIGN 640 TO DRETN\r\n      GO TO 810\r\n  640 PR = DT2\r\n      PI = DT3\r\n      KK = K + 4*IZ(J+5) + 4\r\n      ZD(KK  ) = DI\r\n      ZD(KK-1) = DR\r\n      IZ(KKK+1)= POWR\r\n      GO TO 660\r\nC\r\nC     SWEEP ACCEPTED VALUE FROM STORED  DETM-S\r\nC\r\n  650 KK = K + 4*IZ(J+5) + 4\r\n      D2 = ZD(K-1) - PR\r\n      D3 = ZD(K  ) - PI\r\n      D4 = D2*D2 + D3*D3\r\n      D5 = (ZD(KK-1)*D2 + ZD(KK)*D3)/D4\r\n      ZD(KK  ) = (ZD(KK)*D2 - ZD(KK-1)*D3)/D4\r\n      ZD(KK-1) = D5\r\nC\r\nC     SWEEP CONJUGATES S\r\nC\r\n      IF (ICMPX.EQ.1 .OR. DABS(PI).LT.1000.0*Z(J+9)*EPSI) GO TO 660\r\n      D3 = ZD(K) + PI\r\n      D4 = D2*D2 + D3*D3\r\n      D5 = (ZD(KK-1)*D2 + ZD(KK)*D3)/D4\r\n      ZD(KK) = (ZD(KK)*D2 - ZD(KK-1)*D3)/D4\r\n      ZD(KK-1) = D5\r\n  660 ZDKM1 = ZD (KK-1)\r\n      ZDK   = ZD (KK  )\r\n      IZK   = IZ (KKK+1)\r\n      CALL CDETM3 (ZDKM1,ZDK,IZK)\r\n      ZD(KK-1) = ZDKM1\r\n      ZD(KK  ) = ZDK\r\n      IZ(KKK+1)= IZK\r\n  670 L = L + 1\r\n      IF (L .LE. M) GO TO 630\r\n      J = IZ(J+8)\r\n      I = I + 1\r\n      IF (I .LE. NREGN) GO TO 620\r\n      CALL KLOCK  (ITIME2)\r\n      CALL TMTOGO (ITLEFT)\r\n      IF (2*(ITIME2-ITIME1).GT.ITLEFT .AND. NFOUND.NE.NDESRD) GO TO 700\r\n      IF (NF .LT. ND) GO TO 260\r\nC\r\nC     FIND NEXT REGION LACKING ROOTS\r\nC\r\n  680 IF (IZ(IRGP+8) .EQ. 0) GO TO 140\r\n      IRGP = IZ(IRGP+8)\r\n      IF (IZ(IRGP+6) .GT. IZ(IRGP+7)) GO TO 170\r\n      GO TO 680\r\n  690 ITERM = 2\r\n      GO TO 710\r\nC\r\nC     INSUFFICIENT TIME\r\nC\r\n  700 IF (NMSGX .GE. MAXGX) NMSGX = MAXGX - 1\r\n      CALL MESAGE (45,NDESRD-NFOUND,NAME)\r\n      ITERM = 3\r\n      GO TO 710\r\nC\r\nC     SINGULAR MATRIX\r\nC\r\n  701 ITERM = 4\r\n      GO TO 710\r\nC\r\nC     END OF ROUTINE  PUT OUT SUMMARY\r\nC\r\n  710 CALL GOPEN (OCEIGS,IZ(IBUF),1)\r\n      CALL WRITE (OCEIGS,IHEAD(1),10,0)\r\n      IZ(  1) = NFOUND\r\n      IZ(IZ2) = NPASS\r\n      IZ(IZ3) = NCHANG\r\n      IZ(IZ4) = NMOVES\r\n      IZ(IZ5) = NDCOMP\r\n      IZ(IZ6) = NFAIL\r\n      IZ(IZ7) = NOUTSD\r\n      IZ(IZ8) = ITERM\r\n      CALL WRITE (OCEIGS,IZ(1),40,0)\r\n      CALL WRITE (OCEIGS,HEAD(1),96,1)\r\n      IHEAD(3) = 3\r\n      IHEAD(10)= 6\r\n      CALL WRITE (OCEIGS,IHEAD,50,0)\r\n      CALL WRITE (OCEIGS,HEAD,96,1)\r\n      J  = IREG1\r\n      DO 800 I = 1,NREGN\r\n      NE = IZ(J+5)\r\n      K  = (J+1)/2+6\r\n      KK = 4*NE + 4\r\n      KD = J + 27 + 16*NE\r\n      NE = 2*NE + 2\r\n      DO 790 L = 1,NE\r\n      IZ(1)  = L\r\n      Z(IZ2) = ZD(K  )\r\n      Z(IZ3) = ZD(K+1)\r\n      M  = K  + KK\r\n      KD = KD + 2\r\n      IZ(IZ6) = IZ(KD)\r\nC\r\nC     CONVERT TO MAGNITUDE AND PHASE  SCALE ON MAGNITIDE\r\nC     PHASE IN DEGRESS BETWEEN 0 AND 360\r\nC\r\n      D1 = DSQRT(ZD(M)*ZD(M) + ZD(M+1)*ZD(M+1))\r\n      IF (D1 .EQ.  0.0D0) GO TO 760\r\n  720 IF (D1 .GT. 10.0D0) GO TO 740\r\n  730 IF (D1 .LT.  1.0D0) GO TO 750\r\n      GO TO 770\r\n  740 D1 = D1*0.1D0\r\n      IZ(IZ6) = IZ(IZ6) + 1\r\n      GO TO 720\r\n  750 D1 = D1*10.0D0\r\n      IZ(IZ6) = IZ(IZ6) - 1\r\n      GO TO 730\r\nC\r\nC     NOT  EVALUATED\r\nC\r\n  760 Z(IZ4) = 0.0\r\n      Z(IZ5) = 0.0\r\n      GO TO 780\r\n  770 Z(IZ4) = D1\r\nC\r\nC     COMPUTE PHASE\r\nC\r\n      Z(IZ5) = DATAN2(ZD(M+1),ZD(M))*RADDEG\r\nC\r\nC     DETERMINE QUADRANT\r\nC\r\n      IF (Z(IZ5) .LT. 0.) Z(IZ5) = Z(IZ5) + 360.0\r\n  780 CONTINUE\r\n      CALL WRITE (OCEIGS,IZ(1),6,0)\r\n      K = K + 2\r\n  790 CONTINUE\r\n      J = IZ(J+8)\r\n  800 CONTINUE\r\n      CALL CLOSE (OCEIGS,1)\r\n      FA(1) = OCEIGS\r\n      CALL WRTTRL (FA(1))\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE TO EVALUATE DR,DI AT PR,PI\r\nC\r\n  810 NDCOMP = NDCOMP + 1\r\nC\r\nC     SET UP FOR ADD\r\nC\r\n      BMCB(1) = PR\r\n      BMCB(2) = PI\r\n      CMCB(1) = PR*PR - PI*PI\r\n      CMCB(2) = 2.*PR*PI\r\n      CALL SADD (Z(1),Z(1))\r\n      FA(1) = -IABS(FA(1))\r\n      IF (NOSING .EQ. 0) GO TO 821\r\n      ISAVE = SR2\r\n      SR2   = SCR8\r\n      SCR8  = ISAVE\r\n  821 CALL TMTOGO (KK)\r\n      IF (KK .LE. 0) GO TO 700\r\n      IB = 0\r\n      CALL CDCOMP (*930,Z(1),Z(1),Z(1))\r\n      NOSING = 1\r\n      IF (IPRT .NE. 0) WRITE (OTPE,831) PR,PI,DR,DI,POWR\r\n  831 FORMAT (10X,4D16.7,I8)\r\nC\r\nC     SCALE DETERMINANT BY POLES AND EIGENVALUES PREVIOUSLY FOUND\r\nC\r\n      ID1 = IREG1\r\n      DO 880 ID = 1,NREGN\r\n      ID2 = IZ(ID1+5)\r\n      KK  = IZ(ID1+7)\r\n      IF (KK .EQ. 0) GO TO 870\r\n      KD = 14 + 10*ID2 + (ID1+1)/2\r\n      DO 860 LL = 1,KK\r\n      KD = KD + 2\r\n      D1 = PR - ZD(KD  )\r\n      D2 = PI - ZD(KD+1)\r\n      D3 = D1*D1  + D2*D2\r\n      D4 = (DR*D1 + DI*D2)/D3\r\n      D5 = (DI*D1 - DR*D2)/D3\r\n      DR = D4\r\n      DI = D5\r\n      IF (ICMPX .EQ. 1) GO TO 850\r\nC\r\nC     SWEEP COMPLEX CONJUGATE ROOTS\r\nC\r\n      IF (DABS(ZD(KD+1)) .LT. 1000.0*Z(ID1+9)*EPSI) GO TO 850\r\n      D2 = PI + ZD(KD+1)\r\n      D3 = D1*D1  + D2*D2\r\n      D4 = (DR*D1 + DI*D2)/D3\r\n      D5 = (DI*D1 - DR*D2)/D3\r\n      DR = D4\r\n      DI = D5\r\n  850 CALL CDETM3 (DR,DI,POWR)\r\n  860 CONTINUE\r\n  870 ID1 = IZ(ID1+8)\r\n  880 CONTINUE\r\nC\r\nC     SWEEP POLES\r\nC\r\n      IF (NPOLE .EQ. 0) GO TO 940\r\n      ID1 = IPOLES\r\n      DO 900 ID = 1,NPOLE\r\n      D1 = PR - Z(ID1+1)\r\n      D2 = PI - Z(ID1+2)\r\n      D3 = 1.0D0\r\n      D4 = 0.0D0\r\n      KD = IZ(ID1+3)\r\n      DO 890 ID2 = 1,KD\r\n      D5 = D1*D3 - D2*D4\r\n      D6 = D2*D3 + D1*D4\r\n      D3 = D5\r\n      D4 = D6\r\n  890 CONTINUE\r\n      D1 = D3*D3  + D4*D4\r\n      D2 = (DR*D3 + DI*D4)/D1\r\n      D5 = (DI*D3 - DR*D4)/D1\r\n      DR = D2\r\n      DI = D5\r\n      ID1= ID1 + 4\r\nC\r\nC     SCALE AGAIN\r\nC\r\n      CALL CDETM3 (DR,DI,POWR)\r\n  900 CONTINUE\r\n      GO TO 940\r\nC\r\nC     SINGLULAR MATRIX\r\nC\r\n  930 DR    = 0.0D0\r\n      DI    = 0.0D0\r\n      POWR  = 0\r\n      ISING = ISING + 1\r\n      MINDA = 1.0E-11\r\n      IF (NOSING .EQ. 0) GO TO 940\r\n      NOSING= 0\r\n      ISAVE = SR2\r\n      SR2   = SCR8\r\n      SCR8  = ISAVE\r\nC\r\nC     RETURN\r\nC\r\n  940 IF (IPRT .NE. 0) WRITE (OTPE,831) PR,PI,DR,DI,POWR\r\n      GO TO DRETN, (240,450,640)\r\nC\r\nC     ERROR  MESAGES\r\nC\r\n  950 IP1 = -1\r\n  960 CALL MESAGE (IP1,FILE,NAME)\r\n  970 IP1 = -2\r\n      GO TO 960\r\n  980 IP1 = -3\r\n      GO TO 960\r\n  990 IP1 = -7\r\n      GO TO 960\r\n 1000 IP1 = -8\r\n      GO TO 960\r\n      END\r\n"
  },
  {
    "path": "mis/cdetm2.f",
    "content": "      SUBROUTINE CDETM2 (P,D,IP,PR,PI,DR,DI,IPS1)\r\nC\r\nC     ARRANGES  P,D,IP  IN ORDER BY MAGNITUDE OF DETERMINANT\r\nC\r\n      INTEGER          IP(6),IPS(3),IPS1(3)\r\n      DOUBLE PRECISION P(6),D(6),PR(3),PI(3),DR(3),DI(3),D1,D2,D3,DD(3),\r\n     1                 D4\r\n      EQUIVALENCE      (D1,DD(1)),(D2,DD(2)),(D3,DD(3))\r\nC\r\n      D1 = D(1)*D(1) + D(2)*D(2)\r\n      D2 = D(3)*D(3) + D(4)*D(4)\r\n      D3 = D(5)*D(5) + D(6)*D(6)\r\n      DO 10 I = 1,3\r\n      DD(I) = DSQRT(DD(I))\r\n   10 CONTINUE\r\n      DO 20 I = 2,6,2\r\n      K = I/2\r\n      IPS(K)  = IP(I)\r\n      IPS1(K) = IP(I)\r\n   20 CONTINUE\r\nC\r\nC     SAVE STUFF IN OUTPUT AREAS\r\nC\r\n      DO 30 I = 1,3\r\n      PR(I) = P(2*I-1)\r\n      PI(I) = P(2*I  )\r\n      DR(I) = D(2*I-1)\r\n      DI(I) = D(2*I  )\r\n   30 CONTINUE\r\nC\r\nC     SCALE  MAGNITUDES\r\nC\r\n      DO 80 I = 1,3\r\n   40 IF (DD(I) .GT. 10.0D0) GO TO 60\r\n   50 IF (DD(I) .LT.  1.0D0) GO TO 70\r\n      GO TO 80\r\n   60 DD(I)  = DD(I)*0.1D0\r\n      IPS(I) = IPS(I) + 1\r\n      GO TO 40\r\n   70 DD(I)  = DD(I)*10.0D0\r\n      IPS(I) = IPS(I) - 1\r\n      GO TO 50\r\n   80 CONTINUE\r\nC\r\nC     START COMPARISON TESTS\r\nC\r\n      IF (IPS(1).GT.IPS(2) .AND. IPS(2).GT.IPS(3)) GO TO 190\r\n      IF (IPS(1).GT.IPS(2) .AND. IPS(1).GT.IPS(3)) GO TO 160\r\n      IF (IPS(2)-IPS(3)) 100,90,130\r\n   90 IF (D2 .GE. D3) GO TO 130\r\n  100 IF (IPS(1)-IPS(3)) 120,110,160\r\n  110 IF (D1 .GE. D3) GO TO 160\r\n  120 IS1 = 1\r\n      IS2 = 3\r\n      ASSIGN 160 TO ISRET\r\n      GO TO 200\r\n  130 IF (IPS(1)-IPS(2)) 150,140,160\r\n  140 IF (D1 .GE. D2) GO TO 160\r\n  150 IS1 = 1\r\n      IS2 = 2\r\n      ASSIGN 160 TO ISRET\r\n      GO TO 200\r\n  160 IF (IPS(2)-IPS(3)) 180,170,190\r\n  170 IF (D2 .GE. D3) GO TO 190\r\n  180 IS1 = 2\r\n      IS2 = 3\r\n      ASSIGN 190 TO ISRET\r\n      GO TO 200\r\n  190 RETURN\r\nC\r\nC      SWITCHES VALUES ON IS1, IS2\r\nC\r\n  200 NX = IPS(IS1)\r\n      IPS(IS1) = IPS(IS2)\r\n      IPS(IS2) = NX\r\n      NX       = IPS1(IS1)\r\n      IPS1(IS1)= IPS1(IS2)\r\n      IPS1(IS2)= NX\r\n      D4       = PR(IS1)\r\n      PR(IS1)  = PR(IS2)\r\n      PR(IS2)  = D4\r\n      D4       = PI(IS1)\r\n      PI(IS1)  = PI(IS2)\r\n      PI(IS2)  = D4\r\n      D4       = DR(IS1)\r\n      DR(IS1)  = DR(IS2)\r\n      DR(IS2)  = D4\r\n      D4       = DI(IS1)\r\n      DI(IS1)  = DI(IS2)\r\n      DI(IS2)  = D4\r\n      D4       = DD(IS1)\r\n      DD(IS1)  = DD(IS2)\r\n      DD(IS2)  = D4\r\n      GO TO ISRET, (160,190)\r\n      END\r\n"
  },
  {
    "path": "mis/cdifbs.f",
    "content": "      SUBROUTINE CDIFBS(DZ,BUF)\r\nC\r\nC     SUBROUTINE TO DO THE FBS PASS TO FIND THE LEFT EIGENVECTOR FOR\r\nC     THE TRANSPOSED MATRIX\r\nC\r\n      INTEGER            UPRTRI    ,EOL      ,NAME(2)\r\n      DOUBLE PRECISION   DTEMP     ,DZ(1)    ,DA\r\n      DIMENSION          BUF(1)\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /ZNTPKX/  DA(2)     ,II       ,EOL\r\n      COMMON   /NAMES/   RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP\r\n      COMMON   /CDCMPX/  IDUMM(20) ,IOF\r\n      COMMON   /CINVPX/  IDUM(36)  ,SCRFIL(11)\r\n      EQUIVALENCE        (SCRFIL(6),UPRTRI)  ,(SCRFIL(8),LOWTRI) ,\r\n     1                   (IDUM(2),NROW)\r\n      DATA      NAME  /  4HCDIF,4HBS  /\r\nC\r\n      CALL SSWTCH (12,IDIAG)\r\nC\r\nC     BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE\r\nC\r\n      IOFF = IOF - 1\r\n      CALL GOPEN (UPRTRI,BUF,RDREW)\r\n      NROW2 = NROW + NROW\r\n      DO 100 I = 1,NROW\r\n      J = I + I\r\n      CALL INTPK (*100,UPRTRI,0,CDP,0)\r\n   10 CALL ZNTPKI\r\n      IF (II-I) 30,20,40\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n   20 DTEMP = (DZ(J-1)*DA(1)+DZ(J  )*DA(2))/(DA(1)**2 + DA(2)**2)\r\n      DZ(J) = (DZ(J  )*DA(1)-DZ(J-1)*DA(2))/(DA(1)**2 + DA(2)**2)\r\n      DZ(J-1) = DTEMP\r\n      GO TO 90\r\nC\r\nC     SUBTRACT OFF NORMAL TERM\r\nC\r\n   30 DZ(J-1) = DZ(J-1) - DZ(2*II-1)*DA(1) + DZ(2*II)*DA(2)\r\n      DZ(J  ) = DZ(J  ) - DZ(2*II-1)*DA(2) - DZ(2*II)*DA(1)\r\n      GO TO 90\r\nC\r\nC     SUBTRACT OFF ACTIVE COLUMN TERMS\r\nC\r\n   40 K = (I-IOFF)*2\r\n      DZ(2*II-1) = DZ(2*II-1) - DZ(K-1)*DA(1) + DZ(K  )*DA(2)\r\n      DZ(2*II  ) = DZ(2*II  ) - DZ(K  )*DA(1) - DZ(K-1)*DA(2)\r\n   90 IF (EOL) 100,10,100\r\n  100 CONTINUE\r\n      CALL CLOSE (UPRTRI,REW)\r\nC\r\nC     BEGIN BACKWARD PASS USING THE LOWER TRIANGLE\r\nC\r\n      CALL GOPEN (LOWTRI,BUF,RDREW)\r\n      CALL SKPREC (LOWTRI,NROW)\r\n      DO 200 I = 1,NROW\r\n      CALL BCKREC (LOWTRI)\r\n      INTCHN = 0\r\n      CALL INTPK (*200,LOWTRI,0,CDP,0)\r\n      J = (NROW-I+1)*2\r\n  120 CALL ZNTPKI\r\n      IF (II .NE. NROW-I+1) GO TO 150\r\n      IF (II .LT. J/2) GO TO 1010\r\nC\r\nC     PERFORM THE INTERCHANGE\r\nC\r\n      INTCHN = IFIX(SNGL(DA(1)))*2\r\n      IF (IDIAG .NE. 0) WRITE (6,131) I,INTCHN\r\n  131 FORMAT (5H I = ,I5,10HINTCHNG =  ,I5)\r\n      GO TO 190\r\n  130 IN1   = J + INTCHN\r\n      DTEMP = DZ(J)\r\n      DZ(J) = DZ(IN1)\r\n      DZ(IN1) = DTEMP\r\n      DTEMP   = DZ(J-1)\r\n      DZ(J-1  ) = DZ(IN1-1)\r\n      DZ(IN1-1) = DTEMP\r\n      GO TO 200\r\n  150 CONTINUE\r\n      DZ(J-1) = DZ(J-1) - DZ(2*II-1)*DA(1) + DZ(2*II)*DA(2)\r\n      DZ(J  ) = DZ(J  ) - DZ(2*II-1)*DA(2) - DZ(2*II)*DA(1)\r\n  190 IF (EOL) 195,120,195\r\n  195 IF (INTCHN) 200,200,130\r\n  200 CALL BCKREC (LOWTRI)\r\n      CALL CLOSE (LOWTRI,REW)\r\n      RETURN\r\nC\r\n 1010 CALL MESAGE (-7,LOWTRI,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdivid.f",
    "content": "      SUBROUTINE CDIVID(A,B,D,NCOL)\r\n      DOUBLE PRECISION A(1),B(1),D(2),DTEMP,DENM\r\nC\r\nC     THIS ROUTINE DIVIDES THE VECTOR A BY D AND STORE RESULT IN B\r\nC\r\n      DENM = D(1)**2 + D(2)**2\r\n      DO 10 I = 1,NCOL,2\r\n      DTEMP = (A(I)*D(1) +A(I+1)*D(2))/DENM\r\n      B(I+1) = (A(I+1)*D(1) -A(I) * D(2))/DENM\r\n      B(I) = DTEMP\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cdtfbs.f",
    "content": "      SUBROUTINE CDTFBS (DX,DY,IOBUF,FILEU,NROW)\r\nC\r\nC     CDTFBS IS A SPECIAL VERSION OF GFBS USED BY COMPLEX DETERMINATE\r\nC     METHOD\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEU = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U\r\nC     DX    = THE LOAD VECTOR B\r\nC     DY    = THE SOLUTION VECTOR X\r\nC     IOBUF = THE INPUT BUFFER\r\nC\r\n      INTEGER          FILEU(7)  ,TYPEAR   ,CDP      ,PARM(4)  ,\r\n     1                 IOBUF(1)\r\n      DOUBLE PRECISION DX(1)     ,DY(1)    ,DTEMP\r\n      COMMON /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                 RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                 RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                 SYM       ,ROW      ,IDENTY\r\n      COMMON /UNPAKX/  ITYPEX    ,IUNPAK   ,JUNPAK   ,INCRX\r\n      DATA    PARM(3), PARM(4)   /4HDETF,4HBS  /\r\nC\r\n      INCRX  = 1\r\n      ITYPEX = CDP\r\n      TYPEAR = CDP\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      IOFF = FILEU(7) - 1\r\n      PARM(2) = FILEU(1)\r\n      CALL OPEN (*80,FILEU,IOBUF,RD)\r\n      DO 70 I = 1,NROW\r\n      IUNPAK = 0\r\n      J  = NROW - I + 1\r\n      JJ = J + J\r\n      CALL BCKREC (FILEU)\r\n      CALL UNPACK (*90,FILEU,DY)\r\n      CALL BCKREC (FILEU)\r\n      ISING = 0\r\n      K = (JUNPAK-IUNPAK+1)*2\r\n      JU = JUNPAK + JUNPAK\r\n      GO TO 30\r\n   10 ISING = 1\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      DTEMP    = (DX(JJ)*DY(K-1)-DX(JJ-1)*DY(K))/(DY(K)**2+DY(K-1)**2)\r\n      DX(JJ-1) = (DX(JJ-1)*DY(K-1)+DX(JJ)*DY(K))/(DY(K)**2+DY(K-1)**2)\r\n      DX(JJ  ) = DTEMP\r\n   20 K  = K  - 2\r\n      JU = JU - 2\r\n      JUNPAK = JUNPAK - 1\r\n      IF (K .EQ. 0) GO TO 60\r\n      IF (DY(K).EQ.0.D0 .AND. DY(K-1).EQ.0.D0) GO TO 20\r\n   30 IF (JUNPAK-J) 50,10,40\r\n   40 JK = (J-IOFF)*2\r\n      DX(JK-1) = DX(JK-1) - DX(JU-1)*DY(K-1) + DX(JU  )*DY(K)\r\n      DX(JK  ) = DX(JK  ) - DX(JU  )*DY(K-1) - DX(JU-1)*DY(K)\r\n      GO TO 20\r\n   50 CONTINUE\r\n      DX(JU-1) = DX(JU-1) - DX(JJ-1)*DY(K-1) + DX(JJ  )*DY(K)\r\n      DX(JU  ) = DX(JU  ) - DX(JJ  )*DY(K-1) - DX(JJ-1)*DY(K)\r\n      GO TO 20\r\n   60 IF (ISING .EQ. 0) GO TO 90\r\n   70 CONTINUE\r\n      CALL CLOSE (FILEU,REW)\r\n      RETURN\r\nC\r\n   80 PARM(1) = -1\r\n      GO TO 100\r\n   90 PARM(1) = -5\r\n  100 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cead.f",
    "content": "      SUBROUTINE CEAD\r\nC\r\nC     COMPLEX  EIGENVALUE EXTRACTION  MODULE\r\nC\r\nC     5  INPUT  FILES -  KDD,BDD,MDD,EED,CASECC\r\nC     4  OUTPUT FILES -  PHID,LAMD,OCEIGS,PHIDL\r\nC     12 SCRATCHES FILES\r\nC     1  PARAMETER\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      REAL            EPS\r\n      DIMENSION       EIGC(2),ERROR(2),NAME(2),MCB(7),KZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /CINVPX/ IK(7),IM(7),IB(7),ILAM(7),IPHI(7),\r\n     1                IDMPFL,ISCR(11),NOREG,EPS,REG(7,10),PHIDLI\r\n      COMMON /BLANK / NFOUND\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (KZ(1),IZ(1))\r\n      DATA    NAME  / 4HCEAD,4H    /\r\n      DATA    HES   / 4HHESS/\r\n      DATA    FEER  / 4HFEER/\r\n      DATA    ERROR / 4HEED ,4HCEAD/\r\n      DATA    KDD   , BDD,MDD,EED,CASECC /\r\n     1        101   , 102,103,104,105    /\r\n      DATA    PHID  , LAMD,OCEIGS,PHIDL  /\r\n     1        201   , 202, 203,   204    /\r\n      DATA    SCR1  , SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 /\r\n     1        301   , 302, 303 ,304 ,305 ,306 ,307 ,308 ,309  /\r\n      DATA    SCR10 , SCR11,SCR12 /\r\n     1        310   , 311,  312   /\r\n      DATA    DET   , INV,EIGC(1),EIGC(2) /4HDET ,4HINV ,207,2/\r\n      DATA    IZ2   , IZ6,IZ148   /2,6,148/\r\nC\r\nC     FIND SELECTED EIGC CARD IN CASECC\r\nC\r\n      IBUF  = KORSZ(IZ) - SYSBUF\r\n      CALL OPEN (*1,CASECC,IZ(IBUF),0)\r\n      CALL SKPREC (CASECC,1)\r\n      CALL FREAD (CASECC,IZ,166,1)\r\n      CALL CLOSE (CASECC,1)\r\n      J = 148\r\n      METHOD = IZ(J)\r\n      SCR10  = 310\r\n      GO TO 2\r\n    1 METHOD = -1\r\n    2 FILE = EED\r\n      CALL PRELOC (*90,IZ(IBUF),EED)\r\n      CALL LOCATE (*130,IZ(IBUF),EIGC(1),IFLAG)\r\n   10 CALL READ (*110,*140,EED,IZ(1),10,0,IFLAG)\r\n      IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 30\r\n   20 CALL FREAD (EED,IZ,7,0)\r\n      J = 6\r\n      IF (IZ(J) .NE. -1) GO TO 20\r\n      GO TO 10\r\nC\r\nC     FOUND DESIRED  EIGC CARD\r\nC\r\n   30 CALL CLOSE (EED,1)\r\n      J = 2\r\n      CAPP = IZ(J)\r\n      IF (CAPP .EQ.  DET) GO TO 50\r\n      IF (CAPP .EQ.  INV) GO TO 40\r\n      IF (CAPP .EQ.  HES) GO TO 52\r\n      IF (CAPP .EQ. FEER) GO TO 45\r\n      GO TO 130\r\nC\r\nC     INVERSE POWER--\r\nC\r\n   40 IK(1) = KDD\r\n      CALL CLOSE (EED,1)\r\n      CALL RDTRL (IK)\r\n      IM(1) = MDD\r\n      CALL RDTRL (IM)\r\n      IB(1) = BDD\r\n      CALL RDTRL (IB)\r\n      IF (IB(1) .LT. 0) IB(1) = 0\r\n      IF (IB(6) .EQ. 0) IB(1) = 0\r\n      ILAM(1)  = SCR8\r\n      IPHI(1)  = SCR9\r\n      IDMPFL   = OCEIGS\r\n      ISCR( 1) = SCR1\r\n      ISCR( 2) = SCR2\r\n      ISCR( 3) = SCR3\r\n      ISCR( 4) = SCR4\r\n      ISCR( 5) = SCR5\r\n      ISCR( 6) = SCR6\r\n      ISCR( 7) = SCR7\r\n      ISCR( 8) = LAMD\r\n      ISCR( 9) = PHID\r\n      ISCR(10) = SCR10\r\n      ISCR(11) = SCR11\r\n      PHIDLI   = SCR12\r\n      EPS      = .0001\r\n      CALL CINVPR (EED,METHOD,NFOUND)\r\n      NVECT = NFOUND\r\n      GO TO 60\r\nC\r\nC     FEER METHOD\r\nC\r\n   45 CONTINUE\r\n      CALL CFEER (EED,METHOD,NFOUND)\r\n      NVECT = NFOUND\r\n      GO TO 60\r\nC\r\nC     DETERMINANT\r\nC\r\n   50 CALL CDETM (METHOD,EED,MDD,BDD,KDD,SCR8,SCR9,OCEIGS,NFOUND,SCR1,\r\n     1            SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR10)\r\n      NVECT = NFOUND\r\n      GO TO 60\r\nC\r\nC     HESSENBURG METHOD\r\nC\r\n   52 CONTINUE\r\n      MCB(1) = KDD\r\n      CALL RDTRL (MCB)\r\n      NROW   = MCB(2)\r\n      MCB(1) = BDD\r\n      CALL  RDTRL (MCB)\r\n      IF (MCB(1) .GT. 0) NROW = NROW*2\r\n      NZ = KORSZ(KZ)\r\nC\r\nC     IF INSUFFICIENT CORE EXISTS FOR HESSENBURG METHOD.  DEFAULT TO\r\nC     INVERSE POWER.\r\nC\r\n      IF (6*NROW*NROW+NROW*8 .LE. NZ) GO TO 55\r\n      WRITE  (NOUT,53) UIM\r\n   53 FORMAT (A29,' 2365, INSUFFICIENT CORE EXISTS FOR HESSENBURG ',\r\n     1       'METHOD.  CHANGING TO INVERSE POWER OR FEER.')\r\n      GO TO 40\r\nC\r\nC     SUFFICIENT CORE.  PROCEED WITH HESSENBURG METHOD\r\nC\r\n   55 CONTINUE\r\n      CALL HESS1 (KDD,MDD,SCR8,SCR9,OCEIGS,NFOUND,NVECT,BDD,SCR1,SCR2,\r\n     1            SCR3,SCR4,SCR5,SCR6,SCR7,EED,METHOD)\r\n      NFOUND = NVECT\r\nC\r\nC     LAMD ON SCR8, PHID ON SCR9\r\nC\r\nC     SORT EIGENVALUES AND PREPARE OUTPUT FILES\r\nC\r\n   60 IF (NFOUND .NE. 0) GO TO 70\r\n      NFOUND = -1\r\n      GO TO 80\r\n   70 CALL CEAD1A (SCR8,SCR9,PHIDLI,LAMD,PHID,PHIDL,NFOUND,NVECT,CAPP)\r\n   80 RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n   90 IP1 = -1\r\n  100 CALL MESAGE (IP1,FILE,NAME)\r\n  110 IP1 = -2\r\n      GO TO 100\r\n  130 IP1 = -7\r\n      GO TO 100\r\n  140 CALL MESAGE (-31,METHOD,ERROR(1))\r\n      GO TO 140\r\n      END\r\n"
  },
  {
    "path": "mis/cead1a.f",
    "content": "      SUBROUTINE CEAD1A (LAMI,PHIDI,PHIDLI,LAMD,PHID,PHIDL,NFOUND,NVECT,\r\n     * CAPP)\r\nC\r\nC     ROUTINE SORTS LAMI, PHIDI AND PHIDLI (INV. POWER), BASED ON LAMI,\r\nC     AND CREATES LAMD, PHID AND PHIDL\r\nC\r\n      DOUBLE PRECISION ZD(1),D1,D2\r\n      INTEGER PHIDI,PHID,SYSBUF,IZ(1),IH(7),FILE\r\n      INTEGER NAME(2)\r\n      INTEGER CAPP,DET,HES\r\n      INTEGER FILEK,FILEM,FILEB\r\n      INTEGER PHIDLI,PHIDL\r\nC\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /OUTPUT/HEAD(1)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CINVPX/ FILEK(7),FILEM(7),FILEB(7)\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\n      COMMON /PACKX/ IT1,IT2,II,JJ,INCUR\r\nC\r\n      EQUIVALENCE ( KSYSTM( 1) , SYSBUF )\r\n      EQUIVALENCE (IZ(1),Z(1)),(Z(1),ZD(1))\r\nC\r\n      DATA NAME/4HCEAD,4H1A  /\r\n      DATA IH / 7*0 /\r\n      DATA DET,HES / 4HDET ,4HHESS /\r\nC\r\nC     INITIALIZE POINTER ARRAY\r\nC\r\n      DO 10 I=1,NFOUND\r\n      IZ(I)= I\r\n   10 CONTINUE\r\nC\r\nC     BRING IN  EIGENVALUES\r\nC\r\n      ILAMA =(NFOUND+1)/2  +1\r\n      IBUF = KORSZ(IZ)-SYSBUF+1\r\n      FILE = LAMI\r\n      CALL OPEN(*170,LAMI,IZ(IBUF),0)\r\n      K =ILAMA\r\n      DO 20 I=1,NFOUND\r\n      CALL READ(*190,*200,LAMI,ZD(K),4,1,IFLAG)\r\n      K= K +2\r\n   20 CONTINUE\r\n      CALL CLOSE(LAMI,1)\r\n      IF(NFOUND .EQ.1) GO TO 70\r\nC\r\nC\r\nC     SORT ON SIGN IMAGINARY THEN ON MAG IMAG\r\nC\r\n      JJ = NFOUND-1\r\n      DO 60 I=1,JJ\r\n      II = I+1\r\n      M  = ILAMA+ 2*I -2\r\n      DO 50 J=II,NFOUND\r\n      L =  ILAMA +2*J-2\r\nC\r\nC     SIGN IMAG\r\nC\r\n      D1 = DSIGN(1.0D0,ZD(L+1))\r\n      D2 = DSIGN(1.0D0,ZD(M+1))\r\n      IF(D1 .EQ. D2) GO TO 40\r\n      IF( D1 .EQ. 1.0D0)GO TO 50\r\nC\r\nC     SWITCH\r\nC\r\n   30 D1 = ZD(L)\r\n      ZD(L) =ZD(M)\r\n      ZD(M)=D1\r\n      D1 =ZD(L+1)\r\n      ZD(L+1)=ZD(M+1)\r\n      ZD(M+1)=D1\r\n      IT1 = IZ(J)\r\n      IZ(J)= IZ(I)\r\n      IZ(I)= IT1\r\n      GO TO 50\r\nC\r\nC     TEST MAGNITIDE IMAG\r\nC\r\n   40 IF(DABS(ZD(L+1)) -DABS(ZD(M+1))) 30,50,50\r\n   50 CONTINUE\r\n   60 CONTINUE\r\nC\r\nC     PUT OUT LAMA-S IN ORDER GIVEN BY LIST\r\nC\r\n   70 CALL GOPEN(LAMD,IZ(IBUF),1)\r\n      IH(2) =1006\r\n      IH(1) = 90\r\n      CALL WRITE(LAMD,  IH, 4,0)\r\n      IH(6) = 6\r\n      CALL WRITE(LAMD,  IH, 6,0)\r\n      CALL WRITE(LAMD,  IZ,40,0)\r\n      CALL WRITE(LAMD,HEAD,96,1)\r\n      L = 5*NFOUND +2\r\n      DO 90 I=1,NFOUND\r\n      IZ(L)=I\r\n      IZ(L+1)=IZ(I)\r\n      K = 2*I-2+ILAMA\r\n      Z(L+2) =ZD(K)\r\n      Z(L+3) = ZD(K+1)\r\n      Z(L+4) = 0.0\r\n      Z(L+5) = 0.0\r\n      IF(ABS(Z(L+3)) .LE. 1.0E-3*ABS(Z(L+2))) GO TO 80\r\n      Z(L+4) = ABS(Z(L+3))/TWOPI\r\n      Z(L+5) = -2.0*Z(L+2)/ABS(Z(L+3))\r\n   80 CALL WRITE(LAMD,IZ(L),6,0)\r\n   90 CONTINUE\r\n      CALL CLOSE(LAMD,1)\r\n      IH(1) =LAMD\r\n      CALL WRTTRL(IH)\r\nC\r\nC     BRING IN PHIDI IN ORDER NEEDED AND OUTPUT\r\nC\r\n      IBUF1 = IBUF -SYSBUF\r\n      CALL GOPEN(PHID,IZ(IBUF1),1)\r\n      IT1 = 4\r\n      IT2 = 3\r\n      INCUR =1\r\n      II =1\r\n      IH(1)=PHID\r\n      IH(2)= 0\r\n      IH(4) =2\r\n      IH(5) =3\r\n      IH(6) = 0\r\n      K = 1\r\n  101 IF(IZ(K) .LE. NVECT) GO TO 111\r\n      K = K+1\r\n      GO TO 101\r\n  111 FILE = PHIDI\r\n      IPOS =1\r\n      CALL OPEN(*170,PHIDI,IZ(IBUF),0)\r\n      DO 160 I=1,NVECT\r\n      IF (NVECT .EQ. 1) GO TO 130\r\n  100 L= IZ(I)-IPOS\r\n      IF(L) 150,130,110\r\n  110 CALL SKPREC(PHIDI,L)\r\nC\r\nC     BRING IN EIGENVECTORS\r\nC\r\n  130 CALL READ(*190,*140,PHIDI,ZD(ILAMA),IBUF1-1,0,M)\r\n      GO TO 210\r\n  140 JJ= M/4\r\n      IPOS = IZ(K) +1\r\n      CALL PACK(ZD(ILAMA),PHID,IH)\r\n      GO TO 159\r\nC\r\nC     PAST VECTOR NEEDED\r\nC\r\n  150 CALL REWIND(PHIDI)\r\n      IPOS =1\r\n      GO TO 100\r\n  159 K = K+1\r\n  160 CONTINUE\r\n      CALL CLOSE(PHID,1)\r\n      CALL CLOSE(PHIDI,1)\r\n      IH(3) =JJ\r\n      CALL WRTTRL(IH)\r\nC\r\nC     OUTPUT PHIDL IF NOT PURGED AND IF AT LEAST ONE INPUT MATRIX IS\r\nC     UNSYMMETRIC\r\nC\r\n      IH(1) = PHIDL\r\n      CALL RDTRL (IH)\r\n      IF (IH(1) .LT. 0) RETURN\r\n      IF (CAPP .NE. DET .AND. CAPP .NE. HES) GO TO 301\r\n      FILEK(1) = 101\r\n      CALL RDTRL (FILEK)\r\n      FILEM(1) = 103\r\n      CALL RDTRL (FILEM)\r\n      FILEB(1) = 102\r\n      CALL RDTRL (FILEB)\r\n  301 IF (FILEK(1) .GT. 0 .AND. FILEK(4) .NE. 6) GO TO 302\r\n      IF (FILEM(1) .GT. 0 .AND. FILEM(4) .NE. 6) GO TO 302\r\n      IF (FILEB(1) .GT. 0 .AND. FILEB(4) .NE. 6) GO TO 302\r\n      RETURN\r\n  302 CALL GOPEN (PHIDL,IZ(IBUF1),1)\r\n      CALL MAKMCB (IH,PHIDL,0,2,3)\r\n      IF (CAPP .NE. DET .AND. CAPP .NE. HES) GO TO 305\r\n      CALL CLVEC (LAMD,NVECT,PHIDL,IH,IBUF,IBUF1)\r\n      GO TO 395\r\n  305 K = 1\r\n  310 IF (IZ(K) .LE. NVECT) GO TO 320\r\n      K = K + 1\r\n      GO TO 310\r\n  320 FILE = PHIDLI\r\n      IPOS = 1\r\n      CALL OPEN(*170,PHIDLI,IZ(IBUF),0)\r\n      DO 390 I=1,NVECT\r\n      IF (NVECT .EQ. 1) GO TO 350\r\n  330 L = IZ(I) - IPOS\r\n      IF (L) 370,350,340\r\n  340 CALL SKPREC (PHIDLI,L)\r\nC\r\nC     BRING IN LEFT EIGENVECTORS\r\nC\r\n  350 CALL READ(*190,*360,PHIDLI,ZD(ILAMA),IBUF1-1,0,M)\r\n      GO TO 210\r\n  360 JJ = M/4\r\n      IPOS = IZ(K) + 1\r\n      CALL PACK (ZD(ILAMA),PHIDL,IH)\r\n      GO TO 380\r\nC\r\nC     PAST VECTOR NEEDED\r\nC\r\n  370 CALL REWIND (PHIDLI)\r\n      IPOS = 1\r\n      GO TO 330\r\n  380 K = K + 1\r\n  390 CONTINUE\r\n      CALL CLOSE (PHIDLI,1)\r\n  395 CALL CLOSE (PHIDL,1)\r\n      IH(3) = JJ\r\n      CALL WRTTRL (IH)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  170 IP1 =-1\r\n  180 CALL MESAGE(IP1,FILE,NAME)\r\n  190 IP1 =-2\r\n      GO TO 180\r\n  200 IP1 = -3\r\n      GO TO 180\r\n  210 IP1 = -8\r\n      GO TO 180\r\n      END\r\n"
  },
  {
    "path": "mis/centre.f",
    "content": "      SUBROUTINE CENTRE(*,X1,Y1,X2,Y2,X3,Y3,X4,Y4,CENTER)\r\n      DIMENSION CENTER(2)\r\n      IF (X1.NE.X3.OR.X2.NE.X4) GO TO 10\r\n      CENTER(1)=X1\r\n      CENTER(2)=(AMAX1(Y1,Y2,Y3,Y4)+AMIN1(Y1,Y2,Y3,Y4))/2.0\r\n      RETURN 1\r\n   10 IF (X1.NE.X3) GO TO 20\r\n      CENTER(1)=X1\r\n      CENTER(2)=(Y4-Y2)*(CENTER(1)-X2)/(X4-X2)+Y2\r\n      GO TO 100\r\n   20 IF (X2.NE.X4) GO TO 30\r\n      CENTER(1)=X2\r\n      CENTER(2)=(Y3-Y1)*(CENTER(1)-X1)/(X3-X1)+Y1\r\n      GO TO 100\r\n   30 XM1=(Y2-Y4)/(X2-X4)\r\n      XM2=(Y1-Y3)/(X1-X3)\r\n      IF (XM1.EQ.XM2) GO TO 40\r\n      CENTER(1)=(Y1-XM2*X1-(Y2-XM1*X2))/(XM1-XM2)\r\n      CENTER(2)=XM1*(CENTER(1)-X2)+Y2\r\n      GO TO 100\r\n   40 CENTER(1)=(X1+X2)/2.0\r\n      CENTER(2)=(Y1+Y2)/2.0\r\n      RETURN 1\r\n100   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cf1fbs.f",
    "content": "      SUBROUTINE CF1FBS (TPOSE,XOUT,IOBUF)\r\nC*******\r\nC     CF1FBS PERFORMS THE SINGLE-PRECISION FORWARD AND BACKWARD SWEEPS\r\nC     FOR THE COMPLEX FEER METHOD. THESE SWEEPS CONSTITUTE THE\r\nC     OPERATIONAL INVERSE (MATRIX INVERSION).\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- PERFORM OPERATION L * U\r\nC              = .TRUE.  --- PERFORM OPERATION U-TRANSPOSE * L-TRANSPOSE\r\nC     XOUT     = INPUT VECTOR GETS TRANSFORMED TO OUTPUT VECTOR\r\nC     IOBUF    = INPUT  GINO BUFFER\r\nC*******\r\n      DIMENSION         XOUT(1)\r\n      INTEGER           NAME(2)  ,IOBUF(1) ,EOL      ,CSP\r\n      LOGICAL           TPOSE(1) ,SYMMET   ,QPR\r\n      COMMON  /FEERAA/  AADUM(117),MCBLT(7),MCBUT(7)\r\n      COMMON  /FEERXC/  XCD01(4) ,SYMMET   ,XCD02(9) ,NSWP\r\n     2                 ,XCD03(6) ,QPR\r\n      COMMON  /ZNTPKX/  DA(2)    ,XA(2)    ,II       ,EOL\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW   ,RSP\r\n     3                 ,RDP      ,CSP      ,CDP\r\n      COMMON  /SYSTEM/  KSYSTM   ,NOUT\r\n      EQUIVALENCE       (AADUM(42),ISCR6)\r\n      DATA   NAME       /4HCF1F,4HBS  /\r\n      IF (QPR) WRITE (NOUT,8887) TPOSE(1),SYMMET,NSWP,ISCR6\r\n 8887 FORMAT(1H0,12HENTER CF1FBS,8X,11HTRANSPOSE =,L2,L9,2I10)\r\n               JUNK = 0\r\n      IF (TPOSE(1) .AND. .NOT.SYMMET) GO TO 399\r\nC*******\r\nC     BELOW FOR OPERATION L * U\r\nC     (LOGIC COPIED FROM SUBROUTINE CINFBS)\r\nC*******\r\nC     BEGIN FORWARD PASS USING THE LOWER TRIANGLE\r\nC*******\r\n      CALL GOPEN (MCBLT(1),IOBUF(1),RDREW)\r\n      J = 1\r\n 100  CALL INTPK(*200,MCBLT(1),0,CSP,0)\r\n  110 IF (EOL) 3010,120,3010\r\n  120 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n 8882          FORMAT(1H ,4HDA =,2E16.8,4X,4HII =,I6,\r\n     2                4X,5HEOL =,I2,4X,3HJ =,I4)\r\n      IF (J-II) 184,130,110\r\nC*******\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC*******\r\n  130 IN1 = ( J + IFIX(DA(1)) )*2 - 1\r\n               IF (QPR) WRITE (NOUT,8883) IN1,EOL\r\n 8883          FORMAT(1H ,3X,5HIN1 =,I6,4X,5HEOL =,I2)\r\n      IN2 = IN1+1\r\n      J2 = 2*J\r\n      UNIDUM = XOUT(J2)\r\n      XOUT(J2) = XOUT(IN2)\r\n      XOUT(IN2) = UNIDUM\r\n      J2 = J2-1\r\n      UNIDUM = XOUT(J2)\r\n      XOUT(J2) = XOUT(IN1)\r\n      XOUT(IN1) = UNIDUM\r\n  160 IF (EOL) 200,170,200\r\n  170 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n  184 II2 = 2*II\r\n      II1 = II2-1\r\n      J2 = 2*J\r\n      J1 = J2-1\r\n      XOUT(II1) = XOUT(II1) - DA(1)*XOUT(J1) + DA(2)*XOUT(J2)\r\n      XOUT(II2) = XOUT(II2) - DA(2)*XOUT(J1) - DA(1)*XOUT(J2)\r\n      GO TO 160\r\n  200 J = J+1\r\n      IF (J.LT.NSWP) GO TO 100\r\n      CALL CLOSE (MCBLT(1),REW)\r\nC*******\r\nC     BEGIN BACKWARD PASS USING THE UPPER TRIANGLE\r\nC*******\r\n      IOFF = MCBUT(7)-1\r\n               IF (QPR) WRITE (NOUT,8866) IOFF,MCBLT,MCBUT\r\n 8866          FORMAT(1H ,15(1X,I7))\r\n      CALL GOPEN (MCBUT(1),IOBUF(1),RDREW)\r\n      J = NSWP\r\n 210  CALL INTPK(*3020,MCBUT(1),0,CSP,0)\r\n      IF (EOL) 3020,230,3020\r\n  230 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n      I = NSWP - II + 1\r\n      IF (I.NE.J) GO TO 275\r\nC*******\r\nC     DIVIDE BY THE DIAGONAL\r\nC*******\r\n      I2 = 2*I\r\n      I1 = I2-1\r\n      UNIDUM = 1./(DA(1)**2+DA(2)**2)\r\n      DTEMP = (DA(1)*XOUT(I1)+DA(2)*XOUT(I2))*UNIDUM\r\n      XOUT(I2) = (DA(1)*XOUT(I2)-DA(2)*XOUT(I1))*UNIDUM\r\n      XOUT(I1) = DTEMP\r\n               IF (QPR) WRITE (NOUT,8884)\r\n 8884          FORMAT(1H ,6X,8HDIAGONAL)\r\nC*******\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC*******\r\n  255 IF (I.GT.J) GO TO 230\r\n      IF (EOL) 300,270,300\r\n  270 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n      I = NSWP - II + 1\r\n  275 IN1 = I\r\n      IN2 = J\r\n      IF (I.LT.J) GO TO 279\r\n      K = IN1\r\n      IN1 = IN2-IOFF\r\n               JUNK = 1\r\n      IF (IN1.LE.0) GO TO 3020\r\n      IN2 = K\r\n  279 IN1 = 2*IN1\r\n      IN2 = 2*IN2\r\n      II1 = IN1-1\r\n      II2 = IN2-1\r\n            IF (QPR) WRITE (NOUT,8820) I,J,II1,II2\r\n 8820       FORMAT(1H ,3HI =,I6,6X,3HJ =,I6,6X,5HII1 =,I6,6X,5HII2 =,I6)\r\n      XOUT(II1) = XOUT(II1) - DA(1)*XOUT(II2) + DA(2)*XOUT(IN2)\r\n      XOUT(IN1) = XOUT(IN1) - DA(2)*XOUT(II2) - DA(1)*XOUT(IN2)\r\n      GO TO 255\r\n  300 J = J-1\r\n      IF (J.GT.0) GO TO 210\r\n      CALL CLOSE (MCBUT(1),REW)\r\n      GO TO 4000\r\nC*******\r\nC     BELOW FOR OPERATION U-TRANSPOSE * L-TRANSPOSE\r\nC     (LOGIC COPIED FROM SUBROUTINE CDIFBS)\r\nC*******\r\nC     BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE\r\nC*******\r\n  399 IOFF = MCBUT(7)-1\r\n               IF (QPR) WRITE (NOUT,2216) IOFF\r\n 2216          FORMAT(1H ,30X,6HIOFF =,I10)\r\n      MCSAVE = MCBUT(1)\r\n      MCBUT(1) = ISCR6\r\n      CALL GOPEN (MCBUT(1),IOBUF(1),RDREW)\r\n      DO 500  I = 1,NSWP\r\n               IF (QPR) WRITE (NOUT,2218) I\r\n 2218          FORMAT(1H ,12HLOOP INDEX =,I6)\r\n      J = I+I\r\n      CALL INTPK(*500,MCBUT(1),0,CSP,0)\r\n  410 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,2224) II,EOL,DA\r\n 2224          FORMAT(1H ,4HII =,I14,6X,5HEOL =,I2,\r\n     2                8X,4HDA =,2E16.8)\r\n      IF (II-I) 430,420,440\r\nC*******\r\nC     DIVIDE BY THE DIAGONAL\r\nC*******\r\n  420 I1 = J-1\r\n      UNIDUM = 1./(DA(1)**2+DA(2)**2)\r\n      DTEMP = (XOUT(I1)*DA(1) + XOUT(J)*DA(2))*UNIDUM\r\n      XOUT(J) = (XOUT(J)*DA(1) - XOUT(I1)*DA(2))*UNIDUM\r\n      XOUT(I1) = DTEMP\r\n               IF (QPR) WRITE (NOUT,8884)\r\n      GO TO 490\r\nC*******\r\nC     SUBTRACT OFF NORMAL TERM\r\nC*******\r\n  430 I2 = II+II\r\n      I1 = I2-1\r\n      J1 = J-1\r\n      XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2)\r\n      XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1)\r\n      GO TO 490\r\nC*******\r\nC     SUBTRACT OFF ACTIVE COLUMN TERMS\r\nC*******\r\n  440 K = (I-IOFF)*2\r\n               JUNK = 1\r\n      IN1 = K\r\n      IF (IN1.LE.0) GO TO 3020\r\n      I2 = II+II\r\n      I1 = I2-1\r\n      J1 = K-1\r\n      XOUT(I1) = XOUT(I1) - XOUT(J1)*DA(1) + XOUT(K)*DA(2)\r\n      XOUT(I2) = XOUT(I2) - XOUT(K)*DA(1) - XOUT(J1)*DA(2)\r\n  490 IF (EOL) 500,410,500\r\n  500 CONTINUE\r\n      CALL CLOSE (MCBUT(1),REW)\r\n      MCBUT(1) = MCSAVE\r\nC*******\r\nC     BEGIN BACKWARD PASS USING THE LOWER TRIANGLE\r\nC*******\r\n      CALL GOPEN (MCBLT(1),IOBUF(1),RDREW)\r\n      CALL SKPREC (MCBLT(1),NSWP)\r\n      DO 600  I = 1,NSWP\r\n               IF (QPR) WRITE (NOUT,2218) I\r\n      CALL BCKREC (MCBLT(1))\r\n      INTCHN = 0\r\n      CALL INTPK(*600,MCBLT(1),0,CSP,0)\r\n      J = (NSWP-I+1)*2\r\n  520 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,2224) II,EOL,DA\r\n      IF (II.NE.NSWP-I+1) GO TO 550\r\n      IF (II.LT.J/2) GO TO 3010\r\nC*******\r\nC     PERFORM THE INTERCHANGE\r\nC*******\r\n      INTCHN = IFIX(DA(1))*2\r\n               IF (QPR) WRITE (NOUT,2226) INTCHN\r\n 2226          FORMAT(1H ,4X,11HINTERCHANGE,I6)\r\n      GO TO 590\r\n  530 IN1 = J+INTCHN\r\n               IF (QPR) WRITE (NOUT,2232) J,INTCHN,IN1\r\n 2232          FORMAT(1H ,15X,3I6)\r\n      DTEMP = XOUT(J)\r\n      XOUT(J) = XOUT(IN1)\r\n      XOUT(IN1) = DTEMP\r\n      J1 = J-1\r\n      I1 = IN1-1\r\n      DTEMP = XOUT(J1)\r\n      XOUT(J1) = XOUT(I1)\r\n      XOUT(I1) = DTEMP\r\n      GO TO 600\r\n  550 J1 = J-1\r\n      I2 = II+II\r\n      I1 = I2-1\r\n      XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2)\r\n      XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1)\r\n  590 IF (EOL) 595,520,595\r\n  595 IF (INTCHN) 600,600,530\r\n  600 CALL BCKREC (MCBLT(1))\r\n      CALL CLOSE (MCBLT(1),REW)\r\n      GO TO 4000\r\n 3010 J = MCBLT(1)\r\n      GO TO 3040\r\n 3020 J = MCBUT(1)\r\n 3040 CALL MESAGE (-5,J,NAME)\r\n 4000 CONTINUE\r\n               IF (QPR.AND.JUNK.EQ.0) WRITE (NOUT,5516)\r\n 5516          FORMAT(1H0,30X,13HIOFF NOT USED,/1H )\r\n               IF (QPR.AND.JUNK.NE.0) WRITE (NOUT,5518)\r\n 5518          FORMAT(1H0,30X,13HIOFF WAS USED,/1H )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cf1ort.f",
    "content": "      SUBROUTINE CF1ORT (SUCESS,MAXITS,TEN2MT,NZERO,IORTHO,\r\n     2                   VR,VL,V1,V1L,V2,V2L,ZB)\r\nC*******\r\nC     CF1ORT IS A SINGLE-PRECISION ROUTINE (CREATED FOR USE BY\r\nC     THE COMPLEX FEER METHOD) WHICH PERFORMS THE\r\nC     REORTHOGONALIZATION ALGORITHM\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     SUCESS   = LOGICAL INDICATOR FOR SUCCESSFUL REORTHOGONALIZATION\r\nC                (OUTPUT)\r\nC     MAXITS   = MAXIMUM NUMBER OF ALLOWED ITERATIONS (INPUT)\r\nC     TEN2MT   = CONVERGENCE CRITERION\r\nC     NZERO    = NUMBER OF ORTHOGONAL VECTOR PAIRS IN PRIOR\r\nC                NEIGHBORHOODS INCLUDING RESTART\r\nC     IORTHO   = NUMBER OF EXISTING ORTHOGONAL VECTOR PAIRS\r\nC                IN CURRENT NEIGHBORHOOD\r\nC     VR       = RIGHT-HANDED VECTOR TO BE REORTHOGONALIZED\r\nC     VL       = LEFT -HANDED VECTOR TO BE REORTHOGONALIZED\r\nC     V1,V1L,  = WORKING SPACE FOR FOUR VECTORS (V1L MUST\r\nC     V2,V2L     FOLLOW V1 IN CORE)\r\nC     ZB       = WORKING SPACE FOR ONE GINO BUFFER\r\nC*******\r\n      DIMENSION         VR(1)    ,VL(1)    ,V1(1)    ,V1L(1)\r\n     2                 ,V2(1)    ,V2L(1)   ,A(2)     ,OTEST(4)\r\n      LOGICAL           SUCESS   ,QPR      ,SKIP\r\n      INTEGER           ZB(1)\r\n      COMMON  /FEERAA/  DUMAA(42),ISCR7\r\n      COMMON  /FEERXC/  DUMXC(7) ,IDIAG    ,XCDUM(3) ,NORD2\r\n     2                 ,XCDUM2(9),QPR      ,XCDUM3(5),NUMORT\r\n      COMMON  /UNPAKX/  IPRC     ,II       ,NN       ,INCR\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW\r\n      COMMON  /SYSTEM/  KSYS     ,NOUT\r\n      MORTHO = NZERO+IORTHO\r\n      IF (MORTHO.LE.0) GO TO 500\r\n      IF (QPR) WRITE (NOUT,700)\r\n      NUMORT = NUMORT + 1\r\n      K = 0\r\n      SUCESS = .FALSE.\r\n      NN = NORD2\r\n      CRITF = 100.*TEN2MT**2\r\n      DO 5  I = 1,NORD2\r\n      V2 (I) = VR(I)\r\n    5 V2L(I) = VL(I)\r\n      CALL GOPEN (ISCR7,ZB(1),RDREW)\r\n    8 DO 9  I = 1,4\r\n    9 OTEST(I) = 0.\r\n      LL = 2\r\nC*******\r\nC     ENTER LOOP\r\nC*******\r\n      DO 40  I = 1,MORTHO\r\n      IF (I.EQ.NZERO+1) LL = 0\r\n      IF (QPR) WRITE (NOUT,701) I\r\nC     VALUES ARE UNPACKED INTO BOTH V1 AND V1L\r\n      CALL UNPACK(*10,ISCR7,V1(1))\r\n      IF (.NOT.QPR) GO TO 20\r\n      WRITE (NOUT,702) (V1 (J),J=1,NORD2)\r\n      WRITE (NOUT,702) (V1L(J),J=1,NORD2)\r\n      GO TO 20\r\n   10 IF (IDIAG.NE.0) WRITE (NOUT,710) I\r\n      GO TO 40\r\nC*******\r\nC     OBTAIN RIGHT-HAND INNER-PRODUCT TERM\r\nC*******\r\n   20 CALL CFNOR1 (VR(1),V1L(1),NORD2,1,A(1))\r\nC*******\r\nC     SUBTRACT OFF RIGHT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      DO 25  J = 1,NORD2,2\r\n      L = J+1\r\n      V2(J) = V2(J) - A(1)*V1(J) + A(2)*V1(L)\r\n   25 V2(L) = V2(L) - A(1)*V1(L) - A(2)*V1(J)\r\nC*******\r\nC     COMPUTE MAXIMUM RIGHT-HAND SQUARED-ERROR\r\nC*******\r\n      A(1) = A(1)**2+A(2)**2\r\n      IF (OTEST(LL+1).LT.A(1)) OTEST(LL+1) = A(1)\r\nC*******\r\nC     OBTAIN LEFT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      CALL CFNOR1 (VL(1),V1(1),NORD2,1,A(1))\r\nC*******\r\nC     SUBTRACT OFF LEFT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      DO 30  J = 1,NORD2,2\r\n      L = J+1\r\n      V2L(J) = V2L(J) - A(1)*V1L(J) + A(2)*V1L(L)\r\n   30 V2L(L) = V2L(L) - A(1)*V1L(L) - A(2)*V1L(J)\r\nC*******\r\nC     COMPUTE MAXIMUM LEFT-HAND SQUARED-ERROR\r\nC*******\r\n      A(1) = A(1)**2+A(2)**2\r\n      IF (OTEST(LL+2).LT.A(1)) OTEST(LL+2) = A(1)\r\n   40 CONTINUE\r\n      DO 50  I = 1,NORD2\r\n      VR(I) = V2 (I)\r\n   50 VL(I) = V2L(I)\r\n      SKIP = .FALSE.\r\n      IF (.NOT.QPR) GO TO 91\r\n      WRITE (NOUT,702) (VR(I),I=1,NORD2)\r\n      WRITE (NOUT,702) (VL(I),I=1,NORD2)\r\nC*******\r\nC     TEST FOR CONVERGENCE\r\nC*******\r\n   91 IF (IDIAG.NE.0) WRITE (NOUT,703) K,CRITF,OTEST\r\n      IF (OTEST(1).LE.CRITF .AND. OTEST(2).LE.CRITF .AND.\r\n     2    OTEST(3).LE.CRITF .AND. OTEST(4).LE.CRITF) GO TO 450\r\n      IF (SKIP) GO TO 92\r\n      IF (K.NE.1.AND.K.NE.3.AND.K.NE.5) GO TO 92\r\n      IF (IDIAG.NE.0) WRITE (NOUT,720)\r\n      CRITF = 100.*CRITF\r\n      SKIP = .TRUE.\r\n      GO TO 91\r\n   92 K = K + 1\r\n      IF (K.GT.MAXITS) GO TO 95\r\n      CALL CLOSE (ISCR7,EOFNRW)\r\n      CALL GOPEN (ISCR7,ZB(1),RDREW)\r\n      GO TO 8\r\n   95 CALL CLOSE (ISCR7,NOREW)\r\n      GO TO 600\r\n  450 CALL CLOSE (ISCR7,NOREW)\r\n  500 SUCESS = .TRUE.\r\n  600 RETURN\r\n  700 FORMAT(1H0,//26H BEGIN REORTHOGONALIZATION,//)\r\n  701 FORMAT(1H ,13HUNPACK VECTOR,I4)\r\n  702 FORMAT(3H --,32(4H----),/(1H ,4E25.16))\r\n  703 FORMAT(32H   REORTHOGONALIZATION ITERATION,I3,\r\n     2 9X,14HTARGET VALUE =,E12.4,4X,8HERRORS =,4E12.4)\r\n  710 FORMAT(18H ORTHOGONAL VECTOR,I4,\r\n     2 39H IS NULL IN REORTHOGONALIZATION ROUTINE)\r\n  720 FORMAT(52H   REORTHOGONALIZATION TOLERANCE TEMPORARILY RELAXED)\r\n      END\r\n"
  },
  {
    "path": "mis/cf2fbs.f",
    "content": "      SUBROUTINE CF2FBS (TPOSE,XOUT,IOBUF)\r\nC*******\r\nC     CF2FBS PERFORMS THE DOUBLE-PRECISION FORWARD AND BACKWARD SWEEPS\r\nC     FOR THE COMPLEX FEER METHOD. THESE SWEEPS CONSTITUTE THE\r\nC     OPERATIONAL INVERSE (MATRIX INVERSION).\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- PERFORM OPERATION L * U\r\nC              = .TRUE.  --- PERFORM OPERATION U-TRANSPOSE * L-TRANSPOSE\r\nC     XOUT     = INPUT VECTOR GETS TRANSFORMED TO OUTPUT VECTOR\r\nC     IOBUF    = INPUT  GINO BUFFER\r\nC*******\r\n      DOUBLE PRECISION  DTEMP    ,XOUT(1)  ,DA       ,UNIDUM\r\n      INTEGER           NAME(2)  ,IOBUF(1) ,EOL      ,CDP\r\n      LOGICAL           TPOSE(1) ,SYMMET   ,QPR\r\n      COMMON  /FEERAA/  AADUM(117),MCBLT(7),MCBUT(7)\r\n      COMMON  /FEERXC/  XCD01(4) ,SYMMET   ,XCD02(9) ,NSWP\r\n     2                 ,XCD03(6) ,QPR\r\n      COMMON  /ZNTPKX/  DA(2)    ,II       ,EOL\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW   ,RSP\r\n     3                 ,RDP      ,CSP      ,CDP\r\n      COMMON  /SYSTEM/  KSYSTM   ,NOUT\r\n      EQUIVALENCE       (AADUM(42),ISCR6)\r\n      DATA   NAME       /4HCF2F,4HBS  /\r\nC\r\n      IF (QPR) WRITE (NOUT,8887) TPOSE(1),SYMMET,NSWP,ISCR6\r\n 8887 FORMAT(1H0,12HENTER CF2FBS,8X,11HTRANSPOSE =,L2,L9,2I10)\r\n               JUNK = 0\r\n      IF (TPOSE(1) .AND. .NOT.SYMMET) GO TO 399\r\nC*******\r\nC     BELOW FOR OPERATION L * U\r\nC     (LOGIC COPIED FROM SUBROUTINE CINFBS)\r\nC*******\r\nC     BEGIN FORWARD PASS USING THE LOWER TRIANGLE\r\nC*******\r\n      CALL GOPEN (MCBLT(1),IOBUF(1),RDREW)\r\n      J = 1\r\n  100 CALL INTPK(*200,MCBLT(1),0,CDP,0)\r\n  110 IF (EOL) 3010,120,3010\r\n  120 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n 8882          FORMAT(1H ,4HDA =,2D16.8,4X,4HII =,I6,\r\n     2                4X,5HEOL =,I2,4X,3HJ =,I4)\r\n      IF (J-II) 184,130,110\r\nC*******\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC*******\r\n  130 IN1 = ( J + IFIX(SNGL(DA(1))) )*2 - 1\r\n               IF (QPR) WRITE (NOUT,8883) IN1,EOL\r\n 8883          FORMAT(1H ,3X,5HIN1 =,I6,4X,5HEOL =,I2)\r\n      IN2 = IN1+1\r\n      J2 = 2*J\r\n      UNIDUM = XOUT(J2)\r\n      XOUT(J2) = XOUT(IN2)\r\n      XOUT(IN2) = UNIDUM\r\n      J2 = J2-1\r\n      UNIDUM = XOUT(J2)\r\n      XOUT(J2) = XOUT(IN1)\r\n      XOUT(IN1) = UNIDUM\r\n  160 IF (EOL) 200,170,200\r\n  170 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n  184 II2 = 2*II\r\n      II1 = II2-1\r\n      J2 = 2*J\r\n      J1 = J2-1\r\n      XOUT(II1) = XOUT(II1) - DA(1)*XOUT(J1) + DA(2)*XOUT(J2)\r\n      XOUT(II2) = XOUT(II2) - DA(2)*XOUT(J1) - DA(1)*XOUT(J2)\r\n      GO TO 160\r\n  200 J = J+1\r\n      IF (J.LT.NSWP) GO TO 100\r\n      CALL CLOSE (MCBLT(1),REW)\r\nC*******\r\nC     BEGIN BACKWARD PASS USING THE UPPER TRIANGLE\r\nC*******\r\n      IOFF = MCBUT(7)-1\r\n               IF (QPR) WRITE (NOUT,8866) IOFF,MCBLT,MCBUT\r\n 8866          FORMAT(1H ,15(1X,I7))\r\n      CALL GOPEN (MCBUT(1),IOBUF(1),RDREW)\r\n      J = NSWP\r\n 210  CALL INTPK(*3020,MCBUT(1),0,CDP,0)\r\n      IF (EOL) 3020,230,3020\r\n  230 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n      I = NSWP - II + 1\r\n      IF (I.NE.J) GO TO 275\r\nC*******\r\nC     DIVIDE BY THE DIAGONAL\r\nC*******\r\n      I2 = 2*I\r\n      I1 = I2-1\r\n      UNIDUM = 1.D0/(DA(1)**2+DA(2)**2)\r\n      DTEMP = (DA(1)*XOUT(I1)+DA(2)*XOUT(I2))*UNIDUM\r\n      XOUT(I2) = (DA(1)*XOUT(I2)-DA(2)*XOUT(I1))*UNIDUM\r\n      XOUT(I1) = DTEMP\r\n               IF (QPR) WRITE (NOUT,8884)\r\n 8884          FORMAT(1H ,6X,8HDIAGONAL)\r\nC*******\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC*******\r\n  255 IF (I.GT.J) GO TO 230\r\n      IF (EOL) 300,270,300\r\n  270 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,8882) DA,II,EOL,J\r\n      I = NSWP - II + 1\r\n  275 IN1 = I\r\n      IN2 = J\r\n      IF (I.LT.J) GO TO 279\r\n      K = IN1\r\n      IN1 = IN2-IOFF\r\n               JUNK = 1\r\n      IF (IN1.LE.0) GO TO 3020\r\n      IN2 = K\r\n  279 IN1 = 2*IN1\r\n      IN2 = 2*IN2\r\n      II1 = IN1-1\r\n      II2 = IN2-1\r\n            IF (QPR) WRITE (NOUT,8820) I,J,II1,II2\r\n 8820       FORMAT(1H ,3HI =,I6,6X,3HJ =,I6,6X,5HII1 =,I6,6X,5HII2 =,I6)\r\n      XOUT(II1) = XOUT(II1) - DA(1)*XOUT(II2) + DA(2)*XOUT(IN2)\r\n      XOUT(IN1) = XOUT(IN1) - DA(2)*XOUT(II2) - DA(1)*XOUT(IN2)\r\n      GO TO 255\r\n  300 J = J-1\r\n      IF (J.GT.0) GO TO 210\r\n      CALL CLOSE (MCBUT(1),REW)\r\n      GO TO 4000\r\nC*******\r\nC     BELOW FOR OPERATION U-TRANSPOSE * L-TRANSPOSE\r\nC     (LOGIC COPIED FROM SUBROUTINE CDIFBS)\r\nC*******\r\nC     BEGIN THE FORWARD PASS USING THE UPPER TRIANGLE\r\nC*******\r\n  399 IOFF = MCBUT(7)-1\r\n               IF (QPR) WRITE (NOUT,2216) IOFF\r\n 2216          FORMAT(1H ,30X,6HIOFF =,I10)\r\n      MCSAVE = MCBUT(1)\r\n      MCBUT(1) = ISCR6\r\n      CALL GOPEN (MCBUT(1),IOBUF(1),RDREW)\r\n      DO 500  I = 1,NSWP\r\n               IF (QPR) WRITE (NOUT,2218) I\r\n 2218          FORMAT(1H ,12HLOOP INDEX =,I6)\r\n      J = I+I\r\n      CALL INTPK(*500,MCBUT(1),0,CDP,0)\r\n  410 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,2224) II,EOL,DA\r\n 2224          FORMAT(1H ,4HII =,I14,6X,5HEOL =,I2,\r\n     2                8X,4HDA =,2D16.8)\r\n      IF (II-I) 430,420,440\r\nC*******\r\nC     DIVIDE BY THE DIAGONAL\r\nC*******\r\n  420 I1 = J-1\r\n      UNIDUM = 1.D0/(DA(1)**2+DA(2)**2)\r\n      DTEMP = (XOUT(I1)*DA(1) + XOUT(J)*DA(2))*UNIDUM\r\n      XOUT(J) = (XOUT(J)*DA(1) - XOUT(I1)*DA(2))*UNIDUM\r\n      XOUT(I1) = DTEMP\r\n               IF (QPR) WRITE (NOUT,8884)\r\n      GO TO 490\r\nC*******\r\nC     SUBTRACT OFF NORMAL TERM\r\nC*******\r\n  430 I2 = II+II\r\n      I1 = I2-1\r\n      J1 = J-1\r\n      XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2)\r\n      XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1)\r\n      GO TO 490\r\nC*******\r\nC     SUBTRACT OFF ACTIVE COLUMN TERMS\r\nC*******\r\n  440 K = (I-IOFF)*2\r\n               JUNK = 1\r\n      IN1 = K\r\n      IF (IN1.LE.0) GO TO 3020\r\n      I2 = II+II\r\n      I1 = I2-1\r\n      J1 = K-1\r\n      XOUT(I1) = XOUT(I1) - XOUT(J1)*DA(1) + XOUT(K)*DA(2)\r\n      XOUT(I2) = XOUT(I2) - XOUT(K)*DA(1) - XOUT(J1)*DA(2)\r\n  490 IF (EOL) 500,410,500\r\n  500 CONTINUE\r\n      CALL CLOSE (MCBUT(1),REW)\r\n      MCBUT(1) = MCSAVE\r\nC*******\r\nC     BEGIN BACKWARD PASS USING THE LOWER TRIANGLE\r\nC*******\r\n      CALL GOPEN (MCBLT(1),IOBUF(1),RDREW)\r\n      CALL SKPREC (MCBLT(1),NSWP)\r\n      DO 600  I = 1,NSWP\r\n               IF (QPR) WRITE (NOUT,2218) I\r\n      CALL BCKREC (MCBLT(1))\r\n      INTCHN = 0\r\n      CALL INTPK(*600,MCBLT(1),0,CDP,0)\r\n      J = (NSWP-I+1)*2\r\n  520 CALL ZNTPKI\r\n               IF (QPR) WRITE (NOUT,2224) II,EOL,DA\r\n      IF (II.NE.NSWP-I+1) GO TO 550\r\n      IF (II.LT.J/2) GO TO 3010\r\nC*******\r\nC     PERFORM THE INTERCHANGE\r\nC*******\r\n      INTCHN = IFIX(SNGL(DA(1)))*2\r\n               IF (QPR) WRITE (NOUT,2226) INTCHN\r\n 2226          FORMAT(1H ,4X,11HINTERCHANGE,I6)\r\n      GO TO 590\r\n  530 IN1 = J+INTCHN\r\n               IF (QPR) WRITE (NOUT,2232) J,INTCHN,IN1\r\n 2232          FORMAT(1H ,15X,3I6)\r\n      DTEMP = XOUT(J)\r\n      XOUT(J) = XOUT(IN1)\r\n      XOUT(IN1) = DTEMP\r\n      J1 = J-1\r\n      I1 = IN1-1\r\n      DTEMP = XOUT(J1)\r\n      XOUT(J1) = XOUT(I1)\r\n      XOUT(I1) = DTEMP\r\n      GO TO 600\r\n  550 J1 = J-1\r\n      I2 = II+II\r\n      I1 = I2-1\r\n      XOUT(J1) = XOUT(J1) - XOUT(I1)*DA(1) + XOUT(I2)*DA(2)\r\n      XOUT(J) = XOUT(J) - XOUT(I1)*DA(2) - XOUT(I2)*DA(1)\r\n  590 IF (EOL) 595,520,595\r\n  595 IF (INTCHN) 600,600,530\r\n  600 CALL BCKREC (MCBLT(1))\r\n      CALL CLOSE (MCBLT(1),REW)\r\n      GO TO 4000\r\n 3010 J = MCBLT(1)\r\n      GO TO 3040\r\n 3020 J = MCBUT(1)\r\n 3040 CALL MESAGE (-5,J,NAME)\r\n 4000 CONTINUE\r\n               IF (QPR.AND.JUNK.EQ.0) WRITE (NOUT,5516)\r\n 5516          FORMAT(1H0,30X,13HIOFF NOT USED,/1H )\r\n               IF (QPR.AND.JUNK.NE.0) WRITE (NOUT,5518)\r\n 5518          FORMAT(1H0,30X,13HIOFF WAS USED,/1H )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cf2ort.f",
    "content": "      SUBROUTINE CF2ORT (SUCESS,MAXITS,TEN2MT,NZERO,IORTHO,\r\n     2                   VR,VL,V1,V1L,V2,V2L,ZB)\r\nC*******\r\nC     CF2ORT IS A DOUBLE-PRECISION ROUTINE (CREATED FOR USE BY\r\nC     THE COMPLEX FEER METHOD) WHICH PERFORMS THE\r\nC     REORTHOGONALIZATION ALGORITHM\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     SUCESS   = LOGICAL INDICATOR FOR SUCCESSFUL REORTHOGONALIZATION\r\nC                (OUTPUT)\r\nC     MAXITS   = MAXIMUM NUMBER OF ALLOWED ITERATIONS (INPUT)\r\nC     TEN2MT   = CONVERGENCE CRITERION\r\nC     NZERO    = NUMBER OF ORTHOGONAL VECTOR PAIRS IN PRIOR\r\nC                NEIGHBORHOODS INCLUDING RESTART\r\nC     IORTHO   = NUMBER OF EXISTING ORTHOGONAL VECTOR PAIRS\r\nC                IN CURRENT NEIGHBORHOOD\r\nC     VR       = RIGHT-HANDED VECTOR TO BE REORTHOGONALIZED\r\nC     VL       = LEFT -HANDED VECTOR TO BE REORTHOGONALIZED\r\nC     V1,V1L,  = WORKING SPACE FOR FOUR VECTORS (V1L MUST\r\nC     V2,V2L     FOLLOW V1 IN CORE)\r\nC     ZB       = WORKING SPACE FOR ONE GINO BUFFER\r\nC*******\r\n      DOUBLE PRECISION  VR(1)    ,VL(1)    ,V1(1)    ,V1L(1)\r\n     2                 ,V2(1)    ,V2L(1)   ,CRITF    ,OTEST(4)\r\n     3                 ,A(2)\r\n      LOGICAL           SUCESS   ,QPR      ,SKIP\r\n      INTEGER           ZB(1)\r\n      COMMON  /FEERAA/  DUMAA(42),ISCR7\r\n      COMMON  /FEERXC/  DUMXC(7) ,IDIAG    ,XCDUM(3) ,NORD2\r\n     2                 ,XCDUM2(9),QPR      ,XCDUM3(5),NUMORT\r\n      COMMON  /UNPAKX/  IPRC     ,II       ,NN       ,INCR\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW\r\n      COMMON  /SYSTEM/  KSYS     ,NOUT\r\n      MORTHO = NZERO+IORTHO\r\n      IF (MORTHO.LE.0) GO TO 500\r\n      IF (QPR) WRITE (NOUT,700)\r\n      NUMORT = NUMORT + 1\r\n      K = 0\r\n      SUCESS = .FALSE.\r\n      NN = NORD2\r\n      CRITF = 100.D0*DBLE(TEN2MT)**2\r\n      DO 5  I = 1,NORD2\r\n      V2 (I) = VR(I)\r\n    5 V2L(I) = VL(I)\r\n      CALL GOPEN (ISCR7,ZB(1),RDREW)\r\n    8 DO 9  I = 1,4\r\n    9 OTEST(I) = 0.D0\r\n      LL = 2\r\nC*******\r\nC     ENTER LOOP\r\nC*******\r\n      DO 40  I = 1,MORTHO\r\n      IF (I.EQ.NZERO+1) LL = 0\r\n      IF (QPR) WRITE (NOUT,701) I\r\nC     VALUES ARE UNPACKED INTO BOTH V1 AND V1L\r\n      CALL UNPACK(*10,ISCR7,V1(1))\r\n      IF (.NOT.QPR) GO TO 20\r\n      WRITE (NOUT,702) (V1 (J),J=1,NORD2)\r\n      WRITE (NOUT,702) (V1L(J),J=1,NORD2)\r\n      GO TO 20\r\n   10 IF (IDIAG.NE.0) WRITE (NOUT,710) I\r\n      GO TO 40\r\nC*******\r\nC     OBTAIN RIGHT-HAND INNER-PRODUCT TERM\r\nC*******\r\n   20 CALL CFNOR2 (VR(1),V1L(1),NORD2,1,A(1))\r\nC*******\r\nC     SUBTRACT OFF RIGHT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      DO 25  J = 1,NORD2,2\r\n      L = J+1\r\n      V2(J) = V2(J) - A(1)*V1(J) + A(2)*V1(L)\r\n   25 V2(L) = V2(L) - A(1)*V1(L) - A(2)*V1(J)\r\nC*******\r\nC     COMPUTE MAXIMUM RIGHT-HAND SQUARED-ERROR\r\nC*******\r\n      A(1) = A(1)**2+A(2)**2\r\n      IF (OTEST(LL+1).LT.A(1)) OTEST(LL+1) = A(1)\r\nC*******\r\nC     OBTAIN LEFT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      CALL CFNOR2 (VL(1),V1(1),NORD2,1,A(1))\r\nC*******\r\nC     SUBTRACT OFF LEFT-HAND INNER-PRODUCT TERM\r\nC*******\r\n      DO 30  J = 1,NORD2,2\r\n      L = J+1\r\n      V2L(J) = V2L(J) - A(1)*V1L(J) + A(2)*V1L(L)\r\n   30 V2L(L) = V2L(L) - A(1)*V1L(L) - A(2)*V1L(J)\r\nC*******\r\nC     COMPUTE MAXIMUM LEFT-HAND SQUARED-ERROR\r\nC*******\r\n      A(1) = A(1)**2+A(2)**2\r\n      IF (OTEST(LL+2).LT.A(1)) OTEST(LL+2) = A(1)\r\n   40 CONTINUE\r\n      DO 50  I = 1,NORD2\r\n      VR(I) = V2 (I)\r\n   50 VL(I) = V2L(I)\r\n      SKIP = .FALSE.\r\n      IF (.NOT.QPR) GO TO 91\r\n      WRITE (NOUT,702) (VR(I),I=1,NORD2)\r\n      WRITE (NOUT,702) (VL(I),I=1,NORD2)\r\nC*******\r\nC     TEST FOR CONVERGENCE\r\nC*******\r\n   91 IF (IDIAG.NE.0) WRITE (NOUT,703) K,CRITF,OTEST\r\n      IF (OTEST(1).LE.CRITF .AND. OTEST(2).LE.CRITF .AND.\r\n     2    OTEST(3).LE.CRITF .AND. OTEST(4).LE.CRITF) GO TO 450\r\n      IF (SKIP) GO TO 92\r\n      IF (K.NE.1.AND.K.NE.3.AND.K.NE.5) GO TO 92\r\n      IF (IDIAG.NE.0) WRITE (NOUT,720)\r\n      CRITF = 100.D0*CRITF\r\n      SKIP = .TRUE.\r\n      GO TO 91\r\n   92 K = K + 1\r\n      IF (K.GT.MAXITS) GO TO 95\r\n      CALL CLOSE (ISCR7,EOFNRW)\r\n      CALL GOPEN (ISCR7,ZB(1),RDREW)\r\n      GO TO 8\r\n   95 CALL CLOSE (ISCR7,NOREW)\r\n      GO TO 600\r\n  450 CALL CLOSE (ISCR7,NOREW)\r\n  500 SUCESS = .TRUE.\r\n  600 RETURN\r\n  700 FORMAT(1H0,//26H BEGIN REORTHOGONALIZATION,//)\r\n  701 FORMAT(1H ,13HUNPACK VECTOR,I4)\r\n  702 FORMAT(3H --,32(4H----),/(1H ,4D25.16))\r\n  703 FORMAT(32H   REORTHOGONALIZATION ITERATION,I3,\r\n     2 9X,14HTARGET VALUE =,D12.4,4X,8HERRORS =,4D12.4)\r\n  710 FORMAT(18H ORTHOGONAL VECTOR,I4,\r\n     2 39H IS NULL IN REORTHOGONALIZATION ROUTINE)\r\n  720 FORMAT(52H   REORTHOGONALIZATION TOLERANCE TEMPORARILY RELAXED)\r\n      END\r\n"
  },
  {
    "path": "mis/cfactr.f",
    "content": "      SUBROUTINE CFACTR (A,LL,UL,SCR1,SCR2,SCR3,IOPT)\r\nC\r\n      INTEGER           FA        ,FL       ,FU       ,SR1      ,\r\n     1                  SR2       ,SR3      ,UL       ,SCR1     ,\r\n     2                  SCR2      ,SCR3     ,A        ,\r\n     3                  MCB(7)    ,NAME(2)\r\n      DOUBLE PRECISION  DET       ,MIND\r\n      COMMON   /CDCMPX/ FA(7)     ,FL(7)    ,FU(7)    ,SR1      ,\r\n     1                  SR2       ,SR3      ,DET(2)   ,POWR     ,\r\n     2                  NX        ,MIND     ,IB       ,IBBAR\r\n      COMMON   /SFACT / MFA(7)    ,MFL(7)   ,MFC(7)   ,M1FIL    ,\r\n     1                  M2FIL     ,MXX      ,D(5)     ,M3FIL    ,\r\n     2                  D1(2)     ,ICHOL\r\n      COMMON   /SDCCSP/ JFA(7)    ,JFL(7)   ,JFC(7)   ,J1FIL    ,\r\n     1                  J2FIL     ,JX\r\n      COMMON   /ZZZZZZ/ IZ(1)\r\n      DATA      NAME  / 4HCFAC,4HTR   /\r\nC\r\nC\r\n      NZ = KORSZ(IZ)\r\n      MCB(1) = A\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(4) .NE. 6) GO TO 200\r\nC\r\nC     SYMMETRIC  COMPLEX\r\nC\r\n      DO 10 I = 1,7\r\n      MFA(I) = MCB(I)\r\n      MFL(I) = MCB(I)\r\n      MFC(I) = MCB(I)\r\n   10 CONTINUE\r\n      MFL(1) = LL\r\n      MFC(1) = UL\r\n      MFL(4) = 4\r\n      MFC(4) = 5\r\n      M1FIL  = SCR1\r\n      M2FIL  = SCR2\r\n      MXX    = NZ\r\n      M3FIL  = SCR3\r\n      ICHOL  = 0\r\n      CALL SDCOMP (*900,IZ,IZ,IZ)\r\n      CALL WRTTRL (MFL)\r\n      IOPT  = 2\r\n      GO TO  60\r\nC\r\nC     UNSYMMETRIC  COMPLEX\r\nC\r\n  200 DO 210 I = 1,7\r\n      FA(I) = MCB(I)\r\n      FL(I) = MCB(I)\r\n      FU(I) = MCB(I)\r\n  210 CONTINUE\r\n      FL(1) = LL\r\n      FU(1) = UL\r\n      FL(4) = 4\r\n      FU(4) = 5\r\n      SR1   = SCR1\r\n      SR2   = SCR2\r\n      SR3   = SCR3\r\n      NX    = NZ\r\nC     IB    = 0\r\nC\r\nC     IF IB IS SET TO ZERO HERE, T08021 PRINTS 27 MORE MESSAGES 3027\r\nC     AND 3028 FROM GENVEC WHICH IS CALLED BY CFACTR, WHCIH IS CALLED BY\r\nC     FRD2C, IN FRRD2 MODULE\r\nC\r\nCIBMI 6/93\r\n      IBBAR = 0\r\n      CALL CDCOMP (*900,IZ,IZ,IZ)\r\n      CALL WRTTRL (FU)\r\n      CALL WRTTRL (FL)\r\n      IOPT  = 1\r\n   60 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  900 CALL MESAGE (-5,A,NAME)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfbsor.f",
    "content": "      SUBROUTINE CFBSOR (LL,UL,BX,XX,IOPT)\r\nC\r\n      INTEGER         UL,BX,XX,MCB(7)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /GFBSX / JFL(7), JFU(7),JFB(7),JFX(7),JX,JPREC,JSIGN\r\n      COMMON /FBSX  / MFL(7),MFLT(7),MFB(7),MFX(7),MX,MPREC,MSIGN\r\n      COMMON /SYSTEM/ IDUM(54),IPREC\r\nC\r\n      NZ = KORSZ(IZ)\r\n      MCB(1) = IABS(BX)\r\n      CALL RDTRL (MCB)\r\n      IF (IOPT .EQ. 1) GO TO 100\r\nC\r\nC     SYMETRIC FBS\r\nC\r\n      MFL(1) = LL\r\n      CALL RDTRL (MFL)\r\n      DO 10 I = 1,7\r\n      MFB(I) = MCB(I)\r\n      MFX(I) = MCB(I)\r\n   10 CONTINUE\r\n      MFX(1) = XX\r\n      MX     = NZ\r\n      MFX(5) = MAX0(MFL(5),MFB(5))\r\n      MPREC  = IPREC\r\n      MSIGN  = +1\r\n      IF (BX .LT. 0) MSIGN = -1\r\n      CALL FBS (IZ,IZ)\r\n      CALL WRTTRL (MFX)\r\n   20 RETURN\r\nC\r\nC     UNSYMETRIC FBS\r\nC\r\n  100 JFL(1) = LL\r\n      CALL RDTRL (JFL)\r\n      JFU(1) = UL\r\n      CALL RDTRL (JFU)\r\n      DO 110 I = 1,7\r\n      JFB(I) = MCB(I)\r\n      JFX(I) = MCB(I)\r\n  110 CONTINUE\r\n      JFX(1) = XX\r\n      JX     = NZ\r\n      JPREC  = IPREC\r\n      JFX(5) = MAX0(JFL(5),JFB(5))\r\n      JSIGN  = +1\r\n      IF (BX .LT. 0) JSIGN = -1\r\n      CALL GFBS (IZ,IZ)\r\n      CALL WRTTRL (JFX)\r\n      GO TO 20\r\n      END\r\n"
  },
  {
    "path": "mis/cfe1ao.f",
    "content": "      SUBROUTINE CFE1AO (TPOSE,V1,V2,V3,ZB)\r\nC*******\r\nC     CFE1AO IS A SINGLE PRECISION ROUTINE WHICH PERFORMS THE OPERATION\r\nC     (A) OR (A)-TRANSPOSE FOR THE COMPLEX FEER METHOD. THIS OPERATION\r\nC     IS CALLED THE EIGENMATRIX MULTIPLICATION.\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- PERFORM OPERATION (A)\r\nC              = .TRUE.  --- PERFORM OPERATION (A)-TRANSPOSE\r\nC     V1       = INPUT  VECTOR\r\nC     V2       = OUTPUT VECTOR\r\nC     V3       = INPUT WORKING SPACE (FOR INTERNAL USE)\r\nC     ZB       = INPUT GINO BUFFER\r\nC*******\r\n      DIMENSION         V1(1)    ,V2(1)    ,V3(1)    ,ZB(1)\r\n      LOGICAL           TPOSE(1) ,NO B     ,QPR\r\n      REAL              LAMBDA\r\n      COMMON  /FEERAA/  IK(7)    ,IM(7)    ,IB(7)    ,DUMAA(117)\r\n     2                 ,MCBLMB(7)\r\n      COMMON  /FEERXC/  LAMBDA(4),DUM01(2) ,NORD     ,IDIAG\r\n     2                 ,EPSDUM(2),NORTHO   ,NORD2    ,NORD4\r\n     3                 ,NORDP1   ,DUM02(2) ,NO B     ,DUM03(4)\r\n     4                 ,QPR\r\n      COMMON  /SYSTEM/  KSYS     ,NOUT\r\nC*******\r\n      IF (QPR) WRITE (NOUT,8881) TPOSE\r\n 8881 FORMAT(1H0,12HENTER CFE1AO,8X,11HTRANSPOSE =,L2)\r\n      IF (TPOSE(1)) GO TO 50\r\nC*******\r\nC     PERFORM OPERATION (A)  = EIGENMATRIX MULTIPLICATION\r\nC*******\r\n      IF ( NO B ) GO TO 30\r\nC*******\r\nC     MULTIPLY LOWER HALF OF INPUT VECTOR BY MASS MATRIX\r\nC*******\r\n      CALL CFE1MY (TPOSE(1),V1(NORDP1),V3(1),IM(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD)\r\n 8882 FORMAT(3H --,32(4H----),/(1H ,6E21.13))\r\nC*******\r\nC     MULTIPLY UPPER HALF OF INPUT VECTOR BY -(LAMBDA*M+B)\r\nC*******\r\n      CALL CFE1MY (TPOSE(1),V1(1),V3(NORDP1),MCBLMB(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION\r\nC*******\r\n      DO 10  I = 1,NORD\r\n      J = NORD+I\r\n   10 V2(I) = -V3(I) + V3(J)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     PERFORM FORWARD AND BACKWARD SWEEPS\r\nC     (GENERATES UPPER HALF OF OUTPUT VECTOR)\r\nC*******\r\n      CALL CF1FBS (TPOSE(1),V2(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     COMPUTE LOWER HALF OF OUTPUT VECTOR\r\nC*******\r\n      DO 20  I = 1,NORD,2\r\n      J = I+1\r\n      NI = NORD+I\r\n      NJ = NI+1\r\n      V2(NI) = V1(I) + LAMBDA(1)*V2(I) - LAMBDA(3)*V2(J)\r\n   20 V2(NJ) = V1(J) + LAMBDA(1)*V2(J) + LAMBDA(3)*V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     DAMPING MATRIX ABSENT\r\nC*******\r\nC     MULTIPLY INPUT VECTOR BY MASS MATRIX\r\nC*******\r\n   30 CALL CFE1MY (TPOSE(1),V1(1),V2(1),IM(1),ZB(1))\r\n      DO 40  I = 1,NORD2\r\n   40 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\nC*******\r\nC     PERFORM FORWARD AND BACKWARD SWEEPS\r\nC*******\r\n      CALL CF1FBS (TPOSE(1),V2(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     PERFORM OPERATION (A)-TRANSPOSE  = TRANSPOSED EIGENMATRIX\r\nC                                                   MULTIPLICATION\r\nC*******\r\n   50 IF ( NO B ) GO TO 90\r\nC*******\r\nC     CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION\r\nC*******\r\n      DO 60  I = NORDP1,NORD2,2\r\n      J = I+1\r\n      NI = I-NORD\r\n      NJ = NI+1\r\n      V3(I) = V1(NI) + LAMBDA(1)*V1(I) - LAMBDA(3)*V1(J)\r\n   60 V3(J) = V1(NJ) + LAMBDA(1)*V1(J) + LAMBDA(3)*V1(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     PERFORM BACKWARD AND FORWARD SWEEPS\r\nC*******\r\n      CALL CF1FBS (TPOSE(1),V3(NORDP1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY -(LAMBDA*M+B)-TRANSPOSE\r\nC*******\r\n      CALL CFE1MY (TPOSE(1),V3(NORDP1),V3(1),MCBLMB(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD)\r\nC*******\r\nC     COMPUTE UPPER HALF OF OUTPUT VECTOR\r\nC*******\r\n      DO 70  I = 1,NORD\r\n      J = NORD+I\r\n   70 V2(I) = V1(J) + V3(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX\r\nC     (GENERATES NEGATIVE OF LOWER HALF OF OUTPUT VECTOR)\r\nC*******\r\n      CALL CFE1MY (TPOSE(1),V3(NORDP1),V2(NORDP1),IM(1),ZB(1))\r\n      DO 80  I = NORDP1,NORD2\r\n   80 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     DAMPING MATRIX ABSENT\r\nC*******\r\nC     PERFORM BACKWARD AND FORWARD SWEEPS\r\nC*******\r\n   90 DO 95  I = 1,NORD2\r\n   95 V3(I) = V1(I)\r\n      CALL CF1FBS (TPOSE(1),V3(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD2)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX\r\nC*******\r\n      CALL CFE1MY (TPOSE(1),V3(1),V2(1),IM(1),ZB(1))\r\n      DO 100  I = 1,NORD2\r\n  100 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfe1my.f",
    "content": "      SUBROUTINE CFE1MY (TPOSE,Y,X,FILE,BUF)\r\nC*******\r\nC     CFE1MY FORMS THE COMPLEX SINGLE PRECISION MATRIX\r\nC     PRODUCT X = M*Y FOR THE COMPLEX FEER METHOD\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- USE MATRIX M\r\nC              = .TRUE.  --- USE MATRIX M-TRANSPOSE\r\nC     Y        = INPUT  VECTOR\r\nC     X        = OUTPUT VECTOR\r\nC     FILE     = INPUT MATRIX CONTROL BLOCK FOR THE\r\nC                REQUIRED MATRIX\r\nC     BUF      = INPUT REQUIRED GINO BUFFER\r\nC*******\r\n      DIMENSION         X(1)     ,Y(1)\r\n      INTEGER           FILE(7)  ,BUF(1)   ,EOL      ,DIAG\r\n      LOGICAL           TPOSE(1)\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW   ,RSP\r\n     3                 ,RDP      ,CSP      ,CDP      ,SQR\r\n     4                 ,RECT     ,DIAG     ,LOWTRI   ,UPRTRI\r\n     5                 ,SYM      ,ROW      ,IDENTY\r\n      COMMON  /ZNTPKX/  DA(4)    ,II       ,EOL\r\n      NCOL2 = FILE(2)+FILE(2)\r\n      IF (FILE(4).EQ.IDENTY) GO TO 50\r\n      CALL GOPEN (FILE(1),BUF(1),RDREW)\r\n      DO 10  I = 1,NCOL2\r\n   10 X(I) = 0.\r\n      IF (FILE(4).EQ.DIAG) GO TO 40\r\n      IF (TPOSE(1)) GO TO 31\r\nC*******\r\nC     GENERAL MATRIX*VECTOR PRODUCT\r\nC*******\r\n      DO 30  I = 1,NCOL2,2\r\n      J = I+1\r\n      IF (Y(I).EQ.0..AND.Y(J).EQ.0.) GO TO 25\r\n      CALL INTPK(*30,FILE(1),0,CSP,0)\r\n   22 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(II) = X(II) + DA(1)*Y(I) - DA(2)*Y(J)\r\n      X(JJ) = X(JJ) + DA(1)*Y(J) + DA(2)*Y(I)\r\n      IF (EOL) 30,22,30\r\n   25 CALL SKPREC (FILE(1),1)\r\n   30 CONTINUE\r\n      GO TO 80\r\nC*******\r\nC     GENERAL MATRIX-TRANSPOSE*VECTOR PRODUCT\r\nC*******\r\n   31 DO 36  I = 1,NCOL2,2\r\n      J = I+1\r\n      CALL INTPK(*36,FILE(1),0,CSP,0)\r\n   32 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(I) = X(I) + DA(1)*Y(II) - DA(2)*Y(JJ)\r\n      X(J) = X(J) + DA(1)*Y(JJ) + DA(2)*Y(II)\r\n      IF (EOL) 36,32,36\r\n   36 CONTINUE\r\n      GO TO 80\r\nC*******\r\nC     MATRIX IS DIAGONAL\r\nC*******\r\n  40  CALL INTPK(*80,FILE(1),0,CSP,0)\r\n   45 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(II) = DA(1)*Y(II) - DA(2)*Y(JJ)\r\n      X(JJ) = DA(1)*Y(JJ) + DA(2)*Y(II)\r\n      IF (EOL) 80,45,80\r\nC*******\r\nC     MATRIX IS IDENTITY\r\nC*******\r\n   50 DO 55  I = 1,NCOL2\r\n   55 X(I) = Y(I)\r\n      GO TO 90\r\n   80 CALL CLOSE (FILE(1),REW)\r\n   90 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfe2ao.f",
    "content": "      SUBROUTINE CFE2AO (TPOSE,V1,V2,V3,ZB)\r\nC*******\r\nC     CFE2AO IS A DOUBLE PRECISION ROUTINE WHICH PERFORMS THE OPERATION\r\nC     (A) OR (A)-TRANSPOSE FOR THE COMPLEX FEER METHOD. THIS OPERATION\r\nC     IS CALLED THE EIGENMATRIX MULTIPLICATION.\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- PERFORM OPERATION (A)\r\nC              = .TRUE.  --- PERFORM OPERATION (A)-TRANSPOSE\r\nC     V1       = INPUT  VECTOR\r\nC     V2       = OUTPUT VECTOR\r\nC     V3       = INPUT WORKING SPACE (FOR INTERNAL USE)\r\nC     ZB       = INPUT GINO BUFFER\r\nC*******\r\n      DOUBLE PRECISION  V1(1)    ,V2(1)    ,V3(1)    ,LAMBDA\r\n      LOGICAL           TPOSE(1) ,NO B     ,QPR\r\n      DIMENSION         ZB(1)\r\n      COMMON  /FEERAA/  IK(7)    ,IM(7)    ,IB(7)    ,DUMAA(117)\r\n     2                 ,MCBLMB(7)\r\n      COMMON  /FEERXC/  LAMBDA(2),DUM01(2) ,NORD     ,IDIAG\r\n     2                 ,EPSDUM(2),NORTHO   ,NORD2    ,NORD4\r\n     3                 ,NORDP1   ,DUM02(2) ,NO B     ,DUM03(4)\r\n     4                 ,QPR\r\n      COMMON  /SYSTEM/  KSYS     ,NOUT\r\nC*******\r\n      IF (QPR) WRITE (NOUT,8881) TPOSE\r\n 8881 FORMAT(1H0,12HENTER CFE2AO,8X,11HTRANSPOSE =,L2)\r\n      IF (TPOSE(1)) GO TO 50\r\nC*******\r\nC     PERFORM OPERATION (A)  = EIGENMATRIX MULTIPLICATION\r\nC*******\r\n      IF ( NO B ) GO TO 30\r\nC*******\r\nC     MULTIPLY LOWER HALF OF INPUT VECTOR BY MASS MATRIX\r\nC*******\r\n      CALL CFE2MY (TPOSE(1),V1(NORDP1),V3(1),IM(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD)\r\n 8882 FORMAT(3H --,32(4H----),/(1H ,6D21.13))\r\nC*******\r\nC     MULTIPLY UPPER HALF OF INPUT VECTOR BY -(LAMBDA*M+B)\r\nC*******\r\n      CALL CFE2MY (TPOSE(1),V1(1),V3(NORDP1),MCBLMB(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION\r\nC*******\r\n      DO 10  I = 1,NORD\r\n      J = NORD+I\r\n   10 V2(I) = -V3(I) + V3(J)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     PERFORM FORWARD AND BACKWARD SWEEPS\r\nC     (GENERATES UPPER HALF OF OUTPUT VECTOR)\r\nC*******\r\n      CALL CF2FBS (TPOSE(1),V2(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     COMPUTE LOWER HALF OF OUTPUT VECTOR\r\nC*******\r\n      DO 20  I = 1,NORD,2\r\n      J = I+1\r\n      NI = NORD+I\r\n      NJ = NI+1\r\n      V2(NI) = V1(I) + LAMBDA(1)*V2(I) - LAMBDA(2)*V2(J)\r\n   20 V2(NJ) = V1(J) + LAMBDA(1)*V2(J) + LAMBDA(2)*V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     DAMPING MATRIX ABSENT\r\nC*******\r\nC     MULTIPLY INPUT VECTOR BY MASS MATRIX\r\nC*******\r\n   30 CALL CFE2MY (TPOSE(1),V1(1),V2(1),IM(1),ZB(1))\r\n      DO 40  I = 1,NORD2\r\n   40 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\nC*******\r\nC     PERFORM FORWARD AND BACKWARD SWEEPS\r\nC*******\r\n      CALL CF2FBS (TPOSE(1),V2(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     PERFORM OPERATION (A)-TRANSPOSE  = TRANSPOSED EIGENMATRIX\r\nC                                                   MULTIPLICATION\r\nC*******\r\n   50 IF ( NO B ) GO TO 90\r\nC*******\r\nC     CALCULATE RIGHT-HAND SIDE OF SWEEP EQUATION\r\nC*******\r\n      DO 60  I = NORDP1,NORD2,2\r\n      J = I+1\r\n      NI = I-NORD\r\n      NJ = NI+1\r\n      V3(I) = V1(NI) + LAMBDA(1)*V1(I) - LAMBDA(2)*V1(J)\r\n   60 V3(J) = V1(NJ) + LAMBDA(1)*V1(J) + LAMBDA(2)*V1(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     PERFORM BACKWARD AND FORWARD SWEEPS\r\nC*******\r\n      CALL CF2FBS (TPOSE(1),V3(NORDP1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=NORDP1,NORD2)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY -(LAMBDA*M+B)-TRANSPOSE\r\nC*******\r\n      CALL CFE2MY (TPOSE(1),V3(NORDP1),V3(1),MCBLMB(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD)\r\nC*******\r\nC     COMPUTE UPPER HALF OF OUTPUT VECTOR\r\nC*******\r\n      DO 70  I = 1,NORD\r\n      J = NORD+I\r\n   70 V2(I) = V1(J) + V3(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX\r\nC     (GENERATES NEGATIVE OF LOWER HALF OF OUTPUT VECTOR)\r\nC*******\r\n      CALL CFE2MY (TPOSE(1),V3(NORDP1),V2(NORDP1),IM(1),ZB(1))\r\n      DO 80  I = NORDP1,NORD2\r\n   80 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=NORDP1,NORD2)\r\n      GO TO 200\r\nC*******\r\nC     DAMPING MATRIX ABSENT\r\nC*******\r\nC     PERFORM BACKWARD AND FORWARD SWEEPS\r\nC*******\r\n   90 DO 95  I = 1,NORD2\r\n   95 V3(I) = V1(I)\r\n      CALL CF2FBS (TPOSE(1),V3(1),ZB(1))\r\n      IF (QPR) WRITE (NOUT,8882) (V3(I),I=1,NORD2)\r\nC*******\r\nC     MULTIPLY SWEEP OUTPUT VECTOR BY TRANSPOSED MASS MATRIX\r\nC*******\r\n      CALL CFE2MY (TPOSE(1),V3(1),V2(1),IM(1),ZB(1))\r\n      DO 100  I = 1,NORD2\r\n  100 V2(I) = -V2(I)\r\n      IF (QPR) WRITE (NOUT,8882) (V2(I),I=1,NORD2)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfe2my.f",
    "content": "      SUBROUTINE CFE2MY (TPOSE,Y,X,FILE,BUF)\r\nC*******\r\nC     CFE2MY FORMS THE COMPLEX DOUBLE PRECISION MATRIX\r\nC     PRODUCT X = M*Y FOR THE COMPLEX FEER METHOD\r\nC*******\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC*******\r\nC     TPOSE    = .FALSE. --- USE MATRIX M\r\nC              = .TRUE.  --- USE MATRIX M-TRANSPOSE\r\nC     Y        = INPUT  VECTOR\r\nC     X        = OUTPUT VECTOR\r\nC     FILE     = INPUT MATRIX CONTROL BLOCK FOR THE\r\nC                REQUIRED MATRIX\r\nC     BUF      = INPUT REQUIRED GINO BUFFER\r\nC*******\r\n      DOUBLE PRECISION  X(1)     ,Y(1)     ,DA\r\n      INTEGER           FILE(7)  ,BUF(1)   ,EOL      ,DIAG\r\n      LOGICAL           TPOSE(1)\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW\r\n     2                 ,REW      ,NOREW    ,EOFNRW   ,RSP\r\n     3                 ,RDP      ,CSP      ,CDP      ,SQR\r\n     4                 ,RECT     ,DIAG     ,LOWTRI   ,UPRTRI\r\n     5                 ,SYM      ,ROW      ,IDENTY\r\n      COMMON  /ZNTPKX/  DA(2)    ,II       ,EOL\r\n      NCOL2 = FILE(2)+FILE(2)\r\n      IF (FILE(4).EQ.IDENTY) GO TO 50\r\n      CALL GOPEN (FILE(1),BUF(1),RDREW)\r\n      DO 10  I = 1,NCOL2\r\n   10 X(I) = 0.D0\r\n      IF (FILE(4).EQ.DIAG) GO TO 40\r\n      IF (TPOSE(1)) GO TO 31\r\nC*******\r\nC     GENERAL MATRIX*VECTOR PRODUCT\r\nC*******\r\n      DO 30  I = 1,NCOL2,2\r\n      J = I+1\r\n      IF (Y(I).EQ.0.D0.AND.Y(J).EQ.0.D0) GO TO 25\r\n      CALL INTPK(*30,FILE(1),0,CDP,0)\r\n   22 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(II) = X(II) + DA(1)*Y(I) - DA(2)*Y(J)\r\n      X(JJ) = X(JJ) + DA(1)*Y(J) + DA(2)*Y(I)\r\n      IF (EOL) 30,22,30\r\n   25 CALL SKPREC (FILE(1),1)\r\n   30 CONTINUE\r\n      GO TO 80\r\nC*******\r\nC     GENERAL MATRIX-TRANSPOSE*VECTOR PRODUCT\r\nC*******\r\n   31 DO 36  I = 1,NCOL2,2\r\n      J = I+1\r\n      CALL INTPK(*36,FILE(1),0,CDP,0)\r\n   32 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(I) = X(I) + DA(1)*Y(II) - DA(2)*Y(JJ)\r\n      X(J) = X(J) + DA(1)*Y(JJ) + DA(2)*Y(II)\r\n      IF (EOL) 36,32,36\r\n   36 CONTINUE\r\n      GO TO 80\r\nC*******\r\nC     MATRIX IS DIAGONAL\r\nC*******\r\n  40  CALL INTPK(*80,FILE(1),0,CDP,0)\r\n   45 CALL ZNTPKI\r\n      JJ = II+II\r\n      II = JJ-1\r\n      X(II) = DA(1)*Y(II) - DA(2)*Y(JJ)\r\n      X(JJ) = DA(1)*Y(JJ) + DA(2)*Y(II)\r\n      IF (EOL) 80,45,80\r\nC*******\r\nC     MATRIX IS IDENTITY\r\nC*******\r\n   50 DO 55  I = 1,NCOL2\r\n   55 X(I) = Y(I)\r\n      GO TO 90\r\n   80 CALL CLOSE (FILE(1),REW)\r\n   90 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfeer.f",
    "content": "      SUBROUTINE CFEER (EED,METHOD,NFOUND)\r\nC\r\nC     PREVIOUS THIS ROUITNE IS CALLED CFCNTL\r\nC\r\nC     GIVEN REAL OR COMPLEX MATRICES, CFEER WILL SOLVE FOR THE\r\nC     REQUESTED NUMBER OF EIGENVALUES AND EIGENVECTORS CLOSEST TO A\r\nC     SPECIFIED POINT IN THE COMPLEX PLANE, FOR UP TO TEN POINTS,\r\nC     VIA THE TRIDIAGONAL REDUCTION (FEER) METHOD.\r\nC     THE SUBROUTINE NAME  CFEER  STANDS FOR COMPLEX FEER CONTROL.\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     IK(7)    = MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K\r\nC     IM(7)    = MATRIX CONTROL BLOCK FOR THE INPUT MASS      MATRIX M\r\nC     IB(7)    = MATRIX CONTROL BLOCK FOR THE INPUT DAMPING   MATRIX B\r\nC     ILAM(7)  = MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES\r\nC     IPHI(7)  = MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS\r\nC     IDMPFL   = FILE CONTAINING THE EIGENVALUE SUMMARY\r\nC     ISCR(11) = SCRATCH FILES USED INTERNALLY\r\nC     REG(1,I) = INPUT REAL      PART OF CENTER I (LAMBDA)\r\nC     REG(2,I) = INPUT IMAGINARY PART OF CENTER I (LAMBDA)\r\nC     REG(5,I) = PROBLEM SIZE MAXIMUM FOR SETTING QPR\r\nC     REG(6,I) = SUPPRESSES ANY SPECIAL SYMMETRY LOGIC\r\nC     REG(7,I) = NUMBER OF DESIRED ROOTS AROUND CENTER I\r\nC     REG(8,1) = CONVERGENCE CRITERION (EQUIV. TO REG(1,2) TEMPORARILY)\r\nC\r\n      LOGICAL           NO B     ,SYMMET   ,QPR\r\n      INTEGER           METHOD   ,EED      ,NAME(2)  ,IZ(1)     ,\r\n     1                  EIGC(2)  ,WANT(10) ,HAVE(10)\r\n      DOUBLE PRECISION  LAMBDA   ,EPS\r\n      DIMENSION         IREG(7,1),IHEAD(10)\r\n      CHARACTER         UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON  /XMSSG /  UFM      ,UWM      ,UIM\r\n      COMMON  /FEERAA/  IK(7)    ,IM(7)    ,IB(7)    ,ILAM(7)   ,\r\n     1                  IPHI(7)  ,IDMPFL   ,ISCR(11) ,REG(7,10) ,\r\n     2                  MCBLT(7) ,MCBUT(7) ,MCBVEC(7),MCBLMB(7)\r\n      COMMON  /FEERXC/  LAMBDA(2),SYMMET   ,MREDUC   ,NORD      ,\r\n     1                  IDIAG    ,EPS      ,NORTHO   ,NORD2     ,\r\n     2                  NORD4    ,NORDP1   ,NSWP     ,JSKIP     ,\r\n     3                  NO B     ,IT       ,TEN2MT   ,TENMHT    ,\r\n     4                  NSTART   ,QPR      ,JREG     ,NOREG     ,\r\n     5                  NZERO    ,TENMTT   ,MINOPN   ,NUMORT    ,\r\n     6                  NUMRAN\r\n      COMMON  /ZZZZZZ/  Z(1)\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW    ,\r\n     1                  REW      ,NOREW    ,EOFNRW   ,RSP       ,\r\n     2                  RDP\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /OUTPUT/  HEAD(1)\r\n      EQUIVALENCE       (IREG(1,1),REG(1,1)),(ANODES,NODES)     ,\r\n     1                  (KSYSTM(2),NOUT)    ,(KSYSTM(40),NBPW)  ,\r\n     2                  (ASYM,NONSYM)       ,(Z(1),IZ(1))\r\n      DATA    EIGC   /  207,2/\r\n      DATA    IHEAD  /  0,1009,2,7*0/\r\n      DATA    NAME   /  4HCFCN,4HTL  /\r\nC\r\nC     FILE ALLOCATION\r\nC\r\nC     ISCR( 1)  CONTAINS  (LAMBDA**2*M + LAMBDA*B + K) = DYNAMIC MATRIX\r\nC     ISCR( 2)  CONTAINS -(LAMBDA*M + B) = NOT REQUIRED WHEN B = 0\r\nC     ISCR( 3)  CONTAINS LOWER TRIANGLE OF DECOMPOSED DYNAMIC MATRIX\r\nC     ISCR( 4)  CONTAINS UPPER TRIANGLE OF DECOMPOSED DYNAMIC MATRIX\r\nC     ISCR( 5)  CONTAINS REDUCED TRIDIAGONAL MATRIX ELEMENTS\r\nC     ISCR( 6)  CONTAINS SPECIAL UPPER TRIANGLE FOR TRANSPOSED SWEEP\r\nC     ISCR( 7)  CONTAINS THE ORTHOGONAL VECTORS\r\nC     ISCR( 8)  CONTAINS OUTPUT EIGENVALUES , FOR INPUT TO CEAD1A\r\nC     ISCR( 9)  CONTAINS OUTPUT EIGENVECTORS, FOR INPUT TO CEAD1A\r\nC     ISCR(10)  SCRATCH FILE USED IN CFEER4\r\nC     ISCR(11)  NOT USED\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     NODES  = NUMBER OF DESIRED ROOTS IN CURRENT NEIGHBORHOOD\r\nC     EPS    = ACCURACY CRITERION - USED FOR REJECTING EIGENSOLUTIONS\r\nC     NOREG  = TOTAL NUMBER OF CENTERS (NEIGHBORHOODS) INPUT,\r\nC              EQUIVALENT TO THE NUMBER OF EIGC CONTINUATION CARDS\r\nC     JREG   = COUNTER FOR CURRENT NEIGHBORHOOD\r\nC     MREDUC = SIZE OF THE REDUCED PROBLEM IN CURRENT NEIGHBORHOOD\r\nC     NFOUND = ACCUMULATED NUMBER OF ACCEPTABLE EIGENSOLUTIONS\r\nC     NORD   = 2*N IF B.NE.0 AND = N IF B.EQ.0, WHERE B IS THE\r\nC              DAMPING MATRIX AND N IS THE PROBLEM SIZE\r\nC     NORD2  = VECTOR SIZE OF ORIGINAL PROBLEM (COMPLEX SINGLE\r\nC              PRECISION OR COMPLEX DOUBLE PRECISION)\r\nC     NSWP   = COMPLEX VECTOR SIZE FOR SWEEP ALGORITHM\r\nC     NO B   = LOGICAL INDICATOR FOR ABSENCE OF DAMPING MATRIX B\r\nC     SYMMET = LOGICAL INDICATOR FOR SYMMETRIC DYNAMIC MATRIX\r\nC     NONSYM = PROGRAM INPUT WHICH FORCES THE PROGRAM TO CONSIDER\r\nC              THE DYNAMIC MATRIX AS NON-SYMMETRIC\r\nC     IT     = NUMBER OF DECIMAL DIGITS OF ACCURACY FOR THE COMPUTER\r\nC     TEN2MT = 10**(2-T) CONVERGENCE CRITERION\r\nC     TENMHT = 10**(-HALF*T) CONVERGENCE CRITERION\r\nC     TENMTT = 10**(-THIRD*T) RIGID BODY ROOT CRITERION\r\nC     NORTHO = TOTAL CURRENT NUMBER OF ORTHOGONAL VECTOR PAIRS ON\r\nC              ORTHOGONAL VECTOR FILE. INITIALIZED TO NUMBER OF\r\nC              EIGENVECTOR PAIRS ON THE RESTART FILE.\r\nC     MINOPN = MINIMUM OPEN CORE NOT USED (WORDS)\r\nC     NSTART = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS\r\nC     IDIAG  = DIAG 12 PRINT CONTROL\r\nC     QPR    = LOGICAL INDICATOR FOR VERY DETAILED PRINTOUT\r\nC     WANT   = ARRAY OF DESIRED NUMBER OF ROOTS IN EACH NEIGHBORHOOD\r\nC     HAVE   = ARRAY OF ACTUAL  NUMBER OF ROOTS IN EACH NEIGHBORHOOD\r\nC\r\n      NORTHO = 0\r\n      NFOUND = NORTHO\r\n      NZERO  = NORTHO\r\n      JSKIP  = 0\r\n      CALL SSWTCH (12,IDIAG)\r\nC\r\nC     TEST COMPUTING MACHINE TYPE AND SET PRECISION PARAMETERS\r\nC\r\n      IF (NBPW .GE. 60) GO TO 20\r\n      IT = 8*KSYSTM(55)\r\n      GO TO 21\r\n   20 IT = 14*KSYSTM(55)\r\n   21 TEN2MT = 10.**(2-IT)\r\n      TENMHT = 10.**(-IT/2)\r\n      TENMTT = 10.**(-IT/3)\r\n      IK(1)  = 101\r\n      CALL RDTRL (IK)\r\n      IM(1)  = 103\r\n      CALL RDTRL (IM)\r\n      IB(1)  = 102\r\n      CALL RDTRL (IB)\r\n      IF (IB(1).LT.0 .OR. IB(6).EQ.0) IB(1) = 0\r\nC\r\nC     DETERMINE IF THE DYNAMIC MATRIX IS SYMMETRIC\r\nC\r\n      SYMMET = .FALSE.\r\n      IF (IK(1).NE.0 .AND. IK(4).NE.6) GO TO 30\r\n      IF (IM(1).NE.0 .AND. IM(4).NE.6) GO TO 30\r\n      IF (IB(1).NE.0 .AND. IB(4).NE.6) GO TO 30\r\n      SYMMET = .TRUE.\r\n   30 DO 40 I = 1,11\r\n   40 ISCR(I)= 300+I\r\n      IDMPFL = 203\r\n      NZ     = KORSZ(Z)\r\n      IBUF   = NZ - KSYSTM(1) - 2\r\n      LIMSUM = 12\r\n      IOPN   = IBUF - LIMSUM\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,600) IOPN\r\n      IF (IOPN  .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      MINOPN = IOPN\r\n      ILAM(1)= 308\r\n      IPHI(1)= 309\r\n      IFILE  = ILAM(1)\r\n      CALL OPEN (*500,ILAM,Z(IBUF),WRTREW)\r\n      CALL CLOSE (ILAM,REW)\r\n      IFILE  = IPHI(1)\r\n      CALL OPEN (*500,IPHI,Z(IBUF),WRTREW)\r\n      CALL CLOSE (IPHI,REW)\r\n      CALL GOPEN (IDMPFL,Z(IBUF),WRTREW)\r\n      CALL CLOSE (IDMPFL,EOFNRW)\r\nC\r\nC     PROCURE DATA FROM MAIN EIGC CARD\r\nC\r\n      IFILE = EED\r\n      CALL PRELOC (*500,Z(IBUF),EED)\r\n      CALL LOCATE (*500,Z(IBUF),EIGC(1),FLAG)\r\n   50 CALL FREAD (EED,IREG,10,0)\r\n      IF (IREG(1,1) .EQ. METHOD) GO TO 70\r\n   60 CALL FREAD (EED,IREG,7,0)\r\n      IF (IREG(6,1) .NE. -1) GO TO 60\r\n      GO TO 50\r\n   70 JREG  = 1\r\n      EPS   =.1D0/IK(2)/100.D0\r\n      IF (REG(1,2) .GT. 0.) EPS = DBLE(REG(1,2))/100.D0\r\n      UNIDUM= SNGL(EPS)*100.\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,75) UNIDUM,REG(1,2)\r\n   75 FORMAT (1H0,5HCFEER,6X,18HACCURACY CRITERION,1P,E16.8,\r\n     2        8X,12H(INPUT VALUE,E16.8,1H))\r\nC\r\nC     PROCURE DATA FROM EIGC CONTINUATION CARDS\r\nC\r\n   80 CALL FREAD (EED,IREG(1,JREG),7,0)\r\n      IF (IREG(6,JREG) .EQ. -1) GO TO 90\r\n      JREG  = JREG + 1\r\n      IF (JREG .GT. 10) GO TO 90\r\n      GO TO 80\r\n   90 CALL CLOSE (EED,REW)\r\n      NOREG  = JREG - 1\r\n      NODCMP = 0\r\n      NUMORT = 0\r\n      NUMRAN = 0\r\n      JREG   = 0\r\nC\r\nC     PICK UP PARAMETERS FOR NEIGHBORHOOD I\r\nC\r\n  100 JREG = JREG + 1\r\n      IF (JREG .LE. NOREG) GO TO 105\r\n      JREG = NOREG\r\n      IF (NZERO .GT. 0) JSKIP = -1\r\n      GO TO 175\r\n  105 X1 = REG(1,JREG)\r\n      Y1 = REG(2,JREG)\r\n      ANODES = REG(7,JREG)\r\n      ASYM   = REG(6,JREG)\r\n      IF (NONSYM .NE. 0) SYMMET = .FALSE.\r\n      NPRINT = IFIX(REG(5,JREG))\r\n      QPR = .FALSE.\r\n      IF (IDIAG.NE.0 .AND. NPRINT.GE.IK(2)) QPR = .TRUE.\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,110) JREG,X1,Y1,NODES,NONSYM\r\n  110 FORMAT (1H0,5HCFEER,6X,12HNEIGHBORHOOD,I3,8X,8HCENTER =,2F18.8,\r\n     1        8X,15HNO. DES. RTS. =,I5,8X,8HNONSYM =,I2/1H )\r\nC\r\nC     TEST IF USER PICKED THE ORIGIN\r\nC\r\n      IF (X1.NE.0. .OR. Y1.NE.0.) GO TO 120\r\n      X1 = X1 + .001\r\n      WRITE (NOUT,601) UWM\r\n  120 IF (NODES .GT. 0) GO TO 130\r\n      WRITE (NOUT,602) UWM,NODES\r\n      NODES = 1\r\n  130 WANT(JREG) = NODES\r\n      HAVE(JREG) = 0\r\n      NORD  = 2*IK(2)\r\n      NO B  = .FALSE.\r\n      IF (IB(1) .GT. 0) GO TO 140\r\n      NO B  = .TRUE.\r\n      NORD  = IK(2)\r\n  140 NSWP  = IK(2)\r\n      NORD2 = 2*NORD\r\n      NORD4 = 2*NORD2\r\n      NORDP1= NORD + 1\r\n      MREDUC= 2*NODES + 10\r\n      NOMNF = NORD - NFOUND\r\n      IF (MREDUC .GT. NOMNF) MREDUC = NOMNF\r\n      LAMBDA(1) = X1\r\n      LAMBDA(2) = Y1\r\n      IF (NODES .GT. NORD) WRITE (NOUT,606) UWM,NODES,JREG,NOREG,LAMBDA,\r\n     1                                      NORD\r\n      ISING = 0\r\nC\r\nC      FORM (LAMBDA**2*M + LAMBDA*B + K) = THE DYNAMIC MATRIX\r\nC\r\n  150 CALL CFEER1\r\nC\r\nC     CALL IN CDCOMP TO DECOMPOSE THE DYNAMIC MATRIX\r\nC\r\n      NODCMP = NODCMP + 1\r\n      CALL CFEER2 (IRET)\r\n      IF (IRET .NE. 0) GO TO 160\r\n      GO TO 170\r\n  160 IRET = IRET + ISING\r\n      WRITE (NOUT,603) UWM,IRET,LAMBDA\r\n      IF (ISING .EQ. 1) GO TO 100\r\nC\r\nC     SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE.\r\nC\r\n      ISING = 1\r\n      LAMBDA(1) = LAMBDA(1) + .02D0\r\n      LAMBDA(2) = LAMBDA(2) + .02D0\r\n      GO TO 150\r\nC\r\nC     CALL IN DRIVER TO GENERATE REDUCED TRIDIAGONAL MATRIX\r\nC\r\n  170 CALL CFEER3\r\n      IF (NSTART .GT. 2) GO TO 100\r\nC\r\nC     OBTAIN EIGENVALUES AND EIGENVECTORS\r\nC\r\n      CALL CFEER4\r\n      HAVE(JREG) = MREDUC\r\n      IF (MREDUC .LE. NODES) GO TO 180\r\n      I = MREDUC - NODES\r\n      WRITE (NOUT,607) UIM,I,NODES,JREG,NOREG,LAMBDA\r\n  180 NFOUND = NFOUND + MREDUC\r\n      IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 100\r\nC\r\nC     FEER IS FINISHED. PERFORM WRAP-UP OPERATIONS.\r\nC\r\n  175 IF (JSKIP  .LT. 0) CALL CFEER4\r\n      IF (NFOUND .EQ. 0) GO TO 250\r\n      IF (NFOUND .GE. NORD) GO TO 220\r\n  200 DO 210 I = 1,JREG\r\n      IF (HAVE(I) .LT. WANT(I)) GO TO 240\r\n  210 CONTINUE\r\n      GO TO 230\r\nC\r\nC     ALL SOLUTIONS FOUND\r\nC\r\n  220 WRITE (NOUT,604) UIM\r\n      IF (JREG .LT. NOREG) GO TO 240\r\n      GO TO 200\r\nC\r\nC     EACH REQUESTED NEIGHBORHOOD HAS THE DESIRED NUMBER OF ROOTS\r\nC\r\n  230 ITERM = 0\r\n      GO TO 260\r\nC\r\nC     AT LEAST ONE REQUESTED NEIGHBORHOOD FAILS TO HAVE THE DESIRED\r\nC     NUMBER OF ROOTS\r\nC\r\n  240 ITERM = 1\r\n      GO TO 260\r\nC\r\nC     ABNORMAL TERMINATION. NO ROOTS FOUND.\r\nC\r\n  250 ITERM = 2\r\nC\r\nC     WRITE INFORMATION ON NASTRAN SUMMARY FILE\r\nC\r\n  260 IFILE = IDMPFL\r\n      CALL OPEN (*500,IDMPFL,Z(IBUF),WRT)\r\n      DO 270 I = 1,LIMSUM\r\n  270 IZ(I) = 0\r\n      I = 0\r\n      IZ(I+2) = NORTHO\r\n      IZ(I+3) = NUMRAN\r\n      IZ(I+5) = NODCMP\r\n      IZ(I+6) = NUMORT\r\n      IZ(I+7) = ITERM\r\n      IZ(I+8) = 1\r\n      I = 2\r\n      CALL WRITE (IDMPFL,IHEAD(1),10,0)\r\n      CALL WRITE (IDMPFL,IZ(I),40,0)\r\n      CALL WRITE (IDMPFL,HEAD(1),96,1)\r\n      CALL WRITE (IDMPFL,IZ(1),0,1)\r\n      CALL CLOSE (IDMPFL,EOFNRW)\r\nC\r\nC     WRITE DUMMY TRAILER\r\nC\r\n      IXX   = IK(1)\r\n      IK(1) = IDMPFL\r\n      CALL WRTTRL (IK(1))\r\n      IK(1) = IXX\r\nC\r\nC     INFORM USER IF RUN REGION SIZE CAN BE REDUCED\r\nC\r\n      IF (NBPW-36) 300,310,320\r\n  300 I = 4\r\n      GO TO 330\r\n  310 I = 6\r\n      GO TO 330\r\n  320 I = 10\r\n      IF (NBPW .EQ. 64) I = 8\r\n  330 I = (I*MINOPN)/1000\r\n      IF (I .LT. 0) I = 0\r\n      WRITE (NOUT,605) UIM,MINOPN,I\r\n      RETURN\r\nC\r\n  500 CALL MESAGE (-1,IFILE,NAME)\r\n      RETURN\r\nC\r\nC\r\n  600 FORMAT (1H1,27X,'*****  F E E R  *****  (FAST EIGENVALUE',\r\n     1        ' EXTRACTION ROUTINE)  *****',  ////,1H ,I10,' SINGLE ',\r\n     2        'PRECISION WORDS OF OPEN CORE, NOT USED (SUBROUTINE ',\r\n     3        'CFEER)', //)\r\n  601 FORMAT (A25,' 3149',//5X,'USER SPECIFIED NEIGHBORHOOD CENTERED AT'\r\n     1,      ' ORIGIN NOT ALLOWED, CENTER SHIFTED TO THE RIGHT .001',//)\r\n  602 FORMAT (A25,' 3150',//5X,'DESIRED NUMBER OF EIGENVALUES',I8,3X,\r\n     1       'INVALID. SET = 1.',//)\r\n  603 FORMAT (A25,' 3151',//5X,'DYNAMIC MATRIX IS SINGULAR (OCCURRENCE',\r\n     1       I3,') IN NEIGHBORHOOD CENTERED AT ',1P,2D16.8,//)\r\n  604 FORMAT (A29,' 3159',//5X,'ALL SOLUTIONS HAVE BEEN FOUND.',//)\r\n  605 FORMAT (A29,' 3160',//5X,'MINIMUM OPEN CORE NOT USED BY FEER',I9,\r\n     1       ' WORDS (',I9,'K BYTES).',//)\r\n  606 FORMAT (A25,' 3161',//5X,'DESIRED NUMBER OF EIGENSOLUTIONS',I5,\r\n     1       ' FOR NEIGHBORHOOD',I3,' OF',I3,' CENTERED AT ',1P,2D16.8,\r\n     2       //5X,'EXCEEDS THE EXISTING NUMBER',I5,\r\n     3       ', ALL EIGENSOLUTIONS WILL BE SOUGHT.',//)\r\n  607 FORMAT (A29,' 3166',//1X,I5,' MORE ACCURATE EIGENSOLUTIONS THAN ',\r\n     1       'THE',I5,' REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD',I3,\r\n     2       ' OF',I3, //5X,'CENTERED AT ',1P,2D16.8,\r\n     3       '. USE DIAG 12 TO DETERMINE ERROR ESTIMATES.',//)\r\n      END\r\n"
  },
  {
    "path": "mis/cfeer1.f",
    "content": "      SUBROUTINE CFEER1\r\nC\r\nC     CFEER1 INITIALIZES AND CALLS SUBROUTINE SADD FOR CFCNTL\r\nC\r\n      LOGICAL           NO B     ,QPR\r\n      INTEGER           SCR1     ,SCR2     ,SCR11    ,SQR       ,\r\n     1                  TYPOUT   ,IFILA(7) ,IFILB(7) ,IFILC(7)\r\n      DOUBLE PRECISION  ALPHA(2) ,BETA(2)  ,LAMBDA   ,DZ(1)\r\n      DIMENSION         SALPHA(4),SBETA(4)\r\n      COMMON  /FEERAA/  IK(7)    ,IM(7)    ,IB(7)    ,DUM(15)   ,\r\n     1                  SCR1     ,SCR2     ,SCR(8)   ,SCR11     ,\r\n     2                  DUMAA(91),MCBLMB(7)\r\n      COMMON  /FEERXC/  LAMBDA(2),DUMXC(12),NO B     ,DUMXC2(4) ,\r\n     1                  QPR\r\n      COMMON  /SADDX /  NOMAT    ,NZ       ,MCBS(67)\r\n      COMMON  /NAMES /  DUMM(10) ,CDP      ,SQR\r\n      COMMON  /ZZZZZZ/  Z(1)\r\n      COMMON  /UNPAKX/  TYPOUT   ,IROW     ,NLAST    ,INCR\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\nC\r\n      EQUIVALENCE      (MCBS( 1), IFILA(1)), (MCBS( 8), ITYPAL  ),\r\n     1                 (MCBS(61), IFILC(1)), (MCBS(13), IFILB(1)),\r\n     2                 (MCBS(20), ITYPBT  ), (MCBS(21), BETA(1) ),\r\n     3                 (MCBS( 9), ALPHA(1)), (IPREC,  KSYSTM(55)),\r\n     4                 (ALPHA(1),SALPHA(1)), (BETA(1),  SBETA(1)),\r\n     5                 (Z(1)    , DZ(1)   ), (NOUT,   KSYSTM(2) )\r\nC\r\nC     FORM   -(B + LAMBDA*M)  ON SCR2\r\nC\r\n      ITYPE    = IPREC + 2\r\n      NOMAT    = 2\r\n      DO 10 I  = 1,7\r\n      IFILA(I) = IM(I)\r\n   10 IFILB(I) = IB(I)\r\n      IF (IPREC .EQ. 2) GO TO 15\r\n      SALPHA(1)=-SNGL(LAMBDA(1))\r\n      SALPHA(2)=-SNGL(LAMBDA(2))\r\n      SALPHA(3)= 0.\r\n      SALPHA(4)= 0.\r\n      SBETA(1) =-1.\r\n      SBETA(2) = 0.\r\n      SBETA(3) = 0.\r\n      SBETA(4) = 0.\r\n      GO TO 16\r\n   15 ALPHA(1) =-LAMBDA(1)\r\n      ALPHA(2) =-LAMBDA(2)\r\n      BETA(1)  =-1.D0\r\n      BETA(2)  =  0.D0\r\n   16 ITYPAL   = ITYPE\r\n      ITYPBT   = ITYPE\r\n      NZ       = KORSZ(Z)\r\n      IFILC(1) = SCR2\r\n      IFILC(2) = IK(2)\r\n      IFILC(3) = IK(3)\r\n      IFILC(4) = 1\r\n      IFILC(5) = ITYPE\r\n      IF (NO B) GO TO 100\r\n      CALL SADD (Z,Z)\r\nC\r\nC---------- SPECIAL PRINT ------------------------------\r\nC\r\n      IF (.NOT.QPR) GO TO 25\r\n      WRITE  (NOUT,2)\r\n    2 FORMAT (1H0,//7H CFEER1,//)\r\n      TYPOUT= ITYPE\r\n      IROW  = 1\r\n      NLAST = IK(2)\r\n      LIMIT = 2*NLAST\r\n      INCR  = 1\r\n      IBUF  = NZ - KSYSTM(1) - 2\r\n      CALL GOPEN (IFILC(1),Z(IBUF),0)\r\n      DO 20 I = 1,NLAST\r\n      WRITE  (NOUT,1) I\r\n    1 FORMAT (7H COLUMN,I4)\r\n      CALL UNPACK (*20,IFILC(1),Z)\r\n      IF (IPREC .EQ. 2) WRITE (NOUT,3) (DZ(J),J=1,LIMIT)\r\n      IF (IPREC .NE. 2) WRITE (NOUT,5) ( Z(J),J=1,LIMIT)\r\n   20 CONTINUE\r\n      CALL CLOSE (IFILC(1),1)\r\n    3 FORMAT (1H ,13(10H----------)/(1H ,4D25.16))\r\n    5 FORMAT (1H ,13(10H----------)/(1H ,4E25.16))\r\n   25 CONTINUE\r\nC\r\nC\r\nC     FORM  (LAMBDA**2*M + LAMBDA*B + K)  ON SCR1\r\nC\r\n      DO 30 I  = 1,7\r\n   30 IFILA(I) = IK(I)\r\n      IFILB(1) = IFILC(1)\r\n      IFILB(2) = IK(2)\r\n      IFILB(3) = IK(3)\r\n      IFILB(4) = SQR\r\n      IFILB(5) = ITYPE\r\n      IF (IPREC .EQ. 2) GO TO 35\r\n      SALPHA(1) = 1.\r\n      SALPHA(2) = 0.\r\n      SALPHA(3) = 0.\r\n      SALPHA(4) = 0.\r\n      SBETA(1)  =-SNGL(LAMBDA(1))\r\n      SBETA(2)  =-SNGL(LAMBDA(2))\r\n      SBETA(3)  = 0.\r\n      SBETA(4)  = 0.\r\n      GO TO 50\r\n   35 ALPHA(1) = 1.D0\r\n      ALPHA(2) = 0.D0\r\n      BETA(1)  =-LAMBDA(1)\r\n      BETA(2)  =-LAMBDA(2)\r\n   50 IFILC(1) = SCR1\r\n      CALL SADD (Z,Z)\r\nC\r\nC---------- SPECIAL PRINT ------------------------------\r\nC\r\n      IF (.NOT.QPR) GO TO 75\r\n      WRITE  (NOUT,4)\r\n    4 FORMAT (1H ,13(10H----------),//,19H THE DYNAMIC MATRIX,//)\r\n      CALL GOPEN (IFILC(1),Z(IBUF),0)\r\n      DO 70 I = 1,NLAST\r\n      WRITE (NOUT,1) I\r\n      CALL UNPACK (*70,IFILC(1),Z)\r\n      IF (IPREC .EQ. 2) WRITE (NOUT,3) (DZ(J),J=1,LIMIT)\r\n      IF (IPREC .NE. 2) WRITE (NOUT,5) ( Z(J),J=1,LIMIT)\r\n   70 CONTINUE\r\n      CALL CLOSE (IFILC(1),1)\r\n   75 CONTINUE\r\nC\r\nC-------------------------------------------------------\r\nC     MCBLMB NOT USED WHEN DAMPING MATRIX ABSENT\r\nC\r\n      DO 40 I = 1,7\r\n   40 MCBLMB(I) = IFILB(I)\r\n      GO TO 200\r\nC\r\nC     DAMPING MATRIX ABSENT\r\nC\r\n  100 DO 110 I = 1,7\r\n  110 IFILB(I) = IK(I)\r\n      IF (IPREC .EQ. 2) GO TO 120\r\n      SALPHA(1) = SNGL(LAMBDA(1)**2 - LAMBDA(2)**2)\r\n      SALPHA(2) = 2.*SNGL(LAMBDA(1)*LAMBDA(2))\r\n      SBETA(1)  = 1.\r\n      GO TO 130\r\n  120 ALPHA(1) = LAMBDA(1)**2 - LAMBDA(2)**2\r\n      ALPHA(2) = 2.D0*LAMBDA(1)*LAMBDA(2)\r\n      BETA(1)  = 1.D0\r\nC\r\nC----------- LOGIC FOR SPECIAL PRINT -------------------------\r\nC\r\n  130 IF (.NOT.QPR) GO TO 50\r\n      TYPOUT= ITYPE\r\n      IROW  = 1\r\n      NLAST = IK(2)\r\n      LIMIT = 2*NLAST\r\n      INCR  = 1\r\n      IBUF  = NZ - KSYSTM(1) - 2\r\nC-------------------------------------------------------------\r\nC\r\n      GO TO 50\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfeer2.f",
    "content": "      SUBROUTINE CFEER2 (IRET)\r\nC\r\nC     CFEER2 INITIALIZES AND CALLS CDCOMP FOR CFCNTL\r\nC\r\n      LOGICAL            QPR\r\n      INTEGER            FILEA    ,FILEL    ,FILEU    ,SCR1     ,\r\n     1                   SCR2     ,SCR3     ,SCR4     ,SCR5     ,\r\n     2                   SCR6     ,SCR7     ,SCR8     ,SCR9     ,\r\n     3                   SR1FIL   ,SR2FIL   ,SR3FIL   ,DUMM     ,\r\n     4                   TYPOUT   ,BBBBAR\r\n      DOUBLE PRECISION   DET      ,MINDIA   ,DZ(1)\r\n      COMMON  /CDCMPX/   FILEA(7) ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL   ,SR3FIL   ,DET(2)   ,POWER    ,\r\n     2                   NZ       ,MINDIA   ,BBBBAR(5)\r\n      COMMON  /FEERAA/   DUMM(36) ,SCR1     ,SCR2     ,SCR3     ,\r\n     1                   SCR4     ,SCR5     ,SCR6     ,SCR7     ,\r\n     2                   SCR8     ,SCR9     ,DUMQ(72) ,MCBLT(7) ,\r\n     3                   MCBUT(7)\r\n      COMMON  /FEERXC/   DUMXC(21),QPR\r\n      COMMON  /ZZZZZZ/   Z(1)\r\n      COMMON  /UNPAKX/   TYPOUT   ,IROW     ,NLAST    ,INCR\r\n      COMMON  /SYSTEM/   KSYSTM(65)\r\n      EQUIVALENCE        (Z(1), DZ(1)     ) ,(NOUT,KSYSTM(2))   ,\r\n     1                   (IPREC,KSYSTM(55))\r\nC\r\n      ITYPE    = IPREC + 2\r\n      IRET     = 0\r\n      FILEA(1) = SCR1\r\n      FILEL(1) = SCR3\r\n      FILEU(1) = SCR4\r\n      SR1FIL   = SCR5\r\n      SR2FIL   = SCR6\r\n      SR3FIL   = SCR7\r\n      FILEA(2) = DUMM(3)\r\n      FILEA(3) = DUMM(3)\r\n      FILEA(4) = DUMM(4)\r\n      FILEA(5) = ITYPE\r\n      FILEA(6) = 0\r\n      FILEA(7) = 0\r\n      FILEL(5) = ITYPE\r\n      NZ       = KORSZ(Z)\r\n      BBBBAR(1)= 0\r\n      CALL CDCOMP (*110,Z,Z,Z)\r\nC\r\nC     ---------- SPECIAL PRINT -------------------------------\r\nC\r\n      IF (.NOT.QPR) GO TO 80\r\n      WRITE  (NOUT,10)\r\n   10 FORMAT (//,7H CFEER2,//)\r\n      WRITE  (NOUT,20)\r\n   20 FORMAT (1H ,13(10H----------))\r\n      TYPOUT = ITYPE\r\n      IROW   = 1\r\n      NLAST  = DUMM(2)\r\n      LIMIT  = 2*NLAST\r\n      INCR   = 1\r\n      IBUF   = NZ - KSYSTM(1) - 2\r\n      IFILXX = SCR3\r\n   30 CALL GOPEN (IFILXX,Z(IBUF),0)\r\n      DO 50 I = 1,NLAST\r\n      WRITE  (NOUT,40) I\r\n   40 FORMAT (1H ,6HCOLUMN,I4)\r\n      CALL UNPACK (*50,IFILXX,Z)\r\n      IF (IPREC .EQ. 2) WRITE (NOUT,60) (DZ(J),J=1,LIMIT)\r\n      IF (IPREC .NE. 2) WRITE (NOUT,70) ( Z(J),J=1,LIMIT)\r\n   50 CONTINUE\r\n      CALL CLOSE (IFILXX,1)\r\n      WRITE (NOUT,20)\r\n      IF (IFILXX .EQ. SCR4) GO TO 80\r\n      IFILXX = SCR4\r\n      GO TO 30\r\n   60 FORMAT (1H ,13(10H----------)/(1H ,4D25.16))\r\n   70 FORMAT (1H ,13(10H----------)/(1H ,4E25.16))\r\n   80 CONTINUE\r\nC\r\nC     --------------------------------------------------------\r\nC\r\n   90 DO 100 I = 1,7\r\n      MCBUT(I) = FILEU(I)\r\n  100 MCBLT(I) = FILEL(I)\r\n      RETURN\r\nC\r\n  110 IRET = 1\r\n      GO TO 90\r\n      END\r\n"
  },
  {
    "path": "mis/cfeer3.f",
    "content": "      SUBROUTINE CFEER3\r\nC\r\nC     CFEER3 IS A DRIVER ROUTINE WHICH PERFORMS THE TRIDIAGONAL\r\nC     REDUCTION FOR THE COMPLEX FEER METHOD\r\nC\r\n      INTEGER           SWITCH   ,CDP      ,SQR      ,SYSBUF     ,\r\n     1                  NAME(2)\r\n      DOUBLE PRECISION  LAMBDA   ,DZ(1)\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW     ,\r\n     1                  REW      ,NOREW    ,EOFNRW   ,RSP        ,\r\n     2                  RDP      ,CSP      ,CDP      ,SQR\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /ZZZZZZ/  Z(1)\r\n      COMMON  /FEERXC/  LAMBDA(2),SWITCH   ,MREDUC   ,NORD       ,\r\n     1                  IDIAG    ,EPSDUM(2),NORTHO   ,NORD2      ,\r\n     2                  NORD4    ,NORDP1   ,XCDUM(12),MINOPN\r\n      COMMON  /FEERAA/  IK(7)    ,IM(7)    ,IB(7)    ,ILAM(7)    ,\r\n     1                  IPHI(7)  ,DUDXX    ,ISCR(11) ,DUMAA(84)  ,\r\n     2                  MCBVEC(7)\r\n      EQUIVALENCE       (DZ(1)   ,Z(1)   ) ,(KSYSTM(55),IPREC)   ,\r\n     1                  (KSYSTM(1),SYSBUF) ,(KSYSTM( 2),NOUT )\r\n      DATA     NAME  /  4HCFEE,4HR3  /\r\nC\r\nC     SCRATCH FILE AND BUFFER ALLOCATION\r\nC\r\nC     FILE  5  CONTAINS THE ELEMENTS OF REDUCED TRIDIAGONAL MATRIX\r\nC     FILE  7  CONTAINS THE ORTHOGONAL VECTOR PAIRS (NUMBER OF\r\nC              VECTOR PAIRS = NORTHO)\r\nC\r\nC     BUFFER Z(IBUF1) IS LOCAL SCRATCH BUFFER\r\nC     BUFFER Z(IBUF2) IS LOCAL SCRATCH BUFFER\r\nC     BUFFER Z(IBUF3) IS USED BY FILE 5\r\nC\r\nC\r\nC     COMPUTE STORAGE ALLOCATIONS\r\nC\r\n      NZ    = KORSZ(Z)\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      ITOP  = IBUF3\r\nC\r\nC     COMPUTE LOCATIONS OF RIGHT-HANDED VECTORS\r\nC\r\n      IV1 = 1\r\n      IV2 = IV1 + NORD4\r\n      IV3 = IV2 + NORD4\r\n      IV4 = IV3 + NORD4\r\n      IV5 = IV4 + NORD4\r\nC\r\nC     TEST FOR INSUFFICIENT CORE\r\nC\r\n      IEND = IPREC*(5*NORD4+1)\r\n      IF (IEND .GT. ITOP) GO TO 70\r\nC\r\nC     COMPUTE LOCATIONS OF LEFT-HANDED VECTORS\r\nC\r\n      IV1L = IV1 + NORD2\r\n      IV2L = IV2 + NORD2\r\n      IV3L = IV3 + NORD2\r\n      IV4L = IV4 + NORD2\r\n      IV5L = IV5 + NORD2\r\n      IOPN = ITOP- IEND\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,510) IOPN\r\n      IF (IOPN .LT. MINOPN) MINOPN = IOPN\r\nC\r\nC     INITIALIZE SCRATCH FILE TO CONTAIN TRIDIAGONAL ELEMENTS\r\nC\r\n      CALL GOPEN (ISCR(5),Z(IBUF3),WRTREW)\r\nC\r\nC     GENERATE MATRIX CONTROL BLOCK FOR SCRATCH FILE TO CONTAIN\r\nC     ORTHOGONAL VECTORS (LEFT VECTOR PACKED IMMEDIATELY AFTER\r\nC     RIGHT, I. E., EACH COLUMN CONTAINS RIGHT VECTOR FOLLOWED BY\r\nC     LEFT VECTOR)\r\nC\r\n      JPREC = IPREC + 2\r\n      CALL MAKMCB (MCBVEC(1),ISCR(7),NORD2,2,JPREC)\r\nC\r\nC     PERFORM DOUBLE PRECISION FEER\r\nC\r\n      IF (IPREC.EQ.2) CALL CFER3D (DZ(IV1),DZ(IV1L), DZ(IV2),DZ(IV2L),\r\n     1                             DZ(IV3),DZ(IV3L), DZ(IV4),DZ(IV4L),\r\n     2                             DZ(IV5),DZ(IV5L), Z(IBUF1),Z(IBUF2))\r\nC\r\nC     PERFORM SINGLE PRECISION FEER\r\nC\r\n      IF (IPREC.NE.2) CALL CFER3S (Z(IV1),Z(IV1L), Z(IV2),Z(IV2L),\r\n     1                             Z(IV3),Z(IV3L), Z(IV4),Z(IV4L),\r\n     2                             Z(IV5),Z(IV5L), Z(IBUF1),Z(IBUF2))\r\nC\r\nC     TERMINATE SCRATCH FILE CONTAINING TRIDIAGONAL ELEMENTS\r\nC\r\n      CALL CLOSE (ISCR(5),NOREW)\r\n      RETURN\r\nC\r\n   70 IEND = (IEND-ITOP)/1000 + 1\r\n      WRITE  (NOUT,80) IEND\r\n   80 FORMAT (5H0NEED,I4,17HK MORE CORE WORDS)\r\n      CALL MESAGE (-8,0,NAME)\r\n  510 FORMAT (1H ,I10,36H SINGLE PRECISION WORDS OF OPEN CORE,\r\n     1       29H NOT USED (SUBROUTINE CFEER3))\r\n      END\r\n"
  },
  {
    "path": "mis/cfeer4.f",
    "content": "      SUBROUTINE CFEER4\r\nC\r\nC     CFEER4 OBTAINS THE EIGENVALUES AND EIGENVECTORS FROM THE\r\nC     REDUCED TRIDIAGONAL MATRIX FOR THE COMPLEX FEER METHOD\r\nC\r\n      LOGICAL           NO B     ,DECREM   ,QPR      ,LZ(1)     ,\r\n     1                  DPMACH\r\n      INTEGER           NAME(2)  ,IZ(1)    ,EOR\r\n      INTEGER           WRTREW\r\n      DOUBLE PRECISION  LAMBDA   ,EPS      ,DZ(1)    ,D(4)      ,\r\n     1                  LAM1(2)\r\n      DIMENSION         S(8)     ,DMP1(2)  ,ALAM(2)  ,DM(2)     ,\r\n     1                  STATUS(2),ACCEPT(2),REJECT(2)\r\n      CHARACTER         UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON  /XMSSG /  UFM      ,UWM      ,UIM\r\n      COMMON  /FEERAA/  IKMB(21) ,ILAM(7)  ,IPHI(7)  ,IDMPFL    ,\r\n     1                  ISCR(11) ,DUMAA(84),MCBVEC(7)\r\n      COMMON  /FEERXC/  LAMBDA(2),SWDUM    ,MREDUC   ,NORD      ,\r\n     1                  IDIAG    ,EPS      ,NORTHO   ,NORD2     ,\r\n     2                  NORD4    ,NORDP1   ,NSWP(2)  ,NO B      ,\r\n     3                  IT       ,TEN2MT   ,TENMHT   ,NSTART    ,\r\n     4                  QPR      ,JREG     ,NOREG    ,NZERO     ,\r\n     5                  TENMTT   ,MINOPN\r\n      COMMON  /ZZZZZZ/  Z(1)\r\n      COMMON  /UNPAKX/  IPRC     ,II       ,NN       ,INCR\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW    ,\r\n     1                  REW      ,NOREW    ,EOFNRW\r\n      EQUIVALENCE       (KSYSTM(2 ),NOUT ) ,(NROW,MREDUC)       ,\r\n     1                  (KSYSTM(55),IPREC) ,(D(1),S(1)  )       ,\r\n     2                  (Z(1),IZ(1),LZ(1),DZ(1))\r\n      DATA     NAME  /  4HCFEE,4HR4  /\r\n      DATA     ACCEPT,  REJECT/4H  AC,4HCEPT,4H -RE,4HJECT      /\r\nC\r\nC     CORE ALLOCATION FOR ALLMAT\r\nC\r\nC     CONTENTS                SIZE             POINTER   TYPE   NAME\r\nC     --------                ----             -------   ----   ----\r\nC     INPUT MATRIX--VECTORS   2*NROW*NROW      IA        COMP   A\r\nC     EIGENVALUES             2*NROW           IL        COMP   LAM\r\nC     H  MATRIX               2*NROW*NROW      IH        COMP   H\r\nC     HL MATRIX               2*NROW*NROW      IHL       COMP   HL\r\nC     VECTOR STORAGE          2*NROW           IV        COMP   VEC\r\nC     MULTIPLIERS             2*NROW           IM        COMP   MULT\r\nC     INTH                    NROW             INTH      INTG   INTH\r\nC     INTQ                    NROW             INTQ      LOGL   INTQ\r\nC\r\nC     CORE ALLOCATION AFTER ALLMAT IS FINISHED\r\nC\r\nC     ALLMAT OUTPUT EIGENVECTORS               IA\r\nC     EIGENVALUES                              IL\r\nC     ORDER OF EXTRACTION                      IH\r\nC     THEORETICAL ERRORS                       IHL\r\nC     NOT USED                                 IV,IM\r\nC     STATUS OF SOLUTIONS                      INTH\r\nC     DISTANCES FROM CENTER                    INTQ\r\nC     VARIABLE PRECISION PHYSICAL EIGENVECTORS IV1\r\nC     VARIABLE PRECISION ORTHOGONAL VECTORS    IV2\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     DMP1     = D-SUB-M-PLUS-1 = EXTRANEOUS OFF-DIAGONAL ELEMENT\r\nC                OF REDUCED TRIDIAGONAL MATRIX, USED FOR COMPUTING\r\nC                THEORETICAL ERRORS\r\nC     DM       = FINAL OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL\r\nC                MATRIX\r\nC     NO B     = LOGICAL INDICATOR FOR ABSENCE OF DAMPING MATRIX B\r\nC     DECREM   = LOGICAL INDICATOR FOR DECREMENTED SIZE OF REDUCED\r\nC                PROBLEM\r\nC     NROW     = SIZE OF THE REDUCED PROBLEM (EQUIVALENT TO MREDUC)\r\nC     RMS      = ROOT-MEAN-SQUARE OF EIGENVALUES, USED IN RIGID-BODY\r\nC                ERROR TEST\r\nC     NOTE.....SEE LISTING OF CFCNTL FOR ADDITIONAL DEFINITIONS\r\nC\r\n      IF (QPR) WRITE (NOUT,600)\r\n      DPMACH = IPREC .EQ. 2\r\n      NORD8  = 2*NORD4\r\n      DECREM = .FALSE.\r\n    4 NROW2  = 2*NROW\r\n      NROWSQ = NROW*NROW2\r\nC\r\nC     ALLOCATE CORE FOR ALLMAT\r\nC\r\n      IA  = 1\r\n      IL  = IA  + NROWSQ\r\n      IH  = IL  + NROW2\r\n      IHL = IH  + NROWSQ\r\n      IV  = IHL + NROWSQ\r\n      IM  = IV  + NROW2\r\n      INTH= IM  + NROW2\r\n      INTQ= INTH+ NROW\r\nC\r\nC     ALLOCATE CORE FOR PHYSICAL EIGENVECTORS (LEFT FOLLOWS RIGHT)\r\nC\r\n      IV1 = INTQ + NROW\r\n      IV2 = IV1  + NORD8\r\n      IF (DPMACH .AND. MOD(IV2,2).EQ.0) IV2 = IV2 + 1\r\n      IV1X = IV1 - 1\r\nC\r\nC     TEST FOR INSUFFICIENT CORE\r\nC\r\n      NZ    = KORSZ(Z(1))\r\n      IBUF1 = NZ    - KSYSTM(1)\r\n      IBUF2 = IBUF1 - KSYSTM(1)\r\n      IOPN  = IBUF2 - (IV2 + NORD8)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,610) IOPN\r\n      IF (IOPN  .LE. 0) CALL MESAGE (-8,0,NAME(1))\r\n      IF (IOPN .LT. MINOPN) MINOPN = IOPN\r\n      IF (NSWP(2)  .LT.  0) GO TO 209\r\nC\r\nC     CONSTRUCT REDUCED TRIDIAGONAL MATRIX\r\nC\r\n      DO 10 I = IA,IL\r\n   10 Z(I) = 0.\r\n      NROW22 = NROW2 + 2\r\n      CALL GOPEN (ISCR(5),Z(IBUF1),RDREW)\r\n      NW  = 4*IPREC\r\n      EOR = 1\r\n      M   = 0\r\n      NROW1 = NROW - 1\r\nC\r\nC     ENTER LOOP\r\nC\r\n      DO 20 I = 1,NROW\r\n      I1 = I - 1\r\n      CALL READ (*420,*430,ISCR(5),S(1),NW,EOR,M)\r\n      IF (QPR .AND. .NOT.DPMACH) WRITE (NOUT,620) I,(S(J),J=1,4)\r\n      IF (QPR .AND.      DPMACH) WRITE (NOUT,630) I,(D(J),J=1,4)\r\nC\r\nC     ALLMAT ACCEPTS ONLY SINGLE PRECISION ARRAY\r\nC\r\n      J = IA + NROW22*I1\r\n      IF (.NOT.DPMACH) GO TO 15\r\nC\r\nC     LOAD MAIN DIAGONAL ELEMENT\r\nC\r\n      Z(J  ) = D(3)\r\n      Z(J+1) = D(4)\r\n      IF (I .NE. NROW1) GO TO 12\r\nC\r\nC     SAVE LAST OFF-DIAGONAL ELEMENT\r\nC\r\n      DM(1) = D(1)\r\n      DM(2) = D(2)\r\n   12 IF (I .EQ. NROW) GO TO 20\r\nC\r\nC     LOAD OFF-DIAGONAL ELEMENTS\r\nC\r\n      Z(J+2) = D(1)\r\n      Z(J+3) = D(2)\r\n      J  = J + NROW2\r\n      Z(J  ) = D(1)\r\n      Z(J+1) = D(2)\r\n      GO TO 20\r\nC\r\nC     LOAD MAIN DIAGONAL ELEMENT\r\nC\r\n   15 Z(J  ) = S(3)\r\n      Z(J+1) = S(4)\r\n      IF (I .NE. NROW1) GO TO 16\r\nC\r\nC     SAVE LAST OFF-DIAGONAL ELEMENT\r\nC\r\n      DM(1) = S(1)\r\n      DM(2) = S(2)\r\n   16 IF (I .EQ. NROW) GO TO 20\r\nC\r\nC     LOAD OFF-DIAGONAL ELEMENTS\r\nC\r\n      Z(J+2) = S(1)\r\n      Z(J+3) = S(2)\r\n      J  = J + NROW2\r\n      Z(J  ) = S(1)\r\n      Z(J+1) = S(2)\r\n   20 CONTINUE\r\nC\r\nC     SAVE ERROR ELEMENT FROM TRIDIAGONAL MATRIX\r\nC\r\n      IF (.NOT.DPMACH) GO TO 25\r\n      DMP1(1) = D(1)\r\n      DMP1(2) = D(2)\r\n      GO TO 26\r\n   25 DMP1(1) = S(1)\r\n      DMP1(2) = S(2)\r\n   26 CONTINUE\r\n      IF (QPR) WRITE (NOUT,640) (Z(I),I=1,NROWSQ)\r\n      CALL CLOSE (ISCR(5),REW)\r\n      IF (DECREM) GO TO 30\r\nC\r\nC     DECREMENT THE REDUCED PROBLEM SIZE IF THE ERROR ELEMENT IS NULL\r\nC\r\n      IF (DMP1(1).NE.0. .OR. DMP1(2).NE.0.) GO TO 30\r\n      MREDUC = MREDUC - 1\r\n      WRITE (NOUT,570) UWM,MREDUC\r\n      IF (MREDUC .EQ. 0) GO TO 440\r\n      IF (DM(1).NE.0. .OR. DM(2).NE.0.) GO TO 29\r\nC\r\nC     NEW ERROR ELEMENT IS ALSO NULL. RESTORE ORIGINAL REDUCED SIZE.\r\nC\r\n      MREDUC  = MREDUC + 1\r\n      DMP1(1) = SNGL(EPS)\r\n      WRITE (NOUT,590) UWM,MREDUC,DMP1\r\n      GO TO 30\r\n   29 DECREM = .TRUE.\r\n      GO TO 4\r\nC\r\n   30 CALL ALLMAT (Z(IA),Z(IL),Z(IH),Z(IHL),Z(IV),Z(IM),Z(INTH),Z(INTQ),\r\n     1             NROW,NROW,INIDUM)\r\nC\r\nC     --------------- SPECIAL PRINT -------------------------\r\nC\r\n      IF (.NOT.QPR) GO TO 4429\r\n      WRITE  (NOUT,4408)\r\n 4408 FORMAT (1H0,10X,15HALLMAT EXECUTED,/,1H0)\r\n      J = IH - 1\r\n      WRITE  (NOUT,4420) (Z(I),I=IL,J)\r\n 4420 FORMAT (1H0,11HEIGENVALUES, //,(1H ,2E16.8))\r\n      WRITE  (NOUT,4422)\r\n 4422 FORMAT (1H0,12HEIGENVECTORS,//)\r\n      DO 4428 I = 1,NROW\r\n      L = IA + NROW2*(I-1)\r\n      K = L  + NROW2 - 1\r\n      WRITE (NOUT,4424) (Z(J),J=L,K)\r\nC\r\nC     CHECK NORMALITY\r\nC\r\n      SUMR = 0.\r\n      SUMI = 0.\r\n      DO 7760 J = L,K,2\r\n      JJ   = J + 1\r\n      SUMR = SUMR + Z(J)**2 - Z(JJ)**2\r\n 7760 SUMI = SUMI + 2.*Z(J)*Z(JJ)\r\n      WRITE  (NOUT,7770) SUMR,SUMI\r\n 7770 FORMAT (//,35H SELF INNER-PRODUCT OF ABOVE VECTOR, /,1H ,6X,\r\n     1        11HREAL PART =,E16.8,8X,16HIMAGINARY PART =,E16.8)\r\n 4424 FORMAT (//,(1H ,6E16.8))\r\n 4428 CONTINUE\r\n 4429 CONTINUE\r\nC     -------------------------------------------------------\r\nC\r\nC     NORMALIZE THE EIGENVECTORS OUTPUT FROM ALLMAT\r\nC\r\n      IF (QPR) WRITE (NOUT,4422)\r\n      DO 36 I = 1,NROW\r\n      L = IA + NROW2*(I-1)\r\n      K = L  + NROW2 - 1\r\n      SUMR = 0.\r\n      SUMI = 0.\r\n      DO 33 J = L,K,2\r\n      JJ   = J + 1\r\n      SUMR = SUMR + Z(J)**2 - Z(JJ)**2\r\n   33 SUMI = SUMI + 2.*Z(J)*Z(JJ)\r\n      RSQRT= SQRT(SQRT(SUMR**2 + SUMI**2))\r\n      IF (RSQRT .GT. 0.) GO TO 34\r\n      WRITE (NOUT,560) UWM,NAME\r\n      GO TO 36\r\n   34 THETA2= .5*ATAN2(SUMI,SUMR)\r\n      SUMR  = RSQRT*COS(THETA2)\r\n      SUMI  = RSQRT*SIN(THETA2)\r\n      THETA2= 1./(SUMR**2 + SUMI**2)\r\n      SUMR  = SUMR*THETA2\r\n      SUMI  =-SUMI*THETA2\r\n      DO 35 J = L,K,2\r\n      JJ    = J + 1\r\n      THETA2= Z(J)\r\n      Z(J ) = SUMR*Z(J)   - SUMI*Z(JJ)\r\n   35 Z(JJ) = SUMI*THETA2 + SUMR*Z(JJ)\r\nC\r\nC     -------------- SPECIAL PRINT --------------------------\r\nC\r\n      IF (.NOT.QPR) GO TO 36\r\n      WRITE (NOUT,4424) (Z(J),J=L,K)\r\nC\r\nC     CHECK NORMALITY\r\nC\r\n      SUMR = 0.\r\n      SUMI = 0.\r\n      DO 1008 J = L,K,2\r\n      JJ   = J + 1\r\n      SUMR = SUMR + Z(J)**2 - Z(JJ)**2\r\n 1008 SUMI = SUMI + 2.*Z(J)*Z(JJ)\r\n      WRITE (NOUT,7770) SUMR,SUMI\r\nC     -------------------------------------------------------\r\nC\r\n   36 CONTINUE\r\nC\r\nC     COMPUTE THEORETICAL EIGENVALUE ERRORS\r\nC\r\n      IF (QPR) WRITE (NOUT,650) DMP1\r\n      IHL1 = IHL - 1\r\n      DO 50 I = 1,NROW\r\n      K = IL + 2*(I-1)\r\n      DENOM = SQRT(Z(K)**2 + Z(K+1)**2)\r\n      IF (DENOM .GT. 0.) GO TO 40\r\n      WRITE (NOUT,550) UIM,I\r\n      DENOM = 1.E-10\r\n   40 DENOM = 1./DENOM\r\n      K  = IA + NROW2*I - 2\r\n      KK = K  + 1\r\n      J  = IHL1 + I\r\n      Z(J) = DENOM*SQRT((DMP1(1)*Z(K) - DMP1(2)*Z(KK))**2\r\n     1     + (DMP1(1)*Z(KK) + DMP1(2)*Z(K))**2)\r\n      IF (QPR) WRITE (NOUT,660) I,Z(J),Z(K),Z(KK),DENOM\r\n   50 CONTINUE\r\nC\r\nC     RECOVER PHYSICAL EIGENVALUES\r\nC\r\n      RMS = 0.\r\n      IF (NO B) GO TO 54\r\n      ALAM(1) = LAMBDA(1)\r\n      ALAM(2) = LAMBDA(2)\r\n      GO TO 55\r\n   54 ALAM(1) = LAMBDA(1)**2 - LAMBDA(2)**2\r\n      ALAM(2) = 2.D0*LAMBDA(1)*LAMBDA(2)\r\n   55 DO 70 I = 1,NROW\r\n      K  = IL + 2*(I-1)\r\n      KK = K  + 1\r\n      DENOM = Z(K)**2 + Z(KK)**2\r\n      IF (DENOM .EQ. 0.) DENOM = 1.E-20\r\n      DENOM = 1./DENOM\r\n      Z( K) = DENOM*Z( K) + ALAM(1)\r\n      Z(KK) =-DENOM*Z(KK) + ALAM(2)\r\n      IF (NO B) GO TO 60\r\n      GO TO 70\r\nC\r\nC     DAMPING MATRIX ABSENT\r\nC\r\n   60 RSQRT  = SQRT(SQRT(Z(K)**2 + Z(KK)**2))\r\n      THETA2 = .5*ATAN2(Z(KK),Z(K))\r\n      Z( K)  = RSQRT*COS(THETA2)\r\n      Z(KK)  = RSQRT*SIN(THETA2)\r\n      IF (Z(KK) .GE. 0.) GO TO 70\r\n      Z( K)  =-Z( K)\r\n      Z(KK)  =-Z(KK)\r\nC\r\nC     COMPUTE RMS FOR RIGID-BODY ERROR TEST\r\nC\r\n   70 RMS = RMS + SQRT((Z(K)**2-Z(KK)**2)**2 + 4.*(Z(K)*Z(KK))**2)\r\n      RMS = SQRT(RMS)/FLOAT(NROW)\r\n      IF (QPR) WRITE (NOUT,800) RMS\r\n      J  = IH - 1\r\n      IF (QPR) WRITE (NOUT,4420) (Z(I),I=IL,J)\r\nC\r\nC     PERFORM RIGID-BODY ERROR TEST\r\nC\r\n      IF (RMS .LT. 1.E-20) RMS = 1.E-20\r\n      RMS = 1./RMS\r\n      DO 80 I = 1,NROW\r\n      K = IL + 2*(I-1)\r\n      J = IHL1 + I\r\n      IF (RMS*SQRT(Z(K)**2+Z(K+1)**2) .LE. TENMTT) Z(J) = 0.\r\n   80 CONTINUE\r\nC\r\nC     COMPUTE DISTANCES OF EIGENVALUES TO CENTER OF NEIGHBORHOOD\r\nC\r\n      ALAM(1) = LAMBDA(1)\r\n      ALAM(2) = LAMBDA(2)\r\n      JJ = INTQ - 1\r\n      KK = IH   - 1\r\n      LL = INTH - 1\r\n      DO 90 I = 1,NROW\r\n      J  = JJ + I\r\n      K  = IL + 2*(I-1)\r\n      Z(J) = SQRT((ALAM(1) - Z(K))**2 + (ALAM(2)-Z(K+1))**2)\r\nC\r\nC     LOAD ORDER OF EXTRACTION\r\nC\r\n      K = KK + I\r\n      IZ(K) = I\r\nC\r\nC     LOAD STATUS OF EACH SOLUTION\r\nC\r\n      K = LL + I\r\n      LZ(K) = .FALSE.\r\n      J = IHL1 + I\r\n      IF (Z(J) .LT. SNGL(EPS)) LZ(K) = .TRUE.\r\n   90 CONTINUE\r\nC\r\nC     SORT EIGENVALUES ACCORDING TO DISTANCE FROM CURRENT CENTER\r\nC\r\n      IF (NROW .EQ. 1) GO TO 150\r\n      LL = NROW - 1\r\n      DO 140 I = 1,LL\r\n      K  = JJ + I\r\n      I1 = KK + I\r\n      LLL= I  + 1\r\n      DO 130 J = LLL,NROW\r\n      L  = JJ + J\r\n      IF (Z(K) .LT. Z(L)) GO TO 130\r\n      UNIDUM = Z(L)\r\n      Z(L)   = Z(K)\r\n      Z(K)   = UNIDUM\r\n      I2     = KK + J\r\n      INIDUM = IZ(I1)\r\n      IZ(I1) = IZ(I2)\r\n      IZ(I2) = INIDUM\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n  150 LLL = IL - 1\r\n      LL  = INTH - 1\r\n      IF (IDIAG .EQ. 0) GO TO 170\r\nC\r\nC     PRINT OUT FULL SUMMARY FOR CURRENT NEIGHBORHOOD\r\nC\r\n      WRITE (NOUT,670) JREG,NOREG,ALAM\r\n      WRITE (NOUT,680)\r\n      WRITE (NOUT,690)\r\n      DO 160 I = 1,NROW\r\n      K   = KK  + I\r\n      IZZ = 2*IZ(K) - 1\r\n      J   = JJ  + I\r\n      L   = LLL + IZZ\r\n      L1  = L   + 1\r\n      I1  = IHL1+ IZ(K)\r\n      Z(I1) = 100.*Z(I1)\r\n      I2  = LL  + IZ(K)\r\n      STATUS(1) = ACCEPT(1)\r\n      STATUS(2) = ACCEPT(2)\r\n      IF (LZ(I2)) GO TO 160\r\n      STATUS(1) = REJECT(1)\r\n      STATUS(2) = REJECT(2)\r\n  160 WRITE (NOUT,700) I,IZ(K),Z(J),Z(L),Z(L1),Z(I1),STATUS\r\nC\r\nC     DECREMENT COUNTERS SO THAT ONLY ACCEPTABLE SOLUTIONS ARE RETAINED\r\nC\r\n  170 MSAVE = NROW\r\n      DO 180 I = 1,MSAVE\r\n      I2 = LL + I\r\n      IF (LZ(I2)) GO TO 180\r\n      NROW   = NROW - 1\r\n      NORTHO = NORTHO - 1\r\n      IF (NROW .EQ. 0) GO TO 450\r\n  180 CONTINUE\r\n      NFOUND = NZERO + NROW\r\n      IF (NROW .EQ. MSAVE) WRITE (NOUT,720) UIM,MSAVE\r\n      IF (IDIAG.EQ.0 .OR. NROW.EQ.MSAVE) GO TO 200\r\nC\r\nC     PRINT OUT SUMMARY WITH REJECTED SOLUTIONS DELETED\r\nC\r\n      WRITE (NOUT,670) JREG,NOREG,ALAM\r\n      WRITE (NOUT,730)\r\n      WRITE (NOUT,690)\r\n      M  = 0\r\n      DO 190 I = 1,MSAVE\r\n      K  = KK + I\r\n      I2 = LL + IZ(K)\r\n      IF (.NOT.LZ(I2)) GO TO 190\r\n      M  = M + 1\r\n      IZZ= 2*IZ(K) - 1\r\n      J  = JJ  + I\r\n      L  = LLL + IZZ\r\n      L1 = L   + 1\r\n      I1 = IHL1+ IZ(K)\r\n      WRITE (NOUT,700) M,IZ(K),Z(J),Z(L),Z(L1),Z(I1),ACCEPT\r\n  190 CONTINUE\r\n  200 M = MSAVE - NROW\r\n      IF (M .GT. 0) WRITE (NOUT,740) UIM,NROW,M\r\nC\r\nC     WRITE EIGENVALUES TO OUTPUT FILE\r\nC\r\n      CALL GOPEN (ILAM(1),Z(IBUF1),WRT)\r\n      DO 210 I = 1,MSAVE\r\n      K  = KK + I\r\n      I2 = LL + IZ(K)\r\n      IF (.NOT.LZ(I2)) GO TO 210\r\n      IZZ = 2*IZ(K) - 1\r\n      L   = LLL + IZZ\r\n      LAM1(1) = DBLE(Z(L  ))\r\n      LAM1(2) = DBLE(Z(L+1))\r\n      CALL WRITE (ILAM(1),LAM1(1),4,1)\r\n  210 CONTINUE\r\n      CALL CLOSE (ILAM(1),EOFNRW)\r\n      IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 214\r\n      IF (NZERO .EQ. 0) GO TO 214\r\nC\r\nC     IF THIS IS THE FINAL (BUT NOT THE FIRST) NEIGHBORHOOD, THEN\r\nC     RE-WRITE THE EIGENVECTOR FILE PERTAINING TO ALL PRIOR\r\nC     NEIGHBORHOODS (ELIMINATE LEFT-HAND VECTORS)\r\nC\r\n  209 IF (IDIAG .NE. 0) WRITE (NOUT,810) NZERO,NORTHO\r\n      INIDUM = ISCR(10)\r\n      CALL OPEN  (*455,ISCR(10),Z(IBUF2),WRTREW)\r\n      CALL CLOSE (ISCR(10),REW)\r\n      J = NORD2\r\n      IF (NO B) J = 2*J\r\n      INIDUM = IPHI(1)\r\n      CALL OPEN (*455,IPHI(1),Z(IBUF1),0)\r\n      DO 212 I = 1,NZERO\r\n      CALL READ (*460,*211,IPHI(1),Z(IV2),NORD8+10,0,N3)\r\n      GO TO 470\r\n  211 CALL GOPEN (ISCR(10),Z(IBUF2),WRT)\r\n      CALL WRITE (ISCR(10),Z(IV2),J,1)\r\n  212 CALL CLOSE (ISCR(10),NOREW)\r\n      CALL CLOSE (IPHI(1),NOREW)\r\n      CALL OPEN  (*455,IPHI(1),Z(IBUF1),WRTREW)\r\n      CALL CLOSE (IPHI(1),REW)\r\n      INIDUM = ISCR(10)\r\n      CALL OPEN  (*455,ISCR(10),Z(IBUF2),0)\r\n      DO 213 I = 1,NZERO\r\n      CALL READ  (*460,*206,ISCR(10),Z(IV2),J+10,0,N3)\r\n      GO TO 470\r\n  206 CALL GOPEN (IPHI(1),Z(IBUF1),WRT)\r\n      CALL WRITE (IPHI(1),Z(IV2),J,1)\r\n  213 CALL CLOSE (IPHI(1),EOFNRW)\r\n      CALL CLOSE (ISCR(10),NOREW)\r\n      IF(NSWP(2) .LT. 0) GO TO 500\r\nC\r\nC     RECOVER PHYSICAL EIGENVECTORS, PRINT, AND WRITE TO OUTPUT FILE\r\nC\r\n  214 IPRC = IPREC + 2\r\n      II   = 1\r\n      NN   = NORD2\r\n      INCR = 1\r\n      IA1  = IA - 1\r\n      IF (QPR) WRITE (NOUT,750)\r\n      ISHFT = NORD2*IPREC\r\n      I1  = 0\r\nC\r\nC     ENTER LOOP\r\nC\r\n      DO 300 I = 1,MSAVE\r\n      K  = KK + I\r\n      I2 = LL + IZ(K)\r\n      IF (.NOT. LZ(I2)) GO TO 300\r\n      CALL GOPEN (ISCR(7),Z(IBUF2),RDREW)\r\n      IF (NZERO .GT. 0) CALL SKPREC (ISCR(7),NZERO)\r\n      DO 215 J = 1,NORD8\r\n      M = IV1X + J\r\n  215 Z(M) = 0.\r\nC\r\nC     SET POINTER TO ALLMAT OUTPUT VECTOR\r\nC\r\n      IB = IA1 + 2*MSAVE*(IZ(K)-1)\r\nC\r\nC     CYCLE THRU ALL ORTHOGONAL VECTORS\r\nC\r\n      DO 225 J = 1,MSAVE\r\nC\r\nC     NOTE.... Z(IV2) MAY BE LOADED DOUBLE-PRECISION....HIGHER DIGITS\r\nC              ARE NOT USED\r\nC     (HIGHER DIGITS MUST BE INCLUDED FOR THE D.P.MACHINES.  G.C/UNISYS)\r\nC\r\n      CALL UNPACK (*225,ISCR(7),Z(IV2))\r\n      KR = IB + 2*J - 1\r\n      KI = KR + 1\r\n      DO 220 MM = 1,NORD2,2\r\n      MR = IV2 + (MM-1)*IPREC\r\n      MI = MR  + IPREC\r\n      JR = IV1X+ MM\r\n      JI = JR  + 1\r\n      IF (.NOT.DPMACH) GO TO 216\r\n      MRD = (MR+1)/2\r\n      MID = MRD + 1\r\nC\r\nC     RECOVER RIGHT-HAND PHYSICAL EIGENVECTOR\r\nC\r\n      Z(JR) = Z(JR) + DZ(MRD)*Z(KR) - DZ(MID)*Z(KI)\r\n      Z(JI) = Z(JI) + DZ(MID)*Z(KR) + DZ(MRD)*Z(KI)\r\n      GO TO 217\r\n  216 Z(JR) = Z(JR) + Z(MR)*Z(KR) - Z(MI)*Z(KI)\r\n      Z(JI) = Z(JI) + Z(MI)*Z(KR) + Z(MR)*Z(KI)\r\n  217 MR = MR + ISHFT\r\n      MI = MR + IPREC\r\n      JR = JR + NORD4\r\n      JI = JR + 1\r\n      IF (.NOT.DPMACH) GO TO 218\r\n      MRD = (MR+1)/2\r\n      MID = MRD + 1\r\nC\r\nC     RECOVER LEFT-HAND PHYSICAL EIGENVECTOR\r\nC\r\n      Z(JR) = Z(JR) + DZ(MRD)*Z(KR) - DZ(MID)*Z(KI)\r\n      Z(JI) = Z(JI) + DZ(MID)*Z(KR) + DZ(MRD)*Z(KI)\r\n      GO TO 220\r\n  218 Z(JR) = Z(JR) + Z(MR)*Z(KR) - Z(MI)*Z(KI)\r\n      Z(JI) = Z(JI) + Z(MI)*Z(KR) + Z(MR)*Z(KI)\r\n  220 CONTINUE\r\n  225 CONTINUE\r\n      CALL CLOSE (ISCR(7),EOFNRW)\r\n      IF (.NOT.QPR) GO TO 230\r\n      I1  = I1 + 1\r\n      IZZ = 2*IZ(K) - 1\r\n      L   = LLL  + IZZ\r\n      MM  = IV1X + NORD8\r\n      WRITE (NOUT,760) I1,IZ(K),Z(L),Z(L+1),(Z(J),J=IV1,MM)\r\n      WRITE (NOUT,770)\r\nC\r\nC     EXPAND PHYSICAL EIGENVECTORS TO DOUBLE PRECISION FOR OUTPUT\r\nC\r\n  230 LIM1 = IV1  + NORD2\r\n      LIM2 = LIM1 + NORD4\r\n      INIDUM = IV1X + NORD4\r\n      DO 240 J = 1,NORD2\r\n      KI  = LIM1 - J\r\n      MI  = 2*KI - IV1X\r\n      MR  = MI - 1\r\n      MRD = (MR+1)/2\r\nC\r\nC     EXPAND RIGHT-HAND VECTOR\r\nC\r\n      Z(MI) = 0.\r\n      Z(MR) = Z(KI)\r\n      IF (DPMACH) DZ(MRD) = Z(KI)\r\n      KI  = LIM2 - J\r\n      MI  = 2*KI - INIDUM\r\n      MR  = MI - 1\r\n      MRD = (MR+1)/2\r\nC\r\nC     EXPAND LEFT -HAND VECTOR\r\nC\r\n      Z(MI) = 0.\r\n      Z(MR) = Z(KI)\r\n      IF (DPMACH) DZ(MRD) = Z(KI)\r\n  240 CONTINUE\r\n      IF (.NOT.QPR) GO TO 250\r\n      WRITE (NOUT,770)\r\n      LIM1 = IV1X + NORD4\r\n      WRITE (NOUT,780) (Z(J),J=IV1,LIM1)\r\n      WRITE (NOUT,770)\r\n      LIM2 = LIM1 + NORD4\r\n      LIM1 = LIM1 + 1\r\n      WRITE (NOUT,780) (Z(J),J=LIM1,LIM2)\r\n      WRITE (NOUT,770)\r\nC\r\nC     PERFORM SPECIAL NORMALIZATION OF VECTORS FOR OUTPUT\r\nC\r\n  250 CALL CNORM1 (Z(IV1),IKMB(2))\r\n      IF (QPR) WRITE (NOUT,790)\r\n      INIDUM = INIDUM + 1\r\n      CALL CNORM1 (Z(INIDUM),IKMB(2))\r\n      IF (QPR) WRITE (NOUT,790)\r\n      CALL GOPEN (IPHI(1),Z(IBUF1),WRT)\r\n      IF (JREG.LT.NOREG .AND. NFOUND.LT.NORD) GO TO 260\r\n      J = NORD2\r\n      IF (NO B) J = 2*J\r\n      CALL WRITE (IPHI(1),Z(IV1),J,1)\r\n      CALL CLOSE (IPHI(1),EOFNRW)\r\n      GO TO 300\r\nC\r\nC     MUST USE NORD8 TO WRITE FULL RIGHT AND LEFT EIGENVECTORS\r\nC\r\n  260 CALL WRITE (IPHI(1),Z(IV1),NORD8,1)\r\n      CALL CLOSE (IPHI(1),NOREW)\r\n  300 CONTINUE\r\n      GO TO 500\r\n  420 WRITE (NOUT,530) NAME\r\n      GO TO 500\r\n  430 WRITE (NOUT,540) M,NAME\r\n      GO TO 500\r\n  440 WRITE (NOUT,580) UWM\r\n      IF(NZERO.GT.0 .AND. JREG.EQ.NOREG) NSWP(2) = -1\r\n      GO TO 500\r\n  450 WRITE (NOUT,710) UWM,MSAVE\r\n      GO TO 500\r\n  455 CALL MESAGE (-1,INIDUM,NAME)\r\n  460 CALL MESAGE (-2,INIDUM,NAME)\r\n  470 CALL MESAGE (-8,INIDUM,NAME)\r\n  500 RETURN\r\nC\r\n  530 FORMAT (27H UNEXPECTED EOF ENCOUNTERED,2X,2A4)\r\n  540 FORMAT (22H UNEXPECTED WORD COUNT,I5,2X,2A4)\r\n  550 FORMAT (A29,' 3152', //5X,'SUBROUTINE ALLMAT OUTPUT EIGENVALUE',\r\n     1       I4,' IS NULL.',//)\r\n  560 FORMAT (A25,' 3153', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR IN ',\r\n     1       'SUBROUTINE ',A4,A2,'. NO ACTION TAKEN.',//)\r\n  570 FORMAT (A25,' 3154', //5X,'SIZE OF REDUCED PROBLEM DECREMENTED ',\r\n     1       'ONCE (NOW',I6,') DUE TO NULL ERROR ELEMENT.',//)\r\n  580 FORMAT (A25,' 3155', //5X,'REDUCED PROBLEM HAS VANISHED. NO ',\r\n     1       'ROOTS FOUND.',//)\r\n  590 FORMAT (A25,' 3156', //5X,'SIZE OF REDUCED PROBLEM RESTORED TO',\r\n     1       I8,' BECAUSE NEXT ERROR ELEMENT WAS ALSO NULL.', /5X,\r\n     3       'ERROR ELEMENT SET = ',2E16.8,//)\r\n  600 FORMAT (1H0,//7H CFEER4,//)\r\n  610 FORMAT (1H ,I10,36H SINGLE PRECISION WORDS OF OPEN CORE,\r\n     1       29H NOT USED (SUBROUTINE CFEER4))\r\n  620 FORMAT (4H ROW,I5,2(4X,2E16.8))\r\n  630 FORMAT (4H ROW,I5,2(4X,2D16.8))\r\n  640 FORMAT (1H0,26HREDUCED TRIDIAGONAL MATRIX, /(1H ,6E16.8))\r\n  650 FORMAT (1H0,//30H THEORETICAL EIGENVALUE ERRORS,\r\n     1       20X,18HD-SUB-M-PLUS-ONE =,2E16.8,/)\r\n  660 FORMAT (1H ,I5,E16.8,20X,2E16.8,10X,E16.8)\r\n  670 FORMAT (1H1,27X,39H*****  F E E R  *****  (FAST EIGENVALUE,\r\n     1       27H EXTRACTION ROUTINE)  *****, //4X,\r\n     2       24HSUMMARY FOR NEIGHBORHOOD,I3,3H OF,I3,1H.,10X,\r\n     3       21HNEIGHBORHOOD CENTER =,2E16.8,/)\r\n  680 FORMAT (4X,43HALL SOLUTIONS FOUND IN CURRENT NEIGHBORHOOD,\r\n     1       12H ARE LISTED.,/)\r\n  690 FORMAT (4X,7X,8HSOLUTION,7X,8HORDER OF,7X,8HDISTANCE,\r\n     1       10X,10HEIGENVALUE,14X,11HTHEORETICAL, /4X,\r\n     2       9X,6HNUMBER,5X,10HEXTRACTION,4X,11HFROM CENTER,\r\n     3       6X,4HREAL,9X,9HIMAGINARY,9X,5HERROR,12X,6HSTATUS,/)\r\n  700 FORMAT (4X,I12,I15,1P,E18.8,1P,3E15.7,7X,2A4)\r\n  710 FORMAT (A25,' 3163', //5X,'ALL',I6,' SOLUTIONS HAVE FAILED ',\r\n     1       'ACCURACY TEST. NO ROOTS FOUND.',//)\r\n  720 FORMAT (A29,' 3164',//5X,'ALL',I6,' SOLUTIONS ARE ACCEPTABLE.',//)\r\n  730 FORMAT (4X,37HREJECTED SOLUTIONS HAVE BEEN DELETED.,/)\r\n  740 FORMAT (A29,' 3165', //4X,I6,' SOLUTIONS HAVE BEEN ACCEPTED AND',\r\n     1       I4,' SOLUTIONS HAVE BEEN REJECTED.',//)\r\n  750 FORMAT (1H1,27X,39H*****  F E E R  *****  (FAST EIGENVALUE,\r\n     1       27H EXTRACTION ROUTINE)  *****,//\r\n     2       42X,37HE I G E N V E C T O R   S U M M A R Y,//1H ,\r\n     3       32(4H----),2H--)\r\n  760 FORMAT (1H ,8HSOLUTION,I4,8X,16HEXTRACTION ORDER,I4,\r\n     1       10X,10HEIGENVALUE,2X,1P,2E16.8, /(1H ,3(4X,1P,2E16.8)))\r\n  770 FORMAT (3H --,32(4H----))\r\n  780 FORMAT ((1H ,3(3X,2E16.8)))\r\n  790 FORMAT (1H  ,12HAFTER CNORM1)\r\n  800 FORMAT (1H  ,10X,5HRMS =,E16.8)\r\n  810 FORMAT (1H  ,33HLEFT-HAND EIGENVECTORS ELIMINATED,20X,2I8)\r\n      END\r\n"
  },
  {
    "path": "mis/cfer3d.f",
    "content": "      SUBROUTINE CFER3D (V1,V1L,V2,V2L,V3,V3L,V4,V4L,V5,V5L,ZB,ZC)\r\nC\r\nC     CFER3D IS A DOUBLE PRECISION ROUTINE (CALLED BY CFEER3) WHICH\r\nC     PERFORMS THE TRIDIAGONAL REDUCTION FOR THE COMPLEX FEER METHOD\r\nC\r\n      LOGICAL           SUCESS   ,NO B     ,SKIP     ,AGAIN     ,\r\n     1                  QPR      ,SYMMET\r\n      INTEGER           CDP      ,NAME(2)\r\n      DOUBLE PRECISION  V1(1)    ,V1L(1)   ,V2(1)    ,V2L(1)    ,\r\n     1                  V3(1)    ,V3L(1)   ,V4(1)    ,V4L(1)    ,\r\n     2                  V5(1)    ,V5L(1)   ,ZERO     ,DSAVE(2)  ,\r\n     3                  SS       ,LAMBDA   ,D(4)     ,A(2)\r\n      DIMENSION         ZB(1)    ,ZC(1)    ,S(8)\r\n      CHARACTER         UFM*23   ,UWM*25\r\n      COMMON  /XMSSG /  UFM      ,UWM\r\n      COMMON  /FEERAA/  IKMB(7,3),ILAM(7)  ,IPHI(7)  ,DUDXX     ,\r\n     1                  ISCR(11) ,DUMAA(84),MCBVEC(7)\r\n      COMMON  /FEERXC/  LAMBDA(2),SYMMET   ,MREDUC   ,NORD      ,\r\n     1                  IDIAG    ,EPSDUM(2),NORTHO   ,NORD2     ,\r\n     2                  NORD4    ,NORDP1   ,NSWP(2)  ,NO B      ,\r\n     3                  IT       ,TEN2MT   ,TENMHT   ,NSTART    ,\r\n     4                  QPR      ,REGDUM(2),NZERO    ,XCDUM(3)  ,\r\n     5                  NUMRAN\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /UNPAKX/  IPRC     ,II       ,NN       ,INCR\r\n      COMMON  /PACKX /  ITP1     ,ITP2     ,IIP      ,NNP       ,\r\n     1                  INCRP\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW    ,\r\n     1                  REW      ,NOREW    ,EOFNRW   ,RSP       ,\r\n     2                  RDP      ,CSP      ,CDP      ,SQR\r\n      EQUIVALENCE       (A(1),D(3))        ,(KSYSTM(2),NOUT)    ,\r\n     1                  (D(1),S(1))\r\n      DATA     ZERO  /  0.D0     /\r\n      DATA     NAME  /  4HCFER   ,4H3D     /\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     V1,V2,V3,V4,V5  = AREAS OF OPEN CORE DESIGNATED BY SUBROUTINE\r\nC                       CFEER3 AND USED INTERNALLY AS WORKING VECTORS,\r\nC                       USUALLY RIGHT-HANDED\r\nC     V1L,..,V5L      = SAME AS V1 THRU V5 BUT USUALLY LEFT-HANDED\r\nC     RESTRICTION ...   LEFT-HANDED VECTOR MUST IMMEDIATELY FOLLOW\r\nC                       CORRESPONDING RIGHT-HANDED VECTOR IN CORE\r\nC     ZB,ZC           = REQUIRED GINO BUFFERS\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     A        = DIAGONAL ELEMENTS OF REDUCED TRIDIAGONAL MATRIX\r\nC     D        = OFF-DIAG ELEMENTS OF REDUCED TRIDIAGONAL MATRIX\r\nC     AGAIN    = LOGICAL INDICATOR FOR CYCLING THRU LOGIC AGAIN WHEN\r\nC                NULL VECTOR TEST (D-BAR) FAILS\r\nC     SKIP     = LOGICAL INDICATOR FOR AVOIDING REDUNDANT OPERATIONS\r\nC     NORTHO   = TOTAL CURRENT NUMBER OF VECTOR PAIRS ON ORTHOGONAL\r\nC                VECTOR FILE\r\nC     NZERO    = NUMBER OF EIGENVECTOR PAIRS ON EIGENVECTOR FILE\r\nC                (RESTART AND PRIOR NEIGHBORHOODS)\r\nC     LANCOS   = LANCZOS ALGORITHM COUNTER\r\nC     NSTART   = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS\r\nC\r\n      IF (QPR) WRITE (NOUT,8887)\r\n 8887 FORMAT (1H1,50X,6HCFER3D, //)\r\nC\r\nC     SET PACK AND UNPACK CONSTANTS\r\nC\r\n      IPRC = CDP\r\n      INCR = 1\r\n      ITP1 = IPRC\r\n      ITP2 = ITP1\r\n      INCRP= INCR\r\n      II   = 1\r\n      IIP  = 1\r\nC\r\nC     NN AND NNP ARE SET LOCALLY\r\nC\r\n      CALL GOPEN (ISCR(7),ZB(1),WRTREW)\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      IF (NORTHO .EQ. 0) GO TO 20\r\nC\r\nC     LOAD AND RE-NORMALIZE ALL EXISTING VECTORS ON THE NASTRAN\r\nC     EIGENVECTOR FILE (INCLUDES ANY RESTART VECTORS AND ALL VECTORS\r\nC     OBTAINED IN PRIOR NEIGHBORHOODS). PACK THESE VECTORS ON\r\nC     THE ORTHOGONAL VECTOR SCRATCH FILE.\r\nC\r\n      CALL OPEN (*170,IPHI(1),ZC(1),0)\r\nC\r\nC     LEFT-HAND VECTOR IS STORED IMMEDIATELY AFTER RIGHT-HAND VECTOR\r\nC\r\n      NNP   = NORD2\r\n      NORD8 = 2*NORD4\r\n      DO 15 I = 1,NORTHO\r\n            IF (QPR) WRITE (NOUT,8802) I\r\n 8802       FORMAT (1H ,13(10H----------),/,' ORTHOGONAL VECTOR',I3)\r\n      CALL READ (*190,*5,IPHI(1),V1(1),NORD8+10,0,N3)\r\n      GO TO 210\r\n    5 IF (IDIAG .EQ. 0) GO TO 13\r\n      DO 8  J = 1,NORD4\r\n      IF (V1(J) .NE. ZERO) GO TO 13\r\n    8 CONTINUE\r\n      WRITE (NOUT,590) I\r\n   13 CONTINUE\r\n             IF (QPR) WRITE (NOUT,8803) (V1 (J),J=1,NORD2)\r\n             IF (QPR) WRITE (NOUT,8803) (V1L(J),J=1,NORD2)\r\n 8803        FORMAT (1H ,(1H ,4D25.16))\r\n      CALL CFNOR2 (V1(1),V1L(1),NORD2,0,D(1))\r\n      IF (IDIAG.NE.0 .AND. NORD2.LE.70) WRITE (NOUT,570) I,(V1(J),\r\n     1                     V1(J+1),V1L(J),V1L(J+1),J=1,NORD2,2)\r\n      CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      CALL PACK  (V1(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n   15 CONTINUE\r\n      CALL CLOSE (IPHI(1),NOREW)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,580) NORTHO,MCBVEC\r\nC\r\nC     GENERATE INITIAL PSEUDO-RANDOM VECTORS\r\nC\r\n   20 N3 = 3*NORD\r\n      IJ = 0\r\n      SS = 1.D0\r\n      NZERO  = NORTHO\r\n      NSTART = 0\r\n      LANCOS = 0\r\n      AGAIN  = .FALSE.\r\n      D(1) = ZERO\r\n      D(2) = ZERO\r\n   25 NUMRAN = NUMRAN + 1\r\n      DO 30  I = 1,NORD4\r\n      IJ = IJ + 1\r\n      SS = -SS\r\n      IF (I.GT.NORD2) GO TO 28\r\n      IF (I.GT.NORD ) GO TO 27\r\n      JJ = 2*I - 1\r\n      GO TO 30\r\n   27 JJ = 2*(I-NORD)\r\n      GO TO 30\r\n   28 IF (I.GT.N3) GO TO 29\r\n      JJ = 2*I - 1 - NORD2\r\n      GO TO 30\r\n   29 JJ = 2*(I-N3) + NORD2\r\nC\r\nC     THIS LOADS VALUES INTO V1 AND V1L\r\nC\r\n  30  V1(JJ) = SS*(MOD(IJ,3)+1)/(3.D0*\r\n     1         (MOD(IJ,13)+1)*(1+5.0D0*FLOAT(I)/NORD))\r\n      IF (QPR) WRITE (NOUT,8844) (V1(I),I=1,NORD4)\r\n 8844 FORMAT (1H0,13(10H----------)/(1H ,4D25.16))\r\n      IF (QPR) WRITE (NOUT,8845)\r\n 8845 FORMAT (1H ,13(10H----------))\r\nC\r\nC     NORMALIZE RIGHT AND LEFT START VECTORS\r\nC\r\n      CALL CFNOR2 (V1(1),V1L(1),NORD2,0,D(1))\r\nC\r\nC     REORTHOGONALIZE START VECTORS W.R.T. RESTART AND\r\nC     PRIOR-NEIGHBORHOOD VECTORS\r\nC\r\n      CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     1             V1(1),V1L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1))\r\n      IF (SUCESS) GO TO  40\r\n      IF (AGAIN ) GO TO 160\r\n   35 NSTART = NSTART + 1\r\n      IF (NSTART .LE. 2) GO TO 25\r\n      WRITE (NOUT,600) UWM,LAMBDA\r\n      GO TO 450\r\n   40 IF (AGAIN) GO TO 90\r\nC\r\nC     SWEEP START VECTORS CLEAN OF ZERO-ROOT EIGENVECTORS\r\nC\r\n      CALL CFE2AO (.FALSE.,V1 (1),V2 (1),V3 (1),ZB(1))\r\n      CALL CFE2AO (.TRUE .,V1L(1),V2L(1),V3L(1),ZB(1))\r\nC\r\nC     NORMALIZE THE PURIFIED VECTOR AND OBTAIN D(1)\r\nC\r\n      CALL CFNOR2 (V2(1),V2L(1),NORD2,0,D(1))\r\n      IF (NZERO.EQ.0 .OR. NORTHO.GT.NZERO) GO TO 50\r\nC\r\nC     IF RESTART OR BEGINNING OF NEXT NEIGHBORHOOD, PERFORM\r\nC     REORTHOGONALIZATION AND RENORMALIZATION\r\nC\r\n      CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     2             V2(1),V2L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1))\r\n      IF (.NOT.SUCESS) GO TO 35\r\n      CALL CFNOR2 (V2(1),V2L(1),NORD2,0,D(1))\r\nC\r\nC     LOAD FIRST VECTORS TO ORTHOGONAL VECTOR FILE\r\nC\r\n   50 CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      NNP = NORD2\r\n      CALL PACK (V2(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      NORTHO = NORTHO + 1\r\nC\r\nC     COMMENCE LANCZOS ALGORITHM\r\nC\r\nC     INITIALIZE BY CREATING NULL VECTOR\r\nC\r\n      DO 60  I = 1,NORD2\r\n      V1 (I) = ZERO\r\n   60 V1L(I) = ZERO\r\n      SKIP   =.FALSE.\r\nC\r\nC     ENTER LANCZOS LOOP\r\nC\r\n   70 LANCOS = LANCOS + 1\r\nC\r\nC     GENERATE DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX\r\nC\r\n      IF (.NOT.SKIP) CALL CFE2AO (.FALSE.,V2(1),V3(1),V5(1),ZB(1))\r\n      SKIP = .FALSE.\r\n      CALL CFNOR2 (V3(1),V2L(1),NORD2,1,A(1))\r\nC\r\nC     COMPUTE D-BAR\r\nC\r\n      CALL CFE2AO (.TRUE.,V2L(1),V3L(1),V5(1),ZB(1))\r\n      DO 80 I = 1,NORD2,2\r\n      J = I + 1\r\n      V4(I)  = V3(I)  - A(1)*V2(I)  + A(2)*V2(J)\r\n     2                - D(1)*V1(I)  + D(2)*V1(J)\r\n      V4(J)  = V3(J)  - A(1)*V2(J)  - A(2)*V2(I)\r\n     2                - D(1)*V1(J)  - D(2)*V1(I)\r\n      V4L(I) = V3L(I) - A(1)*V2L(I) + A(2)*V2L(J)\r\n     2                - D(1)*V1L(I) + D(2)*V1L(J)\r\n   80 V4L(J) = V3L(J) - A(1)*V2L(J) - A(2)*V2L(I)\r\n     2                - D(1)*V1L(J) - D(2)*V1L(I)\r\n      CALL CFNOR2 (V4(1),V4L(1),NORD2,2,D(1))\r\n      DSAVE(1) = D(1)\r\n      DSAVE(2) = D(2)\r\nC\r\nC     TEST IF LANCZOS ALGORITHM FINISHED\r\nC\r\n      IF (LANCOS .EQ. MREDUC) GO TO 150\r\n      IF (.NOT.QPR) GO TO 85\r\n      WRITE (NOUT,8845)\r\n      WRITE (NOUT,8886) D\r\n 8886 FORMAT (8H D-BAR =,2D16.8,9X,3HA =,2D16.8)\r\n      WRITE (NOUT,8844) (V4 (I),I=1,NORD2)\r\n      WRITE (NOUT,8844) (V4L(I),I=1,NORD2)\r\n      WRITE (NOUT,8845)\r\n   85 CONTINUE\r\nC\r\nC     NULL VECTOR TEST\r\nC\r\n      IF (DSQRT(D(1)**2+D(2)**2) .GT.\r\n     1    DSQRT(A(1)**2+A(2)**2)*DBLE(TENMHT)) GO TO 100\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,610) D\r\n      AGAIN = .TRUE.\r\n      GO TO 25\r\n   90 CALL CFE2AO (.FALSE.,V1 (1),V4 (1),V3 (1),ZB(1))\r\n      CALL CFE2AO (.TRUE .,V1L(1),V4L(1),V3L(1),ZB(1))\r\nC\r\nC     PERFORM REORTHOGONALIZATION\r\nC\r\n  100 CALL CFNOR2 (V4(1),V4L(1),NORD2,0,D(1))\r\n      CALL CF2ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     2             V4(1),V4L(1),V3(1),V3L(1),V5(1),V5L(1),ZB(1))\r\n      IF (.NOT.SUCESS) GO TO 160\r\nC\r\nC     NORMALIZE THE REORTHOGONALIZED VECTORS\r\nC\r\n      CALL CFNOR2 (V4(1),V4L(1),NORD2,0,D(1))\r\nC\r\nC     GENERATE OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX\r\nC\r\n      CALL CFE2AO (.FALSE.,V4(1),V3(1),V5(1),ZB(1))\r\n      SKIP = .TRUE.\r\n      CALL CFNOR2 (V3(1),V2L(1),NORD2,1,D(1))\r\n      IF (AGAIN) GO TO 105\r\nC\r\nC     NULL VECTOR TEST\r\nC\r\n      IF (DSQRT(D(1)**2+D(2)**2) .LE.\r\n     2    DSQRT(A(1)**2+A(2)**2)*DBLE(TENMHT)) GO TO 160\r\n      GO TO 110\r\n  105 AGAIN = .FALSE.\r\n      D(1) = ZERO\r\n      D(2) = ZERO\r\nC\r\nC     TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE\r\nC\r\n  110 CALL WRITE (ISCR(5),S(1),8,1)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D\r\nC\r\nC     LOAD CURRENT VECTORS TO ORTHOGONAL VECTOR FILE\r\nC\r\n      CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      NNP = NORD2\r\n      CALL PACK (V4(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      NORTHO = NORTHO + 1\r\nC\r\nC     TRANSFER (I+1)-VECTORS TO (I)-VECTORS AND CONTINUE LANCZOS LOOP\r\nC\r\n      DO 130  I = 1,NORD2\r\n      V1 (I) = V2 (I)\r\n      V1L(I) = V2L(I)\r\n      V2 (I) = V4 (I)\r\n  130 V2L(I) = V4L(I)\r\n      GO TO 70\r\nC\r\nC     TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE\r\nC\r\n  150 IF (D(1).NE.ZERO .OR. D(2).NE.ZERO) GO TO 155\r\n      D(1) = DSAVE(1)\r\n      D(2) = DSAVE(2)\r\n  155 CALL WRITE (ISCR(5),S(1),8,1)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D\r\n      GO TO 450\r\n  160 MREDUC = LANCOS\r\n      WRITE (NOUT,500) UWM,MREDUC,LAMBDA\r\n      IF (.NOT.AGAIN) GO TO 150\r\n      D(1) = ZERO\r\n      D(2) = ZERO\r\n      GO TO 150\r\n  170 I = -1\r\n  180 CALL MESAGE (I,IPHI(1),NAME)\r\n  190 I = -2\r\n      GO TO 180\r\n  210 I = -8\r\n      GO TO 180\r\n  450 RETURN\r\nC\r\n  500 FORMAT (A25,' 3157',//5X,'FEER PROCESS MAY HAVE CALCULATED FEWER',\r\n     1       ' ACCURATE MODES',I5,' THAN REQUESTED IN THE NEIGHBORHOOD',\r\n     2       ' OF',2D14.6//)\r\n  560 FORMAT (36H REDUCED TRIDIAGONAL MATRIX ELEMENTS,5X,3HROW,I4, /10X,\r\n     2       14HOFF-DIAGONAL =,2D24.16, /14X,10HDIAGONAL =,2D24.16)\r\n  570 FORMAT (18H0ORTHOGONAL VECTOR,I4, /1H0,23X,5HRIGHT,56X,4HLEFT, //,\r\n     1       2(1H ,2D25.16,10X,2D25.16))\r\n  580 FORMAT (1H0,I10,32H ORTHOGONAL VECTOR PAIRS ON FILE,5X,12X,6I8,/)\r\n  590 FORMAT (18H ORTHOGONAL VECTOR,I4,8H IS NULL)\r\n  600 FORMAT (A25,' 3158',//5X,'NO ADDITIONAL MODES CAN BE FOUND BY ',\r\n     1       'FEER IN THE NEIGHBORHOOD OF ',2D14.6,//)\r\n  610 FORMAT (14H D-BAR IS NULL,10X,4D20.12)\r\n      END\r\n"
  },
  {
    "path": "mis/cfer3s.f",
    "content": "      SUBROUTINE CFER3S (V1,V1L,V2,V2L,V3,V3L,V4,V4L,V5,V5L,ZB,ZC)\r\nC\r\nC     CFER3S IS A SINGLE PRECISION ROUTINE (CALLED BY CFEER3) WHICH\r\nC     PERFORMS THE TRIDIAGONAL REDUCTION FOR THE COMPLEX FEER METHOD\r\nC\r\n      LOGICAL           SUCESS   ,NO B     ,SKIP     ,AGAIN      ,\r\n     1                  QPR      ,SYMMET\r\n      INTEGER           CSP      ,NAME(2)\r\n      REAL              LAMBDA   ,TEMP1(2)\r\n      DOUBLE PRECISION  TEMP2\r\n      DIMENSION         ZB(1)    ,ZC(1)    ,S(8)     ,A(2)       ,\r\n     1                  V1(1)    ,V1L(1)   ,V2(1)    ,V2L(1)     ,\r\n     2                  V3(1)    ,V3L(1)   ,V4(1)    ,V4L(1)     ,\r\n     3                  V5(1)    ,V5L(1)   ,DSAVE(2) ,D(4)\r\n      CHARACTER         UFM*23   ,UWM*25\r\n      COMMON  /XMSSG /  UFM      ,UWM\r\n      COMMON  /FEERAA/  IKMB(7,3),ILAM(7)  ,IPHI(7)  ,DUDXX      ,\r\n     1                  ISCR(11) ,DUMAA(84),MCBVEC(7)\r\n      COMMON  /FEERXC/  LAMBDA(4),SYMMET   ,MREDUC   ,NORD       ,\r\n     1                  IDIAG    ,EPSDUM(2),NORTHO   ,NORD2      ,\r\n     2                  NORD4    ,NORDP1   ,NSWP(2)  ,NO B       ,\r\n     3                  IT       ,TEN2MT   ,TENMHT   ,NSTART     ,\r\n     4                  QPR      ,REGDUM(2),NZERO    ,XCDUM(3)   ,\r\n     5                  NUMRAN\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /UNPAKX/  IPRC     ,II       ,NN       ,INCR\r\n      COMMON  /PACKX /  ITP1     ,ITP2     ,IIP      ,NNP        ,\r\n     1                  INCRP\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW     ,\r\n     1                  REW      ,NOREW    ,EOFNRW   ,RSP        ,\r\n     2                  RDP      ,CSP      ,CDP      ,SQR\r\n      EQUIVALENCE       (A(1),D(3))        ,(KSYSTM(2),NOUT )    ,\r\n     1                  (D(1),S(1))        ,(TEMP1(1) ,TEMP2)\r\n      DATA     ZERO  /  0.           /\r\n      DATA     NAME  /  4HCFER,4H3S  /\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     V1,V2,V3,V4,V5  = AREAS OF OPEN CORE DESIGNATED BY SUBROUTINE\r\nC                       CFEER3 AND USED INTERNALLY AS WORKING VECTORS,\r\nC                       USUALLY RIGHT-HANDED\r\nC     V1L,.......,V5L = SAME AS V1 THRU V5 BUT USUALLY LEFT-HANDED\r\nC     RESTRICTION ..... LEFT-HANDED VECTOR MUST IMMEDIATELY FOLLOW\r\nC                       CORRESPONDING RIGHT-HANDED VECTOR IN CORE\r\nC                       ALSO, V2 SHOULD FOLLOW V1L FOR READ TO WORK\r\nC     ZB,ZC           = REQUIRED GINO BUFFERS\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     A        = DIAGONAL ELEMENTS OF REDUCED TRIDIAGONAL MATRIX\r\nC     D        = OFF-DIAG ELEMENTS OF REDUCED TRIDIAGONAL MATRIX\r\nC     AGAIN    = LOGICAL INDICATOR FOR CYCLING THRU LOGIC AGAIN WHEN\r\nC                NULL VECTOR TEST (D-BAR) FAILS\r\nC     SKIP     = LOGICAL INDICATOR FOR AVOIDING REDUNDANT OPERATIONS\r\nC     NORTHO   = TOTAL CURRENT NUMBER OF VECTOR PAIRS ON ORTHOGONAL\r\nC                VECTOR FILE\r\nC     NZERO    = NUMBER OF EIGENVECTOR PAIRS ON EIGENVECTOR FILE\r\nC                (RESTART AND PRIOR NEIGHBORHOODS)\r\nC     LANCOS   = LANCZOS ALGORITHM COUNTER\r\nC     NSTART   = NUMBER OF INITIAL REORTHOGONALIZATION ATTEMPTS\r\nC\r\n      IF (QPR) WRITE (NOUT,8887)\r\n 8887 FORMAT (1H1,50X,6HCFER3S,/1H0)\r\nC\r\nC     SET PACK AND UNPACK CONSTANTS\r\nC\r\n      IPRC = CSP\r\n      INCR = 1\r\n      ITP1 = IPRC\r\n      ITP2 = ITP1\r\n      INCRP= INCR\r\n      II   = 1\r\n      IIP  = 1\r\nC\r\nC     NN AND NNP ARE SET LOCALLY\r\nC\r\n      CALL GOPEN (ISCR(7),ZB(1),WRTREW)\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      IF (NORTHO .EQ. 0) GO TO 20\r\nC\r\nC     LOAD AND RE-NORMALIZE ALL EXISTING VECTORS ON THE NASTRAN\r\nC     EIGENVECTOR FILE (INCLUDES ANY RESTART VECTORS AND ALL VECTORS\r\nC     OBTAINED IN PRIOR NEIGHBORHOODS). PACK THESE VECTORS ON\r\nC     THE ORTHOGONAL VECTOR SCRATCH FILE.\r\nC\r\n      CALL OPEN (*170,IPHI(1),ZC(1),0)\r\nC\r\nC     LEFT-HAND VECTOR IS STORED IMMEDIATELY AFTER RIGHT-HAND VECTOR\r\nC\r\n      NNP   = NORD2\r\n      NORD8 = 2*NORD4\r\n      DO 15 I = 1,NORTHO\r\n            IF (QPR) WRITE (NOUT,8802) I\r\n 8802       FORMAT(1H ,13(10H----------),/,18H ORTHOGONAL VECTOR,I3)\r\nC\r\nC     THIS LOADS VALUES INTO V1, V1L, V2, AND V2L\r\nC\r\n      CALL READ (*190,*5,IPHI(1),V1(1),NORD8+10,0,N3)\r\n      GO TO 210\r\nC\r\nC     COMPRESS PHYSICAL EIGENVECTORS TO SINGLE PRECISION\r\nC\r\n    5 DO 6 J = 1,NORD4\r\n      J2 = J*2\r\n      TEMP1(1) = V1(J2-1)\r\n      TEMP1(2) = V1(J2  )\r\n    6 V1(J) = TEMP2\r\n      IF (IDIAG .EQ. 0) GO TO 13\r\n      DO 8 J = 1,NORD4\r\n      IF (V1(J) .NE. ZERO) GO TO 13\r\n    8 CONTINUE\r\n      WRITE (NOUT,590) I\r\n   13 CONTINUE\r\n            IF (QPR) WRITE (NOUT,8803) (V1 (J),J=1,NORD2)\r\n            IF (QPR) WRITE (NOUT,8803) (V1L(J),J=1,NORD2)\r\n 8803       FORMAT (1H ,(1H ,4E25.16))\r\n      CALL CFNOR1 (V1(1),V1L(1),NORD2,0,D(1))\r\n      IF (IDIAG.NE.0 .AND. NORD2.LE.70) WRITE (NOUT,570) I,\r\n     1               (V1(J),V1(J+1),V1L(J),V1L(J+1),J=1,NORD2,2)\r\n      CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      CALL PACK  (V1(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n   15 CONTINUE\r\n      CALL CLOSE (IPHI(1),NOREW)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,580) NORTHO,MCBVEC\r\nC\r\nC     GENERATE INITIAL PSEUDO-RANDOM VECTORS\r\nC\r\n   20 N3 = 3*NORD\r\n      IJ = 0\r\n      SS = 1.\r\n      NZERO  = NORTHO\r\n      NSTART = 0\r\n      LANCOS = 0\r\n      AGAIN  = .FALSE.\r\n      D(1)   = ZERO\r\n      D(2)   = ZERO\r\n   25 NUMRAN = NUMRAN + 1\r\n      DO 30 I = 1,NORD4\r\n      IJ = IJ + 1\r\n      SS =-SS\r\n      IF (I .GT. NORD2) GO TO 28\r\n      IF (I .GT. NORD ) GO TO 27\r\n      JJ = 2*I - 1\r\n      GO TO 30\r\n   27 JJ = 2*(I-NORD)\r\n      GO TO 30\r\n   28 IF (I .GT. N3) GO TO 29\r\n      JJ = 2*I - 1 - NORD2\r\n      GO TO 30\r\n   29 JJ = 2*(I-N3) + NORD2\r\nC\r\nC     THIS LOADS VALUES INTO V1 AND V1L\r\nC\r\n   30 V1(JJ) = SS*(MOD(IJ,3)+1)/\r\n     1         (3.*(MOD(IJ,13)+1)*(1+5*FLOAT(I)/NORD))\r\n      IF (QPR) WRITE (NOUT,8844) (V1(I),I=1,NORD4)\r\n 8844 FORMAT (1H0,13(10H----------),/,(1H ,4E25.16))\r\n      IF (QPR) WRITE (NOUT,8845)\r\n 8845 FORMAT (1H ,13(10H----------))\r\nC\r\nC     NORMALIZE RIGHT AND LEFT START VECTORS\r\nC\r\n      CALL CFNOR1 (V1(1),V1L(1),NORD2,0,D(1))\r\nC\r\nC     REORTHOGONALIZE START VECTORS W.R.T. RESTART AND\r\nC     PRIOR-NEIGHBORHOOD VECTORS\r\nC\r\n      CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     2             V1(1),V1L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1))\r\n      IF (SUCESS) GO TO 40\r\n      IF (AGAIN ) GO TO 160\r\n   35 NSTART = NSTART + 1\r\n      IF (NSTART .LE. 2) GO TO 25\r\n      WRITE (NOUT,600) UWM,LAMBDA(1),LAMBDA(3)\r\n      GO TO 450\r\n   40 IF (AGAIN) GO TO 90\r\nC\r\nC     SWEEP START VECTORS CLEAN OF ZERO-ROOT EIGENVECTORS\r\nC\r\n      CALL CFE1AO (.FALSE.,V1 (1),V2 (1),V3 (1),ZB(1))\r\n      CALL CFE1AO (.TRUE .,V1L(1),V2L(1),V3L(1),ZB(1))\r\nC\r\nC     NORMALIZE THE PURIFIED VECTOR AND OBTAIN D(1)\r\nC\r\n      CALL CFNOR1 (V2(1),V2L(1),NORD2,0,D(1))\r\n      IF (NZERO.EQ.0 .OR. NORTHO.GT.NZERO) GO TO 50\r\nC\r\nC     IF RESTART OR BEGINNING OF NEXT NEIGHBORHOOD, PERFORM\r\nC     REORTHOGONALIZATION AND RENORMALIZATION\r\nC\r\n      CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     1             V2(1),V2L(1),V5(1),V5L(1),V3(1),V3L(1),ZB(1))\r\n      IF (.NOT.SUCESS) GO TO 35\r\n      CALL CFNOR1 (V2(1),V2L(1),NORD2,0,D(1))\r\nC\r\nC     LOAD FIRST VECTORS TO ORTHOGONAL VECTOR FILE\r\nC\r\n   50 CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      NNP = NORD2\r\n      CALL PACK  (V2(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      NORTHO = NORTHO + 1\r\nC\r\nC     COMMENCE LANCZOS ALGORITHM\r\nC\r\nC     INITIALIZE BY CREATING NULL VECTOR\r\nC\r\n      DO 60  I = 1,NORD2\r\n      V1 (I) = ZERO\r\n   60 V1L(I) = ZERO\r\n      SKIP = .FALSE.\r\nC\r\nC     ENTER LANCZOS LOOP\r\nC\r\n   70 LANCOS = LANCOS + 1\r\nC\r\nC     GENERATE DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX\r\nC\r\n      IF (.NOT.SKIP) CALL CFE1AO (.FALSE.,V2(1),V3(1),V5(1),ZB(1))\r\n      SKIP = .FALSE.\r\n      CALL CFNOR1 (V3(1),V2L(1),NORD2,1,A(1))\r\nC\r\nC     COMPUTE D-BAR\r\nC\r\n      CALL CFE1AO (.TRUE.,V2L(1),V3L(1),V5(1),ZB(1))\r\n      DO 80 I = 1,NORD2,2\r\n      J = I + 1\r\n      V4(I) = V3(I) - A(1)*V2(I) + A(2)*V2(J) - D(1)*V1(I) + D(2)*V1(J)\r\n      V4(J) = V3(J) - A(1)*V2(J) - A(2)*V2(I) - D(1)*V1(J) - D(2)*V1(I)\r\n      V4L(I) = V3L(I) - A(1)*V2L(I) + A(2)*V2L(J)\r\n     1                - D(1)*V1L(I) + D(2)*V1L(J)\r\n   80 V4L(J) = V3L(J) - A(1)*V2L(J) - A(2)*V2L(I)\r\n     1                - D(1)*V1L(J) - D(2)*V1L(I)\r\n      CALL CFNOR1 (V4(1),V4L(1),NORD2,2,D(1))\r\n      DSAVE(1) = D(1)\r\n      DSAVE(2) = D(2)\r\nC\r\nC     TEST IF LANCZOS ALGORITHM FINISHED\r\nC\r\n      IF (LANCOS .EQ. MREDUC) GO TO 150\r\n      IF (.NOT.QPR) GO TO 85\r\n      WRITE  (NOUT,8845)\r\n      WRITE  (NOUT,8886) D\r\n 8886 FORMAT (8H D-BAR =,2E16.8,9X,3HA =,2E16.8)\r\n      WRITE  (NOUT,8844) (V4 (I),I=1,NORD2)\r\n      WRITE  (NOUT,8844) (V4L(I),I=1,NORD2)\r\n      WRITE  (NOUT,8845)\r\n   85 CONTINUE\r\nC\r\nC     NULL VECTOR TEST\r\nC\r\n      IF (SQRT(D(1)**2+D(2)**2) .GT. SQRT(A(1)**2+A(2)**2)*TENMHT)\r\n     1    GO TO 100\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,610) D\r\n      AGAIN = .TRUE.\r\n      GO TO 25\r\n   90 CALL CFE1AO (.FALSE.,V1 (1),V4 (1),V3 (1),ZB(1))\r\n      CALL CFE1AO (.TRUE .,V1L(1),V4L(1),V3L(1),ZB(1))\r\nC\r\nC     PERFORM REORTHOGONALIZATION\r\nC\r\n  100 CALL CFNOR1 (V4(1),V4L(1),NORD2,0,D(1))\r\n      CALL CF1ORT (SUCESS,10,TEN2MT,NZERO,LANCOS,\r\n     1             V4(1),V4L(1),V3(1),V3L(1),V5(1),V5L(1),ZB(1))\r\n      IF (.NOT.SUCESS) GO TO 160\r\nC\r\nC     NORMALIZE THE REORTHOGONALIZED VECTORS\r\nC\r\n      CALL CFNOR1 (V4(1),V4L(1),NORD2,0,D(1))\r\nC\r\nC     GENERATE OFF-DIAGONAL ELEMENT OF REDUCED TRIDIAGONAL MATRIX\r\nC\r\n      CALL CFE1AO (.FALSE.,V4(1),V3(1),V5(1),ZB(1))\r\n      SKIP = .TRUE.\r\n      CALL CFNOR1 (V3(1),V2L(1),NORD2,1,D(1))\r\n      IF (AGAIN) GO TO 105\r\nC\r\nC     NULL VECTOR TEST\r\nC\r\n      IF (SQRT(D(1)**2+D(2)**2) .LE. SQRT(A(1)**2+A(2)**2)*TENMHT)\r\n     1    GO TO 160\r\n      GO TO 110\r\n  105 AGAIN = .FALSE.\r\n      D(1)  = ZERO\r\n      D(2)  = ZERO\r\nC\r\nC     TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE\r\nC\r\n  110 CALL WRITE (ISCR(5),S(1),4,1)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D\r\nC\r\nC     LOAD CURRENT VECTORS TO ORTHOGONAL VECTOR FILE\r\nC\r\n      CALL GOPEN (ISCR(7),ZB(1),WRT)\r\n      NNP = NORD2\r\n      CALL PACK  (V4(1),ISCR(7),MCBVEC(1))\r\n      CALL CLOSE (ISCR(7),NOREW)\r\n      NORTHO = NORTHO + 1\r\nC\r\nC     TRANSFER (I+1)-VECTORS TO (I)-VECTORS AND CONTINUE LANCZOS LOOP\r\nC\r\n      DO 130 I = 1,NORD2\r\n      V1 (I) = V2 (I)\r\n      V1L(I) = V2L(I)\r\n      V2 (I) = V4 (I)\r\n  130 V2L(I) = V4L(I)\r\n      GO TO 70\r\nC\r\nC     TRANSFER TWO ELEMENTS TO REDUCED TRIDIAGONAL MATRIX FILE\r\nC\r\n  150 IF (D(1).NE.ZERO .OR. D(2).NE.ZERO) GO TO 155\r\n      D(1) = DSAVE(1)\r\n      D(2) = DSAVE(2)\r\n  155 CALL WRITE (ISCR(5),S(1),4,1)\r\n      IF (IDIAG .NE. 0) WRITE (NOUT,560) LANCOS,D\r\n      GO TO 450\r\n  160 MREDUC = LANCOS\r\n      WRITE (NOUT,500) UWM,MREDUC,LAMBDA(1),LAMBDA(3)\r\n      IF (.NOT.AGAIN) GO TO 150\r\n      D(1) = ZERO\r\n      D(2) = ZERO\r\n      GO TO 150\r\nC\r\n  170 I = -1\r\n  180 CALL MESAGE (I,IPHI(1),NAME)\r\n  190 I = -2\r\n      GO TO 180\r\n  210 I = -8\r\n      GO TO 180\r\nC\r\n  450 RETURN\r\nC\r\n  500 FORMAT (A25,' 3157', //5X,'FEER PROCESS MAY HAVE CALCULATED ',\r\n     1       'FEWER ACCURATE MODES',I5,\r\n     2       ' THAN REQUESTED IN THE NEIGHBORHOOD OF ',2E14.6,//)\r\n  560 FORMAT (36H REDUCED TRIDIAGONAL MATRIX ELEMENTS,5X,3HROW,I4, /10X,\r\n     1        14HOFF-DIAGONAL =,2E24.16, /14X,10HDIAGONAL =,2E24.16)\r\n  570 FORMAT (1H0,17HORTHOGONAL VECTOR,I4, /1H0,23X,5HRIGHT,56X,4HLEFT,\r\n     1        //,(1H ,2E25.16,10X,2E25.16))\r\n  580 FORMAT (1H0,I10,32H ORTHOGONAL VECTOR PAIRS ON FILE,I5,12X,6I8,/)\r\n  590 FORMAT (18H ORTHOGONAL VECTOR,I4,8H IS NULL)\r\n  600 FORMAT (A25,' 3158', //5X,'NO ADDITIONAL MODES CAN BE FOUND BY ',\r\n     1       'FEER IN THE NEIGHBORHOOD OF ',2E14.6,//)\r\n  610 FORMAT (14H D-BAR IS NULL,10X,4E20.12)\r\n      END\r\n"
  },
  {
    "path": "mis/cfnor1.f",
    "content": "      SUBROUTINE CFNOR1 (RIGHT,LEFT,SIZE2,OPTION,RI)\r\nC\r\nC     CFNOR1 IS A SINGLE-PRECISION ROUTINE (CREATED FOR USE BY\r\nC     THE COMPLEX FEER METHOD) WHICH NORMALIZES A COMPLEX PAIR\r\nC     OF VECTORS TO MAGNITUDE UNITY\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     RIGHT    = ORIGINAL RIGHT-HANDED COMPLEX SINGLE PRECISION VECTOR\r\nC     LEFT     = ORIGINAL LEFT -HANDED COMPLEX SINGLE PRECISION VECTOR\r\nC     SIZE2    = LENGTH OF EITHER VECTOR IN SINGLE PRECISION WORDS\r\nC                (I.E., TWICE THE LENGTH OF THE COMPLEX VECTORS)\r\nC     OPTION   = 0  NORMALIZE THE INPUT VECTORS, AND OUTPUT THE\r\nC                   SQUARE ROOT OF THE INNER PRODUCT IN RI(2)\r\nC              = 1  ONLY OUTPUT INNER-PRODUCT, IN RI(2)\r\nC              = 2  ONLY OUTPUT SQUARE ROOT OF INNER-PRODUCT, IN RI(2)\r\nC\r\nC     DEFINITION OF OUTPUT PARAMETERS\r\nC\r\nC     RIGHT    = NORMALIZED RIGHT-HANDED VECTOR\r\nC     LEFT     = NORMALIZED LEFT -HANDED VECTOR\r\nC     RI       = INNER-PRODUCT, OR SQUARE ROOT OF INNER-PRODUCT (SEE\r\nC                OPTION)\r\nC\r\n      LOGICAL         SKIP     ,QPR\r\n      INTEGER         SIZE2    ,OPTION\r\n      REAL            LEFT\r\n      DIMENSION       RIGHT(1) ,LEFT(1)  ,RI(2)    ,RJ(2)\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /FEERXC/ DUMXC(21),QPR\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (KSYSTM(2),NOUT)\r\nC\r\n      SKIP = .FALSE.\r\nC\r\nC     COMPUTE INNER PRODUCT (LEFT*RIGHT)\r\nC\r\n    5 RI(1) = 0.\r\n      RI(2) = 0.\r\n      DO 10 I = 1,SIZE2,2\r\n      J = I + 1\r\n      RI(1) = RI(1) + LEFT(I)*RIGHT(I) - LEFT(J)*RIGHT(J)\r\n   10 RI(2) = RI(2) + LEFT(J)*RIGHT(I) + LEFT(I)*RIGHT(J)\r\n      IF (OPTION .EQ. 1) GO TO 50\r\n      IF (SKIP) GO TO 200\r\nC\r\nC     COMPUTE MAGNITUDE OF SQUARE ROOT\r\nC\r\n      RSQRT = SQRT(SQRT(RI(1)**2+RI(2)**2))\r\n      IF (RSQRT .GT. 0.) GO TO 30\r\n      WRITE  (NOUT,20) UWM\r\n   20 FORMAT (A25,' 3162', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR. ',\r\n     1       'NO ACTION TAKEN.'//)\r\n      GO TO 50\r\nC\r\nC     COMPUTE MODULUS OF SQUARE ROOT\r\nC\r\n   30 THETA2 = .5*ATAN2(RI(2),RI(1))\r\nC\r\nC     COMPUTE REAL AND IMAGINARY PARTS OF SQUARE ROOT OF INNER PRODUCT\r\nC\r\n      RI(1) = RSQRT*COS(THETA2)\r\n      RI(2) = RSQRT*SIN(THETA2)\r\n      IF (OPTION .EQ. 2) GO TO 50\r\n      RJ(1) = RI(1)\r\n      RJ(2) = RI(2)\r\nC\r\nC     INVERT THE ABOVE COMPLEX NUMBER (THETA2 IS DUMMY)\r\nC\r\n      THETA2= 1./(RI(1)**2+RI(2)**2)\r\n      RI(1) = RI(1)*THETA2\r\n      RI(2) =-RI(2)*THETA2\r\nC\r\nC     NORMALIZE THE INPUT VECTORS\r\nC\r\n      DO 40 I = 1,SIZE2,2\r\n      J = I + 1\r\n      THETA2   = RIGHT(I)\r\n      RIGHT(I) = RI(1)*RIGHT(I) - RI(2)*RIGHT(J)\r\n      RIGHT(J) = RI(2)*THETA2   + RI(1)*RIGHT(J)\r\n      THETA2   = LEFT(I)\r\n      LEFT(I)  = RI(1)*LEFT(I) - RI(2)*LEFT(J)\r\n   40 LEFT(J)  = RI(2)*THETA2  + RI(1)*LEFT(J)\r\nC\r\nC     ----------- SPECIAL PRINT ----------------------------------------\r\n      IF (.NOT.QPR) GO TO 45\r\n      SKIP = .TRUE.\r\n      GO TO 5\r\n  200 THETA2 = SQRT(RI(1)**2 + RI(2)**2)\r\n      WRITE  (NOUT,300) THETA2,RI\r\n  300 FORMAT (3H --,32(4H----), /,7H CFNOR1,6X,\r\n     1       16HOUTPUT MAGNITUDE,E16.8,8X,2E16.8, /,3H --,32(4H----))\r\n      WRITE  (NOUT,400) (RIGHT(I),I=1,SIZE2)\r\n  400 FORMAT ((1H ,4E25.16))\r\n      WRITE  (NOUT,500)\r\n  500 FORMAT (3H --,32(4H----))\r\n      WRITE  (NOUT,400) (LEFT(I),I=1,SIZE2)\r\n      WRITE  (NOUT,500)\r\nC     ------------------------------------------------------------------\r\nC\r\n   45 RI(1) = RJ(1)\r\n      RI(2) = RJ(2)\r\n   50 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cfnor2.f",
    "content": "      SUBROUTINE CFNOR2 (RIGHT,LEFT,SIZE2,OPTION,RI)\r\nC\r\nC     CFNOR2 IS A DOUBLE-PRECISION ROUTINE (CREATED FOR USE BY\r\nC     THE COMPLEX FEER METHOD) WHICH NORMALIZES A COMPLEX PAIR\r\nC     OF VECTORS TO MAGNITUDE UNITY\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     RIGHT    = ORIGINAL RIGHT-HANDED COMPLEX DOUBLE PRECISION VECTOR\r\nC     LEFT     = ORIGINAL LEFT -HANDED COMPLEX DOUBLE PRECISION VECTOR\r\nC     SIZE2    = LENGTH OF EITHER VECTOR IN DOUBLE PRECISION WORDS\r\nC                (I.E., TWICE THE LENGTH OF THE COMPLEX VECTORS)\r\nC     OPTION   = 0  NORMALIZE THE INPUT VECTORS, AND OUTPUT THE\r\nC                   SQUARE ROOT OF THE INNER PRODUCT IN RI(2)\r\nC              = 1  ONLY OUTPUT INNER-PRODUCT, IN RI(2)\r\nC              = 2  ONLY OUTPUT SQUARE ROOT OF INNER-PRODUCT, IN RI(2)\r\nC\r\nC     DEFINITION OF OUTPUT PARAMETERS\r\nC\r\nC     RIGHT    = NORMALIZED RIGHT-HANDED VECTOR\r\nC     LEFT     = NORMALIZED LEFT -HANDED VECTOR\r\nC     RI       = INNER-PRODUCT, OR SQUARE ROOT OF INNER-PRODUCT (SEE\r\nC                OPTION)\r\nC\r\n      LOGICAL          SKIP     ,QPR\r\n      INTEGER          SIZE2    ,OPTION\r\n      DOUBLE PRECISION RIGHT(1) ,LEFT(1)  ,RI(2)    ,RSQRT    ,\r\n     1                 THETA2   ,RJ(2)\r\n      CHARACTER        UFM*23   ,UWM*25\r\n      COMMON  /XMSSG / UFM      ,UWM\r\n      COMMON  /FEERXC/ DUMXC(21),QPR\r\n      COMMON  /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE      (KSYSTM(2),NOUT)\r\nC\r\n      SKIP = .FALSE.\r\nC\r\nC     COMPUTE INNER PRODUCT (LEFT*RIGHT)\r\nC\r\n    5 RI(1) = 0.D0\r\n      RI(2) = 0.D0\r\n      DO 10 I = 1,SIZE2,2\r\n      J = I + 1\r\n      RI(1) = RI(1) + LEFT(I)*RIGHT(I) - LEFT(J)*RIGHT(J)\r\n   10 RI(2) = RI(2) + LEFT(J)*RIGHT(I) + LEFT(I)*RIGHT(J)\r\n      IF (OPTION .EQ. 1) GO TO 50\r\n      IF (SKIP) GO TO 200\r\nC\r\nC     COMPUTE MAGNITUDE OF SQUARE ROOT\r\nC\r\n      RSQRT = DSQRT(DSQRT(RI(1)**2 + RI(2)**2))\r\n      IF (RSQRT .GT. 0.D0) GO TO 30\r\n      WRITE  (NOUT,20) UWM\r\n   20 FORMAT (A25,' 3162', //5X,'ATTEMPT TO NORMALIZE NULL VECTOR. ',\r\n     1        'NO ACTION TAKEN.'//)\r\n      GO TO 50\r\nC\r\nC     COMPUTE MODULUS OF SQUARE ROOT\r\nC\r\n   30 THETA2 = .5D0*DATAN2(RI(2),RI(1))\r\nC\r\nC     COMPUTE REAL AND IMAGINARY PARTS OF SQUARE ROOT OF INNER PRODUCT\r\nC\r\n      RI(1) = RSQRT*DCOS(THETA2)\r\n      RI(2) = RSQRT*DSIN(THETA2)\r\n      IF (OPTION .EQ. 2) GO TO 50\r\n      RJ(1) = RI(1)\r\n      RJ(2) = RI(2)\r\nC\r\nC     INVERT THE ABOVE COMPLEX NUMBER (THETA2 IS DUMMY)\r\nC\r\n      THETA2= 1.D0/(RI(1)**2 + RI(2)**2)\r\n      RI(1) = RI(1)*THETA2\r\n      RI(2) =-RI(2)*THETA2\r\nC\r\nC     NORMALIZE THE INPUT VECTORS\r\nC\r\n      DO 40 I = 1,SIZE2,2\r\n      J = I + 1\r\n      THETA2   = RIGHT(I)\r\n      RIGHT(I) = RI(1)*RIGHT(I) - RI(2)*RIGHT(J)\r\n      RIGHT(J) = RI(2)*THETA2   + RI(1)*RIGHT(J)\r\n      THETA2   = LEFT(I)\r\n      LEFT(I)  = RI(1)*LEFT(I)  - RI(2)*LEFT(J)\r\n   40 LEFT(J)  = RI(2)*THETA2   + RI(1)*LEFT(J)\r\nC\r\nC     ----------- SPECIAL PRINT ----------------------------------------\r\n      IF (.NOT.QPR) GO TO 45\r\n      SKIP = .TRUE.\r\n      GO TO 5\r\n  200 THETA2 = DSQRT(RI(1)**2 + RI(2)**2)\r\n      WRITE  (NOUT,300) THETA2,RI\r\n  300 FORMAT (3H --,32(4H----), /,7H CFNOR2,26X,\r\n     1       16HOUTPUT MAGNITUDE,D16.8,8X,2D16.8, /,3H --,32(4H----))\r\n      WRITE  (NOUT,400) (RIGHT(I),I=1,SIZE2)\r\n  400 FORMAT ((1H ,4D25.16))\r\n      WRITE  (NOUT,500)\r\n  500 FORMAT (3H --,32(4H----))\r\n      WRITE  (NOUT,400) (LEFT(I),I=1,SIZE2)\r\n      WRITE  (NOUT,500)\r\nC     ------------------------------------------------------------------\r\nC\r\n   45 RI(1) = RJ(1)\r\n      RI(2) = RJ(2)\r\n   50 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/chkopn.f",
    "content": "      SUBROUTINE CHKOPN (NAME)\r\nC\r\nC     CHECKS IF A CALL TO SOFOPN HAS BEEN MADE.\r\nC\r\n      LOGICAL         OPNSOF\r\n      DIMENSION       NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SOFCOM/ SOFDUM(25),OPNSOF\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\nC\r\n      IF (OPNSOF) GO TO 20\r\n      WRITE  (NOUT,10) UFM,NAME\r\n   10 FORMAT (A23,' 6204, SUBROUTINE ',2A4,' - THE SUBROUTINE SOFOPN ',\r\n     1       'SHOULD BE CALLED PRIOR TO ANY OF THE SOF UTILITY ',\r\n     2       'SUBROUTINES.')\r\n      CALL MESAGE (-61,0,0)\r\n   20 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cidck.f",
    "content": "      SUBROUTINE CIDCK (Z,BUF,NOPEN)\r\nC\r\nC     BULK DATA CARD COORDINATE CHECK\r\nC     THIS ROUTINE IS CALLED ONLY BY IFP, IN LINK1\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   9/1989\r\nC\r\nC     LIST OF NASTRAN BULK DATA CARDS THAT REFERENCE COORDINATE CID -\r\nC\r\nC     BULK DATA      CID      NO. OF     GINO         LOCATE\r\nC     CARD           FIELD    WORDS      FILE         INDEX\r\nC     ----------   -------   -------   ---------   ------------\r\nC     AXIF            1          1       AXIC         8815,88\r\nC     BFIELD          1          2       GEOM1        3101,31\r\nC     CEMLOOP*        13        13       GEOM3        3109,31\r\nC     CONM2           3         13       GEOM2        1501,15\r\nC     CORD1C          1          6       GEOM1        1701,17\r\nC     CORD1R          1          6       GEOM1        1801,18\r\nC     CORD1S          1          6       GEOM1        1901,19\r\nC     CORD2C          1,4       13       GEOM1        2001,20\r\nC     CORD2R          1,4       13       GEOM1        2101,21\r\nC     CORD2S          1,4       13       GEOM1        2201,22\r\nC     FORCE           3          7       GEOM3        4201,42\r\nC     GEMLOOP*        3          -       GEOM3        3309,33\r\nC     GRAV            2          6       GEOM3        4401,44\r\nC     GRID/GRDSET     2,6        8       GEOM1        4501,45\r\nC     GRIDB           3          5       GEOM1        8115,81\r\nC     MDIPOLE*        2         10       GEOM3        3509,35\r\nC     MOMENT          3          7       GEOM3        4801,48\r\nC     PIHEX           3          7       EPT          7002,70\r\nC     PLOAD4          9         12       GEOM3        6709,67\r\nC     REMFLUX*        2          -       GEOM3        3409,34\r\nCWKBR 2/95 SPR94015 RFORCE    3     8       GEOM3        5509,55    \r\nC     RFORCE          3          7       GEOM3        5509,55    \r\nC     SPCFLD*         2          -       GEOM3        3209,32\r\nC\r\nC     * THE CID'S ON THESE CARDS CURRENTLY MUST BE ZERO OR BLANK, AND\r\nC       WERE CHECKED ALREADY IN IFS4P. THEREFORE THEY ARE NOT CHECKED\r\nC       HERE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL ANDF\r\n      LOGICAL  ABORT\r\n      INTEGER  AXIF(2),   BFIELD(2), CONM2(2),  CORD(2),   FORCE(2),\r\n     1         GRAV(2),   GRID(2),   GRIDB(2),  MOMENT(2), PIHEX(2),\r\n     2         PLOAD4(2), RFORCE(2),\r\n     3         Z(1),      BUF(1),    TRL(7),    NAME(2)\r\n      CHARACTER*7  CC,    PCC,       CAXIF,     CBFIEL,    CCONM2,\r\n     1         CCORD2,    CFORCE,    CGRAV,     CGRID,     CGRIDB,\r\n     2         CMMENT,    CPIHEX,    CPLOD4,    CRFORC\r\n      CHARACTER*23        UFM\r\n      COMMON   /XMSSG /   UFM\r\n      COMMON   /SYSTEM/   IBUF,      NOUT,      ABORT\r\n      COMMON   /TWO   /   TWO(1)\r\n      DATA     GEOM1,     GEOM2,     GEOM3,     EPT        /\r\n     1         201,       208,       209,       202        /,\r\n     2         AXIC,      NAME,      PCD,       PCC        /\r\n     3         215,       4HCIDC,    2HK , 0,   'XXXX   '  /\r\n      DATA     AXIF,      CAXIF  /   8815,88,   'AXIF   '  /\r\n     1         BFIELD,    CBFIEL /   3101,31,   'BFIELD '  /,\r\n     2         CONM2,     CCONM2 /   1501,15,   'CONM2  '  /\r\n     3         CORD,      CCORD2 /   1601,16,   'CORD2  '  /,\r\n     4         FORCE,     CFORCE /   4201,42,   'FORCE  '  /\r\n     5         GRAV,      CGRAV  /   4401,44,   'GRAV   '  /,\r\n     6         GRID,      CGRID  /   4501,45,   'GRID   '  /\r\n     7         GRIDB,     CGRIDB /   8115,81,   'GRIDB  '  /,\r\n     8         MOMENT,    CMMENT /   4801,48,   'MOMENT '  /\r\n     9         PIHEX,     CPIHEX /   7002,70,   'PIHEX  '  /,\r\n     O         PLOAD4,    CPLOD4 /   6709,67,   'PLOAD4 '  /\r\n     1         RFORCE,    CRFORC /   5509,55,   'RFORCE '  /\r\nC\r\nC\r\nC     OPEN GEOM1 AND SAVE ALL COORDINATE IDS IN Z(1) THRU Z(NCORD)\r\nC     AND REFERENCED COORD ID IN Z(NRID) THRU Z(NOPEN). NOPEN IS\r\nC     LENGTH OF THE AVAILABLE OPEN CORE.\r\nC     SORT AND CHECK ID UNIQUENESS\r\nC\r\n      NCORD= 1\r\n      NRID = NOPEN\r\n      FILE = GEOM1\r\n      CALL PRELOC (*960,BUF,GEOM1)\r\n      K = 6\r\n      DO 20 I = 1,6\r\n      CORD(1) = CORD(1)+100\r\n      CORD(2) = CORD(2)+1\r\n      IF (I .EQ. 4) K = 13\r\n      CALL LOCATE (*20,BUF,CORD(1),M)\r\n 10   CALL READ (*910,*20,GEOM1,Z(NCORD),K,0,M)\r\n      NCORD = NCORD+1\r\n      IF (I.LT.4 .OR. Z(NCORD+2).EQ.0) GO TO 10\r\n      Z(NRID) = Z(NCORD+2)\r\n      NRID  = NRID-1\r\n      GO TO 10\r\n 20   CONTINUE\r\n      NCORD = NCORD-1\r\n      NRID  = NRID +1\r\n      IF (NCORD .LE. 1) GO TO 60\r\n      CALL SORT (0,0,1,1,Z(1),NCORD)\r\n      J = 1\r\n      DO 50 I = 2,NCORD\r\n      IF (Z(I) .NE. Z(I-1)) GO TO 40\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,30) UFM,Z(I)\r\n 30   FORMAT (A23,' 328, DUPLICATE COORDINATE ID',I9)\r\n      GO TO 50\r\n 40   J = J+1\r\n      Z(J) = Z(I)\r\n 50   CONTINUE\r\n      NCORD = J\r\nC\r\nC     IF CORD2C/R/S CARDS ARE PRESENT, CHECK REFERENCE COORDINATE ID\r\nC\r\n 60   IF (NRID .GT. NOPEN) GO TO 100\r\n      CC = CCORD2\r\n      DO 90 I = NRID,NOPEN\r\n      CID = Z(I)\r\n      IF (NCORD .LE. 0) GO TO 80\r\n      DO 70 J = 1,NCORD\r\n      IF (CID .EQ. Z(J)) GO TO 90\r\n 70   CONTINUE\r\n 80   CALL PAGE2 (-2)\r\n      WRITE (NOUT,830) UFM,CID,CC\r\n      ABORT = .TRUE.\r\n 90   CONTINUE\r\nC\r\nC     DOUBLE THE COORDINATE ID ARRAY FOR 'CIRCULAR' SEARCH, AND MOVE\r\nC     THE ARRAY TO HIGH END OF OPEN CORE, Z(II) THRU Z(NOPEN-1)\r\nC\r\n 100  II = NOPEN-2*NCORD-1\r\n      IF (NCORD .EQ. 0) GO TO 120\r\n      DO 110 I = 1,NCORD\r\n      Z(II+I      ) = Z(I)\r\n 110  Z(II+I+NCORD) = Z(I)\r\n 120  NZ = II\r\n      IM = II+NCORD\r\n      II = II+1\r\n      Z(NOPEN) = -999\r\nC\r\nC     CHECK CID ON GRID CARDS\r\nC\r\n      CC = CGRID\r\n      CALL LOCATE (*190,BUF,GRID(1),M)\r\n      NZX = (NZ/8)*8\r\n 130  CALL READ (*910,*140,GEOM1,Z(1),NZX,0,M)\r\n      M = NZX\r\n      IF (M .LE. 0) GO TO 190\r\n 140  PVCID = 0\r\n      ASSIGN 150 TO IRTN\r\n      I = -6\r\n 150  I = I+8\r\n      IF (I .GT. M) GO TO 160\r\n      CID = Z(I)\r\n      IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790\r\n      GO TO 150\r\n 160  PVCID = 0\r\n      ASSIGN 170 TO IRTN\r\n      I = -2\r\n 170  I = I+8\r\n      IF (I .GT. M) GO TO 180\r\n      CID = Z(I)\r\n      IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790\r\n      GO TO 170\r\n 180  IF (M .EQ. NZX) GO TO 130\r\nC\r\nC     CHECK GRIDB CARDS\r\nC\r\n 190  CC = CGRIDB\r\n      CALL LOCATE (*240,BUF,GRIDB(1),M)\r\n      NZX = (NZ/5)*5\r\n 200  CALL READ (*910,*210,GEOM1,Z(1),NZX,0,M)\r\n      M = NZX\r\n      IF (M .LE. 0) GO TO 240\r\n 210  PVCID = 0\r\n      ASSIGN 220 TO IRTN\r\n      I = -2\r\n 220  I = I+5\r\n      IF (I .GT. M) GO TO 230\r\n      CID = Z(I)\r\n      IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790\r\n      GO TO 220\r\n 230  IF (M .EQ. NZX) GO TO 200\r\nC\r\nC     CHECK BFIELD CARDS\r\nC\r\n 240  CC = CBFIEL\r\n      CALL LOCATE (*270,BUF,BFIELD(1),M)\r\n      CALL READ (*910,*250,GEOM1,Z(1),NZ,1,M)\r\n      GO TO 930\r\n 250  PVCID = 0\r\n      ASSIGN 260 TO IRTN\r\n      I = -1\r\n 260  I = I+2\r\n      IF (I .GT. M) GO TO 270\r\n      CID = Z(I)\r\n      IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790\r\n      GO TO 260\r\nC\r\nC     END OF GEOM1 PROCESSING\r\nC\r\n 270  CALL CLOSE (GEOM1,1)\r\nC\r\nC\r\nC     CHECK THE PRESENCE OF CONM2 CARDS IN GEOM2\r\nC\r\n      FILE = GEOM2\r\n      K = CONM2(2)\r\n      ASSIGN 300 TO JRTN\r\n      GO TO 860\r\n 300  IF (K .EQ. 0) GO TO 400\r\nC\r\nC     OPEN GEOM2, AND CHECK CONM2 CARDS\r\nC\r\n      CC = CCONM2\r\n      CALL PRELOC (*400,BUF,GEOM2)\r\n      CALL LOCATE (*350,BUF,CONM2(1),M)\r\n      NZX = (NZ/13)*13\r\n 310  CALL READ (*910,*320,GEOM2,Z(1),NZX,0,M)\r\n      M = NZX\r\n      IF (M .LE. 0) GO TO 350\r\n 320  PVCID = 0\r\n      ASSIGN 330 TO IRTN\r\n      I = -10\r\n 330  I = I+13\r\n      IF (I .GT. M) GO TO 340\r\n      CID = Z(I)\r\n      IF (CID.NE.0 .AND. CID.NE.PVCID) GO TO 790\r\n      GO TO 330\r\n 340  IF (M .EQ. NZX) GO TO 310\r\nC\r\n 350  CONTINUE\r\n      CALL CLOSE (GEOM2,1)\r\nC\r\nC\r\nC     CHECK THE PRESENCE OF BULK DATA CARDS IN GEOM3\r\nC     (FORCE, MOMENT, RFORCE, GRAV AND PLOAD4)\r\nC\r\n 400  FILE = GEOM3\r\n      K = FORCE(2)\r\n      ASSIGN 410 TO JRTN\r\n      GO TO 860\r\n 410  IF (K .NE. 0) GO TO 500\r\n      K = MOMENT(2)\r\n      ASSIGN 420 TO JRTN\r\n      GO TO 870\r\n 420  IF (K .NE. 0) GO TO 500\r\n      K = RFORCE(2)\r\n      ASSIGN 430 TO JRTN\r\n      GO TO 870\r\n 430  IF (K .NE. 0) GO TO 500\r\n      K = GRAV(2)\r\n      ASSIGN 440 TO JRTN\r\n      GO TO 870\r\n 440  IF (K .NE. 0) GO TO 500\r\n      K = PLOAD4(2)\r\n      ASSIGN 450 TO JRTN\r\n      GO TO 870\r\n 450  IF (K .NE. 0) GO TO 500\r\n      GO TO 650\r\nC\r\nC     OPEN GEOM3, AND CHECK CID ON BULK DATA CARDS\r\nC\r\n 500  CALL PRELOC (*650,BUF,GEOM3)\r\n      CALL LOCATE (*510,BUF,FORCE(1),M)\r\n      CC = CFORCE\r\n      IB = 3\r\n      IC = 7\r\n      ASSIGN 510 TO KRTN\r\n      GO TO 600\r\n 510  CALL LOCATE (*520,BUF,MOMENT(1),M)\r\n      CC = CMMENT\r\n      IB = 3\r\n      IC = 7\r\n      ASSIGN 520 TO KRTN\r\n      GO TO 600\r\n 520  CALL LOCATE (*530,BUF,RFORCE(1),M)\r\n      CC = CRFORC\r\n      IB = 3\r\nCWKBR 2/95 SPR94015      IC = 8\r\n      IC = 7\r\n      ASSIGN 530 TO KRTN\r\n      GO TO 600\r\n 530  CALL LOCATE (*540,BUF,GRAV(1),M)\r\n      CC = CGRAV\r\n      IB = 2\r\n      IC = 6\r\n      ASSIGN 540 TO KRTN\r\n      GO TO 600\r\n 540  CALL LOCATE (*550,BUF,PLOAD4(1),M)\r\n      CC = CPLOD4\r\n      IB = 9\r\n      IC = 12\r\n      ASSIGN 550 TO KRTN\r\n      GO TO 600\r\n 550  CONTINUE\r\n      GO TO 630\r\nC\r\n 600  CALL READ (*910,*610,GEOM3,Z(1),NZ,1,M)\r\n      GO TO 930\r\n 610  ASSIGN 620 TO IRTN\r\n      I = IB-IC\r\n 620  I = I +IC\r\n      IF (I .GT. M) GO TO KRTN, (510,520,530,540,550)\r\n      CID = Z(I)\r\n      IF (CID .NE. 0) GO TO 800\r\n      GO TO 620\r\nC\r\n 630  CALL CLOSE (GEOM3,1)\r\nC\r\nC\r\nC     CHECK THE PRESENCE OF PIHEX CARD IN EPT. IF PRESENT, OPEN EPT,\r\nC     AND CHECK CID ON PIHEX CARDS\r\nC\r\n 650  FILE = EPT\r\n      K = PIHEX(2)\r\n      ASSIGN 660 TO JRTN\r\n      GO TO 860\r\n 660  IF (K .EQ. 0) GO TO 700\r\n      CALL PRELOC (*700,BUF,EPT)\r\n      CALL LOCATE (*690,BUF,PIHEX(1),M)\r\n      CALL READ (*910,*670,EPT,Z(1),NZ,1,M)\r\n      GO TO 930\r\n 670  CC = CPIHEX\r\n      ASSIGN 680 TO IRTN\r\n      I = -4\r\n 680  I = I+7\r\n      IF (I .GT. M) GO TO 690\r\n      CID = Z(I)\r\n      IF (CID .NE. 0) GO TO 800\r\n      GO TO 680\r\n 690  CALL CLOSE (EPT,1)\r\nC\r\nC\r\nC     CHECK THE PRESENCE OF AXIF CARD IN AXIC. IF PRESENT, OPEN AXIC,\r\nC     AND CHECK CID ON AXIF CARD. ONLY ONE AXIF CARD EXISTS\r\nC\r\n 700  FILE = AXIC\r\n      K = AXIF(2)\r\n      ASSIGN 710 TO JRTN\r\n      GO TO 860\r\n 710  IF (K .EQ. 0) GO TO 750\r\n      CALL PRELOC (*750,BUF,AXIC)\r\n      CALL LOCATE (*730,BUF,AXIF(1),M)\r\n      CALL READ (*910,*720,AXIC,CID,1,1,M)\r\n 720  CC = CAXIF\r\n      ASSIGN 730 TO IRTN\r\n      IF (CID .NE. 0) GO TO 800\r\n 730  CALL CLOSE (AXIC,1)\r\nC\r\n 750  RETURN\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO LOOK FOR CID MATCH\r\nC     CID ARRAY (DOUBLE) IS AT HIGH END OF CORE, Z(II) THRU Z(NOPEN)\r\nC\r\n 790  PVCID = CID\r\n 800  IF (CID .EQ. Z(II)) GO TO 850\r\n      IF (NCORD  .LE.  1) GO TO 820\r\n      IE = II+NCORD-1\r\n      DO 810 J = II,IE\r\n      IF (CID .EQ. Z(J)) GO TO 840\r\n 810  CONTINUE\r\n 820  IF (CC.EQ.PCC .AND. CID.EQ.PCD) GO TO 850\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,830) UFM,CID,CC\r\n 830  FORMAT (A23,' 328, UNDEFINED COORDINATE',I9,' IS REFERENCED BY A '\r\n     1,       A7,' CARD')\r\n      PCC = CC\r\n      PCD = CID\r\n      ABORT = .TRUE.\r\n      GO TO 850\r\n 840  II = J\r\n      IF (II .GT. IM) II = II-NCORD\r\n 850  GO TO IRTN, (150,170,220,260,330,620,680,730)\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO CHECK THE PRESENCE OF A PARTICULAR BULK DATA\r\nC     CARD\r\nC\r\n 860  TRL(1) = FILE\r\n      CALL RDTRL (TRL(1))\r\n 870  IF (TRL(1) .LT. 0) GO TO 880\r\n      J = (K-1)/16\r\n      L = K-16*J\r\n      IF (ANDF(TRL(J+2),TWO(L+16)) .NE. 0) GO TO 890\r\n 880  K = 0\r\n 890  GO TO JRTN, (300,410,420,430,440,450,660,710)\r\nC\r\nC     ERRORS\r\nC\r\n 910  J = -2\r\n      GO TO 950\r\n 930  J = -8\r\n 950  CALL MESAGE (J,FILE,NAME)\r\n 960  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cifsdd.f",
    "content": "      SUBROUTINE CIFSDD\r\nC\r\nC     THIS SUBROUTINE INITIALIZES THE CIFS1P, CIFS2P, CIFS3P,\r\nC     CIFS4P, AND CIFS5P COMMON BLOCKS.\r\nC\r\n      INTEGER B1, BARDF2, BARDF5, BARDF6, BARDF7, BARDF8\r\n      INTEGER G1\r\nC\r\n      LOGICAL SLOT\r\n      LOGICAL FPHYS, FPHYS1, DMIFLG, FTHRU, FPHYS2\r\n      LOGICAL GRDMSG, LH, IDFREQ\r\n      LOGICAL LFLSYM, FFPHYS\r\nC\r\n      COMMON /CIFS1P/ B1, BARDF2, BARDF5, BARDF6, BARDF7, BARDF8,\r\n     1                KM1, SLOT, IDRDL\r\n      COMMON /CIFS2P/ FPHYS, FPHYS1, KM2, DMIFLG, IBCDS, FTHRU, FPHYS2\r\n      COMMON /CIFS3P/ GRDMSG, LA1, L7, KM3, L0, G1, LH,\r\n     1                IGDST2, IGDST6, IGDST7, IGDST8, IDDSF,\r\n     2                IDFREQ, IDRAD, NVAR, IDS, JMS, KMS, LPLF\r\n      COMMON /CIFS4P/ J(20), KM4, LFLSYM, FFPHYS\r\n      COMMON /CIFS5P/ KM5, IC, IP, ICONT, IAERO, IPOPT\r\nC\r\n      DATA ICC/1HC/, IPP/1HP/\r\nC\r\n      B1 = 1\r\n      BARDF2 = 0\r\n      BARDF5 = 0\r\n      BARDF6 = 0\r\n      BARDF7 = 0\r\n      BARDF8 = 0\r\n      KM1 = 0\r\n      SLOT = .FALSE.\r\n      IDRDL = 0\r\nC\r\n      FPHYS  = .TRUE.\r\n      FPHYS1 = .TRUE.\r\n      KM2 = 0\r\n      DMIFLG = .FALSE.\r\n      IBCDS = 0\r\n      FTHRU  = .FALSE.\r\n      FPHYS2 = .TRUE.\r\nC\r\n      GRDMSG = .FALSE.\r\n      LA1 = 0\r\n      L7  = 0\r\n      KM3 = 0\r\n      L0 = 1\r\n      G1 = 1\r\n      LH     = .TRUE.\r\n      IGDST2 = 0\r\n      IGDST6 = 0\r\n      IGDST7 = 0\r\n      IGDST8 = 0\r\n      IDDSF = 0\r\n      IDFREQ = .TRUE.\r\n      IDRAD = 0\r\n      NVAR  = 0\r\n      IDS = 0\r\n      JMS = 0\r\n      KMS = 0\r\n      LPLF = 0\r\nC\r\n      DO 100 I=3,20\r\n      J(I)  = 0\r\n  100 CONTINUE\r\n      J(1) = 20\r\n      J(2) = 2\r\n      KM4 = 0\r\n      LFLSYM = .FALSE.\r\n      FFPHYS = .TRUE.\r\nC\r\n      KM5 = 0\r\n      IC = ICC\r\n      IP = IPP\r\n      ICONT = 0\r\n      IAERO = 0\r\n      IPOPT = 0\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cinfbs.f",
    "content": "      SUBROUTINE CINFBS (DX,DY,IOBUF)\r\nC\r\nC     CINVFB DOES THE FORWARD AND BACKWARD PASS FOR COMPLEX INVERSE POWE\r\nC\r\n      INTEGER            NAME(2)   ,TYPEAR   ,CDP      ,IOBUF(1) ,EOL\r\n      DOUBLE PRECISION   DX(1)     ,DY(1)    ,DA       ,DTEMP\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP\r\n      COMMON   /ZNTPKX/  DA(2)     ,II       ,EOL\r\n      COMMON   /CINFBX/  IFILL(7)  ,IFILU(7)\r\n      EQUIVALENCE        (IFILL(3),NROW)\r\n      DATA      NAME  /  4HCINF, 4HBS   /\r\nC\r\nC     TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR\r\nC\r\n      TYPEAR = CDP\r\n      NROW2  = NROW + NROW\r\n      DO 10 I = 1,NROW2\r\n   10 DY(I) = DX(I)\r\nC\r\nC     BEGIN FORWARD PASS\r\nC\r\nC     CALL GOPEN (IFILL(1),IOBUF,RDREW)\r\n      J = 1\r\n  100 CALL INTPK (*200,IFILL(1),0,TYPEAR,0)\r\n  110 IF (EOL) 3010,120,3010\r\n  120 CALL ZNTPKI\r\n      IF (J-II) 184,130,110\r\nC\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC\r\n  130 IN1 = (J+IFIX(SNGL(DA(1))))*2 - 1\r\n      DTEMP     = DY(2*J-1)\r\n      DY(2*J-1) = DY(IN1)\r\n      DY(IN1)   = DTEMP\r\n      DTEMP     = DY(2*J)\r\n      DY(2*J)   = DY(IN1+1)\r\n      DY(IN1+1) = DTEMP\r\n  160 IF (EOL) 200,170,200\r\n  170 CALL ZNTPKI\r\n  184 DY(2*II-1) = DY(2*II-1) - DY(2*J-1)*DA(1) + DY(2*J)*DA(2)\r\n      DY(2*II  ) = DY(2*II  ) - DY(2*J-1)*DA(2) - DY(2*J)*DA(1)\r\n      GO TO 160\r\n  200 J = J + 1\r\n      IF (J .LT. NROW) GO TO 100\r\n      CALL REWIND (IFILL(1))\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      IOFF = IFILU(7) - 1\r\n      J = NROW\r\n  210 CALL INTPK (*3020,IFILU(1),0,TYPEAR,0)\r\n      IF (EOL) 3020,230,3020\r\n  230 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J) GO TO 275\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      DTEMP     = (DY(2*I-1)*DA(1)+DY(2*I)*DA(2))/(DA(1)**2+DA(2)**2)\r\n      DY(2*I  ) = (DY(2*I)*DA(1)-DY(2*I-1)*DA(2))/(DA(1)**2+DA(2)**2)\r\n      DY(2*I-1) = DTEMP\r\nC\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC\r\n  255 IF (I .GT. J) GO TO 230\r\n      IF (EOL) 300,270,300\r\n  270 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n  275 IN1 = I\r\n      IN2 = J\r\n      IF (I .LT. J) GO TO 279\r\n      K   = IN1\r\n      IN1 = IN2 - IOFF\r\n      IN2 = K\r\n  279 IN1 = IN1 + IN1 - 1\r\n      IN2 = IN2 + IN2 - 1\r\n      DY(IN1  ) = DY(IN1  ) - DY(IN2)*DA(1) + DY(IN2+1)*DA(2)\r\n      DY(IN1+1) = DY(IN1+1) - DY(IN2)*DA(2) - DY(IN2+1)*DA(1)\r\n      GO TO 255\r\n  300 J = J - 1\r\n      IF (J .GT. 0) GO TO 210\r\n      CALL REWIND (IFILU(1))\r\n      RETURN\r\nC\r\n 3010 IFILE = IFILL(1)\r\n      GO TO 3040\r\n 3020 IFILE = IFILU(1)\r\n 3040 CALL MESAGE (-5,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cinvp1.f",
    "content": "      SUBROUTINE CINVP1\r\nC*******\r\nC     CINVP1 INITIALIZES AND CALLS SUBROUTINE ADD FOR CINVPR\r\nC*******\r\n      DOUBLE PRECISION   ALPHA(2) ,BETA(2)  ,LAMBDA\r\n      INTEGER            SCR1     ,SCR2     ,SCR11     ,SQR\r\n      INTEGER            FILEK    ,FILEM    ,FILEB     ,CDP\r\n      INTEGER            IFILA(7) ,IFILB(7) ,IFILC(7)  ,CSP\r\n      INTEGER            SYSBUF   ,SWITCH\r\nC\r\n      COMMON   /CINVPX/  FILEK(7)  ,FILEM(7) ,FILEB(7) ,DUM(15)  ,\r\n     1                   SCR1      ,SCR2     ,SCR(8)   ,SCR11\r\n      COMMON   /CINVXX/  LAMBDA(2) ,SWITCH\r\n      COMMON   /SADDX /  NOMAT     ,NZ       ,MCBS(67)\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /NAMES /  DUMM(9)   ,CSP      ,CDP      ,SQR\r\n      COMMON   /SYSTEM/  SYSBUF\r\nC\r\n      EQUIVALENCE        ( MCBS( 1), IFILA(1) )\r\n     1                  ,( MCBS( 8), ITYPAL   )\r\n     1                  ,( MCBS(61), IFILC(1) )\r\n     1                  ,( MCBS(13), IFILB(1) )\r\n     1                  ,( MCBS(20), ITYPBT   )\r\n     1                  ,( MCBS(21), BETA(1)  )\r\n     1                  ,( MCBS( 9), ALPHA(1) )\r\nC*******\r\nC     FORM -(B+LAMBDA*M) ON SCR2\r\nC*******\r\n      NOMAT = 2\r\n      DO 10 I = 1,7\r\n      IFILA(I) = FILEM(I)\r\n   10 IFILB(I) = FILEB(I)\r\n      ALPHA(1) = -LAMBDA(1)\r\n      ALPHA(2) = -LAMBDA(2)\r\n      BETA(1)  = -1.D0\r\n      BETA(2)  = 0.D0\r\n      ITYPAL   = CDP\r\n      ITYPBT   = CDP\r\n      NZ = KORSZ(Z)\r\n      IF (SWITCH .EQ. -204) NZ = NZ - 2*SYSBUF\r\n      IFILC(1) = SCR2\r\n      IF (SWITCH .NE. 0) IFILC(1) = SCR11\r\n      IFILC(2) = FILEK(2)\r\n      IFILC(3) = FILEK(3)\r\n      IFILC(4) = 1\r\n      IFILC(5) = CDP\r\n      CALL SADD (Z,Z)\r\nC*******\r\nC     FORM (LAMBDA**2*M+LAMBDA*B+K) ON SCR1\r\nC*******\r\n      DO 30 I = 1,7\r\n   30 IFILA(I) = FILEK(I)\r\n      IFILB(1) = IFILC(1)\r\n      IFILB(2) = FILEK(2)\r\n      IFILB(3) = FILEK(3)\r\n      IFILB(4) = SQR\r\n      ALPHA(2) = 0.D0\r\n      BETA(1)  = -LAMBDA(1)\r\n      BETA(2)  = -LAMBDA(2)\r\n      IFILB(5) = CDP\r\n      ALPHA(1) = 1.D0\r\n      IFILC(1) = SCR1\r\n      CALL SADD (Z,Z)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cinvp2.f",
    "content": "      SUBROUTINE CINVP2 (*)\r\nC\r\nC     CINVP2 INITIALIZES AND CALLS CDCOMP FOR CINVPR\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,SCR1     ,\r\n     1                   SCR2      ,SCR3     ,SCR4     ,SCR5     ,\r\n     2                   SCR6      ,SCR7     ,SCR8     ,SWITCH   ,\r\n     3                   SR1FIL    ,SR2FIL   ,SR3FIL   ,SYSBUF   ,\r\n     5                   DUMM      ,CDP      ,SCR9\r\n      DOUBLE PRECISION   DET       ,MINDIA\r\n      COMMON   /CDCMPX/  FILEA(7)  ,FILEL(7) ,FILEU(7), SR1FIL   ,\r\n     1                   SR2FIL    ,SR3FIL   ,DET(2)   ,POWER    ,\r\n     2                   NZ        ,MINDIA   ,IB\r\n      COMMON   /CINVXX/  DUM(4)    ,SWITCH\r\n      COMMON   /CINVPX/  DUMM(36)  ,SCR1     ,SCR2     ,SCR3     ,\r\n     1                   SCR4      ,SCR5     ,SCR6     ,SCR7     ,\r\n     2                   SCR8      ,SCR9\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /NAMES /  IJ(10)    ,CDP\r\n      COMMON / SYSTEM /  SYSBUF\r\nC\r\n      IOFF     = FILEU(7)\r\n      FILEA(1) = SCR1\r\n      IF (SWITCH .EQ. 0) GO TO 10\r\n      FILEL(1) = SCR8\r\n      FILEU(1) = SCR9\r\n      IF (SWITCH .LT. 0) FILEA(1) = -FILEA(1)\r\n      IF (SWITCH .EQ. -204) GO TO 20\r\n      SWITCH   = 1\r\n      GO TO 20\r\n   10 FILEL(1) = SCR3\r\n      FILEU(1) = SCR4\r\n   20 SR1FIL   = SCR5\r\n      SR2FIL   = SCR6\r\n      SR3FIL   = SCR7\r\n      FILEA(2) = DUMM(3)\r\n      FILEA(3) = DUMM(3)\r\n      FILEA(4) = DUMM(4)\r\n      FILEA(5) = CDP\r\n      FILEA(6) = 0\r\n      FILEA(7) = 0\r\n      FILEL(5) = CDP\r\n      NZ       = KORSZ(Z)\r\n      IF (SWITCH .EQ. -204) NZ = NZ - 2*SYSBUF\r\n      IB       = 0\r\n      CALL CDCOMP (*30,Z,Z,Z)\r\n      IF (SWITCH  .NE. 0) FILEU(7) = IOFF\r\n      RETURN\r\nC\r\n   30 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/cinvp3.f",
    "content": "      SUBROUTINE CINVP3\r\nC\r\nC     SUBROUTINE CINVP3, THE MAIN LINK OF CINVPR, SOLVES FOR THE\r\nC     EIGENVALUES AND EIGENVECTORS OF (LAMBDA**2*M + LAMBDA*B*K)\r\nC\r\nC     TYPE DECLARATIONS\r\nC\r\n      INTEGER            COMFLG    ,REAL     ,END      ,FILEK\r\n      INTEGER            FILEB     ,FILELM   ,SCRFIL\r\n      INTEGER            SWITCH    ,CDP      ,FILEL    ,SR1FIL   ,\r\n     1                   FILEU     ,SR3FIL   ,SR4FIL   ,SR8FIL   ,\r\n     2                   SR9FIL    ,SYSBUF   ,NAME(2)  ,FILEVC   ,\r\n     3                   TIMED     ,TIMEIT   ,SQR      ,FILE(7)  ,\r\n     4                   SR2FIL    ,S11FIL   ,T1       ,T2\r\n      REAL               MAXMOD\r\n      DOUBLE PRECISION   DZ(1)     ,LMBDA    ,PLUS1(2)\r\n      DOUBLE PRECISION   LAMBDA    ,ALN(2)   ,ALNM1(2) ,ETA(2)   ,\r\n     1                   ETANM1(2) ,H2N(2)   ,H2NM1(2) ,LAM1     ,\r\n     2                   LM1NM1(2) ,LAM2(2)  ,LM2NM1(2),CON1(2)  ,\r\n     3                   CON2(2)   ,CN(2)    ,DELTA(2) ,XYZ(2)\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /CINVPX/  FILEK(7)  ,FILEM(7) ,FILEB(7) ,FILELM(7),\r\n     1                   FILEVC(7) ,DUDXX    ,SCRFIL(11)         ,\r\n     2                   NOREG     ,EPS\r\n      COMMON   /CINFBX/  FILEL(7)  ,FILEU(7)\r\n      COMMON   /CINVXX/  LAMBDA(2) ,SWITCH   ,COMFLG   ,LMBDA(2) ,\r\n     1                   ITERTO    ,TIMED    ,NOCHNG   ,RZERO    ,\r\n     2                   IND       ,IVECT    ,IREG     ,REAL     ,\r\n     3                   LEFT      ,NORTHO   ,NOROOT   ,NZERO    ,\r\n     4                   LAM1(2)   ,MAXMOD   ,NODES    ,NOEST    ,\r\n     5                   ISTART    ,IND1     ,ITER     ,ISYM\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR\r\n      COMMON   /CDCMPX/  XXYY(20)  ,IOFFF\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE        (FILEK(2),NCOL)     ,(SCRFIL(1),SR1FIL) ,\r\n     1                   (SCRFIL(2),SR2FIL)  ,(SCRFIL(3),SR3FIL) ,\r\n     2                   (SCRFIL(4),SR4FIL)  ,\r\n     4                   (SCRFIL(8),SR8FIL)  ,(SCRFIL(9),SR9FIL) ,\r\n     5                   (DZ(1),Z(1))        ,(SCRFIL(11),S11FIL)\r\n      DATA      NAME  /  4HCINV,4HP3   /\r\n      DATA      PLUS1 /  +1.D0 ,0.D0   /\r\nC\r\nC     DEFINITION OF LOCAL PARAMETERS\r\nC\r\nC     ITER     =\r\nC     IRAPID   =\r\nC     IEP2     =\r\nC     NCOUNT   =\r\nC     IEPCNT   =\r\nC     SWITCH   =\r\nC     A        =\r\nC     EP1      =\r\nC     EP2      =\r\nC     EP3      =\r\nC     GAMMA    =\r\nC     II1      =    POINTER TO U(N)\r\nC     II2      =    POINTER TO U(N-1) OR DELTA U(N)\r\nC     JJ1      =    POINTER TO F(N)\r\nC     JJ2      =    POINTER TO DELTA F(N-1)\r\nC     JJ3      =    POINTER TO F(N-1) OR DELTA F(N)\r\nC     JJ4      =\r\nC     JJ5      =\r\nC     KK1      =    POINTER TO V(N)\r\nC     KK2      =    POINTER TO V(N-1)\r\nC\r\n   10 CONTINUE\r\n      TIMEIT= 0\r\n      NZ    = KORSZ(Z)\r\n      NCOL2 = NCOL  + NCOL\r\n      NCOL4 = NCOL2 + NCOL2\r\nC\r\nC     INITIALIZE\r\nC\r\n      CN(1)  = 0.0D0\r\n      CN(2)  = 0.0D0\r\n      XYZ(1) = 0.0D0\r\n      XYZ(2) = 0.0D0\r\n      H2N(1) = 0.0D0\r\n      H2N(2) = 0.0D0\r\n      LAM2(1)= 0.0D0\r\n      LAM2(2)= 0.0D0\r\n      LAM1(1)= 0.0D0\r\n      LAM1(2)= 0.0D0\r\n      ITER   = 0\r\n      CALL KLOCK(T1)\r\n      IRAPID = 0\r\n      IEP2   = 0\r\n   20 NCOUNT = 0\r\n      IEPCNT = 0\r\n      IF (SWITCH .EQ. 1) GO TO 30\r\n      FILEL(1) = SR3FIL\r\n      FILEU(1) = SR4FIL\r\n      GO TO 40\r\n   30 FILEL(1) = SR8FIL\r\n      FILEU(1) = SR9FIL\r\n   40 FILEL(5) = CDP\r\n      FILEL(3) = FILEK(3)\r\n      FILEU(7) = IOFFF\r\n      FILE(4)  = SQR\r\n      FILE(5)  = CDP\r\nC\r\nC     SET CONVERGENCE CRITERIA\r\nC\r\n      A   = .1\r\n      CALL SSWTCH (12,IDIAG)\r\n      EP1 = .001\r\n      EP2 = .02\r\n      EP3 = .05\r\n      GAMMA = .01\r\nC\r\nC     INITILIZE POINTERS TO VECTORS\r\nC\r\n      II1 = 1\r\n      II2 = II1 + NCOL2\r\n      JJ1 = II2 + NCOL2\r\n      JJ2 = JJ1 + NCOL2\r\n      JJ3 = JJ2 + NCOL2\r\n      JJ5 = JJ3 + NCOL2\r\n      KK1 = JJ5 + NCOL2\r\n      KK2 = KK1 + NCOL2\r\n      KK3 = KK2 + NCOL2\r\n      KK4 = KK3 + NCOL2\r\n      KK5 = KK4 + NCOL2\r\n      KK6 = KK5 + NCOL2\r\n      LL1 = KK6 + NCOL2\r\n      LL2 = LL1 + NCOL2\r\n      END = (LL2 + NCOL2)*2\r\n      IOBUF = NZ - SYSBUF + 1\r\n      IBUF1 = IOBUF - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\nC     IBUF4 = IBUF3 - SYSBUF\r\nC     IBUF5 = IBUF4 - SYSBUF\r\nC     IBUF6 = IBUF5 - SYSBUF\r\nC     IF (END .GE. IBUF6) GO TO 240\r\nC     NZZ = IBUF6 - END\r\n      IF (END .GE. IBUF3) GO TO 600\r\n      NZZ = IBUF3 - END\r\nC     IFILE = FILEL(1)\r\nC     CALL OPEN (*610,FILEL,Z(IBUF4),0)\r\nC     IFILE = FILEU(1)\r\nC     CALL OPEN (*610,FILEU,Z(IBUF5),0)\r\nC     IFILE = FILEM(1)\r\nC     CALL OPEN (*610,FILEM,Z(IBUF6),0)\r\nC\r\nC     GENERATE A STARTING VECTOR\r\nC\r\nC     FORM U0\r\nC\r\n      IF (LEFT .EQ. 1) GO TO 500\r\n      LAM1(1) = 0.0D0\r\n      LAM1(2) = 0.0D0\r\n      GO TO 70\r\n   50 LAM1(1) = 0.0D0\r\n      LAM1(2) = 0.0D0\r\n      IF (NORTHO .EQ. 0) GO TO 70\r\nC\r\nC     TEST FOR INSUFFICIENT TIME\r\nC\r\n      CALL KLOCK  (ICURNT)\r\n      CALL TMTOGO (IIJJKK)\r\n      NAVG = (ICURNT-ISTART)/NORTHO\r\n      IF (IIJJKK .GE. 2*NAVG) GO TO 70\r\n   60 COMFLG = 8\r\n      GO TO 490\r\n   70 CONTINUE\r\n      IF (IVECT .EQ. 1) GO TO 90\r\n      K = IABS (IND)\r\n      DO 80 I = 1,NCOL2,2\r\n      DZ(I) = (MOD(K,13)+1)*(1+5*I/NCOL)\r\n      K = K + 1\r\n      DZ(I+1) = 0.D0\r\n   80 DZ(I  ) = 1.D0/DZ(I)\r\n      CALL CNORM1 (DZ(II1),NCOL)\r\nC\r\nC     FORM V0 = LAMBDA*U0\r\nC\r\n      GO TO 110\r\nC\r\nC     USE PREVIOUSLY STORED VECTOR FOR STARTING VECTOR\r\nC\r\n   90 IFILE = FILEVC(1)\r\n      CALL GOPEN  (FILEVC,Z(IOBUF),RD)\r\n      CALL BCKREC (FILEVC(1))\r\n      IN1 = 1\r\n      IF (COMFLG .NE. 1) GO TO 100\r\n      IN1 = JJ5\r\n      CALL BCKREC (FILEVC(1))\r\n  100 CALL FREAD  (FILEVC,DZ(IN1),NCOL4,1)\r\n      IF (COMFLG .EQ. 1) GO TO 140\r\n      CALL BCKREC (FILEVC(1))\r\n      CALL CLOSE  (FILEVC(1),NOREW)\r\n      IVECT = 0\r\n  110 CONTINUE\r\n      DO 120 IU = 1,NCOL2,2\r\n      J = KK1 + IU - 1\r\n      DZ(J  ) = DZ(IU)*LAMBDA(1) - DZ(IU+1)*LAMBDA(2)\r\n  120 DZ(J+1) = DZ(IU)*LAMBDA(2) + DZ(IU+1)*LAMBDA(1)\r\n      IF (NORTHO .EQ. 0) GO TO 150\r\n      CALL ORTHO (DZ(II1),DZ(KK1),DZ(KK2),DZ(KK3),DZ(KK4),DZ(KK5),\r\n     1            DZ(KK6),NZZ,Z(IOBUF),Z(IBUF1),Z(IBUF2),Z(IBUF3))\r\n      IF (FILEB(1) .NE. 0) GO TO 150\r\n      DO 130 IU = 1,NCOL2,2\r\n      J = KK1 + IU - 1\r\n      DZ(J  ) = DZ(IU)*LAMBDA(1) - DZ(IU+1)*LAMBDA(2)\r\n  130 DZ(J+1) = DZ(IU)*LAMBDA(2) + DZ(IU+1)*LAMBDA(1)\r\n      GO TO 150\r\nC\r\nC     PICK UP LAST ITERATED VECTOR FOR A STARTING VECTOR\r\nC\r\n  140 CALL FREAD  (FILEVC,DZ,NCOL4,1)\r\n      CALL SKPREC (FILEVC,-2)\r\n      CALL CLOSE  (FILEVC(1),NOREW)\r\n      GO TO 110\r\n  150 CONTINUE\r\n      CALL CM TIM U (DZ(II1),DZ(JJ1),0,Z(IOBUF))\r\n      IF (FILEB(1) .EQ. 0) GO TO 160\r\n      FILE(1) = FILEB(1)\r\n      CALL CM TIM U (DZ(II1),DZ(KK2),FILE,Z(IBUF1))\r\n      CON1(1) = 2.0D0*LAMBDA(1)\r\n      CON1(2) = 2.0D0*LAMBDA(2)\r\n      CALL CDIVID (PLUS1,CON2,CON1,2)\r\n      CON2(1) = -CON2(1)\r\n      CON2(2) = -CON2(2)\r\n      CALL CSUB (DZ(JJ1),DZ(KK2),DZ(JJ1),PLUS1,CON2)\r\n  160 CONTINUE\r\n      CALL CX TRN Y (DZ(II1),DZ(JJ1),ALN(1))\r\n      CALL CSQRTX (ALN(1),ALN(1))\r\nC\r\nC     COMPUTE THE R.H.S. OF THE SYSTEM OF EQUATIONS\r\nC\r\n  170 FILE(1) = SR2FIL\r\n      IF (SWITCH .EQ. 1) FILE(1) = S11FIL\r\n      CALL CM TIM U (DZ(II1),DZ(LL1),FILE(1),Z(IOBUF))\r\n      CALL CM TIM U (DZ(KK1),DZ(LL2),0      ,Z(IOBUF))\r\n      CALL CSUB (DZ(LL1),DZ(LL2),DZ(LL2),PLUS1(1),PLUS1(1))\r\nC\r\nC     SHIFT POINTERS\r\nC\r\n      II  = II1\r\n      II1 = II2\r\n      II2 = II\r\n      II  = JJ1\r\n      JJ1 = JJ2\r\n      JJ2 = JJ3\r\n      JJ3 = II\r\nC\r\nC     SAVE THE N-1 VECTOR\r\nC\r\n      IF (SWITCH .NE. 0) GO TO 190\r\n      IXX = JJ5 + NCOL2 - 1\r\n      IXZ = II2\r\n      DO 180 I = JJ5,IXX\r\n      DZ(I) = DZ(IXZ)\r\n  180 IXZ = IXZ + 1\r\n  190 CONTINUE\r\n      CALL TMTOGO (IXX)\r\n      IF (IXX .LE. 0) GO TO 60\r\nC\r\nC     SHIFT PARAMETERS\r\nC\r\n      ALNM1(1)  = ALN(1)\r\n      ALNM1(2)  = ALN(2)\r\n      ETANM1(1) = XYZ(1)\r\n      ETANM1(2) = XYZ(2)\r\n      H2NM1(1)  = H2N(1)\r\n      H2NM1(2)  = H2N(2)\r\n      LM1NM1(1) = LAM1(1)\r\n      LM1NM1(2) = LAM1(2)\r\n      LM2NM1(1) = LAM2(1)\r\n      LM2NM1(2) = LAM2(2)\r\nC\r\nC     CALL CINFBS TO MAKE ONE ITERATION\r\nC\r\n      CALL CINFBS (DZ(LL2),DZ(II1),Z(IOBUF))\r\n      ITERTO = ITERTO + 1\r\n      ITER   = ITER + 1\r\n      IEPCNT = IEPCNT + 1\r\n      CALL CNORM (DZ(II1),CN(1),DZ(II2))\r\nC\r\n      IF (IDIAG .EQ. 0) GO TO 210\r\n      KKKK = II1 + NCOL2 - 1\r\n      WRITE  (NOUT,200) ITERTO,ITER,CN,TIMED,TIMEIT,(DZ(KX),KX=II1,KKKK)\r\n  200 FORMAT (15H ITERTO =        ,I5,10H ITER =     ,I5,' CN =    ',\r\n     1        2D15.5,10H TIMED =    ,I5,10H TIMEIT=       ,I5,\r\n     2        //,20H ITERATER VECTOR      , //,(10D12.4))\r\n  210 CONTINUE\r\nC\r\nC     COMPUTE V(N)BAR\r\nC\r\n      CON1(1) =-CN(1)/(CN(1)**2 + CN(2)**2)\r\n      CON1(2) = CN(2)/(CN(1)**2 + CN(2)**2)\r\n      CALL CSUB (DZ(II1),DZ(II2),DZ(KK1),LAMBDA,CON1)\r\n      IF (NORTHO .EQ. 0) GO TO 220\r\nC\r\nC     ORTHOGONALIZE CURRENT ITERANT WITH RESPECT TO VECTORS FOUND IN\r\nC     THE CURRENT AND PREVIOUS REGIONS\r\nC\r\n      CALL ORTHO (DZ(II1),DZ(KK1),DZ(KK2),DZ(KK3),DZ(KK4),DZ(KK5),\r\n     1            DZ(KK6),NZZ,Z(IOBUF),Z(IBUF1),Z(IBUF2),Z(IBUF3))\r\n  220 CONTINUE\r\n      IF (FILEB(1) .NE. 0) GO TO 230\r\nC\r\nC     COMPUTE V(N)\r\nC\r\n      CALL CSUB (DZ(II1),DZ(II2),DZ(KK1),LAMBDA,CON1(1))\r\n  230 CONTINUE\r\nC\r\nC     BEGIN TESTING CONVERGENCE CRITERIA\r\nC\r\nC     COMPUTE F(N)\r\nC\r\n      CALL CM TIM U (DZ(II1),DZ(JJ1),0,Z(IOBUF))\r\n      IF (FILEB(1) .EQ. 0) GO TO 240\r\n      FILE(1) = FILEB(1)\r\n      CALL CM TIM U (DZ(II1),DZ(KK2),FILE,Z(IBUF1))\r\n      CON1(1) = 2.0D0*LAMBDA(1)\r\n      CON1(2) = 2.0D0*LAMBDA(2)\r\n      CALL CDIVID (PLUS1,CON2,CON1,2)\r\n      CON2(1) = -CON2(1)\r\n      CON2(2) = -CON2(2)\r\n      CALL CSUB (DZ(JJ1),DZ(KK2),DZ(JJ1),PLUS1,CON2)\r\n  240 CONTINUE\r\nC\r\nC     COMPUTE ALPHA(N)\r\nC\r\n      CALL CX TRN Y (DZ(II1),DZ(JJ1),ALN(1))\r\n      CALL CSQRTX (ALN(1),ALN(1))\r\nC\r\nC     COMPUTE DELTA U(N)\r\nC\r\n      CON1(1) = ALN(1)/(ALN(1)**2 + ALN(2)**2)\r\n      CON1(2) =-ALN(2)/(ALN(1)**2 + ALN(2)**2)\r\n      CON2(1) = ALNM1(1)/(ALNM1(1)**2 + ALNM1(2)**2)\r\n      CON2(2) =-ALNM1(2)/(ALNM1(1)**2 + ALNM1(2)**2)\r\n      CALL CSUB (DZ(II1),DZ(II2),DZ(II2),CON1(1),CON2(1))\r\nC\r\nC     COMPUTE DELTA F(N)\r\nC\r\n      CALL CSUB (DZ(JJ1),DZ(JJ3),DZ(JJ3),CON1(1),CON2(1))\r\n      CON1(1) = CN(1)*ALN(1) - CN(2)*ALN(2)\r\n      CON1(2) = CN(2)*ALN(1) + CN(1)*ALN(2)\r\n      LAM1(1) = (ALNM1(1)*CON1(1) + ALNM1(2)*CON1(2))/(CON1(1)**2 +\r\n     1          CON1(2)**2)\r\n      LAM1(2) = (ALNM1(2)*CON1(1) - ALNM1(1)*CON1(2))/(CON1(1)**2 +\r\n     1          CON1(2)**2)\r\n      IF (IRAPID .EQ. 1) GO TO 410\r\n      CALL CX TRN Y (DZ(II2),DZ(JJ3),ETA(1))\r\n      CALL CSQRTX (ETA(1),XYZ(1))\r\nC\r\n      IF (IDIAG .EQ. 0) GO TO 260\r\n      WRITE  (NOUT,250) LAM1,XYZ,ALN\r\n  250 FORMAT (12H LAMBDA =    ,2D15.5,12H  ETA =        ,2D15.5,\r\n     1        12H ALPHA =     ,2D15.5)\r\n  260 CONTINUE\r\n      IF (ITER .EQ. 1) GO TO 170\r\nC\r\nC     RAPID CONVERGENCE TEST\r\nC\r\nC     IF (ETA.GE.A*EPS*GAMMA*(1.+LAMBDA/LAM1)\r\nC\r\n      CON1(1) = (LAMBDA(1)*LAM1(1) + LAMBDA(2)*LAM1(2))/(LAM1(1)**2 +\r\n     1          LAM1(2)**2)\r\n      CON1(2) = (LAMBDA(2)*LAM1(1) - LAMBDA(1)*LAM1(2))/(LAM1(1)**2 +\r\n     1          LAM1(2)**2)\r\n      IF (DSQRT(XYZ(1)**2+XYZ(2)**2).GE. A*EPS*GAMMA*DSQRT(1.+CON1(1)**2\r\n     1         + CON1(1)**2+CON1(2)**2)) GO TO 280\r\n  270 IRAPID = 1\r\n      GO TO 170\r\n  280 CONTINUE\r\n      IF (DSQRT(ETANM1(1)**2+ETANM1(2)**2) .GE. 1.E-06) GO TO 290\r\n      IF (DSQRT(XYZ(1)**2+XYZ(2)**2)-1.01*DSQRT(ETANM1(1)**2+\r\n     1    ETANM1(2)**2)) 290,290,270\r\nC\r\nC     EPSILON 2 TEST\r\nC\r\n  290 IF (IEP2 .EQ. 1) GO TO 310\r\n      CALL CX TRN Y (DZ(II2),DZ(JJ2),CON1(1))\r\n      CON2(1) = CON1(1)*LAM1(1) - CON1(2)*LAM1(2)\r\n      CON1(2) = CON1(1)*LAM1(2) + CON1(2)*LAM1(1)\r\n      CON1(1) = CON2(1)\r\n      LAM2(1) = (CON1(1)*ETA(1) + CON1(2)*ETA(2))/(ETA(1)**2 +ETA(2)**2)\r\n      LAM2(2) = (CON1(2)*ETA(1) - CON1(1)*ETA(2))/(ETA(1)**2 +ETA(2)**2)\r\n      CON1(1) = LAM2(1) - LM2NM1(1)\r\n      CON1(2) = LAM2(2) - LM2NM1(2)\r\n      H2N(1)  = (CON1(1)*LAMBDA(1) + CON1(2)*LAMBDA(2))/(LAMBDA(1)**2 +\r\n     1          LAMBDA(2)**2)\r\n      H2N(2)  = (CON1(2)*LAMBDA(1) - CON1(1)*LAMBDA(2))/(LAMBDA(1)**2 +\r\n     1          LAMBDA(2)**2)\r\n      IF (ITER .LT. 4) GO TO 310\r\n      IF (EP2 .GT. DSQRT(H2N(1)**2 + H2N(2)**2).AND.\r\n     1   DSQRT(H2N(1)**2+H2N(2)**2) .GT. DSQRT(H2NM1(1)**2+H2NM1(2)**2))\r\n     1   GO TO 300\r\n      GO TO 310\r\n  300 IEP2 = 1\r\n      LAM2(1) = LM2NM1(1)\r\n      LAM2(2) = LM2NM1(2)\r\n  310 CON1(1) = 1. - (LAM2(1)*LAM1(1) + LAM2(2)*LAM1(2))/(LAM1(1)**2 +\r\n     1          LAM1(2)**2)\r\n      CON1(2) = (LAM2(2)*LAM1(1) - LAM2(1)*LAM1(2))/(LAM1(1)**2 +\r\n     1          LAM1(2)**2)\r\n      CON2(1) = CON1(1)*CON1(1) - CON1(2)*CON1(2)\r\n      CON1(2) = 2.*CON1(2)*CON1(1)\r\n      CON1(1) = CON2(1)\r\n      CON1(1) = DMIN1(DSQRT(CON1(1)**2+CON1(2)**2),10.0D0)\r\n      DELTA(1)= ETA(1)/CON1(1)\r\n      DELTA(2)= ETA(2)/CON1(1)\r\nC\r\n      IF (IDIAG .EQ. 0) GO TO 330\r\n      WRITE  (NOUT,320)LAM2,H2N,DELTA\r\n  320 FORMAT (12H  LAMBDA =      ,2D15.5,     12H  H2N =     ,2D15.5,\r\n     1        12H DELTA =      ,2D15.5)\r\n  330 CONTINUE\r\nC\r\nC     VECTOR CONVERGENCE TEST\r\nC\r\n      IF (DSQRT(DELTA(1)**2+DELTA(2)**2).LE. (A*EPS)**2) GO TO 410\r\n      IF (ITER .LE. 3) GO TO 170\r\nC\r\nC     EPSILON 1 TEST\r\nC\r\n      IF (IEPCNT .GE. 100) GO TO 520\r\n      IF (IEPCNT .GE.  10) GO TO 340\r\n      IF (DSQRT((LAM1(1)-LM1NM1(1))**2+(LAM1(2)-LM1NM1(2))**2)\r\n     1   /DSQRT((LAMBDA(1) + DABS(LAM1(1)))**2+(LAMBDA(2) +DABS(LAM1(2))\r\n     2    )**2) .GE. EP1) GO TO 170\r\n      IEPCNT = 0\r\n  340 CONTINUE\r\nC\r\nC     SHIFT DECISION\r\nC\r\n      CALL KLOCK (T2)\r\n      TIMEIT = T2-T1\r\n      IF (IDIAG .EQ. 0) GO TO 360\r\n      WRITE  (NOUT,350) T2,T1,TIMEIT\r\n  350 FORMAT (3I15)\r\n  360 CONTINUE\r\n      K = DLOG(DSQRT(DELTA(1)**2+DELTA(2)**2)/(A*EPS)**2)/DABS(DLOG(\r\n     1    DSQRT(LAM1(1)**2+LAM1(2)**2)/DSQRT(LAM2(1)**2+LAM2(2)**2)))+1.\r\n      K = K/2\r\n      IF (IDIAG .EQ. 0) GO TO 380\r\n      WRITE  (NOUT,370) K\r\n  370 FORMAT (I5)\r\n  380 CONTINUE\r\n      IR1 = FLOAT(K-3)*FLOAT(TIMEIT)/FLOAT(ITER)\r\n      IF (TIMED .GE. IR1) GO TO 170\r\n      LAMBDA(1) = LAMBDA(1) + LAM1(1)\r\n      LAMBDA(2) = LAMBDA(2) + LAM1(2)\r\nC\r\nC     STORE THE LAST VECTOR BEFORE A SHIFT FOR USE AS A STARTING VECTOR\r\nC\r\n      IF (SWITCH .EQ. 1) GO TO 390\r\n      IN1 = II1\r\n      GO TO 400\r\n  390 IN1 = JJ5\r\n  400 IFILE = FILEVC(1)\r\n      CALL GOPEN (IFILE,Z(IOBUF),WRT)\r\n      CALL WRITE (IFILE,DZ(IN1),NCOL4,1)\r\n      IVECT  = 1\r\n      COMFLG = 1\r\nC\r\nC     STORE  THE CURRENT VECTOR ON THE EIGENVECTOR FILE SO IT CAN BE\r\nC     USED AS THE STARTING VECTOR\r\nC\r\n      CALL WRITE (IFILE,DZ(II1),NCOL4,1)\r\n      CALL CLOSE (IFILE,EOFNRW)\r\n      GO TO 490\r\nC\r\nC     M  RAPID CONVERGENCE MAKE SURE LAMD1 PASSES EP1 TEST\r\nC\r\n  410 CONTINUE\r\n      IF (DSQRT((LAM1(1)-LM1NM1(1))**2+(LAM1(2)-LM1NM1(2))**2)\r\n     1   /DSQRT((LAMBDA(1) + DABS(LAM1(1)))**2+(LAMBDA(2) +DABS(LAM1(2))\r\n     2   )**2) .GE. EP1) GO TO 170\r\nC\r\nC     CONVERGENCE ACHIEVED, NORMALIZE THE VECTOR\r\nC\r\nC     STORE THE EIGENVECTOR AND EIGENVALUE ON THE OUTPUT FILES\r\nC\r\n      CALL CNORM1 (DZ(II1),NCOL)\r\n      LAM1(1) = LAM1(1) + LAMBDA(1)\r\n      LAM1(2) = LAM1(2) + LAMBDA(2)\r\n      INU = II1 + NCOL2 - 1\r\n      IF (IDIAG .EQ. 0) GO TO 430\r\n      WRITE  (NOUT,420) LAM1,(DZ(I),I=II1,INU)\r\n  420 FORMAT (1H1, 20H CONVERGENCE           ,//,' LAMBDA = ',2D15.5,\r\n     1        //,(10D12.4))\r\n  430 CONTINUE\r\n      IFILE = FILEVC(1)\r\n      CALL GOPEN (IFILE,Z(IOBUF),WRT)\r\n      CALL WRITE (IFILE,DZ(II1),NCOL4,1)\r\n      CALL CLOSE (IFILE,EOFNRW)\r\n      IFILE = FILELM(1)\r\n      CALL GOPEN (IFILE,Z(IOBUF),WRT)\r\n      CALL WRITE (IFILE,LAM1(1),4,1)\r\n      CALL CLOSE (IFILE,EOFNRW)\r\n      NORTHO = NORTHO + 1\r\n      NOROOT = NOROOT + 1\r\n      IEP2   = 0\r\n      IRAPID = 0\r\n      NOCHNG = 0\r\n      COMFLG = 0\r\n      IF (SWITCH .EQ. 0) GO TO 440\r\n      SWITCH = 0\r\n      LAMBDA(1) = LMBDA(1)\r\n      LAMBDA(2) = LMBDA(2)\r\n      GO TO 450\r\n  440 CONTINUE\r\n      IVECT = 0\r\n      IF (ITER .LE. 5) GO TO 460\r\n  450 IN1   = JJ5\r\n      IFILE = FILEVC(1)\r\n      CALL GOPEN (IFILE,Z(IOBUF),WRT)\r\n      CALL WRITE (IFILE,DZ(IN1),NCOL4,1)\r\n      CALL CLOSE (IFILE,EOFNRW)\r\n      IVECT = 1\r\n  460 ITER  = 0\r\nC\r\nC     COMPUTE PSEUDO LEFT VECTOR\r\nC\r\n      CALL CM TIM U (DZ(II1),DZ(JJ3),0,Z(IOBUF))\r\n      IF (FILEB(1) .EQ. 0) GO TO 470\r\n      CALL CMTIMU (DZ(II1),DZ(JJ2),FILEB,Z(IBUF1))\r\n      CON1(1) = 2.0D0*LAM1(1)\r\n      CON1(2) = 2.0D0*LAM1(2)\r\n      CON2(1) =-1.0D0\r\n      CON2(2) = 0.0D0\r\n      CALL CSUB (DZ(JJ3),DZ(JJ2),DZ(JJ3),CON1,CON2)\r\n  470 IF (ISYM .EQ. 1) GO TO 480\r\nC\r\nC     LEFT = RIGHT FINISH JOB\r\nC\r\n      CALL CX TRN Y (DZ(II1),DZ(JJ3),CON1)\r\n      CALL CDIVID (DZ(II1),DZ(JJ3),CON1,NCOL2)\r\nC\r\nC     PUT SCALED VECTOR ON LEFT VECTOR FILE\r\nC\r\n  480 IFILE = SCRFIL(10)\r\n      CALL GOPEN (IFILE,Z(IBUF1),WRT)\r\n      CALL WRITE (IFILE,DZ(JJ3),NCOL4,1)\r\n      CALL CLOSE (IFILE,EOFNRW)\r\n      LEFT = 1\r\n      IF (ISYM .EQ. 0) GO TO 10\r\nC\r\nC 490 CALL CLOSE (FILEL,1)\r\nC     CALL CLOSE (FILEU,1)\r\nC     CALL CLOSE (FILEM,1)\r\n  490 RETURN\r\nC\r\nC     RETURN TO MAIN DRIVER TO COMPUTE THE LEFT EIGENVECTOR\r\nC\r\nC\r\nC     ENTRY POINT UPON RETURNING FROM OBTAINING THE LEFT VECTOR\r\nC\r\n  500 LEFT = 0\r\n      IF (NODES  .LE. NOROOT) GO TO 550\r\n      IF (NOROOT .GE.3*NOEST) GO TO 540\r\n      AAA = DSQRT((LAMBDA(1) - LAM1(1))**2 + (LAMBDA(2)-LAM1(2))**2)\r\n      IF (AAA .LE. RZERO) GO TO 570\r\n      IF (IREG .EQ.    0) GO TO 510\r\n      IF (IND) 510,510,530\r\n  510 IF (NODES .LE. NOROOT) GO TO 550\r\n      IF (LAM1(1)**2+LAM1(2)**2 .GE. MAXMOD) GO TO 560\r\nC\r\nC     GET NEW STARTING  POINT\r\nC\r\n  520 COMFLG = 0\r\n      IND    =-IND\r\n      GO TO 490\r\nC\r\nC     GENERATE NEW ARBITRARY STARTING VECTOR\r\nC\r\n  530 IND   =-(IND+1)\r\n      IVECT = 0\r\n      IF (IND .EQ. -13) IND = -1\r\n      GO TO 50\r\nC\r\nC     3*NOEST FOUND\r\nC\r\n  540 COMFLG = 4\r\n      GO TO 490\r\nC\r\nC     ALL ROOTS IN PROBLEM FOUND\r\nC\r\nC     COMFLG = 5\r\nC     GO TO 176\r\nC\r\nC     NO. DES. ROOTS FOUND IN REGION OF CONVERGENCE OUTSIDE REGION\r\nC\r\n  550 COMFLG = 6\r\n      GO TO 490\r\nC\r\nC     ONE OR MORE ROOTS OUTSIDE REGION\r\nC\r\n  560 COMFLG = 7\r\n      GO TO 490\r\nC\r\nC     FOUND ROOT OUTSIDE REGION OF CURRENT START POINT\r\nC\r\n  570 IND  = IABS(IND)\r\n      IREG = 1\r\n      IF (EPS*RZERO/DSQRT((LAM1(1)-LAMBDA(1))**2+(LAM1(2)-LAMBDA(2))**2)\r\n     1   .LT. EP3) GO TO 20\r\nC\r\nC     CURRENT SHIFT POINT IS TOO CLOSE TO AN EIGENVALUE\r\nC\r\n      IF (COMFLG .NE. 2) GO TO 580\r\n      COMFLG = 9\r\n      GOT O 490\r\n  580 LAMBDA(1) = LAMBDA(1) + .02*RZERO\r\n      LAMBDA(2) = LAMBDA(2) + .02*RZERO\r\n      COMFLG = 2\r\n      GO TO 490\r\nC\r\nC     ERROR EXITS\r\nC\r\n  600 J = -8\r\n      GO TO 620\r\nC 610 J = -1\r\n  620 CALL MESAGE (J,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cinvpr.f",
    "content": "      SUBROUTINE CINVPR (EED,METHOD,NFOUND)\r\nC\r\nC     GIVEN REAL OR COMPLEX MATRICIES, CINVPR WILL SOLVE FOR ALL OF\r\nC     THE EIGENVALUES AND EIGENVECTORS WITHIN A SPECIFIED REGION\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     FILEK(7) = MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K\r\nC     FILEM(7) = MATRIX CONTROL BLOCK FOR THE INPUT MASS MATRIX M\r\nC     FILEB(7) = MATRIX CONTROL BLOCK FOR THE INPUT DAMPING MATRIX B\r\nC     FILELM(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES\r\nC     FILEVC(7)= MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS\r\nC     DMPFIL   = FILE CONTAINING THE EIGENVALUE SUMMARY\r\nC     SR1FIL-  = SCRATCH FILES USED INTERNALLY\r\nC     SR0FIL\r\nC     EPS      = CONVERGENCE CRITERIA\r\nC     NOREG    = NUMBER OF REGIONS INPUT\r\nC     REG(1,I) = X1 FOR REGION I\r\nC     REG(2,I) = Y1 FOR REGION I\r\nC     REG(3,I) = X2 FOR REGION I\r\nC     REG(4,I) = Y2 FOR REGION I\r\nC     REG(5,I) = L1 FOR REGION I\r\nC     REG(6,I) = NO. OF DESIRED  ROOTS FOR REGION I\r\nC     REG(7,I) = NO. OF ESTIMATED ROOTS IN REGION I\r\nC\r\nC\r\n      LOGICAL          NOLEFT\r\n      INTEGER          METHOD    ,EED      ,EIGC(2)  ,PHIDLI  ,\r\n     1                 SWITCH    ,SCRFIL   ,IHEAD(10),IREG(7,1)\r\n      INTEGER          NAME(2)   ,FILELM   ,FILEVC   ,\r\n     1                 REAL      ,RDP      ,TYPEK    ,TYPEM    ,\r\n     2                 TYPEB     ,COMFLG   ,IZ(1)    ,DMPFIL   ,\r\n     3                 TIMED     ,FILEK    ,T1       ,T2       ,\r\n     4                 FILEB     ,FILEM\r\n      REAL             L         ,L1       ,MAXMOD\r\n      DOUBLE PRECISION LAM1      ,DZ(1)    ,MINDIA\r\n      DOUBLE PRECISION LAMBDA    ,LMBDA    ,DTEMP(2)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /CDCMPX/  IDUM(30)  ,MINDIA\r\n      COMMON /CINVPX/  FILEK(7)  ,FILEM(7) ,FILEB(7) ,FILELM(7),\r\n     1                 FILEVC(7) ,DMPFIL   ,SCRFIL(11),NOREG   ,\r\n     2                 EPS       ,REG(7,10),PHIDLI\r\n      COMMON /NAMES /  RD        ,RDREW    ,WRT       ,WRTREW  ,\r\n     1                 REW       ,NOREW    ,EOFNRW    ,RSP     ,\r\n     1                 RDP\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /OUTPUT/  HEAD(1)\r\n      COMMON /CINVXX/  LAMBDA(2) ,SWITCH   ,COMFLG    ,LMBDA(2),\r\n     1                 ITER      ,TIMED    ,NOCHNG    ,RZERO   ,\r\n     2                 IND       ,IVECT    ,KREG      ,REAL    ,\r\n     3                 LEFT      ,NORTHO   ,NOROOT    ,NZERO   ,\r\n     4                 LAM1(2)   ,MAXMOD   ,NODES     ,NOEST   ,\r\n     5                 ISTART    ,IND1     ,ITERX     ,ISYM\r\n      EQUIVALENCE      (KSYSTM(1),ISYS )   ,(IREG(1,1),REG(1,1))\r\n      EQUIVALENCE      (FILEK(5) ,TYPEK)   ,(FILEM(5),TYPEM)   ,\r\n     1                 (FILEB(5) ,TYPEB)   ,(IZ(1),Z(1))\r\n      EQUIVALENCE      (ANODES   ,NODES)   ,(ANOEST,NOEST)     ,\r\n     1                 (Z(1)     ,DZ(1))   ,(KSYSTM(2),NOUT )\r\n      DATA     IHEAD/  0,1009,2,7*0 /\r\n      DATA     EIGC /  207,2        /\r\n      DATA     NAME /  4HCINV,4HPR  /\r\n      DATA     SIGN /  1.0          /\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     REAL     = 0 - ALL MATRICIES ARE REAL\r\nC                1 - AT LEAST ONE MATRIX IS COMPLEX\r\nC     NSHIFT   = NO. OF SHIFT POINTS IN A REGION\r\nC     NODES    = NO. OF DESIRED ROOTS IN A REGION\r\nC     NOEST    = NO. OF ESTIMATED ROOTS IN A REGION\r\nC     SHIFT    = INDEX OF THE CURRENT SHIFT POINT\r\nC     ISHIFT   = INDEX OF THE CURRENT SHIFT POINT\r\nC     IMIN     = LOWEST INDEX OF THE COMPLETED SHIFT POINTS\r\nC     IMAX     = HIGHEST INDEX OF COMPLETED SHIFT POINTS\r\nC\r\nC     FILE ALLOCATION\r\nC\r\nC     SR1FIL CONTAINS (LAMBDA**2*M + LAMBDA*B + K)\r\nC     SR2FIL CONTAINS -(B+LAMBDA*M)\r\nC     SR3FIL CONTAINS THE LOWER TRIANGLE OF THE DECOMPOSED DYNAMIC MTRX\r\nC     SR4FIL CONTAINS THE UPPER TRIANGLE OF THE DECOMPOSED DYNAMIC MTRX\r\nC     SR5FIL IS USED AS A SCRATCH FOR CDCOMP\r\nC     SR6FIL IS USED AS A SCRATCH FOR CDCOMP\r\nC     SR7FIL IS USED AS A SCRATCH FOR CDCOMP\r\nC     SR8FIL CONTAINS THE LOWER TRIANGLE L\r\nC     SR9FIL CONTAINS THE UPPER TRIANGLE U\r\nC     SR0FIL CONTAINS THE LEFT EIGENVECTORS\r\nC     S11FIL CONTAINS  -(B + LAMBDA*M)\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     IND      = AN INDEX FOR GENERATING VARIOUS STARTING VECTORS\r\nC     ITER     = TOTAL NUMBER OF ITERATIONS\r\nC     NODCMP   = TOTAL NUMBER OF DECOMPOSITIONS\r\nC     NOSTRT   = NUMBER OF STARTING POINTS USED\r\nC     NOMOVS   = NUMBER OF TIMES A STARTING POINT HAD TO BE MOVED\r\nC     RZERO    = DISTANCE FROM THE STARTING POINT TO THE CORNER OF THE\r\nC                PARALELOGRAM\r\nC     NOCHNG   = COUNT OF THE NUMBER OF MOVES WHILE LOOKING FOR ONE ROO\r\nC     COMFLG   = 0 -\r\nC              = 1 -\r\nC              = 2 -\r\nC              = 3 -\r\nC              = 4 -\r\nC              = 5 -\r\nC              = 6 -\r\nC     SWITCH   =\r\nC     IVECT    =\r\nC     KREG     = 0-NO VECTORS FOUND IN SEARCH AREA YET\r\nC                1- A VECTOR HAS BEEN FOUND IN THE SEARCH AREA\r\nC     ISING    = SINGULARITY FLAG\r\nC     ITERM    = REASON FOR TERMINATING\r\nC              = 1 - 2SINGULARITIES IN A ROW\r\nC              = 2 - 4 MOVES WHILE TRACKING ONE ROOT\r\nC              = 3 - ALL REGIONS COMPLETED\r\nC              = 4 - 3*NOEST FOUND\r\nC              = 5 - ALL ROOTS FOUND\r\nC              = 8 - 200 ITERATIONS WITH ONE MOVE WITHOUR CONVERGING\r\nC     TIMED    = TIME TOO FORM AND DECOMPOSE THE DYNAMIC MATRIX\r\nC     LEFT     = 1 - DECOMPOSE MATRIX FOR THE COMPUTATION OF THE LEFT\r\nC                EIGENVECTORS\r\nC\r\n      CALL SSWTCH (12,IDIAG)\r\n      IND1 = 0\r\n      NZ   = KORSZ(Z)\r\n      CALL KLOCK (ISTART)\r\n      IBUF = NZ - ISYS - 2\r\n      IFILE= FILELM(1)\r\n      CALL OPEN  (*500,FILELM,Z(IBUF),WRTREW)\r\n      CALL CLOSE (FILELM,REW)\r\n      IFILE = FILEVC (1)\r\n      CALL OPEN  (*500,FILEVC,Z(IBUF),WRTREW)\r\n      CALL CLOSE (FILEVC,REW)\r\n      CALL GOPEN (DMPFIL,Z(IBUF),WRTREW)\r\n      CALL CLOSE (DMPFIL,EOFNRW)\r\n      IFILE = SCRFIL(10)\r\n      CALL OPEN (*500,IFILE,Z(IBUF),WRTREW)\r\n      CALL CLOSE (IFILE,REW)\r\n      NOLEFT = .FALSE.\r\n      IZ(1)  = 204\r\n      CALL RDTRL (IZ)\r\n      IF (IZ(1) .LT. 0) NOLEFT = .TRUE.\r\n      NORTHO = 0\r\n      NROW   = 2*FILEK(3)\r\n      NROW2  = 2*NROW\r\n      ISYM   = 1\r\n      IF (FILEK(1).NE.0 .AND. FILEK(4).NE.6) GO TO 2\r\n      IF (FILEM(1).NE.0 .AND. FILEM(4).NE.6) GO TO 2\r\n      IF (FILEB(1).NE.0 .AND. FILEB(4).NE.6) GO TO 2\r\n      ISYM = 0\r\n    2 CONTINUE\r\nC\r\nC     PICK UP REGION PARAMETERS\r\nC\r\n      CALL PRELOC (*500,Z(IBUF),EED)\r\n      CALL LOCATE (*500,Z(IBUF),EIGC(1),FLAG)\r\n    6 CALL FREAD (EED,IREG,10,0)\r\n      IF (METHOD.EQ.IREG(1,1) .OR. METHOD.EQ.-1) GO TO 8\r\n    7 CALL FREAD (EED,IREG,7,0)\r\n      IF (IREG(6,1) .NE. -1) GO TO 7\r\n      GO TO 6\r\n    8 JREG = 1\r\n      EPS  = .0001\r\n      IF (REG(1,2) .NE. 0.) EPS = REG(1,2)\r\n   11 CALL FREAD (EED,IREG(1,JREG),7,0)\r\n      IF (IREG(6,JREG) .EQ. -1) GO TO 9\r\n      JREG = JREG + 1\r\n      IF (JREG .GT. 10) GO TO 9\r\n      GO TO 11\r\n    9 CALL CLOSE (EED,REW)\r\n      NOREG = JREG - 1\r\n      JREG  = 0\r\nC\r\nC     PICK UP PARAMETERS FOR REGION I\r\nC\r\n    5 JREG   = JREG + 1\r\n      ITER   = 0\r\n      NODCMP = 0\r\n      NOSTRT = 0\r\n      NOMOVS = 0\r\n      X1     = REG(1,JREG)\r\n      Y1     = REG(2,JREG)\r\n      X2     = REG(3,JREG)\r\n      Y2     = REG(4,JREG)\r\n      L      = REG(5,JREG)\r\n      ANOEST = REG(6,JREG)\r\n      ANODES = REG(7,JREG)\r\n      IF (NODES.EQ. 0) NODES = 3*NOEST\r\n      NSHIFT = SQRT((X1-X2)**2+(Y1-Y2)**2)/L + 1.\r\n      L1     = L*.5\r\n      NOROOT = 0\r\nC\r\nC\r\nC     FIND SHIFT POINT CLOSEST TO THE ORIGIN\r\nC\r\n      R = SQRT((X1-X2)**2 + (Y1-Y2)**2)\r\n      IF (R) 10,10,15\r\n   10 WRITE  (NOUT,12) UFM\r\n   12 FORMAT (A23,' 2366, REGION IMPROPERLY DEFINED ON EIGC CARD.')\r\n      CALL MESAGE (-61,0,0)\r\n   15 CONTINUE\r\n      D = (FLOAT(NSHIFT)*L-R)/2.0\r\n      XX = X1 + D*(X1-X2)/R\r\n      X2 = X2 + D*(X2-X1)/R\r\n      X1 = XX\r\n      YY = Y1 + D*(Y1-Y2)/R\r\n      Y2 = Y2 + D*(Y2-Y1)/R\r\n      Y1 = YY\r\n      IF (IDIAG .EQ. 0) GO TO 7000\r\n      WRITE  (NOUT,1000) X1,Y1,X2,Y2,L1,NODES,NOEST,NSHIFT\r\n 1000 FORMAT (1H1,5F10.2,3I5)\r\n 7000 CONTINUE\r\n      DELTX = (X1-X2)/FLOAT(NSHIFT)\r\n      DELTY = (Y1-Y2)/FLOAT(NSHIFT)\r\n      XX    = X2 + DELTX/2.\r\n      YY    = Y2 + DELTY/2.\r\n      RANGE = XX**2  + YY**2\r\n      N     = NSHIFT - 1\r\n      SHIFT = 1.\r\n      IF (DELTX .NE. 0.) GO TO 20\r\n      ANUM1 = L1\r\n      ANUM2 = 0.\r\n      GO TO 25\r\n   20 SLOPE = DELTY/DELTX\r\n      ARG   = SQRT(1.+SLOPE**2)\r\n      ANUM1 = SLOPE*L1/ARG\r\n      ANUM2 = L1/ARG\r\n   25 CONTINUE\r\n      IF (N .EQ. 0) GO TO 40\r\n      DO 30 I = 1,N\r\n      XX    = XX + DELTX\r\n      YY    = YY + DELTY\r\n      RANG  = XX**2 + YY**2\r\n      IF (RANG .GE. RANGE) GO TO 40\r\n      RANGE = RANG\r\n   30 SHIFT = I + 1\r\nC\r\nC     COMPUTE COORDINATES OF CORNERS OF THE REGION\r\nC\r\n   40 XL2   = X2 + ANUM1\r\n      YL2   = Y2 - ANUM2\r\n      IMIN  = SHIFT\r\n      IMAX  = SHIFT\r\nC\r\nC     FIND THE MAXIMUM MODULUS OF THE SEARCH REGION\r\nC\r\n      MAXMOD = XL2**2 + YL2**2\r\n      XX     = X2 - ANUM1\r\n      YY     = Y2 + ANUM2\r\n      MAXMOD = AMAX1(MAXMOD,XX**2+YY**2)\r\n      XX     = X1 + ANUM1\r\n      YY     = Y1 - ANUM2\r\n      MAXMOD = AMAX1(MAXMOD,XX**2+YY**2)\r\n      XX     = X1 - ANUM1\r\n      YY     = Y1 + ANUM2\r\n      MAXMOD = AMAX1(MAXMOD,XX**2+YY**2)\r\nC\r\nC     INITIALIZE\r\nC\r\n      IND    = 0\r\n      LEFT   = 0\r\n   45 ISHIFT = SHIFT\r\nC\r\nC     EVALUATE THE VALUE OF LAMBDA IN THE CENTER OF THE CURRENT SEARCH\r\nC     REGION\r\nC\r\n      LAMBDA(1) = X2 + (SHIFT-.5)*DELTX\r\n      LAMBDA(2) = Y2 + (SHIFT-.5)*DELTY\r\n      IF (LAMBDA(2) .EQ. 0.0D0) LAMBDA(2) = .01*DELTY\r\nC\r\nC     COMPUTE DISTANCE TO FARTHEST CORNER OF THE SQUARE SEARCH REGION\r\nC\r\n      XX = XL2 + SHIFT*DELTX\r\n      YY = YL2 + SHIFT*DELTY\r\n      RZERO = (LAMBDA(1)-XX)**2 + (LAMBDA(2)-YY)**2\r\n      RZERO = SQRT(RZERO)*1.05\r\n      IF (IDIAG .EQ. 0) GO TO 7001\r\n      WRITE  (NOUT,1216)RZERO\r\n 1216 FORMAT (//,10H RZERO =     ,F10.4)\r\n 7001 CONTINUE\r\n      NOSTRT = NOSTRT + 1\r\n      COMFLG = 0\r\n   61 LMBDA(1) = LAMBDA(1)\r\n      LMBDA(2) = LAMBDA(2)\r\n      NOCHNG = 0\r\n      SWITCH = 0\r\n      IVECT  = 0\r\n      KREG   = 0\r\n      IND    = IND + 1\r\n      IF (IABS (IND) .EQ. 13) IND = 1\r\n      ISING  = 0\r\n      GO TO 100\r\n   80 ISING  = 0\r\n      SWITCH = 1\r\n  100 IF (NOCHNG .GE. 4) GO TO 220\r\n      NOCHNG = NOCHNG + 1\r\n      CALL KLOCK (T1)\r\nC\r\nC     CALL IN ADD LINK TO FORM (LAMBDA**2*M + LAMBDA*B + K)\r\nC\r\n      CALL CINVP1\r\nC\r\nC     CALL IN CD COMP TO DECOMPOSE THE MATRIX\r\nC\r\n      IF (IDIAG .EQ. 0) GO TO 7002\r\n      WRITE  (NOUT,1001) LAMBDA\r\n 1001 FORMAT (10H1LAMBDA =   ,2D15.5)\r\n 7002 CONTINUE\r\n      NODCMP = NODCMP + 1\r\n      CALL CINVP2 (*110)\r\n      CALL KLOCK (T2)\r\n      GO TO 120\r\n  110 IF (ISING .EQ. 1) GO TO 210\r\nC\r\nC     SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE\r\nC\r\n      ISING = 1\r\n      LAMBDA(1) = LAMBDA(1) + .02*RZERO\r\n      LAMBDA(2) = LAMBDA(2) + .02*RZERO\r\n      GO TO 100\r\nC\r\nC     DETERMINE THE TIME REQUIRED TO FORM AND DECOMPOSE THE DYNAMIC\r\nC     MATRIX\r\nC\r\n  120 TIMED = T2 - T1\r\n      IF (TIMED .EQ. 0) TIMED = 1\r\nC\r\nC     CALL IN MAIN LINK TO ITERATE FOR EIGENVALUES\r\nC\r\n  121 CALL CINVP3\r\n      IF (LEFT   .EQ. 1) GO TO 130\r\n      IF (COMFLG .EQ. 2) GO TO 125\r\n      IF (COMFLG .EQ. 1) GO TO 80\r\n      GO TO 140\r\n  125 NOMOVS = NOMOVS + 1\r\n      GO TO 61\r\nC\r\nC     CALL IN LINK TO COMPUTE THE LEFT EIGENVECTOR\r\nC\r\n  130 DTEMP(1)  = LAMBDA(1)\r\n      DTEMP(2)  = LAMBDA(2)\r\n      LAMBDA(1) = LAM1(1)\r\n      LAMBDA(2) = LAM1(2)\r\n  131 SWITCH    = -1\r\n      CALL CINVP1\r\nC\r\nC     DECOMPOSE THE DYNAMIC MATRIX AT THE EIGENVALUE TO OBTAIN THE LEFT\r\nC     EIGENVECTOR BY THE DETERMINATE METHOD\r\nC\r\n      IF (IDIAG .EQ. 0) GO TO 132\r\n      WRITE (NOUT,1001) LAMBDA\r\n  132 CALL CINVP2 (*138)\r\nC\r\nC     BUILD LOAD FOR FBS\r\nC\r\n      D1 = NROW/2\r\n      D2 = NORTHO\r\n      DO 133 I = 1,NROW,2\r\n      K  = (I+1)/2\r\n      DZ(I) = SIGN*MINDIA/(1.D0+(1.D0-FLOAT(K)/D1)*D2)\r\n  133 DZ(I+1) = 0.0D0\r\n      SIGN = -SIGN\r\n      CALL CDIFBS (DZ(1),Z(IBUF))\r\n      LAMBDA(1) = DTEMP(1)\r\n      LAMBDA(2) = DTEMP(2)\r\n      SWITCH = 0\r\nC\r\nC     NORMALIZE AND STORE THE LEFT EIGENVECTOR\r\nC\r\n      CALL CNORM1 (DZ(1),FILEK(2))\r\n      IF (IDIAG .EQ. 0) GO TO 135\r\n      WRITE  (NOUT,134) (DZ(I),I=1,NROW)\r\n  134 FORMAT (///,15H LEFT VECTOR   ,//,(10D12.4))\r\n  135 CONTINUE\r\n      IF (NOLEFT .OR. ISYM.EQ.0) GO TO 136\r\n      IFILE = PHIDLI\r\n      CALL OPEN  (*500,IFILE,Z(IBUF),WRT)\r\n      CALL WRITE (IFILE,DZ(1),NROW2,1)\r\n      CALL CLOSE (IFILE,NOREW)\r\n  136 IFILE = SCRFIL(10)\r\n      CALL GOPEN (IFILE,Z(IBUF),RD)\r\n      CALL BCKREC (IFILE)\r\n      CALL FREAD (IFILE,DZ(NROW+2),NROW2,1)\r\n      CALL BCKREC (IFILE)\r\n      CALL CLOSE (IFILE,NOREW)\r\nC\r\nC     COMPUTE REAL LEFT VECTOR SCALED\r\nC\r\n      CALL CX TRN Y (DZ(1),DZ(NROW+2),DTEMP)\r\n      CALL CDIVID (DZ(1),DZ(1),DTEMP,NROW)\r\n      CALL OPEN (*500,IFILE,Z(IBUF),WRT)\r\n      CALL WRITE (IFILE,DZ(1),NROW2,1)\r\n      CALL CLOSE (IFILE,REW)\r\n      GO TO 121\r\n  138 LAMBDA(1) = 1.01*LAMBDA(1)\r\n      LAMBDA(2) = 1.01*LAMBDA(2)\r\n      GO TO 131\r\n  140 IF (COMFLG .GE. 3) GO TO 200\r\n      IF (COMFLG .EQ. 0) GO TO 160\r\n      IF (IDIAG  .EQ. 0) GO TO 150\r\n      WRITE  (NOUT,145) NOREG,JREG\r\n  145 FORMAT (2I10)\r\n  150 IF (NOREG .EQ. JREG) RETURN\r\n      GO TO 5\r\nC\r\nC     FIND NEXT SHIFT POINT WHICH IS CLOSEST TO THE ORIGIN\r\nC\r\n  160 IF (IMIN .NE. 1) GO TO 170\r\n      IF (IMAX .EQ. NSHIFT) GO TO 250\r\n  165 SHIFT = SHIFT + 1.\r\n      IMAX  = IMAX  + 1\r\n      LAMBDA(1) = LMBDA(1) + DELTX\r\n      LAMBDA(2) = LMBDA(2) + DELTY\r\n      GO TO 45\r\n  170 IF (IMAX .NE. NSHIFT) GO TO 180\r\n  175 SHIFT = SHIFT - 1.\r\n      IMIN  = IMIN  - 1\r\n      LAMBDA(1) = LMBDA(1) - DELTX\r\n      LAMBDA(2) = LMBDA(2) - DELTY\r\n      GO TO 45\r\n  180 XX   = LMBDA(1) - DELTX\r\n      YY   = LMBDA(2) - DELTY\r\n      RANG = XX**2 + YY**2\r\n      XX   = LMBDA(1) + DELTX\r\n      YY   = LMBDA(2) + DELTY\r\n      RANGE= XX**2 + YY**2\r\n      IF (RANGE-RANG) 175,175,165\r\n  200 ITERM = COMFLG\r\n      GO TO 260\r\nC\r\nC     SINGULARITY ENCOUNTERED TWICE IN A ROW\r\nC\r\n  210 ITERM = 1\r\n      GO TO 260\r\nC\r\nC     4 MOVES WHILE TRACKING ONE ROOT\r\nC\r\n  220 ITERM = 2\r\n      GO TO 260\r\nC\r\nC     REGIONS COMPLETED\r\nC\r\n  250 ITERM = 3\r\nC\r\nC     SET UP THE SUMMARY FILE\r\nC\r\n  260 IFILE = DMPFIL\r\n      CALL OPEN  (*500,DMPFIL,Z(IBUF),WRT)\r\n      CALL WRITE (DMPFIL,IHEAD(1),10,0)\r\n      I       = 0\r\n      IZ(I+2) = NORTHO\r\n      IZ(I+3) = NOSTRT\r\n      IZ(I+4) = NOMOVS\r\n      IZ(I+5) = NODCMP\r\n      IZ(I+6) = ITER\r\n      IZ(I+7) = ITERM\r\n      DO 270 I = 8,12\r\n 270  IZ(I) = 0\r\n      I = 2\r\n      CALL WRITE (DMPFIL,IZ(I),40,0)\r\n      CALL WRITE (DMPFIL,HEAD(1),96,1)\r\n      CALL WRITE (DMPFIL,IZ(1),0,1)\r\n      CALL CLOSE (DMPFIL,EOFNRW)\r\nC\r\nC     WRITE DUMMY TRAILER\r\n      IXX = FILEK(1)\r\n      FILEK(1) = DMPFIL\r\n      CALL WRTTRL (FILEK(1))\r\n      FILEK(1) = IXX\r\n      NFOUND = NORTHO\r\n      IF (IDIAG .EQ. 0) GO TO 350\r\n      J = 12\r\n      WRITE  (NOUT,300)(IZ(I),I=1,J)\r\n  300 FORMAT (///,12I10)\r\n  350 CONTINUE\r\n      IF (ITERM .EQ. 5) RETURN\r\n      GO TO 150\r\nC\r\n  500 CALL MESAGE (-1,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/clstab.f",
    "content": "      SUBROUTINE CLSTAB (FILE,OPT)\r\n      INTEGER FILE,OPT,TRLR(7)\r\n      DATA TRLR / 6*0,1 /\r\nC\r\n      TRLR(1) = FILE\r\n      CALL CLOSE (TRLR,OPT)\r\n      CALL WRTTRL (TRLR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/clvec.f",
    "content": "      SUBROUTINE CLVEC (LAMD,NVECT,PHIDL,IH,IBUF,IBUF1)\r\nC*****\r\nC     CLVEC CACLULATES THE LEFT EIGENVECTORS FOR THE DETERMINANT AND\r\nC     UPPER HESSENBERG APPROACHES TO THE COMPLEX EIGENVALUE PROBLEM\r\nC*****\r\n      DOUBLE PRECISION DI1,DNROW,DZ(1),LAMBDA,MINDIA\r\n      INTEGER CLSREW,FLAG,PHIDL,RDREW,SWITCH,SYSBUF\r\n      INTEGER FILEK,FILEM,FILEB,SCR\r\n      DIMENSION NAME(2),BUF(6),IH(7)\r\n      COMMON / CDCMPX / DUMDCP(30),MINDIA\r\n      COMMON / ZZZZZZ / Z(1)\r\n      COMMON / CINVPX / FILEK(7),FILEM(7),FILEB(7),DUM(15),SCR(11)\r\n      COMMON / CINVXX / LAMBDA(2),SWITCH\r\n      COMMON / NAMES  / RD,RDREW,WRT,WRTREW,CLSREW,NOREW\r\n      COMMON / PACKX  / IT1,IT2,II,JJ,INC\r\n      COMMON / SYSTEM / SYSBUF\r\n      EQUIVALENCE (NROW,FILEK(3))\r\n      EQUIVALENCE (DZ(1),Z(1))\r\n      DATA NAME   / 4HCLVE,4HC    /\r\nC*****\r\nC     INITIALIZATION\r\nC*****\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IF (FILEB(1) .LT. 0) FILEB(1) = 0\r\n      IF (FILEB(6) .EQ. 0) FILEB(1) = 0\r\n      DO 50 I=1,11\r\n      SCR(I) = 300 + I\r\n   50 CONTINUE\r\n      SWITCH = -204\r\n      FNROW = FLOAT(NROW)\r\n      DNROW = FNROW\r\nC*****\r\nC     OPEN SORTED EIGENVALUE FILE\r\nC*****\r\n      CALL GOPEN (LAMD,Z(IBUF),RDREW)\r\n      CALL SKPREC (LAMD,1)\r\nC*****\r\nC     LOOP TO CALCULATE LEFT EIGENVECTORS\r\nC*****\r\n      DO 1000 I=1,NVECT\r\nC READ EIGENVALUE\r\n      CALL READ(*9002,*9003,LAMD,BUF,6,0,FLAG)\r\n      LAMBDA(1) = BUF(3)\r\n      LAMBDA(2) = BUF(4)\r\nC CREATE DYNAMIC MATRIX\r\n  100 CALL CINVP1\r\nC DECOMPOSE DYNAMIC MATRIX\r\n      CALL CINVP2(*900)\r\nC BUILD LOAD FOR FBS\r\n      FI1 = FLOAT(I-1)\r\n      DI1 = FI1\r\n      J2 = 2*NROW\r\n      DO 200 J=1,J2,2\r\n      F = FLOAT((J+1)/2)\r\n      DZ(J) = MINDIA/(1.0D0 + (1.0D0 - F/DNROW)*DI1)\r\n      DZ(J+1) = 0.0D0\r\n  200 CONTINUE\r\nC PERFORM FORWARD-BACKWARD SUBSTITUTION - U(T)*L(T)*PHI\r\n      CALL CDIFBS (DZ(1),Z(IBUF2))\r\nC NORMALIZE LEFT EIGENVECTOR\r\n      CALL CNORM1 (DZ(1),NROW)\r\nC PACK LEFT EIGENVECTOR ONTO PHIDL\r\n      IT1 = 4\r\n      IT2 = 3\r\n      II = 1\r\n      JJ = NROW\r\n      INC = 1\r\n      CALL PACK (DZ(1),PHIDL,IH)\r\n      GO TO 1000\r\nC ADJUST CURRENT EIGENVALUE\r\n  900 LAMBDA(1) = 1.01D0*LAMBDA(1)\r\n      LAMBDA(2) = 1.01D0*LAMBDA(2)\r\n      GO TO 100\r\nC END OF LOOP\r\n 1000 CONTINUE\r\n      CALL CLOSE (LAMD,CLSREW)\r\n      RETURN\r\nC*****\r\nC     ERRORS\r\nC*****\r\n 9002 N = -2\r\n      GO TO 9999\r\n 9003 N = -3\r\n 9999 CALL MESAGE (N,LAMD,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmauto.f",
    "content": "      SUBROUTINE CMAUTO\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE AUTOMATIC CONNECTION OF\r\nC     SUBSTRUCTURES IN THE COMB1 MODULE\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         PRINT,FOUND,TDAT,BACK,IAUTO\r\n      INTEGER         SCSFIL,SCCONN,BUF1,BUF2,SNEXT(8),ST,NWD(8),SCORE,\r\n     1                Z,SPK,SNK,CE(9),SVKK,ANDF,AAA(2),SSIL(8),NSIL(8),\r\n     2                STS,COMBO,RESTCT,OUTT,NAME(14),RSHIFT,IHD(12),\r\n     3                IBITS(2),JBITS(2)\r\n      DIMENSION       RZ(1),A(3),B(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / STEP,IDRY\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /SYSTEM/ XXX,IOT,JUNK(6),NLPP,JUNK1(2),LINE,JUNK2(2),\r\n     1                IDAT(3),JUNK7(7),ISW\r\n      EQUIVALENCE     (Z(1),RZ(1))\r\n      DATA    AAA   / 4HCMAU, 2HTO /, IBLNK / 4H    /\r\n      DATA    IHD   / 4H SUM, 4HMARY, 4H OF , 4H AUT, 4HOMAT, 4HICAL,\r\n     1                4HLY G, 4HENER, 4HATED, 4H CON, 4HNECT, 4HIONS/\r\nC\r\n      NLIN  = 1000\r\n      FOUND = .FALSE.\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,10),1) .EQ. 1) PRINT = .TRUE.\r\n      NP2 = 2*NPSUB\r\n      DO 10 I = 1,NP2,2\r\n      J = I/2 + 1\r\n      NAME(I  ) = COMBO(J,1)\r\n      NAME(I+1) = COMBO(J,2)\r\n   10 CONTINUE\r\n      DO 20 I = 1,96\r\n      IHEAD(I) = IBLNK\r\n   20 CONTINUE\r\n      J = 1\r\n      DO 30 I = 75,86\r\n      IHEAD(I) = IHD(J)\r\n   30 J = J + 1\r\n      ISAVS = SCORE\r\n      ISAVL = LCORE\r\n      IFILE = SCCONN\r\n      CALL OPEN (*310,SCCONN,Z(BUF2),3)\r\n      IF (IAUTO) GO TO 40\r\n      CALL CLOSE (SCCONN,1)\r\n      RETURN\r\nC\r\n   40 IFILE = SCSFIL\r\n      CALL OPEN (*310,SCSFIL,Z(BUF1),0)\r\n      SSIL(1) = SCORE\r\n      NOUT = NPSUB + 2\r\n      IDIR = ISORT + 1\r\n      DO 110 I = 1,NPSUB\r\n      STS = SSIL(I)\r\n      NCSUB = COMBO(I,5)\r\n      DO 50 J = 1,NCSUB\r\n      CALL FWDREC (*320,SCSFIL)\r\n   50 CONTINUE\r\nC\r\nC     READ SIL,C FOR THE I-TH PSEUDOSTRUCTURE\r\nC\r\n      CALL READ (*320,*60,SCSFIL,Z(STS),LCORE,1,NSIL(I))\r\n      GO TO 330\r\n   60 LCORE = LCORE - NSIL(I)\r\n      SNEXT(I) = SCORE + NSIL(I)\r\n      SCORE = SCORE + NSIL(I)\r\n      ST = SNEXT(I)\r\nC\r\nC     READ BGSS FOR THE I-TH PSEUDOSTRUCTURE\r\nC\r\n      CALL READ (*320,*70,SCSFIL,Z(ST),LCORE,1,NWD(I))\r\n      GO TO 330\r\n   70 SNEXT(I+1) = SNEXT(I) + NWD(I)\r\n      SSIL(I+1)  = SNEXT(I) + NWD(I)\r\n      SCORE = SCORE + NWD(I)\r\n      CALL SKPFIL (SCSFIL,1)\r\n      LCORE = LCORE - NWD(I)\r\n      NI = NWD(I) + ST\r\nC\r\nC     WRITE THE IP NUMBER OVER THE CID IN THE BGSS\r\nC     WILL BE USED AFTER SORTING\r\nC\r\n      DO 100 J = ST,NI,4\r\n      JJ = (J-ST+4)/4\r\n      IF (Z(J)+1) 80,90,80\r\n   80 Z(J) = JJ\r\n      GO TO 100\r\n   90 Z(J) = -JJ\r\n  100 CONTINUE\r\n  110 CONTINUE\r\nC\r\nC     SORT EACH BGSS IN THE SPECIFIED COORDINATE DIRECTION\r\nC\r\n      DO 120 I = 1,NPSUB\r\n      ST = SNEXT(I)\r\n      CALL SORTF (0,0,4,IDIR,RZ(ST),NWD(I))\r\n  120 CONTINUE\r\n      I    = 1\r\n  130 K    = 0\r\n      KK   = 0\r\n      BACK = .FALSE.\r\n      SVKK = 0\r\n      IC1  = SSIL(I)\r\n      NIPI = NWD(I)/4\r\n      J    = I + 1\r\n      IF (RESTCT(I,J) .NE. 1) GO TO 280\r\n  140 IC2  = SSIL(J)\r\n      NIPJ = NWD(J)/4\r\n  150 SPK  = SNEXT(I) + K + 1\r\n      IF (Z(SPK-1) .LT. 0) GO TO 260\r\n      A(1) = RZ(SPK  )\r\n      A(2) = RZ(SPK+1)\r\n      A(3) = RZ(SPK+2)\r\n  160 SNK  = SNEXT(J) + KK + 1\r\n      IF (Z(SNK-1) .LT. 0) GO TO 270\r\n      B(1) = RZ(SNK  )\r\n      B(2) = RZ(SNK+1)\r\n      B(3) = RZ(SNK+2)\r\n      IF (A(ISORT) .LT. B(ISORT)-TOLER) GO TO 250\r\n      IF (B(ISORT) .LT. A(ISORT)-TOLER) GO TO 270\r\n      IF (BACK) GO TO 170\r\n      BACK = .TRUE.\r\n      SVKK = KK\r\n  170 CONTINUE\r\n      ASEJ = A(ISORT)\r\n      BSEJ = B(ISORT)\r\n      XSEJ = ASEJ - BSEJ\r\n      DO 180 MM = 1,3\r\n      IF (MM .EQ. ISORT) GO TO 180\r\n      ASEJ = A(MM)\r\n      BSEJ = B(MM)\r\n      XSEJ = A(MM) - B(MM)\r\n      IF (ABS(XSEJ) .GT. TOLER) GO TO 270\r\n  180 CONTINUE\r\nC\r\nC     GENERATE THE NEW CONNECTION ENTRY\r\nC\r\n      DO 190 KDH = 1,9\r\n  190 CE(KDH) = 0\r\n      CE(2)   = 2**(I-1) + 2**(J-1)\r\n      CE(2+I) = IABS(Z(SPK-1))\r\n      CE(2+J) = IABS(Z(SNK-1))\r\n      M1 = IABS(Z(SPK-1))\r\n      M2 = IABS(Z(SNK-1))\r\n      CE(1) = ANDF(Z(IC1+2*M1-1),Z(IC2+2*M2-1))\r\n      FOUND = .TRUE.\r\nC\r\nC     WRITE THE CONNECTION ENTRY ON SCCONN\r\nC\r\n      IF (CE(1) .NE. 0) CALL WRITE (SCCONN,CE,NOUT,1)\r\n      IF (  .NOT.PRINT) GO TO 240\r\n      IF (CE(1) .EQ. 0) GO TO 240\r\n      IF (NLIN .LT. NLPP) GO TO 220\r\n  200 NLIN = 0\r\n      CALL PAGE\r\n      WRITE  (OUTT,210) (NAME(KDH),KDH=1,NP2)\r\n  210 FORMAT (/14X,22HCONNECTED   CONNECTION,29X,22HPSEUDOSTRUCTURE  NAM\r\n     1ES, /17X,3HDOF,9X,4HCODE,3X,7(3X,2A4)//)\r\n      NLIN = NLIN + 10\r\n  220 CALL BITPAT (CE(1),IBITS)\r\n      CALL BITPAT (CE(2),JBITS)\r\n      NLIN = NLIN + 1\r\n      IF (NLIN .GT. NLPP) GO TO 200\r\n      WRITE (OUTT,230) IBITS(1),IBITS(2),JBITS(1),JBITS(2),\r\n     1                 (CE(KDH+2),KDH=1,NPSUB)\r\n  230 FORMAT (16X,A4,A2,5X,A4,A3,2X,7(3X,I8))\r\n  240 CONTINUE\r\n      GO TO 270\r\n  250 KK   = SVKK\r\n      BACK = .FALSE.\r\n  260 K    = K + 4\r\n      IF (K/4 .LT. NIPI) GO TO 150\r\n      K    = 0\r\n      KK   = 0\r\n      SVKK = 0\r\n      BACK = .FALSE.\r\n      GO TO 280\r\n  270 KK = KK + 4\r\n      IF (KK/4 .LT. NIPJ) GO TO 160\r\n      GO TO 250\r\n  280 J = J + 1\r\n      IF (J .LE. NPSUB) GO TO 140\r\n      I = I + 1\r\n      J = I\r\n      IF (I .LT. NPSUB) GO TO 130\r\n      WRITE  (OUTT,290)\r\n  290 FORMAT (//40X,'NOTE - GRID POINTS IN PSEUDOSTRUCTURE INTERNAL',\r\n     1                  ' GRID NUMBERS')\r\n      CALL CLOSE (SCCONN,1)\r\n      CALL CLOSE (SCSFIL,1)\r\n      SCORE = ISAVS\r\n      LCORE = ISAVL\r\n      IF (FOUND .OR. TDAT(1).OR.TDAT(2)) RETURN\r\nC\r\n      WRITE  (OUTT,300) UFM\r\n  300 FORMAT (A23,' 6531, NO CONNECTIONS HAVE BEEN FOUND DURING ',\r\n     1       'AUTOMATIC CONNECTION PROCEDURE.')\r\n      IDRY = -2\r\n      RETURN\r\nC\r\n  310 IMSG = -1\r\n      GO TO 350\r\n  320 IMSG = -2\r\n      GO TO 350\r\n  330 IMSG = -8\r\n  350 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmcase.f",
    "content": "      SUBROUTINE CMCASE\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE CASE CONTROL DATA BLOCK\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         IAUTO,TRAN,CONECT,LF(3),LONLY,SRCH\r\n      INTEGER         CASECC,BUF2,STEP,Z,CNAM,RESTCT,COMBO,OUTT,AUTO,\r\n     1                ORF,NCNAM(2),IHD(96),IBITS(32),CONSET,MNEM(11),\r\n     2                SNAM(7,2),IDIR(3),COMP(7,2),SYMT(7),TRANS(7),\r\n     3                ISYM(15,2),AAA(2),PORA,PAPP\r\n      DIMENSION       AZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ JUNK(8),CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,JUNK1(6),OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /SYSTEM/ XXX,IOT,MUNK(6),NLPP,JUNK3(2),LINE,JUNK2(2),\r\n     1                IDAT(3)\r\n      COMMON /BLANK / STEP,IDRY,PORA\r\n      EQUIVALENCE     (Z(1),AZ(1))\r\n      DATA    NMNEM / 11 /, IDIR/ 1HX, 1HY, 1HZ /,  AUTO/ 4HAUTO / ,\r\n     1        AAA   / 4HCMCA, 4HSE   /\r\n      DATA    MNEM  / 4HOPTS, 4HSORT, 4HNAMC, 4HNAMS, 4HTOLE, 4HCONN,\r\n     1                4HCOMP, 4HTRAN, 4HSYMT, 4HSEAR, 4HOUTP/\r\n      DATA    ISYM  / 4,2,1,6,6,5,5,3,3,6*7,1HX,1HY,1HZ,2HXY,2HYX,2HXZ,\r\n     1                2HZX,2HYZ,2HZY,3HXYZ,3HXZY,3HYXZ,3HYZX,3HZXY,\r\n     2                3HZYX /\r\n      DATA    IHD   / 74*4H    , 4H SUM , 4HMARY , 4H OF  , 4HCASE ,\r\n     1                4H CON ,   4HTROL , 4H FOR , 4H COM , 4HBINE ,\r\n     2                4H OPE ,   4HRATI , 4HON   , 10*4H           /\r\n      DATA    NHEQSS/ 4HEQSS /\r\n      DATA    PAPP  , LOAP,LODS/ 4HPAPP , 4HLOAP , 4HLODS /\r\nC\r\nC     OPEN CASECC DATA BLOCK AND READ INTO OPEN CORE\r\nC\r\n      SRCH = .FALSE.\r\n      IERR = 0\r\n      DO 10 I = 1,96\r\n      IHEAD(I) = IHD(I)\r\n   10 CONTINUE\r\n      IFILE = CASECC\r\n      CALL OPEN (*580,CASECC,Z(BUF2),0)\r\n      NREC = STEP\r\n      IF (NREC .EQ. 0) GO TO 30\r\n      DO 20 I = 1,NREC\r\n      CALL FWDREC (*580,CASECC)\r\n   20 CONTINUE\r\n   30 CALL READ (*570,*590,CASECC,Z(1),5,0,NNN)\r\n      I = 2\r\n      NWDSCC = Z(I  )\r\n      NPSUB  = Z(I+1)\r\n      CALL READ (*570,*40,CASECC,Z(1),NWDSCC,1,NNN)\r\n   40 JJ = 0\r\n      KK = 0\r\n      IPRINT = 0\r\nC\r\nC     INITIALIZE COMBO AND RESTCT ARRAYS\r\nC\r\n      DO 70 I = 1,7\r\n      DO 50 J = 1,5\r\n      COMBO(I,J) = 0\r\n   50 CONTINUE\r\n      DO 60 J = 1,7\r\n      RESTCT(I,J) = 0\r\n   60 CONTINUE\r\n   70 CONTINUE\r\nC\r\nC     INITIALIZE COMP,TRANS,AND SYMT ARRAYS\r\nC\r\n      CONECT = .FALSE.\r\n      TRAN   = .FALSE.\r\n      DO 90 I = 1,7\r\n      SYMT(I) = 0\r\n      TRANS(I)= 0\r\n      DO 80 J = 1,2\r\n      COMP(I,J) = 0\r\n   80 CONTINUE\r\n   90 CONTINUE\r\n      DO 100 I = 1,3\r\n      LF(I) = .FALSE.\r\n  100 CONTINUE\r\n      CNAM(1) = 0\r\n      CNAM(2) = 0\r\nC\r\nC     PROCESS CASE CONTROL MNEMONICS\r\nC\r\n      DO 350 I = 1,NWDSCC,3\r\n      DO 110 J = 1,NMNEM\r\n      IF (Z(I) .NE. MNEM(J)) GO TO 110\r\n      GO TO (120,130,160,170,180,190,200,220,230,260,290), J\r\n  110 CONTINUE\r\n      GO TO 350\r\n  120 IAUTO = .FALSE.\r\n      IF (Z(I+1) .EQ. AUTO) IAUTO = .TRUE.\r\n      GO TO 350\r\nC\r\n  130 DO 140 L = 1,3\r\n      IF (Z(I+1) .EQ. IDIR(L)) GO TO 150\r\n  140 CONTINUE\r\n      ISORT = 1\r\n      GO TO 350\r\n  150 ISORT = L\r\n      GO TO 350\r\nC\r\n  160 IF (LF(1)) GO TO 300\r\n      LF(1)   = .TRUE.\r\n      CNAM(1) = Z(I+1)\r\n      CNAM(2) = Z(I+2)\r\n      GO TO 350\r\nC\r\n  170 JJ = JJ + 1\r\n      SNAM(JJ,1) = Z(I+1)\r\n      SNAM(JJ,2) = Z(I+2)\r\n      GO TO 350\r\nC\r\n  180 IF (LF(2)) GO TO 300\r\n      LF(2) = .TRUE.\r\n      TOLER = AZ(I+2)\r\n      GO TO 350\r\nC\r\n  190 IF (LF(3)) GO TO 300\r\n      LF(3)  = .TRUE.\r\n      CONSET = Z(I+2)\r\n      CONECT = .TRUE.\r\n      GO TO 350\r\nC\r\n  200 KK = KK + 1\r\n      COMP(KK,1) = Z(I+1)\r\n      COMP(KK,2) = Z(I+2)\r\n      DO 210 LINDX = 1,NPSUB\r\n      IF (Z(I+1).EQ.SNAM(LINDX,1) .AND. Z(I+2).EQ.SNAM(LINDX,2))\r\n     1   GO TO 350\r\n  210 CONTINUE\r\n      WRITE (OUTT,630) UFM,Z(I+1),Z(I+2)\r\n      IERR = 1\r\n      GO TO 350\r\nC\r\n  220 TRANS(KK) = Z(I+2)\r\n      TRAN = .TRUE.\r\n      GO TO 350\r\nC\r\n  230 DO 240 L = 1,15\r\n      IF (Z(I+1) .EQ. ISYM(L,2)) GO TO 250\r\n  240 CONTINUE\r\n      IERR = 1\r\n      WRITE (OUTT,620) UFM,Z(I+1),COMP(KK,1),COMP(KK,2)\r\n      GO TO 350\r\n  250 SYMT(KK) = ISYM(L,1)\r\n      GO TO 350\r\nC\r\n  260 DO 270 L = 1,NPSUB\r\n      IF (Z(I+1).EQ.SNAM(L,1) .AND. Z(I+2).EQ.SNAM(L,2)) GO TO 280\r\n  270 CONTINUE\r\n      WRITE (OUTT,630) UFM,Z(I+1),Z(I+2)\r\n      IERR = 1\r\n      GO TO 350\r\n  280 SRCH = .TRUE.\r\n      RESTCT(LINDX,L) = 1\r\n      RESTCT(L,LINDX) = 1\r\n      GO TO 350\r\nC\r\n  290 IPRINT = ORF(IPRINT,Z(I+2))\r\n      GO TO 350\r\nC\r\n  300 GO TO (350,350,310,350,320,330) , J\r\n  310 WRITE (OUTT,740) UFM\r\n      GO TO 340\r\n  320 WRITE (OUTT,750) UFM\r\n      GO TO 340\r\n  330 WRITE (OUTT,760) UFM\r\n  340 IERR = 1\r\n  350 CONTINUE\r\nC\r\nC     IF NO SEARCH OPTIONS SPECIFIED - SEARCH ALL POSSIBLE CONNECTIONS\r\nC\r\n      IF (SRCH) GO TO 370\r\n      DO 360 I = 1,7\r\n      DO 360 J = 1,7\r\n  360 RESTCT(I,J) = 1\r\n  370 CONTINUE\r\n      DO 400 I = 1,NPSUB\r\n      DO 380 J = 1,NPSUB\r\n      IF (SNAM(I,1).EQ.COMP(J,1) .AND. SNAM(I,2).EQ.COMP(J,2)) GO TO 390\r\n  380 CONTINUE\r\n      COMBO(I,1) = SNAM(I,1)\r\n      COMBO(I,2) = SNAM(I,2)\r\n      COMBO(I,3) = 0\r\n      COMBO(I,4) = 0\r\n      GO TO 400\r\n  390 COMBO(I,1) = SNAM(I,1)\r\n      COMBO(I,2) = SNAM(I,2)\r\n      COMBO(I,3) = TRANS(J)\r\n      COMBO(I,4) = SYMT(J)\r\n  400 CONTINUE\r\n      CALL CLOSE (CASECC,1)\r\n      CALL PAGE\r\n      WRITE (OUTT,690) NPSUB\r\n      IF (IAUTO) WRITE (OUTT,700)\r\n      IF (.NOT. IAUTO) WRITE (OUTT,710)\r\n      IF (.NOT.(IAUTO .OR. CONECT)) GO TO 550\r\n  410 IF (CONECT) WRITE (OUTT,720) CONSET\r\n      IF (CNAM(1).EQ.0 .AND. CNAM(2).EQ.0) GO TO 560\r\n      WRITE (OUTT,640) CNAM\r\n      CALL FDSUB (CNAM,ITEST)\r\n      IF (ITEST .NE. -1) GO TO 500\r\n      IF (PORA .EQ. PAPP) GO TO 540\r\n  420 IF (.NOT.LF(2)) GO TO 530\r\n      WRITE (OUTT,670) TOLER\r\n      CALL DECODE (IPRINT,IBITS,NFLG)\r\n      IF (NFLG .EQ. 0) IBITS(1) = 0\r\n      IF (NFLG .EQ. 0) GO TO 440\r\n      DO 430 I = 1,NFLG\r\n      IBITS(I) = IBITS(I) + 1\r\n  430 CONTINUE\r\n  440 CONTINUE\r\n      WRITE (OUTT,810) (IBITS(KDH),KDH=1,NFLG )\r\n  450 DO 480 I = 1,NPSUB\r\n      WRITE (OUTT,770) I,COMBO(I,1),COMBO(I,2)\r\n      NCNAM(1) = COMBO(I,1)\r\n      NCNAM(2) = COMBO(I,2)\r\n      CALL SFETCH (NCNAM,NHEQSS,3,ITEST)\r\n      IF (ITEST .EQ. 4) WRITE (OUTT,780) UFM,NCNAM\r\n      IF (ITEST .EQ. 4) IDRY = -2\r\n      IF (COMBO(I,3) .NE. 0) WRITE (OUTT,790) COMBO(I,3)\r\n      IF (COMBO(I,4) .EQ. 0) GO TO 480\r\n      DO 460 MJ = 1,15\r\n      IF (COMBO(I,4) .EQ. ISYM(MJ,1)) GO TO 470\r\n  460 CONTINUE\r\n  470 WRITE (OUTT,800) ISYM(MJ,2)\r\n  480 CONTINUE\r\n  490 IF (IERR .EQ. 1) IDRY = -2\r\n      GO TO 610\r\n  500 LITM = LODS\r\n      IF (PORA .EQ. PAPP) LITM = LOAP\r\n      CALL SFETCH (CNAM,LITM,3,ITEST)\r\n      LONLY = .FALSE.\r\n      IF (ITEST .EQ. 3) GO TO 520\r\n      IF (PORA .EQ. PAPP) GO TO 510\r\n      WRITE (OUTT,650) UFM\r\n      IERR = 1\r\n      GO TO 420\r\nC\r\nC     OPTIONS PA YET LOAP ITEM ALREADY EXISTS\r\nC\r\n  510 WRITE (OUTT,820) UFM,CNAM\r\n      IERR = 1\r\n      GO TO 490\r\nC\r\nC     NEW LODS ONLY DEFINED\r\nC\r\n  520 LONLY = .TRUE.\r\n      RETURN\r\nC\r\n  530 WRITE (OUTT,660) UFM\r\n      IERR = 1\r\n      GO TO 450\r\nC\r\nC     OPTIONS PA YET SUBSTRUCTURE DOES NOT EXIST\r\nC\r\n  540 WRITE (OUTT,830) UFM,CNAM\r\n      IERR = 1\r\n      GO TO 490\r\n  550 WRITE (OUTT,680) UFM\r\n      IERR = 1\r\n      GO TO 410\r\n  560 WRITE (OUTT,730) UFM\r\n      IERR = 1\r\n      GO TO 490\r\n  570 IMSG = -2\r\n      GO TO 600\r\n  580 IMSG = -1\r\n      GO TO 600\r\n  590 IMSG = -3\r\n  600 CALL MESAGE (IMSG,IFILE,AAA)\r\n  610 CONTINUE\r\n      RETURN\r\nC\r\n  620 FORMAT (A23,' 6505, THE SYMMETRY OPTION ',A4,\r\n     1       ' CONTAINS AN INVALID SYMBOL.')\r\n  630 FORMAT (A23,' 6506, THE COMPONENT SUBSTRUCTURE ',2A4,\r\n     1       ' IS NOT ONE OF THOSE ON THE COMBINE CARD.')\r\n  640 FORMAT (/10X,38HTHE RESULTANT PSEUDOSTRUCTURE NAME IS ,2A4)\r\n  650 FORMAT (A23,' 6508, THE NAME SPECIFIED FOR THE RESULTANT ',\r\n     1       'PSEUDOSTRUCTURE', /32X,'ALREADY EXISTS ON THE SOF.')\r\n  660 FORMAT (A23,' 6504, A TOLERANCE MUST BE SPECIFIED FOR A COMBINE ',\r\n     1       'OPERATION.')\r\n  670 FORMAT (/10X,32HTHE TOLERANCE ON CONNECTIONS IS ,E15.6)\r\n  680 FORMAT (A23,' 6501, THE MANUAL COMBINE OPTION HAS BEEN SPECIFIED',\r\n     1       ', BUT NO CONNECTION SET WAS GIVEN.')\r\n  690 FORMAT (/10X,'THIS JOB STEP WILL COMBINE ',I1,' PSEUDOSTRUCTURES')\r\n  700 FORMAT (/10X,40HCONNECTIONS ARE GENERATED AUTOMATICALLY. )\r\n  710 FORMAT (/10X,35HCONNECTIONS ARE SPECIFIED MANUALLY. )\r\n  720 FORMAT (/10X,25HTHE CONNECTION SET ID IS ,I8)\r\n  730 FORMAT (A23,' 6502, NO NAME HAS BEEN SPECIFIED FOR THE RESULTANT',\r\n     1       ' COMBINED PSEUDOSTRUCTURE.')\r\n  740 FORMAT (A23,' 6519, REDUNDANT NAMES FOR RESULTANT PSEUDOSTRUCTURE'\r\n     1,      ' HAVE BEEN SPECIFIED.')\r\n  750 FORMAT (A23,' 6520, REDUNDANT VALUES FOR TOLER HAVE BEEN ',\r\n     1       'SPECIFIED.')\r\n  760 FORMAT (A23,' 6512, REDUNDANT CONNECTION SET ID S HAVE BEEN ',\r\n     1       'SPECIFIED.')\r\n  770 FORMAT (/10X, 27HCOMPONENT SUBSTRUCTURE NO. ,I1,8H NAME = ,2A4)\r\n  780 FORMAT (A23,' 6507, THE SUBSTRUCTURE ',2A4,' DOES NOT EXIST ON ',\r\n     1       'THE SOF FILE')\r\n  790 FORMAT (/15X, 15HTRANS SET ID = ,I8)\r\n  800 FORMAT (15X,22HSYMMETRY DIRECTIONS = ,A4)\r\n  810 FORMAT (/10X,30HTHE PRINT CONTROL OPTIONS ARE ,25I3)\r\n  820 FORMAT (A23,' 6533, OPTIONS PA HAS BEEN SPECIFIED BUT THE LOAP ',\r\n     1       'ITEM ALREADY EXISTS FOR SUBSTRUCTURE ',2A4)\r\n  830 FORMAT (A23,' 6534, OPTIONS PA HAS BEEN SPECIFIED BUT THE ',\r\n     1       'SUBSTRUCTURE ',2A4,' DOES NOT EXIST.', /30X,\r\n     2       'YOU CANNOT APPEND SOMETHING TO NOTHING.')\r\n      END\r\n"
  },
  {
    "path": "mis/cmckcd.f",
    "content": "      SUBROUTINE CMCKCD\r\nC\r\nC     THIS SUBROUTINE DETERMINES WHETHER MANUALLY SPECIFIED CONNECTION\r\nC     ENTRIES ARE ALLOWABLE BASED ON THE PRESCRIBED GEOMETRIC TOLERANCE.\r\nC\r\n      INTEGER         SCSFIL,COMBO,SCORE,IST(7),SCCONN,CE(9),AAA(2),\r\n     1                BUF2,OUTT\r\n      DIMENSION       IPNUM(7),COORD(7,3),DIFF2(3)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM,SCR3\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / STEP,IDRY\r\n      DATA    AAA   / 4HCMCK,4HCD   /\r\nC\r\nC     READ ALL BGSS INTO OPEN CORE\r\nC\r\n      IT    = 2\r\n      IERR  = 0\r\n      LLCO  = LCORE\r\n      J     = 0\r\n      IFILE = SCSFIL\r\n      CALL OPEN (*200,SCSFIL,Z(BUF2),0)\r\n      DO 30 I = 1,NPSUB\r\n      NREC  = COMBO(I,5) + 1\r\n      DO 10 JJ = 1,NREC\r\n      CALL FWDREC (*210,SCSFIL)\r\n   10 CONTINUE\r\n      CALL READ (*210,*20,SCSFIL,Z(SCORE+J),LLCO,1,NNN)\r\n      GO TO 220\r\n   20 IST(I) = SCORE + J\r\n      J = J + NNN\r\n      LLCO  = LLCO - NNN\r\n      CALL SKPFIL (SCSFIL,1)\r\n   30 CONTINUE\r\n      CALL CLOSE (SCSFIL,1)\r\nC\r\nC     READ CONNECTION ENTRIES AND LOAD INTO COORD ARRAY\r\nC\r\n      IFILE = SCCONN\r\n      CALL OPEN (*200,SCCONN,Z(BUF2),0)\r\n   40 CALL READ (*180,*50,SCCONN,CE,10,1,NNN)\r\nC\r\nC     LOAD COORD ARRAY\r\nC     CE(3)... UP TO CE(9) ARE INTERNAL POINT NO.\r\nC     IZ(IADD) IS THE COORD (CSTM) ID OF THE INTERNAL PTS.\r\nC     Z(IADD+1,+2,+3) ARE THE COORD. ORIGINS\r\nC\r\n   50 NPT  = 0\r\n      DO 80 I = 1,NPSUB\r\n      IF (CE(I+2)) 80,80,60\r\n   60 NPT  = NPT + 1\r\n      IADD = 4*(CE(I+2)-1) + IST(I)\r\n      IPNUM(NPT) = CE(I+2)\r\n      DO 70 J = 1,3\r\n      COORD(NPT,J) = Z(IADD+J)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\nC\r\nC     COMPARE ALL PAIRS OF COORDINATES AGAINST TOLER.\r\nC\r\n      NPTM1 = NPT - 1\r\n      DO 170 I = 1,NPTM1\r\n      IT = IT - 1\r\n      JJ = I  + 1\r\n      DO 160 J = JJ,NPT\r\n      DO 90 KK = 1,3\r\n      DIFF2(KK) = (COORD(J,KK)-COORD(I,KK))**2\r\n   90 CONTINUE\r\n      SUM  = 0.0\r\n      DO 100 KK = 1,3\r\n      SUM  = SUM + DIFF2(KK)\r\n  100 CONTINUE\r\n      DIST = SQRT(SUM)\r\n      IF (DIST .LE. TOLER) GO TO 160\r\n      IF (IT .GT. 1) GO TO 120\r\n      WRITE  (OUTT,110) UFM\r\n  110 FORMAT (A23,' 6514, ERRORS HAVE BEEN FOUND IN MANUALLY SPECIFIED',\r\n     1       ' CONNECTION ENTRIES. SUMMARY FOLLOWS')\r\n      IERR = 1\r\n      IDRY =-2\r\n      IT   = 2\r\n  120 IF (IT .GT. 2) GO TO 140\r\n      WRITE  (OUTT,130) (CE(KDH),KDH=1,NNN)\r\n  130 FORMAT ('0*** GEOMETRIC ERRORS HAVE BEEN FOUND IN THE FOLLOWING',\r\n     1        ' CONNECTION ENTRY', /5X,9I10)\r\n      IT   = 3\r\n  140 WRITE (OUTT,150) IPNUM(I),(COORD(I,MM),MM=1,3),\r\n     1                 IPNUM(J),(COORD(J,MM),MM=1,3)\r\n  150 FORMAT ('0*** IP NUMBER',I10,13H COORDINATES  ,3E16.6,4H AND, /,\r\n     1        '     IP NUMBER',I10,13H COORDINATES  ,3E16.6,\r\n     2        ' ARE NOT WITHIN TOLER UNITS.')\r\n  160 CONTINUE\r\n  170 CONTINUE\r\n      GO TO 40\r\nC\r\n  180 IF (IERR .EQ. 0) WRITE (OUTT,190) UIM\r\n  190 FORMAT (A29,' 6516, ALL MANUAL CONNECTIONS SPECIFIED ARE ',\r\n     1       'ALLOWABLE WITH RESPECT TO TOLERANCE')\r\n      CALL CLOSE (SCCONN,1)\r\n      GO TO 250\r\nC\r\n  200 IMSG = -1\r\n      GO TO 230\r\n  210 IMSG = -2\r\n      GO TO 230\r\n  220 IMSG = -8\r\n  230 CALL MESAGE (IMSG,IFILE,AAA)\r\nC\r\n  250 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmckdf.f",
    "content": "      SUBROUTINE CMCKDF\r\nC\r\nC     THIS SUBROUTINE DETERMINES WHETHER ALL (TRANSFORMED) LOCAL\r\nC     COORDINATE SYSTEMS SPECIFIED AT A GIVEN CONNECTION ARE COMPATABLE\r\nC\r\n      LOGICAL         FIRST,FERROR\r\n      INTEGER         SCCSTM,SCSFIL,SCCONN,SCORE,BUF2,ECPT1,IST(7),\r\n     1                CE(9),CSTMID(7),COMBO,IDPSUB(7),NAM(2),OUTT\r\n      DIMENSION       ECPT(4),CSTM(7,9),TT(9),IZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM,SCR3\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / STEP,IDRY\r\n      EQUIVALENCE     (IZ(1),Z(1)), (ECPT1,ECPT(1))\r\n      DATA    NAM   / 4HCMCK,4HDF  /\r\nC\r\n      DO 10 I = 2,4\r\n      ECPT(I) = 0.0\r\n   10 CONTINUE\r\n      FERROR  = .TRUE.\r\nC\r\nC     READ CSTM INTO OPEN CORE\r\nC\r\n      IFILE = SCCSTM\r\n      ICSTM = SCORE\r\n      LLCO  = LCORE\r\n      CALL OPEN (*300,SCCSTM,Z(BUF2),0)\r\n      CALL READ (*20,*20,SCCSTM,Z(ICSTM),LLCO,1,NW)\r\n      GO TO 320\r\n   20 LLCO = LLCO - NW\r\n      CALL CLOSE (SCCSTM,1)\r\n      IF (NW .EQ. 0) GO TO 350\r\n      CALL PRETRS (Z(ICSTM),NW)\r\nC\r\nC     READ ALL BGSS FILES INTO OPEN CORE\r\nC\r\n      IBGSS = SCORE + NW\r\n      IFILE = SCSFIL\r\n      CALL OPEN (*300,SCSFIL,Z(BUF2),0)\r\n      JJ = 0\r\n      DO 50 I = 1,NPSUB\r\n      IST(I) = IBGSS + JJ\r\n      NCSUB  = COMBO(I,5) + 1\r\n      DO 30 J = 1,NCSUB\r\n      CALL FWDREC (*310,SCSFIL)\r\n   30 CONTINUE\r\n      CALL READ (*300,*40,SCSFIL,Z(IBGSS+JJ),LLCO,1,NN)\r\n      GO TO 320\r\n   40 LLCO = LLCO - NN\r\n      JJ   = JJ + NN + 1\r\n      CALL SKPFIL (SCSFIL,1)\r\n   50 CONTINUE\r\n      CALL CLOSE (SCSFIL,1)\r\nC\r\nC     BEGIN READING CONNECTION ENTRIES\r\nC\r\n      IFILE = SCCONN\r\n      CALL OPEN (*300,SCCONN,Z(BUF2),0)\r\n   60 CALL READ (*230,*70,SCCONN,CE,10,1,NN)\r\n      GO TO 320\r\n   70 NPT = 0\r\n      DO 80 I = 1,NPSUB\r\nC\r\nC     CE(3)...CE(NN) ARE INTERNAL POINT NO.\r\nC\r\n      IF (CE(I+2) .EQ. 0) GO TO 80\r\n      NPT = NPT + 1\r\n      LOC = IST(I) + (CE(I+2)-1)*4\r\n      CSTMID(NPT) = IZ(LOC)\r\n      IDPSUB(NPT) = I\r\n   80 CONTINUE\r\nC\r\nC     CHECK FOR NO CSTMS THIS ENTRY\r\nC\r\n      ISUM = 0\r\n      DO 90 I = 1,NPT\r\n      ISUM = ISUM + CSTMID(I)\r\n   90 CONTINUE\r\n      IF (ISUM .EQ. 0) GO TO 60\r\nC\r\nC     GET CSTM MATRICES AND LOAD INTO CSTM ARRAY\r\nC\r\n      DO 130 I = 1,NPT\r\n      ECPT1 = CSTMID(I)\r\n      IF (ECPT1 .EQ. 0) GO TO 110\r\n      CALL TRANSS (ECPT,TT)\r\n      DO 100 J = 1,9\r\n      CSTM(I,J) = TT(J)\r\n  100 CONTINUE\r\n      GO TO 130\r\n  110 DO 120 J = 1,9\r\n      CSTM(I,J) = 0.0\r\n  120 CONTINUE\r\n      CSTM(I,1) = 1.0\r\n      CSTM(I,5) = 1.0\r\n      CSTM(I,9) = 1.0\r\n  130 CONTINUE\r\nC\r\nC     COMPARE EACH MATRIX AGAINST OTHERS\r\nC\r\n      NPTM1 = NPT - 1\r\n      DO 220 I = 1,NPTM1\r\n      FIRST = .TRUE.\r\n      J = I + 1\r\n      DO 210 K  = J,NPT\r\n      DO 140 KK = 1,9\r\n      IF (ABS(CSTM(I,KK)-CSTM(K,KK)) .LT. 1.E-3) GO TO 140\r\n      GO TO 150\r\n  140 CONTINUE\r\n      GO TO 210\r\n  150 IF (.NOT.FERROR) GO TO 170\r\n      FERROR = .FALSE.\r\n      WRITE  (OUTT,160) UFM\r\n  160 FORMAT (A23,' 6528, INCOMPATABLE LOCAL COORDINATE SYSTEMS HAVE ',\r\n     1        'BEEN FOUND.', /5X,'CONNECTION OF POINTS IS IMPOSSIBLE',\r\nC    2        ', SUMMARY FOLLOWS.', /5X,'(LOCAL COORDINATE SYSTEMS ARE',\r\nC    3        ' THE TRNASFORMED OVERALL STSTEM GENERATED BY COMB1,',\r\nC    4        /5X,'SEE PROGRM. MANUAL P 4.128-7, 9TH STEP)', //,\r\nC    5        ' *** SUGGESTION - YOUR SUBSTRUCTURING PROBLEM MAY ',\r\nC    6        'REQUIRE THE ''GTRAN'' CARD(S) ***',/)\r\nC\r\n     2        '. (SUGGESTION - USE ''GTRAN'' CARD(S))', /5X,\r\n     3        'SUMMARY IN TERMS OF THE JUST-FORMED INTERNAL DOF AND ',\r\n     4        'INTERNAL COORD. SYSTEM ID''S PER', /5X,\r\n     5        'THE EQSS AND BGSS FOLLOWS.',/)\r\n  170 IF (.NOT.FIRST) GO TO 190\r\n      FIRST = .FALSE.\r\n      ISUB  = IDPSUB(I) + 2\r\n      WRITE  (OUTT,180) CSTMID(I),CSTM(I,1),CSTM(I,4),CSTM(I,7),\r\n     1                  IDPSUB(I),CSTM(I,2),CSTM(I,5),CSTM(I,8),\r\n     2                  CE(ISUB) ,CSTM(I,3),CSTM(I,6),CSTM(I,9)\r\n  180 FORMAT (/1X,76(1H*),/,' THE FOLLOWING MISMATCHED LOCAL COORDINATE'\r\n     1,      ' SYSTEMS (CSTM) HAVE BEEN FOUND FOR', //,\r\n     2       ' LOCAL COORDINATE SYSTEM ID NO.',I9,8X,3E9.2, /,\r\n     3       ' PSEUDOSTRUCTURE ID NO.',I5,20X,3E9.2, /,\r\n     4       ' INTERNAL POINT NO.',I9,20X,3E9.2)\r\n      IDRY  = -2\r\n  190 ISUB  = IDPSUB(K) + 2\r\n      WRITE  (OUTT,200) CSTMID(K),CSTM(K,1),CSTM(K,4),CSTM(K,7),\r\n     1                  IDPSUB(K),CSTM(K,2),CSTM(K,5),CSTM(K,8),\r\n     2                  CE(ISUB), CSTM(K,3),CSTM(K,6),CSTM(K,9)\r\n  200 FORMAT (/12X,'AND',7X,'LOCAL COORDINATE SYSTEM ID NO.',I9,8X,\r\n     1        3E9.2, /22X,'PSEUDOSTRUCTURE ID NO.',I5,20X,3E9.2,\r\n     2        /22X,'INTERNAL POINT NO.',I9,20X,3E9.2)\r\n  210 CONTINUE\r\n  220 CONTINUE\r\n      GO TO 60\r\nC\r\n  230 CALL CLOSE (SCCONN,1)\r\n      GO TO 350\r\nC\r\n  300 IMSG = -1\r\n      GO TO 330\r\n  310 IMSG = -2\r\n      GO TO 330\r\n  320 IMSG = -8\r\n  330 CALL MESAGE (IMSG,IFILE,NAM)\r\nC\r\n  350 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmcomb.f",
    "content": "      SUBROUTINE CMCOMB (NPS,NENT,NDOF,IC)\r\nC\r\nC     THIS SUBROUTINE COMBINES CONNECTION ENTRIES THAT HAVE BEEN SPECIFI\r\nC     ON SEVERAL CONCT OR CONCT1 CARDS.\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         MATCH\r\n      INTEGER         CE(9),CEID,SCCONN,SCMCON,BUF1,BUF2,SAVCE,ORF,Z,\r\n     1                SCR2,BUF3,SCORE,COMSET,IO(10),SACONN,AAA(2)\r\n      DIMENSION       IC(NENT,NPS,NDOF),LIST(32),KROW(6),IERTAB(2000)\r\n      COMMON /CMB001/ SCR1,SCR2,JUNK(2),SCCONN,SCMCON\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,JUNK1(2),SCORE,LCORE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / ISTEP,IDRY\r\n      DATA    AAA   / 4HCMCO,4HMB   /\r\nC\r\nC     CE IS THE CONNECTION ENTRY\r\nC     KROW(I) IS THE NO. OF ROWS IN THE ITH DOF MATRIX\r\nC\r\n      IERSUB = 0\r\n      ITOMNY = 0\r\n      IFILE  = SCCONN\r\n      CALL OPEN (*400,SCCONN,Z(BUF1),0)\r\n      IFILE = SCMCON\r\n      CALL OPEN (*400,SCMCON,Z(BUF2),0)\r\n      NREC  = -1\r\n      NPSS  = NPS - 1\r\n      NWORD = NPS + 1\r\n      IENT  = 0\r\n      DO 10 I = 1,6\r\n   10 KROW(I) = 0\r\n      SAVCE = 0\r\n   20 CALL READ (*410,*190,SCMCON,CEID,1,0,NNN)\r\n      NREC  = CEID - SAVCE - 1\r\n      SAVCE = CEID\r\nC\r\nC     GO FIND ENTRY NO. CEID\r\nC\r\n      IFILE = SCCONN\r\n      IF (NREC .EQ. 0) GO TO 40\r\n      DO 30 I = 1,NREC\r\n      CALL FWDREC (*420,SCCONN)\r\n   30 CONTINUE\r\nC\r\nC     READ IN CONNECTION ENTRY\r\nC\r\n   40 CALL READ (*410,*50,SCCONN,CE,10,1,NNN)\r\nC\r\nC     FIND WHICH DOF ARE PRESENT IN CONNECTION ENTRY\r\nC\r\n   50 CALL DECODE (CE(1),LIST,NCOMP)\r\n      DO 180 I = 1,NCOMP\r\n      ICOMP = LIST(I) + 1\r\n      IF (KROW(ICOMP) .EQ. 0) GO TO 170\r\nC\r\nC     FIND FIRST NON-ZERO ENTRY IN CURRENT CE\r\nC\r\n      DO 60 J = 1,NPSS\r\n      IF (CE(J+2) .EQ. 0) GO TO 60\r\n      ISUB = J\r\n      GO TO 70\r\n   60 CONTINUE\r\nC\r\nC     NOW HAVE FOUND FIRST NON-ZERO, SEARCH FOR POSSIBLE\r\nC     MATCHING ENTRIES IN MATRIX\r\nC\r\n   70 NLOOP = KROW(ICOMP)\r\n      DO 140 J = 1,NLOOP\r\n      MATCH  = .FALSE.\r\n      NERSUB = 0\r\n      DO 110 JJ = ISUB,NPSS\r\n      IF (IC(J,JJ,ICOMP).EQ.0 .OR. CE(JJ+2).EQ.0) GO TO 110\r\n      IF (IC(J,JJ,ICOMP)-CE(JJ+2)) 80,100,80\r\n   80 IF (IERSUB+NERSUB .GT. 2000) ITOMNY = 1\r\n      IF (IERSUB+NERSUB .GT. 2000) GO TO 90\r\n      IERTAB(IERSUB+NERSUB+1) = ICOMP\r\n      IERTAB(IERSUB+NERSUB+2) = JJ\r\n      IERTAB(IERSUB+NERSUB+3) = IC(J,JJ,ICOMP)\r\n      IERTAB(IERSUB+NERSUB+4) = CE(JJ+2)\r\n      NERSUB = NERSUB + 4\r\n   90 CONTINUE\r\n      GO TO 110\r\n  100 MATCH = .TRUE.\r\n  110 CONTINUE\r\n      IF (MATCH) IERSUB = IERSUB + NERSUB\r\n      IF (.NOT.MATCH) GO TO 140\r\n      DO 130 JJ = ISUB,NPSS\r\n      IF (CE(JJ+2).NE.0 .AND. IC(J,JJ,ICOMP).NE.0) GO TO 130\r\n      IC(J,JJ,ICOMP) = IC(J,JJ,ICOMP) + CE(JJ+2)\r\n  130 CONTINUE\r\n      IC(J,NPSS+1,ICOMP) = ORF(IC(J,NPSS+1,ICOMP),CE(2))\r\n      GO TO 180\r\n  140 CONTINUE\r\n  150 DO 160 JJ = 1,NPSS\r\n      IC(NLOOP+1,JJ,ICOMP) = CE(JJ+2)\r\n  160 CONTINUE\r\n      IC(NLOOP+1,NPSS+1,ICOMP) = CE(2)\r\n      KROW(ICOMP) = KROW(ICOMP) + 1\r\n      GO TO 180\r\n  170 NLOOP = 0\r\n      GO TO 150\r\n  180 CONTINUE\r\n      GO TO 20\r\n  190 CONTINUE\r\n      IF (IERSUB .EQ. 0) GO TO 200\r\nC\r\nC     GENERATE ERROR TABLE AND TERMINATE\r\nC\r\n      CALL CLOSE (SCCONN,1)\r\n      CALL CLOSE (SCMCON,1)\r\n      CALL CMTRCE (IERTAB,IERSUB,ITOMNY)\r\n      IDRY = -2\r\n      RETURN\r\nC\r\n  200 CONTINUE\r\n      CALL CLOSE (SCCONN,1)\r\n      IFILE = SCR2\r\n      CALL OPEN (*400,SCR2,Z(BUF3),1)\r\n      DO 240 K = 1,NDOF\r\n      IROW = KROW(K)\r\n      IF (IROW) 240,240,210\r\n  210 DO 230 I = 1,IROW\r\n      IO(1) = K\r\n      IO(2) = IC(I,NPS,K)\r\n      DO 220 J = 1,NPSS\r\n      IO(J+2) = IC(I,J,K)\r\n  220 CONTINUE\r\n      CALL WRITE (SCR2,IO(1),NPS+1,0)\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n      CALL WRITE (SCR2,IO(1),0,1)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL OPEN (*400,SCR2,Z(BUF3),0)\r\n      CALL READ (*410,*250,SCR2,Z(SCORE),LCORE,1,NWD)\r\n      GO TO 430\r\n  250 CALL SORT (0,0,NPS+1,2,Z(SCORE),NWD)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL OPEN (*400,SCR2,Z(BUF3),1)\r\n      IFIN = SCORE + NWD - 1\r\n      IINC = NPS + 1\r\n      DO 310 I = SCORE,IFIN,IINC\r\n      IF (Z(I)) 260,310,260\r\n  260 COMSET = Z(I)\r\n      IBEG = I + IINC\r\n      DO 280 J = IBEG,IFIN,IINC\r\n      IF (Z(J) .EQ. 0) GO TO 280\r\n      IF (Z(J+1) .GT. Z(I+1)) GO TO 290\r\n      DO 270 K = 1,NPSS\r\n      IF (Z(I+K+1) .NE. Z(J+K+1)) GO TO 280\r\n  270 CONTINUE\r\n      COMSET = 10*COMSET+Z(J)\r\n      Z(J) = 0\r\n  280 CONTINUE\r\n  290 CALL ENCODE (COMSET)\r\n      IO(1) = COMSET\r\n      DO 300 KK = 1,NPS\r\n      IO(1+KK) = Z(I+KK)\r\n  300 CONTINUE\r\n      CALL WRITE (SCR2,IO,NPS+1,1)\r\n  310 CONTINUE\r\n      CALL REWIND (SCMCON)\r\n      IFILE = SCMCON\r\n      CALL READ (*410,*320,SCMCON,Z(SCORE),LCORE,1,NMCON)\r\n  320 NCE = 0\r\n      SACONN = SCCONN\r\n      CALL OPEN (*400,SCCONN,Z(BUF1),0)\r\n  330 CALL READ (*360,*340,SCCONN,CE,10,1,NNN)\r\n  340 NCE = NCE + 1\r\n      DO 350 I = 1,NMCON\r\n      IF (NCE .EQ. Z(SCORE+I-1)) GO TO 330\r\n  350 CONTINUE\r\n      CALL WRITE (SCR2,CE,NPS+1,1)\r\n      GO TO 330\r\n  360 CALL CLOSE (SCMCON,1)\r\n      CALL CLOSE (SCCONN,1)\r\n      CALL CLOSE (SCR2,1)\r\n      SCCONN = SCR2\r\n      SCR2   = SACONN\r\n      RETURN\r\nC\r\n  400 IMSG = -1\r\n      GO TO 440\r\n  410 IMSG = -2\r\n      GO TO 440\r\n  420 IMSG = -3\r\n      GO TO 440\r\n  430 IMSG = -8\r\n  440 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmcont.f",
    "content": "      SUBROUTINE CMCONT\r\nC\r\nC     THIS ROUTINE DEFINES THE CONNECTION ENTRIES IN TERMS OF IP\r\nC     NUMBERS.\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF\r\n      LOGICAL         ODD\r\n      INTEGER         SCSFIL,SCMCON,BUF3,BUF4,OFILE,SCR1,SCR2,BUF1,BUF2,\r\n     1                SCORE,ISTRT(100),ILEN(100),II(9),IO(9),ANDF,\r\n     2                RSHIFT,DOF(6),IP(6),AAA(2),SCCONN,COMBO,OUTT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB\r\n      COMMON /CMBFND/ INAM(2),IERR\r\n      COMMON /BLANK / STEP,IDRY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    AAA   / 4HCMCO,4HNT   /\r\nC\r\n      ICOR  = SCORE\r\n      ICLEN = LCORE\r\n      MFILE = SCSFIL\r\n      CALL OPEN (*200,SCSFIL,Z(BUF3),0)\r\n      OFILE = SCR2\r\n      IFILE = SCR1\r\n      NWD   = 2 + NPSUB\r\n      ODD   = .FALSE.\r\nC\r\n      DO 120 I = 1,NPSUB\r\n      ODD   = .NOT.ODD\r\n      NCSUB = COMBO(I,5)\r\nC\r\nC     READ IN EQSS FOR ITH PSEUDO-STRUCTURE\r\nC\r\n      MFILE = IFILE\r\n      CALL OPEN (*200,IFILE,Z(BUF1),0)\r\n      MFILE = OFILE\r\n      CALL OPEN (*200,OFILE,Z(BUF2),1)\r\nC\r\nC     MOVE TO FIRST COMPONENT EQSS\r\nC\r\n      DO 20 J = 1,NCSUB\r\n      MFILE = SCSFIL\r\n      CALL READ (*210,*10,SCSFIL,Z(SCORE),LCORE,1,NNN)\r\n      GO TO 220\r\n   10 ISTRT(J) = SCORE\r\n      ILEN(J)  = NNN\r\n      SCORE = SCORE + NNN\r\n      LCORE = LCORE - NNN\r\n   20 CONTINUE\r\n      CALL SKPFIL (SCSFIL,1)\r\nC\r\nC     CONNECTION ENTRIES IN TERMS OF GRID POINT ID ARE ON SCR1\r\nC     IN THE FORM...\r\nC        C/CC/G1/G2/G3/G4/G5/G6/G7\r\nC\r\nC     READ CONNECTION ENTRY..\r\nC\r\n      MFILE = IFILE\r\n   30 CALL READ (*110,*40,IFILE,II,10,1,NNN)\r\n   40 CONTINUE\r\n      ICOMP = II(2+I)/1000000\r\n      IGRID = II(2+I) - 1000000*ICOMP\r\n      IF (IGRID .EQ. 0) GO TO 100\r\nC\r\nC     THE ABOVE RETRIEVED THE ORIGINAL GRID PT. NO., NOW FIND OUT\r\nC     IF IT HAS SEVERAL IP NO.\r\nC\r\n      IF (ILEN(ICOMP) .EQ. 0) GO TO 50\r\n      CALL GRIDIP (IGRID,ISTRT(ICOMP),ILEN(ICOMP),IP,DOF,NIP,Z,NNN )\r\n      IF (IERR .NE. 1) GO TO 70\r\n   50 IDRY = -2\r\n      WRITE  (OUTT,60) UFM,IGRID,COMBO(I,1),COMBO(I,2),ICOMP\r\n   60 FORMAT (A23,' 6535, A MANUAL CONNECTION SPECIFIES GRID ID ',I8,\r\n     1       ' OF PSEUDOSTRUCTURE ',2A4, /30X,\r\n     2       'COMPONENT STRUCTURE,I4,22H WHICH DOES NOT EXIST.')\r\n      GO TO 30\r\n   70 DO 90 J = 1,NIP\r\n      II2 = RSHIFT(DOF(J),26)\r\n      II2 = LSHIFT(II2,26)\r\n      DOF(J) = DOF(J) - II2\r\n      IO(1)  = ANDF(II(1),DOF(J))\r\n      IF (IO(1) .EQ. 0) GO TO 90\r\n      IO(2) = II(2)\r\n      DO 80 JJ = 1,NWD\r\n      IO(2+JJ) = II(2+JJ)\r\n   80 CONTINUE\r\n      IO(2+I) = IP(J)\r\n      CALL WRITE (OFILE,IO,NWD,1)\r\n   90 CONTINUE\r\n      GO TO 30\r\n  100 CALL WRITE (OFILE,II,NWD,1)\r\n      GO TO 30\r\n  110 CALL CLOSE (IFILE,1)\r\n      IF (I .EQ. NPSUB ) CALL CLOSE (OFILE,2)\r\n      IF (I .LT. NPSUB ) CALL CLOSE (OFILE,1)\r\n      ISAVE = IFILE\r\n      IFILE = OFILE\r\n      OFILE = ISAVE\r\n  120 CONTINUE\r\n      SCCONN = SCR1\r\n      IF (ODD) SCCONN = SCR2\r\n      IF (SCCONN .EQ. SCR1) SCR1 = 305\r\n      IF (SCCONN .EQ. SCR2) SCR2 = 305\r\n      SCORE = ICOR\r\n      LCORE = ICLEN\r\n      CALL CLOSE (SCSFIL,1)\r\n      RETURN\r\nC\r\n  200 IMSG = -1\r\n      GO TO 230\r\n  210 IMSG = -2\r\n      GO TO 230\r\n  220 IMSG = -8\r\n  230 CALL MESAGE (IMSG,MFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmdisc.f",
    "content": "      SUBROUTINE CMDISC\r\nC\r\nC     THIS SUBROUTINE DETERMINES THE DISCONNECTED DEGREES OF FREEDOM\r\nC     AND GENERATES  DISCONNECTION ENTRIES  WHICH ARE MERGED WITH THE\r\nC     CONNECTION ENTRIES\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         SCSFIL,Z,SCORE,COMBO,IPTR(7),SCCONN,BUF3,CE(9),\r\n     1                ORF,SCDISC,DE(9),AAA(2),SCR1,SCR2,BUF2,OUTT\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB\r\n      COMMON /CMB004/ TDAT(6),NIPNEW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    AAA   / 4HCMDI,4HSC   /\r\nC\r\nC\r\n      NWD = NPSUB+2\r\n      ISVCOR = SCORE\r\n      ITOT = 0\r\n      ILEN = LCORE\r\n      NN = 0\r\n      KK = SCORE\r\n      CALL OPEN (*200,SCSFIL,Z(BUF3),0)\r\nC\r\nC     LOOP ON THE NUMBER OF PSEUDO STRUCTURES READING THE SIL,C TABLE\r\nC     INTO CORE FOR EACH.  THE ARRAY IPTR(I) POINTS TO THE START OF\r\nC     THE I-TH TABLE IN CORE\r\nC\r\n      DO 40 I = 1,NPSUB\r\n      NCSUB = COMBO(I,5)\r\nC\r\nC     FIND SIL, C TABLE\r\nC\r\n      DO 10 J = 1,NCSUB\r\n      CALL FWDREC (*210,SCSFIL)\r\n   10 CONTINUE\r\n      KK = KK + NN\r\n      IPTR(I) = KK\r\n      CALL READ (*210,*20,SCSFIL,Z(KK),LCORE,1,NN)\r\n      GO TO 220\r\nC\r\nC     ZERO OUT SIL VALUES, LOCATION WILL STORE CNEW\r\nC\r\n   20 DO 30 J = 1,NN,2\r\n      Z(KK+J-1) = 0\r\n   30 CONTINUE\r\n      LCORE = LCORE - NN\r\n      ITOT  = ITOT + NN\r\n      CALL SKPFIL (SCSFIL,1)\r\n   40 CONTINUE\r\n      CALL CLOSE (SCSFIL,1)\r\nC\r\nC     ALL EQSS HAVE BEEN PROCESSED, NOW SCAN THE CONNECTION ENTRIES\r\nC     AND GET CNEW VALUES.\r\nC\r\n      CALL OPEN (*200,SCCONN,Z(BUF3),0)\r\nC\r\nC     READ AND PROCESS CONNECTION ENTRIES ONE AT A TIME\r\nC\r\n   50 CALL READ (*80,*60,SCCONN,CE,10,1,NN)\r\n   60 DO 70 I = 1,NPSUB\r\n      IF (CE(2+I) .EQ. 0) GO TO 70\r\nC\r\nC     TRANSLATE CODED IP TO ACTUAL IP, COMPUTE LOCATION IN OPEN CORE\r\nC     AND UPDATE CNEW\r\nC\r\n      IP = CE(2+I) - 1000000*(CE(2+I)/1000000)\r\n      LOC = IPTR(I) + 2*IP - 2\r\n      Z(LOC) = ORF(Z(LOC),CE(1))\r\n   70 CONTINUE\r\n      GO TO 50\r\nC\r\nC     ALL CONNECTIONS HAVE BEEN ACCOUNTED FOR,NOW DETERMINE DISCONN.\r\nC\r\n   80 CONTINUE\r\n      SCDISC = SCR1\r\n      IF (SCR1 .EQ. SCCONN) SCDISC = SCR2\r\n      CALL OPEN (*200,SCDISC,Z(BUF2),1)\r\n      DO 130 I = 1,NPSUB\r\n      IF (I .LT. NPSUB) LEN = IPTR(I+1) - IPTR(I)\r\n      IF (I .EQ. NPSUB) LEN = ITOT - IPTR(I)\r\n      ISTRT = IPTR(I)\r\n      DO 120 J = 1,LEN,2\r\n      DO 90 KDH = 1,9\r\n      DE(KDH) = 0\r\n   90 CONTINUE\r\n      IP  = J/2 + 1\r\n      LOC = ISTRT + J - 1\r\nC\r\nC     POINT IS TOTALLY DISCONNECTED\r\nC\r\n      IF (Z(LOC) .EQ. Z(LOC+1)) GO TO 120\r\n      IF (Z(LOC) .NE. 0) GO TO 100\r\nC\r\nC     POINT IS TOTALLY CONNECTED\r\nC\r\n      DE(1) = Z(LOC+1)\r\n      DE(2) = 2**I\r\n      DE(2+I) = IP\r\n      GO TO 110\r\nC\r\nC     POINT IS PARTIALLY DISCONNECTED\r\nC\r\n  100 DE(1) = Z(LOC+1) - Z(LOC)\r\n      DE(2) = 2**I\r\n      DE(2+I) = IP\r\n  110 CALL WRITE (SCDISC,DE,NWD,1)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\n      CALL EOF (SCDISC)\r\n      CALL CLOSE (SCDISC,1)\r\n      KK = SCORE\r\n      LCORE = ILEN\r\n      CALL OPEN (*200,SCDISC,Z(BUF2),0)\r\n      CALL REWIND (SCCONN)\r\n      ID = 1\r\n  140 CALL READ (*150,*160,SCDISC,Z(KK),LCORE,1,NNN)\r\n      GO TO 220\r\n  150 ID = 2\r\n      CALL READ (*170,*160,SCCONN,Z(KK),LCORE,1,NNN)\r\n      GO TO 220\r\n  160 KK = KK + NWD\r\n      LCORE = LCORE - NWD\r\n      IF (LCORE .LT. NWD) GO TO 220\r\n      IF (ID .EQ. 1) GO TO 140\r\n      GO TO 150\r\n  170 CALL CLOSE (SCCONN,1)\r\n      CALL CLOSE (SCDISC,1)\r\n      CALL OPEN (*200,SCCONN,Z(BUF3),1)\r\n      LEN = KK - SCORE\r\n      NIPNEW = LEN/NWD\r\n      DO 180 I = 1,LEN,NWD\r\n      Z(SCORE+I) = IABS(Z(SCORE+I))\r\n  180 CONTINUE\r\n      CALL SORT (0,0,NWD,2,Z(SCORE),LEN)\r\n      DO 190 I = 1,LEN,NWD\r\n      CALL WRITE (SCCONN,Z(SCORE+I-1),NWD,1)\r\n  190 CONTINUE\r\n      CALL EOF (SCCONN)\r\n      CALL CLOSE (SCCONN,1)\r\n      CALL CLOSE (SCDISC,1)\r\n      SCORE = ISVCOR\r\n      LCORE = ILEN\r\n      RETURN\r\nC\r\n  200 IMSG = -1\r\n      GO TO 230\r\n  210 IMSG = -2\r\n      GO TO 230\r\n  220 IMSG = -8\r\n  230 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmhgen.f",
    "content": "      SUBROUTINE CMHGEN\r\nC\r\nC     THIS SUBROUTINE GENERATES THE (H) TRANSFORMATION MATRICES FOR\r\nC     COMPONENT SUBSTRUCTURES IN A COMBINE OPERATION AND WRITES THEM\r\nC     ON THE SOF\r\nC\r\n      LOGICAL         FRSFIL\r\n      INTEGER         BUFEX,SCR1,MCB(7),IHEAD(2),NAM(2),SCR3,BUF1,\r\n     1                CNAM,COMBO,Z,SSIL,LCORE,SCORE,SCSFIL,BUF2,BUF3,\r\n     2                SCBDAT,SCCONN,LISTO(32),LISTN(32),AAA(2),BUF4,\r\n     3                CE(10)\r\n      DIMENSION       T(6,6),TP(6,6),TPP(6,6),COLOUT(6),TID(6,6),\r\n     1                TTRAN(6,6)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM,SCR3\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB\r\n      COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / IIN,IOUT,IIII,NNNN,INCR\r\n      DATA    ZERO  / 0.0 /,AAA/ 4HCMHG,4HEN   /,IHEAD/ 4HHORG,4H    /\r\n      DATA    TID   / 1.,0.,0.,0.,0.,0., 0.,1.,0.,0.,0.,0.,\r\n     1                0.,0.,1.,0.,0.,0., 0.,0.,0.,1.,0.,0.,\r\n     2                0.,0.,0.,0.,1.,0., 0.,0.,0.,0.,0.,1. /\r\n      DATA    NHEQSS/ 4HEQSS   /\r\nC\r\nC     READ SIL,C FROM SOF FOR COMBINED STRUCTURE\r\nC\r\n      INCR  = 1\r\n      BUFEX = LCORE - BUF2 + BUF3\r\n      LCORE = BUFEX - 1\r\n      IF (LCORE .LT. 0) GO TO 320\r\n      IOEFIL = 310\r\n      CALL OPEN (*300,IOEFIL,Z(BUFEX),0)\r\n      MCB(1) = SCR1\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      IIN    = 1\r\n      IOUT   = 1\r\n      CALL SFETCH (CNAM,NHEQSS,1,ITEST)\r\n      NSUB = 0\r\n      DO 10 I = 1,NPSUB\r\n      NSUB = NSUB + COMBO(I,5)\r\n   10 CONTINUE\r\n      CALL SJUMP (NSUB+1)\r\n      CALL SUREAD (Z(SCORE),-1,NSILNW,ITEST)\r\nC\r\nC     LOOP ON NUMBER OF PSEUDO-STRUCTURES BEING COMBINED\r\nC\r\n      SSIL  = SCORE + NSILNW\r\n      LCORE = LCORE - NSILNW\r\n      IFILE = SCR3\r\n      CALL OPEN (*300,SCR3,Z(BUF1),0)\r\n      IFILE = SCSFIL\r\n      CALL OPEN (*300,SCSFIL,Z(BUF2),0)\r\nC\r\n      DO 260 I = 1,NPSUB\r\n      FRSFIL = .TRUE.\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\nC\r\nC     READ SIL,C FOR COMPONENT SUBSTRUCTURE\r\nC\r\n      NCS = COMBO(I,5) + 2\r\n      DO 20 J = 1,NCS\r\n      CALL FWDREC (*310,SCSFIL)\r\n   20 CONTINUE\r\n      IFILE = IOEFIL\r\n      CALL READ (*310,*30,IOEFIL,Z(SSIL),LCORE,1,NSLOLD)\r\n      GO TO 320\r\n   30 ISHPTR = SSIL + NSLOLD\r\n      IFILE  = SCSFIL\r\n      CALL READ (*310,*40,SCSFIL,Z(ISHPTR),LCORE,1,LHPTR)\r\n      GO TO 320\r\n   40 CALL SKPFIL (SCSFIL,1)\r\nC\r\nC     COMPUTE NUMBER OF ROWS IN MATRIX\r\nC\r\n      ICODE = Z(SSIL+NSLOLD-1)\r\n      CALL DECODE (ICODE, LISTO, NCOM)\r\n      MCB(3) = Z(SSIL+NSLOLD-2) + NCOM - 1\r\nC\r\nC     READ CONNECTION ENTRIES\r\nC\r\nC     READ TRANSFORMATION MATRIX FOR PSEUDOSTRUCTURE\r\nC\r\n      IFILE = SCR3\r\n      CALL READ (*310,*50,SCR3,TTRAN,37,1,NNN)\r\n   50 CONTINUE\r\n      CALL SKPFIL (SCR3,-1)\r\n      IF (I .NE. 1) CALL SKPFIL (SCR3,1)\r\n      IFILE = SCCONN\r\n      CALL OPEN (*300,SCCONN,Z(BUF3),0)\r\n      IFILE = SCR1\r\n      CALL OPEN (*300,SCR1,Z(BUF4),1)\r\n      CALL WRITE (SCR1,IHEAD,2,1)\r\n      IPNEW = 0\r\n   60 CALL READ (*250,*70,SCCONN,CE,10,1,NNN)\r\n   70 IPNEW  = IPNEW + 1\r\n      LOCIPN = SCORE + 2*(IPNEW-1) + 1\r\n      IF (CE(I+2) .EQ. 0) GO TO 230\r\n      IPOLD  = CE(I+2)\r\n      LOCIPO = SSIL + 2*(IPOLD-1) + 1\r\n      ICODE  = Z(LOCIPN)\r\n      CALL DECODE (ICODE,LISTN,NCN)\r\n      ICODE  = Z(LOCIPO)\r\n      CALL DECODE (ICODE,LISTO,NCO)\r\nC\r\n      IADDH = ISHPTR + IPOLD - 1\r\n      IDH   = Z(IADDH)\r\n      IF (IDH-1) 80,100,120\r\nC\r\nC     IDENTITY MATRIX\r\nC\r\n   80 CONTINUE\r\n      DO 90 I1 = 1,6\r\n      DO 90 I2 = 1,6\r\n      T(I1,I2) = TID(I1,I2)\r\n   90 CONTINUE\r\n      GO TO 160\r\nC\r\nC     TRANS MATRIX\r\nC\r\n  100 CONTINUE\r\n      DO 110 I1 = 1,6\r\n      DO 110 I2 = 1,6\r\n      T(I1,I2) = TTRAN(I1,I2)\r\n  110 CONTINUE\r\n      GO TO 160\r\nC\r\nC     MATRIX DUE TO GTRAN\r\nC\r\n  120 CONTINUE\r\n      IDHM1 = IDH - 1\r\n      DO 130 I1 = 1,IDHM1\r\n      CALL FWDREC (*310,SCR3)\r\n  130 CONTINUE\r\n      CALL READ (*310,*140,SCR3,T,37,1,NNN)\r\n  140 DO 150 I1 = 1,IDH\r\n      CALL BCKREC (SCR3)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\nC\r\nC     DELETE ROWS OF (T) FOR EACH COLD EQUAL TO ZERO\r\nC\r\n      DO 180 J1 = 1,NCO\r\n      IR = LISTO(J1) + 1\r\n      DO 170 J2 = 1,6\r\n      TP(J1,J2) = T(IR,J2)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      NROW = NCO\r\nC\r\nC     DELETE COLUMNS OF (T) FOR EACH CNEW EQUAL TO ZERO\r\nC\r\n      DO 200 J1 = 1,NCN\r\n      IC = LISTN(J1) + 1\r\n      DO 190 J2 = 1,NROW\r\n      TPP(J2,J1) = TP(J2,IC)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      NCOL = NCN\r\n      DO 220 I1 = 1,NCOL\r\n      DO 210 I2 = 1,NROW\r\n      COLOUT(I2) = TPP(I2,I1)\r\n  210 CONTINUE\r\n      IIII = Z(LOCIPO-1)\r\n      NNNN = IIII + NROW - 1\r\n      CALL PACK (COLOUT,SCR1,MCB)\r\n  220 CONTINUE\r\n      GO TO 60\r\n  230 IIII = 1\r\n      NNNN = 1\r\n      ICODE = Z(LOCIPN)\r\n      CALL DECODE (ICODE,LISTN,NCN)\r\n      DO 240 I1 = 1,NCN\r\n      CALL PACK (ZERO,SCR1,MCB)\r\n  240 CONTINUE\r\n      GO TO 60\r\n  250 CONTINUE\r\n      CALL CLOSE (SCCONN,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (SCR1,1)\r\n      NAM(1) = COMBO(I,1)\r\n      NAM(2) = COMBO(I,2)\r\n      CALL MTRXO (SCR1,NAM,IHEAD(1),Z(BUF4),ITEST)\r\n      CALL SKPFIL (SCR3,1)\r\n  260 CONTINUE\r\nC\r\n      CALL CLOSE (SCSFIL,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (IOEFIL,1)\r\n      LCORE = BUFEX + BUF2 - BUF3\r\n      RETURN\r\nC\r\n  300 IMSG = -1\r\n      GO TO 330\r\n  310 IMSG = -2\r\n      GO TO 330\r\n  320 IMSG = -8\r\n  330 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmiwrt.f",
    "content": "      SUBROUTINE CMIWRT (ICODE,NAME1,NAME2,LOC,NW,A,IZ)\r\nC\r\nC     THIS SUBROUTINE WRITES FORMATTED SOF ITEMS.\r\nC     ICODE = 1 FOR EQSS    ICODE = 2 FOR BGSS    ICODE = 3 FOR CSTM\r\nC     ICODE = 4 FOR PLTS    ICODE = 5 FOR LODS    ICODE = 7 FOR LOAP\r\nC     NAME1 IS PSEUDOSTRUCTURE NAME, NAME2 IS COMPONENT NAME\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         OUTT,ANDF\r\n      DIMENSION       NAME1(2),NAME2(2),A(1),IZ(1),IBITS(32),IPL(6),\r\n     1                IH1(96),IH2(96),IH3(96),IH4(96),IH5(96),IH6(96)\r\n      COMMON /SYSTEM/ XXX,OUTT,JUNK1(6),NLPP,JUNK2(2),NLINE\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      DATA IH1 / 9*4H    ,4H EQS,4HS IT,4HEM F,4HOR S,4HUBST,4HRUCT,\r\n     1           4HURE ,2*4H    ,4H COM,4HPONE,4HNT  ,11*4H    ,4HGRID,\r\n     2           4H POI,4HNT  ,4H INT,4HERNA,4HL   ,4H  CO,4HMPON,\r\n     3           4HENT ,2*4H    ,4H GRI,4HD PO,4HINT ,4H  IN,4HTERN,\r\n     4           4HAL  ,4H   C,4HOMPO,4HNENT,2*4H    ,4H  GR,4HID P,\r\n     5           4HOINT,4H   I,4HNTER,4HNAL ,4H    ,4HCOMP,4HONEN,\r\n     6           4HT   ,4H    ,4HID  ,4H    ,4H POI,4HNT I,4HD   ,\r\n     7           4H    ,4H DOF,4*4H    ,4H ID ,4H    ,4H  PO,4HINT ,\r\n     8           4HID  ,4H    ,4H  DO,4HF   ,3*4H    ,4H  ID,4H    ,\r\n     9           4H   P,4HOINT,4H ID ,4H    ,4H   D,4HOF  ,4H     /\r\n      DATA IH2 / 11*4H    ,4HBGSS,4H ITE,4HM FO,4HR SU,4HBSTR,4HUCTU,\r\n     1           4HRE  ,21*4H    ,4HINTE,4HRNAL,4H    ,4H CST,4HM ID,\r\n     2           4*4H    ,4H  C ,4HO O ,4HR D ,4HI N ,4HA T ,4HE S ,\r\n     3           17*4H    ,4HPOIN,4HT ID,4H    ,4H   N,4HO.  ,3*4H    ,\r\n     4           4HX1  ,3*4H    ,4HX2  ,3*4H    ,4HX3  ,8*4H     /\r\n      DATA IH3 / 12*4H    ,4HCSTM,4H ITE,4HM FO,4HR SU,4HBSTR,\r\n     1           4HUCTU,4HRE  ,13*4H    ,2*4H    ,4H CST,4HM   ,4HTYPE,\r\n     2           2*4H    ,4HC O ,4HO R ,4HD I ,4HN A ,4HT E ,4HS   ,\r\n     3           4HO F ,4H  O ,4HR I ,4HG I ,4HN   ,3*4H    ,4H   T,\r\n     4           4H R A,4H N S,4H F O,4H R M,4H A T,4H I O,4H N  ,\r\n     5           5*4H    ,4H  ID,5*4H    ,4HX1  ,3*4H    ,4HX2  ,\r\n     6           3*4H    ,4HX3  ,6*4H    ,4H   M,4H A T,4H R I,4H X  ,\r\n     7           5*4H      /\r\n      DATA IH4 / 12*4H    ,4HPLTS,4H ITE,4HM FO,4HR SU,4HBSTR,\r\n     1           4HUCTU,4HRE  ,13*4H    ,2*4H    ,4HCOMP,4HONEN,4HT   ,\r\n     2           4H    ,4H C O,4H O R,4H D I,4H N A,4H T E,4H S  ,\r\n     3           4H O F,4H   O,4HR I ,4HG I ,4HN   ,3*4H    ,4H   T,\r\n     4           4H R A,4H N S,4H F O,4H R M,4H A T,4H I O,4H N  ,\r\n     5           6*4H    ,4H  NA,4HME  ,3*4H    ,4H X1 ,3*4H    ,\r\n     6           4H X2 ,3*4H    ,4H X3 ,6*4H    ,4H   M,4H A T,4H R I,\r\n     7           4H X  ,6*4H      /\r\n      DATA IH5 / 12*4H    ,4HLODS,4H ITE,4HM FO,4HR SU,4HBSTR,\r\n     1           4HUCTU,4HRE  ,18*4H    ,4H COM,4HPONE,4HNT  ,4H  NU,\r\n     2           4HMBER,4H OF ,21*4H    ,5*4H    ,4H   N,4HAME ,\r\n     3           4H    ,4H  LO,4HAD S,4HETS ,4H  L ,4HO A ,4HD   ,\r\n     4           4HS E ,4HT   ,4HI D ,4HE N ,4HT I ,4HF I ,4HC A ,\r\n     5           4HT I ,4HO N ,4H  N ,4HU M ,4HB E ,4HR S ,5*4H      /\r\n      DATA IH6 / 9*4H         ,4HEQSS,4H ITE,4HM - ,4HSCAL,4HAR I,\r\n     1           4HNDEX,4H LIS,4HT FO,4HR SU,4HBSTR,4HUCTU,4HRE  ,\r\n     2           11*4H        ,4H INT,4HERNA,4HL   ,4H INT,4HERNA,\r\n     3           4HL   ,4H  CO,4HMPON,4HENT ,2*4H         ,4H  IN,\r\n     4           4HTERN,4HAL  ,4H  IN,4HTERN,4HAL  ,4H   C,4HOMPO,\r\n     5           4HNENT,2*4H         ,4H   I,4HNTER,4HNAL ,4H   I,\r\n     6           4HNTER,4HNAL ,4H    ,4HCOMP,4HONEN,4HT   ,4H POI,\r\n     7           4HNT I,4HD   ,4H  SI,4HL ID,2*4H         ,4H DOF,\r\n     8           3*4H         ,4H  PO,4HINT ,4HID  ,4H   S,4HIL I,\r\n     9           4HD   ,4H    ,4H  DO,4HF   ,2*4H         ,4H   P,\r\n     A           4HOINT,4H ID ,4H    ,4HSIL ,4HID  ,4H    ,4H   D,\r\n     B           4HOF  ,4H     /\r\n      DATA LOAP/ 4HLOAP/\r\nC\r\n      IST  = LOC\r\n      IFIN = LOC + NW - 1\r\n      GO TO (1,2,3,4,5,6,5,8), ICODE\r\nC\r\nC     EQSS ITEM\r\nC\r\n    1 DO 100 I = 1,96\r\n  100 IHEAD(I) = IH1(I)\r\nC\r\nC     INSERT NAMES INTO HEADING\r\nC\r\n      IHEAD(17) = NAME1(1)\r\n      IHEAD(18) = NAME1(2)\r\n      IHEAD(22) = NAME2(1)\r\n      IHEAD(23) = NAME2(2)\r\n      CALL PAGE\r\n      IF (NW .NE. 0) GO TO 140\r\n      WRITE (OUTT,1009)\r\n      GO TO 700\r\nC\r\n  140 DO 101 I = IST,IFIN,9\r\n      NLINE = NLINE + 1\r\n      IF (NLINE .LE. NLPP) GO TO 150\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n  150 CONTINUE\r\n      ICOMP = ANDF(IZ(I+2),63)\r\n      CALL BITPAT (ICOMP,IBITS(1))\r\n      I2 = 3\r\n      IF (I+5 .GT. IFIN) GO TO 151\r\n      ICOMP = ANDF(IZ(I+5),63)\r\n      CALL BITPAT (ICOMP,IBITS(4))\r\n      I2 = 6\r\n      IF (I+8 .GT. IFIN) GO TO 151\r\n      ICOMP = ANDF(IZ(I+8),63)\r\n      CALL BITPAT (ICOMP,IBITS(7))\r\n      I2 = 9\r\n  151 CONTINUE\r\n      WRITE (OUTT,1000) (IZ(I+J-1),IZ(I+J),IBITS(J),IBITS(J+1),J=1,I2,3)\r\n  101 CONTINUE\r\n      GO TO 700\r\nC\r\nC     EQSS - SCALER INDEX LIST\r\nC\r\n    8 DO 600 I = 1,96\r\n  600 IHEAD(I) = IH6(I)\r\n      IHEAD(22) = NAME1(1)\r\n      IHEAD(23) = NAME1(2)\r\n      CALL PAGE\r\nC\r\n      IP = 0\r\n      DO 603 I = IST,IFIN,6\r\n      NLINE = NLINE + 1\r\n      IF (NLINE .LE. NLPP) GO TO 601\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n  601 CONTINUE\r\n      KCODE = IZ(I+1)\r\n      CALL BITPAT (KCODE,IBITS(1))\r\n      I2 = 2\r\n      IPL(1) = IP + 1\r\n      IF (I+3 .GT. IFIN) GO TO 602\r\n      KCODE = IZ(I+3)\r\n      CALL BITPAT (KCODE,IBITS(3))\r\n      I2 = 4\r\n      IPL(3) = IP + 2\r\n      IF (I+5 .GT. IFIN) GO TO 602\r\n      KCODE = IZ(I+5)\r\n      CALL BITPAT (KCODE,IBITS(5))\r\n      I2 = 6\r\n      IPL(5) = IP + 3\r\n  602 CONTINUE\r\n      WRITE (OUTT,1000) (IPL(J),IZ(I+J-1),IBITS(J),IBITS(J+1),J=1,I2,2)\r\n      IP = IP + 3\r\n  603 CONTINUE\r\n      GO TO 700\r\nC\r\nC     BGSS ITEM\r\nC\r\n    2 DO 200 I = 1,96\r\n  200 IHEAD(I)  = IH2(I)\r\n      IHEAD(20) = NAME1(1)\r\n      IHEAD(21) = NAME1(2)\r\n      CALL PAGE\r\n      J = 0\r\n      DO 201 I = IST,IFIN,4\r\n      J = J + 1\r\n      NLINE = NLINE + 1\r\n      IF (NLINE .LE. NLPP) GO TO 250\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n  250 CONTINUE\r\n      WRITE (OUTT,1001) J,IZ(I),A(I+1),A(I+2),A(I+3)\r\n  201 CONTINUE\r\n      GO TO 700\r\nC\r\nC     CSTM ITEM\r\nC\r\n    3 DO 300 I = 1,96\r\n  300 IHEAD(I)  = IH3(I)\r\n      IHEAD(20) = NAME1(1)\r\n      IHEAD(21) = NAME1(2)\r\n      CALL PAGE\r\n      DO 301 I = IST,IFIN,14\r\n      NLINE = NLINE + 4\r\n      IF (NLINE .LE. NLPP) GO TO 350\r\n      CALL PAGE\r\n      NLINE = NLINE + 4\r\n  350 CONTINUE\r\n      I1 = I + 2\r\n      I2 = I + 13\r\n      WRITE (OUTT,1002) IZ(I),IZ(I+1),(A(KK),KK= I1,I2)\r\n  301 CONTINUE\r\n      GO TO 700\r\nC\r\n    4 DO 400 I = 1,96\r\nC\r\nC     PLTS ITEM\r\nC\r\n  400 IHEAD(I)  = IH4(I)\r\n      IHEAD(20) = NAME1(1)\r\n      IHEAD(21) = NAME1(2)\r\n      CALL PAGE\r\n      DO 401 I = IST,IFIN,14\r\n      NLINE = NLINE + 4\r\n      IF (NLINE .LE. NLPP) GO TO 450\r\n      CALL PAGE\r\n      NLINE = NLINE + 4\r\n  450 CONTINUE\r\n      I1 = I + 2\r\n      I2 = I + 13\r\n      WRITE (OUTT,1004) IZ(I),IZ(I+1),(A(J),J=I1,I2)\r\n  401 CONTINUE\r\n      GO TO 700\r\nC\r\nC     LODS AND LOAP ITEMS\r\nC\r\n    5 DO 500 I = 1,96\r\n  500 IHEAD(I)  = IH5(I)\r\n      IHEAD(20) = NAME1(1)\r\n      IHEAD(21) = NAME1(2)\r\n      IF (ICODE .EQ. 7) IHEAD(13) = LOAP\r\n      CALL PAGE\r\n    6 IF (NW.EQ.0 .OR. NW.EQ.1) GO TO 520\r\n      NL = NW/5 + 3\r\n      NLINE = NLINE + NL\r\n      IF (NLINE .LE. NLPP) GO TO 550\r\n      CALL PAGE\r\n      NLINE = NLINE + NL\r\n  550 CONTINUE\r\n      IST1 = IST + 1\r\n      WRITE (OUTT,1006) NAME2(1),NAME2(2),IZ(IST),(IZ(J),J=IST1,IFIN)\r\n      GO TO 700\r\nC\r\n  520 NLINE = NLINE + 2\r\n      IF (NLINE .LE. NLPP) GO TO 560\r\n      CALL PAGE\r\n      NLINE = NLINE + 2\r\n  560 CONTINUE\r\n      WRITE (OUTT,1008) NAME2(1),NAME2(2)\r\n  700 RETURN\r\nC\r\n 1000 FORMAT (6X,I8,4X,I8,6X,A4,A2,2(13X,I8,4X,I8,6X,A4,A2))\r\n 1001 FORMAT (33X,I8,4X,I8,3X,3(3X,E13.6))\r\n 1002 FORMAT (/10X,I8,3X,I4,3X,3(3X,E13.6),4X,3(3X,E13.6),\r\n     1        /80X,3(3X,E13.6), /80X,3(3X,E13.6))\r\n 1004 FORMAT (/14X,2A4,3X,3(3X,E13.6),4X,3(3X,E13.6)\r\n     1        /77X,3(3X,E13.6), /77X,3(3X,E13.6))\r\n 1006 FORMAT (/26X,2A4,3X,I8,5X,6(2X,I8)/(50X,2X,I8,2X,I8,2X,I8,2X,I8,\r\n     1        2X,I8,2X,I8,/))\r\n 1008 FORMAT (/26X,2A4,17X,32HNO LOAD SETS FOR THIS COMPONENT. )\r\n 1009 FORMAT (/30X,64HALL DEGREES OF FREEDOM FOR THIS COMPONENT HAVE BEE\r\n     1N REDUCED OUT. )\r\n      END\r\n"
  },
  {
    "path": "mis/cmmcon.f",
    "content": "      SUBROUTINE CMMCON (NCE)\r\nC\r\nC     THIS SUBROUTINE DETERMINES WHETHER MORE THAN ONE CONNECTION ENTRY\r\nC     HAS BEEN SPECIFIED FOR A GIVEN IP NUMBER.\r\nC\r\n      LOGICAL         MCON\r\n      INTEGER         SCCONN,BUF1,Z,SCORE,SCMCON,BUF3,AAA(2)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,JUNK(2),SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ JUNK2(38),NPSUB,JUNK3(2),MCON\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    AAA   / 4HCMMC,4HON   /\r\nC\r\nC     READ CONNECTION ENTRIES INTO OPEN CORE\r\nC\r\n      NWD   = 2 + NPSUB\r\n      MCON  = .TRUE.\r\n      IFILE = SCCONN\r\n      CALL OPEN (*700,SCCONN,Z(BUF1),0)\r\n      J   = 0\r\n      NCE = 0\r\n   90 CALL READ (*200,*100,SCCONN,Z(SCORE+J),10,1,NNN)\r\n  100 NCE = NCE + 1\r\n      Z(SCORE+J) = NCE\r\n      J = J + NWD\r\n      GO TO 90\r\n  200 CALL CLOSE (SCCONN,1)\r\nC\r\nC     SWEEP THROUGH CONNECTION ENTRIES AND DETERMINE THOSE THAT\r\nC     REPRESENT MULTIPLE CONNECTIONS.\r\nC\r\n      MCON  = .FALSE.\r\n      NCEM1 = NCE - 1\r\nC\r\n      DO 500 K = 1,NCEM1\r\n      DO 400 I = 1,NPSUB\r\n      IST = SCORE + I + (K-1)*NWD + 1\r\n      IF (Z(IST) .EQ. 0) GO TO 400\r\n      DO 300 J = 1,NCE\r\n      IF (K .EQ. J) GO TO 300\r\n      ISUB = SCORE + 1 + I + (J-1)*NWD\r\n      IF (Z(IST) .NE. Z(ISUB)) GO TO 300\r\n      ILOC = I + 1\r\n      Z(IST -ILOC) = -1*IABS(Z(IST -ILOC))\r\n      Z(ISUB-ILOC) = -1*IABS(Z(ISUB-ILOC))\r\n      MCON = .TRUE.\r\n  300 CONTINUE\r\n  400 CONTINUE\r\n  500 CONTINUE\r\nC\r\n      IF (.NOT.MCON) RETURN\r\nC\r\nC     GENERATE OUTPUT FILE OF CONNECTION ENTRY IDS\r\nC\r\n      IFILE = SCMCON\r\n      CALL OPEN (*700,SCMCON,Z(BUF1),1)\r\n      DO 600 I = 1,NCE\r\n      LOC = SCORE + (I-1)*NWD\r\n      IF (Z(LOC) .LT. 0) CALL WRITE (SCMCON,IABS(Z(LOC)),1,0)\r\n  600 CONTINUE\r\n      CALL WRITE (SCMCON,0,0,1)\r\n      CALL CLOSE (SCMCON,1)\r\n      RETURN\r\nC\r\n  700 CALL MESAGE (-1,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2.f",
    "content": "      SUBROUTINE CMRD2\r\nC\r\nC     THIS SUBROUTINE IS THE CMRED2 MODULE WHICH PERFORMS THE MAJOR\r\nC     COMPUTATIONS FOR THE COMPLEX MODAL REDUCE COMMAND.\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC     CMRED2   CASECC,LAMAMR,PHISSR,PHISSL,EQST,USETMR,KAA,MAA,BAA,K4AA,\r\nC              PAA/KHH,MHH,BHH,K4HH,PHH,POVE/STEP/S,N,DRY/POPT $\r\nC\r\nC     INPUT  DATA\r\nC     GINO - CASECC - CASE CONTROL DATA\r\nC            LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISSR - RIGHT HAND EIGENVECTORS FOR SUBSTRUCTURE BEING\r\nC                     REDUCED\r\nC            PHISSL - LEFT HAND EIGENVECTORS FOR SUBSTRUCTURE BEING\r\nC                     REDUCED\r\nC            EQST   - EQSS DATA FOR BOUNDARY SET FOR SUBSTRUCTURE BEING\r\nC                     REDUCED\r\nC            USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE\r\nC            KAA    - SUBSTRUCTURE STIFFNESS MATRIX\r\nC            MAA    - SUBSTRUCTURE MASS MATRIX\r\nC            BAA    - SUBSTRUCTURE VISCOUS DAMPING MATRIX\r\nC            K4AA   - SUBSTRUCTURE STRUCTURE DAMPINF MATRIX\r\nC            PAA    - SUBSTRUCTURE LOAD MATRIX\r\nC     SOF  - LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS   - RIGHT HAND EIGENVECTOR TABLE FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            PHIL   - LEFT HAND EIGENVECTOR TABLE FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            HORG   - RIGHT HAND H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            HLFT   - LEFT HAND H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - KHH    - REDUCED STIFFNESS MATRIX\r\nC            MHH    - REDUCED MASS MATRIX\r\nC            BHH    - REDUCED VISCOUS DAMPING MATRIX\r\nC            K4HH   - REDUCED STRUCTURE DAMPING MATRIX\r\nC            PHH    - REDUCED LOAD MATRIX\r\nC            POVE   - INTERIOR POINT LOAD MATRIX\r\nC     SOF  - LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS   - RIGHT HAND EIGENVECTOR TABLE FOR ORIG.SUBSTRUCTURE\r\nC            PHIL   - LEFT HAND EIGENVECTOR TABLE FOR ORIG. SUBSTRUCTURE\r\nC            GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR\r\nC                     ORIGINAL SUBSTRUCTURE\r\nC            HORG   - RIGHT HAND H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            HLFT   - LEFT HAND H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            UPRT   - PARTITIONING VECTOR FOR CREDUCE FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            POVE   - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE\r\nC            POAP   - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED\r\nC                     SUBSTRUCTURE\r\nC            BGSS   - BASIC GRID POINT DEFINITION TABLE FOR REDUCED\r\nC                     SUBSTRUCTURE\r\nC            CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRICES FOR\r\nC                     REDUCED SUBSTRUCTURE\r\nC            LODS   - LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            LOAP   - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            PLTS   - PLOT SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            KMTX   - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            MMTX   - MASS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            PVEC   - LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            PAPD   - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            BMTX   - VISCOUS DAMPING MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            K4MX   - STRUCTURE DAMPING MATRIX FOR REDUCED SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - STEP   - CONTROL DATA CASECC RECORD (INTEGER)\r\nC              POPT   - PVEC OR PAPP OPTION FLAG (BCD)\r\nC     OUTPUT - DRY    - MODULE OPERATION FLAG (INTEGER)\r\nC     OTHERS - GBUF   - GINO BUFFERS\r\nC              SBUF   - SOF BUFFERS\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              OTFILE - OUTPUT FILE NUMBERS\r\nC              ISCR   - ARRAY OF SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC              NEWNAM - NAME OF REDUCED SUBSTRUCTURE\r\nC              SYMTRY - SYMMETRY FLAG\r\nC              RANGE  - RANGE OF FREQUENCIES TO BE USED\r\nC              NMAX   - MAXIMUM NUMBER OF FREQUENCIES TO BE USED\r\nC              IO     - IO OPTIONS FLAG\r\nC              MODES  - OLDMODES OPTION FLAG\r\nC              RSAVE  - SAVE REDUCTION PRODUCT FLAG\r\nC              LAMSAP - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY\r\nC              MODLEN - LENGTH OF MODE USE ARRAY\r\nC              MODPTS - NUMBER OF MODAL POINTS\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         SYMTRY,MODES,RSAVE,PONLY\r\n      INTEGER         STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,\r\n     1                OTFILE,OLDNAM,Z,SYSBUF,CASECC,YES,PHISSL,ORF\r\n      DIMENSION       MODNAM(2),NMONIC(8),RZ(1),ITRLR(7)\r\n      COMMON /BLANK / STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,\r\n     1                INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN,\r\n     2                OLDNAM(2),NEWNAM(2),SYMTRY,RANGE(2),NMAX,IO,MODES,\r\n     3                RSAVE,LAMSAP,MODPTS,MODLEN,PONLY,LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,IPRNTR\r\n      EQUIVALENCE     (CASECC,INFILE(1)),(PHISSL,INFILE(4)),(RZ(1),Z(1))\r\n      DATA    NMONIC/ 4HNAMA,4HNAMB,4HSYMF,4HRANG,4HNMAX,4HOUTP,4HOLDM,\r\n     1                4HRSAV/\r\n      DATA    KAA   / 107 /, IBLANK,YES /4H    , 4HYES /\r\n      DATA    MODNAM/ 4HCMRD,4H2   /\r\n      DATA    NHLODS, NHLOAP,NHHORG,NHHLFT /4HLODS,4HLOAP,4HHORG,4HHLFT/\r\nC\r\nC     COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      NOZWDS = KORSZ(Z(1))\r\n      LSTZWD = NOZWDS - 1\r\n      GBUF1  = NOZWDS - SYSBUF - 2\r\n      GBUF2  = GBUF1  - SYSBUF\r\n      GBUF3  = GBUF2  - SYSBUF\r\n      SBUF1  = GBUF3  - SYSBUF\r\n      SBUF2  = SBUF1  - SYSBUF - 1\r\n      SBUF3  = SBUF2  - SYSBUF\r\n      KORLEN = SBUF3  - 1\r\n      KORBGN = 1\r\n      IF (KORLEN .LE. KORBGN) GO TO 290\r\nC\r\nC     INITIALIZE SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\nC\r\nC     INITIALIZE CASE CONTROL PARAMETERS\r\nC\r\n      DO 6 I = 1,11\r\n      IF (I .GT. 6) GO TO 2\r\n      INFILE(I) = 100 + I\r\n      OTFILE(I) = 200 + I\r\n      ISCR(I) = 300 + I\r\n      GO TO 6\r\n    2 INFILE(I) = 100 + I\r\n      ISCR(I) = 300 + I\r\n    6 CONTINUE\r\n      DO 10 I = 1,2\r\n      OLDNAM(I) = IBLANK\r\n   10 NEWNAM(I) = IBLANK\r\n      RANGE(1) = -1.0E+35\r\n      RANGE(2) =  1.0E+35\r\n      SYMTRY = .FALSE.\r\n      NMAX   = 2147483647\r\n      IO     = 0\r\n      MODES  = .FALSE.\r\n      RSAVE  = .FALSE.\r\n      NRANGE = 0\r\n      PONLY  = .FALSE.\r\nC\r\nC     PROCESS CASE CONTROL\r\nC\r\n      IFILE = CASECC\r\n      CALL OPEN (*260,CASECC,Z(GBUF2),0)\r\n      IF (STEP) 20,40,20\r\n   20 DO 30 I = 1,STEP\r\n   30 CALL FWDREC (*280,CASECC)\r\nC\r\nC     READ CASECC\r\nC\r\n   40 CALL READ (*270,*280,CASECC,Z(KORBGN),2,0,NWDSRD)\r\n      NWDSCC = Z(KORBGN+1)\r\n      DO 200 I = 1,NWDSCC,3\r\n      CALL READ (*270,*280,CASECC,Z(KORBGN),3,0,NWDSRD)\r\nC\r\nC     TEST CASE CONTROL MNEMONICS\r\nC\r\n      DO 50 J = 1,8\r\n      IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60\r\n   50 CONTINUE\r\n      GO TO 200\r\nC\r\nC     SELECT DATA TO EXTRACT\r\nC\r\n   60 GO TO (70,90,110,120,140,160,180,190), J\r\nC\r\nC     EXTRACT NAME OF SUBSTRUCTURE BEING REDUCED\r\nC\r\n   70 DO 80 K = 1,2\r\n   80 OLDNAM(K) = Z(KORBGN+K)\r\n      GO TO 200\r\nC\r\nC     EXTRACT NAME OF REDUCED SUBSTRUCTURE\r\nC\r\n   90 DO 100 K = 1,2\r\n  100 NEWNAM(K) = Z(KORBGN+K)\r\n      GO TO 200\r\nC\r\nC     EXTRACT SYMMETRY FLAG\r\nC\r\n  110 IF (Z(KORBGN+1) .NE. YES) GO TO 200\r\n      SYMTRY = .TRUE.\r\n      GO TO 200\r\nC\r\nC     EXTRACT FREQUENCY RANGE\r\nC\r\n  120 IF (NRANGE .EQ. 1) GO TO 125\r\n      NRANGE = 1\r\n      RANGE(1) = RZ(KORBGN+2)\r\n      GO TO 200\r\n  125 RANGE(2) = RZ(KORBGN+2)\r\n      GO TO 200\r\nC\r\nC     EXTRACT MAXIMUM NUMBER OF FREQUENCIES\r\nC\r\n  140 IF (Z(KORBGN) .EQ. 0) GO TO 200\r\n      NMAX = Z(KORBGN+2)\r\n      GO TO 200\r\nC\r\nC     EXTRACT OUTPUT FLAGS\r\nC\r\n  160 IO = ORF(IO,Z(KORBGN+2))\r\n      GO TO 200\r\nC\r\nC     EXTRACT OLDMODES FLAG\r\nC\r\n  180 IF (Z(KORBGN+1) .NE. YES) GO TO 200\r\n      MODES = .TRUE.\r\n      GO TO 200\r\nC\r\nC     EXTRACT REDUCTION SAVE FLAG\r\nC\r\n  190 IF (Z(KORBGN+1) .NE. YES) GO TO 200\r\n      RSAVE = .TRUE.\r\n  200 CONTINUE\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     CHECK FOR SYMMETRY\r\nC\r\n      ITRLR(1) = PHISSL\r\n      CALL RDTRL (ITRLR)\r\n      NPASS = 2\r\n      IF (ITRLR(1) .GT. 0) GO TO 204\r\n      SYMTRY = .TRUE.\r\n      NPASS = 1\r\nC\r\nC     CHECK FOR RUN = GO\r\nC\r\n  204 IHORG = 0\r\n      IF (DRY .EQ. 0) GO TO 240\r\nC\r\nC     CHECK FOR STIFFNESS PROCESSING\r\nC\r\n      ITRLR(1) = KAA\r\n      CALL RDTRL (ITRLR)\r\n      IF (ITRLR(1) .GT. 0) GO TO 208\r\nC\r\nC     CHECK FOR LOADS ONLY PROCESSING\r\nC\r\n      CALL SFETCH (NEWNAM,NHLODS,3,ITEST)\r\n      IF (ITEST .EQ. 3) PONLY = .TRUE.\r\n      CALL SFETCH (NEWNAM,NHLOAP,3,ITEST)\r\n      IF (ITEST .EQ. 3) PONLY = .TRUE.\r\n      GO TO 240\r\nC\r\nC     PROCESS STIFFNESS MATRIX\r\nC\r\n  208 CALL CMRD2A\r\nC\r\nC     BEGIN COMPLEX MODAL REDUCTION\r\nC     NPASS .EQ. 1, SYMMETRIC REDUCTION\r\nC     NPASS .EQ. 2, UNSYMMETRIC REDUCTION\r\nC\r\n      DO 230 J = 1,NPASS\r\nC\r\nC     TEST FOR H TRANSFORMATION MATRICES\r\nC\r\n      GO TO (212,214), J\r\n  212 CALL SOFTRL (OLDNAM,NHHORG,ITRLR)\r\n      IF (ITRLR(1) .EQ. 1) GO TO 230\r\n      IHORG = IHORG + 1\r\n      GO TO 216\r\n  214 CALL SOFTRL (OLDNAM,NHHLFT,ITRLR)\r\n      IF (ITRLR(1) .EQ. 1) GO TO 230\r\n      IHORG = IHORG + 2\r\nC\r\nC     PREFORM GUYAN REDUCTION\r\nC\r\n  216 CALL CMRD2C (J)\r\nC\r\nC     PROCESS OLDMODES FLAG\r\nC\r\n      CALL CMRD2B (J)\r\nC\r\nC     CALCULATE MODAL TRANSFORMATION MATRIX\r\nC\r\n      CALL CMRD2D (J)\r\n      IF (J .EQ. 1) CALL CMRD2B (3)\r\nC\r\nC     CALCULATE H TRANSFORMATION MATRIX\r\nC\r\n      CALL CMRD2E (J)\r\n  230 CONTINUE\r\nC\r\nC     CALCULATE STRUCTURAL MATRICES\r\nC     IHORG .EQ. 0, BOTH HORG, HLFT ON SOF\r\nC     IHORG .EQ. 1, HORG CALCULATED, HLFT ON SOF\r\nC     IHORG .EQ. 2, HORG ON SOF, HLFT CALCULATED\r\nC     IHORG .EQ. 3, BOTH HORG, HLFT CALCULATED\r\nC\r\n  240 CALL CMRD2F (IHORG)\r\n      IF (IHORG .EQ. 0) GO TO 250\r\nC\r\nC     PROCESS NEW TABLE ITEMS\r\nC\r\n      CALL CMRD2G\r\nC\r\nC     CLOSE ANY OPEN FILES\r\nC\r\n  250 CALL SOFCLS\r\n      IF (DRY .EQ. -2) WRITE (IPRNTR,900)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  260 IMSG = -1\r\n      GO TO 300\r\n  270 IMSG = -2\r\n      GO TO 300\r\n  280 IMSG = -3\r\n      GO TO 300\r\n  290 IMSG = -8\r\n      IFILE = 0\r\n  300 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\n  900 FORMAT (50H0  MODULE CREDUCE TERMINATING DUE TO ABOVE ERRORS.)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2a.f",
    "content": "      SUBROUTINE CMRD2A\r\nC\r\nC     THIS SUBROUTINE PARTITIONS THE STIFFNESS MATRIX INTO BOUNDARY AND\r\nC     INTERIOR POINTS AND THEN SAVES THE PARTITIONING VECTOR ON THE SOF\r\nC     AS THE UPRT ITEM FOR THE CMRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO - USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE\r\nC            KAA    - SUBSTRUCTURE STIFFNESS MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - KBB  - KBB PARTITION MATRIX\r\nC            KIB  - KIB PARTITION MATRIX\r\nC            KII  - KII PARTITION MATRIX\r\nC     SOF  - UPRT - PARTITION VECTOR FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFER\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC     OTHERS - USETMR - USETMR INPUT FILE NUMBER\r\nC              KAA    - KAA INPUT FILE NUMBER\r\nC              KBB    - KBB OUTPUT FILE NUMBER\r\nC              KIB    - KIB OUTPUT FILE NUMBER\r\nC              KBI    - KBI OUTPUT FILE NUMBER\r\nC              KII    - KII OUTPUT FILE NUMBER\r\nC              UPRT   - KAA PARTITION VECTOR FILE NUMBER\r\nC\r\n      INTEGER         DRY,GBUF1,OTFILE,OLDNAM,Z,UN,UB,UI,FUSET,USETMR,\r\n     1                UPRT,MODNAM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,IDUM2(5),INFILE(11),\r\n     1                OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI\r\n      COMMON /PATX  / LCORE,NSUB(3),FUSET\r\n      COMMON /SYSTEM/ IDUM3,IPRNTR\r\n      EQUIVALENCE     (USETMR,INFILE(6)),(KAA,INFILE(7)),\r\n     1                (KBB,ISCR(1)),(KIB,ISCR(2)),(KII,ISCR(4)),\r\n     2                (KBI,ISCR(3)),(UPRT,ISCR(5))\r\n      DATA    MODNAM/ 4HCMRD,4H2A  /\r\n      DATA    ITEM  / 4HUPRT       /\r\nC\r\nC     SET UP PARTITIONING VECTOR\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      LCORE = KORLEN\r\n      FUSET = USETMR\r\n      CALL CALCV(UPRT,UN,UI,UB,Z(KORBGN))\r\nC\r\nC     PARTITION STIFFNESS MATRIX\r\nC\r\nC                  **         **\r\nC                  *     .     *\r\nC        **   **   * KBB . KBI *\r\nC        *     *   *     .     *\r\nC        * KAA * = *...........*\r\nC        *     *   *     .     *\r\nC        **   **   * KIB . KII *\r\nC                  *     .     *\r\nC                  **         **\r\nC\r\n      CALL GMPRTN(KAA,KII,KBI,KIB,KBB,UPRT,UPRT,NSUB(1),NSUB(2),\r\n     1     Z(KORBGN),KORLEN)\r\nC\r\nC     SAVE PARTITIONING VECTOR\r\nC\r\n      CALL MTRXO(UPRT,OLDNAM,  ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 30\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   30 GO TO (40,40,40,50,60,80), ITEST\r\n   40 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\n   50 IMSG = -2\r\n      GO TO 70\r\n   60 IMSG = -3\r\n   70 CALL SMSG(IMSG,ITEM,OLDNAM)\r\n      RETURN\r\nC\r\n   80 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 3211, MODULE ',2A4,8H - ITEM ,A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR ',\r\n     1       'I/O OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2b.f",
    "content": "      SUBROUTINE CMRD2B (KODE)\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE OLDMODES OPTION FLAG FOR THE CMRED2\r\nC     MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISSR - RIGHT HAND EIGENVECTOR MATRIX FOR SUBSTRUCTURE\r\nC                     BEING REDUCED\r\nC            PHISSL - LEFT HAND EIGENVECTOR MATRIX FOR SUBSTRUCTURE\r\nC                     BEING REDUCED\r\nC     SOF  - LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS   - RIGHT HAND EIGENVECTOR TABLE FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC            PHIL   - LEFT HAND EIGENVECTOR TABLE FOR ORIGINAL\r\nC                     SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISS  - EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED\r\nC     SOF  - LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS   - EIGENVECTOR MATRIX FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT- GBUF   - GINO BUFFER\r\nC            INFILE - INPUT FILE NUMBERS\r\nC            ISCR   - SCRATCH FILE NUMBERS\r\nC            KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC            OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC            MODES  - OLDMODES OPTION FLAG\r\nC            NFOUND - NUMBER OF MODAL POINTS USED\r\nC            LAMAAP - BEGINNING ADDRESS OF LAMS RECORD TO BE APPENDED\r\nC            MODLEN - LENGTH OF MODE USE ARRAY\r\nC     OTHERS-LAMAMR - LAMAMR INPUT FILE NUMBER\r\nC            PHIS   - PHIS INPUT FILE NUMBER\r\nC            LAMS   - LAMS INPUT FILE NUMBER\r\nC            PHISS  - PHISS INPUT FILE NUMBER\r\nC\r\n      LOGICAL         MODES\r\n      INTEGER         DRY,GBUF1,OLDNAM,Z,PHISSR,PHISSL,PHISL,RGDFMT\r\n      DIMENSION       RZ(1),MODNAM(2),ITMLST(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,IDUM2(5),INFILE(11),\r\n     1                IDUM3(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2),\r\n     2                IDUM5(7),MODES,IDUM6,LAMAAP,NFOUND,MODLEN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM4,IPRNTR\r\n      EQUIVALENCE     (RZ(1),Z(1)),(LAMAMR,INFILE(2)),\r\n     1                (PHISSR,INFILE(3)),(PHISSL,INFILE(4)),\r\n     2                (LAMS,ISCR(5)),(PHISL,ISCR(6))\r\n      DATA    MODNAM/ 4HCMRD,4H2B  /\r\n      DATA    ITMLST/ 4HPHIS,4HPHIL,4HLAMS/\r\n      DATA    RGDFMT/ 3 /\r\nC\r\nC     TEST OPERATION FLAG\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (KODE .EQ. 3) GO TO 20\r\nC\r\nC     TEST OLDMODES OPTION FLAG\r\nC\r\n      IF (MODES) GO TO 10\r\nC\r\nC     STORE GINO PHISS(R,L) AS PHI(S,L) ON SOF\r\nC\r\n      IFILE = PHISSR\r\n      IF (KODE .EQ. 2) IFILE = PHISSL\r\n      ITEM = ITMLST(KODE)\r\n      CALL MTRXO (IFILE,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 120\r\n      RETURN\r\nC\r\nC     READ SOF PHI(S,L) ONTO GINO PHI(S,L) SCRATCH FILES\r\nC\r\n   10 ITEM = ITMLST(KODE)\r\n      CALL MTRXI (PHISL,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 120\r\nC\r\nC     READ SOF LAMS ONTO GINO LAMS SCRATCH FILE\r\nC\r\n      CALL SFETCH (OLDNAM,ITMLST(3),1,ITEST)\r\n      ITEM = ITMLST(3)\r\n      IF (ITEST .GT. 1) GO TO 120\r\n      CALL GOPEN  (LAMS,Z(GBUF1),1)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL WRITE  (LAMS,Z(KORBGN),NWDSRD,1)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL WRITE  (LAMS,Z(KORBGN),NWDSRD,1)\r\n      CALL CLOSE  (LAMS,1)\r\nC\r\nC     SWITCH FILE NUMBERS\r\nC\r\n      IF (KODE .EQ. 1) PHISSR = PHISL\r\n      IF (KODE .EQ. 2) PHISSL = PHISL\r\n      LAMAMR = LAMS\r\n      RETURN\r\nC\r\nC     STORE LAMAMR (TABLE) AS LAMS ON SOF\r\nC\r\n   20 IF (MODES) GO TO 60\r\n      ITEM = ITMLST(3)\r\n      CALL DELETE (OLDNAM,ITEM,ITEST)\r\n      IF (ITEST.EQ.2 .OR. ITEST.GT.3) GO TO 120\r\n      IFILE = LAMAMR\r\n      CALL GOPEN  (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*100,LAMAMR)\r\n      ITEST = 3\r\n      CALL SFETCH (OLDNAM,ITMLST(3),2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 120\r\n      DO 30 I = 1, 2\r\n   30 Z(KORBGN+I-1) = OLDNAM(I)\r\n      Z(KORBGN+2) = RGDFMT\r\n      Z(KORBGN+3) = MODLEN\r\n      CALL SUWRT (Z(KORBGN),4,2)\r\n      LAMWDS = MODLEN - 1\r\n      RZ(KORBGN+6) = 0.0\r\n      DO 50 I = 1,LAMWDS\r\n      CALL READ  (*90,*100,LAMAMR,Z(KORBGN),6,0,NWDS)\r\n   50 CALL SUWRT (Z(KORBGN),7,1)\r\n      CALL READ  (*90,*100,LAMAMR,Z(KORBGN),6,0,NWDS)\r\n      CALL CLOSE (LAMAMR,1)\r\n      CALL SUWRT (Z(KORBGN),7,2)\r\n      CALL SUWRT (Z(LAMAAP),MODLEN,2)\r\n      CALL SUWRT (Z(LAMAAP),0,3)\r\n   60 CONTINUE\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   90 IMSG = -2\r\n      GO TO 110\r\n  100 IMSG = -3\r\n  110 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  120 GO TO (130,135,140,150,160,180), ITEST\r\n  130 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  135 WRITE (IPRNTR,902) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\n  140 IMSG = -1\r\n      GO TO 170\r\n  150 IMSG = -2\r\n      GO TO 170\r\n  160 IMSG = -3\r\n  170 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      RETURN\r\nC\r\n  180 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURBED.')\r\n  902 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2c.f",
    "content": "      SUBROUTINE CMRD2C (ITER)\r\nC\r\nC     THIS SUBROUTINE PERFORMS THE GUYAN REDUCTION ON THE STRUCTURE\r\nC     POINTS FOR THE CMRED2 MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - KII    - KII PARTITION MATRIX\r\nC            KIB    - KIB KIB PARTITION MATRIX\r\nC     SOF  - GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                      ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     SOF  - LMTX   - LII PARTITION MATRIX\r\nC            GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                    ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT- GBUF   - GINO BUFFER\r\nC            ISCR   - SCRATCH FILE NUMBER ARRAY\r\nC            KORLEN - LENGTH OF OPEN CORE\r\nC            KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC            OLDNAM - NAME OF SUBSTRUCTURE BEGING REDUCED\r\nC            RSAVE  - DECOMPOSITION SAVE FLAG\r\nC     OTHERS-KII    - KII PARTITION MATRIX FILE NUMBER\r\nC            LII    - LII PARTITION MATRIX FILE NUMBER\r\nC            SYMTRY - KII SYMMETRY FLAG\r\nC\r\n      LOGICAL         RSAVE,RESTOR,SYMTRY\r\n      INTEGER         DRY,SBUF1,SBUF2,SBUF3,OLDNAM,Z,POWER,CHLSKY,UIITC,\r\n     1                SCR,POWERC,B,BBAR,U,GIBT,PREC,SIGN,UGFBS,GIBFBS,\r\n     2                PREC1,ATRLR,ATTRLR,GIB,UII,DBLKOR,UPPER,HIM\r\n      DOUBLE PRECISION DETR,DETI,MINDIA,DET,MINDC,DZ\r\n      DIMENSION       ITRLR(7),MODNAM(2),ITMLST(3),DZ(1)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / IDUM1,DRY,IDUM4(4),SBUF1,SBUF2,SBUF3,IDUM3(11),\r\n     1                OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2),\r\n     2                IDUM2(8),RSAVE,IDUM6(4),LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SFACT / KIIT(7),LIIT(7),ISCRQ(7),ISCRA,ISCRB,NZSF,\r\n     1                DETR,DETI,POWER,ISCRC,MINDIA,CHLSKY\r\n      COMMON /CDCMPX/ KIITC(7),LIITC(7),UIITC(7),SCR(3),DET(2),POWERC,\r\n     1                NX,MINDC,B,BBAR\r\n      COMMON /FBSX  / LIIFBS(7),U(7),KIBT(7),GIBT(7),NZFBS,PREC,SIGN\r\n      COMMON /GFBSX / LIGFBS(7),UGFBS(7),KIGFBS(7),GIBFBS(7),NZGFBS,\r\n     1                PREC1,ISIGN\r\n      COMMON /TRNSPX/ ATRLR(7),ATTRLR(7),LCORE,NSCRTH,ISCRTH(8)\r\n      COMMON /SYSTEM/ IDUM5,IPRNTR\r\n      EQUIVALENCE     (KIB,ISCR(2)),(KBI,ISCR(3)),(KII,ISCR(4)),\r\n     1                (LII,ISCR(8)),(UII,ISCR(9)),(HIM,ISCR(10)),\r\n     2                (GIB,ISCR(11)),(DZ(1),Z(1))\r\n      DATA    MODNAM/ 4HCMRD,4H2C  /\r\n      DATA    LOWER , UPPER /4,5   /\r\n      DATA    ITMLST/ 4HLMTX,4HGIMS,4HHORG/\r\nC\r\nC     PREFORM GUYAN REDUCTION\r\nC\r\n      IF (DRY .EQ. -2) GO TO 130\r\n      RESTOR = .FALSE.\r\nC\r\nC     TRANSPOSE KII, KBI\r\nC\r\n      IF (ITER .EQ. 1) GO TO 8\r\n      IF (SYMTRY) GO TO 37\r\n    1 DBLKOR = (KORBGN/2) + 1\r\n      LCORE  = LSTZWD - ((2*DBLKOR)-1)\r\n      NSCRTH = 5\r\n      DO 2 I = 1,NSCRTH\r\n    2 ISCRTH(I) = ISCR(4+I)\r\n      DO 6 I = 1,2\r\n      ITRLR(1) = KII\r\n      IF (I .EQ. 2) ITRLR(1) = KBI\r\n      CALL RDTRL (ITRLR)\r\n      DO 4 J = 1,7\r\n      ATRLR(J) = ITRLR(J)\r\n    4 ATTRLR(J) = ITRLR(J)\r\n      ATTRLR(2) = ITRLR(3)\r\n      ATTRLR(3) = ITRLR(2)\r\n      CALL TRNSP (DZ(DBLKOR))\r\n    6 CALL WRTTRL (ATTRLR)\r\n      IF (RESTOR) CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      IF (RESTOR) GO TO 39\r\n      RESTOR = .TRUE.\r\n      CALL SOFCLS\r\n      GO TO 16\r\nC\r\nC     DECOMPOSE INTERIOR STIFFNESS MATRIX\r\nC        (SYMMETRIC)\r\nC\r\nC                                 T\r\nC        **   **   **   ** **   **\r\nC        *     *   *     * *     *\r\nC        * KII * = * LII * * LII *\r\nC        *     *   *     * *     *\r\nC        **   **   **   ** **   **\r\nC\r\n    8 CALL SOFCLS\r\n      KIIT(1) = KII\r\n      CALL RDTRL (KIIT)\r\n      IF (KIIT(4) .NE. 6) GO TO 12\r\n      SYMTRY = .TRUE.\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF (KIIT(5).EQ.2 .OR. KIIT(5).EQ.4) IPRC = 2\r\n      IF (KIIT(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (LIIT,LII,KIIT(3),LOWER,ITYPE)\r\n      ISCRQ(1) = ISCR(5)\r\n      ISCRA  = ISCR(6)\r\n      ISCRB  = ISCR(7)\r\n      ISCRC  = ISCR(9)\r\n      CHLSKY = 0\r\n      POWER  = 1\r\n      DBLKOR = (KORBGN/2) + 1\r\n      NZSF   = LSTZWD - ((2*DBLKOR)-1)\r\n      CALL SDCOMP (*40,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (LIIT)\r\n      GO TO 18\r\nC\r\nC     DECOMPOSE INTERIOR STIFFNESS MATRIX\r\nC        (UNSYMMETRIC)\r\nC\r\nC        **   **   **   ** **   **\r\nC        *     *   *     * *     *\r\nC        * KII * = * LII * * UII *\r\nC        *     *   *     * *     *\r\nC        **   **   **   ** **   **\r\nC\r\n   12 SYMTRY = .FALSE.\r\n   16 KIITC(1) = KII\r\n      CALL RDTRL (KIITC)\r\n      ITYP = 0\r\n      IPRC = 1\r\n      IF (KIITC(5).EQ.2 .OR. KIITC(5).EQ.4) IPRC = 2\r\n      IF (KIITC(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (LIITC,LII,KIITC(3),LOWER,ITYPE)\r\n      CALL MAKMCB (UIITC,UII,KIITC(3),UPPER,ITYPE)\r\n      SCR(1) = ISCR(5)\r\n      SCR(2) = ISCR(6)\r\n      SCR(3) = ISCR(7)\r\n      B      = 0\r\n      BBAR   = 0\r\n      DBLKOR = (KORBGN/2) + 1\r\n      NX = LSTZWD - ((2*DBLKOR)-1)\r\n      CALL CDCOMP (*42,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (LIITC)\r\n      CALL WRTTRL (UIITC)\r\nC\r\nC     SAVE LII AS LMTX ON SOF\r\nC\r\n   18 IF (ITER.EQ.2 .OR. .NOT.RSAVE) GO TO 20\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      IFILE = LII\r\n      CALL MTRXO (LII,OLDNAM,ITMLST(1),0,ITEST)\r\n      ITEM = ITMLST(1)\r\n      IF (ITEST .NE. 3) GO TO 70\r\n      CALL SOFCLS\r\nC\r\nC     SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX\r\nC        (SYMMETRIC)\r\nC\r\nC                       T\r\nC        **   ** **   ** **   **    **   **\r\nC        *     * *     * *     *    *     *\r\nC        * LII * * LII * * GIB * = -* KIB *\r\nC        *     * *     * *     *    *     *\r\nC        **   ** **   ** **   **    **   **\r\nC\r\n   20 IF (.NOT.SYMTRY) GO TO 32\r\n      KIBT(1) = KIB\r\n      IF (ITER .EQ. 2) KIBT(1) = KBI\r\n      CALL RDTRL (KIBT)\r\n      DO 30 I = 1,7\r\n   30 LIIFBS(I) = LIIT(I)\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF (KIBT(5).EQ.2 .OR. KIBT(5).EQ.4) IPRC = 2\r\n      IF (LIIT(5).EQ.2 .OR. LIIT(5).EQ.4) IPRC = 2\r\n      IF (KIBT(5) .GE. 3) ITYP = 2\r\n      IF (LIIT(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (GIBT,GIB,KIBT(3),KIBT(4),ITYPE)\r\n      NZFBS = LSTZWD - ((2*DBLKOR)-1)\r\n      PREC  = KIBT(5) - 2\r\n      SIGN  = -1\r\n      CALL FBS (DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (GIBT)\r\n      GO TO 36\r\nC\r\nC     SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX\r\nC        (UNSYMMETRIC)\r\nC\r\nC        **   ** **   ** **   **    **   **\r\nC        *     * *     * *     *    *     *\r\nC        * LII * * UII * * GIB * = -* KIB *\r\nC        *     * *     * *     *    *     *\r\nC        **   ** **   ** **   **    **   **\r\nC\r\n   32 KIGFBS(1) = KIB\r\n      IF (ITER .EQ. 2) KIGFBS(1) = KBI\r\n      CALL RDTRL (KIGFBS)\r\n      DO 34 I = 1,7\r\n      LIGFBS(I) = LIITC(I)\r\n   34 UGFBS(I)  = UIITC(I)\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF (KIGFBS(5).EQ.2 .OR. KIGFBS(5).EQ.4) IPRC = 2\r\n      IF (LIITC(5) .EQ.2 .OR. LIITC(5) .EQ.4) IPRC = 2\r\n      IF (UIITC(5) .EQ.2 .OR. UIITC(5) .EQ.4) IPRC = 2\r\n      IF (KIGFBS(5) .GE. 3) ITYP = 2\r\n      IF (LIITC(5)  .GE. 3) ITYP = 2\r\n      IF (UIITC(5)  .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (GIBFBS,GIB,KIGFBS(3),KIGFBS(4),ITYPE)\r\n      NZGFBS = LSTZWD - ((2*DBLKOR)-1)\r\n      PREC1  = IPRC\r\n      ISIGN  = -1\r\n      CALL GFBS (DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (GIBFBS)\r\nC\r\nC     SAVE GIB AS GIMS ON SOF\r\nC\r\n   36 IF (RESTOR) GO TO 1\r\n      IF (ITER .EQ. 2) GO TO 39\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      IFILE = GIB\r\n      CALL MTRXO (GIB,OLDNAM,ITMLST(2),0,ITEST)\r\n      ITEM = ITMLST(2)\r\n      IF (ITEST .NE. 3) GO TO 70\r\n      GO TO 39\r\nC\r\nC     KII SYMMETRIC, GIBBAR = GIB\r\nC\r\n   37 ITEM = ITMLST(2)\r\n      CALL MTRXI (GIBBAR,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 70\r\n   39 CONTINUE\r\n      GO TO 130\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   40 WRITE (IPRNTR,903) UWM,OLDNAM\r\n      GO TO 44\r\n   42 WRITE (IPRNTR,904) UWM,OLDNAM\r\n   44 IMSG  = -37\r\n      IFILE = 0\r\n      CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 130\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   70 GO TO (80,82,84,90,100,120), ITEST\r\n   80 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      GO TO 130\r\nC\r\n   82 WRITE (IPRNTR,902) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      GO TO 130\r\nC\r\n   84 IMSG = -1\r\n      GO TO 110\r\n   90 IMSG = -2\r\n      GO TO 110\r\n  100 IMSG = -3\r\n  110 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 130\r\nC\r\n  120 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n  130 RETURN\r\nC\r\n  900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.')\r\n  902 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.')\r\n  903 FORMAT (A25,' 6311, SDCOMP DECOMPOSITION FAILED ON KII MATRIX ',\r\n     1       'FOR SUBSTRUCTURE ',2A4)\r\n  904 FORMAT (A23,' 6635, CDCOMP DECOMPOSITION FAILED ON KII MATRIX ',\r\n     1       'FOR SUBSTRUCTURE ',2A4)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2d.f",
    "content": "      SUBROUTINE CMRD2D (ITER)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE MODAL TRANSFORMATION MATRIX FOR THE\r\nC     CMRED2 MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISSR - RIGHT EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING\r\nC                     REDUCED\r\nC            PHISSL - LEFT EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING\r\nC                     REDUCED\r\nC     SOF  - GIMS   - G TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - HIM    - MODAL TRANSFORMATION MATRIX\r\nC\r\nC     PARAMETERS\r\nC     INPUT- GBUF   - GINO BUFFERS\r\nC            INFILE - INPUT FILE NUMBERS\r\nC            OTFILE - OUTPUT FILE NUMBERS\r\nC            ISCR   - SCRATCH FILE NUMBERS\r\nC            KORLEN - LENGTH OF OPEN CORE\r\nC            KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC            OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC            NMAX   - MAXIMUM NUMBER OF FREQUENCIES TO BE USED\r\nC     OUTPUT-MODUSE - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY\r\nC            NFOUND - NUMBER OF MODAL POINTS FOUND\r\nC            MODLEN - LENGTH OF MODE USE ARRAY\r\nC     OTHERS-HIMPRT - HIM PARTITION VECTOR\r\nC            PPRTN  - PHISS MATRIX PARTITION VECTOR\r\nC            PHIAM  - PHIAM MATRIX PARTITION\r\nC            PHIBM  - PHIBM MATRIX PARTITION\r\nC            PHIIM  - PHIIM MATRIX PARTITION\r\nC            IPARTN - BEGINNING ADDRESS OF PHISS PARTITION VECTOR\r\nC            LAMAMR - LAMAMR INPUT FILE NUMBER\r\nC            PHISS  - PHISS INPUT FILE NUMBER\r\nC            PPRTN  - PARTITION VECTOR FILE NUMBER\r\nC            HIMPRT - HIM PARTITION VECTOR FILE NUMBER\r\nC            GIB    - GIB INPUT FILE NUMBER\r\nC            PHIAM  - PHIAM PARTITION MATRIX FILE NUMBER\r\nC            PHIBM  - PHIBM PARTITION MATRIX FILE NUMBER\r\nC            PHIIM  - PHIIM PARTITION MATRIX FILE NUMBER\r\nC            HIM    - HIM INPUT FILE NUMBER\r\nC            HIMSCR - HIM SCRATCH INPUT FILE NUMBER\r\nC\r\n      LOGICAL         MODES\r\n      INTEGER         DRY,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,OTFILE,\r\n     1                OLDNAM,Z,TYPIN,TYPEP,FUSET,T,SIGNAB,SIGNC,PREC,\r\n     2                SCR,UN,UB,UI,RULE,TYPEU,\r\n     3                PHISS,PPRTN,GIB,PHIAM,PHIBM,PHIIM,HIM,HIMPRT,\r\n     4                PHISSR,PHISSL,GIBBAR,HIMBAR,HIMSCR,USETMR,HIMTYP,\r\n     5                DBLKOR,SGLKOR,DICORE\r\n      DOUBLE PRECISION DZ,DHIMSM,DHIMAG,DPHIM,DHIMG\r\n      DIMENSION       MODNAM(2),RZ(1),ITRLR(7),DZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,\r\n     1                SBUF3,INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN,\r\n     2                OLDNAM(2),IDUM4(3),RANGE(2),NMAX,IDUM5,MODES,\r\n     3                IDUM8,MODUSE,NFOUND,MODLEN,IDUM9,LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN,TYPEP,IROWP,NROWP,INCRP\r\n      COMMON /PATX  / LCORE,NSUB(3),FUSET\r\n      COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T,\r\n     1                SIGNAB,SIGNC,PREC,SCR\r\n      COMMON /BITPOS/ IDUM3(9),UN,IDUM7(10),UB,UI\r\n      COMMON /PARMEG/ IA(7),IA11(7),IA21(7),IA12(7),IA22(7),LCR,RULE\r\n      COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU\r\n      COMMON /SYSTEM/ IDUM2,IPRNTR\r\n      EQUIVALENCE     (LAMAMR,INFILE(2)),(PHISSR,INFILE(3)),\r\n     1                (PHISSL,INFILE(4)),(USETMR,INFILE(6)),\r\n     2                (PHIAM,ISCR(8)),(HIMSCR,ISCR(7)),(PHIBM,ISCR(9)),\r\n     3                (GIB,ISCR(8)),(GIBBAR,ISCR(11)),(PHIIM,ISCR(6)),\r\n     4                (HIMPRT,ISCR(7)),(HIMBAR,ISCR(8)),(PPRTN,ISCR(7)),\r\n     5                (HIM,ISCR(10)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/ 4HCMRD,4H2D  /\r\n      DATA    EPSLON/ 1.0E-03/\r\n      DATA    ITEM  / 4HGIMS /\r\n      DATA    ISCR7 / 307    /\r\nC\r\nC     READ LAMA FILE\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      KORE  = KORBGN\r\n      IFILE = LAMAMR\r\n      CALL GOPEN (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*170,LAMAMR)\r\n      LAMWDS = 6\r\n      IF (MODES) LAMWDS = 7\r\n      IT = 0\r\n    2 CALL READ (*160,*4,LAMAMR,Z(KORBGN),LAMWDS,0,NWDS)\r\n      KORBGN = KORBGN + 6\r\n      IF (KORBGN .GE. KORLEN) GO TO 180\r\n      IT = IT + 1\r\n      GO TO 2\r\n    4 CALL CLOSE (LAMAMR,1)\r\nC\r\nC     ZERO OUT PARTITIONING VECTOR AND SET UP MODE USE DESCRIPTION\r\nC     RECORD\r\nC\r\n      MODEXT   = KORBGN\r\n      ITRLR(1) = PHISSR\r\n      IF (ITER .EQ. 2) ITRLR(1) = PHISSL\r\n      CALL RDTRL (ITRLR)\r\n      ITPHIS = ITRLR(2)\r\n      IF (3*ITPHIS+MODEXT .GE. KORLEN) GO TO 180\r\n      LAMLEN = LAMWDS*ITPHIS\r\n      NNMAX  = MIN0(NMAX,ITPHIS)\r\n      MODUSE = MODEXT + ITPHIS\r\n      IPARTN = MODEXT + 2*ITPHIS\r\n      MODLEN = ITPHIS\r\n      DO 10 I = 1,ITPHIS\r\n      Z(MODUSE+I-1) = 3\r\n      Z(MODEXT+I-1) = 0\r\n   10 RZ(IPARTN+I-1) = 0.0\r\nC\r\nC     SELECT DESIRED MODES\r\nC\r\n      KORBGN = MODEXT + 3*ITPHIS\r\n      NFOUND = 0\r\n      DO 20 I = 1,ITPHIS\r\n      IF (NFOUND .EQ. NNMAX) GO TO 30\r\n      J = 3 + LAMWDS*(I-1)\r\n      IF (RZ(KORE+J).LE.RANGE(1) .OR. RZ(KORE+J).GE.RANGE(2)) GO TO 20\r\n      Z(MODEXT+NFOUND) = I\r\n      NFOUND = NFOUND + 1\r\n      Z(MODUSE+I-1)  = 1\r\n      RZ(IPARTN+I-1) = 1.0\r\n   20 CONTINUE\r\nC\r\nC     PACK OUT PARTITIONING VECTOR\r\nC\r\n   30 TYPIN = 1\r\n      TYPEP = 1\r\n      IROWP = 1\r\n      NROWP = ITRLR(2)\r\n      INCRP = 1\r\n      IFORM = 2\r\n      CALL MAKMCB (ITRLR,PPRTN,NROWP,IFORM,TYPIN)\r\n      CALL GOPEN (PPRTN,Z(GBUF1),1)\r\n      CALL PACK (RZ(IPARTN),PPRTN,ITRLR)\r\n      CALL CLOSE (PPRTN,1)\r\n      CALL WRTTRL (ITRLR)\r\n      KORBGN = KORBGN - ITPHIS\r\nC\r\nC     PARTITION PHISS(R,L) MATRICES\r\nC\r\nC        **     **   **         **\r\nC        *       *   *   .       *\r\nC        * PHISS * = * 0 . PHIAM *\r\nC        *       *   *   .       *\r\nC        **     **   **         **\r\nC\r\n      NSUB(1) = ITPHIS - NFOUND\r\n      NSUB(2) = NFOUND\r\n      NSUB(3) = 0\r\n      LCORE   = KORLEN - KORBGN\r\n      ICORE   = LCORE\r\n      PHISS   = PHISSR\r\n      IF (ITER .EQ. 2) PHISS = PHISSL\r\n      CALL GMPRTN (PHISS,0,0,PHIAM,0,PPRTN,0,NSUB(1),NSUB(2),Z(KORBGN),\r\n     1             ICORE)\r\nC\r\nC     PARTITION PHIAM MATRIX\r\nC\r\nC                    **     **\r\nC                    *       *\r\nC        **     **   * PHIBM *\r\nC        *       *   *       *\r\nC        * PHIAM * = *.......*\r\nC        *       *   *       *\r\nC        **     **   * PHIIM *\r\nC                    *       *\r\nC                    **     **\r\nC\r\n      FUSET = USETMR\r\n      CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN))\r\n      CALL GMPRTN (PHIAM,PHIIM,PHIBM,0,0,0,PPRTN,NSUB(1),NSUB(2),\r\n     1             Z(KORBGN),ICORE)\r\n      KHIM = 0\r\n      IF (IA21(6) .EQ. 0) GO TO 55\r\nC\r\nC     COMPUTE MODAL TRANSFORMATION MATRIX\r\nC\r\nC        **   **   **     **   **   ** **     **\r\nC        *     *   *       *   *     * *       *\r\nC        * HIM * = * PHIIM * - * GIB * * PHIBM *\r\nC        *     *   *       *   *     * *       *\r\nC        **   **   **     **   **   ** **     **\r\nC\r\n      IF (ITER .EQ. 2) GO TO 40\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR)\r\n      ITEST = ITRLR(1)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      ITRLR(1) = GIB\r\n      GO TO 45\r\n   40 ITRLR(1) = GIBBAR\r\n      CALL RDTRL (ITRLR)\r\n   45 DO 50 I = 1, 7\r\n      ITRLRA(I) = ITRLR(I)\r\n      ITRLRB(I) = IA21(I)\r\n   50 ITRLRC(I) = IA11(I)\r\n      IFORM = 2\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRC(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,HIMSCR,ITRLR(3),IFORM,ITYPE)\r\n      CALL SOFCLS\r\n      T      = 0\r\n      SIGNAB =-1\r\n      SIGNC  = 1\r\n      PREC   = 0\r\n      SCR    = ISCR(7)\r\n      DBLKOR = KORBGN/2 + 1\r\n      NZ     = LSTZWD - 2*DBLKOR - 1\r\n      CALL MPYAD  (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      I      = ITRLRD(2)\r\n      II     = ITRLRD(3)\r\n      IFORM  = ITRLRD(4)\r\n      HIMTYP = ITRLRD(5)\r\n      GO TO 60\r\nC\r\nC     PHIBM IS NULL, HIM = PHIIM\r\nC\r\n   55 HIMSCR = PHIIM\r\n      I      = IA11(2)\r\n      II     = IA11(3)\r\n      IFORM  = IA11(4)\r\n      HIMTYP = IA11(5)\r\n      KHIM   = 1\r\n      DBLKOR = KORBGN/2 + 1\r\nC\r\nC     TEST SELECTED MODES\r\nC\r\n   60 NCORE = 4*II\r\n      IF (KHIM .EQ. 0) NCORE = NCORE + 4*IA11(3)\r\n      IF (KORBGN+NCORE .GE. KORLEN) GO TO 180\r\n      TYPIN = HIMTYP\r\n      TYPEP = HIMTYP\r\n      IROWP = 1\r\n      NROWP = II\r\n      INCRP = 1\r\n      IROWU = 1\r\n      JHIM  = HIM\r\n      IF (ITER .EQ. 2) JHIM = HIMBAR\r\n      CALL GOPEN (HIMSCR,Z(GBUF1),0)\r\n      IF (KHIM .EQ. 0) CALL GOPEN (PHIIM,Z(GBUF2),0)\r\n      CALL MAKMCB (ITRLR,JHIM,II,IFORM,HIMTYP)\r\n      CALL GOPEN  (JHIM,Z(GBUF3),1)\r\n      NFOUND = 0\r\n      IT     = I\r\n      DBLKOR = KORBGN/2 + 1\r\n      SGLKOR = 2*DBLKOR - 1\r\n      IF (HIMTYP .EQ. 3) DICORE = ((SGLKOR + 2*II)/2) + 1\r\n      IF (HIMTYP .EQ. 4) DICORE = DBLKOR + 2*II\r\n      ICORE = 2*DICORE - 1\r\nC\r\nC     UNPACK HIM AND PHIIM COLUMNS\r\nC\r\n      DO 140 I = 1,IT\r\n      TYPEU = HIMTYP\r\n      INCRU = 1\r\n      NROWU = II\r\n      IHIM  = NROWU\r\n      CALL UNPACK (*110,HIMSCR,DZ(DBLKOR))\r\n      IF (KHIM .EQ. 1) GO TO 70\r\n      TYPEU = IA11(5)\r\n      INCRU = 1\r\n      NROWU = IA11(3)\r\n      IPHIM = NROWU\r\n      CALL UNPACK (*90,PHIIM,DZ(DICORE))\r\nC\r\nC     SAVE LARGEST HIM COLUMN VALUE AND CALCULATE MAGNITUDE OF HIM,\r\nC     PHIIM COLUMNS\r\nC\r\n   70 IF (HIMTYP .EQ. 4) GO TO 74\r\n      ITYPE  = 0\r\n      HIMSUM = 0.0\r\n      HIMMAG = 0.0\r\n      DO 72 J = 1,IHIM\r\n      K = 1 + 2*(J-1)\r\n      HIMAG = SQRT((RZ(SGLKOR+K-1)**2) + (RZ(SGLKOR+K)**2))\r\n      IF (HIMAG .GE. HIMMAG) HIMMAG = HIMAG\r\n   72 HIMSUM = HIMSUM + (RZ(SGLKOR+K-1)**2) + (RZ(SGLKOR+K)**2)\r\n      GO TO 78\r\n   74 ITYPE  = 1\r\n      DHIMSM = 0.0D0\r\n      DHIMAG = 0.0D0\r\n      DO 76 J = 1,IHIM\r\n      K = 1 + 2*(J-1)\r\n      DHIMG = DSQRT((DZ(DBLKOR+K-1)**2) + (DZ(DBLKOR+K)**2))\r\n      IF (DHIMG .GE. DHIMAG) DHIMAG = DHIMG\r\n   76 DHIMSM = DHIMSM + (DZ(DBLKOR+K-1)**2) + (DZ(DBLKOR+K)**2)\r\n   78 IF (KHIM    .EQ. 1) GO TO 95\r\n      IF (IA11(5) .EQ. 4) GO TO 82\r\n      ITYPE  = ITYPE + 1\r\n      PHIMSM = 0.0\r\n      DO 80 J = 1,IPHIM\r\n      K = 1 + 2*(J-1)\r\n   80 PHIMSM = PHIMSM + (RZ(ICORE+K-1)**2) + (RZ(ICORE+K)**2)\r\n      GO TO 85\r\n   82 ITYPE = ITYPE + 2\r\n      DPHIM = 0.0D0\r\n      DO 84 J = 1,IPHIM\r\n      K = 1 + 2*(J-1)\r\n   84 DPHIM = DPHIM + (DZ(DICORE+K-1)**2) + (DZ(DICORE+K)**2)\r\nC\r\nC     TEST FOR INCLUSION\r\nC\r\n   85 GO TO (86,87,88,89), ITYPE\r\n   86 IF (PHIMSM .EQ. 0.0) GO TO 90\r\n      IF (SQRT(HIMSUM)/SQRT(PHIMSM) .GE. EPSLON) GO TO 95\r\n      GO TO 90\r\n   87 IF (DPHIM .EQ. 0.0) GO TO 90\r\n      IF (SQRT(HIMSUM)/DSQRT(DPHIM) .GE. EPSLON) GO TO 95\r\n      GO TO 90\r\n   88 IF (PHIMSM .EQ. 0.0) GO TO 90\r\n      IF (DSQRT(DHIMSM)/SQRT(PHIMSM) .GE. EPSLON) GO TO 95\r\n      GO TO 90\r\n   89 IF (DPHIM .EQ. 0.0D0) GO TO 90\r\n      IF (DSQRT(DHIMSM)/DSQRT(DPHIM) .GE. EPSLON) GO TO 95\r\nC\r\nC     REJECT MODE\r\nC\r\n   90 J = Z(MODEXT+I-1)\r\n      Z(MODUSE+J-1) = 2\r\n      GO TO 140\r\nC\r\nC     USE MODE\r\nC\r\n   95 NFOUND = NFOUND + 1\r\nC\r\nC     SCALE HIM COLUMN\r\nC\r\n      IHIM = 2*IHIM\r\n      IF (HIMTYP .EQ. 4) GO TO 104\r\n      DO 102 J = 1,IHIM\r\n  102 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIMMAG\r\n      GO TO 130\r\n  104 DO 106 J = 1,IHIM\r\n  106 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIMAG\r\n      GO TO 130\r\nC\r\nC     NULL COLUMN\r\nC\r\n  110 IHIM = 2*IHIM\r\n      IF (HIMTYP .EQ. 4) GO TO 114\r\n      DO 112 J = 1,IHIM\r\n  112 RZ(SGLKOR+J-1) = 0.0\r\n      GO TO 130\r\n  114 DO 116 J = 1,IHIM\r\n  116 DZ(DBLKOR+J-1) = 0.0D0\r\nC\r\nC     PACK HIM COLUMN\r\nC\r\n  130 NROWP = NROWU\r\n      CALL PACK (DZ(DBLKOR),JHIM,ITRLR)\r\n  140 CONTINUE\r\n      CALL CLOSE (JHIM,1)\r\n      IF (KHIM .EQ. 0) CALL CLOSE (PHIIM,1)\r\n      CALL CLOSE (HIMSCR,1)\r\n      CALL WRTTRL (ITRLR)\r\n      KORBGN = KORE\r\n      IF (KHIM .EQ. 1) HIMSCR = ISCR7\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  160 IMSG = -2\r\n      GO TO 190\r\n  170 IMSG = -3\r\n      GO TO 190\r\n  180 IMSG = -8\r\n      IFILE = 0\r\n  190 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  200 GO TO (210,210,220,230,240,260), ITEST\r\n  210 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  220 IMSG = -1\r\n      GO TO 250\r\n  230 IMSG = -2\r\n      GO TO 250\r\n  240 IMSG = -3\r\n  250 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      RETURN\r\nC\r\n  260 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCRURE ',2A4,', IS PURGED.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2e.f",
    "content": "      SUBROUTINE CMRD2E (ITER)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE H TRANSFORMATION MATRIX FOR THE\r\nC     CMRED2 MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - HIM     - MODAL TRANSFORMATION MATRIX\r\nC     SOF  - GIMS    - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                      ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT  DATA\r\nC     GINO  - HGH    - HORG PARTITION MATRIX\r\nC     SOF   - HORG   - H TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT - GBUF   - GINO BUFFERS\r\nC             INFILE - INPUT FILE NUMBERS\r\nC             OTFILE - OUTPUT FILE NUMBERS\r\nC             ISCR   - SCRATCH FILE NUMBERS\r\nC             KORLEN - LENGTH OF OPEN CORE\r\nC             KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC             OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC     OTHERS- HIM    - HIM PARTITION MATRIX FILE NUMBER (RIGHT SIDE)\r\nC             HGH    - HORG MATRIX FILE NUMBER (RIGHT SIDE)\r\nC             GIB    - GIMS INPUT FILE NUMBER (RIGHT SIDE)\r\nC             HIMBAR - HIM PARTITION MATRIX FILE NUMBER (LEFT SIDE)\r\nC             HGHBAR - HGH PARTITION MATRIX FILE NUMBER (LEFT SIDE)\r\nC             GIBBAR - GIB PARTITION MATRIX FILE NUMBER (LEFT SIDE)\r\nC             UPRT   - USET PARTITIONING VECTOR FILE NUMBER\r\nC\r\n      INTEGER          DRY,GBUF1,GBUF2,Z,TYPINP,TYPEOP,TYPEU,HIM,HGH,\r\n     1                 GIB,HIMBAR,HGHBAR,GIBBAR,UPRT,HIMRL,HGHRL,GIBRL,\r\n     2                 DBLKOR,GIBTYP,HIMTYP,SGLKOR,DICORE\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION        MODNAM(2),ITRLR1(7),ITRLR2(7),RZ(1),ITMLST(4),\r\n     1                 DZ(1),ITRLR3(7)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  IDUM1,DRY,IDUM7,GBUF1,GBUF2,IDUM2(4),INFILE(11),\r\n     1                 OTFILE(6),ISCR(11),KORLEN,KORBGN,OLDNAM(2)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /PACKX /  TYPINP,TYPEOP,IROWP,NROWP,INCRP\r\n      COMMON /UNPAKX/  TYPEU,IROWU,NROWU,INCRU\r\n      COMMON /SYSTEM/  IDUM3,IPRNTR\r\n      EQUIVALENCE      (HIM,ISCR(10)),(GIB,ISCR(6)),(UPRT,ISCR(7)),\r\n     1                 (GIBBAR,ISCR(11)),(HGHBAR,ISCR(9)),(HGH,ISCR(9)),\r\n     2                 (HIMBAR,ISCR(8)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/  4HCMRD,4H2E  /\r\n      DATA    ITMLST/  4HHORG,4HHLFT,4HGIMS,4HUPRT/\r\nC\r\nC     SET UP ROW PARTITION\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      ITEM = ITMLST(4)\r\n      CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 210\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR1)\r\n      IF (KORBGN+ITRLR1(3) .GE. KORLEN) GO TO 270\r\n      TYPEU = ITRLR1(5)\r\n      IROWU = 1\r\n      NROWU = ITRLR1(3)\r\n      INCRU = 1\r\n      CALL GOPEN (UPRT,Z(GBUF1),0)\r\n      CALL UNPACK (*5,UPRT,RZ(KORBGN))\r\n      GO TO 15\r\n    5 DO 10 I = 1, NROWU\r\n   10 RZ(KORBGN+I-1) = 0.0\r\n   15 CALL CLOSE (UPRT,1)\r\n      LUPRT  = NROWU\r\n      KORE   = KORBGN\r\n      KORBGN = KORBGN + LUPRT\r\nC\r\nC     GET GIB MATRIX\r\nC\r\n      IF (ITER .EQ. 2) GO TO 20\r\n      ITEM = ITMLST(3)\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR1)\r\n      IF (ITEST .NE. 1) GO TO 210\r\n      CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 210\r\n      ITRLR1(1) = GIB\r\n      GIBRL = GIB\r\n      GO TO 30\r\n   20 ITRLR1(1) = GIBBAR\r\n      CALL RDTRL (ITRLR1)\r\n      GIBRL = GIBBAR\r\nC\r\nC     SET UP HGH TRAILER\r\nC\r\n   30 HGHRL = HGH\r\n      IF (ITER .EQ. 2) HGHRL = HGHBAR\r\n      NROWS1 = ITRLR1(3)\r\n      KOLS1  = ITRLR1(2)\r\n      GIBTYP = ITRLR1(5)\r\n      HIMRL  = HIM\r\n      IF (ITER .EQ. 2) HIMRL = HIMBAR\r\n      ITRLR2(1) = HIMRL\r\n      CALL RDTRL (ITRLR2)\r\n      NROWS2 = ITRLR2(3)\r\n      KOLS2  = ITRLR2(2)\r\n      HIMTYP = ITRLR2(5)\r\n      IFORM  = 2\r\n      IF (ITRLR1(2)+ITRLR1(3) .EQ. ITRLR2(2)+ITRLR2(3)) IFORM = 1\r\n      IPRC   = 1\r\n      ITYP   = 0\r\n      IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) IPRC = 2\r\n      IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2\r\n      IF (ITRLR1(5) .GE. 3) ITYP = 2\r\n      IF (ITRLR2(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLR3,HGHRL,LUPRT,IFORM,ITYPE)\r\nC\r\nC     SET UP PACK/UNPACK PARAMETERS\r\nC\r\n      TYPEOP = ITRLR3(5)\r\n      IROWP  = 1\r\n      NROWP  = ITRLR1(2) + ITRLR1(3)\r\n      INCRP  = 1\r\n      INCRU  = 1\r\n      DBLKOR = KORBGN/2 + 1\r\n      SGLKOR = 2*DBLKOR - 1\r\nC\r\nC     FORM HGH MATRIX\r\nC\r\nC                  **         **\r\nC                  *     .     *\r\nC        **   **   *  I  .  0  *\r\nC        *     *   *     .     *\r\nC        * HGH * = *...........*\r\nC        *     *   *     .     *\r\nC        **   **   * GIB . HIM *\r\nC                  *     .     *\r\nC                  **         **\r\nC\r\n      CALL GOPEN (HGHRL,Z(GBUF1),1)\r\nC\r\nC     PROCESS GIB MATRIX\r\nC\r\n      TYPEU  = ITRLR1(5)\r\n      NROWU  = ITRLR1(3)\r\n      TYPINP = ITRLR1(5)\r\n      NROWS  = ITRLR1(3)\r\n      IF (ITRLR1(5) .GT. 2) NROWS = 2*ITRLR1(3)\r\n      IF (ITRLR1(5).EQ.1 .OR. ITRLR1(5).EQ.3)\r\n     1    DICORE = (SGLKOR+NROWS)/2 + 1\r\n      IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) DICORE = DBLKOR + NROWS\r\n      ICORE  = 2*DICORE - 1\r\n      IF (DICORE+NROWS .GE. KORLEN) GO TO 270\r\n      CALL GOPEN (GIBRL,Z(GBUF2),0)\r\n      DO 90 I = 1,KOLS1\r\n      K  = 0\r\n      KK = 0\r\n      CALL UNPACK (*40,GIBRL,DZ(DBLKOR))\r\n      GO TO 50\r\nC\r\nC     NULL GIB COLUMN\r\nC\r\n   40 GO TO (42,46,42,46), GIBTYP\r\n   42 DO 44 J = 1,NROWS\r\n   44 RZ(SGLKOR+J-1) = 0.0\r\n      GO TO 50\r\n   46 DO 48 J = 1,NROWS\r\n   48 DZ(DBLKOR+J-1) = 0.0D0\r\nC\r\nC     MOVE GIB DATA\r\nC\r\n   50 DO 80 J = 1,LUPRT\r\n      IF (RZ(KORE+J-1) .EQ. 1.0) GO TO 70\r\n      KK = KK + 1\r\n      L  = 1 + 2*(KK-1)\r\n      LL = 1 + 2*( J-1)\r\n      GO TO (62,64,66,68), GIBTYP\r\n   62 RZ(ICORE+J-1) = RZ(SGLKOR+KK-1)\r\n      GO TO 80\r\n   64 DZ(DICORE+J-1) = DZ(DBLKOR+KK-1)\r\n      GO TO 80\r\n   66 RZ(ICORE+LL-1) = RZ(SGLKOR+L-1)\r\n      RZ(ICORE+LL  ) = RZ(SGLKOR+L)\r\n      GO TO 80\r\n   68 DZ(DICORE+LL-1) = DZ(DBLKOR+L-1)\r\n      DZ(DICORE+LL  ) = DZ(DBLKOR+L)\r\n      GO TO 80\r\nC\r\nC     MOVE IDENTITY MATRIX DATA\r\nC\r\n   70 K = K + 1\r\n      L = 1 + 2*(J-1)\r\n      GO TO (72,74,76,78), GIBTYP\r\n   72 RZ(ICORE+J-1) = 0.0\r\n      IF (K .EQ. I) RZ(ICORE+J-1) = 1.0\r\n      GO TO 80\r\n   74 DZ(DICORE+J-1) = 0.0D0\r\n      IF (K .EQ. I) DZ(DICORE+J-1) = 1.0D0\r\n      GO TO 80\r\n   76 RZ(ICORE+L-1) = 0.0\r\n      IF (K .EQ. I) RZ(ICORE+L-1) = 1.0\r\n      RZ(ICORE+L) = 0.0\r\n      GO TO 80\r\n   78 DZ(DICORE+L-1) = 0.0D0\r\n      IF (K .EQ. I) DZ(DICORE+L-1) = 1.0D0\r\n      DZ(DICORE+L) = 0.0D0\r\n   80 CONTINUE\r\n   90 CALL PACK (DZ(DICORE),HGHRL,ITRLR3)\r\n      CALL CLOSE (GIBRL,1)\r\nC\r\nC     PROCESS HIM MATRIX\r\nC\r\n      TYPEU  = ITRLR2(5)\r\n      NROWU  = ITRLR2(3)\r\n      TYPINP = ITRLR2(5)\r\n      NROWS  = ITRLR2(3)\r\n      IF (ITRLR2(5) .GT. 2) NROWS = 2*ITRLR2(3)\r\n      IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4)\r\n     1    DICORE = (SGLKOR+NROWS)/2 + 1\r\n      IF (ITRLR2(5).EQ.1 .OR. ITRLR2(5).EQ.3) DICORE = DBLKOR + NROWS\r\n      ICORE = 2*DICORE - 1\r\n      IF (DICORE+NROWS .GE. KORLEN) GO TO 270\r\n      CALL GOPEN (HIMRL,Z(GBUF2),0)\r\n      DO 150 I = 1,KOLS2\r\n      KK = 0\r\n      CALL UNPACK (*100,HIMRL,DZ(DBLKOR))\r\n      GO TO 110\r\nC\r\nC     NULL HIM COLUMN\r\nC\r\n  100 GO TO (102,106,102,106), HIMTYP\r\n  102 DO 104 J = 1,NROWS\r\n  104 RZ(SGLKOR+J-1) = 0.0\r\n      GO TO 110\r\n  106 DO 108 J = 1,NROWS\r\n  108 DZ(DBLKOR+J-1) = 0.0D0\r\nC\r\nC     MOVE HIM MATRIX DATA\r\nC\r\n  110 DO 140 J = 1,LUPRT\r\n      IF (RZ(KORE+J-1) .EQ. 1.0) GO TO 130\r\n      KK = KK + 1\r\n      L  = 1 + 2*(KK-1)\r\n      LL = 1 + 2*( J-1)\r\n      GO TO (122,124,126,128), HIMTYP\r\n  122 RZ(ICORE+J-1) = RZ(SGLKOR+KK-1)\r\n      GO TO 140\r\n  124 DZ(DICORE+J-1) = DZ(DBLKOR+KK-1)\r\n      GO TO 140\r\n  126 RZ(ICORE+LL-1) = RZ(SGLKOR+L-1)\r\n      RZ(ICORE+LL  ) = RZ(SGLKOR+L)\r\n      GO TO 140\r\n  128 DZ(DICORE+LL-1) = DZ(DBLKOR+L-1)\r\n      DZ(DICORE+LL  ) = DZ(DBLKOR+L)\r\n      GO TO 140\r\nC\r\nC     MOVE ZERO MATRIX DATA\r\nC\r\n  130 L = 1 + 2*(J-1)\r\n      GO TO (132,134,136,138), HIMTYP\r\n  132 RZ(ICORE+J-1) = 0.0\r\n      GO TO 140\r\n  134 DZ(DICORE+J-1) = 0.0D0\r\n      GO TO 140\r\n  136 RZ(ICORE+L-1) = 0.0\r\n      RZ(ICORE+L  ) = 0.0\r\n      GO TO 140\r\n  138 DZ(DICORE+L-1) = 0.0D0\r\n      DZ(DICORE+L  ) = 0.0D0\r\n  140 CONTINUE\r\n  150 CALL PACK (DZ(DICORE),HGHRL,ITRLR3)\r\n      CALL CLOSE (HIMRL,1)\r\n      CALL CLOSE (HGHRL,1)\r\n      CALL WRTTRL (ITRLR3)\r\n      KORBGN = KORE\r\nC\r\nC     SAVE HGH ON SOF AS H(ORG,LFT) MATRIX\r\nC\r\n      ITEM = ITMLST(ITER)\r\n      CALL MTRXO (HGHRL,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 210\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  210 GO TO (220,220,220,230,240,260), ITEST\r\n  220 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  230 IMSG = -2\r\n      GO TO 250\r\n  240 IMSG = -3\r\n  250 CALL SMSG(IMSG,ITEM,OLDNAM)\r\n      RETURN\r\nC\r\n  260 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  270 IMSG = -8\r\n      IFILE = 0\r\n      CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2f.f",
    "content": "      SUBROUTINE CMRD2F (KODE)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE FINAL STRUCTURAL MATRICES FOR THE\r\nC     CMRED2 MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - KBB    - STIFFNESS PARTITION MATRIX\r\nC            KIB    - KIB STIFFNESS PATTITION MATRIX\r\nC            HIE    - HIE PARTITION MATRIX\r\nC            KII    - KII PARTITION MATRIX\r\nC            HGH    - HORG PARTITION MATRIX\r\nC            MAA    - MASS INPUT MATRIX\r\nC            BAA    - DAMPING INPUT MATRIX\r\nC            K4AA   - STIFFNESS INPUT MATRIX\r\nC            PAA    - LOADS INPUT MATRIX\r\nC     SOF  - GIMS   - G TRANSFORMATION MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - KHH    - STIFFNESS MATRIX\r\nC            MHH    - MASS MATRIX\r\nC            BHH    - DAMPING MATRIX\r\nC            K4HH   - K4HH MATRIX\r\nC            PHH    - LOADS MATRIX\r\nC     SOF  - KMTX   - STIFFNESS MATRIX\r\nC            MMTX   - MASS MATRIX\r\nC            PVEC   - LOADS MATRIX\r\nC            PAPP   - APPENDED LOADS MATRIX\r\nC            BMTX   - DAMPING MATRIX\r\nC            K4MX   - K4MX STIFFNESS MATRIX\r\nC\r\nC     PARAMETERS\r\nC     INPUT- POPT   - LOADS OPTION FLAG\r\nC            GBUF   - GINO BUFFERS\r\nC            INFILE - INPUT FILE NUMBERS\r\nC            OTFILE - OUTPUT FILE NUMBERS\r\nC            ISCR   - SCRATCH FILE NUMBERS\r\nC            KORLEN - LENGTH OF OPEN CORE\r\nC            KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC            OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC     OTHERS-PAA    - LOADS INPUT FILE NUMBER\r\nC            KHH    - STIFFNESS OUTPUT FILE NUMBER\r\nC            POVE   - LOADS OUTPUT FILE NUMBER\r\nC            UPRT   - PARTITION VECTOR FILE NUMBER\r\nC            ZEROMB - ZERO PARTITION FILE NUMBER\r\nC            KBB    - KBB INPUT FILE NUMBER\r\nC            ZEROBM - ZERO PARTITION MATRIX\r\nC            KIB    - KIB INPUT FILE NUMBER\r\nC            KII    - KII INPUT FILE NUMBER\r\nC            KBARBB - KBARBB FILE NU BER\r\nC            GIB    - GIB INPUT FILE NUMBER\r\nC            KMM    - KMM FILE NUMBER\r\nC            HGH    - HORG INPUT FILE NUMBER\r\nC\r\n      LOGICAL         SYMTRY,MODES,PONLY\r\n      INTEGER         DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM,Z,\r\n     1                T,SIGNAB,SIGNC,PREC,SCR,TYPIN,TYPOUT,UN,UB,UI,\r\n     2                FUSET,PREC3,PAA,HIM,POVE,UPRT,GIB,GIBBAR,HGHBAR,\r\n     3                HGH,USETMR,CMRED2,PAPP,BLANKS,DBLKOR,HIMBAR,EQST\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION       MODNAM(2),ITRLR1(7),ITRLR2(7),ITRLR3(7),ISUB(4),\r\n     1                ITMLST(12),ITMNAM(2),RZ(1),DZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(2),SBUF1,SBUF2,SBUF3,\r\n     1                INFILE(11),OTFILE(6),ISCR(11),KORLEN,KORBGN,\r\n     2                OLDNAM(2),NEWNAM(2),SYMTRY,IDUM6(4),MODES,\r\n     3                IDUM7(4),PONLY,LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T,\r\n     1                SIGNAB,SIGNC,PREC,SCR\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI\r\n      COMMON /PATX  / LCORE,NSUB(3),FUSET\r\n      COMMON /SYSTEM/ IDUM3,IPRNTR\r\n      COMMON /MPY3TL/ JTRLRA(7),JTRLRB(7),JTRLRE(7),JTRLRC(7),JSCR(3),\r\n     1                LKORE,ICODE,PREC3\r\n      EQUIVALENCE     (EQST,INFILE(5)),(USETMR,INFILE(6)),\r\n     1                (PAA,INFILE(11)),(KHH,OTFILE(1)),(POVE,OTFILE(6)),\r\n     2                (KBB,ISCR(1)),(KIB,ISCR(2)),(KII,ISCR(4)),\r\n     3                (HIM,ISCR(10)),(UPRT,ISCR(1)),(HIMBAR,ISCR(8)),\r\n     4                (KBARBB,ISCR(5)),(KMM,ISCR(6)),(GIB,ISCR(3)),\r\n     5                (GIBBAR,ISCR(11)),(HGHBAR,ISCR(9)),(HGH,ISCR(8)),\r\n     6                (RPRTN,ISCR(1)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/ 4HCMRD,4H2F  /, PAPP  / 4HPAPP/, BLANKS/ 4H    /\r\n      DATA    CMRED2/ 26    /\r\n      DATA    ITMLST/ 4HKMTX,4HHORG,4HHLFT,4HMMTX,4HBMTX,4HK4MX,4HPVEC,\r\n     1                4HPAPP,4HPOVE,4HGIMS,4HPOAP,4HUPRT/\r\nC\r\nC     SELECT OPERATION MODE\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (PONLY .OR. DRY.EQ.0) GO TO 90\r\nC\r\nC     SET UP NEW SUBSTRUCTURE\r\nC\r\n      IF (MODES) GO TO 1\r\n      NUMB = 1\r\n      CALL SETLVL (NEWNAM,NUMB,OLDNAM,ITEST,CMRED2)\r\n      IF (ITEST .EQ. 8) GO TO 290\r\nC\r\nC     CHECK FOR STIFFNESS MATRIX GENERATION\r\nC\r\n    1 ITRLR1(1) = KHH\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 90\r\nC\r\nC     FORM PRELIMINARY STIFFNESS CALCULATION\r\nC\r\nC                                           T\r\nC        **      **   **   **   **        ** **   **\r\nC        *        *   *     *   *          * *     *\r\nC        * KBARBB * = * KBB * + * GIB(BAR) * * KIB *\r\nC        *        *   *     *   *          * *     *\r\nC        **      **   **   **   **        ** **   **\r\nC\r\n      ITRLR1(1) = KBB\r\n      CALL RDTRL (ITRLR1)\r\n      IF (SYMTRY) GO TO 2\r\n      ITRLR2(1) = GIBBAR\r\n      CALL RDTRL (ITRLR2)\r\n      GO TO 4\r\n    2 ITEM  = ITMLST(10)\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR2)\r\n      ITEST = ITRLR2(1)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      ITRLR2(1) = GIB\r\n    4 ITRLR3(1) = KIB\r\n      CALL RDTRL (ITRLR3)\r\n      DO 10 I = 1,7\r\n      ITRLRA(I) = ITRLR2(I)\r\n      ITRLRB(I) = ITRLR3(I)\r\n   10 ITRLRC(I) = ITRLR1(I)\r\n      IFORM = 1\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRC(5) .GE. 3) ITYP = 2\r\n      ITYPE  = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,KBARBB,ITRLR1(3),IFORM,ITYPE)\r\n      T      = 1\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      PREC   = 0\r\n      SCR    = ISCR(7)\r\n      SCR    = ISCR(1)\r\n      CALL SOFCLS\r\n      DBLKOR = KORBGN/2 + 1\r\n      NZ     = LSTZWD - (2*DBLKOR - 1)\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      KBAROW = ITRLRD(3)\r\n      KCOL   = ITRLRD(2)\r\nC\r\nC     FORM PRELIMINARY STIFFNESS CALCULATION\r\nC\r\nC                              T\r\nC        **   **   **        ** **   ** **   **\r\nC        *     *   *          * *     * *     *\r\nC        * KMM * = * HIM(BAR) * * KII * * HIM *\r\nC        *     *   *          * *     * *     *\r\nC        **   **   **        ** **   ** **   **\r\nC\r\n      ITRLR1(1) = KII\r\n      ITRLR2(1) = HIM\r\n      CALL RDTRL (ITRLR1)\r\n      CALL RDTRL (ITRLR2)\r\n      DO 20 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n      ITRLRB(I) = ITRLR2(I)\r\n   20 ITRLRC(I) = 0\r\n      IFORM = 2\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,ISCR(2),ITRLR2(3),IFORM,ITYPE)\r\n      PREC  = 0\r\n      T     = 0\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\n      SCR   = ISCR(1)\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      ITRLR1(1) = HIM\r\n      IF (.NOT.SYMTRY) ITRLR1(1) = HIMBAR\r\n      CALL RDTRL (ITRLR1)\r\n      DO 30 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n   30 ITRLRB(I) = ITRLRD(I)\r\n      IFORM = 1\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,KMM,ITRLR1(2),IFORM,ITYPE)\r\n      T    = 1\r\n      PREC = 0\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      KMMROW = ITRLRD(3)\r\n      KMMCOL = ITRLRD(2)\r\nC\r\nC     GENERATE MERGE PARTITION VECTOR\r\nC\r\n      NROW = KCOL + KMMCOL\r\n      DO 80 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. KCOL) RZ(KORBGN+I-1) = 1.0\r\n   80 CONTINUE\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\n      IFORM  = 7\r\n      CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (RZ(KORBGN),RPRTN,ITRLR1)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     FORM STIFFNESS MATRIX\r\nC\r\nC                  **            **\r\nC                  *        .     *\r\nC        **   **   * KBARBB .  0  *\r\nC        *     *   *        .     *\r\nC        * KHH * = *..............*\r\nC        *     *   *        .     *\r\nC        **   **   *   0    . KMM *\r\nC                  *        .     *\r\nC                  **            **\r\nC\r\n      ISUB(1) = KCOL\r\n      ISUB(2) = KMMCOL\r\n      ISUB(3) = KBAROW\r\n      ISUB(4) = KMMROW\r\n      ITYPE   = 1\r\n      CALL GMMERG (KHH,KBARBB,0,0,KMM,RPRTN,RPRTN,ISUB,ITYPE,Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     STORE KHH AS KMTX ON SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      CALL MTRXO (KHH,NEWNAM,ITMLST(1),0,ITEST)\r\n      ITEM      = ITMLST(1)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      IF (ITEST .NE. 3) GO TO 200\r\nC\r\nC     LOCATE HGH MATRIX\r\nC       KODE .EQ. 0, BOTH HORG, HLFT ON SOF\r\nC       KODE .EQ. 1, HORG CALCULATED, HLFT ON SOF\r\nC       KODE .EQ. 2, HORG ON SOF, HLFT CALCULATED\r\nC       KODE .EQ. 3, BOTH HORG, HLFT CALCULATED\r\nC\r\n   90 ITEM      = ITMLST(2)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL MTRXI (HGH,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      IF (KODE.GT.1 .OR. SYMTRY) GO TO 100\r\n      ITEM = ITMLST(3)\r\n      CALL MTRXI (HGHBAR,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n  100 SIGNAB = 1\r\n      SIGNC  = 1\r\n      SCR    = ISCR(1)\r\n      DBLKOR = KORBGN/2 + 1\r\n      NZ     = LSTZWD - (2*DBLKOR - 1)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\nC\r\nC     GENERATE MATRICES REQUESTED\r\nC        I .EQ. 2, GENERATE MHH MATRIX\r\nC        I .EQ. 3, GENERATE BHH MATRIX\r\nC        I .EQ. 4, GENERATE K4HH MATRIX\r\nC        I .EQ. 5, GENERATE PHH MATRIX\r\nC\r\n      DO 180 I = 2,5\r\n      ITRLR1(1) = INFILE(I+6)\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 180\r\n      CALL SOFCLS\r\nC\r\nC     CALCULATE MATRIX REQUIRED\r\nC\r\nC                                     T\r\nC        **          **   **        ** **          ** **   **\r\nC        *            *   *          * *            * *     *\r\nC        * (M,B,K4)HH * = * HGH(BAR) * * (M,B,K4)AA * * HGH *\r\nC        *            *   *          * *            * *     *\r\nC        **          **   **        ** **          ** **   **\r\nC\r\nC                              T\r\nC        **   **   **        ** **   **\r\nC        *     *   *          * *     *\r\nC        * PHH * = * HGH(BAR) * * PAA *\r\nC        *     *   *          * *     *\r\nC        **   **   **        ** **   **\r\nC\r\n      ITRLR2(1) = HGH\r\n      CALL RDTRL (ITRLR2)\r\n      IF (I .EQ. 5) GO TO 112\r\n      DO 110 J = 1,7\r\n      ITRLRA(J) = ITRLR1(J)\r\n      ITRLRB(J) = ITRLR2(J)\r\n  110 ITRLRC(J) = 0\r\n      IFORM = 2\r\n      IF (ITRLR1(3) .EQ. ITRLR2(2)) IFORM = 1\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLR1(5).EQ.2 .OR. ITRLR1(5).EQ.4) IPRC = 2\r\n      IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2\r\n      IF (ITRLR1(5) .GE. 3) ITYP = 2\r\n      IF (ITRLR2(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,ISCR(2),ITRLR1(3),IFORM,ITYPE)\r\n      PREC  = 0\r\n      T     = 0\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\n      SCR   = ISCR(1)\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      ITEM = ITMLST(I+2)\r\n      GO TO 116\r\n  112 DO 114 J = 1,7\r\n  114 ITRLRD(J) = ITRLR1(J)\r\n      ITEM = ITMLST(7)\r\n      IF (POPT .EQ. PAPP) ITEM = ITMLST(8)\r\n  116 ITRLR2(1) = HGH\r\n      IF (.NOT. SYMTRY) ITRLR2(1) = HGHBAR\r\n      CALL RDTRL (ITRLR2)\r\n      DO 120 J = 1,7\r\n      ITRLRA(J) = ITRLR2(J)\r\n  120 ITRLRB(J) = ITRLRD(J)\r\n      IFORM = 1\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRD(5).EQ.2 .OR. ITRLRD(5).EQ.4) IPRC = 2\r\n      IF (ITRLR2(5).EQ.2 .OR. ITRLR2(5).EQ.4) IPRC = 2\r\n      IF (ITRLRD(5) .GE. 3) ITYP = 2\r\n      IF (ITRLR2(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,OTFILE(I),ITRLR2(2),IFORM,ITYPE)\r\n      T    = 1\r\n      PREC = 0\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\nC\r\nC     STORE MATRIX ON SOF\r\nC        I .EQ. 2, STORE MHH AS MMTX\r\nC        I .EQ. 3, STORE BHH AS BMTX\r\nC        I .EQ. 4, STORE K4HH AS K4MX\r\nC        I .EQ. 5, STORE PHH AS PVEC OR PAPP\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      CALL MTRXO (OTFILE(I),NEWNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 200\r\n  180 CONTINUE\r\nC\r\nC     TEST FOR LOAD PROCESSING\r\nC\r\n      IF (POPT .EQ. BLANKS) GO TO 190\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      IF (.NOT.PONLY) GO TO 184\r\n      ITRLR1(1) = EQST\r\n      CALL RDTRL (ITRLR1)\r\n      NSUB(1) = ITRLR1(6)\r\n      NSUB(2) = ITRLR1(7)\r\n      ITEM = ITMLST(12)\r\n      CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      GO TO 188\r\nC\r\nC     PARTITION PAA VECTOR\r\nC\r\n  184 LCORE = KORLEN\r\n      FUSET = USETMR\r\n      CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN))\r\n  188 CALL GMPRTN (PAA,POVE,0,0,0,0,UPRT,NSUB(1),NSUB(2),Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     SAVE POVE AS POVE OR POAP ON SOF\r\nC\r\n      IF (MODES) GO TO 190\r\n      ITEM = ITMLST(9)\r\n      IF (POPT .EQ. PAPP) ITEM = ITMLST(11)\r\n      CALL MTRXO (POVE,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 200\r\n  190 CONTINUE\r\n      RETURN\r\nC\r\nC     PROCESS MODULE ERRORS\r\nC\r\n  200 GO TO (210,210,210,220,230,250), ITEST\r\n  210 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,ITMNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  220 IMSG = -2\r\n      GO TO 240\r\n  230 IMSG = -3\r\n  240 CALL SMSG (IMSG,ITEM,ITMNAM)\r\n      RETURN\r\nC\r\n  250 WRITE (IPRNTR,901) UFM,MODNAM,ITEM,ITMNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  290 WRITE (IPRNTR,902) UFM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.')\r\n  902 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ',\r\n     1       'USED IN A PREVIOUS COMBINE OR REDUCE.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrd2g.f",
    "content": "      SUBROUTINE CMRD2G\r\nC\r\nC     THIS SUBROUTINE CREATES THE REDUCED SUBSTRUCTURE NEW TABLE ITEMS\r\nC     FOR THE CMRD2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO  - EQST  - TEMPORARY SUBSTRUCTURE EQUIVALENCE TABLE FOR\r\nC                     SUBSTRUCTURE BEING REDUCED\r\nC\r\nC     OUTPUT DATA\r\nC     SOF  - EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED\r\nC                     SUBSTRUCTURE\r\nC            BGSS   - BASIC GRID POINT DEFINITION TABLE FOR REDUCED\r\nC                     SUBSTRUCTURE\r\nC            LODS   - LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            LOAP   - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            PLTS   - PLOT SET DATA FOR REDUCED SUBSTRUCTURE\r\nC            CSTM   - COORDINATE SYSTEM TRANSFORMATION DATA FOR REDUCED\r\nC                     SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT- DRY    - MODULE OPERATION FLAG\r\nC            POPT   - LOADS OPERATION FLAG\r\nC            GBUF1  - GINO BUFFER\r\nC            INFILE - INPUT FILE NUMBERS\r\nC            KORLEN - LENGTH OF OPEN CORE\r\nC            KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC            OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC            NEWNAM - NAME OF REDUCED SUBSTRUCTURE\r\nC            FREBDY - FREEBODY OPR\r\nC            FREBDY - FREEBODY OPTIONS FLAG\r\nC            IO     - OUTPUT OPTIONS FLAG\r\nC            MODPTS - NUMBER OF MODAL POINTS\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         PONLY\r\n      INTEGER         DRY,POPT,GBUF1,OLDNAM,Z,ANDF,RSHIFT,EQST,SOFEOG\r\n      DIMENSION       MODNAM(2),LSTBIT(32),ITRLR(7),ITMLST(3),ITMNAM(2),\r\n     1                RZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(5),INFILE(11),\r\n     1                IDUM3(17),KORLEN,KORBGN,OLDNAM(2),NEWNAM(2),\r\n     2                IDUM4(4),IO,IDUM5(3),MODPTS,IDUM9,PONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM6,IPRNTR,IDUM7(6),NLPP,IDUM8(2),LINE\r\n      EQUIVALENCE     (EQST,INFILE(5)),(RZ(1),Z(1))\r\n      DATA    MODNAM/ 4HCMRD,4H2G  /\r\n      DATA    PAPP  , LODS,LOAP    /4HPAPP,4HLODS,4HLOAP   /\r\n      DATA    ITMLST/ 4HEQSS,4HBGSS,4HLAMS   /\r\n      DATA    SOFEOG/ 4H$EOG/, NHPLTS,NHCSTM /4HPLTS,4HCSTM/\r\nC\r\nC     CHECK FOR LOADS ONLY\r\nC\r\n      IF (PONLY) GO TO 55\r\nC\r\nC     PROCESS EQSS, BGSS DATA\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      ITRLR(1) = EQST\r\n      CALL RDTRL (ITRLR)\r\n      IFILE = EQST\r\n      IF (ITRLR(1) .LT. 0) GO TO 210\r\n      CALL GOPEN (EQST,Z(GBUF1),0)\r\n      ITEST = 3\r\n      ITEM  = ITMLST(1)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL SFETCH (NEWNAM,ITEM,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      NEWPTS = MODPTS\r\nC\r\nC     PROCESS EQSS GROUP 0 DATA\r\nC\r\n      IF (KORBGN+ITRLR(2)+2 .GE. KORLEN) GO TO 230\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(2),1,NWDSRD)\r\n      NCSUBS = Z(KORBGN+2)\r\n      Z(KORBGN+2) = Z(KORBGN+2) + 1\r\n      Z(KORBGN+3) = Z(KORBGN+3) + NEWPTS\r\n      NEWCS  = ITRLR(2)\r\n      Z(KORBGN+NEWCS  ) = NEWNAM(1)\r\n      Z(KORBGN+NEWCS+1) = NEWNAM(2)\r\n      NEWCS  = ITRLR(2) + 2\r\n      CALL SUWRT (Z(KORBGN),NEWCS,2)\r\nC\r\nC     PROCESS REMAINING EQSS GROUPS\r\nC\r\n      NWDS = KORLEN - KORBGN\r\n      DO 20 I = 1,NCSUBS\r\n      CALL READ (*215,*10,EQST,Z(KORBGN),NWDS,1,NWDSRD)\r\n      GO TO 230\r\n   10 IF (KORBGN+1+NWDSRD .GE. KORLEN) GO TO 230\r\n   20 CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\nC\r\nC     PROCESS MODAL POINTS\r\nC\r\n      IF (KORBGN+3*NEWPTS .GE. KORLEN) GO TO 230\r\n      DO 30 I = 1,NEWPTS\r\n      KORE = 3*(I-1)\r\n      Z(KORBGN+KORE  ) = 100 + I\r\n      Z(KORBGN+KORE+1) = ITRLR(4)/2 + I\r\n   30 Z(KORBGN+KORE+2) = 1\r\n      NWDSRD = 3*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\nC\r\nC     PROCESS EQSS SIL DATA\r\nC\r\n      IF (KORBGN+ITRLR(4)+2*NEWPTS .GE. KORLEN) GO TO 230\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(4),1,NWDSRD)\r\n      NWDSRD = ITRLR(4) - 1\r\n      ICODE  = Z(KORBGN+NWDSRD)\r\n      CALL DECODE (ICODE,LSTBIT,NWDSD)\r\n      LSTSIL = Z(KORBGN+NWDSRD-1) + NWDSD - 1\r\n      DO 40 I = 1,NEWPTS\r\n      KORE = ITRLR(4) + 2*(I-1)\r\n      Z(KORBGN+KORE  ) = LSTSIL + I\r\n   40 Z(KORBGN+KORE+1) = 1\r\n      NWDSRD = ITRLR(4) + 2*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\nC\r\nC     PROCESS BGSS DATA\r\nC\r\n      IF (KORBGN+ITRLR(5)+4*NEWPTS .GE. KORLEN) GO TO 230\r\n      ITEM  = ITMLST(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,ITEM,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),3,1,NWDSRD)\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      Z(KORBGN+2) = Z(KORBGN+2) + NEWPTS\r\n      LOCBGS = KORBGN\r\n      CALL SUWRT (Z(KORBGN),3,2)\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(5),1,NWDSRD)\r\n      DO 50 I = 1,NEWPTS\r\n      KORE = ITRLR(5) + 4*(I-1)\r\n      Z(KORBGN+KORE   ) = -1\r\n      RZ(KORBGN+KORE+1) = 0.0\r\n      RZ(KORBGN+KORE+2) = 0.0\r\n   50 RZ(KORBGN+KORE+3) = 0.0\r\n      NWDSRD = ITRLR(5) + 4*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\n      KORBGN = KORBGN + ITRLR(5)\r\nC\r\nC     PROCESS LODS, LOAP ITEM\r\nC\r\n   55 ITEM = LODS\r\n      IF (POPT .EQ. PAPP) ITEM = LOAP\r\n      ITEST = 3\r\n      CALL SFETCH (OLDNAM,ITEM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 60\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      Z(KORBGN+3) = Z(KORBGN+3) + 1\r\n      Z(KORBGN+NWDSRD  ) = NEWNAM(1)\r\n      Z(KORBGN+NWDSRD+1) = NEWNAM(2)\r\n      Z(KORBGN+NWDSRD+2) = SOFEOG\r\n      IWDS = NWDSRD + 3\r\n      CALL SUREAD (Z(KORBGN+IWDS),-2,NWDSRD,ITEST)\r\n      IF (KORBGN+IWDS+NWDSRD+2 .GE. KORLEN) GO TO 230\r\n      Z(KORBGN+IWDS+NWDSRD  ) = 0\r\n      Z(KORBGN+IWDS+NWDSRD+1) = SOFEOG\r\n      IWDS  = IWDS + NWDSRD + 2\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,ITEM,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      CALL SUWRT (Z(KORBGN),IWDS,3)\r\n      IF (PONLY) GO TO 130\r\nC\r\nC     PROCESS PLTS ITEM\r\nC\r\n   60 CALL SFETCH (OLDNAM,NHPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 70\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,NHPLTS,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,ITEST)\r\nC\r\nC     PROCESS CSTM ITEM\r\nC\r\n   70 CALL SFETCH (OLDNAM,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 130\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      IF (KORBGN+2*NWDSRD .GE. KORLEN) GO TO 230\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      KORE = NWDSRD - 4\r\n      CALL SORT (0,0,14,1,Z(KORBGN+3),KORE)\r\n      KORE = KORE/14\r\n      IF (KORBGN+2*NWDSRD+KORE .GE. KORLEN) GO TO 230\r\n      DO 80 I = 1,KORE\r\n   80 Z(KORBGN+NWDSRD+I-1) = 0\r\n      NBGSS = ITRLR(5)/4\r\n      DO 100 I = 1,NBGSS\r\n      K  = 4*(I-1)\r\n      IF (Z(LOCBGS+K) .LE. 0) GO TO 100\r\n      DO 90 J = 1,KORE\r\n      LOC = 14*(J-1)\r\n      IF (Z(KORBGN+3+LOC) .NE. Z(LOCBGS+K)) GO TO 90\r\n      Z(KORBGN+NWDSRD+J-1) = 1\r\n      GO TO 100\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      LOCNEW = 0\r\n      DO 120 I = 1,KORE\r\n      IF (Z(KORBGN+NWDSRD+I-1) .EQ. 0) GO TO 120\r\n      LOCOLD = 14*(I-1)\r\n      DO 110 J = 1,14\r\n  110 Z(KORBGN+NWDSRD+KORE+LOCNEW+J-1) = Z(KORBGN+3+LOCOLD+J-1)\r\n      LOCNEW = LOCNEW + 14\r\n  120 CONTINUE\r\n      IF(LOCNEW .EQ. 0) GO TO 130\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,NHCSTM,2,ITEST)\r\n      CALL SUWRT (NEWNAM,2,2)\r\n      CALL SUWRT (Z(KORBGN+NWDSRD+KORE),LOCNEW,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\nC\r\nC     OUTPUT EQSS ITEM\r\nC\r\n  130 CALL CLOSE (EQST,1)\r\n      IF (ANDF(RSHIFT(IO,4),1) .NE. 1) GO TO 150\r\n      CALL SFETCH (NEWNAM,ITMLST(1),1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      LOC    = KORBGN + NWDSRD\r\n      NCSUBS = NCSUBS + 1\r\n      DO 140 I = 1,NCSUBS\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      NAMLOC = KORBGN + 2*(I-1)\r\n      CALL CMIWRT (1,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z)\r\n  140 CONTINUE\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      IF (LOC+NWDSRD .GE. KORLEN) GO TO 230\r\n      CALL CMIWRT (8,NEWNAM,0,LOC,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT BGSS ITEM\r\nC\r\n  150 IF (ANDF(RSHIFT(IO,5),1) .NE. 1) GO TO 160\r\n      CALL SFETCH (NEWNAM,ITMLST(2),1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (2,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT CSTM ITEM\r\nC\r\n  160 IF (ANDF(RSHIFT(IO,6),1) .NE. 1) GO TO 170\r\n      CALL SFETCH (NEWNAM,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 170\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (3,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT PLTS ITEM\r\nC\r\n  170 IF (ANDF(RSHIFT(IO,7),1) .NE. 1) GO TO 180\r\n      CALL SFETCH (NEWNAM,NHPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 180\r\n      CALL SUREAD (Z(KORBGN),3,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (4,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT LODS ITEM\r\nC\r\n  180 IF (ANDF(RSHIFT(IO,8),1) .NE. 1) GO TO 200\r\n      CALL SFETCH (NEWNAM,  LODS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 200\r\n      CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      LOC   = KORBGN + NWDSRD\r\n      ITYPE = 5\r\n      IF (ITEM .EQ. LOAP) ITYPE = 7\r\n      DO 190 I = 1,NCSUBS\r\n      NAMLOC = KORBGN + 2*(I-1)\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (ITYPE,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z)\r\n      ITYPE = 6\r\n  190 CONTINUE\r\nC\r\nC     OUTPUT MODAL DOF SUMMARY\r\nC\r\n  200 IF (ANDF(RSHIFT(IO,9),1) .NE. 1) GO TO 209\r\n      ITEM = ITMLST(3)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL SFETCH (OLDNAM,ITEM,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL PAGE1\r\n      WRITE (IPRNTR,901) NEWNAM\r\n      LINE   = LINE + 10\r\n      NOFREQ = Z(KORBGN+3)\r\n      LAMLOC = KORBGN\r\n      MODUSE = LAMLOC + 7*NOFREQ + 1\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230\r\n      ITEM   = ITMLST(1)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL SFETCH (NEWNAM,ITEM,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      KORBGN = KORBGN + MODUSE + NOFREQ\r\n      IF (KORBGN .GE. KORLEN) GO TO 230\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      DO 202 I = 1,NCSUBS\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230\r\n  202 CONTINUE\r\n      LOCEQS = KORBGN\r\n      IPID   = 2*Z(KORBGN+1)\r\n      KORBGN = KORBGN + NWDSRD\r\n      IF (KORBGN+IPID .GE. KORLEN) GO TO 230\r\n      CALL SUREAD (Z(KORBGN),IPID,NWDSRD,ITEST)\r\n      IPS    = Z(KORBGN+IPID-2)\r\n      INDEX1 = -3\r\n      DO 208 I = 1,NOFREQ\r\n      IF (LINE .LE. NLPP) GO TO 204\r\n      CALL PAGE1\r\n      WRITE (IPRNTR,901) NEWNAM\r\n      LINE = LINE + 10\r\n  204 CONTINUE\r\n      IF (Z(MODUSE+I-1) .GT. 1) GO TO 206\r\n      INDEX1 = INDEX1 + 3\r\n      MODE   = 7*(I-1)\r\n      WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1),\r\n     1       Z(LOCEQS+INDEX1),IPS\r\n      IPS = IPS + 1\r\n      GO TO 208\r\n  206 MODE = 7*(I-1)\r\n      WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1)\r\n  208 LINE = LINE + 1\r\n  209 CONTINUE\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  210 IMSG = -1\r\n      GO TO 240\r\n  215 IMSG = -2\r\n      GO TO 240\r\n  220 IMSG = -3\r\n      GO TO 240\r\n  230 IMSG = -8\r\n      IFILE = 0\r\n  240 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  250 GO TO (260,260,260,270,280,280), ITEST\r\n  260 WRITE (IPRNTR,900) UFM,MODNAM,ITEM,ITMNAM\r\n      DRY = -2\r\n      RETURN\r\nC\r\n  270 IMSG = -2\r\n      GO TO 290\r\n  280 IMSG = -3\r\n  290 CALL SMSG (IMSG,ITEM,ITMNAM)\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  901 FORMAT (//36X,43HMODAL DOF SUMMARY FOR REDUCES SUBSTRUCTURE ,2A4,\r\n     1       //30X,41HUSAGE CODES ARE 1 - INCLUDED IN MODAL SET,\r\n     2       /46X,50H2 - EXCLUDED FROM MODAL SET BECAUSE OF NON-PARTICI,\r\n     3       6HPATION,/46X,41H3 - EXCLUDED FROM MODAL SET BECAUSE OF RA,\r\n     4       11HNGE OR NMAX, //40X,4HMODE,22X,15HUSAGE      GRID, /39X,\r\n     5       6HNUMBER,8X,6HCYCLES,8X,26HCODE    POINT ID       SIL,/)\r\n  902 FORMAT (39X,I5,5X,1P,E13.6,6X,I1,6X,I8,4X,I6)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cmrels.f",
    "content": "      SUBROUTINE CMRELS\r\nC\r\nC     THIS SUBROUTINE ENFORCES THE RELES DATA SPECIFIED FOR THE\r\nC     COMB1 MODULE.\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         FIRST\r\n      INTEGER         IX(7,3),SCBDAT,Z,SCORE,BUF1,BUF2,SCCONN,PS1,PS2\r\n      INTEGER         LIST(32),ANDF,STCE,AAA(2)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ JUNK(38),NPSUB\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    AAA   / 4HCMRE,4HLS   /\r\nC\r\n      IFILE = SCBDAT\r\n      KJ = 0\r\n      DO 20 I = 1,7\r\n      DO 10 J = 1,3\r\n      IX(I,J) = 0\r\n   10 CONTINUE\r\n   20 CONTINUE\r\n      DO 70 I = 1,NPSUB\r\n      FIRST = .TRUE.\r\n      CALL OPEN (*150,SCBDAT,Z(BUF1),0)\r\n      CALL SKPFIL (SCBDAT,3)\r\n   30 CALL READ (*60,*170,SCBDAT,ID,1,0,N)\r\n      IF (ID .EQ. I) GO TO 40\r\n      CALL FWDREC (*60,SCBDAT)\r\n      GO TO 30\r\n   40 CALL READ (*160,*50,SCBDAT,Z(SCORE+KJ),LCORE,1,NW)\r\n      GO TO 180\r\n   50 IF (FIRST) IX(I,2) = SCORE + KJ\r\n      FIRST = .FALSE.\r\n      IX(I,3) = IX(I,3) + NW/2\r\n      KJ = KJ + NW\r\n      LCORE = LCORE - NW\r\n      IX(I,1) = 1\r\n      GO TO 30\r\n   60 CALL CLOSE (SCBDAT,1)\r\n   70 CONTINUE\r\n      DO 80 I = 1,NPSUB\r\n      IF (IX(I,1) .EQ. 0) GO TO 80\r\n      IST = IX(I,2)\r\n      NW  = IX(I,3)*2\r\n      CALL SORT (0,0,2,1,Z(IST),NW)\r\n   80 CONTINUE\r\n      IFILE = SCCONN\r\n      CALL OPEN (*150,SCCONN,Z(BUF2),0)\r\n      NWRD = 2 + NPSUB\r\n      NCE  = 0\r\n      STCE = SCORE + KJ\r\n   90 CALL READ (*110,*100,SCCONN,Z(SCORE+KJ),LCORE,1,NNN)\r\n      GO TO 180\r\n  100 KJ  = KJ + NWRD\r\n      NCE = NCE + 1\r\n      GO TO 90\r\n  110 CALL CLOSE (SCCONN,1)\r\n      NCE = NWRD*NCE\r\n      DO 130 I = 1,NCE,NWRD\r\n      II = I - 1\r\n      ICODE = Z(STCE+II+1)\r\n      CALL DECODE (ICODE,LIST,NC)\r\n      IF (NC .NE. 2) GO TO 130\r\n      PS1  = LIST(1) + 1\r\n      PS2  = LIST(2) + 1\r\n      IST1 = IX(PS1,2)\r\n      IST2 = IX(PS2,2)\r\n      NW1  = IX(PS1,3)\r\n      NW2  = IX(PS2,3)\r\n      IF (IX(PS1,1) .EQ. 0) GO TO 120\r\n      KID  = Z(STCE+II+1+PS1)\r\n      CALL BISLOC (*120,KID,Z(IST1),2,NW1,IW)\r\n      Z(STCE+II) = Z(STCE+II) - ANDF(Z(STCE+II),Z(IST1+IW))\r\n  120 IF (IX(PS2,1) .EQ. 0) GO TO 130\r\n      KID = Z(STCE+II+1+PS2)\r\n      CALL BISLOC (*130,KID,Z(IST2),2,NW2,IW)\r\n      Z(STCE+II) = Z(STCE+II) - ANDF(Z(STCE+II),Z(IST2+IW))\r\n  130 CONTINUE\r\n      CALL OPEN (*150,SCCONN,Z(BUF1),1)\r\n      DO 140 I = 1,NCE,NWRD\r\n      II = I - 1\r\n      IF (Z(STCE+II) .NE. 0) CALL WRITE (SCCONN,Z(STCE+II),NWRD,1)\r\n  140 CONTINUE\r\n      CALL EOF (SCCONN)\r\n      CALL CLOSE (SCCONN,1)\r\n      RETURN\r\nC\r\n  150 IMSG = -1\r\n      GO TO 190\r\n  160 IMSG = -2\r\n      GO TO 190\r\n  170 IMSG = -3\r\n      GO TO 190\r\n  180 IMSG = -8\r\n  190 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmsfil.f",
    "content": "      SUBROUTINE CMSFIL\r\nC\r\nC     THIS SUBROUTINE GENERATES THE WORKING SUBSTRUCTURE FILE AND\r\nC     APPLIES ALL TRANSFORMATIONS\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TDAT,XTRAN,XCSTM,IAUTO\r\nCWKBI ALPHA-OSF 9/94\r\n      INTEGER         SCR3, SCSFIL\r\n      INTEGER         AAA(2),ANDF,RSHIFT,BUFEX,OUTT,\r\n     1                SCBDAT,BUF4,SCORE,TRN,SYM,COMBO,NAM(2),Z,SCMCON,\r\n     2                SCCSTM,CSTMID,CGID,BUF2,BUF3,BUF1,ECPT1,TWOJM1\r\n      DIMENSION       RZ(1),ECPT(4),DOFN(6),LIST(32),TG(3,3),TG6(6,6),\r\n     1                TSAVE(6,6),TMAT(6,6),TC(3,3),TT(3,3),XX(3)\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM,SCR3\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6)\r\n      COMMON /GTMATX/ LOC1,KLTRAN,TRN,TT6(6,6),TC6(6,6)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ECPT1,ECPT(1)), (RZ(1),Z(1))\r\n      DATA    AAA   / 4H CMS, 4HFIL  /\r\n      DATA    NHBGSS, NHCSTM,NHEQSS  / 4HBGSS,4HCSTM,4HEQSS /\r\nC\r\n      BUFEX  = LCORE - BUF1 + BUF2\r\n      LCORE  = BUFEX - 1\r\n      IF (LCORE .LT. 0) GO TO 620\r\n      LLCO   = LCORE\r\n      IOEFIL = 310\r\n      IFILE  = SCBDAT\r\n      CALL OPEN (*600,SCBDAT,Z(BUF4),0)\r\nC\r\nC     READ GTRAN DATA INTO OPEN CORE\r\nC\r\n      IF (TDAT(3) .OR. TDAT(6)) CALL SKPFIL (SCBDAT,1)\r\n      IF (.NOT.TDAT(6)) GO TO 20\r\n      KSGTRN = SCORE\r\n      CALL READ (*610,*10,SCBDAT,Z(KSGTRN),LLCO,1,KLGTRN)\r\n      GO TO 620\r\n   10 LLCO   = LLCO - KLGTRN\r\n      KFGTRN = KSGTRN + KLGTRN - 1\r\n      GO TO 30\r\nC\r\nC     READ TRANS DATA INTO OPEN CORE\r\nC\r\n   20 KSTRAN = SCORE\r\n      GO TO 40\r\n   30 KSTRAN = KFGTRN + 1\r\n   40 IF (TDAT(3) .OR. TDAT(6)) CALL SKPFIL (SCBDAT,1)\r\n      IF (.NOT. TDAT(3)) GO TO 60\r\n      CALL READ (*610,*50,SCBDAT,Z(KSTRAN),LLCO,1,KLTRAN)\r\n      GO TO 620\r\n   50 LOC1   = KSTRAN\r\n      LLCO   = LLCO - KLTRAN\r\n      XTRAN  = .TRUE.\r\n      KFTRAN = KSTRAN + KLTRAN - 1\r\n      GO TO 70\r\n   60 LOC1   = 0\r\n      XTRAN  = .FALSE.\r\n   70 CALL CLOSE (SCBDAT,1)\r\n      IFILE  = SCSFIL\r\n      CALL OPEN (*600,SCSFIL,Z(BUF4),1)\r\n      IFILE  = SCCSTM\r\n      CALL OPEN (*600,SCCSTM,Z(BUF3),1)\r\n      KKC    = 0\r\nC\r\nC     LOOP ON EACH PSEUDOSTRUCTURE\r\nC\r\n      IFILE  = SCR3\r\n      CALL OPEN (*600,SCR3,Z(BUF1),1)\r\n      IFILE  = IOEFIL\r\n      CALL OPEN (*600,IOEFIL,Z(BUFEX),1)\r\n      LLCOLD = LLCO\r\nC\r\n      DO 550 I = 1,NPSUB\r\n      LLCO   = LLCOLD\r\n      NAM(1) = COMBO(I,1)\r\n      NAM(2) = COMBO(I,2)\r\n      TRN    = COMBO(I,3)\r\n      SYM    = COMBO(I,4)\r\n      NCOMP  = COMBO(I,5)\r\nC\r\nC     READ BGSS FOR I-TH PSEUDOSTRUCTURE\r\nC\r\n      KSBGSS = KSTRAN\r\n      IF (XTRAN) KSBGSS = KSTRAN + KLTRAN\r\n      CALL SFETCH (NAM,NHBGSS,1,ITEST)\r\n      NGRP   = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KSBGSS),LLCO,KLBGSS,ITEST)\r\n      IF (KLBGSS.EQ.LLCO .AND. ITEST.NE.2) GO TO 620\r\n      LLCO   = LLCO - KLBGSS\r\n      KFBGSS = KSBGSS + KLBGSS - 1\r\n      NIP    = KLBGSS/4\r\nC\r\nC     READ CSTM FOR THIS PSEUDOSTRUCTURE\r\nC\r\n      CALL SFETCH (NAM,NHCSTM,1,ITEST)\r\n      XCSTM  = .FALSE.\r\n      LOC2   = 0\r\n      IF (ITEST .EQ. 3) GO TO 80\r\n      KSCSTM = KFBGSS + 1\r\n      NGRP   = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KSCSTM),LLCO,KLCSTM,ITEST)\r\n      IF (KLCSTM.EQ.LLCO .AND. ITEST.NE.2) GO TO 620\r\n      LLCO   = LLCO - KLCSTM\r\n      LOC2   = KSCSTM\r\n      XCSTM  = .TRUE.\r\n      KFCSTM = KSCSTM + KLCSTM - 1\r\n   80 CONTINUE\r\nC\r\nC     DEFINE OPEN CORE ARRAYS FOR NEW CID AND HPTR\r\nC\r\n      KSNCID = KFBGSS + 1\r\n      IF (LOC2 .NE. 0) KSNCID = KFCSTM + 1\r\n      KLNCID = NIP\r\n      LLCO   = LLCO - KLNCID\r\n      KFNCID = KSNCID + KLNCID - 1\r\nC\r\n      KSHPTR = KFNCID + 1\r\n      KLHPTR = NIP\r\n      LLCO   = LLCO - KLHPTR\r\n      KFHPTR = KSHPTR + KLHPTR - 1\r\nC\r\nC     SET ARRAYS TO ZERO\r\nC\r\n      DO 90 J = KSNCID,KFNCID\r\n      Z(J) = 0\r\n   90 CONTINUE\r\n      DO 100 J = KSHPTR,KFHPTR\r\n      Z(J) = 0\r\n  100 CONTINUE\r\nC\r\nC     GET THE TRANS AND SYMT MATRIX FOR THIS PSEUDOSTRUCTURE\r\nC\r\n      CALL GTMAT1 (SYM,TT)\r\nC\r\nC     TRANSFORM THE COORDINATES IN THE BGSS, NOTE THAT THE ORIGINS\r\nC     FOR TRANSLATION ARE STORED IN ARRAY ORIGIN.\r\nC\r\n      IF (TRN+SYM .EQ. 0) GO TO 130\r\n      DO 120 J = KSBGSS,KFBGSS,4\r\n      IF (Z(J) .EQ. -1) GO TO 120\r\n      CALL GMMATS (TT,3,3,0 ,RZ(J+1),3,1,0 ,XX)\r\n      DO 110 JJ = 1,3\r\n      RZ(J+JJ) = XX(JJ) + ORIGIN(I,JJ)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\nC     TRANSFORM DEGREES OF FREEDOM FOR EACH EQSS CONTAINED\r\nC     IN THE PSEUDOSTRUCTURE.\r\nC\r\n      CALL WRITE (SCR3,TT6,36,1)\r\n      NHMAT = 1\r\n      CALL SFETCH (NAM,NHEQSS,1,ITEST)\r\n      KNEQSS = KFHPTR + 1\r\n      CALL SUREAD (Z(KNEQSS),4,KLEQSS,ITEST)\r\n      CALL SUREAD (Z(KNEQSS),-1,KLEQSS,ITEST)\r\n      LLCO  = LLCO - 2*NCOMP\r\n      IFILE = SCMCON\r\n      CALL OPEN (*600,SCMCON,Z(BUF2),1)\r\n      DO 350 J = 1,NCOMP\r\n      KSEQSS = KFHPTR + 2*NCOMP\r\n      CALL SUREAD (Z(KSEQSS),LLCO,KLEQSS,ITEST)\r\n      IF (KLEQSS .EQ. 0) GO TO 340\r\n      IF (KLEQSS.EQ.LLCO .AND. ITEST.NE.2) GO TO 620\r\n      KFEQSS = KSEQSS + KLEQSS - 1\r\nC\r\nC     LOOP ON EACH IP IN THE EQSS AND GENERATE TRANSFORMATION MATRIX\r\nC\r\n      DO 330 JJ = KSEQSS,KFEQSS,3\r\n      IP    = Z(JJ+1)\r\n      ICOMP = Z(JJ+2)\r\nC\r\nC     GET CSTM FOR THIS IP\r\nC\r\n      CSTMID = Z(KSBGSS+4*IP-4)\r\n      ECPT1  = CSTMID\r\n      IF (CSTMID .LT. 0) ECPT1 = 0\r\n      DO 140 JDH = 1,3\r\n      ECPT(JDH+1) = RZ(KSBGSS+4*IP-4+JDH)\r\n  140 CONTINUE\r\n      CALL GTMAT2 (LOC2,KLCSTM,ECPT,TC)\r\nC\r\nC     TEST FOR POSSIBLE GTRAN\r\nC\r\n      IGTRAN = 0\r\n      IF (.NOT.TDAT(6)) GO TO 170\r\n      CGID = 1000000*J + Z(JJ)\r\n      DO 150 K = KSGTRN,KFGTRN,5\r\n      IF (Z(K+3).EQ.CGID .AND. Z(K).EQ.I .AND. Z(K+1).EQ.J) GO TO 160\r\n  150 CONTINUE\r\nC\r\nC     NO GTRAN\r\nC\r\n      GO TO 170\r\n  160 CALL GTMAT3 (Z(K+4),TG,TG6,IKIND)\r\n      IGTRAN = 1\r\n      GO TO 180\r\n  170 CALL GTMAT3 (-1,TG,TG6,IKIND)\r\nC\r\nC     ALL TRANSFORMATIONS HAVE BEEN FOUND, COMPUTE THE FINAL MATRIX TMAT\r\nC\r\n  180 CALL GMMATS (TG6  ,6,6,1,TT6,6,6,0,TSAVE)\r\n      CALL GMMATS (TSAVE,6,6,0,TC6,6,6,0,TMAT )\r\nC\r\nC     DECODE DEGREES OF FREEDOM AND FORM VECTOR\r\nC\r\n      CALL DECODE (ICOMP,LIST,NDOF)\r\nC\r\nC     FIND NEW DEGREES OF FREEDOM AND UPDATE EQSS\r\nC\r\n      IF (CSTMID.NE.0 .AND. IGTRAN.EQ.0) GO TO 220\r\n      DO 200 I1 = 1,6\r\n      DOFN(I1) = 0.0\r\n      DO 190 I2 = 1,NDOF\r\n      L = LIST(I2) + 1\r\n      IF (ABS(TMAT(L,I1)) .LT. 1.0E-4) GO TO 190\r\n      DOFN(I1) = 1.0\r\n      GO TO 200\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      ICODE = 0\r\n      DO 210 I1 = 1,6\r\n      ICODE = ICODE + DOFN(I1)*2**(I1-1)\r\n  210 CONTINUE\r\n      GO TO 230\r\n  220 ICODE   = ICOMP\r\n  230 Z(JJ+2) = ICODE\r\nC\r\nC     WRITE IP,C ON SCRATCH TO COMPUTE NEW SIL,C\r\nC\r\n      CALL WRITE (SCMCON,IP,1,0)\r\n      CALL WRITE (SCMCON,ICODE,1,0)\r\nC\r\nC     UPDATE CID NUMBERS\r\nC\r\n      IADD   = KSBGSS + 4*IP - 4\r\n      IADD1  = KSNCID + IP - 1\r\n      IKKIND = IKIND  + 1\r\n      GO TO (240,240,250,250,240,240,260,260,290,290,290,290,270,270,\r\n     1       280,280,290,290,290,290,290,290,290,290,290,290,290,290,\r\n     2       280,280,280,280,280,280,280), IKKIND\r\n  240 Z(IADD1) = Z(IADD)\r\n      IF (Z(IADD) .EQ. -1) Z(IADD1) = -100000000\r\n      IF (Z(IADD) .EQ. -2) Z(IADD1) = -200000000\r\n      GO TO 290\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS  9/92\r\nC     250 AND 240 ARE IDENTICAL HERE. IS IT POSSIBLY AN ERROR HERE?\r\nC\r\n  250 Z(IADD1) = Z(IADD)\r\n      IF (Z(IADD) .EQ. -1) Z(IADD1) = -100000000\r\n      IF (Z(IADD) .EQ. -2) Z(IADD1) = -200000000\r\n      GO TO 290\r\n  260 Z(IADD1) = 0\r\n      GO TO 290\r\n  270 Z(IADD1) = -TRN\r\n      GO TO 290\r\n  280 Z(IADD1) = -Z(K+4)\r\n  290 CONTINUE\r\nC\r\nC     SET POINTERS FOR H MATRIX\r\nC\r\n      ITIS = 0\r\n      IADD2 = KSHPTR + IP - 1\r\n      IF (CSTMID   .LT. 0) GO TO 300\r\n      IF (Z(IADD2) .GT. 2) GO TO 330\r\n      IF (IKKIND.EQ. 3 .OR. IKKIND.EQ.4 .OR. IKKIND.EQ.13 .OR.\r\n     1    IKKIND.EQ.14) ITIS = 1\r\n      IF (IKKIND.EQ. 1 .OR. IKKIND.EQ.2 .OR. IKKIND.EQ. 5 .OR.\r\n     1    IKKIND.EQ. 6) ITIS = 2\r\n      IF (ITIS - 1) 320,300,310\r\n  300 Z(IADD2) = 0\r\n      GO TO 330\r\n  310 Z(IADD2) = 1\r\n      GO TO 330\r\n  320 CONTINUE\r\n      NHMAT = NHMAT + 1\r\n      Z(IADD2) = NHMAT\r\n      CALL WRITE (SCR3,TMAT,36,1)\r\n  330 CONTINUE\r\nC\r\nC     INSERT MULTIPLE IP CODE\r\nC\r\n      IF (NCOMP .NE. 1) CALL EQSCOD (KSEQSS,KLEQSS,Z(1))\r\nC\r\nC     WRITE EQSS ON FILE SCSFIL\r\nC\r\n  340 CALL WRITE (SCSFIL,Z(KSEQSS),KLEQSS,1)\r\n      TWOJM1 = 2*(J-1)\r\n      IF (ANDF(RSHIFT(IPRINT,19),1) .EQ. 1)\r\n     1    CALL CMIWRT (1,NAM,Z(KNEQSS+TWOJM1),KSEQSS,KLEQSS,Z,Z)\r\n  350 CONTINUE\r\n      CALL EOF (SCR3)\r\n      CALL CLOSE (SCMCON,1)\r\nC\r\nC     GENERATE NEW SIL,C LIST\r\nC\r\n      IFILE = SCMCON\r\n      CALL OPEN (*600,SCMCON,Z(BUF2),0)\r\n      CALL READ (*360,*360,SCMCON,Z(KSEQSS),LLCO,1,NNN)\r\n      GO TO 620\r\n  360 CALL SORT (0,0,2,1,Z(KSEQSS),NNN)\r\n      KSEJ = KSEQSS + NNN - 1\r\n      I1 = KSEQSS\r\n      I2 = KSEQSS + 2\r\n  370 IF (I2-KSEQSS .GE. NNN) GO TO 400\r\n      IF (Z(I1)   .EQ. Z(I2)) GO TO 380\r\n      I1 = I1 + 2\r\n      I2 = I2 + 2\r\n      GO TO 370\r\n  380 DO 390 J = I2,KSEJ\r\n  390 Z(J-2) = Z(J)\r\n      KSEJ = KSEJ - 2\r\n      NNN  = NNN  - 2\r\n      GO TO 370\r\n  400 CONTINUE\r\n      Z(KSEQSS) = 1\r\n      DO 410 J = 3,NNN,2\r\n      JJ = J - 1\r\n      ICODE = Z(KSEQSS+JJ-1)\r\n      CALL DECODE (ICODE,LIST,NDOF)\r\n      Z(KSEQSS+JJ) = Z(KSEQSS+JJ-2) + NDOF\r\n  410 CONTINUE\r\n      CALL WRITE  (SCSFIL,Z(KSEQSS),NNN,1)\r\n      CALL SUREAD (Z(KSEQSS),LLCO,KLEQSS,ITEST)\r\n      CALL WRITE  (IOEFIL,Z(KSEQSS),KLEQSS,1)\r\n      CALL CLOSE  (SCMCON,1)\r\nC\r\nC     PRINT EQSS SIL LIST IF REQUESTED\r\nC\r\n      IF (ANDF(RSHIFT(IPRINT,19),1) .EQ. 1)\r\n     1    CALL CMIWRT (8,NAM,0,KSEQSS,KLEQSS,Z,Z)\r\nC\r\nC     UPDATE CSTM NUMBERING SYSTEM\r\nC     KKC IS TRANSFORMED SYSTEM COORD. ID\r\nC\r\n      IP  = 0\r\n      DO 540 I6 = KSNCID,KFNCID\r\n      IP  = IP + 1\r\n      LOC = KSBGSS + 4*(IP-1)\r\n      IF (Z(I6) .EQ. 100000000) GO TO 540\r\n      IF (Z(I6)) 430,520,420\r\n  420 I1  = KSCSTM\r\n      I2  = KFCSTM\r\n      GO TO 440\r\n  430 IF (Z(I6) .EQ. -100000000) GO TO 530\r\n      I1  = KSTRAN\r\n      I2  = KFTRAN\r\n  440 KKC = KKC + 1\r\n      IF (IAUTO) GO TO 480\r\n      IF (KKC .GT. 1) GO TO 460\r\n      CALL PAGE1\r\n      CALL PAGE2 (5)\r\n      WRITE  (OUTT,450)\r\n  450 FORMAT (//45X,'SUMMARY OF OVERALL SYSTEM COORDINATES', //36X,\r\n     1      'PSEUDO STRUCTURE ID.   SYSTEM COORD.ID    USER COORD.ID',/)\r\n  460 CALL PAGE2 (1)\r\n      WRITE  (OUTT,470) I,KKC,Z(LOC)\r\n  470 FORMAT (43X,I6,14X,I6,11X,I6)\r\n  480 LOOK4 = Z(I6)\r\n      DO 500  J6 = I1,I2,14\r\n      IF (IABS(Z(I6)) .NE. Z(J6)) GO TO 500\r\n      IF (Z(I6) .LE. 0) GO TO 490\r\n      CALL GMMATS (TT,3,3,0,Z(J6+5),3,3,0,TC)\r\n      CALL WRITE (SCCSTM,KKC,1,0)\r\n      CALL WRITE (SCCSTM,Z(J6+1),4,0)\r\n      CALL WRITE (SCCSTM,TC,9,0)\r\n      GO TO 500\r\n  490 CONTINUE\r\n      CALL WRITE (SCCSTM,KKC,1,0)\r\n      CALL WRITE (SCCSTM,Z(J6+1),13,0)\r\n  500 CONTINUE\r\nC\r\nC     FIND OTHER CIDS THAT ARE THE SAME\r\nC\r\n      IIP = 0\r\n      DO 510 J6 = KSNCID,KFNCID\r\n      IIP = IIP + 1\r\n      IF (Z(J6).NE. LOOK4) GO TO 510\r\n      LOC = KSBGSS + 4*(IIP-1)\r\n      Z(LOC) = KKC\r\n      Z(J6) = 100000000\r\n  510 CONTINUE\r\n      GO TO 540\r\n  520 Z(LOC) = 0\r\n      GO TO 540\r\n  530 Z(LOC) = -1\r\n      IF (Z(I6) .EQ. -200000000) Z(LOC) = -2\r\n  540 CONTINUE\r\nC\r\nC     WRITE PROCESSED BGSS\r\nC\r\n      CALL WRITE (SCSFIL,Z(KSBGSS),KLBGSS,1)\r\n      IF (ANDF(RSHIFT(IPRINT,18),1) .EQ.  1)\r\n     1    CALL CMIWRT (2,NAM,NAM,KSBGSS,KLBGSS,Z(1),Z(1) )\r\nC\r\nC     WRITE ARRAY OF H POINTERS\r\nC\r\n      CALL WRITE (SCSFIL,Z(KSHPTR),KLHPTR,1)\r\n      CALL EOF (SCSFIL)\r\n  550 CONTINUE\r\nC\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (SCSFIL,1)\r\n      CALL WRITE (SCCSTM,TMAT,0,1)\r\n      CALL CLOSE (SCCSTM,1)\r\n      CALL CLOSE (IOEFIL,1)\r\n      LCORE = BUFEX + BUF1 - BUF2\r\n      RETURN\r\nC\r\n  600 IMSG = -1\r\n      GO TO 630\r\n  610 IMSG = -2\r\n      GO TO 630\r\n  620 IMSG = -8\r\n  630 CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmsofo.f",
    "content": "      SUBROUTINE CMSOFO\r\nC\r\nC     THIS ROUTINE GENERATES THE NEW SOF DATA FOR A COMBINATION.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TDAT,TOCOPN,LONLY\r\n      INTEGER         PORA,PAPP,LODS,LOAP,\r\n     1                BUF1,BUF3,CE(9),CNAM,COMBO,SCSFIL,SCR1,BUF2,SCORE,\r\n     2                SCCONN,SBGSS,SCTOC,Z,AAA(2),GETIP,ENT(5),\r\n     3                NAMOLD(14),EOG,SCBDAT,SCCSTM,OUTT,RSHIFT,ANDF\r\n      DIMENSION       SAV1(3),SAV2(9),RZ(1),\r\n     1                TMAT(9),ECPT(4),RENT(3),LIST(32)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN\r\n      COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / STEP,DRY,PORA\r\n      EQUIVALENCE     (RZ(1),Z(1)),(ITRAN,ECPT(1))\r\n      DATA    AAA   / 4HCMSO,4HFO   / , EOG / 4H$EOG /\r\n      DATA    PAPP  , LODS,LOAP             /\r\n     1                4HPAPP,4HLODS,4HLOAP  /\r\n      DATA    NHEQSS, NHBGSS,NHCSTM,NHPLTS  /\r\n     1        4HEQSS, 4HBGSS,4HCSTM,4HPLTS  /\r\nC\r\nC     GET NAMES OF BASIC COMPONENTS FROM THE TABLE OF CONTENTS\r\nC\r\n      IFILE = SCTOC\r\n      IF (.NOT.TOCOPN) CALL OPEN (*720,SCTOC,Z(BUF2),0)\r\n      CALL REWIND (SCTOC)\r\n      K = 0\r\n      J = 0\r\n   10 J = J + 1\r\nC\r\n      CALL READ (*30,*730,SCTOC,0,-3,0,NNN)\r\n      CALL READ (*30,*20,SCTOC,Z(SCORE+K),LCORE,1,NNN)\r\n   20 K = K + NNN\r\n      IF (J .LT. NPSUB) GO TO 10\r\n   30 IF (.NOT.TOCOPN) CALL CLOSE (SCTOC,1)\r\n      ISTNM = SCORE\r\n      SCORE = SCORE + K\r\n      NNAMES = K\r\nC\r\n      NSUB = 0\r\n      DO 40 J = 1,NPSUB\r\n      NSUB = NSUB + COMBO(J,5)\r\n   40 CONTINUE\r\nC\r\nC     WRITE THE FIRST GROUP OF THE EQSS\r\nC\r\n      IF (LONLY) GO TO 330\r\nC\r\n      NP2 = 2*NPSUB\r\n      DO 50 I = 1,NP2,2\r\n      J = I/2 + 1\r\n      NAMOLD(I  ) = COMBO(J,1)\r\n      NAMOLD(I+1) = COMBO(J,2)\r\n   50 CONTINUE\r\n      NPP = NPSUB\r\n      CALL SETLVL (CNAM,NPP,NAMOLD,ITEST,29)\r\n      IF (ITEST .EQ. 8) GO TO 700\r\n      ITEST = 3\r\n      CALL SFETCH (CNAM,NHEQSS,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (CNAM,2,ITEST)\r\n      CALL SUWRT (NSUB,1,ITEST)\r\n      CALL SUWRT (NIPNEW,1,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (Z(ISTNM),NNAMES,ITEST)\r\nC\r\n      IFILE = SCCONN\r\n      CALL OPEN (*720,SCCONN,Z(BUF1),0)\r\n      IFILE = SCSFIL\r\n      CALL OPEN (*720,SCSFIL,Z(BUF2),0)\r\n      IFILE = SCR1\r\n      CALL OPEN (*720,SCR1,Z(BUF3),1)\r\n      DO 180 I = 1,NPSUB\r\n      IPN = 0\r\n      KK  = 0\r\n   60 IPN = IPN + 1\r\n      CALL READ (*80,*70,SCCONN,CE,10,1,NNN)\r\n   70 IF (CE(I+2) .EQ. 0) GO TO 60\r\n      Z(SCORE+KK  ) = CE(  1)\r\n      Z(SCORE+KK+1) = CE(I+2)\r\n      Z(SCORE+KK+2) = IPN\r\n      KK = KK + 3\r\n      GO TO 60\r\n   80 NOIPN = (KK)/3\r\n      CALL SORT (0,0,3,2,Z(SCORE),KK)\r\nC\r\nC     READ BGSS FROM SUBFIL\r\nC\r\n      IFILE = SCSFIL\r\n      NPSP1 = COMBO(I,5) + 1\r\n      DO 90 J = 1,NPSP1\r\n      CALL FWDREC (*730,SCSFIL)\r\n   90 CONTINUE\r\n      SBGSS = SCORE + KK\r\n      LCORE = LCORE - KK\r\n      CALL READ (*730,*100,SCSFIL,Z(SBGSS),LCORE,1,LBGSS)\r\n      GO TO 740\r\n  100 CONTINUE\r\n      DO 110 J = 1,KK,3\r\n      JJ     = J - 1\r\n      GETIP  = Z(SCORE+JJ+1)\r\n      ENT(1) = Z(SBGSS+4*GETIP-4  )\r\n      ENT(2) = Z(SBGSS+4*GETIP-4+1)\r\n      ENT(3) = Z(SBGSS+4*GETIP-4+2)\r\n      ENT(4) = Z(SBGSS+4*GETIP-4+3)\r\n      ENT(5) = Z(SCORE+JJ+2)\r\n      CALL WRITE (SCR1,ENT,5,0)\r\n  110 CONTINUE\r\n      CALL WRITE (SCR1,ENT,0,1)\r\n      IF (I .EQ. 1) CALL REWIND (SCSFIL)\r\n      IF (I .NE. 1) CALL SKPFIL (SCSFIL,-1)\r\n      IF (I .NE. 1) CALL SKPFIL (SCSFIL, 1)\r\n      NCOMP = COMBO(I,5)\r\n      DO 170 J = 1,NCOMP\r\n      CALL READ (*720,*120,SCSFIL,Z(SBGSS),LCORE,1,NNN)\r\n      GO TO 740\r\n  120 IF (NNN .EQ. 0) GO TO  160\r\n      DO 150 JJ = 1,NNN,3\r\n      KID = Z(SBGSS+JJ)\r\n      CALL BISLOC (*150,KID,Z(SCORE+1),3,NOIPN,NWD)\r\n  130 IF (Z(SCORE+NWD) .NE. Z(SCORE+NWD-3)) GO TO 140\r\n      IF (NWD .LE. 1) GO TO 140\r\n      NWD = NWD - 3\r\n      GO TO 130\r\n  140 ENT(1) = Z(SBGSS+JJ -1)\r\n      ENT(2) = Z(SCORE+NWD+1)\r\n      ENT(3) = Z(SCORE+NWD-1)\r\n      CALL WRITE (SCR1,ENT,3,0)\r\n      IF (Z(SCORE+NWD) .NE. Z(SCORE+NWD+3)) GO TO 150\r\n      IF (NWD+3 .GE. NOIPN*3) GO TO 150\r\n      NWD = NWD + 3\r\n      GO TO 140\r\n  150 CONTINUE\r\n  160 CALL WRITE (SCR1,0,0,1)\r\n  170 CONTINUE\r\n      CALL SKPFIL (SCSFIL,1)\r\n      CALL REWIND (SCCONN)\r\n  180 CONTINUE\r\n      CALL CLOSE (SCSFIL,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     WRITE OUT EQSS ONTO SOF\r\nC\r\n      IFILE = SCR1\r\n      CALL OPEN (*720,SCR1,Z(BUF3),0)\r\n      DO 210 I = 1,NPSUB\r\n      NCOMP = COMBO(I,5)\r\n      CALL FWDREC (*730,SCR1)\r\n      DO 200 J = 1,NCOMP\r\n      CALL READ (*730,*190,SCR1,Z(SBGSS),LCORE,1,NNN)\r\n      GO TO 740\r\n  190 ITEST = 2\r\n      CALL SUWRT (Z(SBGSS),NNN,ITEST)\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\nC     WRITE OUT MASTER SIL,C LIST FOR NEW STRUCTURE\r\nC\r\n      CALL REWIND (SCCONN)\r\n      KK   = 0\r\n      ISIL = 1\r\n  220 CALL READ (*240,*230,SCCONN,CE,10,1,NNN)\r\n  230 CALL DECODE (CE(1),Z(BUF2),NDOF)\r\n      Z(SBGSS+KK  ) = ISIL\r\n      Z(SBGSS+KK+1) = CE(1)\r\n      ISIL = ISIL + NDOF\r\n      KK   = KK + 2\r\n      GO TO 220\r\n  240 CONTINUE\r\n      ITEST = 2\r\n      CALL SUWRT (Z(SBGSS),KK,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (ENT,0,ITEST)\r\nC\r\nC     WRITE BGSS ONTO SOF\r\nC\r\n      LCC = LCORE\r\n      KK  = 0\r\n      CALL REWIND (SCR1)\r\n      DO 270 I = 1,NPSUB\r\n      NCOMP = COMBO(I,5)\r\n      CALL READ (*730,*250,SCR1,Z(SBGSS+KK),LCC,1,NW)\r\n      GO TO 740\r\n  250 KK  = KK  + NW\r\n      LCC = LCC - NW\r\n      DO 260 J = 1,NCOMP\r\n      CALL FWDREC (*280,SCR1)\r\n  260 CONTINUE\r\n  270 CONTINUE\r\n  280 CALL SORT (0,0,5,5,Z(SBGSS),KK)\r\n      ITEST = 3\r\n      CALL SFETCH (CNAM,NHBGSS,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (CNAM,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (NIPNEW,1,ITEST)\r\n      KKK  = 0\r\n  290 ISUB = SBGSS + KKK\r\n      ENT(1) = Z(ISUB  )\r\n      ENT(2) = Z(ISUB+1)\r\n      ENT(3) = Z(ISUB+2)\r\n      ENT(4) = Z(ISUB+3)\r\n      IF (KKK.GT.0 .AND. Z(ISUB+4).EQ.Z(ISUB-1)) GO TO 300\r\n      ITEST = 1\r\n      CALL SUWRT (ENT,4,ITEST)\r\n  300 KKK = KKK + 5\r\n      IF (KKK .LT. KK) GO TO 290\r\n      ITEST = 2\r\n      CALL SUWRT (ENT,0,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (ENT,0,ITEST)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCCONN,1)\r\nC\r\nC     PROCESS CSTM ITEM\r\nC\r\n      CALL OPEN (*720,SCCSTM,Z(BUF3),0)\r\n      CALL READ (*310,*310,SCCSTM,Z(SCORE),LCORE,1,NNN)\r\n      GO TO 740\r\n  310 IF (NNN .EQ. 0) GO TO 320\r\n      ITEST = 3\r\n      CALL SFETCH (CNAM,NHCSTM,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (CNAM,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (Z(SCORE),NNN,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (0,0,ITEST)\r\n  320 CALL CLOSE (SCCSTM,1)\r\nC\r\nC     PROCESS LODS ITEM\r\nC\r\n  330 NLV  = 0\r\n      NCS  = NNAMES/2\r\n      J    = 0\r\n      LITM = LODS\r\n      IF (PORA .EQ. PAPP) LITM = LOAP\r\n      DO 350 I = 1,NPSUB\r\n      NAMOLD(1) = COMBO(I,1)\r\n      NAMOLD(2) = COMBO(I,2)\r\n      CALL SFETCH (NAMOLD,LITM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 340\r\n      CALL SUREAD (CE,4,NOUT,ITEST)\r\n      NLV = NLV + CE(3)\r\n      JDH = 1\r\n      CALL SJUMP (JDH)\r\n      CALL SUREAD (Z(SCORE+J),-2,NOUT,ITEST)\r\n      J = J + NOUT\r\n      GO TO 350\r\n  340 Z(SCORE+J  ) = 0\r\n      Z(SCORE+J+1) = EOG\r\n      J = J + 2\r\n  350 CONTINUE\r\n      ITEST = 3\r\n      CALL SFETCH (CNAM,LITM,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (CNAM,2,ITEST)\r\n      CALL SUWRT (NLV ,1,ITEST)\r\n      CALL SUWRT (NCS ,1,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (Z(ISTNM),NNAMES,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(SCORE),J,ITEST)\r\n      IF (LONLY) GO TO 580\r\nC\r\nC     PROCESS PLTS ITEM\r\nC\r\nC\r\nC     FIND OLD PLTS TRANSFORMATIONS\r\nC\r\n      NOUT  = 0\r\n      J     = 0\r\n      NNSUB = 0\r\n      DO 370 I = 1,NPSUB\r\n      NAMOLD(1) = COMBO(I,1)\r\n      NAMOLD(2) = COMBO(I,2)\r\n      CALL SFETCH (NAMOLD,NHPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 370\r\n      CALL SUREAD (Z(SCORE+J),3,NOUT,ITEST)\r\n      NNSUB = NNSUB + Z(SCORE+J+2)\r\n      CALL SUREAD (Z(SCORE+J),-1,NOUT,ITEST)\r\n      J = J + NOUT\r\n  370 CONTINUE\r\n      NPWD  = J\r\n      ISTRN = SCORE + NPWD\r\n      LLCO  = LCORE - NPWD\r\n      ITEST = 3\r\n      CALL SFETCH (CNAM,NHPLTS,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (CNAM ,2,ITEST)\r\n      CALL SUWRT (NNSUB,1,ITEST)\r\n      NT = 0\r\n      IF (.NOT.TDAT(3)) GO TO 390\r\n      CALL OPEN (*720,SCBDAT,Z(BUF1),0)\r\n      CALL SKPFIL (SCBDAT,2)\r\n      CALL READ (*730,*380,SCBDAT,Z(ISTRN),LCORE,1,NT)\r\n      GO TO 740\r\n  380 CALL PRETRS (Z(ISTRN),NT)\r\n  390 IF (.NOT.TOCOPN) CALL OPEN (*720,SCTOC,Z(BUF2),1)\r\n      CALL REWIND (SCTOC)\r\n      IST  = ISTRN + NT\r\n      LLCO = LLCO  - NT\r\n      J = 0\r\n  400 J = J + 1\r\n      ITRAN = COMBO(J,3)\r\n      DO 410 I = 1,9\r\n      TMAT(I) = 0.0\r\n  410 CONTINUE\r\n      CALL READ (*530,*420,SCTOC,Z(IST),LLCO,1,NNN)\r\n      GO TO 740\r\n  420 IF (ITRAN .EQ. 0) GO TO 440\r\n      DO 430 I = 2,4\r\n      ECPT(I) = 0.0\r\n  430 CONTINUE\r\n      CALL TRANSS (ECPT,TMAT)\r\n      GO TO 450\r\n  440 TMAT(1) = 1.0\r\n      TMAT(5) = 1.0\r\n      TMAT(9) = 1.0\r\nC\r\nC     DETERMINE SYMMETRY\r\nC\r\n  450 IF (COMBO(J,4) .EQ. 0) GO TO 470\r\n      CALL DECODE (COMBO(J,4),LIST,NDIR)\r\n      DO 460 I = 1,NDIR\r\n      IDIR = LIST(I) + 1\r\n      IDIR = 4 - IDIR\r\n      TMAT(IDIR  ) = -TMAT(IDIR  )\r\n      TMAT(IDIR+3) = -TMAT(IDIR+3)\r\n      TMAT(IDIR+6) = -TMAT(IDIR+6)\r\n  460 CONTINUE\r\n  470 DO 480 I = 1,3\r\n      RENT(I) = ORIGIN(J,I)\r\n  480 CONTINUE\r\n      NNN = NNN - 1\r\n      DO 520 I = 3,NNN,2\r\nC\r\nC     PROCESS OLD TRANSFORMATIONS\r\nC\r\n      DO 490 KDH = 1,NPWD,14\r\n      IF (Z(IST+I).EQ.Z(SCORE+KDH-1) .AND. Z(IST+I+1).EQ.Z(SCORE+KDH))\r\n     1    GO TO 500\r\n  490 CONTINUE\r\n      GO TO 520\r\n  500 CALL GMMATS (TMAT,3,3,0, RZ(SCORE+KDH+1),3,1,0, SAV1)\r\n      DO 510  II = 1,3\r\n  510 SAV1(II) = SAV1(II)+RENT(II)\r\n      CALL GMMATS (TMAT,3,3,0, RZ(SCORE+KDH+4),3,3,0, SAV2)\r\n      ITEST = 1\r\n      CALL SUWRT (Z(IST+I),2,ITEST)\r\n      CALL SUWRT (SAV1(1) ,3,ITEST)\r\n      CALL SUWRT (SAV2(1) ,9,ITEST)\r\n      GO TO 520\r\n  520 CONTINUE\r\n      IF (J .LT. NPSUB) GO TO 400\r\n  530 IF (.NOT.TOCOPN) CALL CLOSE (SCTOC,1)\r\n      ITEST = 2\r\n      CALL SUWRT (0,0,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (0,0,ITEST)\r\n      CALL CLOSE (SCBDAT,1)\r\n      CALL EQSOUT\r\nC\r\nC     PROCESS OUTPUT REQUESTS\r\nC\r\n      IF (ANDF(RSHIFT(IPRINT,12),1) .NE. 1) GO TO 550\r\nC\r\nC     WRITE EQSS FOR NEW STRUCTURE\r\nC\r\n      CALL SFETCH (CNAM,NHEQSS,1,ITEST)\r\n      CALL SUREAD (Z(SCORE),4,NOUT,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      IST = SCORE + NOUT\r\n      DO 540 I = 1,NSUB\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      IADD = SCORE + 2*(I-1)\r\n      CALL CMIWRT (1,CNAM,Z(IADD),IST,NOUT,Z,Z)\r\n  540 CONTINUE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (8,CNAM,0,IST,NOUT,Z,Z)\r\n  550 IF (ANDF(RSHIFT(IPRINT,13),1) .NE. 1) GO TO 560\r\nC\r\nC     WRITE BGSS FOR NEW STRUCTURE\r\nC\r\n      CALL SFETCH (CNAM,NHBGSS,1,ITEST)\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (2,CNAM,CNAM,IST,NOUT,Z,Z)\r\n  560 IF (ANDF(RSHIFT(IPRINT,14),1) .NE. 1) GO TO 570\r\nC\r\nC     WRITE CSTM ITEM\r\nC\r\n      CALL SFETCH (CNAM,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 570\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (3,CNAM,CNAM,IST,NOUT,Z,Z)\r\n  570 IF (ANDF(RSHIFT(IPRINT,15),1) .NE. 1) GO TO 580\r\nC\r\nC     WRITE PLTS ITEM\r\nC\r\n      CALL SFETCH (CNAM,NHPLTS,1,ITEST)\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST), 3,NOUT,ITEST)\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (4,CNAM,CNAM,IST,NOUT,Z,Z)\r\n  580 IF (ANDF(RSHIFT(IPRINT,16),1) .NE. 1) GO TO 600\r\nC\r\nC     WRITE LODS ITEM\r\nC\r\n      CALL SFETCH (CNAM,LODS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 600\r\n      CALL SUREAD (Z(SCORE), 4,NOUT,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      IST   = SCORE + NOUT\r\n      ITYPE = 5\r\n      IF (LITM .EQ. LOAP) ITYPE = 7\r\n      DO 590 I = 1,NSUB\r\n      IADD = SCORE + 2*(I-1)\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (ITYPE,CNAM,Z(IADD),IST,NOUT,Z,Z)\r\n      ITYPE = 6\r\n  590 CONTINUE\r\n  600 CONTINUE\r\n      RETURN\r\nC\r\n  700 WRITE  (OUTT,710) UFM\r\n  710 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ',\r\n     1       'USED IN A PREVIOUS COMBINE OR REDUCE.')\r\n      IMSG = -37\r\n      GO TO 750\r\n  720 IMSG = -1\r\n      GO TO 750\r\n  730 IMSG = -2\r\n      GO TO 750\r\n  740 IMSG = -8\r\n  750 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmtimu.f",
    "content": "      SUBROUTINE CM TIM U (Y,X,FILE,BUF)\r\nC\r\nC     CM TIM U FORMS THE MATRIX PRODUCT X = M*Y WHERE ALL MAY BE COMPLEX\r\nC\r\n      INTEGER            DIAG      ,EOL      ,EOR      ,FILEM(7) ,\r\n     1                   FILEK     ,FILE(1)  ,FILEMM   ,BUF(1)   ,\r\n     2                   NAME(2)\r\n      DOUBLE PRECISION   X(1)      ,Y(1)     ,DA\r\n      COMMON   /CINVPX/  FILEK(7)  ,FILEMM(7)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /CINVXX/  DUM(21)   ,NZERO\r\n      COMMON   /ZNTPKX/  DA(2)     ,II       ,EOL      ,EOR\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      EQUIVALENCE        (NCOL,FILEK(2))\r\n      DATA      NAME  /  4HCMTI    ,4HMU     /\r\nC\r\n      IF (FILE(1) .EQ. 0) GO TO 5\r\nC\r\nC     USE MATRIX OTHER THAN THE MASS MATRIX\r\nC\r\n      DO 4 I = 1,7\r\n    4 FILEM(I) = FILE(I)\r\n      GO TO 8\r\nC\r\nC     USE MASS MATRIX\r\nC\r\n    5 DO 7 I = 1,7\r\n    7 FILEM(I) = FILEMM(I)\r\n    8 CONTINUE\r\n      NCOL2 = NCOL + NCOL\r\n      IF (FILEM(4) .EQ. IDENTY) GO TO 50\r\n      NZERO = 0\r\n      CALL GOPEN (FILEM(1),BUF,RDREW)\r\n      DO 10 I = 1,NCOL2\r\n   10 X(I) = 0.D0\r\n      IF (FILEM(4) .EQ. DIAG) GO TO 40\r\nC\r\nC     MASS MATRIX IS NOT DIAGONAL\r\nC\r\n      DO 30 I = 1,NCOL2,2\r\n      IF (Y(I).EQ.0.D0 .AND. Y(I+1).EQ.0.D0) GO TO 25\r\n      CALL INTPK (*30,FILEM(1),0,CDP,0)\r\n   22 CALL ZNTPKI\r\n      IF (II .EQ. I) NZERO = NZERO + 1\r\n      II = II+II-1\r\n      X(II  ) = X(II  ) + DA(1)*Y(I  )-DA(2)*Y(I+1)\r\n      X(II+1) = X(II+1) + DA(1)*Y(I+1)+DA(2)*Y(I  )\r\n      IF (EOL .EQ. 0) IF (EOR) 30,22,30\r\n      GO TO 30\r\n   25 CALL FWDREC (*80,FILEM(1))\r\n   30 CONTINUE\r\n      GO TO 80\r\nC\r\nC     FILE ERROR\r\nC\r\nC  35 J = -1\r\nC     GO TO 37\r\nC  36 J = -2\r\nC  37 CALL MESAGE (J,FILEM(1),NAME)\r\nC\r\nC     MASS MATRIX IS DIAGONAL\r\nC\r\n   40 CALL INTPK (*80,FILEM(1),0,CDP,0)\r\n   45 CALL ZNTPKI\r\n      II = II + II - 1\r\n      X(II  ) = Y(II)*DA(1) - Y(II+1)*DA(2)\r\n      X(II+1) = Y(II)*DA(2) + Y(II+1)*DA(1)\r\n      NZERO = NZERO + 1\r\n      IF (EOL .EQ. 0) IF (EOR) 80,45,80\r\n      GO TO 80\r\nC\r\nC     MASS MATRIX IS THE IDENTY\r\nC\r\n   50 DO 55 I = 1,NCOL2\r\n   55 X(I) = Y(I)\r\n      NZERO = 0\r\n      RETURN\r\nC\r\n   80 CALL CLOSE (FILEM(1),REW)\r\n      NZERO = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmtoc.f",
    "content": "      SUBROUTINE CMTOC\r\nC\r\nC     THIS SUBROUTINE GENERATES A TABLE OF CONTENTS FOR A COMBINE\r\nC     OPERATION. FOR EACH PSEUDO-STRUCTURE IT LISTS THE NAME, NUMBER\r\nC     OF COMPONENTS, AND EACH COMPONENT BASIC SUBSTRUCTURE NAME.\r\nC     THIS DATA IS THEN WRITTEN ON SCRATCH FILE SCTOC.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         PRINT,TOCOPN\r\n      INTEGER         SCTOC,BUF5,COMBO,NAME(2),Z,SCORE,AAA(2),OUTT,\r\n     1                IHED(96),XXX,ANDF,RSHIFT\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /OUTPUT/ ITITL(96),IHDR(96)\r\n      COMMON /SYSTEM/ XXX\r\n      DATA    IHED  / 7*4H     ,\r\n     1        4HP S , 4HE U , 4HD O , 4HS T , 4HR U , 4HC T , 4HU R ,\r\n     2        4HE   , 4HT A , 4HB L , 4HE   , 4HO F , 4H  C , 4HO N ,\r\n     3        4HT E , 4HN T , 4HS   , 15*4H         ,\r\n     4        4H PSE, 4HUDO-, 4H    , 4H   N, 4HO. O, 4HF   ,26*2H  ,\r\n     5        4HSTRU, 4HCTUR, 4HE   , 4H COM, 4HPONE, 4HNTS , 4H   -,\r\n     6        4H----, 4H----, 4H- CO, 4HMPON, 4HENT , 4HNAME, 4HS --,\r\n     7        4H----, 4H----, 4H-   , 8*4H     /\r\n      DATA    AAA   / 4HCMTO, 4HC   /\r\n      DATA    NHEQSS/ 4HEQSS/\r\nC\r\n      PRINT = .FALSE.\r\n      IF (ANDF(RSHIFT(IPRINT,1),1) .EQ. 1) PRINT = .TRUE.\r\n      TOCOPN = .TRUE.\r\n      ITOT = 0\r\n      DO 20 I = 1,96\r\n      IHDR(I) = IHED(I)\r\n   20 CONTINUE\r\n      IF (PRINT) CALL PAGE\r\n      CALL OPEN (*60,SCTOC,Z(BUF5),1)\r\n      DO 50 I = 1,NPSUB\r\n      NAME(1) = COMBO(I,1)\r\n      NAME(2) = COMBO(I,2)\r\n      CALL SFETCH (NAME,NHEQSS,1,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NWDS,ITEST)\r\n      Z(SCORE  ) = NAME(1)\r\n      Z(SCORE+1) = NAME(2)\r\n      CALL WRITE (SCTOC,Z(SCORE),3,0)\r\n      ITOT = ITOT + 3\r\n      IA   = SCORE\r\n      IB   = SCORE+2\r\n      IF (PRINT) WRITE(OUTT,30) (Z(KDH),KDH=IA,IB)\r\n   30 FORMAT (34X,2A4,6X,I4)\r\n      COMBO(I,5) = Z(SCORE+2)\r\n      NWDS = NWDS - 4\r\n      IA   = SCORE+4\r\n      IB   = IA+NWDS-1\r\n      NT   = (IB - IA + 1)/8\r\n      IF (NT .EQ. 0) NT = 1\r\n      IF (PRINT) CALL PAGE2 (NT)\r\n      IF (PRINT) WRITE (OUTT,40) (Z(KDH),KDH=IA,IB)\r\n      ITOT = ITOT + NWDS\r\n   40 FORMAT (1H+,57X,2X,2A4,2X,2A4,2X,2A4,2X,2A4,/\r\n     1       (58X,2X,2A4,2X,2A4,2X,2A4,2X,2A4))\r\n      CALL WRITE (SCTOC,Z(SCORE+4),NWDS,1)\r\n   50 CONTINUE\r\n      CALL CLOSE (SCTOC,1)\r\n      CALL OPEN (*60,SCTOC,Z(BUF5),0)\r\nC\r\nC     DETERMINE WHETHER TO CLOSE FILE\r\nC\r\n      IF (ITOT .LE. XXX) RETURN\r\n      TOCOPN = .FALSE.\r\n      CALL CLOSE (SCTOC,1)\r\n      RETURN\r\nC\r\n   60 CALL MESAGE (-1,SCTOC,AAA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cmtrce.f",
    "content": "      SUBROUTINE CMTRCE (IERTAB,IWDS,ITOMNY)\r\nC\r\nC     THIS ROUTINE TRACES BACK IMPROPER CONNECTIONS FINDING\r\nC     GIRD POINT IDS FOR INTERNAL POINT  NUMBERS\r\nC\r\n      INTEGER COMBO,IERTAB(1),Z,OF,IOUT(6),NAM(2)\r\nC\r\n      COMMON /CMB003/ COMBO(7,5)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ JUNK,OF,IJUNK(6),NLPP,IJ2(2),LINE\r\n      DATA    NHEQSS/ 4HEQSS /\r\nC\r\n      CALL SORT(0,0,4,2,IERTAB(1),IWDS)\r\n      IB = 1\r\n      CALL PAGE1\r\n      WRITE(OF,2000)\r\n      WRITE(OF,2100)\r\n      NLINE = NLINE + 5\r\nC\r\n   50 IPS = IERTAB(IB+1)\r\n      NAM(1) = COMBO(IPS,1)\r\n      NAM(2) = COMBO(IPS,2)\r\n      CALL SFETCH(NAM,NHEQSS,1,ITEST)\r\n      CALL SUREAD(Z(1),-1,NOUT,ITEST)\r\n      IPT = NOUT\r\nC\r\nC     READ EQSS FOR EACH COMPONENT\r\nC\r\n      NCOMP = 3\r\n      NCOMP = Z(NCOMP)\r\n      IST = IPT + NCOMP + 2\r\n      Z(IPT+1) = IST\r\n      DO 100 I=1,NCOMP\r\n      CALL SUREAD(Z(IST),-1,NOUT,ITEST)\r\n      Z(IPT+1+I) = NOUT + IST\r\n      CALL SORT(0,0,3,2,Z(IST),NOUT)\r\n      IST = IST + NOUT\r\n  100 CONTINUE\r\n      DO 300 I=IB,IWDS,4\r\n      IF( IERTAB(I+1) .NE. IPS ) GO TO 1000\r\n      DO 220 J=1,2\r\n      IP = IERTAB(I+1+J)\r\n      DO 210 JJ=1,NCOMP\r\n      II = Z(IPT+JJ)\r\n      NWDS = Z(IPT+JJ+1) - Z(IPT+JJ)\r\n      CALL BISLOC(*210,IP,Z(II+1),3,NWDS/3,ILOC)\r\n      IOUT(3*J) = Z(II+ILOC-1)\r\n      IOUT(3*J-2) = Z(2*JJ+3)\r\n      IOUT(3*J-1) = Z(2*JJ+4)\r\n      GO TO 220\r\n  210 CONTINUE\r\n  220 CONTINUE\r\n      LINE = LINE + 1\r\n      IF( LINE .LE. NLPP ) GO TO 230\r\n      CALL PAGE1\r\n      WRITE(OF,2100)\r\n      LINE = LINE + 2\r\n  230 CONTINUE\r\n      WRITE(OF,2200) IERTAB(I),IOUT\r\n  300 CONTINUE\r\n      GO TO 1100\r\nC\r\nC     GET NEXT PSEUDOSTRUCUTRE\r\nC\r\n 1000 IB = I\r\n      GO TO 50\r\n 1100 IF( ITOMNY .EQ. 0 ) RETURN\r\n      WRITE(OF,2300)\r\n      RETURN\r\n 2000 FORMAT(/1X,\r\n     1 61HTHE FOLLOWING CONNECTIONS HAVE BEEN FOUND TO BE INCONSISTANT.,\r\n     2 /1X,57HATTEMPTS HAVE BEEN MADE TO CONNECT INTERNAL POINTS WITHIN,\r\n     3 /1X,57HTHE SAME PSEUDOSTRUCTURE DUE TO SPLIT DEGREES OF FREEDOM.,\r\n     4 /1X,79HTHESE ERRORS MUST BE RESOLVED BY THE USER VIA RELES DATA O\r\n     5R MANUAL CONNECTIONS. /)\r\n 2100 FORMAT(5X,3HDOF,5X,12HSUBSTRUCTURE,5X,8H GRID ID,5X,\r\n     1   12HSUBSTRUCTURE,5X,8H GRID ID   /)\r\n 2200 FORMAT(6X,I1,10X,2A4,5X,I8,9X,2A4,5X,I8)\r\n 2300 FORMAT(/5X,93HTHE NUMBER OF FATAL MESSAGES EXCEEDED THE AVAILABLE\r\n     1STORAGE. SOME MESSAGES HAVE BEEN DELETED. )\r\n      END\r\n"
  },
  {
    "path": "mis/cnorm.f",
    "content": "      SUBROUTINE CNORM(X,DIV,Y)\r\nC\r\nC     CNORM WILL NORMALIZE X TO THE MAXIMUM ELEMENT EQUAL TO A MODULUS\r\nC     OF ONE AND STORE THE DIVISOR IN MAX (X MAY BE COMPLEX)\r\nC\r\n      DOUBLE PRECISION X(1),DIV(2),MAX,TEMP,Y(1),SIGN,COSANG,XO,D,R,RI\r\n      COMMON /SYSTEM/  IBUF,NOUT\r\n      COMMON /CINVPX/  FILEK(7)\r\n      COMMON /CINVXX/  DUM(30),IND1,ITER\r\n      EQUIVALENCE      (NCOL,FILEK(2))\r\nC\r\n      NCOL2 = NCOL + NCOL\r\n      MAX   = 0.D0\r\n      SIGN  = 1.0D0\r\n      IND   = 0\r\n      DO 20 I = 1,NCOL2,2\r\n      IF (X(I)**2+X(I+1)**2 .LE. MAX) GO TO 20\r\n      MAX = X(I)**2 + X(I+1)**2\r\n      IND = I\r\n   20 CONTINUE\r\n      IF (IND  .EQ.   0) GO TO 80\r\n      IF (ITER .EQ.   1) GO TO 60\r\n      IF (IND .EQ. IND1) GO TO 50\r\n      CALL SSWTCH (12,IDIAG)\r\n      IF (IDIAG .EQ.  0) GO TO 40\r\n      WRITE  (6,30) IND,IND1\r\n   30 FORMAT (10H CHANGE     ,2I5)\r\n   40 CONTINUE\r\n   50 CONTINUE\r\n      D  = X(IND)**2 + X(IND+1)**2\r\n      R  = (X(IND1)*X(IND) + X(IND1+1)*X(IND+1))/D\r\n      RI = (X(IND1+1)*X(IND) - X(IND1)*X(IND+1))/D\r\n      COSANG = XO*R/DSQRT(R**2 + RI**2)\r\n      IF (DABS(COSANG+1.D0) .LE. 0.1D0) SIGN = -1.0D0\r\n   60 I  = IND\r\n      DIV(1) = X(I  )*SIGN\r\n      DIV(2) = X(I+1)*SIGN\r\n      IND1 = IND\r\n      MAX  = 1.0D0/MAX\r\n      DO 70 I = 1,NCOL2,2\r\n      TEMP   = (X(I)*DIV(1)+X(I+1)*DIV(2))*MAX\r\n      X(I+1) = (X(I+1)*DIV(1)-X(I)*DIV(2))*MAX\r\n   70 X(I) = TEMP\r\n      XO = X(IND)\r\n      RETURN\r\nC\r\n   80 WRITE  (NOUT,90)\r\n   90 FORMAT (//5X,37HCONOR  RECEIVED A VECTOR OF ALL ZEROS)\r\n      CALL MESAGE (-37,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cnorm1.f",
    "content": "      SUBROUTINE CNORM1 (X,N)\r\nC\r\nC     CNORM1 WILL SEARCH A VECTOR FOR THE LARGEST VALUE AND NORMALIZE\r\nC     THE VECTOR TO LARGEST ELEMENT EQUAL TO ONE\r\nC\r\n      INTEGER          NAME(2)\r\n      DOUBLE PRECISION X(1),DUM,MAX,DIV(2)\r\n      COMMON /SYSTEM/  IBUF,NOUT\r\n      DATA    NAME  /  4HCNOR,4HM1   /\r\nC\r\n      NN   = N + N\r\n      MAX  = 0.D0\r\n      INDEX= 0\r\n      DO 10 I = 1,NN,2\r\n      DUM = X(I)*X(I) + X(I+1)*X(I+1)\r\n      IF (DUM .LE. MAX) GO TO 10\r\n      MAX   = DUM\r\n      INDEX = I\r\n   10 CONTINUE\r\n      IF (INDEX .EQ. 0) GO TO 30\r\n      DIV(1) = X(INDEX  )\r\n      DIV(2) = X(INDEX+1)\r\n      MAX    = DIV(1)*DIV(1) + DIV(2)*DIV(2)\r\n      DO 20 I = 1,NN,2\r\n      DUM    = (X(I)*DIV(1) + X(I+1)*DIV(2))/MAX\r\n      X(I+1) = (X(I+1)*DIV(1) - X(I)*DIV(2))/MAX\r\n   20 X(I)   = DUM\r\n      RETURN\r\nC\r\n   30 WRITE  (NOUT,40)\r\n   40 FORMAT (//5X,37HCNORM1 RECEIVED A VECTOR OF ALL ZEROS)\r\n      CALL MESAGE (-37,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cnstdd.f",
    "content": "      SUBROUTINE CNSTDD\r\nC\r\nC     THIS SUBROUTINE DEFINES COMMONLY USED PHYSICAL CONSTANTS\r\nC\r\nC     THE /CONDAD/ COMMON BLOCK CONTAINS COMMONLY USED PHYSICAL\r\nC     CONSTANTS IN DOUBLE PRECISION FORM.\r\nC\r\nC     THE /CONDAS/ COMMON BLOCK CONTAINS COMMONLY USED PHYSICAL\r\nC     CONSTANTS IN SINGLE PRECISION FORM.\r\nC\r\nC     THE FOLLOWING IS A PARTIAL LIST OF ROUTINES THAT USE CONSTANTS\r\nC     FROM ONE OF THESE COMMON BLOCKS\r\nC              CDETM    ,CEAD1A   ,CONE     ,DETM5    ,DS1A     ,\r\nC              DTRIA    ,FRRD1A   ,GKAM     ,GP1      ,INPUT    ,\r\nC              KTUBE    ,MCONE    ,MFREE    ,MTUBE    ,PLA32    ,\r\nC              PLA42    ,PRESAX   ,QDMEM    ,RAND3    ,RAND8    ,\r\nC              REIG     ,RFORCE   ,ROD      ,SCONE1   ,SDR2C    ,\r\nC              STUBE1   ,TR1A     ,VDRB\r\nC\r\nC     TYPE DECLARATION\r\nC\r\n      DOUBLE PRECISION   DPI      ,D2PI     ,RADDEG   ,DEGRAD   ,\r\n     1                   D4PISQ\r\nC\r\nC\r\nC     COMMON STATEMENTS\r\nC\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\n      COMMON /CONDAD/    DPI      ,D2PI     ,RADDEG   ,DEGRAD   ,\r\n     1                   D4PISQ\r\nC\r\nC\r\nC     PI IS THE SINGLE PRECISION VALUE OF PI\r\nC\r\n      PI     =  3.1415 92653 58979 32384 62643 D0\r\nC\r\nC     DPI IS THE DOUBLE PRECISION VALUE OF PI\r\nC\r\n      DPI    =  3.1415 92653 58979 32384 62643 D0\r\nC\r\nC     TWOPI IS THE SINGLE PRECISION VALUE OF 2*PI\r\nC\r\n      TWOPI  =  6.2831 85307 17958 64769 25287 D0\r\nC\r\nC     D2PI IS THE DOUBLE PRECISION VALUE OF 2*PI\r\nC\r\n      D2PI   =  6.2831 85307 17958 64769 25287 D0\r\nC\r\nC     RADEG IS THE SINGLE PRECISION CONVERSION FACTOR FROM RADIANS TO\r\nC     DEGREES\r\nC\r\n      RADEG  = 57.2957 79513 08232 08767 98155 D0\r\nC\r\nC     RADDEG IS THE DOUBLE PRECISION CONVERSION FACTOR FROM RADIANS TO\r\nC     DEGREES\r\nC\r\n      RADDEG = 57.2957 79513 08232 08767 98155 D0\r\nC\r\nC     DEGRA IS THE SINGLE PRECISIONCONVERSION FACTOR FROM DEGREES TO\r\nC     RADIANS\r\nC\r\n      DEGRA  =  0.0174 53292 51994 32957 69237 D0\r\nC\r\nC     DEGRAD IS THE DOUBLE PRECISION CONVERSION FACTOR FROM DEGREES TO\r\nC     RADIANS\r\nC\r\n      DEGRAD =  0.0174 53292 51994 32957 69237 D0\r\nC\r\nC\r\nC     S4PISQ IS THE SINGLE PRECISION VALUE OF 4*PI**2\r\nC\r\n      S4PISQ = 39.4784 17604 35743 44753 37964 D0\r\nC\r\nC     D4PISQ IS THE DOUBLE PRECISION VALUE OF 4*PI**2\r\nC\r\n      D4PISQ = 39.4784 17604 35743 44753 37964 D0\r\nC\r\n      RETURN\r\nC\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/cnstrc.f",
    "content": "      SUBROUTINE CNSTRC (GP,ELE,BUF,MAX)\r\nC\r\nC     THIS SUBROUTINE BUILDS THE ELSETS FILE\r\nC     THIS SUBROUTINE IS CALLED ONLY BY DPLTST, WHICH IS THE DRIVER OF\r\nC     DMAP MODULE PLTSET\r\nC     THE SUBROUITNE PLTSET OF THE PLOT MODULE HAS NOTHING TO DO WITH\r\nC     THIS SUBROUTINE\r\nC\r\nC     REVISED 10/1990 BY G.CHAN/UNISYS TO INCLUDE OFFSET FOR BAR, TRIA3\r\nC     AND QUAD4 ELEMENTS\r\nC\r\n      INTEGER         AE       ,B1       ,B2       ,B3       ,BUF(1)  ,\r\n     1                BUFSIZ   ,ELE(1)   ,ELID     ,ERR(2)   ,ETYPE   ,\r\n     2                EXGP     ,GP(1)    ,GPT      ,GPTS(32) ,OUTNOR  ,\r\n     3                OUTREW   ,REW      ,SETID    ,SETNUM   ,SIGN    ,\r\n     4                TYPE(50) ,NAME(2)  ,MSG1(14) ,EID(2)   ,OFFSET  ,\r\n     5                BR       ,T3       ,Q4       ,OFF(6)\r\n      COMMON /BLANK / NGP      ,NSETS    ,SKP1(8)  ,SKP2     ,EXGPID  ,\r\n     1                SKP3(8)  ,MERR     ,SKP4     ,GRID     ,ECT2    ,\r\n     2                SKP5(6)  ,MSET     ,ECT1\r\n      COMMON /SYSTEM/ BUFSIZ\r\n      COMMON /NAMES / RD       ,INPREW   ,OUTNOR   ,OUTREW   ,REW     ,\r\n     1                NOREW\r\n      COMMON /GPTA1 / NTYPS    ,LAST     ,INCR     ,NE(1)\r\n      EQUIVALENCE     (EID(1)  ,ELID)\r\n      DATA    NAME  / 4H CNS   ,4HTRC  / ,AE   /    72       /\r\n      DATA    NMSG1 / 14       /\r\n      DATA    MSG1  / 4H(33X   ,4H,44H   ,4HNO P   ,4HLOTA   ,4HBLE   ,\r\n     1                4HSTRU   ,4HCTUR   ,4HAL E   ,4HLEME   ,4HNTS   ,\r\n     2                4HEXIS   ,4HT IN   ,4H SET   ,4H,I8)   /\r\n      DATA    BR, T3, Q4       /2HBR     ,2HT3     ,2HQ4     /\r\nC\r\n      B1 = 1\r\n      B2 = B1 + BUFSIZ\r\n      B3 = B2 + BUFSIZ\r\n      CALL GOPEN (MSET,BUF(B3),INPREW)\r\n      CALL GOPEN (ECT2,BUF(B2),OUTREW)\r\nC\r\n      DO 450 SETNUM = 1,NSETS\r\n      CALL FREAD (MSET,SETID,1,0)\r\n      DO 10 I = 1,NGP\r\n      GP(I) = 0\r\n   10 CONTINUE\r\nC\r\nC     READ THE EXPLICIT ELEMENT NUMBERS IN THIS SET.\r\nC\r\n      CALL FREAD (MSET,NEL,1,0)\r\n      IF (NEL .GE. MAX) CALL MESAGE (-8,0,NAME)\r\n      ELE(NEL+1) = 0\r\n      CALL FREAD (MSET,ELE,NEL,0)\r\nC\r\nC     READ THE ELEMENT TYPES TO BE INCLUDED OR EXCLUDED IN THIS SET.\r\nC\r\n      CALL FREAD (MSET,NTYPES,1,0)\r\n      CALL FREAD (MSET,TYPE,NTYPES,0)\r\nC\r\nC     GENERATE AN ECT FOR THE ELEMENTS INCLUDED IN THIS SET.\r\nC\r\n      CALL GOPEN (ECT1,BUF(B1),INPREW)\r\n   20 CALL READ (*300,*300,ECT1,ETYPE,1,0,I)\r\nC\r\nC     CHECK WHETHER OR NOT THIS ELEMENT TYPE IS TO BE EXCLUDED.\r\nC\r\n      MTYPE = -1\r\n      LABGP =  1\r\n      IF (ETYPE .EQ. AE) LABGP = -2\r\n      IF (NTYPES .EQ. 0) GO TO 50\r\n      DO 30 I = 1,NTYPES,2\r\n      IF (-ETYPE .EQ. TYPE(I)) GO TO 40\r\n   30 CONTINUE\r\n      GO TO 50\r\n   40 MTYPE = TYPE(I+1)\r\nC\r\nC     THIS ELEMENT TYPE MAY BE INCLUDED AS A TYPE AND/OR SOME OF THEM\r\nC     MAY BE INCLUDED SPECIFICALLY. READ -NGPPE- = NUMBER OF GRID\r\nC     POINTS PER ELEMENT FOR THIS TYPE.\r\nC\r\n   50 CALL FREAD (ECT1,NGPPE,1,0)\r\n      IF (NGPPE .LE. 0) GO TO 290\r\n      IDX    = (ETYPE-1)*INCR\r\n      NELTYP = 0\r\n      NE16   = NE(IDX+16)\r\n      OFFSET = 0\r\n      IF (NE16 .EQ. BR) OFFSET = 6\r\n      IF (NE16.EQ.T3 .OR. NE16.EQ.Q4) OFFSET = 1\r\nC\r\nC     CHECK WHETHER OR NOT THIS ELEMENT TYPE IS TO BE INCLUDED.\r\nC\r\n      IF (NTYPES.EQ.0 .OR. MTYPE.GE.0) GO TO 70\r\n      DO 60 I = 1,NTYPES,2\r\n      IF (ETYPE.EQ.TYPE(I) .OR. TYPE(I).EQ.NTYPS+1) GO TO 200\r\n   60 CONTINUE\r\nC\r\nC     NOW CHECK WHETHER OR NOT ANY OF THE ELEMENTS OF THIS TYPE ARE\r\nC     EXPLICITLY INCLUDED. PUT ALL SUCH ON THE NEW ECT (ECT2).\r\nC\r\n   70 CALL READ (*280,*280,ECT1,EID,2,0,I)\r\n      CALL FREAD (ECT1,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (ECT1,OFF,OFFSET,0)\r\n      IF (NEL .LE. 0) GO TO 70\r\n      M = 0\r\n      N = 1\r\nC\r\nC     FOR TYPES DELETED ONLY SEARCH LIST AFTER TYPE WAS KNOWN TO BE\r\nC     DELETED (2ND WORD OF TYPE)\r\nC\r\n      IF (MTYPE .GT. 0) N = MTYPE\r\n      IF (N   .GT. NEL) GO TO 110\r\n   80 CALL INTLST (ELE,N,SIGN,N1,N2)\r\n      IF (SIGN .LT. 0) GO TO 90\r\n      IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 1\r\n      GO TO 100\r\n   90 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 0\r\n  100 IF (N .LE. NEL) GO TO 80\r\n  110 CONTINUE\r\n      IF (M      .EQ. 0) GO TO 70\r\n      IF (NELTYP .NE. 0) GO TO 120\r\n      CALL WRITE (ECT2,NE(IDX+16),1,0)\r\n      CALL WRITE (ECT2,NGPPE,1,0)\r\n  120 CALL WRITE (ECT2,EID,2,0)\r\n      CALL WRITE (ECT2,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL WRITE (ECT2,OFF,OFFSET,0)\r\n      NELTYP = NELTYP + 1\r\n      DO 130 I = 1,NGPPE\r\n      J = GPTS(I)\r\n      GP(J) = LABGP\r\n  130 CONTINUE\r\nC\r\nC     AERO ELEMENT - CENTER ONLY LABELED\r\nC\r\n      IF (ETYPE .EQ. AE) GP(J) = 1\r\n      GO TO 70\r\nC\r\nC     THIS ELEMENT TYPE IS TO BE INCLUDED, EXCEPT THE ONES EXPLICITLY\r\nC     EXCLUDED\r\nC\r\nC     ONLY SEARCH LIST AFTER TYPE WAS INCLUDED\r\nC\r\n  200 MTYPE = TYPE(I+1)\r\n  210 CALL READ (*280,*280,ECT1,EID,2,0,I)\r\n      CALL FREAD (ECT1,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (ECT1,OFF,OFFSET,0)\r\n      IF (NEL .LE. 0) GO TO 250\r\n      M = 1\r\n      N = 1\r\n      IF (MTYPE .GT. 0) N = MTYPE\r\n      IF (N   .GT. NEL) GO TO 250\r\n  220 CALL INTLST (ELE,N,SIGN,N1,N2)\r\n      IF (SIGN .GT. 0) GO TO 230\r\n      IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 0\r\n      GO TO 240\r\n  230 IF (ELID.GE.N1 .AND. ELID.LE.N2) M = 1\r\n  240 IF (N    .LE. NEL) GO TO 220\r\n      IF (M    .EQ.   0) GO TO 210\r\n  250 IF (NELTYP .NE. 0) GO TO 260\r\n      CALL WRITE (ECT2,NE(IDX+16),1,0)\r\n      CALL WRITE (ECT2,NGPPE,1,0)\r\n  260 CALL WRITE (ECT2,EID,2,0)\r\n      CALL WRITE (ECT2,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL WRITE (ECT2,OFF,OFFSET,0)\r\n      DO 270 I = 1,NGPPE\r\n      J = GPTS(I)\r\n      GP(J) = LABGP\r\n  270 CONTINUE\r\nC\r\nC     AERO ELEMENT - CENTER ONLY LABELED\r\nC\r\n      IF (ETYPE .EQ. AE) GP(J) = 1\r\n      NELTYP = NELTYP + 1\r\n      GO TO 210\r\nC\r\nC     END OF NEW ECT FOR THIS ELEMENT TYPE\r\nC\r\n  280 IF (NELTYP .GT. 0) CALL WRITE (ECT2,0,1,0)\r\n      GO TO 20\r\nC\r\nC     SKIP THIS ELEMENT TYPE (NON-EXISTENT)\r\nC\r\n  290 CALL FREAD (ECT1,0,0,1)\r\n      GO TO 20\r\nC\r\nC     END OF ECT FOR THIS ELEMENT SET\r\nC\r\n  300 CALL CLOSE (ECT1,REW)\r\n      CALL WRITE (ECT2,0,0,1)\r\nC\r\nC     FLAG ALL GRID POINTS TO BE EXCLUDED FROM A DEFORMED SHAPE.\r\nC\r\n      CALL FREAD (MSET,NGPTS,1,0)\r\n      IF (NGPTS .GE. MAX) CALL MESAGE (-8,0,NAME)\r\n      ELE(NGPTS+1) = 0\r\n      CALL FREAD (MSET,ELE,NGPTS,1)\r\n      IF (NGPTS .LE. 0) GO TO 400\r\n      CALL GOPEN (EXGPID,BUF(B1),INPREW)\r\n      DO 340 GPT = 1,NGP\r\n      CALL FREAD (EXGPID,EXGP,1,0)\r\n      CALL FREAD (EXGPID,INGP,1,0)\r\n      M = 0\r\n      N = 1\r\n  310 CALL INTLST (ELE,N,SIGN,N1,N2)\r\n      IF (SIGN .GT. 0) GO TO 320\r\n      IF (EXGP.GE.N1 .AND. EXGP.LE.N2) M = INGP\r\n      GO TO 330\r\n  320 IF (EXGP.GE.N1 .AND. EXGP.LE.N2) M = 0\r\n  330 IF (N .LE. NGPTS) GO TO 310\r\n      IF (M .EQ.     0) GO TO 340\r\n      IF (GP(M) .NE. -2) GP(M) = -GP(M)\r\n  340 CONTINUE\r\n      CALL CLOSE (EXGPID,REW)\r\nC\r\nC     GENERATE A GRID POINT LIST FOR THIS SET (CONVERT THE INTERNAL\r\nC     GRID POINT NUMBERS TO POINTERS TO THE GRID POINTS PECULIAR TO\r\nC     THIS SET)\r\nC\r\n  400 CALL GOPEN (GRID,BUF(B1),OUTNOR)\r\n      NGPTS = 0\r\n      DO 410 I = 1,NGP\r\n      IF (GP(I) .EQ. 0) GO TO 410\r\n      NGPTS = NGPTS+1\r\n      GP(I) = ISIGN(NGPTS,GP(I))\r\n  410 CONTINUE\r\n      IF (NGPTS .NE. 0) GO TO 420\r\n      ERR(1) = 1\r\n      ERR(2) = SETID\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\nC\r\n  420 CALL WRITE (GRID,NGPTS,1,0)\r\n      CALL WRITE (GRID,GP,NGP,0)\r\n      IF (SETNUM .NE. NSETS) CALL CLOSE (GRID,NOREW)\r\n  450 CONTINUE\r\nC\r\nC     ALL DONE. THE SET DEFINITION FILE (MSET) + THE SHORT ECT FILE\r\nC     (ECT1) WILL NOT BE NEEDED AGAIN.\r\nC\r\n      CALL CLSTAB (GRID,REW)\r\n      CALL CLSTAB (ECT2,REW)\r\n      CALL CLOSE  (MSET,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/com12.f",
    "content": "      SUBROUTINE COM12  (*,IX,X,DX,ITERMM)\r\nC\r\nC*******\r\nC      PROGRAM TO SOLVE A MATRIX OF ORDER ONE OR TWO FOR CDCOMP\r\nC*******\r\n      DOUBLE PRECISION DX(12),DET,MINDIA,DZ,DA\r\n      INTEGER         SYSBUF,RDP,DUM\r\n      INTEGER         TYPEL\r\n      INTEGER         CDP\r\n      INTEGER         SCRFLG,JPOSL,BBAR,CBCNT,R,BBBAR1,BBBAR,\r\n     1                SR2FL,SR2FIL\r\n      DIMENSION       SUB(2),X(1),IX(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /CDCMPX/ IFILA(7),IFILL(7),IFILU(7),DUM(3),DET(2),POWER,\r\n     1                NX,MINDIA\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW ,RSP,RDP,\r\n     1                CSP,CDP\r\n      COMMON /ZBLPKX/ DZ(2),JJ\r\n      COMMON /PACKX / ITYPE1,ITYPE2,IY,JY,INCRY\r\n      COMMON /UNPAKX/ ITYPEX,IXY,JXY,INCRX\r\n      EQUIVALENCE     (IFILA(2),NCOL),(IFILL(5),TYPEL),(SR2FIL,DUM(2))\r\n      DATA    SUB(1), SUB(2)  / 4HCOM1,4H2    /\r\nC\r\n      IBUF1 = NX-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      CALL CLOSE(SR2FIL,REW)\r\n      IBUF3 = IBUF2-SYSBUF\r\n      IFILE = IFILU(1)\r\n      IF(ITERMM .EQ. 1) IFILE = SR2FIL\r\n      CALL GOPEN(IFILE,IX(IBUF3),WRTREW)\r\n      CALL GOPEN(IFILA(1),IX(IBUF1),RDREW)\r\n      ITYPEX = CDP\r\n      ITYPE1 = CDP\r\n      ITYPE2 = TYPEL\r\n      INCRX  = 1\r\n      INCRY  = 1\r\n      IF(NCOL .EQ. 2) GO TO 100\r\n      IF(NCOL .NE. 1) GO TO 5000\r\nC*******\r\nC     SOLVE A (1X1)\r\nC*******\r\n      IXY = 1\r\n      JXY = 1\r\n      CALL UNPACK(*5060,IFILA(1),DX)\r\n      DET(1) = DX(1)\r\n      DET(2) = DX(2)\r\n      MINDIA = DSQRT(DX(1)**2+DX(2)**2)\r\n      IY = 1\r\n      JY = 1\r\n      CALL PACK (DX,IFILE,IFILU)\r\n      DX(1) = 0.D0\r\n      DX(2) = 0.D0\r\n      CALL PACK (DX,IFILL(1),IFILL)\r\n   90 CALL CLOSE(IFILE,REW)\r\n   95 CALL CLOSE(IFILA(1),REW)\r\n      CALL CLOSE(IFILL(1),REW)\r\n      RETURN\r\n  100 IXY = 1\r\nC*******\r\nC     SOLVE A (2X2)\r\nC*******\r\n      JXY = 2\r\n      CALL UNPACK(*5060,IFILA(1),DX   )\r\n      CALL UNPACK(*5060,IFILA(1),DX(5))\r\n      A = 1.\r\n      IF(DX(1)**2+DX(2)**2 .GE. DX(3)**2+DX(4)**2) GO TO 150\r\nC*******\r\nC     PERFORM INTERCHANGE\r\nC*******\r\n      DET(1) = DX(1)\r\n      DX(1)  = DX(3)\r\n      DX(3)  = DET(1)\r\n      DET(1) = DX(2)\r\n      DX(2)  = DX(4)\r\n      DX(4)  = DET(1)\r\n      DET(1) = DX(5)\r\n      DX(5)  = DX(7)\r\n      DX(7)  = DET(1)\r\n      DET(1) = DX(6)\r\n      DX(6)  = DX(8)\r\n      DX(8)  = DET(1)\r\n      A      = -1.\r\n  150 CONTINUE\r\n      DET(1) = (DX(3)*DX(1)+DX(4)*DX(2))/(DX(1)**2+DX(2)**2)\r\n      DX(4)  = (DX(4)*DX(1)-DX(3)*DX(2))/(DX(1)**2+DX(2)**2)\r\n      DX(3)  = DET(1)\r\n      DX(7)  = DX(7)-DX(3)*DX(5)+DX(4)*DX(6)\r\n      DX(8)  = DX(8)-DX(3)*DX(6)-DX(4)*DX(5)\r\n      DET(1) = DX(1)*DX(7)-DX(2)*DX(8)\r\n      DET(2) = DX(2)*DX(7)+DX(1)*DX(8)\r\n      IF((DX(1).EQ.0.D0 .AND. DX(2).EQ.0.D0) .OR. (DX(7).EQ.0.D0.AND.\r\n     1    DX(8).EQ.0.D0)) GO TO 5060\r\n      MINDIA = DMIN1(DSQRT(DX(1)**2+DX(2)**2),DSQRT(DX(7)**2+DX(8)**2))\r\n      IY = 1\r\n      JY = 2\r\n      DX( 9) = 0.0D0\r\n      DX(10) = 0.0D0\r\n      IF(A .LT. 0.) DX(9) = 1.D0\r\n      DX(11) = DX(3)\r\n      DX(12) = DX(4)\r\n      CALL PACK(DX(9),IFILL(1),IFILL)\r\n      DX( 9) = 0.D0\r\n      DX(10) = 0.D0\r\n      JY = 1\r\n      CALL PACK(DX(9),IFILL(1),IFILL)\r\n      IF(ITERMM .EQ. 1) GO TO 160\r\n      DX(3) = DX(5)\r\n      DX(5) = DX(7)\r\n      DX(7) = DX(3)\r\n      DX(3) = DX(6)\r\n      DX(6) = DX(8)\r\n      DX(8) = DX(3)\r\n      JY    = 2\r\n      CALL PACK(DX(5),IFILU(1),IFILU)\r\n      IY = 2\r\n      CALL PACK (DX,IFILU(1),IFILU)\r\n      GO TO 90\r\n  160 CALL PACK(DX,IFILE,IFILU)\r\n      JY = 2\r\n      CALL PACK(DX(5),IFILE,IFILU)\r\n      CALL CLOSE(IFILE,EOFNRW)\r\n      GO TO 95\r\nC\r\nC\r\n      ENTRY COMFIN (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,\r\n     1              IPAK,R,BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\nC\r\n      IBUF1 = NX-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2-SYSBUF\r\n      CALL CLOSE(IFILA(1),REW)\r\n      CALL OPEN(*5010,SR2FIL,IX(IBUF1),WRT)\r\n      CALL CLOSE(SR2FIL,EOFNRW)\r\n      K=0\r\n      NAME =  IFILL(1)\r\n      CALL OPEN(*5010,IFILL(1),IX(IBUF2),WRT)\r\n      IF(SCRFLG.EQ.0) GO TO 2005\r\n      NAME = SR2FL\r\n      CALL OPEN(*5010,SR2FL,IX(IBUF3),RD)\r\n 2005 LL = 0\r\n 2010 JPOSL = JPOSL+1\r\n      CALL BLDPK(CDP,TYPEL,IFILL(1),0,0)\r\n      IN1 = I1SP+K\r\n      JJ  = JPOSL\r\n      DZ(1) = IX(IN1)\r\n      DZ(2) = 0.D0\r\n      CALL ZBLPKI\r\n      KK   = 0\r\n      IEND = MIN0(BBAR,NCOL-JJ)\r\n      IF(IEND .EQ. 0) GO TO 2030\r\n      IN1 = I1 +LL*BBAR*2\r\n 2020 JJ  = JJ+1\r\n      IN2 = IN1+KK+KK\r\n      DZ(1) = DX(IN2)\r\n      DZ(2) = DX(IN2+1)\r\n      CALL ZBLPKI\r\n      KK = KK+1\r\n      IF(KK-IEND)2020,2030,5050\r\n 2030 IF(CBCNT.EQ.0) GO TO 2050\r\nC*******\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC*******\r\n      KK  = 0\r\n 2035 IN1 = I6SP + KK\r\n      IN2 = I4 +(IX(IN1)*BBBAR+K)*2\r\n      DZ(1) = DX(IN2)\r\n      DZ(2) = DX(IN2+1)\r\n      IF(DZ(1) .EQ. 0.D0 .AND. DZ(2) .EQ. 0.D0) GO TO 2040\r\n      IN1 = I4SP + IX(IN1)\r\n      JJ  = IX(IN1)\r\n      CALL ZBLPKI\r\n 2040 KK = KK + 1\r\n      IF(KK .LT. CBCNT) GO TO 2035\r\n 2050 CALL BLDPKN(IFILL(1),0,IFILL)\r\n      LL = LL + 1\r\n      K  = K + 1\r\n      IF (K .EQ. LCOL) GO TO 2080\r\n      IF(K-R+1)2010,2060,2070\r\n 2060 IF(R-BBBAR1)2070,2010,5050\r\n 2070 LL  = LL-1\r\n      IN1 = I1+LL*BBAR*2\r\n      IBBAR4 = 4 * BBAR\r\n      CALL READ(*5020,*5030,SR2FL,DX(IN1),IBBAR4,0,NO)\r\n      GO TO 2010\r\n 2080 CALL CLOSE(IFILL(1),REW)\r\n      IF(SCRFLG.GT.0)CALL CLOSE(SR2FL,REW)\r\n      IF(ITERM .NE. 0) RETURN\r\nC*******\r\nC     RE-WRITE THE UPPER TRIANGLE WITH THE RECORDS IN THE REVERSE ORDER\r\nC*******\r\n      INCRX  = 1\r\n      INCRY  = 1\r\n      ITYPE1 = TYPEL\r\n      ITYPE2 = TYPEL\r\n      ITYPEX = TYPEL\r\n      IFILU(2) = 0\r\n      IFILU(6) = 0\r\n      IFILU(7) = 0\r\n      NAME = SR2FIL\r\n      CALL OPEN(*5010,SR2FIL,IX(IBUF1),RD)\r\n      CALL GOPEN(IFILU(1),IX(IBUF2),WRTREW)\r\n      DO 2300 I = 1,NCOL\r\n      IXY = 0\r\n      CALL BCKREC(SR2FIL)\r\n      CALL UNPACK(*5060,SR2FIL,IX)\r\n      CALL BCKREC(SR2FIL)\r\n      KK = JXY-IXY+1\r\n      K  = KK/2\r\n      KK = KK + 1\r\n      IF(TYPEL .EQ. 1) GO TO 2095\r\n      IF(TYPEL .EQ. 4) GO TO 2061\r\n      DO 2090 J = 1,K\r\n      L  = KK-J\r\n      DA = DX(J)\r\n      DX(J) = DX(L)\r\n 2090 DX(L) = DA\r\n      GO TO 2100\r\n 2061 KK = KK+KK-1\r\n      K  = K+K\r\n      DO 2092 J = 1,K,2\r\n      L  = KK-J-1\r\n      DA = DX(L)\r\n      DX(L) = DX(J)\r\n      DX(J) = DA\r\n      DA = DX(L+1)\r\n      DX(L+1) = DX(J+1)\r\n 2092 DX(J+1) = DA\r\n      GO TO 2100\r\n 2095 DO 2097 J = 1,K\r\n      L    = KK-J\r\n      A    = X(J)\r\n      X(J) = X(L)\r\n 2097 X(L) = A\r\n 2100 IY = NCOL-JXY+1\r\n      JY = NCOL-IXY+1\r\n      CALL PACK(IX,IFILU(1),IFILU)\r\n 2300 CONTINUE\r\n      CALL CLOSE(IFILU(1),REW)\r\n      CALL CLOSE(SR2FIL,REW)\r\n      RETURN\r\n 5000 NO = -8\r\n      GO TO 5500\r\n 5010 NO = -1\r\n      GO TO 5500\r\n 5020 NO = -2\r\n      GO TO 5500\r\n 5030 NO = -3\r\n      GO TO 5500\r\n 5050 NO = -25\r\n      GO TO 5500\r\n 5060 RETURN 1\r\n 5500 CALL MESAGE(NO,NAME,SUB(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/comb1.f",
    "content": "      SUBROUTINE COMB1\r\nC\r\nC     THIS IS THE MODULE FOR THE COMBINATION OF SUBSTRUCTURES.\r\nC\r\nC     IT IS PRIMARILY AN INITIALIZER AND DRIVER CALLING THE ROUTINES\r\nC     NECESSARY TO PROCESS THE COMBINE. THE SUBROUTINES ARE\r\nC\r\nC          CMCASE  -  READS THE CASECC DATA BLOCK AND INITIALIZES\r\nC                     PARAMETERS FOR THE COMBINE OPERATION.\r\nC          CMTOC   -  GENERATES THE TABLE OF CONTENTS OF PSEUDO-\r\nC                     STRUCTURES BEING COMBINED AND THEIR COMPONENT\r\nC                     BASIC SUBSTRUCTURES.\r\nC          BDAT01  -  PROCESSES THE CONCT1 BULK DATA.\r\nC          BDAT02  -  PROCESSES THE CONCT  BULK DATA.\r\nC          BDAT03  -  PROCESSES THE TRANS  BULK DATA.\r\nC          BDAT04  -  PROCESSES THE RELES  BULK DATA.\r\nC          BDAT05  -  PROCESSES THE GNEW   BULK DATA.\r\nC          BDAT06  -  PROCESSES THE GTRAN  BULK DATA.\r\nC          CMSFIL  -  GENERATES SUBFIL - THE BASIC FILE USED TO STORE\r\nC                     THE DATA NECESSARY TO AFFECT THE COMBINATION.\r\nC          CMCONT  -  GENERATES THE CONNECTION ENTRIES TO BE USED.\r\nC          CMCKCD  -  CHECKS VALIDITY OF MANUALLY-SPECIFIED CONNECTIONS\r\nC          CMAUTO  -  PROCESSES USERS REQUEST FOR AUTOMATIC\r\nC                     COMBINATION OF SUBSTRUCTURES.\r\nC          CMRELS  -  APPLIES ANY MANUAL RELEASE DATA TO THE SYSTEM.\r\nC          CMCOMB  -  PROCESSES MULTIPLY CONNECTED POINTS.\r\nC          CMDISC  -  PROCESSES GRID POINTS NOT TO BE CONNECTED.\r\nC          CMSOFO  -  GENERATES NEW SOF ITEMS FOR THE RESULTANT\r\nC                     COMBINED STRUCTURE.\r\nC          CMHGEN  -  GENERATES THE DOF TRANSFORMATION MATRIX FOR\r\nC                     EACH COMPONENT TO THE COMBINATION\r\nC\r\n      LOGICAL         TDAT,CONECT,IAUTO,TRAN,MCON,TOCOPN,LONLY\r\n      INTEGER         SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,GEOM4,\r\n     1                CASECC,BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,DRY,STEP,\r\n     2                SYS,OUTT,AAA(2),RESTCT,SCCSTM,SCR3\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,SCTOC,\r\n     1                GEOM4,CASECC,SCCSTM,SCR3\r\n      COMMON /CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INTP,OUTT\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN\r\n      COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2),LONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYS(69)\r\n      COMMON /BLANK / STEP,DRY\r\n      DATA    AAA   / 4HCOMB,4H1    /\r\nC\r\n      IF (DRY.EQ.0 .OR. DRY.EQ.-2) GO TO 210\r\n      SCR1   = 301\r\n      SCR2   = 302\r\n      SCBDAT = 303\r\n      SCSFIL = 304\r\n      SCCONN = 305\r\n      SCMCON = 306\r\n      SCTOC  = 307\r\n      SCCSTM = 308\r\n      SCR3   = 309\r\n      GEOM4  = 102\r\n      CASECC = 101\r\n      DO 10 I = 1,6\r\n      TDAT(I) = .FALSE.\r\n   10 CONTINUE\r\n      DO 20 I = 1,7\r\n      DO 20 J = 1,3\r\n      ORIGIN(I,J) = 0.0\r\n   20 CONTINUE\r\n      LONLY = .FALSE.\r\n      INTP  = SYS(4)\r\n      OUTT  = SYS(2)\r\n      IBUF  = SYS(1)\r\nC\r\n      NZ    = KORSZ(Z(1))\r\n      BUF1  = NZ - IBUF - 2\r\n      BUF2  = BUF1 - IBUF\r\n      BUF3  = BUF2 - IBUF\r\n      BUF4  = BUF3 - IBUF\r\n      BUF5  = BUF4 - IBUF\r\n      IB1   = BUF5 - IBUF\r\n      IB2   = IB1  - IBUF\r\n      IB3   = IB2  - IBUF\r\n      SCORE = 1\r\n      LCORE = IB3 - 1\r\n      IF (LCORE .GT. 0) GO TO 30\r\n      CALL MESAGE (8,0,AAA)\r\n      DRY   = -2\r\n      GO TO 210\r\nC\r\n   30 CALL OPEN (*120,SCCONN,Z(BUF2),1)\r\n      CALL CLOSE (SCCONN,2)\r\n      CALL SOFOPN (Z(IB1),Z(IB2),Z(IB3))\r\nC\r\n      CALL CMCASE\r\n      IF (DRY .EQ. -2) GO TO 130\r\n      CALL CMTOC\r\n      IF (.NOT.LONLY) GO TO 40\r\n      CALL CMSOFO\r\n      GO TO 70\r\nC\r\n   40 IFILE = GEOM4\r\n      CALL PRELOC (*90,Z(BUF1),GEOM4)\r\n      IF (.NOT.CONECT) GO TO 50\r\n      CALL BDAT01\r\n      CALL BDAT02\r\n   50 IFILE = SCBDAT\r\n      CALL OPEN (*120,SCBDAT,Z(BUF2),1)\r\n      CALL BDAT05\r\n      CALL BDAT06\r\n      CALL BDAT03\r\n      CALL CLOSE (GEOM4,1)\r\nC\r\n      CALL CMSFIL\r\n      CALL PRELOC (*100,Z(BUF1),GEOM4)\r\n      CALL BDAT04\r\n      CALL CLOSE (GEOM4,1)\r\n      IF (DRY .EQ. -2) GO TO 150\r\n   60 IF (TDAT(1) .OR. TDAT(2)) CALL CMCONT\r\n      IF (DRY .EQ. -2) GO TO 170\r\n      CALL CMAUTO\r\n      IF (TDAT(1) .OR. TDAT(2)) CALL CMCKCD\r\n      IF (DRY .EQ. -2) GO TO 170\r\n      IF (TDAT(4)) CALL CMRELS\r\n      CALL CMMCON (NCE)\r\n      NPS  = NPSUB + 1\r\n      NDOF = 6\r\n      IF (MCON) CALL CMCOMB (NPS,NCE,NDOF,Z)\r\n      IF (DRY .EQ. -2) GO TO 170\r\nC\r\n      CALL CMCKDF\r\n      IF (DRY .EQ. -2) GO TO 170\r\n      CALL CMDISC\r\n      CALL CMSOFO\r\n      CALL CMHGEN\r\nC\r\n   70 CALL SOFCLS\r\n      IF (TOCOPN) CALL CLOSE (SCTOC,1)\r\n      WRITE  (OUTT,80) UIM\r\n   80 FORMAT (A29,' 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.')\r\n      GO TO 210\r\nC\r\n   90 IF (CONECT .OR. TRAN) GO TO 100\r\n      IFILE = SCBDAT\r\n      CALL OPEN (*120,SCBDAT,Z(BUF2),1)\r\n      CALL EOF (SCBDAT)\r\n      CALL CLOSE (SCBDAT,1)\r\n      CALL CMSFIL\r\n      IF (.NOT.CONECT) GO TO 60\r\nC\r\nC     ERRORS\r\nC\r\n  100 WRITE  (OUTT,110) UFM\r\n  110 FORMAT (A23,' 6510, THE REQUESTED COMBINE OPERATION REQUIRES ',\r\n     1       'SUBSTRUCTURE BULK DATA WHICH HAS NOT BEEN GIVEN.')\r\n      GO TO  190\r\n  120 CALL MESAGE (1,SCBDAT,AAA)\r\n      GO TO  170\r\n  130 WRITE  (OUTT,140) UFM\r\n  140 FORMAT (A23,' 6535, MODULE COMB1 TERMINATING DUE TO ABOVE ',\r\n     1       'SUBSTRUCTURE CONTROL ERRORS.')\r\n      GO TO  200\r\n  150 WRITE  (OUTT,160) UFM\r\n  160 FORMAT (A23,' 6536, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS',\r\n     1       ' IN BULK DATA.')\r\n      GO TO  190\r\n  170 WRITE  (OUTT,180) UFM\r\n  180 FORMAT (A23,' 6537, MODULE COMB1 TERMINATING DUE TO ABOVE ERRORS')\r\n  190 IF (TOCOPN) CALL CLOSE (SCTOC,1)\r\n  200 DRY = -2\r\n      CALL SOFCLS\r\n  210 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/comb2.f",
    "content": "      SUBROUTINE COMB2\r\nC\r\nC     COMB2 PERFORMS THE TRANSFORMATION AND ADDITION OF STIFFNESS, MASS,\r\nC     OR LOAD MATRICES FOR THE PHASE 2 SUBSTRUCTURE COMBINE OPERATION\r\nC\r\nC     NOVEMBER 1973\r\nC\r\nC\r\n      LOGICAL           ADDFLG\r\n      INTEGER           TFLAG      ,SIGNAB     ,SIGNC      ,PREC      ,\r\n     1        SCR1     ,SCR2       ,SCR3       ,SCR4       ,SCR5      ,\r\n     2        RULE     ,TYPIN      ,TYPOUT     ,ACOMB      ,AMCB(7,7) ,\r\n     3        HMCB(6,7),SOF1       ,SOF2       ,SOF3       ,DRY       ,\r\n     4        BUF1     ,RDSOF      ,RC         ,USE        ,HORG      ,\r\n     5        PVEC     ,RFILES     ,IZ(1)      ,RECT       ,RSP       ,\r\n     6        NAME(2)  ,RSOFAR     ,KMP(5)     ,TYPE       ,KMPITM(5) ,\r\n     7        BLANK    ,SYSBUF     ,CPV(7)     ,RPV(7)     ,SCR6      ,\r\n     8        XXXX     ,SCR7       ,PORA       ,PAPP\r\n      DOUBLE PRECISION  DBZ(1)\r\n      DIMENSION         MCBTRL(7)\r\n      CHARACTER         UFM*23     ,UWM*25     ,UIM*29     ,SFM*25\r\n      COMMON /XMSSG /   UFM        ,UWM        ,UIM        ,SFM\r\n      COMMON /BLANK /   DRY        ,TYPE(2)    ,PORA(2)    ,NAMESS(2,7),\r\n     1                  ACOMB      ,USE(14)    ,RFILES(3)  ,KK        ,\r\n     2                  KN         ,JN\r\n      COMMON /SYSTEM/   SYSBUF     ,NOUT\r\n      COMMON /NAMES /   RD         ,RDREW      ,WRT        ,WRTREW    ,\r\n     1                  REW        ,NOREW      ,EOFNRW     ,RSP       ,\r\n     2                  RDP        ,CSP        ,CDP        ,SQUARE    ,\r\n     3                  RECT\r\n      COMMON /PACKX /   TYPIN      ,TYPOUT     ,IROW       ,NROW      ,\r\n     1                  INCR\r\n      COMMON /PARMEG/   MCBP(7)    ,MCBP11(7)  ,MCBP21(7)  ,MCBP12(7) ,\r\n     1                  MCBP22(7)  ,MRGZ       ,RULE\r\n      COMMON /MPY3TL/   MCBA2(7)   ,MCBB2(7)   ,MCBC2(7)   ,MCBD2(7)  ,\r\n     1                  SCR5       ,SCR6       ,SCR7       ,LKORE     ,\r\n     2                  ICODE      ,IPREC      ,DUMMY(13)\r\n      COMMON /MPYADX/   MCBA(7)    ,MCBB(7)    ,MCBC(7)    ,MCBD(7)   ,\r\n     1                  LCORE      ,TFLAG      ,SIGNAB     ,SIGNC     ,\r\n     2                  PREC       ,MSCR       ,DUMM\r\n      COMMON /ZZZZZZ/   Z(1)\r\n      EQUIVALENCE      (DBZ(1),Z(1),IZ(1)),(PVEC,KMPITM(3))\r\n      DATA   NAME   /  4HCOMB,4H2   /\r\n      DATA   HORG   /  4HHORG       /\r\n      DATA   BLANK  /  4H           /\r\n      DATA   XXXX   /  4HXXXX       /\r\n      DATA   PAPP   /  4HPAPP       /\r\n      DATA   KMP    /  4HK   , 4HM   , 4HP   , 4HB   , 4HK4   /\r\n      DATA   KMPITM /  4HKMTX, 4HMMTX, 4HPVEC, 4HBMTX, 4HK4MX /\r\nC\r\nC     INITIALIZE\r\nC\r\n      DO 5 I = 1,14\r\n      IF (NAMESS(I,1).EQ.XXXX .OR. NAMESS(I,1).EQ.0) NAMESS(I,1) = BLANK\r\n    5 CONTINUE\r\n      ACOMB = 201\r\n      SCR1  = 301\r\n      SCR2  = 302\r\n      SCR3  = 303\r\n      SCR4  = 304\r\n      SCR5  = 305\r\n      SCR6  = 306\r\n      SCR7  = 307\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\n      PREC  = 0\r\n      MSCR  = SCR5\r\n      ICODE = 0\r\n      RULE  = 0\r\n      RDSOF = 1\r\n      NOGO  = 0\r\n      RFILES(1) = ACOMB\r\n      NSIZE = 0\r\n      MCBP21(1) = 0\r\n      MCBP22(1) = 0\r\n      RSOFAR = 0\r\n      KN = 1\r\n      JN =-1\r\n      DO 10 I = 1,5\r\n      IF (TYPE(1) .EQ. KMP(I)) GO TO 20\r\n   10 CONTINUE\r\n      WRITE (NOUT,6302) SFM,TYPE\r\n      IF (DRY .LT. 0) RETURN\r\nC\r\n      DRY  =-2\r\n      ITEM = 0\r\n      GO TO 30\r\n   20 ITEM = KMPITM(I)\r\n      IF (ITEM .EQ. PVEC) ITEM = PORA(1)\r\n      IF (DRY .LT. 0) RETURN\r\nC\r\n   30 LCORE = KORSZ(Z) - 1\r\n      LKORE = LCORE\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      SOF1  = BUF1  - SYSBUF\r\n      SOF2  = SOF1  - SYSBUF - 1\r\n      SOF3  = SOF2  - SYSBUF\r\n      IF (SOF3 .GT. 0) GO TO 40\r\n      CALL MESAGE (8,0,NAME)\r\n      DRY =-2\r\n      RETURN\r\nC\r\n   40 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     GRAB THE MATRIX CONTROL BLOCKS\r\nC\r\n      NMAT = 0\r\n      DO 170 I = 1,7\r\n      IF (NAMESS(1,I) .EQ. BLANK) GO TO 170\r\n      AMCB(1,I) = 100 + I\r\n      CALL RDTRL (AMCB(1,I))\r\n      IF (AMCB(1,I) .GT. 0) GO TO 135\r\nC\r\nC     NO GINO FILE.  CHECK SOF\r\nC\r\n      CALL SOFTRL (NAMESS(1,I),ITEM,AMCB(1,I))\r\n      RC = AMCB(1,I)\r\n      GO TO (130,110,115,120,120), RC\r\n  110 NOGO = 1\r\n      WRITE (NOUT,6301) SFM,NAMESS(1,I),NAMESS(2,I),ITEM\r\n      GO TO 170\r\n  115 IF (TYPE(1) .EQ. KMP(3)) GO TO 170\r\n  120 NOGO = 1\r\n      CALL SMSG (RC-2,ITEM,NAMESS(1,I))\r\n      GO TO 170\r\nC\r\nC     MATRIX FOUND ON SOF\r\nC\r\n  130 CONTINUE\r\n      AMCB(1,I) = 0\r\nC\r\nC     GRAB THE MCB OF THE TRANSFORMATION MATRIX\r\nC\r\n  135 CALL SOFTRL (NAMESS(1,I),HORG,MCBTRL)\r\n      RC = MCBTRL(1)\r\n      GO TO (160,140,150,155,155), RC\r\n  140 NOGO = 1\r\n      CALL SMSG (1,HORG,NAMESS(1,I))\r\n      GO TO 170\r\n  150 NOGO = 1\r\n      WRITE (NOUT,6303) SFM,NAMESS(1,I),NAMESS(2,I)\r\n      GO TO 170\r\n  155 NOGO = 1\r\n      CALL SMSG (RC-2,HORG,NAMESS(1,I))\r\n      GO TO 170\r\n  160 DO 161 IT = 1,6\r\n  161 HMCB(IT,I) = MCBTRL(IT+1)\r\n      NMAT = NMAT + 1\r\n      USE(2*NMAT-1) = I\r\n      DEN = FLOAT(AMCB(7,I))/10000.\r\n      USE(2*NMAT) = AMCB(2,I)*AMCB(3,I)*DEN\r\nC\r\nC     CHECK COMPATIBILITY OF DIMENSIONS\r\nC\r\n      IF (NSIZE .EQ. 0) NSIZE = HMCB(1,I)\r\n      IF (HMCB(1,I).EQ.NSIZE .AND. HMCB(2,I).EQ.AMCB(2,I) .AND.\r\n     1    HMCB(2,I).EQ.AMCB(3,I)) GO TO 170\r\n      IF (ITEM.EQ.PVEC .OR. ITEM.EQ.PAPP .AND. HMCB(1,I).EQ.NSIZE .AND.\r\n     1    HMCB(2,I).EQ.AMCB(3,I)) GO TO 170\r\n      NOGO = 1\r\n      WRITE (NOUT,6304) SFM,I,NAMESS(1,I),NAMESS(2,I)\r\n  170 CONTINUE\r\n      IF (NOGO .EQ. 0) GO TO 175\r\nC\r\n  174 DRY =-2\r\n      WRITE  (NOUT,177) AMCB,HMCB\r\n  177 FORMAT ('0*** COMB2 MATRIX TRAILER DUMP',\r\n     1        //7(4X,7I10/), /7(11X,6I10/))\r\n      GO TO 9999\r\nC\r\n  175 IF (NMAT .EQ. 0) GO TO 9999\r\nC\r\nC     DETERMINE PRECISION FOR FINAL MATRIX\r\nC\r\n      IPRC = 1\r\n      ITYP = 0\r\n      DO 176 I = 1,NMAT\r\n      IF (AMCB(5,I).EQ.2 .OR. AMCB(5,I).EQ.4) IPRC = 2\r\n      IF (AMCB(5,I) .GE. 3) ITYP = 2\r\n  176 CONTINUE\r\n      IPREC = ITYP + IPRC\r\nC\r\n      IF (ITEM.EQ.PVEC .OR. ITEM.EQ.PAPP) GO TO 300\r\nC                                               ******\r\nC                                                         *\r\nC     PROCESS STIFFNESS, MASS OR DAMPING MATRICES         *\r\nC                                                         *\r\nC                                               ******\r\nC\r\nC     IF NMAT IS ODD, PUT FIRST RESULT ON ACOMB.  IF EVEN, PUT IT ON\r\nC     SCR4.  FINAL RESULT WILL THEN BE ON ACOMB.\r\nC\r\n      CALL SORT (0,0,2,2,USE,2*NMAT)\r\n      IRF = 1\r\n      IF ((NMAT/2)*2 .EQ. NMAT) IRF = 2\r\n      IFORM = 6\r\n      RFILES(2) = SCR4\r\n      ADDFLG =.FALSE.\r\nC\r\n      DO 230 KK = 1,NMAT\r\n      J  = 2*KK - 1\r\n      JN = JN + 2\r\n      INUSE = USE(JN)\r\nC\r\nC     MOVE TRANSFORMATION MATRIX TO SCR2\r\nC\r\n      CALL MTRXI (SCR2,NAMESS(1,INUSE),HORG,Z(BUF1),RC)\r\nC\r\nC     IF INPUT MATRIX IS ON SOF, MOVE IT TO SCR1\r\nC\r\n      MCBB2(1) = 100 + INUSE\r\n      IF (AMCB(1,INUSE) .GT. 0) GO TO 180\r\n      MCBB2(1) = SCR1\r\n      CALL MTRXI (SCR1,NAMESS(1,INUSE),ITEM,Z(BUF1),RC)\r\nC\r\nC     PERFORM TRIPLE MULTIPLY  H(T)*INPUT*H\r\nC\r\n  180 CALL SOFCLS\r\n      MCBA2(1) = SCR2\r\n      MCBC2(1) = 0\r\n      IF (ADDFLG) MCBC2(1) = RFILES(3-IRF)\r\n      ADDFLG = .TRUE.\r\n      DO 190 J = 2,7\r\n      MCBA2(J) = HMCB(J-1,INUSE)\r\n      MCBB2(J) = AMCB(J,INUSE)\r\n  190 CONTINUE\r\n      IF (MCBB2(4) .LE. 2) IFORM = MCBB2(4)\r\n      CALL MAKMCB (MCBD2,RFILES(IRF),HMCB(1,INUSE),IFORM,IPREC)\r\nC\r\n      CALL MPY3DR (Z)\r\nC\r\n      CALL WRTTRL (MCBD2)\r\n      DO 220 J = 2,7\r\n  220 MCBC2(J) = MCBD2(J)\r\n      IRF = 3 - IRF\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n  230 CONTINUE\r\n      GO TO 9999\r\nC                                          ******\r\nC                                                    *\r\nC     PROCESS LOAD MATRICES                          *\r\nC                                                    *\r\nC****                                           ******\r\n  300 MCBC(1) = 0\r\n      MCBA(1) = SCR2\r\n      TFLAG   = 1\r\n      MRGZ    = LCORE\r\n      PREC    = 0\r\nC\r\nC     SELECT FIRST RESULT FILE SO THAT FINAL RESULT WILL WIND UP ON\r\nC     ACOMB\r\nC\r\n      RFILES(2) = SCR3\r\n      RFILES(3) = SCR4\r\n      IRF = 1\r\n      IF (NMAT.EQ.2 .OR. NMAT.EQ.5) IRF = 2\r\n      IF (NMAT.EQ.3 .OR. NMAT.EQ.6) IRF = 3\r\n      IF (NMAT .EQ. 1) MCBP(1) = ACOMB\r\nC\r\nC     CREATE COLUMN PARTITIONING VECTOR FOR ALL MERGES\r\nC     (VECTOR IS ALWAYS NULL)\r\nC\r\n      CALL MAKMCB (CPV,SCR6,NSIZE,RECT,RSP)\r\n      TYPIN  = RSP\r\n      TYPOUT = RSP\r\n      IROW = 1\r\n      NROW = 1\r\n      INCR = 1\r\n      CALL GOPEN (SCR6,Z(BUF1),WRTREW)\r\n      CALL PACK  (0,SCR6,CPV)\r\n      CALL CLOSE (SCR6,REW)\r\n      ADDFLG =.TRUE.\r\nC\r\n      DO 400 KK = 1,NMAT\r\n      INUSE = USE(2*KK-1)\r\nC\r\nC     COPY TRANSFORMATION MATRIX TO SCR2\r\nC\r\n      CALL MTRXI (SCR2,NAMESS(1,INUSE),HORG,Z(BUF1),RC)\r\nC\r\nC     IF LOAD MATRIX IS ON SOF, COPY IT TO SCR1\r\nC\r\n      MCBB(1) = 100 + INUSE\r\n      IF (AMCB(1,INUSE) .GT. 0) GO TO 330\r\n      MCBB(1) = SCR1\r\n      CALL MTRXI (SCR1,NAMESS(1,INUSE),ITEM,Z(BUF1),RC)\r\nC\r\nC     MULTIPLY (HT * A) AND STORE RESULT ON RFILES(IRF)\r\nC     (ACOMB,SCR3, OR SCR4)\r\nC\r\n  330 CALL SOFCLS\r\n      DO 340 J = 2,7\r\n      MCBA(J) = HMCB(J-1,INUSE)\r\n      MCBB(J) = AMCB(J,INUSE)\r\n  340 CONTINUE\r\n      IF (MCBB(6).EQ.0 .OR. MCBA(3).EQ.MCBB(3)) GO TO 350\r\n      I = KK\r\n      NOGO = 1\r\n      WRITE (NOUT,6304) SFM,I,NAMESS(1,I),NAMESS(2,I)\r\n      GO TO 174\r\n  350 CALL MAKMCB (MCBD,RFILES(IRF),HMCB(1,INUSE),RECT,IPREC)\r\nC\r\n      CALL MPYAD (Z,Z,Z)\r\nC\r\n      IF (ADDFLG) GO TO 390\r\nC\r\nC     COMPUTE ROW PARTITIONING VECTOR TO MERGE RESULT OF THIS MULTIPLY\r\nC     WITH ALL PREVIOUS RESULTS\r\nC\r\n      K = AMCB(2,INUSE)\r\n      CALL MAKMCB (RPV,SCR5,RSOFAR+K,RECT,RSP)\r\n      IF (K .GT. LCORE) GO TO 9008\r\n      DO 360 J = 1,K\r\n  360 Z(J)  = 1.0E0\r\n      TYPIN = RSP\r\n      TYPOUT= RSP\r\n      IROW  = RSOFAR + 1\r\n      NROW  = RSOFAR + K\r\n      INCR  = 1\r\n      CALL GOPEN (SCR5,Z(BUF1),WRTREW)\r\n      CALL PACK  (Z,SCR5,RPV)\r\n      CALL CLOSE (SCR5,REW)\r\nC\r\nC     MERGE MATRICES   STORE RESULT ON NEXT AVAILABLE RFILE\r\nC\r\n      J = MOD(IRF,3) + 1\r\n      CALL MAKMCB (MCBP,RFILES(J),NSIZE,RECT,IPREC)\r\n      MCBP(2) = RPV(3)\r\n      J = MOD(J,3) + 1\r\n      MCBP11(1) = RFILES(J)\r\n      MCBP12(1) = RFILES(IRF)\r\n      DO 380 J = 2,7\r\n      MCBP11(J) = MCBP(J)\r\n      MCBP12(J) = MCBD(J)\r\n  380 CONTINUE\r\nC\r\n      CALL MERGE (RPV,CPV,Z)\r\nC\r\n      IRF = MOD(IRF,3) + 1\r\n      GO TO 395\r\n  390 DO 391 J = 2,7\r\n  391 MCBP(J) = MCBD(J)\r\n  395 RSOFAR = RSOFAR + AMCB(2,INUSE)\r\n      ADDFLG =.FALSE.\r\n      IRF = MOD(IRF,3) + 1\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n  400 CONTINUE\r\n      CALL WRTTRL (MCBP)\r\n      GO TO 9999\r\nC\r\nC     DIAGNOSTICS\r\nC\r\n 6301 FORMAT (A25,' 6301, DATA MISSING IN GO MODE FOR SUBSTRUCTURE ',\r\n     1        2A4,' ITEM ',A4)\r\n 6302 FORMAT (A25,' 6302, ',2A4,' IS ILLEGAL MATRIX TYPE FOR MODULE ',\r\n     1        'COMB2')\r\n 6303 FORMAT (A25,' 6303, H OR G TRANSFORMATION MATRIX FOR SUBSTRUCTURE'\r\n     1,       1X,2A4,' CANNOT BE FOUND ON SOF')\r\n 6304 FORMAT (A25,' 6304, MODULE COMB2 INPUT MATRIX NUMBER ',I2,\r\n     1        ' FOR SUBSTRUCTURE ,2A4,28H HAS INCOMPATIBLE DIMENSIONS')\r\n 9008 CALL MESAGE (8,0,NAME)\r\nC\r\nC     NORMAL COMPLETION\r\nC\r\n 9999 CALL SOFCLS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/combin.f",
    "content": "      SUBROUTINE COMBIN (PG,ILIST,NLIST)\r\nC\r\n      INTEGER         SYSBUF,PG,NAME(2),HCFLDS,HCFLD,HCCENS,HCCEN,OTPE,\r\n     1                REMFLS,REMFL,MCB(7)\r\n      DIMENSION       ARY(1),ILIST(1),ALPHA(360),LOADN(360),LOADNN(360),\r\n     1                IARY(1),ALPHA1(360),LODC1(7),HEAD(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /LOADX / LC,N(13),LODC,MASS\r\n      COMMON /BLANK / NROWSP\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,DUM52(52),IPREC\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /LOADS / NLOAD,IPTR\r\n      COMMON /ZNTPKX/ A(4),LL,IEOL,IEOR\r\n      COMMON /PACKX / ITA,ITB,II,JJ,INCUR\r\n      EQUIVALENCE     (CORE(1),IARY(1),ARY(1))\r\nC\r\nC     ALSO COMBINE HCFLD AND REMFL IN MAGNETOSTATIC PROBLEMS\r\nC\r\n      DATA    HCFLDS, HCFLD /304,202/\r\n      DATA    REMFLS, REMFL /305,203/\r\n      DATA    HCCENS, HCCEN /307,204/\r\n      DATA    NAME  / 4HCOMB,4HIN   /\r\nC\r\nC\r\n      ITA = 1\r\n      ITB = IPREC\r\n      II  = 1\r\nC\r\nC     PERFORM CHECKS IN E AND M PROBLEM\r\nC     IN E AND M PROBLEM, REMFLS AND HCFLDS MUST HAVE THE SAME NUMBER\r\nC     OF COLUMNS AS PG\r\nC\r\n      MCB(1) = REMFLS\r\n      CALL RDTRL (MCB)\r\n      NPERMS = 0\r\n      IF (MCB(1) .LE. 0) GO TO 1\r\n      NPERMS = MCB(2)\r\n    1 MCB(1) = HCFLDS\r\n      CALL RDTRL (MCB)\r\n      NHC = 0\r\n      IF (MCB(1) .LE. 0) GO TO 2\r\n      NHC = MCB(2)\r\n    2 IF (NHC .NE. NPERMS) GO TO 300\r\n      IF (NHC .EQ. 0) GO TO 5\r\n      MCB(1) = PG\r\n      CALL RDTRL (MCB)\r\n      IF (NHC .NE. MCB(2)) GO TO 300\r\n    5 CONTINUE\r\n      MCB(1) = HCCENS\r\n      CALL RDTRL (MCB)\r\n      NS = 0\r\n      IF (MCB(1) .LE. 0) GO TO 6\r\n      NS = MCB(2)\r\n    6 IF (NS .NE. NHC) GO TO 300\r\n      JJ    = NROWSP\r\n      INCUR = 1\r\n      LCORE = LC\r\n      IBUF1 = LCORE\r\n      LCORE = LCORE - SYSBUF\r\n      CALL OPEN (*200,LODC,CORE(LCORE+1),1)\r\n      CALL FNAME (LODC,HEAD)\r\n      CALL WRITE (LODC,HEAD,2,1)\r\n      LCORE = LCORE - SYSBUF\r\n      CALL OPEN (*190,PG,CORE(LCORE+1),0)\r\n      CALL MAKMCB (LODC1,LODC,NROWSP,2,IPREC)\r\n      NLJ = IPTR\r\n      NL1 = 0\r\n      DO 160 I = 1,NLOAD\r\n      DO 10  J = 1,NROWSP\r\n   10 CORE(J) = 0.0\r\n      NLJ = NLJ + NL1*2 + 1\r\n      NL1 = IARY(NLJ)\r\n      DO 20 K = 1,NL1\r\n      KK  = NLJ + (K-1)*2 + 1\r\n      LOADN(K) = IARY(KK)\r\n      IF (LOADN(K) .LT. 0) GO TO 150\r\n   20 ALPHA(K) = ARY(KK+1)\r\n      KK = 1\r\n      KL = 0\r\n      DO 60 K = 1,NLIST\r\n      IF (ILIST(K)) 30,60,30\r\n   30 KL = KL + 1\r\n      DO 40 J = 1,NL1\r\n      IF (LOADN(J)-ILIST(K)) 40,50,40\r\n   40 CONTINUE\r\n      GO TO 60\r\n   50 LOADNN(KK) = KL\r\n      ALPHA1(KK) = ALPHA(J)\r\n      KK = KK + 1\r\n   60 CONTINUE\r\n      KK = 1\r\n      DO 140 J = 1,NL1\r\n      INULL = 0\r\n      IF (J .NE. 1) GO TO 70\r\n      CALL SKPREC (PG,1)\r\n   70 CALL INTPK (*120,PG,0,1,0)\r\n   80 IF (LOADNN(J)-KK) 90,100,90\r\n   90 IF (INULL .EQ. 1) GO TO 91\r\n      IF (IEOR  .EQ. 0) CALL SKPREC (PG,1)\r\n   91 CONTINUE\r\n      KK = KK + 1\r\n      INULL = 0\r\n      GO TO 70\r\n  100 IF (INULL .EQ. 1) GO TO 130\r\n      IF (IEOL) 130,110,130\r\n  110 CALL ZNTPKI\r\n      CORE(LL) = CORE(LL) + A(1)*ALPHA1(J)\r\n      GO TO 100\r\n  120 INULL = 1\r\n      GO TO 80\r\n  130 KK = KK + 1\r\n  140 CONTINUE\r\n  150 CALL PACK (CORE,LODC1(1),LODC1)\r\n      CALL REWIND (PG)\r\n  160 CONTINUE\r\n      CALL WRTTRL (LODC1(1))\r\n      CALL CLOSE  (LODC1(1),1)\r\n      CALL CLOSE  (PG,1)\r\n      IF (PG .EQ. HCFLDS) GO TO 170\r\n      IF (PG .EQ. REMFLS) GO TO 180\r\n      IF (PG .EQ. HCCENS) RETURN\r\nC\r\nC     DO MAGNETOSTATIC FIELDS FOR USE IN EMFLD\r\nC\r\n      LODC1(1) = HCFLDS\r\n      CALL RDTRL (LODC1)\r\nC\r\nC     IF HCFLD IS PURGED, SO MUST REMFLS\r\nC\r\n      IF (LODC1(2) .LE. 0) RETURN\r\n      PG   = HCFLDS\r\n      LODC = HCFLD\r\n      NROWSP = 3*NROWSP\r\n      GO TO 5\r\nC\r\nC     DO REMFLS\r\nC\r\n  170 LODC1(1) = REMFLS\r\n      CALL RDTRL (LODC1)\r\n      IF (LODC1(2) .LE. 0) RETURN\r\n      PG   = REMFLS\r\n      LODC = REMFL\r\n      NROWSP = LODC1(3)\r\n      GO TO 5\r\nC\r\nC     HCCENS\r\nC\r\n  180 LODC1(1) = HCCENS\r\n      CALL RDTRL (LODC1)\r\n      IF (LODC1(2).LE.0) RETURN\r\n      PG   = HCCENS\r\n      LODC = HCCEN\r\n      NROWSP = LODC1(3)\r\n      GO TO 5\r\n  190 IP1 = PG\r\n  195 CALL MESAGE (-1,IP1,NAME)\r\n  200 IF (LODC .EQ. HCFLD) RETURN\r\n      IP1 = LODC\r\n      GO TO 195\r\n  300 WRITE  (OTPE,350) UFM\r\n  350 FORMAT (A23,', IN AN E AND M PROBLEM, SCRATCH DATA BLOCKS HCFLDS',\r\n     1       ' AND REMFLS HAVE DIFFERENT NUMBERS OF COLUMNS.', /10X,\r\n     2       ' THIS MAY RESULT FROM SPCFLD AND REMFLU CARDS HAVING THE',\r\n     3       ' SAME LOAD SET ID')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/combo.f",
    "content": "      SUBROUTINE COMBO (CDATA,NX,EXTRA,NNAM,NAME,NN,VAR,IER)\r\nC\r\nC     THIS ROUTINE  PROCESSES THE  COMBINE INPUT.\r\nC        THE  INPUT/ OUTPUTS  ARE\r\nC\r\nC                  CDATA  -  XRCARD  IMAGE OF  COMBINE CARD  (IN)\r\nC                  NX     -  NUMBER OF EXTRAS                (IN)\r\nC                  EXTRA  -  3 BY NX ARRAY OF EXTRAS         (IN)\r\nC                  NNAM   -  NUMBER OF CURRENT SUBS NAMES (IN/OUT)\r\nC                  NAMES  -  ARRAY OF  CURRENT SUBS NAMES (IN/OUT)\r\nC                  NN     -  NUMBER OF SUBS TO BE COMBINED  (OUT)\r\nC                  VAR    -  3 BY NVAR ARRAY OF VARIABLES   (OUT)\r\nC                            ARRANGED AS- KEY WORD + 2 DATA WORDS\r\nC\r\nC\r\nC\r\nC\r\n      EXTERNAL RSHIFT   ,COMPLF\r\nC\r\n      INTEGER  CDATA(5) ,EXTRA(3,1)    ,NAME(2,1) ,VAR( 3,2)\r\n      INTEGER  RSHIFT   ,COMPLF        ,EQSN\r\nC\r\n      DIMENSION   INUM(7)   ,NUMBS(7) ,MOPT(3)   ,MSORT(3)  ,NAI(7)\r\nC\r\n      DATA   INUM   / 4HN1  , 4HN2  ,4HN3  ,4HN4  ,4HN5  ,4HN6  ,4HN7  /\r\n      DATA   LPRN,    NOPT,   NSORT, MOPT                ,MSORT        /\r\n     1       4H(    , 4HOPTS, 4HSORT,4HAUTO,4HMAN ,4HREST,4HX   ,4HY   ,\r\n     2       4HZ    /\r\n      DATA   MANU   / 4HMANU/\r\n      DATA   NNO    / 4HNAME/ ,NNC /4HNAMC/, NAMS /4HNAMS/\r\n      DATA   NAI    / 4HNA1 ,4HNA2 ,4HNA3  ,4HNA4 ,4HNA5 ,4HNA6 ,4HNA7 /\r\n      DATA   NCNO   / 4HNCNO/\r\n      DATA   EQSN   / 4H=   /\r\nC\r\nC\r\n      LWORD  =  RSHIFT( COMPLF(0),1)\r\n      IER    = 0\r\nC     COMBINE OPERATION\r\nC         PROCESS PRIMARY CARD -COMBINE( OPTS,SORT) = NAME1,NAME2, ETC\r\nC     SET DEFAULTS\r\n      DO 1210 I =1,150\r\n 1210 VAR(I,1) = 0\r\n      JNAM = 6\r\n      VAR(1,1) = NOPT\r\n      VAR(2,1) = MOPT(1)\r\n      VAR(1,2) = NSORT\r\n      VAR(2,2) = MSORT(1)\r\n      IF( CDATA(5) .NE. LPRN) GO TO 1220\r\n      K = 6\r\nC\r\nC     PROCESS  AUTO/MAN  OR XYZ\r\nC\r\n 1211 DO 1215 I =1,3\r\n      IF (  CDATA(K) .NE. MOPT(I)) GO TO 1212\r\n      VAR(2,1) = MOPT(I)\r\n      GO TO 1216\r\n 1212 IF ( CDATA(K) .NE. MANU) GO TO  1213\r\n      VAR(2,1) = MOPT(2)\r\n      GO TO 1216\r\n 1213 IF (  CDATA(K) .NE. MSORT(I)) GO TO 1215\r\n      VAR(2,2) = MSORT(I)\r\n      GO TO 1216\r\n 1215 CONTINUE\r\nC     NOT VALID    ASSUME EQ SIGN OR NAME\r\nC\r\n      GO TO 1222\r\n 1216 K  = K+2\r\n      GO TO 1211\r\nC\r\nC     NO  OPTION\r\n 1220 K = 4\r\nC\r\nC     CHECK FOR  EQ SIGN\r\n 1222 IF ( CDATA( K+1) .EQ. EQSN)  K =K+2\r\nC\r\nC     PROCESS NAMES\r\n      NN = 0\r\n      DO 1235 I = 1,7\r\n      KN = K + 2*I -2\r\n      IF ( CDATA( KN) .EQ. LWORD) GO TO 1236\r\nC\r\n      VAR(1,I+2) = NAMS\r\n      VAR(2,I+2) = CDATA(KN)\r\n      VAR(3,I+2) = CDATA(KN+1)\r\nC\r\nC     FIND STRUCTURE NUMBER\r\n      IF ( NNAM .EQ. 0 ) GO TO 1231\r\n      DO 1230 J =1, NNAM\r\n      IF ( CDATA(KN) .NE. NAME(1,J) .OR. CDATA(KN+1).NE.NAME(2,J))\r\n     1     GO TO 1230\r\n      NUMBS(I) = J\r\n      GO TO 1232\r\n 1230 CONTINUE\r\nC\r\nC     NEW NAME\r\nC\r\n 1231 NNAM  = NNAM +1\r\n      NUMBS(I) = NNAM\r\n      NAME(1,NNAM) = CDATA(KN)\r\n      NAME(2,NNAM) = CDATA(KN+1)\r\n 1232 NN= NN+1\r\n 1235 CONTINUE\r\nC\r\nC\r\nC     MOVE  EXTRAS INTO PLACE  CHANGE NAME TO NAMC\r\n 1236 IC = 0\r\n      DO 1240  J = 1,NX\r\n      IX  = J +3*NN  +2\r\n      IF ( EXTRA(1,J) .NE. NNO ) GO TO 1238\r\n      EXTRA(1,J) = NNC\r\n      IC = IX\r\n 1238 DO 1240 K = 1,3\r\n      VAR( K,IX) = EXTRA(K,J)\r\n 1240 CONTINUE\r\nC\r\nC     SET  STRUCTURE NUMBER KEYS\r\nC\r\n      IF( NN .EQ. 0) GO TO 1248\r\nC\r\n      DO 1245  I = 1, NN\r\nC\r\n      IX =  I + NN  +2\r\n      VAR(1,IX) = INUM(I)\r\n      VAR(2,IX) = -1\r\n      VAR(3,IX) = NUMBS(I)\r\n      IY = IX+NN\r\n      VAR(1,IY) = NAI(I)\r\n      VAR(2,IY) = VAR(2,I+2)\r\n      VAR(3,IY) = VAR(3,I+2)\r\n 1245 CONTINUE\r\n      GO TO 1250\r\n 1248 IER = 1\r\nC\r\nC     CHECK  FOR NAMC AS A PREVIOUS NAME  OR MISSING\r\n 1250 IF ( IC .EQ. 0) GO TO 1265\r\n      DO 1260 J =1,NNAM\r\n      IF (VAR(2,IC).NE. NAME(1,J).OR.VAR(3,IC).NE. NAME(2,J)) GO TO 1260\r\n      GO TO 1265\r\n 1260 CONTINUE\r\nC\r\nC     OK -NEW NAME , ADD TO LIST\r\nC\r\n      NNAM = NNAM+1\r\n      NAME(1,NNAM) = VAR(2,IC)\r\n      NAME(2,NNAM) = VAR(3,IC)\r\n      IX = NX+3*NN+3\r\n      VAR(1,IX) = NCNO\r\n      VAR(2,IX) = -1\r\n      VAR(3,IX) = NNAM\r\n      RETURN\r\n 1265 IER = IER +2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/comect.f",
    "content": "      SUBROUTINE COMECT (ELE,MAX)\r\nC\r\nC     REVISED  10/1990 BY G.CHAN/UNISYS\r\nC              TO INCLUDE OFFSET DATA FOR CBAR, CTRIA3 AND CQUAD4 IN\r\nC              THE ECT2 DATA BLOCK\r\nC              (6 COORDINATE VALUES FOR THE BAR, AND 1 OFFSET VALUE\r\nC              FOR EACH OF THE TWO PLATES, ARE ADDED AFTER THE GRID\r\nC              DATA)\r\nC\r\n      INTEGER         IDREC(3),ELE(1),ELID(2),TYPE,IHX2(20),IHX3(32),\r\n     1                ECT1,ECT2,BUFSIZ,B1,B2,GP(32),OUTREW,REW,M1(18),\r\n     2                NAME(2),ERR(5),EPT,PID,IX(1),PCOMP(12)\r\n      REAL            OFFSET(1)\r\n      COMMON /BLANK / SKP1(12),ECT1,SKP2(7),MERR,SKP3(10),ECT2\r\n      COMMON /SYSTEM/ BUFSIZ\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /GPTA1 / NEL,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (OFFSET(1),GP(1)), (IX(1),X(1))\r\n      DATA    NAME  / 4H COM,4HECT /,  OUTREW,REW,INREW / 1, 1, 0 /\r\n      DATA    PCOMP / 5502,25,2, 5602,14,2, 5702,13,2, 5802,17,17 /\r\nC                     PCOMP      PCOMP1     PCOMP2     PSHELL\r\n      DATA    NM1   / 18    /,\r\n     1        M1    / 4H(33X, 4H,2A4, 4H,18H, 4HIGNO, 4HRING, 4H ELE,\r\n     2                4HMENT, 4H (2A, 4H4,32, 4HH) W, 4HITH , 4HMORE,\r\n     3                4H THA, 4HN 32, 4H CON, 4HNECT, 4HIONS, 4H.)  /,\r\n     4        ILXX  / 2HXX /\r\n      DATA    IHX2  / 1,1,3,3,5,5,7,7,1,3,5,7,13,13,15,15,17,17,19,19/\r\n      DATA    IHX3  / 1,1,4,4,4,7,7,7,10,10,10,1,1,4,7,10,21,24,27,30,\r\n     1                21,21,24,24,24,27,27,27,30,30,30,21            /\r\nC\r\n      B1 = KORSZ(X) - (3*BUFSIZ+2)\r\n      B2 = B1 + BUFSIZ + 3\r\n      ERR(1) = 4\r\n      ERR(2) = NAME(1)\r\n      ERR(3) = NAME(2)\r\nC\r\nC     IF EPT FILE IS PRESENT, AND ANY OF THE PSHELL, PCOMP, PCOMP1 AND\r\nC     PCOMP2 CARDS IS ALSO PRESENT, CREATE A TABLE OF PROPERTY ID AND\r\nC     OFFSET DATA, TO BE USE LATER BY CTRIA3 OR CQURD4 ELEMENTS\r\nC\r\n      JCOMP = B1\r\n      EPT = 104\r\n      CALL OPEN (*40,EPT,X(B1),INREW)\r\n      CALL READ (*30,*30,EPT,IX,2,1,M)\r\n      CALL CLOSE (EPT,REW)\r\n      CALL PRELOC (*40,X(B1),EPT)\r\n      N = 1\r\n      DO 20 I = 1,12,3\r\n      IDREC(1) = PCOMP(I)\r\n      IDREC(2) = IDREC(1)/100\r\n      CALL LOCATE (*20,X(B1),IDREC,J)\r\n      K = PCOMP(I+1)\r\n      J = PCOMP(I+2)\r\n   10 CALL READ (*20,*20,EPT,X,K,0,M)\r\n      IF (X(J) .EQ. 0.0) GO TO 10\r\n      JCOMP = JCOMP - 2\r\n      IX(JCOMP ) = IX(1)\r\n      X(JCOMP+1) =  X(J)\r\n      GO TO 10\r\n   20 N = N + 1\r\n   30 CALL CLOSE (EPT,REW)\r\n      KCOMP = B1 - 1\r\nC\r\nC     CONSTRUCT A LIST OF INDICES IN THE ECT FOR USE WITH GPECT IN THE\r\nC     PLOT MODULE BY CONTOUR PLOTTING\r\nC\r\n   40 CALL GOPEN (ECT1,X(B1),INREW)\r\n      DO 50 J = 1,MAX\r\n   50 ELE(J) = 0\r\n      I = 1\r\n   60 CALL READ (*130,*80,ECT1,IDREC,3,0,M)\r\n      DO 70 J = 1,NEL\r\n      IDX = (J-1)*INCR\r\n      IF (NE(IDX+4) .EQ. IDREC(1)) GO TO 100\r\n   70 CONTINUE\r\n      CALL SKPREC (ECT1,1)\r\n      GO TO 60\r\n   80 CALL MESAGE (-3,ECT1,NAME)\r\n   90 CALL MESAGE (-2,ECT1,NAME)\r\n  100 LECT = NE(IDX+6) - 1\r\n  110 CALL READ (*90,*60,ECT1,ELE(I),1,0,M)\r\n      CALL FREAD (ECT1,0,-LECT,0)\r\n      I = I + 1\r\n      IF (I .GT. MAX) CALL MESAGE (-8,0,NAME)\r\n      GO TO 110\r\nC\r\n  120 CALL MESAGE (-1,ECT1,NAME)\r\nC\r\n  130 LELE = I - 1\r\n      CALL CLOSE (ECT1,REW)\r\nC\r\n      CALL PRELOC (*120,X(B1),ECT1)\r\n      CALL GOPEN (ECT2,X(B2),OUTREW)\r\n      DO 290 N = 1,NEL\r\n      IDX = (N-1)*INCR\r\nC\r\nC     IF SCALAR CONNECTION POSSIBLE FOR ELEMENT THEN SKIP IT\r\nC\r\n      IF (NE(IDX+11) .NE. 0) GO TO 290\r\nC\r\nC     SKIP DUMMY ELEMENTS AND POINT ELEMENTS\r\nC\r\n      IF (NE(IDX+10)-1  .LE. 0) GO TO 290\r\n      IF (NE(IDX+16) .EQ. ILXX) GO TO 290\r\n      CALL LOCATE (*290,X(B1),NE(IDX+4),I)\r\n      NGPEL = NE(IDX+10)\r\n      IF (NGPEL .GT. 32) GO TO 270\r\nC\r\n      CALL WRITE (ECT2,N,1,0)\r\n      CALL WRITE (ECT2,NGPEL,1,0)\r\n  140 CALL READ (*280,*280,ECT1,ELID,1,0,I)\r\nC\r\nC     FIND THIS ELEMENTS POINTER IN THE ECT\r\nC\r\n      DO 150 I = 1,LELE\r\n      IF (ELE(I) .EQ. ELID(1)) GO TO 160\r\n  150 CONTINUE\r\n      CALL MESAGE (-37,0,NAME)\r\n  160 ELID(2) = I\r\nC\r\nC     DETERMINE NUMBER ENTRIES FOR SKIPPING TO GRID ENTRIES\r\nC\r\n      I = NE(IDX+13) - 2\r\n      IF (N .EQ. 52) GO TO 190\r\nC              CHBDY\r\nC\r\n      IF (N.EQ.64 .OR. N.EQ.83) GO TO 240\r\nC           CQUAD4        CTRIA3\r\n      IF (I) 120,180,170\r\nC\r\n  170 CALL FREAD (ECT1,0,-I,0)\r\n  180 CALL FREAD (ECT1,GP,NGPEL,0)\r\n      IF (N .EQ. 34) GO TO 230\r\nC               CBAR\r\nC\r\n      CALL FREAD (ECT1,0,-(NE(IDX+6)-NGPEL-I-1),0)\r\n      GO TO 200\r\nC\r\nC     SPECIAL HANDLING FOR CHBDY\r\nC     IF TYPE IS NEGATIVE, SAVE TYPE FLAG AFTER GRIDS.\r\nC\r\n  190 CALL FREAD (ECT1,0,-1,0)\r\n      CALL FREAD (ECT1,TYPE,1,0)\r\n      CALL FREAD (ECT1,GP,8,0)\r\n      CALL FREAD (ECT1,0,-(NE(IDX+6)-NGPEL-I-1),0)\r\n      IF (TYPE .LT. 0) GO TO 140\r\n      IF (TYPE .EQ. 6) TYPE = 3\r\n      GP(9) = TYPE\r\n      GO TO 220\r\nC\r\nC     SPCIAL HANDLING OF IHEX2 AND IHEX3 WITH ZERO GRIDS\r\nC\r\n  200 IF (N.NE.66 .AND. N.NE.67) GO TO 220\r\n      DO 210 J = 1,NGPEL\r\n      IF (GP(J) .NE. 0) GO TO 210\r\n      K = IHX3(J)\r\n      IF (N .EQ. 66) K = IHX2(J)\r\n      GP(J) = GP(K)\r\n  210 CONTINUE\r\nC\r\n  220 CALL WRITE (ECT2,ELID,2,0)\r\n      CALL WRITE (ECT2,GP,NGPEL,0)\r\n      GO TO 140\r\nC\r\nC     SPECIAL HANDLING OF THOSE ELEMENTS HAVING GRID OFFSET.\r\nC     ADD THESE OFFSET DATA AFTER THE GRID POINTS\r\nC\r\nC     (1) CBAR ELEMENT, 2 OFFSET VECTORS (6 VALUES)\r\nC\r\n  230 CALL WRITE (ECT2,ELID,2,0)\r\n      CALL WRITE (ECT2,GP,NGPEL,0)\r\n      CALL FREAD (ECT1,0,-6,0)\r\n      CALL FREAD (ECT1,OFFSET,6,0)\r\n      CALL WRITE (ECT2,OFFSET,6,0)\r\n      GO TO 140\r\nC\r\nC     (2) CTRIA3 AND CQUAD4 ELEMENTS, ONE OFFSET DATA NORMAL TO PLATE.\r\nC         OFFSET DATA COULD BE ON ELEMENT CARD OR ON PSHELL OR PCOMPI\r\nC         CARDS\r\nC\r\n  240 CALL FREAD (ECT1,PID,1,0)\r\n      CALL FREAD (ECT1,GP,NGPEL,0)\r\n      CALL WRITE (ECT2,ELID,2,0)\r\n      CALL WRITE (ECT2,GP,NGPEL,0)\r\n      J = 5\r\n      IF (N .EQ. 64) J = 6\r\n      CALL FREAD (ECT1,0,-J,0)\r\n      CALL FREAD (ECT1,OFFSET,1,0)\r\n      IF (OFFSET(1) .NE. 0.0) GO TO 260\r\n      IF (JCOMP     .EQ.  B1) GO TO 260\r\n      DO 250 I = JCOMP,KCOMP,2\r\n      IF (IX(I) .NE. PID) GO TO 250\r\n      OFFSET(1) = X(I+1)\r\n      GO TO 260\r\n  250 CONTINUE\r\n  260 CALL WRITE (ECT2,OFFSET,1,0)\r\n      GO TO 140\r\nC\r\nC     ELEMENT TYPE WITH MORE THAN 32 CONNECTIONS\r\nC\r\n  270 ERR(4) = NE(IDX+1)\r\n      ERR(5) = NE(IDX+2)\r\n      CALL WRTPRT (MERR,ERR,M1,NM1)\r\n      CALL SKPREC (ECT1,1)\r\n      GO TO 290\r\nC\r\n  280 CALL WRITE (ECT2,0,0,1)\r\n  290 CONTINUE\r\nC\r\n      CALL CLSTAB (ECT2,REW)\r\n      CALL CLOSE  (ECT1,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/comugv.f",
    "content": "      SUBROUTINE COMUGV\r\nC\r\nC FOR DDAM/EARTHQUAKE ANALYSES, COMBUGV COMBINES DISPLACEMENT\r\nC COMPONENTS BY (1)ADDING THE COMPONENTS IN ABS VALUE AND (2)TAKING THE\r\nC SQUARE ROOT OF THE SUMS OF THE SQUARES. AFTER THIS MODEULE, THE\r\nC TWO OUTPUT DATA BLOCKS ARE N X NMODES, WHEREAS UGV IS N X (NMODES)(L)\r\nC MODULE NRLSUM COMBINES STRESSES ACROSS MODES FOR EACH DIRECTION\r\nC INDIVIDUALLY. THE OUTPUTS OF THIS MODULE HAVE THE DIRECTIONS\r\nC COMBINED. BUT NRLSUM CAN WORK ON THEM (AFTER CASEGEN AND SDR2) BY\r\nC SPECIFYING NDIR=1 IN THE DMAP STATEMENT FOR THOSE MODULES.\r\nC THIS MODULE WILL ALSO COMBINE THE MAXIMUM RESPONSES ACROSS THE MODES\r\nC BY USING SQRSS TO COME UP WITH ONE RESPONSE VECTOR. THEREFORE THIS\r\nC MODULE COMBINES COMPONENTS TO GET MAXIMUM RESPONSES BY ADDING (UGVADD)\r\nC AND BY SQRSS (UGVSQR). THEN IT TAKES EACH OF THESE AND TAKES SQRSS\r\nC ACROSS THE MODES TO GET UGVADC AND UGVSQC, RESPECTIVELY.\r\nC FINALLY, THE MODULE COMPUTES THE NRL SUMS FOR THE L DIRECTIONS\r\nC TO USE CASEGEN,SDR2,ETC. ON UGVADC AND UGVSQC, IN CASEGEN,USE\r\nC LMODES=NDIR=1 IN DMAP STATEMENT. FOR UGVNRL, JUST USE LMODES=1.\r\nC\r\nC COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/V,N,NMODES/V,N,NDIR $\r\nC\r\n      INTEGER BUF1,BUF2,BUF3,UGV,UGVADD,UGVSQR,UGVADC,UGVSQC\r\n      INTEGER UGVNRL\r\n      INTEGER INDB(2),OUDB(2)\r\n      DIMENSION NAM(2),MCB(7),MCB1(7),MCB2(7)\r\n      COMMON/UNPAKX/JOUT,III,NNN,JNCR\r\n      COMMON/PACKX/IIN,IOUT,II,NN,INCR\r\n      COMMON/SYSTEM/IBUF\r\n      COMMON/BLANK/NMODES,NDIR\r\n      COMMON/ZZZZZZ/Z(1)\r\n      DATA UGV,UGVADD,UGVSQR,UGVADC,UGVSQC/101,201,202,203,204/\r\n      DATA UGVNRL/205/\r\n      DATA NAM/4HCOMB,4HUGV /\r\nC\r\nC OPEN CORE AND BUFFERS\r\nC\r\n      LCORE=KORSZ(Z)\r\n      BUF1=LCORE-IBUF+1\r\n      BUF2=BUF1-IBUF\r\n      BUF3=BUF2-IBUF\r\n      LCORE=BUF3-1\r\n      IF(LCORE.LE.0)GO TO 1008\r\n      MCB(1)=UGV\r\n      CALL RDTRL(MCB)\r\n      NCOL=MCB(2)\r\n      NROW=MCB(3)\r\n      IF(NCOL.NE.NMODES*NDIR)GO TO 1007\r\n      IF(LCORE.LT.4*NROW)GO TO 1008\r\n      MCB1(1)=UGVADD\r\n      MCB1(2)=0\r\n      MCB1(3)=NROW\r\n      MCB1(4)=2\r\n      MCB1(5)=1\r\n      MCB1(6)=0\r\n      MCB1(7)=0\r\n      MCB2(1)=UGVSQR\r\n      MCB2(2)=0\r\n      MCB2(3)=NROW\r\n      MCB2(4)=2\r\n      MCB2(5)=1\r\n      MCB2(6)=0\r\n      MCB2(7)=0\r\nC\r\n      JOUT=1\r\n      III=1\r\n      NNN=NROW\r\n      JNCR=1\r\n      IIN=1\r\n      IOUT=1\r\n      II=1\r\n      NN=NROW\r\n      INCR=1\r\nC\r\n      CALL GOPEN(UGV,Z(BUF1),0)\r\n      CALL GOPEN(UGVADD,Z(BUF2),1)\r\n      CALL GOPEN(UGVSQR,Z(BUF3),1)\r\nC\r\nC UNPACK NDIR COLUMNS OF UGV WHICH CORRESPOND TO A SINGLE MODE\r\nC\r\n      NM1=NMODES-1\r\n      ND1=NDIR-1\r\n      DO 120 I=1,NMODES\r\nC\r\nC POINTER TO PROPER MODE IN 1ST DIRECTION\r\nC\r\n      NSKIP=I-1\r\n      IF(NSKIP.EQ.0)GO TO 20\r\n      DO 10 LL=1,NSKIP\r\n      CALL FWDREC (*1002,UGV)\r\n   10 CONTINUE\r\nC\r\nC UNPACK VECTOR\r\nC\r\n   20 CALL UNPACK (*25,UGV,Z(1))\r\n      GO TO 40\r\nC\r\n   25 DO 30 J=1,NROW\r\n   30 Z(J)=0.\r\nC\r\nC SKIP TO NEW DIRECTION, UNPACK, SKIP AND UNAPCK\r\nC\r\n   40 IF(ND1.EQ.0)GO TO 100\r\n      DO 70 J=1,ND1\r\n      IF(NM1.EQ.0)GO TO 50\r\n      DO 45 JJ=1,NM1\r\n      CALL FWDREC (*1002,UGV)\r\n   45 CONTINUE\r\nC\r\n   50 JNROW = J*NROW\r\n      CALL UNPACK (*55,UGV,Z(JNROW+1))\r\n      GO TO 70\r\n   55 DO 60 JJ=1,NROW\r\n   60 Z(J*NROW+JJ)=0.\r\nC\r\n   70 CONTINUE\r\nC\r\nC NOW PERFORM EACH OPERATION AND STORE INTO Z(3*NROW+1)\r\nC\r\n      DO 80 KK=1,NROW\r\n      Z(3*NROW+KK)=ABS(Z(KK))+ABS(Z(NROW+KK))+ABS(Z(2*NROW+KK))\r\n   80 CONTINUE\r\n      CALL PACK(Z(3*NROW+1),UGVADD,MCB1)\r\nC\r\n      DO 90 KK=1,NROW\r\n      Z(3*NROW+KK)=SQRT(Z(KK)**2+Z(NROW+KK)**2+Z(2*NROW+KK)**2)\r\n   90 CONTINUE\r\n      CALL PACK(Z(3*NROW+1),UGVSQR,MCB2)\r\n      GO TO 110\r\nC\r\nC JUST ONE DIRECTION ON UGV- COPY TO DATA BLOCKS\r\nC\r\n  100 CALL PACK(Z(1),UGVADD,MCB1)\r\n      CALL PACK(Z(1),UGVSQR,MCB2)\r\nC\r\nC DONE FOR THIS MODE - GET ANOTHER\r\nC\r\n  110 CALL REWIND(UGV)\r\n      CALL FWDREC (*1002,UGV)\r\nC\r\n  120 CONTINUE\r\nC\r\n      CALL CLOSE(UGVADD,1)\r\n      CALL CLOSE(UGVSQR,1)\r\n      CALL WRTTRL(MCB1)\r\n      CALL WRTTRL(MCB2)\r\nC\r\nC NOW COMPUTE NRL SUMS FOR THE L DIRECTIONS\r\nC\r\n      MCB1(1)=UGVNRL\r\n      MCB1(2)=0\r\n      MCB1(3)=NROW\r\n      MCB1(4)=2\r\n      MCB1(5)=1\r\n      MCB1(6)=0\r\n      MCB1(7)=0\r\n      CALL REWIND(UGV)\r\n      CALL FWDREC (*1002,UGV)\r\n      CALL GOPEN(UGVNRL,Z(BUF2),1)\r\nC\r\n      DO 1240 ND=1,NDIR\r\nC\r\nC SET UP VECTOR OF MAXIMUM DISPLACEMENT COMPONENTS AND VECTOR OF SUMS\r\nC\r\n      DO 1200 I=1,NROW\r\n      Z(I)=0.\r\n 1200 Z(2*NROW+I)=0.\r\nC\r\n      DO 1220 I=1,NMODES\r\nC\r\n      CALL UNPACK (*1220,UGV,Z(NROW+1))\r\nC\r\nC COMPARE TO MAXIMUM COMPONENTS\r\nC\r\n      DO 1210 J=1,NROW\r\n      IF (ABS(Z(NROW+J)).GT.Z(J))Z(J)=ABS(Z(NROW+J))\r\n      Z(2*NROW+J)=Z(2*NROW+J)+Z(NROW+J)**2\r\n 1210 CONTINUE\r\nC\r\nC GET ANOTHER DISPLACEMENT VECTOR CORRESPONDING TO ANOTHER MODE\r\nC\r\n 1220 CONTINUE\r\nC\r\nC SUBTRACT THE MAXIMA FROM THE SUMS\r\nC\r\n      DO 1230 J=1,NROW\r\n      Z(2*NROW+J)=Z(2*NROW+J)-Z(J)**2\r\nC\r\nC TAKE SQUARE ROOT AND ADD IN THE MAXIMA\r\nC\r\n      Z(2*NROW+J)=SQRT(Z(2*NROW+J))+Z(J)\r\n 1230 CONTINUE\r\nC\r\nC PACK RESULTS ANG GET ANOTHER DIRECTION\r\nC\r\n      CALL PACK(Z(2*NROW+1),UGVNRL,MCB1)\r\n 1240 CONTINUE\r\nC\r\n      CALL CLOSE(UGV,1)\r\n      CALL CLOSE(UGVNRL,1)\r\n      CALL WRTTRL(MCB1)\r\nC\r\nC NOW LETS COMBINE RESPONSES OVER THE MODES USING SQRSS. DO FOR BOTH\r\nC UGVADD AND UGVSQR. THE RESULT WILL BE ONE DISLPACEMENT VECTOR.\r\nC (BOTH UGVADD AND UGVSQR ARE N X M ( M= NO. OF MODES)\r\nC\r\n      INDB(1)=UGVADD\r\n      INDB(2)=UGVSQR\r\n      OUDB(1)=UGVADC\r\n      OUDB(2)=UGVSQC\r\nC\r\n      DO 170 I=1,2\r\nC\r\n      MCB(1)=INDB(I)\r\n      CALL RDTRL(MCB)\r\n      NCOL=MCB(2)\r\n      NROW=MCB(3)\r\n      MCB1(1)=OUDB(I)\r\n      MCB1(2)=0\r\n      MCB1(3)=NROW\r\n      MCB1(4)=2\r\n      MCB1(5)=1\r\n      MCB1(6)=0\r\n      MCB1(7)=0\r\n      IF(NCOL.NE.NMODES)GO TO 1007\r\nC\r\n      CALL GOPEN(INDB(I),Z(BUF1),0)\r\n      CALL GOPEN(OUDB(I),Z(BUF2),1)\r\nC\r\n      DO 130 J=1,NROW\r\n  130 Z(J)=0.\r\nC\r\nC UNPACK THE COLUMNS OF INDB AND ACCUMULATE SUMS OF SQUARES\r\nC\r\n      DO 150 J=1,NMODES\r\n      CALL UNPACK (*150,INDB(I),Z(NROW+1))\r\nC\r\n      DO 140 K=1,NROW\r\n  140 Z(K)=Z(K)+Z(NROW+K)**2\r\nC\r\n  150 CONTINUE\r\nC\r\n      DO 160 K=1,NROW\r\n  160 Z(K)=SQRT(Z(K))\r\nC\r\n      CALL PACK(Z(1),OUDB(I),MCB1)\r\nC\r\n      CALL CLOSE(INDB(I),1)\r\n      CALL CLOSE(OUDB(I),1)\r\n      CALL WRTTRL(MCB1)\r\nC\r\n  170 CONTINUE\r\nC\r\n      RETURN\r\nC\r\n 1002 CALL MESAGE(-2,UGV,NAM)\r\n 1007 CALL MESAGE(-7,0,NAM)\r\n 1008 CALL MESAGE(-8,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cone.f",
    "content": "      SUBROUTINE CONE (TI,Z)\r\nC\r\nC     THIS ROUTINE COMPUTES THE THERMAL LOADS ON A AXISYMMETRIC CONE\r\nC\r\n      REAL    I00      ,I10\r\n      REAL    I01      ,I11      ,I21      ,I31      ,I41\r\n      REAL    I02      ,I12      ,I22\r\n      REAL    I03      ,I13      ,I23      ,I33\r\n      REAL    TI(2)    ,Z(1)     ,PA(8)    ,XI(6)    ,ECPT(35)\r\n      REAL    N2D33    ,NSP      ,NCP      ,NSPOPI\r\n      REAL    EHT(96)  ,HUQ(100) ,HYQ(10)\r\n      COMMON /CONDAS/   PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                  S4PISQ\r\n      COMMON /TRIMEX/   MECPT(35)\r\n      COMMON /MATIN /   MATID    ,INFLAG   ,TEMP     ,STRESS   ,SINTH  ,\r\n     1                  COSTH\r\n      COMMON /MATOUT/   G11,G12  ,G13,G22  ,G23,G33  ,RHO,ALPH1,ALPH2  ,\r\n     1                  ALPH3    ,TSUB0    ,GSUBE    ,SIGTEN   ,SIGCOM ,\r\n     2                  SIGSHE   ,G2X211   ,G2X212   ,G2X222\r\n      EQUIVALENCE      (ECPT( 1) ,MECPT(1)),(ECPT( 9), TS    )\r\n      EQUIVALENCE      (ECPT(28) ,RA      ),(ECPT(32), RB    )\r\n      EQUIVALENCE      (ECPT(29) ,ZA      ),(ECPT(33), ZB    )\r\n      EQUIVALENCE      (ECPT( 6) ,MATID2  ),(ECPT( 8), MATID3)\r\n      EQUIVALENCE      (GSHEAR   ,G12     )\r\n      DATA    ONE   /  1.0   /\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC        ECPT  ENTRIES FOR CONE\r\nC\r\nC     ECPT(1)  INTEGER   ELEMENT ID = 1000*ELID + HARMONIC\r\nC     ECPT(2)  INTEGER   SIL  A\r\nC     ECPT(3)  INTEGER   SIL  B\r\nC     ECPT(4)  INTEGER   MAT ID  1\r\nC     ECPT(5)  REAL      T    MEMBRANE THICKNESS\r\nC     ECPT(6)  INTEGER   MAT ID  2\r\nC     ECPT(7)  REAL      MOMENT OF INERTIA\r\nC     ECPT(8)  INTEGER   MAT ID 3\r\nC     ECPT(9)  REAL      SHEAR THICKNESS\r\nC     ECPT(10) REAL      NON -STRUCTRAL  MASS\r\nC     ECPT(11) REAL      Z1\r\nC     ECPT(12) REAL      Z2\r\nC     ECPT(13) REAL      PHI 1\r\nC     ECPT(14) REAL          2\r\nC     ECPT(15) REAL          3\r\nC     ECPT(16) REAL          4\r\nC     ECPT(17) REAL          5\r\nC     ECPT(18) REAL          6\r\nC     ECPT(19) REAL          7\r\nC     ECPT(20) REAL          8\r\nC     ECPT(21) REAL          9\r\nC     ECPT(22) REAL         10\r\nC     ECPT(23) REAL         11\r\nC     ECPT(24) REAL         12\r\nC     ECPT(25) REAL         13\r\nC     ECPT(26) REAL         14\r\nC     ECPT(27) INTEGER   COORDINANT SYSTEM FOR POINT  A\r\nC     ECPT(28) REAL      R   (A)\r\nC     ECPT(29) REAL      Z   (A)\r\nC     ECPT(30) REAL      NULL\r\nC     ECPT(31) INTEGER   COORDINANT SYSTEM FOR POINT B\r\nC     ECPT(32) REAL      R    (B)\r\nC     ECPT(33) REAL      Z    (B)\r\nC     ECPT(34) REAL      NULL\r\nC     ECPT(35) REAL      TEMPERATURE OF MATERIAL\r\nC\r\nC     XL       LENGTH  BETWEEN  POINTS\r\nC     SP       SINE  OF  PHI\r\nC     CP       COSINE OF PHI\r\nC     I-S      INTEGRAL  FROM  PAGE 46 MS,28\r\nC     MATID    MATERIAL ID  (MAT 1 CARD)\r\nC     INFLAG   OPTION  2  OF MAT ROUTINE\r\nC     TEMP     MATERIAL TEMPERATURE\r\nC     SINTH    0.0  DUMMY\r\nC     COSTH    1.0  DUMMY\r\nC     XN       HARMONIC NUMBER\r\nC     PA(8)    TOTAL LOAD VECTOR\r\nC     XI(6)    CYLINDRICAL LOAD\r\nC\r\nC\r\nC     IF MEMBRANE THICKNESS = 0, THEN LOAD IS ZERO\r\nC\r\n      IF (ECPT(5) .EQ. 0.0) GO TO 160\r\nC\r\nC     COMPUTE  L, SINPHI, COSPHI\r\nC\r\n      RBMA = RB - RA\r\n      ZBMA = ZB - ZA\r\n      XL2  = RBMA**2 + ZBMA**2\r\n      XL   = SQRT(XL2)\r\n      IF (XL .EQ. 0.0) GO TO 160\r\n      SP = RBMA/XL\r\n      CP = ZBMA/XL\r\nC\r\nC     COMPUTE  I-S\r\nC\r\n      XL4 = XL2*XL2\r\n      RAV = (RA + RB)*0.5\r\n      I00 = XL *RAV\r\n      I10 = XL2*(RA + 2.0*RB)/6.0\r\n      I01 = XL\r\n      I11 = XL2/2.0\r\n      I21 = XL2*XL/3.0\r\n      I31 = XL4/4.0\r\n      I41 = XL4*XL/5.0\r\nC\r\nC     SET UP FOR MAT ROUTINE\r\nC\r\n      MATID = MECPT(4)\r\n      INFLAG= 2\r\n      TEMP  = ECPT(35)\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      CALL MAT (MECPT(1))\r\nC\r\nC     COMPUTE COEFICCIENTS\r\nC\r\n      F  = (G12*ALPH2 + G22*ALPH1)*ECPT(5)*PI\r\n      FF = (G11*ALPH2 + G12*ALPH1)*ECPT(5)*PI\r\nC\r\nC     COMPUTE  A\r\nC\r\n      A = (TI(1)-TSUB0)*F\r\nC\r\nC     COMPUTE  B\r\nC\r\n      B = (TI(2)-TI(1))/XL*F\r\nC\r\nC     COMPUTE  C\r\nC\r\n      C = (TI(1)-TSUB0)*FF\r\nC\r\nC     COMPUTE  D\r\nC\r\n      D = (TI(2)-TI(1))/XL*FF\r\nC\r\nC     DECODE  N\r\nC\r\n      IXN = MECPT(1)/1000\r\n      XN  = MECPT(1) - IXN*1000 - 1\r\nC\r\nC     COMPUTE  PA\r\nC\r\n      F  = I01*A + I11*B\r\n      FF = I11*A + I21*B\r\n      PA(1) = XN*F\r\n      PA(2) = XN*FF\r\n      PA(3) = SP*F\r\n      PA(4) = SP*FF + I00*C + I10*D\r\n      PA(5) = CP*F\r\n      PA(6) = CP*FF\r\n      PA(7) = CP*(I21*A + I31*B)\r\n      PA(8) = CP*(I31*A + I41*B)\r\nC\r\nC     CHECK HARMONIC NO.  IF(XN = 0.0) DOUBLE PA VECTOR\r\nC\r\n      IF (XN .NE. 0.0) GO TO 30\r\n      DO 20 I = 1,8\r\n   20 PA(I) = 2.0*PA(I)\r\nC\r\nC     OMPUTE TRANSFORMATION MATRIX HUQ. SEE MS-28, PP. 15, 16, 24, 25\r\nC\r\n   30 DO 40 I = 1,100\r\n   40 HUQ(I) = 0.0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 41) = CP/RA\r\n      HUQ( 45) = XN/RA\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = XL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = XL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = XL\r\n      HUQ( 77) = XL2\r\n      HUQ( 78) = HUQ(77)*XL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0*XL\r\n      HUQ( 88) = 3.0*HUQ(77)\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*XL\r\n      HUQ( 95) = XN/RB\r\n      HUQ( 96) = HUQ(95)*XL\r\n      HUQ( 97) = HUQ(95)*XL2\r\n      HUQ( 98) = HUQ(96)*XL2\r\n      HUQ( 99) = ONE\r\n      HUQ(100) = XL\r\nC\r\nC     CHCEK IF HYQ VECTOR NEEDED\r\nC\r\n      IF (MATID2 .EQ.0   .OR. MATID3 .EQ.0  ) GO TO 60\r\n      IF (ECPT(7).EQ.0.0 .OR. ECPT(9).EQ.0.0) GO TO 60\r\nC\r\nC     FORM  (D) = I*(G)\r\nC\r\n      D11 = ECPT(7)*G11\r\n      D12 = ECPT(7)*G12\r\n      D22 = ECPT(7)*G22\r\n      D33 = ECPT(7)*G33\r\nC\r\nC     PICK UP GSHEAR FROM MAT\r\nC\r\n      INFLAG = 1\r\n      MATID  = MATID3\r\n      TEMP   = ECPT(35)\r\n      CALL MAT (MECPT(1))\r\n      IF (GSHEAR .EQ. 0.0) GO TO 60\r\nC\r\nC     COMPUTE INTEGRALS\r\nC\r\n      B  = SP\r\n      B2 = B*B\r\n      B3 = B*B2\r\n      B4 = B*B3\r\n      RLOG = ALOG(RB/RA)\r\n      RASQ = RA*RA\r\n      RBMA2  = RBMA*RAV\r\n      ORBORA = ONE/RB - ONE/RA\r\n      TWORA  = RA + RA\r\nC\r\nC     IF SP = 0 EVALUATE INTEGRALS DIFFERENTLY\r\nC\r\n      IF (SP .NE. 0.0) GO TO 45\r\n      TEMP1= RAV*RAV\r\n      TEMP3= XL2*XL\r\n      I02  = XL/RAV\r\n      I12  = XL2/(2.0*RAV)\r\n      I22  = TEMP3/(3.0*RAV)\r\n      I03  = XL/TEMP1\r\n      I13  = XL2/(2.0*TEMP1)\r\n      I23  = TEMP3/(3.0*TEMP1)\r\n      I33  = (XL2*XL2)/(4.0*TEMP1)\r\n      GO TO 49\r\n   45 CONTINUE\r\n      I02 = RLOG/B\r\n      I12 = (RBMA - RA*RLOG)/B2\r\n      I22 = (RBMA2 - TWORA*RBMA + RASQ*RLOG)/B3\r\n      I03 =-ORBORA/B\r\n      I13 = (RLOG + RA*ORBORA)/B2\r\n      I23 = (RBMA - TWORA*RLOG - RASQ*ORBORA)/B3\r\n      I33 = (RBMA2 - 3.0*RA*RBMA + 3.0*RASQ*RLOG + RASQ*RA*ORBORA)/B4\r\nC\r\nC     COMPUTE HYQ\r\nC\r\n   49 CONTINUE\r\n      CP2 = CP*CP\r\n      SP2 = SP*SP\r\n      XN2 = XN*XN\r\n      OPI = ONE/PI\r\n      N2D33  = XN2*D33\r\n      SP2D22 = SP2*D22\r\n      OQ  = XL*TS*GSHEAR*RAV + I02*(N2D33 + SP2D22)*OPI\r\n      OQ  = ONE/OQ\r\n      NSP = XN*SP\r\n      NCP = XN*CP\r\n      NSPOPI  = NSP*OPI\r\n      TWOD33  = 2.0*D33\r\n      TEMP1   = D12*ORBORA\r\n      TEMP2   = NSPOPI*(D22 + D33)\r\n      TEMP3   = XN*NSPOPI*(TWOD33 + D22)\r\n      TEMP4   = OQ*0.5*N2D33*CP*OPI\r\n      TEMP5   = OPI*(XN2*TWOD33 + SP2D22)\r\n      TEMP6   = D12*XN2*XL2/RB\r\n      TEMP7   = NSPOPI*CP*0.5\r\n      HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33 + 2.0*D22))\r\n      HYQ( 2) = OQ*(NCP*XL/RB*D12 - TEMP7*I13*(3.0*D33 + D22)\r\n     1        + 1.5*NCP*OPI*I02*D33)\r\n      HYQ( 3) = TEMP4*I03\r\n      HYQ( 4) = TEMP4*I13\r\n      HYQ( 5) = OQ*(TEMP1*XN2  -  TEMP3*I03)\r\n      HYQ( 6) = OQ*(D12*XN2*XL/RB - TEMP3*I13 + TEMP5*I02)\r\n      HYQ( 7) = OQ*(2.0*D11*(RA-RB) + TEMP6 + 2.0*I12*TEMP5 - TEMP3*I23)\r\n      HYQ( 8) = OQ*(-D11*6.*XL*RB + TEMP6*XL + 3.*I22*TEMP5 - TEMP3*I33)\r\n      HYQ( 9) =-OQ*TEMP2*I02\r\n      HYQ(10) = OQ*(XN*XL*(D12 + D33) - TEMP2*I12)\r\n      DO 50 I = 1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n   50 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\nC\r\n      ITEST = 1\r\n      GO TO 61\r\n   60 ITEST = 0\r\n      HUQ(41) = 0.0\r\n      HUQ(45) = 0.0\r\n      HUQ(91) = 0.0\r\n      HUQ(92) = 0.0\r\n      HUQ(95) = 0.0\r\n      HUQ(96) = 0.0\r\n      HUQ(97) = 0.0\r\n      HUQ(98) = 0.0\r\n      HUQ(99) = 0.0\r\n   61 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (10,HUQ(1),10,DUM,0,DETERM,ISING,EHT(1))\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,40,MECPT(1))\r\n      IF (ITEST .NE. 0) GO TO 62\r\n      HUQ( 85) = 0.0\r\n      HUQ(100) = 0.0\r\n   62 CONTINUE\r\nC\r\nC     COMPLETE SOLUTION\r\nC\r\nC     FIRST OBTAIN PRODUCTS\r\nC                       T\r\nC        EHAT  =  (E)(H  )      AND STORE AT EHT(1) . . . EHT(48)\r\nC                      A\r\nC\r\nC                       T\r\nC        EHBT  =  (E)(H  )      AND STORE AT EHT(49). . . EHT(96)\r\nC                      B\r\nC                                /\r\nC              WHERE  (HUQ) = (HA/HB)\r\nC                                /\r\nC              AND\r\nC                             0    CP   SP   0    0\r\nC\r\nC                             1    0    0    0    0\r\nC\r\nC                             0    CP  -SP   0    0\r\nC                  E MATRIX =\r\nC                             0    0    0    0    SP\r\nC\r\nC                             0    0    0    1    0\r\nC\r\nC                             0    0    0    0    CP\r\nC\r\n      INC1 = 0\r\n      INC2 = 0\r\n  110 DO 120 I = 1,8\r\n      KROW = I + INC1\r\n      NCOL = (I-1)*10 + INC2\r\n      EHT(KROW   ) = SP*HUQ(NCOL+2) + CP*HUQ(NCOL+3)\r\n      EHT(KROW+ 8) =    HUQ(NCOL+1)\r\n      EHT(KROW+16) = CP*HUQ(NCOL+2) - SP*HUQ(NCOL+3)\r\n      EHT(KROW+24) = SP*HUQ(NCOL+5)\r\n      EHT(KROW+32) =    HUQ(NCOL+4)\r\n  120 EHT(KROW+40) = CP*HUQ(NCOL+5)\r\n      IF (INC1 .GT. 0) GO TO 130\r\n      INC1 = 48\r\n      INC2 = 5\r\n      GO TO 110\r\nC\r\nC     PERFORM TRANSFORMATION OF LOAD VECTOR\r\nC\r\n  130 DO 150 J = 1,2\r\n      CALL GMMATS (EHT(48*J-47),6,8,0,PA(1),8,1,0,XI(1))\r\n      K = MECPT(J+1) - 1\r\n      DO 140 I = 1,6\r\n      K = K + 1\r\n  140 Z(K) = Z(K) + XI(I)\r\n  150 CONTINUE\r\nC\r\n  160 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/conm1d.f",
    "content": "      SUBROUTINE CONM1D\r\nC\r\nC THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS\r\nC MASS MATRIX FOR THE M1 TYPE ELEMENT\r\nC  DOUBLE PRECISION VERSION\r\nC\r\nC\r\nC ECPT NO.  NAME              TYPE   DESCRIPTION\r\nC 1         IELID             I      ELEMENT ID\r\nC 2         IGP               I      GRID POINT NUMBER\r\nC 3         ICIDT2            I      COORDINATE ID FOR T2\r\nC 4         M(1,1)            R\r\nC 5, 6      M(2,1) TO M(2,2)  R\r\nC 7, 8, 9   M(3,1) TO M(3,3)  R      MASS MATRIX VALUES\r\nC 10 TO 13  M(4,1) TO M(4,4)  R\r\nC 14 TO 18  M(5,1) TO M(5,5)  R\r\nC 19 TO 24  M(6,1) TO M(6,6)  R\r\nC 25        ICIDT1            I      COORDINATE ID FOR T1\r\nC 26        X                 R\r\nC 27        Y                 R      TRANSFORMATION MATRIX\r\nC 28        Z                 R\r\nC\r\n      INTEGER DICT(7),ELID,ESTID,IECPT(25)\r\n      DOUBLE PRECISION MM(36),TT(36),T(36),M(21)\r\n      LOGICAL NOGO\r\nC\r\nC\r\n      COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56)\r\nC\r\n      COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO\r\n      COMMON /EMGEST/ ECPT(100)\r\n      COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID\r\nC\r\n      EQUIVALENCE (ECPT(1),IECPT(1),IELID)\r\n      EQUIVALENCE (DICT(5),DICT5)\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 6\r\n      DICT(4) = 63\r\n      DICT5 = 0\r\n      IP = IPREC\r\n      XOF = ECPT(5)\r\n      YOF = ECPT(6)\r\n      ZOF = ECPT(7)\r\n      DO 50 I=1,21\r\n   50 M(I) = ECPT(I+3)\r\nC\r\nC COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE\r\nC TO ZERO THEN FILL IN NON-ZERO TERMS\r\nC\r\n      DO  100 I = 1,36\r\n  100 MM(I)=  0.D0\r\nC\r\n      K = 0\r\n      DO 110 I = 1,6\r\n      DO 110 J = 1,I\r\n      K = K + 1\r\n      JI = (J-1)*6 + I\r\n      IJ = (I-1)*6 + J\r\n      MM(IJ) = M(K)\r\n  110 MM(JI) = M(K)\r\nC\r\n      ICIDT1 = IECPT(25)\r\n      ICIDT2 = IECPT(3)\r\nC\r\nC PERFORM TRANSFORMATIONS.  IF CSIDS 1 AND 2 ARE EQUAL,\r\nC T1 = T2 SO MASS MARRIX IS COMPLETE\r\nC\r\n      IF (ICIDT2 .EQ. ICIDT1) GO TO 240\r\nC                             T\r\nC NOT EQUAL. SO COMPUTE T = (T ) (T )\r\nC                             1    2\r\nC GET T1 AND T2 IF NEEDED\r\n      IT = 18\r\n      IF (ICIDT1 .EQ. 0) GO TO 130\r\nC\r\n      CALL TRANSD(ECPT(25),T(1))\r\n      GO TO 140\r\nC\r\nC ONLY T2 NEEDED SO T = T2\r\nC\r\n  130 IT = 9\r\n  140 IF(ICIDT2 .EQ. 0) GO TO 150\r\n      CALL TRANSD(ECPT(25),T(10))\r\nC\r\n      IF(ICIDT1 .EQ. 0) GO TO 210\r\n      CALL GMMATD (T(1),3,3,1,  T(10),3,3,0, T(19))\r\n      GO TO 210\r\nC\r\nC HERE T2 IS IDENTITY AND T1 IS AT T(1) SO\r\nC T = T1 (TRANSPOSE).  SO INSERT INTO T\r\n  150 DO 170 I = 1,3\r\n      DO 170 J = 1,3\r\n      IJ = 3*(I - 1) + J\r\n      JI = I + 3*(J-1) + 18\r\n  170 T(JI)=T(IJ)\r\nC\r\nC T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX.\r\nC       1    2\r\nC\r\n  210 DO 220 I = 1,36\r\n  220 TT(I)=0.D0\r\nC\r\n      DO 230 I = 1,3\r\n      IJ = I + IT\r\n      TT(I) = T(IJ)\r\n      TT(I + 6) = T(IJ + 3)\r\n      TT(I + 12) = T(IJ + 6)\r\n      TT(I + 21) = T(IJ)\r\n      TT(I + 27) = T(IJ + 3)\r\n  230 TT(I + 33) = T(IJ + 6)\r\nC           T\r\nC FORM T*M*T  AND STORE IN MM\r\nC\r\n      CALL GMMATD (TT(1),6,6,0,  MM(1),6,6,0, T(1))\r\n      CALL GMMATD(T(1),6,6,0, TT(1),6,6,1, MM(1))\r\nC\r\n  240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/conm1s.f",
    "content": "      SUBROUTINE CONM1S\r\nC\r\nC THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS\r\nC MASS MATRIX FOR THE M1 TYPE ELEMENT\r\nC SINGLE PRECISION VERSION\r\nC\r\nC\r\nC ECPT NO.  NAME              TYPE   DESCRIPTION\r\nC 1         IELID             I      ELEMENT ID\r\nC 2         IGP               I      GRID POINT NUMBER\r\nC 3         ICIDT2            I      COORDINATE ID FOR T2\r\nC 4         M(1,1)            R\r\nC 5, 6      M(2,1) TO M(2,2)  R\r\nC 7, 8, 9   M(3,1) TO M(3,3)  R      MASS MATRIX VALUES\r\nC 10 TO 13  M(4,1) TO M(4,4)  R\r\nC 14 TO 18  M(5,1) TO M(5,5)  R\r\nC 19 TO 24  M(6,1) TO M(6,6)  R\r\nC 25        ICIDT1            I      COORDINATE ID FOR T1\r\nC 26        X                 R\r\nC 27        Y                 R      TRANSFORMATION MATRIX\r\nC 28        Z                 R\r\nC\r\n      INTEGER DICT(7),ELID,ESTID,IECPT(25)\r\n      LOGICAL NOGO\r\n      REAL MM(36),TT(36),T(36)\r\n      REAL M(1)\r\nC\r\nC\r\n      COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56)\r\nC\r\n      COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO\r\n      COMMON /EMGEST/ ECPT(100)\r\n      COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID\r\nC\r\n      EQUIVALENCE (ECPT(1),IECPT(1),IELID)\r\n      EQUIVALENCE (ECPT(4),M(1))\r\n      EQUIVALENCE (DICT(5),DICT5),(ECPT(4),MB)\r\n      EQUIVALENCE (ECPT(5),XOF),(YOF,ECPT(6)),(ZOF,ECPT(7))\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 6\r\n      DICT(4) = 63\r\n      DICT5 = 0\r\n      IP = IPREC\r\nC\r\nC COMPUTE NON-TRANSFORMED MASS MATRIX. INITIALIZE\r\nC TO ZERO THEN FILL IN NON-ZERO TERMS\r\nC\r\n      DO  100 I = 1,36\r\n  100  MM(I) = 0.\r\nC\r\n      K = 0\r\n      DO 110 I = 1,6\r\n      DO 110 J = 1,I\r\n      K = K + 1\r\n      JI = (J-1)*6 + I\r\n      IJ = (I-1)*6 + J\r\n      MM(IJ) = M(K)\r\n  110 MM(JI) = M(K)\r\nC\r\n      ICIDT1 = IECPT(25)\r\n      ICIDT2 = IECPT(3)\r\nC\r\nC PERFORM TRANSFORMATIONS.  IF CSIDS 1 AND 2 ARE EQUAL,\r\nC T1 = T2 SO MASS MARRIX IS COMPLETE\r\nC\r\n      IF (ICIDT2 .EQ. ICIDT1) GO TO 240\r\nC                             T\r\nC NOT EQUAL. SO COMPUTE T = (T ) (T )\r\nC                             1    2\r\nC GET T1 AND T2 IF NEEDED\r\n      IT = 18\r\n      IF (ICIDT1 .EQ. 0) GO TO 130\r\nC\r\n      CALL TRANSS (ECPT(25),T(1))\r\n      GO TO 140\r\nC\r\nC ONLY T2 NEEDED SO T = T2\r\nC\r\n  130 IT = 9\r\n  140 IF(ICIDT2 .EQ. 0) GO TO 150\r\n      CALL TRANSS (ECPT(25),T(10))\r\nC\r\n      IF(ICIDT1 .EQ. 0) GO TO 210\r\n      CALL GMMATS (T(1),3,3,1,T(10),3,3,0,T(19))\r\n      GO TO 210\r\nC\r\nC HERE T2 IS IDENTITY AND T1 IS AT T(1) SO\r\nC T = T1 (TRANSPOSE).  SO INSERT INTO T\r\n  150 DO 170 I = 1,3\r\n      DO 170 J = 1,3\r\n      IJ = 3*(I - 1) + J\r\n      JI = I + 3*(J-1) + 18\r\n  170 T(JI)=T(IJ)\r\nC\r\nC T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX.\r\nC       1    2\r\nC\r\n  210 DO 220 I = 1,36\r\n  220 TT(I) = 0.\r\nC\r\n      DO 230 I = 1,3\r\n      IJ = I + IT\r\n      TT(I) = T(IJ)\r\n      TT(I + 6) = T(IJ + 3)\r\n      TT(I + 12) = T(IJ + 6)\r\n      TT(I + 21) = T(IJ)\r\n      TT(I + 27) = T(IJ + 3)\r\n  230 TT(I + 33) = T(IJ + 6)\r\nC           T\r\nC FORM T*M*T  AND STORE IN MM\r\nC\r\n      CALL GMMATS (TT(1),6,6,0,MM(1),6,6,0,T(1))\r\n      CALL GMMATS (T(1),6,6,0,TT(1),6,6,1,MM(1))\r\nC\r\n  240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/conm2d.f",
    "content": "      SUBROUTINE CONM2D\r\nC\r\nC THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS MASS MATRIX\r\nC FOR THE M2 TYPE ELEMENT\r\nC   DOUBLE PRECISION VERSION\r\nC\r\nC ECPTNO  NAME       TYPE  DESCRIPTION\r\nC ******  ****       ****  ***********\r\nC\r\nC   1     IELID      I     ELEMENT ID\r\nC   2     IGP        I     GRID POINT NUMBER\r\nC   3     ICIDT2     I     COORDINATE SYSTEM ID FOR T2\r\nC   4     MASS       R     LUMPED MASS\r\nC   5     OFFSET(1)  R\r\nC   6     OFFSET(2)  R     X,Y, AND Z COORDINATES OF THE\r\nC   7     OFFSET(3)  R     OFFSET\r\nC   8     MMI(1,1)   R\r\nC   9     MMI(2,1)   R     MASS MOMENTS OF INERTIA\r\nC  10     MMI(2,2)   R\r\nC  11     MMI(3,1)   R\r\nC  12     MMI(3,2)   R\r\nC  13     MMI(3,3)   R\r\nC  14     ICIDT1     I     COORDINATE SYSTEM ID FOR T1\r\nC  15     X          R\r\nC  16     Y          R\r\nC  17     Z          R\r\nC\r\n      INTEGER DICT(11), ELID, ESTID, IECPT(14)\r\n      DOUBLE PRECISION MM(36),TT(36),T(36),MB,XOF,YOF,ZOF,INER(6)\r\nC\r\n      COMMON /SYSTEM/ SS,IOUTPT,KSYSTM(56)\r\nC\r\n      COMMON /EMGEST/ ECPT(100)\r\nC\r\n      COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID\r\nC\r\n      COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO\r\nC\r\n      EQUIVALENCE (ECPT(1),IECPT(1),IELID)\r\n      EQUIVALENCE (DICT(5),DICT5)\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 6\r\n      DICT(4) = 63\r\n      DICT(5) = 0\r\n      IP = IPREC\r\nC\r\nC  MOVE VARIABLES TO DOUBLE PRECISION LOCATIONS\r\nC\r\n      MB = ECPT(4)\r\n      DO 50 I= 1,6\r\n  50  INER(I)= ECPT(I+7)\r\nC\r\nC COMPUTE NON-TRANSFORMED MASS MATRIX.  INITIALIZE TO ZERO\r\nC THEN FILL IN NON-ZERO TERMS\r\nC\r\n      DO 100 I=1,36\r\n  100 MM(I) = 0.\r\nC\r\n      ICIDT2 = IECPT(3)\r\n      IF (ICIDT2 .GE. 0) GO TO 120\r\n      ICIDT2 = 0\r\n      DO 110 I = 1,3\r\n  110 ECPT (I+4) = ECPT(I+4) - ECPT(I+14)\r\nC\r\n  120 XOF = ECPT(5)\r\n      YOF = ECPT(6)\r\n      ZOF = ECPT(7)\r\n      MM(1) = MB\r\n      MM(5) = MB*ZOF\r\n      MM(6) = -MB*YOF\r\n      MM(8) = MB\r\n      MM(10) = -MM(5)\r\n      MM(12) = MB*XOF\r\n      MM(15) = MB\r\n      MM(16) = -MM(6)\r\n      MM(17) = -MM(12)\r\n      MM(20) = MM(10)\r\n      MM(21) = MM(16)\r\n      X2 = XOF**2\r\n      Y2 = YOF**2\r\n      Z2 = ZOF**2\r\n      MM(22) = INER(1) + (Y2 + Z2)*MB\r\n      MM(23) = -INER(2) + MM(6)*XOF\r\n      MM(24) =  -INER(4)+MM(10)*XOF\r\n      MM(25) = MM(5)\r\n      MM(27) = MM(17)\r\n      MM(28) = MM(23)\r\n      MM(29) = INER(3) + (X2 + Z2)*MB\r\n      MM(30) = -INER(5) + MM(6)*ZOF\r\n      MM(31) = MM(6)\r\n      MM(32) = MM(12)\r\n      MM(34) = MM(24)\r\n      MM(35) = MM(30)\r\n      MM(36) = INER(6) + (X2 + Y2)*MB\r\nC\r\n      ICIDT1 = IECPT(14)\r\nC\r\nC PERFORM TRANSFORMATIONS.  IF CSIDS 1 AND 2 ARE EQUAL,\r\nC T1 = T2 SO MASS MATRIX IS COMPLETE\r\nC\r\n      IF (ICIDT2 .EQ. ICIDT1) GO TO 240\r\nC                            T\r\nC NOT EQUAL SO COMPUTE T = (T )(T )\r\nC                            1   2\r\nC GET T1 AND T2 IF NEEDED\r\n      IT = 18\r\n      IF (ICIDT1 .EQ. 0) GO TO 130\r\nC\r\n      CALL TRANSD (ECPT(14),T(1))\r\n      GO TO 140\r\nC ONLY T2 NEEDED SO T = T2\r\n  130 IT = 9\r\n  140 IF (ICIDT2 .EQ. 0) GO TO 150\r\n      ITEMP = IECPT(14)\r\n      IECPT(14) = ICIDT2\r\n      CALL TRANSD (ECPT(14),T(10))\r\n      IECPT(14) = ITEMP\r\nC\r\n      IF(ICIDT1 .EQ. 0) GO TO 210\r\n      CALL GMMATD (T(1),3,3,2, T(10),3,3,0, T(19))\r\n      GO TO 210\r\nC\r\nC HERE T2 IS IDENTITY AND T1 IS AT T(1) SO\r\nC T = T1 (TRANSPOSE).  SO INSERT INTO T\r\n  150 DO 170 I = 1,3\r\n      DO 170 J = 1,3\r\n      IJ = 3*(I-1) + J\r\n      JI = I + 3*(J-1) + 18\r\n170   T(JI) = T(IJ)\r\nC\r\nC T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX.\r\nC       1    2\r\nC\r\n  210 DO 220 I = 1,36\r\n  220 TT(I) = 0.\r\nC\r\n      DO 230 I = 1,3\r\n      IJ = I + IT\r\n      TT(I) = T(IJ)\r\n      TT(I + 6) = T(IJ + 3)\r\n      TT(I + 12) = T(IJ + 6)\r\n      TT(I + 21) = T(IJ)\r\n      TT(I + 27) = T(IJ + 3)\r\n  230 TT(I + 33) = T(IJ + 6)\r\nC           T\r\nC FORM T*M*T  AND STORE IN MM\r\nC\r\n      CALL GMMATD (TT(1),6,6,0, MM(1),6,6,0, T(1))\r\n      CALL GMMATD (T(1),6,6,0, TT(1),6,6,1, MM(1))\r\nC\r\n  240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/conm2s.f",
    "content": "      SUBROUTINE CONM2S\r\nC\r\nC THIS SUBROUTINE COMPUTES THE CONCENTRATED MASS ELEMENTS MASS MATRIX\r\nC FOR THE M2 TYPE ELEMENT\r\nC SINGLE PRECISION VERSION\r\nC\r\nC ECPTNO  NAME       TYPE  DESCRIPTION\r\nC ******  ****       ****  ***********\r\nC\r\nC   1     IELID      I     ELEMENT ID\r\nC   2     IGP        I     GRID POINT NUMBER\r\nC   3     ICIDT2     I     COORDINATE SYSTEM ID FOR T2\r\nC   4     MASS       R     LUMPED MASS\r\nC   5     OFFSET(1)  R\r\nC   6     OFFSET(2)  R     X,Y, AND Z COORDINATES OF THE\r\nC   7     OFFSET(3)  R     OFFSET\r\nC   8     MMI(1,1)   R\r\nC   9     MMI(2,1)   R     MASS MOMENTS OF INERTIA\r\nC  10     MMI(2,2)   R\r\nC  11     MMI(3,1)   R\r\nC  12     MMI(3,2)   R\r\nC  13     MMI(3,3)   R\r\nC  14     ICIDT1     I     COORDINATE SYSTEM ID FOR T1\r\nC  15     X          R\r\nC  16     Y          R\r\nC  17     Z          R\r\nC\r\n      INTEGER DICT(11), ELID, ESTID, IECPT(14)\r\n      REAL MM(36),TT(36),T(36)\r\n      REAL MB, INER(6)\r\nC\r\nC\r\n      COMMON /EMGEST/ ECPT(100)\r\nC\r\n      COMMON /EMGDIC/ DMM(2),NLOCS,ELID,ESTID\r\nC\r\n      COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO\r\nC\r\n      EQUIVALENCE (ECPT(1),IECPT(1),IELID)\r\n      EQUIVALENCE (DICT(5),DICT5), (ECPT(4),MB)\r\n      EQUIVALENCE (ECPT(5),XOF),(ECPT(6),YOF),(ECPT(7),ZOF)\r\n      EQUIVALENCE (INER(1),ECPT(8))\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 6\r\n      DICT(4) = 63\r\n      DICT(5) = 0\r\n      IP = IPREC\r\nC\r\nC COMPUTE NON-TRANSFORMED MASS MATRIX.  INITIALIZE TO ZERO\r\nC THEN FILL IN NON-ZERO TERMS\r\nC\r\n      DO 100 I=1,36\r\n  100 MM(I) = 0.\r\nC\r\n      ICIDT2 = IECPT(3)\r\n      IF (ICIDT2 .GE. 0) GO TO 120\r\n      ICIDT2 = 0\r\n      DO 110 I = 1,3\r\n  110 ECPT (I+4) = ECPT(I+4) - ECPT(I+14)\r\nC\r\n  120 MM(1) = MB\r\n      MM(5) = MB*ZOF\r\n      MM(6) = -MB*YOF\r\n      MM(8) = MB\r\n      MM(10) = -MM(5)\r\n      MM(12) = MB*XOF\r\n      MM(15) = MB\r\n      MM(16) = -MM(6)\r\n      MM(17) = -MM(12)\r\n      MM(20) = MM(10)\r\n      MM(21) = MM(16)\r\n      X2 = XOF**2\r\n      Y2 = YOF**2\r\n      Z2 = ZOF**2\r\n      MM(22) = INER(1) + (Y2 + Z2)*MB\r\n      MM(23) = -INER(2) + MM(6)*XOF\r\n      MM(24) =  -INER(4)+MM(10)*XOF\r\n      MM(25) = MM(5)\r\n      MM(27) = MM(17)\r\n      MM(28) = MM(23)\r\n      MM(29) = INER(3) + (X2 + Z2)*MB\r\n      MM(30) = -INER(5) + MM(6)*ZOF\r\n      MM(31) = MM(6)\r\n      MM(32) = MM(12)\r\n      MM(34) = MM(24)\r\n      MM(35) = MM(30)\r\n      MM(36) = INER(6) + (X2 + Y2)*MB\r\nC\r\n      ICIDT1 = IECPT(14)\r\nC\r\nC PERFORM TRANSFORMATIONS.  IF CSIDS 1 AND 2 ARE EQUAL,\r\nC T1 = T2 SO MASS MATRIX IS COMPLETE\r\nC\r\n      IF (ICIDT2 .EQ. ICIDT1) GO TO 240\r\nC                            T\r\nC NOT EQUAL SO COMPUTE T = (T )(T )\r\nC                            1   2\r\nC GET T1 AND T2 IF NEEDED\r\n      IT = 18\r\n      IF (ICIDT1 .EQ. 0) GO TO 130\r\nC\r\n      CALL TRANSS (ECPT(14),T(1))\r\n      GO TO 140\r\nC ONLY T2 NEEDED SO T = T2\r\n  130 IT = 9\r\n  140 IF (ICIDT2 .EQ. 0) GO TO 150\r\n      ITEMP = IECPT(14)\r\n      IECPT(14) = ICIDT2\r\n      CALL TRANSS (ECPT(14),T(10))\r\n      IECPT(14) = ITEMP\r\nC\r\n      IF(ICIDT1 .EQ. 0) GO TO 210\r\n      CALL GMMATS (T(1),3,3,2,T(10),3,3,0,T(19))\r\n      GO TO 210\r\nC\r\nC HERE T2 IS IDENTITY AND T1 IS AT T(1) SO\r\nC T = T1 (TRANSPOSE).  SO INSERT INTO T\r\n  150 DO 170 I = 1,3\r\n      DO 170 J = 1,3\r\n      IJ = 3*(I-1) + J\r\n      JI = I + 3*(J-1) + 18\r\n170   T(JI) = T(IJ)\r\nC\r\nC T = (T ) (T ) IS COMPLETE. INSERT IT IN THE 6X6 TRANSFORMATION MATRIX.\r\nC       1    2\r\nC\r\n  210 DO 220 I = 1,36\r\n  220 TT(I) = 0.\r\nC\r\n      DO 230 I = 1,3\r\n      IJ = I + IT\r\n      TT(I) = T(IJ)\r\n      TT(I + 6) = T(IJ + 3)\r\n      TT(I + 12) = T(IJ + 6)\r\n      TT(I + 21) = T(IJ)\r\n      TT(I + 27) = T(IJ + 3)\r\n  230 TT(I + 33) = T(IJ + 6)\r\nC           T\r\nC FORM T*M*T  AND STORE IN MM\r\nC\r\n      CALL GMMATS (TT(1),6,6,0,MM(1),6,6,0,T(1))\r\n      CALL GMMATS (T(1),6,6,0,TT(1),6,6,1,MM(1))\r\nC\r\n  240 CALL EMGOUT (MM,MM,36,1,DICT,2,IP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/conmsg.f",
    "content": "      SUBROUTINE CONMSG (MESAGE, NWORDS, IDUMMY)\r\nC\r\n      INTEGER FCHAR\r\n      REAL INCTIM, MODTIM \r\n      CHARACTER   CTIME*8,AHEAD*41,MCHNAM*11,MACHOS*7\r\nC\r\n      DIMENSION MESAGE(1)\r\n      DIMENSION ICRDAT(3)\r\n      DIMENSION IDATE(3), ITIME(3)\r\nC\r\n      COMMON /CHMACH/ MCHNAM, MACHOS\r\n      COMMON /LOGOUT/ LOUT\r\n      COMMON /SYSTEM/ ISYSTM(175)\r\nC\r\n      EQUIVALENCE (ISYSTM( 15), IDATE(1)),\r\n     *            (ISYSTM( 18), CPUSTR),\r\n     *            (ISYSTM( 42), ICRDAT),\r\n     *            (ISYSTM( 75), CPUTIM),\r\n     *            (ISYSTM(151), NLLOG ),\r\n     *            (ISYSTM(152), LOGLIN),\r\n     *            (ISYSTM(159), LOGPAG),\r\n     *            (ISYSTM(160), OLDCPU)\r\nC\r\n      DATA IDSMS,IWRTT,IAUDT,IMPYA /4HDSMS, 4HWRTT, 4HAUDT, 4HMPYA/\r\n      DATA MODTIM /0.0/\r\n      DATA IDASH /4H----/\r\nC\r\nC   ASSEMBLE PAGE HEADING\r\nC\r\n      AHEAD = ' '\r\n      NCMNAM = INDEX(MCHNAM,' ') - 1\r\n      IF (NCMNAM .LE. -1) NCMNAM = 11\r\n      NCMOS  = INDEX(MACHOS,' ') - 1\r\n      IF (NCMOS .LE. -1) NCMOS = 7\r\n      FCHAR = (18 - NCMNAM - NCMOS) + 1\r\n      AHEAD(FCHAR:FCHAR+6)='LOG OF '\r\n      FCHAR = FCHAR + 7\r\n      WRITE (AHEAD(FCHAR:FCHAR+1),15) ICRDAT(3)\r\n   15 FORMAT (A2)\r\n      FCHAR = FCHAR + 3\r\n      AHEAD(FCHAR:41) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) //\r\n     1 ' NASTRAN JOB'\r\nC\r\n      IMODTM = 0\r\n      IF (IDUMMY.EQ.111111 .OR. IDUMMY.EQ.222222)\r\n     *    IMODTM = IDUMMY/111111\r\n      IF (LOGLIN.LT.NLLOG.AND.LOGLIN.GT.0) GO TO 300\r\n      IF (LOGLIN.EQ.0) WRITE (LOUT, 2000) IDATE, AHEAD\r\n      IF (LOGLIN.EQ.0) WRITE (LOUT, 2055)\r\n      IF (MESAGE(1).EQ.IDSMS.AND.NWORDS.EQ.1) RETURN\r\n      IF (MESAGE(1).EQ.IWRTT.AND.NWORDS.EQ.1) RETURN\r\n      IF (MESAGE(1).EQ.IAUDT.AND.NWORDS.EQ.1) RETURN\r\n      IF (MESAGE(1).EQ.IMPYA.AND.NWORDS.EQ.1) RETURN\r\n  300 CALL NASTIM (ITIME(1), ITIME(2), ITIME(3), CPUTMM)\r\n      WRITE (CTIME,2056) ITIME\r\n 2056 FORMAT (2( I2,':'),I2)\r\n      IF (CTIME(4:4) .EQ. ' ') CTIME(4:4) = '0'\r\n      IF (CTIME(7:7) .EQ. ' ') CTIME(7:7) = '0'\r\n      CPUTMM = CPUTMM + OLDCPU - CPUSTR\r\n      INCTIM = CPUTMM - CPUTIM\r\n      IF (CPUTIM.EQ.0.0) INCTIM = 0.0\r\n      IF (IMODTM.EQ.1) MODTIM = 0.0\r\n      IF (IMODTM.EQ.2) MODTIM = CPUTMM - MODTIM\r\n      MWORDS = MIN0 (NWORDS, 15)\r\n      IF (IMODTM.NE.2) WRITE (LOUT, 2100) CTIME, CPUTMM, INCTIM,\r\n     *                         (MESAGE(I), I = 1, MWORDS)\r\n      IF (IMODTM.EQ.2) WRITE (LOUT, 2110) CTIME, CPUTMM, INCTIM,\r\n     *                 MODTIM, (MESAGE(I), I = 1, MWORDS)\r\n      LOGLIN = LOGLIN + 1\r\n      CPUTIM = CPUTMM\r\n      IF (IMODTM.EQ.1) MODTIM = CPUTMM\r\n      RETURN\r\nC\r\n 2000 FORMAT (1H1,  77(1H*)/\r\n     *        1X , 1H*,  75X, 1H*/\r\n     *        1X , 1H*, 7X, 'DATE ', 2(I2, '/'), I2,\r\n     *                   7X, A41, 7X, 1H*/\r\n     *        1X , 1H*,  75X, 1H*/\r\n     *        1X ,  77(1H*)/)\r\n 2055 FORMAT (1X, 2X, 'WALL', 10X,\r\n     *                'TOTAL', 7X,\r\n     *                'INCREMENTAL', 6X,\r\n     *                'MODULE', 14X,\r\n     *                'MODULE/'/\r\n     *        1X, 2X, 'CLOCK', 10X,\r\n     *                'CPU', 12X,\r\n     *                'CPU', 12X,\r\n     *                'CPU', 13X,\r\n     *                'SUBROUTINE'/\r\n     *        1X, 2X, 'TIME', 9X,\r\n     *                'SECONDS', 8X,\r\n     *                'SECONDS', 8X,\r\n     *                'SECONDS', 13X,\r\n     *                'STATUS'//\r\n     *        1X,  78(1H-)/)\r\n 2100 FORMAT (1X, A8,\r\n     *                 4X, F10.3,  5X, F10.3, 15X,\r\n     *                             5X, A4, 2X, 2A4, 2X, 12A4)\r\n 2110 FORMAT (1X, A8,\r\n     *                 4X, F10.3,  5X, F10.3,  5X, F10.3,\r\n     *                             5X, A4, 2X, 2A4, 2X, 12A4)\r\n      END\r\n"
  },
  {
    "path": "mis/contor.f",
    "content": "      SUBROUTINE CONTOR (GPLST,X,U,DD,Z,IZ,PPEN,DEFORM,B1,OPCOR)\r\nC\r\n      INTEGER         OPCOR,IZ(1),GPLST(1),PPEN,PEN,DEFORM,PARM,EST,\r\n     1                STRESS,SORT,SCR1,BUFSIZ,B1,B2,B3,ELID,ERR,SUB(2),\r\n     2                COLOR,ELMID,GPTS(12),PEDGE,ESYM,OFFSET\r\n      REAL            XB(8),X(3,1),DD(3,1),U(2,1),CENTER,RCNTRL,RCOLOR\r\n      DIMENSION       LABL(50),Z(1),IBEGIN(2),PT(8)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / SKIP(10),PARM,SKP4,EST,SKP8(11),STRESS,SORT,\r\n     1                NEWOES,SCR1\r\n      COMMON /XXPARM/ SKIP2(157),NCNTR,CNTR(50),ICNTVL,SKIP6(5),ISET,\r\n     1                SK18(18),COLOR,LAYER\r\n      COMMON /PLTDAT/ SKIP3(2),XMIN\r\n      COMMON /SYSTEM/ BUFSIZ,NOUT\r\n      COMMON /DRWDAT/ JSET,SKIP7(14),PEDGE\r\n      EQUIVALENCE     (IBEGIN(1),LINES),(IBEGIN(2),IGDPT)\r\n      DATA    KBAR  , KT3,KQ4/ 2HBR,2HT3,2HQ4 /\r\n      DATA    SUB   / 4HCONT , 4HOR           /\r\nC\r\n      B2  = B1 - 2*BUFSIZ\r\n      B3  = B2 - BUFSIZ\r\n      LOPCOR  = OPCOR/5\r\n      ID  = 1\r\n      ERR = 0\r\n      IRR = 0\r\n      NCNTR = IABS(NCNTR)\r\nC\r\nC     COLOR = 0 IS NO COLOR CONTOUR,\r\nC     COLOR = 1 TO  31 IS DRAW CONTOUR LINES IN COLOR.\r\nC     COLOR =-1 TO -31 ID COLOR FILL ELEMENTS BY STRESS\r\nC\r\nC     THIS IS THE CODE FOR THE COLOR BAR SCALE\r\nC     AT THE TOP OF THE PLOT\r\nC\r\n      IF (COLOR .EQ. 0) GO TO 40\r\n      CALL LINE (0.0,0.0,0.0,0.0,32,-1)\r\n      ICOLOR = IABS(COLOR)\r\n      RCOLOR = 535.0/ICOLOR\r\nC              535.0 IS BASED ON 1000X1000 PLOT SCREEN COORDINATE FRAME\r\n      DO 30 IB = 1,ICOLOR\r\n      PEN   = IB + 31\r\n      XB(1) = 368.14 + RCOLOR*(IB-1)\r\n      XB(2) = 959.67\r\n      XB(3) = XB(1) + RCOLOR\r\n      XB(4) = XB(2)\r\n      XB(5) = XB(3)\r\n      XB(6) = 977.51\r\n      XB(7) = XB(1)\r\n      XB(8) = XB(6)\r\n      IK    = 0\r\n      IK1   = 1\r\n      IK2   = 2\r\n      IK3   = 3\r\n      IK4   = 4\r\n      DO 20 II = 1,4\r\n      IK1 = IK1 + IK\r\n      IK2 = IK2 + IK\r\n      IK3 = IK3 + IK\r\n      IK4 = IK4 + IK\r\n      IK  = 2\r\n      IF (II .EQ. 4) PEN = 0\r\n      IF (II .NE. 4) GO TO 10\r\n      IK1 = 7\r\n      IK2 = 8\r\n      IK3 = 1\r\n      IK4 = 2\r\n   10 CALL LINE (XB(IK1),XB(IK2),XB(IK3),XB(IK4),PEN,0)\r\n   20 CONTINUE\r\n   30 CONTINUE\r\n      CALL LINE (0.0,0.0,0.0,0.0,PEN,+1)\r\n   40 ISAV = LOPCOR + ID\r\n      IVAL = LOPCOR + ISAV\r\n      ICEN = LOPCOR + IVAL\r\n      LOPCOR= LOPCOR- 1\r\n      PEN = PPEN\r\n      IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14 .AND. PEDGE.NE.1) GO TO 50\r\n      CALL CLOSE (PARM,2)\r\n      IF (ICNTVL.LE.9 .OR. ICNTVL.GT.13) CALL CREATE (GPLST,X,U,DEFORM,\r\n     1    CONMIN,CONMAX,Z(IVAL),Z(ICEN),LOPCOR,B1,B2)\r\n      IF (ISET .NE. JSET) CALL ORDER (GPLST,Z(IVAL),Z(ISAV),Z(ICEN),\r\n     1    Z(ID),LOPCOR,B1,B2,B3)\r\n      ISET = JSET\r\n   50 IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14)\r\n     1    CALL DISPLA (GPLST,X,U,DD,PEN,DEFORM,LABL,PT,B1)\r\n      IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14) GO TO 420\r\n      IF (CONMIN .EQ. CONMAX) GO TO 470\r\n      IF (COLOR .LT. 0) CALL CLOSE (EST,2)\r\n      CALL GOPEN (SCR1,GPLST(B1),1)\r\n      CALL CLOSE (SCR1,2)\r\n      CALL GOPEN (SORT,GPLST(B2),2)\r\n      CALL GOPEN (STRESS,GPLST(B1),0)\r\nC\r\nC     BUFFERS ASSIGNEMENT HERE -\r\nC     B1 IS USED BY STRESS (SCRATCH1/301), AND BY SCR1 (SCRATCH4/304)\r\nC     FOR SHORT PERIODS OF TIME ONLY\r\nC     B2 IS USED BY SORT (SCRATCH2/302)\r\nC     B3 IS USED BY EST (ELEST/103) AND BY SCR1 (SCRATCH4/304)\r\nC\r\n      NCNTR = MIN0(NCNTR,50)\r\n      IF (CNTR(1) .NE. CNTR(2)) GO TO 90\r\nC\r\nC     IF INTERVALS SPECIFIED, DEFINE CONTOUR VALUES\r\nC\r\n      DELTA = (CONMAX-CONMIN)/FLOAT(NCNTR-1)\r\n      CNTR(1) = CONMIN\r\n      J = NCNTR - 1\r\n      DO 80 I = 2,J\r\n      CNTR(I) = CNTR(I-1) + DELTA\r\n   80 CONTINUE\r\n      CNTR(NCNTR) = CONMAX\r\n   90 CALL LINE (0.,0.,0.,0.,PEN,-1)\r\n      DO 100 I = 1,NCNTR\r\n  100 LABL(I) = 3\r\nC\r\nC     READ AND STORE CONTOUR VALUES AND CENTROIDS\r\nC\r\n      ELID   = 0\r\n      LOPCOX = LOPCOR + 1\r\n      DO 110 I = 1,LOPCOX\r\n      IS = ISAV + I - 1\r\n      IZ(IS) = 0\r\n  110 CONTINUE\r\n      IF (COLOR .GE. 0) GO TO 130\r\n      CALL GOPEN (EST,GPLST(B3),2)\r\n      CALL BCKREC (EST)\r\n      IMHERE = 120\r\n  120 CALL READ (*280,*270,EST,ESYM,1,0,M)\r\n      IRR = 0\r\n      CALL FREAD (EST,NGPPE,1,0)\r\n  130 CALL FWDREC (*415,SORT)\r\n  140 CALL READ (*415,*415,SORT,IFLAG,1,0,M)\r\n      IF (IFLAG .EQ.  0) GO TO 415\r\n      IF (IFLAG .EQ. -2) GO TO 130\r\n      CALL FREAD (SORT,IBEGIN,2,0)\r\n      CALL READ  (*415,*150,SORT,IZ(ID),LINES,1,I)\r\n  150 IREAD = 0\r\n      NEL = 0\r\n      DO 170 I = 1,LINES\r\n      IC = ICEN + 2*(I-1)\r\n      IV = IVAL + I - 1\r\n      ID1= ID   + I - 1\r\n      IS = ISAV + I - 1\r\n      DO 160 J = 1,LOPCOR\r\n      JS = ISAV + J - 1\r\n      JV = IVAL + J - 1\r\n      JC = ICEN + 2*(J-1)\r\n      IF (IZ(JS)  .EQ. 0)  GO TO 170\r\n      IF (IZ(ID1) .NE. IZ(JS)) GO TO 160\r\n      Z(IV  ) = Z(JV)\r\n      Z(IC  ) = Z(JC)\r\n      Z(IC+1) = Z(JC+1)\r\n      IZ(IS ) = IZ(ID1)\r\n      NEL = NEL + 1\r\n      GO TO 170\r\n  160 CONTINUE\r\n  170 CONTINUE\r\n      IF (ELID .GT. 0) GO TO 190\r\n  180 CALL READ (*290,*290,STRESS,ESSYM,1,0,M)\r\n  190 CALL READ (*290,*180,STRESS,ELID,1,0,M)\r\n      IF (ELID .EQ. 0) GO TO 180\r\n      CALL FREAD (STRESS,V,1,0)\r\n      CALL FREAD (STRESS,PT,2,0)\r\n      DO 250 I = 1,LINES\r\n      ID1 = ID  + I - 1\r\n      IS = ISAV + I - 1\r\n      IV = IVAL + I - 1\r\n      IC = ICEN + 2*I - 2\r\n      IF (IZ(ID1) .NE. ELID) GO TO 250\r\n      IF (IZ(IS)  .EQ. ELID) GO TO 250\r\n      Z(IV  ) = V\r\n      Z(IC  ) = PT(1)\r\n      Z(IC+1) = PT(2)\r\n      IZ(IS ) = ELID\r\n      IF (COLOR .GE. 0) GO TO 240\r\n      IMHERE = 200\r\n      ASSIGN 206 TO IRTN\r\n  195 JRR = 0\r\n  200 OFFSET = 0\r\n      IF (ESYM .EQ. KBAR) OFFSET = 6\r\n      IF (ESYM.EQ.KT3 .OR. ESYM.EQ.KQ4) OFFSET = 1\r\n  201 CALL READ (*204,*205,EST,ELMID,1,0,M)\r\n      IF (ELMID .EQ. 0) GO TO 203\r\n      CALL FREAD (EST,0,-1,0)\r\n      CALL FREAD (EST,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (EST,0,-OFFSET,0)\r\n      IF (ELMID .EQ. ELID) GO TO 210\r\n      GO TO 201\r\nC\r\n  203 JRR = JRR + 1\r\n      IF (JRR .LE. 1) CALL BCKREC (EST)\r\n      IMHERE = 203\r\n      ASSIGN 120 TO IRTN\r\n      CALL READ (*204,*204,EST,ESYM,1,0,M)\r\n      CALL FREAD (EST,NGPPE,1,0)\r\n      GO TO 200\r\nC\r\n  204 ERR = ERR + 1\r\n      IF (ERR .GT. 3) GO TO 285\r\n      CALL REWIND (EST)\r\n      CALL SKPREC (EST,1)\r\n      GO TO IRTN, (120,205,206)\r\nC\r\n  205 IMHERE = 205\r\n      ASSIGN 205 TO IRTN\r\n  206 CALL READ (*204,*205,EST,ESYM,1,0,M)\r\n      CALL FREAD (EST,NGPPE,1,0)\r\n      GO TO 195\r\nC\r\nC     START TO CONTOUR FILL HERE\r\nC\r\n  210 RCOLOR = ICOLOR\r\n      RCNTRL = NCNTR\r\n      DO 230 IK = 1,NCNTR\r\n      PEN = 32 + (1.0-(RCNTRL-IK+1)/RCNTRL)*RCOLOR\r\n      IK1 = IK + 1\r\n      IF (IK .EQ. NCNTR) IK1 = IK\r\n      IF (V.LT.CNTR(IK) .OR. V.GT.CNTR(IK1)) GO TO 230\r\n      DO 220 J = 1,NGPPE\r\n      K  = J + 1\r\n      IG = GPTS(J)\r\n      IG = IABS(GPLST(IG))\r\n      IF (J .EQ. NGPPE) K = 1\r\n      IG1 = GPTS(K)\r\n      IG1 = IABS(GPLST(IG1))\r\n      IF (J .EQ. NGPPE) PEN = 0\r\n      CALL LINE (X(2,IG),X(3,IG),X(2,IG1),X(3,IG1),PEN,0)\r\n  220 CONTINUE\r\n      GO TO 240\r\n  230 CONTINUE\r\n  240 NEL = NEL + 1\r\n      GO TO 260\r\n  250 CONTINUE\r\n  260 IF (NEL .GE. LINES) GO TO 300\r\n      GO TO 190\r\nC\r\n  270 CALL BCKREC (EST)\r\n      IRR = IRR + 1\r\n      IF (IRR .LT. 3) GO TO 120\r\nC\r\nC     END OF FILE ON EST\r\nC\r\n  280 ERR = ERR + 1\r\n      IF (ERR .GT. 3) GO TO 285\r\n      CALL REWIND (EST)\r\n      CALL SKPREC (EST,1)\r\n      GO TO 120\r\n  285 WRITE  (NOUT,286) UIM,ELID,IMHERE,ERR,IRR,NGPPE\r\n  286 FORMAT (A29,', CONTOUR FAILED TO LOCATE ELMENT ID =',I8, /5X,\r\n     2        'IMHERE =',I5, 5X,'ERR,IRR,NGPPE =',3I8)\r\n      GO TO 190\r\nC\r\nC     END OF FILE ON STRESS\r\nC\r\n  290 CALL REWIND (STRESS)\r\n      CALL FWDREC (*415,STRESS)\r\n      IF (IREAD .EQ. 1) GO TO 140\r\n      IREAD = 1\r\n      GO TO 180\r\nC\r\nC     END DATA SEARCH\r\nC\r\n  300 L  = LINES\r\n      IS = LINES + ISAV\r\n      IZ(IS) = 0\r\n      IF (LINES .GT. 3) GO TO 310\r\n      XMID   = Z(ICEN+4)\r\n      YMID   = Z(ICEN+5)\r\n      CENVAL = Z(IVAL+2)\r\n      L = 1\r\n      GO TO 350\r\n  310 IG = IABS(GPLST(IGDPT))\r\n      IF (DEFORM .NE. 0) GO TO 320\r\n      XMID = X(2,IG)\r\n      YMID = X(3,IG)\r\n      GO TO 330\r\n  320 XMID = U(1,IG)\r\n      YMID = U(2,IG)\r\n  330 SUM1 = 0.0\r\n      SUM2 = 0.0\r\n      DO 340 I = 1,LINES\r\n      IV = IVAL + I - 1\r\n      IC = ICEN + 2*I - 2\r\n      S  = SQRT((XMID-Z(IC))**2 + (YMID-Z(IC+1))**2)\r\n      SUM1 = SUM1 + Z(IV) * S\r\n  340 SUM2 = SUM2 + S\r\n      CENVAL = SUM1/SUM2\r\n  350 IV = IVAL + LINES\r\n      IC = ICEN + 2*LINES\r\n      Z(IV  ) = Z(IVAL)\r\n      Z(IC  ) = Z(ICEN)\r\n      Z(IC+1) = Z(ICEN+1)\r\nC\r\nC     PLOT CONTOURS.\r\nC\r\n      IF (COLOR .LT. 0) GO TO 140\r\n      RCOLOR = ICOLOR\r\n      RCNTRL = NCNTR\r\nC\r\n      CALL CLOSE (EST,2)\r\n      CALL GOPEN (SCR1,GPLST(B3),3)\r\nC\r\n      DO 410 I = 1,NCNTR\r\n      IF (COLOR .NE. 0) PEN = 1 + (1.0-(RCNTRL-I+1)/RCNTRL)*RCOLOR\r\n      DO 400 J = 1,L\r\n      PT(1) = XMIN - 1.0\r\n      PT(3) = PT(1)\r\n      PT(5) = PT(1)\r\n      JC    = ICEN + 2*J - 2\r\n      JV    = IVAL + J - 1\r\n      D     = (Z(JV) - Z(JV+1))\r\n      IF (ABS(Z(JV)-CNTR(I)).GT.ABS(D) .OR. ABS(Z(JV+1)-CNTR(I))\r\n     1    .GT.ABS(D)) GO TO 360\r\n      IF (D .EQ. 0.0) D = 1.0\r\n      PT(1) = Z(JC  ) + (Z(JC+2)-Z(JC  ))*(Z(JV)-CNTR(I))/D\r\n      PT(2) = Z(JC+1) + (Z(JC+3)-Z(JC+1))*(Z(JV)-CNTR(I))/D\r\n  360 D = Z(JV+1) - CENVAL\r\n      IF (ABS(Z(JV+1)-CNTR(I)).GT.ABS(D) .OR. ABS(CENVAL-CNTR(I))\r\n     1    .GT.ABS(D)) GO TO 370\r\n      IF (D .EQ. 0.0) D = 1.0\r\n      PT(3) = Z(JC+2) + (XMID-Z(JC+2))*(Z(JV+1)-CNTR(I))/D\r\n      PT(4) = Z(JC+3) + (YMID-Z(JC+3))*(Z(JV+1)-CNTR(I))/D\r\n  370 D = CENVAL - Z(JV)\r\n      IF (ABS(CENVAL-CNTR(I)).GT.ABS(D) .OR.\r\n     1   ABS(Z(JV)-CNTR(I)) .GT. ABS(D)) GO TO 380\r\n      IF (D .EQ. 0.0) D = 1.0\r\n      PT(5) = XMID + (Z(JC  )-XMID)*(CENVAL-CNTR(I))/D\r\n      PT(6) = YMID + (Z(JC+1)-YMID)*(CENVAL-CNTR(I))/D\r\n  380 PT(7) = PT(1)\r\n      PT(8) = PT(2)\r\n      DO 390 K = 1,5,2\r\n      IF (PT(K).LT.XMIN .OR. PT(K+2).LT.XMIN) GO TO 390\r\n      CALL LINE (PT(K),PT(K+1),PT(K+2),PT(K+3),PEN,0)\r\n      LABL(I) = LABL(I) + 1\r\n      IF (LABL(I) .NE. 4) GO TO 390\r\n      LABL(I) = 0\r\n      CALL WRITE (SCR1,I,1,0)\r\n      CALL WRITE (SCR1,PT(K),2,0)\r\n  390 CONTINUE\r\n  400 CONTINUE\r\n  410 CONTINUE\r\nC\r\n      CALL CLOSE (SCR1,2)\r\n      CALL GOPEN (EST,GPLST(B3),2)\r\n      GO TO 140\r\nC\r\n  415 CALL CLOSE (SORT,1)\r\n      CALL CLOSE (STRESS,1)\r\n      CALL CLOSE (SCR1,1)\r\nC     IF (COLOR .LT. 0) CALL CLOSE (EST,1)\r\nC     IF (COLOR .GE. 0) CALL GOPEN (EST,GPLST(B3),2)\r\n  420 CALL LINE (0.,0.,0.,0.,PEN,+1)\r\n      IF (COLOR .EQ. 0) GO TO 430\r\n      CALL TYPFLT (0.0,0.0,0,0,0,-1)\r\n      CALL TYPFLT (368.14,990.0,1,CNTR(1),-8,0)\r\n      CENTER = (CNTR(1)+CNTR(NCNTR))/2.0\r\n      CALL TYPFLT (585.90,990.0,1,CENTER,-8,0)\r\n      CALL TYPFLT (796.3,990.0,1,CNTR(NCNTR),-8,0)\r\n      CALL TYPFLT (0.0,0.0,0,0,0,+1)\r\n      IF (COLOR .LT. 0) GO TO 460\r\n  430 CALL GOPEN (SCR1,GPLST(B1),0)\r\n      IF (COLOR .EQ. 0) CALL TYPINT (0.,0.,0,0,0,-1)\r\n  440 CALL READ (*450,*450,SCR1,I,1,0,M)\r\n      CALL FREAD (SCR1,PT,2,0)\r\n      IF (COLOR .EQ. 0) CALL TYPINT (PT(1),PT(2),1,I,1,0)\r\n      GO TO 440\r\n  450 IF (COLOR .EQ. 0) CALL TYPINT (0.,0.,0,0,0,+1)\r\n      CALL CLOSE (SCR1,1)\r\n  460 CALL PLTOPR\r\n  470 IF ((ICNTVL.GT.9 .AND. ICNTVL.LT.14) .AND. PEDGE.NE.1) RETURN\r\n      CALL GOPEN (PARM,GPLST(B2),2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/copy.f",
    "content": "      SUBROUTINE COPY\r\nC\r\nC     COPY  INPUT /OUTPUT/ PARAM $\r\nC\r\nC     THIS UTILITY MODULE GENERATES A PHYSICAL COPY OF THE INPUT DATA\r\nC     BLOCK IF THE VALUE OF PARAM IS LESS THAN ZERO (DEFAULT IS -1).\r\nC     THE OUTPUT DATA BLOCK CARRIES THE INPUT DATA BLOCK NAME IN THE\r\nC     HEADER RECORD.\r\nC     IF PARAM IS SET TO ZERO, THE OUTPUT DATA BLOCK WILL HAVE ITS OWN\r\nC     NAME IN THE OUTPUT FILE HEADER RECORD.  (IMPLEMENTED IN JUNE 84)\r\nC\r\nC\r\n      INTEGER         MODNAM(2),SYSBUF,OUTPUT,ITRL(7),IN(15),OUT(15)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / IPARAM\r\n      COMMON /XFIST / IFIST(1)\r\n      COMMON /XFIAT / IFIAT(1)\r\n      DATA    INPUT / 101 /, OUTPUT / 201 /, MODNAM / 4HCOPY,4H    /\r\nC\r\nC     RETURN IF IPARAM NOT GREATER THAN ZERO\r\nC\r\n      IF (IPARAM .EQ. 0) IPARAM = -1111\r\n      IF (IPARAM .GE. 0) RETURN\r\nC\r\nC     COMPUTE OPEN CORE AND INITIALIZE GINO BUFFERS\r\nC\r\n      NZWD = KORSZ(Z(1))\r\n      IF (NZWD .LE. 0) CALL MESAGE (-8,0,MODNAM)\r\n      IBUF1 = NZWD  - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      LCORE = IBUF2 - 1\r\n      IF (LCORE .LE. 0) CALL MESAGE (-8,0,MODNAM)\r\nC\r\nC     OPEN INPUT AND OUTPUT DATA BLOCKS\r\nC\r\n      IN(1)   = INPUT\r\n      OUT(1)  = OUTPUT\r\n      ITRL(1) = 101\r\n      CALL RDTRL (ITRL)\r\n      CALL OPEN  (*1001,INPUT,Z(IBUF1),0)\r\n      CALL OPEN  (*1002,OUTPUT,Z(IBUF2),1)\r\n      CALL CPYFIL (IN,OUT,Z(1),LCORE,ICOUNT)\r\n      CALL CLOSE (OUTPUT,1)\r\n      CALL CLOSE (INPUT,1)\r\n      ITRL(1) = 201\r\n      CALL WRTTRL (ITRL)\r\n      RETURN\r\nC\r\n 1001 CALL MESAGE (-1,INPUT,MODNAM)\r\n 1002 CALL MESAGE (-1,OUTPUT,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cpyfil.f",
    "content": "      SUBROUTINE CPYFIL (INFILE,OUFILE,AREA,N,COUNT)\r\nC\r\nC     CPYFIL COPIES RECORDS FROM INFILE TO OUFILE UNTIL AN END-OF-FILE\r\nC     ON INFILE IS ENCOUNTERED. AN END-OF-FILE IS NOT WRITTEN ON OUFILE.\r\nC     RECTYPE IS CALLED PRIOR TO COPYING EACH RECORD. STRING RECORDS ARE\r\nC     COPIED USING CPYSTR. NORMAL RECORDS ARE COPIED USING READ/WRITE.\r\nC     UPON EXIT, INFILE IS POSITIONED IMMEDIATELY AFTER THE END-OF-FILE\r\nC     AND OUFILE IS POSITIONED AFTER THE LAST RECORD WRITTEN.\r\nC\r\nC     THIS ROUTINE DOES NOT OPEN NOR CLOSE ANY FILE, NOR WRITE ANY\r\nC     MATRIX TRAILER\r\nC\r\n      INTEGER        AREA(2),INBLK(15),OUBLK(15),OUFILE,TYPE,EOR,COUNT\r\n      COMMON /BLANK/ IPARAM\r\nC\r\nC     INITIALIZE STRING COMMUNICATION BLOCKS AND DETERMINE RECORD TYPE\r\nC\r\n      INBLK(1) = INFILE\r\n      OUBLK(1) = OUFILE\r\n      COUNT    = 0\r\n   10 CALL RECTYP (INFILE,TYPE)\r\n      IF (TYPE .NE. 0) GO TO 50\r\nC\r\nC     COPY NORMAL RECORD\r\nC\r\n   20 EOR  = 1\r\n      CALL READ (*60,*30,INFILE,AREA,N,0,NWDS)\r\n      EOR  = 0\r\n      NWDS = N\r\n   30 IF (COUNT.NE.0 .OR. IPARAM.NE.-1111) GO TO 40\r\n      CALL FNAME (INFILE,AREA(NWDS+1))\r\n      IF (AREA(NWDS+1).EQ.AREA(1) .AND. AREA(NWDS+2).EQ.AREA(2))\r\n     1   CALL FNAME (OUFILE,AREA)\r\n   40 CALL WRITE (OUFILE,AREA,NWDS,EOR)\r\n      COUNT = COUNT + NWDS\r\n      IF (EOR) 10,20,10\r\nC\r\nC     COPY STRING RECORDS\r\nC\r\n   50 CALL CPYSTR (INBLK,OUBLK,0,0)\r\n      COUNT = COUNT + OUBLK(13)\r\n      GO TO 10\r\nC\r\nC     RETURN WHEN END-OF-FILE IS ENCOUNTERED\r\nC\r\n   60 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cpystr.f",
    "content": "      SUBROUTINE CPYSTR (INBLK,OUTBLK,FLAG,COL)\r\nC\r\nC     CPYSTR COPIES A LOGICAL RECORD WRITTEN IN STRING FORMAT\r\nC     FROM ONE FILE TO ANOTHER FILE.\r\nC\r\nC     INBLK  = 15-WORD STRING COMMUNICATION BLOCK FOR INPUT FILE\r\nC     OUTBLK = 15-WORD STRING COMMUNICATION BLOCK FOR OUTPUT FILE\r\nC     FLAG .NE. 0 MEANS 1ST CALL GETSTR HAS BEEN MADE FOR THE RECORD\r\nC          .EQ. 0 MEANS 1ST CALL GETSTR HAS NOT BEEN MADE\r\nC     COL .EQ. 0 MEANS COLUMN NUMBER IS IN INBLK(12)\r\nC         .NE. 0 MEANS COL IS COLUMN NUMBER\r\nC\r\nC\r\n      INTEGER          INBLK(15),OUTBLK(15),FLAG,PRC,WORDS,RLCMPX,TYPE,\r\n     1                 PREC,RC,OUT,COL\r\n      DOUBLE PRECISION XND(1)\r\n      COMMON /ZZZZZZ/  XNS(1)\r\n      COMMON /TYPE  /  PRC(2),WORDS(4),RLCMPX(4)\r\n      EQUIVALENCE      (XNS(1),XND(1))\r\nC\r\nC     ON OPTION, MAKE 1ST CALL TO GETSTR AND THEN INITIALIZE\r\nC\r\n      IF (FLAG .NE. 0) GO TO 10\r\n      INBLK(8) = -1\r\n      CALL GETSTR (*50,INBLK)\r\n   10 OUTBLK(2) = INBLK(2)\r\n      OUTBLK(3) = INBLK(3)\r\n      OUTBLK(4) = INBLK(4)\r\n      OUTBLK(8) = -1\r\n      OUTBLK(12) = COL\r\n      IF (COL .EQ. 0) OUTBLK(12) = INBLK(12)\r\n      OUTBLK(13)= 0\r\n      TYPE = INBLK(2)\r\n      PREC = PRC(TYPE)\r\n      RC   = RLCMPX(TYPE)\r\nC\r\nC     COPY A STRING\r\nC\r\n   12 CALL PUTSTR (OUTBLK)\r\n      NPREV = 0\r\n      OUTBLK(7) = MIN0(INBLK(6),OUTBLK(6))\r\n   14 IN   = INBLK(5)\r\n      OUT  = OUTBLK(5)\r\n      NSTR = OUT + RC*(OUTBLK(7) - NPREV) - 1\r\n      IF (PREC .EQ. 2) GO TO 18\r\nC\r\n      DO 16 JOUT = OUT,NSTR\r\n      XNS(JOUT) = XNS(IN)\r\n      IN = IN + 1\r\n   16 CONTINUE\r\n      GO TO 20\r\nC\r\n   18 DO 19 JOUT = OUT,NSTR\r\n      XND(JOUT) = XND(IN)\r\n      IN = IN + 1\r\n   19 CONTINUE\r\nC\r\nC     TEST FOR END OF INPUT STRING(S)\r\nC\r\n   20 IF (OUTBLK(7) .EQ. INBLK(6)+NPREV) GO TO 30\r\n      OUTBLK(13) = OUTBLK(13) + OUTBLK(7)\r\n      CALL ENDPUT (OUTBLK)\r\n      OUTBLK(4) = OUTBLK(4) + OUTBLK(7)\r\n      INBLK(6)  = INBLK(6)  - (OUTBLK(7) - NPREV)\r\n      INBLK(5)  = IN\r\n      GO TO 12\r\nC\r\nC     INPUT STRING HAS BEEN COPIED.  GET ANOTHER STRING.\r\nC\r\n   30 CALL ENDGET (INBLK)\r\n      CALL GETSTR (*40,INBLK)\r\nC\r\nC     TEST FOR STRING CONTIGUOUS WITH PREVIOUS STRING.\r\nC     IF SO, AND IF TERMS AVAILABLE, CONCATENATE WITH PREVIOUS STRING.\r\nC\r\n      IF (INBLK(4) .NE. OUTBLK(4)+OUTBLK(7)) GO TO 35\r\n      IF (OUTBLK(7).GE. OUTBLK(6)) GO TO 35\r\n      OUTBLK(5) = NSTR + 1\r\n      NPREV     = OUTBLK(7)\r\n      OUTBLK(7) = MIN0(OUTBLK(7)+INBLK(6),OUTBLK(6))\r\n      GO TO 14\r\n   35 OUTBLK(13) = OUTBLK(13) + OUTBLK(7)\r\n      CALL ENDPUT (OUTBLK)\r\n      OUTBLK(4) = INBLK(4)\r\n      GO TO 12\r\nC\r\nC     NO MORE STRINGS -  CLOSE RECORD AND RETURN\r\nC\r\n   40 OUTBLK(8) = 1\r\n      CALL ENDPUT (OUTBLK)\r\n      OUTBLK(13) = (OUTBLK(13)+OUTBLK(7))*WORDS(TYPE)\r\n      RETURN\r\nC\r\nC     HERE IF NO STRINGS IN RECORD - MAKE A NULL RECORD\r\nC\r\n   50 OUTBLK(2) = 1\r\n      OUTBLK(3) = 0\r\n      OUTBLK(8) = -1\r\n      CALL PUTSTR (OUTBLK)\r\n      OUTBLK(8) = 1\r\n      CALL ENDPUT (OUTBLK)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/crdrd.f",
    "content": "      SUBROUTINE CRDRD (*,*,MU,INDCOM,N23)\r\nC\r\nC     WRITE THE RIGID ROD ELEMENT ON THE RG FILE\r\nC\r\nC     EXTERNAL        ORF    ,LSHIFT\r\nC     INTEGER         ORF    ,LSHIFT\r\n      INTEGER         GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1   ,\r\n     1                BUF(20),MASK16 ,GPOINT ,Z      ,MCODE(2)\r\n      REAL            INDTFM(9),DEPTFM(9),RODCOS(3),IDRCOS(3),\r\n     1                DDRCOS(3),DZ(1),XD     ,YD     ,ZD     ,\r\n     2                RLNGTH ,CDEP   ,RZ(1)\r\n      COMMON /MACHIN/ MAC    ,IHALF  ,JHALF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /GP4FIL/ GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1\r\n      COMMON /GP4PRM/ BUF    ,BUF1   ,BUF2   ,BUF3   ,BUF4   ,\r\n     1                KNKL1  ,MASK16 ,NOGO   ,GPOINT ,KN\r\n      EQUIVALENCE     (Z(1)  ,DZ(1)  ,RZ(1))\r\nC\r\nC     INDTFM = INDEPENDENT GRID POINT TRANSFORMATION MATRIX\r\nC     DEPTFM = DEPENDENT GRID POINT TRANSFORMATION MATRIX\r\nC     RODCOS = BASIC COSINES OF ROD ELEMENT\r\nC     IDRCOS = DIRECTION COSINES OF INDEPENDENT GRID POINT\r\nC     DDRCOS = DIRECTION COSINES OF DEPENDENT GRID POINT\r\nC\r\n      MASK15 = JHALF/2\r\nC\r\nC     OBTAIN TRANSFORMATION MATRIX\r\nC\r\n      IF (Z(KNKL1+3) .EQ. 0) GO TO 50\r\n      DO 10 I = 1,4\r\n      BUF(I) = Z(KNKL1+2+I)\r\n   10 CONTINUE\r\n      CALL TRANSS (BUF,INDTFM)\r\n   50 IF (Z(KNKL1+10) .EQ. 0) GO TO 70\r\n      DO 60 I = 1,4\r\n      BUF(I) = Z(KNKL1+9+I)\r\n   60 CONTINUE\r\n      CALL TRANSS (BUF,DEPTFM)\r\nC\r\nC     COMPUTE THE LENGTH OF THE RIGID ROD ELEMENT\r\nC\r\n   70 XD = RZ(KNKL1+11) - RZ(KNKL1+4)\r\n      YD = RZ(KNKL1+12) - RZ(KNKL1+5)\r\n      ZD = RZ(KNKL1+13) - RZ(KNKL1+6)\r\nC\r\nC     CHECK TO SEE IF LENGTH OF ROD IS ZERO\r\nC\r\n      IF (XD.EQ.0.0 .AND. YD.EQ.0.0 .AND. ZD.EQ.0.0) RETURN 1\r\n      RLNGTH = SQRT(XD*XD + YD*YD + ZD*ZD)\r\nC\r\nC     COMPUTE THE BASIC DIRECTION COSINES OF THE RIGID ROD ELEMENT\r\nC\r\n      RODCOS(1) = XD/RLNGTH\r\n      RODCOS(2) = YD/RLNGTH\r\n      RODCOS(3) = ZD/RLNGTH\r\nC\r\nC     OBTAIN THE DIRECTION COSINES ASSOCIATED WITH\r\nC     THE INDEPENDENT GRID POINT\r\nC\r\n      IF (Z(KNKL1+3) .NE. 0) GO TO 100\r\n      DO 80 I = 1,3\r\n      IDRCOS(I) = RODCOS(I)\r\n   80 CONTINUE\r\n      GO TO 200\r\n  100 CALL GMMATS (RODCOS,1,3,0, INDTFM,3,3,0, IDRCOS)\r\nC\r\nC     OBTAIN THE DIRECTION COSINES ASSOCIATED WITH\r\nC     THE DEPENDENT GRID POINT\r\nC\r\n  200 IF (Z(KNKL1+10) .NE. 0) GO TO 300\r\n      DO 250 I = 1,3\r\n      DDRCOS(I) = RODCOS(I)\r\n  250 CONTINUE\r\n      GO TO 400\r\n  300 CALL GMMATS (RODCOS,1,3,0, DEPTFM,3,3,0, DDRCOS)\r\nC\r\nC     DETERMINE THE DEPENDENT SIL AND THE CORRESPONDING COEFFICIENT\r\nC\r\n  400 DO 500 I = 1,3\r\n      IF (INDCOM .NE. I) GO TO 500\r\n      IDEP = Z(KNKL1+6+I)\r\n      CDEP = RODCOS(I)\r\n      GO TO 600\r\n  500 CONTINUE\r\nC\r\nC     CHECK TO SEE IF RIGID ROD IS PROPERLY DEFINED\r\nC\r\n  600 IF (ABS(CDEP) .LT. 0.0) RETURN 2\r\n      MCODE(2) = IDEP\r\n      IF (IDEP .GT. MASK15) N23 = 3\r\n      DO 700 I = 1,3\r\n      MCODE(1) = Z(KNKL1+I-1)\r\n      IF (MCODE(1) .GT. MASK15) N23 = 3\r\n      COEFF = -IDRCOS(I)/CDEP\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      MCODE(1) = Z(KNKL1+6+I)\r\n      IF (MCODE(1) .GT. MASK15) N23 = 3\r\n      COEFF = DDRCOS(I)/CDEP\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  700 CONTINUE\r\n      Z(MU) = IDEP\r\n      MU = MU - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/crdrd2.f",
    "content": "      SUBROUTINE CRDRD2 (*,*,MU,INDCOM,N23)\r\nC\r\nC     WRITE THE RIGID ROD ELEMENT ON THE RG FILE\r\nC\r\nC     EXTERNAL          ORF    ,LSHIFT\r\nC     INTEGER           ORF\r\n      INTEGER           GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1   ,\r\n     1                  BUF(20),MASK16 ,GPOINT ,Z(1)   ,MCODE(2)\r\n      REAL              RZ(1)\r\n      DOUBLE PRECISION  INDTFM(9),DEPTFM(9),RODCOS(3),IDRCOS(3),\r\n     1                  DDRCOS(3),\r\n     2                  DZ(1)  ,XD     ,YD     ,ZD     ,RLNGTH ,CDEP\r\n      COMMON /ZZZZZZ/   Z\r\n      COMMON /GP4FIL/   GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1\r\n      COMMON /GP4PRM/   BUF    ,BUF1   ,BUF2   ,BUF3   ,BUF4   ,KNKL1  ,\r\n     1                  MASK16 ,NOGO   ,GPOINT ,KN\r\n      EQUIVALENCE       (Z(1)  ,DZ(1)) ,(Z(1)  ,RZ(1))\r\n      DATA              MASK15 /32767/\r\nC\r\nC     INDTFM = INDEPENDENT GRID POINT TRANSFORMATION MATRIX\r\nC     DEPTFM = DEPENDENT GRID POINT TRANSFORMATION MATRIX\r\nC     RODCOS = BASIC COSINES OF ROD ELEMENT\r\nC     IDRCOS = DIRECTION COSINES OF INDEPENDENT GRID POINT\r\nC     DDRCOS = DIRECTION COSINES OF DEPENDENT GRID POINT\r\nC\r\nC     OBTAIN TRANSFORMATION MATRIX\r\nC\r\n      IF (Z(KNKL1+3) .EQ. 0) GO TO 50\r\n      DO 10 I = 1,4\r\n      BUF(I) = Z(KNKL1+2+I)\r\n   10 CONTINUE\r\n      CALL TRANSD (BUF,INDTFM)\r\n   50 IF (Z(KNKL1+10) .EQ. 0) GO TO 70\r\n      DO 60 I = 1,4\r\n      BUF(I) = Z(KNKL1+9+I)\r\n   60 CONTINUE\r\n      CALL TRANSD (BUF,DEPTFM)\r\nC\r\nC     COMPUTE THE LENGTH OF THE RIGID ROD ELEMENT\r\nC\r\n   70 XD = RZ(KNKL1+11) - RZ(KNKL1+4)\r\n      YD = RZ(KNKL1+12) - RZ(KNKL1+5)\r\n      ZD = RZ(KNKL1+13) - RZ(KNKL1+6)\r\nC\r\nC     CHECK TO SEE IF LENGTH OF ROD IS ZERO\r\nC\r\n      IF (XD.EQ.0.0D0 .AND. YD.EQ.0.0D0 .AND. ZD.EQ.0.0D0) RETURN 1\r\n      RLNGTH = DSQRT(XD*XD + YD*YD + ZD*ZD)\r\nC\r\nC     COMPUTE THE BASIC DIRECTION COSINES OF THE RIGID ROD ELEMENT\r\nC\r\n      RODCOS (1) = XD/RLNGTH\r\n      RODCOS (2) = YD/RLNGTH\r\n      RODCOS (3) = ZD/RLNGTH\r\nC\r\nC     OBTAIN THE DIRECTION COSINES ASSOCIATED WITH\r\nC     THE INDEPENDENT GRID POINT\r\nC\r\n      IF (Z(KNKL1+3) .NE. 0) GO TO 100\r\n      DO 80 I = 1,3\r\n      IDRCOS(I) = RODCOS(I)\r\n   80 CONTINUE\r\n      GO TO 200\r\n  100 CALL GMMATD (RODCOS,1,3,0,INDTFM,3,3,0,IDRCOS)\r\nC\r\nC     OBTAIN THE DIRECTION COSINES ASSOCIATED WITH\r\nC     THE DEPENDENT GRID POINT\r\nC\r\n  200 IF (Z(KNKL1+10) .NE. 0) GO TO 300\r\n      DO 250 I = 1,3\r\n      DDRCOS(I) = RODCOS(I)\r\n  250 CONTINUE\r\n      GO TO 400\r\n  300 CALL GMMATD (RODCOS,1,3,0,DEPTFM,3,3,0,DDRCOS)\r\nC\r\nC     DETERMINE THE DEPENDENT SIL AND THE CORRESPONDING COEFFICIENT\r\nC\r\n  400 DO 500 I = 1,3\r\n      IF (INDCOM .NE. I) GO TO 500\r\n      IDEP = Z(KNKL1+6+I)\r\n      CDEP = RODCOS(I)\r\n      GO TO 600\r\n  500 CONTINUE\r\nC\r\nC     CHECK TO SEE IF RIGID ROD IS PROPERLY DEFINED\r\nC\r\n  600 IF (DABS(CDEP) .LT. 0.001D0) RETURN 2\r\n      MCODE(2) = IDEP\r\n      IF (IDEP .GT. MASK15) N23 = 3\r\n      DO 700 I = 1, 3\r\n      MCODE(1) = Z(KNKL1+I-1)\r\n      IF (MCODE(1) .GT. MASK15) N23 = 3\r\n      COEFF = -IDRCOS(I)/CDEP\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      MCODE(1) = Z(KNKL1+6+I)\r\n      IF (MCODE(1) .GT. MASK15) N23 = 3\r\n      COEFF = DDRCOS(I)/CDEP\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  700 CONTINUE\r\n      Z(MU) = IDEP\r\n      MU = MU - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/create.f",
    "content": "      SUBROUTINE CREATE (GPLST,X,U,DEFORM,CONMIN,CONMAX,ELMTID,STORE,\r\n     1                   LCOR,B1,B2)\r\nC\r\n      INTEGER         GPLST(1),DEFORM,LAYER,IDUMMY(2),EST,PRNT,SCR1,\r\n     1                OES1,STRESS,B1,B2,WHERE,DIRECT,SUB,ESTSYM(7),\r\n     2                SKIPWD(20),ELID,ESYM,GPTS(12),ELMTID(100),\r\n     3                MSG1(20),ERR(2),OFFSET\r\n      REAL            X(3,1),U(2,1),STORE(202)\r\n      DIMENSION       ISYM(14),ITYPE(14),PT(2,5),THIRD(2),C(2,4),\r\n     1                CENTRD(2)\r\n      COMMON /BLANK / SKIP(12),EST,SKIP1(7),PRNT,SKI(2),OES1,SCR1,SCR2,\r\n     1                NEW\r\n      COMMON /XXPARM/ SKIP4(157),NCNTR,CNTR(50),ICNTVL,WHERE,DIRECT,SUB,\r\n     1                FLAG,VALUE,SKP20(20),LAYER\r\n      EQUIVALENCE     (NEW,NEWOES), (KQ4,ISYM(13)), (KT3,ISYM(14))\r\n      DATA   NTYPES / 14  /\r\n      DATA   ISYM   / 2HSH,2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1,\r\n     1                2HM1,2HM2,2HQ4,2HT3/,    KBAR/2HBR/\r\n      DATA   ITYPE  / 4, 6, 7, 8, 9, 15, 16, 17, 18, 19, 62, 63, 64, 83/\r\n      DATA   ESTSYM / 7*0 /\r\n      DATA   SKIPWD /-5,-6,-7,-1,-2,-3,-4,-5,-6,4*0,0,-1,-2,-5,-6,-7,0 /\r\n      DATA   NMSG1  , MSG1/20,4H(48H,4H NO ,4HSTRE,4HSS C,4HALCU,4HLATI,\r\n     1       4HON F , 4HOUND,4H FOR,4H ELE,4HMENT,4H NUM,4HBER ,4H,I8,,\r\n     2       4H19H  , 4H- EL,4HEMEN,4HT IG,4HNORE,4HD.)                /\r\nC\r\n      TWOPI  = 8.0*ATAN(1.0)\r\n      IRDEST = 0\r\n      CALL GOPEN (SCR1,GPLST(B1),1)\r\n      STRESS = OES1\r\n      IF ((ICNTVL.GE.4 .AND. ICNTVL.LE.9) .AND. DIRECT.EQ.2)\r\n     1    STRESS = NEWOES\r\n      IF (STRESS.EQ.OES1 .AND. (ICNTVL.EQ.6 .OR. ICNTVL.EQ.8 .OR.\r\n     1    ICNTVL.EQ.9)) GO TO 130\r\n      IF (STRESS .EQ. OES1) SKIPWD(7) = -3\r\n      CALL OPEN (*130,STRESS,GPLST(B2),0)\r\n      CONMIN = 0.0\r\n      CONMAX = 0.0\r\n      IEOR   = 0\r\nC\r\nC     CREATE A LIST OF ELEMENTS TYPES TO BE PLOTTED IN THIS SET\r\nC\r\n      JTJ  = 1\r\n      K    = 1\r\n      KEST = 0\r\n      CALL READ (*135,*135,EST,ESYM,1,0,M)\r\n      IF (ICNTVL .EQ. 20) GO TO 7\r\nC\r\nC     ELIMINATE ALL BUT MAXSHEAR FOR CSHEAR ELEMENT\r\nC\r\n    3 IF (ESYM.EQ.ISYM(1) .AND. ICNTVL.NE.3) GO TO 7\r\nC\r\nC     ELIMINATE MID STRESS FOR TRIA1, QUAD1, TRPLT, OR QDPLT\r\nC\r\n      IF ((ESYM.EQ.ISYM(2) .OR. ESYM.EQ.ISYM(10) .OR. ESYM.EQ.ISYM(4)\r\n     1   .OR. ESYM.EQ.ISYM(6)) .AND. WHERE.EQ.3) GO TO 7\r\nC\r\nC     ELIMINATE Z2 AND AVER STRESS FOR CTRMEM, CQDMEM, MEM1, MEM2\r\nC\r\n      IF ((ESYM.EQ.ISYM(5) .OR. ESYM.EQ.ISYM(7) .OR. ESYM.EQ.ISYM(11)\r\n     1   .OR. ESYM.EQ.ISYM(12)) .AND. (WHERE.EQ.-1 .OR. WHERE.EQ.3))\r\n     2    GO TO 7\r\nC\r\nC     ELIMINATE Z1, Z2 AND MAX FOR TRIA2 OR TRBSC ELEMENTS\r\nC\r\n      IF ((ESYM.EQ.ISYM(8) .OR. ESYM.EQ.ISYM(3)) .AND.\r\n     1   (IABS(WHERE).EQ.1 .OR. WHERE.EQ.2)) GO TO 7\r\n      DO 5 I = 1,NTYPES\r\n      IF (ESYM .EQ. ISYM(I)) GO TO 6\r\n    5 CONTINUE\r\n      GO TO 7\r\n    6 ESTSYM(K) = I\r\n      K = K + 1\r\n    7 CALL FREAD (EST,NGPPE,1,0)\r\nC\r\n    8 OFFSET = 0\r\n      IF (ESYM .EQ. KBAR) OFFSET = 6\r\n      IF (ESYM.EQ.KT3 .OR. ESYM.EQ.KQ4) OFFSET = 1\r\nC\r\nC     FLUSH TO NEXT SYMBOL\r\nC\r\n    9 CALL FREAD (EST,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO (11,25), JTJ\r\n      J = 1 + NGPPE + OFFSET\r\n      CALL FREAD (EST,0,-J,0)\r\n      GO TO 9\r\nC\r\nC     READ NEXT SYMBOL\r\nC\r\n   11 CALL READ (*12,*12,EST,ESYM,1,0,M)\r\n      GO TO 3\r\nC\r\nC     LOOP BACK UNTIL ALL EST SYMBOLS ARE IN CORE\r\nC\r\n   12 K = K - 1\r\n      CALL BCKREC (EST)\r\n      JTJ = 2\r\nC\r\nC     NOTE THAT THE ASSUMPTION THAT STRESS AND EST FILES ARE ORDERED IN\r\nC     THE SAME WAY IS NO LONGER NECESSARY\r\nC\r\n   15 IF (IEOR .EQ. 0) CALL FWDREC (*125,STRESS)\r\n      IF (ICNTVL .NE. 20) GO TO 20\r\n      CALL FWDREC (*125,STRESS)\r\n      GO TO 25\r\n   20 CALL READ  (*125,*120,STRESS,IDUMMY,2,0,M)\r\n      CALL FREAD (STRESS,IELTYP,1,0)\r\n      CALL FREAD (STRESS,ISUB,1,0)\r\n      CALL FREAD (STRESS,DETAIL,1,0)\r\n      CALL FREAD (STRESS,EIGEN,1,0)\r\n      EIGEN = SQRT(ABS(EIGEN))/TWOPI\r\n      CALL FREAD (STRESS,0,-3,0)\r\n      CALL FREAD (STRESS,NWDS,1,1)\r\n      IF (SUB.GT.0 .AND. ISUB.NE.SUB) GO TO 50\r\n      IF (FLAG.EQ.1.0 .AND. DETAIL.NE.VALUE) GO TO 50\r\n      IF (FLAG.EQ.2.0 .AND. ABS(EIGEN-VALUE).GT.1.0E-5) GO TO 50\r\n      IEOR = 0\r\n      DO 22 I = 1,K\r\n      J = ESTSYM(I)\r\n      IF (J .EQ. 0) GO TO 22\r\n      IF (IELTYP .EQ. ITYPE(J)) GO TO 25\r\n   22 CONTINUE\r\n      GO TO 50\r\nC\r\nC     YES, WE DO WANT THIS ELEMENT TYPES STRESS DATA.  FIND THIS TYPES\r\nC     ELEMENTS IN THE EST\r\nC\r\n   25 CALL READ (*905,*905,EST,ESYM,1,0,M)\r\n      IRDEST = 1\r\n      CALL FREAD (EST,NGPPE,1,0)\r\n      IF (ICNTVL.EQ.20 .OR. ESYM.EQ.ISYM(J)) GO TO 27\r\nC\r\nC     FLUSH THE FILE UNTIL FOUND\r\nC\r\n      GO TO 8\r\nC\r\n   27 CALL WRITE (SCR1,ESYM,1,0)\r\n      KEST = KEST + 1\r\n      MEM  = 0\r\n      IF (IELTYP.EQ.9  .OR. IELTYP.EQ.16 .OR. IELTYP.EQ.15 .OR.\r\n     1    IELTYP.EQ.62 .OR. IELTYP.EQ.63) MEM = 1\r\nC         TRMEM(9), QDMEM(16), QDPLT(15), QDMEM1(62), QDMEM2(63)\r\nC\r\n      IWDS = SKIPWD(ICNTVL)\r\n      IF (ICNTVL .GT. 13) GO TO 29\r\n      IF (MEM .EQ. 1) IWDS = IWDS + 1\r\n      IF (WHERE.EQ.-1 .AND. MEM.NE.1) IWDS = IWDS - 8\r\n      NWDS = -NWDS - IWDS + 2\r\n      IF (IABS(WHERE).NE.1 .AND. MEM.NE.1) NWDS = NWDS + 8\r\n      IF (WHERE.EQ.-1 .AND. MEM.EQ.1) GO TO 50\r\n      IF (IELTYP.EQ.4 .AND. ICNTVL.NE.3) GO TO 50\r\nC         SHEAR(4)\r\nC\r\n   29 IS = 0\r\nC\r\nC     READ STRESS FILE\r\nC\r\n   30 IS = IS + 1\r\n      CALL READ (*58,*58,STRESS,ELMTID(IS),1,0,M)\r\n      IF (ICNTVL.LE.9 .OR. ICNTVL.EQ.20) GO TO 35\r\n      CALL FREAD (STRESS,NLAYER,1,0)\r\n      LAYTOT = NLAYER*11\r\n      LAYSKP = -((LAYER-1)*10+2)\r\n      CALL FREAD (STRESS,0,LAYSKP,0)\r\n   35 IF (IELTYP .NE. 4) GO TO 40\r\nC\r\nC     MAXIMUM SHEAR FOR CSHEAR ELEMENT\r\nC\r\n      CALL FREAD (STRESS,STORE(IS),1,0)\r\n      CALL FREAD (STRESS,0,-2,0)\r\n      IF (IS .EQ. LCOR) GO TO 60\r\n      GO TO 30\r\n   40 CALL FREAD (STRESS,0,IWDS,0)\r\n      CALL FREAD (STRESS,STORE(IS),1,0)\r\n      IF (ICNTVL.LE.9 .OR. ICNTVL.EQ.20) GO TO 41\r\n      NLFIN = -(LAYTOT-1+LAYSKP+IWDS)\r\n      CALL FREAD (STRESS,0,NLFIN,0)\r\n      GO TO 30\r\n   41 IF (ICNTVL .LT. 20) GO TO 42\r\n      CALL FREAD (STRESS,0,-1,0)\r\n      GO TO 30\r\n   42 IF (IABS(WHERE).EQ.1 .OR. MEM.EQ.1) GO TO 45\r\n      CALL FREAD (STRESS,0,-7,0)\r\n      CALL FREAD (STRESS,CONTUR,1,0)\r\n   45 CALL FREAD (STRESS,0,NWDS,0)\r\n      IF (MEM.EQ.1 .AND. IS.GE.LCOR) GO TO 60\r\n      IF (MEM   .EQ. 1) GO TO 30\r\n      IF (WHERE .EQ. 2) STORE(IS) = AMAX1(STORE(IS),CONTUR)\r\n      IF (WHERE .EQ. 3) STORE(IS) = (STORE(IS)+CONTUR)/2.0\r\n      IF (IS .GE. LCOR) GO TO 60\r\n      GO TO 30\r\nC\r\nC     SKIP THIS TYPE\r\nC\r\n   50 CALL FWDREC (*125,STRESS)\r\n      GO TO 20\r\nC\r\nC     END OF RECORD ON STRESS FILE\r\nC\r\n   58 IEOR = 1\r\n      IS   = IS - 1\r\nC\r\nC     STORE STRESS VALUES WITH ELEMENT ID.S\r\nC\r\n   60 CALL FREAD (EST,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO 90\r\n      CALL FREAD (EST,0,-1,0)\r\n      CALL FREAD (EST,GPTS,NGPPE+OFFSET,0)\r\nC\r\nC     THE VERY NEXT LINE WAS ACCIDENTALLY DROPPED IN 88 VERSION\r\nC\r\n      IF (ELID .GT. ELMTID(IS)/10) GO TO 100\r\n      DO 65 IST = 1,IS\r\n      IF (ELID .EQ. ELMTID(IST)/10) GO TO 70\r\n   65 CONTINUE\r\n      ERR(1) = 1\r\n      ERR(2) = ELID\r\n      CALL WRTPRT (PRNT,ERR,MSG1,NMSG1)\r\n      GO TO 60\r\nC\r\nC     FIND ELEMENTS CENTROID\r\nC\r\n   70 DO 75 I = 1,NGPPE\r\n      IG = GPTS(I)\r\n      IG = IABS(GPLST(IG))\r\n      IF (DEFORM .NE. 0) GO TO 74\r\n      PT(1,I) = X(2,IG)\r\n      PT(2,I) = X(3,IG)\r\n      GO TO 75\r\n   74 PT(1,I) = U(1,IG)\r\n      PT(2,I) = U(2,IG)\r\n   75 CONTINUE\r\n      THIRD(1) = PT(1,3)\r\n      THIRD(2) = PT(2,3)\r\n      INDEX = 1\r\n      PT(1,NGPPE+1) = PT(1,1)\r\n      PT(2,NGPPE+1) = PT(2,1)\r\n      IF (NGPPE .LT. 4) GO TO 80\r\n      INDEX = 4\r\n      CALL CENTRE (*90,PT(1,1),PT(2,1),PT(1,2),PT(2,2),PT(1,3),PT(2,3),\r\n     1             PT(1,4),PT(2,4),CENTRD)\r\n      THIRD(1) = CENTRD(1)\r\n      THIRD(2) = CENTRD(2)\r\n   80 DO 85 I = 1,INDEX\r\n      CALL CENTRE (*90,PT(1,I),PT(2,I),PT(1,I+1),PT(2,I+1),(THIRD(1)+\r\n     1            PT(1,I+1))*.5,(THIRD(2)+PT(2,I+1))*.5,\r\n     2            (THIRD(1)+PT(1,I))*.5,(THIRD(2)+PT(2,I))*.5,CENTRD)\r\n      C(1,I) = CENTRD(1)\r\n      C(2,I) = CENTRD(2)\r\n   85 CONTINUE\r\n      IF (NGPPE .LT. 4) GO TO 90\r\n      CALL CENTRE (*90,C(1,1),C(2,1),C(1,2),C(2,2),C(1,3),C(2,3),C(1,4),\r\n     1            C(2,4),CENTRD)\r\n   90 CALL WRITE (SCR1,ELID,1,0)\r\n      IF (ELID .NE. 0) GO TO 91\r\n  905 IF (KEST .EQ. K) GO TO 120\r\n      CALL BCKREC (EST)\r\n      IRDEST = 0\r\n      GO TO 15\r\n   91 CONTINUE\r\n      CALL WRITE (SCR1,STORE(IST),1,0)\r\n      CALL WRITE (SCR1,CENTRD,2,0)\r\n      IF (CONMIN.NE.0.0 .OR. CONMAX.NE.0.0) GO TO 92\r\n      CONMIN = STORE(IST)\r\n      CONMAX = CONMIN\r\n      GO TO 60\r\n   92 CONMIN = AMIN1(CONMIN,STORE(IST))\r\n      CONMAX = AMAX1(CONMAX,STORE(IST))\r\n      GO TO 60\r\nC\r\nC     REFILL STRESS STORAGE AREA\r\nC\r\n  100 IS = 0\r\n      IF (IEOR .EQ. 0) GO TO 30\r\n      ERR(1) = 1\r\n      ERR(2) = ELID\r\n      CALL WRTPRT (PRNT,ERR,MSG1,NMSG1)\r\n      GO TO 60\r\n  120 IF (STRESS .EQ. NEWOES) GO TO 126\r\n      CALL READ  (*125,*125,OES1,0,-3,0,M)\r\n      CALL FREAD (OES1,ISUB,1,0)\r\n      CALL FREAD (OES1,DETAIL,1,0)\r\n      CALL FREAD (OES1,EIGEN,1,1)\r\n      EIGEN = SQRT(ABS(EIGEN))/TWOPI\r\n      IF (ISUB .NE. SUB) GO TO 125\r\n      IF (FLAG.EQ.1.0 .AND. DETAIL.NE.VALUE) GO TO 125\r\n      IF (FLAG.EQ.2.0 .AND. ABS(EIGEN-VALUE).GT.1.0E-5) GO TO 125\r\n      CALL FWDREC (*125,OES1)\r\n      GO TO 120\r\n  125 CALL BCKREC (STRESS)\r\n  126 CALL CLOSE (STRESS,2)\r\n  130 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,1)\r\n      IF (IRDEST) 140,140,135\r\n  135 CALL BCKREC (EST)\r\n  140 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/criggp.f",
    "content": "      SUBROUTINE CRIGGP (N23)\r\nC\r\nC     ******************************************************************\r\nC                                                                      *\r\nC     THIS SUBROUTINE GENERATES COEFFICIENTS FOR RIGID ELEMENTS        *\r\nC     FOR USE BY SUBROUTINE GP4.  THE DATA SO GENERATED IS             *\r\nC     COMPATIBLE WITH MPC SET DATA.                                    *\r\nC                                                                      *\r\nC     (MODIFIED BY G.CHAN/SPERRY TO REDUCE EXCESSIVE OPENINGS,         *\r\nC     CLOSINGS, AND READINGS OF THE BGPDT FILE (IN 2ND METHOD).        *\r\nC     WITHOUT THIS MODIFICATION, A PROBLEM OF 2000 RIGID ELEMENTS,     *\r\nC     FOR EXAMPLE, WOULD REQUIRE MORE THAN 10,000 OPENS AND 10,000     *\r\nC     CLOSES AND OVER 10 MILLION CALLS TO SUBROUTINE READ   10/86)     *\r\nC                                                                      *\r\nC     (MODIFIED AGAIN BY G.CHAN/UNISYS TO INCLUDE CRROD, CRBAR, CRBE1, *\r\nC     CRBE2, CRBE3, CRTRPLT, AND CRSPLINE RIGID ELEMENTS    11/88)     *\r\nC                                                                      *\r\nC     ******************************************************************\r\nC\r\nC     EXTERNAL          ORF    ,LSHIFT\r\n      LOGICAL           AGAIN  ,GENRE  ,L38    ,DEBUG\r\nC     INTEGER           ORF    ,LSHIFT\r\n      INTEGER           GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1       ,\r\n     1                  BUF(20),MASK16 ,GPOINT ,Z      ,FLAG       ,\r\n     2                  FILE   ,RET    ,RET1   ,IC(1)  ,MCODE(2)   ,\r\n     3                  BUF1   ,BUF2   ,BUF3   ,BUF4\r\n      INTEGER           CRIGDR(2),CRIGD1(2)    ,CRIGD2(2),CRIGD3(2),\r\n     1                  CRTRPT(2),CRSPLI(2)    ,CRROD(2) ,CRBAR(2) ,\r\n     2                  CRBE1(2) ,CRBE2(2)     ,CRBE3(2)\r\nCWKBR 8/94 SUN  INTEGER           RDREW    ,CLRSEW\r\n      INTEGER           RDREW\r\n      DOUBLE PRECISION  DZ(1)\r\n      DIMENSION         RZ(1)  ,NAME(2),INDCMP(6)\r\n      DIMENSION         A(36)  ,B(6)   ,IB(6)  ,C(18)\r\n      CHARACTER         UFM*23 ,UWM*25 ,UIM*29\r\n      COMMON /XMSSG /   UFM    ,UWM    ,UIM\r\n      COMMON /MACHIN/   MACH   ,IHALF  ,JHALF\r\n      COMMON /ZZZZZZ/   Z(1)\r\n      COMMON /GP4FIL/   GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1\r\n      COMMON /GP4PRM/   BUF    ,BUF1   ,BUF2   ,BUF3   ,BUF4   ,KNKL1  ,\r\n     1                  MASK16 ,NOGO   ,GPOINT ,KN\r\n      COMMON /NAMES /   RD     ,RDREW  ,WRT    ,WRTREW ,CLSREW\r\n      COMMON /SYSTEM/   KSYSTM(55)\r\n      EQUIVALENCE      (Z(1),RZ(1),DZ(1))\r\n      EQUIVALENCE      (IC(1)     ,C(1) )\r\n      EQUIVALENCE      (KSYSTM(2) , NOUT)\r\n      EQUIVALENCE      (KSYSTM(55),IPREC)\r\n      DATA    CRIGD1/  5310,   53/,\r\n     1        CRIGD2/  5410,   54/,\r\n     2        CRIGD3/  8310,   83/,\r\n     3        CRIGDR/  8210,   82/,\r\n     4        CRROD /  6510,   65/,\r\n     5        CRBAR /  6610,   66/,\r\n     6        CRTRPT/  6710,   67/,\r\n     7        CRBE1 /  6810,   68/,\r\n     8        CRBE2 /  6910,   69/,\r\n     9        CRBE3 /  7010,   70/,\r\n     O        CRSPLI/  7110,   71/\r\n      DATA    NAME  /  4HCRIG,2HGP/\r\n      DATA    MSET  /  4HMSET    /\r\n      DATA    A     /  36*0.     /\r\n      DATA    DEBUG /  .FALSE.   /\r\n      DATA    L38   /  .FALSE.   /\r\nC\r\nC\r\nC     ****************************************************************\r\nC      OPEN CORE -\r\nC                                        ALLOCATED BY\r\nC     !<--- ALLOCATED BY GP4 --->!<------- CRIGGP -   --------->!\r\nC     +--------+--------+------+-+----+-----+------   ----+-----+-----+\r\nC     ! EQEXIN ! EQEXIN !SORTED!U!CSTM!BGPDT!   ...       ! DEP ! GINO!\r\nC     !1ST REC !2ND REC ! SIL  !S!    !     !             ! SIL !BFFRS!\r\nC     +--------+--------+------+-+----+-----+------   ----+-----+-----+\r\nC      1      KN       KM        /    /    / \\_KNKL1      /     /\r\nC                            KNKL2  KNKL3 KNKL4         MU   BUF4\r\nC\r\nC      OPEN CORE FORMAT, STARTS WITH Z(KNKL2)\r\nC      (KNKL2 = INITIAL VALUE OF KNKL1)\r\nC\r\nC      NUMBER OF WORDS                 CONTENTS\r\nC\r\nC           NCSTM    ***     COORDINATE SYSTEM TRANSFORMATION TABLE\r\nC           NBGPDT   ***     BASIC GRID POINT DEFINITION TABLE\r\nC                    *       (ONLY IF ENOUGH OPEN CORE SPACE AVAILABLE)\r\nC                    ***     SIL 1   ***\r\nC                    *       SIL 2     *\r\nC             6      *       SIL 3     *  INDEPENDENT GRID POINT\r\nC                    *       SIL 4     *\r\nC                    *       SIL 5     *\r\nC                    ***     SIL 6   ***\r\nC                    ***     SIL 1          ***             ***\r\nC                    *       DEGREE OF FREEDOM*               *\r\nC                    *       INTERNAL INDEX   *               *\r\nC                    *       SIL 2            *               *\r\nC                    *       DEGREE OF FREEDOM*  FIRST DEPEND.*  ALL\r\nC                    *       INTERNAL INDEX   *  GRID POINT   *  DEPEND.\r\nC           3*MDEP   *           .            *               *  GRID\r\nC                    *           .            *               *  POINTS\r\nC                    *       SIL 6            *               *\r\nC                    *       DEGREE OF FREEDOM*               *\r\nC                    ***     INTERNAL INDEX ***             ***\r\nC                    ***     INDEPENDENT GRID POINT BGPDT TABLE\r\nC             4      *          WORD 1     COORDINATE SYSTEM ID-INTEGER\r\nC                    ***        WORD 2-4 = X, Y, Z, IN BASIC SYSTEM-REAL\r\nC          4*MDBGP   ***     DEPENDENT GRID POINT BGPDT TABLE\r\nC                    ***\r\nC         36*MDBGP   *       ROW STORED GG MATRIX (SINGLE PRECISION)\r\nC                    ***     36 ELEMENTS * NO. DEPEND. GRID PT.\r\nC          9*IPREC   ***     INDEPEND. GRID PT TRANSFORMATION MAT.-REAL\r\nC          9*IPREC   ***     DEPEND. GRID PT TRANSFORMATION MATRIX-REAL\r\nC         36*IPREC   ***     GG MATRIX  -  REAL  36 ELEMENTS\r\nC                    ***          .        ***\r\nC                    *            .          *\r\nC                    *  AVAILABLE OPEN CORE  *\r\nC                    *            .          *\r\nC                    *            .          *\r\nC                    ***          .        ***\r\nC                    ***\r\nC           MDEP     *       DEPENDENT SILS\r\nC                    ***\r\nC                    ***\r\nC          BUFFERS   *       GINO BUFFERS\r\nC                    ***\r\nC\r\nC     *************************************************************\r\nC     NOTE  IPREC = 1   SINGLE PRECISION\r\nC           IPREC = 2   DOUBLE PRECISION\r\nC           MDEP  =     NUMBER DEPENDENT SILS\r\nC           MDBGP =     NUMBER DEPENDENT GRID POINTS\r\nC     *************************************************************\r\nC\r\n      MASK15= JHALF/2\r\n      KN2   = KN/2\r\n      NCSTM = 0\r\n      KNKL2 = KNKL1\r\n      KIOLD = 0\r\n      IBUF1 =-99\r\n      AGAIN = .FALSE.\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG =.TRUE.\r\n      CALL SSWTCH (38,J)\r\n      IF (J .EQ. 1) L38 =.TRUE.\r\n      CALL PAGE2(-4)\r\n      WRITE  (NOUT,200) UIM\r\n  200 FORMAT (A29,' 3113, RIGID ELEMENTS ARE BEING PROCESSED IN GP4',/)\r\nC\r\nC     OPEN CSTM AND READ INTO CORE, FROM Z(KNKL2) THRU Z(KNKL3)\r\nC\r\n      LEFT = BUF4 - KNKL1\r\n      FILE = CSTM\r\n      CALL OPEN (*300,CSTM,Z(BUF2),RDREW)\r\n      CALL SKPREC (CSTM,1)\r\n      CALL READ (*1230,*270,CSTM,Z(KNKL2),LEFT,1,NCSTM)\r\n      GO TO 1280\r\nC\r\nC     IF CORE WAS FILLED WITHOUT HITTING AN EOR, CALL MESAGE\r\nC\r\n  270 IF (IPREC .EQ. 1) CALL PRETRS (Z(KNKL1),NCSTM)\r\n      IF (IPREC .EQ. 2) CALL PRETRD (Z(KNKL1),NCSTM)\r\n      CALL CLOSE (CSTM,CLSREW)\r\n      GO TO 300\r\nC\r\nC     IF THERE IS ENOUGH CORE AVAILABLE, OPEN AND READ BGPDT INTO OPEN\r\nC     CORE, FROM Z(KNKL3+1) THRU Z(KNKL4), CLOSE BGPDT FILE, AND RESET\r\nC     VARIOUS POINTERS FOR BUILDING UP RGT DATA. (AGAIN=.FALSE.)\r\nC     THIS METHOD USES ONLY ONE OPEN, ONE CLOSE, AND ONE READ.\r\nC\r\nC     HOWEVER, IF THERE IS NOT ENOUGH CORE FOR BGPDT DATA AND THE NEEDED\r\nC     SPACE FOR BUILDING UP RGT DATA, SET AGAIN TO .TRUE., AND REPEAT\r\nC     DATA PROCESSING BY READING DATA DIRECTLY OFF THE BGPDT FILE EACH\r\nC     TIME WHEN THE BGPDT DATA IS NEEDED.   THIS SECOND METHOD USES ONLY\r\nC     ONE OPEN, ONE CLOSE, AND MULTIPLE READS.\r\nC\r\nC     IN THE SECOND METHOD, TWO POINTERS, KIOLD AND KINEW, ARE USED TO\r\nC     COMPUTE PRECISELY WHERE TO READ DATA OFF THE BGPDT FILE\r\nC\r\n  290 AGAIN = .TRUE.\r\n      CALL WRITE  (RGT,0,0,1)\r\n      CALL BCKREC (RGT)\r\n      KNKL3 = 0\r\n      KNKL1 = KNKL2\r\n      NBGPDT= KNKL1 + NCSTM\r\n      CALL CLOSE (BGPDT,CLSREW)\r\n  300 FILE  = BGPDT\r\n      CALL OPEN (*1210,BGPDT,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1240,BGPDT)\r\n      KIOLD = 0\r\nC\r\nC     CALCULATE STARTING POINT\r\nC     AND READ BGPDT INTO OPEN CORE\r\nC\r\n      KNKL1 = KNKL1 + NCSTM\r\n      IF (AGAIN) GO TO 310\r\n      KNKL3 = KNKL1\r\n      CALL READ (*1230,*310,BGPDT,Z(KNKL3+1),BUF4-KNKL3,1,NBGPDT)\r\n      IMHERE = 305\r\n      IF (DEBUG) WRITE (NOUT,1255) IMHERE\r\n      KNKL3 = 0\r\n      NBGPDT= KNKL1\r\n      AGAIN = .TRUE.\r\n      CALL BCKREC (BGPDT)\r\n  310 IF (.NOT.AGAIN) CALL CLOSE (BGPDT,CLSREW)\r\n      KNKL4 = KNKL3 + NBGPDT\r\n      KNKL1 = KNKL4 + 1\r\n      MU    = BUF4  - 1\r\n      IRDG  = 0\r\n      ITYPE = 0\r\n      GENRE = .FALSE.\r\nC\r\nC     *************************************************************\r\nC\r\nC     CRIGD1, CRIDG2, AND CRBE2 RIGID ELEMENTS ARE PROCESSED HERE\r\nC\r\nC     *************************************************************\r\nC\r\nC     LOCATE CRIGD1 DATA IN THE INPUT FILE\r\nC\r\n      FILE = GEOMP\r\n      CALL LOCATE (*500,Z(BUF1),CRIGD1,FLAG)\r\n      IRDG = 1\r\n      GO TO 1000\r\nC\r\nC     LOCATE CRIGD2 DATA ON INPUT FILE\r\nC\r\n  500 FILE = GEOMP\r\n      CALL LOCATE (*600,Z(BUF1),CRIGD2,FLAG)\r\n      IRDG = 2\r\n      IMHERE = 500\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      GO TO 1000\r\nC\r\nC     LOCATE CRBE2 DATA ON INPUT FILE\r\nC\r\n  600 FILE = GEOMP\r\n      CALL LOCATE (*4000,Z(BUF1),CRBE2,FLAG)\r\n      IRDG = 3\r\n      IMHERE = 600\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\nC\r\n 1000 CONTINUE\r\n      IF (DEBUG) WRITE (NOUT,1005) IRDG\r\n 1005 FORMAT ('0 IRDG/CRIGGP =',I6)\r\nC\r\nC     READ ELEMENT ID AND INDEPENDENT GRID POINT NUMBER\r\nC\r\n 1730 IFILE = GEOMP\r\n      NWDS  = 2\r\n      GO TO 1734\r\n 1732 IFILE = SCR1\r\n      NWDS  = 9\r\n 1734 FILE  = IFILE\r\n      CALL READ (*1230,*1240,IFILE,BUF,NWDS,0,FLAG)\r\n      IF ((DEBUG.OR.L38) .AND. BUF(1).NE.IBUF1) WRITE (NOUT,1735) BUF(1)\r\n 1735 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED')\r\n      IF (.NOT.GENRE) GO TO 1739\r\n      IBUF1 = BUF(1)\r\nC\r\nC     SET UP INDEPENDENT D.O.F. FOR THE GENERAL RIGID ELEMENTS,\r\nC     CRIGID3 AND CRBE1, AND ALSO THE CRBAR AND CRTRPLT ELEMENTS\r\nC     WHICH WERE CONVERTED TO CRIGID3 FORMAT BY IFS3P\r\nC\r\n      DO 1736 I = 1,6\r\n      INDCMP(I) = BUF(I+2)\r\n 1736 CONTINUE\r\n      ITYPE = BUF(9)\r\n      IF (ITYPE .NE. 0) GO TO 1739\r\n      DO 1737 I = 1,36\r\n 1737 A(I) = 0.0\r\n      INDEX = 0\r\n      ILAST = 0\r\n      DO 1738 I = 1,6\r\n      IF (INDCMP(I) .NE. I) GO TO 1738\r\n      J    = 6*ILAST + I\r\n      A(J) = 1.0\r\n      ILAST= ILAST + 1\r\n 1738 CONTINUE\r\n      NIND = ILAST\r\nC\r\n 1739 ASSIGN 1740 TO RET\r\n      ASSIGN 1743 TO RET1\r\n      IDR   = BUF(1)\r\n      GPOINT= BUF(2)\r\n      NTYPE = 1\r\n      GO TO 7060\r\nC\r\nC     STORE SIL FOR INDEPENDENT DEGREES OF FREEDOM\r\nC\r\n 1740 DO 1742 I=1,6\r\n      Z(KNKL1+I-1) = GPOINT + I - 1\r\n 1742 CONTINUE\r\n 1743 KINEW = K - 2*KN\r\n      ASSIGN 1750 TO RET\r\n      ASSIGN 1745 TO RET1\r\nC\r\nC     READ DEPENDENT GRID POINTS\r\nC\r\n      J = KNKL1 + 3\r\n      MDBGP = 0\r\n      MDEP  = 0\r\n 1745 CALL READ (*1230,*1240,IFILE,BUF,7,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 1760\r\n      MDBGP = MDBGP + 1\r\n      GPOINT= BUF(1)\r\n      NTYPE = 2\r\n      GO TO 7060\r\n 1750 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 1745\r\nC\r\nC     STORE DEPENDENT GRID POINT SIL, DOF, AND INTERNAL INDEX\r\nC\r\n      DO 1756 I = 1,6\r\n      IF (BUF(I+1) .EQ. 0) GO TO 1756\r\n      J = J + 3\r\n      L = J\r\n      Z(L) = GPOINT + I - 1\r\n      Z(L+1) = I\r\n      Z(L+2) = K - 2*KN\r\n      MDEP   = MDEP + 1\r\n 1756 CONTINUE\r\n      GO TO 1745\r\nC\r\nC     HERE WHEN ALL DEPENDENT GRID POINTS FOR AN ELEMENT HAVE BEEN READ\r\nC\r\n 1760 MORE = 0\r\n      I = KNKL1 + 6 + 3*MDEP + 4 + 4*MDBGP + (9+9+36*MDBGP+36)*IPREC\r\nC\r\nC     CHECK FOR OPEN CORE AVAILABILITY\r\nC\r\n      IMHERE = 176\r\n      IF (I      .GE. MU) GO TO 1250\r\n      IF (BUF(2) .EQ.  0) MORE = 1\r\n      IF (NOGO   .NE.  0) GO TO 3645\r\nC\r\nC     LOCATE DATA IN BGPDT FOR INDEPENDENT GRID POINT\r\nC\r\n      IOPEN = KNKL1 + 6 + 3*MDEP\r\n      IF (AGAIN) GO TO 1761\r\n      KI4 = KNKL3 + KINEW*4\r\n      IF (KI4 .GT. KNKL4) GO TO 1290\r\n      Z(IOPEN    ) = Z(KI4 -3)\r\n      Z(IOPEN + 1) = Z(KI4 -2)\r\n      Z(IOPEN + 2) = Z(KI4 -1)\r\n      Z(IOPEN + 3) = Z(KI4   )\r\n      GO TO 1763\r\n 1761 FILE = BGPDT\r\n      IF (KINEW .GT. KIOLD) GO TO 1762\r\n      CALL BCKREC (BGPDT)\r\n      KIOLD = 0\r\n 1762 KI4 = (KINEW-KIOLD-1) * 4\r\n      IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG)\r\n      CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG)\r\n      Z(IOPEN    ) = BUF(1)\r\n      Z(IOPEN + 1) = BUF(2)\r\n      Z(IOPEN + 2) = BUF(3)\r\n      Z(IOPEN + 3) = BUF(4)\r\n 1763 KIOLD = KINEW\r\nC\r\nC     SORT DEPENDENT DEGREE OF FREEDOM LIST ON BGPDT REFERENCE NUMBER\r\nC\r\n      I = MDEP*3\r\n      CALL SORT (0,0,3,3,Z(KNKL1+6),I)\r\nC\r\n      J = 0\r\n      M = 0\r\n      INDX  = KNKL1 + 5\r\n      INDXX = KNKL1 + 6 + 3*MDEP + 4\r\n      DO 1768 I = 1,MDEP\r\n      K = INDX + 3*I\r\n      KINEW = Z(K)\r\n      IF (KIOLD .EQ. KINEW) GO TO 1767\r\n      J = J + 1\r\nC\r\nC     READ GRID POINT INFORMATION\r\nC\r\n      M = M + 1\r\n      N = INDXX + (M-1)*4\r\n      IF (AGAIN) GO TO 1764\r\n      KI4 = KNKL3 + KINEW*4\r\n      IF (KI4 .GT. KNKL4) GO TO 1290\r\n      Z(N    ) = Z(KI4 -3)\r\n      Z(N + 1) = Z(KI4 -2)\r\n      Z(N + 2) = Z(KI4 -1)\r\n      Z(N + 3) = Z(KI4   )\r\n      GO TO 1766\r\n 1764 FILE = BGPDT\r\n      IF (KINEW .GT. KIOLD) GO TO 1765\r\n      CALL BCKREC (BGPDT)\r\n      KIOLD = 0\r\n 1765 KI4 = (KINEW-KIOLD-1)*4\r\n      IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG)\r\n      CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG)\r\n      Z(N    ) = BUF(1)\r\n      Z(N + 1) = BUF(2)\r\n      Z(N + 2) = BUF(3)\r\n      Z(N + 3) = BUF(4)\r\n 1766 KIOLD = KINEW\r\n 1767 Z(K)  = J\r\n 1768 CONTINUE\r\nC\r\n      IF (IPREC .EQ. 2) GO TO  3200\r\nC\r\nC     FORM REFERENCE GRID POINT TRANSFORMATION MATRIX\r\nC\r\n      IBA = KNKL1 + 6 + 3*MDEP\r\n      ITA = IBA + 4 + 4*MDBGP + 36*MDBGP\r\n      IF (Z(IBA) .NE. 0) CALL TRANSS (RZ(IBA),RZ(ITA))\r\nC\r\nC     PREPARE POINTERS USED TO FORM THE G MATRIX\r\nC\r\n      ITB = ITA + 9\r\n      ITC = ITB - 1\r\nC\r\nC     SET INDEXES FOR TRANSFORMATION MATRIXES AND GG MATRIXES TO\r\nC     FIRST ELEMENT - 1 FOR SUBROUTINE FORMGG\r\nC\r\n      ITA = ITA - 1\r\n      IG  = INDXX + 4*MDBGP - 1\r\n      IGG = IG + (36*MDBGP) + 9 + 9\r\n      INDX= KNKL1 + 3\r\n      M   = -1\r\nC\r\nC     BEGIN LOOP TO FORM THE G MATRIX\r\nC\r\n      DO 3050 I = 1,MDEP\r\n      K  = INDX + I*3\r\n      MM = Z(K+2)\r\n      IF (MM .EQ. M) GO TO 3030\r\n      IBB = INDXX + (MM-1)*4\r\nC\r\nC     FORM DEPENDENT DEGREE OF FREEDOM TRANSFORMATION MATRIX\r\nC\r\n      IF (Z(IBB) .NE. 0) CALL TRANSS (RZ(IBB),RZ(ITB))\r\nC\r\nC     FORM THE GG MATRIX\r\nC\r\n      CALL FORMGG (IGG,ITA,ITC,IBA,IBB)\r\n 3030 CONTINUE\r\nC\r\nC     SELECT PROPER ROW BASED ON COMPONENT NUMBER AND STORE IN G\r\nC     ACCORDING TO PARTITIONING VECTOR OF REFERENCE GRID POINT.\r\nC\r\n      M  = MM\r\n      MM = Z(K+1)\r\n      DO 3040 IJ = 1,6\r\n      INDXXX = IGG + (MM-1)*6 + IJ\r\n      RZ(IG+IJ) = RZ(INDXXX)\r\n 3040 CONTINUE\r\n      IG = IG + 6\r\n 3050 CONTINUE\r\n      GO TO 3300\r\nC\r\nC     FORM REFERENCE GRID POINT TRANSFORMATION MATRIX (DOUBLE PREC.)\r\nC\r\n 3200 IBASE = (KNKL1 + 6 + 3*MDEP + 4 + 4*MDBGP + 36*MDBGP) / 2 + 1\r\n      IBA = KNKL1 + 6 + 3*MDEP\r\n      ITA = IBASE\r\n      IF (Z(IBA) .NE. 0) CALL TRANSD (RZ(IBA),DZ(ITA))\r\nC\r\nC     PREPARE POINTERS USED TO FORM THE G MATRIX\r\nC\r\n      ITB = ITA + 9\r\n      ITC = ITB - 1\r\nC\r\nC     SET INDEXES FOR TRANSFORMATION MATRIXES AND GG MATRIXES TO\r\nC     FIRST ELEMENT - 1 FOR SUBROUTINE FORMGG\r\nC\r\n      ITA = ITA - 1\r\n      IG  = INDXX + 4*MDBGP - 1\r\n      IGG = IBASE + 9 + 9 - 1\r\n      INDX= KNKL1 + 3\r\n      M   = -1\r\nC\r\nC     BEGIN LOOP TO FORM THE G MATRIX\r\nC\r\n      DO 3250 I = 1, MDEP\r\n      K  = INDX  + I*3\r\n      MM = Z(K+2)\r\n      IF (MM .EQ. M) GO TO 3230\r\n      IBB = INDXX + (MM-1)*4\r\nC\r\nC     FORM DEPENDENT DEGREE OF FREEDOM TRANSFORMATION MATRIX\r\nC\r\n      IF (Z(IBB) .NE. 0) CALL TRANSD (RZ(IBB),DZ(ITB))\r\nC\r\nC     FORM THE GG MATRIX\r\nC\r\n      CALL FORMG2 (IGG,ITA,ITC,IBA,IBB)\r\n 3230 CONTINUE\r\nC\r\nC     SELECT PROPER ROW BASED ON COMPONENT NUMBER AND STORE IN G\r\nC\r\n      M  = MM\r\n      MM = Z(K+1)\r\n      DO 3240 IJ = 1,6\r\n      INDXXX = IGG + (MM-1)*6 + IJ\r\n      RZ(IG+IJ) = DZ (INDXXX)\r\n 3240 CONTINUE\r\n      IG = IG + 6\r\n 3250 CONTINUE\r\n 3300 IG = INDXX + 4*MDBGP - 1\r\nC\r\nC     WRITE THE CODED COLUMN-ROW NUMBERS AND ELEMENTS OF THE GM\r\nC     MATRIX ON RGT FILE SO AS TO MAKE RIGID ELEMENT DATA\r\nC     COMPATIBLE WITH MPC SET DATA\r\nC     (REVISED 7/86, CODED COLUMN-ROW NUMBERS ARE NOT USED HERE.\r\nC     THEY WILL BE RE-CODED IN GP4 IF NEEDED)\r\nC\r\n      K  = 0\r\n      IF (GENRE .AND. ITYPE.EQ.0) GO TO 3380\r\n      MU = MU - MDEP\r\nC\r\nC     TEST FOR OPEN CORE AVAILABILITY\r\nC\r\n      IMHERE = 3380\r\n      IF (IOPEN .GE. MU) GO TO 1250\r\n 3380 CONTINUE\r\n      INDX = KNKL1 + 3\r\n      DO 3640 I = 1, MDEP\r\n      IF (GENRE .AND. ITYPE.EQ.0) GO TO 3390\r\n      Z(MU+I) = Z(INDX + I*3)\r\n 3390 KROW    = Z(INDX + I*3)\r\n      MCODE(2)= KROW\r\n      IF (KROW .GT. MASK15) N23 = 3\r\n      DO 3620 J = 1,6\r\n      K    = K+1\r\n      KCOL = Z(KNKL1+J-1)\r\n      MCODE(1) = KCOL\r\n      IF (KCOL .GT. MASK15) N23 = 3\r\n      IF (GENRE .AND. ITYPE.EQ.0) GO TO 3440\r\n      RZ(IG+K) = -RZ(IG+K)\r\n      IF (GENRE .AND. ITYPE.EQ.1) GO TO 3400\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,RZ(IG+K),1,0)\r\n      GO TO 3620\r\n 3400 IC(J) = IB(J)\r\n      IF (IC(J) .GT. MASK15) N23 = 3\r\n      GO TO 3620\r\n 3440 IF (INDEX  .GE. NIND) GO TO 3460\r\n      IF (INDCMP(J) .NE. J) GO TO 3460\r\n      INDEX = INDEX + 1\r\n      IB(INDEX) = KCOL\r\n 3460 A(6*ILAST+J) = RZ(IG+K)\r\n 3620 CONTINUE\r\n      IF (   .NOT.GENRE) GO TO 3635\r\n      IF (ITYPE .EQ. -1) GO TO 3635\r\n      IF (ITYPE .EQ.  1) GO TO 3625\r\n      INDEX = INDEX + 1\r\n      IB(INDEX) = KROW\r\n      ILAST = ILAST + 1\r\n      GO TO 3640\r\n 3625 CALL GMMATS (RZ(IG+K-5),1,6,0,A,6,6,0,B)\r\n      DO 3630 J = 1, 6\r\n      CALL WRITE (RGT,IC(J),1,0)\r\n      CALL WRITE (RGT,KROW ,1,0)\r\n      CALL WRITE (RGT,B(J) ,1,0)\r\n 3630 CONTINUE\r\n 3635 MCODE(1) = KROW\r\n      COEFF = 1.0\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n 3640 CONTINUE\r\n      IF (.NOT.GENRE .OR. ITYPE.NE.0) GO TO 3645\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS (6,A,6,B,0,DET,ISING,C)\r\nC\r\nC     CHECK TO SEE IF GENERAL RIGID ELEMENTS (CRIGD3, CRBE1, CRBAR, AND\r\nC     CRTRPLT) ARE PROPERLY DEFINED\r\nC\r\n      IF (ISING .NE. 2) GO TO 3645\r\n      WRITE  (NOUT,6130) UFM,IDR\r\n      NOGO = 1\r\n 3645 IF (MORE .EQ.0) GO TO 3650\r\n      IF (.NOT.GENRE) GO TO 1730\r\n      GO TO 1732\r\nC\r\n 3650 IF (GENRE) CALL CLOSE (SCR1,1)\r\n      IF (IRDG .LE. 8) GO TO (500,600,4000,4100,4200,4300,5200), IRDG\r\n      CALL ERRTRC ('CRIGGP  ',3655)\r\nC\r\nC     ******************************************************************\r\nC\r\nC     CRBAR, CRTRPLT, CRIGD3, AND CRBE1 ELEMENTS ARE PROCESSED HERE.\r\nC     THE CRBAR AND CRTRPLT HAVE THE SAME DATA FORMAT AS THAT OF THE\r\nC     GENERAL RIGID ELEMENT CRIGD3.\r\nC     CRBE1 WAS MADE EXACTLY SAME AS CRIGD3 IN IFS3P ROUTINE.\r\nC\r\nC     ******************************************************************\r\nC\r\nC     LOCATE CRBAR DATA ON INPUT FILE\r\nC\r\n 4000 FILE = GEOMP\r\n      IMHERE = 4000\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      CALL LOCATE (*4100,Z(BUF1),CRBAR,FLAG)\r\n      IRDG = 4\r\n      GO TO 5000\r\nC\r\nC     LOCATE CRTRPLT DATA ON INPUT FILE\r\nC\r\n 4100 FILE = GEOMP\r\n      IMHERE = 4100\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      CALL LOCATE (*4200,Z(BUF1),CRTRPT,FLAG)\r\n      IRDG = 5\r\n      GO TO 5000\r\nC\r\nC     LOCATE CRIGD3 DATA ON INPUT FILE\r\nC\r\n 4200 CALL LOCATE (*4300,Z(BUF1),CRIGD3,FLAG)\r\n      IMHERE = 4200\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      IRDG = 6\r\n      GO TO 5000\r\nC\r\nC     LOCATE CRBE1 DATA ON INPUT FILE\r\nC\r\n 4300 CALL LOCATE (*5200,Z(BUF1),CRBE1,FLAG)\r\n      IMHERE = 4300\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n 4400 FORMAT ('0  I AM HERE/CRIGGP =',I6)\r\n      IRDG  = 7\r\nC\r\n 5000 GENRE = .TRUE.\r\n      MORE  = 1\r\n      IF (DEBUG) WRITE (NOUT,1005) IRDG\r\nC\r\nC     OPEN SCR1 FILE TO WRITE\r\nC\r\n      CALL OPEN (*1210,SCR1,Z(BUF4),1)\r\nC\r\nC     READ ELEMENT ID\r\nC\r\n 5010 FILE = GEOMP\r\n      CALL READ (*1230,*1240,GEOMP,BUF,1,0,FLAG)\r\n      IDR = BUF(1)\r\nC\r\nC     READ INDEPENDENT GRID POINTS AND THEIR COMPONENT NUMBERS\r\nC\r\n      N = 0\r\n      J = KNKL1\r\n 5020 CALL READ (*1230,*1240,GEOMP,BUF,1,0,FLAG)\r\n      IF (BUF(1) .EQ. MSET) GO TO 5040\r\n      N = N + 7\r\n      Z(J) = BUF(1)\r\n      CALL READ (*1230,*1240,GEOMP,Z(J+1),6,0,FLAG)\r\n      J = J + 7\r\n      GO TO 5020\r\n 5040 NIND = N/7\r\nC\r\nC     CHECK TO SEE IF THE NUMBER OF INDEPENDENT GRID POINTS\r\nC     IS MORE THAN ONE AND SET TYPE FLAG\r\nC\r\n      ITYPE = -1\r\n      IF (NIND .EQ. 1) GO TO 5050\r\n      ITYPE = 0\r\n      J = KNKL1\r\nC\r\nC     WRITE THE INDEPENDENT GRID POINTS AS A PSEUDO CRIGD2 ELEMENT\r\nC\r\nC\r\nC     WRITE THE ELEMENT ID\r\nC\r\n      CALL WRITE (SCR1,IDR,1,0)\r\nC\r\nC     WRITE THE FIRST INDEPENDENT GRID POINT AND ITS COMPONENT NUMBERS\r\nC\r\n      CALL WRITE (SCR1,Z(J),7,0)\r\nC\r\nC     WRITE THE TYPE FLAG\r\nC\r\n      CALL WRITE (SCR1,ITYPE,1,0)\r\nC\r\nC     WRITE THE REMAINING INDEPENDENT GRID POINTS AND THEIR\r\nC     COMPONENT NUMBERS\r\nC\r\n      J = J + 7\r\n      N = N - 7\r\n      CALL WRITE (SCR1,Z(J),N,0)\r\n      DO 5045 L =1,7\r\n 5045 BUF(L) = -1\r\n      BUF(2) =  0\r\n      CALL WRITE (SCR1,BUF,7,0)\r\n      ITYPE = 1\r\nC\r\nC     WRITE THE FIRST INDEPENDENT GRID POINT AND ALL THE\r\nC     DEPENDENT GRID POINTS AS A PSEUDO CRIGD2 ELEMENT\r\nC\r\n 5050 J = KNKL1\r\nC\r\nC     WRITE THE ELEMENT ID\r\nC\r\n      CALL WRITE (SCR1,IDR,1,0)\r\nC\r\nC     WRITE THE FIRST INDEPENDENT GRID POINT AND ITS COMPONENT NUMBERS\r\nC\r\n      CALL WRITE (SCR1,Z(J),7,0)\r\nC\r\nC     WRITE THE TYPE FLAG\r\nC\r\n      CALL WRITE (SCR1,ITYPE,1,0)\r\nC\r\nC     PROCESS THE DEPENDENT GRID POINTS AND THEIR COMPONENT NUMBERS\r\nC\r\n 5060 CALL READ (*1230,*1240,GEOMP,BUF,7,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 5070\r\n      CALL WRITE (SCR1,BUF,7,0)\r\n      GO TO 5060\r\n 5070 IF (BUF(2) .EQ. -1) MORE = 0\r\n      DO 5080 L = 1,7\r\n 5080 BUF(L) = -1\r\n      BUF(2) =  0\r\n      IF (MORE .EQ. 0) BUF(2) = -1\r\n      CALL WRITE (SCR1,BUF,7,0)\r\n      IF (MORE .EQ. 1) GO TO 5010\r\n      CALL WRITE (SCR1,0,0,1)\r\nC\r\nC     CLOSE SCR1, AND OPEN IT FOR READ\r\nC\r\n      CALL CLOSE (SCR1,1)\r\n      CALL OPEN (*1210,SCR1,Z(BUF4),0)\r\n      IMHERE = 5085\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      GO TO 1732\r\nC\r\nC     *********************************************************\r\nC\r\nC     CRBE3 AND CRSPLINE ELEMENTS ARE PROCESSED HERE\r\nC\r\nC     *********************************************************\r\nC\r\nC     LOCATE CRBE3 DATA ON INPUT FILE\r\nC\r\n 5200 FILE = GEOMP\r\n      IRDG = 8\r\n      CALL LOCATE (*5300,Z(BUF1),CRBE3,FLAG)\r\n      IMHERE = 5200\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      GO TO 5400\r\nC\r\nC     LOCATE CRSPLINE DATA ON INPUT FILE\r\nC\r\n 5300 FILE = GEOMP\r\n      IRDG = 9\r\n      CALL LOCATE (*5800,Z(BUF1),CRSPLI,FLAG)\r\n      IMHERE = 530\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\nC\r\n 5400 J = IRDG-7\r\n      IF (DEBUG) WRITE (NOUT,1005) IRDG\r\n      IF (IPREC .EQ. 1) CALL CRSPLS (*5600,J,MU,KNKL3+1,Z(KNKL1),AGAIN,\r\n     1    N23)\r\n      IF (IPREC .EQ. 2) CALL CRSPLD (*5600,J,MU,KNKL3+1,Z(KNKL1),AGAIN,\r\n     1    N23)\r\n      GO TO (5300,5800), J\r\n 5600 WRITE  (NOUT,5610) UFM\r\n 5610 FORMAT (A23,' 8, INSUFFICIENT CORE FOR CRBE3 OR CRSPLINE RIGID ',\r\n     1       'ELEMENT COMPUTATION')\r\n      NOGO = 1\r\nC\r\nC     *********************************************************\r\nC\r\nC     CRIGDR AND CRROD (RIGID ROD ELEMENTS) ARE PROCESSED HERE\r\nC     (CRROD DATA FORMAT WAS CONVERTED TO CRIGDR FORMAT IN IFS3P)\r\nC\r\nC     *********************************************************\r\nC\r\nC     LOCATE CRIGDR AND CRROD DATA ON INPUT FILE\r\nC\r\n 5800 GENRE= .FALSE.\r\n      NWDS = 4\r\n      FILE = GEOMP\r\n      CALL LOCATE (*5900,Z(BUF1),CRIGDR,FLAG)\r\n      IRDG = 10\r\n      IMHERE = 5800\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\n      GO TO 6000\r\n 5900 FILE = GEOMP\r\n      IRDG = 11\r\n      CALL LOCATE (*7000,Z(BUF1),CRROD,FLAG)\r\n      IMHERE = 5900\r\n      IF (DEBUG) WRITE (NOUT,4400) IMHERE\r\nC\r\nC     ***************************************************************\r\nC\r\nC                  OPEN CORE FORMAT FOR RIGID ROD\r\nC\r\nC      NUMBER OF WORDS                 CONTENTS\r\nC\r\nC           NCSTM    ***     COORDINATE SYSTEM TRANSFORMATION TABLE\r\nC           NBGPDT   ***     BASIC GRIP POINT DEFINITION TABLE\r\nC                    ***     SIL 1 ***\r\nC             3      *       SIL 2   * INDEPENDENT GRID POINT\r\nC                    ***     SIL 3 ***\r\nC                    ***     INDEPENDENT GRID POINT BGPDT TABLE\r\nC             4      *          WORD 1     COORDINATE SYSTEM ID-INTEGER\r\nC                    ***        WORD 2-4   X, Y, Z, IN BASIC SYSTEM-REAL\r\nC                    ***     SIL 1 ***\r\nC             3      *       SIL 2   * DEPENDENT GRID POINT\r\nC                    ***     SIL 3 ***\r\nC             4      ***     DEPENDENT GRID POINT BGPDT TABLE\r\nC                    ***                   ***\r\nC                    *                       *\r\nC                    *  AVAILABLE OPEN CORE  *\r\nC                    *                       *\r\nC                    *                       *\r\nC                    ***                   ***\r\nC                    ***\r\nC           MDEP     *       DEPENDENT SILS\r\nC                    ***\r\nC                    ***\r\nC          BUFFERS   *       GINO BUFFERS\r\nC                    ***\r\nC\r\nC     **************************************************************\r\nC\r\nC\r\nC     CHECK AVAILABILITY OF CORE\r\nC\r\n 6000 CONTINUE\r\n      IF (DEBUG) WRITE (NOUT,1005) IRDG\r\n      ITEST  = KNKL1 + 14 + 27*IPREC + 2\r\n      IF (ITEST .GE. MU) GO TO 1250\r\nC\r\nC     READ ELEMENT DATA\r\nC\r\n 6010 CALL READ (*1230,*7000,GEOMP,BUF,NWDS,0,FLAG)\r\n      IDR   = BUF(1)\r\n      IDEPGP= BUF(3)\r\n      ICOMP = BUF(4)\r\nC\r\nC     PROCESS THE INDEPENDENT GRID POINT\r\nC\r\n      FILE = BGPDT\r\n      J = KNKL1\r\n      GPOINT = BUF(2)\r\n      ASSIGN 6020 TO RET\r\n      ASSIGN 6050 TO RET1\r\n      GO TO 7060\r\nC\r\nC     STORE SIL VALUES\r\nC\r\n 6020 IF (NOGO  .EQ. 0) GO TO 6030\r\n      IF (J .EQ. KNKL1) GO TO 6050\r\n      GO TO 6010\r\n 6030 Z(J  ) = GPOINT\r\n      Z(J+1) = GPOINT + 1\r\n      Z(J+2) = GPOINT + 2\r\n      KINEW  = K - 2*KN\r\nC\r\nC     LOCATE DATA IN BGPDT\r\nC\r\n      IF (AGAIN) GO TO 6035\r\n      KI4 = KNKL3 + KINEW*4\r\n      IF (KI4 .GT. KNKL4) GO TO 1290\r\n      Z(J+3) = Z(KI4-3)\r\n      Z(J+4) = Z(KI4-2)\r\n      Z(J+5) = Z(KI4-1)\r\n      Z(J+6) = Z(KI4  )\r\n      GO TO 6045\r\n 6035 IF (KINEW .GT. KIOLD) GO TO 6040\r\n      CALL BCKREC (BGPDT)\r\n      KIOLD = 0\r\n 6040 KI4 = (KINEW-KIOLD-1) * 4\r\n      IF (KI4 .GT. 0) CALL READ (*1230,*1240,BGPDT,BUF,-KI4,0,FLAG)\r\n      CALL READ (*1230,*1240,BGPDT,BUF,4,0,FLAG)\r\nC\r\nC     STORE BASIC GRID POINT DATA\r\nC\r\n      Z(J+3) = BUF(1)\r\n      Z(J+4) = BUF(2)\r\n      Z(J+5) = BUF(3)\r\n      Z(J+6) = BUF(4)\r\n 6045 KIOLD  = KINEW\r\n      IF (J .NE. KNKL1) GO TO 6060\r\nC\r\nC     PROCESS THE DEPENDENT GRID POINT\r\nC\r\n 6050 J = J + 7\r\n      GPOINT = IDEPGP\r\n      ASSIGN 6010 TO RET1\r\n      GO TO 7060\r\n 6060 IF (IPREC .EQ. 1) CALL CRDRD  (*6065,*6125,MU,ICOMP,N23)\r\n      IF (IPREC .EQ. 2) CALL CRDRD2 (*6065,*6125,MU,ICOMP,N23)\r\n      GO TO 6010\r\n 6065 WRITE  (NOUT,6070) UFM,IDR\r\n 6070 FORMAT (A23,' 3133, RIGID ELEMENT',I9,' HAS ZERO LENGTH')\r\n      NOGO = 1\r\n      GO TO 6010\r\n 6125 WRITE  (NOUT,6130) UFM,IDR\r\n 6130 FORMAT (A23,' 3134, RIGID ELEMENT',I9,' IS NOT PROPERLY DEFINED')\r\n      NOGO = 1\r\n      GO TO 6010\r\nC\r\n 7000 IF (IRDG .EQ. 10) GO TO 5900\r\nC\r\n      IF (AGAIN) CALL CLOSE (BGPDT,CLSREW)\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,NAME)\r\n      CALL WRITE (RGT,0,0,1)\r\nC\r\nC     WRITE A LIST OF DEPENDENT SIL VALUES FOR RIGID ELEMENTS ONTO THE\r\nC     RGT IN SORTED FORM\r\nC\r\n      JRIGID = MU + 1\r\n      M = BUF4 - JRIGID\r\n      CALL SORT  (0,0,1,1,Z(JRIGID),M)\r\n      CALL WRITE (RGT,Z(JRIGID),M,1)\r\n      J = BUF4-1\r\n      IF (DEBUG) WRITE (NOUT,7010) (Z(I),I=JRIGID,J)\r\n 7010 FORMAT (/,'  CRIGGP/@7010  DEPEND.SIL LIST:',/,(5X,10I7))\r\n      KNKL1 = KNKL2\r\nC\r\nC     CLOSE RGT FILE AND RETURN\r\nC\r\n      CALL CLOSE (RGT,CLSREW)\r\n      RETURN\r\nC\r\nC     **********************************************************\r\nC\r\nC     INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH IN EQEXIN\r\nC     AND CONVERT THE EXTERNAL NUMBER TO A SIL VALUE\r\nC\r\n 7060 KLO = 0\r\n      KHI = KN2\r\n      LASTK = 0\r\n 7070 K= (KLO+KHI+1)/2\r\n      IF (LASTK .EQ. K) GO TO 1350\r\n      LASTK = K\r\n      IF (GPOINT-Z(2*K-1)) 7090,7150,7100\r\n 7090 KHI= K\r\n      GO TO 7070\r\n 7100 KLO= K\r\n      GO TO 7070\r\n 7150 K = Z(2*K) + 2*KN\r\n      GPOINT= Z(K)\r\n      GO TO RET, (1740,1750,6020)\r\nC\r\nC     **********************************************************\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1210 J= -1\r\n      GO TO 1260\r\n 1230 J= -2\r\n      GO TO 1260\r\n 1240 J= -3\r\n      GO TO 1260\r\n 1250 IF (AGAIN) GO TO 1280\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      WRITE  (NOUT,1255) IMHERE\r\n 1255 FORMAT (///,' *** CRIGGP/GP4 NEEDS MORE OPEN CORE.',\r\n     1        /5X,' CRIGGP REVERTED TO USE SLOW METHOD',I9,//)\r\n      GO TO 290\r\n 1260 CALL MESAGE (J,FILE,NAME)\r\n 1280 J= -8\r\n      GO TO 1260\r\n 1290 WRITE  (NOUT,1300) KNKL1,KNKL3,KNKL4,KI4\r\n 1300 FORMAT (//,' *** SYSTEM FATAL ERROR IN CRIGGP',4I10)\r\n      J =-61\r\n      GO TO 1260\r\n 1330 NOGO= 1\r\n      CALL MESAGE (30,N,BUF)\r\n      GO TO RET1, (1743,1745,6010,6050)\r\n 1350 IF (GENRE .AND. ITYPE.EQ.1 .AND. NTYPE.EQ.1) GO TO 1743\r\n      BUF(1) = GPOINT\r\n      BUF(2) = IRDG*100000000 + IDR\r\n      N = 151\r\n      GO TO 1330\r\n      END\r\n"
  },
  {
    "path": "mis/crspld.f",
    "content": "      SUBROUTINE CRSPLD (*,JUMP,MU,BP,RS,AGAIN,N23)\r\nC\r\nC     THIS ROUTINE HANDLES CRBE3 AND CRSPLINE RIGID ELEMENTS\r\nC     CALLED ONLY BY CRIGGP SUBROUTINE\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          AGAIN,DEBUG\r\n      INTEGER          MCODE(2),NAME(2),SILD(6),RS(3)\r\n      REAL             Z(1),ZK,WT,DL,COEFF\r\n      DOUBLE PRECISION X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,A(3),B(3),C(3),D(9),\r\n     1                 LEN,LENG,ONE,ZERO,HALF,EPS,ESPX,ANS,DI,FAC,LN3,\r\n     2                 T(36),TX(36),KNN(36),GNN(36),UNN(36),ZNN(36),\r\n     3                 SNN(36),X(36),Y(36),W(6)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /GP4FIL/  GEOMP,BGPDT,CSTM,RGT\r\n      COMMON /GP4PRM/  BUF(20),BUF1,BUF2,BUF3,BUF4,KNKL1,TWO16,NOGO,\r\n     1                 GPOINT,KN\r\n      COMMON /CRSPLX/  X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      EQUIVALENCE      (Z(1),IZ(1)), (WT,IWT ), (DL,IDL ),\r\n     1                 (X1  ,A(1) ), (X2,B(1)), (X3,C(1))\r\n      DATA    ONE,     ZERO,    HALF,    EPS,     TIMES, DEBUG  /\r\n     1        1.0D+0,  0.0D+0,  0.5D+0,  1.0D-10, 0,     .FALSE./\r\n      DATA    CM,CN,   NOGOX,   MASK15,  NAME            /\r\n     1        6 ,12,   0,       32767,   4HCRSP,4HLD     /\r\nC\r\n      IF (AGAIN) RETURN 1\r\n      IF (DEBUG) WRITE (NOUT,10) KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP\r\n   10 FORMAT ('0  CRSPLD DEBUG- KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP=',\r\n     1        /3X,8I7)\r\n      KN2 = KN/2\r\n      CALL SSWTCH (38,L38)\r\nC\r\nC     UNIT MATRIX UNN\r\nC\r\n      DO 20 I = 2,35\r\n   20 UNN( I) = ZERO\r\n      UNN( 1) = ONE\r\n      UNN( 8) = ONE\r\n      UNN(15) = ONE\r\n      UNN(22) = ONE\r\n      UNN(29) = ONE\r\n      UNN(36) = ONE\r\nC\r\nC     JUMP=1 FOR CRBE3 DATA,  JUMP=2 FOR CRSPLINE DATA\r\nC\r\n      IF (JUMP .EQ. 2) GO TO 400\r\nC\r\nC     READ CRBE3 DATA ON INPUT FILE\r\nC     =============================\r\nC\r\nC     CLEAR WORKING SPACE\r\nC     READ INPUT CARD, SAVE BEGINING POINTER, BEGN, AND\r\nC     COUNT NUMBER OF WORDS READ, NWDS, IN FIRST PASS\r\nC     (EACH INPUT CARD WILL BE READ TWICE)\r\nC\r\n      BEGN = 3\r\n   30 PASS = 1\r\n      DO 40 I = 1,36\r\n      T(I)   = ZERO\r\n   40 KNN(I) = ZERO\r\n      CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG)\r\n      NWDS = 3\r\n      IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1)\r\n   50 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED')\r\n      EID    = BUF(1)\r\n      GPOINT = BUF(2)\r\n      ASSIGN 60   TO RETN\r\n      ASSIGN 1000 TO RETN1\r\n      KX = BUF(3)\r\n      NM = CN\r\n      GO TO 950\r\n   60 REFG = K\r\n      SIL  = GPOINT\r\n      DO 70 I = 1,6\r\n   70 SILD(I) = SIL + I - 1\r\n      X2 = Z(K+1)\r\n      Y2 = Z(K+2)\r\n      Z2 = Z(K+3)\r\nC\r\nC     READ WEIGHT FACTORS AND COMPONENTS.\r\nC     GENERATE WEIGHT VECTOR W\r\nC\r\n   80 CALL READ (*1110,*1110,GEOMP,IWT,1,0,FLAG)\r\n      IF (PASS  .EQ.  1) NWDS = NWDS + 1\r\n      IF (IWT   .EQ. -2) GO TO 170\r\n      IF (IWT   .EQ. -3) GO TO 240\r\n      CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG)\r\n      IF (PASS .EQ. 1) NWDS = NWDS + 1\r\n      ASSIGN 90 TO RETN1\r\n      KX = COMP\r\n      NM = CM\r\n      GO TO 950\r\n   90 DO 100 I = 1,6\r\n      W(I) = ZERO\r\n      IF (BUF(CM+I) .NE. 0) W(I) = WT\r\n  100 CONTINUE\r\nC\r\nC     READ GRID POINT, GET TRANSFORMATION MATRIX, AND SUMMING UP\r\nC     WT MATRIX, AND FINALLY KNN MATRIX\r\nC\r\n  110 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG)\r\n      IF (PASS .EQ.  1) NWDS = NWDS + 1\r\n      IF (GRID .EQ. -1) GO TO 80\r\n      ASSIGN 120 TO RETN\r\n      GPOINT = GRID\r\n      GO TO 1000\r\n  120 X1 = Z(K+1)\r\n      Y1 = Z(K+2)\r\n      Z1 = Z(K+3)\r\n      ASSIGN 850 TO RETN2\r\n      ASSIGN 130 TO RETN3\r\n      ZK = Z(K)\r\n      GO TO 800\r\n  130 CALL GMMATD (T,6,6,0, UNN,6,6,0, X)\r\n      IF (PASS .EQ. 2) GO TO 270\r\n      DO 140 I = 1,36\r\n  140 TX(I) = X(I)\r\n      L = 0\r\n      DO 160 I = 1,6\r\n      DO 150 J = 1,6\r\n  150 X(L+J) = X(L+J)*W(I)\r\n  160 L = L + 6\r\n      CALL GMMATD (TX,6,6,-1, X,6,6,0, KNN)\r\nC\r\nC     REPEAT FOR MORE GRID POINT\r\nC\r\n      GO TO 110\r\nC\r\nC     UM SET WAS SPECIFIED BY USER. REBUILD SILD WITH THE UM SET, AND\r\nC     CHECK TOTAL NUMBER OF COMPONENTS FOR POSSIBLE ERROR\r\nC\r\n  170 IF (PASS .EQ. 2) GO TO 310\r\n      JJ = 1\r\n  180 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG)\r\n      NWDS = NWDS + 1\r\n      IF (GRID .EQ. -3) GO TO 240\r\n      CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG)\r\n      NWDS = NWDS + 1\r\n      ASSIGN 190 TO RETN1\r\n      KX = COMP\r\n      NM = CM\r\n      GO TO 950\r\n  190 GPOINT = GRID\r\n      ASSIGN 200 TO RETN\r\n      GO TO 1000\r\n  200 DO 230 I = 1,6\r\n      IF (BUF(CM+ I) .EQ. 0) GO TO 230\r\n      IF (JJ .GT. 6) GO TO 1160\r\n  210 IF (BUF(CN+JJ) .NE. 0) GO TO 220\r\n      JJ = JJ + 1\r\n      IF (JJ .GT. 6) GO TO 1160\r\n      GO TO 210\r\n  220 SILD(JJ) = GPOINT + I - 1\r\n      JJ = JJ + 1\r\n  230 CONTINUE\r\n      GO TO 180\r\n  240 IF (PASS .EQ. 2) GO TO 320\r\nC\r\nC     STORE DIAG TERMS WITH -1.\r\nC     ADD DEPENDENT SIL TO THE END OF OPEN CORE VIA MU POINTER\r\nC\r\n      DO 250 I = 1,6\r\n      IF (BUF(CN+I) .EQ. 0) GO TO 250\r\n      MCODE(1) = SIL + I - 1\r\n      MCODE(2) = SILD(I)\r\n      COEFF    = -1.\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      IZ(MU) = MCODE(2)\r\n      MU = MU - 1\r\n  250 CONTINUE\r\nC\r\nC     GET MATRIX READY FOR SECOND PASS, IN TX\r\nC\r\n      SING = -1\r\n      CALL INVERD (6,KNN,6,0,0,LEN,SING,X)\r\n      IF (SING .EQ. 2) GO TO 1120\r\n      ASSIGN 260 TO RETN2\r\n      ZK = Z(REFG)\r\n      GO TO 800\r\n  260 CALL GMMATD (KNN,6,6,0, T,6,6,0, TX)\r\nC\r\nC     BACK RECORD FOR 2ND PASS\r\nC     SKIP TO WHERE WEIGHT FACTORS BEGIN\r\nC\r\n      CALL BCKREC (GEOMP)\r\n      PASS = 2\r\n      I = BEGN + 3\r\n      CALL READ (*1110,*1110,GEOMP,BUF,-I,0,FLAG)\r\n      GO TO 80\r\nC\r\nC     INSERT THIS GRID MPC EQUATIONS\r\nC\r\n  270 CALL GMMATD (TX,6,6,0, X,6,6,1, KNN)\r\n      DO 280 I = 1,6\r\n      DO 280 J = 1,31,6\r\n      L = I + J - 1\r\n      KNN(L) = KNN(L)*W(I)\r\n  280 CONTINUE\r\n      DO 300 I = 1,6\r\n      IF (BUF(CN+I) .EQ. 0) GO TO 300\r\n      SIL = SILD(I)\r\n      L = (I-1)*6\r\n      DO 290 J = 1,6\r\n      IF (BUF(CM+J) .EQ. 0) GO TO 290\r\n      ANS = KNN(L+J)\r\n      IF (ANS .EQ. ZERO) GO TO 290\r\n      MCODE(1) = GPOINT + J - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\n      GO TO 110\r\nC\r\nC     SKIP TO END OF CARD\r\nC\r\n  310 CALL READ (*1110,*1110,GEOMP,J,1,0,FLAG)\r\n      IF (J .NE. -3) GO TO 310\r\nC\r\nC     UPDATE BEGIN POINTER, AND RETURN FOR ANOTHER CRBE3 CARD\r\nC\r\n  320 BEGN = BEGN + NWDS\r\n      GO TO 30\r\nC\r\nC\r\nC     READ CRSPLINE DATA ON INPUT FILE\r\nC     ================================\r\nC\r\nC     INPUT DATA WILL BE SAVED IN RS ARRAY\r\nC     3 WORDS SAVED FOR EACH GRID - BGPDT POINTER, COMPONENT, AND SIL\r\nC\r\n  400 CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG)\r\n      EID = BUF(1)\r\n      IDL = BUF(2)\r\n      RS(1) = BUF(3)\r\n      RS(2) =-1\r\n      RS(3) = 0\r\n      IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1)\r\n      K = 4\r\n  410 CALL READ (*1110,*1110,GEOMP,RS(K),2,0,FLAG)\r\n      IF (RS(K) .EQ. -1) GO TO 420\r\n      RS(K+2) = 0\r\n      K = K + 3\r\n      IF (K .GT. MU) CALL MESAGE (-8,0,NAME)\r\n      GO TO 410\r\nC\r\nC     END OF INPUT FOR THIS RIGID ELEMENT, NOW COMPUTE LENGTH, INTERNAL\r\nC     NUMBER (BGPDT POINTER), AND CHANGE GRID TO SIL\r\nC\r\n  420 IF (K .LT. 8) GO TO 1100\r\nCWKBD IF (DEBUG) CALL BUG1 ('RS-     ',310,RS,K)\r\n      IEND = K - 1\r\n      LEN = ZERO\r\n      ASSIGN 430 TO RETN\r\nC\r\n      I = 1\r\n  425 GPOINT = RS(I)\r\n      GO TO 1000\r\nC\r\nC     UPON RETURN FROM 1000, K IS BGPDT AND GPOINT IS SIL\r\nC\r\n  430 RS(I  ) = K\r\n      RS(I+2) = GPOINT\r\n      IF (DEBUG) WRITE (NOUT,440) I,GPOINT,K,Z(K+1)\r\n  440 FORMAT (/10X,'@430  I, NEW GPOINT & K=',I4,2I6,E11.3)\r\nC\r\n      IF (I .NE. 1) GO TO 450\r\n      X1 = Z(K+1)\r\n      Y1 = Z(K+2)\r\n      Z1 = Z(K+3)\r\n      GO TO 460\r\n  450 X2 = Z(K+1)\r\n      Y2 = Z(K+2)\r\n      Z2 = Z(K+3)\r\n      LEN= LEN + DSQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2)\r\n      X1 = X2\r\n      Y1 = Y2\r\n      Z1 = Z2\r\n  460 I  = I + 3\r\n      IF (I .LT. IEND) GO TO 425\r\nC\r\n      DI = LEN*DL\r\n      IS = 1\r\n      IF (.NOT.DEBUG) GO TO 480\r\nCWKBD CALL BUG1 ('RS-     ',345,RS,IEND)\r\n      WRITE (NOUT,470) LEN,DI\r\n  470 FORMAT ('0  LEN,DI/@470 =',2D14.5)\r\nC\r\nC     COMPUTATION FOR EACH SEPARATED SPLINE\r\nC     SET NUMBER OF SEGMENTS, NS\r\nC\r\n  480 NS = 0\r\n      DO 490 I = IS,IEND,3\r\n      IF (RS(I+1) .EQ. 0) GO TO 500\r\n  490 NS = NS + 1\r\nC\r\nC     IB = BEGIN,  IE = END,  IS = PRESENT SEGMENT\r\nC     ND = NUMBER OF DEPENDENT POINTS\r\nC\r\nC     ZERO MTRAIX WORKING SPACE KNN ,GNN, AND T\r\nC\r\n  500 IE = I\r\n      IB = IS\r\n      ND = NS - 1\r\n      DO 510 I = 1,36\r\n      KNN(I) = ZERO\r\n      GNN(I) = ZERO\r\n      T(I)   = ZERO\r\n  510 CONTINUE\r\nC\r\nC     COMPUTE FLEXIBILITY MATRIX ZNN AND ITS INVERSE KNN, FOR EACH\r\nC     SPLINE SEGMENT.\r\nC\r\nC     DO 540 I = 1,NS\r\n      I = 0\r\n  515 I = I + 1\r\n      I1 = RS(IS  )\r\n      I2 = RS(IS+3)\r\n      ASSIGN 520 TO RETN4\r\n      GO TO 900\r\n  520 IF (NOGOX .EQ. 1) GO TO 540\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\n      X1 = Z(I2+1)\r\n      Y1 = Z(I2+2)\r\n      Z1 = Z(I2+3)\r\n      X2 = (X2+X1)*HALF\r\n      Y2 = (Y2+Y1)*HALF\r\n      Z2 = (Z2+Z1)*HALF\r\n      I1 = RS(IE)\r\n      X1 = Z(I1+1)\r\n      Y1 = Z(I1+2)\r\n      Z1 = Z(I1+3)\r\nC\r\nC     FORM UNN USING BASIC UNN MATRIX\r\nC     DO NOT DESTROY RIGID TRANSFER MATRIX\r\nC\r\n      ASSIGN 530 TO RETN3\r\n      GO TO 850\r\n  530 CALL GMMATD (UNN,6,6,0, ZNN,6,6,0, SNN)\r\nC\r\nC     SUM INTO KNN\r\nC\r\n      CALL GMMATD (SNN,6,6,-2, UNN,6,6,1, KNN)\r\n  540 IS = IS + 3\r\n      IF (I .LT. NS) GO TO 515\r\nC\r\n      IF (NOGOX .EQ. 1) GO TO 730\r\nC\r\nC     INVERT KNN\r\nC\r\n      SING = -1\r\n      CALL INVERD (6,KNN,6,0,0,LEN,SING,SNN)\r\n      IF (SING .EQ. 2) GO TO 1120\r\nC\r\nC     LOOP FOR FINAL CONSTRAINT EQUATIONS\r\nC\r\n      IS = IB\r\n      JS = RS(IS)\r\n      II = 0\r\n  545 II = II + 1\r\n      I1 = RS(IS)\r\n      ID = IS + 3\r\n      I2 = RS(ID)\r\n      ASSIGN 550 TO RETN4\r\n      GO TO 900\r\n  550 X1 = Z(I2+1)\r\n      Y1 = Z(I2+2)\r\n      Z1 = Z(I2+3)\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\n      X3 = Z(I2+1)\r\n      Y3 = Z(I2+2)\r\n      Z3 = Z(I2+3)\r\n      X2 = (X2+X3)*HALF\r\n      Y2 = (Y2+Y3)*HALF\r\n      Z2 = (Z2+Z3)*HALF\r\nC\r\nC     Y I+1 I X   S I+1 S\r\nC\r\n      ASSIGN 560 TO RETN3\r\n      GO TO 850\r\n  560 CALL GMMATD (UNN,6,6,0, ZNN,6,6,0, SNN)\r\n      CALL GMMATD (SNN,6,6,0, UNN,6,6,1,   Y)\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\nC\r\nC     S I+1 I X GIN\r\nC\r\n      ASSIGN 570 TO RETN3\r\n      GO TO 850\r\n  570 CALL GMMATD (UNN,6,6,0, GNN,6,6,0, SNN)\r\n      I3 = RS(IE)\r\n      X3 = Z(I3+1)\r\n      Y3 = Z(I3+2)\r\n      Z3 = Z(I3+3)\r\n      X2 = Z(JS+1)\r\n      Y2 = Z(JS+2)\r\n      Z2 = Z(JS+3)\r\nC\r\nC     GNN = G I+1 N\r\nC\r\n      ASSIGN 580 TO RETN3\r\n      GO TO 860\r\n  580 CALL GMMATD (Y  ,6,6,0, UNN,6,6,1, ZNN)\r\n      CALL GMMATD (ZNN,6,6,0, KNN,6,6,0, GNN)\r\n      DO 590 J = 1,36\r\n  590 GNN(J) = GNN(J) + SNN(J)\r\nC\r\nC     Y = G I+1 1\r\nC\r\n      ASSIGN 600 TO RETN3\r\n      GO TO 870\r\n  600 CALL GMMATD (GNN,6,6,0, UNN,6,6,0, SNN)\r\n      ASSIGN 610 TO RETN3\r\n      GO TO 850\r\n  610 DO 620 J = 1,36\r\n  620 Y(J) = UNN(J) - SNN(J)\r\nC\r\nC     TRANSFORM TO GLOBAL AND STORE ANSWERS IN Y AND SNN\r\nC\r\n      ASSIGN 630 TO RETN2\r\n      ZK = Z(I2)\r\n      GO TO 800\r\n  630 CALL GMMATD (T,6,6,1, Y  ,6,6,0, SNN)\r\n      CALL GMMATD (T,6,6,1, GNN,6,6,0, ZNN)\r\n      ASSIGN 640 TO RETN2\r\n      ZK = Z(JS)\r\n      GO TO 800\r\n  640 CALL GMMATD (SNN,6,6,0, T,6,6,0, Y)\r\n      ASSIGN 650 TO RETN2\r\n      ZK = Z(I3)\r\n      GO TO 800\r\n  650 CALL GMMATD (ZNN,6,6,0, T,6,6,0, SNN)\r\nC\r\nC     Y = G I 1  SNN = G I N\r\nC\r\n      ASSIGN 660 TO RETN1\r\n      KX = RS(ID+1)\r\n      NM = CM\r\n      GO TO 950\r\nC\r\nC     ADD DEPENDENT TO LIST AND MPC EQUATIONS TO RGT\r\nC\r\n  660 IF (.NOT.DEBUG) GO TO 680\r\n      WRITE (NOUT,670) Y\r\n      WRITE (NOUT,670) SNN\r\n  670 FORMAT ('0  CRSPLD/@670',/,(2X,10D12.4))\r\n  680 DO 710 J = 1,6\r\n      IF (BUF(CM+J) .EQ. 0) GO TO 710\r\nC\r\nC     SELF TERM FOR DEPENDENT SIL\r\nC\r\n      SIL = RS(ID+2) + J - 1\r\n      MCODE(1) = SIL\r\n      MCODE(2) = SIL\r\n      COEFF    = -1.\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      IZ(MU) = MCODE(2)\r\n      MU = MU - 1\r\n      IF (II .GE. MU) CALL MESAGE (-8,0,NAME)\r\n      LL = (J-1)*6\r\nC\r\nC     END ONE DEPENDENT\r\nC\r\n      DO 690 L = 1,6\r\n      ANS = Y(LL+L)\r\nC\r\nC     TEST FOR COMPUTED ZERO\r\nC\r\n      ESPX = EPS\r\n      IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG\r\n      IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG\r\n      IF (DABS(ANS) .LT. ESPX) GO TO 690\r\n      MCODE(1) = RS(IB+2) + L - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  690 CONTINUE\r\nC\r\nC     END N INDEPENDENT\r\nC\r\n      DO 700 L = 1,6\r\n      ANS = SNN(LL+L)\r\nC\r\nC     TEST FOR COMPUTED ZERO\r\nC\r\n      ESPX = EPS\r\n      IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG\r\n      IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG\r\n      IF (DABS(ANS) .LT. ESPX) GO TO 700\r\n      MCODE(1) = RS(IE+2) + L - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  700 CONTINUE\r\n  710 CONTINUE\r\nC\r\n      IS = IS + 3\r\n      IF (II .LT. ND) GO TO 545\r\nC\r\nC     END BIG DO (720) LOOP\r\nC\r\n  730 IF (IE+2 .GE. IEND) GO TO 400\r\n      IS = IE\r\n      RS(IS+1) = -1\r\n      GO TO 480\r\nC\r\nC     ----------------------------------------------------\r\nC\r\nC     INTERNAL ROUTINE TO BUILD 6X6 BASIC TO GLOBAL MATRIX\r\nC     (T = 0 ON ENTRY)\r\nC\r\n  800 CALL TRANSD (ZK,D)\r\n      J = 1\r\n      DO 810 I = 1,15,6\r\n      T(I   ) = D(J  )\r\n      T(I+ 1) = D(J+1)\r\n      T(I+ 2) = D(J+2)\r\n      T(I+21) = D(J  )\r\n      T(I+22) = D(J+1)\r\n      T(I+23) = D(J+2)\r\n  810 J = J + 3\r\n      GO TO RETN2, (260,850,630,640,650)\r\nC\r\nC     INTERNAL ROUTINE TO MAKE RIGID BODY TRANSFER MATRIX FOR CRSPLINES\r\nC     (UNN = IDENTITY MATRIX ON ENTRY)\r\nC\r\n  850 UNN( 5) = A(3) - B(3)\r\n      UNN( 6) = B(2) - A(2)\r\n      UNN(10) = B(3) - A(3)\r\n      UNN(12) = A(1) - B(1)\r\n      UNN(16) = A(2) - B(2)\r\n      UNN(17) = B(1) - A(1)\r\n      GO TO 880\r\n  860 UNN( 5) = C(3) - A(3)\r\n      UNN( 6) = A(2) - C(2)\r\n      UNN(10) = A(3) - C(3)\r\n      UNN(12) = C(1) - A(1)\r\n      UNN(16) = C(2) - A(2)\r\n      UNN(17) = A(1) - C(1)\r\n      GO TO 880\r\n  870 UNN( 5) = C(3) - B(3)\r\n      UNN( 6) = B(2) - C(2)\r\n      UNN(10) = B(3) - C(3)\r\n      UNN(12) = C(1) - B(1)\r\n      UNN(16) = C(2) - B(2)\r\n      UNN(17) = B(1) - C(1)\r\n  880 GO TO RETN3, (130,530,560,570,580,600,610)\r\nC\r\nC     INTERNAL ROUTINE TO FORM FLEXIBILITY MATRIX FOR CRSPLINE\r\nC\r\n  900 DO 910 I = 1,36\r\n  910 ZNN(I) = ZERO\r\n      X1 = Z(I1+1)\r\n      Y1 = Z(I1+2)\r\n      Z1 = Z(I1+3)\r\n      X2 = Z(I2+1)\r\n      Y2 = Z(I2+2)\r\n      Z2 = Z(I2+3)\r\n      LENG = DSQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2)\r\n      IF (LENG .EQ. ZERO) GO TO 930\r\n      ZNN(22) = LENG\r\n      ZNN(29) = LENG\r\n      ZNN(36) = LENG\r\n      FAC = LENG/12.0D+0*((3.0D+0*DI**2)/(2.0D+0*LENG**2)-ONE)\r\n      LN3 = LENG**3/12.0D+0\r\n      ZNN( 1) = LN3 + FAC*(X2-X1)**2\r\n      ZNN( 2) = FAC*(X2-X1)*(Y2-Y1)\r\n      ZNN( 3) = FAC*(X2-X1)*(Z2-Z1)\r\n      ZNN( 7) = ZNN(2)\r\n      ZNN( 8) = LN3 + FAC*(Y2-Y1)**2\r\n      ZNN( 9) = FAC*(Y2-Y1)*(Z2-Z1)\r\n      ZNN(13) = ZNN(3)\r\n      ZNN(14) = ZNN(9)\r\n      ZNN(15) = LN3 + FAC*(Z2-Z1)**2\r\n  920 GO TO RETN4, (520,550)\r\n  930 CALL MESAGE (30,31,EID)\r\n      NOGOX = 1\r\n      GO TO 920\r\nC\r\nC     INTERNAL ROUTINE TO ABSTRACT CODED DOF\r\nC\r\n  950 DO 960 I = 1,6\r\n      BUF(NM+I) = 0\r\n  960 CONTINUE\r\n      IF (KX .LE. 0) GO TO 980\r\n      DO 970 I = 1,6\r\n      K1 = KX/10\r\n      K2 = KX - K1*10\r\n      IF (K2 .GT. 6) GO TO 980\r\n      BUF(NM+K2) = K2\r\n      IF (K1 .EQ. 0) GO TO 980\r\n  970 KX = K1\r\n  980 GO TO RETN1, (90,190,1000,660)\r\nC\r\nC     INTERNAL ROUTINE TO PERFORM BINARY SEARCH IN EQEXIN AND\r\nC     CONVERT THE EXTERNAL NUMBER TO A SIL VALUE\r\nC\r\n 1000 KLO = 0\r\n      KHI = KN2\r\n      LASTK = 0\r\n 1010 K = (KLO+KHI+1)/2\r\n      IF (LASTK .EQ. K) GO TO 1140\r\n      LASTK = K\r\n      IF (GPOINT-IZ(2*K-1)) 1020,1040,1030\r\n 1020 KHI = K\r\n      GO TO 1010\r\n 1030 KLO = K\r\n      GO TO 1010\r\n 1040 K = IZ(2*K)\r\n      GPOINT = IZ(K+2*KN)\r\n      K = (K-1)*4 + BP\r\n      IF (GPOINT+5 .GT. MASK15) N23 = 3\r\n      GO TO RETN, (60,120,200,430)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1100 MSG = 131\r\n      GO TO 1130\r\n 1110 CALL MESAGE (-3,GEOMP,NAME)\r\n 1120 MSG = 38\r\n 1130 CALL MESAGE (30,MSG,EID)\r\n      GO TO 1180\r\n 1140 WRITE  (NOUT,1150) UFM,GPOINT,EID\r\n 1150 FORMAT (A23,', UNDEFINED GRID POINT',I9,' SPECIFIED BY RIGID ',\r\n     1       'ELEMENT ID',I9)\r\n      TIMES = TIMES + 1\r\n      IF (TIMES .GT. 50) CALL MESAGE (-37,0,NAME)\r\n      GO TO 1180\r\n 1160 WRITE  (NOUT,1170) UFM,EID\r\n 1170 FORMAT (A23,', RIGID ELEMENT CRBE3',I9,' HAS ILLEGAL UM SET ',\r\n     1        'SPECIFICATION')\r\n      GO TO 1190\r\nC\r\n 1180 NOGO  = 1\r\n      NOGOX = 0\r\n      GO TO (30,400), JUMP\r\nC\r\nC     REPOSITION GEOMP FILE FOR NEXT CRBE3 INPUT CARD\r\nC\r\n 1190 NOGO  = 1\r\n      NOGOX = 0\r\n      CALL BCKREC (GEOMP)\r\n      I = BEGN + 1\r\n      CALL READ (*1110,*1110,GEOMP,J,-I,0,FLAG)\r\n 1200 CALL READ (*1110,*1110,GEOMP,J, 1,0,FLAG)\r\n      I = I + 1\r\n      IF (J .NE. -3) GO TO 1200\r\n      BEGN = I\r\n      GO TO 30\r\nC\r\n 1300 IF (NOGOX .EQ. 1) NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/crspls.f",
    "content": "      SUBROUTINE CRSPLS (*,JUMP,MU,BP,RS,AGAIN,N23)\r\nC\r\nC     THIS ROUTINE HANDLES CRBE3 AND CRSPLINE RIGID ELEMENTS\r\nC     CALLED ONLY BY CRIGGP SUBROUTINE\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          AGAIN,DEBUG\r\n      INTEGER          MCODE(2),NAME(2),SILD(6),RS(3)\r\n      REAL             Z(1),ZK,WT,DL,COEFF\r\n      REAL             X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,A(3),B(3),C(3),D(9),\r\n     1                 LEN,LENG,ONE,ZERO,HALF,EPS,ESPX,ANS,DI,FAC,LN3,\r\n     2                 T(36),TX(36),KNN(36),GNN(36),UNN(36),ZNN(36),\r\n     3                 SNN(36),X(36),Y(36),W(6)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /GP4FIL/  GEOMP,BGPDT,CSTM,RGT\r\n      COMMON /GP4PRM/  BUF(20),BUF1,BUF2,BUF3,BUF4,KNKL1,TWO16,NOGO,\r\n     1                 GPOINT,KN\r\n      COMMON /CRSPLY/  X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      EQUIVALENCE      (Z(1),IZ(1)), (WT,IWT ), (DL,IDL ),\r\n     1                 (X1  ,A(1) ), (X2,B(1)), (X3,C(1))\r\n      DATA    ONE,     ZERO,    HALF,    EPS,     TIMES, DEBUG  /\r\n     1        1.0,     0.0,     0.5,     1.0E-10, 0,     .FALSE./\r\n      DATA    CM,CN,   NOGOX,   MASK15,  NAME            /\r\n     1        6 ,12,   0,       32767,   4HCRSP,4HLS     /\r\nC\r\n      IF (AGAIN) RETURN 1\r\n      IF (DEBUG) WRITE (NOUT,10) KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP\r\n   10 FORMAT ('0  CRSPLS DEBUG- KN,KNKL1,BP,GEOMP,BGPDT,CSTM,RGT,JUMP=',\r\n     1        /3X,8I7)\r\n      KN2 = KN/2\r\n      CALL SSWTCH (38,L38)\r\nC\r\nC     UNIT MATRIX UNN\r\nC\r\n      DO 20 I = 2,35\r\n   20 UNN( I) = ZERO\r\n      UNN( 1) = ONE\r\n      UNN( 8) = ONE\r\n      UNN(15) = ONE\r\n      UNN(22) = ONE\r\n      UNN(29) = ONE\r\n      UNN(36) = ONE\r\nC\r\nC     JUMP = 1 FOR CRBE3 DATA,  JUMP = 2 FOR CRSPLINE DATA\r\nC\r\n      IF (JUMP .EQ. 2) GO TO 400\r\nC\r\nC     READ CRBE3 DATA ON INPUT FILE\r\nC     =============================\r\nC\r\nC     CLEAR WORKING SPACE\r\nC     READ INPUT CARD, SAVE BEGINING POINTER, BEGN, AND\r\nC     COUNT NUMBER OF WORDS READ, NWDS, IN FIRST PASS\r\nC     (EACH INPUT CARD WILL BE READ TWICE)\r\nC\r\n      BEGN = 3\r\n   30 PASS = 1\r\n      DO 40 I = 1,36\r\n      T(I)   = ZERO\r\n   40 KNN(I) = ZERO\r\n      CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG)\r\n      NWDS = 3\r\n      IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1)\r\n   50 FORMAT (5X,'ELEMENT',I8,' IS BEING PROCESSED')\r\n      EID    = BUF(1)\r\n      GPOINT = BUF(2)\r\n      ASSIGN 60   TO RETN\r\n      ASSIGN 1000 TO RETN1\r\n      KX = BUF(3)\r\n      NM = CN\r\n      GO TO 950\r\n   60 REFG = K\r\n      SIL  = GPOINT\r\n      DO 70 I = 1,6\r\n   70 SILD(I) = SIL + I - 1\r\n      X2 = Z(K+1)\r\n      Y2 = Z(K+2)\r\n      Z2 = Z(K+3)\r\nC\r\nC     READ WEIGHT FACTORS AND COMPONENTS.\r\nC     GENERATE WEIGHT VECTOR W\r\nC\r\n   80 CALL READ (*1110,*1110,GEOMP,IWT,1,0,FLAG)\r\n      IF (PASS  .EQ.  1) NWDS = NWDS + 1\r\n      IF (IWT   .EQ. -2) GO TO 170\r\n      IF (IWT   .EQ. -3) GO TO 240\r\n      CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG)\r\n      IF (PASS .EQ. 1) NWDS = NWDS + 1\r\n      ASSIGN 90 TO RETN1\r\n      KX = COMP\r\n      NM = CM\r\n      GO TO 950\r\n   90 DO 100 I = 1,6\r\n      W(I) = ZERO\r\n      IF (BUF(CM+I) .NE. 0) W(I) = WT\r\n  100 CONTINUE\r\nC\r\nC     READ GRID POINT, GET TRANSFORMATION MATRIX, AND SUMMING UP\r\nC     WT MATRIX, AND FINALLY KNN MATRIX\r\nC\r\n  110 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG)\r\n      IF (PASS .EQ.  1) NWDS = NWDS + 1\r\n      IF (GRID .EQ. -1) GO TO 80\r\n      ASSIGN 120 TO RETN\r\n      GPOINT = GRID\r\n      GO TO 1000\r\n  120 X1 = Z(K+1)\r\n      Y1 = Z(K+2)\r\n      Z1 = Z(K+3)\r\n      ASSIGN 850 TO RETN2\r\n      ASSIGN 130 TO RETN3\r\n      ZK = Z(K)\r\n      GO TO 800\r\n  130 CALL GMMATS (T,6,6,0, UNN,6,6,0, X)\r\n      IF (PASS .EQ. 2) GO TO 270\r\n      DO 140 I = 1,36\r\n  140 TX(I) = X(I)\r\n      L = 0\r\n      DO 160 I = 1,6\r\n      DO 150 J = 1,6\r\n  150 X(L+J) = X(L+J)*W(I)\r\n  160 L = L + 6\r\n      CALL GMMATS (TX,6,6,-1, X,6,6,0, KNN)\r\nC\r\nC     REPEAT FOR MORE GRID POINT\r\nC\r\n      GO TO 110\r\nC\r\nC     UM SET WAS SPECIFIED BY USER. REBUILD SILD WITH THE UM SET, AND\r\nC     CHECK TOTAL NUMBER OF COMPONENTS FOR POSSIBLE ERROR\r\nC\r\n  170 IF (PASS .EQ. 2) GO TO 310\r\n      JJ = 1\r\n  180 CALL READ (*1110,*1110,GEOMP,GRID,1,0,FLAG)\r\n      NWDS = NWDS + 1\r\n      IF (GRID .EQ. -3) GO TO 240\r\n      CALL READ (*1110,*1110,GEOMP,COMP,1,0,FLAG)\r\n      NWDS = NWDS + 1\r\n      ASSIGN 190 TO RETN1\r\n      KX = COMP\r\n      NM = CM\r\n      GO TO 950\r\n  190 GPOINT = GRID\r\n      ASSIGN 200 TO RETN\r\n      GO TO 1000\r\n  200 DO 230 I = 1,6\r\n      IF (BUF(CM+ I) .EQ. 0) GO TO 230\r\n      IF (JJ .GT. 6) GO TO 1160\r\n  210 IF (BUF(CN+JJ) .NE. 0) GO TO 220\r\n      JJ = JJ + 1\r\n      IF (JJ .GT. 6) GO TO 1160\r\n      GO TO 210\r\n  220 SILD(JJ) = GPOINT + I - 1\r\n      JJ = JJ + 1\r\n  230 CONTINUE\r\n      GO TO 180\r\n  240 IF (PASS .EQ. 2) GO TO 320\r\nC\r\nC     STORE DIAG TERMS WITH -1.\r\nC     ADD DEPENDENT SIL TO THE END OF OPEN CORE VIA MU POINTER\r\nC\r\n      DO 250 I = 1,6\r\n      IF (BUF(CN+I) .EQ. 0) GO TO 250\r\n      MCODE(1) = SIL + I - 1\r\n      MCODE(2) = SILD(I)\r\n      COEFF    = -1.\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      IZ(MU) = MCODE(2)\r\n      MU = MU - 1\r\n  250 CONTINUE\r\nC\r\nC     GET MATRIX READY FOR SECOND PASS, IN TX\r\nC\r\n      SING = -1\r\n      CALL INVERS (6,KNN,6,0,0,LEN,SING,X)\r\n      IF (SING .EQ. 2) GO TO 1120\r\n      ASSIGN 260 TO RETN2\r\n      ZK = Z(REFG)\r\n      GO TO 800\r\n  260 CALL GMMATS (KNN,6,6,0, T,6,6,0, TX)\r\nC\r\nC     BACK RECORD FOR 2ND PASS\r\nC     SKIP TO WHERE WEIGHT FACTORS BEGIN\r\nC\r\n      CALL BCKREC (GEOMP)\r\n      PASS = 2\r\n      I = BEGN + 3\r\n      CALL READ (*1110,*1110,GEOMP,BUF,-I,0,FLAG)\r\n      GO TO 80\r\nC\r\nC     INSERT THIS GRID MPC EQUATIONS\r\nC\r\n  270 CALL GMMATS (TX,6,6,0, X,6,6,1, KNN)\r\n      DO 280 I = 1,6\r\n      DO 280 J = 1,31,6\r\n      L = I + J - 1\r\n      KNN(L) = KNN(L)*W(I)\r\n  280 CONTINUE\r\n      DO 300 I = 1,6\r\n      IF (BUF(CN+I) .EQ. 0) GO TO 300\r\n      SIL = SILD(I)\r\n      L = (I-1)*6\r\n      DO 290 J = 1,6\r\n      IF (BUF(CM+J) .EQ. 0) GO TO 290\r\n      ANS = KNN(L+J)\r\n      IF (ANS .EQ. ZERO) GO TO 290\r\n      MCODE(1) = GPOINT + J - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\n      GO TO 110\r\nC\r\nC     SKIP TO END OF CARD\r\nC\r\n  310 CALL READ (*1110,*1110,GEOMP,J,1,0,FLAG)\r\n      IF (J .NE. -3) GO TO 310\r\nC\r\nC     UPDATE BEGIN POINTER, AND RETURN FOR ANOTHER RBE3 CARD\r\nC\r\n  320 BEGN = BEGN + NWDS\r\n      GO TO 30\r\nC\r\nC\r\nC     READ CRSPLINE DATA ON INPUT FILE\r\nC     ================================\r\nC\r\nC     INPUT DATA WILL BE SAVED IN RS ARRAY\r\nC     3 WORDS SAVED FOR EACH GRID - BGPDT POINTER, COMPONENT, AND SIL\r\nC\r\n  400 CALL READ (*1300,*1300,GEOMP,BUF,3,0,FLAG)\r\n      EID = BUF(1)\r\n      IDL = BUF(2)\r\n      RS(1) = BUF(3)\r\n      RS(2) =-1\r\n      RS(3) = 0\r\n      IF (DEBUG .OR. L38.EQ.1) WRITE (NOUT,50) BUF(1)\r\n      K = 4\r\n  410 CALL READ (*1110,*1110,GEOMP,RS(K),2,0,FLAG)\r\n      IF (RS(K) .EQ. -1) GO TO 420\r\n      RS(K+2) = 0\r\n      K = K + 3\r\n      IF (K .GT. MU) CALL MESAGE (-8,0,NAME)\r\n      GO TO 410\r\nC\r\nC     END OF INPUT FOR THIS RIGID ELEMENT, NOW COMPUTE LENGTH, INTERNAL\r\nC     NUMBER (BGPDT POINTER), AND CHANGE GRID TO SIL\r\nC\r\n  420 IF (K .LT. 8) GO TO 1100\r\n      IF (DEBUG) CALL BUG1 ('RS-     ',310,RS,K)\r\n      IEND = K - 1\r\n      LEN  = ZERO\r\n      ASSIGN 430 TO RETN\r\nC\r\nC     DO 460 I = 1,IEND,3\r\n      I = 1\r\n  425 GPOINT = RS(I)\r\n      GO TO 1000\r\nC\r\nC     UPON RETURN FROM 1000, K IS BGPDT AND GPOINT IS SIL\r\nC\r\n  430 RS(I  ) = K\r\n      RS(I+2) = GPOINT\r\n      IF (DEBUG) WRITE (NOUT,440) I,GPOINT,K,Z(K+1)\r\n  440 FORMAT (/10X,'@430  I, NEW GPOINT & K=',I4,2I6,E11.3)\r\nC\r\n      IF (I .NE. 1) GO TO 450\r\n      X1 = Z(K+1)\r\n      Y1 = Z(K+2)\r\n      Z1 = Z(K+3)\r\n      GO TO 460\r\n  450 X2 = Z(K+1)\r\n      Y2 = Z(K+2)\r\n      Z2 = Z(K+3)\r\n      LEN= LEN + SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2)\r\n      X1 = X2\r\n      Y1 = Y2\r\n      Z1 = Z2\r\n  460 I  = I + 3\r\n      IF (I .LT. IEND) GO TO 425\r\nC\r\n      DI = LEN*DL\r\n      IS = 1\r\n      IF (.NOT.DEBUG) GO TO 480\r\n      CALL BUG1 ('RS-     ',345,RS,IEND)\r\n      WRITE  (NOUT,470) LEN,DI\r\n  470 FORMAT ('0  LEN,DI/@470 =',2E14.5)\r\nC\r\nC     COMPUTATION FOR EACH SEPARATED SPLINE\r\nC     SET NUMBER OF SEGMENTS, NS\r\nC\r\n  480 NS = 0\r\n      DO 490 I = IS,IEND,3\r\n      IF (RS(I+1) .EQ. 0) GO TO 500\r\n  490 NS = NS + 1\r\nC\r\nC     IB = BEGIN,  IE = END,  IS = PRESENT SEGMENT\r\nC     ND = NUMBER OF DEPENDENT POINTS\r\nC\r\nC     ZERO MTRAIX WORKING SPACE KNN ,GNN, AND T\r\nC\r\n  500 IE = I\r\n      IB = IS\r\n      ND = NS - 1\r\n      DO 510 I = 1,36\r\n      KNN(I) = ZERO\r\n      GNN(I) = ZERO\r\n      T(I)   = ZERO\r\n  510 CONTINUE\r\nC\r\nC     COMPUTE FLEXIBILITY MATRIX ZNN AND ITS INVERSE KNN, FOR EACH\r\nC     SPLINE SEGMENT.\r\nC\r\nC     DO 540 I = 1,NS\r\n      I = 0\r\n  515 I = I + 1\r\n      I1 = RS(IS  )\r\n      I2 = RS(IS+3)\r\n      ASSIGN 520 TO RETN4\r\n      GO TO 900\r\n  520 IF (NOGOX .EQ. 1) GO TO 540\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\n      X1 = Z(I2+1)\r\n      Y1 = Z(I2+2)\r\n      Z1 = Z(I2+3)\r\n      X2 = (X2+X1)*HALF\r\n      Y2 = (Y2+Y1)*HALF\r\n      Z2 = (Z2+Z1)*HALF\r\n      I1 = RS(IE)\r\n      X1 = Z(I1+1)\r\n      Y1 = Z(I1+2)\r\n      Z1 = Z(I1+3)\r\nC\r\nC     FORM UNN USING BASIC UNN MATRIX\r\nC     DO NOT DESTROY RIGID TRANSFER MATRIX\r\nC\r\n      ASSIGN 530 TO RETN3\r\n      GO TO 850\r\n  530 CALL GMMATS (UNN,6,6,0, ZNN,6,6,0, SNN)\r\nC\r\nC     SUM INTO KNN\r\nC\r\n      CALL GMMATS (SNN,6,6,-2, UNN,6,6,1, KNN)\r\n  540 IS = IS + 3\r\n      IF (I .LT. NS) GO TO 515\r\nC\r\n      IF (NOGOX .EQ. 1) GO TO 730\r\nC\r\nC     INVERT KNN\r\nC\r\n      SING = -1\r\n      CALL INVERS (6,KNN,6,0,0,LEN,SING,SNN)\r\n      IF (SING .EQ. 2) GO TO 1120\r\nC\r\nC     LOOP FOR FINAL CONSTRAINT EQUATIONS\r\nC\r\n      IS = IB\r\n      JS = RS(IS)\r\n      II = 0\r\n  545 II = II + 1\r\n      I1 = RS(IS)\r\n      ID = IS + 3\r\n      I2 = RS(ID)\r\n      ASSIGN 550 TO RETN4\r\n      GO TO 900\r\n  550 X1 = Z(I2+1)\r\n      Y1 = Z(I2+2)\r\n      Z1 = Z(I2+3)\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\n      X3 = Z(I2+1)\r\n      Y3 = Z(I2+2)\r\n      Z3 = Z(I2+3)\r\n      X2 = (X2+X3)*HALF\r\n      Y2 = (Y2+Y3)*HALF\r\n      Z2 = (Z2+Z3)*HALF\r\nC\r\nC     Y I+1 I X   S I+1 S\r\nC\r\n      ASSIGN 560 TO RETN3\r\n      GO TO 850\r\n  560 CALL GMMATS (UNN,6,6,0, ZNN,6,6,0, SNN)\r\n      CALL GMMATS (SNN,6,6,0, UNN,6,6,1,   Y)\r\n      X2 = Z(I1+1)\r\n      Y2 = Z(I1+2)\r\n      Z2 = Z(I1+3)\r\nC\r\nC     S I+1 I X GIN\r\nC\r\n      ASSIGN 570 TO RETN3\r\n      GO TO 850\r\n  570 CALL GMMATS (UNN,6,6,0, GNN,6,6,0, SNN)\r\n      I3 = RS(IE)\r\n      X3 = Z(I3+1)\r\n      Y3 = Z(I3+2)\r\n      Z3 = Z(I3+3)\r\n      X2 = Z(JS+1)\r\n      Y2 = Z(JS+2)\r\n      Z2 = Z(JS+3)\r\nC\r\nC     GNN = G I+1 N\r\nC\r\n      ASSIGN 580 TO RETN3\r\n      GO TO 860\r\n  580 CALL GMMATS (Y  ,6,6,0, UNN,6,6,1, ZNN)\r\n      CALL GMMATS (ZNN,6,6,0, KNN,6,6,0, GNN)\r\n      DO 590 J = 1,36\r\n  590 GNN(J) = GNN(J) + SNN(J)\r\nC\r\nC     Y = G I+1 1\r\nC\r\n      ASSIGN 600 TO RETN3\r\n      GO TO 870\r\n  600 CALL GMMATS (GNN,6,6,0, UNN,6,6,0, SNN)\r\n      ASSIGN 610 TO RETN3\r\n      GO TO 850\r\n  610 DO 620 J = 1,36\r\n  620 Y(J) = UNN(J) - SNN(J)\r\nC\r\nC     TRANSFORM TO GLOBAL AND STORE ANSWERS IN Y AND SNN\r\nC\r\n      ASSIGN 630 TO RETN2\r\n      ZK = Z(I2)\r\n      GO TO 800\r\n  630 CALL GMMATS (T,6,6,1, Y  ,6,6,0, SNN)\r\n      CALL GMMATS (T,6,6,1, GNN,6,6,0, ZNN)\r\n      ASSIGN 640 TO RETN2\r\n      ZK = Z(JS)\r\n      GO TO 800\r\n  640 CALL GMMATS (SNN,6,6,0, T,6,6,0, Y)\r\n      ASSIGN 650 TO RETN2\r\n      ZK = Z(I3)\r\n      GO TO 800\r\n  650 CALL GMMATS (ZNN,6,6,0, T,6,6,0, SNN)\r\nC\r\nC     Y = G I 1  SNN = G I N\r\nC\r\n      ASSIGN 660 TO RETN1\r\n      KX = RS(ID+1)\r\n      NM = CM\r\n      GO TO 950\r\nC\r\nC     ADD DEPENDENT TO LIST AND MPC EQUATIONS TO RGT\r\nC\r\n  660 IF (.NOT.DEBUG) GO TO 680\r\n      WRITE (NOUT,670) Y\r\n      WRITE (NOUT,670) SNN\r\n  670 FORMAT ('0  CRSPLS/@670',/,(2X,10E12.4))\r\n  680 DO 710 J = 1,6\r\n      IF (BUF(CM+J) .EQ. 0) GO TO 710\r\nC\r\nC     SELF TERM FOR DEPENDENT SIL\r\nC\r\n      SIL = RS(ID+2) + J - 1\r\n      MCODE(1) = SIL\r\n      MCODE(2) = SIL\r\n      COEFF    = -1.\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n      IZ(MU) = MCODE(2)\r\n      MU = MU - 1\r\n      IF (II .GE. MU) CALL MESAGE (-8,0,NAME)\r\n      LL = (J-1)*6\r\nC\r\nC     END ONE DEPENDENT\r\nC\r\n      DO 690 L = 1,6\r\n      ANS = Y(LL+L)\r\nC\r\nC     TEST FOR COMPUTED ZERO\r\nC\r\n      ESPX = EPS\r\n      IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG\r\n      IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG\r\n      IF (ABS(ANS) .LT. ESPX) GO TO 690\r\n      MCODE(1) = RS(IB+2) + L - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  690 CONTINUE\r\nC\r\nC     END N INDEPENDENT\r\nC\r\n      DO 700 L = 1,6\r\n      ANS = SNN(LL+L)\r\nC\r\nC     TEST FOR COMPUTED ZERO\r\nC\r\n      ESPX = EPS\r\n      IF (J.GT.3 .AND. L.LT.4) ESPX = ESPX/LENG\r\n      IF (J.LT.4 .AND. L.GT.3) ESPX = ESPX*LENG\r\n      IF (ABS(ANS) .LT. ESPX) GO TO 700\r\n      MCODE(1) = RS(IE+2) + L - 1\r\n      MCODE(2) = SIL\r\n      COEFF    = ANS\r\n      CALL WRITE (RGT,MCODE,2,0)\r\n      CALL WRITE (RGT,COEFF,1,0)\r\n  700 CONTINUE\r\n  710 CONTINUE\r\nC\r\n      IS = IS + 3\r\n      IF (II .LT. ND) GO TO 545\r\nC\r\nC     END BIG DO (720) LOOP\r\nC\r\n  730 IF (IE+2 .GE. IEND) GO TO 400\r\n      IS = IE\r\n      RS(IS+1) = -1\r\n      GO TO 480\r\nC\r\nC     ----------------------------------------------------\r\nC\r\nC     INTERNAL ROUTINE TO BUILD 6X6 BASIC TO GLOBAL MATRIX\r\nC     (T = 0 ON ENTRY)\r\nC\r\n  800 CALL TRANSS (ZK,D)\r\n      J = 1\r\n      DO 810 I = 1,15,6\r\n      T(I   ) = D(J  )\r\n      T(I+ 1) = D(J+1)\r\n      T(I+ 2) = D(J+2)\r\n      T(I+21) = D(J  )\r\n      T(I+22) = D(J+1)\r\n      T(I+23) = D(J+2)\r\n  810 J = J + 3\r\n      GO TO RETN2, (260,850,630,640,650)\r\nC\r\nC     INTERNAL ROUTINE TO MAKE RIGID BODY TRANSFER MATRIX FOR CRSPLINES\r\nC     (UNN = IDENTITY MATRIX ON ENTRY)\r\nC\r\n  850 UNN( 5) = A(3) - B(3)\r\n      UNN( 6) = B(2) - A(2)\r\n      UNN(10) = B(3) - A(3)\r\n      UNN(12) = A(1) - B(1)\r\n      UNN(16) = A(2) - B(2)\r\n      UNN(17) = B(1) - A(1)\r\n      GO TO 880\r\n  860 UNN( 5) = C(3) - A(3)\r\n      UNN( 6) = A(2) - C(2)\r\n      UNN(10) = A(3) - C(3)\r\n      UNN(12) = C(1) - A(1)\r\n      UNN(16) = C(2) - A(2)\r\n      UNN(17) = A(1) - C(1)\r\n      GO TO 880\r\n  870 UNN( 5) = C(3) - B(3)\r\n      UNN( 6) = B(2) - C(2)\r\n      UNN(10) = B(3) - C(3)\r\n      UNN(12) = C(1) - B(1)\r\n      UNN(16) = C(2) - B(2)\r\n      UNN(17) = B(1) - C(1)\r\n  880 GO TO RETN3, (130,530,560,570,580,600,610)\r\nC\r\nC     INTERNAL ROUTINE TO FORM FLEXIBILITY MATRIX FOR CRSPLINE\r\nC\r\n  900 DO 910 I = 1,36\r\n  910 ZNN(I) = ZERO\r\n      X1 = Z(I1+1)\r\n      Y1 = Z(I1+2)\r\n      Z1 = Z(I1+3)\r\n      X2 = Z(I2+1)\r\n      Y2 = Z(I2+2)\r\n      Z2 = Z(I2+3)\r\n      LENG = SQRT((X2-X1)**2 + (Y2-Y1)**2 + (Z2-Z1)**2)\r\n      IF (LENG .EQ. ZERO) GO TO 930\r\n      ZNN(22) = LENG\r\n      ZNN(29) = LENG\r\n      ZNN(36) = LENG\r\n      FAC = LENG/12.0*((3.0*DI**2)/(2.0*LENG**2)-ONE)\r\n      LN3 = LENG**3/12.0\r\n      ZNN( 1) = LN3 + FAC*(X2-X1)**2\r\n      ZNN( 2) = FAC *(X2-X1)*(Y2-Y1)\r\n      ZNN( 3) = FAC *(X2-X1)*(Z2-Z1)\r\n      ZNN( 7) = ZNN(2)\r\n      ZNN( 8) = LN3 + FAC*(Y2-Y1)**2\r\n      ZNN( 9) = FAC*(Y2-Y1)*(Z2-Z1)\r\n      ZNN(13) = ZNN(3)\r\n      ZNN(14) = ZNN(9)\r\n      ZNN(15) = LN3 + FAC*(Z2-Z1)**2\r\n  920 GO TO RETN4, (520,550)\r\n  930 CALL MESAGE (30,31,EID)\r\n      NOGOX = 1\r\n      GO TO 920\r\nC\r\nC     INTERNAL ROUTINE TO ABSTRACT CODED DOF\r\nC\r\n  950 DO 960 I = 1,6\r\n      BUF(NM+I) = 0\r\n  960 CONTINUE\r\n      IF (KX .LE. 0) GO TO 980\r\n      DO 970 I = 1,6\r\n      K1 = KX/10\r\n      K2 = KX - K1*10\r\n      IF (K2 .GT. 6) GO TO 980\r\n      BUF(NM+K2) = K2\r\n      IF (K1  .EQ. 0) GO TO 980\r\n  970 KX = K1\r\n  980 GO TO RETN1, (90,190,1000,660)\r\nC\r\nC     INTERNAL ROUTINE TO PERFORM BINARY SEARCH IN EQEXIN AND\r\nC     CONVERT THE EXTERNAL NUMBER TO A SIL VALUE\r\nC\r\n 1000 KLO = 0\r\n      KHI = KN2\r\n      LASTK = 0\r\n 1010 K = (KLO+KHI+1)/2\r\n      IF (LASTK .EQ. K) GO TO 1140\r\n      LASTK = K\r\n      IF (GPOINT-IZ(2*K-1)) 1020,1040,1030\r\n 1020 KHI = K\r\n      GO TO 1010\r\n 1030 KLO = K\r\n      GO TO 1010\r\n 1040 K = IZ(2*K)\r\n      GPOINT = IZ(K+2*KN)\r\n      K = (K-1)*4 + BP\r\n      IF (GPOINT+5 .GT. MASK15) N23 = 3\r\n      GO TO RETN, (60,120,200,430)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1100 MSG = 131\r\n      GO TO 1130\r\n 1110 CALL MESAGE (-3,GEOMP,NAME)\r\n 1120 MSG = 38\r\n 1130 CALL MESAGE (30,MSG,EID)\r\n      GO TO 1180\r\n 1140 WRITE  (NOUT,1150) UFM,GPOINT,EID\r\n 1150 FORMAT (A23,', UNDEFINED GRID POINT',I9,' SPECIFIED BY RIGID ',\r\n     1       'ELEMENT ID',I9)\r\n      TIMES = TIMES + 1\r\n      IF (TIMES .GT. 50) CALL MESAGE (-37,0,NAME)\r\n      GO TO 1180\r\n 1160 WRITE  (NOUT,1170) UFM,EID\r\n 1170 FORMAT (A23,', RIGID ELEMENT CRBE3',I9,' HAS ILLEGAL UM SET ',\r\n     1        'SPECIFICATION')\r\n      GO TO 1190\r\nC\r\n 1180 NOGO  = 1\r\n      NOGOX = 0\r\n      GO TO (30,400), JUMP\r\nC\r\nC     REPOSITION GEOMP FILE FOR NEXT CRBE3 INPUT CARD\r\nC\r\n 1190 NOGO  = 1\r\n      NOGOX = 0\r\n      CALL BCKREC (GEOMP)\r\n      I = BEGN + 1\r\n      CALL READ (*1110,*1110,GEOMP,J,-I,0,FLAG)\r\n 1200 CALL READ (*1110,*1110,GEOMP,J, 1,0,FLAG)\r\n      I = I + 1\r\n      IF (J .NE. -3) GO TO 1200\r\n      BEGN = I\r\n      GO TO 30\r\nC\r\n 1300 IF (NOGOX .EQ. 1) NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/crsub.f",
    "content": "      SUBROUTINE CRSUB (NAME,I)\r\nC\r\nC     THE SUBROUTINE CREATES AN ENTRY FOR THE SUBSTRUCTURE NAME IN THE\r\nC     DIT THE OUTPUT PARAMETER I INDICATES THAT THE SUBSTRUCTURE NAME\r\nC     IS THE ITH SUBSTRUCTURE IN THE DIT.\r\nC\r\n      LOGICAL         DITUP\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL\r\n      DIMENSION       NAME(2),IEMPTY(2),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDIDUM(4),NXTDUM(15),DITUP\r\n      DATA    IEMPTY/ 2*4H    /\r\n      DATA    INDSBR/ 1 /, NMSBR /4HCRSU,4HB   /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      IF (DITSIZ .EQ. DITNSB*2) GO TO 10\r\nC\r\nC     THERE IS AN EMPTY INTERNAL DIRECTORY SPACE IN THE MDI.\r\nC\r\n      CALL FDSUB (IEMPTY(1),I)\r\n      IF (I .NE. -1) GO TO 20\r\n      GO TO 30\r\nC\r\nC     NO INTERNAL EMPTY SPACE IN THE MDI.  DIRECTORY FOR THE NEW\r\nC     SUBSTRUCTURE\r\nC\r\n   10 DITSIZ = DITSIZ + 2\r\n      I = DITSIZ/2\r\nC\r\nC     UPDATE DIT.\r\nC\r\n   20 DITNSB = DITNSB + 1\r\n      CALL FDIT (I,JDIT)\r\n      BUF(JDIT  ) = NAME(1)\r\n      BUF(JDIT+1) = NAME(2)\r\n      DITUP = .TRUE.\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n   30 CALL ERRMKN (INDSBR,5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/csqrtx.f",
    "content": "      SUBROUTINE CSQRTX(XX,Y)\r\nC*******\r\nC     ROUTINE TO FIND THE COMPLEX SQUARE ROOT OF X AND STORE IT IN Y\r\nC*******\r\n      DOUBLE PRECISION XX(2),X(2),Y(2),R\r\n      X(1) = XX(1)\r\n      X(2) = XX(2)\r\n      R = DSQRT(X(1)**2+X(2)**2)\r\n      Y(1) = DSQRT(DABS(X(1)+R)/2.)\r\n      Y(2) = DSQRT(DABS(-X(1)+R)/2.)\r\n      IF(X(2) .EQ. 0.0D0) RETURN\r\n      Y(2) = DSIGN(Y(2),X(2))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/csub.f",
    "content": "      SUBROUTINE CSUB (X,Y,Z,A,B)\r\nC*******\r\nC     CSUB WILL FORM Z = A*X - B*Y WHERE A AND B ARE SCALAR\r\nC     MULTIPLIERS FOR THE COMPLEX VECTORS X AND Y\r\nC*******\r\n      DOUBLE PRECISION   X(2)      ,Y(2)     ,A(2)     ,B(2)\r\n     1                  ,Z(1)      ,DUM\r\n      COMMON   /CINVPX/  AAA       ,NCOL\r\n      NCOL2 = NCOL+NCOL\r\n      DO 10 I = 1,NCOL2,2\r\n      DUM  = X(I)*A(1) - X(I+1)*A(2) - Y(I)*B(1) + Y(I+1)*B(2)\r\n      Z(I+1) = X(I)*A(2) + X(I+1)*A(1) - Y(I+1)*B(1) - Y(I)*B(2)\r\n   10 Z(I) = DUM\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/csumm.f",
    "content": "      SUBROUTINE  CSUMM(D1,D2,ID1,D3,D4,ID2,D5,D6,ID5)\r\nC\r\nC     ADDS  D1+D2 TO  D3+D4 SCALING OUTPUT\r\nC\r\n      DOUBLE PRECISION D1,D2,D3,D4,D5,D6,T1,T2,T3,T4\r\n      MULT = IABS(ID1-ID2)\r\n      IF(MULT .LE. 38) FACTOR = 10.0**MULT\r\n      T1 =D1\r\n      T2 =D2\r\n      T3 =D3\r\n      T4 =D4\r\n      ID5 =ID1\r\n      IF(ID1-ID2) 30,50,20\r\n   30 IF(MULT .GT. 38) GO TO 40\r\n      T3 =T3*FACTOR\r\n      T4 =T4*FACTOR\r\n      GO TO 50\r\n   20 IF(MULT .GT. 38) GO TO 35\r\n      T1 = T1*FACTOR\r\n      T2 = T2*FACTOR\r\n      ID5= ID2\r\n      GO TO 50\r\n   35 D5 = D3\r\n      D6 =D4\r\n      ID5 = ID2\r\n      GO TO 70\r\n   40 D5 = D1\r\n      D6 = D2\r\n      GO TO 70\r\n   50 D5 = T1 +T3\r\n      D6 = T2 + T4\r\n   70 RETURN\r\n      ENTRY CSQRTN(D1,D2,ID1,D3,D4,ID2)\r\nC\r\nC     COMPUTES COMPLEX SQRT = SCALED\r\nC\r\n      ID2 = ID1\r\n      D3=D1\r\n      D4= D2\r\n      IF( MOD(ID1,2) .EQ. 0) GO TO 100\r\n      ID2 = ID2 -1\r\n      IF(ID2 .LT. 0) GO TO 105\r\n  101 D3 = D3*10.0\r\n      D4 =D4*10.0\r\n  100 ID2 = ID2/2\r\n      T1 =DSQRT(D3*D3 +D4*D4)\r\n      T2 = DSQRT( DABS(D3+T1)/2.0)\r\n      T3 = DSQRT(DABS(-D3+T1)/2.0)\r\n      D3 =T2\r\n      D4 = T3\r\n      IF(D2 .EQ. 0.0D0) GO TO 70\r\n      D4 =DSIGN(T3,D2)\r\n      GO TO 70\r\nC\r\nC     NEGATIVE EXPONENT\r\nC\r\n  105 ID2 = ID2+1\r\n      GO TO 101\r\nC\r\nC     SCALES DETERMINANT\r\nC\r\n      ENTRY CDETM3(D1,D2,ID1)\r\n      T1 = DMAX1(DABS(D1),DABS(D2))\r\n      IF(T1 .EQ. 0.0D0) GO TO 70\r\n 4125 IF(T1 .GT. 10.0D0) GO TO 4153\r\n 4126 IF(T1 .LT. 1.0D0) GO TO 4140\r\n      GO TO 70\r\n 4153 D1 = D1*0.1D0\r\n      D2 = D2*0.1D0\r\n      T1 = T1*0.1D0\r\n      ID1 = ID1+1\r\n      GO TO 4125\r\n 4140 D1 = D1*10.0D0\r\n      D2 = D2*10.0D0\r\n      T1 = T1*10.0D0\r\n      ID1 = ID1-1\r\n      GO TO 4126\r\n      END\r\n"
  },
  {
    "path": "mis/cthmck.f",
    "content": "      SUBROUTINE CTHMCK (NT,NUM,NOM,IO,IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD,\r\n     1                   IPP,JUMP,UN,NODESL)\r\nC\r\nC     THIS IS THE EXECUTIVE FOR THE CUTHILL-MCKEE GRID POINT RENUMBERING\r\nC     STRATEGY.\r\nC     91 VERSION, WITH REVERSED NEW SEQUENCE LOGIC\r\nC\r\nC     IN SAN ANTONIO, TEXAS, APRIL 27, 1989, THE DOUGLAS MICHEL NASTRAN\r\nC     ACHIEVEMENT AWARD 1989, AN ANNUAL EVENT SPONSORED BY COSMIC AND\r\nC     NASA, WAS GIVEN TO ELIZABETH H. CUTHILL, JAMES M. McKEE AND GORDON\r\nC     C. EVERSTINE FOR THEIR TEAMWORK THAT CREATED BANDIT, A COMPUTER\r\nC     PROGRAM THAT MINIMIZES THE BANDWIDTHS OF NASTRAN MATRICES. THE\r\nC     WIDOW OF DR. McKEE AND HIS FAMILY RECEIVED THE AWARD FOR HIM.\r\nC     DRS. CUTHILL AND EVERSTINE RECEIVED THEIR AWARDS PERSONALLY.\r\nC\r\nC     THE PRINCIPAL INPUTS ARE THE CONNECTIVITY MATRIX IG AND THE NUMBER\r\nC     OF GRID POINTS (NODES) NN.\r\nC\r\nC     INPUT   - NT,NUM,NOM,IO,IP,IG,NN,MAXGRD,ILD\r\nC     OUTPUT  - NEW,ILD,MM,IH0,IHE,KORIG,KNEW,NCM\r\nC     SCRATCH - IC,IDEG,IDIS,IW,ICC,IPP\r\nC\r\nC     SET FOLLOWING DIMENSIONS IN CALLING PROGRAM -\r\nC     IG(II1,M),IC(L),IDEG(L),IDIS(L),IW(L),NEW(L),ICC(L),ILD(L),IP(M)\r\nC\r\nC     L     = HAS THE DIMENSION OF MAXGRD\r\nC             (NEW) MAXGRD EXCEEDS NUMBER OF GRID POINTS\r\nC     II1   = MAXGRD/(PACKING DENSITY IN INTEGERS/WORD)\r\nC           = ROW DIMENSION OF IG\r\nC     M     = MAX NODAL DEGREE DIVIDED BY INTEGER PACKING FACTOR\r\nC             (NEW) EXCEEDS MAX NODAL DEGREE\r\nC     NT    = MAX NUMBER OF STARTING NODES TO BE CONSIDERED (=80)\r\nC     NUM AND NOM GIVE THE FRACTION OF THE RANGE FROM MIN DEGREE TO MAX\r\nC             DEGREE TO CONSIDER FOR STARTING NODES (NUM=1, NOM=2)\r\nC     IO    = RE-SEQUENCING CRITERION , SET BY BANDIT -\r\nC           = 1, RMS WAVEFRONT\r\nC           = 2, BANDWIDTH\r\nC           = 3, PROFILE. (PROFILE IS BANDWIDTH SUM OF ALL ROWS)\r\nC           = 4, WAVEFRONT (MAX)\r\nC     IG(I,J) CONTAINS THE GRID POINT LABEL FOR THE JTH NODE ADJACENT\r\nC             TO NODE I  (THE CONNECTIVITY MATRIX).\r\nC             THE CONNECTION OF A NODE TO ITSELF IS NOT LISTED.\r\nC     NN    = NUMBER OF GRID POINTS (NODES)\r\nC     MM    = COLUMN DIMENSION OF IG ON INPUT,\r\nC             MAX NODAL DEGREE ON OUTPUT\r\nC     MAXGRD= EFFECTIVE IG ROW DIMENSION (NEGLECTING INTEGER PACKING)\r\nC     NEW(I)= OLD LABEL FOR GRID POINT NOW LABELLED I\r\nC     ILD(I)= NEW LABEL FOR GRID POINT ORIGINALLY LABELLED I\r\nC             ILD AND NEW ARE INVERSES\r\nC     ILD MUST BE INPUT TO CTHMCK TO INDICATE AN INITIAL SEQUENCE.\r\nC             NORMALLY, ON INPUT, SET ILD(I)=I FOR ALL I.\r\nC     JUMP  = 1 IF RESEQUENCING ATTEMPTS RESULT IN NO IMPROVEMENT\r\nC           = 0 OTHERWISE.\r\nC     IH0   = ORIG PROFILE\r\nC     IHE   = NEW PROFILE\r\nC     KORIG = ORIG BANDWIDTH\r\nC     KNEW  = NEW BW\r\nC     NCM   = NUMBER OF COMPONENTS\r\nC     NODESL IS SCRATCH SPACE.\r\nC\r\nC     IN CALLING PROGRAM, TRY  CALL CTHMCKL (80,1,2,2,1,...)\r\nC\r\nC     THE FOLLOWING SUBROUTINES WERE WRITTEN BY E. CUTHILL AND J. MCKEE\r\nC     OF NSRDC -\r\nC     DEGREE,DIAM,IDIST,KOMPNT,MAXBND,MAXDGR,MINDEG,RELABL,CTHMCK\r\nC     CTHMCK WAS MODIFIED BY G.C. EVERSTINE, DTRC, AND\r\nC        PUT INTO NASTRAN BY G.C. CHAN/UNISYS\r\nC\r\n      INTEGER         SUMW\r\n      REAL            IM1,     IM2\r\n      DIMENSION       IG(1),   IC(1),   IDEG(1),  IDIS(1),  IW(1),\r\n     1                NEW(1),  ICC(1),  ILD(1),   IPP(1),   UN(1),\r\n     2                NODESL(1)\r\n      CHARACTER       UFM*23,  UWM*25,  UIM*29\r\n      COMMON /XMSSG / UFM,     UWM,     UIM\r\n      COMMON /BANDA / IBUF1,   NOMPC,   NODEP,    NOPCH,    NORUN,\r\n     1                METHOD,  ICRIT\r\n      COMMON /BANDB / DUM3B(3),NGRID,   DUMB2(2), KDIM\r\n      COMMON /BANDD / KORIG,   KNEW,    IH0,      IHE,      NCM\r\n      COMMON /BANDS / NN,      MM,      IH,       IB,       MAXGRD\r\n      COMMON /BANDW / MAXW0,   RMS0,    MAXW1,    RMS1,     I77,\r\n     1                BRMS0,   BRMS1\r\n      COMMON /SYSTEM/ ISYS,    NOUT,    DUM6Y(6), NLPP\r\nC\r\nC     SET UP SCRATCH SPACE NODESL.\r\nC\r\n      IDEM  = KDIM\r\n      K2    = IDEM + 1\r\n      IAJDIM= 3*IDEM\r\nC\r\nC     DETERMINE THE DEGREE OF EACH NODE, THE NUMBER OF COMPONENTS, NCM,\r\nC     AND THE MAXIMUM DEGREE OF ANY NODE.\r\nC\r\n      CALL DEGREE (IG,IDEG,UN)\r\n      NCM  = KOMPNT(IG,IC,IDEG,IW,ICC,UN)\r\n      MAXD = MAXDGR(0,IC,IDEG)\r\n      MMC  = MAXD\r\nC\r\nC     INITIALIZE NEW ARRAY FROM THE ILD ARRAY.\r\nC     ILD MUST BE INPUT TO CUTHILL.\r\nC\r\n      DO 10 I = 1,NN\r\n      K = ILD(I)\r\n   10 NEW(K) = I\r\nC\r\nC     COMPUTE ORIGINAL BANDWIDTH, PROFILE, WAVEFRONT AND ACTIVE COLUMN\r\nC     IH0 = ORIGINAL PROFILE,  IS = ORIGINAL BW\r\nC\r\n      CALL WAVEY (IG,ILD,NEW,0,IC,IW,IS,MAXW,AVERW,SUMW,RMS,BRMS,UN)\r\n      IH    = SUMW\r\n      MAXW0 = MAXW\r\n      RMS0  = RMS\r\n      BRMS0 = BRMS\r\n      KORIG = IS\r\n      IH0   = IH\r\n      CALL PAGE1\r\n      I = METHOD + 2\r\n      WRITE  (NOUT,20) UIM,ICRIT,I,NOMPC,NODEP,NOPCH\r\n   20 FORMAT (A29,'S FROM RESEQUENCING PROCESSOR - BANDIT     (CRI=',I2,\r\n     1       ',  MTH=',I2,',  MPC=',I2,',  DEP=',I2,',  PCH=',I2,')',/)\r\n      IF (NLPP .LE. 50) GO TO 50\r\n      WRITE  (NOUT,30)\r\n   30 FORMAT (31X,'BEFORE RESEQUENCING - - -')\r\n      WRITE  (NOUT,40) IS,IH,MAXW,AVERW,RMS,BRMS\r\n   40 FORMAT (40X,'BANDWIDTH',I13,     /40X,'PROFILE',I15,\r\n     1       /40X,'MAX WAVEFRONT',I9,  /40X,'AVG WAVEFRONT',F9.3,\r\n     2       /40X,'RMS WAVEFRONT',F9.3,/40X,'RMS BANDWIDTH',F9.3)\r\nC\r\nC     COMPUTE NODAL DEGREE STATISTICS.\r\nC\r\n   50 CALL DIST (IDEG,IPP,MEDIAN,MODD)\r\n      IF (METHOD .EQ. +1) RETURN\r\nC\r\nC     INITIALIZE ILD AND NEW ARRAYS.\r\nC\r\n      JUMP  = 0\r\n      DO 70 I = 1,NN\r\n      NEW(I) = 0\r\n   70 ILD(I) = 0\r\nC\r\nC     GENERATE NUMBERING SCHEME FOR EACH COMPONENT, NC.\r\nC\r\n      DO 310 NC = 1,NCM\r\nC\r\nC     DETERMINE THE RANGE OF DEGREES (MI TO MAD) OF NODES OF INTEREST.\r\nC     MAKE SURE MAD DOES NOT EXCEED MEDIAN\r\nC\r\n      MI  = MINDEG(NC,IC,IDEG)\r\n      MAD = MI\r\n      IF (NOM .EQ. 0) GO TO 80\r\n      MA  = MAXDGR(NC,IC,IDEG)\r\n      MAD = MI + ((MA-MI)*NUM)/NOM\r\n      MAD = MIN0(MAD,MEDIAN-1)\r\n      MAD = MAX0(MAD,MI)\r\nC\r\nC     DETERMINE BANDWIDTH OR SUM CRITERION FOR EACH NODE MEETING\r\nC     SPECIFIED CONDITION.\r\nC\r\n   80 CALL DIAM (NC,MAD,NL,NODESL,IDEM,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,UN)\r\n      JMAX = MIN0(NT,NL)\r\n      JMAX = MAX0(JMAX,1)\r\n      IM1  = 1.E+8\r\n      IM2  = IM1\r\nC\r\nC     CHECK SEQUENCE FOR EACH STARTING NODE SELECTED, AND\r\nC     COMPUTE NEW BANDWIDTH,PROFILE,WAVEFRONT DATA.\r\nC     IB = BANDWIDTH, IH = PROFILE.\r\nC\r\n      DO 300 J = 1,JMAX\r\n      CALL RELABL (1,NODESL(J),IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD,\r\n     1             NODESL(K2),UN,IAJDIM)\r\n      CALL WAVEY (IG,ILD,NEW,NC,IC,IW,IB,MAXW,AVERW,SUMW,RMS,BRMS,UN)\r\n      IF (NGRID .EQ. -1) RETURN\r\nC\r\n      IH = SUMW\r\n      GO TO (220,230,240,250), IO\r\n  220 CRIT1 = RMS\r\n      CRIT2 = IH\r\n      GO TO 260\r\n  230 CRIT1 = IB\r\n      CRIT2 = IH\r\n      GO TO 260\r\n  240 CRIT1 = IH\r\n      CRIT2 = IB\r\n      GO TO 260\r\n  250 CRIT1 = MAXW\r\n      CRIT2 = RMS\r\n  260 IF (IM1-CRIT1) 300,280,270\r\n  270 IM1 = CRIT1\r\n      IM2 = CRIT2\r\n      IJ  = J\r\n      GO TO 300\r\n  280 IF (IM2 .LE. CRIT2) GO TO 300\r\n      IM2 = CRIT2\r\n      IJ  = J\r\nC\r\n  300 CONTINUE\r\nC\r\nC     RECOMPUTE SEQUENCE FOR STARTING NODE WHICH IS BEST FOR CRITERION\r\nC     SELECTED.\r\nC\r\n      CALL RELABL (1,NODESL(IJ),IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD,\r\n     1             NODESL(K2),UN,IAJDIM)\r\n      IF (NGRID .EQ. -1) RETURN\r\nC\r\n  310 CONTINUE\r\nC\r\nC     DETERMINE NODES OF ZERO DEGREE AND STACK LAST, AND\r\nC     COMPUTE BANDWIDTH, PROFILE AND WAVEFRONT DATA.\r\nC\r\n      CALL STACK (IDEG,NEW,ILD,IW)\r\n      CALL WAVEY (IG,ILD,NEW,0,IC,IW,IB,MAXW,AVERW,SUMW,RMS,BRMS,UN)\r\n      IH = SUMW\r\nC\r\n      IF (NLPP .LE. 50) GO TO 350\r\n      WRITE  (NOUT,320)\r\n  320 FORMAT (/31X,'AFTER RESEQUENCING BY REVERSE CUTHILL-MCKEE (CM)',\r\n     1        ' ALGORITHM - - -')\r\n      WRITE (NOUT,40) IB,IH,MAXW,AVERW,RMS,BRMS\r\nC\r\nC     CHECK CM LABELING AGAINST ORIGINAL LABELING TO SEE IF BETTER.\r\nC     IB = BANDWIDTH,  IH = PROFILE.\r\nC\r\n  350 GO TO (400,410,420,430), IO\r\n  400 IM1   = RMS0\r\n      IM2   = IH0\r\n      CRIT1 = RMS\r\n      CRIT2 = IH\r\n      GO TO 440\r\n  410 IM1   = IS\r\n      IM2   = IH0\r\n      CRIT1 = IB\r\n      CRIT2 = IH\r\n      GO TO 440\r\n  420 IM1   = IH0\r\n      IM2   = IS\r\n      CRIT1 = IH\r\n      CRIT2 = IB\r\n      GO TO 440\r\n  430 IM1   = MAXW0\r\n      IM2   = RMS0\r\n      CRIT1 = MAXW\r\n      CRIT2 = RMS\r\n  440 IF (CRIT1-IM1) 480,450,460\r\n  450 IF (CRIT2 .LT. IM2) GO TO 480\r\nC\r\nC     IF NO IMPROVEMENT RETURN TO ORIGINAL SEQUENCE.\r\nC\r\n  460 IB   = IS\r\n      IH   = IH0\r\n      MAXW = MAXW0\r\n      RMS  = RMS0\r\n      BRMS = BRMS0\r\n      DO 470 I = 1,NN\r\n      ILD(I) = I\r\n  470 NEW(I) = I\r\n      JUMP = 1\r\nC\r\nC     SET FINAL VALUES OF B, P, RMS, W.\r\nC\r\n  480 KNEW = IB\r\n      IHE  = IH\r\n      MAXW1= MAXW\r\n      RMS1 = RMS\r\n      BRMS1= BRMS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ctrnsp.f",
    "content": "      SUBROUTINE CTRNSP (IX,X,NX,FILEA,B,SR1FIL)\r\nC\r\nC     TRANS WILL DO AN INCORE TRANSPOSE OF THE UPPER TRIANGLE OF ACTIVE\r\nC     ELEMENTS\r\nC\r\n      EXTERNAL           LSHIFT    ,RSHIFT   ,ORF      ,COMPLF\r\n      INTEGER            B         ,FILEA    ,SR1FIL   ,TYPEA    ,\r\n     1                   EOL       ,SYSBUF   ,ORF      ,LSHIFT   ,\r\n     2                   NAME(2)   ,RSHIFT   ,RDP      ,EOR      ,\r\n     3                   CDP       ,COMPLF\r\n      DOUBLE PRECISION   DI(2)\r\n      DIMENSION          FILEA(7)  ,IX(1)    ,III(6)   ,X(1)\r\n      COMMON   /MACHIN/  MACH      ,IHALF\r\n      COMMON   /ZNTPKX/  IA(4)     ,II       ,EOL      ,EOR\r\n      COMMON   /SYSTEM/  SYSBUF\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP\r\n      COMMON   /TYPE  /  JPREC(2)  ,NWDS(4)\r\n      EQUIVALENCE        (III(3),DI(1))\r\n      DATA      NAME /   4HCTRN ,4HSP  /\r\nC\r\nC\r\n      NUM   = RSHIFT(COMPLF(0),1)\r\n      IOBUF = NX - 4*SYSBUF\r\n      IFILE = FILEA(1)\r\nC\r\nC     POSITION INPUT FILE AT START OF THE UPPER TRIANGLE\r\nC\r\n      CALL SKPREC (FILEA(1),B+1)\r\n      TYPEA = FILEA(5)\r\n      NCOL  = FILEA(2)\r\n      NO    = 0\r\n      ISTOR = 1\r\n      IPREC = JPREC(TYPEA)\r\n      INCR  = NWDS(TYPEA) + 1\r\n      K     = 1\r\n   20 CALL INTPK (*70,FILEA(1),0,TYPEA,0)\r\n   30 CALL ZNTPKI\r\n      IF (II .GT. K) GO TO 50\r\nC\r\nC     PACK I AND J IN ONE WORD AND STORE IT AND THE NONZERO VALUE\r\nC     IN CORE\r\nC\r\n      L  = ORF(LSHIFT(II,IHALF),K+B)\r\n      NO = NO + 1\r\n      IX(ISTOR  ) = L\r\n      IX(ISTOR+1) = IA(1)\r\n      IX(ISTOR+2) = IA(2)\r\n      IX(ISTOR+3) = IA(3)\r\n      IX(ISTOR+4) = IA(4)\r\n      ISTOR = ISTOR+INCR\r\n      IF (ISTOR+INCR .GT. IOBUF) GO TO 140\r\n      IF (EOL) 70,30,70\r\n   50 IF (EOR .EQ. 0) CALL SKPREC (FILEA(1),1)\r\n   70 K = K + 1\r\n      IF (K+B .LE. NCOL) GO TO 20\r\n      CALL REWIND (FILEA(1))\r\nC\r\nC     ALL ELEMENTS ARE IN CORE.  WRITE THEM OUT IN THE TRANSPOSED ORDER\r\nC\r\n      IFILE = SR1FIL\r\n      CALL OPEN (*120,SR1FIL,IX(IOBUF),WRTREW)\r\n      ISTOR = ISTOR - INCR\r\n      DO 110 I = 1,NO\r\n      K = NUM\r\n      DO 80 J = 1,ISTOR,INCR\r\n      IF (IX(J) .GT. K) GO TO 80\r\n      KK = J\r\n      K  = IX(J)\r\n   80 CONTINUE\r\nC\r\nC     UNPACK I AND J, AND WRITE OUT I,J,AND A(I,J)\r\nC\r\n      III(1) = RSHIFT(K,IHALF)\r\n      III(2) = K - LSHIFT(III(1),IHALF)\r\n      IX(KK) = NUM\r\n      IF (IPREC .EQ. 2) GO TO 90\r\n      DI(1) = X(KK+1)\r\n      DI(2) = 0.D0\r\n      IF (TYPEA .GT. 2) DI(2) = X(KK+2)\r\n      GO TO 100\r\n   90 III(3) = IX(KK+1)\r\n      III(4) = IX(KK+2)\r\n      III(5) = 0\r\n      III(6) = 0\r\n      IF (TYPEA .LE. 2) GO TO 100\r\n      III(5) = IX(KK+3)\r\n      III(6) = IX(KK+4)\r\n  100 CONTINUE\r\n      CALL WRITE (SR1FIL,III(1),6,0)\r\n      IF (KK .EQ. ISTOR) ISTOR = ISTOR - INCR\r\n  110 CONTINUE\r\nC\r\nC     WRITE A TRAILER RECORD ON THE FILE\r\nC\r\n      III(1) = -1\r\n      CALL WRITE (SR1FIL,III(1),6,0)\r\n      CALL CLOSE (SR1FIL,REW)\r\n      RETURN\r\nC\r\n  120 NO = -1\r\n      GO TO 150\r\n  140 NO = -8\r\n  150 CALL MESAGE (NO,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/curcas.f",
    "content": "      SUBROUTINE CURCAS(*,NSKIP,TRL,MCB,ZZ,IBUF)\r\nC   THIS SUBROUTINE COPIES MATRIX FILE TRL(1) TO FILE MCB(1)\r\nC SKIPPING NSKIP-1 MATRIX COLUMNS.  PRIMARY USE IS TO CREATE A MATRIX\r\nC THAT INCLUDES ONLY SUBCASES IN THE CURRENT DMAP LOOP.\r\nC   ALL FILES ARE OPENED, CLOSED AND TRIALERS WRITTEN.\r\nC   IF NSKIP WOULD RESULT IN NO-COPY, MCB(1) IS SET TO TRL(1).\r\nC     TRL - INPUT TRAILER FOR FILE BEING CONVERTED.\r\nC     MCB - OUTPUT TRAILER - WORD 1 HAS GINO FILE NAME.\r\nC     ZZ  - OPEN CORE.\r\nC     IBUF- LOCATION OF TWO GINO BUFFERS.\r\nC     NSKIP - ONE MORE THAN THE SUBCASES TO SKIP.\r\nC       * - NONSTANDARD RETURN IF UNABLE TO PROCESS.\r\nC-----\r\n      INTEGER PARM(4)  ,MCB(7)   ,TRL(7)   ,ZZ(1)    ,COUNT\r\nC\r\n      COMMON /NAMES / IRD,IRDRW,IWT,IWTRW, KREW,KNRW,KNERW\r\n      COMMON /SYSTEM/ ISBZ\r\n      EQUIVALENCE (ICNT,RCNT)\r\n      DATA PARM(3),PARM(4) / 4HCURC,2HAS  /\r\nC\r\n      PARM(2) = TRL(1)\r\n      IF (NSKIP.LE.1) GO TO 55\r\nC  . FOR STATICS THE NUMBER OF SUBCASES SKIPPED = NO. COLUMNS SKIPPED.\r\nC  .  OTHER ANALYSIS TYPES NEED TO SUPPLY PROPER VALUE FOR NSKIP...\r\n      I = NSKIP - 1\r\n      IBF2 = IBUF+ISBZ\r\n      IF (IBUF.LE.0) GO TO 100\r\nC\r\n      CALL RDTRL(TRL)\r\n      IF (TRL(1).LE.0) GO TO 90\r\n      IF (TRL(2).LE.I) GO TO 110\r\n      CALL OPEN(*90,TRL(1),ZZ(IBF2),IRDRW)\r\n      PARM(2) = MCB(1)\r\n      CALL OPEN(*90,MCB(1),ZZ(IBUF),IWTRW)\r\n      CALL WRITE(MCB(1),MCB(1),2,1)\r\n      PARM(2) = TRL(1)\r\n      CALL FWDREC(*120,TRL(1))\r\nC\r\n      MCB(2) = TRL(2) - I\r\n      MCB(3) = TRL(3)\r\n      MCB(4) = TRL(4)\r\n      MCB(5) = TRL(5)\r\n      MCB(6) = TRL(6)\r\n      DO 20 J = 1,I\r\n      CALL FWDREC(*120,TRL(1))\r\n   20 CONTINUE\r\n      CALL CPYFIL (TRL,MCB,ZZ,IBUF-1,COUNT)\r\n      RCNT = COUNT\r\n      MCB(7) = ICNT\r\n      CALL EOF (MCB)\r\nC\r\n      CALL CLOSE (TRL(1),KRW)\r\n      CALL CLOSE (MCB(1),KRW)\r\n      CALL WRTTRL (MCB(1))\r\n       GO TO 60\r\n   55 MCB(1) = TRL(1)\r\n   60 RETURN\r\nC\r\nC  . ERROR MESSAGES...\r\nC\r\n   90 PARM(1) = +1\r\n       GO TO 130\r\n  100 PARM(1) = +8\r\n       GO TO 130\r\n  110 PARM(1) = +7\r\n       GO TO 130\r\n  120 PARM(1) = +2\r\nC\r\n  130 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/curv.f",
    "content": "      SUBROUTINE CURV\r\nC\r\nC     MAIN DRIVING ROUTINE OF MODULE -CURV-.\r\nC\r\nC     DMAP CALLING SEQUENCE.\r\nC\r\nC     CURV   OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/P1/P2 $\r\nC\r\n      LOGICAL         FOES1G, EOFOS1, STRAIN\r\n      INTEGER         SUBR(6), FILE, MCB(7)\r\n      CHARACTER       UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM\r\n      COMMON /BLANK / IP1, IP2\r\n      COMMON /SYSTEM/ ISYSBF, IOUTPT\r\n      COMMON /CURVTB/ INDEXS(108)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\nC     COMMON /ZZCURV/ MUST BE AT THE LONGEST OF OVERLAYS WITH CURV1,\r\nC     CURV2, AND CURV3.\r\nC\r\n      EQUIVALENCE     (INDEXS( 16),LMCSID), (INDEXS( 52),LCORE),\r\n     1                (INDEXS( 79),LOC), (INDEXS( 80),FILE),\r\n     2                (INDEXS( 81),IMSG), (INDEXS(100),EOFOS1),\r\n     3                (INDEXS(103),FOES1G), (INDEXS(104),STRAIN),\r\n     4                (INDEXS(105),LOGERR)\r\n      DATA     SUBR / 4HCURV,4H1   ,4HCURV,4H2   ,4HCURV,4H3     /\r\nC\r\nC\r\nC     CHECK TO SEE IF COMPUTATIONS NEED TO BE DONE\r\nC\r\n      IF (IP1 .LT. 0) RETURN\r\nC\r\nC     CHECK TO SEE IF THE INPUT FILE EXISTS\r\nC\r\n      MCB(1) = 101\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) RETURN\r\nC\r\nC     PERFORM INITIALIZATION AND CREATE ESTX ON SCRATCH FILE 1.\r\nC\r\n      DO 10 I = 1,107\r\n      INDEXS(I) = 777777777\r\n   10 CONTINUE\r\n      IMSG = 0\r\n      JSUB = 1\r\n      CALL CURV1\r\n      IF (IMSG  .EQ. -8) GO TO 10001\r\n      IF (IMSG  .LT.  0) GO TO 9000\r\n      IF (LMCSID .LE. 0) GO TO 8000\r\nC\r\nC     CREATE OES1M FOR NEXT SUBCASE IF NOT AT EOF IN OES1.\r\nC\r\n  100 IF (EOFOS1) GO TO 4000\r\n      JSUB = 2\r\n      CALL CURV2\r\n      IF (IMSG .EQ. -8) GO TO 10001\r\n      IF (IMSG .LT.  0) GO TO 9000\r\nC\r\nC     IF OES1G IS TO BE FORMED CALL CURV3 OVERLAY.  PROCESS CURRENT\r\nC     SUBCASE\r\nC\r\n      IF (.NOT.FOES1G) GO TO 100\r\n      JSUB = 3\r\n      CALL CURV3\r\n      IF (IMSG .EQ. -8) GO TO 10001\r\n      IF (IMSG .LT.  0) GO TO 9000\r\n      GO TO 100\r\nC\r\nC     EOF HIT IN OES1.  ALL THROUGH.\r\nC\r\n 4000 CONTINUE\r\n      RETURN\r\nC\r\nC     NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ENCOUNTERED\r\nC\r\n 8000 CALL PAGE2 (3)\r\n      WRITE (IOUTPT,8100) UWM\r\n      IF (.NOT.STRAIN) WRITE (IOUTPT,8200)\r\n      IF (     STRAIN) WRITE (IOUTPT,8300)\r\n 8100 FORMAT (A25,' 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS ',\r\n     1        'ENCOUNTERED IN MODULE CURV.')\r\n 8200 FORMAT (39H STRESSES IN MATERIAL COORDINATE SYSTEM,\r\n     1        14H NOT COMPUTED.)\r\n 8300 FORMAT (49H STRAINS/CURVATURES IN MATERIAL COORDINATE SYSTEM,\r\n     1        14H NOT COMPUTED.)\r\n      GO TO 4000\r\nC\r\nC     ERROR CONDITION IN CURV1, CURV2, OR CURV3.\r\nC\r\n 9000 IF (IMSG .NE. -37) GO TO 9999\r\n      WRITE  (IOUTPT,9100) SFM,JSUB,IMSG,LOC,JSUB,FILE\r\n 9100 FORMAT (A25,' 3174, SUBROUTINE CURV',I1,\r\n     1        ' HAS RETURNED WITH ERROR CONDITION ',I4, /5X,\r\n     2        'LOCATION CODE = ',I4,' IN SUBROUTINE CURV',I1, /5X,\r\n     3        'FILE NUMBER   = ',I4)\r\n      WRITE  (IOUTPT,9998) INDEXS\r\n 9998 FORMAT (/5X,29H CONSTANTS IN COMMON /CURVTB/ , /,(3X,4I15))\r\nC\r\nC     INSURE ALL FILES CLOSED\r\nC\r\n 9999 CONTINUE\r\n      DO 10000 I = 1,9\r\n      DO 10000 J = 100,300,100\r\n      CALL CLOSE (I+J,1)\r\n10000 CONTINUE\r\n10001 WRITE (IOUTPT,9100) SFM,JSUB,IMSG,LOC,JSUB,FILE\r\n      JSUB = 2*JSUB - 1\r\n      IF (IMSG .EQ. -8) FILE = LCORE\r\n      CALL MESAGE (IMSG,FILE,SUBR(JSUB))\r\n      GO TO 4000\r\n      END\r\n"
  },
  {
    "path": "mis/curv1.f",
    "content": "      SUBROUTINE CURV1\r\nC*****\r\nC  INITIALIZATION OVERLAY. ALL LOGIC INDEPENDENT OF PROCESSING\r\nC  THE SUBCASE DATA ON OES1 IS HANDLED IN THIS INITIALIZATION\r\nC  ROUTINE OF THE -CURV- MODULE\r\nC\r\nC     OPEN CORE MAP DURING -CURV1- EXECUTION.\r\nC     =======================================\r\nC       INITIAL               AFTER CURV1 RETURNS\r\nC     +-----------+             +----------------+\r\nC     I Z(IELTYP) I             I  Z(IELTYP)     I\r\nC     I    .      I             I     .          I\r\nC     I  ELEMENT  I             I  REDUCED       I\r\nC     I  TYPES    I             I  ELEMENT-TYPES I\r\nC     I  BEING    I             I  LIST          I\r\nC     I  PLACED   I             I     .          I\r\nC     I  IN SCR1  I             I  Z(NELTYP)     I\r\nC     I    .      I             +----------------+\r\nC     I Z(NELTYP) I             I  Z(IMCSID)     I\r\nC     +-----------+             I     .          I\r\nC     I Z(IMID)   I             I  MCSID LIST    I\r\nC     I    .      I             I  OF MCSIDS     I\r\nC     I MATID-    I             I  ACTUALLY      I\r\nC     I MCSID-    I             I  REFERENCED    I\r\nC     I FLAG-     I             I     .          I\r\nC     I ENTRIES   I             I  Z(NMCSID)     I\r\nC     I    .      I             +----------------+\r\nC     I Z(NMID)   I             I  Z(ICSTM)      I\r\nC     +-----------+             I     .          I\r\nC     I Z(ISIL)   I             I  CSTMS IN      I\r\nC     I    .      I             I  EXISTENCE     I\r\nC     I SILS IN   I             I  FOR MCSIDS    I\r\nC     I INTERNAL  I             I  IN ABOVE      I\r\nC     I SORT      I             I  TABLE         I\r\nC     I    .      I             I     .          I\r\nC     I Z(NSIL)   I             I  Z(NCSTM)      I\r\nC     +-----------+             +----------------+\r\nC     I Z(IEXT)   I             I     .          I\r\nC     I    .      I             I  AVAILABLE     I\r\nC     I EXTERNAL  I             I  CORE          I\r\nC     I IDS IN    I             I     .          I\r\nC     I INTERNAL  I             I     .          I\r\nC     I SORT      I             I     .          I\r\nC     I    .      I             I     .          I\r\nC     I Z(NEXT)   I             I     .          I\r\nC     +-----------+             I     .          I\r\nC     I   .       I             I     .          I\r\nC     I AVAILABLE I             I     .          I\r\nC     I CORE      I             I     .          I\r\nC     I   .       I             I     .          I\r\nC     I Z(JCORE)  I             I  Z(JCORE)      I\r\nC     +-----------+             +----------------+\r\nC     I Z(IBUF4)  I             I  Z(IBUF4)      I\r\nC     I Z(IBUF3)  I             I  Z(IBUF3)      I\r\nC     I Z(IBUF2)  I             I  Z(IBUF2)      I\r\nC     I Z(IBUF1)  I             I  Z(IBUF1)      I\r\nC     I GINO-BUFS I             I  GINO-BUFS     I\r\nC     I Z(LCORE)  I             I  Z(LCORE)      I\r\nC     +-----------+             +----------------+\r\nC\r\nC*****\r\n      REAL               Z(1)     ,RBUF(100)\r\nC\r\n      INTEGER            CSTMS    ,SCR1     ,SCR2     ,SCR3\r\n      INTEGER            SCR4     ,OES1M    ,OES1G    ,OES1     ,SCR5\r\n      INTEGER            CSTM     ,EST      ,SIL      ,GPL\r\n      INTEGER            ELTYPE   ,SUBCAS   ,FILE     ,ESTWDS\r\n      INTEGER            EWORDS   ,OWORDS   ,DEPTS    ,CSTYPE\r\n      INTEGER            DEVICE   ,OLDID    ,BUF      ,SBUF\r\n      INTEGER            RD       ,RDREW    ,WRT      ,WRTREW\r\n      INTEGER            CLS      ,CLSREW   ,EOR      ,SYSBUF\r\nC\r\n      INTEGER            MAT(6)   ,ELEM(5,4)\r\nC\r\n      LOGICAL            ANY      ,EOFOS1   ,FIRST    ,ANYOUT\r\n      LOGICAL            FOES1G   ,STRAIN   ,ANY1M    ,ANY1G\r\nC\r\n      COMMON/BLANK /     IP1      ,IP2      ,ICMPLX   ,ZDUM(3)\r\nC\r\n      COMMON/SYSTEM/     SYSBUF   ,IOUTPT\r\nC\r\n      COMMON/NAMES /     RD       ,RDREW    ,WRT      ,WRTREW\r\n     1                  ,CLSREW   ,CLS\r\nC\r\n      COMMON/ZZZZZZ/     IZ(1)\r\nC\r\n      COMMON/CURVC1/     LSBUF    ,SBUF(10)\r\nC\r\n      COMMON/CURVC2/     LBUF     ,BUF(100)\r\nC\r\n      COMMON/CURVC3/     VEC(3)   ,VMAX(3)  ,VMIN(3)  ,IDREC(146)\r\nC\r\n      COMMON/CURVTB/     IMID     ,NMID     ,LMID     ,NMIDS\r\n     A                  ,IELTYP   ,NELTYP   ,JELTYP   ,ICSTM\r\n     B                  ,NCSTM    ,CSTMS    ,LCSTM    ,IESTX\r\n     C                  ,NESTX    ,IMCSID   ,NMCSID   ,LMCSID\r\n     D                  ,MCSIDS   ,JMCSID   ,KMCSID   ,ISIL\r\n     E                  ,NSIL     ,LSIL     ,JSIL     ,IOES1M\r\n     F                  ,NOES1M   ,LOES1M   ,IDEP     ,NDEP\r\n     G                  ,IINDEP   ,NINDEP   ,JINDEP   ,ISIGMA\r\n     H                  ,NSIGMA   ,IGMAT    ,NGMAT    ,IEXT\r\n     I                  ,NEXT     ,LEXT     ,SCR1     ,SCR2\r\n     J                  ,SCR3     ,SCR4     ,OES1M    ,OES1G\r\n     K                  ,OES1     ,MPT      ,CSTM     ,EST\r\n     L                  ,SIL      ,GPL      ,JCORE    ,LCORE\r\n     M                  ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4\r\n     N                  ,I        ,J        ,K        ,L\r\n     O                  ,K1       ,K2       ,IXYZ1    ,IXYZ2\r\n     P                  ,LX1      ,LX2      ,ELTYPE   ,MCSID\r\n     Q                  ,IDSCR1   ,IDOES1   ,NPTS     ,NPTS4\r\n     R                  ,IWORDS   ,NWORDS   ,SUBCAS   ,KOUNT\r\n     S                  ,ISIG1    ,ISIG2    ,LOC      ,FILE\r\n      COMMON/CURVTB/     IMSG     ,NELEMS   ,IMATID   ,ICOMP\r\n     1                  ,ESTWDS   ,EWORDS   ,JP       ,OWORDS\r\n     2                  ,MATID    ,DEPTS    ,INDPTS   ,ICTYPE\r\n     3                  ,IVMAT    ,ITRAN    ,CSTYPE   ,ISING\r\n     4                  ,DEVICE   ,OLDID    ,ANY      ,EOFOS1\r\n     5                  ,FIRST    ,ANYOUT   ,FOES1G   ,STRAIN\r\n     6                  ,LOGERR   ,ANY1M    ,ANY1G    ,SCR5\r\nC\r\n      EQUIVALENCE        (Z(1),IZ(1)), (BUF(1),RBUF(1))\r\n      EQUIVALENCE        (NOEOR,RDREW), (EOR,CLS)\r\nC\r\n      DATA MAT / 103,1,12,   203,2,17  /\r\nC\r\nC        - - - - - - - - CURV-MODULE ELEMENTS DATA - - - - - - - -\r\nC\r\nC                   ELEMENT   EST       CONNECT.  MATID     BGPDT\r\nC                   TYPE      WORDS     POINTS    INDEX     INDEX\r\nC                   =======   =======   =======   =======   =======\r\nC  TRIA1\r\n      DATA ELEM /   6        ,27       ,3        ,6        ,15\r\nC  TRIA2\r\n     *             ,17       ,21       ,3        ,6        ,9\r\nC  QUAD1\r\n     *             ,19       ,32       ,4        ,7        ,16\r\nC  QUAD2\r\n     *             ,18       ,26       ,4        ,7        ,10       /\r\nC\r\nC  IF EITHER OF THESE PARAMS IS EXCEEDED RESET AND RE-DIMENSION\r\nC  SBUF OR BUF.\r\nC\r\n      LSBUF  = 10\r\n      LBUF   = 100\r\n      NELEMS = 4\r\n      LOGERR = 37\r\nC*****\r\nC  INITIALIZATION OF CORE AND FLAGS\r\nC*****\r\n      FOES1G = .TRUE.\r\n      IF (IP1.GT.0) FOES1G = .FALSE.\r\n      ANY1M = .FALSE.\r\n      ANY1G = .FALSE.\r\n      LMCSID = 0\r\nC\r\n      LCORE = KORSZ( IZ(1) )\r\n      DO 100 I = 1,LCORE\r\n      IZ(I) = 0\r\n  100 CONTINUE\r\n      IBUF1 = LCORE - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\nC\r\nC  SET FILE NUMBERS EXPLICITYLY.  ALL OVERLAYS REFERENCE /CURVTB/\r\nC\r\n      OES1  = 101\r\n      MPT   = 102\r\n      CSTM  = 103\r\n      EST   = 104\r\n      SIL   = 105\r\n      GPL   = 106\r\n      OES1M = 201\r\n      OES1G = 202\r\n      SCR1  = 301\r\n      SCR2  = 302\r\n      SCR3  = 303\r\n      SCR4  = 304\r\n      SCR5 = 305\r\n      JCORE = IBUF4 - 1\r\n      FILE = 0\r\n      LOC = 300\r\n      ICRQ =-IBUF4\r\n      IF( IBUF4 ) 9008,9008,300\r\nC*****\r\nC  ALLOCATE TABLE OF ELEMENT TYPES PLACED ON ESTX(SCR1).  MAXIMUM\r\nC  SIZE NOW AND REDUCED LATER TO ACTUAL SIZE.\r\nC*****\r\n  300 IELTYP = 1\r\n      JELTYP = IELTYP\r\n      NELTYP = NELEMS\r\nC*****\r\nC  CONSTRUCTION OF TABLE CONTAINING ENTRIES OF,\r\nC\r\nC     MID   = MATERIAL-ID\r\nC     MCSID = MATERIAL-COORDINATE-SYSTEM-ID\r\nC     FLAG  = REFERENCE-FLAG\r\nC\r\nC  ALL MAT1 AND MAT2 BULK DATA CARDS CONTAINING A NON-ZERO -MCSID-\r\nC  RESULT IN AN ENTRY BEING ADDED TO THIS TABLE. TABLE IS THEN SORTED\r\nC  ON -MID-.\r\nC*****\r\n      IMID = NELTYP + 1\r\n      NMID = IMID - 1\r\nC\r\nC  OPEN MPT USING -PRELOC- FUNCTION.\r\nC\r\n      FILE = MPT\r\n      LOC = 400\r\n      CALL PRELOC(*9001,IZ(IBUF1),MPT)\r\nC\r\nC  PASS MAT1 AND MAT2 DATA IF ANY.\r\nC\r\n      DO 480 I = 1,6,3\r\n      IWORDS = MAT(I+2)\r\n      IF( IWORDS .GT. LBUF ) GO TO 9000\r\n      CALL LOCATE(*480,IZ(IBUF1),MAT(I),IDUM)\r\n  410 CALL READ(*9002,*480,MPT,BUF(1),IWORDS,NOEOR,NWORDS)\r\n      IF( BUF(IWORDS) .LE. 0 ) GO TO 410\r\n      ICRQ = NMID + 3 - JCORE\r\n      IF( NMID+3 .GT. JCORE ) GO TO 9008\r\n      IZ(NMID+1) = BUF(1)\r\n      IZ(NMID+2) = BUF(IWORDS)\r\n      IZ(NMID+3) = 0\r\n      NMID = NMID + 3\r\n      GO TO 410\r\nC\r\nC  EOR HIT READING MAT1 OR MAT2 CARDS\r\nC\r\n  480 CONTINUE\r\nC\r\nC  TABLE COMPLETE, THUS NOW SORT IT. IF TABLE IS EMPTY WE ARE THROUGH\r\nC\r\n      CALL CLOSE( MPT, CLSREW )\r\n      LMID = NMID - IMID + 1\r\n      NMIDS = LMID / 3\r\n      LOC = 570\r\n      IF (LMID) 9000, 950, 570\r\n  570 CALL SORT( 0, 0, 3, 1, IZ(IMID), LMID )\r\nC*****\r\nC  LOAD LIST OF SILS INTO CORE, FOLLOWED BY LIST OF EXTERNAL IDS.\r\nC  THIS IS REQUIRED ONLY IF OES1G IS TO BE FORMED.\r\nC*****\r\n      IF( .NOT. FOES1G ) GO TO 630\r\n      FILE = SIL\r\n      LOC = 580\r\n      ISIL = NMID + 1\r\n      CALL GOPEN( SIL, IZ(IBUF1), 0 )\r\n      CALL READ(*9002,*580,SIL,IZ(ISIL),JCORE-ISIL,NOEOR,LSIL)\r\n      ICRQ = JCORE - ISIL\r\n      GO TO 9008\r\nC\r\n  580 NSIL = ISIL + LSIL - 1\r\n      CALL CLOSE( SIL, CLSREW )\r\nC\r\n      FILE = GPL\r\n      LOC = 590\r\n      IEXT = NSIL + 1\r\n      CALL GOPEN( GPL, IZ(IBUF1), 0 )\r\n      CALL READ(*9002,*590,GPL,IZ(IEXT),JCORE-IEXT,NOEOR,LEXT)\r\n      ICRQ = JCORE - IEXT\r\n      GO TO 9008\r\nC\r\n  590 NEXT = IEXT + LEXT - 1\r\n      CALL CLOSE( GPL, CLSREW )\r\n      IF( LSIL .NE. LEXT ) GO TO 9000\r\nC*****\r\nC  EST IS NOW READ. ANY ELEMENTS IN THE EST WHOSE MATERIAL ID REFERENCES\r\nC  A MAT1 OR MAT2 ENTRY WHICH CONTAINS A NON-ZERO MATERIAL-COORDINATE-\r\nC  SYSTEM-ID, WILL BE PLACED IN AN ABBREVIATED EST ON SCRATCH1.\r\nC\r\nC  FORMAT OF EACH ELEMENT TYPE RECORD.\r\nC\r\nC         ELEMENT TYPE NUMBER\r\nC         NUMBER OF WORDS PER EACH OF THE FOLLOWING ENTRIES.\r\nC         NUMBER OF POINTS PER THIS ELEMENT TYPE.\r\nC\r\nC        * ELEMENT-ID\r\nC       *  MCSID = MATERIAL-COORDINATE-SYSTEM-ID\r\nC ENTRY*\r\nC       *  EXTERNAL-GRID-IDS THIS ELEMENT CONNECTS (1 OR MORE)\r\nC        * X,Y,Z BASIC COORDINATE SETS OF EACH CONNECTED POINT(1 OR MORE\r\nC\r\nC           ( ABOVE ELEMENT ENTRY REPEATS FOR EACH ELEMENT\r\nC             REFERENCING A MAT1 OR MAT2 CARD HAVING A NON-ZERO MCSID.)\r\nC\r\nC*****\r\n  630 LOC = 630\r\n      FILE = SCR1\r\n      CALL OPEN(*9001,SCR1,IZ(IBUF2),WRTREW)\r\n      FILE = EST\r\n      CALL GOPEN(  EST, IZ(IBUF1), 0 )\r\nC\r\n      OLDID = -99999998\r\nC\r\nC  READ ELEMENT TYPE OF NEXT EST RECORD AND DETERMINE IF IT IS\r\nC  AMONG ELEMENT TYPES TO BE EVEN CONSIDERED.\r\nC\r\n  645 LOC = 645\r\n      CALL READ(*800,*9003,EST,ELTYPE,1,NOEOR,NWORDS)\r\n      DO 650 I = 1,NELEMS\r\n      IF( ELTYPE .EQ. ELEM(1,I) ) GO TO 670\r\n  650 CONTINUE\r\n      CALL FWDREC(*9002,EST)\r\n      GO TO 645\r\nC\r\nC  OK THIS  ELEMENT TYPE RECORD IS TO BE CONSIDERED.\r\nC\r\n  670 ESTWDS = ELEM(2,I)\r\n      LOC = 670\r\n      IF( ESTWDS .GT. LBUF ) GO TO 9000\r\n      ANY    = .FALSE.\r\n      NPTS   = ELEM(3,I)\r\n      IMATID = ELEM(4,I)\r\n      IXYZ1 = ELEM(5,I)\r\n      IXYZ2 = IXYZ1 + 4*NPTS - 1\r\n      K1 = 2 + NPTS\r\n      LOC = 680\r\n      IF( K1 .GT. LSBUF ) GO TO 9000\r\nC\r\nC  READ AN ELEMENT ENTRY AND CHECK TO DETERMINE IF IT IS TO BE USED.\r\nC\r\n  690 LOC = 690\r\n      CALL READ(*9002,*780,EST,BUF(1),ESTWDS,NOEOR,NWORDS)\r\n      MATID = BUF(IMATID)\r\n      IF( MATID .EQ. OLDID ) GO TO 730\r\n      CALL BISLOC(*690,MATID,IZ(IMID),3,NMIDS,JP)\r\n      MCSID = IZ(IMID+JP)\r\n      OLDID = MATID\r\n      IZ(IMID+JP+1) = 7\r\nC\r\nC  DEVELOP AND OUTPUT ABBREVIATED ENTRY TO SCRATCH1.\r\nC  (INITIALIZE RECORD WITH THREE-WORD-HEADER ENTRY.)\r\nC\r\n  730 IF( ANY ) GO TO 733\r\n      SBUF(1) = ELTYPE\r\n      SBUF(2) = 4*NPTS + 2\r\n      SBUF(3) = NPTS\r\n      CALL WRITE( SCR1, SBUF(1), 3, NOEOR )\r\n      IZ(JELTYP) = ELTYPE\r\n      JELTYP = JELTYP + 1\r\n      ANY = .TRUE.\r\nC\r\n  733 SBUF(1) = BUF(1)\r\n      SBUF(2) = MCSID\r\nC\r\nC  CONVERT SILS TO EXTERNAL-IDS IF OES1G IS TO BE BUILT\r\nC\r\n      IF( FOES1G ) GO TO 740\r\n      DO 735 I=3,K1\r\n      SBUF(I) = 0\r\n  735 CONTINUE\r\n      GO TO 760\r\nC\r\n  740 JSIL = 2\r\n      LOC = 740\r\n      DO 750 I = 3,K1\r\n      CALL BISLOC(*9000,BUF(JSIL),IZ(ISIL),1,LSIL,JP)\r\n      SBUF(I) = IZ(IEXT+JP-1)\r\n      JSIL = JSIL + 1\r\n  750 CONTINUE\r\nC\r\nC  OUTPUT THIS PORTION OF ENTRY AND THEN XYZ COMPONENTS OF CONNECTED\r\nC  POINTS\r\nC\r\n  760 CALL WRITE( SCR1, SBUF(1), NPTS+2, NOEOR )\r\nC\r\n      DO 770 I = IXYZ1,IXYZ2,4\r\n      CALL WRITE( SCR1, BUF(I+1), 3, NOEOR )\r\n  770 CONTINUE\r\nC\r\nC  GO FOR NEXT ELEMENT OF THIS TYPE\r\nC\r\n      GO TO 690\r\nC\r\nC  END OF ENTRIES FUR CURRENT ELEMENT TYPE.\r\nC\r\n  780 LOC = 780\r\n      IF( NWORDS .NE. 0 ) GO TO 9000\r\n      IF( ANY ) CALL WRITE( SCR1, 0, 0, EOR )\r\n      GO TO 645\r\nC\r\nC  END OF ALL ELEMENT TYPES IN EST\r\nC\r\n  800 CALL CLOSE(  EST, CLSREW )\r\n      CALL CLOSE( SCR1, CLSREW )\r\nC*****\r\nC  REDUCTION OF MATERIAL-ID AND COORDINATE-SYSTEM-ID TO THOSE\r\nC  ACTUALLY REFERENCED BY ELEMENTS BEING CONSIDERED.\r\nC*****\r\n      NELTYP = JELTYP - 1\r\nC\r\nC  RESORT MID-MCSID TABLE ON MCSID.\r\nC\r\n      CALL SORT( 0, 0, 3, 2, IZ(IMID), LMID )\r\n      IMCSID = NELTYP + 1\r\n      NMCSID = NELTYP\r\n      LOC = 820\r\n      OLDID = 0\r\n      DO 840 I = IMID,NMID,3\r\n      IF( IZ(I+2) ) 9000,840,820\r\nC\r\nC  ELIMINATE DUPLICATE MCSIDS.\r\nC\r\n  820 IF( IZ(I+1) .EQ. OLDID ) GO TO 840\r\n      OLDID = IZ(I+1)\r\n      NMCSID = NMCSID + 2\r\n      IZ(NMCSID-1) = IZ(I+1)\r\n      IZ(NMCSID  ) = 0\r\n  840 CONTINUE\r\n      LMCSID = NMCSID - IMCSID + 1\r\n      MCSIDS = LMCSID / 2\r\nC\r\nC  IF TABLE IS NOW EMPTY THERE IS NOTHING MORE TO DO\r\nC\r\n      LOC = 860\r\n      IF (LMCSID) 9000, 950, 860\r\nC*****\r\nC  COORDINATE SYSTEMS WHICH MAY BE REFERENCED ARE AT THIS TIME\r\nC  PULLED INTO CORE FROM THE -CSTM- DATA BLOCK. (SILS AND EXTERNAL-IDS\r\nC  TABLES IF IN CORE ARE NO LONGER REQUIRED.)\r\nC*****\r\n  860 ICSTM = NMCSID + 1\r\n      NCSTM = NMCSID\r\n      FILE = CSTM\r\n      CALL GOPEN( CSTM, IZ(IBUF1), 0 )\r\n  870 ICRQ = NCSTM + 14 - JCORE\r\n      IF( NCSTM+14 .GT. JCORE ) GO TO 9008\r\n  880 CALL READ(*9002,*900,CSTM,IZ(NCSTM+1),14,NOEOR,NWORDS)\r\n      KID = IZ(NCSTM+1)\r\n      CALL BISLOC (*880, KID, IZ(IMCSID), 2, MCSIDS, JP)\r\n      NCSTM = NCSTM + 14\r\n      GO TO 870\r\nC\r\nC  END OF COORDINATE SYSTEM DATA\r\nC\r\n  900 CALL CLOSE( CSTM, CLSREW )\r\n      LCSTM = NCSTM - ICSTM + 1\r\n      CSTMS = LCSTM / 14\r\n      CALL SORT( 0, 0, 14, 1, Z(ICSTM), LCSTM )\r\n      CALL PRETRS( IZ(ICSTM), LCSTM )\r\nC*****\r\nC  INITIALIZE INPUT AND OUTPUT FILE POSITIONS.\r\nC*****\r\n  950 CALL GOPEN (OES1, IZ(IBUF1), 0)\r\nC\r\nC  CHECK FOR STRAIN OPTION\r\nC\r\n      FILE = OES1\r\n      LOC = 910\r\n      CALL READ(*9002,*9003,OES1,IDREC(1),2,0,FLAG)\r\n      I = IDREC(2)\r\n      IF (I.NE.5.AND.I.NE.21.AND.I.NE.1005) GO TO 9000\r\n      STRAIN = .FALSE.\r\n      IF (I.EQ.21) STRAIN = .TRUE.\r\n      ICMPLX = 0\r\n      IF (I.EQ.1005) ICMPLX = 1\r\n      CALL BCKREC (OES1)\r\nC\r\n      CALL CLOSE( OES1, CLS )\r\n      EOFOS1 = .FALSE.\r\nC\r\n      CALL GOPEN( OES1M, IZ(IBUF1), 1 )\r\n      CALL CLOSE( OES1M, CLS )\r\nC\r\n      IF( .NOT. FOES1G ) GO TO 5000\r\n      CALL GOPEN( OES1G, IZ(IBUF1), 1 )\r\n      CALL CLOSE( OES1G, CLS )\r\nC*****\r\nC  END OF INITIALIZATION\r\nC*****\r\n 5000 RETURN\r\nC*****\r\nC  ERROR CONDITION ENCOUNTERED.\r\nC*****\r\n 9000 IMSG = -LOGERR\r\n      GO TO 5000\r\n 9001 IMSG = -1\r\n      GO TO 5000\r\n 9002 IMSG = -2\r\n      GO TO 5000\r\n 9003 IMSG = -3\r\n      GO TO 5000\r\n 9008 IMSG = -8\r\n      LCORE = ICRQ\r\n      GO TO 5000\r\n      END\r\n"
  },
  {
    "path": "mis/curv2.f",
    "content": "      SUBROUTINE CURV2\r\nC*****\r\nC PASSES NEXT SUBCASE OF ELEMENT STRESS OR STRAIN DATA IN OES1\r\nC AND OUTPUTS OES1M FOR THIS SUBCASE. SETS UP FILES AND TABLES\r\nC FOR -CURV3- IF OES1G IS TO BE FORMED.\r\nC\r\nC     OPEN CORE MAP DURING -CURV2- EXECUTION.\r\nC     =======================================\r\nC\r\nC     FROM-------+------------+\r\nC     CURV1      I  Z(IELTYP) I  MASTER LIST OF ELEMENT TYPES THAT\r\nC     EXECUTION  I    THRU    I  EXIST ON ESTX(SCR1)\r\nC                I  Z(NELTYP) I\r\nC                +------------+\r\nC                I  Z(IMCSID) I  MASTER LIST OF MCSIDS ELEMENTS IN\r\nC                I    THRU    I  PROBLEM REFERENCE, WITH COUNTS OF\r\nC                I  Z(NMCSID) I  OES1M ELEMENTS FOR CURRENT SUBCASE.\r\nC                +------------+\r\nC                I  Z(ICSTM)  I  CSTM FOR EACH -MCSID- IN ABOVE LIST.\r\nC                I    THRU    I  14 WORD ENTRIES. (USER MAY NOT HAVE\r\nC                I  Z(NCSTM)  I  SUPPLIED ALL, BUT MAY BE OK.)\r\nC     FROM-------+------------+\r\nC     AND DURING I  Z(IESTX)  I  SPACE FOR ONE ENTRY OF ESTX(SCR1)\r\nC     CURV2      I    THRU    I  ENTRIES.  (SIZE IS ELEMENT DEPENDENT)\r\nC     EXECUTION  I  Z(NESTX)  I\r\nC                +------------+\r\nC                I  Z(IOES1M) I  TABLE OF INCR-WORD .RIES FOR 1 ELEMENT\r\nC                I    THRU    I  TYPE.  CONTAINS ELEMENT-ID,MCSID,XY-\r\nC                I  Z(NOES1M) I  COMPONENT-CODE, AND (INCR-3) SIGMAS.\r\nC                +------------+  INCR =  9 FOR REAL STRESS\r\nC                I     .      I       = 15 FOR COMPLEX STRESS\r\nC                I     .      I  AVAILABLE CORE.\r\nC                I     .      I\r\nC                I     .      I\r\nC                I     .      I\r\nC                I  Z(JCORE)  I\r\nC                +------------+\r\nC                I  Z(IBUF4)  I  GINO-BUFFER(OES1M)\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF3)  I  GINO-BUFFER(SCR2 AND SCR3)\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF2)  I  GINO-BUFFER(SCR1)\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF1)  I  GINO-BUFFER(OES1)\r\nC                I            I\r\nC                I  Z(LCORE)  I\r\nC                +------------+\r\nC\r\nC\r\nC*****\r\n      REAL               Z(1)     ,RBUF(100),U(9)\r\nC\r\n      INTEGER            CSTMS    ,SCR1     ,SCR2     ,SCR3     ,MCB(7)\r\n      INTEGER            SCR4     ,OES1M    ,OES1G    ,OES1     ,SCR5\r\n      INTEGER            CSTM     ,EST      ,SIL      ,GPL\r\n      INTEGER            ELTYPE   ,SUBCAS   ,FILE     ,ESTWDS\r\n      INTEGER            EWORDS   ,OWORDS   ,DEPTS    ,CSTYPE\r\n      INTEGER            DEVICE   ,OLDID    ,BUF      ,SBUF\r\n      INTEGER            RD       ,RDREW    ,WRT      ,WRTREW\r\n      INTEGER            CLS      ,CLSREW   ,EOR      ,SYSBUF\r\nC\r\n      LOGICAL            ANY      ,EOFOS1   ,FIRST    ,ANYOUT\r\n      LOGICAL            FOES1G   ,STRAIN   ,ANY1M    ,ANY1G\r\nC\r\n      COMMON/BLANK /     IP1      ,IP2      ,ICMPLX   ,ZDUM(3)\r\nC\r\n      COMMON/SYSTEM/     SYSBUF   ,IOUTPT\r\nC\r\n      COMMON/NAMES /     RD       ,RDREW    ,WRT      ,WRTREW\r\n     1                  ,CLSREW   ,CLS\r\nC\r\n      COMMON/CONDAS/     VALPI    ,VAL2PI   ,RADDEG   ,DEGRAD\r\n     1                  ,S4PISQ\r\nC\r\n      COMMON/ZZZZZZ/     IZ(1)\r\nC\r\n      COMMON/CURVC1/     LSBUF    ,SBUF(10)\r\nC\r\n      COMMON/CURVC2/     LBUF     ,BUF(100)\r\nC\r\n      COMMON/CURVC3/     VEC(3)   ,VMAX(3)  ,VMIN(3)  ,IDREC(146)\r\nC\r\n      COMMON/CURVTB/     IMID     ,NMID     ,LMID     ,NMIDS\r\n     A                  ,IELTYP   ,NELTYP   ,JELTYP   ,ICSTM\r\n     B                  ,NCSTM    ,CSTMS    ,LCSTM    ,IESTX\r\n     C                  ,NESTX    ,IMCSID   ,NMCSID   ,LMCSID\r\n     D                  ,MCSIDS   ,JMCSID   ,KMCSID   ,ISIL\r\n     E                  ,NSIL     ,LSIL     ,JSIL     ,IOES1M\r\n     F                  ,NOES1M   ,LOES1M   ,IDEP     ,NDEP\r\n     G                  ,IINDEP   ,NINDEP   ,JINDEP   ,ISIGMA\r\n     H                  ,NSIGMA   ,IGMAT    ,NGMAT    ,IEXT\r\n     I                  ,NEXT     ,LEXT     ,SCR1     ,SCR2\r\n     J                  ,SCR3     ,SCR4     ,OES1M    ,OES1G\r\n     K                  ,OES1     ,MPT      ,CSTM     ,EST\r\n     L                  ,SIL      ,GPL      ,JCORE    ,LCORE\r\n     M                  ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4\r\n     N                  ,I        ,J        ,K        ,L\r\n     O                  ,K1       ,K2       ,IXYZ1    ,IXYZ2\r\n     P                  ,LX1      ,LX2      ,ELTYPE   ,MCSID\r\n     Q                  ,IDSCR1   ,IDOES1   ,NPTS     ,NPTS4\r\n     R                  ,IWORDS   ,NWORDS   ,SUBCAS   ,KOUNT\r\n     S                  ,ISIG1    ,ISIG2    ,LOC      ,FILE\r\n      COMMON/CURVTB/     IMSG     ,NELEMS   ,IMATID   ,ICOMP\r\n     1                  ,ESTWDS   ,EWORDS   ,JP       ,OWORDS\r\n     2                  ,MATID    ,DEPTS    ,INDPTS   ,ICTYPE\r\n     3                  ,IVMAT    ,ITRAN    ,CSTYPE   ,ISING\r\n     4                  ,DEVICE   ,OLDID    ,ANY      ,EOFOS1\r\n     5                  ,FIRST    ,ANYOUT   ,FOES1G   ,STRAIN\r\n     6                  ,LOGERR   ,ANY1M    ,ANY1G    ,SCR5\r\nC\r\n      EQUIVALENCE        (Z(1),IZ(1)), (BUF(1),RBUF(1))\r\n      EQUIVALENCE        (NOEOR,RDREW), (EOR,CLS)\r\nC\r\n      DATA MCB/ 7*1 /\r\nC\r\nC  OPEN OES1M FOR ANY POSSIBLE OUTPUTS DURING THIS SUBCASE PASS.\r\nC\r\n      ISIG1 = 3\r\n      ISIG2 = 11\r\n      FILE = OES1M\r\n      LOC = 60\r\n      CALL OPEN(*9001,OES1M,IZ(IBUF3),WRT)\r\nC\r\nC  OPEN OES1 NOREWIND TO CONTINUE\r\nC\r\n      FIRST = .TRUE.\r\n      ANY = .FALSE.\r\n      FILE = OES1\r\n      CALL OPEN(*9001,OES1,IZ(IBUF1),RD)\r\n      FILE = SCR1\r\n      CALL OPEN(*9001,SCR1,IZ(IBUF2),RDREW)\r\nC\r\nC  ZERO ELEMENT COUNTS FOR EACH -MCSID- THIS SUBCASE MAY REFERENCE.\r\nC\r\n      DO 80 I = IMCSID,NMCSID,2\r\n      IZ(I+1) = 0\r\n   80 CONTINUE\r\nC\r\nC  READ NEXT ID-RECORD\r\nC\r\n  100 FILE = OES1\r\n      LOC = 100\r\n      CALL READ(*300,*9003,OES1,IDREC(1),146,EOR,NWORDS)\r\nC\r\nC  CHECK IF STILL SAME SUBCASE UNLESS THIS IS THE FIRST ID-RECORD OF A\r\nC  SUBCASE GROUP.\r\nC\r\n      IF( .NOT. FIRST ) GO TO 200\r\nC\r\nC  YES THIS IS FIRST ID-RECORD OF A SUBCASE GROUP.\r\nC  SET SUBCASE IDENTIFIERS.\r\nC\r\n      SUBCAS = IDREC(4)\r\n      FIRST = .FALSE.\r\n      GO TO 500\r\nC\r\nC  CHECKING FOR CHANGE IN SUBCASE\r\nC\r\n  200 IF( SUBCAS .EQ. IDREC(4) ) GO TO 500\r\nC\r\nC  CHANGE IN SUBCASE THUS BACK RECORD OVER THIS ID-RECORD CLOSE\r\nC  OES1, AND WRAP UP OPERATIONS ON OES1M FOR CURRENT SUBCASE.\r\nC\r\n      CALL BCKREC( OES1 )\r\n      CALL CLOSE( OES1, CLS )\r\nC\r\nC  CLOSE ESTX(SCR1) AND ESTXX(SCR2).\r\nC\r\n  250 CALL CLOSE( SCR1, CLSREW )\r\n      CALL CLOSE( SCR2, CLSREW )\r\n      GO TO 5000\r\nC\r\nC  END OF FILE ON OES1. SET EOF FLAG AND WRAP UP CURRENT OPERATIONS\r\nC  ON OES1M.\r\nC\r\n  300 EOFOS1 = .TRUE.\r\n      CALL CLOSE( OES1, CLSREW )\r\n      CALL CLOSE(OES1M,CLSREW)\r\n      GO TO 250\r\nC\r\nC  ID RECORD ON OES1 WILL BE FOR SOME KIND OF ELEMENT.\r\nC  CHECK TO SEE IF ITS TYPE IS IN THE LIST OF TYPES NOW ON SCR1\r\nC  WHICH IS THE ABBREVIATED EST. IF NOT THEN SKIP THE DATA RECORD\r\nC  AND GO TO NEXT ID RECORD.\r\nC\r\n  500 ELTYPE = IDREC(3)\r\n      IFORMT = IDREC(9)\r\n      OWORDS = IDREC(10)\r\n      DO 520 I = IELTYP,NELTYP\r\n      IF( ELTYPE .EQ. IZ(I) ) GO TO 600\r\n  520 CONTINUE\r\n      CALL FWDREC(*300,OES1)\r\n      GO TO 100\r\nC\r\nC  POSITION TO SCR1 RECORD FOR THIS ELEMENT TYPE. IF IT CAN NOT BE\r\nC  FOUND BY FORWARD SEARCH THERE IS A LOGIC ERROR, OR OES1 ELEMENT\r\nC  TYPES ARE NOT IN SAME ORDER AS EST ELEMENT TYPES.\r\nC\r\n  600 FILE = SCR1\r\n      LOC = 600\r\n      CALL REWIND (SCR1)\r\n  640 CALL READ(*9002,*9003,SCR1,BUF(1),3,NOEOR,NWORDS)\r\n      IF( BUF(1) .EQ. ELTYPE ) GO TO 650\r\n      CALL FWDREC(*9002,SCR1)\r\n      GO TO 640\r\nC\r\nC  NOW POSITIONED TO READ ELEMENT ENTRIES FROM ESTX(SCR1) WHICH\r\nC  ARE OK FOR INCLUSION IN OES1M AND OES1G PROCESSING.\r\nC\r\nC  ALSO POSITIONED TO READ OUTPUT STRESS/STRAIN ENTRIES FROM OES1.\r\nC  HOWEVER, ONLY THOSE ALSO ON ESTX(SCR1) WILL BE PULLED.\r\nC\r\n  650 ANYOUT = .FALSE.\r\n      EWORDS = BUF(2)\r\n      NPTS = BUF(3)\r\n      NPTS4 = 4*NPTS\r\n      IESTX = NCSTM + 1\r\n      NESTX = NCSTM + EWORDS\r\n      IOES1M = NESTX + 1\r\n      NOES1M = NESTX\r\n      LOC = 650\r\n      ICRQ = NOES1M - JCORE\r\n      IF( NOES1M .GT. JCORE ) GO TO 9008\r\n      IDSCR1 = 0\r\nC\r\nC  READ NEXT OES1 ENTRY AND SET IDOES1  (STRIPPING OFF DEVICE CODE)\r\nC\r\n  670 FILE = OES1\r\n      LOC = 670\r\n      CALL READ(*9002,*900,OES1,BUF(1),OWORDS,NOEOR,NWORDS)\r\n      IDOES1 = BUF(1) / 10\r\n      IF( IDOES1 ) 9000,9000,700\r\nC\r\nC  READ NEXT SCR1 ENTRY AND SET IDSCR1\r\nC\r\n  680 FILE = SCR1\r\n      LOC = 680\r\n      CALL READ(*9002,*950,SCR1,IZ(IESTX),EWORDS,NOEOR,NWORDS)\r\n      IDSCR1 = IZ(IESTX)\r\n      IF( IDSCR1 ) 9000,9000,700\r\nC\r\nC  CHECK FOR MATCH OF ESTX(SCR1) ENTRY ID WITH OES1 ENTRY ID.\r\nC\r\n  700 IF( IDOES1 - IDSCR1 ) 670,710,680\r\nC\r\nC  MATCH FOUND THUS BEGIN OES1M ENTRY CALCULATIONS\r\nC\r\n  710 MCSID = IZ(IESTX+1)\r\n      LOC = 710\r\n      CALL TRANEM( MCSID, NPTS, Z(IESTX+NPTS+2), ICOMP, U(1), VEC(1) )\r\nC\r\nC  FORM AND ADD ENTRY TO CORE. INVARIANTS WILL BE COMPUTED LATER.\r\nC\r\n      INCR = 9\r\n      IF (ICMPLX.EQ.1) INCR = 15\r\n      ICRQ = NOES1M + INCR - JCORE\r\n      IF( NOES1M+INCR .GT. JCORE ) GO TO 9008\r\n      IZ(NOES1M+1) = BUF(1)\r\n      IZ(NOES1M+2) = MCSID\r\n      IZ(NOES1M+3) = ICOMP\r\n      IF (ICMPLX.EQ.1) GO TO 730\r\nC\r\nC  IF STRAINS DO MODIFICATION OF GAMMA\r\nC\r\n      IF( .NOT. STRAIN ) GO TO 720\r\n      RBUF(ISIG1+2) = RBUF(ISIG1+2) / 2.0\r\n      RBUF(ISIG2+2) = RBUF(ISIG2+2) / 2.0\r\n  720 CALL GMMATS( U(1),3,3,0,  RBUF(ISIG1),3,1,0,  Z(NOES1M+4) )\r\n      CALL GMMATS( U(1),3,3,0,  RBUF(ISIG2),3,1,0,  Z(NOES1M+7) )\r\nC\r\n      NOES1M = NOES1M + 9\r\n      GO TO 740\r\nC\r\n  730 IF (IFORMT.NE.3) GO TO 732\r\n      DO 731 MM1 = 3, 10, 7\r\n      MM2 = MM1 + 4\r\n      DO 731 LLL = MM1, MM2, 2\r\n      ZTEMP   = RBUF(LLL)*COS(RBUF(LLL+1)*DEGRAD)\r\n      RBUF(LLL+1) = RBUF(LLL)*SIN(RBUF(LLL+1)*DEGRAD)\r\n      RBUF(LLL) = ZTEMP\r\n  731 CONTINUE\r\n  732 ZDUM(1) = RBUF(3)\r\n      ZDUM(2) = RBUF(5)\r\n      ZDUM(3) = RBUF(7)\r\n      CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+4))\r\n      ZDUM(1) = RBUF(4)\r\n      ZDUM(2) = RBUF(6)\r\n      ZDUM(3) = RBUF(8)\r\n      CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+7))\r\n      ZDUM(1) = RBUF(10)\r\n      ZDUM(2) = RBUF(12)\r\n      ZDUM(3) = RBUF(14)\r\n      CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+10))\r\n      ZDUM(1) = RBUF(11)\r\n      ZDUM(2) = RBUF(13)\r\n      ZDUM(3) = RBUF(15)\r\n      CALL GMMATS (U(1),3,3,0,ZDUM,3,1,0,Z(NOES1M+13))\r\nC\r\n      IF (IFORMT.NE.3) GO TO 738\r\n      DO 737 MM1 = 4, 10, 6\r\n      MM2 = MM1 + 2\r\n      DO 737 LLL = MM1, MM2\r\n      LL1 = NOES1M + LLL\r\n      LL2 = LL1 + 3\r\n      ZTEMP   = SQRT (Z(LL1)**2 + Z(LL2)**2)\r\n      IF (ZTEMP.NE.0.0) GO TO 734\r\n      Z(LL2) = 0.0\r\n      GO TO 736\r\n  734 Z(LL2) = ATAN2 (Z(LL2), Z(LL1))*RADDEG\r\n      IF (Z(LL2).LT.-0.00005E0) Z(LL2) = Z(LL2) + 360.0\r\n  736 Z(LL1) = ZTEMP\r\n  737 CONTINUE\r\nC\r\n  738 NOES1M = NOES1M + 15\r\nC\r\nC\r\nC  IF THIS IS THE FIRST ELEMENT ENTRY TO BE FOUND\r\nC  AND OES1G IS TO BE FORMED, THE ID-RECORD IS SAVED FOR USE BY\r\nC  CURV3 OVERLAY.\r\nC\r\n  740 IF( .NOT. FOES1G ) GO TO 790\r\n      IF( ANY ) GO TO 750\r\n      FILE = SCR3\r\n      LOC = 740\r\n      CALL OPEN(*9001,SCR3,IZ(IBUF4),WRTREW)\r\n      CALL WRITE( SCR3, IDREC(1), 146, EOR )\r\n      CALL CLOSE( SCR3, CLSREW )\r\nC\r\n      FILE = SCR2\r\n      CALL OPEN(*9001,SCR2,IZ(IBUF4),WRTREW)\r\n      DEVICE = MOD( BUF(1), 10 )\r\n      ANY = .TRUE.\r\nC\r\nC  OUTPUT SPECIAL ESTXX (SCR2) ENTRY FOR USE BY CURV3.\r\nC\r\n  750 CALL WRITE( SCR2, MCSID, 1, NOEOR )\r\n      CALL WRITE( SCR2, Z(NOES1M-5), 6, NOEOR )\r\n      CALL WRITE( SCR2, VEC(1), 3, NOEOR )\r\n      CALL WRITE( SCR2, NPTS, 1, NOEOR )\r\n      CALL WRITE( SCR2, IZ(IESTX+2), NPTS4, NOEOR )\r\n  790 CONTINUE\r\n      GO TO 670\r\nC*****\r\nC  END OF ENTRY DATA POSSIBLE FOR THIS ELEMENT TYPE\r\nC******\r\nC\r\nC  SKIP ANY UNUSED DATA IN ESTX (SCR1) DATA RECORD FOR THIS ELEMENT TYPE\r\nC\r\n  900 FILE = SCR1\r\n      LOC = 900\r\n      CALL FWDREC(*9002,SCR1)\r\n      GO TO 960\r\nC\r\nC  SKIP ANY UNUSED DATA IN OES1 DATA RECORD FOR THIS ELEMENT TYPE.\r\nC\r\n  950 FILE = OES1\r\n      LOC = 950\r\n      CALL FWDREC(*9002,OES1)\r\nC\r\nC  IF ANY ENTRIES WERE FOUND AND COMPLETED AND PLACED IN CORE\r\nC  THEY ARE SORTED ON -MCSID- AND OUTPUT. AS THEY ARE OUTPUT\r\nC  THE INVARIANTS ARE COMPUTED.\r\nC\r\n  960 IF( NOES1M .LT. IOES1M ) GO TO 100\r\nC\r\nC  YES THERE ARE SOME ENTRIES\r\nC\r\n      LOES1M = NOES1M - IOES1M + 1\r\n      CALL SORT( 0, 0, INCR, 2, IZ(IOES1M), LOES1M )\r\nC\r\nC  OUTPUT ID-RECORD, REDEFINE MAJOR-ID FOR OFP MODULE\r\nC\r\nC  RE-DEFINITION MISSING FOR NOW.\r\nC\r\n      IDREC(3) = IDREC(3) + 1000\r\n      CALL WRITE( OES1M, IDREC(1), 146, EOR )\r\n      MCB(1) = OES1M\r\n      CALL WRTTRL( MCB(1) )\r\n      ANY1M = .TRUE.\r\nC\r\nC  MOVE AXIS CODE AND COMPLETE INVARIANTS OF EACH ENTRY.\r\nC\r\n      KMCSID = IZ(IOES1M+1)\r\n      KOUNT = 0\r\nC\r\n      DO 970 I = IOES1M, NOES1M, INCR\r\n      BUF(1) = IZ(I)\r\n      BUF(2) = IZ(I+1)\r\n      RBUF(3) = Z(I+3)\r\n      IF (ICMPLX.EQ.1) GO TO 963\r\n      RBUF(4) = Z(I+4)\r\n      RBUF(5) = Z(I+5)\r\n      CALL CURVPS( RBUF(3), RBUF(6) )\r\n      IF( .NOT. STRAIN ) GO TO 961\r\n      RBUF(5) = 2.0 * RBUF(5)\r\n      RBUF(9) = 2.0 * RBUF(9)\r\n  961 BUF(10) = IZ(I+2)\r\n      RBUF(11) = Z(I+6)\r\n      RBUF(12) = Z(I+7)\r\n      RBUF(13) = Z(I+8)\r\n      CALL CURVPS ( RBUF(11), RBUF(14) )\r\n      IF( .NOT. STRAIN ) GO TO 962\r\n      RBUF(13) = 2.0 * RBUF(13)\r\n      RBUF(17) = 2.0 * RBUF(17)\r\n  962 CALL WRITE( OES1M, BUF(1), 17, NOEOR )\r\n      GO TO 964\r\n  963 RBUF( 4) = Z(I+ 6)\r\n      RBUF( 5) = Z(I+ 4)\r\n      RBUF( 6) = Z(I+ 7)\r\n      RBUF( 7) = Z(I+ 5)\r\n      RBUF( 8) = Z(I+ 8)\r\n      BUF(  9) = IZ(I+2)\r\n      RBUF(10) = Z(I+ 9)\r\n      RBUF(11) = Z(I+12)\r\n      RBUF(12) = Z(I+10)\r\n      RBUF(13) = Z(I+13)\r\n      RBUF(14) = Z(I+11)\r\n      RBUF(15) = Z(I+14)\r\n      CALL WRITE (OES1M, BUF(1), 15, NOEOR)\r\nC\r\nC  KEEP COUNT OF ELEMENTS IN EACH MCSID GROUP\r\nC\r\n  964 IF( IZ(I+1) .NE. KMCSID ) GO TO 965\r\n      KOUNT = KOUNT + 1\r\n      IF( I+INCR-1 .LT. NOES1M ) GO TO 970\r\nC\r\nC  CHANGE IN -MCSID- OF OUTPUT ENTRIES OR LAST ENTRY.\r\nC  ADD COUNT OF ELEMENTS OF CURRENT TYPE TO TOTAL COUNT\r\nC  OF ELEMENTS OF THIS -MCSID-.\r\nC\r\n  965 LOC = 965\r\n      CALL BISLOC(*9000,KMCSID,IZ(IMCSID),2,MCSIDS,JP)\r\n      IZ(IMCSID+JP) = IZ(IMCSID+JP) + KOUNT\r\n      KOUNT = 1\r\n      KMCSID = IZ(I+1)\r\n  970 CONTINUE\r\n      CALL WRITE( OES1M, 0, 0, EOR )\r\n      GO TO 100\r\nC*****\r\nC  ALL PROCESSING OF ONE SUBCASE COMPLETE FOR OES1M.\r\nC*****\r\n 5000 CALL CLOSE( OES1M, CLS )\r\n      RETURN\r\nC*****\r\nC  ERROR CONDITION ENCOUNTERED\r\nC*****\r\n 9000 IMSG = -LOGERR\r\n      GO TO 5000\r\n 9001 IMSG = -1\r\n      GO TO 5000\r\n 9002 IMSG = -2\r\n      GO TO 5000\r\n 9003 IMSG = -3\r\n      GO TO 5000\r\n 9008 IMSG = -8\r\n      LCORE = ICRQ\r\n      GO TO 5000\r\n      END\r\n"
  },
  {
    "path": "mis/curv3.f",
    "content": "      SUBROUTINE CURV3\r\nC*****\r\nC  THIS OVERLAY WILL FORM OES1G (IF REQUESTED BY DMAP PARAMETER = 0)\r\nC\r\nC  OES1G OUTPUTS FOR CURRENT SUBCASE WILL BE GROUPED ON THE BASIS OF\r\nC  THE MCSID. THUS THERE WILL BE A PASS FOR EACH -MCSID- HAVING A NON-\r\nC  ZERO COUNT IN TABLE(IMCSID-NMCSID).\r\nC\r\nC  TO CONSERVE CORE FOR SSPLIN UTILITY, THE SIGMAS FOR EACH -MCSID- PASS\r\nC  WILL BE WRITTEN TO SCR4 AS ENTRIES ARE SELECTED FROM SCR2. DEPENDENT\r\nC  POINTS, EXTERNAL-IDS, AND INDEPENDENT POINTS WILL BE PLACED IN CORE\r\nC  AND THEN REDUCED DURING THE PROJECTION SURFACE DETERMINATION PHASE.\r\nC\r\nC     OPEN CORE MAP DURING -CURV3- EXECUTION.\r\nC     =======================================\r\nC\r\nC     FROM-------+------------+\r\nC     CURV1      I  Z(IELTYP) I  MASTER LIST OF ELEMENT TYPES  ON\r\nC     EXECUTION  I    THRU    I  ESTX(SCR1)\r\nC                I  Z(NELTYP) I\r\nC                +------------+\r\nC                I  Z(IMCSID) I  MASTER LIST OF MCSIDS ELEMENTS IN\r\nC                I    THRU    I  PROBLEM REFERENCE, WITH COUNTS OF\r\nC                I  Z(NMCSID) I  OES1M ELEMENTS FOR CURRENT SUBCASE.\r\nC                +------------+\r\nC                I  Z(ICSTM)  I  CSTM FOR EACH -MCSID- IN ABOVE LIST.\r\nC                I    THRU    I  14 WORD ENTRIES. (USER MAY NOT HAVE\r\nC                I  Z(NCSTM)  I  SUPPLIED ALL, BUT MAY BE OK.)\r\nC     FROM-------+------------+\r\nC     AND DURING I  Z(IINDEP) I  INDEPENDENT POINT COORDINATES FOR ONE\r\nC     CURV3      I    THRU    I  -MCSID- OF CURRENT SUBCASE.\r\nC     EXECUTION  I  Z(NINDEP) I  TWO OR THREE WORD ENTRIES POSSIBLE.\r\nC                +------------+\r\nC                I  Z(IDEP)   I  DEPENDENT POINT COORDINATES FOR ONE\r\nC                I    THRU    I  -MCSID- OF CURRENT SUBCASE.\r\nC                I  Z(NDEP)   I  TWO OR FOUR WORD ENTRIES POSSIBLE.\r\nC                +------------+\r\nC                I  Z(IGMAT)  I  G MATRIX FROM SSPLIN UTILITY\r\nC                I    THRU    I  (N-DEPENDENT-PTS BY N-INDEPENDENT-PTS)\r\nC                I  Z(NGMAT)  I\r\nC                +------------+\r\nC                I  Z(ISIGMA) I  OES1M SIGMAS FOR ONE -MCSID- OF CURRENT\r\nC                I    THRU    I  SUBCASE.  6X1 ENTRIES.\r\nC                I  Z(NSIGMA) I\r\nC                +------------+\r\nC                I     .      I  AVAILABLE CORE.\r\nC                I     .      I  (SSPLIN UTILITY USES Z(ISIGMA) THRU\r\nC                I     .      I  Z(LCORE) FOR WORKING SPACE.)\r\nC                I     .      I\r\nC                I  Z(JCORE)  I\r\nC                +------------+\r\nC                I  Z(IBUF4)  I  GINO-BUFFER\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF3)  I  GINO-BUFFER\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF2)  I  GINO-BUFFER\r\nC                I            I\r\nC                +------------+\r\nC                I  Z(IBUF1)  I  GINO-BUFFER\r\nC                I            I\r\nC                I  Z(LCORE)  I\r\nC                +------------+\r\nC\r\nC  INPUTS - SCR2 CONTAINING ACTUAL ELEMENT ENTRIES USED TO FORM\r\nC                OES1M FOR CURRENT OES1 SUBCASE. MAY BE MORE THAN\r\nC                ONE -MCSID-. HAS THE SIX SIGMAS OF EACH ELEMENT\r\nC                APPENDED TO EACH ELEMENT.\r\nC\r\nC                       -ELEMENT-ENTRY-\r\nC\r\nC                        MCSID = MATERIAL COORDINATE SYSTEM ID\r\nC                        SIGMA1-X\r\nC                        SIGMA1-Y\r\nC                        SIGMA1-XY\r\nC                        SIGMA2-X\r\nC                        SIGMA2-Y\r\nC                        SIGMA2-XY\r\nC                        XC  *\r\nC                        YC   * MEAN CENTER OF INDEPENDENT POINT\r\nC                        ZC  *\r\nC                        NPTS = NUMBER OF CONNECTED DEPENDENT GRIDS\r\nC                        EXTERNAL GRID IDS (1 FOR EACH POINT)\r\nC                        X,Y,Z  COMPONENTS OF EACH DEPENDENT GRID\r\nC\r\nC           SCR3 CONTAINING OFP TYPE -ID- RECORD TO USE AS A MODEL\r\nC                FOR OES1G -ID- RECORD.\r\nC\r\nC\r\nC           TABLE(IMCSID) THRU Z(NMCSID) CONTAINS PAIRS OF MCSID-S AND\r\nC                COUNTS. (ONE PAIR FOR EACH UNIQUE MCSID OF CURRENT\r\nC                SUBCASE.)\r\nC\r\nC\r\nC           TABLE  Z(ICSTM) TO Z(NCSTM) CONTAINING TRANSFORMATIONS\r\nC\r\nC*****\r\n      REAL               Z(1)     ,RBUF(100)\r\nC\r\n      INTEGER            MCB(7)\r\nC\r\n      INTEGER            CSTMS    ,SCR1     ,SCR2     ,SCR3\r\n      INTEGER            SCR4     ,OES1M    ,OES1G    ,OES1     ,SCR5\r\n      INTEGER            CSTM     ,EST      ,SIL      ,GPL\r\n      INTEGER            ELTYPE   ,SUBCAS   ,FILE     ,ESTWDS\r\n      INTEGER            EWORDS   ,OWORDS   ,DEPTS    ,CSTYPE\r\n      INTEGER            DEVICE   ,OLDID    ,BUF      ,SBUF\r\n      INTEGER            RD       ,RDREW    ,WRT      ,WRTREW\r\n      INTEGER            CLS      ,CLSREW   ,EOR      ,SYSBUF\r\nC\r\n      LOGICAL            ANY      ,EOFOS1   ,FIRST    ,ANYOUT\r\n      LOGICAL            FOES1G   ,STRAIN   ,ANY1M    ,ANY1G\r\nC\r\n      COMMON/BLANK /     IP1      ,IP2\r\nC\r\n      COMMON/SYSTEM/     SYSBUF   ,IOUTPT\r\nC\r\n      COMMON/NAMES /     RD       ,RDREW    ,WRT      ,WRTREW\r\n     1                  ,CLSREW   ,CLS\r\nC\r\n      COMMON/ZZZZZZ/     IZ(1)\r\nC\r\n      COMMON/CURVC1/     LSBUF    ,SBUF(10)\r\nC\r\n      COMMON/CURVC2/     LBUF     ,BUF(100)\r\nC\r\n      COMMON/CURVC3/     VEC(3)   ,VMAX(3)  ,VMIN(3)  ,IDREC(146)\r\nC\r\n      COMMON/CURVTB/     IMID     ,NMID     ,LMID     ,NMIDS\r\n     A                  ,IELTYP   ,NELTYP   ,JELTYP   ,ICSTM\r\n     B                  ,NCSTM    ,CSTMS    ,LCSTM    ,IESTX\r\n     C                  ,NESTX    ,IMCSID   ,NMCSID   ,LMCSID\r\n     D                  ,MCSIDS   ,JMCSID   ,KMCSID   ,ISIL\r\n     E                  ,NSIL     ,LSIL     ,JSIL     ,IOES1M\r\n     F                  ,NOES1M   ,LOES1M   ,IDEP     ,NDEP\r\n     G                  ,IINDEP   ,NINDEP   ,JINDEP   ,ISIGMA\r\n     H                  ,NSIGMA   ,IGMAT    ,NGMAT    ,IEXT\r\n     I                  ,NEXT     ,LEXT     ,SCR1     ,SCR2\r\n     J                  ,SCR3     ,SCR4     ,OES1M    ,OES1G\r\n     K                  ,OES1     ,MPT      ,CSTM     ,EST\r\n     L                  ,SIL      ,GPL      ,JCORE    ,LCORE\r\n     M                  ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4\r\n     N                  ,I        ,J        ,K        ,L\r\n     O                  ,K1       ,K2       ,IXYZ1    ,IXYZ2\r\n     P                  ,LX1      ,LX2      ,ELTYPE   ,MCSID\r\n     Q                  ,IDSCR1   ,IDOES1   ,NPTS     ,NPTS4\r\n     R                  ,IWORDS   ,NWORDS   ,SUBCAS   ,KOUNT\r\n     S                  ,ISIG1    ,ISIG2    ,LOC      ,FILE\r\n      COMMON/CURVTB/     IMSG     ,NELEMS   ,IMATID   ,ICOMP\r\n     1                  ,ESTWDS   ,EWORDS   ,JP       ,OWORDS\r\n     2                  ,MATID    ,DEPTS    ,INDPTS   ,ICTYPE\r\n     3                  ,IVMAT    ,ITRAN    ,CSTYPE   ,ISING\r\n     4                  ,DEVICE   ,OLDID    ,ANY      ,EOFOS1\r\n     5                  ,FIRST    ,ANYOUT   ,FOES1G   ,STRAIN\r\n     6                  ,LOGERR   ,ANY1M    ,ANY1G    ,SCR5\r\nC\r\n      EQUIVALENCE        (Z(1),IZ(1)), (BUF(1),RBUF(1))\r\n      EQUIVALENCE        (NOEOR,RDREW), (EOR,CLS)\r\nC\r\n      DATA MCB/ 7*1 /\r\nC\r\nC  BRING OES1G -ID- RECORD INTO CORE AND MODIFY AS NECESSARY.\r\nC\r\n      FILE = SCR3\r\n      LOC = 50\r\n      CALL OPEN(*9001,SCR3,IZ(IBUF1),RDREW)\r\n      CALL READ(*9002,*9003,SCR3,IDREC(1),146,NOEOR,NWORDS)\r\n      CALL CLOSE( SCR3, CLSREW )\r\nC\r\nC\r\nC\r\nC\r\nC  OVERALL LOOP IS ON ENTRIES OF TABLE(IMCSID-NMCSID)\r\nC\r\n      JMCSID = IMCSID\r\nC\r\n  100 MCSID = IZ(JMCSID)\r\n      INDPTS = IZ(JMCSID+1)\r\n      LOC = 100\r\n      IF( INDPTS ) 9000,980,110\r\nC\r\nC  COLLECT DATA REQUIRED FROM SCR2.\r\nC\r\n  110 FILE = SCR2\r\nC\r\nC  CORE ALLOCATION FOR XC, YC, ZC OF EACH INDEPENDENT POINT.\r\nC\r\n      IINDEP = NCSTM + 1\r\n      NINDEP = NCSTM + 3*INDPTS\r\nC\r\nC  CORE ALLOCATION FOR EXT-ID,X,Y,Z OF EACH UNIQUE DEPENDENT POINT.\r\nC  (THE QUANTITY OF DEPENDENT POINTS IS NOT YET KNOWN.)\r\nC\r\n      IDEP = NINDEP + 1\r\n      NDEP = NINDEP\r\n      LOC = 110\r\n      ICRQ = NDEP - JCORE\r\n      IF( NDEP .GT. JCORE ) GO TO 9008\r\nC\r\n      CALL OPEN(*9001,SCR2,IZ(IBUF1),RDREW)\r\n      FILE = SCR3\r\n      CALL OPEN(*9001,SCR3,IZ(IBUF2),WRTREW)\r\nC\r\n      JINDEP = IINDEP\r\n      FILE = SCR2\r\nC\r\nC  FIND -INDPTS- NUMBER OF INDEPENDENT ELEMENT POINTS ENTRIES\r\nC  FOR CURRENT -MCSID- PASS. (LOGIC ERROR IF CAN NOT FIND THIS MANY)\r\nC\r\n      DO 400 I = 1,INDPTS\r\nC\r\nC  READ ELEMENT INDEPENDENT PORTION OF ENTRY\r\nC\r\n  150 LOC = 150\r\n      CALL READ(*9002,*9003,SCR2,BUF(1),11,NOEOR,NWORDS)\r\n      NPTS = BUF(11)\r\n      NPTS4 = 4*NPTS\r\nC\r\nC  CHECK MCSID OF ENTRY TO BE SAME AS ONE OF THIS PASS.\r\nC\r\n      IF( BUF(1) .EQ. MCSID ) GO TO 170\r\nC\r\nC  NO IT IS NOT THUS SKIP BALANCE OF ENTRY.\r\nC\r\n      LOC = 170\r\n      CALL READ(*9002,*9003,SCR2,0,-NPTS4,NOEOR,NWORDS)\r\n      GO TO 150\r\nC\r\nC  YES, THIS ENTRY IS OF CURRENT PASS MCSID. ADD POINT DATA TO CORE.\r\nC  FIRST OUTPUT SIGMAS TO SCR3\r\nC\r\n  170 CALL WRITE( SCR3, BUF(2), 6, NOEOR )\r\n      Z(JINDEP  ) = RBUF(8)\r\n      Z(JINDEP+1) = RBUF(9)\r\n      Z(JINDEP+2) = RBUF(10)\r\n      JINDEP = JINDEP + 3\r\nC\r\nC  INDEPENDENT POINTS NOT YET IN CORE ARE ADDED.\r\nC\r\n      CALL READ(*9002,*9003,SCR2,BUF(1),NPTS4,NOEOR,NWORDS)\r\n      K = NPTS\r\n      DO 300 J = 1,NPTS\r\nC\r\nC  CHECK IF EXTERNAL ID IS IN TABLE YET.\r\nC\r\n      IF( NDEP .LT. IDEP ) GO TO 220\r\n      DO 200 L = IDEP,NDEP,4\r\n      IF( BUF(J) .EQ. IZ(L) ) GO TO 290\r\n  200 CONTINUE\r\nC\r\nC  NOT YET IN THUS ADD IT TO TABLE\r\nC\r\n  220 ICRQ = NDEP + 4 - JCORE\r\n      IF( NDEP+4 .GT. JCORE ) GO TO 9008\r\n      IZ(NDEP+1) = BUF(J)\r\n      Z(NDEP+2) = RBUF(K+1)\r\n      Z(NDEP+3) = RBUF(K+2)\r\n      Z(NDEP+4) = RBUF(K+3)\r\n      NDEP = NDEP + 4\r\nC\r\n  290 K = K + 3\r\nC\r\n  300 CONTINUE\r\nC\r\n  400 CONTINUE\r\nC*****\r\nC  ALL DATA FOR CURRENT MCSID HAS BEEN COLLECTED FROM SCR2.\r\nC*****\r\n      CALL CLOSE( SCR2, CLSREW )\r\n      CALL CLOSE( SCR3, CLSREW )\r\nC\r\nC  DEPENDENT COORDINATES ARE SORTED ON EXTERNAL-ID.\r\nC\r\n      CALL SORT( 0, 0, 4, 1, Z(IDEP), NDEP-IDEP+1 )\r\nC*****\r\nC  CONVERSION OF INDEPENDENT AND DEPENDENT POINTS TO LOCAL\r\nC  MATERIAL COORDINATE SYSTEM. FIRST GET CSTM DATA TO USE.\r\nC*****\r\n      LOC = 400\r\n      CALL BISLOC(*9000,MCSID,IZ(ICSTM),14,CSTMS,JP)\r\n      IVMAT = ICSTM + JP + 1\r\n      ITRAN = IVMAT + 3\r\n      ICTYPE = IZ(IVMAT-1)\r\nC\r\nC  FOR EACH POINT\r\nC                               T\r\nC                   (R     )=( T ) ( R     - V     )\r\nC                     LOCAL           BASIC   MCSID\r\nC\r\nC                    (3X1)   (3X3)   (3X1)   (3X1)\r\nC\r\n      DO 480 I = IINDEP,NINDEP,3\r\n      VEC(1) = Z(I  ) - Z(IVMAT  )\r\n      VEC(2) = Z(I+1) - Z(IVMAT+1)\r\n      VEC(3) = Z(I+2) - Z(IVMAT+2)\r\n      CALL GMMATS( Z(ITRAN),3,3,1, VEC(1),3,1,0, Z(I) )\r\n  480 CONTINUE\r\nC\r\n      DO 490 I = IDEP,NDEP,4\r\n      VEC(1) = Z(I+1) - Z(IVMAT  )\r\n      VEC(2) = Z(I+2) - Z(IVMAT+1)\r\n      VEC(3) = Z(I+3) - Z(IVMAT+2)\r\n      CALL GMMATS( Z(ITRAN),3,3,1, VEC(1),3,1,0, Z(I+1) )\r\n  490 CONTINUE\r\nC*****\r\nC  CONVERSION OF INDEPENDENT POINT LOCAL COORDINATES TO MAPPING\r\nC  COORDINATES. (IF MCSID IS A RECTANGULAR SYSTEM THEN NO CHANGE.)\r\nC*****\r\n      LOC = 490\r\n      IF( ICTYPE.LT.1 .OR. ICTYPE.GT.3 ) GO TO 9000\r\n      GO TO ( 589,510,530 ),ICTYPE\r\nC\r\nC  CYLINDRICAL COORDINATES\r\nC\r\n  510 AVGL = 0.0\r\n      DO 520 I = IINDEP,NINDEP,3\r\n      VEC(1) = SQRT( Z(I)**2 + Z(I+1)**2 )\r\n      AVGL = AVGL + VEC(1)\r\n      IF( VEC(1) .LE. 0.0 ) GO TO 515\r\n      Z(I+1) = ATAN2( Z(I+1), Z(I) )\r\n      GO TO 517\r\n  515 Z(I+1) = 0.0\r\n  517 Z(I) = VEC(1)\r\n  520 CONTINUE\r\n      AVGL = AVGL / FLOAT(INDPTS)\r\n      GO TO 589\r\nC\r\nC  SPHERICAL COORDINATES\r\nC\r\n  530 AVGL = 0.0\r\n      DO 580 I = IINDEP,NINDEP,3\r\n      XSQYSQ = Z(I)**2 + Z(I+1)**2\r\n      FL = SQRT( XSQYSQ )\r\n      VEC(1) = SQRT( XSQYSQ + Z(I+2)**2 )\r\n      AVGL = AVGL + VEC(1)\r\n      IF( VEC(1) .GT. 0.0 ) GO TO 540\r\n      VEC(2) = 0.0\r\n      GO TO 550\r\n  540 VEC(2) = ATAN2( FL, Z(I+2) )\r\n  550 IF( FL .GT. 0.0 ) GO TO 560\r\n      VEC(3) = 0.0\r\n      GO TO 570\r\n  560 VEC(3) = ATAN2( Z(I+1), Z(I) )\r\n  570 Z(I  ) = VEC(1)\r\n      Z(I+1) = VEC(2)\r\n      Z(I+2) = VEC(3)\r\n  580 CONTINUE\r\n      AVGL = AVGL / FLOAT(INDPTS)\r\nC*****\r\nC  CONVERSION OF DEPENDENT POINT LOCAL COORDINATES TO MAPPING\r\nC  COORDINATES.\r\nC  (IF MCSID IS RECTANGULAR SYSTEM THEN NO CHANGE.)\r\nC*****\r\n  589 GO TO(609,590,600), ICTYPE\r\nC\r\nC  CYLINDRICAL COORDINATES\r\nC\r\n  590 DO 594 I = IDEP,NDEP,4\r\n      VEC(1) = SQRT( Z(I+1)**2 + Z(I+2)**2 )\r\n      IF( VEC(1) .LE. 0.0 ) GO TO 592\r\n      Z(I+2) = ATAN2( Z(I+2), Z(I+1) )\r\n      GO TO 593\r\n  592 Z(I+2) = 0.0\r\n  593 Z(I+1) = VEC(1)\r\n  594 CONTINUE\r\n      GO TO 609\r\nC\r\nC  SPHERICAL COORDINATES\r\nC\r\n  600 DO 607 I = IDEP,NDEP,4\r\n      XSQYSQ = Z(I+1)**2 + Z(I+2)**2\r\n      FL = SQRT( XSQYSQ )\r\n      VEC(1) = SQRT( XSQYSQ + Z(I+3)**2 )\r\n      IF( VEC(1) .GT. 0.0 ) GO TO 602\r\n      VEC(2) = 0.0\r\n      GO TO 604\r\n  602 VEC(2) = ATAN2( FL, Z(I+3) )\r\n  604 IF( FL .GT. 0.0 ) GO TO 605\r\n      VEC(3) = 0.0\r\n      GO TO 606\r\n  605 VEC(3) = ATAN2( Z(I+2), Z(I+1) )\r\n  606 Z(I+1) = VEC(1)\r\n      Z(I+2) = VEC(2)\r\n      Z(I+3) = VEC(3)\r\n  607 CONTINUE\r\nC\r\nC  SET MAXIMUM AND MIMIMUM X,Y,Z VALUES.\r\nC\r\n  609 DO 610 I = 1,3\r\n      VMAX(I) = Z(IINDEP+I-1)\r\n      VMIN(I) = Z(IINDEP+I-1)\r\n  610 CONTINUE\r\nC\r\n      DO 650 I = IINDEP,NINDEP,3\r\n      DO 640 J = 1,3\r\n      VMAX(J) = AMAX1( Z(I+J-1), VMAX(J) )\r\n      VMIN(J) = AMIN1( Z(I+J-1), VMIN(J) )\r\n  640 CONTINUE\r\n  650 CONTINUE\r\nC\r\nC  SET THE X,Y,Z RANGES\r\nC\r\n      DO 670 I = 1,3\r\n      VMAX(I) = VMAX(I) - VMIN(I)\r\n      VEC(I) = VMAX(I)\r\n  670 CONTINUE\r\nC\r\n      IF( ICTYPE .EQ. 1 ) GO TO 680\r\n      VMAX(2) = AVGL * VMAX(2)\r\n      IF( ICTYPE .EQ. 2 ) GO TO 680\r\n      VMAX(3) = AVGL * VMAX(3)\r\nC\r\nC  DIRECTION YIELDING MINIMUM RANGE DETERMINES PROJECTION\r\nC\r\n  680 IF( VMAX(1) .LT. VMAX(2) ) GO TO 700\r\n      IF( VMAX(2) .LT. VMAX(3) ) GO TO 690\r\n  685 K1 = 1\r\n      K2 = 2\r\n      KCTYPE = 3\r\n      GO TO 710\r\n  690 K1 = 1\r\n      K2 = 3\r\n      KCTYPE = 2\r\n      GO TO 710\r\n  700 IF( VMAX(3) .LT. VMAX(1) ) GO TO 685\r\n      K1 = 2\r\n      K2 = 3\r\n      KCTYPE = 1\r\nC\r\n  710 XRANGE = VEC(K1)\r\n      YRANGE = VEC(K2)\r\n      IF( XRANGE ) 712,711,712\r\n  711 XRANGE = 1.0\r\n  712 IF( YRANGE ) 714,713,714\r\n  713 YRANGE = 1.0\r\nC\r\nC  COORDINATES -K1- AND -K2- WILL BE KEPT.\r\nC\r\nC  TABLE OF INDEPENDENT AND DEPENDENT POINTS ARE REDUCED TO\r\nC  TABLES OF X,Y PAIRS. FIRST TO GAIN SOME CORE, EXTERNAL\r\nC  IDS- ARE WRITTEN TO SCR4.\r\nC\r\n  714 FILE = SCR4\r\n      LOC = 714\r\n      CALL OPEN(*9001,SCR4,IZ(IBUF1),WRTREW)\r\n      DO 720 I = IDEP,NDEP,4\r\n      CALL WRITE( SCR4, IZ(I), 1, NOEOR )\r\n  720 CONTINUE\r\n      CALL CLOSE( SCR4, CLSREW )\r\nC\r\nC  REDUCE INDEPENDENT POINTS TO XY PAIRS, SCALE BY X AND Y RANGES\r\nC  RESPECTIVELY, AND COMPRESS IN CORE.\r\nC\r\n      J = IINDEP\r\n      DO 740 I = IINDEP,NINDEP,3\r\n      Z(J  ) = Z(I+K1-1) / XRANGE\r\n      Z(J+1) = Z(I+K2-1) / YRANGE\r\n      J = J + 2\r\n  740 CONTINUE\r\n      NINDEP = J - 1\r\nC\r\nC  REDUCE DEPENDENT POINTS LIST. (J IS STILL GOOD)\r\nC\r\n      DO 770 I=IDEP,NDEP,4\r\n      Z(J  ) = Z(I+K1) / XRANGE\r\n      Z(J+1) = Z(I+K2) / YRANGE\r\n      J = J + 2\r\n  770 CONTINUE\r\n      IDEP = NINDEP + 1\r\n      NDEP = J - 1\r\n      DEPTS = (NDEP - IDEP + 1) / 2\r\nC*****\r\nC  INDEPENDENT AND DEPENDENT POINT COORDINATE LISTS ARE NOW\r\nC  COMPLETE.  CALL FOR INTERPOLATION.\r\nC*****\r\n      CALL CURVIT( Z(IINDEP), INDPTS, Z(IDEP), DEPTS, SCR5,\r\n     1        Z(NDEP+1), IZ(NDEP+1), LCORE-NDEP-1, IP2, 15.0, MCSID,\r\n     2        XRANGE, YRANGE )\r\nC\r\nC  BRING -OES1M- SIGMAS INTO CORE FOR CURRENT -MCSID- PASS.\r\nC\r\n      ISIGMA = IINDEP + 1\r\n      NSIGMA = IINDEP + 6*INDPTS\r\n      JSIGMA = ISIGMA - 7\r\n      ICRQ = NSIGMA - IBUF3\r\n      IF( NSIGMA .GE. IBUF3 ) GO TO 9008\r\n      FILE = SCR3\r\n      LOC = 800\r\n      CALL OPEN(*9001,SCR3,IZ(IBUF1),RDREW)\r\n      CALL READ(*9002,*810,SCR3,IZ(ISIGMA),IBUF3-ISIGMA,NOEOR,NWORDS)\r\n      LOC = 810\r\n      GO TO 9000\r\nC\r\n  810 IF( NWORDS .NE. 6*INDPTS ) GO TO 9000\r\n      CALL CLOSE( SCR3, CLSREW )\r\nC\r\nC    (SIGMAS                ) = (G)(SIGMAS                        )\r\nC           DEPENDENT POINTS              OES1M INDEPENDENT POINTS\r\nC\r\nC  SINCE THE ORDER OF THE ROWS IN THE G MATRIX ARE IN SORTED EXTERNAL\r\nC  GRID ORDER EACH OUTPUT LINE OF OES1G WILL BE HANDLED ON ITS\r\nC  OWN. THIS ELIMINATES NECESSITY OF HOLDING ANOTHER SIGMA ARRAY\r\nC  IN CORE.\r\nC\r\n      FILE = OES1G\r\n      LOC = 815\r\n      CALL OPEN(*9001,OES1G,IZ(IBUF1),WRT)\r\nC\r\nC  OUTPUT ID RECORD. PREVIOUSLY PREPARED.\r\nC\r\n      IDREC(3) = IDREC(3) + 2000\r\n      CALL WRITE( OES1G, IDREC(1), 146, EOR )\r\n      MCB(1) = OES1G\r\n      CALL WRTTRL( MCB(1) )\r\n      ANY1G = .TRUE.\r\nC\r\nC  OPEN SCR5 CONTAINING ROWS OF THE G-MATRIX.\r\nC\r\n      FILE = SCR5\r\n      CALL OPEN(*9001,SCR5,IZ(IBUF3),RDREW)\r\n      CALL FWDREC(*9002,SCR5)\r\nC\r\nC  OPEN SCR4 CONTAINING LIST OF EXTERNAL IDS )\r\nC\r\n      FILE = SCR4\r\n      CALL OPEN(*9001,SCR4,IZ(IBUF2),RDREW)\r\nC\r\nC  COMPUTE AND OUTPUT SIGMAS FOR THE DEPENDENT POINTS\r\nC\r\n      BUF(2) = MCSID\r\n      DO 900 I=1,DEPTS\r\nC\r\nC  READ THE EXTERNAL ID\r\nC\r\n      FILE = SCR4\r\n      CALL READ(*9002,*9003,SCR4,BUF(1),1,NOEOR,NWORDS)\r\n      FILE = SCR5\r\nC\r\nC  INITIALIZE SIGMAS(DEPENDENT POINT) TO ZERO\r\nC\r\n      DO 820 J = 3,8\r\n      RBUF(J) = 0.0\r\n  820 CONTINUE\r\nC\r\n      K = 0\r\n      LOC = 825\r\nC\r\nC  READ ACTIVE INDEX AND G-VALUE FROM SCRATCH 5\r\nC\r\n  825 CALL READ(*9002,*840,SCR5,RBUF(11),2,NOEOR,NWORDS)\r\n      K = K + 10\r\n      IDX = JSIGMA + 6*BUF(11)\r\n      DO 830 J = 1,6\r\n      RBUF(J+2) = RBUF(J+2) + RBUF(12)*Z(IDX+J)\r\n  830 CONTINUE\r\n      GO TO 825\r\nC\r\nC  IF THERE WERE ANY G-VALUES THEN NOW COMPLETE THE OUTPUT LINE.\r\nC\r\n  840 IF( K .LE. 0 ) GO TO 900\r\nC\r\n      BUF(10) = K + KCTYPE\r\nC\r\n      RBUF(11) = RBUF(6)\r\n      RBUF(12) = RBUF(7)\r\n      RBUF(13) = RBUF(8)\r\nC\r\nC  COMPUTE INVARIANTS FOR EACH LINE\r\nC\r\n      CALL CURVPS( RBUF( 3), RBUF( 6) )\r\n      CALL CURVPS( RBUF(11), RBUF(14) )\r\n      IF( .NOT. STRAIN ) GO TO 881\r\n      RBUF(5) = 2.0 * RBUF(5)\r\n      RBUF(9) = 2.0 * RBUF(9)\r\n      RBUF(13) = 2.0 * RBUF(13)\r\n      RBUF(17) = 2.0 * RBUF(17)\r\nC\r\nC  APPEND DEVICE CODE TO EXTERNAL ID AND OUTPUT LINE\r\nC\r\n  881 BUF(1) = 10*BUF(1) + DEVICE\r\n      CALL WRITE( OES1G, BUF(1), 17, NOEOR )\r\n  900 CONTINUE\r\nC\r\n      CALL WRITE( OES1G, 0, 0, EOR )\r\n      IF(EOFOS1 .AND. JMCSID+2 .GT. NMCSID) CALL CLOSE(OES1G,CLSREW)\r\n      CALL CLOSE( OES1G, CLS )\r\n      CALL CLOSE( SCR4, CLSREW )\r\n      CALL CLOSE( SCR5, CLSREW )\r\nC*****\r\nC  ALL INDEPENDENT POINTS OUTPUT TO OES1G FOR 1 ACTIVE MCSID OF\r\nC  CURRENT SUBCASE. GO TO NEXT MCSID.\r\nC*****\r\n  980 JMCSID = JMCSID + 2\r\n      IF( JMCSID .LE. NMCSID ) GO TO 100\r\nC*****\r\nC  ALL THROUGH FORMING OES1G FOR CURRENT SUBCASE.\r\nC*****\r\n 5000 RETURN\r\nC*****\r\nC  ERROR CONDITION ENCOUNTERED\r\nC*****\r\n 9000 IMSG = -LOGERR\r\n      GO TO 5000\r\n 9001 IMSG = -1\r\n      GO TO 5000\r\n 9002 IMSG = -2\r\n      GO TO 5000\r\n 9003 IMSG = -3\r\n      GO TO 5000\r\n 9008 IMSG = -8\r\n      LCORE = ICRQ\r\n      GO TO 5000\r\n      END\r\n"
  },
  {
    "path": "mis/curvit.f",
    "content": "      SUBROUTINE CURVIT (INDEP,NI,DEP,ND,IFILE,Z,IZ,LZ,MCLOSE,TOLER,\r\n     1                   MCSID,XSCALE,YSCALE)\r\nC\r\nC     PERFORMS LOCAL INTERPOLATION\r\nC\r\nC     INDEP  = X,Y COORDINATES OF INDEPENDENT ELEMENT CENTERS (2 X NI)\r\nC     DEP    = X,Y COORDINATES OF DEPENDENT GRID POINTS  (2 X ND)\r\nC     IFILE  = FILE TO WRITE SPECIAL FORM ROWS OF G-MATRIX\r\nC     Z      = REAL AREA OF CORE, LENGTH = LZ.\r\nC     IZ     = EQUIVALENT INTEGER AREA OF CORE, LENGTH = LZ.\r\nC     MCLOSE = NUMBER OF CLOSEST INDEPENDENT POINTS TO USE\r\nC     TOLER  = PERCENT OF DISTANCE FROM A DEPENDENT POINT TO\r\nC              INDEPENDENT POINT NUMBER -NCLOSE- POINTS FURTHER OUT ARE\r\nC              ALLOWED TO BE SUCH AS TO BE INCLUDED IN A LOCAL\r\nC              INTERPOLATION.\r\nC\r\n      INTEGER         SYSBUF, IZ(1), SUBR(2), ITEMP(2), RD, RDREW, WRT,\r\n     1                WRTREW, CLSREW, CLS, EOR\r\n      REAL            Z(1), DEP(2,1), INDEP(2,1)\r\n      CHARACTER       UFM*23, UWM*25\r\n      COMMON /XMSSG / UFM, UWM\r\n      COMMON /SYSTEM/ SYSBUF, IOUTPT\r\n      COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      DATA    SUBR  / 4HCURV ,4HIT  /, EOR, NOEOR / 1, 0 /\r\nC\r\n      NCLOSE = MIN0(MCLOSE,NI)\r\n      IF (NCLOSE .LE. 2) NCLOSE = NI\r\nC\r\nC     COMPUTE TOLERANCE MULTIPLIER WITH RESPECT TO SQUARES.\r\nC     TOLERANCE IS IN PERCENT OF DISTANCE TO POINT NUMBER -NCLOSE- IN\r\nC     FINAL LIST\r\nC\r\n      TOL = (1.0 + TOLER/100.0)**2\r\nC\r\nC     THUS IF DISTANCE FROM THE DEPENDENT POINT TO INDEPENDENT POINT\r\nC     NUMBER -NCLOSE- = LSQ, ADDITIONAL INDEPENDENT POINTS WILL BE\r\nC     INCLUDED IF THE SQUARE OF THEIR DISTANCE TO THE DEPENDENT POINT\r\nC     IS .LE. TOL TIMES LSQ.\r\nC\r\nC\r\nC     ALLOCATE BUFFER FOR -IFILE- AND OPEN -IFILE-.\r\nC\r\n      IBUF = LZ - SYSBUF\r\n      JZ   = IBUF - 1\r\n      ICRQ = -JZ\r\n      IF (JZ .LE. 0) GO TO 900\r\n      CALL GOPEN (IFILE,IZ(IBUF),1)\r\nC\r\nC     EACH ROW OF G-MATRIX WILL BE WRITTEN AS A LOGICAL RECORD\r\nC     WITH PAIRS OF\r\nC                 1- INDEPENDENT POINT INDEX\r\nC                 2- G VALUE\r\nC\r\nC\r\nC     SHORT CUT WILL BE TAKEN IF ALL INDEPENDENT POINTS ARE TO BE USED\r\nC     FOR INTERPOLATION AT EACH DEPENDENT POINT.\r\nC\r\n      IF (NCLOSE .EQ. NI) GO TO 550\r\nC\r\nC     MASTER LOOP ON DEPENDENT POINTS. EACH DEPENDENT POINT RESULTS IN\r\nC     A VARIABLE LENGTH ROW OF G-MATRIX DEPENDING ON HOW MANY\r\nC     INDEPENDENT POINTS ARE SELECTED FOR USE. (AT LEAST 3 MUST BE USED)\r\nC\r\n   80 DO 500 I = 1,ND\r\nC\r\nC     LIST OF DISTANCE SQUARES OF ALL INDEPENDENT POINTS TO\r\nC     CURRENT DEPENDENT POINT IS FORMED.\r\nC\r\nC     SELECTION OF THE -NCLOSE- SMALLEST VALUES IS THEN MADE.\r\nC\r\nC     THEN ANY OTHER INDEPENDENT POINTS WITHIN TOLERANCE RANGE OF\r\nC     POINT NUMBER -NCLOSE- IN LIST ARE ADDED.\r\nC\r\n      FMAX = 0.0\r\n      X    = DEP(1,I)\r\n      Y    = DEP(2,I)\r\n      ICRQ = NI - JZ\r\n      IF (NI .GT. JZ) GO TO 900\r\n      DO 100 J = 1,NI\r\n      Z(J) = (XSCALE*(INDEP(1,J)-X))**2 + (YSCALE*(INDEP(2,J)-Y))**2\r\n      IF (Z(J) .LE. FMAX) GO TO 100\r\n      FMAX = Z(J)\r\n  100 CONTINUE\r\n      FMAX = 2.0*FMAX + 1.0\r\nC\r\nC     ALLOCATE FOR LIST OF INDEXES TO THE MINIMUMS.\r\nC\r\n      ILIST = NI + 1\r\n      NLIST = NI\r\nC\r\nC     FIND -NCLOSE- SMALLEST VALUES.\r\nC\r\n      DO 170 J = 1,NCLOSE\r\n      FMIN = FMAX\r\nC\r\n      DO 160 K = 1,NI\r\n      IF (FMIN-Z(K)) 160,160,150\r\n  150 FMIN = Z(K)\r\n      IDX  = K\r\n  160 CONTINUE\r\nC\r\nC     ADD INDEX TO THIS MINIMUM TO THE LIST\r\nC\r\n      ICRQ = NLIST + 1 - JZ\r\n      IF (ICRQ .GT. 0) GO TO 900\r\n      IZ(NLIST+1) = IDX\r\n      NLIST = NLIST + 1\r\nC\r\nC     RESET THIS VALUE SO IT CAN NOT BE USED AGAIN\r\nC\r\n      Z(IDX) = FMAX\r\n  170 CONTINUE\r\nC\r\nC     ADD ANY ADDITIONAL INDEPENDENT POINTS WITHIN TOLERANCE RANGE OF\r\nC     LAST ONE SELECTED ABOVE.\r\nC\r\n      FMAX = TOL*FMIN\r\n      DO 190 J = 1,NI\r\n      IF (Z(J) .GT. FMAX) GO TO 190\r\n      ICRQ = NLIST + 1 - JZ\r\n      IF (ICRQ .GT. 0) GO TO 900\r\n      IZ(NLIST+1) = J\r\n      NLIST = NLIST + 1\r\n  190 CONTINUE\r\nC\r\nC     LIST IS COMPLETE THUS MOVE IT TO THE BEGINNING OF THE CORE BLOCK.\r\nC\r\n      J = 0\r\n      DO 210 K = ILIST,NLIST\r\n      J = J + 1\r\n      IZ(J) = IZ(K)\r\n  210 CONTINUE\r\n      ILIST = 1\r\n      NLIST = J\r\n      IPTS  = J\r\nC\r\nC     HERE AND IZ(ILIST) TO IZ(NLIST) CONTAINS LIST OF\r\nC     POSITION INDEXES OF INDEPENDENT POINT COORDINATES TO BE USED.\r\nC\r\nC     NOW SET UP LIST OF XY-CCORDINATES OF THESE INDEPENDENT POINTS\r\nC     FOR THE SSPLIN CALL.\r\nC\r\n      IXY  = NLIST + 1\r\n      NXY  = NLIST + 2*IPTS\r\n      ICRQ = NXY - JZ\r\n      IF (NXY .GT. JZ) GO TO 900\r\n      JXY  = NLIST\r\n      DO 270 J = ILIST,NLIST\r\n      K    = IZ(J)\r\n      Z(JXY+1) = INDEP(1,K)\r\n      Z(JXY+2) = INDEP(2,K)\r\n      JXY  = JXY + 2\r\n  270 CONTINUE\r\nC\r\nC     NOW READY FOR SSPLIN ROUTINE CALL.\r\nC\r\n      CALL SSPLIN (IPTS,Z(IXY),1,DEP(1,I),0,0,0,1,0,Z(JXY+1),JZ-JXY,\r\n     1             ISING)\r\n      IF (ISING .NE. 2) GO TO 300\r\nC\r\nC     ILL-CONDITION FOR THIS DEPENDENT POINT - NO SOLUTION POSSIBLE.\r\nC\r\n      CALL PAGE2 (4)\r\n      WRITE  (IOUTPT,250) UWM,I,MCSID\r\n  250 FORMAT (A25,' 2252. (CURVIT-1) LOCAL INTERPOLATION USING INDE',\r\n     1       'PENDENT VALUES WITHIN RANGE OF THE', /5X,I7,'-TH SORTED ',\r\n     2       'ORDER GRID ID INVOLVED WITH RESPECT TO MATERIAL COORDIN',\r\n     3       'ATE SYSTEM ID',I9, /5X,'CAN NOT BE COMPLETED.  ILL-CONDI',\r\n     4       'TION MAY HAVE RESULTED FROM ALIGNMENT OF INDEPENDENT ',\r\n     5       'VALUE COORDINATES.', /5X,\r\n     6       'OUTPUT FOR THE GRID ID IN QUESTION WILL NOT APPEAR.')\r\n      IPTS = 0\r\n      GO TO 340\r\nC\r\nC     REPLACE INDEPENDENT POINT XY PAIRS WITH SPECIAL FORM DEPENDENT\r\nC     POINT G-MATRIX OUTPUT ROW.\r\nC\r\n  300 K1 = ILIST\r\n      K2 = JXY + 1\r\n      DO 320 J = IXY,NXY,2\r\n      IZ(J ) = IZ(K1)\r\n      Z(J+1) = Z(K2)\r\n      K1 = K1 + 1\r\n      K2 = K2 + 1\r\n  320 CONTINUE\r\nC\r\n  340 CALL WRITE (IFILE,IZ(IXY),2*IPTS,EOR)\r\nC\r\nC  GO PROCESS NEXT DEPENDENT POINT.\r\nC\r\n  500 CONTINUE\r\n      GO TO 800\r\nC\r\nC     CHECK FOR SUFFICIENT CORE FOR SHORT CUT.\r\nC\r\n  550 N = NI + 3\r\n      N = N**2 + 3*N + NI*ND + N*ND\r\n      IF (N .GT. JZ) GO TO 80\r\nC\r\nC     CALL SSPLIN AND GET G-MATRIX STORED BY ROWS.\r\nC\r\n      CALL SSPLIN (NI,INDEP(1,1),ND,DEP(1,1),0,0,0,1,0,Z(1),JZ,ISING)\r\n      IF (ISING .NE. 2) GO TO 650\r\n      N = 0\r\n      WRITE (IOUTPT,250) UWM,N,MCSID\r\nC\r\nC     OUTPUT NULL ROW FOR EACH DEPENDENT POINT.\r\nC\r\n      DO 600 I = 1,ND\r\n      CALL WRITE (IFILE,0,0,EOR)\r\n  600 CONTINUE\r\n      GO TO 800\r\nC\r\nC     OUTPUT ROWS OF G-MATRIX WITH INDEXES.\r\nC\r\n  650 K = 0\r\n      DO 680 I = 1,ND\r\n      DO 670 J = 1,NI\r\n      K = K + 1\r\n      ITEMP(1) = J\r\n      ITEMP(2) = IZ(K)\r\n      CALL WRITE (IFILE,ITEMP(1),2,NOEOR)\r\n  670 CONTINUE\r\n      CALL WRITE (IFILE,0,0,EOR)\r\n  680 CONTINUE\r\nC\r\nC     ALL G-MATRIX ROWS COMPLETE. (ROWS SINGULAR ARE EMPTY LOGICAL\r\nC     RECORDS IN -IFILE- )\r\nC\r\n  800 CALL CLOSE (IFILE,CLSREW)\r\n      RETURN\r\nC\r\n  900 CALL MESAGE (-8,ICRQ,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/curvps.f",
    "content": "      SUBROUTINE CURVPS (SIGS, PRIN)\r\nC*****\r\nC  COMPUTES PRINCIPAL STRESSES OR STRAINS AND ANGLE OF MAXIMUM.\r\nC*****\r\n      REAL SIGS(3), PRIN(4)\r\nC\r\n      TEMP = SIGS(1) - SIGS(2)\r\n      PRIN(4) = SQRT( (TEMP/2.0)**2 + SIGS(3)**2 )\r\n      DELTA = ( SIGS(1) + SIGS(2) ) / 2.0\r\n      PRIN(2) = DELTA + PRIN(4)\r\n      PRIN(3) = DELTA - PRIN(4)\r\n      DELTA = 2.0 * SIGS(3)\r\n      IF( ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15 ) GO TO 100\r\n      PRIN(1) = ATAN2( DELTA, TEMP )*28.6478898E0\r\n      RETURN\r\nC\r\n  100 PRIN(1) = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cxloop.f",
    "content": "      SUBROUTINE CXLOOP (X,Y,N)\r\n      DOUBLE PRECISION X(1), Y(1)\r\n      DOUBLE PRECISION XX(2) , YY(2), MPY(2)\r\n      NN = N + N\r\n      DO 10 I = 1,NN\r\n   10 X(I) = Y(I)\r\n      RETURN\r\n      ENTRY CLOOP( XX, YY, MPY, M)\r\n      MM = M+M\r\n      DO 20 I = 1,MM,2\r\n      XX(I) = XX(I) - MPY(1)*YY(I) + MPY(2) * YY(I+1)\r\n   20 XX(I+1) = XX(I+1) -MPY(2)*YY(I) -MPY(1)*YY(I+1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cxtrny.f",
    "content": "      SUBROUTINE CX TRN Y (X,Y,ALPHA)\r\nC*******\r\nC     CX TRN Y FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA WHERE\r\nC     X AND Y ARE COMPLEX\r\nC*******\r\n      COMMON   /CINVPX/  AAA       ,NCOL\r\n      DOUBLE PRECISION   X(1)      ,Y(1)     ,ALPHA(2)\r\n      NCOL2 = NCOL+NCOL\r\n      ALPHA(1) = 0.D0\r\n      ALPHA(2) = 0.D0\r\n      DO 10 I = 1,NCOL2,2\r\n      ALPHA(1) = ALPHA(1)+X(I)*Y(I)-X(I+1)*Y(I+1)\r\n   10 ALPHA(2) = ALPHA(2)+X(I)*Y(I+1)+X(I+1)*Y(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cyct1.f",
    "content": "      SUBROUTINE CYCT1\r\nC\r\nC     GENERATE CYCLIC TRANSFORMATION MATRIX, TRANSFORM VECTORS\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC     CYCT1   VIN/VOUT,GCYC/V,Y,CTYPE/V,Y,CDIR/V,Y,N/V,Y,KMAX/\r\nC             V,Y,NLOAD/V,N,NOGO $\r\nC\r\n      LOGICAL          LBACK, LCOS, LDRL, LDSA, LNMULT, LVIN, LVOUT\r\n      INTEGER          BUF, CDIR, CTYPE, GCYC, HBACK, HDRL, HDSA, HROT,\r\n     1                 IZ, MCB(7), PKIN, PKINCR, PKIROW, PKNROW, PKOUT,\r\n     2                 PRECIS, SCRT, SUBR(2), SYSBUF, VIN, VOUT, OUTPT\r\n      REAL             RZ(1)\r\n      DOUBLE PRECISION DC, DC1, DFAC, DFAK, DS, DS1, DZ(1)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /PACKX /  PKIN,PKOUT,PKIROW,PKNROW,PKINCR\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      COMMON /BLANK /  CTYPE(2),CDIR(2),NN,KMAXI,NLOAD,NOGO\r\n      EQUIVALENCE      (KSYSTM( 1),SYSBUF), (KSYSTM( 2) ,OUTPT),\r\n     1                 (KSYSTM(55),IPREC ), (IZ(1),RZ(1),DZ(1))\r\n      DATA    SUBR  /  4HCYCT, 4H1   /,   HBACK  /  4HBACK    /\r\n      DATA    VIN   /  101  /, VOUT,GCYC /201,202/, SCRT  /301/\r\n      DATA    HROT  ,  HDRL  , HDSA  /4HROT ,4HDRL ,4HDSA     /\r\nC\r\nC\r\nC     FIND NECESSARY PARAMETERS\r\nC\r\n      NOGO   = 1\r\n      PRECIS = 2\r\n      IF (IPREC .NE. 2) PRECIS = 1\r\n      LDRL = CTYPE(1).EQ.HDRL\r\n      LDSA = CTYPE(1).EQ.HDSA\r\n      IF (.NOT.((CTYPE(1).EQ.HROT) .OR. LDRL.OR.LDSA)) GO TO 310\r\n   10 LBACK = CDIR(1).EQ.HBACK\r\nC\r\nC     CURRENT DOCUMENTED USAGE DOES NOT USE NEGATIVE VALUES OF KMAXI\r\nC     OTHER THAN THE DEFAULT OF -1     10/02/73\r\nC     LOGIC IS INCLUDED IN THE ROUTINE TO USE NEGATIVE KMAXI BUT IS NOT\r\nC     FULLY CHECKED OUT.  THE FOLLOWING STATEMENT NEGATES ALL THIS LOGIC\r\nC\r\n      IF (KMAXI .LT. 0) KMAXI = NN/2\r\n      KMAX = KMAXI\r\n      KMIN = 0\r\n      IF (KMAX .GE. 0) GO TO 20\r\n      KMAX =-KMAX\r\n      KMIN = KMAX\r\n   20 IF (2*KMAX.GT.NN .OR. NN.LE.0) GO TO 330\r\n   30 IF (NLOAD .LE. 0) GO TO 350\r\n   40 NLOADS = NLOAD\r\n      IF (LDSA) NLOADS = 2*NLOAD\r\n      NLOADT = NLOAD\r\n      IF (LDRL .OR. LDSA) NLOADT = 2*NLOAD\r\n      NUMROW = NN\r\n      IF (.NOT.LBACK) GO TO 50\r\n      NUMROW = 2*(KMAX-KMIN+1)\r\n      IF (KMIN   .EQ.  0) NUMROW = NUMROW - 1\r\n      IF (2*KMAX .EQ. NN) NUMROW = NUMROW - 1\r\n   50 NUMROW = NLOADT*NUMROW\r\nC\r\nC     DEFINE OPEN CORE POINTERS AND GINO BUFFER\r\nC                POINTERS                BEGIN    END\r\nC          TABLE OF COS (2.0*PI*N/NN)     ICOS    NCOS\r\nC          TABLE OF SIN (2.0*PI*N/NN)     ISIN    NSIN\r\nC          AREA TO ASSEMBLE COLUMNS       ICOL    NCOL\r\nC          (NOTE  N = LITTLE N, NN = CAPITAL N)   N = 0,(NN-1)\r\nC          (ALLOW FOR (NLOADS-1) ZEROS BEFORE FIRST ENTRY IN COL)\r\nC\r\n      BUF  = KORSZ(IZ) - SYSBUF + 1\r\n      ICOS = 1\r\n      NCOS = ICOS + NN - 1\r\n      ISIN = NCOS + 1\r\n      NSIN = ISIN + NN - 1\r\n      ICOL = NSIN + 1\r\n      JCOL = ICOL + NLOADS - 1\r\n      NCOL = JCOL + NUMROW - 1\r\n      IF (2*NCOL .GE. BUF) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     CHECK DATA BLOCK TRAILERS\r\nC\r\n      MCB(1) = GCYC\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) GO TO 370\r\n   60 MCB(1) = VOUT\r\n      CALL RDTRL (MCB(1))\r\n      LVOUT  = MCB(1).GT.0\r\n      MCB(1) = VIN\r\n      CALL RDTRL (MCB(1))\r\n      LVIN = MCB(1).GT.0\r\n      IF (.NOT.LVIN) MCB(2) = 0\r\n      LNMULT = MCB(2).NE.NUMROW\r\n      IF (LVIN .AND. LVOUT .AND. LNMULT) GO TO 390\r\n      IF (NOGO) 410,410,70\r\nC\r\nC     THE PARAMETERS ARE OK\r\nC     PREPARE TRIGONOMETRIC TABLES,  DC1=COS(2*PI/NN), PI = 4*ATAN(1)\r\nC     MOVABLE POINTERS  JXXX=N , KXXX= NN-N\r\nC\r\n   70 RN   = FLOAT(NN)\r\n      DFAC = (8.0D0*DATAN(1.0D0))/DBLE(RN)\r\n      DC1  = DCOS(DFAC)\r\n      DS1  = DSIN(DFAC)\r\n      JCOS = ICOS\r\n      KCOS = NCOS + 1\r\n      JSIN = ISIN\r\n      KSIN = NSIN + 1\r\n      DZ(JCOS) = 1.0D0\r\n      DZ(JSIN) = 0.0D0\r\n   80 IF (KCOS-JCOS-2) 120,90,100\r\n   90 DC   =-1.0D0\r\n      DS   = 0.0D0\r\n      GO TO 110\r\n  100 DC   = DC1*DZ(JCOS) - DS1*DZ(JSIN)\r\n      DS   = DS1*DZ(JCOS) + DC1*DZ(JSIN)\r\n  110 JCOS = JCOS + 1\r\n      JSIN = JSIN + 1\r\n      KCOS = KCOS - 1\r\n      KSIN = KSIN - 1\r\n      DZ(JCOS) = DC\r\n      DZ(JSIN) = DS\r\n      DZ(KCOS) = DC\r\n      DZ(KSIN) =-DS\r\n      GO TO 80\r\nC\r\nC     ZERO THE AREA FOR FORMING THE COLUMN\r\nC\r\n  120 DO 130 J = ICOL,NCOL\r\n      DZ(J) = 0.0D0\r\n  130 CONTINUE\r\nC\r\nC     OPEN GCYC MATRIX,  GET READY TO USE PACK\r\nC\r\n      CALL GOPEN (GCYC,IZ(BUF),1)\r\n      CALL MAKMCB (MCB,GCYC,NUMROW,2,PRECIS)\r\n      PKIN   = 2\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = NUMROW\r\n      PKINCR = 1\r\n      IF (LBACK) GO TO 240\r\nC\r\nC     START LOOPING ON COLUMNS OF MATRIX OF TYPE FORE.\r\nC     FORM A COLUMN AND PACK IT OUT\r\nC          K = KMIN,KMAX  ALTERNATE COSINE AND SINE COLUMNS\r\nC\r\n      DFAC = 2.0D0/DBLE(RN)\r\n      IF (LDRL) DFAC = 0.5D0*DFAC\r\n      K    = KMIN\r\n  140 DFAK = DFAC\r\n      IF (K.EQ.0 .OR. 2*K.EQ.NN) DFAK = 0.5D0*DFAK\r\n      LCOS  = .TRUE.\r\n      KTRIG = ICOS\r\n      NTRIG = NCOS\r\n      GO TO 160\r\n  150 LCOS  = .FALSE.\r\n      KTRIG = ISIN\r\n      NTRIG = NSIN\r\n  160 DO 170 KCOL = JCOL,NCOL,NLOADT\r\n      DZ(KCOL) = DFAK*DZ(KTRIG)\r\n      KTRIG = KTRIG + K\r\n      IF (KTRIG .GT. NTRIG) KTRIG = KTRIG - NN\r\n  170 CONTINUE\r\nC\r\nC     PACK OUT NLOADT COLUMNS  (FOR EITHER FORE OR BACK)\r\nC      IF  ROT OR DSA   WE ARE READY\r\nC      IF     DRL       PRODUCE INTERMEDIATE TERMS FIRST (EXPAND)\r\nC\r\n  180 NXCOL = 1\r\n      IF (.NOT.LDRL) GO TO 220\r\n      DO 190 KCOL = JCOL,NCOL,NLOADT\r\n      KCOL2 = KCOL + NLOADS\r\n      DZ(KCOL2) = DZ(KCOL)\r\n  190 CONTINUE\r\n      GO TO 220\r\n  200 NXCOL = 2\r\n      DO 210 KCOL = JCOL,NCOL,NLOADT\r\n      KCOL2 = KCOL + NLOADS\r\n      DZ(KCOL2) = -DZ(KCOL)\r\n  210 CONTINUE\r\n  220 KCOL = JCOL\r\n  230 CALL PACK (DZ(KCOL),GCYC,MCB)\r\n      KCOL = KCOL - 1\r\n      IF (KCOL .GE. ICOL) GO TO 230\r\n      IF (LDRL .AND. NXCOL.EQ.1) GO TO 200\r\n      IF (LBACK) GO TO 280\r\nC\r\nC     BOTTOM OF LOOP FOR TYPE FORE\r\nC\r\n      IF (K.NE.0 .AND. 2*K.NE.NN .AND. LCOS) GO TO 150\r\n      K = K + 1\r\n      IF (K-KMAX) 140,140,290\r\nC\r\nC     START LOOPING ON COLUMNS OF MATRIX OF TYPE BACK\r\nC         N = 1,NN\r\nC\r\n  240 N = 1\r\n  250 K = 0\r\n      KCOS = ICOS\r\n      KCOL = JCOL\r\n  260 IF (K .LT. KMIN) GO TO 270\r\n      DZ(KCOL) = DZ(KCOS)\r\n      KCOL = KCOL + NLOADT\r\n      IF (K.EQ.0 .OR. 2*K.EQ.NN) GO TO 270\r\n      DZ(KCOL) = DZ(KCOS+NN)\r\n      KCOL = KCOL + NLOADT\r\n  270 KCOS = KCOS + N - 1\r\n      IF (KCOS .GT. NCOS) KCOS = KCOS - NN\r\n      K = K + 1\r\n      IF (K-KMAX) 260,260,180\r\nC\r\nC     BOTTOM OF LOOP FOR TYPE BACK\r\nC\r\n  280 N = N + 1\r\n      IF (N-NN) 250,250,290\r\nC\r\nC     THE GCYC MATRIX IS NOW COMPLETE\r\nC\r\n  290 CALL CLOSE  (GCYC,1)\r\n      CALL WRTTRL (MCB(1))\r\nC\r\nC     IF WE HAVE TO FORM VOUT, USE SSG2B.  (VOUT = VIN*GCYC)\r\nC\r\n      IF (LNMULT) GO TO 300\r\n      CALL SSG2B (VIN,GCYC,0,VOUT,0,PRECIS,1,SCRT)\r\n  300 CONTINUE\r\n      RETURN\r\nC\r\nC     FATAL MESSAGES\r\nC\r\n  310 NOGO = -1\r\n      WRITE  (OUTPT,320) UFM,CTYPE(1)\r\n  320 FORMAT (A23,' 4063, ILLEGAL VALUE (',A4,') FOR PARAMETER CTYPE.')\r\n      GO TO 10\r\n  330 NOGO = -1\r\n      WRITE  (OUTPT,340) UFM,NN,KMAXI\r\n  340 FORMAT (A23,' 4064, ILLEGAL VALUES (',I8,1H,,I8,\r\n     1        ') FOR PARAMETERS (NSEGS,KMAX).')\r\n      GO TO 30\r\n  350 NOGO = -1\r\n      WRITE  (OUTPT,360) UFM,NLOAD\r\n  360 FORMAT (A23,' 4065, ILLEGAL VALUE (',I8,') FOR PARAMETER NLOAD.')\r\n      GO TO 40\r\n  370 NOGO = -1\r\n      WRITE  (OUTPT,380) UFM\r\n  380 FORMAT (A23,' 4066, SECOND OUTPUT DATA BLOCK MUST NOT BE PURGED.')\r\n      GO TO 60\r\n  390 NOGO = -1\r\n      WRITE  (OUTPT,400) UFM,MCB(2),NUMROW\r\n  400 FORMAT (A23,' 4067, VIN HAS',I9,' COLS, GCYC HAS',I9,6H ROWS.)\r\n  410 CALL MESAGE (-61,0,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cyct2.f",
    "content": "      SUBROUTINE CYCT2\r\nC\r\nC     CYCT2 TRANSFORMS CYCLIC PROBLEMS BETWEEN SOLUTION VARIABLES AND\r\nC     THE CYCLIC COMPONENTS\r\nC\r\nC     INPUT DATA BLOCKS - CYCD    CYCLIC COMPONENT CONSTRAINT DATA\r\nC     INPUT DATA BLOCKS - KAA     MATRIX - STIFFNESS    MAY BE PURGED\r\nC     INPUT DATA BLOCKS - MAA     MATRIX - MASS         MAY BE PURGED\r\nC     INPUT DATA BLOCKS - V1I     MATRIX - LOAD OR DISP MAY BE PURGED\r\nC     INPUT DATA BLOCKS - V2I     MATRIX - EIGENVECTORS MAY BE PURGED\r\nC     INPUT DATA BLOCKS - LAMX    TABLE  - EIGENVALUES MUST EXIS IF V2I\r\nC\r\nC     OUTPUT DATA BLOCKS- KXX,MXX,V1O,V2O,LAMA\r\nC\r\nC     PARAMETERS - CDIR           INPUT,  BCD, (FORE OR BACK)\r\nC     PARAMETERS - NSEG           INPUT,  INTEGER,NUMBER OF SEGS\r\nC     PARAMETERS - KSEG           INPUT,  INTEGER,CYCLIC INDEX\r\nC     PARAMETERS - CYCSEQ         INPUT,  INTEGER,ALTERNATE=-1\r\nC     PARAMETERS - NLOAD          INPUT,  INTEGER,NUMBER OF LOAD COND\r\nC     PARAMETERS - NOGO           OUTPUT, INTEGER,-1 = ERROR\r\nC\r\nC     SCRATCH FILES (6)\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC     LUA       LENGT OF A SET\r\nC     ITYP      TYPE (0=ROT, 1=DIH)\r\nC     IDIR      DIRECTION (0=FORE, 1=BACK)\r\nC     IFLAG     1 IMPLIES KSEG = 0 OR 2*KSEG = NSEG\r\nC     IPASS     1 IMPLIES SECOND PASS TRROUGH CYCD\r\nC     IGC       1 IMPLIES FIRST MATRIX TYPE (GC FOR ROT)\r\nC     ICS       1 IMPLIES FIRST COLUMN TYPE (COSINE FOR ROT)\r\nC\r\nC\r\n      INTEGER         CYCD,KAA,V1I,V2I,LAMX,V1O,V2O,CDIR(2),CYCSEQ,\r\n     1                SYSBUF,FILE,NAME(2),SCR1,SCR2,SCR3,MCB(14),FORE,\r\n     2                IZ(1),MCB1(7),MCB2(7),SCR4,SCR5,SCR6\r\n      DOUBLE PRECISION DZ,ARG,PI,COS,SIN,CONSTD\r\n      COMMON /UNPAKX/ ITC,IIK,JJK,INCR1\r\n      COMMON /ZBLPKX/ DZ(2),III\r\n      COMMON /PACKX / ITA,ITB,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /CONDAD/ CONSTD(5)\r\n      COMMON /BLANK / CDIR,NSEG,KSEG,CYCSEQ,NLOAD,NOGO\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC),\r\n     1                (CONSTD(1),PI    ),(KSEG,KINDEX),\r\n     2                (Z(1),IZ(1)),(MCB(1),MCB1(1)),(MCB(8),MCB2(1))\r\n      DATA    CYCD,KAA,MAA,V1I,V2I,LAMX,KXX,MXX,V1O,V2O,LAMA/\r\n     1        101 ,102,103,104,105,106 ,201,202,203,204,205 /\r\n      DATA    SCR1,SCR2,SCR3,SCR4,SCR5,SCR6  /\r\n     1        301 ,302 ,303 ,304 ,305 ,306   /\r\n      DATA    NAME,FORE /4HCYCT,4H2   ,4HFORE/\r\nC\r\nC\r\nCIBMNB 6/93\r\n      CYCD = 101\r\n      KAA  = 102\r\n      MAA  = 103\r\n      V1I  = 104\r\n      V2I  = 105\r\n      LAMX = 106\r\n      KXX  = 201\r\n      MXX  = 202\r\n      V1O  = 203\r\n      V2O  = 204\r\n      LAMA = 205\r\n      SCR1 = 301\r\n      SCR2 = 302\r\n      SCR3 = 303\r\n      SCR4 = 304\r\n      SCR5 = 305\r\n      SCR6 = 306\r\nCIBMNE\r\n      NZ    = KORSZ(IZ)\r\n      NOGO  = 1\r\n      V1I   = 104\r\n      V1O   = 203\r\n      SCR3  = 303\r\n      MCB(1)= CYCD\r\n      CALL RDTRL (MCB)\r\n      LUA   = MCB(3)\r\n      ITYP  = MCB(2) - 1\r\n      IDIR  = 1\r\n      IF (CDIR(1) .EQ. FORE) IDIR = 0\r\n      NX    = NZ\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      NZ    = IBUF3 - 1\r\n      IF (2*KSEG.GT.NSEG .OR. KSEG.LT.0 .OR. NSEG.LE.0) GO TO 640\r\n      J = 2\r\n      IF (MCB(5) .EQ. 4) J = 4\r\n      IF (NZ .LT. J*LUA) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     PRODUCE GC AND GS MATRICES (ON SCR1 AND SCR2)\r\nC\r\n      ARG = FLOAT(KSEG)/FLOAT(NSEG)\r\n      ARG = ARG*PI\r\n      IF (ITYP .EQ. 0) ARG = 2.0D0*ARG\r\nC\r\nC     BRING IN CYCD\r\nC\r\n      CALL GOPEN (CYCD,IZ(IBUF1),0)\r\n      CALL FREAD (CYCD,IZ(1),LUA,1)\r\n      CALL CLOSE (CYCD,1)\r\n      CALL GOPEN (SCR1,IZ(IBUF1),1)\r\nC\r\nC     COMPUTE COS AND SIN\r\nC\r\n      IF (ITYP .EQ. 0) GO TO 30\r\n      IF (KSEG .EQ. 0) GO TO 10\r\n      IF (2*KSEG .EQ. NSEG) GO TO 20\r\n      GO TO 50\r\n   10 COS = 1.0\r\n      SIN = 0.0\r\n      GO TO 60\r\n   20 COS = 0.0\r\n      SIN = 1.0\r\n      GO TO 60\r\n   30 IF (KSEG   .EQ.    0) GO TO 10\r\n      IF (2*KSEG .EQ. NSEG) GO TO 40\r\n      GO TO 50\r\n   40 COS = -1.0\r\n      SIN = 0.0\r\n      GO TO 60\r\n   50 CONTINUE\r\n      COS = DCOS(ARG)\r\n      SIN = DSIN(ARG)\r\n   60 CONTINUE\r\n      IFLAG = 0\r\n      IF (KSEG.EQ.0 .OR. 2*KSEG.EQ.NSEG) IFLAG = 1\r\n      IF (ITYP.NE.0 .OR. IFLAG.EQ.0) CALL GOPEN (SCR2,IZ(IBUF2),1)\r\n      ITA = 2\r\n      ITB = 1\r\n      INCR= 1\r\n      II  = 1\r\n      JJ  = LUA\r\n      CALL MAKMCB (MCB1,SCR1,LUA,2,IPREC)\r\n      CALL MAKMCB (MCB2,SCR2,LUA,2,IPREC)\r\n      CALL WRTTRL (MCB1)\r\n      CALL WRTTRL (MCB2)\r\n      IPASS = 0\r\n      IF (ITYP .NE. 0) GO TO 200\r\nC\r\nC     BUILD ROTATIONAL MATRICES\r\nC\r\n   70 L  = 1\r\n   80 IF (IZ(L) .LT. 0) GO TO 190\r\n      MM = IZ(L)\r\n      IP = 1\r\nC\r\nC     FIRST BUILD GC\r\nC\r\n      IGC  = 1\r\n      FILE = SCR1\r\nC\r\nC     FIRST DO COSINE\r\nC\r\n      ICS = 1\r\n      IF (IPASS .NE. 0) ICS = 0\r\nC\r\nC     BUILD COLUMN\r\nC\r\n   90 CONTINUE\r\n      CALL BLDPK (2,IPREC,FILE,0,0)\r\n      IF (MM) 190,100,110\r\nC\r\nC     INTERIOR POINT\r\nC\r\n  100 CONTINUE\r\n      IF ((ICS.EQ.0 .AND. IGC.EQ.1) .OR. (ICS.EQ.1 .AND.  IGC.EQ.0))\r\n     1   GO TO 170\r\n      III   = L\r\n      DZ(1) = 1.0\r\n      CALL ZBLPKI\r\n      GO TO 170\r\nC\r\nC     SIDE 1 POINTS\r\nC\r\n  110 IF (ICS .NE. 0) GO TO 140\r\nC\r\nC     SINE COLUMN\r\nC\r\n      IF (IGC .NE. 0) GO TO 160\r\nC\r\nC     MATRIX IS GS\r\nC\r\n  120 IF (L .GT. MM) GO TO 130\r\n      DZ(1) = 1.0\r\n      III   = L\r\n      CALL ZBLPKI\r\n      DZ(1) = COS\r\n      III   = MM\r\n      CALL ZBLPKI\r\n      GO TO 170\r\n  130 III   = MM\r\n      DZ(1) = COS\r\n      CALL ZBLPKI\r\n      III   = L\r\n      DZ(1) = 1.0\r\n      CALL ZBLPKI\r\n      GO TO 170\r\nC\r\nC     COSINE COLUMN\r\nC\r\n  140 IF (IGC .NE. 0) GO TO 150\r\nC\r\nC     MATRIX IS GS\r\nC\r\n      III   = MM\r\n      DZ(1) =-SIN\r\n      CALL ZBLPKI\r\n      GO TO 170\r\nC\r\nC     MATRIX IS GC\r\nC\r\n  150 GO TO 120\r\nC\r\nC     MATRIX IS GC\r\nC\r\n  160 III   = MM\r\n      DZ(1) = SIN\r\n      CALL ZBLPKI\r\n      GO TO 170\r\n  170 CONTINUE\r\n      CALL BLDPKN (FILE,0,MCB(IP))\r\n      IF (CYCSEQ .EQ. 1) GO TO 180\r\nC\r\nC     NOW DO SINE COLUMN\r\nC\r\n      IF (ICS   .EQ. 0) GO TO 180\r\n      IF (IFLAG .EQ. 1) GO TO 190\r\n      ICS = 0\r\n      GO TO 90\r\nC\r\nC     NOW DO GS\r\nC\r\n  180 IF (IFLAG.EQ.1 .OR. IP.EQ.8) GO TO 190\r\n      IP  = 8\r\n      IGC = 0\r\n      ICS = 1\r\n      FILE = SCR2\r\n      GO TO 90\r\nC\r\nC     CONSIDER NEXT CYCD VALUE\r\nC\r\n  190 L = L + 1\r\n      IF (L .LE. LUA) GO TO 80\r\nC\r\nC     GONE THRU CYCD ONCE. DONE IF CYCSEQ = -1\r\nC\r\n      IF (CYCSEQ .EQ. -1) GO TO 400\r\nC\r\nC     MUST NOW DO SINE COLUMNS UNLESS IFLAG = 1\r\nC\r\n      IF (IPASS .EQ. 1) GO TO 400\r\n      IF (IFLAG .EQ. 1) GO TO 400\r\n      IPASS = 1\r\n      GO TO 70\r\nC\r\nC     BUILD DIHEDRAL MATRICES\r\nC\r\n  200 IPASS = 0\r\n  210 L     = 1\r\n  220 IP    = 1\r\n      IGC   = 1\r\n      FILE  = SCR1\r\nC\r\nC     FIRST DO S COLUMN\r\nC\r\n      ICS = 1\r\n      IF (IPASS .NE. 0) ICS = 0\r\n      MM  = IZ(L)\r\n      IF (MM.GT.0 .AND. IPASS.EQ.1) GO TO 390\r\n  230 CONTINUE\r\n      CALL BLDPK (2,IPREC,FILE,0,0)\r\n      IF (MM .GT. 0) GO TO 280\r\nC\r\nC     INTERIOR POINT\r\nC\r\n      IF (ICS .NE. 0) GO TO 260\r\nC\r\nC     A COLUMN\r\nC\r\n      IF (IGC .NE. 0) GO TO 250\r\nC\r\nC     MATRIX IS GA  - COLUMN IS A\r\nC\r\n  240 DZ(1) = 1.0\r\n      III = L\r\n      CALL ZBLPKI\r\n      GO TO 370\r\nC\r\nC     MATRIX IS GS - COLUMN IS A\r\nC\r\n  250 GO TO 370\r\nC\r\nC     SCOLUMN\r\nC\r\n  260 IF (IGC .NE. 0) GO TO 270\r\nC\r\nC     MATRIX IS GA - S COLUMN\r\nC\r\n      GO TO 370\r\nC\r\nC     MATRIX IS GS - COLUMN IS S\r\nC\r\n  270 GO TO 240\r\nC\r\nC     SIDE POINT\r\nC\r\n  280 IF (IGC .EQ. 0) GO TO 350\r\nC\r\nC     MATRIX IS GS\r\nC\r\n      GO TO (290,320,330,370), MM\r\n  290 III   = L\r\n  300 DZ(1) = COS\r\n  310 CALL ZBLPKI\r\n      GO TO 370\r\n  320 III   = L\r\n      DZ(1) =-SIN\r\n      GO TO 310\r\n  330 III   = L\r\n  340 DZ(1) = 1.0\r\n      GO TO 310\r\nC\r\nC     MATRIX IS GA\r\nC\r\n  350 III = L\r\n      GO TO (360,300,370,340), MM\r\n  360 DZ(1) = SIN\r\n      GO TO 310\r\n  370 CONTINUE\r\n      CALL BLDPKN (FILE,0,MCB(IP))\r\n      IF (CYCSEQ.EQ.1 .OR. MM.GT.0) GO TO 380\r\nC\r\nC     NOW DO A COLUMN\r\nC\r\n      IF (ICS .EQ. 0) GO TO 380\r\n      ICS = 0\r\n      GO TO 230\r\nC\r\nC     NOW DO GA\r\nC\r\n  380 IF (IP .EQ. 8) GO TO 390\r\n      IP  = 8\r\n      IGC = 0\r\n      FILE= SCR2\r\n      ICS = 1\r\n      GO TO 230\r\nC\r\nC     CONSIDER NEXT CYCD VALUE\r\nC\r\n  390 L = L + 1\r\n      IF (L .LE. LUA) GO TO 220\r\nC\r\nC     GONE THRU CYCD ONCE - DONE IF CYCSEQ = -1\r\nC\r\n      IF (CYCSEQ .EQ. -1) GO TO 400\r\nC\r\nC     NOW DO A COLUMNS\r\nC\r\n      IF (IPASS .EQ. 1) GO TO 400\r\n      IPASS = 1\r\n      GO TO 210\r\nC\r\nC     CLOSE UP SHOP\r\nC\r\n  400 CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL WRTTRL (MCB1)\r\n      IF (IFLAG.EQ.0 .OR. ITYP.NE.0) CALL WRTTRL (MCB2)\r\n      ITC = 1\r\n      IIK = 1\r\n      JJK = LUA\r\n      INCR1 = 1\r\n      IF (IDIR .NE. 0) GO TO 490\r\nC\r\nC     FORWARD TRANSFORMATIONS\r\nC\r\nC\r\nC     TRANSFORM MATRICES\r\nC\r\n      CALL CYCT2A (KAA,KXX,SCR1,SCR2,SCR3,SCR4,SCR5)\r\n      CALL CYCT2A (MAA,MXX,SCR1,SCR2,SCR3,SCR4,SCR5)\r\nC\r\n      MCB1(1) = KAA\r\n      MCB2(1) = MAA\r\n      CALL RDTRL (MCB1(1))\r\n      CALL RDTRL (MCB2(1))\r\n      IF (MCB1(5).GT.2 .OR.  MCB2(5).GT.2) GO TO 405\r\n      IF (MCB1(4).NE.6 .AND. MCB2(4).NE.6) GO TO 405\r\n      MCB1(1) = KXX\r\n      MCB2(1) = MXX\r\n      CALL RDTRL (MCB1(1))\r\n      CALL RDTRL (MCB2(1))\r\n      MCB1(4) = 6\r\n      MCB2(4) = 6\r\n      IF (MCB1(1) .GT. 0) CALL WRTTRL (MCB1(1))\r\n      IF (MCB2(1) .GT. 0) CALL WRTTRL (MCB2(1))\r\nC\r\nC     TRANSFORM LOADS\r\nC\r\n  405 MCB(1) = V1I\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) GO TO 460\r\n      ITC = MCB(5)\r\n      IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME)\r\n      CALL GOPEN (V1I,IZ(IBUF1),0)\r\n      CALL GOPEN (SCR3 ,IZ(IBUF2),1)\r\n      CALL GOPEN (SCR4,IZ(IBUF3),1)\r\nC\r\nC     COMPUTE NUMBER OF RECORDS TO SKIP\r\nC\r\n      CALL MAKMCB (MCB1,SCR3,LUA,2,MCB(5))\r\n      CALL MAKMCB (MCB2,SCR4,LUA,2,MCB(5))\r\n      IF (KSEG .EQ. 0) GO TO 420\r\n      NSKIP = NLOAD*KSEG*(ITYP+1)*2 - NLOAD*(ITYP+1)\r\n      FILE  = V1I\r\n      DO 410 I = 1,NSKIP\r\n      CALL FWDREC (*620,V1I)\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      CALL CYCT2B (V1I,SCR3,NLOAD,IZ,MCB1)\r\n      IF (ITYP  .EQ. 0) GO TO 430\r\n      IF (IFLAG .NE. 0) GO TO 430\r\nC\r\nC     COPY - PCA\r\nC\r\n      DO 421 J = 1,NLOAD\r\n      CALL FWDREC (*620,V1I)\r\n  421 CONTINUE\r\n      CALL CYCT2B (V1I,SCR3,NLOAD,IZ,MCB1)\r\nC\r\nC     NOW COPY ONTO PS\r\nC\r\n  430 IF (ITYP.EQ.0 .AND. IFLAG.NE.0) GO TO 440\r\n      CALL CYCT2B (V1I,SCR4,NLOAD,IZ,MCB2)\r\n      IF (IFLAG .NE. 0) GO TO 440\r\n      IF (ITYP  .EQ. 0) GO TO 440\r\n      CALL REWIND (V1I)\r\n      CALL FWDREC (*620,V1I)\r\n      NLPS = NSKIP + NLOAD\r\n      DO 431 J = 1,NLPS\r\n      CALL FWDREC (*620,V1I)\r\n  431 CONTINUE\r\n      ITC = -MCB(5)\r\n      CALL CYCT2B (V1I,SCR4,NLOAD,IZ,MCB2)\r\n      ITC = MCB(5)\r\nC\r\nC     DONE WITH COPY\r\nC\r\n  440 CALL CLOSE (V1I,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (SCR4,1)\r\n      CALL WRTTRL (MCB1)\r\n      CALL WRTTRL (MCB2)\r\n      IF (IFLAG.NE.0 .AND. ITYP.EQ.0) GO TO 450\r\n      CALL SSG2B (SCR1,SCR3 ,0,SCR5,1,IPREC,1,V1O)\r\n      CALL SSG2B (SCR2,SCR4,SCR5,V1O,1,IPREC,1,SCR3)\r\n      GO TO 460\r\nC\r\nC     NO GS\r\nC\r\n  450 CALL SSG2B (SCR1,SCR3,0,V1O,1,IPREC,1,SCR5)\r\nC\r\nC     TRANSFORM EIGENVECTORS FORWARD\r\nC\r\n  460 IF (V1O .EQ. V2O) RETURN\r\n      MCB(1) = V2I\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) RETURN\r\n      ITC = MCB(5)\r\n      IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME)\r\n      IF (MOD(MCB(2),2).NE. 2) CALL MESAGE (-7,0,NAME)\r\n      IF (IFLAG.NE.1 .OR. ITYP.NE.0) GO TO 470\r\nC\r\nC     IN = OUT\r\nC\r\n      V1O  = V2O\r\n      SCR3 = V1I\r\n      GO TO 450\r\n  470 CALL GOPEN (V2I,IZ(IBUF1),0)\r\n      CALL GOPEN (SCR3,IZ(IBUF2),1)\r\n      CALL GOPEN (SCR4,IZ(IBUF3),1)\r\n      NCOPY = MCB(2)\r\n      CALL MAKMCB (MCB1,SCR3,LUA,2,MCB(5))\r\n      CALL MAKMCB (MCB2,SCR4,LUA,2,MCB(5))\r\n      DO 480 I = 1,NCOPY\r\n      FILE = SCR3\r\n      IP = 1\r\n      IF (MOD(I,2) .EQ. 0) IP = 8\r\n      IF (MOD(I,2) .EQ. 0) FILE = SCR4\r\n      CALL CYCT2B (V2I,FILE,1,IZ,MCB(IP))\r\n  480 CONTINUE\r\n      V1O = V2O\r\n      V1I = V2I\r\n      GO TO 440\r\nC\r\nC     DIRECTION IS BACK\r\nC\r\n  490 CONTINUE\r\n      MCB(1) = V1I\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 560\r\n      IKS = MCB(3)\r\n      ITC = MCB(5)\r\n      IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     POSITION V1O\r\nC\r\n      MCB(1) = V1O\r\n      IF (KINDEX .EQ. 0) GO TO 495\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2) .GT. 0) GO TO 500\r\n  495 CONTINUE\r\n      CALL GOPEN  (V1O,IZ(IBUF1),1)\r\n      CALL CLOSE  (V1O,2)\r\n      CALL MAKMCB (MCB,V1O,LUA,2,MCB(5))\r\n      CALL WRTTRL (MCB)\r\n      GO TO 510\r\n  500 CONTINUE\r\n      CALL GOPEN  (V1O,IZ(IBUF1),0)\r\n      CALL SKPFIL (V1O,+1)\r\n      CALL SKPFIL (V1O,-1)\r\n      CALL CLOSE  (V1O,2)\r\n  510 CONTINUE\r\n      IF (ITYP .EQ. 0) GO TO 550\r\nC\r\nC     DISTRIBUTE UX1 AND UX2 FOR MULTIPLYS\r\nC\r\n      IF (IFLAG .EQ. 1) GO TO 550\r\n      CALL MAKMCB (MCB1,SCR3,IKS,2,MCB(5))\r\n      CALL MAKMCB (MCB2,SCR4,IKS,2,MCB(5))\r\n      CALL GOPEN  (V1I,IZ(IBUF1),0)\r\n      CALL GOPEN  (SCR3,IZ(IBUF2),1)\r\n      CALL GOPEN  (SCR4,IZ(IBUF3),1)\r\n      CALL CYCT2B (V1I,SCR3,NLOAD,IZ(1),MCB1)\r\n      CALL CYCT2B (V1I,SCR4,NLOAD,IZ(1),MCB2)\r\n      CALL CLOSE  (SCR3,1)\r\n      CALL WRTTRL (MCB1)\r\n      CALL CLOSE  (SCR4,1)\r\n      CALL WRTTRL (MCB2)\r\n      CALL CLOSE  (V1I,1)\r\nC\r\nC     COMPUTE UCS\r\nC\r\n  520 CALL SSG2B  (SCR1,SCR3,0,SCR5,0,IPREC,1,SCR6)\r\n      CALL GOPEN  (V1O,IZ(IBUF1),3)\r\n      CALL GOPEN  (SCR5,IZ(IBUF2),0)\r\n      MCB(1) = V1O\r\n      CALL RDTRL  (MCB(1))\r\n      CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB)\r\n      IF (ITYP.EQ.0 .AND. IFLAG.NE.0) GO TO 540\r\n      CALL CLOSE  (V1O,2)\r\n      CALL CLOSE  (SCR5,1)\r\n      IF (ITYP.EQ.0 .OR. IFLAG.NE.0) GO TO 530\r\nC\r\nC     COMPUTE UCA\r\nC\r\n      CALL SSG2B  (SCR2,SCR4,0,SCR5,0,IPREC, 0,SCR6)\r\n      CALL GOPEN  (V1O,IZ(IBUF1),3)\r\n      CALL GOPEN  (SCR5,IZ(IBUF2),0)\r\n      CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB)\r\n      CALL CLOSE  (V1O,2)\r\n      CALL CLOSE  (SCR5,1)\r\nC\r\nC     COMPUTE USS\r\nC\r\n      CALL SSG2B  (SCR1,SCR4,0,SCR5,0,IPREC,1,SCR6)\r\n      CALL GOPEN  (V1O,IZ(IBUF1),3)\r\n      CALL GOPEN  (SCR5,IZ(IBUF2),0)\r\n      CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB)\r\n      CALL CLOSE  (SCR5,1)\r\n      CALL CLOSE  (V1O,2)\r\nC\r\nC     COMPUTE USA\r\nC\r\n  530 CONTINUE\r\n      CALL SSG2B  (SCR2,SCR3,0,SCR5,0,IPREC,1,SCR6)\r\n      CALL GOPEN  (V1O,IZ(IBUF1),3)\r\n      CALL GOPEN  (SCR5,IZ(IBUF2),0)\r\n      CALL CYCT2B (SCR5,V1O,NLOAD,IZ(1),MCB)\r\n  540 CONTINUE\r\n      CALL CLOSE  (SCR5,1)\r\n      CALL CLOSE  (V1O,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 560\r\nC\r\nC     DO ROTATIONAL OR SPECIAL CASE DIH\r\nC\r\n  550 SCR3 = V1I\r\n      GO TO 520\r\nC\r\nC     SEE IF DONE\r\nC\r\n  560 MCB(1) = V2I\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) RETURN\r\n      SCR3 = 303\r\n      ITC  = MCB(5)\r\n      IF (ITC.EQ.4 .AND. NZ.LT.4*LUA) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     NOW DO EIGENVECTORS\r\nC\r\nC\r\nC     COMPUTE NEW VECTORS\r\nC\r\n      CALL SSG2B (SCR1,V2I,0,SCR3,0,IPREC,1,SCR5)\r\n      IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 570\r\n      CALL SSG2B (SCR2,V2I,0,SCR4,0,IPREC,1,SCR5)\r\n  570 CONTINUE\r\nC\r\nC     POSITION FILES\r\nC\r\nC\r\nC      SET LAMA FLAG\r\nC\r\n      MCB(1) = LAMX\r\n      CALL RDTRL (MCB)\r\n      ILAMA  = 0\r\n      IF (MCB(1) .LE. 0) ILAMA = 1\r\n      CALL GOPEN (V2O,IZ(IBUF1),1)\r\n      IF (ILAMA .NE. 0) GO TO 571\r\n      CALL GOPEN (LAMA,IZ(IBUF2),1)\r\n      FILE = LAMX\r\n      CALL GOPEN (LAMX,IZ(IBUF3),0)\r\n      CALL READ  (*620,*630,LAMX,IZ(1),146,1,IFLAG)\r\n      CALL WRITE (LAMA,IZ(1),146,1)\r\n  571 CONTINUE\r\n      MCB(1) = V2I\r\n      CALL RDTRL (MCB)\r\n      NLOAD = MCB(2)\r\n      CALL MAKMCB (MCB,V2O,LUA,2,MCB(5))\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      CALL GOPEN (SCR3,IZ(IBUF4),0)\r\n      IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 580\r\n      IBUF5 = IBUF4 - SYSBUF\r\n      CALL GOPEN (SCR4,IZ(IBUF5),0)\r\n  580 DO 590 I = 1,NLOAD\r\n      CALL CYCT2B (SCR3,V2O,1,IZ(1),MCB)\r\n      IF (ILAMA .NE. 0) GO TO 572\r\n      CALL READ  (*620,*630,LAMX,IZ(1),7,0,IFLAG)\r\n      CALL WRITE (LAMA,IZ(1),7,0)\r\n  572 CONTINUE\r\n      IF (ITYP.EQ.0 .AND. IFLAG.EQ.1) GO TO 590\r\n      IF (ILAMA .EQ. 0) CALL WRITE (LAMA,IZ(1),7,0)\r\n      CALL CYCT2B (SCR4,V2O,1,IZ(1),MCB)\r\n  590 CONTINUE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (V2O,1)\r\n      CALL CLOSE  (SCR3,1)\r\n      CALL CLOSE  (SCR4,1)\r\n      IF (ILAMA .NE. 0) GO TO 573\r\n      CALL CLOSE  (LAMA,1)\r\n      CALL CLOSE  (LAMX,1)\r\n      MCB(1) = LAMA\r\n      CALL WRTTRL (MCB)\r\n  573 CONTINUE\r\nC\r\nC     DONE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC 600 IP1 = -1\r\n  610 CALL MESAGE (IP1,FILE,NAME)\r\n      GO TO 640\r\n  620 IP1 = -2\r\n      GO TO 610\r\n  630 IP1 = -3\r\n      GO TO 610\r\n  640 CALL MESAGE (7,0,NAME)\r\n      NOGO = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cyct2a.f",
    "content": "      SUBROUTINE CYCT2A (KAA,KXX,G1,G2,SCR1,SCR2,SCR3)\r\n      INTEGER G1,G2,SCR1,SCR2,MCB(7),SCR3\r\n      COMMON /SYSTEM/IDUM(54),IPREC\r\nC\r\n      MCB(1)=KAA\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1).LE.0)GO TO 30\r\n      MCB(1)=KXX\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1).LE.0)GO TO 30\r\n      ISC2=SCR2\r\n      MCB(1)=G1\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2).LE.0)ISC2=0\r\n      MCB(1)=G2\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(2).LE.0)GO TO 10\r\n      ISC=SCR2\r\n      IOUT=1\r\n      ISC1=KXX\r\n      GO TO 20\r\n   10 ISC=KXX\r\n      ISC1=SCR2\r\n      IOUT=0\r\nC\r\nC     NO FIRST TERM IF ISC2=0, NO SECOND TERM IF IOUT=0\r\nC\r\n   20 IF (ISC2 .EQ. 0) GO TO 25\r\nC\r\nC     COMPUTE FIRST TERM\r\nC\r\n      CALL SSG2B(KAA,G1,0,SCR1,0,IPREC,1,SCR2)\r\n      CALL SSG2B(G1,SCR1,0,ISC,1,IPREC,1,ISC1)\r\nC\r\nC     COMPUTE SECOND TERM\r\nC\r\nC     COMPUTE SECOND TERM\r\nC\r\n   25 IF(IOUT .EQ. 0) GO TO 29\r\n      CALL SSG2B(KAA,G2,0,SCR1,0,IPREC,1,KXX)\r\n      CALL SSG2B(G2,SCR1,ISC2,KXX,1,IPREC,1,SCR3)\r\n   29 MCB(1) = KXX\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/cyct2b.f",
    "content": "      SUBROUTINE CYCT2B (INPUT,OUTPT,NCOL,IZ,MCB)\r\nC\r\nC     THE PURPOSE OF THIS SUBROUTINE IS TO COPY NCOL COLUMNS FROM\r\nC     INPUT TO OUTPUT USING CORE AT IZ -- MCB IS THE TRAILER\r\nC\r\n      INTEGER         OUTPT,IZ(4),MCB(7)\r\n      COMMON /UNPAKX/ ITC,IIK,JJK,INCR1\r\n      COMMON /PACKX / ITA,ITB,II,JJ,INCR\r\n      EQUIVALENCE     (ZERO,IZERO)\r\n      DATA    ZERO  / 0.0 /\r\nC\r\nC\r\n      ITA = IABS(ITC)\r\n      ITB = ITA\r\n      INCR= INCR1\r\n      DO 30 I = 1,NCOL\r\n      IIK = 0\r\n      CALL UNPACK (*20,INPUT,IZ)\r\n      II  = IIK\r\n      JJ  = JJK\r\n   10 CALL PACK (IZ,OUTPT,MCB)\r\n      GO TO 30\r\nC\r\nC     NULL COLUMN\r\nC\r\n   20 II = 1\r\n      JJ = 1\r\n      IZ(1) = IZERO\r\n      IZ(2) = IZERO\r\n      IZ(3) = IZERO\r\n      IZ(4) = IZERO\r\n      GO TO 10\r\n   30 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dadd.f",
    "content": "      SUBROUTINE DADD\r\nC\r\nC     DMAP DRIVER FOR ADD--\r\nC\r\nC     ADD    A,B/C/V,N,ALPHA/V,N,BETA/V,N,DALPHA/V,N,DBETA/V,N,ECHO  $\r\nC\r\nC            MATRIX C = ALPHA*MATRIX A + BETA*MATRIX B\r\nC\r\nC     MATRIX C IS COMPLEX IF ANY ONE OF THE MATRIX A, MATRIX B, SCALE\r\nC     ALPHA, OR SCLAE BETA IS COMPLEX\r\nC\r\n      LOGICAL           DBLEA    ,DBLEB\r\n      INTEGER           FN(2)    ,ECHO     ,AA(2)     ,BB(2)\r\n      DOUBLE PRECISION  DALPHA   ,DBETA    ,DALP(2)   ,DBTA(2)  ,\r\n     1                  ZERO     ,ONE      ,XX\r\n      CHARACTER         UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG /   UFM      ,UWM      ,UIM\r\n      COMMON /SYSTEM/   IBUF     ,NOUT\r\n      COMMON /BLANK /   ALPHA(2) ,BETA(2)  ,DALPHA(2) ,DBETA(2) ,\r\n     1                  ECHO\r\n      COMMON /SADDX /   NOMAT    ,LCORE    ,IA(7)     ,ITA      ,\r\n     1                  ALP(4)   ,IB(7)    ,ITB       ,BTA(4)   ,\r\n     2                  CDE(3,12),IC(7)\r\n      COMMON /ZZZZZZ/   CORE(1)\r\n      EQUIVALENCE       (ALP(1),DALP(1))   ,(BTA(1),DBTA(1))\r\n      DATA              IN1,IN2,IOUT1,ZERO /101,102,201, 0.0D+0 /\r\n      DATA              ONE,XX ,X    / 1.0D+0, 1.0D+37, 1.0E+37 /\r\nC\r\nC\r\nC     SCALE FACTORS ALPHA, DALPHA, BETA AND DBETA WERE INITIALLY SET TO\r\nC     (1.1+37, 1.1+37) BY XMPLDD\r\nC\r\nC     IN THIS ROUTINE -\r\nC     IF ALPHA, DALPHA, BETA AND DBETA ARE NOT SPECIFIED BY USER, THEY\r\nC     WILL BE SET TO -\r\nC     ALPHA AND DALPHA TO (1.0, 0.0), AND\r\nC     BETA  AND DBETA  TO (1.0, 0.0), SAME DEFAULTS AS 88 AND EARLIER\r\nC                                     NASTRAN VERSIONS.\r\nC     NOTE - DEFAULTS WERE ALL ZEROS IN 89 NASTRAN VERSION\r\nC\r\nC     NOTE - THIS ROUTINE WILL CALL SADD TO DO THE ACTUAL MATRIX MULTI-\r\nC     PLICATION, WHICH WILL AUTOMATICALLY ADJUST THE SCALE FACTORS\r\nC     WHETHER THEY ARE S.P. OR D.P. (E.G. S.P. ALPHA AND BETA CAN BE\r\nC     USED FOR D.P. A AND B MATRICES, AND VISE VERSA)\r\nC\r\n      CALL FNAME (IOUT1,FN(1))\r\n      LCORE = KORSZ(CORE)\r\n      DO 10 I = 1,7\r\n      IA(I) = 0\r\n      IB(I) = 0\r\n      IC(I) = 0\r\n   10 CONTINUE\r\n      IA(1) = IN1\r\n      IB(1) = IN2\r\n      CALL RDTRL (IA)\r\n      CALL RDTRL (IB)\r\n      IF (IA(1) .LT. 0) IA(1) = 0\r\n      IF (IB(1) .LT. 0) IB(1) = 0\r\n      IF (IA(1)+IB(1) .EQ. 0) GO TO 100\r\nC\r\nC     SET DEFAULT VALUES FOR THE SCALE FACTORS\r\nC\r\nC     WHEN AN ITEM IS .LT. X OR XX, THAT ITEM HAS INPUT FROM USER\r\nC\r\n      DBLEA = .TRUE.\r\n      DBLEB = .TRUE.\r\n      IF (ALPHA(1).LT.X .OR. ALPHA(2).LT.X .OR. DALPHA(1).LT.XX .OR.\r\n     1   DALPHA(2).LT.XX) GO TO 20\r\n      ALP(1)   = 1.0\r\n      ALP(2)   = 0.0\r\n      ALPHA(1) = 1.0\r\n      ALPHA(2) = 0.0\r\n      DBLEA  = .FALSE.\r\n   20 IF (BETA(1).LT.X .OR. BETA(2).LT.X .OR. DBETA(1).LT.XX .OR.\r\n     1   DBETA(2).LT.XX) GO TO 25\r\n      BTA(1)  = 1.0\r\n      BTA(2)  = 0.0\r\n      BETA(1) = 1.0\r\n      BETA(2) = 0.0\r\n      DBLEB  = .FALSE.\r\n      IF (.NOT.DBLEA) GO TO 40\r\nC\r\n   25 IF ((ALPHA(1).LT.X .OR. ALPHA(2).LT.X) .AND. (DALPHA(1).LT.XX .OR.\r\n     1    DALPHA(2).LT.XX)) GO TO 120\r\n      IF (( BETA(1).LT.X .OR.  BETA(2).LT.X) .AND. ( DBETA(1).LT.XX .OR.\r\n     1     DBETA(2).LT.XX)) GO TO 120\r\nC\r\n      IF (DALPHA(1).GT.XX .AND. DALPHA(2).GT.XX) DBLEA = .FALSE.\r\n      IF ( DBETA(1).GT.XX .AND.  DBETA(2).GT.XX) DBLEB = .FALSE.\r\nC\r\n      DO 30 I = 1,2\r\n      IF ( ALPHA(I) .GT.  X)  ALPHA(I) = 0.0\r\n      IF (DALPHA(I) .GT. XX) DALPHA(I) = ZERO\r\n      IF (  BETA(I) .GT.  X)   BETA(I) = 0.0\r\n      IF ( DBETA(I) .GT. XX)  DBETA(I) = ZERO\r\n   30 CONTINUE\r\nC\r\nC     MOVE ALPHA, BETA, DALPHA AND DBETA INTO ALP AND BTA ARRAYS FOR\r\nC     MATRIX MULTIPLICATION TO BE PERFORMED IN SADD.\r\nC\r\n      DO 35 I = 1,2\r\n      IF (.NOT.DBLEA)  ALP(I) =  ALPHA(I)\r\n      IF (.NOT.DBLEB)  BTA(I) =   BETA(I)\r\n      IF (     DBLEA) DALP(I) = DALPHA(I)\r\n      IF (     DBLEB) DBTA(I) =  DBETA(I)\r\n   35 CONTINUE\r\nC\r\n   40 IF (ECHO .EQ. 0) GO TO 55\r\n      WRITE  (NOUT,45) UIM,FN\r\n   45 FORMAT (A29,', SCALE FACTORS FOR THE OUTOUT DATA BLOCK ',2A4,\r\n     1       ', IN ADD MODULE ARE -')\r\n      IF (.NOT.DBLEA) WRITE (NOUT,50) ALP(1) ,ALP(2)\r\n      IF (     DBLEA) WRITE (NOUT,51) DALP(1),DALP(2)\r\n      IF (.NOT.DBLEB) WRITE (NOUT,52) BTA(1) ,BTA(2)\r\n      IF (     DBLEB) WRITE (NOUT,53) DBTA(1),DBTA(2)\r\n   50 FORMAT (5X,'1ST S.F. = (',E12.5,1H,,E12.5,1H))\r\n   51 FORMAT (5X,'3RD S.F. = (',D12.5,1H,,D12.5,1H))\r\n   52 FORMAT (1H+,48X,'2ND S.F. = (',E12.5,1H,,E12.5,1H))\r\n   53 FORMAT (1H+,48X,'4TH S.F. = (',D12.5,1H,,D12.5,1H))\r\nC\r\nC     ENSURE THAT THE MATRICES BEING ADDED ARE OF THE SAME ORDER\r\nC\r\n   55 IF (IA(1).EQ.0 .OR. IB(1).EQ.0) GO TO 70\r\n      IF (IA(2).EQ.IB(2) .AND. IA(3).EQ.IB(3)) GO TO 70\r\n      CALL FNAME (IA(1),AA)\r\n      CALL FNAME (IB(1),BB)\r\n      WRITE  (NOUT,60) UFM,AA,BB,FN,IA(2),IA(3),IB(2),IB(3)\r\n   60 FORMAT (A23,' 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN',\r\n     1       ' MODULE ADD, ',2A4,' TO ',2A4, /5X,'INTENDED OUTOUT DATA',\r\n     2       ' BLOCK NAME =',2A4,I7,' BY',I6,' TO',I7,' BY',I6)\r\n      GO TO 160\r\n   70 IC(1) = IOUT1\r\n      IC(2) = IA(2)\r\n      IC(3) = IA(3)\r\n      IF (IA(4) .EQ. 3) IC(2) = IA(3)\r\n      IF (IA(1) .NE. 0) GO TO 80\r\n      IC(2) = IB(2)\r\n      IC(3) = IB(3)\r\nC\r\nC     DETERMINE TYPE\r\nC\r\n   80 ITA = 3\r\n      ITB = 3\r\n      IF (ALP(2).EQ.0.0 .AND. ALP(4).EQ.0.0) ITA = 1\r\n      IF (BTA(2).EQ.0.0 .AND. BTA(4).EQ.0.0) ITB = 1\r\n      IC(5) = MAX0(IA(5),IB(5),ITA,ITB)\r\n      IF (IC(5).EQ.3 .AND. (IA(5).EQ.2 .OR. IB(5).EQ.2)) IC(5) = 4\r\nC\r\nC     DETERMINE FORM\r\nC\r\n      IC(4) = IA(4)\r\n      IF (IA(1) .EQ. 0) IC(4) = IB(4)\r\n      IF (IC(4).NE.1 .OR. IC(4).NE.6) GO TO 90\r\n      IC(4) = 6\r\n      IF (IA(1).NE.0 .AND. IA(4).NE.6) IC(4) = 1\r\n      IF (IB(1).NE.0 .AND. IB(4).NE.6) IC(4) = 1\r\n      IF (IC(2) .NE. IC(3)) IC(4) = 2\r\n   90 IF (IA(4).EQ.3 .AND. IB(1).NE.0) IC(4) = IB(4)\r\n      IF (IA(4).EQ.3 .AND. IB(1).EQ.0) IC(4) = IA(4)\r\nC\r\n      NOMAT = 2\r\n      CALL SADD (CORE,CORE)\r\n      CALL WRTTRL (IC)\r\n      GO TO 170\r\nC\r\n  100 WRITE  (NOUT,110) UFM,FN\r\n  110 FORMAT (A23,', INPUT MATRICES NOT SPECIFIED IN ADD MODULE.',\r\n     1       ' INTENDED OUTPUT DATA BLOCK NAME =',2A4)\r\n      GO TO 160\r\nC\r\n  120 DO 130 I=1,2\r\n      IF ( ALPHA(I) .GT.  X) ALPHA(I)  = 0.0\r\n      IF (DALPHA(I) .GT. XX) DALPHA(I) = ZERO\r\n      IF (  BETA(I) .GT.  X)   BETA(I) = 0.0\r\n      IF ( DBETA(I) .GT. XX)  DBETA(I) = ZERO\r\n  130 CONTINUE\r\n      WRITE  (NOUT,150) UFM,FN,ALPHA,BETA,DALPHA,DBETA\r\n  150 FORMAT (A23,' IN ADD MODULE. INTENDED OUTPUT DATA BLOCK =',2A4,\r\n     1       /5X,'SCALE FACTORS ARE ERRONEOUS =',4E9.2,2X,4D10.3)\r\n  160 CALL MESAGE (-61,0,0)\r\nC\r\n  170 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dadd5.f",
    "content": "      SUBROUTINE DADD5\r\nC\r\nC     DMAP DRIVER FOR SADD (MATRIX ADD) ROUTINE\r\nC     THE DMAP CALL FOR THIS MODULE IS\r\nC     ADD5 A,B,C,D,E / X / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 / V,N,P5 $\r\nC     THE PARAMETERS ARE ALL COMPLEX SINGLE-PRECISION.\r\nC\r\n      DIMENSION       INX(5),AMCBS(1),MC(5)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      COMMON /SADDX / NOMAT,LCORE,MCBS(67)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /BLANK / ALPHA(10)\r\n      EQUIVALENCE     (MCBS(1),AMCBS(1)),(MCBS(61),MC(1))\r\n      DATA    INX   / 101,102,103,104,105 /, IOUT /201/\r\nC\r\n      LCORE = KORSZ(CORE)\r\nC\r\n      DO 10 I = 1,67\r\n   10 MCBS(I) = 0\r\nC\r\nC     SETUP MATRIX CONTROL BLOCKS OF THE INPUT MATRICES\r\nC\r\n      I = 1\r\n      K = 0\r\nC\r\n      MC(5) = 1\r\n      DO 20 J = 1,5\r\n      MCBS(I) = INX(J)\r\n      CALL RDTRL (MCBS(I))\r\nC\r\nC     EXCLUDE NULL MATRICES FROM MCBS ARRAY\r\nC\r\n      IF (MCBS(I) .LE. 0) GO TO 20\r\nC\r\nC     MOVE MULTIPLIERS TO MCBS ARRAY\r\nC\r\n      MCBS (I+7) = 1\r\n      AMCBS(I+8) = ALPHA(2*J-1)\r\n      AMCBS(I+9) = ALPHA(2*J)\r\n      IF (AMCBS(I+9) .NE. 0.0) MCBS(I+7) = 3\r\nC\r\nC     DETERMINE THE PRECISION AND TYPE OF THE OUTPUT MATRIX\r\nC\r\n      MC(5) = MAX0(MC(5),MCBS(I+4),MCBS(I+7))\r\n      IF (MCBS(I+4) .EQ. 2) K = 1\r\n      I = I + 12\r\n   20 CONTINUE\r\nC\r\n      MC(1) = IOUT\r\n      NOMAT = I/12\r\n      IF (NOMAT .EQ. 0) RETURN\r\n      IF (NOMAT .EQ. 1) GO TO 60\r\nC\r\nC     CHECK TO ENSURE THAT THE MATRICES BEING ADDED ARE OF THE SAME\r\nC     ORDER\r\nC\r\n      I = 14\r\n      DO 50 J = 2, NOMAT\r\n      IF (MCBS(2).EQ.MCBS(I) .AND. MCBS(3).EQ.MCBS(I+1)) GO TO 40\r\n      WRITE  (NOUT,30) UFM\r\n   30 FORMAT (A23,' 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN ',\r\n     1       'MODULE ADD5.')\r\n      CALL MESAGE (-61,0,0)\r\n   40 I = I + 12\r\n   50 CONTINUE\r\n   60 MC(2) = MCBS(2)\r\n      MC(3) = MCBS(3)\r\n      MC(4) = MCBS(4)\r\n      IF (MC(5).EQ.3 .AND. K.NE.0) MC(5) = 4\r\n      MC(5) = MIN0(4,MC(5))\r\nC\r\nC     ADD MATRICES\r\nC\r\n      CALL SADD   (CORE,CORE)\r\n      CALL WRTTRL (MC(1))\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/dadotb.f",
    "content": "      DOUBLE PRECISION FUNCTION DADOTB( A, B )\r\n      DOUBLE PRECISION A(3), B(3)\r\nC*****\r\nC  DOUBLE PRECISION VERSION\r\nC\r\nC  DOT PRODUCT  A . B\r\nC*****\r\n      DADOTB = A(1)*B(1) + A(2)*B(2) + A(3)*B(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dapoly.f",
    "content": "      DOUBLE PRECISION FUNCTION DAPOLY(N,P)\r\nC\r\nC     CALCULATES AREA OF A POLYGON DESCRIBED BY N POINTS (P)\r\nC        ( N .LE. 10 )\r\nC\r\nC        AREA= -1* LINE INTEGRAL OF Y*DX\r\nC\r\nC     AREA CONTRIBUTION FROM SIDE WHOSE ENDS ARE P(I), P(J):\r\nC        A(I,J)= 0.5 * (Y(I)+Y(J)) * (X(I)-X(J))\r\nC\r\n      DOUBLE PRECISION P(2,1)\r\n      INTEGER KEDGE(2,10), K(2,10)\r\nC\r\n      DATA KEDGE/ 1,2,  2,3,  3,4,  4,5,  5,6,  6,7,  7,8,  8,9,  9,10,\r\n     1  10,1/\r\nC\r\n      DO 10 I=1,2\r\n      DO 10 J=1,N\r\n   10 K(I,J)= KEDGE(I,J)\r\n      K(2,N)= 1\r\n      DAPOLY= 0.0\r\nC\r\n      DO 20  NN= 1,N\r\n      K1= K(1,NN)\r\n      K2= K(2,NN)\r\n   20 DAPOLY= DAPOLY +5.D-1 * (P(2,K1)+P(2,K2)) * (P(1,K1)-P(1,K2))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/daxb.f",
    "content": "      SUBROUTINE DAXB(A,B,C)\r\n      DOUBLE PRECISION A(3), B(3), C(3), D(3)\r\nC*****\r\nC  DOUBLE PRECISION VERSION\r\nC\r\nC  THIS ROUTINE PERFORMS A X B INTO C  (C MAY OVERLAP A OR B IN CORE)\r\nC*****\r\n      D(1) = A(2)*B(3) - A(3)*B(2)\r\n      D(2) = A(3)*B(1) - A(1)*B(3)\r\n      D(3) = A(1)*B(2) - A(2)*B(1)\r\n      C(1) = D(1)\r\n      C(2) = D(2)\r\n      C(3) = D(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dbar.f",
    "content": "      SUBROUTINE DBAR\r\nC\r\nC     THIS ROUTINE COMPUTES THE 2 6X6 DIFFERENTIAL STIFFNESS MATRICES\r\nC     K(NPVT,NPVT) AND K(NPVT,J) FOR A BEAM HAVING END POINTS OF SIL\r\nC     NOS. NPVT AND J.\r\nC\r\nC     ECPT FOR THE BEAM\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(2)      SCALAR INDEX NOS.\r\nC     ECPT( 3)  -   ...\r\nC     ECPT( 4)  -  SMALLV(3)      REFERENCE VECTOR\r\nC     ECPT( 5)  -   ...\r\nC     ECPT( 6)  -   ...\r\nC     ECPT( 7)  -  IGSUB0         OPTION FOR DEFINING REFERENCE NUMBER.\r\nC     ECPT( 8)  -  IPINFL(2)      PIN FLAGS\r\nC     ECPT( 9)  -   ...\r\nC     ECPT(10)  -  ZA(3)          OFFSET VECTOR AT POINT A\r\nC     ECPT(11)  -   ...\r\nC     ECPT(12)  -   ...\r\nC     ECPT(13)  -  ZB(3)          OFFSET VECTOR AT POINT B\r\nC     ECPT(14)  -   ...\r\nC     ECPT(15)  -   ...\r\nC     ECPT(16)  -  GEF(4)         ECCENTRICITIES FOR FORCE\r\nC     ECPT(17)  -   ...\r\nC     ECPT(18)  -   ...\r\nC     ECPT(19)  -   ...\r\nC     ECPT(20)  -  IMATID         MATERIAL ID.\r\nC     ECPT(21)  -  A              CROSS-SECTIONAL AREA\r\nC     ECPT(22)  -  C1             STRESS COEFFICIENTS\r\nC     ECPT(23)  -  C2                    ...\r\nC     ECPT(24)  -  I1             AREA MOMENTS OF INERTIA\r\nC     ECPT(25)  -  I2                    ...\r\nC     ECPT(26)  -  I3                    ...\r\nC     ECPT(27)  -  FJ             TORSIONAL CONSTANT\r\nC     ECPT(28)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT(29)  -  K1             AREA FACTORS FOR SHEAR\r\nC     ECPT(30)  -  K2                    ...\r\nC     ECPT(31)  -  C3 (D1)        STRESS COEFFICIENTS\r\nC     ECPT(32)  -  C4 (D2)               ...\r\nC     ECPT(33)  -  B1             WIDTHS FOR FORCE\r\nC     ECPT(34)  -  B2                    ...\r\nC     ECPT(35)  -  HS1            DEPTHS FOR FORCE\r\nC     ECPT(36)  -  HS2                   ...\r\nC     ECPT(37)  -  HT1                   ...\r\nC     ECPT(38)  -  HT2                   ...\r\nC     ECPT(39)  -  MCSIDA         COOR. SYS. ID. FOR GRID PT. A\r\nC     ECPT(40)  -  GPA(3)         BASIC COORDINATES FOR PT. A\r\nC     ECPT(41)  -   ...                  ...\r\nC     ECPT(42)  -   ...                  ...\r\nC     ECPT(43)  -  MCSIDB         COOR. SYS. ID. FOR GRID PT. B\r\nC     ECPT(44)  -  GPB(3)         BASIC COORDINATES FOR PT. B\r\nC     ECPT(45)  -   ...                  ...\r\nC     ECPT(46)  -   ...                  ...\r\nC     ECPT(47)  -  ELTEMP         ELEMENT TEMPERATURE\r\nC     ECPT(48)  -  ELDEF          ELEMENT DEFORMATION\r\nC     ECPT(49)  -  TEMPER         ELEMENT LOADING TEMPERATURE\r\nC     ECPT(50)  -  UAS(1)                ...\r\nC     ECPT(51)  -  UAS(2)                ...\r\nC     ECPT(52)  -  UAS(3)         SINGLE PRECISION DISPLACEMENTS\r\nC     ECPT(53)  -  UAS(4)               FOR GRID POINT A\r\nC     ECPT(54)  -  UAS(5)                ...\r\nC     ECPT(55)  -  UAS(6)                ...\r\nC     ECPT(56)  -  UBS(1)                ...\r\nC     ECPT(57)  -  UBS(2)                ...\r\nC     ECPT(58)  -  UBS(3)         SINGLE PRECISION DISPLACEMENTS\r\nC     ECPT(59)  -  UBS(4)               FOR GRID POINT B\r\nC     ECPT(60)  -  UBS(5)                ...\r\nC     ECPT(61)  -  UBS(6)                ...\r\nC\r\n      LOGICAL          ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET\r\n      REAL             K1,K2,I1,I2\r\n      DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI,\r\n     1                 VECJ,VECK,FL,FLL,EI1,EI2,GAK1,GAK2,RRV1,RRV2,\r\n     2                 SK1,SK2,SK3,SK4,TERM1,TERM2,TERM3,TERM4,L,LSQ,\r\n     3                 LCUBE,DP(8)\r\n      DOUBLE PRECISION E,DA,ALPHA,T SUB 0,SA(72),SB(36),UA(6),UB(6),\r\n     1                 DPVECA(6),DPVECB(6),FX,VY,VZ,MAY,MAZ,MBY,MBZ,\r\n     2                 KD(144),KC(12,12),TERM5,TERM6,TERM7,TERM8,TERM9,\r\n     3                 TERM10,TERM11,KES(144),KDP(144),DFJ\r\n      DIMENSION        VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100),\r\n     1                 IPIN(10),IZ(1)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM,DUMCL(32),NOGO\r\n      COMMON /DS1AET/  IELID,ISILNO(2),SMALLV(3),IGSUB0,IPINFL(2),ZA(3),\r\n     1                 ZB(3),GEF(4),IMATID,A,DUMMY1,DUMMY2,I1,I2,DUMMY3,\r\n     2                 FJ,FMU,K1,K2,DUM2(8),MCSIDA,GPA(3),MCSIDB,GPB(3),\r\n     3                 TEMPEL,ELDEF,TEMPER,UAS(6),UBS(6),DUM3(38)\r\n      COMMON /DS1ADP/  KE(144),KEP(144),DELA(6),DELB(6)\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  E S,G S,NU,RHO,ALPHA S,T SUB 0 S,GSUBE,SIGT,\r\n     1                 SIGC,SIGS\r\n      EQUIVALENCE      (IELID,ECPT(1),IECPT(1)),(IZ(1),Z(1)),\r\n     1                 (TA(10),TB(1)),(ECPT(71),DP(1)),(KC(1,1),KD(1)),\r\n     2                 (SA(37),SB(1))\r\nC\r\nC     DETERMINE WHICH SIL IS THE PIVOT POINT.\r\nC\r\nC     IPVT = 0\r\n      IPVT = 1\r\n      IF (ISILNO(1) .EQ. NPVT) GO TO 20\r\n      IPVT = 2\r\n      IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\nC\r\nC     JCSIDA IS AN INDEX WHICH POINTS TO THE COOR. SYS. ID. OF POINT A.\r\nC     JOFSTA IS AN INDEX WHICH POINTS TO THE OFFSET VECTOR FOR POINT A.\r\nC     SIMILARY FOR JCSIDB AND JOFSTB AND POINT B.\r\nC\r\n   20 JCSIDA = 39\r\n      JCSIDB = 43\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  = 8\r\n      JPINB  = 9\r\n      ICSIDA = IECPT(JCSIDA)\r\n      ICSIDB = IECPT(JCSIDB)\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC     WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE\r\nC     PRECISION\r\nC\r\n      DO 50 I = 1,3\r\n   50 SMALV0(I) = SMALLV(I)\r\n      FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2)\r\n      IF (FL .LE. 0.0D0) GO TO 700\r\n      DO 60 I = 1,3\r\n   60 SMALV0(I) = SMALV0(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT.ABASIC) CALL TRANSD (ECPT(JCSIDA),TA)\r\n      IF (.NOT.BBASIC) CALL TRANSD (ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC     FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL\r\nC     ARITHMETIC WILL BE DOUBLE PRECISION.\r\nC\r\n  100 DP(1)   = ECPT(JCSIDA+1)\r\n      DP(2)   = ECPT(JCSIDA+2)\r\n      DP(3)   = ECPT(JCSIDA+3)\r\n      DP(4)   = ECPT(JCSIDB+1)\r\n      DP(5)   = ECPT(JCSIDB+2)\r\n      DP(6)   = ECPT(JCSIDB+3)\r\n      VECI(1) = DP(1) - DP(4)\r\n      VECI(2) = DP(2) - DP(5)\r\n      VECI(3) = DP(3) - DP(6)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (FL .EQ. 0.0D0) GO TO 700\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ***CHECK THIS LOGIC***\r\nC\r\n      ITA = 1\r\n      ISV = 1\r\n      IF (MCSIDA.EQ.0 .OR. IGSUB0.EQ.0) GO TO 180\r\n      IF (JCSIDA .NE. 39) ITA = 10\r\n      ISV = 4\r\n      CALL GMMATD (TA(ITA),3,3,0, SMALV0(1),3,1,0, SMALV0(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI X SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) =  VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1)\r\n      VECK(2) =  VECI(3)*SMALV0(ISV  ) - VECI(1)*SMALV0(ISV+2)\r\n      VECK(3) =  VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV  )\r\n      FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 700\r\n      VECK(1) =  VECK(1)/FLL\r\n      VECK(2) =  VECK(2)/FLL\r\n      VECK(3) =  VECK(3)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK X VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) =  VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) =  VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) =  VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 700\r\n      VECJ(1) =  VECJ(1)/FLL\r\n      VECJ(2) =  VECJ(2)/FLL\r\n      VECJ(3) =  VECJ(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC     COMPUTE THE RECIPROCALS OF RV1 AND RV2 (CALLING THEM RRV1 AND\r\nC     RRV2)\r\nC\r\n      L = FL\r\n      LSQ = L**2\r\n      LCUBE = LSQ*L\r\nC\r\nC     STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS.\r\nC\r\n      DP(1) = E S\r\n      DP(2) = G S\r\n      DP(3) = I1\r\n      DP(4) = I2\r\n      DP(5) = A\r\n      EI1   = DP(1)*DP(3)\r\n      EI2   = DP(1)*DP(4)\r\n      IF (K1 .EQ. 0.0) GO TO 210\r\n      DP(6) = K1\r\n      GAK1  = DP(2)*DP(5)*DP(6)\r\n      RRV1  = (12.0D0*EI1*GAK1)/(GAK1*LCUBE+12.0D0*L*EI1)\r\n      GO TO 220\r\n  210 RRV1  = 12.0D0*EI1/LCUBE\r\n  220 IF (K2 .EQ. 0.0) GO TO 230\r\n      DP(7) = K2\r\n      GAK2  = DP(2)*DP(5)*DP(7)\r\n      RRV2  = (12.0D0*EI2*GAK2)/(GAK2*LCUBE+12.0D0*L*EI2)\r\n      GO TO 240\r\n  230 RRV2  = 12.0D0*EI2/LCUBE\r\nC\r\nC     COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4\r\nC\r\n  240 SK1 = 0.25D0*RRV1*LSQ + EI1/L\r\n      SK2 = 0.25D0*RRV2*LSQ + EI2/L\r\n      SK3 = 0.25D0*RRV1*LSQ - EI1/L\r\n      SK4 = 0.25D0*RRV2*LSQ - EI2/L\r\nC\r\nC     COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      TERM1 = DP(5)*DP(1)/L\r\n      TERM2 = 0.5D0*L*RRV1\r\n      TERM3 = 0.5D0*L*RRV2\r\n      DP(8) = FJ\r\n      TERM4 = DP(2)*DP(8)/L\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(  I) =  0.0D0\r\n      KE(  1) =  TERM1\r\n      KE(  7) = -TERM1\r\n      KE( 14) =  RRV1\r\n      KE( 18) = -TERM2\r\n      KE( 20) = -RRV1\r\n      KE( 24) = -TERM2\r\n      KE( 27) =  RRV2\r\n      KE( 29) =  TERM3\r\n      KE( 33) = -RRV2\r\n      KE( 35) =  TERM3\r\n      KE( 40) =  TERM4\r\n      KE( 46) = -TERM4\r\n      KE( 51) =  TERM3\r\n      KE( 53) =  SK2\r\n      KE( 57) = -TERM3\r\n      KE( 59) =  SK4\r\n      KE( 62) = -TERM2\r\n      KE( 66) =  SK1\r\n      KE( 68) =  TERM2\r\n      KE( 72) =  SK3\r\n      KE( 73) = -TERM1\r\n      KE( 79) =  TERM1\r\n      KE( 86) = -RRV1\r\n      KE( 90) =  TERM2\r\n      KE( 92) =  RRV1\r\n      KE( 96) =  TERM2\r\n      KE( 99) = -RRV2\r\n      KE(101) = -TERM3\r\n      KE(105) =  RRV2\r\n      KE(107) = -TERM3\r\n      KE(112) = -TERM4\r\n      KE(118) =  TERM4\r\n      KE(123) =  TERM3\r\n      KE(125) =  SK4\r\n      KE(129) = -TERM3\r\n      KE(131) =  SK2\r\n      KE(134) = -TERM2\r\n      KE(138) =  SK3\r\n      KE(140) =  TERM2\r\n      KE(144) =  SK1\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n      KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325\r\nC\r\nC     SAVE THE KE (UNPINNED) MATRIX IN KES.\r\nC\r\n      DO 255 I = 1,144\r\n  255 KES(I) = KE(I)\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  260 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.0D0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0D0\r\n      KE(IL) = 0.0D0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI  = 12*(J-1) + IPIN(I)\r\n      IJ  = 12*(IPIN(I)-1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ) = 0.0D0\r\n      KEP(JI) = 0.0D0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC            E\r\nC     STORE K   IN KEP(1),...,KEP(36) AND\r\nC            AA\r\nC\r\nC            E\r\nC     STORE K   IN KEP(37),...,KEP(72)\r\nC            AB\r\nC\r\n  325 J = 0\r\n      DO 340 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J   ) = KE(K  )\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A.\r\nC\r\n      BASIC  = ABASIC\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      IWBEG  = 0\r\n      IKEL   = 1\r\n      IAB    = 1\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W  AND W\r\nC     6 X 6 MATRICES WILL RESIDE.                          A      B\r\nC\r\n      DO 360 I = 28,108\r\n  360 KE(I) = 0.0D0\r\nC\r\nC     SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G MATRIX\r\nC     G = AT X TI\r\nC\r\n  365 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL TRANSD (ECPT(JCSID),KE(10))\r\n      CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3\r\nC     MATRIX.\r\nC\r\n  370 IF (.NOT.OFFSET) GO TO 380\r\n      KE(10) =  0.0D0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.0D0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.0D0\r\nC\r\nC     FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28))\r\nC\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC\r\nC                                 E                     E\r\nC     COMPUTE THE PRODUCT S   =  K   X  W   OR  S   =  K    X  W\r\nC                          A      AA     A       B      AB      B\r\nC     WHERE\r\nC                  T                           T\r\nC           W  =  T   X  C  X  E   AND  W  =  T   X  C   X  E\r\nC            A     EB     A     A        B     EB     B      B\r\nC\r\nC     W AT KE(37) AND W AT KE(73) WILL BE USED AGAIN BEFORE FINAL STEPS.\r\nC      A               B\r\nC\r\n  390 CALL GMMATD (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB))\r\nC\r\nC     IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF\r\nC     NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B.\r\nC\r\n      IF (IWBEG .EQ. 36) GO TO 500\r\n      BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IWBEG  = 36\r\n      IKEL   = 37\r\n      IAB    = 37\r\n      DO 400 I = 28,36\r\n  400 KE(I)  = 0.0D0\r\n      GO TO 365\r\nC\r\nC     BEGIN DIFFERENTIAL STIFFNESS PORTION OF THIS ROUTINE.\r\nC\r\nC     STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS\r\nC\r\n  500 DO 510 I = 1,6\r\n      UA(I) = ECPT(I+49)\r\n  510 UB(I) = ECPT(I+55)\r\nC\r\nC     COMPUTE  S  X  U   AND  S  X  U\r\nC               A     A        B     B\r\nC\r\n      CALL GMMATD (SA(1),6,6,0, UA,6,1,0, DPVECA)\r\n      CALL GMMATD (SB(1),6,6,0, UB,6,1,0, DPVECB)\r\nC\r\nC     COMPUTE THE NEEDED COMPONENTS OF THE FORCE VECTOR.\r\nC\r\n      FX  = DPVECA(1) + DPVECB(1)\r\n      VY  = DPVECA(2) + DPVECB(2)\r\n      VZ  = DPVECA(3) + DPVECB(3)\r\n      MAY = DPVECA(5) + DPVECB(5)\r\n      MAZ = DPVECA(6) + DPVECB(6)\r\n      MBZ = -MAZ - VY*L\r\n      MBY = -MAY + VZ*L\r\n      E   = E S\r\n      FX  = FX - E*ELDEF/L\r\n      IF (IECPT(49) .EQ. -1) GO TO 520\r\n      ALPHA = ALPHAS\r\n      TSUB0 = TSUB0S\r\n      DP(1) = TEMPER\r\n      FX  = FX - A*ALPHA*E*(DP(1)-TSUB0)\r\nC\r\nC     ZERO OUT THE KD (KC) MATRIX\r\nC\r\n  520 DO 530 I = 1,144\r\n  530 KD(I) = 0.0D0\r\nC\r\nC     FORM THE ELEMENT DIFFERENTIAL STIFFNESS MATRIX (UPPER HALF)\r\nC\r\n      TERM1  = 6.0D0*FX/(5.0D0*L)\r\n      TERM2  = -MAY/L\r\n      TERM3  = FX/10.0D0\r\n      TERM4  = -MBY/L\r\n      TERM5  = -MAZ/L\r\n      TERM6  = -MBZ/L\r\n      DFJ    = I1 + I2\r\n      DA     = A\r\n      TERM7  = DFJ*FX/(L*DA)\r\n      TERM8  = L*VY/6.0D0\r\n      TERM9  = L*VZ/6.0D0\r\n      TERM10 = 2.0D0*L*FX/15.0D0\r\n      TERM11 = L*FX/30.0D0\r\n      KC( 2, 2) =  TERM1\r\n      KC( 2, 4) =  TERM2\r\n      KC( 2, 6) = -TERM3\r\n      KC( 2, 8) = -TERM1\r\n      KC( 2,10) =  TERM4\r\n      KC( 2,12) = -TERM3\r\n      KC( 3, 3) =  TERM1\r\n      KC( 3, 4) =  TERM5\r\n      KC( 3, 5) =  TERM3\r\n      KC( 3, 9) = -TERM1\r\n      KC( 3,10) =  TERM6\r\n      KC( 3,11) =  TERM3\r\n      KC( 4, 4) =  TERM7\r\n      KC( 4, 5) = -TERM8\r\n      KC( 4, 6) = -TERM9\r\n      KC( 4, 8) = -TERM2\r\n      KC( 4, 9) = -TERM5\r\n      KC( 4,10) = -TERM7\r\n      KC( 4,11) =  TERM8\r\n      KC( 4,12) =  TERM9\r\n      KC( 5, 5) =  TERM10\r\n      KC( 5, 9) = -TERM3\r\n      KC( 5,10) =  TERM8\r\n      KC( 5,11) = -TERM11\r\n      KC( 6, 6) =  TERM10\r\n      KC( 6, 8) =  TERM3\r\n      KC( 6,10) =  TERM9\r\n      KC( 6,12) = -TERM11\r\n      KC( 8, 8) =  TERM1\r\n      KC( 8,10) = -TERM4\r\n      KC( 8,12) =  TERM3\r\n      KC( 9, 9) =  TERM1\r\n      KC( 9,10) = -TERM6\r\n      KC( 9,11) = -TERM3\r\n      KC(10,10) =  TERM7\r\n      KC(10,11) = -TERM8\r\n      KC(10,12) = -TERM9\r\n      KC(11,11) =  TERM10\r\n      KC(12,12) =  TERM10\r\nC\r\nC     STORE THE UPPER HALF IN THE LOWER HALF.\r\nC\r\n      DO 550 I = 2,10\r\n      LOW = I + 1\r\n      DO 540 J = LOW,12\r\n      KC(J,I) = KC(I,J)\r\n  540 CONTINUE\r\n  550 CONTINUE\r\nC\r\nC     IF THERE PIN FLAGS, ALTER THE KD MATRIX\r\nC\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 620\r\nC\r\nC     ALTER KD DUE TO PIN FLAGS.\r\nC\r\n      DO 610 J = 1,10\r\n      IF (IPIN(J) .EQ. 0) GO TO 610\r\n      JJ = 12*(IPIN(J)-1) + IPIN(J)\r\n      IF (KES(JJ) .EQ. 0.0D0) GO TO 605\r\n      DO 590 I = 1,12\r\n      JI = 12*(IPIN(J)-1) + I\r\n      IJ = 12*(I-1) + IPIN(J)\r\n      DO 580 L1 = 1,12\r\n      IL = 12*(I-1) + L1\r\n      LJ = 12*(L1-1) + IPIN(J)\r\n      KDP(IL) = KD(IL) - KES(LJ)*KD(JI)/KES(JJ) - KES(JI)*KD(LJ)/KES(JJ)\r\n     2        + KES(LJ)* KES(JI)*KD(JJ)/KES(JJ)**2\r\n  580 CONTINUE\r\n  590 CONTINUE\r\n      DO 600 KK = 1,144\r\n  600 KD(KK) = KDP(KK)\r\nC\r\nC     ZERO OUT THE IPIN(J) TH ROW AND COLUMN OF KD.\r\nC\r\n  605 J1 = JJ - IPIN(J)\r\n      J2 = IPIN(J)\r\n      DO 608 KK = 1,12\r\n      J1 = J1 + 1\r\n      KD(J1) = 0.0D0\r\n      KD(J2) = 0.0D0\r\n  608 J2 = J2 + 12\r\n  610 CONTINUE\r\nC\r\nC            D\r\nC     STORE K        AT KEP(1),...,KEP(36)  AND\r\nC            NPVT,A\r\nC\r\nC            D\r\nC           K        AT KEP(37),...,KEP(72)\r\nC            NPVT,B\r\nC\r\nC\r\n  620 J = 0\r\n      IF (IPVT .EQ. 2) GO TO 625\r\n      ILOW = 1\r\n      ILIM = 72\r\n      GO TO 628\r\n  625 ILOW = 73\r\n      ILIM = 144\r\n  628 DO 640 I = ILOW,ILIM,12\r\n      LOW  = I\r\n      LIM  = LOW +5\r\n      DO 630 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J   ) = KD(K  )\r\n  630 KEP(J+36) = KD(K+6)\r\n  640 CONTINUE\r\nC\r\nC     COMPUTE THE FINAL 2 6X6 DIFFERENTIAL STIFFNESS MATRICES FOR THIS\r\nC     BEAM.\r\nC\r\n      IWLEFT = 37\r\n      IF (IPVT .EQ. 2) IWLEFT = 73\r\n      I = 1\r\n      IKDE = 1\r\n      IWRGHT = 37\r\n  650 CALL GMMATD (KE(IWLEFT),6,6,1, KEP(IKDE),6,6,0, KEP(73))\r\n      CALL GMMATD (KEP(73),6,6,0, KE(IWRGHT),6,6,0, KEP(109))\r\n      CALL DS1B (KEP(109),ISILNO(I))\r\n      IF (I .EQ. 2) RETURN\r\n      I = 2\r\n      IKDE = 37\r\n      IWRGHT = 73\r\n      GO TO 650\r\nC\r\nC     FATAL ERROR\r\nC\r\n  700 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dbase.f",
    "content": "      SUBROUTINE DBASE\r\nC\r\nC     DRIVER FOR DATABASE MODULE\r\nC\r\nC     THIS UTILITY MODULE TRANSFERS GRID POINT DATA, CONNECTING ELEMENT\r\nC     DATA, AND MOST OF THE OFP DATA BLOCKS (DISPLACEMENT, VELOCITY,\r\nC     ACCELERTION, LOAD, GRID POINT FORCE, EIGENVECTOR, ELEMENT STRESS\r\nC     AND ELEMENT FORCE) TO A FORTRAN FILE, FORMATTED OR UNFORMATTED.\r\nC     THE GRID POINT DATA ARE IN BASIC COORDINATE SYSTEM, AND THE\r\nC     DISPLACEMENT DATA IF REQUESTED, CAN BE IN BASIC SYSTEM (DEFAULT)\r\nC     OR IN GLOBAL COORDINATE SYSTEM. GRID POINTS ARE IN EXTERNAL GRID\r\nC     NUMBERING SYSTEM.\r\nC     THE FORMATTED OUTTP FILE CAN BE PRINTED, OR EDITTED BY SYSTEM\r\nC     EDITOR. ALL OUTPUT LINES ARE 132 COLUMNS OR LESS.\r\nC\r\nC\r\nC     WRITTEN ON THE LAST DAY OF 1988 BY G.CHAN/UNISYS.\r\nC     REVISED 10/89, EXPANDED TO INCLUDE THREE OFP FILES\r\nC\r\nC     DATABASE  EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT\r\nC                                                /C,N,BASIC   $\r\nC\r\nC               EQEXIN - MUST BE PRESENT\r\nC               BGPDT  - IF PURGE, NO GRID POINT DATA SENT TO OUTTP\r\nC               GEOM2  - IF PURGE, NO ELEMENT CONNECTIVITY DATA SENT TO\r\nC                        OUTTP\r\nC               CSTM   - IF PURGE, DISPLACEMENT VECTOR IN GLOBAL COORD.\r\nC               Oi     - ANY ONE OF NASTRAN STANDARD OFP FILES LISTED\r\nC                        BELOW. IF PURGE, NO DATA SENT TO OUTTP.\r\nC                        IF THE DATA IN THIS OFP FILE IS COORDINATE\r\nC                        SENSITIVE, SUCH AS DISPLACEMENT, THE DATA CAN\r\nC                        BE SENT OUT TO OUTTP IN BASIC OR GLOBAL\r\nC                        COORDINATES AS SPECIFIED THE PARAMETER BASIC.\r\nC               OUTTP  - MUST BE ONE OF THE UT1,UT2,INPT,INP1,...,9 FILE\r\nC               FORMAT = 0, UNFORMATTED OUTPUT TO OUTTP FILE (DEFAULT)\r\nC                      = 1, FORMATTED\r\nC               BASIC  = 0, DISPLACEMENT VECTORS REMAIN IN GLOBAL COORD.\r\nC                           SYSTEM (DEFAULT)\r\nC                      = 1, DISPLACEMENT VECTORS IN BASIC COORD. SYSTEM\r\nC                           (NOT USED IN ELEMENT FORCES AND STRESSES)\r\nC\r\nC     LIST OF AVAILABLE OFP FILES (Oi)\r\nC          OUDV1,  OUDVC1, OUGV1,  OUHV1,  OUHVC1, OUPV1,  OUPVC1,\r\nC          OUDV2,  OUDVC2, OUGV2,  OUHV2,  OUHVC2, OUPV2,  OUPVC2,\r\nC          OUBGV1, OPHID,  OPHIG,  OPHIH,  OCPHIP,\r\nC          OPG1,   OPP1,   OPPC1,  OQG1,   OQP1,   OQPC1,  OQBG1,\r\nC          OPG2,   OPP2,   OPPC2,  OQG2,   OQP2,   OQPC2,  OQBG2,\r\nC          OEF1,   OEFC1,  OES1,   OESC1,  OEFB1,  OBEF1,\r\nC          OEF2,   OEFC2,  OES2,   OESC2,  OESB1,  OBES1\r\nC          OES1A,\r\nC          HOUDV1, HOUGV1, HOPG1,  HOQG1,  HOEF1,  HOES1,  HOPNL1,\r\nC          HOUDV2, HOUGV2, HOPP2,  HOQP2,  HOEF2,  HOEFIX, HOPNL2\r\nC\r\nC\r\nC     MAP THIS ROUTINE IN LINK2, LINK4 AND LINK14\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          FMTTD,BASC,NOCSTM,NOBGPT,NOGEOM,DEBUG,EFS,ECXYZ\r\n      INTEGER          SUB(2),B(5),NAM(8),A(10),FMT(4),ONAME(6),SUBN(3),\r\n     1                 A1(80),F(79),F8(6),INPX(3),IX(1),FSTF(4),INP(8)\r\n      REAL             RX(200),RZ(1),RA(1),T(9),FREQ\r\n      CHARACTER*8      CA,MO,CAMO,BA,GL,BAGL,GPT,ELM,DIS,LOD,FORC,VELO,\r\n     1                 ACC,EIGN,STR,ELF,DXX,DYY(3),DASH,BLK8\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /BLANK /  OUTTP,FORMTD,BASIC\r\n      COMMON /GPTA1 /  NEL,LAST,INCR,E(1)\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /NAMES /  RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW\r\n      EQUIVALENCE      (Z(1),RZ(1)),       (B(1),NAM(1)),\r\n     1                 (A(1),RA(1),A1(3)), (RX(1),IX(1))\r\n      DATA    EQEXIN,  BGPDT, GEOM2,  CSTM,  SCR1,  SUB              /\r\n     1        101,     102,   103,    104,   301,   4HDBAS,4HE       /\r\n      DATA    END1,    END2,  END3,   FMT                            /\r\n     1        4H -EN,  2HD-,  2H--,   4H, UN,4HFORM,4HATTE,1HD       /\r\n      DATA    FMT1,    MONE,  BLANK,  BZERO, IZERO,        DEBUG     /\r\n     1        1H,,     -1,    4H    , 4H 0.0,4H-0  ,       .FALSE.   /\r\n      DATA    LS,      INPX,                 LIMAF,        LIMRX     /\r\n     1        1HS,     4H INP,4HINPT, 4H  UT,    78,       200       /\r\n      DATA    GPT,            ELM,           DIS,          DASH      /\r\n     1        'GRID PTS',     'ELEMENTS',    'DISPLCNT',  '--------' /\r\n      DATA    LOD,            FORC,          VELO,         BLK8      /\r\n     1        'LOADINGS',     'GD FORCE',    'VELOCITY',  '        ' /\r\n      DATA    ACC,            EIGN,          STR,          ELF       /\r\n     1        'ACCELERN',     'EIGENVCR',    'E.STRESS',  'E.FORCES' /\r\n      DATA    CA,             MO,            BA,           GL        /\r\n     1        ' CASE = ',     ' MODE = ',    '  BASIC ',  ' GLOBAL ' /\r\n      DATA    FSTF / 4H1ST , 4H2ND ,4H3RD ,  4H4TH /   ,   INP       /\r\n     1        4HEQEX,2HIN  , 4HBGPD,2HT  ,   4HGEOM,4H2   ,4HCSTM,1H /\r\nC\r\nC\r\n      IF (DEBUG) WRITE (NOUT,10)\r\n   10 FORMAT (/5X,'-- DBASE LOCAL DEBUG --')\r\n      NAM(1) = 106\r\n      CALL RDTRL (NAM(1))\r\n      IF (NAM(1) .GT. 0) GO TO 20\r\n      CALL PAGE\r\n      WRITE  (NOUT,15) UIM\r\n   15 FORMAT (A29,', DATABASE NEW DMAP FORMAT', //5X,\r\n     1       'DATABASE   EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/',\r\n     2       'C,N,FORMAT/C,N,BASIC  $', /5X,'FIRST 4 FILES ARE FIXED ',\r\n     3       'IN NAMES AND ORDER, NEXT 3 FILES CAN BE SELECTED BY USER',\r\n     4       /5X,'FIRST EQEXIN FILE MUST BE PRESENT, OTHERS CAN BE ',\r\n     5       'SELECTIVELY OMITTED')\r\n   20 IF (OUTTP.GE.11 .AND. OUTTP.LE.24) GO TO 30\r\n      WRITE  (NOUT,25) UFM,OUTTP\r\n   25 FORMAT (A23,', OUTPUT FILE SPEC. ERROR')\r\n      CALL MESAGE (-37,0,SUB)\r\n   30 EFS   = .FALSE.\r\n      FMTTD = .FALSE.\r\n      BASC  = .FALSE.\r\n      ECXYZ = .FALSE.\r\n      IF (FORMTD .EQ. 1) FMTTD = .TRUE.\r\n      IF (BASIC  .EQ. 1) BASC  = .TRUE.\r\n      IF (FMTTD) FMT(1) = FMT1\r\n      CALL FNAME (101,NAM(1))\r\n      IF (NAM(1).EQ.INP(1) .AND. NAM(2).EQ.INP(2)) GO TO 34\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,32) FSTF(1),NAM(1),NAM(2)\r\n   32 FORMAT (//,' *** USER FATAL ERROR IN DATABASE MODULE, THE ',A4,\r\n     1  'INPUT DATA BLOCK ',2A4,' IS ILLEGAL.', /5X,'THE FIRST 4 INPUT',\r\n     2  ' DATA BLOCKS MUST BE ''EQEXIN,BGPDT,GEOM2,CSTM'', AND IN ',\r\n     3  'EXACT ORDER SHOWN')\r\n      NOGO   = 1\r\n   34 NOBGPT = .FALSE.\r\n      NOGEOM = .FALSE.\r\n      NOCSTM = .FALSE.\r\n      NAM(1) = BGPDT\r\n      CALL RDTRL (NAM)\r\n      IF (NAM(1) .LE. 0) NOBGPT = .TRUE.\r\n      IF (NOBGPT) GO TO 35\r\n      CALL FNAME (102,NAM(1))\r\n      IF (NAM(1).EQ.INP(3) .AND. NAM(2).EQ.INP(4)) GO TO 35\r\n      CALL PAGE2 (3)\r\n      WRITE (NOUT,32) FSTF(2),NAM(1),NAM(2)\r\n      NOGO = 1\r\n   35 NAM(1) = GEOM2\r\n      CALL RDTRL (NAM)\r\n      IF (NAM(1) .LE. 0) NOGEOM = .TRUE.\r\n      IF (NOGEOM) GO TO 36\r\n      CALL FNAME (103,NAM(1))\r\n      IF (NAM(1).EQ.INP(5) .AND. NAM(2).EQ.INP(6)) GO TO 36\r\n      CALL PAGE2 (3)\r\n      WRITE (NOUT,32) FSTF(3),NAM(1),NAM(2)\r\n      NOGO = 1\r\n   36 NAM(1) = CSTM\r\n      CALL RDTRL (NAM)\r\n      IF (NAM(1) .LE. 0) NOCSTM = .TRUE.\r\n      IF (NOCSTM) GO TO 37\r\n      CALL FNAME (104,NAM(1))\r\n      IF (NAM(1).EQ.INP(7) .AND. NAM(2).EQ.INP(8)) GO TO 37\r\n      CALL PAGE2 (3)\r\n      WRITE (NOUT,32) FSTF(4),NAM(1),NAM(2)\r\n      NOGO = 1\r\n   37 IF (NOGO .EQ. 1) RETURN\r\nC\r\n      NZ    = KORSZ(Z(1))\r\n      BUF1  = NZ   - SYSBUF\r\n      BUF2  = BUF1 - SYSBUF\r\n      NZ    = BUF2 - 1\r\n      COOR  = 0\r\nC\r\nC     OPEN EQEXIN, READ FIRST RECORD, AND SORT EX-INT TABLE BY INTERNAL\r\nC     NUMBERS, Z(1) THRU Z(NEQ)\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN   (*1300,EQEXIN,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1300,EQEXIN)\r\n      CALL READ   (*1300,*60,EQEXIN,Z(1),NZ,1,NEQ)\r\n      J = 0\r\n   40 CALL READ (*1300,*50,EQEXIN,Z(1),NZ,1,NEQ)\r\n      J = J + NZ\r\n      GO TO 40\r\n   50 J = J + NEQ\r\n      J = J*2\r\n      CALL MESAGE (-8,J,SUB)\r\nC\r\n   60 CALL CLOSE (EQEXIN,REW)\r\n      LEFT = NZ - NEQ - 1\r\n      NEQ2 = NEQ/2\r\n      J = NEQ2*5 - LEFT\r\n      IF (J .GT. 0) CALL MESAGE (-8,J,SUB)\r\n      CALL SORT (0,0,2,2,Z(1),NEQ)\r\nC\r\nC     IF BGPDT FILE NOT REQUESTED, SKIP PROCESSING GRID POINT DATA\r\nC\r\n      IF (NOBGPT) GO TO 170\r\nC\r\nC\r\nC     GRID POINTS PROCESSING\r\nC     ======================\r\nC\r\nC     OPEN BGPDT, READ THE ENTIRE RECORD, AND REPLACE THE COORD.SYSTEM\r\nC     WORD BY THE EXTERNAL GRID POINT NUMBER.\r\nC     NOTE - EXT.GRID IDS ARE NO LONGER SORTED.\r\nC     WRITE THE NEW DATA TO SCR1 FILE - EXT.GIRD ID, X,Y,Z BASIC COORD.\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*1300,SCR1,Z(BUF1),WRTREW)\r\n      FILE  = BGPDT\r\n      CALL OPEN (*170,BGPDT,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1300,BGPDT)\r\n      NGD   = 0\r\n  100 CALL READ (*110,*110,BGPDT,B(2),4,0,FLAG)\r\n      NGD  = NGD + 1\r\n      K    = NGD*2 - 1\r\n      B(1) = Z(K)\r\n      B(2) = 0\r\n      CALL WRITE (SCR1,B,5,0)\r\n      GO TO 100\r\n  110 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1 ,REW)\r\n      CALL CLOSE (BGPDT,REW)\r\nC\r\nC     OPEN SCR1 AND OUTTP\r\nC     SORT THE GRID POINT DATA BY THEIR EXTERNAL NUMBERS\r\nC\r\nC     FOR UNFORMATTED TPAE, TRANSFER GRID DATA FROM SCR1 TO OUTTP IN ONE\r\nC     LONG RECORD\r\nC\r\nC          WORD         CONTENT (UNFORMATTED, 2ND RECORD)\r\nC        ------    ----------------------------------------------------\r\nC             1     NO. OF WORDS (THIS FIRST WORD NOT INCLUDED) IN THIS\r\nC                   RECORD (INTEGER)\r\nC             2     EXTERNAL GRID ID (SORTED)\r\nC             3     0 (NOT USED, RESERVED FOR FUTURE USE. INTEGER)\r\nC         4,5,6     X,Y,Z COORDINATES IN BASIC COORD SYSTEM (REAL)\r\nC             :     REPEAT 2 THRU 6 AS MANY TIMES AS THERE ARE GRIDS.\r\nC\r\n      FILE = SCR1\r\n      JB   = NEQ+ 1\r\n      JBP1 = JB + 1\r\n      JBM1 = JB - 1\r\n      K    = NGD*5\r\n      CALL OPEN (*1300,SCR1,Z(BUF1),RDREW)\r\n      CALL READ (*1300,*1310,SCR1,Z(JBP1),K,1,FLAG)\r\n      CALL CLOSE (SCR1,REW)\r\n      CALL SORT (0,0,5,1,Z(JBP1),K)\r\nC\r\nC     FIRST GRID POINT IDENTIFICATION RECORD TO OUTTP\r\nC\r\n      IF (.NOT.FMTTD) WRITE (OUTTP    ) GPT,DASH\r\n      IF (     FMTTD) WRITE (OUTTP,120) GPT,DASH\r\n  120 FORMAT (1X,2A8)\r\nC\r\n      IF (FMTTD) GO TO 130\r\n      Z(JB) = K\r\n      JE    = K + JB\r\n      WRITE (OUTTP) (Z(J),J=JB,JE)\r\n      GO TO 170\r\nC\r\nC     FOR FORMATTED TAPE\r\nC\r\nC       RECORD   WORD     CONTENT                               FORMAT\r\nC       ------   ----    ----------------------------------------------\r\nC           2      1      TOTAL NUMBER OF GRID POINTS             I8\r\nC           3      1      EXTERNAL GRID ID (NOT SORTED)           I8\r\nC                  2      0 (NOT USED, RESERVED FOR FUTURE USE)   I8\r\nC                3,4,5    X,Y,Z COORDINATES IN BASIC SYSTEM  3(1P,E12.5)\r\nC           :     1-5     REPEAT RECORD 3 AS MANY TIMES AS THERE\r\nC                         ARE GRIDS\r\nC\r\n  130 WRITE  (OUTTP,140) NGD\r\n  140 FORMAT (1X,I8,'= TOTAL NUMBER OF GRID POINTS')\r\n      K = JB\r\n      DO 160 I = 1,NGD\r\n      WRITE  (OUTTP,150) Z(K+1),Z(K+2),RZ(K+3),RZ(K+4),RZ(K+5)\r\n  150 FORMAT (1X,2I8,3(1P,E12.5))\r\n  160 K = K + 5\r\nC\r\nC     IF GEOM2 IS NOT REQUESTED, SKIP PROCESSING ELEMENT DATA\r\nC\r\n  170 IF (NOGEOM) GO TO 490\r\nC\r\nC\r\nC     ELEMENT CONNECTIVITY PROCESSING\r\nC     ===============================\r\nC\r\nC     OPEN GEOM2 AND SCR1. TRANSFER ELEMENT DATA TO SCR1 FILE\r\nC\r\n      FILE = GEOM2\r\n      CALL OPEN (*490,GEOM2,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1300,GEOM2)\r\nC\r\nC     FIRST ELEMENT IDENTIFICATION RECORD TO OUTTUP\r\nC\r\n      IF (.NOT.FMTTD) WRITE (OUTTP    ) ELM,DASH\r\n      IF (     FMTTD) WRITE (OUTTP,120) ELM,DASH\r\nC\r\n  200 CALL READ (*420,*420,GEOM2,B,3,0,FLAG)\r\n      IF (B(1).EQ.B(2) .AND. B(2).EQ.B(3)) GO TO 420\r\n      DO 210 I = 4,LAST,INCR\r\n      IF (B(1) .EQ. E(I)) GO TO 220\r\n  210 CONTINUE\r\n      CALL MESAGE (-61,0,0)\r\n  220 NAM(1) = E(I-3)\r\n      NAM(2) = E(I-2)\r\n      ELTYP  = E(I-1)\r\n      NWDS   = E(I+2)\r\n      PID    = E(I+3)\r\n      SYMBOL = E(I+12)\r\n      NG     = E(I+6)\r\n      G1     = E(I+9) - 1\r\n      NG3    = NG +3\r\n      NE     = 0\r\n      MID    = 0\r\nC               TETRA,WEDGE,HEXA1,HEXA2            FHEX1          FHEX2\r\n      IF (ELTYP.GE.39 .AND. ELTYP.LE.42 .OR. ELTYP.EQ.76.OR.ELTYP.EQ.77)\r\n     1   MID = 2\r\n      NAM(3) = ELTYP\r\n      NAM(4) = SYMBOL\r\n      NAM(5) = NG\r\n      NAM(6) = NE\r\n      NAM(7) = NG3\r\n      NAM(8) = 1\r\n      IF (NG .GT. 13) NAM(8) = 2\r\n      IF (NG .GT. 28) NAM(8) = 3\r\nC\r\nC     FOR UNFORMATTED TAPE -\r\nC\r\nC     ELEMENT HEADER RECORD WRITTEN TO SCR1\r\nC\r\nC        WORD        CONTENT  (UNFORMATTED)\r\nC        ----    ----------------------------------------------------\r\nC         1-2     ELEMENT BCD NAME\r\nC           3     ELEMENT TYPE NUMBER, ACCORDING TO GPTABD ORDER\r\nC           4     ELEMENT SYMBOL (2 LETTERS)\r\nC           5     NG= NUMBER OF GRID POINTS\r\nC           6     NE= TOTAL NO. OF ELEMENTS OF THIS CURRENT ELEMENT TYPE\r\nC           7     NO. OF WORDS IN NEXT RECORD PER ELEMENT = NG+2\r\nC           8     NO. OF 132-COLUMN LINES NEEDED IN NEXT RECORD IF OUTTP\r\nC                 IS WRITTED WITH A FORMAT\r\nC\r\n      FILE  = SCR1\r\n      CALL OPEN (*1300,SCR1,Z(BUF1),WRTREW)\r\n      CALL WRITE (SCR1,NAM,8,0)\r\n      FILE  = GEOM2\r\n  230 CALL READ (*490,*250,GEOM2,A,NWDS,0,FLAG)\r\n      A1(1) = A(1)\r\n      A1(2) = A(2)\r\n      A1(3) = 0\r\n      IF (PID .EQ. 0) A1(2) = 0\r\n      IF (MID .EQ. 2) A1(2) =-A(2)\r\n      DO 240 J = 1,NG\r\n  240 A1(J+3) = A(G1+J)\r\n      CALL WRITE (SCR1,A1,NG3,0)\r\n      NE = NE + 1\r\n      GO TO 230\r\n  250 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,REW)\r\n      FILE = SCR1\r\n      CALL OPEN (*1300,SCR1,Z(BUF1),RDREW)\r\n      CALL READ (*1300,*290,SCR1,Z(JB),LEFT,1,NWDS)\r\n      CALL BCKREC (SCR1)\r\n      IF (.NOT.FMTTD) GO TO 370\r\n      J = 0\r\n      CALL READ (*1300,*270,SCR1,Z(JB),LEFT,0,FLAG)\r\n  270 CALL READ (*1300,*280,SCR1,Z(JB),LEFT,0,FLAG)\r\n      J = J + LEFT\r\n      GO TO 270\r\n  280 J = J + FLAG\r\n      CALL MESAGE (-8,J,SUB)\r\n  290 CALL CLOSE (SCR1,REW)\r\n      Z(JB+5) = NE\r\n      IF (FMTTD) GO TO 300\r\n      K = JB + 7\r\n      WRITE (OUTTP) (Z(J),J=JB,K)\r\n      I = K + 1\r\n      K = NWDS + JB - 1\r\n      WRITE (OUTTP) (Z(J),J=I,K)\r\n      GO TO 200\r\nC\r\nC     ELEMENT RECORD TO SCR1\r\nC\r\nC       WORD      CONTENT, ALL INTEGERS  (UNFORMATTED)\r\nC       ----    ------------------------------------------------\r\nC         1      ELEMENT ID\r\nC         2      POSITIVE INTEGER  = PROPERTY ID\r\nC                ZERO IF ELEM HAS NO PROPERTY ID\r\nC                NEGATIVE INTEGER  = MATERIAL ID (ELEMENT HAS NO\r\nC                  PROPERTY ID, BUT IT HAS A MATERIAL ID)\r\nC         3      0 (NOT USED. RESERVED FOR FUTURE USE)\r\nC       4,5,...  ELEMENT CONNECTING GRID POINTS\r\nC         :      REPEAT 1,2,3,4,... AS MANY TIMES AS THERE ARE ELEMENTS\r\nC                  OF THIS SAME TYPE\r\nC\r\nC\r\nC\r\nC     FOR FORMATTED TAPE -\r\nC\r\nC     ELEMENT HEADER RECORD, IN 8-COLUMN FORMAT\r\nC     (LINE ---+++ IS FOR VIDEO AID, NOT PART OF A RECORD)\r\nC\r\nC     --------++++++++--------++++++++--------++++++++--------++++++++\r\nC     ELEMENT CBAR      TYPE =  34  BR GRIDS =       2 TOTAL = ETC...\r\nC\r\nC       RECORD  COLUMNS    CONTENT                             FORMAT\r\nC       ------  -------  -----------------------------------------------\r\nC          2      1- 8   'ELEMENT '                          8 LETTERS\r\nC                 9-16   ELEMENT NAME                             2A4\r\nC                17-24   '  TYPE ='                          8 LETTERS\r\nC                25-28   ELEM. TYPE NO. ACCORDING TO GPTABD        I4\r\nC                29,30   BLANK                                     2X\r\nC                31-32   ELEMENT SYMBOL                            A2\r\nC                33-40   ' GRIDS ='                          8 LETTERS\r\nC                41-48   NO. OF GRIDS PER ELEMENT                  I8\r\nC                49-56   ' TOTAL ='                          8 LETTERS\r\nC                57-64   TOTAL NO. OF ELEMENTS OF THIS ELEM. TYPE  I8\r\nC                65-72   ' WDS/EL='                          8 LETTERS\r\nC                73-80   NO. OF WORDS PER ELEMENT IN NEXT RECORDS  I8\r\nC                81-88   ' LINES ='                          8 LETTERS\r\nC                89-96   NO. OF LINES (RECORDS) NEEDED ON NEXT     I8\r\nC                        RECORD FOR THIS ELEMENT TYPE\r\nC\r\nC     ELEMENT RECORD\r\nC     THERE SHOULD BE (TOTAL X LINES) RECORDS IN THIS GROUP\r\nC\r\nC       RECORD  WORD      CONTENT                               FORMAT\r\nC       ------  ----     -----------------------------------------------\r\nC          3      1       ELEMENT ID                               I8\r\nC                 2       POSITIVE INTEGER  = PROPERTY ID          I8\r\nC                         ZERO IF ELEM HAS NO PROPERTY ID\r\nC                         NEGATIVE INTEGER  = MATERIAL ID (ELEMENT HAS\r\nC                            NO PROPERTY ID, BUT IT HAS A MATERIAL ID)\r\nC                 3       0 (NOT USED. RESERVED FOR FUTURE USE)    I8\r\nC              4,5,...16  FIRST 13 EXTERNAL CONNECTING GRID PTS.  13I8\r\nC          4              (IF NEEDED)\r\nC              1,2,...15  NEXT 15 GRID POINTS                  8X,15I8\r\nC          5              (IF NEEDED)\r\nC              1,2,...15  MORE GRID POINTS                     8X,15I8\r\nC\r\nC\r\nC     REPEAT FORMATTED RECORD 3 (AND POSSIBLE 4 AND 5) AS MANY TIMES AS\r\nC     THERE ARE ELEMENTS\r\nC\r\n  300 WRITE  (OUTTP,310) (Z(J+JBM1),J=1,8)\r\n  310 FORMAT (1X,'ELEMENT ',2A4,'  TYPE =',I4,2X,A2,' GRIDS =',I8,\r\n     1        ' TOTAL =',I8,' WDS/EL=',I8,' LINES =',I8)\r\n      I  = JB + 8\r\n      DO 360 J = 9,NWDS,NG3\r\n      JE = I + NG3 - 1\r\n      IF (NG3 .GT. 16) GO TO 330\r\n      WRITE (OUTTP,320,ERR=1390) (Z(K),K=I,JE)\r\nC\r\nC     320  FORMAT (1X,16I8,/,(1X,8X,15I8))\r\nC     THIS FORMAT MAY CAUSE AN EXTRA LINE IN SOME MACHINE IF NG3=16\r\nC\r\n  320 FORMAT (1X,16I8)\r\n      GO TO 360\r\n  330 J16 = I + 15\r\n      J17 = I + 16\r\n      WRITE  (OUTTP,320,ERR=1390) (Z(K),K= I,J16)\r\n      IF (NG3 .GT. 31) GO TO 350\r\n      WRITE  (OUTTP,340,ERR=1390) (Z(K),K=J17,JE)\r\n  340 FORMAT (1X,8X,15I8)\r\n      GO TO 200\r\n  350 J31 = I + 30\r\n      J32 = I + 31\r\n      WRITE (OUTTP,340,ERR=1390) (Z(K),K=J17,J31)\r\n      WRITE (OUTTP,340,ERR=1390) (Z(K),K=J32,JE )\r\n  360 I = JE + 1\r\n      GO TO 200\r\nC\r\nC     BYPASSING INSUFF. CORE SITUATION, FORMATTED TAPE ONLY\r\nC\r\n  370 CALL READ (*1300,*1300,SCR1,A,8,0,FLAG)\r\n      A(6) = NE\r\n      WRITE (OUTTP,310,ERR=1390) (A(J),J=1,8)\r\n  380 CALL READ (*1300,*410,SCR1,A,NG3,0,FLAG)\r\n      IF (NG3  .GT. 16) GO TO 390\r\n      WRITE (OUTTP,320,ERR=1390) (A(J),J=1,NG3)\r\n      GO TO 380\r\n  390 WRITE (OUTTP,320,ERR=1390) (A(J),J=1,16)\r\n      IF (NG3  .GT. 32) GO TO 400\r\n      WRITE (OUTTP,340,ERR=1390) (A(J),J=17,NG3)\r\n      GO TO 380\r\n  400 WRITE (OUTTP,340,ERR=1390) (A(J),J=17,32)\r\n      WRITE (OUTTP,340,ERR=1390) (A(J),J=33,NG3)\r\n      GO TO 380\r\n  410 CALL CLOSE (SCR1,REW)\r\n      GO TO 200\r\nC\r\nC\r\nC     LAST RECORD FOR ELEMENT DATA, UNFORMATTED AND FORMATTED\r\nC\r\nC     --------++++++++--------++++++++--------++++++++--------++++++++\r\nC     ELEMENT -END-     TYPE =   0  -- GRIDS =       0 TOTAL =  ETC...\r\nC\r\n  420 CALL CLOSE (GEOM2,REW)\r\n      DO 430 I = 3,8\r\n  430 NAM(I) = 0\r\n      NAM(1) = END1\r\n      NAM(2) = END2\r\n      NAM(4) = END3\r\n      IF (.NOT.FMTTD) WRITE (OUTTP    ) NAM\r\n      IF (     FMTTD) WRITE (OUTTP,310) NAM\r\nC\r\nC\r\nC     PROCESS OFP DATA BLOCKS   SIGNITURE\r\nC     =======================   =========\r\nC       DISPLACEMENT                 1\r\nC       VELOCITIES                  10\r\nC       ACCELERATIONS               11\r\nC       LOADS                        2\r\nC       GRID POINT OR SPC FORCES     3\r\nC       EIGENVECTORS                 7\r\nC       ELEMENT STRESSES, AND        5\r\nC       ELEMENT STRAIN              21\r\nC       ELEMENT FORCES               4\r\nC\r\nC    (GINO INPUT FILE 105,106,107)\r\nC\r\n  490 OFPSET = 0\r\n      OFP  = 0\r\nC\r\nC     SETUP 500-1000 BIG LOOP FOR 3 OFP DATA BLOCKS\r\nC\r\n  500 OFP  = OFP + 1\r\n      OFPX = CSTM + OFP\r\n      NAM(1) = OFPX\r\n      CALL RDTRL (NAM)\r\nC\r\nC     SKIP CURRENT OFP DATA BLOCK IF IT IS PURGED\r\nC\r\n      IF (NAM(1) .LE. 0) GO TO 1000\r\nC\r\n      FILE = OFPX\r\n      CALL OPEN (*1000,OFPX,Z(BUF1),RDREW)\r\n      CALL FWDREC (*980,OFPX)\r\n      JOS  = 2*OFPSET + 1\r\n      OFPSET = OFPSET + 1\r\n      CALL FNAME (OFPX,ONAME(JOS))\r\n      IF (BASC  .AND. NOBGPT .AND. .NOT.NOCSTM) GO TO 660\r\n      IF (NOBGPT .OR. NOCSTM) BASC = .FALSE.\r\n      KOUNT = 0\r\n  510 KOUNT = KOUNT + 1\r\n      FILE  = OFPX\r\n      DO 515 I = 1,6\r\n  515 F8(I) = 0\r\nC\r\nC     IDENTIFY CURRENT OFP DATA BLOCK IS A DISPLACEMENT FILE OR A NON-\r\nC     DISPLACEMENT FILE\r\nC\r\n      CALL READ (*980,*980,OFPX,A,10,0,FLAG)\r\n      DSPL = MOD(A(2),100)\r\n      NWDS = A(10)\r\n      DXX  = BLK8\r\n      IF (NWDS.NE.8 .AND. NWDS.NE.14) GO TO 530\r\nC\r\nC     CURRENT OFP DATA BLOCK IS A DISPLACEMENT FILE\r\nC\r\n      CALL BCKREC (OFPX)\r\n      IF (DSPL .EQ. 1) DXX = DIS\r\n      IF (DSPL .EQ. 2) DXX = LOD\r\n      IF (DSPL .EQ. 3) DXX = FORC\r\n      IF (DSPL.EQ. 7 .OR. DSPL.EQ.14) DXX = EIGN\r\n      IF (DSPL.EQ.15 .OR. DSPL.EQ.10) DXX = VELO\r\n      IF (DSPL.EQ.16 .OR. DSPL.EQ.11) DXX = ACC\r\n      IF (DXX .EQ. BLK8) GO TO 530\r\n      F(1) = 1\r\n      F(2) = 1\r\n      DO 520 I = 3,NWDS\r\n  520 F(I) = 2\r\n      F8(1) = 11222222\r\n      KK  = 1\r\n      NA4 = 22\r\n      IF (NWDS .EQ. 8) GO TO 600\r\n      F8(2) = 22222200\r\n      KK  = 2\r\n      NA4 = 40\r\n      GO TO 600\r\nC\r\nC     CURRENT OFP DATA BLOCK IS STRESS OR EL FORCE FILE.\r\nC     THE DATA RECORDS HAVE VARIABLE LENGTH (I.E NWDS IS NOT A CONSTANT\r\nC     OF 8 OR 14)\r\nC     CONSTRUCT THE FORMAT CODE IN F AND F8\r\nC           1 = INTEGER\r\nC           2 = REAL\r\nC           3 = BCD\r\nC     AND TURN OFF GLOBAL TO BASIC CONVERSION FLAG BASC\r\nC\r\n  530 IF (DSPL .EQ. 4) DXX = ELF\r\n      IF (DSPL .EQ. 5) DXX = STR\r\n      IF (DXX  .EQ.  BLK8) GO TO 1260\r\n      IF (NWDS .GT. LIMAF) GO TO 1350\r\n      IF (BASC) GO TO 1370\r\n      EFS  = .TRUE.\r\n      CALL FWDREC (*980,OFPX)\r\n      CALL READ (*980,*980,OFPX,A,NWDS,0,FLAG)\r\n      DO 540 I = 1,NWDS\r\n      J = NUMTYP(A(I))\r\n      IF (J.EQ.0 .AND. I.GT.1) J = F(I-1)\r\n  540 F(I)  = J\r\n      IF (DEBUG) WRITE (NOUT,545) NWDS,(F(I),I=1,NWDS)\r\n  545 FORMAT (/,' NWDS/@540=',I3,' F=',50I2, /,(14X,50I2))\r\n      AGAIN = 0\r\n      CALL READ (*980,*570,OFPX,A,NWDS,0,FLAG)\r\n      DO 550 I = 1,NWDS\r\n      J = NUMTYP(A(I))\r\n      IF (F(I) .EQ. J) GO TO 550\r\n      IF (J    .NE. 0) F(I) = -J\r\n      AGAIN = 1\r\n  550 CONTINUE\r\n      IF (AGAIN .EQ. 0) GO TO 570\r\n      CALL READ (*980,*570,OFPX,A,NWDS,0,FLAG)\r\n      DO 560 I = 1,NWDS\r\n      IF (F(I) .GT. 0) GO TO 560\r\n      J = NUMTYP(A(I))\r\n      IF (J .NE. 0) F(I) = J\r\n  560 CONTINUE\r\n      IMHERE = 560\r\n      IF (DEBUG) WRITE (NOUT,545) IMHERE,(F(I),I=1,NWDS)\r\n  570 F(NWDS+1) = -9\r\n      CALL BCKREC (OFPX)\r\n      CALL BCKREC (OFPX)\r\n      NA4= 0\r\n      KK = 0\r\n      DO 580 I = 1,NWDS,8\r\n      KK = KK + 1\r\n      K  = I  + 7\r\n      IF (K .GT. NWDS) K = NWDS\r\n      L  = 10000000\r\n      DO 580 J = I,K\r\n      F8(KK) = F8(KK) + F(J)*L\r\n      NA4 = NA4 + F(J)+ 1\r\n      IF (F(J) .EQ. 3) NA4 = NA4 - 3\r\n  580 L  = L/10\r\n      IF (DEBUG) WRITE (NOUT,590) NA4,(F8(I),I=1,KK)\r\n  590 FORMAT (/,'  NA4 =',I4,'  FORMAT CODE/@590 =',6I10)\r\nC\r\n  600 IF (KOUNT .GT. 1) GO TO 605\r\n      IF (.NOT.FMTTD) WRITE (OUTTP    ) DXX,DASH\r\n      IF (     FMTTD) WRITE (OUTTP,120) DXX,DASH\r\nC\r\n  605 IF (ECXYZ) GO TO 680\r\n      ECXYZ = .TRUE.\r\n      NCSTM = 0\r\n      NSUB  = 0\r\n      IF (.NOT.BASC) GO TO 680\r\nC\r\nC     DISPLACEMENT OFP FILE IS PRESENT, USER IS REQUESTING DISPLACEMENT\r\nC     OUTPUT.\r\nC\r\nC     REMEMBER, WE STILL HAVE THE EXT-INT GRID TABLE IN Z(1) THRU Z(NEQ)\r\nC     IN INTERNAL GIRD NUMBER (2ND WORD OF THE EXT-INT PAIR) SORT.\r\nC     NOW, OPEN BGPDT, READ IN THE BASIC GRID POINT DATA (4 WORDS EACH\r\nC     GRID) AND ADD THE EXTERNAL GRID POINT ID IN FRONT OF THE DATA SET.\r\nC     THUS WE CREATE A NEW TABLE AFTER THE EXT-INT TABLE.\r\nC\r\nC     THE FOLLOWING 5 DATA WORDS FOR EACH GRID POINT:\r\nC            EXTERNAL GRID ID\r\nC            COORDINATE SYSTEM ID\r\nC            X,Y,Z COORDINATES, IN BASIC COORD. SYSTEM\r\nC\r\nC     MOVE THIS NEW TABLE TO THE BEGINNING OF OPEN CORE SPACE\r\nC     OVERWRITING THE OLD EXT-INT TABLE WHICH HAS NO LONGER NEEDED,\r\nC     FROM Z(1) THRU Z(NBGT)\r\nC     SORT THIS NEW TABLE BY THE EXTERNAL GRID NUMBERS.\r\nC\r\n      FILE = BGPDT\r\n      CALL OPEN (*1300,BGPDT,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1300,BGPDT)\r\n      K = -1\r\n      J = JB\r\n  610 CALL READ (*620,*620,BGPDT,Z(J+1),4,0,FLAG)\r\n      K = K + 2\r\n      Z(J) = Z(K)\r\n      J = J + 5\r\n      GO TO 610\r\n  620 CALL CLOSE (BGPDT,REW)\r\n      IF (K+1 .NE. NEQ) CALL MESAGE (-61,0,0)\r\n      NBGT = J - JB\r\n      NBG5 = NBGT/5\r\n      DO 630 J = 1,NBGT\r\n  630 Z(J) = Z(J+JBM1)\r\n      CALL SORT (0,0,5,1,Z(1),NBGT)\r\n      IF (DEBUG) WRITE (NOUT,640)\r\n     1   (Z(J),Z(J+1),RZ(J+2),RZ(J+3),RZ(J+4),J=1,NBGT,5)\r\n  640 FORMAT (/11X,'EXT.GRID - COOR - X,Y,Z/@640',/,(10X,2I8,3E11.4))\r\nC\r\nC     OPEN CSTM FILE IF IT EXISTS.  SAVE ALL COORDINATE TRANSFORMATION\r\nC     MATRICES IN THE OPEN CORE SPACE IN Z(ICSTM) THRU Z(NCSTM), EITHER\r\nC     AFTER THE EXT-COORD-X,Y,X TABLE, OR IN FRONT OF THE TABLE\r\nC\r\n      ICSTM = NBGT + 1\r\n      NCSTM = NBGT\r\n      FILE  = CSTM\r\n      CALL OPEN (*1300,CSTM,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1300,CSTM)\r\n      CALL READ (*650,*650,CSTM,Z(ICSTM),LEFT,1,FLAG)\r\n      CALL MESAGE (-8,0,SUB)\r\n  650 CALL CLOSE (CSTM,REW)\r\n      NCSTM = NCSTM+FLAG\r\n      CALL PRETRS (Z(ICSTM),FLAG)\r\n      GO TO 680\r\nC\r\n  660 WRITE  (NOUT,670) UIM\r\n  670 FORMAT (A29,' FROM DATABASE MODULE - DISPLACEMENT VECTORS REMAIN',\r\n     1       ' IN GLOBAL COOR. SYSTEM', /5X,\r\n     2       'DUE TO BGPDT OR CSTM FILE BEING PURGED',/)\r\n      BASC = .FALSE.\r\nC\r\nC     NOW READ THE DISPLACMENT VECTORS (SUBCASES) FROM CURRENT OFP DATA\r\nC     BLOCK, COMPUTE THE DISPLACEMENT FROM THE DISPLACMENT COORDINATE\r\nC     BACK TO SYSTEM BASIC COORDINATE. SAVE THE VECTOR IN SCR1 FOR RE-\r\nC     PROCESSING LATER.\r\nC\r\nC     2 (3 IF COMPLEX DATA) RECORDS PER ELEMENT TYPE,\r\nC     SAME FORMAT AS GINO OUGV1 FILE\r\nC\r\nC     UNFORMATTED TAPE -\r\nC\r\nC     HEADER RECORD (UNFORMATTED)\r\nC\r\nC        RECORD  WORD       CONTENT (UNFORMATTED)\r\nC        ------  ----   -----------------------------------------------\r\nC           1      1     SUBCASE OR MODE NUMBER, INTEGER\r\nC                  2     ZERO OR FREQUENCY, REAL\r\nC                  3     NWDS, NUMBER OF WORDS PER ENTRY IN NEXT RECORD,\r\nC                        INTEGER. (=8 FOR REAL DATA, OR =14 FOR COMPLEX\r\nC                        FOR ALL DISPLACEMENT RECORDS)\r\nC                 4-5    ORIGINAL GINO FILE NAME, BCD\r\nC                 6-7    ' BASIC  '  OR 'GLOBAL  ', BCD\r\nC                8-13    FORMAT CODE FOR NEXT RECORD, INTEGER\r\nC                        8 DIGITS PER WORD,  1 FOR INTEGER\r\nC                                            2 FOR REAL\r\nC                        EX.  13222222       3 FOR BCD\r\nC                                            0 NOT APPLICABLE\r\nC               14-45    TITLE,    BCD\r\nC               46-77    SUBTITLE, BCD\r\nC              78-109    LABEL,    BCD\r\nC\r\nC     DISPLACEMENT RECORDS (UNFORMATTED)\r\nC\r\nC        RECORD  WORD       CONTENT (UNFORMATTED)\r\nC        ------  ----   -----------------------------------------------\r\nC           2      1     LENGTH, THIS FIRST WORD EXCLUDED, OF THIS\r\nC                        RECORD (INTEGER)\r\nC                  2     EXTERNAL GRID POINT NUMBER (INTEGER)\r\nC                  3     POINT TYPE (1=GRID  PT.  2=SCALAR PT.\r\nC                                    3=EXTRA PT.  4=MODAL  PT., INTEGER)\r\nC                4-9     DISPLACEMENTS (REAL PARTS, REAL\r\nC                        T1,T2,T3,R1,R2,R3)\r\nC               10-15    (COMPLEX DATA ONLY)\r\nC                        DISPLACEMENTS (IMGAGINARY PARTS, REAL\r\nC                        T1,T2,T3,R1,R2,R3)\r\nC                  :     REPEAT WORDS 2 THRU 9 (OR 15) AS MANY TIMES AS\r\nC                        THERE ARE GRID POINT DISPLACEMENT DATA\r\nC           :      :     REPEAT RECORD 2 AS MANY TIMES AS THERE ARE\r\nC                        SUBCASES (OR MODES)\r\nC\r\nC\r\nC     FORMATTED TAPE -\r\nC\r\nC     HEADER RECORD (FORMATTED)\r\nC\r\nC        RECORD   WORD      CONTENT (FORMATTED)                   FORMAT\r\nC        ------   ----   -----------------------------------------------\r\nC           1      1-2    ' CASE = ' OR ' MODE = '             8-LETTERS\r\nC                    3    SUBCASE NUMBER                             I8\r\nC                    4    ZERO OR FREQUENCY                     1P,E12.5\r\nC                  5-6    ' WORDS ='                           8-LETTERS\r\nC                    7    NWDS, NUMBER OF WORDS PER ENTRY IN NEXT    I8\r\nC                         RECORD (=8 FOR REAL DATA, OR =14 COMPLEX,\r\nC                         FOR ALL DISPLACEMENT RECORDS)\r\nC                  8-9    ' INPUT ='                           8-LETTERS\r\nC                10-11    ORIGINAL GINO FILE NAME                   2A4\r\nC                12-13    ' COORD ='                           8-LETTERS\r\nC                14-15    ' BASIC  ' OR 'GLOBAL  '                  2A4\r\nC                16-17    '  CODE ='                           8-LETTERS\r\nC                18-23    FORMAT CODE                               6I8\r\nC                         8 DIGITS PER WORD,  1 FOR INTEGER\r\nC                                             2 FOR REAL\r\nC                         EX.  13222200       3 FOR BCD\r\nC                                             0 NOT APPLICABLE\r\nC                   23    NA4, NUMBER OF WORDS PER ENTRY IN NEXT    (I8)\r\nC                         RECORD, IN A4-WORD COUNT (ONLY IF THE\r\nC                         LAST FORMAT CODE WORD IS NOT USED)\r\nC           2     1-32    TITLE,    32 BCD WORDS                   32A4\r\nC           3    33-64    SUBTITLE, 32 BCD WORDS                   32A4\r\nC           4    65-96    LABEL,    32 BCD WORDS                   32A4\r\nC               (95-96    ELEMENT ID, STRESS AND FORCE ONLY         2A4)\r\nC\r\nC\r\nC     DISPLACEMENT RECORDS (FORMATTED)\r\nC\r\nC        RECORD   WORD      CONTENT (FORMATTED)                   FORMAT\r\nC        ------   ------------------------------------------------------\r\nC           5       1     EXTERNAL GRID POINT NUMBER                 I8\r\nC                   2     POINT TYPE (1=GRID  PT.  2=SCALAR PT.      I8\r\nC                                     3=EXTRA PT.  4=MODAL  PT.)\r\nC                 3-8     DISPLACEMENTS (REAL PARTS,         6(1P,E12.5)\r\nC                         T1,T2,T3,R1,R2,R3)\r\nC           6             (COMPLEX DATA ONLY)\r\nC                 1-6     DISPLACEMENTS (IMAGINARY PARTS,    6(1P,E12.5)\r\nC                         T1,T2,T3,R1,R2,R3)\r\nC           :       :     REPEAT RECORD 5 (OR RECORDS 5 AND 6) AS MANY\r\nC                         TIMES AS THERE ARE GRID POINT DISPLACMENT DATA\r\nC         LAST      1     MINUS 0                                    I8\r\nC                   2     MINUS 0                                    I8\r\nC                 3-8     ZEROS                              6(1P,E12.5)\r\nC        LAST+1           (COMPLEX DATA ONLY)\r\nC                 1-6     ZEROS                              6(1P,E12.5)\r\nC\r\nC     IF CURRENT OFP DATA BLOCK IS AN ELEMENT STRESS OR ELEMENT FORCE\r\nC     FILE, THE STRESS OR FORCE DATA HAVE VARIABLE LENGTH. (NWDS IS NO\r\nC     LONGER 8 OR 14.)\r\nC\r\nC     THE ELEMENT STRESS OR FORCE RECORDS -\r\nC\r\nC        RECORD   WORD      CONTENT (UNFORMATTED)\r\nC        ------   ------------------------------------------------------\r\nC           2       1      NO. OF WORDS, EXCLUDING THIS FIRST WORD,\r\nC                          IN THIS RECORD. (INTEGER)\r\nC               2-NWDS+1   ELEMENT ID, STRESS OR FORCE DATA\r\nC                          (VARIABLE DATA TYPES ARE DESCRIBED IN 'CODE')\r\nC                   :      REPEAT (2-NWDS+1) WORDS AS MANY TIMES AS\r\nC                          THERE ARE ELEMENTS\r\nC           :       :      REPEAT RECORD 2 AS MANY TIMES AS THERE ARE\r\nC                          SUBCASES.\r\nC\r\nC         WHERE NWDS IS THE NUMBER OF COMPUTER WORDS PER ENTRY, AND\r\nC               CODE IS THE 6-WORD FORMAT CODE, AS DESCRIBED IN THE\r\nC               HEADER RECORD.\r\nC\r\nC\r\nC        RECORD   WORD      CONTENT (FORMATTED)                   FORMAT\r\nC        ------   ------------------------------------------------------\r\nC           5     1-NA4     ELEMENT ID, STRESS OR FORCE DATA       33A4\r\nC                           (THE DATA TYPES ARE DESCRIBED IN\r\nC                           'CODE'; ALL INTEGERS IN 2A4, REAL\r\nC                           NUMBERS IN 3A4, AND BCD IN A4)\r\nC           :       :       (MAXIMUM RECORD LENGTH IS 132 COLUMNS (33A4)\r\nC                           CONTINUATION AND FOLDED INTO NEXT\r\nC                           RECORD(S) IF NECESSARY.\r\nC           :       :       A CARRIAGE CONTROL WORD ALWAYS PRECEEDS\r\nC                           AN OUTPUT RECORD. THUS 1+132=133 COLUMNS\r\nC                           LAST DATA VALUE ON A RECORD MAY SPILL\r\nC                           TO THE NEXT RECORD)\r\nC           :       :       REPEAT ABOVE RECORD(S) AS MANY TIMES\r\nC                           AS THERE ARE ELEMENTS.\r\nC\r\nC         WHERE NA4 IS THE NUMBER OF WORDS PER ENTRY IN A4-WORD COUNT,\r\nC               AND CODE IS 5-WORD FORMAT CODE\r\nC\r\n  680 FILE  = OFPX\r\n      IOUGV = NCSTM + 1\r\n      CALL READ (*980,*700,OFPX,Z(IOUGV),NZ-IOUGV,1,FLAG)\r\n      CALL MESAGE (-37,FILE,SUB)\r\n  700 IF (FLAG .NE. 146) GO TO 1320\r\n      DSPL = MOD(Z(IOUGV+1),100)\r\n      NWDS = Z(IOUGV+9)\r\n      IF (.NOT.EFS .AND. NWDS.NE.8 .AND. NWDS.NE.14) GO TO 1320\r\n      NSUB = NSUB + 1\r\n      CAMO = CA\r\n      CASE = Z(IOUGV+3)\r\n      FREQ = 0.0\r\n      IF (DSPL.NE.7 .AND. DSPL.NE.14) GO TO 710\r\n      CAMO = MO\r\n      CASE = Z (IOUGV+4)\r\n      FREQ = RZ(IOUGV+5)\r\n  710 BAGL = BA\r\n      IF (.NOT.BASC) BAGL  = GL\r\n      IF (FMTTD .AND. F8(6).EQ.0) F8(6) = NA4\r\n      IF (.NOT.EFS) GO TO 715\r\n      J = (Z(IOUGV+2)-1)*INCR\r\n      Z(IOUGV+144) = E(J+1)\r\n      Z(IOUGV+145) = E(J+2)\r\n  715 IF (.NOT.FMTTD) WRITE (OUTTP)\r\n     1   CASE,FREQ,NWDS,ONAME(JOS),ONAME(JOS+1),F8,(Z(J+IOUGV),J=50,145)\r\n      IF ( FMTTD) WRITE (OUTTP,720) CAMO,CASE,\r\n     1   FREQ,NWDS,ONAME(JOS),ONAME(JOS+1),BAGL,F8,(Z(J+IOUGV),J=50,145)\r\n  720 FORMAT (1X,A8,I8,1P,E12.5,' WORDS =',I8,' INPUT =',2A4,\r\n     1   ' COORD =',A8,'  CODE =',6I8, /1X,32A4, /1X,32A4, /1X,32A4)\r\n      IF (FMTTD) GO TO 730\r\n      FILE = SCR1\r\n      CALL OPEN (*1300,SCR1,Z(BUF2),WRTREW)\r\n      FILE = OFPX\r\n  730 CALL READ (*970,*870,OFPX,A,NWDS,0,FLAG)\r\n      A(1) = A(1)/10\r\n      IF (EFS) GO TO 790\r\n      IF (DEBUG) WRITE (NOUT,740) A(1)\r\n  740 FORMAT (10X,'EXT.GRID/@740 =',I8)\r\n      IF (BASC) GO TO 1200\r\n  750 IF (COOR .LE. 0) GO TO 790\r\nC\r\nC     TRANSFORM THE DISPLACEMENT VECTOR FROM GLOBAL TO BASIC\r\nC     UPON RETURN FROM 800, TRANSFORMATION MATRIX IN T\r\nC\r\n      DO 760 I = 3,NWDS\r\n  760 RX(I)  = RA(I)\r\n      CMPLX  = 0\r\n  770 CALL GMMATS (T,3,3,0, RX(3),3,1,0, RA(3+CMPLX))\r\n      CALL GMMATS (T,3,3,0, RX(6),3,1,0, RA(6+CMPLX))\r\n      IF (NWDS.NE.14 .OR. CMPLX.EQ.6) GO TO 790\r\n      CMPLX = 6\r\n      DO 780 I = 3,8\r\n  780 RX(I) = RX(I+CMPLX)\r\n      GO TO 770\r\nC\r\nC     WRITE THE 8 (OR 14) DATA WORDS OUT TO SCR1 FILE IF OUTTP IS\r\nC     UNFORMATTED, OR WRITE TO OUTTP DIRECTLY IF OUTTP IS FORMATTED\r\nC\r\n  790 IF (FMTTD) GO TO 800\r\n      CALL WRITE (SCR1,A,NWDS,0)\r\n      GO TO 730\r\n  800 IF (EFS) GO TO 830\r\n      WRITE  (OUTTP,810,ERR=1390) A(1),A(2),(RA(K),K=3,8)\r\n  810 FORMAT (1X,2I8,6(1P,E12.5))\r\n      IF (NWDS .EQ. 14) WRITE (OUTTP,820,ERR=1390) (RA(K),K=9,14)\r\n  820 FORMAT (17X,6(1P,E12.5))\r\n      GO TO 730\r\nC\r\nC     ELEMENT STRESS AND ELEMENT FORCE HAVE MIXED DATA, CHANGE THEM ALL\r\nC     TO BCD WORDS, AND WRITE THEM OUT TO OUTTP UNDER A4 FORMAT\r\nC     MAXIMUM OF 132 COLUMNS PER LINE.\r\nC     NOTE - LAST DATA VALUE ON OUTPUT LINE MAY SPILL INTO NEXT RECORD.\r\nC\r\n  830 L = 0\r\n      K = 0\r\n  840 K = K + 1\r\n      IF (F(K) .EQ. -9) GO TO 850\r\n      IF (L+3 .GT. LIMRX) GO TO 1340\r\n      CALL IFB2AR (F(K),A(K),IX,L)\r\n      GO TO 840\r\n  850 WRITE  (OUTTP,860,ERR=1390) (IX(K),K=1,L)\r\n  860 FORMAT (1X,33A4)\r\n      GO TO 730\r\nC\r\nC\r\nC     JUST FINISH ONE VECTOR\r\nC\r\nC     UNFORMATTED TAPE -\r\nC     TRANSFER THIS VECTOR FROM SCR1 TO OUTTP IN ONE LONG RECORD\r\nC     (NO ZERO RECORD)\r\nC     LOOP BACK FOR NEXT VECTOR\r\nC\r\n  870 IF (FMTTD) GO TO 890\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,REW)\r\n      FILE = SCR1\r\n      CALL OPEN (*1300,SCR1,Z(BUF2),RDREW)\r\n      CALL READ (*880,*880,SCR1,Z(IOUGV+1),NZ-IOUGV,1,K)\r\n      CALL MESAGE (-8,FILE,SUB)\r\n  880 CALL CLOSE (SCR1,REW)\r\n      Z(IOUGV) = K\r\n      KIOUGV   = K + IOUGV\r\n      WRITE (OUTTP) (Z(J),J=IOUGV,KIOUGV)\r\n      GO TO 510\r\nC\r\nC     FORMATTED TAPE -\r\nC     (DISPLACEMENTS ALREDY WRITTEN OUT IN SHORT RECORDS)\r\nC     WRITE A ZERO RECORD\r\nC     AND LOOP BACK FOR NEXT VECTOR\r\nC\r\n  890 IF (EFS) GO TO 920\r\n      DO 900 I = 1,6\r\n  900 RX(I) = 0.0\r\n      WRITE  (OUTTP,910,ERR=1390) (RX(I),I=1,6)\r\n  910 FORMAT (1X,2(6X,2H-0),6(1P,E12.5))\r\n      IF (NWDS .EQ. 14) WRITE (OUTTP,820,ERR=1390) (RX(I),I=1,6)\r\n      GO TO 510\r\nC\r\nC     WRITE A ZERO RECORD FOR EL.STRESS OR EL.FORCE TYPE OF DATA\r\nC\r\n  920 L = 0\r\n      DO 960 I = 1,NWDS\r\n      IX(L+2) = BLANK\r\n      FI = F(I)\r\n      GO TO (930,940,950), FI\r\n  930 IX(L+1) = IZERO\r\n      L = L + 2\r\n      GO TO 960\r\n  940 IX(L+1) = BZERO\r\n      IX(L+3) = BLANK\r\n      L = L + 3\r\n      GO TO 960\r\n  950 L = L + 1\r\n  960 CONTINUE\r\n      WRITE (OUTTP,860,ERR=1390) (IX(I),I=1,L)\r\n      GO TO 510\r\nC\r\nC     END OF CURRENT OFP FILE\r\nC     ADD AN ENDING RECORD TO OUTTP FILE AND ENDFILE\r\nC\r\n  970 CALL CLOSE (SCR1,REW)\r\n  980 CALL CLOSE (OFPX,REW)\r\nC\r\n      DYY(OFPSET)  = DXX\r\n      SUBN(OFPSET) = NSUB\r\n      CASE = 0\r\n      FREQ = 0.0\r\n      Z(1) = 0\r\n      J    = 0\r\n      Z(J+2) = END1\r\n      Z(J+3) = END2\r\n      Z(J+4) = BLANK\r\n      DO 985 J = 5,10\r\n  985 Z(J) = 0\r\n      DO 990 J = 11,106\r\n  990 Z(J) = BLANK\r\n      IF (.NOT.FMTTD) WRITE (OUTTP) CASE,FREQ,(Z(J),J=1,106)\r\n      IF (     FMTTD) WRITE (OUTTP,720,ERR=1390) CAMO,CASE,FREQ,\r\n     1                      (Z(J),J=1,106)\r\n 1000 IF (OFP .LT. 3) GO TO 500\r\nC\r\nC     JOB DONE. WRITE A USER FRIENDLY MESSAGE OUT\r\nC\r\n      ENDFILE OUTTP\r\n      REWIND  OUTTP\r\n      SET = OFPSET\r\n      IF (.NOT.NOBGPT) SET = SET + 1\r\n      IF (.NOT.NOGEOM) SET = SET + 1\r\n      J = BLANK\r\n      IF (SET .GT. 1) J = LS\r\n      K = 3 + 2*SET\r\n      CALL PAGE2 (K)\r\n      IF (OUTTP .GT. 12) GO TO 1010\r\n      NAM(1) = INPX(3)\r\n      NAM(2) = OUTTP - 10\r\n      GO TO 1020\r\n 1010 NAM(1) = INPX(1)\r\n      NAM(2) = OUTTP - 14\r\n      IF (OUTTP.NE.14 .AND. OUTTP.NE.25) GO TO 1020\r\n      WRITE (NOUT,1030) UIM,SET,J,INPX(2)\r\n      GO TO 1040\r\n 1020 WRITE  (NOUT,1030) UIM,SET,J,NAM(1),NAM(2)\r\n 1030 FORMAT (A29,' -', /5X,'DATABASE MODULE TRANSFERRED THE FOLLOWING',\r\n     1       I3,' SET',A1,' OF DATA TO OUTPUT FILE ',A4,I1)\r\n 1040 WRITE  (NOUT,1050) OUTTP,FMT\r\n 1050 FORMAT (1H+,85X,'(FORTRAN UNIT',I3,1H),4A4)\r\n      SET = 0\r\n      IF (NOBGPT) GO TO 1070\r\n      SET = SET + 1\r\n      WRITE  (NOUT,1060) SET\r\n 1060 FORMAT (/4X,I2,'. GRID POINT DATA - EXTERNAL NUMBERS AND BASIC ',\r\n     1        'RECTANGULAR COORDINATES')\r\n 1070 IF (NOGEOM) GO TO 1090\r\n      SET = SET + 1\r\n      WRITE  (NOUT,1080) SET\r\n 1080 FORMAT (/4X,I2,'. ELEMENT CONNECTIVITY DATA - ALL GRID POINTS ',\r\n     1        'ARE EXTERNAL NUMBERS')\r\n 1090 IF (OFPSET .EQ. 0) GO TO 1190\r\n      JSO = 1\r\n      DO 1180 J = 1,OFPSET\r\n      SET  = SET + 1\r\n      NSUB = SUBN(J)\r\n      WRITE  (NOUT,1100) SET,DYY(J),ONAME(JSO),ONAME(JSO+1)\r\n 1100 FORMAT (/4X,I2,2H. ,A8,' DATA FROM INPUT FILE ',2A4)\r\n      IF (EFS) GO TO 1120\r\n      IF (     BASC) WRITE (NOUT,1110)\r\n      IF (.NOT.BASC) WRITE (NOUT,1115)\r\n 1110 FORMAT (1H+,46X,', CONVERTED TO BASIC RECT. COORDINATES,')\r\n 1115 FORMAT (1H+,46X,', IN NASTRAN GLOBAL COORDINATE SYSTEM,')\r\n      IF (DSPL.EQ.7 .OR. DSPL.EQ.14) GO TO 1140\r\n 1120 IF (.NOT.EFS) WRITE (NOUT,1125) NSUB\r\n      IF (     EFS) WRITE (NOUT,1130) NSUB\r\n 1125 FORMAT (1H+,87X,I4,' SUBCASES')\r\n 1130 FORMAT (1H+,46X,I4,' SUBCASES')\r\n      GO TO 1160\r\n 1140 WRITE  (NOUT,1150) NSUB\r\n 1150 FORMAT (1H+,87X,I4,' FRQUENCIES')\r\n 1160 IF (NOBGPT .AND. NOGEOM) WRITE (NOUT,1170)\r\n 1170 FORMAT (/6X,'1. NONE')\r\n 1180 JSO = JSO + 2\r\n      RETURN\r\nC\r\n 1190 WRITE (NOUT,1170)\r\n      RETURN\r\nC\r\nC     INTERNAL ROUTINE TO SEARCH FOR THE EXTERNAL GRID POINT AND RETURN\r\nC     THE DISPLACEMENT COORDINATE ID ASSOCIATE WITH THAT POINT, AND SET\r\nC     THE POINTER TO WHERE THE COORDINATE TRANSFORMATION MATRIX DATA\r\nC     BEGINS.\r\nC     EXTERNAL GRID VS. COORD SYSTEM ID TABLE IN Z(1) THRU Z(NEQ), IN\r\nC     EXTERNAL GRID SORT\r\nC     THE COORDINATE TRANSFORMATION MATRICES IN Z(ICSTM) THRU Z(NCSTM),\r\nC     (14 WORDS PER MATRIX, FROM GLOBAL TO BASIC)\r\nC\r\n 1200 GRID = A(1)\r\n      KLO  = 0\r\n      KHI  = NBG5\r\n      LASTK= 0\r\n 1210 K = (KLO+KHI+1)/2\r\n      IF (LASTK .EQ. K) CALL MESAGE (-61,0,0)\r\n      LASTK = K\r\n      K5  = K*5\r\n      IF (GRID-Z(K5-4)) 1220,1240,1230\r\n 1220 KHI = K\r\n      GO TO 1210\r\n 1230 KLO = K\r\n      GO TO 1210\r\n 1240 COOR = Z(K5-3)\r\n      IF (COOR .LE. 0) GO TO 750\r\n      CALL TRANSS (Z(K5-3),T)\r\n      IF (.NOT.DEBUG) GO TO 750\r\n      WRITE  (NOUT,1250) GRID,COOR,T\r\n 1250 FORMAT (20X,'EXT GRID, COORD.ID AND TRANSF.MATRIX/@1250 =',2I8,\r\n     1        /,(25X,3E13.5))\r\n      GO TO 750\r\nC\r\nC     ILLEGITIMATE DATA IN OUGV FILE, ADVANCE TO NEXT RECORD\r\nC\r\n 1260 CALL FWDREC (*980,OUGV)\r\n      CALL FWDREC (*980,OUGV)\r\n      GO TO 510\r\nC\r\nC     ERRORS\r\nC\r\n 1300 J = -1\r\n      GO TO 1400\r\n 1310 J = -2\r\n      GO TO 1400\r\n 1320 WRITE  (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1)\r\n 1325 FORMAT (A29,', DATABASE MODULE SKIPS OUTPUTING ',2A4,\r\n     1       ' FILE (OR PART OF THE FILE), DUE TO')\r\n      WRITE  (NOUT,1330) NWDS\r\n 1330 FORMAT (5X,'THE REQUEST OF AN ILLEGITIMATE DATA BLOCK.', 7X,\r\n     1       'NO. OF WORDS =',I6)\r\n      GO TO 1380\r\n 1340 WRITE  (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1)\r\n      WRITE  (NOUT,1345) LIMRX\r\n 1345 FORMAT (5X,'THE RX WORKING ARRAY OF',I5,' WORDS IN DBASE ',\r\n     1       'SUBROUTINE IS NOT BIG ENOUGH TO RECEIVE OFP DATA.')\r\n      GO TO 1360\r\n 1350 WRITE  (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1)\r\n      WRITE  (NOUT,1355) LIMAF\r\n 1355 FORMAT (5X,'THE A AND F WORKING ARRAYS OF',I4,' WORDS IN DBASE ',\r\n     1       'SUBROUTINE ARE NOT BIG ENOUGH TO RECEIVE OFP DATA.')\r\n 1360 WRITE  (NOUT,1365)\r\n 1365 FORMAT (5X,'SUGGESTION - USE OUTPUT5 OR OUTPUT2 TO CAPTURE THE ',\r\n     1       'REQUESTED DATA BLOCK')\r\n      GO TO 1260\r\n 1370 WRITE  (NOUT,1325) UIM,ONAME(JSO),ONAME(JSO+1)\r\n      WRITE  (NOUT,1375)\r\n 1375 FORMAT (5X,'ELEMENT STRESSES OR FORCES CAN NOT BE OUTPUT IN ',\r\n     1       'BASIC COORDINATES AS REQUESTED')\r\n 1380 CALL CLOSE (OFPX,REW)\r\n      GO TO 1000\r\n 1390 WRITE  (NOUT,1395)\r\n 1395 FORMAT ('0*** SYSTEM FATAL ERROR WRITING FORMATTED TAPE IN DATA',\r\n     1        'BASE MODULE')\r\n      IF (MACH .EQ. 3) WRITE (NOUT,1396)\r\n 1396 FORMAT (5X,'IBM USER - CHECK FILE ASSIGNMENT FOR DCB PARAMETER ',\r\n     1       'OF 133 BYTES')\r\n      J = -37\r\n 1400 CALL MESAGE (J,FILE,SUB)\r\n      RETURN\r\nC     END\r\nC\r\nC\r\nC     THE FOLLOWING PROGRAM WAS USED TO CHECKOUT THE UNFORMATTED TAPE\r\nC     GENERATED BY DBASE. IT CAN BE SERVED AS A GUIDE TO OTHER USER WHO\r\nC     WANTS TO ABSTRACT DATA FROM THAT TAPE.\r\nC\r\nC\r\nC+    PROGRAM RDBASE\r\nC\r\nC     THIS FORTRAN PROGRAM READS THE UNFORMATTED OUTPUT FILE INP1\r\nC     (FORTRAN UNIT 15) GENERATED BY DATABASE MODULE\r\nC\r\nC     (1) GRID POINTS DATA ARE READ AND SAVED IN GRID-ARRAY\r\nC     (2) ELEMENTS DATA ARE READ AND SAVED IN ELM-ARRAY,\r\nC         WITH ELEMENT NAMES AND POINTERS IN SAVE-ARRAY\r\nC     (3) DISPLACEMENTS (VELOCITIES, ACCELERATIONS, LOADS, GRID-POINT\r\nC         FORCE, OR EIGENVECTORS) DATA ARE READ AND SAVED IN DIS-ARRAY,\r\nC         WITH SUBASES AND POINTERS IN SAVD-ARRAY\r\nC\r\nC     TO READ ELEMENT FORCES OR ELEMENT STRESSES, (3) ABOVE NEEDS SOME\r\nC     CHANGES. PARTICULARLY WE NEED THE INFORMATION IN CODE TO GIVE US\r\nC     THE TYPE OF EACH DATA WORD IN THE DATA LINE.\r\nC     ASSUME CODE(1) = 11222222\r\nC            CODE(2) = 31222000\r\nC     THIS MEANS\r\nC            THE 1ST, 2ND, AND 10TH DATA WORDS ARE INTEGERS;\r\nC            9TH DATA WORD IS BCD; AND\r\nC            3RD THRU 8TH, 11TH, 12TH AND 13TH WORDS ARE REAL NUMBERS\r\nC\r\nC\r\nC     ANY OF ABOVE 3 SETS OF DATA NEED NOT EXIST IN ORIGINAL INP1 FILE\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS, JAN. 1989\r\nC\r\nC+    IMPLICIT INTEGER (A-Z)\r\nC+    INTEGER          GRID(5,500),ELM(35,300),DIS(11200),SAVE(4,10),\r\nC+   1                 SAVD(3,20),NAME(2),TITLE(32),SUBTTL(32),\r\nC+   2                 LABL(32),CODE(6)\r\nC+    REAL             GRIR(5,1),RIS(1),FREQ\r\nC+    DOUBLE PRECISION GED,GD,EL,DS,ENDD,COORD\r\nC+    EQUIVALENCE      (GRID(1),GRIR(1)),(DIS(1),RIS(1))\r\nC+    DATA             INTAP, NOUT, MAXGRD, MAXELM, MAXDIS, MAXWDS    /\r\nC+   1                 15,    6,    500,    300,    11200,  35        /\r\nC+    DATA             GD,         EL,         DS,          END1      /\r\nC+   1                 8HGRID PTS, 8HELEMENTS, 8HDISPLCNT,  4H -EN    /\r\nC\r\nC+    REWIND INTAP\r\nC\r\nC     READ DATA IDENTICATION RECORD\r\nC\r\nC+ 10 READ (INTAP,END=500) GED\r\nC+    IF (NOUT .EQ. 6) WRITE (NOUT,20) GED\r\nC+ 20 FORMAT (1X,A8,'--------')\r\nC+    IF (GED .EQ. GD) GO TO 100\r\nC+    IF (GED .EQ. EL) GO TO 200\r\nC+    IF (GED .EQ. DS) GO TO 310\r\nC+    STOP 'DATA TYPE UNKNOWN'\r\nC\r\nC     PROCESS GRID DATA\r\nC     =================\r\nC\r\nC     READ GRID POINT DATA, ONE LONG RECORD OF MIXED INTEGERS AND REALS\r\nC\r\nC+100 READ (INTAP,END=500) L,(GRID(J,1),J=1,L)\r\nC+    IF (NOUT .NE. 6) GO TO 10\r\nC+    NGRID = L/5\r\nC+    IF (NGRID .GT. MAXGRD) STOP 'GRID DIMENSION TOO SMALL'\r\nC+    WRITE  (NOUT,110) NGRID\r\nC+110 FORMAT (1X,I8,'=TOTAL NO. OF GRID POINTS')\r\nC+    DO 130 I = 1,NGRID\r\nC+    WRITE (NOUT,120) GRID(1,I),GRID(2,I),GRIR(3,I),GRIR(4,I),GRIR(5,I)\r\nC+120 FORMAT (1X,2I8,3(1P,E12.5))\r\nC+130 CONTINUE\r\nC+    GO TO 10\r\nC\r\nC     PROCESS ELEMENT DATA\r\nC     ====================\r\nC\r\nC+200 JS = 0\r\nC+    JE = 0\r\nC+\r\nC+    READ ELEMENT HEADER RECORD, 8 WORDS\r\nC+\r\nC+210 READ (INTAP,END=500) NAME,TYPE,SYMBOL,GRIDS,TOTAL,WDS,LINE\r\nC+    IF (NAME(1).EQ.END1 .AND. TYPE.EQ.0) GO TO 250\r\nC+    IF (WDS .GT. MAXWDS) STOP 'ELM ROW DIMENSION TOO SMALL'\r\nC+    IF (JE  .GT. MAXELM) STOP 'ELM COL DIMENSION TOO SMALL'\r\nC+    JB = JE + 1\r\nC+    JE = JE + TOTAL\r\nC\r\nC     READ ELEMENT DATA, ONE LONG RECORD PER ELEMENT TYPE (ALL INTEGERS)\r\nC\r\nC+    READ (INTAP) ((ELM(I,J),I=1,WDS),J=JB,JE)\r\nC+    JS = JS + 1\r\nC+    IF (JS .GE. 10) STOP 'SAVE DIMENSION TOO SMALL'\r\nC\r\nC     SAVE ELEMENT NAMES AND BEGINNING POINTERS IN SAVE-ARRAY\r\nC     FOR EASY IDENTIFICATION\r\nC\r\nC+    SAVE(1,JS) = NAME(1)\r\nC+    SAVE(2,JS) = NAME(2)\r\nC+    SAVE(3,JS) = JB\r\nC+    SAVE(4,JS) = WDS\r\nC+    IF (NOUT .NE. 6) GO TO 210\r\nC+    WRITE  (NOUT,220) NAME,TYPE,SYMBOL,GRIDS,TOTAL,WDS,LINE\r\nC+220 FORMAT (1X,'ELEMNT =',2A4,'  TYPE =',I4,2X,A2,' GRIDS =',I8,\r\nC+   1           ' TOTAL =',I8,' WDS/EL=',I8,      ' LINE  =',I8)\r\nC+    DO 240 J = JB,JE\r\nC+    WRITE  (NOUT,230) (ELM(I,J),I=1,WDS)\r\nC+230 FORMAT (1X,3I8,13I8, /,(1X,8X,15I8))\r\nC+240 CONTINUE\r\nC+    GO TO 210\r\nC\r\nC     WRAP UP SAVE-ARRAY\r\nC\r\nC+250 JS = JS + 1\r\nC+    SAVE(1,JS) = END1\r\nC+    SAVE(2,JS) = NAME(2)\r\nC+    SAVE(3,JS) = JE + 1\r\nC+    SAVE(4,JS) = 0\r\nC+    IF (NOUT .NE. 6) GO TO 10\r\nC+    WRITE (NOUT,260)\r\nC+    WRITE (NOUT,270) ((SAVE(I,J),I=1,4),J=1,JS)\r\nC+260 FORMAT (/30X,'THIS REFERENCE TABLE IS NOT PART OF INPUT FILE')\r\nC+270 FORMAT (40X,2A4,3H @ ,I4,',  WORDS=',I3)\r\nC+    GO TO 10\r\nC\r\nC     PROCESS DISPLACEMENT DATA\r\nC     =========================\r\nC\r\nC\r\nC+300 STOP 'ERROR IN READING DISPLACEMENT DATA'\r\nC+\r\nC+310 KB = 1\r\nC+    KS = 0\r\nC\r\nC     READ DISPLACEMENT HEADER RECORD\r\nC\r\nC+320 KS = KS + 1\r\nC+    IF (KS .GT. 20) STOP 'SAVD DEMINSION TOO SMALL'\r\nC+    READ (INTAP,END=390) CASE,FREQ,NWDS,NAME,COORD,CODE,TITLE,SUBTTL,\r\nC+                         LABEL\r\nC+    IF (CASE+NWDS .EQ. 0) GO TO 390\r\nC+    IF (NOUT      .NE. 6) GO TO 340\r\nC+    WRITE  (NOUT,330) CASE,FREQ,NWDS,NAME,COORD,CODE(1),CODE(2),TITLE,\r\nC+                      SUBTTL,LABEL\r\nC+330 FORMAT ('  CASES =',I8,1P,E12.5,' WORDS =',I8,' INPUT =',2A4,\r\nC+   1        '  COORD =',A8,'  CODE = ',2I8, /,(1X,32A4))\r\nC\r\nC     DISPLACEMENT RECORS HAVE EITHER 8 OR 14 WORDS EACH DATA POINT\r\nC     WITH CODE(1)=11222222, CODE(2) THRU (6) ARE ZEROS.\r\nC\r\nC\r\nC     ------------------------------------------------------------------\r\nC     IF ELEMENT STRESS OR ELEMENT FORCE FILE IS READ HERE, NWDS IS A\r\nC     VARIABLE, NOT NECESSARY 8 OR 14. ALL INTEGERS ARE IN 2A4 FORMAT\r\nC     (8-DIGITS), ALL REAL NUMBERS IN 3A4 (12-DIGITS), AND BCD WORD IN\r\nC     A4 (4-LETTERS). THERE ARE NA4 A4-WORDS FOR EACH ELEMENT THAT HOLD\r\nC     NWDS DATA VALUES.  MAXIMUM RECORD LENGTH IS 132 COLUMNS. ONE OR\r\nC     MORE RECORDS ARE NEEDED PER ELEMENT. LAST DATA VALUE OF A RECORD\r\nC     MAY SPILL INTO NEXT RECORD. NA4 IS THE 6TH WORD OF CODE. THE DATA\r\nC     TYPE OF THIS RECORD IS DESCRIBED IN CODE. 1 FOR INTEGER, 2 FOR\r\nC     REAL NUMBER, AND 3 FOR A BCD WORD. THERE ARE 5 CODE WORDS, EACH\r\nC     HOLDS 8 DIGITS, AND ARE ARRANGED FROM LEFT TO RIGHT.\r\nC\r\nC     FOR EXAMPLE -\r\nC     CODE(1)=12212222, CODE(2)=22213200, CODE(3)=CODE(4)=CODE(5)=0\r\nC     INDICATE\r\nC     DATA VALUES 1, 4 AND 12 ARE INTEGERS, DATA VALUE 13 IS ABCD WORD,\r\nC     THE REST ARE REAL NUMBERS.\r\nC     IN THIS EXAMPLE, NWDS SHOULD BE 14,\r\nC                      NA4  SHOULD = 3X2 + 10X3 + 1X1 = 37.\r\nC     2 RECORDS ARE NEEDED, 1ST RECORD 132 CHARACTERS LONG, 2ND RECORD\r\nC     16 CHARACTERS. THESE TWO RECORDS CAN BE READ BY ONE FORTRAN LINE\r\nC\r\nC         READ (INTAP,10) (SS(J),J=1,NA4)\r\nC     10  FORMAT (33A4)                        OR BY\r\nC\r\nC         READ (INTAP,20) IS(1),RS(2),RS(3),IS(4),(RS(J),J=5,11),IS(12)\r\nC         READ (INTAP,30) IS(13),RS(14)\r\nC     20  FORMAT (I8,2F12.0,I8,7F12.0,I8)\r\nC     30  FORMAT (A4,F12.0)\r\nC     ------------------------------------------------------------------\r\nC\r\nC+340 IF (NWDS.NE.8 .AND. NWDS.NE.14) STOP 'WORD COUNT ERROR'\r\nC+    IF (CODE(1) .NE. 11222222) STOP 'FORMAT CODE ERROR'\r\nC\r\nC     SAVE SUBCASE NUMBER AND BEGINNING POINTERS IN SAVD-ARRAY\r\nC     FOR EASY IDENTIFICATION\r\nC\r\nC+    KBM1 = KB - 1\r\nC+    SAVD(1,KS) = CASE\r\nC+    SAVD(2,KS) = KB\r\nC+    SAVD(3,KS) = NWDS\r\nC\r\nC     READ DISPLACEMENT RECORD, ONE LONG RECORD PER SUBCASE (OR FREQ.)\r\nC     EACH GRID POINT DISPLACEMENT DATA IN EVERY 8 OR 14 WORDS,\r\nC     2 INTEGERS + 6 (OR 12) REALS\r\nC\r\nC+350 READ (INTAP,ERR=300) L,(DIS(I+KBM1),I=1,L)\r\nC+    KE = L + KBM1\r\nC+    DO 380 K = KB,KE,NWDS\r\nC+    WRITE (NOUT,360) DIS(K),DIS(K+1),(RIS(K+I),I=2, 7)\r\nC+    IF (NWDS .EQ. 14) WRITE (NOUT,370) (RIS(K+I),I=8,13)\r\nC+360 FORMAT (1X,2I8,6(1P,E12.5))\r\nC+370 FORMAT (1X,16X,6(1P,E12.5))\r\nC+380 CONTINUE\r\nC+    KB = KE + 1\r\nC+    GO TO 320\r\nC\r\nC     WRAP UP SAVD-ARRAY\r\nC\r\nC+390 SAVD(1,KS) = 0\r\nC+    SAVD(2,KS) = KE + 1\r\nC+    SAVD(3,KS) = 0\r\nC+    IF (NOUT .NE. 6) GO TO 10\r\nC+    WRITE (NOUT,260)\r\nC+    WRITE (NOUT,400) (SAVD(1,K),SAVD(2,K),SAVD(3,K),K=1,KS)\r\nC+400 FORMAT (40X,'CASE',I8,3H @ ,I4,',  WORDS=',I4)\r\nC+    GO TO 10\r\nC\r\nC+500 REWIND INTAP\r\n      END\r\n"
  },
  {
    "path": "mis/dcone.f",
    "content": "      SUBROUTINE DCONE\r\nC\r\nC     DIFFERENTIAL STIFFNESS FOR THE CONICAL SHELL. FMMS-68\r\nC\r\nC     CALLS FROM DCONE ARE MADE TO\r\nC           MESAGE\r\nC           MAT\r\nC           INVERD\r\nC           GMMATD\r\nC           DS1B\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                INTEGER\r\nC     ECPT( 2) = SIL PT A                                  INTEGER\r\nC     ECPT( 3) = SIL PT B                                  INTEGER\r\nC     ECPT( 4) = MATID 1                                   INTEGER\r\nC     ECPT( 5) = TM  (MEMBRANE THICK)                      REAL\r\nC     ECPT( 6) = MATID 2                                   INTEGER\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)                      REAL\r\nC     ECPT( 8) = MATID 3                                   INTEGER\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)                     REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                       REAL\r\nC     ECPT(11) = Z1                                        REAL\r\nC     ECPT(12) = Z2                                        REAL\r\nC     ECPT(13) = PHI  1                                    REAL\r\nC     ECPT(14) = PHI  2                                    REAL\r\nC     ECPT(15) = PHI  3                                    REAL\r\nC     ECPT(16) = PHI  4                                    REAL\r\nC     ECPT(17) = PHI  5                                    REAL\r\nC     ECPT(18) = PHI  6                                    REAL\r\nC     ECPT(19) = PHI  7                                    REAL\r\nC     ECPT(20) = PHI  8                                    REAL\r\nC     ECPT(21) = PHI  9                                    REAL\r\nC     ECPT(22) = PHI 10                                    REAL\r\nC     ECPT(23) = PHI 11                                    REAL\r\nC     ECPT(24) = PHI 12                                    REAL\r\nC     ECPT(25) = PHI 13                                    REAL\r\nC     ECPT(26) = PHI 14                                    REAL\r\nC     ECPT(27) = COORD. SYS. ID PT.1                       INTEGER\r\nC     ECPT(28) = RADIUS PT. 1                              REAL\r\nC     ECPT(29) = DISTANCE TO PT.1                          REAL\r\nC     ECPT(30) = NULL                                      REAL\r\nC     ECPT(31) = COORD. SYS. ID PT.2                       INTEGER\r\nC     ECPT(32) = RADIUS PT 2                               REAL\r\nC     ECPT(33) = DISTANCE TO PT. 2                         REAL\r\nC     ECPT(34) = NULL                                      REAL\r\nC     ECPT(35) = ELEMENT TEMPERATURE                       REAL\r\nC     ECPT(36) = ELEMENT DEFORMATION                       REAL\r\nC     ECPT(37) = ELEMENT LOADING TEMPERATURE - GRID PT A   REAL\r\nC     ECPT(38) = ELEMENT LOADING TEMPERATURE - GRID PT B   REAL\r\nC     ECPT(39) = DISPLACEMENT COMPONENTS AT GRID POINT A   REAL\r\nC     ECPT(40) =                  ...                      REAL\r\nC     ECPT(41) =                  ...                      REAL\r\nC     ECPT(42) =                  ...                      REAL\r\nC     ECPT(43) =                  ...                      REAL\r\nC     ECPT(44) =                  ...                      REAL\r\nC     ECPT(45) = DISPLACEMENT COMPONENTS AT GRID POINT B   REAL\r\nC     ECPT(46) =                  ...                      REAL\r\nC     ECPT(47) =                  ...                      REAL\r\nC     ECPT(48) =                  ...                      REAL\r\nC     ECPT(49) =                  ...                      REAL\r\nC     ECPT(50) =                  ...                      REAL\r\nC\r\n      INTEGER          NECPT(100) ,NERROR(2) ,NA(10)\r\n      DOUBLE PRECISION INT(10,4)  ,HUQ       ,U(10)     ,KQD       ,\r\n     1                 A(5,3)     ,HYQ(10)   ,Q(8)      ,KIJ       ,\r\n     2                 B(7,3)     ,EHT       ,FAC(10)   ,C(3,3)    ,\r\n     3                 RA         ,E11       ,TEMP      ,ONE       ,\r\n     4                 RB         ,E12       ,TEMP1     ,OPI       ,\r\n     5                 ZA         ,E22       ,TEMP2     ,N2D33     ,\r\n     6                 ZB         ,E33       ,TEMP3     ,SP2D22    ,\r\n     7                 RASQ       ,D11       ,TEMP4     ,SP2D4     ,\r\n     8                 RBSQ       ,D12       ,TEMP5     ,OQ        ,\r\n     9                 PI         ,D22       ,TEMP6     ,TDIF      ,\r\n     O                 PIOVB      ,D33       ,TEMP7     ,DEPS      ,\r\n     1                 N          ,TS        ,NSPOPI    ,DEPP      ,\r\n     2                 N2         ,TM        ,TWOD33    ,EPS       ,\r\n     3                 SL         ,NSP       ,NOV4      ,EPP       ,\r\n     4                 L2         ,NCP       ,NSPOV4    ,TE11      ,\r\n     5                 SP         ,SP2       ,N2OV4     ,TE12      ,\r\n     6                 CP         ,CP2       ,SD22PI    ,TE22      ,\r\n     7                 SUM        ,SIGN      ,GSHEAR    ,TEMP48(48),\r\n     8                 A0         ,A1        ,A2        ,A3\r\n      DOUBLE PRECISION B0         ,B1        ,B2        ,B3        ,\r\n     1                 C0         ,C1        ,D0        ,D1        ,\r\n     2                 DETERM     ,CONSTD\r\n      COMMON /DS1AAA/  NPVT       ,DUMCL(34) ,NOGO\r\n      COMMON /DS1AET/  ECPT(100)\r\n      COMMON /DS1ADP/  HUQ(100)   ,KQD(64)   ,KIJ(36)   ,EHT(96)   ,\r\n     1                 E11        ,E12       ,E22       ,E33\r\n      COMMON /MATIN /  MATID      ,INFLAG    ,ELTEMP    ,STRESS    ,\r\n     1                 SINTH      ,COSTH\r\n      COMMON /MATOUT/  G11        ,G12       ,G13       ,G22       ,\r\n     1                 G23        ,G33       ,RHOY      ,ALPHA1    ,\r\n     2                 ALPHA2     ,ALPH12    ,DUM(10)\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      EQUIVALENCE      (G,G12)               ,(ECPT(1),NECPT(1))   ,\r\n     1                 (ECPT(4),MATID1)      ,(ECPT(6), MATID2)    ,\r\n     2                 (ECPT(8),MATID3)      ,(CONSTD(1),   PI)\r\n      DATA    NA    /  6*1, 2*2, 2*4/\r\n      DATA    FAC   /  1.0D0, 1.0D0, 2.0D0, 6.0D0, 24.0D0, 120.0D0,\r\n     1                 720.0D0, 5040.0D0, 40320.0D0, 362880.0D0   /\r\n      DATA    ONE   /  1.0D0  /\r\nC\r\nC\r\nC     CALCULATE SHELL ORIENTATION CONSTANTS\r\nC\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      NINT  = NECPT(1)/1000\r\n      N     = NECPT(1) - NINT*1000 - 1\r\n      RA    = ECPT(28)\r\n      ZA    = ECPT(29)\r\n      RB    = ECPT(32)\r\n      ZB    = ECPT(33)\r\n      TEMP1 = RB - RA\r\n      TEMP2 = ZB - ZA\r\n      L2    = TEMP1**2 + TEMP2**2\r\n      SL    = DSQRT(L2)\r\n      IF (SL) 30,20,30\r\n   20 NERROR(1) = NECPT(1)/1000\r\n      NERROR(2) = N + .3D0\r\n      CALL MESAGE (30,39,NERROR(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   30 SP = TEMP1/SL\r\n      CP = TEMP2/SL\r\nC\r\nC     COMPUTE INTEGRALS I     FOR M = 0,9\r\nC                        MN       N = 0,3\r\nC\r\nC     FOR EVALUATION OF INTEGRALS  A = RA,  B = SP\r\nC\r\n      IF (SP) 60,40,60\r\nC\r\nC     COMPUTE INTEGRAL FOR B = 0\r\nC\r\nC                            1-N\r\nC                      PI  RA     M+1\r\nC               I   = --------- SL    (FOR ALL M,N .GE. 0)\r\nC                M,N    M + 1\r\nC\r\nC\r\nC     M = I - 1    WHERE I IS THE DO LOOP INDEX\r\nC     N = J - 1    WHERE J IS THE DO LOOP INDEX\r\nC     MPLUS1 THUS EQUALS I\r\nC\r\n   40 DO 50 I = 1,10\r\n      NBEGIN  = NA(I)\r\n      DO 50 J = NBEGIN,4\r\n   50 INT(I,J) = (PI*SL**I)/(DBLE(FLOAT(I))*RA**(J-2))\r\nC\r\n      GO TO 100\r\nC\r\nC\r\nC     COMPUTE INTEGRALS FOR (B .NE. 0)\r\nC\r\nC     FIRST M = 0 CASE\r\nC\r\nC                             2-N     2-N\r\nC                      PI ( RB    - RA   )\r\nC               I     =--------------------   (N NOT EQUAL TO 2)\r\nC                0,N       (2-N)  B\r\nC\r\nC\r\nC     FOR N=2   I     = PI * (LOG RB  -  LOG RA) / B\r\nC                0,2             E          E\r\nC\r\nC\r\n   60 RASQ  = RA*RA\r\n      RBSQ  = RB*RB\r\n      PIOVB = PI/SP\r\nC\r\n      INT(1,1) = 0.5D0*PIOVB*(RBSQ - RASQ)\r\n      INT(1,2) = PIOVB*(RB - RA)\r\n      INT(1,3) = PIOVB*DLOG(RB/RA)\r\n      INT(1,4) =-PIOVB*(ONE/RB - ONE/RA)\r\nC\r\nC\r\nC     M = I        WHERE I IS THE DO LOOP INDEX\r\nC     N = J - 1    WHERE J IS THE DO LOOP INDEX\r\nC\r\nC     WE ARE GETTING INTEGRAL(M,N)\r\nC     M = POWER OF S\r\nC     N = POWER OF R\r\nC\r\nC\r\nC     EVALUATING AT R = RB  THEN AT R = RA\r\nC\r\nC                                  K   NPOW\r\nC                  M FAC.      M   (-A) (R)\r\nC     I  = (PI)(-----------)( SUM ------------------------) + (TERM-X)\r\nC      MN               (M+1)   K=0  (M-K)FAC.(K)FAC.(NPOW)\r\nC                    B        (K.NE.M-N+2)                  (K.EQ.M-N+2)\r\nC\r\nC\r\nC     WHERE NPOW = M - N - K + 2\r\nC\r\nC\r\nC                    M-N+2\r\nC                (-A)     LOG(R)\r\nC       TERM-X = --------------------\r\nC               (M-N+2)FAC.(N-2)FAC.\r\nC\r\nC\r\nC     NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1)\r\nC                                 1 FACTORIAL = FAC(2)\r\nC                                 2 FACTORIAL = FAC(3)    ETC.\r\nC\r\n      DO 90 I = 1,9\r\n      MPLUS1  = I + 1\r\n      NBEGIN  = NA(MPLUS1)\r\n      DO 90 J = NBEGIN,4\r\n      SUM  = 0.0D0\r\n      SIGN =-1.0D0\r\n      NPOW = I - J + 3\r\n      DO 80 KK = 1,MPLUS1\r\n      SIGN = -SIGN\r\n      K    = KK - 1\r\n      IF (K .EQ. NPOW) GO TO 70\r\n      KPOW = NPOW   - K\r\n      IFAC = MPLUS1 - K\r\n      TEMP = KPOW\r\n      SUM  = SUM + SIGN*RA**K*(RB**KPOW - RA**KPOW)/\r\n     1       (FAC(IFAC)*FAC(KK)*TEMP)\r\n      GO TO 80\r\n   70 SUM = SUM + SIGN*RA**NPOW*DLOG(RB/RA)/(FAC(NPOW+1)*FAC(J-2))\r\n   80 CONTINUE\r\nC\r\n      INT(MPLUS1,J) = SUM*PI*FAC(MPLUS1)/SP**MPLUS1\r\n   90 CONTINUE\r\n  100 CONTINUE\r\nC\r\nC     CRANK OUT HUQ MATRIX FOR ZERO HARMONIC\r\nC     FOR EXPLICIT FORMULATION OF HUQ, SEE MS-28, PP.15,16 AND PP.24,25.\r\nC\r\n      DO 105 I = 1,100\r\n  105 HUQ(  I) = 0.0D0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 41) = CP/RA\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77)*SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0D0*SL\r\n      HUQ( 88) = 3.0D0*HUQ(77)\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*SL\r\n      HUQ( 99) = ONE\r\n      HUQ(100) = SL\r\nC\r\nC     IF TRANSVERSE SHEAR IS ZERO\r\nC\r\nC     OR INERTIA           = 0.0\r\nC     OR SHEAR MODULUS(G)  = 0.0\r\nC     OR MATID2            = 0\r\nC     OR MATID3            = 0\r\nC\r\nC     THEN (HYQ)  = (0).  THEREFORE, USE HUQ MATRIX AS IS\r\nC\r\n      IF (MATID2.EQ.0 .OR. MATID3.EQ.0) GO TO 130\r\n      IF (ECPT(9).EQ.0.0 .OR. ECPT(7).EQ.0.0) GO TO 130\r\n      INFLAG = 1\r\n      MATID  = MATID3\r\n      ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\n      GSHEAR = G\r\n      IF (G .EQ. 0.0) GO TO 130\r\n      INFLAG = 2\r\n      MATID  = MATID2\r\n      ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FORM\r\nC     (D) = I*(G)\r\nC\r\n      D11 = ECPT(7)*G11\r\n      D12 = ECPT(7)*G12\r\n      D22 = ECPT(7)*G22\r\n      D33 = ECPT(7)*G33\r\nC\r\n      TS  = ECPT(9)\r\nC\r\n      DO 110 I = 1,10\r\n  110 HYQ(I) = 0.0D0\r\n      CP2 = CP*CP\r\n      SP2 = SP*SP\r\n      N2  = N*N\r\n      OPI = ONE/PI\r\n      SD22PI = SP2*D22*OPI\r\n      OQ  = SL*TS*GSHEAR*(RA+RB)*0.5D0 + SD22PI*INT(1,3)\r\n      OQ  = ONE/OQ\r\nC\r\n      HYQ(6) = OQ*INT(1,3)*SD22PI\r\n      HYQ(7) = OQ*2.0D0*(D11 *(RA-RB) + INT(2,3)*SD22PI)\r\n      HYQ(8) = OQ*(-D11*6.0D0*SL*RB   + 3.0D0*INT(3,3)*SD22PI)\r\nC\r\n      DO 120 I = 6,8\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  120 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\nC\r\n  130 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP48(1))\r\nC\r\nC     CHECK SINGULARITY\r\nC\r\n      IF (ISING .NE. 2) GO TO 140\r\n      CALL MESAGE (30,40,NECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n  140 CONTINUE\r\nC\r\nC     CALCULATE GENERALIZED DISPLACEMENT VECTOR(Q)\r\nC\r\nC                       ***     ***\r\nC                       *  T      *\r\nC                       *(E )(U ) *\r\nC                       *      A  *\r\nC        (Q)  =  (HUQ)  *---------*\r\nC                       *  T      *\r\nC                       *(E )(U ) *\r\nC                       *      B  *\r\nC                       ***     ***\r\nC\r\nC           WHERE\r\nC                                0    1    0    0    0    0\r\nC                          T     SP   0    CP   0    0    0\r\nC                MATRIX  (E )  = CP   0   -SP   0    0    0\r\nC                                0    0    0    0    1    0\r\nC                                0    0    0    SP   0    CP\r\nC\r\nC\r\n      K1 = 0\r\n      K2 = 0\r\n  320 U(K2+1) = DBLE(ECPT(K1+40))\r\n      U(K2+2) = DBLE(ECPT(K1+39))*SP + DBLE(ECPT(K1+41))*CP\r\n      U(K2+3) = DBLE(ECPT(K1+39))*CP - DBLE(ECPT(K1+41))*SP\r\n      U(K2+4) = DBLE(ECPT(K1+43))\r\n      U(K2+5) = DBLE(ECPT(K1+42))*SP + DBLE(ECPT(K1+44))*CP\r\nC\r\n      IF (K1 .NE. 0) GO TO 400\r\n      K1 = 6\r\n      K2 = 5\r\n      GO TO 320\r\nC\r\n  400  CALL GMMATD (HUQ(1),8,10,0,U(1),10,1,0,Q(1))\r\nC\r\nC     CALCULATE STRAIN COEFFICIENTS AND OBTAIN MATERIAL PROPERTY MATRIX\r\nC     (E)\r\nC\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\n      ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\n      E11   = G11\r\n      E12   = G12\r\n      E22   = G22\r\n      E33   = G33\r\n      TDIF  = (DBLE(ECPT(38)) - DBLE(ECPT(37)))/SL\r\n      DEPS  = DBLE(ALPHA1)*TDIF\r\n      DEPP  = DBLE(ALPHA2)*TDIF\r\n      EPS   = DBLE(ALPHA1)*DBLE(ECPT(37))\r\n      EPP   = DBLE(ALPHA2)*DBLE(ECPT(37))\r\nC\r\nC     COMPUTE COEFFICIENTS FOR POWER SERIES OF DIFFERENTIAL STIFF. COEFF\r\nC\r\n      TM    = ECPT(5)\r\n      TEMP1 = SP*Q(3) + CP*Q(5)\r\n      TEMP2 = SP*Q(4) + CP*Q(6)\r\n      TEMP3 = Q(4) - EPS\r\n      TE11  = TM*E11\r\n      TE12  = TM*E12\r\n      TE22  = TM*E22\r\nC\r\n      A0    = TE12*TEMP1\r\n      A1    = TE12*TEMP2\r\n      A2    = TE12*CP*Q(7)\r\n      A3    = TE12*CP*Q(8)\r\n      B0    = TE22*TEMP1\r\n      B1    = TE22*TEMP2\r\n      B2    = TE22*CP*Q(7)\r\n      B3    = TE22*CP*Q(8)\r\n      C0    = TE11*TEMP3 - TE12*EPP\r\n      C1    =-TE11*DEPS  - TE12*DEPP\r\n      D0    = TE12*TEMP3 - TE22*EPP\r\n      D1    =-TE12*DEPS  - TE22*DEPP\r\nC\r\nC     COMPUTE DIFFERENTIAL STIFFNESS COEFFICIENTS\r\nC\r\n      DO 500 I = 1,3\r\n      IP1 = I + 1\r\n      IP2 = I + 2\r\n      IP3 = I + 3\r\n      DO 500 J = I,3\r\n      JP1 = J + 1\r\n      A(I,J) = A0*INT(I  ,JP1) + A1*INT(IP1,JP1) + A2*INT(IP2,JP1)\r\n     1       + A3*INT(IP3,JP1) + C0*INT(I  ,J  ) + C1*INT(IP1,J  )\r\n      B(I,J) = B0*INT(I  ,JP1) + B1*INT(IP1,JP1) + B2*INT(IP2,JP1)\r\n     1       + B3*INT(IP3,JP1) + D0*INT(I  ,J  ) + D1*INT(IP1,J  )\r\n  500 C(I,J) = A(I,J) + B(I,J)\r\nC\r\n      J   = 1\r\n      JP1 = 2\r\n      DO 510 I = 2,5\r\n      IP1 = I + 1\r\n      IP2 = I + 2\r\n      IP3 = I + 3\r\n  510 A(I,J) = A0*INT(I  ,JP1) + A1*INT(IP1,JP1) + A2*INT(IP2,JP1)\r\n     1       + A3*INT(IP3,JP1) + C0*INT(I  ,J  ) + C1*INT(IP1,J  )\r\nC\r\n      J   = 3\r\n      JP1 = 4\r\n      DO 520 I = 4,7\r\n      IP1 = I + 1\r\n      IP2 = I + 2\r\n      IP3 = I + 3\r\n  520 B(I,J) = B0*INT(I  ,JP1) + B1*INT(IP1,JP1) + B2*INT(IP2,JP1)\r\n     1       + B3*INT(IP3,JP1) + D0*INT(I  ,J  ) + D1*INT(IP1,J  )\r\nC\r\nC     COMPUTE KQD\r\nC     FOR EXPLICIT FORMULATION OF KQD, SEE MS-31, PP. 8-11\r\nC     CASE ONE.. HARMONIC NUMBER = ZERO\r\nC\r\n      DO 600 I = 1,64\r\n  600 KQD(I)  = 0.0D0\r\n      SP2D4   = SP2*0.25D0\r\n      KQD( 1) = CP2*B(1,3) + SP2D4*C(1,3)\r\n      KQD( 2) = CP2*B(2,3) + 0.25D0*SP*C(1,2) + SP2D4*C(2,3)\r\n      KQD( 9) = KQD(2)\r\n      KQD(10) = CP2*B(3,3) + (C(1,1) + 2.0D0*SP*C(2,2)\r\n     $        + SP2*C(3,3))*0.25D0\r\n      KQD(46) = A(1,1)\r\n      KQD(47) = A(2,1)*2.0D0\r\n      KQD(48) = A(3,1)*3.0D0\r\n      KQD(54) = KQD(47)\r\n      KQD(55) = A(3,1)*4.0D0\r\n      KQD(56) = A(4,1)*6.0D0\r\n      KQD(62) = KQD(48)\r\n      KQD(63) = KQD(56)\r\n      KQD(64) = A(5,1)*9.0D0\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n      IF (N .EQ. 0.0D0) GO TO 800\r\nC\r\nC     CASE TWO.. HARMONIC NUMBER .NE. ZERO\r\nC\r\n      NOV4    = N*0.25D0\r\n      NSPOV4  = NOV4*SP\r\n      NCP     = N*CP\r\n      N2OV4   = NOV4*N\r\n      KQD( 3) = NSPOV4*C(1,3)\r\n      KQD( 4) = NSPOV4*C(2,3)\r\n      KQD( 5) = NCP*B(1,3)\r\n      KQD( 6) = NCP*B(2,3)\r\n      KQD( 7) = NCP*B(3,3)\r\n      KQD( 8) = NCP*B(4,3)\r\n      KQD(11) = NOV4*(C(1,2) + SP*C(2,3))\r\n      KQD(12) = NOV4*(C(2,2) + SP*C(3,3))\r\n      KQD(13) = NCP*B(2,3)\r\n      KQD(14) = NCP*B(3,3)\r\n      KQD(15) = NCP*B(4,3)\r\n      KQD(16) = NCP*B(5,3)\r\n      KQD(17) = KQD( 3)\r\n      KQD(18) = KQD(11)\r\n      KQD(19) = N2OV4*C(1,3)\r\n      KQD(20) = N2OV4*C(2,3)\r\n      KQD(25) = KQD( 4)\r\n      KQD(26) = KQD(12)\r\n      KQD(27) = KQD(20)\r\n      KQD(28) = N2OV4*C(3,3)\r\n      KQD(33) = KQD( 5)\r\n      KQD(34) = KQD(13)\r\n      KQD(37) = N2*B(1,3)\r\n      KQD(38) = N2*B(2,3)\r\n      KQD(39) = N2*B(3,3)\r\n      KQD(40) = N2*B(4,3)\r\n      KQD(41) = KQD( 6)\r\n      KQD(42) = KQD(14)\r\n      KQD(45) = KQD(38)\r\n      KQD(46) = KQD(46) + N2*B(3,3)\r\n      KQD(47) = KQD(47) + N2*B(4,3)\r\n      KQD(48) = KQD(48) + N2*B(5,3)\r\n      KQD(49) = KQD( 7)\r\n      KQD(50) = KQD(15)\r\n      KQD(53) = KQD(39)\r\n      KQD(54) = KQD(47)\r\n      KQD(55) = KQD(55) + N2*B(5,3)\r\n      KQD(56) = KQD(56) + N2*B(6,3)\r\n      KQD(57) = KQD( 8)\r\n      KQD(58) = KQD(16)\r\n      KQD(61) = KQD(40)\r\n      KQD(62) = KQD(48)\r\n      KQD(63) = KQD(56)\r\n      KQD(64) = KQD(64) + N2*B(7,3)\r\nC\r\nC     COMPUTE HUQ FOR NTH HARMONIC\r\nC\r\n      DO 690 I = 1,100\r\n  690 HUQ(  I) = 0.0D0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 41) = CP/RA\r\n      HUQ( 45) = N /RA\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77)*SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0D0*SL\r\n      HUQ( 88) = 3.0D0*HUQ(77)\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*SL\r\n      HUQ( 95) = N /RB\r\n      HUQ( 96) = HUQ(95)*SL\r\n      HUQ( 97) = HUQ(95)*L2\r\n      HUQ( 98) = HUQ(96)*L2\r\n      HUQ( 99) = ONE\r\n      HUQ(100) = SL\r\nC\r\nC     COMPUTE HYQ\r\nC\r\n      IF (MATID2.EQ.0 .OR. MATID3.EQ.0) GO TO 710\r\n      IF (ECPT(9).EQ.0.0 .OR. ECPT(7).EQ.0.0) GO TO 710\r\n      IF (GSHEAR .EQ. 0.0D0) GO TO 710\r\nC\r\n      N2D33  = N2 *D33\r\n      SP2D22 = SP2*D22\r\n      OQ     = SL*TS*GSHEAR*(RA+RB)*0.5D0 + INT(1,3)*(N2D33+SP2D22)*OPI\r\n      OQ     = ONE/OQ\r\n      NSP    = N*SP\r\n      NCP    = N*CP\r\n      NSPOPI = NSP*OPI\r\n      TWOD33 = 2.0D0*D33\r\n      TEMP1  = D12*(ONE/RB - ONE/RA)\r\n      TEMP2  = NSPOPI*(D22 + D33)\r\n      TEMP3  = N*NSPOPI*(TWOD33 + D22)\r\n      TEMP4  = OQ*0.5D0*N2D33*CP*OPI\r\n      TEMP5  = OPI*(N2*TWOD33  + SP2D22)\r\n      TEMP6  = D12*N2*L2/RB\r\n      TEMP7  = NSPOPI*CP*0.50D0\r\nC\r\n      HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*INT(1,4)*(D33 + 2.0D0*D22))\r\n      HYQ( 2) = OQ*(NCP*SL/RB*D12 - TEMP7*INT(2,4)*(3.0D0*D33 + D22) +\r\n     1          1.5D0*NCP*OPI*INT(1,3)*D33)\r\n      HYQ( 3) = TEMP4*INT(1,4)\r\n      HYQ( 4) = TEMP4*INT(2,4)\r\n      HYQ( 5) = OQ*(TEMP1*N2 - TEMP3*INT(1,4))\r\n      HYQ( 6) = OQ*(D12*N2*SL/RB - TEMP3*INT(2,4) + TEMP5*INT(1,3))\r\n      HYQ( 7) = OQ*(2.0D0*D11*(RA-RB) + TEMP6 + 2.0D0*INT(2,3)*TEMP5\r\n     $        - TEMP3*INT(3,4))\r\n      HYQ( 8) = OQ*(-D11*6.0D0*SL*RB + TEMP6*SL + 3.0D0*INT(3,3)*TEMP5\r\n     $        - TEMP3*INT(4,4))\r\n      HYQ( 9) =-OQ*TEMP2*INT(1,3)\r\n      HYQ(10) = OQ*(N*SL*(D12 + D33) - TEMP2*INT(2,3))\r\nC\r\n      DO 700 I = 1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  700 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\nC\r\n  710 CONTINUE\r\nC\r\nC     AGAIN SET ISING TO -1\r\nC\r\n      ISING = -1\r\n      CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP48(1))\r\n      IF (ISING .NE. 2) GO TO 720\r\n      CALL MESAGE (30,40,NECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n  720 CONTINUE\r\nC\r\nC     COMPLETE SOLUTION BY TRANSFORMING KQD TO GLOBAL COORDINATES\r\nC\r\nC                     T            T\r\nC       (K  ) = (E)(H  )(KQD)(H)(E )     FOR I = PIVOT POINT\r\nC         IJ         I         J             J = A,B\r\nC\r\nC     FIRST OBTAIN PRODUCTS\r\nC                       T\r\nC        EHAT  =  (E)(H  )      AND STORE AT EHT(1) . . . EHT(48)\r\nC                      A\r\nC\r\nC                       T\r\nC        EHBT  =  (E)(H  )      AND STORE AT EHT(49). . . EHT(96)\r\nC                      B\r\nC\r\nC              0    CP   SP   0    0\r\nC              1    0    0    0    0\r\nC\r\nC              0    CP  -SP   0    0\r\nC\r\nC        MATRIX E =\r\nC              0    0    0    0    SP\r\nC\r\nC              0    0    0    1    0\r\nC\r\nC              0    0    0    0    CP\r\nC\r\n  800 INC1 = 0\r\n      INC2 = 0\r\n  810 DO 820 I = 1,8\r\n      KROW = I + INC1\r\n      NCOL = (I-1)*10 + INC2\r\n      EHT(KROW   ) = SP*HUQ(NCOL+2) + CP*HUQ(NCOL+3)\r\n      EHT(KROW+ 8) =    HUQ(NCOL+1)\r\n      EHT(KROW+16) = CP*HUQ(NCOL+2) - SP*HUQ(NCOL+3)\r\n      EHT(KROW+24) = SP*HUQ(NCOL+5)\r\n      EHT(KROW+32) =    HUQ(NCOL+4)\r\n  820 EHT(KROW+40) = CP*HUQ(NCOL+5)\r\n      IF(INC1 .GT. 0) GO TO 830\r\n      INC1 = 48\r\n      INC2 = 5\r\n      GO TO 810\r\nC\r\nC     CHECK FOR PIVOT POINT NUMBER\r\nC\r\n  830 DO 840 I = 1,2\r\n      IF (NPVT .EQ. NECPT(I+1)) GO TO 850\r\n  840 CONTINUE\r\nC\r\nC     FALL THRU LOOP IMPLIES NO PIVOT POINT NUMBER\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\n  850 NPIVOT = I\r\n      CALL GMMATD ( EHT(48*NPIVOT-47),6,8,0, KQD(1),8,8,0, TEMP48(1) )\r\nC\r\nC     IF N = 0 DOUBLE RESULT\r\nC\r\n      IF (N .NE. 0.0D0) GO TO 870\r\n      DO 860 I = 1,48\r\n  860 TEMP48(I) = 2.0D0*TEMP48(I)\r\nC\r\n  870 DO 880 J = 1,2\r\n      CALL GMMATD (TEMP48(1),6,8,0,EHT(48*J-47),6,8,1,KIJ(1))\r\n  880 CALL DS1B (KIJ(1),NECPT(J+1))\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dcross.f",
    "content": "      SUBROUTINE DCROSS(X,Y,Z)\r\nC\r\nC     DOUBLE PRECISION CROSS PRODUCT\r\nC\r\n      DOUBLE PRECISION        X(3)     ,Y(3)     ,Z(3)\r\nC\r\n      Z(1) = X(2)*Y(3) - X(3)*Y(2)\r\n      Z(2) = Y(1)*X(3) - Y(3)*X(1)\r\n      Z(3) = X(1)*Y(2) - X(2)*Y(1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddamat.f",
    "content": "      SUBROUTINE DDAMAT\r\nC\r\nC     DDAMAT  A,B/C/C,Y,GG=1.  $\r\nC\r\nC     DDAMAT  TAKES THE OUTER PRODUCT OF MATRICES A AND B, AND MULTIPLES\r\nC     BY GG TO GET C, I.E.  CIJ=GG*(AIJ*BIJ).  ALSO, IF B HAS ONLY ONE\r\nC     COLUMN, AND NUMBER OF COLUMNS OF A .GT. 1, THEN USE THAT COLUMN\r\nC     ON EACH COLUMN OF A.\r\nC\r\n      INTEGER          A,B,C,BUF1,BUF2,BUF3\r\n      DOUBLE PRECISION DZ(1), DGG, GGDZ\r\n      DIMENSION        NAM(2),MCB(7)\r\n      COMMON /UNPAKX/  JOUT,III,NNN,JNCR\r\n      COMMON /PACKX /  IIN,IOUT,II,NN,INCR\r\n      COMMON /SYSTEM/  IBUF(80)\r\n      COMMON /BLANK /  GG\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (IPREC,IBUF(55)),(Z(1),DZ(1))\r\n      DATA    A,B,C /  101,102,201  /\r\n      DATA    NAM   /  4HDDAM,4HAT  /\r\nC\r\nC     SET PACK AND UNPACK PARAMETER\r\nC\r\n      JOUT = IPREC\r\n      IIN  = IPREC\r\n      IOUT = IPREC\r\n      INCR = 1\r\n      JNCR = 1\r\n      II   = 1\r\n      III  = 1\r\nC\r\nC     SET OPEN CORE\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - IBUF(1) + 1\r\n      BUF2  = BUF1 - IBUF(1)\r\n      BUF3  = BUF2 - IBUF(1)\r\n      LCORE = BUF3 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\n      MCB(1) = A\r\n      CALL RDTRL (MCB)\r\n      NCOLA  = MCB(2)\r\n      NROWA  = MCB(3)\r\n      MCB(1) = B\r\n      CALL RDTRL (MCB)\r\n      NCOLB  = MCB(2)\r\n      NROWB  = MCB(3)\r\n      IF (NROWA .NE. NROWB) GO TO 1007\r\n      IF (LCORE .LT. 2*NROWA*IPREC) GO TO 1008\r\nC\r\nC     NO. OF COLUMNS OF A AND B MUST BE EQUAL OR\r\nC     NO. OF COLUMNS OF B MUST BE 1\r\nC\r\n      IF (NCOLA .EQ. NCOLB) GO TO 5\r\n      IF (NCOLB .EQ.     1) GO TO 5\r\n      GO TO 1007\r\nC\r\n    5 NN  = NROWA\r\n      NNN = NROWA\r\n      MCB(1) = C\r\n      MCB(2) = 0\r\n      MCB(3) = NROWA\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IF (IPREC .EQ. 2) DGG = GG\r\nC\r\n      CALL GOPEN (A,Z(BUF1),0)\r\n      CALL GOPEN (B,Z(BUF2),0)\r\n      CALL GOPEN (C,Z(BUF3),1)\r\nC\r\nC     UNPACK A COLUMN OF A AND B, COMPUTE PRODUCTS, AND PACK TO C.\r\nC     IF I.GT.1 AND B=1, USE THE ONE COLUMN OF B OVER AGAIN.\r\nC\r\n      DO 70 I = 1,NCOLA\r\nC\r\n      INULL = 0\r\n      GO TO (10,40), IPREC\r\n   10 GGZ = GG\r\n      CALL UNPACK (*11,A,Z(1))\r\n      GO TO 12\r\n   11 INULL = 1\r\n   12 IF (I.GT.1 .AND. NCOLB.EQ.1) GO TO 20\r\n      CALL UNPACK (*15,B,Z(NROWA+1))\r\n      GO TO 20\r\n   15 INULL = 1\r\n      DO 16 J = 1,NROWA\r\n   16 Z(NROWA+J) = 0.\r\n   20 IF (INULL .EQ. 1) GGZ = 0.\r\n      DO 30 J = 1,NROWA\r\n      Z(J) = GGZ*Z(J)*Z(NROWA+J)\r\n   30 CONTINUE\r\n      CALL PACK (Z(1),C,MCB)\r\n      GO TO 70\r\n   40 GGDZ = DGG\r\n      CALL UNPACK (*41,A,DZ(1))\r\n      GO TO 42\r\n   41 INULL = 1\r\n   42 IF (I.GT.1 .AND. NCOLB.EQ.1) GO TO 50\r\n      CALL UNPACK (*45,B,DZ(NROWA+1))\r\n      GO TO 50\r\n   45 INULL = 1\r\n      DO 46 J = 1,NROWA\r\n   46 DZ(NROWA+J) = 0.D0\r\n   50 IF (INULL .EQ. 1) GGDZ = 0.D0\r\n      DO 60 J = 1,NROWA\r\n      ISUB  = NROWA + J\r\n      DZ(J) = GGDZ*DZ(J)*DZ(ISUB)\r\n   60 CONTINUE\r\n      CALL PACK (DZ(1),C,MCB)\r\nC\r\nC     DO ANOTHER COLUMN\r\nC\r\n   70 CONTINUE\r\nC\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (A,1)\r\n      CALL CLOSE (B,1)\r\n      CALL CLOSE (C,1)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n 1007 K = -7\r\n      GO TO 1010\r\n 1008 K = -8\r\n 1010 CALL MESAGE (K,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddampg.f",
    "content": "      SUBROUTINE DDAMPG\r\nC\r\nC     DDAMPG  MP,PVW/PG/V,N,NMODES/V,N,NDIR $\r\nC\r\nC     MP IS MGG*PHIG, PVW IS (PF)*SSDV*OMEGA, PARTICIPATION FACTORS X\r\nC     SHOCK SPECTRUM DESIGN VALUES X RADIAN FREQUENCIES.\r\nC     MP IS (NXM).  IF PVW IS A VECTOR (MX1), WE WANT TO MULTIPLY THE\r\nC     ITH. TERM INTO THE ITH. COLUMN OF MP.  PG IS THEN NXM.\r\nC     IF PVW IS A MATRIX (MXL), WE REPEAT THE PREVIOUS COMPUTATION FOR\r\nC     EACH OF THE L VECTORS, MAKING PG (NX(MXL)).\r\nC     NMODES IS NUMBER OF MODES. NDIR IS NUMBER OF SHOCK DIRECTIONS\r\nC\r\n      INTEGER         MP,PVW,PG,BUF1,BUF2,BUF3,FILE\r\n      DIMENSION       NAM(2),MCB(7)\r\n      COMMON /UNPAKX/ JOUT,III,NNN,JNCR\r\n      COMMON /PACKX / IIN,IOUT,II,NN,INCR\r\n      COMMON /SYSTEM/ IBUF(80)\r\n      COMMON /BLANK / NMODES,NDIR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    MP,PVW, PG /101,102,201/\r\n      DATA    NAM   / 4HDDAM,4HPG    /\r\nC\r\nC     SET UP OPEN CORE AND BUFFERS\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - IBUF(1) + 1\r\n      BUF2  = BUF1 - IBUF(1)\r\n      BUF3  = BUF2 - IBUF(1)\r\n      LCORE = BUF3 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\nC     PICK UP ROW AND COLUMN STATISTICS AND SET PACK/UNPACK PARAMETERS\r\nC\r\n      MCB(1) = MP\r\n      CALL RDTRL (MCB)\r\n      NCOLMP = MCB(2)\r\n      NMODES = NCOLMP\r\n      NROWMP = MCB(3)\r\n      MCB(1) = PVW\r\n      CALL RDTRL (MCB)\r\n      NCOLPV = MCB(2)\r\n      NDIR   = NCOLPV\r\n      NROWPV = MCB(3)\r\n      MCB4   = MCB(4)\r\n      MCB5   = MCB(5)\r\nC\r\nC\r\n      IF (LCORE .LT. NROWPV+NROWMP) GO TO 1008\r\n      IF (NCOLMP .NE. NROWPV) GO TO 1007\r\n      MCB(1) = PG\r\n      MCB(2) = 0\r\n      MCB(3) = NROWMP\r\n      MCB(4) = MCB4\r\n      MCB(5) = MCB5\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\nC\r\n      JOUT = 1\r\n      IIN  = 1\r\n      IOUT = 1\r\n      II   = 1\r\n      III  = 1\r\n      NN   = NROWMP\r\n      INCR = 1\r\n      JNCR = 1\r\nC\r\n      CALL GOPEN (MP,Z(BUF1),0)\r\n      CALL GOPEN (PVW,Z(BUF2),0)\r\n      CALL GOPEN (PG,Z(BUF3),1)\r\nC\r\n      DO 130 IJK = 1,NCOLPV\r\n      NNN = NROWPV\r\n      CALL UNPACK (*20,PVW,Z(1))\r\n      GO TO 60\r\nC\r\nC     NULL COLUMN FOR PVW-WRITE OUT NCOLMP ZERO COLUMNS OF LENGTH NROWMP\r\nC\r\n   20 DO 30 K = 1,NROWMP\r\n   30 Z(K) = 0.\r\n      DO 56 K = 1,NCOLMP\r\n      CALL PACK (Z,PG,MCB)\r\n   56 CONTINUE\r\n      GO TO 125\r\nC\r\n   60 DO 120 J = 1,NCOLMP\r\n      NNN = NROWMP\r\n      CALL UNPACK (*80,MP,Z(NROWPV+1))\r\n      GO TO 100\r\nC\r\n   80 DO 90 K = 1,NROWMP\r\n      Z(NROWPV+K) = 0.\r\n   90 CONTINUE\r\n      GO TO 115\r\nC\r\n  100 DO 110 K = 1,NROWMP\r\n      ISUB = NROWPV + K\r\n      Z(ISUB) = Z(ISUB)*Z(J)\r\n  110 CONTINUE\r\n  115 CALL PACK (Z(NROWPV+1),PG,MCB)\r\n  120 CONTINUE\r\n  125 CALL REWIND (MP)\r\n      FILE = MP\r\n      CALL FWDREC (*1002,MP)\r\n  130 CONTINUE\r\nC\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (MP,1)\r\n      CALL CLOSE (PVW,1)\r\n      CALL CLOSE (PG,1)\r\nC\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1007 N = -7\r\n      GO TO 1010\r\n 1008 N = -8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddcmps.f",
    "content": "      SUBROUTINE DDCMPS\r\nC\r\nC     DDCMPS IS THE DMAP DRIVER FOR SDCMPS\r\nC\r\nC     SDCMPS   USET,GPL,SIL,KAA/LLL,ULL/SYM=0/DIAGCK=0/DIAGET=20/\r\nC              PDEFCK=0/SING=0/SET=L/CHLSKY=0/DET=0.0D0/MINDIA=0.0D0/\r\nC              POWER=0/SUBNAM=NONE\r\nC\r\nC     SYM      =  1 - USE SYMMETRIC DECOMPOSITION\r\nC                 0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX\r\nC                -1 - USE UNSYMETRIC DECOMPOSITION\r\nC     DIAGCK   =  DIAGONAL SINGULARITY CHECK              (SDCMPS)\r\nC                 - = NO CHECK                            (SDCMPS)\r\nC                 0 = NONFATAL                            (SDCMPS)\r\nC                 + = MAX ALLOWED FATAL                   (SDCMPS)\r\nC     DIAGET   =  DIAGONAL SINGULARITY ERROR TOLERANCE.   (SDCMPS)\r\nC     PDEFCK   =  POSITIVE DEFINATE CHECK                 (SDCMPS)\r\nC                 - = NO CHECK                            (SDCMPS)\r\nC                 0 = NONFATAL                            (SDCMPS)\r\nC                 + = MAX ALLOWED FATAL                   (SDCMPS)\r\nC     SING     =  SINGULARITY OUTPUT FLAG\r\nC                 1 = OK\r\nC                 0 = NONCONSERVATIVE OR ES FAILURE\r\nC                -1 = SINGULAR OR LIMITS EXCEEDED\r\nC     SET      =  SET MATRIX BELONGS TO                   (SDCMPS)\r\nC     CHLSKY   =  1 USE CHOLESKY DECOMPOSITION LLL = C\r\nC     DET      =  DETERMINANT OF KAA\r\nC     MINDIA   =  MINIMUM DIAGONAL OF ULL\r\nC     POWER    =  SCALE FACTOR FOR DET\r\nC     SUBNAM   =  SUBSTRUCTURE NAME                       (SDCMPS)\r\nC\r\n      LOGICAL          OPNSCR   ,FIRST\r\n      INTEGER          BUF6     ,CHLSKY   ,DIAGCK   ,DIAGET   ,NAME(2) ,\r\n     1                 NAM(2)   ,OUTPT    ,PARM     ,PDEFCK   ,POWER   ,\r\n     2                 RECT     ,SET      ,SING     ,SQR      ,SYM     ,\r\n     3                 ULL\r\n      REAL             ZZ(1)    ,ZZZ(1)   ,ZZZZ(1)  ,ZM(1)\r\n      DOUBLE PRECISION CDET     ,CMNDIA   ,MINDIA   ,SDETC    ,MINDS   ,\r\n     1                 DDET     ,DMNDIA   ,SDET\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /BLANK /  ISYM     ,DIAGCK   ,DIAGET   ,PDEFCK   ,SING    ,\r\n     1                 SET(2)   ,CHLSKY   ,DET(2)   ,MINDIA   ,POWER   ,\r\n     2                 SUBNAM(2)\r\n      COMMON /SDCQ  /  NERR(2)   ,NOGLEV   ,BUF6     ,ISCMSG   ,ISCDIA ,\r\n     1                 ISTSCR    ,KPDFCK   ,KDGCK    ,KDGET    ,KPREC  ,\r\n     2                 PARM(4)   ,OPNSCR   ,FIRST\r\n      COMMON /SFACT /  IFILA(7)  ,IFILL(7) ,IFILU(7) ,KSCR1    ,\r\n     1                 KSCR2     ,NZ       ,SDET     ,SDETC    ,KPOW   ,\r\n     2                 KSCR3     ,MINDS    ,ICHLK\r\n      COMMON /DCOMPX/  IA(7)     ,IL(7)    ,IU(7)    ,ISCR1    ,\r\n     1                 ISCR2     ,ISCR3    ,DDET     ,IPOW     ,\r\n     3                 NZZ       ,DMNDIA   ,IB\r\n      COMMON /CDCMPX/  JA(7)     ,JL(7)    ,JU(7)    ,JSCR1    ,\r\n     1                 JSCR2     ,JSCR3    ,CDET(2)  ,JPOW     ,\r\n     3                 NZZZ      ,CMNDIA   ,JB\r\n      COMMON /NAMES /  KNAMES(19)\r\n      COMMON /SYSTEM/  KSYSTM(69)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (ZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZZ(1),Z(1))\r\n      EQUIVALENCE      (ZM(1),Z(1))\r\n      EQUIVALENCE      (KSYSTM( 1),NBUFSZ) ,(KSYSTM( 2),OUTPT) ,\r\n     1                 (KNAMES(12),SQR   ) ,(KNAMES(13),RECT ) ,\r\n     2                 (KNAMES(17),SYM   )\r\n      DATA    LUSET ,  LGPL ,LSIL ,KAA  ,LLL  ,ULL  ,LSCR1,LSCR2,LSCR3 /\r\n     1        101   ,  102  ,103  ,104  ,201  ,202  ,301  ,302  ,303   /\r\n      DATA    LSCR4 ,  LSCR5,LSCR6/\r\n     1        304   ,  305  ,306  /\r\n      DATA    NAME  /  4HDDCM, 4HPS   /\r\n      DATA    NAM   /  4HSDCM, 4HPS   /\r\nC\r\nC     NOTE SYM DECOMP DOES NOT OUTPUT  ULL\r\nC\r\nC\r\n      OPNSCR = .FALSE.\r\n      FIRST  = .TRUE.\r\n      SING   = 1\r\n      JA(1)  = KAA\r\n      CALL RDTRL (JA)\r\n      IF (JA(1) .LT. 0) GO TO 490\r\n      IFORM  = JA(4)\r\n      IF (ISYM) 10,50,30\r\n   10 IF (IFORM .NE. SYM) GO TO 20\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTPT,15) SWM,NAM\r\n   15 FORMAT (A27,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ',\r\n     1       'UNSYMETRIC DECOMPOSITION OF A SYMETRIC MATRIX')\r\n   20 IFORM = RECT\r\n      IF (JA(2) .EQ. JA(3)) IFORM = SQR\r\n      GO TO 50\r\nC\r\n   30 IF (IFORM .EQ. SYM) GO TO 50\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTPT,40) SWM,NAM\r\n   40 FORMAT (A27,' 2341, MODULE ',2A4,' HAS BEEN FURNISHED A SQUARE ',\r\n     1       'MATRIX MARKED UNSYMETRIC FOR SYMETRIC DECOMPOSITION.')\r\n      IFORM = SYM\r\n   50 ISYM  = -1\r\n      IF (IFORM .EQ. SYM) ISYM = 1\r\n      JA(4) = IFORM\r\n      I = 0\r\n      IF (JA(2) .EQ. JA(3)) GO TO 60\r\n      CALL PAGE2 (2)\r\n      I = 1\r\n      WRITE  (OUTPT,55) SWM,NAM\r\n   55 FORMAT (A27,' 2375, MODULE ',2A4,' HAS BEEN REQUESTED TO ',\r\n     1       'DECOMPOSE A RECTANGULAR MATRIX')\r\n   60 CONTINUE\r\n      IF (ISYM .LT. 0) GO TO 200\r\nC\r\nC     SET UP CALL TO SDCOMP\r\nC\r\n      IF (I .NE. 0) GO TO 500\r\n      IFILA(1) = KAA\r\n      CALL RDTRL (IFILA)\r\n      IFILL(1) = LLL\r\n      IFILU(1) = LSCR4\r\n      KSCR1 = LSCR1\r\n      KSCR2 = LSCR2\r\n      KSCR3 = LSCR3\r\n      IFILL(5) = IFILA(5)\r\n      ICHLK = CHLSKY\r\n      IF (IFILA(5) .LE. 2) GO TO 100\r\n      NZ = KORSZ (Z)\r\n      CALL SDCOMP (*400,Z,Z,Z)\r\n      GO TO 130\r\n  100 NZ = KORSZ(ZZZZ)\r\n      ISCMSG = LSCR5\r\n      ISCDIA = LSCR6\r\n      KPDFCK = PDEFCK\r\n      KDGCK  = DIAGCK\r\n      KDGET  = DIAGET\r\n      CALL SDCMPS (ZZZZ,ZZZZ,ZZZZ)\r\n      IF (NERR(1)+NERR(2) .EQ. 0) GO TO 110\r\n      BUF6 = KORSZ(ZM) - 2*NBUFSZ + 1\r\n      IF (BUF6+NBUFSZ .LE. 0) GO TO 510\r\n      CALL SDCMM (ZM,SET(1),IFILA(2),IFILA(1),LUSET,LGPL,LSIL,SUBNAM)\r\n      SING = 0\r\nC\r\nC     ONLY ES CHECK AND NONCONSERVATIVE COLUMN CAN EXIT WITH SING = 1\r\nC     OR IF USER DESIRES TO CONTINUE\r\nC\r\n      IF (NOGLEV .GT. 0) SING = -1\r\n  110 CONTINUE\r\n      IF (PARM(1) .NE. 0) CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n  130 DET(1) = SDET\r\n      DET(2) = SDETC\r\n      MINDIA = MINDS\r\n      POWER  = KPOW\r\n      IFILL(2) = IFILA(2)\r\n      IFILL(3) = IFILA(3)\r\n      IFILL(4) = 4\r\n      IF (SING .GE. 0) CALL WRTTRL (IFILL)\r\n      GO TO 410\r\nC\r\nC     SET UP CALL TO DECOMP\r\nC\r\n  200 CONTINUE\r\n      IF (JA(5) .GT. 2) GO TO 300\r\n      IA(1) = KAA\r\n      CALL RDTRL (IA)\r\n      IL(1) = LLL\r\n      IU(1) = ULL\r\n      NZZ   = KORSZ(ZZ)\r\n      ISCR1 = LSCR1\r\n      ISCR2 = LSCR2\r\n      ISCR3 = LSCR3\r\n      IB    = 0\r\n      IL(5) = 2\r\n      CALL DECOMP (*400,ZZ,ZZ,ZZ)\r\n      IU(5) = 2\r\n      IL(4) = 4\r\n      IU(4) = 5\r\n      IL(3) = IL(2)\r\n      IU(3) = IU(2)\r\n      DET(1)= DDET\r\n      DET(2)= 0.0\r\n      POWER = IPOW\r\n      MINDIA= DMNDIA\r\n      CALL WRTTRL (IU)\r\n      CALL WRTTRL (IL)\r\n      GO TO 410\r\nC\r\nC     SET UP CALL TO CDCOMP\r\nC\r\n  300 CONTINUE\r\n      JL(1) = LLL\r\n      JU(1) = ULL\r\n      JSCR1 = LSCR1\r\n      JSCR2 = LSCR2\r\n      JSCR3 = LSCR3\r\n      NZZZ  = KORSZ(ZZZ)\r\n      JL(5) = 4\r\n      JB    = 0\r\n      CALL CDCOMP (*400,ZZZ,ZZZ,ZZZ)\r\n      JU(5) = 4\r\n      JL(4) = 4\r\n      JU(4) = 5\r\n      JL(3) = JL(2)\r\n      JU(3) = JU(2)\r\n      DET(1)= CDET(1)\r\n      DET(2)= CDET(2)\r\n      MINDIA= CMNDIA\r\n      POWER = JPOW\r\n      CALL WRTTRL (JL)\r\n      CALL WRTTRL (JU)\r\n      GO TO 410\r\nC\r\n  400 SING   = -1\r\n      DET(1) = 0.0\r\n      DET(2) = 0.0\r\n      POWER  = 0\r\n      MINDIA = 0.0\r\n  410 RETURN\r\nC\r\nC     ERROR  MESSAGES\r\nC\r\nC     PURGED INPUT\r\nC\r\n  490 PARM(1) = -1\r\n      PARM(2) = KAA\r\n      GO TO 520\r\nC\r\nC     NUMBER ROWS.NE.COLUMNS\r\nC\r\n  500 PARM(1) = -16\r\n      PARM(2) = KAA\r\n      GO TO 520\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  510 PARM(1) = -8\r\n      PARM(2) = -BUF6 - NBUFSZ\r\n  520 PARM(3) = NAME(1)\r\n      PARM(4) = NAME(2)\r\n      GO TO 110\r\n      END\r\n"
  },
  {
    "path": "mis/ddcomp.f",
    "content": "      SUBROUTINE DDCOMP\r\nC\r\nC     DDCOMP IS THE DMAP DRIVER FOR DECOMP\r\nC\r\nC     DECOMP    KAA/LLL,ULL/SYM/CHLSKY/MINDIA/DET/POWER/SING $\r\nC\r\nC        SYM    =  1 - USE SYMMETRIC DECOMPOSITION\r\nC                  0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX\r\nC                 -1 - USE UNSYMETRIC DECOMPOSITION\r\nC        CHLSKY =  1 USE CHOLESKY DECOMPOSITION LLL = C\r\nC        DET    =  DETERMINANT OF KAA\r\nC        POWER  =  SCALE FACTOR FOR DET\r\nC        MINDIA =  MINIMUM DIAGONAL OF ULL\r\nC        SING   = -1 SINGULAR MATRIX\r\nC\r\n      INTEGER          ULL       ,SYM      ,POWER    ,SING     ,\r\n     1                 CHLSKY    ,NAME(2)  ,SQR      ,RECT     ,\r\n     2                 OUTPT     ,UPPER\r\n      REAL             ZZ(1)     ,ZZZ(1)\r\n      DOUBLE PRECISION CDET      ,CMNDIA   ,MINDIA   ,SDETC    ,\r\n     1                 MINDS     ,DDET     ,DMNDIA   ,SDET\r\n      CHARACTER        UFM*23    ,UWM*25   ,UIM*29   ,SFM*25   ,\r\n     1                 SWM*27\r\n      COMMON /XMSSG /  UFM       ,UWM      ,UIM      ,SFM      ,\r\n     1                 SWM\r\n      COMMON /BLANK /  ISYM      ,CHLSKY                       ,\r\n     1                 MINDIA    ,DET(2)   ,POWER    ,SING\r\n      COMMON /SFACT /  IFILA(7)  ,IFILL(7) ,IFILU(7) ,KSCR1    ,\r\n     1                 KSCR2     ,NZ       ,SDET     ,SDETC    ,\r\n     2                 KPOW      ,KSCR3    ,MINDS    ,ICHLK\r\n      COMMON /DCOMPX/  IA(7)     ,IL(7)    ,IU(7)    ,ISCR1    ,\r\n     1                 ISCR2     ,ISCR3    ,DDET     ,IPOW     ,\r\n     2                 NZZ       ,DMNDIA   ,IB\r\n      COMMON /CDCMPX/  JA(7)     ,JL(7)    ,JU(7)    ,JSCR1    ,\r\n     1                 JSCR2     ,JSCR3    ,CDET(2)  ,JPOW     ,\r\n     2                 NZZZ      ,CMNDIA   ,JB\r\n      COMMON /NAMES /  KNAMES(19)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (ZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZ(1),Z(1))\r\n      EQUIVALENCE      (KSYSTM( 2),OUTPT)  ,(KNAMES(12),SQR)   ,\r\n     1                 (KNAMES(13),RECT )  ,(KNAMES(17),SYM)   ,\r\n     2                 (KNAMES(16),UPPER)  ,(KNAMES(15),LOWER)\r\n      DATA    KAA,     LLL,   ULL,    LSCR1,  LSCR2,  LSCR3,  LSCR4 /\r\n     1        101,     201,   202,    301  ,  302  ,  303  ,  304   /\r\n      DATA    NAME  /  4HDDCO,4HMP    /\r\nC\r\n      SING  = 0\r\n      JA(1) = KAA\r\n      CALL RDTRL (JA)\r\n      IFORM = JA(4)\r\n      IF (ISYM) 10,50,30\r\n   10 IF (IFORM .EQ. SYM) WRITE (OUTPT,20) SWM,NAME\r\n   20 FORMAT (A27,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ',\r\n     1       'UNSYMMETRIC DECOMPOSITION OF A SYMMETRIC MATRIX')\r\n      IFORM = RECT\r\n      IF (JA(2) .EQ. JA(3)) IFORM = SQR\r\n      GO TO 50\r\n   30 IF (JA(2).EQ.JA(3) .AND. IFORM.NE.SYM) WRITE (OUTPT,40) SWM,NAME\r\n   40 FORMAT (A27,' 2341, MODULE ',2A4,'HAS BEEN FURNISHED A SQUARE ',\r\n     1       'MATRIX MARKED UNSYMMETRIC FOR SYMMETRIC DECOMPOSITION.')\r\n      IFORM = SYM\r\n   50 ISYM  = -1\r\n      IF (IFORM .EQ. SYM) ISYM = 1\r\n      JA(4) = IFORM\r\n      IF (ISYM .LT. 0) GO TO 200\r\nC\r\nC     SET UP CALL TO SDCOMP\r\nC\r\n      IFILA(1) = KAA\r\n      CALL RDTRL (IFILA)\r\n      IFILL(1) = LLL\r\n      IFILU(1) = LSCR4\r\n      KSCR1    = LSCR1\r\n      KSCR2    = LSCR2\r\n      KSCR3    = LSCR3\r\n      NZ       = KORSZ(Z)\r\n      IFILL(5) = IFILA(5)\r\n      ICHLK    = CHLSKY\r\n      CALL SDCOMP (*400,Z,Z,Z)\r\n      DET(1)   = SDET\r\n      DET(2)   = SDETC\r\n      MINDIA   = MINDS\r\n      POWER    = KPOW\r\n      IFILL(2) = IFILA(2)\r\n      IFILL(3) = IFILA(3)\r\n      IFILL(4) = LOWER\r\n      CALL WRTTRL (IFILL)\r\n      RETURN\r\nC\r\nC     SET UP CALL TO DECOMP\r\nC\r\n  200 CONTINUE\r\n      IF (JA(5) .GT. 2) GO TO 300\r\n      IA(1)  = KAA\r\n      CALL RDTRL (IA)\r\n      IL(1)  = LLL\r\n      IU(1)  = ULL\r\n      NZZ    = KORSZ(ZZ)\r\n      ISCR1  = LSCR1\r\n      ISCR2  = LSCR2\r\n      ISCR3  = LSCR3\r\n      IB     = 0\r\n      IL(5)  = 2\r\n      CALL DECOMP (*400,ZZ,ZZ,ZZ)\r\n      IU(5)  = 2\r\n      IL(4)  = LOWER\r\n      IU(4)  = UPPER\r\n      IL(3)  = IL(2)\r\n      IU(3)  = IU(2)\r\n      DET(1) = DDET\r\n      DET(2) = 0.0\r\n      POWER  = IPOW\r\n      MINDIA = DMNDIA\r\n      CALL WRTTRL (IU)\r\n      CALL WRTTRL (IL)\r\n      RETURN\r\nC\r\nC     SET UP CALL TO CDCOMP\r\nC\r\n  300 CONTINUE\r\n      JL(1)  = LLL\r\n      JU(1)  = ULL\r\n      JSCR1  = LSCR1\r\n      JSCR2  = LSCR2\r\n      JSCR3  = LSCR3\r\n      NZZZ   = KORSZ(ZZZ)\r\n      JL(5)  = 4\r\n      JB     = 0\r\n      CALL CDCOMP (*400,ZZZ,ZZZ,ZZZ)\r\n      JU(5)  = 4\r\n      JL(4)  = LOWER\r\n      JU(4)  = UPPER\r\n      JL(3)  = JL(2)\r\n      JU(3)  = JU(2)\r\n      DET(1) = CDET(1)\r\n      DET(2) = CDET(2)\r\n      MINDIA = CMNDIA\r\n      POWER  = JPOW\r\n      CALL WRTTRL (JL)\r\n      CALL WRTTRL (JU)\r\n      RETURN\r\nC\r\n  400 SING   = -1\r\n      DET(1) = 0.0\r\n      DET(2) = 0.0\r\n      POWER  = 0\r\n      MINDIA = 0.0\r\n      CALL FNAME (KAA,JA(1))\r\n      WRITE  (OUTPT,410) UIM,JA(1),JA(2)\r\n  410 FORMAT (A29,' FORM DECOMP MODULE. MATRIX ',2A4,' IS SINGULAR')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddr.f",
    "content": "      SUBROUTINE DDR\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE DDR    SEE USERS MANUAL SECTION 5.3\r\nC                                  FOR MODULE PROPERTIES CHECK XMPLBD\r\nC                                  OR USE DIAG 29\r\nC\r\nC*****\r\nC\r\n      INTEGER PARM1,PARM2,PARM3\r\nC     INTEGER OUTFIL\r\nC\r\n      COMMON /BLANK/ PARM1(2),PARM2(2),PARM3(2)\r\nC\r\nC     DATA INFILE/101/, OUTFIL/201/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddr1.f",
    "content": "      SUBROUTINE DDR1\r\nC\r\nC     DYNAMIC DATA RECOVERY PART1\r\nC\r\nC     INPUTS  2 UHV,PHIDH\r\nC\r\nC     OUTPUTS 1 UDV\r\nC\r\nC     SCRATCHES  1\r\nC\r\n      INTEGER UHV,PHIDH,UDV,SCR1\r\n      DATA UHV,PHIDH,UDV,SCR1/101,102,201,301/\r\nC\r\nC     TRANSFPRM TO MODAL DISPLACEMENTS\r\nC\r\n      CALL SSG2B(PHIDH,UHV,0,UDV,0,1,1,SCR1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddr1a.f",
    "content": "      SUBROUTINE DDR1A (PD,K2DD,B2DD,MDD,VUD,PAD,FRL,FRQSET,SCR1,SCR2,\r\n     1                  SCR3,SCR4,ITYPE,SCR5)\r\nC\r\nC     ROUTINE TO COMPUTE PAD FROM MODAL APPROXIMATION TO SYSTEM\r\nC\r\n      INTEGER         B2DD,PD,VUD,FRL,FRQSET,SCR1,SCR2,SCR3,SCR4,SCR5,\r\n     1                SYSBUF,FILE,MCB(7),MCB1(7),MCB2(7),SR1,SR3,FREQ,\r\n     2                PAD,NAME(2)\r\n      DIMENSION       IBLK(60),B(2),IMCB(21),IFILE(3)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /ZNTPKX/ A(4),II,IEOL,IEOR\r\n      EQUIVALENCE     (MCB(1),IMCB(1)),(MCB2(1),IMCB(8)),\r\n     1                (MCB1(1),IMCB(15)),(CONSTS(2),TWOPI)\r\n      DATA    NAME  / 4HDDR1,4HA   /\r\n      DATA    FREQ  / 4HFREQ       /\r\nC\r\nC     INITIALIZE + FIND OUT WHAT EXISTS\r\nC\r\n      SR1  = SCR1\r\n      SR3  = SCR3\r\n      IBUF = KORSZ(CORE) - SYSBUF + 1\r\n      NOK2DD = 1\r\n      MCB(1) = K2DD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) NOK2DD = -1\r\n      NOB2DD = 1\r\n      MCB(1) = B2DD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) NOB2DD = -1\r\n      MCB(1) = PD\r\n      CALL RDTRL (MCB)\r\nC\r\nC     IS THIS FREQRES OR TRANSIENT\r\nC\r\n      IF (ITYPE .NE. FREQ) GO TO 160\r\nC\r\nC     BRING IN FRL\r\nC\r\n      FILE = FRL\r\n      CALL OPEN  (*280,FRL,CORE(IBUF),0)\r\n      CALL FREAD (FRL,0,-2,0)\r\n      CALL READ  (*300,*20,FRL,CORE(1),IBUF,0,NFREQ)\r\n      GO TO 310\r\n   20 CALL CLOSE (FRL,1)\r\n      NLOAD = MCB(2)/NFREQ\r\n      IT = 3\r\nC\r\nC     BUILD  ACCELERATION AND VELOCITY IF NEEDED\r\nC\r\n   30 CALL GOPEN (VUD,CORE(IBUF),0)\r\nC\r\nC     PUT  ACCELERATION VECTOR ON SCR1\r\nC\r\n      NZ = IBUF - SYSBUF\r\n      CALL GOPEN (SCR1,CORE(NZ),1)\r\n      CALL MAKMCB (MCB1,SCR1,MCB(3),2,IT)\r\n      IF (NOB2DD .LT. 0) GO TO 40\r\nC\r\nC     PUT VELOCITY VECTOR ON SCR2\r\nC\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (SCR2,CORE(NZ),1)\r\n      CALL MAKMCB (MCB2,SCR2,MCB(3),2,IT)\r\n   40 IF (ITYPE .NE. FREQ) GO TO 170\r\nC\r\nC     COMPUTE  VECTORS\r\nC\r\n      DO 45 I = 1,NFREQ\r\n   45 CORE(I) = CORE(I)*TWOPI\r\n      DO 100 J = 1,NLOAD\r\n      DO 90  I = 1,NFREQ\r\n      W  = CORE(I)\r\n      W2 = -W*W\r\n      CALL BLDPK (3,3,SCR1,IBLK(1),1)\r\n      IF (NOB2DD .LT. 0) GO TO 50\r\n      CALL BLDPK (3,3,SCR2,IBLK(21),1)\r\n   50 CALL INTPK (*80,VUD,0,3,0)\r\n   60 IF (IEOL)  80,70,80\r\n   70 CALL  ZNTPKI\r\n      B(1) = W2*A(1)\r\n      B(2) = W2*A(2)\r\n      CALL BLDPKI (B(1),II,SCR1,IBLK(1))\r\n      IF (NOB2DD .LT. 0) GO TO 60\r\n      B(1)  =-W*A(2)\r\n      B(2)  = W*A(1)\r\n      CALL BLDPKI (B(1),II,SCR2,IBLK(21))\r\n      GO TO 60\r\nC\r\nC     END OF COLUMN\r\nC\r\n   80 CALL BLDPKN (SCR1,IBLK(1),MCB1(1))\r\n      IF (NOB2DD .LT. 0) GO TO 90\r\n      CALL BLDPKN (SCR2,IBLK(21),MCB2(1))\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n  110 CALL CLOSE  (SCR1,1)\r\n      CALL CLOSE  (VUD,1)\r\n      CALL WRTTRL (MCB1(1))\r\n      IF (NOB2DD .LT. 0) GO TO 120\r\n      CALL CLOSE  (SCR2,1)\r\n      CALL WRTTRL (MCB2(1))\r\nC\r\nC     MULTIPLY OUT\r\nC\r\n  120 IF (NOB2DD.LT.0 .AND. NOK2DD.LT.0) SR3 = PAD\r\n      CALL SSG2B (MDD,SCR1,PD,SR3,0,1,0,SCR4)\r\n      IF (NOK2DD .LT. 0) GO TO 130\r\nC\r\nC     MULTIPLY  IN K2DD\r\nC\r\n      IF (NOB2DD .LT. 0) SR1 = PAD\r\n      CALL SSG2B (K2DD,SCR5,SR3,SR1,0,1,0,SCR4)\r\n      GO TO 140\r\nC\r\nC     NO  K2DD\r\nC\r\n  130 SR1 = SR3\r\nC\r\nC     MULTIPLY IN B2DD\r\nC\r\n  140 IF (NOB2DD .LT. 0) GO TO 150\r\n      CALL SSG2B (B2DD,SCR2,SR1,PAD,0,1,0,SCR4)\r\n  150 RETURN\r\nC\r\nC     TRANSIENT ANALYSIS\r\nC\r\n  160 NLOAD = MCB(2)\r\nC\r\nC     PUT DISPLACEMENT ON SCR5,VELOCITY ON SCR2,ACCELERATION SCR1\r\nC\r\n      IT = 1\r\nC\r\nC     PUT HEADERS ON FILES\r\nC\r\n      GO TO 30\r\nC\r\nC     PUT DISPLACEMENT ON SCR5\r\nC\r\n  170 FILE = SCR5\r\n      NZ   = NZ - SYSBUF\r\n      CALL GOPEN (SCR5,CORE(NZ),1)\r\n      MCB(1) = SCR5\r\n      MCB(2) = 0\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      IFILE(1) = SCR5\r\n      IFILE(2) = SCR2\r\n      IFILE(3) = SCR1\r\n      MCB(6) = 0\r\n      DO 270 KK = 1,NLOAD\r\n      CALL BLDPK (1,1,SCR5,IBLK,1)\r\n      IF (NOB2DD .LT. 0) GO TO 190\r\n      CALL BLDPK (1,1,SCR2,IBLK(21),1)\r\n  190 CALL BLDPK (1,1,SCR1,IBLK(41),1)\r\n      DO 260 I = 1,3\r\n      L =  I*7 - 6\r\n      K = 20*I - 19\r\n      FILE = IFILE(I)\r\nC\r\nC     FWDREC OVER  UNNEEDED STUFF\r\nC\r\n      IF (I.EQ.2 .AND. NOB2DD.LT.0) GO TO 250\r\n      CALL INTPK (*240,VUD,0,1,0)\r\n  220 IF (IEOL) 240,230,240\r\n  230 CALL ZNTPKI\r\n      CALL BLDPKI (A,II,FILE,IBLK(K))\r\n      GO TO 220\r\nC\r\nC     END COLUMN\r\nC\r\n  240 CALL BLDPKN (FILE,IBLK(K),IMCB(L))\r\n      GO TO 260\r\n  250 CALL SKPREC (VUD,1)\r\n  260 CONTINUE\r\n  270 CONTINUE\r\nC\r\nC     FINISH OFF\r\nC\r\n      CALL CLOSE  (SCR5,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 110\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  280 IP1 = -1\r\n  290 CALL MESAGE (IP1,FILE,NAME)\r\n  300 IP1 = -2\r\n      GO TO 290\r\n  310 IP1 = -8\r\n      GO TO 290\r\n      END\r\n"
  },
  {
    "path": "mis/ddr1b.f",
    "content": "      SUBROUTINE DDR1B (IN1,IN2,IOUT)\r\nC\r\nC     THIS ROUTINE REPLACES DISPLACEMNTS ON IN1 WITH DISPLACEMENTS ON\r\nC     IN2  AND WRITES ON  IOUT\r\nC\r\n      INTEGER SYSBUF, MCB(7)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC\r\n      NZ = KORSZ(Z) - SYSBUF\r\n      CALL GOPEN (IN1,Z(NZ+1),0)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (IN2,Z(NZ+1),0)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (IOUT,Z(NZ+1),1)\r\n      MCB(1) = IN1\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = IOUT\r\n      ND  = MCB(2)/3\r\n      ITC = MCB(5)\r\n      INCR = 1\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 40 I = 1,ND\r\n      CALL SKPREC (IN1,1)\r\n      CALL CYCT2B (IN2,IOUT,1,Z,MCB)\r\n      CALL CYCT2B (IN1,IOUT,2,Z,MCB)\r\n   40 CONTINUE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (IN1,1)\r\n      CALL CLOSE (IN2,1)\r\n      CALL CLOSE (IOUT,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddr2.f",
    "content": "      SUBROUTINE DDR2\r\nC\r\nC     DYNAMIC DATA RECOVERY--PART 2 --MODE ACCELERATION\r\nC\r\nC     DMAP SEQUENCE\r\nC\r\nC     INPUTS = 9\r\nC\r\nC     USETD,VUD,PD,K2DD,B2DD,MDD,FRL,LLL,DM\r\nC\r\nC     OUTPUTS = 3\r\nC\r\nC     UAV,UEV,PAF\r\nC\r\nC     SCRATCHES = 6\r\nC\r\nC     PARAMETERS 1 BCD, 3INTEGERS\r\nC\r\n      INTEGER         USETD,PD,B2DD,FRL,DM,UAV,PAF,\r\n     1                SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,\r\n     2                TYPE,REACT,TRAN,USET,VUD,PAD,UEV,PL\r\n      COMMON /BLANK / TYPE(2),NOUE,REACT,FRQSET\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD\r\n      COMMON /PATX  / LC,N,NO,N4,USET\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      DATA    USETD , VUD, PD, K2DD,B2DD,MDD,FRL,LLL,DM  /\r\n     1        101   , 102,103,  104, 105,106,107,108,109 /\r\n      DATA    UAV   , UEV, PAF, TRAN   /\r\n     1        201   , 202, 203, 4HTRAN /\r\n      DATA    SCR2  , SCR3,SCR4,SCR5,SCR6,SCR7,PAD /\r\n     1        302   , 303 , 304, 305, 306, 301,302 /\r\nC\r\nC\r\n      LC   = KORSZ(CORE)\r\n      VUD  = 102\r\n      SCR7 = 301\r\n      USET = USETD\r\n      PL   = SCR6\r\n      ISOL = SCR7\r\n      IF (NOUE .GE. 0) GO TO 10\r\n      PAD  = PAF\r\n   10 CONTINUE\r\n      IF (TYPE(1) .NE. TRAN) SCR7 = UAV\r\n      IF (TYPE(1).NE.TRAN .AND. REACT.LT.0 .AND. NOUE.GE.0) SCR7 = VUD\r\nC\r\nC     MODE ACCELERATION\r\nC\r\nC     FORM PAD\r\nC\r\nC\r\n      CALL DDR1A (PD,K2DD,B2DD,MDD,VUD,PAD,FRL,FRQSET,SCR3,SCR4,SCR5,\r\n     1            SCR6,TYPE(1),SCR7)\r\nC\r\nC     DISP ON SCR7 IN TRANSIENT\r\nC\r\n      IF (NOUE .LT. 0) GO TO 50\r\n      CALL CALCV (SCR3,UD,UA,UE,CORE(1))\r\n      CALL SSG2A (VUD,SCR4,UEV,SCR3)\r\nC\r\nC     UA IS ON SCR4\r\nC\r\n      VUD = SCR4\r\nC\r\nC     BREAK UP PAD\r\nC\r\n      CALL SSG2A (PAD,PAF,SCR5,SCR3)\r\n   50 IF (REACT .GE. 0) GO TO 90\r\nC\r\nC     UR NULL\r\nC\r\n      IF (TYPE(1) .NE. TRAN) SCR7 = ISOL\r\n      IF (TYPE(1).NE.TRAN .AND. NOUE.LT.0) SCR7 = UAV\r\n      CALL SSG3A (0,LLL,PAF,SCR7,SCR3,SCR6,-1,0)\r\n   60 IF (TYPE(1) .NE. TRAN) GO TO 80\r\nC\r\nC     MERGE RECALCULATED SOLUTIONS AND ACCEL AND VELOCITY\r\nC\r\n      ISOL = UAV\r\n      IF (NOUE .LT. 0) GO TO 70\r\n      ISOL = SCR5\r\n   70 CALL DDR1B (VUD,SCR7,ISOL)\r\nC\r\nC     BUILD UP TO DSIZE  ADDING IN UEV\r\nC\r\n   80 IF (NOUE .LT. 0) GO TO 30\r\n      CALL SDR1B (SCR4,ISOL,UEV,UAV,UD,UA,UE,USETD,0,0)\r\n   30 RETURN\r\nC\r\nC     FREE BODY PROBLEM\r\nC\r\n   90 CALL CALCV (SCR3,UA,UL,UR,CORE(1))\r\nC\r\nC     PARTITION PAF AND UA\r\nC\r\n      CALL SSG2A (PAF,PL,SCR5,SCR3)\r\n      IVEC = VUD\r\n      IF (TYPE(1) .EQ. TRAN) IVEC = SCR7\r\n      CALL SSG2A (IVEC,SCR2,SCR5,SCR3)\r\nC\r\nC     UR IS  ON SCR5\r\nC\r\n      CALL SSG3A (0,LLL,PL,SCR3,SCR2,SCR6,-1,0)\r\n      CALL SSG2B (DM,SCR5,SCR3,SCR4,0,2,1,SCR6)\r\n      CALL SDR1B (SCR3,SCR4,SCR5,SCR7,UA,UL,UR,USETD,0,0)\r\n      GO TO 60\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmm.f",
    "content": "      SUBROUTINE DDRMM\r\nC\r\nC     DYNAMIC-DATA-RECOVERY-MATRIX-METHOD\r\nC\r\nC     DMAP SEQUENCES. ONLY SORT2 IS USED\r\nC\r\nC     (TRANSIENT RESPONCE)\r\nC     ====================\r\nC     DDRMM    CASEXX,UHVT,PPT,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/\r\nC              ZUPV2,ZQP2,ZES2,ZEF2, $\r\nC\r\nC     (FREQUENCY RESPONSE)\r\nC     ====================\r\nC     DDRMM    CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,XYCDB,EST,MPT,DIT/\r\nC              ZUPVC1,ZQPC1,ZESC1,ZEFC1, $\r\nC       OR\r\nC     DDRMM    CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/\r\nC              ZUPVC2,ZQPC2,ZESC2,ZEFC2, $\r\nC\r\n      LOGICAL  TRNSNT  ,SORT2    ,COL1     ,FRSTID\r\n      INTEGER  OUTPT   ,SYSBUF   ,Z        ,RD       ,WRT      ,CLS\r\n      INTEGER  FILE    ,BUF(150) ,UV       ,RDREW    ,WRTREW   ,CLSREW\r\n      INTEGER  CASECC  ,PHASE    ,SUBR(2)  ,BUFF     ,DHSIZE\r\n      INTEGER  PP      ,DVA(3)   ,SCRT1    ,SCRT2    ,SCRT3    ,SCRT4\r\n      INTEGER  SCRT5   ,SCRT6    ,FRQSET   ,ENTRYS   ,SCRT     ,BUF1\r\n      INTEGER  BUF2    ,BUF3     ,BUF4     ,BUF5     ,BUF6\r\n      INTEGER  IFILE(4),OFILE(4) ,FILNAM   ,SETS     ,PASSES\r\n      INTEGER  EOR     ,OUTFIL   ,SETID    ,UVSOL    ,SCRT7\r\n      INTEGER  SAVDAT  ,SUBCAS   ,INBLK(15),OUBLK(15)\r\n      REAL     RZ(1)   ,LAMBDA   ,RIDREC(146)\r\n      CHARACTER         UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON  /XMSSG /  UFM      ,UWM      ,UIM,SFM  ,SWM\r\n      COMMON  /SYSTEM/  SYSBUF   ,OUTPT    ,XSYS(22) ,ISWTCH\r\n      COMMON  /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW\r\n     1                 ,CLS\r\n      COMMON  /ZZZZZZ/  Z(1)\r\n      COMMON  /DDRMC1/  IDREC(146),BUFF(6) ,PASSES   ,OUTFIL   ,JFILE\r\n     1                 ,MCB(7)   ,ENTRYS   ,SETS(5,3),INFILE   ,LAMBDA\r\n     2                 ,FILE     ,SORT2    ,COL1     ,FRSTID   ,NCORE\r\n     3                 ,NSOLS    ,DHSIZE   ,FILNAM(2),RBUF(150),IDOUT\r\n     4                 ,ICC      ,NCC      ,ILIST    ,NLIST    ,NWDS\r\n     5                 ,SETID    ,TRNSNT   ,I1       ,I2       ,PHASE\r\n     6                 ,ITYPE1   ,ITYPE2   ,NPTSF    ,LSF      ,NWDSF\r\n     7                 ,SCRT(7)  ,IERROR   ,ITEMP    ,DEVICE   ,FORM\r\n     8                 ,ISTLST   ,LSTLST   ,UVSOL    ,NLAMBS   ,NWORDS\r\n     9                 ,OMEGA    ,IPASS    ,SUBCAS\r\n      COMMON  /STDATA/  LMINOR   ,NSTXTR   ,NPOS     ,SAVDAT(110)\r\n      EQUIVALENCE       (RZ(1),Z(1))   , (RBUF(1),BUF(1))\r\n      EQUIVALENCE       (SCRT1,SCRT(1)), (SCRT2,SCRT(2))\r\n      EQUIVALENCE       (SCRT3,SCRT(3)), (SCRT4,SCRT(4))\r\n      EQUIVALENCE       (SCRT5,SCRT(5)), (SCRT6,SCRT(6))\r\n      EQUIVALENCE       (SCRT7,SCRT(7)), (RIDREC(1),IDREC(1))\r\n      EQUIVALENCE       (BUF1,BUFF(1)) , (BUF2,BUFF(2))\r\n      EQUIVALENCE       (BUF3,BUFF(3)) , (BUF4,BUFF(4))\r\n      EQUIVALENCE       (BUF5,BUFF(5)) , (BUF6,BUFF(6))\r\n      DATA     IFROUT/  145 /,  DVA   / 20, 32, 29 /\r\n      DATA     ISTRES,  IFORCE, ISPCF / 23, 26, 35 /\r\n      DATA     ILSYM /  166 /\r\n      DATA     SUBR  /  4HDDRM, 4HM        /\r\n      DATA     EOR   ,  NOEOR  / 1,  0        /\r\n      DATA     CASECC,  UV, PP /  101, 102, 103 /\r\n      DATA     IFILE /  104, 105, 106, 107 /\r\n      DATA     OFILE /  201, 202, 203, 204 /\r\nC\r\nC     DETERMINE OPEN CORE AVAILABLE AND ALLOCATE BUFFERS.\r\nC\r\n      DO 5 I = 1,100\r\n    5 SAVDAT(I) = 0\r\n      DO 6 I = 6,8\r\n      SAVDAT(I   ) = 102\r\n    6 SAVDAT(I+11) = 102\r\n      SAVDAT(  15) = 102\r\n      SAVDAT(  76) = 2\r\n      SAVDAT(  77) = 10\r\n      DO 10 I = 1,7\r\n      SCRT(I) = I + 300\r\n   10 CONTINUE\r\n      NCORE = KORSZ(Z)\r\n      DO 20 I = 1,6\r\n      BUFF(I) = NCORE - SYSBUF - 2\r\n      NCORE   = BUFF(I) - 1\r\n   20 CONTINUE\r\nC\r\nC     GET FIRST SUBCASE OF CASE CONTROL INTO CORE\r\nC\r\n      IERROR = 0\r\n      SUBCAS = 1\r\n      ICC    = 1\r\n      FILE   = CASECC\r\n      CALL OPEN (*480,CASECC,Z(BUF1),RDREW)\r\n      CALL FWDREC (*490,CASECC)\r\n      CALL READ (*490,*30,CASECC,Z(ICC),NCORE-ICC,NOEOR,NWDS)\r\n      IERROR = 1\r\n      GO TO 510\r\nC\r\n   30 NCC = ICC + NWDS - 1\r\n      CALL CLOSE (CASECC,CLS)\r\nC\r\nC     READ TRAILER OF SOLUTION DATA BLOCK. IF SOLUTION IS\r\nC     COMPLEX, THEN FREQUENCY RESPONCE IS ASSUMED. IF REAL, THEN\r\nC     TRANSIENT RESPONSE IS ASSUMED.\r\nC\r\n      MCB(1) = UV\r\n      CALL RDTRL (MCB)\r\n      TRNSNT = .TRUE.\r\n      IF (MCB(5) .GT. 2) TRNSNT = .FALSE.\r\nC\r\nC     SET NUMBER OF EIGENVALUES = ROWS IN SOLUTION DATA BLOCK\r\nC\r\n      NLAMBS = MCB(3)\r\nC\r\nC     SET NUMBER OF SOLUTIONS.(TIME STEPS X 3, OR FREQUENCYS)\r\nC\r\n      NSOLS = MCB(2)\r\nC\r\nC     OPEN UV AND POSITION OVER HEADER RECORD.\r\nC\r\n      FILE = UV\r\n      CALL OPEN (*480,UV,Z(BUF1),RDREW)\r\n      CALL FWDREC (*490,UV)\r\n      CALL CLOSE (UV,CLS)\r\nC\r\nC     READ LIST OF FREQUENCYS OR TIME STEPS FROM INPUT LOAD MATRIX\r\nC     HEADER.\r\nC\r\n   33 ILIST = NCC + 1\r\n      FILE  = PP\r\n      CALL OPEN (*480,PP,Z(BUF1),RDREW)\r\n      IERROR = 2\r\n      CALL READ (*490,*500,PP,BUF(1),-2,NOEOR,NWDS)\r\n      CALL READ (*490,*35,PP,Z(ILIST),NCORE-ILIST,NOEOR,ENTRYS)\r\n      GO TO 510\r\nC\r\n   35 NLIST = ILIST + ENTRYS - 1\r\n      CALL CLOSE (PP,CLSREW)\r\nC\r\nC     IF FREQUENCY RESPONSE PROBLEM, AND USER HAS SPECIFIED A LIST OF\r\nC     FREQUENCYS TO BE USED AS A GUIDE IN DETERMINING A SUBSET OF\r\nC     SOLUTIONS FOR OUTPUT PURPOSES, AND NOT ALL SOLUTIONS WILL BE\r\nC     OUTPUT, THEN A MODIFIED SOLUTION MATRIX IS NOW FORMED ON\r\nC     SCRATCH-1. THIS WILL ELIMINATE UNNECESSARY MATRIX-MULTIPLIES LATER\r\nC\r\nC     IN ANY EVENT THE NEXT SUBCASE-S SOLUTIONS ARE PLACED ON SCRT1.\r\nC\r\n      UVSOL = UV\r\n      IF (TRNSNT) GO TO 190\r\nC\r\nC     EXPAND LIST OF FREQS PLACING A FLAG AFTER EACH.\r\nC\r\n      J = NLIST\r\n      NLIST  = NLIST + ENTRYS\r\n      IERROR = 4\r\n      IF (NLIST .GT. NCORE) GO TO 510\r\n      K = NLIST - 1\r\n      DO 40 I = 1,ENTRYS\r\n      Z(K  ) = Z(J)\r\n      Z(K+1) = 0\r\n      K = K - 2\r\n      J = J - 1\r\n   40 CONTINUE\r\nC\r\nC     SET FLAGS OF FREQUENCYS TO BE OUTPUT.\r\nC\r\n      INDEX  = ICC + IFROUT - 1\r\n      FRQSET = Z(INDEX)\r\n      IF (FRQSET .LE. 0) GO TO 60\r\n      INDEX = ICC + ILSYM - 1\r\n      INDEX = Z(INDEX) + 1\r\n   50 ISETX = INDEX + 2\r\n      NSETX = ISETX + Z(INDEX+1) - 1\r\n      IF (Z(INDEX) .EQ. FRQSET) GO TO 80\r\n      INDEX = NSETX + 1\r\n      IF (INDEX .LT. NCC) GO TO 50\r\n      FRQSET = -1\r\nC\r\nC     ALL FREQUENCYS TO BE OUTPUT.\r\nC\r\n   60 DO 70 I = ILIST,NLIST,2\r\n      Z(I+1) = 1\r\n   70 CONTINUE\r\n      GO TO 110\r\nC\r\nC     COMPARE REQUESTED FREQS WITH ACTUAL FREQS.\r\nC\r\n   80 DO 100 I = ISETX,NSETX\r\n      K    = 0\r\n      DIFF = 1.0E+25\r\n      FRQ  = RZ(I)\r\n      DO 90 J = ILIST,NLIST,2\r\n      IF (Z(J+1) .NE. 0) GO TO 90\r\n      DIFF1 = ABS(RZ(J)-FRQ)\r\n      IF (DIFF1 .GE. DIFF) GO TO 90\r\n      DIFF = DIFF1\r\n      K    = J\r\n   90 CONTINUE\r\n      IF (K .NE. 0) Z(K+1) = 1\r\n  100 CONTINUE\r\nC\r\n  110 FILE = UV\r\n      IERROR = 5\r\n      CALL OPEN (*480,UV,Z(BUF1),RD)\r\n      FILE = SCRT1\r\n      CALL OPEN (*480,SCRT1,Z(BUF2),WRTREW)\r\n      CALL FNAME (SCRT1,FILNAM)\r\n      CALL WRITE (SCRT1,FILNAM,2,EOR)\r\n      FILE = UV\r\nC\r\nC     COPY SOLUTION COLUMNS TO BE USED BY NOTEING FREQS MARKED FOR USE.\r\nC\r\n      NSOLS    = 0\r\n      INBLK(1) = UV\r\n      OUBLK(1) = SCRT1\r\n      DO 150 I = ILIST,NLIST,2\r\n      IF (Z(I+1)) 130,120,130\r\n  120 CALL FWDREC (*490,UV)\r\n      GO TO 150\r\nC\r\nC     BLAST COPY THIS SOLUTION.\r\nC\r\n  130 ICOL = (I-ILIST)/2 + 1\r\n      CALL CPYSTR (INBLK,OUBLK,0,ICOL)\r\n      NSOLS = NSOLS + 1\r\n  150 CONTINUE\r\nC\r\nC     RESET -UV- DATA BLOCK DESIGNATOR TO POINT TO SCRT1, AND WRITE\r\nC     A TRAILER.\r\nC\r\n      CALL CLOSE (UV,CLS)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      MCB(1) = UV\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = SCRT1\r\n      MCB(2) = NSOLS\r\n      CALL WRTTRL (MCB)\r\n      UVSOL = SCRT1\r\nC\r\nC     SHRINK UP THE FREQUENCY LIST TO MATCH SOLUTION MATRIX\r\nC\r\n      J = ILIST - 1\r\n      DO  180 I = ILIST,NLIST,2\r\n      IF (Z(I+1)) 170,180,170\r\n  170 J = J + 1\r\n      Z(J) = Z(I)\r\n  180 CONTINUE\r\n      NLIST = J\r\nC\r\nC     IF THIS IS A TRANSIENT RESPONSE PROBLEM, THE SOLUTION MATRIX IS\r\nC     NOW PARTITIONED INTO 3 SOLUTION MATRICES FOR DISP, VEL, AND ACCEL.\r\nC\r\n  190 IF (.NOT. TRNSNT) GO TO 260\r\n      FILE   = UV\r\n      IERROR = 6\r\n      CALL OPEN (*480,UV,Z(BUF1),RD)\r\n      MCB(1)   = UV\r\n      INBLK(1) = UV\r\n      CALL RDTRL (MCB)\r\n      DO  200 I = 1,3\r\n      FILE = SCRT(I)\r\n      IBUF = BUFF(I+1)\r\n      CALL OPEN (*480,FILE,Z(IBUF),WRTREW)\r\n      CALL FNAME (FILE,FILNAM)\r\n      CALL WRITE (FILE,FILNAM,2,EOR)\r\n      MCB(1) = FILE\r\n      MCB(2) = NSOLS/3\r\n      CALL WRTTRL (MCB)\r\n  200 CONTINUE\r\n      IERROR = 7\r\n      FILE   = UV\r\n      DO 240 I = 1,NSOLS,3\r\n      DO 230 J = 1,3\r\n      OUBLK(1) = SCRT(J)\r\n      CALL CPYSTR (INBLK,OUBLK,0,I)\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n      CALL CLOSE (UV,CLSREW)\r\n      NSOLS = NSOLS/3\r\nC\r\n      DO 250 I = 1,3\r\n      CALL CLOSE (SCRT(I),CLSREW)\r\n  250 CONTINUE\r\nC\r\nC     SDR2 FORMED MODAL SOLUTIONS FOR DISPLACEMENTS, SINGLE-POINT-\r\nC     CONSTRAINT-FORCES, ELEMENT STRESSES, AND ELEMENT FORCES MAY BE\r\nC     PRESENT. (ALL WILL BE SORT1-REAL, OR SORT2-REAL)\r\nC\r\nC     IF THIS IS A TRANSIENT PROBLEM, THE SOLUTIONS PRESENT HAVE BEEN\r\nC     PARTITIONED INTO THE DISPLACEMENT, VELOCITY, AND ACCELERATION\r\nC     SUBSETS. ONLY WHEN OPERATING ON THE MODAL DISPLACEMENTS WILL THE\r\nC     VELOCITY AND ACCELERATION SOLUTION SUBSET MATRICES BE USED.\r\nC\r\n  260 JFILE  = 1\r\n  270 INFILE = IFILE(JFILE)\r\nC\r\nC     CHECK FOR EXISTENCE OF MODAL SOLUTION -INFILE-.\r\nC\r\n      CALL OPEN (*470,INFILE,Z(BUF1),RDREW)\r\n      CALL FWDREC (*460,INFILE)\r\nC\r\nC     INFILE DOES EXIST.SET PARAMETERS FOR PROCESSING\r\nC\r\nC\r\nC     OPEN OFP-FORMAT OUTPUT FILE FOR THIS INFILE.\r\nC\r\n      OUTFIL = OFILE(JFILE)\r\n      IWRT = WRTREW\r\n      IF (SUBCAS .GT. 1) IWRT = WRT\r\n      CALL OPEN (*280,OUTFIL,Z(BUF4),IWRT)\r\n      IF (SUBCAS .GT. 1) GO TO 305\r\n      GO TO 300\r\n  280 WRITE  (OUTPT,290) UWM,INFILE\r\n  290 FORMAT (A25,' 2331. (DDRMM-2) OUTPUT DATA BLOCK CORRESPONDING TO',\r\n     1       ' INPUT MODAL SOLUTION DATA BLOCK',I4, /5X,\r\n     2       'IS NOT PRESENT.  INPUT DATA BLOCK IGNORED.')\r\n      GO TO 460\r\nC\r\n  300 CALL FNAME (OUTFIL,FILNAM)\r\n      CALL WRITE (OUTFIL,FILNAM,2,EOR)\r\n  305 CALL CLOSE (OUTFIL,CLS)\r\nC\r\nC     READ FIRST OFP-ID RECORD AND DETERMINE WHAT THE HELL IS REALLY\r\nC     PRESENT.\r\nC\r\n      IERROR = 14\r\n      CALL READ (*460,*460,INFILE,IDREC,146,EOR,NWDS)\r\nC\r\nC     MAJOR ID AND SORT1 OR SORT2 DETERMINATION.\r\nC\r\n      ITYPE1 = IDREC(2)/1000\r\n      SORT2  = .FALSE.\r\n      IF (ITYPE1 .GT. 1) SORT2 = .TRUE.\r\n      ITYPE1 = IDREC(2) - ITYPE1*1000\r\nC\r\nC     BRANCH ON MAJOR ID\r\nC\r\n      IF (ITYPE1.LT.1 .OR. ITYPE1.GT.7) GO TO 410\r\n      PASSES = 1\r\n      GO TO (410,410,370,380,390,410,310), ITYPE1\r\nC\r\nC     MODAL DISPLACEMENTS = EIGENVECTORS ARE ON INFILE.\r\nC\r\n  310 PASSES = 3\r\n      NWORDS = 2\r\nC\r\nC     DETERMINE DISP, VEL, AND ACCEL SET REQUESTS.\r\nC\r\n  312 IBASE = ICC + ILSYM - 1\r\n      IBASE = Z(IBASE) + 1\r\n      DO 350 I = 1,PASSES\r\n      IF (PASSES .EQ. 1) GO TO 315\r\n      ITEMP = ICC + DVA(I) - 1\r\n  315 SETS(1,I) = Z(ITEMP)\r\n      SETS(2,I) = Z(ITEMP+1)\r\n      SETS(3,I) = IABS(Z(ITEMP+2))\r\n      SETS(4,I) = 0\r\n      SETS(5,I) = 0\r\n      IF (SETS(1,I)) 350,350,320\r\n  320 INDEX = IBASE\r\n  330 ISETX = INDEX + 2\r\n      IF (Z(INDEX) .EQ. SETS(1,I)) GO TO 340\r\n      INDEX = ISETX + Z(INDEX+1)\r\n      IF (INDEX .LT. NCC) GO TO 330\r\n      SETS(1,I) = -1\r\n      GO TO 350\r\n  340 SETS(4,I) = ISETX\r\n      SETS(5,I) = Z(INDEX+1)\r\n  350 CONTINUE\r\n      GO TO 430\r\nC\r\nC     MODAL SPCF-S ARE ON INFILE.\r\nC\r\n  370 ITEMP  = ICC + ISPCF - 1\r\n      NWORDS = 2\r\n      GO TO 312\r\nC\r\nC     MODAL FORCES ARE ON INFILE.\r\nC\r\n  380 ITEMP  = ICC + IFORCE - 1\r\n      NWORDS = 1\r\n      GO TO 312\r\nC\r\nC     MODAL STRESSES ARE ON INFILE.\r\nC\r\n  390 ITEMP  = ICC + ISTRES - 1\r\n      NWORDS = 1\r\n      GO TO 312\r\nC\r\nC     ILLEGAL INFILE DATA.\r\nC\r\n  410 WRITE  (OUTPT,420) UWM,INFILE\r\n  420 FORMAT (A25,' 2332.  (DDRMM-4) INVALID INPUT DATA DETECTED IN ',\r\n     1       'DATA BLOCK',I5,'. PROCESSING STOPPED FOR THIS DATA BLOCK')\r\n      GO TO 460\r\nC\r\nC     CALL PROCESSOR TO BUILD DATA-MATRIX ON SCRT5 AND MAPPING-DATA ON\r\nC     SCRT4, AND THEN PERFORM OUTPUT OF RESULTS TO OUTFIL.\r\nC\r\n  430 IF (SORT2) GO TO 440\r\nC\r\nC     SORT1 PROCESSOR\r\nC\r\n      CALL DDRMM1 (*480,*490,*500,*510)\r\n      GO TO 450\r\nC\r\nC     SORT2 PROCESSOR\r\nC\r\n  440 CALL DDRMM2 (*480,*490,*500,*510)\r\nC\r\nC     WRAP UP PROCESSING FOR THIS INFILE.\r\nC\r\n  450 MCB(1) = OUTFIL\r\n      MCB(2) = 1\r\n      CALL WRTTRL (MCB)\r\n  460 CALL CLOSE (OUTFIL,CLSREW)\r\n      CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (SCRT4, CLSREW)\r\n      CALL CLOSE (SCRT5, CLSREW)\r\nC\r\nC     PROCESS NEXT MODAL SOLUTION INPUT.\r\nC\r\n  470 JFILE = JFILE + 1\r\n      IF (JFILE .LE. 4) GO TO 270\r\nC\r\nC     ALL WORK COMPLETE FOR THIS SUBCASE. IF FREQUENCY RESPONSE PROCESS\r\nC     NEXT SUBCASE.\r\nC\r\n      IF (TRNSNT) GO TO 479\r\n      FILE   = CASECC\r\n      IERROR = 471\r\n      CALL OPEN (*480,CASECC,Z(BUF1),RD)\r\n      CALL READ (*479,*472,CASECC,Z(ICC),NCORE-ICC,NOEOR,NWDS)\r\n      GO TO 510\r\nC\r\n  472 NCC    = ICC + NWDS - 1\r\n      SUBCAS = SUBCAS + 1\r\n      CALL CLOSE (CASECC,CLS)\r\n      GO TO 33\r\nC\r\nC//// SUBCAS  NUMBER NEEDS TO GET INTO OUTPUT BLOCKS\r\nC\r\n  479 IERROR = 511\r\n      CALL CLOSE (CASECC,CLSREW)\r\n      GO TO 560\r\nC\r\nC     ERRORS FORCING TERMINATION OF THIS MODULE.\r\nC\r\n  480 KK = 1\r\n      GO TO 520\r\n  490 KK = 2\r\n      GO TO 520\r\n  500 KK = 3\r\n      GO TO 520\r\n  510 KK = 8\r\n      GO TO 520\r\n  520 CALL MESAGE (KK,FILE,SUBR)\r\n      WRITE  (OUTPT,530) SWM,IERROR\r\n  530 FORMAT (A27,' 2333.  (DDRMM-1) MODULE DDRMM TERMINATED WITH ',\r\n     1       'VARIABLE IERROR =',I10)\r\nC\r\nC     INSURE ALL FILES CLOSED BEFORE RETURNING.\r\nC\r\n      DO 550 L = 100,300,100\r\n      DO 540 M = 1,11\r\n      JFILE = M + L\r\n      CALL CLOSE (JFILE,CLSREW)\r\n  540 CONTINUE\r\n  550 CONTINUE\r\nC\r\nC     INSURE ALL OUT-FILES HAVE AN EOF.\r\nC\r\n  560 DO 570 L = 201,204\r\n      CALL OPEN (*570,L,Z(BUF1),WRT)\r\n      CALL CLOSE (L,CLSREW)\r\n  570 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmm1.f",
    "content": "      SUBROUTINE DDRMM1 (*,*,*,*)\r\nC\r\nC     PERFORMS SORT1 TYPE PROCESSING FOR MODULE DDRMM.\r\nC\r\n      LOGICAL         SORT2    ,COL1     ,FRSTID   ,IDOUT    ,TRNSNT  ,\r\n     1                ANYXY    ,LMINOR\r\n      INTEGER         BUF1     ,BUF2     ,BUF3     ,BUF4     ,BUF5    ,\r\n     1                BUF6     ,BUFF     ,EOR      ,RD       ,RDREW   ,\r\n     2                WRT      ,WRTREW   ,CLS      ,CLSREW   ,ELEM    ,\r\n     3                IA(4)    ,SETS     ,ENTRYS   ,SYSBUF   ,OUTPT   ,\r\n     4                PASSES   ,OUTFIL   ,FILE     ,DHSIZE   ,FILNAM  ,\r\n     5                SETID    ,FORM     ,DEVICE   ,PHASE    ,SCRT    ,\r\n     6                SCRT1    ,SCRT2    ,SCRT3    ,SCRT4    ,SCRT5   ,\r\n     7                SCRT6    ,SCRT7    ,DVAMID(3),BUF(150) ,Z(1)    ,\r\n     8                UVSOL    ,SUBCAS   ,SAVDAT   ,SAVPOS   ,BUFSAV\r\n      REAL            RIDREC(6),LAMBDA\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /STDATA/ LMINOR   ,NSTXTR   ,NPOS     ,SAVDAT(75)        ,\r\n     1                SAVPOS(25)         ,BUFSAV(10)\r\n      COMMON /SYSTEM/ SYSBUF   ,OUTPT\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW  ,\r\n     1                CLS\r\n      COMMON /ZBLPKX/ A(4)     ,IROW\r\n      COMMON /ZNTPKX/ AOUT(4)  ,IROWO    ,IEOL     , IEOR\r\n      COMMON /GPTA1 / NELEM    ,LAST     ,INCR     ,ELEM(1)\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /MPYADX/ MCBA(7)  ,MCBB(7)  ,MCBC(7)  ,MCBD(7)  ,LZ      ,\r\n     1                ITFLAG   ,ISINAB   ,ISINC    ,IPREC    ,ISCRT\r\n      COMMON /DDRMC1/ IDREC(146),BUFF(6) ,PASSES   ,OUTFIL   ,JFILE   ,\r\n     1                MCB(7)   ,ENTRYS   ,SETS(5,3),INFILE   ,LAMBDA  ,\r\n     2                FILE     ,SORT2    ,COL1     ,FRSTID   ,NCORE   ,\r\n     3                NSOLS    ,DHSIZE   ,FILNAM(2),RBUF(150),IDOUT   ,\r\n     4                ICC      ,NCC      ,ILIST    ,NLIST    ,NWDS    ,\r\n     5                SETID    ,TRNSNT   ,I1       ,I2       ,PHASE   ,\r\n     6                ITYPE1   ,ITYPE2   ,NPTSF    ,LSF      ,NWDSF   ,\r\n     7                SCRT(7)  ,IERROR   ,ITEMP    ,DEVICE   ,FORM    ,\r\n     8                ISTLST   ,LSTLST   ,UVSOL    ,NLAMBS   ,NWORDS  ,\r\n     9                OMEGA    ,IPASS    ,SUBCAS\r\n      COMMON /CONDAS/ PI       ,TWOPI\r\n      EQUIVALENCE     (SCRT1,SCRT(1)), (SCRT2,SCRT(2)), (SCRT3,SCRT(3)),\r\n     1                (SCRT4,SCRT(4)), (SCRT5,SCRT(5)), (SCRT6,SCRT(6)),\r\n     2                (SCRT7,SCRT(7)), (BUF1 ,BUFF(1)), (BUF2 ,BUFF(2)),\r\n     3                (BUF3 ,BUFF(3)), (BUF4 ,BUFF(4)), (BUF5 ,BUFF(5)),\r\n     4                (BUF6 ,BUFF(6)), (A(1) ,  IA(1)), (Z(1) ,  RZ(1)),\r\n     5                (IDREC(1),RIDREC(1)), (BUF(1),RBUF(1))\r\n      DATA    EOR   , NOEOR / 1, 0 /, DVAMID / 1, 10, 11 /\r\nC\r\nC     FORMATION OF DATA-MATRIX AND SUBSEQUENT MULTIPLY BY SOLUTION-\r\nC     MATRIX AND ULTIMATE OUTPUT OF TRANSIENT OR FREQUENCY SOLUTIONS.\r\nC\r\n      IPASS  = 1\r\n   20 COL1   = .TRUE.\r\n      FRSTID = .TRUE.\r\n      SETID  = SETS(1,IPASS)\r\n      DEVICE = SETS(2,IPASS)\r\n      FORM   = SETS(3,IPASS)\r\n      ISTLST = SETS(4,IPASS)\r\n      LSTLST = SETS(5,IPASS)\r\nC\r\nC     GET LIST OF XYPLOT REQUESTED IDS FOR CURRENT SUBCASE AND\r\nC     OUTFIL TYPE.\r\nC\r\n      GO TO (22,23,24,25), JFILE\r\nC\r\nC     DISPLACEMENT, VELOCITY, ACCELERATION\r\nC\r\n   22 IXYTYP = IPASS\r\n      GO TO 26\r\nC\r\nC     SPCF\r\nC\r\n   23 IXYTYP = 4\r\n      GO TO 26\r\nC\r\nC     STRESS\r\nC\r\n   24 IXYTYP = 6\r\n      GO TO 26\r\nC\r\nC     FORCE\r\nC\r\n   25 IXYTYP = 7\r\n      GO TO 26\r\nC\r\n   26 IXY = NLIST + 1\r\n      CALL DDRMMP (*380,Z(IXY),BUF3-IXY,LXY,IXYTYP,SUBCAS,Z(BUF3),ANYXY)\r\n      IF (.NOT.ANYXY .AND. SETID.EQ.0) GO TO 280\r\n      NXY = IXY + LXY - 1\r\nC\r\nC     INITIALIZE DATA MATRIX FILE(SCRT5), AND MAPPING TABLE FILE(SCRT4).\r\nC\r\n      IERROR = 22\r\n      FILE = SCRT4\r\n      CALL OPEN (*350,SCRT4,Z(BUF3),WRTREW)\r\n      FILE = SCRT5\r\n      CALL OPEN (*350,SCRT5,Z(BUF2),WRTREW)\r\n      CALL FNAME (SCRT5,FILNAM)\r\n      CALL WRITE (SCRT5,FILNAM,2,EOR)\r\nC\r\nC     GENERAL LOGIC TO BUILD SORT1 FORMAT DATA MATRIX.\r\nC\r\nC     EACH COLUMN WRITTEN HERE REPRESENTS ONE EIGENVALUE.\r\nC\r\nC          COMPONENTS FOR FIRST ID   *\r\nC              .                      *\r\nC              .                       *\r\nC              .                        *\r\nC          COMPONENTS FOR NEXT ID        * ONE COLUMN\r\nC              .                        *  OF DATA FOR EACH EIGENVALUE.\r\nC              .                       *\r\nC              .                      *\r\nC             ETC                    *\r\nC     --------------------------------------------- EOR\r\nC\r\nC          IDENTICAL COMPONENTS ARE REPRESENTED IN EACH COLUMN.\r\nC\r\nC\r\nC     READ AN OFP-ID-RECORD AND SET PARAMETERS.\r\nC     (ON ENTRY TO THIS PROCESSOR THE FIRST ID RECORD IS AT HAND)\r\nC\r\n      FILE   = INFILE\r\n      MCB(1) = SCRT5\r\n      MCB(2) = 0\r\n      MCB(3) = 0\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IF (IPASS.EQ.1 .AND. FRSTID) GO TO 50\r\n   40 CALL READ (*130,*130,INFILE,IDREC,146,EOR,NWDS)\r\n      MAJID = MOD(IDREC(2),1000)\r\n      IF (MAJID .NE. ITYPE1) GO TO 310\r\nC\r\nC     IF FIRST COLUMN, OFP-ID RECORD IS WRITTEN AS IS TO MAP FILE.\r\nC\r\n   50 IF (.NOT. COL1) GO TO 60\r\n      IF (.NOT.FRSTID .AND. RIDREC(6).NE.LAMBDA) GO TO 60\r\n      CALL WRITE (SCRT4,IDREC,146,EOR)\r\n   60 LENTRY = IDREC(10)\r\n      I1 = NWORDS + 1\r\n      I2 = LENTRY\r\n      MINOR = IDREC(3)\r\nC\r\nC     IF SAME EIGENVALUE AS THAT OF LAST OFP-ID RECORD THEN CONTINUE.\r\nC\r\n      IF (FRSTID) GO TO 70\r\n      IF (RIDREC(6) .EQ. LAMBDA) GO TO 80\r\nC\r\nC     NEW EIGENVALUE. COMPLETE CURRENT DATA MATRIX COLUMN AND START\r\nC     NEW COLUMN. PASS ONE IS NOW COMPLETE.\r\nC\r\n      CALL BLDPKN (SCRT5,0,MCB)\r\n      IF (COL1) IROW1 = IROW\r\n      IF (IROW .NE. IROW1) GO TO 290\r\n      COL1 = .FALSE.\r\nC\r\nC     START NEW COLUMN.\r\nC\r\n   70 CALL BLDPK (1,1,SCRT5,0,0)\r\n      IROW   = 0\r\n      FRSTID = .FALSE.\r\n      LAMBDA = RIDREC(6)\r\nC\r\nC     READ A POINT OR ELEMENT ENTRY.\r\nC\r\n   80 CALL READ (*360,*120,INFILE,BUF,LENTRY,NOEOR,NWDS)\r\n      ID = BUF(1)/10\r\nC\r\nC     CHECK FOR ID IN OUTPUT REQUEST LIST\r\nC\r\n      IDVICE = DEVICE\r\n      IF (SETID) 100,95,90\r\nC\r\nC//// NEXT MAY NOT NEED TO BE INITIALIZED EVERY TIME.\r\nC\r\n   90 NEXT = 1\r\n      CALL SETFND (*95,Z(ISTLST),LSTLST,ID,NEXT)\r\n      GO TO 100\r\n   95 IF (.NOT. ANYXY) GO TO 80\r\n      CALL BISLOC (*80,ID,Z(IXY),1,LXY,JP)\r\n      IDVICE = 0\r\nC\r\nC     THIS ID IS TO BE OUTPUT.\r\nC\r\n  100 IF (.NOT. COL1) GO TO 105\r\n      BUF(1) = 10*ID + IDVICE\r\n      CALL WRITE (SCRT4,BUF(1),NWORDS,NOEOR)\r\n      NSTXTR = 0\r\n      IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 104\r\n      NPOS   = SAVDAT(MINOR)/100\r\n      NSTXTR = SAVDAT(MINOR) - NPOS*100\r\n      DO 101 I = 1,NSTXTR\r\n      J = SAVPOS(NPOS+I-1)\r\n  101 BUFSAV(I) = BUF(J)\r\n      CALL WRITE (SCRT4,BUFSAV(1),NSTXTR,NOEOR)\r\n  104 CONTINUE\r\nC\r\nC     OUTPUT TO DATA MATRIX THE COMPONENTS OF THIS ENTRY.\r\nC\r\n  105 DO 110 I = I1,I2\r\n      IROW = IROW + 1\r\n      A(1) = RBUF(I)\r\nC\r\nC     GET RID OF INTEGERS.\r\nC\r\nC     OLD LOGIC -\r\nC     IF (MACH.NE.5 .AND.  IABS(IA(1)) .LT.   100000000) A(1) = 0.0\r\nC     IF (MACH.EQ.5 .AND. (IA(1).LE.127.AND.IA(1).GE.1)) A(1) = 0.0\r\nC     OLD LOGIC SHOULD INCLUDE ALPHA MACHINE (MACH=21)\r\nC\r\nC     NEW LOGIC BY G.CHAN/UNISYS, 8/91 -\r\n      IF (NUMTYP(IA(1)) .LE. 1) A(1) = 0.0\r\nC\r\n      CALL ZBLPKI\r\n  110 CONTINUE\r\n      GO TO 80\r\nC\r\nC     END OF CURRENT OFP-DATA RECORD ENCOUNTERED.\r\nC     IF NEXT OFP-ID-RECORD INDICATES ANOTHER OFP-DATA RECORD FOR\r\nC     THIS SAME EIGENVALUE (I.E. A CHANGE IN ELEMENT TYPE) THEN\r\nC     FURTHER CONSTRUCTION OF THE DATA MATRIX COLUMN TAKES PLACE.\r\nC\r\n  120 IF (COL1) CALL WRITE (SCRT4,0,0,EOR)\r\n      GO TO 40\r\nC\r\nC     END OF FILE ENCOUNTERED ON INFILE.\r\nC     DATA MATRIX AND MAPING FILE ARE COMPLETE.\r\nC\r\n  130 CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (SCRT4 ,CLSREW)\r\nC\r\nC     COMPLETE LAST COLUMN OF DATA MATRIX WRITTEN.\r\nC\r\n      IF (COL1) IROW1 = IROW\r\n      IF (IROW .NE. IROW1) GO TO 310\r\n      CALL BLDPKN (SCRT5,0,MCB)\r\n      MCB(3) = IROW\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (SCRT5,CLSREW)\r\nC\r\nC     TO GET SOLUTION MATRIX BASED ON SORT-1 INFILE.\r\nC\r\nC     SOLVE,\r\nC              (DATA MATRIX)     X    (MODAL SOLUTION MATRIX)\r\nC             NCOMPS X NLAMBS           NLAMBS X NSOLUTIONS\r\nC             ===============         =======================\r\nC\r\nC     RESULTANT MATRIX IS NCOMPS BY NSOLUTIONS IN SIZE.\r\nC\r\nC\r\nC     MATRIX MULTIPLY SETUP AND CALL.\r\nC\r\n      MCBA(1) = SCRT5\r\n      CALL RDTRL (MCBA)\r\n      MCBB(1) = UVSOL\r\n      IF (TRNSNT) MCBB(1) = SCRT(IPASS)\r\n      CALL RDTRL (MCBB)\r\n      MCBC(1) = 0\r\n      MCBD(1) = SCRT6\r\n      MCBD(2) = 0\r\n      MCBD(3) = IROW\r\n      MCBD(4) = 2\r\n      MCBD(5) = 1\r\n      MCBD(6) = 0\r\n      MCBD(7) = 0\r\n      IF (.NOT.TRNSNT) MCBD(5) = 3\r\n      NXY1    = NXY + 1\r\n      IF (MOD(NXY1,2) .EQ. 0) NXY1 = NXY1 + 1\r\n      LZ      = KORSZ(Z(NXY1))\r\n      ITFLAG  = 0\r\n      ISINAB  = 1\r\n      ISINC   = 1\r\n      IPREC   = 1\r\n      ISCRT   = SCRT7\r\n      CALL MPYAD (Z(NXY1),Z(NXY1),Z(NXY1))\r\n      MCBD(1) = SCRT6\r\n      CALL WRTTRL (MCBD)\r\nC\r\nC     PRODUCT MATRIX IS NOW OUTPUT, USING THE MAP ON SCRT4 FOR EACH\r\nC     COLUMN.  (SORT-1)  PRODUCT MATRIX IS ON SCRATCH DATA BLOCK 6.\r\nC\r\n      IERROR = 10\r\n      FILE = OUTFIL\r\n      CALL OPEN (*350,OUTFIL,Z(BUF1),WRT)\r\n      FILE = SCRT4\r\n      CALL OPEN (*350,SCRT4,Z(BUF2),RDREW)\r\n      FILE = SCRT6\r\n      CALL OPEN (*350,SCRT6,Z(BUF3),RDREW)\r\n      CALL FWDREC (*360,SCRT6)\r\n      JLIST = ILIST\r\nC\r\nC     LOOP ON COLUMNS OF SCRT6.\r\nC\r\n  140 CALL DDRMMA (.TRUE.)\r\nC\r\nC     READ AN OFP-ID-RECORD FROM THE MAP.\r\nC\r\n      FILE = SCRT4\r\n  150 CALL READ (*270,*370,SCRT4,IDREC,146,EOR,NWDS)\r\nC\r\nC     SET THE FREQUENCY OR TIME AND CLOBBER THE EIGENVALUE.\r\nC\r\n      RIDREC(5) = RZ(JLIST)\r\n      RIDREC(6) = 0.0\r\n      IDOUT = .FALSE.\r\n      MINOR = IDREC(3)\r\nC\r\nC     SET NUMBER OF STRESS OR FORCE WORDS AND COMPLEX POINTERS IF\r\nC     NECESSARY\r\nC\r\n      ITYPE2 = IDREC(3)\r\n      IF (ITYPE1.EQ.3 .OR. ITYPE1.EQ.7) GO TO 200\r\n      IELEM = (ITYPE2-1)*INCR\r\n      IF (ITYPE1 .EQ. 4) GO TO 180\r\n      IF (ITYPE1 .EQ. 5) GO TO 190\r\n      WRITE  (OUTPT,170) SWM,ITYPE1,ITYPE2,INFILE\r\n  170 FORMAT (A27,' 2334.  (DDRMM-3) ILLEGAL MAJOR OR MINOR OFP-ID ',\r\n     1       'IDENTIFICATIONS =',2I10, /5X,'DETECTED IN DATA BLOCK',I5,\r\n     2       '. PROCESSING OF SAID DATA BLOCK DISCONTINUED.')\r\n      GO TO 340\r\nC\r\nC     FORCES ASSUMED.\r\nC\r\n  180 LSF   = ELEM(IELEM+19)\r\n      NPTSF = ELEM(IELEM+21)\r\n      NWDSF = LSF\r\n      GO TO 220\r\nC\r\nC     STRESSES ASSUMED.\r\nC\r\n  190 LSF   = ELEM(IELEM+18)\r\n      NPTSF = ELEM(IELEM+20)\r\n      NWDSF = LSF\r\n      GO TO 220\r\nC\r\nC     SPCF OR DISPLACEMENTS ASSUMED\r\nC\r\n  200 IF (.NOT.TRNSNT) GO TO 210\r\n      NWDSF = 8\r\n      GO TO 220\r\n  210 NWDSF = 14\r\nC\r\nC     SET OMEGA IF THIS IS THE VELOCITY OR ACCELERATION PASS\r\nC\r\n      GO TO (220,211,212), IPASS\r\nC\r\nC     OMEGA FOR VELOCITY PASS\r\nC\r\n  211 OMEGA = TWOPI*RZ(JLIST)\r\n      GO TO 220\r\nC\r\nC     OMEGA FOR ACCELERATION PASS\r\nC\r\n  212 OMEGA = -((TWOPI*RZ(JLIST))**2)\r\nC\r\n  220 LENTRY = IDREC(10)\r\n      I1 = NWORDS + 1\r\n      I2 = LENTRY\r\nC\r\nC\r\nC     SET DISPLACEMENT, VELOCITY, OR ACCELERATION OFP MAJOR ID IF INFILE\r\nC     IS MODAL DISPLACEMENTS.\r\nC\r\n      IF (ITYPE1 .NE. 7) GO TO 230\r\n      IDREC(2) = DVAMID(IPASS)\r\n  230 IF (.NOT.TRNSNT) IDREC(2) = IDREC(2) + 1000\r\nC\r\nC     RESET APPROACH CODE FROM EIGENVALUE TO TRANSIENT OR FREQUENCY\r\nC\r\n      IAPP = 5\r\n      IF (TRNSNT) IAPP = 6\r\n      IDREC(1) = 10*IAPP + DEVICE\r\nC\r\nC     FILL TITLE, SUBTITLE, AND LABEL FROM CASECC FOR THIS SUBCASE.\r\nC\r\n      DO 238 I = 1,96\r\n      IDREC(I+50) = Z(ICC+I+37)\r\n  238 CONTINUE\r\n      IDREC(4) = SUBCAS\r\nC\r\nC     READ FIRST WORDS OF OUTPUT ENTRY FROM MAP.\r\nC\r\n  240 CALL READ (*360,*260,SCRT4,BUF,NWORDS,NOEOR,NWDS)\r\n      LMINOR = .TRUE.\r\n      IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 241\r\n      NPOS   = SAVDAT(MINOR)/100\r\n      NSTXTR = SAVDAT(MINOR) - NPOS*100\r\n      CALL READ (*360,*370,SCRT4,BUFSAV(1),NSTXTR,NOEOR,NWDS)\r\n      LMINOR = .FALSE.\r\n  241 CONTINUE\r\nC\r\nC     GET BALANCE USING UTILITY WHICH WILL COLLECT AND MAP TOGETHER\r\nC     AS REQUIRED REAL OR COMPLEX, AND GENERATE MAGNITUDE/PHASE IF\r\nC     REQUIRED.  (THIS ROUTINE WILL BUFFER DATA IN FROM SCRT6 AS IT\r\nC     NEEDS IT.)\r\nC\r\n      CALL DDRMMA (.FALSE.)\r\nC\r\nC     CALL DDRMMS TO RECOMPUTE SOME ELEMENT STRESS QUANTITIES\r\nC     IN TRANSIENT PROBLEMS ONLY.\r\nC\r\n      IF (TRNSNT .AND. ITYPE1.EQ.5) CALL DDRMMS (BUF,ITYPE2,BUF4,BUF5)\r\n      IF (IDOUT) GO TO 250\r\n      IDREC( 9) = FORM\r\n      IDREC(10) = NWDSF\r\n      CALL WRITE (OUTFIL,IDREC,146,EOR)\r\n      IDOUT = .TRUE.\r\nC\r\nC     OUTPUT THE COMPLETED ENTRY TO OFP OUTFIL.\r\nC\r\n  250 CALL WRITE (OUTFIL,BUF,NWDSF,NOEOR)\r\n      GO TO 240\r\nC\r\nC     END OF ENTRIES FOR ONE ID-REC HIT.  IF NO EOF ON MAP WITH\r\nC     NEXT READ, THEN CONTINUE OUTPUT OF THIS SOLUTION COLUMN.\r\nC\r\n  260 CALL WRITE (OUTFIL,0,0,EOR)\r\n      GO TO 150\r\nC\r\nC     END OF FILE ON MAP.  THUS START NEXT COLUMN IF REQUIRED.\r\nC\r\n  270 JLIST = JLIST + 1\r\n      IF (JLIST .GT. NLIST) GO TO 280\r\n      CALL REWIND (SCRT4)\r\n      GO TO 140\r\nC\r\nC     ALL DATA OF SOLUTION PRODUCT MATRIX HAS NOW BEEN OUTPUT.\r\nC\r\n  280 CALL CLOSE (OUTFIL,CLS)\r\n      CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      CALL CLOSE (SCRT6,CLSREW)\r\n      IPASS = IPASS + 1\r\n      IF (IPASS .GT. PASSES) GO TO 340\r\nC\r\nC     PREPARE FOR ANOTHER PASS\r\nC\r\n      FILE = INFILE\r\n      CALL OPEN (*350,INFILE,Z(BUF1),RDREW)\r\n      CALL FWDREC (*360,INFILE)\r\n      GO TO 20\r\nC\r\nC     DATA INCONSISTENCY ON -INFILE-.\r\nC\r\n  290 WRITE  (OUTPT,300) SWM,INFILE\r\n  300 FORMAT (A27,' 2335.  (DDRMM1-1) THE AMOUNT OF DATA IS NOT ',\r\n     1       'CONSISTENT FOR EACH EIGENVALUE IN DATA BLOCK',I5, /5X,\r\n     2       'PROCESSING OF THIS DATA BLOCK TERMINATED.')\r\n      GO TO 330\r\nC\r\nC     CHANGE IN MAJOR OFP-ID DETECTED ON -INFILE-.\r\nC\r\n  310 WRITE  (OUTPT,320) SWM,INFILE\r\n  320 FORMAT (A27,' 2336.  (DDRMM1-2) A CHANGE IN WORD 2 OF THE OFP-ID',\r\n     1       ' RECORDS OF DATA BLOCK',I5, /5X,'HAS BEEN DETECTED. ',\r\n     2       ' POOCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED.')\r\n  330 IPASS = 3\r\n      GO TO 280\r\nC\r\nC     COMPLETION OF PASS FOR INPUT MODAL SOLUTION -FILE-.\r\nC\r\n  340 RETURN\r\nC\r\nC     UNDEFINED FILE.\r\nC\r\n  350 RETURN 1\r\nC\r\nC     END OF FILE HIT.\r\nC\r\n  360 RETURN 2\r\nC\r\nC     END OF RECORD HIT.\r\nC\r\n  370 RETURN 3\r\nC\r\nC     INSUFFICIENT CORE.\r\nC\r\n  380 RETURN 4\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmm2.f",
    "content": "      SUBROUTINE DDRMM2 (*,*,*,*)\r\nC\r\nC     PERFORMS SORT2 TYPE PROCESSING FOR MODULE DDRMM.\r\nC\r\n      LOGICAL         SORT2    ,COL1     ,FRSTID   ,IDOUT    ,TRNSNT  ,\r\n     1                LMINOR   ,ANYXY\r\n      INTEGER         BUF1     ,BUF2     ,BUF3     ,BUF4     ,BUF5    ,\r\n     1                BUF6     ,BUFF     ,EOR      ,RD       ,RDREW   ,\r\n     2                WRT      ,WRTREW   ,CLS      ,CLSREW   ,ELEM    ,\r\n     3                IA(4)    ,SETS     ,ENTRYS   ,SYSBUF   ,OUTPT   ,\r\n     4                PASSES   ,OUTFIL   ,FILE     ,DHSIZE   ,FILNAM  ,\r\n     5                SETID    ,FORM     ,DEVICE   ,PHASE    ,SCRT    ,\r\n     6                SCRT1    ,SCRT2    ,SCRT3    ,SCRT4    ,SCRT5   ,\r\n     7                SCRT6    ,SCRT7    ,TYPOUT   ,DVAMID(3),BUF(150),\r\n     8                Z(1)     ,UVSOL    ,BUFA(75) ,BUFB(75) ,COMPLX  ,\r\n     9                SUBCAS   ,SAVDAT   ,SAVPOS   ,BUFSAV  ,ELWORK(300)\r\n      REAL            RIDREC(1),LAMBDA\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /STDATA/ LMINOR   ,NSTXTR   ,NPOS     ,SAVDAT(75)        ,\r\n     1                SAVPOS(25)         ,BUFSAV(10)\r\n      COMMON /SYSTEM/ SYSBUF   ,OUTPT\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW  ,\r\n     1                CLS\r\n      COMMON /ZBLPKX/ A(4)     ,IROW\r\n      COMMON /ZNTPKX/ AOUT(4)  ,IROWO    ,IEOL     ,IEOR\r\n      COMMON /GPTA1 / NELEM    ,LAST     ,INCR     ,ELEM(1)\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /MPYADX/ MCBA(7)  ,MCBB(7)  ,MCBC(7)  ,MCBD(7)  ,LZ      ,\r\n     1                ITFLAG   ,ISINAB   ,ISINC    ,IPREC    ,ISCRT\r\n      COMMON /CLSTRS/ COMPLX(1)\r\n      COMMON /DDRMC1/ IDREC(146),BUFF(6) ,PASSES   ,OUTFIL   ,JFILE   ,\r\n     1                MCB(7)   ,ENTRYS   ,SETS(5,3),INFILE   ,LAMBDA  ,\r\n     2                FILE     ,SORT2    ,COL1     ,FRSTID   ,NCORE   ,\r\n     3                NSOLS    ,DHSIZE   ,FILNAM(2),RBUF(150),IDOUT   ,\r\n     4                ICC      ,NCC      ,ILIST    ,NLIST    ,NWDS    ,\r\n     5                SETID    ,TRNSNT   ,I1       ,I2       ,PHASE   ,\r\n     6                ITYPE1   ,ITYPE2   ,NPTSF    ,LSF      ,NWDSF   ,\r\n     7                SCRT(7)  ,IERROR   ,ITEMP    ,DEVICE   ,FORM    ,\r\n     8                ISTLST   ,LSTLST   ,UVSOL    ,NLAMBS   ,NWORDS  ,\r\n     9                OMEGA    ,IPASS    ,SUBCAS\r\n      COMMON /CONDAS/ PI       ,TWOPI\r\n      EQUIVALENCE    (SCRT1,SCRT(1)), (SCRT2,SCRT(2)), (SCRT3,SCRT(3)),\r\n     1               (SCRT4,SCRT(4)), (SCRT5,SCRT(5)), (SCRT6,SCRT(6)),\r\n     2               (SCRT7,SCRT(7)), (BUF1 ,BUFF(1)), (BUF2 ,BUFF(2)),\r\n     3               (BUF3 ,BUFF(3)), (BUF4 ,BUFF(4)), (BUF5 ,BUFF(5)),\r\n     4               (BUF6 ,BUFF(6)), (A(1) ,  IA(1)), (Z(1) ,  RZ(1)),\r\n     5               (BUF(1),RBUF(1),BUFA(1)), (BUFB(1),BUF(76)),\r\n     6               (IDREC(1),RIDREC(1))\r\nC\r\n      DATA    EOR  , NOEOR / 1, 0 /, DVAMID / 2001, 2010, 2011 /\r\nC\r\nC     FORMATION OF DATA-MATRIX AND SUBSEQUENT MULTIPLICATION BY SAME OF\r\nC     THE SOLUTION MATRIX (TRNNSPOSED), AND ULTIMATE OUTPUT OF TRANSIENT\r\nC     OR FREQUENCY SOLUTIONS.\r\nC\r\n      IPASS  = 1\r\n      IOMEGA = NLIST  + 1\r\n      NOMEGA = IOMEGA - 1\r\n      MINOR  = 0\r\n   20 COL1   = .TRUE.\r\n      FRSTID = .TRUE.\r\n      SETID  = SETS(1,IPASS)\r\n      DEVICE = SETS(2,IPASS)\r\n      FORM   = SETS(3,IPASS)\r\n      ISTLST = SETS(4,IPASS)\r\n      LSTLST = SETS(5,IPASS)\r\nC\r\nC     GET LIST OF XYPLOT REQUESTED IDS FOR CURRENT SUBCASE AND\r\nC     OUTFIL TYPE.\r\nC\r\n      GO TO (22,23,24,25), JFILE\r\nC\r\nC     DISPLACEMENT, VELOCITY, ACCELERATION\r\nC\r\n   22 IXYTYP = IPASS\r\n      GO TO 26\r\nC\r\nC     SPCF\r\nC\r\n   23 IXYTYP = 4\r\n      GO TO 26\r\nC\r\nC     STRESS\r\nC\r\n   24 IXYTYP = 6\r\n      GO TO 26\r\nC\r\nC     FORCE\r\nC\r\n   25 IXYTYP = 7\r\n      GO TO 26\r\nC\r\n   26 IXY  = NOMEGA + 1\r\n      CALL DDRMMP (*480,Z(IXY),BUF3-IXY,LXY,IXYTYP,SUBCAS,Z(BUF3),ANYXY)\r\n      IF (.NOT.ANYXY .AND. SETID.EQ.0) GO TO 400\r\n      NXY  = IXY + LXY - 1\r\n      IERROR = 23\r\n      FILE = SCRT4\r\n      CALL OPEN (*450,SCRT4,Z(BUF3),WRTREW)\r\n      FILE = SCRT5\r\n      CALL OPEN (*450,SCRT5,Z(BUF2),WRTREW)\r\n      CALL FNAME (SCRT5,FILNAM)\r\n      CALL WRITE (SCRT5,FILNAM,2,EOR)\r\nC\r\nC     LOGIC TO BUILD SORT-2 FORMAT DATA MATRIX.\r\nC\r\nC     EACH COLUMN WRITTEN HERE ENCOMPASSES ALL EIGENVALUES FOR\r\nC     ONE COMPONENT OF ONE ID.  THE NUMBER OF COLUMNS THUS EQUALS\r\nC     THE SUM OF ALL COMPONENTS OF ALL REQUESTED ID-S.\r\nC\r\nC     READ AN OFP-ID RECORD AND SET PARAMETERS.\r\nC     (ON ENTRY TO THIS PROCESSOR ONE ID-RECORD IS AT HAND)\r\nC\r\n      FILE   = INFILE\r\n      IERROR = 19\r\n      MCB(1) = SCRT5\r\n      MCB(2) = 0\r\n      MCB(3) = NLAMBS\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IF (IPASS.EQ.1 .AND. FRSTID) GO TO 50\r\n   40 CALL READ (*160,*160,INFILE,IDREC,146,EOR,NWDS)\r\nC\r\nC     OFP-ID RECORD IS WRITTEN TO THE MAP FILE ONLY ON CHANGE OF\r\nC     MINOR ID.\r\nC\r\n   50 MAJOR = MOD(IDREC(2),1000)\r\n      IF (MAJOR .NE. ITYPE1) GO TO 420\r\n      IDVICE = DEVICE\r\n      ID   = IDREC(5)/10\r\n      IF (SETID) 80,65,60\r\n   60 NEXT = 1\r\n      CALL SETFND (*65,Z(ISTLST),LSTLST,ID,NEXT)\r\n      GO TO 80\r\n   65 IF (.NOT.ANYXY) GO TO 70\r\n      CALL BISLOC (*70,ID,Z(IXY),1,LXY,JP)\r\n      IDVICE = 0\r\n      GO TO 80\r\nC\r\nC     ID IS NOT TO BE OUTPUT THUS SKIP UPCOMING OFP-DATA-RECORD.\r\nC\r\n   70 CALL FWDREC (*460,INFILE)\r\n      GO TO 40\r\nC\r\nC     ID IS TO BE OUTPUT THUS CONTINUE.\r\nC\r\n   80 NUMWDS = NLAMBS*IDREC(10)\r\n      IDATA  = NXY + 1\r\n      NDATA  = IDATA + NUMWDS - 1\r\n      IF (NDATA .LT. BUF3) GO TO 100\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n      INSUF = NDATA - BUF3\r\n      WRITE  (OUTPT,90) UWM,INFILE,INSUF\r\n   90 FORMAT (A25,' 2337.  (DDRMM2-2)  DATA BLOCK',I5,' CAN NOT BE ',\r\n     1       'PROCESSED DUE TO', /5X,'A CORE INSUFFICIENCY OF APPROXI',\r\n     2       'MATELY',I11,' DECIMAL WORDS.')\r\n      GO TO 440\r\n  100 IF (.NOT.FRSTID) GO TO 110\r\nC\r\nC     VERY FIRST ID RECORD,  THUS SET MINOR ID.\r\nC\r\n      FRSTID = .FALSE.\r\n      GO TO 120\r\n  110 IF (IDREC(3) .EQ. MINOR) GO TO 130\r\nC\r\nC     CHANGE IN MINOR ID, I.E. NEW ELEMENT TYPE.  COMPLETE CURRENT\r\nC     RECORD OF MAP AND OUTPUT ANOTHER ID-RECORD.\r\nC\r\n      CALL WRITE (SCRT4,0,0,EOR)\r\n  120 CALL WRITE (SCRT4,IDREC,146,EOR)\r\n      MINOR = IDREC(3)\r\nC\r\nC     SAME TYPE OF DATA THUS CONTINUE ON.\r\nC\r\n  130 LENTRY = IDREC(10)\r\n      I1 = NWORDS + 1\r\n      I2 = LENTRY\r\nC\r\nC     READ AND OUTPUT ONE FULL OFP-DATA RECORD.\r\nC\r\n      CALL READ (*460,*470,INFILE,Z(IDATA),NUMWDS,EOR,NWDS)\r\n      DO 150 I = I1,I2\r\nC\r\nC     START NEW COLUMN\r\nC\r\n      CALL BLDPK (1,1,SCRT5,0,0)\r\n      IROW  = 0\r\n      JDATA = IDATA + I - 1\r\n      KDATA = NDATA - LENTRY + I\r\n      DO 140 J = JDATA,KDATA,LENTRY\r\n      IROW = IROW + 1\r\n      A(1) = RZ(J)\r\nC\r\nC     ELIMINATE INTEGERS\r\nC\r\nC     OLD LOGIC -\r\nC     IF (MACH.NE.5 .AND. IABS(IA(1)).LT.100000000) A(1) = 0.0\r\nC     IF (MACH.EQ.5 .AND. (IA(1).LE.127 .AND. IA(1).GE.1)) A(1) = 0.0\r\nC     OLD LOGIC SHOULD INCLUDE ALPHA MACHINE (MACH=21)\r\nC\r\nC     NEW LOGIC, BY G.CHAN/UNISYS  8/91 -\r\n      IF (NUMTYP(IA(1)) .LE. 1) A(1) = 0.0\r\nC\r\n      CALL ZBLPKI\r\n  140 CONTINUE\r\nC\r\nC     COMPLETE COLUMN\r\nC\r\n      CALL BLDPKN (SCRT5,0,MCB)\r\n  150 CONTINUE\r\nC\r\nC     OUTPUT TO MAP THE ID PLUS ANY OTHER DATA NECESSARY.\r\nC\r\n      BUF(1) = 10*ID + IDVICE\r\n      IF (NWORDS .EQ. 2) BUF(2) = Z(IDATA+1)\r\n      NSTXTR = 0\r\n      IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0) GO TO 155\r\n      NPOS   = SAVDAT(MINOR)/100\r\n      NSTXTR = SAVDAT(MINOR) - NPOS * 100\r\n      DO 151 I = 1,NSTXTR\r\n      J = SAVPOS(NPOS+I-1)\r\n  151 BUF(I+1) = Z(IDATA+J-1)\r\n  155 CALL WRITE (SCRT4,BUF,NWORDS+NSTXTR,NOEOR)\r\nC\r\nC     GO FOR NEXT ID.\r\nC\r\n      GO TO 40\r\nC\r\nC     END OF FILE ON INFILE.  MAP AND DATA MATRIX NOW COMPLETE.\r\nC\r\n  160 CALL WRTTRL (MCB)\r\n      CALL CLOSE (SCRT5,CLSREW)\r\n      CALL CLOSE (INFILE,CLSREW)\r\n      CALL WRITE (SCRT4,0,0,EOR)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\nC\r\nC     SOLUTION MATRIX MAY BE FOUND BASED ON SORT-2 INFILE.\r\nC\r\nC     SOLVE,\r\nC                               T\r\nC        (MODAL SOLUTION MATRIX)     X      (DATA MATRIX)\r\nC          NLAMBS X NSOLUTIONS             NLAMBS X NCOMPS\r\nC        =======================           ===============\r\nC\r\nC     RESULTANT MATRIX IS NSOLUTIONS BY NCOMPS IN SIZE.\r\nC\r\nC\r\nC     MATRIX MULTIPLY SETUP AND CALL.\r\nC\r\n      MCBA(1) = UVSOL\r\n      IF (TRNSNT) MCBA(1) = SCRT(IPASS)\r\n      CALL RDTRL (MCBA)\r\n      MCBB(1) = SCRT5\r\n      CALL RDTRL (MCBB)\r\n      MCBC(1) = 0\r\n      MCBD(1) = SCRT6\r\n      MCBD(2) = 0\r\n      MCBD(3) = NSOLS\r\n      MCBD(4) = 2\r\n      MCBD(5) = 1\r\n      MCBD(6) = 0\r\n      MCBD(7) = 0\r\n      IF (.NOT.TRNSNT) MCBD(5) = 3\r\n      ITFLAG  = 1\r\n      NXY1    = NXY + 1\r\n      IF (MOD(NXY1,2) .EQ. 0) NXY1 = NXY1 + 1\r\n      LZ      = KORSZ(Z(NXY1))\r\n      ISINAB  = 1\r\n      ISINC   = 1\r\n      IPREC   = 1\r\n      ISCRT   = SCRT7\r\n      CALL MPYAD (Z(NXY1),Z(NXY1),Z(NXY1))\r\n      MCBD(1) = SCRT6\r\n      CALL WRTTRL (MCBD)\r\nC\r\nC     PRODUCT MATRIX IS NOW OUTPUT USING THE MAP ON SCRT4.\r\nC     EACH COLUMN OF SCRT6 CONTAINS ALL THE TIME OR FREQUENCY STEP\r\nC     VALUES FOR ONE COMPONENT OF ONE ID.\r\nC\r\nC     THUS A NUMBER OF COLUMNS ENCOMPASSING THE COMPONENTS OF ONE ID\r\nC     MUST FIT IN CORE.\r\nC\r\n      IERROR = 20\r\n      FILE = OUTFIL\r\n      CALL OPEN (*450,OUTFIL,Z(BUF1),WRT)\r\n      FILE = SCRT4\r\n      CALL OPEN (*450,SCRT4,Z(BUF2),RDREW)\r\n      FILE = SCRT6\r\n      CALL OPEN (*450,SCRT6,Z(BUF3),RDREW)\r\n      CALL FWDREC (*460,SCRT6)\r\nC\r\nC     READ AN OFP-ID-RECORD FROM THE MAP, AND ALLOCATE SPACE NEEDED\r\nC     FOR SOLUTION DATA.\r\nC\r\n      FILE = SCRT4\r\n  170 CALL READ (*400,*470,SCRT4,IDREC,146,EOR,NWDS)\r\n      MINOR = IDREC(3)\r\nC\r\nC\r\nC     SET DISPLACEMENT, VELOCITY, OR ACCELERATION OFP MAJOR-ID IF\r\nC     INFILE IS MODAL DISPLACEMETNS = EIGENVECTORS...\r\nC\r\n      IF (ITYPE1 .NE. 7) GO TO 175\r\n      IDREC(2) = DVAMID(IPASS)\r\n  175 IF (.NOT.TRNSNT) IDREC(2) = IDREC(2) + 1000\r\nC\r\nC     RESET APPROACH CODE FROM EIGENVALUE TO TRANSIENT OR FREQUENCY\r\nC\r\n      IAPP = 5\r\n      IF (TRNSNT) IAPP = 6\r\n      IDREC(1) = 10*IAPP + DEVICE\r\n      LENTRY = IDREC(10) - NWORDS\r\n      NCOLS = LENTRY\r\n      IF (.NOT.TRNSNT) LENTRY = LENTRY + LENTRY\r\nC\r\nC     IF FREQUENCY RESPONSE PROBLEM AND THIS IS THE VELOCITY OR\r\nC     ACCELERATION PASS THEN MOVE DOWN ANY XY LIST OF POINTS AND\r\nC     ADD AN OMEGA TABLE.  SOMETIMES THE MOVEDOWN OF THE XY LIST IS\r\nC     REDUNDANT.\r\nC\r\nC     XY LIST IS MOVED FROM BOTTOM UP INCASE XY LIST IS LONGER THAN\r\nC     THE OMEGA LIST WILL BE.\r\nC\r\n      IF (TRNSNT .OR. IPASS.EQ.1) GO TO 177\r\n      NOMEGA = IOMEGA + NSOLS - 1\r\n      IF (LXY .EQ. 0) GO TO 177\r\n      JXY = NXY\r\n      KXY = NOMEGA + LXY\r\n      DO 176 I = 1,LXY\r\n      Z(KXY) = Z(JXY)\r\n      JXY = JXY - 1\r\n      KXY = KXY - 1\r\n  176 CONTINUE\r\nC\r\n  177 IXY = NOMEGA + 1\r\n      NXY = IXY + LXY - 1\r\n      IDATA = NXY + 1\r\n      NDATA = IDATA + LENTRY*NSOLS - 1\r\n      TYPOUT= 3\r\n      IF (TRNSNT) TYPOUT = 1\r\nC\r\nC     FILL TITLE, SUBTITLE, AND LABEL FROM CASECC FOR THIS SUBCASE.\r\nC\r\n      DO 178 I = 1,96\r\n      IDREC(I+50) = Z(ICC+I+37)\r\n  178 CONTINUE\r\n      IDREC(4) = SUBCAS\r\nC\r\nC     CHECK FOR SUFFICIENT CORE.\r\nC\r\n      IF (NDATA .LT. BUF3) GO TO 190\r\n      INSUF = NDATA - BUF3\r\n      WRITE  (OUTPT,180) UWM,OUTFIL,INSUF\r\n  180 FORMAT (A25,' 2338.  (DDRMM2-3)  DATA BLOCK',I5,\r\n     1       ' MAY NOT BE FULLY COMPLETED DUE TO A CORE INSUFFICIENCY',\r\n     2       /5X,'OF APPROXIMATELY',I11,' DECIMAL WORDS.')\r\n      GO TO 440\r\nC\r\nC     LOOP ON ID-S AVAILABLE FROM THE MAP\r\nC\r\nC\r\nC     COMPUTE OMEGAS IF NECESSARY\r\nC     (NOTE, VELOCITY PASS MAY NOT ALWAYS OCCUR)\r\nC\r\n  190 IF (TRNSNT .OR. IPASS.EQ.1) GO TO 195\r\n      JLIST = IOMEGA - 1\r\n      DO 193 I = ILIST,NLIST\r\n      JLIST = JLIST + 1\r\n      RZ(JLIST) = RZ(I)*TWOPI\r\n  193 CONTINUE\r\n      IF (IPASS .EQ. 2) GO TO 195\r\n      DO 194 I = IOMEGA,NOMEGA\r\n      RZ(I) = -RZ(I)**2\r\n  194 CONTINUE\r\nC\r\n  195 CALL READ (*460,*170,SCRT4,BUF,NWORDS,NOEOR,NWDS)\r\n      LMINOR = .TRUE.\r\n      IF (ITYPE1.NE.5 .OR. SAVDAT(MINOR).EQ.0)  GO TO 196\r\n      NPOS   = SAVDAT(MINOR)/100\r\n      NSTXTR = SAVDAT(MINOR) - NPOS*100\r\n      CALL READ (*460,*470,SCRT4,BUFSAV(1),NSTXTR,NOEOR,NWDS)\r\n      LMINOR = .FALSE.\r\n  196 CONTINUE\r\nC\r\nC     PREPARE AND OUTPUT THE OFP-ID-RECORD AFTER FIRST ENTRY IS COMBINED\r\nC     AS IN THE CASE OF A FREQUENCY COMPLEX PROBLEM.\r\nC\r\n      IDOUT = .FALSE.\r\n      IDREC(5) = BUF(1)\r\nC\r\nC     SET STRESS OR FORCE COMPLEX DATA PTRS IF NECESSARY.\r\nC\r\n      IF (TRNSNT) GO TO 220\r\n      IF (ITYPE1 .EQ. 4) GO TO 200\r\n      IF (ITYPE1 .EQ. 5) GO TO 210\r\n      GO TO 220\r\nC\r\nC     FORCES ASSUMED\r\nC\r\n  200 IELEM = (IDREC(3)-1)*INCR\r\n      LSF   = ELEM(IELEM+19)\r\n      NPTSF = ELEM(IELEM+21)\r\n      GO TO 220\r\nC\r\nC     STRESSES ASSUMED\r\nC\r\n  210 IELEM = (IDREC(3)-1)*INCR\r\n      LSF   = ELEM(IELEM+18)\r\n      NPTSF = ELEM(IELEM+20)\r\n      GO TO 220\r\nC\r\nC     UNPACK DATA FOR ALL COMPONENTS AND ALL SOLUTION STEPS\r\nC     FOR THIS ID.  (NCOLS COLUMNS ARE NEEDED)\r\nC\r\nC\r\nC     ZERO THE DATA SPACE\r\nC\r\n  220 DO 230 I = IDATA,NDATA\r\n      Z(I) = 0\r\n  230 CONTINUE\r\nC\r\nC     UNPACK NOW-ZERO TERMS.\r\nC\r\n      JDATA = IDATA - LENTRY\r\n      DO 270 I = 1,NCOLS\r\n      CALL INTPK (*260,SCRT6,0,TYPOUT,0)\r\nC\r\nC     COLUMN I HAS ONE OR MORE NON-ZEROES AVAILABLE.\r\nC\r\n  240 CALL ZNTPKI\r\n      ITEMP = JDATA + IROWO*LENTRY\r\n      IF (.NOT.TRNSNT) GO TO (246,247,248), IPASS\r\nC\r\nC     TRANSIENT OUTPUTS\r\nC\r\n      RZ(ITEMP) = AOUT(1)\r\n      IF (IEOL) 240,240,260\r\nC\r\nC    DISPLACEMENTS, AND SPCFS (FREQ RESPONSE)\r\nC\r\n  246 RZ(ITEMP) = AOUT(1)\r\n      ITEMP     = ITEMP + NCOLS\r\n      RZ(ITEMP) = AOUT(2)\r\n      IF (IEOL) 240,240,260\r\nC\r\nC     VELOCITIES  (FREQ RESPONSE)\r\nC\r\n  247 KLIST     = IOMEGA + IROWO - 1\r\n      RZ(ITEMP) =-RZ(KLIST)*AOUT(2)\r\n      ITEMP     = ITEMP + NCOLS\r\n      RZ(ITEMP) = RZ(KLIST)*AOUT(1)\r\n      IF (IEOL) 240,240,260\r\nC\r\nC     ACCELERATIONS (FREQ RESPONSE)\r\nC\r\n  248 KLIST     = IOMEGA + IROWO - 1\r\n      RZ(ITEMP) = RZ(KLIST)*AOUT(1)\r\n      ITEMP     = ITEMP + NCOLS\r\n      RZ(ITEMP) = RZ(KLIST)*AOUT(2)\r\n      IF (IEOL) 240,240,260\r\n  260 JDATA = JDATA + 1\r\n  270 CONTINUE\r\nC\r\nC     OUTPUT LINES OF DATA COMBINING THEM FOR COMPLEX REAL/IMAGINARY OR\r\nC     MAG/PHASE OFP FORMATS IF NECESSARY.\r\nC\r\n      JLIST = ILIST - 1\r\n      DO 390 I = IDATA,NDATA,LENTRY\r\n      JWORDS = NWORDS\r\n      IJ = I + NCOLS - 1\r\n      DO 280 J = I,IJ\r\n      JWORDS = JWORDS + 1\r\n      BUF(JWORDS) = Z(J)\r\n      IF (TRNSNT) GO TO 280\r\n      ITEMP = J + NCOLS\r\n      BUF(JWORDS+75) = Z(ITEMP)\r\n  280 CONTINUE\r\nC\r\nC     IF TRANSIENT, ENTRY IS NOW READY FOR OUTPUT.\r\nC\r\n      IF (TRNSNT)  GO TO 365\r\nC\r\nC     MAP COMPLEX OUTPUTS TOGETHER PER -COMPLX- ARRAY.\r\nC\r\n      IF (ITYPE1.EQ.4 .OR. ITYPE1.EQ.5) GO TO 300\r\nC\r\nC     POINT DATA\r\nC\r\n      DO 290 K = 3,8\r\n      IF (FORM .EQ. 3) CALL MAGPHA (BUFA(K),BUFB(K))\r\n      BUFA(K+6) = BUFB(K)\r\n  290 CONTINUE\r\n      JWORDS = 14\r\n      GO TO 370\r\nC\r\nC     ELEMENT STRESS OR FORCE DATA.\r\nC\r\n  300 IOUT = 0\r\n      L = NPTSF\r\n      IF (LMINOR)  GO TO 310\r\n      DO 305 K = 1,NSTXTR\r\n      J = SAVPOS(NPOS+K-1)\r\n  305 BUF(J) = BUFSAV(K)\r\n  310 NPT = COMPLX(L)\r\n      IF (NPT) 320,350,340\r\n  320 NPT = -NPT\r\n      IF (FORM .NE. 3) GO TO 340\r\nC\r\nC     COMPUTE MAGNITUDE/PHASE\r\nC\r\n      CALL MAGPHA (BUFA(NPT),BUFB(NPT))\r\n  330 IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFA(NPT)\r\n      L = L + 1\r\n      GO TO 310\r\n  340 IF (NPT .LE. LSF) GO TO 330\r\n      NPT  = NPT - LSF\r\n      IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFB(NPT)\r\n      L = L + 1\r\n      GO TO 310\r\nC\r\nC     MOVE OUTPUT DATA\r\nC\r\n  350 DO 360 L = 1,IOUT\r\n      BUF(L) = ELWORK(L)\r\n  360 CONTINUE\r\n      JWORDS = IOUT\r\n      GO TO 370\r\n  365 CONTINUE\r\n      IF (LMINOR)  GO TO 370\r\n      DO 366 K = 1,NSTXTR\r\n      J = SAVPOS(NPOS+K-1)\r\n  366 BUF(J) = BUFSAV(K)\r\nC\r\nC     CALL DDRMMS TO RECOMPUTE SOME ELEMENT STRESS QUANTITIES\r\nC     IN TRANSIENT PROBLEMS ONLY.\r\nC\r\n  370 IF (TRNSNT .AND. ITYPE1.EQ.5) CALL DDRMMS (BUF,IDREC(3),BUF4,BUF5)\r\n      IF (IDOUT) GO TO 380\r\n      IDREC( 9) = FORM\r\n      IDREC(10) = JWORDS\r\n      CALL WRITE (OUTFIL,IDREC,146,EOR)\r\n      IDOUT = .TRUE.\r\n  380 JLIST = JLIST + 1\r\n      RBUF(1) = RZ(JLIST)\r\n      CALL WRITE (OUTFIL,BUF,JWORDS,NOEOR)\r\n  390 CONTINUE\r\n      CALL WRITE (OUTFIL,0,0,EOR)\r\nC\r\nC     GO FOR NEXT OUTPUT ID\r\nC\r\n      GO TO 190\r\nC\r\nC  END OF DATA ON MAP FILE (SCRT4).\r\nC\r\n  400 CALL CLOSE (OUTFIL,CLS)\r\n      CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      CALL CLOSE (SCRT6,CLSREW)\r\n      IPASS = IPASS + 1\r\n      IF (IPASS .GT. PASSES) GO TO 410\r\nC\r\nC     PREPARE FOR ANOTHER PASS\r\nC\r\n      FILE = INFILE\r\n      CALL OPEN (*450,INFILE,Z(BUF1),RDREW)\r\n      CALL FWDREC (*460,INFILE)\r\n      GO TO 20\r\n  410 RETURN\r\nC\r\nC     CHANGE IN MAJOR OFP-ID DETECTED ON -INFILE-.\r\nC\r\n  420 WRITE  (OUTPT,430) SWM,INFILE\r\n  430 FORMAT (A27,' 2339.  (DDRMM2-1) A CHANGE IN WORD 2 OF THE OFP-ID',\r\n     1       ' RECORDS OF DATA BLOCK',I5, /5X,'HAS BEEN DETECTED. ',\r\n     2       ' POOCESSING OF THIS DATA BLOCK HAS BEEN TERMINATED.')\r\n  440 IPASS = 3\r\n      GO TO 400\r\nC\r\nC     UNDEFINED FILE.\r\nC\r\n  450 RETURN 1\r\nC\r\nC     END OF FILE\r\nC\r\n  460 RETURN 2\r\nC\r\nC     END OF RECORD.\r\nC\r\n  470 RETURN 3\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  480 RETURN 4\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmma.f",
    "content": "      SUBROUTINE DDRMMA( SETUP )\r\nC*****\r\nC  UNPACKS DATA FROM A TRANSIENT OR FREQUENCY RESPONSE SOLUTION\r\nC  COLUMN AS REQUIRED TO FORM ONE OFP OUTPUT LINE ENTRY.\r\nC\r\nC  BEFORE CALLING FOR ENTRY CONSTRUCTION ONE SETUP CALL IS REQUIRED\r\nC  FOR EACH COLUMN. (SETUP = .TRUE.)\r\nC*****\r\n      REAL     LAMBDA   ,RBUFA(75),RBUFB(75)\r\nC\r\n      INTEGER BUF(150), BUFA(75), BUFB(75), ELWORK(300), PHASE, COMPLX\r\n      INTEGER SCRT,BUFF,FILE,OUTFIL,SETID,DHSIZE,ENTRYS,FILNAM,PASSES\r\n      INTEGER SETS,DEVICE,FORM,UVSOL\r\n      INTEGER TYPOUT\r\n      INTEGER SAVDAT,SAVPOS,BUFSAV\r\nC\r\n      LOGICAL  SETUP    ,TRNSNT   ,SORT2    ,COL1     ,FRSTID\r\n      LOGICAL  LMINOR\r\nC\r\n      COMMON/STDATA/    LMINOR    ,NSTXTR   ,NPOS     ,SAVDAT(75)\r\n     1                  ,SAVPOS(25)         ,BUFSAV(10)\r\n      COMMON/DDRMC1/    IDREC(146),BUFF(6)  ,PASSES   ,OUTFIL   ,JFILE\r\n     1                  ,MCB(7)   ,ENTRYS   ,SETS(5,3),INFILE   ,LAMBDA\r\n     2                  ,FILE     ,SORT2    ,COL1     ,FRSTID   ,NCORE\r\n     3                  ,NSOLS    ,DHSIZE   ,FILNAM(2),RBUF(150),IDOUT\r\n     4                  ,ICC      ,NCC      ,ILIST    ,NLIST    ,NWDS\r\n     5                  ,SETID    ,TRNSNT   ,I1       ,I2       ,PHASE\r\n     6                  ,ITYPE1   ,ITYPE2   ,NPTSF    ,LSF      ,NWDSF\r\n     7                  ,SCRT(7)  ,IERROR   ,ITEMP    ,DEVICE   ,FORM\r\n     8                  ,ISTLST   ,LSTLST   ,UVSOL    ,NLAMBS   ,NWORDS\r\n     9                  ,OMEGA    ,IPASS\r\n      COMMON/CLSTRS/    COMPLX(1)\r\n      COMMON/ZNTPKX/ A(4), IROW, IEOL, IEOR\r\nC\r\n      EQUIVALENCE(BUF(1),RBUF(1),BUFA(1),RBUFA(1))\r\n     1          ,(RBUFB(1),BUFB(1),BUF(76))\r\nC*****\r\nC  PERFORM SOLUTION COLUMN SETUP WHEN SETUP = .TRUE.\r\nC*****\r\n      IF( .NOT. SETUP ) GO TO 10\r\n      TYPOUT = 3\r\n      IF( TRNSNT ) TYPOUT = 1\r\n      ICOMP = 1\r\n      CALL INTPK(*5,SCRT(6),0,TYPOUT,0)\r\n      CALL ZNTPKI\r\n      RETURN\r\n    5 IROW = 0\r\n      RETURN\r\nC*****\r\nC  FILL BUFFER WITH REAL AND OR COMPLEX VALUES.\r\nC*****\r\n   10 K = I1 - 1\r\n      DO 20 I = 1,K\r\n      BUFB(I) = BUFA(I)\r\n   20 CONTINUE\r\n      DO 70 I = I1,I2\r\n      IF( ICOMP .EQ. IROW ) GO TO 30\r\n      RBUFA(I) = 0.0\r\n      RBUFB(I) = 0.0\r\n      GO TO 60\r\nC\r\nC     NON-ZERO COMPONENT AVAILABLE.\r\nC\r\n   30 IF( .NOT. TRNSNT ) GO TO (31,32,33), IPASS\r\nC\r\nC     TRANSIENT RESPONSE\r\nC\r\n      RBUFA(I) = A(1)\r\n      IF( IEOL ) 40,40,50\r\nC\r\nC     FREQUENCY RESPONSE FOR DISPLACEMENTS OR SPCFS PASS\r\nC\r\n   31 RBUFA(I) = A(1)\r\n      RBUFB(I) = A(2)\r\n      IF( IEOL ) 40,40,50\r\nC\r\nC     FREQUENCY RESPONSE VELOCITYS PASS\r\nC\r\n   32 RBUFA(I) = -OMEGA * A(2)\r\n      RBUFB(I) =  OMEGA * A(1)\r\n      IF( IEOL ) 40,40,50\r\nC\r\nC     FREQUENCY RESPONSE ACCELERATIONS PASS\r\nC\r\n   33 RBUFA(I) = OMEGA * A(1)\r\n      RBUFB(I) = OMEGA * A(2)\r\n      IF( IEOL ) 40,40,50\r\n   40 CALL ZNTPKI\r\n      GO TO 60\r\nC\r\n   50 IROW = 0\r\nC\r\n   60 ICOMP = ICOMP + 1\r\nC\r\n   70 CONTINUE\r\nC*****\r\nC  IF TRANSIENT (REAL) THEN RETURN. FOR FREQUENCY (COMPLEX) COMBINE DATA\r\nC  FOR OUTPUT AND CONVERT TO MAGNITUDE PHASE IF NECESSARY.\r\nC\r\nC  BUFA CONTAINS THE REAL PART\r\nC  BUFB CONTAINS THE IMAGINARY PART\r\nC*****\r\n      IF (TRNSNT) GO TO 81\r\n      IF (ITYPE1 .EQ. 4)  GO TO 90\r\n      IF (ITYPE1 .EQ. 5)  GO TO 81\r\nC\r\nC     POINT DATA\r\nC\r\n      DO 80 K = 1,6\r\n      IF( FORM .EQ. 3 ) CALL MAGPHA( BUFA(K+2), BUFB(K+2) )\r\n      BUFA(K+8) = BUFB(K+2)\r\n   80 CONTINUE\r\n      NWDSF = 14\r\n      RETURN\r\nC\r\nC     ELEMENT STRESS OR FORCE DATA\r\nC\r\n   81 IF (LMINOR)  GO TO 90\r\n      DO 82 K=1,NSTXTR\r\n      J=SAVPOS(NPOS+K-1)\r\n   82 BUF(J) = BUFSAV(K)\r\n   90 IF (TRNSNT) RETURN\r\n      IOUT = 0\r\n      I = NPTSF\r\n  100 NPT = COMPLX(I)\r\n      IF( NPT ) 110,140,130\r\n  110 NPT = -NPT\r\n      IF( FORM .NE. 3 ) GO TO 130\r\nC\r\nC     COMPUTE MAGNITUDE PHASE\r\nC\r\n      CALL MAGPHA( BUFA(NPT), BUFB(NPT) )\r\n  120 IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFA(NPT)\r\n      I = I + 1\r\n      GO TO 100\r\n  130 IF( NPT .LE. LSF ) GO TO 120\r\n      NPT = NPT - LSF\r\n      IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFB(NPT)\r\n      I = I + 1\r\n      GO TO 100\r\nC\r\nC     MOVE OUTPUT DATA\r\nC\r\n  140 DO 150 I = 1,IOUT\r\n      BUF(I) = ELWORK(I)\r\n  150 CONTINUE\r\n      NWDSF = IOUT\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmmp.f",
    "content": "      SUBROUTINE DDRMMP(*,Z,NCORE,LUSED,IXYTYP,ICASE,BUFF,ANYXY)\r\nC*****\r\nC  BUILD LIST OF POINTS IN SORT FOR WHICH XYCDB OUTPUT REQUESTS EXIST\r\nC  OF FILE TYPE -IXYTYP- AND OF SUBCASE 0 AND SUBCASE -ICASE-.\r\nC*****\r\n      INTEGER Z(1), LOC(6), BUFF(1), XYCDB\r\nC\r\n      LOGICAL ANYXY\r\nC/////\r\n      COMMON/SYSTEM/ SYSBUF, IOUT\r\n      COMMON/NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      COMMON/DDRMC1/ DUMMY(362), IERROR\r\nC/////\r\nC\r\n      DATA XYCDB/ 108 /, NOEOR / 0 /\r\nC\r\n      LUSED = 0\r\n      ANYXY = .FALSE.\r\n      CALL OPEN(*100,XYCDB,BUFF,RDREW)\r\n      CALL FWDREC(*300,XYCDB)\r\n      CALL FWDREC(*300,XYCDB)\r\nC\r\nC     FIND ENTRIES IN SUBCASE 0 OF THIS TYPE IF ANY.\r\nC\r\n    5 CALL READ(*300,*300,XYCDB,LOC,6,NOEOR,NWDS)\r\n      IF( LOC(1) ) 10,10,20\r\n   10 IF( LOC(2) .NE. IXYTYP ) GO TO 5\r\nC\r\nC     SAVE ID IN TABLE\r\nC\r\n      IF( LUSED ) 11,11,12\r\nC\r\nC      ADD TO LIST IF NOT A REPEAT ID\r\nC\r\n   12 IF( LOC(3) .EQ. Z(LUSED) ) GO TO 5\r\n   11 LUSED = LUSED + 1\r\n      IF( LUSED .GT. NCORE ) GO TO 1000\r\n      Z(LUSED) = LOC(3)\r\n      GO TO 5\r\nC\r\nC     FIND ENTRIES IN SUBCASE -ICASE- OF THIS TYPE IF ANY EXIST.\r\nC\r\n   15 CALL READ(*300,*300,XYCDB,LOC,6,NOEOR,NWDS)\r\n   20 IF( LOC(1) - ICASE ) 15, 30, 300\r\n   30 IF( LOC(2) - IXYTYP ) 15, 40, 300\r\n   40 LUSED = LUSED + 1\r\n      IF( LUSED .GT. NCORE ) GO TO 1000\r\n      Z(LUSED) = LOC(3)\r\n      GO TO 15\r\nC\r\nC     LIST IS NOW COMPLETE THUS SORT IT, AND REMOVE REPEATED IDS.\r\nC\r\n  300 CALL CLOSE( XYCDB, CLSREW )\r\n      IF( LUSED ) 100,100,301\r\n  301 CALL SORT( 0, 0, 1, 1, Z(1), LUSED )\r\n      ANYXY = .TRUE.\r\nC\r\n      J = 1\r\n      IF( LUSED .EQ. 1 ) GO TO 305\r\n      DO 303 I = 2,LUSED\r\n      IF( Z(I) .EQ. Z(J) ) GO TO 303\r\n      J = J + 1\r\n      Z(J) = Z(I)\r\n  303 CONTINUE\r\nC\r\n  305 LUSED = J\r\n  100 RETURN\r\nC\r\nC     INSUFFICIENT CORE ALTERNATE RETURN.\r\nC\r\n 1000 IERROR = 859\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/ddrmms.f",
    "content": "      SUBROUTINE DDRMMS (BUF,ELTYPE,BUF4,BUF6)\r\nC\r\n      EXTERNAL ANDF\r\n      INTEGER  ANDF   ,BUF4  ,BUF6  ,DIT   ,ELM(4),ELT   ,BUFA(100)    ,\r\n     1         EST    ,IELID ,IELTMP,INT1  ,Z     ,FILE  ,ELTYPE,MATFLG,\r\n     2         MATID  ,MPT   ,MTD(4),N     ,NELT  ,NWORDS,N1MAT ,N2MAT ,\r\n     3         TMP(4),WRD(4)\r\n      REAL     BUF(16),ELTEMP,STRESS,SINTH ,COTH  ,E     ,G     ,NU    ,\r\n     1         RHO    ,ALPHA ,T0    ,GSUBE ,SIGT  ,SIGC  ,SIGS  ,FINT1 ,\r\n     2         TEMP   ,CPRIM\r\n      COMMON /MATIN /  MATID ,MATFLG,ELTEMP,STRESS,SINTH ,COTH\r\n      COMMON /MATOUT/  E,G   ,NU,RHO,ALPHA ,T0    ,GSUBE ,SIGT   ,SIGC ,\r\n     1                 SIGS\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  ISYS(61)\r\n      EQUIVALENCE     (INT1,FINT1) ,(IELTMP,ELTEMP)\r\n      DATA    INT1/1/ ,EST/109/ ,MPT/110/ ,DIT/111/ ,ELM/1,3,10,34  / ,\r\n     1        MTD   / 4,4,4,16/ ,TMP/ 17,16,17,42 / ,WRD/17,16,17,42/\r\nC\r\nC\r\n      DO 210 I = 1,4\r\n      IF (ELM(I) .EQ. ELTYPE) GO TO 215\r\n  210 CONTINUE\r\n      GO TO 230\r\n  215 NELT = I\r\n      CALL OPEN (*240,EST,Z(BUF4),0)\r\n  220 CALL FWDREC (*250,EST)\r\n      CALL FREAD (EST,ELT,1,0)\r\n      IF (ELT .NE. ELTYPE) GO TO 220\r\n      NWORDS = WRD(NELT)\r\n      CALL FREAD (EST,BUFA,NWORDS,0)\r\n      CALL CLOSE (EST,1)\r\n      N1MAT  = BUF4 - BUF6\r\n      CALL PREMAT (Z(BUF6),Z(BUF6),Z(BUF4),N1MAT,N2MAT,MPT,DIT)\r\n      MATFLG = 1\r\n      ITEMP  = TMP(NELT)\r\n      IMATID = MTD(NELT)\r\n      IELTMP = BUFA(ITEMP)\r\n      MATID  = BUFA(IMATID)\r\n      IELID  = BUFA(1)\r\n      CALL MAT (IELID)\r\n  230 CONTINUE\r\n      IF (ELTYPE) 200,200,10\r\n   10 IF (ELTYPE .GT. 100) GO TO 200\r\nC              ROD       BEAM      TUBE      SHEAR     TWIST\r\n      GO TO (  21       ,1        ,21       ,1        ,1\r\nC              TRIA1     TRBSC     TRPLT     TRMEM     CONROD\r\n     1        ,20       ,20       ,20       ,40       ,21\r\nC              ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\n     2        ,1        ,1        ,1        ,1        ,20\r\nC              QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\n     3        ,40       ,20       ,20       ,20       ,1\r\nC              DAMP2     DAMP3     DAMP4     VISC      MASS1\r\n     4        ,1        ,1        ,1        ,1        ,1\r\nC              MASS2     MASS3     MASS4     CONM1     CONM2\r\n     5        ,1        ,1        ,1        ,1        ,1\r\nC              PLOTEL    REACT     QUAD3     BAR       CONE\r\n     6        ,1        ,1        ,1        ,22       ,1\r\nC              TRIARG    TRAPRG    TORDRG    TETRA     WEDGE\r\n     7        ,1        ,1        ,1        ,150      ,150\r\nC              HEXA1     HEXA2     FLUID2    FLUID3    FLUID4\r\n     8        ,150      ,150      ,1        ,1        ,1\r\nC              FLMASS    AXIF2     AXIF3     AXIF4     SLOT3\r\n     9        ,1        ,1        ,1        ,1        ,1\r\nC              SLOT4     HBDY      DUM1      DUM2      DUM3\r\n     A        ,1        ,1        ,1        ,1        ,1\r\nC              DUM4      DUM5      DUM6      DUM7      DUM8\r\n     B        ,1        ,1        ,1        ,1        ,1\r\nC              DUM9      QDMEM1    QDMEM2    QUAD4     IHEX1\r\n     C        ,1        ,40       ,40       ,20       ,1\r\nC              IHEX2     IHEX3     QUADTS    TRIATS    TRIAAX\r\n     D        ,1        ,1        ,1        ,1        ,1\r\nC              TRAPAX    AERO1     TRIM6     TRPLT1    TRSHL\r\n     E        ,1        ,1        ,1        ,1        ,1\r\nC              FHEX1     FHEX2     FTETRA    FWEDGE    IS2D8\r\n     F        ,1        ,1        ,1        ,1        ,40\r\nC              ELBOW     FTUBE     TRIA3     -----     -----\r\n     G        ,22       ,1        ,20       ,1        ,1\r\nC              -----     -----     -----     -----     -----\r\n     H        ,1        ,1        ,1        ,1        ,1\r\nC              -----     -----     -----     -----     -----\r\n     I        ,1        ,1        ,1        ,1        ,1\r\nC              -----     -----     -----     -----     -----\r\n     J        ,1        ,1        ,1        ,1        ,1    ), ELTYPE\r\nC\r\nC     ROD  CONROD  TUBE\r\nC\r\n   21 BUF(3) = FINT1\r\n      BUF(5) = FINT1\r\nC\r\nC     M. S. IN TENSION OR COMPRESSION\r\nC\r\n      IF (BUF(2) .GE. 0.0) GO TO 300\r\n      IF (SIGC   .EQ. 0.0) GO TO 301\r\n      BUF(3) = (-ABS(SIGC)/BUF(2))-1.0\r\n      GO TO 301\r\n  300 IF (SIGT.LE.0.0 .OR. BUF(2).EQ.0.0) GO TO 301\r\n      BUF(3) = SIGT/BUF(2)-1.0\r\nC\r\nC     M. S. IN TORSION\r\nC\r\n  301 IF (BUF(4).EQ.0.0 .OR. SIGS.LE.0.0) GO TO 200\r\n      BUF(3) = SIGS/ABS(BUF(4))-1.0\r\n      GO TO 200\r\nC\r\nC     BAR  ELBOW\r\nC\r\n   22 BUF( 7) = BUF(6) + AMAX1(BUF(2),BUF(3),BUF(4),BUF(5))\r\n      BUF( 8) = BUF(6) + AMIN1(BUF(2),BUF(3),BUF(4),BUF(5))\r\n      BUF( 9) = FINT1\r\n      BUF(14) = BUF(6) + AMAX1(BUF(10),BUF(11),BUF(12),BUF(13))\r\n      BUF(15) = BUF(6) + AMIN1(BUF(10),BUF(11),BUF(12),BUF(13))\r\n      BUF(16) = FINT1\r\nC\r\nC     M. S. IN TENSION\r\nC\r\n      IF (SIGT .LE. 0.0) GO TO 302\r\n      TEMP = BUF(7)\r\n      IF (BUF(7) .LT. BUF(14)) TEMP = BUF(14)\r\n      IF (TEMP   .LE. 0.0) GO TO 302\r\n      BUF(9) = SIGT/TEMP-1.0\r\nC\r\nC     M. S. IN COMPRESSION\r\nC\r\n  302 IF (SIGC .EQ. 0.0) GO TO 200\r\n      TEMP = BUF(8)\r\n      IF (BUF(8) .GT. BUF(15)) TEMP = BUF(15)\r\n      IF (TEMP   .GE. 0.0) GO TO 200\r\n      CPRIM   =-ABS(SIGC)\r\n      BUF(16) = CPRIM/TEMP - 1.0\r\n      GO TO 200\r\nC\r\nC     TRIA1  TRIA2  TRIA3  QUAD1  QUAD2  QUAD4  TRBSC  TRPLT  QDPLT\r\nC\r\n   20 I = 2\r\n      ASSIGN 30 TO IRETRN\r\n      GO TO 100\r\n   30 I = 10\r\n      ASSIGN 200 TO IRETRN\r\n      GO TO 100\r\nC\r\nC     TRMEM  QDMEM  QDMEM1  QDMEM2  IS2D8\r\nC\r\n   40 I = 1\r\n      ASSIGN 200 TO IRETRN\r\n      GO TO 100\r\nC\r\nC     PRINCIPAL STRESS EQUATIONS FOR 2-DIMENSIONAL ELEMENTS\r\nC\r\n  100 TEMP     = BUF(I+1) - BUF(I+2)\r\n      BUF(I+7) = SQRT((TEMP/2.0)**2 + BUF(I+3)**2)\r\n      DELTA    = (BUF(I+1) + BUF(I+2)) / 2.0\r\n      BUF(I+5) = DELTA + BUF(I+7)\r\n      BUF(I+6) = DELTA - BUF(I+7)\r\nC\r\n      IF (ANDF(ISYS(61),1)) 120,120,110\r\n  110 BUF(I+7) = SQRT(BUF(I+1)**2 + BUF(I+2)**2 - BUF(I+1)*BUF(I+2)\r\n     1         +  3.0*BUF(I+3)**2)\r\nC\r\n  120 DELTA = 2.0*BUF(I+3)\r\n      IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 121\r\n      BUF(I+4) = ATAN2(DELTA,TEMP)*28.6478898\r\n      GO TO IRETRN, (30,200)\r\nC\r\n  121 BUF(I+4) = 0.0\r\n      GO TO IRETRN, (30,200)\r\nC\r\nC     TETRA  WEDGE  HEXA1  HEXA2\r\nC\r\n  150 BUF(8) = SQRT(BUF(2)*(BUF(2)-BUF(3)-BUF(4))*2.0\r\n     1       +  2.0*BUF(3)*(BUF(3)-BUF(4)) + 2.0*BUF(4)**2\r\n     2       +  6.0*(BUF(5)**2 + BUF(6)**2 + BUF(7)**2)) / 3.0\r\n      GO TO 200\r\nC\r\n    1 CONTINUE\r\n  200 RETURN\r\nC\r\nC     ERROR PROCESSING FOR DDRMMS\r\nC\r\n  240 N = -1\r\n      FILE = EST\r\n      GO TO 260\r\n  250 N = -2\r\n      FILE = EST\r\n  260 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ddumx.f",
    "content": "      SUBROUTINE DDUMX\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4HDDUM/,     KK /\r\n     1        1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY DDUM9\r\nC     ===========\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM8\r\nC     ===========\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM7\r\nC     ===========\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM6\r\nC     ===========\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM5\r\nC     ===========\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM4\r\nC     ===========\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM3\r\nC     ===========\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM2\r\nC     ===========\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DDUM1\r\nC     ===========\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1       'THESE MESSAGES WILL APPEAR PER  OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/decode.f",
    "content": "      SUBROUTINE DECODE (CODE,LIST,N)\r\nC\r\nC     DECODE DECODES THE BITS IN A WORD AND RETURNS A LIST OF INTEGERS\r\nC     CORRESPONDING TO THE BIT POSITIONS WHICH ARE ON. NUMBERING\r\nC     CONVENTION IS RIGHT (LOW ORDER) TO LEFT (HIGH ORDER) 00 THRU 31.\r\nC\r\nC     ARGUMENTS\r\nC\r\nC     CODE - INPUT  - THE WORD TO BE DECODED\r\nC     LIST - OUTPUT - AN ARRAY OF DIMENSION .GE. 32 WHERE THE INTEGERS\r\nC                     CORRESPONDING TO BIT POSITIONS ARE STORED\r\nC     N    - OUTPUT - THE NUMBER OF ENTRIES IN THE LIST  I.E. THE NO.\r\nC                     OF 1-BITS IN THE WORD\r\nC\r\nC\r\n      EXTERNAL     ANDF\r\n      INTEGER      CODE,ANDF,TWO,LIST(1)\r\n      COMMON /TWO/ TWO(32)\r\nC\r\n      N = 0\r\n      DO 8 I = 1,32\r\n      IF (ANDF(TWO(33-I),CODE) .EQ. 0) GO TO 8\r\n      N = N + 1\r\n      LIST(N) = I - 1\r\n    8 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/decomp.f",
    "content": "      SUBROUTINE DECOMP (*,IX,X,DX)\r\nC\r\nC     DECOMP WILL DECOMPOSE A REAL UNSYMETRIC MATRIX INTO A UNIT LOWER\r\nC     TRIANGULAR MATRIX AND AN UPPER TRIANGULAR MATRIX,USING PARTIAL\r\nC     PIVOTING WITHIN THE LOWER BAND\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEA    =  MATRIX CONTROL BLOCK FOR THE INPUT  MATRIX A\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX U\r\nC     SR1FIL   =  SCRATCH FILE\r\nC     SR2FIL   =  SCRATCH FILE\r\nC     SR3FIL   =  SCRATCH FILE\r\nC     NX       =  NUMBER OF CELLS OF CORE AVAILABLE AT IX\r\nC     DET      =  CELL WHERE THE DETERMINATE OF A WILL BE STORED\r\nC     POWER    =  SCALE FACTOR TO BE APPLIED TO THE DETERMINATE\r\nC                 (DETERMINATE = DET*10**POWER)\r\nC     MINDIA   =  CELL WHERE THE VALUE OF THE MINIMUM DIAGONAL WILL BE\r\nC                 SAVED\r\nC     IX       =  BLOCK OF CORE AVAILABLE AS WORKING STORAGE TO DECOMP\r\nC     X        =  SAME BLOCK AS IX, BUT TYPED REAL\r\nC     DX       =  SAME BLOCK AS IX, BUT TYPED DOUBLE PRECISION\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,POWER    ,\r\n     1                   SYSBUF    ,FORMA    ,TYPEA    ,RDP      ,\r\n     2                   TYPEL     ,EOL      ,PARM(5)  ,BUFA     ,\r\n     3                   OUTBUF    ,SR1BUF   ,SR2BUF   ,SR3BUF   ,\r\n     4                   B         ,BBAR     ,C        ,CBAR     ,\r\n     5                   BBAR1     ,R        ,CCOUNT   ,CBCNT    ,\r\n     6                   SCRFLG    ,END      ,BBBAR    ,BBBAR1   ,\r\n     7                   COUNT     ,SR2FL    ,SR3FL    ,SR1FIL   ,\r\n     8                   SR2FIL    ,SR3FIL   ,SQR      ,SYM      ,\r\n     9                   FLAG      ,ITRAN(4)\r\n      DOUBLE PRECISION   DZ        ,DA       ,DET      ,MAX      ,\r\n     1                   MINDIA    ,DX(1)    ,DTRN\r\n      DIMENSION          IX(1)     ,X(1)\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM\r\n      COMMON   /DCOMPX/  FILEA(7)  ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL    ,SR3FIL   ,DET      ,POWER    ,\r\n     2                   NX        ,MINDIA   ,B        ,BBAR     ,\r\n     3                   C         ,CBAR     ,R\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENT\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /ZBLPKX/  Z(4)      ,JJ\r\n      COMMON   /UNPAKX/  ITYPEX    ,IXY      ,JXY      ,INCRX\r\n      COMMON   /PACKX /  ITYPE1    ,ITYPE2   ,IY       ,JY       ,\r\n     1                   INCRY\r\n      EQUIVALENCE        (DA,A(1))           ,(DZ,Z(1))          ,\r\n     1                   (FORMA,FILEA(4))    ,(TYPEA,FILEA(5))   ,\r\n     2                   (NCOL,FILEA(3))     ,(TYPEL,FILEL(5))\r\n      EQUIVALENCE        (ITRAN(1),ITRN)     ,(ITRAN(2),JTRN)    ,\r\n     1                   (ITRAN(3),DTRN)\r\n      DATA      PARM(3), PARM(4)/ 4HDECO,4HMP   /\r\n      DATA      IBEGN  / 4HBEGN /, IEND /4HEND  /\r\nC\r\nC     AT LAST, THE START OF THE PROGRAM\r\nC\r\n      IF ((FORMA.NE.SQR .AND. FORMA.NE.SYM) .OR. TYPEA.GT.RDP) GOTO 1660\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      BUFA   = NX     - SYSBUF\r\n      IBUFL  = BUFA   - SYSBUF\r\n      OUTBUF = IBUFL  - SYSBUF\r\n      SR1BUF = OUTBUF - SYSBUF\r\n      SR2BUF = SR1BUF - SYSBUF\r\n      SR3BUF = SR2BUF - SYSBUF\r\n      ICRQ   =-SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1668\r\n      DET    = 1.D0\r\n      POWER  = 0\r\n      MINDIA = 1.D+25\r\n      ITERM  = 0\r\n      IF (FILEA(1) .LT. 0) ITERM = 1\r\n      FILEA(1) = IABS(FILEA(1))\r\nC\r\nC     WRITE THE HEADER RECORD ON THE OUTPUT TAPES AND INITIALIZE THE\r\nC     TRAILER RECORDS.\r\nC\r\n      CALL GOPEN (FILEL,IX(IBUFL),WRTREW)\r\n      PARM(2) = SR2FIL\r\n      CALL OPEN  (*1670,SR2FIL,IX(OUTBUF),WRTREW)\r\n      CALL FNAME (FILEU(1),X(1))\r\n      CALL WRITE (SR2FIL,X(1),2,1)\r\n      FILEL(3) = NCOL\r\n      FILEL(4) = 4\r\n      FILEL(2) = 0\r\n      FILEL(6) = 0\r\n      FILEL(7) = 0\r\n      FILEU(2) = 0\r\n      FILEU(3) = NCOL\r\n      FILEU(4) = 5\r\n      FILEU(6) = 0\r\n      FILEU(7) = 0\r\n      FILEA(5) = 2\r\n      IF (NCOL .GT. 2 ) GO TO 10\r\n      IMHERE = 9\r\n      CALL ONETWO (*1710,IX(1),X(1),DX(1),ITERM)\r\nC\r\nC     CALL GENVEC TO PICK B,BBAR,C,CBAR, AND R\r\nC\r\n      RETURN\r\n   10 IF (B.GT.0 .AND. BBAR.GT.0) GO TO 15\r\n      IMHERE = 10\r\n      CALL GENVEC (*1710,IX(BUFA),FILEA(1),NX,IX(1),NCOL,B,BBAR,C,CBAR,\r\n     1             R,1)\r\n   15 CONTINUE\r\n      BBAR1  = BBAR + 1\r\n      BBBAR  = MIN0(B+BBAR,NCOL)\r\n      BBBAR1 = BBBAR - 1\r\n      SCRFLG = 0\r\n      IF (R .LT. BBBAR1) SCRFLG = 1\r\n      IF (SCRFLG .EQ. 0) GO TO 20\r\n      ICRQ = (BBBAR1-R)*2*BBAR\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,2000) UIM,ICRQ\r\n 2000 FORMAT (A29,' 2177, SPILL WILL OCCUR IN UNSYMMETRIC DECOMPOSITION'\r\n     1,      /,I10,' ADDITIONAL MEMORY WORDS NEEDED TO STAY IN CORE.')\r\nC\r\nC     INITIALIZE POINTERS TO SPECIFIC AREAS OF CORE\r\nC\r\n   20 I1   = 1\r\n      I1SP = (I1+BBAR*R)*2 - 1\r\n      IPAK = I1 + BBAR*R + BBBAR/2 + 1\r\n      I2   = IPAK\r\n      I3SP = (I2 + MIN0(NCOL,BBBAR+BBAR))*2 - 1\r\n      I3   = I2  + MIN0(NCOL,BBBAR+BBAR) + C\r\n      I4SP = I3SP + (BBAR+2)*C*2\r\n      I4   = I3 + BBAR1*C + CBAR\r\n      I5   = I4 + BBBAR*CBAR\r\n      I6SP = (I5+C*CBAR)*2 - 1\r\n      I7SP = I6SP + CBAR\r\n      END  = I7SP + C\r\n      PARM(5) = IBEGN\r\n      CALL CONMSG (PARM(3),3,0)\r\nC\r\nC     DEFINITION OF KEY PROGRAM PARAMETERS\r\nC\r\nC     I1     =  POINTER TO AREA WHERE COMPLETED COLUMNS OF L ARE STORED\r\nC     I1SP   =  POINTER TO AREA WHERE THE PERMUTATION INDEXES ARE STORED\r\nC     IPAK   =  POINTER TO AREA WHERE COLUMNS WILL BE PACKED FROM\r\nC     I2     =  POINTER TO AREA WHERE THE NEXT COLUMN OF A IS STORED\r\nC     I3     =  POINTER TO AREA WHERE ACTIVE COLUMNS ARE STORED\r\nC     I4     =  POINTER TO AREA WHERE ACTIVE ROWS ARE STORED\r\nC     I5     =  POINTER TO AREA WHERE INTERACTION ELEMENTS ARE STORED\r\nC     I6SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE ROW INDICES\r\nC               ARE STORED\r\nC     I7SP   =  POINTER TO AREA WHERE SEQUENCED ACTIVE COLUMN INDICES\r\nC               ARE STORED\r\nC     B      =  UPPER HALF-BAND\r\nC     BBAR   =  LOWER HALF-BAND\r\nC     C      =  NUMBER OF ACTIVE COLUMNS\r\nC     CBAR   =  NUMBER OF ACTIVE ROWS\r\nC     R      =  NUMBER OF COLUMNS OF L THAT CAN BE STORED IN CORE\r\nC     JPOS   =  CURRENT PIVOTAL COLUMN INDEX\r\nC     JPOSL  =  NEXT COLUMN OF L TO BE WRITTEN OUT\r\nC     LCOL   =  NUMBER OF COLUMNS OF L CURRENTLY STORED IN CORE OR ON\r\nC               SCRATCH FILES\r\nC     CCOUNT =  CURRENT NUMBER OF ACTIVE COLUMNS\r\nC     CBCNT  =  CURRENT NUMBER OF ACTIVE ROWS\r\nC     ITRN   =  ROW INDEX OF NEXT ACTIVE COLUMN ELEMENT\r\nC     JTRN   =  COLUMN INDEX  OF NEXT ACTIVE COLUMN ELEMENT\r\nC     IOFF   =  ROW POSITION OF THE FIRST ELEMENT IN AREA II\r\nC     ITERM  =  IF NONZERO, TERMINATE BEFORE THE RE-WRITE\r\nC     NCOL   =  SIZE OF THE INPUT MATRIX\r\nC     BBBAR  =  B + BBAR\r\nC     BBAR1  =  BBAR + 1\r\nC     BBBAR1 =  B+BBAR - 1\r\nC     SCRFLG =  NONZERO MEANS SPILL\r\nC\r\nC     ****************************************************************\r\nC     RE-WRITE THE UPPER TRIANGLE OF ACTIVE ELEMENTS IN THE TRANSPOSED\r\nC     ORDER\r\nC     ****************************************************************\r\nC\r\n      PARM(2) = FILEA(1)\r\n      CALL OPEN (*1670,FILEA(1),IX(BUFA),RDREW)\r\n      CCOUNT = 0\r\n      IF (C .EQ. 0) GO TO 40\r\n      CALL TRANSP (IX(1),X(1),NX,FILEA(1),B,SR1FIL)\r\nC\r\nC     ZERO CORE\r\nC\r\n   40 DO 50 I = 1,END\r\n   50 X(I) = 0.\r\n      IF (C .EQ. 0) GO TO 260\r\nC\r\nC     ****************************************************************\r\nC     OPEN THE FILE CONTAINING THE TRANSPOSED ACTIVE ELEMENTS AND READ I\r\nC     THE FIRST BBAR + 1 ROWS\r\nC     ****************************************************************\r\nC\r\n      PARM(2) = SR1FIL\r\n      CALL OPEN (*1670,SR1FIL,IX(SR1BUF),RD)\r\n      K = 0\r\n   60 CALL READ (*1680,*1690,SR1FIL,ITRAN(1),4,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 70\r\n      CALL CLOSE (SR1FIL,REW)\r\n      GO TO 140\r\n   70 IF (ITRN .GT. K+1) GO TO 130\r\nC\r\nC     DETERMINE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      IF (JTRN .LE. BBBAR) GO TO 60\r\n      KK  = 0\r\n   80 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 90\r\n      KK  = KK + 1\r\n      IF (KK-C) 80,100,1700\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING COLUMN\r\nC\r\n   90 IN1 = I3 + KK*BBAR1 + K\r\n      DX(IN1) = DTRN\r\n      GO TO 60\r\nC\r\nC     CREATE NEW ACTIVE COLUMN\r\nC\r\n  100 CCOUNT = CCOUNT + 1\r\n      KK  = 0\r\n  110 IN1 = I3SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 120\r\n      KK  = KK + 1\r\n      IF (KK-C) 110,1700,1700\r\n  120 IX(IN1) = JTRN\r\n      IN1     = IN1 + C\r\n      IX(IN1) = K+1\r\n      IN1     = I3 + KK*BBAR1 + K\r\n      DX(IN1) = DTRN\r\n      GO TO 60\r\n  130 K = K + 1\r\n      IF (K-BBAR1) 70,140,1700\r\nC\r\nC     SET INDEXES IN AREA VII TO POINT TO THE ACTIVE COLUMNS IN SEQUENCE\r\nC\r\n  140 ASSIGN 260 TO KK\r\n  150 IN1 = I7SP\r\n      K   = 0\r\n  160 IN2 = I3SP + K\r\n      IF (IX(IN2)) 1700,180,190\r\n  170 IN1 = IN1 + 1\r\n  180 K   = K + 1\r\n      IF (K-C) 160,250,1700\r\n  190 IF (IN1 .NE. I7SP) GO TO 200\r\n      IX(IN1) = K\r\n      GO TO 170\r\n  200 KKK = 0\r\n  210 IN3 = IN1 -KKK\r\n      IF (IN3 .GT. I7SP) GO TO 220\r\n      IX(IN3) = K\r\n      GO TO 170\r\n  220 IN4 = I3SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 240,1700,230\r\n  230 IX(IN3) = K\r\n      GO TO 170\r\n  240 IX(IN3) = IX(IN3-1)\r\n      KKK = KKK + 1\r\n      GO TO 210\r\n  250 GO TO KK, (260,1560)\r\n  260 CONTINUE\r\nC\r\nC     INITIALIZE\r\nC\r\n      SR2FL = FILEU(1)\r\n      SR3FL = SR3FIL\r\n      JPOS  = 1\r\n      PARM(2) = FILEA(1)\r\n      CALL FWDREC (*1680,FILEA(1))\r\n      LCOL  = 0\r\n      CBCNT = 0\r\n      JPOSL = 0\r\n  270 IF (JPOS .GT. NCOL) GO TO 1650\r\nC****************************************************************\r\nC     READ NEXT COLUMN OF A INTO AREA II\r\nC****************************************************************\r\n      IOFF   = MAX0(1,JPOS-BBBAR1)\r\n      COUNT  = CBCNT\r\n      IMHERE = 275\r\n      CALL INTPK (*1710,FILEA(1),0,RDP,0)\r\n      K = 1\r\n      IF (JPOS .GT. BBBAR) K = JPOS - B + 1\r\n  280 IF (EOL) 400,290,400\r\n  290 CALL ZNTPKI\r\n      IF (II .LT. K) GO TO 280\r\n      K = JPOS + BBAR\r\n  300 IF (II .GT. K) GO TO 330\r\nC\r\nC     READ ELEMENTS WITHIN THE BAND INTO AREA II\r\nC\r\n      IN1 = I2 - IOFF + II\r\n      DX(IN1) = DA\r\n  310 IF (EOL) 400,320,400\r\n  320 CALL ZNTPKI\r\n      GO TO 300\r\nC\r\nC     TAKE CARE OF ACTIVE ELEMENTS BELOW THE BAND\r\nC\r\n  330 KK  = 0\r\n  340 IN1 = I4SP + KK\r\n      IF (IX(IN1)-II) 350,360,350\r\n  350 KK  = KK + 1\r\n      IF (KK-CBAR) 340,370,1700\r\nC\r\nC     ADD IN ACTIVE ELEMENT TO EXISTING ROW\r\nC\r\n  360 IN1 = I4 + (KK+1)*BBBAR - 1\r\n      DX(IN1) = DA\r\n      GO TO 310\r\nC\r\nC     CREATE NEW ACTIVE ROW\r\nC\r\n  370 KK  = 0\r\n  380 IN1 = I4SP + KK\r\n      IF (IX(IN1) .EQ. 0) GO TO 390\r\n      KK  = KK + 1\r\n      IF (KK-CBAR) 380,1700,1700\r\n  390 IX(IN1) = II\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = JPOS\r\n      IN1     = I4 + (KK+1)*BBBAR - 1\r\n      DX(IN1) = DA\r\n      CBCNT   = CBCNT + 1\r\n      GO TO 310\r\nC\r\nC     ARRANGE ACTIVE ROW INDEXES IN SEQUENCE AND STORE THEM IN AREA VI\r\nC\r\n  400 IF (COUNT .EQ. CBCNT) GO TO 500\r\n      IN1 = I6SP\r\n      K   = 0\r\n  410 IN2 = I4SP + K\r\n      IF (IX(IN2)) 1700,430,440\r\n  420 IN1 = IN1 + 1\r\n  430 K   = K + 1\r\n      IF (K-CBAR) 410,500,1700\r\n  440 IF (IN1 .NE. I6SP) GO TO 450\r\n      IX(IN1) = K\r\n      GO TO 420\r\n  450 KK  = 0\r\n  460 IN3 = IN1 - KK\r\n      IF (IN3 .GT. I6SP) GO TO 470\r\n      IX(IN3) = K\r\n      GO TO 420\r\n  470 IN4 = I4SP + IX(IN3-1)\r\n      IF (IX(IN2)-IX(IN4)) 490,1700,480\r\n  480 IX(IN3) = K\r\n      GO TO 420\r\n  490 IX(IN3) = IX(IN3-1)\r\n      KK = KK + 1\r\n      GO TO 460\r\n  500 CONTINUE\r\nC\r\nC     TEST FOR POSSIBLE MERGING BETWEEN AN INACTIVE-ACTIVE COLUMN AND\r\nC     THE CURRENT PIVOTAL COLUMN\r\nC\r\n      IF (CCOUNT .EQ. 0) GO TO 600\r\n      IN1 = IX(I7SP) + I3SP\r\n      IF (IX(IN1)-JPOS) 1700,510,600\r\nC\r\nC     MERGE ACTIVE COLUMN AND CURRENT PIVOTAL COLUMN AND ZERO THAT\r\nC     ACTIVE COLUMN IN AREA III\r\nC\r\n  510 IX(IN1) = 0\r\n      IN1     = IN1 + C\r\n      IX(IN1) = 0\r\n      IN1     = I3 + IX(I7SP)*BBAR1\r\n      CCOUNT  = CCOUNT - 1\r\n      KK  = 0\r\n  520 IN2 = IN1 + KK\r\n      IN3 = I2 + KK\r\n      DX(IN3) = DX(IN3) + DX(IN2)\r\n      DX(IN2) = 0.D0\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 520,530,1700\r\nC\r\nC     MERGE INTERACTION ELEMENTS\r\nC\r\n  530 CONTINUE\r\n      IF (CBCNT .EQ. 0) GO TO 580\r\n      IN1 = I5 + IX(I7SP)*CBAR\r\n      K   = 0\r\n  540 IN2 = I4SP + K\r\n      IF (IX(IN2) .EQ. 0) GO TO 560\r\n      IN3 = IN1 + K\r\n      IF (DX(IN3) .EQ. 0.D0) GO TO 560\r\n      IF (IX(IN2) .GT. JPOS+BBAR) GO TO 570\r\nC\r\nC     STORE ELEMENT WITHIN THE LOWER BAND\r\nC\r\n      IN2 = I2 + IX(IN2) - IOFF\r\n      DX(IN2) = DX(IN2) - DX(IN3)\r\n  550 DX(IN3) = 0.D0\r\n  560 K = K + 1\r\n      IF (K-CBAR) 540,580,1700\r\nC\r\nC     STORE ELEMENT IN THE ACTIVE ROW\r\nC\r\n  570 IN2 = I4 + (K+1)*BBBAR - 1\r\n      DX(IN2) = DX(IN2) - DX(IN3)\r\n      DX(IN3) = 0.D0\r\n      GO TO 550\r\nC\r\nC     MOVE THE POINTERS IN AREA VII UP ONE\r\nC\r\n  580 IN1 = I7SP + CCOUNT - 1\r\n      DO 590 I = I7SP,IN1\r\n  590 IX(I    ) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n  600 IF(LCOL.EQ.0)GO TO 820\r\nC\r\nC     ****************************************************************\r\nC     OPERATE ON THE CURRENT COLUMN OF A BY ALL PREVIOUS COLUMNS OF L,\r\nC     MAKING NOTED INTERCHANGES AS YOU GO\r\nC     ****************************************************************\r\nC\r\n      IF (SCRFLG .EQ. 0) GO TO 630\r\n      IF (LCOL-(R-1)) 630,620,610\r\n  610 PARM(2) = SR2FL\r\n      CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD)\r\n  620 PARM(2) = SR3FL\r\n      CALL OPEN (*1670,SR3FL,IX(SR3BUF),WRTREW)\r\n  630 LL   = 0\r\n      LLL  = 0\r\n      LLLL = 0\r\nC\r\nC     PICK UP INTERCHANGE INDEX FOR COLUMN JPOSL + LL + 1\r\nC\r\n  640 IN1    = I1SP + LL\r\n      INTCHN = IX(IN1)\r\n      IN2    = I2 + LL\r\n      IF (INTCHN .EQ. 0) GO TO 650\r\nC\r\nC     PERFORM ROW INTERCHANGE\r\nC\r\n      IN1 = IN2 + INTCHN\r\n      DA  = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA\r\n  650 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION FROM THAT COLUMN\r\nC\r\n      END = MIN0(BBAR1,NCOL-(JPOSL+LL))\r\n      END = END - 1\r\n      IF (DX(IN2)) 660,710,660\r\n  660 IN1 = I1 + LLL*BBAR\r\n      CALL DLOOP (DX(IN2+1),DX(IN1),-DX(IN2),END)\r\n      IF (CBCNT .EQ. 0) GO TO 710\r\nC\r\nC     TEST TO SEE IF AN INACTIVE-ACTIVE ROW CONTRIBUTION SHOULD BE\r\nC     ADDED IN\r\nC\r\n      KKK = 0\r\n  680 IN3 = I6SP + KKK\r\n      IN1 = IX(IN3) + I4SP\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 710\r\n      KK = IN1 + CBAR\r\n      IF (IX(KK) .GT. JPOSL+LL+1) GO TO 700\r\n      IF (IX(IN1)-JPOSL-BBAR1 .LE. LL) GO TO 700\r\nC\r\nC     ADD IN EFFECT OF THE INACTIVE-ACTIVE ROW\r\nC\r\n      IN4 = I2 + IX(IN1) - IOFF\r\n      K   = JPOSL + BBBAR - JPOS  + LL + I4 + IX(IN3)*BBBAR\r\n      DX(IN4) = DX(IN4) - DX(K)*DX(IN2)\r\n  700 KKK = KKK + 1\r\n      IF (KKK .LT. CBCNT) GO TO 680\r\n  710 LL  = LL  + 1\r\n      LLL = LLL + 1\r\n      IF (LL .EQ. LCOL) GO TO 770\r\n      IF (LL-R+1) 640,720,750\r\n  720 IF (R .EQ. BBBAR1) GO TO 640\r\n      IN1  = I1  + LL*BBAR\r\n  740 ICRQ = IN1 + BBAR*2 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1668\r\n      IBBAR2 = BBAR*2\r\n      CALL READ (*1680,*1690,SR2FL,DX(IN1),IBBAR2,0,FLAG)\r\n      GO TO 640\r\n  750 IN1 = I1 + (LLL-1)*BBAR\r\n      IF (LL.EQ.R .AND. LCOL.EQ.BBBAR1) GO TO 760\r\n      CALL WRITE (SR3FL,DX(IN1),2*BBAR,0)\r\n  760 LLL = LLL - 1\r\n      GO TO 740\r\n  770 CONTINUE\r\nC\r\nC     COMPUTE ELEMENTS FOR THE ACTIVE ROWS\r\nC\r\n      IF (CBCNT .EQ. 0) GO TO 820\r\n      K   = 0\r\n  780 IN1 = I4SP + K\r\n      IF (IX(IN1) .GT. JPOS+BBAR) GO TO 800\r\n  790 K   = K + 1\r\n      IF (K-CBAR) 780,820,1700\r\n  800 IN1 = IN1 + CBAR\r\n      IF (IX(IN1) .EQ. JPOS) GO TO 790\r\n      KKK = MAX0(0,BBBAR-JPOS+IX(IN1)-1)\r\n      IN2 = I4  + K*BBBAR - 1\r\n      IN3 = I2  + KKK - 1 - MAX0(0,BBBAR-JPOS)\r\n      IN1 = IN2 + BBBAR\r\n      IN2 = IN2 + KKK\r\n  810 IN2 = IN2 + 1\r\n      KKK = KKK + 1\r\n      IN3 = IN3 + 1\r\n      DX(IN1) = DX(IN1)-DX(IN2)*DX(IN3)\r\n      IF (KKK-BBBAR1) 810,790,1700\r\nC\r\nC     SEARCH THE LOWER BAND FOR THE MAXIMUM ELEMENT AND INTERCHANGE\r\nC     ROWS TO BRING IT TO THE DIAGONAL\r\nC\r\n  820 K   = 1\r\n      IN1 = I2 + JPOS - IOFF\r\n      MAX = DABS(DX(IN1))\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      INTCHN = 0\r\n      IF (END .EQ. 1) GO TO 860\r\n  830 IN2 = IN1 + K\r\n      IF (DABS(DX(IN2)) .GT. MAX) GO TO 850\r\n  840 K = K + 1\r\n      IF (K-END) 830,860,1700\r\n  850 MAX = DABS(DX(IN2))\r\n      INTCHN = K\r\n      GO TO 840\r\nC\r\n  860 IF (INTCHN .EQ. 0) GO TO 870\r\nC\r\nC     INTERCHANGE ROWS IN AREA II\r\nC\r\n      DET = -DET\r\nC\r\n      MAX = DX(IN1)\r\n      IN2 = IN1 + INTCHN\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = MAX\r\nC\r\nC     STORE THE PERMUTATION INDEX\r\nC\r\n      IN2 = I1SP + LCOL\r\n      IX(IN2) = INTCHN\r\nC\r\nC     DIVIDE THE LOWER BAND BY THE DIAGONAL ELEMENT\r\nC\r\n  870 IMHERE = 870\r\n      IF (DX(IN1) .EQ. 0.D0) GO TO 1710\r\n      MAX = 1.D0/DX(IN1)\r\n      MINDIA = DMIN1(DABS(DX(IN1)),MINDIA)\r\n  880 IF (DABS(DET) .LE. 10.D0) GO TO 890\r\n      DET   = DET/10.D0\r\n      POWER = POWER + 1\r\n      GO TO 880\r\n  890 IF (DABS(DET) .GE. .1D0) GO TO 900\r\n      DET   = DET*10.D0\r\n      POWER = POWER - 1\r\n      GO TO 890\r\n  900 DET = DET*DX(IN1)\r\n      K   = 1\r\n      END = MIN0(BBAR1,NCOL-JPOS+1)\r\n      IF (END .EQ. 1) GO TO 920\r\n  910 IN2 = IN1 + K\r\n      DX(IN2) = DX(IN2)*MAX\r\n      K = K + 1\r\n      IF (K-END) 910,920,1700\r\n  920 IF (CBCNT .EQ. 0) GO TO 940\r\nC\r\nC     DIVIDE THE ACTIVE ROWS BY THE DIAGONAL\r\nC\r\n      K   = 0\r\n      IN1 = I4 + BBBAR1\r\n  930 DX(IN1) = DX(IN1)*MAX\r\n      IN1 = IN1 + BBBAR\r\n      K   = K + 1\r\n      IF (K-CBAR) 930,940,1700\r\n  940 CONTINUE\r\nC\r\nC     INTERCHANGE ACTIVE COLUMNS AND ADD IN EFFECT OF THE COLUMN OF L\r\nC     ABOUT TO BE WRITTEN OUT\r\nC\r\n      IF (CCOUNT .EQ. 0) GO TO 990\r\n      IF (JPOS .LT. BBBAR) GO TO 990\r\n      INTCH = IX(I1SP)\r\n      K   = 0\r\n  950 IN1 = I3SP + K\r\n      IF (INTCH .EQ. 0) GO TO 960\r\n      IN1 = I3  + K*BBAR1\r\n      IN2 = IN1 + INTCH\r\n      DA  = DX(IN1)\r\n      DX(IN1) = DX(IN2)\r\n      DX(IN2) = DA\r\n  960 KK  = 1\r\n      IN2 = I1 - 1\r\n      IN1 = I3 + K*BBAR1\r\n      IF (DX(IN1) .EQ. 0.D0) GO TO 980\r\n  970 IN3 = IN1 + KK\r\n      IN4 = IN2 + KK\r\n      DX(IN3) = DX(IN3) - DX(IN1)*DX(IN4)\r\n      KK = KK + 1\r\n      IF (KK-BBAR1) 970,980,1700\r\n  980 K = K + 1\r\n      IF (K-C) 950,990,1700\r\nC\r\nC     WRITE OUT THE NEXT COLUMN OF U AND THE ROW OF ACTIVE ELEMENTS\r\nC\r\n  990 PARM(2) = SR2FIL\r\n      CALL BLDPK (RDP,TYPEL,SR2FIL,0,0)\r\n      IN1 = I2\r\n      JJ  = IOFF\r\n      IMHERE = 1030\r\n 1000 DZ = DX(IN1)\r\n      IF (DZ) 1010,1020,1010\r\n 1010 CALL ZBLPKI\r\n 1020 IN1 = IN1 + 1\r\n      JJ  = JJ  + 1\r\n      IF (JJ-JPOS)   1000,1000,1030\r\n 1030 IF (DX(IN1-1)) 1040,1710,1040\r\n 1040 CONTINUE\r\nC\r\nC     PACK ACTIVE COLUMN ELEMENTS ALSO\r\nC\r\n      IF (CCOUNT .EQ.   0) GO TO 1080\r\n      IF (JPOS .LT. BBBAR) GO TO 1080\r\n      K   = 0\r\n 1050 IN1 = I7SP + K\r\n      IN2 = IX(IN1) + I3SP\r\n      GO TO 1070\r\n 1060 K = K + 1\r\n      IF (K-CCOUNT) 1050,1080,1700\r\n 1070 IN3 = I3 + IX(IN1)*BBAR1\r\n      DZ  = DX(IN3)\r\n      IF (DZ .EQ. 0.D0) GO TO 1060\r\n      JJ = IX(IN2)\r\n      CALL ZBLPKI\r\n      GO TO 1060\r\n 1080 CALL BLDPKN (SR2FIL,0,FILEU)\r\nC\r\nC     COMPUTE ACTIVE ROW-COLUMN INTERACTION\r\nC\r\n      IF (CCOUNT.EQ.0 .OR. CBCNT.EQ.0) GO TO 1130\r\n      IF (JPOS .LT. BBBAR) GO TO 1130\r\n      K = 0\r\n 1090 CONTINUE\r\n      IN1 = I3 + K*BBAR1\r\n      IF (DX(IN1) .EQ. 0.D0) GO TO 1120\r\n      KK  = 0\r\n 1100 IN2 = I4SP + KK\r\n      IN2 = I4 + KK*BBBAR\r\n      IF (DX(IN2) .EQ. 0.D0) GO TO 1110\r\n      IN3 = I5 + K*CBAR + KK\r\n      DX(IN3) = DX(IN3)+DX(IN2)*DX(IN1)\r\n 1110 KK = KK + 1\r\n      IF (KK-CBAR) 1100,1120,1700\r\n 1120 K  = K  + 1\r\n      IF (K-C) 1090,1130,1700\r\nC\r\nC     MOVE ELEMENTS IN AREA III UP ONE CELL\r\nC\r\n 1130 IF (CCOUNT . EQ.  0) GO TO 1180\r\n      IF (JPOS .LT. BBBAR) GO TO 1180\r\n      K   = 0\r\n 1140 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1170\r\n      KK  = 0\r\n      IN1 = I3  + K*(BBAR1)\r\n 1150 IN2 = IN1 + KK\r\n      DX(IN2) = DX(IN2+1)\r\n      KK = KK + 1\r\n      IF (KK-BBAR) 1150,1160,1700\r\n 1160 DX(IN2+1) = 0.D0\r\n 1170 K  = K + 1\r\n      IF (K-C) 1140,1180,1700\r\nC\r\nC     DETERMINE IF A COLUMN OF L CAN BE WRITTEN OUT\r\nC\r\n 1180 IF (LCOL-BBBAR1) 1360,1190,1190\r\nC\r\nC     OUTPUT A COLUMN OF L\r\nC\r\n 1190 PARM(2) = FILEL(1)\r\n      JPOSL   = JPOSL + 1\r\n      CALL BLDPK (RDP,TYPEL,FILEL(1),0,0)\r\nC\r\nC     STORE THE PERMUTATION INDEX AS THE DIAGONAL ELEMENT\r\nC\r\n      JJ = JPOSL\r\n      DZ = IX(I1SP)\r\n      CALL ZBLPKI\r\n      K  = 0\r\n 1200 JJ = JPOSL + K + 1\r\n      IN2= I1  + K\r\n      DZ = DX(IN2)\r\n      IF (DZ) 1210,1220,1210\r\n 1210 CALL ZBLPKI\r\n 1220 K = K + 1\r\n      IF (K-BBAR) 1200,1230,1700\r\nC\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC\r\n 1230 IF (CBCNT .EQ. 0) GO TO 1270\r\n      K   = 0\r\n 1240 IN1 = I6SP + K\r\n      IN2 = I4 + IX(IN1)*BBBAR\r\n      IN1 = IX(IN1) + I4SP\r\n      JJ  = IX(IN1)\r\n      DZ  = DX(IN2)\r\n      IF (DZ .EQ. 0.D0) GO TO 1260\r\n      CALL ZBLPKI\r\n 1260 K = K + 1\r\n      IF (K-CBCNT) 1240,1270,1700\r\n 1270 CALL BLDPKN (FILEL,0,FILEL)\r\nC\r\nC     MOVE PERMUTATION INDICES OVER ONE ELEMENT\r\nC\r\n      END = I1SP + LCOL\r\n      DO 1280 I = I1SP,END\r\n 1280 IX(I) = IX(I+1)\r\nC\r\nC     MOVE ELEMENTS IN AREA I OVER ONE COLUMN\r\nC\r\n      K = 0\r\n      IF (SCRFLG .EQ. 0) GO TO 1300\r\n      CALL CLOSE (SR2FL,REW)\r\n      IF (R .GT. 2) GO TO 1300\r\n      ICRQ = I1 + BBAR*2 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1668\r\n      CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD)\r\n      IBBAR2 = 2*BBAR\r\n      CALL READ (*1680,*1690,SR2FL,DX(I1),IBBAR2,0,FLAG)\r\n      GO TO 1350\r\n 1300 IN1 = I1  + K*BBAR\r\n      IN2 = IN1 + BBAR\r\n      CALL XLOOP (DX(IN1),DX(IN2),BBAR)\r\n      K = K + 1\r\n      IF (K-R+2) 1300,1330,1350\r\n 1330 IF (R-BBBAR1) 1340,1300,1700\r\n 1340 ICRQ = IN2 + BBAR*2 - 1 - SR3BUF\r\n      IF (ICRQ .GT. 0) GO TO 1668\r\n      CALL OPEN (*1670,SR2FL,IX(SR2BUF),RD)\r\n      IBBAR2 = BBAR*2\r\n      CALL READ (*1680,*1690,SR2FL,DX(IN2),IBBAR2,0,FLAG)\r\n 1350 LCOL = LCOL - 1\r\nC\r\nC     STORE CURRENT COLUMN OF L\r\nC\r\n 1360 IF (CBCNT .EQ. 0) GO TO 1410\r\nC\r\nC     MOVE ELEMENTS IN AREA IV UP ONE CELL\r\nC\r\n      K   = 0\r\n 1370 IN1 = I4SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1400\r\n      KK  = 0\r\n      IN1 = I4 + K*BBBAR\r\n 1380 IN2 = IN1 + KK\r\n      DX(IN2) = DX(IN2+1)\r\n      KK = KK + 1\r\n      IF (KK-BBBAR1) 1380,1390,1700\r\n 1390 DX(IN2+1) = 0.D0\r\n 1400 K = K + 1\r\n      IF (K-CBAR) 1370,1410,1700\r\n 1410 IF (SCRFLG .NE. 0) GO TO 1440\r\nC\r\nC     STORE COLUMN IN CORE\r\nC\r\n 1420 IN1 = I1 + LCOL*BBAR\r\n      END = MIN0(BBAR,NCOL-JPOS)\r\n      IF (END .EQ. 0) GO TO 1470\r\n      K   = 0\r\n      IN3 = I2 + JPOS - IOFF + 1\r\n 1430 IN2 = IN1 + K\r\n      IN4 = IN3 + K\r\n      DX(IN2) = DX(IN4)\r\n      K = K + 1\r\n      IF (K-END) 1430,1470,1700\r\nC\r\nC     STORE COLUMN ON THE SCRATCH FILE\r\nC\r\n 1440 IF (LCOL-R+1) 1420,1460,1450\r\n 1450 IN1 = I1 + (LLL-1)*BBAR\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*2,0)\r\n 1460 IN1 = I2 + JPOS - IOFF + 1\r\n      CALL WRITE (SR3FL,DX(IN1),BBAR*2,0)\r\nC\r\nC     CLOSE SCRATCH FILES AND SWITCH THE POINTERS TO THEM\r\nC\r\n      CALL CLOSE (SR3FL,REW)\r\n      CALL CLOSE (SR2FL,REW)\r\n      IN1   = SR2FL\r\n      SR2FL = SR3FL\r\n      SR3FL = IN1\r\n 1470 LCOL  = LCOL + 1\r\n      IF (C .EQ. 0) GO TO 1560\r\n      IF (JPOS .LT. BBBAR) GO TO 1560\r\nC\r\nC     READ IN THE NEXT ROW OF ACTIVE COLUMN ELEMENTS\r\nC\r\n      COUNT = CCOUNT\r\n      IF (ITRN .LT. 0) GO TO 1560\r\n 1480 IF (ITRN .GT. JPOS-B+2) GO TO 1550\r\nC\r\nC     TEST TO SEE IF COLUMN IS ALREADY ACTIVE\r\nC\r\n      K   = 0\r\n 1490 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. JTRN) GO TO 1530\r\n      K   = K + 1\r\n      IF (K-C) 1490,1500,1700\r\nC\r\nC     CREATE A NEW ACTIVE COLUMN\r\nC\r\n 1500 K   = 0\r\n 1510 IN1 = I3SP + K\r\n      IF (IX(IN1) .EQ. 0) GO TO 1520\r\n      K   = K + 1\r\n      IF (K-C) 1510,1700,1700\r\n 1520 IX(IN1) = JTRN\r\n      IN1     = IN1 + C\r\n      IX(IN1) = ITRN\r\n      IN1     = I3 + (K+1)*BBAR1 - 1\r\n      DX(IN1) = DTRN\r\n      CCOUNT  = CCOUNT + 1\r\n      GO TO 1540\r\nC\r\nC     STORE ELEMENT IN EXISTING COLUMN\r\nC\r\n 1530 IN1 = I3 + (K+1)*BBAR1 - 1\r\n      DX(IN1) = DX(IN1) + DTRN\r\n 1540 CALL READ (*1680,*1690,SR1FIL,ITRAN,4,0,FLAG)\r\n      IF (ITRN .GT. 0) GO TO 1480\r\n      CALL CLOSE (SR1FIL,REW)\r\n 1550 IF (CCOUNT .EQ. COUNT) GO TO 1560\r\nC\r\nC     RE-ARRANGE INDEXES IN SEQUENTIAL ORDER\r\nC\r\n      ASSIGN 1560 TO KK\r\n      GO TO 150\r\n 1560 CONTINUE\r\n      JPOS = JPOS + 1\r\nC\r\nC     ZERO AREA II\r\nC\r\n      END = I2 + MIN0(JPOS-IOFF+BBAR-1,NCOL-1)\r\n      DO 1580 I = I2,END\r\n 1580 DX(I) = 0.D0\r\nC\r\nC      TEST TO SEE IF ROW INTERACTION ELEMENTS WILL MERGE INTO AREA III\r\nC\r\n      IF (CBCNT  .EQ. 0) GO TO 270\r\n      IF (CCOUNT .EQ. 0) GO TO 1620\r\n      IF (JPOS-1 .LT. BBBAR) GO TO 270\r\n      IN1 = I4SP\r\n      K   = 0\r\n 1590 IN2 = IN1 + K\r\n      IF (IX(IN2) .EQ. JPOS-B+1) GO TO 1600\r\n      K   = K + 1\r\n      IF (K .LT. CBAR) GO TO 1590\r\n      GO TO 270\r\n 1600 IN1 = I5 + K\r\n      IN2 = I3 + BBAR\r\n      K   = 0\r\n 1610 DX(IN2) = DX(IN2)-DX(IN1)\r\n      DX(IN1) = 0.D0\r\n      IN2 = IN2 + BBAR1\r\n      IN1 = IN1 + CBAR\r\n      K   = K + 1\r\n      IF (K .LT. C) GO TO 1610\r\nC\r\nC      TEST TO SEE IF ACTIVE ROW HAS BEEN ELIMINATED\r\nC\r\n 1620 IN1 = IX(I6SP) + I4SP\r\n      IF (IX(IN1)-JPOSL-BBAR1) 270,1630,270\r\nC\r\nC     ELIMINATE THE ACTIVE ROW\r\nC\r\n 1630 IX(IN1) = 0\r\n      IN1     = IN1 + CBAR\r\n      IX(IN1) = 0\r\n      CBCNT   = CBCNT - 1\r\nC\r\nC     MOVE INDEXES IN AREA VI UP ONE\r\nC\r\n      IN1 = I6SP + CBCNT - 1\r\n      DO 1640 I = I6SP,IN1\r\n 1640 IX(I    ) = IX(I+1)\r\n      IX(IN1+1) = 0\r\n      GO TO 270\r\nC\r\nC     FINISH WRITING OUT THE COMPLETED COLUMNS OF L\r\nC\r\n 1650 CONTINUE\r\n      CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (FILEL,NOREW)\r\n      CALL CLOSE (SR2FIL,NOREW)\r\n      PARM(5) = IEND\r\n      CALL CONMSG (PARM(3),3,0)\r\n      CALL FINWRT (ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,IPAK,R,\r\n     1             BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\n      FILEU(7) = BBBAR     \r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1660 PARM(1) = -7\r\n      GO TO 1720\r\n 1668 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      GO TO 1720\r\n 1670 PARM(1) = -1\r\n      GO TO 1720\r\n 1680 PARM(1) = -2\r\n      GO TO 1720\r\n 1690 PARM(1) = -3\r\n      GO TO 1720\r\n 1700 PARM(1) = -25\r\n      GO TO 1720\r\nC\r\nC     SINGULAR MATRIX - CLOSE ALL FILES AND RETURN TO USER\r\nC\r\n 1710 CALL CLOSE (FILEA(1),REW)\r\n      CALL CLOSE (FILEL(1),REW)\r\n      CALL CLOSE (FILEU(1),REW)\r\n      CALL CLOSE (SR1FIL,REW)\r\n      CALL CLOSE (SR2FIL,REW)\r\n      CALL CLOSE (SR3FIL,REW)\r\n      WRITE  (NOUT,1715) IMHERE\r\n 1715 FORMAT (/60X,'DECOMP/IMHERE@',I5)\r\nCWKBA 4/95 SPR94018\r\n      FILEU(7) = BBBAR     \r\n      RETURN 1\r\n 1720 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/degree.f",
    "content": "      SUBROUTINE DEGREE (IG,IDEG,JG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     SET UP THE IDEG ARRAY CONTAINING THE DEGREE OF EACH NODE STORED\r\nC     IN THE IG ARRAY.\r\nC     IDEG(I)=DEGREE OF NODE I\r\nC\r\nC     INTEGER          BUNPK\r\n      DIMENSION        IG(1),    JG(1),   IDEG(1)\r\n      COMMON /BANDS /  NN,       MM\r\nC\r\n      DO 100 I=1,NN\r\n      IDEG(I)=0\r\n      CALL BUNPAK(IG,I,MM,JG)\r\n      DO 80 J=1,MM\r\nC     IF (BUNPK(IG,I,J)) 100,100,50\r\n      IF (JG(J)) 100,100,50\r\n   50 IDEG(I)=IDEG(I)+1\r\n   80 CONTINUE\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/delete.f",
    "content": "      SUBROUTINE DELETE (NAME,ITEMX,ITEST)\r\nC\r\nC     DELETES ITEM WHICH BELONGS TO THE SUBSTRUCTURE NAME.  THE MDI IS\r\nC     UPDATED ACCORDINGLY AND THE BLOCKS ON WHICH ITEM WAS WRITTEN ARE\r\nC     RETURNED TO THE LIST OF FREE BLOCKS.  ITEST IS AN OUTPUT PARAMETER\r\nC     WHICH TAKES ON ONE OF THE FOLLOWING VALUES\r\nC\r\nC              1  IF ITEM DOES EXIST\r\nC              2  IF ITEM PSEUDO-EXISTS\r\nC              3  IF ITEM DOES NOT EXIST\r\nC              4  IF NAME DOES NOT EXIST\r\nC              5  IF ITEM IS AN ILLEGAL ITEM NAME\r\nC\r\nC     THE BLOCKS OCCUPIED BY THE ITEM ARE RETURNED TO THE LIST OF FREE\r\nC     BLOCKS IF THEY BELONG TO THE SPECIFIED SUBSTRUCTURE\r\nC\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         MDIUP\r\n      INTEGER         BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,PS,SS,\r\n     1                ANDF,RSHIFT\r\n      DIMENSION       NAME(2),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),IODUM(8),MDI,MDIPBN,MDILBN,MDIBL,\r\n     1                NXTDUM(15),DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SYS(3),IFRST\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    IS,PS , SS/ 1,1,1    /\r\n      DATA    NMSBR / 4HDELE,4HTE  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      CALL FDSUB  (NAME(1),K)\r\n      IF (K .EQ. -1) GO TO 500\r\n      CALL FMDI (K,IMDI)\r\n      II  = ITCODE(ITEMX)\r\n      IF (II .EQ. -1) GO TO 510\r\n      ITM = II - IFRST + 1\r\n      IBL = ANDF(BUF(IMDI+II),65535)\r\nC                             55535 = 2**16 - 1\r\n      IF (IBL .NE. 0) GO TO 10\r\nC\r\nC     ITEM DOES NOT EXIST.\r\nC\r\n      ITEST = 3\r\n      RETURN\r\nC\r\n   10 BUF(IMDI+II) = 0\r\n      MDIUP = .TRUE.\r\n      IF (IBL .NE. 65535) GO TO 20\r\nC\r\nC     ITEM PSEUDO-EXISTS.\r\nC\r\n      ITEST = 2\r\n      GO TO 30\r\nC\r\nC     ITEM DOES EXIST.\r\nC\r\n   20 ITEST = 1\r\n   30 IF (ANDF(BUF(IMDI+IS),1073741824) .EQ. 0) GO TO 35\r\nC                           1073741824 = 2**30\r\nC\r\nC     IMAGE SUBSTRUCTURE\r\nC\r\n      IF (ITEST .NE. 1) RETURN\r\n      IF (ITEM(4,ITM) .EQ. 0) GO TO 32\r\n      CALL RETBLK (IBL)\r\n   32 RETURN\r\nC\r\nC     NAME IS A SECONDARY OR A PRIMARY SUBSTRUCTURE\r\nC\r\n   35 ISVPS = ANDF(BUF(IMDI+PS),1023)\r\nC                               1023 = 2**10 - 1\r\n      IF (ISVPS .EQ. 0) GO TO 39\r\nC\r\nC     SECONDARY SUBSTRUCTURE\r\nC\r\n      IF (ITEST .NE. 1) RETURN\r\n      IF (ITEM(5,ITM) .EQ. 0) GO TO 37\r\n      CALL RETBLK (IBL)\r\n   37 RETURN\r\nC\r\nC     PRIMARY SUBSTRUCTURE\r\nC\r\n   39 IF (ITEST .EQ. 1) CALL RETBLK (IBL)\r\n   40 ISVSS = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10)\r\nC                                      1048575 = 2*20 - 1\r\n      IF (ISVSS .EQ. 0) RETURN\r\n      CALL FMDI (ISVSS,IMDI)\r\n      IF (ANDF(BUF(IMDI+II),65535) .NE. IBL) GO TO 40\r\n      BUF(IMDI+II) = 0\r\n      MDIUP = .TRUE.\r\n      GO TO 40\r\nC\r\nC     NAME DOES NOT EXIST.\r\nC\r\n  500 ITEST = 4\r\n      RETURN\r\nC\r\nC     ITEM IS AN ILLEGAL ITEM NAME.\r\nC\r\n  510 ITEST = 5\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/delkls.f",
    "content": "      SUBROUTINE DELKLS (DEL,R,Z,KODE)\r\nC\r\nC     SINGLE PRECISION VERSION USE DELKLS (DEL,R,Z,KODE)\r\nC\r\nC     PURPOSE\r\nC        EVAULATE THE FOLLOWING FUNCTION\r\nC          DELT(K,L) = SURFACE-INTEGRAL((R**K)*(Z**L)) DR*DZ\r\nC        WHERE  DR*DZ  IS EITHER A TRIANGLE OR A TRAPEZOID.\r\nC\r\nC     USAGE\r\nC        WHERE  DEL   =  DOUBLE PRECISION ARRAY OF 15 LOCATIONS.\r\nC                        CONTAINING THE RESULTS.\r\nC        WHERE  R     =  DOUBLE PRECISION ARRAY OF  4 LOCATIONS.\r\nC                        CONTAINING THE R-COORDINATES OF THE ELEM.\r\nC        WHERE  Z     =  DOUBLE PRECISION ARRAY OF  4 LOCATIONS.\r\nC                        CONTAINING THE Z-COORDINATES OF THE ELEM.\r\nC               KODE  =  0  FOR TRIANGULAR  ELEMENT\r\nC               KODE  =  1  FOR TRAPEZOIDAL ELEMENT\r\nC\r\nC     PROCEDURE\r\nC        INFORMATION IS COMPUTED AND STORED AS FOLLOWS.\r\nC           COMPUTED  FOR        ELEMENT         STORED\r\nC        TRIANGLE   TRAPEZOID   DELT(K,L)       DEL(LOC)\r\nC        ************************************************\r\nC           X          X              0,0            01\r\nC           X          X              1,0            02\r\nC           X          X              0,1            03\r\nC           X          X             -1,0            04\r\nC           X          X             -1,1            05\r\nC           X          X             -1,2            06\r\nC                      X              1,1            07\r\nC                      X              1,2            08\r\nC                      X              2,1            09\r\nC                      X              2,0            10\r\nC                      X              0,2            11\r\nC                      X              3,0            12\r\nC                      X              3,1            13\r\nC                      X              3,2            14\r\nC                      X              2,2            15\r\nC\r\n      INTEGER    GOBACK\r\n      REAL       DEL(15),R(4),Z(4),LN\r\nC\r\nC     ZERO ARRAY (ONLY THAT PORTION USING)\r\nC\r\n      N      = 15\r\n      DO 2 L = 1,N\r\n    2 DEL(L) = 0.\r\nC\r\nC     HERE FOR  LINE 1-2\r\nC\r\n      I      = 1\r\n      M      = 2\r\n      ASSIGN 23 TO GO BACK\r\n      GO TO 500\r\nC\r\nC     HERE  FOR  LINE 2-3\r\nC\r\n   23 CONTINUE\r\n      I      = 2\r\n      M      = 3\r\n      ASSIGN 3134 TO GO BACK\r\n      GO TO 500\r\nC\r\nC     HERE  FOR  LINE 31 (TRIANGLE),  LINE 3-4 (TRAP)\r\nC\r\n 3134 CONTINUE\r\n      I      = 3\r\n      IF (KODE .GT. 0) GO TO 35\r\n      M      = 1\r\n      ASSIGN 90 TO GO BACK\r\n      GO TO 500\r\n   35 M      = 4\r\n      ASSIGN 41 TO GO BACK\r\n      GO TO 500\r\n   41 I      = 4\r\n      M      = 1\r\n      ASSIGN 90 TO GO BACK\r\nC\r\nC     BEGIN LOCAL SUBROUTINE  (DEL-KL-I,M)\r\nC\r\n  500 RM     = R(M)\r\n      RI     = R(I)\r\n      R1     = RM - RI\r\n      IF (ABS(R1) .LT. 1.E-5) GO TO 599\r\nC\r\nC     THIS LINE IS NOT PARALLEL TO Z-AXIS\r\nC\r\n      ZM     = Z(M)\r\n      ZI     = Z(I)\r\n      IF (ZI.EQ.0. .AND. ZM.EQ.0.) GO TO 599\r\nC\r\nC     SPECIAL CASE   ZM=ZI=0   THUS ALL  A,B = 0  AND\r\nC     ALL DEL TERMS  = 0 .     THUS SKIP AND SAVE CPU.\r\nC\r\n      A      = (RM*ZI - RI*ZM)/R1\r\n      B      = (ZM - ZI)/R1\r\n      LN     = ALOG(RM/RI)\r\n      SI     = RI * RI\r\n      SM     = RM * RM\r\n      R2     = SM - SI\r\n      SI     = SI * RI\r\n      SM     = SM * RM\r\n      R3     = SM - SI\r\n      SI     = SI * RI\r\n      SM     = SM * RM\r\n      R4     = SM - SI\r\n      SI     = SI * RI\r\n      SM     = SM * RM\r\n      R5     = SM - SI\r\n      A2     = A  * A\r\n      A3     = A  * A2\r\n      B2     = B  * B\r\n      B3     = B  * B2\r\n      AB     = A  * B\r\n      AAB    = A  * AB\r\n      ABB    = B  * AB\r\n      DEL(1) = A*R1 + B*R2/2. + DEL(1)\r\n      DEL(2) = A*R2/2.  +  B*R3/3.  + DEL(2)\r\n      DEL(3) = A2*R1/2. + AB*R2 /2. + B2*R3/6.  + DEL(3)\r\n      DEL(4) = A *LN    +  B*R1     + DEL(04)\r\n      DEL(5) = A2*LN/2. + AB*R1     + B2*R2/4.  + DEL(5)\r\n      DEL(6) = A3*LN/3. + AAB*R1    + ABB*R2/2. + B3*R3/9.  + DEL(6)\r\n      DEL(7) = A2*R2/4. + AB*R3/3.  + B2*R4/8.  + DEL(7)\r\n      DEL(8) = A3*R2/6. + AAB*R3/3. + ABB*R4/4. + B3*R5/15. + DEL(8)\r\n      DEL(9) = A2*R3/6. + AB*R4/4.  + B2*R5/10. + DEL(9)\r\n      DEL(10)= A*R3/3.  +  B*R4/4.  + DEL(10)\r\n      DEL(12)= A*R4/4.  + B*R5/5.   + DEL(12)\r\n      IF (KODE .LT. 1) GO TO 599\r\n      SI     = SI * RI\r\n      SM     = SM * RM\r\n      R6     = SM - SI\r\n      R7     = (SM*RM - SI*RI)\r\n      DEL(11)= A3*R1/3. + AAB*R2/2. + ABB*R3/3. + B3*R4/12. + DEL(11)\r\n      DEL(13)= A2*R4/8. + AB*R5/5.  + B2*R6/12. + DEL(13)\r\n      DEL(14)= A3*R4/12.+ AAB*R5/5. + ABB*R6/6. + B3*R7/21. + DEL(14)\r\n      DEL(15)= A3*R3/9. + AAB*R4/4. + ABB*R5/5. + B3*R6/18. + DEL(15)\r\n  599 GO TO GO BACK, (23,3134,41,90)\r\nC\r\nC     THE ABSOLUTE VALUE IS CHOSEN SO THAT NODES INPUT MAY BE ORDERED\r\nC     CW OR CCW. RESULTS ARE SAME FOR A GIVEN ELEMENT.\r\nC\r\n   90 DO 91 L = 1,N\r\n   91 DEL(L) = ABS(DEL(L))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/delset.f",
    "content": "      SUBROUTINE DELSET\r\nC*****\r\nC  THIS ROUTINE SETS VARIABLES FOR DUMMY ELEMENTS IN /GPTA1/\r\nC\r\nC  ALL MODULES USING /GPTA1/ SHOULD BE SURE TO CALL THIS ROUTINE\r\nC  SO AS TO INSURE THAT DATA FOR ANY DUMMY ELEMENTS PRESENT GETS\r\nC  INSERTED INTO /GPTA1/.\r\nC*****\r\n      INTEGER DUMTYP(9)\r\nC\r\n      COMMON/SYSTEM/ NSKIP(45), IDUM(9)\r\nC\r\n      COMMON/GPTA1 / NELEM, LAST, INCR, NE(1)\r\nC\r\n      DATA DUMTYP/53,54,55,56,57,58,59,60,61/\r\nC\r\n      DO 100 I = 1,9\r\n      NGRIDS = IDUM(I) / 10000000\r\n      NC = MOD( IDUM(I),10000000) / 10000\r\n      NP = MOD( IDUM(I),10000) / 10\r\nC\r\nC     ND IS DECODE AND USED IN ROUTINES DS1 AND DS1A\r\nC\r\n      ND = MOD(IDUM(I), 10)\r\n      IZERO = (DUMTYP(I) - 1)*INCR\r\n      NE(IZERO+6) = NC + NGRIDS + 2\r\n      NE(IZERO+9) = NP +2\r\n      IF(NP.EQ. 0) NE(IZERO+9) =  0\r\n      NE(IZERO+10) = NGRIDS\r\n      N = 5*NGRIDS + 3 + NP + NC\r\n      NE(IZERO+12) = N\r\n      NE(IZERO+15) = NGRIDS + 2\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/deltkl.f",
    "content": "      SUBROUTINE DELTKL (DEL,R,Z,KODE)\r\nC\r\nC     EVAULATE -\r\nC        DELT(K,L) = SURFACE-INTEGRAL((R**K)*(Z**L)) DR*DZ\r\nC        WHERE  DR*DZ IS EITHER A TRIANGLE OR A TRAPEZOID.\r\nC\r\nC     USAGE -\r\nC        CALL  DELTKL (DEL,R,Z,KODE)\r\nC        WHERE  DEL   =  DOUBLE PRECISION ARRAY OF 15 LOCATIONS.\r\nC                        CONTAINING THE RESULTS.\r\nC        WHERE  R     =  DOUBLE PRECISION ARRAY OF  4 LOCATIONS.\r\nC                        CONTAINING THE R-COORDINATES OF THE ELEMENT\r\nC        WHERE  Z     =  DOUBLE PRECISION ARRAY OF  4 LOCATIONS.\r\nC                        CONTAINING THE Z-COORDINATES OF THE ELEMENT\r\nC               KODE  =  0  FOR TRIANGULAR  ELEMENT\r\nC               KODE  =  1  FOR TRAPEZOIDAL ELEMENT\r\nC\r\nC     PROCEDURE -\r\nC        INFORMATION IS COMPUTED AND STORED AS FOLLOWS.\r\nC\r\nC           COMPUTED  FOR        ELEMENT         STORED\r\nC        TRIANGLE   TRAPEZOID    DELT(K,L)      DEL(LOC)\r\nC        ================================================\r\nC           X          X              0,0            1\r\nC           X          X              1,0            2\r\nC           X          X              0,1            3\r\nC           X          X             -1,0            4\r\nC           X          X             -1,1            5\r\nC           X          X             -1,2            6\r\nC                      X              1,1            7\r\nC                      X              1,2            8\r\nC                      X              2,1            9\r\nC                      X              2,0           10\r\nC                      X              0,2           11\r\nC                      X              3,0           12\r\nC                      X              3,1           13\r\nC                      X              3,2           14\r\nC                      X              2,2           15\r\nC\r\n      INTEGER          GOBACK,KODE,N,I,M,L\r\n      DOUBLE PRECISION DEL(15),R(4),Z(4),RM,RI,ZM,ZI,LN,A,B,SI,SM,\r\n     1                 R1,R2,R3,R4,R5,AB,A2,B2,A3,B3,AAB,ABB,R6,R7\r\nC\r\nC     ZERO ARRAY (ONLY THAT PORTION USING)\r\nC\r\n      N = 15\r\n      DO 2 L = 1,N\r\n    2 DEL(L) = 0.0D+0\r\nC\r\nC     HERE FOR LINE 1-2\r\nC\r\n      I = 1\r\n      M = 2\r\n      ASSIGN  23 TO GO BACK\r\n      GO TO 50\r\nC\r\nC     HERE FOR LINE 2-3\r\nC\r\n   23 CONTINUE\r\n      I = 2\r\n      M = 3\r\n      ASSIGN 34 TO GO BACK\r\n      GO TO 50\r\nC\r\nC     HERE FOR LINE 31 (TRIANGLE),  LINE 3-4 (TRAP)\r\nC\r\n   34 CONTINUE\r\n      I = 3\r\n      IF (KODE .GT. 0) GO TO 35\r\n      M = 1\r\n      ASSIGN 90 TO GO BACK\r\n      GO TO 50\r\n   35 M = 4\r\n      ASSIGN 41 TO GO BACK\r\n      GO TO 50\r\n   41 I = 4\r\n      M = 1\r\n      ASSIGN 90 TO GO BACK\r\nC\r\nC     BEGIN LOCAL SUBROUTINE (DEL-KL-I,M)\r\nC\r\n   50 RM = R(M)\r\n      RI = R(I)\r\n      R1 = RM - RI\r\n      IF (DABS(R1) .LT. 1.0D-07) GO TO 80\r\nC\r\nC     THIS LINE IS NOT PARALLEL TO Z-AXIS\r\nC\r\n      ZM = Z(M)\r\n      ZI = Z(I)\r\n      IF (ZI.EQ.0.0D+0 .AND. ZM.EQ.0.0D+0) GO TO 80\r\nC\r\nC     SPECIAL CASE, ZM = ZI = 0   THUS ALL  A,B = 0  AND\r\nC     ALL DEL TERMS  = 0 .   THUS SKIP AND SAVE CPU.\r\nC\r\n      A   = (RM*ZI - RI*ZM)/R1\r\n      B   = (ZM - ZI)/R1\r\n      LN  = DLOG(RM/RI)\r\n      SI  = RI * RI\r\n      SM  = RM * RM\r\n      R2  = SM - SI\r\n      SI  = SI * RI\r\n      SM  = SM * RM\r\n      R3  = SM - SI\r\n      SI  = SI * RI\r\n      SM  = SM * RM\r\n      R4  = SM - SI\r\n      SI  = SI * RI\r\n      SM  = SM * RM\r\n      R5  = SM - SI\r\n      A2  = A  * A\r\n      A3  = A  * A2\r\n      B2  = B  * B\r\n      B3  = B  * B2\r\n      AB  = A  * B\r\n      AAB = A  * AB\r\n      ABB = B  * AB\r\n      DEL( 1) = A*R1 + B*R2/2.0D+0 + DEL(1)\r\n      DEL( 2) = A*R2/  2.0D+0 + B*R3 /3.0D+0 + DEL(2)\r\n      DEL( 3) = A2*R1/ 2.0D+0 + AB*R2/2.0D+0 + B2*R3/6.0D+0 + DEL(3)\r\n      DEL( 4) = A*LN + B*R1   + DEL(4)\r\n      DEL( 5) = A2*LN/ 2.0D+0 + AB*R1  + B2*R2 /4.0D+0 + DEL(5)\r\n      DEL( 6) = A3*LN/ 3.0D+0 + AAB*R1 + ABB*R2/2.0D+0 + B3*R3/9.0D+0\r\n     1        + DEL(6)\r\n      DEL( 7) = A2*R2/ 4.0D+0 + AB*R3/3.0D+0  + B2*R4 /8.0D+0 + DEL(7)\r\n      DEL( 8) = A3*R2/ 6.0D+0 + AAB*R3/3.0D+0 + ABB*R4/4.0D+0\r\n     1        + B3*R5/15.0D+0 + DEL(8)\r\n      DEL( 9) = A2*R3/ 6.0D+0 + AB*R4/4.0D+0 + B2*R5/10.0D+0 + DEL(9)\r\n      DEL(10) = A *R3/ 3.0D+0 + B*R4 /4.0D+0 + DEL(10)\r\n      DEL(12) = A *R4/ 4.0D+0 + B*R5 /5.0D+0 + DEL(12)\r\n      IF (KODE .LT. 1) GO TO 80\r\n      SI      = SI*RI\r\n      SM      = SM*RM\r\n      R6      = SM - SI\r\n      R7      = (SM*RM - SI*RI)\r\n      DEL(11) = A3*R1/ 3.0D+0 + AAB*R2/2.0D+0 + ABB*R3/3.0D+0\r\n     1        + B3*R4/12.0D+0 + DEL(11)\r\n      DEL(13) = A2*R4/ 8.0D+0 + AB*R5 /5.0D+0 + B2*R6/12.0D+0 + DEL(13)\r\n      DEL(14) = A3*R4/12.0D+0 + AAB*R5/5.0D+0 + ABB*R6/6.0D+0\r\n     1        + B3*R7/21.0D+0 + DEL(14)\r\n      DEL(15) = A3*R3/ 9.0D+0 + AAB*R4/4.0D+0 + ABB*R5/5.0D+0\r\n     1        + B3*R6/18.0D+0 + DEL(15)\r\n   80 GO TO GO BACK, (23,34,41,90)\r\nC\r\nC     THE ABSOLUTE VALUE IS CHOSEN SO THAT NODES INPUT MAY BE ORDERED\r\nC     CW OR CCW.   RESULTS ARE SAME FOR A GIVEN ELEMENT.\r\nC\r\n   90 DO 95 L = 1,N\r\n   95 DEL(L) = DABS(DEL(L))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/desvel.f",
    "content": "      SUBROUTINE DESVEL\r\nC\r\nC     DESVAL COMPUTES DESIGN VELOCITY AND ACCELERATION SPECTRA FOR\r\nC     DDAM. THE ASSUMUED FORM FOR VELOCITY IS\r\nC\r\nC                            VELB + W\r\nC        VEL = VELI * VELA * --------\r\nC                            VELC + W\r\nC\r\nC     WHERE VELI IS VEL1,VEL2,OR VEL3 FOR TH 1,2,3, DIRECTIONS\r\nC         W IS THE EFFECTIVE WEIGHT = MATRIX EFFW/1000.\r\nC         VEL,VELA ARE IN LENGTH/SECOND\r\nC     MATRIX SSDV WILL BE OUTPUT\r\nC     DESIGN ACCELERATIONS HAVE THE SAME FORM AS VELOCITY EXCEPT FOR\r\nC     ONE CASE WHERE\r\nC         ACC = ACCI*ACCA*(ACCB+W)*(ACCC+W)/(ACCD+W)**2\r\nC\r\nC     WHERE ACC IS IN G-S AND W IS AS ABOVE\r\nC     IF ACCD IA ZERO, ACC HAS THE SAME FORM AS VEL\r\nC     MATRICES ACC AND VEL*OMEGA/G WILL BE OUTPUT FOR COMPARISON\r\nC     PURPOSES\r\nC     IN ADDITION, DATA BLOCK MINAC WILL CONTAIN THE MINIMUM\r\nC     OF ACCE*GG VS. VEL*OMEGA FOR USE IN COMPUTING STATIC LOADS\r\nC *** ALL VELOCITY PARAMETERS MUST BE PUT ON PARAM BULK DATA CARDS,\r\nC                             ----\r\nC     I.E.,VEL1,VEL2,VEL3,VELA,VELB,VELC. ACCELERATION PARAMETERS ARE\r\nC     DEFAULTED TO ZERO AND NEED NOT BE ON PARAM CARDS IF NOT WANTED.\r\nC\r\nC     DESVEL   EFFW,OMEGA / SSDV,ACC,VWG,MINAC,MINOW2 / C,Y,GG=386.4/\r\nC              C,Y,VEL1/C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/\r\nC              C,Y,ACC1=0./C,Y,ACC2=0./C,Y,ACC3=0./C,Y,ACCA=0./\r\nC              C,Y,ACCB=0./C,Y,ACCC=0./C,Y,ACCD=0.\r\nC\r\n      LOGICAL         ZERO\r\n      INTEGER         BUF1,BUF2,BUF3,EFFW,OMEGA,SSDV,ACC,VWG,SYSBUF,\r\n     1                BUF4,MCB4(7),BUF5,MCB5(7)\r\n      DIMENSION       NAM(2),MCB1(7),MCB2(7),MCB3(7),IZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /UNPAKX/ JOUT,III,NNN,JNCR\r\n      COMMON /PACKX / IIN,IOUT,II,NN,INCR\r\n      COMMON /SYSTEM/ SYSBUF,IPRINT\r\n      COMMON /BLANK / GG,VEL1,VEL2,VEL3,VELA,VELB,VELC,ACC1,ACC2,ACC3,\r\n     1                ACCA,ACCB,ACCC,ACCD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    EFFW  , OMEGA,SSDV,ACC,VWG,MINAC,MINOW2 /\r\n     1        101   , 102  ,201 ,202,203,204  ,205    /\r\n      DATA    NAM   / 4HDESV,4HEL  /\r\nC\r\n      ZERO  = .FALSE.\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      LCORE = BUF5 - 1\r\n      IF (LCORE .LE. 0) CALL MESAGE (-8,0,NAM)\r\nC\r\n      JOUT = 1\r\n      IIN  = 1\r\n      IOUT = 1\r\n      INCR = 1\r\n      JNCR = 1\r\n      II   = 1\r\n      III  = 1\r\nC\r\nC     UNPACK AND STORE EFFW AND OMEGA\r\nC\r\n      MCB1(1) = EFFW\r\n      CALL RDTRL (MCB1)\r\n      NCOL = MCB1(2)\r\n      NROW = MCB1(3)\r\n      NNN  = NROW\r\n      NN   = NNN\r\n      NTOT = NCOL*NROW\r\n      NALL = NTOT+NNN\r\nC\r\n      IF (LCORE .LT. (NCOL+6)*NNN) CALL MESAGE (-8,0,NAM)\r\n      CALL GOPEN (EFFW,Z(BUF1),0)\r\n      DO 20 I = 1,NCOL\r\n      JJ = (I-1)*NNN\r\n      CALL UNPACK (*10,EFFW,Z(JJ+1))\r\n      GO TO 20\r\n   10 DO 15 J = 1,NNN\r\n   15 Z(JJ+J) = 0.\r\nC\r\n   20 CONTINUE\r\n      CALL CLOSE (EFFW,1)\r\n      CALL GOPEN (OMEGA,Z(BUF1),0)\r\n      CALL UNPACK (*30,OMEGA,Z(NTOT+1))\r\n      GO TO 50\r\n   30 DO 40 I = 1,NNN\r\n   40 Z(NTOT+I) = 0.\r\nC\r\n   50 CALL CLOSE (OMEGA,1)\r\n      NMODES = NROW\r\n      NDIR   = NCOL\r\nC\r\n      CALL GOPEN (SSDV,Z(BUF1),1)\r\n      CALL GOPEN (ACC,Z(BUF2),1)\r\n      CALL GOPEN (VWG,Z(BUF3),1)\r\n      CALL GOPEN (MINAC,Z(BUF4),1)\r\n      CALL GOPEN (MINOW2,Z(BUF5),1)\r\nC\r\n      MCB1(1) = SSDV\r\n      MCB1(2) = 0\r\n      MCB1(3) = NROW\r\n      MCB1(4) = 2\r\n      MCB1(5) = 1\r\n      MCB1(6) = 0\r\n      MCB1(7) = 0\r\n      MCB2(1) = ACC\r\n      MCB2(2) = 0\r\n      MCB2(3) = NROW\r\n      MCB2(4) = 2\r\n      MCB2(5) = 1\r\n      MCB2(6) = 0\r\n      MCB2(7) = 0\r\n      MCB3(1) = VWG\r\n      MCB3(2) = 0\r\n      MCB3(3) = NROW\r\n      MCB3(4) = 2\r\n      MCB3(5) = 1\r\n      MCB3(6) = 0\r\n      MCB3(7) = 0\r\n      MCB4(1) = MINAC\r\n      MCB4(2) = 0\r\n      MCB4(3) = NROW\r\n      MCB4(4) = 2\r\n      MCB4(5) = 1\r\n      MCB4(6) = 0\r\n      MCB4(7) = 0\r\n      MCB5(1) = MINOW2\r\n      MCB5(2) = 0\r\n      MCB5(3) = NROW\r\n      MCB5(4) = 2\r\n      MCB5(5) = 1\r\n      MCB5(6) = 0\r\n      MCB5(7) = 0\r\nC\r\n      DO 130 I = 1,NDIR\r\n      IPT = (I-1)*NNN\r\n      DO 120 J = 1,NMODES\r\nC\r\nC     EFFECTIVE WEIGHT FOR JTH MODE IN ITH DIRECTION (IN 1000-S)\r\nC\r\n      EFWT = Z(IPT+J)/1000.\r\n      GO TO (60,70,80), I\r\n   60 VELI = VEL1\r\n      ACCI = ACC1\r\n      GO TO 90\r\n   70 VELI = VEL2\r\n      ACCI = ACC2\r\n      GO TO 90\r\n   80 VELI = VEL3\r\n      ACCI = ACC3\r\nC\r\n   90 VEL = VELI*VELA*(VELB+EFWT)/(VELC+EFWT)\r\n      IF (ACCD .NE. 0.) GO TO 100\r\n      ACCE = ACCI*ACCA*(ACCB+EFWT)/(ACCC+EFWT)\r\n      GO TO 110\r\nC\r\n  100 ACCE = ACCI*ACCA*(ACCB+EFWT)*(ACCC+EFWT)/(ACCD+EFWT)**2\r\nC\r\n  110 OMEG = Z(NTOT+J)\r\n      VWOG = VEL*OMEG/GG\r\nC\r\nC     VELOCITIES FOR ITH DIRECTION ARE IN Z(NALL+1)-Z(NALL+NNN)\r\nC     ACCELERATIONS ARE IN NEXT NNN LOCATIONS, VWOG IN 3RD NNN\r\nC     MAXIMUM OF VEL*OMEG OR ACCE*GG IS IN 4TH NNN\r\nC\r\n      Z(NALL      +J) = VEL\r\n      Z(NALL+ NNN +J) = ACCE\r\n      Z(NALL+2*NNN+J) = VWOG\r\n      Z(NALL+3*NNN+J) = GG*AMIN1(ACCE,VWOG)\r\n      IF (ABS(OMEG) .LT. 0.01) GO TO 125\r\n      Z(NALL+4*NNN+J) = Z(NALL+3*NNN+J)/OMEG**2\r\n      GO TO 120\r\nC\r\nC     IN DDAM, THERE SHOULD BE NO RIGID BODY MODES.ZERO THE RESPONSE.\r\nC\r\n  125 Z(NALL+4*NNN+J) = 0.\r\n      ZERO = .TRUE.\r\nC\r\nC     GET ANOTHER MODE FOR THIS DIRECTION\r\nC\r\n  120 CONTINUE\r\nC\r\nC     PACK RESULTS FOR THIS DIRECTION\r\nC\r\n      CALL PACK (Z(NALL      +1),SSDV,MCB1)\r\n      CALL PACK (Z(NALL+NNN  +1),ACC,MCB2)\r\n      CALL PACK (Z(NALL+2*NNN+1),VWG,MCB3)\r\n      CALL PACK (Z(NALL+3*NNN+1),MINAC,MCB4)\r\n      CALL PACK (Z(NALL+4*NNN+1),MINOW2,MCB5)\r\nC\r\nC     GET ANOTHER DIRECTION\r\nC\r\n  130 CONTINUE\r\nC\r\nC     DONE\r\nC\r\n      CALL CLOSE  (SSDV,1)\r\n      CALL CLOSE  (ACC,1)\r\n      CALL CLOSE  (VWG,1)\r\n      CALL CLOSE  (MINAC,1)\r\n      CALL CLOSE  (MINOW2,1)\r\n      CALL WRTTRL (MCB1)\r\n      CALL WRTTRL (MCB2)\r\n      CALL WRTTRL (MCB3)\r\n      CALL WRTTRL (MCB4)\r\n      CALL WRTTRL (MCB5)\r\nC\r\n      IF (.NOT.ZERO) RETURN\r\n      WRITE  (IPRINT,135) UIM\r\n  135 FORMAT (A29,', CIRCULAR FREQUENCY LESS THAN .01 IS ENCOUNTERED ',\r\n     1       'IN DDAM.', /5X,'MAXIMUM RESPONSE FOR THAT MODE IS SET TO',\r\n     2       ' ZERO. DDAM SHOULD HAVE NO RIGID BODY MODES.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detck.f",
    "content": "      SUBROUTINE DETCK (JARG,IFGPST,NPVT)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS, 5/1991,\r\nC     THIS ROUTINE WAS NAMED DETCKX BEFORE, WHICH HAD NOT BEEN TESTED.\r\nC     THE ONE THAT USED TO BE DETCK APPEARS TO BE AN OLDER VERSION, AND\r\nC     SHOULD BE REPLACED BY THIS ONE, IF THIS ONE WORKS\r\nC\r\nC     THIS ROUTINE GENERATES THE GRID POINT SINGULARITY TABLE BY\r\nC     EXAMINING THE TRANSLATIONAL AND DIAGONAL 3 X 3 SUBMATRICES OF THE\r\nC     KGG MATRIX.\r\nC     IF JARG = 0, THE PIVOT POINT HAS ELEMENTS ATTACHED TO IT.\r\nC     IF JARG =-1, THE PIVOT IS A SCALAR POINT AND NO ELEMENTS ARE\r\nC                  CONNECTED TO IT.\r\nC     IF JARG = 1, THE PIVOT POINT IS A GRID POINT AND NO ELEMENTS ARE\r\nC                  CONNECTED TO IT.\r\nC\r\n      INTEGER          TNWDS,IARRAY(8),IZ(1),BACK,NAME(2)\r\n      DOUBLE PRECISION D,B,DZ,FL,R,M,TEMP,FM,FR,DET,CONST,DTOL\r\n      COMMON /MA1XX /  D(18),B(9),DZ(1),FL(3),R(3),M(3)\r\n      COMMON /SYSTEM/  ISYS(69),TOLEL\r\n      EQUIVALENCE      (IZ(1),DZ(1)),(IARRAY(1),IORDER),(IARRAY(2),NWDS)\r\n      DATA    NAME  /  4HDETC,4HK   /,  NEOR  / 0 /\r\nC\r\n      DTOL = TOLEL\r\n      IARG = JARG\r\n      IF (IARG) 10,20,25\r\n   10 IORDER = 1\r\n      NWDS   = 1\r\n      IARRAY(3) = NPVT\r\n      CALL WRITE (IFGPST,IARRAY(1),3,NEOR)\r\n      RETURN\r\nC\r\nC     AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S\r\nC     ARE STORED IN THE D ARRAY.  HENCE WE PROCESS THEM.\r\nC\r\n   20 CONTINUE\r\n   25 CONTINUE\r\n      IP = NPVT - 1\r\n      ASSIGN 450 TO IGOTO\r\n      IF (IARG .NE. 1) GO TO 30\r\n      ASSIGN 425 TO BACK\r\n      GO TO 425\r\n   30 ASSIGN 50 TO BACK\r\n      DO 40 I = 1,9\r\n   40 B(I) = D(I)\r\n      GO TO 90\r\n   50 DO 60 I = 1,9\r\n   60 B(I) = D(I+9)\r\nC\r\nC     INSURE THE SYMMETRY OF THE B MATRIX\r\nC\r\n      IF (B(2).NE.0.0D0 .AND. B(4).NE.0.0D0) GO TO 65\r\n      B(2) = 0.0D0\r\n      B(4) = 0.0D0\r\n      GO TO 70\r\n   65 TEMP = (B(2) + B(4))/2.0D0\r\n      B(2) = TEMP\r\n      B(4) = TEMP\r\n   70 IF (B(3).NE.0.0D0 .AND. B(7).NE.0.0D0) GO TO 75\r\n      B(3) = 0.0D0\r\n      B(7) = 0.0D0\r\n      GO TO 80\r\n   75 TEMP = (B(3) + B(7))/2.0D0\r\n      B(3) = TEMP\r\n      B(7) = TEMP\r\n   80 IF (B(6).NE.0.0D0 .AND. B(8).NE.0.0D0) GO TO 85\r\n      B(6) = 0.0D0\r\n      B(8) = 0.0D0\r\n      GO TO 90\r\n   85 TEMP = (B(6) + B(8))/2.0D0\r\nC\r\nC     SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST\r\nC     ELEMENT. IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY\r\nC     IS OF ORDER 3.\r\nC\r\n   90 TEMP = B(1)\r\n      DO 100 I = 2,9\r\n      IF (B(I) .GT. TEMP) TEMP = B(I)\r\n  100 CONTINUE\r\n      IF (TEMP .LE. 0.0D0) GO TO 425\r\n      DO 110 I = 1,9\r\n  110 B(I) = B(I)/TEMP\r\nC\r\nC     FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF\r\nC     THE B MATRIX.\r\nC\r\n      IORDER = 0\r\n      J = 0\r\n      DO 120 I = 1,9,3\r\n      J = J + 1\r\n      FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2\r\n      IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1\r\n  120 CONTINUE\r\n      IF (IORDER .EQ. 2)  GO TO 410\r\n      IF (IORDER .EQ. 0)  GO TO 250\r\nC\r\nC     AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO.\r\nC\r\n      DO 130 I = 1,3\r\n      ISAVE = I\r\n      IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE\r\n  130 CONTINUE\r\n      CALL MESAGE (-30,26,NAME)\r\n  140 FM = B(5)*B(9) - B(6)*B(8)\r\n      FR = DSQRT((B(5)**2 + B(6)**2)*(B(8)**2 + B(9)**2))\r\n      GO TO 170\r\n  150 FM = B(1)*B(9) - B(3)*B(7)\r\n      FR = DSQRT((B(1)**2 + B(3)**2)*(B(7)**2 + B(9)**2))\r\n      GO TO 170\r\n  160 FM = B(1)*B(5) - B(2)*B(4)\r\n      FR = DSQRT((B(1)**2 + B(2)**2)*(B(4)**2 + B(5)**2))\r\n  170 IF (FM .EQ. 0.0D0) GO TO 175\r\n      IF (FR.LE.0.0D0 .OR. FM/FR.GE.DTOL) GO TO 240\r\nC\r\nC     HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2.\r\nC\r\n  175 IORDER = 2\r\n      NWDS   = 0\r\n      TNWDS  = 2\r\n      GO TO (180,190,200), ISAVE\r\n  180 K1   = 5\r\n      K2   = 9\r\n      INC1 = 1\r\n      INC2 = 3\r\n      INC3 = 2\r\n      GO TO 210\r\n  190 K1   = 1\r\n      K2   = 9\r\n      INC1 = 2\r\n      INC2 = 3\r\n      INC3 = 1\r\n      GO TO 210\r\n  200 K1   = 1\r\n      K2   = 5\r\n      INC1 = 3\r\n      INC2 = 2\r\n      INC3 = 1\r\n  210 IF (B(K1).LE.0.0D0 .AND. B(K2).LE.0.0D0) GO TO 425\r\n      IF (B(K1) .LE. 0.0D0) GO TO 220\r\n      NWDS      = 2\r\n      TNWDS     = 4\r\n      IARRAY(3) = IP + INC1\r\n      IARRAY(4) = IP + INC2\r\n      IPOINT    = 5\r\n      GO TO 230\r\n  220 IPOINT = 3\r\n  230 IF (B(K2) .LE. 0.0D0) GO TO 430\r\n      NWDS  = NWDS  + 2\r\n      TNWDS = TNWDS + 2\r\n      IARRAY(IPOINT  ) = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC3\r\n      GO TO 430\r\nC\r\nC     AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT\r\nC     ORDER OF THE SINGULARITY IS 1.\r\nC\r\n  240 IORDER    = 1\r\n      NWDS      = 1\r\n      TNWDS     = 3\r\n      IARRAY(3) = IP + ISAVE\r\n      GO TO 430\r\nC\r\nC     AT STATEMENT NO. 250, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0,\r\nC     SO THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED.\r\nC\r\n  250 DET = B(1)*(B(5)*B(9) - B(6)*B(8)) - B(2)*(B(4)*B(9) - B(6)*B(7))\r\n     1    + B(3)*(B(4)*B(8) - B(5)*B(7))\r\n      CONST = 0.05D0*DTOL*FL(1)*FL(2)*FL(3)\r\n      IF (DET .GT. CONST) GO TO 440\r\nC\r\nC     COMPUTE M(I) AND R(I)\r\nC\r\n      M(1) = B(5)*B(9) - B(6)*B(8)\r\n      M(2) = B(1)*B(9) - B(3)*B(7)\r\n      M(3) = B(1)*B(5) - B(2)*B(4)\r\n      R(1) = DSQRT(B(5)**2 + B(6)**2) * DSQRT(B(8)**2 + B(9)**2)\r\n      R(2) = DSQRT(B(1)**2 + B(3)**2) * DSQRT(B(7)**2 + B(9)**2)\r\n      R(3) = DSQRT(B(1)**2 + B(2)**2) * DSQRT(B(4)**2 + B(5)**2)\r\nC\r\nC     FIND I1, J1, K1\r\nC     SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1)\r\nC\r\n      I1 = 1\r\n      J1 = 2\r\n      K1 = 3\r\n      IF (M(1)*R(2) .GE. M(2)*R(1)) GO TO 270\r\n      I1 = 2\r\n      J1 = 1\r\n  270 IF (M(I1)*R(K1) .GE. M(K1)*R(I1)) GO TO 280\r\n      ITEMP = I1\r\n      I1    = K1\r\n      K1    = ITEMP\r\n  280 IF (M(J1)*R(K1) .GE. M(K1)*R(J1)) GO TO 290\r\n      ITEMP = J1\r\n      J1    = K1\r\n      K1    = ITEMP\r\n  290 IF (M(I1) .GE. R(I1)*DTOL) GO TO 400\r\nC\r\nC     HERE THE SINGULARITY IS OF ORDER 2.\r\nC\r\n      NWDS   = 0\r\n      TNWDS  = 2\r\n      IORDER = 2\r\nC\r\nC     FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK)\r\nC\r\n      II = 1\r\n      JJ = 5\r\n      KK = 9\r\n      IF (B(1) .GE. B(5)) GO TO 300\r\n      II = 5\r\n      JJ = 1\r\n  300 IF (B(II) .GE. B(KK)) GO TO 310\r\n      ITEMP = II\r\n      II    = KK\r\n      KK    = ITEMP\r\n  310 IF (B(JJ) .GE. B(KK)) GO TO 320\r\n      ITEMP = JJ\r\n      JJ    = KK\r\n      KK    = ITEMP\r\n  320 LL    = II\r\n      KOUNT = 0\r\n      IPOINT= 3\r\n  330 IF (B(LL) .LE. 0.0D0) GO TO 430\r\n      NWDS  = NWDS  + 2\r\n      TNWDS = TNWDS + 2\r\n      IF (LL - 5) 340,350,360\r\n  340 INC1 = 2\r\n      INC2 = 3\r\n      GO TO 370\r\n  350 INC1 = 1\r\n      INC2 = 3\r\n      GO TO 370\r\n  360 INC1 = 1\r\n      INC2 = 2\r\n  370 IARRAY(IPOINT  ) = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC2\r\n      IPOINT = IPOINT + 2\r\n      KOUNT  = KOUNT  + 1\r\n      IF (KOUNT - 2) 380,390,430\r\n  380 LL = JJ\r\n      GO TO 330\r\n  390 LL = KK\r\n      GO TO 330\r\nC\r\nC     AT THIS POINT THE SINGULARITY IS OF ORDER 1.\r\nC\r\n  400 IORDER = 1\r\n      NWDS   = 1\r\n      TNWDS  = 3\r\n      IARRAY(3) = IP + I1\r\n      IF (M(J1) .LT. R(J1)*DTOL) GO TO 430\r\n      NWDS  = 2\r\n      TNWDS = 4\r\n      IARRAY(4) = IP + J1\r\n      IF (M(K1) .LT. R(K1)*DTOL) GO TO 430\r\n      NWDS  = 3\r\n      TNWDS = 5\r\n      IARRAY(5) = IP + K1\r\n      GO TO 430\r\nC\r\nC     AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO.\r\nC\r\n  410 NWDS   = 2\r\n      TNWDS  = 4\r\n      IPOINT = 2\r\n      DO 420 I = 1,3\r\n      IF (FL(I) .NE. 0.0D0) GO TO 420\r\n      IPOINT = IPOINT + 1\r\n      IARRAY(IPOINT) = IP + I\r\n  420 CONTINUE\r\n      GO TO 430\r\nC\r\nC     THE SINGULARITY IS OF ORDER 3\r\nC\r\n  425 IORDER = 3\r\n      NWDS   = 3\r\n      TNWDS  = 5\r\n      IARRAY(3) = IP + 1\r\n      IARRAY(4) = IP + 2\r\n      IARRAY(5) = IP + 3\r\nC\r\nC     WRITE IARRAY ON THE GPST FILE.\r\nC\r\n  430 CALL WRITE (IFGPST,IARRAY(1),TNWDS,NEOR)\r\n  440 GO TO IGOTO, (450,460)\r\n  450 ASSIGN 460 TO IGOTO\r\n      IP = IP + 3\r\n      GO TO BACK, (50,425)\r\n  460 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detckx.f",
    "content": "      SUBROUTINE DETCKX( JARG, IFGPST, NPVT )\r\nC*****\r\nC THIS ROUTINE GENERATES THE GRID POINT SINGULARITY TABLE BY EXAMINING\r\nC THE TRANSLATIONAL AND DIAGONAL 3 X 3 SUBMATRICES OF THE KGG MATRIX.\r\nC IF JARG = 0, THE PIVOT POINT HAS ELEMENTS ATTACHED TO IT.\r\nC IF JARG =-1, THE PIVOT IS A SCALAR POINT AND NO ELEMENTS ARE\r\nC CONNECTED TO IT.\r\nC IF JARG = 1, THE PIVOT POINT IS A GRID POINT AND NO ELEMENTS ARE\r\nC CONNECTED TO IT.\r\nC*****\r\n      DOUBLE PRECISION\r\n     1                   DZ(1)              ,B(9)\r\n     2,                  FL(3)              ,M(3)\r\n     3,                  R(3)               ,TEMP\r\n     4,                  FM                 ,FR\r\n     5,                  DET                ,CONST\r\n     6,                  DTOL               ,D(18)\r\nC\r\n      INTEGER\r\n     1                   TNWDS              ,IARRAY(8)\r\n     2,                  IZ(1)              ,BACK\r\n     3,                  NAME(2)\r\nC\r\n      COMMON /MA1XX / D, B, DZ, FL, R, M\r\n      COMMON /SYSTEM/ ISYS(69),TOLEL,SDUM(10)\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (IZ(1),DZ(1))      ,(IARRAY(1),IORDER)\r\n     2,                  (IARRAY(2),NWDS)\r\nC\r\nC\r\nC\r\n      DATA  NEOR/ 0 /\r\n      DATA NAME / 4HDETC,4HKX   /\r\nC\r\n      DTOL = TOLEL\r\n      IARG = JARG\r\n      IF (IARG) 35,10,52\r\n   35 IORDER = 1\r\n      NWDS = 1\r\n      IARRAY(3) = NPVT\r\n      CALL WRITE (IFGPST,IARRAY(1),3,NEOR)\r\n      RETURN\r\nC\r\nC AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE\r\nC STORED IN THE D ARRAY.  HENCE WE PROCESS THEM.\r\nC\r\n   10 CONTINUE\r\n   52 CONTINUE\r\n      IP = NPVT - 1\r\n      ASSIGN 450 TO IGOTO\r\n      IF (IARG .NE. 1) GO TO 55\r\n      ASSIGN 425 TO BACK\r\n      GO TO 425\r\n   55 ASSIGN 70 TO BACK\r\n      DO 60 I = 1,9\r\n   60 B(I) = D(I)\r\n      GO TO 90\r\n   70 DO 80 I = 1,9\r\n   80 B(I) = D(I+9)\r\nC\r\nC INSURE THE SYMMETRY OF THE B MATRIX\r\nC\r\n      IF (B(2) .NE. 0.0D0 .AND. B(4) .NE. 0.0D0) GO TO 82\r\n      B(2) = 0.0D0\r\n      B(4) = 0.0D0\r\n      GO TO 83\r\n   82 TEMP = (B(2) + B(4)) / 2.0D0\r\n      B(2) = TEMP\r\n      B(4) = TEMP\r\n   83 IF (B(3) .NE. 0.0D0 .AND. B(7) .NE. 0.0D0) GO TO 84\r\n      B(3) = 0.0D0\r\n      B(7) = 0.0D0\r\n      GO TO 85\r\n   84 TEMP = (B(3) + B(7)) / 2.0D0\r\n      B(3) = TEMP\r\n      B(7) = TEMP\r\n   85 IF (B(6) .NE. 0.0D0 .AND. B(8) .NE. 0.0D0) GO TO 86\r\n      B(6) = 0.0D0\r\n      B(8) = 0.0D0\r\n      GO TO 90\r\n   86 TEMP = (B(6) + B(8)) / 2.0D0\r\nC\r\nC SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT.\r\nC IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3.\r\nC\r\n   90 TEMP = B(1)\r\n      DO 100 I = 2,9\r\n      IF (B(I) .GT. TEMP) TEMP = B(I)\r\n  100 CONTINUE\r\n      IF (TEMP .LE. 0.0D0) GO TO 425\r\n      DO 110 I = 1,9\r\n  110 B(I) = B(I) / TEMP\r\nC\r\nC FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE\r\nC B MATRIX.\r\nC\r\n      IORDER = 0\r\n      J = 0\r\n      DO 120 I = 1,9,3\r\n      J = J + 1\r\n      FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2\r\n      IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1\r\n  120 CONTINUE\r\n      IF (IORDER .EQ. 2)  GO TO 410\r\n      IF (IORDER .EQ. 0)  GO TO 250\r\nC\r\nC AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO.\r\nC\r\n      DO 130 I = 1,3\r\n      ISAVE = I\r\n      IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE\r\n  130 CONTINUE\r\n      CALL MESAGE (-30,26,NAME)\r\n  140 FM = B(5) * B(9)  -  B(6) * B(8)\r\n      FR = DSQRT( (B(5)**2  +  B(6)**2)  *  (B(8)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  150 FM = B(1) * B(9)  -  B(3) * B(7)\r\n      FR = DSQRT( (B(1)**2  +  B(3)**2)  *  (B(7)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  160 FM = B(1) * B(5)  -  B(2) * B(4)\r\n      FR = DSQRT( (B(1)**2  +  B(2)**2)  *  (B(4)**2  +  B(5)**2) )\r\n  170 IF( FM .EQ. 0.0D0 ) GO TO 171\r\n      IF( FR .LE. 0.0D0 ) GO TO 240\r\n      IF ( FM/FR .GE. DTOL ) GO TO 240\r\nC\r\nC HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2.\r\nC\r\n  171 IORDER = 2\r\n      NWDS   = 0\r\n      TNWDS  = 2\r\n      GO TO (180,190,200), ISAVE\r\n  180 K1   = 5\r\n      K2   = 9\r\n      INC1 = 1\r\n      INC2 = 3\r\n      INC3 = 2\r\n      GO TO 210\r\n  190 K1   = 1\r\n      K2   = 9\r\n      INC1 = 2\r\n      INC2 = 3\r\n      INC3 = 1\r\n      GO TO 210\r\n  200 K1   = 1\r\n      K2   = 5\r\n      INC1 = 3\r\n      INC2 = 2\r\n      INC3 = 1\r\n  210 IF (B(K1) .LE. 0.0D0  .AND.  B(K2) .LE. 0.0D0) GO TO 425\r\n      IF (B(K1) .LE. 0.0D0) GO TO 220\r\n      NWDS      = 2\r\n      TNWDS     = 4\r\n      IARRAY(3) = IP + INC1\r\n      IARRAY(4) = IP + INC2\r\n      IPOINT    = 5\r\n      GO TO 230\r\n  220 IPOINT = 3\r\n  230 IF (B(K2) .LE. 0.0D0) GO TO 430\r\n      NWDS = NWDS + 2\r\n      TNWDS = TNWDS + 2\r\n      IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC3\r\n      GO TO 430\r\nC\r\nC AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER\r\nC OF THE SINGULARITY IS 1.\r\nC\r\n  240 IORDER    = 1\r\n      NWDS      = 1\r\n      TNWDS     = 3\r\n      IARRAY(3) = IP + ISAVE\r\n      GO TO 430\r\nC\r\nC AT STATEMENT NO. 250, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0, SO\r\nC THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED.\r\nC\r\n  250 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) )\r\n     1    - B(2) * ( B(4)*B(9) - B(6)*B(7) )\r\n     2    + B(3) * ( B(4)*B(8) - B(5)*B(7) )\r\n      CONST = 0.05D0*DTOL * FL(1) * FL(2) * FL(3)\r\n      IF (DET .GT. CONST) GO TO 440\r\nC\r\nC COMPUTE M(I) AND R(I)\r\nC\r\n      M(1) = B(5) * B(9) - B(6) * B(8)\r\n      M(2) = B(1) * B(9) - B(3) * B(7)\r\n      M(3) = B(1) * B(5)  -  B(2) * B(4)\r\n      R(1) =   DSQRT ( B(5)**2 + B(6)**2 )\r\n     1       * DSQRT ( B(8)**2 + B(9)**2 )\r\n      R(2) =   DSQRT ( B(1)**2 + B(3)**2 )\r\n     1       * DSQRT ( B(7)**2 + B(9)**2 )\r\n      R(3) =   DSQRT ( B(1)**2 + B(2)**2 )\r\n     1       * DSQRT ( B(4)**2 + B(5)**2 )\r\nC\r\nC FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1)\r\nC\r\n      I1 = 1\r\n      J1 = 2\r\n      K1 = 3\r\n      IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270\r\n      I1 = 2\r\n      J1 = 1\r\n  270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280\r\n      ITEMP = I1\r\n      I1    = K1\r\n      K1    = ITEMP\r\n  280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290\r\n      ITEMP = J1\r\n      J1    = K1\r\n      K1 = ITEMP\r\n  290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400\r\nC\r\nC HERE THE SINGULARITY IS OF ORDER 2.\r\nC\r\n      NWDS   = 0\r\n      TNWDS  = 2\r\n      IORDER = 2\r\nC\r\nC FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK)\r\nC\r\n      II = 1\r\n      JJ = 5\r\n      KK = 9\r\n      IF (B(1) .GE. B(5)) GO TO 300\r\n      II = 5\r\n      JJ = 1\r\n  300 IF (B(II) .GE. B(KK)) GO TO 310\r\n      ITEMP = II\r\n      II    = KK\r\n      KK    = ITEMP\r\n  310 IF (B(JJ) .GE. B(KK)) GO TO 320\r\n      ITEMP = JJ\r\n      JJ    = KK\r\n      KK    = ITEMP\r\n  320 LL    = II\r\n      KOUNT = 0\r\n      IPOINT= 3\r\n  330 IF (B(LL) .LE. 0.0D0) GO TO 430\r\n      NWDS  = NWDS + 2\r\n      TNWDS = TNWDS + 2\r\n      IF (LL - 5) 340,350,360\r\n  340 INC1 = 2\r\n      INC2 = 3\r\n      GO TO 370\r\n  350 INC1 = 1\r\n      INC2 = 3\r\n      GO TO 370\r\n  360 INC1 = 1\r\n      INC2 = 2\r\n  370 IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC2\r\n      IPOINT = IPOINT + 2\r\n      KOUNT  = KOUNT  + 1\r\n      IF (KOUNT - 2) 380,390,430\r\n  380 LL = JJ\r\n      GO TO 330\r\n  390 LL = KK\r\n      GO TO 330\r\nC\r\nC AT THIS POINT THE SINGULARITY IS OF ORDER 1.\r\nC\r\n  400 IORDER = 1\r\n      NWDS   = 1\r\n      TNWDS  = 3\r\n      IARRAY(3) = IP + I1\r\n      IF (M(J1).LT.R(J1)*DTOL) GO TO 430\r\n      NWDS  = 2\r\n      TNWDS = 4\r\n      IARRAY(4) = IP + J1\r\n      IF (M(K1).LT.R(K1)*DTOL) GO TO 430\r\n      NWDS  = 3\r\n      TNWDS = 5\r\n      IARRAY(5) = IP + K1\r\n      GO TO 430\r\nC\r\nC AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO.\r\nC\r\n  410 NWDS   = 2\r\n      TNWDS  = 4\r\n      IPOINT = 2\r\n      DO 420 I = 1,3\r\n      IF (FL(I) .NE. 0.0D0) GO TO 420\r\n      IPOINT = IPOINT + 1\r\n      IARRAY(IPOINT) = IP + I\r\n  420 CONTINUE\r\n      GO TO 430\r\nC\r\nC THE SINGULARITY IS OF ORDER 3\r\nC\r\n  425 IORDER = 3\r\n      NWDS   = 3\r\n      TNWDS  = 5\r\n      IARRAY(3) = IP + 1\r\n      IARRAY(4) = IP + 2\r\n      IARRAY(5) = IP + 3\r\nC\r\nC WRITE IARRAY ON THE GPST FILE.\r\nC\r\n  430 CALL WRITE (IFGPST,IARRAY(1),TNWDS,NEOR)\r\n  440 GO TO IGOTO, (450,460)\r\n  450 ASSIGN 460 TO IGOTO\r\n      IP = IP + 3\r\n      GO TO BACK, (70,425)\r\n  460 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detdet.f",
    "content": "      SUBROUTINE DETDET(DETA,IPOWR1,P,SML1,OLDD,IOLD)\r\nC\r\n      DIMENSION IPOWR1(1)\r\nC\r\n      DOUBLE PRECISION DETA(1),P(1),PROD,DET,CORE,SML2,OLDD,DET1,SML21\r\nC\r\n      DOUBLE PRECISION MINDD\r\nC\r\n      INTEGER FA,FL,FC,SR1,SR2,SR3,FA1,FL1,FC1,SR11,SR21\r\n      INTEGER OPTION,SDET\r\n      INTEGER OTPE,B,C,R,SR31\r\nC\r\n      COMMON /MACHIN/MACH\r\n      COMMON /REGEAN/IM(21),IA,IN(4),LC,IN1(2),MZ,IN2(2),RMINR,IN3(2),\r\n     1               NEVM,IL1,IL2,NFOUND,LAMA,IBUCK,NSYM\r\n      COMMON /DETMX /ISEW(33),IPAAV,ISEW1(5),NDCMP,ISEW2(20),NPOLE\r\n     1              ,ISING\r\n      COMMON /DCOMPX/FA(7),FL(7),FC(7),SR1,SR2,SR3,DET,IPOWR,NZ\r\n     1              ,SML2\r\n      COMMON /ZZZZZZ /CORE(1)\r\n      COMMON /REIGKR/OPTION\r\n      COMMON /SFACT /FA1(7)   ,FC1(7)   ,FL1(7)   ,SR11     ,SR21\r\n     1              ,NZ1      ,DET1(2)  ,IPOWRA   ,SR31     ,MINDD\r\n     3              ,ICHOL    ,B        ,C        ,R        ,SML21\r\n      COMMON /SYSTEM/KSYSTM(65)\r\nC\r\n      EQUIVALENCE ( KSYSTM( 2) , OTPE   )\r\nC\r\n      DATA SDET /4HSDET/\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      CALL SSWTCH (7, IPRT)\r\n      ISAVE = IN(4)\r\n      IN(4) = IL2\r\n      IL2 = ISAVE\r\n      NZZ = (KORSZ(CORE)/2)*2 -LC\r\n      NDCMP = NDCMP+1\r\n      IF(OPTION .EQ. SDET) GO TO 5\r\n      FA(1)=IA\r\n      CALL RDTRL(FA)\r\nC\r\nC     SET UP FOR UNSYMMETRIC\r\nC\r\n      NZ = NZZ\r\nC\r\nC\r\nC     PUT IN TO PREVENT REWRITE\r\nC\r\nC     FA1(1) = -FA1(1)\r\nC\r\nCWKBD 10/94 SPR94011 FA(1) = -FA(1)\r\n      FL(1)=IN(1)\r\n      FC(1)=IN(2)\r\n      DO 10 I=2,5\r\n      FL(I)=FA(I)\r\n   10 FC(I)=FA(I)\r\n      SR1 = IN(3)\r\n      SR2 = IN(4)\r\n      SR3 = IL1\r\n      CALL DECOMP(*60,CORE,CORE,CORE)\r\nCWKBD 10/94 SPR94011     FC(1) = SR2\r\n      CALL WRTTRL(FC)\r\n      GO TO 14\r\nC\r\nC     SET UP FOR SYMMETRIC DECOMPOSITION\r\nC\r\n    5 FA1(1) = IA\r\n      CALL RDTRL(FA1)\r\n      FL1(1) = IN(1)\r\n      FC1(1) = IN(4)\r\n      ICHOL = 0\r\n      IF(NDCMP .EQ. 1) B=0\r\n      NZ1 = NZZ\r\n      DO 6 I = 2,5\r\n      FL1(I) = FA1(I)\r\n      FC1(I) = FA1(I)\r\n    6 CONTINUE\r\n      SR11= IN(3)\r\n      SR21 = IN(2)\r\n      SR31 = IL1\r\n      IF(MACH.EQ.4 .OR. MACH.EQ.12) FL1(5) = 1\r\n      CALL SDCOMP(*60,CORE,CORE,CORE)\r\n      FC1(5) = FL1(5)\r\n      CALL WRTTRL(FC1)\r\n      IPOWR=IPOWRA\r\n      DET = DET1(1)\r\n      SML1= SML21\r\n   14 PROD = 1.0D0\r\n      IF(IPRT .EQ. 0) GO TO 15\r\n      WRITE(OTPE,99) P(1),DET,IPOWR\r\n   99 FORMAT(2D16.7,I8)\r\n   15 CONTINUE\r\n      IPROD = 0\r\n      IF( MZ  .EQ. 0) GO TO 12\r\n      II =  IABS(MZ)\r\n      DO 11  I=1,II\r\n      PROD = PROD* P(1)\r\n      CALL DETM6(PROD,IPROD)\r\n   11 CONTINUE\r\nC\r\nC     TAKE OUT  POLE AT  RMINR\r\nC\r\n   12 IF (NPOLE .EQ. 0) GO TO 20\r\n      DO  13  I = 1,NPOLE\r\n      PROD = PROD*(P(1)- RMINR)\r\n      CALL DETM6( PROD,IPROD)\r\n   13 CONTINUE\r\n   20 IF(NFOUND .EQ. 0) GO TO 40\r\n      DO 30 I=1,NFOUND\r\n      II = IPAAV +I\r\n      IF(P(1).EQ. CORE(II)) GO TO 70\r\n      PROD = PROD*(P(1)-CORE(II))\r\n      CALL DETM6(PROD,IPROD)\r\n   30 CONTINUE\r\n   40 DETA(1) = DET/PROD\r\n      SML1= SML2\r\n      IPOWR1(1)= IPOWR-IPROD\r\n      CALL DETM6(DETA(1),IPOWR1(1))\r\n   50 IF(IPRT .EQ. 0) GO TO 51\r\n      WRITE(OTPE,99) P(1),DETA(1),IPOWR1(1)\r\n   51 RETURN\r\n   60 DETA(1) = 0.0D0\r\n      IPOWR1(1)=1\r\n      SML1 = 1.0E-8\r\n      ISING = ISING+1\r\n      ISAVE = IN(4)\r\n      IN(4) = IL2\r\n      IL2 = ISAVE\r\n      GO TO 50\r\nC\r\nC     SET DK = DK-1\r\nC\r\n   70 DETA(1) = OLDD\r\n      SML1 = SML2\r\n      IPOWR1(1) = IOLD\r\n      GO TO 50\r\n      END\r\n"
  },
  {
    "path": "mis/detfbs.f",
    "content": "      SUBROUTINE DETFBS (IY,IOBUF,FILEU,NROW,KCOUNT)\r\nC\r\nC     DETFBS IS A SPECIAL VERSION OF THE GFBS ROUTINE AND IS USED BY\r\nC     THE REAL DETERMINANT METHOD.  IT IS SUITABLE FOR BOTH SINGLE\r\nC     AND DOUBLE PRECISION OPERATION.\r\nC\r\nC\r\nC     DEFINITION OF PARAMETERS\r\nC     ------------------------\r\nC\r\nC     FILEU  = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE\r\nC     FILEV  = SAME AS FILEU\r\nC     FILEVT = MATRIX CONTROL BLOCK FOR THE TRANSPOSE OF THE UPPER\r\nC              TRIANGLE\r\nC     X, DX  = THE SOLUTION VECTOR\r\nC     Y, DY  = REGION USED FOR UNPACKING\r\nC     IY     = POINTER TO Y (DY) RELATIVE TO X (DX)\r\nC     IOBUF  = THE INPUT BUFFER\r\nC     NROW   = MATRIX SIZE\r\nC     KCOUNT = EIGENVALUE COUNTER\r\nC\r\n      INTEGER          FILEU(7),PARM(4) ,IOBUF(7),OPTION ,SDET ,FILEV ,\r\n     1                 FILEVT  ,SCR3    ,SCR4    ,SCR6   ,SCR\r\n      REAL             X(1)    ,Y(1)\r\n      DOUBLE PRECISION DX(1)   ,DY(1)   ,DXMIN   ,DSDIAG\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /DETMX /  DUM3(36),IPDETA\r\n      COMMON /NAMES /  RD      ,RDREW   ,WRT     ,WRTREW  ,REW\r\n      COMMON /REGEAN/  DUM1(23),SCR3    ,SCR4    ,DUM2(11),SCR6\r\n      COMMON /REIGKR/  OPTION\r\n      COMMON /TRNSPX/  FILEV(7),FILEVT(7),LCORE  ,NCR     ,SCR(2)\r\n      COMMON /UNPAKX/  ITYPEX  , IUNPAK ,JUNPAK  ,INCR\r\n      EQUIVALENCE      (CORE(1),X(1),DX(1),Y(1),DY(1))    ,\r\n     1                 (XMIN,DXMIN) ,   (SDIAG,DSDIAG)\r\n      DATA    SDET  /  4HSDET  /\r\n      DATA    PARM(3), PARM(4) / 4HDETF, 4HBS   /\r\nC\r\nCWKBI SPR 94011 10/94\r\n      IF ( OPTION .NE. SDET ) GO TO 1000\r\n      ITYPEX = FILEU(5)\r\n      INDEX  = -1\r\n      INCR   = 1\r\n      NFILE  = FILEU(1)\r\n      IF (OPTION .EQ. SDET) GO TO 30\r\n      INDEX  = 1\r\n      LCORE  = IPDETA - IY*ITYPEX - 1\r\n      IF (LCORE .LT. 0) CALL MESAGE (-8,0,PARM(3))\r\n      NCR = 2\r\n      SCR(1) = SCR3\r\n      SCR(2) = SCR4\r\n      DO 20 I = 1,7\r\n      FILEV(I)  = FILEU(I)\r\n      FILEVT(I) = FILEU(I)\r\n   20 CONTINUE\r\n   30 FILEVT(1) = SCR6\r\n      NFILE  = FILEVT(1)\r\n      IF (ITYPEX .EQ. 1) CALL TRNSP ( Y(IY))\r\n      IF (ITYPEX .NE. 1) CALL TRNSP (DY(IY))\r\n      IF (ITYPEX .EQ. 1) GO TO 50\r\n      ASSIGN 230 TO ISD\r\n      ASSIGN 260 TO IUS\r\n   40 PARM(2) = NFILE\r\n      CALL GOPEN (NFILE,IOBUF,RDREW)\r\n      GO TO 60\r\n   50 ASSIGN 240 TO ISD\r\n      ASSIGN 270 TO IUS\r\n      GO TO 40\r\n   60 XMIN = 1.0E20\r\n      IF (ITYPEX .NE. 1) DXMIN = 1.0D20\r\n      DO 80 I = 1,NROW\r\n      IUNPAK = 0\r\n      IF (ITYPEX .NE. 1) GO TO 70\r\n      CALL UNPACK (*400,NFILE,X(I))\r\n      IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I))\r\n      GO TO 80\r\n   70 CALL UNPACK (*400,NFILE,DX(I))\r\n      IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I))\r\n   80 CONTINUE\r\n      IF (ITYPEX.EQ.1 .AND. XMIN .NE.0.0  ) GO TO 120\r\n      IF (ITYPEX.NE.1 .AND. DXMIN.NE.0.0D0) GO TO 120\r\n      XMIN = 1.0E20\r\n      IF (ITYPEX .NE. 1) DXMIN = 1.0D20\r\n      DO 100 I = 1,NROW\r\n      IF (ITYPEX .NE. 1) GO TO 90\r\n      IF (X(I) .EQ. 0.0) GO TO 100\r\n      IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I))\r\n      GO TO 100\r\n   90 IF (DX(I) .EQ. 0.0D0) GO TO 100\r\n      IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I))\r\n  100 CONTINUE\r\n      IF (ITYPEX .NE. 1) GO TO 110\r\n      IF (XMIN .GT. 1.0E-8) XMIN = 1.0E-8\r\n      GO TO 120\r\n  110 IF (DXMIN .GT. 1.0D-8) DXMIN = 1.0D-8\r\nC\r\nC     BUILD LOAD VECTOR FOR BACKWARD PASS\r\nC\r\n  120 SDIAG = 1.0\r\n      IF (ITYPEX .NE. 1) DSDIAG = 1.0D0\r\n      DO 160 I = 1,NROW\r\n      ANUM = (-1)**(I*KCOUNT)\r\n      AI   = I\r\n      ADEN = 1.0 + (1.0 - AI/NROW)*KCOUNT\r\n      AVALUE = ANUM/ADEN\r\n      IF (ITYPEX .NE.    1) GO TO 140\r\n      IF (OPTION .NE. SDET) GO TO 130\r\n      SDIAG = X(I)\r\n      IF (X(I).GE.0.0 .AND. ABS(X(I)).LT.XMIN) SDIAG = XMIN\r\n      IF (X(I).LT.0.0 .AND. ABS(X(I)).LT.XMIN) SDIAG =-XMIN\r\n  130 X(I) = XMIN*AVALUE/SDIAG\r\n      GO TO 160\r\n  140 IF (OPTION .NE. SDET) GO TO 150\r\n      DSDIAG = DX(I)\r\n      IF (DX(I).GE.0.0 .AND. DABS(DX(I)).LT.DXMIN) DSDIAG = DXMIN\r\n      IF (DX(I).LT.0.0 .AND. DABS(DX(I)).LT.DXMIN) DSDIAG =-DXMIN\r\n  150 DX(I) = DXMIN*AVALUE/DSDIAG\r\n  160 CONTINUE\r\nC\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      DO 300 I = 1,NROW\r\n      IUNPAK = 0\r\n      J = NROW - I + 1\r\n      CALL BCKREC (NFILE)\r\n      IF (ITYPEX .EQ. 1) CALL UNPACK (*400,NFILE,Y(IY))\r\n      IF (ITYPEX .NE. 1) CALL UNPACK (*400,NFILE,DY(IY))\r\n      CALL BCKREC (NFILE)\r\n      ISING = 0\r\n      K = JUNPAK - IUNPAK + IY\r\n      GO TO ISD, (230,240)\r\nC\r\nC     DIVIDE BY THE DIAGONAL TERM\r\nC\r\n  200 IF (OPTION .EQ. SDET) GO TO 300\r\n      IF (DY(K).GE.0.0D0 .AND. DABS(DY(K)).LT.DXMIN) DY(K) = DXMIN\r\n      IF (DY(K).LT.0.0D0 .AND. DABS(DY(K)).LT.DXMIN) DY(K) =-DXMIN\r\n      DX(J) = DX(J)/DY(K)\r\n      GO TO 300\r\n  210 IF (OPTION .EQ. SDET) GO TO 300\r\n      IF (Y(K).GE.0.0 .AND. ABS(Y(K)).LT.XMIN) Y(K) = XMIN\r\n      IF (Y(K).LT.0.0 .AND. ABS(Y(K)).LT.XMIN) Y(K) =-XMIN\r\n      X(J) = X(J)/Y(K)\r\n      GO TO 300\r\n  220 K = K - 1\r\n      JUNPAK = JUNPAK - 1\r\n      IF (K .LT. IY) GO TO 280\r\n      GO TO ISD, (230,240)\r\n  230 IF (DY(K) .EQ. 0.0D0) GO TO 220\r\n      IF (JUNPAK - J) 280,200,250\r\n  240 IF (Y(K) .EQ. 0.0) GO TO 220\r\n      IF (JUNPAK - J) 280,210,250\r\n  250 GO TO IUS, (260,270)\r\n  260 DX(J) = DX(J) - INDEX*DX(JUNPAK)*DY(K)\r\n      GO TO 220\r\n  270 X(J) = X(J) - INDEX*X(JUNPAK)*Y(K)\r\n      GO TO 220\r\n  280 IF (ISING .EQ. 0) GO TO 400\r\n  300 CONTINUE\r\nC\r\n      IF (OPTION .EQ. SDET) GO TO 340\r\n      IF (ITYPEX .EQ.    1) GO TO 320\r\n      DO 310 I = 1,NROW\r\n      DX(I) = -DX(I)\r\n  310 CONTINUE\r\n      GO TO 340\r\n  320 DO 330 I = 1,NROW\r\n      X(I) = -X(I)\r\n  330 CONTINUE\r\n  340 CALL CLOSE (NFILE,REW)\r\nCWKBI 10/94 SPR94011 \r\n  700 CONTINUE\r\n      RETURN\r\nCWKBNB 10/94 SPR94011\r\n1000  CALL DETGBS( IY, IOBUF, KCOUNT )\r\n      GO TO 700\r\nCWKBNE 10/94 SPR94011\r\nC\r\nC     ATTEMPT TO OPERATE ON SINGULAR MATRIX\r\nC\r\n  400 PARM(1) = -5\r\n      CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detgbs.f",
    "content": "      SUBROUTINE DETGBS (IY,IOBUF,KCOUNT)\r\nC\r\nC     DETGFBS IS A SPECIAL VERSION OF THE DETFBS ROUTINE AND IS USED BY\r\nC     THE REAL DETERMINANT METHOD FOR UNSYMMETRIC DECOMPOSITION.  \r\nC     IT IS SUITABLE FOR BOTH SINGLE AND DOUBLE PRECISION OPERATION.\r\nC\r\nC\r\nC     DEFINITION OF PARAMETERS\r\nC     ------------------------\r\nC\r\nC     FILEU  = MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE\r\nC     FILEV  = SAME AS FILEU\r\nC     FILEVT = MATRIX CONTROL BLOCK FOR THE TRANSPOSE OF THE UPPER\r\nC              TRIANGLE\r\nC     X, DX  = THE SOLUTION VECTOR\r\nC     Y, DY  = REGION USED FOR UNPACKING\r\nC     IY     = POINTER TO Y (DY) RELATIVE TO X (DX)\r\nC     IOBUF  = THE INPUT BUFFER\r\nC     NROW   = MATRIX SIZE\r\nC     KCOUNT = EIGENVALUE COUNTER\r\nC\r\n      INTEGER          FILEU(7),PARM(4) ,IOBUF(7),OPTION , FC\r\n     1,                SCR3    ,SCR4    ,SCR6    ,EOL  \r\n      REAL             X(1)    ,Y(1)\r\n      DOUBLE PRECISION DX(1)   ,DY(1)   ,DXMIN   ,DSDIAG ,DA(2)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /DETMX /  DUM3(36),IPDETA\r\n      COMMON /NAMES /  RD      ,RDREW   ,WRT     ,WRTREW  ,REW\r\n      COMMON /REGEAN/  DUM1(23),SCR3    ,SCR4    ,DUM2(11),SCR6\r\n      COMMON /REIGKR/  OPTION\r\n      COMMON /UNPAKX/  ITYPEX  , IUNPAK ,JUNPAK  ,INCR\r\n      COMMON /ZNTPKX/  A(4)    , II     ,EOL\r\n      COMMON /DCOMPX/  FA(7)   , FL(7)  ,FC(7)\r\n      EQUIVALENCE      (CORE(1),X(1),DX(1),Y(1),DY(1))    \r\n     1,                (XMIN,DXMIN) ,   (SDIAG,DSDIAG)\r\n     2,                (A(1),DA(1) )\r\n      DATA    PARM(3), PARM(4) / 4HDETG, 4HFBS  /\r\nC\r\n      FILEU(1) = FC(1)\r\n      CALL RDTRL ( FILEU )\r\n      ITYPEX = FILEU(5)\r\n      NROW   = FILEU(2)\r\n      IOFF   = FILEU(7)-1\r\n      IPREC  = 1\r\n      IF ( ITYPEX .EQ. 2 ) IPREC = 2\r\n      INDEX  = -1\r\n      INCR   = 1\r\n      NFILE  = FILEU(1)\r\n      INDEX  = 1\r\n      LCORE  = IPDETA - IY*ITYPEX - 1\r\n      IF (LCORE .LT. 0) CALL MESAGE (-8,0,PARM(3))\r\n      NFILE  = FILEU(1)\r\n      PARM(2) = NFILE\r\n      CALL GOPEN (NFILE,IOBUF,RDREW)\r\n      XMIN = 1.0E20\r\n      IF (ITYPEX .NE. 1) DXMIN = 1.0D20\r\n      DO 80 I = 1,NROW\r\n      IUNPAK = I\r\n      JUNPAK = I\r\n      IND    = NROW - I + 1 \r\n      IF (ITYPEX .NE. 1) GO TO 70\r\n      CALL UNPACK (*400,NFILE,X(IND))\r\n      IF (XMIN .GT. ABS(X(IND))) XMIN = ABS(X(IND))\r\n      GO TO 80\r\n   70 CALL UNPACK (*400,NFILE,DX(IND))\r\n      IF (DXMIN .GT. DABS(DX(IND))) DXMIN = DABS(DX(IND))\r\n   80 CONTINUE\r\n      IF (ITYPEX.EQ.1 .AND. XMIN .NE.0.0  ) GO TO 120\r\n      IF (ITYPEX.NE.1 .AND. DXMIN.NE.0.0D0) GO TO 120\r\n      XMIN = 1.0E20\r\n      IF (ITYPEX .NE. 1) DXMIN = 1.0D20\r\n      DO 100 I = 1,NROW\r\n      IF (ITYPEX .NE. 1) GO TO 90\r\n      IF (X(I) .EQ. 0.0) GO TO 100\r\n      IF (XMIN .GT. ABS(X(I))) XMIN = ABS(X(I))\r\n      GO TO 100\r\n   90 IF (DX(I) .EQ. 0.0D0) GO TO 100\r\n      IF (DXMIN .GT. DABS(DX(I))) DXMIN = DABS(DX(I))\r\n  100 CONTINUE\r\n      IF (ITYPEX .NE. 1) GO TO 110\r\n      IF (XMIN .GT. 1.0E-8) XMIN = 1.0E-8\r\n      GO TO 120\r\n  110 IF (DXMIN .GT. 1.0D-8) DXMIN = 1.0D-8\r\nC\r\nC     BUILD LOAD VECTOR FOR BACKWARD PASS\r\nC\r\n  120 SDIAG = 1.0\r\n      IF (ITYPEX .NE. 1) DSDIAG = 1.0D0\r\n      DO 160 I = 1,NROW\r\n      ANUM = (-1)**(I*KCOUNT)\r\n      AI   = I\r\n      ADEN = 1.0 + (1.0 - AI/NROW)*KCOUNT\r\n      AVALUE = ANUM/ADEN\r\n      IF (ITYPEX .NE.    1) GO TO 140\r\n  130 X(I) = XMIN*AVALUE/SDIAG\r\n      GO TO 160\r\n  140 DX(I) = DXMIN*AVALUE/DSDIAG\r\n  160 CONTINUE\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      CALL REWIND ( FILEU )\r\n      CALL SKPREC ( FILEU, 1 )\r\n      J = NROW\r\n  390 CALL INTPK (*650,FILEU(1),0,IPREC,0)\r\n      IF (EOL) 650,410,650\r\n  410 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J) GO TO 510\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      IN1 = I\r\n      K   = 0\r\n  420 GO TO (430,440), IPREC\r\n  430 CONTINUE\r\n      IF ( A(1) .GE. 0.0 .AND. ABS( A(1)) .LT. XMIN ) A(1) =  XMIN \r\n      IF ( A(1) .LT. 0.0 .AND. ABS( A(1)) .LT. XMIN ) A(1) = -XMIN \r\n      X(IN1) = X(IN1)/A(1)      \r\n      GO TO 470\r\n  440 CONTINUE\r\n      IF ( DA(1) .GE. 0.0D0 .AND. DABS(DA(1)).LT. DXMIN) DA(1) =  DXMIN   \r\n      IF ( DA(1) .LT. 0.0D0 .AND. DABS(DA(1)).LT. DXMIN) DA(1) = -DXMIN   \r\n      DX(IN1) = DX(IN1)/DA(1) \r\n  470 GO TO 490\r\nC\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC\r\n  480 IF (I .GT. J) GO TO 410\r\n  490 IF (EOL) 590,500,590\r\n  500 CALL ZNTPKI\r\n      I   = NROW - II + 1\r\n  510 IN1 = I\r\n      IN2 = J\r\n      IF (I .LT. J) GO TO 530\r\n      K   = IN1\r\n      IN1 = IN2 - IOFF\r\n      IN2 = K\r\n  530 GO TO (540,550), IPREC\r\n  540 X(IN1) = X(IN1) - A(1)*X(IN2)\r\n      GO TO 580\r\n  550 DX(IN1) = DX(IN1) - DX(IN2)*DA(1)\r\n  580 IN1 = IN1 + NROW\r\n      IN2 = IN2 + NROW\r\n      GO TO 480\r\n  590 J = J - 1\r\n      IF (J .GT. 0) GO TO 390\r\nC END OF BACKWARD SUBSTITUTION, NEGATE TERMS AND RETURN\r\n      GO TO (600,620), IPREC\r\n  600 DO 610 K = 1, NROW\r\n      X(K)  = -X(K)\r\n  610 CONTINUE \r\n      GO TO 700\r\n  620 DO 630 K = 1, NROW\r\n      DX(K) = -DX(K)\r\n  630 CONTINUE\r\n  700 CONTINUE\r\n      CALL CLOSE ( FILEU, REW )\r\n      RETURN\r\nC\r\nC     ATTEMPT TO OPERATE ON SINGULAR MATRIX\r\nC\r\n  400 PARM(1) = -5\r\n      CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n  650 CALL MESAGE ( -5    ,PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detm.f",
    "content": "      SUBROUTINE DETM\r\n      DOUBLE PRECISION P,DETX,PS1,DET1\r\n      INTEGER PREC,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7\r\n      INTEGER NAME(2)\r\n      COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET,\r\n     1  IPDETA,PREC,NSTART,NDCMP,IC, NSMOVE,ITERM,IS,ND,IADD,SML1,\r\n     2  IPDETX(4),IPDET1(4), IFAIL,K,FACT1,IFFND,NFAIL\r\n     3, NPOLE,ISNG\r\n      COMMON  /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE\r\n     1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7\r\n     2  ,NFOUND,LAMA\r\n      DATA NAME/4HDETE,4HRM  /\r\nC\r\nC     RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST\r\nC\r\nC     RMIN = LOWEST  NON-ZERO  EIGENVALUE\r\nC\r\nC     MZ = NUMBER OF ZERO EIGENVALUES\r\nC\r\nC     NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST\r\nC\r\nC     EPSI = CONVERGENCE CRITERION\r\nC\r\nC     RMINR = LOWEST EIGENVALUE OF INTEREST\r\nC\r\nC     NE   =  NUMBER OF PERMISSIBLE CHANGES OF EPSI\r\nC\r\nC     NIT = INTERATIONS TO AN EIGENVALUE\r\nC\r\nC     NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED\r\nC\r\nC     IS  = STARTING SET COUNTER\r\nC\r\nC     IC  = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA\r\nC\r\nC     NFOUND  = THE NUMBER OF EIGENVALUES FOUND TO DATA\r\nC\r\nC      IM = MASS MATRIX CONTROL BLOCK\r\nC\r\nC      IK = K MATRIX CONTROL BLOCK\r\nC\r\nC        A = M +P*K\r\nC\r\nC     IEV = EIGENVECTOR CONTROL BLOCK\r\nC\r\n      NSTART =0\r\n      LCORE=0\r\n      NDCMP = 0\r\n      NSMOVE =0\r\n      NPOLE =0\r\n      ITERM = 1\r\n      IFFND = 0\r\n      NFAIL =0\r\nC*****\r\n      PREC = IK(5)\r\nC*****\r\n      ISCR7 = SCR7\r\n      IF(MZ .GT. NEVM) GO TO 40\r\n      IF (IM(1) .GT. 0) GO TO 5\r\nC\r\nC     MASS MATRIX PURGED -- ASSUME IDENTITY\r\nC\r\n      IM(1) =  IK(1)\r\n      CALL RDTRL(IM(1))\r\n      IM(4) =8\r\n    5 CONTINUE\r\n      CALL DETM1(*60)\r\n   10 CALL KLOCK(ITIME1)\r\n      CALL DETM3(*30,*40,*11)\r\n      NFOUND = NFOUND+1\r\n      CALL FDVECT(SML1,P(3))\r\n      IDONE=NFOUND+1\r\n      IF(MZ .GT. 0)  IDONE=IDONE+MZ\r\n      CALL DETM4\r\n      IF(IDONE .GT. NEVM) GO TO 50\r\n      CALL KLOCK(ITIME2)\r\n      CALL TMTOGO(ITLEFT)\r\n      IF(2*(ITIME2-ITIME1) .LE. ITLEFT) GO TO 10\r\nC\r\nC     INSUFFICIENT TIME TO FIND ANOTHER E. V.\r\nC\r\n   11 CONTINUE\r\n      CALL MESAGE(45,NEVM-IDONE,NAME)\r\n      ITERM = 3\r\n      GO TO 50\r\n   20 RETURN\r\n   30 CALL DETM2\r\n      GO TO 10\r\n   40 ITERM = 2\r\n   50 SCR7 = ISCR7\r\n      CALL DETM5\r\n      GO TO 20\r\nC\r\nC     SINGULAR MATRIX EVERYWHERE\r\nC\r\n   60 ITERM = 4\r\n      GO TO 50\r\n      END\r\n"
  },
  {
    "path": "mis/detm1.f",
    "content": "      SUBROUTINE DETM1(*)\r\nC\r\nC     RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST\r\nC\r\nC     RMIN = LOWEST  NON-ZERO  EIGENVALUE\r\nC\r\nC     MZ = NUMBER OF ZERO EIGENVALUES\r\nC\r\nC     NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST\r\nC\r\nC     EPSI = CONVERGENCE CRITERION\r\nC\r\nC     RMINR = LOWEST EIGENVALUE OF INTEREST\r\nC\r\nC     NE   =  NUMBER OF PERMISSIBLE CHANGES OF EPSI\r\nC\r\nC     NIT = INTERATIONS TO AN EIGENVALUE\r\nC\r\nC     NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED\r\nC\r\nC     IS  = STARTING SET COUNTER\r\nC\r\nC     IC  = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA\r\nC\r\nC     NFOUND  = THE NUMBER OF EIGENVALUES FOUND TO DATA\r\nC     NSTART = NUMBER OF TIMES THROUGH THE STARTING VALUES\r\nC\r\nC\r\nC      IM = MASS MATRIX CONTROL BLOCK\r\nC\r\nC      IK = K MATRIX CONTROL BLOCK\r\nC\r\nC        A = M +P*K\r\nC\r\nC     IEV = EIGENVECTOR CONTROL BLOCK\r\nC\r\n      DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1),FACT\r\n      DOUBLE PRECISION F1, F2, X, Y, RATIO\r\nC\r\n      INTEGER PREC,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,NAME(2)\r\nC\r\n      DIMENSION IPDET(1)\r\nC\r\n      COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET,\r\n     1IPDETA,PREC,NSTART,U2,IC,L1,L2,IS,ND,IADD,SML1,IPDETX(4),IPDET1(4)\r\n     2  ,IFAIL,K,FACT1,IFFND,NFAIL,NPOLE,ISNG\r\n      COMMON  /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE\r\n     1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7\r\n     2  ,NFOUND,LAMA\r\n      COMMON /ZZZZZZ/PSAVE\r\nC\r\n      EQUIVALENCE  (PSAVE(1),PS(1),DET(1),IPDET(1))\r\nC\r\n      DATA NAME/4HDETM,4H1   /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IC = 0\r\nC\r\nC     CALCULATE THE NUMBER OF STARTING POINTS TO BE USED\r\nC\r\n      N2EV = 2*NEV\r\n      NN = N2EV\r\n      SRRMIN = SQRT (RMIN)\r\n      SRRMAX = SQRT (RMAX)\r\n      FACT = (SRRMAX - SRRMIN)/N2EV\r\n      F1 = SRRMIN\r\n      I = 0\r\n  120 I = I + 1\r\n      F2 = F1 + FACT\r\n      X = DLOG10 (F2/F1)\r\n      IF (X.LT.1.0D0) GO TO 140\r\n      IX = X\r\n      Y = IX\r\n      IF (X.NE.Y) IX = IX + 1\r\n      N2EV = N2EV + IX - 1\r\n      F1 = F2\r\n  140 IF (I.LT.NN) GO TO 120\r\nC\r\nC     CHECK AVAILABILITY OF CORE\r\nC\r\n      LC = 2*(KORSZ(PSAVE)/2)\r\n      IPSAV = LC/2-NEVM\r\n      IPS = IPSAV -N2EV-1\r\n      IDET = IPS-N2EV-1\r\n      IPDETA = 2*IDET -N2EV-2\r\n      IF(IPDETA .LE. 0) GO TO 80\r\n      LCORE = LC-IPDETA+1\r\nC\r\nC     COMPUTE THE STARTING POINTS\r\nC\r\n      NN = IPS + 1\r\n      PS(NN) = RMIN\r\n      F1 = SRRMIN\r\n      I = 0\r\n  160 F2 = F1 + FACT\r\n      RATIO = F2/F1\r\n      X = DLOG10 (RATIO)\r\n      IF (X.LT.1.0D0) GO TO 200\r\n      IX = X\r\n      Y = IX\r\n      IF (X.NE.Y) IX = IX + 1\r\n      RATIO = RATIO**(1.0D0/IX)\r\n      N = 0\r\n  180 N = N + 1\r\n      I = I + 1\r\n      NN = NN + 1\r\n      PS(NN) = PS(NN-1)*RATIO*RATIO\r\n      IF (N.LT.IX) GO TO 180\r\n      GO TO 220\r\n  200 I = I + 1\r\n      NN = NN + 1\r\n      PS(NN) = F2**2\r\n  220 F1 = F2\r\n      IF (I.LT.N2EV) GO TO 160\r\n      IS=1\r\n      ND=3\r\n      IADD=0\r\n      ISNG = 0\r\n      RMAX = 1.05*RMAX\r\n      FACT1 = EPSI*SQRT(RMAX)\r\nC\r\nC     CALCULATE DETERMINANTE OF FIRST 3 STARTING VALUES\r\nC\r\n      ENTRY DETM2\r\n      IF(NSTART .NE. 0) GO TO 40\r\n      DO 30 N = 1, ND\r\n      NN = N+IADD\r\n      NNP = NN+IPS\r\n      NND = NN+IDET\r\n      NNI = NN+IPDETA\r\n      CALL EADD(-PS(NNP),PREC)\r\n      CALL DETDET(DET(NND),IPDET(NNI),PS(NNP),SML1,0.0D0,1)\r\n   30 CONTINUE\r\n      IF(ND.EQ.3.AND.ISNG.EQ.3)RETURN 1\r\n      IF(IS .EQ. 1) IADD=2\r\n      ND = 1\r\nC\r\nC     CALCULATE THE INITAL GUESS\r\nC\r\nC\r\nC     PERMUT VALUES TO ORDER BY DETERMINANT\r\nC\r\n   40 DO 50 N=1,3\r\n      NS = N-1+IS\r\n      NND = NS+IDET\r\n      NNI = NS+IPDETA\r\n      NNP = NS+IPS\r\n      DET1(N) = DET(NND)\r\n      IPDET1(N) = IPDET(NNI)\r\n      PS1(N) = PS(NNP)\r\n   50 CONTINUE\r\n      RETURN\r\n   80 CALL MESAGE (-8, 0, NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detm3.f",
    "content": "      SUBROUTINE DETM3 (*,*,*)\r\nC\r\nC     RMAX   = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST\r\nC     RMIN   = LOWEST  NON-ZERO  EIGENVALUE\r\nC     MZ     = NUMBER OF ZERO EIGENVALUES\r\nC     NEV    = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST\r\nC     EPSI   = CONVERGENCE CRITERION\r\nC\r\nC     NEVM   = MAXIMUM NUMBER OF EIGENVALUES DESIRED\r\nC     IS     = STARTING SET COUNTER\r\nC     IC     = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA\r\nC     NFOUND = THE NUMBER OF EIGENVALUES FOUND TO DATA\r\nC     IM     = MASS MATRIX CONTROL BLOCK\r\nC     IK     = K MATRIX CONTROL BLOCK\r\nC     IEV    = EIGENVECTOR CONTROL BLOCK\r\nC\r\nC     A      = M + P*K\r\nC\r\n      INTEGER          PREC,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7\r\n      DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1),AA,HK1,HK,\r\n     1                 LAMDAK,DELTAK,GK,ROOT,ROOT1,LAMDK1,A,XLAMSV,PTRY,\r\n     2                 DETRY,SRP,H1,H2,H3,GK1,HKP1,T1,T2,DIST,DSAVE,\r\n     3                 TEMP2\r\n      DIMENSION        IPDET(1)\r\n      COMMON /DETMX /  P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET,\r\n     1                 IPDETA,PREC,NSTART,U2,IC,L1,L2,IS,ND,IADD,SML1,\r\n     2                 IPDETX(4),IPDET1(4),IFAIL,K,FACT1,IFFND,NFAIL,\r\n     3                 NPOLE\r\n      COMMON /REGEAN/  IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,\r\n     1                 LCORE,RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,\r\n     2                 SCR6,SCR7,NFOUND,LAMA\r\n      COMMON /ZZZZZZ/  PSAVE\r\n      EQUIVALENCE      (PSAVE(1),PS(1),DET(1),IPDET(1))\r\nC\r\n      CALL ARRM (PS1,DET1,IPDET1)\r\n      AA = PS1(3) - PS1(2)\r\n      DSAVE = 1.0E38\r\nC\r\nC     COPY INTO INTERATION BLOCK\r\nC\r\n      DO 30 N = 1,3\r\n      DETX(N) = DET1(N)\r\n      P(N) = PS1(N)\r\n   30 IPDETX(N) = IPDET1(N)\r\nC\r\nC     START INTERATION LOOP\r\nC\r\n      K     = 1\r\n      IGOTO = 1\r\n   40 HK1   = P(2) - P(1)\r\n      HK    = P(3) - P(2)\r\n      LAMDAK= HK/HK1\r\n      IF (DABS(HK) .LE. DABS(EPSI*100.0*P(3))) GO TO 240\r\nC\r\nC     CHECK FOR EARLY CONVERGENCE\r\nC\r\n      DELTAK = 1.0D0 + LAMDAK\r\nC\r\nC     COMPUTE  GK\r\nC\r\n      CALL SUMM (T1,IT1,DETX(1)*LAMDAK*LAMDAK,IPDETX,DETX(2)*DELTAK*\r\n     1           DELTAK,IPDETX(2),-1)\r\n      CALL SUMM (GK,IGK,T1,IT1,DETX(3)*(LAMDAK+DELTAK),IPDETX(3),1)\r\nC\r\nC     COMPUTE ROOT1\r\nC\r\n      CALL SUMM (T1,IT1,DETX(1)*LAMDAK,IPDETX(1),DETX(2)*DELTAK,\r\n     1           IPDETX(2),-1)\r\n      CALL SUMM (T2,IT2,T1,IT1,DETX(3),IPDETX(3),1)\r\n      CALL SUMM (ROOT1,IROOT1,GK*GK,2*IGK,-4.0*DELTAK*LAMDAK*DETX(3)*T2,\r\n     1           IPDETX(3)+IT2,1)\r\nC\r\nC     COMPUTE ROOT = DSQRT (ROOT1)\r\nC\r\n      CALL SQRTM (ROOT,IROOT,ROOT1,IROOT1)\r\n      A   = -2.0*DETX(3)*DELTAK\r\n      GK1 = GK\r\n      DO 90 N = 1,2\r\n      IF (ROOT1 .LT. 0.0) GO TO 50\r\n      TEMP2 = ROOT\r\n      IF (GK1 .NE. 0.0D0) TEMP2 = DSIGN(ROOT,GK1)\r\nC\r\n      CALL SUMM (T1,IT1,GK,IGK,TEMP2,IROOT,1)\r\nC\r\n      LAMDK1 = A/T1\r\n      ILMK   = IPDETX(3) - IT1\r\n      LAMDK1 = LAMDK1*10.0**ILMK\r\n      GO TO 60\r\nC\r\nC     T1= GK*GK + DABS(ROOT1)\r\nC\r\n   50 CALL SUMM (T1,IT1,GK*GK,IGK+IGK,DABS(ROOT1),IROOT1,1)\r\n      LAMDK1 = A*GK/T1\r\n      ILMK   = IPDETX(3) + IGK - IT1\r\n      LAMDK1 = LAMDK1*10.0**ILMK\r\n      GO TO 100\r\n   60 IF (K .NE. 1) GO TO 100\r\nC\r\nC     IF (K .EQ. 1) RECALC LK1 TO MINIMIZE DIST\r\nC\r\n      DIST = 0.0D0\r\n      DO 70 I = 1,3\r\n      DIST = DABS(PS1(I)-PS1(3)-LAMDK1*AA) + DIST\r\n   70 CONTINUE\r\n      IF (DIST .GE. DSAVE) GO TO 80\r\n      DSAVE  = DIST\r\n      XLAMSV = LAMDK1\r\n   80 GK1 = -GK1\r\n   90 CONTINUE\r\n      LAMDK1 = XLAMSV\r\n  100 HKP1 = LAMDK1*HK\r\n      PTRY = P(3) + HKP1\r\nC\r\nC     RANGE CHECKS\r\nC\r\n      IF (PTRY .GT. RMAX) GO TO 120\r\n      IF (IS .EQ. N2EV-1) GO TO 110\r\n      NNP = IS + IPS\r\n      IF (PTRY .GT. 0.45*PS(NNP+2)+0.55*PS(NNP+3)) GO TO 120\r\n  110 IF (PTRY .LT. RMINR) GO TO 111\r\n      GO TO 140\r\nC\r\nC     INCREASE POLE  AT LOWEST  E. V. GEOMETRICALLY\r\nC\r\n  111 NPOLE1 = NPOLE + 1\r\n      NPOLE  = 2*NPOLE + 1\r\nC\r\nC     SWEEP PREVIOUSLY EVALUATED STARTING POINTS BY POLES\r\nC\r\n      N2EV2 = ND + IADD\r\n      DO 113 N = 1,N2EV2\r\n      NND   = N + IDET\r\n      NNP   = N + IPS\r\n      NNI   = N + IPDETA\r\n      PTRY  = 1.0D0\r\n      IPTRY = 0\r\n      DO 112 I = 1,NPOLE1\r\n      PTRY = PTRY*(PS(NNP)-RMINR)\r\n      CALL DETM6 (PTRY,IPTRY)\r\n  112 CONTINUE\r\n      DET(NND)   = DET(NND)/PTRY\r\n      IPDET(NNI) = IPDET(NNI) - IPTRY\r\n      CALL DETM6 (DET(NND),IPDET(NNI))\r\n  113 CONTINUE\r\n      GO TO 120\r\nC\r\nC     NEW STARTING SET\r\nC\r\n  120 IFAIL = 0\r\n  119 IS    = IS + 1\r\n      IF (IS  .GE. N2EV) GO TO 130\r\n      IF (NSTART .EQ. 0) IADD = IADD + 1\r\n      RETURN 1\r\nC\r\nC      LOOK AT OLD STARTING SETS AGAIN\r\nC\r\n  130 IF (IFFND .NE. 1) RETURN 2\r\n      IFFND  = 0\r\n      IS     = 1\r\n      NSTART = NSTART + 1\r\n      RETURN 1\r\nC\r\nC     TRY FOR CONVERGENCE\r\nC\r\n  140 CALL TMTOGO (IPTRY)\r\n      IF (IPTRY .LE. 0) RETURN 3\r\n      CALL EADD (-PTRY,PREC)\r\n      CALL DETDET (DETRY,IPTRY,PTRY,SML1,DETX(3),IPDETX(3))\r\n      IF (DETRY .NE. 0.0D0) GO TO 145\r\n      IGOTO = 2\r\n      GO TO 180\r\nC\r\nC     BEGIN CONVERGENCE TESTS\r\nC\r\n  145 IF (K .LE. 2) GO TO 170\r\n      SRP = DSQRT(DABS(P(3)))\r\n      H1  = DABS(HK1)/SRP\r\n      H2  = DABS(HK)/SRP\r\n      H3  = DABS(HKP1)/SRP\r\n  150 FACT1 = EPSI*SQRT(RMAX)\r\n      IF (H1 .GT. 2.E7*FACT1) GO TO 200\r\n      IF (H2 .GT. 2.E4*FACT1) GO TO 200\r\n      IF (H3 .GT. H2) GO TO 160\r\n      IF (H3 .GT. 2.*FACT1) GO TO 200\r\n      IGOTO = 2\r\n      GO TO 180\r\n  160 IF (H2 .GT. 20.*FACT1) GO TO 200\r\n      IGOTO = 2\r\n      GO TO 180\r\nC\r\nC     INTERATE AGAIN\r\nC\r\n  170 K = K + 1\r\n  180 DO 190 I = 1,2\r\n      P(I) = P(I+1)\r\n      IPDETX(I) = IPDETX(I+1)\r\n  190 DETX(I)   = DETX(I+1)\r\n      IPDETX(3) = IPTRY\r\n      DETX(3)   = DETRY\r\n      P(3) = PTRY\r\n      GO TO (40,240), IGOTO\r\nC\r\nC     FAIL TEST\r\nC\r\n  200 K = K + 1\r\n      IF (K-NIT) 180,210,220\r\n  210 IF (IFAIL.EQ.1 .AND. IC.LT.NE) GO TO 230\r\n  220 IFAIL = 1\r\n      NFAIL = NFAIL + 1\r\n      GO TO 119\r\n  230 EPSI = 10.0*EPSI\r\n      IC = IC + 1\r\n      GO TO 150\r\nC\r\nC     ACCEPT PK\r\nC\r\n  240 IFFND = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detm4.f",
    "content": "      SUBROUTINE DETM4\r\n      DOUBLE PRECISION P,DETX,PS1,DET1,PSAVE(1),DET(1),PS(1)\r\n      INTEGER PREC,U1,U2,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7\r\n      DIMENSION IPDET(1)\r\n      COMMON /DETMX/P(4),DETX(4),PS1(4),DET1(4),N2EV,IPSAV,IPS,IDET,\r\n     1  IPDETA,PREC, U1,U2,IC,NSMOVE,L2,IS,ND, IADD,SML1,IPDETX(4),\r\n     2  IPDET1(4), IFAIL,K,FACT1\r\n      COMMON  /REGEAN/ IM(7),IK(7),IEV(7),SCR1,SCR2,SCR3,SCR4,SCR5,LCORE\r\n     1 , RMAX,RMIN,MZ,NEV,EPSI,RMINR,NE,NIT,NEVM,SCR6,SCR7\r\n     2  ,NFOUND,LAMA\r\n      COMMON /ZZZZZZ/PSAVE\r\n      EQUIVALENCE  (PSAVE(1),PS(1),DET(1),IPDET(1))\r\nC\r\nC     RMAX = APPROXIMATE MAGNITUDE OF LARGEST EIGENVALUE OF INTEREST\r\nC\r\nC     RMIN = LOWEST  NON-ZERO  EIGENVALUE\r\nC\r\nC     MZ = NUMBER OF ZERO EIGENVALUES\r\nC\r\nC     NEV = NUMBER OF NON-ZERO EIGENVALUES IN RANGE OF INTEREST\r\nC\r\nC     EPSI = CONVERGENCE CRITERION\r\nC\r\nC     RMINR = LOWEST EIGENVALUE OF INTEREST\r\nC\r\nC     NE   =  NUMBER OF PERMISSIBLE CHANGES OF EPSI\r\nC\r\nC     NIT = INTERATIONS TO AN EIGENVALUE\r\nC\r\nC     NEVM = MAXIMUM NUMBER OF EIGENVALUES DESIRED\r\nC\r\nC     IS  = STARTING SET COUNTER\r\nC\r\nC     IC  = COUNTER FOR CHANGE OF CONVERGENCE CRITERIA\r\nC\r\nC     NFOUND  = THE NUMBER OF EIGENVALUES FOUND TO DATA\r\nC\r\nC     NSMOVE = THE NUMBER OF TIMES THE STATTING POINTS HAVE BEEN MOVED\r\nC\r\nC      IM = MASS MATRIX CONTROL BLOCK\r\nC\r\nC      IK = K MATRIX CONTROL BLOCK\r\nC\r\nC        A = M +P*K\r\nC\r\nC     IEV = EIGENVECTOR CONTROL BLOCK\r\nC\r\n      NN = IPSAV+NFOUND\r\n      PSAVE(NN) = P(3)\r\n      EPS1 = FACT1*DSQRT(DABS(P(3)))\r\n      DO 40 N=1,3\r\n      NN = N  + IADD -2\r\n      NNP = NN+IPS\r\n      IF(DABS(PS(NNP)-P(3)) .GE. 400.*EPS1) GO TO 40\r\n   10 PS(NNP) = PS(NNP) +2.E3*EPS1\r\n      NSMOVE = NSMOVE+1\r\n      IF(NFOUND .EQ. 1) GO TO 30\r\n      NFND = NFOUND-1\r\n      DO 20 I=1,NFND\r\n      NNZ = IPSAV+I\r\n      IF(DABS(PS(NNP)-PSAVE(NNZ)) .GT. 400.*EPS1) GO TO 20\r\n      GO TO 10\r\n   20 CONTINUE\r\n   30 NND = NN+IDET\r\n      NNI = NN+IPDETA\r\n      CALL EADD(-PS(NNP),PREC)\r\n      CALL DETDET(DET(NND),IPDET(NNI),PS(NNP),SML1,0.0D0,1)\r\n   40 CONTINUE\r\n      N2EV2 = IADD + ND\r\n      DO 50 I=1,N2EV2\r\n      NND = I+IDET\r\n      NNP = I+IPS\r\n      NNI = I+IPDETA\r\n      DET(NND) = DET(NND)/(PS(NNP)-P(3))\r\n      CALL DETM6(DET(NND),IPDET(NNI))\r\n   50 CONTINUE\r\n      DO 60 I=1,3\r\n   60 DET1(I) = DET1(I)/(PS1(I)-P(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/detm5.f",
    "content": "      SUBROUTINE DETM5\r\nC\r\nC     WRITES EIGENVALUE SUMMARY FOR DETERMINANT METHOD\r\nC\r\n      DOUBLE PRECISION PSAVE(1),DET(1), PS(1)\r\n      INTEGER IPDET(8),SYSBUF\r\n      DIMENSION CORE(5)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /DETMX/ P(32),N2EV,IPSAV,IPS,IDET,IPDETA,PREC,NSTART,\r\n     1  NDCMP,IC,NSMOVE,ITERM,IS,ND,IADD,SML1,IPDETX(4),IPDET1(4),\r\n     2 IFAIL,K,FACT1,IFFND,NFAIL\r\n      COMMON /REGEAN/ IM(26),LCORE,RMAX,RMIN,MZ, NEV, EPSI, RMINR, NE,\r\n     1  NIT, NEVM, SCR6, IPOUT, NFOUND, LAMA\r\n      COMMON /ZZZZZZ/ PSAVE\r\n      COMMON /SYSTEM/SYSBUF\r\nC\r\n      EQUIVALENCE  (PSAVE(1),PS(1),DET(1),IPDET(1),CORE(1))\r\n      EQUIVALENCE ( CONSTS(2) , TPHI   )\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      NZ = KORSZ(PSAVE) -LCORE-SYSBUF\r\n      CALL GOPEN(IPOUT,IPDET(NZ+1),1)\r\n      IPDET(1) = 1\r\n      IPDET(2) = NFOUND\r\n      IF(MZ .GT. 0) IPDET(2) = IPDET(2) +MZ\r\n      IPDET(3) = NSTART\r\n      IPDET(4) = IC\r\n      IPDET(5) = NSMOVE\r\n      IPDET(6) = NDCMP\r\n      IPDET(7) = NFAIL\r\n      IPDET(8) = ITERM\r\n      DO 10 I=9,12\r\n   10 IPDET(I) = 0\r\n      CALL WRITE(IPOUT,IPDET(1),12,0)\r\n      IF(NDCMP .EQ. 0) GO TO 61\r\n      N2EV2 = IADD+ND\r\n      DO 60 I=1,N2EV2\r\n      NND = I+IDET\r\n      NNP = I+IPS\r\n      NNI = I+IPDETA\r\nC\r\nC     PUT UUT STRRTING POINT SUMMARY\r\nC\r\n      IPDET(1) = I\r\n      CORE(2) = PSAVE(NNP)\r\n      CORE(3) = SQRT(ABS(CORE(2)))\r\n      CORE(4) = CORE(3)/TPHI\r\n      CORE(5) = PSAVE(NND)\r\n      IPDET(6) = IPDET(NNI)\r\nC\r\nC     SCALE DETERMINANTE FOR PRETTY PRINT\r\nC\r\n      IF(CORE(5) .EQ. 0.0) GO TO 50\r\n   20 IF(ABS(CORE(5)) .GE. 10.0) GO TO 40\r\n   30 IF(ABS(CORE(5)) .GE. 1.0) GO TO 50\r\n      CORE(5) = CORE(5)*10.0\r\n      IPDET(6) = IPDET(6)-1\r\n      GO TO 30\r\n   40 CORE(5) = CORE(5)*0.1\r\n      IPDET(6) = IPDET(6)+1\r\n      GO TO 20\r\n   50 CALL WRITE(IPOUT,CORE(1),6,0)\r\n   60 CONTINUE\r\n   61 CONTINUE\r\n      CALL WRITE(IPOUT,CORE(1),0,1)\r\n      CALL CLOSE(IPOUT,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dfbs.f",
    "content": "      SUBROUTINE DFBS\r\nC\r\nC     FBS   L,U,B/X/V,Y,ISYM=0/V,Y,KSIGN=1/V,Y,IPREC=0/V,Y,ITYPE=0 $\r\nC\r\nC     ISYM  =  1  USE FBS\r\nC           = -1  USE GFBS\r\nC           =  0  CHOOSE WHICH BASED ON SUPPLIED INPUT\r\nC     KSIGN =  1, SOLVE LUX= B\r\nC             -1,       LUX=-B\r\nC     IPREC = REQUESTED PRECISION - DEFAULT BASED ON INPUT OR SYSTEM(55)\r\nC     ITYPE = REQUESTED TYPE OF X - DEFAULT IS LOGICAL CHOICE ON INPUT\r\nC\r\nC     REVISED  12/91 BY G.CHAN/UNISYS\r\nC     FATAL ERROR IN FBS (NOT GFBS) IF INPUT MATRIX IS NOT A LOWER\r\nC     TRIANGULAR FACTOR\r\nC\r\n      INTEGER         L,U,B,X,SBNM(2),DOSI(3),REFUS(3),OUTPT,SCR\r\n      DIMENSION       ZZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /BLANK / ISYM, KSIGN, IPREC, ITYPE\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /FBSX  / IL(7),IU(7),IB(7),IX(7),INX,IP1,IS1,ISCR\r\n      COMMON /GFBSX / JL(7),JU(7),JB(7),JX(7),JNX,JP1,JS1\r\nCZZ   COMMON /ZZDFB1/ Z(1)\r\n      COMMON /ZZZZZZ/ Z(20000)\r\nCZZ   COMMON /ZZDFB2/ ZZ(1)\r\n      EQUIVALENCE     (ZZ(1),Z(1))\r\n      EQUIVALENCE     (KSYSTM(55),KPREC),(KSYSTM(2),OUTPT)\r\n      DATA    L, U, B, X, SCR   / 101,102,103,201,301 /\r\n      DATA    SBNM  / 4HDFBS,1H /\r\n      DATA    DOSI  / 4HSING, 4HDOUB, 4HMLTP/,  REFUS / 2*3H   ,3HREF/\r\nC\r\nC\r\n      JU(1) = U\r\n      CALL RDTRL (JU)\r\n   10 IF (ISYM) 150,20,30\r\n   20 ISYM  = -1\r\n      IF (JU(1) .LT. 0) ISYM = 1\r\n      GO TO 10\r\nC\r\nC     SET UP CALL TO FBS\r\nC\r\n   30 NOGO  = 0\r\n      IL(1) = L\r\n      CALL RDTRL (IL)\r\n      IF (IL(1) .GT. 0) GO TO 40\r\n      CALL MESAGE (30,198,L)\r\n      NOGO  = 1\r\n   40 CONTINUE\r\n      IF (IL(4) .NE. 4) GO TO 100\r\n      N     = IL(2)\r\n      IB(1) = B\r\n      CALL RDTRL (IB)\r\n      IF (NOGO .EQ. 0) GO TO 50\r\n      CALL MESAGE (-30,199,SBNM)\r\n   50 CONTINUE\r\n      INX   = KORSZ(Z)\r\n      IPREC1= MAX0(IL(5),IB(5),IU(5))\r\n      IF (IPREC1 .GT. 2) IPREC1 = IPREC1 - 2\r\n      IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC\r\n      IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 70\r\n      IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3\r\n      WRITE  (OUTPT,60) SWM,DOSI(IPREC),REFUS(IPREC),SBNM,DOSI(IPREC1)\r\n   60 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,' USED BY ',\r\n     1        2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE')\r\n      IF (IPREC .NE. 3) IPREC1 = IPREC\r\n   70 IPREC = IPREC1\r\n      IP1   = IPREC1\r\n      IS1   = KSIGN\r\n      LTYPE = IPREC1\r\n      IF (IL(5).EQ.3 .OR. IL(5).EQ.4 .OR. IU(5).EQ.3 .OR. IU(5).EQ.4 .OR\r\nCWKBR spr 93014  1   .IL(5).EQ.3 .OR. IL(5).EQ.4)  LTYPE = IPREC1 + 2\r\n     1   .IB(5).EQ.3 .OR. IB(5).EQ.4)  LTYPE = IPREC1 + 2\r\n      IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 90\r\n      JJ    = 1\r\n      IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3\r\n      WRITE  (OUTPT,80) SWM,ITYPE,REFUS(JJ),SBNM,LTYPE\r\n   80 FORMAT (A27,' 2164, REQUESTED TYPE ',I4,2H, ,A3,' USED BY ',2A4,\r\n     1       '. TYPE ',I4,' IS LOGICAL CHOICE.')\r\n      IF (JJ .NE. 3) LTYPE = ITYPE\r\n   90 ITYPE = LTYPE\r\n      IX(5) = ITYPE\r\n      IX(1) = X\r\n      ISCR  = SCR\r\n      CALL FBS (Z,Z)\r\n      IX(3) = N\r\n      IX(4) = 2\r\n      IF (IX(3) .EQ. IX(2)) IX(4) = 1\r\n      CALL WRTTRL (IX)\r\n      GO TO 200\r\nC\r\n  100 CALL FNAME (IL(1),IL(2))\r\n      WRITE  (OUTPT,110) IL(2),IL(3),IL(4)\r\n  110 FORMAT ('0*** INPUT MATRIX ',2A4,' TO FBS MODULE IS NOT A LOWER ',\r\n     1        'TRIANGULAR FACTOR.  FORM =',I4)\r\n      CALL ERRTRC ('DFBS    ',110)\r\n      GO TO 200\r\nC\r\nC     SET UP CALL TO GFBS\r\nC\r\n  150 JL(1) = L\r\n      CALL RDTRL (JL)\r\n      N     = JL(2)\r\n      JB(1) = B\r\n      CALL RDTRL (JB)\r\n      JNX   = KORSZ(ZZ)\r\n      IPREC1= MAX0(JL(5),JB(5),JU(5))\r\n      IF (IPREC1 .GT. 2) IPREC1 = IPREC1 - 2\r\n      IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC\r\n      IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 160\r\n      IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3\r\n      WRITE (OUTPT,60) SWM,DOSI(IPREC),REFUS(IPREC),SBNM,DOSI(IPREC1)\r\n      IF (IPREC .NE. 3) IPREC1 = IPREC\r\n  160 IPREC = IPREC1\r\n      JP1   = IPREC1\r\n      JS1   = KSIGN\r\n      JX(1) = X\r\n      LTYPE = IPREC1\r\n      IF (JL(5).EQ.3 .OR. JL(5).EQ.4 .OR. JU(5).EQ.3 .OR. JU(5).EQ.4 .OR\r\n     1   .JL(5).EQ.3 .OR. JL(5).EQ.4) LTYPE = IPREC1 + 2\r\n      IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 170\r\n      JJ    = 1\r\n      IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3\r\n      WRITE (OUTPT,80) SWM,ITYPE,REFUS(JJ),SBNM,LTYPE\r\n      IF (JJ .NE. 3) LTYPE = ITYPE\r\n  170 ITYPE = LTYPE\r\n      JX(5) = ITYPE\r\n      CALL GFBS (ZZ,ZZ)\r\n      JX(3) = N\r\n      JX(4) = 2\r\n      IF (JX(3) .EQ. JX(2)) JX(4) =  1\r\n      CALL WRTTRL (JX)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dgree.f",
    "content": "      SUBROUTINE DGREE (NDSTK,NDEG,IOLD,IBW1,IPF1,NU)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC     DGREE COMPUTES THE DEGREE OF EACH NODE IN NDSTK AND STORES\r\nC     IT IN THE ARRAY NDEG.  THE BANDWIDTH AND PROFILE FOR THE ORIGINAL\r\nC     OR INPUT RENUMBERING OF THE GRAPH IS COMPUTED ALSO.\r\nC\r\nC     COMPUTE MAXIMUM DEGREE MM AND STORE IN IDEG.\r\nC\r\nC     INTEGER          BUNPK\r\n      DIMENSION        NDSTK(1), NDEG(1),  IOLD(1),  NU(1)\r\n      COMMON /BANDG /  N,        IDPTH,    IDEG\r\n      COMMON /BANDS /  NN,       MM\r\nC\r\n      IBW1=0\r\n      IPF1=0\r\n      IDEG=MM\r\n      MM=0\r\n      DO 100 I=1,N\r\n      NDEG(I)=0\r\n      IRW=0\r\n      CALL BUNPAK(NDSTK,I,IDEG,NU)\r\n      DO 80 J=1,IDEG\r\n      ITST=NU(J)\r\n      IF (ITST) 90,90,50\r\n   50 NDEG(I)=NDEG(I)+1\r\n      IDIF=IOLD(I)-IOLD(ITST)\r\n      IF (IRW.LT.IDIF) IRW=IDIF\r\n      MM=MAX0(MM,J)\r\n   80 CONTINUE\r\n   90 IPF1=IPF1+IRW\r\n      IF (IRW.GT.IBW1) IBW1=IRW\r\n  100 CONTINUE\r\n      IDEG=MM\r\nC\r\nC     INCLUDE DIAGONAL TERMS IN BANDWIDTH AND PROFILE\r\n      IBW1=IBW1+1\r\n      IPF1=IPF1+N\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/diag36.f",
    "content": "      SUBROUTINE DIAG36 (Z,BUF,GPL,SIL,EQEXIN)\r\nC\r\nC     THIS ROUTINE PRINTS THE INTERNAL-EXTERNAL-SIL NOS. OF THE GRID\r\nC     POINTS AND SCALAR POINTS, AS REQUESTED BY DIAG 36\r\nC\r\n      INTEGER         Z(2),     BUF,      GPL,      SIL,      EQEXIN,\r\n     1                FILE,     NAM(2)\r\n      COMMON /SYSTEM/ IBUF,     L,        DUMMY(6), NLPP\r\n      COMMON /NAMES / RD,       RDREW,    SKIP(2),  REW\r\n      DATA            NAM /     4HDIAG,   4H34      /\r\nC\r\n      FILE = GPL\r\n      Z(1) = GPL\r\n      CALL RDTRL (Z(1))\r\n      N1 = Z(2)\r\n      N2 = N1 + N1\r\n      N3 = N2 + N1 + 1\r\n      IF (N1 .LE. 0) GO TO 150\r\nC\r\n      N = 1\r\n      DO 10 I = 1,2\r\n      CALL OPEN (*150,FILE,Z(BUF),RDREW)\r\n      CALL FWDREC (*160,FILE)\r\n      CALL READ (*150,*170,FILE,Z(N),N1,1,J)\r\n      CALL CLOSE (FILE,REW)\r\n      FILE = SIL\r\n 10   N = N + N1\r\nC\r\nC     HERE WE HAVE, IN INTERNAL NUMBER ORDER,\r\nC        Z(   1 THRU N1) = EXTERNAL NOS.\r\nC        Z(N1+1 THRU N2) = SIL NOS.\r\nC\r\n      NLPX = NLPP - 8\r\n      N = NLPX*3\r\n      DO 60 I = 1,N1,N\r\n      CALL PAGE1\r\n      WRITE  (L,30)\r\n 30   FORMAT (/46X,38HTABLE OF INTERNAL-EXTERNAL-SIL NUMBERS,\r\n     1       //10X,3(6X,30HINTERNAL  EXTERNAL      SIL   ),\r\n     2        /10X,3(6X,3(10H--------  )))\r\n      IM1 = I - 1\r\n      DO 50 J = 1,NLPX\r\n      J1 = IM1 + J\r\n      J2 = J1  + NLPX\r\n      J3 = J2  + NLPX\r\n      IF (J3 .LE. N1) WRITE (L,40)\r\n     1   J1,Z(J1),Z(J1+N1), J2,Z(J2),Z(J2+N1), J3,Z(J3),Z(J3+N1)\r\n      IF (J3.GT.N1 .AND. J2.LE.N1) WRITE (L,40)\r\n     1   J1,Z(J1),Z(J1+N1), J2,Z(J2),Z(J2+N1)\r\n      IF (J2.GT.N1 .AND. J1.LE.N1) WRITE (L,40) J1,Z(J1),Z(J1+N1)\r\n 40   FORMAT (10X,3(4X,3I10,2X))\r\n 50   CONTINUE\r\n 60   CONTINUE\r\nC\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 0) RETURN\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN (*150,FILE,Z(BUF),RDREW)\r\n      CALL FWDREC (*160,FILE)\r\n      CALL READ (*150,*170,FILE,Z( 1),N2,1,J)\r\n      CALL READ (*150,*170,FILE,Z(N3),N2,1,J)\r\n      CALL CLOSE (FILE,REW)\r\n      I = N3 - 1\r\n      J = N2\r\n      K = N3 + N2 - 1\r\n      DO 70 N = 1,N1\r\n      Z(I  ) = Z(K  )\r\n      Z(I-1) = Z(J  )\r\n      Z(I-2) = Z(J-1)\r\n      I = I - 3\r\n      J = J - 2\r\n 70   K = K - 2\r\nC\r\nC     HERE WE HAVE AN ARRAY OF EXTERNAL-INTERNAL-CODED SIL. PRINT IT OUT\r\nC\r\n      NLPX = NLPX*3\r\n      N    = NLPX*3\r\n      N3   = N3 - 1\r\n      DO 100 I = 1,N3,N\r\n      CALL PAGE1\r\n      WRITE  (L,80)\r\n 80   FORMAT (/44X,44HTABLE OF EXTERNAL-INTERNAL-CODED SIL NUMBERS,\r\n     1       //10X,3(6X,30HEXTERNAL  INTERNAL CODED SIL  ),\r\n     2        /10X,3(5X,3(10H--------- ),1X))\r\n      IM1 = I - 1\r\n      DO 90 J = 1,NLPX,3\r\n      J1 = IM1 + J\r\n      J2 = J1  + NLPX\r\n      J3 = J2  + NLPX\r\n      IF (J3 .LE. N3) WRITE (L,40)\r\n     1   Z(J1),Z(J1+1),Z(J1+2), Z(J2),Z(J2+1),Z(J2+2),\r\n     2   Z(J3),Z(J3+1),Z(J3+2)\r\n      IF (J3.GT.N3 .AND. J2.LE.N3) WRITE (L,40)\r\n     1   Z(J1),Z(J1+1),Z(J1+2), Z(J2),Z(J2+1),Z(J2+2)\r\n      IF (J2.GT.N3 .AND. J1.LE.N3) WRITE (L,40) Z(J1),Z(J1+1),Z(J1+2)\r\n 90   CONTINUE\r\n 100  CONTINUE\r\nC\r\n      WRITE  (L,110)\r\n 110  FORMAT (//10X,33H*** JOB TERMINATED BY DIAG 20 ***)\r\n      CALL PEXIT\r\nC\r\n 150  N = -1\r\n      GO TO 180\r\n 160  N = -2\r\n      GO TO 180\r\n 170  N = -7\r\n 180  CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/diagon.f",
    "content": "      SUBROUTINE DIAGON\r\nC\r\nC     DMAP FUNCTIONAL MODULE\r\nC\r\nC     DIAGONAL  A / B / V,Y,OPT=COLUMN / V,Y,POWER $\r\nC\r\nC     INPUT  - A IS ANY MATRIX, EXCEPT RECTANGULAR AND ROW VECTOR\r\nC            - OPT IS OUTPUT MATRIX TYPE V,Y FLAG\r\nC            - POWER IS A VALUE TO WHICH THE REAL PART OF EACH ELEMENT\r\nC              ON THE DIAGONAL OF A IS RAISED. (DEFAULT OF POWER IS 1.0)\r\nC     OUTPUT - B IS A REAL SYMMETRIC MATRIX (OPT='SQUARE'), OR A COLUMN\r\nC              VECTOR CONTAINING THE DIAGONAL OF A (OPT='COLUMN'), OR\r\nC              A DIAGONAL MATRIX (OPT='DIAGONAL'\r\nC\r\nC     WRITTEN BY R. MITCHELL, CODE 324, GSFC, DECEMBER 7,1972\r\nC\r\nC     LAST MODIFIED BY G.CHAN/UNISYS   11/1991\r\nC     TO MAKE SUERE  0.0**0 = 1.0, NOT 0.0\r\nC\r\n      INTEGER          SYSBUF,COL,SQ,IA(7),IB(7),NAME(2),OPT(2)\r\n      DOUBLE PRECISION D(2),DVAL(2),DCORE(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM\r\n      COMMON /UNPAKX/  ITYPEU,IU,JU,INCRU\r\n      COMMON /ZNTPKX/  A(4),II,LAST\r\n      COMMON /ZBLPKX/  VAL(4),JROW\r\nCZZ   COMMON /ZZDIAG/  CORE(1)\r\n      COMMON /ZZZZZZ/  CORE(20000)\r\n      COMMON /SYSTEM/  KSYSTM(60)\r\n      COMMON /BLANK /  PARAM(3)\r\n      EQUIVALENCE      (KSYSTM(1),SYSBUF), (KSYSTM(2),NOUT),\r\n     1                 (IA(2),INCOL), (IA(3),INROW), (IA(4),IFORM),\r\n     2                 (IA(5),ITYPE), (A(1),D(1)), (VAL(1),DVAL(1)),\r\n     3                 (PARAM(1),OPT(1)), (PARAM(3),POWER),\r\n     4                 (CORE(1), DCORE(1))\r\n      DATA    COL,SQ/  4HCOLU,4HSQUA  /,  IN1,IOUT / 101,201 /\r\n      DATA    NAME  /  4HDIAG,4HONAL  /\r\nC\r\nC\r\nC     CHECK FOR VALID PARAMETER.\r\nC\r\n      IF (OPT(1).EQ.SQ .OR. OPT(1).EQ.COL .OR. OPT(1).EQ.NAME(1))\r\n     1    GO TO 10\r\n      WRITE  (NOUT,5) SWM,OPT\r\n    5 FORMAT (A27,' 3300, INVALID PARAMETER ',2A4,\r\n     1       ' SUPPLIED TO MODULE DIAGONAL, COLUMN SUBSTITUTED')\r\n      OPT(1) = COL\r\nC\r\nC     GET INFO ON INPUT MATRIX\r\nC\r\n   10 IA(1) = IN1\r\n      CALL RDTRL (IA)\r\nC\r\nC     CHECK FOR PURGED INPUT.\r\nC\r\n      IF (IA(1) .LT. 0) GO TO 210\r\nC\r\nC     CHECK FOR PROPER FORM OF MATRIX\r\nC\r\n      GO TO (20,220,20,20,20,20,220,200), IFORM\r\nC\r\nC     SET OUTPUT CONTROL BLOCK TO MATCH INPUT AND REQUESTS.\r\nC\r\n   20 IB4 = 6\r\n      IF (OPT(1) .EQ. COL) IB4 = 2\r\n      IF (OPT(1) .NE. NAME(1)) GO TO 25\r\n      IB4 = 3\r\n      OPT(1) = COL\r\n   25 IB5 = 1\r\n      IF (ITYPE.EQ.2 .OR. ITYPE.EQ.4) IB5 = 2\r\n      CALL MAKMCB (IB,IOUT,INROW,IB4,IB5)\r\nC\r\nC     CHECK FOR SPECIAL CASES OF POWER PARAMETER.\r\nC\r\nC     CHECK FOR 1.0 = NO ARITHMETIC REQUIRED.\r\nC\r\n      IF (ABS(POWER-1.0)-1.0E-6) 30,30,40\r\n   30 IPOW = 1\r\n      GO TO 100\r\nC\r\nC     CHECK FOR 0.5 = SQUARE ROOT\r\nC\r\n   40 IF (ABS(POWER-0.5)-1.0E-6) 45,45,50\r\n   45 IPOW = 2\r\n      GO TO 100\r\nC\r\nC     CHECK FOR 2.0 = SQUARE\r\nC\r\n   50 IF (ABS(POWER-2.0)-1.0E-6) 55,55,60\r\n   55 IPOW = 3\r\n      GO TO 100\r\nC\r\nC     CHECK FOR 0.0 = IDENTITY MATRIX\r\nC\r\n   60 IF (POWER) 70,65,70\r\n   65 IPOW = 4\r\n      GO TO 100\r\nC\r\nC     GENERAL CASE\r\nC\r\n   70 IPOW = 5\r\nC\r\nC     DO OPEN CORE BOOKKEEPING\r\nC\r\nC     OBTAIN LENGTH OF OPEN CORE\r\nC\r\n  100 LCORE = KORSZ(CORE)\r\nC\r\nC     NEED ROOM FOR 2 GINO BUFFERS\r\nC\r\n      IF (LCORE .LT. 2*SYSBUF) GO TO 230\r\nC\r\nC     IF INPUT MATRIX IS A DIAGONAL MATRIX, NEED ADDITIONAL\r\nC     ROOM FOR A FULL COLUMN\r\nC\r\n      IF (IFORM.EQ.3 .AND.\r\n     1    LCORE.LT.(2*SYSBUF + IB(5)*INROW + 1)) GO TO 230\r\n      IBUF = LCORE - SYSBUF + 1\r\nC\r\nC     OPEN INPUT FILE AND SKIP HEADER\r\nC\r\n      CALL GOPEN (IA,CORE(IBUF),0)\r\nC\r\nC     OPEN OUTPUT FILE AND WRITE HEADER\r\nC\r\n      NPREC = IB(5)\r\n      IBUF  = IBUF - SYSBUF\r\n      CALL GOPEN (IB,CORE(IBUF),1)\r\nC\r\nC     PRIME PACK ROUTINE IF COLUMN OUTPUT\r\nC\r\n      IF (OPT(1) .EQ. COL) CALL BLDPK (NPREC,NPREC,IOUT,0,0)\r\nC\r\nC     READ INPUT MATRIX AND SEARCH COLUMNS FOR DIAGONAL ELEMENTS.\r\nC\r\n      DO 180 NOWCOL = 1,INCOL\r\nC\r\nC     CHECK IF THE INPUT MATRIX IS A DIAGONAL MATRIX (IFORM = 3)\r\nC\r\n      IF (IFORM .NE. 3) GO TO 118\r\nC\r\nC     UNPACK THE FULL COLUMN OF THE INPUT DIAGONAL MATRIX\r\nC\r\n      ITYPEU = NPREC\r\n      IU = 1\r\n      JU = INROW\r\n      INCRU = 1\r\n      CALL UNPACK (*105,IA,CORE)\r\n      GO TO 110\r\n  105 JJU = NPREC*JU\r\n      DO 108 I = 1,JJU\r\n      CORE(I) = 0.0\r\n  108 CONTINUE\r\n      IF (IPOW .NE. 4) GO TO 110\r\n      IF (NPREC .EQ.  1) CORE (NOWCOL) = 1.0\r\n      IF (NPREC .EQ.  2) DCORE(NOWCOL) = 1.0D0\r\n  110 II = 0\r\n  115 II = II + 1\r\n      A(1) = CORE(II)\r\n      IF (NPREC .EQ. 2) D(1) = DCORE(II)\r\n      IF (OPT(1) .EQ. SQ) CALL BLDPK (NPREC,NPREC,IOUT,0,0)\r\n      GO TO 140\r\nC\r\nC     START A NEW COLUMN IF SYMMETRIC OUTPUT MATRIX.\r\nC\r\n  118 IF (OPT(1) .EQ. SQ) CALL BLDPK (NPREC,NPREC,IOUT,0,0)\r\nCWKBI 9/93\r\n      INULL = 0\r\nC\r\nC     START READING A COLUMN\r\nC\r\nC     NOTE THAT NULL INPUT COLUMN RESULTS IN NULL OUTPUT ELEMENT ONLY\r\nC     IF POWER IS NOT ZERO.\r\nC\r\n      CALL INTPK (*120,IA,0,ITYPE,0)\r\n      GO TO 130\r\n  120 IF (IPOW .NE. 4) GO TO 175\r\nCWKBI 9/93\r\n      INULL = 1\r\n      VAL(2)  = 0.0\r\n      DVAL(2) = 0.0D0\r\n      IF (NPREC .EQ. 1)  VAL(1) = 1.0\r\n      IF (NPREC .EQ. 2) DVAL(1) = 1.0D0\r\n      II = NOWCOL\r\n      GO TO 170\r\nC\r\nC     GET AN ELEMENT\r\nC\r\n  130 CALL ZNTPKI\r\nC\r\nC     CHECK FOR DESIRED ELEMENT (ROW = COLUMN)\r\nC\r\n      IF (II-NOWCOL) 132,140,135\r\nC\r\nC     CHECK FOR LAST NON-ZERO ELEMENT IN COLUMN.\r\nC\r\n  132 IF (LAST) 130,130,135\r\nC\r\nC     SET ELEMENT VALUE TO 0. IF NOT IN COLUMN\r\nC\r\n  135 VAL(1)  = 0.\r\n      DVAL(1) = 0.0D0\r\n      GO TO 170\r\nC\r\nC     PROCESS RETURNED VALUE.\r\nC\r\nC     CHECK FOR PRECISION REQUIRED\r\nC\r\n  140 GO TO (150,160), NPREC\r\nC\r\nC     SINGLE PRECISION PROCESSING OF REAL PART OF DIAGONAL ELEMENT\r\nC\r\nC     PERFORM REQUESTED OPERATION\r\nC\r\n  150 GO TO (152,154,156,158,159), IPOW\r\n  152 VAL(1) = A(1)\r\n      GO TO 170\r\n  154 VAL(1) = SQRT(A(1))\r\n      GO TO 170\r\n  156 VAL(1) = A(1)*A(1)\r\n      GO TO 170\r\n  158 VAL(1) = 1.0\r\n      GO TO 170\r\n  159 VAL(1) = A(1)**POWER\r\n      GO TO 170\r\nC\r\nC     DOUBLE PRECISION PROCESSING OF REAL PART OF DIAGONAL ELEMENT\r\nC\r\nC     PERFORM REQUESTED OPERATION\r\nC\r\n  160 GO TO (162,164,166,168,169), IPOW\r\n  162 DVAL(1) = D(1)\r\n      GO TO 170\r\n  164 DVAL(1) = DSQRT(D(1))\r\n      GO TO 170\r\n  166 DVAL(1) = D(1)*D(1)\r\n      GO TO 170\r\n  168 DVAL(1) = 1.0D0\r\n      GO TO 170\r\n  169 DVAL(1) = D(1)**POWER\r\nC\r\nC     PACK COMPUTED VALUE INTO OUTPUT MATRIX\r\nC\r\n  170 JROW = NOWCOL\r\n      IF (IFORM .EQ. 3) JROW = II\r\n      CALL ZBLPKI\r\nC\r\nC     TEST FOR SPECIAL CASE OF DIAGONAL INPUT MATRIX (1 COLUMN).\r\nC\r\n      IF (IFORM .EQ. 3) GO TO 175\r\nC\r\nC     SKIP REST OF INPUT COLUMN IF NOT ON LAST ELEMENT.\r\nC\r\nCWKBI 9/93\r\n      IF ( INULL .EQ. 1 ) GO TO 171\r\n      IF (LAST .EQ. 0) CALL SKPREC (IN1,1)\r\nCWKBI 9/93\r\n  171 CONTINUE\r\nC\r\nC     TEST FOR SQUARE MATRIX CASE\r\nC     FINISHED WITH COLUMN IF SQUARE MATRIX\r\nC\r\n  175 IF (OPT(1) .EQ. SQ) CALL BLDPKN (IOUT,0,IB)\r\nC\r\nC     FINISHED WITH ONE OUTPUT ELEMENT.\r\nC\r\n      IF (IFORM.EQ.3 .AND. II.LT.INROW) GO TO 115\r\n  180 CONTINUE\r\nC\r\nC     FINISH PACKING VECTOR IF COLUMN OUTPUT OPTION.\r\nC\r\n      IF (OPT(1) .EQ. COL) CALL BLDPKN (IOUT,0,IB)\r\nC\r\nC     WRITE TRAILER IN FIAT.\r\nC\r\n      CALL WRTTRL (IB)\r\nC\r\nC     FINISHED WITH ALL OF MATRIX, CLOSE UNITS\r\nC\r\n      CALL CLOSE(IN1,1)\r\n      CALL CLOSE(IB ,1)\r\n  200 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  210 RETURN\r\nC\r\nC     WRONG TYPE OF INPUT MATRIX = MSG.3016\r\nC\r\n  220 NUMM = -16\r\n      GO TO 300\r\nC\r\nC     NOT ENOUGH CORE (MESSAGE 3008)\r\nC\r\n  230 NUMM = -8\r\n      GO TO 300\r\nC\r\n  300 CALL MESAGE (NUMM,NUM,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/diam.f",
    "content": "      SUBROUTINE DIAM (NC,MAXDEG,NL,NODESL,IDEM,MAXLEV,IG,IC,IDEG,\r\n     1                 IDIS,IW,ICC,JG)\r\nC\r\nC     DETERMINE NL STARTING POINTS AND STORE IN NODESL.\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\n      DIMENSION       IG(1),    IDIS(1),  IW(1),    ICC(1),   IC(1),\r\n     1                JG(1),    IDEG(1),  NODESL(1)\r\n      COMMON /BANDS / NN\r\nC\r\n      NL = 0\r\n      MAXLEV = 600000\r\n      DO 100 I = 1,NN\r\n      IF (NC-IC(I)) 100,40,100\r\n   40 IF (MAXDEG-IDEG(I)) 100,50,50\r\n   50 MD = IDIST(I,ML,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,JG)\r\n      IF (MD) 120,120,60\r\n   60 IF (ML-MAXLEV) 70,80,100\r\n   70 MAXLEV = ML\r\n      NL = 1\r\n      NODESL(1) = I\r\n      GO TO 100\r\n   80 IF (NL .GE. IDEM) GO TO 100\r\n      NL = NL + 1\r\n      NODESL(NL) = I\r\n  100 CONTINUE\r\n      RETURN\r\nC\r\n  120 ML = 1\r\n      NODESL(1) = I\r\n      MAXLEV = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dihex.f",
    "content": "      SUBROUTINE DIHEX (TYPE)\r\nC\r\nC     THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO\r\nC     PRODUCE THE DIFFERENTIAL STIFFNESS MATRIX\r\nC\r\nC           TYPE = 1    IHEX1\r\nC           TYPE = 2    IHEX2\r\nC           TYPE = 3    IHEX3\r\nC\r\nC     THE EST ENTRIES ARE\r\nC\r\nC     NAME  ----------INDEX----------   DESCRIPTION\r\nC            IHEX1    IHEX2    IHEX3\r\nC\r\nC     EID        1        1        1    ELEMENT ID NO.\r\nC     SIL      2-9     2-21     2-33    SCALAR INDEX LIST\r\nC     MID       10       22       34    MATERIAL ID NO.\r\nC     CID       11       23       35    MATERIAL COORD. SYSTEM ID NO.\r\nC     NIP       12       24       36    NO. INTEGRATION POINTS PER EDGE\r\nC     MAXAR     13       25       37    MAX ASPECT RATIO\r\nC     ALFA      14       26       38    MAX ANGLE FOR NORMALS\r\nC     BETA      15       27       39    MAX ANGLE FOR MIDSIDE POINTS\r\nC     BGPDT  16-47   28-107   40-167    BASIC GRID POINT DATA\r\nC     GPT    48-55  108-127  168-199    GRID POINT TEMPERATURES\r\nC     DEF       56      128      200    NOT USED\r\nC     GPTLD  57-64  129-148  201-232    GRID POINT TEMPERATURE LOADS\r\nC     UGV    65-88  149-208  233-328    GLOBAL DISPLACEMENT VECTOR\r\nC\r\n      LOGICAL          ANIS       ,RECT       ,TDEP       ,DIAG       ,\r\n     1                 MTDEP\r\n      INTEGER          HEAT       ,EID        ,SIL(1)     ,IB(46)     ,\r\n     1                 TYPE       ,JZ(1)      ,CID        ,IEST(1)    ,\r\n     2                 BCORD      ,BGPDT      ,GPT        ,NC(8)      ,\r\n     4                 UFM(6)     ,ELNO(3)    ,IWORK(1)   ,OTPT\r\n      REAL             NU         ,MAXAR      ,DMAXAR(3)  ,DALFA(3)   ,\r\n     1                 DBETA(2)   ,EVEC(3,12) ,WORK(66)   ,VN(3,2)\r\n      DOUBLE PRECISION SK         ,SV         ,Z(1)       ,JACOB(3,3) ,\r\n     1                 DETJ       ,S(4)       ,H(4)       ,GAUSS(8)   ,\r\n     2                 SFACT      ,PART(3,3)  ,E1         ,E2         ,\r\n     3                 E3         ,TF(3,3)    ,TK(3,3)    ,SIG(6)     ,\r\n     4                 SX         ,SY         ,SZ         ,SXY        ,\r\n     5                 SYZ        ,SZX        ,STR(18)    ,C(3,3)\r\n      DOUBLE PRECISION GMAT(36)    ,STORE(18)  ,DALPHA(6)\r\n      DIMENSION        IGRID(128) ,GRID(128)\r\n      COMMON /MATIN/   MID        ,INFLAG     ,TEMP\r\n      COMMON /MATOUT/  E          ,G          ,NU         ,RHO        ,\r\n     1                 TALPHA     ,TREF       ,CDAMP      ,SPACE(18)  ,\r\n     3                 MTDEP\r\n      COMMON /MATISO/  BUFM6(46)\r\n      COMMON /DS1AAA/  NPVT       ,DUM6(6)    ,I6X6K      ,DUM12(12)  ,\r\n     1                 JMAX       ,DUM2(2)    ,NROWSC\r\n      COMMON /ZZZZZZ/  ZS(1)\r\n      COMMON /DS1ADP/  ISIL(32)   ,SK(6,6)    ,WORK       ,STR\r\n      COMMON /DS1AET/  EST(328)\r\n      COMMON /SYSTEM/  SYSBUF,OTPT,NOGO,SYS(6),MTEMP\r\n      EQUIVALENCE      (Z(1),JZ(1),ZS(1))    ,(EID,EST(1),IEST(1))   ,\r\n     1                 (SIL(1),EST(2))       ,(WORK(1),IWORK(1))     ,\r\n     2                 (SIG(1),SX)           ,(SIG(2),SY)            ,\r\n     3                 (SIG(3),SZ)           ,(SIG(4),SXY)           ,\r\n     4                 (SIG(5),SYZ)          ,(SIG(6),SZX)\r\n      EQUIVALENCE      (WORK(1),EVEC(1,1))   ,(WORK(37),VN(1,1))     ,\r\n     1                 (WORK(43),NC(1))\r\n      EQUIVALENCE      (WORK(1),JACOB(1,1))  ,(WORK(19),H(1))        ,\r\n     1                 (WORK(27),S(1))       ,(WORK(35),PART(1,1))   ,\r\n     2                 (WORK(53),SIG(1))     ,(WORK(1),C(1,1))\r\n      EQUIVALENCE      (WORK(1),TF(1,1))     ,(WORK(35),TK(1,1))\r\n      EQUIVALENCE      (IB(1),BUFM6(1))      ,(GRID(1),IGRID(1))\r\n      DATA    KGG   /  101 /, MGG   / -1     /\r\n      DATA    DMAXAR,  DALFA, DBETA / 5.0    ,10.0      ,15.0        ,\r\n     2                                45.0    ,45.0      ,45.0        ,\r\n     3                                         45.0      ,45.0        /\r\n      DATA    DTOR  ,  GAUSS  /    0.017453292519943E0,\r\n     1                             0.577350269189626D0,\r\n     2                             0.555555555555556D0,\r\n     3                             0.774596669241483D0,\r\n     4                             0.888888888888889D0,\r\n     5                             0.347854845137454D0,\r\n     6                             0.861136311594053D0,\r\n     7                             0.652145154862546D0,\r\n     8                             0.339981043584856D0/\r\n      DATA    UFM          /4H0***,4H USE,4HR FA,4HTAL ,4HMESS,4HAGE /\r\n      DATA    IHEX , ELNO  /4HIHEX,4H ELE,4HMENT,4H NO./\r\n      DATA    NERR1        / 2141 /\r\nC\r\n      HEAT = 0\r\nC\r\nC     FOR DOUBLE PRECISION, OPEN CORE POINTERS MUST BE MODIFIED\r\nC\r\n      IZS = 1 + 2*(I6X6K + JMAX*NROWSC)\r\n      NZS = IZS + 10655\r\n      IZ  = IZS/2 + 1\r\n      NZ  = NZS/2 + 1\r\n      IPREC = 2\r\nC\r\nC     ALLOCATE LARGE ARRAYS IN OPEN CORE\r\nC\r\n      NGP = 12*TYPE - 4\r\n      DO 5 I = 1,NGP\r\n      IF (SIL(I) .EQ. NPVT) GO TO 7\r\n    5 CONTINUE\r\n      NOGO= 1\r\n    7 IGP = I\r\n      IF (HEAT .EQ. 1) GO TO 30\r\n      NGG = 3*NGP\r\n      IF (KGG .LE. 0) GO TO 10\r\n      IK  = IZ + 3*NGG\r\n      NK  = IK - 1 + (NGG+1)*NGG/2\r\n      GO TO 20\r\n   10 IK  = IZ\r\n      NK  = IK + 3*NGG - 1\r\n      IM  = NK + 1\r\n      NM  =(NGP+1)*NGP/2 + NK\r\n      GO TO 40\r\n   20 NM  = NK\r\n      IF (MGG .LE. 0) GO TO 40\r\n      IM  = NK + 1\r\n      NM  = NK + (NGP+1)*NGP/2\r\n      GO TO 40\r\n   30 IK  = IZ + 17\r\n      NK  = IK - 1 + NGP**2\r\n      IM  = NK + 1\r\n      NM  = IM - 1 + NGP**2\r\n      NGG = NGP\r\n   40 IN  = NM + 1\r\n      IG  = IN + NGP\r\n      IX  = IG + 3*NGP\r\n      ND  = NM + 9*NGP\r\n      ID  = ND + 1\r\n      ND  = ID + NGG - 1\r\n      IF (ND .LE. NZ) GO TO 100\r\n      WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID\r\n      NOGO = 1\r\nC\r\nC     OPEN CORE MAP\r\nC     =============\r\nC\r\nC     DOUBLE PRECISION  Z(1)\r\nC     COMMON  /ZZZZZZ/  Z\r\nC\r\nC     NGG = ORDER OF ELEMENT MATRIX\r\nC\r\nC     INDEX      STIFFNESS             MASS                HEAT\r\nC                AND MASS              ONLY              TRANSFER\r\nC\r\nC     IZ    NGG BY 3 PARTITION  NGG BY 3 PARTITION  FOUR WORD COORDINATE\r\nC           OF MATRIX           OF MATRIX           VECTOR.  INPUT TO\r\nC                                                   TRANSD\r\nC\r\nC     IZ+2                                          TRANSFORMED THERMAL\r\nC                                                   CONDUCTANCE MATRIX\r\nC\r\nC     IT                                            MATERIAL TRANSFOR-\r\nC                                                   MATION MATRIX\r\nC\r\nC     IK    SYMMETRIC HALF OF   SAME AS IZ          FULL CONDUCTANCE\r\nC           STIFFNESS\r\nC\r\nC     IM    SYMMETRIC HALF OF   SYMMETRIC HALF OF   FULL CAPACITANCE\r\nC           MASS                MASS\r\nC\r\nC     IN    --------------------SHAPE FUNCTIONS-------------------------\r\nC\r\nC     IG    --------------------D(SHAPE)/D(GREEK)-----------------------\r\nC\r\nC     IX    --------------------D(SHAPE)/D(BASIC XYZ)-------------------\r\nC\r\nC     ID    DISPLACEMENT\r\nC           VECTOR IN BASIC\r\nC           COORDINATES\r\nC\r\nC\r\nC     CHECK GEOMETRY.  THE FOLLOWING CHECKS ARE MADE\r\nC           1.  ASPECT RATIO\r\nC           2.  ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE\r\nC           3.  ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE\r\nC           4.  REVERSE SEQUENCING\r\nC           5.  DUPLICATE COORDINATE VALUES\r\nC\r\nC     FETCH EPT DATA, COMPUTE EST POINTERS\r\nC\r\n  100 MID  = 10 + 12*(TYPE-1)\r\n      CID  = IEST(MID+1)\r\n      NIP  = IEST(MID+2)\r\n      MAXAR= EST(MID+3)\r\n      ALFA = EST(MID+4)\r\n      BETA = EST(MID+5)\r\n      BGPDT= MID + 6\r\n      GPT  = BGPDT + 4*NGP\r\n      MID  = IEST(MID)\r\n      IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2\r\n      IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE)\r\n      IF (ALFA  .LT. 0.0) ALFA  = DALFA(TYPE)\r\n      IF (BETA  .LT. 0.0) BETA  = DBETA(TYPE-1)\r\n      ALFA = COS(DTOR*ALFA)\r\n      BETA = COS(DTOR*BETA)\r\nC\r\nC     TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES\r\nC\r\n      DO 104 I = 1,NGP\r\n      M  = BGPDT + 4*I - 4\r\n      N  = ID + 3*I - 3\r\n      J  = GPT + 2*NGP + 3*(I-1) + 1\r\n      IF (IEST(M) .EQ. 0) GO TO 102\r\n      CALL TRANSD (EST(M) ,Z(IZ))\r\n      DO 101 L = 1,3\r\n  101 Z(IK+L-1) = DBLE(EST(J+L-1)*0.25)\r\n      CALL GMMATD (Z(IZ),3,3,0,Z(IK),3,1,0,Z(N))\r\n      GO TO 104\r\n  102 DO 103 L = 1,3\r\n  103 Z(N+L-1) = DBLE(EST(J+L-1)*0.25)\r\n  104 CONTINUE\r\nC\r\nC     REARRANGE BGPDT\r\nC\r\n      DO 110 I = 1,NGP\r\n  110 IGRID(I) = IEST(BGPDT+4*I-4)\r\n      BCORD = GPT - 3\r\n      DO 120 I = 2,NGP\r\n      DO 120 J = 1,3\r\n      K = BGPDT + 4*(NGP-I) + 4 - J\r\n      BCORD = BCORD - 1\r\n      EST(BCORD) = EST(K)\r\n  120 CONTINUE\r\n      DO 130 I = 2,NGP\r\n  130 IEST(BGPDT+I-1) = IGRID(I)\r\nC\r\nC     INITIALIZE FOR NUMERICAL INTEGRATION\r\nC\r\nC\r\nC     ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE\r\nC\r\n      I = NIP - 1\r\n      GO TO (510,520,530), I\r\n  510 H(1) = 1.0\r\n      S(1) = GAUSS(1)\r\n      H(2) = 1.0\r\n      S(2) =-GAUSS(1)\r\n      GO TO 540\r\n  520 H(1) = GAUSS(2)\r\n      S(1) = GAUSS(3)\r\n      H(2) = GAUSS(4)\r\n      S(2) = 0.0\r\n      H(3) = GAUSS(2)\r\n      S(3) =-GAUSS(3)\r\n      GO TO 540\r\n  530 H(1) = GAUSS(5)\r\n      S(1) = GAUSS(6)\r\n      H(2) = GAUSS(7)\r\n      S(2) = GAUSS(8)\r\n      H(3) = GAUSS(7)\r\n      S(3) =-GAUSS(8)\r\n      H(4) = GAUSS(5)\r\n      S(4) =-GAUSS(6)\r\nC\r\nC     GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE\r\nC     ORDERED ACCORDING TO INCREASING SIL NUMBERS\r\nC\r\n  540 DO 550 I = 1,NGP\r\n      ISIL(I) = SIL(I)\r\n  550 SIL(I) = I\r\nC\r\nC     NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I\r\nC\r\nC     ZERO OUT OPEN CORE FOR MATRIX SUMMATION\r\nC\r\n      DO 580 I = IK,NM\r\n  580 Z(I) = 0.0\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC\r\nC     MATERIAL IS ADDED.\r\nC\r\nC     TEST FOR ANISOTROPIC MATERIAL\r\nC\r\n      ANIS = .FALSE.\r\nC\r\nC     TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC\r\nC     MATERIAL IS DEFINED\r\nC\r\n      RECT = .TRUE.\r\nC\r\nC     CHECK FOR TEMPERATURE DEPENDENCE\r\nC\r\n      TDEP = .TRUE.\r\n      DO 610 I = 2,NGP\r\n      IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630\r\n  610 CONTINUE\r\n      TDEP = .FALSE.\r\n  630 TEMP = EST(GPT)\r\n      INFLAG = 10\r\n      CALL MAT (EID)\r\n      IF (.NOT.MTDEP) TDEP = .FALSE.\r\n      IF (IB(46) .EQ. 6) ANIS = .TRUE.\r\n      TREF = BUFM6(44)\r\nC\r\n      IF (KGG .LE. 0) GO TO 1000\r\nC\r\nC     IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS\r\nC\r\n      IF (TDEP) GO TO 1000\r\n      IF (ANIS) GO TO 800\r\n      IF (IB(46) .NE. 0) GO TO 640\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n  640 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      TALPHA = BUFM6(38)\r\n      GO TO 1000\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC, DEFINED IN A RECTANGULAR COORDINATE\r\nC     SYSTEM, AND NOT TEMPERATURE DEPENDENT, TRANSFORM IT TO BASIC\r\nC     SYSTEM\r\nC\r\n  800 DO 810 IJK = 1,36\r\n  810 GMAT(IJK) = BUFM6(IJK)\r\nC\r\nC     CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO\r\nC     BASIC COORDINATE SYSTEM MUST BE ADDED HERE.\r\nC\r\nC     ALL SET TO BEGIN INTEGRATION LOOPS.  DO IT.\r\nC\r\n 1000 DO 2000 I = 1,NIP\r\n      DO 2000 J = 1,NIP\r\n      DO 2000 K = 1,NIP\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     1             EST(BCORD))\r\n      IF (DETJ .NE. 0.0) GO TO 1010\r\nC\r\nC     BAD ELEMENT IF FALL HERE.  JACOBIAN MATRIX WAS SINGULAR.\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n 1010 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      IF (KGG .LE. 0) GO TO 1015\r\nC\r\nC     STIFFNESS\r\nC\r\nC     COMPUTE STRAIN-DISPLACEMENT RELATIONS\r\nC\r\nC     MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS\r\nC\r\n      CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX))\r\nC\r\nC     IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE\r\nC     AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN\r\nC\r\n 1015 IF (.NOT.TDEP) GO TO 1030\r\n      TEMP = 0.0\r\n      DO 1020 L = 1,NGP\r\n 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1)\r\n      CALL MAT (EID)\r\n      IF (KGG .LE. 0) GO TO 1100\r\n      IF (ANIS) GO TO 1040\r\n      IF (IB(46) .NE. 0 ) GO TO 1025\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n 1025 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      TALPHA = BUFM6(38)\r\n      GO TO 1100\r\n 1030 IF (KGG .LE. 0) GO TO 1100\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR-\r\nC     DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC\r\nC     THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS\r\nC     ADDED\r\nC\r\n      IF (.NOT.ANIS) GO TO 1100\r\n      IF (RECT) GO TO 1100\r\n 1040 CONTINUE\r\nC\r\nC     INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR\r\nC     ANISOTROPIC MATERIAL MATRIX\r\nC\r\n      DO 1041 IJK = 1,36\r\n 1041 GMAT(IJK) = BUFM6(IJK)\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN\r\nC     FALL HERE.\r\nC\r\n 1100 CONTINUE\r\nC\r\nC     COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX\r\nC\r\nC     THERMAL EFFECTS\r\nC\r\n      IF (IEST(GPT+NGP+1) .EQ. -1) GO TO 1120\r\nC\r\nC     COMPUTE LOADING TEMPERATURE AT THIS POINT\r\nC\r\n      TEMP = 0.0\r\n      DO 1110 L = 1,NGP\r\n 1110 TEMP = TEMP + Z(IN+L-1)*EST(GPT+NGP+L)\r\n      TEMP = 0.25*(TEMP-TREF)\r\n      IF (ANIS) GO TO 1115\r\n      SIG(1) =-TALPHA*(E1+2.0*E2)*TEMP\r\n      SIG(2) = SIG(1)\r\n      SIG(3) = SIG(1)\r\n      SIG(4) = 0.0\r\n      SIG(5) = 0.0\r\n      SIG(6) = 0.0\r\n      GO TO 1140\r\nC\r\nC     ANISOTROPIC\r\nC\r\n 1115 DO 1116 IJK = 1,6\r\n 1116 DALPHA(IJK) = BUFM6(IJK+37)\r\nC\r\n      CALL GMMATD (GMAT(1),6,6,0,DALPHA(1),6,1,0,SIG)\r\n      DO 1117 IJK = 1,6\r\n 1117 SIG(IJK) = -SIG(IJK)*TEMP\r\n      GO TO 1140\r\n 1120 DO 1130 L = 1,6\r\n 1130 SIG(L) = 0.0\r\nC\r\nC     DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL.\r\nC\r\n 1140 STR(12) = 0.0\r\n      STR(13) = 0.0\r\n      STR(17) = 0.0\r\n      DO 1150 L = 1,NGP\r\n      II = IX + 3*L - 4\r\n      IF (ANIS) GO TO 1141\r\n      STR( 1) = E1*Z(II+1)\r\n      STR( 2) = E2*Z(II+2)\r\n      STR( 3) = E2*Z(II+3)\r\n      STR( 4) = E2*Z(II+1)\r\n      STR( 5) = E1*Z(II+2)\r\n      STR( 6) = E2*Z(II+3)\r\n      STR( 7) = E2*Z(II+1)\r\n      STR( 8) = E2*Z(II+2)\r\n      STR( 9) = E1*Z(II+3)\r\n      STR(10) = E3*Z(II+2)\r\n      STR(11) = E3*Z(II+1)\r\n      STR(14) = E3*Z(II+3)\r\n      STR(15) = E3*Z(II+2)\r\n      STR(16) = E3*Z(II+3)\r\n      STR(18) = E3*Z(II+1)\r\n      GO TO 1145\r\nC\r\nC     ANISOTROPIC\r\nC\r\n 1141 DO 1142 IJK = 1,18\r\n 1142 STORE(IJK) = 0.D0\r\n      STORE( 1) = Z(II+1)\r\n      STORE( 5) = Z(II+2)\r\n      STORE( 9) = Z(II+3)\r\n      STORE(10) = Z(II+2)\r\n      STORE(11) = Z(II+1)\r\n      STORE(14) = Z(II+3)\r\n      STORE(15) = Z(II+2)\r\n      STORE(16) = Z(II+3)\r\n      STORE(18) = Z(II+1)\r\nC\r\n      CALL GMMATD (GMAT(1),6,6,0,STORE(1),6,3,0,STR(1))\r\nC\r\n 1145 CONTINUE\r\n      CALL GMMATD (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG)\r\n 1150 CONTINUE\r\n      SV = SX\r\n      SX = SX + SY\r\n      SY = SY + SZ\r\n      SZ = SZ + SV\r\nC\r\nC     NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS\r\nC\r\n      DO 1400 N = 1,NGP\r\n      DO 1400 M = N,NGP\r\n      IF (N.EQ.IGP .OR. M.EQ.IGP) GO TO 1170\r\n      GO TO 1400\r\n 1170 CONTINUE\r\nC\r\nC     COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N\r\nC\r\n      IF (KGG .LE. 0) GO TO 1300\r\n      IF (.NOT.ANIS ) GO TO 1200\r\nC\r\nC     MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX\r\nC     FOR ANISOTROPIC MATERIAL HERE\r\nC     =================================================================\r\nC\r\n 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210\r\nC\r\nC     MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT\r\nC     MATRIX\r\nC\r\n      MZ = IX + (N-1)*3\r\n      NZ = IX + (M-1)*3\r\n      GO TO 1220\r\n 1210 MZ = IX + (M-1)*3\r\n      NZ = IX + (N-1)*3\r\nC\r\nC     DIFFERENTIAL STIFFNESS\r\nC\r\n 1220 DO 1223 L = 1,3\r\n      DO 1223 INC = 1,3\r\n 1223 C(L,INC)  = Z(MZ+INC-1)*Z(NZ+L-1)\r\n      PART(1,1) = SX*C(2,2) + SYZ*(C(2,3) + C(3,2)) + SZ*C(3,3)\r\n      PART(2,2) = SY*C(3,3) + SZX*(C(3,1) + C(1,3)) + SX*C(1,1)\r\n      PART(3,3) = SZ*C(1,1) + SXY*(C(1,2) + C(2,1)) + SY*C(2,2)\r\n      PART(2,1) =-SX*C(2,1) + SXY*C(3,3) - SYZ*C(1,3) - SZX*C(2,3)\r\n      PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) - SYZ*C(2,1) + SZX*C(2,2)\r\n      PART(1,2) =-SX*C(1,2) + SXY*C(3,3) - SYZ*C(3,1) - SZX*C(3,2)\r\n      PART(3,2) =-SY*C(3,2) - SXY*C(3,1) + SYZ*C(1,1) - SZX*C(1,2)\r\n      PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) - SYZ*C(1,2) + SZX*C(2,2)\r\n      PART(2,3) =-SY*C(2,3) - SXY*C(1,3) + SYZ*C(1,1) - SZX*C(2,1)\r\nC\r\nC     ADD STIFFNESS PARTITION TO ELEMENT MATRIX\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED.\r\nC\r\n      IF (SIL(M)-SIL(N)) 1230,1240,1250\r\n 1230 MZ = SIL(N)\r\n      NZ = SIL(M)\r\n      DIAG = .FALSE.\r\n      GO TO 1260\r\n 1240 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .TRUE.\r\n      GO TO 1260\r\n 1250 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .FALSE.\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n 1260 L = (NZ-1)*3 + 1\r\nC\r\nC     INCREMENT BETWEEN COLUMNS\r\nC\r\n      INC = NGG - L\r\nC\r\nC     FIRST WORD OF COLUMN\r\nC\r\n      L = IK + ((L-1)*L)/2 + (INC+1)*(L-1)\r\nC\r\nC     WORD IN COLUMN FOR THIS ROW\r\nC\r\n      L = L + 3*(MZ-NZ)\r\nC\r\nC     ADD PARTITION\r\nC\r\n      DO 1280 NZ = 1,3\r\n      DO 1270 MZ = 1,3\r\n      IF (DIAG .AND. MZ.LT.NZ) GO TO 1270\r\n      Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT\r\n 1270 CONTINUE\r\n      L   = L + INC\r\n      INC = INC - 1\r\n 1280 CONTINUE\r\n 1300 IF (MGG .LE. 0) GO TO 1400\r\n 1400 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     END OF INTEGRATION LOOPS\r\nC\r\nC\r\nC     LOOK FOR NON-BASIC COORDINATE SYSTEM\r\nC\r\n      DO 2003 I = 1,NGP\r\n      IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005\r\n 2003 CONTINUE\r\n      GO TO 2061\r\nC\r\nC     RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM\r\nC     TO GLOBAL COORDINATES\r\nC\r\nC     FIRST, TRANSFER IT TO OPEN CORE AT IN\r\nC\r\n 2005 K = (IN-1)*2 + 1\r\n      J = NGP*4\r\n      DO 2010 I = 1,J\r\n 2010 GRID(I) = EST(BGPDT+I-1)\r\nC\r\nC     NOW MOVE IT BACK AND REARRANGE IT\r\nC\r\n      DO 2020 I = 1,NGP\r\n      IEST(BGPDT+4*I-4) = IGRID(I)\r\n      DO 2020 J = 1,3\r\n      EST(BGPDT+4*I-4+J) = GRID(NGP+3*I+J-3)\r\n 2020 CONTINUE\r\nC\r\nC     FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES\r\nC\r\n      DO 2025 I = 1,NGP\r\n      J = IN + (I-1)*9\r\n      CALL TRANSD (EST(BGPDT+4*I-4),Z(J))\r\n 2025 CONTINUE\r\nC\r\nC     TRANSFORM STIFFNESS TO GLOBAL COORDINATES\r\nC\r\n      DO 2060 I = 1,NGP\r\nC\r\nC     COLUMN INDICES\r\nC\r\n      K   = (I-1)*3 + 1\r\n      INC = NGG - K + 1\r\n      L   = IK + ((K-1)*K)/2 + INC*(K-1)\r\n      M   = L + INC\r\n      N   = M + INC - 1\r\nC\r\nC     TRANSFORMATION MATRIX INDEX\r\nC\r\n      NZ  = IN + (I-1)*9\r\nC\r\nC     TERMS ON DIAGONAL PARTITION\r\nC\r\n      CALL TKTZTK (TK,Z,NZ,L,M,N)\r\nC\r\nC     OFF-DIAGONAL PARTITIONS\r\nC\r\n      L   = L + 3\r\n      M   = M + 2\r\n      N   = N + 1\r\n      IRP = I + 1\r\n      IF (IRP .GT. NGP) GO TO 2060\r\n      DO 2050 J = IRP,NGP\r\n      NZ  = IN + 9*(J-1)\r\n      DO 2030 K = 1,3\r\n      TK(K,1) = 0.0\r\n      TK(K,2) = 0.0\r\n      TK(K,3) = 0.0\r\n      DO 2030 MZ = 1,3\r\n      TK(K,1) = TK(K,1) + Z(L+MZ-1)*Z(NZ+3*MZ+K-4)\r\n      TK(K,2) = TK(K,2) + Z(M+MZ-1)*Z(NZ+3*MZ+K-4)\r\n      TK(K,3) = TK(K,3) + Z(N+MZ-1)*Z(NZ+3*MZ+K-4)\r\n 2030 CONTINUE\r\n      MZ = IN + 9*(I-1)\r\n      DO 2040 K = 1,3\r\n      Z(L+K-1) = 0.0\r\n      Z(M+K-1) = 0.0\r\n      Z(N+K-1) = 0.0\r\n      DO 2040 II = 1,3\r\n      Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3)\r\n      Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2)\r\n      Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1)\r\n 2040 CONTINUE\r\n      L = L + 3\r\n      M = M + 3\r\n      N = N + 3\r\n 2050 CONTINUE\r\n 2060 CONTINUE\r\nC\r\nC     BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT\r\nC\r\n 2061 DO 2065 I = 1,36\r\n 2065 SK(I,1) = 0.0D0\r\n      I = IGP\r\n      DO 2090 J = 1,3\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n      K = (I-1)*3 + J\r\nC\r\nC     NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION\r\nC\r\n      L = K - 1\r\n      IF (L .EQ. 0) GO TO 2075\r\nC\r\nC     FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION\r\nC\r\n      N   = IK + L\r\n      INC = NGG - 1\r\n      DO 2070 M = 1,L\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N   = N + INC\r\n      INC = INC - 1\r\n 2070 CONTINUE\r\nC\r\nC     FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX\r\nC\r\nC     COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K\r\nC\r\n 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1)\r\nC\r\nC     INSERT THIS COLUMN IN PARTITION\r\nC\r\n      DO 2080 M = K,NGG\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N = N + 1\r\n 2080 CONTINUE\r\n 2090 CONTINUE\r\n      DO 2100 I = 1,NGP\r\n      J = (I-1)*3 + IZ - 1\r\n      DO 2095 M = 1,3\r\n      DO 2095 N = 1,3\r\n      K = J + N + (M-1)*NGG\r\n 2095 SK(N,M) = Z(K)\r\n      CALL DS1B (SK,ISIL(I))\r\n 2100 CONTINUE\r\nC\r\nC     ALL DONE, NO ERRORS\r\nC\r\n      RETURN\r\nC\r\nC\r\n 7100 FORMAT (6A4,I4,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE',\r\n     1       ' ELEMENT MATRIX')\r\n 7300 FORMAT (6A4,'4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ',\r\n     1       'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/dipole.f",
    "content": "      SUBROUTINE DIPOLE(BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\nC\r\nC DIPOLE COMPUTES THE MAGNETIC INTENSITY AT THE POINT (XX,YY,ZZ) DUE\r\nC TO A MAGNETIC DIPOLE MOMENT DEFINED ON AN MDIPOLE CARD STORED IN BUF.\r\nC THE FORMULATION COMES FROM DARRELL NIXONS REPORT 27-23 MARCH 1972\r\nC\r\n      REAL MX,MY,MZ,MIN,MAX,MXA,MYB,MZC\r\n      DIMENSION  BUF(50),IBUF(50)\r\n      DATA FPI/12.566371/\r\nC\r\n      HC1=0.\r\n      HC2=0.\r\n      HC3=0.\r\nC\r\nC ICID IS 0 FOR NOW AND WILL NOT BE USED. COORDS. AND MOMENT\r\nC ARE ASSUMED TO BE IN BASIC COORDS\r\nC\r\n      ICID=IBUF(1)\r\nC\r\nC COORDS OF POINT DIPOLE\r\nC\r\n      CX=BUF(2)\r\n      CY=BUF(3)\r\n      CZ=BUF(4)\r\n      MX=BUF(5)\r\n      MY=BUF(6)\r\n      MZ=BUF(7)\r\n      MIN=BUF(8)\r\n      MAX=BUF(9)\r\nC\r\nC H WILL BE COMPUTED ONLY IF DISTANCE FROM (CX,CY,CZ) TO (XX,YY,ZZ) IS\r\nC BETWEEN MIN AND MAX- IF MAX IS 0, COMPUTE FOR ALL POINTS GREATER THAN\r\nC MIN\r\nC\r\n      RMR1=SQRT((XX-CX)**2+(YY-CY)**2+(ZZ-CZ)**2)\r\n      IF(MIN.LE.1.E-6)GO TO 5\r\n      IF(RMR1.LT.MIN)GO TO 20\r\n    5 IF(MAX.LE.1.E-6)GO TO 10\r\n      IF(RMR1.GT.MAX)GO TO 20\r\nC\r\n   10 MXA=3.*MX*(XX-CX)\r\n      MYB=3.*MY*(YY-CY)\r\n      MZC=3.*MZ*(ZZ-CZ)\r\nC\r\n      R3=RMR1**3\r\n      R5=R3*RMR1**2\r\n      XNUM=(MXA+MYB+MZC)/R5\r\nC\r\n      HC1=-MX/R3+XNUM*(XX-CX)\r\n      HC1=HC1/FPI\r\nC\r\n      HC2=-MY/R3+XNUM*(YY-CY)\r\n      HC2=HC2/FPI\r\nC\r\n      HC3=-MZ/R3+XNUM*(ZZ-CZ)\r\n      HC3=HC3/FPI\r\nC\r\n   20 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dis2d8.f",
    "content": "      SUBROUTINE DIS2D8\r\nC\r\nC     2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL ELEMENT\r\nC     DIFFERENTIAL STIFFNESS MATRIX ROUTINE\r\nC\r\n      REAL             KX,KY\r\n      DOUBLE PRECISION KIJ,G,B,XI,ETA,DNXI,DNETA,XX,TB,DNL,PT,H,XJB,\r\n     1                 XXJB,DETERM,DNC,GSUBE,DUMARG,\r\n     2                 BT,TEMPAR,TEMP,DNX,DNY,SAVE,TSAVE,\r\n     3                 KWD(36),CID(18),CJD(18),KMULT(18),DHH,\r\n     4                 THICK,PSTMUL(9),PREMUL(9),E1T\r\n      DIMENSION        SIG(3),ALPHAS(3),ST(3),SEMP(9),TTB(9),STB(9),\r\n     1                 BB(72),DB(72),S(6),R(9),SE1T(6),DN(8),\r\n     2                 G(9),QQ(15),XI(8),ETA(8),TB(9),XY1(3),XY2(3),\r\n     3                 B(12),BT(12),ECPT(1),TEMP(9),TEMPAR(1),DNX(1),\r\n     4                 DNY(1),DNXI(1),DNETA(1),SAVE(72),TSAVE(72),\r\n     5                 VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(9),\r\n     6                 IWS(2,3)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1AET/  NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1,\r\n     1                 ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4,\r\n     2                 ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7,\r\n     3                 ISYS8,X8,Y8,Z8,TTEMP,EDT,ISETNO,TGRID(8),DISP(24)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 TREF,GE,KX,KY,C\r\n      COMMON /DS1ADP/  KIJ(36),XX(16),DNC(16),DNL(16),XXJB(2,2),XJB(4),\r\n     1                 PT(3),H(3),G,B,BT,TB,DETERM,GSUBE,DUMARG,TSAVE\r\n      EQUIVALENCE      (ALPHAS(1),ALPHA1),\r\n     1                 (ECPT(1),NECPT(1)),(TEMP(1),B(1)),\r\n     2                 (DNC(1),DNXI(1)),(DNC(9),DNETA(1)),\r\n     3                 (DNL(1),DNX(1)),(DNL(9),DNY(1)),(QQ(1),G11),\r\n     4                 (TEMPAR(1),BT(1)),(XY1(1),X1),(XY2(1),X2)\r\n      DATA     XI   /  -1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0,-1.D0/\r\n      DATA     ETA  /  -1.D0,-1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0/\r\nC\r\nC     ECPT LIST\r\nC                                      IN\r\nC                                      THIS\r\nC     ECPT       DESCRIPTION           ROUTINE        TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID            NECPT(1)       INTEGER\r\nC     ECPT( 2) = GRID POINT 1          NGRID(1)       INTEGER\r\nC     ECPT( 3) = GRID POINT 2          NGRID(2)       INTEGER\r\nC     ECPT( 4) = GRID POINT 3          NGRID(3)       INTEGER\r\nC     ECPT( 5) = GRID POINT 4          NGRID(4)       INTEGER\r\nC     ECPT( 6) = GRID POINT 5          NGRID(5)       INTEGER\r\nC     ECPT( 7) = GRID POINT 6          NGRID(6)       INTEGER\r\nC     ECPT( 8) = GRID POINT 7          NGRID(7)       INTEGER\r\nC     ECPT( 9) = GRID POINT 8          NGRID(8)       INTEGER\r\nC     ECPT(10) = COORD SYS ID-STRESS   ID1            INTEGER\r\nC     ECPT(11) = ANIS. MATERIAL ANGLE  TH             REAL\r\nC     ECPT(12) = MATERIAL ID           MATID1         INTEGER\r\nC     ECPT(13) = THICKNESS             T              REAL\r\nC     ECPT(14) = COORD SYS ID 1        ISYS1          INTEGER\r\nC     ECPT(15) = X1                    X1             REAL\r\nC     ECPT(16) = Y1                    Y1             REAL\r\nC     ECPT(17) = Z1                    Z1             REAL\r\nC     ECPT(18) = COORD SYS ID 2        ISYS2          INTEGER\r\nC     ECPT(19) = X2                    X2             REAL\r\nC     ECPT(20) = Y2                    Y2             REAL\r\nC     ECPT(21) = Z2                    Z2             REAL\r\nC     ECPT(22) = COORD SYS ID 3        ISYS3          INTEGER\r\nC     ECPT(23) = X3                    X3             REAL\r\nC     ECPT(24) = Y3                    Y3             REAL\r\nC     ECPT(25) = Z3                    Z3             REAL\r\nC     ECPT(26) = COORD SYS ID 4        ISYS4          INTEGER\r\nC     ECPT(27) = X4                    X4             REAL\r\nC     ECPT(28) = Y4                    Y4             REAL\r\nC     ECPT(29) = Z4                    Z4             REAL\r\nC     ECPT(30) = COORD SYS ID 5        ISYS5          INTEGER\r\nC     ECPT(31) = X5                    X5             REAL\r\nC     ECPT(32) = Y5                    Y5             REAL\r\nC     ECPT(33) = Z5                    Z5             REAL\r\nC     ECPT(34) = COORD SYS ID 6        ISYS6          INTEGER\r\nC     ECPT(35) = X6                    XL             REAL\r\nC     ECPT(36) = Y6                    Y6             REAL\r\nC     ECPT(37) = Z6                    Z6             REAL\r\nC     ECPT(38) = COORD SYS ID 7        ISYS7          INTEGER\r\nC     ECPT(39) = X7                    X7             REAL\r\nC     ECPT(40) = Y7                    Y7             REAL\r\nC     ECPT(41) = Z7                    Z7             REAL\r\nC     ECPT(42) = COORD SYS ID 8        ISYS8          INTEGER\r\nC     ECPT(43) = X8                    X8             REAL\r\nC     ECPT(44) = Y8                    Y8             REAL\r\nC     ECPT(45) = Z8                    Z8             REAL\r\nC     ECPT(46) = ELEMENT TEMP          TTEMP          REAL\r\nC     ECPT(47) = 0.                    EDT            REAL\r\nC     ECPT(48) = TEMPERATURE SET       ISETNO         INTEGER\r\nC     ECPT(49) = *\r\nC     ECPT(. ) = *  GRID POINT TEMPERATURES\r\nC     ECPT(56) = *\r\nC     ECPT(57) = *\r\nC     ECPT(. ) = *  TRANSLATIONAL DOF-S OF GRIDS FOR THIS ELEMENT\r\nC     ECPT(80) = *\r\nC\r\nC\r\nC     TEST FOR PIVOT POINT\r\nC\r\n      DO 10 KK = 1,8\r\n      IF (NGRID(KK) .EQ. NPVT) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     IF FALL HERE NO ELEMENT GRID POINT IS THE PIVOT POINT\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC     UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2\r\nC\r\n   20 DO 30 I = 1,3\r\n      VECI(I) = XY2(I) - XY1(I)\r\n   30 CONTINUE\r\n      VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (VECIL .EQ. 0.0) GO TO 60\r\n      VECI(1) = VECI(1)/VECIL\r\n      VECI(2) = VECI(2)/VECIL\r\n      VECI(3) = VECI(3)/VECIL\r\nC\r\nC     K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO\r\nC     GRID\r\nC\r\n      VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1)\r\n      VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1)\r\n      VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1)\r\n      VECKL=SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (VECKL .EQ. 0.0) GO TO 60\r\n      VECK(1) = VECK(1)/VECKL\r\n      VECK(2) = VECK(2)/VECKL\r\n      VECK(3) = VECK(3)/VECKL\r\nC\r\nC     J VECTOR IS OBTAINED BY CROSSING K INTO I\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\nC\r\n      E1T(1) = VECI(1)\r\n      E1T(2) = VECI(2)\r\n      E1T(3) = VECI(3)\r\n      E1T(4) = VECJ(1)\r\n      E1T(5) = VECJ(2)\r\n      E1T(6) = VECJ(3)\r\n      E1T(7) = VECK(1)\r\n      E1T(8) = VECK(2)\r\n      E1T(9) = VECK(3)\r\n      DO 40 I = 1,6\r\n   40 SE1T(I) = E1T(I)\r\nC\r\nC     STORE ELEMENT COORDS FOR GRIDS 1 AND 2\r\nC\r\n      XX(1) = 0.\r\n      XX(2) = 0.\r\n      XX(3) = VECIL\r\n      XX(4) = 0.\r\nC\r\nC     FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR\r\nC     FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD.\r\nC     IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO\r\nC     THE GRID POINT.\r\nC\r\n      DO 50 I = 3,8\r\n      IXX  = 2*I - 1\r\n      ISUB = 4*I + 11\r\n      VEC(1)  = ECPT(ISUB  ) - X1\r\n      VEC(2)  = ECPT(ISUB+1) - Y1\r\n      VEC(3)  = ECPT(ISUB+2) - Z1\r\n      XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3)\r\n      VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2)\r\n      VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3)\r\n      VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1)\r\n      XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n   50 CONTINUE\r\n      GO TO 70\r\nC\r\nC     INAPPROPRIATE GEOMETRY\r\nC\r\n   60 CALL MESAGE (30,31,ECPT(1))\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n   70 TTH   = TH*3.1415927/180.\r\n      SINTH = SIN(TTH)\r\n      COSTH = COS(TTH)\r\n      ELTEMP= TTEMP\r\n      INFLAG= 2\r\n      MATID = MATID1\r\n      CALL MAT (ECPT(1))\r\n      DO 80 I = 1,3\r\n   80 G(I)  = QQ(I)\r\n      G(4)  = QQ(2)\r\n      G(5)  = QQ(4)\r\n      G(6)  = QQ(5)\r\n      G(7)  = QQ(3)\r\n      G(8)  = QQ(5)\r\n      G(9)  = QQ(6)\r\n      THICK = T\r\n      DO 90 I = 1,9\r\n   90 R(I)  = G(I)\r\n      IF (ISETNO .NE. 0) CALL GMMATS (R,3,3,0,ALPHAS,3,1,0,ST)\r\nC\r\nC     ZERO OUT THE KIJ AND SAVE MATRICES\r\nC\r\n      DO 100 I = 1,36\r\n      KWD(I) = 0.D0\r\n  100 KIJ(I) = 0.D0\r\n      DO 110 I = 1,72\r\n  110 SAVE(I) = 0.D0\r\nC\r\n      PT(1) =-0.57735027D0\r\n      PT(2) =-PT(1)\r\n      H(1)  = 1.D0\r\n      H(2)  = 1.D0\r\n      IF (ID1 .EQ. 2) GO TO 120\r\n      PT(1) =-0.77459667D0\r\n      PT(2) = 0.D0\r\n      PT(3) =-PT(1)\r\n      H(1)  = 5.D0/9.D0\r\n      H(2)  = 8.D0/9.D0\r\n      H(3)  = H(1)\r\nC\r\nC     2 OR 3 QUADRATURE POINTS\r\nC\r\n  120 DO 410 III = 1,ID1\r\n      DO 410 JJJ = 1,ID1\r\nC\r\nC     COMPUTE GAUSS POINT STRESSES\r\nC\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 130 N = 1,4\r\n      DNXI(N)  = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))*\r\n     1           (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))*\r\n     1           (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N))\r\n  130 CONTINUE\r\n      DO 140 N = 5,7,2\r\nC\r\n      DNXI(N)  = -PT(III)*(1.D0+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N)\r\n  140 CONTINUE\r\nC\r\n      DO 150 N = 6,8,2\r\n      DNXI(N)  = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ))\r\n      DNETA(N) = -PT(JJJ)*(1.D0+PT(III)*XI(N))\r\n  150 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 160 I = 1,2\r\n      DO 160 J = 1,2\r\n      K = K + 1\r\n  160 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1))\r\n      DHH = DETERM*H(III)*H(JJJ)\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X AND Y\r\nC\r\n      K = 0\r\n      DO 170 I = 1,2\r\n      DO 170 J = 1,2\r\n      K = K + 1\r\n  170 XJB(K) = XXJB(I,J)\r\n      CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\n      DO 180 I = 1,72\r\n  180 BB(I) = 0.\r\nC\r\nC     SET UP INDICATOR FOR GRID POINT TEMPERATURES\r\nC\r\n      IDTEMP = 0\r\n      DO 190 I = 1,8\r\n      IF (TGRID(I) .NE. 0.) GO TO 200\r\n  190 CONTINUE\r\n      GO TO 210\r\n  200 IDTEMP = 1\r\nC\r\n  210 DO 270 N = 1,8\r\nC\r\n      DO 220 I = 1,9\r\n  220 SEMP(I) = 0.\r\n      DO 230 I = 1,6\r\n  230 S(I) = 0.\r\n      S(1) = DNX(N)\r\n      S(4) = DNY(N)\r\n      S(5) = DNY(N)\r\n      S(6) = DNX(N)\r\nC\r\nC     TRANSFORM TO ELEMENT COORDINATES\r\nC\r\n      IF (NECPT(4*N+10) .EQ. 0) GO TO 240\r\n      CALL TRANSS (NECPT(4*N+10),TTB)\r\n      CALL GMMATS (SE1T,2,3,0,TTB,3,3,0,STB)\r\n      GO TO 260\r\n  240 DO 250 I = 1,6\r\n  250 STB(I) = SE1T(I)\r\n  260 CALL GMMATS (S,3,2,0,STB,2,3,0,SEMP(1))\r\n      N3 = 3*N\r\n      BB(N3- 2) = SEMP(1)\r\n      BB(N3- 1) = SEMP(2)\r\n      BB(N3   ) = SEMP(3)\r\n      BB(N3+22) = SEMP(4)\r\n      BB(N3+23) = SEMP(5)\r\n      BB(N3+24) = SEMP(6)\r\n      BB(N3+46) = SEMP(7)\r\n      BB(N3+47) = SEMP(8)\r\n      BB(N3+48) = SEMP(9)\r\n  270 CONTINUE\r\nC\r\nC     BRING IN G MATRIX\r\nC\r\n      CALL GMMATS (R,3,3,0,BB,3,24,0,DB)\r\nC\r\nC     COMPUTE STRESSES\r\nC\r\n      CALL GMMATS (DB,3,24,0,DISP,24,1,0,SIG)\r\nC\r\nC\r\nC     COMPUTE GAUSS POINT  TEMPERATURES\r\nC\r\n      IF (ISETNO .EQ. 0) GO TO 350\r\n      IF (IDTEMP .EQ. 1) GO TO 280\r\n      RGTEMP = ELTEMP - TREF\r\n      GO TO 330\r\nC\r\nC     ALL TEMPERATURES ARE DEFAULT VALUE\r\nC\r\n  280 DO 290 N = 1,4\r\n      DN(N) = .25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N))\r\n     1        *(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.)\r\n  290 CONTINUE\r\n      DO 300 N = 5,7,2\r\n      DN(N) = .5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N))\r\n  300 CONTINUE\r\n      DO 310 N = 6,8,2\r\n      DN(N) = .5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ))\r\n  310 CONTINUE\r\n      GSTEMP = 0.\r\n      DO 320 N = 1,8\r\n      GSTEMP = GSTEMP + DN(N)*TGRID(N)\r\n  320 CONTINUE\r\n      RGTEMP = GSTEMP - TREF\r\n  330 DO 340 I = 1,3\r\n      SIG(I) = SIG(I) - ST(I)*RGTEMP\r\n  340 CONTINUE\r\nC\r\n  350 CONTINUE\r\nC\r\nC     FORM KWD MATRIX\r\nC\r\n      KWD( 1) = SIG(2)\r\n      KWD( 2) =-SIG(3)\r\n      KWD( 7) =-SIG(3)\r\n      KWD( 8) = SIG(1)\r\n      KWD(15) = SIG(1) + SIG(2)\r\n      KWD(16) =-SIG(3)\r\n      KWD(17) = SIG(3)\r\n      KWD(18) = SIG(1) - SIG(2)\r\n      KWD(21) =-SIG(3)\r\n      KWD(27) = SIG(3)\r\n      KWD(33) = SIG(1) - SIG(2)\r\nC\r\nC     FORM CID FOR I = NPVT\r\nC\r\n      DO 360 I = 1,18\r\n  360 CID( I) = 0.D0\r\n      CID( 3) = DNY(KK)\r\n      CID( 6) =-DNX(KK)\r\n      CID( 7) =-.5*DNY(KK)\r\n      CID( 8) = .5*DNX(KK)\r\n      CID(10) = DNX(KK)\r\n      CID(14) = DNY(KK)\r\n      CID(16) =.5*DNY(KK)\r\n      CID(17) =.5*DNX(KK)\r\nC\r\n      CALL GMMATD (CID,6,3,1,KWD,6,6,0,KMULT)\r\nC\r\nC     LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT\r\nC     PIVOT POINT\r\nC\r\n      DO 400 N = 1,8\r\nC\r\n      DO 370 I = 1,18\r\n  370 CJD(I) = 0.D0\r\nC\r\n      CJD( 3) = DNY(N)\r\n      CJD( 6) =-DNX(N)\r\n      CJD( 7) =-.5*DNY(N)\r\n      CJD( 8) = .5*DNX(N)\r\n      CJD(10) = DNX(N)\r\n      CJD(14) = DNY(N)\r\n      CJD(16) =.5*DNY(N)\r\n      CJD(17) =.5*DNX(N)\r\nC\r\n      CALL GMMATD (KMULT,3,6,0,CJD,6,3,0,TEMPAR(1))\r\nC\r\nC     THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS\r\nC\r\n      DO 380 I = 1,9\r\n      TEMPAR(I) = TEMPAR(I)*DHH\r\n  380 CONTINUE\r\nC\r\nC     ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS\r\nC\r\n      LL = 9*(N-1)\r\n      DO 390 I = 1,9\r\n      L = LL + I\r\n      SAVE(L) = SAVE(L) + TEMPAR(I)\r\n  390 CONTINUE\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  400 CONTINUE\r\nC\r\nC     LOOP FOR MORE GAUSS POINTS\r\nC\r\n  410 CONTINUE\r\nC\r\nC     CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS\r\nC\r\n      ISUB = 4*KK + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 420\r\nC\r\nC     ELEMENT TO GLOBAL\r\nC\r\n      CALL TRANSD (NECPT(ISUB),TB)\r\n      CALL GMMATD (E1T,3,3,0,TB,3,3,0,PREMUL)\r\n      GO TO 440\r\n  420 DO 430 I = 1,9\r\n      PREMUL(I) = E1T(I)\r\n  430 CONTINUE\r\n  440 DO 460 N = 1,8\r\n      LL = 9*N - 8\r\n      CALL GMMATD (PREMUL,3,3,1,SAVE(LL),3,3,0,TEMP)\r\nC\r\nC     STORE THE 3 X 3 IN TSAVE\r\nC\r\n      DO 450 I = 1,9\r\n      L = 9*N + I - 9\r\n  450 TSAVE(L) = TEMP(I)\r\nC\r\n  460 CONTINUE\r\nC\r\nC     NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS\r\nC\r\n      DO 500 N = 1,8\r\n      ISUB = 4*N + 10\r\n      LL = 9*N - 8\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 470\r\nC\r\nC     GLOBAL TO ELEMENT\r\nC\r\n      CALL TRANSD (NECPT(ISUB),TB)\r\n      CALL GMMATD (E1T,3,3,0,TB,3,3,0,PSTMUL)\r\n      GO TO 490\r\n  470 DO 480 I = 1,9\r\n      PSTMUL(I) = E1T(I)\r\n  480 CONTINUE\r\nC\r\nC     POST-MULTIPLY\r\nC\r\n  490 CALL GMMATD (TSAVE(LL),3,3,0,PSTMUL,3,3,0,TEMP)\r\nC\r\nC     FILL OUT THE 6 X 6 PARTITION\r\nC\r\n      KIJ( 1) = TEMP(1)*THICK\r\n      KIJ( 2) = TEMP(2)*THICK\r\n      KIJ( 3) = TEMP(3)*THICK\r\n      KIJ( 7) = TEMP(4)*THICK\r\n      KIJ( 8) = TEMP(5)*THICK\r\n      KIJ( 9) = TEMP(6)*THICK\r\n      KIJ(13) = TEMP(7)*THICK\r\n      KIJ(14) = TEMP(8)*THICK\r\n      KIJ(15) = TEMP(9)*THICK\r\nC\r\nC     INSERT INTO THE OVERALL STIFFNESS MATRIX\r\nC\r\n      CALL DS1B (KIJ,NECPT(N+1))\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  500 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/displa.f",
    "content": "      SUBROUTINE DISPLA (GPLST,X,S,U,PEN,DEFORM,LABEL,PT,B1)\r\nC\r\n      INTEGER         GPLST(1),PEN,DEFORM,B1,SCR1,ECT2,AXIS,DAXIS,ELID,\r\n     1                GPTS(12),GP,COLOR,OFFSET\r\n      REAL            MAXDEF,X(3,1),U(3,1),S(2,1)\r\n      DIMENSION       SIGN(3),A(4),PT(8),XX(4),YY(4),LABEL(50),MVECT(3),\r\n     1                MSG(13)\r\n      COMMON /BLANK / SKIP(5),NGPSET,SK(6),ECT2,SKP(7),MERR,SKI(6),SCR1\r\n      COMMON /XXPARM/ SKIP1(39),MAXDEF,DEFMAX,AXIS(3),DAXIS(3),\r\n     1                SKIP2(110),NCNTR,CNTR(50),ICNTVL,SKPPAR(6),\r\n     2                SK18(18),COLOR\r\n      COMMON /PLTDAT/ SKIP3(2),XMIN\r\n      DATA    NMSG  / 13   /,\r\n     1        MSG   / 4H(33X, 4H,41H, 4H*** , 4HINCO, 4HMPLE, 4HTE P,\r\n     2                4HLOT , 4HDUE , 4HTO I, 4HNPUT, 4H OR , 4HFILE,\r\n     3                4H.)  /\r\n      DATA    MVECT / 3*0   /,        KBAR,KT3,KQ4 / 2HBR,2HT3,2HQ4 /\r\nC\r\nC\r\n      CALL GOPEN (SCR1,GPLST(B1),1)\r\n      IF (ABS(DEFMAX) .GT. 1.E-8) GO TO 5\r\n      CALL WRTPRT (MERR,MVECT,MSG,NMSG)\r\n      GO TO 120\r\nC\r\n    5 DO 10 I = 1,3\r\n      SIGN(I) = DAXIS(I)/AXIS(I)\r\n   10 CONTINUE\r\n      DO 20 GP = 1,NGPSET\r\n      DO 15 I  = 1,3\r\n      J  = AXIS(I)\r\n      IJ = IABS(J)\r\n      A(IJ) = SIGN(IJ)*U(I,GP)\r\n   15 CONTINUE\r\n      DMAX = MAXDEF\r\n      IF (DMAX .LT. .00001) DMAX = 1.0\r\n      DO 16 I = 1,3\r\n      U(I,GP) = A(I)*(DEFMAX/DMAX)\r\n   16 CONTINUE\r\n   20 CONTINUE\r\n      INDEX = ICNTVL - 9\r\n      NCNTR = MIN0(NCNTR,50)\r\n      IF (CNTR(1) .NE. CNTR(2)) GO TO 40\r\n      IF (INDEX .LE. 3) CONMIN = U(INDEX,1)\r\n      IF (INDEX .GT. 3) CONMIN = SQRT(U(1,1)**2 + U(2,1)**2 + U(3,1)**2)\r\n      CONMAX = CONMIN\r\n      DO 30 GP = 1,NGPSET\r\n      IF (INDEX .GT. 3) GO TO 25\r\n      CONMIN = AMIN1(CONMIN,U(INDEX,GP))\r\n      CONMAX = AMAX1(CONMAX,U(INDEX,GP))\r\n      GO TO 30\r\n   25 D = SQRT(U(1,GP)**2 + U(2,GP)**2 + U(3,GP)**2)\r\n      CONMIN = AMIN1(CONMIN,D)\r\n      CONMAX = AMAX1(CONMAX,D)\r\n   30 CONTINUE\r\n      DELTA = (CONMAX-CONMIN)/FLOAT(NCNTR-1)\r\n      CNTR(1) = CONMIN\r\n      J = NCNTR - 1\r\n      DO 35 I = 2,J\r\n      CNTR(I) = CNTR(I-1) + DELTA\r\n   35 CONTINUE\r\n      CNTR(NCNTR) = CONMAX\r\n   40 CALL LINE (0.,0.,0.,0.,PEN,+1)\r\n      DO 45 I = 1,NCNTR\r\n      LABEL(I) = 3\r\n   45 CONTINUE\r\n   50 CALL READ  (*100,*100,ECT2,ITYPE,1,0,M)\r\n      OFFSET = 0\r\n      IF (ITYPE .EQ. KBAR) OFFSET = 6\r\n      IF (ITYPE.EQ.KT3 .OR. ITYPE.EQ.KQ4) OFFSET = 1\r\n      CALL FREAD (ECT2,NGPPE,1,0)\r\n   55 CALL FREAD (ECT2,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO 50\r\n      CALL FREAD (ECT2,0,-1,0)\r\n      CALL FREAD (ECT2,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (ECT2,0,-OFFSET,0)\r\n      IF (NGPPE .LE. 2) GO TO 55\r\n      IJ = 1\r\n      IK = 3\r\n   60 J  = 0\r\n      DO 70 I = IJ,IK\r\n      J  = J + 1\r\n      IG = GPTS(I)\r\n      IG = IABS(GPLST(IG))\r\n      IF (INDEX .LE. 3) A(J) = U(INDEX,IG)\r\n      IF (INDEX .GT. 3) A(J) = SQRT(U(1,IG)**2 +U(2,IG)**2 +U(3,IG)**2)\r\n      IF (DEFORM .NE. 0) GO TO 65\r\n      PT(2*J-1) = X(2,IG)\r\n      PT(2*J  ) = X(3,IG)\r\n      GO TO 70\r\n   65 PT(2*J-1) = S(1,IG)\r\n      PT(2*J  ) = S(2,IG)\r\n   70 CONTINUE\r\n      PT(7) = PT(1)\r\n      PT(8) = PT(2)\r\n      A(4)  = A(1)\r\n      DO 90 I = 1,NCNTR\r\n      IF (COLOR .EQ. 0) GO TO 75\r\n      J = IABS(COLOR)\r\n      IF (NCNTR .LE. J) PEN = I*J/NCNTR\r\n      IF (NCNTR .GT. J) PEN = 1 + I/(NCNTR/J)\r\n      IF (PEN   .GT. J) PEN = J\r\n   75 CONTINUE\r\n      DO 80 J = 1,3\r\n      XX(J) = XMIN - 1.0\r\n      D = A(J) - A(J+1)\r\n      IF (ABS(A(J  )-CNTR(I)).GT.ABS(D) .OR.\r\n     1    ABS(A(J+1)-CNTR(I)).GT.ABS(D)) GO TO 80\r\n      IF (D .EQ. 0.0) D = 1.0\r\n      XX(J) = PT(2*J-1) + (PT(2*J+1)-PT(2*J-1))*(A(J)-CNTR(I))/D\r\n      YY(J) = PT(2*J  ) + (PT(2*J+2)-PT(2*J  ))*(A(J)-CNTR(I))/D\r\n   80 CONTINUE\r\n      XX(4) = XX(1)\r\n      YY(4) = YY(1)\r\n      DO 85 J = 1,3\r\n      IF (XX(J).LT.XMIN .OR. XX(J+1).LT.XMIN) GO TO 85\r\n      CALL LINE (XX(J),YY(J),XX(J+1),YY(J+1),PEN,0)\r\n      LABEL(I) = LABEL(I) + 1\r\n      IF (LABEL(I) .NE. 4) GO TO 85\r\n      LABEL(I) = 0\r\n      CALL WRITE (SCR1,I,1,0)\r\n      CALL WRITE (SCR1,XX(J),1,0)\r\n      CALL WRITE (SCR1,YY(J),1,0)\r\n   85 CONTINUE\r\n   90 CONTINUE\r\n      IF (NGPPE.EQ.3 .OR. IJ.EQ.3) GO TO 55\r\n      GPTS(NGPPE+1) = GPTS(1)\r\n      IJ = 3\r\n      IK = 5\r\n      GO TO 60\r\n  100 CALL BCKREC (ECT2)\r\n      DO 115 GP = 1,NGPSET\r\n      DO 105 I  = 1,3\r\n      J  = AXIS(I)\r\n      IJ = IABS(J)\r\n      A(I) = SIGN(I)*U(IJ,GP)\r\n  105 CONTINUE\r\n      DO 110 I = 1,3\r\n      U(I,GP) = A(I)*(DMAX/DEFMAX)\r\n  110 CONTINUE\r\n  115 CONTINUE\r\n  120 CALL CLOSE (SCR1,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dist.f",
    "content": "      SUBROUTINE DIST (IDEG,HIST,MEDIAN,MODD)\r\nC\r\nC     COMPUTE THE DISTRIBUTION OF NODAL DEGREES WITH MEDIAN AND MODE\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\n      INTEGER         IDEG(1),  HIST(1)\r\n      COMMON /SYSTEM/ ISYS,     NOUT\r\n      COMMON /BANDS / NN,       MM\r\nC\r\nC     IDEG(I) = DEGREE OF NODE I\r\nC     HIST(I) = NUMBER OF NODES OF DEGREE I\r\nC\r\nC     COMPUTE HISTOGRAM.\r\nC\r\n      MM1 = MM + 1\r\n      DO 10 I = 1,MM1\r\n   10 HIST(I) = 0\r\n      DO 20 I = 1,NN\r\n      K = IDEG(I) + 1\r\n   20 HIST(K) = HIST(K) + 1\r\nC\r\nC     COMPUTE MODE (MODD).\r\nC\r\n      MODD = 0\r\n      MAX  = 0\r\n      DO 30 I = 1,MM1\r\n      K = HIST(I)\r\n      IF (K .LE. MAX) GO TO 30\r\n      MAX  = K\r\n      MODD = I - 1\r\n   30 CONTINUE\r\nC\r\nC     COMPUTE CUMULATIVE DISTRIBUTION, AND MEDIAN.\r\nC\r\n      DO 40 I = 2,MM1\r\n   40 HIST(I) = HIST(I) + HIST(I-1)\r\n      NN2 = NN/2\r\n      DO 50 I = 1,MM1\r\n      IF (HIST(I) .GT. NN2) GO TO 60\r\n   50 CONTINUE\r\n   60 MEDIAN = I - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dk100.f",
    "content": "      DOUBLE PRECISION FUNCTION DK100(I,A,B,M,N,X)\r\n      DOUBLE PRECISION A, B, X, F100, CAPX, XX, AN1, AN2, AMN2F\r\n      DOUBLE PRECISION  AN1P1, S, SF, AMN2SF, AM1F, AN1F\r\n      DIMENSION  X(1)\r\n      F100 = 0.0D0\r\n      CAPX = A + B * X(I)\r\n      XX = X(I)\r\n      N1 = M + N - 2\r\n      N2 = M - 1\r\n      N3 = N1 + 1\r\n      AN1 = N1\r\n      AN2 = N2\r\n      NFAC = N1\r\n      ASSIGN 5 TO IRET\r\n      GO TO 1000\r\n    5 AMN2F = KFAC\r\n      AN1P1 = AN1 + 1.0D0\r\n      IS = 0\r\n      S = 0.0D0\r\n      SF = 1.0D0\r\n      AMN2SF = AMN2F\r\n      GO TO 50\r\n   10 IS = IS + 1\r\n      S = IS\r\n      SF = SF * S\r\n      AMN2SF = AMN2SF / (AN1P1 - S)\r\n   50 CONTINUE\r\n      N4 = N2 - IS\r\n      IF (N4 .EQ. 0) GO TO 100\r\n      F100 = F100 + AMN2F * (CAPX ** N4) *((-B)** IS) / (AMN2SF * SF\r\n     1            * (AN2 - S) * (XX ** N4))\r\n      GO TO 200\r\n  100 CONTINUE\r\n      NFAC = N2\r\n      ASSIGN 110 TO IRET\r\n      GO TO 1000\r\n  110 AM1F = KFAC\r\n      NFAC = N-1\r\n      ASSIGN 120 TO IRET\r\n      GO TO 1000\r\n  120 AN1F = KFAC\r\n      F100 = F100 + AMN2F *((-B)** N2) *DLOG(DABS(CAPX/XX))\r\n     1            / (AM1F * AN1F)\r\n  200 CONTINUE\r\n      IF (IS .LT. N1) GO TO 10\r\n      F100 =  -F100 / (A ** N3)\r\n       DK100  = F100\r\n      RETURN\r\n 1000 KFAC = 1\r\n      IF(NFAC.LT.2) GO TO 1020\r\n      DO 1010 LFAC=2,NFAC\r\n      KFAC=KFAC*LFAC\r\n 1010 CONTINUE\r\n 1020 GO TO IRET,(5,110,120)\r\n      END\r\n"
  },
  {
    "path": "mis/dk211.f",
    "content": "      DOUBLE PRECISION FUNCTION DK211(I,A,B,X)\r\n      DOUBLE PRECISION F6211, A, B, X, XX, C1, C2, AAJ, C3\r\n      DIMENSION  X(1)\r\n      XX = X(I)\r\n      IF ( (B * XX) ** 2 - A ** 2 ) 100,1,200\r\n    1 CONTINUE\r\n      IF (A .NE. B * XX) GO TO 50\r\n      F6211 = 0.5D0 * (DLOG (DABS(2.0D0 * B * XX)) ) **2\r\n      DK211 = F6211\r\n      RETURN\r\n   50 CONTINUE\r\n      F6211 = 0.0D0\r\n      DK211 = F6211\r\n      RETURN\r\n  100 CONTINUE\r\n      F6211 = DLOG(DABS(A))* DLOG(DABS(XX))\r\n      C1 =-B * XX / A\r\n      C2 = 1.0D0\r\n      J = 0\r\n  110 J = J + 1\r\n      AAJ = J\r\n      C2 = C2 * C1\r\n      C3 = C2 / (AAJ ** 2)\r\n      F6211 = F6211 - C3\r\n      IF(DABS(C3) .GT. 0.1D-5)   GO TO 110\r\n      DK211 = F6211\r\n      RETURN\r\n  200 CONTINUE\r\n      F6211 = (DLOG(DABS(B* XX)) ** 2) / 2.0D0\r\n      C1 =-A / (B * XX)\r\n      C2 = 1.0D0\r\n      J = 0\r\n  210 J = J + 1\r\n      AAJ = J\r\n      C2 = C2 * C1\r\n      C3 = C2 / (AAJ ** 2)\r\n      F6211 = F6211 + C3\r\n      IF(DABS(C3) .GT. 0.1D-5)   GO TO 210\r\n      DK211 = F6211\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dk89.f",
    "content": "      DOUBLE PRECISION FUNCTION DK89(I,A,B,M,N,X)\r\n      DOUBLE PRECISION F89, A, B, X, CAPX, AMF, AN1, AN2, S, SF, AMMSF\r\n      DOUBLE PRECISION AMN1F, ANM1F\r\n      DIMENSION X(1)\r\n      F89 = 0.0D0\r\n      CAPX = A + B * X(I)\r\n      NFAC = M\r\n      ASSIGN 5 TO IRET\r\n      GO TO 1000\r\n    5 AMF = KFAC\r\n      N1 = M + 1\r\n      N2 = N1 - N\r\n      AN1 = N1\r\n      AN2 = N2\r\n      IS = 0\r\n      S = 0.0D0\r\n      SF = 1.0D0\r\n      AMMSF = AMF\r\n      GO TO 50\r\n   10 IS = IS + 1\r\n      S = IS\r\n      SF = SF * S\r\n      AMMSF = AMMSF / (AN1 - S)\r\n   50 CONTINUE\r\n      N3 = N2 - IS\r\n      IF (N3 .EQ. 0) GO TO 100\r\n      F89 = F89 + AMF *((-A)** IS) * (CAPX ** N3) / (AMMSF * SF *\r\n     1            (AN2 - S))\r\n      GO TO 200\r\n  100 CONTINUE\r\n      NFAC = N2\r\n      ASSIGN 110 TO IRET\r\n      GO TO 1000\r\n  110 AMN1F = KFAC\r\n      NFAC = N-1\r\n      ASSIGN 120 TO IRET\r\n      GO TO 1000\r\n  120 ANM1F = KFAC\r\n      F89 = F89 + AMF *((-A)** N2) *DLOG(DABS(CAPX)) / (AMN1F * ANM1F)\r\n  200 IF (IS .LT. M) GO TO 10\r\n      IF( B .EQ. 0.0D0 ) GO TO 300\r\n      F89 = F89 / (B ** N1)\r\n      DK89 = F89\r\n      RETURN\r\n  300 DK89 = 0.0D0\r\n      RETURN\r\n 1000 KFAC = 1\r\n      IF(NFAC.LT.2) GO TO 1020\r\n      DO 1010 LFAC=2,NFAC\r\n      KFAC=KFAC*LFAC\r\n 1010 CONTINUE\r\n 1020 GO TO IRET,(5,110,120)\r\n      END\r\n"
  },
  {
    "path": "mis/dki.f",
    "content": "      DOUBLE PRECISION FUNCTION DKI(I,J,K,L,M,N,IP,IQ,R,Z)\r\n      DOUBLE PRECISION AI, R, Z, RD, ABS1, AMKL, AKKL, AMMN, AKMN, ARR\r\n      DOUBLE PRECISION DKINT, DK89, DK100, DK211\r\n      DOUBLE PRECISION XX, AMM\r\n      DIMENSION  R(1) , Z(1)\r\n      IF (R(I) .EQ. R(J)) GO TO 20\r\n      RD = R(J)\r\n      IF (R(J) .EQ. 0.0D0) RD = R(I)\r\n      ABS1 =  DABS( (R(I) - R(J)) / RD )\r\n      IF (ABS1 .LE. 0.1D-3) GO TO 20\r\n      AMKL = (R(L)*Z(K)-R(K)*Z(L)) / (R(L)-R(K))\r\n      AKKL = (Z(L)-Z(K)) / (R(L)-R(K))\r\n      AMMN = (R(N)*Z(M)-R(M)*Z(N)) / (R(N)-R(M))\r\n      AKMN = (Z(N)-Z(M)) / (R(N)-R(M))\r\n      IF (AKMN .NE. AKKL .OR. AMMN .NE. AMKL) GO TO 30\r\n   20 AI = 0.0D0\r\n      GO TO  510\r\n   30 CONTINUE\r\n      ISS = IABS(IP)\r\n      IRR = IABS(IQ)\r\n      IF (IQ + 1) 100,300,50\r\n   50 CONTINUE\r\n      MM = IP\r\n      NN = IQ + 1\r\n      AI =DKINT(I,J,AMMN,AKMN,MM,NN,R,Z) -DKINT(I,J,AMKL,AKKL,MM,NN,R,Z)\r\n      GO TO  510\r\n  100 CONTINUE\r\n      IF (IP .LT. 0) GO TO 200\r\n      MM = IP\r\n      NN = IRR - 1\r\n      AI =DK89(I,AMKL,AKKL,MM,NN,R)  -  DK89(I,AMMN,AKMN,MM,NN,R)\r\n     1   -DK89(J,AMKL,AKKL,MM,NN,R)  +  DK89(J,AMMN,AKMN,MM,NN,R)\r\n      ARR = IRR\r\n      AI = (1.0D0 / (1.0D0 - ARR)) * AI\r\n      GO TO  510\r\n  200 CONTINUE\r\n      MM = ISS\r\n      NN = IRR - 1\r\n      AI =DK100(I,AMKL,AKKL,MM,NN,R) -DK100(I,AMMN,AKMN,MM,NN,R)\r\n     1   -DK100(J,AMKL,AKKL,MM,NN,R) +DK100(J,AMMN,AKMN,MM,NN,R)\r\n      ARR = IRR\r\n      AI = (1.0D0 / (1.0D0 - ARR)) * AI\r\n      GO TO  510\r\n  300 CONTINUE\r\n      IF (IP + 1) 400,500,301\r\n  301 CONTINUE\r\n      MM = IP + 1\r\n      AMM=MM\r\n      XX=R(I)**MM/AMM\r\n      AI=   (\r\n     *  +XX*DLOG(DABS(AMKL+AKKL*R(I)))-AKKL/AMM*DK89(I,AMKL,AKKL,MM,1,R)\r\n     *  -XX*DLOG(DABS(AMMN+AKMN*R(I)))+AKMN/AMM*DK89(I,AMMN,AKMN,MM,1,R)\r\n     *      )\r\n      XX=R(J)**MM/AMM\r\n      AI=   (\r\n     *  -XX*DLOG(DABS(AMKL+AKKL*R(J)))+AKKL/AMM*DK89(J,AMKL,AKKL,MM,1,R)\r\n     *  +XX*DLOG(DABS(AMMN+AKMN*R(J)))-AKMN/AMM*DK89(J,AMMN,AKMN,MM,1,R)\r\n     *      ) + AI\r\n      GO TO  510\r\n  400 CONTINUE\r\n      MM = ISS - 1\r\n      AMM=MM\r\n      XX=AMM*R(I)**MM\r\n      AI=   (\r\n     * -DLOG(DABS(AMKL+AKKL*R(I)))/XX+AKKL/AMM*DK100(I,AMKL,AKKL,MM,1,R)\r\n     * +DLOG(DABS(AMMN+AKMN*R(I)))/XX-AKMN/AMM*DK100(I,AMMN,AKMN,MM,1,R)\r\n     *      )\r\n      XX=AMM*R(J)**M\r\n      AI=   (\r\n     * +DLOG(DABS(AMKL+AKKL*R(J)))/XX-AKKL/AMM*DK100(J,AMKL,AKKL,MM,1,R)\r\n     * -DLOG(DABS(AMMN+AKMN*R(J)))/XX+AKMN/AMM*DK100(J,AMMN,AKMN,MM,1,R)\r\n     *      ) + AI\r\n      GO TO  510\r\n  500 CONTINUE\r\n      AI = DK211(I,AMKL,AKKL,R) - DK211(I,AMMN,AKMN,R)\r\n     1   - DK211(J,AMKL,AKKL,R) + DK211(J,AMMN,AKMN,R)\r\n  510 CONTINUE\r\n      DKI = AI\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dkint.f",
    "content": "      DOUBLE PRECISION FUNCTION DKINT(I,J,A,B,IV,IW,R,Z)\r\n      DOUBLE PRECISION BINT, C1P, C2P, C1, C2, AW, A, B, R, Z,DKJ, DKEF\r\n      DOUBLE PRECISION SP1\r\n      DIMENSION  R(1) , Z(1)\r\n      BINT = 0.0D0\r\n      IW1 = IW + 1\r\n      C1P = B\r\n      C2P = A\r\n      C1 = C1P\r\n      C2 = C2P\r\n      AW = 0.0D0\r\n      IF( R(I) .NE. 0.0D0 .AND. R(J) .NE. 0.0D0 ) AW = DLOG(R(J)/R(I))\r\n      DO 100 IT = 1,IW1\r\n      IC = IW - IT + 1\r\n      IF (IC.EQ.0) C1 = 1.0D0\r\n      IF (IT.EQ.1) C2 = 1.0D0\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC THE FOLLOWING CODE REPLACES DOUBLE PRECISION FUNCTION DKEF\r\nC\r\n      IF(IT.EQ.1) GO TO 20\r\n      IN=1\r\n      ID=1\r\n      DO 10 K=2,IT\r\n      IN=IN*(IW-K+2)\r\n      ID=ID*(K-1)\r\n   10 CONTINUE\r\n      DKEF=IN/ID\r\n      GO TO 30\r\n   20 DKEF=1.0D0\r\n   30 CONTINUE\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\nC THE FOLLOWING CODE REPLACES DOUBLE PRECISION FUNCTION DKJ\r\nC\r\n      IS1 = IC+IV+1\r\n      IF(IS1.EQ.0) GO TO 60\r\n      SP1=IS1\r\n      DKJ=( R(J)**IS1 - R(I)**IS1 )  /  SP1\r\n      GO TO 70\r\n   60 DKJ = AW\r\n   70 CONTINUE\r\nC\r\nC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\r\nC\r\n      BINT = BINT + C1 ** IC *DKJ * C2 ** (IT - 1) * DKEF\r\n      C1 = C1P\r\n      C2 = C2P\r\n  100 CONTINUE\r\n      AW = IW\r\n      BINT = BINT / AW\r\n      DKINT = BINT\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dkl.f",
    "content": "      DOUBLE PRECISION FUNCTION DKL (NP,I,L,R,Z)\r\nC-----\r\nC   THIS ROUTINE CALCULATES THE DOUBLE PRECISION  DELTA(IJ)  INTEGRALS\r\nC FOR AXISYMMETRIC SOLIDS IN SMA1, EMG.\r\nC\r\nC   INPUT\r\nC     NP = NUMBER OF POINTS (3 OR 4)\r\nC     I,L= THE INTEGRAL DESIRED (I SERIES STARTS WITH -1)\r\nC     R  = RADIUS ARRAY (NP LONG)\r\nC     Z  = Z-CORD ARRAY (NP LONG)\r\nC\r\nC   OUTPUT\r\nC     DKL = DESIRED INTEGRAL\r\nC\r\nC-----\r\n      INTEGER NAM(2)\r\n      DOUBLE PRECISION A         ,AJ       ,AR\r\n     1,       BETA\r\n     2,       DR       ,DZ       ,DFACT    ,DZJ      ,DL1\r\n     3,       EPS\r\n     4,       FACT\r\n     5,       GKL\r\n     6,       ONE\r\n     7,       PR\r\n     8,       RA       ,RB       ,R(1)     ,RAK      ,RBK\r\n     9,       TWO      ,THREE\r\n     *,       ZA       ,ZB       ,ZERO     ,Z(1)\r\nC\r\n      DATA EPS / .01D0 /\r\n      DATA ZERO,ONE,TWO,THREE / 0.0D0, 1.0D0, 2.0D0, 3.0D0 /\r\n      DATA NAM / 4HDKL , 1H  /\r\nC\r\n      DKL = ZERO\r\n      L1 = L+1\r\n      L2 = L + 2\r\n      DL1 = L1\r\n      K  = I+1\r\nC\r\nC  . LOOP ON NUMBER OF POINTS...\r\n      IF (R(1).LE.ZERO) GO TO 300\r\n       DO 200 M = 1,NP\r\n      J = M+1\r\n      IF (M.EQ.NP) J = 1\r\n      RA = R(M)\r\n      RB = R(J)\r\n      ZA = Z(M)\r\n      ZB = Z(J)\r\n      DR = RB-RA\r\n      DZ = ZB-ZA\r\nC\r\nC  . TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS)...\r\n      IF (RB.LE.ZERO) GO TO 300\r\n      GKL = ZERO\r\n      PR = RA+RB\r\n      AR = PR / TWO\r\nC\r\nC  . CHECK FOR APPROXIMATION, DR/AVE(R)...\r\n      IF ( DABS ( DR/AR ) .LT. EPS ) GO TO 70\r\nC\r\n      A = ZA*DR - RA*DZ\r\n      BETA = A/DR\r\nC\r\nC  . CHECK FOR BETA .EQ. 0 CASE...\r\n      IF (DABS (BETA / AR ) .GT. EPS ) GO TO 10\r\nC\r\n      IF (DZ.EQ.ZERO) GO TO 200\r\n      LK = L + K + 1\r\n      AR = LK\r\n      GKL = (DZ/DR)**L1 * (RA**LK-RB**LK) / (DL1*AR)\r\n       GO TO 200\r\nC\r\nC  . GENERAL CASE...\r\n   10 RAK = RA**K\r\n      RBK = RB**K\r\n      IF ( K ) 300,20,30\r\nC\r\nC  . GENERAL CASE, K.EQ.0, CONSTANT TERM...\r\n   20 GKL = DLOG (RA/RB) / DL1\r\n       GO TO 40\r\nC\r\nC  . GENERAL CASE, CONSTANT TERM...\r\n   30 AR = K * L1\r\n      GKL = (RAK - RBK) / AR\r\nC\r\nC  . GENERAL CASE, SUMMATION...\r\n   40 IF (DZ.EQ.ZERO) GO TO 65\r\n      LFACT = 1\r\nC  . CALCULATE FACTORIAL (L+1)...\r\n       DO 50 J = 2,L\r\n   50 LFACT = LFACT * J\r\n      FACTL = LFACT\r\n      JFACT = 1\r\n      AJ  = ONE\r\n      DZJ = ONE\r\n      LMJF= LFACT * L1\r\n       DO 60 J = 1,L1\r\n      JFACT = JFACT * J\r\nC  . CALCULATE (L+1-J) FACTORIAL IN LMJF...\r\n      LMJF = LMJF / (L2-J)\r\n      FACT = FACTL / FLOAT (JFACT*LMJF)\r\n      DFACT = K + J\r\n      DFACT = FACT / DFACT\r\n      AJ  = AJ * A\r\n      RAK = RAK * RA\r\n      RBK = RBK * RB\r\n      DZJ = DZJ * DZ\r\n   60 GKL = GKL + (DFACT * DZJ * (RAK-RBK)) / AJ\r\nC-----\r\n   65 GKL = GKL * BETA**L1\r\n       GO TO 200\r\nC\r\nC  . APPROXIMATE CODE...\r\n   70 CONTINUE\r\n      IF (DR.EQ.ZERO) GO TO 200\r\n      DZJ = L1 * L2\r\n      RBK = ZB**L1\r\n      J = K - 1\r\n      GKL = -DR * AR**J * RBK / DL1\r\nC\r\n      IF (DZ.EQ.ZERO) GO TO 200\r\n      GKL = GKL + (( (TWO*RA+RB) / THREE)**J * DR * DABS(ZA**L2-RBK*ZB))\r\n     1               / (DZJ * DZ)\r\nC\r\n  200 DKL = DKL + GKL\r\nC-----\r\nC\r\nC  . ALL DONE\r\nC\r\n  210 CONTINUE\r\n      RETURN\r\nC\r\nC  . ERROR...\r\nC\r\n  300 CALL MESAGE (-7,K,NAM)\r\n       GO TO 210\r\n      END\r\n"
  },
  {
    "path": "mis/dkls.f",
    "content": "      FUNCTION DKLS(NP,I,L,R,Z)\r\nC-----\r\nC    THIS ROUTINE CALCULATES THE SINGLE PRECISION INTEGRALS FOR\r\nC    AXISYMMETRIC SOLIDS IN EMG\r\nC\r\nC   INPUT\r\nC     NP = NUMBER OF POINTS (3 OR 4)\r\nC     I,L= THE INTEGRAL DESIRED (I SERIES STARTS WITH -1)\r\nC     R  = RADIUS ARRAY (NP LONG)\r\nC     Z  = Z-CORD ARRAY (NP LONG)\r\nC\r\nC   OUTPUT\r\nC     DKL = DESIRED INTEGRAL\r\nC\r\nC-----\r\n      INTEGER NAM(2)\r\n      REAL  R(3),Z(3)\r\n      DATA EPS /.01/, NAM /4HDKLS ,1H  /\r\n      DATA ZERO, ONE, TWO / 0., 1., 2. /\r\nC\r\n      DKLS= ZERO\r\n      L1 = L+1\r\n      L2 = L + 2\r\n      DL1 = L1\r\n      K  = I+1\r\nC\r\nC  . LOOP ON NUMBER OF POINTS...\r\n      IF (R(1).LE.ZERO) GO TO 300\r\n       DO 200 M = 1,NP\r\n      J = M+1\r\n      IF (M.EQ.NP) J = 1\r\n      RA = R(M)\r\n      RB = R(J)\r\n      ZA = Z(M)\r\n      ZB = Z(J)\r\n      DR = RB-RA\r\n      DZ = ZB-ZA\r\nC\r\nC  . TEST IF RADIUS IS .LE. 0 (DRIVER SHOULD FIND THIS)...\r\n      IF (RB.LE.ZERO) GO TO 300\r\n      GKL = ZERO\r\n      PR = RA+RB\r\n      AR = PR / TWO\r\nC\r\nC  . CHECK FOR APPROXIMATION, DR/AVE(R)...\r\n      IF (ABS(DR/AR) .LT. EPS) GO TO 70\r\nC\r\n      A = ZA*DR - RA*DZ\r\n      BETA = A/DR\r\nC\r\nC  . CHECK FOR BETA .EQ. 0 CASE...\r\n      IF ( ABS (BETA / AR ) .GT. EPS ) GO TO 10\r\nC\r\n      IF (DZ.EQ.ZERO) GO TO 200\r\n      LK = L + K + 1\r\n      AR = LK\r\n      GKL = (DZ/DR)**L1 * (RA**LK-RB**LK) / (DL1*AR)\r\n       GO TO 200\r\nC\r\nC  . GENERAL CASE...\r\n   10 RAK = RA**K\r\n      RBK = RB**K\r\n      IF ( K ) 300,20,30\r\nC\r\nC  . GENERAL CASE, K.EQ.0, CONSTANT TERM...\r\n   20 GKL = ALOG(RA/RB)/DL1\r\n       GO TO 40\r\nC\r\nC  . GENERAL CASE, CONSTANT TERM...\r\n   30 AR = K * L1\r\n      GKL = (RAK - RBK) / AR\r\nC\r\nC  . GENERAL CASE, SUMMATION...\r\n   40 IF (DZ.EQ.ZERO) GO TO 65\r\n      LFACT = 1\r\nC  . CALCULATE FACTORIAL (L+1)...\r\n       DO 50 J = 2,L\r\n   50 LFACT = LFACT * J\r\n      FACTL = LFACT\r\n      JFACT = 1\r\n      AJ  = ONE\r\n      DZJ = ONE\r\n      LMJF= LFACT * L1\r\n       DO 60 J = 1,L1\r\n      JFACT = JFACT * J\r\nC  . CALCULATE (L+1-J) FACTORIAL IN LMJF...\r\n      LMJF = LMJF / (L2-J)\r\n      FACT = FACTL / FLOAT (JFACT*LMJF)\r\n      DFACT = K + J\r\n      DFACT = FACT / DFACT\r\n      AJ  = AJ * A\r\n      RAK = RAK * RA\r\n      RBK = RBK * RB\r\n      DZJ = DZJ * DZ\r\n   60 GKL = GKL + (DFACT * DZJ * (RAK-RBK)) / AJ\r\nC-----\r\n   65 GKL = GKL * BETA**L1\r\n       GO TO 200\r\nC\r\nC  . APPROXIMATE CODE...\r\n   70 CONTINUE\r\n      IF (DR.EQ.ZERO) GO TO 200\r\n      DZJ = L1 * L2\r\n      RBK = ZB**L1\r\n      J = K - 1\r\n      GKL = -DR * AR**J * RBK / DL1\r\nC\r\n      IF (DZ.EQ.ZERO) GO TO 200\r\n      GKL = GKL + (((2.*RA+RB)/3.)**J *DR*ABS(ZA**L2 - RBK*ZB))/(DZJ*DZ)\r\nC\r\n  200 DKLS= DKLS+ GKL\r\nC-----\r\nC\r\nC  . ALL DONE\r\nC\r\n  210 CONTINUE\r\n      RETURN\r\nC\r\nC  . ERROR...\r\nC\r\n  300 CALL MESAGE (-7,K,NAM)\r\n       GO TO 210\r\n      END\r\n"
  },
  {
    "path": "mis/dlamby.f",
    "content": "      SUBROUTINE DLAMBY(INPUT,MATOUT,SKJ)\r\nC\r\nC     DRIVER FOR DOUBLET LATTICE WITH BODIES\r\nC\r\n      INTEGER         ECORE,SYSBUF,IZ(1),TSKJ,SKJ\r\n      INTEGER         SCR1,SCR2,SCR3,SCR4,SCR5\r\n      DIMENSION       NAME(2)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     1                INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,\r\n     2                IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,\r\n     3                IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM,\r\n     4                IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2,\r\n     5                ITH1A,ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5,\r\n     6                NTBE\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA   NAME /4HDLAM,4HBY  /\r\n      DATA NHAERO,NHPOIN,NHCORE / 4HAERO,4HPOIN,4HCORE/\r\nC\r\n      SCR1 = 301\r\n      SCR2 = 302\r\n      SCR3 = 303\r\n      SCR4 = 304\r\n      SCR5 = 305\r\nC\r\nC     GET CORE THEN SET POINTERS TO ACPT TABLE ARRAYS\r\nC\r\n      ECORE = KORSZ(IZ) - 4*SYSBUF\r\nC\r\nC     READ LENGTHS OF ARRAYS\r\nC\r\n      CALL FREAD(INPUT,NJ1,13,0)\r\nC\r\nC     COMPUTE POINTERS TO OPEN CORE\r\nC\r\n      LNS = INC\r\n      INC = 1\r\n      INS = INC\r\n      INB = INS + NP\r\n      INAS = INB + NP\r\n      IZIN = INAS\r\n      IYIN = IZIN\r\n      INBEA1 = IYIN + NP\r\n      INBEA2 = INBEA1 + NB\r\n      INSBEA = INBEA2 + NB\r\n      IZB = INSBEA + NB\r\n      IYB = IZB + NB\r\n      IAVR = IYB + NB\r\n      IARB = IAVR + NB\r\n      INFL = IARB + NB\r\n      IXLE = INFL + NB\r\n      IXTE = IXLE + NB\r\n      INT121 = IXTE + NB\r\n      INT122 = INT121 + NB\r\n      IZS = INT122 + NB\r\n      N = 3*NP + 12 * NB\r\nC\r\nC     READ FIXED ARRAYS\r\nC\r\n      IF(N .GT. ECORE) GO TO 998\r\n      CALL FREAD(INPUT,IZ,N,0)\r\nC\r\nC     GET LENGTHS OF VARIABLE ARRAYS, PANELS THEN BODIES\r\nC\r\n      LNAS = 0\r\n      IF(NP .EQ. 0) GO TO 20\r\n      DO 10 I=1,NP\r\n   10 LNAS = LNAS + IZ(INAS+I-1)\r\n   20 LNB = 0\r\n      LNSB = 0\r\n      LNFL = 0\r\n      LT1 = 0\r\n      LT2 = 0\r\n      DO 30 I=1,NB\r\n      K = I-1\r\n      LNB = LNB + IZ(INBEA1+K)\r\n      LNSB = LNSB + IZ(INSBEA+K)\r\n      LNFL = LNFL + IZ(INFL+K)\r\n      LT1 = LT1 + IZ(INT121+K)\r\n   30 LT2 = LT2 + IZ(INT122+K)\r\n      NTBE = NTP+LNB\r\nC\r\nC     READ VARIABLE  ARRAYS AND SET POINTERS TO CORE\r\nC\r\n      NEXT = N+1\r\n      N = 2*NB + 5*LNS + 4*NTP + 3*LNB + 4*LNSB + LNAS + 2*LNFL\r\n     *  + LT1 + LT2\r\n      IF(NEXT+N+4*NJ.GE.ECORE) GO TO 998\r\n      CALL FREAD(INPUT,IZ(NEXT),N,1)\r\n      NEXT = NEXT + N + 1\r\n      IYS = IZS + NB + LNS\r\n      ICS = IYS\r\n      IEE = ICS + NB + LNS\r\n      ISG = IEE + LNS\r\n      ICG = ISG + LNS\r\n      IXIJ = ICG\r\n      IX = IXIJ + LNS\r\n      IDELX = IX + NTP + LNB\r\n      IXIC = IDELX + NTP + LNB\r\n      IXLAM = IXIC + NTP\r\n      IA0 = IXLAM + NTP\r\n      IXIS1 = IA0 + LNSB\r\n      IXIS2 = IXIS1 + LNSB\r\n      IA0P = IXIS2 + LNSB\r\n      IRIA = IA0P + LNSB\r\n      INASB = IRIA + LNB\r\n      IFLA1 = INASB + LNAS\r\n      IFLA2 = IFLA1 + LNFL\r\n      ITH1A = IFLA2 + LNFL\r\n      ITH2A = ITH1A + LT1\r\nC\r\nC     BUILD A MATRIX\r\nC\r\n      CALL BUG(NHAERO,100,ND,5)\r\n      CALL BUG(NHPOIN,100,NJ1,59)\r\n      CALL BUG(NHCORE,100,Z,NEXT)\r\n      N1 = NEXT\r\n      N = NEXT + 2*NTBE\r\n      NEXT = NEXT + 4*NTBE\r\n      IF(NT0 .NE. 0) CALL GENDSB(Z(INC),Z(INB),Z(ISG),Z(ICG),Z(INFL),\r\n     *   Z(INBEA1),Z(INBEA2),Z(IFLA1),Z(IFLA2),Z(N1),Z(N1),Z(N))\r\n      N = NTZS + NTYS\r\n      NEXT = N1\r\n      BETA = SQRT(1.0-FMACH**2)\r\n      IF( NT0 .NE. 0 .AND. N .NE. 0) CALL AMGROD(Z(N1),BETA)\r\n      CALL AMGSBA(MATOUT,Z(IA0),Z(IARB),Z(INSBEA),Z(N1),Z(IYB),Z(IZB))\r\n      NROW = NROW + NJ1\r\nC\r\nC     BUILD SKJ MATRIX BE SURE TO BUMP ISK NSK\r\nC\r\n      CALL AMGBFS(SKJ,Z(IEE),Z(IDELX),Z(INC),Z(INB),Z(IXIS2),Z(IXIS1),\r\n     *      Z(IA0),Z(IA0P),Z(INSBEA))\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  998 CALL MESAGE(-8,0,NAME)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/dlamg.f",
    "content": "      SUBROUTINE DLAMG(INPUT,MATOUT,SKJ)\r\nC\r\nC     DRIVER FOR THE DOUBLET LATTICE METHOD\r\nC     COMPUTATIONS ARE FOR THE AJJL MATRIX\r\nC\r\n      INTEGER         ECORE,SYSBUF,IZ(1),SKJ\r\n      DIMENSION       NAME(2),A(2)\r\n      COMPLEX         DT(1)\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH,\r\n     1                INC,INB,IYS,IZS,IEE,ISG,ICG,\r\n     2                IXIC,IDELX,IXLAM,IDT,ECORE\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /BLANK / NK,NJ\r\n      EQUIVALENCE     (WORK(1),IZ(1),DT(1))\r\n      DATA    NAME  / 4HDLAM,4HG   /\r\nC\r\n      NJJ = NJ\r\nC\r\nC     READ IN NP,NSIZE,NTP,F\r\nC\r\n      CALL READ(*999,*999,INPUT,NP,4,0,N)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      ECORE = KORSZ(IZ)\r\n      ECORE =  ECORE - 4 * SYSBUF\r\n      INC = 1\r\n      INB = INC + NP\r\n      IYS = INB + NP\r\n      IZS = IYS + NSTRIP\r\n      IEE = IZS + NSTRIP\r\n      ISG = IEE + NSTRIP\r\n      ICG = ISG + NSTRIP\r\n      IXIC = ICG + NSTRIP\r\n      IDELX = IXIC + NTP\r\n      IXLAM = IDELX + NTP\r\n      NREAD = IXLAM + NTP\r\nC     IDT IS A COMPLEX POINTER\r\nC     THE MATRIX PACKED OUT IS NJ LONG STARTING AT DT\r\n      IDT = (NREAD +2) / 2\r\n      NEXT = IDT*2 + 2*NJ + 1\r\nC\r\nC     FILL IN DATA\r\nC\r\n      IF(NEXT .GT. ECORE) GO TO 998\r\n      NREAD = NREAD -1\r\n      CALL READ(*999,*999,INPUT,WORK,NREAD,1,N)\r\nC\r\nC     CHECK FOR ENOUGH SCRATCH STORAGE\r\nC\r\n      N = INC + NP -1\r\n      LENGTH = 1\r\nC\r\nC     PUT OUT SKJ\r\nC\r\n      ITI = 1\r\n      ITO = 3\r\n      II = ISK\r\n      NSK = NSK + 2\r\n      NN = NSK\r\n      K = 0\r\n      KS = 0\r\n      NBXR=IZ(INC+K)\r\n      DO 5 I=1,NTP\r\n      A(1) = 2.0 * WORK(IEE+KS) * WORK(IDELX+I-1)\r\n      A(2) = (WORK(IEE+KS) * WORK(IDELX+I-1)**2)/ 2.0\r\n      CALL PACK( A,SKJ,TSKJ)\r\n      II = II +2\r\n      IF(I.EQ.NTP) GO TO 5\r\n      NN = NN +2\r\n      IF(I.EQ.IZ(INB+K)) K = K+1\r\n      IF(I.EQ.NBXR) GO TO 4\r\n      GO TO 5\r\n    4 KS = KS +1\r\n      NBXR = NBXR + IZ(INC+K)\r\n    5 CONTINUE\r\n      ISK = II\r\n      NSK = NN\r\n      ITI = 3\r\n      ITO = 3\r\n      II = 1\r\n      NN = NJ\r\n      CALL GEND(WORK(INC),WORK(INB),WORK(IYS),WORK(IZS),\r\n     1          WORK(ISG),WORK(ICG),DT(IDT),WORK(1),MATOUT)\r\n      NROW = NROW + NTP\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NOT ENOUGH CORE\r\n  998 CALL MESAGE(-8,0,NAME)\r\nC     INPUT NOT POSITIONED PROPERLY OR INCORRECTLY WRITTEN\r\n  999 CALL MESAGE(-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dlbpt2.f",
    "content": "      SUBROUTINE DLBPT2 (INPUT,W1JK,W2JK)\r\nC\r\n      INTEGER         W1JK,W2JK,SYSBUF,ECORE,TW1JK,TW2JK,NAME(2)\r\n      DIMENSION       A(4),IZ(1)\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /AMGP2 / TW1JK(7),TW2JK(7)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     1                Z(1)\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA    NAME  / 4HDLBP,4HT2  /\r\nC\r\nC     GET CORE THEN SET POINTERS TO ACPT TABLE ARRAYS\r\nC\r\n      ECORE = KORSZ(IZ) - 4*SYSBUF\r\nC\r\nC     READ LENGTHS OF ARRAYS\r\nC\r\n      CALL FREAD (INPUT,NJ1,13,0)\r\nC\r\nC     COMPUTE POINTERS TO OPEN CORE\r\nC\r\n      IF (NTP .EQ. 0) CALL FREAD (INPUT,0,0,1)\r\n      IF (NTP .EQ. 0) GO TO 50\r\n      LNS  = IZ(1)\r\n      INC  = 1\r\n      INS  = INC\r\n      INB  = INS + NP\r\n      INAS = INB + NP\r\n      IZIN = INAS\r\n      IYIN = IZIN\r\n      INBEA1 = IYIN   + NP\r\n      INBEA2 = INBEA1 + NB\r\n      INSBEA = INBEA2 + NB\r\n      IZB  = INSBEA + NB\r\n      IYB  = IZB  + NB\r\n      IAVR = IYB  + NB\r\n      IARB = IAVR + NB\r\n      INFL = IARB + NB\r\n      IXLE = INFL + NB\r\n      IXTE = IXLE + NB\r\n      INT121 = IXTE   + NB\r\n      INT122 = INT121 + NB\r\n      IZS = INT122 + NB\r\n      N = 3*NP + 12*NB\r\nC\r\nC     READ FIXED ARRAYS\r\nC\r\n      IF (N .GT. ECORE) GO TO 180\r\n      CALL FREAD (INPUT,IZ,N,0)\r\nC\r\nC     GET LENGTHS OF VARIABLE ARRAYS, PANELS THEN BODIES\r\nC\r\n      LNAS = 0\r\n      IF (NP .EQ. 0) GO TO 20\r\n      DO 10 I = 1,NP\r\n   10 LNAS = LNAS + IZ(INAS+I-1)\r\n   20 LNB  = 0\r\n      LNSB = 0\r\n      LNFL = 0\r\n      LT1  = 0\r\n      LT2  = 0\r\n      DO 30 I = 1,NB\r\n      K    = I - 1\r\n      LNB  = LNB  + IZ(INBEA1+K)\r\n      LNSB = LNSB + IZ(INSBEA+K)\r\n      LNFL = LNFL + IZ(INFL+K)\r\n      LT1  = LT1  + IZ(INT121+K)\r\n   30 LT2  = LT2  + IZ(INT122+K)\r\nC\r\nC     READ VARIABLE  ARRAYS AND SET POINTERS TO CORE\r\nC\r\n      NEXT = N + 1\r\n      N = 2*NB + 5*LNS + 4*NTP + 3*LNB + 4*LNSB + LNAS + 2*LNFL\r\n     *  + LT1  + LT2\r\n      IF (NEXT+N .GE. ECORE) GO TO 180\r\n      CALL READ (*190,*190,INPUT,IZ(NEXT),N,1,NW)\r\n      NEXT = NEXT+ N + 1\r\n      IYS  = IZS + NB + LNS\r\n      ICS  = IYS\r\n      IEE  = ICS + NB + LNS\r\n      ISG  = IEE + LNS\r\n      ICG  = ISG + LNS\r\n      IXIJ = ICG\r\n      IX   = IXIJ+ LNS\r\n      IDELX= IX  + NTP + LNB\r\nC\r\nC     COMPUTE TERMS AND PACK\r\nC\r\n      NN = II + 1\r\n      DO 40 I = 1,NTP\r\n      A(1) = 0.0\r\n      A(2) = 1.0\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      A(1) = -(2.0/REFC)\r\n      A(2) = Z(IDELX+I-1)/(2.0*REFC)\r\n      CALL PACK (A,W2JK,TW2JK)\r\nC\r\nC     BUMP PACK INDEXES\r\nC\r\n      II = II + 2\r\n      IF (I .EQ. NTP) GO TO 40\r\n      NN = NN + 2\r\n   40 CONTINUE\r\n   50 NTZY = NTZ + NTY\r\n      IF (NTZY .EQ. 0) GO TO 70\r\n      NN   = II + 1\r\n      A(1) = 0.0\r\n      A(2) = 0.0\r\n      DO 60 I = 1,NTZY\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      CALL PACK (A,W2JK,TW2JK)\r\n   60 CONTINUE\r\n   70 NTZY = NTZS + NTYS\r\n      IF (NTZY .EQ. 0) GO TO 200\r\nC\r\nC     ANOTHER HARDER SHUFFLE\r\nC\r\n      III = II\r\n      INBEA2 = INBEA2 - 1\r\n      INSBEA = INSBEA - 1\r\n      IFY = II\r\n      IF (NBZ .EQ. 0) GO TO 120\r\n      DO 110 I = 1,NBZ\r\n      IBT = IZ(INBEA2+I)\r\n      NBE = IZ(INSBEA+I)\r\n      IF (IBT .EQ. 2) GO TO 90\r\n      A(1) = 0.0\r\n      A(2) = 1.0\r\n      A(3) = -2.0/REFC\r\n      A(4) = 0.0\r\n      DO 80 J = 1,NBE\r\n      NN = II + 1\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      CALL PACK (A(3),W2JK,TW2JK)\r\n      II  = II + 2\r\n      IFY = II\r\n   80 CONTINUE\r\n      GO TO 110\r\n   90 A(1) = 0.0\r\n      A(4) = 0.0\r\n      DO 100 J = 1,NBE\r\n      NN   = II + 3\r\n      A(2) = 0.0\r\n      A(3) = 1.0\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      A(2) = -2.0/REFC\r\n      A(3) = 0.0\r\n      CALL PACK (A,W2JK,TW2JK)\r\n      II = II + 4\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n  120 IF (NBY .EQ. 0) GO TO 170\r\n      II = IFY\r\n      NBTD = NB - NBY + 1\r\n      DO 160 I = NBTD,NB\r\n      IBT = IZ(INBEA2+I)\r\n      NBE = IZ(INSBEA+I)\r\n      IF (IBT .EQ. 3) GO TO 140\r\n      A(2) = 0.0\r\n      A(3) = 0.0\r\n      DO 130 J = 1,NBE\r\n      NN   = II + 3\r\n      A(1) = 0.0\r\n      A(4) =-1.0\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      A(1) = -2.0/REFC\r\n      A(4) = 0.0\r\n      CALL PACK (A,W2JK,TW2JK)\r\n      II  = II + 4\r\n  130 CONTINUE\r\n      GO TO 160\r\n  140 A(1) = 0.0\r\n      A(2) =-1.0\r\n      A(3) =-2.0/REFC\r\n      A(4) = 0.0\r\n      DO 150 J = 1,NBE\r\n      NN = II + 1\r\n      CALL PACK (A,W1JK,TW1JK)\r\n      CALL PACK (A(3),W2JK,TW2JK)\r\n      II = II + 2\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n  170 II = III + NTZY*2\r\n      NN = II  - 1\r\n      GO TO 200\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  180 CALL MESAGE (-8,0,NAME)\r\n  190 CALL MESAGE (-7,0,NAME)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dlkapm.f",
    "content": "      SUBROUTINE DLKAPM (ARG,BLKAPM)\r\nC\r\nC     SUBROUTINE FOR COMPUTING LOGARITHMIC DERIVATIVE OF KAPPA MINUS\r\nC\r\n      COMPLEX         BLKAPM,AI,C1,D1,D2,C1TEST,ARG,E1,ALP0,ALP,ALN\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\nC\r\n      C1   =-AI/2.0*(SPS-SNS)\r\n      PI2  = 2.0*PI\r\n      S1   = SPS/(DSTR**2)\r\n      S2   = SNS/DSTR\r\n      GAM0 = SPS*DEL - SIGMA\r\n      C2Q  = GAM0/DSTR - SCRK\r\n      C3Q  = GAM0/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2Q*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAM0*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP0 = T1 + T2\r\n      IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2)\r\n      C1   = C1 + 1.0/(ARG-ALP0)\r\n      A1   = PI2/(SPS-SNS)\r\n      A2   =-A1\r\n      B1   = GAM0/(SPS-SNS)\r\n      C1TEST = 0.0\r\n      DO 20 I = 1,200\r\n      R    = I\r\n      GAMP = PI2*R + GAM0\r\n      GAMN =-PI2*R + GAM0\r\n      C2P  = GAMP/DSTR - SCRK\r\n      C2Q  = GAMP/DSTR + SCRK\r\n      C2N  = GAMN/DSTR - SCRK\r\n      C3Q  = GAMN/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2P*C2Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMP*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP = T1 + T2\r\n      IF (NN .EQ. 1) ALP = CMPLX(T1,T2)\r\n      NN   = 0\r\n      CSEC = C2N*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMN*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALN = T1 + T2\r\n      IF (NN .EQ. 1) ALN = CMPLX(T1,T2)\r\n      E1   = A1*R + B1 - ARG\r\n      D1   = (ALP-A1*R-B1)/E1\r\n      D2   = D1/E1\r\n      C1   = C1 + 1.0/(1.0+D1)*D2\r\n      E1   = A2*R + B1 - ARG\r\n      D1   = (ALN-A2*R-B1)/E1\r\n      D2   = D1/E1\r\n      C1   = C1 + 1.0/(1.0+D1)*D2\r\n      IF (CABS((C1-C1TEST)/C1) .LT. 0.0006) GO TO 50\r\n      C1TEST = C1\r\n   20 CONTINUE\r\n      GO TO 70\r\n   50 CONTINUE\r\n      E1   = ARG - B1\r\n      B    = PI/A1\r\n      C1   = C1 - 1.0/E1 + B*CCOS(B*E1)/(CSIN(B*E1))\r\n      BLKAPM = C1\r\n      RETURN\r\nC\r\n   70 WRITE  (IBBOUT,80) UFM\r\n   80 FORMAT (A23,' - AMG MODULE -SUBROUTINE DLKAPM')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dloop.f",
    "content": "      SUBROUTINE DLOOP (X,Y,MPY,END)\r\nC*******\r\nC     DLOOP IMPROVES THE EFFICIENCY OF AN INNER DCOMP LOOP\r\nC*******\r\n      DOUBLE PRECISION   X(1)      ,Y(1)     ,MPY\r\nC*******\r\nC     DDLOOP IMPROVES THE EFFICIENCY OF THE ACTIVE ROW LOOP\r\nC*******\r\n      DOUBLE PRECISION   A         ,B(1)     ,C(1)\r\n      DOUBLE PRECISION XX(1),YY(1)\r\n      INTEGER            END\r\n      DO 10 I = 1,END\r\n   10 X(I) = X(I)+MPY*Y(I)\r\n      RETURN\r\nC*******************************\r\n      ENTRY DDLOOP (A,B,C,ENDD)\r\n      DO 20 I = 1,ENDD\r\n   20 A = A-B(I)*C(I)\r\n      RETURN\r\nC************\r\nC     ENTRY FOR ANOTHER LOOP\r\nC***********\r\n      ENTRY XLOOP(XX,YY,NN)\r\n      DO 105 I = 1,NN\r\n  105 XX(I) = YY(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dlpt2.f",
    "content": "      SUBROUTINE DLPT2 (INPUT,W1JK,W2JK)\r\nC\r\n      INTEGER         W1JK,W2JK,SYSBUF,ECORE,TW1JK,TW2JK,NAME(2)\r\n      DIMENSION       A(2),NP(4),IZ(1)\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /AMGP2 / TW1JK(7),TW2JK(7)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ WORK(1)\r\n      EQUIVALENCE     (NP(2),NSTRIP),(NP(3),NTP)\r\n      EQUIVALENCE     (WORK(1),IZ(1))\r\n      DATA     NAME / 4HDLPT,4H2   /\r\nC\r\nC     READ IN NP,NSIZE,NTP,F\r\nC\r\n      CALL READ(*999,*999,INPUT,NP,4,0,N)\r\nC\r\nC     COMPUTE POINTERS AND SEE IF THERE IS ENOUGH CORE\r\nC\r\n      ECORE = KORSZ(IZ)\r\n      ECORE = ECORE - 4*SYSBUF\r\n      NN = II +1\r\n      INC = 0\r\n      INB = INC + NP(1)\r\n      IYS = INB + NP(1)\r\n      IZS = IYS + NSTRIP\r\n      IEE = IZS + NSTRIP\r\n      ISG = IEE + NSTRIP\r\n      ICG = ISG + NSTRIP\r\n      IXIC = ICG + NSTRIP\r\n      IDELX = IXIC + NTP\r\n      IXLAM = IDELX + NTP\r\n      NREAD = IXLAM + NTP\r\nC\r\nC     FILL IN DATA\r\nC\r\n      IF(NREAD.GT. ECORE) GO TO 998\r\n      CALL READ(*999,*999,INPUT,WORK,NREAD,1,N)\r\nC\r\nC     COMPUTE TERMS AND PACK\r\nC\r\n      DO 10 I = 1,NTP\r\n      A(1) = 0.0\r\n      A(2) = 1.0\r\n      CALL PACK(A,W1JK,TW1JK)\r\n      A(1) = -(2.0/REFC)\r\n      A(2)=WORK(IDELX+I) / (2.0*REFC)\r\n      CALL PACK(A,W2JK,TW2JK)\r\nC\r\nC     BUMP PACK INDEXES\r\nC\r\n      II = II +2\r\n      IF(I.EQ.NTP) GO TO 10\r\n      NN = NN + 2\r\n   10 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     NOT ENOUGH CORE\r\n  998 CALL MESAGE(-8,0,NAME)\r\nC     FILE NOT POSITIONED PROPERLY\r\n  999 CALL MESAGE(-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dmatrs.f",
    "content": "      SUBROUTINE DMATRS (D,V,C,CA, CA2, VA, DM, DB, YI)\r\nC\r\nC\r\nC THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR\r\nC THE TOROIDAL RING\r\nC\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN DMATRX ROUTINE.\r\nC\r\nC\r\n      DIMENSION  D (10,10) , YI (6,11)\r\nC\r\nC     ------------------------------------------------------------------\r\nC\r\n      D(1,1)   =  DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1))\r\n      D(2,1)   =  DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2))\r\n      D(3,1)   =  DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3))\r\n      D(4,1)   =  DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4))\r\n      D(5,1)   =  DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5))\r\n      D(6,1)   =  DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6))\r\n      D(7,1)   =  DM * (VA*YI(4,1)  +  YI(5,1))\r\n      D(8,1)   =  DM * (CA*YI(1,1)  +  VA*YI(4,2) + V*YI(2,1) + YI(5,2))\r\n      D(9,1)   =  DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5\r\n     1                 ,3))\r\n      D(10,1)  =  DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(2,2)   =  DB * YI(6,1)  +  D(3,1)\r\n      D(3,2)   =  DB * (2.*V*YI(4,1) + 2.*YI(6,2))  +  D(4,1)\r\n      D(4,2)   =  DB * (6.*V*YI(4,2) + 3.*YI(6,3))  +  D(5,1)\r\n      D(5,2)   =  DB * (12.*V*YI(4,3) + 4.*YI(6,4)) +  D(6,1)\r\n      D(6,2)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * (20.*V*YI(4,4) + 5.*YI(6,5))\r\n      D (7,2)  =  DM * (VA*YI(4,2) + YI(5,2))\r\n      D(8,2)   =  DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3))\r\n      D(9,2)   =  DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(10,2)  =  DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(3,3)   =  DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1)\r\n      D(4,3)   =  DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1)\r\n      D(5,3)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1        DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5))\r\n      D(6,3)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D (7,3)  =  DM * (VA*YI(4,3) + YI(5,3))\r\n      D(8,3)   =  DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4))\r\n      D(9,3)   =  DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(10,3)  =  DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(4,4)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(5,4)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(6,4)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D (7,4)  =  DM * (VA*YI(4,4) + YI(5,4))\r\n      D(8,4)   =  DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5))\r\n      D(9,4)   =  DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(10,4)  =  DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) +\r\n     1                 YI(5,7))\r\n      D(5,5)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D(6,5)   =  DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) +\r\n     1            DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7)  + YI(6,8))\r\n      D (7,5)  =  DM * (VA*YI(4,5) + YI(5,5))\r\n      D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6))\r\n      D(9,5)   =  DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5\r\n     1                 ,7))\r\n      D(10,5)  =  DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(6,6)   =  DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11))  +\r\n     1            DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9))\r\n      D (7,6)  =  DM * (VA*YI(4,6) + YI(5,6))\r\n      D(8,6)   =  DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7))\r\n      D(9,6)   =  DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(10,6)  =  DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5\r\n     1                 ,9))\r\n      D (7,7)  =  DM * YI(6,1)\r\n      D (8,7)  =  DM * (V*YI(4,1) + YI(6,2))\r\n      D (9,7)  =  DM * (2.*V*YI(4,2) + YI(6,3))\r\n      D (10,7) =  DM * (3.*V*YI(4,3) + YI(6,4))\r\n      D(8,8)   =  DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3))\r\n      D(9,8)   =  DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))\r\n      D(10,8)  =  DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5))\r\n      D(9,9)   =  DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(10,9)  =  DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(10,10) =  DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      DO 147 I=1,10\r\n      DO 147 J=1,I\r\n      D(J,I)  = D(I,J)\r\n  147 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dmatrx.f",
    "content": "      SUBROUTINE DMATRX (D,V,C,CA, CA2, VA, DM, DB, YI)\r\nC\r\nC\r\nC THIS ROUTINE COMPUTES THE STIFFNESS MATRIX IN FIELD COORDINATES FOR\r\nC THE TOROIDAL RING\r\nC\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN DMATRX ROUTINE.\r\nC\r\nC\r\n      DOUBLE PRECISION   D,   V,   C,   CA,  CA2, VA,  DM,  DB,  YI\r\n      DIMENSION  D (10,10) , YI (6,11)\r\nC\r\nC     ------------------------------------------------------------------\r\nC\r\n      D(1,1)   =  DM * (CA2*YI(1,1) + 2.*VA*YI(2,1) + YI(3,1))\r\n      D(2,1)   =  DM * (CA2*YI(1,2) + 2.*VA*YI(2,2) + YI(3,2))\r\n      D(3,1)   =  DM * (CA2*YI(1,3) + 2.*VA*YI(2,3) + YI(3,3))\r\n      D(4,1)   =  DM * (CA2*YI(1,4) + 2.*VA*YI(2,4) + YI(3,4))\r\n      D(5,1)   =  DM * (CA2*YI(1,5) + 2.*VA*YI(2,5) + YI(3,5))\r\n      D(6,1)   =  DM * (CA2*YI(1,6) + 2.*VA*YI(2,6) + YI(3,6))\r\n      D(7,1)   =  DM * (VA*YI(4,1)  +  YI(5,1))\r\n      D(8,1)   =  DM * (CA*YI(1,1)  +  VA*YI(4,2) + V*YI(2,1) + YI(5,2))\r\n      D(9,1)   =  DM * (2.*CA*YI(1,2) + VA*YI(4,3) + 2.*V*YI(2,2) + YI(5\r\n     1                 ,3))\r\n      D(10,1)  =  DM * (3.*CA*YI(1,3) + VA*YI(4,4) + 3.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(2,2)   =  DB * YI(6,1)  +  D(3,1)\r\n      D(3,2)   =  DB * (2.*V*YI(4,1) + 2.*YI(6,2))  +  D(4,1)\r\n      D(4,2)   =  DB * (6.*V*YI(4,2) + 3.*YI(6,3))  +  D(5,1)\r\n      D(5,2)   =  DB * (12.*V*YI(4,3) + 4.*YI(6,4)) +  D(6,1)\r\n      D(6,2)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * (20.*V*YI(4,4) + 5.*YI(6,5))\r\n      D (7,2)  =  DM * (VA*YI(4,2) + YI(5,2))\r\n      D(8,2)   =  DM * (CA*YI(1,2) + VA*YI(4,3) + V*YI(2,2) + YI(5,3))\r\n      D(9,2)   =  DM * (2.*CA*YI(1,3) + VA*YI(4,4) + 2.*V*YI(2,3) + YI(5\r\n     1                 ,4))\r\n      D(10,2)  =  DM * (3.*CA*YI(1,4) + VA*YI(4,5) + 3.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(3,3)   =  DB * 4.*(C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3)) + D(5,1)\r\n      D(4,3)   =  DB * 6.*(2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))+D(6,1)\r\n      D(5,3)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1        DB * 2.*(12.*C*YI(1,3)+ 16.*V*YI(4,4)+ 4.*YI(6,5))\r\n      D(6,3)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 10.*(4.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D (7,3)  =  DM * (VA*YI(4,3) + YI(5,3))\r\n      D(8,3)   =  DM * (CA*YI(1,3) + VA*YI(4,4) + V*YI(2,3) + YI(5,4))\r\n      D(9,3)   =  DM * (2.*CA*YI(1,4) + VA*YI(4,5) + 2.*V*YI(2,4) + YI(5\r\n     1                 ,5))\r\n      D(10,3)  =  DM * (3.*CA*YI(1,5) + VA*YI(4,6) + 3.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(4,4)   =  DM * (CA2*YI(1,7) + 2.*VA*YI(2,7) + YI(3,7))  +\r\n     1            DB * 9.*(4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(5,4)   =  DM * (CA2*YI(1,8) + 2.*VA*YI(2,8) + YI(3,8))  +\r\n     1            DB * 12.*(6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(6,4)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 15.*(8.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D (7,4)  =  DM * (VA*YI(4,4) + YI(5,4))\r\n      D(8,4)   =  DM * (CA*YI(1,4) + VA*YI(4,5) + V*YI(2,4) + YI(5,5))\r\n      D(9,4)   =  DM * (2.*CA*YI(1,5) + VA*YI(4,6) + 2.*V*YI(2,5) + YI(5\r\n     1                 ,6))\r\n      D(10,4)  =  DM * (3.*CA*YI(1,6) + VA*YI(4,7) + 3.*V*YI(2,6) +\r\n     1                 YI(5,7))\r\n      D(5,5)   =  DM * (CA2*YI(1,9) + 2.*VA*YI(2,9) + YI(3,9))  +\r\n     1            DB * 16.*(9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      D(6,5)   =  DM * (CA2*YI(1,10) + 2.*VA*YI(2,10) + YI(3,10)) +\r\n     1            DB * 20.*(12.*C*YI(1,6) + 7.*V*YI(4,7)  + YI(6,8))\r\n      D (7,5)  =  DM * (VA*YI(4,5) + YI(5,5))\r\n      D(8,5) = DM * (CA*YI(1,5) + VA*YI(4,6) + V*YI(2,5) + YI(5,6))\r\n      D(9,5)   =  DM * (2.*CA*YI(1,6) + VA*YI(4,7) + 2.*V*YI(2,6) + YI(5\r\n     1                 ,7))\r\n      D(10,5)  =  DM * (3.*CA*YI(1,7) + VA*YI(4,8) + 3.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(6,6)   =  DM * (CA2*YI(1,11) + 2.*VA*YI(2,11) + YI(3,11))  +\r\n     1            DB * 25.*(16.*C*YI(1,7) + 8.*V*YI(4,8) + YI(6,9))\r\n      D (7,6)  =  DM * (VA*YI(4,6) + YI(5,6))\r\n      D(8,6)   =  DM * (CA*YI(1,6) + VA*YI(4,7) + V*YI(2,6) + YI(5,7))\r\n      D(9,6)   =  DM * (2.*CA*YI(1,7) + VA*YI(4,8) + 2.*V*YI(2,7) + YI(5\r\n     1                 ,8))\r\n      D(10,6)  =  DM * (3.*CA*YI(1,8) + VA*YI(4,9) + 3.*V*YI(2,8) + YI(5\r\n     1                 ,9))\r\n      D (7,7)  =  DM * YI(6,1)\r\n      D (8,7)  =  DM * (V*YI(4,1) + YI(6,2))\r\n      D (9,7)  =  DM * (2.*V*YI(4,2) + YI(6,3))\r\n      D (10,7) =  DM * (3.*V*YI(4,3) + YI(6,4))\r\n      D(8,8)   =  DM * (C*YI(1,1) + 2.*V*YI(4,2) + YI(6,3))\r\n      D(9,8)   =  DM * (2.*C*YI(1,2) + 3.*V*YI(4,3) + YI(6,4))\r\n      D(10,8)  =  DM * (3.*C*YI(1,3) + 4.*V *YI(4,4)+ YI(6,5))\r\n      D(9,9)   =  DM * (4.*C*YI(1,3) + 4.*V*YI(4,4) + YI(6,5))\r\n      D(10,9)  =  DM * (6.*C*YI(1,4) + 5.*V*YI(4,5) + YI(6,6))\r\n      D(10,10) =  DM * (9.*C*YI(1,5) + 6.*V*YI(4,6) + YI(6,7))\r\n      DO 147 I=1,10\r\n      DO 147 J=1,I\r\n      D(J,I)  = D(I,J)\r\n  147 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dmfgr.f",
    "content": "      SUBROUTINE DMFGR (A,M,N,EPS,IRANK,IROW,ICOL)\r\nC\r\nC     DMFGR CALCULATES THE RANK AND LINEARLY INDEPENDENT ROWS AND\r\nC     COLUMNS OF A M BY N MATRIX.  IT EXPRESSES A SUBMATRIX OF\r\nC     MAXIMAL RANK AS A PRODUCT OF TRIANGULAR FACTORS, NONBASIC ROWS\r\nC     IN TERMS OF BASIC ONES AND BASIC VARIABLES IN TERMS OF FREE ONES\r\nC\r\nC     DIMENSIONED DUMMY VARIABLES\r\nC\r\n      DIMENSION A(1),IROW(1),ICOL(1)\r\n      DOUBLE PRECISION A,PIV,HOLD,SAVE\r\nC\r\nC     TEST OF SPECIFIED DIMENSIONS\r\nC\r\n      IF (M) 20,20,10\r\n   10 IF (N) 20,20,40\r\n   20 IRANK = -1\r\n   30 RETURN\r\nC\r\nC     RETURN IN CASE OF FORMAL ERRORS\r\nC\r\nC     INITIALIZE COLUMN INDEX VECTOR\r\nC     SEARCH FIRST PIVOT ELEMENT\r\nC\r\n   40 IRANK = 0\r\n      PIV = 0.D0\r\n      JJ  = 0\r\n      DO 60 J = 1,N\r\n      ICOL(J) = J\r\n      DO 60 I = 1,M\r\n      JJ  = JJ + 1\r\n      HOLD = A(JJ)\r\n      IF (DABS(PIV)-DABS(HOLD)) 50,60,60\r\n   50 PIV = HOLD\r\n      IR  = I\r\n      IC  = J\r\n   60 CONTINUE\r\nC\r\nC     INITIALIZE ROW INDEX VECTOR\r\nC\r\n      DO 70 I = 1,M\r\n   70 IROW(I) = I\r\nC\r\nC     SET UP INTERNAL TOLERANCE\r\nC\r\n      TOL = ABS(EPS*SNGL(PIV))\r\nC\r\nC     INITIALIZE ELIMINATION LOOP\r\nC\r\n      NM = N*M\r\n      DO 210 NCOL = M,NM,M\r\nC\r\nC     TEST FOR FEASIBILITY OF PIVOT ELEMENT\r\nC\r\n      IF (ABS(SNGL(PIV))-TOL) 220,220,90\r\nC\r\nC     UPDATE RANK\r\nC\r\n   90 IRANK = IRANK + 1\r\nC\r\nC     INTERCHANGE ROWS IF NECESSARY\r\nC\r\n      JJ = IR - IRANK\r\n      IF (JJ) 120,120,100\r\n  100 DO 110 J = IRANK,NM,M\r\n      I  = J + JJ\r\n      SAVE = A(J)\r\n      A(J) = A(I)\r\n  110 A(I) = SAVE\r\nC\r\nC     UPDATE ROW INDEX VECTOR\r\nC\r\n      JJ = IROW(IR)\r\n      IROW(IR) = IROW(IRANK)\r\n      IROW(IRANK) = JJ\r\nC\r\nC     INTERCHANGE COLUMNS IF NECESSARY\r\nC\r\n  120 JJ = (IC-IRANK)*M\r\n      IF (JJ) 150,150,130\r\n  130 KK = NCOL\r\n      DO 140 J = 1,M\r\n      I  = KK + JJ\r\n      SAVE  = A(KK)\r\n      A(KK) = A(I)\r\n      KK = KK - 1\r\n  140 A(I) = SAVE\r\nC\r\nC     UPDATE COLUMN INDEX VECTOR\r\nC\r\n      JJ = ICOL(IC)\r\n      ICOL(IC) = ICOL(IRANK)\r\n      ICOL(IRANK) = JJ\r\n  150 KK = IRANK + 1\r\n      MM = IRANK - M\r\n      LL = NCOL  + MM\r\nC\r\nC     TEST FOR LAST ROW\r\nC\r\n      IF (MM) 160,270,270\r\nC\r\nC     TRANSFORM CURRENT SUBMATRIX AND SEARCH NEXT PIVOT\r\nC\r\n  160 JJ   = LL\r\n      SAVE = PIV\r\n      PIV  = 0.D0\r\n      DO 200 J = KK,M\r\n      JJ   = JJ + 1\r\n      HOLD = A(JJ)/SAVE\r\n      A(JJ)= HOLD\r\n      L    = J - IRANK\r\nC\r\nC     TEST FOR LAST COLUMN\r\nC\r\n      IF (IRANK-N) 170,200,200\r\n  170 II = JJ\r\n      DO 190 I = KK,N\r\n      II = II + M\r\n      MM = II - L\r\n      A(II) = A(II) - HOLD*A(MM)\r\n      IF (DABS(A(II))-DABS(PIV)) 190,190,180\r\n  180 PIV = A(II)\r\n      IR  = J\r\n      IC  = I\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\nC     SET UP MATRIX EXPRESSING ROW DEPENDENCIES\r\nC\r\n  220 IF (IRANK-1) 30,270,230\r\n  230 IR = LL\r\n      DO 260 J = 2,IRANK\r\n      II = J - 1\r\n      IR = IR - M\r\n      JJ = LL\r\n      DO 250 I = KK,M\r\n      HOLD = 0.D0\r\n      JJ = JJ + 1\r\n      MM = JJ\r\n      IC = IR\r\n      DO 240 L = 1,II\r\n      HOLD = HOLD + A(MM)*A(IC)\r\n      IC = IC - 1\r\n  240 MM = MM - M\r\n  250 A(MM) = A(MM) - HOLD\r\n  260 CONTINUE\r\nC\r\nC     TEST FOR COLUMN REGULARITY\r\nC\r\n  270 IF (N-IRANK) 30,30,280\r\nC\r\nC     SET UP MATRIX EXPRESSING BASIC VARIABLES IN TERMS OF FREE\r\nC     PARAMETERS (HOMOGENEOUS SOLUTION).\r\nC\r\n  280 IR = LL\r\n      KK = LL + M\r\n      DO 320 J = 1,IRANK\r\n      DO 310 I = KK,NM,M\r\n      JJ = IR\r\n      LL = I\r\n      HOLD = 0.D0\r\n      II = J\r\n  290 II = II - 1\r\n      IF (II) 310,310,300\r\n  300 HOLD = HOLD - A(JJ)*A(LL)\r\n      JJ = JJ - M\r\n      LL = LL - 1\r\n      GO TO 290\r\n  310 A(LL) = (HOLD-A(LL))/A(JJ)\r\n  320 IR = IR - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dmpalt.f",
    "content": "C*DECK,DMPALT\r\n      SUBROUTINE DMPALT (ISIZE, IOPEN      , IPTAPE)\r\nC******************************************************************\r\nC                              NOTICE                             *\r\nC                              ------                             *\r\nC                                                                 *\r\nC     THIS PROGRAM BELONGS TO RPK CORPORATION.  IT IS CONSIDERED  *\r\nC  A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES    *\r\nC  WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK.          *\r\nC******************************************************************\r\nC\r\n      INTEGER   ALTFIL, OLDALT, XALTER(2)\r\nC\r\n      DIMENSION IALTER(2), IOPEN(1), ISUBR(2), ICARD(18)\r\nC\r\n      COMMON /ALTRXX/ ALTFIL, NEWALT, NOGO\r\n      COMMON /SYSTEM/ ISYSBF, NOUT\r\n      COMMON /XRGDXX/ IDUM(115), NMDMAP\r\nC\r\n      DATA OLDALT /0/\r\n      DATA ISUBR  /4HDMPA, 4HLT  /\r\n      DATA XALTER /4HXALT, 4HER  /\r\nC\r\n      IPOINT = 1\r\n      CALL WRITE (IPTAPE, XALTER, 2, 1)\r\n      IF (NEWALT .EQ. 0) GO TO 200\r\n      N2DMAP = 2*NMDMAP\r\n      CALL SKPFIL (ALTFIL, 1)\r\n      CALL READ (*2000, *100, ALTFIL, IOPEN, ISIZE, 1, IEND)\r\n      IREQD = N2DMAP - ISIZE\r\n      CALL MESAGE (-8, IREQD, ISUBR)\r\n  100 IF (IEND .NE. N2DMAP) GO TO 2100\r\n      IPOINT = IPOINT + IEND\r\n      CALL REWIND (ALTFIL)\r\nC\r\n  200 CALL READ (*3000, *300, ALTFIL, IOPEN(IPOINT), 19, 1, IFLAG)\r\n      NWORDS = 19\r\n      LOGIC = 200\r\n      GO TO 2200\r\nC\r\n  300 IF (IFLAG .NE. 2) GO TO 400\r\n      LOGIC = 300\r\n      ASSIGN 320 TO JGOTO\r\n      GO TO 1200\r\nC\r\nC     PROCESS ALTER CARDS HERE\r\nC\r\n  320 IALTER(1) = IOPEN(IPOINT  )\r\n      IALTER(2) = IOPEN(IPOINT+1)\r\n      IF (IALTER(2).EQ.0 .OR. IALTER(2).GE.IALTER(1)) GO TO 1000\r\n      ITEMP = IALTER(2)\r\n      IALTER(2) = IALTER(1)\r\n      IALTER(1) = ITEMP\r\n      GO TO 1000\r\nC\r\n  400 IF (IFLAG .NE. 4) GO TO 500\r\n      NWORDS = 4\r\n      LOGIC = 400\r\n      IF (NEWALT .EQ. 0) GO TO 2200\r\n      LOGIC = 410\r\n      ASSIGN 420 TO JGOTO\r\n      GO TO 1200\r\nC\r\nC     PROCESS INSERT CARDS HERE\r\nC\r\n  420 IDMAP1 = IOPEN(IPOINT  )\r\n      IDMAP2 = IOPEN(IPOINT+1)\r\n      IOCCUR = IOPEN(IPOINT+2)\r\n      IOFFST = IOPEN(IPOINT+3)\r\n      ASSIGN 470 TO IGOTO\r\n      GO TO 1500\r\n  470 IALTER(1) = INUMBR\r\n      IALTER(2) = 0\r\n      GO TO 1000\r\nC\r\n  500 IF (IFLAG .NE. 5) GO TO 600\r\n      NWORDS = 5\r\n      LOGIC = 500\r\n      IF (NEWALT .EQ. 0) GO TO 2200\r\n      LOGIC = 510\r\n      ASSIGN 520 TO JGOTO\r\n      GO TO 1200\r\nC\r\nC     PROCESS DELETE CARDS WITH ONE FIELD HERE\r\nC\r\n  520 IDMAP1 = IOPEN(IPOINT  )\r\n      IDMAP2 = IOPEN(IPOINT+1)\r\n      IOCCUR = IOPEN(IPOINT+2)\r\n      IOFFST = IOPEN(IPOINT+3)\r\n      ICHECK = IOPEN(IPOINT+4)\r\n      LOGIC = 520\r\n      IF (ICHECK .NE. 0) GO TO 2300\r\n      ASSIGN 570 TO IGOTO\r\n      GO TO 1500\r\n  570 IALTER(1) = INUMBR\r\n      IALTER(2) = INUMBR\r\n      GO TO 1000\r\nC\r\n  600 IF (IFLAG .NE. 9) GO TO 700\r\n      NWORDS = 9\r\n      LOGIC = 600\r\n      IF (NEWALT .EQ. 0) GO TO 2200\r\n      LOGIC = 610\r\n      ASSIGN 620 TO JGOTO\r\n      GO TO 1200\r\nC\r\nC     PROCESS DELETE CARDS WITH TWO FIELDS HERE\r\nC\r\n  620 IDMAP1 = IOPEN(IPOINT  )\r\n      IDMAP2 = IOPEN(IPOINT+1)\r\n      IOCCUR = IOPEN(IPOINT+2)\r\n      IOFFST = IOPEN(IPOINT+3)\r\n      ICHECK = IOPEN(IPOINT+4)\r\n      LOGIC = 620\r\n      IF (ICHECK .NE. 1) GO TO 2300\r\n      ASSIGN 670 TO IGOTO\r\n      GO TO 1500\r\n  670 IALTER(1) = INUMBR\r\n      IDMAP1 = IOPEN(IPOINT+5)\r\n      IDMAP2 = IOPEN(IPOINT+6)\r\n      IOCCUR = IOPEN(IPOINT+7)\r\n      IOFFST = IOPEN(IPOINT+8)\r\n      ASSIGN 690 TO IGOTO\r\n      GO TO 1500\r\n  690 IALTER(2) = INUMBR\r\n      IF (IALTER(2).EQ.0 .OR. IALTER(2).GE.IALTER(1)) GO TO 1000\r\n      ITEMP = IALTER(2)\r\n      IALTER(2) = IALTER(1)\r\n      IALTER(1) = ITEMP\r\n      GO TO 1000\r\nC\r\nC     PROCESS DMAP STATEMENTS HERE\r\nC\r\n  700 NWORDS = IFLAG\r\n      LOGIC = 700\r\n      IF (IFLAG .NE. 18) GO TO 2200\r\n      CALL WRITE (IPTAPE, IOPEN(IPOINT), 18, 1)\r\n      GO TO 200\r\nC\r\nC     WRITE ALTER CONTROL DATA ON THE NEW PROBLEM TAPE\r\nC\r\n 1000 IF (IALTER(1) .EQ. 0) GO TO 200\r\n      IF (IALTER(1) .GT. OLDALT) GO TO 1100\r\n 1050 NOGO = 1\r\n      WRITE (NOUT, 3300) ICARD\r\n      GO TO 200\r\n 1100 IF (IALTER(2).NE.0 .AND. IALTER(1).GT.IALTER(2)) GO TO 1050\r\n      CALL WRITE (IPTAPE, IALTER, 2, 1)\r\n      OLDALT = IALTER(1)\r\n      IF (IALTER(2) .NE. 0) OLDALT = IALTER(2)\r\n      GO TO 200\r\nC\r\nC     INTERNAL SUBROUTINE TO READ IN AN ALTER CONTROL CARD IMAGE\r\nC\r\n 1200 CALL READ (*2000, *1230, ALTFIL, ICARD, 19, 1, IFLAG)\r\n      NWORDS = 19\r\n      GO TO 2200\r\n 1230 GO TO JGOTO, (320, 420, 520, 620)\r\nC\r\nC     INTERNAL SUBROUTINE TO FIND THE DMAP STATEMENT NUMBER\r\nC     FOR A DMAP STATEMENT WITH A GIVEN OCCURENCE FLAG AND\r\nC     AN OFFSET FLAG\r\nC\r\n 1500 ICOUNT = 0\r\n      DO 1600 J = 1, IEND, 2\r\n      IF (IDMAP1.NE.IOPEN(J) .OR. IDMAP2.NE.IOPEN(J+1)) GO TO 1600\r\n      ICOUNT = ICOUNT + 1\r\n      IF (ICOUNT .LT. IOCCUR) GO TO 1600\r\n      INUMBR = (J+1)/2 + IOFFST\r\n      IF (INUMBR.GE.1 .AND. INUMBR.LE.NMDMAP) GO TO 1700\r\n      NOGO = 1\r\n      INUMBR = 0\r\n      WRITE (NOUT, 3500) ICARD\r\n      GO TO 1700\r\n 1600 CONTINUE\r\n      NOGO = 1\r\n      INUMBR = 0\r\n      IF (ICOUNT .GT. 0) WRITE (NOUT, 3600) ICARD\r\n      IF (ICOUNT .EQ. 0) WRITE (NOUT, 3700) ICARD\r\n 1700 GO TO IGOTO, (470, 570, 670, 690)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 2000 CALL MESAGE (-2, ALTFIL, ISUBR)\r\n 2100 WRITE (NOUT, 4100) IEND, N2DMAP\r\n      GO TO 2900\r\n 2200 WRITE (NOUT, 4200) NWORDS, LOGIC\r\n      GO TO 2900\r\n 2300 WRITE (NOUT, 4300) LOGIC\r\n      GO TO 2900\r\n 2900 CALL MESAGE (-61, 0, 0)\r\nC\r\n 3000 RETURN\r\nC***********************************************************************\r\n 3300 FORMAT ('0*** USER FATAL MESSAGE, THE DATA ON THE ',\r\n     *        'FOLLOWING ALTER CONTROL CARD IS NOT IN PROPER ',\r\n     *        'SEQUENCE OR ORDER --'//\r\n     *        5X, 18A4)\r\n 3500 FORMAT ('0*** USER FATAL MESSAGE, ILLEGAL OFFSET FLAG ',\r\n     *         'SPECIFIED ON THE FOLLOWING ALTER CONTROL CARD --'//\r\n     *        5X, 18A4)\r\n 3600 FORMAT ('0*** USER FATAL MESSAGE, ILLEGAL OCCURENCE FLAG ',\r\n     *         'SPECIFIED ON THE FOLLOWING ALTER CONTROL CARD --'//\r\n     *        5X, 18A4)\r\n 3700 FORMAT ('0*** USER FATAL MESSAGE, NON-EXISTENT NOMINAL ',\r\n     *        'DMAP STATEMENT SPECIFIED ON THE FOLLOWING ',\r\n     *        'ALTER CONTROL CARD --'//\r\n     *        5X, 18A4)\r\n 4100 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL NUMBER OF ',\r\n     *        'WORDS (', I5, ') ENCOUNTERED IN THE SECOND ',\r\n     *        'FILE OF THE ALTER SCRATCH FILE.'/\r\n     *        '     EXPECTED NUMBER OF WORDS = ', I5)\r\n 4200 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL NUMBER OF ',\r\n     *        'WORDS (', I5, ') ENCOUNTERED WHILE READING ',\r\n     *        'A RECORD IN THE FIRST FILE OF THE ALTER SCRATCH ',\r\n     *        'FILE.'/\r\n     *        '     LOGIC ERROR NO. = ', I5)\r\n 4300 FORMAT ('0*** SYSTEM FATAL MESSAGE, ILLEGAL CONTROL WORD ',\r\n     *        'WHILE PROCESSING THE FOLLOWING ALTER CONTROL CARD'//\r\n     *        5X, 18A4)\r\nC***********************************************************************\r\nC                              NOTICE                             *\r\nC                              ------                             *\r\nC                                                                 *\r\nC     THIS PROGRAM BELONGS TO RPK CORPORATION.  IT IS CONSIDERED  *\r\nC  A TRADE SECRET AND IS NOT TO BE DIVULGED OR USED BY PARTIES    *\r\nC  WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM RPK.          *\r\nC******************************************************************\r\n      END\r\n"
  },
  {
    "path": "mis/dmpfil.f",
    "content": "      SUBROUTINE DMPFIL (IFILE,Z,LZ)\r\nC\r\nC     DUMPS A FILE ON DIAG 20 SETTING.\r\nC\r\n      INTEGER         SYSBUF,OUTPT,BUF,Z(2),FILE,NAME(2)\r\n      COMMON /SYSTEM/ SYSBUF,OUTPT\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /UNPAKX/ IOUT,IROW,NROW,INCR\r\n      DATA    NAME  / 4HDMPF,2HIL  /\r\nC\r\n    1 FORMAT (1H0,I5,10(1X,I10,1X))\r\n    2 FORMAT (1H ,5X,10(1X,1P,E11.4))\r\n    3 FORMAT (1H ,5X,10(4X,A4,4X))\r\nC\r\n      CALL SSWTCH (20,L)\r\n      IF (L .EQ. 0) RETURN\r\nC\r\n      FILE = IABS(IFILE)\r\n      BUF  = LZ - SYSBUF + 1\r\n      IF (BUF .LT. 6) GO TO 91\r\n      LCORE = (BUF-1)/5\r\n      LCORE = LCORE*5\r\n      CALL OPEN (*90,FILE,Z(BUF),RDREW)\r\n      WRITE  (OUTPT,10) FILE\r\n   10 FORMAT (14H1DUMP OF FILE ,I3)\r\n      IF (IFILE .LE. 0) GO TO 100\r\nC\r\n      IREC = 0\r\n   20 WRITE  (OUTPT,30) IREC\r\n   30 FORMAT (8H0RECORD ,I6,6X,100(1H-))\r\n   40 CALL READ (*70,*60,FILE,Z,LCORE,0,IWORDS)\r\nC\r\n      I1 = -9\r\n   50 I1 = I1 + 10\r\n      I2 = MIN0(I1+9,LCORE)\r\n      WRITE (OUTPT,1) I1,(Z(I),I=I1,I2)\r\n      WRITE (OUTPT,2)    (Z(I),I=I1,I2)\r\n      WRITE (OUTPT,3)    (Z(I),I=I1,I2)\r\n      IF (LCORE-I2) 40,40,50\r\nC\r\n   60 I1 = -9\r\n   65 I1 = I1 + 10\r\n      I2 = MIN0(I1+9,IWORDS)\r\n      WRITE (OUTPT,1) I1,(Z(I),I=I1,I2)\r\n      WRITE (OUTPT,2)    (Z(I),I=I1,I2)\r\n      WRITE (OUTPT,3)    (Z(I),I=I1,I2)\r\n      IF (IWORDS .GT. I2) GO TO 65\r\n      IREC = IREC + 1\r\n      GO TO 20\r\nC\r\n   70 Z(1) = FILE\r\n      CALL CLOSE (FILE,CLSREW)\r\n      CALL RDTRL (Z)\r\n      WRITE  (OUTPT,80) (Z(I),I=1,7)\r\n   80 FORMAT (4H0EOF ,//,8H0TRAILER  ,/,7(1X,I12 /))\r\n   90 RETURN\r\nC\r\n   91 CALL MESAGE (8,0,NAME)\r\n      GO TO 90\r\nC\r\n  100 CALL READ (*70,*101,FILE,Z,2,1,IWORDS)\r\n  101 WRITE  (OUTPT,102) Z(1),Z(2)\r\n  102 FORMAT (14H0HEADER RECORD  ,/1H0,2A4)\r\n      Z(1) = FILE\r\n      CALL RDTRL (Z)\r\n      NCOLS = Z(2)\r\n      IF (NCOLS .GT. 300) NCOLS = 100\r\n      IOUT = 1\r\n      INCR = 1\r\n      IF (NCOLS) 70,70,110\r\n  110 DO 150 J = 1,NCOLS\r\n      WRITE  (OUTPT,115) J\r\n  115 FORMAT (7H0COLUMN  ,I5)\r\n      IROW = 0\r\n      NROW = 0\r\n      CALL UNPACK (*140,FILE,Z)\r\n      WRITE  (OUTPT,118) IROW,NROW\r\n  118 FORMAT (1H+,20X,3HROW  ,I4,11H   THRU ROW   ,I5)\r\n      IF (NROW .GT. 300) NROW = 100\r\n      NELS = NROW - IROW + 1\r\n      IF (NELS .LE. 0) GO TO 150\r\n      WRITE  (OUTPT,119) (Z(K),K=1,NELS)\r\n  119 FORMAT (1P,10E13.4)\r\n      GO TO 150\r\n  140 WRITE  (OUTPT,141)\r\n  141 FORMAT (13H NULL COLUMN  )\r\n  150 CONTINUE\r\n      GO TO 70\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/dmpy.f",
    "content": "      SUBROUTINE DMPY (Z,ZD)\r\nC\r\nC     DMPY WILL PRE OR POST MULTIPLY AN ARBITRARY MATRIX BY A DIAGONAL\r\nC     MATRIX.\r\nC\r\nC     FILEA = MATRIX CONTROL BLOCK FOR DIAGONAL MATRIX.\r\nC     FILEB = MATRIX CONTROL BLOCK FOR ARBITRARY MATRIX.\r\nC     FILEC = MATRIX CONTROL BLOCK FOR PRODUCT MATRIX.\r\nC     Z     = ADDRESS OF A BLOCK OF CORE FOR WORKING SPACE. ZD IS SAME\r\nC             BLOCK.\r\nC     NZ    = LENGTH OF THIS BLOCK.\r\nC     FLAG .EQ. 0 FOR PRE-MULTIPLICATION BY DIAGONAL.\r\nC     FLAG .NE. 0 FOR POST-MULTIPLICATION BY DIAGONAL.\r\nC     SIGN .EQ. +1 FOR POSITIVE PRODUCT.\r\nC     SIGN .EQ. -1 FOR NEGATIVE PRODUCT.\r\nC\r\nC\r\n      INTEGER          FILEA ,FILEB ,FILEC ,FLAG  ,SIGN  ,SYSBUF,EOL   ,\r\n     1                 EOR   ,TYPE  ,ONE   ,Z(1)  ,RD    ,RDREW ,WRT   ,\r\n     2                 BUF1  ,BUF2  ,CLSREW,RCC   ,PTYPE ,QTYPE ,WRTREW\r\n      DOUBLE PRECISION ZD(1) ,AD    ,XD\r\n      DIMENSION        FILEA(7)     ,FILEB(7)     ,FILEC(7)\r\n      COMMON /DMPYX /  FILEA ,FILEB ,FILEC ,NZ    ,FLAG  ,SIGN\r\n      COMMON /NAMES /  RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /ZNTPKX/  AD (2),I     ,EOL   ,EOR\r\n      COMMON /ZBLPKX/  XD (2),IX\r\n      COMMON /UNPAKX/  TYPE  ,ONE   ,NX    ,INCR\r\n      COMMON /SYSTEM/  SYSBUF\r\nC\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      BUF1 = NZ - SYSBUF + 1\r\n      BUF2 = BUF1 - SYSBUF\r\n      ONE  = 1\r\n      INCR = 1\r\n      FILEC(2) = 0\r\n      FILEC(6) = 0\r\n      FILEC(7) = 0\r\n      NX = FILEA(3)\r\nC\r\nC     COMPUTE TYPE OF C MATRIX.\r\nC     RCC = 1 FOR REAL, = 2 FOR COMPLEX\r\nC     QTYPE = 2 FOR RDP, = 4 FOR CDP\r\nC\r\n      RCC = 0\r\n      IF (FILEA(5).GT.2 .OR. FILEB(5).GT.2) RCC = 2\r\n      QTYPE = RCC + 2\r\n      IF (RCC .EQ. 0) RCC = 1\r\n      TYPE  = QTYPE*SIGN\r\n      PTYPE = FILEC(5)\r\nC\r\nC     OPEN PRODUCT MATRIX AND WRITE HEADER RECORD.\r\nC\r\n      CALL GOPEN (FILEC(1),Z(BUF1),WRTREW)\r\nC\r\nC     UNPACK DIAGONAL MATRIX IN CORE AND OPEN ARBITRARY MATRIX.\r\nC\r\n      CALL GOPEN (FILEA(1),Z(BUF2),RDREW)\r\n      CALL UNPACK (*130,FILEA,Z)\r\n      CALL CLOSE (FILEA(1),CLSREW)\r\n      CALL GOPEN (FILEB(1),Z(BUF2),RDREW)\r\nC\r\nC     PERFORM MATRIX MULTIPLICATION.\r\nC\r\n      J  = 1\r\n   60 KR = (J-1)*RCC + 1\r\n      CALL BLDPK (QTYPE,PTYPE,FILEC(1),0,0)\r\n      CALL INTPK (*90,FILEB(1),0,QTYPE,0)\r\n   70 CALL ZNTPKI\r\n      KL = (I-1)*RCC + 1\r\n      K  = KL\r\n      IF (FLAG .NE. 0) K = KR\r\n      XD(1) = ZD(K)*AD(1)\r\n      IF (RCC .EQ. 1) GO TO 80\r\n      XD(1) = XD(1) - ZD(K+1)*AD(2)\r\n      XD(2) = ZD(K)*AD(2) + ZD(K+1)*AD(1)\r\n   80 IX = I\r\n      CALL ZBLPKI\r\n      IF (EOL .EQ. 0) GO TO 70\r\n   90 CALL BLDPKN (FILEC(1),0,FILEC)\r\n      J = J + 1\r\n      IF (J .LE. FILEB(2)) GO TO 60\r\n      GO TO 140\r\nC\r\nC     CODE FOR NULL DIAGONAL MATRIX.\r\nC\r\n  130 CALL BLDPKN (FILEC(1),0,FILEC)\r\n      IF (FILEC(2) .LT. FILEB(2)) GO TO 130\r\nC\r\nC     CLOSE FILES AND RETURN.\r\nC\r\n  140 CALL CLOSE (FILEA(1),CLSREW)\r\n      CALL CLOSE (FILEB(1),CLSREW)\r\n      CALL CLOSE (FILEC(1),CLSREW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dmpyad.f",
    "content": "      SUBROUTINE DMPYAD\r\nC\r\nC     DMPYAD IS THE DMAP DRIVER FOR MATRIX MULTIPLICATION.\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS ABOUT PREC1 IN /MPYADX/     1/91\r\nC     ACCORDING TO THE USER'S MANUAL ON P. 3.5-18\r\nC       PREC1 = 0, PERFORM ARITHMETIC IN D.P. IF A,B OR C IS IN D.P.\r\nC             = 1, PERFORM ARITHMETIC IN S.P.\r\nC             = 2, PERFORM ARITHMETIC IN D.P.\r\nC     HOWEVER, THE CODE BELOW ALWAYS SETS\r\nC       PREC1 TO 2, IF ANY OF THE A,B OR C IS IN D.P. AND 1 OTHERWISE\r\nC       IN SUBROUTINE MPYAD, PREC1 IS ALWAYS SET TO 1 FOR CDC MACHINE\r\nC\r\nC     IF ITYPE IN /BLANK/ IS 1 OR 3, MPYAD PRODUCT WILL BE OUPUT IN S.P.\r\nC     AND IN D.P. OF IT IS 2 OR 4\r\nC     IF ITYPE IS 0, MPYAD PRODUCT WILL BE IN S.P. ONLY IF ALL A, B, AND\r\nC     C MATRICES ARE IN S.P. OTHERWISE, THE PRODUCT WILL BE IN D.P.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         NAME(2)      ,DOSI(3)      ,REFUS(3)      ,\r\n     1                P(4)  ,Q(4)  ,R(4)  ,ZZ(1) ,ZZZ(1)\r\n      REAL            ALP(1),BET(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM   ,SWM\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /BLANK / T     ,SIGNAB,SIGNC ,ITYPE\r\n      COMMON /MPYADX/ A(7)  ,B(7)  ,C(7)  ,D(7)  ,NZ    ,TRNSP  ,\r\n     1                SAB   ,SC    ,PREC1 ,SCR\r\n      COMMON /DMPYX / E(7)  ,F(7)  ,G(7)  ,NZZ   ,FLAG  ,SGN\r\n      COMMON /SADDX / NOMAT ,NZZZ  ,MCBS(67)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ZZ(1),Z(1))\r\n      EQUIVALENCE     (ZZZ(1),Z(1))\r\n      EQUIVALENCE     (KSYSTM(55),KPREC), (KSYSTM(2),OUTPT)\r\n      EQUIVALENCE     (MCBS( 1),P(1)   ), (MCBS( 8),TYPA  ),\r\n     1                (MCBS( 9),ALP(1) ), (MCBS(13),Q(1)  ),\r\n     2                (MCBS(20),TYPB   ), (MCBS(21),BET(1)),\r\n     3                (MCBS(61),R(1)   )\r\n      DATA    FILEA , FILEB,FILEC,FILED,SCRTCH  /\r\n     1        101   , 102  ,103  ,201  ,301     /\r\n      DATA    NAME  / 4HMPYA,4HD   /\r\n      DATA    DOSI  / 4HSING,4HDOUB,4HMLTP /, REFUS/ 2*3H   ,3HREF /\r\n      DATA    SQUARE, RECT,DIAG,SYMM,IDENT /  1,2,3,6,8  /\r\nC\r\nC\r\nC     READ TRAILERS FOR A, B AND C MATRICES.\r\nC\r\n      NZ   = KORSZ(Z)\r\n      A(1) = FILEA\r\n      CALL RDTRL (A)\r\n      IF (A(1) .NE. FILEA) GO TO 230\r\n      B(1) = FILEB\r\n      CALL RDTRL (B)\r\n      IF (B(1) .NE. FILEB) GO TO 230\r\n      C(1) = FILEC\r\n      C(5) = 0\r\n      CALL RDTRL (C)\r\n      IF (C(1) .LT. 0) C(1) = 0\r\n      D(1) = FILED\r\n      D(3) = A(3)\r\n      IF (T .NE. 0) D(3) = A(2)\r\n      D(4) = RECT\r\nC\r\nC     CHECK FOR CONFORMABLE MATRICIES\r\nC\r\n      IF (((C(2).NE.B(2) .OR.  C(3).NE.D(3)) .AND. C(1).NE.0) .OR.\r\n     1     (B(3).NE.A(2) .AND. T.EQ.0) .OR. (B(3).NE.A(3) .AND. T.NE.0))\r\n     2     CALL MESAGE (-55,0,NAME)\r\n      TRNSP = T\r\n      SAB   = SIGNAB\r\n      SC    = SIGNC\r\n      PREC  = 1\r\n      IF (ITYPE .EQ. 0) PREC = 0\r\n      IF (ITYPE.EQ.2 .OR. ITYPE.EQ.4) PREC = 2\r\n      PREC1 = MAX0(A(5),B(5),C(5))\r\n      IF (PREC1 .GT. 2) PREC1 = PREC1 - 2\r\n      IF (PREC1.LT.1 .OR. PREC1.GT.2) PREC1 = KPREC\r\n      IF (PREC.EQ.PREC1 .OR. PREC.EQ.0) GO TO 20\r\n      IF (PREC.LT.1 .OR. PREC.GT.2) PREC = 3\r\n      WRITE  (OUTPT,10) SWM,DOSI(PREC),REFUS(PREC),NAME,DOSI(PREC1)\r\n   10 FORMAT (A27,' 2430, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ',\r\n     1       2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE')\r\n      IF (PREC .NE. 3) PREC1 = PREC\r\n   20 LTYPE = PREC1\r\n      IF (A(5).EQ.3 .OR. A(5).EQ.4 .OR. B(5).EQ.3 .OR. B(5).EQ.4 .OR.\r\n     1    C(5).EQ.3 .OR. C(5).EQ.4) LTYPE = PREC1 + 2\r\n      IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 40\r\n      JJ = 1\r\n      IF (ITYPE.LT.1 .OR. ITYPE.GT.4) JJ = 3\r\n      WRITE  (OUTPT,30) SWM,ITYPE,REFUS(JJ),NAME,LTYPE\r\n   30 FORMAT (A27,' 2431, REQUESTED TYPE ',I4,2H, ,A3,'USED BY ',2A4,\r\n     1        7H. TYPE ,I4,'  IS LOGICAL CHOICE.')\r\n      IF (JJ .NE. 3) LTYPE = ITYPE\r\n   40 ITYPE = LTYPE\r\n      D(5)  = ITYPE\r\n      SCR   = SCRTCH\r\nC\r\nC     IF NEITHER A NOR B IS DIAGONAL, CALL MPYAD AND RETURN.\r\nC\r\n      IF (A(4).EQ.DIAG .OR. B(4).EQ.DIAG) GO TO 100\r\n      CALL MPYAD (Z,Z,Z)\r\n      IF (D(2) .NE. D(3)) GO TO 60\r\n      D(4) = SQUARE\r\n      IF (C(4) .EQ. 0) C(4) = DIAG\r\n      K = 0\r\n      DO 50 I = 4,21,7\r\n      J = A(I)\r\n      IF (J.NE.SYMM .AND. J.NE.DIAG .AND. J.NE.IDENT) GO TO 60\r\n      IF (J .EQ. SYMM) K = 1\r\n   50 CONTINUE\r\n      IF (K .EQ. 1) D(4) = SYMM\r\n   60 CALL WRTTRL (D)\r\n      RETURN\r\nC\r\nC     OTHERWISE, CALL DMPY FOR DIAGONAL MULTIPLICATION.\r\nC\r\n  100 DO 110 I = 1,7\r\n      E(I) = A(I)\r\n      F(I) = B(I)\r\n      IF (A(4) .EQ. DIAG) GO TO 110\r\n      E(I) = B(I)\r\n      F(I) = A(I)\r\n  110 G(I) = D(I)\r\n      NZZ  = KORSZ(ZZ)\r\n      SGN  = SIGNAB\r\n      FLAG = 0\r\n      IF (B(4) .EQ. DIAG) FLAG = 1\r\n      IF (C(1) .NE.    0) G(1) = SCRTCH\r\n      CALL DMPY (ZZ,ZZ)\r\n      IF (G(2) .NE. G(3)) GO TO 130\r\n      G(4) = SQUARE\r\n      K = 0\r\n      DO 120 I = 4,14,7\r\n      J = E(I)\r\n      IF (J.NE.SYMM .AND. J.NE.DIAG .AND. J.NE.IDENT) GO TO 130\r\n      IF (J .EQ. SYMM) K = 1\r\n  120 CONTINUE\r\n      IF (K .EQ. 1) G(4) = SYMM\r\n  130 CALL WRTTRL (G)\r\nC\r\nC     IF ADDITION REQUIRED, CALL ADD ROUTINE.\r\nC\r\n      IF (C(1) .EQ. 0) RETURN\r\n      DO 200 I = 1,7\r\n      P(I)  = G(I)\r\n      Q(I)  = C(I)\r\n  200 R(I)  = D(I)\r\n      DO 210 I = 2,4\r\n      ALP(I)= 0.0\r\n  210 BET(I)= 0.0\r\n      TYPA  = 1\r\n      ALP(1)= 1.0\r\n      TYPB  = 1\r\n      BET(1)= 1.0\r\n      IF (SIGNC .LT. 0) BET(1) =-1.0\r\n      NZZZ  = KORSZ(ZZZ)\r\n      NOMAT = 2\r\n      CALL SADD (ZZZ,ZZZ)\r\n      IF (R(2) .NE. R(3)) GO TO 230\r\n      R(4) = SQUARE\r\n      IF (P(4).EQ.SYMM .AND. (Q(4).EQ.SYMM .OR. Q(4).EQ.DIAG .OR.\r\n     1    Q(4).EQ.IDENT)) R(4) = SYMM\r\n      CALL WRTTRL (R)\r\n  230 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dnorm.f",
    "content": "      SUBROUTINE DNORM(X,MAG)\r\nC\r\nC     DOUBLE PRECISION NORMALIZATION\r\nC\r\n      DOUBLE PRECISION        X(3)     ,MAG      ,A\r\nC\r\n      MAG= 0.D0\r\n      A= X(1)*X(1) + X(2)*X(2) +X(3)*X(3)\r\n      IF (A .GT. 0.D0) MAG= DSQRT(A)\r\n      IF(MAG .EQ. 0.0D0) RETURN\r\n      X(1) = X(1) / MAG\r\n      X(2) = X(2) / MAG\r\n      X(3) = X(3) / MAG\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd.f",
    "content": "      SUBROUTINE DPD\r\nC\r\nC     DPD IS MAIN CONTROL PROGRAM FOR THE DYNAMICS POOL DISTRIBUTOR.\r\nC\r\n      INTEGER         GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL ,\r\n     1                DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1  ,\r\n     2                SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3  ,\r\n     3                BUF4  ,SYSBUF,NGRID ,EPOINT,SEQEP ,Z     ,LOADS ,\r\n     5                EQDYN ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF    ,\r\n     6                PSD   ,EIGR  ,EIGB  ,EIGC  ,SDT\r\n      DIMENSION       BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)   ,\r\n     1                NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2) ,\r\n     2                FREQ(2)   ,ZZ(1)        ,BUFR(20)     ,NOLIN(21),\r\n     3                TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)   ,\r\n     4                MSG(3)    ,EIGR(2)      ,EIGB(2)      ,EIGC(2)\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT,\r\n     1                NOTRL ,NOEED ,NOSDT ,NOUE\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED   ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,\r\n     5                MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB  ,\r\n     6                EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      EQUIVALENCE     (Z(1),ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID)\r\nC\r\nC     INITIALIZE CONTROL PARAMETERS.\r\nC\r\n      NOTFL  = -1\r\n      NODLT  = -1\r\n      NOPSDL = -1\r\n      NOFRL  = -1\r\n      NONLFT = -1\r\n      NOTRL  = -1\r\n      NOEED  = -1\r\n      NOSDT  = -1\r\n      NOUE   = -1\r\n      NOGO   =  0\r\n      INEQ   =  0\r\n      DO 10 I = 1,7\r\n   10 MCB(I) = 0\r\nC\r\nC     PERFORM BUFFER ALLOCATION\r\nC\r\n      BUF1 = KORSZ(Z) - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\nC\r\nC     IF DYNAMICS POOL IS PURGED, EXIT. OTHERWISE, EXECUTE THE PHASES\r\nC     OF DPD\r\nC\r\n      BUF(1) = DPOOL\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .NE. DPOOL) RETURN\r\n      CALL DPD1\r\n      CALL DPD2\r\n      CALL DPD3\r\n      CALL DPD4\r\n      CALL DPD5\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd1.f",
    "content": "      SUBROUTINE DPD1\r\nC\r\nC     DPD1 GENERATES THE GRID POINT LIST-DYNAMICS (GPLD),\r\nC     USET-DYNAMICS (USETD), AND THE SCALAR INDEX LIST-DYNAMICS(SILD).\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        ANDF  ,ORF\r\n      LOGICAL         NODYN ,FIRST\r\n      DIMENSION       BUF(24)  ,EPOINT(2) ,SEQEP(2)     ,MCB(7)       ,\r\n     1                NAM(2)   ,LOADS(32) ,DLOAD(2)     ,FREQ1(2)     ,\r\n     2                FREQ(2)  ,NOLIN(21) ,TIC(2)       ,\r\n     3                TSTEP(2) ,TF(2)     ,PSD(2)       ,MSG(3)       ,\r\n     4                EIGR(2)  ,EIGB(2)   ,EIGC(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT,\r\n     1                NOTRL ,NOEED ,NOSDT ,NBREP\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED   ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,\r\n     5                MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB  ,\r\n     6                EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA    ,\r\n     1                UF    ,US    ,UN    ,UG    ,UE    ,UP    ,UNE   ,\r\n     2                UFE   ,UD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT  ,KS(37),NBPW\r\n      EQUIVALENCE     (MSG(2),NGRID)\r\nC\r\nC\r\nC     SET NODYN FLAG TO TRUE IF NO DYNAMIC\r\nC\r\n      NODYN  = .FALSE.\r\n      BUF(1) =  DPOOL\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .NE. DPOOL) NODYN = .TRUE.\r\nC\r\nC     COMPUTE MAXIMUM EPOINT SIZE ALLOWED BY A COMPUTER WORD\r\nC\r\n      FIRST = .TRUE.\r\n      IF (NODYN) GO TO 1020\r\n      IMAX = 100000000\r\n      IF (NBPW .EQ. 32) IMAX =  2147493\r\n      IF (NBPW .EQ. 36) IMAX = 34359738\r\nC         2147493=2**31/1000   34359738=2**35/1000\r\n      MAXZ = IMAX\r\n      MULT = 1000\r\nC\r\nC     READ SECOND RECORD OF THE GPL INTO CORE. CREATE TABLE OF TRIPLES -\r\nC     EXTERNAL GRID NO., SEQ. NO., AND INTERNAL GRID NO.\r\nC\r\nC     SEQ.NO.= EXTERNAL GIRD NO. * MULT, OR RESEQUENCED GRID PT. NO.\r\nC     (A MULTIFICATION FACTOR WAS SAVED IN GPL HEADER RECORD BY GP1,\r\nC      MULT = 10,100,OR 1000,  AND BY SGEN, MULT = 1000)\r\nC\r\n 1020 FILE = GPL\r\n      IF (LUSET .EQ. 0) GO TO 1023\r\n      CALL OPEN (*1023,GPL,Z(BUF1),RDREW)\r\n      CALL READ (*2002,*2001,GPL,Z(1),3,1,FALG)\r\n      CALL FWDREC (*2002,GPL)\r\n      I = 3\r\n      MULT = Z(I)\r\n      IMAX = (IMAX/MULT)*1000\r\n      MAXZ = IMAX\r\n      IGPL = 1\r\n      J = 1\r\n      I = IGPL\r\n 1021 CALL READ (*2002,*1022,GPL,Z(I),2,0,FLAG)\r\n      Z(I+2) = J\r\n      I = I + 3\r\n      J = J + 1\r\n      GO TO 1021\r\n 1022 NGPL = I - 3\r\n      CALL CLOSE (GPL,CLSREW)\r\n      GO TO 1030\r\nC\r\nC     INITIALIZE FOR CASE WHERE NO GRID OR SCALAR PTS EXIST.\r\nC\r\n 1023 I = 1\r\n      IGPL  = 1\r\n      LUSET = 0\r\nC\r\nC     READ EXTRA POINTS (IF ANY). ADD TO TABLE IN CORE.\r\nC     SET INTERNAL GRID NO. OF EXTRA PTS = 0.\r\nC\r\n 1030 IF (NODYN) GO TO 1047\r\n      FILE = DPOOL\r\n      CALL PRELOC (*2001,Z(BUF1),DPOOL)\r\n      IEP  = I\r\n      NOEP = 0\r\n      CALL LOCATE (*1045,Z(BUF1),EPOINT,FLAG)\r\n      NOEP = 1\r\n 1031 CALL READ (*2002,*1032,DPOOL,Z(I),1,0,FLAG)\r\n      IF (Z(I) .GT. MAXZ) MAXZ = Z(I)\r\n      Z(I+1) = MULT*Z(I)\r\n      Z(I+2) = 0\r\n      I = I + 3\r\n      GO TO 1031\r\n 1032 NEP  = I - 3\r\n      NGPL = NEP\r\nC\r\nC     ONE OR MORE EPOINT WITH VERY LARGE EXTERNAL ID\r\nC     FATAL IF MULTIPLIER IS 10\r\nC     IF MULT IS 1000 OR 100, TRY TO SHRINK THE GRID POINT SEQ. NO. BY\r\nC     10 OR 100 IF POSSIBLE, AND RESET MULT.\r\nC     IF IT IS NOT POSSIBLE, WE HAVE A FATAL CONDITION 2140C\r\nC\r\n      IF (MAXZ .EQ. IMAX) GO TO 1040\r\n      J = 0\r\n      IF (MULT .EQ.   10) GO TO 1037\r\n      MULT = 100\r\n      IF (MAXZ .GT. 10*IMAX) MULT = 10\r\n      IMAX = (IMAX/MULT)*1000\r\n      J = 1000/MULT\r\n      DO 1035 I = IGPL,NEP,3\r\n      IF (MOD(Z(I+1),J) .NE. 0) GO TO 1037\r\n      Z(I+1) = Z(I+1)/J\r\n 1035 CONTINUE\r\n      GO TO 1040\r\n 1037 WRITE  (IOUT,1038) UFM\r\n 1038 FORMAT (A23,' 2140C, ONE OR MORE EPOINTS WITH  EXTERNAL ID TOO ',\r\n     1       'LARGE.')\r\n      IF (J .NE. 0) WRITE (IOUT,1039)\r\n 1039 FORMAT (/5X,'SUGGESTION - RE-RUN NASTRAN JOB WITH ALL THE EPOINT',\r\n     1        ' EXTERNAL ID''S SMALLER THAN THE LARGEST GRID POINT ID',\r\n     2        /5X,'OR, REDUCE THE SEQID LEVEL IF SEQGP CARDS WERE USED',\r\n     3        '.  I.E. FROM XXX.X.X TO XXX.X OR XXX')\r\n      CALL CLOSE (DPOOL,CLSREW)\r\n      CALL MESAGE (-37,0,NAM)\r\nC\r\nC     IF EXTRA POINTS PRESENT, READ SEQEP DATA (IF ANY).\r\nC     REPLACE OLD SEQ NO WITH NEW SEQ NO.\r\nC\r\n 1040 CALL LOCATE (*1045,Z(BUF1),SEQEP,FLAG)\r\n      N1 = I\r\n      N2 = N1 + 1\r\n      IFAIL = 0\r\n 2010 CALL READ (*2002,*2020,DPOOL,Z(N2),BUF1-1,1,FLAG)\r\n      IFAIL = IFAIL + 1\r\n      GO TO 2010\r\n 2020 IF (IFAIL .EQ. 0) GO TO 2060\r\n      NWDS = (IFAIL-1)*(BUF1-1) + FLAG\r\n      WRITE  (IOUT,2040) UFM,NWDS\r\n 2040 FORMAT (A23,' 3139, UNABLE TO PROCESS SEQEP DATA IN SUBROUTINE ',\r\n     1       'DPD1 DUE TO INSUFFICIENT CORE.', //5X,\r\n     2       'ADDITIONAL CORE REQUIRED =',I10,7H  WORDS)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     CHECK FOR MULTIPLE REFERENCES TO EXTRA POINT ID NOS. AND\r\nC     SEQUENCE ID NOS. ON SEQEP CARDS\r\nC\r\n 2060 K  = N2\r\n      KK = N2 + FLAG - 1\r\n      JJ = KK - 2\r\n 2080 DO 2285 I = K,JJ,2\r\n      IF (Z(I).LT.0 .OR. I.GE.KK) GO TO 2275\r\n      II = I + 2\r\n      IFAIL = 0\r\n      DO 2270 J = II,KK,2\r\n      IF (Z(I) .NE. Z(J)) GO TO 2270\r\n      IF (IFAIL .NE.   0) GO TO 2260\r\n      IFAIL = 1\r\n      NOGO  = 1\r\n      IF (K .NE. N2) GO TO 2110\r\n      WRITE  (IOUT,2100) UFM,Z(I)\r\n 2100 FORMAT (A23,' 3140, MULTIPLE REFERENCES TO EXTRA POINT ID NO.',I9,\r\n     1       ' ON SEQEP CARDS.')\r\n      GO TO 2260\r\n 2110 IDSEQ1 = Z(I)/1000\r\n      IRMNDR = Z(I) - 1000*IDSEQ1\r\n      IF (IRMNDR.NE.0 .AND. MULT.GE.10) GO TO 2140\r\n      WRITE  (IOUT,2120) UFM,IDSEQ1\r\n 2120 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,6X,\r\n     1       'ON SEQEP CARDS.')\r\n      GO TO 2260\r\n 2140 IDSEQ2 = IRMNDR/100\r\n      IRMNDR = IRMNDR - 100*IDSEQ2\r\n      IF (IRMNDR.NE.0 .AND. MULT.GE.100) GO TO 2180\r\n      WRITE  (IOUT,2160) UFM,IDSEQ1,IDSEQ2\r\n 2160 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1       1H.,I1,6X,'ON SEQEP CARDS.')\r\n      GO TO 2260\r\n 2180 IDSEQ3 = IRMNDR/10\r\n      IRMNDR = IRMNDR - 10*IDSEQ3\r\n      IF (IRMNDR .NE. 0) GO TO 2220\r\n      WRITE  (IOUT,2200) UFM,IDSEQ1,IDSEQ2,IDSEQ3\r\n 2200 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1        1H.,I1,1H.,I1,4X,'ON SEQEP CARDS.')\r\n      GO TO 2260\r\n 2220 WRITE  (IOUT,2240) UFM,IDSEQ1,IDSEQ2,IDSEQ3,IRMNDR\r\n 2240 FORMAT (A23,' 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1        1H.,I1,1H.,I1,1H.,I1,'  ON SEQEP CARDS.')\r\n 2260 Z(J) = -Z(J)\r\n 2270 CONTINUE\r\nC\r\n 2275 IF (JJ.LT.KK .OR. MULT.EQ.1 .OR. MULT.EQ.1000) GO TO 2285\r\n      L = Z(I)\r\n      IF (MULT   .EQ.   10) GO TO 2280\r\n      IF (MOD(L,10) .NE. 0) GO TO 2276\r\n      Z(I) = L / 10\r\n      GO TO 2285\r\n 2276 IF (.NOT.FIRST) GO TO 2285\r\n      FIRST = .FALSE.\r\n      NOGO  = 1\r\n      WRITE  (IOUT,2277) UFM\r\n 2277 FORMAT (A23,' 2140B, ILLEGAL DATA IN SEQEP CARD, POSSIBLY CAUSED',\r\n     1       ' BY LARGE GRID OR SCALAR POINTS')\r\n      GO TO 2285\r\n 2280 IF (MOD(L,100) .NE. 0) GO TO 2276\r\n      Z(I) = L / 100\r\n 2285 CONTINUE\r\nC\r\n      IF (K .NE. N2) GO TO 2290\r\n      JJ = KK\r\n      K  = K + 1\r\n      GO TO 2080\r\nC\r\n 2290 DO 2300 I = N2,KK,2\r\n      IF (Z(I) .LT. 0) Z(I) = -Z(I)\r\n 2300 CONTINUE\r\n      IF (NOGO .EQ. 1) GO TO 2400\r\nC\r\nC     CHECK TO SEE IF ANY SEQUENCE ID NO. ON SEQEP CARDS IS THE SAME\r\nC     AS AN EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED\r\nC\r\n      DO 2390 I = K,KK,2\r\n      IF (Z(I) .LT. 0) GO TO 2390\r\n      IDSEQ1 = Z(I) / MULT\r\n      IRMNDR = Z(I) - MULT*IDSEQ1\r\n      IF (IRMNDR .NE. 0) GO TO 2390\r\n      DO 2320 J = N2,KK,2\r\n      IF (IDSEQ1 .EQ. Z(J)) GO TO 2390\r\n 2320 CONTINUE\r\n      DO 2340 J = 1,N1,3\r\n      IF (IDSEQ1 .EQ. Z(J)) GO TO 2360\r\n 2340 CONTINUE\r\n      GO TO 2390\r\n 2360 NOGO = 1\r\n      WRITE  (IOUT,2380) UFM,IDSEQ1\r\n 2380 FORMAT (A23,' 3142, SEQUENCE ID NO.',I6,\r\n     1       '  ON SEQEP CARDS IS THE SAME AS AN ', /5X,\r\n     2       'EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED.')\r\n 2390 CONTINUE\r\n 2400 CONTINUE\r\n      I = -1\r\n 1043 I = I + 2\r\n      IF (I .GT. FLAG) GO TO 1045\r\n      BUF(1) = Z(N2+I-1)\r\n      BUF(2) = Z(N2+I  )\r\n      DO 1041 J = IEP,NEP,3\r\n      IF (Z(J) .EQ. BUF(1)) GO TO 1042\r\n 1041 CONTINUE\r\n 1044 BUF(2) = 0\r\n      CALL MESAGE (30,64,BUF)\r\n      NOGO = 1\r\n      GO TO 1043\r\n 1042 IF (Z(J+2) .NE. 0) GO TO 1044\r\n      Z(J+1) = BUF(2)\r\n      GO TO 1043\r\n 1045 CALL CLOSE (DPOOL,CLSREW)\r\n 1047 IF (LUSET+NOEP .EQ. 0) GO TO 2004\r\nC\r\nC     IF EXTRA POINTS PRESENT, SORT THE GPL ON SEQ NO.\r\nC     REPLACE SEQ NO WITH INTERNAL GRID NO FOR DYNAMICS.\r\nC\r\n      N = NGPL + 2\r\n      IF (NOEP .NE. 0) CALL SORT (0,0,3,2,Z,N)\r\n      I   = 2\r\n      Z(I)= 1\r\n      IF (NGPL .EQ. 1) GO TO 1060\r\n      DO 1052 I = 4,NGPL,3\r\n 1052 Z(I+1) = Z(I-2) + 1\r\nC\r\nC     WRITE THE GPLD.\r\nC\r\n 1060 FILE = GPLD\r\n      CALL OPEN  (*2001,GPLD,Z(BUF1),WRTREW)\r\n      CALL FNAME (GPLD,BUF)\r\n      CALL WRITE (GPLD,BUF,2,1)\r\n      DO 1061 I = IGPL,NGPL,3\r\n 1061 CALL WRITE (GPLD,Z(I),1,0)\r\n      CALL WRITE (GPLD,0,0,1)\r\n      CALL CLOSE (GPLD,CLSREW)\r\n      MCB(1) = GPLD\r\n      MCB(2) = N/3\r\n      CALL WRTTRL (MCB)\r\n      KN= MCB(2)\r\nC\r\nC     OPEN SILD AND USETD. WRITE HEADER RECORDS.\r\nC     OPEN SIL  AND USET.  SKIP  HEADER RECORD.\r\nC     READ SIL INTO CORE.\r\nC\r\n      FILE = SILD\r\n      CALL OPEN  (*2001,SILD,Z(BUF1),WRTREW)\r\n      CALL FNAME (SILD,BUF)\r\n      CALL WRITE (SILD,BUF,2,1)\r\n      IF (LUSET .EQ. 0) GO TO 1082\r\n      FILE = SIL\r\n      CALL OPEN (*2001,SIL,Z(BUF2),RDREW)\r\n      CALL FWDREC (*2002,SIL)\r\n      ISIL = NGPL + 3\r\n      CALL READ (*2002,*1081,SIL,Z(ISIL),BUF3-ISIL,1,N)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1081 CALL CLOSE  (SIL,CLSREW)\r\n      NSIL = ISIL + N\r\n      Z(NSIL)= LUSET + 1\r\n 1082 FILE = USETD\r\n      CALL OPEN  (*2001,USETD,Z(BUF3),WRTREW)\r\n      CALL FNAME (USETD,BUF)\r\n      CALL WRITE (USETD,BUF,2,1)\r\n      IF (LUSET .EQ. 0) GO TO 1100\r\n      FILE = USET\r\n      CALL OPEN (*2001,USET,Z(BUF2),RDREW)\r\n      CALL FWDREC (*2002,USET)\r\nC\r\nC     INITIALIZE DISPLACEMENT SET BIT MASKS.\r\nC\r\n 1100 I = IGPL\r\n      J = ISIL - 1\r\n      NBREP = 0\r\n      BUF(10) = 1\r\n      DO 1101 K = 2,7\r\n 1101 MCB(K) = 0\r\n      MSKUA  = TWO(UA)\r\n      MSKUN  = TWO(UN)\r\n      MSKUF  = TWO(UF)\r\n      MSKUE  = TWO(UE)\r\n      MSKUP  = TWO(UP)\r\n      MSKUD  = TWO(UD)\r\n      MSKUNE = TWO(UNE)\r\n      MSKUFE = TWO(UFE)\r\n      MUSETD = ORF(MSKUE,ORF(MSKUNE,ORF(MSKUFE,ORF(MSKUD,MSKUP))))\r\nC\r\nC     TEST FOR CURRENT POINT IN G-SET OR IN P-SET (EXTRA POINT).\r\nC\r\n 1110 IF (Z(I+2) .EQ. 0) GO TO 1130\r\nC\r\nC     POINT IS IN G-SET - READ USET MASKS BELONGING TO POINT.\r\nC     TURN ON APPROPRIATE BITS FOR P-SET. WRITE MASKS ON USETD.\r\nC\r\n      J = J + 1\r\n      M = Z(J+1) - Z(J)\r\n      CALL READ (*2002,*2003,USET,BUF,M,0,FLAG)\r\n      DO 1121 K = 1,M\r\n      KSW = ORF(BUF(K),MSKUP)\r\n      IF (ANDF(KSW,MSKUA) .NE. 0) KSW = ORF(KSW,MSKUD )\r\n      IF (ANDF(KSW,MSKUN) .NE. 0) KSW = ORF(KSW,MSKUNE)\r\n      IF (ANDF(KSW,MSKUF) .NE. 0) KSW = ORF(KSW,MSKUFE)\r\n      MCB(5) = ORF(MCB(5),KSW)\r\n 1121 BUF(K) = KSW\r\n      CALL WRITE (USETD,BUF,M,0)\r\n      GO TO 1140\r\nC\r\nC     POINT IS AN EXTRA POINT - WRITE MASK ON USETD.\r\nC\r\n 1130 CALL WRITE (USETD,MUSETD,1,0)\r\n      MCB(5) = ORF(MCB(5),MUSETD)\r\n      M = 1\r\nC\r\nC     REPLACE INTERNAL DYNAMICS NO. WITH SILD NO. WRITE SILD ENTRY.\r\nC     REPLACE INTERNAL STATICS NO. WITH SIL NO.\r\nC\r\n 1140 Z(I+1) = BUF(10)\r\n      CALL WRITE (SILD,Z(I+1),1,0)\r\n      IF (Z(I+2) .EQ. 0) GO TO 1141\r\n      Z(I+2) = Z(J)\r\n      GO TO 1150\r\n 1141 NBREP = NBREP + 1\r\nC\r\nC     TEST FOR COMPLETION.\r\nC\r\n 1150 BUF(10) = BUF(10) + M\r\n      I = I + 3\r\n      IF (I .LE. NGPL) GO TO 1110\r\nC\r\nC     WRITE SECOND RECORD OF SILD (PAIRS OF SIL NO., SILD NO.)\r\nC\r\n      CALL WRITE (SILD,0,0,1)\r\n      CALL WRITE (USETD,0,0,1)\r\n      DO 1088 I = IGPL,NGPL,3\r\n      IF (Z(I+2) .EQ. 0) GO TO 1088\r\n      BUF(1) = Z(I+2)\r\n      BUF(2) = Z(I+1)\r\n      CALL WRITE (SILD,BUF,2,0)\r\n 1088 CONTINUE\r\nC\r\nC     CLOSE FILES AND WRITE TRAILERS.\r\nC\r\n      CALL CLOSE (SILD ,CLSREW)\r\n      CALL CLOSE (USETD,CLSREW)\r\n      MCB(1) = SILD\r\n      LUSETD = LUSET + NBREP\r\n      MCB(2) = LUSETD\r\n      MCB(3) = NBREP\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = USETD\r\n      CALL WRTTRL (MCB)\r\n      MCB(5) = 0\r\n      CALL CLOSE (USET,CLSREW)\r\nC\r\nC     REPLACE SIL NO. IN TABLE WITH CODED SILD NO.\r\nC     THEN SORT TABLE ON EXTERNAL GRID NO.\r\nC\r\n      Z(NGPL+4) = LUSETD + 1\r\n      DO 1091 I = IGPL,NGPL,3\r\n      J = 1\r\n      IF (Z(I+4)-Z(I+1) .NE. 1) GO TO 1091\r\n      J = 2\r\n      IF (Z(I+2) .EQ. 0) J = 3\r\n 1091 Z(I+2) = 10*Z(I+1) + J\r\n      CALL SORT (0,0,3,1,Z(IGPL),NGPL-IGPL+3)\r\nC\r\nC     WRITE EQDYN DATA BLOCK. FIRST RECORD IS PAIRS OF EXTERNAL GRID NO,\r\nC     SILD NO. SECOND RECORD IS PAIRS OF EXTERNAL GRID NO., CODED SILD\r\nC     NO.\r\nC\r\n      FILE = EQDYN\r\n      CALL OPEN  (*2001,EQDYN,Z(BUF1),WRTREW)\r\n      CALL FNAME (EQDYN,BUF)\r\n      CALL WRITE (EQDYN,BUF,2,1)\r\n      DO 1094 I = IGPL,NGPL,3\r\n 1094 CALL WRITE (EQDYN,Z(I),2,0)\r\n      CALL WRITE (EQDYN,0,0,1)\r\n      DO 1095 I = IGPL,NGPL,3\r\n      BUF(1) = Z(I  )\r\n      BUF(2) = Z(I+2)\r\n 1095 CALL WRITE (EQDYN,BUF,2,0)\r\n      CALL WRITE (EQDYN,0,0,1)\r\n      CALL CLOSE (EQDYN,CLSREW)\r\n      MCB(1) = EQDYN\r\n      MCB(2) = KN\r\n      CALL WRTTRL (MCB)\r\n      NEQDYN = 2*KN - 1\r\n      IF (NBREP .EQ. 0) NBREP = -1\r\n      RETURN\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2001 N = -1\r\n      GO TO 2005\r\n 2002 N = -2\r\n      GO TO 2005\r\n 2003 N = -3\r\n      GO TO 2005\r\n 2004 N = -30\r\n      FILE = 109\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd2.f",
    "content": "      SUBROUTINE DPD2\r\nC\r\nC     DPD2 ASSEMBLES THE DYNAMIC LOADS TABLE (DLT).\r\nC\r\n      INTEGER         GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL ,\r\n     1                DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1  ,\r\n     2                SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3  ,\r\n     3                BUF4  ,FLAG  ,FILE  ,EPOINT,SEQEP ,Z     ,LOADS ,\r\n     5                SDT   ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF    ,\r\n     6                PSD   ,EIGR  ,EIGB  ,EIGC  ,NGRID ,EQDYN ,SCR   ,\r\n     7                BUFX\r\n      DIMENSION       BUF(24)      ,EPOINT(2)    ,SEQEP(2)     ,MCB(7),\r\n     1                NAM(2),LOADS(32)    ,DLOAD(2)     ,FREQ1(2)     ,\r\n     2                FREQ(2)      ,ZZ(1) ,BUFR(20)     ,NOLIN(21)    ,\r\n     3                TIC(2),TSTEP(2)     ,TF(2) ,PSD(2),MSG(3),EIGR(2)\r\n     4,               EIGB(2)      ,EIGC(2)      ,SCR(4),BUFX(3)\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT,\r\n     1                NOTRL ,NOEED ,NOSDT ,NOUE\r\n      COMMON /SYSTEM/ IDUMMY(55)   ,ITHRML\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED   ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,MSG   ,\r\n     5                TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB  ,EIGC  ,\r\n     6                MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),ZZ(1)), (BUF(1),BUFR(1)), (MSG(2),NGRID),\r\n     1                (SCR1,SCR(1)),(BUF2 ,BUFX(1))\r\nC\r\nC     OPEN DYNAMICS POOL. SET POINTERS TO LOOP THRU DAREA, DELAY\r\nC     AND DPHASE TABLES.\r\nC\r\n      FILE = DPOOL\r\n      CALL PRELOC (*2001,Z(BUF1),DPOOL)\r\n      II  = 1\r\n      III = 1\r\n      ITABL = NEQDYN + 2\r\n      L   = 2\r\n      J   = BUF4 - 1\r\n      MSG(1) = 66\r\nC\r\nC     LOCATE CARD TYPE. IF PRESENT--\r\nC     STORE POINTER TO 1ST TABLE NO. IN LOADS TABLE, OPEN SCRATCH FILE\r\nC     FOR TABLES, SET ID = 0.\r\nC\r\n 1110 CALL LOCATE (*1141,Z(BUF1),LOADS(II),FLAG)\r\n      LOADS(II+2) = J\r\n      FILE = SCR(III)\r\n      CALL OPEN (*2001,FILE,Z(BUF2),WRTREW)\r\n      ID   = 0\r\nC\r\nC     READ A CARD. IF TABLE NO. IS DIFFERENT, STORE TABLE NO. IN TABLE\r\nC     LIST.  IF NOT FIRST CARD, SORT TABLE ON SIL NO. AND WRITE ON\r\nC     SCRATCH FILE.\r\nC\r\n 1120 CALL READ (*2002,*1140,DPOOL,BUF,4,0,FLAG)\r\n      IF (BUF(1) .EQ. ID) GO TO 1130\r\n      IF (ID .EQ. 0) GO TO 1122\r\n      N = I - ITABL\r\n      CALL SORT (0,0,2,1,Z(ITABL),N)\r\n      CALL WRITE (FILE,Z(ITABL),N,1)\r\n 1122 ID = BUF(1)\r\n      Z(J) = ID\r\n      J = J - 1\r\n      I = ITABL\r\n      MSG(3) = ID\r\nC\r\nC     CONVERT POINT AND COMPONENT TO SIL NO.\r\nC     STORE SIL NO. AND VALUE IN CORE.\r\nC\r\n 1130 CALL DPDAA\r\n      Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(4)\r\n      I = I + 2\r\n      IF (I .LT. J) GO TO 1120\r\n      CALL MESAGE (-8,0,NAM)\r\nC\r\nC     HERE WHEN LAST CARD OF CURRENT TYPE HAS BEEN READ--\r\nC     SORT AND WRITE LAST RECORD. CLOSE SCRATCH FILE.  STORE\r\nC     NUMBER OF TABLES IN TABLE LIST. TEST FOR ALL CARD TYPES PROCESSED.\r\nC\r\n 1140 N = I - ITABL\r\n      CALL SORT (0,0,2,1,Z(ITABL),N)\r\n      CALL WRITE (FILE,Z(ITABL),N,1)\r\n      CALL CLOSE (FILE,CLSREW)\r\n      LOADS(II+3) = LOADS(II+2) - J\r\n 1141 II  = II  + 4\r\n      III = III + 1\r\n      IF (III .LE. 3) GO TO 1110\r\nC\r\nC     SET POINTERS TO LOOP THRU RLOAD1,2 AND TLOAD1,2 CARDS\r\nC\r\n      NCORE = J\r\n      J     = 1\r\n      III   = 1\r\n      INEQ  = 0\r\nC\r\nC     LOCATE A CARD TYPE. IF PRESENT--\r\nC     READ ALL CARDS OF TYPE INTO CORE.\r\nC\r\n 1160 CALL LOCATE (*1165,Z(BUF1),LOADS(II),FLAG)\r\n      M = LOADS(II+2)\r\n 1161 Z(J) = III\r\n      CALL READ (*2002,*1165,DPOOL,Z(J+1),M,0,FLAG)\r\n      J = J + 11\r\n      IF (J .LT. NCORE) GO TO 1161\r\n      CALL MESAGE (-8,0,NAM)\r\nC\r\nC     TEST FOR ALL CARD TYPES PROCESSED.\r\nC     IF SO, SORT CARDS ON LOAD SET ID.\r\nC\r\n 1165 II  = II  + 4\r\n      III = III + 1\r\n      IF (III .LE. 4) GO TO 1160\r\n      N   = J - 1\r\n      IF (N .NE. 0) GO TO 1166\r\n      CALL CLOSE (DPOOL,CLSREW)\r\n      RETURN\r\nC\r\n 1166 CALL SORT (0,0,11,2,Z,N)\r\n      NLIST = J - 11\r\nC\r\nC     LOCATE DLOAD CARDS ON DYNAMICS POOL.\r\nC     IF PRESENT READ INTO CORE. SORT EACH DLOAD CARD ON REFERENCED SET\r\nC     ID.\r\nC\r\n      NODLD  = 0\r\n      CALL LOCATE (*1174,Z(BUF1),DLOAD,FLAG)\r\n      IDLOAD = J\r\n      I = IDLOAD\r\n      J = I\r\n 1171 CALL READ (*2002,*1174,DPOOL,Z(J+1),2,0,FLAG)\r\n      J = J + 3\r\n      NODLD = NODLD + 1\r\n 1172 CALL READ (*2002,*2003,DPOOL,Z(J),2,0,FLAG)\r\n      IF (Z(J) .EQ. -1) GO TO 1173\r\n      J = J + 2\r\n      IF (J .GE. NCORE) CALL MESAGE (-8,0,NAM)\r\n      GO TO 1172\r\n 1173 N = J - (I+3)\r\n      CALL SORT (0,0,2,2,Z(I+3),N)\r\nC\r\nC     CHECK FOR DLOAD SET ID UNIQUENESS\r\nC\r\n      DO 11731 KK = 2,N,2\r\n      JJ = I + 2 + KK\r\n      IF (KK .GE. N) GO TO 11731\r\n      IF (Z(JJ) .NE. Z(JJ+2)) GO TO 11731\r\n      NOGO = 1\r\n      MSG(2) = Z(I+1)\r\n      MSG(3) = Z(JJ)\r\n      CALL MESAGE (30,135,MSG(2))\r\n11731 CONTINUE\r\n      Z(I) = N + 2\r\n      I = J\r\n      GO TO 1171\r\n 1174 CALL CLOSE (DPOOL,CLSREW)\r\nC\r\nC     OPEN THE DLT. WRITE NAME IN HEADER RECORD.\r\nC     THEN WRITE NO. OF DLOAD CARDS FOLLOWED BY DLOAD SET IDS.\r\nC     THEN WRITE SET IDS FOR EACH RECORD OF THE DLT (FOLLOWING DLOAD\r\nC     RECORD)\r\nC\r\n      FILE = DLT\r\n      CALL OPEN (*1249,DLT,Z(BUF1),WRTREW)\r\n      CALL FNAME (DLT,BUF)\r\n      BUF(3) = NODLD\r\n      CALL WRITE (DLT,BUF,3,0)\r\n      IF (NODLD .EQ. 0) GO TO 1182\r\n      I = IDLOAD\r\n      J = 1\r\n 1181 CALL WRITE (DLT,Z(I+1),1,0)\r\n      I = I + Z(I) + 1\r\n      J = J + 1\r\n      IF (J .LE. NODLD) GO TO 1181\r\nC\r\nC     CHECK DLOAD SID  VS  RLOAD1,2 AND TLOAD1,2 FOR UNIQUENESS\r\nC\r\n      I = IDLOAD\r\n      DO 11810 JJ = 1,NODLD\r\n      ITEMP = Z(I+1)\r\n      DO 11811 KK = 1,NLIST,11\r\n      IF (ITEMP .NE. Z(KK+1)) GO TO 11811\r\n      NOGO = 1\r\n      MSG(2) = ITEMP\r\n      CALL MESAGE (30,136,MSG(2))\r\n11811 CONTINUE\r\n      I = I + Z(I) + 1\r\n11810 CONTINUE\r\n 1182 DO 1183 I = 1,NLIST,11\r\n      BUF(1) = Z(I+1)\r\nC\r\nC     CHECK FOR UNIQUE SET IDS ON TLOAD1,2 AND RLOAD1,2 CARDS  THEN WRIT\r\nC\r\n      IF (I .GE. NLIST) GO TO 1184\r\n      IF (Z(I+1) .NE. Z(I+12)) GO TO 1184\r\n      NOGO = 1\r\n      MSG(2) = ITEMP\r\n      CALL MESAGE (30,136,MSG(2))\r\n 1184 CALL WRITE (DLT,BUF,1,0)\r\n 1183 CONTINUE\r\n      CALL WRITE (DLT,0,0,1)\r\nC\r\nC     IF DLOAD CARDS PRESENT, WRITE THE DLOAD RECORD.\r\nC\r\n      IF (NODLD .EQ. 0) GO TO 1200\r\n      BUF(1) = -1\r\n      BUF(2) = -1\r\n      I = IDLOAD\r\n      J = 1\r\n 1191 N = Z(I)\r\n      CALL WRITE (DLT,Z(I+1),N,0)\r\n      CALL WRITE (DLT,BUF,2,0)\r\n      I = I + N + 1\r\n      J = J + 1\r\n      IF (J .LE. NODLD) GO TO 1191\r\n      CALL WRITE (DLT,0,0,1)\r\nC\r\nC     INITIALIZE TO LOOP THRU ALL LOAD SETS. THE REMAINDER OF THE DLT\r\nC     WILL CONSIST OF ONE LOGICAL RECORD PER LOAD SET.\r\nC\r\n 1200 I = 1\r\nC\r\nC     WRITE FIXED SECTION OF DLT RECORD.\r\nC\r\n 1205 BUF(1) = Z(I  )\r\n      BUF(2) = Z(I+2)\r\nC\r\nC     SAVE INFORCED MOTION FLAG ON TLOAD CARDS\r\nC\r\n      IF (Z(I).LT.3 .OR. Z(I).GT.4) GO TO 1206\r\n      IEMF = Z(I+4)\r\n      Z(I+4) = 0\r\n 1206 CONTINUE\r\n      CALL WRITE (DLT,BUF,2,0)\r\n      CALL WRITE (DLT,Z(I+5),6,0)\r\nC\r\nC     POSITION SCRATCH FILES TO SELECTED TABLES.\r\nC\r\n      IDAREA = 0\r\n      DO 1215 J = 1,3\r\n      BUF(2*J-1) = 16777215\r\nC                  16777215 =2**24 - 1\r\n      K = I + J\r\n      BUF(J+16) = Z(K+1)\r\n      IF (BUF(J+16) .EQ. 0) GO TO 1215\r\n      JJ = LOADS(4*J-1)\r\n      NN = LOADS(4*J  )\r\n      IF (NN .EQ. 0) GO TO 1212\r\n      DO 1211 NX = 1,NN\r\n      IF (Z(JJ) .EQ. BUF(J+16)) GO TO 1213\r\n      JJ = JJ - 1\r\n 1211 CONTINUE\r\n 1212 IF (ITHRML.NE.1 .OR. J.NE.1) GO TO 1300\r\n      IDAREA  = -1\r\n      BUF(17) = 0\r\n      GO TO 1215\r\n 1300 BUF(10) = Z(I+1)\r\n      BUF(11) = BUF(J+16)\r\n      BUF(11) = BUF(11) + 100000000*J\r\n      NOGO    = 1\r\n      CALL MESAGE (30,71,BUF(10))\r\n      BUF(J+16) = 0\r\n      GO TO 1215\r\n 1213 NN   = NX - 1\r\n      FILE = SCR(J)\r\n      IBUF = BUFX(J)\r\n      CALL OPEN (*2001,FILE,Z(IBUF),RDREW)\r\n      IF (NN .EQ. 0) GO TO 1215\r\n      DO 1214 NX = 1,NN\r\n      CALL FWDREC (*2002,FILE)\r\n 1214 CONTINUE\r\n 1215 CONTINUE\r\nC\r\nC     INITIALIZE TABLE READ.\r\nC\r\n      BUF(14) = BUF(17)\r\n      BUF(15) = BUF(18)\r\n      BUF(16) = BUF(19)\r\nC\r\nC     READ AN ENTRY FROM APPROPRIATE TABLE/S).\r\nC     IF ALL ENTRIES HAVE BEEN READ, GO TO CLOSE DLT RECORD.\r\nC\r\n 1220 DO 1222 J = 1,3\r\n      IF (ITHRML.NE.1 .OR. J.NE.1) GO TO 1320\r\n      IF (IDAREA .EQ. 0) GO TO 1320\r\n      IF (IDAREA .EQ.-2) GO TO 1221\r\n      IDAREA  = -2\r\n      BUF(1)  = 1\r\n      BUF(2)  = 0\r\n      BUF(14) = 0\r\n 1320 IF (BUF(J+13) .EQ. 0) GO TO 1222\r\n      FILE = SCR(J)\r\n      J2   = 2*J\r\n      CALL READ (*2002,*1221,FILE,BUF(J2-1),2,0,FLAG)\r\n      GO TO 1222\r\n 1221 BUF(2*J-1) = 16777215\r\n      BUF(J+13)  = 0\r\n 1222 CONTINUE\r\n      IF (BUF(1)+BUF(3)+BUF(5) .EQ. 3*16777215) GO TO 1240\r\nC\r\nC     SELECT MINIMUM SIL NO(S) AND FORMAT OUTPUT.\r\nC\r\n      DO 1231 J = 1,6\r\n 1231 BUF(J+10) = 0\r\n      BUF(7) = 1\r\n      BUF(8) = 2\r\n      BUF(9) = 3\r\n      IF (BUF(1) .GT. BUF(3)) GO TO 1232\r\nC\r\nC     1 .LE. 2--COMPARE 2 TO 3. IF 2 .GT. 3, SWITCH 2 AND 3.\r\nC\r\n      IF (BUF(3) .LE. BUF(5)) GO TO 1234\r\n      K = BUF(8)\r\n      BUF(8) = BUF(9)\r\n      BUF(9) = K\r\n      GO TO 1233\r\nC\r\nC     1 .GT. 2--SWITCH 1 AND 2 THEN COMPARE 2 AND 3. IF 2 .GT. 3, SWITCH\r\nC\r\n 1232 K = BUF(7)\r\n      BUF(7) = BUF(8)\r\n      BUF(8) = K\r\n      IF (BUF(1) .LE. BUF(5)) GO TO 1234\r\n      K = BUF(8)\r\n      BUF(8) = BUF(9)\r\n      BUF(9) = K\r\nC\r\nC     COMPARE 1 TO 2--IF 1 .GT. 2, SWITCH 1 AND 2.\r\nC\r\n 1233 K = BUF(7)\r\n      L = BUF(8)\r\n      IF (BUF(2*K-1) .LE. BUF(2*L-1)) GO TO 1234\r\n      BUF(7) = L\r\n      BUF(8) = K\r\nC\r\nC     PICK UP 1. SET TO READ 1.\r\nC\r\n 1234 K = BUF(7)\r\n      BUF(  10) = BUF(2*K-1)\r\n      BUF(K+10) = BUF(2*K  )\r\n      BUF(K+13) = K\r\nC\r\nC     IF 1 .EQ. 2, PICK UP 2 AND SET TO READ 2.\r\nC\r\n      L = BUF(8)\r\n      IF (BUF(2*K-1) .NE. BUF(2*L-1)) GO TO 1235\r\n      BUF(L+10) = BUF(2*L)\r\n      BUF(L+13) = L\r\nC\r\nC     IF 1 .EQ. 2 .EQ. 3, PICK UP 3 AND SET TO READ 3.\r\nC\r\n      M = BUF(9)\r\n      IF (BUF(2*L-1) .NE. BUF(2*M-1)) GO TO 1235\r\n      BUF(M+10) = BUF(2*M)\r\n      BUF(M+13) = M\r\nC\r\nC     WRITE SIL NO., A, TAU, THETA. THEN GO TO READ ANOTHER TABLE\r\nC     ENTRY(S).\r\nC\r\n 1235 IF (Z(I).LT.3 .OR. Z(I).GT.4) GO TO 1236\r\n      BUF(13) = IEMF\r\n 1236 CALL WRITE (DLT,BUF(10),4,0)\r\n      GO TO 1220\r\nC\r\nC     CLOSE DLT RECORD,  CLOSE TABLES AND TEST FOR COMPLETION OF DLT.\r\nC\r\n 1240 CALL WRITE (DLT,0,0,1)\r\n      DO 1241 J = 1,3\r\n      IF (BUF(J+16) .NE. 0) CALL CLOSE (SCR(J),CLSREW)\r\n 1241 CONTINUE\r\n      I = I + 11\r\n      IF (I .LE. NLIST) GO TO 1205\r\nC\r\nC     CLOSE DLT, WRITE TRAILER AND RETURN.\r\nC\r\n      CALL CLOSE (DLT,CLSREW)\r\n      MCB(1) = DLT\r\n      MCB(2) = DLT\r\n      CALL WRTTRL (MCB)\r\n      NODLT = 1\r\n 1249 RETURN\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2001 N= -1\r\n      GO TO 2005\r\n 2002 N= -2\r\n      GO TO 2005\r\n 2003 N= -3\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd3.f",
    "content": "      SUBROUTINE DPD3\r\nC\r\nC     DPD3 ASSEMBLES THE FREQUENCY RESPONSE LIST (FRL)\r\nC     AND THE POWER SPECTRAL DENSITY LIST (PSDL).\r\nC\r\n      INTEGER         GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL ,\r\n     1                DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1  ,\r\n     2                SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3  ,\r\n     3                BUF4  ,FLAG  ,FILE  ,EPOINT,SEQEP ,Z     ,LOADS ,\r\n     5                RANDT2,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF    ,\r\n     6                PSD   ,EIGR  ,EIGB  ,EIGC  ,NGRID ,EQDYN ,SDT   ,\r\n     7                FREQ2 ,RANDPS,RANDT1\r\n      DIMENSION       BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)   ,\r\n     1                NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2) ,\r\n     2                FREQ(2)   ,ZZ(1)        ,BUFR(20)     ,NOLIN(21),\r\n     3                TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)   ,\r\n     4                MSG(3)    ,EIGR(2)      ,EIGB(2)      ,EIGC(2)  ,\r\n     5                FREQ2(2)  ,RANDPS(2)    ,RANDT1(2)    ,RANDT2(2)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT,\r\n     1                NOTRL ,NOEED\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED   ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,\r\n     5                MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB  ,\r\n     6                EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (CONSTS(2),TWOPI), (Z(1),ZZ(1)), (BUF(1),BUFR(1)),\r\n     1                (MSG(2),NGRID)\r\n      DATA    FREQ2 , RANDPS , RANDT1 , RANDT2  /\r\n     1       1107,11, 2107,21, 2207,22, 2307,23 /\r\nC\r\nC     OPEN DYNAMICS POOL. SET POINTERS.\r\nC\r\n      FILE = DPOOL\r\n      CALL PRELOC (*2001,Z(BUF1),DPOOL)\r\n      NOFRQ1 = 0\r\n      NOFRQ2 = 0\r\n      NOFRQ  = 0\r\n      IFRQ1  = 1\r\n      IFRQ2  = IFRQ1\r\n      IFRQ   = IFRQ1\r\n      I = IFRQ1\r\n      J = I\r\nC\r\nC     READ FREQ1 CARDS. CONVERT F1 AND DELTA F TO RADIANS.\r\nC\r\n      CALL LOCATE (*1265,Z(BUF1),FREQ1,FLAG)\r\n      NOFRQ1 = 1\r\n 1261 CALL READ (*2002,*1262,DPOOL,Z(I),4,0,FLAG)\r\n      ZZ(I+1) = TWOPI*ZZ(I+1)\r\n      ZZ(I+2) = TWOPI*ZZ(I+2)\r\n      I = I + 4\r\n      GO TO 1261\r\n 1262 NFRQ1 = I - 4\r\n      IFRQ2 = I\r\n      IFRQ  = I\r\n      J = I\r\nC\r\nC     READ FREQ2 CARDS. CONVERT FREQUENCIES TO RADIANS.\r\nC\r\n 1265 CALL LOCATE (*1270,Z(BUF1),FREQ2,FLAG)\r\n      NOFRQ2 = 1\r\n 1266 CALL READ (*2002,*1267,DPOOL,Z(I),4,0,FLAG)\r\n      ZZ(I+1) = TWOPI*ZZ(I+1)\r\n      ZZ(I+2) = TWOPI*ZZ(I+2)\r\n      I = I + 4\r\n      GO TO 1266\r\n 1267 NFRQ2 = I - 4\r\n      IFRQ  = I\r\n      J = I\r\nC\r\nC     READ FREQ CARDS. CONVERT FREQUENCIES TO RADIANS.\r\nC\r\n 1270 CALL LOCATE (*1274,Z(BUF1),FREQ,FLAG)\r\n      NOFRQ = 1\r\n 1271 CALL READ (*2002,*1274,DPOOL,Z(J+1),1,0,FLAG)\r\n      J = J + 2\r\n 1272 CALL READ (*2002,*2003,DPOOL,Z(J),1,0,FLAG)\r\n      IF (Z(J) .EQ. -1) GO TO 1273\r\n      ZZ(J) = TWOPI*ZZ(J)\r\n      J = J + 1\r\n      GO TO 1272\r\n 1273 Z(I) = J - (I+1)\r\n      I = J\r\n      GO TO 1271\r\nC\r\nC     TEST FOR ANY FREQ TYPE CARDS.\r\nC\r\n 1274 NOFRL = NOFRQ1 + NOFRQ2 + NOFRQ\r\n      IF (NOFRL .NE. 0) GO TO 1280\r\n      GO TO 1276\r\n 1275 INEQ  = 0\r\n 1276 NOFRL =-1\r\n      GO TO 1310\r\nC\r\nC     COLLECT LIST OF FREQUENCY SET IDS AND POINTERS TO CARDS.\r\nC     SORT THIS LIST ON SET ID.\r\nC\r\n 1280 ILIST = J + 1\r\n      I = ILIST\r\n      IF (NOFRQ1 .EQ. 0) GO TO 1282\r\nC\r\nC     FOR FREQ1 SET STORE SET ID, POINTER TO SET, 0.\r\nC\r\n      DO 1281 K = IFRQ1,NFRQ1,4\r\n      Z(I  ) = Z(K)\r\n      Z(I+1) = K\r\n      Z(I+2) = 0\r\n 1281 I = I + 3\r\n      NLIST = I - 3\r\n 1282 IF (NOFRQ2 .EQ. 0) GO TO 1287\r\nC\r\nC     FOR FREQ2 SET STORE SET ID, POINTER TO SET, -1.\r\nC\r\n      DO 1286 K = IFRQ2,NFRQ2,4\r\n      Z(I  ) = Z(K)\r\n      Z(I+1) = K\r\n      Z(I+2) =-1\r\n 1286 I = I + 3\r\n      NLIST = I - 3\r\n 1287 IF (NOFRQ .EQ. 0) GO TO 1285\r\nC\r\nC     FOR FREQ SET STORE SET ID, POINTER TO SET, NO. OF WORDS IN SET.\r\nC\r\n      J = IFRQ\r\n 1283 N = Z(J)\r\n      IF (N .EQ. -1) GO TO 1284\r\n      J = J + 1\r\n      Z(I  ) = Z(J)\r\n      Z(I+1) = J\r\n      Z(I+2) = N\r\n      I = I + 3\r\n      J = J + N\r\n      GO TO 1283\r\n 1284 NLIST = I - 3\r\n 1285 N = I - ILIST\r\n      CALL SORT (0,0,3,1,Z(ILIST),N)\r\nC\r\nC     OPEN THE FRL. WRITE NAME + SET IDS IN HEADER.\r\nC\r\n      FILE = FRL\r\n      CALL OPEN (*1275,FRL,Z(BUF2),WRTREW)\r\n      CALL FNAME (FRL,BUF)\r\n      CALL WRITE (FRL,BUF,2,0)\r\n      DO 1291 I = ILIST,NLIST,3\r\n      BUF(1) = Z(I)\r\n 1291 CALL WRITE (FRL,BUF,1,0)\r\n      CALL WRITE (FRL,0,0,1)\r\nC\r\nC     WRITE THE FRL ONE RECORD PER FREQUENCY SET.\r\nC     CONVERT FREQ1 SETS TO LOOK LIKE FREQ SETS.\r\nC     CONVERT FREQ2 SETS TO LOOK LIKE FREQ SETS.\r\nC\r\n      DO 1308 I = ILIST,NLIST,3\r\n      J = Z(I+1)\r\n      N = Z(I+2)\r\n      IF (N) 1304,1301,1303\r\nC\r\nC     FREQ SET ---  SORT FREQUENCY LIST AND DISCARD ANY DUPLICATES.\r\nC     THEN WRITE FREQUENCIES ON THE FRL\r\nC\r\n 1303 N = N - 1\r\n      IF (N .EQ. 1) GO TO 1307\r\n      CALL SORTF (0,0,1,1,Z(J+1),N)\r\n      J1 = J + 2\r\n      JN = J + N\r\n      IX = J + 1\r\n      DO 1306 JX = J1,JN\r\n      IF (Z(JX) .EQ. Z(IX)) GO TO 1306\r\n      IX = IX + 1\r\n      Z(IX) = Z(JX)\r\n 1306 CONTINUE\r\n      N = IX - J\r\n 1307 CALL WRITE (FRL,Z(J+1),N,1)\r\n      GO TO 1308\r\nC\r\nC     FREQ1 SET-- FORM F = F0 + (I-1)*DELTA F, WHERE I = 1 THRU N+1.\r\nC\r\n 1301 F0   = ZZ(J+1)\r\n      DELF = ZZ(J+2)\r\n      N  = Z(J+3) + 1\r\n      FI = 0.\r\n      DO 1302 K = 1,N\r\n      F = F0 + FI*DELF\r\n      CALL WRITE (FRL,F,1,0)\r\n 1302 FI = FI + 1.0\r\n      CALL WRITE (FRL,0,0,1)\r\n      GO TO 1308\r\nC\r\nC     FREQ2 SET-- FORM F = F0*10.0**((I-1)*DELTA)\r\nC     WHERE DELTA = (LOG10(FE/F0))/N AND I = 1 THRU N+1.\r\nC\r\n 1304 F0 = ZZ(J+1)\r\n      FE = ZZ(J+2)\r\n      N  =  Z(J+3)\r\n      FN = N\r\n      DELTA = (ALOG10(FE/F0))/FN\r\n      FI = 0.\r\n      N  = N + 1\r\n      DO 1305 K = 1,N\r\n      F  = F0*10.0**(FI*DELTA)\r\n      CALL WRITE (FRL,F,1,0)\r\n 1305 FI = FI + 1.0\r\n      CALL WRITE (FRL,0,0,1)\r\n 1308 CONTINUE\r\nC\r\nC     CLOSE FRL AND WRITE TRAILER.\r\nC\r\n      MCB(1) = FRL\r\n      MCB(2) = (NLIST-ILIST)/3 + 1\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (FRL,CLSREW)\r\n      INEQ = 0\r\nC\r\nC     OPEN PSDL. IF PURGED, BYPASS PSDL PROCESSING.\r\nC     OTHERWISE, LOCATE RANDPS CARDS. IF ABSENT, BYPASS PSDL PROCESSING.\r\nC\r\n 1310 FILE = PSDL\r\n      CALL OPEN (*1381,PSDL,Z(BUF2),WRTREW)\r\n      CALL LOCATE (*1381,Z(BUF1),RANDPS,FLAG)\r\nC\r\nC     READ RANDPS CARDS INTO CORE.\r\nC\r\n      IRPS = 1\r\n      FILE = DPOOL\r\n      CALL READ (*2002,*1322,DPOOL,Z(IRPS),BUF2-IRPS,1,NRPS)\r\n      GO TO 2004\r\n 1322 IRT1 = IRPS + NRPS\r\n      IRT2 = IRT1\r\n      I    = IRT1\r\n      J    = I\r\n      NORT1= 0\r\n      NORT2= 0\r\nC\r\nC     READ RANDT1 CARDS.\r\nC\r\n      CALL LOCATE (*1340,Z(BUF1),RANDT1,FLAG)\r\n      CALL READ (*2002,*1332,DPOOL,Z(IRT1),BUF2-IRT1,1,NORT1)\r\n      GO TO 2004\r\n 1332 IRT2 = IRT1 + NORT1\r\n      NRT1 = IRT2 - 4\r\n      I = IRT2\r\n      J = I\r\nC\r\nC     READ RANDT2 CARDS.\r\nC\r\n 1340 CALL LOCATE (*1350,Z(BUF1),RANDT2,FLAG)\r\n      NORT2 = 1\r\n 1341 CALL READ (*2002,*1350,DPOOL,Z(J+1),1,0,FLAG)\r\n      J = J + 2\r\n 1342 CALL READ (*2002,*2003,DPOOL,Z(J),1,0,FLAG)\r\n      IF (Z(J) .EQ. -1) GO TO 1343\r\n      J = J + 1\r\n      IF (J .LT. BUF2) GO TO 1342\r\n      GO TO 2004\r\n 1343 Z(I) = J - (I+1)\r\n      I = J\r\n      GO TO 1341\r\nC\r\nC     COLLECT LIST OF RANDT1 AND RANDT2 SET IDS AND POINTERS TO DATA.\r\nC\r\n 1350 NORT = NORT1 + NORT2\r\n      IF (NORT .EQ. 0) GO TO 1360\r\n      ILIST = J + 1\r\n      I = ILIST\r\n      IF (NORT1 .EQ. 0) GO TO 1352\r\nC\r\nC     FOR RANDT1 SETS STORE SET ID, POINTER TO SET, 0.\r\nC\r\n      DO 1351 K = IRT1,NRT1,4\r\n      Z(I  ) = Z(K)\r\n      Z(I+1) = K\r\n      Z(I+2) = 0\r\n 1351 I = I + 3\r\n      NLIST = I - 3\r\n      IF (I .GT.  BUF2) GO TO 2004\r\n 1352 IF (NORT2 .EQ. 0) GO TO 1355\r\nC\r\nC     FOR RANDT2 SETS STORE SET ID, POINTER TO SET, NO. OF WORDS IN SET.\r\nC\r\n      J = IRT2\r\n 1353 N = Z(J)\r\n      IF (N .EQ. -1) GO TO 1354\r\n      Z(I  ) = Z(J)\r\n      Z(I+1) = J\r\n      Z(I+2) = N\r\n      I = I + 3\r\n      J = J + N\r\n      IF (I .LT. BUF2) GO TO 1353\r\n      GO TO 2004\r\n 1354 NLIST = I - 3\r\nC\r\nC     SORT LIST ON SET ID.\r\nC\r\n 1355 N = I - ILIST\r\n      CALL SORT (0,0,3,1,Z(ILIST),N)\r\nC\r\nC     WRITE SET IDS FOR RANDT1 AND RANDT2 CARDS IN HEADER RECORD OF\r\nC     PSDL. THEN WRITE RANDPS DATA AS FIRST RECORD OF PSDL.\r\nC\r\n 1360 CALL FNAME (PSDL,BUF)\r\n      CALL WRITE (PSDL,BUF,2,0)\r\n      IF (NORT .EQ. 0) GO TO 1362\r\n      DO 1361 I = ILIST,NLIST,3\r\n 1361 CALL WRITE (PSDL,Z(I),1,0)\r\n 1362 CALL WRITE (PSDL,0,0,1)\r\n      CALL WRITE (PSDL,Z(IRPS),NRPS,1)\r\n      IF (NORT .EQ. 0) GO TO 1380\r\nC\r\nC     WRITE ONE RECORD ON PSDL FOR EACH RANDT1 OR RANDT2 SET.\r\nC\r\n      DO 1378 I = ILIST,NLIST,3\r\n      J = Z(I+1)\r\n      N = Z(I+2)\r\n      IF (N .EQ. 0) GO TO 1372\r\nC\r\nC     RANDT2 SET--  SORT DATA AND DISCARD ANY DUPLICATES. THEN WRITE SET\r\nC\r\n      N = N - 1\r\n      IF (N .EQ. 1) GO TO 1376\r\n      CALL SORTF (0,0,1,1,Z(J+1),N)\r\n      J1 = J + 2\r\n      JN = J + N\r\n      IX = J + 1\r\n      DO 1375 JX = J1,JN\r\n      IF (Z(JX) .EQ. Z(IX)) GO TO 1375\r\n      IX = IX + 1\r\n      Z(IX) = Z(JX)\r\n 1375 CONTINUE\r\n      N = IX - J\r\n 1376 CALL WRITE (PSDL,Z(J+1),N,1)\r\n      GO TO 1378\r\nC\r\nC     RANDT1 SET-- WRITE TI = T0 + (I-1)*DELTA T, WHERE I = 1 THRU N+1.\r\nC\r\n 1372 N  = Z(J+1)\r\n      FN = N\r\n      DELT = (ZZ(J+3)-ZZ(J+2))/FN\r\n      T0 = ZZ(J+2)\r\n      FI = 0.\r\n      N  = N + 1\r\n      DO 1373 K = 1,N\r\n      TI = T0 + FI*DELT\r\n      CALL WRITE (PSDL,TI,1,0)\r\n 1373 FI = FI + 1.0\r\n      CALL WRITE (PSDL,0,0,1)\r\n 1378 CONTINUE\r\nC\r\nC     CLOSE FILES, WRITE TRAILER AND EXIT.\r\nC\r\n 1380 MCB(1) = PSDL\r\n      MCB(2) = (NLIST-ILIST)/3 + 1\r\nC      2147483647  = 2**31 - 1\r\n      IF (NORT .EQ. 0) MCB(2) = 2147483647\r\n      CALL WRTTRL (MCB)\r\n      INEQ  = 0\r\n      NOPSDL= 1\r\n 1381 CALL CLOSE (DPOOL,CLSREW)\r\n      CALL CLOSE (PSDL ,CLSREW)\r\n      RETURN\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2001 N = -1\r\n      GO TO 2005\r\n 2002 N = -2\r\n      GO TO 2005\r\n 2003 N = -3\r\n      GO TO 2005\r\n 2004 N = -8\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd4.f",
    "content": "      SUBROUTINE DPD4\r\nC\r\nC     DPD4 ASSEMBLES THE NON-LINEAR FORCING TABLE (NLFT)\r\nC     AND THE TRANSIENT RESPONSE LIST (TRL).\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL ,\r\n     1                DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1  ,\r\n     2                SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3  ,\r\n     3                BUF4  ,FLAG  ,FILE  ,EPOINT,SEQEP ,Z     ,LOADS ,\r\n     5                ANDF  ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF    ,\r\n     6                PSD   ,EIGR  ,EIGB  ,EIGC  ,NGRID ,EQDYN ,SDT   ,\r\n     7                UD    ,UE    ,TWO\r\n      DIMENSION       BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)   ,\r\n     1                NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2) ,\r\n     2                FREQ(2)   ,ZZ(1)        ,BUFR(20)     ,NOLIN(21),\r\n     3                TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)   ,\r\n     4                MSG(3)    ,EIGR(2)      ,EIGB(2)      ,EIGC(2)\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT,\r\n     1                NOTRL ,NOEED\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED   ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,\r\n     5                MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB  ,\r\n     6                EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA    ,\r\n     1                UF    ,US    ,UN    ,UG    ,UE    ,UP    ,UNE   ,\r\n     2                UFE   ,UD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1) ,ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID)\r\n      DATA            NOLINR/ 7 /\r\nC\r\nC     INITIALIZE POINTERS. OPEN SCR1. OPEN DYNAMICS POOL.\r\nC\r\n      INOLIN = NEQDYN + 2\r\n      J = INOLIN\r\n      MSKUD = TWO(UD)\r\n      MSKUE = TWO(UE)\r\n      INCORE = 0\r\n      II = 1\r\n      I  = 1\r\n      MSG(1) = 67\r\n      CALL PRELOC (*2001,Z(BUF1),DPOOL)\r\n      CALL OPEN (*2001,SCR1,Z(BUF2),WRTREW)\r\n      INEQ = 0\r\nC\r\nC     LOCATE NOLINI CARD. IF PRESENT, TURN NONLFT FLAG OFF,\r\nC\r\n 1320 CALL LOCATE (*1358,Z(BUF1),NOLIN(I),FLAG)\r\n      NONLFT = 1\r\n      NWDIN  = NOLIN(I+2)\r\nC\r\nC     READ A NOLINI CARD. CONVERT POINTS ON CARD TO SIL NOS.\r\nC     STORE DATA IN CORE. IF SPILL, WRITE ON SCRATCH FILE.\r\nC\r\n 1340 CALL READ (*2002,*1358,DPOOL,BUF,NWDIN,0,FLAG)\r\n      MSG(3) = 100000000*II + BUF(1)\r\n      IF (II .GE. 5) IF (II-6)  1350,  1354,  1342\r\nC                             NOLIN5,NFTUBE,NOLIN6\r\n      III = II\r\n      IF (BUF(6) .LT. 10) GO TO 1341\r\n      III = II + 4\r\n      BUF(6) = BUF(6) - 10\r\n 1341 IF (II .NE. 2) GO TO 1343\r\n      IF (BUF(8) .LT. 10) GO TO 1343\r\n      BUF(8) = BUF(8) - 10\r\n      IF(III.EQ.2) III = 10\r\n      IF(III.EQ.6) III = 9\r\n      GO TO 1343\r\n 1342 III = 13\r\n      IF (BUF(6) .LT. 10) GO TO 1343\r\n      III = 14\r\n      BUF(6) = BUF(6) - 10\r\n 1343 L = 2\r\n      CALL DPDAA\r\n      BUF(3) = BUF(2)\r\n      L = 5\r\n      CALL DPDAA\r\n      L = 7\r\n      IF (II .EQ. 2) CALL DPDAA\r\n      BUF(6) = BUF(7)\r\n      BUF(2) = III\r\n 1344 NN = 6\r\n 1345 IF (INCORE  .NE. 0) GO TO 1348\r\n      IF (J+NN .GE. BUF2) GO TO 1347\r\n      DO 1346 K = 1,NN\r\n      Z(J) = BUF(K)\r\n 1346 J = J + 1\r\n      GO TO 1340\r\n 1347 CALL WRITE (SCR1,Z(INOLIN),J-INOLIN,0)\r\n      INCORE = 1\r\n 1348 CALL WRITE (SCR1,BUF,NN,0)\r\n      GO TO 1340\r\nC\r\nC     SPECIAL HANDLING OF NOLIN5 CARD\r\nC     CARD FORMAT AS RECEIVED FROM IFP\r\nC        SID  AA   AB   FAB  EA/TEA  EB/TEB  ALPA/TALPA  ALPB/TALPB\r\nC        GA1  GA2  GA3  GA4  GB1     GB2     GB3         GB4\r\nC\r\nC     WE CONVERT THIS CARD INTO THE FOLLOWING 6-WORD ENTRY FORMAT\r\nC\r\nC        SID  12  SILA1  AA          SILA2  AB\r\nC        SID  12  SILA3  FAB         SIL4   0\r\nC        SID  12  SILB1  EA/TEA      SILB2  EB/TEB\r\nC        SID  12  SILB3  ALPA/TALPA  SILB4  ALPB/TALPB\r\nC\r\n 1350 L = 23\r\n      KK= 16\r\n      DO 1351 K = 1,8\r\n      BUF(L+1) = 0\r\n      BUF(L  ) = BUF(KK)\r\n      IF (BUF(L) .NE. 0) CALL DPDAA\r\n      KK = KK - 1\r\n 1351 L  = L -2\r\n      BUF(24) = BUF( 8)\r\n      BUF(22) = BUF( 7)\r\n      BUF(18) = BUF( 6)\r\n      BUF(16) = BUF( 5)\r\n      BUF(12) = 0\r\n      BUF(10) = BUF( 4)\r\n      BUF( 6) = BUF( 3)\r\n      BUF( 4) = BUF( 2)\r\n      BUF( 3) = BUF( 9)\r\n      BUF( 5) = BUF(11)\r\n      BUF( 9) = BUF(13)\r\n      BUF(11) = BUF(15)\r\n      BUF(17) = BUF(19)\r\n      DO 1352 K = 1,24,6\r\n      BUF(K  ) = BUF(1)\r\n 1352 BUF(K+1) = 12\r\n      NN = 24\r\n      GO TO 1345\r\nC\r\n 1354 L = 7\r\n      BUF(7) = BUF(2)\r\n      BUF(8) = 1\r\n      CALL DPDAA\r\n      BUF(3) = BUF(7)\r\n      BUF(7) = BUF(3)\r\n      BUF(8) = 1\r\n      CALL DPDAA\r\n      BUF(5) = BUF(7)\r\n      BUF(6) = BUF(5)\r\n      BUF(2) = 11\r\n      MSG(3) = BUF(1)\r\n      GO TO 1344\r\nC\r\nC     HERE WHEN ALL CARDS OF CURRENT TYPE HAVE BEEN READ.\r\nC     TEST FOR ALL CARDS READ.\r\nC\r\n 1358 I  = I + 3\r\n      II = II+ 1\r\n      IF (II .LE. NOLINR) GO TO 1320\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      IF (NONLFT .EQ. -1) GO TO 1400\r\nC\r\nC     SORT THE DATA ON SET ID.\r\nC\r\n      IF (INCORE .NE. 0) GO TO 1362\r\n      NNOLIN = J - 6\r\n      N = J - INOLIN\r\n      GO TO 1364\r\n 1362 CALL OPEN (*2001,SCR1,Z(BUF2),RDREW)\r\n      CALL READ (*2002,*1363,SCR1,Z,BUF1,1,N)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1363 CALL CLOSE (SCR1,CLSREW)\r\n      INOLIN = 1\r\n      NNOLIN = N - 5\r\n 1364 CALL SORT (0,0,6,1,Z(INOLIN),N)\r\nC\r\nC     READ USETD INTO CORE.\r\nC\r\n      FILE = USETD\r\n      CALL OPEN (*2001,USETD,Z(BUF2),RDREW)\r\n      CALL FWDREC (*2002,USETD)\r\n      IUSETD = NNOLIN + 7\r\n      CALL READ (*2002,*1365,USETD,Z(IUSETD),BUF2-IUSETD,1,N)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1365 CALL CLOSE (USETD,CLSREW)\r\nC\r\nC     OPEN THE NLFT. WRITE SET IDS IN HEADER RECORD.\r\nC\r\n      FILE = NLFT\r\n      CALL OPEN (*1392,NLFT,Z(BUF2),WRTREW)\r\n      CALL FNAME (NLFT,BUF)\r\n      CALL WRITE (NLFT,BUF,2,0)\r\n      Z(NNOLIN+6) = 0\r\n      DO 1371 I = INOLIN,NNOLIN,6\r\n      IF (Z(I+6) .NE. Z(I)) CALL WRITE (NLFT,Z(I),1,0)\r\n 1371 CONTINUE\r\n      CALL WRITE (NLFT,0,0,1)\r\nC\r\nC     WRITE ONE RECORD PER SET. WITHIN EACH SET, SORT DATA ON SIL NO.\r\nC     CONVERT SIL NOS. TO SIL NOS. IN UD AND UE SETS\r\nC\r\n      I = INOLIN\r\n 1381 J = I\r\n 1382 IF (Z(I+6) .NE. Z(I)) GO TO 1383\r\n      I = I + 6\r\n      GO TO 1382\r\n 1383 N = I + 6 - J\r\nC\r\nC ... THE FOLLOWING SORT WAS REMOVED DUE TO THE INSTALLATION OF NOLIN5\r\nC     CALL SORT (0,0,6,3,Z(J),N)\r\nC\r\nCWKBR SPR94005 6/94   DO 1387 KC = J,I,6                      \r\n      DO 1387 K = J,I,6                \r\n      BUF(1) = Z(K+1)\r\n      BUF(2) = Z(K+2)\r\n      BUF(4) = Z(K+3)\r\n      BUF(5) = Z(K+4)\r\n      BUF(8) = Z(K+5)\r\n      BUF(9) = 0\r\n      DO 1386 KK = 2,8,3\r\n      IF (KK.GE.8 .AND. BUF(1).NE.2 .AND. BUF(1).NE.6 .AND. BUF(1).NE.9\r\n     1   .AND.  BUF(1).NE.10.AND.KK.EQ.8) GO TO 1386\r\n      K1 = 0\r\n      K2 = 0\r\n      NUSETD = IUSETD + BUF(KK) - 1\r\n      IF (NUSETD .LT. IUSETD) GO TO 1385\r\n      DO 1384 KKK = IUSETD,NUSETD\r\n      BUF(10) = Z(KKK)\r\n      IF (ANDF(BUF(10),MSKUD) .NE. 0) K1 = K1 + 1\r\n      IF (ANDF(BUF(10),MSKUE) .NE. 0) K2 = K2 + 1\r\n 1384 CONTINUE\r\n 1385 BUF(KK  ) = K1\r\n      BUF(KK+1) = K2\r\n      IF (NUSETD .LT. IUSETD) GO TO 1386\r\n      IF (ANDF(BUF(10),MSKUE) .EQ. 0) BUF(KK+1) = 0\r\n      IF (ANDF(BUF(10),MSKUD) .NE. 0) GO TO 1386\r\n      NOGO = 1\r\n      BUF(1) = Z(K)\r\n      BUF(2) = K1\r\n      CALL MESAGE (30,93,BUF)\r\n 1386 CONTINUE\r\n      BUF(7) = BUF(8)\r\n      BUF(8) = BUF(9)\r\n      CALL WRITE (NLFT,BUF,8,0)\r\n 1387 CONTINUE\r\n      CALL WRITE (NLFT,0,0,1)\r\n      I = I + 6\r\n      IF (Z(I) .NE. 0) GO TO 1381\r\nC\r\nC     CLOSE FILE AND WRITE TRAILER.\r\nC\r\n      CALL CLOSE (NLFT,CLSREW)\r\n      MCB(1) = NLFT\r\n      MCB(2) = (NNOLIN-INOLIN)/6 + 1\r\n      CALL WRTTRL (MCB)\r\n      IF (INCORE .NE. 0) INEQ = 0\r\n      GO TO 1400\r\n 1392 NONLFT =-1\r\nC\r\nC     LOCATE TIC CARDS IN DYNAMICS POOL.\r\nC\r\n 1400 NOTRL =-1\r\n      NOTIC = 0\r\n      NOTSTP= 0\r\n      CALL LOCATE (*1500,Z(BUF1),TIC,FLAG)\r\n      NOTRL = 1\r\nC\r\nC     OPEN SCR1. INITIALIZE TO READ TIC CARDS.\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*2001,SCR1,Z(BUF2),WRTREW)\r\n      ITIC = NEQDYN + 2\r\n      NSET = BUF3 - 1\r\n      J    = NSET\r\n      L    = 2\r\n      MSG(1) = 69\r\n      ID   = 0\r\nC\r\nC     READ A TIC CARD. IF SET ID IS DIFFERENT, STORE IT IN LIST.\r\nC     IF NOT FIRST CARD, SORT DATA ON SIL NO. AND WRITE IT IN SCR1.\r\nC\r\n 1420 CALL READ (*2002,*1440,DPOOL,BUF,5,0,FLAG)\r\n      IF (BUF(1) .EQ. ID) GO TO 1430\r\n      IF (ID .EQ. 0) GO TO 1421\r\n      N = I - ITIC\r\n      CALL SORT (0,0,3,1,Z(ITIC),N)\r\n      CALL WRITE (SCR1,Z(ITIC),N,1)\r\n 1421 ID = BUF(1)\r\n      Z(J) = ID\r\n      J  = J - 1\r\n      I  = ITIC\r\n      MSG(3) = ID\r\nC\r\nC     CONVERT POINT AND COMPONENT TO SIL NO.\r\nC     STORE SIL NO., UO, VO IN CORE.\r\nC\r\n 1430 CALL DPDAA\r\n      Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(4)\r\n      Z(I+2) = BUF(5)\r\n      I = I + 3\r\n      IF (I .LT. J) GO TO 1420\r\n      CALL MESAGE (-8,0,NAM)\r\nC\r\nC     HERE WHEN LAST CARD READ - SORT AND WRITE LAST RECORD.\r\nC\r\n 1440 N = I - ITIC\r\n      CALL SORT (0,0,3,1,Z(ITIC),N)\r\n      CALL WRITE (SCR1,Z(ITIC),N,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      ISET = J + 1\r\nC\r\nC     OPEN TRL. WRITE SET IDS IN HEADER.\r\nC\r\n      FILE = TRL\r\n      CALL OPEN (*1493,TRL,Z(BUF2),WRTREW)\r\n      CALL FNAME (TRL,BUF)\r\n      N = NSET - ISET + 1\r\n      BUF(3) = N\r\n      NOTIC  = N\r\n      CALL WRITE (TRL,BUF,3,0)\r\n      I  = ISET\r\n      J  = NSET\r\n 1451 ID = Z(J)\r\n      Z(J) = Z(I)\r\n      Z(I) = ID\r\n      I  = I + 1\r\n      J  = J - 1\r\n      IF (I .LT. J) GO TO 1451\r\n      CALL WRITE (TRL,Z(ISET),N,0)\r\nC\r\nC     READ USETD INTO CORE.\r\nC     COMPUTE NO. OF POINTS UN UD SET. WRITE NO. AS LAST WORD OF HEADER.\r\nC\r\n 1460 FILE = USETD\r\n      CALL OPEN (*2001,USETD,Z(BUF3),RDREW)\r\n      CALL FWDREC (*2002,USETD)\r\n      IUSETD = 1\r\n      INEQ   = 0\r\n      CALL READ (*2002,*1462,USETD,Z(IUSETD),BUF3-IUSETD,1,N)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1462 CALL CLOSE (USETD,CLSREW)\r\n      NUSETD = IUSETD + N - 1\r\n      K = 0\r\n      DO 1463 I = IUSETD,NUSETD\r\n      IF (ANDF(Z(I),MSKUD) .NE. 0) K = K + 1\r\n 1463 CONTINUE\r\n      CALL WRITE (TRL,K,1,1)\r\n      IF (NOTIC .EQ. 0) GO TO 1481\r\nC\r\nC     READ SCR1. CONVERT SIL NO. TO AN SIL NO. IN THE D-SET.\r\nC     WRITE TRL ONE RECORD PER SET.\r\nC\r\n      FILE = SCR1\r\n      KSET = ISET\r\n      CALL OPEN (*2001,SCR1,Z(BUF3),RDREW)\r\n 1475 K = 0\r\n      IPOINT = IUSETD\r\n 1471 CALL READ (*1474,*1473,SCR1,BUF,3,0,FLAG)\r\n      NUSETD = IUSETD + BUF(1) - 1\r\n      DO 1472 I = IPOINT,NUSETD\r\n      IF (ANDF(Z(I),MSKUD) .NE. 0) K = K + 1\r\n 1472 CONTINUE\r\n      BUF(1) = K\r\n      IF (ANDF(Z(NUSETD),MSKUD) .NE. 0) GO TO 1476\r\n      NOGO = 1\r\n      CALL MESAGE (30,133,Z(KSET))\r\n 1476 CALL WRITE (TRL,BUF,3,0)\r\n      IPOINT = NUSETD + 1\r\n      GO TO 1471\r\n 1473 CALL WRITE (TRL,0,0,1)\r\n      KSET = KSET + 1\r\n      GO TO 1475\r\n 1474 CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     IF TSTEP CARDS PRESENT, COPY THEM ONTO TRL.\r\nC\r\n      CALL LOCATE (*1490,Z(BUF1),TSTEP,FLAG)\r\n 1481 CALL READ (*2002,*1483,DPOOL,BUF,1,0,FLAG)\r\n      NOTSTP = NOTSTP + 1\r\n      CALL WRITE (TRL,BUF,1,0)\r\n 1482 CALL READ (*2002,*2003,DPOOL,BUF,3,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 1485\r\n      CALL WRITE (TRL,BUF,3,0)\r\n      GO TO 1482\r\n 1485 CALL WRITE (TRL,0,0,1)\r\n      GO TO 1481\r\n 1483 CONTINUE\r\nC\r\nC     CLOSE FILES AND WRITE TRAILER.\r\nC\r\n 1490 CALL CLOSE (TRL,CLSREW)\r\n      MCB(1) = TRL\r\n      MCB(2) = NOTIC\r\n      MCB(3) = NOTSTP\r\n      CALL WRTTRL (MCB)\r\n 1492 CALL CLOSE (DPOOL,CLSREW)\r\n      RETURN\r\nC\r\n 1493 NOTRL = -1\r\n      GO TO 1492\r\nC\r\nC     HERE IF NO TIC CARDS - LOCATE TSTEP CARDS IN DYNAMICS POOL.\r\nC     IF ABSENT, RETURN. OTHERWISE OPEN TRL AND WRTIE HEADER.\r\nC\r\n 1500 CALL LOCATE (*1492,Z(BUF1),TSTEP,FLAG)\r\n      NOTRL = 1\r\n      FILE  = TRL\r\n      CALL OPEN (*1493,TRL,Z(BUF2),WRTREW)\r\n      CALL FNAME (TRL,BUF)\r\n      BUF(3) = 0\r\n      CALL WRITE (TRL,BUF,3,0)\r\n      GO TO 1460\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2001 N = -1\r\n      GO TO 2005\r\n 2002 N = -2\r\n      GO TO 2005\r\n 2003 N = -3\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpd5.f",
    "content": "      SUBROUTINE DPD5\r\nC\r\nC     DPD5 ASSEMBLEMS\r\nC     (1) THE EIGENVALUE EXTRACTION DATA BLOCK (EED), AND\r\nC     (2) THE TRANSFER FUNCTION LIST (TFL).\r\nC\r\nC     REVISED  9/1989, BY G.C./UNISYS\r\nC     NO COLUMN AND ROW WORD PACKING IN TFL FILE FOR MACHINES WITH 32\r\nC     BIT WORD SIZE, OR LESS\r\nC\r\n      EXTERNAL        ANDF  ,ORF   ,LSHIFT\r\n      LOGICAL         PACK\r\n      INTEGER         GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL  ,\r\n     1                DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1   ,\r\n     2                SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3   ,\r\n     3                BUF4  ,FLAG  ,FILE  ,EPOINT,SEQEP ,Z     ,LOADS  ,\r\n     4                ORF   ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF     ,\r\n     5                PSD   ,EIGR  ,EIGB  ,EIGC  ,NGRID ,EQDYN ,SDT    ,\r\n     6                UA    ,UD    ,EIGP  ,ANDF  ,TWO\r\n      INTEGER         IMSG(2)\r\n      DIMENSION       BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)    ,\r\n     1                NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2)  ,\r\n     2                FREQ(2)   ,ZZ(1)        ,BUFR(20)     ,NOLIN(21) ,\r\n     3                TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)    ,\r\n     4                MSG(3)    ,EIGR(2)      ,EIGB(2)      ,EIGC(2)   ,\r\n     5                EIGP(2)\r\n      COMMON /MACHIN/ MACH  ,IHALF ,JHALF\r\n      COMMON /BLANK / LUSET ,LUSETD,NOTFL ,NODLT ,NOPSDL,NOFRL ,NONLFT ,\r\n     1                NOTRL ,NOEED ,NOSDT ,NOUE\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /DPDCOM/ DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD  ,\r\n     1                DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED    ,\r\n     2                SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2   ,\r\n     3                BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN ,\r\n     4                LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO  ,\r\n     5                MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB   ,\r\n     6                EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA     ,\r\n     1                UF    ,US    ,UN    ,UG    ,UE    ,UP    ,UNE    ,\r\n     2                UFE   ,UD\r\n      COMMON /SETUP / IFILE(6)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /SYSTEM/ IBUF  ,NOUT\r\n      EQUIVALENCE     (Z(1) ,ZZ(1)), (BUF(1) ,BUFR(1)), (MSG(2),NGRID)\r\n      DATA    EIGP  / 257   ,4/\r\nC\r\nC     (1) PROCESS EDD\r\nC     ===============\r\nC\r\nC     OPEN EED AND WRITE HEADER.\r\nC     INITIALIZE TO LOOP THROUGH EIG CARDS.\r\nC\r\nC     OPEN DYNAMICS POOL.\r\nC\r\n      FILE = DPOOL\r\n      CALL PRELOC (*310,Z(BUF1),DPOOL)\r\nC\r\n      FILE = EED\r\n      CALL OPEN (*170,EED,Z(BUF2),WRTREW)\r\n      FILE = DPOOL\r\n      CALL FNAME (EED,BUF)\r\n      CALL WRITE (EED,BUF,2,1)\r\n      IN = 0\r\n      DO 20 J = 2,7\r\n   20 MCB(J) = 0\r\n      L = 12\r\n      MSG(1) = 75\r\nC\r\nC     LOCATE EIGB CARDS IN DYNAMICS POOL. IF PRESENT, TURN NOEED FLAG\r\nC     OFF, WRITE ID ON EED AND TURN ON TRAILER BIT.\r\nC\r\n      CALL LOCATE (*30,Z(BUF1),EIGB,FLAG)\r\n      NOEED = 1\r\n      CALL WRITE (EED,EIGB,2,0)\r\n      CALL WRITE (EED,0,1,0)\r\n      J = (EIGB(2)-1)/16\r\n      K =  EIGB(2) - 16*J\r\n      MCB(J+2) = ORF(MCB(J+2),TWO(K+16))\r\n      ASSIGN 23 TO NBACK\r\n      L = 12\r\n      MASK = TWO(UA)\r\nC\r\nC     READ EIGB CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE.\r\nC     WRITE DATA ON EED.\r\nC\r\n   22 CALL READ (*320,*24,DPOOL,BUF,18,0,FLAG)\r\n      GO TO 120\r\n   23 CALL WRITE (EED,BUF,12,0)\r\n      CALL WRITE (EED,BUF(14),6,0)\r\n      GO TO 22\r\n   24 CALL WRITE (EED,0,0,1)\r\nC\r\nC     LOCATE EIGC CARDS IN DYNAMICS POOL. IF PRESENT, TURN OFF NOEED\r\nC     FLAG, WRITE ID ON EED AND TURN ON TRL BIT.\r\nC\r\n   30 CALL LOCATE (*80,Z(BUF1),EIGC,FLAG)\r\n      NOEED = 1\r\n      CALL WRITE (EED,EIGC,2,0)\r\n      CALL WRITE (EED,0,1,0)\r\n      J = (EIGC(2)-1)/16\r\n      K =  EIGC(2) - 16*J\r\n      MCB(J+2) = ORF(MCB(J+2),TWO(K+16))\r\n      ASSIGN 50 TO NBACK\r\n      L = 6\r\n      MASK = TWO(UD)\r\nC\r\nC     READ EIGC CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE.\r\nC     WRITE DATA ON EED.\r\nC\r\n   40 CALL READ (*320,*70,DPOOL,BUF,10,0,FLAG)\r\n      GO TO 120\r\n   50 CALL WRITE (EED,BUF,7,0)\r\n      CALL WRITE (EED,BUF(8),3,0)\r\n   60 CALL READ  (*320,*320,DPOOL,BUF,7,0,FLAG)\r\n      CALL WRITE (EED,BUF,7,0)\r\n      IF (BUF(1) .NE. -1) GO TO 60\r\n      GO TO 40\r\n   70 CALL WRITE (EED,0,0,1)\r\nC\r\nC     LOCATE EIGP CARDS. IF PRESENT, TURN NOEED FLAG OFF,\r\nC     WRITE ID ON EED AND TURN ON TRAILER BIT. COPY DATA ON EED.\r\nC\r\n   80 CALL LOCATE (*89,Z(BUF1),EIGP,FLAG)\r\n      NOEED = 1\r\n      CALL WRITE (EED,EIGP,2,0)\r\n      CALL WRITE (EED,0,1,0)\r\n      J = (EIGP(2)-1)/16\r\n      K =  EIGP(2) - 16*J\r\n      MCB(J+2) = ORF(MCB(J+2),TWO(K+16))\r\n   81 CALL READ  (*320,*82,DPOOL,BUF,4,0,FLAG)\r\n      CALL WRITE (EED,BUF,4,0)\r\n      GO TO 81\r\n   82 CALL WRITE (EED,0,0,1)\r\nC\r\nC     LOCATE EIGR CARDS IN DYNAMICS POOL. IF PRESENT, TURN OFF NOEED\r\nC     FLAG, WRITE ID ON EED AND TURN ON TRL BIT.\r\nC\r\n   89 CALL LOCATE (*160,Z(BUF1),EIGR,FLAG)\r\n      NOEED = 1\r\n      CALL WRITE (EED,EIGR,2,0)\r\n      CALL WRITE (EED,0,1,0)\r\n      J = (EIGR(2)-1)/16\r\n      K =  EIGR(2) - 16*J\r\n      MCB(J+2) = ORF(MCB(J+2),TWO(K+16))\r\n      ASSIGN 100 TO NBACK\r\n      L = 12\r\n      MASK = TWO(UA)\r\nC\r\nC     READ EIGR CARDS. IF GRID NO. IS PRESENT, CONVERT TO SIL VALUE.\r\nC     WRITE DATA ON EED.\r\nC\r\n   90 CALL READ (*320,*110,DPOOL,BUF,18,0,FLAG)\r\n      GO TO 120\r\n  100 CALL WRITE (EED,BUF,12,0)\r\n      CALL WRITE (EED,BUF(14),6,0)\r\n      GO TO 90\r\n  110 CALL WRITE (EED,0,0,1)\r\n      GO TO 160\r\nC\r\nC     CODE TO CONVERT GRID NO. AND COMPOIENT CODE TO SIL NO.\r\nC     SIL NO. IS IN A SET FOR EIGR, EIGB - IN D SET FOR EIGC.\r\nC     WRITE DATA ON EED.\r\nC\r\n  120 IF (BUF(L) .EQ. 0) GO TO NBACK, (23,50,100)\r\n      IF (IN .NE. 0) GO TO 140\r\n      FILE = USETD\r\n      CALL OPEN (*310,USETD,Z(BUF3),RDREW)\r\n      CALL FWDREC (*320,USETD)\r\n      IUSETD = NEQDYN+2\r\n      CALL READ (*320,*130,USETD,Z(IUSETD),BUF3-IUSETD,1,N)\r\n      CALL MESAGE (-8,0,NAM)\r\n  130 CALL CLOSE (USETD,CLSREW)\r\n      IN = 1\r\n  140 IMSG(1) = BUF(1)\r\n      IMSG(2) = BUF(L)\r\n      CALL DPDAA\r\n      NUSETD = IUSETD + BUF(L) - 1\r\n      BUF(L) = 0\r\n      DO 150 J = IUSETD,NUSETD\r\n      IF (ANDF(Z(J),MASK) .NE. 0) BUF(L)= BUF(L) + 1\r\n  150 CONTINUE\r\n      IF (ANDF(Z(NUSETD),MASK) .NE. 0) GO TO NBACK, (23,50,100)\r\n      NOGO = 1\r\n      CALL MESAGE (30,107,IMSG)\r\n      GO TO NBACK, (23,50,100)\r\nC\r\nC     COMPLETE EIG CARD PROCESSING.\r\nC\r\n  160 CONTINUE\r\n      CALL CLOSE (EED,CLSREW)\r\n      MCB(1) = EED\r\n      CALL WRTTRL (MCB)\r\nC\r\nC\r\nC     (2) PRECESS TFL FILE\r\nC     ====================\r\nC\r\nC     SELECT PACK OR NO-PACK LOGIC\r\nC\r\n  170 PACK = .TRUE.\r\n      I45 = 4\r\n      I23 = 3\r\n      IF (IHALF .GT. 16) GO TO 175\r\n      PACK = .FALSE.\r\n      I45 = 5\r\n      I23 = 2\r\n  175 CONTINUE\r\nC\r\nC     OPEN TFL. WRITE HEADER. INITIALIZE TO READ TF CARDS.\r\nC\r\n      DO 180 J = 2,7\r\n  180 MCB(J) = 0\r\n      CALL LOCATE (*300,Z(BUF1),TF,FLAG)\r\n      NOTFL = 0\r\n      FILE  = TFL\r\n      CALL OPEN (*300,TFL,Z(BUF2),WRTREW)\r\n      CALL FNAME (TFL,BUF)\r\n      CALL WRITE (TFL,BUF,2,1)\r\n      MSG(1) = 68\r\n      L   = 2\r\n      ID  = 0\r\n      ITFL= NEQDYN + 2\r\n      I   = ITFL\r\n      ISW = 0\r\n      LAST= 0\r\nC\r\nC     READ FIXED SECTION OF TF CARD. CONVERT GRID POINT AND COMP. TO\r\nC     SIL NO. TEST FOR NEW TRANSFER FUNCTION SET.\r\nC\r\n  190 CALL READ (*320,*200,DPOOL,BUF,6,0,FLAG)\r\n      MSG(3) = BUF(1)\r\n      CALL DPDAA\r\n      IROW = BUF(2)\r\n      IF (BUF(1) .EQ. ID) GO TO 250\r\n      NOTFL = NOTFL + 1\r\n      IF (ID .NE. 0) GO TO 210\r\n      ID = BUF(1)\r\n      GO TO 250\r\nC\r\nC     SORT TRANSFER EQUATIONS AND WRITE ON TFL ONE RECORD PER TRANSFER\r\nC     FUNCTION SET. FIRST WORD OF RECORD IS SETID.\r\nC\r\n  200 LAST = 1\r\n  210 CALL WRITE (TFL,ID,1,0)\r\n      IF (ISW .EQ. 0) GO TO 220\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL OPEN  (*310,SCR1,Z(BUF2),RDREW)\r\n      IFILE(1) = SCR2\r\n      IFILE(2) = SCR3\r\n      IFILE(3) = SCR4\r\n      N = BUF3 - ITFL\r\n      IF (     PACK) CALL SORTI  (SCR1,TFL,4,1,Z(ITFL),N)\r\n      IF (.NOT.PACK) CALL SORTI2 (SCR1,TFL,5,1,Z(ITFL),N)\r\n      CALL CLOSE  (SCR1,CLSREW)\r\n      GO TO 230\r\n  220 N = I - ITFL\r\n      IF (     PACK) CALL SORTI  (0,0,4,1,Z(ITFL),N)\r\n      IF (.NOT.PACK) CALL SORTI2 (0,0,5,1,Z(ITFL),N)\r\n      CALL WRITE  (TFL,Z(ITFL),N,1)\r\n  230 I  = ITFL\r\n      ID = BUF(1)\r\n      ISW= 0\r\n      IF (LAST .NE. 0) GO TO 290\r\n      GO TO 250\r\nC\r\nC     READ GRID POINT, COMP AND VALUES. CONVERT POINT AND COMP. TO SIL\r\nC     NO. STORE IN CORE. IF SPILL, WRITE ON SCR1.\r\nC\r\n  240 CALL READ (*320,*310,DPOOL,BUF(2),5,0,FLAG)\r\n      IF (BUF(2) .EQ. -1) GO TO 190\r\n      CALL DPDAA\r\nC\r\nC     INTEGER PACKING LOGIC (MACHINES WITH 36 BITS WORDS, OR MORE) -\r\nC     PACK COLN AND ROW INTO ONE WORD IF BOTH CAN BE STORED IN HALF WORD\r\nC     THEN FOLLOWED BY 3 COEFFICIENTS, TOTALLY 4 WORDS\r\nC\r\nC     NON-INTEGER PACKING LOGIC (MACHINES WITH 32 BITS WORDS) -\r\nC     THE COLUMN AND ROW ARE NOT PACKED, AND THEREFORE NOT BOUNED TO\r\nC     65536 SIZE LIMIT. 1ST WORD IS COLUMN, 2ND WORD IS ROW, THEN\r\nC     FOLLOWED BY 3 COEFFICIENTS, TOTALLY 5 WORDS\r\nC     THE SUBROUTINE SORTI2 IS USED WHEN SORTING TFL BY 2 KEY WORDS\r\nC\r\n  250 IF (.NOT.PACK) GO TO 252\r\n      IF (BUF(2).GE.JHALF .OR. IROW.GE.JHALF) GO TO 340\r\n      BUF(3) = LSHIFT(BUF(2),IHALF)\r\n      BUF(3) = ORF(BUF(3),IROW)\r\n      GO TO 255\r\n  252 BUF(3) = IROW\r\n  255 IF (ISW .NE. 0) GO TO 280\r\n      IF (I+I45 .GT. BUF3) GO TO 270\r\n      DO 260 J = I23,6\r\n      Z(I) = BUF(J)\r\n  260 I = I + 1\r\n      GO TO 240\r\n  270 ISW = 1\r\n      FILE= SCR1\r\n      CALL OPEN (*310,SCR1,Z(BUF3),WRTREW)\r\n      N = I - ITFL\r\n      CALL WRITE (SCR1,Z(ITFL),N,0)\r\n  280 CALL WRITE (SCR1,BUF(I23),I45,0)\r\n      GO TO 240\r\nC\r\nC     HERE WHEN ALL TRANSFER FUNCTION SETS COMPLETE.\r\nC     CLOSE FILE AND WRITE TRAILER.\r\nC\r\n  290 CALL CLOSE (TFL,CLSREW)\r\n      MCB(2) = NOTFL\r\n      MCB(1) = TFL\r\n      CALL WRTTRL (MCB)\r\n  300 CALL CLOSE  (DPOOL,CLSREW)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  310 N = -1\r\n      GO TO 330\r\n  320 N = -2\r\n  330 CALL MESAGE (N,FILE,NAM)\r\n  340 WRITE  (NOUT,350) IHALF,BUF(2),IROW\r\n  350 FORMAT ('0*** COLUMN OR ROW SIL NO. EXCEEDS',I3,' BITS WORD ',\r\n     1        'PACKING LIMIT',2I9)\r\n      CALL MESAGE (-37,NAM,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpdaa.f",
    "content": "      SUBROUTINE DPDAA\r\nC*****\r\nC DPDAA PERFORMS A BINARY SEARCH IN EQDYN AND CONVERTS THE GRID NO\r\nC AND COMPONENT CODE TO AN SIL VALUE.\r\nC*****\r\nC\r\n      INTEGER       GPL   ,SIL   ,USET  ,USETD ,GPLD  ,SILD  ,DPOOL\r\n     1             ,DLT   ,FRL   ,TFL   ,TRL   ,PSDL  ,EED   ,SCR1\r\n     2             ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2  ,BUF3\r\n     3             ,BUF4  ,NGRID ,EQDYN ,EPOINT,SEQEP ,Z     ,LOADS\r\n     5             ,PSD   ,DLOAD ,FREQ1 ,FREQ  ,TIC   ,TSTEP ,TF\r\n     6             ,EIGR  ,EIGB  ,EIGC\r\nC\r\n      DIMENSION BUF(24)   ,EPOINT(2)    ,SEQEP(2)     ,MCB(7)\r\n     1         ,NAM(2)    ,LOADS(32)    ,DLOAD(2)     ,FREQ1(2)\r\n     2         ,FREQ(2)   ,ZZ(1)        ,BUFR(20)     ,NOLIN(21)\r\n     3         ,TIC(2)    ,TSTEP(2)     ,TF(2)        ,PSD(2)\r\n     4         ,MSG(3)    ,EIGR(2)      ,EIGB(2)      ,EIGC(2)\r\nC\r\n      COMMON/DPDCOM/DPOOL ,GPL   ,SIL   ,USET  ,GPLD  ,SILD  ,USETD\r\n     1             ,DLT   ,FRL   ,NLFT  ,TFL   ,TRL   ,PSDL  ,EED\r\n     2             ,SCR1  ,SCR2  ,SCR3  ,SCR4  ,BUF   ,BUF1  ,BUF2\r\n     3             ,BUF3  ,BUF4  ,EPOINT,SEQEP ,L     ,KN    ,NEQDYN\r\n     4             ,LOADS ,DLOAD ,FREQ1 ,FREQ  ,NOLIN ,NOGO\r\n     5             ,MSG   ,TIC   ,TSTEP ,TF    ,PSD   ,EIGR  ,EIGB\r\n     6             ,EIGC  ,MCB   ,NAM   ,EQDYN ,SDT   ,INEQ\r\nC\r\n      COMMON/ZZZZZZ/Z(1)\r\nC\r\n      EQUIVALENCE   (Z(1) ,ZZ(1)),(BUF(1),BUFR(1)),(MSG(2),NGRID)\r\nC\r\nC*****\r\nC IF EQDYN IS NOT IN CORE, READ IT IN AND SET FLAG.\r\nC*****\r\n      IF(INEQ .NE. 0) GO TO 1\r\n      CALL GOPEN(EQDYN,Z(BUF3),0)\r\n      CALL FREAD(EQDYN,Z,NEQDYN+1,1)\r\n      CALL CLOSE(EQDYN,1)\r\n      INEQ= 1\r\nC*****\r\nC PERFORM SEARCH.\r\nC*****\r\n    1 KLO= 1\r\n      KHI= KN\r\n      NGRID= BUF(L)\r\n    2 K= (KLO+KHI+1)/2\r\n    3 IF(NGRID - Z(2*K-1)) 4,11,5\r\n    4 KHI= K\r\n      GO TO 6\r\n    5 KLO= K\r\n    6 IF(KHI-KLO-1) 10,7,2\r\n    7 IF(K.EQ.KLO) GO TO 8\r\n      K= KLO\r\n      GO TO 9\r\n    8 K= KHI\r\n    9 KLO= KHI\r\n      GO TO 3\r\n   10 CALL MESAGE(30,MSG,MSG(2))\r\n      NOGO= 1\r\n   11 BUF(L)= Z(2*K)\r\n      IF(BUF(L+1) .NE. 0) BUF(L)= BUF(L)+BUF(L+1)-1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dplot.f",
    "content": "      SUBROUTINE DPLOT\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         TIT(32),NAME(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /PLOTHD/ IUSED\r\n      COMMON /SYSTEM/ BUFSIZ ,NOUT\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /BLANK / NGP    ,LSIL   ,NSETS  ,PLTFLG ,PLTNUM ,NGPSET  ,\r\n     1                NODEF  ,SKP1(3),PLTPAR ,GPSETS ,ELSETS ,CASECC  ,\r\n     2                BGPDT  ,EQEXIN ,SIL    ,PDEF1  ,PDEF2  ,S2      ,\r\n     3                PLOTX  ,SETD   ,ECPT   ,OES1   ,SCR1   ,SCR2    ,\r\n     4                SCR3   ,SCR4\r\nC\r\nC     NOTE THAT NSETS IS DMAP PARAMETER JUMPPLOT\r\nC     IUSED IS USED IN PLOT AND HDPLOT\r\nC\r\n      DATA    INPREW, REW / 0,1   /,\r\n     1        TIT   / 12*1H ,4HMESS,4HAGES,4H FRO,4HM TH,4HE PL,4HOT M,\r\n     2                4HODUL,1HE   ,12*1H    /\r\n      DATA    NAME  / 4HDPLO,4HT   /\r\nC\r\nC     FILE NAMES FOR UNDEFORMED PLOTS MAY BE\r\nC     108  = USET (GPTLBL - SPC DEGREES OF FREEDOM)\r\nC     109  = ECT  (ELELBL - PROPERTY IDS)\r\nC     110  = ECPT\r\nC          = EPT (UNDEFORMED PLOT ONLY, DMAP NUMBER 25 OR LESS)\r\nC            EPT IS NEEDED FOR PSHELL CARDS IN ORDER TO PICK UP ANY\r\nC            OFFSET FOR CTRIA3 AND CQUAD4 (IN COMECT)\r\nC\r\n      PLTPAR = 101\r\n      GPSETS = 102\r\n      ELSETS = 103\r\n      CASECC = 104\r\n      BGPDT  = 105\r\n      EQEXIN = 106\r\n      SIL    = 107\r\n      PDEF1  = 108\r\n      PDEF2  = 109\r\n      ECPT   = 110\r\n      OES1   = 111\r\n      OES1L  = 112\r\n      ONRGY1 = 113\r\n      PLOTX  = 201\r\n      SCR1   = 301\r\n      SCR2   = 302\r\n      SCR3   = 303\r\n      SCR4   = 304\r\n      NODEF  = 0\r\n      IF (NGP.LE.0 .OR. LSIL.LE.0) GO TO 80\r\n      CALL TOTAPE (2,X(1))\r\nC\r\nC     OUTPUT THE TITLE FOR MESSAGE FILE\r\nC     THE LAST BUFFER IS BUFSIZ+1 FOR SUBROUTINE ELELBL\r\nC\r\n      BUF = KORSZ(X) - 4*BUFSIZ\r\n      IF (BUF-4*BUFSIZ .LT. 10) GO TO 85\r\n      IF (NSETS .LE. 0) GO TO 60\r\n      CALL GOPEN (PLOTX,X(BUF),REW)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS       11/90\r\nC     NEXT 2 LINES ADD TIT HEADING TO THE 4TH LINE OF NASTRAN HEADERS\r\nC     WHEN THE PLOTX FILE IS READ AND PRINTED BY PRTMSG MODULE.\r\nC     THIS SHORTCUT TECHNIQUE IS NO WHERE DISCUSSED IN THE USER'S NOR\r\nC     PROGRAMMER'S MAUNALS\r\nC\r\n      CALL WRITE (PLOTX,-4,1,0)\r\n      CALL WRITE (PLOTX,TIT,32,0)\r\nC\r\nC     READ THE SETID-S FROM -GPSETS- FILE.  SET NEGATIVE SETID-S THAT\r\nC     HAVE NO ASSOCIATED GRIDS.  FIND FIRST DEFINED SET OR EXIT IF NONE\r\nC\r\n      BUF = BUF - BUFSIZ\r\n      CALL GOPEN (GPSETS,X(BUF),INPREW)\r\n      CALL FREAD (GPSETS,X,NSETS,1)\r\n      SETD = 0\r\n      X(NSETS+1) = 1\r\nC\r\n      DO 50 I = 1,NSETS\r\n      CALL READ (*30,*60,GPSETS,X(NSETS+2),1,1,I1)\r\n      IF (X(NSETS+2) .GT. 0) GO TO 40\r\n   30 WRITE  (NOUT,31) UWM,X(NSETS+1)\r\n   31 FORMAT (A25,' 697, SET',I9,\r\n     1       ' NOT DEFINED.  FIRST SET DEFINED WILL BE USED.')\r\n      X(I) = -X(I)\r\n      GO TO 50\r\n   40 IF (SETD .EQ. 0) SETD = I\r\n   50 CONTINUE\r\n      CALL CLOSE (GPSETS,REW)\r\n      IF (SETD .NE. 0) GO TO 70\r\n   60 WRITE  (NOUT,61) UFM\r\n   61 FORMAT (A23,' 698, NO SETS DEFINED FOR PLOTS')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     PROCESS PLOT REQUESTS\r\nC\r\n   70 CALL GOPEN (PLTPAR,X(BUF),INPREW)\r\n      I1 = 1\r\n      I2 = I1  + NSETS\r\n      BUF= BUF - BUFSIZ\r\n      CALL PARAM (X(I1),X(I2),BUF-NSETS)\r\n      CALL CLOSE (PLTPAR,REW)\r\nC\r\nC     SET JUMPPLOT NEGATIVE IF NO FUTHER REQUESTS\r\nC\r\n      IF (PLTFLG.GE.0 .AND. NODEF.EQ.0) NSETS = -1\r\n      CALL CLSTAB (PLOTX,REW)\r\n      CALL CLOSE  (GPSETS,REW)\r\n      PLTFLG = -1\r\n   80 RETURN\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n   85 CALL MESAGE (-8,BUF,NAME)\r\n      NSETS = -1\r\n      PLTFLG= -1\r\n      GO TO 80\r\n      END\r\n"
  },
  {
    "path": "mis/dpltst.f",
    "content": "      SUBROUTINE DPLTST\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         ERRTTL(32)\r\n      COMMON /BLANK / NGP,NSETS,SKP1(8),PCDB,EQEXIN,ECT,SKP2(7),\r\n     1                MERR,PARM,GPSET,ELSET,SKP3(6),MSET,PECT\r\n      COMMON /SYSTEM/ BUFSIZ\r\n      COMMON /ZZZZZZ/ X(1)\r\n      DATA    OUTREW, REW / 1,1 /\r\n      DATA    ERRTTL/ 8*2H  ,4HERRO,4HR ME,4HSSAG,4HES F,4HROM ,\r\n     1                4HTHE ,4HPLOT,4H SET,4H DEF,4HINIT,4HION ,\r\n     2                4HMODU,4HLE (,4HPLTS,4HET) ,9*1H  /\r\nC\r\n      NSETS  = 0\r\n      PCDB   = 101\r\n      EQEXIN = 102\r\n      ECT    = 103\r\n      EPT    = 104\r\n      MERR   = 201\r\n      PARM   = 202\r\n      GPSET  = 203\r\n      ELSET  = 204\r\n      MSET   = 301\r\n      PECT   = 302\r\n      CALL TOTAPE (1,X(1))\r\nC\r\n      X(1) = EQEXIN\r\n      CALL RDTRL (X)\r\n      I2   = 2\r\n      I3   = 3\r\n      NGP  = X(I2) - X(I3)\r\n      I1   = KORSZ(X) - BUFSIZ + 1\r\n      CALL GOPEN (MERR,X(I1),OUTREW)\r\n      CALL WRITE (MERR,-4,1,0)\r\n      CALL WRITE (MERR,ERRTTL,32,0)\r\n      CALL SETINP\r\n      IF (NSETS .NE. 0) GO TO 150\r\n      NSETS = -1\r\n      GO TO 200\r\n  150 I1 = NSETS + 1\r\n      I2 = I1 + NGP\r\n      I3 = KORSZ(X) - 4*BUFSIZ + 1\r\n      CALL COMECT (X(I2),I3-I2)\r\n      CALL CNSTRC (X(I1),X(I2),X(I3),I3-I2)\r\nC\r\n  200 CALL CLSTAB (MERR,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpps.f",
    "content": "      SUBROUTINE DPPS(KS,I,J1,J2,SGR,CGR,YS,ZS,NBARAY,NCARAY,DT,WORK)\r\nC   ***   GENERATES ROWS OF THE  DPP  SUBMATRIX USING\r\nC         SUBROUTINE  SUBP\r\n      DIMENSION YS(1),ZS(1),NBARAY(1),NCARAY(1),WORK(1)\r\n      COMPLEX DT(1), SUM\r\n      COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH,\r\n     1                INC,INB,IYS,IZS,IEE,ISG,ICG,\r\n     2                IXIC,IDELX,IXLAM,IDT,\r\n     3  ICORE\r\n      L    = 1\r\nC  L IS THE PANEL NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      LS   = 1\r\nC  LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      NBXS = NBARAY(L)\r\n      NC1  = NCARAY(L)\r\n      NBCUM= NC1\r\n      YREC = YS(KS)\r\n      ZREC = ZS(KS)\r\n      DO   20  J=J1,J2\r\n      CALL SUBP(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,\r\n     1 WORK(IXIC),WORK(IDELX),WORK(IEE),WORK(IXLAM),\r\n     2  WORK(ISG),WORK(ICG),YS,ZS)\r\n      DT(J)= SUM\r\n      IF (J.EQ.J2)  GO TO   20\r\n      IF (J.LT.NBXS)   GO TO  10\r\n      L    = L+1\r\n      NC1  = NCARAY(L)\r\n      NBXS = NBARAY(L)\r\n   10 CONTINUE\r\n      IF (J.LT.NBCUM)  GO TO  20\r\n      LS   = LS+1\r\n      NBCUM= NBCUM+NC1\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dppsb.f",
    "content": "      SUBROUTINE DPPSB(  KS,I,J1,J2,SGR,CGR,           YS,ZS,NBARAY,\r\n     1           NCARAY,DT,Z)\r\nC   ***   GENERATES ROWS OF THE  DPP  SUBMATRIX USING\r\nC         SUBROUTINE  SUBP\r\n      INTEGER Z\r\n      DIMENSION YS(1),ZS(1),NBARAY(1),NCARAY(1),Z(1)\r\n      COMPLEX SUM,DT(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      L    = 1\r\nC  L IS THE PANEL NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      LS   = 1\r\n      LSP = 0\r\nC  LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      NBXS = NBARAY(L)\r\n      NC1  = NCARAY(L)\r\n      NBCUM= NC1\r\n      YREC = YS(KS)\r\n      ZREC = ZS(KS)\r\n      DO   20  J=J1,J2\r\n      CALL SUBPB(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,Z(IXIC),Z(IDELX),Z(IEE)\r\n     * ,Z(IXLAM),Z(ISG),Z(ICG),Z(IYS),Z(IZS),Z(INAS),Z(INASB+LSP),\r\n     *  Z(IAVR),Z(IZB),Z(IYB),Z(IARB),Z(IXLE),Z(IXTE),Z(IX),NB)\r\n      DT(J)= SUM\r\n      IF (J.EQ.J2)  GO TO   20\r\n      IF (J.LT.NBXS)   GO TO  10\r\n      LSP = LSP + Z(INAS+L-1)\r\n      L    = L+1\r\n      NC1  = NCARAY(L)\r\n      NBXS = NBARAY(L)\r\n   10 CONTINUE\r\n      IF (J.LT.NBCUM)  GO TO  20\r\n      LS   = LS+1\r\n      NBCUM= NBCUM+NC1\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpse2.f",
    "content": "      SUBROUTINE DPSE2\r\nC\r\nC     THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND\r\nC     K(NPVT,J), PRESSURE STIFFNESS MATRICES FOR A CPSE2 PRESSURE\r\nC     STIFFNESS ELEMENT (ROD, 2 GRID POINTS)\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     WRITTEN BY E. R. CHRISTENSEN/SVERDRUP  7/91, VERSION 1.0\r\nC     INSTALLED IN NASTRAN AS ELEMENT DPSE2 BY G.CHAN/UNISYS, 2/92\r\nC\r\nC     REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM)\r\nC                 MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS',\r\nC                 NASA TD 612-001-02, AUGUST 1991\r\nC\r\nC     LIMITATION -\r\nC     (1) ALL GRID POINTS USED BY ANY OF THE CPSE2/3/4 ELEMENTS MUST BE\r\nC         IN BASIC COORDINATE SYSTEM!!!\r\nC     (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED\r\nC         BY THE CPSE2/3/4 ELEMENTRS\r\nC     (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES\r\nC\r\nC     SEE NASTRAN DEMONSTRATION PROBLEM -  T13021A\r\nC\r\nC     ECPT FOR THE PRESSURE STIFFNESS\r\nC     CPSE2 ELEMENT                                CARD\r\nC                                                  TYPE  TYPE   TABLE\r\nC                                                 ------ ----- ------\r\nC     ECPT( 1) ELEMENT ID.                         CPSE2   I     ECT\r\nC     ECPT( 2) SCALAR INDEX NUMBER FOR GRD.PT. A   CPSE2   I     ECT\r\nC     ECPT( 3) SCALAR INDEX NUMBER FOR GRD.PT. B   CPSE2   I     ECT\r\nC     ECPT( 4) PRESSURE P                          PPSE    R     EPT\r\nC     ECPT( 5) NOT USED                            PPSE    R     EPT\r\nC     ECPT( 6) NOT USED                            PPSE    R     EPT\r\nC     ECPT( 7) NOT USED                            PPSE    R     EPT\r\nC     ECPT( 8) COOR. SYS. ID. NO. FOR GRD.PT. A    GRID    I    BGPDT\r\nC     ECPT( 9) X-COORDINATE OF GRD.PT. A (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(10) Y-COORDINATE OF GRD.PT. A (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(11) Z-COORDINATE OF GRD.PT. A (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(12) COOR. SYS. ID. NO. FOR GRD.PT. B            I    BGPDT\r\nC     ECPT(13) X-COORDINATE OF GRD.PT. B (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(14) Y-COORDINATE OF GRD.PT. B (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(15) Z-COORDINATE OF GRD.PT. B (IN BASIC COOR)   R    BGPDT\r\nC     ECPT(16) ELEMENT TEMPERATURE\r\nC     ECPT(17) THRU ECPT(24) = DUM2 AND DUM6, NOT USED IN THIS ROUTINE\r\nC\r\n      DOUBLE PRECISION KE,TA,TB,D,X,Y,Z,XL,ALPHA\r\n      DIMENSION        IECPT(3)\r\nC     COMMON /SYSTEM/  IBUF,NOUT\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1AET/  ECPT(16),DUM2(2),DUM6(6)\r\n      COMMON /DS1ADP/  KE(36),TA(9),TB(9),D(18),X,Y,Z,XL,ALPHA\r\n      EQUIVALENCE      (ECPT(1),IECPT(1))\r\nC\r\n      IELEM = IECPT(1)\r\n      IF (IECPT(2) .EQ. NPVT) GO TO 10\r\n      IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\n      ITEMP = IECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = ITEMP\r\n      KA  = 12\r\n      KB  =  8\r\n      ALPHA = -1.0D0\r\n      GO TO 20\r\n   10 KA  =  8\r\n      KB  =  12\r\n      ALPHA = 1.0D0\r\nC\r\nC     AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID\r\nC     POINT. SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT.\r\nC\r\nC     NOW COMPUTE THE LENGTH OF THE CPSE2 ELEMENT.\r\nC\r\nC\r\nC     WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC\r\nC     WILL BE DOUBLE PRECISION\r\nC\r\nC     CHECK TO SEE THAT THE CPSE2 HAS A NONZERO LENGTH\r\nC\r\n   20 D(1) = ECPT(KA+1)\r\n      D(2) = ECPT(KA+2)\r\n      D(3) = ECPT(KA+3)\r\n      D(4) = ECPT(KB+1)\r\n      D(5) = ECPT(KB+2)\r\n      D(6) = ECPT(KB+3)\r\n      X    = D(1) - D(4)\r\n      Y    = D(2) - D(5)\r\n      Z    = D(3) - D(6)\r\n      XL = DSQRT(X**2 + Y**2 + Z**2)\r\n      IF (XL .EQ. 0.0D0) GO TO 70\r\nC\r\nC     COMPUTE THE 3 X 3 NON-ZERO SUBMATRIX OF KDGG(NPVT,NONPVT)\r\nC\r\n      D(1) = 0.0D0\r\n      D(2) = ALPHA*ECPT(4)/2.0D0\r\n      D(3) = D(2)\r\n      D(4) =-D(2)\r\n      D(5) = 0.0D0\r\n      D(6) = D(2)\r\n      D(7) = D(4)\r\n      D(8) = D(4)\r\n      D(9) = 0.0D0\r\nC\r\nC     ZERO OUT KE MATRIX\r\nC\r\n      DO 30 I = 1,36\r\n   30 KE(I) = 0.0D0\r\nC\r\nC     FILL UP THE 6 X 6 KE\r\nC\r\nC     IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 40\r\nC\r\n      K1 = 1\r\n      IF (IECPT(KA) .EQ. 0) GO TO 40\r\n      CALL TRANSD (ECPT(KA),TA)\r\n      CALL GMMATD (TA,3,3,1, D(1),3,3,0, D(10))\r\n      K1  = 10\r\n      KB1 = 10\r\n      KB2 = 1\r\n      GO TO 50\r\nC\r\nC     IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 60\r\nC\r\n   40 KB1 = 1\r\n      KB2 = 10\r\n   50 IF (IECPT(KB) .EQ. 0) GO TO 60\r\n      CALL TRANSD (ECPT(KB),TB)\r\n      CALL GMMATD (D(KB1),3,3,0, TB,3,3,0, D(KB2))\r\n      K1 = KB2\r\nC\r\n   60 KE( 1) = D(K1  )\r\n      KE( 2) = D(K1+1)\r\n      KE( 3) = D(K1+2)\r\n      KE( 7) = D(K1+3)\r\n      KE( 8) = D(K1+4)\r\n      KE( 9) = D(K1+5)\r\n      KE(13) = D(K1+6)\r\n      KE(14) = D(K1+7)\r\n      KE(15) = D(K1+8)\r\n      CALL DS1B (KE,IECPT(3))\r\n      RETURN\r\nC\r\nC     ERROR\r\nC\r\n   70 CALL MESAGE (30,26,IECPT(1))\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpse3.f",
    "content": "      SUBROUTINE DPSE3\r\nC\r\nC     PRESSURE STIFFNESS CALCULATIONS FOR A TRIANGULAR MEMBRANE\r\nC     ELEMENT (3 GRID POINTS).\r\nC     THREE 6X6 STIFFNESS MATRICES FOR THE PIVOT POINT ARE INSERTED.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     WRITTEN BY E. R. CHRISTENSEN/SVERDRUP, 9/91, VERSION 1.1\r\nC     INSTALLED IN NASTRAN AS ELEMENT DPSE3 BY G.CHAN/UNISYS, 2/92\r\nC\r\nC     REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM)\r\nC                 MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS',\r\nC                 NASA TD 612-001-02, AUGUST 1991\r\nC\r\nC     LIMITATION -\r\nC     (1) ALL GRID POINTS USED BY ANY IF THE CPSE2/3/4 ELEMENTS MUST BE\r\nC         IN BASIC COORDINATE SYSTEM!!!\r\nC     (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED\r\nC         BY THE CPSE2/3/4 ELEMENTRS\r\nC     (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES\r\nC\r\nC     SEE NASTRAN DEMONSTRATION PROBLEM -  T13022A\r\nC\r\n      DOUBLE PRECISION GAMMA,KIJ,SGN,SGN1,SGN2,DP,C\r\n      DIMENSION        NECPT(5)\r\nC     COMMON /SYSTEM/  IBUF,NOUT\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1AET/  ECPT(21),DUM2(2),DUM9(9)\r\n      COMMON /DS1ADP/  GAMMA,KIJ(36),SGN,SGN1,SGN2,DP(21),C(9)\r\n      EQUIVALENCE      (NECPT(1),ECPT(1))\r\nC\r\nC     ECPT FOR THE PRESSURE STIFFNESS CPES3 ELEMENT\r\nC\r\nC     ECPT( 1) = ELEMENT ID\r\nC     ECPT( 2) = SIL FOR GRID POINT A OR 1\r\nC     ECPT( 3) = SIL FOR GRID POINT B OR 2\r\nC     ECPT( 4) = SIL FOR GRID POINT C OR 3\r\nC     ECPT( 5) = PRESSURE\r\nC     ECPT( 6) = NOT USED\r\nC     ECPT( 7) = NOT USED\r\nC     ECPT( 8) = NOT USED\r\nC     ECPT( 9) = COORD. SYSTEM ID 1\r\nC     ECPT(10) = X1\r\nC     ECPT(11) = Y1\r\nC     ECPT(12) = Z1\r\nC     ECPT(13) = COORD. SYSTEM ID 2\r\nC     ECPT(14) = X2\r\nC     ECPT(15) = Y2\r\nC     ECPT(16) = Z2\r\nC     ECPT(17) = COORD. SYSTEM ID 3\r\nC     ECPT(18) = X3\r\nC     ECPT(19) = Y3\r\nC     ECPT(20) = Z3\r\nC     ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) THRU (32) = DUM2 AND DUM9, NOT USED IN THIS ROUTINE\r\nC\r\nC     STORE ECPT IN DOUBLE PRECISION\r\nC\r\n      DP(5) = ECPT(5)\r\n      K = 9\r\n      DO 20 I = 1,3\r\n      DO 10 J = 1,3\r\n      K = K + 1\r\n   10 DP(K) = ECPT(K)\r\n   20 K = K + 1\r\nC\r\nC     CALCULATE THE THREE VECTORS R1, R2 AND R2 USED IN COMPUTING\r\nC     THE PRESSURE STIFFNESS MATRICES:\r\nC\r\nC     R1 = RA - 2*RC + RB\r\nC     R2 = 2*RB - RA - RC\r\nC     R3 = RB - 2*RA + RC\r\nC\r\nC     R1 STORED IN C(1), C(2), C(3)\r\nC     R2 STORED IN C(4), C(5), C(6)\r\nC     R3 STORED IN C(7), C(8), C(9)\r\nC\r\n      C(1) = DP(10) - 2.0D0*DP(18) + DP(14)\r\n      C(2) = DP(11) - 2.0D0*DP(19) + DP(15)\r\n      C(3) = DP(12) - 2.0D0*DP(20) + DP(16)\r\nC\r\n      C(4) = 2.0D0*DP(14) - DP(10) - DP(18)\r\n      C(5) = 2.0D0*DP(15) - DP(11) - DP(19)\r\n      C(6) = 2.0D0*DP(16) - DP(12) - DP(20)\r\nC\r\n      C(7) = DP(14) - 2.0D0*DP(10) + DP(18)\r\n      C(8) = DP(15) - 2.0D0*DP(11) + DP(19)\r\n      C(9) = DP(16) - 2.0D0*DP(12) + DP(20)\r\nC\r\n      DO 30 I = 1,3\r\n      IF (NECPT(I+1) .NE. NPVT) GO TO 30\r\n      NPIVOT = I\r\n      GO TO 40\r\n   30 CONTINUE\r\n      RETURN\r\nC\r\nC     GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE\r\nC\r\nC     SET COUNTERS ACCORDING TO WHICH GRID POINT IS THE PIVOT\r\nC\r\n   40 IF (NPIVOT-2) 50,60,70\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KAB, KAC\r\nC\r\n   50 NI = 2\r\n      NJ = 3\r\n      NK = 1\r\n      K1 = 1\r\n      K2 = 4\r\n      SGN1 = 1.0D0\r\n      SGN2 = 1.0D0\r\n      GO TO 80\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KBA, KBC\r\nC     NOTE THAT KBA = -KAB\r\nC\r\n   60 NI = 1\r\n      NJ = 3\r\n      NK = 2\r\n      K1 = 1\r\n      K2 = 7\r\n      SGN1 =-1.0D0\r\n      SGN2 = 1.0D0\r\n      GO TO 80\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KCA, KCB\r\nC     NOTE THAT KCA = -KAC, KCB = -KBC\r\nC\r\n   70 NI = 1\r\n      NJ = 2\r\n      NK = 1\r\n      K1 = 4\r\n      K2 = 7\r\n      SGN1 =-1.0D0\r\n      SGN2 =-1.0D0\r\nC\r\n   80 GAMMA =-DP(5)/12.0D0\r\n      SGN   = SGN1*GAMMA\r\n      K = K1\r\n      DO 100 I = NI,NJ,NK\r\n      DO 90  J = 1,36\r\n   90 KIJ(J) = 0.0D0\r\n      KK2 = K + 1\r\n      KK3 = K + 2\r\n      KIJ( 2) =-C(KK3)*SGN\r\n      KIJ( 3) = C(KK2)*SGN\r\n      KIJ( 7) = C(KK3)*SGN\r\n      KIJ( 9) =-C(K  )*SGN\r\n      KIJ(13) =-C(KK2)*SGN\r\n      KIJ(14) = C(K  )*SGN\r\n      CALL DS1B (KIJ(1),NECPT(I+1))\r\n      SGN = SGN2*GAMMA\r\n      K   = K2\r\n  100 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpse4.f",
    "content": "      SUBROUTINE DPSE4\r\nC\r\nC     PRESSURE STIFFNESS CALCULATIONS FOR A QUADRILATERAL MEMBRANE\r\nC     ELEMENT, WHICH HAS 4 GRID POINTS.\r\nC     THREE 6X6 STIFFNESS MATRICES FOR THE PIVOT POINT ARE INSERTED.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     WRITTEN BY E. R. CHRISTENSEN/SVERDRUP,  9/91,  VERSION 1.1\r\nC     INSTALLED IN NASTRAN AS ELEMENT DPSE4 BY G.CHAN/UNISYS, 2/92\r\nC\r\nC     REFERENCE - E. CHRISTENEN: 'ADVACED SOLID ROCKET MOTOR (ASRM)\r\nC                 MATH MODELS - PRESSURE STIFFNESS EFFECTS ANALYSIS',\r\nC                 NASA TD 612-001-02, AUGUST 1991\r\nC\r\nC     LIMITATION -\r\nC     (1) ALL GRID POINTS USED BY ANY OF THE CPSE2/3/4 ELEMENTS MUST BE\r\nC         IN BASIC COORDINATE SYSTEM!!!\r\nC     (2) CONSTANT PRESSURE APPLIED OVER AN ENCLOSED VOLUMN ENCOMPASSED\r\nC         BY THE CPSE2/3/4 ELEMENTRS\r\nC     (3) PRESSURE ACTS NORMALLY TO THE CPSE2/3/4 SURFACES\r\nC\r\nC     SEE NASTRAN DEMONSTRATION PROBLEM -  T13022A\r\nC\r\n      DOUBLE PRECISION GAMMA,KIJ,DP,C,SIGN\r\n      DIMENSION        NECPT(6)\r\nC     COMMON /SYSTEM/  IBUF,NOUT\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1AET/  ECPT(26),DUM2(2),DUM12(12)\r\n      COMMON /DS1ADP/  GAMMA,KIJ(36),DP(26),C(12),SIGN(3),NK(3),IK(3)\r\n      EQUIVALENCE      (NECPT(1),ECPT(1))\r\nC\r\nC     ECPT FOR THE PRESSURE STIFFNESS CPES4 ELEMENT\r\nC\r\nC     ECPT( 1) = ELEMENT ID\r\nC     ECPT( 2) = SIL FOR GRID POINT A OR 1\r\nC     ECPT( 3) = SIL FOR GRID POINT B OR 2\r\nC     ECPT( 4) = SIL FOR GRID POINT C OR 3\r\nC     ECPT( 5) = SIL FOR GRID POINT C OR 4\r\nC     ECPT( 6) = PRESSURE\r\nC     ECPT( 7) = NOT USED\r\nC     ECPT( 8) = NOT USED\r\nC     ECPT( 9) = NOT USED\r\nC     ECPT(10) = COORD. SYSTEM ID 1\r\nC     ECPT(11) = X1\r\nC     ECPT(12) = Y1\r\nC     ECPT(13) = Z1\r\nC     ECPT(14) = COORD. SYSTEM ID 2\r\nC     ECPT(15) = X2\r\nC     ECPT(16) = Y2\r\nC     ECPT(17) = Z2\r\nC     ECPT(18) = COORD. SYSTEM ID 3\r\nC     ECPT(19) = X3\r\nC     ECPT(20) = Y3\r\nC     ECPT(21) = Z3\r\nC     ECPT(22) = COORD. SYSTEM ID 4\r\nC     ECPT(23) = X4\r\nC     ECPT(24) = Y4\r\nC     ECPT(25) = Z4\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ECPT(27) THRU ECPT(40) = DUM2 AND DUM12, NOT USED IN THIS ROUTINE\r\nC\r\nC     STORE ECPT IN DOUBLE PRECISION\r\nC\r\n      DP(6) = ECPT(6)\r\n      K = 10\r\n      DO 20 I = 1,4\r\n      DO 10 J = 1,3\r\n      K = K + 1\r\n   10 DP(K) = ECPT(K)\r\n   20 K = K + 1\r\nC\r\nC     CALCULATE THE FOUR VECTORS GAB, GAC, GAD, AND GBD USED IN\r\nC     COMPUTING THE PRESSURE STIFFNESS MATRIC\r\nC\r\nC     GAB = RA + RB - RC - RD\r\nC     GAC = RB - RD\r\nC     GAD =-RA + RB + RC - RD\r\nC     GBD =-RA + RC\r\nC\r\nC     GAB STORED IN C( 1), C( 2), C( 3)\r\nC     GAC STORED IN C( 4), C( 5), C( 6)\r\nC     GAD STORED IN C( 7), C( 8), C( 9)\r\nC     GBD STORED IN C(10), C(11), C(12)\r\nC\r\n      C(1) = DP(11) + DP(15) - DP(19) - DP(23)\r\n      C(2) = DP(12) + DP(16) - DP(20) - DP(24)\r\n      C(3) = DP(13) + DP(17) - DP(21) - DP(25)\r\nC\r\n      C(4) = DP(15) - DP(23)\r\n      C(5) = DP(16) - DP(24)\r\n      C(6) = DP(17) - DP(25)\r\nC\r\n      C(7) =-DP(11) + DP(15) + DP(19) - DP(23)\r\n      C(8) =-DP(12) + DP(16) + DP(20) - DP(24)\r\n      C(9) =-DP(13) + DP(17) + DP(21) - DP(25)\r\nC\r\n      C(10)=-DP(11) + DP(19)\r\n      C(11)=-DP(12) + DP(20)\r\n      C(12)=-DP(13) + DP(21)\r\nC\r\n      DO 30 I = 1,4\r\n      IF (NECPT(I+1) .NE. NPVT) GO TO 30\r\n      NPIVOT = I\r\n      GO TO 40\r\n   30 CONTINUE\r\n      RETURN\r\nC\r\nC     GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE\r\nC\r\nC     SET COUNTERS ACCORDING TO WHICH GRID POINT IS THE PIVOT\r\nC\r\n   40 IF (NPIVOT .EQ. 4) GO TO 80\r\n      IF (NPIVOT-2) 50,60,70\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KAB, KAC, KAD\r\nC\r\n   50 NK(1) = 2\r\n      NK(2) = 3\r\n      NK(3) = 4\r\n      IK(1) = 1\r\n      IK(2) = 4\r\n      IK(3) = 7\r\n      SIGN(1) = 1.0D0\r\n      SIGN(2) = 1.0D0\r\n      SIGN(3) = 1.0D0\r\n      GO TO 90\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KBA, KBC, KBD\r\nC     NOTE THAT KBA = -KAB\r\nC\r\n   60 NK(1) = 1\r\n      NK(2) = 3\r\n      NK(3) = 4\r\n      IK(1) = 1\r\n      IK(2) = 7\r\n      IK(3) = 10\r\n      SIGN(1) =-1.0D0\r\n      SIGN(2) = 1.0D0\r\n      SIGN(3) = 1.0D0\r\n      GO TO 90\r\nC\r\nC     SET COUNTERS AND POINTERS FOR CALCULATING KCA, KCB, KCD\r\nC     NOTE THAT KCA = -KAC, KCB = -KBC\r\nC\r\n   70 NK(1) = 1\r\n      NK(2) = 2\r\n      NK(3) = 4\r\n      IK(1) = 4\r\n      IK(2) = 7\r\n      IK(3) = 1\r\n      SIGN(1) =-1.0D0\r\n      SIGN(2) =-1.0D0\r\n      SIGN(3) =-1.0D0\r\n      GO TO 90\r\nC\r\n   80 NK(1) = 1\r\n      NK(2) = 2\r\n      NK(3) = 3\r\n      IK(1) = 7\r\n      IK(2) = 10\r\n      IK(3) = 1\r\n      SIGN(1) =-1.0D0\r\n      SIGN(2) =-1.0D0\r\n      SIGN(3) = 1.0D0\r\nC\r\n   90 GAMMA =-DP(6)/12.0D0\r\n      DO 110 I = 1,3\r\n      DO 100 J = 1,36\r\n  100 KIJ(J) = 0.0D0\r\n      K1 = IK(I)\r\n      K2 = K1 + 1\r\n      K3 = K1 + 2\r\n      SG = GAMMA*SIGN(I)\r\n      KIJ( 2) =-C(K3)*SG\r\n      KIJ( 3) = C(K2)*SG\r\n      KIJ( 7) = C(K3)*SG\r\n      KIJ( 9) =-C(K1)*SG\r\n      KIJ(13) =-C(K2)*SG\r\n      KIJ(14) = C(K1)*SG\r\nC\r\nC     ASSEMBLE INTO THE GLOBAL STIFFNESS MATRIX\r\nC\r\n      IAS = NK(I)\r\n      CALL DS1B (KIJ(1),NECPT(IAS+1))\r\n  110 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dpzy.f",
    "content": "      SUBROUTINE DPZY(   KB,IZ,I,J1,J2,IFIRST,ILAST,YB,ZB,\r\n     1          AVR,ARB,TH1A,TH2A,NT121,NT122,NBARAY,NCARAY,\r\n     * NZYKB,DPZ,DPY)\r\nC   ***   GENERATES ROWS OF THE SUBMATRICES  DPZ  AND DPY  USING\r\nC         SUBROUTINE  SUBP\r\n      INTEGER Z\r\n      COMPLEX SUM,DPZ(1),DPY(1)\r\n      DIMENSION YB(1),ZB(1),AVR(1),ARB(1),TH1A(1),TH2A(1),NT121(1)\r\n      DIMENSION NT122(1),NBARAY(1),NCARAY(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IA,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /ZZZZZZ / Z(1)\r\n      PI   = 3.1415926\r\n      IX1    = 1\r\n      IZ   = IZ+1\r\nC  IZ  IS THE BODY-ELEMENT NUMBER FOR BODY  KB  --  IZ RUNS FROM  1\r\nC  THROUGH  NBE-SUB-KB\r\n      IX2 = NT122(KB)\r\n      IF (IZ.GE.IFIRST.AND.IZ.LE.ILAST)  IX2=NT121(KB)\r\n      DO  100  IX=IX1,IX2\r\n      L    = 1\r\n      KSP = 0\r\nC  L IS THE PANEL NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      LS   = 1\r\nC  LS IS THE STRIP NUMBER ASSOCIATED WITH SENDING   POINT  J\r\n      NBXS = NBARAY(L)\r\n      NC1  = NCARAY(L)\r\n      NBCUM= NC1\r\n      IXP1 = IX+1\r\n      IF (IXP1.GT.IX2)  IXP1=IX1\r\n      IXM1 = IX-1\r\n      IF (IXM1.EQ.0)   IXM1=IX2\r\n      IF (IZ.GE.IFIRST.AND.IZ.LE.ILAST)  GO TO  30\r\n      THETA= TH2A(IX)\r\n      THP1 = TH2A(IXP1)\r\n      THM1 = TH2A(IXM1)\r\n      GO TO  40\r\n   30 CONTINUE\r\n      THETA = TH1A(IX)\r\n      THP1 = TH1A(IXP1)\r\n      THM1 = TH1A(IXM1)\r\n   40 CONTINUE\r\n      IF (IX.EQ.IX1)  THM1=THM1-2.0*PI\r\n      IF (IX.EQ.IX2)  THP1=THP1+2.0*PI\r\n      DELTH= 0.5*(THP1 - THM1)\r\n      YREC = YB(KB)+AVR(KB)*COS(THETA)\r\n      ZREC = ZB(KB)+AVR(KB)*ARB(KB)*SIN(THETA)\r\n      RHO  = SQRT(1.0+(ARB(KB)**2 - 1.0) * (COS(THETA))**2)\r\n      SGR  = -ARB(KB)*COS(THETA)/RHO\r\n      CGR  = SIN(THETA)/RHO\r\n      SMULT= SIN(THETA) * RHO / PI\r\n      CMULT= COS(THETA) * RHO / PI\r\n      DO  90  J=J1,J2\r\n      CALL SUBPB(I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,Z(IXIC),Z(IDELX),Z(IEE)\r\n     * ,Z(IXLAM),Z(ISG),Z(ICG),Z(IYS),Z(IZS),Z(INAS),Z(INASB+KSP),\r\n     * Z(IAVR),Z(IZB),Z(IYB),Z(IARB),Z(IXLE),Z(IXTE),Z(IA),NB)\r\n      GO TO  (50,50,60),  NZYKB\r\n   50 CONTINUE\r\n      DPZ(J) = DPZ(J) + SUM * SMULT * DELTH\r\n      IF (NZYKB.EQ.1)  GO TO 70\r\n   60 CONTINUE\r\n      DPY(J) = DPY(J) + SUM * CMULT * DELTH\r\n   70 CONTINUE\r\n      IF (J.EQ.J2)  GO TO  90\r\n      IF (J.LT.NBXS)   GO TO  80\r\n      KSP = KSP + Z(INAS+L-1)\r\n      L    = L+1\r\n      NC1  = NCARAY(L)\r\n      NBXS = NBARAY(L)\r\n   80 CONTINUE\r\n      IF (J.LT.NBCUM)  GO TO  90\r\n      LS   = LS+1\r\n      NBCUM= NBCUM+NC1\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dqdmem.f",
    "content": "      SUBROUTINE DQDMEM\r\nC\r\nC\r\nC     QUADRILATERAL MEMBRANE ROUTINE FOR DIFFERENTIAL STIFFNESS..\r\nC\r\n      REAL IVEC,JVEC,KVEC\r\nC\r\n      DIMENSION          M(12)         ,NECPT(5)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /DS1AET/    ECPT(100)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /DS1AAA/ NPVT,ICSTM,NCSTM\r\n     1,                  DUMCL(32)          ,NOGO\r\n      COMMON /DS1ADP/    DUMMY(400)    ,IVEC(3)\r\n     1                  ,NGRID(4)      ,JVEC(3)\r\n     2                  ,COORD(16)     ,KVEC(3)\r\n     3                  ,SDISP(12)     ,PVEC(3)\r\n     4                  ,VSUBK(3)      ,NPT1\r\n     5                  ,JNOT          ,NPT2\r\n     6                  ,NPIVOT        ,NPT3\r\n     7                  ,MPOINT        ,NSUBSC\r\n     8                  ,V(3)          ,U1\r\n     9                  ,SI(3)         ,U2\r\n     T                  ,VECL          ,ANGL\r\n     1                  ,SINANG        ,COSANG\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (NECPT(1),ECPT(1))\r\nC\r\n      DATA  M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         DQDMEM                     DTRMEM\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMP.\r\nC     ECPT(22) = COORD. SYS. ID 4ECPT(22) = EL. DEF.\r\nC     ECPT(23) = X4              ECPT(23) = LDTEMP\r\nC     ECPT(24) = Y4              ECPT(24) = XT 1\r\nC     ECPT(25) = Z4              ECPT(25) = YT 1\r\nC     ECPT(26) = ELEMENT TEMP.   ECPT(26) = ZT 1\r\nC     ECPT(27) = EL. DEF.        ECPT(27) = XT 2\r\nC     ECPT(28) = LDTEMP          ECPT(28) = YT 2\r\nC     ECPT(29) = XT 1            ECPT(29) = ZT 2\r\nC     ECPT(30) = YT 1            ECPT(30) = XT 3\r\nC     ECPT(31) = ZT 1            ECPT(31) = YT 3\r\nC     ECPT(32) = XT 2            ECPT(32) = ZT 3\r\nC     ECPT(33) = YT 2\r\nC     ECPT(34) = ZT 2\r\nC     ECPT(35) = XT 3\r\nC     ECPT(36) = YT 3\r\nC     ECPT(37) = ZT 3\r\nC     ECPT(38) = XT 4\r\nC     ECPT(39) = YT 4\r\nC     ECPT(40) = ZT 4\r\nC     ******************************************************************\r\nC\r\nC     THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE\r\nC     COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL\r\nC     POSSIBILITY)  NOTE  FMMS-46 PAGE -9-\r\nC\r\n      ANGL = ECPT(6) * DEGRA\r\n      COSANG = COS( ANGL )\r\n      SINANG = SIN( ANGL )\r\n      IVEC(1) = ECPT(15) - ECPT(11)\r\n      IVEC(2) = ECPT(16) - ECPT(12)\r\n      IVEC(3) = ECPT(17) - ECPT(13)\r\n      VECL = SQRT( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 150\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\n      VSUBK(1) =IVEC(2) *(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12))\r\n      VSUBK(2) =IVEC(3) *(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13))\r\n      VSUBK(3) =IVEC(1) *(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11))\r\n      VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 150\r\n      KVEC(1) = VSUBK(1)/VECL\r\n      KVEC(2) = VSUBK(2)/VECL\r\n      KVEC(3) = VSUBK(3)/VECL\r\n      JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2)\r\n      JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3)\r\n      JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1)\r\n      DO 10 I=1,3\r\n   10 PVEC(I) = COSANG * IVEC(I) + SINANG * JVEC(I)\r\nC\r\nC\r\nC     SAVE COORDINATE SYSTEMS, GRID POINT SIL NUMBERS, AND DISP VECTOR.\r\nC\r\n      NGRID(1) = NECPT(2)\r\n      NGRID(2) = NECPT(3)\r\n      NGRID(3) = NECPT(4)\r\n      NGRID(4) = NECPT(5)\r\nC\r\n      DO 20 I=1,16\r\n   20 COORD(I) = ECPT(I + 9)\r\nC\r\n      DO 30 I=1,12\r\n   30 SDISP(I) = ECPT(I+28)\r\nC\r\nC     NOTE. COORD 1, 5, 9, AND 13  ARE INTEGER CSID NUMBERS.\r\nC\r\nC     CORRECT ECPT FOR MEMBRANE USE\r\n      ECPT(5) = ECPT(6)\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)/2.0E0\r\n      ECPT(8) = ECPT(9)\r\n      ECPT(21) = ECPT(26)\r\n      ECPT(22) = ECPT(27)\r\n      ECPT(23) = ECPT(28)\r\nC\r\nC     FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES\r\nC     ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM.\r\nC\r\nC     FILL MAP MATRIX  (PERFORMED IN DATA STATEMENT - DO NOT ALTER)\r\nC              A              B              C\r\nC           M1 = 1         M2 = 2         M3 = 4      (TRIANGLE    I)\r\nC\r\nC           M4 = 2         M5 = 3         M6 = 1      (TRIANGLE   II)\r\nC\r\nC           M7 = 3         M8 = 4         M9 = 2      (TRIANGLE  III)\r\nC\r\nC           M10= 4         M11= 1         M12= 3      (TRIANGLE   IV)\r\nC\r\nC     ******************************************************************\r\nC     FIND WHICH POINT IS THE PIVOT POINT.\r\n      DO 40 I=1,4\r\n      IF(NPVT .NE. NGRID(I)) GO TO 40\r\n      NPIVOT = I\r\n      GO TO 50\r\n   40 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION.\r\nC\r\n      CALL MESAGE(-30,34,ECPT(1))\r\nC\r\nC     COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED\r\nC     AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION.  (NOTE THE\r\nC     ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS)\r\nC\r\n   50 IF(NPIVOT - 2)60,60,70\r\n   60 JNOT = NPIVOT + 2\r\n      GO TO 80\r\n   70 JNOT = NPIVOT - 2\r\nC\r\nC\r\n   80 DO 140 J=1,4\r\n      IF (J .EQ. JNOT) GO TO 140\r\nC\r\nC     FILL IN ECPT FOR TRIANGLE J\r\n      MPOINT = 3*J - 3\r\n      DO 110 I=1,3\r\n      NPT1 = MPOINT + I\r\n      NSUBSC = M(NPT1)\r\n      NECPT(I+1) = NGRID(NSUBSC)\r\nC\r\n      NPT1 = 3*NSUBSC - 3\r\n      NPT3 = 3 * I + 20\r\n      DO 90 K=1,3\r\n      NPT2 = NPT1 + K\r\n      NPT3 = NPT3 + 1\r\n   90 ECPT(NPT3) = SDISP(NPT2)\r\nC\r\n      NPT1 = 4*NSUBSC - 4\r\n      DO 100 K=1,4\r\n      NPT2 = NPT1 + K\r\n      NPT3 = 4*I + 4 + K\r\n  100 ECPT(NPT3) = COORD(NPT2)\r\n  110 CONTINUE\r\nC\r\nC     ECPT IS COMPLETE FOR TRIANGLE J\r\nC\r\nC     SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE\r\nC\r\n      IF( J.NE.1 ) GO TO 120\r\n      SINTH = SINANG\r\n      COSTH = COSANG\r\n      GO TO 130\r\nC\r\nC     NOTE FMMS-46 PAGE-9 FOR FOLLOWING\r\nC\r\n  120 V(1) = ECPT(14) - ECPT(10)\r\n      V(2) = ECPT(15) - ECPT(11)\r\n      V(3) = ECPT(16) - ECPT(12)\r\n      VECL = SQRT( V(1)**2 + V(2)**2 + V(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 150\r\n      U1 = ( V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3) )/VECL\r\n      SI(1) = V(2) * PVEC(3) - V(3) * PVEC(2)\r\n      SI(2) = V(3) * PVEC(1) - V(1) * PVEC(3)\r\n      SI(3) = V(1) * PVEC(2) - V(2) * PVEC(1)\r\n      U2 = ( SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3) )/VECL\r\n      VECL = SQRT( U1**2 + U2**2 )\r\n      U1 = U1 / VECL\r\n      U2 = U2 / VECL\r\n      SINTH = SINANG * U1 - COSANG * U2\r\n      COSTH = COSANG * U1 + SINANG * U2\r\n  130 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0\r\nC\r\n      CALL DTRMEM(   1   )\r\nC\r\nC     INSERTIONS ARE PERFORMED BY DTRMEM\r\nC\r\n  140 C O N T I N U E\r\nC\r\nC     ******************************************************************\r\nC\r\n      RETURN\r\n  150 CALL MESAGE(30,26,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dquad.f",
    "content": "      SUBROUTINE DQUAD (ITYPE)\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC     FOUR 6X6 DIFFERENTIAL STIFFNESS MATRICES FOR ONE PIVOT POINT OF\r\nC     A QUADRILATERAL\r\nC\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           DTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC           DTRMEM - TRIANGULAR MEMBRANE ROUTINE\r\nC           TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC           GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE\r\nC           DS1B   - INSERTION ROUTINE\r\nC\r\nC\r\nC        ITYPE    = 1             2                       4\r\nC     ECPT INDEX    QUAD1         QUAD2        TRMEM      QUAD4\r\nC     **********    *******       *******      *******    ********\r\nC          1        EL. ID.       EL. ID.      EL. ID.    EL. ID\r\nC          2        SIL1          SIL1         SIL1       SIL1\r\nC          3        SIL2          SIL2         SIL2       SIL2\r\nC          4        SIL3          SIL3         SIL3       SIL3\r\nC          5        SIL4          SIL4         THETA      SIL4\r\nC          6        THETA         THETA        MAT. ID.   MEM.T1\r\nC          7        MAT. ID. 1    MAT. ID.     T          MEM.T2\r\nC          8        T1            T            NSM        MEM.T3\r\nC          9        MAT. ID. 2    NSM          CID1       MEM.T4\r\nC         10        INERTIA I     CID1         X1         THETA\r\nC         11        MAT ID  3     X1           Y1         FLAG FOR 10\r\nC         12        T2            Y1           Z1         GRD OFFSET\r\nC         13        NSM           Z1           CID2       MAT. ID 1\r\nC         14        Z1            CID2         X2         THICKNESS\r\nC         15        Z2            X2           Y2         MAT. ID 2\r\nC         16        CID1          Y2           Z2         INERTIA I\r\nC         17        X1            Z2           CID3       MAT. ID 3\r\nC         18        Y1            CID3         X3         TS/T\r\nC         19        Z1            X3           Y3         NSM\r\nC         20        CID2          Y3           Z3         Z1\r\nC         21        X2            Z3           EL TEMP    Z2\r\nC         22        Y2            CID4         EL DEFORM  MAT. ID 4\r\nC         23        Z2            X4           LOAD TEMP  THETA\r\nC         24        CID3          Y4           U1         FLAG FOR 23\r\nC         25        X3            Z4           V1         INTEGRATION\r\nC         26        Y3            EL TEMP      W1         STRESS ANGLE\r\nC         27        Z3            EL DEFORM    U2         FLAG FOR 26\r\nC         28        CID4          LOAD TEMP    V2         ZOFF1\r\nC         29        X4            U1           W2         CID1\r\nC         30        Y4            V1           U3         X1\r\nC         31        Z4            W1           V3         Y1\r\nC         32        EL TEMP       U2           W3         Z1\r\nC         33        EL DEFORM     V2                      CID2\r\nC         34        LOAD TEMP     W2                      X2\r\nC         35        U1            U3                      Y2\r\nC         36        V1            V3                      Z2\r\nC         37        W1            W3                      CID3\r\nC         38        U2            U4                      X3\r\nC         39        V2            V4                      Y3\r\nC         40        W2            W4                      Z3\r\nC         41        U3                                    CID4\r\nC         42        V3                                    X4\r\nC         43        W3                                    Y4\r\nC         44        U4                                    Z4\r\nC         45        V4                                    EL TEMP\r\nC         46        W4\r\nC         47\r\nC         48                                              U1\r\nC         49                                              V1\r\nC         50                                              W1\r\nC         51                                              U2\r\nC         52                                              V2\r\nC         53                                              W2\r\nC         54                                              U3\r\nC         55                                              V3\r\nC         56                                              W3\r\nC         57                                              U4\r\nC         58                                              V4\r\nC         59                                              W4\r\nC\r\n      INTEGER         SUBSCA        ,SUBSCB        ,SUBSCC\r\n      DOUBLE PRECISION\r\n     1                KOUT          ,TITE          ,DPDUM        ,\r\n     2                TJTE          ,DPDUM2        ,IVECT        ,\r\n     3                D1            ,JVECT         ,D2           ,\r\n     4                KVECT         ,A1            ,KSUM         ,\r\n     5                T             ,XSUBB         ,V            ,\r\n     6                XSUBC         ,VV            ,YSUBC        ,\r\n     7                PROD9         ,TEMP          ,TEMP9        ,\r\n     8                U1            ,H             ,U2           ,\r\n     9                E             ,A             ,TEMP18       ,\r\n     O                REQUIV        ,R             ,SIGXY        ,\r\n     1                SIGX          ,SIGY\r\n      DIMENSION       M(12)         ,NECPT(100)    ,REQUIV(8)    ,\r\n     1                VQ1(3),VQ2(3) ,VQ3(3),VQ4(3) ,A(1)\r\n      CHARACTER       UFM*23        ,UWM*25        ,UIM*29       ,\r\n     1                SFM*25\r\n      COMMON /XMSSG / UFM           ,UWM           ,UIM          ,\r\n     1                SFM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ IBUFF         ,NOUT          ,NOGO\r\n      COMMON /MATIN / MATID         ,INFLAG        ,ELTEMP       ,\r\n     1                STRESS        ,SINTH         ,COSTH\r\n      COMMON /MATOUT/ G11           ,G12           ,G13          ,\r\n     1                G22           ,G23           ,G33          ,\r\n     2                RHO           ,ALPHA1        ,ALPHA2       ,\r\n     3                ALP12         ,T SUB 0       ,G SUB E      ,\r\n     4                SIGTEN        ,SIGCOM        ,SIGSHE       ,\r\n     5                G2X211        ,G2X212        ,G2X222\r\n      COMMON /DS1AAA/ NPVT          ,ICSTM         ,NCSTM\r\n      COMMON /DS1AET/ ECPT(100)\r\n      COMMON /DS1ADP/ KOUT(36)      ,TITE(18)      ,TJTE(18)     ,\r\n     1                TEMP18(18)    ,D1(3)         ,D2(3)        ,\r\n     2                A1(3)         ,V(2)          ,VV(2)        ,\r\n     3                PROD9(9)      ,TEMP9(9)      ,H            ,\r\n     4                U1            ,U2            ,DPDUM(1)     ,\r\n     5                TEMP          ,DPDUM2(43)    ,E(18)        ,\r\n     6                SIGX          ,SIGY          ,SIGXY        ,\r\n     7                XSUBB         ,XSUBC         ,YSUBC        ,\r\n     8                KSUM(36)      ,T(9)          ,IVECT(3)     ,\r\n     9                JVECT(3)      ,KVECT(3)      ,R(2,4)       ,\r\n     O                SP1(2)        ,THETA         ,SINANG       ,\r\n     1                COSANG        ,KM            ,NBEGIN       ,\r\n     2                JNOT          ,NPIVOT        ,NSUBC        ,\r\n     3                ISING         ,SUBSCA        ,SUBSCB       ,\r\n     4                SUBSCC        ,NPOINT        ,IPVT\r\n      EQUIVALENCE     (CONSTS(4),DEGRA) , (NECPT(1),ECPT(1))     ,\r\n     2                (REQUIV(1),R(1,1)), (VQ1(1),ECPT(17))      ,\r\n     4                (VQ2(1),ECPT(21)) , (VQ3(1),ECPT(25))      ,\r\n     6                (VQ4(1),ECPT(29)) , (A(1),KOUT(1))\r\n      DATA     M   /  2, 4, 1,   3, 1, 2,   4, 2, 3,   1, 3, 4   /\r\nC\r\nC\r\nC     IF ITYPE = 2, QUAD2 EST DATA IS MOVED AND STORED IN QUAD1 FORMAT\r\nC     IF ITYPE = 4, QUAD4 EST DATA IS MOVED AND STORED IN QUAD1 FORMAT\r\nC\r\n      IF (ITYPE .EQ. 4) GO TO 15\r\n      IF (ITYPE .NE. 2) GO TO 20\r\nC\r\n      DO 10 I = 10,40\r\n      NPOINT = 50 - I\r\n   10 ECPT(NPOINT+6) = ECPT(NPOINT)\r\nC\r\n      ECPT( 9) = ECPT(7)\r\n      ECPT(10) =(ECPT(8)**3.0)/12.0\r\n      ECPT(11) = ECPT(7)\r\n      ECPT(12) = ECPT(8)\r\n      GO TO 20\r\nC\r\nC     QUAD4\r\nC\r\nC     IF NECPT(11)=0, ECPT(10) IS THE MATERIAL PROPERTY ORIENTAION\r\nC     ANGLE THETA. IF IT IS NOT, NECPT(10) IS MATERIAL COORDINATE\r\nC     SYSTEM ID. IN THIS CASE, WE CAN NOT CONTINUE\r\nC\r\n   15 IF (NECPT(11) .NE. 0) GO TO 350\r\n      ECPT(6) = ECPT(10)\r\n      ECPT(7) = ECPT(13)\r\n      ECPT(8) = ECPT(14)\r\n      ECPT(9) = ECPT(15)\r\n      ECPT(10)= ECPT(16)\r\n      ECPT(11)= ECPT(17)\r\n      ECPT(12)= ECPT(14)\r\n      DO 17 I = 16,46\r\n   17 ECPT(I) = ECPT(I+13)\r\n   20 IF (ECPT(8) .EQ. 0.0) RETURN\r\nC\r\nC     CALL BUG (4HQDET,5,ECPT,52-6*ITYPE)\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 30 I = 1,4\r\n      IF (NPVT .NE. NECPT(I+1)) GO TO 30\r\n      NPIVOT = I\r\n      GO TO 40\r\n   30 CONTINUE\r\n      RETURN\r\nC\r\n   40 THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      IF (NPIVOT-2) 50,50,60\r\n   50 JNOT = NPIVOT + 2\r\n      GO TO 70\r\n   60 JNOT = NPIVOT - 2\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES.  (2X4) FOR QUADRILATERAL PLATE...\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n   70 DO 80 I = 1,8\r\n   80 REQUIV(I) = 0.0D0\r\nC\r\n      DO 90 I = 1,3\r\n      D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I))\r\n      D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I))\r\n   90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I))\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1))\r\n      DO 100 I = 1,3\r\n  100 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT) / 2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0\r\nC\r\nC     I-VECTOR =(A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 110 I = 1,3\r\n  110 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1))\r\n      DO 120 I = 1,3\r\n  120 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K CROSS I, AND X3 CALCULATION\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP =  DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) CALL MESAGE (-30,26,ECPT(1))\r\n      DO 130 I = 1,3\r\n  130 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     AT THIS POINT, THE COORDINATES OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC\r\nC     ZERO OUT KSUM MATRICES\r\nC\r\n      DO 150 I = 1,36\r\n  150 KSUM(I) = 0.0D0\r\nC\r\n      ELTEMP = ECPT(32)\r\nC\r\nC     MOVE ECPT INTO POSITIONS 51-93\r\nC\r\n      DO 160 I = 1,46\r\n  160 ECPT(I+50) = ECPT(I)\r\nC\r\nC     MOVE MISCELLANEOUS VARIABLES INTO TRMEM FORMAT\r\nC\r\n      ECPT( 6) = ECPT( 7)\r\n      ECPT( 7) = ECPT( 8)\r\n      ECPT(21) = ECPT(32)\r\n      ECPT(22) = ECPT(33)\r\n      ECPT(23) = ECPT(34)\r\nC\r\n      DO 240 J = 1,4\r\n      IF (J .EQ. JNOT) GO TO 240\r\n      KM   = 3*J - 3\r\n      IPVT = 0\r\n      DO 190 I = 1,3\r\n      NPOINT = KM+I\r\n      NSUBC  = M(NPOINT)\r\n      IF (NSUBC .EQ. NPIVOT) IPVT = I\r\n      NECPT(I+1) = NECPT(NSUBC+51)\r\n      DO 170 K = 1,4\r\n      NPOINT = 4*(NSUBC-1) + K + 65\r\n      SUBSCA = 4*(I-1) + K + 8\r\n      ECPT(SUBSCA) = ECPT(NPOINT)\r\n  170 CONTINUE\r\n      DO 180 K = 1,3\r\n      NPOINT = 3*(NSUBC-1) + K + 84\r\n      SUBSCA = 3*(I-1) + K + 23\r\n      ECPT(SUBSCA) = ECPT(NPOINT)\r\n  180 CONTINUE\r\n  190 CONTINUE\r\n      IF (IPVT .EQ. 0) GO TO 240\r\nC\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 200 I = 1,2\r\n      V(I)  = R(I,SUBSCB) - R(I,SUBSCA)\r\n  200 VV(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT(V(1)**2 + V(2)**2)\r\n      U1    = V(1)/XSUBB\r\n      U2    = V(2)/XSUBB\r\n      XSUBC = U1*VV(1) + U2*VV(2)\r\n      YSUBC = U1*VV(2) - U2*VV(1)\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J-\r\nC\r\n      CALL DTRMEM (3)\r\n      CALL DTRBSC (2,IPVT)\r\nC\r\nC     NOW WE HAVE AT HAND  K   I=NPIVOT,J=1,2,3   THREE 6X6 MATRICES\r\nC                           IJ\r\nC                                STORED AT  A(1) THROUGH A(27)\r\nC\r\nC     MAP THE THE 3X3 S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS\r\nC\r\n      DO 230 I = 1,3\r\n      NPOINT = 9*I - 8\r\nC\r\n      CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9)\r\n      CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9)\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\n      DO 220 K = 1,9\r\n      NPOINT = NPOINT + 1\r\n  220 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0\r\n  230 CONTINUE\r\nC\r\n  240 CONTINUE\r\nC\r\nC     CALL BUG (4HQDKD,220,KSUM,72)\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 250 I = 1,18\r\n  250 E(I)  = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF (NECPT(4*NPIVOT + 62) .EQ. 0) GO TO 260\r\n      CALL TRANSD (NECPT(4*NPIVOT+62),T)\r\n      CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 290\r\nC\r\n  260 DO 270 K = 1,18\r\n  270 TITE(K) = E(K)\r\nC\r\nC     RESTORE ECPT FOR CKECKOUT\r\nC\r\n      DO 280 K = 1,46\r\n  280 ECPT(K) = ECPT(K+50)\r\nC\r\n  290 DO 330 J = 1,4\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF (NECPT(4*J+62) .EQ. 0) GO TO 300\r\n      CALL TRANSD (NECPT(4*J+62),T)\r\n      CALL GMMATD (T,3,3,1, E(1),3,3,0,  TJTE( 1))\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 320\r\nC\r\n  300 DO 310 K = 1,18\r\n  310 TJTE(K) = E(K)\r\n  320 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1))\r\n      CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1))\r\n      CALL DS1B (KOUT,NECPT(J+51))\r\n  330 CONTINUE\r\n      RETURN\r\nC\r\nC     COULD NOT CONTINUE\r\nC\r\n  350 WRITE  (NOUT,360) SFM\r\n  360 FORMAT (A25,', DEFFICIENT SOURCE CODE IN DQUAD TO HANDLE CQUAD4 ',\r\n     1       'ELEMENT WITH MATERIAL', /5X,\r\n     2       'PROPERTY COORD. SYSTEM. ANGLE MUST BE SPECIFIED')\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/draw.f",
    "content": "      SUBROUTINE DRAW (GPLST,X,U,S,DISP,STEREO,OPCOR,BUF1)\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         DISP\r\n      INTEGER         ANDF,AXIS(3),BUF1,DAXIS,ELSET,GP,GPLST(1),OPCOR,\r\n     1                PCON,PEDGE,PEN,PLABEL,PLTNUM,PORIG,PPEN,PRJECT,\r\n     2                PSET,PSHAPE,PSYMBL,PSYMM,PVECTR,STEREO,SYM(2),\r\n     3                SUCOR,V,VEC(3),COLOR,DEFM\r\n      REAL            A(3),MAXDEF,S(2,1),SIGN(3),U(3,1),X(3,1),MIN,MAX\r\n      DOUBLE PRECISION DR,SUM\r\n      COMMON /BLANK / NGP,SKP11(3),PLTNUM,NGPSET,SKP12(4),SKP21(2),ELSET\r\n      COMMON /XXPARM/ PBUFSZ,CAMERA(5),NOPENS,PAPSIZ(2),PENPAP(27),\r\n     1                SCALE,OBJMOD,SKPSCL,MAXDEF,DEFMAX,AXES(3),\r\n     2                DAXIS(3),VIEW(9),VANTX1,R0,VANTX2(3),D0,VANTX3(2),\r\n     3                PRJECT,VANTX4,ORIGX1(14),EDGE(11,4),XY(11,3),\r\n     4                NCNTR(51),ICNTVL,SKP24(24),COLOR\r\n      COMMON /PLTDAT/ MODEL,PLOTER,REG(4),AXYMAX(14)\r\n      COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3)\r\n      COMMON /DRWDAT/ PSET,PLABEL,PORIG,PPEN,PSHAPE,PSYMBL(2),PSYMM(6),\r\n     1                PVECTR,PCON,PEDGE\r\nC\r\nC     /DRWDAT/ CONTROLS THIS ROUTINE\r\nC     PLABEL - LABELING GRIDS, ELEMENTS...\r\nC            -N = NONE\r\nC             0 = GID             3 = EID          6 = EID + GID\r\nC             1 = GID + SPC       4 = EID + PID\r\nC             2 = UNDEFINED.      5 = UNDEFINED\r\nC     PSHAPE - WHICH SHAPE OR OUTLINE OPTION TO DRAW...\r\nC             1 = UNDEFORMED      2 = DEFORMED     3 = BOTH\r\nC     PSYMBL(2) - DRAW SYMBOLS IF PSYMBL(1).NE.0\r\nC     PSYMM (6) - SYMMETRY FLAGS...\r\nC           (1) = X AXIS SIGN CHANGE   (4) = X DEFORMATION SIGN CHANGE\r\nC           (2) = Y                    (5) = Y\r\nC           (3) = Z                    (6) = Z\r\nC     PVECTR - DEFORMATION VECTORS DRAWN (AS INTERPRETED BY INTVEC)...\r\nC             0 = NONE\r\nC             1 = X     4 = Z     7 = XYZ        10 = RY    13 = RXZ\r\nC             2 = Y     5 = ZX    8 = UNDEFINED  11 = RXY   14 = RYZ\r\nC             3 = XY    6 = ZY    9 = RX         12 = RZ    15 = RXYZ\r\nC             THE NEGATIVE OF ABOVE, DO NOT DRAW SHAPE.\r\nC    PCON   - NONZERO MEANS CONTOUR PLOT...\r\nC    PEDGE  - 0 = SHAPE DRAWN,\r\nC             1 = OUTLINE (BORDER) DRAWN ACCORDING TO PSHAPE-S\r\nC             2 = HIDDEN LINE PLOT\r\nC             3 = OFFSET PLOT\r\nC             4 THRU N = SHRINK PLOT, ELEMENT SHRUNK BY THIS PERCENT\r\nC             200 +  N = HIDDEN LINE AND SHRINK PLOT, N.GT.2\r\nC             100 = FILL ?\r\nC\r\nC     OPCOR = NO. OF OPEN CORE WORDS AVAILABLE IN S\r\nC             IT IS NOT A POINTER TO S, NOR A OPEN CORE ARRAY IN S\r\nC     BUF1  = BUFFER AVAILABLE AT END OF CORE W.R.T. GPLST = BUFSIZ+1\r\nC\r\nC     OPEN CORE /ZZPLOT/\r\nC     SETID NSETS NDOF      NGP 3*NGPSET 3*NGPSET  OPCOR   N\r\nC     -----+-----+----+----+---+--------+--------+-------+--+--+-+-+-+-+\r\nC          !          N1   N2  I1 (X)   I2 (U)   I3  (S)   DEFBUF..BUF..\r\nC          !(DEFLST)       !\r\nC                          !(GPLST)                      N=2*NGPSET\r\nC\r\nC     NGP    = TOTAL NO. OF GRID POINTS IN THE STRUCTURE\r\nC     NGPSET = NO. OF GRID POINTS USED IN CURRENT SET OF PLOTTING\r\nC     GPLST  = TABLE OF NGP IN LENGTH,\r\nC              GPLST(I) = 0 IF THIS I-TH GRID POINT IS NOT USED FOR THE\r\nC              CURRENT PLOT. OTHERWISE GPLST(I) IS NON-ZERO.\r\nC     X      = X,Y,Z COORDINATES OF THE GRID POINTS CORRESPONDING TO THE\r\nC              NON-ZERO GRID POINTS IN THE GPLST TABLE\r\nC              TOTALLY, THERE ARE NGPSET GRID POINTS IN X\r\nC     U      = X,Y,Z DISPLACEMENTS, ARRANGED SIMILARLY TO X\r\nC     S      = SCRATCH AREA\r\nC\r\n      SCALEX = 1.0\r\n      IF (PRJECT .EQ. 3) SCALEX = OBJMOD\r\nC\r\nC     SETUP THE PLOTTER REGION.\r\nC\r\n      IF (PSYMM(1).LT.0 .OR. PSYMM(2).LT.0 .OR. PSYMM(3).LT.0) GO TO 10\r\n      REG(1) = EDGE(PORIG,1)*AXYMAX(1)\r\n      REG(2) = EDGE(PORIG,2)*AXYMAX(2)\r\n      REG(3) = EDGE(PORIG,3)*AXYMAX(1)\r\n      REG(4) = EDGE(PORIG,4)*AXYMAX(2)\r\n      GO TO 20\r\n   10 REG(1) = 0.0\r\n      REG(2) = 0.0\r\n      REG(3) = AXYMAX(1)\r\n      REG(4) = AXYMAX(2)\r\nC\r\nC     REDUCE THE GRID POINT CO-ORDINATES TO PLOT SIZE + TRANSLATE TO\r\nC     THE SELECTED ORIGIN.\r\nC\r\n   20 DO 40 I = 1,3\r\n      MIN(I) = +1.E+20\r\n      MAX(I) = -1.E+20\r\n      IF (PSYMM(I) .GE. 0) GO TO 40\r\n      DO 30 GP = 1,NGPSET\r\n   30 X(I,GP) = -X(I,GP)\r\n   40 CONTINUE\r\n      CALL PROCES (X)\r\n      CALL PERPEC (X,STEREO)\r\n      XORIG = XY(PORIG,1)\r\n      IF (STEREO .NE. 0) XORIG = XY(PORIG,2)\r\n      DO 50 GP = 1,NGPSET\r\n      X(2,GP) = SCALE*X(2,GP) - XORIG\r\n      X(3,GP) = SCALE*X(3,GP) - XY(PORIG,3)\r\n   50 CONTINUE\r\nC\r\n      IF (.NOT.DISP .OR. MAXDEF.EQ.0 .OR. DEFMAX.EQ.0) GO TO 120\r\nC\r\nC     PROCESS THE DEFORMATIONS.\r\nC     EXCHANGE AXES, REDUCE THE MAXIMUM DEFORMATION TO -MAXDEF-.\r\nC\r\n      DO 100 I = 1,3\r\n      AXIS(I) = IABS(DAXIS(I))\r\n      SIGN(I) = 1.\r\n      IF (DAXIS(I) .LT. 0) SIGN(I) = -1.\r\n  100 CONTINUE\r\n      I = AXIS(1)\r\n      J = AXIS(2)\r\n      K = AXIS(3)\r\n      D = MAXDEF/DEFMAX\r\n      DO 110 GP = 1,NGPSET\r\n      IF (PSYMM(4) .LT. 0) U(1,GP) = -U(1,GP)\r\n      IF (PSYMM(5) .LT. 0) U(2,GP) = -U(2,GP)\r\n      IF (PSYMM(6) .LT. 0) U(3,GP) = -U(3,GP)\r\n      A(1) = U(I,GP)\r\n      A(2) = U(J,GP)\r\n      A(3) = U(K,GP)\r\n      U(1,GP) = A(1)*SIGN(1)*D\r\n      U(2,GP) = A(2)*SIGN(2)*D\r\n      U(3,GP) = A(3)*SIGN(3)*D\r\n  110 CONTINUE\r\n      CALL INTVEC (PVECTR)\r\nC\r\nC     IF PVECTR .LT. 0 NO SHAPE WILL BE DRAWN\r\nC     ATTEMPT TO REMOVE DUPLICATE LINES\r\nC\r\n  120 IOPT = -1\r\n      SUCOR = 2*NGPSET + 1\r\n      IF (.NOT.DISP) SUCOR = 1\r\nC\r\nC     FIRST DETERMINE OPTIONS - UNIQUE LINES FOR PSHAPE=3 MAY ONLY BE\r\nC     FOR THE UNDERLAY.  ISHAPE = 0 MEANS DRAW THE SHAPE..\r\nC\r\n      ISHAPE = -1\r\n      LATER  = 0\r\n      IF (PVECTR.LT.0 .OR. (PEDGE.NE.0 .AND. PEDGE.NE.3)) GO TO 130\r\n      ISHAPE = 0\r\n      IF (OPCOR .LT. NGPSET+NGP+1) GO TO 130\r\n      IOPT = 0\r\n      DEFM = 0\r\n      IF (PSHAPE .GE. 2) DEFM = 1\r\n      CALL LINEL (S(SUCOR,1),IPTL,OPCOR,IOPT,X,PPEN,DEFM,GPLST)\r\n      IF (PEDGE .EQ. 3) GO TO 500\r\n      IF (IPTL  .LE. 0) IOPT = -1\r\n      CALL BCKREC (ELSET)\r\n  130 IF (PSHAPE.EQ.2 .AND. DISP) GO TO 260\r\nC\r\nC     DRAW UNDEFORMED SHAPE (USE PEN1 + SYMBOL 2 IF THE DEFORMED SHAPE\r\nC     OR DEFORMATION VECTORS ARE ALSO TO BE DRAWN).\r\nC\r\n      PEN = PPEN\r\n      IF (DISP .AND. PSHAPE.GT.2) PEN = 1\r\n      IF (ISHAPE .EQ. 0)\r\n     1    CALL SHAPE (*500,GPLST,X,0,PEN,0,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n      IF (PEDGE .LT. 2) GO TO 140\r\n      CALL HDSURF (GPLST,X,0,PEN,0,NMAX,MAXSF,S(SUCOR,1),BUF1,PEDGE,\r\n     1             OPCOR)\r\n      IF (PEDGE.NE.2 .AND. PEDGE.LT.200) GO TO 140\r\n      CALL HDPLOT (GPLST,NMAX,MAXSF,OPCOR,BUF1)\r\n      GO TO 220\r\n  140 IF (PCON .EQ. 0) GO TO 200\r\n      IF (.NOT.DISP .OR. PSHAPE.LT.3) GO TO 210\r\n      LATER = PCON\r\n      PCON  = 0\r\n  200 IF (PEDGE.EQ.0 .OR. PEDGE.GE.2) GO TO 220\r\n  210 IOPT = -1\r\n      CALL CONTOR (GPLST,X,0,U,S(SUCOR,1),S(SUCOR,1),PEN,0,BUF1,OPCOR)\r\n      IF (PEDGE .EQ. 1) CALL BORDER (GPLST,X,0,S(SUCOR,1),0,BUF1,OPCOR)\r\n      IF (PEDGE.EQ.1 .OR. COLOR.GE.0) GO TO 220\r\n      CALL GOPEN (ELSET,GPLST(BUF1),0)\r\n      CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n  220 PCON = MAX0(PCON,LATER)\r\n      IF (PPEN .GT. 31)\r\n     1    CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n      IF (PSHAPE .EQ. 1) PCON = 0\r\n      IF (PSYMBL(1) .EQ. 0) GO TO 250\r\n      IF (DISP) GO TO 230\r\n      SYM(1) = PSYMBL(1)\r\n      SYM(2) = PSYMBL(2)\r\n      GO TO 240\r\n  230 SYM(1) = 2\r\n      SYM(2) = 0\r\n  240 CALL GPTSYM (GPLST,X,0,SYM,0)\r\n  250 IF (PLABEL .LT. 0) GO TO 260\r\n      I = PLABEL/3\r\n      IF (I .NE. 1) CALL GPTLBL (GPLST,X,0,0,BUF1)\r\n      IF (I .LT. 1) GO TO 260\r\n      CALL ELELBL (GPLST,X,0,0,BUF1)\r\n      CALL BCKREC (ELSET)\r\n  260 IF (.NOT.DISP .OR. MAXDEF.EQ.0.0 .OR. DEFMAX.EQ.0.0) GO TO 500\r\n      IF (PEDGE .EQ. 3) GO TO 500\r\n      IF (PSHAPE.LT.2 .AND. LATER.EQ.0) GO TO 350\r\nC\r\nC     ROTATE THE DEFORMATIONS\r\nC\r\n      DO 290 GP = 1,NGPSET\r\n      DO 280 J  = 1,3\r\n      SUM = CSTM(J,1)*U(1,GP) + CSTM(J,2)*U(2,GP) + CSTM(J,3)*U(3,GP)\r\n      IF (J .NE. 1) GO TO 270\r\n      IF (PRJECT .NE. 1) DR = D0/(R0-SCALEX*(X(1,GP)+SUM))\r\n      GO TO 280\r\n  270 IF (PRJECT .NE. 1) SUM = SCALEX*DR*SUM\r\n      S(J-1,GP) = X(J,GP) + SCALE*SUM\r\n  280 CONTINUE\r\n  290 CONTINUE\r\nC\r\nC     DRAW THE DEFORMED SHAPE\r\nC\r\n      IF (PVECTR .LT. 0) GO TO 300\r\n      PEN = PPEN\r\n      IF (PSHAPE.EQ.2 .AND. PVECTR.NE.0) PEN = 1\r\n      IF (PEDGE .EQ. 0)\r\n     1    CALL SHAPE (*500,GPLST,X,S,PEN,1,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n      IF (PEDGE .LT. 2) GO TO 300\r\n      CALL HDSURF (GPLST,X,S,PEN,1,NMAX,MAXSF,S(SUCOR,1),BUF1,PEDGE,\r\n     1             OPCOR)\r\n      IF (PEDGE.EQ.2 .OR. PEDGE.GT.200)\r\n     1    CALL HDPLOT (GPLST,NMAX,MAXSF,OPCOR,BUF1)\r\n  300 IF (PCON.EQ.0 .OR. PEDGE.EQ.2 .OR. PEDGE.GT.200) GO TO 310\r\n      IF (ICNTVL.LE. 9 .AND. PSHAPE.EQ.1) GO TO 310\r\n      IF (ICNTVL.GT.13 .AND. PSHAPE.EQ.1) GO TO 310\r\n      CALL CONTOR (GPLST,X,S,U,S(SUCOR,1),S(SUCOR,1),PEN,0,BUF1,OPCOR)\r\n      IF (PEDGE.EQ.1 .OR. COLOR.GE.0) GO TO 310\r\n      CALL GOPEN (ELSET,GPLST(BUF1),0)\r\n      CALL SHAPE (*500,GPLST,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n  310 IF (PEDGE.EQ.  1) CALL BORDER (GPLST,X,S,S(SUCOR,1),1,BUF1,OPCOR)\r\n      IF (PPEN .GT. 31)\r\n     1    CALL SHAPE  (*500,GPL,X,0,1,0,IOPT,IPTL,S(SUCOR,1),OPCOR)\r\n      IF (PSYMBL(1) .EQ. 0) GO TO 340\r\n      IF (PSHAPE.EQ.2 .AND. PVECTR.NE.0) GO TO 320\r\n      SYM(1) = PSYMBL(1)\r\n      SYM(2) = PSYMBL(2)\r\n      GO TO 330\r\n  320 SYM(1) = 2\r\n      SYM(2) = 0\r\n  330 CALL GPTSYM (GPLST,X,S,SYM,1)\r\n  340 IF (PLABEL.LT.0 .OR. PSHAPE.NE.2) GO TO 350\r\n      I = PLABEL/3\r\n      IF (I .NE. 1) CALL GPTLBL (GPLST,X,S,1,BUF1)\r\n      IF (I .LT. 1) GO TO 350\r\n      CALL ELELBL (GPLST,X,S,1,BUF1)\r\n  350 IF (PVECTR .EQ. 0) GO TO 500\r\n      PVECTR = IABS(PVECTR)\r\nC\r\nC     PROCESS THE DEFORMATION VECTORS\r\nC\r\n      IF (PVECTR .LE. 7) GO TO 410\r\n      NV = 1\r\n      VEC(1) = 0\r\n      VEC(2) = 0\r\n      VEC(3) = 0\r\n      DO 400 V = 1,3\r\n      IF (ANDF(PVECTR,2**(V-1)) .EQ. 0) GO TO 400\r\n      IF (AXIS(1).EQ.V) VEC(1) = 1\r\n      IF (AXIS(2).EQ.V) VEC(2) = 1\r\n      IF (AXIS(3).EQ.V) VEC(3) = 1\r\n  400 CONTINUE\r\n      GO TO 420\r\n  410 NV = 3\r\n  420 DO 490 V = 1,NV\r\n      IF (PVECTR .GT. 7) GO TO 440\r\n      IF (ANDF(PVECTR,2**(V-1)) .EQ. 0) GO TO 490\r\n      DO 430 I = 1,3\r\n      VEC(I) = 0\r\n      IF (AXIS(I) .EQ. V) VEC(I) = 1\r\n  430 CONTINUE\r\nC\r\nC     ROTATE THE DEFORMATIONS (VEC = VECTOR DIRECTION TO BE DRAWN)\r\nC\r\n  440 DO 480 GP = 1,NGPSET\r\n      DO 470 J  = 1,3\r\n      SUM = 0.D0\r\n      DO 450 I = 1,3\r\n      IF (VEC(I) .NE. 0) SUM = SUM + CSTM(J,I)*U(I,GP)\r\n  450 CONTINUE\r\n      IF (J .NE. 1) GO TO 460\r\n      IF (PRJECT .NE. 1) DR = D0/(R0-SCALEX*(X(1,GP)+SUM))\r\n      GO TO 470\r\n  460 IF (PRJECT .NE. 1) SUM = SCALEX*DR*SUM\r\n      S(J-1,GP) = X(J,GP) + SCALE*SUM\r\n  470 CONTINUE\r\n  480 CONTINUE\r\nC\r\nC     DRAW THE DEFORMATION VECTOR\r\nC\r\n      CALL DVECTR (GPLST,X,S,PPEN)\r\n      IF (PSYMBL(1).EQ.0 .OR. PSHAPE.EQ.3) GO TO 490\r\n      J = 0\r\n      IF (PSHAPE .EQ. 1) J = 1\r\n      CALL GPTSYM (GPLST,X,S,PSYMBL,J)\r\n  490 CONTINUE\r\nC\r\nC     END OF PLOT\r\nC\r\nC     IF NOT CONTOUR PLOT, CALL PCOORD TO DRAW A SMALL X-Y-Z COORDINATE\r\nC     TRIAD AT THE LOWER RIGHT CORNER OF PLOT\r\nC\r\n  500 IF (PEDGE .NE. 1) CALL PCOORD (PEN)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/drkapm.f",
    "content": "      SUBROUTINE DRKAPM (ARG,INDX,RESLT)\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE DERVIATIVE OF KAPPA MINUS\r\nC\r\n      COMPLEX         AI,ARG,RESLT,BSYCON,C1,C2,C2TEST,AT2,AT3,ALP0,\r\n     1                ALP,ALN\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\nC\r\n      PI2  = 2.0*PI\r\n      A1   = PI2/(SPS-SNS)\r\n      A2   =-A1\r\n      GAM0 = SPS*DEL - SIGMA\r\n      B1   = GAM0/(SPS-SNS)\r\n      C1   = CEXP(-AI*ARG/2.0*(SPS-SNS))\r\n      C2Q  = GAM0/DSTR - SCRK\r\n      C3Q  = GAM0/DSTR + SCRK\r\n      S1   = SPS/(DSTR**2)\r\n      S2   = SNS/DSTR\r\n      NN   = 0\r\n      CSEC = C2Q*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAM0*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2Q.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP0 = T1 + T2\r\n      IF (NN .EQ. 1) ALP0 = CMPLX(T1,T2)\r\n      RINDX = INDX\r\n      IF (INDX .EQ. 0) GO TO 10\r\n      C2   = C1*B1/ALP0*CSIN(PI/A1*(ARG-B1))/(A1*RINDX+B1-ARG)*\r\n     1       (1.0+(ALP0-B1)/(B1-ARG))/(SIN(PI*B1/A1))*BSYCON\r\n      GO TO 20\r\n   10 CONTINUE\r\n      C2   = C1*B1/ALP0*CSIN(PI/A1*(ARG-B1))/((B1-ALP0)*SIN(PI*B1/A1))*\r\n     1       BSYCON\r\n   20 CONTINUE\r\n      C2TEST = 0.0\r\n      DO 30 I = 1,200\r\n      R    = I\r\n      IF (INDX.LT.0 .AND. ABS(RINDX).EQ.R) GO TO 30\r\n      IF (INDX.GT.0 .AND. RINDX.EQ.R) GO TO 30\r\n      GAMP = PI2*R + GAM0\r\n      GAMN =-PI2*R + GAM0\r\n      C2P  = GAMP/DSTR - SCRK\r\n      C2Q  = GAMP/DSTR + SCRK\r\n      C2N  = GAMN/DSTR - SCRK\r\n      C3Q  = GAMN/DSTR + SCRK\r\n      NN   = 0\r\n      CSEC = C2P*C2Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMP*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2P.LT.0.0 .AND. C2Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALP = T1 + T2\r\n      IF (NN .EQ. 1) ALP = CMPLX(T1,T2)\r\n      NN   = 0\r\n      CSEC = C2N*C3Q\r\n      IF (CSEC .LT. 0.0) NN = 1\r\n      T1   = GAMN*S1\r\n      T2   = S2*SQRT(ABS(CSEC))\r\n      IF (C2N.LT.0.0 .AND. C3Q.LT.0.0) T2 =-T2\r\n      IF (NN .EQ. 0) ALN = T1 + T2\r\n      IF (NN .EQ. 1) ALN = CMPLX(T1,T2)\r\n      AT2  = (ALP-A1*R-B1)/(A1*R+B1-ARG)\r\n      AT3  = (ALN-A2*R-B1)/(A2*R+B1-ARG)\r\n      C2   = C2*(1.0+AT2)*(1.0+AT3)\r\n      IF (CABS((C2-C2TEST)/C2) .LT. 0.0009) GO TO 40\r\n      C2TEST = C2\r\n   30 CONTINUE\r\n      GO TO 50\r\n   40 CONTINUE\r\n      RESLT = C2\r\n      RETURN\r\nC\r\n   50 CONTINUE\r\n      WRITE  (IBBOUT,60) UFM\r\n   60 FORMAT (A23,' - AMG MODULE -SUBROUTINE DRKAPM')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/drod.f",
    "content": "      SUBROUTINE DROD\r\nC*****\r\nC THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES  K(NPVT,NPVT) AND\r\nC K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J.\r\nC*****\r\nC\r\nC\r\nC\r\nC                        E C P T  F O R  T H E  R O D\r\nC\r\nC\r\nC\r\nC                                                                CARD\r\nC                                                 TYPE   TABLE   TYPE\r\nC ECPT( 1)ELEMENT ID.                               I     ECT    CROD\r\nC ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A      I     ECT    CROD\r\nC ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B      I     ECT    CROD\r\nC ECPT( 4)MATERIAL ID.                              I     EPT    PROD\r\nC ECPT( 5)AREA  (A)                                 R     EPT    PROD\r\nC ECPT( 6)POLAR MOMENT OF INERTIA (J)               R     EPT    PROD\r\nC ECPT( 7) TORSIONAL STRESS COEFF (C)                R    EPT    PROD\r\nC ECPT( 8) NON-STRUCTRAL MASS (MU)                   R    EPT    PROD\r\nC ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A       I   BGPDT   GRID\r\nC ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B       I   BGPDT\r\nC ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(17) ELEMENT TEMPERATURE\r\nC ECPT(18) ELEMENT DEFORMATION\r\nC ECPT(19) AVERAGE ELEMENT LOADING TEMPERATURE\r\nC ECPT(20)                ...\r\nC ECPT(21) DISPLACEMENT COOR. FOR GRID PT. A\r\nC ECPT(22)                ...\r\nC ECPT(23)                ...\r\nC ECPT(24) DISPLACEMENT COOR. FOR GRID PT. B\r\nC ECPT(25)                ...\r\nC\r\nC\r\nC\r\n      DOUBLE PRECISION\r\n     1                   DZ(1)              ,X\r\n     2,                  Y                  ,Z\r\n     3,                  XL                 ,XN(3)\r\n     4,                  KE(36)             ,TA(9)\r\n     5,                  TB(9)              ,A\r\n     6,                  E                  ,ALPHA\r\n     7,                  TSUB0              ,UA(6)\r\n     8,                  UB(6)              ,DIFF(3)\r\n     9,                  DPTERM             ,DELTA\r\n     T,                  AVGLTP             ,FX\r\n     1,                  XM(3)              ,YYT(18)\r\n     2,                  ZZT(9)             ,YVEC(3)\r\n     3,                  ZVEC(3)            ,D(6)\r\n     4,                  YL                 ,ZL\r\n     5,                  GX\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   IZ(1)              ,IECPT(19)\r\nC\r\nC DS1A VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  RZ(1)\r\nC\r\nC DS1A COMMON BLOCK\r\nC\r\n      COMMON   /DS1AAA/  NPVT\r\n     1,                  ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  CSTM               ,MPT\r\n     6,                  DIT                ,ECPTDS\r\n     7,                  GPCT               ,KGGD\r\n     8,                  INRW               ,OUTRW\r\n     9,                  EOR                ,NEOR\r\n     T,                  CLSRW\r\n     1,                  JMAX               ,FROWIC\r\n     2,                  LROWIC             ,NROWSC\r\n     3,                  NLINKS             ,LINK(10)\r\n     4,                  NOGO\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /DS1AET/  ECPT(100)\r\nC\r\nC DS1A LOCAL VARIABLE (SCRATCH) BLOCK\r\nC\r\n      COMMON   /DS1ADP/\r\n     1                   X                  ,Y\r\n     2,                  Z                  ,XL\r\n     3,                  XN                 ,KE\r\n     4,                  TA                 ,TB\r\n     5,                  A                  ,E\r\n     6,                  ALPHA              ,T SUB 0\r\n     7,                  UA                 ,UB\r\n     8,                  DIFF               ,DPTERM\r\n     9,                  DELTA              ,AVGLTP\r\n     T,                  FX                 ,XM\r\n     1,                  YYT\r\n     2,                  YVEC               ,ZVEC\r\n     3,                  YL                 ,ZL\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\nC\r\nC\r\nC\r\n      COMMON   /MATOUT/\r\n     1                   ES                 ,G\r\n     2,                  NU                 ,RHO\r\n     3,                  ALPHA S            ,T SUB 0 S\r\n     4,                  GSUBE              ,SIGT\r\n     5,                  SIGC               ,SIGS\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (RZ(1),IZ(1),DZ(1)),(ECPT(1),IECPT(1))\r\n     2,                  (ZZT(1),YYT(10))\r\nC\r\nC BEGIN EXECUTION\r\nC\r\n      IF (IECPT(2) .EQ. NPVT) GO TO 10\r\n      IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\n      ITEMP = IECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = ITEMP\r\n      KA  = 13\r\n      KB  =  9\r\n      IDISPA = 22\r\n      IDISPB = 19\r\n      GO TO 20\r\n   10 KA  =  9\r\n      KB  =  13\r\n      IDISPA = 19\r\n      IDISPB = 22\r\nC\r\nC AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID POINT.\r\nC SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT.\r\nC NOW COMPUTE THE LENGTH OF THE ROD.\r\nC\r\nC\r\nC WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC WILL BE\r\nC DOUBLE PRECISION\r\nC\r\n   20 D(1) = ECPT(KA+1)\r\n      D(2) = ECPT(KA+2)\r\n      D(3) = ECPT(KA+3)\r\n      D(4) = ECPT(KB+1)\r\n      D(5) = ECPT(KB+2)\r\n      D(6) = ECPT(KB+3)\r\n      X    = D(1) - D(4)\r\n      Y    = D(2) - D(5)\r\n      Z    = D(3) - D(6)\r\n      XL = DSQRT (X**2 + Y**2 + Z**2)\r\n      IF (XL.EQ.0.0D0) GO TO 120\r\nC\r\nC CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES.\r\nC\r\n      XN(1) = X / XL\r\n      XN(2) = Y / XL\r\n      XN(3) = Z / XL\r\nC\r\nC CALL SUBROUTINE MAT TO FETCH MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = IECPT(4)\r\n      MATFLG = 1\r\n      ELTEMP = ECPT(17)\r\n      CALL MAT (IECPT(1))\r\nC\r\nC STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      UA(1) = ECPT(IDISPA+1)\r\n      UA(2) = ECPT(IDISPA+2)\r\n      UA(3) = ECPT(IDISPA+3)\r\n      UB(1) = ECPT(IDISPB+1)\r\n      UB(2) = ECPT(IDISPB+2)\r\n      UB(3) = ECPT(IDISPB+3)\r\nC\r\nC\r\nC COMPUTE THE DIFFERENCE VECTOR DIFF =  T  * U   -  T  * U\r\nC                                        A    A      B    B\r\nC\r\n      IBASEA = 0\r\n      IF (IECPT(KA) .EQ. 0) GO TO 30\r\n      CALL TRANSD (ECPT(KA),TA)\r\n      IBASEA = 3\r\n      CALL GMMATD (TA,3,3,0, UA(1),3,1,0, UA(4))\r\n   30 IBASEB = 0\r\n      IF (IECPT(KB) .EQ. 0) GO TO 40\r\n      CALL TRANSD (ECPT(KB),TB)\r\n      IBASEB = 3\r\n      CALL GMMATD (TB,3,3,0, UB(1),3,1,0, UB(4))\r\n   40 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1)\r\n      DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2)\r\n      DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3)\r\nC\r\nC COMPUTE DOT PRODUCT XN . DIFF\r\nC\r\n      CALL GMMATD (XN,3,1,1, DIFF,3,1,0, DPTERM)\r\nC\r\nC COMPUTE AXIAL FORCE FX, AND TORSIONAL FORCE GX\r\nC\r\n      DELTA = ECPT(18)\r\n      FX = DPTERM - DELTA\r\n      IF (IECPT(19) .EQ. (-1)) GO TO 50\r\n      T SUB 0 = T SUB 0 S\r\n      ALPHA = ALPHA S\r\n      AVGLTP = ECPT(19)\r\n      FX = FX - ALPHA*XL*(AVGLTP - T SUB 0)\r\n   50 A  = ECPT(5)\r\n      E  = E S\r\n      FX = A * E * FX / XL**2\r\n      GX = ECPT(6) * FX / A\r\nC\r\nC COMPUTE THE XM VECTOR\r\nC\r\n      XM(1) = 0.0D0\r\n      XM(2) = 0.0D0\r\n      XM(3) = 0.0D0\r\n      I = 1\r\n      IF (DABS(XN(2)) .LT. DABS(XN(1))) I = 2\r\n      IF (DABS(XN(3)) .LT. DABS(XN(I))) I = 3\r\n      XM(I) = 1.0D0\r\nC\r\nC COMPUTE YVEC, THE CROSS PRODUCT XM X XN\r\nC\r\n      YVEC(1) = XM(2) * XN(3)  -  XM(3) * XN(2)\r\n      YVEC(2) = XM(3) * XN(1)  -  XM(1) * XN(3)\r\n      YVEC(3) = XM(1) * XN(2)  -  XM(2) * XN(1)\r\n      YL = DSQRT (YVEC(1)**2  +  YVEC(2)**2  +  YVEC(3)**2)\r\n      YVEC(1) = YVEC(1) / YL\r\n      YVEC(2) = YVEC(2) / YL\r\n      YVEC(3) = YVEC(3) / YL\r\nC\r\nC COMPUTE ZVEC, THE CROSS PRODUCT XN X YVEC\r\nC\r\n      ZVEC(1) = XN(2) * YVEC(3)  -  XN(3) * YVEC(2)\r\n      ZVEC(2) = XN(3) * YVEC(1)  -  XN(1) * YVEC(3)\r\n      ZVEC(3) = XN(1) * YVEC(2)  -  XN(2) * YVEC(1)\r\n      ZL = DSQRT (ZVEC(1)**2  +  ZVEC(2)**2  +  ZVEC(3)**2)\r\n      ZVEC(1) = ZVEC(1) / ZL\r\n      ZVEC(2) = ZVEC(2) / ZL\r\n      ZVEC(3) = ZVEC(3) / ZL\r\nC\r\nC                    T                 T\r\nC COMPUTE YVEC * YVEC  AND  ZVEC * ZVEC\r\nC\r\n      CALL GMMATD (YVEC,3,1,0, YVEC,3,1,1, YYT)\r\n      CALL GMMATD (ZVEC,3,1,0, ZVEC,3,1,1, ZZT)\r\nC\r\nC ADD THESE TWO MATRICES AND STORE IN YYT\r\nC\r\n      DO 60 I = 1,9\r\n   60 YYT(I) = YYT(I) + ZZT(I)\r\nC\r\nC          T\r\nC COMPUTE T  (YYT) IF POINT A IS NOT IN BASIC COORDINATES\r\nC          A\r\nC\r\n      IAYPNT = 1\r\n      IF (IECPT(KA) .EQ. 0) GO TO 70\r\n      IAYPNT = 10\r\n      CALL GMMATD (TA,3,3,1, YYT,3,3,0, YYT(10))\r\nC\r\nC          T\r\nC COMPUTE T  (YYT) T  AND STORE IN YYT(1)\r\nC          A        A\r\nC\r\n      CALL GMMATD (YYT(10),3,3,0, TA,3,3,0, YYT(1))\r\nC\r\nC ZERO OUT KE MATRIX\r\nC\r\n   70 DO 80 I = 1,36\r\n   80 KE(I) = 0.0D0\r\n      K = 1\r\n      J = 2\r\nC\r\nC FILL UP THE 6 X 6 KE\r\nC\r\n   90 KE( 1) = FX * YYT(K  )\r\n      KE( 2) = FX * YYT(K+1)\r\n      KE( 3) = FX * YYT(K+2)\r\n      KE( 7) = FX * YYT(K+3)\r\n      KE( 8) = FX * YYT(K+4)\r\n      KE( 9) = FX * YYT(K+5)\r\n      KE(13) = FX * YYT(K+6)\r\n      KE(14) = FX * YYT(K+7)\r\n      KE(15) = FX * YYT(K+8)\r\n      KE(22) = GX * YYT(K  )\r\n      KE(23) = GX * YYT(K+1)\r\n      KE(24) = GX * YYT(K+2)\r\n      KE(28) = GX * YYT(K+3)\r\n      KE(29) = GX * YYT(K+4)\r\n      KE(30) = GX * YYT(K+5)\r\n      KE(34) = GX * YYT(K+6)\r\n      KE(35) = GX * YYT(K+7)\r\n      KE(36) = GX * YYT(K+8)\r\n      CALL DS1B (KE,IECPT(J))\r\n      IF (J .EQ. 3) RETURN\r\n      IF (IECPT(KB) .EQ. 0) GO TO 100\r\n      IBYPNT = 1\r\n      IF (IAYPNT .EQ. 1) IBYPNT = 10\r\n      CALL GMMATD (YYT(IAYPNT),3,3,0, TB,3,3,0, YYT(IBYPNT))\r\n      K = IBYPNT\r\n      GO TO 110\r\n  100 K = IAYPNT\r\n  110 J = 3\r\n      FX = -FX\r\n      GX = -GX\r\n      GO TO 90\r\n  120 CALL MESAGE(30,26,IECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/drwchr.f",
    "content": "      SUBROUTINE DRWCHR (X,Y,XYD,CHR,NN,OPT)\r\nC\r\nC     (X,Y)  = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS\r\nC              LEFT-TO-RIGHT OR TOP-TO-BOTTOM)\r\nC     XYD    = (+/-)1 IF X = STARTING OR ENDING POINT OF THE LINE\r\nC            = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE LINE\r\nC     CHR    = CHARACTERS TO BE DRAWN\r\nC     NN     = NUMBER OF CHARACTERS\r\nC     OPT    = -1 TO INITIATE  THE TYPING MODE\r\nC            = +1 TO TERMINATE THE TYPING MODE\r\nC            =  0 TO TYPE A LINE\r\nC     CSCALE = SCALE FOR CHARACTER SIZE (REAL)\r\nC\r\n      INTEGER         XYD,CHR(1),OPT,CHRIND,XYCHR,D\r\n      REAL            SAVE(2,2),XY(2,2),XYC(2,2),CSCALE\r\n      COMMON /PLTDAT/ SKPLT(2),REG(2,2),XYMAX(2),EDGE(11),CSCALE,\r\n     1                SKPA(3),CNTCHR(2)\r\n      COMMON /CHRDRW/ LSTIND,CHRIND(60),XYCHR(2,1)\r\n      DATA    LSTCHR/ 48 /\r\nC\r\n      IF (OPT .EQ. 0) GO TO 100\r\n      CALL LINE (0,0,0,0,0,OPT)\r\n      GO TO 200\r\nC\r\n  100 N = NN\r\n      IF (N .LE. 0) N = 1\r\n      D = MAX0(IABS(XYD),1)\r\n      S = CNTCHR(D)\r\n      IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S\r\n      XYC(1,1) = 3.0*CSCALE\r\n      XYC(2,1) = 3.0*CSCALE\r\n      XY(1,1)  = X - XYC(1,1)\r\n      XY(2,1)  = Y - XYC(2,1)\r\n      XY(1,2)  = XY(1,1)\r\n      XY(2,2)  = XY(2,1)\r\n      DO 110 I = 1,2\r\n      SAVE(I,1)= REG(I,1)\r\n      REG(I,1) = AMAX1(-EDGE(I),REG(I,1)-XYC(I,1))\r\n      SAVE(I,2)= REG(I,2)\r\n      REG(I,2) = AMIN1(XYMAX(I)+EDGE(I),REG(I,2)+XYC(I,1))\r\n  110 CONTINUE\r\nC\r\nC     TYPE THE LINE.\r\nC\r\n      DO 125 J = 1,N\r\n      XY(D,2)  = XY(D,1) + S*FLOAT(J-1)\r\nC\r\nC     MAKE SURE EACH CHARACTER IS A VALID CHARACTER.\r\nC\r\n      I = J\r\n      IF (XYD .LT. 0) I = N - J + 1\r\n      K = CHR(I)\r\n      IF (NN.NE.0 .AND. K.GE.LSTCHR) GO TO 125\r\n      IF (K .GT. LSTIND) GO TO 125\r\nC\r\nC     DRAW THE CHARACTER.\r\nC\r\n  120 N1 = CHRIND(K)\r\n      IF (N1 .GT. 0) GO TO 121\r\n      K  = -N1\r\n      GO TO 120\r\n  121 N2 = CHRIND(K+1)\r\n      IF (N2 .GT. 0) GO TO 122\r\n      K  = K + 1\r\n      GO TO 121\r\nC\r\n  122 N2 = N2 - 1\r\n      DO 124 L = N1,N2\r\n      DO 123 I = 1,2\r\n      XYC(I,1) = XYC(I,2)\r\n      XYC(I,2) = XY(I,2) + CSCALE*FLOAT(IABS(XYCHR(I,L)))\r\n  123 CONTINUE\r\n      IF (L.EQ.N1 .OR. XYCHR(1,L).LT.0 .OR. XYCHR(2,L).LT.0) GO TO 124\r\n      CALL LINE (XYC(1,1),XYC(2,1),XYC(1,2),XYC(2,2),1,0)\r\n  124 CONTINUE\r\n  125 CONTINUE\r\nC\r\n      DO 190 I = 1,2\r\n      REG(I,1) = SAVE(I,1)\r\n      REG(I,2) = SAVE(I,2)\r\n  190 CONTINUE\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ds1.f",
    "content": "      SUBROUTINE DS1 (IARG)\r\nC\r\nC     THIS ROUTINE CREATES THE SCRATCH FILE ECPTDS BY APPENDING TO EACH\r\nC     ELEMENT IN THE ECPT AN ELEMENT DEFORMATION, AN AVERAGE ELEMENT\r\nC     LOADING TEMPERATURE, AND THE PROPER COMPONENTS OF THE DISPLACEMENT\r\nC     VECTORS. SUBROUTINE DS1A READS THE ECPTDS IN THE SAME WAY AS SMA1A\r\nC     READS THE ECPT IN ORDER TO CREATE A SECOND ORDER APPROXIMATION TO\r\nC     THE KGG, WHICH IS CALLED KGGD.\r\nC     IF DS1 CANNOT FIND ANY ELEMENTS IN THE ECPT WHICH ARE IN THE SET\r\nC     OF ELEMENTS FOR WHICH DIFFERENTIAL STIFFNESS IS DEFINED, IARG IS\r\nC     RETURNED CONTAINING A ZERO TO THE CALLING ROUTINE, DSMG1.\r\nC\r\n      EXTERNAL        RSHIFT\r\n      LOGICAL         DSTYPE,EORFLG,ENDID,RECORD\r\n      INTEGER         BUFFR1,BUFFR2,EOR,CLSRW,OUTRW,CASECC,GPTT,EDT,\r\n     1                UGV,ECPT,ECPTDS,FILE,TSETNO,DSETNO,TMPSET,\r\n     2                RECNO,EDTLOC,EDTBUF,ELTYPE,ELID,BUFLOC,DFMSET,\r\n     3                RSHIFT,JSIL(2),OLDEL,CCBUF,OLDEID,BUFFR3\r\n      DIMENSION       TGRID(33),IZ(1),XECPT(328),IECPT(328),CCBUF(2),\r\n     1                GPTBF3(3),NAME(2),EDTBUF(3),EDTLOC(2),MCBUGV(7)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ ISYS,SYSDUM(25),MN,XXX18(18),NDUM(9)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK\r\n      COMMON /DS1ETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,TSETNO,FDFALT,\r\n     1                IBACK,RECORD,OLDEID\r\n      COMMON /BLANK / DSCSET\r\n      EQUIVALENCE     (Z(1),IZ(1))       ,(XECPT(1),IECPT(1)),\r\n     1                (GPTBF3(1),TMPSET) ,(GPTBF3(2),IDFALT) ,\r\n     2                (GPTBF3(3),RECNO)  ,(EDTBUF(1),DFMSET) ,\r\n     3                (EDTBUF(2),ELID)   ,(EDTBUF(3),DEFORM) ,\r\n     4                (IOUTPT,SYSDUM(1))\r\n      DATA            EDTLOC/104,1 /,     NSKIP/ 137  /\r\n      DATA            CASECC,GPTT,EDT,UGV,ECPT,ECPTDS /\r\n     1                101,   102, 104,105,108, 301    /\r\n      DATA            NAME  /4HDS1 ,4H         /\r\n      DATA            INRW,OUTRW,EOR,NEOR,CLSRW/ 0,1,1,0,1 /\r\nC\r\nC     SET IARG TO ZERO\r\nC\r\n      CALL DELSET\r\n      IARG = 0\r\nC\r\nC     DETERMINE SIZE OF AVAILABLE CORE, DEFINE 2 BUFFERS AND INITIALIZE\r\nC     OPEN CORE POINTERS AND COUNTERS.\r\nC\r\n      IZMAX  = KORSZ(Z)\r\n      BUFFR1 = IZMAX  - ISYS\r\n      BUFFR2 = BUFFR1 - ISYS\r\n      BUFFR3 = BUFFR2 - ISYS\r\n      BUFLOC = IZMAX  - ISYS - 3\r\n      ILEFT  = BUFFR3 - 1\r\n      LEFT   = ILEFT  - NELEMS - 2\r\n      ISIL   = 0\r\n      NSIL   = 0\r\n      IEDT   = 0\r\n      NEDT   = 0\r\nC\r\nC     SET DIFFERENTIAL STIFFNESS FLAGS FOR ALL ELEMENT TYPES TO ZERO\r\nC\r\n      DO 10 I = 1,NELEMS\r\n      IZ(LEFT+I) = 0\r\n   10 CONTINUE\r\nC\r\nC     OPEN CASECC, SKIP HEADER, SKIP 5 WORDS AND READ DEFORMATION SET\r\nC     NUMBER AND LOADING TEMPERATURE SET NUMBER.\r\nC\r\n      CALL GOPEN (CASECC,Z(BUFFR1),INRW)\r\n      CALL FREAD (CASECC,0,-5,NEOR)\r\n      CALL FREAD (CASECC,CCBUF,2,NEOR)\r\n      DSETNO = CCBUF(1)\r\n      TSETNO = CCBUF(2)\r\nC\r\nC     STORE THE DIFFERENTIAL STIFFNESS COEFFICIENT (BETA) SET NUMBER\r\nC     IN COMMON.  THIS WORD IS THE 138TH WORD OF THE 2ND RECORD OF CASE\r\nC     CONTROL.\r\nC\r\n      FILE = CASECC\r\n      CALL FWDREC (*400,CASECC)\r\n      CALL FREAD  (CASECC,0,-NSKIP,NEOR)\r\n      CALL FREAD  (CASECC,DSCSET,1,NEOR)\r\n      CALL CLOSE  (CASECC,CLSRW)\r\nC\r\nC     IS THERE A TEMPERATURE LOAD\r\nC\r\n      RECORD =.FALSE.\r\n      IBACK  = 0\r\n      IF (TSETNO .LE. 0) GO TO 60\r\nC\r\nC     THERE IS. OPEN THE GPTT, SKIP FIRST TWO WORDS OF THE HEADER RECORD\r\nC     AND READ 3 WORD ENTRIES OF THE HEADER RECORD UNTIL A SET NUMBER\r\nC     MATCHES THE SET NUMBER READ IN THE CASE CONTROL RECORD.\r\nC\r\n      FILE = GPTT\r\n      CALL OPEN  (*400,GPTT,Z(BUFFR3),INRW)\r\n      CALL FREAD (GPTT,0,-2,NEOR)\r\n   20 CALL FREAD (GPTT,GPTBF3,3,NEOR)\r\n      IF (TMPSET .EQ. TSETNO) GO TO 30\r\n      GO TO 20\r\n   30 FDFALT = GPTBF3(2)\r\n      IF (RECNO  .NE.  0) GO TO 40\r\n      IF (IDFALT .EQ. -1) CALL MESAGE (-30,29,TSETNO)\r\n      CALL CLOSE (GPTT,CLSRW)\r\n      GO TO 60\r\nC\r\nC     POSITION GPTT TO DESIRED TEMPERATURE RECORD\r\nC\r\n   40 CALL REWIND (GPTT)\r\n      DO 50 I = 1,RECNO\r\n      CALL FWDREC (*410,GPTT)\r\n   50 CONTINUE\r\n      RECORD =.TRUE.\r\nC\r\nC     READ SETID AND VERIFY FOR CORRECTNESS\r\nC\r\n      CALL FREAD (GPTT,IDSET,1,0)\r\n      IF (TSETNO .NE. IDSET) CALL MESAGE (-30,29,TSETNO)\r\nC\r\nC     INITIALIZE /DS1ETT/ VARIABLES\r\nC\r\n      OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG =.FALSE.\r\n      ENDID  =.TRUE.\r\nC\r\nC     DETERMINE IF AN ENFORCED DEFORMATION SET IS CALLED FOR.\r\nC\r\n   60 IEDT = ISIL\r\n      I    = ISIL\r\n      IF (DSETNO .LE. 0) GO TO 90\r\n      FILE = EDT\r\n      CALL PRELOC (*90,Z(BUFLOC),EDT)\r\n      CALL LOCATE (*450,Z(BUFLOC),EDTLOC,IFLAG)\r\n   70 CALL READ (*410,*80,EDT,EDTBUF,3,NEOR,IFLAG)\r\n      IF (DFMSET .NE. DSETNO) GO TO 70\r\n      IZ(I+1) = ELID\r\n      Z (I+2) = DEFORM\r\n      NEDT = NEDT + 2\r\n      I    = I + 2\r\n      LEFT = LEFT - 2\r\n      IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 70\r\n   80 CALL CLOSE (EDT,CLSRW)\r\n      LOW = IEDT + 1\r\n      LIM = IEDT + NEDT\r\nC\r\nC     READ THE UGV INTO CORE.\r\nC\r\n   90 CALL GOPEN (UGV,Z(BUFFR1),INRW)\r\n      IDISP = IEDT + NEDT\r\n      MCBUGV(1) = UGV\r\n      CALL RDTRL (MCBUGV(1))\r\n      IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME(1))\r\n      ITYPEB = 1\r\n      IUNPK  = 1\r\n      JUNPK  = MCBUGV(3)\r\n      INCUPK = 1\r\n      CALL UNPACK (*460,UGV,Z(IDISP+1))\r\n      CALL CLOSE  (UGV,CLSRW)\r\nC\r\nC     OPEN THE ECPTDS AND ECPT FILES.\r\nC\r\n      CALL GOPEN (ECPTDS,Z(BUFFR2),OUTRW)\r\n      CALL GOPEN (ECPT,Z(BUFFR1),INRW)\r\nC\r\nC     READ THE PIVOT POINT (1ST WORD).\r\nC\r\n  100 FILE   = ECPT\r\n      IMHERE = 100\r\n      ELTYPE = -1\r\n      J      = -1\r\n      CALL READ (*390,*430,ECPT,NPVT,1,NEOR,IFLAG)\r\n      IND = 0\r\n  110 DSTYPE =.FALSE.\r\nC\r\nC     READ ELEMENT TYPE (2ND WORD)\r\nC\r\n      CALL READ (*410,*370,ECPT,ELTYPE,1,NEOR,IFLAG)\r\n      IF (ELTYPE.LT.1 .OR. ELTYPE.GT.NELEMS) GO TO 480\r\nC\r\nC     READ ELEMENT ID (3RD WORD, BEGINNING OF J NO. OF WORDS)\r\nC\r\n      IMHERE = 115\r\n      CALL READ (*410,*430,ECPT,IECPT,1,NEOR,IFLAG)\r\n      IF (IBACK .EQ. 0) GO TO 120\r\n      IF (ELTYPE.EQ.OLDEL .AND. IECPT(1).GE.OLDEID) GO TO 130\r\n      CALL BCKREC (GPTT)\r\nC\r\nC     RESET /DS1ETT/ VARIABLES\r\nC\r\n      IBACK  = 0\r\n      OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG =.FALSE.\r\n      ENDID  =.TRUE.\r\n      CALL READ (*410,*420,GPTT,IDSET,1,0,FLAG)\r\n      IF (TSETNO .NE. IDSET) CALL MESAGE (-30,29,TSETNO)\r\nC\r\n  120 IDX = (ELTYPE-1)*INCR\r\n      NTEMP = 1\r\nC                IS2D8              IHEX1              IHEX3\r\n      IF (ELTYPE.EQ.80 .OR. (ELTYPE.GE.65 .AND. ELTYPE.LE.67))\r\n     1    NTEMP = NE(IDX+15) - 1\r\nC\r\nC     READ ECPT ENTRY FOR THIS ELEMENT (J-1 WORDS)\r\nC\r\n  130 J = NE(IDX+12)\r\n      IF (NE(IDX+24) .NE. 0) DSTYPE = .TRUE.\r\n      IMHERE = 130\r\n      CALL READ (*410,*430,ECPT,XECPT(2),J-1,NEOR,IFLAG)\r\nC\r\nC     IS THIS ELEMENT IN THE SET OF DS ELEMENTS.\r\nC\r\n      IF (DSTYPE) GO TO 150\r\n      IF (IZ(LEFT+ELTYPE) .EQ. 1) GO TO 110\r\n      IZ(LEFT+ELTYPE) = 1\r\n      CALL PAGE2 (-2)\r\n      WRITE  (IOUTPT,140) UWM,NE(IDX+1),NE(IDX+2),ELTYPE\r\n  140 FORMAT (A25,' 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT DEFINED'\r\n     1,      ' FOR ',2A4,' ELEMENTS (ELEMENT TYPE ',I3,2H).)\r\n      GO TO 110\r\n  150 IARG = 1\r\nC\r\nC     DETERMINE IF THE ELEMENT IS A CONE.  IF IT IS, IT MUST HAVE A\r\nC     NONZERO MEMBRANE THICKNESS FOR IT TO BE ADMISSIBLE TO THE ECPTDS.\r\nC\r\n      IF (ELTYPE .NE. 35) GO TO 170\r\nC                 CONEAX\r\n      NTEMP = 2\r\n      IF (XECPT(5) .EQ. 0.0) GO TO 110\r\nC\r\nC     DETERMINE THE NUMBER OF RINGAX POINTS FROM THE 27TH WORD OF\r\nC     /SYSTEM/.\r\nC\r\n      NRNGAX = RSHIFT(MN,IHALF)\r\nC\r\nC     DETERMINE THE HARMONIC NUMBER, IHARM, FROM THE ELEMENT IDENT.\r\nC     NUMBER, IECPT(1)\r\nC\r\n      ITEMP = IECPT(1)/1000\r\n      IHARM = IECPT(1) - ITEMP*1000 - 1\r\nC\r\nC     DETERMINE THE SIL NUMBERS, SIL(1) AND SIL(2), WHICH WILL BE USED\r\nC     TO APPEND TEMPERATURES AND DISPLACEMENT VECTORS.\r\nC\r\n      IF (IHARM .NE. 0) GO TO 160\r\n      JSIL(1) = IECPT(2)\r\n      JSIL(2) = IECPT(3)\r\n      GO TO 180\r\n  160 ITEMP   = 6*IHARM*NRNGAX\r\n      JSIL(1) = IECPT(2) - ITEMP\r\n      JSIL(2) = IECPT(3) - ITEMP\r\n      GO TO 180\r\nC\r\nC     IF WE ARE DEALING WITH A TRIA1 OR QUAD1 ELEMENT, IT MUST HAVE A\r\nC     NONZERO MEMBRANE THICKNESS FOR IT TO BE ADMISSIBLE TO THE ECPTDS.\r\nC\r\n  170 IF (ELTYPE.NE.6 .AND. ELTYPE.NE.19) GO TO 180\r\nC               TRIA1              QUAD1\r\n      KK = 7\r\n      IF (ELTYPE .EQ. 19) KK = 8\r\nC                  QUAD1\r\n      IF (XECPT(KK) .EQ. 0.0) GO TO 110\r\nC\r\nC     WRITE PIVOT POINT\r\nC\r\n  180 IF (IND .EQ. 0) CALL WRITE (ECPTDS,NPVT,1,NEOR)\r\n      IND = 1\r\n      IF (ELTYPE .NE. 34) GO TO 200\r\nC                    BAR\r\nC\r\nC     THE ELEMENT IS A BAR.  THE ECPT ENTRY WILL BE REARRANGED SO THAT\r\nC     THE DBAR SUBROUTINE MAY BE CALLED IN SUBROUTINE DS1A.\r\nC\r\n      ELTYPE = 2\r\nC           BEAM\r\nC\r\nC     IF THE COUPLED MOMENT OF INERTIA TERM I12 (=ECPT(33)) IS NON-ZERO\r\nC     SET I12 = 0.0, WRITE WARNING MESSAGE AND PROCEED.\r\nC\r\n      IF (XECPT(33) .EQ. 0.0) GO TO 190\r\n      XECPT(33) = 0.0\r\n      CALL MESAGE (30,111,IECPT(1))\r\n  190 XECPT(47) = XECPT(42)\r\n      XECPT(46) = XECPT(41)\r\n      XECPT(45) = XECPT(40)\r\n      XECPT(44) = XECPT(39)\r\n      XECPT(43) = XECPT(38)\r\n      XECPT(42) = XECPT(37)\r\n      XECPT(41) = XECPT(36)\r\n      XECPT(40) = XECPT(35)\r\n      XECPT(39) = XECPT(34)\r\n      XECPT(29) = XECPT(31)\r\n      XECPT(30) = XECPT(32)\r\n      XECPT(28) = XECPT(21)\r\n      XECPT(27) = XECPT(20)\r\n      XECPT(25) = XECPT(19)\r\n      XECPT(24) = XECPT(18)\r\n      XECPT(21) = XECPT(17)\r\n      XECPT(20) = XECPT(16)\r\n      J = 47\r\nC\r\nC     WRITE ELEMENT TYPE\r\nC\r\n  200 CALL WRITE (ECPTDS,ELTYPE,1,NEOR)\r\nC\r\nC     ATTACH THE ELEMENT DEFORMATION TO THE XECPT ARRAY.\r\nC\r\n      J = J + 1\r\n      NOGPTS = NE(IDX+10)\r\n      XECPT(J) = 0.0\r\n      IF (DSETNO .GT. 0) GO TO 210\r\n      GO TO 230\r\nC\r\nC     SEARCH THE EDT TO FIND AN ELEMENT NO. IN THE TABLE CORRESPONDING\r\nC     TO THE CURRENT ELEMENT NO., IECPT(1).  IF IT CANNOT BE FOUND NOTE\r\nC     THE ELEMENT DEFORMATION, IECPT(J), HAS BEEN SET TO ZERO.\r\nC\r\n  210 DO 220 I = LOW,LIM,2\r\n      IF (IZ(I) .NE. IECPT(1)) GO TO 220\r\n      XECPT(J) = Z(I+1)\r\n      GO TO 230\r\n  220 CONTINUE\r\nC\r\nC     APPEND THE LOADING TEMPERATURE(S) TO THE XECPT ARRAY\r\nC\r\n  230 IF (ELTYPE .EQ. 2) ELTYPE = 34\r\nC                  BEAM          BAR\r\n      CALL DS1ETD (IECPT(1),TGRID,NTEMP)\r\n      IF (ELTYPE .NE. 34) GO TO 240\r\nC                    BAR\r\n      ELTYPE = 2\r\n      IF (TSETNO .LE. 0) GO TO 240\r\n      TGRID(1) = (TGRID(1) + TGRID(2))*0.5\r\n  240 III = 1\r\n      IF (ELTYPE .NE. 80) GO TO 250\r\nC                  IS2D8\r\n      J = J + 1\r\n      IECPT(J) = TSETNO\r\n      III = 2\r\n  250 CONTINUE\r\n      DO 260 I = III,NTEMP\r\n      J = J + 1\r\n      XECPT(J) = TGRID(I)\r\n  260 CONTINUE\r\nC\r\nC     NOW ATTACH THE DISPLACEMENT VECTORS\r\nC\r\n      J = J + 1\r\n      IF (ELTYPE .EQ. 35) GO TO 330\r\nC                 CONEAX\r\n      IF (ELTYPE.EQ. 2 .OR. ELTYPE.EQ.75) GO TO 290\r\nC                 BEAM             TRSHL\r\n      IF (ELTYPE.LT.53 .OR. ELTYPE.GT.61) GO TO 280\r\nC                 DUM1              DUM9\r\nC\r\nC\r\nC     DUMMY ELEMENTS\r\nC\r\n      IF (MOD(NDUM(ELTYPE-52),10) .EQ. 6) GO TO 290\r\n  280 NWDS = 3\r\n      GO TO 300\r\n  290 NWDS = 6\r\n  300 DO 320 I = 1,NOGPTS\r\n      INDEX = IDISP + IECPT(I+1)\r\n      DO 310 I1 = 1,NWDS\r\n      XECPT(J) = Z(INDEX)\r\n      INDEX = INDEX + 1\r\n  310 J = J + 1\r\n  320 CONTINUE\r\n      GO TO 360\r\nC\r\nC     APPEND THE ZERO HARMONIC COMPONENTS OF THE DISPLACEMENT VECTOR.\r\nC     NOTE THAT FOR A CONICAL SHELL ELEMENT DIRECT POINTERS INTO THE\r\nC     DISPLACEMENT VECTOR ARE SIL(1) AND SIL(2).\r\nC\r\n  330 DO 350 J1 = 1,2\r\n      DO 340 I  = 1,6\r\n      INDEX = IDISP + JSIL(J1) + I - 1\r\n      XECPT(J) = Z(INDEX)\r\n  340 J = J + 1\r\n  350 CONTINUE\r\nC\r\nC     THE APPENDED ECPT, ECPTDS, IS NOW COMPLETE.\r\nC\r\n  360 CALL WRITE (ECPTDS,XECPT,J-1,NEOR)\r\n      GO TO 110\r\nC\r\nC    IF IND = 0, THEN NO ELEMENTS IN THE CURRENT ECPT RECORD ARE IN THE\r\nC    DS ELEMENT SET.  WRITE A -1 FOR THIS PIVOT POINT.\r\nC\r\n  370 IF (IND .NE. 0) GO TO 380\r\n      CALL WRITE (ECPTDS,-1,1,EOR)\r\n      GO TO 100\r\nC\r\nC     WRITE AN EOR ON THE ECPTDS FILE\r\nC\r\n  380 CALL WRITE (ECPTDS,0,0,EOR)\r\n      GO TO 100\r\nC\r\nC     CLOSE BOTH FILES\r\nC\r\n  390 CALL CLOSE (ECPT,CLSRW)\r\n      CALL CLOSE (GPTT,CLSRW)\r\n      CALL CLOSE (ECPTDS,CLSRW)\r\n      RETURN\r\nC\r\nC     FATAL ERROR RETURNS\r\nC\r\n  400 J = -1\r\n      GO TO 470\r\n  410 J = -2\r\n      GO TO 470\r\n  420 FILE = GPTT\r\n  430 J = -3\r\n      IF (FILE .EQ. ECPT) WRITE (IOUTPT,440) IMHERE,ELTYPE,J\r\n  440 FORMAT (/,'0*** DS1/IMHERE,ELTYPE,J = ',3I5)\r\n      GO TO 470\r\n  450 J = -4\r\n      GO TO 470\r\n  460 CALL MESAGE (-30,83,NAME(1))\r\n  470 CALL MESAGE (J,FILE,NAME)\r\n  480 WRITE  (IOUTPT,490) SFM,ELTYPE\r\n  490 FORMAT (A25,' 2147, ILLEGAL ELEMENT TYPE =',I10,\r\n     1       ' ENCOUNTERED BY DSMG1 MODULE.')\r\n      CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ds1a.f",
    "content": "      SUBROUTINE DS1A\r\nC\r\nC     THIS ROUTINE GENERATES THE MATRIX KGGD WHICH IS THE SECOND ORDER\r\nC     APPROXIMATION TO THE STIFFNESS MATRIX KGG.\r\nC\r\n      INTEGER          EOR,CLSRW,OUTRW,FROWIC,CSTM,DIT,ECPTDS,GPCT,\r\n     1                 BUFFR1,BUFFR2,BUFFR3,FILE,BAR,BEAM,ITYPI(20)\r\n      DOUBLE PRECISION DZ(1),DPWORD,DDDDDD\r\n      DIMENSION        NDUM(9),IZ(1),INPVT(2),NAME(2),MCBKGG(7)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  ICOM\r\n      COMMON /SYSTEM/  KSYSTM(100)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /DS1ADP/  DDDDDD(300)\r\n      COMMON /DS1AET/  ECPT(112)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,\r\n     1                 I6X6K,N6X6K,CSTM,MPT,DIT,ECPTDS,GPCT,KGGD,\r\n     2                 INRW,OUTRW,EOR,NEOR,CLSRW,JMAX,FROWIC,LROWIC,\r\n     3                 NROWSC,NLINKS,LINK(10),NOGO\r\n      COMMON /GPTA1 /  NELEMS,LAST,INCR,NE(1)\r\n      COMMON /ZBLPKX/  DPWORD,DUM(2),INDEX\r\n      COMMON /CONDAS/  PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      EQUIVALENCE      (KSYSTM( 1),   ISYS), (KSYSTM( 2),IOUTPT),\r\n     1                 (KSYSTM(46),NDUM(1)), (KSYSTM(55), IPREC)\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1))\r\n      DATA    NAME  /  4HDS1A,4H    /, BAR,BEAM / 4HBAR ,4HBEAM /\r\nC\r\nC     DEFINE VARIABLES IN COMMON /DS1AAA/\r\nC\r\n      CSTM  = 106\r\n      MPT   = 107\r\n      DIT   = 110\r\n      ECPTDS= 301\r\n      GPCT  = 109\r\n      KGGD  = 201\r\n      INRW  = 0\r\n      OUTRW = 1\r\n      EOR   = 1\r\n      NEOR  = 0\r\n      CLSRW = 1\r\n      NLINKS= 10\r\n      NOGO  = 0\r\n      IITYP = 0\r\n      J     = 26\r\n      NE(J) = BAR\r\n      CALL SSWTCH (38,L38)\r\nC\r\nC     DETERMINE SIZE OF VARIABLE CORE, AND SET UP BUFFERS\r\nC\r\n      IPR = IPREC\r\n      CALL DELSET\r\n      IZMAX  = KORSZ(Z)\r\n      BUFFR1 = IZMAX  - ISYS\r\n      BUFFR2 = BUFFR1 - ISYS\r\n      BUFFR3 = BUFFR2 - ISYS\r\n      LEFTT  = BUFFR3 - 1\r\nC\r\nC     READ THE CSTM INTO CORE\r\nC\r\n      IFILE = CSTM\r\n      NCSTM = 0\r\n      ICSTM = 0\r\n      CALL OPEN (*2,CSTM,Z(BUFFR1),INRW)\r\n      CALL FWDREC (*9020,CSTM)\r\n      CALL READ (*9030,*1,CSTM,Z(ICSTM+1),LEFTT,EOR,NCSTM)\r\n      CALL MESAGE (-8,0,NAME)\r\n    1 LEFTT = LEFTT - NCSTM\r\nC\r\nC     PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD.\r\nC\r\n      CALL PRETRS (Z(ICSTM+1),NCSTM)\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      CALL CLOSE  (CSTM,CLSRW)\r\n    2 IMAT1 = NCSTM\r\nC\r\nC     CALL PREMAT TO READ MPT AND DIT INTO CORE.\r\nC\r\n      CALL PREMAT (Z(IMAT1+1),Z(IMAT1+1),Z(BUFFR1),LEFTT,MATCR,MPT,DIT)\r\n      LEFTT = LEFTT - MATCR\r\n      IGPCT = NCSTM + MATCR\r\nC\r\nC     OPEN KGGD, ECPTDS AND GPCT\r\nC\r\n      CALL GOPEN  (KGGD,Z(BUFFR1),OUTRW)\r\n      CALL MAKMCB (MCBKGG,KGGD,0,6,IPR)\r\n      CALL GOPEN  (ECPTDS,Z(BUFFR2),INRW)\r\n      CALL GOPEN  (GPCT,Z(BUFFR3),INRW)\r\nC\r\nC     READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1).\r\nC     INPVT(1) IS THE PIVOT POINT.  INPVT(1) .GT. 0 IMPLIES THE PIVOT\r\nC     POINT IS A GRID POINT.  INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT IS\r\nC     A SCALAR POINT.  INPVT(2) IS THE NUMBER OF WORDS IN THE REMAINDER\r\nC     OF THIS RECORD OF THE GPCT.\r\nC\r\n   10 FILE = GPCT\r\n      CALL READ (*1000,*700,GPCT,INPVT(1),2,NEOR,IFLAG)\r\n      NGPCT = INPVT(2)\r\n      CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,EOR)\r\n      IF (INPVT(1) .LT. 0) GO TO 700\r\nC\r\nC     FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6)\r\nC\r\n      FROWIC = 1\r\nC\r\nC     DECREMENT THE AMOUNT OF CORE REMAINING.\r\nC\r\n      LEFT   = LEFTT - 2*NGPCT\r\n      IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      IPOINT = IGPCT + NGPCT\r\n      NPOINT = NGPCT\r\n      I6X6K  = IPOINT + NPOINT\r\n      I6X6K  = (I6X6K - 1)/2 + 2\r\nC\r\nC     CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE DS1B TO\r\nC     INSERT THE 6 X 6 MATRICES INTO KGGD.\r\nC\r\n      IZ(IPOINT+1) = 1\r\n      I1 = 1\r\n      I  = IGPCT\r\n      J  = IPOINT + 1\r\n   30 I1 = I1 + 1\r\n      IF (I1 .GT. NGPCT) GO TO 40\r\n      I  = I + 1\r\n      J  = J + 1\r\n      INC= 6\r\n      IF (IZ(I) .LT. 0) INC = 1\r\n      IZ(J) = IZ(J-1) + INC\r\n      GO TO 30\r\nC\r\nC     JMAX = NO. OF COLUMNS OF KGGD THAT WILL BE GENERATED WITH THE\r\nC     CURRENT GRID POINT.\r\nC\r\n   40 INC   = 5\r\n      ILAST = IGPCT  + NGPCT\r\n      JLAST = IPOINT + NPOINT\r\n      IF (IZ(ILAST) .LT. 0) INC = 0\r\n      JMAX  = IZ(JLAST) + INC\r\nC\r\nC     IF 2*6*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR\r\nC     KGGD SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER 6 X JMAX\r\nC     CAN FIT IN CORE.\r\nC\r\n      ITEMP = 6*JMAX\r\n      IF (2*ITEMP .LT. LEFT) GO TO 80\r\n      NAME(2) = INPVT(1)\r\n      CALL MESAGE (30,85,NAME)\r\n      NROWSC = 3\r\n   70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90\r\n      NROWSC = NROWSC - 1\r\n      IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 70\r\n   80 NROWSC = 6\r\nC\r\nC     LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6)\r\nC\r\n   90 LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     ZERO OUT THE KGGD SUBMATRIX IN CORE.\r\nC\r\n  100 LOW = I6X6K + 1\r\n      LIM = I6X6K + JMAX*NROWSC\r\n      DO 115 I = LOW,LIM\r\n  115 DZ(I) = 0.0D0\r\nC\r\nC     INITIALIZE THE LINK VECTOR TO -1.\r\nC\r\n      DO 140 I = 1,NLINKS\r\n  140 LINK(I) = -1\r\nC\r\nC     TURN FIRST PASS INDICATOR ON.\r\nC\r\n  150 IFIRST = 1\r\nC\r\nC     READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT.\r\nC     IF NPVT .LT. 0, THE REMAINDER OF THE ECPT RECORD IS NULL SO THAT\r\nC     1 OR 6 NULL COLUMNS MUST BE GENERATED\r\nC\r\n      FILE = ECPTDS\r\n      CALL FREAD (ECPTDS,NPVT,1,NEOR)\r\n      IF (NPVT .LT. 0) GO TO 700\r\nC\r\nC     READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE.\r\nC\r\n  160 CALL READ (*9020,*500,ECPTDS,ITYPE,1,NEOR,IFLAG)\r\nC\r\nC     READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE\r\nC     NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE).\r\nC\r\n      IP = IPREC\r\n      IF (IP .NE. 1) IP = 0\r\n      JTYP  = 2*ITYPE - IP\r\n      NFREE = 3\r\n      IF (ITYPE.EQ.2 .OR. ITYPE.EQ.35. OR. ITYPE.EQ.75) NFREE = 6\r\nC               BEAM             CONEAX           TRSHL\r\n      IF (ITYPE.GE.53 .AND. ITYPE.LE.61) NFREE = MOD(NDUM(ITYPE-52),10)\r\nC                DUM1              DUM9\r\n      IDX = (ITYPE-1)*INCR\r\n      NWORDS = NE(IDX+12) + 2 + NFREE*NE(IDX+10)\r\n      IF (ITYPE.GE.65 .AND. ITYPE.LE.67) NWORDS = NWORDS + NE(IDX+10) -1\r\nC               IHEX1             IHEX3\r\n      IF (ITYPE .EQ. 80) NWORDS = NWORDS + NE(IDX+10)\r\nC                 IS2D8\r\n      IF (ITYPE .EQ. 35) NWORDS = NWORDS + 1\r\nC                CONEAX\r\n      IF (NE(IDX+12) .LE. 0) CALL MESAGE (-61,0,NAME)\r\n      CALL FREAD (ECPTDS,ECPT,NWORDS,NEOR)\r\n      ITEMP = NE(IDX+24)\r\nC\r\nC     IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN\r\nC     PROCESSED.\r\nC\r\n      IF (IFIRST .EQ. 1) GO TO 170\r\nC\r\nC     THIS IS NOT THE FIRST PASS.  IF ITYPE(TH) ELEMENT ROUTINE IS IN\r\nC     CORE, PROCESS IT.\r\nC\r\n      IF (ITEMP .EQ. LINCOR) GO TO 171\r\nC\r\nC     THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE.  IF THIS ELEMENT\r\nC     ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT\r\nC     ELEMENT.\r\nC\r\n      IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT\r\nC     RESIDES\r\nC\r\n      LINK(ITEMP) = 0\r\n      GO TO 160\r\nC\r\nC     SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS\r\nC     OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT\r\nC     IS IN A LINK THAT HAS ALREADY BEEN PROCESSED.  IF IT IS SUCH AN\r\nC     ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT.\r\nC\r\n  170 IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0\r\nC\r\n      LINCOR = ITEMP\r\n      IFIRST = 0\r\nC\r\nC     CALL THE PROPER ELEMENT ROUTINE.\r\nC\r\n  171 IF (ITYPE.LE.0 .OR. ITYPE.GT.NELEMS) CALL MESAGE (-7,0,NAME)\r\nC\r\nC     IF DIAG 38 IS ON, ECHO TYPE OF ELEMENT BEING PROCESSED\r\nC\r\n      IF (L38   .EQ. 0) GO TO 180\r\n      IF (IITYP .EQ. 0) GO TO 175\r\n      DO 173 II = 1,IITYP\r\n      IF (ITYPE .EQ. ITYPI(II)) GO TO 180\r\n  173 CONTINUE\r\n      IF (IITYP .GE. 20) GO TO 180\r\n  175 IITYP = IITYP + 1\r\n      ITYPI(IITYP) = ITYPE\r\n      WRITE  (IOUTPT,177) NE(IDX+1),NE(IDX+2),ITYPE\r\n  177 FORMAT ('0*** DS1 MODULE PROCESSING ',2A4,' ELEMENTS (ELEM.TYPE',\r\n     1        I4,1H))\r\nC\r\n  180 LOCAL = JTYP - 100\r\n      IF (LOCAL) 181,181,182\r\n  181 GO TO (\r\nC\r\nC        1-CROD       2-CBEAM      3-CTUBE      4-CSHEAR     5-CTWIST\r\n     O   210,  210,   220,  220,   230,  230,   240,  240,  9040, 9040,\r\nC\r\nC        6-CTRIA1     7-CTRBSC     8-CTRPLT     9-CTRMEM     10-CONROD\r\n     1   260,  260,  9040, 9040,  9040, 9040,   250,  250,   210,  210,\r\nC\r\nC        11-CELAS1    12-CELAS2    13-CELAS3    14-CELAS4    15-CQDPLT\r\n     2  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,\r\nC\r\nC        16-CQDMEM    17-CTRIA2    18-CQUAD2    19-CQUAD1    20-CDAMP1\r\n     3   280,  280,   270,  270,   300,  300,   290,  290,  9040, 9040,\r\nC\r\nC        21-CDAMP2    22-CDAMP3    23-CDAMP4    24-CVISC     25-CMASS1\r\n     4  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,\r\nC\r\nC        26-CMASS2    27-CMASS3    28-CMASS4    29-CONM1     30-CONM2\r\n     5  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,\r\nC\r\nC        31-PLOTEL    32-X         33-X         34-CBAR      35-CCONEAX\r\n     6  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,   370,  370,\r\nC\r\nC        36-CTRIARG   37-CTRAPRG   38-CTORDRG   39-CTETRA    40-CWEDGE\r\n     7  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,\r\nC\r\nC        41-CHEXA1    42-CHEXA2    43-CFLUID2   44-CFLUID3   45-CFLUID4\r\n     8  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,\r\nC\r\nC        46-CFLMASS   47-CAXIF2    48-CAXIF3    49-CAXIF4    50-CSLOT3\r\n     9  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040\r\nC\r\n     X   ), JTYP\r\nC\r\n  182 GO TO (\r\nC\r\nC        51-CSLOT4    52-CHBDY     53-CDUM1     54-CDUM2     55-CDUM3\r\n     X  9040, 9040,  9040, 9040,   321,  321,   322,  322,   323,  323,\r\nC\r\nC        56-CDUM4     57-CDUM5     58-CDUM6     59-CDUM7     60-CDUM8\r\n     A   324,  324,   325,  325,   326,  326,   327,  327,   328,  328,\r\nC\r\nC        61-CDUM9     62-CQDMEM1   63-CQDMEM2   64-CQUAD4    65-CIHEX1\r\n     B   329,  329,  9040, 9040,  9040, 9040,   305,  305,   310,  310,\r\nC\r\nC        66-CIHEX2    67-CIHEX3    68-CQUADTS   69-CTRIATS   70-CTRIAAX\r\n     C   310,  310,   310,  310,   311,  311,   312,  312,  9040, 9040,\r\nC\r\nC        71-CTRAPAX   72-CAERO1    73-CTRIM6    74-CTRPLT1   75-CTRSHL\r\n     D  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,   313,  314,\r\nC\r\nC        76-CFHEX1    77-CFHEX2    78-CFTETRA   79-CFWEDGE   80-CIS2D8\r\n     E  9040, 9040,  9040, 9040,  9040, 9040,  9040, 9040,   315,  315,\r\nC\r\nC        81-CELBOW    82-FTUBE     83-CTRIA3    84-CPSE2     85-CPSE3\r\n     F  9040, 9040,  9040, 9040,   275,  275,   380,  380,   385,  385,\r\nC\r\nC        86-CPSE4\r\n     G   390,  390\r\nC\r\n     X   ), LOCAL\r\nC\r\nC     ROD\r\nC\r\n  210 CALL DROD\r\n      GO TO 160\r\nC\r\nC     BAR\r\nC\r\n  220 CALL DBAR\r\n      GO TO 160\r\nC\r\nC     TUBE\r\nC\r\n  230 TEMP = ECPT(5) - ECPT(6)\r\n      A  = TEMP*ECPT(6)*PI\r\n      FJ = .25*A*(TEMP**2 + ECPT(6)**2)\r\n      C  = .5*ECPT(5)\r\n      M  = 26\r\n      DO 235 I = 1,18\r\n      M = M - 1\r\n  235 ECPT(M) = ECPT(M-1)\r\n      GO TO 210\r\nC\r\nC     SHEAR\r\nC\r\n  240 CALL DSHEAR\r\n      GO TO 160\r\nC\r\nC     TRMEM\r\nC\r\n  250 CALL DTRMEM (0)\r\n      GO TO 160\r\nC\r\nC     TRIA1\r\nC\r\n  260 CALL DTRIA (1)\r\n      GO TO 160\r\nC\r\nC     TRIA2\r\nC\r\n  270 CALL DTRIA (2)\r\n      GO TO 160\r\nC\r\nC     TRIA3\r\nC\r\n  275 CALL DTRIA (3)\r\n      GO TO 160\r\nC\r\nC     QDMEM\r\nC\r\n  280 CALL DQDMEM\r\n      GO TO 160\r\nC\r\nC     QUAD1\r\nC\r\n  290 CALL DQUAD (1)\r\n      GO TO 160\r\nC\r\nC     QUAD2\r\nC\r\n  300 CALL DQUAD (2)\r\n      GO TO 160\r\nC\r\nC     QUAD4\r\nC\r\n  305 CALL DQUAD (4)\r\n      GO TO 160\r\nC\r\nC     IHEX1,IHEX2,IHEX3\r\nC\r\n  310 CALL DIHEX (ITYPE-64)\r\n      GO TO 160\r\nC\r\nC     QUADTS\r\nC\r\n  311 CONTINUE\r\n      GO TO 160\r\nC\r\nC    TRIATS\r\nC\r\n  312 CONTINUE\r\n      GO TO 160\r\n  313 CALL DTSHLS\r\n      GO TO 160\r\n  314 CALL DTSHLD\r\n      GO TO 160\r\n  315 CALL DIS2D8\r\n      GO TO 160\r\nC\r\nC     DUMMY ELEMENTS\r\nC\r\n  321 CALL DDUM1\r\n      GO TO 160\r\n  322 CALL DDUM2\r\n      GO TO 160\r\n  323 CALL DDUM3\r\n      GO TO 160\r\n  324 CALL DDUM4\r\n      GO TO 160\r\n  325 CALL DDUM5\r\n      GO TO 160\r\n  326 CALL DDUM6\r\n      GO TO 160\r\n  327 CALL DDUM7\r\n      GO TO 160\r\n  328 CALL DDUM8\r\n      GO TO 160\r\n  329 CALL DDUM9\r\n      GO TO 160\r\nC\r\nC     CONE\r\nC\r\n  370 CALL DCONE\r\n      GO TO 160\r\nC\r\nC     PRESSURE STIFFNESS ELEMENTS\r\nC\r\n  380 CALL DPSE2\r\n      GO TO 160\r\n  385 CALL DPSE3\r\n      GO TO 160\r\n  390 CALL DPSE4\r\n      GO TO 160\r\nC\r\nC     AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE.  SEARCH\r\nC     THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED.\r\nC\r\n  500 LINK(LINCOR) = 1\r\n      DO  510 I = 1,NLINKS\r\n      IF (LINK(I) .EQ. 0) GO TO 520\r\n  510 CONTINUE\r\n      GO TO 525\r\nC\r\nC     SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST\r\nC     BE BACKSPACED.\r\nC\r\n  520 CALL BCKREC (ECPTDS)\r\n      GO TO 150\r\nC\r\nC     CHECK NOGO FLAG. IF NOGO=1, SKIP BLDPK AND PROCESS ANOTHER RECORD\r\nC     FROM THE GPCT TABLE\r\nC\r\n  525 IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE KGG FILE.\r\nC\r\n      IFILE = KGGD\r\n      I1 = 0\r\n  540 I2 = 0\r\n      IBEG = I6X6K + I1*JMAX\r\n      CALL BLDPK (2,IPR,IFILE,0,0)\r\n  550 I2 = I2 + 1\r\n      IF (I2 .GT. NGPCT) GO TO 570\r\n      JJ = IGPCT + I2\r\n      INDEX = IABS(IZ(JJ)) - 1\r\n      LIM = 6\r\n      IF (IZ(JJ) .LT. 0) LIM = 1\r\n      JJJ = IPOINT + I2\r\n      KKK = IBEG + IZ(JJJ) - 1\r\n      I3  = 0\r\n  560 I3  = I3 + 1\r\n      IF (I3 .GT. LIM) GO TO 550\r\n      INDEX = INDEX + 1\r\n      KKK = KKK + 1\r\n      DPWORD = DZ(KKK)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n      GO TO 560\r\n  570 CALL BLDPKN (IFILE,0,MCBKGG)\r\n      I1 = I1 + 1\r\n      IF (I1 .LT. NROWSC) GO TO 540\r\nC\r\nC     TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF\r\nC     ROWS TO BE COMPUTED = 6.  IF IT IS, WE ARE DONE.  IF NOT, THE\r\nC     ECPTDS MUST BE BACKSPACED.\r\nC\r\n      IF (LROWIC .EQ. 6) GO TO 10\r\n      CALL BCKREC (ECPTDS)\r\n      FROWIC = FROWIC + NROWSC\r\n      LROWIC = LROWIC + NROWSC\r\n      GO TO 100\r\n  700 IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT\r\nC     NULL COLUMNS MUST BE OUTPUT ON THE KGGD FILE.\r\nC\r\n      FILE = ECPTDS\r\n      LIM  = 6\r\n      IF (INPVT(1) .LT. 0) LIM = 1\r\n      DO 710 I = 1,LIM\r\n      CALL BLDPK  (2,IPR,KGGD,0,0)\r\n  710 CALL BLDPKN (KGGD,0,MCBKGG)\r\n      CALL FWDREC (*9020,ECPTDS)\r\n      GO TO 10\r\nC\r\nC     CHECK NOGO FLAG. IF NOGO=1, TERMINATE EXECUTION\r\nC\r\n 1000 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0)\r\nC\r\nC     WRAP UP BEFORE RETURN\r\nC\r\n      CALL CLOSE (ECPTDS,CLSRW)\r\n      CALL CLOSE (GPCT,CLSRW)\r\n      CALL CLOSE (KGGD,CLSRW)\r\n      MCBKGG(3) = MCBKGG(2)\r\n      IF (MCBKGG(6) .EQ. 0) GO TO 9050\r\n      CALL WRTTRL (MCBKGG)\r\n      J = 26\r\n      NE(J) = BEAM\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 9020 CALL MESAGE (-2,FILE,NAME)\r\n 9030 CALL MESAGE (-3,FILE,NAME)\r\n 9040 CALL MESAGE (-7,FILE,NAME)\r\n 9050 WRITE  (IOUTPT,9060) UFM\r\n 9060 FORMAT (A23,' 2402, NULL DIFFERENTIAL STIFFNESS MATRIX ',\r\n     1        'GENERATED IN SUBROUTINE DS1A.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ds1b.f",
    "content": "      SUBROUTINE DS1B (KE,J)\r\nC\r\nC     THIS ROUTINE ADDS THE 6 X 6 DOUBLE PRECISION MATRIX KE TO THE\r\nC     SUBMATRIX OF ORDER NROWSC X JMAX.\r\nC\r\n      INTEGER          CSTM  ,MPT   ,DIT   ,ECPTDS,OUTRW ,EOR   ,\r\n     1                 CLSRW ,FROWIC,IZ(1)\r\n      DOUBLE PRECISION DZ(1) ,KE(36)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /DS1AAA/  NPVT  ,ICSTM ,NCSTM ,IGPCT ,NGPCT ,IPOINT,\r\n     1                 NPOINT,I6X6K ,N6X6K ,CSTM  ,MPT   ,DIT   ,\r\n     2                 ECPTDS,GPCT  ,KGGD  ,INRW  ,OUTRW ,EOR   ,\r\n     3                 NEOR  ,CLSRW ,JMAX  ,FROWIC,LROWIC,NROWSC,\r\n     4                 NLINKS,LINK(10)     ,NOGO\r\n      EQUIVALENCE      (DZ(1),Z(1),IZ(1))\r\nC\r\nC     SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT\r\nC     IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1))\r\nC\r\n      LOW = IGPCT + 1\r\n      LIM = NGPCT + LOW - 2\r\n      IF (LOW .GT. LIM) GO TO 15\r\n      DO 10 I = LOW,LIM\r\n      ISAVE = I\r\n      IF (J .GE. IABS(IZ(I+1))) GO TO 10\r\n      IF (J .GE. IABS(IZ(I  ))) GO TO 20\r\n   10 CONTINUE\r\n      IF (J .GE. IABS(IZ(ISAVE+1))) ISAVE = ISAVE + 1\r\n      GO TO 20\r\n   15 ISAVE = LOW\r\nC\r\nC     ADD KE TO THE SUBMATRIX\r\nC\r\n   20 L1  = FROWIC - 1\r\n      JJ  = IPOINT + ISAVE - IGPCT\r\n      J2  = IZ(JJ) - 1\r\n      I1  = 0\r\n      LIM = NROWSC - 1\r\n   30 IF (I1 .GT. LIM) RETURN\r\n      K1  = I6X6K + I1*JMAX + J2\r\n      J1  = 0\r\n      L   = 6*L1\r\n      K   = K1\r\n   40 J1  = J1 + 1\r\n      IF (J1 .GT. 6) GO TO 50\r\n      K   = K + 1\r\n      L   = L + 1\r\n      DZ(K) = DZ(K) + KE(L)\r\n      GO TO 40\r\n   50 I1  = I1 + 1\r\n      L1  = L1 + 1\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/ds1etd.f",
    "content": "      SUBROUTINE DS1ETD (ELID,TI,GRIDS)\r\nC\r\nC     THIS ROUTINE (CALLED BY -DS1-) READS ELEMENT TEMPERATURE\r\nC     DATA FROM A PRE-POSITIONED RECORD\r\nC\r\nC     ELID   = ID OF ELEMENT FOR WHICH DATA IS DESIRED\r\nC     TI     = BUFFER DATA IS TO BE RETURNED IN\r\nC     GRIDS  = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED\r\nC            = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED.\r\nC     ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS\r\nC     OLDEL  = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0)\r\nC     OLDEID = ELEMENT ID FROM LAST CALL\r\nC     EORFLG =.TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD\r\nC     ENDID  =.TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT\r\nC              TYPE.\r\nC     BUFFLG = NOT USED\r\nC     ITEMP  = TEMPERATURE LOAD SET ID\r\nC     IDEFT  = NOT USED\r\nC     IDEFM  = NOT USED\r\nC     RECORD =.TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE\r\nC     DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST\r\nC     AVRAGE = THE AVERAGE ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         EORFLG   ,ENDID    ,BUFFLG   ,RECORD\r\n      INTEGER         TI(2)    ,OLDEID   ,GRIDS    ,ELID     ,ELTYPE   ,\r\n     1                OLDEL    ,NAME(2)  ,GPTT     ,DEFALT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ DUM      ,IOUT\r\n      COMMON /DS1ETT/ ELTYPE   ,OLDEL    ,EORFLG   ,ENDID    ,BUFFLG   ,\r\n     1                ITEMP    ,DEFALT   ,IBACK    ,RECORD   ,OLDEID\r\n      DATA    NAME  / 4HDS1E,4HTD  /,  MAXWDS / 33 /,  GPTT  / 102 /\r\nC\r\n      IF (OLDEID .EQ. ELID) RETURN\r\n      OLDEID = ELID\r\nC\r\n      IF (ITEMP .GT. 0) GO TO 20\r\n      DO 10 I = 1,MAXWDS\r\n   10 TI(I) =-1\r\n      RETURN\r\nC\r\n   20 IF (.NOT.RECORD .OR. EORFLG) GO TO 50\r\n   15 IF (ELTYPE .NE. OLDEL) GO TO 30\r\n      IF (ENDID) GO TO 50\r\nC\r\nC     HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA\r\nC     HAS NOT YET BEEN REACHED.  READ AN ELEMENT ID\r\nC\r\n   35 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 40,50,40\r\n   40 IF (IABS(ID) .EQ. ELID) IF (ID) 51,51,70\r\n      IF (ID) 35,35,45\r\n   45 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 35\r\nC\r\nC     MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA\r\nC\r\n   70 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      RETURN\r\nC\r\nC     NO MORE DATA FOR THIS ELEMENT TYPE\r\nC\r\n   50 ENDID = .TRUE.\r\nC\r\nC     NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT\r\nC\r\n   51 IF (DEFALT .EQ. -1) GO TO 100\r\n      IF (GRIDS  .GT.  0) GO TO 75\r\n      DO 80 I = 2,MAXWDS\r\n   80 TI(I) = 0\r\n      TI(1) = DEFALT\r\n      IF (ELTYPE .EQ. 34) TI(2) = DEFALT\r\n      RETURN\r\nC\r\n   75 DO 76 I = 1,GRIDS\r\n   76 TI(I) = DEFALT\r\n      TI(GRIDS+1) = DEFALT\r\n      RETURN\r\nC\r\nC     NO TEMP DATA OR DEFALT\r\nC\r\n  100 WRITE  (IOUT,301) UFM,ELID,ITEMP\r\n  301 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9,\r\n     1       ' IN SET',I9)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA)\r\nC\r\n   30 IF (ENDID) GO TO 32\r\n   31 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 31,32,33\r\n   33 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 31\r\nC\r\nC     READ ELTYPE AND COUNT\r\nC\r\n   32 CALL READ (*5002,*300,GPTT,TI,2,0,FLAG)\r\n      OLDEL  = TI(1)\r\n      NWORDS = TI(2)\r\n      ENDID  = .FALSE.\r\n      IBACK  = 1\r\n      GO TO 15\r\nC\r\nC     END OF RECORD HIT\r\nC\r\n  300 EORFLG = .TRUE.\r\n      GO TO 50\r\n 5002 CALL MESAGE (-2,GPTT,NAME)\r\n 5001 CALL MESAGE (-3,GPTT,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dschk.f",
    "content": "      SUBROUTINE DSCHK\r\nC\r\nC     MODULE TO PERFORM DIFFERENTIAL STIFFNESS CONVERGENCE TESTS\r\nC\r\nC     DSCHK    PGI,PGIP1,UGIP1//EPSIO,DSEPSI,NT,TOUT,TIN,DONE,SHIFT,\r\nC                               COUNT,BETA\r\nC\r\nC     EPSIO    ACCEPTABLE RATIO OF ENERGY ERROR TO TOTAL ERROR(R) INPUT\r\nC     DSEPSI   EPSI(SUB I -1)   (REAL)                            IN/OUT\r\nC     NT       TOTAL NUMBER OF ITERATIONS ALLOWED                 INPUT\r\nC     TOUT     START TIME FOR OUTER LOOP                          INPUT\r\nC     TIN      START TIME FOR INNER LOOP                          INPUT\r\nC     DONE     EXIT FLAG FOR SKIP TO SDR2                         OUTPUT\r\nC     SHIFT    EXIT FLAG FOR SHIFT                                IN/OUT\r\nC     COUNT    CURRENT STEP NUMBER                                IN/OUT\r\nC     BETA     SHIFT DECISION FACTOR (REAL)                       INPUT\r\nC\r\nC     EXIT FLAG VALUES (IEXIT)                                    LOCAL\r\nC          0   NOT SET\r\nC          1   CONVERGED\r\nC          2   DIVERGED\r\nC          3   INSUFFICIENT TIME\r\nC          4   ITERATION LIMIT\r\nC          5   ZERO EPSIO\r\nC          6   ZERO EPSI\r\nC\r\n      INTEGER         PGI,PGIP1,UGIP1,TOUT,TIN,DONE,SHIFT,COUNT,IZ(1),\r\n     1                SYSBUF,SCR1,SCR2,SCR3,FILE,TNOW,TI,TO,TLEFT,BETA\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,KSYSTM(52),IPREC\r\n      COMMON /UNPAKX/ ITA,II,JJ,INCR\r\n      COMMON /BLANK / EPSIO,DSEPSI,NT,TOUT,TIN,DONE,SHIFT,COUNT,BETA\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (COUNT,NI), (Z(1),IZ(1))\r\n      DATA    PGI   , PGIP1,UGIP1,SCR1,SCR2,SCR3 /\r\n     1        101   , 102,  103,  301, 302, 303  /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IBUF1 = KORSZ(IZ) - SYSBUF + 1\r\n      IEXIT = 0\r\n      IFRST = SHIFT\r\n      SHIFT = 1\r\n      NF    = 1\r\n      CALL KLOCK (TNOW)\r\n      TI    = TNOW - TIN\r\n      CALL TMTOGO (TLEFT)\r\n      TO    = TNOW - TLEFT\r\nC\r\nC     COMPUTE DSEPSI(I)\r\nC\r\n      CALL SSG2B (UGIP1,PGI  ,0   ,SCR1,1,IPREC,1,SCR3)\r\n      CALL SSG2B (UGIP1,PGIP1,SCR1,SCR2,1,IPREC,2,SCR3)\r\nC\r\n      II   = 1\r\n      JJ   = 1\r\n      INCR = 1\r\n      ITA  = 1\r\n      FILE = SCR2\r\n      ASSIGN 10 TO IRETN\r\n      GO TO 300\r\nC\r\nC     GET DENOMINATOR\r\nC\r\n   10 EPSI = VALUE\r\n      FILE = SCR1\r\n      ASSIGN 20 TO IRETN\r\n      GO TO 300\r\n   20 IF (VALUE .EQ. 0.0) GO TO 40\r\n      EPSI  = ABS(EPSI/VALUE)\r\n      COUNT = COUNT + 1\r\n      IF (IFRST .EQ.  -1) GO TO 30\r\n      IF (EPSI  .EQ. 0.0) GO TO 210\r\n      XLAMA = ABS(DSEPSI/EPSI)\r\n      IF (XLAMA .LE. 1.0) GO TO 60\r\n   30 DSEPSI = EPSI\r\n      IF (EPSI .GT. EPSIO) GO TO 50\r\nC\r\nC     CONVERGED\r\nC\r\n   40 IEXIT = 1\r\n      DONE  =-1\r\n      GO TO 220\r\nC\r\nC     MAKE FIRST TEST\r\nC\r\n   50 IF (IFRST .EQ. -1) GO TO 80\r\nC\r\nC     NOT FIRST TIME\r\nC\r\n      IF (EPSIO .LE. 0.0) GO TO 200\r\n      NF  = ALOG(EPSI/EPSIO)/ALOG(XLAMA)\r\n      CALL KLOCK (TNOW)\r\n      CALL TMTOGO (TLEFT)\r\n      TI  = TNOW - TIN\r\n      TO  = TNOW - TOUT\r\n      GO TO 70\r\nC\r\nC     DIVERGED\r\nC\r\n   60 IEXIT = 2\r\n      DONE  =-1\r\n      DSEPSI = EPSI\r\n      GO TO 220\r\nC\r\nC     CONVERGENT\r\nC\r\n   70 IF (NF .GT. NT-NI) GO TO 90\r\n      IF (TI*NF .GT. TO+BETA*TI) GO TO 100\r\n   80 IF (TLEFT .GE. 3*TI) GO TO 120\r\nC\r\nC     INSUFFICIENT TIME\r\nC\r\n      IEXIT = 3\r\n      DONE  =-1\r\n      GO TO 220\r\n   90 IF (NT-NI-BETA) 80,100,100\r\nC\r\nC     SET SHIFT FLAG\r\nC\r\n  100 SHIFT =-1\r\n      IF (TLEFT .LT. TO+BETA*TI) GO TO 80\r\nC\r\nC     WRAP UP FOR SHIFT\r\nC\r\n      DONE  = NF\r\n      IEXIT = 0\r\n      GO TO 220\r\nC\r\nC     USER LIMIT ITERATION NUMBER EXPIRED\r\nC\r\n  110 CONTINUE\r\n      IEXIT = 4\r\n      DONE  =-1\r\n      GO TO 220\r\nC\r\nC     WRAP UP FOR NO SHIFT\r\nC\r\n  120 CONTINUE\r\n      IF (NI .GE. NT) GO TO 110\r\n      SHIFT = 1\r\n      DONE  = NF\r\n      GO TO 220\r\nC\r\nC     PARAMETER ERROR, EPSIO HAS NO VALUE\r\nC\r\n  200 IEXIT = 5\r\n      GO TO 220\r\nC\r\nC     AFTER SSG2B, EPSI IS ZERO DUE TO THE FIRST VAULE FROM SCR2 IS ZERO\r\nC     WHILE VALUE FROM SCR1 IS NOT ZERO\r\nC\r\n  210 IEXIT = 6\r\nC\r\nC     EXIT FROM MODULE\r\nC\r\n  220 CALL PAGE2 (-9)\r\n      WRITE  (NOUT,230) UIM,IEXIT,COUNT,DONE,SHIFT,DSEPSI\r\n  230 FORMAT (A29,' 7019, MODULE DSCHK IS EXITING FOR REASON',I4, /5X,\r\n     1       'ON ITERATION NUMBER',I7,1H.,\r\n     2       /5X,'PARAMETER VALUES ARE AS FOLLOWS',/10X,'DONE   =',I10,\r\n     3       /10X,'SHIFT  =',I10, /10X,'DSEPSI =',1P,E14.7)\r\n      IF (IEXIT .GE. 5) WRITE (NOUT,240) EPSIO,EPSI\r\n  240 FORMAT ( 10X,'EPSIO  =',1P,E10.3, /10X,'EPSI   =',1P,E10.3)\r\n      RETURN\r\nC\r\nC     INTERNAL ROUTINE TO OBTAIN VALUE FROM MATRIX\r\nC\r\n  300 CALL GOPEN (FILE,IZ(IBUF1),0)\r\n      CALL UNPACK (*310,FILE,VALUE)\r\n      GO TO 320\r\n  310 VALUE = 0.0\r\n  320 CALL CLOSE (FILE,1)\r\n      GO TO IRETN, (10,20)\r\n      END\r\n"
  },
  {
    "path": "mis/dshear.f",
    "content": "      SUBROUTINE DSHEAR\r\nC\r\nC     THIS COMPUTES THE THE TWO 6X6 DIFFERENTIAL STIFFNESS MATRICES\r\nC     K(NPVT,NPVT) AND K(NPVT,J) WHERE J = 3,4,1,2 IF NPVT = 1,2,3,4\r\nC     RESPECTIVELY.\r\nC\r\nC     ECPT FOR BOTH PANELS\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC     ECPT( 3)  -   ...                   ...\r\nC     ECPT( 4)  -   ...                   ...\r\nC     ECPT( 5)  -   ...                   ...\r\nC     ECPT( 6)  -  MATID          MATERIAL ID.\r\nC     ECPT( 7)  -  T              THICKNESS\r\nC     ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC     ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC     ECPT(11)  -   ...                      ...\r\nC     ECPT(12)  -   ...                      ...\r\nC     ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC     ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC     ECPT(15)  -   ...                      ...\r\nC     ECPT(16)  -   ...                      ...\r\nC     ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC     ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC     ECPT(19)  -   ...                      ...\r\nC     ECPT(20)  -   ...                      ...\r\nC     ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC     ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC     ECPT(23)  -   ...                      ...\r\nC     ECPT(24)  -   ...                      ...\r\nC     ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC     ECPT(26)  -  DEFORM         ELEMENT DEFORMATION (NOT USED)\r\nC     ECPT(27)  -  AVGLTP         AVG.ELEM LOADING TEMPERATURE, NOT USED\r\nC     ECPT(28)  -  U1(3)          TRANSLATION DISPLACEMENTS AT PT. 1\r\nC     ECPT(29)  -  ...                         ...\r\nC     ECPT(30)  -  ...                         ...\r\nC     ECPT(31)  -  U2(3)          TRANSLATION DISPLACEMENTS AT PT. 2\r\nC     ECPT(32)  -  ...                         ...\r\nC     ECPT(33)  -  ...                         ...\r\nC     ECPT(34)  -  U3(3)          TRANSLATION DISPLACEMENTS AT PT. 3\r\nC     ECPT(35)  -  ...                         ...\r\nC     ECPT(36)  -  ...                         ...\r\nC     ECPT(37)  -  U4(3)          TRANSLATION DISPLACEMENTS AT PT. 4\r\nC     ECPT(38)  -  ...                         ...\r\nC     ECPT(39)  -  ...                         ...\r\nC\r\n      REAL             NUSP\r\n      DOUBLE PRECISION KE(36),TI(9),VLEFT(6),VD1,VD2,VKN,VK,V12,V41,\r\n     1                 VP12,VI,VJ,AVEC,SMALLU,SMALLV,P,X1,X2,X3,X4,\r\n     2                 Y1,Y2,Y3,Y4,VKL,PA,V12DK,CEP1,CEP2,EP,TEMP\r\n      DOUBLE PRECISION YP,XP,SA,XQ,B,XL,A,A2,A3,A4,A5,B2,B3,B4,B5,C,C2,\r\n     1                 C3,C4,C5,D,D2,D3,D4,D5,TERM1,TERM2,TERM3,TERM4,\r\n     2                 TERM5,XL13,XL24\r\n      DOUBLE PRECISION VP12L,VJL,Z,TERM,F,E,G,NU,T,C23,NUC\r\n      DOUBLE PRECISION UI(3),DPTERM,SUM,F13,F24,FXX,JJ(3),J3X3(9),\r\n     1                 K3X3(9)\r\n      DIMENSION        VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3),VP12(3),\r\n     1                 VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4),P(4),\r\n     2                 IECPT(100),ECPT(100),IZ(1)\r\n      COMMON /ZZZZZZ/  ZZ(1)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM,DUMCL(32),NOGO\r\n      COMMON /DS1AET/  IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3),\r\n     1                 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL,\r\n     2                 DEFORM,AVGLTP,U1(3),U2(3),U3(3),U4(4)\r\n      COMMON /DS1ADP/  KE,TI,VLEFT,VD1,VD2,VKN,VK,V12,V41,VP12,VI,VJ,\r\n     1                 AVEC,SMALLU,SMALLV,P,X1,X2,X3,X4,Y1,Y2,Y3,Y4,\r\n     2                 VKL,PA,V12DK,CEP1,CEP2,EP,TEMP\r\n      COMMON /DS1ADP/  YP,XP,SA,XQ,B,XL,A,A2,A3,A4,A5,B2,B3,B4,B5,C,C2,\r\n     1                 C3,C4,C5,D,D2,D3,D4,D5,TERM1,TERM2,TERM3,TERM4,\r\n     2                 TERM5,XL13,XL24\r\n      COMMON /DS1ADP/  VP12L,VJL,Z,TERM,F,E,G,NU,T,C23,NUC\r\n      COMMON /DS1ADP/  UI,DPTERM,SUM,F13,F24,FXX,JJ,J3X3,K3X3\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  ESP,GSP,NUSP,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS\r\n      EQUIVALENCE      (IZ(1),ZZ(1)),(IELID,IECPT(1),ECPT(1))\r\n     1\r\nC\r\nC     CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC     STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      E    = ESP\r\n      G    = GSP\r\n      NU   = NUSP\r\n      T    = TSP\r\n      C23  = 2.0D0/3.0D0\r\n      NUC  = 1.0D0/(1.0D0+NU)\r\nC\r\nC     COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I = 1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC     COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE\r\nC     PROJECTED AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL    = DSQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2)\r\n      IF (VKL .EQ. 0.0D0) GO TO 1010\r\n      VK(1)  = VKN(1)/VKL\r\n      VK(2)  = VKN(2)/VKL\r\n      VK(3)  = VKN(3)/VKL\r\n      PA     = .5D0*VKL\r\nC\r\nC     COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 12 I = 1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   12 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC     COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12,VI,VJ\r\nC\r\n      V12DK   = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3)\r\n      VP12(1) = V12(1) - V12DK*VK(1)\r\n      VP12(2) = V12(2) - V12DK*VK(2)\r\n      VP12(3) = V12(3) - V12DK*VK(3)\r\n      VP12L   = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2)\r\n      IF (VP12L .EQ. 0.0D0) GO TO 1020\r\n      VI(1)   = VP12(1)/VP12L\r\n      VI(2)   = VP12(2)/VP12L\r\n      VI(3)   = VP12(3)/VP12L\r\n      VJ(1)   = VK(2)*VI(3) - VK(3)*VI(2)\r\n      VJ(2)   = VK(3)*VI(1) - VK(1)*VI(3)\r\n      VJ(3)   = VK(1)*VI(2) - VK(2)*VI(1)\r\nC\r\nC     NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL   = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2)\r\n      IF (VJL .EQ. 0.0D0) GO TO 1030\r\n      VJ(1) = VJ(1)/VJL\r\n      VJ(2) = VJ(2)/VJL\r\n      VJ(3) = VJ(3)/VJL\r\n      X1    = 0.0D0\r\n      Y1    = 0.0D0\r\n      X2    = VP12L\r\n      Y2    = 0.0D0\r\n      X3    = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3)\r\n      Y3    = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3)\r\n      X4    =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3)\r\n      Y4    =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3)\r\nC\r\nC     CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES.\r\nC     IF NOT, CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE.    0.0D0) GO TO 1040\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 1050\r\n      IF (Y4 .LE.    0.0D0) GO TO 1060\r\n      IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 1070\r\nC\r\nC     TEST FOR PARALLEL EFFECTS.\r\nC\r\n      CEP1 = DABS((Y3-Y4)/(X3-X4))\r\n      TEMP = X3 - X2\r\n      CEP2 = DABS((Y4*TEMP-Y3*X4)/(X4*TEMP+Y4*Y3))\r\n      EP   = 1.0D-1\r\n      IF (CEP1 .LT. EP) GO TO 15\r\n      IF (CEP2 .LT. EP) GO TO 30\r\n      GO TO 50\r\n   15 IF (CEP2 .LT. EP) GO TO 40\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      YP   = X2*Y3*Y4/TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4/TEMP\r\n      SA   = (X2 - XP)/YP\r\n      C    = (X1 - XP)/YP\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.0D0*G*T))*\r\n     1       (1.0D0 + C23*NUC*(SA**2 + SA*C + C**2))\r\n      GO TO 60\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   30 D    = -.5D0*(X4/Y4 + (X3-X2)/Y3)\r\n      XQ   = X4 - Y4*(X3-X4)/(Y3-Y4)\r\n      TEMP = 1.0D0/DSQRT(1.0D0 + D**2)\r\n      P(1) = (XQ - X1 - D*Y1)*TEMP\r\n      P(2) = (XQ - X2 - D*Y2)*TEMP\r\n      P(3) = (XQ - X3 - D*Y3)*TEMP\r\n      P(4) = (XQ - X4 - D*Y4)*TEMP\r\n      TEMP =  XQ - X4\r\n      B    = (TEMP*D + Y4)/(TEMP - Y4*D)\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.0D0*G*T))*\r\n     1       (1.0D0 + C23*NUC*(B**2 + B*D + D**2))\r\n      GO TO 60\r\nC\r\nC     IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   40 DO 45 I = 1,4\r\n   45 P(I) = 1.0D0\r\n      D = -.5D0*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4))\r\n      Z = PA/(2.0D0*G*T)*(1.0D0 + 2.0D0*D**2*NUC)\r\n      GO TO 60\r\nC\r\nC     IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   50 XQ    = X4 - (X3-X4)/(Y3-Y4)*Y4\r\n      TEMP  = Y3*X4 - Y4*(X3-X2)\r\n      XP    = X2*Y3*X4/TEMP\r\n      YP    = X2*Y3*Y4/TEMP\r\n      XL    = DSQRT((XQ-XP)**2 + YP**2)\r\n      D     = (XQ-XP)/YP\r\n      TEMP  = YP/XL\r\n      P(1)  = TEMP*(XQ - X1 - D*Y1)\r\n      P(2)  = TEMP*(XQ - X2 - D*Y2)\r\n      P(3)  = TEMP*(XQ - X3 - D*Y3)\r\n      P(4)  = TEMP*(XQ - X4 - D*Y4)\r\n      C     = XL/P(1) - D\r\n      B     = XL/P(4) - C\r\n      A     = XL/P(2) - D\r\n      A2    = A**2\r\n      B2    = B**2\r\n      C2    = C**2\r\n      D2    = D**2\r\n      A3    = A2*A\r\n      B3    = B2*B\r\n      C3    = C2*C\r\n      D3    = D2*D\r\n      A4    = A3*A\r\n      B4    = B3*B\r\n      C4    = C3*C\r\n      D4    = D3*D\r\n      A5    = A4*A\r\n      B5    = B4*B\r\n      C5    = C4*C\r\n      D5    = D4*D\r\n      TEMP  = .5D0*P(1)*P(2)*P(3)*P(4)/XL**2\r\n      TERM  = A + B + C23*(A3+B3) + .2D0*(A5+B5)\r\n      TERM1 = C + D + C23*(C3+D3) + .2D0*(C5+D5)\r\n      TERM2 = B + C + C23*(B3+C3) + .2D0*(B5+C5)\r\n      TERM3 = D + A + C23*(D3+A3) + .2D0*(D5+A5)\r\n      TERM  = TERM *DLOG(DABS(A+B))\r\n      TERM1 = TERM1*DLOG(DABS(C+D))\r\n      TERM2 = TERM2*DLOG(DABS(B+C))\r\n      TERM3 = TERM3*DLOG(DABS(D+A))\r\n      TERM4 = .1D0*((A2-C2)*(B3-D3) + (B2-D2)*(A3-C3))\r\n      TERM5 = .2D0*((A -C )*(B4-D4) + (B -D )*(A4-C4))\r\n      F     = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5)\r\n      Z     = P(1)*P(2)/(P(3)*P(4)*2.0D0*G*T)*(PA+4.0D0*NUC*(F-C23*PA))\r\n   60 XL13  = DSQRT(X3**2 + Y3**2)\r\n      XL24  = DSQRT((X4-X2)**2 + Y4**2)\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP      = X4*Y3 - X3*Y4\r\n      AVEC(1)   =-.5D0*X2*Y4*XL13/TEMP\r\n      AVEC(2)   = .5D0*X2*Y3*XL24/(TEMP-X2*(Y3-Y4))\r\n      AVEC(3)   =-AVEC(1)\r\n      AVEC(4)   =-AVEC(2)\r\nC\r\nC     COMPUTE THE SUM GIVEN ON P. 16 OF FMMS-39\r\nC\r\n      SUM = 0.0D0\r\n      DO 80 I = 1,4\r\n      IVLBEG   = 1\r\n      VLEFT(1) = SMALLU(I)*VI(1) + SMALLV(I)*VJ(1)\r\n      VLEFT(2) = SMALLU(I)*VI(2) + SMALLV(I)*VJ(2)\r\n      VLEFT(3) = SMALLU(I)*VI(3) + SMALLV(I)*VJ(3)\r\n      IF (IECPT(4*I+5) .EQ. 0) GO TO 70\r\n      CALL TRANSD (IECPT(4*I+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATD (VLEFT(1),3,1,1, TI,3,3,0, VLEFT(4))\r\n   70 K = 24 + 3*I\r\n      UI(1) = ECPT(K+1)\r\n      UI(2) = ECPT(K+2)\r\n      UI(3) = ECPT(K+3)\r\n      CALL GMMATD (VLEFT(IVLBEG),3,1,1, UI,3,1,0, DPTERM)\r\n   80 SUM = SUM + AVEC(I)*DPTERM\r\n      F13 =-AVEC(1)*SUM/(2.0D0*Z)\r\n      F24 = AVEC(2)*F13/AVEC(1)\r\nC\r\nC     SEARCH LIST OF SIL NOS. IN THE ECPT FOR THE PIVOT POINT.\r\nC\r\n      DO 90 I = 1,4\r\n      II = I\r\n      IF (NPVT .EQ. IECPT(I+1)) GO TO 100\r\n   90 CONTINUE\r\n      CALL MESAGE (-30,34,IECPT(1))\r\n  100 IF (II.EQ.2 .OR. II.EQ.4) GO TO 110\r\n      FXX = F13/XL13\r\n      I   = 1\r\n      GO TO 120\r\n  110 FXX = F24/XL24\r\n      I   = 2\r\n  120 JJ(1) = -VI(1)*SMALLV(I) + VJ(1)*SMALLU(I)\r\n      JJ(2) = -VI(2)*SMALLV(I) + VJ(2)*SMALLU(I)\r\n      JJ(3) = -VI(3)*SMALLV(I) + VJ(3)*SMALLU(I)\r\nC\r\nC                     T            T\r\nC     COMPUTE  JJ X JJ  AND VK X VK\r\nC\r\n      CALL GMMATD (JJ,3,1,0, JJ,3,1,1, J3X3)\r\n      CALL GMMATD (VK,3,1,0, VK,3,1,1, K3X3)\r\nC\r\nC     SUM THE TWO IN J3X3\r\nC\r\n      DO 130 J = 1,9\r\n  130 J3X3(J) = J3X3(J) + K3X3(J)\r\n      GO TO (140,150,160,170), II\r\n  140 KK = 3\r\n      GO TO 180\r\n  150 KK = 4\r\n      GO TO 180\r\n  160 KK = 1\r\n      GO TO 180\r\n  170 KK = 2\r\nC\r\nC     ZERO OUT KE\r\nC\r\n  180 DO 190 I = 1,36\r\n  190 KE(I) = 0.0D0\r\nC\r\nC                 D\r\nC     SET UP THE K   MATRIX\r\nC                 II\r\nC\r\n      MPOINT = 1\r\n      IF (IECPT(4*II+5) .EQ. 0) GO TO 200\r\n      CALL TRANSD (ECPT(4*II+5),TI)\r\n      MPOINT = 10\r\n      CALL GMMATD (TI,3,3,1, J3X3(1),3,3,0, K3X3(1))\r\n      CALL GMMATD (K3X3(1),3,3,0, TI,3,3,0, J3X3(1))\r\n  200 K = 1\r\n      J = II\r\n  210 KE( 1) = FXX*J3X3(K  )\r\n      KE( 2) = FXX*J3X3(K+1)\r\n      KE( 3) = FXX*J3X3(K+2)\r\n      KE( 7) = FXX*J3X3(K+3)\r\n      KE( 8) = FXX*J3X3(K+4)\r\n      KE( 9) = FXX*J3X3(K+5)\r\n      KE(13) = FXX*J3X3(K+6)\r\n      KE(14) = FXX*J3X3(K+7)\r\n      KE(15) = FXX*J3X3(K+8)\r\n      CALL DS1B (KE,IECPT(J+1))\r\n      IF (J .EQ. KK) RETURN\r\nC\r\nC                 D\r\nC     SET UP THE K   MATRIX\r\nC                 IJ\r\nC\r\n      J = KK\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 220\r\n      CALL TRANSD (ECPT(4*J+5),TI)\r\n      NPOINT = 10\r\n      IF (MPOINT .EQ. 10) NPOINT = 1\r\n      CALL GMMATD (J3X3(MPOINT),3,3,0, TI,3,3,0, J3X3(NPOINT))\r\n      K = NPOINT\r\n      GO TO 230\r\n  220 K = MPOINT\r\n  230 FXX = -FXX\r\n      GO TO 210\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 1010 CONTINUE\r\n 1020 CONTINUE\r\n 1030 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n 1040 IECPT(2) = 2\r\n      GO TO 2000\r\n 1050 IECPT(2) = 4\r\n      GO TO 2000\r\n 1060 IECPT(2) = 1\r\n      GO TO 2000\r\n 1070 IECPT(2) = 3\r\n 2000 CALL MESAGE (30,27,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dsmg1.f",
    "content": "      SUBROUTINE DSMG1\r\nC\r\nC     THIS ROUTINE IS THE DRIVER FOR THE DIFFERENTIAL STIFFNESS MATRIX\r\nC     GENERATOR MODULE OF THE NASTRAN SYSTEM.  SUBROUTINE DS1 APPENDS\r\nC     TEMPERATURE, ELEMENT DEFORMATION AND DISPLACEMENT INFORMATION TO\r\nC     THE ECPT DATA BLOCK AND A SCRATCH FILE, ECPTDS, OF THIS MERGED\r\nC     INFORMATION IS CREATED.  SUBROUTINE DS1A IS STRUCTURED IDENTICALLY\r\nC     TO SMA1A. IT READS THE ECPTDS FILE AND CREATES A SECOND ORDER\r\nC     APPROXIMATION TO THE KGG, WHICH IS CALLED KDGG.\r\nC\r\nC     DMAP CALL -\r\nC\r\nC     DSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/\r\nC\r\n      CALL DS1 (IARG)\r\n      IF (IARG .GT. 0) GO TO 10\r\nC\r\nC     ECPTDS IS EMPTY. WRITE MESSAGE AND CALL EXIT.\r\nC\r\n      CALL MESAGE (30,81,0)\r\n      CALL MESAGE (-61,0,0)\r\n   10 CALL DS1A\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dsmg2.f",
    "content": "      SUBROUTINE DSMG2\r\nC*****\r\nC THIS MODULE PERFORMS THE FOLLOWING MATRIX OPERATIONS...\r\nC\r\nC     KBAA  = KAA + BETA * KDAA\r\nC     KBFS  = KFS + BETA * KDFS\r\nC     KBSS  = KSS + BETA * KDSS\r\nC     PBL   = BETA * PL\r\nC     PBS   = BETA * PS\r\nC     YBS   = BETA * YS\r\nC     UBOOV = BETA * UOOV\r\nC\r\nC THE VALUE OF BETA LIES IN THE DIFFERENTIAL STIFFNESS COEFFICIENT SET\r\nC NO. SPECIFIED BY THE INPUT PARAMETER DSCSET.  THE PARTICULAR VALUE OF\r\nC BETA TO BE USED ON ANY PASS THROUGH THIS MODULE IS THE NDSKIP(TH)\r\nC VALUE IN THE DSCSET SET.  IREPTD IS SET EQUAL TO -1 AFTER THE LAST\r\nC BETA IN THE SET HAS BEEN ENCOUNTERED, THEREBY TERMINATING THE\r\nC DIFFERENTIAL STIFFNESS RIGID FORMAT DMAP LOOP BEGINNING AT THE\r\nC LABEL DSLOOP AND ENDING AT THE REPT DSLOOP,100$ STATEMENT.\r\nC\r\nC\r\nC  DMAP CALL...\r\nC\r\nC\r\nC     DSMG2    MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBAA,KBFS,\r\nC              KBSS,PBL,PBS,YBS,UBOOV/V,N,NDSKIP/V,N,REPEATD/\r\nC              V,N,DSCOSET/ $\r\nC*****\r\n      INTEGER\r\n     1                   MPT                ,SETNO\r\n     2,                  KAA                ,KDAA\r\n     3,                  KFS                ,KDFS\r\n     4,                  KSS                ,KDSS\r\n     5,                  PL                 ,PS\r\n     6,                  YS                 ,UOOV\r\n     7,                  KBAA               ,KBFS\r\n     8,                  KBSS               ,PBL\r\n     9,                  PBS                ,YBS\r\n     T,                  UBOOV              ,SYSBUF\r\n     1,                  BUFFR1             ,BUFFR2\r\n     2,                  FILE1              ,FILE2\r\n     3,                  FILE3              ,CLSRW\r\n     4,                  DSNOS              ,DSCSET\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   MCB(7)             ,DSNOS(2)\r\n     2,                  NAME(2)            ,BLOCK(11)\r\n     3,                  IBLOCK(11)\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (BLOCK(1),IBLOCK(1))\r\n     2,                  (BETASP,IBETA)\r\nC\r\nC MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK/\r\n     1                   NDSKIP             ,IREPTD\r\n     2,                  DSCSET\r\nC\r\nC SYSTEM COMMON\r\nC\r\n      COMMON   /SYSTEM/\r\n     1                   SYSBUF\r\nC\r\nC\r\nC\r\n      COMMON   /ZZZZZZ/\r\n     1                   Z(1)\r\nC\r\nC\r\nC\r\n      DATA\r\n     1                   NAME(1)/4HDSMG/    ,NAME(2)/4H2   /\r\n      DATA\r\n     1                   MPT\r\n     2,                  KAA                ,KDAA\r\n     3,                  KFS                ,KDFS\r\n     4,                  KSS                ,KDSS\r\n     5,                  PL                 ,PS\r\n     6,                  YS                 ,UOOV\r\n     7,                  KBAA               ,KBFS\r\n     8,                  KBSS               ,PBL\r\n     9,                  PBS                ,YBS\r\n     T,                  UBOOV /\r\n     1                   101,102,103,104,105,106,107,108,109,110,\r\n     2                   111,201,202,203,204,205,206,207 /\r\n      DATA\r\n     1                   CLSRW/1/\r\n      DATA\r\n     1                   NEOR,DSNOS(1),DSNOS(2) / 0,53,10/\r\nC\r\nC\r\nC\r\n      IZMAX  = KORSZ (Z)\r\n      BUFFR1 = IZMAX  - SYSBUF\r\n      BUFFR2 = BUFFR1 - SYSBUF\r\n      LEFT   = BUFFR2 - 1\r\nC\r\nC TURN DIFFERENTIAL STIFFNESS LOOPING FLAG ON AND INCREMENT THE INDEX\r\nC OF BETA.  NOTE THAT NDSKIP MUST BE SET TO ZERO IN THE MODULE\r\nC PROPERTIES TABLE.\r\nC\r\n      IREPTD = 1\r\n      NDSKIP = NDSKIP + 1\r\nC\r\nC CALL LOCATE TO FIND THE RECORD OF THE MPT WHERE THE DSFACT CARDS ARE.\r\nC THIS IS DONE ONLY IF A D.S. COEFFICIENT SET NO. IS GIVEN.\r\nC\r\n      IF (DSCSET .NE. (-1)) GO TO 5\r\nC\r\nC THERE IS NO LOOPING.  TURN LOOPING INDICATOR OFF.\r\nC SEE COMMENTS ABOVE FORTRAN STATEMENT NO. 70 RE THE 4 SCALAR MULTIPLI-\r\nC CATIONS WHEN DSCSET = -1.\r\nC\r\n      IREPTD = -1\r\n      GO TO 165\r\n    5 CALL PRELOC(*1030,Z(BUFFR1),MPT)\r\n      CALL LOCATE(*1035,Z(BUFFR1),DSNOS,IDUMMY)\r\nC\r\nC\r\nC\r\n   10 CALL READ(*1040,*1050,MPT,SETNO,1,NEOR,IDUMMY)\r\n      IF (SETNO .EQ. DSCSET) GO TO 30\r\nC\r\nC READ ONE WORD AT A TIME UNTIL A -1 (END OF SET INDICATOR) IS READ.\r\nC\r\n      DO 20 I = 1,32000\r\n      CALL READ(*1060,*1070,MPT,J,1,NEOR,IDUMMY)\r\n      IF (J .EQ. (-1)) GO TO 10\r\n   20 CONTINUE\r\n      CALL MESAGE (-30,84,1)\r\nC\r\nC TEST TO SEE IF WORDS MUST BE SKIPPED.\r\nC\r\n   30 IF (NDSKIP .EQ. 1) GO TO 40\r\nC\r\nC SKIP NDSKIP - 1 WORDS\r\nC\r\n      CALL READ(*1080,*1090,MPT,0,-(NDSKIP-1),NEOR,IDUMMY)\r\nC\r\nC READ THE VALUE OF BETA\r\nC\r\n   40 CALL READ(*1100,*1110,MPT,BETASP,1,NEOR,IDUMMY)\r\n      IF (IBETA .EQ. (-1)) CALL MESAGE (-30,84,2)\r\nC\r\nC IF THE NEXT WORD IS A -1, WE HAVE READ THE LAST BETA.  HENCE SET\r\nC IREPTD = -1\r\nC\r\n      CALL READ(*1120,*1130,MPT,J,1,NEOR,IFLAG)\r\n      IF (J .EQ. (-1)) IREPTD = -1\r\n      CALL CLOSE (MPT,CLSRW)\r\nC\r\nC PERFORM THE 4 SCALAR MULTIPLICATIONS.  N.B.---IF DSCSET = -1, THAT IS,\r\nC ONLY ONE BETA WILL BE USED AND THAT HAS AN ASSUMED VALUE OF 1.0, IT IS\r\nC ASSUMED THAT EQUIVALENCES HAVE BEEN MADE BETWEEN PL AND PBL, PS AND\r\nC PBS, YS AND YBS, AND UOOV AND UBOOV.\r\nC\r\n      IND = 0\r\n      FILE1 = PL\r\n      FILE2 = PBL\r\n   70 MCB(1) = FILE1\r\n      CALL RDTRL (MCB)\r\nC\r\nC A FATAL ERROR OCCURS IF PL IS PURGED.\r\nC\r\n      IF (MCB(1) .LT. 0  .AND.  IND .EQ. 0) CALL MESAGE (-1,FILE1,NAME)\r\nC\r\nC IF THE INPUT FILE IS NOT PURGED AND IS NOT PL, SKIP THE OPERATION.\r\nC\r\n      IF (MCB(1) .LT. 0) GO TO 130\r\nC\r\nC THE INPUT FILE IS NOT PURGED. IF THE OUTPUT FILE IS PURGED, A FATAL\r\nC ERROR OCCURS.\r\nC\r\n      MCB(1) = FILE2\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) CALL MESAGE (-1,FILE2,NAME)\r\n      IBLOCK(1) = 1\r\n      BLOCK (2) = BETASP\r\n      BLOCK (3) = 0.0\r\n      BLOCK (4) = 0.0\r\n      BLOCK (5) = 0.0\r\n      BLOCK (6) = 0.0\r\n      IBLOCK(7) = 1\r\n      BLOCK (8) = 0.0\r\n      BLOCK (9) = 0.0\r\n      BLOCK(10) = 0.0\r\n      BLOCK(11) = 0.0\r\n      CALL SSG2C (FILE1,0,FILE2,0,BLOCK(1))\r\n  130 IND = IND + 1\r\n      GO TO (140,150,160,170), IND\r\n  140 FILE1= PS\r\n      FILE2 = PBS\r\n      GO TO 70\r\n  150 FILE1 = YS\r\n      FILE2 = YBS\r\n      GO TO 70\r\n  160 FILE1 = UOOV\r\n      FILE2 = UBOOV\r\n      GO TO 70\r\nC\r\nC PERFORM MATRIX ADDITIONS\r\nC\r\n  165 BETASP= 1.0\r\n  170 FILE1 = KAA\r\n      FILE2 = KDAA\r\n      FILE3 = KBAA\r\n      IND   = 0\r\n  180 IUNDEF= 0\r\n      MCB(1)= FILE1\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LT. 0)  IF (IND) 190,190,200\r\n      GO TO 210\r\n  190 CALL MESAGE (-1,FILE1,NAME)\r\n  200 IUNDEF = 1\r\n  210 MCB(1) = FILE2\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LT. 0)  IF (IUNDEF) 260,260,220\r\n      IF (IUNDEF .EQ. 1) CALL MESAGE (-30,84,15)\r\n      IBLOCK(1) = 1\r\n      BLOCK (2) = 1.0\r\n      BLOCK (3) = 0.0\r\n      BLOCK (4) = 0.0\r\n      BLOCK (5) = 0.0\r\n      BLOCK (6) = 0.0\r\n      IBLOCK(7) = 1\r\n      BLOCK (8) = BETASP\r\n      BLOCK (9) = 0.0\r\n      BLOCK(10) = 0.0\r\n      BLOCK(11) = 0.0\r\n      CALL SSG2C (FILE1,FILE2,FILE3,0,BLOCK(1))\r\n  220 IND = IND + 1\r\n      GO TO (230,240,250),IND\r\n  230 FILE1 = KFS\r\n      FILE2 = KDFS\r\n      FILE3 = KBFS\r\n      GO TO 180\r\n  240 FILE1 = KSS\r\n      FILE2 = KDSS\r\n      FILE3 = KBSS\r\n      GO TO 180\r\n  250 RETURN\r\n  260 CALL MESAGE (-1,FILE2,NAME )\r\n 1030 I = 3\r\n      GO TO 1099\r\n 1035 I = 4\r\n      GO TO 1099\r\n 1040 I = 5\r\n      GO TO 1099\r\n 1050 I = 6\r\n      GO TO 1099\r\n 1060 I = 7\r\n      GO TO 1099\r\n 1070 I = 8\r\n      GO TO 1099\r\n 1080 I = 9\r\n      GO TO 1099\r\n 1090 I = 10\r\n      GO TO 1099\r\n 1100 I = 11\r\n      GO TO 1099\r\n 1110 I = 12\r\n      GO TO 1099\r\n 1120 I = 13\r\n      GO TO 1099\r\n 1130 I = 14\r\n 1099 CALL MESAGE (-30,84,I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dstroy.f",
    "content": "      SUBROUTINE DSTROY (NAME,ITEST,IMAGE,IMORE,LIM)\r\nC\r\nC     DESTROYS THE SUBSTRUCTURE NAME BY DELETING ITS DIRECTORY FROM THE\r\nC     MDI AND ITS NAME FROM THE DIT.  NO OPERATION WILL TAKE PLACE IF\r\nC     NAME IS AN IMAGE SUBSTRUCTURE.  IF NAME IS A SECONDARY SUBSTRUC-\r\nC     TURE, IT IS DELETED FROM THE LIST OF SECONDARY SUBSTRUCTURES TO\r\nC     WHICH IT BELONGS, AND ITS IMAGE CONTRIBUTING TREE IS DESTROYED.\r\nC     IF NAME IS A PRIMARY SUBSTRUCTURE, ALL ITS SECONDARY SUBSTRUCTURES\r\nC     ARE ALSO DESTROYED.  IN ALL CASES, ALL THE SUBSTRUCTURES DERIVED\r\nC     FROM THE SUBSTRUCTURE BEING DESTROYED ARE ALSO DESTROYED, AND\r\nC     CONNECTIONS WITH OTHER SUBSTRUCTURES ARE DELETED.\r\nC\r\nC     THE BLOCKS OCCUPIED BY THE ITEM ARE RETURNED TO THE LIST OF FREE\r\nC     BLOCKS IF THEY BELONG TO THE SPECIFIED SUBSTRUCTURE\r\nC\r\nC     THE OUTPUT VARIABLE ITEST TAKES ONE OF THE FOLLOWING VALUES.\r\nC        1  NORMAL RETURN\r\nC        4  IF NAME DOES NOT EXIST\r\nC        6  IF NAME IS AN IMAGE SUBSTRUCTURE\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         DITUP,MDIUP\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,PS,SS,IS,\r\n     2                LL,CS,HL,ANDF,ORF,RSHIFT,COMPLF\r\n      DIMENSION       NAME(2),IMAGE(1),IMORE(1),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDI,MDIPBN,MDILBN,MDIBL,\r\n     2                NXTDUM(15),DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SYS(3),IFRST\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    PS,SS,  IS,LL,CS,HL / 1,1,1,2,2,2    /\r\n      DATA    IEMPTY/ 4H    /\r\n      DATA    INDSBR/ 3     /, NMSBR /4HDSTR,4HOY  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ITEST = 1\r\n      ITOP  = 0\r\n      IMTOP = 0\r\n      CALL FDSUB (NAME(1),INDEX)\r\n      IF (INDEX .EQ. -1) GO TO 1000\r\n      MASKM = COMPLF(LSHIFT(1023,10))\r\n      MASKL = COMPLF(LSHIFT(1023,20))\r\nC                           1023 = 2**10 - 1\r\nC\r\nC     SAVE ALL CONNECTIONS WITH OTHER SUBSTRUCTURES.\r\nC\r\n   10 CALL FMDI (INDEX,IMDI)\r\n   20 I     = BUF(IMDI+PS)\r\n      INDPS = ANDF(I,1023)\r\n      INDSS = RSHIFT(ANDF(I,1048575),10)\r\nC                           1048575 = 2**20 - 1\r\n      INDIS = ANDF(I,1073741824)\r\nC                    1073741824 = 2**30\r\n      I     = BUF(IMDI+LL)\r\n      INDHL = ANDF(I,1023)\r\n      INDCS = RSHIFT(ANDF(I,1048575),10)\r\n      INDLL = RSHIFT(ANDF(I,1073741823),20)\r\nC                           1073741823 = 2**30 - 1\r\n      IF (INDIS .GT. 0) GO TO 1010\r\n      IF (INDPS .EQ. 0) GO TO 60\r\n      ASSIGN 30 TO IRET1\r\n      GO TO 300\r\nC\r\nC     REMOVE INDEX FROM THE LIST OF SUBSTRUCTURES THAT ARE SECONDARY TO\r\nC     INDPS.\r\nC\r\n   30 ISAVE = INDPS\r\n   40 CALL FMDI (ISAVE,IMDI)\r\n      ISAVE = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10)\r\n      IF (ISAVE .EQ. 0) GO TO 50\r\n      IF (ISAVE .NE. INDEX) GO TO 40\r\n      BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKM),LSHIFT(INDSS,10))\r\n      MDIUP = .TRUE.\r\n      IF (INDLL .EQ. 0) GO TO 120\r\n      ILL   = INDLL\r\n      INDLL = 0\r\n      ISAVE = INDEX\r\n   50 ASSIGN 120 TO IRET2\r\n      GO TO 330\r\nC\r\nC     PRIMARY SUBSTRUCTURE.\r\nC     RETURN THE BLOCKS USED BY ALL ITEMS TO THE LIST OF FREE BLOCKS.\r\nC\r\n   60 DO 70 J = IFRST,DIRSIZ\r\n      IBL = ANDF(BUF(IMDI+J),65535)\r\nC                            65535 = 2**16 - 1\r\n      IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL)\r\n   70 CONTINUE\r\n      IF (INDSS .EQ. 0) GO TO 130\r\nC\r\nC     THE PRIMARY SUBSTRUCTURE BEING DESTROYED HAS SECONDARY EQUIVALENT\r\nC     SUBSTRUCTURES.  MUST DESTROY ALL OF THEM.\r\nC\r\n      ASSIGN 320 TO IRET1\r\n      ASSIGN 90  TO IRET2\r\n      ISV   = INDSS\r\n   80 ISAVE = ISV\r\n      CALL FMDI (ISAVE,IMDI)\r\n      ISV = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10)\r\n      IIS = ANDF(BUF(IMDI+IS),1073741824)\r\n      IF (IIS .GT. 0) GO TO 110\r\nC\r\nC     THE SECONDARY SUBSTRUCTURE IS NOT AN IMAGE SUBSTRUCTURE.  ADD ITS\r\nC     INDEX TO THE LIST (IMORE) OF SUBSTRUCTURES TO BE DESTROYED LATER.\r\nC\r\n      ITOP = ITOP + 1\r\n      IF (ITOP .GT. LIM) GO TO 1030\r\n      IMORE(ITOP) = ISAVE\r\n      GO TO 300\r\nC\r\nC     UPDATE THE MDI OF THE SECONDARY SUBSTRUCTURE WITH INDEX ISAVE.\r\nC\r\n   90 CALL FMDI (ISAVE,IMDI)\r\n      BUF(IMDI+PS) = 0\r\n      BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),MASKL)\r\n      DO 100 J = IFRST,DIRSIZ\r\n      BUF(IMDI+J) = 0\r\n  100 CONTINUE\r\n      MDIUP = .TRUE.\r\n  110 IF (ISV .NE. 0) GO TO 80\r\nC\r\nC     BACK TO THE SUBSTRUCTURE WITH INDEX  INDEX .\r\nC     DELETE ITS DIRECTORY FROM THE MDI.\r\nC\r\n  120 CALL FMDI (INDEX,IMDI)\r\n  130 DO 140 J = 1,DIRSIZ\r\n      BUF(IMDI+J) = 0\r\n  140 CONTINUE\r\n      MDIUP = .TRUE.\r\nC\r\nC     DELETE SUBSTRUCTURE NAME FROM THE DIT.\r\nC\r\n      CALL FDIT (INDEX,JDIT)\r\n      BUF(JDIT  ) = IEMPTY\r\n      BUF(JDIT+1) = IEMPTY\r\n      DITUP = .TRUE.\r\n      IF (INDEX*2 .NE. DITSIZ) GO TO 150\r\n      DITSIZ = DITSIZ - 2\r\n  150 DITNSB = DITNSB - 1\r\n      IF (INDCS .EQ. 0) GO TO 180\r\nC\r\nC     DELETE LINK THROUGH COMBINED SUBSTRUCTURES, AND REMOVE ITEMS\r\nC     CREATED AS A RESULTS OF THE COMBINE OR REDUCE.\r\nC     THESE ITEMS WILL BE RETURNED TO THE LIST OF FREE BLOCKS.\r\nC\r\n  160 IF (INDCS .EQ. INDEX) GO TO 180\r\n      CALL FMDI (INDCS,IMDI)\r\n      INDCS = RSHIFT(ANDF(BUF(IMDI+CS),1048575),10)\r\n  173 BUF(IMDI+HL) = ANDF(BUF(IMDI+HL),COMPLF(1023))\r\n      BUF(IMDI+CS) = ANDF(BUF(IMDI+CS),MASKM)\r\n      DO 176 J = 1,NITEM\r\n      IF (ITEM(6,J) .EQ. 0) GO TO 176\r\n      ITM = J + IFRST - 1\r\n      IBL = ANDF(BUF(IMDI+ITM),65535)\r\n      IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL)\r\n      BUF(IMDI+ITM) = 0\r\n  176 CONTINUE\r\n      MDIUP = .TRUE.\r\n      IF (INDCS .EQ. 0) GO TO 1020\r\n      GO TO 160\r\n  180 IF (INDLL .EQ. 0) GO TO 190\r\nC\r\nC     SUBSTRUCTURE WAS THE RESULT OF COMBINING LOWER LEVEL SUBSTRUCTURES\r\nC     TOGETHER.  UPDATE THE MDI ACCORDINGLY.\r\nC\r\n      CALL FMDI (INDLL,IMDI)\r\n      INDCS = RSHIFT(ANDF(BUF(IMDI+CS),1048575),10)\r\n      INDEX = INDLL\r\n      INDLL = 0\r\n      IF (INDCS .EQ. 0) INDCS = INDEX\r\n      GO TO 173\r\n  190 IF (INDHL .EQ. 0) GO TO 220\r\nC\r\nC     A HIGHER LEVEL SUBSTRUCTURE WAS DERIVED FROM THE ONE BEING\r\nC     DESTROYED. DESTROY THE HIGHER LEVEL SUBSTRUCTURE.\r\nC\r\n      INDEX = INDHL\r\n      CALL FMDI (INDEX,IMDI)\r\n      BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),MASKL)\r\n      MDIUP = .TRUE.\r\n      GO TO 20\r\n  220 IF (ITOP .EQ. 0) RETURN\r\nC\r\nC     MORE SUBSTRUCTURES TO DESTROY.\r\nC\r\n      INDEX = IMORE(ITOP)\r\n      ITOP  = ITOP - 1\r\n      GO TO 10\r\nC\r\nC     INTERNAL SUBROUTINE.\r\nC     RETURN TO THE LIST OF FREE BLOCKS THE BLOCKS USED BY A\r\nC     SECONDARY SUBSTRUCTURE.\r\nC     THESE BLOCKS INCLUDE THE FOLLOWING ITEMS\r\nC\r\nC     ITEMS COPIED DURING A EQUIV OPERATION\r\nC     SOLUTION ITEMS\r\nC     ITEMS PRODUCED BY A COMBINE OR REDUCE OPERATION\r\nC\r\n  300 DO 310 J = 1,NITEM\r\n      IF (ITEM(5,J) .EQ. 0) GO TO 310\r\n      ITM = J + IFRST - 1\r\n      IBL = ANDF(BUF(IMDI+ITM),65535)\r\n      IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL)\r\n      BUF(IMDI+ITM) = 0\r\n  310 CONTINUE\r\n      GO TO IRET1, (30,320)\r\nC\r\nC     INTERNAL SUBROUTINE.\r\nC     BUILD A LIST IMAGE OF ALL THE IMAGE SUBSTRUCTURES CONTRIBUTING TO\r\nC     THE SECONDARY SUBSTRUCTURE WITH INDEX ISAVE, AND DELETE EACH IMAGE\r\nC     SUBSTRUCTURE FROM THE LIST OF SECONDARY SUBSTRUCTURES TO WHICH IT\r\nC     BELONGS.\r\nC\r\n  320 CALL FMDI (ISAVE,IMDI)\r\n      ILL = RSHIFT(ANDF(BUF(IMDI+LL),1073741823),20)\r\n      IF (ILL .EQ. 0) GO TO IRET2, (90,120)\r\n  330 IMTOP = 1\r\n      IMAGE(IMTOP) = ILL\r\n      ICOUNT = 1\r\n      IHERE  = IMAGE(ICOUNT)\r\n  350 CALL FMDI (IHERE,IMDI)\r\n      I   = BUF(IMDI+PS)\r\n      IPS = ANDF(I,1023)\r\n      ISS = RSHIFT(ANDF(I,1048575),10)\r\n      IIS = ANDF(I,1073741824)\r\n      I   = BUF(IMDI+LL)\r\n      ILL = RSHIFT(ANDF(I,1073741823),20)\r\n      ICS = RSHIFT(ANDF(I,1048575),10)\r\n      IF (IIS .EQ. 0) GO TO 1010\r\nC\r\nC     DELETE THE SUBSTRUCTURE WITH INDEX IHERE FROM THE MDI AND THE DIT.\r\nC     RETURN THE BLOCKS USED BY THE IMAGE SUBSTRUCTURE TO THE LIST OF\r\nC     FREE BLOCKS.  THIS INCLUDES THE FOLLOWING ITEMS\r\nC\r\nC     ITEMS COPIED DURING A EQUIV OPERATION\r\nC     SOLUTION ITEMS\r\nC\r\n      DO 355 J = 1,NITEM\r\n      IF (ITEM(4,J) .EQ. 0) GO TO 355\r\n      ITM = J + IFRST - 1\r\n      IBL = ANDF(BUF(IMDI+ITM),65535)\r\n      IF (IBL.GT.0 .AND. IBL.NE.65535) CALL RETBLK (IBL)\r\n      BUF(IMDI+ITM) = 0\r\n  355 CONTINUE\r\n      DO 360 J = 1,DIRSIZ\r\n      BUF(IMDI+J) = 0\r\n  360 CONTINUE\r\n      MDIUP = .TRUE.\r\n      CALL FDIT (IHERE,IDIT)\r\n      BUF(IDIT  ) = IEMPTY\r\n      BUF(IDIT+1) = IEMPTY\r\n      DITUP = .TRUE.\r\n      IF (IHERE*2 .NE. DITSIZ) GO TO 370\r\n      DITSIZ = DITSIZ - 2\r\n  370 DITNSB = DITNSB - 1\r\nC\r\nC     DELETE POINTERS TO IHERE.\r\nC\r\n      ICHECK = IPS\r\n  380 CALL FMDI (ICHECK,IMDI)\r\n      ICHECK = RSHIFT(ANDF(BUF(IMDI+SS),1048575),10)\r\n      IF (ICHECK .EQ. 0) GO TO 390\r\n      IF (ICHECK .NE. IHERE) GO TO 380\r\n      BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKM),LSHIFT(ISS,10))\r\n      MDIUP = .TRUE.\r\nC\r\nC     ARE THERE MORE SUBSTRUCTURES TO ADD TO THE LIST IMAGE\r\nC\r\n  390 IF (ILL .EQ. 0) GO TO 410\r\n      DO 400 J = 1,IMTOP\r\n      IF (IMAGE(J) .EQ. ILL) GO TO 410\r\n  400 CONTINUE\r\n      IMTOP = IMTOP + 1\r\n      IMAGE(IMTOP) = ILL\r\n  410 IF (ICS .EQ. 0) GO TO 430\r\n      DO 420 J = 1,IMTOP\r\n      IF (IMAGE(J) .EQ. ICS) GO TO 430\r\n  420 CONTINUE\r\n      IMTOP = IMTOP + 1\r\n      IF (IMTOP .GT. LIM) GO TO 1030\r\n      IMAGE(IMTOP) = ICS\r\nC\r\nC     ARE THERE MORE SUBSTRUCTURES ON THE LIST IMAGE\r\nC\r\n  430 IF (ICOUNT .EQ. IMTOP) GO TO IRET2, (90,120)\r\n      ICOUNT = ICOUNT + 1\r\n      IHERE  = IMAGE(ICOUNT)\r\n      GO TO 350\r\nC\r\nC     NAME DOES NOT EXIST.\r\nC\r\n 1000 ITEST = 4\r\n      RETURN\r\nC\r\nC     NAME IS AN IMAGE SUBSTRUCTURE.\r\nC\r\n 1010 ITEST = 6\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 1020 CALL ERRMKN (INDSBR,8)\r\n 1030 CALL MESAGE (-8,0,NMSBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtranp.f",
    "content": "      SUBROUTINE DTRANP\r\nC\r\nC     DRIVER OF MATRIX TRANSPOSE MODULE\r\nC\r\nC     TRNSP    IA/IAT/C,N,IXX  $\r\nC\r\nC     THE DIAGONALS OF THE LOWER OR UPPER TRIANGULAR MATRICES ARE\r\nC     REPLACED BY UNITY (1.0) IF IXX IS ONE. (DEFAULT IS ZERO)\r\nC\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / IXX\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /TRNSPX/ IA(7),IAT(7),LCORE,NSCR,ISCR(8)\r\n      DATA    IN1   , IN2  /101, 201 /\r\nC\r\n      IA(1) = IN1\r\n      CALL RDTRL (IA(1))\r\n      IF (IA(1) .GT. 0) GO TO 20\r\n      WRITE  (NOUT,10) UWM\r\n   10 FORMAT (A25,' FROM TRNSP, MISSING INPUT DATA BLOCK FOR MATRIX ',\r\n     1       'TRANSPOSE')\r\n      GO TO 60\r\n   20 IAT(1) = IN2\r\n      IAT(2) = IA(3)\r\n      IAT(3) = IA(2)\r\n      IAT(4) = IA(4)\r\n      IAT(5) = IA(5)\r\n      IAT(6) = 0\r\n      IAT(7) = 0\r\n      LCORE  = KORSZ(CORE)\r\n      NSCR = 8\r\n      DO 30 I = 1,NSCR\r\n   30 ISCR(I) = 300 + I\r\n      IF (IXX .EQ. 1) IXX = -123457890\r\n      CALL TRNSP (CORE(1))\r\n      CALL WRTTRL (IAT(1))\r\nC\r\n   60 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtrbsc.f",
    "content": "      SUBROUTINE DTRBSC (IOPT,NPIVOT)\r\nC\r\nC     IOPT = 1  IMPLIES THAT A CLOUGH TRIANGLE IS CALLING\r\nC     IOPT = 2  IMPLIES THAT A QUADRILATERAL IS CALLING\r\nC\r\nC     ECPT LISTS OF NECESSARY VARIABLES\r\nC\r\nC     POSITION     TRIA1      QUAD1\r\nC     ========     =====      =====\r\nC     ECPT(51)      EID        EID\r\nC     ECPT(52)      SIL1       SIL1\r\nC     ECPT(53)      SIL2       SIL2\r\nC     ECPT(54)      SIL3       SIL3\r\nC     ECPT(55)      THETA      SIL4\r\nC     ECPT(56)      MATID1     THETA\r\nC     ECPT(57)      T1         MATID1\r\nC     ECPT(58)      MATID2     T1\r\nC     ECPT(59)      EYE        MATID2\r\nC     ECPT(60)      MATID3     EYE\r\nC     ECPT(61)      T2         MATID3\r\nC     ECPT(62)      NSMASS     T2\r\nC       :\r\nC     ECT.\r\nC\r\n      DOUBLE PRECISION G,G2X2,AR,EYE,XBAR,YBAR,XCSQ,YCSQ,XBSQ,XCYC,PX2,\r\n     1                 PY2,PXY2,XBAR3,YBAR3,YBAR2,T2,R,SP,T,U,R2,S2,DI,\r\n     2                 DUMDP,C,A,D,S,J2X2,DETERM\r\n      DOUBLE PRECISION XB2,XC2,YC2,XBC,SX,SY,SXY,XSUBB,XSUBC,YSUBC\r\n      DIMENSION        D(9),DI(5,5),J2X2(4),S(18),NECPT(51),A(144)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALPH12,\r\n     1                 TSUBD,GSUBE,SIGTEN,SIGCON,SIGSHE,G2X211,G2X212,\r\n     2                 G2X222\r\n      COMMON /DS1ADP/  G(9),G2X2(4),AR,EYE,XBAR,YBAR,XCSQ,YCSQ,XBSQ,XCYC\r\n     1,                PX2,PY2,PXY2,XBAR3,YBAR3,YBAR2,T2,R,SP,T,U,R2,S2,\r\n     2                 DUMDP(81),C(24,3),SX,SY,SXY,XSUBB,XSUBC,YSUBC\r\n      COMMON /DS1AET/  ECPT(100)\r\n      EQUIVALENCE      (A(1),D(1),G(1)),(NECPT(1),ECPT(1)),\r\n     1                 (J2X2(1),DUMDP(1)),(DI(1,1),G(1))\r\nC\r\nC//////\r\nC     CALL BUG (4HTBIG,30,SX,12)\r\nC//////\r\nC     IF NO TRANSVERSE SHEAR FLEXIBILITY EXISTS THE H-INVERSE IS\r\nC     CALCULATED DIRECTLY.  TEST AS FOLLOWS\r\nC\r\n      IF (ECPT(IOPT+60).NE.0.0 .AND. NECPT(IOPT+59).NE.0) GO TO 30\r\nC\r\nC     THE H-INVERSE MATRIX IS GENERATED IN TWO PARTITIONS\r\nC         HB IS IN POSITIONS C(7,2) TO C(24,2)\r\nC         HC IS IN POSITIONS C(7,3) TO C(24,3)\r\nC\r\n   10 NOHYQ = 1\r\n      R  = 1.0/XSUBB\r\n      SP = 1.0/YSUBC\r\n      T  = SP*XSUBC\r\n      U  = R*R*SP*T\r\n      R2 = R*R\r\n      S2 = SP**2\r\nC\r\n      DO 20 I = 1,72\r\n   20 C(I,1) = 0.0D0\r\nC\r\n      C(7 ,2) = 3.0D0*R2\r\n      C(9 ,2) = R\r\n      C(11,2) = R\r\n      C(13,2) =-C(7,2)*T**2\r\n      C(14,2) =-R*T\r\n      C(15,2) = C(14,2)*T\r\n      C(16,2) =-2.0D0*R2*R\r\n      C(18,2) =-R2\r\n      C(19,2) =-6.0D0*R*U*(XSUBB-XSUBC)\r\n      C(20,2) =-R*SP\r\n      C(21,2) = U*(3.0D0*XSUBC -2.0D0*XSUBB)\r\n      C(22,2) = R*T*U*(6.0D0*XSUBB - 4.0D0*XSUBC)\r\n      C(23,2) = R*SP*T\r\n      C(24,2) = 2.0D0*T*U*(XSUBB - XSUBC)\r\nC\r\n      C(13,3) = 3.0D0*S2\r\n      C(14,3) =-SP\r\n      C(15,3) = SP*T\r\n      C(21,3) =-S2\r\n      C(22,3) =-2.0D0*S2*SP\r\n      C(23,3) = S2\r\n      GO TO 110\r\nC\r\nC     THE  MATERIAL COEFFICIENTS FOR TRANSVERSE SHEAR ARE CALCULATE HERE\r\nC     AND THE H-INVERSE MATRIX IS GENERATED THE NORMAL WAY\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n   30 MATID  = NECPT(IOPT+59)\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(51))\r\n      IF (G2X211.EQ.0. .AND. G2X212.EQ.0. .AND. G2X222.EQ.0.) GO TO 10\r\n      T2      = ECPT(IOPT+60)\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     SETTING UP G MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID  = NECPT(IOPT+57)\r\n      CALL MAT (NECPT(51))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      EYE = ECPT(IOPT+58)\r\n      DO 50 I = 1,9\r\n   50 D(I) = G(I)*EYE\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\nC\r\nC\r\n      TEMP  = 2.0D0*D(2) + 4.0D0*D(9)\r\n      A(73) =-6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) =-J2X2(1)*TEMP - 6.0D0*J2X2(2)*D(6)\r\n      A(75) =-6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) =-6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) =-J2X2(2)*TEMP - 6.0D0*J2X2(4)*D(6)\r\n      A(78) =-6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\n      XBAR = (XSUBB + XSUBC)/3.0D0\r\n      YBAR = YSUBC/3.0D0\r\nC\r\n      XCSQ  = XSUBC**2\r\n      YCSQ  = YSUBC**2\r\n      XBSQ  = XSUBB**2\r\n      XCYC  = XSUBC*YSUBC\r\n      PX2   = (XBSQ + XSUBB*XSUBC + XCSQ)/6.0D0\r\n      PY2   = YCSQ/6.0D0\r\n      PXY2  = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0\r\n      XBAR3 = 3.0D0*XBAR\r\n      YBAR3 = 3.0D0*YBAR\r\n      YBAR2 = 2.0D0*YBAR\r\nC\r\nC     F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72)\r\nC\r\n      DO 60 I = 37,72\r\n   60 A(I)  = 0.0D0\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0D0*XSUBB\r\n      A(52) =-3.0D0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.0D0\r\n      A(65) = XCYC *2.0D0\r\n      A(66) = YCSQ *3.0D0\r\n      A(67) =-2.0D0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0D0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                     UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 70 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n   70 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\n      IF(ISING .NE. 2) GO TO 90\r\n      CALL MESAGE (-30,33,ECPT(1))\r\n      RETURN\r\nC\r\nC     PARTITION H-INVERSE AND STORE IN C2 AND C3 LOCATIONS 7 THRU 24\r\nC\r\n   90 DO 100 I = 1,6\r\n      IH = 6*I -6\r\n      IC = 3*I -3\r\nC\r\n      DO 100 J = 1,3\r\n      JH= IH + J + 36\r\n      JC= IC + J + 6\r\n      C(JC,2) = A(JH)\r\n      C(JC,3) = A(JH+3)\r\n  100 CONTINUE\r\n      NOHYQ = 0\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\nC     THE C1, C2, AND C3 MATRICES ARE GENERATED WITH THE FOLLOWING CODE\r\nC     FIRST GENERATE THE S MATRICES IN POSITIONS 1 THRU 9 AND 10 THRU 18\r\nC\r\n  110 DO 120 I = 1,18\r\n  120 S(I) = 0.0\r\n      DO 130 I = 1,9,4\r\n      S(I  ) = 1.0\r\n  130 S(I+9) = 1.0\r\n      S(  3) =-XSUBB\r\n      S( 11) = YSUBC\r\n      S( 12) =-XSUBC\r\nC\r\nC     COMPUTE HA  AND STORE IN  CA, POSITIONS 7 THRU 24\r\nC\r\nC         HA =  -(HB TIMES SB + HC TIMES SC)\r\nC\r\n      CALL GMMATD (C(7,2),6,3,0, S(1),3,3,0, A(37))\r\n      CALL GMMATD (C(7,3),6,3,0, S(10),3,3,0, A(55))\r\nC\r\n      DO 140 I = 1,18\r\nC\r\n  140 C(I+6,1) = -A(I+36) - A(I+54)\r\nC\r\nC     COMPUTE  HYQ TIMES HX  AND STORE IN CX POSITIONS 1 THRU 6\r\nC     (THE FIRST THREE COLUMNS OF HYQ ARE NULL)\r\nC\r\n      IF (NOHYQ .EQ. 1) GO TO 160\r\nC\r\n      DO 150 I = 1,3\r\n      CALL GMMATD (A(73),2,3,0, C(16,I),3,3,0, C(1,I))\r\n  150 CONTINUE\r\nC\r\n  160 C(3,1) = C(3,1) - 1.0D0\r\n      C(5,1) = C(5,1) + 1.0D0\r\nC\r\nC     THE INTEGRALS FOR THE  KDQQ MATRIX ARE GENERATED HERE\r\nC\r\n      YC2 = YSUBC**2\r\n      XB2 = XSUBB**2\r\n      XC2 = XSUBC**2\r\n      XBC = XSUBB*XSUBC\r\nC\r\n      DI(1,1) = 1.0D0\r\n      DI(1,2) = YSUBC/3.0D0\r\n      DI(1,3) = YC2/6.0D0\r\n      DI(1,4) = YC2*YSUBC/10.0D0\r\n      DI(1,5) = YC2**2/15.0D0\r\n      DI(2,1) = (XSUBB + XSUBC)/3.0D0\r\n      DI(2,2) = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0\r\n      DI(2,3) = DI(1,3)*(XSUBB + 3.0D0*XSUBC)/5.0D0\r\n      DI(2,4) = DI(1,4)*(XSUBB + 4.0D0*XSUBC)/6.0D0\r\n      DI(3,1) = (XB2 +XBC + XC2)/6.0D0\r\n      DI(3,2) = DI(1,2)*(XB2 + 2.0D0*XBC + 3.0D0*XC2)/10.0D0\r\n      DI(3,3) = DI(1,3)*(XB2 + 3.0D0*XBC + 6.0D0*XC2)/15.0D0\r\n      DI(4,1) = (XSUBB + XSUBC)*(XB2 + XC2)/10.0D0\r\n      DI(4,2) = DI(1,2)*((XSUBB + 2.0D0*XSUBC)*XB2 +\r\n     1          (3.0D0*XSUBB + 4.0D0*XSUBC)*XC2)/20.0D0\r\n      DI(5,1) = (XB2*XB2 + XB2*XBC + XBC*XBC + XBC*XC2 + XC2*XC2)/15.0\r\nC\r\n      AR = XSUBB*YSUBC*DBLE(ECPT(IOPT+56))/2.0D0\r\n      DO 170 I = 1,5\r\n      IC = 6 - I\r\n      DO 170 J = 1,IC\r\n      DI(I,J) = DI(I,J)*AR\r\n  170 CONTINUE\r\nC\r\nC     THE ABOVE INTEGRALS  D(I,J) CORRESPOND TO THE DOCUMENTED\r\nC     VALUES  I(I-1,J-1).  ZERO INDICES DONT ALWAYS COMPILE.\r\nC\r\nC     THE DIFFERENTIAL STIFFNESS MATRIX IN GENERALIZED COORDINATES IS\r\nC     CREATED BELOW AT POSITIONS A(28) TO A(91)\r\nC\r\n      A(28) = SX*DI(1,1)\r\n      A(29) = SXY*DI(1,1)\r\n      A(30) = 2.0D0*SX*DI(2,1)\r\n      A(31) = SX*DI(1,2) + SXY*DI(2,1)\r\n      A(32) = 2.0D0*SXY*DI(1,2)\r\n      A(33) = 3.0D0*SX *DI(3,1)\r\n      A(34) = SX*DI(1,3) + 2.0*SXY*DI(2,2)\r\n      A(35) = 3.0D0*SXY*DI(1,3)\r\nC\r\n      A(37) = SY*DI(1,1)\r\n      A(38) = 2.0D0*SXY*DI(2,1)\r\n      A(39) = SXY*DI(1,2) + SY*DI(2,1)\r\n      A(40) = 2.0D0*SY*DI(1,2)\r\n      A(41) = 3.0D0*SXY*DI(3,1)\r\n      A(42) = SXY*DI(1,3) + 2.0D0*SY*DI(2,2)\r\n      A(43) = 3.0D0*SY*DI(1,3)\r\nC\r\n      A(46) = 4.0D0*SX*DI(3,1)\r\n      A(47) = 2.0D0*(SX*DI(2,2) + SXY*DI(3,1))\r\n      A(48) = 4.0D0*SXY*DI(2,2)\r\n      A(49) = 6.0D0*SX*DI(4,1)\r\n      A(50) = 2.0D0*(SX*DI(2,3) + 2.0D0*SXY*DI(3,2))\r\n      A(51) = 6.0D0*SXY*DI(2,3)\r\nC\r\n      A(55) = SX*DI(1,3) + 2.0D0*SXY*DI(2,2)+SY*DI(3,1)\r\n      A(56) = 2.0D0*(SXY*DI(1,3) + SY*DI(2,2))\r\n      A(57) = 3.0D0*(SX* DI(3,2) + SXY*DI(4,1))\r\n      A(58) = SX*DI(1,4) + 3.0D0*SXY*DI(2,3) + 2.0D0*SY*DI(3,2)\r\n      A(59) = 3.0D0*(SXY*DI(1,4) + SY*DI(2,3))\r\nC\r\n      A(64) = 4.0D0*SY*DI(1,3)\r\n      A(65) = 6.0D0*SXY*DI(3,2)\r\n      A(66) = 2.0D0*(SXY*DI(1,4) + 2.0D0*SY*DI(2,3))\r\n      A(67) = 6.0D0*SY*DI(1,4)\r\nC\r\n      A(73) = 9.0D0*SX*DI(5,1)\r\n      A(74) = 3.0D0*(SX*DI(3,3) + 2.0D0*SXY*DI(4,2))\r\n      A(75) = 9.0D0*SXY*DI(3,3)\r\nC\r\n      A(82) = SX*DI(1,5) + 4.0D0*SXY*DI(2,4) + 4.0D0*SY*DI(3,3)\r\n      A(83) = 3.0D0*SXY*DI(1,5) + 6.0D0*SY*DI(2,4)\r\nC\r\n      A(91) = 9.0D0*SY*DI(1,5)\r\nC\r\nC     FILL IN SYMMETRIC TERMS\r\nC\r\n      DO 180 I = 2,8\r\n      IH = I - 1\r\n      DO 180 J = 1,IH\r\n      IC =  8*(I-1) + J\r\n      JC =  8*(J-1) + I\r\n      A(IC+27) = A(JC+27)\r\n  180 CONTINUE\r\nC\r\nC     AT THIS STAGE THE 3X3 MATRIX PARTITIONS MAY BE GENERATED\r\nC     THE ACTUAL MATRICES DEPEND ON IOPT\r\nC\r\n      IC = NPIVOT\r\n      IF (IC .EQ. 0) GO TO 200\r\n      CALL GMMATD (C(1,IC),8,3,1, A(28),8,8,0, A(92))\r\n      DO 190 I = 1,3\r\n      IH=  9*(I-1) + 1\r\n      CALL GMMATD (A(92),3,8,0, C(1,I),8,3,0, A(IH))\r\n  190 CONTINUE\r\nC//////\r\nC     CALL BUG (4HTBKD,300,A,54)\r\nC//////\r\nC\r\nC     AT THIS STAGE THE QUADRILATERAL CALCULATIONS ARE COMPLETE\r\nC\r\n  200 IF (IOPT .EQ.2) RETURN\r\nC\r\nC     THE TRIANGLE SUBROUTINE  MUST RETURN THE FOLLOWING DATA\r\nC         KAC,KBC,KCC  IN POSITIONS  A(28) THRU A(54) -I=NPIVOT\r\nC             S        IN POSITIONS  A(55) THRU A(72)\r\nC           H-INVERSE  IN POSITIONS  A(73) THRU A(108)\r\nC\r\n      CALL GMMATD (A(28),8,8,0, C(1,3),8,3,0, A(92))\r\n      DO 210 I = 1,3\r\n      IH = 28 + 9*(I-1)\r\n      CALL GMMATD (C(1,I),8,3,1, A(92),8,3,0, A(IH))\r\n  210 CONTINUE\r\nC\r\nC     RECALCULATE THE S MATRIX (IT WAS DESTROYED) -\r\nC     PLACE IN A(55 THRU 72)\r\nC\r\n      DO 230 I = 1,18\r\n  230 A(I+54) = 0.0\r\n      DO 240 I = 1,9,4\r\n      A(I+54) = 1.0\r\n  240 A(I+63) = 1.0\r\n      A(57) =-XSUBB\r\n      A(65) = YSUBC\r\n      A(66) =-XSUBC\r\nC\r\nC     EXTRACT THE H-INVERSE MATRIX FROM THE C MATRICES\r\nC     STORE AT POSITIONS A(73) THRU A(108)\r\nC\r\n      DO 250 I = 1,6\r\n      IH = 6*I - 6\r\n      IC = 3*I - 3\r\nC\r\n      DO 250 J = 1,3\r\n      JH = IH + J + 72\r\n      JC = IC + J + 6\r\n      A(JH  ) = C(JC,2)\r\n      A(JH+3) = C(JC,3)\r\n  250 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtria.f",
    "content": "      SUBROUTINE DTRIA (IOPT)\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC     THREE 6X6 DIFFERENTIAL STIFFNESS MATRIX PARTITION FOR ONE PIVOT\r\nC     POINT FOR A TRIA1, TRIA2 OR TORA3 ELEMENT.\r\nC\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           DTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC           DTRMEM - TRIANGLULAR MEMBRANE ROUTINE\r\nC           TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC           INVERD - MATRIX INVERSION ROUTINE\r\nC           GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE\r\nC           DS1B   - INSERTION ROUTINE\r\nC\r\nC\r\nC          IOPT  = 1               2           3\r\nC     ECPT INDEX   TRIA1           TRIA2       TRIA3       TRMEM\r\nC     **********   *********       ********    ********    ********\r\nC           1      EL ID           EL ID       EL ID        EL ID\r\nC           2      SIL1            SIL1        SIL1         SIL1\r\nC           3      SIL2            SIL2        SIL2         SIL2\r\nC           4      SIL3            SIL3        SIL3         SIL3\r\nC           5      THETA           THETA       MEM T1       THETA\r\nC           6      MAT ID 1        MAT ID      MEM T2       MAT ID\r\nC           7      T1              T           MEM T3       T\r\nC           8      MAT ID 2        NSM         THETA        NSM\r\nC           9      INERTIA I       CID1        FLAG FOR 8   CID1\r\nC          10      MAT ID 3        X1          GRD OFFSET   X1\r\nC          11      T2              Y1          MAT ID1      Y1\r\nC          12      NSM             Z1          THICKNESS    Z1\r\nC          13      Z1              CID2        MAT ID2      CID2\r\nC          14      Z2              X2          INERTIA I    X2\r\nC          15      CID1            Y2          MAT ID 3     Y2\r\nC          16      X1              Z2          TS/T         Z2\r\nC          17      Y1              CID3        NSM          CID3\r\nC          18      Z1              X3          Z1           X3\r\nC          19      CID2            Y3          Z2           Y3\r\nC          20      X2              Z3          MAT ID 4     Z3\r\nC          21      Y2              EL TEMP     THETA        EL TEMP\r\nC          22      Z2                          FLAG FOR 21  EL DEFORM\r\nC          23      CID3                        INTEGRATION  LOAD TEMP\r\nC          24      X3              U1          STRESS ANGLE U1\r\nC          25      Y3              V1          FLAG FOR 24  V2\r\nC          26      Z3              W1          ZOFF1        W3\r\nC          27      EL TEMP         U2          CID1         U2\r\nC          28      EL DEFORM       V2          X1           V2\r\nC          29      EL LOAD TEMP    W2          Y1           W2\r\nC          30      U1 -DISP FOR U1 U3          Z1           U3\r\nC          31      V1 -DISP FOR V1 V3          CID2         V3\r\nC          32      W1 -DISP FOR Z1 W3          X2           W3\r\nC          33      U2 -DISP FOR X2             Y2\r\nC          34      V2 -DISP FOR Y2             Z2\r\nC          35      W2 -DISP FOR Z2             CID3\r\nC          36      U3 -DISP FOR X3             X3\r\nC          37      V3 -DISP FOR Y3             Y3\r\nC          38      W3 -DISP FOR Z3             Z3\r\nC          39                                  EL TEMP\r\nC          40\r\nC          41\r\nC          42                                  U1\r\nC          43                                  V1\r\nC          44                                  W1\r\nC          45                                  U2\r\nC          46                                  V2\r\nC          47                                  W2\r\nC          48                                  U3\r\nC          49                                  V3\r\nC          50                                  W3\r\nC\r\n      INTEGER          SUBSCA        ,SUBSCB        ,SUBSCC        ,\r\n     1                 CID1\r\n      DOUBLE PRECISION\r\n     1                 R             ,D1            ,HABC          ,\r\n     2                 TEMP          ,D2            ,HINV          ,\r\n     3                 KSUM          ,IVECT         ,G             ,\r\n     4                 V             ,JVECT         ,E             ,\r\n     5                 VV            ,KVECT         ,TITE          ,\r\n     6                 XSUBB         ,TEMP9         ,TJTE          ,\r\n     7                 XSUBC         ,PROD9         ,ARR9          ,\r\n     8                 YSUBC         ,U1            ,ARRAY9        ,\r\n     9                 T             ,U2            ,TEMP18        ,\r\n     T                 A             ,TEMP1         ,PROD12        ,\r\n     1                 C1            ,TEMP2         ,HQ            ,\r\n     2                 C2            ,L1            ,Y1            ,\r\n     3                 X1            ,L2            ,Y2            ,\r\n     4                 X2            ,S1            ,DETERM        ,\r\n     5                 S2            ,KOUT          ,S             ,\r\n     6                 REQUIV\r\n      DOUBLE PRECISION SIGX          ,SIGY          ,SIGXY         ,\r\n     1                 STRES         ,DUMTWO\r\n      DIMENSION\r\n     1                 NECPT(100)    ,M(9)          ,REQUIV(8)     ,\r\n     2                 HQ(12)        ,PROD12(12)    ,HABC(18)      ,\r\n     3                 G(36)         ,TITE(18)      ,TJTE(18)      ,\r\n     4                 KOUT(36)      ,TEMP18(18)    ,V1(3)         ,\r\n     5                 V2(3)         ,V3(3)         ,D1(3)         ,\r\n     6                 D2(3)\r\n      CHARACTER        UFM*23        ,UWM*25        ,UIM*29        ,\r\n     1                 SFM*25\r\n      COMMON /XMSSG /  UFM           ,UWM           ,UIM           ,\r\n     1                 SFM\r\n      COMMON /MATIN /  MATID,INFLAG  ,ELTEMP,STRESS ,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13   ,G22,G23,G33   ,RHO,ALPHA1    ,\r\n     1                 ALPHA2,ALP12  ,T SUB 0       ,G SUB E       ,\r\n     2                 SIGTEN,SIGCOM ,SIGSHE,G2X211 ,G2X212 ,G2X222\r\n      COMMON /DS1AAA/  NPVT          ,ICSTM         ,NCSTM\r\n      COMMON /DS1AET/  ECPT(100)\r\n      COMMON /DS1ADP/  A(54)         ,S(18)         ,HINV(36)      ,\r\n     1                 T(9)          ,TEMP9(9)      ,PROD9(9)      ,\r\n     2                 ARR9(9)       ,ARRAY9(9)     ,\r\n     3                 E(18)         ,TEMP          ,TEMP1         ,\r\n     4                 TEMP2         ,L1            ,L2            ,\r\n     5                 S1            ,S2            ,C1            ,\r\n     6                 C2            ,X1            ,X2            ,\r\n     7                 Y1            ,Y2            ,DUMTWO(2)     ,\r\n     8                 DETERM        ,SIGX          ,SIGY          ,\r\n     9                 SIGXY         ,XSUBB         ,XSUBC         ,\r\n     T                 YSUBC         ,STRES(3)      ,KSUM(63)      ,\r\n     1                 IVECT(3)      ,JVECT(3)      ,KVECT(3)      ,\r\n     2                 R(2,4)        ,\r\n     3                 V(2)          ,VV(2)         ,U1            ,\r\n     4                 U2            ,NPOINT        ,KM            ,\r\n     5                 SUBSCA        ,SUBSCB        ,SUBSCC        ,\r\n     6                 NPIVOT        ,IPVT          ,THETA         ,\r\n     7                 NSUBB         ,NSUBC         ,ISING         ,\r\n     8                 NPT1          ,SINANG        ,COSANG\r\n      COMMON /CONDAS/  PI            ,TWOPI         ,RADEG         ,\r\n     1                 DEGRA         ,S4PISQ\r\n      COMMON /SYSTEM/  IBUFF         ,NOUT          ,NOGO\r\n      EQUIVALENCE\r\n     1                 (NECPT(1),ECPT(1)) , (PROD12(1),A(13))      ,\r\n     2                 (HABC(1),A(25))    , (TITE(1),A(37))        ,\r\n     3                 (TJTE(1),S( 1))    , (KOUT(1),A(1))         ,\r\n     4                 (TEMP18(1),HINV(1)), (V1(1),ECPT(66))       ,\r\n     5                 (V2(1),ECPT(70))   , (V3(1),ECPT(74))       ,\r\n     6                 (REQUIV(1),R(1,1)) , (D1(1),A(1))           ,\r\n     7                 (D2(1),A(4))       , (HQ(1),A(1))\r\nC\r\nC\r\n      DATA     M    /  1,2,4,  2,3,4,  3,1,4 /,  CID1  / 65        /\r\nC\r\nC\r\nC     THE ECPT DATA IS COPIED TO ECPT(PLUS 50)\r\nC     THE DATA IN ECPT(BELOW 50) IS THEN PUT INTO TRMEM FORMAT TO BE\r\nC     USED BY DTRMEM\r\nC     THE DATA IN ECPT(ABOVE 50, SPECIALLY 51 THRU 62, 65 THRU 88) IS\r\nC     PUT INTO TRIA1 FORMAT, WHICH WILL BE USED BY DTRBSC AND LOCALLY\r\nC\r\n      ICID = CID1 - 4\r\n      DO 10 I = 1,50\r\n   10 ECPT(I+50) = ECPT(I)\r\n      GO TO (15,25,35), IOPT\r\nC\r\nC     TRIA1\r\nC\r\n   15 J = 15\r\n      DO 20 I = 9,32\r\n      ECPT(I) = ECPT(J)\r\n   20 J = J + 1\r\n      GO TO 60\r\nC\r\nC     TRIA2\r\nC\r\n   25 ECPT(58) = ECPT(6)\r\n      ECPT(59) =(ECPT(7)**3)/12.0\r\n      ECPT(60) = ECPT(6)\r\n      ECPT(61) = ECPT(7)\r\nC\r\n      J = 9\r\n      DO 30 I = 65,88\r\n      ECPT(I) = ECPT(J)\r\n   30 J = J + 1\r\n      GO TO 60\r\nC\r\nC     TRIA3\r\nC\r\nC     IF NECPT(9)=0, ECPT(8) IS MATERIAL PROPERTY ORIENTAION ANGLE THETA\r\nC     IF NECPT(9).NE.0, NECPT(8) IS MATERIAL COORDINATE SYSTEM ID. IN\r\nC     THIS CASE, WE CAN NOT CONTINUE (NEED MORE STUFFS TO COMPUTE THETA,\r\nC     SEE SHCSGD)\r\nC\r\n   35 IF (NECPT(9) .NE. 0) GO TO 410\r\n      ECPT(5) = ECPT( 8)\r\n      ECPT(6) = ECPT(11)\r\n      ECPT(7) = ECPT(12)\r\n      J = 27\r\n      DO 40 I = 9,32\r\n      ECPT(I) = ECPT(J)\r\n   40 J = J + 1\r\nC\r\n      ECPT(55) = ECPT(58)\r\n      J = 61\r\n      DO 45 I = 56,60\r\n      ECPT(I) = ECPT(J)\r\n   45 J = J + 1\r\n      ECPT(61) = ECPT(62)\r\n      J = 77\r\n      DO 50 I = 65,88\r\n      ECPT(I) = ECPT(J)\r\n   50 J = J + 1\r\nC\r\n   60 THETA  = ECPT(5)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\n      SINTH  = SINANG\r\n      COSTH  = COSANG\r\nC\r\n      CALL DTRMEM (2)\r\nC\r\nC     SIGX, SIGY , SIGXY ARE NOW AVAILABLE. SAVE THEM.\r\nC\r\n      STRES(1) = SIGX\r\n      STRES(2) = SIGY\r\n      STRES(3) = SIGXY\r\nC\r\n      ELTEMP = ECPT(21)\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 70 I = 1,3\r\n      IF (NPVT .NE. NECPT(I+1)) GO TO 70\r\n      NPIVOT = I\r\n      GO TO 80\r\n   70 CONTINUE\r\n      RETURN\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\nC\r\n   80 CONTINUE\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK)\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 90 I = 1,8\r\n   90 REQUIV(I) = 0.0D0\r\nC\r\n      DO 100 I = 1,3\r\n      D2(I) = DBLE(V2(I)) - DBLE(V1(I))\r\n  100 D1(I) = DBLE(V3(I)) - DBLE(V1(I))\r\nC\r\nC     X2  GOES IN R(1,2)\r\nC\r\n      R(1,2) = DSQRT(D2(1)**2 + D2(2)**2 + D2(3)**2)\r\n      DO 110 I = 1,3\r\n  110 IVECT(I) = D2(I)/R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\nC\r\n      KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3)\r\n      KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1)\r\n      KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\nC\r\n      R(2,3) = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 120 I = 1,3\r\n  120 KVECT(I) = KVECT(I)/R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 130 I = 1,3\r\n  130 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\nC\r\n      R(1,4) = (R(1,2) + R(1,3))/3.0D0\r\n      R(2,4) = R(2,3)/3.0D0\r\nC\r\nC\r\nC     THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36\r\nC\r\n      DO 140 I = 1,63\r\n  140 KSUM(I) = 0.0D0\r\n      DO 150 I = 1,36\r\n  150 G(I) = 0.0D0\r\nC\r\n      DO 280 J = 1,3\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 160 I = 1,2\r\n      V(I)  = R(I,SUBSCB) - R(I,SUBSCA)\r\n  160 VV(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT(V(1)**2 + V(2)**2)\r\n      U1    = V(1)/XSUBB\r\n      U2    = V(2)/XSUBB\r\n      XSUBC = U1*VV(1) + U2*VV(2)\r\n      YSUBC = U1*VV(2) - U2*VV(1)\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J-\r\nC\r\n      C2   = U1**2\r\n      S2   = U2**2\r\n      L1   = U1*U2\r\n      SIGX = C2*STRES(1) + S2*STRES(2) + 2.0D0*L1*STRES(3)\r\n      SIGY = S2*STRES(1) + C2*STRES(2) - 2.0D0*L1*STRES(3)\r\n      SIGXY=-L1*STRES(1)+ L1*STRES(2) + (C2-S2)*STRES(3)\r\n      IPVT = 0\r\n      DO 170 I = 1,2\r\n      NPOINT = KM + I\r\n      IF (M(NPOINT) .EQ. NPIVOT) IPVT = I\r\n  170 CONTINUE\r\n      CALL DTRBSC (1,IPVT)\r\nC\r\nC     NOW WE HAVE 6 MATRICES STORED AT A(1) TO A(54)- HIA,HIB,HIC\r\nC                                                     HAC,HBC,HCC\r\nC\r\nC     NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\n      DO 190 I = 1,3\r\n      CALL GMMATD (T(1),3,3,1, A(9*I+19),3,3,0, TEMP9(1))\r\n      CALL GMMATD (TEMP9(1),3,3,0, T(1),3,3,0,  PROD9(1))\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC     COMPUTE POINTER TO KSUM MATRIX DESIRED.  (ZERO POINTER)\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) + 18\r\nC\r\n      DO 180 K = 1,9\r\n      NSUBC  = NPOINT + K\r\n  180 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K)\r\n  190 CONTINUE\r\n      IF (IPVT .EQ. 0) GO TO 220\r\n      DO 210 I = 1,2\r\n      NPOINT = KM +I\r\n      NPOINT = 9*M(NPOINT) -9\r\nC\r\nC     TRANSFORM\r\nC\r\n      CALL GMMATD (T(1),3,3,1, A(9*I-8),3,3,0, TEMP9(1))\r\n      CALL GMMATD (TEMP9(1),3,3,0, T(1),3,3,0, PROD9(1))\r\nC\r\nC     INSERT\r\nC\r\n      DO 200 K = 1,9\r\n      NSUBC = K + NPOINT\r\n  200 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K)\r\n  210 CONTINUE\r\n  220 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1 = XSUBB - XSUBC\r\n      TEMP2 = YSUBC**2\r\n      L1 = DSQRT(XSUBC**2 + TEMP2)\r\n      L2 = DSQRT(TEMP1**2 + TEMP2)\r\n      S1 = XSUBC/L1\r\n      S2 = TEMP1/L2\r\n      C1 = YSUBC/L1\r\n      C2 = YSUBC/L2\r\n      X1 = XSUBC/2.0D0\r\n      Y1 = YSUBC/2.0D0\r\n      X2 = (XSUBB+XSUBC)/2.0D0\r\n      Y2 = Y1\r\n      HQ( 1) =-XSUBC*C1\r\n      HQ( 2) = X1*S1 - Y1*C1\r\n      HQ( 3) = 2.0D0*Y1*S1\r\n      HQ( 4) =-3.0D0*X1*X1*C1\r\n      HQ( 5) = Y1*(2.0D0*X1*S1 - Y1*C1)\r\n      HQ( 6) = 3.0D0*Y1*Y1*S1\r\n      HQ( 7) = 2.0D0*X2*C2\r\n      HQ( 8) = X2*S2 + Y2*C2\r\n      HQ( 9) = 2.0D0*Y2*S2\r\n      HQ(10) = 3.0D0*X2*X2*C2\r\n      HQ(11) = Y2*(2.0D0*X2*S2 + Y2*C2)\r\n      HQ(12) = 3.0D0*Y2*Y2*S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\nC\r\n      CALL GMMATD (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1))\r\nC\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATD (PROD12(1),2,6,0, S(1),6,3,0, HABC(1))\r\nC\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT (H     ) AND (H     )    PARTITION\r\nC             PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC.\r\nC\r\n      DO 270 I = 1,3\r\nC\r\nC     POINTER TO H  = 6*I-6\r\nC                 I\r\nC\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATD (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1))\r\nC\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1    ROW 1 OF H INTO ROW 1 OF G.\r\nC              ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2    ROW 1 OF H INTO ROW 2 OF G.\r\nC              ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3    ROW 1 OF H INTO ROW 3 OF G.\r\nC              ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF (J-2) 240,230,260\r\nC\r\n  230 NPOINT = NPOINT + 3\r\n  240 DO 250 K = 1,6\r\n      NPOINT = NPOINT + 1\r\n  250 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 270\r\n  260 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1)\r\n      G(NPOINT+8) = G(NPOINT+8) + TEMP9(2)\r\n      G(NPOINT+9) = G(NPOINT+9) + TEMP9(3)\r\n      G(NPOINT+1) = G(NPOINT+1) + TEMP9(4)\r\n      G(NPOINT+2) = G(NPOINT+2) + TEMP9(5)\r\n      G(NPOINT+3) = G(NPOINT+3) + TEMP9(6)\r\nC\r\n  270 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP FOR BASIC TRIANGLES\r\nC\r\n  280 CONTINUE\r\nC\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 290 I = 1,18\r\n  290 E(I) = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF (NECPT(4*NPIVOT+ICID) .EQ. 0) GO TO 300\r\n      CALL TRANSD (NECPT(4*NPIVOT+ICID),T(1))\r\n      CALL GMMATD (T(1),3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATD (T(1),3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 320\r\nC\r\n  300 DO 310 K = 1,18\r\n  310 TITE(K) = E(K)\r\nC\r\nC     SOLVE NOW FOR\r\nC\r\nC       E                   T     T                       T\r\nC    (K  ) = (K  ) - (TERM ) (K  ) - (K  )(TERM ) + (TERM )(K  )(TERM )\r\nC      IJ      IJ         I    J4      I4      J         I   44      J\r\nC\r\nC                           -1                               I=NPIVOT\r\nC      WHERE  (TERM ) = (G )  (G ) ,I=NPIVOT                 J=1,2,3\r\nC                  I      4     I\r\nC\r\nC                           -1\r\nC             (TERM ) = (G )  (G ) ,J=1,2,3 AS ABOVE\r\nC                  J      4     J\r\nC\r\nC     AND WITH TRANSFORMATIONS\r\nC\r\nC       G        T      E   T\r\nC    (K  ) = (C ) (E)(K  )(E )(C )\r\nC      IJ      I       IJ       J\r\nC\r\nC\r\nC     COMPUTE  (TERM        )  STORE IN PROD9\r\nC                   I=NPIVOT\r\nC\r\nC                  -1\r\nC     FIRST GET (G )\r\nC                 4\r\nC\r\n  320 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (3,G(28),3,PROD9,0,DETERM,ISING,TEMP9)\r\nC\r\n      CALL GMMATD (G(28),3,3,0, G(9*NPIVOT-8),3,3,0, PROD9(1))\r\nC\r\nC                       T\r\nC     GET  (TERM        )(K  ) -(K  )  STORE IN TEMP9\r\nC               I=NPIVOT   44     I4\r\nC\r\n      CALL GMMATD (PROD9(1),3,3,1, KSUM(55),3,3,0, TEMP9(1))\r\n      DO 340 K = 1,9\r\n      NPOINT = 9*NPIVOT + 18 + K\r\n  340 TEMP9(K) = TEMP9(K) - KSUM(NPOINT)\r\nC\r\nC\r\nC     THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9.\r\nC\r\n      DO 400 J = 1,3\r\nC\r\nC                   T     T\r\nC     (TERM        ) (K  )    STORE IN ARR9\r\nC          I=NPIVOT    J4\r\nC\r\n      CALL GMMATD (PROD9(1),3,3,1, KSUM(9*J+19),3,3,1, ARR9(1))\r\nC\r\nC     SUBTRACT FROM (K  )\r\nC                     IJ\r\nC\r\n      NBEGIN = 9*J - 9\r\n      DO 350 I = 1,9\r\n      NPOINT = NBEGIN + I\r\n  350 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I)\r\nC\r\nC\r\nC      COMPUTE  (TERM )  STORE IN ARR9\r\nC                   J\r\nC\r\n      CALL GMMATD (G(28),3,3,0, G(9*J-8),3,3,0, ARR9(1))\r\nC\r\nC                            T\r\nC     COMPUTE ((TERM        )(K  ) -(K  )) (TERM ) = (TEMP9)(ARR9)\r\nC                   I=NPOINT   44     I4        J\r\nC\r\n      CALL GMMATD (TEMP9(1),3,3,0, ARR9(1),3,3,0, ARRAY9(1))\r\nC\r\nC     ADD TO K\r\nC             IJ\r\nC\r\n      DO 360 I = 1,9\r\n      NPOINT = NBEGIN + I\r\n  360 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I)\r\nC\r\nC       E\r\nC     K    COMPLETE\r\nC      IJ\r\nC\r\nC     TRANSFORM NOW, AND INSERT.\r\nC\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF (NECPT(4*J+ICID) .EQ. 0) GO TO 370\r\n      CALL TRANSD (NECPT(4*J+ICID),T(1))\r\n      CALL GMMATD (T(1),3,3,1, E( 1),3,3,0, TJTE( 1))\r\n      CALL GMMATD (T(1),3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 390\r\nC\r\n  370 DO 380 K = 1,18\r\n  380 TJTE(K) = E(K)\r\n  390 CALL GMMATD (KSUM(NBEGIN+1),3,3,0, TJTE(1),6,3,1, TEMP18(1))\r\n      CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1))\r\n      CALL DS1B (KOUT(1),NECPT(J+1))\r\n  400 CONTINUE\r\n      RETURN\r\nC\r\nC     COULD NOT DO IT\r\nC\r\n  410 WRITE  (NOUT,420) SFM\r\n  420 FORMAT (A25,', DEFFICIENT SOURCE CODE IN DTRIA TO HANDLE CTRIA3 ',\r\n     1       'ELEMENT WITH MATERIAL', /5X,\r\n     2       'PROPERTY COORD. SYSTEM. ANGLE MUST BE SPECIFIED')\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtrmem.f",
    "content": "      SUBROUTINE DTRMEM( IOPT )\r\nC\r\nC     DIFFERENTIAL STIFFNESS CALCULATIONS FOR THE TRIANGULAR MEMBRANE\r\nC     ELEMENT.  THREE 6X6 MATRICES FOR THE PIVOT POINT ARE INSERTED.\r\nC     IF THIS ROUTINE IS CALLED FROM DTRIA OR DQUAD ONLY THE IN PLANE\r\nC     EFFECTS ARE GENERATED AND THE STRESS VALUES ARE RETURNED.\r\nC\r\nC     THE VALUE OF IOPT TELLS US WHICH ROUTINE IS CALLING DTRMEM.\r\nC      THE OPTIONS ARE\r\nC                IOPT        ROUTINE\r\nC               ******       *******\r\nC                 0            DSIA\r\nC                 1            DQDMEM\r\nC                 2            DTRIA\r\nC                 3            DQUAD\r\nC\r\nC\r\nC     THIS ROUTINE COMPUTES AN E-MATRIX UNIQUE TO THIS ROUTINE.\r\nC\r\nC                       IX  IY  IZ\r\nC                  E =  JX  JY  JZ\r\nC                       KX  KY  KZ\r\nC\r\n      DOUBLE PRECISION   E             ,C\r\n     1                  ,KD            ,SIGX\r\n     2                  ,SIGY          ,SIGXY\r\n     3                  ,TEMP1         ,TEMP2\r\n     4                                 ,KIJ\r\n     5                  ,G             ,XSUBB\r\n     6                  ,XSUBC         ,YSUBC\r\n     7                  ,SUM           ,MU\r\n     8                  ,LAMDA         ,DELTA\r\n     9                  ,TEMP          ,GAMMA1\r\n     T                  ,GAMMA2        ,GAMMA3\r\n     1                  ,DISP          ,T\r\n      DOUBLE PRECISION   AREAT         ,DUMDP\r\nC\r\n      DIMENSION          SUM(3)        ,NECPT(6)      ,KIJ(36)\r\nC\r\nC\r\nC     INTERFACE DATA BLOCKS\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALPH12,\r\n     1       TSUB0,GSUBE,SIGTEN,SIGCOM,SIGSHE,G2X211,G2X212,G2X222\r\n      COMMON /DS1AAA/ NPVT, ICSTM, NCSTM\r\n      COMMON /DS1AET/ ECPT(21),ELDEF,LDTEMP,SDISP(9)\r\n      COMMON /DS1ADP/    E(9)          ,C(54)\r\n     1                  ,KD(36)        ,TEMP1(18)\r\n     2                  ,TEMP2(18)\r\n     3                  ,G(9)          ,T(9)\r\n     4                  ,DISP(9)       ,MU\r\n     5                  ,LAMDA         ,DELTA\r\n     6                  ,TEMP          ,GAMMA1\r\n     7                  ,GAMMA2        ,GAMMA3\r\n     8                  ,AREAT         ,XSUBB\r\n     9                  ,XSUBC         ,YSUBC\r\n     T                  ,DUMDP(12)     ,THETA\r\n     1                  ,ICSTM1        ,NPIVOT\r\n     2                  ,IDUM\r\n     3                  ,SIGX          ,SIGY           ,SIGXY\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (LDTEMP,FTEMP),(NECPT(1),ECPT(1)),(SUM(1),SIGX)\r\n      EQUIVALENCE        (KIJ(1),KD(1))\r\nC\r\nC\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID\r\nC     ECPT( 2) = GRID POINT A OR 1\r\nC     ECPT( 3) = GRID POINT B OR 2\r\nC     ECPT( 4) = GRID POINT C OR 3\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL CUT IF ANISOTROPIC\r\nC     ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = THICKNESS\r\nC     ECPT( 8) = NON-STRUCTURAL MASS\r\nC     ECPT( 9) = COORD. SYSTEM ID 1\r\nC     ECPT(10) = X1\r\nC     ECPT(11) = Y1\r\nC     ECPT(12) = Z1\r\nC     ECPT(13) = COORD. SYSTEM ID 2\r\nC     ECPT(14) = X2\r\nC     ECPT(15) = Y2\r\nC     ECPT(16) = Z2\r\nC     ECPT(17) = COORD. SYSTEM ID 3\r\nC     ECPT(18) = X3\r\nC     ECPT(19) = Y3\r\nC     ECPT(20) = Z3\r\nC     ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = ELEMENT DEFORMATION DELTA\r\nC     ECPT(23) = AVG. LOADING TEMPERATURE =(-1) IF NO LOADING TEMP.\r\nC     ECPT(24) = X-TRANS POINT 1\r\nC     ECPT(25) = Y-TRANS POINT 1\r\nC     ECPT(26) = Z-TRANS POINT 1\r\nC     ECPT(27) = X-TRANS POINT 2\r\nC     ECPT(28) = Y-TRANS POINT 2\r\nC     ECPT(29) = Z-TRANS POINT 2\r\nC     ECPT(30) = X-TRANS POINT 3\r\nC     ECPT(31) = Y-TRANS POINT 3\r\nC     ECPT(32) = Z-TRANS POINT 3\r\nC     ******************************************************************\r\nC//////\r\nC     CALL BUG(4HTMET,0,ECPT,32)\r\nC//////\r\nC\r\n      SIGX=0.0D0\r\n      SIGY=0.0D0\r\n      SIGXY=0.0D0\r\n      IF(ECPT(7) .EQ. 0.0 .OR. NECPT(6) .EQ. 0 ) RETURN\r\nC     FILL ELEMENT TO GLOBAL E-TRANSFORMATION MATRIX\r\nC\r\nC     IVEC = E(1). . .E(3)\r\nC     JVEC = E(4). . .E(6)\r\nC     KVEC = E(7). . .E(9)\r\nC\r\n      DO 10 I=1,3\r\n   10 E(I) = DBLE( ECPT(I+13) ) - DBLE( ECPT(I+9) )\r\nC\r\nC     LENGTH THEN = XSUBB\r\nC\r\n      XSUBB = DSQRT( E(1)**2 + E(2)**2 + E(3)**2 )\r\nC\r\nC     R  - R   (INTERMEDIATE STEP) AND NOMALIZE IVECTOR = E(1). . .E(3)\r\nC      C    A\r\nC\r\n      DO 20 I=1,3\r\n      E(I+3) = DBLE( ECPT(I+17) ) - DBLE( ECPT(I+9) )\r\n   20 E(I) = E(I) / XSUBB\r\nC\r\nC     XSUBC = I DOT (R  - R )\r\nC                     C    A\r\nC\r\n      XSUBC = E(1) * E(4)  +  E(2) * E(5)  +  E(3) * E(6)\r\nC\r\nC     KVEC = IVEC CROSS (R  - R )\r\nC                         C    A\r\nC\r\n      E(7) = E(2) * E(6)  -  E(3) * E(5)\r\n      E(8) = E(3) * E(4)  -  E(1) * E(6)\r\n      E(9) = E(1) * E(5)  -  E(2) * E(4)\r\nC\r\nC     LENGTH = YSUBC\r\nC\r\n      YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2 )\r\nC\r\nC     NORMALIZE KVECTOR\r\n      E(7) = E(7) / YSUBC\r\n      E(8) = E(8) / YSUBC\r\n      E(9) = E(9) / YSUBC\r\nC\r\nC     JVECTOR = I CROSS K\r\nC\r\n      E(4) = E(3) * E(8)  -  E(2) * E(9)\r\n      E(5) = E(1) * E(9)  -  E(3) * E(7)\r\n      E(6) = E(2) * E(7)  -  E(1) * E(8)\r\nC\r\nC     NORMALIZE JVECTOR TO MAKE SURE\r\n      TEMP = DSQRT( E(4)**2 + E(5)**2 + E(6)**2 )\r\n      E(4) = E(4) / TEMP\r\n      E(5) = E(5) / TEMP\r\n      E(6) = E(6) / TEMP\r\nC\r\nC     MU, LAMDA, AND DELTA\r\nC\r\n      MU    = 1.0D0 / XSUBB\r\n      LAMDA = 1.0D0 / YSUBC\r\n      DELTA =(XSUBC/XSUBB) - 1.0D0\r\n      AREAT = XSUBB * YSUBC * 0.50D0 * DBLE( ECPT(7) )\r\nC\r\nC     C MATRIX    C  =(3X2) STORED C( 1). . .C( 6)\r\nC                  A\r\nC                 C  =(3X2) STORED C( 7). . .C(12)\r\nC                  B\r\nC                 C  =(3X2) STORED C(13). . .C(18)\r\nC                  C\r\nC\r\n      C( 1) = -MU\r\n      C( 2) =  0.0D0\r\n      C( 3) =  0.0D0\r\n      C( 4) =  LAMDA * DELTA\r\n      C( 5) =  C(4)\r\n      C( 6) = -MU\r\n      C( 7) =  MU\r\n      C( 8) =  0.0D0\r\n      C( 9) =  0.0D0\r\n      C(10) = -LAMDA * MU * XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  MU\r\n      C(13) =  0.0D0\r\n      C(14) =  0.0D0\r\n      C(15) =  0.0D0\r\n      C(16) =  LAMDA\r\n      C(17) =  LAMDA\r\n      C(18) =  0.0D0\r\nC\r\n      IF( IOPT .GE. 1 ) GO TO 30\r\nC     THE REASON FOR THIS IS THAT IF THE DQDMEM ROUTINE IS CALLING,\r\nC     EACH INDIVIDUAL SUBTRIANGLE WILL ALREADY HAVE A SINTH AND COSTH.\r\nC\r\n      THETA = ECPT(5) * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n   30 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0\r\nC\r\n      ELTEMP = ECPT(21)\r\n      MATID = NECPT(6)\r\n      INFLAG = 2\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE.\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     G, E, C MATRICES ARE COMPLETE\r\nC\r\nC     FOLLOWING COMPUTES SIG , SIG , SIG      (3X1) VECTOR\r\nC                           X     Y     XY\r\nC\r\nC         I=3\r\nC      = (SUM (G)(C )(E)(T )(DISP )) - (S )(LDTEMP - T )\r\nC         I=1      I      I      I       T            0\r\nC\r\nC        WHERE  S  =(G)(ALPHAS)   (3X1)\r\nC                T\r\nC\r\n      SUM(1) = 0.0E0\r\n      SUM(2) = 0.0E0\r\n      SUM(3) = 0.0E0\r\nC\r\nC     MAKE DISPLACEMENT VECTOR DOUBLE PRECISION\r\nC\r\n      DO 40 I=1,9\r\n   40 DISP(I) = SDISP(I)\r\nC\r\n      DO 90 I=1,3\r\nC     DO WE NEED TRANSFORMATIONS\r\nC\r\n      IF(NECPT(4*I+5)) 50,60,50\r\n   50 CALL TRANSD( NECPT(4*I+5),T(1))\r\n      CALL GMMATD( T(1),3,3,0, DISP(3*I-2),3,1,0, TEMP1(1))\r\n      GO TO 80\r\nC\r\n   60 DO 70 J=1,3\r\n      IDUM=  3*(I-1)+J\r\n   70 TEMP1(J) = DISP(IDUM)\r\nC\r\n   80 CALL GMMATD( E(1),2,3,0,TEMP1(1),3,1,0, TEMP2(1)  )\r\n      CALL GMMATD( C(6*I-5),3,2,0,  TEMP2(1),2,1,0,  TEMP1(1) )\r\n      CALL GMMATD( G(1),3,3,0,    TEMP1(1),3,1,0,    TEMP2(1) )\r\nC\r\n      SUM(1) = SUM(1) + TEMP2(1)\r\n      SUM(2) = SUM(2) + TEMP2(2)\r\n      SUM(3) = SUM(3) + TEMP2(3)\r\nC\r\n   90 CONTINUE\r\nC\r\n      IF( LDTEMP .EQ. (-1) ) GO TO 110\r\nC     COMPUTE S MATRIX\r\nC               T\r\nC\r\n      TEMP2(1) = ALPHA1\r\n      TEMP2(2) = ALPHA2\r\n      TEMP2(3) = ALPH12\r\nC     ABOVE IS FOR SINGLE TO DOUBLE PRECISION.\r\nC\r\n      CALL GMMATD( G(1),3,3,0,  TEMP2(1),3,1,0,  TEMP1(1) )\r\n      TEMP = FTEMP - TSUB0\r\n      DO 100 I=1,3\r\n  100 SUM(I) = SUM(I) - TEMP1(I) * TEMP\r\nC\r\nC//////\r\nC     CALL BUG(4HSUMS,90,SUM,6)\r\nC//////\r\nC  90 AT 90 SIG = SUM(1),  SIG = SUM(2),  SIG   = SUM(3)\r\nC              X              Y              XY\r\nC\r\nC     ABOVE SIMULATES SMA,SDR2-PHASE I+II\r\nC     FROM ABOVE THE E MATRIX (3X3), AND THE SUM (3X1) MATRIX ALONG WITH\r\nC     XSUBB, XSUBC, AND YSUBC ARE NOW USED...\r\n  110 DO 120  I =1,36\r\n  120 KD(I) =0.0D0\r\nC\r\n      IF( IOPT.EQ. 3 ) AREAT=AREAT/2.0D0\r\nC\r\n      MU = SIGX*AREAT\r\n      LAMDA = SIGY*AREAT\r\n      DELTA = SIGXY *AREAT\r\nC\r\n      IF ( IOPT .GE. 2)  GO TO 130\r\n      KD(1) = LAMDA\r\n      KD(2) =-DELTA\r\n      KD(7) = KD(2)\r\n      KD(8) = MU\r\n  130 KD(15) = MU+LAMDA\r\n      KD(16) =-DELTA\r\n      KD(17) = DELTA\r\n      KD(18) = MU -LAMDA\r\n      KD(21) = KD(16)\r\n      KD(27) = KD(17)\r\n      KD(33) = KD(18)\r\nC\r\nC     GENERATE C MATRICES\r\nC\r\n      DO 140 I=1,54\r\n  140 C(I) =0.0D0\r\nC\r\nC     FILL NON ZERO TERMS\r\nC\r\n      GAMMA1 = 1.0D0 /XSUBB\r\n      GAMMA2 = 1.0D0 /YSUBC\r\n      GAMMA3 = XSUBC /( XSUBB*YSUBC)\r\n      C(3) = GAMMA3 -GAMMA2\r\n      C(6) = GAMMA1\r\n      C(7) =-C(3)/2.0D0\r\n      C(8) =-GAMMA1/2.0D0\r\n      C(10)=-GAMMA1\r\n      C(14)= C(3)\r\n      C(16)=-C(7)\r\n      C(17)= C(8)\r\nC\r\n      C(21)=-GAMMA3\r\n      C(24)=-GAMMA1\r\n      C(25)= GAMMA3/2.0D0\r\n      C(26)=-C(8)\r\n      C(28)= GAMMA1\r\n      C(32)=-GAMMA3\r\n      C(34)=-C(25)\r\n      C(35)= C(26)\r\nC\r\n      C(39)=GAMMA2\r\n      C(43)=-GAMMA2/2.0D0\r\n      C(50)= GAMMA2\r\n      C(52)=-C(43)\r\nC\r\nC     REPLACE C MATRICES BY  (C)(E )(T) FOR EACH POINT\r\n      DO 200 I =1,3\r\n      IF( NECPT(4*I+5)) 150,160,150\r\nC\r\nC     GLOBAL TO BASIC MATRIX T IS GENERATED AGAIN HERE\r\nC\r\n  150 CALL TRANSD( NECPT(4*I+5),T(1))\r\n      CALL GMMATD( E(1),3,3,0,  T(1),3,3,0, TEMP1(1) )\r\n      GO TO 180\r\n  160 DO 170 J =1,9\r\n  170 TEMP1(J) = E(J)\r\nC\r\n  180 CALL GMMATD( C(18*I-17),6,3,0,  TEMP1(1),3,3,0,  TEMP2(1))\r\n      DO 190  J=1,18\r\n      IDUM =  18*(I-1) +J\r\n  190 C(IDUM) = TEMP2(J)\r\nC\r\n  200 CONTINUE\r\nC\r\n      DO 210 I =1,3\r\n      IF(NECPT(I+1) .NE. NPVT) GO TO 210\r\n      NPIVOT= I\r\n      GO TO 220\r\n  210 CONTINUE\r\n      RETURN\r\n  220 CALL GMMATD( C(18*NPIVOT-17),6,3,1, KD(1),6,6,0, TEMP1(1))\r\nC\r\nC     TEMP1 NOW CONTAINS                   T\r\nC                           ( (C )(E)(T ) ) ( KD)\r\nC                               J      J\r\nC     WHERE J IS THE PIVOT POINT\r\nC\r\nC     GENERATE THE THREE BY THREE PARTITIONS IN GLOBAL COORDINATES HERE\r\nC\r\n      DO 240 I=1,3\r\n      CALL GMMATD( TEMP1,3,6,0, C(18*I-17),6,3,0,TEMP2(1)  )\r\nC//////\r\nC     CALL BUG(4HTRMK,260,TEMP2,18)\r\nC//////\r\n      DO 230 J=1,36\r\n  230 KIJ(J) = 0.0D0\r\n      KIJ( 1) = TEMP2(1)\r\n      KIJ( 2) = TEMP2(2)\r\n      KIJ( 3) = TEMP2(3)\r\n      KIJ( 7) = TEMP2(4)\r\n      KIJ( 8) = TEMP2(5)\r\n      KIJ( 9) = TEMP2(6)\r\n      KIJ(13) = TEMP2(7)\r\n      KIJ(14) = TEMP2(8)\r\n      KIJ(15) = TEMP2(9)\r\nC\r\n      CALL DS1B( KIJ(1), NECPT(I+1) )\r\nC\r\n  240 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtshld.f",
    "content": "      SUBROUTINE DTSHLD\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                    INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1          INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2          INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3          INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4          INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5          INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6          INTEGER\r\nC     ECPT( 8) = THETA                                         REAL\r\nC     ECPT( 9) = MATERIAL  ID 1                                INTEGER\r\nC     ECPT(10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT(11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT(12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT(13) = MATERIAL  ID 2                                INTEGER\r\nC     ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT(17) = MATERIAL  ID 3                                INTEGER\r\nC     ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT(21) = NON-STRUCTURAL MASS                           REAL\r\nC     ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE  IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID A               INTEGER\r\nC     ECPT(29) = COORDINATE X1                                 REAL\r\nC     ECPT(30) = COORDINATE Y1                                 REAL\r\nC     ECPT(31) = COORDINATE Z1                                 REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID B               INTEGER\r\nC     ECPT(33) = COORDINATE X1                                 REAL\r\nC     ECPT(34) = COORDINATE Y1                                 REAL\r\nC     ECPT(35) = COORDINATE Z1                                 REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID C               INTEGER\r\nC     ECPT(37) = COORDINATE X1                                 REAL\r\nC     ECPT(38) = COORDINATE Y1                                 REAL\r\nC     ECPT(39) = COORDINATE Z1                                 REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID D               INTEGER\r\nC     ECPT(41) = COORDINATE X1                                 REAL\r\nC     ECPT(42) = COORDINATE Y1                                 REAL\r\nC     ECPT(43) = COORDINATE Z1                                 REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID E               INTEGER\r\nC     ECPT(45) = COORDINATE X1                                 REAL\r\nC     ECPT(46) = COORDINATE Y1                                 REAL\r\nC     ECPT(47) = COORDINATE Z1                                 REAL\r\nC     ECPT(48) = COORDINATE SYSTEM ID FOR GRID F               INTEGER\r\nC     ECPT(49) = COORDINATE X1                                 REAL\r\nC     ECPT(50) = COORDINATE Y1                                 REAL\r\nC     ECPT(51) = COORDINATE Z1                                 REAL\r\nC     EST (52) = ELEMENT  TEMPERATURE\r\nC     EST (53) = ENFORCED ELEMENT DEFORMATION (NOT USED)\r\nC     EST (54) = LOADING  TEMPERATURE\r\nC     EST (55) TO EST (90) = GLOBAL DISPLACEMENT VECTOR\r\nC                REPLACES ECPT(65) TO ECPT(100) DESCRIBED BELOW\r\nC     ECPT(65) = U1-DISP FOR X1\r\nC     ECPT(66) = V1-DISP FOR Y1\r\nC     ECPT(67) = W1-DISP FOR Z1\r\nC     ECPT(68) = ALFA1-ROTATION FOR X1\r\nC     ECPT(69) = BETA1-ROTATION FOR Y1\r\nC     ECPT(70) = GAMA1-ROTATION FOR Z1\r\nC     ECPT(71) = U2-DISP FOR X2\r\nC     ECPT(72) = V2-DISP FOR Y2\r\nC     ECPT(73) = W2-DISP FOR Z2\r\nC     ECPT(74) = ALFA2-ROTATION FOR X2\r\nC     ECPT(75) = BETA2-ROTATION FOR Y2\r\nC     ECPT(76) = GAMA2-ROTATION FOR Z2\r\nC     ECPT(77) = U3-DISP FOR X3\r\nC     ECPT(78) = V3-DISP FOR Y3\r\nC     ECPT(79) = W3-DISP FOR Z3\r\nC     ECPT(80) = ALFA3-ROTATION FOR X3\r\nC     ECPT(81) = BETA3-ROTATION FOR Y3\r\nC     ECPT(82) = GAMA3-ROTATION FOR Z3\r\nC     ECPT(83) = U4-DISP FOR X4\r\nC     ECPT(84) = V4-DISP FOR Y4\r\nC     ECPT(85) = W4-DISP FOR Z4\r\nC     ECPT(86) = ALFA4-ROTATION FOR X4\r\nC     ECPT(87) = BETA4-ROTATION FOR Y4\r\nC     ECPT(88) = GAMA4-ROTATION FOR Z4\r\nC     ECPT(89) = U5-DISP FOR X5\r\nC     ECPT(90) = V5-DISP FOR Y5\r\nC     ECPT(91) = W5-DISP FOR Z5\r\nC     ECPT(92) = ALFA5-ROTATION FOR X5\r\nC     ECPT(93) = BETA5-ROTATION FOR Y5\r\nC     ECPT(94) = GAMA5-ROTATION FOR Z5\r\nC     ECPT(95) = U6-DISP FOR X6\r\nC     ECPT(96) = V6-DISP FOR Y6\r\nC     ECPT(97) = W6-DISP FOR Z6\r\nC     ECPT(98) = ALFA6-ROTATION FOR X6\r\nC     ECPT(99) = BETA6-ROTATION FOR Y6\r\nC     ECPT(100)= GAMA6-ROTATION FOR Z6\r\nC\r\nC     RK AND SK ARE EXPONENTS IN THICKNESS VARIATION\r\nC\r\n      LOGICAL          NOTS,UNIMEM,UNIBEN,NOGO\r\n      INTEGER          RK(3),SK(3),RL(3),SL(3),XU(32),YU(32),XV(32),\r\n     1                 YV(32),XW(32),YW(32),SIL(6),SIL1,SIL2,\r\n     2                 RR,RR0,RR1,SS,SS0,SS1\r\n      REAL             J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3),XC(6),\r\n     1                 YC(6),ZC(6),F(18,18)\r\nCWKBI 9/93\r\n      DOUBLE PRECISION DETERM\r\n      DOUBLE PRECISION TRAND(9),BALOTR(36),KSUB( 36),KSUBT( 36)\r\n      DOUBLE PRECISION D334,D132,D232,RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY,\r\n     1                 RMNY,RMY1,RNY1,X,Y,QQQ(20,20),CMT(1296),\r\n     2                 CTM(36,36),CMS(900),CM1(30,30),CAB(3),CSUB(5,5),\r\n     3                 CSUBT(6,5),C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,\r\n     4                 H4,H5,H6,SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9,\r\n     5                 RIX,RIY,RJX,RJY,RKX,RKY,RLX,RLY,EE(30),Q(6,6),\r\n     6                 QQQINV(360),QKS(960),KSHL(1024),MSHL(1024)\r\n      DOUBLE PRECISION SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19\r\n     1,                SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29\r\n     2,                SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39\r\n     3,                SB40,CC(10),ST\r\n      DIMENSION        IND(6,3),EL(3),FL(3),GL(3),NAME(2),INDEX(20,3),\r\n     1                 ICS(6),IEST(100),NL(6),SIGX(3),SIGY(3),SIGXY(3),\r\n     2                 ES(6),STRESS(3),STR(3),VEC(3),PH1OUT(250),\r\n     3                 TM(3,12),EMOD(9),TMMM(36),TRANS(9),EPH1(6),\r\n     4                 EE1(6),NSIL(6),TI(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/  IBUF,IOUTPT\r\n      COMMON /DS1AET/  EST(100)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1ADP/  F\r\n      COMMON /MATIN /  MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/  EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                 RJ11,RJ12,RJ22\r\n      EQUIVALENCE      (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)),\r\n     1                 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)),\r\n     2                 (C9,CC(9)),(C10,CC(10)),\r\n     3                 (NSIL(1),PH1OUT(2)),(TM(1,1),TMMM(1)),(A,DISTA),\r\n     4                 (B,DISTB),(C,DISTC),(IEST(1),EST(1)),\r\n     5                 (CM1(1,1),CMS(1)),(THK1,TBEND1),(THK2,TBEND3),\r\n     6                 (THK3,TBEND5),(CMT(1025),QQQINV(1)),\r\n     7                 (CTM(1,1),CMT(1),KSHL(1),MSHL(1),QQQ(1,1)),\r\n     8                 (CMT(437),PH1OUT(1)),(CMT(687),INDEX(1,1)),\r\n     9                 (CMT(747),IND(1,1)),(TI(1),EST(65))\r\n      DATA    RK    /  0,1,0 /, RL / 0,1,0 /, SK / 0,0,1 /, SL / 0,0,1/,\r\n     1        XU    /  0,1,0,2,1,0,26*0    /, YU / 0,0,1,0,1,2,26*0   /,\r\n     2        XV    /  6*0,0,1,0,2,1,0,20*0/, YV /6*0,0,0,1,0,1,2,20*0/,\r\n     3        XW    /  12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0   /,\r\n     4        YW    /  12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5   /,\r\n     5        BLANK ,  NAME / 4H    ,4HDTSH,4HLD    /,\r\n     6        DEGRA /  0.0174532925 /\r\nC\r\n      NOTS   =.FALSE.\r\n      IDELE  = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.333333333333\r\n      TBEND3 = (EST(15)*12.0)**0.333333333333\r\n      TBEND5 = (EST(16)*12.0)**0.333333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      DO 20 I = 28,48,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n   20 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE\r\nC     SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      TSHR   = (TSHR1+TSHR3+TSHR5)/3.0\r\n      IF (TSHR1 .EQ. 0.0) NOTS =.TRUE.\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      ELTEMP = EST(52)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUTE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF (MATID1 .LE. 0) GO TO 670\r\n      CALL MAT (IDELE)\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID2\r\n      CALL MAT (IDELE)\r\n      D13    = EM(3)\r\n      D23    = EM(5)\r\n      D33    = EM(6)\r\n      J11    = 0.0\r\n      J12    = 0.0\r\n      J22    = 0.0\r\n      IF (NOTS) GO TO 30\r\n      MATFLG = 3\r\n      MATID  = MATID3\r\n      CALL MAT (IDELE)\r\n      J11    = 1.0/(RJ11*TSHR)\r\n      J12    = 0.0\r\n      J22    = 1.0/(RJ22*TSHR)\r\n   30 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 40 I = 1,20\r\n      DO 40 J = 1,20\r\n   40 QQQ(I,J) = 0.0D0\r\n      DO 50 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0D0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0D0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0D0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n   50 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 60 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      DO 60 J = 1,6\r\n      Q(I,J) = QQQ(I1,J)\r\n   60 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,Q,6,QQQINV(1),0,DETERM,ISING,IND)\r\n      IF (ISING .EQ. 2) GO TO 660\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     AGAIN RESET ISING TO -1\r\nC\r\n      ISING = -1\r\n      CALL INVERD (20,QQQ,20,QQQINV(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 660\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MA CALCULATIONS\r\nC\r\n      DO 70 I = 1,20\r\n      DO 70 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n   70 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\nC     OBTAIN MEMBRANE STRESSES\r\nC\r\nC     RELEVANT PORTION OF STRESS ROUTINE OF TRIM6 IS CODED HERE\r\nC\r\nC     TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC COORDINATES\r\nC\r\n      ES(1) = IVECT(1)\r\n      ES(2) = JVECT(1)\r\n      ES(3) = IVECT(2)\r\n      ES(4) = JVECT(2)\r\n      ES(5) = IVECT(3)\r\n      ES(6) = JVECT(3)\r\n      DO 90 I = 1,9\r\n      BALOTR(I) = 0.0\r\n   90 CONTINUE\r\nC\r\n      DO 100 I = 1,7\r\n      PH1OUT(I) = EST(I)\r\n  100 CONTINUE\r\n      PH1OUT( 8) = EST(10)\r\n      PH1OUT( 9) = EST(11)\r\n      PH1OUT(10) = EST(12)\r\n      PH1OUT(11) = TREF\r\n      EMOD(1) = EM(1)\r\n      EMOD(2) = EM(2)\r\n      EMOD(3) = EM(3)\r\n      EMOD(4) = EM(2)\r\n      EMOD(5) = EM(4)\r\n      EMOD(6) = EM(5)\r\n      EMOD(7) = EM(3)\r\n      EMOD(8) = EM(5)\r\n      EMOD(9) = EM(6)\r\nC\r\n      CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0,PH1OUT(228))\r\n      DO 210 JJ = 1,3\r\n      J = 2*JJ - 1\r\n      X = XC(J)\r\n      Y = YC(J)\r\n      DO 110 I = 1,36\r\n      TMMM(I) = 0.0\r\n  110 CONTINUE\r\nC\r\nC     TM MATRIX IS THE PRODUCT OF B AND QINVERSE MATRICES\r\nC\r\n      DO 120 J = 1,6\r\n      J1 = (J-1)*2 + 1\r\n      J2 = J1 + 1\r\n      TM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J)\r\n      TM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J)\r\n      TM(3,J1) = TM(2,J2)\r\n      TM(3,J2) = TM(1,J1)\r\n  120 CONTINUE\r\nC\r\nC     ZERO STRESS VECTOR STORAGE\r\nC\r\n      DO 130 I = 1,3\r\n      STRESS(I) = 0.0\r\n  130 CONTINUE\r\nC\r\n      DO 180 II = 1,6\r\n      IJ1 = (JJ-1)*54 + (II-1)*9 + 12\r\n      IF (ICS(II) .EQ. 0) GO TO 140\r\n      CALL TRANSS (IEST(4*II+24),TRANS)\r\n      CALL GMMATS (ES,3,2,+1,TRANS,3,3,0,EE1)\r\n      GO TO 160\r\n  140 CONTINUE\r\n      DO 150 I = 1,3\r\n      DO 150 J = 1,2\r\n      I1 = (I-1)*2 + J\r\n      J1 = (J-1)*3 + I\r\n      EE1(J1) = ES(I1)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n      MZ = (II-1)*6 + 1\r\n      CALL GMMATS (EMOD,3,3,0,TMMM(MZ),2,3,+1,EPH1)\r\n      CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1))\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\nC\r\n      NPOINT = 55 + (II-1)*6\r\nC\r\nC     POINTER TO  3X3 S SUB I MATRIX\r\nC\r\n      NPT1 = 12 + (II-1)*9 + (JJ-1)*54\r\nC\r\n      CALL GMMATS (PH1OUT(NPT1),3,3,0,EST(NPOINT),3,1,0,VEC(1))\r\n      DO 170 J = 1,3\r\n      STRESS(J) = STRESS(J) + VEC(J)\r\n      STR(J) = STRESS(J)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      IF (IEST(54) .EQ. -1) GO TO 200\r\n      TEM = EST(54) - PH1OUT(11)\r\n      DO 190 I = 1,3\r\n      STRESS(I) = STRESS(I) - PH1OUT(227+I)*TEM\r\n      STR(I) = STRESS(I)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      SIGX(JJ)  = STRESS(1)\r\n      SIGY(JJ)  = STRESS(2)\r\n      SIGXY(JJ) = STRESS(3)\r\n  210 CONTINUE\r\nC\r\nC     EL, FL, GL ARE COEFFICIENTS IN LINEAR VARIATION OF SIGX, SIGY,\r\nC     SIGXY RESPECTIVELY OVER THE ELEMENT\r\nC\r\nC\r\n      EL(1) = (SIGX(1)*A + SIGX(2)*B)/(A+B)\r\n      EL(2) = (SIGX(2) - SIGX(1))/(A+B)\r\n      EL(3) = (SIGX(3) - EL(1))/C\r\n      FL(1) = (SIGY(1)*A + SIGY(2)*B)/(A+B)\r\n      FL(2) = (SIGY(2) - SIGY(1))/(A+B)\r\n      FL(3) = (SIGY(3) - FL(1))/C\r\n      GL(1) = (SIGXY(1)*A + SIGXY(2)*B)/(A+B)\r\n      GL(2) = (SIGXY(2) - SIGXY(1))/(A+B)\r\n      GL(3) = (SIGXY(3) - GL(1))/C\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION\r\nC\r\n      CALL AF (F,18,A,B,C,CAB1,CAB2,CAB3,TMEM1,TMEM3,TMEM5,0)\r\n      CAB(1) = CAB1\r\n      CAB(2) = CAB2\r\n      CAB(3) = CAB3\r\n      UNIMEM =.FALSE.\r\n      UNIBEN =.FALSE.\r\nC\r\n      D334 = D33*4.0D0\r\n      D132 = D13*2.0D0\r\n      D232 = D23*2.0D0\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,18,A,B,C,A1,A2,A3,THK1,THK2,THK3,0)\r\n      IF (ABS(CAB2).LE.1.E-6 .AND. ABS(CAB3).LE.1.E-6) UNIMEM =.TRUE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE.\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1   = A1SQ*A1\r\n      C2   = 3.0*A1SQ*A2\r\n      C3   = 3.0*A1SQ*A3\r\n      C4   = 3.0*A1*A2SQ\r\n      C5   = 6.0*A1*A2*A3\r\n      C6   = 3.0*A3SQ*A1\r\n      C7   = A2SQ*A2\r\n      C8   = 3.0*A2SQ*A3\r\n      C9   = 3.0*A2*A3SQ\r\n      C10  = A3*A3SQ\r\nC     CALL AF (F,18,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,0)\r\n      H4   = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1       Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5   = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1       Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6   = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1       Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4   = H4*2.0D0\r\n      H6   = H6*2.0D0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W\r\nC\r\n      H5   = H5*2.0D0\r\nC\r\n      DO 260 I = 1,32\r\n      IX   = XU(I)\r\n      RIX  = IX\r\n      JX   = YU(I)\r\n      RJX  = JX\r\n      KX   = XV(I)\r\n      RKX  = KX\r\n      LX   = YV(I)\r\n      RLX  = LX\r\n      MX   = XW(I)\r\n      RMX  = MX\r\n      NX   = YW(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0D0)\r\n      RNX1 = RNX*(RNX-1.0D0)\r\nC\r\n      DO 250 J = I,32\r\n      IJ   = (I-1)*32 + J\r\n      JI   = (J-1)*32 + I\r\n      IY   = XU(J)\r\n      RIY  = IY\r\n      JY   = YU(J)\r\n      RJY  = JY\r\n      KY   = XV(J)\r\n      RKY  = KY\r\n      LY   = YV(J)\r\n      RLY  = LY\r\n      MY   = XW(J)\r\n      RMY  = MY\r\n      NY   = YW(J)\r\n      RNY  = NY\r\n      RMNY = RMY*RNY\r\n      RMY1 = RMY*(RMY-1.0)\r\n      RNY1 = RNY*(RNY-1.0)\r\n      ST   = 0.0D0\r\n      DO 230 K = 1,3\r\n      DO 220 L = 1,3\r\n      RR    = RK(K) + RL(L)\r\n      RR0   = RK(K) + RL(L) - 1\r\n      RR1   = RK(K) + RL(L) + 1\r\n      SS    = SK(K) + SL(L)\r\n      SS0   = SK(K) + SL(L) - 1\r\n      SS1   = SK(K) + SL(L) + 1\r\n      MM    = MX + MY\r\n      MMRR0 = MM + RR0\r\n      MMRR1 = MM + RR1\r\n      NN    = NX + NY\r\n      NNSS1 = NN + SS1\r\n      NNSS0 = NN + SS0\r\n      MMRR  = MM + RR\r\n      NNSS  = NN + SS\r\n      KK    = KX + KY\r\n      KKRR0 = KK + RR0\r\n      LL    = LX + LY\r\n      LLSS1 = LL + SS1\r\n      II    = IX + IY\r\n      JJ    = JX + JY\r\n      IIRR1 = II + RR1\r\n      JJSS0 = JJ + SS0\r\n      KI    = KX + IY\r\n      KIRR  = KI + RR\r\n      LJ    = LX + JY\r\n      LJSS  = LJ + SS\r\n      IK    = IX + KY\r\n      IKRR  = IK + RR\r\n      JL    = JX + LY\r\n      JLSS  = JL + SS\r\n      KM    = KX + MY\r\n      KMRR  = KM + RR\r\n      LN    = LX + NY\r\n      LNSS1 = LN + SS1\r\n      IM    = IX + MY\r\n      IMRR1 = IM + RR1\r\n      JN    = JX + NY\r\n      JNSS  = JN + SS\r\n      KKRR  = KK + RR\r\n      LLSS  = LL + SS\r\n      KIRR1 = KI + RR1\r\n      LJSS0 = LJ + SS0\r\n      MK    = MX + KY\r\n      MKRR  = MK + RR\r\n      NLSS1 = NX + LY + SS1\r\n      MI    = MX + IY\r\n      MIRR1 = MI + RR1\r\n      NJ    = NX + JY\r\n      NJSS  = NJ + SS\r\n      IKRR0 = IK + RR0\r\n      JLSS1 = JL + SS1\r\n      IIRR  = II + RR\r\n      JJSS  = JJ + SS\r\n      IKRR1 = IK + RR1\r\n      JLSS0 = JL + SS0\r\n      LNSS1 = LN + SS1\r\n      KIRR0 = KI + RR0\r\n      LJSS1 = LJ + SS1\r\n      SB1   = 0.0D0\r\n      SB2   = 0.0D0\r\n      SB3   = 0.0D0\r\n      SB4   = 0.0D0\r\n      SB5   = 0.0D0\r\n      SB6   = 0.0D0\r\n      SB7   = 0.0D0\r\n      SB8   = 0.0D0\r\n      SB9   = 0.0D0\r\n      SB10  = 0.0D0\r\n      SB11  = 0.0D0\r\n      SB12  = 0.0D0\r\n      SB13  = 0.0D0\r\n      SB14  = 0.0D0\r\n      SB15  = 0.0D0\r\n      SB16  = 0.0D0\r\n      SB17  = 0.0D0\r\n      SB18  = 0.0D0\r\n      SB19  = 0.0D0\r\n      SB20  = 0.0D0\r\n      SB21  = 0.0D0\r\n      SB22  = 0.0D0\r\n      SB23  = 0.0D0\r\n      SB24  = 0.0D0\r\n      SB25  = 0.0D0\r\n      SB26  = 0.0D0\r\n      SB27  = 0.0D0\r\n      SB28  = 0.0D0\r\n      SB29  = 0.0D0\r\n      SB30  = 0.0D0\r\n      SB31  = 0.0D0\r\n      SB32  = 0.0D0\r\n      SB33  = 0.0D0\r\n      SB34  = 0.0D0\r\n      SB35  = 0.0D0\r\n      SB36  = 0.0D0\r\n      SB37  = 0.0D0\r\n      SB38  = 0.0D0\r\n      SB39  = 0.0D0\r\n      SB40  = 0.0D0\r\n      IF (MMRR0 .GT. 0) SB1 = CAB(K)*EL(L)*RMX*RMY*F(MMRR0,NNSS1)\r\n      IF (NNSS0 .GT. 0) SB2 = CAB(K)*FL(L)*RNX*RNY*F(MMRR1,NNSS0)\r\n      IF (MMRR.GT.0 .AND. NNSS.GT.0) SB3 = CAB(K)*GL(L)*RNX*RMY*\r\n     1                                     F(MMRR,NNSS)\r\n      IF (MMRR.GT.0 .AND. NNSS.GT.0) SB4 = CAB(K)*GL(L)*RMX*RNY*\r\n     1                                     F(MMRR,NNSS)\r\n      IF (KKRR0 .GT. 0) SB5 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (JJSS0 .GT. 0) SB6 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB7 = CAB(K)*EL(L)*RKX*RJY*\r\n     1                                     F(KIRR,LJSS)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB8 = CAB(K)*EL(L)*RJX*RKY*\r\n     1                                     F(IKRR,JLSS)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB9 = CAB(K)*EL(L)*RKX*RJY*\r\n     1                                     F(KIRR,LJSS)\r\n      IF (KKRR0 .GT. 0) SB10 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KMRR  .GT. 0) SB11 = CAB(K)*EL(L)*RKX*H5*F(KMRR,LNSS1)\r\n      IF (JJSS0 .GT. 0) SB12 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB13 = CAB(K)*EL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (JNSS  .GT. 0) SB14 = CAB(K)*EL(L)*RJX*H5*F(IMRR1,JNSS)\r\n      IF (KKRR0 .GT. 0) SB15 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB16 = CAB(K)*FL(L)*RKX*RJY*\r\n     1                                      F(KIRR,LJSS)\r\n      IF (JJSS0 .GT. 0) SB17 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB18 = CAB(K)*FL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB19 = CAB(K)*FL(L)*RKX*RJY*\r\n     1                                      F(KIRR,LJSS)\r\n      IF (KKRR0 .GT. 0) SB20 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KMRR  .GT. 0) SB21 = CAB(K)*FL(L)*RKX*H5*F(KMRR,LNSS1)\r\n      IF (JJSS0 .GT. 0) SB22 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB23 = CAB(K)*FL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (JNSS  .GT. 0) SB24 = CAB(K)*FL(L)*RJX*H5*F(IMRR1,JNSS)\r\n      IF (KKRR.GT.0 .AND. LLSS.GT.0) SB25 = CAB(K)*GL(L)*RLX*RKY*\r\n     1                                      F(KKRR,LLSS)\r\n      IF (KKRR.GT.0 .AND. LLSS.GT.0) SB26 = CAB(K)*GL(L)*RKX*RLY*\r\n     1                                      F(KKRR,LLSS)\r\n      IF (LJSS0 .GT. 0) SB27 = CAB(K)*GL(L)*RLX*RJY*F(KIRR1,LJSS0)\r\n      IF (JLSS0 .GT. 0) SB28 = CAB(K)*GL(L)*RJX*RLY*F(IKRR1,JLSS0)\r\n      IF (MKRR  .GT. 0) SB29 = CAB(K)*GL(L)*RKY*H6*F(MKRR,NLSS1)\r\n      IF (KMRR  .GT. 0) SB30 = CAB(K)*GL(L)*RKX*H6*F(KMRR,LNSS1)\r\n      IF (NJSS  .GT. 0) SB31 = CAB(K)*GL(L)*RJY*H6*F(MIRR1,NJSS)\r\n      IF (JNSS  .GT. 0) SB32 = CAB(K)*GL(L)*RJX*H6*F(IMRR1,JNSS)\r\n      IF (IKRR0 .GT. 0) SB33 = CAB(K)*GL(L)*RIX*RKY*F(IKRR0,JLSS1)\r\n      IF (KIRR0 .GT. 0) SB34 = CAB(K)*GL(L)*RKX*RIY*F(KIRR0,LJSS1)\r\n      IF (IIRR.GT.0 .AND. JJSS.GT.0) SB35 = CAB(K)*GL(L)*RIX*RJY*\r\n     1                                      F(IIRR,JJSS)\r\n      IF (IIRR.GT.0 .AND. JJSS.GT.0) SB36 = CAB(K)*GL(L)*RJX*RIY*\r\n     1                                      F(IIRR,JJSS)\r\n      IF (MKRR  .GT. 0) SB37 = CAB(K)*GL(L)*RKY*H4*F(MKRR,NLSS1)\r\n      IF (KMRR  .GT. 0) SB38 = CAB(K)*GL(L)*RKX*H4*F(KMRR,LNSS1)\r\n      IF (NJSS  .GT. 0) SB39 = CAB(K)*GL(L)*RJY*H4*F(MIRR1,NJSS)\r\n      IF (JNSS  .GT. 0) SB40 = CAB(K)*GL(L)*RJX*H4*F(IMRR1,JNSS)\r\n      ST = ST + SB1 + SB2 + SB3 + SB4 +\r\n     1     0.25*(SB5+SB6-SB7-SB8) + (SB9+SB10-SB11-SB12-SB13+SB14) +\r\n     2     0.25*(SB15-SB16+SB17-SB18) + (-SB19-SB20+SB21+SB22+SB23-SB24)\r\n     3   + 0.5*(SB25+SB26-SB27-SB28-SB29-SB30+SB31+SB32) +\r\n     4     0.5*(-SB33-SB34+SB35+SB36+SB37+SB38-SB39-SB40)\r\n  220 CONTINUE\r\n      IF (UNIMEM) GO TO 240\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n      KSHL(IJ) = ST\r\n      KSHL(JI) = KSHL(IJ)\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 230\r\nC\r\nC     IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE\r\nC     CALCULATION\r\nC\r\n      IF (NOTS) GO TO 270\r\nC\r\nC     CURRENTLY, TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL\r\nC     ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE\r\nC\r\n  270 CONTINUE\r\n      CALL GMMATD (Q,6,6,0,KSHL(1),6,32,0,QKS(1))\r\n      CALL GMMATD (Q,6,6,0,KSHL(193),6,32,0,QKS(193))\r\n      CALL GMMATD (QQQINV,20,18,+1,KSHL(385),20,32,0,QKS(385))\r\n      DO 290 I = 1,30\r\n      DO 280 J = 1,6\r\n      IJ = (I-1)*32 + J\r\n      JI = (I-1)*6  + J\r\n      KSHL(    JI) = QKS(  IJ)\r\n      KSHL(180+JI) = QKS(6+IJ)\r\n  280 CONTINUE\r\n  290 CONTINUE\r\n      DO 310 I = 1,30\r\n      DO 300 J = 1,20\r\n      IJ = (I-1)*32 + J + 12\r\n      JI = (I-1)*20 + J + 360\r\n      KSHL(JI) = QKS(IJ)\r\n  300 CONTINUE\r\n  310 CONTINUE\r\n      CALL GMMATD (KSHL(  1),30,6 ,0,Q,6,6,1 ,QKS(  1))\r\n      CALL GMMATD (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181))\r\n      CALL GMMATD (KSHL(361),30,20,0,QQQINV,20,18,0,QKS(361))\r\n      DO 330 I = 1,30\r\n      DO 320 J = 1,6\r\n      IJ = (I-1)*30 + J\r\n      JI = (I-1)*6  + J\r\n      CMS(IJ  ) = QKS(JI    )\r\n      CMS(IJ+6) = QKS(JI+180)\r\n  320 CONTINUE\r\n  330 CONTINUE\r\n      DO 350 I = 1,30\r\n      DO 340 J = 1,18\r\n      IJ = (I-1)*30 + J + 12\r\n      JI = (I-1)*18 + J + 360\r\n      CMS(IJ) = QKS(JI)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n      DO 360 I = 1,30\r\n      EE(I) = 0.0D0\r\n  360 CONTINUE\r\n      EE( 1) = IVECT(1)\r\n      EE( 2) = JVECT(1)\r\n      EE( 3) = KVECT(1)\r\n      EE( 6) = IVECT(2)\r\n      EE( 7) = JVECT(2)\r\n      EE( 8) = KVECT(2)\r\n      EE(11) = IVECT(3)\r\n      EE(12) = JVECT(3)\r\n      EE(13) = KVECT(3)\r\n      EE(19) = IVECT(1)\r\n      EE(20) = JVECT(1)\r\n      EE(24) = IVECT(2)\r\n      EE(25) = JVECT(2)\r\n      EE(29) = IVECT(3)\r\n      EE(30) = JVECT(3)\r\n      DO 390 K = 1,6\r\n      DO 380 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 370 J = 1,30\r\n      CTM (I1,J) = CM1(K1,J)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\n      DO 420 K = 1,6\r\n      DO 410 I = 1,3\r\n      I2 = 5*(K-1)  + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 400 J = 1,30\r\n      CTM (I2,J) = CM1(K2,J)\r\n  400 CONTINUE\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      DO 450 K = 1,6\r\n      DO 440 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 430 J = 1,30\r\n      CM1(J,I1) = CTM (J,K1)\r\n  430 CONTINUE\r\n  440 CONTINUE\r\n  450 CONTINUE\r\n      DO 480 K = 1,6\r\n      DO 470 I = 1,3\r\n      I2 = 5*(K-1)  + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 460 J = 1,30\r\n      CM1(J,I2) = CTM(J,K2)\r\n  460 CONTINUE\r\n  470 CONTINUE\r\n  480 CONTINUE\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATE\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n      DO 490 I = 1,1296\r\n      CMT(I) = 0.0D0\r\n  490 CONTINUE\r\n      DO 500 I = 1,6\r\n      SIL(I) = I\r\n  500 CONTINUE\r\n      DO 510 I = 1,6\r\n      IF (NPVT .NE. IEST(I+1)) GO TO 510\r\n      NPIVOT = I\r\n      GO TO 520\r\n  510 CONTINUE\r\n      NOGO = .TRUE.\r\n      WRITE (IOUTPT,720) SFM,IEST(1)\r\n      RETURN\r\nC\r\n  520 CONTINUE\r\n      I    = NPIVOT\r\n      SIL1 = SIL(NPIVOT)\r\n      DO 650 J = 1,6\r\n      SIL2 = SIL(J)\r\n      DO 530 II = 1,36\r\n      BALOTR(II) = 0.0D0\r\n      KSUB(II)   = 0.0D0\r\n  530 CONTINUE\r\n      DO 550 K = 1,5\r\n      K1 = (SIL1-1)*5 + K\r\n      DO 540 L = 1,5\r\n      L1 = (SIL2-1)*5 + L\r\n      CSUB(K,L) = CM1(K1,L1)\r\n  540 CONTINUE\r\n  550 CONTINUE\r\n      CALL GMMATD (EE,6,5,0,CSUB,5,5,0,CSUBT)\r\n      CALL GMMATD (CSUBT,6,5,0,EE,6,5,+1,KSUBT)\r\n      DO 560 K = 1,6\r\n      DO 560 L = 1,6\r\n      K1 = (K-1)*6 + L\r\n      L1 = (L-1)*6 + K\r\n      KSUB(L1) = KSUBT(K1)\r\n  560 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 590\r\n      CALL TRANSD (IEST(4*SIL1+24),TRAND)\r\n      DO 570 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  570 CONTINUE\r\n      CALL GMMATD (BALOTR(1),6,6,1,KSUB(1),6,6,0,KSUBT)\r\n      DO 580 K = 1,36\r\n      KSUB(K) = KSUBT(K)\r\n  580 CONTINUE\r\n  590 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 630\r\n      IF (J .EQ. I) GO TO 610\r\n      CALL TRANSD (IEST(4*SIL2+24),TRAND)\r\n      DO 600 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  600 CONTINUE\r\n  610 CONTINUE\r\n      CALL GMMATD (KSUB(1),6,6,0,BALOTR(1),6,6,0,KSUBT)\r\n      DO 620 K = 1,36\r\n      KSUB(K) = KSUBT(K)\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n      CALL DS1B (KSUB(1),IEST(J+1))\r\n  650 CONTINUE\r\n      GO TO 730\r\n  660 CONTINUE\r\n      NOGO =.TRUE.\r\n      WRITE (IOUTPT,700) UFM,IEST(1)\r\n      RETURN\r\nC\r\n  670 CONTINUE\r\n      NOGO =.TRUE.\r\n      WRITE (IOUTPT,710) UFM,IEST(1)\r\n      RETURN\r\nC\r\n  700 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRSHL WITH ID =',I9,1H.)\r\n  710 FORMAT (A23,' 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS ',\r\n     1       'THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID =',I9,1H.)\r\n  720 FORMAT (A25,' 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT ',\r\n     1       'GRID POINTS FOR ELEMENT ID =',I9,1H.)\r\n  730 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dtshls.f",
    "content": "      SUBROUTINE DTSHLS\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                    INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1          INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2          INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3          INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4          INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5          INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6          INTEGER\r\nC     ECPT( 8) = THETA                                         REAL\r\nC     ECPT( 9) = MATERIAL  ID 1                                INTEGER\r\nC     ECPT(10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT(11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT(12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT(13) = MATERIAL  ID 2                                INTEGER\r\nC     ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT(17) = MATERIAL  ID 3                                INTEGER\r\nC     ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT(21) = NON-STRUCTURAL MASS                           REAL\r\nC     ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE  IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID A               INTEGER\r\nC     ECPT(29) = COORDINATE X1                                 REAL\r\nC     ECPT(30) = COORDINATE Y1                                 REAL\r\nC     ECPT(31) = COORDINATE Z1                                 REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID B               INTEGER\r\nC     ECPT(33) = COORDINATE X1                                 REAL\r\nC     ECPT(34) = COORDINATE Y1                                 REAL\r\nC     ECPT(35) = COORDINATE Z1                                 REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID C               INTEGER\r\nC     ECPT(37) = COORDINATE X1                                 REAL\r\nC     ECPT(38) = COORDINATE Y1                                 REAL\r\nC     ECPT(39) = COORDINATE Z1                                 REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID D               INTEGER\r\nC     ECPT(41) = COORDINATE X1                                 REAL\r\nC     ECPT(42) = COORDINATE Y1                                 REAL\r\nC     ECPT(43) = COORDINATE Z1                                 REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID E               INTEGER\r\nC     ECPT(45) = COORDINATE X1                                 REAL\r\nC     ECPT(46) = COORDINATE Y1                                 REAL\r\nC     ECPT(47) = COORDINATE Z1                                 REAL\r\nC     ECPT(48) = COORDINATE SYSTEM ID FOR GRID F               INTEGER\r\nC     ECPT(49) = COORDINATE X1                                 REAL\r\nC     ECPT(50) = COORDINATE Y1                                 REAL\r\nC     ECPT(51) = COORDINATE Z1                                 REAL\r\nC     EST (52) = ELEMENT  TEMPERATURE\r\nC     EST (53) = ENFORCED ELEMENT DEFORMATION (NOT USED)\r\nC     EST (54) = LOADING  TEMPERATURE\r\nC     EST (55) TO EST (90) = GLOBAL DISPLACEMENT VECTOR\r\nC                REPLACES ECPT(65) TO ECPT(100) DESCRIBED BELOW\r\nC     ECPT(65) = U1-DISP FOR X1\r\nC     ECPT(66) = V1-DISP FOR Y1\r\nC     ECPT(67) = W1-DISP FOR Z1\r\nC     ECPT(68) = ALFA1-ROTATION FOR X1\r\nC     ECPT(69) = BETA1-ROTATION FOR Y1\r\nC     ECPT(70) = GAMA1-ROTATION FOR Z1\r\nC     ECPT(71) = U2-DISP FOR X2\r\nC     ECPT(72) = V2-DISP FOR Y2\r\nC     ECPT(73) = W2-DISP FOR Z2\r\nC     ECPT(74) = ALFA2-ROTATION FOR X2\r\nC     ECPT(75) = BETA2-ROTATION FOR Y2\r\nC     ECPT(76) = GAMA2-ROTATION FOR Z2\r\nC     ECPT(77) = U3-DISP FOR X3\r\nC     ECPT(78) = V3-DISP FOR Y3\r\nC     ECPT(79) = W3-DISP FOR Z3\r\nC     ECPT(80) = ALFA3-ROTATION FOR X3\r\nC     ECPT(81) = BETA3-ROTATION FOR Y3\r\nC     ECPT(82) = GAMA3-ROTATION FOR Z3\r\nC     ECPT(83) = U4-DISP FOR X4\r\nC     ECPT(84) = V4-DISP FOR Y4\r\nC     ECPT(85) = W4-DISP FOR Z4\r\nC     ECPT(86) = ALFA4-ROTATION FOR X4\r\nC     ECPT(87) = BETA4-ROTATION FOR Y4\r\nC     ECPT(88) = GAMA4-ROTATION FOR Z4\r\nC     ECPT(89) = U5-DISP FOR X5\r\nC     ECPT(90) = V5-DISP FOR Y5\r\nC     ECPT(91) = W5-DISP FOR Z5\r\nC     ECPT(92) = ALFA5-ROTATION FOR X5\r\nC     ECPT(93) = BETA5-ROTATION FOR Y5\r\nC     ECPT(94) = GAMA5-ROTATION FOR Z5\r\nC     ECPT(95) = U6-DISP FOR X6\r\nC     ECPT(96) = V6-DISP FOR Y6\r\nC     ECPT(97) = W6-DISP FOR Z6\r\nC     ECPT(98) = ALFA6-ROTATION FOR X6\r\nC     ECPT(99) = BETA6-ROTATION FOR Y6\r\nC     ECPT(100)= GAMA6-ROTATION FOR Z6\r\nC\r\nC     RK AND SK ARE EXPONENTS IN THICKNESS VARIATION\r\nC\r\n      LOGICAL          NOTS,UNIMEM,UNIBEN,NOGO\r\n      INTEGER          RK(3),SK(3),RL(3),SL(3),XU(32),YU(32),XV(32),\r\n     1                 YV(32),XW(32),YW(32),SIL(6),SIL1,SIL2,\r\n     2                 RR,RR0,RR1,SS,SS0,SS1\r\n      REAL             J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3),XC(6),\r\n     1                 YC(6),ZC(6),F(18,18)\r\n      REAL             TRAND(9),BALOTR(36),KSUB(36),KSUBT(36)\r\n      REAL             D334,D132,D232,RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY,\r\n     1                 RMNY,RMY1,RNY1,X,Y,QQQ(20,20),CMT(1296),\r\n     2                 CTM(36,36),CMS(900),CM1(30,30),CAB(3),CSUB(5,5),\r\n     3                 CSUBT(6,5),C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,\r\n     4                 H4,H5,H6,SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9,\r\n     5                 RIX,RIY,RJX,RJY,RKX,RKY,RLX,RLY,EE(30),Q(6,6),\r\n     6                 QQQINV(360),QKS(960),KSHL(1024),MSHL(1024)\r\n      REAL             SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19\r\n     1,                SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29\r\n     2,                SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39\r\n     3,                SB40,CC(10),ST\r\n      DOUBLE PRECISION KSUBD(36)\r\n      DIMENSION        IND(6,3),EL(3),FL(3),GL(3),NAME(2),INDEX(20,3),\r\n     1                 ICS(6),IEST(100),NL(6),SIGX(3),SIGY(3),SIGXY(3),\r\n     2                 ES(6),STRESS(3),STR(3),VEC(3),PH1OUT(250),\r\n     3                 TM(3,12),EMOD(9),TMMM(36),TRANS(9),EPH1(6),\r\n     4                 EE1(6),NSIL(6),TI(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/  IBUF,IOUTPT\r\n      COMMON /DS1AET/  EST(100)\r\n      COMMON /DS1AAA/  NPVT,ICSTM,NCSTM\r\n      COMMON /DS1ADP/  F\r\n      COMMON /MATIN /  MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/  EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                 RJ11,RJ12,RJ22\r\n      EQUIVALENCE      (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)),\r\n     1                 (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)),\r\n     2                 (C9,CC(9)),(C10,CC(10)),\r\n     3                 (NSIL(1),PH1OUT(2)),(TM(1,1),TMMM(1)),(A,DISTA),\r\n     4                 (B,DISTB),(C,DISTC),(IEST(1),EST(1)),\r\n     5                 (CM1(1,1),CMS(1)),(THK1,TBEND1),(THK2,TBEND3),\r\n     6                 (THK3,TBEND5),(CMT(1025),QQQINV(1)),\r\n     7                 (CTM(1,1),CMT(1),KSHL(1),MSHL(1),QQQ(1,1)),\r\n     8                 (CMT(437),PH1OUT(1)),(CMT(687),INDEX(1,1)),\r\n     9                 (CMT(747),IND(1,1)),(TI(1),EST(65))\r\n      DATA    RK    /  0,1,0 /, RL / 0,1,0 /, SK / 0,0,1 /, SL / 0,0,1/,\r\n     1        XU    /  0,1,0,2,1,0,26*0    /, YU / 0,0,1,0,1,2,26*0   /,\r\n     2        XV    /  6*0,0,1,0,2,1,0,20*0/, YV /6*0,0,0,1,0,1,2,20*0/,\r\n     3        XW    /  12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0   /,\r\n     4        YW    /  12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5   /,\r\n     5        BLANK ,  NAME / 4H    ,4HDTSH,4HLD    /,\r\n     6        DEGRA /  0.0174532925 /\r\nC\r\n      NOTS   =.FALSE.\r\n      IDELE  = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.333333333333\r\n      TBEND3 = (EST(15)*12.0)**0.333333333333\r\n      TBEND5 = (EST(16)*12.0)**0.333333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      DO 20 I = 28,48,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n   20 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE\r\nC     SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      TSHR   = (TSHR1+TSHR3+TSHR5)/3.0\r\n      IF (TSHR1 .EQ. 0.0) NOTS =.TRUE.\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      ELTEMP = EST(52)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUTE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF (MATID1 .LE. 0) GO TO 670\r\n      CALL MAT (IDELE)\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID2\r\n      CALL MAT (IDELE)\r\n      D13    = EM(3)\r\n      D23    = EM(5)\r\n      D33    = EM(6)\r\n      J11    = 0.0\r\n      J12    = 0.0\r\n      J22    = 0.0\r\n      IF (NOTS) GO TO 30\r\n      MATFLG = 3\r\n      MATID  = MATID3\r\n      CALL MAT (IDELE)\r\n      J11    = 1.0/(RJ11*TSHR)\r\n      J12    = 0.0\r\n      J22    = 1.0/(RJ22*TSHR)\r\n   30 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 40 I = 1,20\r\n      DO 40 J = 1,20\r\n   40 QQQ(I,J) = 0.0\r\n      DO 50 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n   50 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 60 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      DO 60 J = 1,6\r\n      Q(I,J) = QQQ(I1,J)\r\n   60 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,QQQINV(1),0,DETERM,ISING,IND)\r\n      IF (ISING .EQ. 2) GO TO 660\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     AGAIN RESET ISING TO -1\r\nC\r\n      ISING = -1\r\n      CALL INVERS (20,QQQ,20,QQQINV(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 660\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MA CALCULATIONS\r\nC\r\n      DO 70 I = 1,20\r\n      DO 70 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n   70 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\nC     OBTAIN MEMBRANE STRESSES\r\nC\r\nC     RELEVANT PORTION OF STRESS ROUTINE OF TRIM6 IS CODED HERE\r\nC\r\nC     TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC COORDINATES\r\nC\r\n      ES(1) = IVECT(1)\r\n      ES(2) = JVECT(1)\r\n      ES(3) = IVECT(2)\r\n      ES(4) = JVECT(2)\r\n      ES(5) = IVECT(3)\r\n      ES(6) = JVECT(3)\r\n      DO 90 I = 1,9\r\n      BALOTR(I) = 0.0\r\n   90 CONTINUE\r\nC\r\n      DO 100 I = 1,7\r\n      PH1OUT(I) = EST(I)\r\n  100 CONTINUE\r\n      PH1OUT( 8) = EST(10)\r\n      PH1OUT( 9) = EST(11)\r\n      PH1OUT(10) = EST(12)\r\n      PH1OUT(11) = TREF\r\n      EMOD(1) = EM(1)\r\n      EMOD(2) = EM(2)\r\n      EMOD(3) = EM(3)\r\n      EMOD(4) = EM(2)\r\n      EMOD(5) = EM(4)\r\n      EMOD(6) = EM(5)\r\n      EMOD(7) = EM(3)\r\n      EMOD(8) = EM(5)\r\n      EMOD(9) = EM(6)\r\nC\r\n      CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0,PH1OUT(228))\r\n      DO 210 JJ = 1,3\r\n      J = 2*JJ - 1\r\n      X = XC(J)\r\n      Y = YC(J)\r\n      DO 110 I = 1,36\r\n      TMMM(I) = 0.0\r\n  110 CONTINUE\r\nC\r\nC     TM MATRIX IS THE PRODUCT OF B AND Q INVERSE MATRICES\r\nC\r\n      DO 120 J = 1,6\r\n      J1 = (J-1)*2 + 1\r\n      J2 = J1 + 1\r\n      TM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J)\r\n      TM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J)\r\n      TM(3,J1) = TM(2,J2)\r\n      TM(3,J2) = TM(1,J1)\r\n  120 CONTINUE\r\nC\r\nC     ZERO STRESS VECTOR STORAGE\r\nC\r\n      DO 130 I = 1,3\r\n      STRESS(I) = 0.0\r\n  130 CONTINUE\r\nC\r\n      DO 180 II = 1,6\r\n      IJ1 = (JJ-1)*54 + (II-1)*9 + 12\r\n      IF (ICS(II) .EQ. 0) GO TO 140\r\n      CALL TRANSS (IEST(4*II+24),TRANS)\r\n      CALL GMMATS (ES,3,2,+1,TRANS,3,3,0,EE1)\r\n      GO TO 160\r\n  140 CONTINUE\r\n      DO 150 I = 1,3\r\n      DO 150 J = 1,2\r\n      I1 = (I-1)*2 + J\r\n      J1 = (J-1)*3 + I\r\n      EE1(J1) = ES(I1)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n      MZ = (II-1)*6 + 1\r\n      CALL GMMATS (EMOD,3,3,0,TMMM(MZ),2,3,+1,EPH1)\r\n      CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1))\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\nC\r\n      NPOINT = 55 + (II-1)*6\r\nC\r\nC     POINTER TO  3X3 S SUB I MATRIX\r\nC\r\n      NPT1 = 12 + (II-1)*9 + (JJ-1)*54\r\nC\r\n      CALL GMMATS (PH1OUT(NPT1),3,3,0,EST(NPOINT),3,1,0,VEC(1))\r\n      DO 170 J = 1,3\r\n      STRESS(J) = STRESS(J) + VEC(J)\r\n      STR(J) = STRESS(J)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      IF (IEST(54) .EQ. -1) GO TO 200\r\n      TEM = EST(54) - PH1OUT(11)\r\n      DO 190 I = 1,3\r\n      STRESS(I) = STRESS(I) - PH1OUT(227+I)*TEM\r\n      STR(I) = STRESS(I)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      SIGX(JJ)  = STRESS(1)\r\n      SIGY(JJ)  = STRESS(2)\r\n      SIGXY(JJ) = STRESS(3)\r\n  210 CONTINUE\r\nC\r\nC     EL, FL, GL ARE COEFFICIENTS IN LINEAR VARIATION OF SIGX, SIGY,\r\nC     SIGXY RESPECTIVELY OVER THE ELEMENT\r\nC\r\nC\r\n      EL(1) = (SIGX(1)*A + SIGX(2)*B)/(A+B)\r\n      EL(2) = (SIGX(2) - SIGX(1))/(A+B)\r\n      EL(3) = (SIGX(3) - EL(1))/C\r\n      FL(1) = (SIGY(1)*A + SIGY(2)*B)/(A+B)\r\n      FL(2) = (SIGY(2) - SIGY(1))/(A+B)\r\n      FL(3) = (SIGY(3) - FL(1))/C\r\n      GL(1) = (SIGXY(1)*A + SIGXY(2)*B)/(A+B)\r\n      GL(2) = (SIGXY(2) - SIGXY(1))/(A+B)\r\n      GL(3) = (SIGXY(3) - GL(1))/C\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION\r\nC\r\n      CALL AF (F,18,A,B,C,CAB1,CAB2,CAB3,TMEM1,TMEM3,TMEM5,0)\r\n      CAB(1) = CAB1\r\n      CAB(2) = CAB2\r\n      CAB(3) = CAB3\r\n      UNIMEM =.FALSE.\r\n      UNIBEN =.FALSE.\r\nC\r\n      D334 = D33*4.0\r\n      D132 = D13*2.0\r\n      D232 = D23*2.0\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,18,A,B,C,A1,A2,A3,THK1,THK2,THK3,0)\r\n      IF (ABS(CAB2).LE.1.E-6 .AND. ABS(CAB3).LE.1.E-6) UNIMEM =.TRUE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE.\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1   = A1SQ*A1\r\n      C2   = 3.0*A1SQ*A2\r\n      C3   = 3.0*A1SQ*A3\r\n      C4   = 3.0*A1*A2SQ\r\n      C5   = 6.0*A1*A2*A3\r\n      C6   = 3.0*A3SQ*A1\r\n      C7   = A2SQ*A2\r\n      C8   = 3.0*A2SQ*A3\r\n      C9   = 3.0*A2*A3SQ\r\n      C10  = A3*A3SQ\r\n      H4   = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1       Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5   = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1       Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6   = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1       Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4   = H4*2.0\r\n      H6   = H6*2.0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W\r\nC\r\n      H5   = H5*2.0\r\nC\r\n      DO 260 I = 1,32\r\n      IX   = XU(I)\r\n      RIX  = IX\r\n      JX   = YU(I)\r\n      RJX  = JX\r\n      KX   = XV(I)\r\n      RKX  = KX\r\n      LX   = YV(I)\r\n      RLX  = LX\r\n      MX   = XW(I)\r\n      RMX  = MX\r\n      NX   = YW(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0)\r\n      RNX1 = RNX*(RNX-1.0)\r\nC\r\n      DO 250 J = I,32\r\n      IJ   = (I-1)*32 + J\r\n      JI   = (J-1)*32 + I\r\n      IY   = XU(J)\r\n      RIY  = IY\r\n      JY   = YU(J)\r\n      RJY  = JY\r\n      KY   = XV(J)\r\n      RKY  = KY\r\n      LY   = YV(J)\r\n      RLY  = LY\r\n      MY   = XW(J)\r\n      RMY  = MY\r\n      NY   = YW(J)\r\n      RNY  = NY\r\n      RMNY = RMY*RNY\r\n      RMY1 = RMY*(RMY-1.0)\r\n      RNY1 = RNY*(RNY-1.0)\r\n      ST   = 0.0\r\n      DO 230 K = 1,3\r\n      DO 220 L = 1,3\r\n      RR    = RK(K) + RL(L)\r\n      RR0   = RK(K) + RL(L) - 1\r\n      RR1   = RK(K) + RL(L) + 1\r\n      SS    = SK(K) + SL(L)\r\n      SS0   = SK(K) + SL(L) - 1\r\n      SS1   = SK(K) + SL(L) + 1\r\n      MM    = MX + MY\r\n      MMRR0 = MM + RR0\r\n      MMRR1 = MM + RR1\r\n      NN    = NX + NY\r\n      NNSS1 = NN + SS1\r\n      NNSS0 = NN + SS0\r\n      MMRR  = MM + RR\r\n      NNSS  = NN + SS\r\n      KK    = KX + KY\r\n      KKRR0 = KK + RR0\r\n      LL    = LX + LY\r\n      LLSS1 = LL + SS1\r\n      II    = IX + IY\r\n      JJ    = JX + JY\r\n      IIRR1 = II + RR1\r\n      JJSS0 = JJ + SS0\r\n      KI    = KX + IY\r\n      KIRR  = KI + RR\r\n      LJ    = LX + JY\r\n      LJSS  = LJ + SS\r\n      IK    = IX + KY\r\n      IKRR  = IK + RR\r\n      JL    = JX + LY\r\n      JLSS  = JL + SS\r\n      KM    = KX + MY\r\n      KMRR  = KM + RR\r\n      LN    = LX + NY\r\n      LNSS1 = LN + SS1\r\n      IM    = IX + MY\r\n      IMRR1 = IM + RR1\r\n      JN    = JX + NY\r\n      JNSS  = JN + SS\r\n      KKRR  = KK + RR\r\n      LLSS  = LL + SS\r\n      KIRR1 = KI + RR1\r\n      LJSS0 = LJ + SS0\r\n      MK    = MX + KY\r\n      MKRR  = MK + RR\r\n      NLSS1 = NX + LY + SS1\r\n      MI    = MX + IY\r\n      MIRR1 = MI + RR1\r\n      NJ    = NX + JY\r\n      NJSS  = NJ + SS\r\n      IKRR0 = IK + RR0\r\n      JLSS1 = JL + SS1\r\n      IIRR  = II + RR\r\n      JJSS  = JJ + SS\r\n      IKRR1 = IK + RR1\r\n      JLSS0 = JL + SS0\r\n      LNSS1 = LN + SS1\r\n      KIRR0 = KI + RR0\r\n      LJSS1 = LJ + SS1\r\n      SB1   = 0.0\r\n      SB2   = 0.0\r\n      SB3   = 0.0\r\n      SB4   = 0.0\r\n      SB5   = 0.0\r\n      SB6   = 0.0\r\n      SB7   = 0.0\r\n      SB8   = 0.0\r\n      SB9   = 0.0\r\n      SB10  = 0.0\r\n      SB11  = 0.0\r\n      SB12  = 0.0\r\n      SB13  = 0.0\r\n      SB14  = 0.0\r\n      SB15  = 0.0\r\n      SB16  = 0.0\r\n      SB17  = 0.0\r\n      SB18  = 0.0\r\n      SB19  = 0.0\r\n      SB20  = 0.0\r\n      SB21  = 0.0\r\n      SB22  = 0.0\r\n      SB23  = 0.0\r\n      SB24  = 0.0\r\n      SB25  = 0.0\r\n      SB26  = 0.0\r\n      SB27  = 0.0\r\n      SB28  = 0.0\r\n      SB29  = 0.0\r\n      SB30  = 0.0\r\n      SB31  = 0.0\r\n      SB32  = 0.0\r\n      SB33  = 0.0\r\n      SB34  = 0.0\r\n      SB35  = 0.0\r\n      SB36  = 0.0\r\n      SB37  = 0.0\r\n      SB38  = 0.0\r\n      SB39  = 0.0\r\n      SB40  = 0.0\r\n      IF (MMRR0 .GT. 0) SB1 = CAB(K)*EL(L)*RMX*RMY*F(MMRR0,NNSS1)\r\n      IF (NNSS0 .GT. 0) SB2 = CAB(K)*FL(L)*RNX*RNY*F(MMRR1,NNSS0)\r\n      IF (MMRR.GT.0 .AND. NNSS.GT.0) SB3 = CAB(K)*GL(L)*RNX*RMY*\r\n     1                                     F(MMRR,NNSS)\r\n      IF (MMRR.GT.0 .AND. NNSS.GT.0) SB4 = CAB(K)*GL(L)*RMX*RNY*\r\n     1                                     F(MMRR,NNSS)\r\n      IF (KKRR0 .GT. 0) SB5 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (JJSS0 .GT. 0) SB6 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB7 = CAB(K)*EL(L)*RKX*RJY*\r\n     1                                     F(KIRR,LJSS)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB8 = CAB(K)*EL(L)*RJX*RKY*\r\n     1                                     F(IKRR,JLSS)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB9 = CAB(K)*EL(L)*RKX*RJY*\r\n     1                                     F(KIRR,LJSS)\r\n      IF (KKRR0 .GT. 0) SB10 = CAB(K)*EL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KMRR  .GT. 0) SB11 = CAB(K)*EL(L)*RKX*H5*F(KMRR,LNSS1)\r\n      IF (JJSS0 .GT. 0) SB12 = CAB(K)*EL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB13 = CAB(K)*EL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (JNSS  .GT. 0) SB14 = CAB(K)*EL(L)*RJX*H5*F(IMRR1,JNSS)\r\n      IF (KKRR0 .GT. 0) SB15 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB16 = CAB(K)*FL(L)*RKX*RJY*\r\n     1                                      F(KIRR,LJSS)\r\n      IF (JJSS0 .GT. 0) SB17 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB18 = CAB(K)*FL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (KIRR.GT.0 .AND. LJSS.GT.0) SB19 = CAB(K)*FL(L)*RKX*RJY*\r\n     1                                      F(KIRR,LJSS)\r\n      IF (KKRR0 .GT. 0) SB20 = CAB(K)*FL(L)*RKX*RKY*F(KKRR0,LLSS1)\r\n      IF (KMRR  .GT. 0) SB21 = CAB(K)*FL(L)*RKX*H5*F(KMRR,LNSS1)\r\n      IF (JJSS0 .GT. 0) SB22 = CAB(K)*FL(L)*RJX*RJY*F(IIRR1,JJSS0)\r\n      IF (IKRR.GT.0 .AND. JLSS.GT.0) SB23 = CAB(K)*FL(L)*RJX*RKY*\r\n     1                                      F(IKRR,JLSS)\r\n      IF (JNSS  .GT. 0) SB24 = CAB(K)*FL(L)*RJX*H5*F(IMRR1,JNSS)\r\n      IF (KKRR.GT.0 .AND. LLSS.GT.0) SB25 = CAB(K)*GL(L)*RLX*RKY*\r\n     1                                      F(KKRR,LLSS)\r\n      IF (KKRR.GT.0 .AND. LLSS.GT.0) SB26 = CAB(K)*GL(L)*RKX*RLY*\r\n     1                                      F(KKRR,LLSS)\r\n      IF (LJSS0 .GT. 0) SB27 = CAB(K)*GL(L)*RLX*RJY*F(KIRR1,LJSS0)\r\n      IF (JLSS0 .GT. 0) SB28 = CAB(K)*GL(L)*RJX*RLY*F(IKRR1,JLSS0)\r\n      IF (MKRR  .GT. 0) SB29 = CAB(K)*GL(L)*RKY*H6*F(MKRR,NLSS1)\r\n      IF (KMRR  .GT. 0) SB30 = CAB(K)*GL(L)*RKX*H6*F(KMRR,LNSS1)\r\n      IF (NJSS  .GT. 0) SB31 = CAB(K)*GL(L)*RJY*H6*F(MIRR1,NJSS)\r\n      IF (JNSS  .GT. 0) SB32 = CAB(K)*GL(L)*RJX*H6*F(IMRR1,JNSS)\r\n      IF (IKRR0 .GT. 0) SB33 = CAB(K)*GL(L)*RIX*RKY*F(IKRR0,JLSS1)\r\n      IF (KIRR0 .GT. 0) SB34 = CAB(K)*GL(L)*RKX*RIY*F(KIRR0,LJSS1)\r\n      IF (IIRR.GT.0 .AND. JJSS.GT.0) SB35 = CAB(K)*GL(L)*RIX*RJY*\r\n     1                                      F(IIRR,JJSS)\r\n      IF (IIRR.GT.0 .AND. JJSS.GT.0) SB36 = CAB(K)*GL(L)*RJX*RIY*\r\n     1                                      F(IIRR,JJSS)\r\n      IF (MKRR  .GT. 0) SB37 = CAB(K)*GL(L)*RKY*H4*F(MKRR,NLSS1)\r\n      IF (KMRR  .GT. 0) SB38 = CAB(K)*GL(L)*RKX*H4*F(KMRR,LNSS1)\r\n      IF (NJSS  .GT. 0) SB39 = CAB(K)*GL(L)*RJY*H4*F(MIRR1,NJSS)\r\n      IF (JNSS  .GT. 0) SB40 = CAB(K)*GL(L)*RJX*H4*F(IMRR1,JNSS)\r\n      ST = ST + SB1 + SB2 + SB3 + SB4 +\r\n     1     0.25*(SB5+SB6-SB7-SB8) + (SB9+SB10-SB11-SB12-SB13+SB14) +\r\n     2     0.25*(SB15-SB16+SB17-SB18) + (-SB19-SB20+SB21+SB22+SB23-SB24)\r\n     3   + 0.5*(SB25+SB26-SB27-SB28-SB29-SB30+SB31+SB32) +\r\n     4     0.5*(-SB33-SB34+SB35+SB36+SB37+SB38-SB39-SB40)\r\n  220 CONTINUE\r\n      IF (UNIMEM) GO TO 240\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n      KSHL(IJ) = ST\r\n      KSHL(JI) = KSHL(IJ)\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 230\r\nC\r\nC     IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE\r\nC     CALCULATION\r\nC\r\n      IF (NOTS) GO TO 270\r\nC\r\nC     CURRENTLY, TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL\r\nC     ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE\r\nC\r\n  270 CONTINUE\r\n      CALL GMMATS (Q,6,6,0,KSHL(1),6,32,0,QKS(1))\r\n      CALL GMMATS (Q,6,6,0,KSHL(193),6,32,0,QKS(193))\r\n      CALL GMMATS (QQQINV,20,18,+1,KSHL(385),20,32,0,QKS(385))\r\n      DO 290 I = 1,30\r\n      DO 280 J = 1,6\r\n      IJ = (I-1)*32 + J\r\n      JI = (I-1)*6  + J\r\n      KSHL(    JI) = QKS(  IJ)\r\n      KSHL(180+JI) = QKS(6+IJ)\r\n  280 CONTINUE\r\n  290 CONTINUE\r\n      DO 310 I = 1,30\r\n      DO 300 J = 1,20\r\n      IJ = (I-1)*32 + J + 12\r\n      JI = (I-1)*20 + J + 360\r\n      KSHL(JI) = QKS(IJ)\r\n  300 CONTINUE\r\n  310 CONTINUE\r\n      CALL GMMATS (KSHL(  1),30,6 ,0,Q,6,6,1 ,QKS(  1))\r\n      CALL GMMATS (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181))\r\n      CALL GMMATS (KSHL(361),30,20,0,QQQINV,20,18,0,QKS(361))\r\n      DO 330 I = 1,30\r\n      DO 320 J = 1,6\r\n      IJ = (I-1)*30 + J\r\n      JI = (I-1)*6  + J\r\n      CMS(IJ  ) = QKS(JI    )\r\n      CMS(IJ+6) = QKS(JI+180)\r\n  320 CONTINUE\r\n  330 CONTINUE\r\n      DO 350 I = 1,30\r\n      DO 340 J = 1,18\r\n      IJ = (I-1)*30 + J + 12\r\n      JI = (I-1)*18 + J + 360\r\n      CMS(IJ) = QKS(JI)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n      DO 360 I = 1,30\r\n      EE(I) = 0.0D0\r\n  360 CONTINUE\r\n      EE( 1) = IVECT(1)\r\n      EE( 2) = JVECT(1)\r\n      EE( 3) = KVECT(1)\r\n      EE( 6) = IVECT(2)\r\n      EE( 7) = JVECT(2)\r\n      EE( 8) = KVECT(2)\r\n      EE(11) = IVECT(3)\r\n      EE(12) = JVECT(3)\r\n      EE(13) = KVECT(3)\r\n      EE(19) = IVECT(1)\r\n      EE(20) = JVECT(1)\r\n      EE(24) = IVECT(2)\r\n      EE(25) = JVECT(2)\r\n      EE(29) = IVECT(3)\r\n      EE(30) = JVECT(3)\r\n      DO 390 K = 1,6\r\n      DO 380 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 370 J = 1,30\r\n      CTM (I1,J) = CM1(K1,J)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\n      DO 420 K = 1,6\r\n      DO 410 I = 1,3\r\n      I2 = 5*(K-1)  + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 400 J = 1,30\r\n      CTM (I2,J) = CM1(K2,J)\r\n  400 CONTINUE\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      DO 450 K = 1,6\r\n      DO 440 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 430 J = 1,30\r\n      CM1(J,I1) = CTM (J,K1)\r\n  430 CONTINUE\r\n  440 CONTINUE\r\n  450 CONTINUE\r\n      DO 480 K = 1,6\r\n      DO 470 I = 1,3\r\n      I2 = 5*(K-1)  + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 460 J = 1,30\r\n      CM1(J,I2) = CTM(J,K2)\r\n  460 CONTINUE\r\n  470 CONTINUE\r\n  480 CONTINUE\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATE\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n      DO 490 I = 1,1296\r\n      CMT(I) = 0.0\r\n  490 CONTINUE\r\n      DO 500 I = 1,6\r\n      SIL(I) = I\r\n  500 CONTINUE\r\n      DO 510 I = 1,6\r\n      IF (NPVT .NE. IEST(I+1)) GO TO 510\r\n      NPIVOT = I\r\n      GO TO  520\r\n  510 CONTINUE\r\n      NOGO = .TRUE.\r\n      WRITE (IOUTPT,720) SFM,IEST(1)\r\n      RETURN\r\nC\r\n  520 CONTINUE\r\n      I    = NPIVOT\r\n      SIL1 = SIL(NPIVOT)\r\n      DO 650 J = 1,6\r\n      SIL2 = SIL(J)\r\n      DO 530 II = 1,36\r\n      BALOTR(II) = 0.0\r\n      KSUB(II)   = 0.0\r\n  530 CONTINUE\r\n      DO 550 K = 1,5\r\n      K1 = (SIL1-1)*5 + K\r\n      DO 540 L = 1,5\r\n      L1 = (SIL2-1)*5 + L\r\n      CSUB(K,L) = CM1(K1,L1)\r\n  540 CONTINUE\r\n  550 CONTINUE\r\n      CALL GMMATS (EE,6,5,0,CSUB,5,5,0,CSUBT)\r\n      CALL GMMATS (CSUBT,6,5,0,EE,6,5,+1,KSUBT)\r\n      DO 560 K = 1,6\r\n      DO 560 L = 1,6\r\n      K1 = (K-1)*6 + L\r\n      L1 = (L-1)*6 + K\r\n      KSUB(L1) = KSUBT(K1)\r\n  560 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 590\r\n      CALL TRANSS (IEST(4*SIL1+24),TRAND)\r\n      DO 570 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  570 CONTINUE\r\n      CALL GMMATS (BALOTR(1),6,6,1,KSUB(1),6,6,0,KSUBT)\r\n      DO 580 K = 1,36\r\n      KSUB(K) = KSUBT(K)\r\n  580 CONTINUE\r\n  590 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 630\r\n      IF (J .EQ. I) GO TO 610\r\n      CALL TRANSS (IEST(4*SIL2+24),TRAND)\r\n      DO 600 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  600 CONTINUE\r\n  610 CONTINUE\r\n      CALL GMMATS (KSUB(1),6,6,0,BALOTR(1),6,6,0,KSUBT)\r\n      DO 620 K = 1,36\r\n      KSUB(K) = KSUBT(K)\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n      DO 640 IJK = 1,36\r\n  640 KSUBD(IJK) = DBLE(KSUB(IJK))\r\n      CALL DS1B (KSUBD(1),IEST(J+1))\r\n  650 CONTINUE\r\n      GO TO 730\r\n  660 CONTINUE\r\n      NOGO =.TRUE.\r\n      WRITE (IOUTPT,700) UFM,IEST(1)\r\n      RETURN\r\nC\r\n  670 CONTINUE\r\n      NOGO =.TRUE.\r\n      WRITE (IOUTPT,710) UFM,IEST(1)\r\n      RETURN\r\nC\r\n  700 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRSHL WITH ID =',I9,1H.)\r\n  710 FORMAT (A23,' 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS ',\r\n     1       'THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID =',I9,1H.)\r\n  720 FORMAT (A25,' 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT ',\r\n     1       'GRID POINTS FOR ELEMENT ID =',I9,1H.)\r\n  730 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumerg.f",
    "content": "      SUBROUTINE DUMERG\r\nC\r\nC     DRIVER FOR DMAP MODULE UMERGE\r\nC\r\nC     UMERGE   USET,PHIA,PHIO/PHIF/C,N,MAJOR/C,N,SUB0/C,N,SUB1 $\r\nC\r\n      INTEGER         USET,PHIA,PHIO,PHIF,SCR1,SUB0,SUB1,IABIT(16),\r\n     1                NAME(2),IB(3)\r\n      COMMON /BLANK / MAJOR(2),SUB0(2),SUB1(2)\r\n      COMMON /BITPOS/ IBIT(32),IABIT\r\n      DATA    NAME  / 4HUMER , 4HGE       /\r\n      DATA    USET  , PHIA,PHIO,PHIF,SCR1 / 101,102,103,201,301/\r\nC\r\n      NOGO = 0\r\nC\r\nC     DECIDE IF CHARACTERS ARE LEGAL BIT NUMBERS\r\nC\r\n      IB(1) = MAJOR(1)\r\n      IB(2) = SUB0(1)\r\n      IB(3) = SUB1(1)\r\nC\r\n      DO 30 J = 1,3\r\n      DO 20 I = 1,32\r\n      IF (IB(J) .NE. IABIT(I)) GO TO 20\r\n      IB(J) = IBIT(I)\r\n      GO TO 30\r\n   20 CONTINUE\r\nC\r\nC     INVALID\r\nC\r\n      CALL MESAGE (59,IB(J),NAME)\r\n      NOGO = 1\r\n   30 CONTINUE\r\nC\r\n      IF (NOGO .EQ. 1) CALL MESAGE (-7,0,NAME)\r\n      CALL SDR1B (SCR1,PHIA,PHIO,PHIF,IB(1),IB(2),IB(3),USET,0,0)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/dumod1.f",
    "content": "      SUBROUTINE DUMOD1\r\nC\r\nC\r\nC     DUMMY DECK FOR MODULE DUMMOD1 - SEE USER'S MANUAL SECTION 5.6.\r\nC                                     FOR MODULE PROPERTIES, CHECK\r\nC                                     SUBROUTINE XMPLDD OR USE DIAG 31.\r\nC\r\nC     REVISED 5/91  BY G.CHAN/UNISYS\r\nC     THIS DUMMY MODULE IS IN LINK3 ONLY (SEE XLNKDD). IT CAN BE USED TO\r\nC     FORCE NASTRAN TO DO A LINK SWITCHING AND THEN CONTINUE. e.g.\r\nC     MODULE XXX (NOT IN LINK3) GETS INTO TROUBLE WITH SFM 3018\r\nC     (REQUIREMENTS EXCEED AVAILABLE FILES). USE DMAP ALTER TO CALL THIS\r\nC     DUMOD1 MODLUE A STEP AHEAD OF MODULE XXX. THUS NASTRAN IS FORCED\r\nC     TO DO A LINKSWITCH AND HOUSEKEEPING MODULE XSFA IS CALLED TO CLEAN\r\nC     UP THE FILE ALLOCATION TABLE. THIS MAY SOLVE THE SFM 3018 PROBLEM.\r\nC\r\nC\r\n      INTEGER PARM1,PARM2,PARM3,PARM4,PARM5\r\nC     INTEGER INFILE(1),OUTFIL(2),SCRFIL(3)\r\nC\r\n      COMMON /BLANK / PARM1,PARM2,PARM3,PARM4,PARM5\r\nC     COMMON /ZZZZZZ/ X(1)\r\nC\r\nC     DATA INFILE /101/\r\nC     DATA OUTFIL /201,202/\r\nC     DATA SCRFIL /301,302,303/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumod2.f",
    "content": "      SUBROUTINE DUMOD2\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE DUMMOD2 - SEE USER'S MANUAL SECTION 5.6.\r\nC                                     FOR MODULE PROPERTIES, CHECK\r\nC                                     SUBROUTINE XMPLDD OR USE DIAG 31.\r\nC\r\nC*****\r\nC\r\n      COMPLEX PARM9\r\nC\r\n      DOUBLE PRECISION PARM8,PARM10\r\nC\r\n      INTEGER PARM1,PARM2,PARM3,PARM4,PARM7\r\nC     INTEGER INFILE(8),OUTFIL(8),SCRFIL(10)\r\nC\r\n      COMMON /BLANK/ PARM1,PARM2,PARM3,PARM4,PARM5,PARM6,\r\n     1               PARM7(2),PARM8,PARM9,PARM10(2)\r\n      COMMON /ZZZZZZ/ X(1)\r\nC\r\nC     DATA INFILE /101,102,103,104,105,106,107,108/\r\nC     DATA OUTFIL /201,202,203,204,205,206,207,208/\r\nC     DATA SCRFIL /301,302,303,304,305,306,307,308,309,310/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumod3.f",
    "content": "      SUBROUTINE DUMOD3\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE DUMMOD3 - SEE USER'S MANUAL SECTION 5.6.\r\nC                                     FOR MODULE PROPERTIES, CHECK\r\nC                                     SUBROUTINE XMPLDD OR USE DIAG 31.\r\nC\r\nC*****\r\nC\r\n      COMPLEX          PARM9\r\nC\r\n      DOUBLE PRECISION PARM8,PARM10\r\nC\r\n      INTEGER          PARM1,PARM2,PARM3,PARM4,PARM7\r\n      INTEGER          INFILE(8),OUTFIL(8),SCRFIL(10)\r\nC\r\n      COMMON /BLANK /  PARM1,PARM2,PARM3,PARM4,PARM5,PARM6,\r\n     1                 PARM7(2),PARM8,PARM9,PARM10(2)\r\n      COMMON /ZZZZZZ/  X(1)\r\nC\r\n      DATA    INFILE/  101,102,103,104,105,106,107,108/\r\n      DATA    OUTFIL/  201,202,203,204,205,206,207,208/\r\n      DATA    SCRFIL/  301,302,303,304,305,306,307,308,309,310/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumod4.f",
    "content": "      SUBROUTINE DUMOD4\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE DUMMOD4 - SEE USER'S MANUAL SECTION 5.6.\r\nC                                     FOR MODULE PROPERTIES, CHECK\r\nC                                     SUBROUTINE XMPLDD OR USE DIAG 31.\r\nC\r\nC*****\r\nC\r\n      COMPLEX          PARM9\r\nC\r\n      DOUBLE PRECISION PARM8,PARM10\r\nC\r\n      INTEGER          PARM1,PARM2,PARM3,PARM4,PARM7\r\n      INTEGER          INFILE(8),OUTFIL(8),SCRFIL(10)\r\nC\r\n      COMMON /BLANK /  PARM1,PARM2,PARM3,PARM4,PARM5,PARM6,\r\n     1                 PARM7(2),PARM8,PARM9,PARM10(2)\r\n      COMMON /ZZZZZZ/  X(1)\r\nC\r\n      DATA    INFILE/  101,102,103,104,105,106,107,108/\r\n      DATA    OUTFIL/  201,202,203,204,205,206,207,208/\r\n      DATA    SCRFIL/  301,302,303,304,305,306,307,308,309,310/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumod5.f",
    "content": "      SUBROUTINE DUMOD5\r\nC\r\nC     MSFC ROUTINE, TO CONVERT NASTRAN TABULAR DATA BLOCKS INTO 2-\r\nC     DIMENSIONAL DATA BLOCKS (S.P. REAL ONLY) FOR CONVENIENCE IN\r\nC     MANIPULATION AND OUTPUT, SPECIALLY TO BE USED WITH OUTPUT5 AND\r\nC     INPUT5.\r\nC\r\nC     THIS VERSION WAS MODIFIED BY R. MOORE/MSFC IN JAN. 1989\r\nC     TO ALLOW SELECTION OF EITHER 8 OR 16 VALUES PER ELEMENT BY\r\nC     USING A 7TH PARAMETER ON DMAP\r\nC\r\nC     DUMMOD5  T1,T2,T3,T4,T5/O1,O2,O3,O4,O5/C,N,P1/C,N,P2/C,N,P3\r\nC              C,N,P4/C,N,P5/C,N,Q/C,N,R $\r\nC\r\nC     TI  = INPUT GINO FILE, OEF1, OQG1 OR SIMILAR TYPE OF TABULAR\r\nC           DATA BLOCKS\r\nC     OI  = OUTPUT GINO DATA BLOCK, PACKED, BUT NOT QUITE A REGULAR\r\nC           NASTRAN MATRIX BLOCK, SEE PICTURE BELOW\r\nC           IF OI IS PURGED (NOT PRESENT), MATRIX BLOCK IS WRITTEN OUT\r\nC           TO FORTRAN UNIT 15 (INP1) DIRECTLY, IN BINARY RECORDS,\r\nC           BANDED MATRIX FORM (FROM FIRST NON-ZERO TO LAST NON-ZERO\r\nC           ELEMENTS), D.R. OR S.P.\r\nC     PI  = TI TABLE IS MAPPED INTO A PI X 8 2-DIMENSIONAL BLOCKS.\r\nC           EACH BLOCK IS PACKED AS A COLUMN OF A MATRIX\r\nC     Q   = ELEMENT/GRID POINT ID PRINT-PUNCH CONTROL\r\nC         = -1, NO PRINT AND NO PUNCH\r\nC         =  0, PRINT ONLY, NO PUNCH\r\nC         = +1, BOTH PRINT AND PUNCH\r\nC         = /2/ CONTENTS OF OUTPUT TAPE, INP1, WILL BE PRINTED OUT\r\nC     R   = SWITCH TO CHANGE FROM 8 TO 16 VALUES IN TABLE MAPPING\r\nC           DEFAULT = 0 WHICH SETS TO 8.    R = 1 SETS IT TO 16\r\nC\r\nC     CDC USER ONLY - FORTRAN UNIT 11 (UT1) IS USED INSTEAD OF 15 (INP1)\r\nC\r\nC\r\nC           |<------ 8 OR 16 ------->|\r\nC           ==========================\r\nC         / I                        I \\\r\nC        /  I------- TABULAR --------I  \\\r\nC       P1  I         DATA           I  BLOCK 1 (MATRIX COLUMN 1)\r\nC        \\  I-------- BLOCKS --------I  /\r\nC         \\ I                        I /\r\nC           ==========================\r\nC         / I                        I \\\r\nC        /  I------------------------I  \\\r\nC       P1  I                        I  BLOCK 2 (MATRIX COLUMN 2)\r\nC\r\nC     WRITTEN BY SOMEBODY FOR MARSHALL SPACE FLIGHT CENTER (MSFC).\r\nC     MODIFIED BY G.CHAN/UNISYS TO EMPLOY OPEN-CORE SPACE INSTEAD OF\r\nC     THE FIXED DIMENSION ARRAYS, AND TO EXPAND FROM ONE INPUT DATA\r\nC     BLOCK TO FIVE. IF A CORRESPONDING OUTPUT FILE IS MISSING OR\r\nC     PURGED, THE DATA BLOCKS ARE WRITTEN DIRECTLY TO FORTRAN TAPE\r\nC     (UNIT 15, INP1) USING OUTPUT5 BINARY FORMAT.\r\nC\r\nC     CONTENTS OF INP1 TAPE IF IT IS WRITTEN -\r\nC\r\nC         RECORD   WORD     CONTENT                           TYPE\r\nC         ------  ------   ----------------------------------------\r\nC            0              TAPE HEADER RECORD\r\nC                   1-2     'XXXXXXXX', TAPE ID              2*BCD\r\nC                   3-4     MACHINE TYPE                     2*BCD\r\nC                   5-7     DATE                             3*INT\r\nC                    8      SYSTEM BUFFSIZE                    INT\r\nC                    9      0 (BINARY TAPE)                    INT\r\nC            1              FIRST MATRIX HEADER\r\nC                    1      0                                  INT\r\nC                   2,3     1,1                              2*INT\r\nC                    4      A DOUBLE PRECISION ZERO           D.P.\r\nC                   5-10    6 WORDS FROM MATRIX TRAILER      6*INT\r\nC                           (COL,ROW,FORM,TYPE,MAX,DENSITY-\r\nC                            TYPE=1 OR 3, DENSITY=1)\r\nC                  11-12    MATRIX DMAP NAME                 2*BCD\r\nC            2       1      1 (FIRST COLUMN ID)                INT\r\nC                    2      LOCATION OF FIST NON-ZERO ELEMENT  INT\r\nC                    3      LOCATION OF LAST NON-ZERO ELEMENT  INT\r\nC                   4-N     S.P. DATA                         REAL\r\nC            3       1      2 (SECOND COLUMN ID)               INT\r\nC                   2-N     SAME AS RECORD 1\r\nC            :      1-N     REPEAT FOR MORE COLUMNS\r\nC\r\nC            X       1      X (X-TH COLUMN ID, A NUL COLUMN)   INT\r\nC                   2-3     1,1                                INT\r\nC                   4-5     0.0,0.0                           REAL)\r\nC\r\nC            M      1-N     LAST COLUMN, SAME AS RECORD 1\r\nC           M+1      1      -1 (ELEM) OR -2 (GRID)             INT\r\nC                    2      1                                  INT\r\nC                    3      LENGTH OF ELEM./GRID ID LIST, L    INT\r\nC                  4-L+4    LIST OF ELEMENT OR GRID IDS        INT\r\nC\r\nC           M+2             SECOND MATRIX HEADER\r\nC            :       :      REPEAT 1 THRU (M+1) FOR THE SECOND MATRIX\r\nC\r\nC            :       :      REPEAT, UP TO 5 OUTPUT DATA BLOCKS PER TAPE\r\nC\r\nC     COMMENTS FROM G.C. -\r\nC     (1) THIS MODULE IS VERY LIMITED IN SCOPE. IT HANDLES ONLY SOME\r\nC         SPECIAL TYPES OF TABULAR INPUT DATA BLOCKS. THE (PI X 8) MATRI\r\nC         SPACE IS FOR PRINT/PUNCH PURPOSE. THE ORIGINAL PROGRAM SEEMS\r\nC         TO BE WRITTEN TO MEET A PARTICULAR JOB REQUIREMENT.\r\nC\r\nC     (2) CURRENT MODULE HANDLES ONLY SINGLE PRECISION DATA\r\nC\r\nC     (3) THE PROCEDURE TO READ AND/OR WRITE THE TAPE IS COMMONLY USED\r\nC         AMONG INPUTT5, OUTPUT5, AND DUMMOD5. ANY PROCEDURE CHANGE\r\nC         SHOULD BE MADE TO ALL THREE MODULES.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         NONE,     DEBUG\r\n      INTEGER         NAME(2),  MCB(7),   TRL(7),  IZ(8),  TEMP(10),\r\n     1                EG(2),    IR(5001), ID(5001),UNVC(2),MT(2),\r\n     2                INFILE(2),OUTFIL(2),DATE(3), SAVE(2,5)\r\n      REAL            Z,        EPSI\r\n      DOUBLE PRECISION          DZERO,    DTEMP\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\nCWKBNB\r\n      CHARACTER*80    DSNAMES\r\n      COMMON /DSNAME/ DSNAMES(80)\r\nCWKBNE\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MACHIN/ MACH,     IJHALF(3),MCHNAM\r\n      COMMON /SYSTEM/ IBUF,     NOUT,     DUMM(88),LPCH\r\n      COMMON /PACKX / TYPIN,    TYPOUT,   II,      JJ,     INCR\r\n      COMMON /BLANK / P(5),     Q,        R\r\n      EQUIVALENCE     (Z(1),IZ(1)),       (DATE(1),DUMM(13))\r\nCWKBI\r\n      DATA    IFIRST/0/\r\n      DATA    TAPE,   IRDLMT,   ID,       IM, IE,  XX,     EPSI    /\r\n     1        15,     5000,     5001*0,   1H-,1H=, 4HXXXX, 1.0E-30 /\r\n      DATA    ZERO,   ONE,      EG,                NAME            /\r\n     1        0,      1,        4HELEM,   4HGRID,  4HDUMO, 4HD5    /\r\n      DATA    UNVC,   MT  /     4HUNIV,   4HAC  ,  2*4H            /\r\n      DATA    DEBUG,  DZERO,    SAVE  /   .FALSE., 0.D0,   10*1H   /\r\nC\r\n      IF (MACH .EQ. 12) TAPE = 11\r\n      CALL PAGE\r\n      WRITE  (NOUT,5) P,Q,R\r\n    5 FORMAT ('0*** MODULE DUMMOD5 CALLED BY USER DMAP ALTER.', /5X,\r\n     1        'PARAMETERS ARE    P=',5(I5,1H,),5X,'Q=',I5,5X,'R=',I4,/)\r\n      I6 OR 8 = 8\r\n      IF (R .EQ. 1) I6 OR 8 = 16\r\n      INCR  = 1\r\n      TYPIN = 1\r\n      TYPOUT= 1\r\n      II    = 1\r\n      TAPX  =-1\r\n      TAPP  =-1\r\n      CORE  = KORSZ(Z)\r\n      BUF1  = CORE - IBUF + 1\r\n      BUF2  = BUF1 - IBUF\r\n      CORE  = BUF2 - 1\r\n      HALF  = CORE/2\r\n      HALF1 = HALF + 1\r\nCWKBNB\r\n      IF ( IFIRST .NE. 0 ) GO TO 1\r\n      CLOSE ( UNIT=TAPE)\r\n      OPEN ( UNIT=TAPE, FILE=DSNAMES(TAPE), FORM='UNFORMATTED',\r\n     1       STATUS='UNKNOWN' )\r\n      IFIRST = 1\r\n1     CONTINUE\r\nCWKBNE\r\nC\r\n      DO 450 LOOP = 1,5\r\n      INPUT = 100 + LOOP\r\n      OUTPT = 200 + LOOP\r\n      TRL(1)= INPUT\r\n      CALL RDTRL (TRL(1))\r\n      IF (TRL(1) .LE. 0) GO TO 450\r\n      CALL FNAME (INPUT,INFILE)\r\nC\r\nC     INPUT DATA PRECISION TYPE IS S.P. ONLY\r\nC\r\n      TYPE = 1\r\nC\r\n      IF (P(LOOP) .LE. 0) P(LOOP) = PV\r\n      PV = P(LOOP)\r\n      JJ = P(LOOP)*I6 OR 8\r\n      DO 10 J = 1,JJ\r\n   10 Z(J+HALF) = 0.0\r\n      CALL GOPEN (INPUT,Z(BUF1),0)\r\n      MCB(1) = OUTPT\r\n      CALL RDTRL (MCB)\r\n      NONE = .FALSE.\r\n      IF (MCB(1) .LE. 0) NONE = .TRUE.\r\n      IF (NONE) GO TO 15\r\n      CALL GOPEN  (OUTPT,Z(BUF2),1)\r\n      CALL FNAME  (OUTPT,OUTFIL)\r\n      CALL MAKMCB (MCB,OUTPT,0,2,1)\r\n      GO TO 20\r\n   15 TAPX = TAPX + 1\r\n      IF (TAPX .LE. 0) GO TO 20\r\n      SAVE(1,TAPX) = INFILE(1)\r\n      SAVE(2,TAPX) = INFILE(2)\r\n   20 I    = 1\r\n      NXZH = 0\r\n      NXIR = 0\r\n      CALL READ (*290,*30,INPUT,TEMP,10,1,M)\r\n      NWDS = TEMP(10)\r\n      NELTP= TEMP( 3)\r\nC     IF (NELTP.GE.11 .AND. NELTP.LE.14) GO TO 320\r\nC               CELAS1            CELAS4\r\n      GO TO 60\r\n   30 CALL MESAGE (-37,0,NAME)\r\n   40 CALL READ (*290,*50,INPUT,TEMP,10,1,M)\r\n      NWDS = TEMP(10)\r\n      IF (TEMP(3) .NE. NELTP) GO TO 60\r\n      GO TO 130\r\n   50 CALL MESAGE (-61,INPUT,NAME)\r\nC  60 IF (TEMP(3).GE.11 .AND. TEMP(3).LE.14) GO TO 320\r\nC                 CELAS1              CELAS4\r\n   60 CONTINUE\r\n      NEWLT = TEMP(3)\r\n      NWDS1 = NWDS - 1\r\n      NWDS2 = NWDS - 2\r\n      DO 70 L = 1,JJ\r\n   70 Z(L) = 0.0\r\n      DO 80 L = 1,IRDLMT\r\n   80 IR(L) = 0\r\n      CALL READ (*330,*350,INPUT,IR(1),1,0,M)\r\n      KOUNT = 0\r\n      DO 90 JSQ = 1,IRDLMT\r\n      KOUNT = KOUNT + 1\r\n      LOC = NWDS1*JSQ - NWDS2\r\n      CALL READ (*330,*350,INPUT,Z(LOC),NWDS1,0,M)\r\nC     LAST = LOC + NWDS1 - 1\r\n      LAST = KOUNT*I6 OR 8\r\n      CALL READ (*330,*100,INPUT,IR(JSQ+1),1,0,M)\r\n   90 CONTINUE\r\n  100 M   = NWDS*KOUNT\r\n      IJK = 0\r\n      DO 120 J = 1,M,NWDS\r\n      IJK = IJK + 1\r\n      NROP  = (IR(IJK)-1)/10\r\n      LOCID = NXIR + IJK\r\n      ID(LOCID) = NROP*100 + NEWLT\r\n      LOCA = (IJK*I6 OR 8) - (I6 OR 8 -1) + NXZH\r\n      LJ  = NWDS1*IJK - NWDS1\r\n      KK  = LOCA + NWDS + HALF\r\n      IF (KK .GT. CORE) CALL MESAGE (-8,0,NAME)\r\n      DO 110 JM = 1,NWDS1\r\n  110 Z(LOCA+JM-1+HALF) = Z(LJ+JM)\r\n  120 CONTINUE\r\n      NXIR = NXIR + JSQ\r\n      NXZH = NXZH + LAST\r\n      GO TO 40\r\n  130 IF (Q .LT. 1) GO TO 150\r\n      IS = IM\r\n      KK = HALF + NXZH\r\n      WRITE  (NOUT,140) IS,I,(Z(J),J=HALF1,KK)\r\n  140 FORMAT ('  COLUMN',A1,I5, /,(2X,8E16.6))\r\n  150 I = I + 1\r\n      IF (NONE) GO TO 180\r\n      CALL PACK (Z(HALF1),OUTPT,MCB)\r\n      GO TO 270\r\n  160 IF (TAPX .GT. 0) GO TO 170\r\nC\r\nC     WRITE TAPE HEADER AND MATRIX HEADER\r\nC     (CURRENTLY, OUTPUT TAPE IS WRITTEN OUT IN SINGLE PRECISION ONLY)\r\nC     CHANGE IN 89 VERSION -\r\nC     MUST SET MATRIX DENSITY IN MATRIX TRAILER TO NON-ZERO IF INPUT5\r\nC     IS TO BE USED\r\nC\r\n      TAPX = 1\r\n      SAVE(1,TAPX) = INFILE(1)\r\n      SAVE(2,TAPX) = INFILE(2)\r\n      MT(1) = MCHNAM\r\n      IF (MACH .NE. 3) GO TO 162\r\n      MT(1) = UNVC(1)\r\n      MT(2) = UNVC(2)\r\n  162 WRITE (TAPE) XX,XX,MT,DATE,IBUF,ZERO\r\n      IF (DEBUG) WRITE (NOUT,165) XX,XX,MT,DATE,IBUF,ZERO\r\n  165 FORMAT ('0+++TAPE HEADER/DUMMOD5-',/3X,2A4,1X,2A4,3I4,2I6)\r\n  170 IF (TAPX .EQ. TAPP) GO TO 190\r\n      TAPP   = TAPX\r\n      TRL(5) = TYPOUT\r\n      TRL(7) = 1\r\n      WRITE (TAPE) ZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),INFILE\r\n      IF (DEBUG) WRITE (NOUT,175) ZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),\r\n     1           INFILE\r\n  175 FORMAT (' +++MATRIX HEADER/DUMMOD5- ',3I5,D8.0,6I5,1X,2A4)\r\n      GO TO 190\r\nC\r\n  180 ASSIGN 270 TO RETN\r\n  190 DO 200 JB = II,JJ\r\nCWKBNB 8/94 ALPHA-VMS\r\n      ITYPE = NUMTYP( Z(JB+HALF) )\r\n      IF ( ITYPE .LE. 1 ) GO TO 200\r\nCWKBNE 8/94 ALPHA-VMS\r\n      IF (ABS(Z(JB+HALF)) .GT. EPSI) GO TO 210\r\n  200 CONTINUE\r\n      WRITE (TAPE) I,ONE,ONE,(ZERO,J=1,TYPE)\r\n      IF (DEBUG) WRITE (NOUT,205) I,ONE,ONE,(ZERO,J=1,TYPE)\r\n  205 FORMAT (' +++ZEROS/DUMMOD5- ',7I5)\r\n      GO TO 265\r\n  210 JE = JJ\r\n      DO 220 J = II,JJ\r\nCWKBNB 8/94 ALPHA-VMS\r\n      ITYPE = NUMTYP( Z(JE+HALF) )\r\n      IF ( ITYPE .LE. 1 ) GO TO 220\r\nCWKBNE 8/94 ALPHA-VMS\r\n      IF (ABS(Z(JE+HALF)) .GT. EPSI) GO TO 230\r\n  220 JE = JE - 1\r\n  230 GO TO (260,240,240,250), TYPE\r\n  240 IF (MOD(JB,2) .EQ. 0) JB = JB - 1\r\n      IF (MOD(JE,2) .EQ. 1) JE = JE + 1\r\n      GO TO 260\r\n  250 J = MOD(JB,4)\r\n      IF (J .EQ. 0) J = 4\r\n      JB = JB - J + 1\r\n      J  = MOD(JE,4)\r\n      IF (J .EQ. 0) J = 4\r\n      JE = JE - J + 4\r\n  260 WRITE (TAPE) I,JB,JE,(Z(J+HALF),J=JB,JE)\r\n      IF (DEBUG) WRITE (NOUT,262) I,JB,JE\r\n  262 FORMAT (' +++DATA RECORD/DUMMOD5- ',3I5)\r\n  265 GO TO RETN, (270,370)\r\nC\r\n  270 DO 280 L = 1,JJ\r\n  280 Z(L+HALF) = 0.0\r\n      NXZH = 0\r\n      NXIR = 0\r\n      GO TO 60\r\n  290 IF (Q .LT. 0) GO TO 300\r\n      IS = IE\r\n      KK = HALF + NXZH\r\n      WRITE (NOUT,140) IS,I,(Z(J),J=HALF1,KK)\r\n  300 ASSIGN 370 TO RETN\r\n      IF (NONE) GO TO 160\r\n      CALL PACK (Z(HALF1),OUTPT,MCB)\r\n      MCB(3) = JJ\r\n      CALL WRTTRL (MCB)\r\n      IF (Q .EQ. 2) WRITE (NOUT,310) (MCB(J),J=1,5)\r\n  310 FORMAT (/2X,'MCB=',6I8)\r\n      GO TO 370\r\nC 320 CALL READ (*330,*40 ,INPUT,IR(1),1,0,M)\r\nC     CALL READ (*330,*350,INPUT, Z(1),1,0,M)\r\nC     Z(1) = 0.0\r\nC     GO TO 320\r\n  330 WRITE  (NOUT,340) INFILE\r\n  340 FORMAT (/5X,'*** EOF ENCOUNTERED ON INPUT ',2A4,' DATA BLOCK')\r\n      GO TO 440\r\n  350 WRITE  (NOUT,360) INFILE\r\n  360 FORMAT (/5X,'*** INPUT ',2A4,'DATA BLOCK IS EMPTY')\r\n      GO TO 440\r\n  370 IF (.NOT.NONE) WRITE (NOUT,380) UIM,INFILE,OUTFIL\r\n  380 FORMAT (A29,', MODULE DUMMOD5 SUCCESSFULLY PROCESSED TABULAR ',\r\n     1        'DATA FROM ',2A4,' TO DATA BLOCK ',2A4, /5X,\r\n     2        'IN GINO PACKED FORM')\r\n      IF (NONE) WRITE (NOUT,390) UIM,INFILE,TAPE\r\n  390 FORMAT (A29,', MODULE DUMMOD5 SUCCESSFULLY COPIED TABULAR DATA ',\r\n     1        'FROM ',2A4,' TO OUTPUT TAPE', /5X,\r\n     3        '(FORTRAN UNIT',I4,') IN BANDED MATRIX FORM')\r\n      IF (Q .GT. 0) WRITE (LPCH,400) (ID(J),J=1,NXIR)\r\n  400 FORMAT (8I10)\r\n      L = EG(1)\r\n      IF (NEWLT .GT. 0) GO TO 420\r\n      L = EG(2)\r\n      DO 410 J = 1,NXIR\r\n  410 ID(J) = ID(J)/100\r\n  420 WRITE  (NOUT,430) L,INFILE,(ID(J),J=1,NXIR)\r\n  430 FORMAT (//5X,A4,'-ID ARRAY FOLLOWS/FROM ',2A4, (/5X,15I8))\r\n      IF (.NOT.NONE) GO TO 440\r\n      I = -1\r\n      IF (NEWLT .EQ. 0) I = -2\r\n      WRITE (TAPE) I,ONE,NXIR,(ID(J),J=1,NXIR)\r\n      IF (DEBUG) WRITE (NOUT,435) I,ONE,NXIR\r\n  435 FORMAT (' +++ELEM/GRID ID RECORD/DUMMOD5- ',3I5)\r\n  440 CONTINUE\r\n      CALL CLOSE (INPUT,1)\r\n      IF (.NOT.NONE) CALL CLOSE (OUTPT,1)\r\n  450 CONTINUE\r\nC\r\n      IF (TAPX .LE. 0) GO TO 590\r\n      WRITE  (NOUT,455) UIM,TAPE,(SAVE(1,J),SAVE(2,J),J=1,TAPX)\r\n  455 FORMAT (A29,', FOLLOWING DATA BLOCKS WERE COPIED TO FORTRAN UNIT',\r\n     1        I3,' BY MODULE DUMMOD5', /5X,\r\n     2        'USING UNFORMATTED (BINARY) WRITE', /6X,5(2A4,3X))\r\n      ENDFILE TAPE\r\n      REWIND TAPE\r\nC\r\nC     TO READ THE OUTPUT TAPE, Q=/2/\r\nC\r\n      IF (IABS(Q) .LT. 2) GO TO 590\r\n      CALL PAGE1\r\n      K = 1\r\n      READ (TAPE,END=575) MCB,J,I\r\n      WRITE  (NOUT,460) MCB,J\r\n  460 FORMAT (//,'  TAPEID=',2A4,'   FROM ',A4,A2,' MACHINE,  DATE',I5,\r\n     1        1H/,I2,1H/,I2,'  BINARY TAPE.   BUFFSIZE=',I7//)\r\n  470 READ (TAPE,END=580) I,JB,JE,(Z(J),J=JB,JE)\r\n      IF (I) 560,480,500\r\n  480 BACKSPACE TAPE\r\n      READ (TAPE,END=580) I,JB,JE,DTEMP,(IZ(J),J=1,8)\r\n      WRITE  (NOUT,490) K,IZ(7),IZ(8),(IZ(J),J=1,6)\r\n  490 FORMAT (//,'  DATA BLOCK',I3,3X,2A4,'  TRAILER=',6I5)\r\n      K = K + 1\r\n      GO TO 470\r\n  500 WRITE  (NOUT,510) I,JB,JE,(Z(J),J=JB,JE)\r\n  510 FORMAT (//,'  COLUMN RECORD =',I3,'   JB,JE =',2I5,/,(1X,10E13.6))\r\n      GO TO 470\r\nC\r\n  560 L = EG(-I)\r\n      WRITE  (NOUT,570) L,(IZ(J),J=JB,JE)\r\n  570 FORMAT (//2X,A4,'-ID LIST -',/,(1X,10I10))\r\n      GO TO 470\r\n  575 WRITE  (NOUT,577)\r\n  577 FORMAT (//,'  EMPTY TAPE')\r\n  580 REWIND TAPE\r\n  590 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumper.f",
    "content": "      SUBROUTINE DUMPER\r\nC\r\nC     THIS SUBROUTINE DUMPS THE OSCAR\r\nC\r\n      EXTERNAL         LSHIFT,RSHIFT,ANDF\r\n      INTEGER          IXTRA(3),CON1,CON2\r\n      INTEGER          RECNO,DMAPNO,OP,OSCAR(1),OS(5),RSHIFT,INAME(2),\r\n     1                 TP,AP,ANDF,VPS,PTYPE,BL,EL,ML,CL,CEITBL\r\n      DIMENSION        RA(4),ROSCAR(1),LOCO(300),AVPS(1),IHD(96)\r\n      DOUBLE PRECISION DPREC,DPREC1\r\n      COMMON /OUTPUT/ ITITLE(96),IHEAD(96)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XVPS  / VPS(1)\r\n      COMMON /XCEITB/ CEITBL(1)\r\n      COMMON /SYSTEM/ SYSBUF,OP,JUNK5(6),NLPP,JUNK6(2),NLINES\r\n      COMMON / XGPIC/ JUNK22(28),NOSGN\r\n      EQUIVALENCE     (VPS(1),AVPS(1)), (DPREC,RA(1)), (DPREC1,RA(3)),\r\n     1                (OSCAR(1),ROSCAR(1),OS(5)), (CORE(1),OS(1)),\r\n     2                (IOSBOT,OS(3))\r\n      DATA   MASK1,   MASK2,      MASK3,        MASK4,      MASK5     /\r\n     1       32767,   32768, 1073676288,   1073741824,     983040     /\r\n      DATA   CON1,    CON2 /     4HCONS,4HTANT                        /\r\n      DATA   IHD/2*4H    ,4H COS,4HMIC ,4H/ NA,4HSTRA,4HN DM,4HAP C,\r\n     1             4HOMPI,4HLER ,4H- OS,4HCAR ,4HLIST,4HING ,82*4H    /\r\n      DATA   IXTRA/4H(CON,4HTINU,4HED)  /\r\n      DATA   ION, IOFF /  4HON  ,4HOFF  /\r\nC\r\n   10 FORMAT (20X,2A4,5H(I  ),2X,I10)\r\n   20 FORMAT (20X,2A4,5H(R  ),2X,E15.6)\r\n   30 FORMAT (20X,2A4,5H(BCD),5X,2A4)\r\n   40 FORMAT (20X,2A4,5H(RDP),2X,D24.15)\r\nC\r\nC     INITIALIZE LOCO ARRAY - POINTS TO FIRST WORD IN MPL FOR MOD I\r\nC\r\n      J = 1\r\n      I = 1\r\n   50 LOCO(I) = J\r\n      J = J + MPL(J)\r\n      IF (J .GT. LMPL) GO TO 60\r\n      I = I + 1\r\n      GO TO 50\r\n   60 CONTINUE\r\nC\r\n      I = 1\r\n      DO 70 K=1,96\r\n      IHEAD(K) = IHD(K)\r\n   70 CONTINUE\r\n      CALL PAGE\r\n      DO 80 K=1,3\r\n      IHEAD(K+14) = IXTRA(K)\r\n   80 CONTINUE\r\nC\r\nC     PROCESS ENTRY HEADER\r\nC\r\n   90 IF (MI .EQ. 11) GO TO 910\r\n      NWE   = OSCAR(I  )\r\n      RECNO = OSCAR(I+1)\r\n      MI    = RSHIFT(OSCAR(I+2),16)\r\n      MSAVE = LOCO(MI)\r\n      ITYPE = OSCAR(I+2) - LSHIFT(RSHIFT(OSCAR(I+2),16),16)\r\n      IEXFLG= IOFF\r\n      IF (OSCAR(I+5).LT.0) IEXFLG = ION\r\n      DMAPNO = ANDF(NOSGN,OSCAR(I+5))\r\n      NLINES = NLINES + 4\r\n      IF (NLINES .LT. NLPP) GO TO 100\r\n      CALL PAGE\r\n      NLINES = NLINES + 4\r\n  100 CONTINUE\r\n      WRITE  (OP,110)\r\n  110 FORMAT (/1X,18(4H****))\r\n      WRITE  (OP,120) RECNO,ITYPE,IEXFLG,OSCAR(I+3),OSCAR(I+4),DMAPNO\r\n  120 FORMAT (2X,20HOSCAR RECORD NUMBER ,I3,5X,14HMODULE TYPE = ,I2,\r\n     1        5X,16HEXECUTE FLAG -- , A4, /2X,\r\n     2        15HMODULE NAME -  ,2A4,5X,21HDMAP INSTRUCTION NO. ,I3)\r\n      I   = I + 6\r\n      NWE = NWE - 6\r\n      GO TO (130,130,800,540), ITYPE\r\n  130 IO  = 1\r\n      NIP = OSCAR(I)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 140\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  140 CONTINUE\r\n      WRITE  (OP,150) NIP\r\n  150 FORMAT (/10X,29HSUMMARY OF INPUT DATA BLOCKS(,I2,2H ) )\r\n      J = 1\r\n  160 INAME(1) = OSCAR(I+1)\r\n      INAME(2) = OSCAR(I+2)\r\n      NTU = ANDF(OSCAR(I+3),MASK1)\r\n      TP  = RSHIFT(ANDF(OSCAR(I+3),MASK2),15)\r\n      LTU = RSHIFT(ANDF(OSCAR(I+3),MASK3),16)\r\n      AP  = RSHIFT(ANDF(OSCAR(I+3),MASK4),30)\r\n      IF (INAME(1).EQ.0 .AND. IO.EQ.1) GO TO 190\r\n      IF (INAME(1).EQ.0 .AND. IO.EQ.0) GO TO 220\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 170\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  170 CONTINUE\r\n      WRITE  (OP,180) INAME(1),INAME(2),AP,LTU,TP,NTU\r\n  180 FORMAT (20X,2A4,3X,I1,1H/,I5,1H/,I1,1H/,I5)\r\n      GO TO 250\r\n  190 NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 200\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  200 CONTINUE\r\n      WRITE  (OP,210) J\r\n  210 FORMAT (20X,24H********INPUT DATA BLOCK,I3,8H IS NULL)\r\n      GO TO 250\r\n  220 NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 230\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  230 CONTINUE\r\n      WRITE  (OP,240) J\r\n  240 FORMAT (20X,25H********OUTPUT DATA BLOCK,I3,8H IS NULL)\r\n  250 I = I + 3\r\n      J = J + 1\r\n      IF (J .LE. NIP) GO TO 160\r\n      IF (ITYPE .EQ. 2 ) IO = 0\r\nC\r\nC     PROCESS OUTPUT DATA BLOCKS\r\nC\r\n      IF (IO .EQ. 0) GO TO 280\r\n      IO  = 0\r\n      I   = I + 1\r\n      NIP = OSCAR(I)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 260\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  260 CONTINUE\r\n      WRITE  (OP,270) NIP\r\n  270 FORMAT (/10X,30HSUMMARY OF OUTPUT DATA BLOCKS(,I2,2H ))\r\n      J = 1\r\n      GO TO 160\r\nC\r\nC     PROCESS PARAMETER SECTION\r\nC\r\n  280 I = I + 2\r\n      NPARM = OSCAR(I)\r\n      IF (NPARM .EQ. 0) GO TO 530\r\n      J = 1\r\n      MPLP = MSAVE + 7\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 290\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  290 CONTINUE\r\n      WRITE  (OP,300) NPARM\r\n  300 FORMAT (/10X,22HSUMMARY OF PARAMETERS(,I2,2H ))\r\n  310 IF (OSCAR(I+1)) 440,440,320\r\nC\r\nC     SEARCH MPL FOR TYPE OF VARIABLE\r\nC\r\n  320 INAME(1) = CON1\r\n      INAME(2) = CON2\r\n      KK = IABS(MPL(MPLP))\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 330\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  330 CONTINUE\r\n      GO TO (340,360,370,390,400,420), KK\r\n  340 WRITE (OP,10) INAME(1),INAME(2),OSCAR(I+2)\r\n  350 I = I + 2\r\n      IF (MPL(MPLP) .GT. 0 ) MPLP = MPLP+1\r\n      MPLP = MPLP+1\r\n      J = J+1\r\n      IF (J .GT. NPARM) GO TO 530\r\n      GO TO 310\r\n  360 WRITE (OP,20) INAME(1),INAME(2),ROSCAR(I+2)\r\n      GO TO 350\r\n  370 WRITE (OP,30) INAME(1),INAME(2),OSCAR(I+2),OSCAR(I+3)\r\n  380 I = I + 3\r\n      IF (MPL(MPLP) .GT. 0) MPLP = MPLP+2\r\n      MPLP = MPLP + 1\r\n      J = J + 1\r\n      IF (J .GT. NPARM) GO TO 530\r\n      GO TO 310\r\n  390 RA(1) = ROSCAR(I+2)\r\n      RA(2) = ROSCAR(I+3)\r\n      WRITE (OP,40) INAME(1),INAME(2),DPREC\r\n      GO TO 380\r\n  400 WRITE  (OP,410) INAME(1),INAME(2),ROSCAR(I+2),ROSCAR(I+3)\r\n  410 FORMAT (20X,2A4,5H(CSP),2X,2E15.6)\r\n      GO TO 380\r\n  420 RA(1) = ROSCAR(I+2)\r\n      RA(2) = ROSCAR(I+3)\r\n      RA(3) = ROSCAR(I+4)\r\n      RA(4) = ROSCAR(I+5)\r\n      WRITE  (OP,430) INAME(1),INAME(2),DPREC,DPREC1\r\n  430 FORMAT (20X,2A4,5H(CDP),2X,2D24.15)\r\n      I = I + 5\r\n      IF (MPL(MPLP) .GT. 0) MPLP = MPLP+4\r\n      MPLP = MPLP+1\r\n      J = J + 1\r\n      IF (J .GT. NPARM) GO TO 530\r\n      GO TO 310\r\n  440 IVPS = ANDF(NOSGN,OSCAR(I+1))\r\n      INAME(1) = VPS(IVPS-3)\r\n      INAME(2) = VPS(IVPS-2)\r\n      PTYPE = RSHIFT(ANDF(VPS(IVPS-1),MASK5),16)\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 450\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  450 CONTINUE\r\n      GO TO (460,470,480,490,500,510), PTYPE\r\n  460 WRITE (OP,10) INAME(1),INAME(2),VPS(IVPS)\r\n      GO TO 520\r\n  470 WRITE (OP,20) INAME(1),INAME(2),AVPS(IVPS)\r\n      GO TO 520\r\n  480 WRITE (OP,30) INAME(1),INAME(2),VPS(IVPS),VPS(IVPS+1)\r\n      GO TO 520\r\n  490 RA(1) = AVPS(IVPS  )\r\n      RA(2) = AVPS(IVPS+1)\r\n      WRITE (OP,40) INAME(1),INAME(2),DPREC\r\n      GO TO 520\r\n  500 WRITE (OP,410) INAME(1),INAME(2),AVPS(IVPS),AVPS(IVPS+1)\r\n      GO TO 520\r\n  510 RA(1) = AVPS(IVPS  )\r\n      RA(2) = AVPS(IVPS+1)\r\n      RA(3) = AVPS(IVPS+2)\r\n      RA(4) = AVPS(IVPS+3)\r\n      WRITE (OP,430) INAME(1),INAME(2),DPREC,DPREC1\r\n  520 I = I + 1\r\n      J = J + 1\r\n      IF (MPL(MPLP) .GT. 0) MPLP = MPLP + PTYPE/3 + 1\r\n      IF (PTYPE .EQ. 6) MPLP = MPLP + 1\r\n      MPLP = MPLP + 1\r\n      IF (J .GT. NPARM) GO TO 530\r\n      GO TO 310\r\nC\r\nC     HAVE COMPLETED FUNCTIONAL MODULE\r\nC\r\n  530 I = I + 2\r\n      IF (ITYPE .EQ. 2) I = I - 1\r\n      GO TO 90\r\nC\r\nC     PROCESS EXECUTIVE MODULES\r\nC\r\n  540 IF (MI - 3) 550,550,600\r\nC\r\nC     PROCESS CHKPNT\r\nC\r\n  550 NDB = OSCAR(I)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 560\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  560 CONTINUE\r\n      WRITE  (OP,570) NDB\r\n  570 FORMAT (/10X,31HDATA BLOCKS TO BE CHECKPOINTED(,I2,2H ))\r\n      IST  = I + 1\r\n      IFIN = IST + 2 * NDB - 1\r\n      NPAGE = (10+NDB)/10+1\r\n      NLINES = NLINES + NPAGE\r\n      IF (NLINES .LT. NLPP) GO TO 580\r\n      CALL PAGE\r\n      NLINES = NLINES + NPAGE\r\n  580 CONTINUE\r\n      IF (NDB .NE. 0) WRITE(OP,590) (OSCAR(K),K=IST,IFIN)\r\n      I = I + 2*NDB+1\r\n  590 FORMAT ((20X,10(2A4,2X)),/)\r\n      GO TO 90\r\n  600 IF (MI - 8) 610,610,670\r\nC\r\nC     PROCESS SAVE\r\nC\r\n  610 NPARM  = OSCAR(I)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 620\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  620 CONTINUE\r\n      WRITE  (OP,630) NPARM\r\n  630 FORMAT (/10X,23HPARAMETERS TO BE SAVED(,I2,2H ))\r\n  640 FORMAT (20X,2A4,2X,I5)\r\n      J = 1\r\n  650 IVPS = OSCAR(I+1)\r\n      INAME(1) = VPS(IVPS-3)\r\n      INAME(2) = VPS(IVPS-2)\r\n      NLINES   = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 660\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  660 CONTINUE\r\n      WRITE (OP,640) INAME(1),INAME(2),OSCAR(I+2)\r\n      J = J + 1\r\n      I = I + 2\r\n      IF (J .LE. NPARM) GO TO 650\r\n      I = I + 1\r\n      GO TO 90\r\n  670 NDB = OSCAR(I)\r\n      NWE = NWE - 1\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 680\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  680 CONTINUE\r\n      IF (MI .EQ.  9) WRITE (OP,690) NDB\r\n      IF (MI .EQ. 10) WRITE (OP,700) NDB\r\n  690 FORMAT (/10X,25HDATA BLOCKS TO BE PURGED( ,I2,2H ))\r\n  700 FORMAT (/10X,26HDATA BLOCKS TO BE EQUIVED(,I2,2H ))\r\n      IST  = I + 1\r\n      IFIN = IST + 2*NDB - 1\r\n      IF (MI .NE. 10) GO TO 730\r\n      NTU = RSHIFT(OSCAR(IST+2),16)\r\n      LTU = OSCAR(IST+2) - LSHIFT(NTU,16)\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 710\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  710 CONTINUE\r\n      WRITE  (OP,720) OSCAR(IST),OSCAR(IST+1),NTU,LTU\r\n  720 FORMAT (20X,19HPRIMARY DATA BLOCK ,2A4,3X,I5,1H/,I5)\r\n      IST  = IST  + 3\r\n      IFIN = IFIN + 1\r\n      NWE  = NWE  - 3\r\n  730 CONTINUE\r\n      NPAGE  = (10+NDB)/10+1\r\n      NLINES = NLINES + NPAGE\r\n      IF (NLINES .LT. NLPP) GO TO 740\r\n      CALL PAGE\r\n      NLINES = NLINES + NPAGE\r\n  740 CONTINUE\r\n      WRITE  (OP,750)(OSCAR(K),K=IST,IFIN)\r\n  750 FORMAT ((20X,10(2A4,2X)),/)\r\n      NWE = NWE - 2*NDB + 2\r\n      IF (MI .EQ. 9) NWE = NWE - 2\r\n      IVPS = OSCAR(IFIN+1)\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .LT. NLPP) GO TO 760\r\n      CALL PAGE\r\n      NLINES = NLINES + 1\r\n  760 CONTINUE\r\n      IF (IVPS .LT. 0) WRITE (OP,770)\r\n  770 FORMAT (20X,35HDEFAULT PARAMETER - ALWAYS NEGATIVE)\r\n      IF (IVPS .LT. 0) GO TO 790\r\n      WRITE  (OP,780) VPS(IVPS-3),VPS(IVPS-2)\r\n  780 FORMAT (20X,21HCONTROL PARAMETER IS ,2A4)\r\n  790 CONTINUE\r\n      I = I + 2*NDB + 2\r\n      IF (MI .EQ. 10 ) I = I + 1\r\n      NWE = NWE - 1\r\n      IF (NWE .GT. 0) GO TO 670\r\n      GO TO 90\r\nC\r\nC     PROCESS CONTROL INSTRUCTIONS\r\nC\r\n  800 IRN = RSHIFT(OSCAR(I),16)\r\n      IF (MI .EQ. 11 .OR. MI .EQ. 12) GO TO 810\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 810\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  810 CONTINUE\r\n      IF (MI.NE.11 .AND. MI.NE.12) WRITE (OP,820) IRN\r\n  820 FORMAT (/10X,25HRE-ENTRY RECORD NUMBER = ,I4)\r\n      IF (MI .EQ. 6) GO TO 900\r\n      IW = OSCAR(I) - LSHIFT(IRN,16)\r\n      IF (MI .NE. 7) GO TO 860\r\nC\r\nC     CONDITIONAL INSTRUCTION\r\nC\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 840\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  840 CONTINUE\r\n      WRITE  (OP,850) VPS(IW-3),VPS(IW-2)\r\n  850 FORMAT (/10X,21HPARAMETER FOR COND = ,2A4)\r\n      GO TO 900\r\n  860 BL = RSHIFT(CEITBL(IW-1),16)\r\n      EL = CEITBL(IW-1) - LSHIFT(BL,16)\r\n      ML = RSHIFT(CEITBL(IW),16)\r\n      CL = CEITBL(IW  ) - LSHIFT(ML,16)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .LT. NLPP) GO TO 870\r\n      CALL PAGE\r\n      NLINES = NLINES + 2\r\n  870 CONTINUE\r\n      IF (MI .EQ. 5) WRITE (OP,880) BL,EL,ML,CL,CEITBL(IW+1),\r\n     1    CEITBL(IW+2)\r\n      IF (MI.EQ.11 .OR. MI.EQ.12) WRITE (OP,890) EL,ML,CL\r\n  880 FORMAT (/20X,I5,1H/,I5,5X,I5,1H/,I5,5X,2A4)\r\n  890 FORMAT (/20X,5X,1H/,I5,5X,I5,1H/,I5)\r\n  900 I = I + 1\r\n      GO TO 90\r\n  910 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dumx.f",
    "content": "      SUBROUTINE DUMX\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4H DUM/,     KK /\r\n     1        1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY DUM9 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM8 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM7 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM6 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM5 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM4 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM3 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM2 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DUM1 ( ICORE )\r\nC     ==========\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1       'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dupart.f",
    "content": "      SUBROUTINE DUPART\r\nC\r\nC     DRIVER FOR DMAP MODULE UPARTN\r\nC\r\nC     DMAP CALLING SEQUENCE IS\r\nC     UPARTN    USET,KNN/KFF,KSF,KFS,KSS/C,N,N/C,N,F/C,N,S $\r\nC\r\n      INTEGER         USET,SCR1,SUB0,SUB1,IABIT(16),NAME(2),IB(3)\r\n      COMMON /BLANK / MAJOR(2),SUB0(2),SUB1(2)\r\n      COMMON /BITPOS/ IBIT(32),IABIT\r\n      DATA    NAME  / 4HUPAR  ,4HTN   /\r\n      DATA    USET  , KNN, KFF, KSF, KFS, KSS, SCR1 /\r\n     1        101   , 102, 201, 202, 203, 204, 301  /\r\nC\r\nC\r\n      NOGO = 0\r\nC\r\nC     DECIDE IF CHARACTERS ARE LEGAL BIT NUMBERS\r\nC\r\n      IB(1) = MAJOR(1)\r\n      IB(2) = SUB0(1)\r\n      IB(3) = SUB1(1)\r\nC\r\n      DO 30 J = 1,3\r\n      DO 20 I = 1,32\r\n      IF (IB(J) .NE. IABIT(I)) GO TO 20\r\n      IB(J) = IBIT(I)\r\n      GO TO 30\r\n   20 CONTINUE\r\nC\r\nC     INVALID\r\n      CALL MESAGE (59,IB(J),NAME)\r\n      NOGO = 1\r\n   30 CONTINUE\r\nC\r\n      IF (NOGO .EQ. 1) CALL MESAGE (-7,0,NAME)\r\nC\r\n      CALL UPART (USET,SCR1,IB(1),IB(2),IB(3))\r\n      CALL MPART (KNN,KFF,KSF,KFS,KSS)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dvectr.f",
    "content": "      SUBROUTINE DVECTR (GPT,X,U,PEN)\r\nC\r\n      INTEGER GPT(1),PEN\r\n      REAL    X(3,1),U(2,1)\r\n      COMMON /BLANK/ NGP\r\nC\r\n      CALL LINE (0,0,0,0,0,-1)\r\nC\r\nC     DO NOT DRAW A VECTOR AT ANY GRID POINT WHOSE INDEX .LE. 0.\r\nC\r\n      DO 120 I = 1,NGP\r\n      J  = GPT(I)\r\n      IF (J .LE. 0) GO TO 120\r\n      X1 = X(2,J)\r\n      Y1 = X(3,J)\r\n      X2 = U(1,J)\r\n      Y2 = U(2,J)\r\n      CALL LINE (X1,Y1,X2,Y2,PEN,0)\r\n  120 CONTINUE\r\nC\r\n      CALL LINE (0,0,0,0,0,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dvmag.f",
    "content": "      DOUBLE PRECISION FUNCTION DVMAG (V1,EPS)\r\nC\r\nC     RETURNS DOUBLE PRECISION MAGNITUDE OF VECTOR V1\r\nC        DVMAG= 0.D0 WHEN .LE. EPS\r\nC\r\n      DOUBLE PRECISION V1(3), A, EPS, DADOTB\r\nC\r\nC\r\n      DVMAG= 0.D0\r\n      A= DADOTB(V1,V1)\r\n      IF (A .GT. 0.D0) DVMAG= DSQRT(A)\r\n      IF ( DVMAG .LE. EPS)             DVMAG= 0.D0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dypz.f",
    "content": "      SUBROUTINE DYPZ(KB,KS,LS,I,J1,J2,NYFLAG,          SGR,CGR,\r\n     *  FMACH,ARB,NBEA,LBO,LSO,JBO,DT)\r\nC   ***   GENERATES ROWS OF THE SUBMATRICES  DYP, DYZ  AND DYY\r\nC         USING  SUBROUTINE  SUBB\r\n      COMPLEX SUM,DT(1)\r\n      DIMENSION ARB(1),NBEA(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /ZZZZZZ / Z(1)\r\n      NDY  = 1\r\n      NYFL = NYFLAG\r\n      PI   = 3.1415926\r\n      EPS  = 0.00001\r\n      BETA = SQRT(1.0-FMACH**2)\r\n      JZ   = 0\r\n      LB   = LBO\r\nC  LB  IS THE BODY NUMBER ASSOCIATED WITH SENDING POINT  J\r\n      LS   = LSO\r\nC  LS IS THE INDEX OF THE  Y  AND  Z  COORDINATES OF SENDING POINT  J --\r\nC  LS RUNS FROM NSTRIP+NB-NBY+1  THROUGH  NSTRIP+NB\r\n      JB   = JBO-1\r\n      AR   = ARB(LB)\r\n      DO  30  J=J1,J2\r\n      JB   = JB+1\r\n      JZ   = JZ+1\r\n      CALL SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL,          PI,EPS,\r\n     *   SGR,CGR,AR,BETA,SUM,Z(IRIA),Z(IDELX),Z(IYB),Z(IZB),Z(IYS),\r\n     *  Z(IZS),Z(IX))\r\n      DT(J)= SUM\r\n      IF  (JZ.EQ.NBEA(LB))    GO TO  20\r\n      GO TO 30\r\n   20 CONTINUE\r\n      JZ   = 0\r\n      LB   = LB+1\r\n      LS   = LS+1\r\n      AR   = ARB(LB)\r\n   30 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dzpy.f",
    "content": "      SUBROUTINE DZPY(KB,KS,LS,I,J1,J2,NYFLAG,          SGR,CGR,\r\n     *   FMACH,ARB,NBEA,DT)\r\nC   ***   GENERATES ROWS OF THE SUBMATRICES  DZP, DZZ  AND  DZY\r\nC         USING  SUBROUTINE  SUBB\r\n      COMPLEX SUM,DT(1)\r\n      DIMENSION ARB(1),NBEA(1)\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA\r\n     *  ,INASB,IFLA1,IFLA2,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /ZZZZZZ / Z(1)\r\n      NDY  = 0\r\n      NYFL = NYFLAG\r\n      PI   = 3.1415926\r\n      EPS  = 0.00001\r\n      BETA = SQRT(1.0-FMACH**2)\r\n      JZ   = 0\r\n      LB   = 1\r\n      JB   = 0\r\n      AR   = ARB(LB)\r\nC  LS IS THE INDEX OF THE  Y  AND  Z  COORDINATES OF SENDING POINT  J --\r\nC  LS RUNS FROM NSTRIP+1  THROUGH  NSTRIP+NBZ\r\n      DO  30  J=J1,J2\r\n      JB   = JB+1\r\nC  JB  IS THE BODY-ELEMENT NUMBER IN BODY  LB  --  JB  RUNS FROM  1\r\nC  THROUGH  NTZ\r\n      JZ   = JZ+1\r\nC  JZ  RUNS FROM 1  THROUGH  NBE-SUB-LB\r\n      CALL SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL,          PI,EPS,\r\n     *   SGR,CGR,AR,BETA,SUM,Z(IRIA),Z(IDELX),Z(IYB),Z(IZB),Z(IYS),\r\n     *  Z(IZS),Z(IX))\r\n      DT(J)= SUM\r\n      IF  (JZ.EQ.NBEA(LB))    GO TO  20\r\n      GO TO 30\r\n   20 CONTINUE\r\n      JZ   = 0\r\n      LB   = LB+1\r\n      LS   = LS+1\r\n      AR   = ARB(LB)\r\n   30 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dzy.f",
    "content": "      SUBROUTINE DZY (X,Y,Z,SGR,CGR,XI1,XI2,ETA,ZETA,AR,AO,KR,CBAR,\r\n     1                BETA,FMACH,LSH,IDZDY,DZDYR,DZDYI)\r\nC\r\nC     CALCULATION OF THE DZ AND DY MATRICES USED IN SLENDER BODY FLOW\r\nC\r\nC     X        X- COORDINATE OF THE RECEIVING POINT\r\nC     Y        Y - COORDINATE OF THE RECEIVING POINT\r\nC     Z        Z - COORDINATE OF THE RECEIVING POINT\r\nC     SGR      SINE OF THE RECEIVING POINT DIHEDRAL ANGLE\r\nC     CGR      COSINE OF RECEIVING POINT DIHEDRAL ANGLE\r\nC     XI1\r\nC     XI2\r\nC     ETA\r\nC     ZETA\r\nC     AR       ASPECT RATIO OF THE SENDING BODY\r\nC     A0       RADIUS OF THE SENDING BODY\r\nC     KR       REDUCED FREQUENCY\r\nC     CBAR     REFERENCE CHORD LENGTH\r\nC     BETA     SQRT(1.0-M**2)\r\nC     FMACH    MACH NUMBER\r\nC     IDZDY    FLAG INDICATING WHETHER DZ OF DY IS TO BE\r\nC              CALCULATED.  =0  DZ, OTHERWISE DY\r\nC     DZDYR    REAL PART OF DZ OR DY\r\nC     DZDYI    IMAGINARY PART OF DZ OR DY\r\nC\r\nC\r\n      REAL   KD1PR, KD1PI, KD2PR, KD2PI, KD1MR, KD1MI, KD2MR, KD2MI\r\n      DATA   PI16 / 50.265482 /\r\nC\r\nC\r\nC     THE COMPLEX NUMBERS IN THIS ROUTINE ARE TREATED SEPERATLY AS\r\nC     THE REAL PART,  NAME APPENDED BY AN  -R- ,  AND THE\r\nC     IMAGINARY PART, NAME APPENDED BY AN  -I- .\r\nC\r\n      E   = AO*SQRT(ABS(1.0 - AR**2))/2.0\r\n      X01 = X - XI1\r\n      X02 = X - XI2\r\nC\r\nC     CHECK ON INPUT FLAG,  = 0  DZ ,  = 1  DY\r\nC\r\n      IF (IDZDY .EQ. 1) GO TO 200\r\nC\r\nC     **     **\r\nC     *  D Z  *\r\nC     **     **\r\nC\r\n      SGS = 0.0\r\n      CGS = 1.0\r\n      IF (AR .LT. 1.0)  GO TO 400\r\nC\r\n      Z01 = Z - (ZETA+E)\r\n      Z02 = Z - (ZETA-E)\r\n      Y01 = Y - ETA\r\n      Y02 = Y01\r\n      GO TO 300\r\nC\r\nC     **     **\r\nC     *  D Y  *\r\nC     **     **\r\nC\r\n  200 SGS = -1.0\r\n      IF (LSH .EQ. 1) SGS = 1.0\r\n      CGS =  0.0\r\n      IF (AR .GT. 1.0) GO TO 400\r\nC\r\n      Z01 = Z - ZETA\r\n      Z02 = Z01\r\n      Y01 = Y - (ETA+E)\r\n      Y02 = Y - (ETA-E)\r\nC\r\nC     ****  DZ AR .GE. 1  ****\r\nC     ****  DY AR .LE. 1  ****\r\nC\r\n  300 CONTINUE\r\n      L   = 0\r\n      Z0  = Z - ZETA\r\n      Y0  = Y - ETA\r\nC\r\n      R1SQR = Y01**2 + Z01**2\r\n      R2SQR = Y02**2 + Z02**2\r\n      R1FOR = R1SQR**2\r\n      R2FOR = R2SQR**2\r\nC\r\n      CALL FLLD (X01,X02,Y01,Z01,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L,\r\n     1           KD1PR,KD1PI,KD2PR,KD2PI)\r\nC\r\n      IF (AR .NE. 1.0)  GO TO 320\r\nC\r\nC     IDENTICAL RESULTS FROM FLLD, THEREFORE SKIP SECOND CALL\r\nC\r\n      KD1MR = KD1PR\r\n      KD1MI = KD1PI\r\n      KD2MR = KD2PR\r\n      KD2MI = KD2PI\r\n      GO TO 360\r\n  320 CONTINUE\r\n      CALL FLLD (X01,X02,Y02,Z02,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L,\r\n     1           KD1MR,KD1MI,KD2MR,KD2MI)\r\n  360 CONTINUE\r\n      DZDYR = 0.0\r\n      DZDYI = 0.0\r\n      IF (R1SQR.LE.0.0001. OR .R2SQR.LE.0.0001) GO TO 370\r\nC\r\nC     REAL\r\nC\r\n      DZDYR = ((KD1PR/R1SQR+KD1MR/R2SQR) + (KD2PR/R1FOR+KD2MR/R2FOR))\r\n     1        /PI16*(-1.0)\r\nC\r\nC     IMAGINARY\r\nC\r\n      DZDYI = ((KD1PI/R1SQR+KD1MI/R2SQR) + (KD2PI/R1FOR+KD2MI/R2FOR))\r\n     1        /PI16*(-1.0)\r\n  370 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     ****   DZ-AR .LT. 1   ****\r\nC     ****   DY-AR .GT. 1   ****\r\nC\r\n  400 SL1 = 0.0\r\n      TL1 = 0.0\r\n      SL2 = 0.0\r\n      TL2 = 0.0\r\n      CL1 = 1.0\r\n      CL2 = 1.0\r\n      E   = 1.732051*E\r\n      Y0  = Y - ETA\r\n      Z0  = Z - ZETA\r\nC\r\n      CALL TVOR (SL1,CL1,TL1,SL2,CL2,TL2,SGS,CGS,SGR,CGR,X01,X02,\r\n     1           Y0,Z0,E,BETA,CBAR,FMACH,KR,DZDYR,DZDYI)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/dzymat.f",
    "content": "      SUBROUTINE DZYMAT (D,NFB,NLB,NTZYS,IDZDY,NTAPE,XP,BETA,IPRNT,NS,\r\n     1                   NC,YP,ZP,SG,CG,YB,ZB,NBEA)\r\nC\r\nC     CALCULATION OF DZ AND DY MATRICES SLENDER BODY CALCULATIONS\r\nC\r\nC     D         WORKING ARRAY USED TO STORE A ROW OF DZ OR DY\r\nC     NFB       NUMBER OF THE FIRST BODY WITH THE ORIENTATION REQUESTED\r\nC     NLB       NUMBER OF THE LAST BODY WITH THE ORIENTATION\r\nC               REQUESTED\r\nC     NTZYS     NUMBER OF Z OR Y ORIENTED SLENDER BODY ELE.\r\nC     NTAPE     I/O UNIT NUMBER WHICH THE OUTPUT MATRIX IS TO\r\nC               BE WRITTEN ON\r\nC     XP        X-CONTROL POINT COORDINATE OF LIFTING SURFACE\r\nC               BOXES\r\nC     BETA      SQRT(1.0 - M**2)\r\nC\r\n      INTEGER         BY,BZ,C,C1,P,S,S1,YT,ZT\r\n      DIMENSION       D(2,NTZYS),XP(1),NS(1),NC(1),YP(1),ZP(1),SG(1),\r\n     1                CG(1),YB(1),ZB(1),NBEA(1)\r\n      COMMON /DLBDY / NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NT0,NTZS,NTYS,\r\n     1                INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,\r\n     2                IZB,IYB,IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,\r\n     3                IZS,IYS,ICS,IEE,ISG,ICG,IXIJ,IX,IDELX,IXIC,IXLAM,\r\n     4                IA0,IXIS1,IXIS2,IA0P,IRIA,INASB,IFLA1,IFLA2,ITH1A,\r\n     5                ITH2A,ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,KR\r\n      COMMON /SYSTEM/ SYSBUF,NPOT\r\nC\r\n      C1 = 0\r\n      S1 = 0\r\n      NFYB = NB - NBY  + 1\r\n      IF (NP .EQ. 0) GO TO 410\r\nC\r\nC     THIS LOOP IS FOR EACH LIFTING SURF. PANEL\r\nC\r\n      ISN = 0\r\n      DO 400 P = 1,NP\r\n      NSP = NS(P)\r\n      NCP = NC(P)\r\n      NSP = (NSP-ISN)/NCP\r\n      ISN = NS(P)\r\nC\r\nC     LOOP FOR EACH STRIP IN PANEL -P-\r\nC\r\n      DO 350 S = 1,NSP\r\n      S1  = S1 + 1\r\nC\r\nC     Y AND Z COORDINATE OF STRIP\r\nC\r\n      DY  = YP(S1)\r\n      DZ  = ZP(S1)\r\n      SGR = SG(S1)\r\n      CGR = CG(S1)\r\nC\r\nC     LOOP FOR EACH CHORDWISE ELEMENT IN STRIP\r\nC\r\n      DO 300 C = 1,NCP\r\n      C1  = C1 + 1\r\n      DX  = XP(C1)\r\nC\r\nC     - ROWDYC -  CALCULATES ROW -C1- OF DZ OR DY\r\nC\r\n      CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR,\r\n     1             CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2),\r\n     2             Z(IA0))\r\nC\r\n  300 CONTINUE\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     WE HAVE NOW CALCULATED -C1- ROWS WHICH ARE THE LIFTING SURFACES.\r\nC     NOW, LOOP FOR THE -Z- ORIENTED BODIES\r\nC\r\n  410 CONTINUE\r\n      IF (NBZ.LE.0 .OR. NTZ.LE.0) GO TO 510\r\n      SGR = 0.0\r\n      CGR = 1.0\r\n      DO 500 BZ = 1,NBZ\r\n      DY  = YB(BZ)\r\n      DZ  = ZB(BZ)\r\n      NBEZ = NBEA(BZ)\r\nC\r\nC     LOOP FOR EACH ELEMENT OF BODY -BZ-\r\nC\r\n      DO 450 ZT = 1,NBEZ\r\n      C1  = C1 + 1\r\n      DX  = XP(C1)\r\nC\r\n      CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR,\r\n     1             CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2),\r\n     2             Z(IA0))\r\n  450 CONTINUE\r\n  500 CONTINUE\r\nC\r\nC     NOW, LOOP FOR THE -Y- ORIENTED BODIES\r\nC\r\n  510 IF (NB.LT.NFYB .OR. NTY.LE.0) GO TO 650\r\n      IXP = NTP\r\n      IF (NFYB .LE. 1) GO TO 530\r\n      NFYBM1 = NFYB - 1\r\n      DO 520 I = 1,NFYBM1\r\n  520 IXP = IXP + NBEA(I)\r\n  530 CONTINUE\r\n      SGR =-1.0\r\n      CGR = 0.0\r\n      DO 600 BY = NFYB,NB\r\n      DY  = YB(BY)\r\n      DZ  = ZB(BY)\r\n      NBEY = NBEA(BY)\r\nC\r\nC     LOOP FOR EACH ELEMENT OF BODY -BY-\r\nC\r\n      DO 550 YT = 1,NBEY\r\n      C1  = C1  + 1\r\n      IXP = IXP + 1\r\n      DX  = XP(IXP)\r\nC\r\n      CALL ROWDYZ (NFB,NLB,C1,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,SGR,\r\n     1             CGR,IPRNT,YB,ZB,Z(IARB),Z(INSBEA),Z(IXIS1),Z(IXIS2),\r\n     2             Z(IA0))\r\nC\r\n  550 CONTINUE\r\n  600 CONTINUE\r\n  650 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eadd.f",
    "content": "      SUBROUTINE EADD (P,PREC)\r\nC\r\n      INTEGER          IA(7)    ,IB(7)    ,IC(7)     ,PREC\r\n      DOUBLE PRECISION BETA(2)  ,P(1)     ,ALPHA(2)\r\n      COMMON /REGEAN/  IM(7)    ,IK(7)    ,IEV(7)    ,KA(5)    ,LC    ,\r\n     1                 NN(13)   ,IBUCK\r\n      COMMON /BLANK /  XX\r\n      COMMON /SADDX /  NOMAT    ,NZ       ,MCBS(67)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      EQUIVALENCE      (MCBS( 1),IA(1))   ,(MCBS( 8),IALP)     ,\r\n     1                 (MCBS( 9),ALPHA(1)),(MCBS(13),IB(1))    ,\r\n     2                 (MCBS(20),IBETA)   ,(MCBS(21),BETA(1))  ,\r\n     3                 (MCBS(61),IC(1))\r\nC\r\n      NZ = (KORSZ(CORE)/2)*2 - LC\r\n      DO 10 I = 1,7\r\n      IA(I) = IM(I)\r\n      IB(I) = IK(I)\r\n   10 IC(I) = IK(I)\r\n      IC(1) = KA(1)\r\n      KPREC = IK(5)\r\n      IF (PREC.GE.1 .AND. PREC.LE.4) KPREC = PREC\r\n      IALP = KPREC\r\n      ALPHA(1) = P(1)\r\n      IBETA  = KPREC\r\n      BETA(1)= 1.0D0\r\n      NOMAT  = 2\r\n      CALL SADD (CORE,CORE)\r\n      CALL WRTTRL (IC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eandm.f",
    "content": "      SUBROUTINE EANDM (ITYPE,IDO,NEXTZ,LCORE,NBDYS,ALL,NELOUT)\r\nC\r\nC     COMPUTES ADDITIONAL LOAD IN ZIEKIEWICZ PAPER DUE TO SPECIFIED\r\nC     MAGNETIC FIELD OR CURRENT LOOP\r\nC\r\nC     ITYPE = 20  SPCFLD\r\nC     ITYPE = 21  CEMLOOP\r\nC     ITYPE = 22  GEMLOOP\r\nC     ITYPE = 23  MDIPOLE\r\nC     ITYPE = 24  REMFLUX\r\nC     IDO   = NUMBER OF CARDS OF PRESENT TYPE\r\nC     NEXTZ = NEXT AVAILABLE POINTER INTO OPEN CORE\r\nC     LAST AVAILABLE POINTER INTO OPEN CORE\r\nC     *** ALL CEMLOOP, SPCFLD, GEMLOOP, AND MDIPOLE CARDS WERE COMBINED\r\nC     INTO ONE SPCFLD-TYPE CARD WITH 3*NROWSP WORDS-HCX, HCY, HCZ AT\r\nC     EACH POINT AND IS INDICATED BY ITYPE =-20. THESE 3*NROWSP WORDS\r\nC     ARE WRITTEN TO HCFLDS FOR LATER USE. THE OTHER CARDS ARE STILL ON\r\nC     SLT FOR USE IN THE NUMERICAL INTEGRATION.\r\nC\r\n      LOGICAL         DONE\r\n      INTEGER         FILE,BUF1,SYSBUF,EST,SLT,ELTYPE,ESTWDS,OUTPT,SCR6,\r\n     1                HCFLDS,MCB(7),REMFLS,MCB1(7),MCB2(7)\r\n      DIMENSION       IZ(1),NAM(2),NECPT(1),NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NROWSP\r\n      COMMON /SYSTEM/ KSYSTM(64)\r\n      COMMON /EMECPT/ ECPT(200)\r\n      COMMON /PACKX / ITA,ITB,II,JJ,INCUR\r\n      COMMON /ZBLPKX/ A(4),IROW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT),(Z(1),IZ(1)),\r\n     1                (KSYSTM(56),ITHRML),(ECPT(1),NECPT(1))\r\n      DATA    NAM   / 4HEAND,4HM              /\r\n      DATA    EST   , SLT, HCFLDS,REMFLS,SCR6 /\r\n     1        105   , 205, 304,   305,   306  /\r\n      DATA    MCB   / 304, 0, 0, 2, 1, 0, 0   /\r\n      DATA    MCB1  / 305, 0, 0, 2, 1, 0, 0   /\r\n      DATA    DONE  / .FALSE.                 /\r\nC\r\nC     CHECK IF THERMAL FORMULATION\r\nC\r\n      IF (ITHRML .EQ. 0) RETURN\r\nC\r\nC     READ A CARD TYPE FROM SLT. TYPE=-20 IS THE COMBINATION HC FOR ALL\r\nC     CARD TYPES EXCEPT REMFLUX AND SIGNIFIES END OF A SUBCASE. READ AND\r\nC     PACK IT. SAME FOR TYPE = 24(REMFLUX). FOR TYPES 20-24, COMPUTE\r\nC     LOAD = INTEGRAL(GRAD(NI)*MU*HC)*D(VOL). WE WILL USE NUMERICAL\r\nC     INTEGRATION FOR ITYPE=24-REMFLUX-ONLY ONE CARD GIVING FLUX IN\r\nC     EACH ELEMENT COMPUTE INTEGRAL(GRAD NI*BR)*D(VOL)\r\nC\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      ICORE = BUF1  - 1\r\n      IF (NEXTZ .GT. BUF1) GO TO 420\r\nC\r\n      IF (ITYPE.NE.-20 .AND. ITYPE.NE.24) GO TO 40\r\n      IF (IDO .NE. 1) GO TO 300\r\nC\r\nC     END OF SUBCASE-WRAP UP SCR6 AND CALL HCCOM TO COMBINE CENTROID\r\nC     RESULTS IF NOT REMFLUX, CALL HCCOM NOW.IF REMFLUX, WAIT UNTIL\r\nC     KCOUNT IS SET.\r\nC\r\n      CALL CLOSE (SCR6,1)\r\n      IF (ITYPE.EQ.-20) CALL HCCOM (ITYPE,LCORE,ICORE,NEXTZ,KCOUNT)\r\n      JJ = NROWSP\r\nC\r\nC     ITYPE=-20 OR +24--END OF SUBCASE. IF +24, WRITE ZEROS TO HCFLDS\r\nC     AND HCCENS AND REMFLUX VECTOR TO REMFLS. THEN CONTINUE ON TO\r\nC     COMPUTE LOADS. IF ITYPE=-20, WRITE ZRROS TO REMFLS, GRID POINT\r\nC     HC VALUES TO HCFLDS AND CENTROIDAL VALUES TO HCCENS (ALREADY DONE\r\nC     IN HCCOM). FOR ITYPE=-20, NO FURTHER PROCESSING IS DONE SINCE\r\nC     LOADS HAVE ALREADY BEEN COMPUTED.\r\nC\r\n      ITA = 1\r\n      ITB = 1\r\n      II  = 1\r\n      JJ  = 3*NROWSP\r\n      INCUR  = 1\r\n      MCB(3) = JJ\r\n      MCB2(1)= EST\r\n      CALL RDTRL (MCB2)\r\n      NEL = MCB2(2)\r\n      JJ1 = 3*NEL\r\n      MCB1(3)= JJ1\r\nC\r\nC     READ IN THE ONE SPCFLD OR REMFLUX-TYPE CARD\r\nC\r\n      NWORDS = 3*NROWSP\r\n      IF (ITYPE .NE. 24) GO TO 10\r\n      NWORDS = 3*NEL\r\n      JJ  = NWORDS\r\n      JJ1 = 3*NROWSP\r\n   10 ISTART = NEXTZ\r\n      IF (NEXTZ+NWORDS-1 .GT. ICORE) GO TO 420\r\n      CALL FREAD (SLT,Z(NEXTZ),NWORDS,0)\r\nC\r\nC     CREATE A ZERO VECTOR FOR EITHER REMFLS OR HCFLDS(WHICHEVER IS NOT\r\nC     USED IN THIS SET ID-REMEMBER THAT SPCFLD AND REMFLUX CANNOT HAVE\r\nC     THE SAME SET ID\r\nC\r\nC     PACK THE 3*NROWSP HC FIELD OUT TO BE USED LATER BY EMFLD. HCFLDS\r\nC     WILL CONTAIN ONE COLUMN PER CASE CONTROL SIMPLE SELECTION\r\nC     (SIMPLE LOADS ON LOAD CARDS ARE INCLUDED). COMBIN WILL COMBINE\r\nC     FOR LOAD BULK DATA CARDS AND PUT LOADS IN ORDER OF SELECTION ONTO\r\nC     HCFL (SAME HOLDS FOR 3*NEL WORDS OF REMFLS)\r\nC\r\n      IF (ITYPE .EQ. 24) GO TO 20\r\n      CALL PACK (Z(NEXTZ),HCFLDS,MCB)\r\n      CALL WRTTRL (MCB)\r\n      JJ = JJ1\r\n      CALL BLDPK  (1,1,REMFLS,0,0)\r\n      CALL BLDPKN (REMFLS,0,MCB1)\r\n      CALL WRTTRL (MCB1)\r\n      GO TO 30\r\n   20 CALL PACK(Z (NEXTZ),REMFLS,MCB1)\r\n      CALL WRTTRL (MCB1)\r\n      JJ = JJ1\r\n      CALL BLDPK  (1,1,HCFLDS,0,0)\r\n      CALL BLDPKN (HCFLDS,0,MCB)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     RETURN JJ TO VALUE EXPECTED IN EXTERN\r\nC\r\n   30 JJ = NROWSP\r\n      IF (ITYPE .EQ. -20) RETURN\r\nC\r\nC     GET INFO FROM EST\r\nC\r\n   40 FILE = EST\r\n      CALL GOPEN (EST,Z(BUF1),0)\r\n      NCOUNT = 0\r\n      IF (.NOT.DONE) KCOUNT = 0\r\nC\r\nC     READ IN ALL CARDS OF THIS TYPE FOR THIS SUBCASE. NO NEED TO READ\r\nC     IN THE ONE REMFLUX CARD SINCE IT WAS DONE ABOVE.\r\nC\r\n      IJK = ITYPE - 19\r\n      GO TO (50,60,70,80,100), IJK\r\n   50 IWORDS = 3*NROWSP\r\n      IF (IDO .NE. 1) GO TO 300\r\n      GO TO 90\r\n   60 IWORDS = 12\r\n      GO TO 90\r\n   70 IWORDS = 48\r\n      GO TO 90\r\n   80 IWORDS = 9\r\n   90 NWORDS = IWORDS*IDO\r\n      IF (NEXTZ+NWORDS-1 .GT. ICORE) GO TO 420\r\n      CALL FREAD (SLT,Z(NEXTZ),NWORDS,0)\r\n      ISTART = NEXTZ\r\nC\r\n  100 CALL READ (*260,*410,EST,ELTYPE,1,0,IFLAG)\r\n      IDX = (ELTYPE-1)*INCR\r\n      ESTWDS = NE(IDX+12)\r\n      NGRIDS = NE(IDX+10)\r\n      NAME(1)= NE(IDX+1)\r\n      NAME(2)= NE(IDX+2)\r\nC\r\n  120 CALL READ (*400,*100,EST,ECPT,ESTWDS,0,IFLAG)\r\n      NCOUNT = NCOUNT + 1\r\n      IF (DONE) GO TO 130\r\n      IF (ELTYPE .LT. 65) KCOUNT = KCOUNT + 3\r\n      IF (ELTYPE .EQ. 65) KCOUNT = KCOUNT + 27\r\n      IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) KCOUNT = KCOUNT + 63\r\n      IF (ELTYPE .EQ. 80) KCOUNT = KCOUNT + 27\r\nC\r\n  130 IF (ELTYPE .GT. 80) GO TO 230\r\n      GO TO (200,230,200,230,230,210,230,230,210,200,\r\n     1       230,230,230,230,230,210,210,210,210,230,\r\n     2       230,230,230,230,230,230,230,230,230,230,\r\n     3       230,230,230,200,230,210,210,230,220,220,\r\n     4       220,220,230,230,230,230,230,230,230,230,\r\n     5       230,230,230,230,230,230,230,230,230,230,\r\n     6       230,230,230,230,220,220,220,230,230,230,\r\n     7       230,230,230,230,230,230,230,230,230,210), ELTYPE\r\nC\r\n  200 CALL EM1D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT)\r\n      GO TO 120\r\n  210 CALL EM2D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT)\r\n      GO TO 120\r\n  220 CALL EM3D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,NELOUT)\r\n      GO TO 120\r\nC\r\n  230 WRITE  (OUTPT,240) UFM,NAME\r\n  240 FORMAT (A23,', ELEMENT TYPE ',2A4,' WAS USED IN AN E AND M ',\r\n     1       'PROBLEM. NOT A LEGAL TYPE')\r\n  250 CALL MESAGE (-61,0,0)\r\nC\r\nC     DONE\r\nC\r\n  260 CALL CLOSE (EST,1)\r\n      IF (ITYPE .EQ. 24) GO TO 270\r\n      CALL WRITE (SCR6,0,0,1)\r\n      GO TO 280\r\n  270 CALL HCCOM (ITYPE,LCORE,ICORE,NEXTZ,KCOUNT)\r\n      JJ = NROWSP\r\n  280 DONE =.TRUE.\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n  300 WRITE  (OUTPT,310) UFM,NAM\r\n  310 FORMAT (A23,', LOGIC ERROR IN SUBROUTINE ',2A4,\r\n     1       '. ONLY ONE SPCFLD OR REMFLUX SHOULD NOW EXIST')\r\n      GO TO 250\r\nC\r\n  400 N = -2\r\n      GO TO 430\r\n  410 N = -3\r\n      GO TO 430\r\n  420 N = -8\r\n      FILE = 0\r\n  430 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ectloc.f",
    "content": "      SUBROUTINE ECTLOC(*,ECT,BUF,IELEM)\r\nC*****\r\nC ECTLOC IS A SPECIAL PURPOSE VERSION OF SUBROUTINE LOCATE.  ITS\r\nC PURPOSE IS TO PASS THE ECT FILE SEQUENTIALLY POSITIONING EACH LOGICAL\r\nC RECORD AFTER THE 3-WORD HEADER AND PROVIDING A POINTER TO THE\r\nC APPROPRIATE ENTRY IN THE ELEM TABLE IN /GPTA1/. PLOTEL\r\nC ELEMENTS ARE IGNORED.\r\nC     NOTE---THE ECT FILE MUST BE OPEN ON EACH CALL.\r\nC\r\nC  ARGUMENTS\r\nC\r\nC     ECT   ---INPUT ---EINO FILE NAME OF THE ECT\r\nC     BUF   ---IN/OUT---ADDRESS OF A 3-WORD ARRAY INTO WHICH\r\nC                       THE FIRST 3 WORDS OF THE RECORD ARE READ\r\nC     IELEM ---OUTPUT---POINTER TO 1ST WORD OF ENTRY IN ELEM\r\nC                       TABLE IN /GPTA1/\r\nC\r\nC NON-STANDARD RETURN---GIVEN WHEN EOF HIT. ECT IS CLOSED BEFORE RETURN.\r\nC*****\r\n      INTEGER ECT , BUF(3), ELEM, PLOTEL\r\nC\r\n      COMMON/ GPTA1 / NELEM, LAST, INCR, ELEM(1)\r\nC\r\n      DATA PLOTEL/ 4HPLOT /\r\nC\r\nC READ A 3-WORD RECORD HEADER. IF NOT 3 WORDS, TRY NEXT RECORD\r\nC\r\n   10 CONTINUE\r\n      CALL READ(*90,*10,ECT,BUF,3,0,NREAD)\r\nC\r\nC SEARCH FOR MATCH OF FIRST WORD OF RECORD WITH ECT-ID WORD IN /GPTA1/\r\nC IF FOUND AND NOT PLOTEL, RETURN POINTER.\r\nC\r\n      DO 20 I=1,LAST,INCR\r\n      IF( BUF(1) .EQ. ELEM(I+3) ) GO TO 30\r\n   20 CONTINUE\r\n   25 CALL FWDREC(*90,ECT)\r\n      GO TO 10\r\n   30 IF( ELEM(I).EQ.PLOTEL ) GO TO 25\r\n      IELEM = I\r\n      RETURN\r\nC\r\nC EOF ENCOUNTERED--CLOSE FILE AND RETURN.\r\nC\r\n   90 CALL CLOSE( ECT, 1 )\r\n      IELEM = 0\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/edit.f",
    "content": "      SUBROUTINE EDIT (NAME,IOPT,ITEST)\r\nC\r\nC     REMOVES SELECTED ITEMS OF THE SUBSTRUCTURE NAME FROM THE SOF.\r\nC     THE VALUE OF IOPT IS THE SUM OF THE FOLLOWING INTEGERS REFLECTING\r\nC     WHICH ITEMS ARE TO BE REMOVED.\r\nC\r\nC              1 = STIFFNESS MATRIX\r\nC              2 = MASS MATRIX\r\nC              4 = LOAD DATA\r\nC              8 = SOLUTION DATA\r\nC             16 = TRANSFORMATION DATA\r\nC             32 = ALL ITEMS OF SUBSTRUCTURE\r\nC             64 = APPENDED LOADS DATA\r\nC            128 = DAMPING MATRICES\r\nC            256 = MODES DATA\r\nC\r\nC     THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES\r\nC              1   NORMATL RETURN\r\nC              4   IF NAME DOES NOT EXIST\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         ANDF,NAME(2),NMSBR(2)\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    NMSBR / 4HEDIT,4H    /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ITEST = 1\r\n      IF (IOPT .LE. 0) GO TO 20\r\n      CALL FDSUB (NAME(1),INDEX)\r\n      IF (INDEX .EQ. -1) GO TO 30\r\nC\r\nC     REMOVE SELECTED ITEMS ACCORDING TO IOPT S VALUE.\r\nC\r\n      DO 10 I = 1,NITEM\r\n      MASK = ITEM(7,I)\r\n      IF (ANDF(IOPT,MASK) .NE. 0) CALL DELETE (NAME,ITEM(1,I),IT)\r\n   10 CONTINUE\r\n   20 RETURN\r\nC\r\nC     NAME DOES NOT EXIST.\r\nC\r\n   30 ITEST = 4\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/edtl.f",
    "content": "      SUBROUTINE EDTL (NEDT,ILIST,PG)\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE ELEMENT TEMPERATURE AND ENFORCED\r\nC     DEFORMATION LOADS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         EORFLG,ENDID,BUFFLG,RECORD\r\n      INTEGER         PG(7),PCOMP(2),PCOMP1(2),PCOMP2(2),ILIST(1),\r\n     1                IPARM(2),TLIST(1080)\r\n      REAL            CORE,TI\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /BLANK / NROWSP,IPARAM,COMPS\r\n      COMMON /SYSTEM/ KSYSTM(64)\r\n      COMMON /PACKX / ITYA,ITYB,II,JJ,INCUR\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XCSTM / TGB(3,3)\r\n      COMMON /TRANX / IDUM1(14)\r\n      COMMON /FPT   / TO,NSIL,NGPTT,NSTART,LCORE\r\n      COMMON /LOADX / LCARE,N(3),CSTM,SIL,NNN,ECPT,MPT,GPTT,EDT,IMPT,\r\n     1                IGPTT,IEC,NN(3),DIT,ICM\r\n      COMMON /TRIMEX/ MECPT(200)\r\n      COMMON /SGTMPD/ TI(33)\r\n      COMMON /MATIN / MATID,INFLAG,TEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E1,G,NU,RHO,ALPHA,TO1,GE,SIGMAT,SIGMAC,SIGMAS,\r\n     1                SPACE(10)\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SSGETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,ITEMP,IDEFT,\r\n     1                IDEFM,RECORD\r\n      COMMON /SSGWRK/ DUM(300)\r\n      COMMON /COMPST/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF),(KSYSTM( 2),OUTPT ),\r\n     1                (KSYSTM(55),IPREC ),(KSYSTM(56),ITHRML),\r\n     2                (TI(7)     ,ICHECK),(TI(6)     ,IFLAG )\r\n      DATA    IPARM , IPGTT/ 4HEDTL,4H    ,4HGPTT   /\r\n      DATA    CROD  , CTUBE, CONROD, CBAR, PCOMPS   /\r\n     1        1     , 3    , 10    , 34  , 112      /\r\n      DATA    PCOMP ,        PCOMP1,       PCOMP2   /\r\n     1        5502  , 55,    5602, 56,     5702, 57 /\r\nC\r\n      IGPTT = IPGTT\r\nC\r\nC     CHECK IF HEAT FORMULATION\r\nC\r\n      IF (ITHRML .NE. 0) RETURN\r\nC\r\n      ITEMP = 0\r\n      IDEFT = NEDT\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY TEMPL (NTEMP,ILIST,PG)\r\nC     ============================\r\nC\r\n      IF (ITHRML .NE. 0) RETURN\r\n      IDEFT = 0\r\n      ITEMP = NTEMP\r\nC\r\nC     START SEARCH POINTERS AT ZERO\r\nC\r\n   10 ITYA  = 1\r\n      CALL DELSET\r\n      ITYB  = 1\r\n      IPR   = IPREC\r\n      IF (IPR .NE. 1) IPR = 0\r\n      II    = 1\r\n      JJ    = NROWSP\r\n      INCUR = 1\r\n      NNN   = 0\r\n      NOGPTT= 0\r\n      IDUM1(1) = 0\r\n      ICM   = 1\r\n      NOEDT = 0\r\n      CALL DELSET\r\n      LPCOMP = 0\r\nC\r\nC     SET CORE SIZE AND BUFFERS\r\nC\r\n      LCORE= KORSZ(CORE) - NROWSP\r\n      BUF1 = LCORE - SYSBUF - 2\r\n      BUF2 = BUF1  - SYSBUF - 2\r\n      BUF3 = BUF2  - SYSBUF - 2\r\n      BUF4 = BUF3  - SYSBUF - 2\r\n      BUF5 = BUF4  - SYSBUF - 2\r\nC\r\nC     OPEN FILES--\r\nC\r\nC     READ FILE PCOMPS INTO CORE ONLY IF PARAM COMPS = -1,\r\nC     INDICATING THE PRESENCE OF LAMINATED COMPOSITE ELEMENTS\r\nC\r\n      IF (COMPS .NE. -1) GO TO 25\r\nC\r\n      IPM = PCOMPS\r\n      CALL PRELOC (*750,CORE(BUF2),PCOMPS)\r\nC\r\n      IPCMP  = NROWSP + 1\r\n      IPCMP1 = IPCMP\r\n      NPCMP  = 0\r\n      NPCMP1 = 0\r\n      NPCMP2 = 0\r\nC\r\n      LCORE = BUF5 - NROWSP - 1\r\nC\r\nC     LOCATE PCOMP DATA AND READ INTO CORE\r\nC\r\n      CALL LOCATE (*14,CORE(BUF2),PCOMP,FLAG)\r\nC\r\n      CALL READ (*860,*12,PCOMPS,CORE(IPCMP),LCORE,0,NPCMP)\r\n      GO TO 820\r\n   12 IPCMP1 = IPCMP + NPCMP\r\n      LCORE  = LCORE - NPCMP\r\n      IF (IPCMP1 .GE. LCORE) GO TO 820\r\nC\r\nC     LOCATE PCOMP1 DATA AND READ INTO CORE\r\nC\r\n   14 CALL LOCATE (*18,CORE(BUF2),PCOMP1,FLAG)\r\nC\r\n      IPCMP1 = IPCMP + NPCMP\r\n      CALL READ (*20,*16,PCOMPS,CORE(IPCMP1),LCORE,0,NPCMP1)\r\n      GO TO 820\r\n   16 IPCMP2 = IPCMP1 + NPCMP1\r\n      LCORE  = LCORE  - NPCMP1\r\n      IF (IPCMP2 .GE. LCORE) GO TO 820\r\nC\r\nC     LOCATE PCOMP2 DATA AND READ INTO CORE\r\nC\r\n   18 CALL LOCATE (*20,CORE(BUF2),PCOMP2,FLAG)\r\nC\r\n      IPCMP2 = IPCMP1 + NPCMP1\r\n      CALL READ (*20,*20,PCOMPS,CORE(IPCMP2),LCORE,0,NPCMP2)\r\n      GO TO 820\r\nC\r\n   20 LPCOMP = NPCMP + NPCMP1 + NPCMP2\r\nC\r\n      LCORE = LCORE - NPCMP2\r\n      IF (LCORE .LE. 0) GO TO 820\r\nC\r\n      CALL CLOSE (PCOMPS,1)\r\nC\r\nC\r\n   25 CALL GOPEN (ECPT,CORE(BUF2),0)\r\n      IF (ITEMP) 30,40,30\r\n   30 IPM = GPTT\r\n      CALL OPEN (*750,GPTT,CORE(BUF3),0)\r\nC\r\nC     BRING IN MAT ETC\r\nC\r\n      CALL READ (*860,*810,GPTT,TLIST(1),  -2,0,NTLIST)\r\n      CALL READ (*860,*40 ,GPTT,TLIST(1),1080,1,NTLIST)\r\n      WRITE  (OUTPT,35) UFM\r\n   35 FORMAT (A23,' 4013, PROBLEM LIMITATION OF 360 TEMPERATURE SETS ',\r\n     1       ' HAS BEEN EXCEEDED.')\r\n      N1 = -37\r\n      GO TO 760\r\n   40 IF (IDEFT .NE. 0) CALL GOPEN (EDT,CORE(BUF4),0)\r\n      NLOOP = IDEFT + ITEMP\r\n      IF (IDEFT .NE. 0) LDEFM = 0\r\nC\r\nC     INITIALIZE MATERIAL ROUTINE\r\nC\r\n      IMAT  = NROWSP + LPCOMP\r\n      LCORE = BUF5   - IMAT\r\n      CALL PREMAT (CORE(IMAT+1),CORE(IMAT+1),CORE(BUF5),LCORE,NMAT,\r\n     1             MPT,DIT)\r\n      NSTART = IMAT  + NMAT\r\n      LCORE  = LCORE - NSTART\r\n      IF (LCORE .LE. 0) GO TO 820\r\n      IF (IDEFT .NE. 0) LDEFM = 0\r\nC\r\n      DO 720 ILLOP = 1,NLOOP\r\nC\r\n      IDEFM = ILIST(ILLOP)\r\n      IF (ITEMP) 75,75,70\r\n   70 CALL REWIND (GPTT)\r\nC\r\n   75 IF (NNN .EQ. 1) GO TO 95\r\nC\r\nC     BRING SIL INTO CORE\r\nC\r\n      IF (LCORE .LT. 0) GO TO 820\r\n      CALL GOPEN (SIL,CORE(BUF5),0)\r\n      IPM = SIL\r\n      CALL READ (*860,*80,SIL,CORE(NSTART+1),LCORE,1,NSIL)\r\n      GO TO 820\r\n   80 CALL CLOSE (SIL,1)\r\n      LCORE  = LCORE  - NSIL\r\n      NSTART = NSTART + NSIL\r\nC\r\nC     READ CSTM INTO OPEN CORE AND MAKE INITIAL CALLS TO PRETRD/PRETRS\r\nC\r\n      IF (LCORE .LT. 0) GO TO 820\r\n      CALL OPEN (*90,CSTM,CORE(BUF5),0)\r\n      ICM = 0\r\n      CALL SKPREC (CSTM,1)\r\n      IPM = CSTM\r\n      CALL READ (*860,*85,CSTM,CORE(NSTART+1),LCORE,1,NCSTM)\r\n      GO TO 820\r\n   85 CONTINUE\r\nC\r\nC     FOR THOSE SUBROUTINES WHICH USE BASGLB INSTEAD OF TRANSS/TRANSD,\r\nC     WE NEED TO REPOSITION THE CSTM FILE AND LEAVE THE GINO BUFFER\r\nC     AVAILABLE FOR LATER CALLS TO READ BY SUBROUTINE BASGLB.\r\nC\r\n      CALL REWIND (CSTM)\r\n      CALL SKPREC (CSTM,1)\r\nC\r\n      CALL PRETRD (CORE(NSTART+1),NCSTM)\r\n      CALL PRETRS (CORE(NSTART+1),NCSTM)\r\nC\r\n      LCORE  = LCORE  - NCSTM\r\n      NSTART = NSTART + NCSTM\r\n      IF (LCORE .LE. 0) GO TO 820\r\nC\r\n   90 NNN = 1\r\n   95 IF (ITEMP) 150, 150, 99\r\nC\r\n   99 DO 100 I = 1,NTLIST,3\r\n      IF (IDEFM .EQ. TLIST(I)) GO TO 110\r\n  100 CONTINUE\r\nC\r\nC     THERMAL LOAD NOT FOUND IN GPTT\r\nC\r\n      IPARM(2) = IPARM(1)\r\n      IPARM(1) = IGPTT\r\n      CALL MESAGE (-32,IDEFM,IPARM(1))\r\n  110 TO = TLIST(I+1)\r\n      IF (TLIST(I+2) .EQ. 0) GO TO 140\r\n      I = TLIST(I+2)\r\n      DO 120 J = 1,I\r\n      CALL FWDREC (*800,GPTT)\r\n  120 CONTINUE\r\nC\r\nC     READ SETID AND VERIFY CORRECT RECORD.  FAILSAFE\r\nC\r\n      CALL READ (*121,*121,GPTT,IDDD,1,0,DUMMY)\r\n      IF (IDDD .EQ. IDEFM) GO TO 125\r\n  121 WRITE  (OUTPT,122) IDEFM\r\n  122 FORMAT (98H0*** SYSTEM FATAL ERROR 4014, ROUTINE EDTL DETECTS BAD\r\n     1DATA ON TEMPERATURE DATA BLOCK FOR SET ID =,I9)\r\n      N1 = -61\r\n      GO TO 760\r\n  125 RECORD = .TRUE.\r\n      GO TO 150\r\nC\r\nC     THE GPTT (ELEMENT TEMPERATURE TABLE) IS NOW POSITIONED TO THE\r\nC     TEMPERATURE DATA FOR THE SET REQUESTED.  SUBROUTINE SSGETD WILL\r\nC     READ THE DATA.\r\nC\r\n  140 CONTINUE\r\n      RECORD = .FALSE.\r\nC\r\n  150 CONTINUE\r\n      CALL CLOSE (CSTM,1)\r\n      CALL OPEN (*151,CSTM,CORE(BUF5),0)\r\n      CALL SKPREC (CSTM,1)\r\n      ICM = 0\r\n  151 DO 160 I = 1,NROWSP\r\n  160 CORE(I) =  0.0\r\nC\r\nC     INITIALIZE /SSGETT/ VARIABLES\r\nC\r\n      OLDEL  = 0\r\n      EORFLG = .FALSE.\r\n      ENDID  = .TRUE.\r\n      BUFFLG = .FALSE.\r\nC\r\nC     ELEMENT CALL PROCESSING\r\nC\r\nC\r\nC     READ THE ELEMENT TYPE\r\nC\r\n  170 CALL READ (*710,*830,ECPT,ELTYPE,1,0,FLAG)\r\n      IF (ELTYPE.GE.1 .AND. ELTYPE.LE.NELEMS) GO TO 174\r\n      CALL MESAGE (-7,0,NAME)\r\n  172 WRITE  (OUTPT,173) SWM,ELTYPE\r\n  173 FORMAT (A27,' 4015, ELEMENT THERMAL AND DEFORMATION LOADING NOT ',\r\n     1       'COMPUTED FOR ILLEGAL ELEMENT TYPE',I9, /34X,\r\n     2       'IN MODULE SSG1.')\r\n      GO TO 610\r\n  174 IDX    = (ELTYPE-1)*INCR\r\n      JLTYPE = 2*ELTYPE - IPR\r\n      NWORDS = NE(IDX+12)\r\nC\r\nC     READ AN ENTRY FOR ONE ELEMENT FROM ECPT\r\nC\r\n  175 CALL READ (*840,*170,ECPT,MECPT(1),NWORDS,0,FLAG)\r\n      IF (ITEMP .NE. 0) GO TO 176\r\nC\r\nC     ELEMENT DEFORMATION LOAD\r\nC\r\n      IF (IDEFM .NE. LDEFM) CALL FEDTST (IDEFM)\r\n      LDEFM = IDEFM\r\n      IF (ELTYPE .EQ. CROD  ) GO TO 180\r\n      IF (ELTYPE .EQ. CTUBE ) GO TO 200\r\n      IF (ELTYPE .EQ. CONROD) GO TO 190\r\n      IF (ELTYPE .EQ. CBAR  ) GO TO 210\r\n      GO TO 610\r\nC\r\nC     THERMAL LOAD\r\nC\r\n  176 CONTINUE\r\nC\r\nC     BRANCH TO THE DESIRED ELEMENT TYPE\r\nC\r\n      LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 177,177,178\r\nC\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 CBEAM     3 CTUBE     4 CSHEAR    5 CTWIST\r\n  177 GO TO( 180,  180,  172,  172,  200,  200,  360,  360,  610,  610\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1,      270,  270,  240,  240,  250,  250,  220,  220,  190,  190\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2,      610,  610,  610,  610,  610,  610,  610,  610,  260,  260\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3,      230,  230,  280,  280,  300,  300,  290,  290,  610,  610\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4,      610,  610,  610,  610,  610,  610,  610,  610,  610,  610\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5,      610,  610,  610,  610,  610,  610,  610,  610,  610,  610\r\nC\r\nC            31 PLOTEL   32 CREACT   33 CQUAD3   34 CBAR     35 CCONE\r\n     6,      610,  610,  172,  172,  172,  172,  210,  210,  350,  350\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7,      320,  320,  330,  330,  340,  340,  390,  390,  400,  400\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8,      410,  410,  420,  420,  610,  610,  610,  610,  610,  610\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9,      610,  610,  610,  610,  610,  610,  610,  610,  610,  610\r\nC\r\n     *), JLTYPE\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  178 GO TO( 610,  610,  610,  610,  553,  553,  554,  554,  555,  555\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B,      556,  556,  557,  557,  558,  558,  559,  559,  560,  560\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQUAD4   65 CIHEX1\r\n     C,      561,  561,  562,  562,  563,  563,  564,  564,  425,  425\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D,      425,  425,  425,  425,  172,  172,  172,  172,  428,  428\r\nC\r\nC             71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E,       429,  429,  172,  172,  430,  430,  431,  431,  432,  432\r\nC\r\nC             76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F,       172,  172,  172,  172,  172,  172,  172,  172,  433,  433\r\nC\r\nC             81 CELBOW   82 FTUBE    83 TRIA3\r\n     G,       172,  172,  610,  610,  566,  566\r\nC\r\n     *), LOCAL\r\nC\r\nC     ROD\r\nC\r\n  180 CALL ROD\r\n      GO TO 175\r\nC\r\nC     CONROD\r\nC\r\n  190 GO TO 180\r\nC\r\nC     TUBE\r\nC\r\n  200 GO TO 180\r\nC\r\nC     BAR\r\nC\r\n  210 CALL BAR (CORE(1),IDEFM,ITEMP,IDEFT)\r\n      GO TO 175\r\nC\r\nC     TRMEM\r\nC\r\n  220 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL TRIMEM (0,TI,CORE(1))\r\n      GO TO 175\r\nC\r\nC     QDMEM\r\nC\r\n  230 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL QDMEM  (TI,CORE(1))\r\n      GO TO 175\r\nC\r\nC     TRBSC\r\nC\r\n  240 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL TRBSC  (0,TI)\r\n      GO TO 175\r\nC\r\nC     TRPLT\r\nC\r\n  250 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL TRPLT  (TI)\r\n      GO TO 175\r\nC\r\nC     QDPLT\r\nC\r\n  260 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL QDPLT  (TI)\r\n      GO TO 175\r\nC\r\nC     TRIA1\r\nC\r\n  270 KK = 1\r\n      GO TO 301\r\nC\r\nC     TRIA2\r\nC\r\n  280 KK = 2\r\n      GO TO 301\r\nC\r\nC     QUAD1\r\nC\r\n  290 KK = 3\r\n      GO TO 301\r\nC\r\nC     QUAD2\r\nC\r\n  300 KK = 4\r\n  301 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL TRIQD  (KK,TI(1))\r\n      GO TO 175\r\nC\r\nC     TRIARG\r\nC\r\n  320 CALL SSGETD (MECPT(1),TI(1),3)\r\n      CALL TTRIRG (TI(2),CORE(1))\r\n      GO TO 175\r\nC\r\nC     TRAPRG\r\nC\r\n  330 CALL SSGETD (MECPT(1),TI(1),4)\r\n      CALL TTRAPR (TI(2),CORE(1))\r\n      GO TO 175\r\nC\r\nC     TORDRG\r\nC\r\n  340 CALL SSGETD (MECPT(1),TI(1),2)\r\n      CALL TTORDR (TI(2),CORE(1) )\r\n      GO TO 175\r\nC\r\nC     CONE\r\nC\r\n  350 CALL SSGETD (MECPT(1),TI(1),2)\r\n      CALL CONE   (TI(2),CORE(1))\r\n      GO TO 175\r\nC\r\nC     SHEAR PANEL\r\nC\r\n  360 CALL TSHEAR\r\n      GO TO 175\r\nC\r\nC     TETRA\r\nC\r\n  390 CALL SSGETD (MECPT(1),TI(1),4)\r\n      CALL TETRA  (TI(2),CORE(1),0)\r\n      GO TO 175\r\nC\r\nC     WEDGE\r\nC\r\n  400 IIJJ = 1\r\n      NPTS = 6\r\n      GO TO 421\r\nC\r\nC     HEXA1\r\nC\r\n  410 IIJJ = 2\r\n      NPTS = 8\r\n      GO TO 421\r\nC\r\nC     HEXA2\r\nC\r\n  420 IIJJ = 3\r\n      NPTS = 8\r\n  421 CALL SSGETD (MECPT(1),TI(1),NPTS)\r\n      CALL SOLID  (TI(2),CORE(1),IIJJ)\r\n      GO TO 175\r\nC\r\nC     IHEX1, IHEX2, IHEX3\r\nC\r\n  425 NPTS=12*(ELTYPE-64)-4\r\n      CALL SSGETD (MECPT(1),TI(1),NPTS)\r\n      CALL IHEX   (TI(1),CORE(1),ELTYPE-64)\r\n      GO TO 175\r\nC\r\nC     TRIAAX\r\nC\r\n  428 CALL SSGETD (MECPT,TI,3)\r\n      CALL TRTTEM (TI(2),CORE)\r\n      GO TO 175\r\nC\r\nC     TRAPAX\r\nC\r\n  429 CALL SSGETD (MECPT,TI,4)\r\n      CALL TPZTEM (TI(2),CORE)\r\n      GO TO 175\r\nC\r\nC     TRIM6\r\nC\r\n  430 CALL SSGETD (MECPT(1),TI,6)\r\n      CALL TLODM6 (TI(1))\r\n      GO TO 175\r\nC\r\nC     TRPLT1\r\nC\r\n  431 CALL SSGETD (MECPT(1),TI,0)\r\n      CALL TLODT1 (TI(1),TI(1))\r\n      GO TO 175\r\nC\r\nC     TRSHL\r\nC\r\n  432 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL TLODSL (TI(1),TI(1))\r\n      GO TO 175\r\nC\r\nC     IS2D8\r\nC\r\n  433 CALL SSGETD (MECPT(1),TI(1),8)\r\n      CALL TIS2D8 (TI(2),CORE)\r\n      GO TO 175\r\nC\r\nC     DUMMY ELEMENTS\r\nC\r\n  553 CALL DUM1 (CORE(1))\r\n      GO TO 175\r\n  554 CALL DUM2 (CORE(1))\r\n      GO TO 175\r\n  555 CALL DUM3 (CORE(1))\r\n      GO TO 175\r\n  556 CALL DUM4 (CORE(1))\r\n      GO TO 175\r\n  557 CALL DUM5 (CORE(1))\r\n      GO TO 175\r\n  558 CALL DUM6 (CORE(1))\r\n      GO TO 175\r\n  559 CALL DUM7 (CORE(1))\r\n      GO TO 175\r\n  560 CALL DUM8 (CORE(1))\r\n      GO TO 175\r\n  561 CALL DUM9 (CORE(1))\r\n      GO TO 175\r\nC\r\nC     QDMEM1\r\nC\r\n  562 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL QDMM1  (TI,CORE(1))\r\n      GO TO 175\r\nC\r\nC     QDMEM2\r\nC\r\n  563 CALL SSGETD (MECPT(1),TI(1),0)\r\n      CALL QDMM2  (TI,CORE(1))\r\n      GO TO 175\r\nC\r\nC     QUAD4\r\nC\r\n  564 DO 565 ITI = 1,7\r\n  565 TI(ITI) = 0.0\r\n      CALL SSGETD (MECPT(1),TI,4)\r\n      IF (IPR .NE. 0) CALL TLQD4S\r\n      IF (IPR .EQ. 0) CALL TLQD4D\r\n      GO TO 175\r\nC\r\nC     TRIA3\r\nC\r\n  566 DO 567 ITI = 1,7\r\n  567 TI(ITI) = 0.0\r\n      CALL SSGETD (MECPT(1),TI,3)\r\n      IF (IPR .NE. 0) CALL TLTR3S\r\n      IF (IPR .EQ. 0) CALL TLTR3D\r\n      GO TO 175\r\nC\r\nC     NO LOAD, SKIP THE ECPT ENTRY ONLY\r\nC\r\n  610 CALL FWDREC (*840,ECPT)\r\n      GO TO 170\r\nC\r\nC     PACK THE LOAD VECTOR FROM CORE TO OUTPUT DATA BLOCK -PG-\r\nC\r\n  710 CALL PACK (CORE,PG(1),PG)\r\n      CALL REWIND (ECPT)\r\n      CALL FWDREC (*840,ECPT)\r\n      IF (IDEFT .NE. 0 .AND. IDEFM .NE. 0) CALL FEDTED (IDEFM)\r\nC\r\n  720 CONTINUE\r\nC\r\n      IF (NOEDT  .EQ. 0) CALL CLOSE (EDT ,1)\r\n      IF (NOGPTT .EQ. 0) CALL CLOSE (GPTT,1)\r\n      IF (ICM    .EQ. 0) CALL CLOSE (CSTM,1)\r\n      CALL CLOSE (ECPT,1)\r\n      RETURN\r\nC\r\n  750 N1 = -1\r\n  760 CALL MESAGE (N1,IPM,IPARM)\r\n  800 IPM = GPTT\r\n      GO TO 860\r\n  810 N1 = -3\r\n      GO TO 760\r\n  820 N1 = -8\r\n      GO TO 760\r\n  830 IPM = ECPT\r\n      GO TO 810\r\n  840 IPM = ECPT\r\n  860 N1 = -2\r\n      GO TO 760\r\n      END\r\n"
  },
  {
    "path": "mis/egnvct.f",
    "content": "      SUBROUTINE EGNVCT (C1,C2,EIGEN,C3,N1,N2,N)\r\nC\r\nC     SUBROUTINE TO OBTAIN EIGENVECTOR FROM REAL NON-SYMMETRIC\r\nC     MATRICES FOR WHICH THE EIGENVALUE IS KNOWN.  THE METHOD\r\nC     USED IS THE DIRECT METHOD OUTLINED IN ERR-FW-   BY DR.\r\nC     A. M. CUNNINGHAM.\r\nC\r\n      INTEGER N1(N),N2(N)\r\n      COMPLEX C1(N,N),C2(N),C3(N),EIGEN,D1,D2,D3,D4,D5,D6,D8\r\nC\r\n      II3 = N\r\n      II2 = N - 1\r\n      X1  = 0.0\r\n      DO 20 J = 1,N\r\n      N1(J) = J\r\n      N2(J) = J\r\n      C1(J,J) = C1(J,J) - EIGEN\r\n      DO 10 I = 1,N\r\n      X2 = CABS(C1(I,J))\r\n      IF (X1-X2) 5,10,10\r\n    5 X1 = X2\r\n      I1 = I\r\n      J1 = J\r\n   10 CONTINUE\r\n   20 CONTINUE\r\n      DO 150 K6 = 2,N\r\n      IF (CABS(C1(I1,J1))) 50,30,50\r\n   30 K5 = K6 - 1\r\nC\r\nC     SINGULAR MATRIX RETURN ZERO\r\nC\r\n      DO 36 I = 1,N\r\n   36 C3(I) = 0.0\r\n      GO TO 250\r\nC\r\n   50 D1 = (1.0,0.0)/C1(I1,J1)\r\n      D2 = C1(I1,II3)\r\n      D3 = C1(II3,J1)\r\n      D4 = C1(II3,II3)\r\n      DO 60 I = 1,II2\r\n      C3(I    ) = C1(I,J1)\r\n      C1(I,J1 ) = C1(I,II3)\r\n      C1(I,II3) =-C3(I)*D1\r\n      D5 = -C1(I1,I)*D1\r\n      C1(I1 ,I) = C1(II3,I)\r\n      C1(II3,I) = D5\r\n   60 CONTINUE\r\n      C3(I1) = D3\r\n      C1(I1  ,J1) = D4\r\n      C1(II3 ,J1) =-D2*D1\r\n      C1(I1 ,II3) =-D3*D1\r\n      C1(II3,II3) = D1\r\n      IF (II3 .EQ. N) GO TO 80\r\n      II4 = II3 + 1\r\n      DO 70 I = II4,N\r\n      D6 = C1(I1,I)\r\n      C1(I1 ,I) = C1(II3,I)\r\n      C1(II3,I) = D6\r\n      C3(I    ) = C1(I,J1)\r\n      C1(I,J1 ) = C1(I,II3)\r\n   70 C1(I,II3) = C3(I)\r\n   80 I = N1(J1)\r\n      N1(J1 ) = N1(II3)\r\n      N1(II3) = I\r\n      I = N2(I1)\r\n      N2(I1 ) = N2(II3)\r\n      N2(II3) = I\r\n      X1 = 0.0\r\n      DO 140 J = 1,II2\r\n      D8 = C1(II3,J)\r\n      DO 130 I = 1,II2\r\n      C1(I,J) = C1(I,J) + C3(I)*D8\r\n      X2 = CABS(C1(I,J))\r\n      IF(X1-X2) 120,130,130\r\n  120 X1 = X2\r\n      I1 = I\r\n      J1 = J\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n      II3 = II3 - 1\r\n      II2 = II2 - 1\r\n  150 CONTINUE\r\nC\r\n      C3(2) = C1(2,1)\r\n      C3(1) = (1.0,0.0)\r\n      DO 180 J = 3,N\r\n      C3(J) = (0.0,0.0)\r\n      J1 = J - 1\r\n      DO 170 I = 1,J1\r\n      C3(J) = C3(J) + C3(I)*C1(J,I)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      IF (CABS(C1(1,1)) .LT. 1.0E-20) GO TO 202\r\n      DO 201 K6 = 1,2\r\nC\r\n      DO 184 J = 1,N\r\n      I1 = N2(J)\r\n      DO 182 I = 1,N\r\n      IF (I1 .EQ. N1(I)) GO TO 184\r\n  182 CONTINUE\r\n  184 C2(J) = C3(I)\r\nC\r\n      DO 190 J = 2,N\r\n      I1 = N - J + 1\r\n      J1 = I1 + 1\r\n      DO 185 I = 1,I1\r\n      C2(I) = C2(I) + C1(I,J1)*C2(J1)\r\n  185 CONTINUE\r\n  190 CONTINUE\r\n      D1 = C1(1,1)/C2(1)\r\n      C3(1) = (1.0,0.0)\r\n      DO 200 J = 2,N\r\n      I1 = J - 1\r\n      C3(J) = C2(J)*C1(J,J)*D1\r\n      DO 195 I = 1,I1\r\n      C3(J) = C3(J) + C1(J,I)*C3(I)\r\n  195 CONTINUE\r\n  200 CONTINUE\r\n  201 CONTINUE\r\nC\r\nC     C3(I) NOW CONTAINS THE EIGENVECTOR WHICH MUST BE RE-ARRANGED\r\nC     ACCORDING TO THE ORDER DICTATED BY N1(I) BACK TO THE ORIGINAL\r\nC     ORDER.\r\nC\r\n  202 DO 230 I = 1,N\r\n      I1 = N1(I)\r\n      N1(I) = I\r\n  205 IF (I1-I) 210,230,210\r\n  210 D1 = C3(I1)\r\n      C3(I1) = C3(I)\r\n      C3(I ) = D1\r\n      K = N1(I1)\r\n      N1(I1) = I1\r\n      I1 = K\r\n      GO TO 205\r\n  230 CONTINUE\r\n      N1(1) = 2\r\nC\r\n  250 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eject.f",
    "content": "      INTEGER FUNCTION EJECT (LINES)\r\n      COMMON /SYSTEM/ SKP1(8),MAXLIN,SKP2(2),LINCNT\r\nC\r\nC     LINES = NUNBER OF LINES TO BE PRINTED.\r\nC     RESULT = 1 IF NEW PAGE IS STARTED.\r\nC\r\n      EJECT = 0\r\n      IF (LINCNT+LINES+2 .LE. MAXLIN) GO TO 105\r\n      CALL PAGE1\r\n      EJECT = 1\r\n  105 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ektrmd.f",
    "content": "      SUBROUTINE EKTRMD (NTYPE)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE\r\nC     TRIANGULAR MEMBRANE ELEMENT\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     IF NTYPE = 0  COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC     IF NTYPE = 1  9  3X3 MATRICES FOR THE GRID POINTS  IN ECPT\r\nC\r\nC\r\n      LOGICAL          NOGO,HEAT\r\n      INTEGER          NECPT(21)\r\n      REAL             ECPT(21),MATBUF\r\n      DOUBLE PRECISION G(9),C(18),TT(2),TI(9),TEMPAR(27),E,K,KOUT,KIJ,\r\n     1                 A,PROD9,TEMP9,XSUBB,XSUBC,YSUBC,DICT5\r\n      DOUBLE PRECISION TEMP,VOL,REELMU,FLAMDA,DELTA\r\n      COMMON /EMGTRX/  A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5,\r\n     1                 E(18),K(324),KOUT(324),KIJ(81)\r\n      COMMON /SYSTEM/  KSYSTM(60)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /EMGPRM/  DUM(19),NOGO, HEAT\r\n      COMMON /EMGEST/  MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1,\r\n     1                 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222\r\n      COMMON /HMTOUT/  MATBUF(4)\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(ECPT(1),NECPT(1),MECPT(1)),\r\n     1                 (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT)\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\nC\r\n      E(1) = DBLE(X2) - DBLE(X1)\r\n      E(3) = DBLE(Y2) - DBLE(Y1)\r\n      E(5) = DBLE(Z2) - DBLE(Z1)\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2)\r\n      IF (XSUBB .LE. 1.D-6) GO TO 7770\r\nC\r\nC  20 NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n      E(1) = E(1)/XSUBB\r\n      E(3) = E(3)/XSUBB\r\n      E(5) = E(5)/XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = DBLE(X3) - DBLE(X1)\r\n      E(4) = DBLE(Y3) - DBLE(Y1)\r\n      E(6) = DBLE(Z3) - DBLE(Z1)\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3)*E(6) - E(5)*E(4)\r\n      E(8) = E(5)*E(2) - E(1)*E(6)\r\n      E(9) = E(1)*E(4) - E(3)*E(2)\r\nC\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2)\r\n      IF (YSUBC .LE. 1.D-6) GO TO 7780\r\nC\r\nC  25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n      E(7) = E(7)/YSUBC\r\n      E(8) = E(8)/YSUBC\r\n      E(9) = E(9)/YSUBC\r\nC\r\nC     J VECTOR = K CROSS I\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5)*E(8) - E(3)*E(9)\r\n      E(4) = E(1)*E(9) - E(5)*E(7)\r\n      E(6) = E(3)*E(7) - E(1)*E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\nC\r\n      TEMP = DSQRT (E(2)**2 + E(4)**2 + E(6)**2)\r\n      IF (TEMP  .LE. 0.D0) GO TO 7790\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      VOL    = XSUBB*YSUBC*T/2.D0\r\n      REELMU = 1.D0/XSUBB\r\n      FLAMDA = 1.D0/YSUBC\r\n      DELTA  = XSUBC/XSUBB - 1.D0\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC         CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS\r\nC         CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS\r\nC         CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS\r\nC\r\n      C(1)  =-REELMU\r\n      C(2)  = 0.\r\n      C(3)  = 0.\r\n      C(4)  =  FLAMDA*DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  =-REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  = 0.\r\n      C(9)  = 0.\r\n      C(10) =-FLAMDA*REELMU*XSUBC\r\n      C(11) = C(10)\r\n      C(12) = REELMU\r\n      C(13) = 0.\r\n      C(14) = 0.\r\n      C(15) = 0.\r\n      C(16) = FLAMDA\r\n      C(17) = FLAMDA\r\n      C(18) = 0.\r\nC\r\n      IF (NTYPE .EQ. 1) GO TO 30\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   30 IF (ABS(SINTH) .LT. 1.E-6) SINTH = 0.\r\nC\r\nC     BRANCH ON -HEAT- PROBLEM AT THIS POINT.\r\nC\r\n      IF (HEAT) GO TO 300\r\n      ELTEMP = ECPT(21)\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     AT 50 G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC     AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ\r\nC\r\nC                     T        T             T\r\nC       K   = VOL . T  * E * C  * G * C  * E  * T\r\nC        IJ          I        I        J         J\r\nC\r\nC     T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE\r\nC     SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE\r\nC     IDENTITY MATRIX.\r\nC\r\nC     THE I SUBSCRIPT IMPLIES THE PIVOT POINT  1,2, OR 3 (ELEMENT SYST)\r\nC     THE J SUBSCRIPT IMPLIES  1 THRU 3  FOR EACH CALL TO THIS ROUTINE.\r\nC\r\nC     DO COMPUTATIONS FOR EACH POINT IN ECPT LIST\r\nC\r\n      DO 60 I = 1,81\r\n   60 KIJ(I) = 0.\r\n      DO 200 NPVT = 1,3\r\n      KA = 4*NPVT + 5\r\n      NPOINT = 6*NPVT - 5\r\nC\r\nC                     T\r\nC     COMPUTE   E * C   * G       AND STORE IN TEMPAR( 1 THRU 9 )\r\nC                    I\r\nC\r\n      CALL GMMATD (E,  3,2,0, C(NPOINT), 3,2,1,  TEMPAR(10))\r\n      CALL GMMATD (TEMPAR(10),3,3,0,  G, 3,3,0,  TEMPAR(1) )\r\nC\r\nC     NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE\r\nC     NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9\r\nC\r\n      NCOM = 1\r\n      NPT1 = 10\r\nC\r\nC     MULTIPLY COMMON PRODUCT BY SCALER VOL\r\nC\r\n      DO 90 I = 1,9\r\n   90 TEMPAR(I) = TEMPAR(I)*VOL\r\nC\r\nC     CHECK FOR PIVOT  CSID = 0, IF ZERO SKIP TRANSFORMATION TSUBI.\r\nC\r\n      IF (NECPT(KA) .EQ. 0)  GO TO 110\r\nC\r\nC     NOT-ZERO THUS GET TI\r\nC\r\n      CALL TRANSD (NECPT(KA),TI)\r\nC\r\nC     INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT\r\nC     TEMPAR(10 THRU 18)\r\nC\r\n      CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10))\r\nC\r\nC     COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1\r\nC\r\n      NCOM = 10\r\n      NPT1 =  1\r\nC\r\nC\r\nC  80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM),  (3X3).\r\nC     NPT1 POINTS TO FREE WORKING SPACE LENGTH 9.\r\nC\r\nC     PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3.\r\nC\r\n  110 NSAVE  = NPT1\r\n      NPOINT = (NPVT-1)*27\r\nC\r\nC     INSERT G INTO TEMPAR\r\nC\r\n      DO 115 I = 1,9\r\n115   TEMPAR(I+18) = G(I)\r\n      DO 190 I = 1,3\r\n      CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE))\r\nC\r\nC     NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT  C * E * T\r\nC                                                            J       J\r\nC\r\n      NPT2 = NSAVE\r\n      NPT1 = 19\r\nC\r\nC     CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED\r\nC\r\n      IF (NECPT(4*I +5) .EQ. 0) GO TO 120\r\nC\r\nC     COMMING HERE IMPLIES NEED FOR TJ\r\nC     WILL STORE TJ IN TI\r\nC\r\n      CALL TRANSD (NECPT(4*I+5),TI)\r\n      CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19))\r\n      NPT1 = NPT2\r\n      NPT2 = 19\r\nC\r\nC  60 AT THIS POINT COMPLETE COMPUTATION FOR  K-SUB-I,J\r\nC\r\n  120 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1)\r\n     X)\r\n      NPT36 = NPT1 + 35\r\nC\r\n      DO 140 J = 1,9\r\n      NPOINT = NPOINT + 1\r\n      NPT2 = NPT1 + J - 1\r\n  140 KIJ(NPOINT) = TEMPAR(NPT2)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\nC\r\n      DICT5 = GSUBE\r\n      RETURN\r\nC\r\nC     HEAT PROBLEM LOGIC PICKS UP HERE.  CALL HMAT FOR MATERIAL DATA.\r\nC\r\n  300 INFLAG = 2\r\n      MATID  = NECPT(6)\r\n      ELTEMP = ECPT(21)\r\n      CALL HMAT (NECPT)\r\n      G(1) = MATBUF(1)\r\n      G(2) = MATBUF(2)\r\n      G(3) = MATBUF(2)\r\n      G(4) = MATBUF(3)\r\nC\r\nC     CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE)  C IS (2X3)\r\nC\r\n      C(2) = C( 4)\r\n      C(3) = C( 7)\r\n      C(4) = C(10)\r\n      C(5) = C(13)\r\n      C(6) = C(16)\r\nC\r\nC     DETERMINE THE PIVOT POINT.\r\nC\r\n      KQ   = 3\r\n      KMAX = KQ*3\r\n      DO 320 I = 1,KMAX\r\n  320 KIJ(I) = 0.\r\n      DO 400 NPVT = 1,3\r\nC\r\nC     PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).)\r\nC\r\n      TT(1) = VOL*C(2*NPVT-1)\r\n      TT(2) = VOL*C(2*NPVT)\r\nC\r\nC     OUTPUT THE CONDUCTIVITY MATRICES\r\nC\r\n      NPOINT = (NPVT-1)*KQ\r\nC\r\n      DO 380 I = 1,3\r\n      N2 = 2*I\r\n      N1 = N2 - 1\r\n      TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1) +\r\n     1            (G(3)*C(N1) + G(4)*C(N2))*TT(2)\r\nC\r\nC     SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION)\r\nC\r\n      KIJ(NPOINT+1) = TEMPAR(1)\r\n      NPOINT = NPOINT + 1\r\n  380 CONTINUE\r\n  400 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR  EXITS\r\nC\r\n 7770 CALL MESAGE (30,31,NECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\n 7780 CALL MESAGE (30,32,NECPT(1))\r\n      GO TO 7777\r\n 7790 CALL MESAGE (30,26,NECPT(1))\r\n      GO TO 7777\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ektrms.f",
    "content": "      SUBROUTINE EKTRMS (NTYPE)\r\nC\r\nC     TRIANGULAR MEMBRANE ELEMENT\r\nC\r\nC     ECPT LIST\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     IF NTYPE = 0  COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC     IF NTYPE = 1  9  3X3 MATRICES FOR THE GRID POINTS  IN ECPT\r\nC\r\n      LOGICAL         NOGO,HEAT\r\n      INTEGER         NECPT(6)\r\n      REAL            K,KOUT,ECPT(21),MATBUF,KIJ,G(9),C(18),TT(2),TI(9),\r\n     1                TEMPAR(27)\r\n      COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5,\r\n     1                E(18),K(324),KOUT(324),KIJ(81)\r\n      COMMON /SYSTEM/ KSYSTM(60)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /EMGPRM/ DUM(19),NOGO,HEAT\r\n      COMMON /EMGEST/ MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1,Y1,\r\n     1                Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                G2X211,G2X212,G2X222\r\n      COMMON /HMTOUT/ MATBUF(4)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1),MECPT(1)),\r\n     1                (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT)\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\nC\r\n      E(1) = X2 - X1\r\n      E(3) = Y2 - Y1\r\n      E(5) = Z2 - Z1\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = SQRT(E(1)**2 + E(3)**2 + E(5)**2)\r\n      IF (XSUBB .LE. 1.E-06)  GO TO 7770\r\nC\r\nC  20 NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n      E(1) = E(1)/XSUBB\r\n      E(3) = E(3)/XSUBB\r\n      E(5) = E(5)/XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = X3 - X1\r\n      E(4) = Y3 - Y1\r\n      E(6) = Z3 - Z1\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3)*E(6) - E(5)*E(4)\r\n      E(8) = E(5)*E(2) - E(1)*E(6)\r\n      E(9) = E(1)*E(4) - E(3)*E(2)\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = SQRT(E(7)**2 + E(8)**2 + E(9)**2)\r\n      IF (YSUBC .LE. 1.E-06) GO TO 7780\r\nC\r\nC  25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n      E(7) = E(7)/YSUBC\r\n      E(8) = E(8)/YSUBC\r\n      E(9) = E(9)/YSUBC\r\nC\r\nC     J VECTOR = K CROSS I\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5)*E(8) - E(3)*E(9)\r\n      E(4) = E(1)*E(9) - E(5)*E(7)\r\n      E(6) = E(3)*E(7) - E(1)*E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\nC\r\n      TEMP = SQRT(E(2)**2 + E(4)**2 + E(6)**2)\r\n      IF (TEMP .EQ. 0.0) GO TO 7790\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      VOL    = XSUBB*YSUBC*T/2.\r\n      REELMU = 1./XSUBB\r\n      FLAMDA = 1./YSUBC\r\n      DELTA  = XSUBC/XSUBB - 1.\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC         CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS\r\nC         CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS\r\nC         CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS\r\nC\r\n      C(1)  =-REELMU\r\n      C(2)  = 0.\r\n      C(3)  = 0.\r\n      C(4)  = FLAMDA*DELTA\r\n      C(5)  = C(4)\r\n      C(6)  =-REELMU\r\n      C(7)  = REELMU\r\n      C(8)  = 0.\r\n      C(9)  = 0.\r\n      C(10) =-FLAMDA*REELMU*XSUBC\r\n      C(11) = C(10)\r\n      C(12) = REELMU\r\n      C(13) = 0.\r\n      C(14) = 0.\r\n      C(15) = 0.\r\n      C(16) = FLAMDA\r\n      C(17) = FLAMDA\r\n      C(18) = 0.\r\nC\r\n      IF (NTYPE .EQ. 1) GO TO 30\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     BRANCH ON -HEAT- PROBLEM AT THIS POINT.\r\nC\r\n      IF (HEAT) GO TO 300\r\n      ELTEMP = ECPT(21)\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     AT 50 G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC     AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ\r\nC\r\nC                     T        T             T\r\nC       K   = VOL . T  * E * C  * G * C  * E  * T\r\nC        IJ          I        I        J         J\r\nC\r\nC     T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE\r\nC     SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE\r\nC     IDENTITY MATRIX.\r\nC\r\nC     THE I SUBSCRIPT IMPLIES THE PIVOT POINT  1,2, OR 3 (ELEMENT SYST)\r\nC     THE J SUBSCRIPT IMPLIES  1 THRU 3  FOR EACH CALL TO THIS ROUTINE.\r\nC\r\nC     DO COMPUTATIONS FOR EACH POINT IN ECPT LIST\r\nC\r\n      DO 60 I = 1,81\r\n   60 KIJ(I) = 0.\r\n      DO 200 NPVT = 1,3\r\n      KA = 4*NPVT + 5\r\n      NPOINT = 6*NPVT - 5\r\nC\r\nC                     T\r\nC     COMPUTE   E * C   * G       AND STORE IN TEMPAR(1 THRU 9)\r\nC                    I\r\nC\r\n      CALL GMMATS (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10))\r\n      CALL GMMATS (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1))\r\nC\r\nC     NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE\r\nC     NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9\r\nC\r\n      NCOM = 1\r\n      NPT1 = 10\r\nC\r\nC     MULTIPLY COMMON PRODUCT BY SCALER VOL\r\nC\r\n      DO 90 I = 1,9\r\n   90 TEMPAR(I) = TEMPAR(I)*VOL\r\nC\r\nC     CHECK FOR PIVOT  CSID = 0,  IF ZERO SKIP TRANSFORMATION TSUBI.\r\nC\r\n      IF (NECPT(KA) .EQ. 0) GO TO 110\r\nC\r\nC     NOT-ZERO THUS GET TI\r\nC\r\n      CALL TRANSS (NECPT(KA),TI)\r\nC\r\nC     INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT\r\nC     TEMPAR(10 THRU 18)\r\nC\r\n      CALL GMMATS (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10))\r\nC\r\nC     COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1\r\nC\r\n      NCOM = 10\r\n      NPT1 =  1\r\nC\r\nC  80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM),  (3X3).\r\nC     NPT1 POINTS TO FREE WORKING SPACE LENGTH 9.\r\nC\r\nC     PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3.\r\nC\r\n  110 NSAVE  = NPT1\r\n      NPOINT = (NPVT-1)*27\r\nC\r\nC     INSERT G INTO TEMPAR\r\nC\r\n      DO 115 I = 1,9\r\n115   TEMPAR(I+18) = G(I)\r\n      DO 190 I = 1,3\r\n      CALL GMMATS (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE))\r\nC\r\nC     NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT  C * E * T\r\nC                                                            J       J\r\n      NPT2 = NSAVE\r\n      NPT1 = 19\r\nC\r\nC     CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED\r\nC\r\n      IF (NECPT(4*I +5) .EQ. 0) GO TO 120\r\nC\r\nC     COMMING HERE IMPLIES NEED FOR TJ\r\nC     WILL STORE TJ IN TI\r\nC\r\n      CALL TRANSS (NECPT(4*I+5),TI)\r\n      CALL GMMATS (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19))\r\n      NPT1 = NPT2\r\n      NPT2 = 19\r\nC\r\nC  60 AT THIS POINT COMPLETE COMPUTATION FOR  K-SUB-I,J\r\nC\r\n  120 CALL GMMATS (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1))\r\n      NPT36 = NPT1 + 35\r\nC\r\n      DO 140 J = 1,9\r\n      NPOINT = NPOINT + 1\r\n      NPT2   = NPT1 + J - 1\r\n  140 KIJ(NPOINT) = TEMPAR(NPT2)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\nC\r\n      DICT5 = GSUBE\r\n      RETURN\r\nC\r\nC     HEAT PROBLEM LOGIC PICKS UP HERE.  CALL HMAT FOR MATERIAL DATA.\r\nC\r\n  300 INFLAG = 2\r\n      MATID  = NECPT(6)\r\n      ELTEMP = ECPT(21)\r\n      CALL HMAT (NECPT)\r\n      G(1) = MATBUF(1)\r\n      G(2) = MATBUF(2)\r\n      G(3) = MATBUF(2)\r\n      G(4) = MATBUF(3)\r\nC\r\nC     CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE)  C IS (2X3)\r\nC\r\n      C(2) = C(4)\r\n      C(3) = C(7)\r\n      C(4) = C(10)\r\n      C(5) = C(13)\r\n      C(6) = C(16)\r\nC\r\nC     DETERMINE THE PIVOT POINT.\r\nC\r\n      KQ   = 3\r\n      KMAX = KQ*3\r\n      DO 320 I = 1,KMAX\r\n  320 KIJ(I) = 0.\r\n      DO 400 NPVT = 1,3\r\nC\r\nC     PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).)\r\nC\r\n      TT(1) = VOL*C(2*NPVT-1)\r\n      TT(2) = VOL*C(2*NPVT  )\r\nC\r\nC     OUTPUT THE CONDUCTIVITY MATRICES\r\nC\r\n      NPOINT = (NPVT-1)*KQ\r\nC\r\n      DO 380 I = 1,3\r\n      N2 = 2*I\r\n      N1 = N2 - 1\r\n      TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1)  +\r\n     1            (G(3)*C(N1) + G(4)*C(N2))*TT(2)\r\nC\r\nC     SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION)\r\nC\r\n      KIJ(NPOINT+1) = TEMPAR(1)\r\n      NPOINT = NPOINT + 1\r\n  380 CONTINUE\r\n  400 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR  EXITS\r\nC\r\n 7770 CALL MESAGE (30,31,NECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\n 7780 CALL MESAGE (30,32,NECPT(1))\r\n      GO TO 7777\r\n 7790 CALL MESAGE (30,26,NECPT(1))\r\n      GO TO 7777\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/elelbl.f",
    "content": "      SUBROUTINE ELELBL (GPLST,X,U,DEFORM,BUF1)\r\nC\r\n      LOGICAL         SOLID\r\n      INTEGER         BLANK    ,BUF1     ,BR       ,Q4       ,T3      ,\r\n     1                CHR      ,CREW     ,DEFORM   ,HB       ,TWOD    ,\r\n     2                ECT      ,ELID     ,ELIDP(2) ,ELSETS   ,ELTYPE  ,\r\n     3                GPTS     ,GPLST(1) ,LBL(10)  ,LBLP(8)  ,RDREW   ,\r\n     4                PID      ,PLABEL   ,PLTFLG   ,PSET     ,OFFSET\r\n      REAL            INFNTY   ,LEN      ,MA       ,MAXLEN   ,MB      ,\r\n     1                MINSLP   ,X(3,1)   ,U(2,1)\r\n      COMMON /BLANK / SKP(3),PLTFLG,SKP1(6),SKP2(2),ELSETS,CASECC(5),ECT\r\n      COMMON /SYSTEM/ KSYSTM(40),NCPW\r\n      COMMON /NAMES / NOREW,RDREW,SKPN(2),CREW\r\n      COMMON /GPTA1 / NTYPS,LAST,INCR,NE(1)\r\n      COMMON /CHAR94/ CHR(60)\r\n      COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTCHR(2)\r\n      COMMON /DRWDAT/ PSET,PLABEL\r\n      COMMON /PLTSCR/ NCOR,XY(2,8),GPTS(4)\r\nC\r\n      DATA   BLANK  , INFNTY,SLPMAX   / 1H ,1.E3,5. /, PID / 4      /,\r\n     1       ITETRA / 2HTE   /, IECT  / 4HECT   / , HB     / 2HHB   /,\r\n     2       BR     / 2HBR   /, Q4    / 2HQ4    /,  T3     / 2HT3   /\r\nC\r\n      NP = 0\r\n      CALL TIPE (0,0,0,0,0,-1)\r\n      CNTX = CNTCHR(1)\r\n      CNTY = CNTCHR(1) + (CNTCHR(2) - CNTCHR(1))/2.\r\nC\r\nC   . CHECK IF PROPERTY ID IS TO BE TYPED NEXT TO ELEMENT ID\r\nC\r\n      IF (PLABEL .NE. PID) GO TO 40\r\n      IF (PLTFLG .LT.   0) GO TO 10\r\n      CALL PRELOC (*10,GPLST(BUF1),ECT)\r\n      CALL FNAME  (ECT,GPTS(1))\r\n      IF (GPTS(1) .EQ. IECT) GO TO 20\r\n      CALL CLOSE (ECT,CREW)\r\n   10 PLABEL = PID - 1\r\n      GO TO 40\r\n   20 CALL DELSET\r\n      LPID = 0\r\nC\r\nC   . READ THE ELEMENT TYPE + NUMBER OF GRID POINTS / ELEMENT OF THIS\r\nC     TYPE.\r\nC\r\n   30 IF (LPID .GT. 0) CALL FWDREC(*40,ECT)\r\n   40 CALL READ (*200,*200,ELSETS,ELTYPE,1,0,I)\r\n      CALL FREAD (ELSETS,NGPEL,1,0)\r\n      TWOD = 0\r\n      IF (NGPEL .GT. 2) TWOD = 1\r\n      NGPEL = IABS (NGPEL)\r\n      SOLID =.FALSE.\r\n      IF ((ELTYPE.EQ.ITETRA .OR. NGPEL.GT.4) .AND. ELTYPE.NE.HB)\r\n     1     SOLID = .TRUE.\r\nC-----\r\nC   . REJECT ELEMENTS WITH 0 OR MORE THAN --NCOR-16-- GRID POINTS\r\nC\r\n      IF (NGPEL.GT.1 .AND. NGPEL.LT.NCOR-13) GO TO 60\r\n   50 CALL FREAD (ELSETS,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 40\r\n      CALL FREAD (ELSETS,0,-1,0)\r\n      CALL FREAD (ELSETS,0,-NGPEL,0)\r\n      GO TO 50\r\n   60 CONTINUE\r\nC-----\r\n      IF (PLABEL .NE. PID) GO TO 90\r\n      J = 16\r\n      DO 70 I = 1,NTYPS\r\n      IF (NE(J) .EQ. ELTYPE) GO TO 80\r\n   70 J = J + INCR\r\n      GO TO 90\r\n   80 LPID = J - 12\r\n      IF (NE(LPID+2) .LE. 0) GO TO 90\r\n      NPID = NE(LPID+2)\r\n      CALL LOCATE (*90,GPLST(BUF1),NE(LPID),GPTS(1))\r\n      GO TO 100\r\n   90 LPID = 0\r\nC\r\n  100 NGPEL1 = NGPEL + 1\r\n      OFFSET = 0\r\n      IF (ELTYPE .EQ. BR) OFFSET = 6\r\n      IF (ELTYPE.EQ.Q4 .OR. ELTYPE.EQ.T3) OFFSET = 1\r\nC\r\nC     READ AN ELEMENT ID + ITS GRID POINTS.\r\nC\r\n  102 CALL FREAD (ELSETS,ELID,1,0)\r\n      IF (ELTYPE .EQ. HB) NGPEL = 8\r\n      IF (ELID   .LE.  0) GO TO 30\r\n      CALL FREAD (ELSETS,0,-1,0)\r\n      CALL FREAD (ELSETS,GPTS(1),NGPEL,0)\r\n      IF (OFFSET .GT. 0) CALL FREAD (ELSETS,0,-OFFSET,0)\r\n      IF (ELTYPE .NE. HB) GO TO 1028\r\n      DO 1023 I = 2,4\r\n      IF (GPTS(I)) 1023,1025,1023\r\n 1023 CONTINUE\r\n      I = 5\r\n 1025 NGPEL = I - 1\r\n 1028 CONTINUE\r\n      K = ELID\r\n      NL = 0\r\n      DO 103 I = 1,8\r\n      J = ELID/10**(8-I)\r\n      IF (J.EQ.0 .AND. NL.EQ.0) GO TO 103\r\n      NL = NL + 1\r\n      LBL(NL) = CHR(J+1)\r\n      ELID = ELID - J*10**(8-I)\r\n  103 CONTINUE\r\n      LBL(NL+1) = KHRFN1(BLANK,1,ELTYPE,1)\r\n      LBL(NL+2) = KHRFN1(BLANK,1,ELTYPE,2)\r\n      NL = NL + 2\r\nC\r\nC   . DECODE PROPERTY ID\r\nC\r\n      IF (LPID .LE. 0) GO TO 105\r\n 1040 CALL READ (*1041,*1041,ECT,ELIDP,2,0,I)\r\n      CALL FREAD (ECT,0,-(NPID-2),0)\r\n      IF (ELIDP(1) .EQ. K) GO TO 1042\r\n      GO TO 1040\r\n 1041 LPID = -1\r\n      GO TO 105\r\nC\r\nC   . ELEMENT PROPERTY FOUND\r\nC\r\n 1042 K  = 10000000\r\n      NP = 0\r\n      DO 1043 I = 1,8\r\n      J = ELIDP(2)/K\r\n      IF (J.EQ.0 .AND. NP.EQ.0) GO TO 1043\r\n      NP = NP + 1\r\n      LBLP(NP) = CHR(J+1)\r\n      ELIDP(2) = ELIDP(2) - J*K\r\n 1043 K = K/10\r\nC\r\n  105 CONTINUE\r\nC\r\nC   . SET UP THE COORDINATES OF THE GRID POINTS\r\nC\r\n      DO 108 I = 1,NGPEL\r\n      J = GPTS(I)\r\n      J = IABS(GPLST(J))\r\n      IF (DEFORM .NE. 0) GO TO 106\r\n      XX = X(2,J)\r\n      YY = X(3,J)\r\n      GO TO 107\r\n  106 XX = U(1,J)\r\n      YY = U(2,J)\r\n  107 IF (SOLID) GO TO 1071\r\n      XY(1,I) = XX\r\n      XY(2,I) = YY\r\n      J = NGPEL + I\r\n      XY(1,J) = XX\r\n      XY(2,J) = YY\r\n      GO TO 108\r\n 1071 IF (I .GT. 2) GO TO 1072\r\n      XY(1,I) = XX\r\n      XY(2,I) = YY\r\n      IF (I .NE. 1) GO TO 1072\r\n      XY(1,3) = 0.0\r\n      XY(2,3) = 0.0\r\n 1072 XY(1,3) = XX + XY(1,3)\r\n      XY(2,3) = YY + XY(2,3)\r\n  108 CONTINUE\r\nC\r\n      IF (SOLID) GO TO 160\r\n      IF (TWOD  .NE. 0) GO TO 110\r\n      IF (NGPEL .EQ. 2) GO TO 125\r\n      K = 3\r\n      GO TO 120\r\nC\r\nC     FIND THE BASE OF THIS POLYGON = LONGEST SIDE (IF MORE THAN ONE\r\nC     LONGEST SIDE, CHOOSE FROM THEM THE SIDE OF SMALLEST SLOPE).\r\nC\r\n  110 MAXLEN = 0.\r\n      DO 116 I = 1,NGPEL\r\n      XX = XY(1,I+1) - XY(1,I)\r\n      YY = XY(2,I+1) - XY(2,I)\r\n      LEN = XX**2 + YY**2\r\n      IF (XX .NE. 0.) GO TO 111\r\n      SLP = INFNTY\r\n      GO TO 112\r\n  111 SLP = ABS(YY/XX)\r\n  112 IF (MAXLEN-LEN) 113,114,116\r\n  113 MAXLEN = LEN\r\n      GO TO 115\r\n  114 IF (SLP .GE. MINSLP) GO TO 116\r\n  115 K = I\r\n      MINSLP = SLP\r\n  116 CONTINUE\r\nC\r\n      IF (K .EQ. 1) GO TO 122\r\n  120 DO 121 I = 1,NGPEL1\r\n      XY(1,I) = XY(1,K)\r\n      XY(2,I) = XY(2,K)\r\n      K = K + 1\r\n  121 CONTINUE\r\n  122 IF (NGPEL .EQ. 6) GO TO 140\r\n      IF (NGPEL-3) 125,140,150\r\nC\r\nC     LINE ELEMENT.\r\nC\r\n  125 XX = XY(1,2) - XY(1,1)\r\n      IF (XX .EQ. 0.) GO TO 126\r\n      YY = XY(2,2) - XY(2,1)\r\n      SLP= YY/XX\r\n      GO TO 127\r\n  126 SLP= INFNTY\r\n  127 XC = (XY(1,1) + XY(1,2))/2.\r\n      YC = (XY(2,1) + XY(2,2))/2.\r\nC\r\n      IF (ABS(SLP)-1.) 128,128,129\r\n  128 YC = YC + CNTY\r\n      GO TO 175\r\n  129 IF (ABS(SLP)-SLPMAX) 130,131,131\r\n  130 XC = XC - SIGN(CNTX,SLP)\r\n      GO TO 175\r\n  131 XC = XC + CNTX\r\n      GO TO 175\r\nC\r\nC     TRIANGULAR ELEMENT.  POINTS 1+2 ARE THE BASE - POINT 3 THE APEX.\r\nC\r\n  140 XC = (XY(1,1) + XY(1,2) + XY(1,3))/3.\r\n      YC = (XY(2,1) + XY(2,2) + XY(2,3))/3.\r\n      GO TO 175\r\nC\r\nC     QUADRILATERAL ELEMENT.\r\nC\r\n  150 XX = (XY(1,3)+XY(1,4)) - (XY(1,1)+XY(1,2))\r\n      IF (XX .NE. 0.) GO TO 151\r\n      MA = INFNTY\r\n      GO TO 152\r\n  151 YY = (XY(2,3)+XY(2,4)) - (XY(2,1)+XY(2,2))\r\n      MA = YY/XX\r\n      BA = (XY(2,1)+XY(2,2))/2. - MA*(XY(1,1)+XY(1,2))/2.\r\n  152 XX = (XY(1,2)+XY(1,3)) - (XY(1,1)+XY(1,4))\r\n      IF (XX .NE. 0.) GO TO 153\r\n      MB = INFNTY\r\n      GO TO 155\r\n  153 YY = (XY(2,2)+XY(2,3)) - (XY(2,1)+XY(2,4))\r\n      MB = YY/XX\r\n      BB = (XY(2,1)+XY(2,4))/2. - MB*(XY(1,1)+XY(1,4))/2.\r\nC\r\n  155 IF (ABS(MA) .GE. INFNTY) GO TO 156\r\n      IF (ABS(MB) .GE. INFNTY) GO TO 157\r\n      IF (MB .EQ. MA) GO TO 158\r\n      XC = (BA-BB)/(MB-MA)\r\n      YC = MA*XC + BA\r\n      GO TO 175\r\n  156 XC = (XY(1,1) + XY(1,2))/2.\r\n      YC = MB*XC + BB\r\n      GO TO 175\r\n  157 XC = (XY(1,1) + XY(1,4))/2.\r\n      YC = MA*XC + BA\r\n      GO TO 175\r\n  158 XC = (XY(1,3) + XY(1,4) + XY(1,2)+XY(1,1))/4.0\r\n      YC = (XY(2,3) + XY(2,4) + XY(2,2)+XY(2,1))/4.0\r\n      GO TO 175\r\nC\r\nC   . ELEMENTS WITH MORE THAN FOUR GRIDS\r\nC\r\n  160 XC = XY(1,3)/FLOAT(NGPEL)\r\n      YC = XY(2,3)/FLOAT(NGPEL)\r\n      GO TO 175\r\nC\r\nC     SETUP THE STRAIGHT LINE EQUATION OF THE LINE ON WHICH THE ELEMENT\r\nC     LABEL IS TO BE TYPED - Y=MX+B.\r\nC\r\n  175 XX = XY(1,2) - XY(1,1)\r\n      IF (XX .EQ. 0.) GO TO 176\r\n      YY = XY(2,2) - XY(2,1)\r\n      SLP= YY/XX\r\n      B  = YC - XC*SLP\r\n      GO TO 180\r\n  176 SLP= INFNTY\r\nC\r\nC     TYPE THE ELEMENT LABEL (NL CHARACTERS)\r\nC\r\n  180 ZZ = NL/2\r\n      IF (NL/2 .EQ. (NL+1)/2) ZZ = ZZ - .5\r\n      ABSSLP = ABS(SLP)\r\n      CC = CNTX\r\n      IF (ABSSLP .GE. SLPMAX) CC = CNTY\r\n      K = MAX0(NL,NP)\r\nC\r\n      DO 191 I = 1,K\r\n      XX = CC*(ZZ - FLOAT(I-1))\r\n      IF (ABSSLP .GT. 1.) GO TO 181\r\n      XX = XC - XX\r\n      YY = SLP*XX + B\r\n      GO TO 190\r\n  181 IF (ABSSLP .GE. SLPMAX) GO TO 182\r\n      YY = SIGN(1.,SLP)\r\n      GO TO 183\r\n  182 YY = -1.\r\n  183 YY = YC - YY*XX\r\n      IF (ABSSLP .GE. INFNTY) GO TO 184\r\n      XX = (YY-B)/SLP\r\n      GO TO 190\r\n  184 XX = XC\r\nC\r\nC\r\nC     OFFSET THE HB LABEL AND PROPERTY ID IF ANY WHEN TIPE LABEL\r\nC\r\n  190 IF (ELTYPE .NE. HB) GO TO 1905\r\n      JTJ = 2\r\n      IF (ABSSLP .LT. SLPMAX) YY = YY - JTJ*CC\r\n      IF (ABSSLP .GE. SLPMAX) XX = XX + JTJ*CC\r\n 1905 IF (NL .GE. I) CALL TIPE (XX,YY,1,LBL(I),1,0)\r\n      IF (LPID .LE. 0) GO TO 191\r\n      IF (NP   .LT. I) GO TO 191\r\n      IF (ABSSLP .LT. SLPMAX) YY = YY - 2.*CC\r\n      IF (ABSSLP .GE. SLPMAX) XX = XX + 2.*CC\r\n      CALL TIPE (XX,YY,1,LBLP(I),1,0)\r\n  191 CONTINUE\r\n      GO TO 102\r\nC\r\n  200 CALL TIPE (0,0,0,0,0,1)\r\n      IF (PLABEL .EQ. PID) CALL CLOSE (ECT,CREW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/elim.f",
    "content": "      SUBROUTINE ELIM (IN1,IN2,IN3,IN4,OUT1,SCR1,SCR2,SCR3)\r\nC\r\nC     ELIM EVALUATES THE MATRIX EQUATION -\r\nC\r\nC     OUT1 = IN1 + IN4(T)*IN2 + IN2(T)*IN4 + IN4(T)*IN3*IN4\r\nC\r\n      INTEGER         OUT1  ,SCR1  ,SCR2  ,SCR3  ,FILEA ,FILEB ,FILEC  ,\r\n     1                FILED ,T     ,SIGNAB,SIGNC ,PREC  ,RDP   ,PLUS   ,\r\n     2                SCRTCH\r\n      DIMENSION       FILEA(7)     ,FILEB(7)     ,FILEC(7)     ,FILED(7)\r\nC    1,               MCB(7)\r\n      COMMON /MPYADX/ FILEA ,FILEB ,FILEC ,FILED ,NZ    ,T     ,SIGNAB ,\r\n     1                SIGNC ,PREC  ,SCRTCH\r\n      COMMON /SYSTEM/ IDUM(54)     ,IPREC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    PLUS  / +1 /\r\nC\r\n      RDP = IPREC\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      NZ     = KORSZ(Z)\r\n      SIGNAB = PLUS\r\n      SIGNC  = PLUS\r\n      PREC   = RDP\r\n      SCRTCH = SCR3\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS FOR IN3,IN4,IN2 AND SCR1\r\nC\r\n      FILEA(1) = IN3\r\n      CALL RDTRL (FILEA)\r\n      FILEB(1) = IN4\r\n      CALL RDTRL (FILEB)\r\n      FILEC(1) = IN2\r\n      CALL RDTRL (FILEC)\r\n      FILED(1) = SCR1\r\n      FILED(3) = FILEC(3)\r\n      FILED(4) = FILEC(4)\r\n      FILED(5) = RDP\r\nC\r\nC     COMPUTE SCR1 = IN3*IN4 + IN2\r\nC\r\n      T = 0\r\n      CALL MPYAD (Z,Z,Z)\r\nC\r\nC     SAVE MATRIX CONTROL BLOCK FOR SCR1\r\nC\r\nC     DO 41 I = 1,7\r\n      CALL WRTTRL (FILED)\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS FOR IN2, IN4, IN1 AND SCR2\r\nC\r\n      DO 51 I = 1,7\r\n   51 FILEA(I) = FILEC(I)\r\n      FILEC(1) = IN1\r\n      CALL RDTRL (FILEC)\r\n      FILED(1) = SCR2\r\n      FILED(3) = FILEC(3)\r\n      FILED(4) = FILEC(4)\r\nC\r\nC     COMPUTE SCR2 = IN2(T)*IN4 + IN1\r\nC\r\n      T = 1\r\n      CALL MPYAD  (Z,Z,Z)\r\n      CALL WRTTRL (FILED)\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS FOR IN4,SCR1,SCR2 AND OUT1\r\nC\r\n      FILEA(1) = FILEB(1)\r\n      FILEB(1) = SCR1\r\n      FILEC(1) = FILED(1)\r\n      CALL RDTRL (FILEA)\r\n      CALL RDTRL (FILEB)\r\n      CALL RDTRL (FILEC)\r\n      FILED(1) = OUT1\r\n      FILED(3) = FILEC(3)\r\n      FILED(4) = FILEC(4)\r\nC\r\nC     COMPUTE  OUT1= IN4(T)*SCR1 + SCR2\r\nC\r\n      T = 1\r\n      CALL MPYAD (Z,Z,Z)\r\nC\r\nC     WRITE TRAILER FOR OUT1 AND RETURN\r\nC\r\n      CALL WRTTRL (FILED)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/em1d.f",
    "content": "      SUBROUTINE EM1D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,\r\n     1                 ALL,NELOUT)\r\nC\r\nC     COMPUTE LOAD DUE TO MAGNETIC FIELD,  K*A + F = 0\r\nC     SOLVE FOR -F\r\nC\r\nC     USE ELEMENT COORDINATES  FOR  ROD\r\nC\r\nC     SET UP COMMON BLOCKS, TABLES\r\nC\r\nC     KSYSTM(1) = 1ST POS. OF OPEN CORE\r\nC     KSYSTM(2) = OUTPUT FILE NO.\r\nC     KSYSTM(56) NE 0 FOR HEAT TRANSFER OPTION\r\nC\r\nC     Z      = OPEN CORE ARRAY\r\nC     OUTPT  = OUTPUT FILE NO.\r\nC     NELEMS = NO OF ELEMENTS (TYPES) IN THIS TABLE\r\nC     LAST   = LOC OF 1ST WORD OF LAST ENTRY(EL) IN TABLE\r\nC     INCR   = MAX NO WDS ALLOWED IN ANY ENTRY\r\nC\r\nC     BUF1   = BUFFER FOR EST\r\nC     EST    = ELEMENT SUMMARY TABLE(PROG MAN 2.3.56)\r\nC     SLT    = STAIC LOADS TABLE(2.3.51)\r\nC     SYSTEM 2.4.13 PROG MANUAL\r\nC     GPTA1  2.5.6\r\nC     EST    2.3.56\r\nC     SLT    2.3.51\r\nC\r\nC     ISTART GIVES 1ST POSITION OF HC OR REMFLUX VALUES\r\nC     ROD IS IN ELEMENT COORDINATES, AS ARE TUBE,CONROD,BAR\r\nC\r\nC     X1 = 0.   X2 = X\r\nC     AREA OF ROD NEEDED TO COMPUTE VOL\r\nC     VOL  = LENGTH  * A\r\nC     AREA OF TUBE CONPUTED WT OUTS.DIA.\r\nC\r\nC     OPEN FILE EST FOR ELEMENT DATA\r\nC\r\nC     INTEGRAL OVER VOL OF (GRADIENT SHAPE FUNC. TIMES GNU TIMES HC)\r\nC\r\nC     Z(1)  1ST POSITION OF LOAD\r\nC     NELEMS = NO OF ELEMENTS\r\nC     INCR   = MAX NO OF WORDS FOR AN ELEMENT OF THE ES T TABLE\r\nC     NE(1 AND2) = ELEMENT NAME\r\nC\r\n      LOGICAL         ONLYC\r\n      INTEGER         ELTYPE,ESTWDS,OUTPT,SYSBUF,ALL,SCR6\r\n      DIMENSION       XN(2),XLOAD(2),NSIL(2),IZ(1),NAM(2),\r\n     1                NECPT(200),NAME(2),HCX(2),HCY(2),HCZ(2),\r\n     2                ZI(3),DNDX(2),DNDY(2),DNDZ(2),BUF(50),IBUF(50),\r\n     3                XLACC(3),XI(2),W(2),SC(5),ISC(5)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ KSYSTM(64)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /EMECPT/ ECPT(200)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP\r\n      COMMON /HMTOUT/ XMAT\r\n      EQUIVALENCE     (IBUF(1)   ,BUF(1)), (SC(1)  ,ISC(1)  ),\r\n     1                (KSYSTM(1 ),SYSBUF), (KSYSTM(2),OUTPT ),\r\n     2                (KSYSTM(56),ITHRML), (ECPT(1),NECPT(1)),\r\n     3                (Z(1)      ,IZ(1) ), (NSIL(1),NECPT(2))\r\n      DATA     NAM  / 4H  EM,4H1D  /\r\n      DATA     SCR6 / 306          /\r\nC\r\nC     FROM EST GET ALL NECESSARY ELEMENT INFO\r\nC\r\n      ONLYC  = .FALSE.\r\n      NG     = 3\r\n      ISC(1) = NECPT(1)\r\n      ISC(2) = 1\r\n      XI(1)  = -.5773502692\r\n      XI(2)  = -XI(1)\r\n      W(1)   = 1.\r\n      W(2)   = 1.\r\n      IDX    = (ELTYPE-1)*INCR\r\n      ESTWDS = NE(IDX+12)\r\n      NGRIDS = NE(IDX+10)\r\n      NAME(1)= NE(IDX+ 1)\r\n      NAME(2)= NE(IDX+ 2)\r\nC\r\nC     CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY\r\nC     CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE\r\nC     ELEMENT IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.)\r\nC     THE PERMBDY SILS START AT Z(ISTART-NBDYS-1)\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 20\r\nC\r\n      DO 10 I = 1,NGRIDS\r\n      DO 10 J = 1,NBDYS\r\n      IF (NSIL(I) .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     ELEMENT HAS NO GRIDS ON PERMBDY\r\nC\r\n      ONLYC = .TRUE.\r\n      NG    = 1\r\n   20 CONTINUE\r\n      IF (ONLYC .AND. ITYPE.EQ.24) RETURN\r\nC\r\nC     IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST.\r\nC     IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND\r\nC     RETURN.\r\nC\r\n      IF (.NOT.ONLYC) GO TO 40\r\n      IF (ALL .EQ. 1) GO TO 40\r\n      IF (NELOUT .EQ. 0) GO TO 70\r\nC\r\n      DO 30 I = 1,NELOUT\r\n      IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 40\r\n   30 CONTINUE\r\n      GO TO 70\r\n   40 CONTINUE\r\nC\r\nC     1ST CHECK FOR ZERO LOAD\r\nC\r\n      IF (ITYPE.NE.20 .AND. ITYPE.NE.24) GO TO 80\r\n      H1 = 0.\r\n      H2 = 0.\r\n      H3 = 0.\r\n      DO 50 I = 1,2\r\n      ISUB = ISTART + 3*NSIL(I) - 3\r\n      IF (ITYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3\r\n      H1 = H1 + ABS(Z(ISUB  ))\r\n      H2 = H2 + ABS(Z(ISUB+1))\r\n      H3 = H3 + ABS(Z(ISUB+2))\r\n      IF (ITYPE .EQ. 24) GO TO 60\r\n   50 CONTINUE\r\n   60 HL = H1 + H2 + H3\r\n      IF (HL    .NE. 0.) GO TO 80\r\n      IF (ITYPE .EQ. 24) RETURN\r\nC\r\nC     ALL ZEROS-WRITE ON SCR6\r\nC\r\n   70 SC(3) = 0.\r\n      SC(4) = 0.\r\n      SC(5) = 0.\r\n      CALL WRITE (SCR6,SC,5,0)\r\n      RETURN\r\nC\r\n   80 CONTINUE\r\nC\r\nC     ROD ELTYPE 1\r\nC     TUBE       3\r\nC     CONROD    10\r\nC     BAR       34\r\nC     OTHERWISE  GET OUT\r\nC     ONED  SOLVES LOAD DUE TO MAGNETIC FILED\r\nC\r\n      PI    = 3.14159\r\n      INFLAG= 1\r\n      IF (ELTYPE.NE.1 .AND. ELTYPE.NE.10) GO TO 90\r\n      MID   = 4\r\n      ITEMP = 17\r\n      IX1   = 10\r\n      IX2   = 14\r\n      IY1   = 11\r\n      IY2   = 15\r\n      IZ1   = 12\r\n      IZ2   = 16\r\n      IAR   = 5\r\n      GO TO 110\r\n   90 IF (ELTYPE .NE. 3) GO TO 100\r\n      MID   = 4\r\n      ITEMP = 16\r\n      IX1   = 9\r\n      IX2   = 13\r\n      IY1   = 10\r\n      IY2   = 14\r\n      IZ1   = 11\r\n      IZ2   = 15\r\nC\r\nC     COMPUTE AREA\r\nC\r\n      DIA   = ECPT(5)\r\n      TH    = ECPT(6)\r\n      RAD   = DIA - 2.*TH\r\n      ARROD = PI*((DIA/2)**2 - (RAD/2.)**2)\r\n      GO TO 110\r\n  100 IF (ELTYPE .NE. 34) GO TO 300\r\n      MID   = 16\r\n      ITEMP = 42\r\n      IX1   = 35\r\n      IX2   = 39\r\n      IY1   = 36\r\n      IY2   = 40\r\n      IZ1   = 37\r\n      IZ2   = 41\r\n      IAR   = 17\r\n  110 IF (ONLYC) GO TO 120\r\n      XL    = ECPT(IX2) - ECPT(IX1)\r\n      YL    = ECPT(IY2) - ECPT(IY1)\r\n      ZL    = ECPT(IZ2) - ECPT(IZ1)\r\n      XLEN  = SQRT(XL**2 + YL**2 + ZL**2)\r\n      XN(1) = -1./XLEN\r\n      XN(2) =  1./XLEN\r\n      IF (ELTYPE .NE. 3) ARROD = ECPT(IAR)\r\n      ELTEMP= ECPT (ITEMP)\r\n      MATID = NECPT(MID)\r\nC\r\nC     ARROD = AREA OF CROSS SECTION OF ROD\r\nC\r\n      IF (ITYPE .NE. 24) CALL HMAT (NECPT(1))\r\n      GNU = XMAT\r\n      IF (ITYPE .EQ. 24) GNU = 1.\r\nC\r\nC     HC   FROM Z(ISTART)\r\nC     YIELDS X COORD OF HC FOR GRID PT DEFINED BY NSIL\r\nC\r\n      VOL = ARROD*XLEN\r\nC\r\nC     COMPUTE BASIC TO LOCAL TRANSFORMATION\r\nC\r\n      ZI(1) = XL/XLEN\r\n      ZI(2) = YL/XLEN\r\n      ZI(3) = ZL/XLEN\r\nC\r\nC     PARTIALS OF N W.R.T X-GLOBAL,Y-GLOBAL,Z-GLOBAL\r\nC\r\n      DNDX(1) = -ZI(1)/XLEN\r\n      DNDY(1) = -ZI(2)/XLEN\r\n      DNDZ(1) = -ZI(3)/XLEN\r\n      DNDX(2) = -DNDX(1)\r\n      DNDY(2) = -DNDY(1)\r\n      DNDZ(2) = -DNDZ(1)\r\n      CONST   = .5*GNU*VOL\r\n      IF (ITYPE .EQ. 24)GO TO 250\r\n  120 CONTINUE\r\n      JTYPE   = ITYPE - 19\r\n      XLACC(1)= 0.\r\n      XLACC(2)= 0.\r\n      XLACC(3)= 0.\r\nC\r\nC     LOOP OVER INTEGRATION POINTS-ASSUME CUBIC VARIATION. SO NEED 2\r\nC     INTEGRATION POINTS + CENTROID\r\nC\r\n      DO 240 NPTS = 1,NG\r\n      IF (NPTS .NE. NG) GO TO 130\r\n      XX = .5*(ECPT(IX1) + ECPT(IX2))\r\n      YY = .5*(ECPT(IY1) + ECPT(IY2))\r\n      ZZ = .5*(ECPT(IZ1) + ECPT(IZ2))\r\nC\r\nC     AVERAGE SPCFLD\r\nC\r\n      XLX  = .5\r\n      XLXP = .5\r\n      GO TO 140\r\nC\r\nC     COMPUTE LOCAL COORDINATE OF SAMPLING POINT\r\nC\r\n  130 XLOCAL = .5*XLEN*(1.+XI(NPTS))\r\n      XLX  = XLOCAL/XLEN\r\n      XLXP = 1. - XLX\r\nC\r\nC     COMPUTE BASIC COORDS FOR XLOCAL\r\nC\r\n      XX   = XLXP*ECPT(IX1) + XLX*ECPT(IX2)\r\n      YY   = XLXP*ECPT(IY1) + XLX*ECPT(IY2)\r\n      ZZ   = XLXP*ECPT(IZ1) + XLX*ECPT(IZ2)\r\n  140 AHCX = 0.\r\n      AHCY = 0.\r\n      AHCZ = 0.\r\nC\r\nC     COMPUTE HC AT THIS POINT DUE TO ALL LOADS OF THIS TYPE\r\nC\r\n      DO 220 IJK = 1,IDO\r\n      IF (ITYPE .EQ. 20) GO TO 160\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 150 I = 1,IWORDS\r\n  150 BUF(I) = Z(ISUB+I)\r\n      GO TO (160,180,190,200), JTYPE\r\nC\r\nC     SPCFLD\r\nC\r\n  160 DO 170 I = 1,2\r\n      IS = ISTART + 3*NSIL(I) -3\r\n      HCX(I) = Z(IS  )\r\n      HCY(I) = Z(IS+1)\r\n  170 HCZ(I) = Z(IS+2)\r\nC\r\nC     INTERPOLATE GRID VALUES TO INTEGRATION POINT\r\nC\r\n      HC1 = XLXP*HCX(1) + XLX*HCX(2)\r\n      HC2 = XLXP*HCY(1) + XLX*HCY(2)\r\n      HC3 = XLXP*HCZ(1) + XLX*HCZ(2)\r\n      GO TO 210\r\n  180 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 210\r\n  190 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 210\r\n  200 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n  210 AHCX  = AHCX + HC1\r\n      AHCY  = AHCY + HC2\r\n      AHCZ  = AHCZ + HC3\r\n  220 CONTINUE\r\n      IF (NPTS .NE. NG) GO TO 230\r\n      SC(3) = AHCX\r\n      SC(4) = AHCY\r\n      SC(5) = AHCZ\r\n      CALL WRITE (SCR6,SC,5,0)\r\n      IF (ONLYC) RETURN\r\n      GO TO 240\r\nC\r\nC     WE HAVE HC AT THIS INTEGRATION POINT. MULT. BY WEIGHT AND\r\nC     ACCUMULATE\r\nC\r\n  230 XLACC(1) = XLACC(1) + AHCX*W(NPTS)\r\n      XLACC(2) = XLACC(2) + AHCY*W(NPTS)\r\n      XLACC(3) = XLACC(3) + AHCZ*W(NPTS)\r\n  240 CONTINUE\r\nC\r\nC     MULT. BY CONST AND GRAD N TO GET LOADS\r\nC\r\n      XLOAD(1) = CONST*(DNDX(1)*XLACC(1) + DNDY(1)*XLACC(2) +\r\n     1           DNDZ(1)*XLACC(3))\r\n      XLOAD(2) = CONST*(DNDX(2)*XLACC(1) + DNDY(2)*XLACC(2) +\r\n     1           DNDZ(2)*XLACC(3))\r\n      GO TO 260\r\nC\r\nC     REMFLUX\r\nC\r\n  250 IS   = ISTART + 3*NCOUNT - 3\r\n      AHCX = Z(IS  )\r\n      AHCY = Z(IS+1)\r\n      AHCZ = Z(IS+2)\r\nC\r\n      XLOAD(1) = GNU*VOL*(DNDX(1)*AHCX + DNDY(1)*AHCY + DNDZ(1)*AHCZ)\r\n      XLOAD(2) = GNU*VOL*(DNDX(2)*AHCX + DNDY(2)*AHCY + DNDZ(2)*AHCZ)\r\n  260 DO 290 I = 1,2\r\n      J = NSIL(I)\r\nC\r\nC     IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 280\r\n      DO 270 K = 1,NBDYS\r\n      IF (J .NE. IZ(ISTART-NBDYS-NELOUT+K-1)) GO TO 270\r\n      GO TO 280\r\n  270 CONTINUE\r\n      GO TO 290\r\n  280 CONTINUE\r\n  290 Z(J) = Z(J) - XLOAD(I)\r\n      RETURN\r\nC\r\n  300 WRITE  (OUTPT,310) UFM\r\n  310 FORMAT (A23,', ELEMENT TYPE ',2A4,' WAS USED IN AN E AND M ',\r\n     1       'PROBLEM.')\r\n      CALL MESAGE (-37,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/em2d.f",
    "content": "      SUBROUTINE EM2D (ITYPE,ISTART,JTYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,\r\n     1                 NELOUT)\r\nC\r\nC     COMPUTES ADDITIONAL E AND M LOADS FOR TWO DIMENSIONAL ELEMENTS\r\nC\r\nC     THIS ROUTINE HANDLES THE FOLLOWING 2-D ELEMENTS\r\nC\r\nC     TRIA1 -6-   TRMEM -9-   QDMEM-16-  TRIA2-17-  QUAD2-18-  QUAD1-19-\r\nC     TRIARG-36-  TRAPRG-37   IS2D8-80-\r\nC\r\n      LOGICAL         ONLYC\r\n      INTEGER         OTPE,ALL,POINTR(9,9),TYPOLD,SCR6\r\n      REAL            L(3,4),W(4)\r\n      DIMENSION       BUF(50),JBUF(50),XLACC(3),IZ(1),NAM(2),NECPT(10),\r\n     1                R(3,8),IP(3),HC(3),XLOAD(3),D12(3),D13(3),XN(18),\r\n     2                G(9),DXX(3),ZI(3),ZJ(3),ZK(3),ET(9),XNG(9),HCX(3),\r\n     3                HCY(3),HCZ(3),ISC(5),SC(5),PT(3),H(3),Z14(3),\r\n     4                XZ(16),VEC(3),VVEC(3),HCI(24),F(8),GH(3),DN(8),\r\n     5                DNXI(1),DNETA(1),DNC(16),DNL(16),DNX(1),DNY(1),\r\n     6                XI(8),ETA(8),XJB(4),XXJB(2,2),IWS(2,3),HCXYZ(3),\r\n     7                DDNL(24),DDNLB(24)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,OTPE,IDUM(78)\r\n      COMMON /BLANK / NROWSP\r\n      COMMON /EMECPT/ ECPT(200)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /HMTOUT/ XMAT(6)\r\n      EQUIVALENCE     (BUF(1),JBUF(1)),(SC(1),ISC(1)),(Z(1),IZ(1)),\r\n     1                (ECPT(1),NECPT(1)),(I1,IP(1)),(I2,IP(2)),\r\n     2                (I3,IP(3)),(DNC(1),DNXI(1)),(DNC(9),DNETA(1)),\r\n     3                (DNL(1),DNX(1)),(DNL(9),DNY(1))\r\n      DATA    XI    / -1., 1., 1.,-1., 0., 1., 0.,-1./\r\n      DATA    ETA   / -1.,-1., 1., 1.,-1., 0., 1., 0./\r\n      DATA    TWOPI3/ 2.094395103  /\r\n      DATA    NAM   / 4HEM2D,4H    /\r\n      DATA    TYPOLD/ 0 /,   SCR6  / 306/\r\nC\r\nC     EST STARTING POINTERS\r\nC\r\nC     ISIL   = 1ST SIL NUMBER\r\nC     ITH    = MATERIAL ANGLE\r\nC     MID    = MATERIAL ID\r\nC     IA     = AREA FACTOR (TO COMPUTE VOLUME)\r\nC     ISYS   = 1ST OUTPUT CORRDINATE SYSYTEM NUMBER\r\nC     NGRIDS = NUMBER OF GRID POINTS\r\nC     ITEMP  = ELEMENT TEMPERATURE\r\nC     NEL    = NUMBER OF TRIANGLES USED TO FORM ELEMENT\r\nC\r\nC              ITYPE ISIL ITH MID IA ISYS NGRIDS ITEMP NEL\r\nC\r\n      DATA    POINTR/  6,    2,  5,  6,  7, 15,    3,    27,  1,\r\n     1                 9,    2,  5,  6,  7,  9,    3,    21,  1,\r\n     2                16,    2,  6,  7,  8, 10,    4,    26,  4,\r\n     3                17,    2,  5,  6,  7,  9,    3,    21,  1,\r\n     4                18,    2,  6,  7,  8, 10,    4,    26,  4,\r\n     5                19,    2,  6,  7,  8, 16,    4,    32,  4,\r\n     6                36,    2,  5,  6,  0,  7,    3,    19,  1,\r\n     7                37,    2,  6,  7,  0,  8,    4,    24,  4,\r\n     8                80,    2, 11, 12, 13, 14,    8,    46,  1/\r\nC\r\n      ONLYC  = .FALSE.\r\n      IF (ITYPE .EQ. 80) GO TO 10\r\n      L(1,1) = 1./3.\r\n      L(2,1) = L(1,1)\r\n      L(3,1) = L(1,1)\r\n      L(1,2) = .6\r\n      L(2,2) = .2\r\n      L(3,2) = .2\r\n      L(1,3) = .2\r\n      L(2,3) = .6\r\n      L(3,3) = .2\r\n      L(1,4) = .2\r\n      L(2,4) = .2\r\n      L(3,4) = .6\r\n      W(1)   =-27./48.\r\n      W(2)   = 25./48.\r\n      W(3)   = W(2)\r\n      W(4)   = W(2)\r\n      NOPTS  = 4\r\n   10 CONTINUE\r\n      ISC(1) = NECPT(1)\r\n      ISC(2) = 1\r\n      IF (ITYPE .EQ. 80) ISC(2) = 9\r\nC\r\nC     FIND ELEMENT TYPE TO PICK UP POINTERS\r\nC\r\n      IF (ITYPE .EQ. TYPOLD) GO TO 40\r\n      TYPOLD = ITYPE\r\n      DO 20 I = 1,9\r\n      JEL = I\r\n      IF (ITYPE-POINTR(1,I)) 1600,30,20\r\n   20 CONTINUE\r\n      GO TO 1600\r\nC\r\n   30 ISIL  = POINTR(2,JEL)\r\n      ITH   = POINTR(3,JEL)\r\n      MID   = POINTR(4,JEL)\r\n      IA    = POINTR(5,JEL)\r\n      ISYS  = POINTR(6,JEL)\r\n      NGRIDS= POINTR(7,JEL)\r\n      ITEMP = POINTR(8,JEL)\r\n      NEL   = POINTR(9,JEL)\r\nC\r\nC     CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY\r\nC     CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE\r\nC     ELEMENT. IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.)\r\nC     THE PERMBDY SILS START AT Z(ISTART-NBDYS-1)\r\nC\r\n   40 IF (NBDYS .EQ. 0) GO TO 60\r\nC\r\n      DO 50 I = 1,NGRIDS\r\n      NG = NECPT(ISIL+I-1)\r\n      DO 50 J = 1,NBDYS\r\n      IF (NG .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 60\r\n   50 CONTINUE\r\nC\r\nC     ELEMENT HAS NO GRIDS ON PERMBDY\r\nC\r\n      ONLYC = .TRUE.\r\n      NOPTS = 0\r\n   60 IF (ONLYC .AND. JTYPE.EQ.24) RETURN\r\nC\r\nC     IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST.\r\nC     IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND\r\nC     RETURN.\r\nC\r\n      IF(.NOT.ONLYC) GO TO 80\r\n      IF(ALL .EQ. 1) GO TO 80\r\n      IF(NELOUT .EQ. 0) GO TO 110\r\nC\r\n      DO 70 I = 1,NELOUT\r\n      IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 80\r\n   70 CONTINUE\r\n      GO TO 110\r\nC\r\nC     CHECK FOR ZERO LOAD\r\nC\r\n   80 IF (JTYPE.NE.20 .AND. JTYPE.NE.24) GO TO 210\r\n      H1 = 0.\r\n      H2 = 0.\r\n      H3 = 0.\r\n      G1 = 0.\r\n      G2 = 0.\r\n      G3 = 0.\r\n      DO 90 I = 1,NGRIDS\r\n      ISUB = ISTART + 3*NECPT(ISIL+I-1) - 3\r\n      IF (JTYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3\r\n      H1 = H1 + ABS(Z(ISUB  ))\r\n      H2 = H2 + ABS(Z(ISUB+1))\r\n      H3 = H3 + ABS(Z(ISUB+2))\r\n      G1 = G1 + Z(ISUB  )\r\n      G2 = G2 + Z(ISUB+1)\r\n      G3 = G3 + Z(ISUB+2)\r\n      IF (JTYPE .EQ. 24) GO TO 100\r\n   90 CONTINUE\r\n  100 HL = H1 + H2 + H3\r\n      IF (HL .NE. 0.) GO TO 200\r\n      IF (JTYPE .EQ. 24) RETURN\r\nC\r\nC     ALL ZEROS - WRITE TO SCR6\r\nC\r\n  110 SC(3) = 0.\r\n      SC(4) = 0.\r\n      SC(5) = 0.\r\n      CALL WRITE (SCR6,SC,2,0)\r\n      ISC2  = ISC(2)\r\n      DO 120 I = 1,ISC2\r\n      CALL WRITE (SCR6,SC(3),3,0)\r\n  120 CONTINUE\r\n      RETURN\r\nC\r\n  200 IF (JTYPE .EQ. 24) GO TO 210\r\nC\r\nC     AVERAGE SPCFLD\r\nC\r\n      AHCX = G1/FLOAT(NGRIDS)\r\n      AHCY = G2/FLOAT(NGRIDS)\r\n      AHCZ = G3/FLOAT(NGRIDS)\r\nC\r\n  210 IF (ONLYC) GO TO 310\r\nC\r\nC     PICK UP MATERIAL INFO\r\nC     INFLAG = 3 MEANS A 3 X 3 MATERIAL MATRIX WILL BE RETURNED. THE\r\nC     REASON FOR DOING THIS FOR A 2-D ELEMENT IS THAT HC CAN HAVE A\r\nC     COMPONENT NORMAL TO THE PLANE OF THE ELEMENT. PARTIAL DERIVATIVE\r\nC     W.R.T Z IS 0.  BUT IF THE MATERIAL IS ANISOTROPIC, THEN A\r\nC     CONTRIBUTION TO THE SCALAR LOAD IS POSSIBLE IF MATERIAL CONTAINS\r\nC     A NON-ZERO X-Z TERM. FOR ISOTROPIC MATERIALS, THE NORMAL COMPONENT\r\nC     OF HC WILL BE IGNORED W.R.T ITS CONTRIBUTION TO THE LOAD. IF ALL\r\nC     TERMS OF MATERIAL MATRIX W.R.T.Z ARE 0, AND IF ANISOTROPIC ANGLE\r\nC     IS NOT 0, THEN WE MUST TRANSFORM MATERIALS TO ELEMENT SYSTEM HERE.\r\nC\r\n      INFLAG = 3\r\n      IF (JTYPE .EQ. 24) GO TO 260\r\n      MATID  = NECPT(MID)\r\n      ELTEMP = ECPT(ITEMP)\r\n      ANGLE  = ECPT(ITH)*0.017453293\r\n      SINTH  = SIN(ANGLE)\r\n      COSTH  = COS(ANGLE)\r\n      CALL HMAT (NECPT(1))\r\nC\r\nC     CHECK FOR 3-D ANISOTROPY\r\nC\r\n      IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 230\r\nC\r\n  220 G(1) = XMAT(1)\r\n      G(2) = XMAT(2)\r\n      G(3) = XMAT(3)\r\n      G(5) = XMAT(4)\r\n      G(6) = XMAT(5)\r\n      G(9) = XMAT(6)\r\n      GO TO 240\r\nC\r\nC     CHECK FOR 2-D ANISOTROPY\r\nC\r\n  230 IF (ABS(ANGLE) .LE. .0001) GO TO 220\r\nC\r\nC     2-D ANISOTROPY\r\nC\r\n      CSQ  = COSTH*COSTH\r\n      SSQ  = SINTH*SINTH\r\n      CS   = COSTH*SINTH\r\n      G(1) = CSQ*XMAT(1) - 2.*CS*XMAT(2) + SSQ*XMAT(4)\r\n      G(2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2)\r\n      G(3) = 0.\r\n      G(5) = SSQ*XMAT(1) + 2.*CS*XMAT(2) + CSQ*XMAT(4)\r\n      G(6) = 0.\r\n      G(9) = XMAT(6)\r\nC\r\n  240 IF (ITYPE.NE.36 .AND. ITYPE.NE.37) GO TO 250\r\nC\r\nC     SWITCH Y-Z MATERIALS FOR TRAPRG AND TRIARG\r\nC\r\n      TEMP = G(5)\r\n      G(5) = G(9)\r\n      G(9) = TEMP\r\n      TEMP = G(2)\r\n      G(2) = G(3)\r\n      G(3) = TEMP\r\nC\r\nC     FILL IN SYMMETRIC PART\r\nC\r\n  250 G(4) = G(2)\r\n      G(7) = G(3)\r\n      G(8) = G(6)\r\nC\r\nC     SINCE QUADRILATERALS ARE COVERED BY 4 OVERLAPPING TRIANGLES,\r\nC     MUST DIVIDE QUAD RESULTS BY 2\r\nC\r\n  260 XMUL = 1.\r\n      IF (NGRIDS .EQ. 4) XMUL = .5\r\nC\r\nC     PICK UP COORDINATES OF GRID POINTS\r\nC\r\n      DO 300 I = 1,NGRIDS\r\n      ISUBI = ISYS + 4*I - 4\r\n      DO 300 J = 1,3\r\n      ISUB  = ISUBI + J\r\n      R(J,I)= ECPT(ISUB)\r\n  300 CONTINUE\r\n  310 IF (ITYPE .EQ. 80) GO TO 900\r\nC\r\nC     COMPUTE COORDINATES OF CENTROID (OR, AT LEAST, AVERAGE ELEMENT\r\nC     COORDS)\r\nC\r\n      XXC = 0.\r\n      YYC = 0.\r\n      ZZC = 0.\r\n      DO 320 I = 1,NGRIDS\r\n      XXC = XXC + R(1,I)\r\n      YYC = YYC + R(2,I)\r\n      ZZC = ZZC + R(3,I)\r\n  320 CONTINUE\r\n      XXC = XXC/FLOAT(NGRIDS)\r\n      YYC = YYC/FLOAT(NGRIDS)\r\n      ZZC = ZZC/FLOAT(NGRIDS)\r\nC\r\nC     NOW COMPUTE PROPER LOADS FOR EACH TRIANGLE\r\nC\r\n      DO 800 IEL = 1,NEL\r\n      IF (ONLYC) GO TO 500\r\nC\r\nC     1ST SET UP AN ARRAY TO PICK UP GRID POINTS IN A PARTICULAR ORDER.\r\nC     FOR TRIANGLES, IT IS 1,2,3. FOR QUADRILATERALS, FORM 4 TRIANGLES\r\nC     BY TAKING GRIDS 1,2,3, 2,3,4, 3,4,1, AND 4,1,2\r\nC\r\n      DO 330 I = 1,3\r\n      IP(I) = I + IEL - 1\r\n      IF (IP(I) .GT. 4) IP(I) = IP(I) - 4\r\n  330 CONTINUE\r\nC\r\nC     COMPUTE VECTORS FROM 1ST GRID TO 2ND AND FROM 1ST TO 3RD\r\nC\r\n      DO 340 I = 1,3\r\n      D12(I) = R(I,I2) - R(I,I1)\r\n  340 D13(I) = R(I,I3) - R(I,I1)\r\nC\r\nC     SET UP GRADIENTS FOR AXISYMMETRIC ELEMENTS SEPARATELY\r\nC\r\n      IF (ITYPE.NE.36 .AND. ITYPE.NE.37) GO TO 360\r\nC\r\nC     THE LENGTH OF THE CROSS PRODUCT VECTOR IS TWICE THE AREA OF THE\r\nC     TRIANG\r\nC\r\n      CALL SAXB (D12(1),D13(1),D12(1))\r\n      AREA = .5*SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2)\r\n      VOL  = AREA*TWOPI3*(R(1,I1) + R(1,I2) + R(1,I3))\r\nC\r\nC     NOW SET UP GRADIENT OF THE SHAPE FUNCTION AT EACH GRID POINT.\r\nC     SET UP A 3 X3 MATRIX ROW-STORED FOR GMMATS\r\nC\r\n      D     = (R(1,I2)-R(1,I1))*R(3,I3) + (R(1,I1)-R(1,I3))*R(3,I2) +\r\n     1        (R(1,I3)-R(1,I2))*R(3,I1)\r\n      XN(1) = R(3,I2) - R(3,I3)\r\n      XN(2) = 0.\r\n      XN(3) = R(1,I3) - R(1,I2)\r\n      XN(4) = R(3,I3) - R(3,I1)\r\n      XN(5) = 0.\r\n      XN(6) = R(1,I1) - R(1,I3)\r\n      XN(7) = R(3,I1) - R(3,I2)\r\n      XN(8) = 0.\r\n      XN(9) = R(1,I2) - R(1,I1)\r\nC\r\n      DO 350 I = 1,9\r\n      XN(I) = XN(I)/D\r\n  350 CONTINUE\r\nC\r\nC     FOR ALL EXCEPT REMFLUX, MULT. GRADIENTS INTO MATERIALS\r\nC\r\n      IF (JTYPE .NE. 24) CALL GMMATS (XN(1),3,3,0,G,3,3,0,XN(10))\r\n      GO TO 420\r\nC\r\nC     FIRST, CONVERT COORDINATES TO ELEMNT COORDINATE SYSTEM\r\nC\r\n  360 ZLEN = SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2)\r\n      DO 370 I = 1,3\r\n  370 ZI(I) = D12(I)/ZLEN\r\nC\r\n      CALL SAXB (ZI(1),D13(1),DXX(1))\r\nC\r\n      X2 = ZLEN\r\n      X3 = D13(1)*ZI(1) + D13(2)*ZI(2) + D13(3)*ZI(3)\r\n      Y3 = SQRT(DXX(1)**2 + DXX(2)**2 + DXX(3)**2)\r\nC\r\n      AREA = .5*X2*Y3\r\n      VOL  = AREA*ECPT(IA)\r\nC\r\nC     GET J AND K VECTORS FOR LATER USE\r\nC\r\n      DO 380 I = 1,3\r\n  380 ZK(I) = DXX(I)/Y3\r\nC\r\n      CALL SAXB (ZK(1),ZI(1),ZJ(1))\r\n      ZLEN = SQRT(ZJ(1)**2 + ZJ(2)**2 + ZJ(3)**2)\r\n      DO 390 I = 1,3\r\n  390 ZJ(I) = ZJ(I)/ZLEN\r\n      DO 400 I = 1,3\r\n      ET(I  ) = ZI(I)\r\n      ET(I+3) = ZJ(I)\r\n  400 ET(I+6) = ZK(I)\r\nC\r\nC     SHAPE FUNCTION GRADIENTS\r\nC\r\n      XN(1) = -1./X2\r\n      XN(2) = (X3-X2)/(X2*Y3)\r\n      XN(3) = 0.\r\n      XN(4) = -XN(1)\r\n      XN(5) = -X3/(X2*Y3)\r\n      XN(6) = 0.\r\n      XN(7) = 0.\r\n      XN(8) = 1./Y3\r\n      XN(9) = 0.\r\nC\r\nC     TRANSFORM SHAPE FN GRADIENTS FROM LOCAL TO BASIC\r\nC\r\n      CALL GMMATS (ET,3,3,1,XN(1),3,3,1,XNG(1))\r\nC\r\nC     FOR ALL EXCEPT REMFLUX, MULT. GRADIENTS OF SHAPE FNS INTO\r\nC     MATERIALS\r\nC\r\n      IF (JTYPE .EQ. 24) GO TO 410\r\n      CALL GMMATS (XNG(1),3,3,1,G,3,3,0,XN(10))\r\n      GO TO 420\r\n  410 XN(1) = XNG(1)\r\n      XN(2) = XNG(4)\r\n      XN(3) = XNG(7)\r\n      XN(4) = XNG(2)\r\n      XN(5) = XNG(5)\r\n      XN(6) = XNG(8)\r\n      XN(7) = XNG(3)\r\n      XN(8) = XNG(6)\r\n      XN(9) = XNG(9)\r\n  420 IF (JTYPE .EQ. 24) GO TO 740\r\nC\r\nC     START INTEGRATION PROCEDURE- 4 POINTS FOR CUBIC PLUS ONE AT\r\nC     CENTROID\r\nC\r\n  500 KTYPE    = JTYPE - 19\r\n      XLACC(1) = 0.\r\n      XLACC(2) = 0.\r\n      XLACC(3) = 0.\r\n      NOPTSP   = NOPTS + 1\r\n      DO 720 NPTS = 1,NOPTSP\r\nC\r\nC     DO CENTROID FOR ONLY 1ST TRIANGLE\r\nC\r\n      IF (NPTS.EQ.NOPTSP .AND. IEL.GT.1) GO TO 720\r\nC\r\nC     COMPUTE BASIC COORDS OF INTEGRATION POINT\r\nC\r\n      IF (NPTS .NE. NOPTSP) GO TO 510\r\nC\r\nC     CENTROID\r\nC\r\n      XX = XXC\r\n      YY = YYC\r\n      ZZ = ZZC\r\n      IF (JTYPE .NE. 20) GO TO 520\r\nC\r\nC     AVERAGE SPCFLD\r\nC\r\n      HC(1) = AHCX\r\n      HC(2) = AHCY\r\n      HC(3) = AHCZ\r\n      GO TO 610\r\n  510 XX    = L(1,NPTS)*R(1,I1) + L(2,NPTS)*R(1,I2) + L(3,NPTS)*R(1,I3)\r\n      YY    = L(1,NPTS)*R(2,I1) + L(2,NPTS)*R(2,I2) + L(3,NPTS)*R(2,I3)\r\n      ZZ    = L(1,NPTS)*R(3,I1) + L(2,NPTS)*R(3,I2) + L(3,NPTS)*R(3,I3)\r\n  520 HC(1) = 0.\r\n      HC(2) = 0.\r\n      HC(3) = 0.\r\nC\r\nC     COMPUTE HC AT THIS POINT FOR ALL LOADS OF THIS TYPE\r\nC\r\n      DO 600 IJK = 1,IDO\r\n      IF (JTYPE .EQ. 20) GO TO 540\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 530 I = 1,IWORDS\r\n  530 BUF(I) = Z(ISUB+I)\r\n      GO TO (540,560,570,580), KTYPE\r\n  540 DO 550 I = 1,3\r\n      IPI  = IP(I)\r\n      NSIL = NECPT(ISIL+IPI-1)\r\n      IPT  = ISTART + 3*NSIL - 3\r\n      HCX(I) = Z(IPT  )\r\n      HCY(I) = Z(IPT+1)\r\n      HCZ(I) = Z(IPT+2)\r\n  550 CONTINUE\r\n      HC1 = L(1,NPTS)*HCX(1) + L(2,NPTS)*HCX(2) + L(3,NPTS)*HCX(3)\r\n      HC2 = L(1,NPTS)*HCY(1) + L(2,NPTS)*HCY(2) + L(3,NPTS)*HCY(3)\r\n      HC3 = L(1,NPTS)*HCZ(1) + L(2,NPTS)*HCZ(2) + L(3,NPTS)*HCZ(3)\r\n      GO TO 590\r\nC\r\nC     CEMLOOP, GEMLOOP, MDIPOLE\r\nC\r\n  560 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 590\r\n  570 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 590\r\n  580 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n  590 HC(1) = HC(1) + HC1\r\n      HC(2) = HC(2) + HC2\r\n      HC(3) = HC(3) + HC3\r\n  600 CONTINUE\r\nC\r\n  610 IF (NPTS .NE. NOPTSP) GO TO 700\r\n      SC(3) = HC(1)\r\n      SC(4) = HC(2)\r\n      SC(5) = HC(3)\r\n      CALL WRITE (SCR6,SC,5,0)\r\n      GO TO 720\r\nC\r\nC     WE HAVE HC AT THIS INTEG. PT. MULT. BY WEIGHT AND ACCUMULATE\r\nC\r\n  700 DO 710 I = 1,3\r\n  710 XLACC(I) = XLACC(I) + HC(I)*W(NPTS)\r\nC\r\nC     GET ANOTHER INTEGRATION POINT\r\nC\r\n  720 CONTINUE\r\nC\r\n      IF (ONLYC) RETURN\r\n      DO 730 I = 1,3\r\n  730 HC(I) = XLACC(I)\r\n      GO TO 750\r\nC\r\nC     REMFLUX\r\nC\r\n  740 IPT   = ISTART + 3*NCOUNT - 3\r\n      HC(1) = Z(IPT  )\r\n      HC(2) = Z(IPT+1)\r\n      HC(3) = Z(IPT+2)\r\nC\r\nC    TAKE XMUL MULTIPLIER INTO ACCOUNT\r\nC\r\n  750 DO 760 I = 1,3\r\n  760 HC(I) = HC(I)*XMUL\r\nC\r\nC     MAKE FINAL COMPUTATION. MULTIPLY PRODUCT OF SHAPE FUNCTION\r\nC     GRADIENTS AND MATERIAL MATRIX INTO HC AND MULTIPLY BY VOLUME\r\nC\r\n      ISUB = 10\r\n      IF (JTYPE .EQ. 24) ISUB = 1\r\n      CALL GMMATS (XN(ISUB),3,3,0,HC,3,1,0,XLOAD(1))\r\nC\r\nC     ADD THIS ELEMENT LOAD VECTOR IN OVERALL VECTOR. USE NSIL AND IP TO\r\nC     POI\r\nC\r\n      DO 790 J = 1,3\r\n      IPI  = IP(J)\r\n      NSIL = NECPT(ISIL+IPI-1)\r\nC\r\nC     IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 780\r\n      DO 770 I = 1,NBDYS\r\n      IF (NSIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 770\r\n      GO TO 780\r\n  770 CONTINUE\r\n      GO TO 790\r\n  780 Z(NSIL) = Z(NSIL) - XLOAD(J)*VOL\r\n  790 CONTINUE\r\nC\r\nC     DONE FOR THIS TRIANGLE. GO BACK FOR ANOTHER\r\nC\r\n  800 CONTINUE\r\n      RETURN\r\nC\r\nC     IS2D8\r\nC\r\nC     SET UP QUADRATURE POINTS AND WEIGHTS\r\nC\r\n  900 IF (ONLYC) GO TO 1000\r\n      PT(1) = -0.57735027\r\n      PT(2) = -PT(1)\r\n      H(1)  = 1.\r\n      H(2)  = 1.\r\n      IF (NECPT(10) .EQ. 2) GO TO 910\r\n      PT(1) = -0.77459667\r\n      PT(2) = 0.\r\n      PT(3) = -PT(1)\r\n      H(1)  = 5./9.\r\n      H(2)  = 8./9.\r\n      H(3)  = H(1)\r\nC\r\nC     COMPUTE I,J,K VECTORS- I IS 1 TO 2\r\nC\r\n  910 DO 920 I = 1,3\r\n      ZI(I) = R(I,2) - R(I,1)\r\n  920 Z14(I)= R(I,4) - R(I,1)\r\n      ZLEN  = SQRT(ZI(1)**2 + ZI(2)**2 + ZI(3)**2)\r\n      DO 930 I = 1,3\r\n  930 ZI(I) = ZI(I)/ZLEN\r\nC\r\nC     GET K BY CROSSING I INTO VECTOR FROM 1 TO 4\r\nC\r\n      ZK(1) = ZI(2)*Z14(3) - ZI(3)*Z14(2)\r\n      ZK(2) = ZI(3)*Z14(1) - ZI(1)*Z14(3)\r\n      ZK(3) = ZI(1)*Z14(2) - ZI(2)*Z14(1)\r\n      ZKLEN = SQRT(ZK(1)**2 + ZK(2)**2 + ZK(3)**2)\r\n      DO 940 I = 1,3\r\n  940 ZK(I) = ZK(I)/ZKLEN\r\nC\r\nC     GET J BY CROSSING K INTO I AND STORE INTO TRANSFORMATION MATRIX\r\nC\r\n      ZJ(1) = ZK(2)*ZI(3) - ZK(3)*ZI(2)\r\n      ZJ(2) = ZK(3)*ZI(1) - ZK(1)*ZI(3)\r\n      ZJ(3) = ZK(1)*ZI(2) - ZK(2)*ZI(1)\r\n      ZJLEN = SQRT(ZJ(1)**2 + ZJ(2)**2 + ZJ(3)**2)\r\n      DO 950 I = 1,3\r\n  950 ZJ(I) = ZJ(I)/ZJLEN\r\nC\r\n      DO 960 I = 1,3\r\n      ET(I  ) = ZI(I)\r\n      ET(I+3) = ZJ(I)\r\n  960 ET(I+6) = ZK(I)\r\nC\r\nC     COMPUTE ELMENT COORDS FOR 1 AND 2\r\nC\r\n      XZ(1) = 0.\r\n      XZ(2) = 0.\r\n      XZ(3) = ZLEN\r\n      XZ(4) = 0.\r\nC\r\nC     FOR 3-8, X IS DOT PRODUCT OF VECTOR FROM 1 TO GRID WITH I.\r\nC     Y IS THE LENFTH OF THE VECTOR RESULTING FROM CROSSING I INTO\r\nC     VECTOR FROM 1 TO GRID\r\nC\r\n      DO 980 I = 3,8\r\n      IXX = 2*I - 1\r\n      DO 970 J = 1,3\r\n  970 VEC(J)  = R(J,I) - R(J,1)\r\n      XZ(IXX) = VEC(1)*ZI(1) + VEC(2)*ZI(2) + VEC(3)*ZI(3)\r\n      VVEC(1) = ZI(2)*VEC(3) - ZI(3)*VEC(2)\r\n      VVEC(2) = ZI(3)*VEC(1) - ZI(1)*VEC(3)\r\n      VVEC(3) = ZI(1)*VEC(2) - ZI(2)*VEC(1)\r\n      XZ(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n  980 CONTINUE\r\nC\r\n      DO 990 I = 1,8\r\n  990 F(I) = 0.\r\nC\r\nC     GET HC AT EACH GRID\r\nC\r\n      IF (JTYPE .NE. 24) GO TO 1000\r\nC\r\nC     REMFLUX\r\nC\r\n      ISUB  = ISTART + 3*NCOUNT - 3\r\n      GH(1) = Z(ISUB  )\r\n      GH(2) = Z(ISUB+1)\r\n      GH(3) = Z(ISUB+2)\r\n      GO TO 1020\r\nC\r\nC     IF SPCFLD, PICK UP GRID VALUES HERE. IF NOT, PICK UP INTEGRATION\r\nC     POINT VALUES LATER\r\nC\r\n 1000 IF (JTYPE .NE. 20) GO TO 1020\r\n      DO 1010 I = 1,NGRIDS\r\n      ISIL = 3*NECPT(I+1)\r\n      HCI(3*I-2) = Z(ISTART+ISIL-3)\r\n      HCI(3*I-1) = Z(ISTART+ISIL-2)\r\n      HCI(3*I  ) = Z(ISTART+ISIL-1)\r\n 1010 CONTINUE\r\n 1020 INIP  = NECPT(10)\r\n      KTYPE = JTYPE - 20\r\n      IF (ONLYC) GO TO 1340\r\nC\r\nC     START INTEGRATION\r\nC\r\n      DO 1300 III = 1,INIP\r\n      DO 1300 JJJ = 1,INIP\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 1030 N = 1,4\r\n      DN(N)   = .25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N))*\r\n     1          (PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.)\r\n      DNXI(N) = .25*XI(N)*(1.+PT(JJJ)*ETA(N))*\r\n     1          (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N)= .25*ETA(N)*(1.+PT(III)*XI(N))*\r\n     1          (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N))\r\n 1030 CONTINUE\r\n      DO 1040 N = 5,7,2\r\nC\r\n      DN(N)   = .5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N))\r\n      DNXI(N) = -PT(III)*(1.+PT(JJJ)*ETA(N))\r\n      DNETA(N)= .5*(1.-PT(III)*PT(III))*ETA(N)\r\n 1040 CONTINUE\r\nC\r\n      DO 1050 N = 6,8,2\r\n      DN(N)   = .5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ))\r\n      DNXI(N) = .5*XI(N)*(1.-PT(JJJ)*PT(JJJ))\r\n      DNETA(N)= -PT(JJJ)*(1.+PT(III)*XI(N))\r\n 1050 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATS (DNC,2,8,0,XZ,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 1060 I = 1,2\r\n      DO 1060 J = 1,2\r\n      K = K + 1\r\n 1060 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X AND Y\r\nC\r\n      K = 0\r\n      DO 1070 I = 1,2\r\n      DO 1070 J = 1,2\r\n      K = K + 1\r\n 1070 XJB(K) = XXJB(I,J)\r\n      CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\n      IF (JTYPE .EQ. 24) GO TO 1190\r\nC\r\nC     INITIALIZE HC AT PRESENT UNTEGRATION POINT\r\nC\r\n      DO 1080 I = 1,3\r\n 1080 HCXYZ(I) = 0.\r\n      IF (JTYPE .EQ. 20) GO TO 1160\r\nC\r\nC     FOR LOOPS AND DIPOLES, COMPITE BASIC COORDS. FOR THIS INTEGRATION\r\nC     PT\r\nC\r\n      XX = 0.\r\n      YY = 0.\r\n      ZZ = 0.\r\n      DO 1090 M = 1,NGRIDS\r\n      XX = XX + DN(M)*R(1,M)\r\n      YY = YY + DN(M)*R(2,M)\r\n 1090 ZZ = ZZ + DN(M)*R(3,M)\r\nC\r\n      DO 1150 IJK = 1,IDO\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 1100 M = 1,IWORDS\r\n 1100 BUF(M) = Z(ISUB+M)\r\n      GO TO (1110,1120,1130), KTYPE\r\n 1110 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1140\r\n 1120 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1140\r\n 1130 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n 1140 HCXYZ(1) = HCXYZ(1) + HC1\r\n      HCXYZ(2) = HCXYZ(2) + HC2\r\n      HCXYZ(3) = HCXYZ(3) + HC3\r\n 1150 CONTINUE\r\n      GO TO 1180\r\nC\r\nC     SPCFLD\r\nC\r\n 1160 DO 1170 M = 1,NGRIDS\r\n      HCXYZ(1) = HCXYZ(1) + DN(M)*HCI(3*M-2)\r\n      HCXYZ(2) = HCXYZ(2) + DN(M)*HCI(3*M-1)\r\n 1170 HCXYZ(3) = HCXYZ(3) + DN(M)*HCI(3*M)\r\nC\r\nC     MULTIPLY MATERIAL INTO HC AT THIS INTEGRATION POINT\r\nC\r\n 1180 CALL GMMATS (G,3,3,0,HCXYZ,3,1,0,GH)\r\n 1190 SFACT = H(III)*H(JJJ)*DETERM\r\nC\r\nC     TRANSFORM DNL FROM LOCAL TO BASIC\r\nC     1 ST EXPAND TO ADD IN ZEROS CORRESPONDING TO Z DIRECTION\r\nC\r\n      DO 1200 I = 1,16\r\n 1200 DDNL(I) = DNL(I)\r\n      DO 1210 I = 17,24\r\n 1210 DDNL(I) = 0.\r\nC\r\n      CALL GMMATS (ET,3,3,1,DDNL,3,8,0,DDNLB)\r\nC\r\n      DO 1220 M = 1,NGRIDS\r\n      F(M) = F(M) + (DDNLB(M)*GH(1) + DDNLB(M+8)*GH(2) +\r\n     1       DDNLB(M+16)*GH(3))*SFACT\r\n 1220 CONTINUE\r\nC\r\nC     GET ANOTHER INTEGRATION POINT\r\nC\r\n 1300 CONTINUE\r\nC\r\nC     ADD LOAD INTO LOAD ARRAY\r\nC\r\n      DO 1330 M = 1,NGRIDS\r\n      ISIL = NECPT(M+1)\r\nC\r\nC     IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 1320\r\n      DO 1310 I = 1,NBDYS\r\n      IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 1310\r\n      GO TO 1320\r\n 1310 CONTINUE\r\n      GO TO 1330\r\n 1320 Z(ISIL) = Z(ISIL)-F(M)*ECPT(IA)\r\n 1330 CONTINUE\r\nC\r\nC     BEFORE LEAVING COMPUTE HC AT GRIDS AND CENTROID AND WRITE TO SCR6\r\nC\r\n 1340 IF (JTYPE .EQ. 24) RETURN\r\n      CALL WRITE (SCR6,ISC,2,0)\r\nC\r\nC     SET UP SHAPE FUNCTIONS AT CENTROID\r\nC\r\n      DO 1350 I = 1,4\r\n 1350 DN(I) = -.25\r\n      DO 1360 I = 5,8\r\n 1360 DN(I) = .5\r\nC\r\n      IF (JTYPE .NE. 20) GO TO 1400\r\nC\r\nC     FOR SPCFLD HC VALUES AT GRIDS ARE IN CORE\r\nC\r\n      CALL WRITE (SCR6,HCI,24,0)\r\nC\r\n      DO 1370 I = 1,3\r\n 1370 HCXYZ(I) = 0.\r\n      DO 1380 M = 1,NGRIDS\r\n      HCXYZ(1) = HCXYZ(1) + DN(M)*HCI(3*M-2)\r\n      HCXYZ(2) = HCXYZ(2) + DN(M)*HCI(3*M-1)\r\n      HCXYZ(3) = HCXYZ(3) + DN(M)*HCI(3*M  )\r\n 1380 CONTINUE\r\nC\r\n      CALL WRITE (SCR6,HCXYZ,3,0)\r\n      RETURN\r\nC\r\nC     NOT SPCFLD\r\nC\r\n 1400 DO 1500 J = 1,9\r\n      IF (J .NE. 9) GO TO 1420\r\nC\r\nC     CENTROID\r\nC\r\n      XX = 0.\r\n      YY = 0.\r\n      ZZ = 0.\r\n      DO 1410 M = 1,8\r\n      XX = XX + DN(M)*R(1,M)\r\n      YY = YY + DN(M)*R(2,M)\r\n 1410 ZZ = ZZ + DN(M)*R(3,M)\r\n      GO TO 1430\r\n 1420 XX = R(1,J)\r\n      YY = R(2,J)\r\n      ZZ = R(3,J)\r\n 1430 HC(1) = 0.\r\n      HC(2) = 0.\r\n      HC(3) = 0.\r\n      DO 1490 IJK = 1,IDO\r\n      ISUB  = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 1440 I = 1,IWORDS\r\n 1440 BUF(I) = Z(ISUB+I)\r\n      GO TO (1450,1460,1470), KTYPE\r\n 1450 CALL AXLOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1480\r\n 1460 CALL GELOOP (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1480\r\n 1470 CALL DIPOLE (BUF,JBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n 1480 HC(1) = HC(1) + HC1\r\n      HC(2) = HC(2) + HC2\r\n      HC(3) = HC(3) + HC3\r\n 1490 CONTINUE\r\nC\r\n      CALL WRITE (SCR6,HC,3,0)\r\n 1500 CONTINUE\r\nC\r\n      RETURN\r\nC\r\n 1600 WRITE  (OTPE,1610) UFM,NAM,ITYPE\r\n 1610 FORMAT (A23,', IN SUBROUTINE',2A4,' ELEMENT TYPE',I8,' IS NOT ',\r\n     1        'LEGAL')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/em3d.f",
    "content": "      SUBROUTINE EM3D (ELTYPE,ISTART,ITYPE,NCOUNT,IDO,IWORDS,NBDYS,ALL,\r\n     1                 NELOUT)\r\nC\r\nC     E  AND  M LOADS FOR 3-D ELEMENTS\r\nC     TETRA  39   WEDGE  40   HEXA1 41  HEXA2  42\r\nC     IHEX1  65   IHEX2  66   IHEX3 67\r\nC\r\n      LOGICAL         ONLYC\r\n      INTEGER         SCR6,ALL,TYPOLD,ELID,\r\n     1                ELTYPE,OUTPT,SYSBUF,POINTR(7,7),FRSTGD,TMAP(88)\r\n      REAL            LL(4,5),W(5)\r\n      DIMENSION       ISC(5),SC(5),XLACC(3),BUF(50),IBUF(50),HCX3(60),\r\n     1                HCX(4),HCY(4),HCZ(4),\r\n     2                G(9),NECPT(1),DR(24),IZ(1),IP(4),R(3,8),XLOAD(8),\r\n     3                GPT(32),BXYZ(3,32),S(4),H(4),GAUSS(8),F(32),\r\n     4                SHP(32),DSHP(3,32),XJACOB(3,3),DSHPB(3,32),HC(96),\r\n     5                HCXYZ(3),GH(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ KSYSTM(2)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /EMECPT/ ECPT(200)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP\r\n      COMMON /HMTOUT/ XMAT(6)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPT),\r\n     1                (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (I1,IP(1)),\r\n     2                (I2,IP(2)),(I3,IP(3)), (I4,IP(4))\r\n      EQUIVALENCE     (BUF(1),IBUF(1))  , (ISC(1),SC(1))\r\nC\r\nC     GRID POINT NO FOR EACH ELEMENT\r\nC\r\n      DATA    TMAP  / 1, 2, 3, 4,    1, 2, 3, 5,    1, 2, 3, 6,\r\n     1                1, 4, 5, 6,    2, 4, 5, 6,    3, 4, 5, 6,\r\n     2                1, 2, 4, 6,    2, 3, 4, 6,    1, 3, 4, 5,\r\n     3                2, 3, 4, 5,    1, 3, 5, 6,    1, 2, 5, 6,\r\n     4                1, 2, 3, 6,    1, 3, 4, 8,    1, 3, 8, 6,\r\n     5                1, 5, 6, 8,    3, 6, 7, 8,    2, 3, 4, 7,\r\n     6                1, 2, 4, 5,    2, 4, 5, 7,    2, 5, 6, 7,\r\n     7                4, 5, 7, 8/\r\nC     DATA    NAM   / 4HEM3D,4H       /\r\n      DATA    TYPOLD/ 0               /\r\n      DATA    SCR6  / 306             /\r\nC\r\nC     SET UP GAUSSIAN INTEGRATION POINTS\r\nC\r\n      DATA    GAUSS / 0.57735027,     0.55555556,\r\n     1                0.77459667,     0.88888889,\r\n     2                0.34785484,     0.86113631,\r\n     3                0.65214515,     0.33998104/\r\nC\r\nC     SET UP POINTR ARRAY ONTO EST\r\nC\r\nC                    TYPE  MID   FRSTGD  ISYS1   NIP     ITEMP     NELS\r\n      DATA    POINTR/ 39,   2,    3    ,  7,      0,      23,       1,\r\n     1                40,   2,    3,      9,      0,      33,      12,\r\n     2                41,   2,    3,      11,     0,      43,       5,\r\n     3                42,   2,    3,      11,     0,      43,       10,\r\n     4                65,   10,   2,      16,     12,     48,       1,\r\n     5                66,   22,   2,      28,     24,     108,      1,\r\n     6                67,   34,   2,      40,     36,     168,      1 /\r\nC\r\nC\r\n      ONLYC  =.FALSE.\r\n      NOPTS  = 6\r\n      IF (ELTYPE .EQ. TYPOLD) GO TO 30\r\n      TYPOLD = ELTYPE\r\n      DO 10 L = 1,7\r\n      ILIS   = L\r\n      IF (ELTYPE-POINTR(1,L)) 1200,20,10\r\n   10 CONTINUE\r\n      GO TO 1200\r\nC\r\nC     SET UPPOINTERS INTO EST(ECPT) DATA\r\nC\r\n   20 MID = POINTR(2,ILIS)\r\nC\r\nC     MATERIAL ID\r\nC\r\n      FRSTGD = POINTR(3,ILIS)\r\nC\r\nC     FIRST SIL\r\nC\r\n      ISYS1 = POINTR(4,ILIS)\r\nC\r\nC     FIRST CSIL\r\nC\r\n      NIP = POINTR(5,ILIS)\r\nC\r\nC     NO OF INTEGRATION POINTS (ISOPARAMETRICS ONLY)\r\nC\r\n      ITEMP = POINTR(6,ILIS)\r\nC\r\nC     TEMPERATURE DATA\r\nC\r\n      NELS = POINTR(7,ILIS)\r\nC\r\nC     NO. OF ELEMENTS\r\nC\r\nC     GO TO SECTION 190 FOR ISOPARAMETRICS\r\nC\r\nC     CHECK FOR ZERO LOAD\r\nC\r\n   30 NGRID = ISYS1 - FRSTGD\r\n      IF (ELTYPE .GE. 65) NGRID = NGRID - 6\r\nC                     65 TO 67 ??\r\n      ISC(1) = NECPT(1)\r\n      ISC(2) = 1\r\n      IF (ELTYPE .EQ. 65) ISC(2) = 9\r\n      IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) ISC(2) = 21\r\nC\r\nC     CHECK TO SEE IF THIS ELEMENT CONTAINS A GRID POINT ON A PERMBDY\r\nC     CARD. IF SO, OR IF NO PERMBDY CARD EXISTS, COMPUTE LOADS FOR THE\r\nC     ELEMENT. IF NOT, COMPUTE HC CENTROIDAL VALUE ONLY. (ONLYC=.TRUE.)\r\nC     THE PERMBDY SILS START AT Z(ISTART-NBDYS-1)\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 50\r\nC\r\n      DO 40 I = 1,NGRID\r\n      NG = NECPT(FRSTGD+I-1)\r\n      DO 40 J = 1,NBDYS\r\n      IF (NG .EQ. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 50\r\n   40 CONTINUE\r\nC\r\nC     ELEMENT HAS NO GRIDS ON PERMBDY\r\nC\r\n      ONLYC =.TRUE.\r\n      NOPTS = 1\r\n   50 IF (ONLYC .AND. ITYPE.EQ.24) RETURN\r\nC\r\nC     IF ONLYC=TRUE, CHECK TO SEE IF THE ELEMENT HAD AN ELFORCE REQUEST.\r\nC     IF SO, CONTINUE. IF NOT, JUST WRITE ZEROS TO HCCEN,SCR6) AND\r\nC     RETURN.\r\nC\r\n      IF (.NOT.ONLYC) GO TO 70\r\n      IF (ALL .EQ. 1) GO TO 70\r\n      IF (NELOUT .EQ. 0) GO TO 100\r\nC\r\n      DO 60 I = 1,NELOUT\r\n      IF (NECPT(1) .EQ. IZ(ISTART-NELOUT+I-1)) GO TO 70\r\n   60 CONTINUE\r\n      GO TO 100\r\n   70 IF (ITYPE.NE.20 .AND. ITYPE.NE.24) GO TO 130\r\n      G1 = 0.\r\n      G2 = 0.\r\n      G3 = 0.\r\n      H1 = 0.\r\n      H2 = 0.\r\n      H3 = 0.\r\n      DO 80 I = 1,NGRID\r\n      ISUB = ISTART + 3*NECPT(FRSTGD+I-1) - 3\r\n      IF (ITYPE .EQ. 24) ISUB = ISTART + 3*NCOUNT - 3\r\n      H1 = H1 + ABS(Z(ISUB  ))\r\n      H2 = H2 + ABS(Z(ISUB+1))\r\n      H3 = H3 + ABS(Z(ISUB+2))\r\n      G1 = G1 + Z(ISUB  )\r\n      G2 = G2 + Z(ISUB+1)\r\n      G3 = G3 + Z(ISUB+2)\r\n      IF (ITYPE .EQ. 24) GO TO 90\r\n   80 CONTINUE\r\n   90 HL = H1 + H2 + H3\r\n      IF (HL .NE. 0.) GO TO 120\r\n      IF (ITYPE .EQ. 24) RETURN\r\nC\r\n  100 SC(3) = 0.\r\n      SC(4) = 0.\r\n      SC(5) = 0.\r\n      CALL WRITE (SCR6,SC,2,0)\r\n      ISC2  = ISC(2)\r\n      DO 110 I = 1,ISC2\r\n      CALL WRITE (SCR6,SC(3),3,0)\r\n  110 CONTINUE\r\n      RETURN\r\nC\r\n  120 IF (ITYPE .EQ. 24) GO TO 130\r\nC\r\nC     AVERGAGE SPCFLD\r\nC\r\n      AHCX = G1/FLOAT(NGRID)\r\n      AHCY = G2/FLOAT(NGRID)\r\n      AHCZ = G3/FLOAT(NGRID)\r\nC\r\n  130 IF (ELTYPE .GE. 65) GO TO 500\r\n      IF (ONLYC) GO TO 140\r\nC\r\nC     GET MATERIAL INFO\r\nC     INFLAG = 3  RETURNS A 3X3 MATRIX\r\nC\r\n      LL(1,1) = .25\r\n      LL(2,1) = .25\r\n      LL(3,1) = .25\r\n      LL(4,1) = .25\r\n      LL(1,2) = .5\r\n      LL(2,2) = 1./6.\r\n      LL(3,2) = LL(2,2)\r\n      LL(4,2) = LL(2,2)\r\n      LL(1,3) = 1./6.\r\n      LL(2,3) = .5\r\n      LL(3,3) = LL(1,3)\r\n      LL(4,3) = LL(1,3)\r\n      LL(1,4) = 1./6.\r\n      LL(2,4) = LL(1,4)\r\n      LL(3,4) = .5\r\n      LL(4,4) = LL(1,4)\r\n      LL(1,5) = 1./6.\r\n      LL(2,5) = LL(1,5)\r\n      LL(3,5) = LL(1,5)\r\n      LL(4,5) = .5\r\n      W(1)    =-.8\r\n      W(2)    = 9./20.\r\n      W(3)    = W(2)\r\n      W(4)    = W(2)\r\n      W(5)    = W(2)\r\n      INFLAG  = 3\r\n      MATID   = NECPT(MID)\r\n      ELTEMP  = ECPT(ITEMP)\r\n      CALL HMAT (NECPT(1))\r\nC\r\nC     G STORED BY ROW\r\nC\r\n      G(1) = XMAT(1)\r\n      G(2) = XMAT(2)\r\n      G(3) = XMAT(3)\r\n      G(4) = XMAT(2)\r\n      G(5) = XMAT(4)\r\n      G(6) = XMAT(5)\r\n      G(7) = XMAT(3)\r\n      G(8) = XMAT(5)\r\n      G(9) = XMAT(6)\r\nC\r\nC     PUT COORDINATES OF GRID POINTS INTO ARRAY\r\nC     FOR HEXA2  DIVIDE VOLUME BY 2.\r\nC\r\n      XM = 1.\r\n      IF (ELTYPE .EQ. 42) XM = 2.\r\nC\r\nC     TETRA   4 GRID PTS    1 ELEMENT\r\nC     WEDGE   6 GRID PTS   18 ELEMENTS(6 ARE DUPLICATES-4 POINTS AT A\r\nC     HEXA1   8 GRID PTS    5 ELEMENT (4 PTS AT A TIME)\r\nC     HEXA2   8 GRID PTS    10ELEMENT (4 PTS AT A TIME)\r\nC     SET UP PROPER POINTERS VIA TMAP\r\nC     R ARRAY CONTAINS COORDINATE INFO\r\nC\r\n  140 DO 150 I = 1,NGRID\r\n      ITT    = ISYS1 + 4*I - 4\r\n      R(1,I) = ECPT(ITT+1)\r\n      R(2,I) = ECPT(ITT+2)\r\n      R(3,I) = ECPT(ITT+3)\r\n  150 CONTINUE\r\nC\r\nC     SET UP POINTER TO GRID PT NO\r\nC\r\n      IROW = 0\r\n      IF (ELTYPE.EQ.41 .OR. ELTYPE.EQ.42) IROW = 12\r\n      DO 160 I = 1,8\r\n  160 XLOAD(I) = 0.0\r\nC\r\nC     SET UP POINTS FOR AVERAGE COORDINATES\r\nC\r\n      XXC = 0.\r\n      YYC = 0.\r\n      ZZC = 0.\r\n      DO 170 I = 1,NGRID\r\n      XXC = XXC + R(1,I)\r\n      YYC = YYC + R(2,I)\r\n      ZZC = ZZC + R(3,I)\r\n  170 CONTINUE\r\n      XXC = XXC/FLOAT(NGRID)\r\n      YYC = YYC/FLOAT(NGRID)\r\n      ZZC = ZZC/FLOAT(NGRID)\r\nC\r\nC     PRINCIPAL LOOP OVER ELEMENT OF THE GIVEN TYPE\r\nC\r\n      DO 400 IEL = 1,NELS\r\n      IF (ONLYC) GO TO 200\r\nC\r\nC     RESET XM FOR WEDGES. 1ST 12 CONFIGURATIONS ARE MULTIPLIED BY 2.\r\nC     ALL 18 ARE DIVIDED BY 6.(SINCE XM IS A DIVISOR, USE RECIPROCALS)\r\nC\r\n      IF (ELTYPE.EQ.40 .AND. IEL.LE.6) XM = 6./2.\r\n      IF (ELTYPE.EQ.40 .AND. IEL.GT.6) XM = 6.\r\n      ISUB = (IROW+IEL-1)*4\r\n      DO 180 I = 1,4\r\n      F(I)  = 0.\r\n      IP(I) = I\r\n      IF (ELTYPE .GE. 40) IP(I) = TMAP(ISUB+I)\r\n  180 CONTINUE\r\nC\r\nC     NEED DET TO COMPUTE VOL\r\nC\r\n      TERM1 =  R(3,I4)*((R(1,I2)-R(1,I1))*R(2,I3) +\r\n     1        (R(1,I1)-R(1,I3))*R(2,I2) + (R(1,I3)-R(1,I2))*R(2,I1))\r\n      TERM2 =  R(3,I3)*((R(1,I1)-R(1,I2))*R(2,I4) +\r\n     1        (R(1,I4)-R(1,I1))*R(2,I2) + (R(1,I2)-R(1,I4))*R(2,I1))\r\n      TERM3 =  R(3,I2)*((R(1,I3)-R(1,I1))*R(2,I4) + (R(1,I1)-R(1,I4))*\r\n     1         R(2,I3) + (R(1,I4)-R(1,I3))*R(2,I1))\r\n      TERM4 =  R(3,I1)*((R(1,I2)-R(1,I3))*R(2,I4) + (R(1,I4)-R(1,I2))*\r\n     1         R(2,I3) + (R(1,I3)-R(1,I4))*R(2,I2))\r\n      DET   =  TERM1 + TERM2 + TERM3 + TERM4\r\n      VOL   =  ABS(DET)/6.\r\nC\r\nC     GRADIENTS OF SHAPE FUNCTIONS\r\nC\r\n      DR( 1) = R(3,I3)*R(2,I4) - R(3,I4)*R(2,I3) + R(2,I2)*(R(3,I4)-\r\n     1         R(3,I3)) - R(3,I2)*(R(2,I4)-R(2,I3))\r\n      DR( 2) = R(1,I3)*R(3,I4) - R(1,I4)*R(3,I3) - R(1,I2)*(R(3,I4)-\r\n     1         R(3,I3)) + R(3,I2)*(R(1,I4)-R(1,I3))\r\n      DR( 3) = R(2,I3)*R(1,I4) - R(1,I3)*R(2,I4) + R(1,I2)*(R(2,I4)-\r\n     1         R(2,I3)) - R(2,I2)*(R(1,I4)-R(1,I3))\r\n      DR( 4) = R(2,I3)*R(3,I4) - R(2,I4)*R(3,I3) - R(2,I1)*(R(3,I4)-\r\n     1         R(3,I3)) + R(3,I1)*(R(2,I4)-R(2,I3))\r\n      DR( 5) = R(1,I4)*R(3,I3) - R(1,I3)*R(3,I4) + R(1,I1)*(R(3,I4)-\r\n     1         R(3,I3)) - R(3,I1)*(R(1,I4)-R(1,I3))\r\n      DR( 6) = R(1,I3)*R(2,I4) - R(2,I3)*R(1,I4) - R(1,I1)*(R(2,I4)-\r\n     1         R(2,I3)) + R(2,I1)*(R(1,I4)-R(1,I3))\r\n      DR( 7) = R(3,I2)*R(2,I4) - R(2,I2)*R(3,I4) + R(2,I1)*(R(3,I4)-\r\n     1         R(3,I2)) - R(3,I1)*(R(2,I4)-R(2,I2))\r\n      DR( 8) = R(1,I2)*R(3,I4) - R(1,I4)*R(3,I2) - R(1,I1)*(R(3,I4)-\r\n     1         R(3,I2)) + R(3,I1)*(R(1,I4)-R(1,I2))\r\n      DR( 9) = R(2,I2)*R(1,I4) - R(1,I2)*R(2,I4) + R(1,I1)*(R(2,I4)-\r\n     1         R(2,I2)) - R(2,I1)*(R(1,I4)-R(1,I2))\r\n      DR(10) = R(2,I2)*R(3,I3) - R(3,I2)*R(2,I3) - R(2,I1)*(R(3,I3)-\r\n     1         R(3,I2)) + R(3,I1)*(R(2,I3)-R(2,I2))\r\n      DR(11) = R(3,I2)*R(1,I3) - R(1,I2)*R(3,I3) + R(1,I1)*(R(3,I3)-\r\n     1         R(3,I2)) - R(3,I1)*(R(1,I3)-R(1,I2))\r\n      DR(12) = R(1,I2)*R(2,I3) - R(2,I2)*R(1,I3) - R(1,I1)*(R(2,I3)-\r\n     1         R(2,I2)) + R(2,I1)*(R(1,I3)-R(1,I2))\r\nC\r\n      DO 190  K = 1,12\r\n  190 DR(K) = DR(K)/DET\r\nC\r\nC     MULTIPLY SHAPE FUNCTION  BY G\r\nC\r\n      IF (ITYPE .NE. 24) CALL GMMATS (DR(1),4,3,0,G,3,3,0,DR(13))\r\nC\r\nC     COMPUTE HC\r\nC\r\n      IF (ITYPE .NE. 24) GO TO 200\r\nC\r\nC     REMFLUX\r\nC\r\n      NSUBX = ISTART + 3*NCOUNT - 3\r\n      HC(1) = Z(NSUBX)\r\n      HC(2) = Z(NSUBX+1)\r\n      HC(3) = Z(NSUBX+2)\r\n      GO TO 360\r\nC\r\nC     INTEGRATE TO GET HC\r\nC\r\n  200 KTYPE = ITYPE - 19\r\n      XLACC(1) = 0.\r\n      XLACC(2) = 0.\r\n      XLACC(3) = 0.\r\nC\r\nC     START INTEGRATION PROCEDURE-NEED 5 POINTS FOR CUBIC + CENTROID\r\nC\r\n      DO 340 NPTS = 1,NOPTS\r\nC\r\nC     DO CENTROID FOR ONLY 1ST TETRA\r\nC\r\n      IF (NPTS.EQ.NOPTS .AND. IEL.GT.1) GO TO 340\r\nC\r\nC     COMPUTE BASIC COORDS OF INTEGRATION POINT\r\nC\r\n      IF (NPTS .NE. NOPTS) GO TO 210\r\nC\r\nC     CENTROID\r\nC\r\n      XX = XXC\r\n      YY = YYC\r\n      ZZ = ZZC\r\n      IF (ITYPE .NE. 20) GO TO 220\r\nC\r\nC     AVERAGE SPCFLD\r\nC\r\n      HC(1) = AHCX\r\n      HC(2) = AHCY\r\n      HC(3) = AHCZ\r\n      GO TO 310\r\n  210 XX = LL(1,NPTS)*R(1,I1) + LL(2,NPTS)*R(1,I2) + LL(3,NPTS)*R(1,I3)\r\n     1   + LL(4,NPTS)*R(1,I4)\r\n      YY = LL(1,NPTS)*R(2,I1) + LL(2,NPTS)*R(2,I2) + LL(3,NPTS)*R(2,I3)\r\n     1   + LL(4,NPTS)*R(2,I4)\r\n      ZZ = LL(1,NPTS)*R(3,I1) + LL(2,NPTS)*R(3,I2) + LL(3,NPTS)*R(3,I3)\r\n     1   + LL(4,NPTS)*R(3,I4)\r\n  220 HC(1) = 0.\r\n      HC(2) = 0.\r\n      HC(3) = 0.\r\nC\r\nC     COMPUTE HC AT THIS PPOINT FOR ALL LOADS OF THIS TYPE IN THIS\r\nC     SUBCASE\r\nC\r\n      DO 300 IJK = 1,IDO\r\n      IF (ITYPE .EQ. 20) GO TO 240\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 230 I = 1,IWORDS\r\n  230 BUF(I) = Z(ISUB+I)\r\nC\r\n      GO TO (240,260,270,280), KTYPE\r\nC\r\nC     SPCFLD\r\nC\r\n  240 DO 250 I = 1,4\r\n      ISIL = FRSTGD - 1 + IP(I)\r\n      IST  = ISTART + 3*NECPT(ISIL) - 3\r\n      HCX(I) = Z(IST  )\r\n      HCY(I) = Z(IST+1)\r\n      HCZ(I) = Z(IST+2)\r\n  250 CONTINUE\r\n      HC1 = LL(1,NPTS)*HCX(1) + LL(2,NPTS)*HCX(2) + LL(3,NPTS)*HCX(3) +\r\n     1      LL(4,NPTS)*HCX(4)\r\n      HC2 = LL(1,NPTS)*HCY(1) + LL(2,NPTS)*HCY(2) + LL(3,NPTS)*HCY(3) +\r\n     1      LL(4,NPTS)*HCY(4)\r\n      HC3 = LL(1,NPTS)*HCZ(1) + LL(2,NPTS)*HCZ(2) + LL(3,NPTS)*HCZ(3) +\r\n     1      LL(4,NPTS)*HCZ(4)\r\n      GO TO 290\r\nC\r\nC     CEMLOOP,GEMLOOP,MDIPOLE\r\nC\r\n  260 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 290\r\n  270 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 290\r\n  280 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n  290 HC(1) = HC(1) + HC1\r\n      HC(2) = HC(2) + HC2\r\n      HC(3) = HC(3) + HC3\r\n  300 CONTINUE\r\n  310 IF (NPTS .NE. NOPTS) GO TO 320\r\n      SC(3) = HC(1)\r\n      SC(4) = HC(2)\r\n      SC(5) = HC(3)\r\n      CALL WRITE (SCR6,SC,5,0)\r\n      GO TO 340\r\nC\r\nC     WE HAVE HC AT THIS POINT. MULT. BY  WEIGHT AND ACCUMULATE\r\nC\r\n  320 DO 330 I = 1,3\r\n  330 XLACC(I) = XLACC(I) + HC(I)*W(NPTS)\r\nC\r\nC     GET ANOTHER INTEGRATTION POINT\r\nC\r\n  340 CONTINUE\r\nC\r\n      IF (ONLYC) RETURN\r\n      DO 350 I = 1,3\r\n  350 HC(I) = XLACC(I)\r\n  360 CONTINUE\r\nC\r\nC     MULTIPLY HC BY GRADIENTS AND MATERIALS\r\nC\r\n      ISUBX = 13\r\n      IF (ITYPE .EQ. 24) ISUBX = 1\r\n      CALL GMMATS (DR(ISUBX),4,3,0,HC,3,1,0,F(1))\r\nC\r\n      DO 370 K = 1,4\r\n      KK = IP(K)\r\n  370 XLOAD(KK) = XLOAD(KK) + F(K)*VOL/XM\r\nC\r\nC     XLOAD   IS SUM OF ALL LOADS FOR ALL THE ELEMENTS\r\nC     F COMPUTED FOR A GIVEN TETRA OF THE TOTAL SHAPE\r\nC     SO MULTIPLY BY VOL\r\nC\r\n  400  CONTINUE\r\nC\r\n      DO 430  I = 1,NGRID\r\n      IS   = FRSTGD - 1 + I\r\n      ISIL = NECPT(IS)\r\nC\r\nC     IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 420\r\n      DO 410 J = 1,NBDYS\r\n      IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+J-1)) GO TO 410\r\n      GO TO 420\r\n  410 CONTINUE\r\n      GO TO 430\r\n  420 Z(ISIL) = Z(ISIL) - XLOAD(I)\r\n  430 CONTINUE\r\n      RETURN\r\nC\r\nC     ISOPARAMETRIC SOLIDS\r\nC\r\n  500 JTYPE = ITYPE\r\n      ITYPE = ELTYPE - 64\r\n      INIP  = NECPT(NIP)\r\n      IF (INIP .EQ. 0) INIP = ITYPE/2 + 2\r\n      NP    = 12*ITYPE - 4\r\n      ELID  = NECPT(1)\r\nC\r\nC     SET UP FOR FETCHING SHAPE FUNCTIONS\r\nC\r\n      DO 510 I = 1,NP\r\n      GPT(I) = ECPT(ITEMP-1+I)\r\n      DO 510 J = 1,3\r\n      BXYZ(J,I) = ECPT(NP+4+4*I+J)\r\n  510 CONTINUE\r\n      IF (ONLYC) GO TO 570\r\n      I = INIP - 1\r\n      GO TO (520,530,540), I\r\n  520 H(1)  = 1.\r\n      S(1)  = GAUSS(1)\r\n      H(2 ) = H(1)\r\n      S(2)  = -S(1)\r\n      GO TO 550\r\n  530 H(1)  = GAUSS(2)\r\n      S(1)  = GAUSS(3)\r\n      H(2 ) = GAUSS(4)\r\n      S(2)  = 0.\r\n      H(3 ) = H(1)\r\n      S(3 ) = -S(1)\r\n      GO TO 550\r\n  540 H(1 ) = GAUSS(5)\r\n      S(1)  = GAUSS(6)\r\n      H(2)  = GAUSS(7)\r\n      S(2)  = GAUSS(8)\r\n      H(3)  = H(2)\r\n      S(3)  = -S(2)\r\n      H(4) = H(1)\r\n      S(4) = -S(1)\r\n  550 DO 560 I = 1,32\r\n  560 F(I) = 0.0\r\nC\r\nC     SET UP HC ARRAY GIVING HC AT EACH GRID\r\nC\r\n      IF (JTYPE .NE. 24) GO TO 570\r\nC\r\nC     REMFLUX\r\nC\r\n      ISUB  = ISTART + 3*NCOUNT - 3\r\n      GH(1) = Z(ISUB)\r\n      GH(2) = Z(ISUB+1)\r\n      GH(3) = Z(ISUB+2)\r\n      GO TO 610\r\nC\r\nC     IF SPCFLD,PICK UP GRID VALUES HERE. IF NOT, PICK UP INTEGRATION\r\nC     POINT VALUES LATER.(THERE IS ONLY ONE SPCFLD CARD AT THIS POINT)\r\nC\r\n  570 IF (JTYPE .NE. 20) GO TO 590\r\n      DO 580 I = 1,NP\r\n      ISIL = 3*NECPT(I+1)\r\n      HC(3*I-2) = Z(ISTART+ISIL-3)\r\n      HC(3*I-1) = Z(ISTART+ISIL-2)\r\n      HC(3*I  ) = Z(ISTART+ISIL-1)\r\n  580 CONTINUE\r\n  590 INFLAG = 3\r\n      MATID  = NECPT(MID)\r\n  610 KTYPE  = JTYPE - 20\r\n      IF (ONLYC) GO TO 850\r\nC\r\nC     START INTEGRATION\r\nC\r\n      DO 800 I = 1,INIP\r\n      DO 800 J = 1,INIP\r\n      DO 800 K = 1,INIP\r\nC\r\nC     FETCH SHAPE FUNCTIONS FOR THIS INTEGRATION POINT\r\nC\r\n      CALL IHEXSS(ITYPE,SHP,DSHP,XJACOB,DETJ,ELID,S(I),S(J),S(K),BXYZ)\r\nC\r\nC     COMPUTE NI W.R.T. X,Y,Z(REVERVSE CALLING SEQUENCE,SINCE COL STOR)\r\nC\r\n      CALL GMMATS(DSHP,NP,3,0,XJACOB,3,3,0,DSHPB)\r\nC\r\nC     COMPUTE TEMPERATURES AND HC  AT THIS INTEGRSTION POINT\r\nC\r\n      ELTEMP = 0\r\n      DO 620 L = 1,NP\r\n      ELTEMP = ELTEMP + SHP(L)*GPT(L)\r\n  620 CONTINUE\r\n      IF (JTYPE .EQ. 24) GO TO 730\r\n      HCXYZ(1) = 0.\r\n      HCXYZ(2) = 0.\r\n      HCXYZ(3) = 0.\r\n      IF (JTYPE .EQ. 20) GO TO 700\r\nC\r\nC     FOR LOOPS AND DIPOLES, COMPUTE BASIC COORDS FOR THIS INTEGRATION\r\nC     POINT\r\nC\r\n      XX = 0.\r\n      YY = 0.\r\n      ZZ = 0.\r\n      DO 630 L = 1,NP\r\n      XX = XX + SHP(L)*BXYZ(1,L)\r\n      YY = YY + SHP(L)*BXYZ(2,L)\r\n      ZZ = ZZ + SHP(L)*BXYZ(3,L)\r\n  630 CONTINUE\r\n      DO 690 IJK = 1,IDO\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 640 L = 1,IWORDS\r\n  640 BUF(L) = Z(ISUB+L)\r\nC\r\nC     COMPUTE HC AT THIS POINT DUE TO ALL LOADS OF PRESENT TYPE\r\nC\r\n      GO TO (650,660,670), KTYPE\r\n  650 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 680\r\n  660 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 680\r\n  670 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n  680 HCXYZ(1) = HCXYZ(1) + HC1\r\n      HCXYZ(2) = HCXYZ(2) + HC2\r\n      HCXYZ(3) = HCXYZ(3) + HC3\r\n  690 CONTINUE\r\n      GO TO 720\r\nC\r\nC     SPCFLD\r\nC\r\n  700 DO 710  L = 1,NP\r\n      HCXYZ(1) = HCXYZ(1) + SHP(L)*HC(3*L-2)\r\n      HCXYZ(2) = HCXYZ(2) + SHP(L)*HC(3*L-1)\r\n      HCXYZ(3) = HCXYZ(3) + SHP(L)*HC(3*L  )\r\n  710 CONTINUE\r\nC\r\n      CALL HMAT(ELID)\r\nC\r\n  720 G(1) = XMAT(1)\r\n      G(2) = XMAT(2)\r\n      G(3) = XMAT(3)\r\n      G(4) = XMAT(2)\r\n      G(5) = XMAT(4)\r\n      G(6) = XMAT(5)\r\n      G(7) = XMAT(3)\r\n      G(8) = XMAT(5)\r\n      G(9) = XMAT(6)\r\nC\r\n      CALL GMMATS (G,3,3,0,HCXYZ,3,1,0,GH)\r\nC\r\n  730 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      DO 740 L = 1,NP\r\n      F(L) = F(L) + (DSHPB(1,L)*GH(1) + DSHPB(2,L)*GH(2) +\r\n     1       DSHPB(3,L)*GH(3))*SFACT\r\n  740 CONTINUE\r\nC\r\nC     GET ANOTHER INTEGRATIONPOINT\r\nC\r\n  800 CONTINUE\r\nC\r\nC     ADD LOADS INTO LOAD ARRAY\r\nC\r\n      DO 840 L = 1,NP\r\n      ISIL = NECPT(FRSTGD+L-1)\r\nC\r\nC     IF PERMBDY EXISTS AND IF GRID IS NOT ON IT, IGNORE ITS LOAD\r\nC\r\n      IF (NBDYS .EQ. 0) GO TO 830\r\n      DO 820 I = 1,NBDYS\r\n      IF (ISIL .NE. IZ(ISTART-NBDYS-NELOUT+I-1)) GO TO 820\r\n      GO TO 830\r\n  820 CONTINUE\r\n      GO TO 840\r\n  830 Z(ISIL) = Z(ISIL) - F(L)\r\n  840 CONTINUE\r\n  850 ITYPE = JTYPE\r\nC\r\nC     BEFORE LEAVING, WE MUST COMPUTE HC VALUES AT GRIDS OF ISOPARA-\r\nC     METRICS AND WRITE TO SCR6\r\nC\r\n      IF (JTYPE .EQ. 24) GO TO 1150\r\n      CALL WRITE (SCR6,ISC,2,0)\r\n      IF (JTYPE .NE. 20) GO TO 1010\r\nC\r\nC     FOR SPCFLD THE VALUES ARE IN CORE(EXCEPT FOR MIFPOINTS OF IHEX3)\r\nC\r\n      IF (ELTYPE .EQ. 67) GO TO 880\r\n      CALL WRITE (SCR6,HC,3*NP,0)\r\nC\r\nC     CENTROID/ XI = ETA = ZETA = 0\r\nC\r\n  860 CALL IHEXSS (ELTYPE-64,SHP,DSHP,XJACOB,DETJ,ELID,0.,0.,0.,BXYZ)\r\n      HCX3(1) = 0.\r\n      HCX3(2) = 0.\r\n      HCX3(3) = 0.\r\n      DO 870 L = 1,NP\r\n      HCX3(1) = HCX3(1) + SHP(L)*HC(3*L-2)\r\n      HCX3(2) = HCX3(2) + SHP(L)*HC(3*L-1)\r\n      HCX3(3) = HCX3(3) + SHP(L)*HC(3*L  )\r\n  870 CONTINUE\r\n      CALL WRITE (SCR6,HCX3,3,0)\r\n      GO TO 1150\r\n  880 ISUB1 = 1\r\n      ISUB2 = 10\r\n      J = -5\r\n  890 DO 900 I = ISUB1,ISUB2,3\r\n      J = J + 6\r\n      K = 3*I - 2\r\n      HCX3(J  ) = HC(K  )\r\n      HCX3(J+1) = HC(K+1)\r\n      HCX3(J+2) = HC(K+2)\r\n      HCX3(J+3) = .5*(HC(K+3) + HC(K+6))\r\n      HCX3(J+4) = .5*(HC(K+4) + HC(K+7))\r\n      HCX3(J+5) = .5*(HC(K+5) + HC(K+8))\r\n  900 CONTINUE\r\n      IF (ISUB1 .EQ. 21) GO TO 1000\r\n      J = 22\r\n      DO 910 I = 13,16\r\n      J = J + 3\r\n      K = 3*I - 2\r\n      HCX3(J  ) = .5*(HC(K  ) + HC(K+12))\r\n      HCX3(J+1) = .5*(HC(K+1) + HC(K+13))\r\n      HCX3(J+2) = .5*(HC(K+2) + HC(K+14))\r\n  910 CONTINUE\r\n      ISUB1 = 21\r\n      ISUB2 = 30\r\n      J = 31\r\n      GO TO 890\r\nC\r\nC     DONE - WRITE RESULTS\r\nC\r\n 1000 CALL WRITE (SCR6,HCX3,60,0)\r\n      GO TO 860\r\nC\r\nC     CEMLOOP, GEMLOOP, MDIPOLE\r\nC\r\n 1010 NX = NP + 1\r\n      IF (ELTYPE .EQ. 67) NX = 21\r\n      DO 1140 J = 1,NX\r\n      IF (J .NE. NX) GO TO 1030\r\nC\r\nC     CENTROID\r\nC\r\n      CALL IHEXSS (ELTYPE-64,SHP,DSHP,XJACOB,DETJ,ELID,0.,0.,0.,BXYZ)\r\n      XX = 0.\r\n      YY = 0.\r\n      ZZ = 0.\r\n      DO 1020 L = 1,NP\r\n      XX = XX + SHP(L)*BXYZ(1,L)\r\n      YY = YY + SHP(L)*BXYZ(2,L)\r\n      ZZ = ZZ + SHP(L)*BXYZ(3,L)\r\n 1020 CONTINUE\r\n      GO TO 1070\r\nC\r\n 1030 IF (ELTYPE .NE. 67) GO TO 1060\r\nC\r\nC     IHEX3\r\nC\r\n      IF (J.EQ. 1) K1 =-1\r\n      IF (J.EQ.13) K1 = 7\r\n      IF (J.EQ. 1) K2 =-1\r\n      IF (J.EQ.13) K2 = 7\r\n      IF (J.LT.9 .OR. J.GT.12) GO TO 1040\r\n      XX = .5*(BXYZ(1,J+4) + BXYZ(1,J+8))\r\n      YY = .5*(BXYZ(2,J+4) + BXYZ(2,J+8))\r\n      ZZ = .5*(BXYZ(3,J+4) + BXYZ(3,J+8))\r\n      GO TO 1070\r\n 1040 IF ((J/2)*2 .NE. J)GO TO 1050\r\n      K1 = K1 + 1\r\n      XX = .5*(BXYZ(1,J+K1) + BXYZ(1,J+K1+1))\r\n      YY = .5*(BXYZ(2,J+K1) + BXYZ(2,J+K1+1))\r\n      ZZ = .5*(BXYZ(3,J+K1) + BXYZ(3,J+K1+1))\r\n      GO TO 1070\r\n 1050 K2 = K2 + 1\r\n      XX = BXYZ(1,J+K2)\r\n      YY = BXYZ(2,J+K2)\r\n      ZZ = BXYZ(3,J+K2)\r\n      GO TO 1070\r\nC\r\n 1060 XX = BXYZ(1,J)\r\n      YY = BXYZ(2,J)\r\n      ZZ = BXYZ(3,J)\r\n 1070 HC(1) = 0.\r\n      HC(2) = 0.\r\n      HC(3) = 0.\r\n      DO 1130 IJK = 1,IDO\r\n      ISUB = ISTART + (IJK-1)*IWORDS - 1\r\n      DO 1080 I = 1,IWORDS\r\n 1080 BUF(I) = Z(ISUB+I)\r\nC\r\nC     COMPUTE HC AT THIS POINT\r\nC\r\n      GO TO (1090,1100,1110), KTYPE\r\n 1090 CALL AXLOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1120\r\n 1100 CALL GELOOP (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 1120\r\n 1110 CALL DIPOLE (BUF,IBUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n 1120 HC(1) = HC(1) + HC1\r\n      HC(2) = HC(2) + HC2\r\n      HC(3) = HC(3) + HC3\r\n 1130 CONTINUE\r\nC\r\n      CALL WRITE (SCR6,HC,3,0)\r\n 1140 CONTINUE\r\nC\r\n 1150 RETURN\r\nC\r\n 1200 WRITE  (OUTPT,1210) UFM\r\n 1210 FORMAT (A23,' - WRONG ELEMENT TYPE IN EM3D PROBLEM.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ema.f",
    "content": "      SUBROUTINE EMA\r\nC\r\nC     DMAP SEQUENCE\r\nC\r\nC     EMA    GPECT,XEMD,XBLOCK/XGG/C,N,NOK4/C,N,WTMASS $\r\nC\r\nC            WHERE NOK4 .NE. -1 TO BUILD K4GG (USE DAMPING FACTOR),\r\nC                       .EQ. -1 TO IGNORE DAMPING FACTOR\r\nC\r\nC     EMA USES TWO SCRATCH FILES\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF  ,ORF\r\n      LOGICAL         FIRST ,LAST  ,PIEZ\r\n      INTEGER         BUF1  ,BUF2  ,SCRIN ,SCROUT,SCR1  ,SCR2  ,GPECT ,\r\n     1                BUF   ,SYSBUF,RDREW ,WRTREW,RD    ,WRT   ,CLS   ,\r\n     2                CLSREW,Z     ,BUF3  ,XEMD  ,OUTPUT,GPEWDS,GPECTX,\r\n     3                HIGH  ,XBLOCK,SCALAS,XGG   ,ANDF  ,PREC  ,HDR   ,\r\n     4                PPOINT,UNION ,ORF   ,OP    ,RSHIFT,COL   ,OLDCOD,\r\n     5                COL1  ,COLN  ,Q     ,OPENR ,OPENW\r\n      DOUBLE PRECISION       ZD    ,XD    ,D\r\nCWKBI 1/95      \r\n      DOUBLE PRECISION       XDD\r\n      DIMENSION       BUF(100)     ,SCALAS(32)   ,HDR(6),MSG(4),MCB(7),\r\n     1                MA1H(2)      ,ZD(1) ,XD(1) ,XS(2) ,IS(2) ,Y(1)  ,\r\n     2                D(18) ,IHQ(180)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM\r\n      COMMON /MACHIN/ MACH  ,IHALF ,JHALF\r\n      COMMON /LHPWX / LHPW(5)      ,KSHIFT\r\n      COMMON /BLANK / NOK4  ,WTMASS\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /ZBLPKX/ Q(4)  ,IQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MA1XX / BUF   ,BUF1  ,BUF2  ,BUF3  ,COL   ,COLN  ,COL1  ,\r\n     1                GPEWDS,HIGH  ,I     ,ICOL  ,ICOLX ,IDICT ,IELEM ,\r\n     2                IGPX  ,ILIST ,IMAT  ,IMATN ,IPVT  ,IROW  ,IROWP ,\r\n     3                IROWX ,JJ    ,K     ,KELEM ,KK    ,II    ,K4FLAG,\r\n     4                L     ,J     ,LCORE ,LDICT ,LOW   ,L1    ,L2    ,\r\n     5                M     ,MAXII ,MAXIPV,MAXN  ,MAXNPR,JNEXT ,N     ,\r\n     6                NBRCOL,NBRROW,NBRWDS,NCOL  ,NGPS  ,NGRIDS,NHDR  ,\r\n     7                NLIST ,NLOCS ,NMAT  ,NPVT  ,NREAD ,NREC  ,NROW  ,\r\n     8                NROWP ,NSCA  ,NWDS  ,OLDCOD,OP    ,PREC  ,SCRIN ,\r\n     9                SCROUT, UNION,SCALAS\r\n      EQUIVALENCE    (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTPUT),\r\n     1               (KSYSTM(78),IPIEZ )\r\n      EQUIVALENCE    (Z(1) ,ZD(1)), (XS(1),XD(1),IS(1)), (Z(1) ,Y(1) ),\r\n     1               (BUF(1),D(1)), (IPVT ,IVPT ), (BUF(1),IHQ(1))\r\n      DATA   LBUF  / 100/, MCB/ 7*0 /, MA1H/ 4HEMA ,2H   /, KONS/ 14 /,\r\n     1       MDICT / 6  /, HDR/ 6*0 /\r\n      DATA   GPECT , XEMD  , XBLOCK / 101, 102, 103 / ,\r\n     1       XGG                    / 201           / ,\r\n     2       SCR1  , SCR2           / 301, 302      /\r\nC\r\nC\r\nC     RE-SET KONS IF HALF WORD IS LARGER THAN THAN 16 BITS\r\nC\r\n      IF (IHALF .GE. 18) KONS = 16\r\n      IF (IHALF .GE. 30) KONS = 24\r\nC\r\nC     ALLOCATE BUFFERS. OPEN GPECT AND ALLOCATE A TABLE OF 4 WORDS\r\nC     PER ELEMENT TYPE. OPEN SCRATCH FILE FOR GPECTX. OPEN XEMD.\r\nC\r\n      MCB(1) = 0\r\n      MCB(2) = 0\r\n      MCB(3) = 0\r\n      MCB(4) = 0\r\n      MCB(5) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      MAXII  = 2**KONS - 1\r\n      MAXBLK = 0\r\n      KSFT   = KSHIFT\r\n      MASK   = LSHIFT(JHALF,IHALF)\r\n      BUF1   = KORSZ(Z) - SYSBUF\r\n      BUF2   = BUF1 - SYSBUF\r\n      BUF3   = BUF2 - SYSBUF\r\n      LCORE  = BUF1 + SYSBUF - 1\r\n      K4FLAG = 1\r\n      IF (NOK4 .EQ. -1) K4FLAG = 0\r\nC\r\nC     SET LOGICAL VARIABLE TRUE IF THIS IS A PIEZOELECRRIC COUPLED\r\nC     PROBLEM AND STRUCTURAL DAMPING FLAG IS ON\r\nC\r\n      PIEZ = .FALSE.\r\n      IF (IPIEZ.EQ.1 .AND. K4FLAG.NE.0) PIEZ = .TRUE.\r\n      BUF(1) = XBLOCK\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .LT. 0) GO TO 9132\r\n      PREC   = BUF(2)\r\n      BUF(1) = GPECT\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .LT. 0) GO TO 9131\r\n      IDICT = 4*BUF(2) + 1\r\n      NSIL  = BUF(3)\r\n      MAXEL = BUF(4)\r\n      MAXDOF= BUF(5)\r\n      CALL GOPEN (GPECT,Z(BUF1),RDREW)\r\n      L     = (2**(IHALF+IHALF-2)-1)*2 + 1\r\n      MAXIPV= RSHIFT(L,KONS)\r\n      SCRIN = GPECT\r\n      SCROUT= SCR1\r\n      CALL GOPEN (XEMD,Z(BUF3),RDREW)\r\n      CALL OPEN (*9134,SCROUT,Z(BUF2),WRTREW)\r\n      CALL WRITE (SCROUT,BUF,3,1)\r\nC\r\nC     SET SWITCHES FOR MULTIPLICATION BY DAMPING\r\nC     OR WEIGHT MASS FACTOR (OR BOTH)\r\nC\r\n      EPS = ABS(WTMASS-1.0)\r\n      IF (EPS.LT.1.E-6 .AND. K4FLAG.EQ.0) ASSIGN  1370 TO KFACT\r\n      IF (EPS.LT.1.E-6 .AND. K4FLAG.NE.0) ASSIGN 13651 TO KFACT\r\n      IF (EPS.GT.1.E-6 .AND. K4FLAG.EQ.0) ASSIGN 13652 TO KFACT\r\n      IF (EPS.GT.1.E-6 .AND. K4FLAG.NE.0) ASSIGN 13653 TO KFACT\r\nC\r\nC     FILL CORE WITH ELEMENT MATRIX DICTIONARIES. FOR EACH ELEMENT TYPE\r\nC     STORE POINTER TO 1ST DICT AND THE NBR OF DICTS IN TABLE AT TOP OF\r\nC     CORE ALSO STORE LENGTH OF EACH DICTIONARY AND FORMAT CODE.\r\nC\r\n      L = IDICT\r\n      DO 1012 I = 1,IDICT\r\n 1012 Z(I)  = 0\r\n      MAXN  = 0\r\n      LAST  = .TRUE.\r\n 1014 CALL READ (*1026,*9135,XEMD,HDR,3,0,NREAD)\r\n      IELEM = 4*HDR(1) - 3\r\n      LDICT = HDR(2)\r\n      Z(IELEM  ) = L\r\n      Z(IELEM+2) = LDICT\r\n      Z(IELEM+3) = HDR(3)\r\n 1016 IF (L+LDICT .GE. BUF3) GO TO 1024\r\n      JDICT = LDICT\r\n      CALL READ (*9136,*1018,XEMD,Z(L),LDICT,0,NREAD)\r\n      L = L + LDICT\r\n      GO TO 1016\r\n 1018 IF (NREAD .NE. 0) GO TO 9001\r\n      HIGH = Z(L-LDICT)\r\n      Z(IELEM+1) = (L-Z(IELEM))/LDICT\r\n      GO TO 1014\r\n 1024 LAST = .FALSE.\r\n      Z(IELEM+1) = (L-Z(IELEM))/LDICT\r\n      HIGH = Z(L-JDICT)\r\n      IF (Z(IELEM+1) .NE. 0) GO TO 1030\r\n      Z(IELEM) = 0\r\n      GO TO 1030\r\n 1026 LAST = .TRUE.\r\n      CALL CLOSE (XEMD,CLSREW)\r\nC\r\nC     PASS GPECT (OR PARTIALLY COMPLETED GPECTX) ENTRY BY ENTRY.\r\nC     IF ENTRY HAS BEEN COMPLETED, COPY IT OUT.  OTHERWISE, LOCATE\r\nC     DICTIONARY FOR ELEMENT (IF IN CORE) AND ATTACH IT.\r\nC     DETERMINE LENGTH OF LONGEST RECORD IN GPECTX.\r\nC     DETERMINE THE MAXIMUM LENGTH OF ONE COLUMN OF AN ELEMENT MATRIX.\r\nC\r\n 1030 NHDR = 2\r\n      IF (LAST) NHDR = 5\r\n      MAXGPE = 0\r\n      LOW  = Z(IDICT)\r\n      NGPS = 0\r\nC\r\nC     READ AND WRITE HEADER FOR RECORD (SIL, DOF, ETC.)\r\nC\r\n 1032 CALL READ (*1110,*9137,SCRIN,HDR,2,0,NREAD)\r\n      CALL WRITE (SCROUT,HDR,NHDR,0)\r\n      GPEWDS = NHDR\r\n      NGPS   = NGPS + 1\r\nC\r\nC     READ FIRST WORD  OF ENTRY ON GPECT. TEST FOR DICT ALREADY ATTACHED\r\nC\r\n 1035 CALL READ (*9138,*1100,SCRIN,BUF,1,0,NREAD)\r\n      IF (IABS(BUF(1)) .GT. LBUF) GO TO 9002\r\n      IF (BUF(1) .LT. 0) GO TO 1040\r\nC\r\nC     DICTIONARY ALREADY ATTACHED---READ REMAINDER OF ENTRY AND\r\nC     COPY ENTRY TO GPECTX.\r\nC\r\n      CALL READ (*9139,*9140,SCRIN,BUF(2),BUF(1),0,NREAD)\r\n      N = BUF(1) + 1\r\n 1038 CALL WRITE (SCROUT,BUF,N,0)\r\n      GPEWDS = GPEWDS + N\r\n      GO TO 1035\r\nC\r\nC     DICTIONARY NOT ATTACHED---TRY TO LOCATE DICT IN CORE\r\nC\r\n 1040 M = -BUF(1)\r\n      CALL READ (*9141,*9142,SCRIN,BUF(2),M,0,NREAD)\r\n      IF (BUF(2) .LT.  LOW) GO TO 1044\r\n      IF (BUF(2) .GT. HIGH) GO TO 1042\r\n      KELEM = 4*BUF(3) - 3\r\n      IF (Z(KELEM) .EQ. 0) GO TO 1035\r\n      L     = Z(KELEM  )\r\n      N     = Z(KELEM+1)\r\n      LDICT = Z(KELEM+2)\r\n      NLOCS = Z(KELEM+3)\r\n      CALL BISLOC (*1035,BUF(2),Z(L),LDICT,N,K)\r\n      K = K + L - 1\r\n      IF (K4FLAG.NE.0 .AND. Z(K+4).EQ.0) GO TO 1035\r\n      GO TO 1050\r\n 1042 IF (LAST) GO TO 1044\r\n      N = M + 1\r\n      GO TO 1038\r\n 1044 CONTINUE\r\n      GO TO 1035\r\nC\r\nC     DICTIONARY LOCATED---WRITE OUT COMPLETED ENTRY ON GPECTX\r\nC         0             NO. OF WORDS IN ENTRY (NOT INCL THIS WORD)\r\nC       1 - 5           ELEM ID, F, N, C, GE\r\nC         6             LOC OF ELEMENT MATRIX COLUMNS FOR CURRENT PIVOT\r\nC       7 - 6+NGRIDS    SIL-S OF CONNECTED GRID POINTS\r\nC\r\n 1050 NGRIDS = M - 2\r\n      INDX   = K + MDICT - 1\r\n      IF (NLOCS .EQ. 1) GO TO 1056\r\n      IF (NGRIDS .GT. NLOCS) GO TO 9004\r\n      KK = 1\r\n      DO 1053 I = 1,NGRIDS\r\n      IF (KK .EQ. 1) GO TO 10525\r\nC\r\nC     CHECK FOR DUPLICATE SILS - E.G. HBDY ELEMENT WITH AMBIENT PTS\r\nC\r\n10522 IF (BUF(KK+3) .NE. BUF(KK+2)) GO TO 10525\r\n      KK = KK + 1\r\n      GO TO 10522\r\n10525 IF (BUF(KK+3) .NE. HDR(1)) GO TO 10530\r\nC\r\nC     SIL THAT MATCHES THE PIVOT FOUND.  NOW INSURE THAT THIS SIL\r\nC     HAS NOT BEEN ALREADY CONNECTED DUE TO A PREVIOUS ENTRY IN THIS\r\nC     GPECT RECORD.  (CAUSED BY DUPLICATE IDS I.E. CELAS2)\r\nC\r\nC     GINO-LOC WILL NOW BE ZERO IF THAT IS TRUE\r\nC\r\n      INDX = K + MDICT + I - 2\r\n      IF (Z(INDX)) 1054,10530,1054\r\n10530 KK = KK + 1\r\n 1053 CONTINUE\r\n      GO TO 1035\r\n 1054 Z(K+MDICT-1) = Z(INDX)\r\n      IF (Z(K+1) .NE. 2) GO TO 1056\r\n      BUF(4) = BUF(I+3)\r\n      NGRIDS = 1\r\n 1056 IF (LDICT-NLOCS+1 .NE. MDICT) GO TO 9010\r\n      N = MDICT + NGRIDS\r\n      CALL WRITE (SCROUT,N,1,0)\r\n      CALL WRITE (SCROUT,Z(K),MDICT,0)\r\n      MAXBLK = MAX0(Z(INDX)/KSFT,MAXBLK)\r\nC\r\nC     ZERO GINO-LOC AS HAVING BEEN USED NOW.\r\nC\r\n      Z(INDX) = 0\r\n      CALL WRITE (SCROUT,BUF(4),NGRIDS,0)\r\n      MAXN   = MAX0(MAXN,Z(K+2))\r\n      GPEWDS = GPEWDS + N + 1\r\n      GO TO 1035\r\nC\r\nC     HERE ON END-OF-RECORD ON GPECT\r\nC\r\n 1100 CALL WRITE (SCROUT,0,0,1)\r\n      MAXGPE = MAX0(MAXGPE,GPEWDS)\r\n      GO TO 1032\r\nC\r\nC     HERE ON END-OF-FILE ON GPECT---TEST FOR COMPLETION OF GPECTX\r\nC\r\n 1110 CALL CLOSE (SCRIN ,CLSREW)\r\n      CALL CLOSE (SCROUT,CLSREW)\r\n      IF (NGPS .NE. NSIL) GO TO 9024\r\n      IF (LAST) GO TO 1200\r\nC\r\nC     GPECTX NOT COMPLETE---SWITCH FILES AND MAKE ANOTHER PASS\r\nC\r\n      IF (SCRIN .EQ. GPECT) SCRIN = SCR2\r\n      K = SCRIN\r\n      SCRIN  = SCROUT\r\n      SCROUT = K\r\n      CALL GOPEN (SCRIN ,Z(BUF1),RDREW )\r\n      CALL GOPEN (SCROUT,Z(BUF2),WRTREW)\r\n      L = IDICT\r\n      LDICT = Z(IELEM+2)\r\n      NLOCS = Z(IELEM+3)\r\n      DO 1114 I = 1,IDICT\r\n 1114 Z(I) = 0\r\n      LAST = .TRUE.\r\n      Z(IELEM  ) = IDICT\r\n      Z(IELEM+2) = LDICT\r\n      Z(IELEM+3) = NLOCS\r\n      GO TO 1016\r\nC\r\nC     HERE WE GO NOW FOR THE ASSEMBLY PHASE---PREPARE BY ALLOCATING\r\nC     STORAGE FOR ONE ELEMENT MATRIX COLUMN AND ITS ROW POSITIONS\r\nC\r\n 1200 IROWP  = PREC*MAXN + 1\r\n      IGPX   = IROWP + MAXN\r\n      FIRST  = .TRUE.\r\n      GPECTX = SCROUT\r\n      MCB(1) = XGG\r\n      MCB(4) = 6\r\n      MCB(5) = PREC\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      LAST   = .FALSE.\r\n      NREC   = 0\r\n      MAXNPR = MAXN*PREC\r\n      OPENR  = RDREW\r\n      OPENW  = WRTREW\r\n      OLDCOD = 0\r\n      ITAB   = BUF1 - MAXBLK\r\n      NTAB   = BUF1 - 1\r\n      IF (ITAB .LT. IGPX) GO TO 9011\r\nC\r\nC     BEGIN A PASS - OPEN GPECTX\r\nC\r\n 1210 IPVT = IGPX\r\n      JJ   = ITAB - 3\r\n      DO 1212 INDX = ITAB,NTAB\r\n      Z(INDX) = 0\r\n 1212 CONTINUE\r\n      CALL GOPEN (GPECTX,Z(BUF1),OPENR)\r\nC\r\nC     READ A RECORD FROM GPECTX INTO CORE\r\nC\r\n 1220 IF (IVPT+MAXGPE.GE.JJ .OR. IPVT.GT.MAXIPV) GO TO 1304\r\n      CALL READ (*9144,*1222,GPECTX,Z(IVPT),MAXGPE+1,1,NREAD)\r\n      GO TO 9006\r\n 1222 ICOL = IPVT + NREAD\r\n      NREC = NREC + 1\r\nC\r\nC     MAKE A PASS THROUGH EACH ELEMENT CONNECTED TO THE PIVOT---FORM THE\r\nC     UNION OF ALL CODE WORDS AND STORE ELEMENT POINTERS IN LIST AT THE\r\nC     END OF OPEN CORE\r\nC\r\n      PPOINT = LSHIFT(IPVT,KONS)\r\n      II     = IPVT + 5\r\n      UNION  = 0\r\n      Z(IPVT+2) = 0\r\n      Z(IPVT+3) = 0\r\n      Z(IPVT+4) = IPVT\r\n      GO TO 1234\r\n 1231 IF (Z(II) .LT. 0) GO TO 9007\r\n      KK = II - IPVT\r\n      IF (KK .GT. MAXII) GO TO 9008\r\n      IF (JJ .LE. ICOL ) GO TO 1300\r\n      Z(JJ  ) = Z(II+MDICT)\r\n      Z(JJ+1) = ORF(PPOINT,KK)\r\n      Z(JJ+2) = 0\r\n      INDX    = ITAB + Z(JJ)/KSFT - 1\r\n      IF (INDX .GT. NTAB) GO TO 9016\r\n      IF (Z(INDX) .NE. 0) GO TO 1236\r\n      Z(INDX) = ORF(LSHIFT(ITAB-JJ,IHALF),ITAB-JJ)\r\n      GO TO 1237\r\n 1236 JJLAST = ITAB - ANDF(Z(INDX),JHALF)\r\n      Z(JJLAST+2) = JJ\r\n      Z(INDX) = ORF(ANDF(Z(INDX),MASK),ITAB-JJ)\r\n 1237 JJ = JJ - 3\r\n      UNION = ORF(UNION,Z(II+4))\r\n      II = II + Z(II) + 1\r\n 1234 IF (II .LT. ICOL) GO TO 1231\r\n      IF (II .NE. ICOL) GO TO 9022\r\nC\r\nC     FORM THE LIST OF NON-NULL COLUMNS TO BE BUILT FOR THIS PIVOT\r\nC\r\n      IF (UNION .EQ. 0) GO TO 1280\r\n      IF (UNION .EQ. OLDCOD) GO TO 1243\r\n      CALL DECODE (UNION,SCALAS,NSCA)\r\n      OLDCOD = UNION\r\n 1243 Z(IPVT+2) = ICOL\r\n      IF (ICOL+NSCA .GE. JJ) GO TO 1300\r\n      II = ICOL\r\n      DO 1244 L = 1,NSCA\r\n      Z(II) = Z(IPVT) + SCALAS(L)\r\n      II = II + 1\r\n 1244 CONTINUE\r\n      IROW = II\r\nC\r\nC     NOW MAKE A PASS AGAIN THROUGH EACH ELEMENT CONNECTED TO CURRENT\r\nC     PIVOT AND FORM A LIST OF UNIQUE ROW INDICES.\r\nC\r\n      II = IPVT + 5\r\n 1252 L1 = II + MDICT + 1\r\n      L2 = II + Z(II)\r\n      IF (OLDCOD .EQ. Z(II+4)) GO TO 1253\r\n      ICODE = Z(II+4)\r\n      CALL DECODE (ICODE,SCALAS,NSCA)\r\n      OLDCOD = Z(II+4)\r\n 1253 CONTINUE\r\n      KK = IROW\r\n      IF (II .NE. IPVT+5) GO TO 1258\r\n      DO 1256 L = L1,L2\r\nC\r\nC     IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC.\r\nC\r\n      IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1256\r\n      DO 1254 I = 1,NSCA\r\n      Z(KK) = Z(L) + SCALAS(I)\r\n      KK = KK + 1\r\n      IF (KK .GE. JJ) GO TO 1300\r\n 1254 CONTINUE\r\n 1256 CONTINUE\r\n      NROW   = KK - 1\r\n      NBRWDS = KK - IROW\r\n      GO TO 1269\r\n 1258 J = IROWP\r\n      DO 1264 L = L1,L2\r\nC\r\nC     IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC.\r\nC\r\n      IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1264\r\n      DO 1262 I = 1,NSCA\r\n      Z(J) = Z(L) + SCALAS(I)\r\n      J = J + 1\r\n 1262 CONTINUE\r\n 1264 CONTINUE\r\n      IF (J .GT. IGPX) GO TO 9023\r\n      M = J - IROWP\r\n      IF (IROW+NBRWDS+M .GE. JJ) GO TO 1300\r\n      CALL MRGE (Z(IROW),NBRWDS,Z(IROWP),M)\r\n      NROW = IROW + NBRWDS - 1\r\n      IF (NROW .GE. JJ) GO TO 1300\r\n 1269 II = L2 + 1\r\n      IF (II .LT. ICOL) GO TO 1252\r\n      Z(IPVT+3) = IROW\r\nC\r\nC     NOW ALLOCATE STORAGE FOR COLUMNS OF XGG ASSOCIATED WITH THIS PIVOT\r\nC\r\n      IMAT   = NROW + 1\r\n      NBRCOL = IROW - ICOL\r\n      NBRROW = IMAT - IROW\r\n      NBRWDS = PREC*NBRCOL*NBRROW\r\n      NMAT   = IMAT + NBRWDS - 1\r\n      IF (NMAT .GE. JJ) GO TO 1300\r\n      DO 1272 I = IMAT,NMAT\r\n      Z(I) = 0\r\n 1272 CONTINUE\r\n      Z(IPVT+4) = IMAT\r\n      II = NMAT + 1\r\nC\r\nC     ADVANCE POINTER AND TRY TO GET ANOTHER PIVOT ALLOCATED\r\nC\r\n 1280 ILIST = JJ + 3\r\n      NPVT  = IPVT\r\n      IF (NREC .EQ. NGPS) GO TO 1310\r\n      IPVT = II\r\n      GO TO 1220\r\nC\r\nC     HERE WHEN STORAGE EXCEEDED DURING PROCESSING OF A PIVOT.\r\nC     IF FIRST PIVOT ON PASS, INSUFFICIENT CORE FOR MODULE.\r\nC     OTHERWISE, BACKSPACE GPECTX AND PREPARE TO PROCESS ALL\r\nC     PIVOTS IN CORE WHICH HAVE BEEN COMPLETELY ALLOCATED.\r\nC\r\n 1300 IF (IPVT .EQ. IGPX) CALL MESAGE (-8,0,MA1H)\r\n      CALL BCKREC (GPECTX)\r\n      NREC = NREC - 1\r\n 1304 OP   = CLS\r\n      IF (IPVT .EQ. IGPX) CALL MESAGE (-8,0,MA1H)\r\n      GO TO 1320\r\nC\r\nC     HERE WHEN LAST PIVOT POINT HAS BEEN READ AND ALLOCATED\r\nC\r\n 1310 LAST = .TRUE.\r\n      OP   = CLSREW\r\nC\r\nC     CLOSE GPECTX. OPEN XBLOCK.\r\nC\r\n 1320 CALL CLOSE (GPECTX,OP)\r\n      NWDS = BUF1 - ILIST\r\n      IF (NWDS .LE. 0) GO TO 1402\r\n      CALL GOPEN (XBLOCK,Z(BUF1),RDREW)\r\n      OLDCOD = 0\r\nC\r\nC     PASS THE LIST OF ELEMENT MATRIX POINTERS. EACH ENTRY POINTS TO THE\r\nC     PIVOT POINT AND ELEMENT DICTIONARY IN CORE AND TO THE POSITION IN\r\nC     THE XBLOCK FILE CONTAINING THE ASSOCIATED ELEMENT MATRIX COLUMNS.\r\nC     WHEN PROCESSING OF ALL ENTRIES IS COMPLETE, COLUMNS OF XGG NOW IN\r\nC     CORE ARE COMPLETE.\r\nC\r\n      DO 1398 INDX = ITAB,NTAB\r\n      IF (Z(INDX) .EQ. 0) GO TO 1398\r\n      JJ = ITAB - RSHIFT(Z(INDX),IHALF)\r\n      IF (JJ .LT. ILIST) GO TO 1398\r\n 1330 CONTINUE\r\n      CALL FILPOS (XBLOCK,Z(JJ))\r\n      IPVT  = RSHIFT(Z(JJ+1),KONS)\r\n      IF (IPVT .GT. NPVT) GO TO 9019\r\n      IELEM = IPVT + ANDF(Z(JJ+1),MAXII)\r\n      ICOL  = Z(IPVT+2)\r\n      IROW  = Z(IPVT+3)\r\n      IMAT  = Z(IPVT+4)\r\nC\r\nC     DECODE CODE WORD FOR ELEMENT. FORM LIST OF ROW INDICES DESCRIBING\r\nC     TERMS IN THE ELEMENT MATRIX COLUMN. THEN CONVERT THESE INDICES TO\r\nC     RELATIVE ADDRESSES IN XGG COLUMN IN CORE (USE LIST OF ROW INDICES\r\nC     FOR XGG COLUMN TO DO THIS).\r\nC\r\n      IF (Z(IELEM+4) .EQ. OLDCOD) GO TO 1341\r\n      ICODE = Z(IELEM+4)\r\n      CALL DECODE (ICODE,SCALAS,NSCA)\r\n      OLDCOD = Z(IELEM+4)\r\n 1341 L1 = IELEM + MDICT + 1\r\n      L2 = IELEM + Z(IELEM)\r\n      K  = IROWP\r\n      DO 1344 L = L1,L2\r\nC\r\nC     IGNORE DUPLICATE IDS AS IN SOME CELAS2 ELEMENTS ETC.\r\nC\r\n      IF (L.GT.L1 .AND. Z(L).EQ.Z(L-1)) GO TO 1344\r\n      DO 1342 I = 1,NSCA\r\n      Z(K) = Z(L) + SCALAS(I)\r\n      K = K + 1\r\n 1342 CONTINUE\r\n 1344 CONTINUE\r\n      NROWP = K - 1\r\n      IF (NROWP.GE. IGPX) GO TO 9012\r\n      NROW = IMAT - 1\r\n      ID   = Z(IROWP)\r\n      CALL BISLOC (*9020,ID,Z(IROW),1,(IMAT-IROW),IROWX)\r\n      IROWX = IROW + IROWX - 1\r\n      DO 1348 K = IROWP,NROWP\r\n      DO 1346 I = IROWX,NROW\r\n      IF (Z(K) .EQ. Z(I)) GO TO 1347\r\n 1346 CONTINUE\r\n      GO TO 9013\r\n 1347 Z(K)  = (I-IROW)*PREC\r\n      IROWX = I + 1\r\n 1348 CONTINUE\r\n      NBRROW = NROWP - IROWP + 1\r\nC\r\nC     PREPARE TO READ EACH COLUMN OF ELEMENT MATRIX\r\nC\r\n      NCOL  = IROW - 1\r\n      ICOLX = ICOL\r\n      NBRWDS= Z(IELEM+3)*PREC\r\n      IF (Z(IELEM+2) .EQ.  2) NBRWDS = PREC\r\n      IF (NBRWDS .GT. MAXNPR) GO TO 9014\r\n      DO 1396 I = 1,NSCA\r\nC\r\nC     READ A COLUMN OF THE ELEMENT MATRIX AND DETERMINE ADDRESS\r\nC     OF FIRST WORD OF ASSOCIATED COLUMN OF XGG IN CORE.\r\nC\r\n      CALL READ (*9145,*9146,XBLOCK,Z,NBRWDS,0,NREAD)\r\n      COL = Z(IPVT) + SCALAS(I)\r\n      DO 1362 K = ICOLX,NCOL\r\n      IF (COL .EQ. Z(K)) GO TO 1364\r\n 1362 CONTINUE\r\n      GO TO 9015\r\n 1364 IMATN = IMAT + (IMAT-IROW)*(K-ICOL)*PREC\r\n      ICOLX = K + 1\r\n      IF (Z(IELEM+2) .NE. 2) GO TO 1365\r\nC\r\nC     ELEMENT MATRIX IS DIAGONAL\r\nC\r\n      NBRROW = 1\r\n      Z(IROWP) = Z(IROWP+I-1)\r\nC\r\nC     IF DAMPING OR WEIGHT MASS FACTOR (OR BOTH) PRESENT, MULTIPLY\r\nC     EACH TERM IN THE ELEMENT MATRIX COLUMN BY THE FACTOR.\r\nC\r\n 1365 GO TO KFACT, (1370,13651,13652,13653)\r\n13651 FACTOR = Y(IELEM+5)\r\n      GO TO 13654\r\n13652 FACTOR = WTMASS\r\n      GO TO 13654\r\n13653 FACTOR = Y(IELEM+5)*WTMASS\r\n13654 CONTINUE\r\n      IF (PREC .EQ. 2) GO TO 1367\r\n      DO 1366 K = 1,NBRWDS\r\nC\r\nC     FOR PIEZOELECTRIC COUPLED PROBLEMS, ANY STRUCTURAL DAMPING COEFF.\r\nC     SHOULD MULTIPLY ONLY THE UNCOUPLED STRUCTURAL TERMS. SO, SKIP\r\nC     EVERY 4TH TERM IN A COLUMN AND SKIP EVERY 4TH COLUMN\r\nC\r\n      IF (PIEZ .AND. (I.EQ.NSCA .OR. MOD(K,4).EQ.0)) Y(K) = 0.\r\n      Y(K) = FACTOR*Y(K)\r\n 1366 CONTINUE\r\n      GO TO 1371\r\n 1367 M = NBRWDS/2\r\n      DO 1368 K = 1,M\r\n      IF (PIEZ .AND. (I.EQ.NSCA.OR.MOD(K,4).EQ.0)) ZD(K) = 0.D0\r\n      ZD(K) = FACTOR*ZD(K)\r\n 1368 CONTINUE\r\n      GO TO 1374\r\nC\r\nC     NOW ADD TERMS OF THE ELEMENT MATRIX INTO XGG\r\nC\r\n 1370 IF (PREC .EQ. 2) GO TO 1374\r\nC\r\nC     DO ARITHMETIC IN SINGLE PRECISION\r\nC\r\n 1371 DO 1372 K = 1,NBRROW\r\n      J = IMATN + Z(IROWP+K-1)\r\nCWKBI 1/95\r\n      YJ   = Y(J)\r\n      Y(J) = Y(J) + Y(K)\r\nCWKBNB 1/95  FOLLOWING CODE WILL CAUSE A TRUE ZERO WHEN SUBTRACTING SAME NO.\r\n      IF ( Y(K) .EQ. 0.0 ) GO TO 13720\r\n      YJ   = YJ / Y(K)\r\n      IF ( YJ .LE. -.999999999998 .AND. YJ .GE. -1.000000000001 )\r\n     &     Y(J) = 0.0\r\n13720 CONTINUE\r\nCWKBNE 1/95\r\n 1372 CONTINUE\r\n      GO TO 1396\r\nC\r\nC     DO ARITHMETIC IN DOUBLE PRECISION\r\nC\r\n 1374 DO 1376 K = 1,NBRROW\r\n      J = IMATN + Z(IROWP+K-1)\r\n      IS(1) = Z(J  )\r\n      IS(2) = Z(J+1)\r\nCWKBI 1/95      \r\n      XDD   = XD(1)\r\n      XD(1) = XD(1) + ZD(K)\r\nCWKBNB 1/95 FOLLOWING CODE WILL CAUSE A TRUE ZERO WHEN SUBTRACTING SAME NO.\r\nC  WITHOUT THIS CODE, A SYMMETRIC MATRIX MIGHT HAVE UNSYMMETRIC TERMS ON      \r\nC  THE HP AND ULTRIX (SEE DEMO D01011A, MATRIX KAA, COLUMN 84 ROW 70)\r\n      IF ( ZD(K) .EQ. 0.0D0 ) GO TO 1375\r\n      XDD   = XDD / ZD(K)\r\n      IF ( XDD .LE. -.999999999998 .AND. XDD .GE. -1.000000000001 )\r\n     &     XD(1) = 0.0D0\r\n1375  CONTINUE\r\nCWKBNE 1/95\r\n      Z(J  )= IS(1)\r\n      Z(J+1)= IS(2)\r\nC\r\n 1376 CONTINUE\r\n      GO TO 1396\r\nC\r\nC     END OF DO LOOPS\r\nC\r\n 1396 CONTINUE\r\n      JJ = Z(JJ+2)\r\n      IF (JJ .GE. ILIST) GO TO 1330\r\n 1398 CONTINUE\r\nC\r\nC     ALL COLUMNS OF XGG IN CORE ARE NOW COMPLETE - SEND THEM\r\nC     OUT TO THE XGG DATA BLOCK VIA THE BLDPK ROUTINE.\r\nC\r\n      CALL CLOSE (XBLOCK,CLSREW)\r\n 1402 CALL GOPEN (XGG,Z(BUF1),OPENW)\r\n      IPVT = IGPX\r\nC\r\nC     PREPARE TO PACK ALL COLUMNS FOR CURRENT PIVOT\r\nC\r\n 1410 COL1 = Z(IPVT)\r\n      COLN = COL1 + Z(IPVT+1) - 1\r\n      ICOL = Z(IPVT+2)\r\n      IROW = Z(IPVT+3)\r\n      IMAT = Z(IPVT+4)\r\n      NCOL = IROW - 1\r\n      NROW = IMAT - 1\r\n      JNEXT  = ICOL\r\n      NXTCOL = Z(JNEXT)\r\n      II = IMAT\r\n      DO 1430 COL = COL1,COLN\r\nC\r\nC     INITIATE PACKING BY CALLING BLDPK. TEST FOR NULL COL.\r\nC\r\n      CALL BLDPK (PREC,PREC,XGG,0,0)\r\n      IF (ICOL .EQ. 0) GO TO 1428\r\n      IF (COL .LT. NXTCOL) GO TO 1428\r\n      JNEXT  = JNEXT + 1\r\n      NXTCOL = Z(JNEXT)\r\n      IF (JNEXT .GT. NCOL) NXTCOL = COLN + 1\r\n      IF (PREC .EQ. 2) GO TO 1426\r\nC\r\nC     NON-NULL COLUMN - SEND THE TERMS OUT VIA ZBLPKI\r\nC\r\nC     SINGLE PRECISION\r\nC\r\n      DO 1424 K = IROW,NROW\r\n      IQ   = Z(K)\r\n      Q(1) = Z(II)\r\n      CALL ZBLPKI\r\n      II = II + 1\r\n 1424 CONTINUE\r\n      GO TO 1428\r\nC\r\nC     DOUBLE PRECISION\r\nC\r\n 1426 DO 1427 K = IROW,NROW\r\n      IQ   = Z(K)\r\n      Q(1) = Z(II  )\r\n      Q(2) = Z(II+1)\r\n      CALL ZBLPKI\r\n      II = II + 2\r\n 1427 CONTINUE\r\nC\r\nC     TERMINATE COLUMN BY CALLING BLDPKN\r\nC\r\n 1428 CALL BLDPKN (XGG,0,MCB)\r\n 1430 CONTINUE\r\nC\r\nC     LOGIC TEST TO MAKE SURE POINTERS ENDED CORRECTLY\r\nC\r\n      NBRWDS = 5\r\n      IF (ICOL .EQ. 0) GO TO 1440\r\n      NBRWDS = (IMAT-IROW)*(IROW-ICOL)*PREC\r\n      IF (II-IMAT.NE.NBRWDS .AND. Z(IPVT+1).NE.1) GO TO 9017\r\nC\r\nC     TEST FOR LAST PIVOT\r\nC\r\n 1440 IF (IPVT .GE. NPVT) GO TO 1450\r\n      IPVT = IMAT + NBRWDS\r\n      GO TO 1410\r\nC\r\nC     CLOSE XGG\r\nC\r\n 1450 CALL CLOSE (XGG,OP)\r\nC\r\nC     TEST FOR LAST PASS\r\nC\r\n      IF (LAST) GO TO 1490\r\n      FIRST = .FALSE.\r\n      OPENR = RD\r\n      OPENW = WRT\r\n      GO TO 1210\r\nC\r\nC     XGG NOW COMPLETE - WRITE ITS TRAILER.\r\nC\r\n 1490 MCB(3) = MCB(2)\r\n      IF (MCB(2) .NE. Z(NPVT)+Z(NPVT+1)-1) GO TO 9018\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 9001 MSG(1) = 1016\r\n      GO TO 9098\r\n 9002 MSG(1) = 1035\r\n      GO TO 9098\r\n 9004 MSG(1) = 1052\r\n      GO TO 9098\r\n 9006 MSG(1) = 1220\r\n      GO TO 9098\r\n 9007 MSG(1) = 1231\r\n      GO TO 9098\r\n 9008 MSG(1) = 1232\r\n      GO TO 9098\r\n 9010 MSG(1) = 1056\r\n      GO TO 9098\r\n 9011 MSG(1) = 1202\r\n      GO TO 9098\r\n 9012 MSG(1) = 1344\r\n      GO TO 9098\r\n 9013 MSG(1) = 1346\r\n      GO TO 9098\r\n 9014 MSG(1) = 1352\r\n      GO TO 9098\r\n 9015 MSG(1) = 1362\r\n      GO TO 9098\r\n 9016 MSG(1) = 1238\r\n      GO TO 9098\r\n 9017 MSG(1) = 1432\r\n      GO TO 9098\r\n 9018 MSG(1) = 1490\r\n      GO TO 9098\r\n 9019 MSG(1) = 1332\r\n      GO TO 9098\r\n 9020 MSG(1) = 1345\r\n      GO TO 9098\r\n 9022 MSG(1) = 1235\r\n      GO TO 9098\r\n 9023 MSG(1) = 1264\r\n      GO TO 9098\r\n 9024 MSG(1) = 1110\r\n      GO TO 9098\r\n 9098 WRITE  (OUTPUT,9099) SFM,MSG(1)\r\n 9099 FORMAT (A25,' 3102, LOGIC ERROR EMA - ',I4)\r\n 9097 CONTINUE\r\n      WRITE  (OUTPUT,9091)\r\n 9091 FORMAT (/,' *** CONTENTS OF /MA1XX/')\r\n      WRITE  (OUTPUT,9092) IHQ\r\n 9092 FORMAT (5X,10I10)\r\n      WRITE  (OUTPUT,9093)\r\n 9093 FORMAT (/,' FIRST 250 WORDS OF OPEN CORE')\r\n      J = 250\r\n      WRITE (OUTPUT,9092) (Z(I),I=1,J)\r\n      CALL MESAGE (-61,0,0)\r\n 9100 CALL FNAME (MSG(3),MSG(1))\r\n      WRITE  (OUTPUT,9101) SFM,(MSG(I),I=1,4)\r\n 9101 FORMAT (A25,' 3001, ATTEMPT TO OPEN DATA SET ',2A4,', FILE (',I4,\r\n     1    ') IN SUBROUTINE EMA (',I4,') WHICH WAS NOT DEFINED IN FIST.')\r\n      GO TO 9097\r\n 9110 CALL FNAME (MSG(3),MSG(1))\r\n      WRITE  (OUTPUT,9111) SFM,(MSG(I),I=1,4)\r\n 9111 FORMAT (A25,' 3002, EOF ENCOUNTERED WHILE READING DATA SET ',2A4,\r\n     1       ', (FILE',I5,') IN SUBROUTINE EMA (',I4,1H))\r\n      GO TO 9097\r\n 9120 CALL FNAME (MSG(3),MSG(1))\r\n      WRITE  (OUTPUT,9121) SFM,(MSG(I),I=1,4)\r\n 9121 FORMAT (A25,' 3003, ATTEMPT TO READ PAST END OF LOGICAL RECORD IN'\r\n     1,     ' DATA SET ',2A4,' (FILE',I5,') IN SUBROUTINE EMA (',I4,1H))\r\n      GO TO 9097\r\n 9131 MSG(3) = GPECT\r\n      MSG(4) = 1002\r\n      GO TO 9100\r\n 9132 MSG(3) = XBLOCK\r\n      MSG(4) = 1001\r\n      GO TO 9100\r\n 9134 MSG(3) = SCROUT\r\n      MSG(4) = 1005\r\n      GO TO 9100\r\n 9135 MSG(3) = XEMD\r\n      MSG(4) = 1014\r\n      GO TO 9120\r\n 9136 MSG(3) = XEMD\r\n      MSG(4) = 1017\r\n      GO TO 9110\r\n 9137 MSG(3) = SCRIN\r\n      MSG(4) = 1032\r\n      GO TO 9120\r\n 9138 MSG(3) = SCRIN\r\n      MSG(4) = 1035\r\n      GO TO 9110\r\n 9139 MSG(3) = SCRIN\r\n      MSG(4) = 1036\r\n      GO TO 9110\r\n 9140 MSG(3) = SCRIN\r\n      MSG(4) = 1036\r\n      GO TO 9120\r\n 9141 MSG(3) = SCRIN\r\n      MSG(4) = 1040\r\n      GO TO 9110\r\n 9142 MSG(3) = SCRIN\r\n      MSG(4) = 1040\r\n      GO TO 9120\r\n 9144 MSG(3) = GPECTX\r\n      MSG(4) = 1221\r\n      GO TO 9110\r\n 9145 MSG(3) = XBLOCK\r\n      MSG(4) = 1360\r\n      GO TO 9110\r\n 9146 MSG(3) = XBLOCK\r\n      MSG(4) = 1360\r\n      GO TO 9120\r\n      END\r\n"
  },
  {
    "path": "mis/ema1.f",
    "content": "      SUBROUTINE EMA1\r\nC\r\nC     EMA1 ASSEMBLES A STRUCTURAL MATRIX FOR THE MODEL FROM EACH OF\r\nC     THE INDIVIDUAL ELEMENT STRUCTURAL MATRICES.\r\nC\r\nC     EMA1   GPECT,KDICT,KELEM,SIL,ECT / KGG / C,N,NOK4/ C,N,WTMASS\r\nC\r\nC     NOK4 .NE. -1 MEANS MULTIPLY BY DAMPING FACTOR (GE)\r\nC     ABS(WTMASS-1.0) .GT. 1.E-6 MEANS MULTIPLY BY WTMASS\r\nC\r\nC     EMA1 USES 2 SCRATCH FILES\r\nC\r\n      LOGICAL          LAST\r\n      INTEGER          SYSTEM  ,SYSBUF ,ZI(1)  ,RD     ,RDREW  ,WRT   ,\r\n     1                 WRTREW  ,CLSREW ,CLS    ,GPECT  ,SIL    ,ECT   ,\r\n     2                 SUBNAM(2)       ,SCR1   ,SCR2   ,ELEM   ,DOFG  ,\r\n     3                 MCBKGG(7)       ,TYPIN1 ,TYPOU1 ,TYPIN2 ,PREC  ,\r\n     4                 TRLSIL(7)       ,EVEN   ,BUF(10),BUF1   ,BUF2  ,\r\n     5                 BUF3    ,OPENW  ,OPENR  ,SILNBR ,OPCLS  ,MCB(7),\r\n     6                 TT(3)   ,OLDCOD ,SCALAS(32)     ,DOF           ,\r\n     7                 BLOCK(20)\r\n      REAL             ZS(1)   ,XS(4)\r\n      DOUBLE PRECISION ZD      ,XD     ,D\r\n      CHARACTER        UFM*23  ,UWM*25 ,UIM*29 ,SFM*25\r\n      COMMON /XMSSG /  UFM     ,UWM    ,UIM    ,SFM\r\n      COMMON /SYSTEM/  SYSTEM(80)\r\n      COMMON /NAMES /  RD      ,RDREW  ,WRT    ,WRTREW ,CLSREW ,CLS\r\n      COMMON /BLANK /  NOK4    ,WTMASS\r\n      COMMON /PACKX /  TYPIN1  ,TYPOU1 ,II1    ,JJ1    ,INCR1\r\n      COMMON /UNPAKX/  TYPIN2  ,II2    ,JJ2    ,INCR2\r\n      COMMON /ZBLPKX/  XD(2)   ,IX\r\n      COMMON /GPTA1 /  NELEM   ,JLAST  ,INCRE  ,ELEM(1)\r\n      COMMON /MA1XX /  D(18)\r\n      COMMON /ZZZZZZ/  ZD(1)\r\n      EQUIVALENCE      (SYSTEM(1),SYSBUF), (SYSTEM(2),NOUT),\r\n     1                 (TRLSIL(2),NBRSIL), (TRLSIL(3),LUSET),\r\n     2                 (SYSTEM(22),MACH ), (ZD(1),ZS(1),ZI(1)),\r\n     3                 (XD(1),XS(1))\r\nC\r\nC     DEFINITION OF INPUT DATA BLOCKS\r\nC\r\n      DATA    GPECT ,  KDICT, KELEM, SIL, ECT  /\r\n     1        101   ,  102  , 103  , 104, 105  /\r\nC\r\nC     DEFINITION OF OUTPUT DATA BLOCKS\r\nC\r\n      DATA    KGG   /  201  /\r\nC\r\nC     DEFINITION OF SCRATCH FILES\r\nC\r\n      DATA    SCR1  ,  SCR2 / 301, 302 /\r\nC\r\nC     MISCELANEOUS DATA\r\nC\r\n      DATA    SUBNAM/  4HEMA1,4H    /, NHEMA1/ 4HEMA1/,\r\n     1        LARGE /  2147483647   /, LPCB  / 8     /\r\nC\r\nC     DATA    TERMS /  1, 0, 9, 0, 0, 18 /,\r\nC    1        SCL   /  1, 1, 0           /\r\nC\r\nC     STATEMENT FUNCTION\r\nC\r\n      EVEN(N) = 2*((N+1)/2)\r\nC\r\nC     PERFORM GENERALIZATION\r\nC\r\n      LCORE = KORSZ(ZD)\r\n      TRLSIL(1) = SIL\r\n      CALL RDTRL (TRLSIL)\r\n      WRITE  (NOUT,999) (TRLSIL(I),I=1,7)\r\n  999 FORMAT (1H ,7I10)\r\n      ISIL0 = LCORE - NBRSIL - 1\r\n      LCORE = ISIL0\r\n      BUF1  = LCORE - SYSBUF\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF(1)= KELEM\r\n      CALL RDTRL (BUF)\r\n      WRITE (NOUT,999) (BUF(I),I=1,7)\r\n      PREC  = BUF(2)\r\n      CALL MAKMCB (MCBKGG,KGG,LUSET,6,PREC)\r\n      OPENW = WRTREW\r\n      OPENR = RDREW\r\n      LAST  = .FALSE.\r\n      SILNBR= 0\r\n      OPCLS = CLS\r\n      MAXDCT= 0\r\n      MAXVEC= 0\r\n      OLDCOD= 0\r\nC\r\nC     SET SWITCH FOR MULTIPLICATION BY DAMPING AND/OR WEIGHT MASS FACTOR\r\nC\r\n      EPS = ABS(WTMASS-1.0)\r\n      IF (EPS.LT.1.E-6 .AND. NOK4.LT.0) ASSIGN 244 TO KFACT\r\n      IF (EPS.LT.1.E-6 .AND. NOK4.GE.0) ASSIGN 245 TO KFACT\r\n      IF (EPS.GE.1.E-6 .AND. NOK4.LT.0) ASSIGN 246 TO KFACT\r\n      IF (EPS.GE.1.E-6 .AND. NOK4.GE.0) ASSIGN 247 TO KFACT\r\nC\r\nC     READ THE CONTENTS OF THE SIL DATA BLOCK INTO CORE\r\nC\r\n      CALL GOPEN (SIL,ZI(BUF1),RDREW)\r\n      CALL FREAD (SIL,ZI(ISIL0+1),NBRSIL,1)\r\n      CALL CLOSE (SIL,CLSREW)\r\n      ZI(ISIL0+NBRSIL+1) = LUSET + 1\r\n      CALL CDCBUG (NHEMA1,100,ZI(ISIL0+1),NBRSIL+1)\r\nC\r\nC     READ THE KDICT AND ECT DATA BLOCKS. WRITE A MODIFIED KDICT ON SCR2\r\nC     WHICH INCLUDES THE INTERNAL GRID NUMBERS FOR EACH ELEMENT.\r\nC     THE FORMAT FOR EACH RECORD ON SCR2 IS...\r\nC     3-WORD RECORD HEADER\r\nC        1  ELEMENT TYPE\r\nC        2  NBR OF WORDS PER ENTRY( N )\r\nC        3  NBR OF GRID POINTS PER ENTRY\r\nC     N-WORD ELEMENT ENTRY\r\nC        1  ELEMENT ID( INTERNAL NUMBER )\r\nC        2  FORM OF COLUMN PARTITIONS( 1=RECT, 2=DIAG )\r\nC        3  NUMBER OF TERMS PER COLUMN PARTITION\r\nC        4  SCALAR CODE DEFINING DOF PER GRID POINT\r\nC        5  GE\r\nC        6  INTERNAL INDEX OF 1ST GRID POINT\r\nC        7  GINO ADDRESS OF 1ST COLUMN PARTITION\r\nC       ...\r\nC       N-1 INTERNAL INDEX OF LAST GRID POINT\r\nC        N  GINO ADDRESS OF LAST COLUMN PARTITION\r\nC\r\nC     NOTE...\r\nC     GRID POINTS ARE IN SORT BY INTERNAL INDEX. ZERO INDICATES\r\nC     MISSING GRID POINT. ANY ZERO-S ARE LAST IN LIST.\r\nC\r\n      CALL GOPEN (KDICT,ZI(BUF1),RDREW )\r\n      CALL GOPEN (ECT  ,ZI(BUF2),RDREW )\r\n      CALL GOPEN (SCR2 ,ZI(BUF3),WRTREW)\r\n  111 CALL READ  (*124,*111,KDICT,BUF(4),3,0,J)\r\n      CALL CDCBUG (NHEMA1,111,BUF(4),3)\r\n  112 CALL ECTLOC (*900,ECT,BUF,I)\r\n      CALL CDCBUG (NHEMA1,112,BUF,3)\r\n      IF (ELEM(I+2) .EQ. BUF(4)) GO TO 114\r\n      CALL SKPREC (ECT,1)\r\n      GO TO 112\r\n  114 BUF(5) = BUF(5) + BUF(6)\r\n      CALL WRITE (SCR2,BUF(4),3,0)\r\n      IGRID  = ELEM(I+12)\r\n      NBRGRD = ELEM(I+ 9)\r\n      NWDECT = ELEM(I+ 5)\r\n      IDICT  = NWDECT + 1\r\n      NWDDCT = BUF(5) - BUF(6)\r\n      NGRID  = IGRID + NBRGRD - 1\r\n      MAXDCT = MAX0(MAXDCT,BUF(5))\r\n      IF (NBRGRD .NE. BUF(6)) GO TO 901\r\n  115 CALL READ (*122,*122,ECT,ZI,NWDECT,0,J)\r\n      CALL CDCBUG (NHEMA1,115,ZI,NWDECT)\r\n      CALL FREAD (KDICT,ZI(IDICT),NWDDCT,0)\r\n      CALL CDCBUG (NHEMA1,116,ZI(IDICT),NWDDCT)\r\n      DO 116 J = IGRID,NGRID\r\n      IF (ZI(J) .EQ. 0) ZI(J) = LARGE\r\n  116 CONTINUE\r\n      CALL SORT (0,0,1,1,ZI(IGRID),NBRGRD)\r\n      DO 118 J = IGRID,NGRID\r\n      IF (ZI(J) .EQ. LARGE) ZI(J) = 0\r\n  118 CONTINUE\r\n      CALL CDCBUG (NHEMA1,118,ZI(IGRID),NBRGRD)\r\n      CALL WRITE  (SCR2,ZI(IDICT),NWDDCT-NBRGRD,0)\r\n      ILOC = IDICT + NWDDCT - NBRGRD\r\n      DO 120 J = 1,NBRGRD\r\n      CALL WRITE (SCR2,ZI(IGRID+J-1),1,0)\r\n      CALL WRITE (SCR2,ZI(ILOC +J-1),1,0)\r\n  120 CONTINUE\r\n      MAXVEC = MAX0(MAXVEC,ZI(IDICT+2)*PREC)\r\n      GO TO 115\r\n  122 CALL SKPREC (KDICT,1)\r\n      CALL WRITE (SCR2,0,0,1)\r\n      GO TO 111\r\n  124 CALL CLOSE (KDICT,CLSREW)\r\n      CALL CLOSE (  ECT,CLSREW)\r\n      CALL CLOSE ( SCR2,CLSREW)\r\n      TT(1) = MAXDCT\r\n      TT(2) = MAXVEC\r\n      CALL CDCBUG (NHEMA1,125,TT,2)\r\nC\r\nC     READ GPECT AND PREPARE THE SCR1 DATA BLOCK. FOR EACH GRID/SCALAR\r\nC     POINT, TWO RECORDS ARE WRITTEN. THE 1ST CONTAINS 6 WORDS...\r\nC       1  INTERNAL INDEX OF GRID/SCALAR POINT\r\nC       2  DOF OF POINT (1=SCALAR, 6=GRID)\r\nC       3  DOF OF EACH CONNECTED POINT (0 IF NO CONNECTED POINTS)\r\nC       4  NUMBER OF CONNECTED POINTS\r\nC       5  INDEX OF  1ST CONNECTED POINT\r\nC       6  INDEX OF LAST CONNECTED POINT\r\nC\r\nC     THE 2ND RECORD IS A PACKED COLUMN WHICH CONTAINS A NON-ZERO TERM\r\nC     FOR EACH CONNECTED POINT.\r\nC\r\n      TYPIN1 = 1\r\n      TYPOU1 = 1\r\n      INCR1  = 1\r\n      INCR2  = 1\r\n      CALL MAKMCB (MCB,SCR1,NBRSIL,1,1)\r\n      ILOOK0 = NBRSIL + 1\r\n      IF (ILOOK0+LUSET+1 .GE. BUF3) CALL MESAGE (-8,0,SUBNAM)\r\n      DO 131 I = 1,NBRSIL\r\n      J = ZI(ISIL0+I)\r\n      ZI(ILOOK0+J) = I\r\n  131 CONTINUE\r\n      CALL CDCBUG (NHEMA1,131,ZI(ILOOK0+1),LUSET)\r\n      CALL GOPEN (GPECT,ZI(BUF1),RDREW )\r\n      CALL GOPEN (SCR1 ,ZI(BUF2),WRTREW)\r\n      DO 148 II = 1,NBRSIL\r\n      NBRCON = BUF(4)\r\n      MINNBR = BUF(5)\r\n      MAXNBR = BUF(6)\r\n      IF (II .NE. 1) GO TO 130\r\n      NBRCON = NBRSIL\r\n      MINNBR = 1\r\n      MAXNBR = NBRSIL\r\n  130 CALL FREAD (GPECT,BUF,2,0)\r\n      BUF(1) = II\r\n      BUF(3) = 0\r\n      BUF(4) = 0\r\n      BUF(5) = LARGE\r\n      BUF(6) = 0\r\n      IF (NBRCON .EQ. 0) GO TO 134\r\n      DO 132 I = MINNBR,MAXNBR\r\n      ZI(I) = 0\r\n  132 CONTINUE\r\n  134 CALL READ (*138,*138,GPECT,TT,3,0,I)\r\n      CALL CDCBUG (NHEMA1,134,TT,3)\r\n      NBRGRD = IABS(TT(1)) - 2\r\n      DO 136 I = 1,NBRGRD\r\n      CALL FREAD (GPECT,SILNBR,1,0)\r\n      J = ZI(ILOOK0+SILNBR )\r\n      IF (ZS(J) .NE. 0) GO TO 136\r\n      BUF(3) = MAX0(BUF(3),ZI(ISIL0+J+1)-ZI(ISIL0+J))\r\n      BUF(4) = BUF(4) + 1\r\n      BUF(5) = MIN0(BUF(5),J)\r\n      BUF(6) = MAX0(BUF(6),J)\r\n      ZS(J)  = 1.0\r\n  136 CONTINUE\r\n      GO TO 134\r\n  138 CALL WRITE (SCR1,BUF,6,1)\r\n      CALL CDCBUG (NHEMA1,138,BUF,6)\r\n      IF (BUF(4) .EQ. 0) GO TO 142\r\nC\r\nC     PACK COLUMN FOR POINT WITH CONNECTED POINTS\r\nC\r\n      II1 = BUF(5)\r\n      JJ1 = BUF(6)\r\n      CALL CDCBUG (NHEMA1,139,ZI(II1),JJ1-II1+1)\r\n      CALL PACK (ZS(II1),SCR1,MCB)\r\n      GO TO 148\r\nC\r\nC     HERE IF PIVOT HAS NO CONNECTED POINTS\r\nC\r\n  142 CONTINUE\r\n      MCB(2) = MCB(2) + 1\r\nC\r\nC     CLOSE FILES\r\nC\r\n  148 CONTINUE\r\n      CALL CLOSE (GPECT,CLSREW)\r\n      CALL CLOSE ( SCR1,CLSREW)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ALLOCATE STORAGE FOR MAXIMUM COLUMN OF ELEMENT MATRIX\r\nC     AND MAXIMUM ENTRY FROM MODIFIED KDICT( SCR2 )\r\nC\r\n      IDICT = MAXVEC + 1\r\n      IGRID = IDICT + 5\r\n      IPVT  = IDICT + MAXDCT\r\n      LCORE = EVEN( BUF2 ) - 1\r\nC\r\nC\r\nC     BEGIN A PASS BY OPENING SCR1 AND SETTING ALLOCATION POINTERS\r\nC\r\nC\r\n  150 CALL GOPEN (SCR1,ZI(BUF1),OPENR)\r\n      II = IPVT\r\n      JJ = LCORE\r\nC\r\nC     BEGIN A PIVOT ALLOCATION BY READING PIVOT CONTROL BLOCK FROM SCR1\r\nC\r\n  160 CONTINUE\r\n      TT(1) = II\r\n      TT(2) = JJ\r\n      CALL CDCBUG (NHEMA1,160,TT,2)\r\n      IF (II+LPCB .GE. JJ) GO TO 202\r\n      CALL FREAD (SCR1,ZI(II),6,1)\r\n      SILNBR = ZI(II)\r\n      ZI(II+6) = 0\r\n      ZI(II+7) = 0\r\n      IF (ZI(II+3) .EQ. 0) GO TO 195\r\nC\r\nC     ATTEMPT TO ALLOCATE SPACE FOR CONNECTED GRID VECTOR\r\nC     AND FOR MATRICES CONNECTED TO THE PIVOT\r\nC\r\n      NWDCGV = ZI(II+5) - ZI(II+4) + 1\r\n      NWDMAT = PREC*ZI(II+1)*ZI(II+2)*ZI(II+3)\r\n      IF (II+LPCB .GE. JJ-NWDCGV-NWDMAT) GO TO 200\r\n      IMAT = JJ - NWDMAT\r\n      ZI(II+6) = IMAT - EVEN(NWDCGV)\r\n      ZI(II+7) = IMAT\r\n      JJ   = ZI(II+6)\r\n      NMAT = IMAT + NWDMAT - 1\r\n      DO 165 I = IMAT,NMAT\r\n      ZS(I) = 0\r\n  165 CONTINUE\r\n      ICGVEC = JJ\r\n      NCGVEC = ICGVEC + NWDCGV - 1\r\nC\r\nC     UNPACK CONNECTED GRID VECTOR. CONVERT NON-ZERO POSITIONS TO\r\nC     RELATIVE POINTERS (IN PRECISION OF PROBLEM) TO THE CORRESPONDING\r\nC     1ST TERM OF THE ELEMENT MATRIX\r\nC\r\n      II2 = ZI(II+4)\r\n      JJ2 = ZI(II+5)\r\n      NTRMEC = ZI(II+2)\r\n      KK = 1\r\n      TYPIN2 = 1\r\n      CALL UNPACK (*902,SCR1,ZS(ICGVEC))\r\n      DO 174 I = ICGVEC,NCGVEC\r\n      IF (ZI(I) .EQ. 0) GO TO 174\r\n      ZI(I) = KK\r\n      KK = KK + NTRMEC\r\n  174 CONTINUE\r\n      CALL CDCBUG (NHEMA1,174,ZI(II),8)\r\n      CALL CDCBUG (NHEMA1,175,ZI(ICGVEC),NWDCGV)\r\n      IF (KK-1 .NE. ZI(II+2)*ZI(II+3)) GO TO 903\r\nC\r\nC     TEST FOR LAST PIVOT. IF NOT, TRY TO ALLOCATE ANOTHER PIVOT\r\nC\r\n  195 IF (SILNBR .EQ. NBRSIL) GO TO 210\r\n      II = II + LPCB\r\n      GO TO 160\r\nC\r\nC     HERE IF CURRENT PIVOT CANNOT BE ALLOCATED -- MAKE SURE AT LEAST\r\nC     ONE PIVOT HAS BEEN ALLOCATED.\r\nC\r\n  200 CALL BCKREC (SCR1)\r\n  202 IF (II .EQ. IPVT) CALL MESAGE (-8,0,SUBNAM)\r\n      NPVT = II - LPCB\r\n      GO TO 220\r\nC\r\nC     HERE WHEN LAST PIVOT HAS BEEN READ AND ALLOCATED\r\nC\r\n  210 LAST = .TRUE.\r\n      OPCLS= CLSREW\r\n      NPVT = II\r\nC\r\nC\r\nC     CLOSE SCR1, OPEN SCR2 AND KELEM. PREPARE TO ASSEMBLE\r\nC     STRUCTURAL MATRIX FOR THOSE PIVOTS CURRENTLY ALLOCATED.\r\nC\r\nC\r\n  220 CONTINUE\r\n      CALL CLOSE (SCR1,OPCLS)\r\n      CALL GOPEN (SCR2, ZI(BUF1),RDREW)\r\n      CALL GOPEN (KELEM,ZI(BUF2),RDREW)\r\nC\r\nC     READ HEADER FOR CURRENT ELEMENT TYPE FROM SCR2\r\nC\r\n  230 CONTINUE\r\n      CALL READ (*260,*230,SCR2,TT,3,0,I)\r\n      CALL CDCBUG (NHEMA1,230,TT,3)\r\n      NWDDCT = TT(2)\r\n      NGRID  = IGRID + 2*(TT(3)-1)\r\nC\r\nC     READ AN ELEMENT DEFINITION. IF ANY GRID POINT IS IN CURRENT\r\nC     ALLOCATION, PREPARE TO PROCESS IT.\r\nC\r\n  240 CALL READ (*230,*230,SCR2,ZI(IDICT),NWDDCT,0,I)\r\n      CALL CDCBUG (NHEMA1,240,ZI(IDICT),NWDDCT)\r\n      DO 242 I = IGRID,NGRID,2\r\n      IF (ZI(I).GE.ZI(IPVT) .AND. ZI(I).LE.ZI(NPVT))\r\n     1    GO TO KFACT, (244,245,246,247)\r\n  242 CONTINUE\r\n      GO TO 240\r\n  244 FACTOR = 1.0\r\n      GO TO 248\r\n  245 FACTOR = ZS(IDICT+4)\r\n      GO TO 248\r\n  246 FACTOR = WTMASS\r\n      GO TO 248\r\n  247 FACTOR = WTMASS*ZS(IDICT+4)\r\nC\r\nC     DECODE RELATIVE COLUMN NUMBERS\r\nC\r\n  248 IF (OLDCOD .EQ. ZI(IDICT+3)) GO TO 250\r\n      ICODE = ZI(IDICT+3)\r\n      CALL DECODE (ICODE,SCALAS,NSCA)\r\n      OLDCOD = ZI(IDICT+3)\r\nC\r\nC     READ EACH COLUMN OF THE ELEMENT MATRIX.\r\nC     ADD IT TO THE STRUCTURAL MATRIX.\r\nC\r\n  250 NWDCOL = PREC*ZI(IDICT+2)\r\n      IF (ZI(IDICT+1) .EQ. 2) NWDCOL = PREC\r\n  252 II = IPVT + (ZI(I)-ZI(IPVT))*LPCB\r\n      TT(1) = I\r\n      TT(2) = ZI(I)\r\n      TT(3) = NSCA\r\n      CALL CDCBUG (NHEMA1,252,TT,3)\r\n      CALL FILPOS (KELEM,ZI(I+1))\r\n      ICGVEC = ZI(II+6)\r\n      IMAT   = ZI(II+7)\r\n      DO 254 J = 1,NSCA\r\n      CALL FREAD (KELEM,ZI,NWDCOL,0)\r\n      CALL CDCBUG(NHEMA1,254,ZI,NWDCOL)\r\n      IF (PREC .EQ. 1) CALL EMA1S (J,NSCA,SCALAS,ZI(II),ZI(IDICT),\r\n     1                             ZI(ICGVEC),ZI(IMAT),ZI,FACTOR)\r\n      IF (PREC .EQ. 2) CALL EMA1D (J,NSCA,SCALAS,ZI(II),ZI(IDICT),\r\n     1                             ZI(ICGVEC),ZI(IMAT),ZI,FACTOR)\r\n  254 CONTINUE\r\n  255 IF (I .EQ. NGRID) GO TO 240\r\n      I = I + 2\r\n      IF (ZI(I).GE.ZI(IPVT) .AND. ZI(I).LE.ZI(NPVT)) GO TO 252\r\n      GO TO 255\r\nC\r\nC     ALL COLUMNS OF STRUCTURAL MATRIX NOW ALLOCATED ARE COMPLETE.\r\nC     OPEN KGG AND PACK COLUMNS.\r\nC\r\n  260 CALL CLOSE (SCR2,CLSREW)\r\n      CALL CLOSE (KELEM,CLSREW)\r\n      CALL GOPEN (KGG,ZI(BUF1),OPENW)\r\n      DO 269 II = IPVT,NPVT,LPCB\r\n      DOF    = ZI(II+1)\r\n      DOFG   = ZI(II+2)\r\n      NBRCON = ZI(II+3)\r\n      ICGVEC = ZI(II+6)\r\n      IMAT   = ZI(II+7)\r\n      II1    = ZI(II+4)\r\n      II2    = ZI(II+5)\r\n      KK     = IMAT\r\n      CALL CDCBUG (NHEMA1,260,ZI(IMAT),((II2-II1+1)*(DOF*DOFG)))\r\nC\r\nC     PACK COLUMNS WITH BLDPK\r\nC\r\n      DO 268 JJ = 1,DOF\r\n      CALL BLDPK (PREC,PREC,KGG,BLOCK,1)\r\n      IF (NBRCON .EQ. 0) GO TO 266\r\n      I = ICGVEC\r\n      DO 264 J = II1,II2\r\n      IF (ZI(I) .EQ. 0) GO TO 263\r\n      K  = ZI(ISIL0+J)\r\n      N  = K + MIN0(DOFG,ZI(ISIL0+J+1)-ZI(ISIL0+J)) - 1\r\n      LL = KK\r\n      DO 262 SILNBR = K,N\r\n      CALL BLDPKI (ZS(LL),SILNBR,KGG,BLOCK)\r\n      LL = LL + PREC\r\n  262 CONTINUE\r\n      KK = KK + DOFG*PREC\r\n  263 I  = I + 1\r\n  264 CONTINUE\r\n  266 CALL BLDPKN (KGG,BLOCK,MCBKGG)\r\n  268 CONTINUE\r\n  269 CONTINUE\r\n      CALL CLOSE (KGG,OPCLS)\r\nC\r\nC     TEST FOR COMPLETION OF LAST PASS\r\nC\r\n      IF (LAST) GO TO 310\r\n      OPENR = RD\r\n      OPENW = WRT\r\n      GO TO 150\r\nC\r\nC     KGG NOW COMPLETE -- WRITE ITS TRAILER.\r\nC\r\n  310 CONTINUE\r\n      CALL WRTTRL (MCBKGG)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  900 KERR = 112\r\n      GO TO 990\r\n  901 KERR = 114\r\n      GO TO 990\r\n  902 KERR = 172\r\n      GO TO 990\r\n  903 KERR = 174\r\n      GO TO 990\r\nC\r\nC     PROCESS LOGIC ERROR\r\nC\r\n  990 WRITE  (NOUT,991) SFM,KERR\r\n  991 FORMAT (A25,' 3102, EMA1 LOGIC ERROR',I4)\r\n      IF (MACH.EQ.2 .OR. MACH.EQ.5 .OR. MACH.EQ.21) KERR = -KERR\r\n      CALL GPERR (SUBNAM,KERR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ema1d.f",
    "content": "      SUBROUTINE EMA1D( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F )\r\nC     SUBROUTINE EMA1S( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F )\r\nC*******\r\nC EMA1S ADDS A COLUMN VECTOR IN REAL SINGLE PRECISION\r\nC EMA1D ADDS A COLUMN VECTOR IN REAL DOUBLE PRECISION\r\nC\r\nC     J        INDEX IN SCALAS TO CURRENT RELATIVE COLUMN NBR\r\nC     NSCA     NBR OF ROWS( TERMS ) PER GRID POINT IN COLUMN VECTOR\r\nC     SCALAS   ARRAY OF RELATIVE ROW/COLUMN NUMBERS\r\nC     PIVOT    6-WORD ARRAY AS FOLLOWS...\r\nC          (1) INTERNAL INDEX OF PIVOT\r\nC          (2) DOF OF PIVOT\r\nC          (3) DOF OF EACH POINT CONNECTED TO PIVOT\r\nC          (4) NBR OF CONNECTED POINTS\r\nC          (5) INTERNAL INDEX OF  1ST CONNECTED POINT\r\nC          (6) INTERNAL INDEX OF LAST CONNECTED POINT\r\nC     DICT     DICTIONARY ENTRY FOR ELEMENT AS FOLLOWS...\r\nC          (1) ELEMENT ID\r\nC          (2) FORM( 1=RECT, 2=DIAG )\r\nC          (3) NBR OF TERMS PER COLUMN\r\nC          (4) COMPONENT CODE( DECODED IN SCALAS ARRAY )\r\nC          (5) GE\r\nC          (6) INTERNAL INDEX OF 1ST POINT\r\nC          (7) GINO ADDR OF 1ST COLUMN PARTITION\r\nC         ....\r\nC     CGV      CONNECTED GRID POINT VECTOR\r\nC     KGG      ADDR OF KGG COLUMNS FOR PIVOT\r\nC     CP       ADDR OF COLUMN PARTITION\r\nC     F        FACTOR( RSP ) TO BE APPLIED TO EACH TERM IN CP\r\nC\r\nC******\r\n      INTEGER SCALAS(1) ,PIVOT(6) ,DICT(7)  ,CGV(1)\r\nC\r\nC     REAL             KGG(1), CP(1)\r\n      DOUBLE PRECISION KGG(1), CP(1)\r\nC\r\nC INITIALIZE\r\nC\r\n      ICOL0 = SCALAS(J)*PIVOT(3)*PIVOT(4)\r\n      II0   = PIVOT(5) - 1\r\n      L     = 1\r\n      IF( DICT(2) .NE. 2 ) GO TO 20\r\nC\r\nC PROCESS DIAGONAL PARTITION\r\nC\r\n      II = PIVOT(1)\r\n      IMAT = ICOL0 + CGV(II-II0)+ SCALAS(J)\r\n      KGG(IMAT) = KGG(IMAT) + F*CP(1)\r\n      RETURN\r\nC\r\nC PROCESS RECTANGULAR PARTITION\r\nC\r\n   20 CONTINUE\r\n      NGRID = 4 + 2*DICT(3)/NSCA\r\n      DO 28 I=6,NGRID,2\r\n      K = DICT(I)\r\n      IF( K.EQ. 0 ) RETURN\r\n      IMAT = ICOL0 + CGV(K-II0)\r\n      DO 26 K=1,NSCA\r\n      M = SCALAS(K)\r\n      KGG(IMAT+M) = KGG(IMAT+M) + F*CP(L)\r\n      L = L + 1\r\n   26 CONTINUE\r\n   28 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ema1s.f",
    "content": "      SUBROUTINE EMA1S( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F )\r\nC     SUBROUTINE EMA1D( J, NSCA, SCALAS, PIVOT, DICT, CGV, KGG, CP, F )\r\nC*******\r\nC EMA1S ADDS A COLUMN VECTOR IN REAL SINGLE PRECISION\r\nC EMA1D ADDS A COLUMN VECTOR IN REAL DOUBLE PRECISION\r\nC\r\nC     J        INDEX IN SCALAS TO CURRENT RELATIVE COLUMN NBR\r\nC     NSCA     NBR OF ROWS( TERMS ) PER GRID POINT IN COLUMN VECTOR\r\nC     SCALAS   ARRAY OF RELATIVE ROW/COLUMN NUMBERS\r\nC     PIVOT    6-WORD ARRAY AS FOLLOWS...\r\nC          (1) INTERNAL INDEX OF PIVOT\r\nC          (2) DOF OF PIVOT\r\nC          (3) DOF OF EACH POINT CONNECTED TO PIVOT\r\nC          (4) NBR OF CONNECTED POINTS\r\nC          (5) INTERNAL INDEX OF  1ST CONNECTED POINT\r\nC          (6) INTERNAL INDEX OF LAST CONNECTED POINT\r\nC     DICT     DICTIONARY ENTRY FOR ELEMENT AS FOLLOWS...\r\nC          (1) ELEMENT ID\r\nC          (2) FORM( 1=RECT, 2=DIAG )\r\nC          (3) NBR OF TERMS PER COLUMN\r\nC          (4) COMPONENT CODE( DECODED IN SCALAS ARRAY )\r\nC          (5) GE\r\nC          (6) INTERNAL INDEX OF 1ST POINT\r\nC          (7) GINO ADDR OF 1ST COLUMN PARTITION\r\nC         ....\r\nC     CGV      CONNECTED GRID POINT VECTOR\r\nC     KGG      ADDR OF KGG COLUMNS FOR PIVOT\r\nC     CP       ADDR OF COLUMN PARTITION\r\nC     F        FACTOR( RSP ) TO BE APPLIED TO EACH TERM IN CP\r\nC\r\nC******\r\n      INTEGER SCALAS(1) ,PIVOT(6) ,DICT(7)  ,CGV(1)\r\nC\r\n      REAL             KGG(1), CP(1)\r\nC     DOUBLE PRECISION KGG(1), CP(1)\r\nC\r\nC INITIALIZE\r\nC\r\n      ICOL0 = SCALAS(J)*PIVOT(3)*PIVOT(4)\r\n      II0   = PIVOT(5) - 1\r\n      L     = 1\r\n      IF( DICT(2) .NE. 2 ) GO TO 20\r\nC\r\nC PROCESS DIAGONAL PARTITION\r\nC\r\n      II = PIVOT(1)\r\n      IMAT = ICOL0 + CGV(II-II0)+ SCALAS(J)\r\n      KGG(IMAT) = KGG(IMAT) + F*CP(1)\r\n      RETURN\r\nC\r\nC PROCESS RECTANGULAR PARTITION\r\nC\r\n   20 CONTINUE\r\n      NGRID = 4 + 2*DICT(3)/NSCA\r\n      DO 28 I=6,NGRID,2\r\n      K = DICT(I)\r\n      IF( K.EQ. 0 ) RETURN\r\n      IMAT = ICOL0 + CGV(K-II0)\r\n      DO 26 K=1,NSCA\r\n      M = SCALAS(K)\r\n      KGG(IMAT+M) = KGG(IMAT+M) + F*CP(L)\r\n      L = L + 1\r\n   26 CONTINUE\r\n   28 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emadtq.f",
    "content": "      SUBROUTINE EMADTQ(NARG,MASS)\r\nC  THE EMG MASS DOUBLE PRECISION ROUTINE FOR TRI S, QUAD S, TWIST +\r\nC     SHEAR ELEMENTS\r\nC\r\nC  THIS SUBROUTINE CALCULATES THE MASS MATRIX FOR THE ELEMENTS LISTED\r\nC   BELOW\r\nC\r\nC   NOTE THAT THE OUTPUT MASS MATRIX IS NOT ORDERED BY INCREASING SIL\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ******************************************************************\r\nC     E C P T    L I S T I N G S\r\nC     **************************\r\nC         MTWIST              MQDMEM                        MTRMEM\r\nC         MSHEAR    MQUAD1    MQUAD2    MTRIA1    MTRBSC    MTRIA2\r\nC **********************************************************************\r\nC ECPT( 1)ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID\r\nC ECPT( 2)GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A\r\nC ECPT( 3)GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B\r\nC ECPT( 4)GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C\r\nC ECPT( 5)GR.PT. D  GR.PT. D  GR.PT. D  THETA     THETA     THETA\r\nC ECPT( 6)MAT ID    THETA     THETA     MAT ID 1  MAT ID 1  MAT ID\r\nC ECPT( 7)T         MAT ID 1  MAT ID    T1        I         T\r\nC ECPT( 8)N S MASS  T1        T         MAT ID 2  MAT ID 2  NS MASS\r\nC ECPT( 9)CSID 1    MAT ID 2  N S MASS  I         T2        CSID 1\r\nC ECPT(10)X1        I         CSID 1    MAT ID 3  N S MASS  X1\r\nC ECPT(11)Y1        MAT ID 3  X1        T2        Z1        Y1\r\nC ECPT(12)Z1        T2        Y1        N S MASS  Z2        Z1\r\nC ECPT(13)CSID 2    N S MASS  Z1        Z1        CSID 1    CSID 2\r\nC ECPT(14)X2        Z1        CSID 2    Z2        X1        X2\r\nC ECPT(15)Y2        Z2        X2        CSID 1    Y1        Y2\r\nC ECPT(16)Z2        CSID 1    Y2        X1        Z1        Z2\r\nC ECPT(17)CSID 3    X1        Z2        Y1        CSID 2    CSID 3\r\nC ECPT(18)X3        Y1        CSID 3    Z1        X2        X3\r\nC ECPT(19)Y3        Z1        X3        CSID 2    Y2        Y3\r\nC ECPT(20)Z3        CSID 2    Y3        X2        Z2        Z3\r\nC ECPT(21)CSID 4    X2        Z3        Y2        CSID 3    TEMP\r\nC ECPT(22)X4        Y2        CSID 4    Z2        X3\r\nC ECPT(23)Y4        Z2        X4        CSID 3    Y3\r\nC ECPT(24)Z4        CSID 3    Y4        X3        Z3\r\nC ECPT(25)TEMP      X3        Z4        Y3        TEMP\r\nC ECPT(26)          Y3        TEMP      Z3\r\nC ECPT(27)          Z3                  TEMP\r\nC ECPT(28)          CSID 4\r\nC ECPT(29)          X4\r\nC ECPT(30)          Y4\r\nC ECPT(31)          Z4\r\nC ECPT(32)          TEMP\r\nC **********************************************************************\r\nC\r\n      DOUBLE PRECISION MASS(100),V1(3),V2(3),V1XV2(3),\r\n     X      FMU, T, AREA , TERM, RHOD\r\n      DIMENSION NECPT (7)\r\n      INTEGER HEAT\r\nC\r\n      COMMON /HMTOUT/ CP\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/ RHO\r\n      COMMON/SYSTEM/ KSYSTM(55),HEAT\r\nC\r\n      COMMON / EMGEST/ ECPT(100)\r\nC\r\n      EQUIVALENCE ( NECPT(1) , ECPT(1) )\r\n      EQUIVALENCE (IFLAG , ECPT(8) )\r\n      DATA PI23/2.0943952/\r\nC\r\nC     THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM.\r\nC\r\nC   MASS MATRIX = (T1,T1,T1,T2,T2,T2,T3,T3,T3,IF REQ-D T4,T4,T4)  )\r\nC\r\nC                   *******************\r\nC                   NTYPE = 1  -MQDMEM-\r\nC                   NTYPE = 1  -MQUAD2-\r\nC                   NTYPE = 2  -MQUAD1-\r\nC                   NTYPE = 3  -MTRBSC-\r\nC                   NTYPE = 3  -MTRPLT-\r\nC                   NTYPE = 4  -MTRMEM-\r\nC                   NTYPE = 4  -MTRIA2-\r\nC                   NTYPE = 5  -MTRIA1-\r\nC                   NTYPE = 6  -MSHEAR-\r\nC                   NTYPE = 6  -MTWIST-\r\nC                   NTYPE = 7  -MQDPLT-\r\nC                   *******************\r\nC\r\n      NTYPE = NARG\r\n      NDOF = 3\r\nC\r\nC            -MQDMEM-      -MTRPLT-MTRMEM-      -MTWIST-\r\nC            -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT-\r\n      GO TO(10,20,30,40,50,60,70),NTYPE\r\nC\r\n   10 NCSID = 10\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(9)\r\n      GO TO 80\r\nC\r\n   20 NCSID = 16\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(13)\r\n      GO TO 80\r\nC\r\n   30 NCSID =  13\r\n      NGRIDS = 3\r\n      MATID = NECPT( 6)\r\n      T     =  0.0E0\r\n      FMU   =  ECPT(10)\r\n      GO TO 80\r\nC\r\n   40 NCSID = 9\r\n      NGRIDS = 3\r\n      MATID = NECPT(6)\r\n      T     = ECPT(7)\r\n      FMU   = ECPT(8)\r\n      GO TO 80\r\nC\r\n   50 NCSID = 15\r\n      NGRIDS = 3\r\n      MATID = NECPT( 6)\r\n      T     =  ECPT( 7)\r\n      FMU   =  ECPT(12)\r\n      GO TO 80\r\n   60 NCSID = 9\r\n      NGRIDS = 4\r\n      MATID = NECPT(6)\r\n      T     =  ECPT(7)\r\n      FMU   =  ECPT(8)\r\n      GO TO 80\r\n   70 NCSID = 14\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = 0.0E0\r\n      FMU   = ECPT(11)\r\nC\r\nC  30 COMPUTE PIVOT TRIANGLE AREA\r\nC\r\nC     FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE\r\nC     BASE CSID\r\nC\r\n80    DO 250 NPVT = 1,NGRIDS\r\n      NPT1 = 0\r\n      NPT2 = 4\r\n      NPT3 = 8\r\n      IF (NGRIDS .EQ. 3 )  GO TO 140\r\n      ICHEK = 1\r\nC     SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL\r\n      GO TO (110,140,130,120), NPVT\r\n110   NPT3 = 12\r\n      GO TO 140\r\n120   NPT2  =  12\r\n      GO TO 140\r\n130   NPT1 = 12\r\nC\r\n  140 DO 150 I=1,3\r\n      ISUB1 = NCSID + NPT1 + I\r\n      ISUB2 = NCSID + NPT2 + I\r\n      ISUB3 = NCSID + NPT3 + I\r\n      V1(I) = ECPT(ISUB3) - ECPT(ISUB1)\r\n  150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2)\r\nC\r\nC     COMPUTE AREA OF QUAD OR TRI USING V1 AND V2\r\n      AREA= 0.D0\r\nC\r\n  160 V1XV2(1) = V1(2) * V2(3)  -  V1(3) * V2(2)\r\n      V1XV2(2) = V1(3) * V2(1)  -  V1(1) * V2(3)\r\n      V1XV2(3) = V1(1) * V2(2)  -  V1(2) * V2(1)\r\nC\r\n      AREA = AREA + DSQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.D0\r\nC\r\n      IF (NGRIDS .EQ. 3)  GO TO 190\r\n      IF( ICHEK  ) 170,190,170\r\nC\r\nC     COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600.\r\nC\r\n  170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175\r\n      ISUB1 = NCSID + NPT1 + 1\r\n      ISUB2 = NCSID + NPT2 + 1\r\n      ISUB3 = NCSID + NPT3 + 1\r\n      T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) )\r\n  175 NPT1 = NCSID\r\n      NPT2 = NCSID + 4\r\n      NPT3 = NCSID + 8\r\n      NPT4 = NCSID +12\r\n      DO 180 I=1,3\r\n      NPT1 = NPT1 + 1\r\n      NPT2 = NPT2 + 1\r\n      NPT3 = NPT3 + 1\r\n      NPT4 = NPT4 + 1\r\n      V1(I) = ECPT(NPT1) - ECPT(NPT3)\r\n  180 V2(I) = ECPT(NPT2) - ECPT(NPT4)\r\n      ICHEK = 0\r\nC\r\n      GO TO 160\r\nC     ******************************************************************\r\nC     FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX.\r\nC\r\n190   CONTINUE\r\n      IF( T ) 210,220,210\r\nC     RHO NOT NEEDED IF T = 0\r\nC\r\n  210 INFLAG = 4\r\n      IF (HEAT .EQ. 1)  GO TO 240\r\n      CALL MAT( ECPT(1) )\r\n      RHOD = RHO\r\nC\r\nC\r\n  220 TERM =  (FMU + RHOD*T)* AREA/3.D0\r\n      IF (NGRIDS .EQ. 4)  TERM = TERM/2.\r\n      I1  = (NPVT-1)*3  + 1\r\n      I2  =  I1 + 2\r\n      DO 230  I = I1,I2\r\n230   MASS(I) = TERM\r\n      GO TO 250\r\nC\r\nC      HEAT FORMULATION\r\nC\r\n240   CALL HMAT(ECPT)\r\n      CPD = CP\r\n      MASS(NPVT) = (CPD*T)*AREA/3.D0\r\n      IF (NGRIDS .EQ. 4)  MASS(NPVT) = MASS(NPVT) / 2.\r\nC\r\n250   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emastq.f",
    "content": "      SUBROUTINE EMASTQ (NARG,MASS)\r\nC\r\nC  THIS SUBROUTINE CALCULATES THE MASS MATRIX FOR THE ELEMENTS LISTED\r\nC   BELOW\r\nC\r\nC   NOTE THAT MATRIX IS NOT ORDERED BY INCREASING SIL VALUE\r\nC   NOTE THAT THE OUTPUT MASS MATRIX IS NOT ORDERED BY INCREASING SIL\r\nC   SINGLE PRECISION VERSION\r\nC     ******************************************************************\r\nC     E C P T    L I S T I N G S\r\nC     **************************\r\nC         MTWIST              MQDMEM                        MTRMEM\r\nC         MSHEAR    MQUAD1    MQUAD2    MTRIA1    MTRBSC    MTRIA2\r\nC **********************************************************************\r\nC ECPT( 1)ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID\r\nC ECPT( 2)GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A\r\nC ECPT( 3)GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B\r\nC ECPT( 4)GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C\r\nC ECPT( 5)GR.PT. D  GR.PT. D  GR.PT. D  THETA     THETA     THETA\r\nC ECPT( 6)MAT ID    THETA     THETA     MAT ID 1  MAT ID 1  MAT ID\r\nC ECPT( 7)T         MAT ID 1  MAT ID    T1        I         T\r\nC ECPT( 8)N S MASS  T1        T         MAT ID 2  MAT ID 2  NS MASS\r\nC ECPT( 9)CSID 1    MAT ID 2  N S MASS  I         T2        CSID 1\r\nC ECPT(10)X1        I         CSID 1    MAT ID 3  N S MASS  X1\r\nC ECPT(11)Y1        MAT ID 3  X1        T2        Z1        Y1\r\nC ECPT(12)Z1        T2        Y1        N S MASS  Z2        Z1\r\nC ECPT(13)CSID 2    N S MASS  Z1        Z1        CSID 1    CSID 2\r\nC ECPT(14)X2        Z1        CSID 2    Z2        X1        X2\r\nC ECPT(15)Y2        Z2        X2        CSID 1    Y1        Y2\r\nC ECPT(16)Z2        CSID 1    Y2        X1        Z1        Z2\r\nC ECPT(17)CSID 3    X1        Z2        Y1        CSID 2    CSID 3\r\nC ECPT(18)X3        Y1        CSID 3    Z1        X2        X3\r\nC ECPT(19)Y3        Z1        X3        CSID 2    Y2        Y3\r\nC ECPT(20)Z3        CSID 2    Y3        X2        Z2        Z3\r\nC ECPT(21)CSID 4    X2        Z3        Y2        CSID 3    TEMP\r\nC ECPT(22)X4        Y2        CSID 4    Z2        X3\r\nC ECPT(23)Y4        Z2        X4        CSID 3    Y3\r\nC ECPT(24)Z4        CSID 3    Y4        X3        Z3\r\nC ECPT(25)TEMP      X3        Z4        Y3        TEMP\r\nC ECPT(26)          Y3        TEMP      Z3\r\nC ECPT(27)          Z3                  TEMP\r\nC ECPT(28)          CSID 4\r\nC ECPT(29)          X4\r\nC ECPT(30)          Y4\r\nC ECPT(31)          Z4\r\nC ECPT(32)          TEMP\r\nC **********************************************************************\r\nC\r\n      REAL            MASS(100),V1(3),V2(3),V1XV2(3)\r\n      DIMENSION       NECPT (7)\r\n      INTEGER         HEAT\r\n      COMMON /HMTOUT/ CP\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/ RHO\r\n      COMMON /SYSTEM/ KSYSTM(55),HEAT\r\n      COMMON /EMGEST/ ECPT(100)\r\nC\r\n      COMMON /EMGPRM/ DUM(16),IMASS,IDAMP,IPREC,NOGO\r\nC\r\nC\r\n      EQUIVALENCE     (NECPT(1), ECPT(1))\r\n      EQUIVALENCE     (IFLAG   , ECPT(8))\r\n      DATA   PI23   / 2.0943952/\r\nC\r\nC     THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM.\r\nC\r\nC   MASS MATRIX = (T1,T1,T1,T2,T2,T2,T3,T3,T3,IF REQ-D T4,T4,T4)  )\r\nC\r\nC                   *******************\r\nC                   NTYPE = 1  -MQDMEM-\r\nC                   NTYPE = 1  -MQUAD2-\r\nC                   NTYPE = 2  -MQUAD1-\r\nC                   NTYPE = 3  -MTRBSC-\r\nC                   NTYPE = 3  -MTRPLT-\r\nC                   NTYPE = 4  -MTRMEM-\r\nC                   NTYPE = 4  -MTRIA2-\r\nC                   NTYPE = 5  -MTRIA1-\r\nC                   NTYPE = 6  -MSHEAR-\r\nC                   NTYPE = 6  -MTWIST-\r\nC                   NTYPE = 7  -MQDPLT-\r\nC                   *******************\r\nC\r\n      NTYPE = NARG\r\n      NDOF = 3\r\nC\r\nC            -MQDMEM-      -MTRPLT-MTRMEM-      -MTWIST-\r\nC            -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT-\r\n      GO TO(10,20,30,40,50,60,70),NTYPE\r\nC\r\n   10 NCSID = 10\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(9)\r\n      GO TO 80\r\nC\r\n   20 NCSID = 16\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(13)\r\n      GO TO 80\r\nC\r\n   30 NCSID =  13\r\n      NGRIDS = 3\r\n      MATID = NECPT( 6)\r\n      T     =  0.0E0\r\n      FMU   =  ECPT(10)\r\n      GO TO 80\r\nC\r\n   40 NCSID = 9\r\n      NGRIDS = 3\r\n      MATID = NECPT(6)\r\n      T     = ECPT(7)\r\n      FMU   = ECPT(8)\r\n      GO TO 80\r\nC\r\n   50 NCSID = 15\r\n      NGRIDS = 3\r\n      MATID = NECPT( 6)\r\n      T     =  ECPT( 7)\r\n      FMU   =  ECPT(12)\r\n      GO TO 80\r\n   60 NCSID = 9\r\n      NGRIDS = 4\r\n      MATID = NECPT(6)\r\n      T     =  ECPT(7)\r\n      FMU   =  ECPT(8)\r\n      GO TO 80\r\n   70 NCSID = 14\r\n      NGRIDS = 4\r\n      MATID = NECPT(7)\r\n      T     = 0.0E0\r\n      FMU   = ECPT(11)\r\nC\r\nC  30 COMPUTE PIVOT TRIANGLE AREA\r\nC\r\nC     FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE\r\nC     BASE CSID\r\nC\r\n80    DO 250 NPVT = 1,NGRIDS\r\n      NPT1 = 0\r\n      NPT2 = 4\r\n      NPT3 = 8\r\n      IF (NGRIDS .EQ. 3 )  GO TO 140\r\n      ICHEK = 1\r\nC     SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL\r\n      GO TO (110,140,130,120), NPVT\r\n110   NPT3 = 12\r\n      GO TO 140\r\n120   NPT2  =  12\r\n      GO TO 140\r\n130   NPT1 = 12\r\nC\r\n  140 DO 150 I=1,3\r\n      ISUB1 = NCSID + NPT1 + I\r\n      ISUB2 = NCSID + NPT2 + I\r\n      ISUB3 = NCSID + NPT3 + I\r\n      V1(I) = ECPT(ISUB3) - ECPT(ISUB1)\r\n  150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2)\r\nC\r\nC     COMPUTE AREA OF QUAD OR TRI USING V1 AND V2\r\n      AREA = 0.0E0\r\nC\r\n  160 V1XV2(1) = V1(2) * V2(3)  -  V1(3) * V2(2)\r\n      V1XV2(2) = V1(3) * V2(1)  -  V1(1) * V2(3)\r\n      V1XV2(3) = V1(1) * V2(2)  -  V1(2) * V2(1)\r\nC\r\n      AREA = AREA + SQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.0E0\r\nC\r\n      IF (NGRIDS .EQ. 3)  GO TO 190\r\n      IF( ICHEK  ) 170,190,170\r\nC\r\nC     COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600.\r\nC\r\n  170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175\r\n      ISUB1 = NCSID + NPT1 + 1\r\n      ISUB2 = NCSID + NPT2 + 1\r\n      ISUB3 = NCSID + NPT3 + 1\r\n      T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) )\r\n  175 NPT1 = NCSID\r\n      NPT2 = NCSID + 4\r\n      NPT3 = NCSID + 8\r\n      NPT4 = NCSID +12\r\n      DO 180 I=1,3\r\n      NPT1 = NPT1 + 1\r\n      NPT2 = NPT2 + 1\r\n      NPT3 = NPT3 + 1\r\n      NPT4 = NPT4 + 1\r\n      V1(I) = ECPT(NPT1) - ECPT(NPT3)\r\n  180 V2(I) = ECPT(NPT2) - ECPT(NPT4)\r\n      ICHEK = 0\r\nC\r\n      GO TO 160\r\nC     ******************************************************************\r\nC     FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX.\r\nC\r\n190   CONTINUE\r\n      IF( T ) 210,220,210\r\nC     RHO NOT NEEDED IF T = 0\r\nC\r\n  210 INFLAG = 4\r\n      IF (HEAT .EQ. 1)  GO TO 240\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC\r\n  220 TERM = ( FMU + RHO * T ) * AREA / 3.0E0\r\n      IF (NGRIDS .EQ. 4)  TERM = TERM/2.\r\n      I1  = (NPVT-1)*3  + 1\r\n      I2  =  I1 + 2\r\n      DO 230  I = I1,I2\r\n230   MASS(I) = TERM\r\n      GO TO 250\r\nC\r\nC      HEAT FORMULATION\r\nC\r\n240   CALL HMAT(ECPT)\r\n      MASS (NPVT)  =   (CP*T) * AREA/3.\r\n      IF (NGRIDS .EQ. 4)  MASS(NPVT) = MASS(NPVT) / 2.\r\nC\r\n250   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emfld.f",
    "content": "      SUBROUTINE EMFLD\r\nC\r\nC                                            SEE T01191A     ===========\r\nC     COMPUTES TOTAL MAGNETIC FIELD STRENGTH AND INDUCTION FOR\r\nC     EACH ELEMENT IN BASIC COORDINATES BY ADDING HM AND HC\r\nC\r\nC     EMFLD    HOEF1,HEST,CASECC,HCFLD,MPT,DIT,REMFLD,GEOM1,CSTM,HCCEN/\r\nC              HOEH1/V,N,HLUSET $\r\nC\r\n      INTEGER         HEST,HOEH1,HOEF1,CASECC,ESTFLD,HLUSET,DIT,\r\n     1                FILE,BUF1,BUF2,BUF3,BUF4,BUF5,SYSBUF,OTPE,TYPOUT,\r\n     2                ELTYPE,SUBCAS,ELID,OLDCAS,OLDEID,STRSPT,\r\n     3                REMFL,BUF6,IDUM(2),GEOM1,CSTM,HCCEN,HCOUNT\r\n      DIMENSION       COORD(4),ICOORD(4),TA(9),TEMP(3),MCB(7),HMG(3),\r\n     1                HM(3),HC(3),IBUF(150),RBUF(150),NAM(2),IZ(1),ZN(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / HLUSET\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OTPE\r\n      COMMON /UNPAKX/ TYPOUT,II,NN,INCUR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (RBUF(1),IBUF(1)),(COORD(1),ICOORD(1)),\r\n     1                (Z(1),IZ(1))\r\n      DATA    HOEF1 , HEST,CASECC,MPT,DIT/ 101,102,103, 105,106/\r\n      DATA    REMFL , GEOM1,CSTM,HCCEN   / 107,108,109, 110    /\r\n      DATA    ESTFLD, HOEH1/301,201 /\r\n      DATA    NAM   / 4HEMFL,4HD    /, ZN/ 4HHOEH,4H1          /\r\n      DATA    HEX1  , HEX2, HEX3    /  4HHEX1,4HHEX2,4HHEX3    /\r\nC\r\nC     CHECK TO SEE IF HOEF1 EXISTS. IF NOT, THEN NO MAG. FIELD REQUESTS\r\nC\r\n      MCB(1) = HOEF1\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 600\r\n      MCB(1) = HCCEN\r\n      CALL RDTRL (MCB)\r\n      NN = MCB(3)\r\n      IF (MCB(1) .GT. 0) GO TO 20\r\n      NN = 0\r\n      MCB(1) = REMFL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .GT. 0) GO TO 20\r\n      WRITE  (OTPE,10)  UWM\r\n   10 FORMAT (A25,', DATA BLOCKS HCFLD AND REMFL ARE PURGED IN EM ',\r\n     1       'PROBLEM. ALL RESULTS ARE ZERO')\r\n      GO TO 600\r\nC\r\n   20 MCB(1) = HEST\r\n      CALL RDTRL (MCB)\r\n      NELX = 3*MCB(2)\r\nC\r\n      TYPOUT = 1\r\n      II     = 1\r\n      INCUR  = 1\r\nC\r\nC     CREATE ESTFLD WHICH LOOKS LIKE HEST BUT CONTAINS ONLY TYPE, ID,\r\nC     NUMBER OF SILS,SILS,3 X 3 MATERAIL MATRIX,AND 3 X 3 TRANSFORMATION\r\nC     MATRIX FROM LOCAL TO BASIC,BFIELD,AND COORDS OF STRESS POINT FOR\r\nC     NON-RECTANGULAR BFIELD\r\nC\r\n      CALL ESTMAG (HEST,ESTFLD,MPT,DIT,GEOM1,IANY,KCOUNT)\r\nC\r\nC     KCOUNT SHOULD BE NUMBER OF TERMS IN ROW OF HCCEN\r\nC\r\n      IF (NN .EQ. 0) NN = KCOUNT\r\n      IF (NN .NE. KCOUNT) GO TO 500\r\n      NROWS = NN\r\nC\r\nC     NOW FETCH HC AT EACH POINT FROM HCFLD\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE- SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      BUF6  = BUF5 - SYSBUF\r\n      LCORE = BUF6 - 1\r\n      IF (LCORE .LE. 0) GO TO 550\r\nC\r\n      NCOUNT = 0\r\n      OLDCAS = 0\r\n      HCOUNT = 0\r\nC\r\nC     COPY HEADER FROM HOEF1 TO HOEH1\r\nC\r\n      FILE = HOEH1\r\n      CALL OPEN (*520,HOEH1,Z(BUF5),1)\r\n      FILE = HOEF1\r\n      CALL OPEN (*520,HOEF1,Z(BUF4),0)\r\n      CALL READ (*530,*30,HOEF1,Z,LCORE,0,IWORDS)\r\n      GO TO 550\r\n   30 Z(1) = ZN(1)\r\n      I    = 2\r\n      Z(I) = ZN(2)\r\n      CALL WRITE (HOEH1,Z,IWORDS,1)\r\nC\r\nC     OPEN CSTM FOR NON-BASIC COORDINATE SYSTEM\r\nC\r\n      NCSTM = 0\r\n      IF (IANY .EQ. 0) GO TO 50\r\n      CALL GOPEN (CSTM,Z(BUF1),0)\r\n      CALL READ  (*530,*40,CSTM,Z,LCORE,0,NCSTM)\r\n      GO TO 550\r\n   40 CALL CLOSE  (CSTM,1)\r\n      CALL PRETRS (Z(1),NCSTM)\r\nC\r\n   50 NNCR = NCSTM + NROWS\r\n      NALL = NNCR  + NELX\r\n      CALL GOPEN (CASECC,Z(BUF1),0)\r\n      CALL GOPEN (HCCEN,Z(BUF2),0)\r\n      CALL GOPEN (ESTFLD,Z(BUF3),0)\r\n      CALL GOPEN (REMFL,Z(BUF6),0)\r\nC\r\nC     READ ID RECORD FROM HOEF1. COPY TO HOEH1, EXCEPT CHANGE NUMBER OF\r\nC     WORDS FROM +9 TO -9 AS AN INDICATOR FOR TITLES IN OFP. (+9 IS FOR\r\nC     HEAT TRANSFER) ALSO PICK UP SUBCASE NUMBER AND ELEMENT TYPE. IF\r\nC     SAME SUBCASE AS PREVIUUS ONE, USE SAME HCFLD VECTOR. IF NOT,\r\nC     CREATE A NEW ONE\r\nC\r\n   60 CALL READ (*410,*540,HOEF1,IBUF,146,1,IWORDS)\r\n      IBUF(10) = -9\r\n      CALL WRITE (HOEH1,IBUF,146,1)\r\n      ELTYPE = IBUF(3)\r\n      SUBCAS = IBUF(4)\r\n      OLDEID = 0\r\n      IF (SUBCAS .EQ. OLDCAS) GO TO 260\r\n      OLDCAS = SUBCAS\r\n      NCOUNT = 0\r\n      HCOUNT = 0\r\n      CALL REWIND (ESTFLD)\r\n      FILE   = ESTFLD\r\n      CALL FWDREC (*530,ESTFLD)\r\nC\r\nC     IF THIS SUBCASE IS NOT A SUBCOM, UNPACK NEXT COLUMN OF HCFLD. IF\r\nC     IT IS A SUBCOM, BCKREC HCFLD THE SAME NUMBER OF RECORDS AS THERE\r\nC     ARE FACTORS ON THE SUBSEQ AND COMBINE VECTORS TO PRODUCE ONE\r\nC     VECTOR.\r\nC\r\n      IF (LCORE .LT. 16) GO TO 550\r\n   70 FILE = CASECC\r\n      CALL READ (*530,*540,CASECC,Z(NCSTM+1),16,0,IWORDS)\r\n      IF (IZ(NCSTM+1) .EQ. SUBCAS) GO TO 80\r\n      CALL FWDREC (*530,CASECC)\r\n      FILE = HCCEN\r\n      CALL FWDREC (*530,HCCEN)\r\n      FILE = REMFL\r\n      CALL FWDREC (*530,REMFL)\r\n      GO TO 70\r\nC\r\nC     MATCH ON SUBCASE ID. SEE HOW LONG THE RECORD IS\r\nC\r\n   80 IF (IZ(NCSTM+16) .EQ. 0) GO TO 200\r\nC\r\nC     SUBCOM UNLESS IZ(16).LT.0. IN WHICH CASE IT IS A REPEAT SUBCASE\r\nC\r\n      IF (IZ(NCSTM+16) .GT. 0) GO TO 90\r\n      CALL BCKREC (HCCEN)\r\n      CALL BCKREC (REMFL)\r\n      GO TO 200\r\nC\r\nC     SUBCOM. GET NUMBER OF FACTORS AND BCKREC THAT MANY RECORDS ON\r\nC     HCFLD\r\nC\r\nC     OPEN CORE (AFTER NCSTM WORDS OF CSTM)\r\nC             1 - NEXTZ   CASECC\r\nC             NEXTZ+1 - NEXTZ+NROWS   COLUMN OF HCCEN\r\nC             NEXTZ+NROWS+1 - NEXTZ+2*NROWS=NEXTP  HCCEN COMBINATION\r\nC             NEXTP+1 - NEXTP+NELX  COLUMN OF REMFL\r\nC             NEXTP+NELX+1 - NEXTP+2*NELX  REMFL COMBINATION\r\nC\r\n   90 CALL READ (*530,*100,CASECC,Z(NCSTM+17),LCORE,0,IWORDS)\r\n      GO TO 550\r\n  100 LCC  = IZ(NCSTM+166)\r\n      LSYM = IZ(NCSTM+LCC)\r\n      DO 110 I = 1,LSYM\r\n      CALL BCKREC (HCCEN)\r\n      CALL BCKREC (REMFL)\r\n  110 CONTINUE\r\n      NEXTZ  = IWORDS + 16 + NCSTM\r\n      NROWS2 = 2*NROWS\r\n      NEXTR  = NEXTZ + NROWS\r\n      NELX2  = 2*NELX\r\n      NALL2  = NROWS2 + NELX2\r\n      NEXTP  = NEXTZ  + NROWS2\r\n      ISUB   = NEXTP  + NELX\r\n      IF (NEXTZ+NALL2 .GT. LCORE) GO TO 550\r\nC\r\nC     SET UP FOR SUBSEQ\r\nC\r\n      DO 120 I = 1,NALL2\r\n  120 Z(NEXTZ+I) = 0.\r\n      DO 170 I = 1,LSYM\r\n      COEF = Z(NCSTM+LCC+I)\r\n      IF (COEF .EQ. 0.) GO TO 160\r\n      NN = NROWS\r\n      CALL UNPACK (*140,HCCEN,Z(NEXTZ+1))\r\n      DO 130 J = 1,NROWS\r\n      Z(NEXTR+J) = Z(NEXTR+J) + COEF*Z(NEXTZ+J)\r\n  130 CONTINUE\r\n  140 NN = NELX\r\n      CALL UNPACK (*170,REMFL,Z(NEXTP+1))\r\n      DO 150 J = 1,NELX\r\n      Z(ISUB+J) = Z(ISUB+J) + COEF*Z(NEXTP+J)\r\n  150 CONTINUE\r\n      GO TO 170\r\nC\r\nC     COEF = 0.\r\nC\r\n  160 FILE = HCCEN\r\n      CALL FWDREC (*530,HCCEN)\r\n      FILE = REMFL\r\n      CALL FWDREC (*530,REMFL)\r\n  170 CONTINUE\r\nC\r\nC     MOVE THE VECTOR IN CORE\r\nC\r\n      DO 180 I = 1,NROWS\r\n  180 Z(NCSTM+I) = Z(NEXTR+I)\r\n      DO 190 I = 1,NELX\r\n  190 Z(NNCR+I) = Z(ISUB+I)\r\n      GO TO 260\r\nC\r\nC     NOT A SUBCOM\r\nC     UNPACK A COLUMN OF HCFLD. FIRST SKIP TO NEXT RECORD ON CASECC\r\nC\r\n  200 FILE = CASECC\r\n      CALL FWDREC (*530,CASECC)\r\n      NN = NROWS\r\n      CALL UNPACK (*210,HCCEN,Z(NCSTM+1))\r\n      GO TO 230\r\n  210 DO 220 I = 1,NROWS\r\n  220 Z(NCSTM+I) = 0.\r\n  230 NN = NELX\r\n      CALL UNPACK (*240,REMFL,Z(NNCR+1))\r\n      GO TO 260\r\n  240 DO 250 I = 1,NELX\r\n  250 Z(NNCR+I) = 0.\r\nC\r\nC     HCFLD VECTOR IS IN Z(NCSTM+1)-Z(NCSTM+NROWS=NNCR) AND REMFL IS IN\r\nC     Z(NNCR+1)-Z(NNCR+NELX). MATCH ELEMENT TYPE ON HOEF1 WITH ESTFLD\r\nC\r\n  260 FILE = ESTFLD\r\n  270 CALL READ (*530,*540,ESTFLD,IEL,1,0,IWORDS)\r\n      IEX = 3\r\n      IF (IEL.EQ.66 .OR. IEL.EQ.67) IEX = 63\r\n      IF (IEL .EQ. 65) IEX = 27\r\n      IPTS = IEX/3\r\nC\r\nC     SINCE IS2D8 HAS 9 POINTS ON HCCEN BUT ONLY ONE ON HEOF1 AND ESTFLD\r\nC     RESET IPTS\r\nC\r\n      IF (IEL .EQ. 80) IPTS = 9\r\n      IF (IEL .EQ. ELTYPE) GO TO 290\r\nC\r\nC     NO MATCH. SKIP TO NEXT RECORD, BUT KEEP UP WITH NCOUNT\r\nC\r\n  280 CALL READ (*530,*270,ESTFLD,IDUM,2,0,IWORDS)\r\n      CALL FREAD (ESTFLD,IDUM,-(IDUM(2)+19+IEX),0)\r\n      NCOUNT = NCOUNT + 1\r\n      HCOUNT = HCOUNT + IPTS\r\n      GO TO 280\r\nC\r\nC     MATCH ON ELEMENT TYPE. FIND A MATCH ON ELEMENT ID\r\nC\r\n  290 FILE = HOEF1\r\n      CALL READ (*530,*380,HOEF1,RBUF,9,0,IWORDS)\r\n      ELID = IBUF(1)/10\r\n      FILE = ESTFLD\r\nC\r\nC     NEXT STATEMENT IS FOR ISOPARAMETRICS WHICH HAVE MULTIPLE POINTS\r\nC     ON HOEF1, BUT ONLY ONE SET OF INFO ON ESTFLD(BUT MULTIPLE COORDS\r\nC     FOR NON-BASIC COORDINATE SYSTEMS). IF MATERIAL IS ALLOWED TO BE\r\nC     TEMPERATURE-DEPENDENT AT SOME LATER DATE IN MAGNETICS PROBLEMS,\r\nC     THEN ESTFLD WILL HAVE MULTIPLE INFO. WRIITEN IN ESTMAG AND THIS\r\nC     STATEMENT CAN BE DELETED\r\nC\r\n      IF (OLDEID .NE. 0) GO TO 310\r\nC\r\n  300 CALL READ (*530,*540,ESTFLD,IZ(NALL+1),2,0,IWORDS)\r\n      NCOUNT = NCOUNT + 1\r\n      HCOUNT = HCOUNT + IPTS\r\n      IELID  = IZ(NALL+1)\r\n      NGRIDS = IZ(NALL+2)\r\n      NWORDS = NGRIDS + 19 + IEX\r\n      IF (NALL+NWORDS .GT. LCORE) GO TO 550\r\n      CALL READ (*530,*540,ESTFLD,Z(NALL+1),NWORDS,0,IWORDS)\r\nC\r\n      IF (ELID.EQ.IELID) GO TO 310\r\n      GO TO 300\r\nC\r\nC     MATCH ON ELEMENT ID. PICK UP HM FROM HOEF1(IN ELEMENT COORDS)\r\nC     PICK UP 3 X 3 TRANSFORMATION MATRIX FROM ESTFLD TO CONVERT ELEMENT\r\nC     SYSTEM TO BASIC. THEN MULTIPLY\r\nC\r\n  310 HM(1) = RBUF(4)\r\n      HM(2) = RBUF(5)\r\n      HM(3) = RBUF(6)\r\nCWKBNB 8/94 ALPHA-VMS\r\n      ITYPE = NUMTYP( HM(2) )\r\n      IF ( ITYPE .LE. 1 ) HM(2) = 0.\r\n      ITYPE = NUMTYP( HM(3) )\r\n      IF ( ITYPE .LE. 1 ) HM(3) = 0.\r\nCWKBNE 8/94 ALPHA-VMS\r\n      CALL GMMATS (Z(NALL+NGRIDS+10),3,3,0,HM,3,1,0,HMG)\r\nC\r\nC     PICK UP HC FROM HCCEN VECTOR. FOR ALL EXCEPT ISOPARAMETRICS,HCOUNT\r\nC     POINTS TO THE Z COMPONENT OF PROPER HC WHICH STARTS AT Z(NCSTM+1)\r\nC\r\n      IF (RBUF(2).NE.HEX1 .AND. RBUF(2).NE.HEX2 .AND. RBUF(2).NE.HEX3)\r\n     1   GO TO 330\r\nC\r\nC     ISOPARAMETRIC SOLIDS\r\nC\r\n      IF (OLDEID .EQ. ELID) GO TO 320\r\n      OLDEID = ELID\r\n      STRSPT = 0\r\n  320 STRSPT = STRSPT + 1\r\n      IF (STRSPT .GE. 21) OLDEID = 0\r\n      IF (RBUF(2).EQ.HEX1 .AND. STRSPT.GE.9) OLDEID = 0\r\n      GO TO 340\r\n  330 STRSPT = 1\r\nC\r\nC     NEXT LINE IS FOR IS2D8 WHICH HAS 9 POINTS ON HCCEN BUT ONE ON\r\nC     ESTFLD\r\nC\r\n      IF (IEL .EQ. 80) STRSPT = 9\r\n  340 ISUB  = NCSTM + 3*(HCOUNT-IPTS+STRSPT-1)\r\n      HC(1) = Z(ISUB+1)\r\n      HC(2) = Z(ISUB+2)\r\n      HC(3) = Z(ISUB+3)\r\nC\r\n      DO 350 I = 1,3\r\n  350 RBUF(I+3) = HMG(I) + HC(I)\r\nC\r\nC     TO GET INDUCTION B, MULTIPLY H BY MATERIALS\r\nC\r\n      CALL GMMATS (Z(NALL+NGRIDS+1),3,3,0,RBUF(4),3,1,0,RBUF(7))\r\nC\r\nC     ADD IN REMANENCE Z(NNCR+1)-Z(NNCR+NELX)\r\nC\r\n      ISUB = NNCR + 3*NCOUNT - 3\r\n      RBUF(7) = RBUF(7) + Z(ISUB+1)\r\n      RBUF(8) = RBUF(8) + Z(ISUB+2)\r\n      RBUF(9) = RBUF(9) + Z(ISUB+3)\r\nC\r\nC     CHECK FOR REQUEST FOR NON-BASIC COORD. SYSTEM. TA TRANSFORMS TO\r\nC     BASIC\r\nC\r\n      IFIELD = IZ(NALL+NGRIDS+19)\r\n      IF (IFIELD .EQ. 0) GO TO 370\r\n      ICOORD(1) = IFIELD\r\nC\r\nC     NEXT LINE IS FOR IS2D8 WHICH ONLY ONE POINT ON ESTFLD\r\nC\r\n      IF (IEL .EQ. 80) STRSPT = 1\r\n      ISUB = NALL + NGRIDS + 19 + 3*STRSPT - 3\r\n      COORD(2) = Z(ISUB+1)\r\n      COORD(3) = Z(ISUB+2)\r\n      COORD(4) = Z(ISUB+3)\r\n      CALL TRANSS (COORD,TA)\r\n      CALL GMMATS (TA,3,3,1,RBUF(7),3,1,0,TEMP)\r\n      DO 360 I = 1,3\r\n  360 RBUF(I+6) = TEMP(I)\r\nC\r\n  370 CONTINUE\r\nC\r\nC     WRITE OUT TO HOEH1\r\nC\r\n      CALL WRITE (HOEH1,RBUF,9,0)\r\nC\r\nC     GET ANOTHER ELEMENT OF THIS TYPE IN THIS SUBCASE\r\nC\r\n      GO TO 290\r\nC\r\nC     END OF ELEMENTS OF PRESENT TYPE AND/OR SUBCASE ON HOEF1\r\nC\r\n  380 CALL WRITE (HOEH1,0,0,1)\r\n      FILE = ESTFLD\r\nC\r\nC     SKIP RECORD BUT KEEP UP WITH NCOUNT\r\nC\r\n  390 CALL READ (*530,*400,ESTFLD,IDUM,2,0,IWORDS)\r\n      CALL FREAD (ESTFLD,IDUM,-(IDUM(2)+19+IEX),0)\r\n      NCOUNT = NCOUNT + 1\r\n      HCOUNT = HCOUNT + IPTS\r\n      GO TO 390\r\n  400 FILE = HOEF1\r\n      GO TO 60\r\nC\r\nC     EOF ON HOEF1 - ALL DONE\r\nC\r\n  410 CALL CLOSE (CASECC,1)\r\n      CALL CLOSE (HCCEN,1)\r\n      CALL CLOSE (ESTFLD,1)\r\n      CALL CLOSE (HOEF1,1)\r\n      CALL CLOSE (REMFL,1)\r\n      CALL CLOSE (HOEH1,1)\r\n      MCB(1) = HOEF1\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = HOEH1\r\n      CALL WRTTRL (MCB)\r\n      GO TO 600\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n  500 WRITE  (OTPE,510) SFM\r\n  510 FORMAT (A25,', ROW COUNT ON HCCEN IN EMFLD IS NOT CONSISTENT')\r\n      CALL MESAGE (-61,0,0)\r\n  520 N = -1\r\n      GO TO 560\r\n  530 N = -2\r\n      GO TO 560\r\n  540 N = -3\r\n      GO TO 560\r\n  550 N = -8\r\n      FILE = 0\r\n  560 CALL MESAGE (N,FILE,NAM)\r\nC\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emg.f",
    "content": "      SUBROUTINE EMG\r\nC\r\nC     ELEMENT-MATRIX-GENERATOR MAIN DRIVING ROUTINE.\r\nC\r\nC     DMAP SEQUENCE\r\nC\r\nC     EMG, EST,CSTM,MPT,DIT,GEOM2, /KMAT,KDICT, MMAT,MDICT, BMAT,BDICT/\r\nC          V,N,NOKGG/V,N,NOMGG/V,N,NOBGG/V,N,NOK4GG/V,N,NOKDGG/\r\nC          C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/\r\nC          C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CQDPLT/C,Y,CPTRPLT/\r\nC          C,Y,CPTRBSC/V,Y,VOLUME/V,Y,SURFACE $\r\nC\r\n      LOGICAL         ERROR, ANYCON, NOGO, HEAT, LINEAR\r\n      INTEGER         Z, EST, CSTM, DIT, GEOM2, DICTN\r\n      INTEGER         PRECIS, CMASS, FLAGS, NAME(2)\r\n      DIMENSION       IBUF(7),MCB(7)\r\n      COMMON /BLANK / NOK, NOM, NOB, NOK4GG, NOKDGG, CMASS\r\n      COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR,\r\n     3                LCSTM, LMAT, LHMAT, KFLAGS(3), L38\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3)\r\n      COMMON /HMATDD/ SKP(4), LINEAR\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /MACHIN/ MACH\r\n      EQUIVALENCE     (KSYSTM(3),NOGO), (KSYSTM(55),IPRECI),\r\n     1                (KSYSTM(2),NOUT), (KSYSTM(56),NOHEAT)\r\n      DATA    NAME  / 4HEMG ,4H     /\r\nC\r\nC     SET EMG PRECISION FLAG TO SYSTEM PRECISION FLAG\r\nC\r\n      PRECIS = IPRECI\r\nC\r\nC     IF .NOT.1 .AND. .NOT.2 DEFAULT EMG PRECISION TO SINGLE\r\nC\r\n      IF (PRECIS.LT.1 .OR. PRECIS.GT.2) PRECIS = 1\r\nC\r\nC     HEAT  FORMULATION\r\nC\r\n      HEAT   = .FALSE.\r\n      IF (NOHEAT .LE. 0) GO TO 2\r\n      HEAT   = .TRUE.\r\n      LINEAR = .TRUE.\r\n      NOKDGG = -1\r\nC\r\nC     TEST FOR NO SIMPLE ELEMENTS\r\nC\r\n    2 NOGO   = .FALSE.\r\n      MCB(1) = 101\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 3\r\n      IF (MCB(2).NE.0 .OR. MCB(5).NE.0 .OR. MCB(6).NE.0 .OR.\r\n     1    MCB(7).NE.0) GO TO 5\r\n    3 NOK = -1\r\n      NOM = -1\r\n      NOB = -1\r\n      NOK4GG = -1\r\n      RETURN\r\nC\r\nC     SET OPEN CORE\r\nC\r\n    5 NCORE = KORSZ(Z(1))\r\n      ICORE = 3\r\n      IF (MACH.EQ.3 .OR. MACH.EQ.4) CALL EMGSOC (ICORE,NCORE,HEAT)\r\n      NCORE = NCORE - 1\r\n      JCORE = ICORE\r\nC\r\nC     SET WORKING CORE TO ALL ZEROS\r\nC\r\n      DO 10 I = ICORE,NCORE\r\n      Z(I) = 0\r\n   10 CONTINUE\r\nC\r\nC     THIS MODULE WILL SET NOK4GG = -1 . IF DURING EXECUTION A NON-ZERO\r\nC     DAMPING CONSTANT IS DETECTED IN A DICTIONARY BY EMGOUT, NOK4GG\r\nC     WILL BE SET TO 1\r\nC\r\nC     A DMAP DETERMINATION CAN THEN BE MADE WHETHER OR NOT TO HAVE EMA\r\nC     FORM THE K4GG MATRIX\r\nC\r\n      NOK4GG = -1\r\nC\r\nC     SET GINO FILE NUMBERS\r\nC\r\n      EST    = 101\r\n      CSTM   = 102\r\n      MPT    = 103\r\n      DIT    = 104\r\n      GEOM2  = 105\r\n      DO 20 I = 1,3\r\n      MATS(I) = 199 + 2*I\r\n      DICTN(I) = MATS(I) + 1\r\n   20 CONTINUE\r\n      ERROR = .FALSE.\r\nC\r\nC     IF DIAG 38 IS ON, PRINT TOTAL TIME (IN SECONDS) USED BY EMGPRO\r\nC     AND MESSAGES 3113 AND 3107  WHILE PRPCESSING ELEMENTS\r\nC\r\n      CALL SSWTCH (38,L38)\r\nC\r\nC     READ AND SETUP INTO CORE MISC. TABLES.\r\nC     E.G. MPT, CSTM, DIT, ETC.\r\nC\r\n      CALL EMGTAB\r\nC\r\nC     PROCESS ANY CONGRUENT DATA CARDS AND BUILD TABLE IN OPEN CORE.\r\nC\r\n      CALL EMGCNG\r\nC\r\nC     SETUP BALANCE OF CORE WITH REQUIRED BUFFERS AND OPEN\r\nC     REQUIRED DATA BLOCKS.\r\nC\r\n      CALL EMGCOR (IBUF)\r\nC\r\nC     PASS THE EST AND WRITE THE OUTPUT DATA BLOCKS.\r\nC\r\n      IF (L38 .EQ. 1) CALL KLOCK (I)\r\n      CALL EMGPRO (IBUF)\r\n      IF (L38 .EQ. 0) GO TO 40\r\n      CALL KLOCK (J)\r\n      J = J - I\r\n      WRITE  (NOUT,30) J\r\n   30 FORMAT (///,34H *** EMG ELEMENT PROCESSING TIME =,I10,8H SECONDS)\r\nC\r\nC     WRAP-UP OPERATIONS.\r\nC\r\n   40 CALL EMGFIN\r\n      IF (NOGO .OR. ERROR) CALL MESAGE (-37,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emg1b.f",
    "content": "      SUBROUTINE EMG1B (BUF,SIL,II,FILE,DAMPC)\r\nC\r\nC     THIS ROUTINE REPLACES SMA1B AND GROUPS TOGETHER THE\r\nC     SUB-PARTITIONS OF A PIVOT-PARTITION.\r\nC\r\nC     THE SUB-PARTIONS ARE ARRANGED IN CORE BY ASCENDING SILS OF THE\r\nC     ELEMENT INVOLVED.\r\nC\r\n      LOGICAL          ANYCON, ERROR, DOUBLE, LAST, HEAT\r\n      INTEGER          Z, ZBASE, POSVEC, PRECIS, ROWSIZ, FILE,\r\n     1                 ELTYPE, ELID, DICT, OUTPT, ESTID,\r\n     2                 FILTYP, SIL, SILS, SUBR(2), FLAGS\r\n      REAL             RZ(1)\r\n      DOUBLE PRECISION DZ(1), DAMPC, BUF(1)\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /EMGPRM/  ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR,\r\n     3                 LCSTM, LMAT, LHMAT\r\n      COMMON /EMG1BX/  NSILS, POSVEC(10), IBLOC, NBLOC, IROWS, DICT(15),\r\n     1                 FILTYP, SILS(10), LAST\r\n      COMMON /EMGDIC/  ELTYPE, LDICT, NLOCS, ELID, ESTID\r\n      COMMON /SMA1IO/  SMAIO(36)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /IEMG1B/  ICALL, ILAST\r\nC\r\n      EQUIVALENCE      (KSYSTM(2), OUTPT)\r\n      EQUIVALENCE      (Z(1), DZ(1), RZ(1)),   (C, IC)\r\n      EQUIVALENCE      (SMAIO(13), IF4GG)\r\nC\r\n      DATA    SUBR  /  4HEMG1,4HB   /\r\nC\r\n      IF (ERROR) RETURN\r\n      IF (SIL .EQ. -1111111) GO TO 155\r\n      DOUBLE = .FALSE.\r\n      IF (PRECIS .EQ. 2) DOUBLE = .TRUE.\r\n      ICALL = ICALL + 1\r\nC\r\nC     IF -FILE- EQUALS IF4GG FOR THE OLD ELEMENTS, THEN THE ELEMENT\r\nC     DAMPING CONSTANT SENT IS PLACED IN THE DICTIONARY AND A SIMPLE\r\nC     RETURN IS MADE.\r\nC\r\n      IF (HEAT) GO TO  10\r\n      IF (FILE .NE. IF4GG) IF (II) 20,20,10\r\n      C = DAMPC\r\n      DICT(5) = IC\r\n      ICALL = ICALL - 1\r\n      RETURN\r\nC\r\n   10 IROWS = 1\r\n      DICT(4) = 1\r\n      GO TO 30\r\n   20 IROWS = 6\r\n      DICT(4) = 63\r\n   30 IF (ICALL .GT. 1) GO TO 70\r\n      ROWSIZ = NSILS*IROWS\r\n      DICT(3) = ROWSIZ\r\n      IBLOC = JCORE + MOD(JCORE+1,2)\r\n      IF (DICT(2) .EQ. 2) GO TO 40\r\n      NBLOC = IBLOC + ROWSIZ*IROWS*PRECIS - 1\r\n      GO TO 50\r\n   40 NBLOC = IBLOC + IROWS*PRECIS - 1\r\n   50 IF (NBLOC .GT. NCORE) CALL MESAGE (-8,NBLOC-NCORE,SUBR)\r\n      IF (DOUBLE) GO TO 60\r\n      DO  55  I = IBLOC, NBLOC\r\n      RZ(I) = 0.0E0\r\n   55 CONTINUE\r\n      GO TO 70\r\nC\r\n   60 IDBLOC = IBLOC/2 + 1\r\n      NDBLOC = NBLOC/2\r\n      DO 65 I = IDBLOC,NDBLOC\r\n      DZ(I) = 0.0D0\r\n   65 CONTINUE\r\nC\r\nC     INSERT SUB-PARTITION OF PARTITION IN POSITION OF SIL ORDER.\r\nC\r\nC     BUF IS ASSUMED DOUBLE PRECISION.\r\nC\r\n   70 DO 80 I = 1,NSILS\r\n      IF (SIL .EQ. SILS(I)) GO TO 100\r\n   80 CONTINUE\r\n      WRITE  (OUTPT,90) SFM,ELID\r\n   90 FORMAT (A25,' 3116, ELEMENT ID',I10,' SENDS BAD SIL TO ROUTINE ',\r\n     1       'EMG1B.')\r\n      CALL MESAGE (-37,0,SUBR)\r\nC\r\n  100 IF (DICT(2) .EQ. 2) GO TO 130\r\n      ZBASE = IROWS*(I-1)\r\n      KMAT = 1\r\n      IF (DOUBLE) GO TO 125\r\nC\r\nC     SINGLE PRECISION ADDITION OF DATA\r\nC\r\n      J1 = IBLOC + ZBASE\r\n      J2 = J1 + IROWS - 1\r\n      DO  120  I = 1,IROWS\r\n      DO  110  J = J1,J2\r\n      RZ(J) = RZ(J) + SNGL(BUF(KMAT))\r\n      KMAT = KMAT + 1\r\n  110 CONTINUE\r\n      J1 = J1 + ROWSIZ\r\n      J2 = J2 + ROWSIZ\r\n  120 CONTINUE\r\n      GO TO 150\r\nC\r\nC     DOUBLE PRECISION ADDITION OF MATRIX DATA.\r\nC\r\n  125 J1 = IDBLOC + ZBASE\r\n      J2 = J1 + IROWS - 1\r\n      DO  127  I = 1,IROWS\r\n      DO  126  J = J1,J2\r\n      DZ(J) = DZ(J) + BUF(KMAT)\r\n      KMAT = KMAT + 1\r\n  126 CONTINUE\r\n      J1 = J1 + ROWSIZ\r\n      J2 = J2 + ROWSIZ\r\n  127 CONTINUE\r\n      GO TO 150\r\nC\r\nC     SIMPLE DIAGONAL MATRIX INSERTION\r\nC\r\n  130 KMAT = 1\r\n      IF (DOUBLE) GO TO 145\r\n      J1 = IBLOC\r\n      DO  140  I = 1,IROWS\r\n      RZ(J1) = RZ(J1) + SNGL(BUF(KMAT))\r\n      J1 = J1 + 1\r\n      KMAT = KMAT + 14\r\n  140 CONTINUE\r\n      GO TO 150\r\nC\r\n  145 J1 = IDBLOC\r\n      DO  146  I = 1,IROWS\r\n      DZ(J1) = DZ(J1) + BUF(KMAT)\r\n      J1 = J1 + 1\r\n      KMAT = KMAT + 14\r\n  146 CONTINUE\r\nC\r\n  150 RETURN\r\nC\r\nC     OUTPUT PIVOT-ROWS-PARTITION\r\nC\r\n  155 IF (ICALL .LE. 0) GO TO 161\r\n      IF (.NOT. LAST) GO TO 160\r\n      ILAST = 1\r\n  160 CALL EMGOUT (Z(IBLOC),Z(IBLOC),(NBLOC-IBLOC+1)/PRECIS,ILAST,\r\n     1             DICT,FILTYP,PRECIS)\r\n  161 ILAST = 0\r\n      ICALL = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emgcng.f",
    "content": "      SUBROUTINE EMGCNG\r\nC\r\nC     THIS ROUTINE OF THE -EMG- MODULE READS -CNGRNT- CARD\r\nC     IMAGES, IF ANY, FROM GEOM2 AND BUILDS A PAIRED LIST.\r\nC\r\nC     ON EACH -CNGRNT- DATA CARD THE  FIRST ID (NEED NOT BE THE SMALLEST\r\nC     ID) BECOMES THE PRIMARY ID.  THIS ID WILL BE PAIRED WITH A ZERO\r\nC     NOW AND A NEGATIVE DICTIONARY-TABLE  ADDRESS LATER.  AS SOME OF\r\nC     THE ID-S APPEARING ON THE -CNGRNT- DATA CARD MAY NOT EVEN BE IN\r\nC     THE PROBLEM, THE FIRST ID OF A CONGRUENT GROUP REFERENCED WILL\r\nC     RESULT IN THE ELEMENT COMPUTATIONS AND THE SETTING OF A DICTIONARY\r\nC     FILE TABLE ADDRESS WITH THE PRIMARY ID.\r\nC\r\n      LOGICAL         ANYCON, ERROR, HEAT\r\n      INTEGER         Z, GEOM2, SYSBUF, BUF, SUBR(2), CNGRNT(2), EST,\r\n     1                CSTM, DIT, DICTN, RD, WRT, WRTREW, RDREW, CLS,\r\n     2                CLSREW, PRECIS, FLAG, FLAGS\r\n      CHARACTER       UFM*23, UWM*25\r\n      COMMON /XMSSG / UFM, UWM\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3)\r\n      COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                ANYCON, FLAGS(3), PRECIS, ERROR, HEAT,\r\n     3                ICMBAR, LCSTM, LMAT, LHMAT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM(1), SYSBUF), (KSYSTM(2), NOUT)\r\n      DATA    SUBR  / 4HEMGC,  4HNG  /, NOEOR / 0 /, CNGRNT / 5008,50 /\r\nC\r\n      BUF = NCORE - SYSBUF - 2\r\n      IF (BUF .LE. JCORE) CALL MESAGE (-8,JCORE-BUF,SUBR)\r\n      ANYCON= .FALSE.\r\n      ICONG = JCORE\r\n      NCONG = JCORE - 1\r\n      LCONG = 0\r\nC\r\nC     LOCATE -CNGRNT- BULK DATA CARDS IF ANY.\r\nC\r\n      CALL PRELOC (*90,Z(BUF),GEOM2)\r\n      CALL LOCATE (*80,Z(BUF),CNGRNT,FLAG)\r\nC\r\nC     PROCESS ONE DATA CARD\r\nC\r\n   10 IF (NCONG+2 .GE. BUF) GO TO 35\r\n      CALL READ (*40,*40,GEOM2,Z(NCONG+1),1,NOEOR,IWORDS)\r\n      Z(NCONG+2) = 0\r\n      IDPRIM = Z(NCONG+1)\r\n      NCONG  = NCONG + 2\r\nC\r\nC     READ ANY SECONDARY IDS.\r\nC\r\n   20 IF (NCONG+2 .GE. BUF) GO TO 35\r\n      CALL READ (*40,*40,GEOM2,Z(NCONG+1),1,NOEOR,IWORDS)\r\nC\r\nC     CHECK FOR THE FOLLOWING CONDITION\r\nC\r\nC     CONDITION 1\r\nC     ------------\r\nC\r\nC     A SECONDARY ID ON THIS CARD IS THE SAME AS THE PRIMARY ID\r\nC     ON THIS CARD.  THE SECONDARY ID IS IGNORED AND THE CONDITION\r\nC     IS INDICATED BY A USER INFORMATION MESSAGE.\r\nC\r\n      IF (Z(NCONG+1).NE.IDPRIM) GO TO 25\r\nC\r\nC     THE ABOVE CONDITION EXISTS\r\nC\r\n      CALL PAGE2 (3)\r\n      WRITE (NOUT,2010) UWM,IDPRIM\r\n      GO TO 20\r\nC\r\n   25 IF (Z(NCONG+1)) 10,20,30\r\n   30 Z(NCONG+2) = IDPRIM\r\n      NCONG = NCONG + 2\r\n      GO TO 20\r\nC\r\nC     INSUFFICIENT CORE TO PROCESS ALL -CNGRNT- CARDS\r\nC\r\n   35 ICRQ = NCONG + 2 - BUF\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,2050) UWM,ICRQ\r\nC\r\nC     NO MORE -CNGRNT- CARDS\r\nC\r\n   40 LCONG = NCONG - ICONG + 1\r\n      IF (LCONG .LE. 0) GO TO 80\r\n      CALL SORT (0,0,2,1,Z(ICONG),LCONG)\r\nC\r\nC     CHECK FOR THE FOLLOWING ADDITIONAL CONDITIONS\r\nC\r\nC     CONDITION 2\r\nC     -----------\r\nC\r\nC     A PRIMARY ID ON A CNGRNT CARD IS ALSO USED AS A SECONDARY\r\nC     ID ON ANOTHER CNGRNT CARD.  THIS RESULTS IN A USER FATAL\r\nC     MESSAGE.\r\nC\r\nC     CONDITION 3\r\nC     -----------\r\nC\r\nC     A SECONDARY ID IS SPECIFIED AS CONGRUENT TO MORE THAN ONE\r\nC     PRIMARY ID.  THIS ALSO RESULTS IN A USER FATAL MESSAGE.\r\nC\r\nC     CONDITION 4\r\nC     -----------\r\nC\r\nC     A SECONDARY ID IS REDUNDANTLY SPECIFIED.  THE REDUNDANCIES ARE\r\nC     IGNORED AND THE CONDITION IS INDICATED BY A USER INFORMATION\r\nC     MESSAGE.\r\nC\r\n      NOGO   = 0\r\n      NCONG1 = NCONG - 2\r\n      DO 440 I = ICONG,NCONG1,2\r\n      IF (Z(I  ) .NE. Z(I+2)) GO TO 440\r\n      IF (Z(I+1) .EQ. Z(I+3)) GO TO 440\r\n      NOGO = 1\r\n      IF (Z(I+1).NE.0 .AND. Z(I+3).NE.0) GO TO 420\r\nC\r\nC     THIS IS CONDITION 2 DESCRIBED ABOVE\r\nC\r\n      WRITE (NOUT,2020) UFM,Z(I)\r\n      GO TO 440\r\nC\r\nC     THIS IS CONDITION 3 DESCRIBED ABOVE\r\nC\r\n  420 WRITE (NOUT,2030) UFM,Z(I)\r\nC\r\n  440 CONTINUE\r\n      IF (NOGO .EQ. 1) CALL MESAGE (-37,0,SUBR)\r\n      NCONG2 = NCONG1\r\n      DO 480 I = ICONG,NCONG1,2\r\n      IF (Z(I) .LT.      0) GO TO 480\r\n      IF (Z(I) .NE. Z(I+2)) GO TO 480\r\n      J = I + 2\r\n  450 DO 460 K = J,NCONG2,2\r\n      Z(K  ) = Z(K+2)\r\n      Z(K+1) = Z(K+3)\r\n  460 CONTINUE\r\n      LCONG = LCONG - 2\r\n      NCONG = NCONG - 2\r\n      Z(NCONG2-1) = -1\r\n      NCONG2 = NCONG2 - 2\r\n      IF (Z(J) .EQ. Z(I)) GO TO 450\r\n      IF (Z(I+1) .EQ.  0) GO TO 480\r\nC\r\nC     THIS IS CONDITION 4 DESCRIBED ABOVE\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,2040) UWM,Z(I)\r\nC\r\n  480 CONTINUE\r\nC\r\nC     REPLACE PRIMARY ID ASSOCIATED WITH EACH SECONDARY ID\r\nC     WITH LOCATION OF PRIMARY ID IN TABLE.\r\nC\r\n      LNUM   = LCONG / 2\r\n      ICONGZ = ICONG - 1\r\n      DO 60 I = ICONG,NCONG,2\r\n      IF (Z(I+1)) 50,60,50\r\n   50 KID = Z(I+1)\r\n      CALL BISLOC (*60,KID,Z(ICONG),2,LNUM,J)\r\n      Z(I+1) = ICONGZ + J\r\n   60 CONTINUE\r\nC\r\nC     TABLE IS COMPLETE\r\nC\r\n   80 CALL CLOSE (GEOM2,CLSREW)\r\n      IF (NCONG .GT. ICONG) ANYCON = .TRUE.\r\n      JCORE = NCONG + 1\r\n   90 RETURN\r\nC\r\nC\r\n 2010 FORMAT (A25,' 3169, PRIMARY ID',I9,' ON A CNGRNT CARD ALSO USED ',\r\n     1       'AS A SECONDARY ID ON THE SAME CARD.', /5X,\r\n     3       'SECONDARY ID IGNORED.')\r\n 2020 FORMAT (A23,' 3170, PRIMARY ID',I9,' ON A CNGRNT CARD ALSO USED ',\r\n     1       'AS A SECONDARY ID ON ANOTHER CNGRNT CARD.')\r\n 2030 FORMAT (A23,' 3171, SECONDARY ID',I9,\r\n     1       ' SPECIFIED AS CONGRUENT TO MORE THAN ONE PRIMARY ID.')\r\n 2040 FORMAT (A25,' 3172, SECONDARY ID',I9,' REDUNDANTLY SPECIFIED ON ',\r\n     1       'CNGRNT CARDS.  REDUNDANCY IGNORED.')\r\n 2050 FORMAT (A25,' 3182, INSUFFICIENT CORE TO PROCESS ALL CNGRNT ',\r\n     1       'CARDS.  ADDITIONAL CORE NEEDED =',I8,7H WORDS.)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/emgcor.f",
    "content": "      SUBROUTINE EMGCOR (BUF)\r\nC\r\nC     CORE ALLOCATION AND PARAMETER INITIALIZATION FOR MAIN -EMG-\r\nC     PROCESSOR -EMGPRO-.\r\nC\r\n      LOGICAL         ANYCON, ERROR, HEAT\r\n      INTEGER         Z, SYSBUF, OUTPT, SUBR(2), TYPE(3), BUF(8), BUFS,\r\n     1                BUF1, BUF2, RD, WRT, RDREW, WRTREW, CLS, PRECIS,\r\n     2                CLSREW, EST, CSTM, DIT, GEOM2, NAME(2), EOR,\r\n     3                FLAGS, SCR4\r\n      CHARACTER       UFM*23, UWM*25, UIM*29, SFM*25, SWM*27\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM, SWM\r\n      COMMON /BLANK / NOKMB(3), DUMMY(13), VOLUME, SURFAC\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, KMBMAT(3), KMBDIC(3)\r\n      COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                ANYCON, FLAGS(3), PRECIS, ERROR, HEAT,\r\n     3                ICMBAR, LCSTM, LMAT, LHMAT, KFLAGS(3), L38\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM(1), SYSBUF)\r\n      EQUIVALENCE     (KSYSTM(2), OUTPT )\r\n      DATA    TYPE  / 4HSTIF,4HMASS,4HDAMP/\r\n      DATA    SCR4  / 304   /\r\n      DATA    SUBR  / 4HEMGC,4HOR  /,  EOR/ 1 /\r\nC\r\n      IF (L38 .EQ. 0) WRITE (OUTPT,5) UIM\r\n    5 FORMAT (A29,' 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT ',\r\n     1        'PROCESSING INFORMATION',/)\r\nC\r\nC     DETERMINATION OF FUNCTIONS TO BE PERFORMED AND RESULTANT NUMBER\r\nC     OF BUFFERS NEEDED.\r\nC\r\n      BUFS = 1\r\n      DO 10 I = 1,3\r\n      FLAGS(I)  = 0\r\n      KFLAGS(I) = 0\r\n      IF (NOKMB(I) .EQ. -1) GO TO 10\r\n      FLAGS(I) = -1\r\n      BUFS = BUFS + 2\r\n   10 CONTINUE\r\n      IF (VOLUME.GT.0.0 .OR. SURFAC.GT.0.0) BUFS = BUFS + 1\r\nC\r\nC     ALLOCATE BUFFERS\r\nC\r\n      N = NCORE\r\n      DO 20 I = 1,BUFS\r\n      BUF(I) = N - SYSBUF - 2\r\n      N = BUF(I)\r\n   20 CONTINUE\r\n      NCORE = N - 1\r\n      IF (NCORE .LT. JCORE) CALL MESAGE (-8,JCORE-NCORE,SUBR)\r\nC\r\nC  OPEN REQUIRED DATA BLOCKS.\r\nC\r\n      BUF1 = BUF(1)\r\n      CALL OPEN (*60,EST,Z(BUF1),RDREW)\r\n      CALL SKPREC (EST,1)\r\n      IBUF = 1\r\nC\r\nC     K, M, OR B MATRIX DATA BLOCKS\r\nC\r\n      DO 50 I = 1,3\r\n      IF (FLAGS(I) .EQ. 0) GO TO 50\r\n      BUF1 = BUF(IBUF+1)\r\n      BUF2 = BUF(IBUF+2)\r\n      CALL OPEN (*30,KMBMAT(I),Z(BUF1),WRTREW)\r\n      CALL OPEN (*30,KMBDIC(I),Z(BUF2),WRTREW)\r\n      CALL FNAME (KMBMAT(I),NAME)\r\n      CALL WRITE (KMBMAT(I),NAME,2,EOR)\r\n      CALL FNAME (KMBDIC(I),NAME)\r\n      CALL WRITE (KMBDIC(I),NAME,2,EOR)\r\n      IBUF = IBUF + 2\r\n      KFLAGS(I) = 1\r\n      GO TO 50\r\nC\r\nC     FILE REQUIRED IS MISSING\r\nC\r\n   30 FLAGS(I) = 0\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTPT,40) UWM,KMBMAT(I),KMBDIC(I),TYPE(I)\r\n   40 FORMAT (A25,' 3103, EMGCOR OF EMG MODULE FINDS EITHER OF DATA ',\r\n     1        'BLOCKS ',I4,4H OR ,I4,' ABSENT AND THUS,', /5X,A4,\r\n     2        ' MATRIX WILL NOT BE FORMED.')\r\n   50 CONTINUE\r\nC\r\nC     IF VOLUME OR SURFACE COMPUTATION IS REQUESTED BY USER FOR THE 2-D\r\nC     AND 3-D ELEMENTS, OPEN SCR4 FILE. (ONLY TO BE CLOSED BY EMGFIN)\r\nC\r\n      IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 55\r\n      IBUF = IBUF + 1\r\n      BUF1 = BUF(IBUF)\r\n      CALL OPEN (*80,SCR4,Z(BUF1),WRTREW)\r\nC\r\nC     ALL FILES READY TO GO.\r\nC\r\n   55 NCORE = BUF(IBUF) - 1\r\n      RETURN\r\nC\r\nC     EST MISSING\r\nC\r\n   60 CALL PAGE2 (2)\r\n      WRITE  (OUTPT,70) SWM,EST\r\n   70 FORMAT (A27,' 3104, EMGCOR FINDS EST (ASSUMED DATA BLOCK',I5,\r\n     2        ') MISSING.  EMG MODULE COMPUTATIONS LIMITED.')\r\n      FLAGS(1) = 0\r\n      FLAGS(2) = 0\r\n      FLAGS(3) = 0\r\n      RETURN\r\nC\r\n   80 CALL MESAGE (-1,SCR4,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emgfin.f",
    "content": "      SUBROUTINE EMGFIN\r\nC\r\nC     THIS ROUTINE OF THE -EMG- MODULE WRAPS UP THE WORK OF THE MODULE.\r\nC\r\n      LOGICAL         ERROR, HEAT, LINEAR\r\n      INTEGER         CLS, CLSREW, RDREW, WRTREW, DATE, MCB(7), PRECIS,\r\n     1                EST, DICTN, FLAGS, SCR3, SCR4, VAFILE, SUB(2),\r\n     2                IX(6), SIL(32)\r\n      REAL            INPI(10), Z(2), RX(200), COREY(201)\r\n      COMMON /BLANK / NOKMB(3), NOK4GG, CMASS, DUMMY(11), VOLUME, SURFAC\r\n      COMMON /HMATDD/ SKP(4), LINEAR\r\n      COMMON /EMGPRM/ ICORE, JCORE, NCORE, DUM12(12), FLAGS(3), PRECIS,\r\n     1                ERROR, HEAT, ICMBAR, LCSTM, LMAT, LHMAT\r\n      COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2, MATRIX(3), DICTN(3)\r\n      COMMON /OUTPUT/ HEAD(96)\r\n      COMMON /SYSTEM/ IBUF, NOUT, SKIP6(6), NLPP, SKIP2(2), LINE,\r\n     1                SK1P2(2), DATE(3)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      EQUIVALENCE     (COREX(1),COREY(1),RX(1),IX(1)), (Z(1),COREY(201))\r\n      DATA    VAFILE, SCR4  / 207,    304           /\r\n      DATA    D2,     D3    / 4H2-D , 4H3-D         /\r\n      DATA    SUB,    SCR3  / 4HEMGF, 4HIN   , 303  /\r\n      DATA    INPI  / 4HINPT, 4HINP1, 4HINP2, 4HINP3, 4HINP4,\r\n     1                4HINP5, 4HINP6, 4HINP7, 4HINP8, 4HINP9/\r\nC\r\nC     CLOSE ALL FILES, EXCEPT SCR4\r\nC\r\n      DO 10 I = 1,3\r\n      NOKMB(I) = -FLAGS(I) - 1\r\n      IF (FLAGS(I)+1 .EQ. 0) FLAGS(I) = 0\r\n      IF (FLAGS(I)   .EQ. 0) NOKMB(I) =-1\r\n      CALL CLOSE (MATRIX(I),CLSREW)\r\n      CALL CLOSE (DICTN(I),CLSREW)\r\n   10 CONTINUE\r\n      CALL CLOSE (EST,CLSREW)\r\nC\r\nC     HEAT ONLY - SET NONILINEAR FLAG BASED ON VALUE PREVIOUSLY SET BY\r\nC     HMAT ROUTINE\r\nC\r\n      IF (HEAT .AND. .NOT.LINEAR) NOKDGG = +1\r\n      IF (HEAT .AND.      LINEAR) NOKDGG = -1\r\nC\r\nC  WRITE TRAILERS FOR FILES PREPARED.\r\nC\r\n      IF (ERROR) GO TO 340\r\n      DO 40 I = 1,3\r\nC\r\nC     PRECISION IS STORED IN FIRST DATA WORD OF TRAILER.\r\nC\r\n      IF (FLAGS(I) .EQ. 0) GO TO 40\r\n      MCB(1) = MATRIX(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1)) 40,40,20\r\n   20 MCB(2) = PRECIS\r\n      MCB(3) = 0\r\n      MCB(4) = 0\r\n      MCB(5) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL WRTTRL (MCB)\r\nC\r\n      MCB(1) = DICTN(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1)) 40,40,30\r\n   30 MCB(2) = PRECIS\r\n      MCB(3) = 0\r\n      MCB(4) = 0\r\n      MCB(5) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL WRTTRL (MCB)\r\n   40 CONTINUE\r\n      IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 330\r\nC\r\nC     COMPUTE AND PRINT VOLUMES AND SURFACE AREAS FOR THE 2-D AND 3-D\r\nC     ELEM. IF USER REQUESTED VIA PARAM CARD.\r\nC\r\n      CALL CLOSE (SCR4,CLSREW)\r\n      IBUF1 = ICORE + 200\r\n      IBUF2 = IBUF1 + IBUF\r\n      CALL OPEN (*350,SCR4,Z(IBUF1),RDREW)\r\n      TVOL2 = 0.0\r\n      TVOL3 = 0.0\r\n      TMAS2 = 0.0\r\n      TMAS3 = 0.0\r\n      NREC  = 0\r\n      LINE  = NLPP\r\n      INP   = 0\r\nC\r\nC     CHECK ANY REQUEST TO SAVE VOLUME AND AREA COMPUTATIONS ON OUTPUT\r\nC     FILE SET INP TO APPROPRIATE VALUE IF IT IS AN INPI FILE\r\nC\r\n      MCB(1) = VAFILE\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) GO TO 70\r\n      CALL FNAME (VAFILE,Z(1))\r\n      DO 55 I = 1,10\r\n      IF (Z(1) .EQ. INPI(I)) GO TO 60\r\n   55 CONTINUE\r\n      GO TO 65\r\n   60 INP = I + 13\r\n      IF (INP.EQ.14 .AND. MACH.EQ.2) INP = 24\r\n      VAFILE = SCR3\r\n      MCB(1) = SCR3\r\n   65 CALL OPEN (*360,VAFILE,Z(IBUF2),WRTREW)\r\n      CALL WRITE (VAFILE,Z(1),    2,0)\r\n      CALL WRITE (VAFILE,HEAD(1),96,0)\r\n      CALL WRITE (VAFILE,DATE(1), 3,1)\r\n      NREC = 1\r\n   70 CALL READ (*210,*90,SCR4,RX,201,1,I)\r\n      WRITE  (NOUT,80)\r\n   80 FORMAT (' *** WARNING,   RX TOO SMALL IN EMGFIN ***')\r\n   90 NGPT = IX(6)\r\n      IF (NGPT .LT.    3) GO TO 70\r\n      IF (LINE .LT. NLPP) GO TO 130\r\n      LINE = 5\r\n      CALL PAGE1\r\n      WRITE  (NOUT,100) (I,I=1,6)\r\n  100 FORMAT (17X,'V O L U M E S,  M A S S E S,  A N D  S U R F A C E ',\r\n     1        ' A R E A S  O F  2-  A N D  3-  D  E L E M E N T S',\r\n     2        ///10X,7HELEMENT,8X,3HEID,8X,6HVOLUME,7X,4HMASS,1X,\r\n     3        6(3X,7HSURFACE,I2), /10X, 29(4H----),/)\r\n      IF (VOLUME .LE. 0.0) WRITE (NOUT,110)\r\n      IF (SURFAC .LE. 0.0) WRITE (NOUT,120)\r\n      IF (VOLUME.LE.0.0 .OR. SURFAC.LE.0.0) LINE=LINE+2\r\n  110 FORMAT (10X,42H(NO MASS AND VOLUME COMPUTATION REQUESTED),/)\r\n  120 FORMAT (10X,39H(NO SURFACE AREA COMPUTATION REQUESTED),/)\r\n  130 L = 5\r\nC\r\nC     ENTRIES IN RX ARRAY, AS SAVED IN SCR4 BY KTRIQD,KTETRA,IHEXI,\r\nC     EMGPRO\r\nC        RX( 1),RX(2) = ELEMENT BCD NAME\r\nC        IX( 3) = ELEMENT ID\r\nC        RX( 4) = VOLUME (SOLID), OR THICKNESS (PLATE)\r\nC        RX( 5) = TOTAL MASS (SOLID), OR DENSITY (PLATE)\r\nC        IX( 6) = NO. OF GRID POINTS, = NGPT\r\nC        IX(7)...IX(6+NGPT) = SIL OF THE GRID POINTS\r\nC        RX( 7+NPGT) = CID OF 1ST GRID POINT\r\nC        RX( 8+NPGT) = X COORD. OF 1ST GRID POINT\r\nC        RX( 9+NPGT) = Y COORD. OF 1ST GRID POINT\r\nC        RX(10+NPGT) = Z COORD. OF 1ST GRID POINT\r\nC        IX(11+NPGT...) = REPEAT FOR OTHER GRID POINTS\r\nC\r\nC     CALL SFAREA TO COMPUTE AREAS, 6 VALUES ARE RETURNED IN RX(6...11)\r\nC     AND NO. OF SURFACES IN NGPT\r\nC     VOLUME AND MASS ARE ALSO COMPUTED FOR THE PLATE ELEMENTS.\r\nC\r\n      DO 140 I = 1,NGPT\r\n  140 SIL(I) = IX(6+I)\r\n      LN = NGPT\r\n      CALL SFAREA (LN,RX,IX(NGPT+7))\r\n      L = 5\r\n      IF (SURFAC .GT. 0.0) L = 5 + LN\r\n      IF (VOLUME .GT. 0.0) WRITE (NOUT,160) (IX(I),I=1,3),(RX(I),I=4,L)\r\n      IF (VOLUME .LE. 0.0) WRITE (NOUT,170) (IX(I),I=1,3),(RX(I),I=6,L)\r\n  160 FORMAT (10X,2A4,I10, 2X,8E12.4)\r\n  170 FORMAT (10X,2A4,I10,26X,6E12.4)\r\n      LINE = LINE + 1\r\nC\r\n      IF (NREC .EQ. 0) GO TO 190\r\n      NREC = NREC + 1\r\n      IX(5) = (LN*100) + NGPT\r\n      CALL WRITE (VAFILE,RX(1),L,0)\r\n      N4 = NGPT*4\r\n      N7 = N4 + 7\r\n      J  = 1\r\n      DO 180 I = 7,N7,4\r\n      IX(I) = SIL(J)\r\n  180 J = J + 1\r\n      CALL WRITE (VAFILE,RX(NGPT+7),N4,1)\r\nC\r\nC     A RECORD IS SAVED IN VAFILE FOR EACH ELEM., HAVING THE FOLLOWING\r\nC     DATA\r\nC\r\nC        WORDS  1,2 ELEMENT BCD NAME\r\nC                 3 ELEMENT ID, INTEGER\r\nC                 4 VOLUME (3-D ELEMS), ZERO (2-D ELEMS), REAL\r\nC                 5 (NO. OF SURFACES, N)*100 + NO. OF GRID PTS, INTEGER\r\nC                 6 AREA OF FIRST SURFACE, REAL\r\nC        7 THRU 5+N REPEAT FOR N SURFACES, REAL\r\nC             5+N+1 SIL OF FIRST GRID POINT, INTEGER\r\nC         5+N+2,3,4 X,Y,Z COORDINATES OF THE FIRST GRID POINT, REAL\r\nC               ... REPEAT LAST 4 WORDS FOR OTHER GRID POINTS, REAL\r\nC\r\n  190 IF (VOLUME .LE. 0.0) GO TO 70\r\n      IF (NGPT   .GT.   1) GO TO 200\r\n      TVOL2 = TVOL2 + RX(4)\r\n      TMAS2 = TMAS2 + RX(5)\r\n      GO TO 70\r\n  200 TVOL3 = TVOL3 + RX(4)\r\n      TMAS3 = TMAS3 + RX(5)\r\n      GO TO 70\r\n  210 CALL CLOSE (SCR4,CLSREW)\r\n      IF (NREC .EQ. 0) GO TO 230\r\n      CALL CLOSE (VAFILE,CLSREW)\r\n      MCB(2) = NREC\r\n      DO 220 I = 3,7\r\n  220 MCB(I) = 0\r\n      CALL WRTTRL (MCB(1))\r\n  230 IF (VOLUME .LE. 0.0) GO TO 330\r\n      IF (TVOL2  .GT. 0.0) WRITE (NOUT,240) TVOL2,TMAS2,D2\r\n      IF (TVOL3  .GT. 0.0) WRITE (NOUT,240) TVOL3,TMAS3,D3\r\n  240 FORMAT (/6X,24H* TOTAL VOLUME AND MASS=,2E12.4,3H  (,A4,\r\n     1        9HELEMENTS))\r\n      IF (NREC .LE. 0) GO TO 330\r\nC\r\nC     IF OUTPUT FILE REQUESTED BY USER IS AN INPI FILE, COPY FROM VAFILE\r\nC     TO INPI, A FORTRAN WRITTEN BINARY FILE\r\nC\r\n      IF (INP .EQ. 0) GO TO 280\r\n      CALL OPEN (*360,VAFILE,Z(IBUF2),RDREW)\r\n  260 CALL READ (*280,*270,VAFILE,Z(1),IBUF2,1,J)\r\n      GO TO 370\r\n  270 WRITE (INP) (Z(I),I=1,J)\r\n      GO TO 260\r\n  280 CALL CLOSE (VAFILE,CLSREW)\r\n      CALL FNAME (207,Z(1))\r\n      WRITE  (NOUT,300) Z(1),Z(2),DATE\r\n  300 FORMAT ('0*** VOLUMES AND EXTERNAL SURFACE AREAS WERE SAVED IN ',\r\n     1        'OUTPUT FILE ',2A4,4H ON ,I2,1H/,I2,3H/19,I2)\r\n      IF (INP .EQ. 0) WRITE (NOUT,310)\r\n      IF (INP .NE. 0) WRITE (NOUT,320) INP\r\n  310 FORMAT (1H+,91X,21H(A GINO WRITTEN FILE))\r\n  320 FORMAT (1H+,91X,28H(A FORTRAN BINARY FILE, UNIT,I3,1H))\r\n  330 VOLUME = 0.0\r\n      SURFAC = 0.0\r\n      RETURN\r\nC\r\n  340 IF (VOLUME.NE.0. .OR. SURFAC.NE.0.) CALL CLOSE (SCR4,CLSREW)\r\n      GO TO 330\r\n  350 CALL MESAGE (-1,SCR4,SUB)\r\n  360 J = -1\r\n      GO TO 380\r\n  370 J = -8\r\n  380 CALL MESAGE (J,VAFILE,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emgold.f",
    "content": "      SUBROUTINE EMGOLD\r\nC\r\nC     THIS IS A DRIVING ROUTINE OF THE -EMG- MODULE WHICH ALLOWS PIVOT-\r\nC     POINT-LOGIC ELEMENT SUBROUTINES TO BE USED IN CONJUNCTION WITH THE\r\nC     NON-PIVOT-POINT PROCESS.\r\nC\r\n      LOGICAL          ERROR,LAST,HEAT,KHEAT,LHEAT,HYDRO\r\n      INTEGER          OUTPT,SIL,POSVEC,ELTYPE,ELID,ELEM,DICT,ESTWDS,\r\n     1                 ESTID,ESTBUF,FILTYP,PRECIS,MDICT(15),KDICT(15),\r\n     2                 BDICT(15),FLAGS,QP\r\n      DOUBLE PRECISION DUMMY\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM,SIM\r\n      COMMON /MACHIN/  MACH,DUM2(2),LQRO\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /GPTA1 /  NELEMS,NLAST,INCR,ELEM(1)\r\n      COMMON /EMGDIC/  ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /EMGEST/  ESTBUF(100)\r\n      COMMON /SMA1ET/  KECPT(100)\r\n      COMMON /SMA2ET/  MECPT(100)\r\n      COMMON /SMA1IO/  SMAIO(36)\r\n      COMMON /SMA1BK/  S1DUM(10)\r\n      COMMON /SMA2BK/  S2DUM(10)\r\n      COMMON /SMA1DP/  KWORK(700)\r\n      COMMON /SMA2DP/  MWORK(700)\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,KNPVT,SKIP19(19),KNOGO,KSAFE(200)\r\n      COMMON /SMA2CL/  IOPTB,BGGIND,MNPVT,SKIP17(17),MNOGO,SKIP2(2),\r\n     1                 MSAFE(200)\r\n      COMMON /EMG1BX/  NSILS,POSVEC(10),IBLOC,NBLOC,IROWS,DICT(15),\r\n     1                 FILTYP,SIL(10),LAST\r\n      COMMON /EMGPRM/  SKIPXX(15),FLAGS(3),PRECIS,ERROR,HEAT,ICMBAR,\r\n     1                 LCSTM,LMAT,LHMAT,KFLAGS(3),L38\r\n      COMMON /HYDROE/  HYDRO\r\n      COMMON /SMA1HT/  KHEAT\r\n      COMMON /SMA2HT/  LHEAT\r\n      COMMON /IEMGOD/  DUMMY,LTYPES\r\n      EQUIVALENCE      (KSYSTM(2),OUTPT), (KSYSTM(40),NBPW),\r\n     1                 (SMAIO(11),IFKGG), (SMAIO(13),IF4GG)\r\nC\r\n      KTEMP = KNOGO\r\n      MTEMP = MNOGO\r\n      QP    = MOD(LQRO/100,10)\r\n      JLTYPE= 2*(ELTYPE-1) + PRECIS\r\n      KHEAT = HEAT\r\n      LHEAT = HEAT\r\n      IZERO = INCR*(ELTYPE - 1)\r\n      IF (ELTYPE .EQ. LTYPES) GO TO 20\r\n      CALL PAGE2 (3)\r\n      INDEX = IZERO\r\n      IF (.NOT.HEAT) GO TO 3\r\n      IF (ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) INDEX = 15*INCR\r\n    3 IF (L38 .EQ. 1) WRITE (OUTPT,4) SIM,ELEM(INDEX+1),ELEM(INDEX+2)\r\n    4 FORMAT (A31,' 3107',/5X,'EMGOLD CALLED BY EMGPRO TO PROCESS ',2A4,\r\n     1       ' ELEMENTS.')\r\n      LTYPES = ELTYPE\r\n      GO TO 20\r\n    5 WRITE  (OUTPT,10) SWM,ELID,ELEM(IZERO+1),ELEM(IZERO+2)\r\n   10 FORMAT (A27,' 3121, EMGOLD HAS RECEIVED A CALL FOR ELEMENT ID',I9,\r\n     1       ' (ELEMENT TYPE ',2A4,2H)., /5X,'ELEMENT IGNORED AS THIS ',\r\n     2       'ELEMENT TYPE IS NOT HANDLED BY EMGOLD.')\r\n      GO TO 1220\r\nC\r\n   20 NSILS = ELEM(IZERO+10)\r\n      ISIL  = ELEM(IZERO+13)\r\n      IF (ELEM(IZERO+9) .NE. 0) ISIL = ISIL - 1\r\n      ESTWDS = ELEM(IZERO+12)\r\n      I1 = ISIL\r\n      I2 = ISIL + NSILS - 1\r\n      L  = NSILS\r\nC\r\nC     MOVE SILS TO SEPARATE ARRAY\r\nC\r\nC     SORT ARRAY OF SILS\r\nC\r\nC     POSITION VECTOR\r\nC\r\n      DO 80 I = I1,I2\r\n      IF (ESTBUF(I) .EQ. 0) GO TO 72\r\n      K = 1\r\n      DO 70 J = I1,I2\r\n      IF (ESTBUF(J) - ESTBUF(I)) 60,50,70\r\n   50 IF (J .GE. I) GO TO 70\r\n   60 IF (ESTBUF(J) .NE. 0) K = K + 1\r\n   70 CONTINUE\r\n      GO TO 74\r\n   72 K = L\r\n      L = L - 1\r\n   74 POSVEC(K) = I - I1 + 1\r\n   80 SIL(K) = ESTBUF(I)\r\nC\r\nC     ELIMINATE DUP SILS THAT MAY OCCUR,E.G. CHBDY WITH AMB.PTS.\r\nC\r\n      K = 1\r\n      ICOUNT = 1\r\n      DO 85 I = 2,NSILS\r\n   82 K = K + 1\r\n      IF (K .LE. NSILS) GO TO 84\r\n      SIL(I) = 0\r\n      POSVEC(I) = 0\r\n      GO TO 85\r\n   84 IF (SIL(K) .EQ. SIL(K-1)) GO TO 82\r\n      SIL(I) = SIL(K)\r\n      IF (SIL(K) .NE. 0) ICOUNT = ICOUNT + 1\r\n      POSVEC(I) = POSVEC(K)\r\n   85 CONTINUE\r\n      NSILS = ICOUNT\r\nC\r\nC     SETUP VALUES AND DICTIONARY IN /EMG1BX/ FOR EMG1B USE\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\nC\r\nC     PSUEDO SMA1-SMA2 FILE NUMBERS\r\nC\r\n      IFKGG = 201\r\n      IF4GG = 202\r\nC\r\nC     DICT(4) WILL BE RESET TO EITHER 1 OR 63 BY EMG1B\r\nC     BASED ON INCOMING DATA TO EMG1B\r\nC\r\n      DO 90 I = 5,15\r\n      DICT(I) = 0\r\n   90 CONTINUE\r\nC\r\nC     CALL ELEMENT FOR EACH PIVOT ROW\r\nC\r\n      LAST  = .FALSE.\r\n      KNOGO = 0\r\n      MNOGO = 0\r\n      DO 1210 I = 1,NSILS\r\n      IF (I .EQ. NSILS) LAST = .TRUE.\r\nC\r\nC     STIFFNESS MATRIX\r\nC\r\n      IF (FLAGS(1) .EQ. 0) GO TO 550\r\nC\r\nC     RESTORE K-DICTIONARY IF NECESSARY\r\nC\r\n      IF (I .EQ. 1) GO TO 110\r\n      DO 100 L = 1,15\r\n      DICT(L) = KDICT(L)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      FILTYP = 1\r\nC\r\nC     IOPT4 IS TURNED ON SO THAT DAMPING CONSTANTS ARE SENT TO EMG1B\r\nC     IN ALL AVAILABLE CASES BY ELEMENT ROUTINES.  MATRIX DATA WILL BE\r\nC     IGNORED BY EMG1B ON EMG1B CALLS SENDING DAMPING CONSTANTS.\r\nC     DAMPING CONSTANTS WILL BE PLACED IN 5TH WORD OF ELEMENT DICTIONARY\r\nC     ENTRY.\r\nC\r\n      IOPT4  = 1\r\n      K4GGSW = 0\r\n      KNPVT  = SIL(I)\r\nC\r\nC     FULL 6X6 MATRIX FORCED FOR STIFFNESS WITH OLD ELEMENT ROUTINES\r\nC\r\n      DICT(2) = 1\r\n      IF (SIL(I) .NE. 0) GO TO 115\r\n      CALL EMG1B (DUMMY,0,1,1,0)\r\n      GO TO 520\r\n  115 CONTINUE\r\n      DO 120 L = 1,ESTWDS\r\n      KECPT(L) = ESTBUF(L)\r\n  120 CONTINUE\r\n      HYDRO = .FALSE.\r\n      IF (ELTYPE.GE.76 .AND. ELTYPE.LE.79) HYDRO = .TRUE.\r\nC\r\nC     CALL THE PROPER ELEMENT STIFFNESS ROUTINE\r\nC\r\n      LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 130,130,140\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 C.....    3 CTUBE     4 CSHEAR    5 CTWIST\r\n  130 GO TO (  5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1,      190,  190,    5,    5,  210,  210,    5,    5,    5,    5\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2,        5,    5,    5,    5,    5,    5,    5,    5,  280,  280\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3,      290,  290,  300,  300,  310,  310,  320,  320,    5,    5\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            31 PLOTEL   32 C.....   33 C.....   34 CBAR     35 CCONEAX\r\n     6,      520,  520,    5,    5,    5,    5,    5,    5,  340,  345\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7,      350,  350,  370,  370,    5,    5,  400,  400,  410,  410\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8,      420,  420,  430,  430,  440,  440,  450,  450,  460,  460\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9,      520,  520,  440,  440,  450,  450,  460,  460,  470,  470\r\nC\r\n     *      ), JLTYPE\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  140 GO TO (480,  480,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQDMEM3  65 CIHEX1\r\n     C,        5,    5,  292,  292,  295,  294,    5,    5,    5,    5\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F,      420,  420,  430,  430,  400,  400,  410,  410,    5,    5\r\nC\r\nC            81 CELBOW   82 FTUBE    83 CTRIA3   84 CPSE2    85 CPSE3\r\n     G,      390,  390,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            86 CPSE4\r\n     H,        5,    5\r\nC\r\n     *      ), LOCAL\r\nC\r\nC\r\nC     IN -HEAT- FORMULATIONS SOME ELEMENTS ARE IGNORED (OPTION(1)=HEAT)\r\nC     IN STRUCTURE PROBLEMS SOME ELEMENTS ARE IGNORED (OPTION(1)=STRUCT)\r\nC\r\n  190 CALL KTRIQD (1)\r\n      GO TO 520\r\n  210 CALL KTRPLT\r\n      GO TO 520\r\n  280 CALL KQDPLT\r\n      GO TO 520\r\n  290 CALL KQDMEM\r\n      GO TO 520\r\nC\r\nC     REPLACE ELEMENT TYPE CQDMEM1 BY ELEMENT TYPE CQDMEM\r\nC     IN -HEAT- FORMULATION\r\nC\r\n  292 IF (HEAT) GO TO 290\r\n      GO TO 5\r\nC\r\nC     REPLACE ELEMENT TYPE CQDMEM2 BY ELEMENT TYPE CQDMEM\r\nC     IN -HEAT- FORMULATION\r\nC\r\n  294 IF (HEAT) GO TO 290\r\n      GO TO 5\r\nC\r\nC     REPLACE ELEMENT TYPE CQDMEM2 BY ELEMENT TYPE CQDMEM\r\nC     IN -HEAT- FORMULATION\r\nC\r\n  295 IF (HEAT) GO TO 290\r\n      GO TO 5\r\n  300 CALL KTRIQD (2)\r\n      GO TO 520\r\n  310 CALL KTRIQD (4)\r\n      GO TO 520\r\n  320 CALL KTRIQD (3)\r\n      GO TO 520\r\n  340 CALL KCONES\r\n      GO TO 520\r\n  343 CALL KCONE2\r\n      GO TO 520\r\n  345 IF (MACH .EQ.  3) GO TO 340\r\n      IF (NBPW .GE. 60) GO TO 343\r\n      IF (QP .EQ. 0) CALL KCONED\r\n      IF (QP .NE. 0) CALL KCONEQ\r\n      GO TO 520\r\n  350 IF (HEAT) GO TO 360\r\n      IF (KNOGO .EQ. 2) GO TO 1210\r\n      CALL KTRIRG\r\n      IF (KNOGO .EQ. 2) GO TO 1210\r\n      GO TO 520\r\n  360 CALL HRING (3)\r\n      GO TO 520\r\n  370 IF (HEAT) GO TO 380\r\n      CALL KTRAPR\r\n      GO TO 520\r\n  390 CALL KELBOW\r\n      GO TO 520\r\n  380 CALL HRING (4)\r\n      GO TO 520\r\n  400 CALL KTETRA (0,0)\r\n      GO TO 520\r\n  410 CALL KSOLID (1)\r\n      GO TO 520\r\n  420 CALL KSOLID (2)\r\n      GO TO 520\r\n  430 CALL KSOLID (3)\r\n      GO TO 520\r\n  440 CALL KFLUD2\r\n      GO TO 520\r\n  450 CALL KFLUD3\r\n      GO TO 520\r\n  460 CALL KFLUD4\r\n      GO TO 520\r\n  470 CALL KSLOT (0)\r\n      GO TO 520\r\n  480 CALL KSLOT (1)\r\n      GO TO 520\r\nC\r\nC     OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B-\r\nC\r\n  520 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0)\r\nC\r\nC     SAVE K-DICTIONARY\r\nC\r\n      DO 530 L = 1,15\r\n      KDICT(L) = DICT(L)\r\n  530 CONTINUE\r\nC\r\nC     MASS MATRIX M\r\nC\r\n  550 IF (FLAGS(2) .EQ. 0) GO TO 1090\r\n      IF (HEAT) GO TO 1090\r\nC\r\nC     RESTORE M-DICTIONARY IF NECESSARY\r\nC\r\n      IF (I .EQ. 1) GO TO 570\r\n      DO 560 L = 1,15\r\n      DICT(L) = MDICT(L)\r\n  560 CONTINUE\r\n  570 CONTINUE\r\n      FILTYP = 2\r\n      IOPTB  = 0\r\n      BGGIND =-1\r\n      MNPVT  = SIL(I)\r\n      DICT(2)= 1\r\n      IF (SIL(I) .NE. 0)  GO TO 575\r\n      CALL EMG1B (DUMMY,0,1,2,0)\r\n      GO TO 1060\r\n  575 CONTINUE\r\n      DO 580 L = 1,ESTWDS\r\n      MECPT(L) = ESTBUF(L)\r\n  580 CONTINUE\r\nC\r\nC     CALL THE PROPER ELEMENT MASS ROUTINE.\r\nC\r\n  590 LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 600,600,610\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 C.....    3 CTUBE     4 CSHEAR    5 CTWIST\r\n  600 GO TO (  5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1,      670,  670,    5,    5,  710,  710,    5,    5,    5,    5\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2,        5,    5,    5,    5,    5,    5,    5,    5,  740,  740\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3,      760,  760,  770,  770,  790,  790,  810,  810,    5,    5\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            31 PLOTEL   32 C.....   33 C.....   34 CBAR     35 CCONEAX\r\n     6,     1060, 1060,    5,    5,    5,    5,    5,    5,  910,  910\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7,      930,  930,  940,  940,    5,    5,  960,  960,  970,  970\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8,      980,  980,  990,  990, 1000, 1000, 1010, 1010, 1020, 1020\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9,     1030, 1030, 1000, 1000, 1010, 1010, 1020, 1020, 1040, 1040\r\nC\r\n     *     ), JLTYPE\r\nC\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  610 GO TO (1050,1050,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQDMEM3  65 CIHEX1\r\n     C,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E,        5,    5,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F,     1060, 1060, 1060, 1060, 1060, 1060, 1060, 1060,    5,    5\r\nC\r\nC            81 CELBOW   82 FTUBE    83 CTRIA3   84 CPSE2    85 CPSE3\r\n     G,      950,  950,    5,    5,    5,    5,    5,    5,    5,    5\r\nC\r\nC            86 CPSE4\r\n     H,        5,    5\r\nC\r\n     *      ), LOCAL\r\nC\r\nC\r\nC     CONVENTIONAL MASS MATRIX GENERATION ROUTINE CALLED WHEN\r\nC     ICMBAR .LT. 0\r\nC     OTHERWISE CONSISTENT MASS MATRIX GENERATION ROUTINE CALLED\r\nC\r\n  670 IF (ICMBAR .LT. 0) GO TO 680\r\n      CALL MTRIQD (1)\r\n      GO TO 1060\r\n  680 CALL MASSTQ (5)\r\n      GO TO 1060\r\nC\r\n  710 IF (ICMBAR .LT. 0) GO TO 720\r\n      CALL MTRPLT\r\n      GO TO 1060\r\n  720 CALL MASSTQ (3)\r\n      GO TO 1060\r\nC\r\n  740 IF (ICMBAR .LT. 0) GO TO 750\r\n      CALL MQDPLT\r\n      GO TO 1060\r\n  750 CALL MASSTQ (7)\r\n      GO TO 1060\r\n  760 CALL MASSTQ (1)\r\n      GO TO 1060\r\nC\r\n  770 IF (ICMBAR .LT. 0) GO TO 780\r\n      CALL MTRIQD (2)\r\n      GO TO 1060\r\n  780 CALL MASSTQ (4)\r\n      GO TO 1060\r\nC\r\n  790 IF (ICMBAR .LT. 0) GO TO 800\r\n      CALL MTRIQD (4)\r\n      GO TO 1060\r\n  800 CALL MASSTQ (1)\r\n      GO TO 1060\r\nC\r\n  810 IF (ICMBAR .LT. 0) GO TO 820\r\n      CALL MTRIQD (3)\r\n      GO TO 1060\r\n  820 CALL MASSTQ (2)\r\n      GO TO 1060\r\n  910 CALL MCONE\r\n      GO TO 1060\r\n  930 IF (MNOGO .EQ. 2) GO TO 1210\r\n      IF (HEAT) GO TO 935\r\n      CALL MTRIRG\r\n      IF (MNOGO .EQ. 2) GO TO 1210\r\n      GO TO 1060\r\n  935 CALL MRING (3)\r\n      GO TO 1060\r\n  940 IF (HEAT) GO TO 945\r\n      CALL MTRAPR\r\n      GO TO 1060\r\n  945 CALL MRING (4)\r\n      GO TO 1060\r\n  950 CALL MELBOW\r\n      GO TO 1060\r\n  960 CALL MSOLID (1)\r\n      GO TO 1060\r\n  970 CALL MSOLID (2)\r\n      GO TO 1060\r\n  980 CALL MSOLID (3)\r\n      GO TO 1060\r\n  990 CALL MSOLID (4)\r\n      GO TO 1060\r\n 1000 CALL MFLUD2\r\n      GO TO 1060\r\n 1010 CALL MFLUD3\r\n      GO TO 1060\r\n 1020 CALL MFLUD4\r\n      GO TO 1060\r\n 1030 CALL MFREE\r\n      GO TO 1060\r\n 1040 CALL MSLOT (0)\r\n      GO TO 1060\r\n 1050 CALL MSLOT (1)\r\n      GO TO 1060\r\nC\r\nC     OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B-\r\nC\r\n 1060 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0)\r\n      IF (HEAT) GO TO 1185\r\nC\r\nC     SAVE M-DICTIONARY\r\nC\r\n      DO 1070 L = 1,15\r\n      MDICT(L) = DICT(L)\r\n 1070 CONTINUE\r\nC\r\nC     DAMPING MATRIX B\r\nC\r\n 1090 IF (FLAGS(3) .EQ. 0) GO TO 1210\r\n      IF (.NOT.HEAT) GO TO 1210\r\nC\r\nC     RESTORE B-DICTIONARY IF NECESSARY\r\nC\r\n      IF (I .EQ. 1) GO TO 1110\r\n      DO 1100 L = 1,15\r\n      DICT(L) = BDICT(L)\r\n 1100 CONTINUE\r\n 1110 FILTYP = 3\r\n      IOPTB  =-1\r\n      BGGIND =-1\r\n      MNPVT  = SIL(I)\r\n      DICT(2)= 1\r\n      IF (SIL(I) .NE. 0) GO TO 1115\r\n      CALL EMG1B (DUMMY,0,1,3,0)\r\n      GO TO 1180\r\n 1115 DO 1120 L = 1,ESTWDS\r\n      MECPT(L) = ESTBUF(L)\r\n 1120 CONTINUE\r\n      GO TO 590\r\nC\r\nC     OUTPUT THE PIVOT ROW PARTITION NOW COMPLETED BY -EMG1B-\r\nC\r\n 1180 CALL EMG1B (0.0D0,-1111111,0,0,0.0D0)\r\nC\r\nC     SAVE DICTIONARY\r\nC\r\n 1185 DO 1190 L = 1,15\r\n      BDICT(L) = DICT(L)\r\n 1190 CONTINUE\r\nC\r\n 1210 CONTINUE\r\n      IF (KNOGO .EQ. 0) KNOGO = KTEMP\r\n      IF (MNOGO .EQ. 0) MNOGO = MTEMP\r\nC\r\n 1220 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emgout.f",
    "content": "      SUBROUTINE EMGOUT (RBUF,DBUF,LBUF,EOE,DICT,FILE,INPREC)\r\nC\r\nC     THIS ROUTINE OF THE -EMG- MODULE WRITES THE DATA IN -BUF- TO\r\nC     -FILE-.\r\nC\r\nC     BEFORE CALLING THIS ROUTINE THE CALLING ROUTINE SETS UP THE\r\nC     FOLLOWING ARGUMENTS.....\r\nC\r\nC     RBUF,DBUF  =  BOTH POINT TO THE SAME MATRIX ARRAY CONTAINING THE\r\nC                   MATRIX DATA TO BE OUTPUT.\r\nC\r\nC     LBUF   = NUMBER OF DATA VALUES TO BE OUTPUT ON CURRENT CALL NOT\r\nC              CONSIDERING THE PRECISION OF THE DATA VALUES.\r\nC\r\nC     EOE    = SEE BELOW.\r\nC\r\nC     DICT   = ARRAY OF SIZE NLOCS (SEE BELOW) + 5.  WORDS 1 THROUGH 5\r\nC              OF THIS ARRAY ARE SET BY THE CALLING ROUITNE.(SEE BELOW)\r\nC\r\nC     FILE   = SET TO 1 IF STIFFNESS MATRIX\r\nC              SET TO 2 IF MASS MATRIX\r\nC              SET TO 3 IF DAMPING MATRIX\r\nC\r\nC     INPREC = PRECISION OF THE DATA  RBUF AND DBUF POINT TO.\r\nC              SET = 1 IF SINGLE AND SET TO 2 IF DOUBLE.\r\nC\r\nC     --- IMPORTANT--- UNDER NO CIRCUMSTANCES SHOULD THE CALLING PROGRAM\r\nC     MODIFY DATA IN COMMON BLOCK /EMGDIC/.\r\nC\r\nC     NOTE.  ON EACH CALL TO THIS ROUTINE THE CALLING ROUTINE MUST SEND\r\nC     AN AMOUNT OF DATA FOR ONE OR MORE GRID POINT-PARTITIONS OF THE\r\nC     TOTAL ELEMENT MATRIX.  THIS IS CONSIDERING DEGREES OF FREEDOM AND\r\nC     ANY CONDENSATION OF THE DATA IF A DIAGONAL MATRIX IS BEING SENT.)\r\nC\r\nC     IE. FOR A MATRIX WHERE 6 DEGREES OF FREEDOM ARE LISTED IN THE CODE\r\nC     WORD OF THE DICTIONARY THEN THE FOLLWING WOULD BE CONSIDERED.\r\nC\r\nC     IF THE MATRIX WAS DIAGONAL THE VALUE OF LBUF WOULD BE SIMPLY\r\nC     (0 TO NLOCS) TIMES 6\r\nC\r\nC     IF THE MATRIX WAS SQUARE THEN LBUF WOULD BE\r\nC     (0 TO NLOCS) TIMES 6 TIMES NLOCS TIMES 6.  NOTE THE PRECISION DOES\r\nC     NOT ENTER INTO THE CALCULATION OF LBUF BY THE CALLING ROUTINE)\r\nC\r\nC     IF -EOE- IS GREATER THAN 0, INDICATING END-OF-ELEMENT-DATA, THE\r\nC     DICTIONARY WILL BE WRITTEN TO THE APPROPRIATE COMPANION FILE\r\nC     OF -FILE-.  IF CONGRUENT LOGIC IS ACTIVE THE DICTIONARY WILL\r\nC     ALSO BE PLACED IN CORE IF POSSIBLE.\r\nC\r\nC     CHECKS TO INSURE THAT THE CALLING ROUTINE SENT A REASONABLY\r\nC     CORRECT AMOUNT OF MATRIX DATA ARE MADE BY THIS ROUTINE.\r\nC\r\nC     DICTIONARY FORMAT 1)ELEMENT-COUNTER-ID-POSITON-IN-EST\r\nC     ================= 2)F = 1 IF SQUARE, = 2 IF DIAGONAL FORMAT DATA.\r\nC     DICTIONARY        3)N = NUMBER OF CONNECTED GRID POINTS * FREEDOMS\r\nC     CAN EXPAND        4)COMPONENT-CODE-WORD\r\nC     THROUGH THE       5)DAMPING CONSTANT\r\nC     MIDDLE.                    .\r\nC           LDICT-NLOC+1)GINO-LOC. (FIRST PARTITION)\r\nC                                .\r\nC                                .\r\nC                                . (NLOCS GINO-LOC VALUES)\r\nC                                .\r\nC                LDICT-1)GINO-LOC. (NEXT TO LAST PARTITION)\r\nC                  LDICT)GINO-LOC. (LAST PARTITION OF THIS ELEMENT IF\r\nC                                  ALL -NLOCS- GRID POINTS CONNECTED.)\r\nC\r\nC     THIS ROUTINE WILL WRITE PARTITIONS OF THE MATRIX WHERE THE NUMBER\r\nC     OF COLUMNS IN EACH PARTITION WRITTEN EQUALS ACTIVE FREEDOMS\r\nC     WHICH = NUMBER OF BITS ON IN THE CODE WORD ( DICT(4) ).\r\nC\r\nC     THE VALUES OF DICT(1), DICT(2), DICT(3), DICT(4), AND DICT(5) MUST\r\nC     REMAIN CONSTANT BETWEEN CALLS TO THIS ROUTINE WITH RESPECT TO\r\nC     A PARTICULAR ELEMENT ID AND FILE TYPE.\r\nC\r\nC     ONE OR MORE PARTITIONS WILL BE WRITTEN ON EACH CALL.\r\nC\r\n      LOGICAL          ANYCON, ERROR, HEAT\r\n      INTEGER          LOCS(3), OUTPT, DICT(5), FILE, EOE, Z,\r\n     1                 DICTN, NLOCS, PART(3), ELTYPE, ELID, EOR, PRECIS,\r\n     2                 ESTID, FLAGS, QFILE, FREDMS(3)\r\n      REAL             RBUF(LBUF)\r\n      DOUBLE PRECISION DBUF(LBUF), DA\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /BLANK /  XXXXX(3), NOK4GG\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /EMGDIC/  ELTYPE, LDICT, NLOCS, ELID, ESTID\r\n      COMMON /EMGFIL/  MISC(5), MATRIX(3), DICTN(3)\r\n      COMMON /EMGPRM/  ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT, ICMBAR,\r\n     3                 LCSTM, LMAT, LHMAT, KFLAGS(3)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /IEMGOT/  NVAL(3)\r\n      EQUIVALENCE      (KSYSTM(2), OUTPT), (FFF,IFFF)\r\n      DATA    EOR   ,  NOEOR, MAXFIL / 1, 0, 3 /\r\nC\r\n      IF (ERROR) RETURN\r\n      IF (FILE.GE.1 .AND. FILE.LE.MAXFIL) GO TO 30\r\nC\r\nC     ILLEGAL FILE VALUE\r\nC\r\n      WRITE  (OUTPT,10) SFM,FILE\r\n   10 FORMAT (A25,' 3108, EMGOUT RECEIVES ILLEGAL FILE TYPE =',I10)\r\n   20 ERROR = .TRUE.\r\n      RETURN\r\nC\r\nC     ON FIRST CALL TO THIS ROUTINE FOR THIS ELEMENT THE SIZE OF COLUMN\r\nC     AND SIZE OF PARTITION BEING WRITTEN IS SET.\r\nC     IF NVAL(FILE) .GT. 0 THEN THIS IS NOT THE FIRST CALL.\r\nC\r\n   30 IF (KFLAGS(FILE) .EQ. 0) RETURN\r\n      IF (NVAL(FILE)) 40,40,80\r\n   40 NVAL(FILE) = DICT(3)\r\nC\r\nC     DETERMINE NUMBER OF ACTIVE FREEDOMS BY COUNTING BITS ON IN CODE\r\nC     WORD.  THIS CODE ADDED AS AN TEMPORARY NECESSITY.\r\nC\r\n      IF (DICT(4) .EQ. 63) GO TO 46\r\n      I = DICT(4)\r\n      ITEMP = 0\r\n      DO 45 J = 1,31\r\n      IF (MOD(I,2)) 44,44,43\r\n   43 ITEMP = ITEMP + 1\r\n   44 I = I / 2\r\n      IF (I) 47,47,45\r\n   45 CONTINUE\r\n      GO TO 47\r\nC\r\n   46 ITEMP = 6\r\n   47 FREDMS(FILE) = ITEMP\r\nC\r\nC     CHECK NUMBER OF ACTIVE GRID POINTS FOR THIS ELEMENT TO BE\r\nC     LESS THAN OR EQUAL TO NLOCS.\r\nC\r\n      IGRIDS = DICT(3)/FREDMS(FILE)\r\n      IF (IGRIDS .LE. NLOCS) GO TO 48\r\n      WRITE  (OUTPT,42) SFM,IGRIDS,ELID\r\n   42 FORMAT (A25,' 3122,  EMGOUT HAS DETERMINED THAT THERE ARE',I10,\r\n     1       ' CONNECTING GRID POINTS FOR ELEMENT ID =',I10, /5X,\r\n     2       'THIS IS GREATER THAN THE MAXIMUM AS PER /GPTA1/ TABLE ',\r\n     3       'FOR THE TYPE OF THIS ELEMENT. PROBABLE ERROR IN ELEMENT',\r\n     4       ' ROUTINE PROGRAM')\r\n      GO TO 20\r\nC\r\n   48 LOCS(FILE) = LDICT - NLOCS\r\nC\r\nC     ZERO ALL GINO-LOC SLOTS IN DICTIONARY.\r\nC\r\n      I = LDICT - NLOCS + 1\r\n      DO 49 J = I,LDICT\r\n      DICT(J) = 0\r\n   49 CONTINUE\r\n      IF (DICT(2) .EQ. 1) GO TO 60\r\n      IF (DICT(2) .EQ. 2) GO TO 70\r\n      WRITE  (OUTPT,50) SFM,DICT(2),ELID\r\n   50 FORMAT (A25,' 3109, EMGOUT HAS BEEN SENT AN INVALID DICTIONARY ',\r\n     1       'WORD-2 =',I10,' FROM ELEMENT ID =',I10)\r\n      GO TO 20\r\nC\r\nC     FULL SQUARE MATRIX WILL BE OUTPUT. (VALUES PER PARTITION TO WRITE)\r\nC\r\n   60 PART(FILE) = DICT(3)*FREDMS(FILE)\r\n      GO TO 80\r\nC\r\nC     DIAGONAL MATRIX.  (VALUES PER PARTITION TO WRITE)\r\nC\r\n   70 PART(FILE) = FREDMS(FILE)\r\nC\r\nC     WRITE MATRIX DATA TO FILE DESIRED.\r\nC\r\n   80 NWORDS = PART(FILE)\r\n      IF (MOD(LBUF,NWORDS)) 90,110,90\r\n   90 WRITE  (OUTPT,100) SFM,ELID\r\n  100 FORMAT (A25,' 3110, EMGOUT HAS BEEN CALLED TO WRITE AN INCORRECT',\r\n     1       ' NUMBER OF WORDS FOR ELEMENT ID =',I10)\r\n      GO TO 20\r\nC\r\n  110 ILOC = LOCS(FILE)\r\n      IF (LBUF .LE. 0) GO TO 130\r\n      QFILE = MATRIX(FILE)\r\n      IF (INPREC .NE. PRECIS) GO TO 121\r\nC\r\nC     INPUT AND OUTPUT PRECISIONS ARE THE SAME\r\nC\r\n      N2WORD = PRECIS*NWORDS\r\n      K = 1\r\n      DO 120 I = 1,LBUF,NWORDS\r\n      ILOC = ILOC + 1\r\n      CALL WRITE (QFILE,RBUF(K),N2WORD,EOR)\r\n      CALL SAVPOS (QFILE,DICT(ILOC))\r\n      K = K + N2WORD\r\n  120 CONTINUE\r\n      GO TO 129\r\nC\r\nC     INPUT PRECISION IS DIFFERENT FROM OUTPUT PRECISION\r\nC\r\n  121 K = 0\r\n      DO 126 I = 1,LBUF,NWORDS\r\n      K = K + NWORDS\r\n      IF (PRECIS .EQ. 2) GO TO 123\r\nC\r\nC     DOUBLE PRECISION INPUT AND SINGLE PRECISION OUTPUT\r\nC\r\n      DO 122 J = I,K\r\n      RA = DBUF(J)\r\n      CALL WRITE (QFILE,RA,1,NOEOR)\r\n  122 CONTINUE\r\n      GO TO 125\r\nC\r\nC     SINGLE PRECISION INPUT AND DOUBLE PRECISION OUTPUT\r\nC\r\n  123 DO 124 J = I,K\r\n      DA = RBUF(J)\r\n      CALL WRITE (QFILE,DA,2,NOEOR)\r\n  124 CONTINUE\r\n  125 ILOC = ILOC + 1\r\n      CALL WRITE (QFILE,0,0,EOR)\r\n      CALL SAVPOS (QFILE,DICT(ILOC))\r\n  126 CONTINUE\r\nC\r\n  129 LOCS(FILE) = ILOC\r\nC\r\nC     IF -EOE- .GT. 0 (IMPLYING END-OF-ELEMENT-DATA) WRITE\r\nC     OUT THE COMPLETED DICTIONARY.\r\nC\r\n  130 IF (EOE) 140,140,150\r\n  140 RETURN\r\nC\r\nC     OK -EOE- IS ON.  FIRST WRITE DICTIONARY OUT.\r\nC     INSURE ALL -LOCS- SET CONSIDERING THE NUMBER OF ACTIVE GRID POINTS\r\nC     FOR THIS PARTICULAR ELEMENT.\r\nC\r\n  150 IF (LOCS(FILE) .EQ. LDICT-NLOCS+DICT(3)/FREDMS(FILE)) GO TO 170\r\n      WRITE  (OUTPT,160) SFM,ELID,FILE\r\n  160 FORMAT (A25,' 3111, INVALID NUMBER OF PARTITIONS WERE SENT EMGOUT'\r\n     1,      ' FOR ELEMENT ID =',I10, /5X,'WITH RESPECT TO DATA BLOCK ',\r\n     2       'TYPE =',I3,1H.)\r\n      GO TO 20\r\nC\r\n  170 IF (FLAGS(FILE) .GE. 0) GO TO 172\r\n      FLAGS(FILE) = IABS(FLAGS(FILE))\r\n      CALL WRITE (DICTN(FILE),ELTYPE,3,NOEOR)\r\n  172 FLAGS(FILE) = FLAGS(FILE) + 1\r\n      CALL WRITE (DICTN(FILE),DICT,LDICT,NOEOR)\r\n      NVAL(FILE)  = 0\r\nC\r\nC     EXISTENCE OF NON-ZERO DAMPING CONSTANT TURNS ON NOK4GG FLAG.\r\nC\r\n      IF (NOK4GG) 177,177,179\r\n  177 IFFF = DICT(5)\r\n      IF (FFF) 178,179,178\r\n  178 NOK4GG = 1\r\nC\r\nC     CHECK FOR THIS ELEMENT BEING IN CONGRUENT LIST.\r\nC\r\nC     EMGOUT WILL NEVER BE CALLED FOR AN ELEMENT WHICH IS IN THE\r\nC     CONGRUENT LIST AND ALREADY HAS A DICTIONARY.\r\nC\r\n  179 IF (.NOT. ANYCON) GO TO 140\r\n      CALL BISLOC (*140,ELID,Z(ICONG),2,LCONG/2,J)\r\nC\r\nC     OK ELEMENT IS CONGRUENT, FIND PRIMARY ID.\r\nC\r\n      IADD   = ICONG + J\r\n  180 IPRIME = Z(IADD)\r\nC\r\nC     IPRIME .GT. 0 POINTS TO PRIMARY ID\r\nC     IPRIME .EQ. 0 IS PRIMARY ID TABLE POINTER AND NO TABLE EXISTS\r\nC     IPRIME .LT. 0 IS TABLE POINTER NEGATED.\r\nC\r\n      IF (IPRIME) 260,210,200\r\nC\r\nC     IPRIME POINTS TO PRIMARY ID\r\nC\r\n  200 IADD = IPRIME + 1\r\n      GO TO 180\r\nC\r\nC     IPRIME IS TABLE POINTER AND NONE EXISTS YET.\r\nC     THUS ADD ONE TO CORE, FROM THE BOTTOM OF CORE.\r\nC\r\n  210 IF (NCORE-MAXFIL .GT. JCORE) GO TO 240\r\nC\r\nC     NOT ENOUGH CORE SO CONGRUENCY IS IGNORED.\r\nC\r\n      ICRQ = JCORE - NCORE + MAXFIL\r\n  220 CALL PAGE2 (4)\r\n      WRITE  (OUTPT,230) UIM,ELID\r\n  230 FORMAT (A29,' 3112, ELEMENTS CONGRUENT TO ELEMENT ID =',I10, /5X,\r\n     1       'WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT ',\r\n     2       'THIS MOMENT TO HOLD DICTIONARY DATA.')\r\n      WRITE  (OUTPT,232) ICRQ\r\n  232 FORMAT (5X,24HADDITIONAL CORE NEEDED =,I8,7H WORDS.)\r\n      GO TO 140\r\nC\r\nC     ALLOCATE SMALL TABLE FOR POINTERS TO DICTIONARY FOR EACH FILE TYPE\r\nC     POSSIBLE.\r\nC\r\nC     NOTE THAT THE ELEMENT-ID (IF SECONDARY) WILL HAVE A POINTER TO THE\r\nC     PRIMARY-ID.  THE PRIMARY-ID  THEN WILL HAVE A POINTER TO A TABLE\r\nC     OF SIZE -MAXFIL- POINTING TO -MAXFIL- DICTIONARYS.  (SOME OF WHICH\r\nC     MAY NOT YET OR EVER BE CREATED).\r\nC     NO CORE IS USED UNTIL A DICTIONARY IS CREATED.\r\nC\r\n  240 I2    = NCORE\r\n      NCORE = NCORE - MAXFIL\r\n      I1    = NCORE + 1\r\n      DO 250 I = I1,I2\r\n      Z(I)  = 0\r\n  250 CONTINUE\r\nC\r\nC     STORE ZERO ADDRESS OF THIS TABLE WITH PRIMARY ID.\r\nC\r\n      Z(IADD) = -NCORE\r\n      IPRIME  = -NCORE\r\nC\r\nC     IPRIME IS NEGATIVE ZERO POINTER TO FILE-DICTIONARY-TABLE FOR THIS\r\nC     CONGRUENCY SET.\r\nC\r\n  260 ITAB = -IPRIME\r\nC\r\nC     ALLOCATE DICTIONARY SPACE IN CORE, IF THERE IS CORE,\r\nC     SET FILE POSITION IN TABLE TO POINT TO THIS DICTIONARY,\r\nC     AND STORE THE DICTIONARY.\r\nC\r\n      IF (NCORE-LDICT .GT. JCORE) GO TO 270\r\nC\r\nC     INSUFFICIENT CORE THUS IGNORE CONGRUENCY, AND FOR SAFETY\r\nC     PURGE THIS CONGRUENCY FOR ALL FILES.\r\nC\r\n      ICRQ = JCORE - NCORE + LDICT\r\n      Z(IADD) = 0\r\n      GO TO 220\r\nC\r\nC     ALLOCATE AND WRITE DICTIONARY\r\nC\r\n  270 NCORE = NCORE - LDICT\r\n      J = NCORE\r\n      DO 280 I = 1,LDICT\r\n      J = J + 1\r\n      Z(J) = DICT(I)\r\n  280 CONTINUE\r\nC\r\nC     STORE DICTIONARY ADDRESS IN TABLE(FILE), WHERE TABLE BEGINS\r\nC     AT Z(ITAB+1).\r\nC\r\n      Z(ITAB+FILE) = NCORE + 1\r\n      GO TO 140\r\n      END\r\n"
  },
  {
    "path": "mis/emgpro.f",
    "content": "      SUBROUTINE EMGPRO (IBUF)\r\nC\r\nC     THIS ROUTINE OF THE -EMG- MODULE IS THE MAIN PROCESSOR.  IT WILL\r\nC     PASS THE -EST- DATA BLOCK ONCE, ELEMENT TYPE BY ELEMENT TYPE.\r\nC\r\nC     ELEMENT TYPES CONTRIBUTING TO STIFFNESS, MASS, OR DAMPING MATRICES\r\nC     WILL BE PROCESSED.\r\nC\r\n      LOGICAL          ANYCON, ERROR, HEAT\r\n      INTEGER          Z, EST, CSTM, DIT, GEOM2, DICTN, SAVJCR, ELID,\r\n     1                 OUTPT, EOR, SUBR(2), ELTYPE, PRECIS, ESTBUF,\r\n     2                 ELEM, ESTWDS, ESTID, SAVNCR, DOSI(2), FLAGS,\r\n     3                 SIL(32), SYSBUF, SCR3, SCR4, RET\r\n      DOUBLE PRECISION DUMMY\r\n      DIMENSION        IZ(1), IPOS(32), IBUF(7), TRIM6(2), TRPL1(2),\r\n     1                 TRSHL(2), ESTX(12)\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25, SWM*27\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM, SWM\r\n      COMMON /BLANK /  NOK, NOM, NOB, NOK4GG, NOKDGG, NOCMAS, NCPBAR,\r\n     1                 NCPROD, NCPQD1, NCPQD2, NCPTR1, NCPTR2, NCPTUB,\r\n     2                 NCPQDP, NCPTRP, NCPTRB, VOLUME, SURFAC\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /GPTA1 /  NELEM, LAST, INCR, ELEM(1)\r\n      COMMON /EMGFIL/  EST, CSTM, MPT, DIT, GEOM2, MATS(3), DICTN(3)\r\n      COMMON /EMGPRM/  ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                 IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                 ANYCON, FLAGS(3), PRECIS, ERROR, HEAT,\r\n     3                 ICMBAR, LCSTM, LMAT, LHMAT, KFLAGS(3), L38\r\n      COMMON /EMGEST/  ESTBUF(200)\r\n      COMMON /EMGDIC/  ELTYPE, LDICT, NLOCS, ELID, ESTID\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /IEMGOT/  NVAL(3)\r\n      COMMON /MATOUT/  EGNU(6), RHO\r\n      COMMON /IEMGOD/  DUMMY, KTYPES\r\n      COMMON /IEMG1B/  ICALL, ILAST\r\n      COMMON /SMA1CL/  KDUMMY(22), KNOGO\r\n      COMMON /SMA2CL/  MDUMMY(20), MNOGO\r\n      EQUIVALENCE      (KSYSTM( 2),OUTPT), (KSYSTM( 1),SYSBUF ),\r\n     1                 (KSYSTM(55),IPREC), (ESTBUF( 1),ESTX(1)),\r\n     2                 (IZ    ( 1),Z(1) )\r\n      DATA    TRIM6,         TRPL1,         TRSHL               /\r\n     1        4HCTRI,  4HM6  , 4HCTRP,4HLT1 , 4HCTRS,4HHL       /\r\n      DATA    SCR3  ,  SCR4  / 303, 304 /\r\n      DATA    EOR   ,  NOEOR / 1, 0     /, SUBR / 4HEMGP,4HRO   /\r\n      DATA    DOSI  /  4HDOUB, 4HSING   /\r\nC\r\n      IQDMM1 = 0\r\n      IQDMM2 = 0\r\n      NVAL(1)= 0\r\n      NVAL(2)= 0\r\n      NVAL(3)= 0\r\n      LTYPES = 0\r\n      KTYPES = 0\r\n      DUMMY  = 0.0D0\r\n      ICALL  = 0\r\n      ILAST  = 0\r\nC\r\nC     INITIALIZE /SMA1CL/ AND /SMA2CL/\r\nC\r\n      KNOGO = 0\r\n      MNOGO = 0\r\n      KDUMMY(10) = 10\r\n      MDUMMY(10) = 10\r\nC\r\nC     FOLLOWING CALL PREPS /GPTA1/ FOR DUMMY ELEMENTS\r\nC\r\n      CALL DELSET\r\nC\r\nC     DEFINE WORKING CORE BLOCK FOR RESET PURPOSES.\r\nC\r\n      IPR = PRECIS\r\n      IF (IPR .NE. 1) IPR = 0\r\n      SAVJCR = JCORE\r\n      SAVNCR = NCORE\r\n      ESTID  = 0\r\n      LNUM   = LCONG/2\r\nC\r\nC     READ THE ELEMENT TYPE FROM THE EST.\r\nC\r\n   10 CALL READ (*1340,*1360,EST,ELTYPE,1,NOEOR,IWORDS)\r\n      IZERO = INCR*(ELTYPE-1)\r\nC\r\nC     CHECK FOR ALLOWABLE ELEMENT TYPES\r\nC\r\n      IF (ELTYPE.EQ. 2 .OR. ELTYPE.EQ.32 .OR. ELTYPE.EQ.33 .OR.\r\n     1    ELTYPE.EQ.68 .OR. ELTYPE.EQ.69 .OR. ELTYPE.EQ.72) GO TO 15\r\n      IF (ELTYPE.GE.1 .AND. ELTYPE.LE.NELEM) GO TO 40\r\n   15 WRITE  (OUTPT,20) SFM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE\r\n   20 FORMAT (A25,' 3105, EMGPRO FINDS ',2A4,' ELEMENTS (ELEM. TYPE ',\r\n     1       I3,') UNDEFINED IN EST DATA BLOCK AND/OR ELEMENT ROUTINE.')\r\n   30 CALL FWDREC (*1350,EST)\r\n      ERROR = .TRUE.\r\n      GO TO 10\r\nC\r\nC     RESTORE CORE POINTERS\r\nC\r\n   40 JCORE = SAVJCR\r\n      NCORE = SAVNCR\r\nC\r\nC     CLEAR ESTBUF\r\nC\r\n      DO 50 I = 1,200\r\n      ESTBUF(I) = 0\r\n   50 CONTINUE\r\nC\r\nC     SET VARIOUS PARAMETERS = FUNCTION OF THIS ELEMENT TYPE\r\nC\r\nC     TURN ON COUPLED MASS FLAG IF EITHER OF ALL-COUPLED-MASS-FLAG\r\nC     OR SPECIFIC-TYPE-COUPLED-MASS-FLAG IS ON.\r\nC\r\n      IF (FLAGS(2)) 51,53,51\r\n   51 IF (NOCMAS  ) 53,52,54\r\n   52 IF (ELTYPE .EQ. 34) IF (NCPBAR) 53,53,54\r\n      IF (ELTYPE .EQ.  1) IF (NCPROD) 53,53,54\r\n      IF (ELTYPE .EQ. 19) IF (NCPQD1) 53,53,54\r\n      IF (ELTYPE .EQ. 18) IF (NCPQD2) 53,53,54\r\n      IF (ELTYPE .EQ.  6) IF (NCPTR1) 53,53,54\r\n      IF (ELTYPE .EQ. 17) IF (NCPTR2) 53,53,54\r\n      IF (ELTYPE .EQ.  3) IF (NCPTUB) 53,53,54\r\n      IF (ELTYPE .EQ. 15) IF (NCPQDP) 53,53,54\r\n      IF (ELTYPE .EQ.  8) IF (NCPTRP) 53,53,54\r\n      IF (ELTYPE .EQ.  7) IF (NCPTRB) 53,53,54\r\n   53 ICMBAR = -1\r\n      GO TO 56\r\nC\r\n   54 ICMBAR = 1\r\nC\r\n   56 JLTYPE = 2*ELTYPE - IPR\r\n      ESTWDS = ELEM(IZERO+12)\r\n      NSILS  = ELEM(IZERO+10)\r\n      ISIL   = ELEM(IZERO+13)\r\n      IF (ELEM(IZERO+9) .NE. 0) ISIL = ISIL - 1\r\n      I1 = ISIL\r\n      I2 = ISIL + NSILS - 1\r\n      ISAVE2 = 0\r\n      IF (ESTWDS. LE. 200) GO TO 70\r\n      WRITE  (OUTPT,60) SFM,ELTYPE\r\n   60 FORMAT (A25,' 3106, EMGPRO FINDS THAT ELEMENT TYPE ',I3,\r\n     1        ' HAS EST ENTRIES TOO LARGE TO HANDLE CURRENTLY.')\r\n      GO TO 30\r\nC\r\nC     CHECK TO SEE IF ILLEGAL ELEMENTS ARE USED IN -HEAT- FORMULATION\r\nC\r\n   70 IF (.NOT.HEAT) GO TO 80\r\n      IF (ELTYPE.EQ. 1 .OR.  ELTYPE.EQ. 3 .OR. ELTYPE.EQ. 6) GO TO 80\r\n      IF (ELTYPE.GE. 9 .AND. ELTYPE.LE.14) GO TO 80\r\n      IF (ELTYPE.GE.16 .AND. ELTYPE.LE.24) GO TO 80\r\n      IF (ELTYPE.EQ.34 .OR.  ELTYPE.EQ.36 .OR. ELTYPE.EQ.37) GO TO 80\r\n      IF (ELTYPE.GE.39 .AND. ELTYPE.LE.42) GO TO 80\r\n      IF (ELTYPE.EQ.52 .OR.  ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) GO TO 80\r\n      IF (ELTYPE.GE.64 .AND. ELTYPE.LE.67) GO TO 80\r\n      IF (ELTYPE.EQ.80 .OR.  ELTYPE.EQ.81 .OR. ELTYPE.EQ.83) GO TO 80\r\nC\r\n      WRITE  (OUTPT,75) UFM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE\r\n   75 FORMAT (A23,' 3115, EMGPRO FINDS ',2A4,' ELEMENTS (ELEMENT TYPE ',\r\n     1        I3,') PRESENT IN A HEAT FORMULATION.')\r\n      GO TO 30\r\nC\r\nC     SET UP VARIABLES TO BE WRITTEN AS DICTIONARY 3-WORD HEADER\r\nC\r\n   80 NLOCS = NSILS\r\n      LDICT = NLOCS + 5\r\nC\r\nC     READ AN ELEMENT EST ENTRY\r\nC\r\n   90 CALL READ (*1350,*1200,EST,ESTBUF,ESTWDS,NOEOR,IWORDS)\r\n      ELID  = ESTBUF(1)\r\n      ESTID = ESTID + 1\r\nC\r\nC     CHECK TO SEE IF THIS ELEMENT IS CONGRUENT TO ANOTHER ALREADY\r\nC     POSSESSING A DICTIONARY IN CORE.\r\nC\r\n      IF (.NOT.ANYCON) GO TO 150\r\n      CALL BISLOC (*150,ELID,Z(ICONG),2,LNUM,J)\r\nC\r\nC     MATCH FOUND.  CHECK FOR DICTIONARY-TABLE ON PRIMARY.\r\nC\r\n      IPRIME = Z(ICONG+J  )\r\n      IDPRIM = Z(ICONG+J-1)\r\n  100 IF (IPRIME) 120,104,110\r\nC\r\nC     SET UP ELEMENT MATRIX MAPPING ARRAY FOR LATER USE BY OTHER\r\nC     ELEMENTS IN THIS CONGRUENT SET\r\nC\r\n  104 ICG    = JCORE\r\n      JJCORE = JCORE  + 2*NSILS + 5\r\n      ICRQ   = JJCORE - NCORE\r\n      IF (JJCORE .GE .NCORE) GO TO 1800\r\n      JCORE   = JJCORE\r\n      IZ(ICG) = IDPRIM\r\n      IZ(ICG+1) = NSILS\r\n      IZ(ICG+2) = 0\r\n      IZ(ICG+3) = 0\r\n      IZ(ICG+4) = 0\r\n      IGOTO = 0\r\n      GO TO 1380\r\nC\r\nC     IPRIME POINTS TO PRIMARY ID\r\nC\r\n  110 IDPRIM = Z(IPRIME  )\r\n      IPRIME = Z(IPRIME+1)\r\n      GO TO 100\r\nC\r\nC     IPRIME IS NEGATIVE TABLE ADDRESS IMPLYING DICTIONARY EXISTS.\r\nC\r\n  120 IF (ERROR) GO TO 150\r\n      IPRIME =-IPRIME\r\n      IMATCH = 0\r\n      IBFIND = 1\r\n      J = 0\r\n  125 J = J + 1\r\n      IADD = Z(IPRIME+J)\r\n      IF (IADD) 140,140,130\r\nC\r\nC     COPY DICTIONARY FROM CORE TO DICTIONARY FILE.\r\nC\r\n  130 Z(IADD)  = ESTID\r\n      FLAGS(J) = FLAGS(J) + 1\r\n      CALL WRITE (DICTN(J),Z(IADD),5,NOEOR)\r\n      IADDD  = IADD + 5\r\n      IF (IMATCH .EQ. 1) GO TO 135\r\n      IF (IMATCH .EQ. 2) GO TO 1600\r\n      INDCNG = SAVJCR\r\n      IGOTO  = 1\r\n  131 IF (IZ(INDCNG) .EQ. IDPRIM) GO TO 1380\r\n      JJCORE = INDCNG + 2*IZ(INDCNG+1) + 5\r\n      IF (JJCORE .GE. NCORE) GO TO 1820\r\n      INDCNG = JJCORE\r\n      GO TO 131\r\n  133 DO 134 L = 1,NSILS\r\n      IF (IPOS(L) .NE. IZ(INDCNG+NSILS+L+4)) GO TO 137\r\n  134 CONTINUE\r\n      IMATCH = 1\r\n  135 CALL WRITE (DICTN(J),Z(IADDD),NSILS,NOEOR)\r\n      GO TO 140\r\n  137 IMATCH = 2\r\n      GO TO 1600\r\n  140 IBFIND = IBFIND + 2\r\n      IF (J .LT. 3) GO TO 125\r\n      GO TO 90\r\nC\r\nC     BRANCH ON ELEMENT TYPE.  INDIVIDUAL ROUTINES WILL COMPUTE AND\r\nC     OUTPUT ALL MATRIX TYPES DESIRED BASED ON FLAGS AVAILABLE TO THEM.\r\nC\r\n  150 IF (ELTYPE .EQ. LTYPES) GO TO 152\r\n      LTYPES = ELTYPE\r\n      IF (LTYPES .GT. NELEM) GO TO 15\r\n      CALL PAGE2 (3)\r\n      WRITE  (OUTPT,151) UIM,DOSI(IPR+1),ELEM(IZERO+1),ELEM(IZERO+2),\r\n     1                   ELTYPE,ELID\r\n  151 FORMAT (A29,' 3113,', /5X,'EMG MODULE PROCESSING ',A4,\r\n     1       'LE PRECISION ',2A4,' ELEMENTS (ELEMENT TYPE ',I3,\r\n     2       ') STARTING WITH ID ',I8)\r\n      IF (ELTYPE.GE.84 .AND. ELTYPE.LE.86) WRITE (OUTPT,2300)\r\n  152 IF (L38 .NE. 1) GO TO 154\r\n      CALL PAGE2 (1)\r\n      WRITE  (OUTPT,153) ELID\r\n  153 FORMAT (5X,'ELEMENT ',I8,' IS BEING PROCESSED')\r\n  154 LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 155,155,156\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 C.....    3 CTUBE     4 CSHEAR    5 CTWIST\r\n  155 GO TO (210,  215,   15,   15,  230,  235,  240,  245,  250,  255,\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1       260,  265,  270,  275,  280,  285,  290,  295,  210,  215,\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2       320,  320,  325,  325,  335,  335,  345,  345,  350,  355,\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3       360,  365,  370,  375,  380,  385,  390,  395,  405,  405,\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4       415,  415,  425,  425,  435,  435,  440,  445,  455,  455,\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5       465,  465,  475,  475,  485,  485,  490,  495,  500,  505,\r\nC\r\nC            31 PLOTEL   32 C.....   33 C.....   34 CBAR     35 CCONEAX\r\n     6       510,  515,   15,   15,   15,   15,  540,  545,  550,  555,\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7       560,  565,  570,  575,  580,  585,  590,  595,  600,  605,\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8       610,  615,  620,  625,  630,  635,  640,  645,  650,  655,\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9       660,  665,  670,  675,  680,  685,  690,  695,  700,  705\r\nC\r\n     *       ), JLTYPE\r\nC\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  156 GO TO (710,  715,  720,  725,  730,  730,  740,  740,  750,  750,\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B       760,  760,  770,  770,  780,  780,  790,  790,  800,  800,\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQUAD4   65 CIHEX1\r\n     C       810,  810,  820,  825,  830,  835,  950,  955,  850,  855,\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D       850,  855,  850,  855,   15,   15,   15,   15,  880,  885,\r\nC\r\nC            71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E       890,  895,   15,   15,  900,  905,  910,  915,  920,  925,\r\nC\r\nC            76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F       610,  615,  620,  625,  590,  595,  600,  605,  930,  935,\r\nC\r\nC            81 CELBOW   82 FTUBE    83 CTRIA3   84 CPSE2    85 CPSE3\r\n     G       940,  945,  840,  840,  960,  965,   90,   90,   90,   90,\r\nC\r\nC            86 CPSE4\r\n     H        90,   90\r\nC\r\n     *       ), LOCAL\r\nC\r\nC     ==================================================================\r\nC     A WALKING TOUR OF EMG TO COMPUTE STIFFNESS (K-) AMD MASS (M-)\r\nC     MATRICES FOR AN 'OLD' ELEMENT SUCH AS CTRIA2.\r\nC     SEE HOW EASY IT IS.      G.CHAN/UNISYS, 7/87\r\nC\r\nC       EMG SUPPORTING ROUTINES -\r\nC       EMGTAB,EMGCNG,EMGCOR,EMGFIN,\r\nC       EMGSOC (WHICH COMPUTES OFFSET BETWWEN /ZZEMGX/ AND /ZZEMII/ AND\r\nC           /   SETS ICORE,JCORE,NCORE IN /EMGPRM/ FOR OPEN CORE USAGE)\r\nC          /\r\nC         /                                --->EMG1B---->EMGOUT\r\nC        /                                /   OUTPUT PIVOT ROW PARTITION\r\nC     EMG---->EMGPRO---->CTRIA2          /    AFTER KTRIQD IS DONE, AND\r\nC               /      AN ENTRY POINT   /     ALSO AFTER MTRIQD\r\nC            /ZZEMGX/     IN           /                             (*)\r\nC                        OLDEL3--->EMGOLD--->KTRIQD--->KTRMEM--->KTRPLT\r\nC                                    /                              /\r\nC                                    ------->MTRIQD             /ZZEM14/\r\nC            (*)                                 (&)          UNIT 14 IS\r\nC             KTRPLT---------------->KTRBSC                   ALLOCATED\r\nC           TO COMPUTE BENDING     TO COMPUTE MEMBRANE        TO CTRIA2\r\nC           FOR CTRIA2             FOR CTRIA2                 BY TA1ABD\r\nC                  /                      /\r\nC                 ------->SMA1B<----------\r\nC                           \\\r\nC                            ---->EMG1B---->EMGOUT\r\nC                                          OUTPUT A K-MATRIX\r\nC           (&)                            PARTITION\r\nC             MTRIQD BRANCH, FOR M-MATRIX\r\nC             FOR CTRIA2 ELEMENT, IS SIMILARLY\r\nC             STRUCTURED AS THAT OF THE KTRIQD BRANCH\r\nC\r\nC             REPEAT DAMPING B-MATRIX IF NECESSARY\r\nC             IF ELEMENT HAS HEAT CAPBABILITY - WHAT DO I DO NOW?\r\nC\r\nC     THIS SYMBOL '>' IS RIGHT ARROW HEAD, AND '<' IS LEFT ARROW HEAD\r\nC     ==================================================================\r\nC\r\n  210 CALL RODS\r\n      GO TO 90\r\n  215 CALL RODD\r\n      GO TO 90\r\n  230 CALL TUBES\r\n      GO TO 90\r\n  235 CALL TUBED\r\n      GO TO 90\r\n  240 CALL SHEARS\r\n      GO TO 90\r\n  245 CALL SHEARD\r\n      GO TO 90\r\n  250 CALL TWISTS\r\n      GO TO 90\r\n  255 CALL TWISTD\r\n      GO TO 90\r\n  260 CALL TRIA1S\r\n      GO TO 300\r\n  265 CALL TRIA1D\r\n      GO TO 300\r\n  270 CALL TRBSCS\r\n      GO TO 300\r\n  275 CALL TRBSCD\r\n      GO TO 300\r\n  280 CALL TRPLTS\r\n      GO TO 300\r\n  285 CALL TRPLTD\r\n      GO TO 300\r\n  290 CALL TRMEMS\r\n      GO TO 300\r\n  295 CALL TRMEMD\r\n  300 KHT = 7\r\n      L   = 9\r\n      IF (VOLUME.EQ.0 .AND. SURFAC.EQ.0) GO TO 90\r\n      CALL WRITE (SCR4,ELEM(IZERO+1),2,0)\r\n      CALL WRITE (SCR4,ESTBUF(1),1,0)\r\n      ESTX(5)   = ESTX(KHT)\r\n      ESTX(6)   = RHO\r\n      ESTBUF(7) = 3\r\n      CALL WRITE (SCR4,ESTBUF(5), 3,0)\r\n      CALL WRITE (SCR4,ESTBUF(2), 3,0)\r\n      CALL WRITE (SCR4,ESTBUF(L),12,1)\r\n      GO TO 90\r\n  310 KHT = 8\r\n      L   = 10\r\n  315 IF (VOLUME.EQ.0 .AND. SURFAC.EQ.0) GO TO 90\r\n      CALL WRITE (SCR4,ELEM(IZERO+1),2,0)\r\n      CALL WRITE (SCR4,ESTBUF(1),1,0)\r\n      ESTX(5)   = ESTX(KHT)\r\n      ESTX(6)   = RHO\r\n      ESTBUF(7) = 4\r\n      CALL WRITE (SCR4,ESTBUF(5), 3,0)\r\n      CALL WRITE (SCR4,ESTBUF(2), 4,0)\r\n      CALL WRITE (SCR4,ESTBUF(L),16,1)\r\n      GO TO 90\r\n  320 NSCAL1 = 1\r\n      GO TO 346\r\n  325 NSCAL1 = 2\r\n      GO TO 346\r\n  335 NSCAL1 = 3\r\n      GO TO 346\r\n  345 NSCAL1 = 4\r\n  346 NSCAL2 = 1\r\n      GO TO 487\r\n  350 CALL QDPLTS\r\n  352 KHT = 10\r\n      L   = 14\r\n      GO TO 315\r\n  355 CALL QDPLTD\r\n      GO TO 352\r\n  360 CALL QDMEMS\r\n      GO TO 310\r\n  365 CALL QDMEMD\r\n      GO TO 310\r\n  370 CALL TRIA2S\r\n      GO TO 300\r\n  375 CALL TRIA2D\r\n      GO TO 300\r\n  380 CALL QUAD2S\r\n      GO TO 310\r\n  385 CALL QUAD2D\r\n      GO TO 310\r\n  390 CALL QUAD1S\r\n  392 IF (ESTX(12) .LE. 0.0) ESTX(12) = ESTX(8)\r\n      KHT = 12\r\n      L   = 14\r\n      GO TO 315\r\n  395 CALL QUAD1D\r\n      GO TO 392\r\n  405 NSCAL1 = 1\r\n      GO TO 436\r\n  415 NSCAL1 = 2\r\n      GO TO 436\r\n  425 NSCAL1 = 3\r\n      GO TO 436\r\n  435 NSCAL1 = 4\r\n  436 NSCAL2 = 3\r\n      GO TO 487\r\n  440 CALL VISCS\r\n      IF (FLAGS(3) .EQ. 0) WRITE (OUTPT,442) UWM\r\n  442 FORMAT (A25,' 2422, VISC DATA NOT PROCESSED BY EMGPRO.')\r\n      GO TO 90\r\n  445 CALL VISCD\r\n      IF (FLAGS(3) .EQ. 0) WRITE (OUTPT,442) UWM\r\n      GO TO 90\r\n  455 NSCAL1 = 1\r\n      GO TO 486\r\n  465 NSCAL1 = 2\r\n      GO TO 486\r\n  475 NSCAL1 = 3\r\n      GO TO 486\r\n  485 NSCAL1 = 4\r\n  486 NSCAL2 = 2\r\n  487 CALL SCALED (NSCAL1,NSCAL2)\r\n      GO TO 90\r\n  490 CALL CONM1S\r\n      GO TO 90\r\n  495 CALL CONM1D\r\n      GO TO 90\r\n  500 CALL CONM2S\r\n      GO TO 90\r\n  505 CALL CONM2D\r\n      GO TO 90\r\n  510 CALL PLOTLS\r\n      GO TO 90\r\n  515 CALL PLOTLD\r\n      GO TO 90\r\n  540 CALL BARS\r\n      GO TO 90\r\n  545 CALL BARD\r\n      GO TO 90\r\n  550 CALL CONES\r\n      GO TO 90\r\n  555 CALL CONED\r\n      GO TO 90\r\n  560 CALL TRIARS\r\n      GO TO 90\r\n  565 CALL TRIARD\r\n      GO TO 90\r\n  570 CALL TRAPRS\r\n      GO TO 90\r\n  575 CALL TRAPRD\r\n      GO TO 90\r\n  580 CALL TORDRS\r\n      GO TO 90\r\n  585 CALL TORDRD\r\n      GO TO 90\r\n  590 CALL TETRAS\r\n      GO TO 90\r\n  595 CALL TETRAD\r\n      GO TO 90\r\n  600 CALL WEDGES\r\n      GO TO 90\r\n  605 CALL WEDGED\r\n      GO TO 90\r\n  610 CALL HEXA1S\r\n      GO TO 90\r\n  615 CALL HEXA1D\r\n      GO TO 90\r\n  620 CALL HEXA2S\r\n      GO TO 90\r\n  625 CALL HEXA2D\r\n      GO TO 90\r\n  630 CALL FLUD2S\r\n      GO TO 90\r\n  635 CALL FLUD2D\r\n      GO TO 90\r\n  640 CALL FLUD3S\r\n      GO TO 90\r\n  645 CALL FLUD3D\r\n      GO TO 90\r\n  650 CALL FLUD4S\r\n      GO TO 90\r\n  655 CALL FLUD4D\r\n      GO TO 90\r\n  660 CALL FLMASS\r\n      GO TO 90\r\n  665 CALL FLMASD\r\n      GO TO 90\r\n  670 CALL AXIF2S\r\n      GO TO 90\r\n  675 CALL AXIF2D\r\n      GO TO 90\r\n  680 CALL AXIF3S\r\n      GO TO 90\r\n  685 CALL AXIF3D\r\n      GO TO 90\r\n  690 CALL AXIF4S\r\n      GO TO 90\r\n  695 CALL AXIF4D\r\n      GO TO 90\r\n  700 CALL SLOT3S\r\n      GO TO 90\r\n  705 CALL SLOT3D\r\n      GO TO 90\r\n  710 CALL SLOT4S\r\n      GO TO 90\r\n  715 CALL SLOT4D\r\n      GO TO 90\r\n  720 CALL HBDYS\r\n      GO TO 90\r\n  725 CALL HBDYD\r\n      GO TO 90\r\n  730 CALL KDUM1\r\n      GO TO 90\r\n  740 CALL KDUM2\r\n      GO TO 90\r\n  750 CALL KDUM3\r\n      GO TO 90\r\n  760 CALL KDUM4\r\n      GO TO 90\r\n  770 CALL KDUM5\r\n      GO TO 90\r\n  780 CALL KDUM6\r\n      GO TO 90\r\n  790 CALL KDUM7\r\n      GO TO 90\r\n  800 CALL KDUM8\r\n      GO TO 90\r\n  810 CALL KDUM9\r\n      GO TO 90\r\n  820 IF (.NOT.HEAT) GO TO 822\r\n      IF (IQDMM1 .NE. 0) GO TO 360\r\n      ASSIGN 360 TO RET\r\n      IQDMM1 = 1\r\n      GO TO 1000\r\n  822 CALL QDMM1S\r\n      GO TO 310\r\n  825 IF (.NOT.HEAT) GO TO 827\r\n      IF (IQDMM1 .NE. 0) GO TO 365\r\n      ASSIGN 365 TO RET\r\n      IQDMM1 = 1\r\n      GO TO 1000\r\n  827 CALL QDMM1D\r\n      GO TO 310\r\n  830 IF (.NOT.HEAT) GO TO 832\r\n      IF (IQDMM2 .NE. 0) GO TO 360\r\n      ASSIGN 360 TO RET\r\n      IQDMM2 = 1\r\n      GO TO 1000\r\n  832 CALL QDMM2S\r\n      GO TO 310\r\n  835 IF (.NOT.HEAT) GO TO 837\r\n      IF (IQDMM2 .NE. 0) GO TO 365\r\n      ASSIGN 365 TO RET\r\n      IQDMM2 = 1\r\n      GO TO 1000\r\n  837 CALL QDMM2D\r\n      GO TO 310\r\n  840 CALL FTUBE\r\n      GO TO 90\r\n  850 CALL IHEXS (ELTYPE-64)\r\n      GO TO 90\r\n  855 CALL IHEXD (ELTYPE-64)\r\n      GO TO 90\r\n  880 CALL TRIAAX\r\n      GO TO 90\r\n  885 CALL TRIAAD\r\n      GO TO 90\r\n  890 CALL TRAPAX\r\n      GO TO 90\r\n  895 CALL TRAPAD\r\n      GO TO 90\r\n  900 CALL KTRM6S\r\n      L = 14\r\n      GO TO 927\r\n  905 CALL KTRM6D\r\n      L = 14\r\n      GO TO 927\r\n  910 CALL KTRPLS\r\n      L = 24\r\n      GO TO 927\r\n  915 CALL KTRPLD\r\n      L = 24\r\n      GO TO 927\r\n  920 CALL KTSHLS\r\n      L = 28\r\n      GO TO 927\r\n  925 CALL KTSHLD\r\n      L = 28\r\n  927 IF (VOLUME.EQ.0.0 .AND. SURFAC.EQ.0.0) GO TO 90\r\n      ESTX(8) = ELEM(IZERO+1)\r\n      ESTX(9) = ELEM(IZERO+2)\r\n      IF (ESTX(11) .LE. 0.0) ESTX(11) = ESTX(10)\r\n      IF (ESTX(12) .LE. 0.0) ESTX(12) = ESTX(10)\r\n      THK = (ESTX(10) + ESTX(11) + ESTX(12))/3.\r\n      ESTBUF(10) = ESTBUF(1)\r\n      ESTX  (11) = THK\r\n      ESTX  (12) = RHO\r\n      ESTBUF(13) = 6\r\n      CALL WRITE (SCR4,ESTBUF(8), 6,0)\r\n      CALL WRITE (SCR4,ESTBUF(2), 6,0)\r\n      CALL WRITE (SCR4,ESTBUF(L),24,1)\r\n      GO  TO  90\r\n  930 CALL IS2D8S\r\n      GO TO 90\r\n  935 CALL IS2D8D\r\n      GO TO 90\r\n  940 CALL ELBOWS\r\n      GO TO 90\r\n  945 CALL ELBOWD\r\n      GO TO 90\r\n  950 CALL QUAD4S\r\n      GO TO 90\r\n  955 CALL QUAD4D\r\n      GO TO 90\r\n  960 CALL TRIA3S\r\n      GO TO 90\r\n  965 CALL TRIA3D\r\n      GO TO 90\r\nC\r\nC     PRINT WARNING MESSAGE TO INDICATE THAT QDMEM1 ELEMENTS\r\nC     (ELEMENT TYPE 62) AND QDMEM2 ELEMENTS (ELEMENT TYPE 63)\r\nC     ARE REPLACED BY QDMEM ELEMENTS (ELEMENT TYPE 16) IN\r\nC     -HEAT- FORMULATION\r\nC\r\n 1000 INDEX  = 15*INCR\r\n      INDEX1 = 16\r\n      CALL PAGE2 (3)\r\n      WRITE  (OUTPT,1100) UWM,ELEM(IZERO+1),ELEM(IZERO+2),ELTYPE,\r\n     1                    ELEM(INDEX+1),ELEM(INDEX+2),INDEX1\r\n 1100 FORMAT (A25,' 3144, EMGPRO FINDS ',2A4,' ELEMENTS (ELEMENT TYPE ',\r\n     1       I3,') PRESENT IN A HEAT FORMULATION AND IS',/5X,'REPLACING'\r\n     2,      ' THE SAME BY ',2A4,' ELEMENTS (ELEMENT TYPE ',I3,2H).)\r\n      GO TO RET, (360,365)\r\nC\r\nC     ALL ELEMENTS OF THIS ELEMENT TYPE PROCESSED.\r\nC     COMPLETE DICTIONARY RECORD FOR ELEMENT TYPE.\r\nC\r\n 1200 IF (ERROR) GO TO 1310\r\n      DO 1300 I = 1,3\r\n      IF (FLAGS(I) .LE. 0) GO TO 1300\r\n      FLAGS(I) = -FLAGS(I)\r\n      CALL WRITE (DICTN(I),0,0,EOR)\r\n 1300 CONTINUE\r\nC\r\nC     FOR SAFETY AND IF CONGRUENCY EXISTS CLEAR OFF ANY TABLE POINTERS\r\nC     ON PRIMARY-IDS IN THE CONGRUENCY LIST\r\nC\r\n 1310 IF (.NOT.ANYCON) GO TO 10\r\n      DO 1330 I = ICONG,NCONG,2\r\n      IF (Z(I+1) .LT. 0) Z(I+1) = 0\r\n 1330 CONTINUE\r\n      GO TO 10\r\nC\r\nC     ALL ELEMENT TYPES HAVE BEEN PROCESSED.\r\nC\r\n 1340 CONTINUE\r\n      IF (KNOGO.GT.0 .OR. MNOGO.GT.0) CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\nC     IMPROPER ENCOUNTER OF AN -EOF-\r\nC\r\n 1350 JFILE = EST\r\n 1355 CALL MESAGE (-2,JFILE,SUBR)\r\nC\r\nC     IMPROPER ENCOUNTER OF AN -EOR-\r\nC\r\n 1360 JFILE = EST\r\n      CALL MESAGE (-3,JFILE,SUBR)\r\nC\r\nC     FILE NOT IN FIST\r\nC\r\n 1370 CALL MESAGE (-1,JFILE,SUBR)\r\nC\r\nC     COMPUTE MAPPING DATA FOR CONGRUENT ELEMENTS\r\nC\r\n 1380 L1 = NSILS\r\n      DO 1430 L = I1,I2\r\n      IF (ESTBUF(L) .EQ. 0) GO TO 1420\r\n      M = 1\r\n      DO 1410 N = I1,I2\r\n      IF (ESTBUF(N)-ESTBUF(L)) 1400,1390,1410\r\n 1390 IF (N.GE.L) GO TO 1410\r\n 1400 IF (ESTBUF(N) .NE. 0) M = M + 1\r\n 1410 CONTINUE\r\n      GO TO 1425\r\n 1420 M  = L1\r\n      L1 = L1 - 1\r\n 1425 IPOS(M) = L - I1 + 1\r\n      SIL(M) = ESTBUF(L)\r\n 1430 CONTINUE\r\n      IF (IGOTO .EQ. 1) GO TO 133\r\n      DO 1460 L = I1,I2\r\n      L1 = L - I1 + 1\r\n      DO 1440 N = 1,NSILS\r\n      IF (ESTBUF(L) .NE. SIL(N)) GO TO 1440\r\n      IZ(ICG+L1+4) = N\r\n      GO TO 1450\r\n 1440 CONTINUE\r\n 1450 IZ(ICG+NSILS+L1+4) = IPOS(L1)\r\n 1460 CONTINUE\r\n      GO TO 150\r\nC\r\nC     CHECK IF THE ELEMENT MATRIX IS DIAGONAL\r\nC\r\n 1600 IF (IZ(IADD+1) .NE. 2) GO TO 1604\r\nC\r\nC     ELEMENT MATRIX IS DIAGONAL.\r\nC     RE-WRITE ONLY THE ELEMENT DICTIONARY FOR A CONGRUENT ELEMENT.\r\nC\r\n      DO 1602 L = 1,NSILS\r\n      M = IPOS(L)\r\n      N = IZ(INDCNG+M+4) - 1\r\n      CALL WRITE (DICTN(J),Z(IADDD+N),1,NOEOR)\r\n 1602 CONTINUE\r\n      GO TO 140\r\nC\r\nC     ELEMENT MATRIX IS SQUARE.\r\nC     PICK UP ELEMENT MATRIX DATA FOR A CONGRUENT ELEMENT THAT HAS\r\nC     ALREADY BEEN PROCESSED AND STORE IT ON SCR3.\r\nC\r\n 1604 IBUF1 = NCORE - SYSBUF - 2\r\n      ICRQ  = JCORE - IBUF1\r\n      IF (ICRQ .GT. 0) GO TO 1840\r\n      IBUF3 = IBUF1 - 1\r\n      ICRQ  = JCORE - IBUF3 + 36*NSILS*IPREC\r\n      IF (ICRQ .GT. 0) GO TO 1840\r\n      IFILE = MATS(J)\r\n      IF (IZ(INDCNG+J+1) .NE. 0) GO TO 1640\r\n      CALL SAVPOS (IFILE,ISAVE1)\r\n      CALL CLOSE  (IFILE,1)\r\n      IBUF2 = IBUF(IBFIND+1)\r\n      CALL GOPEN  (IFILE,Z(IBUF2),0)\r\n      CALL FILPOS (IFILE,Z(IADDD))\r\n      IF (ISAVE2 .NE. 0) GO TO 1605\r\n      CALL GOPEN (SCR3,Z(IBUF1),1)\r\n      GO TO 1607\r\n 1605 JFILE = SCR3\r\n      CALL OPEN (*1370,SCR3,Z(IBUF1),3)\r\n 1607 JFILE = IFILE\r\n      DO 1620 L1 = 1,NSILS\r\n      CALL READ  (*1355,*1610,IFILE,Z(JCORE),IBUF3,EOR,N)\r\n 1610 CALL WRITE (SCR3,Z(JCORE),N,EOR)\r\n      IF (L1 .EQ. 1) CALL SAVPOS (SCR3,IZ(INDCNG+J+1))\r\n 1620 CONTINUE\r\n      CALL FILPOS (IFILE,ISAVE1)\r\n      CALL SKPREC (IFILE,1)\r\n      CALL CLOSE  (IFILE,2)\r\n      CALL OPEN   (*1370,IFILE,Z(IBUF2),3)\r\n      CALL SAVPOS (SCR3,ISAVE2)\r\n      CALL CLOSE  (SCR3,1)\r\nC\r\nC     ELEMENT MATRIX DATA IS AVAILABLE ON SCR3.  REARRANGE IT IN\r\nC     THE REQUIRED ORDER AND WRITE IT ON THE OUTPUT DATA BLOCK.\r\nC\r\n 1640 CALL GOPEN (SCR3,Z(IBUF1),0)\r\n      JFILE = SCR3\r\n      DO 1680 L = 1,NSILS\r\n      CALL FILPOS (SCR3,IZ(INDCNG+J+1))\r\n      M = IPOS(L)\r\n      N = IZ(INDCNG+M+4) - 1\r\n      CALL SKPREC (SCR3,N)\r\n      CALL READ (*1355,*1650,SCR3,Z(JCORE),IBUF3,EOR,N)\r\n 1650 NNWRDS = N/(NSILS*IPREC)\r\n      NNWRDS = SQRT(NNWRDS+0.5)\r\n      NWORDS = NNWRDS*IPREC\r\n      JJCORE = JCORE\r\n      DO 1670 L2 = 1,NNWRDS\r\n      DO 1660 L1 = 1,NSILS\r\n      M = IPOS(L1)\r\n      N = IZ(INDCNG+M+4) - 1\r\n      CALL WRITE (IFILE,Z(JJCORE+N*NWORDS),NWORDS,NOEOR)\r\n 1660 CONTINUE\r\n      JJCORE = JJCORE + NWORDS*NSILS\r\n 1670 CONTINUE\r\n      CALL WRITE  (IFILE,0,0,1)\r\n      CALL SAVPOS (IFILE,ISAVE1)\r\n      CALL WRITE  (DICTN(J),ISAVE1,1,NOEOR)\r\n 1680 CONTINUE\r\n      CALL FILPOS (SCR3,ISAVE2)\r\n      CALL SKPREC (SCR3,1)\r\n      CALL CLOSE  (SCR3,2)\r\n      GO TO 140\r\n 1800 WRITE (OUTPT,2000) UIM,IDPRIM\r\n      WRITE (OUTPT,2400) ICRQ\r\n      GO TO 1850\r\n 1820 WRITE (OUTPT,2100) SWM,ESTID\r\n      GO TO 1850\r\n 1840 WRITE (OUTPT,2200) UIM,ESTID\r\n      WRITE (OUTPT,2400) ICRQ\r\n 1850 CALL PAGE2 (4)\r\n      GO TO 150\r\nC\r\n 2000 FORMAT (A29,' 2382, ELEMENT MATRICES FOR ELEMENTS CONGRUENT TO ',\r\n     1        'ELEMENT ID =',I10, /5X,'WILL BE RE-COMPUTED AS THERE IS',\r\n     2        ' INSUFFICIENT CORE AT THIS TIME TO HOLD CONGRUENCY ',\r\n     3        'MAPPING DATA.')\r\n 2100 FORMAT (A27,' 2383, UNABLE TO LOCATE CONGRUENCY MAPPING DATA FOR',\r\n     1        ' ELEMENT ID =',I10,1H., /5X,'ELEMENT MATRICES FOR THIS ',\r\n     2        'ELEMENT WILL, THEREFORE, BE RE-COMPUTED.')\r\n 2200 FORMAT (A29,' 2384, CONGRUENCY OF ELEMENT ID =',I10,\r\n     1        ' WILL BE IGNORED AND ITS ELEMENT MATRICES', /5X,\r\n     2        'WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT ',\r\n     3        'THIS TIME TO PERFORM CONGRUENCY MAPPING COMPUTATIONS.')\r\n 2300 FORMAT (5X,'(STEPPING THRU ONLY. NO REAL COMPUTATION HERE FOR ',\r\n     1        'THIS DIFFERENTIAL STIFFNESS ELEMENT)')\r\n 2400 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I9,' WORDS.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/emgtab.f",
    "content": "      SUBROUTINE EMGTAB\r\nC*****\r\nC     THIS ROUTINE OF THE -EMG- MODULE PREPARES OPEN CORE WITH SOME\r\nC     VARIOUS TABLES.  CSTM, MAT, ETC.\r\nC\r\nC     UTILITY ROUTINES ARE USED FOR THE MOST PART.\r\nC*****\r\n      LOGICAL         ANYCON, ERROR, HEAT\r\n      INTEGER         RDREW, WRT, WRTREW, CLS, CLSREW, BUF1, SUBR(2),\r\n     1                PRECIS, SYSBUF, EST, CSTM, DIT, GEOM2, Z, FILE,\r\n     2                EOR, RD, FLAGS, DITFIL\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD, RDREW, WRT, WRTREW, CLSREW, CLS\r\n      COMMON /EMGPRM/ ICORE, JCORE, NCORE, ICSTM, NCSTM, IMAT, NMAT,\r\n     1                IHMAT, NHMAT, IDIT, NDIT, ICONG, NCONG, LCONG,\r\n     2                ANYCON, FLAGS(3), PRECIS, ERROR, HEAT\r\n     3               ,ICMBAR, LCSTM, LMAT, LHMAT\r\n      COMMON /EMGFIL/ EST, CSTM, MPT, DIT, GEOM2\r\n      COMMON /HMATDD/ IIHMAT, NNHMAT, MPTFIL, DITFIL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM(1), SYSBUF)\r\n      DATA    SUBR  / 4HEMGT,  4HAB  /,   EOR/ 1 /\r\nC*****\r\nC     READ -CSTM- INTO CORE.\r\nC*****\r\n      BUF1 = NCORE - SYSBUF - 2\r\n      ICRQ = JCORE - BUF1\r\n      IF (BUF1 .LE. JCORE) GO TO 10\r\n      ICSTM = JCORE\r\n      NCSTM = JCORE - 1\r\n      FILE  = CSTM\r\n      CALL OPEN (*30,CSTM,Z(BUF1),RDREW)\r\n      CALL FWDREC (*30,CSTM)\r\n      CALL READ (*60,*20,CSTM,Z(ICSTM),BUF1-JCORE,EOR,LCSTM)\r\n      ICRQ = BUF1 - JCORE\r\n   10 CALL MESAGE (-8,ICRQ,SUBR)\r\n   20 CALL CLOSE (CSTM,CLSREW)\r\n      NCSTM = ICSTM + LCSTM - 1\r\n      CALL PRETRS (Z(ICSTM),LCSTM)\r\n      CALL PRETRD (Z(ICSTM),LCSTM)\r\nC*****\r\nC     HAMT AND PREMAT\r\nC*****\r\n   30 IF (.NOT.HEAT) GO TO 40\r\nC\r\nC     HEAT PROBLEM THUS USE -HMAT-\r\nC\r\n      IMAT   = NCSTM + 1\r\n      NMAT   = NCSTM\r\n      IIHMAT = NMAT\r\n      NNHMAT = NCORE\r\n      MPTFIL = MPT\r\n      DITFIL = DIT\r\n      CALL PREHMA (Z)\r\n      IHMAT = IIHMAT\r\n      NHMAT = NNHMAT\r\n      LHMAT = NHMAT - IHMAT\r\n      JCORE = NHMAT + 1\r\n      GO TO 50\r\nC\r\nC     NON-HEAT PROBLEM THUS USE -MAT-\r\nC\r\n   40 IMAT = NCSTM + 1\r\n      CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF1),BUF1-IMAT,LMAT,MPT,DIT)\r\n      NMAT  = IMAT + LMAT - 1\r\n      IHMAT = NMAT + 1\r\n      NHMAT = NMAT\r\n      JCORE = NHMAT + 1\r\nC\r\n   50 CONTINUE\r\n      RETURN\r\nC\r\n   60 CALL MESAGE (-2,FILE,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/empcor.f",
    "content": "      SUBROUTINE EMPCOR(MT1X,MT2X,PT,PC,FRSROW,MIDROW,LASROW,NX,A,Z)\r\nC\r\nC     EMPTY CORE OF A TRIANGULAR MATRIX\r\nC\r\n      INTEGER PT,PC,FRSROW,ROW,MCB(7)\r\n      REAL A(1),Z(1)\r\nC\r\nC\r\nC     MT1      FIRST PART OF THE MATRIX (UP TO ROW -MIDROW-).\r\nC     MT2      REST OF THE MATRIX.\r\nC     PT       PRECISION OF THE MATRIX ON TAPE.\r\nC     PC       ......... .. ... ...... IN CORE.\r\nC     FRSROW   FIRST ROW IN CORE.\r\nC     LAST     LAST  ... .. CORE.\r\nC     N        SIZE OF THE COMPLETE MATRIX.\r\nC     A        LOCATION OF THE COMPLETE MATRIX.\r\nC\r\n      COMMON /PACKX/IT1,IT2,II,JJ,INCR\r\n      DATA  MCB /7*0/\r\n      MT1 = MT1X\r\n      MT2 = MT2X\r\n      N   = NX\r\n      MT  = MT1\r\n      IF(FRSROW .GT. MIDROW .AND. MT2 .NE. 0) MT = MT2\r\n      NA  =1\r\n      INCR = 1\r\n      IT1 = PC\r\n      IT2 = PT\r\n      JJ  = N\r\n      DO 105 ROW =  FRSROW,LASROW\r\n      II = ROW\r\n      CALL PACK(A(NA),MT,MCB)\r\n      IF( ROW .EQ. N) GO TO 110\r\n      NA = NA + PC* (N-ROW+1)\r\n      IF( ROW .NE. MIDROW .OR. MT2 .EQ. 0) GO TO 105\r\n      CALL CLOSE(MT,1)\r\n      MT = MT2\r\n      CALL GOPEN(MT,Z,1)\r\n  105 CONTINUE\r\n      GO TO 115\r\nC\r\nC     END OF CORE DUMP\r\nC\r\n  110 CALL CLOSE(MT,1)\r\n  115 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/emsg.f",
    "content": "      SUBROUTINE EMSG(NCHAR,NO,ISYS,IWF,ITEXT)\r\n      INTEGER IMSG(2,4), ITEXT(1)\r\n      COMMON /SYSTEM/SYSBUF(41)\r\nC     ISYS = 1   USER           IWF  =     1   WARNING\r\nC          = 2   SYSTEM             =     2   FATAL\r\nC\r\n      EQUIVALENCE (NCPW,SYSBUF(41)),(NOUT,SYSBUF(2)),(IMACH,SYSBUF(22))\r\n      DATA IMSG /4HUSER,1H ,4HSYST,4HEM  ,4HWARN,4HING ,4HFATA,1HL  /\r\n      NWORD = (NCHAR + NCPW-1)/NCPW\r\n      NLINE = (NCHAR + 9 + 131)/ 132   +2\r\n      CALL PAGE2(-NLINE)\r\n      NO1=IABS(NO)\r\n      K = IWF +2\r\n      WRITE(NOUT,10)(IMSG(I,ISYS),I=1,2),(IMSG(M,K),M=1,2),NO1\r\n   10 FORMAT(1H0,4H*** ,4A4, I4,1H,)\r\n      IF(NCHAR .EQ. 0) RETURN\r\n      GO TO (20,30,20,50,30), IMACH\r\nC\r\nC     7094\r\nC\r\n   20 WRITE (NOUT,25)(ITEXT(I),I=1,NWORD)\r\n   25 FORMAT(10X, 20A6,A2)\r\n      GO TO 60\r\nC\r\nC     360/370\r\nC\r\n   30 WRITE(NOUT,35) (ITEXT(I),I=1,NWORD)\r\n   35 FORMAT(10X, 30A4,A2)\r\n      GO TO 60\r\nC\r\nC     CDC\r\nC\r\n   50 WRITE(NOUT,55) (ITEXT(I),I=1,NWORD)\r\n   55 FORMAT(10X,12A10,A2)\r\n   60 IF (NO .LT. 0) CALL MESAGE(-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/encode.f",
    "content": "      SUBROUTINE ENCODE( II )\r\nC\r\nC     THIS SUBROUTINE CONVERTS THE DEGREE OF FREEDOM CODES AS GIVEN\r\nC     IN BULK DATA FORM ( INTEGERS FROM 1-6 ) TO THE BIT PATTERN\r\nC     USED IN SUBSTRUCTURE ANALYSIS.\r\nC\r\n      DIMENSION IDIV(6)\r\n      DATA IDIV/ 100000 , 10000 , 1000 , 100 , 10 , 1 /\r\nC\r\n      ISUM = 0\r\n      DO 1 I=1,6\r\n      J = II/IDIV(I)\r\n      IF( J .EQ. 0 ) GO TO 1\r\n      ISUM = ISUM + 2 ** (J-1)\r\n      II = II - J*IDIV(I)\r\n 1    CONTINUE\r\n      II = ISUM\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/endsys.f",
    "content": "      SUBROUTINE ENDSYS (JOBSEG,JOBEND)\r\nC\r\nC     ENDSYS SAVES VARIOUS EXEC TABLES ON A SCRATCH FILE\r\nC\r\nC     LAST REVISED  5/91 BY G.CHAN/UNISYS  FOR SUPERLINK OPERATION\r\nC          IF SPERLK = 0, WE ARE IN NASTRAN MULTI-LINK COMPUTATION\r\nC          IF SPERLK = NON-ZERO, WE ARE IN NASTRAN SUPERLINK\r\nC          SPERLK IS THE 95TH WORD OF /SYSTEM/\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         BITPAS\r\n      INTEGER         ANDF,FIST,SAVE,SCRN1,SCRN2,THCRMK,POOL,SPERLK,\r\n     1                NOPREF(2),RSHIFT,BUF,MSGBUF(8),BCDNUM(10),UNITS,\r\n     2                TENS,ORF,UNITAB(75),FCB(75),DATABF,MSG(2),NAME(2),\r\n     3                FILE,FILEX,LNKNUM(15),COMM,XF1AT,PREFAC\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,FORTXX*7\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /BLANK / IBLKCM(58),PREFAC(2)\r\n      COMMON /XPFIST/ NPFIST\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /MSGX  / ITAB1(1)\r\n      COMMON /STIME / ITAB2(2)\r\n      COMMON /STAPID/ ITAB3(1)\r\n      COMMON /XDPL  / ITAB4(3)\r\n      COMMON /XXFIAT/ ITAB5(1)\r\n      COMMON /XFIAT / ITAB6(4)\r\n      COMMON /XVPS  / ITAB7(2)\r\n      COMMON /XCEITB/ ITAB8(2)\r\n      COMMON /GINOX / ITAB9(170)\r\n      COMMON /SYSTEM/ ITAB10(22),LSYSTM,ICFIAT,JTAB10(11),NPRUS,\r\n     1                KTAB10(35),BITPAS,LTAB10(18),LPCH,LDICT,MTAB10(2),\r\n     2                SPERLK,NTAB10(5)\r\n      COMMON /OUTPUT/ ITAB11(1)\r\n      COMMON /NTIME / ITAB13(1)\r\n      COMMON /XLINK / ITAB14(1)\r\n      COMMON /SOFCOM/ ITAB15(1)\r\n      COMMON /BITPOS/ BT(32,2)\r\n      COMMON /OSCENT/ INOSCR(2)\r\nCZZ   COMMON /ZZENDS/ DATABF(1)\r\n      COMMON /ZZZZZZ/ DATABF(1)\r\n      COMMON /SEM   / MASK,THCRMK,IMASK,LINKS(15)\r\n      COMMON /L15 L8/ L15,L8,L13\r\n      COMMON /XSFA1 / DUMMY(1902),COMM(20),XF1AT(1100)\r\nC                           1902 = 401+1501\r\nC\r\n      EQUIVALENCE    (ITAB10( 1),ISYBUF),  (ITAB10(2),NOUT     ),\r\n     1               (ITAB9 ( 2),FILEX ),  (ITAB9(12),UNITAB(1)),\r\n     2               (ITAB9(170),FCB(1))\r\n      DATA MSGBUF(1)/ 4HLINK /\r\n      DATA MSGBUF(3)/ 4H     /\r\n      DATA MSGBUF(5)/ 4H---- /\r\n      DATA MSGBUF(6)/ 4H---- /\r\n      DATA MSGBUF(7)/ 4H---- /\r\n      DATA MSGBUF(8)/ 4H---- /\r\n      DATA SCRN1    , SCRN2  /4HSCRA,4HTCH0/, SAVE/4HSAVE/,\r\n     1     POOL     / 4HPOOL /,\r\n     2     NOPREF   / 4HNOT , 4HPREF/\r\n      DATA MSG      / 4HBEGN, 4HEND /\r\n      DATA BCDNUM   / 1H0, 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9 /\r\n      DATA LNKNUM   / 4H 1  , 4H 2  , 4H 3  , 4H 4  , 4H 5  ,\r\n     1                4H 6  , 4H 7  , 4H 8  , 4H 9  , 4H10  ,\r\n     2                4H11  , 4H12  , 4H13  , 4H14  , 4H15  /\r\n      DATA NAME     / 4HENDS,4HYS   /\r\nC\r\nC\r\nC     PUNCH RESTART DICTIONAY\r\nC     LDICT MAY NOT BE A SYSTEM PUNCH FILE, PUNCH THE CARDS OUT FIRST\r\nC     BEFORE THE RESTART DICTIONARY CARDS GET LOST\r\nC\r\n      IF (MACH.GE.5 .OR. LDICT.EQ.LPCH) GO TO 8\r\n      ENDFILE LDICT\r\n      REWIND  LDICT\r\n    5 READ   (LDICT,6,ERR=7,END=7) (DATABF(J),J=1,20)\r\n    6 FORMAT (20A4)\r\n      WRITE  (LPCH,6) (DATABF(J),J=1,20)\r\n      GO TO  5\r\n    7 REWIND LDICT\r\nC\r\n    8 MSGBUF(2) = 0\r\n      J = 0\r\n      DO 10 I = 1,15\r\n      IF (JOBEND .EQ. LINKS(I)) MSGBUF(2) = LNKNUM(I)\r\n      IF (JOBSEG .EQ. LINKS(I)) J = I\r\n   10 CONTINUE\r\n      IF (MSGBUF(2) .NE. 0) GO TO 15\r\n      WRITE  (NOUT,12) SFM,JOBEND\r\n   12 FORMAT (A25,', ILLEGAL LINK NUMBER ',A4,' ENCOUNTERED BY ENDSYS')\r\n      CALL MESAGE (-61,0,0)\r\n   15 MSGBUF(4) = MSG(2)\r\nC\r\n      IF (SPERLK .EQ. 0) GO TO 30\r\nC\r\nC     SIMPLIFIED OPERATION IF SUPERLINK (USED IN UNIX VERSION)\r\nC\r\n      SPERLK = J\r\n      ITAB10(22) = JOBSEG\r\nC     PREFAC(1)  = NOPREF(1)\r\nC     PREFAC(2)  = NOPREF(2)\r\n      CALL CONMSG (MSGBUF   ,4,0)\r\n      CALL CONMSG (MSGBUF(5),4,0)\r\n      DO 20 J = 2,11\r\n   20 ITAB9(J) = 0\r\n      DO 25 J = 87,161\r\n      IF (ITAB9(J) .EQ. 0) GO TO 25\r\n      I = J - 86\r\n      WRITE  (NOUT,23) SFM,I,JOBEND\r\n   23 FORMAT (A25,', LOGICAL UNIT',I5,' WAS NOT CLOSED AT END OF ',A4)\r\nC     ITAB9(J) = 0\r\n      CALL MESAGE (-37,0,0)\r\n   25 CONTINUE\r\n      GO TO 400\r\nC\r\nC     SEARCH FIAT FOR A SAVE FILE -- FILE MUST SATISFY THE FOLLOWING\r\nC     (1) FILE MUST BE SCRATCHX OR TRAILERS=0 OR EXPIRED*\r\nC     (2) IF (1) IS TRUE, NO UNEXPIRED SECONDARY ALLOCATIONS WITH\r\nC     NON-ZERO TRAILERS MAY EXIST. (ALSO FILE MUST NOT BE PURGED)\r\nC     AN EXPIRED FILE HAS AN LTU LESS THAN THE CURRENT OSCAR POSITION.\r\nC\r\n   30 FILE = SAVE\r\n      LMT  = ITAB6(3)*ICFIAT + 3\r\n      NEXT = LSHIFT(INOSCR(2),16)\r\n      IFOUND  = 0\r\n      FIST(2) = NPFIST + 1\r\n      FIST(2*NPFIST+3) = SAVE\r\nC\r\n      K = ANDF(THCRMK,SCRN2)\r\n      DO 50 I = 4,LMT,ICFIAT\r\n      IF (ITAB6(I+1).EQ.SCRN1 .AND. ANDF(THCRMK,ITAB6(I+2)).EQ.K)\r\n     1    GO TO 35\r\n      IF (ITAB6(I+3).NE.0 .OR. ITAB6(I+4).NE.0 .OR. ITAB6(I+5).NE.0)\r\n     1    GO TO 32\r\n      IF (ICFIAT.EQ.11 .AND.  (ITAB6(I+8).NE.0 .OR. ITAB6(I+9).NE.0 .OR.\r\n     1    ITAB6(I+10).NE.0)) GO TO 32\r\n      GO TO 35\r\n   32 LTU = ANDF(ITAB6(I),1073676288)\r\nC                         1073676288 = 2**30 - 2**16 = 3FFF0000 HEX\r\nC                                    = 0 SIGN BIT + LEFT 14 BITS OF 1's\r\n      IF (LTU.GE.NEXT .OR. LTU .EQ. 0) GO TO 50\r\n   35 IUCB = ANDF(ITAB6(I),32767)\r\nC                          32767 = 2**15 - 1 = RIGHT 15 BITS OF 1's\r\n      IF (IUCB .EQ. 32767) GO TO 50\r\n      DO 40 J = 4,LMT,ICFIAT\r\n      IF (ANDF(ITAB6(J),32767) .NE. IUCB) GO TO 40\r\n      IF (I .EQ. J) GO TO 40\r\n      LTU = ANDF(ITAB6(J),1073676288)\r\n      IF (LTU.LT.NEXT .AND. LTU.NE.0) GO TO 40\r\n      IF (ITAB6(J+3).NE.0 .OR. ITAB6(J+4).NE.0 .OR. ITAB6(J+5).NE.0)\r\n     1    GO TO 50\r\n      IF (ICFIAT.EQ.11 .AND. (ITAB6(J+8).NE.0 .OR. ITAB6(J+9).NE.0 .OR.\r\n     1    ITAB6(J+10).NE.0)) GO TO 50\r\n   40 CONTINUE\r\n      IF (IFOUND .EQ. 0) IFOUND = I\r\nC\r\nC     FLUSH FILE IN CASE DATA EXISTS ON FILE\r\nC     THIS WILL FREE UP SECONDARIES ON 360 AND DISK ON CDC AND UNIVAC\r\nC\r\n      IF (ITAB6(I+3).NE.0 .OR. ITAB6(I+4).NE.0 .OR. ITAB6(I+5).NE.0)\r\n     1    GO TO 45\r\n      IF (ICFIAT.EQ.11 .AND. (ITAB6(I+8).NE.0 .OR. ITAB6(I+9).NE.0 .OR.\r\n     1    ITAB6(I+10).NE.0)) GO TO 45\r\n      GO TO 50\r\n   45 FIST(2*NPFIST+4) = I - 1\r\n      CALL OPEN (*360,SAVE,DATABF,1)\r\n      CALL CLOSE (SAVE,1)\r\n   50 CONTINUE\r\nC\r\n      IF (IFOUND .EQ. 0) CALL MESAGE (-39,0,0)\r\n      I = -2\r\n      IF (ITAB11(1)+ITAB11(-I) .EQ. I) ICFIAT = ICFIAT + I\r\nC\r\nC     GOOD NEWS - WE FOUND A FILE FOR SAVE PURPOSES.\r\nC     SAVE POINTER TO FILE IN BLANK COMMON.\r\nC\r\n      I = IFOUND\r\n      IBLKCM(1) = ITAB6(I)\r\nC\r\nC     SAVE UNIT = 2 FOR ALL MACHINES, IBM INCLUDED\r\nC     (IBM USED 51 BEFORE)\r\nC\r\n      IUNITU = 2\r\nC\r\nC     FCB ARREY OF 75 WORDS IS NOT USED BY VAX AND UNIX\r\nC\r\n      REWIND IUNITU\r\n      IF (MACH .LT. 5) WRITE (IUNITU) ITAB6(I),ISYBUF,FCB\r\n      IF (MACH .GE. 5) WRITE (IUNITU) ITAB6(I),ISYBUF\r\n      REWIND IUNITU\r\n      FIST(2*NPFIST+4) = I - 1\r\nC\r\nC     SET PREFAC FLAG SO LINK 1 IS RE-ENTRANT\r\nC\r\nC     PREFAC(1) = NOPREF(1)\r\nC     PREFAC(2) = NOPREF(2)\r\nC\r\nC     SAVE THE NEXT LINK NO. IN THE 22ND WORD OF /SYSTEM/\r\nC\r\n      ITAB10(22) = JOBSEG\r\nC\r\nC     WRITE EXEC TABLES ON THE FILE JUST FOUND.\r\nC\r\n      CALL OPEN  (*360,SAVE,DATABF,1)\r\n      LTAB10(7)  = 0\r\n      CALL WRITE (SAVE,ITAB10,LSYSTM,1)\r\n      CALL WRITE (SAVE,ITAB1,ITAB1(1)*4+2,1)\r\n      CALL WRITE (SAVE,ITAB2,1,1)\r\n      CALL WRITE (SAVE,ITAB3,6,1)\r\n      CALL WRITE (SAVE,ITAB4,ITAB4(3)*3+3,1)\r\n      CALL WRITE (SAVE,ITAB5,NPFIST,1)\r\n      CALL WRITE (SAVE,ITAB6,ITAB6(3)*ICFIAT+3,1)\r\n      CALL WRITE (SAVE,ITAB7,ITAB7(2),1)\r\n      CALL WRITE (SAVE,ITAB8,ITAB8(2),1)\r\n      CALL WRITE (SAVE,ITAB9(12),75,1)\r\n      CALL WRITE (SAVE,ITAB11,224,1)\r\n      CALL WRITE (SAVE,ITAB13,ITAB13(1)+1,1)\r\n      CALL WRITE (SAVE,ITAB14,ITAB14(1)+2,1)\r\n      CALL WRITE (SAVE,ITAB15,27,1)\r\n      CALL WRITE (SAVE,BT,64,1)\r\n      CALL CLOSE (SAVE,1)\r\nC\r\nC     FLUSH ANY QUEUED SYSTEM OUTPUT.\r\nC     LOAD NEXT LINK NO. INTO UNIT 97, AND TERMINATE PRESENT LINK.\r\nC\r\n      KK = ITAB10(2)\r\n      WRITE  (KK,55)\r\n   55 FORMAT (//)\r\n      CALL CONMSG (MSGBUF   ,4,0)\r\n      CALL CONMSG (MSGBUF(5),4,0)\r\n      IF (MACH .EQ. 4) GO TO 67\r\n      IF (ITAB10(7) .LT. 0) ENDFILE 52\r\nC\r\nC     IF IBM NEW LOGIC OF LINK SWITCHING VIA FILE 97 IS NOT AVAILBLE,\r\nC     WE STILL NEED THE NEXT 3 LINES FOR DEAR OLD IBM\r\nC\r\n      IF (MACH .NE. 2) GO TO 60\r\nC     CALL SEARCH (JOBSEG,SYSLB2,NOTUSE)\r\n      CALL SEARCH (JOBSEG)\r\n      GO TO 400\r\nC\r\n   60 I = KHRFN3(MSGBUF(3),JOBSEG,2,1)\r\n      IF (MACH.EQ.9 .OR. MACH.EQ.12) GO TO 61\r\n      OPEN (UNIT=97,ACCESS='SEQUENTIAL',STATUS='NEW',ERR=64)\r\n      GO TO 62\r\n   61 CALL FLUNAM (97,FORTXX)\r\n      OPEN (UNIT=97,ACCESS='SEQUENTIAL',STATUS='NEW',ERR=64,FILE=FORTXX)\r\n   62 WRITE  (97,63) I\r\n   63 FORMAT ('NAST',A2)\r\n      CLOSE (UNIT=97)\r\n      CALL EXIT\r\nCSUN  CALL EXIT (0)\r\n   64 WRITE  (NOUT,65)\r\n   65 FORMAT ('0*** SYSTEM ERROR, CAN NOT OPEN FORTRAN UNIT 97 FOR ',\r\n     1        'LINK SWITCH')\r\n      CALL MESAGE (-37,0,NAME)\r\nC\r\nC     DETERMINE LINK NUMBER FOR 6600\r\nC\r\n   67 I = ANDF(4095,RSHIFT(JOBSEG,36))\r\n      I1 = I/64\r\n      I2 = I - I1*64\r\n      I  = 10*I1 + I2 - 297\r\n      I76= 76\r\n      CALL LINK (I,ITAB10(I76),0)\r\n      GO TO 350\r\nC\r\nC\r\n      ENTRY BGNSYS\r\nC     ============\r\nC\r\n      NPRUS      = 0\r\n      BITPAS     = .TRUE.\r\n      MSGBUF(4)  = MSG(1)\r\nC     PREFAC(1)  = 0\r\nC     PREFAC(2)  = 0\r\n      IF (SPERLK .EQ. 0) GO TO 70\r\nC\r\nC     SIMPLEFIED OPERATION IF SUPERLINK (USED IN UNIX VERSION)\r\nC\r\n      IF (SPERLK.LT.1 .OR. SPERLK.GT.15) GO TO 225\r\n      ITAB10(22) = LINKS(SPERLK)\r\n      MSGBUF(2)  = LNKNUM(SPERLK)\r\n      JOBSXX     = ITAB10(22)\r\n      GO TO 228\r\nC\r\nC     BGNSYS RESTORES THE EXEC TABLES SAVED BY ENDSYS\r\nC     THEN REPOSITIONS THE OSCAR TO THE ENTRY FOR THE MODULE\r\nC     IN THE CURRENT LINK.\r\nC\r\n   70 IUNITU = 2\r\n      IF (MACH .LT. 5) READ (IUNITU) ITAB6(4),ISYBUF,FCB\r\n      IF (MACH .GE. 5) READ (IUNITU) ITAB6(4),ISYBUF\r\n      FIST(2) = NPFIST + 1\r\n      FIST(2*NPFIST+3) = SAVE\r\n      FIST(2*NPFIST+4) = 3\r\n      J = 5000\r\n      CALL OPEN (*360,SAVE,DATABF(J),0)\r\n      CALL READ (*340,*80,SAVE,ITAB10,900,1,FLG)\r\n   80 CALL READ (*340,*90,SAVE,ITAB1,900,1,FLG)\r\n      GO TO 350\r\n   90 CALL READ (*340,*100,SAVE,ITAB2,900,1,FLG)\r\n      GO TO 350\r\n  100 CALL READ (*340,*110,SAVE,ITAB3,900,1,FLG)\r\n      GO TO 350\r\n  110 CALL READ (*340,*120,SAVE,ITAB4,900,1,FLG)\r\n      GO TO 350\r\n  120 CALL READ (*340,*130,SAVE,ITAB5,900,1,FLG)\r\n      GO TO 350\r\n  130 CALL READ (*340,*140,SAVE,ITAB6,900,1,FLG)\r\n      GO TO 350\r\n  140 CALL READ (*340,*150,SAVE,ITAB7,900,1,FLG)\r\n      GO TO 350\r\n  150 CALL READ (*340,*160,SAVE,ITAB8,900,1,FLG)\r\n      GO TO 350\r\n  160 CALL READ (*340,*170,SAVE,ITAB9(12),900,1,FLG)\r\n      GO TO 350\r\n  170 CALL READ (*340,*190,SAVE,ITAB11,900,1,FLG)\r\n      GO TO 350\r\n  190 CALL READ (*340,*210,SAVE,ITAB13,900,1,FLG)\r\n      GO TO 350\r\n  210 CALL READ (*340,*220,SAVE,ITAB14,900,1,FLG)\r\n      GO TO 350\r\n  220 CALL READ (*340,*221,SAVE,ITAB15,900,1,FLG)\r\n      GO TO 350\r\n  221 CALL READ (*340,*222,SAVE,BT,900,1,FLG)\r\n      GO TO 350\r\n  222 CALL CLOSE (SAVE,1)\r\nC\r\nC     RETRIEVE THE CURRENT LINK NO. FROM THE 22ND WORD OF /SYSTEM/\r\nC\r\n      JOBSXX = ITAB10(22)\r\n      DO 224 I = 1,15\r\n      IF (JOBSXX .NE. LINKS(I)) GO TO 224\r\n      MSGBUF(2) = LNKNUM(I)\r\n      GO TO 228\r\n  224 CONTINUE\r\n  225 WRITE  (NOUT,226) SFM,JOBSXX,SPERLK\r\n  226 FORMAT (A25,', ILLEGAL LINK NUMBER ',A4,' ENCOUNTERED BY BGNSYS.',\r\n     1        4X,'SPERLK=',I14)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  228 CALL PRESSW (JOBSXX,I)\r\n      CALL CONMSG (MSGBUF,4,0)\r\n      CALL SSWTCH (15,L15)\r\n      CALL SSWTCH ( 8,L 8)\r\n      CALL SSWTCH (13,L13)\r\n      IF (MACH .NE. 3) GO TO 320\r\nC\r\n      IF (ITAB10(7) .GE. 0) GO TO 238\r\n  232 READ (52,234,END=236) I\r\n  234 FORMAT (A1)\r\n      GO TO 232\r\n  236 BACKSPACE 52\r\n  238 CONTINUE\r\nC\r\nC     REPOSITION DRUM FILES OFF LOAD POINT (1108 ONLY)\r\nC\r\n      CALL DEFCOR\r\n      CALL CONTIN\r\nC\r\nC     TAPE-FLAG IS THE 45TH WORD OF /SYSTEM/\r\nC     IF THE 7TH BIT (COUNTING FROM RIGHT TO LEFT) OF TAPE-FLAG IS NOT\r\nC     ON (=1), AND PLT2 HAS NOT BEEN EXTERNALLY ASSIGNED AS A MAGNETIC\r\nC     TAPE, SET PLT2 IS TO DISK. SIMILARILY,\r\nC     IF THE 6TH BIT IS NOT SET, AND PLT1 IS NOT TAPE ASSIGNED, SET PLT1\r\nC     TO DISK\r\nC\r\n      I45   = 45\r\n      ISTAT = ANDF(ITAB10(I45),64)\r\n      JSTAT = ANDF(ITAB10(I45),32)\r\nC\r\n      DO 300 I = 1,75\r\nC\r\nC     CALL FACIL TO DETERMINE IF UNIT IS TAPE\r\nC\r\n      TENS  = I/10\r\n      UNITS = I - 10*TENS\r\n      NBCD  = BCDNUM(UNITS+1)\r\n      IF (TENS .EQ. 0) GO TO 295\r\n      MASKK = 255\r\n      MASKK = LSHIFT(MASKK,27)\r\n      NBCD  = ORF(ANDF(BCDNUM(TENS+1),MASKK),RSHIFT(NBCD,9))\r\n  295 CALL FACIL (NBCD,J)\r\nC\r\nC     DECODE UNITAB ENTRY\r\nC\r\n      NBLOCK = ANDF(RSHIFT(UNITAB(I),12),262143)\r\n      NLR = ANDF(UNITAB(I),4095)\r\n      IF (J.EQ.7 .OR. J.EQ.9) GO TO 298\r\nC\r\nC     POSITION DRUM UNIT NOW OFF LOAD POINT\r\nC\r\n      IF (NBLOCK+NLR .EQ. 1) GO TO 300\r\n      CALL NTRAN (I,10,22)\r\n      NOSECT = NBLOCK*ITAB9(164)\r\n      IF (NLR .EQ. 0) NOSECT = NOSECT - ITAB9(164)\r\n      IF (I.EQ.13 .AND. ISTAT.NE.0) NOSECT = UNITAB(13)\r\n      IF (I.EQ.12 .AND. JSTAT.NE.0) NOSECT = UNITAB(12)\r\n      CALL NTRAN (I,6,NOSECT)\r\nC\r\nC     RESET FCB ENTRY\r\nC     COMMENTS FROM G.CHAN/UNISYS   11/90\r\nC     FCB ARRAY OF 75 WORDS IS USED ONLY BY UNIVAC AND IBM. IT BEGINS\r\nC     AT THE 170TH WORD OF /GINOX/\r\nC\r\n  298 IF (NLR .NE. 0) NBLOCK = NBLOCK + 1\r\n      FCB(I) = NBLOCK\r\n  300 CONTINUE\r\nC\r\n  320 IF (SPERLK .NE. 0) GO TO 330\r\nC\r\nC     DEFINE OPEN CORE FOR VAX AND UNIX\r\nC\r\n      IF (MACH .GE. 5) CALL DEFCOR\r\nC\r\nC     REPOSITION POOL TO OSCAR ENTRY TO BE EXECUTED.\r\nC\r\n  330 BUF  = KORSZ(DATABF) - ITAB10(1)\r\n      FILE = POOL\r\n      CALL OPEN (*360,POOL,DATABF(BUF),2)\r\n      CALL BCKREC (POOL)\r\n      IF (SPERLK .EQ. 0) GO TO 400\r\n      DO 333 J = 1,60\r\n  333 IBLKCM(J)= 0\r\nC     DO 334 J = 1,1902\r\nC 334 DUMMY(J) = 0\r\nC     COMM( 1) = 0\r\nC     COMM( 3) = 0\r\n      COMM( 8) = 0\r\nC     COMM( 9) = 0\r\nC     COMM(12) = 0\r\nC     COMM(15) = 0\r\nC     COMM(18) = 0\r\n      DO 335 J = 1,1100\r\n  335 XF1AT(J) = 0\r\n      GO TO 400\r\nC\r\n  340 CONTINUE\r\n  350 CALL MESAGE (-37,0,NAME)\r\n  360 CALL MESAGE (-1,FILE,NAME)\r\nC\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eqmck.f",
    "content": "      SUBROUTINE EQMCK\r\nC\r\nC     EQMCK CREATES AN OUTPUT FILE OF MPC CONSTRAINT FORCES AND AN\r\nC     OVERALL TOTAL OF FORCES AND MOMENTS ON THE MODEL TO PROVIDE AN\r\nC     EQUILIBRIUM CHECK.\r\nC     VALID ONLY FOR STATICS AND REAL EIGENVALUE ANALYSIS.\r\nC\r\nC     DMAP CALLING SEQUENCE (DEFAULT PARAMETERS SHOWN)\r\nC                                                        LAMA\r\nC     EQMCK  CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/\r\nC            OQM1/V,Y,OPT=0/V,Y,GRDPNT=-1/V,N,NSKIP/V,Y,SUBNAM $\r\nC     WHERE\r\nC     OPT .EQ. 0, CREATE OQM\r\nC         .LT. 0, CALCULATE ST1\r\nC         .GT. 0, CALCULATE ST1 AND CREATES OQM\r\nC     GRDPNT - POINT ABOUT WHICH EQUILIBRIUM IS CALCULATED.\r\nC     NSKIP  - NO. RECORDS TO SKIP ON APPENDED FILES (1 OR GREATER),\r\nC              NEGATIVE IF EIGENVALUE PROBLEM.\r\nC     SUBNAM - RESERVED FOR FUTURE USE\r\nC\r\n      INTEGER         BGPDT,CSTM,CASECC,EQEXIN,GM,GPL,NAME(2),OQM,PGG,\r\n     1                QG,SF(7),SIL,UGV,USET,PARM,KFIL(14),TRL,SFL(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / IOPT,IGRID,NSKIP\r\n      COMMON /EQMK1 / K(21),KMPC,KLOAD,KSPC ,PARM(4),TRL(7)\r\n      COMMON /SYSTEM/ KSYSTM(80)\r\n      EQUIVALENCE     (KSYSTM(2),NOUT),(K(1),CASECC),(K(2),EQEXIN),\r\n     1                (K(3),GPL),(K(4),BGPDT),(K(5),SIL),(K(6),USET),\r\n     2                (K(7),KGG),(K(8),GM),(K(9),UGV),(K(10),PGG),\r\n     3                (K(11),QG),(K(12),CSTM),(K(13),LAMA),(K(14),OQM),\r\n     4                (K(15),SF(1))\r\n      DATA     KFIL /\r\nC          ... CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM ,UGV,PGG,QG,CSTM,\r\n     1         101  , 102,   103,104,  105,106, 107,108,109,110,111,112,\r\nC          ... LAMA , OQM .....\r\n     2         110  , 201 /\r\n      DATA     SFL  / 301,302,303,304,305,306,307 /\r\n      DATA     NAME / 4HEQMC, 2HK  /\r\nC\r\n      OQM   = 0\r\n      KMPC  = 0\r\n      KSPC  = 0\r\n      KLOAD = 0\r\n      PARM(3) = NAME(1)\r\n      PARM(4) = NAME(2)\r\n      DO 5 I = 1,7\r\n    5 SF(I) = SFL(I)\r\nC\r\n      DO 10 I = 1,11\r\n      TRL(1) = KFIL(I)\r\n      CALL RDTRL (TRL)\r\n      K(I) = TRL(1)\r\n   10 CONTINUE\r\n      LAMA = K(10)\r\n      CSTM = KFIL(12)\r\nC\r\nC     ALWAYS NECESSARY FILES\r\nC\r\n      PARM(2) = KFIL(1)\r\n      IF (CASECC .LT. 0) GO TO 120\r\n      PARM(2) = KFIL(2)\r\n      IF (EQEXIN .LT. 0) GO TO 120\r\n      PARM(2) = KFIL(13)\r\n      IF (NSKIP.LT.0 .AND. LAMA.LT.0) GO TO 120\r\nC\r\nC     FILES FOR OQM\r\nC\r\n      L = 0\r\n      IF (IOPT .LT. 0) GO TO 40\r\n      IF (GPL.LT.0 .OR. SIL.LT.0 .OR. USET.LT.0) GO TO 20\r\n      OQM = KFIL(14)\r\nC\r\nC     MPC CONSTRAINTS\r\nC\r\n   20 IF (GM.LT.0 .OR. UGV.LT.0 .OR. KGG.LT.0) GO TO 30\r\n      KMPC = 1\r\n   30 IF (KMPC.LE.0 .OR. IOPT.LT.0) OQM = -KFIL(14)\r\n      IF (OQM  .GT. 0) GO TO 40\r\n      IF (IOPT .LT. 0) GO TO 40\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,35) UWM,NAME\r\n   35 FORMAT (A25,' 2370, MULTI-POINT CONSTRAINT FORCES NOT CALCULATED',\r\n     1       ' IN ',A4,A2,' DUE TO MISSING INPUT FILE.')\r\n      IF (IOPT .EQ. 0) GO TO 70\r\nC\r\nC     ST1 CALCULATION\r\nC\r\nCWKBD 11/93 SPR93007   40 IF (IOPT  .EQ. 0) GO TO 60\r\nCWKBD 11/93 SPR93007      IF (BGPDT .LT. 0) GO TO 50\r\nCWKBI 11/93 SPR93007\r\n   40 CONTINUE\r\n      IF (PGG.GE.0 .AND. NSKIP.GE.0) KLOAD  = 1\r\n      IF (QG .GE. 0) KSPC = 1\r\n      L = KSPC + KMPC + KLOAD\r\nCWKBNB 11/93 SPR93007\r\n      IF (IOPT  .EQ. 0) GO TO 60\r\n      IF (BGPDT .LT. 0) GO TO 50\r\nCWKBNE 11/93 SPR93007\r\n      IF (L .GT. 0) GO TO 60\r\n   50 CALL PAGE2 (2)\r\n      WRITE (NOUT,110) UWM,NAME\r\n      IF (IOPT .LT. 0) GO TO 70\r\n      IOPT = 0\r\nC\r\n   60 CONTINUE\r\n      IF (IOPT.LT.0 .AND. L  .EQ.0) GO TO 70\r\n      IF (IOPT.EQ.0 .AND. OQM.LE.0) GO TO 70\r\n      IF (IOPT.GT.0 .AND. L.EQ.0 .AND. OQM.LE.0) GO TO 70\r\nC\r\nC     CREATE MPC DATA AND OQM\r\nC\r\n      IF (KMPC.GT.0 .OR. (NSKIP.GT.1 .AND. L.GT.0)) CALL EQMCKM\r\n      IF (L .EQ. 0) GO TO 70\r\nC\r\nC     CALCULATE D-T FOR ST1\r\nC\r\n      I = IGRID\r\n      CALL EQMCKA (IGRID,BGPDT,CSTM,EQEXIN,SF(2),L)\r\n      IF (IGRID .NE. 0) IGRID = I\r\n      IF (L .EQ. 0) GO TO 140\r\nC\r\nC     CALCULATE AND OUTPUT ST1\r\nC\r\n      CALL EQMCKS\r\nC\r\n   70 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  110 FORMAT (A25,' 2371, EQUILIBRIUM FORCES NOT CALCULATED IN ',A4,A2,\r\n     1       ' DUE TO MISSING INPUT FILE.')\r\n  120 PARM(1) = 1\r\n      CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      GO TO 70\r\nC\r\n  140 CALL PAGE2 (2)\r\n      WRITE  (NOUT,150) UWM,NAME\r\n  150 FORMAT (A25,' 2372, ',A4,A2,' IS UNABLE TO CALCULATE RIGID BODY ',\r\n     1       'TRANSFORMATION FOR SCALAR MODEL.')\r\n      GO TO 70\r\n      END\r\n"
  },
  {
    "path": "mis/eqmcka.f",
    "content": "      SUBROUTINE EQMCKA (IP,BGPDT,CSTM,EQEXIN,D,ISCALR)\r\nC\r\nC     ROUTINE FORMS D MATRIX (ACCTUALLY D TRANSPOSE)\r\nC\r\n      INTEGER         BGPDT,FILE,CSTM,EQEXIN,D,SYSBUF,IZ(1),MCB(7),\r\n     1                NAME(2)\r\n      REAL            TR(3,3),TI(3,3),DD(6,6),R(3)\r\n      DIMENSION       TT(3,3)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\nC\r\n      DATA    IZ2   , IZ3,IZ4,IZ5  / 2,3,4,5 /\r\n      DATA    NAME  / 4HEQMC,4HKA  /\r\nC\r\nC     CONVERT  EXTERNAL IP TO INTERNAL IP\r\nC\r\n      IBUF = KORSZ(Z)-SYSBUF+1\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(IBUF),0)\r\n      CALL READ  (*220,*10,EQEXIN,IZ(1),IBUF-1,0,IFLAG)\r\n      GO TO 240\r\n   10 CALL CLOSE (EQEXIN,1)\r\n      DO 20 I = 1,IFLAG,2\r\n      IF (IZ(I) .EQ.IP) GO TO 40\r\n   20 CONTINUE\r\n      CALL MESAGE (41,IP,NAME)\r\n      IP = 0\r\n      GO TO 50\r\n   30 CALL MESAGE (41,IP,NAME)\r\nC\r\nC     SCALAR POINT\r\nC\r\n      GO TO 60\r\n   40 IP = IZ(I+1)\r\nC\r\nC     FIND RZERO FOR  IP\r\nC\r\n   50 FILE = BGPDT\r\n      R(1) = 0.0\r\n      R(2) = 0.0\r\n      R(3) = 0.0\r\n      CALL GOPEN (BGPDT,Z(IBUF),0)\r\n      IF (IP .EQ. 0) GO TO 70\r\n      I= (IP-1)*4\r\n      CALL FREAD (BGPDT,Z,-I,0)\r\n      CALL FREAD (BGPDT,I, 1,0)\r\n      IF (I .EQ. -1) GO TO 30\r\n      CALL FREAD (BGPDT,R,3,0)\r\n   60 CALL REWIND (BGPDT)\r\n      CALL SKPREC (BGPDT,1)\r\nC\r\nC     SET UP TO WRITE D\r\nC\r\n   70 IBUF1 = IBUF-SYSBUF\r\n      NZ = IBUF1-5\r\nC\r\nC     BRING IN CSTM\r\nC\r\n      FILE = CSTM\r\n      CALL OPEN   (*90,CSTM,Z(IBUF1),0)\r\n      CALL FWDREC (*220,CSTM)\r\n      CALL READ   (*220,*80,CSTM,Z(IZ5),NZ,0,NCSTM)\r\n      GO TO 240\r\n   80 CALL CLOSE  (CSTM,1)\r\n      CALL PRETRS (Z(IZ5),NCSTM)\r\n   90 CALL GOPEN  (D,Z(IBUF1),1)\r\n      CALL MAKMCB (MCB,D,6,2,1)\r\n      ISCALR = 0\r\n      II     = 1\r\n      JJ     = 6\r\n      IT1    = 1\r\n      IT2    = 1\r\n      INCR   = 1\r\nC\r\nC     EXAMINE BGPDT\r\nC\r\n  100 CALL READ (*220,*190,BGPDT,Z(1),4,0,IFLAG)\r\n      IF (IZ(1) .EQ. -1) GO TO 170\r\nC\r\nC     COMPUTE  TR\r\nC\r\n      ISCALR  = 1\r\n      TR(1,1) = 0.0\r\n      TR(2,2) = 0.0\r\n      TR(3,3) = 0.0\r\n      TR(2,1) = Z(IZ4) -R(3)\r\n      TR(1,2) =-TR(2,1)\r\n      TR(3,1) = R(2)- Z(IZ3)\r\n      TR(1,3) =-TR(3,1)\r\n      TR(3,2) = Z(IZ2)-R(1)\r\n      TR(2,3) =-TR(3,2)\r\n      DO 110 I = 1,3\r\n      DO 110 J = 1,3\r\n      TI(I,J) = 0.0\r\n      IF (I .EQ. J) TI(I,J) = 1.0\r\n  110 CONTINUE\r\n      IF (IZ(1) .EQ. 0) GO TO 130\r\n      CALL TRANSS (IZ(1),TI)\r\n      CALL GMMATS (TI,3,3,1,TR,3,3,0,TT)\r\n      DO 120 I = 1,3\r\n      DO 120 J = 1,3\r\n  120 TR(I,J) = TT(I,J)\r\nC\r\nC     MOVE STUFF INTO  DD\r\nC\r\n  130 DO 150 I = 1,6\r\n      DO 150 J = 1,3\r\n      IF (I .GT. 3) GO TO 140\r\n      DD(I  ,J  ) = TI(J,I)\r\n      DD(I+3,J+3) = DD(I,J)\r\n      GO TO 150\r\n  140 DD(I,J) = TR(I-3,J)\r\n      DD(J,I) = 0.0\r\n  150 CONTINUE\r\n      DO 160 I = 1,6\r\n      CALL PACK (DD(1,I),D,MCB)\r\n  160 CONTINUE\r\n      GO TO 100\r\nC\r\nC     SCALAR POINT\r\nC\r\n  170 DO 180 I = 1,6\r\n  180 DD(I,1) = 0.0\r\n      CALL PACK (DD,D,MCB)\r\n      GO TO 100\r\nC\r\nC     END BGPDT\r\nC\r\n  190 CALL CLOSE  (BGPDT,1)\r\n      CALL CLOSE  (D,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  210 CALL MESAGE (IP1,FILE,NAME)\r\n  220 IP1 = -2\r\n      GO TO 210\r\n  240 IP1 = -8\r\n      GO TO 210\r\n      END\r\n"
  },
  {
    "path": "mis/eqmckm.f",
    "content": "      SUBROUTINE EQMCKM\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE MPC CONSTRAINT FORCES AND CREATES\r\nC     THE OUTPUT FILE FOR OFP.\r\nC     TASKS INCLUDE CREATING THE SCRATCH FILES FOR THE CURRENT SUBCASES\r\nC     (PGG, QG - ALSO USED IN EQUILIBRIUM CHECKS).\r\nC     NOT CODED TO HANDLE CONICAL ELEMENTS OR SORT2.\r\nC\r\n      LOGICAL         FIRSTC,FIRSTO,LASCAS,ANYOUT\r\n      INTEGER         NAME(2),KON(10),IDAT(3),PARM,TRL,UG,UM,UN,MCB(7),\r\n     1                RDNRW,RDRW,WRTNRW,WRTRW,ZZ,OCB(8)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /NAMES / RDNRW,RDRW,WRTNRW,WRTRW,KRW,KNRW,KNERW\r\n      COMMON /SYSTEM/ KSYSTM(80)\r\n      COMMON /BITPOS/ UM,SKPS(8),UN,UG\r\n      COMMON /BLANK / SKPB(2),NSKIP\r\n      COMMON /EQMK1 / KSCC,KEXIN,KGPL,KBGDT,KSIL,KUSET,KGG,KGM,KUGV,\r\n     1                KPGG,KQG,KCSTM,KLAM,KOQM,KSCR(7),KMPC,KLOAD,KSPC,\r\n     2                PARM(4),TRL(7)\r\nCZZ   COMMON /ZZSSA2/ ZZ(1)\r\n      COMMON /ZZZZZZ/ ZZ(20000)\r\n      COMMON /UNPAKX/ ITYPU,INRU,ILRU,INCU\r\n      COMMON /MPYADX/ MA(7),MB(7),MC(7),MD(7),MZ,MT,MSAB,MSC,MPR,MSCR\r\n      COMMON /PATX  / LCOR,INS(3),LUSET\r\n      EQUIVALENCE     (MCB(1),OCB(1)),(KSYSTM(1),ISBZ),(KSYSTM(2),NOUT),\r\n     1                (KSYSTM(15),ITIM),(KSYSTM(16),IDAT(1))\r\nCWKBI 3/94 SPR93007      \r\n      EQUIVALENCE     (KSYSTM(55),IPREC)\r\n      DATA    NAME  / 4HEQMC,2HKM /\r\n      DATA    KON   / 1,20,0,-1,0,0,0,0,1,8 /\r\n      DATA    KG    / 1HG   /\r\nC\r\nC                      KNG\r\nC     PARTITION  KGG = ---- , ONLY KMG SAVED\r\nC                      KMG\r\n      ANYOUT =.FALSE.\r\n      NZZ    = KORSZ (ZZ(1))\r\n      LCOR   = NZZ\r\n      LUSET  = KUSET\r\n      IF (KMPC .EQ. 0) GO TO 10\r\n      KMPC   = -1\r\n      CALL CALCV (KSCR(1),UG,UN,UM,ZZ)\r\n      CALL SSG2A (KGG,0,KSCR(2),KSCR(1))\r\nC\r\nC     UNAPPEND FILES\r\nC\r\n   10 CONTINUE\r\n      NZZ3 = NZZ - 3*ISBZ + 1\r\n      NZZ2 = NZZ3 + ISBZ\r\n      NZZ1 = NZZ2 + ISBZ\r\n      NZZ4 = NZZ3\r\n      IF (NSKIP.LE.0) NZZ4 = NZZ3 - ISBZ\r\nC\r\n      IF (NSKIP .LE. 1) GO TO 30\r\nC\r\n      IF (KLOAD .LE. 0) GO TO 20\r\n      TRL(1) = KPGG\r\n      MCB(1) = KSCR(4)\r\n      CALL CURCAS (*15,NSKIP,TRL,MCB,ZZ,NZZ2)\r\n      KPGG   = MCB(1)\r\n       GO TO 20\r\n   15 KLOAD  = 0\r\nC\r\n   20 IF (KUGV .LT. 0) GO TO 30\r\n      TRL(1) = KUGV\r\n      MCB(1) = KSCR(3)\r\n      CALL CURCAS (*345,NSKIP,TRL,MCB,ZZ,NZZ2)\r\n      KUGV   = MCB(1)\r\n   30 CONTINUE\r\n      IF (KMPC .EQ. 0) GO TO 360\r\nC\r\nC                      PN\r\nC     PARTITION  PGG = --- , ONLY PM SAVED\r\nC                      PM\r\n      IF (KLOAD.GT.0) CALL SSG2A (KPGG,0,KSCR(7),KSCR(1))\r\nC\r\nC                 M\r\nC     MULTIPLY  QM = -PM + KMG*UGV\r\nC\r\n      MD(1) = KSCR(5)\r\n      MC(1) = KSCR(7)\r\n      CALL RDTRL (MC)\r\n      IF (KLOAD .LE. 0) MC(1) = 0\r\n      MA(1) = KSCR(2)\r\n      MB(1) = KUGV\r\n      CALL RDTRL (MA)\r\n      CALL RDTRL (MB)\r\n      MD(3) = MA(3)\r\n      MD(4) = MB(4)\r\nCWKBR 11/93 SPR93007      MD(5) = 1\r\n      MD(5) = IPREC\r\n      MZ    = NZZ\r\n      MT    = 0\r\n      MSAB  = 1\r\n      MSC   =-1\r\nCWKBR 11/93 SPR93007      MPR   = 1\r\n      MPR   = IPREC\r\n      MSCR  = KSCR(1)\r\n      CALL MPYAD (ZZ,ZZ,ZZ)\r\n      IF (MD(3) .EQ. MD(2)) MD(4) = 1\r\n      CALL WRTTRL (MD)\r\nC\r\nC                 N       T   M\r\nC     MULTIPLY  QM = - GM * QM\r\nC\r\n      MD(1) = KSCR(6)\r\n      MC(1) = 0\r\n      MA(1) = KGM\r\n      MB(1) = KSCR(5)\r\n      CALL RDTRL (MA)\r\n      CALL RDTRL (MB)\r\n      MD(3) = MA(2)\r\n      MD(4) = MB(4)\r\nCWKBR SPR93007      MD(5) = 1\r\n      MD(5) = IPREC\r\n      MT    = 1\r\n      MSAB  =-1\r\n      CALL MPYAD (ZZ,ZZ,ZZ)\r\n      IF (MD(3) .EQ. MD(2)) MD(4) = 1\r\n      CALL WRTTRL (MD)\r\nC\r\nC             N      M\r\nC     MERGE QM AND QM ON SCRATCH 3\r\nC\r\n      TRL(1) = KSCR(5)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) GO TO 345\r\n      KMPC   = 1\r\nC\r\n      CALL SDR1B (KSCR(1),KSCR(6),KSCR(5),KSCR(3),UG,UN,UM,KUSET,0,0)\r\n      TRL(1) = KSCR(3)\r\n      CALL RDTRL (TRL)\r\n      MSZE   = 2*TRL(3)\r\nC\r\nC     CREATE MPC-CONSTRAINT OUTPUT FILE\r\nC\r\n      IF (KOQM .LE. 0) GO TO 360\r\n      IAPP = 10\r\n      IF (NSKIP .LT. 0) IAPP = 20\r\n      CALL MXCID (*345,ZZ,KG,MSZE/2,2,KUSET,KGPL,KSIL,NZZ2)\r\n      DO 40 I = 2,MSZE,2\r\n   40 ZZ(I) = I/2\r\nC\r\nC     SORT ON EXTERNAL ID\r\nC\r\n      NENT = 2\r\n      IF (MSZE .EQ. 2) GO TO 70\r\nC\r\n      IFIL = KSIL\r\n      DO 60 I = 3,MSZE,2\r\n      IF (ZZ(I) .GT. ZZ(I-2)) GO TO 50\r\n      TRL(1) = ZZ(I)\r\n      TRL(2) = ZZ(I+1)\r\n      CALL BISHEL (*410,TRL,NENT,2,ZZ(1))\r\n       GO TO 60\r\n   50 NENT   = NENT + 2\r\n   60 CONTINUE\r\nC\r\n   70 CONTINUE\r\n      LKSCC  = MSZE + 1\r\n      IF (LKSCC+146 .GE. NZZ4) GO TO 420\r\n      IVEC   = 0\r\n      TRL(1) = KSCR(3)\r\n      CALL RDTRL (TRL)\r\n      NVEC   = TRL(2)\r\n      ITYPU  = 1\r\n      INCU   = 1\r\n      ISDONE = 0\r\n      LASCAS = .FALSE.\r\n      CALL GOPEN (KSCC,ZZ(NZZ1),RDRW)\r\n      CALL GOPEN (KSCR(3),ZZ(NZZ3),RDRW)\r\nC\r\n      IF (NSKIP .GT. 0) GO TO 90\r\nC\r\nC     POSITION LAMA\r\nC\r\n      IFIL   = KLAM\r\n      CALL OPEN (*350,KLAM,ZZ(NZZ4),RDRW)\r\n      CALL READ (*440,*450,KLAM,0,0,1,I)\r\n      CALL READ (*440,*450,KLAM,0,0,1,I)\r\n   90 IFIL   = KOQM\r\n      CALL OPEN (*430,KOQM,ZZ(NZZ2),WRTRW)\r\n      CALL FNAME (KOQM,TRL(1))\r\n      TRL(3) = ITIM\r\n      TRL(4) = IDAT(1)\r\n      TRL(5) = IDAT(2)\r\n      TRL(6) = IDAT(3)\r\n      TRL(7) = 1\r\n      CALL WRITE (KOQM,TRL(1),7,1)\r\nC\r\nC     POSITION CASECC.  ASSUME USER WILL MISSET NSKIP\r\nC\r\n      IF (NSKIP .LE. 1) GO TO 100\r\n      J    = NSKIP - 1\r\n      IFIL = KSCC\r\n      DO 95 I = 1,J\r\n   95 CALL FWDREC (*440,KSCC)\r\nC\r\nC     LOOP ON EACH VECTOR\r\nC\r\n  100 IVEC = IVEC + 1\r\nC\r\nC     SUBCASE ID\r\nC\r\n      CALL READ (*160,*160,KSCC,ZZ(LKSCC),38,0,I)\r\n      ISB = ZZ(LKSCC  )\r\n      ILD = ZZ(LKSCC+3)\r\n      IEG = 0\r\nC\r\nC     CLEAN UP UNUSED WORDS\r\nC\r\n      I = LKSCC + 10\r\n      J = LKSCC + 49\r\n      DO 105 K = I,J\r\n  105  ZZ(K) = 0\r\nC\r\nC     TITLES\r\nC\r\n      CALL FREAD (KSCC,ZZ(LKSCC+50),96,0)\r\n      CALL FREAD (KSCC,0,-31,0)\r\n      CALL FREAD (KSCC,LCC,1,0)\r\n      CALL FREAD (KSCC,0,-6,0)\r\nC\r\nC     MPCFORCE REQUEST\r\nC\r\n      NGSET = 0\r\n      LSETD = LKSCC + 146\r\n      CALL FREAD (KSCC,INS(1),3,0)\r\n      IF (INS(1)) 110,120,130\r\nC\r\nC     ALL REQUESTED\r\nC\r\n  110 CALL FREAD (KSCC,0,0,1)\r\n       GO TO 180\r\nC\r\nC     NONE REQUESTED\r\nC\r\n  120 IFIL = KLAM\r\n      CALL FREAD (KSCC,0,0,1)\r\n      IF (NSKIP .GT. 0) GO TO 240\r\n      CALL READ (*350,*350,KLAM,TRL(1),7,0,I)\r\n       GO TO 240\r\nC\r\nC     SET REQUESTED\r\nC\r\n  130 CONTINUE\r\n      CALL FREAD (KSCC,0,-LCC+176,0)\r\nC\r\nC     SKIP SYMMETRY SEQUENCE\r\nC\r\n      CALL FREAD (KSCC,I,1,0)\r\n      IF (I .LE. 0) GO TO 140\r\n      CALL FREAD (KSCC,0,-I,0)\r\n  140 IFIL = KSCC\r\n      CALL READ (*440,*450,KSCC,TRL(1),2,0,I)\r\n      IF (TRL(1) .EQ. INS(1)) GO TO 150\r\n      CALL FREAD (KSCC,0,-TRL(2),0)\r\n      GO TO 140\r\n  150 IF (LSETD+TRL(2).GT.NZZ4) GO TO 420\r\n      NGSET = TRL(2)\r\n      CALL FREAD (KSCC,ZZ(LSETD),NGSET,1)\r\n      GO TO 180\r\nC\r\nC     EOF ON CASE CONTROL.  CHECK IF REALLY DONE\r\nC\r\n  160 CONTINUE\r\n      IF (NSKIP .LT.   0) GO TO 170\r\n      IF (IVEC .GT. NVEC) GO TO 350\r\n      IFIL = KSCC\r\n      GO TO 440\r\nC\r\n  170 IF (IVEC .GT. NVEC) GO TO 350\r\n      LASCAS = .TRUE.\r\n      IVEC   = IVEC - 1\r\nC\r\nC     INITIALIZE\r\nC\r\n  180 CONTINUE\r\n      IF (LASCAS) IVEC = IVEC + 1\r\n      FIRSTC = .TRUE.\r\n      FIRSTO = .TRUE.\r\n      IF (NSKIP .GT. 0) GO TO 190\r\n      CALL READ (*235,*235,KLAM,TRL(1),7,0,I)\r\n      ILD = TRL(1)\r\n      IEG = TRL(3)\r\n  190 MT  = LKSCC - 1\r\n      DO 200 J = 1,10\r\n      I   = J + MT\r\n  200 ZZ(I) = KON(J)\r\nC\r\n      IF (INS(3) .EQ. 1) GO TO 210\r\n      CALL PAGE2 (2)\r\n      WRITE  (6,205) UWM,NAME\r\n  205 FORMAT (A25,' 2373, ONLY SORT1-REAL SUPPORTED IN ',2A4)\r\n  210 ZZ(MT+1) = INS(2) + IAPP\r\n      ZZ(MT+4) = ISB\r\n      ZZ(MT+5) = ILD\r\n      ZZ(MT+6) = IEG\r\n      LVEC = LSETD + NGSET - 1\r\nC\r\nC     LOOP ON POINT DATA\r\nC   MT = POINTER TO MATCID GRID ID, MS = POINTER TO CASECC GRID REQUEST.\r\nC\r\n      IDG = -1\r\n      MT  = -1\r\n      MS  = LSETD\r\n  220 MT  = MT + 2\r\n      IF (MT .GT. MSZE) GO TO 240\r\n      IF (ZZ(MT)/10 .EQ. IDG) GO TO 220\r\n      IDG = ZZ(MT)/10\r\n      IF (INS(1) .LT. 0) GO TO 300\r\nC\r\nC     LOCATE POINT IN SET\r\nC\r\n  221 I = ZZ(MS)\r\n  222 IF (MS-LVEC) 223,228,240\r\n  223 IF (IDG-I) 230,300,224\r\n  224 I = ZZ(MS+1)\r\n      IF (I) 225,227,227\r\n  225 IF (IDG+I) 300,300,226\r\n  226 MS = MS+2\r\n      GO TO 221\r\n  227 MS = MS+1\r\n      GO TO 222\r\nC\r\nC     LAST POINT IN SET\r\nC\r\n  228 IF (I.LT.0 .AND. IDG+I.LE.0) GO TO 300\r\n      IF (IDG-I) 230,300,230\r\nC\r\nC     NOT IN SET\r\nC\r\n  230 IF (MT+2 .LT. LKSCC) GO TO 220\r\n      GO TO 240\r\nC\r\nC     END-OF-FILE\r\nC\r\n  235 ISDONE = 1\r\nC\r\nC     NO MORE GRIDS IN THIS SET\r\nC\r\n  240 CONTINUE\r\n      IF (.NOT.FIRSTO) CALL WRITE (KOQM,0,0,1)\r\n      IF (IVEC+1 .GT. NVEC) GO TO 350\r\n      IF (ISDONE .NE.    0) GO TO 350\r\nC\r\nC     CHECK IF COLUMN NEEDS TO BE SKIPPED\r\nC\r\n      IFIL = KSCR(3)\r\n      IF (FIRSTC) CALL FWDREC (*440,KSCR(3))\r\nC\r\n      IF (LASCAS) GO TO 180\r\n      GO TO 100\r\nC\r\nC     PROCESS THE GRID FOR OUTPUT\r\nC\r\n  300 MCB(1) = 10*IDG + INS(2)\r\n      IF (.NOT.FIRSTC) GO TO 310\r\n      IF (LVEC+MSZE/2 .GT. NZZ4) GO TO 420\r\n      INRU = 1\r\n      ILRU = MSZE/2\r\n      FIRSTC = .FALSE.\r\n      CALL UNPACK (*240,KSCR(3),ZZ(LVEC+1))\r\nC\r\n  310 CONTINUE\r\n      L      = 1\r\n      NENT   = 0\r\n      OCB(3) = 0\r\n      OCB(4) = 0\r\n      OCB(5) = 0\r\n      OCB(6) = 0\r\n      OCB(7) = 0\r\n      OCB(8) = 0\r\n      M = MIN0(MT+10,MSZE)\r\n      DO 330 I = MT,M,2\r\n      J = ZZ(I)/10\r\n      IF (J .NE. IDG) GO TO 335\r\n      K = ZZ(I+1) + LVEC\r\n      J = ZZ(I) - J *10 + 2\r\n      IF (J .GT. 2) GO TO 320\r\nC\r\nC     SCALAR\r\nC\r\n      L = 2\r\n      J = 3\r\nC\r\n  320 OCB(J) = ZZ(K)\r\n      IF (ZZ(K) .NE. 0) NENT = NENT + 1\r\n  330 CONTINUE\r\nC\r\n  335 OCB(2) = L\r\n      IF (NENT .EQ. 0) GO TO 220\r\n      IF (.NOT.FIRSTO) GO TO 340\r\nC\r\nC     WRITE OUT CONTROL RECORD (ODD NUMBER)\r\nC\r\n      ANYOUT = .TRUE.\r\n      CALL WRITE (KOQM,ZZ(LKSCC),146,1)\r\n      FIRSTO = .FALSE.\r\nC\r\nC     WRITE AN ENTRY OUT\r\nC\r\n  340 CALL WRITE (KOQM,OCB(1),8,0)\r\n      GO TO 220\r\nC\r\nC     CLOSE FILES\r\nC\r\n  345 CALL CLOSE (KOQM,KRW)\r\n      KOQM = -1\r\n      ANYOUT = .FALSE.\r\n  350 CALL CLOSE (KSCR(3),KRW)\r\n      CALL CLOSE (KSCC,KRW)\r\n      CALL CLOSE (KLAM,KRW)\r\n      IF (ANYOUT) CALL EOF (KOQM)\r\n      CALL CLOSE (KOQM,KRW)\r\n      IF (.NOT.ANYOUT) GO TO 360\r\n      TRL(1) = KOQM\r\n      TRL(2) = NVEC\r\n      TRL(3) = MSZE/2\r\n      TRL(4) = 0\r\n      TRL(5) = 0\r\n      TRL(6) = 1\r\n      TRL(7) = 0\r\n      CALL WRTTRL (TRL)\r\n  360 CONTINUE\r\nC\r\nC     CALCULATE UPDATED QG FILE - SCRATCH 5\r\nC\r\n      IF (KSPC  .EQ. 0) GO TO 405\r\n      IF (NSKIP .LE. 1) GO TO 405\r\n      TRL(1) = KQG\r\n      MCB(1) = KSCR(5)\r\n      CALL CURCAS (*407,NSKIP,TRL,MCB,ZZ,NZZ2)\r\n      KQG = MCB(1)\r\nC\r\n  405 RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\nC     KQG BAD\r\nC\r\n  407 KSPC = -1\r\n      GO TO 405\r\nC\r\n  410 I = 7\r\n      GO TO 490\r\n  420 I = 8\r\n      IFIL = NZZ4\r\n      GO TO 490\r\n  430 I = 1\r\n      GO TO 490\r\n  440 I = 2\r\n      GO TO 490\r\n  450 I = 3\r\n  490 CALL MESAGE (I,IFIL,NAME)\r\nC\r\nC     MPC OUTPUT FILE NOT CREATED, BUT DATA IS ON SCR3 FOR EQMCKS\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,510) UWM,NAME\r\n  510 FORMAT (A25,' 2380, MULTI-POINT CONSTRAINT FORCES NOT OUTPUT IN ',\r\n     1        A4,A2,', SEE QUEUED MESSAGES.')\r\n      GO TO 345\r\n      END\r\n"
  },
  {
    "path": "mis/eqmcks.f",
    "content": "      SUBROUTINE EQMCKS\r\nC\r\nC     THIS SUBROUTINE CALCULATES AND OUTPUTS OVERALL EQUILIBRIUM FORCES\r\nC\r\nC     THE INPUT FILES ARE\r\nC         KSCC - CASE CONTROL     - NOT PREPOSITIONED.\r\nC         KPGG - LOAD VECTORS     - FILE 110 OR SCRATCH4\r\nC         KQG  - SPC CONSTRAINTS  - FILE 111 OR SCRATCH5\r\nC         QMG  - MPC CONSTRAINTS  - SCRATCH3\r\nC         DT   - RIGID BODY TRANS - SCRATCH2\r\nC\r\n      LOGICAL         LSTEIG\r\n      INTEGER         EJECT    ,NAME(2)  ,PARM     ,\r\n     1                RDNRW    ,RDRW     ,WRTNRW   ,WRTRW\r\n      REAL            HEAD(2,4),COR1(8,1),COR3(8,3)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /NAMES / RDNRW,RDRW,WRTNRW,WRTRW,KRW,KNRW,KNERW\r\nCWKBR 3/94 SPR93007      COMMON /SYSTEM/ ISBZ,NOUT        \r\n      COMMON /SYSTEM/ ISBZ,NOUT,DUM(52),IPREC  \r\n      COMMON /BLANK / IOPT,IGPT,NSKIP,SKPB(15),CORE(8,4)\r\n      COMMON /UNPAKX/ IUNPR,IUNRW,NUNRW,IUNINC\r\n      COMMON /MPYADX/ MA(7),MB(7),MC(7),MD(7),MZ,MT,MSAB,MSC,MPR,MSCR\r\n      COMMON /EQMK1 / KSCC,KEQIN(8),KPGG,KQG,KCSTM,KLAMA,KOQM,KSCR(7)\r\n     1,               KMPC,KLOAD,KSPC,PARM(4)\r\nCZZ   COMMON /ZZEQMS/ ZZ(1)\r\n      COMMON /ZZZZZZ/ ZZ(20000)\r\n      EQUIVALENCE     (MB(6),FREQ), (CORE(1,1),COR1(1,1),COR3(1,1))\r\n      DATA    NAME  / 4HEQMC,4HKS    /\r\n      DATA    HEAD  / 4HAPPL,4HIED , 4HSPCF,4HORCE,  4HMPCF,4HORCE\r\n     1,               4H---T,4HOTAL  /\r\nC\r\n      PARM(3) = NAME(1)\r\n      PARM(4) = NAME(2)\r\n      NZZ   = KORSZ (ZZ)\r\n      NZZ3  = NZZ  - 3*ISBZ + 1\r\n      NZZ2  = NZZ3 + ISBZ\r\n      NZZ1  = NZZ2 + ISBZ\r\nC\r\n      NVEC  = 0\r\n      MA(1) = KSCR(2)\r\n      MC(1) = 0\r\n      CALL RDTRL (MA)\r\n      MZ    = NZZ\r\n      MT    = 0\r\n      MSAB  = 1\r\n      MSC   = 1\r\nCWKBR 11/93 SPR93007      MPR   = 1\r\n      MPR = IPREC\r\n      MSCR  = KSCR(1)\r\nC\r\nC     CALCULATE  DT*PG  ON SCRATCH7\r\nC\r\n      IF (KLOAD .LE. 0) GO TO 40\r\n      MB(1) = KPGG\r\n      MD(1) = KSCR(7)\r\n      CALL RDTRL (MB)\r\n      MD(3) = MA(3)\r\n      MD(4) = MB(4)\r\nCWKBR 11/93 SPR93007      MD(5) = 1\r\n      MD(5) = IPREC\r\n      CALL MPYAD (ZZ,ZZ,ZZ)\r\n      IF (MD(3) .EQ. MD(2)) MD(4) = 1\r\n      CALL WRTTRL (MD)\r\n      NVEC  = MD(2)\r\nC\r\nC     CALCULATE DT*QG  ON SCRATCH6\r\nC\r\n   40 IF (KSPC .LE. 0) GO TO 50\r\n      MB(1) = KQG\r\n      MD(1) = KSCR(6)\r\n      CALL RDTRL (MB)\r\n      MD(3) = MA(3)\r\n      MD(4) = MB(4)\r\nCWKBR 11/93 SPR93007      MD(5) = 1\r\n      MD(5) = IPREC\r\n      CALL MPYAD (ZZ,ZZ,ZZ)\r\n      IF (MD(3) .EQ. MD(2)) MD(4) = 1\r\n      CALL WRTTRL (MD)\r\n      NVEC = MAX0(NVEC,MD(2))\r\nC\r\nC     CALCULATE  DT*MPC  ON SCRATCH5\r\nC\r\n   50 IF (KMPC .LE. 0) GO TO 60\r\n      MD(1) = KSCR(5)\r\n      MB(1) = KSCR(3)\r\n      CALL RDTRL (MB)\r\n      PARM(2) = MB(1)\r\n      IF (MB(1) .LE. 0) GO TO 520\r\n      MD(3) = MA(3)\r\n      MD(4) = MB(4)\r\nCWKBR 11/93 SPR93007      MD(5) = 1\r\n      MD(5) = IPREC\r\n      CALL MPYAD (ZZ,ZZ,ZZ)\r\n      IF (MD(3) .EQ. MD(2)) MD(4) = 1\r\n      CALL WRTTRL (MD)\r\n      NVEC  = MAX0(MD(2),NVEC)\r\n   60 IF (NVEC .LE. 0) GO TO 400\r\nC\r\nC     POSITION CASE CONTROL\r\nC\r\n      CALL GOPEN (KSCC,ZZ(NZZ1),RDRW)\r\n      IF (NSKIP .GT. 0) GO TO 70\r\nC\r\nC     RESERVE THIRD BUFFER FOR LAMA\r\nC\r\n      IBFL = NZZ3\r\n      PARM(2) = KLAMA\r\n      CALL GOPEN (KLAMA,ZZ(NZZ3),RDRW)\r\n      CALL FWDREC (*510,KLAMA)\r\n      GO TO 90\r\n   70 IBFL = NZZ2\r\n      IF (NSKIP .LE. 1) GO TO 90\r\nC\r\nC     ASSUME USER MAY MALADJUST NSKIP\r\nC\r\n      J = NSKIP - 1\r\n      PARM(2) = KSCC\r\n      DO 80 I = 1,J\r\n   80 CALL FWDREC (*510,KSCC)\r\nC\r\nC     READ INTO CORE AS MANY (MAXVEC) VECTORS THAT FIT\r\nC\r\n   90 NENTRY = 0\r\n      IF (KLOAD .GT. 0) NENTRY = 6\r\n      IF (KMPC  .GT. 0) NENTRY = NENTRY + 6\r\n      IF (KSPC  .GT. 0) NENTRY = NENTRY + 6\r\nC\r\n      MAXVEC = (IBFL-1)/NENTRY\r\n      IF (MAXVEC .GE. NVEC) GO TO 110\r\nC\r\nC     INSUFFICIENT CORE TO DO ALL VECTORS\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,100) UWM,MAXVEC,NAME\r\n  100 FORMAT (A25,' 2374, INSUFFICIENT CORE TO PROCESS MORE THAN',I7,\r\n     1       ' VECTORS IN ',2A4)\r\nC\r\n      IF (MAXVEC .LE. 0) GO TO 400\r\nC\r\n  110 MAXVEC = MIN0 (NVEC,MAXVEC)\r\n      L = 1\r\n      MA(1) = 0\r\n      IF (KLOAD .LE. 0) GO TO 160\r\n      PARM(2) = KSCR(7)\r\n      MA(1) = 1\r\n      ASSIGN 160 TO IRET\r\nC\r\nC     INTERNAL FUNCTION TO LOAD MAXVEC COLUMNS INTO CORE\r\nC\r\n  120 CONTINUE\r\n      CALL GOPEN (PARM(2),ZZ(NZZ2),RDRW)\r\n      IUNPR  = 1\r\n      IUNINC = 1\r\n      IUNRW  = 1\r\n      NUNRW  = 6\r\nC\r\n      DO 150 MT = 1,MAXVEC\r\n      CALL UNPACK (*130,PARM(2),ZZ(L))\r\n      GO TO 150\r\n  130 MPR = L - 1\r\n      DO 140 I = 1,6\r\n      MPR = MPR + 1\r\n  140 ZZ(MPR) = 0.0\r\n  150 L = L + 6\r\nC\r\n      CALL CLOSE (PARM(2),KRW)\r\n      GO TO IRET, (160,170,180)\r\nC\r\n  160 MA(2) = 0\r\n      IF (KSPC .LE. 0) GO TO 170\r\n      PARM(2) = KSCR(6)\r\n      MA(2) = L\r\n      ASSIGN 170 TO IRET\r\n      GO TO 120\r\nC\r\n  170 MA(3) = 0\r\n      IF (KMPC .LE. 0) GO TO 180\r\n      PARM(2) = KSCR(5)\r\n      MA(3) = L\r\n      ASSIGN 180 TO IRET\r\n      GO TO 120\r\nC\r\n  180 IVEC = 0\r\n      LSTEIG = .FALSE.\r\n      CALL PAGE1\r\nC\r\nC     LOOP ON OUTPUT\r\nC\r\n  200 CONTINUE\r\n      IVEC = IVEC + 1\r\n      IF (LSTEIG) GO TO 260\r\n      PARM(2) = KSCC\r\n      CALL READ (*250,*500,KSCC,MB(1),7,1,I)\r\n      I = MB(1)\r\n      IF (IVEC.EQ.1 .OR. EJECT(11).NE.0) WRITE (NOUT,210) IGPT\r\n  210 FORMAT (1H0,20X,'E Q U I L I B R I U M   C H E C K   L O A D S',\r\n     1        /,1H0,16X,'RESULTANT LOADS AT POINT',I7,\r\n     2        ' IN BASIC COORDINATE SYSTEM')\r\n      IF (NSKIP .LE. 0) GO TO 260\r\nC\r\nC     STATICS SUBCASES\r\nC\r\n      IF (MB(4) .EQ. 0) MB(4) = MB(7)\r\n      IF (MB(4) .EQ. 0) MB(4) = MB(6)\r\n      WRITE  (NOUT,220) MB(1),MB(4)\r\n  220 FORMAT (1H0,24X,7HSUBCASE,I8,8H,   LOAD,I8)\r\n      WRITE  (NOUT,230)\r\n  230 FORMAT (1H0,5X,46H-TYPE-        T1             T2             T3,\r\n     1   13X,32HR1             R2             R3)\r\nC\r\n  240 FORMAT (5X,2A4,1P,6E15.6)\r\nC\r\n      GO TO 300\r\nC\r\nC     EOF FOUND\r\nC\r\n  250 CONTINUE\r\n      IF (IVEC .GT. MAXVEC) GO TO 400\r\n      IF (NSKIP .GT. 0) GO TO 510\r\n      LSTEIG = .TRUE.\r\nC\r\nC     EIGENVALUE PROBLEM\r\nC\r\n  260 PARM(2) = KLAMA\r\n      CALL READ (*510,*500,KLAMA,MB(2),7,0,I)\r\n      WRITE  (NOUT,270) MB(1),MB(2),FREQ\r\n  270 FORMAT (1H0,24X,7HSUBCASE,I8,8H,   MODE,I5,13H,   FREQUENCY,\r\n     1        1P,E15.6)\r\n      WRITE  (NOUT,230)\r\nC\r\nC     LOOP ON OUTPUT CATAGORY\r\nC\r\n  300 K = NENTRY/6 + 1\r\n      IHDCNT = 1\r\n      DO 310 I = 3,8\r\n  310 CORE(I,K) = 0.0E0\r\nC\r\n      DO 330 I = 1,3\r\n      IF (MA(I) .EQ. 0) GO TO 330\r\n      CORE(1,IHDCNT) = HEAD(1,I)\r\n      CORE(2,IHDCNT) = HEAD(2,I)\r\n      J = MA(I) + IVEC*6 - 6\r\nC\r\n      DO 320 L = 3,8\r\n      CORE(L,IHDCNT) = ZZ(J)\r\n      CORE(L,K) = CORE(L,K) + ZZ(J)\r\n      J = J + 1\r\n  320 CONTINUE\r\n      IHDCNT = IHDCNT + 1\r\n  330 CONTINUE\r\nC\r\n      CORE(1,K) = HEAD(1,4)\r\n      CORE(2,K) = HEAD(2,4)\r\n      IF (K .EQ. 2) WRITE (NOUT,240) COR1\r\n      IF (K .EQ. 3) WRITE (NOUT,240) COR3\r\n      IF (K .EQ. 4) WRITE (NOUT,240) CORE\r\n      IF (IVEC .LT. MAXVEC) GO TO 200\r\n  400 CALL CLOSE (KSCC,KRW)\r\n      IF (NSKIP .LE. 0) CALL CLOSE (KLAMA,KRW)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     EOR\r\nC\r\n  500 PARM(1) = 3\r\n      GO TO 600\r\nC\r\nC     EOF\r\nC\r\n  510 PARM(1) = 2\r\n      GO TO 600\r\nC\r\nC     ILLEGAL INPUT\r\nC\r\n  520 PARM(1) = 1\r\n      GO TO 600\r\nC\r\n  600 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      GO TO 400\r\n      END\r\n"
  },
  {
    "path": "mis/eqout1.f",
    "content": "      SUBROUTINE EQOUT1 (IA,LEN1,NS,LEN2,ISIL)\r\nC\r\nC     THIS ROUTINE GENERATES OUTPUT ENTRIES FOR CONNECTION TRACE\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      INTEGER         IA(1),NS(1),IBITS(2),N1(17),N2(14),RSHIFT,OUTT\r\n      COMMON /CMB002/ JUNK(8),OUTT\r\n      COMMON /SYSTEM/ JUNK1(8),NLPP,JUNK2(2),NLINE\r\n      COMMON /CMB003/ ICOMB(7,5),CONSET,IAUTO,TOLER,NPSUB\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      DATA    IBLANK/ 4H      /\r\nC\r\nC     SORT ON PSEUDOSTRUCTURE NUMBER\r\nC\r\n      IFIRST = 1\r\n      DO 28 K = 1,17\r\n      N1(K) = IBLANK\r\n   28 CONTINUE\r\n      DO 29 K = 1,14\r\n      N2(K) = IBLANK\r\n   29 CONTINUE\r\n      CALL SORT (0,0,4,1,IA(1),LEN1)\r\n      J = 1\r\n      N1(1) = IA(J+2)\r\n      ICODE = IA(J+3)\r\n      CALL BITPAT (ICODE,IBITS)\r\n      DO 1 I = 1,2\r\n      N1(I+1) = IBITS(I)\r\n    1 CONTINUE\r\n   13 IPS   = RSHIFT(IA(J),IHALF)\r\n      ISUB  = 2*(IPS-1) + 4\r\n      IDBAS = IA(J) - LSHIFT(IPS,IHALF)\r\n      N1(ISUB  ) = NS(2*IDBAS-1)\r\n      N1(ISUB+1) = NS(2*IDBAS  )\r\n      IA(J) = -IA(J)\r\n      CALL PUSH (IA(J+1),N2(2*IPS-1),1,8,1)\r\n      JJ = J\r\n   12 IF (JJ+4 .GT. LEN1) GO TO 14\r\n      IF (IA(JJ+4)) 11,11,50\r\n  50  IF (RSHIFT(IABS(IA(J)),IHALF) - RSHIFT(IA(JJ+4),IHALF)) 10,11,10\r\n   11 JJ = JJ + 4\r\n      GO TO 12\r\n   10 J = JJ + 4\r\n      GO TO 13\r\nC\r\nC     WRITE OUTPUT\r\nC\r\n   14 NLINE = NLINE + 3\r\n      IF (NLINE .LE. NLPP) GO TO 20\r\n      CALL PAGE\r\n      NLINE = NLINE + 3\r\n   20 CONTINUE\r\n      J = 3 + 2*NPSUB\r\n      IF (IFIRST .EQ. 1) WRITE(OUTT,1000) N1(1),ISIL,(N1(K),K=2,J)\r\n      IF (IFIRST .EQ. 0) WRITE(OUTT,1003) (N1(K),K=4,J)\r\n      WRITE (OUTT,1001) (N2(K),K=1,14)\r\n      IFIRST = 0\r\n      J = -3\r\n   15 J = J + 4\r\n      IF (J .GT. LEN1) GO TO 17\r\n      IF (IA(J)) 15,15,16\r\n   16 DO 18 K = 1,17\r\n      N1(K) = IBLANK\r\n   18 CONTINUE\r\n      DO 19 K = 1,14\r\n      N2(K) = IBLANK\r\n   19 CONTINUE\r\n      GO TO 13\r\n   17 WRITE  (OUTT,1002)\r\n 1000 FORMAT (8X,I6,6X,I6,8X,A4,A2,7(3X,2A4))\r\n 1001 FORMAT (40X,7(3X,2A4) )\r\n 1002 FORMAT (7X,4H  --,27(4H----),4H-    )\r\n 1003 FORMAT (/40X,7(3X,2A4) )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eqscod.f",
    "content": "      SUBROUTINE EQSCOD (LOC,N,Z)\r\nC\r\n      EXTERNAL  LSHIFT,ORF\r\n      INTEGER   Z(1),ORF\r\nC\r\n      I   = LOC\r\n      MEND= LOC+N-1\r\n    1 IST = I\r\n      NG  = 1\r\n    2 CONTINUE\r\n      IF (I .GE. MEND-2) GO TO 3\r\n      IF (Z(I+3) .NE. Z(IST)) GO TO 3\r\n      NG = NG+1\r\n      I  = I+3\r\n      GO TO 2\r\n    3 CONTINUE\r\n      IF (NG .NE. 1) GO TO 4\r\n      I = I+3\r\n      IF (I .GE. MEND-2) GO TO 6\r\n      GO TO 1\r\n    4 DO 5 J=1,NG\r\n      ILOC  = IST+3*(J-1)\r\n      ICODE = 8*J+NG\r\n      INEW  = LSHIFT(ICODE,26)\r\n      Z(ILOC+2) = ORF(Z(ILOC+2),INEW)\r\n    5 CONTINUE\r\n      I = I+3\r\n      IF (I .GE. MEND-2) GO TO 6\r\n      GO TO 1\r\n    6 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/eqsout.f",
    "content": "      SUBROUTINE EQSOUT\r\nC\r\nC     THIS ROUTINE WRITES THE CONNECTION TRACE FOR A NEWLY COMBINED\r\nC     PSEUDOSTRUCTURE.\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      INTEGER         Z,SCORE,ORF,NBOT(7),NTOP(7),CNAM\r\n      INTEGER         COMBO,IORDS(2)\r\n      INTEGER         WORDS(6),IHD(64),STRING(32),ANDF,RSHIFT\r\n      COMMON /CMB002/ JUNK(5),SCORE\r\n      COMMON /CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1                MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT\r\n      COMMON /CMB004/ TDAT(6),NIPNEW,CNAM(2)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      DATA IHD/ 10*4H     , 4H   S , 4HUMMA , 4HRY O , 4HF PS , 4HEUDO ,\r\n     1                      4HSTRU , 4HCTUR , 4HE CO , 4HNNEC , 4HTIVI ,\r\n     2                      4HTIES , 12*4H           , 4HINTE , 4HRNAL ,\r\n     2                      4H   I , 4HNTER ,\r\n     3                      4HNAL  , 4H  DE , 4HGREE , 4HS OF ,\r\n     4                      4H  ** ,5*4H****, 4H P S , 4H E U ,\r\n     5                      4H D O , 4H S T , 4H R U , 4H C T , 4H U R ,\r\n     6                      4H E   , 4H N A , 4H M E , 4H S * ,3*4H****,\r\n     7                      3*4H      /\r\n      DATA WORDS / 4HPOIN , 4HT NO , 4HFREE , 4HDOM  , 4HDOF  , 4HNO   /\r\n      DATA IBLANK,NHEQSS  / 4H     , 4HEQSS /\r\nC\r\n      IF (ANDF(RSHIFT(IPRINT,11),1) .NE. 1) RETURN\r\n      CALL SFETCH (CNAM,NHEQSS,1,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      NCOMP = Z(SCORE+2)\r\n      NWRD  = NOUT - 4\r\n      ISTEQS= SCORE + NWRD\r\nC\r\nC     MOVE COMPONENT SUBSTRUCTURE NAMES INTO FIRST NWRD OF OPEN CORE.\r\nC\r\n      DO 100 I=1,NWRD\r\n      II = I - 1\r\n      Z(SCORE+II) = Z(SCORE+II+4)\r\n  100 CONTINUE\r\n      DO 1 I=1,32\r\n      STRING(I) = IBLANK\r\n    1 CONTINUE\r\n      CALL PUSH (WORDS(1),STRING, 5,8,0)\r\n      CALL PUSH (WORDS(5),STRING,17,8,0)\r\n      CALL PUSH (WORDS(3),STRING,29,8,0)\r\n      DO 2 I=1,NPSUB\r\n      IORDS(1) = COMBO(I,1)\r\n      IORDS(2) = COMBO(I,2)\r\n      LOC = 39+11*(I-1)\r\n      CALL PUSH (IORDS(1),STRING,LOC,8,0)\r\n    2 CONTINUE\r\n      DO 3 I=1,64\r\n      IHEAD(I) = IHD(I)\r\n    3 CONTINUE\r\n      DO 4 I=65,96\r\n      IHEAD(I) = STRING(I-64)\r\n    4 CONTINUE\r\n      CALL PAGE\r\nC\r\nC     COMPUTE FIRST AND LAST COMPONENT SUBSTRUCTURE ID NUMBERS\r\nC     FOR EACH PSEUDOSTRUCTURE.\r\nC\r\n      NBOT(1) = 1\r\n      DO 110 I=1,NPSUB\r\n      NTOP(I) = NBOT(I) + COMBO(I,5) - 1\r\n      II = I + 1\r\n      IF (I .EQ. NPSUB) GO TO 110\r\n      NBOT(II) = NTOP(I) + 1\r\n  110 CONTINUE\r\nC\r\nC     READ EQSS INTO OPEN CORE STARTING AT LOCATION ISTEQS\r\nC\r\n      JJ    = 0\r\n      ICOMP = 0\r\n  180 ICOMP = ICOMP + 1\r\n      IF (ICOMP .GT. NCOMP) GO TO 140\r\n  170 CALL SUREAD (Z(ISTEQS+JJ+1),3,NOUT,ITEST)\r\n      GO TO (130,120,140), ITEST\r\n  130 CONTINUE\r\nC\r\nC     NORMAL ROUTE - PROCESS ENTRIES\r\nC\r\n      Z(ISTEQS+JJ) = ICOMP\r\n      DO 160 J=1,NPSUB\r\n      IF (ICOMP.GE.NBOT(J) .AND. ICOMP.LE.NTOP(J)) GO TO 150\r\n  160 CONTINUE\r\n  150 Z(ISTEQS+JJ) = ORF(LSHIFT(J,IHALF),Z(ISTEQS+JJ))\r\n      JJ = JJ + 4\r\n      GO TO 170\r\n  120 GO TO 180\r\nC\r\nC     SORT ON INTERNAL POINT NUMBER\r\nC\r\n  140 CONTINUE\r\n      Z(ISTEQS+JJ  ) = 0\r\n      Z(ISTEQS+JJ+1) = 0\r\n      Z(ISTEQS+JJ+2) = 0\r\n      Z(ISTEQS+JJ+3) = 0\r\n      CALL SORT (0,0,4,3,Z(ISTEQS),JJ)\r\n      II   = 1\r\n      ISIL = 1\r\n      DO 200 I=1,JJ,4\r\n      IF (Z(ISTEQS+I+1) .NE. Z(ISTEQS+I+5)) GO TO 210\r\n      II = II + 1\r\n      GO TO 200\r\n  210 IW = 4*II\r\n      IOFF = I - 1 - 4*(II-1)\r\n      ICODE = Z(ISTEQS+IOFF+3)\r\n      CALL DECODE (ICODE,STRING,NDOF)\r\n      CALL EQOUT1 (Z(ISTEQS+IOFF),IW,Z(SCORE),NWRD,ISIL)\r\n      ISIL = ISIL + NDOF\r\n      II   = 1\r\n  200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/errmkn.f",
    "content": "      SUBROUTINE ERRMKN (N,IERR)\r\nC\r\nC     SENDS ERROR MESSAGES.  N IS THE INDEX OF THE SUBROUTINE CALLING\r\nC     ERROR, AND IERR IS AN ERROR CODE.\r\nC\r\n      DIMENSION       ISUBR(26)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      DATA    ISUBR / 4HCRSU,4HB   ,4HDSTR,4HOY  ,4HFDIT,4H    ,\r\n     1                4HFMDI,4H    ,4HFNXT,4H    ,4HGETB,4HLK  ,\r\n     2                4HRETB,4HLK  ,4HSETE,4HQ   ,4HSJUM,4HP   ,\r\n     3                4HSURE,4HAD  ,4HRENA,4HME  ,4HEXO2,4H    ,\r\n     4                4HEXIO,4H1   /\r\nC\r\n      WRITE (NOUT,1000) SFM,ISUBR(N),ISUBR(N+1)\r\n      CALL SOFCLS\r\n      GO TO (10,20,30,40,50,60,70,80,90,100), IERR\r\n   10 WRITE (NOUT,1010)\r\n      GO TO 900\r\n   20 WRITE (NOUT,1020)\r\n      GO TO 900\r\n   30 WRITE (NOUT,1030)\r\n      GO TO 900\r\n   40 WRITE (NOUT,1040)\r\n      GO TO 900\r\n   50 WRITE (NOUT,1050)\r\n      GO TO 900\r\n   60 WRITE (NOUT,1060)\r\n      GO TO 900\r\n   70 WRITE (NOUT,1070)\r\n      GO TO 900\r\n   80 WRITE (NOUT,1080)\r\n      GO TO 900\r\n   90 WRITE (NOUT,1090)\r\n      GO TO 900\r\n  100 WRITE (NOUT,1100)\r\n      GO TO 900\r\n  900 CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n 1000 FORMAT (A25,' 6224, SOF UTILITY SUBROUTINE ',2A4)\r\n 1010 FORMAT (5X,'I IS TOO LARGE OR NXTTSZ HAS NOT BEEN PROPERLY ',\r\n     1        'UPDATED')\r\n 1020 FORMAT (5X,'ILLEGAL BLOCK NUMBER')\r\n 1030 FORMAT (5X,'ERROR IN SETTING UP THE LIST IMORE')\r\n 1040 FORMAT (5X,'NXTCUR IS TOO LARGE')\r\n 1050 FORMAT (5X,'ERROR IN UPDATING DIT')\r\n 1060 FORMAT (5X,'ERROR IN UPDATING MDI')\r\n 1070 FORMAT (5X,'ERROR IN LINKING BLOCKS OF DIT')\r\n 1080 FORMAT (5X,'LINK THROUGH COMBINED SUBSTRUCTURES IS NOT CIRCULAR')\r\n 1090 FORMAT (5X,'ERROR IN LINKING SOF BLOCKS')\r\n 1100 FORMAT (5X,'INTERNAL ARRAY DIMENSION EXCEEDED')\r\n      END\r\n"
  },
  {
    "path": "mis/estmag.f",
    "content": "      SUBROUTINE ESTMAG (HEST,ESTFLD,MPT,DIT,GEOM1,IANY,KCOUNT)\r\nC\r\nC     CREATE SCRATCH FILE ESTFLD WHICH WILL BE USED TO COMPUTE TOTAL\r\nC     MAGNETIC FIELD. READ EST AND CREATE SIMILAR RECORDS CONTAINING\r\nC     ELTYPE,EID,NUMBER OF SILS,SILS,3 X 3 MATERIALS MATRIX, AND 3 X 3\r\nC     TRANSFORMATION MATRIX TO BRING HM BACK TO BASIC COORD. SYSTEM\r\nC     FROM ELEMENT SYSTEM,OUTPUT COORD. SYSTEM ID, AND BASIC COORDS.\r\nC     OF STRESS POINT(USUALLY AVERAGE OF GRID COORDS.)\r\nC\r\n      INTEGER         HEST,ESTFLD,SYSBUF,ELTYPE,POINTR(6,20),MCB(7),\r\n     1                BUF1,BUF2,IZ(1),NAM(2),ESTWDS,FRSTGD,OTPE,DIT,\r\n     2                BFIELD(2),OLDEID,BUF3,FILE,GEOM1\r\n      DIMENSION       DN(8),XM(32),COORD(3),KOUNT(2),NAME(2),V12(3),\r\n     1                V13(3),XI(3),XJ(3),XK(3),ECPT(200),IECPT(200),\r\n     2                E(9),G(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OTPE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,IDITFL\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /HMTOUT/ XMAT(6)\r\n      EQUIVALENCE     (Z(1),IZ(1)),(ECPT(1),IECPT(1))\r\n      DATA    NAM   / 4HESTM,4HAG  /\r\n      DATA    BFIELD/ 3101,31      /\r\n      DATA    DN    / 4*-.25, 4*.5 /\r\nC\r\nC     ITYPE ITH MID ISYS1 ITEMP DIM\r\nC\r\n      DATA POINTR/   1,   0,  4,   9,   17,   1,\r\n     1               3,   0,  4,   8,   16,   1,\r\n     2               6,   5,  6,  15,   27,   2,\r\n     3               9,   5,  6,   9,   21,   2,\r\n     4              10,   0,  4,   9,   17,   1,\r\n     5              16,   6,  7,  10,   26,   2,\r\n     6              17,   5,  6,   9,   21,   2,\r\n     7              18,   6,  7,  10,   26,   2,\r\n     8              19,   6,  7,  16,   32,   2,\r\n     9              34,   0, 16,  34,   42,   1,\r\n     1              36,   5,  6,   7,   19,   2,\r\n     2              37,   6,  7,   8,   24,   2,\r\n     3              39,   0,  2,   7,   23,   3,\r\n     3              40,   0,  2,   9,   33,   3,\r\n     4              41,   0,  2,  11,   43,   3,\r\n     5              42,   0,  2,  11,   43,   3,\r\n     6              65,   0, 10,  16,   48,   3,\r\n     6              66,   0, 22,  28,  108,   3,\r\n     7              67,   0, 34,  40,  168,   3,\r\n     8              80,  11, 12,  14,   46,   2     /\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      BUF2  = BUF1  - SYSBUF\r\n      BUF3  = BUF2  - SYSBUF - 1\r\n      LCORE = BUF3  - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\nC     COUNT NUMBER OF TERMS IN A COLUMN OF HCCEN\r\nC\r\n      KCOUNT = 0\r\nC\r\nC     SET UP MATERIALS\r\nC\r\n      IIHMAT = 0\r\n      NNHMAT = LCORE\r\n      MPTFIL = MPT\r\n      IDITFL = DIT\r\n      CALL PREHMA (Z)\r\n      NEXTZ  = NNHMAT + 1\r\nC\r\n      CALL GOPEN (HEST,Z(BUF1),0)\r\n      CALL GOPEN (ESTFLD,Z(BUF2),1)\r\nC\r\nC     READ IN ANY BFIELD CARDS\r\nC\r\n      IANY   = 0\r\n      IALL   = 1\r\n      IFIELD = 0\r\n      IDEFID = 0\r\n      NFIELD = 0\r\n      FILE   = GEOM1\r\n      CALL PRELOC (*1001,Z(BUF3),GEOM1)\r\n      CALL LOCATE (*3,Z(BUF3),BFIELD,IDEX)\r\n      IANY   = 1\r\n      CALL READ (*1002,*1,GEOM1,Z(NEXTZ+1),LCORE-NEXTZ,0,IWORDS)\r\n      GO TO 1008\r\n    1 NFIELD = IWORDS/2\r\n      IF (NFIELD.NE.1 .OR. IZ(NEXTZ+2).NE.-1) GO TO 2\r\n      IFIELD = IZ(NEXTZ+1)\r\n      IDEFID = IFIELD\r\n      GO TO 3\r\nC\r\nC     BFIELD ARE NOT THE SAME FOR EVERY ELEMENT\r\nC\r\n    2 IALL = 0\r\n    3 CALL CLOSE (GEOM1,1)\r\nC\r\nC     CHECK FOR ALL SO THAT CSTM WONT BE OPENED\r\nC\r\n      IF (NFIELD .EQ. 0) GO TO 8\r\n      DO 4 I = 1,IWORDS,2\r\n      IF (IZ(NEXTZ+I) .NE. 0) GO TO 5\r\n    4 CONTINUE\r\n      IANY = 0\r\n      IALL = 1\r\n      IFIELD = 0\r\n    5 CONTINUE\r\nC\r\nC     CHECK FOR A DEFAULT ID\r\nC\r\n      DO 6 I = 2,IWORDS,2\r\n      IF (IZ(NEXTZ+I) .EQ. -1) GO TO 7\r\n    6 CONTINUE\r\n      GO TO 8\r\n    7 IDEFID = IZ(NEXTZ+I-1)\r\n    8 CONTINUE\r\n      FILE = HEST\r\nC\r\n   10 CALL READ (*120,*1003,HEST,ELTYPE,1,0,IFLAG)\r\n      CALL WRITE (ESTFLD,ELTYPE,1,0)\r\n      OLDEID = 0\r\n      ICOUNT = 0\r\n      IDX    = (ELTYPE-1)*INCR\r\n      ESTWDS = NE(IDX+12)\r\n      NGRIDS = NE(IDX+10)\r\n      FRSTGD = 2\r\n      IF (ELTYPE.GE.39 .AND. ELTYPE.LE.42) FRSTGD = 3\r\n      NAME(1) = NE(IDX+1)\r\n      NAME(2) = NE(IDX+2)\r\nC\r\nC     PICK UP MATERIAL ID, START OF BGPDT DATA, AND DIMENSIONALITY OF\r\nC     ELEMENT\r\nC\r\n      DO 20 I = 1,20\r\n      JEL = I\r\n      IF (ELTYPE-POINTR(1,I)) 500,30,20\r\n   20 CONTINUE\r\n      GO TO 500\r\nC\r\n   30 ITH   = POINTR(2,JEL)\r\n      MID   = POINTR(3,JEL)\r\n      ISYS1 = POINTR(4,JEL)\r\n      ISYS2 = ISYS1 + 4\r\n      ISYS3 = ISYS2 + 4\r\nC\r\nC     FOR IS2D8, USE 4TH POINT FOR GEOMETRY SINCE THAT IS WHAT WE USE\r\nC     FOR IS2D8 ELSEWHERE\r\nC\r\n      IF (ELTYPE .EQ. 80) ISYS3 = ISYS3 + 4\r\n      ITEMP = POINTR(5,JEL)\r\n      IDIM  = POINTR(6,JEL)\r\nC\r\n   40 CALL READ (*1002,*110,HEST,ECPT,ESTWDS,0,IFLAG)\r\n      IF (ELTYPE .LT. 65) KCOUNT = KCOUNT + 3\r\n      IF (ELTYPE .EQ. 65) KCOUNT = KCOUNT + 27\r\n      IF (ELTYPE.EQ.66 .OR. ELTYPE.EQ.67) KCOUNT = KCOUNT + 63\r\n      IF (ELTYPE .EQ. 80) KCOUNT = KCOUNT + 27\r\nC\r\nC     FIND BFIELD FOR THIS ELEMENT\r\nC\r\n      IF (IALL .EQ. 1) GO TO 47\r\n      DO 45 I = 2,IWORDS,2\r\n      IF (IECPT(1) .EQ. IZ(NEXTZ+I)) GO TO 46\r\n   45 CONTINUE\r\n      IFIELD = IDEFID\r\n      GO TO 47\r\n   46 IFIELD = IZ(NEXTZ+I-1)\r\n   47 CONTINUE\r\nC\r\nC     WRITE EID, SILS\r\nC\r\n      CALL WRITE (ESTFLD,IECPT(1),1,0)\r\n      CALL WRITE (ESTFLD,NGRIDS,1,0)\r\n      CALL WRITE (ESTFLD,IECPT(FRSTGD),NGRIDS,0)\r\nC\r\nC     FETCH MATERIALS\r\nC\r\n      MATID = IECPT(MID)\r\n      SINTH = 0.\r\n      COSTH = 0.\r\nC***\r\nC    ASSUME HERE THAT FOR ISOPARAMETRICS WE HAVE TEMPERATURE-INDEPENDENT\r\nC    MATERIALS IN THIS MAGNETICS PROBLEM\r\nC***\r\n      ELTEMP = ECPT(ITEMP)\r\n      INFLAG = 3\r\n      CALL HMAT (IECPT(1))\r\n      G(1) = XMAT(1)\r\n      G(2) = XMAT(2)\r\n      G(3) = XMAT(3)\r\n      G(4) = XMAT(2)\r\n      G(5) = XMAT(4)\r\n      G(6) = XMAT(5)\r\n      G(7) = XMAT(3)\r\n      G(8) = XMAT(5)\r\n      G(9) = XMAT(6)\r\nC\r\nC     NOW CREATE TRANSFORMATION MATRIX FROM LOACL COORDS TO BASIC\r\nC     DETERMINE DIMENSIONALITY OF ELEMENT\r\nC\r\n      GO TO (50,70,90), IDIM\r\nC\r\nC     ONE-DIMENSIONAL-DETERMINE THE LOCAL X-AXIS(IN BASIC COORDS)\r\nC\r\n   50 DO 55 I = 1,3\r\n   55 V12(I) = ECPT(ISYS2+I) - ECPT(ISYS1+I)\r\n      XLEN   = SQRT(V12(1)**2 + V12(2)**2 + V12(3)**2)\r\n      DO 60 I = 1,3\r\n   60 V12(I) = V12(I)/XLEN\r\nC\r\n      DO 65 I = 1,9\r\n   65 E(I) = 0.\r\n      E(1) = V12(1)\r\n      E(4) = V12(2)\r\n      E(7) = V12(3)\r\n      GO TO 100\r\nC\r\nC     TWO-DIMENSIONAL  WE WILL USE ONLY GRIDS 1,2,3 ASSUMING A PLANAR\r\nC     OR NEARLY PLANAR ELEMENT FOR QUADS\r\nC\r\n   70 DO 75 I = 1,3\r\n      V12(I) = ECPT(ISYS2+I) - ECPT(ISYS1+I)\r\n      V13(I) = ECPT(ISYS3+I) - ECPT(ISYS1+I)\r\n   75 CONTINUE\r\n      XLEN  = SQRT(V12(1)**2 + V12(2)**2 + V12(3)**2)\r\n      DO 78 I = 1,3\r\n   78 XI(I) = V12(I)/XLEN\r\nC\r\n      XK(1) = XI(2)*V13(3) - XI(3)*V13(2)\r\n      XK(2) = XI(3)*V13(1) - XI(1)*V13(3)\r\n      XK(3) = XI(1)*V13(2) - XI(2)*V13(1)\r\n      XLEN  = SQRT(XK(1)**2 + XK(2)**2 + XK(3)**2)\r\n      DO 80 I = 1,3\r\n   80 XK(I) = XK(I)/XLEN\r\nC\r\n      XJ(1) = XK(2)*XI(3) - XK(3)*XI(2)\r\n      XJ(2) = XK(3)*XI(1) - XK(1)*XI(3)\r\n      XJ(3) = XK(1)*XI(2) - XK(2)*XI(1)\r\n      XLEN  = SQRT(XJ(1)**2 + XJ(2)**2 + XJ(3)**2)\r\n      DO 85 I = 1,3\r\n   85 XJ(I) = XJ(I)/XLEN\r\nC\r\n      DO 86 I = 1,3\r\n      E(3*I-2) = XI(I)\r\n      E(3*I-1) = XJ(I)\r\n      E(3*I  ) = XK(I)\r\n   86 CONTINUE\r\nC\r\nC     CHECK ON MATERIALS AS IN EMRING\r\nC\r\n      ANGLE = ECPT(ITH)*0.017453293\r\n      IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 87\r\n      GO TO 100\r\n   87 IF (ABS(ANGLE) .LE. .0001) GO TO 100\r\n      DO 88 I = 1,9\r\n   88 G(I) = 0.\r\n      S    = SIN(ANGLE)\r\n      C    = COS(ANGLE)\r\n      CSQ  = C*C\r\n      SSQ  = S*S\r\n      CS   = C*S\r\n      X2   = 2.*CS*XMAT(2)\r\n      G(1) = CSQ*XMAT(1) - X2 + SSQ*XMAT(4)\r\n      G(2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2)\r\n      G(5) = SSQ*XMAT(1) + X2 + CSQ*XMAT(4)\r\n      G(4) = G(2)\r\n      G(9) = XMAT(6)\r\nC\r\n      IF (ELTYPE.NE.36 .AND. ELTYPE.NE.37) GO TO 100\r\nC\r\nC     SINCE MAT5 INFO FOR TRAPRG,TRIARG MUST BE GIVEN IN X-Y TERMS,\r\nC     RE-ORDER THE 3 X 3 , INTERCHANGING Y AND Z\r\nC\r\n      TEMP = G(5)\r\n      G(5) = G(9)\r\n      G(9) = TEMP\r\n      TEMP = G(2)\r\n      G(2) = G(3)\r\n      G(3) = TEMP\r\n      G(4) = G(2)\r\n      G(7) = G(3)\r\n      GO TO 100\r\nC\r\nC     THREE-DIMENSIONAL-NO ELEMENT COORDINATE SYSTEM-EVERYTHING IS\r\nC     OUTPUT IN BASIC- SO E IS IDENTITY\r\nC\r\n   90 DO 95 I = 1,9\r\n   95 E(I) = 0.\r\n      E(1) = 1.\r\n      E(5) = 1.\r\n      E(9) = 1.\r\nC\r\n  100 CALL WRITE (ESTFLD,G,9,0)\r\n      CALL WRITE (ESTFLD,E,9,0)\r\n      IF (ELTYPE.GE.65 .AND. ELTYPE.LE.67) GO TO 104\r\nC\r\nC     COMPUTE THE AVERAGE COORDINATES OF THE GRID POINTS OF THE ELEMENT\r\nC     FOR USE IN NON-RECTANGULAR COORDIANTE SYSTEMS. THIS POINT IS NOT\r\nC     NECESSARILY THE CENTROID,BUT ANY POINT WILL DO FOR CONSTANT STRAIN\r\nC     ELEMENTS AND THIS IS CONVENIENT\r\nC\r\n      IF (ELTYPE .NE. 80) GO TO 1013\r\nC\r\nC     FOR IS2D8 USE SHAPE FUNCTION\r\nC\r\n      DO 1012 I = 1,3\r\n      COORD(I) = 0.\r\n      DO 1012 J = 1,8\r\n      JSUB = ISYS1 + 4*(J-1)\r\n      COORD(I) = COORD(I) + DN(J)*ECPT(JSUB+I)\r\n 1012 CONTINUE\r\n      GO TO 108\r\n 1013 CONTINUE\r\n      DO 102 I = 1,3\r\n      COORD(I) = 0.\r\n      DO 102 J = 1,NGRIDS\r\n      JSUB = ISYS1 + 4*(J-1)\r\n      COORD(I) = COORD(I) + ECPT(JSUB+I)\r\n  102 CONTINUE\r\n      DO 103 I = 1,3\r\n  103 COORD(I) = COORD(I)/FLOAT(NGRIDS)\r\n      GO TO 108\r\nC\r\nC     ISOPARAMETRICS-PICK UP COORDS. OF APPLICABLE POINT. FOR THE LAST\r\nC     POINT, GO TO THE PREVIOUS METHOD\r\nC\r\n  104 IF (IECPT(1) .EQ. OLDEID) GO TO 105\r\n      OLDEID = IECPT(1)\r\n  105 ICOUNT = ICOUNT + 1\r\n      IF (ELTYPE.EQ.65 .AND. ICOUNT.LT. 9) GO TO 106\r\n      IF (ELTYPE.GT.65 .AND. ICOUNT.LT.21) GO TO 106\r\nC\r\nC     CENTROIDAL POINT-COMPUTE COORDS BASED ON XI=ETA=ZETA=0\r\nC\r\n      ICOUNT = 0\r\n      OLDEID = 0\r\n      IF (ELTYPE .NE. 65) GO TO 1051\r\n      DO 1050 I = 1,8\r\n 1050 XM(I) = .125\r\n      GO TO 1057\r\n 1051 IF (ELTYPE .NE. 66) GO TO 1054\r\n      DO 1052 I = 1,20\r\n 1052 XM(I) = .25\r\n      DO 1053 I = 1,7,2\r\n      XM(I) =-.25\r\n 1053 XM(I+12) =-.25\r\n      GO TO 1057\r\n 1054 CON1 =  9./64.\r\n      CON2 =-19./64.\r\n      DO 1055 I = 1,32\r\n 1055 XM(I) = CON1\r\n      DO 1056 I = 1,10,3\r\n      XM(I) = CON2\r\n 1056 XM(I+20) = CON2\r\nC\r\n 1057 DO 1058 I = 1,3\r\n      COORD(I) = 0.\r\n      DO 1058 J = 1,NGRIDS\r\n      JSUB = ISYS1 + 4*(J-1)\r\n      COORD(I) = COORD(I) + ECPT(JSUB+I)*XM(J)\r\n 1058 CONTINUE\r\n      GO TO 109\r\n  106 IF (ELTYPE.EQ.67 .AND. ICOUNT.LT.21) GO TO 1071\r\n      JSUB = ISYS1 + 4*(ICOUNT-1)\r\n      DO 107 I = 1,3\r\n  107 COORD(I) = ECPT(JSUB+I)\r\n      IF (ICOUNT .GT. 1) GO TO 109\r\n      GO TO 108\r\nC\r\nC     FOR IHEX3, MUST GET PROPER COORDINATES IF NOT THE LAST POINT\r\nC\r\n 1071 IF (ICOUNT.GE.9 .AND. ICOUNT.LE.12) GO TO 1072\r\n      IF ((ICOUNT/2)*2 .EQ. ICOUNT) GO TO 1073\r\nC\r\nC     CORNERS\r\nC\r\n      IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.13) JCOUNT =-1\r\n      IADD = 0\r\n      IF (ICOUNT .GE. 13) IADD = 8\r\n      JCOUNT = JCOUNT + 1\r\n      NUM = 1\r\n      KOUNT(1) = ICOUNT + JCOUNT + IADD\r\n      GO TO 1075\r\nC\r\nC     MIDSIDES\r\nC\r\n 1072 KADD = 4\r\n      JCO  = 3\r\n      GO TO 1074\r\n 1073 KADD = 1\r\n      IF (ICOUNT.EQ.2 .OR. ICOUNT.EQ.14) JCO = -1\r\n 1074 IADD = 0\r\n      IF (ICOUNT .GE. 14) IADD = 8\r\n      JCO  = JCO + 1\r\n      NUM  = 2\r\n      KOUNT(1) = ICOUNT + JCO + IADD\r\n      KOUNT(2) = KOUNT(1) + KADD\r\n 1075 DO 1077 I = 1,3\r\n      COORD(I) = 0.\r\n      DO 1076 J = 1,NUM\r\n      JSUB = ISYS1 + 4*(KOUNT(J)-1)\r\n 1076 COORD(I) = COORD(I) + ECPT(JSUB+I)\r\n 1077 CONTINUE\r\n      DO 1078 I = 1,3\r\n 1078 COORD(I) = COORD(I)/FLOAT(NUM)\r\n      IF (ICOUNT .GT. 1) GO TO 109\r\nC\r\nC     WRITE OUT CID AND COORDINATES\r\nC\r\n  108 CALL WRITE (ESTFLD,IFIELD,1,0)\r\n  109 CALL WRITE (ESTFLD,COORD,3,0)\r\nC\r\nC     FOR ISOPARAMETRICS, GET COORDS OF NEXT POINT, OTHERWISE,\r\nC     GO BACK FOR ANOTHER ELEMENT OF THIS TYPE\r\nC\r\n      IF (OLDEID .EQ. 0) GO TO 40\r\n      GO TO 105\r\nC\r\nC\r\nC     GET ANOTHER ELEMENT TYPE\r\nC\r\n  110 CALL WRITE (ESTFLD,0,0,1)\r\n      GO TO 10\r\nC\r\nC     DONE\r\nC\r\n  120 CALL CLOSE (ESTFLD,1)\r\n      CALL CLOSE (HEST,1)\r\n      MCB(1) = HEST\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = ESTFLD\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  500 WRITE  (OTPE,501) UFM,NAME\r\n  501 FORMAT (A23,', ELEMENT TYPE ',2A4,' NOT ALLOWED IN ESTMAG')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n 1001 N = -1\r\n      GO TO 1010\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1003 N = -3\r\n      GO TO 1010\r\n 1008 N = -8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/etrbkd.f",
    "content": "      SUBROUTINE ETRBKD (IOPT)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE BASIC\r\nC     BENDING TRIANGLE.  IT IS USED BY SUBROUTINES TRBSCD,QDPLTD,\r\nC     TRPLTD, QUAD1D, TRIA1D, TRIA2D\r\nC     DOUBLE PRECISION VERSION\r\nC     IOPT MAY BE VARIED AS FOLLOWS TO PRODUCE APPROPRIATE RESULTS\r\nC     ******************************************************************\r\nC\r\nC\r\nC\r\nC     IOPT = 0   IMPLIES DO COMPLETE BASIC BENDING TRIANGLE.\r\nC     IOPT = 1   IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES\r\nC                WHICH FORM THE 9X9 K SUPER U - MATRIX.\r\nC     IOPT = 2   SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S...\r\nC\r\nC     ******************************************************************\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE   TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC     ******************************************************************\r\nC\r\n      LOGICAL NOGO\r\n      INTEGER NECPT(26),NO(2)\r\n      REAL  ECPT(25)\r\n      DOUBLE PRECISION  J2X2(4), G2X2(4),S(18),G(9),TJTE(18),TITE(18)\r\n     1,                 TI(9),A,PROD9,TEMP9,XSUBB,XSUBC,YSUBC,DICT5\r\n     2,                 E,K,AOUT,D(9)\r\n     3,                 CONSTS,DEGRA,TEMP,THETA,SINTH,COSTH,AREA,XBAR\r\n     4,                 YBAR,XCSQ,YCSQ,XBSQ,XCYC,PX2,PY2,PXY2,XBAR3\r\n     5,                 YBAR3,YBAR2,DETERM\r\nC\r\n      COMMON  /CONDAD/  CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\nC\r\n      COMMON /EMGPRM/ DUM(15),SMB(3),IPREC,NOGO\r\n      COMMON /EMGEST/ IELID , NGRID(3)\r\n     2                  ,ANGLE         ,MATID1\r\n     3                  ,EYE           ,MATID2\r\n     4                  ,T2            ,FMU\r\n     5                  ,Z11           ,Z22\r\n     6                  ,DUMMY1        ,X1\r\n     7                  ,Y1            ,Z1\r\n     8                  ,DUMMY2        ,X2\r\n     9                  ,Y2            ,Z2\r\n     1                  ,DUMMY3        ,X3\r\n     2                  ,Y3            ,Z3            ,DUMB(76)\r\n      COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5,\r\n     2                E(18),K(324),AOUT(324)\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (IELID,ECPT(1),NECPT(1)), (D(1),G(1), A(79))\r\n     2            ,(G2X2(1),A(88))\r\n     3             ,(TJTE(1),A(100))   ,(TITE(1),S(1),A(82))\r\n     4                 ,(J2X2(1),A(92))     ,(TI(1),A(118))\r\nC\r\n      DATA NO /81,190/\r\n      NTYPE = 0\r\n      IF( IOPT.GT.0 ) NTYPE = 1\r\n      IF (NTYPE .EQ. 1) GOTO 100\r\n      ELTEMP = ECPT(25)\r\nC     SET UP  I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE\r\nC     X-SUB-B, X-SUB-C, AND Y-SUB-C.\r\nC\r\nC     E(11), E(14), E(17) WILL BE THE I-VECTOR.\r\nC     E(12), E(15), E(18) WILL BE THE J-VECTOR.\r\nC     E( 1), E( 4), E( 7) WILL BE THE K-VECTOR.\r\nC\r\nC     FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED)\r\n      E(11) =  DBLE(X2) -  DBLE(X1)\r\n      E(14) =  DBLE(Y2) -  DBLE(Y1)\r\n      E(17) =  DBLE(Z2) -  DBLE(Z1)\r\nC\r\nC     FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM\r\n      XSUBB =  DSQRT(E(11)**2  +  E(14)**2  + E(17)**2)\r\n      IF  (XSUBB  .LE.  1.D-6)  GO TO 7770\r\nC\r\n      E(11) =  E(11)/XSUBB\r\n      E(14) =  E(14)/XSUBB\r\n      E(17) =  E(17)/XSUBB\r\nC\r\nC     TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8)\r\nC\r\n      E(2)  =  DBLE(X3) -  DBLE(X1)\r\n      E(5)  =  DBLE(Y3) -  DBLE(Y1)\r\n      E(8)  =  DBLE(Z3) -  DBLE(Z1)\r\nC\r\nC     X-SUB-C = I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(11) * E(2)  +  E(14) * E(5)  +  E(17) * E(8)\r\nC\r\nC     CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(1) = E(14) * E( 8)  -  E( 5) * E(17)\r\n      E(4) = E( 2) * E(17)  -  E(11) * E( 8)\r\n      E(7) = E(11) * E( 5)  -  E( 2) * E(14)\r\nC\r\nC     FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM\r\n      YSUBC =  DSQRT(E(1)**2  + E(4)**2  +  E(7)**2)\r\n      IF (YSUBC  .LE.  1.0-6)  GO TO 7780\r\nC\r\nC     NORMALIZE K-VECTOR WITH Y-SUB-C\r\nC\r\n      E(1) = E(1)/YSUBC\r\n      E(4) = E(4) / YSUBC\r\n      E(7) = E(7) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS GET -- J = K CROSS I\r\nC\r\n      E(12) = E( 4) * E(17)  -  E(14) * E( 7)\r\n      E(15) = E(11) * E( 7)  -  E( 1) * E(17)\r\n      E(18) = E( 1) * E(14)  -  E(11) * E( 4)\r\nC\r\nC     NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE\r\nC\r\n      TEMP =  DSQRT(E(12)**2  + E(15)**2  + E(18)**2)\r\n      E(12) = E(12) / TEMP\r\n      E(15) = E(15) / TEMP\r\n      E(18) = E(18) / TEMP\r\n      E(2) = 0.\r\n      E(3) = 0.\r\n      E(5) = 0.\r\n      E(6) = 0.\r\n      E(8) = 0.\r\n      E(9) = 0.\r\n      E(10) = 0.\r\n      E(13) = 0.\r\n      E(16) = 0.\r\nC\r\nC     CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA.\r\nC\r\n      THETA =  DBLE(ANGLE) * DEGRA\r\n      SINTH =  DSIN(THETA)\r\n      COSTH =  DCOS(THETA)\r\n      IF (DABS(SINTH) .LT.  1.D-6)  SINTH = 0.D0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     SETTING UP G MATRIX\r\n  100 INFLAG = 2\r\n      MATID = MATID1\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     ******************************************************************\r\nC\r\nC  50 COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 120 I=1,9\r\n  120 D(I) =  G(I) * DBLE(EYE)\r\nC\r\nC     ******************************************************************\r\nC\r\n      AREA  =  XSUBB* YSUBC/2.D0\r\n      XBAR  =  (XSUBB + XSUBC)/3.D0\r\n      YBAR  =  YSUBC/3.D0\r\nC\r\n      XCSQ = XSUBC ** 2\r\n      YCSQ = YSUBC ** 2\r\n      XBSQ = XSUBB ** 2\r\n      XCYC = XSUBC * YSUBC\r\n      PX2   =  (XBSQ + XSUBB*XSUBC + XCSQ)/6.D0\r\n      PY2   =  YCSQ/6.D0\r\n      PXY2  =  YSUBC*(XSUBB + 2.D0*XSUBC)/12.D0\r\n      XBAR3 =  3.D0 * XBAR\r\n      YBAR3 =  3.D0 * YBAR\r\n      YBAR2 =  2.D0 * YBAR\r\nC\r\nC     ******************************************************************\r\nC                 X\r\nC     FILL THE  (K ) MATRIX STORING IN  A(1). . .A(36)\r\nC\r\n      A( 1) = D( 1)\r\n      A( 2) = D( 3)\r\n      A( 3) = D( 2)\r\n      A( 4) = D( 1) * XBAR3\r\n      A( 5) = D( 2) * XBAR   +  YBAR2 * D(3)\r\n      A( 6) = D( 2) * YBAR3\r\n      A( 7) = A( 2)\r\n      A( 8) = D( 9)\r\n      A( 9) = D( 6)\r\n      A(10) = D( 3) * XBAR3\r\n      A(11) = D( 6) * XBAR   +  YBAR2 * D(9)\r\n      A(12) = D( 6) * YBAR3\r\n      A(13) = A( 3)\r\n      A(14) = A( 9)\r\n      A(15) = D( 5)\r\n      A(16) = D( 2) * XBAR3\r\n      A(17) = D( 5) * XBAR   +  YBAR2 * D(6)\r\n      A(18) = D( 5) * YBAR3\r\n      A(19) = A( 4)\r\n      A(20) = A(10)\r\n      A(21) = A(16)\r\n      A(22) = D(1)*9.*PX2\r\n      A(23) = D(2)*3.*PX2  +  6.*PXY2*D(3)\r\n      A(24) = D(2)*9.*PXY2\r\n      A(25) = A( 5)\r\n      A(26) = A(11)\r\n      A(27) = A(17)\r\n      A(28) = A(23)\r\n      A(29) =  D(5)*PX2 + 4.*PXY2*D(6)   +  4.*PY2*D(9)\r\n      A(30) =  D(5)*3.*PXY2  +  6.*PY2*D(6)\r\n      A(31) = A( 6)\r\n      A(32) = A(12)\r\n      A(33) = A(18)\r\n      A(34) = A(24)\r\n      A(35) = A(30)\r\n      A(36) =  D(5)*9.*PY2\r\n      TEMP =  4.*AREA\r\n      DO 140  I=1,36\r\n  140 A(I) = A(I)*TEMP\r\nC\r\nC     ******************************************************************\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37). . .A(72)\r\nC\r\n      DO 160 I =37,72\r\n  160 A(I)=0.\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ * XSUBB\r\n      A(44) = XSUBB\r\n      A(49) = -2.*XSUBB\r\n      A(52) = -3.*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ * XSUBC\r\n      A(59) = YCSQ * XSUBC\r\n      A(60) = YCSQ * YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.\r\n      A(65) =  XCYC*2.\r\n      A(66) =  YCSQ*3.\r\n      A(67) =  -2.*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =  -3.*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\nC     ******************************************************************\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 220\r\nC\r\nC     ALL OF OPERATIONS THRU STMT 220\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID = MATID2\r\n      INFLAG = 3\r\n      CALL MAT( ECPT(1) )\r\n      IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0)\r\n     1    GO TO 220\r\n      G2X2(1) =  DBLE(G2X211) * DBLE(T2)\r\n      G2X2(2) =  DBLE(G2X212) * DBLE(T2)\r\n      G2X2(3) =  DBLE(G2X212) * DBLE(T2)\r\n      G2X2(4) =  DBLE(G2X222) * DBLE(T2)\r\nC\r\n      DETERM = G2X2(1) * G2X2(4)  -  G2X2(3) * G2X2(2)\r\n      J2X2(1) = G2X2(4) / DETERM\r\n      J2X2(2) =-G2X2(2) / DETERM\r\n      J2X2(3) =-G2X2(3) / DETERM\r\n      J2X2(4) = G2X2(1) / DETERM\r\nC\r\nC     ******************************************************************\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\nC\r\nC\r\n      TEMP = 2.*D(2) + 4.*D(9)\r\n      A(73) =  -6.* (J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) =  -J2X2(1)*TEMP - 6.*J2X2(2)*D(6)\r\n      A(75) =  -6.*(J2X2(1)*D(6)  + J2X2(2)*D(5))\r\n      A(76) =  -6.*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) =  -J2X2(2)*TEMP - 6.*J2X2(4)*D(6)\r\n      A(78) =  -6.*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     NOW FORMING  PRODUCT (G2X2)(H  ) AND STORING AS AN INTERMEDIATE\r\nC     STEP.                        YQ\r\nC\r\nC\r\n      CALL GMMATD (G2X2, 2,2,0,   A(73), 2,3,0,  A(79))\r\nC\r\nC                                                               Y\r\nC     WITH LAST PRODUCT  FORM  LOWER RIGHT 3 X 3 PARTITION OF (K )\r\nC\r\nC              Y                   T\r\nC     THUS   (K ) PARTITION = (H  ) (LAST PRODUCT)   STORE AT A(85)\r\nC                               YQ\r\nC\r\n      CALL GMMATD (A(73), 2,3,1,  A(79), 2,3,0,  A(85))\r\nC\r\nC                                                     X\r\nC     NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K )\r\nC     PER STEP 5 PAGE -16- MS-17                            Y\r\nC     MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE.\r\nC\r\n      DO 180 I=1,3\r\n      A(I + 21) = A(I + 21) + A(I + 84) * AREA\r\n      A(I + 27) = A(I + 27) + A(I + 87) * AREA\r\n  180 A(I + 33) = A(I + 33) + A(I + 90)*AREA\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 200 I=1,3\r\n      A(I + 39) = A(I + 39) + XSUBB * A(I + 72)\r\n  200 A(I+57) =  A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\nC     ******************************************************************\r\nC\r\n  220 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37). . .A(72)\r\nC     STORE INVERSE BACK IN A(37) . . . A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (6, A(37), 6,A(73), 0, DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\n      IF (ISING .EQ. 2) GO TO 7790\r\nC\r\nC\r\nC     ******************************************************************\r\nC              Q   -1\r\nC     FORM   (K )(H  )  AND STORE AT  A(73). . .A(108)\r\nC                 X                     Q\r\nC     NOTE THAT (K ) AT THIS POINT IS (K )...\r\nC\r\n      CALL GMMATD (A(1), 6,6,0, A(37), 6,6,0,  A(73))\r\nC\r\nC                    -1 T\r\nC     FORM(K  ) = (H  ) (LAST PRODUCT) STORE AT A(109). . .A(144)\r\nC            II\r\nC\r\n      CALL GMMATD (A(37), 6,6,1, A(73), 6,6,0, A(109))\r\nC\r\nC     ******************************************************************\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3 )\r\nC\r\n      IF (IOPT .NE. 2) GO TO 260\r\nC\r\nC     SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE.\r\nC\r\n      DO 240 I = 37,72\r\n  240 A(I+108) = A(I)\r\nC\r\n  260 S(1) = 1.0\r\n      S(2) = 0.\r\n      S( 3) =-XSUBB\r\n      S(4) = 0.\r\n      S(5) = 1.\r\n      S(6) = 0.\r\n      S(7) = 0.\r\n      S(8) = 0.\r\n      S(9) = 1.\r\n      S(10)= 1.\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13)= 0.\r\n      S(14)= 1.\r\n      S(15)= 0.\r\n      S(16)= 0.\r\n      S(17)= 0.\r\n      S(18)= 1.\r\nC\r\nC     ******************************************************************\r\nC                     T\r\nC     FORM   K   = K   = -K   S  STORING AT A(46)   (K   IS 6X3)\r\nC             IA    AI     II                         IA\r\nC\r\n      CALL GMMATD (A(109), 6,6,0, S(1), 6,3,0, A(46))\r\nC\r\nC     THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW.\r\nC\r\nC                    T\r\nC          (K  ) = (S )(-K  )\r\nC            AA           IA\r\nC\r\nC     NOTE K    HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS\r\nC           IA                                                   HERE.\r\nC\r\n      CALL GMMATD (S(1), 6,3,1,  A(46), 6,3,0, A(1))\r\nC\r\nC     NOW MULTIPLY  K   BY SCALER (-1)\r\nC                    IA\r\nC\r\n      DO 280 I =46,63\r\n  280 A(I) = -A(I)\r\nC\r\nC     AT THIS POINT, STORED BY ROWS ARE\r\nC\r\nC                  K     (6X6) AT A(109). . .A(144)\r\nC                   II\r\nC\r\nC                  K     (6,3) AT  A(46). . .A(63)\r\nC                   IA\r\nC\r\nC                  K     (3X3) AT A(  1). . .A(  9)\r\nC                   AA\r\nC\r\nC     ARRANGE NINE 3X3 MATRICES OF K SUPER U\r\n      DO 300 I = 28,36\r\n  300 A(I) = A(I+18)\r\n       A(10) = A(46)\r\n       A(11) = A(49)\r\n       A(12) = A(52)\r\n       A(13) = A(47)\r\n       A(14) = A(50)\r\n       A(15) = A(53)\r\n       A(16) = A(48)\r\n       A(17) = A(51)\r\n       A(18) = A(54)\r\n       A(19) = A(55)\r\n       A(20) = A(58)\r\n       A(21) = A(61)\r\n       A(22) = A(56)\r\n       A(23) = A(59)\r\n       A(24) = A(62)\r\n       A(25) = A(57)\r\n       A(26) = A(60)\r\n       A(27) = A(63)\r\n       A(37) = A(109)\r\n       A(38) = A(110)\r\n       A(39) = A(111)\r\n       A(40) = A(115)\r\n       A(41) = A(116)\r\n       A(42) = A(117)\r\n       A(43) = A(121)\r\n       A(44) = A(122)\r\n       A(45) = A(123)\r\n       A(46) = A(112)\r\n       A(47) = A(113)\r\n       A(48) = A(114)\r\n       A(49) = A(118)\r\n       A(50) = A(119)\r\n       A(51) = A(120)\r\n       A(52) = A(124)\r\n       A(53) = A(125)\r\n       A(54) = A(126)\r\n       A(64) = A(127)\r\n       A(65) = A(128)\r\n       A(66) = A(129)\r\n       A(67) = A(133)\r\n       A(68) = A(134)\r\n       A(69) = A(135)\r\n       A(70) = A(139)\r\n       A(71) = A(140)\r\n       A(72) = A(141)\r\n       A(73) = A(130)\r\n       A(74) = A(131)\r\n       A(75) = A(132)\r\n       A(76) = A(136)\r\n       A(77) = A(137)\r\n       A(78) = A(138)\r\n       A(79) = A(142)\r\n       A(80) = A(143)\r\n       A(81) = A(144)\r\n      DICT5 = GSUBE\r\n      IF (NTYPE .NE. 1)  GO TO 350\r\n      LOOPND = NO(IOPT)\r\n      DO 320 I=1,LOOPND\r\n  320 AOUT(I) = A(I)\r\n      RETURN\r\n  350 CONTINUE\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\n      DO 600 NPIVOT = 1,3\r\nC\r\nC\r\nC     AT THIS POINT START ASSEMBLY OF 3   6X6 MATRICES FOR I = PIVOT,\r\nC     AND J =1,2,3  IN THE FOLLOWING EQUATION.\r\nC\r\nC                   T         U    T\r\nC        (K  ) = (T  ) (E) (K  ) (E ) (T )\r\nC          IJ      I         IJ         J\r\nC\r\nC     ******************************************************************\r\nC\r\nC     FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K  .\r\nC                                                IJ\r\nC                   T\r\nC              = (T  ) (E)    A 6X3 MATRIX.\r\nC                  I\r\nC\r\nC\r\nC     CHECK TO SEE IF TI-MATRIX IS NEEDED\r\nC     IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION.\r\nC\r\n      IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 420\r\nC\r\nC     GET  TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT)\r\nC\r\n      CALL TRANSD (NECPT(4*NPIVOT+9),TI)\r\nC\r\nC     TI IS EQUIVALENCED TO A(118) AND IS 3X3.\r\nC\r\nC     FORM TITE (UPPER AND LOWER) OK OK OK....\r\nC\r\n      CALL GMMATD (TI(1),3,3,1, E(1),3,3,0, TITE(1))\r\n      CALL GMMATD (TI(1), 3,3,1, E(10),3,3,0, TITE(10))\r\nC\r\n      GO TO 460\r\nC\r\nC 250 COMING HERE IMPLIES TI NOT USED.\r\nC     JUST SET TITE = E MATRIX\r\n  420 DO 440 I=1,18\r\n440   TITE(I) = E(I)\r\nC\r\nC     ******************************************************************\r\nC                                                  T\r\nC 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T  )(E)  STORED IN TITE\r\nC                                                 I\r\nC\r\nC     THE PIVOT I IS NPIVOT\r\n460   NPT1 = 189\r\nC\r\nC     THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC.\r\nC     CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING\r\nC     SUB-PRODUCT.\r\nC                     U   T\r\nC                  (K  )(E )(T )\r\nC                    IJ       J\r\nC\r\nC     ******************************************************************\r\nC\r\nC     LOOP THRU FOR THE 3 - 6X6 K   ARRAYS.\r\nC                                IJ\r\n      DO 580 J=1,3\r\nC                          T\r\nC     TAKE SUB PRODUCT = (E )(T )..     STORE IN TJTE MATRIX\r\nC                              J\r\nC\r\nC     NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED,\r\nC                           T\r\nC                      = (T  )(E),  AND STORED IN TJTE-MATRIX\r\nC                          J        EQUIVALENCED TO A(100)\r\nC\r\nC\r\nC     CHECK TO SEE IF TRANSFORMATION IS NEEDED.\r\nC     IF NOT SKIP TO  480\r\nC\r\n      IF (NECPT(4*J +9)  .EQ. 0)  GO TO 480\r\nC\r\n      CALL TRANSD (NECPT(4*J+9),TI)\r\nC\r\n      CALL GMMATD (TI(1), 3,3,1, E(1),3,3,0, TJTE(1))\r\n      CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 500\r\nC\r\nC 480 COMING HERE IF TRANSFORMATION NOT USED\r\nC\r\nC 480 SET TJTE = E\r\n  480 DO 490 I =1,18\r\n  490 TJTE(I) = E(I)\r\nC\r\nC     ******************************************************************\r\nC           T       T\r\nC 880   ( (E )(T ) )  IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX.\r\nC               J\r\nC                     U   T\r\nC     NOW FORM,    (K  )(E )(T ), STORING AT A(NPT1)\r\nC                    IJ       J\r\nC\r\nC                                  U\r\nC     TO COMPUTE ABOVE USE 3X3   K\r\nC                                 (NPIVOT,J)\r\nC     COMPUTE POINTER TO THIS 3X3.\r\nC\r\n  500 NPT2 = 27*NPIVOT+9*J  - 35\r\nC\r\n      CALL GMMATD (A(NPT2), 3,3,0, TJTE, 6,3,1, A(NPT1))\r\nC\r\nC     ******************************************************************\r\nC\r\nC 950 AT THIS POINT,\r\nC                       U   T\r\nC                    (K  )(E )(T )  IS STORED AT A(NPT1), (3X6).\r\nC                      IJ       J\r\nC\r\nC     AND,              T\r\nC                    (T  )(E)      IS STORED AT TITE(1) = A(82)  (6X3)\r\nC                      I\r\nC     ******************************************************************\r\nC\r\nC     FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6.\r\nC\r\n      CALL GMMATD (TITE(1), 6,3,0, A(NPT1), 3,6,0, A(100))\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\nC    NOW STORE  THE 6X6 MATRIX IN AOUT\r\nC\r\n      IOUT = (NPIVOT-1)*27 + (J-1)*9 + 1\r\n      I = 113\r\n      DO 570 II=1,3\r\n      DO 550 JJ=1,3\r\n      IA = I + (II-1)*6 + JJ\r\n      AOUT(IOUT) = A(IA)\r\n550   IOUT = IOUT+1\r\n570   CONTINUE\r\nC\r\n  580 CONTINUE\r\nC\r\n  600 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 7770 CALL MESAGE (30,31,ECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 CALL MESAGE (30,32,IELID)\r\n      GO TO 7777\r\nC\r\n 7790 CALL MESAGE (30,33,IELID)\r\n      GO TO 7777\r\nC     ******************************************************************\r\n      END\r\n"
  },
  {
    "path": "mis/etrbks.f",
    "content": "      SUBROUTINE ETRBKS (IOPT)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS MATRIX FOR THE BASIC\r\nC     BENDING TRIANGLE. IT IS USED BY SUBROUTINES TRBSCS, QDPLTS,\r\nC     TRPLTS, QUAD1S,TRIA1S,TRIA2S\r\nC     SINGLE PRECISION VERSION\r\nC     IOPT MAY BE VARIED AS FOLLOWS TO PRODUCE APPROPRIATE RESULTS\r\nC     ******************************************************************\r\nC\r\nC\r\nC\r\nC     IOPT = 0   IMPLIES DO COMPLETE BASIC BENDING TRIANGLE.\r\nC     IOPT = 1   IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES\r\nC                WHICH FORM THE 9X9 K SUPER U - MATRIX.\r\nC     IOPT = 2   SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S...\r\nC\r\nC     ******************************************************************\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE   TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC     ******************************************************************\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         NECPT(26),NO(2)\r\n      REAL            J2X2,K\r\n      DIMENSION       D(9),G2X2(4),J2X2(4),S(18),ECPT(25),G(9),\r\n     1                TJTE(18),TITE(18),TI(9)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                G2X211,G2X212,G2X222\r\nC\r\n      COMMON /EMGPRM/ DUM(15),SMB(3),IPREC,NOGO\r\n      COMMON /EMGEST/ IELID         ,NGRID(3)\r\n     2               ,ANGLE         ,MATID1\r\n     3               ,EYE           ,MATID2\r\n     4               ,T2            ,FMU\r\n     5               ,Z11           ,Z22\r\n     6               ,DUMMY1        ,X1\r\n     7               ,Y1            ,Z1\r\n     8               ,DUMMY2        ,X2\r\n     9               ,Y2            ,Z2\r\n     1               ,DUMMY3        ,X3\r\n     2               ,Y3            ,Z3\r\n     3               ,DUMB(76)\r\n      COMMON /EMGTRX/ A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,DICT5,\r\n     1                E(18),K(324),AOUT(324)\r\nC\r\n      EQUIVALENCE    (CONSTS(4),DEGRA)  ,(G2X2(1),A(88))\r\n      EQUIVALENCE    (IELID,ECPT(1),NECPT(1)), (D(1),G(1),A(79)),\r\n     1               (TJTE(1),A(100))   ,(TITE(1),S(1),A(82)),\r\n     2               (J2X2(1),A( 92))   ,(TI(1),A(118))\r\nC\r\n      DATA NO /81,190/\r\n      NTYPE = 0\r\n      IF( IOPT.GT.0 ) NTYPE = 1\r\n      IF (NTYPE .EQ. 1) GOTO 100\r\n      ELTEMP = ECPT(25)\r\nC     SET UP  I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE\r\nC     X-SUB-B, X-SUB-C, AND Y-SUB-C.\r\nC\r\nC     E(11), E(14), E(17) WILL BE THE I-VECTOR.\r\nC     E(12), E(15), E(18) WILL BE THE J-VECTOR.\r\nC     E( 1), E( 4), E( 7) WILL BE THE K-VECTOR.\r\nC\r\nC     FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED)\r\n      E(11) =  X2-X1\r\n      E(14) =  Y2-Y1\r\n      E(17) =  Z2-Z1\r\nC\r\nC     FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM\r\n      XSUBB =  SQRT(E(11)**2 + E(14)**2 + E(17)**2)\r\n      IF  (XSUBB .LE. 1.E-6)  GO TO 7770\r\nC\r\n      E(11) =  E(11)/XSUBB\r\n      E(14) =  E(14)/XSUBB\r\n      E(17) =  E(17)/XSUBB\r\nC\r\nC     TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8)\r\nC\r\n      E(2) =  X3-X1\r\n      E(5) =  Y3-Y1\r\n      E(8) =  Z3-Z1\r\nC\r\nC     X-SUB-C = I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(11) * E(2)  +  E(14) * E(5)  +  E(17) * E(8)\r\nC\r\nC     CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(1) = E(14) * E( 8)  -  E( 5) * E(17)\r\n      E(4) = E( 2) * E(17)  -  E(11) * E( 8)\r\n      E(7) = E(11) * E( 5)  -  E( 2) * E(14)\r\nC\r\nC     FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM\r\n      YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2)\r\n      IF (YSUBC .LE. 1.E-6) GO TO 7780\r\nC\r\nC     NORMALIZE K-VECTOR WITH Y-SUB-C\r\nC\r\n      E(1) = E(1)/YSUBC\r\n      E(4) = E(4) / YSUBC\r\n      E(7) = E(7) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS GET -- J = K CROSS I\r\nC\r\n      E(12) = E( 4) * E(17)  -  E(14) * E( 7)\r\n      E(15) = E(11) * E( 7)  -  E( 1) * E(17)\r\n      E(18) = E( 1) * E(14)  -  E(11) * E( 4)\r\nC\r\nC     NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE\r\nC\r\n      TEMP = SQRT(E(12)**2 + E(15)**2   + E(18)**2)\r\n      E(12) = E(12) / TEMP\r\n      E(15) = E(15) / TEMP\r\n      E(18) = E(18) / TEMP\r\n      E(2) = 0.\r\n      E(3) = 0.\r\n      E(5) = 0.\r\n      E(6) = 0.\r\n      E(8) = 0.\r\n      E(9) = 0.\r\n      E(10) = 0.\r\n      E(13) = 0.\r\n      E(16) = 0.\r\nC\r\nC     CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA.\r\nC\r\n      THETA = ANGLE * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n      IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     SETTING UP G MATRIX\r\n  100 INFLAG = 2\r\n      MATID = MATID1\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     ******************************************************************\r\nC\r\nC  50 COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 120 I=1,9\r\n  120 D(I) = G(I)*EYE\r\nC\r\nC     ******************************************************************\r\nC\r\n      AREA = XSUBB * YSUBC/2.\r\n      XBAR = (XSUBB+XSUBC)/3.\r\n      YBAR = YSUBC/3.\r\nC\r\n      XCSQ = XSUBC ** 2\r\n      YCSQ = YSUBC ** 2\r\n      XBSQ = XSUBB ** 2\r\n      XCYC = XSUBC * YSUBC\r\n      PX2 =(XBSQ+XSUBB*XSUBC + XCSQ)/6.\r\n      PY2  =  YCSQ/6.\r\n      PXY2 =   YSUBC*(XSUBB + 2.*XSUBC)/12.\r\n      XBAR3 =  3.* XBAR\r\n      YBAR3 =  3.* YBAR\r\n      YBAR2 =  2.* YBAR\r\nC\r\nC     ******************************************************************\r\nC                 X\r\nC     FILL THE  (K ) MATRIX STORING IN  A(1). . .A(36)\r\nC\r\n      A( 1) = D( 1)\r\n      A( 2) = D( 3)\r\n      A( 3) = D( 2)\r\n      A( 4) = D( 1) * XBAR3\r\n      A( 5) = D( 2) * XBAR   +  YBAR2 * D(3)\r\n      A( 6) = D( 2) * YBAR3\r\n      A( 7) = A( 2)\r\n      A( 8) = D( 9)\r\n      A( 9) = D( 6)\r\n      A(10) = D( 3) * XBAR3\r\n      A(11) = D( 6) * XBAR   +  YBAR2 * D(9)\r\n      A(12) = D( 6) * YBAR3\r\n      A(13) = A( 3)\r\n      A(14) = A( 9)\r\n      A(15) = D( 5)\r\n      A(16) = D( 2) * XBAR3\r\n      A(17) = D( 5) * XBAR   +  YBAR2 * D(6)\r\n      A(18) = D( 5) * YBAR3\r\n      A(19) = A( 4)\r\n      A(20) = A(10)\r\n      A(21) = A(16)\r\n      A(22) = D(1)*9.*PX2\r\n      A(23) = D(2)*3.*PX2  +  6.*PXY2*D(3)\r\n      A(24) = D(2)*9.*PXY2\r\n      A(25) = A( 5)\r\n      A(26) = A(11)\r\n      A(27) = A(17)\r\n      A(28) = A(23)\r\n      A(29) =  D(5)*PX2 + 4.*PXY2*D(6)   +  4.*PY2*D(9)\r\n      A(30) =  D(5)*3.*PXY2  +  6.*PY2*D(6)\r\n      A(31) = A( 6)\r\n      A(32) = A(12)\r\n      A(33) = A(18)\r\n      A(34) = A(24)\r\n      A(35) = A(30)\r\n      A(36) =  D(5)*9.*PY2\r\n      TEMP =  4.*AREA\r\n      DO 140  I=1,36\r\n  140 A(I) = A(I)*TEMP\r\nC\r\nC     ******************************************************************\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37). . .A(72)\r\nC\r\n      DO 160 I =37,72\r\n  160 A(I)=0.\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ * XSUBB\r\n      A(44) = XSUBB\r\n      A(49) = -2.*XSUBB\r\n      A(52) = -3.*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ * XSUBC\r\n      A(59) = YCSQ * XSUBC\r\n      A(60) = YCSQ * YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.\r\n      A(65) =  XCYC*2.\r\n      A(66) =  YCSQ*3.\r\n      A(67) =  -2.*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =  -3.*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\nC     ******************************************************************\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 220\r\nC\r\nC     ALL OF OPERATIONS THRU STMT 220\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID = MATID2\r\n      INFLAG = 3\r\n      CALL MAT( ECPT(1) )\r\n      IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0)\r\n     1    GO TO 220\r\n      G2X2(1) = G2X211 * T2\r\n      G2X2(2) = G2X212 * T2\r\n      G2X2(3) = G2X212 * T2\r\n      G2X2(4) = G2X222 * T2\r\nC\r\n      DETERM = G2X2(1) * G2X2(4)  -  G2X2(3) * G2X2(2)\r\n      J2X2(1) = G2X2(4) / DETERM\r\n      J2X2(2) =-G2X2(2) / DETERM\r\n      J2X2(3) =-G2X2(3) / DETERM\r\n      J2X2(4) = G2X2(1) / DETERM\r\nC\r\nC     ******************************************************************\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\nC\r\nC\r\n      TEMP = 2.*D(2) + 4.*D(9)\r\n      A(73) =  -6.* (J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) =  -J2X2(1)*TEMP - 6.*J2X2(2)*D(6)\r\n      A(75) =  -6.*(J2X2(1)*D(6)  + J2X2(2)*D(5))\r\n      A(76) =  -6.*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) =  -J2X2(2)*TEMP - 6.*J2X2(4)*D(6)\r\n      A(78) =  -6.*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     NOW FORMING  PRODUCT (G2X2)(H  ) AND STORING AS AN INTERMEDIATE\r\nC     STEP.                        YQ\r\nC\r\nC\r\n      CALL GMMATS(G2X2(1),2,2,0, A(73),2,3,0,  A(79))\r\nC\r\nC                                                               Y\r\nC     WITH LAST PRODUCT  FORM  LOWER RIGHT 3 X 3 PARTITION OF (K )\r\nC\r\nC              Y                   T\r\nC     THUS   (K ) PARTITION = (H  ) (LAST PRODUCT)   STORE AT A(85)\r\nC                               YQ\r\nC\r\n      CALL GMMATS(A(73),2,3,1,  A(79),2,3,0,  A(85))\r\nC\r\nC                                                     X\r\nC     NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K )\r\nC     PER STEP 5 PAGE -16- MS-17                            Y\r\nC     MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE.\r\nC\r\n      DO 180 I=1,3\r\n      A(I + 21) = A(I + 21) + A(I + 84) * AREA\r\n      A(I + 27) = A(I + 27) + A(I + 87) * AREA\r\n  180 A(I + 33) = A(I + 33) + A(I + 90)*AREA\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 200 I=1,3\r\n      A(I + 39) = A(I + 39) + XSUBB * A(I + 72)\r\n  200 A(I+57) =  A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\nC     ******************************************************************\r\nC\r\n  220 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37). . .A(72)\r\nC     STORE INVERSE BACK IN A(37) . . . A(72)\r\nC     NO NEED TO COMPUTE THE INVERSE SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS(6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\n      IF (ISING .EQ. 2) GO TO 7790\r\nC\r\nC\r\nC     ******************************************************************\r\nC              Q   -1\r\nC     FORM   (K )(H  )  AND STORE AT  A(73). . .A(108)\r\nC                 X                     Q\r\nC     NOTE THAT (K ) AT THIS POINT IS (K )...\r\nC\r\n      CALL GMMATS(A(1),6,6,0, A(37),6,6,0, A(73))\r\nC\r\nC                    -1 T\r\nC     FORM(K  ) = (H  ) (LAST PRODUCT) STORE AT A(109). . .A(144)\r\nC            II\r\nC\r\n      CALL GMMATS(A(37),6,6,1, A(73),6,6,0, A(109))\r\nC\r\nC     ******************************************************************\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3 )\r\nC\r\n      IF (IOPT .NE. 2) GO TO 260\r\nC\r\nC     SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE.\r\nC\r\n      DO 240 I = 37,72\r\n  240 A(I+108) = A(I)\r\nC\r\n  260 S(1) = 1.0\r\n      S(2) = 0.\r\n      S( 3) =-XSUBB\r\n      S(4) = 0.\r\n      S(5) = 1.\r\n      S(6) = 0.\r\n      S(7) = 0.\r\n      S(8) = 0.\r\n      S(9) = 1.\r\n      S(10)= 1.\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13)= 0.\r\n      S(14)= 1.\r\n      S(15)= 0.\r\n      S(16)= 0.\r\n      S(17)= 0.\r\n      S(18)= 1.\r\nC\r\nC     ******************************************************************\r\nC                     T\r\nC     FORM   K   = K   = -K   S  STORING AT A(46)   (K   IS 6X3)\r\nC             IA    AI     II                         IA\r\nC\r\n      CALL GMMATS(A(109),6,6,0,  S(1),6,3,0,   A(46))\r\nC\r\nC     THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW.\r\nC\r\nC                    T\r\nC          (K  ) = (S )(-K  )\r\nC            AA           IA\r\nC\r\nC     NOTE K    HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS\r\nC           IA                                                   HERE.\r\nC\r\n      CALL GMMATS(S(1),6,3,1,    A(46),6,3,0,  A(1))\r\nC\r\nC     NOW MULTIPLY  K   BY SCALER (-1)\r\nC                    IA\r\nC\r\n      DO 280 I =46,63\r\n  280 A(I) = -A(I)\r\nC\r\nC     AT THIS POINT, STORED BY ROWS ARE\r\nC\r\nC                  K     (6X6) AT A(109). . .A(144)\r\nC                   II\r\nC\r\nC                  K     (6,3) AT  A(46). . .A(63)\r\nC                   IA\r\nC\r\nC                  K     (3X3) AT A(  1). . .A(  9)\r\nC                   AA\r\nC\r\nC     ARRANGE NINE 3X3 MATRICES OF K SUPER U\r\n      DO 300 I = 28,36\r\n  300 A(I) = A(I+18)\r\n       A(10) = A(46)\r\n       A(11) = A(49)\r\n       A(12) = A(52)\r\n       A(13) = A(47)\r\n       A(14) = A(50)\r\n       A(15) = A(53)\r\n       A(16) = A(48)\r\n       A(17) = A(51)\r\n       A(18) = A(54)\r\n       A(19) = A(55)\r\n       A(20) = A(58)\r\n       A(21) = A(61)\r\n       A(22) = A(56)\r\n       A(23) = A(59)\r\n       A(24) = A(62)\r\n       A(25) = A(57)\r\n       A(26) = A(60)\r\n       A(27) = A(63)\r\n       A(37) = A(109)\r\n       A(38) = A(110)\r\n       A(39) = A(111)\r\n       A(40) = A(115)\r\n       A(41) = A(116)\r\n       A(42) = A(117)\r\n       A(43) = A(121)\r\n       A(44) = A(122)\r\n       A(45) = A(123)\r\n       A(46) = A(112)\r\n       A(47) = A(113)\r\n       A(48) = A(114)\r\n       A(49) = A(118)\r\n       A(50) = A(119)\r\n       A(51) = A(120)\r\n       A(52) = A(124)\r\n       A(53) = A(125)\r\n       A(54) = A(126)\r\n       A(64) = A(127)\r\n       A(65) = A(128)\r\n       A(66) = A(129)\r\n       A(67) = A(133)\r\n       A(68) = A(134)\r\n       A(69) = A(135)\r\n       A(70) = A(139)\r\n       A(71) = A(140)\r\n       A(72) = A(141)\r\n       A(73) = A(130)\r\n       A(74) = A(131)\r\n       A(75) = A(132)\r\n       A(76) = A(136)\r\n       A(77) = A(137)\r\n       A(78) = A(138)\r\n       A(79) = A(142)\r\n       A(80) = A(143)\r\n       A(81) = A(144)\r\n      DICT5 = GSUBE\r\n      IF (NTYPE .NE. 1)  GO TO 350\r\n      LOOPND = NO(IOPT)\r\n      DO 320 I=1,LOOPND\r\n  320 AOUT(I) = A(I)\r\n      RETURN\r\n  350 CONTINUE\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\n      DO 600 NPIVOT = 1,3\r\nC\r\nC\r\nC     AT THIS POINT START ASSEMBLY OF 3   6X6 MATRICES FOR I = PIVOT,\r\nC     AND J =1,2,3  IN THE FOLLOWING EQUATION.\r\nC\r\nC                   T         U    T\r\nC        (K  ) = (T  ) (E) (K  ) (E ) (T )\r\nC          IJ      I         IJ         J\r\nC\r\nC     ******************************************************************\r\nC\r\nC     FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K  .\r\nC                                                IJ\r\nC                   T\r\nC              = (T  ) (E)    A 6X3 MATRIX.\r\nC                  I\r\nC\r\nC\r\nC     CHECK TO SEE IF TI-MATRIX IS NEEDED\r\nC     IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION.\r\nC\r\n      IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 420\r\nC\r\nC     GET  TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT)\r\nC\r\n      CALL TRANSS(NECPT(4*NPIVOT+9),TI)\r\nC\r\nC     TI IS EQUIVALENCED TO A(118) AND IS 3X3.\r\nC\r\nC     FORM TITE (UPPER AND LOWER) OK OK OK....\r\nC\r\n      CALL GMMATS(TI(1),3,3,1, E(1),3,3,0,  TITE(1))\r\n      CALL GMMATS(TI(1),3,3,1, E(10),3,3,0, TITE(10))\r\nC\r\n      GO TO 460\r\nC\r\nC 250 COMING HERE IMPLIES TI NOT USED.\r\nC     JUST SET TITE = E MATRIX\r\n  420 DO 440 I=1,18\r\n440   TITE(I) = E(I)\r\nC\r\nC     ******************************************************************\r\nC                                                  T\r\nC 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T  )(E)  STORED IN TITE\r\nC                                                 I\r\nC\r\nC     THE PIVOT I IS NPIVOT\r\n460   NPT1 = 189\r\nC\r\nC     THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC.\r\nC     CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING\r\nC     SUB-PRODUCT.\r\nC                     U   T\r\nC                  (K  )(E )(T )\r\nC                    IJ       J\r\nC\r\nC     ******************************************************************\r\nC\r\nC     LOOP THRU FOR THE 3 - 6X6 K   ARRAYS.\r\nC                                IJ\r\n      DO 580 J=1,3\r\nC                          T\r\nC     TAKE SUB PRODUCT = (E )(T )..     STORE IN TJTE MATRIX\r\nC                              J\r\nC\r\nC     NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED,\r\nC                           T\r\nC                      = (T  )(E),  AND STORED IN TJTE-MATRIX\r\nC                          J        EQUIVALENCED TO A(100)\r\nC\r\nC\r\nC     CHECK TO SEE IF TRANSFORMATION IS NEEDED.\r\nC     IF NOT SKIP TO  480\r\nC\r\n      IF (NECPT(4*J +9)  .EQ. 0)  GO TO 480\r\nC\r\n      CALL TRANSS (NECPT (4*J+9),TI)\r\nC\r\n      CALL GMMATS (TI(1),3,3,1, E(1),3,3,0,  TJTE(1))\r\n      CALL GMMATS (TI(1),3,3,1,  E(10),3,3,0, TJTE(10))\r\n      GO TO 500\r\nC\r\nC 480 COMING HERE IF TRANSFORMATION NOT USED\r\nC\r\nC 480 SET TJTE = E\r\n  480 DO 490 I =1,18\r\n  490 TJTE(I) = E(I)\r\nC\r\nC     ******************************************************************\r\nC           T       T\r\nC 880   ( (E )(T ) )  IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX.\r\nC               J\r\nC                     U   T\r\nC     NOW FORM,    (K  )(E )(T ), STORING AT A(NPT1)\r\nC                    IJ       J\r\nC\r\nC                                  U\r\nC     TO COMPUTE ABOVE USE 3X3   K\r\nC                                 (NPIVOT,J)\r\nC     COMPUTE POINTER TO THIS 3X3.\r\nC\r\n  500 NPT2 = 27*NPIVOT+9*J  - 35\r\nC\r\n      CALL GMMATS (A(NPT2),3,3,0, TJTE,6,3,1,   A(NPT1))\r\nC\r\nC     ******************************************************************\r\nC\r\nC 950 AT THIS POINT,\r\nC                       U   T\r\nC                    (K  )(E )(T )  IS STORED AT A(NPT1), (3X6).\r\nC                      IJ       J\r\nC\r\nC     AND,              T\r\nC                    (T  )(E)      IS STORED AT TITE(1) = A(82)  (6X3)\r\nC                      I\r\nC     ******************************************************************\r\nC\r\nC     FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6.\r\nC\r\n      CALL GMMATS (TITE(1),6,3,0, A(NPT1),3,6,0,  A(100))\r\nC\r\nC     ******************************************************************\r\nC\r\nC\r\nC    NOW STORE  THE 6X6 MATRIX IN AOUT\r\nC\r\n      IOUT = (NPIVOT-1)*27 + (J-1)*9 + 1\r\n      I = 113\r\n      DO 570 II=1,3\r\n      DO 550 JJ=1,3\r\n      IA = I + (II-1)*6 + JJ\r\n      AOUT(IOUT) = A(IA)\r\n550   IOUT = IOUT+1\r\n570   CONTINUE\r\nC\r\n  580 CONTINUE\r\nC\r\n  600 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 7770 CALL MESAGE (30,31,ECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 CALL MESAGE (30,32,IELID)\r\n      GO TO 7777\r\nC\r\n 7790 CALL MESAGE (30,33,IELID)\r\n      GO TO 7777\r\nC     ******************************************************************\r\n      END\r\n"
  },
  {
    "path": "mis/etrbmd.f",
    "content": "      SUBROUTINE ETRBMD\r\nC\r\nC     BASIC BENDING TRIANGLE ELEMENT ROUTINE\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE COUPLED MASS MATRIX FOR THE BASIC\r\nC     BENDING TRIANGLE.\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE   TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC\r\n      LOGICAL          NOGO\r\n      INTEGER          NECPT(26)\r\n      REAL             ECPT(26)\r\n      DOUBLE PRECISION D(9),G(9),G2X2(4),J2X2(4),S(18),HYQ(6),SIIJ(7,7),\r\n     1                 MBARAA(9),MAR(18),MRR(36),A,PROD9,TEMP9,XSUBB,\r\n     2                 XSUBC,YSUBC,BFACT,E,AOUT,DETERM,TEMP,XCSQ,YCSQ,\r\n     3                 XBSQ,XCYC,YPRODJ,FJ,FJ2,AIJ,BIJ,XPRODI,FI,FIJ,\r\n     4                 SIZERO\r\n      COMMON /EMGPRM/  DUM(15),ISMB(3),IPREC,NOGO\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222,SPACE(2)\r\n      COMMON /EMGEST/  IELID,NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                 X3,Y3,Z3,DUMB(76)\r\n      COMMON /EMGTRX/  A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,\r\n     1                 BFACT,E(18),AOUT(324)\r\n      EQUIVALENCE      (IELID,ECPT(1),NECPT(1)),(J2X2(1),A(14)),\r\n     1                 (D(1),G(1),A(1),SIIJ(1,1)),(G2X2(1),A(10)),\r\n     2                 (HYQ(1),A(50)),(MBARAA(1),A(136)),\r\n     3                 (MAR(1),A(145)),(MRR(1),A(163)),(S(1),A(82))\r\nC\r\nC     SETTING UP G MATRIX\r\nC     BEFORE THIS SUBROUTINE CAN FUNCTION SEVERAL TERMS MUST BE DEFINED\r\nC     SEE ETRBKD.\r\nC\r\nC     POSSIBLE ERROR SOURCE FIX.  MAY REQUIRE LOADER CHANGE.\r\nC     IF (ISMB(1) .EQ. 0)  CALL ETRBKD (1)\r\nC\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\n      DO 350 I = 1,9\r\n  350 D(I) = G(I)*DBLE(EYE)\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(100). . .A(135)\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\nC\r\n      DO 380 I = 100,135\r\n  380 A(I) = 0.\r\nC\r\n      A(100) = XBSQ\r\n      A(103) = XBSQ*XSUBB\r\n      A(107) = XSUBB\r\n      A(112) =-2.*XSUBB\r\n      A(115) =-3.*XBSQ\r\n      A(118) = XCSQ\r\n      A(119) = XCYC\r\n      A(120) = YCSQ\r\n      A(121) = XCSQ*XSUBC\r\n      A(122) = YCSQ*XSUBC\r\n      A(123) = YCSQ*YSUBC\r\n      A(125) = XSUBC\r\n      A(126) = YSUBC*2.0D0\r\n      A(128) = XCYC *2.0D0\r\n      A(129) = YCSQ *3.0D0\r\n      A(130) =-2.0D0*XSUBC\r\n      A(131) =-YSUBC\r\n      A(133) =-3.0D0*XCSQ\r\n      A(134) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 410\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 410\r\nC\r\n      G2X2(1) = DBLE(G2X211)*DBLE(T2)\r\n      G2X2(2) = DBLE(G2X212)*DBLE(T2)\r\n      G2X2(4) = DBLE(G2X222)*DBLE(T2)\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) = J2X2(2)\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP   =  2.*D(2) + 4.*D(9)\r\n      HYQ(1) = -6.*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      HYQ(2) = -J2X2(1)*TEMP -  6.*J2X2(2)*D(6)\r\n      HYQ(3) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      HYQ(4) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      HYQ(5) = -J2X2(2)*TEMP  - 6.*J2X2(4)*D(6)\r\n      HYQ(6) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66\r\nC\r\n      DO 400 I = 1,3\r\n      A(I+102) = A(I+102) + XSUBB*HYQ(I)\r\n  400 A(I+120) = A(I+120) + XSUBC*HYQ(I) + YSUBC*HYQ(I+3)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  410 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(100). . .A(135)\r\nC     STORE INVERSE BACK IN A(100). . A(135)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,A(100),6, A(136),0,DETERM,ISING,A(142))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 600\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\nC     CHUNK OUT INTEGRAL VALUES I   USED IN REFERENCED M MATRICES\r\nC                                IJ                    SEE P.9, FMMS-66\r\nC\r\nC     THE CALCULATION FOR  (I  ) ARE AS FOLLOWS\r\nC                            IJ\r\nC                                                           ***\r\nC         A1  = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2))           *\r\nC           0J                                                 *\r\nC                                                              *\r\nC         B   = XSUBC * YSUBC**(J+1) / (J+2)                   *\r\nC           0J                                                 ** J=0,6\r\nC                                                              *\r\nC         A   = A1   + B                                       *\r\nC           0J    0J    0J                                     *\r\nC                                                              *\r\nC         I   = MU * A1                                        *\r\nC           0J         0J                                   ***\r\nC\r\nC                                                           ***\r\nC         A1  = I * XSUBB * A      /(I+J+2)                    *\r\nC           IJ               I-1,J                             *\r\nC                                                              *\r\nC         B   = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2))   *  I=1,6\r\nC           IJ                                                 ** J=0,6\r\nC                                                              *\r\nC         A   = A1   + B                                       *\r\nC           IJ    IJ    IJ                                     *\r\nC                                                              *\r\nC         I     MU * A1                                        *\r\nC           IJ=        IJ                                      *\r\nC                                                           ***\r\nC      NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0\r\nC                                      I.E.  I = 1,7\r\nC                                            J = 1,7\r\nC\r\n      DO 440 J = 1,7\r\n      YPRODJ = YSUBC**J\r\n      FJ  = J\r\n      FJ2 = J + 1\r\n      AIJ = XSUBB*YPRODJ/(FJ*FJ2)\r\n      BIJ = XSUBC*YPRODJ/FJ2\r\n      SIIJ(1,J) = FMU*AIJ\r\n      AIJ = AIJ + BIJ\r\n      IF (J .EQ. 7) GO TO 440\r\n      K   = 8 - J\r\n      DO 430 I = 2,K\r\n      XPRODI = XSUBC**I\r\n      FI  = I\r\n      FIJ = I + J\r\n      AIJ = (FI-1.)*XSUBB*AIJ/FIJ\r\n      BIJ = XPRODI*YPRODJ/(FI*FIJ)\r\n      SIIJ(I,J) = FMU*AIJ\r\n  430 AIJ = AIJ + BIJ\r\nC\r\n  440 CONTINUE\r\n      SIZERO = SIIJ(1,1)/3.\r\nC\r\nC     CHUNK IN NUMBERS FOR (M-BAR-AA) 3X3 MATRIX AS PER MS-48, PP. 6-10\r\nC\r\nC                    (M  )         3X6 MATRIX\r\nC                      AR\r\nC\r\nC                    (M  )         6X6 MATRIX\r\nC                      RR\r\nC\r\nC     (M-BAR-AA) MATRIX\r\nC\r\n      MBARAA(1) =  SIIJ(1,1)\r\n      MBARAA(2) =  SIIJ(1,2)\r\n      MBARAA(3) = -SIIJ(2,1)\r\n      MBARAA(4) =  SIIJ(1,2)\r\n      MBARAA(5) =  SIIJ(1,3)\r\n      MBARAA(6) = -SIIJ(2,2)\r\n      MBARAA(7) = -SIIJ(2,1)\r\n      MBARAA(8) = -SIIJ(2,2)\r\n      MBARAA(9) =  SIIJ(3,1)\r\nC\r\nC     (M  ) MATRIX\r\nC       AR\r\nC\r\n      MAR( 1) = SIIJ(3,1)\r\n      MAR( 2) = SIIJ(2,2)\r\n      MAR( 3) = SIIJ(1,3)\r\n      MAR( 4) = SIIJ(4,1)\r\n      MAR( 5) = SIIJ(2,3)\r\n      MAR( 6) = SIIJ(1,4)\r\n      MAR( 7) = SIIJ(3,2)\r\n      MAR( 8) = SIIJ(2,3)\r\n      MAR( 9) = SIIJ(1,4)\r\n      MAR(10) = SIIJ(4,2)\r\n      MAR(11) = SIIJ(2,4)\r\n      MAR(12) = SIIJ(1,5)\r\n      MAR(13) =-SIIJ(4,1)\r\n      MAR(14) =-SIIJ(3,2)\r\n      MAR(15) =-SIIJ(2,3)\r\n      MAR(16) =-SIIJ(5,1)\r\n      MAR(17) =-SIIJ(3,3)\r\n      MAR(18) =-SIIJ(2,4)\r\nC\r\nC     (M  ) MATRIX  A 6X6 SYMMETRIC MATRIX\r\nC       RR\r\nC\r\n      MRR( 1) = SIIJ(5,1)\r\n      MRR( 2) = SIIJ(4,2)\r\n      MRR( 3) = SIIJ(3,3)\r\n      MRR( 4) = SIIJ(6,1)\r\n      MRR( 5) = SIIJ(4,3)\r\n      MRR( 6) = SIIJ(3,4)\r\n      MRR( 7) = MRR(2)\r\n      MRR( 8) = SIIJ(3,3)\r\n      MRR( 9) = SIIJ(2,4)\r\n      MRR(10) = SIIJ(5,2)\r\n      MRR(11) = SIIJ(3,4)\r\n      MRR(12) = SIIJ(2,5)\r\n      MRR(13) = MRR(3)\r\n      MRR(14) = MRR(9)\r\n      MRR(15) = SIIJ(1,5)\r\n      MRR(16) = SIIJ(4,3)\r\n      MRR(17) = SIIJ(2,5)\r\n      MRR(18) = SIIJ(1,6)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = SIIJ(7,1)\r\n      MRR(23) = SIIJ(5,3)\r\n      MRR(24) = SIIJ(4,4)\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = SIIJ(3,5)\r\n      MRR(30) = SIIJ(2,6)\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = SIIJ(1,7)\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 445\r\nC\r\n      MAR( 4) = MAR( 4) + HYQ(1)*SIIJ(2,1) + HYQ(4)*SIIJ(1,2)\r\n      MAR( 5) = MAR( 5) + HYQ(2)*SIIJ(2,1) + HYQ(5)*SIIJ(1,2)\r\n      MAR( 6) = MAR( 6) + HYQ(3)*SIIJ(2,1) + HYQ(6)*SIIJ(1,2)\r\n      MAR(10) = MAR(10) + HYQ(1)*SIIJ(2,2) + HYQ(4)*SIIJ(1,3)\r\n      MAR(11) = MAR(11) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3)\r\n      MAR(12) = MAR(12) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)\r\n      MAR(16) = MAR(16) - HYQ(1)*SIIJ(3,1) - HYQ(4)*SIIJ(2,2)\r\n      MAR(17) = MAR(17) - HYQ(2)*SIIJ(3,1) - HYQ(5)*SIIJ(2,2)\r\n      MAR(18) = MAR(18) - HYQ(3)*SIIJ(3,1) - HYQ(6)*SIIJ(2,2)\r\n      MRR( 4) = MRR( 4) + HYQ(1)*SIIJ(4,1) + HYQ(4)*SIIJ(3,2)\r\n      MRR( 5) = MRR( 5) + HYQ(2)*SIIJ(4,1) + HYQ(5)*SIIJ(3,2)\r\n      MRR( 6) = MRR( 6) + HYQ(3)*SIIJ(4,1) + HYQ(6)*SIIJ(3,2)\r\n      MRR(10) = MRR(10) + HYQ(1)*SIIJ(3,2) + HYQ(4)*SIIJ(2,3)\r\n      MRR(11) = MRR(11) + HYQ(2)*SIIJ(3,2) + HYQ(5)*SIIJ(2,3)\r\n      MRR(12) = MRR(12) + HYQ(3)*SIIJ(3,2) + HYQ(6)*SIIJ(2,3)\r\n      MRR(16) = MRR(16) + HYQ(1)*SIIJ(2,3) + HYQ(4)*SIIJ(1,4)\r\n      MRR(17) = MRR(17) + HYQ(2)*SIIJ(2,3) + HYQ(5)*SIIJ(1,4)\r\n      MRR(18) = MRR(18) + HYQ(3)*SIIJ(2,3) + HYQ(6)*SIIJ(1,4)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = MRR(22) + HYQ(1)*(HYQ(1)*SIIJ(3,1) + 2.0D0*(SIIJ(5,1) +\r\n     1          HYQ(4)*SIIJ(2,2))) + HYQ(4)*(2.0D0*SIIJ(4,2) +\r\n     2          HYQ(4)*SIIJ(1,3))\r\n      MRR(23) = MRR(23) + HYQ(2)*SIIJ(5,1) + HYQ(5)*SIIJ(4,2) +\r\n     1          HYQ(1)*(SIIJ(3,3) + HYQ(2)*SIIJ(3,1) + HYQ(5)*SIIJ(2,2))\r\n     2        + HYQ(4)*(SIIJ(2,4) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3))\r\n      MRR(24) = MRR(24) + HYQ(3)*SIIJ(5,1) + HYQ(6)*SIIJ(4,2) +\r\n     1          HYQ(1)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2))\r\n     2        + HYQ(4)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3))\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = MRR(29) + HYQ(2)*(HYQ(2)*SIIJ(3,1) + 2.0D0*(SIIJ(3,3) +\r\n     1          HYQ(5)*SIIJ(2,2))) + HYQ(5)*(2.0D0*SIIJ(2,4) +\r\n     2          HYQ(5)*SIIJ(1,3))\r\n      MRR(30) = MRR(30) + HYQ(3)*SIIJ(3,3) + HYQ(6)*SIIJ(2,4) +\r\n     1          HYQ(2)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2))\r\n     2        + HYQ(5)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3))\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = MRR(36) + HYQ(3)*(HYQ(3)*SIIJ(3,1) + 2.0D0*(SIIJ(2,4) +\r\n     1          HYQ(6)*SIIJ(2,2))) + HYQ(6)*(2.0D0*SIIJ(1,5) +\r\n     2          HYQ(6)*SIIJ(1,3))\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3 )\r\nC\r\n  445 S( 1) = 1.\r\n      S( 2) = 0.\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.\r\n      S( 5) = 1.\r\n      S( 6) = 0.\r\n      S( 7) = 0.\r\n      S( 8) = 0.\r\n      S( 9) = 1.\r\n      S(10) = 1.\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.\r\n      S(14) = 1.\r\n      S(15) = 0.\r\n      S(16) = 0.\r\n      S(17) = 0.\r\n      S(18) = 1.\r\nC\r\nC     CAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11)\r\nC\r\nC                -1 T           -1\r\nC     ( M ) = ( H  )  ( M  ) ( H  )\r\nC                        RR\r\nC\r\nC              PARTITION (M)\r\nC                                           ///       ///\r\nC                                           /     *     /\r\nC                                           / MBB * MBC /\r\nC                                           /     *     /\r\nC                                ( M )  =   / ********* /\r\nC                                           /     *     /\r\nC                                           / MCB * MCC /\r\nC                                           /     *     /\r\nC                                           ///       ///\r\nC                                                       4 (3X3) MATRICES\r\nC                        -1\r\nC     ( M  ) = ( M  ) ( H  )\r\nC        AI       AR\r\nC\r\nC              PARTITION (M  )              ///                 ///\r\nC                          AI               /          *          /\r\nC                               ( M  )  =   / M-BAR-AB * M-BAR-AC /\r\nC                                  AI       /          *          /\r\nC                                           ///                 ///\r\nC                                                       2 (3X3) MATRICES\r\nC                               T            T\r\nC     ( MAB )  = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB)\r\nC                               B            C\r\nC\r\nC                               T            T\r\nC     ( MAC )  = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC)\r\nC                               B            C\r\nC\r\nC                               T     T      T      T\r\nC     ( MAA )  = (M-BAR-AA) - (S ) (M  ) - (S ) (MAC )\r\nC                               B    AB      C\r\nC\r\nC                           - (M-BAR-AB) (S ) - (M-BAR-AC) (S )\r\nC                                          B                 C\r\nC\r\nC                    T\r\nC     ( MBA )  = (MAB )\r\nC\r\nC                    T\r\nC     ( MCA )  = (MAC )\r\nC\r\nC     CHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE\r\nC\r\nC     (3X3)    STORED IN      (3X3)     STORED IN     (3X3)    STORED IN\r\nC     (MAA)   A( 1... 9)      (MAB)   A(10)...8)      (MAC)   A(19...27)\r\nC     (MBA)   A(28...36)      (MBB)   A(37)...45)     (MBC)   A(46...54)\r\nC     (MCA)   A(55...63)      (MCB)   A(64...72)      (MCC)   A(73...81)\r\nC\r\nC       -1\r\nC     (H  ) IS STORED AT A(100...135)\r\nC     (S)   EQUIVALENCED A( 81... 99)\r\nC     WORKING STORAGE IS A(181...216)\r\nC     (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171)\r\nC     (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180)\r\nC\r\nC                     -1 T          -1\r\nC     COMPUTE (M) = (H  )  ((M  ) (H  ))\r\nC                       RR\r\nC\r\n      CALL GMMATD (MRR(1), 6,6,0, A(100), 6,6,0, A(37))\r\n      CALL GMMATD (A(100), 6,6,1, A(37),  6,6,0, A(1))\r\nC\r\nC     CREATE PARTITION OF 4 (3X3)\r\nC\r\n      DO 470 I = 1,3\r\n      A(I+36) = A(I   )\r\n      A(I+39) = A(I+ 6)\r\n      A(I+42) = A(I+12)\r\nC\r\n      A(I+45) = A(I+ 3)\r\n      A(I+48) = A(I+ 9)\r\n      A(I+51) = A(I+15)\r\nC\r\n      A(I+63) = A(I+18)\r\n      A(I+66) = A(I+24)\r\n      A(I+69) = A(I+30)\r\nC\r\n      A(I+72) = A(I+21)\r\n      A(I+75) = A(I+27)\r\n  470 A(I+78) = A(I+33)\r\nC\r\nC     COMPUTE             -1\r\nC         (M  ) = (M  ) (H  )  AND  PARTITION INTO 2 (3X3)  (M-BAR-AB)\r\nC           AI      AR                                  AND (M-BAR-AC)\r\nC\r\n      CALL GMMATD (MAR(1), 3,6,0, A(100), 6,6,0, A(181))\r\n      DO 480 I = 1,3\r\n      A(I+162) = A(I+180)\r\n      A(I+165) = A(I+186)\r\n      A(I+168) = A(I+192)\r\nC\r\n      A(I+171) = A(I+183)\r\n      A(I+174) = A(I+189)\r\n  480 A(I+177) = A(I+195)\r\nC\r\nC     COMPUTE (MAB)\r\nC\r\n      CALL GMMATD (S(1), 3,3,1, A(37), 3,3,0,  A(181))\r\n      CALL GMMATD (S(10), 3,3,1, A(64), 3,3,0, A(190))\r\n      DO 490 I = 1,9\r\n  490 A(I+9) = A(I+162) - A(I+180) - A(I+189)\r\nC\r\nC     COMPUTE (MAC)\r\nC\r\n      CALL GMMATD (S(1) , 3,3,1, A(46), 3,3,0, A(181))\r\n      CALL GMMATD (S(10), 3,3,1, A(73), 3,3,0, A(190))\r\n      DO 500 I = 1,9\r\n  500 A(I+18) = A(I+171) - A(I+180) - A(I+189)\r\nC\r\nC     COMPUTE (MAA)\r\nC\r\n      CALL GMMATD (S(1) , 3,3,1, A(10), 3,3,1, A(181))\r\n      CALL GMMATD (S(10), 3,3,1, A(19), 3,3,1, A(190))\r\n      CALL GMMATD (A(163),3,3,0, S(1) , 3,3,0, A(199))\r\n      CALL GMMATD (A(172),3,3,0, S(10), 3,3,0, A(208))\r\n      DO 510 I = 1,9\r\n  510 A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207)\r\nC\r\nC     COMPUTE (MBA) AND (MCA)\r\nC\r\n      DO 520 I = 1,3\r\n      NPT = 3*I + 7\r\n      A(I+27) = A(NPT  )\r\n      A(I+30) = A(NPT+1)\r\n      A(I+33) = A(NPT+2)\r\nC\r\n      A(I+54) = A(NPT+ 9)\r\n      A(I+57) = A(NPT+10)\r\n  520 A(I+60) = A(NPT+11)\r\nC\r\n      DO 550 I = 1,136\r\n  550 AOUT(I) = A(I)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n  600 CALL MESAGE (30,33,ECPT(1))\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/etrbms.f",
    "content": "      SUBROUTINE ETRBMS\r\nC\r\nC     BASIC BENDING TRIANGLE ELEMENT ROUTINE\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE COUPLED MASS MATRIX FOR THE BASIC\r\nC     BENDING TRIANGLE.\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE   TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC\r\n      LOGICAL          NOGO\r\n      INTEGER          NECPT(26)\r\n      REAL             ECPT(1),MBARAA,MAR,MRR,J2X2\r\n      DIMENSION        D(9),G(9),G2X2(4),J2X2(4),S(18),HYQ(6),SIIJ(7,7),\r\n     1                 MBARAA(9),MAR(18),MRR(36)\r\n      COMMON /EMGPRM/  DUM(15),ISMB(3),IPREC,NOGO\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222,SPACE(2)\r\n      COMMON /EMGEST/  IELID,NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                 X3,Y3,Z3,DUMB(76)\r\n      COMMON /EMGTRX/  A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,\r\n     1                 BFACT,E(18),AOUT(324)\r\n      EQUIVALENCE      (IELID,ECPT(1),NECPT(1)),(J2X2(1),A(14)),\r\n     1                 (D(1),G(1),A(1),SIIJ(1,1)),(G2X2(1),A(10)),\r\n     2                 (HYQ(1),A(50)),(MBARAA(1),A(136)),\r\n     3                 (MAR(1),A(145)),(MRR(1),A(163)),(S(1),A(82))\r\nC\r\nC     SETTING UP G MATRIX\r\nC     BEFORE THIS SUBROUTINE CAN FUNCTION SEVERAL TERMS MUST BE DEFINED\r\nC     SEE ETRBKD.\r\nC\r\nC     POSSIBLE ERROR SOURCE FIX.  MAY REQUIRE LOADER CHANGE.\r\nC     IF (ISMB(1) .EQ. 0)  CALL ETRBKD (1)\r\nC\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\n      DO 350 I = 1,9\r\n  350 D(I) = G(I)*DBLE(EYE)\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(100). . .A(135)\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\nC\r\n      DO 380 I = 100,135\r\n  380 A(I) = 0.\r\nC\r\n      A(100) = XBSQ\r\n      A(103) = XBSQ*XSUBB\r\n      A(107) = XSUBB\r\n      A(112) =-2.*XSUBB\r\n      A(115) =-3.*XBSQ\r\n      A(118) = XCSQ\r\n      A(119) = XCYC\r\n      A(120) = YCSQ\r\n      A(121) = XCSQ*XSUBC\r\n      A(122) = YCSQ*XSUBC\r\n      A(123) = YCSQ*YSUBC\r\n      A(125) = XSUBC\r\n      A(126) = YSUBC*2.0\r\n      A(128) = XCYC *2.0\r\n      A(129) = YCSQ *3.0\r\n      A(130) =-2.0*XSUBC\r\n      A(131) =-YSUBC\r\n      A(133) =-3.0*XCSQ\r\n      A(134) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 410\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 410\r\nC\r\n      G2X2(1) = DBLE(G2X211)*DBLE(T2)\r\n      G2X2(2) = DBLE(G2X212)*DBLE(T2)\r\n      G2X2(4) = DBLE(G2X222)*DBLE(T2)\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) = J2X2(2)\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP   =  2.*D(2) + 4.*D(9)\r\n      HYQ(1) = -6.*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      HYQ(2) = -J2X2(1)*TEMP -  6.*J2X2(2)*D(6)\r\n      HYQ(3) = -6.*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      HYQ(4) = -6.*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      HYQ(5) = -J2X2(2)*TEMP  - 6.*J2X2(4)*D(6)\r\n      HYQ(6) = -6.*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66\r\nC\r\n      DO 400 I = 1,3\r\n      A(I+102) = A(I+102) + XSUBB*HYQ(I)\r\n  400 A(I+120) = A(I+120) + XSUBC*HYQ(I) + YSUBC*HYQ(I+3)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  410 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(100). . .A(135)\r\nC     STORE INVERSE BACK IN A(100). . A(135)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,A(100),6, A(136),0,DETERM,ISING,A(142))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 600\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\nC     CHUNK OUT INTEGRAL VALUES I   USED IN REFERENCED M MATRICES\r\nC                                IJ                    SEE P.9, FMMS-66\r\nC\r\nC     THE CALCULATION FOR  (I  ) ARE AS FOLLOWS\r\nC                            IJ\r\nC                                                           ***\r\nC         A1  = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2))           *\r\nC           0J                                                 *\r\nC                                                              *\r\nC         B   = XSUBC * YSUBC**(J+1) / (J+2)                   *\r\nC           0J                                                 ** J=0,6\r\nC                                                              *\r\nC         A   = A1   + B                                       *\r\nC           0J    0J    0J                                     *\r\nC                                                              *\r\nC         I   = MU * A1                                        *\r\nC           0J         0J                                   ***\r\nC\r\nC                                                           ***\r\nC         A1  = I * XSUBB * A      /(I+J+2)                    *\r\nC           IJ               I-1,J                             *\r\nC                                                              *\r\nC         B   = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2))   *  I=1,6\r\nC           IJ                                                 ** J=0,6\r\nC                                                              *\r\nC         A   = A1   + B                                       *\r\nC           IJ    IJ    IJ                                     *\r\nC                                                              *\r\nC         I     MU * A1                                        *\r\nC           IJ=        IJ                                      *\r\nC                                                           ***\r\nC      NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0\r\nC                                      I.E.  I = 1,7\r\nC                                            J = 1,7\r\nC\r\n      DO 440 J = 1,7\r\n      YPRODJ = YSUBC**J\r\n      FJ  = J\r\n      FJ2 = J + 1\r\n      AIJ = XSUBB*YPRODJ/(FJ*FJ2)\r\n      BIJ = XSUBC*YPRODJ/FJ2\r\n      SIIJ(1,J) = FMU*AIJ\r\n      AIJ = AIJ + BIJ\r\n      IF (J .EQ. 7) GO TO 440\r\n      K   = 8 - J\r\n      DO 430 I = 2,K\r\n      XPRODI = XSUBC**I\r\n      FI  = I\r\n      FIJ = I + J\r\n      AIJ = (FI-1.)*XSUBB*AIJ/FIJ\r\n      BIJ = XPRODI*YPRODJ/(FI*FIJ)\r\n      SIIJ(I,J) = FMU*AIJ\r\n  430 AIJ = AIJ + BIJ\r\nC\r\n  440 CONTINUE\r\n      SIZERO = SIIJ(1,1)/3.\r\nC\r\nC     CHUNK IN NUMBERS FOR (M-BAR-AA) 3X3 MATRIX AS PER MS-48, PP. 6-10\r\nC\r\nC                    (M  )         3X6 MATRIX\r\nC                      AR\r\nC\r\nC                    (M  )         6X6 MATRIX\r\nC                      RR\r\nC\r\nC     (M-BAR-AA) MATRIX\r\nC\r\n      MBARAA(1) =  SIIJ(1,1)\r\n      MBARAA(2) =  SIIJ(1,2)\r\n      MBARAA(3) = -SIIJ(2,1)\r\n      MBARAA(4) =  SIIJ(1,2)\r\n      MBARAA(5) =  SIIJ(1,3)\r\n      MBARAA(6) = -SIIJ(2,2)\r\n      MBARAA(7) = -SIIJ(2,1)\r\n      MBARAA(8) = -SIIJ(2,2)\r\n      MBARAA(9) =  SIIJ(3,1)\r\nC\r\nC     (M  ) MATRIX\r\nC       AR\r\nC\r\n      MAR( 1) = SIIJ(3,1)\r\n      MAR( 2) = SIIJ(2,2)\r\n      MAR( 3) = SIIJ(1,3)\r\n      MAR( 4) = SIIJ(4,1)\r\n      MAR( 5) = SIIJ(2,3)\r\n      MAR( 6) = SIIJ(1,4)\r\n      MAR( 7) = SIIJ(3,2)\r\n      MAR( 8) = SIIJ(2,3)\r\n      MAR( 9) = SIIJ(1,4)\r\n      MAR(10) = SIIJ(4,2)\r\n      MAR(11) = SIIJ(2,4)\r\n      MAR(12) = SIIJ(1,5)\r\n      MAR(13) =-SIIJ(4,1)\r\n      MAR(14) =-SIIJ(3,2)\r\n      MAR(15) =-SIIJ(2,3)\r\n      MAR(16) =-SIIJ(5,1)\r\n      MAR(17) =-SIIJ(3,3)\r\n      MAR(18) =-SIIJ(2,4)\r\nC\r\nC     (M  ) MATRIX  A 6X6 SYMMETRIC MATRIX\r\nC       RR\r\nC\r\n      MRR( 1) = SIIJ(5,1)\r\n      MRR( 2) = SIIJ(4,2)\r\n      MRR( 3) = SIIJ(3,3)\r\n      MRR( 4) = SIIJ(6,1)\r\n      MRR( 5) = SIIJ(4,3)\r\n      MRR( 6) = SIIJ(3,4)\r\n      MRR( 7) = MRR(2)\r\n      MRR( 8) = SIIJ(3,3)\r\n      MRR( 9) = SIIJ(2,4)\r\n      MRR(10) = SIIJ(5,2)\r\n      MRR(11) = SIIJ(3,4)\r\n      MRR(12) = SIIJ(2,5)\r\n      MRR(13) = MRR(3)\r\n      MRR(14) = MRR(9)\r\n      MRR(15) = SIIJ(1,5)\r\n      MRR(16) = SIIJ(4,3)\r\n      MRR(17) = SIIJ(2,5)\r\n      MRR(18) = SIIJ(1,6)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = SIIJ(7,1)\r\n      MRR(23) = SIIJ(5,3)\r\n      MRR(24) = SIIJ(4,4)\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = SIIJ(3,5)\r\n      MRR(30) = SIIJ(2,6)\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = SIIJ(1,7)\r\nC\r\n      IF (T2 .EQ. 0.) GO TO 445\r\nC\r\n      MAR( 4) = MAR( 4) + HYQ(1)*SIIJ(2,1) + HYQ(4)*SIIJ(1,2)\r\n      MAR( 5) = MAR( 5) + HYQ(2)*SIIJ(2,1) + HYQ(5)*SIIJ(1,2)\r\n      MAR( 6) = MAR( 6) + HYQ(3)*SIIJ(2,1) + HYQ(6)*SIIJ(1,2)\r\n      MAR(10) = MAR(10) + HYQ(1)*SIIJ(2,2) + HYQ(4)*SIIJ(1,3)\r\n      MAR(11) = MAR(11) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3)\r\n      MAR(12) = MAR(12) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3)\r\n      MAR(16) = MAR(16) - HYQ(1)*SIIJ(3,1) - HYQ(4)*SIIJ(2,2)\r\n      MAR(17) = MAR(17) - HYQ(2)*SIIJ(3,1) - HYQ(5)*SIIJ(2,2)\r\n      MAR(18) = MAR(18) - HYQ(3)*SIIJ(3,1) - HYQ(6)*SIIJ(2,2)\r\n      MRR( 4) = MRR( 4) + HYQ(1)*SIIJ(4,1) + HYQ(4)*SIIJ(3,2)\r\n      MRR( 5) = MRR( 5) + HYQ(2)*SIIJ(4,1) + HYQ(5)*SIIJ(3,2)\r\n      MRR( 6) = MRR( 6) + HYQ(3)*SIIJ(4,1) + HYQ(6)*SIIJ(3,2)\r\n      MRR(10) = MRR(10) + HYQ(1)*SIIJ(3,2) + HYQ(4)*SIIJ(2,3)\r\n      MRR(11) = MRR(11) + HYQ(2)*SIIJ(3,2) + HYQ(5)*SIIJ(2,3)\r\n      MRR(12) = MRR(12) + HYQ(3)*SIIJ(3,2) + HYQ(6)*SIIJ(2,3)\r\n      MRR(16) = MRR(16) + HYQ(1)*SIIJ(2,3) + HYQ(4)*SIIJ(1,4)\r\n      MRR(17) = MRR(17) + HYQ(2)*SIIJ(2,3) + HYQ(5)*SIIJ(1,4)\r\n      MRR(18) = MRR(18) + HYQ(3)*SIIJ(2,3) + HYQ(6)*SIIJ(1,4)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = MRR(22) + HYQ(1)*(HYQ(1)*SIIJ(3,1) + 2.0*(SIIJ(5,1) +\r\n     1          HYQ(4)*SIIJ(2,2))) + HYQ(4)*(2.0*SIIJ(4,2) +\r\n     2          HYQ(4)*SIIJ(1,3))\r\n      MRR(23) = MRR(23) + HYQ(2)*SIIJ(5,1) + HYQ(5)*SIIJ(4,2) +\r\n     1          HYQ(1)*(SIIJ(3,3) + HYQ(2)*SIIJ(3,1) + HYQ(5)*SIIJ(2,2))\r\n     2        + HYQ(4)*(SIIJ(2,4) + HYQ(2)*SIIJ(2,2) + HYQ(5)*SIIJ(1,3))\r\n      MRR(24) = MRR(24) + HYQ(3)*SIIJ(5,1) + HYQ(6)*SIIJ(4,2) +\r\n     1          HYQ(1)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2))\r\n     2        + HYQ(4)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3))\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = MRR(29) + HYQ(2)*(HYQ(2)*SIIJ(3,1) + 2.0*(SIIJ(3,3) +\r\n     1          HYQ(5)*SIIJ(2,2))) + HYQ(5)*(2.0*SIIJ(2,4) +\r\n     2          HYQ(5)*SIIJ(1,3))\r\n      MRR(30) = MRR(30) + HYQ(3)*SIIJ(3,3) + HYQ(6)*SIIJ(2,4) +\r\n     1          HYQ(2)*(SIIJ(2,4) + HYQ(3)*SIIJ(3,1) + HYQ(6)*SIIJ(2,2))\r\n     2        + HYQ(5)*(SIIJ(1,5) + HYQ(3)*SIIJ(2,2) + HYQ(6)*SIIJ(1,3))\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = MRR(36) + HYQ(3)*(HYQ(3)*SIIJ(3,1) + 2.0*(SIIJ(2,4) +\r\n     1          HYQ(6)*SIIJ(2,2))) + HYQ(6)*(2.0*SIIJ(1,5) +\r\n     2          HYQ(6)*SIIJ(1,3))\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3 )\r\nC\r\n  445 S( 1) = 1.\r\n      S( 2) = 0.\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.\r\n      S( 5) = 1.\r\n      S( 6) = 0.\r\n      S( 7) = 0.\r\n      S( 8) = 0.\r\n      S( 9) = 1.\r\n      S(10) = 1.\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.\r\n      S(14) = 1.\r\n      S(15) = 0.\r\n      S(16) = 0.\r\n      S(17) = 0.\r\n      S(18) = 1.\r\nC\r\nC     CAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11)\r\nC\r\nC                -1 T           -1\r\nC     ( M ) = ( H  )  ( M  ) ( H  )\r\nC                        RR\r\nC\r\nC              PARTITION (M)\r\nC                                           ///       ///\r\nC                                           /     *     /\r\nC                                           / MBB * MBC /\r\nC                                           /     *     /\r\nC                                ( M )  =   / ********* /\r\nC                                           /     *     /\r\nC                                           / MCB * MCC /\r\nC                                           /     *     /\r\nC                                           ///       ///\r\nC                                                       4 (3X3) MATRICES\r\nC                        -1\r\nC     ( M  ) = ( M  ) ( H  )\r\nC        AI       AR\r\nC\r\nC              PARTITION (M  )              ///                 ///\r\nC                          AI               /          *          /\r\nC                               ( M  )  =   / M-BAR-AB * M-BAR-AC /\r\nC                                  AI       /          *          /\r\nC                                           ///                 ///\r\nC                                                       2 (3X3) MATRICES\r\nC                               T            T\r\nC     ( MAB )  = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB)\r\nC                               B            C\r\nC\r\nC                               T            T\r\nC     ( MAC )  = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC)\r\nC                               B            C\r\nC\r\nC                               T     T      T      T\r\nC     ( MAA )  = (M-BAR-AA) - (S ) (M  ) - (S ) (MAC )\r\nC                               B    AB      C\r\nC\r\nC                           - (M-BAR-AB) (S ) - (M-BAR-AC) (S )\r\nC                                          B                 C\r\nC\r\nC                    T\r\nC     ( MBA )  = (MAB )\r\nC\r\nC                    T\r\nC     ( MCA )  = (MAC )\r\nC\r\nC     CHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE\r\nC\r\nC     (3X3)    STORED IN      (3X3)     STORED IN     (3X3)    STORED IN\r\nC     (MAA)   A( 1... 9)      (MAB)   A(10)...8)      (MAC)   A(19...27)\r\nC     (MBA)   A(28...36)      (MBB)   A(37)...45)     (MBC)   A(46...54)\r\nC     (MCA)   A(55...63)      (MCB)   A(64...72)      (MCC)   A(73...81)\r\nC\r\nC       -1\r\nC     (H  ) IS STORED AT A(100...135)\r\nC     (S)   EQUIVALENCED A( 81... 99)\r\nC     WORKING STORAGE IS A(181...216)\r\nC     (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171)\r\nC     (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180)\r\nC\r\nC                     -1 T          -1\r\nC     COMPUTE (M) = (H  )  ((M  ) (H  ))\r\nC                       RR\r\nC\r\n      CALL GMMATS (MRR(1), 6,6,0, A(100), 6,6,0, A(37))\r\n      CALL GMMATS (A(100), 6,6,1, A(37),  6,6,0, A(1))\r\nC\r\nC     CREATE PARTITION OF 4 (3X3)\r\nC\r\n      DO 470 I = 1,3\r\n      A(I+36) = A(I   )\r\n      A(I+39) = A(I+ 6)\r\n      A(I+42) = A(I+12)\r\nC\r\n      A(I+45) = A(I+ 3)\r\n      A(I+48) = A(I+ 9)\r\n      A(I+51) = A(I+15)\r\nC\r\n      A(I+63) = A(I+18)\r\n      A(I+66) = A(I+24)\r\n      A(I+69) = A(I+30)\r\nC\r\n      A(I+72) = A(I+21)\r\n      A(I+75) = A(I+27)\r\n  470 A(I+78) = A(I+33)\r\nC\r\nC     COMPUTE             -1\r\nC         (M  ) = (M  ) (H  )  AND  PARTITION INTO 2 (3X3)  (M-BAR-AB)\r\nC           AI      AR                                  AND (M-BAR-AC)\r\nC\r\n      CALL GMMATS (MAR(1), 3,6,0, A(100), 6,6,0, A(181))\r\n      DO 480 I = 1,3\r\n      A(I+162) = A(I+180)\r\n      A(I+165) = A(I+186)\r\n      A(I+168) = A(I+192)\r\nC\r\n      A(I+171) = A(I+183)\r\n      A(I+174) = A(I+189)\r\n  480 A(I+177) = A(I+195)\r\nC\r\nC     COMPUTE (MAB)\r\nC\r\n      CALL GMMATS (S(1), 3,3,1, A(37), 3,3,0,  A(181))\r\n      CALL GMMATS (S(10), 3,3,1, A(64), 3,3,0, A(190))\r\n      DO 490 I = 1,9\r\n  490 A(I+9) = A(I+162) - A(I+180) - A(I+189)\r\nC\r\nC     COMPUTE (MAC)\r\nC\r\n      CALL GMMATS (S(1) , 3,3,1, A(46), 3,3,0, A(181))\r\n      CALL GMMATS (S(10), 3,3,1, A(73), 3,3,0, A(190))\r\n      DO 500 I = 1,9\r\n  500 A(I+18) = A(I+171) - A(I+180) - A(I+189)\r\nC\r\nC     COMPUTE (MAA)\r\nC\r\n      CALL GMMATS (S(1) , 3,3,1, A(10), 3,3,1, A(181))\r\n      CALL GMMATS (S(10), 3,3,1, A(19), 3,3,1, A(190))\r\n      CALL GMMATS (A(163),3,3,0, S(1) , 3,3,0, A(199))\r\n      CALL GMMATS (A(172),3,3,0, S(10), 3,3,0, A(208))\r\n      DO 510 I = 1,9\r\n  510 A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207)\r\nC\r\nC     COMPUTE (MBA) AND (MCA)\r\nC\r\n      DO 520 I = 1,3\r\n      NPT = 3*I + 7\r\n      A(I+27) = A(NPT  )\r\n      A(I+30) = A(NPT+1)\r\n      A(I+33) = A(NPT+2)\r\nC\r\n      A(I+54) = A(NPT+ 9)\r\n      A(I+57) = A(NPT+10)\r\n  520 A(I+60) = A(NPT+11)\r\nC\r\n      DO 550 I = 1,136\r\n  550 AOUT(I) = A(I)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n  600 CALL MESAGE (30,33,ECPT(1))\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/exi2.f",
    "content": "      SUBROUTINE EXI2\r\nC\r\nC     EXI2 PERFORMS EXTERNAL FORMAT SOFIN OPERATIONS\r\nC\r\n      EXTERNAL LSHIFT\r\n      LOGICAL  USRMSG\r\n      INTEGER  DRY      ,UNAME    ,UNIT     ,SYSBUF   ,A        ,\r\n     1         Z        ,SOF      ,PRC      ,Q4       ,T3       ,\r\n     2         SRD      ,SWRT     ,EOI      ,SP       ,BAR      ,\r\n     3         SCR1     ,SUBR(2)  ,BUF1     ,BUF2     ,BUF3     ,\r\n     4         BUF4     ,HDR(7)   ,RC       ,MCB(7)   ,PREC     ,\r\n     5         DIT      ,NAME(2)  ,EOG      ,PLTS     ,OFFSET\r\n      REAL     ZERO(6)\r\n      DOUBLE PRECISION   DZ(1)    ,DA\r\n      CHARACTER          UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON  /XMSSG /   UFM      ,UWM      ,UIM\r\n      COMMON  /MACHIN/   MACH\r\n      COMMON  /BLANK /   DRY      ,X1(3)    ,UNAME(2) ,X2(18)   ,\r\n     1                   UNIT     ,UNIVAC   ,LBUF     ,IADD\r\n      COMMON  /SYSTEM/   SYSBUF   ,NOUT     ,X3(6)    ,NLPP     ,\r\n     1                   X4(2)    ,LINE\r\n      COMMON  /ZBLPKX/   A(4)     ,IROW\r\n      COMMON  /NAMES /   RD       ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW\r\n      COMMON  /TYPE  /   PRC(2)   ,NWORD(4)\r\n      COMMON  /ZZZZZZ/   Z(1)\r\n      EQUIVALENCE       (Z(1),DZ(1))        ,(A(1),DA)\r\n      DATA     SOF      ,SRD      ,SWRT     ,EOI      ,SP       /\r\n     1         4HSOF    ,1        ,2        ,3        ,1        /\r\n      DATA     LEOF     ,JH       ,SCR1     ,SUBR               /\r\n     3         4H$EOF   ,1        ,301      ,4HEXI2   ,4H       /\r\n      DATA     DIT      ,MDI      ,EOG      ,ZERO               /\r\n     5         4HDIT    ,4HMDI    ,2        ,6*0.0              /\r\n      DATA     Q4       ,T3       ,BAR      ,PLTS               /\r\n     7         2HQ4     ,2HT3     ,2HBR     ,4HPLTS             /\r\nC\r\nC     INITIALIZE\r\nC\r\n      NCORE = KORSZ(Z)\r\n      I     = NCORE - LBUF\r\n      IF (MACH .EQ. 12) I = I - LBUF\r\n      NCORE = I - 1\r\n      IRW   = IADD\r\n      IADD  = I\r\n      CALL EXFORT (3,UNIT,0,0,IRW,0,0)\r\n      BUF1  = NCORE - SYSBUF + 1\r\n      BUF2  = BUF1  - SYSBUF - 1\r\n      BUF3  = BUF2  - SYSBUF\r\n      BUF4  = BUF3  - SYSBUF\r\n      NCORE = BUF4  - 1\r\n      NOS   = 0\r\n      IDM   = 1\r\n      USRMSG=.TRUE.\r\n      LCORE = NCORE\r\n      IF (NCORE .LE. 0) GO TO 9008\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      CALL PAGE\r\nC\r\nC     READ THE HEADER OF THE NEXT ITEM AND FETCH THE ITEM ON THE SOF\r\nC\r\n   10 CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0)\r\n   20 NAME(1) = HDR(1)\r\n      NAME(2) = HDR(2)\r\n      ITEM    = HDR(3)\r\n      ITEST   = HDR(7)\r\n      IF (ITEST .EQ. EOI) ITEST = EOG\r\n      IF (HDR(1).EQ.DIT .OR. HDR(1).EQ. MDI) GO TO 200\r\n      IF (HDR(3).EQ. -1 .OR. HDR(1).EQ.LEOF) GO TO 300\r\n      ITM = ITTYPE(HDR(3))\r\n      IF (ITM .EQ. 1) GO TO 100\r\n      RC = 3\r\n      CALL SFETCH (HDR(1),HDR(3),SWRT,RC)\r\n      IF (RC .EQ. 3) GO TO 60\r\n      LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      GO TO (30,30,60,40,50), RC\r\n   30 WRITE (NOUT,6346) UWM,HDR(1),HDR(2),HDR(3)\r\n      USRMSG = .FALSE.\r\n      GO TO 60\r\n   40 CALL EXLVL (NOS,Z(IDM),HDR,Z,LCORE)\r\n      RC = 3\r\n      CALL SFETCH (HDR(1),HDR(3),SWRT,RC)\r\n      IF (RC .EQ. 3) GO TO 60\r\n   50 CALL SMSG (RC-2,HDR(3),HDR)\r\n      USRMSG = .FALSE.\r\n   60 CONTINUE\r\nC\r\nC     TABLES\r\nC\r\nC\r\nC     ELSETS TABLE CORRECTION BY G.CHAN/UNISYS   4/91\r\nC\r\nC     IN 91 VERSION, ELEMENT PLOT SYMBOL LINE HAS 2 WORDS, SYMBOL AND\r\nC     NO. OF GRID POINT PER ELEMENT, NGPEL, WRITTEN OUT BY EXO2 USING\r\nC     FORMAT 25. THE ELSETS DATA LINE COMING UP NEXT USE FORMAT 10 FOR\r\nC     ELEMENTS WITH NO OFFSETS, FORMAT 26 FOR BAR WHICH HAS 6 OFFSET\r\nC     VALUES, AND FORMATS 27 AND 28 FOR TRIA3 AND QUAD4 WHICH HAS 1\r\nC     OFFSET VALUE EACH.\r\nC     IN 90 AND EARLIER VERSIONS, ONLY ONE ELEMENT PLOT SYMBOL WORD WAS\r\nC     WRITTEN OUT, AND ON ELSETS DATA LINE COMING UP NEXT, FORMAT 10\r\nC     WAS USED FOR ALL ELEMENTS. NO OFFSET DATA FOR THE BAR, QUAD4 AND\r\nC     TRIA3 ELEMENTS. NGPEL WAS THE FIRST WORD ON THE ELSETS DATA LINE.\r\nC     ALSO, THE 90 AND EARLIER VERSIONS DID NOT COUNT PROPERTY ID, PID,\r\nC     ON THE ELSETS DATA LINE. THUS THE TOTAL NO. OF WORDS MAY BE IN\r\nC     ERROR AND MAY CAUSE EXTRA ZEROS AT THE END OF THE DATA LINE.\r\nC\r\nC     THEREFORE, IF THE 90 OR EARLIER EXTERNAL SOF FILE WAS USED, WE\r\nC     NEED TO ADD THE OFFSETS (1 OR 6 FLOATING POINTS ZEROS) TO THE BAR,\r\nC     QUAD4 AND TRIA3 ELEMENTS FOR THE ELSETS TABLE.\r\nC     (AS OF 4/91, THESE CHANGES HAVE NOT BEEN TESTED)\r\nC\r\n      OFFSET = 0\r\n   70 NWDS = HDR(5)\r\n      IF (NWDS .GT. LCORE) GO TO 9008\r\n      CALL EXFORT (SRD,UNIT,HDR(4),Z,NWDS,SP,0)\r\n      IF (OFFSET .EQ. 0) GO TO 80\r\n      J = 1\r\n      CALL SUWRT (Z(1),1,J)\r\n      NP2 = Z(1) + 2\r\n      DO 73 K = 2,NWDS,NP2\r\n      IF (Z(K) .EQ. 0) GO TO 75\r\n      CALL SUWRT (Z(K),NP2,J)\r\n      CALL SUWRT (ZERO,OFFSET,J)\r\n   73 CONTINUE\r\n   75 Z(1) = 0\r\n      NWDS = 1\r\n   80 CALL SUWRT (Z,NWDS,ITEST)\r\n      IF (HDR(7) .EQ. EOI) GO TO 90\r\n      CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0)\r\n      IF (HDR(1).NE.NAME(1) .OR. HDR(2).NE.NAME(2)) GO TO 160\r\n      IF (HDR(3) .NE. ITEM) GO TO 160\r\n      ITEST = HDR(7)\r\n      IF (ITEST .EQ. EOI) ITEST = EOG\r\n      IF (ITEM.NE.PLTS .OR. HDR(5).NE.1 .OR. HDR(4).NE.10) GO TO 85\r\n      OFFSET = 0\r\n      IF (Z(1) .EQ. BAR) OFFSET = 6\r\n      IF (Z(1).EQ.Q4 .OR. Z(1).EQ.T3) OFFSET = 1\r\n   85 IF (HDR(4) .GT. 0) GO TO 70\r\n   90 ITEST = EOI\r\n      CALL SUWRT (0,0,ITEST)\r\n      GO TO 140\r\nC\r\nC     MATRICES\r\nC\r\nC\r\nC     READ TRAILER\r\nC\r\n  100 CALL SOFTRL (HDR(1),HDR(3),MCB(1))\r\n      RC = MCB(1)\r\n      IF (RC .EQ. 3) GO TO 108\r\n      LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      GO TO (102,102,108,104,106), RC\r\n  102 WRITE (NOUT,6346) UWM,HDR(1),HDR(2),HDR(3)\r\n      USRMSG = .FALSE.\r\n      GO TO 108\r\n  104 CALL EXLVL (NOS,Z(IDM),HDR,Z,LCORE)\r\n      GO TO 108\r\n  106 CALL SMSG (3,HDR(3),HDR)\r\n      USRMSG = .FALSE.\r\n  108 CALL EXFORT (SRD,UNIT,HDR(4),MCB(2),6,SP,0)\r\n      NCOL   = MCB(2)\r\n      PREC   = MCB(5)\r\n      MCB(1) = SCR1\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IF (USRMSG) CALL GOPEN (SCR1,Z(BUF4),WRTREW)\r\nC\r\nC     READ MATRIX ONE COLUMN AT A TIME AND PACK ON SCR2\r\nC\r\n      DO 130 J = 1,NCOL\r\n      CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0)\r\n      IF (HDR(1).NE.NAME(1) .OR. HDR(2).NE.NAME(2)) GO TO 160\r\n      IF (HDR(3) .NE. ITEM) GO TO 160\r\n      NWDS = HDR(5)\r\n      IF (NWDS*1.4 .GT. NCORE) GO TO 9008\r\n      CALL EXFORT (SRD,UNIT,HDR(4),Z,NWDS,PREC,DZ)\r\n      IF (.NOT. USRMSG) GO TO 130\r\n      CALL BLDPK (PREC,PREC,SCR1,0,0)\r\n      IPRC = PRC(PREC)\r\n      N    = NWORD(PREC) + IPRC\r\n      K    = 1\r\n  110 IF (Z(K) .LT. 0) GO TO 120\r\n      IROW = Z(K)\r\n      A(1) = Z(K+IPRC)\r\n      IF (PREC .EQ. 1) GO TO 115\r\n      A(2) = Z(K+IPRC+1)\r\n      IF (PREC .LE. 3) GO TO 115\r\n      A(3) = Z(K+4)\r\n      A(4) = Z(K+5)\r\n  115 CALL ZBLPKI\r\n      K = K + N\r\n      GO TO 110\r\n  120 CALL BLDPKN (SCR1,0,MCB)\r\n  130 CONTINUE\r\n      IF (.NOT.USRMSG) GO TO 150\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (SCR1,REW)\r\n      CALL MTRXO  (SCR1,HDR,HDR(3),0,RC)\r\nC\r\nC     WRITE USER MESSAGE\r\nC\r\n  140 IF (.NOT.USRMSG) GO TO 150\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,6357) UIM,HDR(1),HDR(2),HDR(3),UNAME,SOF\r\n  150 USRMSG = .TRUE.\r\n      GO TO 10\r\nC\r\nC     NO EOI FOR ITEM AND A NEW ITEM WAS READ\r\nC\r\n  160 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,6363) UWM,NAME(1),NAME(2),ITEM,UNAME\r\n      IF (ITM .EQ. 0) CALL DELETE (NAME,ITEM,RC)\r\n      IF (ITM .EQ. 1) CALL CLOSE (SCR1,REW)\r\n      USRMSG = .TRUE.\r\n      GO TO 20\r\nC\r\nC     READ DIT AND MDI\r\nC\r\n  200 NOS   = HDR(5)/2\r\n      LCORE = NCORE - HDR(5)*4\r\n      IDM   = LCORE + 1\r\n      IF (6*NOS .GT. LCORE) GO TO 9008\r\n      CALL EXFORT (SRD,UNIT,HDR(4),Z,HDR(5),SP,0)\r\n      DO 210 I = 1,NOS\r\n      Z(IDM+4*I-4) = Z(2*I-1)\r\n      Z(IDM+4*I-3) = Z(2*I  )\r\n  210 CONTINUE\r\n      CALL EXFORT (SRD,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SRD,UNIT,HDR(4),Z,HDR(5),SP,0)\r\n      DO 220 I = 1,NOS\r\n      J = IDM + 4*I - 2\r\n      K = 6*I - 6\r\n      Z(J  ) = LSHIFT(Z(K+1),20) + LSHIFT(Z(K+2),10) + Z(K+3)\r\n      Z(J+1) = LSHIFT(Z(K+4),20) + LSHIFT(Z(K+5),10) + Z(K+6)\r\n  220 CONTINUE\r\n      GO TO 10\r\nC\r\nC     NORMAL MODULE COMPLETION\r\nC\r\n  300 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ABNORMAL MODULE COMPLETION\r\nC\r\n 9008 CALL MESAGE (8,0,SUBR)\r\n      DRY = -2\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     MESSAGE TEXTS\r\nC\r\n 6346 FORMAT (A25,' 6346, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' NOT COPIED.  IT ALREADY EXISTS ON THE SOF.')\r\n 6357 FORMAT (A29,' 6357, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' SUCCESSFULLY COPIED FROM ',2A4,' TO ',A4)\r\n 6363 FORMAT (A25,' 6363, INCOMPLETE DATA FOR SUBSTRUCTURE ',2A4,\r\n     1       ' ITEM ',A4,' ON ',2A4,'. THE ITEM WILL NOT BE COPIED.')\r\n      END\r\n"
  },
  {
    "path": "mis/exio.f",
    "content": "      SUBROUTINE EXIO\r\nC\r\nC     THE MAIN PURPOSE OF THIS MODULE IS TO COPY DATA BETWEEN THE\r\nC     RESIDENT SOF AND AN EXTERNAL TAPE OR DISK FILE.  AS AN EXTRA\r\nC     ADDED ATTRACTION, IT WILL ALSO APPEND AN EXTERNAL SOF (CREATED BY\r\nC     SOME OTHER NASTRAN RUNS) TO THE RESIDENT SOF AND COMPRESS THE\r\nC     RESIDENT SOF.\r\nC\r\nC     OPTIONS ARE -\r\nC\r\nC     (1) DUMP (RESTORE) THE ENTIRE SOF TO (FROM) AN EXTERNAL FILE.\r\nC         INTERNAL FORM ONLY.  THIS IS THE MOST EFFICIENT MEANS TO SAVE\r\nC         OR RECOVER A BACKUP COPY OF THE SOF, EXCEPT FOR SYSTEM UTILITY\r\nC         PROGRAMS.\r\nC\r\nC     (2) COPY SELECTED ITEMS BETWEEN THE SOF AND AN EXTERNAL FILE.\r\nC\r\nC     (3) CHECK THE EXTERNAL FILE AND PRINT OUT A LIST OF ALL SUBSTRUC-\r\nC         TURES AND ITEMS ON IT ALONG WITH THE DATE AND TIME EACH WAS\r\nC         CREATED.\r\nC\r\nC     (4) APPEND AN EXTERNAL SOF TO THE RESIDENT SOF.\r\nC\r\nC     (5) COMPRESS THE RESIDENT SOF. (PLACE ALL ITEMS IN CONTIGUOUS\r\nC         BLOCKS ON THE SOF AND ELIMINATE ALL EMBEDDED FREE BLOCKS)\r\nC\r\nC     FEBRUARY 1974\r\nC\r\n      INTEGER         FORMAT,EXTE,BLANK,HEAD1,HEAD2,DRY,DEVICE,UNAME,\r\n     1                POS,BCDS(2,10),INBCDS(2,5)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / DRY,XMACH,DEVICE(2),UNAME(2),FORMAT(2),MODE(2),\r\n     1                POS(2),DATYPE(2),NAMES(10),PDATE,PTIME\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /OUTPUT/ HEAD1(96),HEAD2(96)\r\n      EQUIVALENCE     (INTE,BCDS(1,7)),(EXTE,BCDS(1,8)),\r\n     1                (DEVICE(1),INBCDS(1,1))\r\n      DATA    BLANK / 4H       /\r\n      DATA    BCDS  / 4HSOFI   ,4HN     ,\r\n     1                4HSOFO   ,4HUT    ,\r\n     2                4HREST   ,4HORE   ,\r\n     3                4HCHEC   ,4HK     ,\r\n     4                4HCOMP   ,4HRESS  ,\r\n     5                4HAPPE   ,4HND    ,\r\n     6                4HINTE   ,4HRNAL  ,\r\n     7                4HEXTE   ,4HRNAL  ,\r\n     8                4HREWI   ,4HND    ,\r\n     9                4HNORE   ,4HWIND  /\r\nC\r\n      DO 10 I = 1,96\r\n   10 HEAD2(I) = BLANK\r\n      DO 30 I = 1,5\r\n      DO 20 J = 1,10\r\n      IF (INBCDS(1,I) .NE. BCDS(1,J)) GO TO 20\r\n      INBCDS(2,I) = BCDS(2,J)\r\n      GO TO 30\r\n   20 CONTINUE\r\n   30 CONTINUE\r\nC\r\n      DO 40 I = 1,2\r\n      HEAD2(I   ) = MODE(I)\r\n      HEAD2(I+ 3) = FORMAT(I)\r\n      HEAD2(I+ 6) = DEVICE(I)\r\n      HEAD2(I+ 9) = UNAME(I)\r\n      HEAD2(I+12) = POS(I)\r\n   40 CONTINUE\r\nC\r\nC     INTERNAL FORMAT - GINO I/O IS USED FOR DATA WHICH WILL BE READ OR\r\nC                       WAS WRITTEN ON THE SAME HARDWARE.\r\nC\r\n      IF (FORMAT(1) .EQ. INTE) CALL EXIO1\r\nC\r\nC     EXTERNAL FORMAT - FORTRAN I/O IS USED FOR DATA WHICH WILL BE READ\r\nC                       OR WAS WRITTEN ON A DIFFERENT MACHINE.\r\nC\r\n      IF (FORMAT(1) .EQ. EXTE) CALL EXIO2\r\nC\r\nC     CHECK VALIDITY OF FORMAT TO ASCERTAIN WHETHER EITHER EXIO1 OR\r\nC     EXIO2 WAS CALLED.\r\nC\r\n      IF (FORMAT(1).EQ.INTE .OR. FORMAT(1).EQ.EXTE) RETURN\r\n      WRITE  (NOUT,50) UWM,FORMAT\r\n   50 FORMAT (A25,' 6333, ',2A4,' IS AN INVALID FORMAT PARAMETER FOR ',\r\n     1        'MODULE EXIO.')\r\n      DRY = -2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/exio1.f",
    "content": "      SUBROUTINE EXIO1\r\nC\r\nC     EXIO1 SERVICES INTERNAL FORMAT FUNCTIONS FOR EXIO.\r\nC\r\n      EXTERNAL LSHIFT   ,RSHIFT   ,ANDF     ,ORF\r\n      LOGICAL  FIRST    ,OPNSOF   ,DITUP    ,MDIUP    ,NXTUP     ,\r\n     1         NXTRST   ,TAPBIT\r\n      INTEGER  DRY      ,COR(1)   ,DEVICE   ,UNAME    ,POS       ,\r\n     1         DATYPE   ,PDATE    ,PTIME    ,TIME     ,SEC       ,\r\n     2         HOURS    ,SSNAME   ,SAVREC   ,HDREC    ,REWI2     ,\r\n     3         BUF      ,SYSBUF   ,DATE     ,RD       ,RDREW     ,\r\n     4         WRT      ,WRTREW   ,REW      ,EOFNRW   ,FILNAM    ,\r\n     5         FILSIZ   ,STATUS   ,PASSWD   ,BLKSIZ   ,DIRSIZ    ,\r\n     6         SUPSIZ   ,AVBLKS   ,DIT      ,DITPBN   ,DITLBN    ,\r\n     7         DITSIZ   ,DITNSB   ,DITBL    ,Z        ,TAPE      ,\r\n     8         DISK     ,SOFIN    ,SOFOUT   ,CHECK    ,APPEND    ,\r\n     9         COMPRS   ,REWI     ,EQF      ,ALL      ,TABLES    ,\r\n     O         PHASE3   ,DUMP     ,RESTOR   ,WHOLE(2) ,XITEMS(50),\r\n     1         SUBR(2)  ,BLANK    ,SOF      ,EOI      ,HDR       ,\r\n     2         Q        ,QQQQ     ,XXXX     ,SCR1     ,SRD       ,\r\n     3         SWRT     ,RSHIFT   ,ANDF     ,SOFSIZ   ,ORF       ,\r\n     4         BUF1     ,BUF2     ,BUF3     ,BUF4     ,UNIT      ,\r\n     5         RC       ,FLAG     ,OLDTSZ   ,BUF5     ,SCR2      ,\r\n     6         HEAD1    ,HEAD2    ,INBLK(15),OUTBLK(15)\r\n      CHARACTER          UFM*23   ,UWM*25   ,UIM*29   ,SFM*25    ,\r\n     1                   SWM*27   ,SIM*31\r\n      COMMON  /XMSSG /   UFM      ,UWM      ,UIM      ,SFM       ,\r\n     1                   SWM      ,SIM\r\n      COMMON  /MACHIN/   MACH     ,IHALF    ,JHALF\r\n      COMMON  /BLANK /   DRY      ,XMACH    ,DEVICE(2),UNAME(2)  ,\r\n     1                   FORMT(2) ,MODE(2)  ,POS(2)   ,DATYPE(2) ,\r\n     2                   NAMES(10),PDATE    ,PTIME    ,TIME(3)   ,\r\n     3                   SSNAME(2),SAVREC(9),HDREC(10),BUF(10)\r\n      COMMON  /SYSTEM/   SYSBUF   ,NOUT     ,X1(6)    ,NLPP      ,\r\n     1                   X2(2)    ,LINE     ,X3(2)    ,DATE(3)   ,\r\n     2                   X4(21)   ,NBPC     ,NBPW     ,NCPW\r\n      COMMON  /NAMES /   RD       ,RDREW    ,WRT      ,WRTREW    ,\r\n     1                   REW      ,NOREW    ,EOFNRW\r\n      COMMON  /SOFCOM/   NFILES   ,FILNAM(10)         ,FILSIZ(10),\r\n     1                   STATUS   ,PASSWD(2),FIRST    ,OPNSOF\r\n      COMMON  /SYS   /   BLKSIZ   ,DIRSIZ   ,SUPSIZ   ,AVBLKS    ,\r\n     1                   NOBLKS   ,IFRST\r\n      COMMON  /ITEMDT/   NITEM    ,ITEMS(7,1)\r\n      COMMON  /OUTPUT/   HEAD1(96),HEAD2(96)\r\n      COMMON  /SOF   /   DIT      ,DITPBN   ,DITLBN   ,DITSIZ    ,\r\n     1                   DITNSB   ,DITBL    ,IO       ,IOPBN     ,\r\n     2                   IOLBN    ,IOMODE   ,IOPTR    ,IOSIND    ,\r\n     3                   IOITCD   ,IOBLK    ,MDI      ,MDIPBN    ,\r\n     4                   MDILBN   ,MDIBL    ,NXT      ,NXTPBN    ,\r\n     5                   NXTLBN   ,NXTTSZ   ,NXTFSZ(10)          ,\r\n     6                   NXTCUR   ,DITUP    ,MDIUP    ,NXTUP     ,\r\n     7                   NXTRST\r\n      COMMON  /ZZZZZZ/   Z(1)\r\n      EQUIVALENCE        (COR(1)  ,Z(1))\r\n      EQUIVALENCE        (TIME(1) ,HOURS)   ,(TIME(2) ,MIN)      ,\r\n     1                   (TIME(3) ,SEC)\r\n      DATA     TAPE     ,DISK     ,SOFIN    ,SOFOUT   ,CHECK     /\r\n     1         4HTAPE   ,4HDISK   ,4HSOFI   ,4HSOFO   ,4HCHEC    /,\r\n     2         APPEND   ,COMPRS   ,NOREWI   ,REWI     ,EQF       /\r\n     3         4HAPPE   ,4HCOMP   ,4HNORE   ,4HREWI   ,4HEOF     /,\r\n     4         ALL      ,MATRIC   ,TABLES   ,PHASE3   ,DUMP      /\r\n     5         4HALL    ,4HMATR   ,4HTABL   ,4HPHAS   ,4HDUMP    /,\r\n     6         RESTOR   ,WHOLE              ,REWI2               /\r\n     8         4HREST   ,4HWHOL   ,4HESOF   ,4HND                /,\r\n     9         SUBR               ,BLANK    ,SOF      ,EOI       /\r\n     O         4HEXIO   ,4H1      ,4H       ,4HSOF    ,4HEOI     /,\r\n     1         ID       ,HDR      ,Q        ,QQQQ     ,XXXX      /\r\n     2         4H$ID$   ,4H$HD$   ,4HQ      ,4HQQQQ   ,4HXXXX    /\r\n      DATA     SCR1     ,SCR2     ,SRD      ,SWRT     ,IZ2       /\r\n     1         301      ,302      ,1        ,2        ,2         /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (NITEM .GT. 50) CALL ERRMKN (25,10)\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE- SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF - 1\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      LCORE = BUF5 - 1\r\n      NCORE = LCORE\r\n      NOS   = 0\r\n      IDM   = 1\r\n      IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBR)\r\n      IF (MODE(1) .NE. RESTOR) CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      UNIT  = UNAME(1)\r\nC\r\nC     CHECK TAPE BIT IF DEVICE=TAPE\r\nC\r\n      IF (DEVICE(1) .EQ. DISK .OR. MODE(1) .EQ. COMPRS .OR.\r\n     1    MODE(1) .EQ. APPEND) GO TO 10\r\n      IF (DEVICE(1) .NE. TAPE) GO TO 1810\r\n      IF (.NOT.  TAPBIT(UNIT)) GO TO 1800\r\nC\r\nC     SET REWIND VARIABLE\r\nC\r\nC     IF SOFOUT COMMAND POSITION TO END-OF-FILE IF REQUESTED\r\nC\r\nC     IF POSITION = REWIND AND WE ARE WRITING THEN BCKREC OVER LAST EOF\r\nC\r\nC     IF POSITION = EOF AND WE ARE WRITING THEN BCKREC FIRST TO INSURE\r\nC     WE ARE INFRONT OF AND EOF AND THEN SEARCH FOR EOF\r\nC\r\n   10 IPOS = -1\r\n      IF (POS(1).EQ.NOREWI .OR. POS(1).EQ.EQF) IPOS = 2\r\n      IF (POS(1) .EQ. REWI) IPOS = 0\r\n      IF (IPOS .LT. 0) GO TO 1830\r\n      IF (MODE(1).EQ.DUMP .OR. MODE(1).EQ.RESTOR) IPOS = 0\r\n      IF (IPOS .NE. 0) GO TO 20\r\n      HEAD2(13) = REWI\r\n      HEAD2(14) = REWI2\r\n   20 IF (MODE(1) .NE. SOFOUT) GO TO 60\r\n      IF (IPOS .EQ. 0) GO TO 60\r\n      CALL OPEN (*1860,UNIT,Z(BUF4),RD)\r\n      CALL BCKREC (UNIT)\r\n      IF (POS(1) .EQ. NOREWI) GO TO 50\r\n   30 CALL FWDREC (*40,UNIT)\r\n      GO TO 30\r\n   40 CALL BCKREC (UNIT)\r\n   50 CALL CLOSE (UNIT,NOREW)\r\nC\r\nC     BRANCH ON MODE OF OPERATION\r\nC\r\n   60 IF (MODE(1).EQ.SOFOUT .OR. MODE(1).EQ.  DUMP) GO TO 70\r\n      IF (MODE(1).EQ.SOFIN  .OR. MODE(1).EQ.RESTOR) GO TO 370\r\n      IF (MODE(1) .EQ. CHECK ) GO TO 1160\r\n      IF (MODE(1) .EQ. APPEND) GO TO 1220\r\n      IF (MODE(1) .EQ. COMPRS) GO TO 1500\r\n      GO TO 1820\r\nC\r\nC\r\nC     **********************   W R I T E   **********************\r\nC\r\nC     OPEN FILE AND WRITE 9 WORD ID RECORD\r\nC\r\n   70 CALL OPEN (*1860,UNIT,Z(BUF4),WRTREW+IPOS)\r\n      CALL WALTIM (SEC)\r\n      HOURS= SEC/3600\r\n      SEC  = MOD(SEC,3600)\r\n      MIN  = SEC/60\r\n      SEC  = MOD(SEC,60)\r\n      HDREC(1) = ID\r\n      HDREC(2) = PASSWD(1)\r\n      HDREC(3) = PASSWD(2)\r\n      DO 80 I = 1,3\r\n      HDREC(I+3) = DATE(I)\r\n      HDREC(I+6) = TIME(I)\r\n   80 CONTINUE\r\n      CALL WRITE (UNIT,HDREC,9,1)\r\n      CALL PAGE\r\n      WRITE (NOUT,2120) UIM,PASSWD,DATE,TIME\r\n      LINE = LINE + 1\r\nC\r\nC     WRITE DIT AND MDI CONTROL WORDS\r\nC\r\n      N = DITSIZ/2\r\n      CALL WRITE (UNIT,N,1,0)\r\n      DO 90 I = 1,N\r\n      CALL FDIT(I,J)\r\n      CALL WRITE (UNIT,COR(J),2,0)\r\n      CALL FMDI  (I,J)\r\n      CALL WRITE (UNIT,COR(J+1),2,0)\r\n   90 CONTINUE\r\n      CALL WRITE (UNIT,0,0,1)\r\n      CALL WRITE (UNIT,EOI,1,1)\r\n      IF (MODE(1) .NE. DUMP) GO TO 110\r\nC\r\nC\r\nC     DUMP FORM --\r\nC\r\nC     COPY OUT ALL SOF SUPERBLOCKS WHICH HAVE BEEN USED WITHOUT REGARD\r\nC     TO THE DATA SEQUENCE OR CONTENT.\r\nC\r\nC\r\n      DO 100 I = 1,NOBLKS\r\n      CALL SOFIO (SRD,I,Z(BUF1))\r\n      CALL WRITE (UNIT,Z(BUF1+3),BLKSIZ,0)\r\n  100 CONTINUE\r\n      CALL WRITE (UNIT,0,0,1)\r\n      CALL CLOSE (UNIT,REW)\r\n      WRITE (NOUT,2130) UIM,NOBLKS,NXTTSZ,UNAME\r\n      GO TO 1740\r\nC\r\nC     STANDARD FORM --\r\nC\r\nC     COPY OUT EACH SUBSTRUCTURE/ITEM WITH ITS DATA IN THE CORRECT\r\nC     SEQUENCE.\r\nC\r\nC     SETUP THE ARRAY XITEMS OF NAMES OF ITEMS TO BE COPIED.\r\nC\r\n  110 IF (DATYPE(1) .NE. ALL) GO TO 130\r\n      NITEMS = NITEM\r\n      DO 120 I = 1,NITEM\r\n  120 XITEMS(I) = ITEMS(1,I)\r\n      GO TO 200\r\n  130 IF (DATYPE(1) .NE. TABLES) GO TO 150\r\n      NITEMS = 0\r\n      DO 140 I = 1,NITEM\r\n      IF (ITEMS(2,I) .GT. 0) GO TO 140\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  140 CONTINUE\r\n      GO TO 200\r\n  150 IF (DATYPE(1) .NE. MATRIC) GO TO 170\r\n      NITEMS = 0\r\n      DO 160 I = 1,NITEM\r\n      IF (ITEMS(2,I) .LE. 0) GO TO 160\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  160 CONTINUE\r\n      GO TO 200\r\n  170 IF (DATYPE(1) .NE. PHASE3) GO TO 190\r\n      NITEMS = 0\r\n      DO 180 I = 1,NITEM\r\n      IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 180\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  180 CONTINUE\r\n      GO TO 200\r\n  190 NITEMS = 2\r\n      XITEMS(1) = DATYPE(1)\r\n      XITEMS(2) = DATYPE(2)\r\n      IF (XITEMS(2) .EQ. BLANK) NITEMS = 1\r\nC\r\nC     LOOP OVER SUBSTRUCTURE NAMES.  FOR EACH SUBSTRUCTURE, WRITE OUT\r\nC     THE NITEMS IN XITEMS.\r\nC\r\n  200 ISS = 0\r\n  210 ISS = ISS + 1\r\n      IF (NAMES(1).NE.WHOLE(1) .OR. NAMES(2).NE.WHOLE(2)) GO TO 220\r\nC\r\nC     WRITE ALL SUBSTRUCTURES IN THE RESIDENT SOF.\r\nC\r\n      IF (ISS .GT. DITSIZ/2) GO TO 360\r\n      CALL FDIT (ISS,I)\r\n      IF (COR(I) .EQ. BLANK) GO TO 210\r\n      SSNAME(1) = COR(I  )\r\n      SSNAME(2) = COR(I+1)\r\n      GO TO 230\r\nC\r\nC     WRITE ONLY THOSE SUBSTRUCTURES IN THE PARAMETER LIST\r\nC\r\n  220 IF (ISS .GT. 5) GO TO 360\r\n      IF (NAMES(2*ISS-1) .EQ. XXXX) GO TO 210\r\n      SSNAME(1) = NAMES(2*ISS-1)\r\n      SSNAME(2) = NAMES(2*ISS  )\r\nC\r\nC     LOOP OVER ALL ITEMS OF THIS SUBSTRUCTURE.\r\nC\r\n  230 DO 350 ITEM = 1,NITEMS\r\n      KDH = ITTYPE(XITEMS(ITEM))\r\n      IF (KDH .EQ. 1) GO TO 260\r\n      CALL SFETCH (SSNAME,XITEMS(ITEM),SRD,RC)\r\n      GO TO (260,240,350,250,250), RC\r\n  240 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2160) UWM,SSNAME,XITEMS(ITEM)\r\n      GO TO 350\r\n  250 LINE = LINE+2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      CALL SMSG (RC-2,XITEMS(ITEM),SSNAME)\r\n      GO TO 350\r\nC\r\nC     WRITE SUBSTRUCTURE/ITEM HEADER RECORD\r\nC\r\n  260 CALL WALTIM (SEC)\r\n      HOURS = SEC/3600\r\n      SEC   = MOD(SEC,3600)\r\n      MIN   = SEC/60\r\n      SEC   = MOD(SEC,60)\r\n      HDREC(1) = HDR\r\n      HDREC(2) = SSNAME(1)\r\n      HDREC(3) = SSNAME(2)\r\n      HDREC(4) = XITEMS(ITEM)\r\n      DO 270 I = 1,3\r\n      HDREC(I+4) = DATE(I)\r\n      HDREC(I+7) = TIME(I)\r\n  270 CONTINUE\r\n      IF (KDH .EQ. 1) GO TO 310\r\n      CALL WRITE (UNIT,HDREC,10,1)\r\nC\r\nC     COPY DATA\r\nC\r\n  280 CALL SUREAD (Z(1),LCORE,NWDS,RC)\r\n      GO TO (290,300,340), RC\r\n  290 CALL WRITE (UNIT,Z,LCORE,0)\r\n      GO TO 280\r\n  300 CALL WRITE (UNIT,Z,NWDS,1)\r\n      GO TO 280\r\nC\r\nC     COPY MATRIX DATA ITEMS\r\nC\r\n  310 IFILE = SCR1\r\n      CALL MTRXI (SCR1,SSNAME,XITEMS(ITEM),0,RC)\r\n      GO TO (320,240,350,250,250,2010), RC\r\n  320 CALL WRITE (UNIT,HDREC,10,1)\r\n      Z(1) = SCR1\r\n      CALL RDTRL (Z(1))\r\n      CALL WRITE (UNIT,Z(IZ2),6,1)\r\n      CALL OPEN  (*2010,SCR1,Z(BUF5),RDREW)\r\n      CALL CPYFIL(SCR1,UNIT,Z,LCORE,ICOUNT)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     WRITE END-OF-ITEM RECORD AND USER MESSAGE\r\nC\r\n  340 CALL WRITE (UNIT,EOI,1,1)\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2170) UIM,SSNAME,XITEMS(ITEM),SOF,UNIT,DATE,TIME\r\n  350 CONTINUE\r\nC\r\nC     BOTTOM OF LOOP OVER SUBSTRUCTURES\r\nC\r\n      GO TO 210\r\nC\r\nC     ALL SUBSTRUCTURE/ITEMS HAVE NOW BEEN COPIED.  CLOSE WITH EOF AND\r\nC     NO REWIND (IN CASE MORE DATA TO FOLLOW).\r\nC\r\nC     WRITE EOF FOR NOU BECAUSE LEVEL 16 GINO OPT=3 DOESN T AS\r\nC     ADVERTISED\r\nC\r\n  360 CALL EOF (UNIT)\r\n      CALL CLOSE (UNIT,EOFNRW)\r\n      GO TO 1740\r\nC\r\nC     ***********************   R E A D  ************************\r\nC\r\nC     BRANCH FOR RESTORE OR STANDARD READ\r\nC\r\n  370 IF (MODE(1) .NE. RESTOR) GO TO 400\r\nC\r\nC     RESTORE FORM --\r\nC\r\nC     COPY EACH LOGICAL RECORD ON THE EXTERNAL FILE INTO CONSEQUTIVE,\r\nC     CONTIGUOUS BLOCKS ON THE RESIDENT SOF.\r\nC\r\nC     MAKE SURE THE RESIDENT SOF IS EMPTY.\r\nC\r\n      IF (STATUS .NE. 0) GO TO 1840\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      CALL SOFCLS\r\nC\r\nC     OPEN FILE AND READ THE ID RECORD\r\nC\r\n      CALL OPEN (*1860,UNIT,Z(BUF4),RDREW)\r\n      CALL READ (*1850,*1850,UNIT,HDREC,9,1,FLAG)\r\n      IF (HDREC(1) .NE. ID) GO TO 1850\r\n      CALL PAGE\r\n      LINE = LINE+1\r\n      WRITE (NOUT,2120) UIM,(HDREC(I),I=2,9)\r\n      CALL FWDREC (*1870,UNIT)\r\n      CALL FWDREC (*1870,UNIT)\r\nC\r\nC     BEGIN DATA TRANSFER\r\nC\r\n      I = 1\r\n  380 CALL READ (*1870,*390,UNIT,Z(BUF1+3),BLKSIZ,0,FLAG)\r\n      CALL SOFIO (SWRT,I,Z(BUF1))\r\n      I = I+1\r\n      GO TO 380\r\nC\r\nC     RESTORE COMPLETE.  CLOSE FILE AND GIVE USER THE NEWS.\r\nC\r\n  390 CALL CLOSE (UNIT,REW)\r\n      I = I - 1\r\n      WRITE (NOUT,2200) UIM,I\r\n      GO TO 1750\r\nC\r\nC     STANDARD FORM -\r\nC\r\nC     COPY IN EACH INDIVIDUAL SUBSTRUCTURE/ITEM.\r\nC\r\n  400 ISS = 0\r\nC\r\nC     SETUP ARRAY OF NAMES OF ITEMS TO BE COPIED.\r\nC\r\n      IF (DATYPE(1) .NE. ALL) GO TO 420\r\n      NITEMS = NITEM\r\n      DO 410 I = 1,NITEM\r\n  410 XITEMS(I) = ITEMS(1,I)\r\n      GO TO 490\r\n  420 IF (DATYPE(1) .NE. TABLES) GO TO 440\r\n      NITEMS = 0\r\n      DO 430 I = 1,NITEM\r\n      IF (ITEMS(2,I) .GT. 0) GO TO 430\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  430 CONTINUE\r\n      GO TO 490\r\n  440 IF (DATYPE(1) .NE. MATRIC) GO TO 460\r\n      NITEMS = 0\r\n      DO 450 I = 1,NITEM\r\n      IF (ITEMS(2,I) .LE. 0) GO TO 450\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  450 CONTINUE\r\n      GO TO 490\r\n  460 IF (DATYPE(1) .NE. PHASE3) GO TO 480\r\n      NITEMS = 0\r\n      DO 470 I = 1,NITEM\r\n      IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 470\r\n      NITEMS = NITEMS + 1\r\n      XITEMS(NITEMS) = ITEMS(1,I)\r\n  470 CONTINUE\r\n      GO TO 490\r\n  480 NITEMS = 2\r\n      XITEMS(1) = DATYPE(1)\r\n      XITEMS(2) = DATYPE(2)\r\n      IF (XITEMS(2) .EQ. BLANK) NITEMS = 1\r\nC\r\nC     DETERMINE NUMBER OF SUBSTRUCTURE/ITEMS TO BE COPIED AND INITIALIZE\r\nC     COUNTER.\r\nC\r\n  490 JCOPY = 0\r\n      NCOPY = 0\r\n      IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 510\r\n      DO 500 I = 1,5\r\n      IF (NAMES(2*I-1) .NE. XXXX) NCOPY = NCOPY + 1\r\n  500 CONTINUE\r\n      NCOPY = NCOPY*NITEMS\r\n      IF (PDATE .NE. 0) NCOPY = 1\r\nC\r\nC     OPEN THE EXTERNAL FILE AND READ THE IDENTIFICATION OR HEADER\r\nC     RECORD.\r\nC     REMEMBER IT IN CASE THE USER HAS REQUESTED A SUBSTRUCTURE/ITEM\r\nC     WHICH IS NOT PRESENT ON THE FILE.\r\nC\r\n  510 CALL PAGE\r\n      CALL OPEN (*1860,UNIT,Z(BUF4),RDREW+IPOS)\r\n  520 CALL READ (*530,*540,UNIT,HDREC,10,1,LREC1)\r\n      LREC1 = 10\r\n      GO TO 540\r\n  530 CALL REWIND (UNIT)\r\n      GO TO 520\r\n  540 DO 550 I = 1,LREC1\r\n  550 BUF(I) = HDREC(I)\r\n      IF (HDREC(1) .NE.  ID) GO TO 560\r\n      GO TO 610\r\n  560 IF (HDREC(1) .NE. HDR) GO TO 1850\r\n      GO TO 610\r\nC\r\nC     SCAN THROUGH THE EXTERNAL TAPE.  FOR EACH SUBSTRUCTURE/ITEM\r\nC     ENCOUNTERED, CHECK TO SEE IF IT SHOULD BE READ.  THEN, EITHER\r\nC     READ OR SKIP IT.\r\nC\r\nC     FOR EACH SUBSTRUCTURE/ITEM WHICH IS READ, SAVE THE HEADER RECORD\r\nC     IN OPEN CORE.  WHEN DUPLICATES ARE FOUND, AND THE DATE AND TIME\r\nC     PARAMETERS HAVE NOT BEEN SET, ISSUE A WARNING AND USE THE MOST\r\nC     RECENT.\r\nC\r\nC     IF THE DATE AND TIME PARAMETERS ARE NON-ZERO, READ ONLY THE\r\nC     SUBSTRUCTURE/ITEM WHICH HAS MATCHING VALUES AND IGNORE THE\r\nC     SUBSTRUCTURE AND ITEM NAME PARAMETERS.\r\nC\r\nC     READ AN IDENTIFICATION OR HEADER RECORD\r\nC\r\n  570 CALL READ (*580,*590,UNIT,BUF,10,1,FLAG)\r\n      GO TO 590\r\n  580 IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 1150\r\n      CALL REWIND (UNIT)\r\n      GO TO 570\r\nC\r\nC     CHECK IT AGAINST THE FIRST RECORD READ.  IF IT MATCHES, THE ENTIRE\r\nC     TAPE HAS BEEN SCANNED, BUT NOT ALL ITEMS WERE FOUND.\r\nC\r\n  590 DO 600 I = 1,LREC1\r\n      IF (BUF(I) .NE. HDREC(I)) GO TO 610\r\n  600 CONTINUE\r\n      GO TO 1080\r\nC\r\nC     IF THAT WAS AN ID RECORD, ISSUE MESSAGE AND GO BACK TO READ THE\r\nC     IMMEDIATELY FOLLOWING HEADER RECORD.\r\nC\r\n  610 IF (BUF(1) .NE. ID) GO TO 620\r\nC\r\nC     READ OLD DIT AND MDI DATA\r\nC\r\n      CALL READ (*1870,*1880,UNIT,NOS,1,0,FLAG)\r\n      LCORE= NCORE - 4*NOS\r\n      IDM  = LCORE + 1\r\n      IF (LCORE .LE. 0) GO TO 1890\r\n      NOS4 = NOS*4\r\n      CALL READ (*1870,*1880,UNIT,Z(IDM),NOS4,1,FLAG)\r\n      CALL FWDREC (*1870,UNIT)\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2120) UIM,(BUF(I),I=2,9)\r\n      GO TO 570\r\nC\r\nC     READ OR SKIP THE SUBSTRUCTURE/ITEM DATA.\r\nC\r\n  620 IF (PDATE .NE. 0) GO TO 820\r\n      IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 680\r\n      DO 630 I = 1,5\r\n      IF (NAMES(2*I-1) .EQ. XXXX) GO TO 630\r\n      IF (BUF(2).EQ.NAMES(2*I-1) .AND. BUF(3).EQ.NAMES(2*I)) GO TO 640\r\n  630 CONTINUE\r\n      GO TO 660\r\n  640 DO 650 I = 1,NITEMS\r\n      IF (BUF(4) .EQ. XITEMS(I)) GO TO 680\r\n  650 CONTINUE\r\nC\r\nC     SKIP -\r\nC\r\n  660 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 670\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 660\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n  670 CALL READ (*1870,*660,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 660,570,660\r\nC\r\nC     READ -\r\nC\r\nC     CHECK HEADER RECORDS SAVED IN CORE FOR DUPLICATE\r\nC\r\n  680 IF (ISS .EQ. 0) GO TO 850\r\n      DO 700 I = 1,ISS\r\n      JSS = 10*(I-1)\r\n      DO 690 J = 1,3\r\n      IF (BUF(J+1) .NE. Z(JSS+J)) GO TO 700\r\n  690 CONTINUE\r\n      GO TO 710\r\n  700 CONTINUE\r\n      GO TO 850\r\nC\r\nC     DUPLICATE SUBSTRUCTURE/ITEM ENCOUNTER.  USE MOST RECENT.\r\nC\r\n  710 IF (Z(JSS+10) .NE. 0) GO TO 780\r\n      LINE = LINE+3\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\nC\r\nC     CHECK YEAR, MONTH, DAY, HOUR, MINUTE, SECOND\r\nC\r\n      IF (Z(JSS+6)-BUF( 7)) 800,720,770\r\n  720 IF (Z(JSS+4)-BUF( 5)) 800,730,770\r\n  730 IF (Z(JSS+5)-BUF( 6)) 800,740,770\r\n  740 IF (Z(JSS+7)-BUF( 8)) 800,750,770\r\n  750 IF (Z(JSS+8)-BUF( 9)) 800,760,770\r\n  760 IF (Z(JSS+9)-BUF(10)) 800,780,770\r\nC\r\nC     MOST RECENT VERSION IS THE ONE ALREADY READ.  THEREFORE, SKIP THE\r\nC     ONE ON TAPE.\r\nC\r\n  770 WRITE (NOUT,2210) UWM,BUF(2),BUF(3),BUF(4),UNAME,(BUF(I),I=5,10)\r\n  780 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 790\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 780\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n  790 CALL READ (*1870,*780,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 780,570,780\r\nC\r\nC     MOST RECENT VERSION IS ON TAPE.  REPLACE OLDER VERSION ALREADY\r\nC     READ.\r\nC\r\n  800 WRITE (NOUT,2210) UWM,BUF(2),BUF(3),BUF(4),UNAME,(Z(JSS+I),I=4,9)\r\n      DO 810 I = 1,9\r\n  810 Z(JSS+I) = BUF(I+1)\r\n      JCOPY = JCOPY - 1\r\n      CALL DELETE (BUF(2),BUF(4),RC)\r\n      GO TO 870\r\nC\r\nC     IF DATE AND TIME PARAMETERS WERE INVOKED, CHECK THEM.\r\nC\r\n  820 IF (MOD(PDATE,100)       .EQ.BUF( 7) .AND.\r\n     1    PDATE/10000          .EQ.BUF( 5) .AND.\r\n     2    MOD(PDATE,10000)/100 .EQ.BUF( 6) .AND.\r\n     3    PTIME/10000          .EQ.BUF( 8) .AND.\r\n     4    MOD(PTIME,10000)/100 .EQ.BUF( 9) .AND.\r\n     5    MOD(PTIME,100)       .EQ.BUF(10)) GO TO 870\r\nC\r\nC     DATE AND TIME DONT MATCH. SKIP THIS SUBSTRUCTURE/ITEM.\r\nC\r\n  830 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 840\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 830\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n  840 CALL READ (*1870,*830,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 830,570,830\r\nC\r\nC     NO DUPLICATE.  ADD THIS HEADER TO THOSE IN CORE.\r\nC\r\n  850 IF (10*(ISS+1) .GT. LCORE) GO TO 1890\r\n      DO 860 I = 1,9\r\n  860 Z(10*ISS+ I) = BUF(I+1)\r\n      Z(10*ISS+10) = 0\r\n      ISS = ISS+1\r\nC\r\nC     FETCH THE ITEM ON THE SOF.\r\nC\r\n  870 RC  = 3\r\n      KDH = ITTYPE(BUF(4))\r\n      IF (KDH .EQ. 1) GO TO 970\r\n      CALL SFETCH (BUF(2),BUF(4),SWRT,RC)\r\n      IF (RC .EQ. 3) GO TO 930\r\n      LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      GO TO (880,930,930,890,900), RC\r\nC\r\nC     ITEM ALREADY EXISTS.\r\nC\r\n  880 WRITE (NOUT,2220) UWM,BUF(2),BUF(3),BUF(4)\r\n      Z(10*ISS) = 1\r\n      GO TO 910\r\nC\r\nC     SUBSTRUCTURE DOES NOT EXIST.  ADD IT TO THE SOF HIERARCHY.\r\nC\r\n  890 CALL EXLVL (NOS,Z(IDM),BUF(2),Z(10*ISS+1),LCORE-10*ISS)\r\n      GO TO 870\r\nC\r\nC     INVALID ITEM NAME\r\nC\r\n  900 CALL SMSG (3,BUF(4),BUF(2))\r\nC\r\nC     BECAUSE OF ERRORS, NO COPY.  SKIP DATA.\r\nC\r\n  910 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 920\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 910\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n  920 CALL READ (*1870,*910,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 910,570,910\r\nC\r\nC     COPY THE DATA FROM THE GINO FILE TO THE SOF.\r\nC\r\n  930 I = 10*ISS + 1\r\n      J = LCORE - I + 1\r\n      IF (J .LT. 2) GO TO 1890\r\n  940 CALL READ (*1870,*950,UNIT,Z(I),J,0,FLAG)\r\n      RC = 1\r\n      CALL SUWRT (Z(I),J,RC)\r\n      GO TO 940\r\n  950 IF (Z(I) .EQ. EOI) GO TO 960\r\n      RC = 2\r\n      CALL SUWRT (Z(I),FLAG,RC)\r\n      GO TO 940\r\n  960 RC = 3\r\n      CALL SUWRT (0,0,RC)\r\n      GO TO 1070\r\nC\r\nC     COPY MATRIX DATA FROM THE GINO FILE TO THE SOF.\r\nC\r\n  970 IFILE = SCR2\r\n      I = 10*ISS + 1\r\n      J = LCORE - I + 1\r\n      IF (J .LT. 7) GO TO 1890\r\n      CALL READ (*2020,*2030,UNIT,Z(I+1),6,1,NW)\r\n      Z(I) = SCR2\r\n      CALL WRTTRL (Z(I))\r\n      INBLK(1)  = UNIT\r\n      OUTBLK(1) = SCR2\r\n      CALL OPEN (*2010,SCR2,Z(BUF5),WRTREW)\r\n  980 CALL RECTYP (UNIT,ITYPE)\r\n      IF (ITYPE .NE. 0) GO TO 1010\r\n  990 CALL READ (*2010,*1000,UNIT,Z(I),J,0,NW)\r\n      CALL WRITE (SCR2,Z(I),J,0)\r\n      GO TO 990\r\n 1000 IF (Z(I) .EQ. EOI) GO TO 1020\r\n      CALL WRITE (SCR2,Z(I),NW,1)\r\n      GO TO 980\r\n 1010 CALL CPYSTR (INBLK,OUTBLK,0,0)\r\n      GO TO 980\r\n 1020 CALL CLOSE (SCR2,1)\r\n 1030 CALL MTRXO (SCR2,BUF(2),BUF(4),0,RC)\r\n      GO TO (1040,1070,1070,1050,1060,2010), RC\r\nC\r\nC     ITEM ALREADY EXISTS\r\nC\r\n 1040 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2220) UWM,BUF(2),BUF(3),BUF(4)\r\n      Z(10*ISS) = 1\r\n      GO TO 570\r\nC\r\nC     SUBSTRUCTURE DOES NOT EXIST - ADD IT TO THE SOF HIERARCHY\r\nC\r\n 1050 CALL EXLVL (NOS,Z(IDM),BUF(2),Z(10*ISS+1),LCORE-10*ISS)\r\n      GO TO 1030\r\nC\r\nC     ILLEGAL ITEM NAME\r\nC\r\n 1060 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      CALL SMSG (3,BUF(4),BUF(2))\r\n      GO TO 570\r\nC\r\nC     ITEM COPIED - PRINT MESSAGE\r\nC\r\n 1070 LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2170) UIM,BUF(2),BUF(3),BUF(4),UNIT,SOF,\r\n     1                  (BUF(I),I=5,10)\r\nC\r\nC     INCREMENT NUMBER OF ITEMS COPIED.  IF NOT ALL ARE COPIED, LOOP\r\nC     BACK TO FIND NEXT SUBSTRUCTURE/ITEM ON THE EXTERNAL FILE TO BE\r\nC     COPIED.\r\nC\r\n      JCOPY = JCOPY + 1\r\n      IF (NCOPY-JCOPY) 570,1150,570\r\nC\r\nC     THE ENTIRE EXTERNAL FILE HAS NOW BEEN SCANNED, BUT NOT ALL ITEMS\r\nC     WERE FOUND.  WARN USER OF EACH ITEM NOT FOUND.\r\nC\r\nC     SKIP REMAINDER OF CURRENT ITEM SO FILE IS PROPERLY POSITIONED\r\nC     FOR NEXT EXECUTION OF MODULE.\r\nC\r\n 1080 DO 1120 I = 1,9,2\r\n      IF (NAMES(I) .EQ. XXXX) GO TO 1120\r\n      DO 1110 ITEM = 1,NITEMS\r\n      IF (ISS .EQ. 0) GO TO 1100\r\n      DO 1090 J = 1,ISS\r\n      JSS = 10*(J-1)\r\n      IF (NAMES(I).EQ.Z(JSS+1) .AND. NAMES(I+1).EQ.Z(JSS+2) .AND.\r\n     1    XITEMS(ITEM) .EQ. Z(JSS+3)) GO TO 1110\r\n 1090 CONTINUE\r\n 1100 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2230) UWM,NAMES(I),NAMES(I+1),XITEMS(ITEM),UNAME\r\n 1110 CONTINUE\r\n 1120 CONTINUE\r\n 1130 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 1140\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 1130\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n 1140 CALL READ (*1870,*1130,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 1130,1150,1130\r\nC\r\nC     READ OPERATION COMPLETE\r\nC\r\n 1150 CALL CLOSE (UNIT,NOREW)\r\n      GO TO 1740\r\nC\r\nC     *********************   C H E C K   ***************************\r\nC\r\nC     REWIND THE EXTERNAL FILE AND PRINT A LIST OF ALL SUBSTRUCTURE/\r\nC     ITEMS ON IT WITH THE DATE AND TIME WHEN THEY WERE WRITTEN THERE.\r\nC\r\n 1160 CALL OPEN (*1860,UNIT,Z(BUF4),RDREW)\r\n      CALL PAGE\r\n      WRITE (NOUT,2240) UIM,UNAME\r\n      LINE = LINE + 1\r\n      CALL READ (*1870,*1880,UNIT,BUF,9,1,FLAG)\r\n      GO TO 1180\r\n 1170 CALL READ (*1210,*1180,UNIT,BUF,10,1,FLAG)\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2250) (BUF(I),I=2,10)\r\n      GO TO 1190\r\n 1180 LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2120) UIM,(BUF(I),I=2,9)\r\n 1190 CALL RECTYP (UNIT,IREC)\r\n      IF (IREC .EQ. 0) GO TO 1200\r\nC\r\nC     STRING RECORD - SKIP IT\r\nC\r\n      CALL FWDREC (*1870,UNIT)\r\n      GO TO 1190\r\nC\r\nC     NORMAL GINO RECORD - CHECK IF EOI\r\nC\r\n 1200 CALL READ (*1870,*1190,UNIT,I,1,1,FLAG)\r\n      IF (I-EOI) 1190,1170,1190\r\n 1210 CALL BCKREC (UNIT)\r\n      CALL CLOSE (UNIT,NOREW)\r\n      GO TO 1740\r\nC\r\nC     ********************   A P P E N D   ***************************\r\nC\r\nC     ADD AN EXISTING SOF IN ITS RANDOM ACCESS FORM TO THE RESIDENT SOF.\r\nC     THE MDI AND DIT OF THE EXTERNAL SOF ARE MERGED INTO THOSE OF THE\r\nC     RESIDENT SOF.  THE NXT OF THE EXTERNAL SOF IS INCREMENTED BY THE\r\nC     NUMBER OF BLOCKS IN THE RESIDENT SOF.  THE COMMON BLOCKS /SYS/,\r\nC     /SOF/, AND /SOFCOM/ ARE UPDATED AND WRITTEN TO THE FIRST PHYSICAL\r\nC     BLOCK ON EACH FILE OF THE RESIDENT SOF BY SOFCLS.  NOTE THAT NO\r\nC     USER DATA IS ACTUALLY MOVED.\r\nC\r\nC     FIRST, ADD THE EXTERNAL SOF TO /SOFCOM/ SO THAT SOFIO CAN BE USED\r\nC     TO READ IT.\r\nC\r\n 1220 IF (NFILES .LT. 10) GO TO 1230\r\n      WRITE (NOUT,2260) UWM,UNAME\r\n      WRITE (NOUT,2270)\r\n      GO TO 1910\r\n 1230 NFILES = NFILES + 1\r\n      FILNAM(NFILES) = UNIT\r\n      FILSIZ(NFILES) = 4\r\n      NSAVE = NOBLKS + 1\r\nC\r\nC     READ THE FIRST PHYSICAL BLOCK OF THE EXTERNAL SOF AND SEE THAT IT\r\nC     IS COMPATIBLE WITH THE RESIDENT SOF.\r\n      INCBLK =-4\r\n      DO 1240 I = 1,NFILES\r\n 1240 INCBLK = INCBLK+FILSIZ(I)\r\n      CALL SOFIO (SRD,INCBLK+1,Z(BUF4))\r\nC\r\nC     PASSWORD CHECK\r\nC\r\n      IF (Z(BUF4+3).EQ.DATYPE(1) .AND. Z(BUF4+4).EQ.DATYPE(2))\r\n     1    GO TO 1250\r\n      WRITE (NOUT,2260) UWM,UNAME\r\n      WRITE (NOUT,2310)\r\n      INCBLK =-1\r\nC\r\nC     FILE SEQUENCE NUMBER CHECK\r\nC\r\n 1250 IF (Z(BUF4+5) .EQ. 1) GO TO 1260\r\n      WRITE (NOUT,2260) UWM,UNAME\r\n      WRITE (NOUT,2280)\r\n      INCBLK =-1\r\nC\r\nC     NUMBER OF EXTERNAL FILES CHECK\r\nC\r\n 1260 IF (Z(BUF4+6) .EQ. 1) GO TO 1270\r\n      WRITE (NOUT,2260) UWM,UNAME\r\n      WRITE (NOUT,2290)\r\n      INCBLK =-1\r\nC\r\nC     BLOCKSIZE CHECK\r\nC\r\n 1270 IF (Z(BUF4+27) .EQ. BLKSIZ) GO TO 1280\r\n      WRITE (NOUT,2260) UWM,UNAME\r\n      WRITE (NOUT,2300) BLKSIZ,Z(BUF4+27)\r\n      INCBLK =-1\r\n 1280 IF (INCBLK .LT. 0) GO TO 1490\r\nC\r\nC     COMPLETE THE UPDATING OF THE COMMON BLOCKS\r\nC\r\n      FILSIZ(NFILES) = Z(BUF4+17)\r\n      AVBLKS = AVBLKS + Z(BUF4+30)\r\n      NXTCUR = 1\r\n      NXTRST =.TRUE.\r\n      NXTFSZ(NFILES) = Z(BUF4+36)\r\n      J = NFILES-1\r\n      NXTTSZ = 0\r\n      DO 1290 I = 1,J\r\n 1290 NXTTSZ = NXTTSZ + NXTFSZ(I)\r\n      OLDTSZ = NXTTSZ + 1\r\n      NXTTSZ = NXTTSZ + Z(BUF4+35)\r\nC\r\nC     READ THE DIT OF THE EXTERNAL SOF AND ADD EACH SUBSTRUCTURE THERE\r\nC     TO THE DIT OF THE RESIDENT SOF.  KEEP A TABLE IN OPEN CORE OF TWO\r\nC     WORDS PER SUBSTRUCTURE -\r\nC\r\nC     (1)  SUBSTRUCTURE NUMBER FROM THE EXTERNAL SOF.\r\nC     (2)  NEW SUBSTRUCTURE NUMBER ON THE RESIDENT SOF.\r\nC\r\n      NOLD = Z(BUF4+32)\r\n      IF (2*NOLD .GT. LCORE) GO TO 1890\r\n      ISS = 1\r\n      K   = 1\r\n      KDIT = Z(BUF4+33) + INCBLK\r\n      KMDI = Z(BUF4+34) + INCBLK\r\n 1300 CALL SOFIO (SRD,KDIT,Z(BUF4))\r\n      DO 1350 I = 1,BLKSIZ,2\r\n      SSNAME(1) = Z(BUF4+I+2)\r\n      SSNAME(2) = Z(BUF4+I+3)\r\n      IF (SSNAME(1) .EQ. BLANK) GO TO 1350\r\n 1320 CALL FDSUB (SSNAME,J)\r\n      IF (J .EQ. -1) GO TO 1330\r\nC\r\nC     DUPLICATE NAME ON RESIDENT SOF.  PREFIX IT WITH -Q- AND TRY AGAIN.\r\nC\r\n      WRITE (NOUT,2320) UWM,SSNAME\r\n      CALL PREFIX (Q,SSNAME)\r\n      IF (SSNAME(2) .NE. QQQQ) GO TO 1320\r\n      WRITE (NOUT,2330)\r\n      Z(ISS  ) = (I+1)/2\r\n      Z(ISS+1) = 0\r\n      ISS = ISS + 2\r\n      GO TO 1340\r\n 1330 CALL CRSUB (SSNAME,J)\r\n      Z(ISS  ) = K\r\n      Z(ISS+1) = J\r\n      ISS = ISS + 2\r\n      K   = K + 1\r\n 1340 IF (ISS/2 .GE. NOLD) GO TO 1380\r\n 1350 CONTINUE\r\nC\r\nC     GET THE NEXT BLOCK OF THE DIT FROM THE EXTERNAL SOF\r\nC\r\n      CALL FNXT (KDIT,J)\r\n      IF (MOD(KDIT,2) .EQ. 1) GO TO 1360\r\n      I = ANDF(RSHIFT(COR(J),IHALF),JHALF)\r\n      GO TO 1370\r\n 1360 I = ANDF(COR(J),JHALF)\r\n 1370 KDIT = I + INCBLK\r\n      GO TO 1300\r\nC\r\nC     THE DIT OF THE EXTERNAL SOF HAS NOW BEEN MERGED WITH THE DIT OF\r\nC     THE RESIDENT SOF.  NOW MERGE THE MDI\r\nC\r\n 1380 ISS = 0\r\n 1390 CALL SOFIO (SRD,KMDI,Z(BUF4))\r\n      DO 1420 I = 1,BLKSIZ,DIRSIZ\r\n      IF (BLKSIZ-I+1 .LT. DIRSIZ) GO TO 1420\r\n      ISS = ISS  + 1\r\n      JMDI= BUF4 + I + 1\r\n      CALL BISLOC (*1900,ISS,Z,2,NOLD,K)\r\n      CALL FMDI (Z(K+1),JRMDI)\r\nC\r\nC     PUT THE CONVERTED SUBSTRUCTURE INDICES IN THE FIRST TWO WORDS OF\r\nC     THE MDI OF THE RESIDENT SOF.\r\nC\r\n      DO 1400 J = 1,6\r\n      MASK = LSHIFT(1023,10*((J-1)/2))\r\nC                   1023 = 2*10-1, LEFT SHIFT 0, 10, AND 20 BITS\r\nC\r\n      K = MOD(J-1,2) + 1\r\n      JSS = ANDF(Z(JMDI+K),MASK)\r\n      IF (JSS .EQ. 0) GO TO 1400\r\n      CALL BISLOC (*1900,JSS,Z,2,NOLD,K)\r\n      JSS = Z(K+1)\r\n      COR(JRMDI+K) = ANDF(COR(JRMDI+K),LSHIFT(JSS,10*((J-1)/2)))\r\n 1400 CONTINUE\r\nC\r\nC     INCREMENT THE BLOCK INDICES OF THE ITEMS IN THIS MDI DIRECTORY BY\r\nC     THE NUMBER OF BLOCKS ON THE RESIDENT SOF.\r\nC\r\n      DO 1410 J = IFRST,DIRSIZ\r\n      IF (ANDF(Z(JMDI+J),JHALF) .EQ. 0) GO TO 1410\r\n      COR(JRMDI+J) = Z(JMDI+J) + INCBLK\r\n 1410 CONTINUE\r\n      IF (ISS .EQ. NOLD) GO TO 1450\r\n 1420 CONTINUE\r\nC\r\nC     GET THE NEXT BLOCK OF THE MDI FROM THE EXTERNAL SOF.\r\nC\r\n      CALL FNXT (KMDI,J)\r\n      IF (MOD(KMDI,2) .EQ. 1) GO TO 1430\r\n      I = ANDF(RSHIFT(COR(J),IHALF),JHALF)\r\n      GO TO 1440\r\n 1430 I = ANDF(COR(J),JHALF)\r\n 1440 KMDI = I + INCBLK\r\n      GO TO 1390\r\nC\r\nC     THE MDI OF THE EXTERNAL SOF HAS NOW BEEN MERGED WITH THE MDI OF\r\nC     THE RESIDENT SOF.  NOW UPDATE THE NXT OF THE EXTERNAL SOF.\r\nC\r\n 1450 N = BLKSIZ\r\n      KNXT = INCBLK + 2\r\n      INCBLK = ORF(INCBLK,LSHIFT(INCBLK,IHALF))\r\n      DO 1470 I = OLDTSZ,NXTTSZ\r\n      CALL SOFIO (SRD,KNXT,Z(BUF4))\r\n      IF (I-OLDTSZ+1 .EQ. NXTFSZ(NFILES))\r\n     1    N = (MOD(FILSIZ(NFILES)-2,SUPSIZ)+1)/2 + 1\r\n      DO 1460 J = 1,N\r\n 1460 Z(BUF4+J+2) = Z(BUF4+J+2) + INCBLK\r\n      CALL SOFIO (SWRT,KNXT,Z(BUF4))\r\n      KNXT = KNXT + SUPSIZ\r\n 1470 CONTINUE\r\nC\r\nC     RELEASE THE BLOCKS USED BY THE MDI AND DIT OF THE EXTERNAL SOF.\r\nC     (THIS WILL CAUSE THE EXTERNAL SOF TO BE UNUSEABLE IN ITS ORIGINAL\r\nC     FORM.)\r\nC\r\n      INCBLK = ANDF(INCBLK,JHALF)\r\n      CALL SOFIO (SRD,INCBLK+1,Z(BUF4))\r\n      KDIT = Z(BUF4+33) + INCBLK\r\n      KMDI = Z(BUF4+34) + INCBLK\r\n      CALL RETBLK (KDIT)\r\n      CALL RETBLK (KMDI)\r\nC\r\nC     WRITE ON ALL BLOCKS BETWEEN THE HIGHEST BLOCK WRITTEN ON THE\r\nC     ORIGINAL RESIDENT SOF AND THE FIRST BLOCK OF THE APPENDED SOF.\r\nC     THIS IS REQUIRED TO AVOID DATA TRANSMISSION ERRORS.\r\nC\r\n      N = FILSIZ(NFILES-1)\r\n      DO 1480 I = NSAVE,N\r\n      CALL SOFIO (SWRT,NSAVE,Z(BUF4))\r\n 1480 CONTINUE\r\nC\r\nC     SOFCLS WILL UPDATE THE FIRST PHYSICAL BLOCK ON EACH SOF UNIT.\r\nC\r\n      CALL SOFCLS\r\nC\r\nC     APPEND OPERATION COMPLETED SUCCESSFULLY.  TELL USER THE NEWS.\r\nC\r\n      WRITE (NOUT,2340) UIM,UNAME\r\n      N = SOFSIZ(N)\r\n      WRITE (NOUT,2360) UIM,AVBLKS,N\r\n      GO TO 1750\r\nC\r\nC     APPEND OPERATION ABORTED.  RESTORE THE COMMON BLOCKS FOR THE\r\nC     RESIDENT SOF.\r\nC\r\n 1490 FIRST =.TRUE.\r\n      OPNSOF=.FALSE.\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      GO TO 1900\r\nC\r\nC     ********************   C O M P R E S S   **********************\r\nC\r\nC     FOR EACH SUBSTRUCTURE IN THE DIT, COPY EACH ITEM WHICH EXISTS OR\r\nC     PSEUDO-EXISTS TO SCR1 AND DELETE THE ITEM ON THE SOF.  THEN COPY\r\nC     ALL ITEMS BACK.  ALL INTERMEDIATE FREE BLOCKS WILL THUS BE\r\nC     ELIMINATED AND THE DATA FOR ANY ONE ITEM WILL BE STORED ON\r\nC     CONTIGUOUS BLOCKS.\r\nC\r\nC     THE FORMAT OF THE SCRATCH FILE IS --\r\nC\r\nC                                      +------------+\r\nC     SUBSTRUCTURE NAME (2 WORDS)      I            I+\r\nC     ITEM NAME (1 WORD)               I HEADER     I +\r\nC     PSEUDO FLAG -- 2 FOR PSEUDO-ITEM I RECORD     I  +\r\nC                    3 FOR REAL DATA   I            I   +   REPEATED\r\nC                                      +------------+    +  FOR EACH\r\nC     DATA -- 1 SOF GROUP PER          I DATA       I   +   SUBS./ITEM\r\nC             GINO LOGICAL RECORD      I RECORDS    I  +\r\nC                                      +------------+ +\r\nC     END OF ITEM FLAG (1 WORD)        I EOI RECORD I+\r\nC                                      +------------+\r\nC\r\n 1500 UNIT = SCR1\r\n      CALL OPEN (*1860,SCR1,Z(BUF4),WRTREW)\r\nC\r\nC     COPY OUT DIT AND MDI INFORMATION\r\nC\r\n      ISS = 0\r\n      DO 1510 K = 1,DITSIZ,2\r\n      ISS = ISS + 1\r\n      CALL FDIT  (ISS,J)\r\n      CALL WRITE (SCR1,COR(J),2,0)\r\n      CALL FMDI  (ISS,J)\r\n      CALL WRITE (SCR1,COR(J+1),2,0)\r\n 1510 CONTINUE\r\n      CALL WRITE (SCR1,0,0,1)\r\nC\r\nC     COPY OUT SUBSTRUCTURE ITEMS\r\nC\r\n      ISS = 0\r\n      DO 1600 K = 1,DITSIZ,2\r\n      ISS = ISS + 1\r\n      CALL FDIT (ISS,J)\r\n      SSNAME(1) = COR(J  )\r\n      SSNAME(2) = COR(J+1)\r\n      IF (SSNAME(1) .EQ. BLANK) GO TO 1600\r\n      DO 1590 ITEM = 1,NITEM\r\n      KDH = ITEMS(2,ITEM)\r\n      IF (KDH .EQ. 1) GO TO 1570\r\n      CALL SFETCH (SSNAME,ITEMS(1,ITEM),SRD,RC)\r\n      GO TO (1540,1530,1590,1520,1520), RC\r\n 1520 CALL SMSG (RC-2,ITEMS(1,ITEM),SSNAME)\r\n      GO TO 1590\r\nC\r\nC     ITEM PSEUDO-EXISTS.  WRITE PSEUDO-HEADER RECORD AND EOI RECORD.\r\nC\r\n 1530 CALL WRITE (SCR1,SSNAME,2,0)\r\n      CALL WRITE (SCR1,ITEMS(1,ITEM),1,0)\r\n      CALL WRITE (SCR1,2,1,1)\r\n      CALL WRITE (SCR1,EOI,1,1)\r\n      GO TO 1590\r\nC\r\nC     ITEM EXISTS.  COPY IT OUT.\r\nC\r\n 1540 CALL WRITE (SCR1,SSNAME,2,0)\r\n      CALL WRITE (SCR1,ITEMS(1,ITEM),1,0)\r\n      CALL WRITE (SCR1,3,1,1)\r\n 1550 CALL SUREAD(Z,LCORE,N,RC)\r\n      IF (RC .GT. 1) GO TO 1560\r\n      CALL WRITE (SCR1,Z,LCORE,0)\r\n      GO TO 1550\r\n 1560 CALL WRITE (SCR1,Z,N,1)\r\n      IF (RC .EQ. 2) GO TO 1550\r\nC\r\nC     END OF ITEM HIT.  WRITE EOI RECORD\r\nC\r\n      CALL WRITE (SCR1,EOI,1,1)\r\n      GO TO 1590\r\nC\r\nC     PROCESS MATRIX ITEMS\r\nC\r\n 1570 CALL MTRXI (SCR2,SSNAME,ITEMS(1,ITEM),0,RC)\r\n      IFILE = SCR2\r\n      GO TO (1580,1530,1590,1520,1520,2010), RC\r\n 1580 CALL WRITE (SCR1,SSNAME,2,0)\r\n      CALL WRITE (SCR1,ITEMS(1,ITEM),1,0)\r\n      CALL WRITE (SCR1,3,1,1)\r\n      CALL OPEN  (*2010,SCR2,Z(BUF5),RDREW)\r\n      Z(1) = SCR2\r\n      CALL RDTRL (Z(1))\r\n      CALL WRITE (SCR1,Z(IZ2),6,1)\r\n      CALL CPYFIL(SCR2,SCR1,Z,LCORE,ICOUNT)\r\n      CALL WRITE (SCR1,EOI,1,1)\r\n      CALL CLOSE (SCR2,1)\r\n 1590 CONTINUE\r\n 1600 CONTINUE\r\nC\r\nC     COPY ALL ITEMS BACK TO THE SOF\r\nC\r\n      CALL CLOSE (SCR1,REW)\r\n      CALL OPEN  (*1860,SCR1,Z(BUF4),RDREW)\r\nC\r\nC     RE-INITIALIZE THE SOF, THEN RESTORE THE OLD DIT AND MDI\r\nC\r\n      CALL SOFCLS\r\n      STATUS= 0\r\n      FIRST =.TRUE.\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      CALL PAGE\r\n      ISS = 0\r\n 1610 CALL READ (*1870,*1620,SCR1,BUF,4,0,FLAG)\r\n      ISS = ISS + 1\r\n      IF (BUF(1) .EQ. BLANK) GO TO 1610\r\n      CALL CRSUB (BUF,I)\r\n      CALL FMDI  (I,J)\r\n      COR(J+1) = BUF(3)\r\n      COR(J+2) = BUF(4)\r\n      MDIUP = .TRUE.\r\n      GO TO 1610\r\nC\r\nC     READ HEADER RECORD AND FETCH THE SOF ITEM\r\nC\r\n 1620 CALL READ (*1730,*1880,SCR1,BUF,4,1,FLAG)\r\n      KDH = ITTYPE(BUF(3))\r\n      IF (KDH .EQ. 1) GO TO 1660\r\n      CALL SFETCH (BUF,BUF(3),2,BUF(4))\r\nC\r\nC     COPY THE DATA\r\nC\r\n 1630 CALL READ (*1870,*1640,SCR1,Z,LCORE,0,FLAG)\r\n      IF (Z(1) .EQ. EOI) GO TO 1650\r\n      CALL SUWRT (Z,LCORE,1)\r\n      GO TO 1630\r\n 1640 IF (Z(1) .EQ. EOI) GO TO 1650\r\n      CALL SUWRT (Z,FLAG,2)\r\n      GO TO 1630\r\nC\r\nC     EOI FOUND\r\nC\r\n 1650 CALL SUWRT (0,0,3)\r\n      GO TO 1720\r\nC\r\nC     COPY IN MATRIX ITEMS\r\nC\r\n 1660 CALL OPEN (*2010,SCR2,Z(BUF5),WRTREW)\r\n      CALL READ (*1870,*1880,SCR1,Z(IZ2),6,1,NW)\r\n      Z(1) = SCR2\r\n      CALL WRTTRL (Z(1))\r\n      INBLK(1)  = SCR1\r\n      OUTBLK(1) = SCR2\r\n 1670 CALL RECTYP (SCR1,ITYPE)\r\n      IF (ITYPE .NE. 0) GO TO 1700\r\n 1680 CALL READ (*1870,*1690,SCR1,Z,LCORE,0,NW)\r\n      CALL WRITE (SCR2,Z,LCORE,0)\r\n      GO TO 1680\r\n 1690 IF (Z(1) .EQ. EOI) GO TO 1710\r\n      CALL WRITE (SCR2,Z,NW,1)\r\n      GO TO 1670\r\n 1700 CALL CPYSTR (INBLK,OUTBLK,0,0)\r\n      GO TO 1670\r\nC\r\nC     EOI FOUND\r\nC\r\n 1710 CALL CLOSE (SCR2,1)\r\n      CALL MTRXO (SCR2,BUF,BUF(3),0,RC)\r\n 1720 CONTINUE\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,2350) UIM,BUF(1),BUF(2),BUF(3)\r\n      GO TO 1620\r\nC\r\nC     COMPRESS COMPLETE\r\nC\r\n 1730 CALL CLOSE (SCR1,REW)\r\nC\r\nC     **********************   C O D A   ************************\r\nC\r\nC     NORMAL TERMINATION\r\nC\r\n 1740 CALL SOFCLS\r\n 1750 RETURN\r\nC\r\nC     ERRORS CAUSING MODULE AND/OR JOB TERMINATION\r\nC\r\n 1800 WRITE (NOUT,2100) UWM,UNAME\r\n      GO TO 1910\r\n 1810 WRITE (NOUT,2110) UWM,DEVICE\r\n      GO TO 1910\r\n 1820 WRITE (NOUT,2140) UWM,MODE\r\n      GO TO 1910\r\n 1830 WRITE (NOUT,2150) UWM,POS\r\n      GO TO 1910\r\n 1840 WRITE (NOUT,2180) UWM\r\n      GO TO 1910\r\n 1850 WRITE (NOUT,2190) SWM,UNAME\r\n      CALL CLOSE (UNIT,NOREW)\r\n      GO TO 1910\r\nC\r\n 1860 N = -1\r\n      GO TO 2000\r\n 1870 N = -2\r\n      GO TO 2000\r\n 1880 N = -3\r\n      GO TO 2000\r\n 1890 N = 8\r\n      GO TO 2000\r\n 1900 N = -61\r\n      GO TO 2000\r\n 1910 CALL SOFCLS\r\n      DRY = -2\r\n      WRITE (NOUT,2370) SIM\r\n      RETURN\r\nC\r\n 2000 CALL SOFCLS\r\n      CALL MESAGE (N,UNIT,SUBR)\r\n      DRY = -2\r\n      WRITE (NOUT,2370) SIM\r\n      RETURN\r\nC\r\n 2010 N = -1\r\n      GO TO 2040\r\n 2020 N = -2\r\n      GO TO 2040\r\n 2030 N = -3\r\n 2040 CALL SOFCLS\r\n      CALL MESAGE (N,IFILE,SUBR)\r\n      RETURN\r\nC\r\nC     TEXT OF ERROR MESSAGES\r\nC\r\n 2100 FORMAT (A25,' 6334, EXIO DEVICE PARAMETER SPECIFIES TAPE, BUT ',\r\n     1        'UNIT ',2A4,' IS NOT A PHYSICAL TAPE')\r\n 2110 FORMAT (A25,' 6335, ',2A4,' IS AN INVALID DEVICE FOR MODULE EXIO')\r\n 2120 FORMAT (A29,' 6336, EXIO FILE IDENTIFICATION.  PASSWORD= ',2A4,\r\n     1       '  DATE=',I3,1H/,I2,1H/,I2,7H  TIME=,I3,1H.,I2,1H.,I2)\r\n 2130 FORMAT (A29,' 6337,',I6,' BLOCKS (',I4,' SUPERBLOCKS) OF THE SOF',\r\n     1       ' SUCCESSFULLY DUMPED TO EXTERNAL FILE ',2A4)\r\n 2140 FORMAT (A25,' 6338, ',2A4,' IS AN INVALID MODE PARAMETER FOR ',\r\n     1       'MODULE EXIO')\r\n 2150 FORMAT (A25,' 6339, ',2A4,' IS AN INVALID FILE POSITIONING ',\r\n     1       'PARAMETER FOR MODULE EXIO')\r\n 2160 FORMAT (A25,' 6340, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' PSEUDOEXISTS ONLY AND CANNOT BE COPIED OUT BY EXIO')\r\n 2170 FORMAT (A29,' 6341, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' SUCCESSFULLY COPIED FROM ',A4,' TO ',A4,2H (,\r\n     2       I2,1H/,I2,1H/,I2,2H, ,I2,1H.,I2,1H.,I2,1H))\r\n 2180 FORMAT (A25,' 6342, SOF RESTORE OPERATION FAILED.  THE RESIDENT ',\r\n     1       'SOF IS NOT EMPTY')\r\n 2190 FORMAT (A27,' 6343, ',2A4,' IS NOT AN EXTERNAL SOF FILE')\r\n 2200 FORMAT (A29,' 6344, SOF RESTORE OF ',I6,' BLOCKS SUCCESSFULLY ',\r\n     1       'COMPLETED')\r\n 2210 FORMAT (A25,' 6345, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' IS DUPLICATED ON EXTERNAL FILE ',2A4, /32X,\r\n     2       'OLDER VERSION (',I2,1H/,I2,1H/,I2,2H, ,I2,1H.,I2,1H.,I2,\r\n     3       ') IS IGNORED')\r\n 2220 FORMAT (A25,' 6346, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' NOT COPIED.  IT ALREADY EXISTS ON THE SOF')\r\n 2230 FORMAT (A25,' 6348, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' NOT FOUND ON EXTERNAL FILE ',2A4)\r\n 2240 FORMAT (A29,' 6349, CONTENTS OF EXTERNAL SOF FILE ',2A4,' FOLLOW')\r\n 2250 FORMAT (5X,'SUBSTRUCTURE ',2A4,5X,'ITEM ',A4,10X,5HDATE ,I2,1H/,\r\n     1       I2,1H/,I2,10X,5HTIME ,I2,1H.,I2,1H.,I2)\r\n 2260 FORMAT (A25,' 6350, SOF APPEND OF FILE ',2A4,' FAILED')\r\n 2270 FORMAT (32X,'TOO MANY PHYSICAL SOF UNITS. MAXIMUM ALLOWED IS 10')\r\n 2280 FORMAT (32X,'THE SEQUENCE NUMBER OF THE EXTERNAL SOF FILE IS NOT',\r\n     1       ' 1')\r\n 2290 FORMAT (32X,'THE EXTERNAL SOF FILE MUST CONSIST OF ONLY ONLY ONE',\r\n     1       ' PHYSICAL UNIT')\r\n 2300 FORMAT(32X,45HTHE EXTERNAL SOF HAS INCOMPATIBLE BLOCK SIZE., /\r\n     1       32X, 32HBLOCK SIZE OF THE RESIDENT SOF = ,I5, /\r\n     2       32X, 32HBLOCK SIZE OF THE EXTERNAL SOF = ,I5 )\r\n 2310 FORMAT (32X,17HINVALID PASSWORD.)\r\n 2320 FORMAT (A25,' 6351, DUPLICATE SUBSTRUCTURE NAME ',2A4,\r\n     1       ' FOUND DURING SOF APPEND OF FILE ',2A4, /32X,\r\n     2       'THE SUBSTRUCTURE WITH THIS NAME ON THE FILE BEING ',\r\n     3       'APPENDED WILL BE PREFIXED WITH Q')\r\n 2330 FORMAT (1H0,31X, 37HPREFIX FAILED.  SUBSTRUCTURE IGNORED.)\r\n 2340 FORMAT (A29,' 6352, EXTERNAL SOF FILE ',2A4,\r\n     1       ' SUCCESSFULLY APPENDED TO THE RESIDENT SOF')\r\n 2350 FORMAT (A29,' 6353, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1       ' HAS BEEN SUCCESSFULLY COMPRESSED')\r\n 2360 FORMAT (A29,' 6354, THERE ARE',I7,' FREE BLOCKS (',I9,\r\n     1       ' WORDS) ON THE RESIDENT SOF')\r\n 2370 FORMAT (A31,' 6355, EXIO TERMINATED WITH ERRORS.  DRY RUN MODE ',\r\n     1       'ENTERED')\r\n      END\r\n"
  },
  {
    "path": "mis/exio2.f",
    "content": "      SUBROUTINE EXIO2\r\nC\r\nC     EXIO2 COPIES SUBSTRUCTURE ITEMS BETWEEN THE SOF AND AN EXTERNAL\r\nC     TAPE USING FORTRAN FORMATTED IO.  THE TAPE COULD HAVE BEEN CREATED\r\nC     OR COULD BE READ ON A DIFFERENT BRAND OF COMPUTER.\r\nC\r\nC\r\n      LOGICAL         UNIVAC\r\n      INTEGER         DRY      ,XBLK     ,UNAME    ,POS      ,\r\n     1                UNIT     ,FORT     ,NUM(32)  ,SOFIN    ,\r\n     2                SOFOUT   ,REWI     ,EQF\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\n      COMMON /BLANK / DRY      ,XBLK     ,DEVICE(2),UNAME(2) ,\r\n     1                FORMT(2) ,MODE(2)  ,POS(2)   ,DATYPE(2),\r\n     2                NAMES(10),UNIT     ,UNIVAC   ,LBUF     ,\r\n     3                IADD\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT     ,X1(36)   ,NBPC     ,\r\n     1                NBPW     ,NCPW\r\n      DATA    FORT  , SOFIN    ,SOFOUT   ,REWI     ,EQF      /\r\n     1        4HFORT, 4HSOFI   ,4HSOFO   ,4HREWI   ,4HEOF    /\r\n      DATA    NUM   /\r\n     1        2H1   , 2H2      ,2H3      ,2H4      ,2H5      ,\r\n     2        2H6   , 2H7      ,2H8      ,2H9      ,2H10     ,\r\n     3        2H11  , 2H12     ,2H13     ,2H14     ,2H15     ,\r\n     4        2H16  , 2H17     ,2H18     ,2H19     ,2H20     ,\r\n     5        2H21  , 2H22     ,2H23     ,2H24     ,2H25     ,\r\n     6        2H26  , 2H27     ,2H28     ,2H29     ,2H30     ,\r\n     7        2H31  , 2H32     /\r\nC\r\nC     INITIALIZE\r\nC\r\n      NOGO = 0\r\nC\r\nC     DECODE FORTRAN UNIT\r\nC\r\n      IF (UNAME(1) .NE. FORT) GO TO 20\r\n      DO 10 I = 1,32\r\n      UNIT = I\r\n      IF (UNAME(2) .EQ. NUM(UNIT)) GO TO 30\r\n   10 CONTINUE\r\n   20 NOGO = 1\r\n      CALL PAGE2 (-2)\r\n      WRITE (NOUT,6356) UWM,UNAME\r\nC\r\nC     DECODE MODE OF OPERATION\r\nC\r\n   30 IOMODE = 0\r\n      IF (MODE(1) .EQ. SOFOUT) IOMODE = 1\r\n      IF (MODE(1) .EQ. SOFIN ) IOMODE = 2\r\n      IF (IOMODE  .GT.      0) GO TO 40\r\n      NOGO = 1\r\n      CALL PAGE2 (-2)\r\n      WRITE (NOUT,6338) UWM,MODE\r\nC\r\nC     IF ERRORS THEN QUIT\r\nC\r\n   40 IF (NOGO .EQ. 0) GO TO 50\r\n      DRY = -2\r\n      GO TO 300\r\nC\r\nC     SET POSITION AND UNIVAC FLAGS\r\nC\r\n   50 UNIVAC = .TRUE.\r\n      IF (XBLK .LE. 0) XBLK = 3960\r\n      XBLK = XBLK - MOD(XBLK,132)\r\n      LBUF = XBLK/NCPW\r\n      IF (MOD(XBLK,NCPW) .NE. 0) LBUF = LBUF + 1\r\n      IADD = 2\r\n      IF (POS(1) .EQ. REWI) IADD = 1\r\n      IF (POS(1) .EQ.  EQF) IADD = 3\r\nC\r\nC     BRANCH ON MODE OF OPERATION\r\nC\r\n      GO TO (100,200), IOMODE\r\nC\r\nC     SOFOUT\r\nC\r\n  100 CALL EXO2\r\n      GO TO 300\r\nC\r\nC     SOFIN\r\nC\r\n  200 CALL EXI2\r\nC\r\nC     NORMAL MODULE COMPLETION\r\nC\r\n  300 RETURN\r\nC\r\nC     MESSAGE TEXT\r\nC\r\n 6338 FORMAT (A25,' 6338, ',2A4,' IS AN INVALID MODE PARAMETER FOR ',\r\n     1       'MODULE EXIO')\r\n 6356 FORMAT (A25,' 6356, ',2A4,' IS AN INVALID UNIT FOR MODULE EXIO,',\r\n     1       ' EXTERNAL FORMAT')\r\n      END\r\n"
  },
  {
    "path": "mis/exlvl.f",
    "content": "      SUBROUTINE EXLVL (NOS,MD,NAME,Z,NWDS)\r\nC\r\nC     EXLVL ADDS A SUBSTRUCTURE TO THE RESIDENT SOF FOR THE SOFIN\r\nC     OPERATION.  IT USES THE DIT AND MDI DATA WRITTEN ON THE EXTERNAL\r\nC     FILE BY SOFOUT TO RESTORE THE HL, CS, AND LL POINTERS IN THE MDI.\r\nC\r\n      EXTERNAL LSHIFT   ,RSHIFT   ,ANDF     ,ORF\r\n      LOGICAL  MDIUP\r\n      INTEGER  MD(4,1)  ,NAME(2)  ,BUF      ,ANDF     ,RSHIFT    ,\r\n     1         PS       ,CS       ,HL       ,TP       ,Z(2)      ,\r\n     2         SUBR(2)  ,ORF\r\n      COMMON  /ZZZZZZ/   BUF(1)\r\n      COMMON  /SYSTEM/   SYSBUF   ,NOUT     ,X1(6)    ,NLPP      ,\r\n     1                   X2(2)    ,LINE\r\n      COMMON  /SOF   /   X3(34)   ,MDIUP\r\n      DATA     SUBR  /   4HEXLV   ,4HL      /\r\nC\r\nC\r\nC     ADD THE NEW SUBSTRUCTURE TO THE RESIDENT DIT.\r\nC\r\n      CALL FDSUB (NAME,I)\r\n      IF (I .NE. -1) GO TO 6104\r\n      CALL CRSUB (NAME,I)\r\n      IF (NOS .LE. 0) GO TO 200\r\n      Z(1) = NAME(1)\r\n      Z(2) = NAME(2)\r\n      NSS  = 1\r\n      ISS  = 1\r\nC\r\nC     DECODE THE OLD MDI ENTRY\r\nC\r\n    5 DO 10 I = 1,NOS\r\n      IF (MD(1,I).NE.Z(2*ISS-1) .OR. MD(2,I).NE.Z(2*ISS)) GO TO 10\r\n      PS = ANDF(MD(3,I),1023)\r\n      TP = ANDF(RSHIFT(MD(3,I),20),1023)\r\n      LL = RSHIFT(MD(4,I),20)\r\n      CS = ANDF(RSHIFT(MD(4,I),10),1023)\r\n      HL = ANDF(MD(4,I),1023)\r\n      IOLD = I\r\n      GO TO 15\r\n   10 CONTINUE\r\nC\r\nC     SET NEW MDI POINTERS FOR HL, CS, AND LL IF THE SUBSTRUCTURES OF\r\nC     THE ORIGINATING SOF WHICH ARE INDICATED THEREBY EXIST.\r\nC\r\nC\r\nC     HIGHER LEVEL (HL)\r\nC\r\n   15 M = 0\r\n      IF (HL .EQ. 0) GO TO 30\r\n      CALL FDSUB (MD(1,HL),I)\r\n      IF (I .GT. 0) GO TO 20\r\n      CALL CRSUB (MD(1,HL),I)\r\n      NSS = NSS + 1\r\n      IF (2*NSS .GT. NWDS) GO TO 9008\r\n      Z(2*NSS-1) = MD(1,HL)\r\n      Z(2*NSS  ) = MD(2,HL)\r\n   20 M  = I\r\n      HL = I\r\nC\r\nC     COMBINED SUBSTRUCTURE (CS)\r\nC\r\n   30 IF (CS .EQ. 0) GO TO 60\r\n      CALL FDSUB (MD(1,CS),J)\r\n      IF (J .GT. 0) GO TO 50\r\n      CALL CRSUB (MD(1,CS),J)\r\n      NSS = NSS + 1\r\n      IF (2*NSS .GT. NWDS) GO TO 9008\r\n      Z(2*NSS-1) = MD(1,CS)\r\n      Z(2*NSS  ) = MD(2,CS)\r\n   50 M  = ORF(M,LSHIFT(J,10))\r\n      CS = J\r\nC\r\nC     LOWER LEVEL (LL)\r\nC\r\n   60 IF (LL .EQ. 0) GO TO 90\r\n      CALL FDSUB (MD(1,LL),J)\r\n      IF (J .GT. 0) GO TO 80\r\n      CALL CRSUB (MD(1,LL),J)\r\n      NSS = NSS + 1\r\n      IF (2*NSS .GT. NWDS) GO TO 9008\r\n      Z(2*NSS-1) = MD(1,LL)\r\n      Z(2*NSS  ) = MD(2,LL)\r\n   80 M  = ORF(M,LSHIFT(J,20))\r\n      LL = J\r\nC\r\nC     UPDATE THE MDI\r\nC\r\n   90 CALL FDSUB (Z(2*ISS-1),J)\r\n      CALL FMDI (J,I)\r\n      BUF(I+1) = LSHIFT(TP,20)\r\n      BUF(I+2) = M\r\n      MDIUP    =.TRUE.\r\nC\r\nC     WRITE USER MESSAGES\r\nC\r\n      NL = 2\r\n      IF (LL .NE. 0) NL = NL + 1\r\n      IF (CS .NE. 0) NL = NL + 1\r\n      IF (HL .NE. 0) NL = NL + 1\r\n      IF (PS .NE. 0) NL = NL + 3\r\n      IF (LINE+NL .GT. NLPP) CALL PAGE\r\n      LINE = LINE + NL\r\n      WRITE (NOUT,63470) Z(2*ISS-1),Z(2*ISS)\r\n      IF (HL .EQ. 0) GO TO 100\r\n      CALL FDIT (HL,I)\r\n      WRITE (NOUT,63471) BUF(I),BUF(I+1)\r\n  100 IF (CS .EQ. 0) GO TO 130\r\n      CALL FDIT (CS,I)\r\n      WRITE (NOUT,63472) BUF(I),BUF(I+1)\r\n  130 IF (LL .EQ. 0) GO TO 160\r\n      CALL FDIT (LL,I)\r\n      WRITE (NOUT,63473) BUF(I),BUF(I+1)\r\n  160 IF (PS .EQ. 0) GO TO 170\r\n      WRITE (NOUT,63590) Z(2*ISS-1),Z(2*ISS)\r\n  170 ISS = ISS + 1\r\n      IF (ISS-NSS) 5,5,210\r\nC\r\nC     SUBSTRUCTURE ADDED TO SOF SUCCESSFULLY\r\nC\r\n  200 WRITE (NOUT,63470) NAME\r\n  210 RETURN\r\nC\r\nC     SUBSTRUCTURE NAME WAS DUPLICATED\r\nC\r\n 6104 CALL SMSG (4,0,NAME)\r\n      RETURN\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n 9008 CALL MESAGE (-8,0,SUBR)\r\n      RETURN\r\nC\r\nC     MESSAGE TEXT\r\nC\r\n63470 FORMAT (49H0*** USER INFORMATION MESSAGE 6347, SUBSTRUCTURE ,\r\n     1        2A4,18H ADDED TO THE SOF.)\r\n63471 FORMAT (5X, 25HHIGHER LEVEL SUBSTRUCTURE,2X,2A4)\r\n63472 FORMAT (5X, 25HCOMBINED SUBSTRUCTURE    ,6(2X,2A4))\r\n63473 FORMAT (5X, 25HLOWER LEVEL SUBSTRUCTURE ,7(2X,2A4))\r\n63590 FORMAT (49H0*** USER INFORMATION MESSAGE 6359, SUBSTRUCTURE ,\r\n     1        2A4,41H WAS ORIGINALLY A SECONDARY SUBSTRUCTURE./36X,\r\n     2        42HON THIS SOF, IT IS A PRIMARY SUBSTRUCTURE.)\r\n      END\r\n"
  },
  {
    "path": "mis/exo2.f",
    "content": "      SUBROUTINE EXO2\r\nC\r\nC     EXO2 PERFORMS EXTERNAL FORMAT SOFOUT OPERATIONS\r\nC\r\n      EXTERNAL RSHIFT   ,ANDF\r\n      LOGICAL  UNIVAC\r\n      INTEGER  DRY      ,COR(1)   ,UNAME    ,TYPE     ,UNIT     ,\r\n     1         ITMS(50) ,SYSBUF   ,A        ,EOL      ,EOR      ,\r\n     2         DITSIZ   ,Z        ,ALL      ,Q4       ,T3       ,\r\n     3         MATRIC   ,TABLES   ,PHASE3   ,WHOLE(2) ,SUBR(2)  ,\r\n     4         BLANK    ,SOF      ,XXXX     ,SRD      ,PRC      ,\r\n     5         SWRT     ,EOG      ,EOI      ,SP       ,BAR      ,\r\n     6         SCR1     ,BUF1     ,BUF2     ,BUF3     ,ELTYPE   ,\r\n     7         BUF4     ,RC       ,HDR(7)   ,TYPOUT   ,BDIT     ,\r\n     8         BMDI     ,RSHIFT   ,ANDF     ,OFFSET\r\n      INTEGER  EQSS     ,BGSS     ,CSTM     ,LODS     ,LOAP     ,\r\n     1         PLTS     ,SOLN     ,LAMS\r\n      DOUBLE PRECISION   DZ(1)    ,DA\r\n      CHARACTER          UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,\r\n     1                   SWM*27\r\n      COMMON  /XMSSG /   UFM      ,UWM      ,UIM      ,SFM      ,\r\n     1                   SWM\r\n      COMMON  /BLANK /   DRY      ,X1(3)    ,UNAME(2) ,X2(6)    ,\r\n     1                   TYPE(2)  ,NAMES(10),UNIT     ,UNIVAC   ,\r\n     2                   LBUF     ,IADD\r\n      COMMON  /SYSTEM/   SYSBUF   ,NOUT     ,X3(6)    ,NLPP     ,\r\n     1                   X4(2)    ,LINE     ,X6(9)    ,MACH\r\n      COMMON  /NAMES /   RD       ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW\r\n      COMMON  /TYPE  /   PRC(2)   ,NWORD(4)\r\n      COMMON  /ZNTPKX/   A(4)     ,IROW     ,EOL      ,EOR\r\n      COMMON  /SOF   /   X5(3)    ,DITSIZ\r\n      COMMON  /ITEMDT/   NITEM    ,ITEMS(7,1)\r\n      COMMON  /ZZZZZZ/   Z(1)\r\n      EQUIVALENCE        (COR(1)  ,Z(1))\r\n      EQUIVALENCE        (Z(1)    ,DZ(1))   ,(A(1)    ,DA)\r\n      DATA     ALL      ,MATRIC   ,TABLES   ,PHASE3   ,WHOLE          /\r\n     1         4HALL    ,4HMATR   ,4HTABL   ,4HPHAS   ,4HWHOL  ,4HESOF/,\r\n     2         SUBR               ,BLANK    ,SOF      ,XXXX           /\r\n     3         4HEXO2   ,4H       ,4H       ,4HSOF    ,4HXXXX         /,\r\n     4         EQSS     ,BGSS     ,CSTM     ,LODS     ,LOAP           /\r\n     5         4HEQSS   ,4HBGSS   ,4HCSTM   ,4HLODS   ,4HLOAP         /,\r\n     6         PLTS     ,SOLN     ,LAMS     ,Q4       ,T3      ,BAR   /\r\n     7         4HPLTS   ,4HSOLN   ,4HLAMS   ,2HQ4     ,2HT3    ,2HBR  /,\r\n     8         SRD      ,SWRT     ,MORE     ,EOG      ,EOI     ,SP    /\r\n     9         1        ,2        ,1        ,2        ,3       ,1     /,\r\n     O         JH       ,SCR1     ,BDIT     ,BMDI                     /\r\n     A         1        ,301      ,4HDIT    ,4HMDI                    /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (NITEM .GT. 50) CALL ERRMKN (23,10)\r\n      NCORE = KORSZ(Z)\r\n      I     = NCORE - LBUF\r\n      IF (MACH .EQ. 4) I = I - LBUF\r\n      NCORE = I - 1\r\n      IRW   = IADD\r\n      IADD  = I\r\n      CALL EXFORT (3,UNIT,0,0,IRW,0,0)\r\n      BUF1  = NCORE - SYSBUF + 1\r\n      BUF2  = BUF1  - SYSBUF - 1\r\n      BUF3  = BUF2  - SYSBUF\r\n      BUF4  = BUF3  - SYSBUF\r\n      NCORE = BUF4  - 1\r\n      IF (BUF4 .LE. 0) GO TO 9008\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\nC\r\nC     CONSTRUCT ARRAY OF NAMES OF ITEMS TO BE COPIED\r\nC\r\n      IF (TYPE(1) .NE. ALL) GO TO 10\r\n      NITEMS = NITEM\r\n      DO 5 I = 1,NITEM\r\n    5 ITMS(I) = ITEMS(1,I)\r\n      GO TO 70\r\n   10 IF (TYPE(1) .NE. TABLES) GO TO 20\r\n      NITEMS = 0\r\n      DO 15 I = 1,NITEM\r\n      IF (ITEMS(2,I) .GT. 0) GO TO 15\r\n      NITEMS = NITEMS + 1\r\n      ITMS(NITEMS) = ITEMS(1,I)\r\n   15 CONTINUE\r\n      GO TO 70\r\n   20 IF (TYPE(1) .NE. MATRIC) GO TO 50\r\n      NITEMS = 0\r\n      DO 30 I = 1,NITEM\r\n      IF (ITEMS(2,I) .LE. 0) GO TO 30\r\n      NITEMS = NITEMS + 1\r\n      ITMS(NITEMS) = ITEMS(1,I)\r\n   30 CONTINUE\r\n      GO TO 70\r\n   50 IF (TYPE(1) .NE. PHASE3) GO TO 60\r\n      NITEMS = 0\r\n      DO 55 I = 1,NITEM\r\n      IF (ANDF(ITEMS(7,I),8) .EQ. 0) GO TO 55\r\n      NITEMS = NITEMS + 1\r\n      ITMS(NITEMS) = ITEMS(1,I)\r\n   55 CONTINUE\r\n      GO TO 70\r\n   60 NITEMS  = 2\r\n      ITMS(1) = TYPE(1)\r\n      ITMS(2) = TYPE(2)\r\n      IF (ITMS(2) .EQ. BLANK) NITEMS = 1\r\nC\r\nC     PUT NAMES OF ALL SUBSTRUCTURES TO BE COPIED AT TOP OF OPEN CORE\r\nC\r\n   70 NSS = 0\r\n      IF (NAMES(1).EQ.WHOLE(1) .AND. NAMES(2).EQ.WHOLE(2)) GO TO 90\r\n      DO 80 I = 1,9,2\r\n      IF (NAMES(I) .EQ. XXXX) GO TO 80\r\n      NSS = NSS + 1\r\n      IF (2*NSS .GT. NCORE) GO TO 9008\r\n      Z(2*NSS-1) = NAMES(I  )\r\n      Z(2*NSS  ) = NAMES(I+1)\r\n   80 CONTINUE\r\n      GO TO 110\r\n   90 N = DITSIZ/2\r\n      DO 100 I = 1,N\r\n      CALL FDIT (I,J)\r\n      IF (COR(J) .EQ. BLANK) GO TO 100\r\n      NSS = NSS + 1\r\n      IF (2*NSS .GT. NCORE) GO TO 9008\r\n      Z(2*NSS-1) = COR(J)\r\n      Z(2*NSS  ) = COR(J+1)\r\n  100 CONTINUE\r\n  110 ICORE  = 2*NSS + 3\r\n      LCORE  = NCORE - ICORE + 1\r\n      IDPCOR = ICORE/2 + 1\r\n      CALL PAGE\r\nC\r\nC     WRITE OUT DIT AND MDI CONTROL WORDS\r\nC\r\n      N = DITSIZ/2\r\n      IF (6*N .GT. LCORE) GO TO 9008\r\n      HDR(1) = BDIT\r\n      HDR(2) = BLANK\r\n      HDR(3) = BLANK\r\n      HDR(4) = 2\r\n      HDR(5) = DITSIZ\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      DO 112 I = 1,N\r\n      CALL FDIT (I,J)\r\n      Z(ICORE+2*I-2) = COR(J)\r\n      Z(ICORE+2*I-1) = COR(J+1)\r\n  112 CONTINUE\r\n      CALL EXFORT (SWRT,UNIT,2,Z(ICORE),DITSIZ,SP,0)\r\n      HDR(1) = BMDI\r\n      HDR(4) = 10\r\n      HDR(5) = 6*N\r\n      HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      K = ICORE\r\n      DO 114 I = 1,N\r\n      CALL FMDI (I,J)\r\n      Z(K  ) = RSHIFT(COR(J+1),20)\r\n      Z(K+1) = ANDF(RSHIFT(COR(J+1),10),1023)\r\n      Z(K+2) = ANDF(COR(J+1),1023)\r\n      Z(K+3) = ANDF(RSHIFT(COR(J+2),20),1023)\r\n      Z(K+4) = ANDF(RSHIFT(COR(J+2),10),1023)\r\n      Z(K+5) = ANDF(COR(J+2),1023)\r\n      K = K + 6\r\n  114 CONTINUE\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),6*N,SP,0)\r\nC\r\nC     LOOP OVER ALL SUBSTRUCTURES AND ITEMS, COPYING EACH ONE TO THE\r\nC     EXTERNAL FILE\r\nC\r\n      DO 1000 ISS = 1,NSS\r\n      HDR(1) = Z(2*ISS-1)\r\n      HDR(2) = Z(2*ISS)\r\n      DO 990 ITEM = 1,NITEMS\r\n      HDR(3) = ITMS(ITEM)\r\n      ITM = ITTYPE (ITMS(ITEM))\r\n      IF (ITM .EQ. 1) GO TO 800\r\n      CALL SFETCH (HDR,HDR(3),SRD,RC)\r\n      GO TO (140,120,990,120,120), RC\r\n  120 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      IF (RC .GT. 3) GO TO 130\r\n      WRITE (NOUT,6340) UWM,(HDR(I),I=1,3)\r\n      GO TO 990\r\n  130 CALL SMSG (RC-2,HDR(3),HDR)\r\n      GO TO 990\r\n  140 CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\nC\r\n      IF (ITMS(ITEM) .EQ. EQSS) GO TO 200\r\n      IF (ITMS(ITEM) .EQ. BGSS) GO TO 300\r\n      IF (ITMS(ITEM) .EQ. CSTM) GO TO 400\r\n      IF (ITMS(ITEM) .EQ. LODS) GO TO 500\r\n      IF (ITMS(ITEM) .EQ. LOAP) GO TO 500\r\n      IF (ITMS(ITEM) .EQ. PLTS) GO TO 600\r\n      IF (ITMS(ITEM) .EQ. SOLN) GO TO 700\r\n      IF (ITMS(ITEM) .EQ. LAMS) GO TO 700\r\n      GO TO 1100\r\nC\r\nC     EQSS\r\nC\r\nC     GROUP 0\r\nC\r\n  200 N  = NWDS\r\n      NS = Z(ICORE+2)\r\n      IF (NS .GT. 13) N = 30\r\n      HDR(4) = 3\r\n      HDR(5) = N\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      IF (N .LT. NWDS) HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),N,SP,0)\r\n      IF (N .EQ. NWDS) GO TO 210\r\n      HDR(4) = 2\r\n      HDR(5) = NWDS - N\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,2,Z(ICORE+N),NWDS-N,SP,0)\r\nC\r\nC     GROUPS 1 TO NS + 1\r\nC\r\n  210 HDR(4) = 10\r\n      NS = NS + 1\r\n      DO 220 J = 1,NS\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(5) = NWDS\r\n      IF (J .EQ. NS) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0)\r\n  220 CONTINUE\r\n      GO TO 900\r\nC\r\nC     BGSS\r\nC\r\nC     GROUP 0\r\nC\r\n  300 HDR(4) = 3\r\n      HDR(5) = 3\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),3,SP,0)\r\nC\r\nC     GROUP 1\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 6\r\n      HDR(5) = NWDS\r\n      HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,6,Z(ICORE),NWDS,SP,0)\r\n      GO TO 900\r\nC\r\nC     CSTM\r\nC\r\nC     GROUP 0\r\nC\r\n  400 HDR(4) = 3\r\n      HDR(5) = 2\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),2,SP,0)\r\nC\r\nC     GROUP 1\r\nC\r\n      IF (ICORE+13 .GT. NCORE) GO TO 9008\r\n  420 CALL SUREAD (Z(ICORE),14,NWDS,RC)\r\n      IF (RC .EQ. 2) GO TO 430\r\n      HDR(4) = 8\r\n      HDR(5) = 4\r\n      HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,8,Z(ICORE),4,SP,0)\r\n      HDR(4) = 9\r\n      HDR(5) = 10\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,9,Z(ICORE+4),10,SP,0)\r\n      GO TO 420\r\n  430 HDR(5) = 0\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      HDR(4) = 0\r\n      HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      GO TO 900\r\nC\r\nC     LODS AND LOAP\r\nC\r\nC     GROUP 0\r\nC\r\n  500 N  = NWDS\r\n      NS = Z(ICORE+3)\r\n      IF (NS .GT. 13) N = 30\r\n      HDR(4) = 3\r\n      HDR(5) = N\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      IF (N .LT. NWDS) HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),N,SP,0)\r\n      IF (N .EQ. NWDS) GO TO 510\r\n      HDR(4) = 2\r\n      HDR(5) = NWDS -  N\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,2,Z(ICORE+N),NWDS-N,SP,0)\r\nC\r\nC     GROUP 1 TO NS\r\nC\r\n  510 HDR(4) = 10\r\n      DO 520 J = 1,NS\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(5) = NWDS\r\n      IF (J .EQ. NS) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0)\r\n  520 CONTINUE\r\n      GO TO 900\r\nC\r\nC     PLTS\r\nC\r\nC     GROUP 0\r\nC\r\n  600 N  = NWDS\r\n      NS = Z(ICORE+2)\r\n      HDR(6) = SP\r\n      HDR(4) = 3\r\n      HDR(5) = 3\r\n      HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),3,SP,0)\r\n      DO 620 J = 1,NS\r\n      HDR(4) = 13\r\n      HDR(5) = 4\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,13,Z(ICORE+14*J-11),4,SP,0)\r\n      HDR(4) = 9\r\n      HDR(5) = 10\r\n      IF (J .EQ. NS) HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,9,Z(ICORE+14*J-7),10,SP,0)\r\n  620 CONTINUE\r\nC\r\nC     GROUP 1 -- BGPDT\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .EQ. 3) GO TO 680\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 6\r\n      HDR(5) = NWDS\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,6,Z(ICORE),NWDS,SP,0)\r\nC\r\nC     GROUP 2 -- EQEXIN\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 10\r\n      HDR(5) = NWDS\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0)\r\nC\r\nC     GROUP 3 -- GPSETS\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 10\r\n      HDR(5) = NWDS\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0)\r\nC\r\nC     GROUP 4 -- ELSETS\r\nC\r\nC     OUTPUT CHANGES MADE BY G.CHAN/UNISYS   4/91\r\nC\r\nC     IN 90 AND EARLIER VERSIONS, ONLY ONE ELEMENT PLOT SYMBOL WORD WAS\r\nC     WRITTEN OUT USING FORMAT 2, AND ON NEXT ELSETS DATA LINE, FORMAT\r\nC     10 WAS USED FOR ALL ELEMENTS. NO OFFSET DATA WAS PROVIDED FOR THE\r\nC     BAR, QUAD4 AND TRIA3 ELEMENTS. THE NO. OF GRID POINT PER ELEMENT,\r\nC     NGPEL, WAS THE FIRST WORD ON THE ELSETS DATA LINE.  (LINE=RECORD)\r\nC     ALSO, THE 90 AND EARLIER VERSIONS DID NOT COUNT PROPERTY ID, PID,\r\nC     ON THE ELSETS DATA LINE. THUS THE TOTAL NO. OF WORDS MAY BE IN\r\nC     ERROR AND MAY CAUSE EXTRA ZEROS TO APPEAR AT THE END OF THE LINE.\r\nC\r\nC     IN 91 VERSION, ELEMENT PLOT SYMBOL LINE HAS 2 WORDS, SYMBOL AND\r\nC     NGPEL, AND FORMAT 25 IS USED. ON NEXT ELSETS DATA LINE, FORMAT 10\r\nC     IS USED FOR ALL ELEMENTS WITH NO OFFSETS. FORMAT 26 IS USED FOR\r\nC     THE BAR WHICH HAS 6 OFFSET VALUES, AND FORMATS 27 AND 28 ARE USED\r\nC     FOR TRIA3 AND QUAD4 WHICH HAVE 1 OFFSET VALUE EACH. NOTE THAT\r\nC     NGPEL HAS BEEN MOVED, AND IS NO LONGER THE FIRST WORD ON THE\r\nC     ELSETS DATA LINE.\r\nC\r\n      HDR(7) = MORE\r\nC\r\nC     READ PLOT SYMBOL, AND NO. OF GRID POINTS PER ELEMENT\r\nC     SET UP NO. OF OFFSET DATA FOR BAR, QUAD4 AND TRIA3\r\nC\r\n  640 CALL SUREAD (Z(ICORE),2,NWDS,RC)\r\n      IF (RC .GE. 2) GO TO 670\r\n      HDR(4) = 25\r\n      HDR(5) = 2\r\n      NGPEL  = Z(ICORE+1)\r\n      ELTYPE = Z(ICORE  )\r\n      OFFSET = 0\r\n      IF (ELTYPE .EQ. BAR) OFFSET = 6\r\n      IF (ELTYPE.EQ.Q4 .OR. ELTYPE.EQ.T3) OFFSET = 1\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,25,Z(ICORE),2,SP,0)\r\nC\r\nC     READ ELEMENT ID NUMBER, PROPERTY ID, GRID POINT CONNECTION INDICES\r\nC     AND OFFSETS IF THEY EXIST\r\nC     (ERROR IN 90 AND EARLIER VERSIONS, PROPERTY ID WAS LEFT OUT, AND\r\nC     THEREFORE DATA COUNT PER ELEMENT WAS INCORRECT)\r\nC\r\n      N = ICORE - NGPEL - 2 - OFFSET\r\n  650 N = N     + NGPEL + 2 + OFFSET\r\n      IF (N .GT. NCORE) GO TO 9008\r\n      CALL SUREAD (Z(N),1,NWDS,RC)\r\n      IF (Z(N) .EQ. 0) GO TO 655\r\n      IF (N+NGPEL+2+OFFSET .GT. NCORE) GO TO 9008\r\n      CALL SUREAD (Z(N+1),NGPEL+1,NWDS,RC)\r\n      IF (OFFSET .NE. 0) CALL SUREAD (Z(N+NGPEL+2),OFFSET,NWDS,RC)\r\n      GO TO (650,6100,6100), RC\r\nC\r\nC     ALL ELEMENTS OF ONE TYPE READ INTO CORE, NOW COPY OUT\r\nC\r\n  655 HDR(5) = N - ICORE + 1\r\n      IF (OFFSET-1) 660,  661,  663\r\nC               REGULAR  QUAD4  BAR\r\nC               ELEMENT  TRIA3\r\nC\r\n  660 HDR(4) = 10\r\n      GO TO 665\r\n  661 HDR(4) = 27\r\n      IF (ELTYPE .EQ. Q4) HDR(4) = 28\r\n      GO TO 665\r\n  663 HDR(4) = 26\r\n  665 CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,HDR(4),Z(ICORE),HDR(5),SP,0)\r\n      GO TO 640\r\nC\r\nC     WRITE END-OF-ITEM FOR PLTS\r\nC\r\n  670 HDR(5) = 0\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n  680 HDR(4) = 0\r\n      HDR(5) = 0\r\n      HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      GO TO 900\r\nC\r\nC     SOLN AND LAMS\r\nC\r\n  700 IRFNO = Z(ICORE+2)\r\n      IF (IRFNO .EQ. 1) GO TO 715\r\n      IF (IRFNO .EQ. 2) GO TO 715\r\n      IF (IRFNO .EQ. 3) GO TO 730\r\n      IF (IRFNO .EQ. 8) GO TO 750\r\n      IF (IRFNO .EQ. 9) GO TO 750\r\n      LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,6358) SWM,IRFNO,HDR(1),HDR(2)\r\n      GO TO 900\r\nC\r\nC     GROUP 0 -- STATICS\r\nC\r\n  715 N  = NWDS\r\n      NS = Z(ICORE+3)\r\n      IF (NS .GT. 6) N = 23\r\n      NS = Z(ICORE+4)\r\n      HDR(4) = 16\r\n      HDR(5) = N\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      IF (N .LT. NWDS) HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,16,Z(ICORE),N,SP,0)\r\n      IF (N .EQ. NWDS) GO TO 710\r\n      HDR(4) = 17\r\n      HDR(5) = NWDS - N\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,17,Z(ICORE+N),NWDS-N,SP,0)\r\nC\r\nC     GROUPS 1 TO NS (ONE PER SUBCASE) -- STATICS\r\nC\r\n  710 DO 720 J = 1,NS\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      N = NWDS\r\n      IF (Z(ICORE) .GT. 5) N = 11\r\n      HDR(4) = 18\r\n      HDR(5) = N\r\n      HDR(7) = EOG\r\n      IF (J .EQ. NS) HDR(7) = EOI\r\n      IF (N .LT. NWDS) HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,18,Z(ICORE),N,SP,0)\r\n      IF (N .EQ. NWDS) GO TO 720\r\n      HDR(4) = 19\r\n      HDR(5) = NWDS - N\r\n      HDR(7) = EOG\r\n      IF (J .EQ. NS) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,19,Z(ICORE+N),NWDS-N,SP,0)\r\n  720 CONTINUE\r\n      GO TO 900\r\nC\r\nC     GROUP 0 -- NORMAL MODES (REAL OR COMPLEX)\r\nC\r\n  730 NS = Z(ICORE+3)\r\n      HDR(4) = 3\r\n      HDR(5) = 4\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      IF (NS .LE. 0) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,3,Z(ICORE),4,SP,0)\r\n      IF (NS .LE. 0) GO TO 900\r\nC\r\nC     GROUP 1 -- NORMAL MODES\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 20\r\n      HDR(5) = NWDS\r\n      HDR(7) = EOI\r\n      IF (ITMS(ITEM) .EQ. LAMS) HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,20,Z(ICORE),NWDS,SP,0)\r\n      IF (ITMS(ITEM) .NE. LAMS) GO TO 900\r\nC\r\nC     GROUP 2 -- NORMAL MODES (LAMS ITEM ONLY)\r\nC\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 10\r\n      HDR(5) = NWDS\r\n      HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),NWDS,SP,0)\r\n      GO TO 900\r\nC\r\nC     GROUP 0 -- DYNAMICS\r\nC\r\n  750 NS    = Z(ICORE+3)\r\n      NWDS0 = 3*NS + 5\r\n      N     = NWDS0\r\n      IF (NS .GT. 6) N = 23\r\n      NS    = Z(ICORE+4) + 1\r\n      IF (Z(ICORE+NWDS0) .EQ. 0) NS = 1\r\n      HDR(4) = 16\r\n      HDR(5) = N\r\n      HDR(6) = SP\r\n      HDR(7) = MORE\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,16,Z(ICORE),N,SP,0)\r\n      IF (N .EQ. NWDS0) GO TO 760\r\n      HDR(4) = 17\r\n      HDR(5) = NWDS0 - N\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,17,Z(ICORE+N),NWDS0-N,SP,0)\r\n  760 HDR(4) = 10\r\n      HDR(5) = NWDS - NWDS0\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE+NWDS0),NWDS-NWDS0,SP,0)\r\nC\r\nC     GROUP 1 TO NS+1 -- DYNAMICS\r\nC\r\n      DO 770 J = 1,NS\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      HDR(4) = 9\r\n      HDR(5) = NWDS\r\n      HDR(7) = EOG\r\n      IF (J .EQ. NS) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,9,Z(ICORE),NWDS,SP,0)\r\n  770 CONTINUE\r\n      GO TO 900\r\nC\r\nC     UNKNOWN TABLE ITME\r\nC\r\n 1100 LINE = LINE + 2\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,6360) SWM,ITMS(ITEM)\r\n      GO TO 990\r\nC\r\nC     MATRICES\r\nC\r\nC     ON CDC MACHINE (NOT ANY 64-BIT MACHINE), FORCE ALL MATRIX DATA TO\r\nC     BE DOUBLE PRECISION SO THE EXTRA DIGITS WONT BE LOST GOING TO\r\nC     OTHER MACHINES\r\nC\r\nC     GROUP 0 -- MATRIX TRAILER\r\nC\r\n  800 CALL SOFTRL (HDR,HDR(3),Z(ICORE-1))\r\n      RC = Z(ICORE-1)\r\n      GO TO (805,120,990,120,120), RC\r\n  805 TYPOUT = Z(ICORE+3)\r\n      IF (MACH.EQ.4 .AND. PRC(TYPOUT).EQ.1) TYPOUT = TYPOUT + 1\r\n      Z(ICORE+3) = TYPOUT\r\n      NCOL   = Z(ICORE)\r\n      HDR(4) = 10\r\n      HDR(5) = 6\r\n      HDR(6) = SP\r\n      HDR(7) = EOG\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,10,Z(ICORE),6,SP,0)\r\nC\r\nC     MOVE MATRIX TO SCR2\r\nC\r\n      CALL MTRXI (SCR1,HDR,HDR(3),Z(BUF4),RC)\r\n      CALL GOPEN (SCR1,Z(BUF4),RDREW)\r\nC\r\nC     COPY MATRIX OUT ONE COLUMN AT A TIME, NON-ZEROES ONLY.\r\nC\r\nC                        ROW NO.  +\r\nC                        VALUE     +\r\nC                        ROW NO.    +\r\nC                        VALUE       I  FORMAT OF ONE MATRIX\r\nC                          .         I  COLUMN ON THE EXTERNAL\r\nC                          .         I  FILE.\r\nC                          .        +\r\nC                        -1        +\r\nC                        0.0      +\r\nC\r\n      HDR(4) = 20 + TYPOUT\r\n      HDR(6) = TYPOUT\r\n      IPRC   = PRC(TYPOUT)\r\n      N  = NWORD(TYPOUT) + IPRC\r\n      N2 = NWORD(TYPOUT) + 1\r\n      DO 830 J = 1,NCOL\r\n      NWDS = 0\r\n      K  = ICORE\r\n      CALL INTPK (*820,SCR1,0,TYPOUT,0)\r\n  810 CALL ZNTPKI\r\n      Z(K     ) = IROW\r\n      Z(K+IPRC) = A(1)\r\n      IF (TYPOUT .EQ. 1) GO TO 815\r\n      Z(K+IPRC+1) = A(2)\r\n      IF (TYPOUT .LE. 3) GO TO 815\r\n      Z(K+4) = A(3)\r\n      Z(K+5) = A(4)\r\n  815 NWDS = NWDS + N2\r\n      K = K + N\r\n      IF (K+N .GT. NCORE) GO TO 9008\r\n      IF (EOL .EQ.     0) GO TO 810\r\n  820 Z(K) = -1\r\n      Z(K+IPRC  ) = 0\r\n      Z(K+IPRC+1) = 0\r\n      Z(K+4) = 0\r\n      Z(K+5) = 0\r\n      NWDS   = NWDS + N2\r\n      HDR(5) = NWDS\r\n      IF (J .EQ. NCOL) HDR(7) = EOI\r\n      CALL EXFORT (SWRT,UNIT,JH,HDR,7,SP,0)\r\n      CALL EXFORT (SWRT,UNIT,20+TYPOUT,Z(ICORE),NWDS,TYPOUT,DZ(IDPCOR))\r\n  830 CONTINUE\r\n      CALL CLOSE (SCR1,REW)\r\nC\r\nC     WRITE USER MESSAGE FOR SUCCESSFUL COPY\r\nC\r\n  900 LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      WRITE (NOUT,6357) UIM,HDR(1),HDR(2),HDR(3),SOF,UNAME\r\n  990 CONTINUE\r\n 1000 CONTINUE\r\nC\r\nC     NORMAL MODULE COMPLETION.  WRITE LOGICAL EOF\r\nC\r\n      CALL EXFORT (4,UNIT,0,0,1,0,0)\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ABNORMAL MODULE COMPLETION\r\nC\r\n 6100 CALL SMSG (RC+4,ITMS(ITEM),HDR)\r\n      GO TO 9100\r\n 9008 CALL MESAGE (8,0,SUBR)\r\n 9100 DRY = -2\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     MESSAGE TEXT\r\nC\r\n 6340 FORMAT (A25,' 6340, SUBSTRUCTURE ',2A4,' ITEM ',A4, /5X,\r\n     1        ' PSEUDO-EXISTS ONLY AND CANNOT BE COPIED OUT BY EXIO.')\r\n 6357 FORMAT (A29,' 6357, SUBSTRUCTURE ',2A4,' ITEM ',A4,\r\n     1        ' SUCCESSFULLY COPIED FROM ',A4,' TO ',2A4)\r\n 6358 FORMAT (A27,' 6358, ILLEGAL RIGID FORMAT NUMBER ',I5,\r\n     1        ' IN SOLN ITEM FOR SUBSTRUCTURE ',2A4,1H.,\r\n     2        /34X,'THE ITEM WILL NOT BE COPIED.')\r\n 6360 FORMAT (A27,' 6360, SOFOUT (EXTERNAL) ENCOUNTERS A UNSUPPORTED ',\r\n     1        'TABLE ITEM ',A4, /35X,'THE ITEM WILL NOT BE COPIED.')\r\n      END\r\n"
  },
  {
    "path": "mis/extern.f",
    "content": "      SUBROUTINE EXTERN (NEX,NGRAV,GVECT,ILIST,PG,N1,IHARM)\r\nC\r\nC     GENERATES EXTERNAL LOADS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         PG(1),ILIST(1),NAME(2),IZ(1)\r\n      REAL            CORE,GVECT(1)\r\n      COMMON /TRANX / IDUM(14)\r\n      COMMON /BLANK / NROWSP\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /LOADX / LCARE,SLT,BGPDT,OLD,CSTM,SIL,ISIL,EST,MPT,NN(7),\r\n     1                NOBLD,IDIT,ICM,ILID\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /PACKX / ITYA,ITYB,II,JJ,INCUR\r\n      COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,IDITFL\r\n      COMMON /PINDEX/ IEST(45)\r\n      COMMON /GPTA1 / JDUM\r\n      EQUIVALENCE     (CORE(1),IZ(1))\r\n      DATA    CASECC, PERMBD,HCFLDS,REMFLS,SCR6,HCCENS, NAME         /\r\n     1        110   , 112   ,304   ,305   ,306 ,307   , 4HEXTE,4HRN  /\r\nC\r\n      IEST(1) =-1\r\n      IDUM(1) = 0\r\n      JOPEN = 0\r\n      IPRE  = 0\r\n      INCUR = 1\r\n      II    = 1\r\n      JJ    = NROWSP\r\n      NGRAV = 0\r\n      OLD   = 0\r\n      ICM   = 1\r\n      ITYA  = 1\r\n      ITYB  = 1\r\n      IBUF1 = LCARE - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      IBUF5 = IBUF4 - SYSBUF\r\n      LCORE = IBUF5 - SYSBUF\r\n      CALL GOPEN (SLT,CORE(IBUF1),0)\r\n      CALL GOPEN (BGPDT,CORE(IBUF2),0)\r\n      FILE = CSTM\r\n      CALL OPEN (*20,CSTM,CORE(IBUF3),0)\r\n      ICM  = 0\r\n      CALL SKPREC (CSTM,1)\r\n   20 CALL GOPEN (SIL,CORE(IBUF4),0)\r\n      FILE = SLT\r\n      ISIL = 0\r\n      IF (LCORE .LT. NROWSP) GO TO 1580\r\nC\r\n      III  = 1\r\n      DO 1400 NLOOP = 1,N1\r\nC\r\n      ILID = ILIST(III)\r\n      IF (ILID .NE. 0) GO TO 30\r\n      CALL SKPREC (SLT,1)\r\n      GO TO 1310\r\n   30 DO 40 I = 1,NROWSP\r\n   40 CORE(I) = 0.0\r\n      NOGRAV  = 0\r\n      NGROLD  = NGRAV\r\n   50 CALL READ (*1520,*1300,SLT,NOBLD,1,0,FLAG)\r\n      CALL FREAD (SLT,IDO,1,0)\r\n      IF (NOGRAV .EQ.  1) GO TO 1570\r\n      IF (NOBLD .EQ. -20) GO TO 800\r\n      GO TO (100,100,120,120,140,140,160,200,220,300,\r\n     1       320,340,600,620,630,640,360,700,730,800,\r\n     2       800,800,800,800,400), NOBLD\r\n  100 DO 110 J = 1,IDO\r\n  110 CALL DIRECT\r\n      GO TO 50\r\n  120 DO 130 J = 1,IDO\r\n  130 CALL TPONT\r\n      GO TO 50\r\n  140 DO 150 J = 1,IDO\r\n  150 CALL FPONT\r\n      GO TO 50\r\n  160 DO 170 J = 1,IDO\r\n  170 CALL SLOAD\r\n      GO TO 50\r\n  200 IF (NOGRAV .EQ. 2) GO TO 1570\r\n      DO 210 J = 1,IDO\r\n      CALL GRAV (NGRAV,GVECT(1),NEX,ILIST(1),NLOOP)\r\n  210 CONTINUE\r\n      NOGRAV = 1\r\n      GO TO 50\r\n  220 DO 230 J = 1,IDO\r\n  230 CALL PLOAD\r\n      GO TO 50\r\nC\r\nC     RFORCE CARDS\r\nC\r\n  300 DO 310 J = 1,IDO\r\n  310 CALL RFORCE (LCORE)\r\n      GO TO 50\r\nC\r\nC     PRESAX CARDS\r\nC\r\n  320 DO 330 J = 1,IDO\r\n  330 CALL PRESAX (IHARM)\r\n      GO TO 50\r\nC\r\nC     QHBDY CARDS\r\nC\r\n  340 DO 350 J = 1,IDO\r\n      CALL QHBDY\r\n  350 CONTINUE\r\n      GO TO 50\r\nC\r\nC     PLOAD3 CARDS\r\nC\r\n  360 DO 370 J = 1,IDO\r\n  370 CALL PLOAD3\r\n      GO TO 50\r\nC\r\nC     PLOAD4 CARDS\r\nC\r\n  400 CALL PLOAD4 (IBUF5,IDO,JOPEN)\r\n      GO TO 50\r\nC\r\nC     QVOL CARDS (MODIFIED USER ENTRYS)\r\nC\r\n  600 DO 610 J = 1,IDO\r\n      CALL QVOL\r\n  610 CONTINUE\r\n      GO TO 50\r\nC\r\nC     QBDY1 CARDS (MODIFIED USER ENTRYS)\r\nC\r\n  620 KKKK = 1\r\n      GO TO 650\r\nC\r\nC     QBDY2 CARDS (MODIFIED USER ENTRYS)\r\nC\r\n  630 KKKK = 2\r\n      GO TO 650\r\nC\r\nC     QVECT CARDS (MODIFIED USER ENTRYS)\r\nC\r\n  640 KKKK = 3\r\n  650 DO 660 J = 1,IDO\r\n      CALL QLOADL (KKKK)\r\n  660 CONTINUE\r\n      GO TO 50\r\nC\r\nC     PLOAD1 CARDS\r\nC\r\n  700 IF (IPRE .EQ. 1) GO TO 710\r\n      IPRE  = 1\r\n      LCORE = LCORE - SYSBUF - 1\r\n      MCORE = LCORE - NROWSP - 1\r\n      IF (LCORE .LT. NROWSP) GO TO 1580\r\n      CALL PREMAT (CORE(NROWSP+1),CORE(NROWSP+1),CORE(LCORE),MCORE,\r\n     1             NCORE,MPT,IDIT)\r\n  710 DO 720 J = 1,IDO\r\n      CALL PLBAR1 (IDO,LCORE)\r\n  720 CONTINUE\r\n      GO TO 50\r\nC\r\nC     PLOADX CARDS\r\nC\r\n  730 DO 740 J = 1,IDO\r\n      CALL PLOADX\r\n  740 CONTINUE\r\n      GO TO 50\r\nC\r\nC     CEMLOOP, SPCFLD, GEMLOOP, MDIPOLE, AND REMFLUX CARDS\r\nC\r\nC     BRING HEAT MATERIALS INTO CORE\r\nC\r\n  800 IF (IPRE .EQ. 1) GO TO 1230\r\n      IPRE = 1\r\nC\r\nC     1ST AND LAST AVAILABLE LOCATIONS IN OPEN CORE\r\nC\r\n      IIHMAT = NROWSP\r\n      NNHMAT = LCORE\r\n      MPTFIL = MPT\r\n      IDITFL = IDIT\r\n      CALL PREHMA (CORE)\r\nC\r\nC     NOW NNHMAT CONTAINS LAST LOCATION OF MATERIAL INFO\r\nC\r\n      NEXTZ = NNHMAT + 1\r\nC\r\nC     OPEN HCFLDS TO CONTAIN APPLIED MAGNETIC FIELD LOAD\r\nC\r\n      LCORE = LCORE - SYSBUF\r\n      IF (LCORE .LE. NEXTZ) GO TO 1580\r\nC\r\nC     STORE SILS  ON PERMBDY, IF ANY, INTO OPEN CORE\r\nC\r\n      NBDYS = 0\r\n      FILE  = PERMBD\r\n      CALL OPEN (*820,PERMBD,CORE(LCORE+1),0)\r\n      CALL FWDREC (*1520,PERMBD)\r\n      CALL READ (*1520,*810,PERMBD,CORE(NEXTZ),LCORE-NEXTZ+1,0,NBDYS)\r\n      GO TO 1580\r\n  810 CALL CLOSE (PERMBD,1)\r\n  820 CONTINUE\r\n      NEXTZ = NEXTZ + NBDYS\r\nC\r\nC     NOW CHECK FOR FORCE REQUESTS ON CASECC(MAGNETIC FIELD REQUESTS)\r\nC     MAKE A UNIQUE LIST OF ELEMENT ID-S CORRESPONDING TO ALL SUBCASES.\r\nC     IF A SUBCASE REQUESTS ALL, NO LIST IS NECESSARY.\r\nC\r\n      ALL    = 0\r\n      NELOUT = 0\r\n      IJ     = 0\r\nC\r\nC     1ST GET MAXIMUM LENGTH OF CASE CONTROL IN ORDER TO STORE ELEMENT\r\nC     ID-S\r\nC\r\n      NCC = 0\r\n      CALL GOPEN (CASECC,CORE(LCORE+1),0)\r\n  830 CALL READ (*850,*840,CASECC,CORE(NEXTZ),LCORE-NEXTZ+1,0,KCC)\r\n      GO TO 1580\r\n  840 NCC = MAX0(NCC,KCC)\r\n      GO TO 830\r\n  850 CALL REWIND (CASECC)\r\n      CALL FWDREC (*1520,CASECC)\r\n      KSET = NEXTZ + NCC\r\nC\r\n  860 CALL READ (*1200,*870,CASECC,CORE(NEXTZ),LCORE-NEXTZ+1,0,NCC)\r\n      GO TO 1580\r\n  870 SETNO = IZ(NEXTZ+25)\r\n      IF (SETNO .EQ. 0) GO TO 860\r\n      IF (SETNO .GT. 0) GO TO 1010\r\nC\r\nC     ALL\r\nC\r\n 1000 ALL    = 1\r\n      NELOUT = 0\r\n      GO TO 1200\r\nC\r\nC     CREATE UNIQUE LIST OF ELEMENT ID-S\r\nC\r\n 1010 ILSYM  = IZ(NEXTZ+165)\r\n      ISETNO = ILSYM  + IZ(ILSYM+NEXTZ-1) + NEXTZ\r\n 1020 ISET   = ISETNO + 2\r\n      NSET   = IZ(ISETNO+1) + ISET - 1\r\n      IF (IZ(ISETNO) .EQ. SETNO) GO TO 1030\r\n      ISETNO = NSET + 1\r\nC\r\nC     IF SET CANNOT BE FOUND, SET TO ALL. BUT SHOULD NOT HAPPEN\r\nC\r\n      IF (ISETNO .LT. NCC+NEXTZ-1) GO TO 1020\r\n      GO TO 1000\r\nC\r\nC     PICK UP ELEMENT ID-S. STORE IN UNIQUE LIST\r\nC\r\n 1030 I = ISET\r\n 1040 IF (I    .EQ. NSET) GO TO 1060\r\n      IF (IZ(I+1) .GT. 0) GO TO 1060\r\n      IB = IZ(I  )\r\n      N  =-IZ(I+1)\r\n      I  = I + 1\r\n      ASSIGN 1050 TO RET\r\n      GO TO 1100\r\n 1050 IB = IB + 1\r\n      IF (IB .LE. N) GO TO 1100\r\n      GO TO 1070\r\n 1060 IB = IZ(I)\r\n      ASSIGN 1070 TO RET\r\n      GO TO 1100\r\n 1070 I = I + 1\r\n      IF (I .LE. NSET) GO TO 1040\r\nC\r\nC     DONE WITH THIS SET. GO BACK FOR ANOTHER\r\nC\r\n      GO TO 860\r\nC\r\nC     SEARCH LIST OF ELEMENT ID-S. ADD ID TO LIST IF NOT A DUPLICATE\r\nC\r\n 1100 IF (IJ .NE. 0) GO TO 1110\r\n      MSET = KSET\r\n      IZ(MSET) = IB\r\n      NELOUT = 1\r\n      IJ = MSET\r\n      GO TO RET, (1050,1070)\r\n 1110 DO 1120 J = MSET,IJ\r\n      IF (IZ(J) .EQ. IB) GO TO RET, (1050,1070)\r\n 1120 CONTINUE\r\n      IJ = IJ + 1\r\n      IF (IJ .LT. LCORE) GO TO 1130\r\n      GO TO 1000\r\n 1130 IZ(IJ) = IB\r\n      NELOUT = NELOUT + 1\r\n      GO TO RET, (1050,1070)\r\nC\r\nC     DONE WITH ALL CASES. IF ALL.NE.1, MOVE THE ID-S UP IN CORE\r\nC\r\n 1200 CALL CLOSE (CASECC,1)\r\n      IF (ALL .EQ. 1) GO TO 1220\r\nC\r\n      DO 1210 J = 1,NELOUT\r\n 1210 IZ(NEXTZ+J-1) = IZ(MSET+J-1)\r\n      NEXTZ = NEXTZ + NELOUT\r\n 1220 CONTINUE\r\nC\r\n      CALL GOPEN (HCFLDS,CORE(LCORE+1),1)\r\n      I = LCORE - SYSBUF\r\n      J = I     - SYSBUF\r\n      LCORE = J - SYSBUF\r\n      IF (LCORE .LE. NEXTZ) GO TO 1580\r\n      CALL GOPEN (REMFLS,CORE(I+1),1)\r\n      CALL GOPEN (HCCENS,CORE(J+1),1)\r\n      CALL GOPEN (SCR6,CORE(LCORE+1),1)\r\nC\r\nC     NO DO LOOP ON IDO. IN EANDM WE WILL READ ALL CARDS\r\nC\r\n 1230 CALL EANDM (NOBLD,IDO,NEXTZ,LCORE,NBDYS,ALL,NELOUT)\r\n      GO TO 50\r\nC\r\nC\r\n 1300 IF (NGROLD .NE. NGRAV) GO TO 1400\r\n      CALL PACK (CORE,PG,PG(1))\r\n 1310 III = III + 1\r\nC\r\n 1400 CONTINUE\r\nC\r\n      CALL CLOSE (BGPDT,1)\r\n      IF (ICM .EQ. 0) CALL CLOSE (CSTM,1)\r\n      CALL CLOSE (SLT,1)\r\n      CALL CLOSE (SIL,1)\r\n      IF (IPRE .NE. 1) GO TO 1410\r\n      CALL CLOSE (HCFLDS,1)\r\n      CALL CLOSE (REMFLS,1)\r\n      CALL CLOSE (HCCENS,1)\r\n      CALL CLOSE (SCR6,1)\r\n 1410 CONTINUE\r\n      RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n 1520 IP1 = -2\r\n      GO TO 1600\r\n 1570 IP1 = -7\r\n      GO TO 1600\r\n 1580 IP1 = -8\r\n 1600 CALL MESAGE (IP1,FILE,NAME(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/f6211.f",
    "content": "      FUNCTION F6211(I,A,B,X)\r\n      DIMENSION  X(1)\r\n      XX = X(I)\r\n      IF ( (B * XX) ** 2 - A ** 2 ) 100,1,200\r\n    1 CONTINUE\r\n      IF (A .NE. B * XX) GO TO 50\r\n      F6211=0.5* (ALOG(ABS(2.0 * B * XX))) ** 2\r\n      RETURN\r\n   50 CONTINUE\r\n      F6211 = 0.0\r\n      RETURN\r\n  100 CONTINUE\r\n      F6211 = ALOG(ABS(A)) * ALOG(ABS(XX))\r\n      C1 =-B * XX / A\r\n      C2 = 1.0\r\n      J = 0\r\n  110 J = J + 1\r\n      AAJ = J\r\n      C2 = C2 * C1\r\n      C3 = C2 / (AAJ ** 2)\r\n      F6211 = F6211 - C3\r\n      IF (ABS(C3) .GT. 0.000001) GO TO 110\r\n      RETURN\r\n  200 CONTINUE\r\n      F6211 = (ALOG(ABS(B * XX)) ** 2) / 2.0\r\n      C1 =-A / (B * XX)\r\n      C2 = 1.0\r\n      J = 0\r\n  210 J = J + 1\r\n      AAJ = J\r\n      C2 = C2 * C1\r\n      C3 = C2 / (AAJ ** 2)\r\n      F6211 = F6211 + C3\r\n      IF (ABS(C3) .GT. 0.000001) GO TO 210\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/f89.f",
    "content": "      FUNCTION F89 (I,A,B,M,N,X)\r\nC\r\n      DIMENSION X(1)\r\nC\r\n      F89  = 0.0\r\n      CAPX = A + B*X(I)\r\n      NFAC = M\r\n      ASSIGN 5 TO IRET\r\n      GO TO 1000\r\n    5 AMF = IFAC\r\n      N1  = M + 1\r\n      N2  = N1 - N\r\n      AN1 = N1\r\n      AN2 = N2\r\n      IS  = 0\r\n      S   = 0.0\r\n      SF  = 1.0\r\n      AMMSF = AMF\r\n      GO TO 50\r\n   10 IS = IS + 1\r\n      S  = IS\r\n      SF = SF*S\r\n      AMMSF = AMMSF/(AN1-S)\r\n   50 CONTINUE\r\n      N3 = N2 - IS\r\n      IF (N3 .EQ. 0) GO TO 100\r\n      F89 = F89 + AMF*((-A)**IS)*(CAPX**N3)/(AMMSF*SF*(AN2-S))\r\n      GO TO 200\r\n  100 CONTINUE\r\n      NFAC = N2\r\n      ASSIGN 110 TO IRET\r\n      GO TO 1000\r\n  110 AMN1F = IFAC\r\n      NFAC  = N - 1\r\n      ASSIGN 120 TO IRET\r\n      GO TO 1000\r\n  120 ANM1F = IFAC\r\n      F89 = F89 + AMF*((-A)**N2)*ALOG(ABS(CAPX))/(AMN1F*ANM1F)\r\n  200 IF (IS .LT.  M) GO TO 10\r\n      IF (B .EQ. 0.0) GO TO 300\r\n      F89 = F89/(B**N1)\r\n      RETURN\r\nC\r\n  300 F89 = 0.0\r\n      RETURN\r\nC\r\n 1000 IFAC = 1\r\n      IF (NFAC .LT. 2) GO TO 1020\r\n      DO 1010 LFAC = 2,NFAC\r\n      IFAC = IFAC*LFAC\r\n 1010 CONTINUE\r\n 1020 GO TO IRET, (5,110,120)\r\n      END\r\n"
  },
  {
    "path": "mis/fa1.f",
    "content": "      SUBROUTINE FA1\r\nC\r\nC     FA1 IS THE DRIVER FOR PART ONE OF FLUTTER ANALYSIS\r\nC\r\n      INTEGER         SYSBUF,OUT,BUFF,BUFF1,NS(2),FLOOP,TSTART,\r\n     1                KHH,BHH,MHH,QHHL,CASECC,FLIST,FSAVE,KXHH,MXHH,\r\n     2                BXHH,SCR1,REC0(8),FLUT(10),IMETH(2),FMETHD,SMETH,\r\n     3                TRL(10),AERO(2),FLFACT(2),FLUTER(2),\r\n     4                SR,SM,SK,PR,PM,PK,SL,IBLOCK(12),METHOD(4)\r\n      REAL            BLOCK(12),REC(8),KFREQ,RHO\r\n      DIMENSION       DLT(3),Z(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUT\r\n      COMMON /BLANK / FLOOP,TSTART,ICEAD\r\n      COMMON /OUTPUT/ HDG(96)\r\n      COMMON /PACKX / ITI,ITO,IJ,NN,INCR1\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ IOUT,II,JJ,INCR\r\n      EQUIVALENCE     (REC0(1),REC(1))\r\n      EQUIVALENCE     (BLOCK(1),IBLOCK(1))\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA  KHH /101/,   BHH /102/,  MHH /103/, QHHL /104/, CASECC /105/\r\n     1,   FLIST /106/, FSAVE /201/, KXHH /202/, BXHH /203/,   MXHH /204/\r\n      DATA  SCR1/301/,    NS /4HFA1 ,4H    /\r\n      DATA  IMETH   /  4HS   ,4HL   /\r\n      DATA  NMD /4  /, METHOD/4HK   ,4HKE  ,4HPK  ,4HINV /\r\n      DATA  TRL     /  90,1006,7*0,6 /\r\n      DATA  AERO    /  3202,32 /,   FLFACT /4102,41/,   FLUTER /3902,39/\r\nC\r\n      DO 5 I = 1,12\r\n    5 IBLOCK(I) = 0\r\n      NCORE = KORSZ(IZ)\r\n      BUFF  = NCORE - SYSBUF - 1\r\n      BUFF1 = BUFF  - SYSBUF\r\n      IF (FLOOP .NE. 0) GO TO 200\r\nC\r\nC     FIRST TIME THROUGH FIND FMETHOD ON CASECC\r\nC\r\n      IFILE = CASECC\r\n      CALL GOPEN (CASECC,IZ(BUFF+1),0)\r\n      CALL READ (*530,*10,CASECC,IZ,BUFF,1,NWR)\r\n   10 LCC = NWR\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     GET DATA FOR REC0 OF FSAVE\r\nC\r\n      CALL FNAME (FSAVE,REC0)\r\n      IFILE = FLIST\r\n      CALL PRELOC (*480,IZ(BUFF+1),FLIST)\r\n      CALL LOCATE (*470,IZ(BUFF+1),AERO,IDUM)\r\n      CALL READ (*530,*530,FLIST,REC0(4),4,1,NWR)\r\n      REC(6) = REC(6)*0.5\r\n      CALL LOCATE (*15,IZ(BUFF+1),FLFACT,IDUM)\r\n      CALL READ (*530,*20,FLIST,IZ(LCC+1),BUFF,1,NWR)\r\n      GO TO 400\r\n   15 NWR = 0\r\n   20 LFL = NWR + LCC\r\n      CALL LOCATE (*450,IZ(BUFF+1),FLUTER,IDUM)\r\n   30 CALL READ (*530,*450,FLIST,FLUT,10,0,NWR)\r\n      I165 = 165\r\n      IF (FLUT(1) .NE. IZ(I165)) GO TO 30\r\n      CALL CLOSE (FLIST,1)\r\n      REC0(8) = FLUT(9)\r\n      IEP = FLUT(10)\r\n      DO 40 I = 1,NMD\r\n      IF (FLUT(2) .EQ. METHOD(I)) GO TO 50\r\n   40 CONTINUE\r\n      GO TO 490\r\n   50 REC0(3) = I\r\n      FMETHD = I\r\n      GO TO (60,60,61,490), I\r\n   60 REC0(4) = 0\r\n      IF (FLUT(7) .EQ. IMETH(1)) REC0(4) = 1\r\n      IF (FLUT(7) .EQ. IMETH(2)) REC0(4) = 2\r\n      IF (REC0(4) .EQ. 0) GO TO 430\r\n      SMETH = REC0(4)\r\n      GO TO 65\r\nC\r\nC     PK METHOD HAS LINEAR SPLINE ONLY\r\nC\r\n   61 REC0(4) = 2\r\n      SMETH = 2\r\n   65 CONTINUE\r\nC\r\nC     BUILD RECORDS 0,1,2,3 OF SAVE\r\nC\r\n      IFILE = FSAVE\r\n      CALL OPEN (*480,FSAVE,IZ(BUFF+1),1)\r\n      CALL WRITE (FSAVE,REC0,8,1)\r\n      BREF = REC(6)\r\n      RREF = REC(7)\r\n      NEIW = REC0(8)\r\nC\r\nC     BUILD M,K,RHO LIST FOR FLUTTER LOOP\r\nC\r\n      SR = 0\r\n      SM = 0\r\n      SK = 0\r\n      I  = LCC\r\n      IF (I .EQ. LFL) GO TO 410\r\n   70 I  = I + 1\r\n      IF (IZ(I) .EQ. FLUT(4)) SR = I\r\n      IF (IZ(I) .EQ. FLUT(5)) SM = I\r\n      IF (IZ(I) .EQ. FLUT(6)) SK = I\r\n   80 I = I + 1\r\n      IF (I .GE. LFL) GO TO 90\r\n      IF (IZ(I) .EQ. -1) GO TO 70\r\n      GO TO 80\r\n   90 IF (SR.EQ.0 .OR. SM.EQ.0 .OR. SK.EQ.0) GO TO 410\r\n      NRHO = 0\r\n      PR = SR\r\n   95 PR = PR + 1\r\n      IF (IZ(PR) .EQ. -1) GO TO 97\r\n      NRHO = NRHO + 1\r\n      GO TO 95\r\n   97 NLOOPS = 0\r\n      IF (FMETHD .NE. 3) GO TO 105\r\nC\r\nC     J.PETKAS/LOCKHEED      3/91\r\nC     19 LINES OF OLD CODE FOR BUILDING ELEMENTS OF FSAVE FOR PK METHOD\r\nC     WERE IN ERROR, AND ARE NOW REPLACED BY NEXT 29 NEW LINES\r\nC\r\n      PM = SM\r\n  101 PM = PM + 1\r\n      IF (IZ(PM) .EQ. -1) GO TO 130\r\n      DLT(1) = Z(PM)\r\nC\r\nC     CENTER LOOP ON RHO\r\nC\r\n      PR = SR\r\n  102 PR = PR + 1\r\n      IF (IZ(PR) .EQ. -1) GO TO 101\r\n      DLT(3) = Z(PR)\r\nC\r\nC     INNER LOOP ON VELOCITY\r\nC\r\n      PK = SK\r\n  103 PK = PK + 1\r\n      IF (IZ(PK) .EQ. -1) GO TO 102\r\n      DLT(2) = Z(PK)\r\n      NLOOPS = NLOOPS + 1\r\n      CALL WRITE (FSAVE,DLT,3,0)\r\n      GO TO 103\r\nC\r\nC     ALGORITHM FOR BUILDING ELEMENTS OF FSAVE FOR K AND KE METHODS\r\nC\r\n  105 CONTINUE\r\nC\r\nC     OUTER LOOP ON MACH NUMBER\r\nC\r\n      PM = SM\r\n  107 PM = PM + 1\r\n      IF (IZ(PM) .EQ. -1) GO TO 130\r\n      DLT(1) = Z(PM)\r\nC\r\nC     CENTER LOOP ON KFREQ\r\nC\r\n      PK = SK\r\n  110 PK = PK + 1\r\n      IF (IZ(PK) .EQ. -1) GO TO 107\r\n      DLT(2) = Z(PK)\r\nC\r\nC     INNER LOOP ON RHO\r\nC\r\n      PR = SR\r\n  120 PR = PR + 1\r\n      IF (IZ(PR) .EQ. -1) GO TO 110\r\n      DLT(3) = Z(PR)\r\n      NLOOPS = NLOOPS + 1\r\n      CALL WRITE (FSAVE,DLT,3,0)\r\n      GO TO 120\r\n  130 CALL WRITE (FSAVE,0,0,1)\r\nC\r\nC     PICK UP M AND K FROM QHHL\r\nC\r\n      IFILE = QHHL\r\n      CALL OPEN (*480,QHHL,IZ(BUFF1+1),0)\r\n      CALL READ (*530,*140,QHHL,IZ(LCC+1),BUFF1,1,NWR)\r\n      GO TO 400\r\n  140 LFL = NWR + LCC\r\n      SL  = LCC + 5\r\n      CALL CLOSE (QHHL,1)\r\n      REC0(1) = QHHL\r\n      CALL RDTRL (REC0)\r\n      NP  = MIN0(IZ(SL-1),REC0(2)/REC0(3))\r\n      LFL = MIN0(LFL,2*NP+SL-1)\r\n      NP  = LFL - SL + 1\r\n      CALL WRITE (FSAVE,IZ(SL),NP,1)\r\n      NP  = NP/2\r\nC\r\nC     WRITE CASECC RECORD AND TRAILER\r\nC\r\n      CALL WRITE (FSAVE,IZ(1),LCC,1)\r\n      CALL CLOSE (FSAVE,1)\r\n      REC0(1) = FSAVE\r\n      REC0(2) = FLOOP\r\n      REC0(3) = NLOOPS\r\n      REC0(4) = NP\r\n      REC0(5) = LCC\r\n      REC0(6) = 0\r\n      REC0(7) = NRHO\r\n      CALL WRTTRL (REC0)\r\n      GO TO 210\r\n  200 IFILE = FSAVE\r\n      CALL OPEN (*480,FSAVE,IZ(BUFF+1),0)\r\n      CALL READ (*530,*530,FSAVE,IZ(1),8,1,NWR)\r\n      CALL CLOSE (FSAVE,1)\r\n      IZX   = 0\r\n      FMETHD= IZ(IZX+3)\r\n      SMETH = IZ(IZX+4)\r\n      BREF  =  Z(IZX+6)\r\n      RREF  =  Z(IZX+7)\r\n      NEIW  = IZ(IZX+8)\r\n  210 REC0(1) = FSAVE\r\n      CALL RDTRL (REC0)\r\nC\r\nC     START OF LOOPING BUMP LOOP COUNTER SET TIME AND GO\r\nC\r\n      FLOOP = FLOOP + 1\r\n      NLOOPS= REC0(3)\r\n      CALL KLOCK (TSTART)\r\n      GO TO (220,230,240,490), FMETHD\r\nC\r\nC     K METHOD BUILD PROPER QHH ON SCR1\r\nC\r\n  220 CALL FA1K (SMETH,KFREQ,RHO,SCR1,0)\r\n      GO TO 300\r\nC\r\nC     KE METHOD DO INCORE EIGNVALUE EXTRACTION\r\nC\r\n  230 REC0(1) = BHH\r\n      CALL RDTRL (REC0)\r\n      IF (REC0(1).GT.0 .AND. REC0(7).GT.0) GO TO 510\r\n      REC0(1) = KHH\r\n      CALL RDTRL (REC0)\r\n      ICO = REC0(2)*REC0(2)*4 + 4\r\n  235 CALL FA1K (SMETH,KFREQ,RHO,SCR1,ICO)\r\n      CALL FA1KE (SCR1,KFREQ,BREF,RHO,RREF,FLOOP,NLOOPS)\r\n      IF (FLOOP .GE. NLOOPS) GO TO 350\r\n      FLOOP = FLOOP + 1\r\n      GO TO 235\r\nC\r\nC     PK METHOD  LINEAR INTERPOLATION  AND INCORE LOOP FOR\r\nC     EIGENVALUE CONVERGENCE\r\nC\r\n  240 CALL FA1PKI (FSAVE,QHHL)\r\n      CALL FA1PKE (KHH,BHH,MHH,BXHH,FSAVE,NLOOPS,BREF,RREF,NEIW,IEP)\r\n      IF (FLOOP .GE. NLOOPS) GO TO 250\r\n      FLOOP = FLOOP  + 1\r\n      GO TO 240\r\nC\r\nC     PHID  - KXHH   CLAMAD - BXHH\r\nC\r\n  250 IBUF = BUFF1 - SYSBUF\r\n      TRL(1) = SCR1\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(2) .EQ. 0) GO TO 350\r\n      CALL OPEN (*350,SCR1,Z(IBUF),0)\r\n      CALL READ (*290,*255,SCR1,REC,6,1,NWR)\r\n  255 CALL READ (*290,*260,SCR1,Z,IBUF,1,NWR)\r\n  260 NN = NWR/2\r\n      CALL GOPEN (KXHH,Z(BUFF),1)\r\n      CALL GOPEN (BXHH,Z(BUFF1),1)\r\n      CALL WRITE (BXHH,TRL(1),50,0)\r\n      CALL WRITE (BXHH,HDG,96,1)\r\n      TRL(1) = KXHH\r\n      TRL(2) = 0\r\n      TRL(3) = NN\r\n      TRL(4) = 2\r\n      TRL(5) = 3\r\n      ITI = 3\r\n      ITO = 3\r\n      IJ  = 1\r\n      INCR1 = 1\r\n  265 CALL WRITE (BXHH,REC,6,0)\r\n      CALL PACK  (Z,KXHH,TRL)\r\n      CALL READ  (*280,*270,SCR1,REC,6,1,NWR)\r\n  270 CALL READ  (*280,*265,SCR1,Z,IBUF,1,NWR)\r\n  280 CALL WRITE (BXHH,0,0,1)\r\n      CALL CLOSE (BXHH,1)\r\n      CALL CLOSE (KXHH,1)\r\n      CALL WRTTRL (TRL)\r\n      TRL(1) = BXHH\r\n      TRL(2) = 1006\r\n      TRL(7) = 0\r\n      CALL WRTTRL (TRL)\r\n  290 CALL CLOSE (SCR1,1)\r\n      GO TO 350\r\nC\r\nC     COPY KHH TO KXHH\r\nC\r\n  300 CALL GOPEN (KHH,IZ(BUFF+1),0)\r\n      CALL GOPEN (KXHH,IZ(BUFF1+1),1)\r\n      REC0(1) = KHH\r\n      CALL RDTRL (REC0)\r\n      REC0(1) = KXHH\r\n      IOUT = REC0(5)\r\n      INCR = 1\r\n      I = REC0(2)\r\n      REC0(2) = 0\r\n      REC0(6) = 0\r\n      REC0(7) = 0\r\n      CALL CYCT2B (KHH,KXHH,I,Z,REC0)\r\n      CALL CLOSE  (KHH,1)\r\n      CALL CLOSE  (KXHH,1)\r\n      CALL WRTTRL (REC0)\r\nC\r\nC     BUILD BXHH = (K/B)BHH\r\nC\r\n      REC0(1) = BHH\r\n      CALL RDTRL (REC0)\r\n      IF (REC0(1) .LE. 0) GO TO 310\r\n      IBLOCK(2) = 1\r\n      BLOCK(3) = KFREQ/BREF\r\n      CALL SSG2C (BHH,0,BXHH,0,BLOCK(2))\r\n  310 CONTINUE\r\nC\r\nC                2  2\r\nC     MXHH  =  (K /B ) MHH  + (RHO*RREF/2.0) QHH\r\nC\r\n      IBLOCK(2) = 1\r\n      BLOCK (3) = (KFREQ*KFREQ)/(BREF*BREF)\r\n      IBLOCK(8) = 1\r\n      BLOCK (9) = RHO*RREF/2.0\r\n      CALL SSG2C (MHH,SCR1,MXHH,0,BLOCK(2))\r\nC\r\nC     THE END\r\nC\r\n  350 CONTINUE\r\n      REC0(1) = FSAVE\r\n      CALL RDTRL (REC0)\r\n      REC0(2) = FLOOP\r\n      CALL WRTTRL (REC0)\r\n      IF (FLOOP .EQ. NLOOPS) FLOOP = -1\r\n      ICEAD = 1\r\n      IF (FMETHD .EQ. 2) ICEAD = -1\r\n      IF (FMETHD .EQ. 3) ICEAD = -1\r\n      GO TO 600\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 CALL MESAGE (-8,0,NS)\r\n  410 WRITE  (OUT,420) UFM,FLUT(4),FLUT(5),FLUT(6)\r\n  420 FORMAT (A23,', ONE OR MORE OF THE FOLLOWING FLFACT SETS WERE NOT',\r\n     1       ' FOUND - ',3I9)\r\n      GO TO 540\r\n  430 WRITE  (OUT,440) UFM,FLUT(7)\r\n  440 FORMAT (A23,' 2267, INTERPOLATION METHOD ',A4,' UNKNOWN')\r\n      GO TO 540\r\n  450 I165 = 165\r\n      WRITE  (OUT,460) UFM,IZ(I165)\r\n  460 FORMAT (A23,' 2268, FMETHOD SET',I9,' NOT FOUND')\r\n      GO TO 540\r\n  470 CALL MESAGE (-7,0,NS)\r\n  480 CALL MESAGE (-1,IFILE,NS)\r\n  490 WRITE  (OUT,500) UFM,FLUT(2)\r\n  500 FORMAT (A23,' 2269, FLUTTER METHOD ',A4,' NOT IMPLEMENTED')\r\n      GO TO 540\r\n  510 WRITE  (OUT,520) UFM,FLUT(2)\r\n  520 FORMAT (A23,', FLUTTER METHOD ',A4,' NOT IMPLEMENTED WITH B ',\r\n     1       'MATRIX')\r\n      GO TO 540\r\n  530 CALL MESAGE (-3,IFILE,NS)\r\n  540 CALL MESAGE (-61,0,NS)\r\nC\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1k.f",
    "content": "      SUBROUTINE FA1K (IMETH,K,RHO,OUTFIL,ICO)\r\nC\r\nC     FA1K BUILDS AN INTERPOLATED MATRIX ON OUTFIL FROM QHHL OR FSAVE\r\nC\r\n      LOGICAL         NEW\r\n      INTEGER         SYSBUF,OUT,BUFF,BUFF1,FLOOP,NS(2),TYPE,TRL(7),\r\n     1                OUTFIL,FSAVE,QHHL,SCR2,SCR3,SCR4,MCB(7)\r\n      REAL            K\r\n      DIMENSION       Z(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /SYSTEM/ SYSBUF,OUT,DUM(52),IPREC\r\n      COMMON /BLANK / FLOOP\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA    FSAVE / 201/, QHHL /104/, SCR2,SCR3,SCR4 /302,303,304/\r\n      DATA    NS    / 4HFA1K,4H    /\r\nC\r\n      NCORE = KORSZ(IZ) - ICO\r\n      BUFF  = NCORE - SYSBUF\r\n      BUFF1 = BUFF  - SYSBUF\r\n      TRL(1)= FSAVE\r\n      CALL RDTRL (TRL)\r\nC\r\nC     READ IN DEPENDENT POINTS AND SET K AND RHO\r\nC\r\n      JJ    = TRL(3)*3\r\n      IFIL  = FSAVE\r\n      CALL GOPEN (FSAVE,IZ(BUFF+1),0)\r\n      CALL READ (*430,*5,FSAVE,Z,JJ,1,NWR)\r\n    5 CONTINUE\r\n      I     = (FLOOP-1)*3 + 1\r\n      CMACH = Z(I  )\r\n      K     = Z(I+1)\r\n      RHO   = Z(I+2)\r\n      INCR1 = 1\r\n      INCR  = 1\r\n      II    = 1\r\n      INN   = 1\r\n      GO TO (10,100), IMETH\r\nC\r\nC     SURFACE SPLINE INTERPOLATION\r\nC\r\n   10 IF (FLOOP .NE. 1) GO TO 70\r\nC\r\nC     SET UP CALL TO SPLINE INTERPOLATOR\r\nC\r\n      NRHO = TRL(7)\r\n      JI   = NRHO*3\r\n      J    = 1\r\n      DO 50 I = 1,JJ,JI\r\n      Z(J  ) = Z(I  )\r\n      Z(J+1) = Z(I+1)\r\n   50 J    = J + 2\r\n      ND   = JJ/JI\r\n      NI   = TRL(4)\r\n      TYPE = 1\r\n      IDP  = 1\r\n      IIP  = ND*2 + IDP\r\n      IG   = IIP + 2*NI\r\n      NI2  = NI*2\r\n      CALL READ (*430,*60,FSAVE,Z(IIP),NI2,1,NWR)\r\n   60 CALL FWDREC (*430,FSAVE)\r\n      CALL CLOSE (FSAVE,2)\r\nC\r\nC     REWRITE QHHL SO EACH LIST MATRIX IS A COLUMN\r\nC\r\n      GO TO 300\r\n   15 J  = 1\r\n   20 JI = IG\r\n      GO TO 350\r\n   30 IF (J .EQ. NCOL) GO TO 40\r\n      J  = J + 1\r\n      GO TO 20\r\n   40 CALL CLOSE (QHHL,1)\r\n      CALL CLOSE (OUTFIL,1)\r\n      CALL WRTTRL (TRL)\r\n      GO TO 200\r\nC\r\nC     GET A COLUMN FROM FSAVE AND BUILD QHH ON OUTFIL\r\nC\r\n   70 NF = 2 + (FLOOP-1)/TRL(7)\r\n      DO 80 I = 1,NF\r\n      CALL FWDREC (*430,FSAVE)\r\n   80 CONTINUE\r\n   85 IOUT = TRL(6)\r\n      ITI  = IOUT\r\n      ITO  = IOUT\r\n      NWC  = 1\r\n      IF (ITO.EQ.2 .OR. ITO.EQ.3) NWC = 2\r\n      IF (ITO .EQ. 4) NWC = 4\r\n      MCB(1) = QHHL\r\n      CALL RDTRL (MCB)\r\n      NC   = MCB(3)\r\n      NN   = NC\r\n      NNN  = NC*NC\r\n      CALL UNPACK (*410,FSAVE,Z)\r\n      IJ   = 1\r\n      CALL CLOSE (FSAVE,1)\r\n      CALL GOPEN (OUTFIL,IZ(BUFF+1),1)\r\n      MCB(1) = OUTFIL\r\n      MCB(2) = 0\r\n      MCB(3) = NC\r\n      MCB(4) = 1\r\n      MCB(5) = IOUT\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 90 I = 1,NC\r\n      CALL PACK (Z(IJ),OUTFIL,MCB)\r\n      IJ = IJ + NC*NWC\r\n   90 CONTINUE\r\n      CALL CLOSE (OUTFIL,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 450\r\nC\r\nC     LINEAR SPLINE INTERPOLATION\r\nC\r\nC\r\nC     IS A GOOD MATRIZ ON FSAVE\r\nC\r\n  100 EPS = .001\r\n      NEW = .TRUE.\r\n      NI  = TRL(4)\r\n      IF (FLOOP .EQ. 1) GO TO 110\r\n      OK    = Z(I-2)\r\n      OMACH = Z(I-3)\r\n      IF (ABS(CMACH-OMACH) .LT. EPS) NEW = .FALSE.\r\nC\r\nC     REWRITE QHHL IF NEW IS TRUE\r\nC\r\n      IF (.NOT.NEW) GO TO 180\r\n      IF (FLOOP .NE. 1) GO TO 120\r\nC\r\nC     TEST TO SEE IF QHHL HAS ENOUGH MACH NUMBERS\r\nC\r\n  110 NIP  = NI*2\r\n      NOGO = 0\r\n      IIP  = JJ + 1\r\n      CALL READ (*430,*111,FSAVE,Z(IIP),NIP,1,NWR)\r\n  111 CALL BCKREC (FSAVE)\r\n      TEMP = 0.0\r\n      DO 119 I = 1,JJ,3\r\n      IF (TEMP .EQ. Z(I)) GO TO 119\r\n      TEMP = Z(I)\r\n      NF   = 0\r\n      DO 115 J = 1,NIP,2\r\n      IF (TEMP-Z(IIP+J-1) .LT. EPS) NF = NF + 1\r\n  115 CONTINUE\r\n      IF (NF .GT. 1) GO TO 119\r\n      WRITE (OUT,400) UFM,TEMP\r\n      NOGO = 1\r\n  119 CONTINUE\r\n      IF (NOGO .EQ.1 ) GO TO 410\r\n  120 J   = 1\r\n      NRD = 0\r\n      DO 125 I = 1,JJ,3\r\n      IF (ABS(CMACH-Z(I)) .LT. EPS) GO TO 126\r\n      GO TO 125\r\n  126 IF (Z(I+2) .NE. RHO) GO TO 125\r\n      Z(J  ) = Z(I  )\r\n      Z(J+1) = Z(I+1)\r\n      J   = J + 2\r\n      NRD = NRD + 1\r\n  125 CONTINUE\r\n      IDP = 1\r\n      IIP = NRD*2 + IDP\r\n      NI2 = NI*2\r\n      CALL READ (*430,*130,FSAVE,Z(IIP),NI2,1,NWR)\r\n  130 CALL FWDREC (*430,FSAVE)\r\n      CALL CLOSE (FSAVE,2)\r\n      GO TO 300\r\n  135 IG  = IIP + NI*2\r\n      NF  = 0\r\n      IK  = 1\r\n      IFIL= QHHL\r\n      JJ  = 2*NI + 1\r\n      I   = 1\r\n  138 IF (ABS(CMACH-Z(IIP+I-1)) .LT. EPS) GO TO 140\r\nC\r\nC     SKIP MATRIX\r\nC\r\n      DO 139 J = 1,NCM\r\n  139 CALL FWDREC (*430,QHHL)\r\n      GO TO 150\r\n  140 Z(IIP+IK) = Z(IIP+I)\r\n      IK = IK + 2\r\n      NF = NF + 1\r\n      JI = IG\r\n      GO TO 350\r\n  150 CONTINUE\r\n      I  = I + 2\r\n      IF (I .EQ. JJ) GO TO 160\r\n      GO TO 138\r\n  160 CALL CLOSE (QHHL,1)\r\n      CALL CLOSE (OUTFIL,1)\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     SET UP CALL TO SPLINE INTERPOLATION\r\nC\r\n      TYPE = -1\r\n      ND   = NRD\r\n      NI   = NF\r\n      GO TO 200\r\nC\r\nC     GET COLUMN FROM FSAVE AND BUILD QHH\r\nC\r\n  170 CALL GOPEN (FSAVE,IZ(BUFF+1),0)\r\n      IJ = 3\r\n  171 DO 175 I = 1,IJ\r\n  175 CALL FWDREC (*430,FSAVE)\r\n      GO TO 85\r\n  180 IF (OK-K.EQ.0.0) GO TO 190\r\n      TRL(7) = TRL(7) + 1\r\n  190 IJ = TRL(7) + 1\r\n      CALL WRTTRL (TRL)\r\n      GO TO 171\r\nC\r\nC     CALL MINTRP\r\nC\r\n  200 IG   = IIP + 2*NI\r\n      NC   = NCORE - IG\r\n      NOGO = 0\r\n      CALL MINTRP (NI,Z(IIP),ND,Z(IDP),TYPE,0,0,0.0,OUTFIL,SCR2,SCR3,\r\n     1             SCR4,Z(IG),NC,NOGO,IPREC)\r\n      IF (NOGO .EQ. 1) GO TO 410\r\nC\r\nC     INTERPOLATED MATRIX IS ON SCR2 MOVE TO FSAVE\r\nC\r\n      CALL OPEN (*430,FSAVE,IZ(BUFF+1),3)\r\n      CALL GOPEN (SCR2,IZ(BUFF1+1),0)\r\n      TRL(1) = SCR2\r\n      CALL RDTRL (TRL)\r\n      NCOL = TRL(2)\r\n      NN   = TRL(3)\r\n      NNN  = NN\r\n      ITI  = TRL(5)\r\n      ITO  = ITI\r\n      IOUT = ITI\r\n      TRL(1) = FSAVE\r\n      TRL(2) = 0\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\n      I = 1\r\n  210 CALL UNPACK (*410,SCR2,Z)\r\n      CALL PACK (Z,FSAVE,TRL)\r\n      IF (I .EQ. NCOL) GO TO 230\r\n      I = I + 1\r\n      GO TO 210\r\n  230 CALL CLOSE (SCR2,1)\r\n      CALL CLOSE (FSAVE,1)\r\n      CALL RDTRL (TRL)\r\n      TRL(6) = ITO\r\n      IF (IMETH .EQ. 2) TRL(7) = 1\r\n      CALL WRTTRL (TRL)\r\n      GO TO 170\r\nC\r\nC     SET UP COLUMN - MATRIX COPY\r\nC\r\n  300 CALL GOPEN (QHHL,IZ(BUFF+1),0)\r\n      TRL(1) = QHHL\r\n      CALL RDTRL (TRL)\r\n      NCOL = TRL(2)/TRL(3)\r\n      NCM  = TRL(3)\r\n      CALL GOPEN (OUTFIL,IZ(BUFF1+1),1)\r\n      NNN  = NCM\r\n      NN   = NCM*NCM\r\n      ITI  = TRL(5)\r\n      ITO  = ITI\r\n      IOUT = ITI\r\n      NWC  = 1\r\n      IF (ITO.EQ.2 .OR. ITO.EQ.3) NWC = 2\r\n      IF (ITO .EQ. 4) NWC = 4\r\n      TRL(1) = OUTFIL\r\n      TRL(2) = 0\r\n      TRL(3) = NN\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\n      GO TO (15,135), IMETH\r\nC\r\nC     MAKE A COLUMN INTO MATRIX\r\nC\r\n  350 DO 390 ILOP = 1,NCM\r\n      CALL UNPACK (*360,QHHL,Z(JI))\r\n      GO TO 380\r\n  360 N = NCM*NWC\r\n      DO 370 IJ = 1,N\r\n  370 Z(JI+IJ-1) = 0.0\r\n  380 JI = JI + NCM*NWC\r\n  390 CONTINUE\r\n      CALL PACK (Z(IG),OUTFIL,TRL)\r\n      GO TO (30,150), IMETH\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 FORMAT (A23,' 2270, LINEAR INTERPOLATION WITHOUT ENOUGH IND. ',\r\n     1       'MACH NUMBERS EQUAL TO DEP. MACH ',F10.4)\r\n  410 WRITE  (OUT,420) UFM\r\n  420 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR')\r\n      GO TO  440\r\n  430 CALL MESAGE (-3,IFIL,NS)\r\n  440 CALL MESAGE (-61,0,NS)\r\n  450 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1ke.f",
    "content": "      SUBROUTINE FA1KE (SCR1,KFREQ,BREF,RHO,RREF,FLOOP,NLOOP)\r\nC\r\n      INTEGER         SCR1,MHH,KHH,FLOOP,SYSBUF,MOUT,NAME(2)\r\n      INTEGER         BUF1,TRL(7),FSAVE\r\nC\r\n      REAL            KFREQ,K2B2\r\nC\r\n      COMPLEX         CZ(1)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\nC\r\n      EQUIVALENCE     (Z(1),CZ(1))\r\nC\r\n      DATA NAME /4HFA1K,4HE   /\r\n      DATA KHH  /101/, MHH /103/ , MOUT /203/ , FSAVE /201/\r\nC\r\nC     INITILIZE ON FIRST LOOP\r\nC\r\n      IF(FLOOP .GT. 1) GO TO 100\r\n      NCORE = KORSZ(Z)\r\n      TRL(1)= KHH\r\n      CALL RDTRL(TRL)\r\n      N  = TRL(3)\r\n      NN = N*N\r\n      N2 = N*2\r\n      IM = NN * 2\r\nC\r\nC       LOC     SIZE     USE\r\nC\r\nC     IAM1K     N*N*2    A-1 K\r\nC     IKC       N*N*2    K   SCRATCH FOR ALLMAT\r\nC     IMS       N*N*2    M + Q   LAMBDA FOR ALLMAT\r\nC     IPM       N*N*2    M   HELD IN CORE\r\nC     IPK       N*N*2    K   BETWEEN LOOPS\r\nC\r\n      IAM1K = 1\r\n      IKC = IAM1K + IM\r\n      IMS = IKC + IM\r\n      ICP = IMS + IM\r\n      IF(IM*5+SYSBUF.GT.NCORE) CALL MESAGE(-8,0,NAME)\r\n      IPM = NCORE - IM\r\n      IPK = IPM - IM\r\n      NCORE= IPK -1\r\n      BUF1 = NCORE - SYSBUF\r\n      IOUT = 3\r\n      INN  = 1\r\n      NNN  = N\r\n      INCR1= 1\r\nC\r\nC     PUT MHH AND KHH IN CORE\r\nC\r\n      IFL = KHH\r\n      JI  = IPK\r\n   10 CALL GOPEN(IFL,Z(BUF1),0)\r\n      DO 20 I=1,N\r\n      CALL UNPACK(*15,IFL,Z(JI))\r\n      GO TO 16\r\n   15 CALL ZEROC(Z(JI),N2)\r\n   16 JI = JI + N2\r\n   20 CONTINUE\r\n      CALL CLOSE(IFL,1)\r\n      IF(IFL.EQ.MHH) GO TO 40\r\n      IFL = MHH\r\n      JI  = IPM\r\n      GO TO 10\r\nC\r\nC     WRITE A HEADER ON MOUT\r\nC\r\n   40 CALL GOPEN(MOUT,Z(BUF1),1)\r\n      CALL CLOSE(MOUT,2)\r\nC\r\nC              2  2\r\nC     SOLVE   K /B  MHH + (RHO*RREF)/2.0 QHH     KHH\r\nC\r\n  100 K2B2 = (KFREQ*KFREQ) /(BREF*BREF)\r\n      RR2  = (RHO*RREF) / 2.0\r\n      IOUT = 3\r\n      INN  = 1\r\n      NNN  = N\r\n      INCR1= 1\r\n      DO 105 I=1,IKC\r\n  105 Z(I) = 0.0\r\n      JI = IMS\r\n      CALL GOPEN(SCR1,Z(BUF1),0)\r\n      DO 110 I=1,N\r\n      CALL UNPACK(*115,SCR1,Z(JI))\r\n  115 JI = JI+N2\r\n  110 CONTINUE\r\n      CALL CLOSE(SCR1,1)\r\n      ICK = IKC -1\r\n      IKP = IPK -1\r\n      IMP = IPM -1\r\n      ISM = IMS -1\r\n      J   = NN*2\r\n      DO 120 I=1,J\r\n      Z(I+ISM) = Z(I+ISM) * RR2 + Z(I+IMP) * K2B2\r\n      Z(I+ICK) = - Z(I+IKP)\r\n  120 CONTINUE\r\n      CALL INCORE(Z(IMS),N,Z(IKC),Z(IAM1K),N)\r\nC\r\nC     GET EIGENVALUES FROM ALLMAT\r\nC\r\n      IM = IMS + N2\r\n      IN = IM + N2\r\n      L  = 0\r\n      CALL ALLMAT(Z(IAM1K),Z(IMS),Z(IKC),0,0,Z(IM),0,Z(IN),N,L,0)\r\nC\r\nC     WRITE OUT EIGENVALUES ON MOUT\r\nC\r\n      IM = IMS/2\r\n      NL = 2*L\r\n      DO 130 I = 1,L\r\n      IF(CZ(I+IM).NE.(0.0,0.0))CZ(I+IM) = CSQRT(CZ(I+IM))\r\n      IF(AIMAG(CZ(I+IM)) .LT. 0.0) CZ(I+IM) = - CZ(I+IM)\r\n  130 CONTINUE\r\n      CALL GOPEN(MOUT,Z(BUF1),3)\r\n      CALL WRITE(MOUT,Z(IMS),NL,1)\r\n      IF(FLOOP.GE.NLOOP) GO TO 200\r\n      CALL CLOSE(MOUT,3)\r\n      RETURN\r\nC\r\nC     LAST LOOP BUILD FSAVE\r\nC\r\n  200 CALL CLOSE(MOUT,1)\r\n      IBUF2 = BUF1 - SYSBUF\r\n      CALL GOPEN(MOUT,Z(BUF1),0)\r\n      CALL GOPEN(FSAVE,Z(IBUF2),0)\r\n      CALL SKPREC(FSAVE,3)\r\n      CALL CLOSE(FSAVE,2)\r\n      CALL GOPEN(FSAVE,Z(IBUF2),3)\r\n  210 CALL READ(*230,*220,MOUT,Z(1),IBUF2,1,NWR)\r\n  220 CALL WRITE(FSAVE,Z(1),NWR,1)\r\n      GO TO 210\r\n  230 CALL CLOSE(MOUT,1)\r\n      CALL CLOSE(FSAVE,1)\r\n      TRL(1) = FSAVE\r\n      TRL(2) = NLOOP\r\n      TRL(7) = L\r\n      CALL WRTTRL(TRL)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1pka.f",
    "content": "      SUBROUTINE FA1PKA(A,M1K,M1B,EIV,NCORE,N)\r\nC\r\nC     FA1PKA BUILDS THE MATRIX FOR ALLMAT\r\nC\r\n      INTEGER NAME(2)\r\n      REAL A(1),EIV(1)\r\n      REAL M1K(1),M1B(1)\r\n      DATA NAME /4HFA1P,4HKA  /\r\n      DATA NHEIGS,NHEIGE /4HEIGS,4HEIGE/\r\n      N2 = N*2\r\n      IZ = 0\r\n      IMK = N\r\n      IMI = N*N*2\r\n      IMB = IMI + N\r\n      K = 0\r\n      DO 10 I = 1,N\r\n      DO 20 J = 1,N\r\n      K = K +1\r\n      A(IZ+J) = 0.0\r\n      A(IMK+J) = M1K(K)\r\n      A(IMB+J) = M1B(K)\r\n      A(IMI+J) = 0.0\r\n      IF(I.EQ.J) A(IMI+J) = 1.0\r\n   20 CONTINUE\r\n      IZ = IZ + N2\r\n      IMK = IMK + N2\r\n      IMI = IMI + N2\r\n      IMB = IMB + N2\r\n   10 CONTINUE\r\nC\r\nC     CALL HSBG AND ATEIG FOR EIVENVALUES\r\nC\r\n      N4=N2*2\r\n      IL = 1\r\n      IH = IL + N2\r\n      IM=IH+N4\r\n      II=IM+N4\r\n      IF(II     .GT.NCORE) CALL MESAGE(-8,0,NAME)\r\n      CALL SSWTCH(39,L39)\r\n      IF(L39.NE.0) CALL CONMSG(NHEIGS,1,0)\r\n      CALL HSBG(N2,A,N2,A)\r\n      CALL ATEIG(N2,A,EIV(IH),EIV(IM),EIV(IL),N2,\r\n     *              A,EIV(IH),EIV(IM))\r\n      IL = 0\r\n      DO 30 I=1,N2\r\n      EIV(I+IL) = EIV(I+IH-1)\r\n      EIV(I+IL+1) = EIV(I + IM -1)\r\n      IL = IL +1\r\n   30 CONTINUE\r\n      IF(L39.NE.0) CALL CONMSG(NHEIGE,1,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1pke.f",
    "content": "      SUBROUTINE FA1PKE (KHH,BHH,MHH,BXHH,FSAVE,NLOOP,BREF,RREF,NEIW,\r\n     1                   EPS)\r\nC\r\nC     FA1PKE COMPUTES THE EIGENVALUES FOR THE PK METHOD\r\nC\r\nC     LAST REVISED  2/91, BY J.PETKAS/LOCKHEED\r\nC     ELEMENTS OF INTERPOLATION MATRIX IN D.P. AND LEAST SQUARE FIT\r\nC\r\n      LOGICAL          EIGV\r\n      INTEGER          BHH,BXHH,SYSBUF,NAME(2),TRL(7),BUF1,FLOOP,FSAVE\r\n      REAL             KINT\r\n      DOUBLE PRECISION DX1,DX2,DSUM,DZ(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /UNPAKX/  IOUT,INN,NNN,INCR1\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /FA1PKC/  NCORE,NK,IMVR,IK,IA,IQ,ICP,IFLAG\r\n      COMMON /BLANK /  FLOOP\r\n      COMMON /CONDAS/  PI,TWOPI\r\n      EQUIVALENCE      (Z(1),DZ(1))\r\n      DATA    NAME  /  4HFA1P,4HKE  /\r\n      DATA    ISTART/  0 /\r\nC\r\nC     REINITIALIZE EVERY TIME MACH CHANGES\r\nC\r\n      IF (IFLAG .EQ. 0) GO TO 100\r\n      CALL SSWTCH (39,L39)\r\n      TRL(1) = KHH\r\n      CALL RDTRL (TRL)\r\n      NROW  = TRL(2)\r\n      NEIW  = MIN0(NEIW,NROW)\r\n      NEIGN = NROW*2\r\n      IOUT  = 1\r\n      INN   = 1\r\n      INCR1 = 1\r\n      NNN   = NROW\r\n      IEIGNS= NCORE  - NROW*5 - 1\r\n      BUF1  = IEIGNS - SYSBUF\r\n      NN    = NROW*NROW\r\n      NN2   = NN*2\r\n      IMH   = ICP\r\n      IBH   = IMH + NN\r\n      IKH   = IBH + NN\r\n      IV    = IKH + NN\r\n      IB    = IV  + NN\r\n      IMA   = IB  + NN\r\n      IF (MOD(IMA,2) .EQ. 0) IMA = IMA + 1\r\n      IOP   = IMA + NN2*4\r\nC\r\nC     CORE CHECK\r\nC\r\n      IF (IOP+SYSBUF .GT. IEIGNS) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     PUT K B M IN CORE\r\nC\r\n      IFL = KHH\r\n      JI  = IKH\r\n   10 CALL GOPEN (IFL,Z(BUF1),0)\r\n      DO 20 I = 1,NROW\r\n      CALL UNPACK (*15,IFL,Z(JI))\r\n      GO TO 20\r\n   15 CALL ZEROC (Z(JI),NROW)\r\n   20 JI = JI + NROW\r\n      CALL CLOSE (IFL,1)\r\n      IF (IFL .EQ. MHH) GO TO 40\r\n      IF (IFL .EQ. BHH) GO TO 30\r\n      IFL = BHH\r\n      JI  = IBH\r\n      TRL(1) = BHH\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) GO TO 10\r\n      CALL ZEROC (Z(JI),NN)\r\n   30 IFL = MHH\r\n      JI  = IMH\r\n      GO TO 10\r\n   40 CONTINUE\r\nC\r\nC     MODIFICATION FOR LEVEL 17.7 UPDATE\r\nC     REPLACE CALLS TO INVAER WITH CALLS TO INVERS.\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (NROW,Z(IMH),NROW,0,0,DET,ISING,Z(IOP))\r\n      IF (ISING .EQ. 2) CALL MESAGE (-7,0,NAME)\r\nC\r\nC     START OF LARGE LOOP WITH K = 0.0\r\nC\r\n  100 KINT = 0.0\r\n      IF (EPS .LE. 0.0) EPS = .001\r\n      KN1 = NK + 1\r\n      IQ0 = IEIGNS - (NN2+1)\r\n      IC0 = IQ0 - KN1*2 - 2\r\n      IF (MOD(IC0,2) .EQ. 0) IC0 = IC0 - 1\r\n      IP0 = IC0 - KN1*2 - 2\r\n      IF (MOD(IP0,2) .EQ. 0) IP0 = IP0 - 1\r\nC\r\n      I   = (FLOOP-1)*3\r\n      EIGV= .FALSE.\r\n      IF (Z(IMVR+I+1) .LT. 0.0) EIGV = .TRUE.\r\n      VEL = ABS(Z(IMVR+I+1))\r\n      VELS= VEL*VEL\r\n      RHO = (RREF*Z(IMVR+I+2))/2.0\r\n      IF (L39 .NE. 0) WRITE (NOUT,105) FLOOP,Z(IMVR+I),Z(IMVR+I+1),\r\n     1                                 Z(IMVR+I+2)\r\n  105 FORMAT ('0 TRACE FOR PK METHOD LOOP',I5,6X,4HMACH,8X,\r\n     1        8HVELOCITY,8X,7HDENSITY,/,30X,1P,E15.5,1P,E15.5,1P,E15.5)\r\n      NIT   = 0\r\n      NROOT = 0\r\nC\r\nC     INITIALIZE LEAST SQUARE COEFFCIENTS\r\nC\r\n      XAV   = 0.\r\n      YAV1  = 0.\r\n      X10   = 0.\r\n      X11   = 0.\r\n      X12   = 0.\r\n      Y10   = 0.\r\n      Y11   = 0.\r\nC\r\nC     BUILD P\r\nC\r\n  110 CONTINUE\r\n      NIT = NIT + 1\r\nC\r\nC     SUM LEAST SQUARE COEFFICIENTS ASSOCIATED WITH INDEPENDENT\r\nC     VARIABLE STARTING WITH SECOND TRIAL\r\nC\r\n      IF (NIT .EQ. 1) GO TO 115\r\n      XAV = XAV + KINT\r\n      X10 = X10 + 1.\r\n      X11 = X11 + KINT\r\n      X12 = X12 + KINT**2\r\nC\r\n  115 IP0D = IP0/2 + 1\r\n      DX1  = KINT\r\n      DO 120 I = 1,NK\r\n      DX2 = Z(IK+I-1)\r\n      DZ(IP0D+I) = DABS((DX1-DX2)**3) + (DX1+DX2)**3\r\n  120 CONTINUE\r\n      DZ(IP0D+KN1) = 1.D0\r\nC\r\nC     FIND C = A-1  P\r\nC\r\n      IAD  = IA/2  + 1\r\n      IC0D = IC0/2 + 1\r\n      L = IAD\r\n      DO 135 I = 1,KN1\r\n      DSUM = 0.D+0\r\n      DO 130 J = 1,KN1\r\n      DSUM = DSUM + DZ(L)*DZ(IP0D+J)\r\n      L = L + 1\r\n  130 CONTINUE\r\n      DZ(IC0D+I) = DSUM\r\n  135 CONTINUE\r\nC\r\nC     FIND QR AND QI = Q  C  Q IS COLUMN STORED\r\nC\r\n      L = IQ\r\n      DO 145 I = 1,NN2\r\n      DSUM = 0.D+0\r\n      DO 140 J = 1,NK\r\n      K = L + (J-1)*NN2\r\n      DSUM = DSUM + Z(K)*DZ(IC0D+J)\r\n  140 CONTINUE\r\n      L = L + 1\r\n      Z(IQ0+I) = DSUM\r\n  145 CONTINUE\r\nC\r\nC     COLUMN STORED M-1  BHH  KNH  QR (Z(IQ0+1)   QI (Z(IQ3+NN+1)\r\nC\r\nC     B  =  -BHH  + RHO*BREF*VEL  QHHI\r\nC\r\nC     K  =  -KHH  + RHO*VELS      QHHR\r\nC\r\nC     BUILD  A\r\nC                  0         I\r\nC\r\nC                   -1       -1\r\nC                 -M K     -M B\r\nC\r\n      NREM = IQ0 - IOP\r\n      IF (NREM-NN .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      IT = IOP\r\n      IF (MOD(IT,2) .EQ. 0) IT = IT + 1\r\n      IF (EIGV .AND. IT+NN.GT.BUF1) CALL MESAGE (-8,0,NAME)\r\n      BOV = BREF/VEL\r\n      RBV = RHO*BREF*VEL\r\n      IQR = IQ0\r\n      IQI = IQ0 + NN\r\n      RVS = RHO*VELS\r\nC\r\nC     BUILD M-1K IN IB AND M-1B IN IT  THEN GMMATS INTO IV AND IB\r\nC\r\n      DO 150 I = 1,NN\r\n      Z(IT+I-1) = -Z(IBH+I-1) + RBV*Z(IQI+I)\r\n      Z(IB+I-1) = -Z(IKH+I-1) + RVS*Z(IQR+I)\r\n  150 CONTINUE\r\n      CALL GMMATS (Z(IB),NROW,NROW,0,Z(IMH),NROW,NROW,0,Z(IV))\r\n      CALL GMMATS (Z(IT),NROW,NROW,0,Z(IMH),NROW,NROW,0,Z(IB))\r\nC\r\nC     CALL FA1PKA TO MAKE A MATRIX AND GET EIGENVALUES\r\nC\r\n      CALL FA1PKA (Z(IMA),Z(IV),Z(IB),Z(IT),IEIGNS-IT,NROW)\r\nC\r\nC     SORT EIGENVALUES\r\nC\r\n      J = NEIGN*2\r\n      CALL RSORT (2,1,Z(IT),J)\r\n      CALL RSORT (2,2,Z(IT),J)\r\n      IF (KINT .NE. 0.0) GO TO 180\r\n      NLFT = NEIGN\r\n      DO 160 I = 1,J,2\r\n      IF (Z(IT+I) .GE. 0.0) GO TO 170\r\n      NLFT = NLFT - 1\r\n  160 CONTINUE\r\n  170 NL = IT + (NEIGN-NLFT)*2\r\n      NR = 0\r\n      DO 175 I = 1,J,2\r\n      IF (Z(IT+I) .NE. 0.0) GO TO 175\r\n      NR = NR + 1\r\n      IF (EIGV) CALL FA1PKV (Z(IMA),Z(IV),Z(IB),NROW,Z(IT+I-1),Z(IMA),\r\n     1                       BREF,PI,VEL,Z(BUF1))\r\n  175 CONTINUE\r\n      NRS = NR + 1\r\n      NR  = NR/2\r\n      NRA = 0\r\n  180 CONTINUE\r\n      IF (L39 .EQ. 0) GO TO 200\r\n      WRITE  (NOUT,182) KINT\r\n  182 FORMAT (1H0,29H ESTIMATED REDUCED FREQUENCY ,1P,E15.5, /10X,\r\n     1        11HEIGENVALUES,10X,18H REDUCED FREQUENCY,4X,9HFREQUENCY,\r\n     2        6X,8H DAMPING,/,7X,4HREAL,10X,4HIMAG)\r\n      DO 190 I = 1,J,2\r\n      ER = Z(IT+I-1)\r\n      EI = Z(IT+I  )\r\n      IF (EI .EQ. 0.0) GO TO 183\r\n      RK = BOV*EI\r\n      RF = (1.0/TWOPI)*EI\r\n      RG = (2.0*ER)/EI\r\n      GO TO 185\r\n  183 RK = 0.0\r\n      RF = 0.0\r\n      RG = (BREF/(PI*VEL))*ER\r\n  185 WRITE  (NOUT,186) ER,EI,RK,RF,RG\r\n  186 FORMAT (1H ,1P,E15.5,1P,E15.5,3X,1P,E15.5,1P,E15.5,1P,E15.5)\r\n  190 CONTINUE\r\nC\r\nC     ROOT ACCEPTANCE AND SAVING\r\nC\r\n  200 J = NLFT*2\r\n      L = NROOT*2 + 1 + NRA*2\r\n      IMHERE = 200\r\n      IF (L .GT. J) GO TO 360\r\nC\r\n      DO 270 I = L,J,2\r\n      K = (NROOT*5) + 1 + IEIGNS\r\n      IF (Z(NL+I) .NE. 0.0) GO TO 220\r\n      IF (KINT    .NE. 0.0) GO TO 220\r\n      IF (NRS .NE. NR) NRS = NRS - 1\r\n      IF (NRS .NE. NR) GO TO 270\r\n      NRA = NRA + 1\r\n      Z(K  ) = Z(NL+I-1)\r\n      Z(K+1) = Z(NL+I  )\r\n      Z(K+2) = 0.0\r\n      Z(K+3) = 0.0\r\n      Z(K+4) = (BREF/(.34657*VEL))*Z(NL+I-1)\r\n  210 NROOT  = NROOT + 1\r\nC\r\nC     PRINT EIGENVECTORS IF ASKED FOR\r\nC\r\n      NIT = 0\r\nC\r\nC     NO. OF ITERATIONS RESET TO ZERO. RE-INITIALIZE LEASE SQUARE COEFF.\r\nC\r\n      XAV = 0.\r\n      YAV1= 0.\r\n      X10 = 0.\r\n      X11 = 0.\r\n      X12 = 0.\r\n      Y10 = 0.\r\n      Y11 = 0.\r\n      IF (NROOT .GE. NEIW) GO TO 300\r\n      GO TO 270\r\n  220 RKTST = BOV*Z(NL+I)\r\n      IF (ABS(RKTST-KINT) .LT. EPS) GO TO 230\r\n      IF (RKTST .EQ. 0.0) GO TO 230\r\nC\r\nC     SUM LEAST SQUARE COEFFICIENTS ASSOCIATED WITH DEPENDENT VARIABLE\r\nC     STARTING WITH RESULT OF SECOND TIRAL\r\nC\r\n      IF (NIT .EQ. 1) GO TO 225\r\n      YAV1 = YAV1 + RKTST\r\n      Y10  = Y10  + RKTST\r\n      Y11  = Y11  + RKTST*KINT\r\n  225 KINT = RKTST\r\n      IF (NIT .EQ. 10) GO TO 240\r\n      GO TO 110\r\nC\r\nC     START LOOP OVER\r\nC\r\n  230 Z(K  ) = Z(NL+I-1)\r\n      Z(K+1) = Z(NL+I  )\r\n      Z(K+2) = RKTST\r\n      Z(K+3) = (1.0/TWOPI)*Z(NL+I)\r\n      IF (Z(NL+I) .NE. 0.0) Z(K+4) = (2.0*Z(NL+I-1))/Z(NL+I)\r\n      IF (Z(NL+I) .EQ. 0.0) Z(K+4) = (BREF/(.34657*VEL))*Z(NL+I-1)\r\n      IF (EIGV) CALL FA1PKV (Z(IMA),Z(IV),Z(IB),NROW,Z(K),Z(IMA),\r\n     1                       BREF,PI,VEL,Z(BUF1))\r\n      GO TO 210\r\nC\r\nC     FAILURE TO CONVERGE. REPLACE LOOP END WITH LEAST SQUARES FIT\r\nC\r\n  240 NIT  = NIT + 1\r\n      XAV1 = XAV/(NIT-2)\r\n      XAV  = (XAV + RKTST)/(NIT-1)\r\n      YAV1 = YAV1/(NIT-2)\r\n      D1   = X12*X10  - X11*X11\r\n      A11  = (X10*Y11 - X11*Y10)/D1\r\n      A10  = (X12*Y10 - X11*Y11)/D1\r\n      RKTST= -A10/(A11-1.)\r\n      WRITE  (NOUT,250) UWM,NIT,FLOOP,NROOT,NEIW\r\n  250 FORMAT (A25,', PK METHOD FIALED TO CONVERGE', /1X,I4,\r\n     1       ' ITERATIONS ON LOOP',I5,',  FOUND',I5,',  ROOTS WANTED',\r\n     2       I5, /5X,'LEAST SQUARES FIT APPROXIMATION IMPLEMENTED.')\r\n      IF (L39 .EQ. 1) WRITE (NOUT,260) XAV1,YAV1,XAV, A11,A10,RKTST\r\n  260 FORMAT (/5X,'AVG. TRIAL = ',1P,E12.5,',  AGV. RESLT. = ',1P,E12.5,\r\n     4   ',  NET AVG. = ',1P,E12.5,  //9X,'SLOPE = ',1P,E12.5,\r\n     5   ',    INTERCEPT = ',1P,E12.5,',  VALUE    = ',1P,E12.5)\r\n      GO TO 230\r\nC\r\n  270 CONTINUE\r\nC\r\nC     LOGIC ERROR\r\nC\r\n      IMHERE = 270\r\n      GO TO 360\r\nC\r\nC     SAVE EIGENVALUES ON BXHH\r\nC\r\n  300 IF (ISTART .NE. 0) GO TO 310\r\n      ISTART = 1\r\n      CALL GOPEN (BXHH,Z(BUF1),1)\r\n      CALL CLOSE (BXHH,2)\r\n  310 CALL GOPEN (BXHH,Z(BUF1),3)\r\n      CALL WRITE (BXHH,Z(IEIGNS+1),NROOT*5,1)\r\n      IF (FLOOP .GE. NLOOP) GO TO 320\r\n      CALL CLOSE (BXHH,3)\r\n      RETURN\r\nC\r\nC     LAST LOOP BUILD FSAVE\r\nC\r\n  320 CALL CLOSE (BXHH,1)\r\n      IBUF2 = BUF1 - SYSBUF\r\n      CALL GOPEN (BXHH,Z(BUF1),0)\r\n      CALL GOPEN (FSAVE,Z(IBUF2),0)\r\n      CALL SKPREC (FSAVE,3)\r\n      CALL CLOSE (FSAVE,2)\r\n      CALL GOPEN (FSAVE,Z(IBUF2),3)\r\n  330 CALL READ  (*350,*340,BXHH,Z(1),IBUF2,1,NWR)\r\n  340 CALL WRITE (FSAVE,Z(1),NWR,1)\r\n      GO TO 330\r\n  350 CALL CLOSE (BXHH,1)\r\n      CALL CLOSE (FSAVE,1)\r\n      TRL(1) = FSAVE\r\n      TRL(2) = NLOOP\r\n      TRL(7) = NEIW\r\n      CALL WRTTRL (TRL)\r\n      GO TO 400\r\nC\r\n  360 WRITE  (NOUT,370) SFM,IMHERE,L,J\r\n  370 FORMAT (A25,'. ERROR IN FA1PKE/@',I3,'  L,J=',2I7)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1pki.f",
    "content": "      SUBROUTINE FA1PKI (FSAVE,QHHL)\r\nC\r\nC     FA1PKI BUILDS AN INTERPOLATION MATRIX IN CORE FOR PK METHOD\r\nC\r\nC     LAST REVISED  2/91, BY J.PETKAS/LOOKHEED\r\nC     TO ALLOW CALCULATION OF INTERPOLATION MATRIX IN D.P.\r\nC\r\n      INTEGER         FSAVE,QHHL,SYSBUF,NAME(2),TRL(7),BUF1,FLOOP\r\n      REAL            NEWM\r\n      DOUBLE PRECISION DX1,DX2,DET,DZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / FLOOP\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /FA1PKC/ NCORE,NK,IMVR,IK,IA,IQ,ICP,IFLAG\r\n      EQUIVALENCE     (DZ(1),Z(1))\r\n      DATA    OLDM  / -1.0/\r\n      DATA    NAME  / 4HFA1P,4HKI  /\r\nC\r\n      IFLAG = 0\r\n      IF (OLDM .NE. -1.0) GO TO 20\r\n      NCORE= KORSZ(Z)\r\n      BUF1 = NCORE - SYSBUF\r\n      IMVR = 1\r\nC\r\nC     PUT M V   IN CORE ON SECOND LOOP RETURN IF SAME MACH\r\nC\r\n      IFLE = FSAVE\r\n      CALL GOPEN (FSAVE,Z(BUF1),0)\r\n      CALL READ (*180,*10,FSAVE,Z(IMVR),BUF1,1,NWR)\r\n   10 IK = IMVR + NWR\r\n      CALL CLOSE (FSAVE,1)\r\n   20 I = (FLOOP-1)*3 + IMVR\r\n      NEWM = Z(I)\r\n      IF (OLDM .EQ. NEWM) GO TO 200\r\n      OLDM = NEWM\r\n      IFLAG= 1\r\nC\r\nC     PUT LIST OF M K'S IN CORE FOR THIS MACH\r\nC\r\n      TRL(1) = QHHL\r\n      CALL RDTRL (TRL)\r\n      NROW = TRL(3)\r\n      NI   = (TRL(2)/TRL(3))*2\r\n      IOUT = 3\r\n      INN  = 1\r\n      INCR1= 1\r\n      NNN  = NROW\r\n      N2   = NROW*2\r\n      NN   = NROW*NROW\r\n      IFLE = QHHL\r\n      CALL OPEN (*180,QHHL,Z(BUF1),0)\r\n      CALL READ (*180,*180,QHHL,Z,-3,0,NWR)\r\n      CALL READ (*180,*180,QHHL,N, 1,0,NWR)\r\n      N  = N + N\r\n      NI = MIN0(NI,N)\r\n      CALL READ (*180,*180,QHHL,Z(IK),NI,1,NWR)\r\nC\r\nC     FIND M'S CLOSEST TO NEWM\r\nC\r\n      IA  = IK + NI\r\n      IF (MOD(IA,2) .EQ. 0) IA = IA + 1\r\n      RMI = 1.E20\r\n      RMS = 0.0\r\n      DO 30 I = 1,NI,2\r\n      RMX = ABS(Z(IK+I-1)-NEWM)\r\n      RMI = AMIN1(RMI,RMX)\r\n      IF (RMX .GT. RMI) GO TO 30\r\n      RMS = Z(IK+I-1)\r\n   30 CONTINUE\r\n      RMI = RMS\r\nC\r\nC     COUNT K\"S\r\nC\r\n      NK = 0\r\n      DO 50 I = 1,NI,2\r\n      IF (Z(IK+I-1) .EQ. RMI) GO TO 40\r\n      GO TO 50\r\n   40 NK = NK + 1\r\n   50 CONTINUE\r\nC\r\nC     ALLOCATE CORE FOR A-1 AND Q.  THEN BUILD THEM.\r\nC\r\n      I  = 2*(NK+1)**2\r\n      IQ = IA + I\r\n      ICP= IQ + NN*2*NK\r\n      IF (MOD(ICP,2) .EQ. 0) ICP = ICP + 1\r\n      IF (ICP+SYSBUF+N2 .GT. NCORE) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     BUILD A\r\nC\r\n      J = 0\r\n      DO 70 I = 1,NI,2\r\n      IF (Z(IK+I-1) .EQ. RMI) GO TO 60\r\n      GO TO 70\r\n   60 Z(IQ+J) = Z(IK+I)\r\n      J = J + 1\r\n   70 CONTINUE\r\n      NK1 = NK + 1\r\n      N   = 0\r\n      M   = IQ - 1\r\n      IAD = IA/2  + 1\r\n      ICPD= ICP/2 + 1\r\n      DO 90 I = 1,NK1\r\n      DX2 = Z(M+I)\r\n      DO 90 J = 1,NK1\r\n      IF (I.EQ.NK1 .AND. J.EQ.NK1) GO TO 100\r\n      IF (J.EQ.NK1 .OR.  I.EQ.NK1) GO TO 75\r\n      DX1 = Z(M+J)\r\n      DZ(IAD+N) = DABS((DX1-DX2)**3) + (DX1+DX2)**3\r\n      GO TO 80\r\n   75 DZ(IAD+N) = 1.0D+0\r\n   80 N = N + 1\r\n   90 CONTINUE\r\n  100 DZ(IAD+N) = 0.0D+0\r\nC\r\nC     MODIFICATION FOR LEVEL 17.7 UPDATE\r\nC     REPLACE ALL CALLS TO INVAER WITH CALLS TO INVERS.\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (NK1,DZ(IAD),NK1,0,0,DET,ISING,DZ(ICPD))\r\n      IF (ISING .EQ. 2) GO TO 150\r\nC\r\nC     BUILD Q\r\nC\r\n      N  = 0\r\n      IN = NN\r\n      L  = 0\r\n      DO 140 I = 1,NI,2\r\n      IF (Z(IK+I-1) .EQ. RMI) GO TO 110\r\n      CALL SKPREC (QHHL,NROW)\r\n      GO TO 140\r\n  110 DO 130 J = 1,NROW\r\n      CALL UNPACK (*115,QHHL,Z(ICP))\r\n      GO TO 120\r\n  115 CALL ZEROC (Z(ICP),NROW*2)\r\nC\r\nC     SPLIT REAL AND IMAGINARY DIVIDE IMAGINARY BY K\r\nC\r\n  120 DO 125 K = 1,N2,2\r\n      Z(IQ+N) = Z(ICP+K-1)\r\n      N = N + 1\r\n      Z(IQ+IN) = Z(ICP+K)/Z(IK+I)\r\n      IN = IN + 1\r\n  125 CONTINUE\r\n  130 CONTINUE\r\n      Z(IK+L) = Z(IK+I)\r\n      L = L  + 1\r\n      N = N  + NN\r\n      IN= IN + NN\r\n  140 CONTINUE\r\n      CALL CLOSE (QHHL,1)\r\n      GO TO 200\r\nC\r\n  150 WRITE  (NOUT,160) UFM,NAME\r\n  160 FORMAT (A23,' 2427, SINGULAR MATRIX FOR INTERPOLATION IN ',2A4)\r\n      CALL MESAGE (-61,0,0)\r\n  180 CALL MESAGE (-2,IFLE,NAME)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa1pkv.f",
    "content": "      SUBROUTINE FA1PKV (AZ,AMK,AMB,N,E1,CZ,BREF,PI,VEL,IBUF)\r\nC\r\n      INTEGER         IBUF(1),IV(6),TRL(7)\r\n      REAL            E1(5),V(6),E(2),AMK(1),AMB(1),CZ(1)\r\n      COMPLEX         AZ(1),CEIG,EIGEN,EIGZ\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SPACE(6),NLPP,X(2),LINES\r\n      EQUIVALENCE     (V(1),IV(1)),(EIGEN,E(1))\r\n      DATA    ISCR  / 301/, IPASS /0/\r\nC\r\n      EIGZ = (0.0,0.0)\r\n      IF (N .LT. 2) GO TO 1000\r\n      E(1) = E1(1)\r\n      E(2) = E1(2)\r\n      IF (IPASS .NE. 0) GO TO 5\r\n      CALL OPEN (*1000,ISCR,IBUF,1)\r\n      GO TO 9\r\n    5 CALL OPEN (*1000,ISCR,IBUF,3)\r\n    9 IPASS = IPASS + 1\r\nC\r\nC     BUILD A = IP2 + M-1B P + M-1K\r\nC\r\n      CEIG = EIGEN*EIGEN\r\n      K = 0\r\n      DO 10 I = 1,N\r\n      DO 10 J = 1,N\r\n      K = K + 1\r\n      AZ(K) = -AMB(K)*EIGEN - AMK(K)\r\n      IF (I .EQ. J) AZ(K) = AZ(K) + CEIG\r\n   10 CONTINUE\r\nC\r\nC     CORE FOR EGNVCT\r\nC\r\n      N2 = N*2\r\n      NA = 1  + N2*N\r\n      NB = NA + N2\r\n      NC = NB + N2\r\n      ND = NC + N2\r\n      CALL EGNVCT (AZ,CZ(NA),EIGZ,CZ(NB),CZ(NC),CZ(ND),N)\r\nC\r\nC     BUILD ON SCR1 DATA FOR VECTOR OUTPUT\r\nC\r\n      IV(1) = IPASS\r\n      IV(2) = IPASS\r\n      V (3) = E1(1)\r\n      V (4) = E1(2)\r\n      IF (E1(2) .EQ. 0.0) GO TO 20\r\n      V(5)  = E1(3)\r\n      V(6)  = E1(5)\r\n      GO TO 22\r\n   20 V(5)  = 0.0\r\n      V(6)  = (BREF/(.34657*VEL))*E1(1)\r\n   22 CALL WRITE (ISCR,IV,6,1)\r\n      CALL WRITE (ISCR,CZ(NB),N2,1)\r\nC\r\nC     VECTOR IS IN CZ(NB)\r\nC\r\n      LINES = NLPP\r\n      K = 0\r\n      DO 30 I = 1,N\r\n      IF (LINES .LT. NLPP) GO TO 25\r\n      CALL PAGE1\r\n      WRITE  (NOUT,21) EIGEN\r\n   21 FORMAT (1H0,47X,30HEIGENVECTOR FROM THE PK METHOD, /3X,\r\n     1        13HEIGENVALUE = ,1P,E15.5,1P,E15.5, //3X,11HEIGENVECTOR)\r\n      LINES = LINES + 5\r\n   25 LINES = LINES + 1\r\n      WRITE  (NOUT,26) CZ(NB+K),CZ(NB+K+1)\r\n   26 FORMAT (16X,1P,E15.5,1P,E15.5)\r\n      K = K + 2\r\n   30 CONTINUE\r\n      TRL(1) = ISCR\r\n      TRL(2) = 1\r\n      CALL WRTTRL (TRL)\r\n 1000 CALL CLOSE (ISCR,3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fa2.f",
    "content": "      SUBROUTINE FA2\r\nC\r\nC     THIS IS THE DMAP MODULE FA2\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC     FA2  PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/V,N,TSTART/C,Y,VREF/\r\nC    1     C,Y,PRINT=YES $\r\nC\r\nC     ALL OUTPUTS ARE APPEND\r\nC\r\nC     THE PURPOSE OF THIS MODULE IS TO COPY PARTS OF PHIH, CLAMA, AND\r\nC    1    FSAVE ONTO PHIHL, CLAMAL, CASEYY, AND OVG RESPECTIVELY\r\nC\r\n      EXTERNAL        LSHIFT\r\n      INTEGER         SYSBUF,PHIH,CLAMA,FSAVE,PHIHL,CLAMAL,CASEYY,OVG,\r\n     1                TSTART,PRINT(2),MCB(7),FILE,NAME(2),FMETH,FLOOP,\r\n     2                MCBPHL(7),MCBCL(7),MCBCC(7),MCBOVG(7),BUF(146),\r\n     3                EJECT,IARY(22),IALPH(2),ME(3),YES,YESB\r\n      REAL            XMACH,KFREQ,LBUF(6),IML,Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKP(6),NLPP,MTEMP,NPAG,NLINES\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /BLANK / TSTART,VREF,PRINT\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    PHIH  , CLAMA,FSAVE,PHIHL,CLAMAL,CASEYY,OVG /\r\n     1        101   , 102  ,  103,  201,   202,   203,204 /\r\n      DATA    NAME  , NO,MCBCL,MCBCC,MCBOVG,IBLNK         /\r\n     1        4HFA2 , 1H , 2HNO, 21*0,4H                  /\r\n      DATA    BUF   / 146*1H                              /\r\n      DATA    IARY  / 4H POI,4HNT =,1H ,1H ,4H MAC,4HH = ,1H ,1H ,\r\n     1        4H KFR, 4HEQ= ,1H ,1H ,4H RHO,4H =  ,1H ,1H ,6*1H /\r\n      DATA    TWOPHI/ 6.28318531          /\r\n      DATA    ME    / 1HK,  2HKE,  2HPK   /\r\n      DATA    YES   , YESB/ 3HYES, 4HYESB /\r\nC\r\nC     INITIALIZE\r\nC\r\n      NZ    = KORSZ(Z)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      NZ    = IBUF4 - 1\r\n      ITC   = 3\r\n      INCR  = 1\r\n      MCBCL(1) = CLAMAL\r\n      MCBCC(1) = CASEYY\r\n      MCBOVG(1)= OVG\r\n      IF (VREF .EQ. 0.0) VREF = 1.0\r\nC\r\nC     FIND PROPER METHOD\r\nC\r\n      FILE  = FSAVE\r\n      CALL OPEN (*900,FSAVE,IZ(IBUF1),0)\r\n      CALL READ (*910,*920,FSAVE,IZ(1),8,1,IFLAG)\r\n      J     = 3\r\n      FMETH = IZ(J)\r\n      METH  = ME(FMETH)\r\n      ONEOK = 1.E+25\r\n      MCB(1)= FSAVE\r\n      CALL RDTRL (MCB)\r\n      FLOOP = MCB(2)\r\n      NLOOP = MCB(3)\r\n      NVALUE= MCB(7)\r\n      J     = 6\r\n      BREF  = Z(J)\r\n      PHIB  = TWOPHI*BREF\r\n      GO TO (1000,2000,3000), FMETH\r\nC\r\nC     K  METHOD\r\nC\r\n 1000 CONTINUE\r\nC\r\nC     PICK UP CONSTANTS\r\nC\r\n      NVALUE = 8\r\n      NVALUE = IZ(NVALUE)\r\nC\r\nC     COPY ONTO PHIHL\r\nC\r\n      IF (FLOOP .NE. 1) GO TO 1010\r\nC\r\nC     FIRST TIME\r\nC\r\n      CALL GOPEN (PHIHL,IZ(IBUF2),1)\r\n      CALL CLOSE (PHIHL,1)\r\n      MCBPHL(1) = PHIH\r\n      CALL RDTRL (MCBPHL)\r\n      MCBPHL(2) = 0\r\n      MCBPHL(6) = 0\r\n      MCBPHL(7) = 0\r\n      MCBPHL(1) = PHIHL\r\n      CALL WRTTRL (MCBPHL)\r\n      CALL GOPEN  (CLAMAL,IZ(IBUF2),1)\r\n      CALL GOPEN  (CLAMA,IZ(IBUF3),0)\r\n      CALL FREAD  (CLAMA,BUF,146,1)\r\n      CALL CLOSE  (CLAMA,1)\r\n      CALL WRITE  (CLAMAL,BUF,146,1)\r\n      CALL WRITE  (CLAMAL,0,0,1)\r\n      CALL CLOSE  (CLAMAL,1)\r\n      CALL GOPEN  (CASEYY,IZ(IBUF2),1)\r\n      CALL CLOSE  (CASEYY,1)\r\n      CALL GOPEN  (OVG,IZ(IBUF2),1)\r\n      CALL CLOSE  (OVG,1)\r\nC\r\nC     COPY NVALUE VECTORS TO PHIHL\r\nC\r\n 1010 CONTINUE\r\n      MCB(1) = PHIH\r\n      CALL RDTRL (MCB)\r\n      NCOPY = MIN0(NVALUE,MCB(2))\r\n      CALL GOPEN  (PHIH,IZ(IBUF2),0)\r\n      CALL GOPEN  (PHIHL,IZ(IBUF3),0)\r\n      CALL SKPFIL (PHIHL, 1)\r\n      CALL SKPFIL (PHIHL,-1)\r\n      CALL CLOSE  (PHIHL, 2)\r\n      CALL GOPEN  (PHIHL,IZ(IBUF3),3)\r\n      MCBPHL(1) = PHIHL\r\n      CALL RDTRL  (MCBPHL)\r\n      MCBPHL(7) = (2*MCBPHL(7)*MCBPHL(2)*MCBPHL(3))/10000\r\n      CALL CYCT2B (PHIH,PHIHL,NCOPY,IZ,MCBPHL)\r\n      CALL CLOSE  (PHIH,1)\r\n      CALL CLOSE  (PHIHL,1)\r\n      CALL WRTTRL (MCBPHL)\r\nC\r\nC     PICK UP M,K,RHO FOR THIS LOOP\r\nC\r\n      CALL FREAD (FSAVE,IZ,-3*(FLOOP-1),0)\r\n      CALL FREAD (FSAVE,Z,3,1)\r\n      J     = 0\r\n      XMACH = Z(  1)\r\n      KFREQ = Z(J+2)\r\n      RHO   = Z(J+3)\r\n      CALL FREAD (FSAVE,Z,1,1)\r\nC\r\nC     PUT CASEYY INTO CORE\r\nC\r\n      CALL READ (*910,*1020,FSAVE,IZ,NZ,0,IFLAG)\r\n      CALL MESAGE (-8,0,NAME)\r\n 1020 CONTINUE\r\n      CALL CLOSE (FSAVE,1)\r\n      K = 39\r\n      DO 1021 I = 51,146\r\n      BUF(I) = IZ(K)\r\n      K = K + 1\r\n 1021 CONTINUE\r\nC\r\nC     READY CLAMA\r\nC\r\n      CALL GOPEN  (CLAMA,IZ(IBUF1),0)\r\n      CALL FWDREC (*910,CLAMA)\r\nC\r\nC     READY CLAMAL\r\nC\r\n      CALL GOPEN  (CLAMAL,IZ(IBUF2),0)\r\n      CALL SKPFIL (CLAMAL, 1)\r\n      CALL SKPFIL (CLAMAL,-1)\r\n      CALL BCKREC (CLAMAL)\r\n      CALL READ   (*910,*1022,CLAMAL,IZ(IFLAG+1),NZ,0,I)\r\n      CALL MESAGE (-8,0,NAME)\r\n 1022 CONTINUE\r\n      CALL BCKREC (CLAMAL)\r\n      CALL CLOSE  (CLAMAL,2)\r\n      CALL GOPEN  (CLAMAL,IZ(IBUF2),3)\r\n      CALL WRITE  (CLAMAL,IZ(IFLAG+1),I,0)\r\n      CALL RDTRL  (MCBCL)\r\nC\r\nC     READY CASEYY\r\nC\r\n      CALL GOPEN  (CASEYY,IZ(IBUF3),0)\r\n      CALL SKPFIL (CASEYY, 1)\r\n      CALL SKPFIL (CASEYY,-1)\r\n      CALL CLOSE  (CASEYY, 2)\r\n      CALL GOPEN  (CASEYY,IZ(IBUF3),3)\r\n      CALL RDTRL  (MCBCC)\r\nC\r\nC     READY OVG\r\nC\r\n      CALL GOPEN  (OVG,IZ(IBUF4),0)\r\n      CALL SKPFIL (OVG, 1)\r\n      CALL SKPFIL (OVG,-1)\r\n      CALL CLOSE  (OVG,2)\r\n      CALL GOPEN  (OVG,IZ(IBUF4),3)\r\n      CALL RDTRL  (MCBOVG)\r\n      MCBOVG(2)= MCBOVG(2) + 1\r\n      MCBCC(4) = IFLAG\r\n      CALL WRTTRL (MCBOVG)\r\n      MCBCC(2) = MCBCC(2) + NCOPY\r\n      CALL WRTTRL (MCBCC)\r\n      MCBCL(2) = MCBCL(2) + NCOPY\r\n      CALL WRTTRL (MCBCL)\r\n      GO TO 1042\r\nC\r\nC     K-E METHOD\r\nC\r\n 2000 CONTINUE\r\nC\r\nC     P - K METHOD\r\nC\r\n 3000 CONTINUE\r\nC\r\nC     READY OVG\r\nC\r\n      CALL GOPEN (OVG,IZ(IBUF2),1)\r\n      MCBOVG(2) = 1\r\n      CALL WRTTRL (MCBOVG)\r\nC\r\nC     PUT RECORD 2 OF FSAVE INTO CORE\r\nC\r\n      CALL READ (*910,*3010,FSAVE,IZ(1),NZ,1,IFLAG)\r\n      CALL MESAGE (-8,0,NAME)\r\n 3010 CONTINUE\r\n      CALL SKPREC (FSAVE,1)\r\n      CALL FREAD  (FSAVE,0,-51,0)\r\n      CALL FREAD  (FSAVE,BUF,96,1)\r\n      IMR   = 1\r\n      FLOOP = 1\r\nC\r\nC     COUNT RHO S\r\nC\r\n      NRHO = 1\r\n      IF (FMETH .EQ. 3) GO TO 3012\r\n      IRHO = 1\r\n      RHO  = Z(IMR+2)\r\n      IMR1 = IMR + 3\r\n 3013 CONTINUE\r\n      IF (IMR1 .GT.     IFLAG) GO TO 3012\r\n      IF (RHO  .EQ. Z(IMR1+2)) GO TO 3012\r\n      NRHO = NRHO + 1\r\n      IMR1 = IMR1 + 3\r\n      GO TO 3013\r\n 3012 CONTINUE\r\n 3011 CONTINUE\r\n      NV = 1\r\nC\r\nC     DETERMINE THE NUMBER OF M-RHO PAIRS FOR THIS GO\r\nC\r\n      XMACH = Z(IMR  )\r\n      RHO   = Z(IMR+2)\r\n      NCOPY = 1\r\n      IMR1  = IMR + 3*NRHO\r\n 3020 CONTINUE\r\n      IF (IMR1 .GT. IFLAG) GO TO 1042\r\n      IF (XMACH.NE.Z(IMR1) .OR. RHO.NE.Z(IMR1+2)) GO TO 1042\r\n      NCOPY = NCOPY + 1\r\n      IMR1  = IMR1 + 3*NRHO\r\n      GO TO 3020\r\n 1042 CONTINUE\r\nC\r\n      IF (PRINT(1) .EQ. NO) GO TO 1041\r\nC     SET UP PAGE FORMATS\r\nC\r\n      CALL PAGE1\r\n      NLINES = NLINES + 7\r\n      IF (PRINT(1) .EQ. YESB) WRITE (NOUT,1039) FLOOP,XMACH,RHO,METH\r\n      IF (PRINT(1) .EQ. YES ) WRITE (NOUT,1040) FLOOP,XMACH,RHO,METH\r\n 1039 FORMAT (1H0,55X,16HFLUTTER  SUMMARY, //7X,\r\n     1        9HPOINT =  ,I3,5X,14HSIGMA VALUE = ,F8.3,4X,\r\n     2        16HDENSITY RATIO = ,1P,E11.4,5X,9HMETHOD = ,A4, ///7X,\r\n     3        5HKFREQ,12X, 8H1./KFREQ, 9X,8HVELOCITY, 12X,7HDAMPING,\r\n     4        9X,9HFREQUENCY,12X,20HCOMPLEX   EIGENVALUE)\r\n 1040 FORMAT (1H0,55X,16HFLUTTER  SUMMARY, //7X,\r\n     1        9HPOINT =  ,I3, 5X,14HMACH NUMBER = ,F7.4,5X,\r\n     2        16HDENSITY RATIO = ,1P,E11.4, 5X,9HMETHOD = ,A4, ///7X,\r\n     3        5HKFREQ, 12X,8H1./KFREQ, 9X,8HVELOCITY, 12X,7HDAMPING,\r\n     4        9X,9HFREQUENCY, 12X,20HCOMPLEX   EIGENVALUE)\r\n 1041 CONTINUE\r\nC\r\nC     SET UP FOR OVG\r\nC\r\n      BUF(1) = 60\r\n      BUF(2) = 2002\r\n      BUF(4) = 1\r\n      BUF(5) = 10*FLOOP\r\n      BUF(9) = 1\r\n      BUF(10)= 4\r\n      CALL WRITE (OVG,BUF,146,1)\r\n      IF (FMETH .NE. 1) GO TO 1101\r\n      DO  1090 I = 115,146\r\n      BUF(I) = IBLNK\r\n 1090 CONTINUE\r\n      CALL INT2A8 (*1092,FLOOP,IALPH)\r\n 1092 IARY(3) = IALPH(1)\r\n      IARY(4) = IALPH(2)\r\n      CALL RE2AL (XMACH,IALPH)\r\n      IARY(7) = IALPH(1)\r\n      IARY(8) = IALPH(2)\r\n      CALL RE2AL (KFREQ,IALPH)\r\n      IARY(11) = IALPH(1)\r\n      IARY(12) = IALPH(2)\r\n      CALL RE2AL (RHO,IALPH)\r\n      IARY(15) = IALPH(1)\r\n      IARY(16) = IALPH(2)\r\n      K = 115\r\n      DO 1095 I = 1,16\r\n      BUF(K) = IARY(I)\r\n      K = K + 1\r\n 1095 CONTINUE\r\n      K = 103\r\n      DO 1100 I = 115,146\r\n      IZ(K) = BUF(I)\r\n      K = K + 1\r\n 1100 CONTINUE\r\n 1101 CONTINUE\r\n      DO  1030 I = 1,NCOPY\r\n      GO TO (1102,1150,3200), FMETH\r\nC\r\nC     KE METHOD\r\nC\r\n 1150 CONTINUE\r\n      IF (I.NE.1 .OR. NV.NE.1) GO TO 1152\r\n      IR = IFLAG + 1\r\n      J  = NVALUE*2\r\n      DO 1153 M = 1,NCOPY\r\nC\r\nC     READ A RECORD OF COMPLEX EIGENVALUES INTO CORE\r\nC\r\n      CALL FREAD  (FSAVE,IZ(IR),J,1)\r\n      CALL SKPREC (FSAVE,NRHO-1)\r\nC\r\nC     REARRANGE THE COMPLEX EIGENVALUES IN THE RECORD IN ASCENDING\r\nC     ORDER OF THE ABSOLUTE VALUES OF THE IMAGINARY PARTS\r\nC\r\n      NVALU1 = NVALUE - 1\r\n      DO 1170 L = 1,NVALU1\r\n      LR = IR + 2*(L-1)\r\n      LI = LR + 1\r\n      VALUER = Z(LR)\r\n      VALUEI = Z(LI)\r\n      VALUE  = ABS(VALUEI)\r\n      INDEX  = L\r\n      L1     = L + 1\r\n      DO 1160 K = L1,NVALUE\r\n      KR = IR + 2*(K-1)\r\n      KI = KR + 1\r\n      VALUE1 = ABS(Z(KI))\r\n      IF (VALUE1 .GE. VALUE) GO TO 1160\r\n      VALUER = Z(KR)\r\n      VALUEI = Z(KI)\r\n      VALUE  = VALUE1\r\n      INDEX  = K\r\n 1160 CONTINUE\r\n      IF (INDEX .EQ. L) GO TO 1170\r\n      IRR = IR  + 2*(INDEX-1)\r\n      IRI = IRR + 1\r\n      Z(IRR) = Z(LR)\r\n      Z(IRI) = Z(LI)\r\n      Z(LR)  = VALUER\r\n      Z(LI)  = VALUEI\r\n 1170 CONTINUE\r\n      IR = IR + J\r\n 1153 CONTINUE\r\nC\r\nC     SELECT EACH FOR OUTPUT\r\nC\r\n 1152 CONTINUE\r\n      J    = IFLAG + 1 + (I-1)*NVALUE*2 + (NV-1)*2\r\n      REL  = Z(J)\r\n      IML  = Z(J+1)\r\n      VOUT = ABS(IML)/VREF\r\n      G    = 0.0\r\n      IF (IML .NE. 0.0) G = 2.*REL/IML\r\n      KFREQ= Z(IMR+3*I-2)\r\n      F    = KFREQ*IML/PHIB\r\n      GO TO 1103\r\nC\r\nC     PK METHOD\r\nC\r\n 3200 CONTINUE\r\n      CALL FREAD (FSAVE,LBUF,-(NV-1)*5,0)\r\n      CALL FREAD (FSAVE,LBUF,5,1)\r\n      REL = LBUF(1)\r\n      IML = LBUF(2)\r\n      KFREQ = LBUF(3)\r\n      F = LBUF(4)\r\n      G = LBUF(5)\r\n      VOUT = ABS(Z(IMR+3*I-2))/VREF\r\n      GO TO 1103\r\nC\r\nC     K METHOD\r\nC\r\n 1102 CONTINUE\r\n      CALL FREAD (CLAMA ,LBUF,6,0)\r\n      CALL WRITE (CLAMAL,LBUF,6,0)\r\n      REL = LBUF(3)\r\n      IML = LBUF(4)\r\n      VOUT= ABS(IML)/VREF\r\n      G   = 0.0\r\n      IF (IML .NE. 0.0) G = 2.0*REL/IML\r\n      F =  KFREQ*IML/(PHIB)\r\nC\r\nC     PUT OUT CASEYY\r\nC\r\n      CALL WRITE (CASEYY,IZ,IFLAG,1)\r\n 1103 CONTINUE\r\n      IF (PRINT(1) .EQ. NO) GO TO 1050\r\nC\r\nC     PRINT OUTPUT\r\nC\r\n      K = EJECT(1)\r\n      IF (K .EQ. 0) GO TO 1060\r\n      IF (PRINT(1) .EQ. YESB) WRITE (NOUT,1039) FLOOP,XMACH,RHO,METH\r\n      IF (PRINT(1) .EQ. YES ) WRITE (NOUT,1040) FLOOP,XMACH,RHO,METH\r\n      NLINES = NLINES + 7\r\n 1060 CONTINUE\r\n      IF (KFREQ .NE. 0.0) ONEOK = 1.0/KFREQ\r\n      WRITE  (NOUT,1070) KFREQ,ONEOK,VOUT,G,F,REL,IML\r\n 1070 FORMAT (1H ,5X,F8.4,5X,6(1X,1P,E14.7,3X))\r\n 1050 CONTINUE\r\nC\r\nC     PUT OUT OVG PARTS\r\nC\r\n      LBUF(1) = VOUT\r\n      LBUF(2) = 0.0\r\n      LBUF(3) = G\r\n      LBUF(4) = F\r\n      CALL WRITE (OVG,LBUF,4,0)\r\n 1030 CONTINUE\r\n      FLOOP = FLOOP+1\r\n      CALL WRITE (OVG,0,0,1)\r\n      GO TO (1031,2031,3331), FMETH\r\nC\r\nC     FINISH UP FOR KE METHOD\r\nC\r\n 2031 CONTINUE\r\n      NV = NV + 1\r\n      IF (NV .LE. NVALUE) GO TO 1042\r\nC\r\nC     ALL MODES DONE\r\nC\r\n      IF (IRHO .GE. NRHO) GO TO 2090\r\nC\r\nC     DO ANOTHER RHO\r\nC\r\n      IRHO= IRHO + 1\r\n      IMR = IMR  + 3\r\n      RHO = Z(IMR+2)\r\n      CALL SKPREC (FSAVE,NCOPY*(NRHO-1))\r\n      GO TO 1042\r\n 2090 CONTINUE\r\n      IF (IMR1 .GT. IFLAG) GO TO 4000\r\n      IMR = IMR1\r\n      GO TO 3011\r\nC\r\nC     P-K AT POINT END\r\nC\r\n 3331 CONTINUE\r\n      NV = NV + 1\r\n      IF (NV .GT. NVALUE) GO TO 3390\r\n      CALL SKPREC (FSAVE,-NCOPY)\r\n      GO TO 1042\r\nC\r\nC     ALL MODES DONE--CONSIDER MORE M-RHO VALUES\r\nC\r\n 3390 IF (IMR1 .GT. IFLAG) GO TO 4000\r\n      IMR = IMR1\r\n      GO TO 3011\r\nC\r\nC     DONE\r\nC\r\n 4000 CALL CLOSE (OVG,1)\r\n      CALL CLOSE (FSAVE,1)\r\n      RETURN\r\nC\r\nC     FINISH UP\r\nC\r\n 1031 CALL WRITE (CLAMAL,0,0,1)\r\n      CALL CLOSE (OVG,1)\r\n      CALL CLOSE (CLAMAL,1)\r\n      CALL CLOSE (CLAMA,1)\r\n      CALL CLOSE (CASEYY,1)\r\nC\r\nC     CHECK TIMES\r\nC\r\n      CALL KLOCK  (NOW)\r\n      CALL TMTOGO (ITLFT)\r\n      IF (NOW-TSTART.GE.ITLFT .AND. FLOOP.NE.NLOOP) GO TO 1110\r\n      RETURN\r\nC\r\nC     INSUFFICIENT TIME\r\nC\r\n 1110 CALL MESAGE (45,NLOOP - FLOOP,NAME)\r\n      TSTART = -1\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1 = -1\r\n      GO TO 901\r\n  910 IP1 = -2\r\n      GO TO 901\r\n  920 IP1 = -3\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/factor.f",
    "content": "      SUBROUTINE FACTOR (INPUT,LOWER,SCR1,SCR2,SCR3,SCR4)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER          BCD(2)\r\n      DOUBLE PRECISION DET\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /SFACT /  FILEA(7),FILEL(7),FILEU(7),SCR1FL,SCR2FL,NZ    ,\r\n     1                 DET(2)  ,P       ,SCR3FL  ,XX3   ,XX4   ,CHL\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      DATA    LOWTRI/  4 /\r\n      DATA    BCD   /  4HFACT,4HOR   /\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS AND SFACT COMMON\r\nC\r\n      NZ = KORSZ(Z)\r\n      FILEA(1) = INPUT\r\n      CALL RDTRL (FILEA)\r\n      CALL MAKMCB (FILEL,LOWER,FILEA(3),LOWTRI,FILEA(5))\r\n      FILEU(1) = IABS(SCR1)\r\n      SCR1FL = SCR2\r\n      SCR2FL = SCR3\r\n      SCR3FL = SCR4\r\n      CHL = 0\r\n      IF (SCR1 .LT. 0) CHL = 1\r\nC\r\nC     DECOMPOSE INPUT MATRIX INTO LOWER TRIANGULAR FACTOR.\r\nC\r\n      CALL SDCOMP (*40,Z,Z,Z)\r\nC\r\nC     WRITE TRAILER FOR LOWER TRIANGULAR FACTOR.\r\nC\r\n      CALL WRTTRL (FILEL)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE FOR SINGULAR INPUT MATRIX\r\nC\r\n   40 CALL MESAGE (-5,INPUT,BCD)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/factru.f",
    "content": "      SUBROUTINE FACTRU(*,A,LLL,ULL,SCR1,SCR2,SCR3)\r\nC\r\n      INTEGER A,SCR1,SCR2,SCR3,ULL\r\n      DOUBLE PRECISION DETT,MINDIA\r\nC\r\n      COMMON /DCOMPX/IA(7),IL(7),IU(7),ISCR1,ISCR2,ISCR3,DETT,IPOW,\r\n     1  NZ,MINDIA,IB,IBB\r\n      COMMON /SYSTEM/SYS(54),IPREC\r\n      COMMON /ZZZZZZ/ XX(1)\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IB = 0\r\n      IBB = 0\r\n      IA(1) = A\r\n      CALL RDTRL(IA)\r\n      IL(1)=LLL\r\n      IU(1)=ULL\r\n      ISCR1=SCR1\r\n      ISCR2=SCR2\r\n      ISCR3=SCR3\r\n      NZ = KORSZ(XX)\r\n      IL(3) = IA(3)\r\n      IU(3) = IA(3)\r\n      IL(4) =4\r\n      IU(4) =5\r\n      IU(5) = IPREC\r\n      IL(5) = IPREC\r\n      CALL DECOMP(*10,XX,XX,XX)\r\n      CALL WRTTRL(IL)\r\n      CALL WRTTRL(IU)\r\n      RETURN\r\n   10 RETURN 1\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/failrs.f",
    "content": "      SUBROUTINE FAILRS (FTHR,ULTSTN,STRESL,FINDEX)\r\nC\r\nC     THIS ROUTINE COMPUTES THE FAILURE INDEX OF A LAYER IN A LAMINATED\r\nC     COMPOSITE ELEMENT USING ONE OF THE FOLLOWING FIVE FAILURE THEORIES\r\nC     CURRENTLY AVAILABLE\r\nC        1.   HILL\r\nC        2.   HOFFMAN\r\nC        3.   TSAI-WU\r\nC        4.   MAX STRESS\r\nC        5.   MAX STRAIN\r\nC\r\nC\r\nC     DEFINITIONS\r\nC\r\nC     XT = ULTIMATE UNIAXIAL TENSILE STRENGTH IN THE FIBER DIRECTION\r\nC     XC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH IN THE FIBER DIRECTION\r\nC     YT = ULTIMATE UNIAXIAL TENSILE STRENGTH PERPENDICULAR TO THE FIBER\r\nC          DIRECTION\r\nC     YC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH PERPENDICULAR TO THE\r\nC          FIBER DIRECTION\r\nC     S  = ULTIMATE PLANAR SHEAR STRENGTH UNDER PURE SHEAR LOADING\r\nC\r\nC     SIMILARILY FOR THE ULTIMATE STRAINS\r\nC\r\nC\r\n      INTEGER FTHR\r\n      REAL    ULTSTN(6),STRESL(3)\r\nC\r\nC\r\nC     CHECK FOR ZERO STRENGTH VALUES\r\nC\r\n      DO 50 I = 1,5\r\n   50 IF (ULTSTN(I) .EQ. 0.0) GO TO 700\r\nC\r\nC     ULTIMATE STRENGTH VALUES\r\nC\r\n      XT   = ULTSTN(1)\r\n      XC   = ULTSTN(2)\r\n      YT   = ULTSTN(3)\r\n      YC   = ULTSTN(4)\r\n      S    = ULTSTN(5)\r\n      F12  = ULTSTN(6)\r\nC\r\nC     LAYER STRESSES\r\nC\r\n      SIG1 = STRESL(1)\r\n      SIG2 = STRESL(2)\r\n      TAU12= STRESL(3)\r\nC\r\nC     LAYER STRAINS\r\nC\r\n      EPS1 = STRESL(1)\r\n      EPS2 = STRESL(2)\r\n      GAMA = STRESL(3)\r\nC\r\n      GO TO (100,200,300,400,500), FTHR\r\nC\r\nC     HILL FAILURE THEORY\r\nC     -------------------\r\nC\r\n  100 X = XT\r\n      IF (SIG1 .LT. 0.0) X = XC\r\nC\r\n      Y = YT\r\n      IF (SIG2 .LT. 0.0) Y = YC\r\nC\r\n      XX = XT\r\n      IF (SIG1*SIG2 .LT. 0.0) XX = XC\r\nC\r\n      FINDEX = (SIG1*SIG1)/(X*X)\r\n      FINDEX = FINDEX + (SIG2 * SIG2)/(Y * Y)\r\n      FINDEX = FINDEX - (SIG1 * SIG2)/(XX*XX)\r\n      FINDEX = FINDEX + (TAU12*TAU12)/(S * S)\r\n      GO TO 600\r\nC\r\nC\r\nC     HOFFMAN FAILURE THEORY\r\nC     ----------------------\r\nC\r\n  200 FINDEX = (1.0/XT-1.0/XC)*SIG1\r\n      FINDEX = FINDEX + (1.0/YT-1.0/YC)*SIG2\r\n      FINDEX = FINDEX + (SIG1 * SIG1)/(XT*XC)\r\n      FINDEX = FINDEX + (SIG2 * SIG2)/(YT*YC)\r\n      FINDEX = FINDEX + (TAU12*TAU12)/(S * S)\r\n      FINDEX = FINDEX + (SIG1 * SIG2)/(XT*XC)\r\n      GO TO 600\r\nC\r\nC\r\nC     TSAI-WU FAILURE THEORY\r\nC     ----------------------\r\nC\r\nC     CHECK STABILITY CRITERIA FOR THE INTERACTION TERM F12\r\nC\r\n  300 IF (F12 .EQ. 0.0) GO TO 350\r\nC\r\n      CRIT = (1.0/(XT*XC))*(1.0/(YT*YC)) - F12*F12\r\n      IF (CRIT .GT. 0.0) GO TO 350\r\nC\r\nC     IF STABILITY CRITERIA IS VIOLATED THEN SET THE F12 THE INTERACTION\r\nC     TERM TO ZERO\r\nC\r\n      F12 = 0.0\r\nC\r\nC\r\n  350 FINDEX = (1.0/XT-1.0/XC)*SIG1\r\n      FINDEX = FINDEX + (1.0/YT-1.0/YC)*SIG2\r\n      FINDEX = FINDEX + (SIG1 * SIG1)/(XT*XC)\r\n      FINDEX = FINDEX + (SIG2 * SIG2)/(YT*YC)\r\n      FINDEX = FINDEX + (TAU12*TAU12)/(S * S)\r\n      IF (F12 .EQ. 0.0) GO TO 600\r\n      FINDEX = FINDEX + 2.0*F12*SIG1*SIG2\r\n      GO TO 600\r\nC\r\nC\r\nC     MAX STRESS FAILURE THEORY\r\nC     -------------------------\r\nC\r\n  400 FI1 = SIG1/XT\r\n      IF (SIG1 .LT. 0.0) FI1 = ABS(SIG1/XC)\r\nC\r\n      FI2 = SIG2/YT\r\n      IF (SIG2 .LT. 0.0) FI2 = ABS(SIG2/YC)\r\nC\r\n      FI12 = ABS(TAU12)/S\r\nC\r\n      FINDEX = FI1\r\n      IF (FI2  .GT. FINDEX) FINDEX = FI2\r\n      IF (FI12 .GT. FINDEX) FINDEX = FI12\r\n      GO TO 600\r\nC\r\nC\r\nC     MAX STRAIN FAILURE THEORY\r\nC     -------------------------\r\nC\r\n  500 FI1 = EPS1/XT\r\n      IF (EPS1 .LT. 0.0) FI1 = ABS(EPS1/XC)\r\nC\r\n      FI2 = EPS2/YT\r\n      IF (EPS2 .LT. 0.0) FI2 = ABS(EPS2/YC)\r\nC\r\n      FI12 = ABS(GAMA)/S\r\nC\r\n      FINDEX = FI1\r\n      IF (FI2  .GT. FINDEX) FINDEX = FI2\r\n      IF (FI12 .GT. FINDEX) FINDEX = FI12\r\nC\r\n  600 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC\r\nC     NON-FATAL ERROR\r\nC\r\n  700 FINDEX = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/failur.f",
    "content": "      SUBROUTINE FAILUR (FTHR,ULTSTN,STRESL,FINDEX)\r\nC\r\nC      THIS ROUTINE COMPUTES THE FAILURE INDEX OF A LAYER\r\nC      IN A LAMINATED COMPOSITE ELEMENT USING ONE OF THE\r\nC      FOLLOWING FIVE FAILURE THEORIES CURRENTLY AVAILABLE\r\nC\r\nC        1.   HILL\r\nC        2.   HOFFMAN\r\nC        3.   TSAI-WU\r\nC        4.   MAX STRESS\r\nC        5.   MAX STRAIN\r\nC\r\nC        DEFINITIONS\r\nC        -----------\r\nC        XT = ULTIMATE UNIAXIAL TENSILE STRENGTH IN THE FIBER\r\nC             DIRECTION\r\nC        XC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH IN THE\r\nC             FIBER DIRECTION\r\nC        YT = ULTIMATE UNIAXIAL TENSILE STRENGTH PERPENDICULAR TO\r\nC             THE FIBER DIRECTION\r\nC        YC = ULTIMATE UNIAXIAL COMPRESSIVE STRENGTH PERPENDICULAR\r\nC             TO THE FIBER DIRECTION\r\nC        S  = ULTIMATE PLANAR SHEAR STRENGTH UNDER PURE SHEAR\r\nC             LOADING\r\nC        SIMILARILY FOR THE ULTIMATE STRAINS\r\nC\r\n      DIMENSION       ULTSTN(6),STRESL(3)\r\n      INTEGER         FTHR\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\nC\r\nC**** CHECK FOR ZERO STRENGTH VALUES\r\nC\r\n      DO 10 I = 1,5\r\n   10 IF (ULTSTN(I) .EQ. 0.0) GO TO 90\r\nC\r\nC**** ULTIMATE STRENGTH VALUES\r\nC\r\n      XT      = ULTSTN(1)\r\n      XC      = ULTSTN(2)\r\n      YT      = ULTSTN(3)\r\n      YC      = ULTSTN(4)\r\n      S       = ULTSTN(5)\r\n      F12     = ULTSTN(6)\r\nC\r\nC**** LAYER STRESSES\r\nC\r\n      SIG1    = STRESL(1)\r\n      SIG2    = STRESL(2)\r\n      TAU12   = STRESL(3)\r\nC\r\nC**** LAYER STRAINS\r\nC\r\n      EPS1    = STRESL(1)\r\n      EPS2    = STRESL(2)\r\n      GAMA    = STRESL(3)\r\nC\r\nC\r\n      GO TO (20,30,40,60,70), FTHR\r\nC\r\nC     H I L L   F A I L U R E  T H E O R Y\r\nC     ====================================\r\nC\r\n   20 X = XT\r\n      IF (SIG1 .LT. 0.0) X = XC\r\nC\r\n      Y = YT\r\n      IF (SIG2 .LT. 0.0) Y = YC\r\nC\r\n      XX = XT\r\n      IF ((SIG1*SIG2) .LT. 0.0) XX = XC\r\nC\r\n      FINDEX = ( SIG1*SIG1 )/( X*X )\r\n      FINDEX = FINDEX + ( SIG2*SIG2 )/( Y*Y )\r\n      FINDEX = FINDEX - ( SIG1*SIG2 )/( XX*XX )\r\n      FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S )\r\n      GO TO 80\r\nC\r\nC\r\nC     H O F F M A N  F A I L U R E  T H E O R Y\r\nC     =========================================\r\nC\r\n   30 FINDEX = ( 1.0/XT - 1.0/XC )*SIG1\r\n      FINDEX = FINDEX + ( 1.0/YT - 1.0/YC )*SIG2\r\n      FINDEX = FINDEX + ( SIG1*SIG1 )/( XT*XC )\r\n      FINDEX = FINDEX + ( SIG2*SIG2 )/( YT*YC )\r\n      FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S )\r\n      FINDEX = FINDEX - ( SIG1*SIG2 )/( XT*XC )\r\n      GO TO 80\r\nC\r\nC\r\nC     T S A I-W U  F A I L U R E  T H E O R Y\r\nC     =======================================\r\nC\r\nC**** CHECK STABILITY CRITERIA FOR THE INTERACTION TERM F12\r\n   40 IF (F12 .EQ. 0.0) GO TO 50\r\nC\r\n      CRIT = ( 1.0/(XT*XC) )*( 1.0/(YT*YC) ) - ( F12*F12 )\r\n      IF (CRIT .GT. 0.0) GO TO 50\r\nC\r\nC**** IF STABILITY CRITERIA IS VIOLATED THEN SET THE\r\nC     F12 THE INTERACTION TERM TO ZERO\r\nC\r\n      F12 = 0.0\r\nC\r\nC\r\n   50 FINDEX = ( 1.0/XT - 1.0/XC )*SIG1\r\n      FINDEX = FINDEX + ( 1.0/YT - 1.0/YC )*SIG2\r\n      FINDEX = FINDEX + ( SIG1*SIG1 )/( XT*XC )\r\n      FINDEX = FINDEX + ( SIG2*SIG2 )/( YT*YC )\r\n      FINDEX = FINDEX + ( TAU12*TAU12 )/( S*S )\r\n      IF (F12 .EQ. 0.0) GO TO 80\r\n      FINDEX = FINDEX + ( 2.0*F12*SIG1*SIG2 )\r\n      GO TO 80\r\nC\r\nC\r\nC     M A X  S T R E S S  F A I L U R E  T H E O R Y\r\nC     ==============================================\r\nC\r\n   60 FI1 = SIG1/XT\r\n      IF (SIG1 .LT. 0.0) FI1 = SIG1/XC\r\nC\r\n      FI2 = SIG2/YT\r\n      IF (SIG2 .LT. 0.0) FI2 = SIG2/YC\r\nC\r\n      FI12 = ABS(TAU12)/S\r\nC\r\n      FINDEX = FI1\r\n      IF (FI2  .GT. FINDEX) FINDEX = FI2\r\n      IF (FI12 .GT. FINDEX) FINDEX = FI12\r\n      GO TO 80\r\nC\r\nC\r\nC     M A X  S T R A I N  F A I L U R E  T H E O R Y\r\nC     ==============================================\r\nC\r\n   70 FI1 = EPS1/XT\r\n      IF (EPS1 .LT. 0.0) FI1 = EPS1/XC\r\nC\r\n      FI2 = EPS2/YT\r\n      IF (EPS2 .LT. 0.0) FI2 = EPS2/YC\r\nC\r\n      FI12 = ABS(GAMA)/S\r\nC\r\n      FINDEX = FI1\r\n      IF (FI2  .GT. FINDEX) FINDEX = FI2\r\n      IF (FI12 .GT. FINDEX) FINDEX = FI12\r\nC\r\n   80 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC\r\nC     NON-FATAL ERROR\r\nC\r\nC\r\n   90 FINDEX = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs.f",
    "content": "      SUBROUTINE FBS (ZS,ZD)\r\nC\r\nC     GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND\r\nC     WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM\r\nC     THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR\r\nC     SYSTEM OF EQUATIONS.\r\nC   \r\nC     THE ARE TWO METHODS AVAILABLE FOR THIS PROCESS.\r\nC     METHOD 1 - THIS METHOD READS AS MANY RIGHT HAND VECTORS INTO MEMORY\r\nC                AS POSSIBLE, AND THEN READS THE LOWER TRIANGULAR MATRIX\r\nC                USING GETSTR AND GETSTB TO SOLVE FOR THE SOLUTION VECTORS.\r\nC                MORE THAN ONE PASS MAY BE REQUIRED IF INSUFFICIENT MEMORY\r\nC                EXISTS FOR LOADING ALL RIGHT HAND VECTORS AT ONE TIME.\r\nC                THIS METHOD IS THE OLDER OF THE TWO METHODS.\r\nC                (SEE SUBROUTINES FBSF, FBSF1, FBSF2, FBSF3 AND FBSF4)\r\nC     METHOD 2 - THIS METHOD IS THE SAME AS METHOD 1 WITH THE EXCEPTION\r\nC                THAT MEMORY EXISTS FOR LOADING PART OR ALL OF THE LOWER\r\nC                TRIANGULAR MATRIX INTO OPEN CORE AFTER LOADING ALL OF \r\nC                THE RIGHT HAND VECTORS INTO OPEN CORE.  THIS METHOD\r\nC                WILL ELIMINATE THE NEED TO READ THE LOWER TRIANGULAR\r\nC                MATRIX TWICE (ONCE FORWARD AND ONCE BACKWARD).\r\nC                (SEE SUBROUTINES FBSI, FBSI1, FBSI2, FBSI3 AND FBSI4)\r\nC\r\nC     THE SELECTION OF METHOD 1 OR 2 IS DEPENDENT UPON WHETHER\r\nC     MEMORY EXISTS FOR READING THE LOWER TRIANGULAR MATRIX INTO MEMORY\r\nC\r\nC     SEE SUBROUTINES FBSF AND FBSI FOR OPEN CORE LAYOUTS\r\nC\r\n      INTEGER                    DBL      ,DBB      ,SYSBUF\r\n     &,                          WORDS    ,RLCMPX   ,RC       \r\n     &,                          TYPEL    ,TYPEB\r\n      REAL                       ZS(1)    \r\n      DOUBLE  PRECISION          ZD(1) \r\n      COMMON /FBSX  / DBL(7)    ,DBU(7)   ,DBB(7)   ,DBX(7)   ,LCORE   \r\n     1,               PREC      ,SIGN     ,SCRX\r\n      COMMON /SYSTEM/ SYSBUF    ,NOUT   \r\n      COMMON /TYPE  / PRC(2)    ,WORDS(4) ,RLCMPX(4)\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\nC   DIAG 46 FORCES METHOD ONE\r\nC\r\n      CALL SSWTCH ( 46, L46 )\r\n      IF ( L46 .NE. 0 ) GO TO 1000\r\n      NCOL    = DBL( 2 )\r\n      TYPEL   = DBL( 5 )\r\n      TYPEB   = DBB( 5 )\r\n      RC      = RLCMPX( TYPEB )\r\nC\r\nC     NRHVWD = NUMBER OF WORDS REQUIRED FOR EACH RIGHT HAND VECTOR\r\nC     NRHV   = NUMBER OF RIGHT HAND VECTORS\r\nC  \r\n      NRHVWD    = WORDS(TYPEL) * NCOL\r\n      NRHV      = DBB(2)\r\nC\r\nC CHECK FOR RIGHT HAND VECTORS BEING THE IDENTITY MATRIX\r\nC\r\n      IF ( DBB( 4 ) .EQ. 8 ) NRHV = NCOL\r\nC\r\nC COMPUTE THE MEMORY TO READ ALL OF THE RIGHT HAND VECTORS INTO MEMORY\r\nC\r\n      NEED      = NRHV * NRHVWD\r\n      IREMAIN   = LCORE - 2 * SYSBUF - NEED\r\nC\r\nC IF LESS THAN ONE COLUMN WORTH OF MEMORY AVAILABLE, USE METHOD ONE\r\nC\r\n      IF ( IREMAIN .GE. NRHVWD ) GO TO 2000\r\nC\r\nC  METHOD ONE - FIRST, CHECK FOR SUFFICIENT MEMORY FOR PROCESS\r\nC\r\n1000  MEMAVL = LCORE - 2*SYSBUF - NRHVWD\r\n      IF ( MEMAVL .LE. 0 ) CALL MESAGE ( -8, -MEMAVL, SUBNAM )\r\n      CALL FBSF ( ZS, ZD )\r\n      GO TO 7000\r\nC\r\nC  METHOD TWO\r\nC\r\n2000  CALL FBSI ( ZS, ZD )\r\n7000  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs1.f",
    "content": "      SUBROUTINE FBS1 (BLOCK,Y,YN,NWDS)\r\nC\r\nC     FBS1 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN RSP\r\nC\r\n      INTEGER         BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      REAL            Y(1), YN(1), LJJ, L, SUM\r\n      CHARACTER       UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYSBUF, NOUT\r\n      COMMON /ZZZZZZ/ L(1)\r\n      COMMON /FBSX  / DBL   , N\r\n      DATA    SUBNAM, BEGN, END / 4HFBS1, 4HBEGN, 4HEND /\r\nC\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      CALL CONMSG (BUF,2,0)\r\n      NBRITM = NWDS\r\n      J    = (LOCFX(YN)-LOCFX(Y)+1)/NWDS\r\n      LAST = MAX0(J,1)*NBRITM\r\n      DO 35 J = 1,N\r\n      J1 = J -1\r\n      DO 5 K = J,LAST,NBRITM\r\n      IF (Y(K) .NE. 0.0) GO TO 7\r\n    5 CONTINUE\r\n      CALL SKPREC (BLOCK(1),1)\r\n      GO TO 35\r\nC\r\nC     MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n    7 BLOCK(8) = -1\r\n      CALL GETSTR (*80,BLOCK)\r\n      IF (BLOCK(4) .NE. J) GO TO 80\r\n      JSTR = BLOCK(5)\r\n      LJJ  = 1.0/L(JSTR)\r\n      IF (BLOCK(6) .EQ. 1) GO TO 20\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      JSTR = JSTR + 1\r\n      BLOCK(4) = BLOCK(4) + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n   10 DO 15 K = 1,LAST,NBRITM\r\n      YJK = Y(J1+K)\r\n      IF (YJK .EQ. 0.0) GO TO 15\r\n      IK  = BLOCK(4) + K - 1\r\n      DO 12 IJ = JSTR,NSTR\r\n      Y(IK) = Y(IK) + L(IJ)*YJK\r\n   12 IK = IK + 1\r\n   15 CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n   20 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*30,BLOCK)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      GO TO 10\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n   30 DO 32 K = J,LAST,NBRITM\r\n   32 Y(K) = Y(K)*LJJ\r\nC\r\n   35 CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      IF (N .EQ. 1) GO TO 65\r\n      CALL BCKREC (BLOCK)\r\n      J = N - 1\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n   40 J1 = J - 1\r\n      BLOCK(8) = -1\r\n   42 CALL GETSTB (*60,BLOCK)\r\n      IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1\r\n      IF (BLOCK(6) .EQ. 0) GO TO 58\r\n      NTERMS = BLOCK(6)\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 55 K = 1,LAST,NBRITM\r\n      JI  = BLOCK(5) + 1\r\n      IK  = BLOCK(4) + K\r\n      SUM = 0.0\r\n      DO 53 II = 1,NTERMS\r\n      JI  = JI - 1\r\n      IK  = IK - 1\r\n      SUM = SUM + L(JI)*Y(IK)\r\n   53 CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n   55 CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   58 CALL ENDGTB (BLOCK)\r\n      GO TO 42\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n   60 IF (J .NE. 1) GO TO 70\r\n   65 BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      RETURN\r\nC\r\n   70 J = J - 1\r\n      GO TO 40\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n   80 WRITE  (NOUT,82) SFM,SUBNAM\r\n   82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs2.f",
    "content": "      SUBROUTINE FBS2 (BLOCK,Y,YN,NWDS)\r\nC\r\nC     FBS2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN RDP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      DOUBLE PRECISION Y(1), YN(1), LJJ, L, YJK, SUM, ZERO\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /ZZZZZZ/  L(1)\r\n      COMMON /FBSX  /  DBL,    N\r\n      DATA             ZERO / 0.0D+0    /\r\n      DATA    SUBNAM, BEGN, END / 4HFBS2, 4HBEGN, 4HEND /\r\nC\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      CALL CONMSG (BUF,2,0)\r\n      NBRITM = NWDS/2\r\n      J    = (LOCFX(YN)-LOCFX(Y)+1)/NWDS\r\n      LAST = MAX0(J,1)*NBRITM\r\n      DO 35 J = 1,N\r\n      J1 = J - 1\r\n      DO 5 K = J,LAST,NBRITM\r\n      IF (Y(K) .NE. ZERO) GO TO 7\r\n    5 CONTINUE\r\n      CALL SKPREC (BLOCK(1),1)\r\n      GO TO 35\r\nC\r\nC     MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n    7 BLOCK(8) = -1\r\n      CALL GETSTR (*80,BLOCK)\r\n      IF (BLOCK(4) .NE. J) GO TO 80\r\n      JSTR = BLOCK(5)\r\n      LJJ  = 1.0D+0/L(JSTR)\r\n      IF (BLOCK(6) .EQ. 1) GO TO 20\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      JSTR = JSTR + 1\r\n      BLOCK(4) = BLOCK(4) + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n   10 DO 15 K = 1,LAST,NBRITM\r\n      YJK = Y(J1+K)\r\n      IF (YJK .EQ. ZERO) GO TO 15\r\n      IK  = BLOCK(4) + K - 1\r\n      DO 12 IJ = JSTR,NSTR\r\n      Y(IK) = Y(IK) + L(IJ)*YJK\r\n   12 IK = IK + 1\r\n   15 CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n   20 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*30,BLOCK)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      GO TO 10\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n   30 DO 32 K = J,LAST,NBRITM\r\n   32 Y(K) = Y(K)*LJJ\r\nC\r\n   35 CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      IF (N .EQ. 1) GO TO 70\r\n      CALL BCKREC (BLOCK)\r\n      J = N - 1\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n   40 J1 = J - 1\r\n      BLOCK(8) = -1\r\n   42 CALL GETSTB (*60,BLOCK)\r\n      IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1\r\n      IF (BLOCK(6) .EQ. 0) GO TO 58\r\n      NTERMS = BLOCK(6)\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 55 K = 1,LAST,NBRITM\r\n      JI  = BLOCK(5) + 1\r\n      IK  = BLOCK(4) + K\r\n      SUM = 0.0D+0\r\n      DO 53 II = 1,NTERMS\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n      SUM = SUM + L(JI)*Y(IK)\r\n   53 CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n   55 CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   58 CALL ENDGTB (BLOCK)\r\n      GO TO 42\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n   60 IF (J .EQ. 1) GO TO 70\r\n      J = J - 1\r\n      GO TO 40\r\nC\r\n   70 BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      RETURN\r\nC\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n   80 WRITE  (NOUT,82) SFM,SUBNAM\r\n   82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs21.f",
    "content": "      SUBROUTINE FBS21 (BLOCK,Y,YN,NWDS)\r\nC\r\nC     FBS2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBS IN RSP\r\nC                                                        ===\r\nC\r\n      INTEGER          BLOCK(20),DBL,BUF(3),SUBNAM(2),BEGN,END\r\n      REAL             Y(1),YN(1)\r\n      DOUBLE PRECISION LJJ,L\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /ZZZZZZ/  L(1)\r\n      COMMON /FBSX  /  DBL, N\r\n      DATA    SUBNAM,  BEGN, END /4HFBS2, 4H1   , 4HBEGN, 4HEND /\r\nC\r\n      BUF(1) = SUBNAM(1)\r\n      BUF(2) = SUBNAM(2)\r\n      BUF(3) = BEGN\r\n      CALL CONMSG (BUF,3,0)\r\n      NBRITM = NWDS/2\r\n      NBRVEC = (LOCFX(YN) - LOCFX(Y))/NWDS + 1\r\n      LAST = 1 + (NBRVEC-1)*NBRITM\r\n      DO 38 J=1,N\r\nC\r\nC     MAKE 1ST STRING CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n      BLOCK(8) = -1\r\n      CALL GETSTR (*81,BLOCK)\r\n      IF (BLOCK(4) .NE. J) GO TO 81\r\n      JSTR = BLOCK(5)\r\n      LJJ  = L(JSTR)\r\nCWKBI\r\n      XLJJ = LJJ\r\n      IF (BLOCK(6) .EQ. 1) GO TO 20\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      JSTR = JSTR + 1\r\n      BLOCK(4) = BLOCK(4) + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n   10 DO 18 K = 1,LAST,NBRITM\r\n      YJK = Y(J+K-1)\r\n      IK  = BLOCK(4) + K - 1\r\n      DO 16 IJ = JSTR,NSTR\r\nCWKBI\r\n      XLIJ = L(IJ)\r\nCWKBR Y(IK) = Y(IK) + L(IJ)*YJK\r\n      Y(IK) = Y(IK) + XLIJ*YJK\r\n      IK = IK + 1\r\n   16 CONTINUE\r\n   18 CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n   20 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*30,BLOCK)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      GO TO 10\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n   30 DO 34 K = 1,LAST,NBRITM\r\nCWKBR Y(J+K-1) = Y(J+K-1)/LJJ\r\n      Y(J+K-1) = Y(J+K-1)/XLJJ\r\n   34 CONTINUE\r\n   38 CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      IF (N .EQ. 1) GO TO 65\r\n      CALL BCKREC (BLOCK)\r\n      J = N - 1\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n   40 BLOCK(8) = -1\r\n   42 CALL GETSTB (*60,BLOCK)\r\n      IF (BLOCK(4)-BLOCK(6)+1 .EQ. J) BLOCK(6) = BLOCK(6) - 1\r\n      IF (BLOCK(6) .EQ. 0) GO TO 59\r\n      NTERMS = BLOCK(6)\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 58 K = 1,LAST,NBRITM\r\n      JI = BLOCK(5)\r\n      IK = BLOCK(4) + K - 1\r\n      JK = J + K - 1\r\n      DO 56 II = 1,NTERMS\r\n      Y(JK) = Y(JK) + L(JI)*Y(IK)\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n   56 CONTINUE\r\n   58 CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   59 CALL ENDGTB (BLOCK)\r\n      GO TO 42\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n   60 IF (J .NE. 1) GO TO 70\r\n   65 BUF(3) = END\r\n      CALL CONMSG (BUF,3,0)\r\n      RETURN\r\nC\r\n   70 J = J - 1\r\n      GO TO 40\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n   81 WRITE  (NOUT,82) SFM,SUBNAM\r\n   82 FORMAT (A25,' 2149, SUBROUTINE ',2A4,/5X,'FIRST ELEMENT OF A COL',\r\n     1     'UMN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs3.f",
    "content": "      SUBROUTINE FBS3 (BLOCK,Y,YN,NWDS)\r\nC\r\nC     FBS3 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN CSP\r\nC\r\n      INTEGER         BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      REAL            Y(1), YN(1), LJJR, LJJI, L\r\n      CHARACTER       UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM\r\n      COMMON /SYSTEM/ SYSBUF, NOUT\r\n      COMMON /ZZZZZZ/ L(1)\r\n      COMMON /FBSX  / DBL   , N\r\n      EQUIVALENCE     (SUMR,YJKR),  (SUMI,YJKI)\r\n      DATA    SUBNAM, BEGN  , END / 4HFBS3, 4HBEGN, 4HEND /\r\nC\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      CALL CONMSG (BUF,2,0)\r\n      NBRITM = NWDS\r\n      J    = (LOCFX(YN)-LOCFX(Y)+1)/NWDS\r\n      LAST = MAX0(J,1)*NBRITM\r\n      DO 35 J = 1,N\r\n      J1 = J - 1\r\n      DO 5 K = 1,LAST,NBRITM\r\n      YJKR = Y(2*J+K-2)\r\n      YJKI = Y(2*J+K-1)\r\n      IF (YJKR.NE.0.0 .OR. YJKI.NE.0.0) GO TO 7\r\n    5 CONTINUE\r\n      CALL SKPREC (BLOCK(1),1)\r\n      GO TO 35\r\nC\r\nC     MAKE 1ST CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n    7 BLOCK(8) = -1\r\n      CALL GETSTR (*80,BLOCK)\r\n      IF (BLOCK(4) .NE. J) GO TO 80\r\n      JSTR = BLOCK(5)\r\n      LJJR = L(JSTR  )\r\n      LJJI = L(JSTR+1)\r\n      IF (BLOCK(6) .EQ. 1) GO TO 20\r\n      NSTR = JSTR + 2*BLOCK(6) - 2\r\n      JSTR = JSTR + 2\r\n      BLOCK(4) = BLOCK(4) + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n   10 DO 15 K = 1,LAST,NBRITM\r\n      YJKR = Y(2*J+K-2)\r\n      YJKI = Y(2*J+K-1)\r\n      IF (YJKR.EQ.0.0 .AND. YJKI.EQ.0.0) GO TO 15\r\n      IK   = 2*BLOCK(4) + K - 2\r\n      DO 12 IJ = JSTR,NSTR,2\r\n      Y(IK  ) =  Y(IK  ) + L(IJ)*YJKR - L(IJ+1)*YJKI\r\n      Y(IK+1) =  Y(IK+1) + L(IJ)*YJKI + L(IJ+1)*YJKR\r\n   12 IK = IK + 2\r\n   15 CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n   20 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*30,BLOCK)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + 2*BLOCK(6) - 2\r\n      GO TO 10\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n   30 SSQR = 1.0/(LJJR**2 + LJJI**2)\r\n      DO 32 K = 1,LAST,NBRITM\r\n      YJKR       = (Y(2*J+K-2)*LJJR + Y(2*J+K-1)*LJJI)*SSQR\r\n      Y(2*J+K-1) =-(Y(2*J+K-2)*LJJI - Y(2*J+K-1)*LJJR)*SSQR\r\n   32 Y(2*J+K-2) = YJKR\r\nC\r\n   35 CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      IF (N .EQ. 1) GO TO 65\r\n      CALL BCKREC (BLOCK)\r\n      J = N - 1\r\nC\r\nC     GET A STRING IN CURRENT COLUMN.  IF STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n   40 J1 = J - 1\r\n      BLOCK(8) = -1\r\n   42 CALL GETSTB (*60,BLOCK)\r\n      IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1\r\n      IF (BLOCK(6) .EQ. 0) GO TO 58\r\n      NTERMS = BLOCK(6)\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 55 K = 1,LAST,NBRITM\r\n      JI = BLOCK(5) + 2\r\n      IK = BLOCK(4)*2 + K\r\n      JK = J1*2 + K\r\n      SUMR = 0.0\r\n      SUMI = 0.0\r\n      DO 53 II = 1,NTERMS\r\n      JI = JI - 2\r\n      IK = IK - 2\r\n      SUMR = SUMR + L(JI)*Y(IK  ) - L(JI+1)*Y(IK+1)\r\n      SUMI = SUMI + L(JI)*Y(IK+1) + L(JI+1)*Y(IK  )\r\n   53 CONTINUE\r\n      Y(JK  ) = Y(JK  ) + SUMR\r\n      Y(JK+1) = Y(JK+1) + SUMI\r\n   55 CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   58 CALL ENDGTB (BLOCK)\r\n      GO TO 42\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n   60 IF (J .NE. 1) GO TO 70\r\n   65 BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      RETURN\r\nC\r\n   70 J = J - 1\r\n      GO TO 40\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n   80 WRITE  (NOUT,82) SFM,SUBNAM\r\n   82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbs4.f",
    "content": "      SUBROUTINE FBS4 (BLOCK,Y,YN,NWDS)\r\nC\r\nC     FBS4 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSF IN CDP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      DOUBLE PRECISION Y(1), YN(1), LJJR, LJJI, L, YJKR, YJKI, SSQR,\r\n     1                 SUM1, SUM2,  ZERO\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /ZZZZZZ/  L(1)\r\n      COMMON /FBSX  /  DBL   , N\r\n      EQUIVALENCE      (SUM1,YJKR),  (SUM2,YJKI)\r\n      DATA    SUBNAM,  BEGN  , END / 4HFBS4, 4HBEGN, 4HEND /\r\n      DATA    ZERO  /  0.0D+0      /\r\nC\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      CALL CONMSG (BUF,2,0)\r\n      NBRITM = NWDS/2\r\n      J    = (LOCFX(YN)-LOCFX(Y)+1)/NWDS\r\n      LAST = MAX0(J,1)*NBRITM\r\n      DO 35 J = 1,N\r\n      J1 = J - 1\r\n      DO 5 K = 1,LAST,NBRITM\r\n      YJKR = Y(J1*2+K  )\r\n      YJKI = Y(J1*2+K+1)\r\n      IF (YJKR.NE.ZERO .OR. YJKI.NE.ZERO) GO TO 7\r\n    5 CONTINUE\r\n      CALL SKPREC (BLOCK(1),1)\r\n      GO TO 35\r\nC\r\nC     MAKE 1ST CALL FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n    7 BLOCK(8) = -1\r\n      CALL GETSTR (*80,BLOCK)\r\n      IF (BLOCK(4) .NE. J) GO TO 80\r\n      JSTR = BLOCK(5)\r\n      LJJR = L(JSTR  )\r\n      LJJI = L(JSTR+1)\r\n      IF (BLOCK(6) .EQ. 1) GO TO 20\r\n      NSTR = JSTR + 2*BLOCK(6) - 2\r\n      JSTR = JSTR + 2\r\n      BLOCK(4) = BLOCK(4) + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n   10 DO 15 K = 1,LAST,NBRITM\r\n      YJKR = Y(J1*2+K  )\r\n      YJKI = Y(J1*2+K+1)\r\n      IF (YJKR.EQ.ZERO .AND. YJKI.EQ.ZERO) GO TO 15\r\n      IK = 2*BLOCK(4) + K - 2\r\n      DO 12 IJ = JSTR,NSTR,2\r\n      Y(IK  ) =  Y(IK  ) + L(IJ)*YJKR - L(IJ+1)*YJKI\r\n      Y(IK+1) =  Y(IK+1) + L(IJ)*YJKI + L(IJ+1)*YJKR\r\n   12 IK = IK + 2\r\n   15 CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n   20 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*30,BLOCK)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + 2*BLOCK(6) - 2\r\n      GO TO 10\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n   30 SSQR = 1.0D+0/(LJJR**2 + LJJI**2)\r\n      DO 32 K = 1,LAST,NBRITM\r\n      YJKR       = (Y(2*J+K-2)*LJJR + Y(2*J+K-1)*LJJI)*SSQR\r\n      Y(2*J+K-1) =-(Y(2*J+K-2)*LJJI - Y(2*J+K-1)*LJJR)*SSQR\r\n   32 Y(2*J+K-2) = YJKR\r\nC\r\n   35 CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      IF (N .EQ. 1) GO TO 65\r\n      CALL BCKREC (BLOCK)\r\n      J = N - 1\r\nC\r\nC     GET A STRING IN CURRENT COLUMN.  IF STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n   40 J1 = J - 1\r\n      BLOCK(8) = -1\r\n   42 CALL GETSTB (*60,BLOCK)\r\n      IF (BLOCK(4)-BLOCK(6) .EQ. J1) BLOCK(6) = BLOCK(6) - 1\r\n      IF (BLOCK(6) .EQ. 0) GO TO 58\r\n      NTERMS = BLOCK(6)\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 55 K = 1,LAST,NBRITM\r\n      JI = BLOCK(5) + 2\r\n      IK = BLOCK(4)*2 + K\r\n      JK = J1*2 + K\r\n      SUM1 = 0.0D+0\r\n      SUM2 = 0.0D+0\r\n      DO 53 II = 1,NTERMS\r\n      JI = JI - 2\r\n      IK = IK - 2\r\n      SUM1 = SUM1 + L(JI)*Y(IK  ) - L(JI+1)*Y(IK+1)\r\n      SUM2 = SUM2 + L(JI)*Y(IK+1) + L(JI+1)*Y(IK  )\r\n   53 CONTINUE\r\n      Y(JK  ) = Y(JK  ) + SUM1\r\n      Y(JK+1) = Y(JK+1) + SUM2\r\n   55 CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   58 CALL ENDGTB (BLOCK)\r\n      GO TO 42\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n   60 IF (J .NE. 1) GO TO 70\r\n   65 BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      RETURN\r\nC\r\n   70 J = J - 1\r\n      GO TO 40\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n   80 WRITE  (NOUT,82) SFM,SUBNAM\r\n   82 FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsf.f",
    "content": "      SUBROUTINE FBSF (ZS,ZD)\r\nC\r\nC     GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND\r\nC     WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM\r\nC     THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR\r\nC     SYSTEM OF EQUATIONS.\r\nC\r\nC     OPEN CORE IS DEFINED AS FOLLOWS\r\nC\r\nC     ZS(   1         ) - FIRST RIGHT HAND VECTOR ON FILE DBB\r\nC                         (SIZE = NCOL*NWDS)\r\nC                         NCOL = NUMBER OF COLUMNS (ROWS) IN LOWER  \r\nC                                TRIANGULAR MATRIX\r\nC                         NWDS = 1, IF MATRICES ARE REAL SINGLE\r\nC                              = 2, IF MATRICES ARE REAL DOUBLE OR \r\nC                                COMPLEX SINGLE\r\nC                              = 4, IF MATRICES ARE COMPLEX DOUBLE\r\nC     ZS( NCOL*NWDS+1 ) - NEXT RIGHT HAND VECTOR\r\nC         .\r\nC         .               ( \"KN\" RIGHT HAND VECTORS WILL BE LOADED INTO \r\nC         .               MEMORY)\r\nC         .\r\nC     ZS( BUF1        ) - BUFFER FOR FILE WITH RIGHT HAND VECTORS\r\nC                         AND FOR SOLUTION VECTORS\r\nC     ZS( BUF2        ) - BUFFER FOR FILE WITH TRIANGULAR MATRIX\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         IDENT\r\n      INTEGER         SUBNAM(2) ,BLOCK(15),BEGN     ,END\r\n      REAL            ZS(1)    ,XS(4)    ,YS(4)\r\n      DOUBLE  PRECISION          ZD(1)    ,XD       ,YD\r\n      CHARACTER       UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON /LOGOUT/ LOUT\r\n      COMMON /XMSSG / UFM       ,UWM      ,UIM\r\n      COMMON /FBSX  / DBL(7)    ,DBU(7)   ,DBB(7)   ,DBX(7)   ,LCORE   ,\r\n     1                PREC      ,SIGN     ,SCRX\r\n      COMMON /SYSTEM/ SYSBUF    ,NOUT     ,SKIP(91) ,KSYS94\r\n      COMMON /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,REW     ,\r\n     1                NOREW     ,EOFNRW   ,RSP      ,RDP      ,CSP     ,\r\n     2                CDP\r\n      COMMON /TYPE  / PRC(2)    ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /PACKX / ITYPE1    ,ITYPE2   ,I1       ,J1       ,INCR1\r\n      COMMON /UNPAKX/ ITYPE3    ,I2       ,J2       ,INCR2\r\n      COMMON /ZNTPKX/ XD(2)     ,IX       ,EOL\r\n      COMMON /ZBLPKX/ YD(2)     ,IY\r\n      EQUIVALENCE     (DBL(2),NL),   (DBB(5),TYPEB), (DBX(5),TYPEX),\r\n     1                (XD(1),XS(1)), (YD(1),YS(1))\r\n      DATA    SUBNAM/ 4HFBSF,4H    /  \r\n      DATA    BEGN  / 4HBEGN/\r\n      DATA    END   / 4HEND /\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      BUF2   = LCORE - SYSBUF\r\n      BUF1   = BUF2  - SYSBUF\r\n      RC     = RLCMPX(TYPEB)\r\n      TYPEL  = DBL(5)\r\n      WDS    = WORDS(TYPEL)\r\n      NWDS   = WDS*NL\r\n      NBRLOD = DBB(2)\r\n      IDENT  = .FALSE.\r\n      IF (DBB(4) .EQ. 8) IDENT = .TRUE.\r\n      IF (IDENT) NBRLOD = NL\r\n      SWITCH = 1\r\n      IF (TYPEL.EQ.RSP .AND. RC.EQ.2) SWITCH = 2\r\n      IF (TYPEL.EQ.RDP .AND. RC.EQ.2) SWITCH = 3\r\n      DBL1   = DBL(1)\r\n      NNN    = BUF1 - 1\r\n      NVECS  = NNN/NWDS\r\n      IF (NVECS .EQ. 0) CALL MESAGE (-8,NWDS-NNN,SUBNAM)\r\n      IF (SWITCH .NE. 1) NVECS = NVECS/2\r\n      NPASS  = (NBRLOD+NVECS-1)/NVECS\r\n      SUBNAM(2) = BEGN\r\n      CALL CONMSG (SUBNAM,2,0)\r\n   40 NPASS  = (NBRLOD+NVECS-1)/NVECS\r\n      IF ( NPASS .EQ. 1 ) GO TO 50\r\n      NEED = NWDS*NBRLOD + 2*SYSBUF\r\n      WRITE ( LOUT, 9001 ) NPASS, NEED\r\n9001  FORMAT(I4,' PASSES REQUIRED, OPEN CORE NEEDS TO BE ',I7\r\n     &,' TO ELIMINATE THIS')\r\n   50 CONTINUE\r\n      I2     = 1\r\n      J2     = NL\r\n      INCR2  = 1\r\n      I1     = 1\r\n      J1     = NL\r\n      INCR1  = 1\r\n      ITYPE1 = TYPEL\r\n      ITYPE2 = TYPEX\r\n      ITYPE3 = SIGN*TYPEL\r\n      DBX(2) = 0\r\n      DBX(6) = 0\r\n      DBX(7) = 0\r\n      NNNDBL = NNN/2\r\n      NTERMS = RLCMPX(TYPEL)*NL\r\n      K1     = 1\r\n      OPRD   = RDREW\r\n      OPWRT  = WRTREW\r\n      BLOCK(1) = DBL(1)\r\nC\r\nC     OPEN LOWER TRIANGULAR FACTOR FILE (DBL1)\r\nC\r\n      CALL GOPEN (DBL1,ZS(BUF2),RDREW)\r\nC\r\nC     OPEN RIGHT HAND VECTORS FILE (DBB) AND COMPUTE EXTENT OF THIS PASS\r\nC\r\n  100 KN    = MIN0(K1+NVECS-1,NBRLOD)\r\n      LAST  = (KN-K1+1)*NWDS\r\n      OPCLS = NOREW\r\n      IF (KN .EQ. NBRLOD) OPCLS = REW\r\n      IF (IDENT) GO TO 280\r\n      CALL GOPEN (DBB,ZS(BUF1),OPRD)\r\n      GO TO (140,180,230), SWITCH\r\nC\r\nC     NORMAL CASE - FILL CORE WITH RIGHT HAND VECTORS\r\nC\r\n  140 DO 170 L = 1,LAST,NWDS\r\n      CALL UNPACK (*150,DBB,ZS(L))\r\n      GO TO 170\r\n  150 LN = L + NWDS - 1\r\n      DO 160 LL = L,LN\r\n  160 ZS(LL) = 0.\r\n  170 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP\r\nC\r\n  180 LAST = 2*(KN-K1+1)*NWDS\r\n      L = 0\r\n      DO 190 K = 1,NNNDBL\r\n  190 ZD(K) = 0.0D+0\r\n      DO 220 K = K1,KN\r\n      ICSPSG = CSP*SIGN\r\n      CALL INTPK (*210,DBB,0,ICSPSG,0)\r\n  200 CALL ZNTPKI\r\n      ZS(L+IX   ) = XS(1)\r\n      ZS(L+IX+NL) = XS(2)\r\n      IF (EOL .EQ. 0) GO TO 200\r\n  210 L = L + 2*NL\r\n  220 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP\r\nC\r\n  230 LAST = 2*(KN-K1+1)*NWDS\r\n      L = 0\r\n      DO 240 K = 1,NNNDBL\r\n  240 ZD(K) = 0.0D+0\r\n      DO 270 K = K1,KN\r\n      ICDPSG = CDP*SIGN\r\n      CALL INTPK (*260,DBB,0,ICDPSG,0)\r\n  250 CALL ZNTPKI\r\n      ZD(L+IX   ) = XD(1)\r\n      ZD(L+IX+NL) = XD(2)\r\n      IF (EOL .EQ. 0) GO TO 250\r\n  260 L = L + 2*NL\r\n  270 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - GENERATE IDENTITY MATRIX\r\nC\r\n  280 DO 290 K = 1,NNNDBL\r\n  290 ZD(K) = 0.0D+0\r\n      L = 0\r\n      GO TO (300,320,340,360), TYPEL\r\n  300 DO 310 K = K1,KN\r\n      ZS(L+K) = 1.0\r\n  310 L = L + NTERMS\r\n      GO TO 400\r\n  320 DO 330 K = K1,KN\r\n      ZD(L+K) = 1.0D+0\r\n  330 L = L + NTERMS\r\n      GO TO 400\r\n  340 DO 350 K = K1,KN\r\n      ZS(L+2*K-1) = 1.0\r\n  350 L = L + NTERMS\r\n      GO TO 400\r\n  360 DO 370 K = K1,KN\r\n      ZD(L+2*K-1) = 1.0D+0\r\n  370 L = L + NTERMS\r\n      GO TO 400\r\nC\r\nC    CLOSE RIGHT HAND VECTORS FILE (DBB).\r\nC    START FORWARD-BACKWARD SUBSTITUTION ON RIGHT HAND VECTORS NOW IN CORE\r\nC\r\n  390 CALL CLOSE  (DBB,OPCLS)\r\n  400 CALL REWIND (DBL1)\r\n      CALL FWDREC (*610,DBL1)\r\nC\r\n      J = TYPEL \r\n      GO TO (410,420,430,440), J\r\n  410 CALL FBS1 (BLOCK,ZS,ZS(LAST),NWDS)\r\n      GO TO 500\r\n  420 CALL FBS2 (BLOCK,ZS,ZS(LAST),NWDS)\r\n      GO TO 500\r\n  430 CALL FBS3 (BLOCK,ZS,ZS(LAST),NWDS)\r\n      GO TO 500\r\n  440 CALL FBS4 (BLOCK,ZS,ZS(LAST),NWDS)\r\n      GO TO 500\r\nC\r\nC     OPEN AND PACK SOLUTION VECTORS ONTO OUTPUT FILE (DBX)\r\nC\r\n  500 CALL GOPEN (DBX,ZS(BUF1),OPWRT)\r\n      GO TO (510,530,560), SWITCH\r\nC\r\nC     NORMAL CASE - CALL PACK\r\nC\r\n  510 DO 520 L = 1,LAST,NWDS\r\n      CALL PACK (ZS(L),DBX,DBX)\r\n  520 CONTINUE\r\n      GO TO 600\r\nC\r\nC     SPECIAL CASE - FACTOR IS RSP AND VECTORS ARE CSP, CALL BLDPK\r\nC\r\n  530 L = 0\r\n      DO 550 K = K1,KN\r\n      CALL BLDPK (CSP,TYPEX,DBX,0,0)\r\n      DO 540 I = 1,NL\r\n      YS(1) = ZS(L+I   )\r\n      YS(2) = ZS(L+I+NL)\r\n      IY = I\r\n      CALL ZBLPKI\r\n  540 CONTINUE\r\n      CALL BLDPKN (DBX,0,DBX)\r\n      L = L + 2*NL\r\n  550 CONTINUE\r\n      GO TO 600\r\nC\r\nC     SPECIAL CASE - FACTOR IS RDP AND VECTORS ARE CDP, CALL BLDPK\r\nC\r\n  560 L = 0\r\n      DO 580 K = K1,KN\r\n      CALL BLDPK (CDP,TYPEX,DBX,0,0)\r\n      DO 570 I = 1,NL\r\n      YD(1) = ZD(L+I   )\r\n      YD(2) = ZD(L+I+NL)\r\n      IY = I\r\n      CALL ZBLPKI\r\n  570 CONTINUE\r\n      CALL BLDPKN (DBX,0,DBX)\r\n      L = L + 2*NL\r\n  580 CONTINUE\r\nC\r\nC     CLOSE OUTPUT FILE, AND TEST FOR MORE PASSES\r\nC\r\n  600 CALL CLOSE (DBX,OPCLS)\r\n      IF (KN .EQ. NBRLOD) GO TO 620\r\n      K1   = KN + 1\r\n      OPRD = RD\r\n      OPWRT= WRT\r\n      GO TO 100\r\nC\r\nC     ERROR\r\nC\r\n  610 CALL MESAGE (-2,DBL1,SUBNAM)\r\nC\r\nC     JOB DONE. CLOSE TRIANGULAR FACTOR FILE.\r\nC\r\n  620 CALL CLOSE (DBL1,REW)\r\n      SUBNAM(2) = END\r\n      CALL CONMSG (SUBNAM,2,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsi.f",
    "content": "      SUBROUTINE FBSI (ZS,ZD)\r\nC\r\nC     GIVEN A LOWER TRIANGULAR FACTOR WITH DIAGONAL SUPERIMPOSED, AND\r\nC     WRITTEN WITH TRAILING STRING DEFINITION WORDS, FBS WILL PERFORM\r\nC     THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE A LINEAR\r\nC     SYSTEM OF EQUATIONS.\r\nC\r\nC     OPEN CORE IS DEFINED AS FOLLOWS\r\nC\r\nC     ZS(   1         ) - FIRST RIGHT HAND VECTOR ON FILE DBB\r\nC                         (SIZE = NCOL*NWDS)\r\nC                         NCOL = NUMBER OF COLUMNS (ROWS) IN LOWER  \r\nC                                TRIANGULAR MATRIX\r\nC                         NWDS = 1, IF MATRICES ARE REAL SINGLE\r\nC                              = 2, IF MATRICES ARE REAL DOUBLE OR \r\nC                                COMPLEX SINGLE\r\nC                              = 4, IF MATRICES ARE COMPLEX DOUBLE\r\nC     ZS( NCOL*NWDS+1 ) - NEXT RIGHT HAND VECTOR\r\nC         .\r\nC         .               ( \"NRHV\" RIGHT HAND VECTORS WILL BE LOADED INTO \r\nC         .               MEMORY)\r\nC         .\r\nC     ZS( MTRIA       ) - MEMORY FOR STORAGE OF ALL OR PART OF THE LOWER\r\nC                         TRIANGULAR MATRIX.  (SEE SUBROUTINE FBSRDM FOR\r\nC                         FORMAT OF STORAGE OF MATRIX.)\r\nC     ZS( BUF1        ) - BUFFER FOR FILE WITH RIGHT HAND VECTORS\r\nC                         AND FOR SOLUTION VECTORS\r\nC     ZS( BUF2        ) - BUFFER FOR FILE WITH TRIANGULAR MATRIX\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         IDENT\r\n      INTEGER         SUBNAM(2) ,BLOCK(15),BEGN     ,END      ,INAME(2)\r\n      REAL            ZS(1)     ,XS(4)    ,YS(4)\r\n      DOUBLE  PRECISION          ZD(1)    ,XD       ,YD\r\n      CHARACTER       UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON /LOGOUT/ LOUT\r\n      COMMON /XMSSG / UFM       ,UWM      ,UIM\r\n      COMMON /FBSX  / DBL(7)    ,DBU(7)   ,DBB(7)   ,DBX(7)   ,LCORE   ,\r\n     1                PREC      ,SIGN     ,SCRX\r\n      COMMON /FBSM  / NVEC      ,NVECSZ   ,NWDS     ,LASIND   ,IPOS(7)\r\n      COMMON /SYSTEM/ SYSBUF    ,NOUT     ,SKIP(91) ,KSYS94\r\n      COMMON /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,REW     ,\r\n     1                NOREW     ,EOFNRW   ,RSP      ,RDP      ,CSP     ,\r\n     2                CDP\r\n      COMMON /TYPE  / PRC(2)    ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /PACKX / ITYPE1    ,ITYPE2   ,I1       ,J1       ,INCR1\r\n      COMMON /UNPAKX/ ITYPE3    ,I2       ,J2       ,INCR2\r\n      COMMON /ZNTPKX/ XD(2)     ,IX       ,EOL\r\n      COMMON /ZBLPKX/ YD(2)     ,IY\r\n      EQUIVALENCE     (DBL(2),NCOL),   (DBB(5),TYPEB), (DBX(5),TYPEX),\r\n     1                (XD(1),XS(1)), (YD(1),YS(1))\r\n      DATA    SUBNAM/ 4HFBSI,4H    /  \r\n      DATA    BEGN  / 4HBEGN/\r\n      DATA    END   / 4HEND /\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      BUF2     = LCORE - SYSBUF\r\n      BUF1     = BUF2  - SYSBUF\r\n      TYPEL    = DBL(5)            \r\n      RCB      = RLCMPX( TYPEB )\r\n      RCL      = RLCMPX( TYPEL )\r\n      NWDS     = WORDS ( TYPEB )\r\n      IF ( RCB .EQ. RCL .AND. TYPEL .GT. TYPEB ) NWDS = WORDS( TYPEL )\r\n      NRHVWD   = NWDS * NCOL      \r\n      NWDS     = WORDS ( TYPEL )\r\n      NRHV     = DBB(2)\r\n      IDENT    = .FALSE.\r\n      IF (DBB(4) .EQ. 8) IDENT = .TRUE.\r\n      IF (IDENT) NRHV = NCOL\r\n      SWITCH   = 1\r\nC \r\nC SET SWITCH AS FOLLOWS:\r\nC  =1, IF LOWER TRIANGULAR MATRIX AND RIGHT HAND VECTORS ARE SAME TYPE\r\nC  =2, LOWER TRIANGULAR MATRIX IS REAL SINGLE AND RIGHT HAND VECTOR IS \r\nC      COMPLEX\r\nC  =3, LOWER TRIANGULAR MATRIX IS REAL DOUBLE AND RIGHT HAND VECTOR IS \r\nC      COMPLEX\r\nC  (NOTE, IF SWITCH IS .NE. 1, THEN THE REAL AND IMAGINARY PARTS OF THE\r\nC   THE RIGHT HAND VECTOR ARE TREATED AS TWO SEPARATE VECTORS.  I.E.,\r\nC   THE REAL PART BECOMES ONE VECTOR AND THE IMAGINARY PART BECOMES A\r\nC   SECOND VECTOR.)\r\nC\r\n      IF (TYPEL.EQ.RSP .AND. RCB.EQ.2) SWITCH = 2\r\n      IF (TYPEL.EQ.RDP .AND. RCB.EQ.2) SWITCH = 3\r\n      IF (SWITCH .EQ. 1 ) GO TO 90\r\n      IF (SWITCH .EQ. 3 ) GO TO 70\r\n      NRHVWD   = 2 * NCOL      \r\n      GO TO 90\r\n70    CONTINUE\r\n      NRHVWD   = 4 * NCOL      \r\n90    CONTINUE\r\n      MTRIA    = NRHV * NRHVWD + 1\r\nC\r\nC ENSURE DOUBLE WORD BOUNDARY\r\nC\r\n      MTRIA    = ( MTRIA/2 ) * 2 + 1\r\n      MEMAVL   = BUF1 - MTRIA - 2\r\n      SUBNAM(2) = BEGN\r\n      CALL CONMSG (SUBNAM,2,0)\r\n      CALL FBSRDM ( DBL   , ZS(MTRIA), ZS(MTRIA), ZS(MTRIA) \r\n     &,             MEMAVL, ZS(BUF2 ), LASIND   , IPOS )\r\n      CALL SSWTCH ( 47, L47 )\r\n      CALL FNAME ( DBL, INAME )\r\n      IF ( L47 .EQ. 0 ) GO TO 100\r\n      WRITE ( LOUT, 9001 ) DBL(1), INAME, IPOS( 1 ), NCOL, LCORE, MEMAVL\r\n      CALL FNAME ( DBB, INAME )\r\n      WRITE ( LOUT, 9002 ) DBB(1), INAME, DBL, DBB\r\n9001  FORMAT(4X\r\n     &,      ' FORWARD BACKWARD SUBSTITUTION OF FILE ',I3,'   NAME=',2A4\r\n     &,/,4X, ' LAST COLUMN OF TRIANGULAR MATRIX IN MEMORY        =',I8\r\n     &,/,4X, ' TOTAL COLUMNS IN TRIANGULAR MATRIX                =',I8\r\n     &,/,4X, ' TOTAL OPEN CORE AVAILABLE FOR USE                 =',I8\r\n     &,/,4X, ' OPEN CORE AVAILABLE FOR TRIANGULAR MATRIX STORAGE =',I8 )\r\n9002  FORMAT(4X\r\n     &,      ' RIGHT HAND VECTOR FILE ',I3,'   NAME=',2A4\r\n     &,/,4X, ' TRIANGULAR MATRIX TRAILER    =', 7I6 \r\n     &,/,4X, ' RIGHT HAND VECTOR(S) TRAILER =', 7I6 )   \r\n100   CONTINUE\r\n      I2       = 1\r\n      J2       = NCOL\r\n      INCR2    = 1\r\n      I1       = 1\r\n      J1       = NCOL\r\n      INCR1    = 1\r\n      ITYPE1   = TYPEL\r\n      ITYPE2   = TYPEX\r\n      ITYPE3   = SIGN*TYPEL\r\n      DBX(2)   = 0\r\n      DBX(6)   = 0\r\n      DBX(7)   = 0\r\n      BLOCK(1) = DBL(1)\r\nC\r\nC     OPEN RIGHT HAND VECTORS FILE (DBB)\r\nC\r\n      LAST  = NRHV*NRHVWD\r\n      IF ( IDENT ) GO TO 280\r\n      CALL GOPEN ( DBB, ZS(BUF1), RDREW )\r\n      GO TO ( 140, 180, 230 ), SWITCH\r\nC\r\nC     READ RIGHT HAND VECTORS INTO MEMORY\r\nC\r\n  140 DO 170 L = 1, LAST, NRHVWD\r\n      CALL UNPACK ( *150, DBB, ZS(L) )\r\n      GO TO 170\r\n  150 LN = L + NRHVWD - 1\r\n      DO 160 LL = L,LN\r\n  160 ZS( LL ) = 0.\r\n  170 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RSP AND VECTORS ARE CSP\r\nC\r\n  180 LAST2 = LAST / 2\r\n      L = 0\r\n      DO 190 K = 1,LAST2\r\n  190 ZD(K)    = 0.0D+0\r\n      DO 220 K = 1, NRHV\r\n      ICSPSG   = CSP*SIGN\r\n      CALL INTPK ( *210, DBB, 0, ICSPSG, 0 )\r\n  200 CALL ZNTPKI\r\n      ZS(L+IX     ) = XS(1)\r\n      ZS(L+IX+NCOL) = XS(2)\r\n      IF ( EOL .EQ. 0 ) GO TO 200\r\n  210 L = L + 2*NCOL\r\n  220 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RDP AND VECTORS ARE CDP\r\nC\r\n  230 LAST2 = LAST / 2\r\n      L = 0\r\n      DO 240 K = 1,LAST2\r\n  240 ZD(K)    = 0.0D+0\r\n      DO 270 K = 1, NRHV\r\n      ICDPSG   = CDP*SIGN\r\n      CALL INTPK ( *260, DBB, 0, ICDPSG, 0 )\r\n  250 CALL ZNTPKI\r\n      ZD(L+IX     ) = XD(1)\r\n      ZD(L+IX+NCOL) = XD(2)\r\n      IF ( EOL .EQ. 0 ) GO TO 250\r\n  260 L        = L + 2*NCOL\r\n  270 CONTINUE\r\n      GO TO 390\r\nC\r\nC     SPECIAL CASE - GENERATE IDENTITY MATRIX\r\nC\r\n  280 LAST = NRHV * NRHVWD\r\n      DO 290 K = 1,LAST\r\n  290 ZD(K) = 0.0D+0\r\n      L = 0\r\n      GO TO ( 300, 320, 340, 360 ), TYPEL\r\n  300 DO 310 K = 1, NRHV\r\n      ZS(L+K)  = 1.0\r\n  310 L        = L + NRHVWD\r\n      GO TO 400\r\n  320 DO 330 K = 1, NRHV\r\n      ZD(L+K)  = 1.0D+0\r\n  330 L        = L + NRHVWD\r\n      GO TO 400\r\n  340 DO 350 K    = 1, NRHV\r\n      ZS(L+2*K-1) = 1.0\r\n  350 L           = L + NRHVWD\r\n      GO TO 400\r\n  360 DO 370 K    = 1, NRHV\r\n      ZD(L+2*K-1) = 1.0D+0\r\n  370 L           = L + NRHVWD\r\n      GO TO 400\r\nC\r\nC    CLOSE RIGHT HAND VECTORS FILE (DBB).\r\nC    START FORWARD-BACKWARD SUBSTITUTION ON RIGHT HAND VECTORS\r\nC\r\n  390 CALL CLOSE  (DBB,REW)\r\n  400 CONTINUE\r\n      J      = TYPEL \r\n      NVEC   = NRHV\r\n      NVECSZ = NCOL\r\n      IF ( SWITCH .GT. 1 ) NVEC = NVEC*2\r\n      GO TO ( 410, 420, 430, 440), J\r\n  410 CONTINUE\r\n      CALL FBSI1 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) \r\n      GO TO 500\r\n  420 CONTINUE  \r\n      CALL FBSI2 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) \r\n      GO TO 500\r\n  430 CONTINUE\r\n      CALL FBSI3 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) \r\n      GO TO 500\r\n  440 CONTINUE\r\n      CALL FBSI4 ( BLOCK, ZS, ZS(MTRIA), ZS(MTRIA), ZS(BUF2) ) \r\n      GO TO 500\r\nC\r\nC     OPEN AND PACK SOLUTION VECTORS ONTO OUTPUT FILE (DBX)\r\nC\r\n  500 CALL GOPEN ( DBX, ZS(BUF1), WRTREW)\r\n      GO TO ( 510, 530, 560 ), SWITCH\r\nC\r\nC     NORMAL CASE - CALL PACK\r\nC\r\n  510 DO 520 L = 1, LAST, NRHVWD\r\n      CALL PACK ( ZS(L), DBX, DBX )\r\n  520 CONTINUE\r\n      GO TO 600\r\nC\r\nC     SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RSP AND VECTORS ARE CSP\r\nC\r\n  530 L = 0\r\n      DO 550 K = 1, NRHV\r\n      CALL BLDPK ( CSP, TYPEX, DBX, 0, 0 )\r\n      DO 540 I = 1, NCOL\r\n      YS(1)    = ZS(L+I     )\r\n      YS(2)    = ZS(L+I+NCOL)\r\n      IY       = I\r\n      CALL ZBLPKI\r\n  540 CONTINUE\r\n      CALL BLDPKN ( DBX, 0, DBX )\r\n      L        = L + 2*NCOL\r\n  550 CONTINUE\r\n      GO TO 600\r\nC\r\nC     SPECIAL CASE - LOWER TRIANGULAR MATRIX IS RDP AND VECTORS ARE CDP\r\nC\r\n  560 L = 0\r\n      DO 580 K = 1, NRHV\r\n      CALL BLDPK ( CDP, TYPEX, DBX, 0, 0 )\r\n      DO 570 I = 1,NCOL\r\n      YD(1)    = ZD(L+I     )\r\n      YD(2)    = ZD(L+I+NCOL)\r\n      IY       = I\r\n      CALL ZBLPKI\r\n  570 CONTINUE\r\n      CALL BLDPKN ( DBX, 0, DBX )\r\n      L        = L + 2*NCOL\r\n  580 CONTINUE\r\n      GO TO 600\r\nC\r\nC     JOB DONE. CLOSE TRIANGULAR MATRIX AND SOLUTION FILE.\r\nC\r\n  600 CALL CLOSE ( DBX, REW )\r\n      SUBNAM( 2 ) = END\r\n      CALL CONMSG ( SUBNAM, 2, 0 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsi1.f",
    "content": "      SUBROUTINE FBSI1 (BLOCK, Y, MEM, DMEM, IBUFF)\r\nC\r\nC     FBSI2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN RDP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      INTEGER          IBUFF(2), DBU, DBB, DBC\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, MEM(2)\r\n      REAL             Y(1), LJJ, L, YJK, SUM, ZERO, DMEM(2)\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /NAMES /  RD, RDREW, WRT, WRTREW, REW\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /ZZZZZZ/  L(2)\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /FBSX  /  DBL(7), DBU(7), DBB(7), DBC(7)\r\n      COMMON /FBSM  /  NVEC  , NVECSZ, NWDS  , LASIND, IPOS(7)\r\n      DATA             ZERO / 0.0    /\r\n      DATA    SUBNAM, BEGN, END / 4HFBS1, 4HBEGN, 4HEND /\r\nC\r\n      NCOL   = DBL(2)\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      IOPEN  = 0\r\n      CALL CONMSG (BUF,2,0)\r\n      LAST   = NVEC * NVECSZ\r\n      NIDLT  = 1\r\n      LCOL   = IPOS( 1 )\r\n      DO 1000 J = 1,LCOL\r\nC      PRINT *,' FORWARD, PROCESSING COLUMN J=',J\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 10 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 100\r\n10    CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n40    NROWS  = MEM( NIDLT+1 )\r\n      NIDLT  = NIDLT + NROWS + 4\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 1000\r\n      GO TO 40\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n100   CONTINUE\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n      NROWS  = MEM( NIDLT + 1 )    \r\n      IROW   = MEM( NIDLT + NROWS + 2 )\r\n      INDXI  = NIDLT + 2 \r\n      INDXL  = INDXI + NROWS - 1\r\n      LJJ   = 1.0 / DMEM( INDXI )\r\n      IF (NROWS .EQ. 1) GO TO 600\r\n      INDXI = INDXI + 1\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n300   DO 500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 500\r\n      IYROW      = IROW + K - 1\r\n      DO 400 IJ  = INDXI, INDXL\r\n      Y( IYROW ) = Y( IYROW ) + DMEM( IJ ) * YJK\r\n400   IYROW      = IYROW + 1\r\n500   CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n600   CONTINUE\r\n      NIDLT  = NIDLT + 4 + NROWS\r\n      IF ( NIDLT .GE. LASIND ) GO TO 800\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 800\r\n      NROWS  = MEM( NIDLT + 1 )\r\n      IROW   = MEM( NIDLT + NROWS + 2 )\r\n      INDXI  = NIDLT + 2\r\n      INDXL  = INDXI + NROWS - 1\r\n      GO TO 300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n800   DO 900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n900   CONTINUE\r\nC\r\n1000  CONTINUE\r\n1005  CONTINUE\r\n      IF ( LCOL .EQ. NCOL ) GO TO 2005\r\n      IFCOL = LCOL + 1\r\n      CALL GOPEN  ( DBL, IBUFF, RDREW ) \r\nC\r\nC POSITION FILE TO APPROPRIATE COLUMN TO BE READ \r\nC\r\n      CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) )\r\n      DO 2000 J = IFCOL, NCOL\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 1010 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 1100\r\n1010  CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      CALL SKPREC ( DBL, 1 )\r\n      GO TO 2000\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n1100  CONTINUE\r\n      BLOCK(8) = -1\r\n      CALL GETSTR ( *7002, BLOCK )\r\n      IF (BLOCK(4) .NE. J) GO TO 7002\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS - 1  \r\n1200  CONTINUE\r\n      LJJ   = 1.0D+0 / L( INDXI )\r\n      IF (NROWS .EQ. 1) GO TO 1600\r\n      INDXI = INDXI + 1\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n1300  DO 1500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 1500\r\n      IYROW      = IROW + K - 1\r\n      DO 1400 IJ  = INDXI, INDXL\r\n      Y( IYROW ) = Y( IYROW ) + L( IJ ) * YJK\r\n1400  IYROW      = IYROW + 1\r\n1500  CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n1600  CONTINUE\r\n      CALL ENDGET ( BLOCK )\r\n      CALL GETSTR ( *1800, BLOCK )\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS - 1  \r\n      GO TO 1300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n1800  DO 1900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n1900  CONTINUE\r\n2000  CONTINUE\r\n2005  continue\r\n      IF ( NCOL  .EQ. 1 ) GO TO 7000    \r\n      J = NCOL - 1   \r\n      IF ( LCOL .EQ. NCOL ) GO TO 3000\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      CALL BCKREC (BLOCK)\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n2200  J1 = J - 1\r\n      BLOCK(8) = -1\r\n2300  CALL GETSTB (*2900,BLOCK)\r\n      IROW  = BLOCK( 4 )\r\n      NROWS = BLOCK( 6 )\r\n      IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1\r\n      IF (NROWS .EQ. 0) GO TO 2800\r\n      INDXI = BLOCK( 5 )\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 2700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 1\r\n      IK  = IROW  + K\r\n      SUM = 0.0D+0\r\n      DO 2600 II = 1,NROWS\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n      SUM = SUM + L(JI)*Y(IK)\r\n2600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n2700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n2800  CONTINUE\r\n      CALL ENDGTB (BLOCK)\r\n      GO TO 2300\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n2900  IF (J .EQ. 1) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .EQ. LCOL ) GO TO 3010\r\n      GO TO 2200\r\nC\r\n3000  CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n3005  CONTINUE\r\n      NIDLT = NIDLT - 1\r\n      NROWS = MEM( NIDLT )\r\n      NIDLT = NIDLT - NROWS - 3\r\n      KCOL  = MEM( NIDLT )\r\n      IF ( KCOL .EQ. NCOL ) GO TO 3005\r\n      NIDLT = NIDLT + NROWS + 4\r\n3010  CONTINUE\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n3200  J1 = J - 1\r\n3250  NIDLT = NIDLT - 1\r\n      IF ( NIDLT .LE. 1 ) GO TO 3900\r\n      NROWS = MEM( NIDLT )\r\n      IROW  = MEM( NIDLT-1 )\r\n      NIDLT = NIDLT - NROWS - 3\r\n      KCOL  = MEM( NIDLT )\r\n3260  CONTINUE     \r\n      IF ( KCOL .NE. J ) GO TO 3900\r\n      INDXI = NIDLT  + NROWS + 1   \r\n      IROW  = IROW + NROWS - 1\r\n      IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1   \r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 3700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 1\r\n      IK  = IROW  + K\r\n      SUM = 0.0D+0\r\n      DO 3600 II = 1,NROWS\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n      SUM = SUM + DMEM(JI)*Y(IK)\r\n3600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n3700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n      GO TO 3250\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n3900  IF (J .EQ. 1) GO TO 7000\r\n      J  = J - 1\r\n      J1 = J - 1\r\n      GO TO 3260\r\nC\r\n7000  BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      CALL CLOSE ( DBL, REW )\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n7001  CONTINUE\r\n7002  CONTINUE\r\n      WRITE  (NOUT,9001) SFM,SUBNAM\r\n9001  FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsi2.f",
    "content": "      SUBROUTINE FBSI2 (BLOCK, Y, MEM, DMEM, IBUFF)\r\nC\r\nC     FBSI2 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN RDP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      INTEGER          IBUFF(2), DBU, DBB, DBC\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, MEM(2)\r\n      DOUBLE PRECISION Y(1), LJJ, L, YJK, SUM, ZERO, DMEM(2)\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /NAMES /  RD, RDREW, WRT, WRTREW, REW\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /ZZZZZZ/  L(2)\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /FBSX  /  DBL(7), DBU(7), DBB(7), DBC(7)\r\n      COMMON /FBSM  /  NVEC  , NVECSZ, NWDS  , LASIND, IPOS(7)\r\n      DATA             ZERO / 0.0D+0    /\r\n      DATA    SUBNAM, BEGN, END / 4HFBS2, 4HBEGN, 4HEND /\r\nC\r\n      NCOL   = DBL(2)\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      IOPEN  = 0\r\n      CALL CONMSG (BUF,2,0)\r\n      LAST   = NVEC * NVECSZ\r\n      NIDLT  = 1\r\n      LCOL   = IPOS( 1 )\r\n      DO 1000 J = 1,LCOL\r\nC      PRINT *,' FORWARD, PROCESSING COLUMN J=',J\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 10 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 100\r\n10    CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n40    NROWS  = MEM( NIDLT+1 )\r\n      NIDLT  = NIDLT + NROWS*NWDS + 4\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 1000\r\n      GO TO 40\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n100   CONTINUE\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n      NROWS  = MEM( NIDLT + 1 )    \r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = ( NIDLT + 3 ) / 2\r\n      INDXL  = INDXI + NROWS - 1\r\n      LJJ   = 1.0D+0 / DMEM( INDXI )\r\n      IF (NROWS .EQ. 1) GO TO 600\r\n      INDXI = INDXI + 1\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n300   DO 500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 500\r\n      IYROW      = IROW + K - 1\r\n      DO 400 IJ  = INDXI, INDXL\r\n      Y( IYROW ) = Y( IYROW ) + DMEM( IJ ) * YJK\r\n400   IYROW      = IYROW + 1\r\n500   CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n600   CONTINUE\r\n      NIDLT  = NIDLT + 4 + NROWS*NWDS\r\n      IF ( NIDLT .GE. LASIND ) GO TO 800\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 800\r\n      NROWS  = MEM( NIDLT + 1 )\r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = ( NIDLT + 3 ) / 2\r\n      INDXL  = INDXI + NROWS - 1\r\n      GO TO 300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n800   DO 900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n900   CONTINUE\r\n1000  CONTINUE\r\n1005  CONTINUE\r\n      IF ( LCOL .EQ. NCOL ) GO TO 2005\r\n      IFCOL = LCOL + 1\r\n      CALL GOPEN  ( DBL, IBUFF, RDREW ) \r\nC\r\nC POSITION FILE TO APPROPRIATE COLUMN TO BE READ \r\nC\r\n      CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) )\r\n      DO 2000 J = IFCOL, NCOL\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 1010 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 1100\r\n1010  CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      CALL SKPREC ( DBL, 1 )\r\n      GO TO 2000\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n1100  CONTINUE\r\n      BLOCK(8) = -1\r\n      CALL GETSTR ( *7002, BLOCK )\r\n      IF (BLOCK(4) .NE. J) GO TO 7002\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS - 1  \r\n1200  CONTINUE\r\n      LJJ   = 1.0D+0 / L( INDXI )\r\n      IF (NROWS .EQ. 1) GO TO 1600\r\n      INDXI = INDXI + 1\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n1300  DO 1500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 1500\r\n      IYROW      = IROW + K - 1\r\n      DO 1400 IJ  = INDXI, INDXL\r\n      Y( IYROW ) = Y( IYROW ) + L( IJ ) * YJK\r\n1400  IYROW      = IYROW + 1\r\n1500  CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n1600  CONTINUE\r\n      CALL ENDGET ( BLOCK )\r\n      CALL GETSTR ( *1800, BLOCK )\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS - 1  \r\n      GO TO 1300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n1800  DO 1900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n1900  CONTINUE\r\n2000  CONTINUE\r\n2005  CONTINUE\r\n      IF ( NCOL  .EQ. 1 ) GO TO 7000    \r\n      J = NCOL - 1   \r\n      IF ( LCOL .EQ. NCOL ) GO TO 3000\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      CALL BCKREC (BLOCK)\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n2200  J1 = J - 1\r\n      BLOCK(8) = -1\r\n2300  CALL GETSTB (*2900,BLOCK)\r\n      IROW  = BLOCK( 4 )\r\n      NROWS = BLOCK( 6 )\r\n      IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1\r\n      IF (NROWS .EQ. 0) GO TO 2800\r\n      INDXI = BLOCK( 5 )\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 2700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 1\r\n      IK  = IROW  + K\r\n      SUM = 0.0D+0\r\n      DO 2600 II = 1,NROWS\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n      SUM = SUM + L(JI)*Y(IK)\r\n2600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n2700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n2800  CONTINUE\r\n      CALL ENDGTB (BLOCK)\r\n      GO TO 2300\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n2900  IF (J .EQ. 1) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .EQ. LCOL ) GO TO 3010\r\n      GO TO 2200\r\nC\r\n3000  CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n3005  CONTINUE\r\n      NIDLT = NIDLT - 1\r\n      NROWS = MEM( NIDLT )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n      IF ( KCOL .EQ. NCOL ) GO TO 3005\r\n      NIDLT = NIDLT + NROWS*NWDS + 4\r\n3010  CONTINUE\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n3200  J1 = J - 1\r\nC      print *,' processing column in backward step, j=',j\r\n3250  NIDLT = NIDLT - 1\r\n      IF ( NIDLT .LE. 1 ) GO TO 3900\r\n      NROWS = MEM( NIDLT )\r\n      IROW  = MEM( NIDLT-1 )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n3260  CONTINUE     \r\n      IF ( KCOL .NE. J ) GO TO 3900\r\n      INDXI = NIDLT/2  + NROWS + 1   \r\n      IROW  = IROW + NROWS - 1\r\n      IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1   \r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 3700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 1\r\n      IK  = IROW  + K\r\n      SUM = 0.0D+0\r\n      DO 3600 II = 1,NROWS\r\n      JI = JI - 1\r\n      IK = IK - 1\r\n      SUM = SUM + DMEM(JI)*Y(IK)\r\n3600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n3700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n      GO TO 3250\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n3900  IF (J .EQ. 1) GO TO 7000\r\n      J  = J - 1\r\n      J1 = J - 1\r\n      GO TO 3260\r\nC\r\n7000  BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      CALL CLOSE ( DBL, REW )\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n7001  CONTINUE\r\n7002  CONTINUE\r\n      WRITE  (NOUT,9001) SFM,SUBNAM\r\n9001  FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsi3.f",
    "content": "      SUBROUTINE FBSI3 (BLOCK, Y, MEM, DMEM, IBUFF)\r\nC\r\nC     FBSI3 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN CSP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      INTEGER          IBUFF(2), DBU, DBB, DBC\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, MEM(2)\r\n      REAL             L, DMEM(2)\r\n      COMPLEX          Y(1), YJK, SUM, ZERO, LJJ\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /NAMES /  RD, RDREW, WRT, WRTREW, REW\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /ZZZZZZ/  L(2)\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /FBSX  /  DBL(7), DBU(7), DBB(7), DBC(7)\r\n      COMMON /FBSM  /  NVEC  , NVECSZ, NWDS  , LASIND, IPOS(7)\r\n      DATA             ZERO / (0.0, 0.0 )    /\r\n      DATA    SUBNAM, BEGN, END / 4HFBS4, 4HBEGN, 4HEND /\r\nC\r\n      NCOL   = DBL(2)\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      IOPEN  = 0\r\n      CALL CONMSG (BUF,2,0)\r\n      LAST   = NVEC * NVECSZ\r\n      NIDLT  = 1\r\n      LCOL   = IPOS( 1 )\r\n      DO 1000 J = 1,LCOL\r\nC      PRINT *,' FORWARD, PROCESSING COLUMN J=',J\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 10 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 100\r\n10    CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n40    NROWS  = MEM( NIDLT+1 )\r\n      NIDLT  = NIDLT + NROWS*NWDS + 4\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 1000\r\n      GO TO 40\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n100   CONTINUE\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n      NROWS  = MEM( NIDLT + 1 )    \r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = NIDLT + 2\r\n      INDXL  = INDXI + NROWS*2 - 1\r\n      LJJ   = 1.0 / CMPLX( DMEM( INDXI ), DMEM( INDXI+1 ) )\r\n      IF (NROWS .EQ. 1) GO TO 600\r\n      INDXI = INDXI + 2\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n300   DO 500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 500\r\n      IYROW      = IROW + K - 1\r\n      DO 400 IJ  = INDXI, INDXL, 2\r\n      Y( IYROW ) = Y( IYROW ) + CMPLX( DMEM(IJ), DMEM(IJ+1) ) * YJK\r\n400   IYROW      = IYROW + 1\r\n500   CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n600   CONTINUE\r\n      NIDLT  = NIDLT + 4 + NROWS*NWDS\r\n      IF ( NIDLT .GE. LASIND ) GO TO 800\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 800\r\n      NROWS  = MEM( NIDLT + 1 )\r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = NIDLT + 2\r\n      INDXL  = INDXI + NROWS*2 - 1\r\n      GO TO 300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n800   DO 900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n900   CONTINUE\r\nC\r\n1000  CONTINUE\r\n1005  CONTINUE\r\n      IF ( LCOL .EQ. NCOL ) GO TO 2005\r\n      IFCOL = LCOL + 1\r\n      CALL GOPEN  ( DBL, IBUFF, RDREW ) \r\nC\r\nC POSITION FILE TO APPROPRIATE COLUMN TO BE READ \r\nC\r\n      CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) )\r\n      DO 2000 J = IFCOL, NCOL\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 1010 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 1100\r\n1010  CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      CALL SKPREC ( DBL, 1 )\r\n      GO TO 2000\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n1100  CONTINUE\r\n      BLOCK(8) = -1\r\n      CALL GETSTR ( *7002, BLOCK )\r\n      IF (BLOCK(4) .NE. J) GO TO 7002\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS*2 - 1  \r\n1200  CONTINUE\r\n      LJJ   = 1.0 / CMPLX( L( INDXI ), L( INDXI+1 ) )\r\n      IF (NROWS .EQ. 1) GO TO 1600\r\n      INDXI = INDXI + 2\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n1300  DO 1500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 1500\r\n      IYROW      = IROW + K - 1\r\n      DO 1400 IJ  = INDXI, INDXL, 2\r\n      Y( IYROW ) = Y( IYROW ) + CMPLX( L(IJ), L(IJ+1) ) * YJK\r\n1400  IYROW      = IYROW + 1\r\n1500  CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n1600  CONTINUE\r\n      CALL ENDGET ( BLOCK )\r\n      CALL GETSTR ( *1800, BLOCK )\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS*2 - 1  \r\n      GO TO 1300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n1800  DO 1900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n1900  CONTINUE\r\n2000  CONTINUE\r\n2005  CONTINUE\r\n      IF ( NCOL  .EQ. 1 ) GO TO 7000    \r\n      J = NCOL - 1   \r\n      IF ( LCOL .EQ. NCOL ) GO TO 3000\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      CALL BCKREC (BLOCK)\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n2200  J1 = J - 1\r\n      BLOCK(8) = -1\r\n2300  CALL GETSTB (*2900,BLOCK)\r\n      IROW  = BLOCK( 4 )\r\n      NROWS = BLOCK( 6 )\r\n      IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1\r\n      IF (NROWS .EQ. 0) GO TO 2800\r\n      INDXI = BLOCK( 5 )\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 2700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 2\r\n      IK  = IROW  + K\r\n      SUM = (0.0, 0.0)\r\n      DO 2600 II = 1,NROWS\r\n      JI = JI - 2\r\n      IK = IK - 1\r\n      SUM = SUM + CMPLX( L(JI),L(JI+1) ) * Y(IK)\r\n2600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n2700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n2800  CONTINUE\r\n      CALL ENDGTB (BLOCK)\r\n      GO TO 2300\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n2900  IF (J .EQ. 1) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .EQ. LCOL ) GO TO 3010\r\n      GO TO 2200\r\nC\r\n3000  CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n3005  CONTINUE\r\n      NIDLT = NIDLT - 1          \r\n      NROWS = MEM( NIDLT )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n      IF ( KCOL .EQ. NCOL ) GO TO 3005\r\n      NIDLT = NIDLT + NROWS*NWDS + 4\r\n3010  CONTINUE\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n3200  J1 = J - 1\r\nC      print *,' processing column in backward step, j=',j\r\n3250  NIDLT = NIDLT - 1\r\n      IF ( NIDLT .LE. 1 ) GO TO 3900\r\n      NROWS = MEM( NIDLT )\r\n      IROW  = MEM( NIDLT-1 )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n3260  CONTINUE     \r\n      IF ( KCOL .NE. J ) GO TO 3900\r\n      INDXI = NIDLT + NROWS*2\r\n      IROW  = IROW + NROWS - 1\r\n      IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1   \r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 3700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 2\r\n      IK  = IROW  + K\r\n      SUM = 0.0\r\n      DO 3600 II = 1,NROWS\r\n      JI = JI - 2\r\n      IK = IK - 1\r\n      SUM = SUM + CMPLX( DMEM(JI),DMEM(JI+1) ) * Y(IK)\r\n3600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n3700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n      GO TO 3250\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n3900  IF (J .EQ. 1) GO TO 7000\r\n      J  = J - 1\r\n      J1 = J - 1\r\n      GO TO 3260\r\nC\r\n7000  BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      CALL CLOSE ( DBL, REW )\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n7001  CONTINUE\r\n7002  CONTINUE\r\n      WRITE  (NOUT,9001) SFM,SUBNAM\r\n9001  FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsi4.f",
    "content": "      SUBROUTINE FBSI4 (BLOCK, Y, MEM, DMEM, IBUFF)\r\nC\r\nC     FBSI4 EXECUTES THE FORWARD/BACKWARD PASS FOR FBSI IN CDP\r\nC\r\n      INTEGER          BLOCK(8), DBL, BUF(2), SUBNAM, BEGN, END\r\n      INTEGER          IBUFF(2), DBU, DBB, DBC\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, MEM(2)\r\n      DOUBLE PRECISION L, DMEM(2)\r\n      DOUBLE COMPLEX   Y(1), YJK, SUM, ZERO, LJJ\r\n      CHARACTER        UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /NAMES /  RD, RDREW, WRT, WRTREW, REW\r\n      COMMON /XMSSG /  UFM, UWM, UIM, SFM\r\n      COMMON /ZZZZZZ/  L(2)\r\n      COMMON /SYSTEM/  SYSBUF, NOUT\r\n      COMMON /FBSX  /  DBL(7), DBU(7), DBB(7), DBC(7)\r\n      COMMON /FBSM  /  NVEC  , NVECSZ, NWDS  , LASIND, IPOS(7)\r\n      DATA             ZERO / (0.0D+0, 0.0D+0 )    /\r\n      DATA    SUBNAM, BEGN, END / 4HFBS4, 4HBEGN, 4HEND /\r\nC\r\n      NCOL   = DBL(2)\r\n      BUF(1) = SUBNAM\r\n      BUF(2) = BEGN\r\n      IOPEN  = 0\r\n      CALL CONMSG (BUF,2,0)\r\n      LAST   = NVEC * NVECSZ\r\n      NIDLT  = 1\r\n      LCOL   = IPOS( 1 )\r\n      DO 1000 J = 1,LCOL\r\nC      PRINT *,' FORWARD, PROCESSING COLUMN J=',J\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 10 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 100\r\n10    CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n40    NROWS  = MEM( NIDLT+1 )\r\n      NIDLT  = NIDLT + NROWS*NWDS + 4\r\n      IF ( NIDLT .GE. LASIND ) GO TO 1005\r\n      KCOL = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 1000\r\n      GO TO 40\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n100   CONTINUE\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 7001\r\n      NROWS  = MEM( NIDLT + 1 )    \r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = ( NIDLT + 3 ) / 2\r\n      INDXL  = INDXI + NROWS*2 - 1\r\n      LJJ   = 1.0D+0 / DCMPLX( DMEM( INDXI ), DMEM( INDXI+1 ) )\r\n      IF (NROWS .EQ. 1) GO TO 600\r\n      INDXI = INDXI + 2\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n300   DO 500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 500\r\n      IYROW      = IROW + K - 1\r\n      DO 400 IJ  = INDXI, INDXL, 2\r\n      Y( IYROW ) = Y( IYROW ) + DCMPLX( DMEM(IJ), DMEM(IJ+1) ) * YJK\r\n400   IYROW      = IYROW + 1\r\n500   CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n600   CONTINUE\r\n      NIDLT  = NIDLT + 4 + NROWS*NWDS\r\n      IF ( NIDLT .GE. LASIND ) GO TO 800\r\n      KCOL   = MEM( NIDLT )\r\n      IF ( KCOL .NE. J ) GO TO 800\r\n      NROWS  = MEM( NIDLT + 1 )\r\n      IROW   = MEM( NIDLT + NROWS*NWDS + 2 )\r\n      INDXI  = ( NIDLT + 3 ) / 2\r\n      INDXL  = INDXI + NROWS*2 - 1\r\n      GO TO 300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n800   DO 900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n900   CONTINUE\r\nC\r\n1000  CONTINUE\r\n1005  CONTINUE\r\n      IF ( LCOL .EQ. NCOL ) GO TO 2005\r\n      IFCOL = LCOL + 1\r\n      CALL GOPEN  ( DBL, IBUFF, RDREW ) \r\nC\r\nC POSITION FILE TO APPROPRIATE COLUMN TO BE READ \r\nC\r\n      CALL DSSPOS ( DBL, IPOS(2), IPOS(3), IPOS(4) )\r\n      DO 2000 J = IFCOL, NCOL\r\n      J1 = J - 1\r\nC\r\nC CHECK IF THIS ROW VALUE IS ZERO FOR ALL RIGHT HAND VECTORS\r\nC\r\n      DO 1010 K = J,LAST,NVECSZ\r\n      IF (Y(K) .NE. ZERO) GO TO 1100\r\n1010  CONTINUE\r\nC\r\nC ALL VALUES FOR THIS ROW ARE ZERO, SKIP TO NEXT ROW OF RIGHT HAND VECTORS\r\nC\r\n      CALL SKPREC ( DBL, 1 )\r\n      GO TO 2000\r\nC\r\nC     GET 1ST STRING FOR COLUMN AND SAVE DIAGONAL ELEMENT\r\nC\r\n1100  CONTINUE\r\n      BLOCK(8) = -1\r\n      CALL GETSTR ( *7002, BLOCK )\r\n      IF (BLOCK(4) .NE. J) GO TO 7002\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS*2 - 1  \r\n1200  CONTINUE\r\n      LJJ   = 1.0D+0 / DCMPLX( L( INDXI ), L( INDXI+1 ) )\r\n      IF (NROWS .EQ. 1) GO TO 1600\r\n      INDXI = INDXI + 2\r\n      IROW  = IROW + 1\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(I,K) = Y(I,K) + L(I,J)*Y(J,K)\r\nC\r\n1300  DO 1500 K   = 1, LAST, NVECSZ\r\n      YJK        = Y( J1+K )\r\n      IF ( YJK .EQ. ZERO ) GO TO 1500\r\n      IYROW      = IROW + K - 1\r\n      DO 1400 IJ  = INDXI, INDXL, 2\r\n      Y( IYROW ) = Y( IYROW ) + DCMPLX( L(IJ), L(IJ+1) ) * YJK\r\n1400  IYROW      = IYROW + 1\r\n1500  CONTINUE\r\nC\r\nC     GET NEXT STRING IN TRIANGULAR FACTOR\r\nC\r\n1600  CONTINUE\r\n      CALL ENDGET ( BLOCK )\r\n      CALL GETSTR ( *1800, BLOCK )\r\n      IROW  = BLOCK(4)  \r\n      INDXI = BLOCK(5)\r\n      NROWS = BLOCK(6)\r\n      INDXL = INDXI + NROWS*2 - 1  \r\n      GO TO 1300\r\nC\r\nC     END-OF-COLUMN ON TRIANGULAR FACTOR -- DIVIDE BY DIAGONAL\r\nC\r\n1800  DO 1900 K = J,LAST,NVECSZ\r\n      Y(K) = Y(K)*LJJ\r\n1900  CONTINUE\r\n2000  CONTINUE\r\n2005  CONTINUE\r\n      IF ( NCOL  .EQ. 1 ) GO TO 7000    \r\n      J = NCOL - 1   \r\n      IF ( LCOL .EQ. NCOL ) GO TO 3000\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n      CALL BCKREC (BLOCK)\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n2200  J1 = J - 1\r\n      BLOCK(8) = -1\r\n2300  CALL GETSTB (*2900,BLOCK)\r\n      IROW  = BLOCK( 4 )\r\n      NROWS = BLOCK( 6 )\r\n      IF (IROW-NROWS .EQ. J1) NROWS = NROWS - 1\r\n      IF (NROWS .EQ. 0) GO TO 2800\r\n      INDXI = BLOCK( 5 )\r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 2700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 2\r\n      IK  = IROW  + K\r\n      SUM = (0.0D+0, 0.0D+0)\r\n      DO 2600 II = 1,NROWS\r\n      JI = JI - 2\r\n      IK = IK - 1\r\n      SUM = SUM + DCMPLX( L(JI),L(JI+1) ) * Y(IK)\r\n2600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n2700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n2800  CONTINUE\r\n      CALL ENDGTB (BLOCK)\r\n      GO TO 2300\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n2900  IF (J .EQ. 1) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .EQ. LCOL ) GO TO 3010\r\n      GO TO 2200\r\nC\r\n3000  CONTINUE\r\nC\r\nC     INITIALIZE FOR BACKWARD PASS BY SKIPPING THE NTH COLUMN\r\nC\r\n3005  CONTINUE\r\n      NIDLT = NIDLT - 1          \r\n      NROWS = MEM( NIDLT )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n      IF ( KCOL .EQ. NCOL ) GO TO 3005\r\n      NIDLT = NIDLT + NROWS*NWDS + 4\r\n3010  CONTINUE\r\nC\r\nC     GET A STRING IN CURRENT COLUMN. IF THIS STRING INCLUDES DIAGONAL,\r\nC     ADJUST STRING TO SKIP IT.\r\nC\r\n3200  J1 = J - 1\r\nC      print *,' processing column in backward step, j=',j\r\n3250  NIDLT = NIDLT - 1\r\n      IF ( NIDLT .LE. 1 ) GO TO 3900\r\n      NROWS = MEM( NIDLT )\r\n      IROW  = MEM( NIDLT-1 )\r\n      NIDLT = NIDLT - NROWS*NWDS - 3\r\n      KCOL  = MEM( NIDLT )\r\n3260  CONTINUE     \r\n      IF ( KCOL .NE. J ) GO TO 3900\r\n      INDXI = NIDLT/2  + NROWS*2 \r\n      IROW  = IROW + NROWS - 1\r\n      IF ( (IROW-NROWS) .EQ. J1 ) NROWS = NROWS - 1   \r\nC\r\nC     PROCESS CURRENT STRING IN TRIANGULAR FACTOR AGAINST EACH\r\nC     LOAD VECTOR IN CORE -- Y(J,K) = Y(J,K) + L(J,I)*Y(I,K)\r\nC\r\n      DO 3700 K = 1,LAST,NVECSZ\r\n      JI  = INDXI + 2\r\n      IK  = IROW  + K\r\n      SUM = 0.0D+0\r\n      DO 3600 II = 1,NROWS\r\n      JI = JI - 2\r\n      IK = IK - 1\r\n      SUM = SUM + DCMPLX( DMEM(JI),DMEM(JI+1) ) * Y(IK)\r\n3600  CONTINUE\r\n      Y(J1+K) = Y(J1+K) + SUM\r\n3700  CONTINUE\r\nC\r\nC     TERMINATE CURRENT STRING AND GET NEXT STRING\r\nC\r\n      GO TO 3250\r\nC\r\nC     END-OF-COLUMN -- TEST FOR COMPLETION\r\nC\r\n3900  IF (J .EQ. 1) GO TO 7000\r\n      J  = J - 1\r\n      J1 = J - 1\r\n      GO TO 3260\r\nC\r\n7000  BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      CALL CLOSE ( DBL, REW )\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE\r\nC\r\n7001  CONTINUE\r\n7002  CONTINUE\r\n      WRITE  (NOUT,9001) SFM,SUBNAM\r\n9001  FORMAT (A25,' 2149, SUBROUTINE ',A4,/5X,'FIRST ELEMENT OF A COLU',\r\n     1      'MN OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsint.f",
    "content": "      SUBROUTINE FBSINT (X,Y)\r\nC\r\nC     GIVEN THE DECOMPOSITION OF A REAL SYMMETRIC MATRIX, FBSINT WILL\r\nC     SOLVE A SYSTEM OF SIMULTANEOUS LINEAR EQUATIONS BY FORWARD-\r\nC     BACKWARD SUBSTITUTION\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR BOTH SINGLE AND DOUBLE PRECISION\r\nC     OPERATION\r\nC\r\n      INTEGER         FILEL     ,IBLK(15)\r\n      REAL            X(1)      ,Y(1)\r\n      COMMON /INFBSX/ FILEL(7)\r\n      COMMON /FBSX  / LFILE(7)\r\n      EQUIVALENCE     (FILEL(3) ,NROW)\r\nC\r\n      NROW2 = NROW\r\n      IF (FILEL(5) .EQ. 2) NROW2 = 2*NROW\r\n      DO 100 I = 1,NROW2\r\n      Y(I) = X(I)\r\n  100 CONTINUE\r\n      DO 120 I = 1,7\r\n      LFILE(I) = FILEL(I)\r\n  120 CONTINUE\r\n      CALL REWIND (FILEL)\r\n      CALL SKPREC (FILEL,1)\r\n      IBLK(1) = FILEL(1)\r\n      IF (FILEL(5) .EQ. 1) CALL FBS1 (IBLK,Y,Y,NROW2)\r\n      IF (FILEL(5) .EQ. 2) CALL FBS2 (IBLK,Y,Y,NROW2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsinv.f",
    "content": "      SUBROUTINE FBSINV (X,Y,IOBUFF)\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     FBSINV IS A SPECIAL FORWARD-BACKWARD SUBSTITUTION ROUTINE FOR\r\nC     INVPWR. IT OPERATES ON CONJUNCTION WITH SDCOMP.\r\nC     THE ARITHMETIC PRECISION IS THAT OF THE INPUT FILE\r\nC\r\nC     FILEL  = MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE\r\nC     X      = THE LOAD VECTOR\r\nC     Y      = THE SOLUTION VECTOR\r\nC     IOBUFF = NOT USED\r\nC\r\n      INTEGER         FILEL   ,PARM(3)  ,IBLK(15)\r\n      REAL            X(1)    ,Y(1)\r\n      COMMON /FBSX  / FILEL(7)\r\n      EQUIVALENCE    (FILEL(3),NROW), (FILEL(5),LTYPE)\r\n      DATA    PARM  / 4H      ,4HFBSI, 4HNV   /\r\nC\r\nC     FORWARD PASS\r\nC\r\n      PARM(1) = FILEL(1)\r\n      IBLK(1) = FILEL(1)\r\n      IF (LTYPE .EQ. 2) GO TO 20\r\n      IF (LTYPE .NE. 1) GO TO 50\r\nC\r\nC     TRANSFER THE SINGLE PRECISION LOAD VECTOR TO THE SOLUTION VECTOR\r\nC\r\n      DO 10 I = 1,NROW\r\n   10 Y(I) = X(I)\r\n      CALL FBS1 (IBLK,Y,Y,NROW)\r\n      GO TO 40\r\nC\r\nC     TRANSFER THE DOUBLE PRECISION LOAD VECTOR TO THE SOLUTION VECTOR\r\nC\r\n   20 NROW2 = 2*NROW\r\n      DO 30 I = 1,NROW2\r\n   30 Y(I) = X(I)\r\n      CALL FBS2 (IBLK,Y,Y,NROW2)\r\nC\r\n   40 CALL REWIND (FILEL)\r\n      CALL SKPREC (FILEL,1)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n   50 CALL MESAGE (-7,PARM(1),PARM(2))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fbsrdm.f",
    "content": "      SUBROUTINE FBSRDM ( MCB   , ICORE , RCORE , DCORE \r\n     &,                   MEMTOT, BUFF, LASIND, IPOS )  \r\nC\r\nC  FBSRDM - This routine will store an entire matrix in memory\r\nC           if sufficient memory exists.  The matrix \r\nC           is stored in memory according to the following scheme:\r\nC           (Subroutine FERRDM is very similiar to this subroutine)\r\nC\r\nC  1st word = current column number\r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC  3+(ntms*prec)+1 = row position of first element in above string\r\nC  3+(ntms*prec)+2 = number of terms in ABOVE string (ntms)\r\nC\r\nC  The above data repeats for all strings within a column and then\r\nC  for all columns in the matrix.\r\nC\r\nC  Argument list :\r\nC     MCB    - Matrix control block for input matrix\r\nC     ICORE  - Memory for storage of data (integer)\r\nC     RCORE  - Same location as ICORE but real single reference\r\nC     DCORE  - Same location as ICORE but real double reference\r\nC     MEMTOT - Total amount of memory available for this data\r\nC     BUFF   - Buffer allocation for input matrix\r\nC     LASIND - Memory index of last string stored in memory \r\nC     IPOS   - 6 word array with the following information\r\nC              (1) = last column read into memory\r\nC              (2) = block number of following column not read into memory\r\nC              (3) = current logical record pointer for following column\r\nC                    not read into memory\r\nC              (4) = current buffer pointer for following record not read\r\nC                    into memory\r\nC              (5) = last block number in file\r\nC              (6) = current logical record pointer for last record in file\r\nC              (7) = current buffer pointer for last record in file\r\nC\r\n      DOUBLE PRECISION DCORE(1), DXL\r\n      REAL             RCORE(1), RXL(1)\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, BUFF(2)\r\n      INTEGER          IPOS(7)  , ICORE(1)\r\n      INTEGER          IBLK(20),MCB(7)\r\n      COMMON  /ZZZZZZ/ DXL(1)\r\n      COMMON  /SYSTEM/ KSYSTM(65)\r\n      COMMON  /NAMES / RD, RDREW, WRT, WRTREW, REW\r\n      EQUIVALENCE      ( KSYSTM( 2), NOUT  )\r\n      EQUIVALENCE      ( DXL,RXL )\r\n      MEM          = 1\r\n      NCOL         = MCB( 2 )\r\n      NTYPE        = MCB( 5 )\r\n      INCR         = 1\r\n      IF ( NTYPE .EQ. 2 .OR. NTYPE .EQ. 3 ) INCR = 2\r\n      IF ( NTYPE .EQ. 4 ) INCR = 4\r\n      NTWDS        = 0\r\n      IPOS( 1 )    = NCOL\r\n      DO  5 I  = 2,7\r\n      IPOS( I ) = 0\r\n  5   CONTINUE\r\n      DO 10 I  = 1,20\r\n 10   IBLK(I)      = 0\r\n      IBLK(1)      = MCB( 1 )\r\n      IBLK(9)      = 1\r\n      IBLK(10)     = 1\r\n      CALL GOPEN  ( MCB, BUFF, RDREW )\r\n      CALL REWIND ( MCB)\r\n      CALL SKPREC ( MCB, 1 )\r\n      DO 1000 JCOL = 1,NCOL\r\n      IBLK(8)      = -1\r\n      LASIND       = MEM - 1        \r\n      CALL DSCPOS  ( MCB, IBLOCK, ICLR, ICBP )     \r\n  100 CALL GETSTR(*1000,IBLK(1))\r\n      INDEX        = IBLK( 5 )\r\n      NTMS         = IBLK( 6 )\r\n      JROW         = IBLK( 4 )\r\n      NTWDS        = NTWDS + 4 + NTMS*INCR\r\n      IF ( NTWDS .GT. MEMTOT ) GO TO 2000\r\n      ICORE(MEM)   = JCOL\r\n      ICORE(MEM+1) = NTMS\r\n      GO TO ( 110, 120, 130, 140 ), NTYPE\r\n  110 CONTINUE\r\n      MINDEX     = MEM + 1\r\n      DO 115 II  = 1,NTMS\r\n      RCORE(MINDEX+II) = RXL(INDEX+II-1)\r\n  115 CONTINUE\r\n      MEM        = MEM + 2 + NTMS  \r\n      GO TO 180\r\n  120 CONTINUE\r\n      MINDEX     = MEM/2+1\r\n      DO 125 II  = 1,NTMS\r\n      DCORE(MINDEX+II) = DXL(INDEX+II-1)\r\n  125 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*2  \r\n      GO TO 180\r\n  130 CONTINUE\r\n      MINDEX     = MEM + 1\r\n      NTMS2      = NTMS*2\r\n      DO 135 II  = 1,NTMS2\r\n      RCORE(MINDEX+II) = RXL(INDEX+II-1)\r\n  135 CONTINUE\r\n      MEM        = MEM + 2 + NTMS2  \r\n      GO TO 180\r\n  140 CONTINUE\r\n      MINDEX     = MEM/2+1\r\n      NTMS2      = NTMS*2\r\n      DO 145 II = 1,NTMS2\r\n      DCORE(MINDEX+II) = DXL(INDEX+II-1)\r\n  145 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*4  \r\n      GO TO 180\r\n  180 CONTINUE\r\n      ICORE(MEM  ) = JROW\r\n      ICORE(MEM+1) = NTMS\r\n      MEM          = MEM + 2\r\n  185 CALL ENDGET (IBLK( 1 ) )\r\n      GO TO 100\r\n 1000 CONTINUE  \r\n      LASIND    = MEM - 1        \r\n      GO TO 7000\r\n 2000 IPOS( 1 ) = JCOL - 1\r\n      IPOS( 2 ) = IBLOCK\r\n      IPOS( 3 ) = ICLR\r\n      IPOS( 4 ) = ICBP\r\n      CALL SKPREC ( MCB, NCOL-JCOL+1 )\r\n      CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP )\r\n      IPOS( 5 ) = IBLOCK\r\n      IPOS( 6 ) = ICLR\r\n      IPOS( 7 ) = ICBP\r\n 7000 CONTINUE\r\n      CALL CLOSE ( MCB , REW )\r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/fcurl.f",
    "content": "      SUBROUTINE FCURL (FMEO, FME1, FFEO, FFE1, YI, S, LAM1)\r\nC     ------------------------------------------------------------------\r\n      DIMENSION  FMEO (10,2), FME1 (10,2), FFEO (10,2), FFE1 (10,2)\r\n      DIMENSION    YI (6, 7)\r\n      REAL LAM1\r\n      FMEO( 1,1) = 0.0\r\n      FMEO( 2,1) = YI(1,1)\r\n      FMEO(3,1)  =  YI(1,2)  *  2.0\r\n      FMEO(4,1)  =  YI(1,3)  *  3.0\r\n      FMEO( 5,1) = YI(1,1) * LAM1\r\n      FMEO( 6,1) = YI(1,2) * LAM1\r\n      FMEO( 7,1) = YI(1,3) * LAM1\r\n      FMEO( 8,1) = YI(1,4) * LAM1\r\n      FMEO( 9,1) = YI(1,5) * LAM1\r\n      FMEO(10,1) = YI(1,6) * LAM1\r\nC\r\n      FMEO( 1,2) = YI(4,1)\r\n      FMEO( 2,2) = YI(4,2)\r\n      FMEO( 3,2) = YI(4,3)\r\n      FMEO( 4,2) = YI(4,4)\r\n      FMEO( 5,2) = YI(2,1)\r\n      FMEO( 6,2) = YI(2,2)\r\n      FMEO( 7,2) = YI(2,3)\r\n      FMEO( 8,2) = YI(2,4)\r\n      FMEO( 9,2) = YI(2,5)\r\n      FMEO(10,2) = YI(2,6)\r\nC\r\n      S1 = 1.0 / S\r\n      FME1( 1,1) = 0.0\r\n      FME1( 2,1) = S1 * YI(1,2)\r\n      FME1(3,1)  =  S1  *  YI(1,3) * 2.0\r\n      FME1(4,1)  =  S1  *  YI(1,4) * 3.0\r\n      FME1( 5,1) = S1 * YI(1,2) * LAM1\r\n      FME1( 6,1) = S1 * YI(1,3) * LAM1\r\n      FME1( 7,1) = S1 * YI(1,4) * LAM1\r\n      FME1( 8,1) = S1 * YI(1,5) * LAM1\r\n      FME1( 9,1) = S1 * YI(1,6) * LAM1\r\n      FME1(10,1) = S1 * YI(1,7) * LAM1\r\nC\r\n      FME1( 1,2) = S1 * YI(4,2)\r\n      FME1( 2,2) = S1 * YI(4,3)\r\n      FME1( 3,2) = S1 * YI(4,4)\r\n      FME1( 4,2) = S1 * YI(4,5)\r\n      FME1( 5,2) = S1 * YI(2,2)\r\n      FME1( 6,2) = S1 * YI(2,3)\r\n      FME1( 7,2) = S1 * YI(2,4)\r\n      FME1( 8,2) = S1 * YI(2,5)\r\n      FME1( 9,2) = S1 * YI(2,6)\r\n      FME1(10,2) = S1 * YI(2,7)\r\nC\r\n      FFEO( 1,1) = 0.0\r\n      FFEO (2,1) = 0.0\r\n      FFEO (3,1) = 0.0\r\n      FFEO (4,1) = 0.0\r\n      FFEO( 5,1) = 0.0\r\n      FFEO( 6,1) = 0.0\r\n      FFEO( 7,1) = - 2.0 * YI(1,1)\r\n      FFEO( 8,1) = - 6.0 * YI(1,2)\r\n      FFEO( 9,1) = -12.0 * YI(1,3)\r\n      FFEO(10,1) = -20.0 * YI(1,4)\r\nC\r\n      FFEO (1,2) = 0.0\r\n      FFEO (2,2) = 0.0\r\n      FFEO (3,2) = 0.0\r\n      FFEO (4,2) = 0.0\r\n      FFEO( 5,2) = 0.0\r\n      FFEO( 6,2) = -YI(4,1)\r\n      FFEO( 7,2) = -2.0 * YI(4,2)\r\n      FFEO( 8,2) = -3.0 * YI(4,3)\r\n      FFEO( 9,2) = -4.0 * YI(4,4)\r\n      FFEO(10,2) = -5.0 * YI(4,5)\r\nC\r\n      FFE1( 1,1) = 0.0\r\n      FFE1 (2,1) = 0.0\r\n      FFE1 (3,1) = 0.0\r\n      FFE1 (4,1) = 0.0\r\n      FFE1( 5,1) = 0.0\r\n      FFE1( 6,1) = 0.0\r\n      FFE1( 7,1) = -S1 *  2.0 * YI(1,2)\r\n      FFE1( 8,1) = -S1 *  6.0 * YI(1,3)\r\n      FFE1( 9,1) = -S1 * 12.0 * YI(1,4)\r\n      FFE1(10,1) = -S1 * 20.0 * YI(1,5)\r\nC\r\n      FFE1 (1,2) = 0.0\r\n      FFE1 (2,2) = 0.0\r\n      FFE1 (3,2) = 0.0\r\n      FFE1 (4,2) = 0.0\r\n      FFE1( 5,2) = 0.0\r\n      FFE1( 6,2) = -S1 * YI(4,2)\r\n      FFE1( 7,2) = -S1 * 2.0 * YI(4,3)\r\n      FFE1( 8,2) = -S1 * 3.0 * YI(4,4)\r\n      FFE1( 9,2) = -S1 * 4.0 * YI(4,5)\r\n      FFE1(10,2) = -S1 * 5.0 * YI(4,6)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fdit.f",
    "content": "      SUBROUTINE FDIT (I,K)\r\nC\r\nC     FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE BLOCK OF THE\r\nC     DIT CONTAINING THE ITH SUBSTRUCTURE NAME, AND STORES IT IN THE\r\nC     ARRAY BUF STARTING AT LOCATION (DIT+1) AND EXTENDING TO LOCATION\r\nC     (DIT+BLKSIZ).  THE OUTPUT K INDICATES THAT THE SUBSTRUCTURE HAS\r\nC     THE KTH ENTRY IN BUF.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         DITUP,NXTUP,NEWBLK\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                BLKSIZ,DIRSIZ,ANDF,RSHIFT,NMSBR(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDIDUM(4),\r\n     2                NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR,\r\n     3                DITUP,MDIUP,NXTUP,NXTRST\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      DATA    IRD   , IWRT  / 1,2   /\r\n      DATA    IEMPTY/ 4H    /\r\n      DATA    INDSBR/ 5     /, NMSBR /4HFDIT,4H    /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\nC\r\nC     NDIR IS THE NUMBER OF SUBSTRUCTURE NAMES IN ONE BLOCK OF THE DIT\r\nC\r\n      NDIR = BLKSIZ/2\r\nC\r\nC     COMPUTE THE LOGICAL BLOCK NUMBER, AND THE WORD NUMBER WITHIN\r\nC     BUF IN WHICH THE ITH SUBSTRUCTURE NAME IS STORED.  STORE THE BLOCK\r\nC     NUMBER IN IBLOCK, AND THE WORD NUMBER IN K.\r\nC\r\n      IBLOCK = I/NDIR\r\n      IF (I .EQ. IBLOCK*NDIR) GO TO 10\r\n      IBLOCK = IBLOCK + 1\r\n   10 K = 2*(I-(IBLOCK-1)*NDIR) - 1 + DIT\r\n      IF (DITLBN .EQ. IBLOCK) RETURN\r\nC\r\nC     THE DESIRED DIT BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE\r\nC     FETCH IT.\r\nC\r\n      NEWBLK = .FALSE.\r\nC\r\nC     FIND THE PHYSICAL BLOCK NUMBER OF THE BLOCK ON WHICH THE LOGICAL\r\nC     BLOCK IBLOCK IS STORED.\r\nC\r\n      J = DITBL\r\n      ICOUNT = 1\r\n   30 IF (ICOUNT .EQ. IBLOCK) GO TO 40\r\n      ICOUNT = ICOUNT + 1\r\n      CALL FNXT (J,INXT)\r\n      IF (MOD(J,2) .EQ. 1) GO TO 33\r\n      IBL = RSHIFT(BUF(INXT),IHALF)\r\n      GO TO 36\r\n   33 IBL = ANDF(BUF(INXT),JHALF)\r\n   36 IF (IBL .EQ. 0) GO TO 70\r\n      J = IBL\r\n      GO TO 30\r\n   40 IF (DITPBN .EQ. 0) GO TO 43\r\nC\r\nC     THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY THE DIT.  WRITE IT OUT IF IT HAS BEEN UPDATED.\r\nC\r\n      IF (.NOT.DITUP) GO TO 50\r\n      CALL SOFIO (IWRT,DITPBN,BUF(DIT-2))\r\n      GO TO 50\r\n   43 IF (NXTPBN .EQ. 0) GO TO 50\r\nC\r\nC     THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY NXT.  WRITE OUT NXT IF IT HAS BEEN UPDATED.\r\nC\r\n      IF (.NOT.NXTUP) GO TO 46\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP  = .FALSE.\r\n   46 NXTPBN = 0\r\n      NXTLBN = 0\r\nC\r\nC     READ THE DESIRED DIT BLOCK INTO CORE.\r\nC\r\n   50 DITPBN = J\r\n      DITLBN = IBLOCK\r\n      IF (NEWBLK) GO TO 60\r\n      CALL SOFIO (IRD,J,BUF(DIT-2))\r\n      RETURN\r\nC\r\n   60 ISTART = DIT + 1\r\n      IEND   = DIT + BLKSIZ\r\n      DO 65 LL = ISTART,IEND\r\n      BUF(LL) = IEMPTY\r\n   65 CONTINUE\r\n      RETURN\r\nC\r\nC     WE NEED A FREE BLOCK FOR THE DIT.\r\nC\r\n   70 CALL GETBLK (J,IBL)\r\n      IF (IBL .EQ. -1) GO TO 80\r\n      NEWBLK = .TRUE.\r\n      J = IBL\r\n      IF (ICOUNT .EQ. IBLOCK) GO TO 40\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n      CALL ERRMKN (INDSBR,7)\r\n   80 WRITE  (NOUT,85) UFM\r\n   85 FORMAT (A23,' 6223, SUBROUTINE FDIT - THERE ARE NO MORE FREE ',\r\n     1       'BLOCKS AVAILABLE ON THE SOF')\r\n      CALL SOFCLS\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fdsub.f",
    "content": "      SUBROUTINE FDSUB (NAME,I)\r\nC                                                           ** PRETTIED\r\nC     SEARCHES IF THE SUBSTRUCTURE NAME HAS AN ENTRY IN THE DIT. IF IT\r\nC     DOES, THE OUTPUT VALUE OF I WILL INDICATE THAT NAME IS THE ITH\r\nC     SUBSTRUCTURE IN THE DIT.  I WILL BE SET TO -1 IF NAME DOES NOT\r\nC     HAVE AN ENTRY IN THEDIT.\r\nC\r\n      LOGICAL         DITUP\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                BLKSIZ,DIRSIZ\r\n      DIMENSION       NAME(2),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8),\r\n     1                MDIDUM(4),NXTDUM(15),DITUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      DATA    NMSBR / 4HFDUB,4HB   /\r\nC\r\nC     NNMS IS THE NUMBER OF NAMES ON ONE BLOCK OF THE DIT, AND NBLKS IS\r\nC     THE SIZE OF THE DIT IN NUMBER OF BLOCKS.\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      IF (DITNSB .EQ. 0) GO TO 70\r\n      NNMS  = BLKSIZ/2\r\n      NBLKS = DITSIZ/BLKSIZ\r\n      IF (DITSIZ .EQ. NBLKS*BLKSIZ) GO TO 30\r\n      NBLKS = NBLKS + 1\r\nC\r\nC     START LOOKING FOR THE SUBSTRUCTURE NAME.\r\nC\r\n   30 MAX = BLKSIZ\r\n      DO 60 J = 1,NBLKS\r\n      I = 1 + (J-1)*NNMS\r\n      CALL FDIT (I,DUMMY)\r\n      IF (J .NE. NBLKS) GO TO 40\r\n      MAX = DITSIZ - (NBLKS-1)*BLKSIZ\r\nC\r\nC     SEARCH THE BLOCK OF THE DIT WHICH IS PRESENTLY IN CORE.\r\nC\r\n   40 DO 50 K = 1,MAX,2\r\n      IF (BUF(DIT+K).NE.NAME(1) .OR. BUF(DIT+K+1).NE.NAME(2)) GO TO 50\r\n      KK = K\r\n      GO TO 80\r\n   50 CONTINUE\r\n   60 CONTINUE\r\nC\r\nC     DID NOT FIND NAME IN THE DIT.\r\nC\r\n   70 I = -1\r\n      RETURN\r\nC\r\nC     DID FIND NAME IN THE DIT.  RETURN NAME INDEX NUMBER\r\nC\r\n   80 I = (DITLBN-1)*NNMS + (KK+1)/2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fdvect.f",
    "content": "      SUBROUTINE FDVECT (DELTA,PK)\r\nC\r\n      INTEGER          SYSBUF,ICORE(1),MCB(7)\r\nC    1,                NAME(2)\r\n      DOUBLE PRECISION DCORE(1),DMAX,PK\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /REGEAN/  IA(14),IVECT(7),IB(5),LC1,IB1(9),LOADS,LX,ICOUNT,\r\n     1                 LAMA,IBUCK,NSYM\r\n      COMMON /PACKX /  IT1P,IT2P,IIP,JJP,INCRP\r\n      EQUIVALENCE      (ICORE(1),CORE(1),DCORE(1)),\r\n     1                 (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC)\r\nC     DATA    NAME  /  4HFDVE,4HCT  /\r\nC\r\n      NPROB = IA(3)\r\n      KPREC = IA(5)\r\n      IF (KPREC.NE.1 .AND. KPREC.NE.2) KPREC = IPREC\r\n      NPRO2 = NPROB\r\n      ICNT  = IVECT(2)\r\n      IM1   = 1\r\n      LCORE = (KORSZ(CORE)/2)*2 - LC1 - SYSBUF\r\n      X     = NPROB\r\n      Y     = ICOUNT\r\n      MCB(1)= IB(5)\r\n      CALL RDTRL (MCB(1))\r\nC\r\n      CALL DETFBS (NPRO2+1,ICORE(LCORE+1),MCB,NPROB,ICOUNT)\r\nC\r\nC     COPY FX ONTO IVECT + NORMALIZE\r\nC\r\n      IPM1 = IVECT(1)\r\n      IF (ICNT .EQ. 0) GO TO 40\r\n      CALL GOPEN (IVECT(1),ICORE(LCORE+1),0)\r\n      CALL SKPREC (IVECT(1),ICNT)\r\n      CALL CLOSE (IVECT(1),2)\r\n      IM1 = 3\r\n   40 CALL GOPEN (IVECT,ICORE(LCORE+1),IM1)\r\n      LCORE = LCORE - SYSBUF\r\n      IF (KPREC .EQ. 2) GO TO 71\r\n      XMAX = 0.0\r\n      DO 60  I = 1, NPROB\r\n   60 XMAX = AMAX1(XMAX,ABS(CORE(I)))\r\n      DO 70 I = 1,NPROB\r\n   70 CORE(I) = CORE(I)/XMAX\r\n      GO TO 73\r\n   71 DMAX = 0.0D0\r\n      DO 69 I = 1,NPROB\r\n      IF (DABS(DCORE(I)) .GT. DMAX) DMAX = DABS(DCORE(I))\r\n   69 CONTINUE\r\n      DO 72 I = 1,NPROB\r\n   72 DCORE(I) = DCORE(I)/DMAX\r\n   73 CONTINUE\r\n      IT1P = KPREC\r\n      IT2P = IPREC\r\n      IIP  = 1\r\n      JJP  = NPROB\r\n      INCRP = 1\r\n      CALL PACK (CORE,IVECT,IVECT)\r\n      CALL CLOSE (IVECT(1),1)\r\n      IPM1 = LAMA\r\n      CALL GOPEN (LAMA,ICORE(LCORE+1),3)\r\n      DCORE(1) = PK\r\n      CALL WRITE (LAMA,CORE,IPREC,1)\r\n      CALL CLOSE (LAMA,2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feer.f",
    "content": "      SUBROUTINE FEER\r\nC\r\nC     DRIVER FOR THE FEER (FAST EIGENVALUE EXTRACTION ROUTINE) METHOD.\r\nC     THIS ROUTINE WAS CALLED FCNTL BEFORE\r\nC\r\nC     GIVEN A REAL SYMETRIC MATRIX, FEER WILL SOLVE FOR THE EIGENVALUES\r\nC     AND EIGENVECTORS AROUND THE CENTER OF INTEREST\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     IFKAA(7) = 101, MATRIX GINO BLOCK FOR THE INPUT STIFFNESS MATRIX K\r\nC     IFMAA(7) = 102, MATRIX GINO BLOCK FOR THE INPUT MASS MATRIX M\r\nC     IFLELM(7)= 201, MATRIX GINO BLOCK FOR THE OUTPUT EIGENVALUES\r\nC     IFLVEC(7)= 202, MATRIX GINO BLOCK FOR THE OUTPUT EIGENVECTORS\r\nC            ? = 203\r\nC     DMPFLE   = 204, EIGENVALUE SUMMARY FILE\r\nC     SR1FLE-SR8FLE = 301-308, SCRATCH FILES REQUIRED INTERNALLY\r\nC     XLMBDA   =  INPUT, CENTER OF RANGE OF INTEREST.\r\nC                 (USER SPECIFIED SHIFT)\r\nC     NEIG     =  NUMBER OF DESIRED EIGENVALUES AROUND THE CENTER\r\nC                 OF INTEREST. (EIGENVALUES SPECIFIED BY USER)\r\nC     NORD     =  PROBLEM SIZE (SET INTERNALLY USING THE DIMENSION OF\r\nC                 THE STIFFNESS MATRIX)\r\nC     MORD     =  ORDER OF THE REDUCED PROBLEM (SET INTERNALLY)\r\nC     NORTHO   =  NO. OF ORTHOGONAL VECTORS IN PRESENT SET (INCLUDE\r\nC                 PREVISOUSLY COMPUTED VECTORS)\r\nC     EPXM     =  ZERO MASS CRITERIA TO DETERMINE RANK\r\nC     EPX      =  ORTHOGONALITY CONVERGENCE CRITERIA\r\nC     IBK      =  BUCKLING OPTION INDICATOR (SET INTERNALLY)\r\nC     CRITF    =  THE USER SPECIFIED (OR DEFAULT) DESIRED THEORETICAL\r\nC                 ACCURACY OF THE EIGENVALUES EXPRESSED AS A PERCENTAGE\r\nC     LAMBDA   =  VALUE OF THE SHIFT ACTUALLY USED (D.P.)\r\nC     CNDFLG   =  TERMINATION INDICATOR\r\nC     ITER     =  NO. OF STARTING POINTS USED\r\nC     IOPTF    =  SPECIFIED SHIFT OPTION INDICATOR, SET INTERNALLY\r\nC     NOCHNG   =  THEORETICAL ERROR PARAMETER\r\nC     IFSET    =  INTERNALLY COMPUTED SHIFT INDICTOR\r\nC     NONUL    =  NO. OF VETOR ITERATIONS\r\nC     MRANK    =  MATRIX RANK OF THE PROBLEM\r\nC     IND,LMBDA,IDAIG = NOT ACTIVEATED\r\nC\r\nC     EIGENVALUES AND EIGENVECTORS WILL BE STORED ON THE ACTUAL SR1FLE\r\nC     AND SR2FLE. THE SELECTION OF ACCURATE EIGENVALUES AND VECTORS WILL\r\nC     PUT THEM ON IFLELM AND IFLVEC IN THE CORRECT SEQUENCE AT THE END\r\nC     OF PROCESSING\r\nC\r\nC     IFLELM        CONTAINS (K+LAMBDA*M) OR KAA\r\nC     IFLVEC        CONTAINS THE LOWER TRIANGLE L OR C\r\nC     SR4FLE        IS USED AS SCRATCH IN SDCOMP\r\nC     SR5FLE        IS USED AS SCRATCH IN SDCOMP\r\nC     SR6FLE        IS USED AS SCRATCH IN SDCOMP\r\nC     SR7FLE        CONTAINS THE VECTORS WHICH ARE USED TO ORTHOGONALIZE\r\nC     SR8FLE        CONTAINS THE CONTITIONED MAA MATRIX\r\nC     IFLRVA = 301\r\nC     IFLRVC = 302\r\nC     MCBLT         LOWER TRAINGULAR MATRIX L CONTROL BLOCK\r\nC     MCBSMA        CONTITIONED MASTRIX M CONTROL BLOCK\r\nC     MCBVEC        ORTHOGONAL VECTOR FILE CONTROL BLOCK\r\nC     MCBRM         TRIAL VECTOR V OR C(INVERSE-TRANSPOSE)*V CONTROL\r\nC                   BLOCK\r\nC\r\n      INTEGER          SYSBUF    ,CNDFLG   ,SR8FLE   ,NAME(3)  ,\r\n     1                 DMPFLE    ,IZ(12)   ,TIMED    ,STURM    ,\r\n     2                 T1        ,T2       ,T3       ,TIMET    ,\r\n     3                 MCB(7)    ,ICR(2)   ,JCR(2)\r\n      DOUBLE PRECISION LAMBDA    ,LMBDA    ,DZ(1)    ,DRSN     ,\r\n     1                 DRSM      ,EPXM     ,SCALE    ,DSM\r\n      DIMENSION        TMT(4)    ,TML(4)\r\n      CHARACTER        UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON  /XMSSG / UFM       ,UWM      ,UIM\r\n      COMMON  /BLANK / IPROB(2)  ,NUMMOD   ,ICASE\r\n      COMMON  /FEERCX/ IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                 SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                 SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                 DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                 MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                 IFLRVA    ,IFLRVC\r\n      COMMON  /FEERXX/ LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                 L16       ,IOPTF    ,EPX      ,NOCHNG   ,\r\n     2                 IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                 NONUL     ,IDIAG    ,MRANK    ,ISTART   ,\r\n     4                 NZ3\r\n      COMMON  /REIGKR/ OPTION(2)\r\n      COMMON  /ZZZZZZ/ Z(1)\r\n      COMMON  /NTIME / LNTIME    ,TCONS(15)\r\n      COMMON  /OPINV / MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON  /SYSTEM/ KSYSTM(65)\r\n      COMMON  /PACKX / ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                 INCRP\r\n      COMMON  /UNPAKX/ IPRC      ,II       ,NN       ,INCR\r\n      COMMON  /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW       ,NOREW    ,EOFNRW\r\n      COMMON  /STURMX/ STURM     ,SHFTPT   ,KEEP(2)\r\n      EQUIVALENCE      (IZ(1),Z(1),DZ(1))  ,(KSYSTM( 1),SYSBUF),\r\n     1                 (KSYSTM(2),    IO)  ,(KSYSTM(55),IPREC ),\r\n     2                 (TCONS(8) ,TMT(1))  ,(TCONS(12) ,TML(4)),\r\n     3                 (KSYSTM(40), NBPW)\r\n      DATA     NAME  / 4HFEER,2*2H   /     ,IBEGN/ 4HBEGN   /\r\n      DATA     IEND  / 4HEND         /     ,MODE / 4HMODE   /\r\n      DATA     I1,I2 , I3,I4,I0      /  1H1,1H2,1H3,1H4,1H  /\r\n      DATA     ICR   / 4HPASS,4HFAIL /, JCR/4HFREQ,4HBUCK   /\r\nC\r\nC     SET PRECISION DIGITS TO 12, ALL MACHINES (NEW 1/92)\r\nC\r\n      IT  = 12\r\n      EPX = 10.**(2-IT)\r\n      DSM = 10.0D0**(-2*IT/3)\r\n      NAME(3)  = IBEGN\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL FEERDD\r\nC\r\nC     INITIALIZE FEERCX\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\n      IBK   = 0\r\n      IF (IPROB(1) .NE. MODE) IBK = 1\r\n      IOPTF = IBK\r\n      TIMED = 0\r\n      TIMET = 0\r\n      CALL SSWTCH (16,L16)\r\n      IF (L16 .EQ. 1) WRITE (IO,10)\r\n   10 FORMAT (//,' *** DIAG16 - ALL TERMS USED ARE DESCRIBED IN ',\r\n     1       'PROGRAMMER MANUAL  P. 4.48-19I THRU K',/)\r\n      LAMBDA = -XLMBDA\r\n      IF (IBK    .EQ.   0) GO TO 40\r\n      IF (XLMBDA .EQ. 0.0) GO TO 30\r\n      CALL PAGE2 (3)\r\n      WRITE  (IO,20) UWM\r\n   20 FORMAT (A25,' 2388', /5X,'USER SPECIFIED RANGE NOT USED FOR FEER',\r\n     1       ' BUCKLING. THE ROOTS OF LOWEST MAGNITUDE ARE OBTAINED')\r\n   30 LAMBDA = 0.0D+0\r\n   40 IFSET  = 0\r\n      IF (XLMBDA.EQ.0. .AND. IBK.EQ.0) IFSET = 1\r\n      IF (IFSET .EQ. 1) IOPTF = 1\r\n      CNDFLG = 0\r\n      NODCMP = 0\r\n      CALL RDTRL (IFKAA(1))\r\n      CALL RDTRL (IFMAA(1))\r\n      IFK   = IFKAA(1)\r\n      IFM   = IFMAA(1)\r\n      IPRC  = IPREC\r\n      NORD  = IFKAA(2)\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      NZ    = KORSZ(Z)\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      NTOT  = IPRC*(5*NORD+1) + 4*SYSBUF - NZ\r\n      IF (NTOT .GT. 0) CALL MESAGE (-8,NTOT,NAME)\r\n      CALL KLOCK (ISTART)\r\n      MRANK = 0\r\n      CALL GOPEN  (IFM,Z(IBUF1),RDREW)\r\n      CALL MAKMCB (MCB,SR8FLE,NORD,6,IPRC)\r\n      CALL GOPEN  (SR8FLE,Z(IBUF2),WRTREW)\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      IF (IPRC .EQ. 2) GO TO 90\r\n      DO 80 J = 1,NORD\r\n      II = 0\r\n      CALL UNPACK (*60,IFM,Z(1))\r\n      NT = NN - II + 1\r\n      EPXM = 0.0D+0\r\n      IF (II.LE.J .AND. NN.GE.J) EPXM = Z(J-II+1)*DSM\r\n      NTZ = 0\r\n      DO 50 JJ = 1,NT\r\n      IF (ABS(Z(JJ)) .GT. EPXM) GO TO 50\r\n      Z(JJ) = 0.\r\n      NTZ   = NTZ + 1\r\n   50 CONTINUE\r\n      IF (NTZ .LT. NT) MRANK = MRANK + 1\r\n      GO TO 70\r\n   60 II  = 1\r\n      NN  = 1\r\n      NT  = 1\r\n      Z(1)= 0.\r\n   70 IIP = II\r\n      NNP = NN\r\n      CALL PACK (Z(1),SR8FLE,MCB(1))\r\n   80 CONTINUE\r\n      GO TO 140\r\n   90 DO 130 J = 1,NORD\r\n      II = 0\r\n      CALL UNPACK (*110,IFM,DZ(1))\r\n      NT = NN - II + 1\r\n      EPXM = 0.0D+0\r\n      IF (II.LE.J .AND. NN.GE.J) EPXM = DZ(J-II+1)*DSM\r\n      NTZ = 0\r\n      DO 100 JJ = 1,NT\r\n      IF (DABS(DZ(JJ)) .GT. EPXM) GO TO 100\r\n      DZ(JJ) = 0.0D+0\r\n      NTZ = NTZ + 1\r\n  100 CONTINUE\r\n      IF (NTZ .LT. NT) MRANK = MRANK + 1\r\n      GO TO 120\r\n  110 II = 1\r\n      NN = 1\r\n      NT = 1\r\n      DZ(1) = 0.0D+0\r\n  120 IIP = II\r\n      NNP = NN\r\n      CALL PACK (DZ(1),SR8FLE,MCB(1))\r\n  130 CONTINUE\r\n  140 CALL WRTTRL (MCB)\r\n      MORD = 2*(NEIG-NORTHO) + 10\r\n      MRK  = MRANK - NORTHO\r\n      NZERO= NORTHO\r\n      IF (MORD .GT.   MRK) MORD = MRK\r\n      IF (NEIG .LE. MRANK) GO TO 160\r\n      CALL PAGE2 (3)\r\n      WRITE  (IO,150) UWM\r\n  150 FORMAT (A25,' 2385', /5X,'DESIRED NUMBER OF EIGENVALUES EXCEED ',\r\n     1       'THE EXISTING NUMBER, ALL EIGENSOLUTIONS WILL BE SOUGHT.')\r\n  160 CALL CLOSE (SR8FLE,NOREW)\r\n      CALL CLOSE (IFM,REW)\r\n      DO 170 I = 1,7\r\n      MCBSMA(I) = MCB(I)\r\n  170 IFMAA(I)  = MCBSMA(I)\r\n      IFM = IFMAA(1)\r\n      IF (IBK .EQ. 0) GO TO 180\r\nC\r\nC     SET UP TO DECOMPOSE KAA\r\nC\r\n      IFLELM(1) = IFKAA(1)\r\n      GO TO 210\r\n  180 IF (IFSET .EQ. 0) GO TO 200\r\nC\r\nC     CALCULATE INITIAL SHIFT\r\nC\r\n      CALL GOPEN (IFK,Z(IBUF1),RDREW)\r\n      CALL GOPEN (IFM,Z(IBUF2),RDREW)\r\n      CALL FRMAX (IFK,IFM,NORD,IPRC,DRSN,DRSM)\r\n      CALL CLOSE (IFK,REW)\r\n      CALL CLOSE (IFM,REW)\r\n      SCALE  = DBLE(FLOAT(NORD))*10.0D0**(-IT)*DRSM\r\n      LAMBDA = 10.0D0**(-IT/3)*DRSN\r\n      IF (LAMBDA .LT. SCALE) LAMBDA = SCALE\r\nC\r\nC     CALL IN ADD LINK TO FORM  (K+LAMBDA*M)\r\nC\r\n  200 NAME(2) = I1\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL FEER1\r\n      NAME(3) = IEND\r\n      CALL CONMSG (NAME,3,0)\r\nC\r\nC     CALL IN SDCOMP TO DECOMPOSE THIS MATRIX\r\nC\r\n  210 NODCMP  = NODCMP + 1\r\n      SHFTPT  = DABS(LAMBDA)\r\n      NAME(2) = I2\r\n      NAME(3) = IBEGN\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL FEER2 (ISING)\r\n      NAME(3) = IEND\r\n      CALL CONMSG (NAME,3,0)\r\n      IK = IBK   + 1\r\n      IJ = ISING + 1\r\n      IF (ISING.NE.1 .AND. L16.EQ.0) GO TO 230\r\n      CALL PAGE2 (4)\r\n      WRITE  (IO,220) JCR(IK),NORD,MRANK,MORD,NORTHO,NEIG,NZERO,XLMBDA,\r\n     1                LAMBDA,ICR(IJ)\r\n  220 FORMAT ('0*** DIAG 16 OUTPUT FOR FEER ANALYSIS, OPTION =',A4, /5X,\r\n     1       'ORDER =',I5,',  MAX RANK =',I5,',  REDUCED ORDER =',I5,\r\n     2       ',  ORTH VCT =',I5,',  NEIG =',I4,',  NZERO =',I4, /5X,\r\n     3       'USER SHIFT =',1P,E16.8,',  INTERNAL SHIFT =',D16.8,\r\n     4       ',  SINGULARITY CHECK ',A4)\r\n  230 IF (ISING .EQ. 0) GO TO 300\r\nC\r\nC     SINGULAR MATRIX. ADJUST LAMBDA\r\nC\r\n      IF (IBK .EQ. 1) GO TO 500\r\n      CNDFLG = CNDFLG + 1\r\n      IF (NODCMP .EQ. 3) GO TO 520\r\n      LAMBDA = 100.0D0*LAMBDA\r\n      GO TO 200\r\nC\r\nC     DETERMINE THE TIME REQUIRED TO COMPLETE FEER PROCESS\r\nC\r\n  300 CALL TMTOGO (T1)\r\n      XM  = MORD\r\n      XMP = NORTHO\r\n      XN  = NORD\r\n      XI  = IFSET\r\n      IFL = MCBLT(1)\r\n      CALL GOPEN (IFL,Z(IBUF1),RDREW)\r\n      NTMS = 0\r\n      DO 310 I = 1,NORD\r\n      II = 0\r\n      CALL UNPACK (*310,IFL,Z(1))\r\n      NTMS = NTMS + NN - II + 1\r\n  310 CONTINUE\r\n      CALL CLOSE (IFL,REW)\r\n      XT = NTMS\r\n      SP = (XT*(1.-XI)*(XM+XMP)+2.*XM) + XN*(2.+XI)*.5*(3.*XM**2+2.*XMP)\r\n     1   + (16.+11.*XI*.5)*XN*XM + 14.*XM**2\r\nC\r\nC     OBTAIN TRIDIAGONAL REDUCTION\r\nC\r\n      NAME(2) = I3\r\n      NAME(3) = IBEGN\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL FEER3\r\n      NAME(3) = IEND\r\n      CALL CONMSG (NAME,3,0)\r\n      IF (CNDFLG .NE. 3) GO TO 330\r\n      CALL PAGE2 (3)\r\n      WRITE  (IO,320) UWM\r\n  320 FORMAT (A25,' 2389', /5X,'PROBLEM SIZE REDUCED - NO MORE TRIAL ',\r\n     1       'VECTORS CAN BE OBTAINED.')\r\n  330 IF (MORD .EQ. 0) GO TO 350\r\n      CALL TMTOGO (T2)\r\n      TIMET = T3 - T1\r\nC\r\nC     OBTAIN EIGENVALUES AND EIGENVECTORS\r\nC\r\n      NAME(2) = I4\r\n      NAME(3) = IBEGN\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL FEER4 (IT)\r\n      NAME(3) = IEND\r\n      CALL CONMSG (NAME,3,0)\r\n      CALL TMTOGO (T3)\r\n      IF (L16 .NE. 0) WRITE (IO,340) T1,T2,T3,SP\r\n  340 FORMAT (' FEER COMPLETE,  T1,T2,T3 =',3I9,',  SP = ',1P,E16.8)\r\n      IF (CNDFLG .NE. 4) GO TO 370\r\n  350 WRITE  (IO,360) UFM\r\n  360 FORMAT (A23,' 2391, PROGRAM LOGIC ERROR IN FEER')\r\n      GO TO 540\r\n  370 IF (MORD+NZERO .GE. NEIG) GO TO 390\r\n      NPR = NEIG - MORD - NZERO\r\n      CALL PAGE2 (3)\r\n      WRITE  (IO,380) UWM,NPR,NEIG\r\n  380 FORMAT (A25,' 2390', /4X,I5,' FEWER ACCURATE EIGENSOLUTIONS THAN',\r\n     1       ' THE',I5,' REQUESTED HAVE BEEN FOUND.')\r\n      CNDFLG = 1\r\n      GO TO 420\r\n  390 IF (MORD+NZERO .EQ. NEIG) GO TO 420\r\n      NPR = MORD + NZERO - NEIG\r\n      CALL PAGE2 (3)\r\n      WRITE  (IO,400) UIM,NPR,NEIG\r\n  400 FORMAT (A29,' 2392', /4X,I5,' MORE ACCURATE EIGENSOLUTIONS THAN ',\r\n     1       'THE',I5,' REQUESTED HAVE BEEN FOUND.')\r\n      IF (L16 .EQ. 0) WRITE (IO,410)\r\n  410 FORMAT (5X,'USE DIAG 16 TO DETERMINE ERROR BOUNDS')\r\n  420 CALL GOPEN (DMPFLE,Z(IBUF1),WRTREW)\r\nC\r\nC    SET IZ(1) TO 2 (FOR INVPWR) THEN IZ(7) TO 1 (POINTS TO FEER METHOD)\r\nC\r\n      IZ(1) = 2\r\n      IZ(2) = MORD + NZERO\r\n      IZ(3) = ITER\r\n      IZ(4) = 0\r\n      IZ(5) = NODCMP\r\n      IZ(6) = NONUL\r\n      IZ(7) = 1\r\n      IZ(8) = CNDFLG\r\n      IZ(9) = 0\r\n      IZ(10)= 0\r\n      IZ(11)= 0\r\n      IZ(12)= 0\r\n      CALL WRITE (DMPFLE,IZ,12,1)\r\n      CALL CLOSE (DMPFLE,REW)\r\n      CRITF = XN*10.0**(-IT)\r\n      NAME(2) = I0\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\nC\r\n  500 WRITE  (IO,510) UFM\r\n  510 FORMAT (A23,' 2436, SINGULAR MATRIX IN FEER BUCKLING SOLUTION.')\r\n      GO TO 540\r\n  520 WRITE  (IO,530) UFM\r\n  530 FORMAT (A23,' 2386', /5X,'STIFFNESS MATRIX SINGULARITY CANNOT BE',\r\n     1       ' REMOVED BY SHIFTING.')\r\n  540 CALL MESAGE (-37,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feer1.f",
    "content": "      SUBROUTINE FEER1\r\nC\r\nC     FEER1 INITIALIZES AND CALLS SUBROUTINE ADD FOR FEER\r\nC\r\n      INTEGER           FILEA     ,FILEB    ,FILEC    ,FILEK    ,\r\n     1                  FILEM     ,SCR1     ,TYPALP   ,TYPBTA   ,\r\n     2                  SQR       ,RDP\r\n      DOUBLE PRECISION  LAMBDA    ,DALPHA   ,DBETA\r\n      COMMON   /FEERCX/ FILEK(7)  ,FILEM(7) ,SCR1\r\n      COMMON   /FEERXX/ LAMBDA\r\n      COMMON   /SADDX / NOMAT     ,NZ       ,FILEA(7) ,TYPALP   ,\r\n     1                  DALPHA(2) ,FILEB(7) ,TYPBTA   ,DBETA(2) ,\r\n     2                  DUM(36)   ,FILEC(7)\r\n      COMMON   /ZZZZZZ/ Z(1)\r\n      COMMON   /NAMES / IJ(8)     ,RDP      ,IK(2)    ,SQR\r\n      COMMON   /SYSTEM/ KSYSTM(56)\r\n      EQUIVALENCE       (KSYSTM(55),IPREC)\r\nC\r\nC     SET UP CALL TO ADD\r\nC\r\n      DO 10  I = 1,7\r\n      FILEA(I) = FILEM(I)\r\n   10 FILEB(I) = FILEK(I)\r\n      DALPHA(1)= LAMBDA\r\n      DBETA(1) = 1.0D+0\r\n      TYPALP   = IPREC\r\n      TYPBTA   = IPREC\r\n      NZ       = KORSZ(Z)\r\n      FILEC(1) = SCR1\r\n      FILEC(2) = FILEK(2)\r\n      FILEC(3) = FILEK(3)\r\n      FILEC(4) = SQR\r\n      FILEC(5) = IPREC\r\n      NOMAT    = 2\r\n      IF (FILEB(1) .EQ. 0) NOMAT = 1\r\n      CALL SADD (Z,Z)\r\n      CALL WRTTRL (FILEC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feer2.f",
    "content": "      SUBROUTINE FEER2 (IRET)\r\nC\r\nC     FEER2 INITIALIZES THEN CALLS  SDCOMP\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,SR1FLE   ,\r\n     1                   SR2FLE    ,SR3FLE   ,SR4FLE   ,SR5FLE   ,\r\n     2                   SR6FLE    ,SR7FLE   ,SR8FLE   ,RDP      ,\r\n     3                   UPRTRI    ,PREC\r\n      DOUBLE PRECISION   DET       ,DETC     ,MINDD\r\nC\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7)\r\n      COMMON   /SFACT /  FILEA(7)  ,FILEL(7) ,FILEU(7) ,ISR1FL   ,\r\n     1                   ISR2FL    ,NZ       ,DET      ,DETC     ,\r\n     2                   POWER     ,ISR3FL   ,MINDD    ,ICHL\r\n      COMMON   /FEERXX/  DUMM(12)  ,IFSET\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /NAMES /  IJ(8)     ,RDP      ,IK(5)    ,LOWTRI   ,\r\n     1                   UPRTRI\r\n      COMMON   /SYSTEM/  KSYSTM(54),PREC\r\nC\r\n      IRET     = 0\r\nC\r\n      FILEA(1) = IFLELM(1)\r\n      FILEL(1) = IFLVEC(1)\r\n      FILEU(1) = SR3FLE\r\n      ISR1FL   = SR4FLE\r\n      ISR2FL   = SR5FLE\r\n      ISR3FL   = SR6FLE\r\n      ICHL     = 0\r\n      IF (IBK.EQ.1 .OR. IFSET.EQ.1) ICHL = 1\r\n      FILEA(2) = IFKAA(2)\r\n      FILEA(3) = IFKAA(3)\r\n      FILEA(4) = IFKAA(4)\r\n      FILEA(5) = PREC\r\n      FILEA(6) = 0\r\n      FILEA(7) = 0\r\n      FILEL(5) = PREC\r\nC\r\nC     SYMMETRIC DECOMPOSITION\r\nC\r\n      NZ = KORSZ(Z)\r\n      CALL SDCOMP (*30,Z,Z,Z)\r\n   10 FILEL(3) = FILEL(2)\r\n      FILEL(4) = LOWTRI\r\n      CALL WRTTRL (FILEL)\r\n      DO 20 I = 1,7\r\n   20 MCBLT(I) = FILEL(I)\r\n      RETURN\r\nC\r\n   30 IRET = 1\r\n      GO TO 10\r\n      END\r\n"
  },
  {
    "path": "mis/feer3.f",
    "content": "      SUBROUTINE FEER3\r\nC                                                               T\r\nC     FEER3 OBTAINS THE REDUCED TRIDIAGONAL MATRIX   (LI)*M*(LI)\r\nC     WHERE M IS A SYMETRIC MATRIX AND L IS LOWER TRIANGULAR, AND (LI)\r\nC     IS INVERSE OF L\r\nC\r\nC     THE TRANSFORMATION IS ALPHA = VT(L**(-1)M (L**-(1))TV\r\nC     WHERE V IS A RECTANGULAR TRANSFORMATION.\r\nC\r\nC  Comments to follow refer to updates made 11/94.\r\nC  This is a new version of FEER3.  The old version has been renamed FEER3X.\r\nC  Diag 43 may be used to force the use of the old version.  The new version\r\nC  uses all of available open core for storage of the orthogonal vectors,\r\nC  the lower triangular matrix from SDCOMP, and the SMA matrix.  If \r\nC  insufficient memory is available, only part of the lower triangular \r\nC      \r\n      INTEGER            SYSBUF    ,CNDFLG   ,MCBSCL(7),SR5FLE   ,\r\n     1                   SR6FLE    ,SR7FLE   ,SR8FLE   ,\r\n     2                   IZ(1)     ,NAME(2)  ,REW      ,WRTREW   ,\r\n     3                   OPTN2    ,RDREW    ,SMAPOS\r\nC     INTEGER            DASHQ\r\n      DOUBLE PRECISION   LAMBDA    ,LMBDA    ,DZ(1)    ,DSQ\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,NOCHNG   ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART  \r\nC\r\nC  NIDSMA = IN-MEMORY INDEX FOR COLUMN DATA OF SMA MATRIX\r\nC  NIDLT  = IN-MEMORY INDEX FOR LOWER TRIANGULAR MATRIX\r\nC  NIDORV = IN-MEMORY INDEX FOR ORTHOGONAL VECTORS\r\nC  NLTLI  = INDEX OF LAST STRING OF LOWER TRIANGULAR MATRIX HELD IN MEMORY\r\nC  NSMALI = INDEX OF LAST STRING OF SMA MATRIX HELD IN MEMORY\r\nC  IBFSMA = IN-MEMORY INDEX FOR BUFFER FOR OPENING SMA MATRIX\r\nC  IBMLT  = IN-MEMORY INDEX FOR BUFFER FOR OPENING LOWER TRIANGULAR MATRIX\r\nC  IBFORV = IN-MEMORY INDEX FOR BUFFER FOR ORTHOGONAL VECTORS\r\nC  SMAPOS = POSITION OF RECORD FOLLOWING LAST RECORD READ INTO MEMORY\r\nC           AND THE LAST RECORD OF MATRIX SMA (SEE SUBROUTINE DSCPOS)\r\nC  LTPOS  = POSITION OF RECORD FOLLOWING LAST RECORD READ INTO MEMORY \r\nC           AND THE LAST RECORD OF THE LOWER TRIANGULAR MATRIX\r\nC\r\n      COMMON   /FEERIM/  NIDSMA    ,NIDLT    ,NIDORV   ,NLTLI    , \r\n     1                   NSMALI    ,IBFSMA   ,IBFLT    ,\r\n     2                   IBFORV    ,SMAPOS(7),LTPOS(7)\r\n      COMMON   /REIGKR/  OPTION    ,OPTN2\r\n      COMMON   /TYPE  /  RC(2)     ,IWORDS(4)\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT     ,SYSTM(52),IPREC    ,\r\n     1                   SKIP36(38),KSYS94\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (IZ(1),Z(1),DZ(1))\r\n      DATA      NAME  /  4HFEER,4H3   /      \r\nC     DATA      DASHQ / 4H-Q    /\r\nC\r\nC     SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA OR KAAD MATRIX\r\nC     IFLVEC CONTAINS THE L OR C MATRIX FROM SDCOMP\r\nC     IFLELM CONTAINS     KAA+ALPHA*MAA\r\nC     IFLRVC CONTAINS THE RESTART AND/OR RIGID BODY VECTORS\r\nC\r\n      CALL SSWTCH ( 43, L43 )\r\n      IF ( L43 .EQ. 0 ) GO TO 1\r\n      CALL FEER3X\r\n      GO TO 7777\r\n1     CONTINUE\r\n      IPRC      = MCBLT(5)\r\n      NWDS      = IWORDS(IPRC)\r\n      NZ        = KORSZ(Z)\r\n      CALL MAKMCB (MCBVEC(1),SR7FLE,NORD,2,IPRC)\r\n      MCBVEC(2) = 0\r\n      MCBVEC(6) = 0\r\n      CALL MAKMCB (MCBRM(1) ,SR6FLE,MORD,2,IPRC)\r\n      MCBRM(2)  = 0\r\n      MCBRM(6)  = 0\r\n      MCBSCL(1) = IFLRVC\r\n      CALL RDTRL (MCBSCL(1))\r\nC\r\nC     INITIALIZE ALLOCATIONS\r\nC\r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF \r\n      IBFORV = IBUF1   \r\n      IBFLT  = IBUF3\r\n      IBFSMA = IBUF2\r\n      IV1    = 1\r\n      IV2    = IV1 + NORD\r\n      IV2M1  = IV2 - 1    \r\n      IV3    = IV2 + NORD\r\n      IV4    = IV3 + NORD\r\n      IV5    = IV4 + NORD\r\n      IEND   = NWDS*(5*NORD + 1) + 2\r\n      MAVAIL = IEND - IBUF4\r\n      IF (MAVAIL .GT. 0) CALL MESAGE (-8,MAVAIL,NAME)\r\nC\r\nC COMPUTE THE MEMORY REQUIREMENT FOR ORTHOGONAL VECTORS\r\nC\r\n      MEMORT = NORD * ( MORD+NORTHO ) * IPRC\r\nC\r\nC COMPUTE THE MEMORY REQUIREMENT FOR THE LOWER TRIANGULAR MATRIX\r\nC\r\n      CALL DSSIZE ( MCBLT, NCOLS, NTERMS, NSTRGS, NWDTRM )\r\n      MEMLT  = NTERMS*NWDTRM + NSTRGS*4\r\nC\r\nC COMPUTE THE MEMORY REQUIREMENT FOR THE SMA MATRIX\r\nC\r\n      CALL DSSIZE ( MCBSMA, NCOLS, NTERMS, NSTRGS, NWDTRM )\r\n      MEMSMA = NTERMS*NWDTRM + NSTRGS*4\r\n      IF ( L16 .EQ. 0 ) GO TO 2\r\n      MINNEE = IEND + 4*SYSBUF\r\n      MEMTOT = MEMORT + MEMLT + MEMSMA + MINNEE\r\n      WRITE ( NOUT, 901 ) \r\n     &    MINNEE, MEMORT, MEMSMA, MEMLT, MEMTOT, NZ \r\n901   FORMAT(' FEER EIGENVALUE EXTRACTION NFORMATION'\r\n     &,/, 5X,' THE FOLLOWING GIVES OPEN CORE REQUIREMENTS FOR KEEPING'\r\n     &,/, 5X,' VARIOUS MATRICES AND VECTORS IN CORE FOR THE FEER'\r\n     &,/, 5X,' EIGENVALUE EXTRACTION METHOD'\r\n     &,/,10X,' MINIMUM NUMBER OF WORDS NEEDED IN OPEN CORE    =',I10   \r\n     &,/,10X,' NUMBER OF WORDS FOR ORTHOGONAL VECTORS         =',I10\r\n     &,/,10X,' NUMBER OF WORDS FOR SMA MATRIX                 =',I10\r\n     &,/,10X,' NUMBER OF WORDS FOR LOWER TRIANGULAR MATRIX    =',I10 \r\n     &,/,10X,' TOTAL NUMBER OF WORDS NEEDED TO ELIMINATE I/O  =',I10\r\n     &,/,10X,' WORDS FOR OPEN CORE SPECIFIED IN THIS RUN      =',I10  \r\n     & ) \r\n2     CONTINUE\r\nC CHECK TO SEE IF MEMORY AVAILABLE FOR ORTHOGONAL VECTORS\r\n      NIDORV = 0\r\n      ITEST  = IEND + MEMORT\r\n      IF ( ITEST .GT. IBUF4 ) GO TO 3\r\n      NIDORV = IEND\r\n      NIDORV = ( NIDORV/2 ) * 2 + 1\r\n      IEND   = IEND + MEMORT\r\n3     CONTINUE\r\nC CHECK TO SEE IF MEMORY AVAILABLE FOR SMA MATRIX\r\n      IRMEM  = IBUF4 - IEND\r\n      IF ( IRMEM .LE. 10 ) GO TO 4\r\n      NIDSMA = IEND\r\n      NIDSMA = (NIDSMA/2) * 2  + 1\r\n      MEMSMA = MEMSMA\r\n      MEMSMA = MIN0 ( MEMSMA, IRMEM )\r\n      IEND   = IEND + MEMSMA\r\n      GO TO 5\r\n4     CONTINUE\r\n      NIDSMA = 0\r\n      MEMSMA = 0\r\n5     CONTINUE\r\nC CHECK TO SEE IF MEMORY AVAILABLE FOR LOWER TRIANGULAR MATRIX\r\n      IRMEM  = IBUF4 - IEND\r\n      IF ( IRMEM .LE. 10 ) GO TO 6\r\n      NIDLT  = IEND\r\n      NIDLT  = (NIDLT/2) * 2 + 1\r\n      MEMLT  = MEMLT\r\n      MEMLT  = MIN0 ( MEMLT, IRMEM )\r\n      IEND   = IEND + MEMLT\r\n      GO TO 7\r\n6     CONTINUE\r\n      NIDLT  = 0\r\n      MEMLT  = 0\r\n7     CONTINUE\r\n      LTPOS ( 4 ) = -1\r\n      SMAPOS( 4 ) = -1\r\nC      PRINT *,' FEER3, CALLING FERRDM,NIDSMA,NIDLT=',NIDSMA,NIDLT\r\n      IF ( NIDSMA .EQ. 0 ) GO TO 11\r\n      CALL FERRDM ( MCBSMA,NIDSMA,MEMSMA,IBFSMA,NSMALI,SMAPOS)\r\nC      PRINT *,' RETURN FROM FERRDM,MEMSMA,NSMALI=',MEMSMA,NSMALI\r\nC      PRINT *,' SMAPOS=',SMAPOS\r\n11    IF ( NIDLT  .EQ. 0 ) GO TO 12\r\n      CALL FERRDM ( MCBLT ,NIDLT ,MEMLT ,IBFLT ,NLTLI ,LTPOS )\r\nC      PRINT *,' RETURN FROM FERRDM,MEMLT,NLTLI=',MEMLT,NLTLI\r\nC      PRINT *,' LTPOS=',LTPOS\r\n12    CONTINUE  \r\n      IF ( L16 .EQ. 0 ) GO TO 8\r\n      WRITE ( NOUT, 902 ) 'SMA',SMAPOS(1)\r\n      WRITE ( NOUT, 902 ) 'LT ',LTPOS(1)\r\n902   FORMAT(10X,' LAST COLUMN OF ',A3,' MATRIX IN MEMORY IS ',I4 )\r\nC      PRINT *,' SMAPOS=',SMAPOS\r\nC      PRINT *,' LTPOS =',LTPOS\r\n8     CONTINUE\r\n      CALL GOPEN (SR7FLE,Z(IBUF1),WRTREW)\r\n      IF (NORTHO .EQ. 0) GO TO 130\r\nC\r\nC     LOAD RESTART AND/OR RIGID BODY VECTORS\r\nC\r\n      CALL GOPEN (IFLRVC,Z(IBUF2),RDREW)\r\n      INCR  = 1\r\n      INCRP = 1\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      DO 110 J = 1,NORTHO\r\n      II  = 1\r\n      NN  = NORD\r\n      CALL UNPACK (*110,IFLRVC,DZ(1))\r\n      IIP = II\r\n      NNP = NN\r\n      IF (IPRC  .EQ. 1) GO TO 60\r\n      IF (IOPTF .EQ. 0) GO TO 40\r\n      DSQ = 0.D0\r\nC      PRINT *,' FERR3 CALLING FRMLTX'\r\n      CALL FRMLTX (MCBLT(1),DZ(IV1),DZ(IV2),DZ(IV3))\r\n      DO 20 IJ = 1,NORD\r\n   20 DSQ = DSQ + DZ(IV2M1+IJ)**2\r\n      DSQ = 1.D0/DSQRT(DSQ)\r\n      DO 30 IJ = 1,NORD\r\n   30 DZ(IJ) = DSQ*DZ(IV2M1+IJ)\r\n   40 CONTINUE\r\n      GO TO 100\r\n   60 IF (IOPTF .EQ. 0) GO TO 90\r\n      SQ = 0.0\r\nC      PRINT *,' FEER3 CALLING FRMLTA'\r\n      CALL FRMLTA (MCBLT(1),Z(IV1),Z(IV2),Z(IV3))\r\n      DO 70 IJ = 1,NORD\r\n   70 SQ = SQ + Z(IV2M1+IJ)**2\r\n      SQ = 1.0/SQRT(SQ)\r\n      DO 80 IJ = 1,NORD\r\n   80 Z(IJ) = SQ*Z(IV2M1+IJ)\r\n   90 CONTINUE\r\n  100 CALL PACK (DZ(1),SR7FLE,MCBVEC(1))\r\n  110 CONTINUE\r\n      CALL CLOSE (IFLRVC,NOREW)\r\n  130 K = NORTHO\r\n      CALL CLOSE (SR7FLE,NOREW)\r\n      J = K\r\n      NONUL = 0\r\n      ITER  = 0\r\nC      PRINT *,' FEER3,SR7FLE,IFLRVC,SR6FLE=',SR7FLE,IFLRVC,SR6FLE\r\nC      PRINT *,' FEER3,SR6FLE,SR8FLE,SR5FLE=',SR6FLE,SR8FLE,SR5FLE\r\nC      PRINT *,' FEER3,MCBSMA,MCBLT,MCBVEC=',MCBSMA(1),MCBLT(1),MCBSMA(1)\r\n      CALL GOPEN (SR6FLE,Z(IBUF4) ,WRTREW)\r\n      CALL CLOSE (SR6FLE,NOREW)\r\n      IF ( SR8FLE .EQ. MCBSMA(1) ) GO TO 131\r\nC      PRINT *,' PROBLEM IN FEER3, SR8FLE NE MCBSMA =',SR8FLE,MCBSMA(1)\r\n      STOP\r\n  131 CONTINUE\r\nC      CALL GOPEN (SR8FLE,Z(IBUF2) ,RDREW )\r\n      CALL GOPEN (SR5FLE,Z(IBUF4) ,WRTREW)\r\n      CALL GOPEN (MCBSMA,Z(IBFSMA),RDREW )\r\n      CALL GOPEN (MCBLT ,Z(IBFLT ),RDREW )\r\nC\r\nC     GENERATE SEED VECTOR\r\nC\r\n  140 K = K + 1\r\n      J = K\r\n      IFN = 0\r\nC\r\nC     GENERATE SEED VECTOR FOR LANCZOS\r\nC\r\n      SS = 1.0\r\n      IF (IPRC .EQ. 1) GO TO 160\r\n      DO 150 I = 1,NORD\r\n      SS =-SS\r\n      J  = J + 1\r\n      DSQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD)))\r\n  150 DZ(IV2M1+I) = DSQ*SS\r\nC      PRINT *,' FEER3 CALLING FERXTD'\r\n      CALL FERXTD (DZ(IV1), DZ(IV2), DZ(IV3)\r\n     1,            DZ(IV4), DZ(IV5), Z(IBUF1), IFN )\r\n      GO TO 180\r\n  160 DO 170 I = 1,NORD\r\n      SS =-SS\r\n      J  = J + 1\r\n      SQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD)))\r\n  170 Z(IV2M1+I) = SQ*SS\r\nC      IF (OPTN2 .EQ. DASHQ) GO TO 175 \r\n      CALL FERXTS ( Z(IV1), Z(IV2)  , Z(IV3), Z(IV4 )\r\n     1,             Z(IV5), Z(IBUF1), IFN)\r\n      GO TO 180 \r\nC  175 CALL FERXTQ ( Z(IV1), Z(IV2)  , Z(IV3), Z(IV4 )\r\nC     1,              Z(IV5), Z(IBUF1), IFN)\r\n  180 IF (ITER .LE. MORD) GO TO 190\r\n      MORD = NORTHO - NZERO\r\n      CNDFLG = 3\r\n      GO TO 200\r\nC\r\n  190 IF (IFN .LT. MORD) GO TO 140\r\n  200 CALL CLOSE (SR5FLE,NOREW)\r\n      CALL CLOSE (SR8FLE,REW)\r\n      CALL CLOSE (MCBLT ,REW)\r\n 7777 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feer3x.f",
    "content": "      SUBROUTINE FEER3X\r\nC                                                               T\r\nC     FEER3 OBTAINS THE REDUCED TRIDIAGONAL MATRIX   (LI)*M*(LI)\r\nC     WHERE M IS A SYMETRIC MATRIX AND L IS LOWER TRIANGULAR, AND (LI)\r\nC     IS INVERSE OF L\r\nC\r\nC     THE TRANSFORMATION IS ALPHA = VT(L**(-1)M (L**-(1))TV\r\nC     WHERE V IS A RECTANGULAR TRANSFORMATION.\r\nC\r\nC     LAST REVISED 11/91 BY G.CHAN/UNISYS, MAKE ROOM FOR NEW FBS METHOD\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,MCBSCL(7),SR5FLE   ,\r\n     1                   SR6FLE    ,SR7FLE   ,SR8FLE   ,SR9FLE   ,\r\n     2                   SR10FL    ,SRXFLE   ,IZ(1)    ,NAME(2)  ,\r\n     3                   DASHQ     ,OPTN2\r\n      DOUBLE PRECISION   LAMBDA    ,LMBDA    ,DZ(1)    ,DSQ\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,NOCHNG   ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART   ,\r\n     4                   NZV5\r\n      COMMON   /REIGKR/  OPTION    ,OPTN2\r\n      COMMON   /TYPE  /  RC(2)     ,IWORDS(4)\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /SYSTEM/  SYSBUF    ,IO       ,SYSTM(52),IPREC    ,\r\n     1                   SKIP36(38),KSYS94\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (IZ(1),Z(1),DZ(1))\r\n      DATA      NAME  /  4HFEER,4H3   /      ,DASHQ    / 4H-Q    /\r\nC\r\nC     SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA OR KAAD MATRIX\r\nC     SR9FLE CONTAINS MCBSMA DATA IN UNPACKED FORM = 309\r\nC     SR10FL CONTAINS MCBLT  DATA IN UNPACKED FORM = 310\r\nC                                              (OR = 308 IF IT IS FREE)\r\nC     IFLVEC CONTAINS THE L OR C MATRIX FROM SDCOMP\r\nC     IFLELM CONTAINS     KAA+ALPHA*MAA\r\nC     IFLRVC CONTAINS THE RESTART AND/OR RIGID BODY VECTORS\r\nC\r\n      SR9FLE = 309\r\n      SR10FL = 308\r\n      IPRC   = MCBLT(5)\r\n      NWDS   = IWORDS(IPRC)\r\n      NZ     = KORSZ(Z)\r\n      CALL MAKMCB (MCBVEC(1),SR7FLE,NORD,2,IPRC)\r\n      MCBVEC(2) = 0\r\n      MCBVEC(6) = 0\r\n      CALL MAKMCB (MCBRM(1) ,SR6FLE,MORD,2,IPRC)\r\n      MCBRM(2)  = 0\r\n      MCBRM(6)  = 0\r\n      MCBSCL(1) = IFLRVC\r\n      CALL RDTRL (MCBSCL(1))\r\nC\r\nC     INITIALIZE ALLOCATIONS\r\nC\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      IV1   = 1\r\n      IV2   = IV1 + NORD\r\n      IV3   = IV2 + NORD\r\n      IV4   = IV3 + NORD\r\n      IV5   = IV4 + NORD\r\n      NZV5  = IBUF4 - IV5*NWDS - 2\r\n      IX2   = IV2 - 1\r\n      IEND  = NWDS*(5*NORD + 1) + 2\r\n      ICRQ  = IEND - IBUF4\r\n      IF (ICRQ .GT. 0) CALL MESAGE (-8,ICRQ,NAME)\r\n      IFL   = MCBLT(1)\r\n      SRXFLE= SR8FLE\r\nC\r\nC     CALL UNPSCR TO MOVE MCBSMA DATA INTO SR9FLE, AND MCBLT INTO SR10FL\r\nC     (ORIGINAL MCBSMA AND MCBLT TRAILER WORDS 4,5,6,7 WILL BE CHANGED)\r\nC     NZV5 IS THE AVAILABE SIZE OF THE WORKING SPACE FOR NEW FBS METHOD\r\nC     USED IN FRSW/2, FRBK/2, FRMLT/D, AND FRMLTX/A ROUTINES\r\nC\r\nC     IF KSYS94 IS 10000 OR DIAG 41 IS ON, NEW FBS METHODS AND UNPSCR\r\nC     ARE NOT USED\r\nC\r\n      IF (MOD(KSYS94,100000)/10000 .EQ. 1) GO TO 10\r\n      CALL SSWTCH (41,I)\r\n      IF (I .EQ. 1) GO TO 10\r\n      SRXFLE = SR9FLE\r\n      CALL UNPSCR (MCBSMA,SRXFLE,Z,IBUF2,IBUF1,NZV5,0,1)\r\n      J = 2\r\n      IF (IOPTF .EQ. 1) J = 3\r\n      CALL UNPSCR (MCBLT,SR10FL,Z,IBUF2,IBUF1,NZV5,0,J)\r\n      NZV5 = NZV5 + 1\r\n      IFL  = SR10FL\r\nC\r\n   10 CALL GOPEN (IFL,Z(IBUF3),RDREW)\r\n      CALL GOPEN (SR7FLE,Z(IBUF1),WRTREW)\r\n      IF (NORTHO .EQ. 0) GO TO 130\r\nC\r\nC     LOAD RESTART AND/OR RIGID BODY VECTORS\r\nC\r\n      CALL GOPEN (IFLRVC,Z(IBUF2),RDREW)\r\n      INCR  = 1\r\n      INCRP = 1\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\nC\r\n      DO 110 J = 1,NORTHO\r\n      II  = 1\r\n      NN  = NORD\r\n      CALL UNPACK (*110,IFLRVC,DZ(1))\r\n      IIP = II\r\n      NNP = NN\r\n      IF (IPRC  .EQ. 1) GO TO 60\r\n      IF (IOPTF .EQ. 0) GO TO 40\r\n      DSQ = 0.D0\r\n      CALL FRMLTX (MCBLT(1),DZ(IV1),DZ(IV2),DZ(IV3))\r\n      DO 20 IJ = 1,NORD\r\n   20 DSQ = DSQ + DZ(IX2+IJ)**2\r\n      DSQ = 1.D0/DSQRT(DSQ)\r\n      DO 30 IJ = 1,NORD\r\n   30 DZ(IJ) = DSQ*DZ(IX2+IJ)\r\n   40 IF (L16 .EQ. 0) GO TO 100\r\n      CALL PAGE2 (2)\r\n      WRITE (IO,50) IIP,NNP,(DZ(I),I=1,NORD)\r\n   50 FORMAT (10H ORTH VCT ,2I5,  /(1X,8E16.8))\r\n      GO TO 100\r\n   60 IF (IOPTF .EQ. 0) GO TO 90\r\n      SQ = 0.0\r\n      CALL FRMLTA (MCBLT(1),Z(IV1),Z(IV2),Z(IV3))\r\n      DO 70 IJ = 1,NORD\r\n   70 SQ = SQ + Z(IX2+IJ)**2\r\n      SQ = 1.0/SQRT(SQ)\r\n      DO 80 IJ = 1,NORD\r\n   80 Z(IJ) = SQ*Z(IX2+IJ)\r\n   90 IF (L16 .EQ. 0) GO TO 100\r\n      CALL PAGE2 (2)\r\n      WRITE (IO,50) IIP,NNP,(Z(I),I=1,NORD)\r\n  100 CALL PACK (DZ(1),SR7FLE,MCBVEC(1))\r\n  110 CONTINUE\r\nC\r\n      CALL CLOSE (IFLRVC,NOREW)\r\n      IF (L16 .EQ. 0) GO TO 130\r\n      CALL PAGE2 (1)\r\n      WRITE  (IO,120) NORTHO,MCBVEC\r\n  120 FORMAT (5X,I5,16H ORTH VECTORS ON,I5,5H FILE,5I5,I14)\r\n  130 K = NORTHO\r\n      CALL CLOSE (SR7FLE,NOREW)\r\n      J = K\r\n      NONUL = 0\r\n      ITER  = 0\r\n      CALL GOPEN (SR6FLE,Z(IBUF4),WRTREW)\r\n      CALL CLOSE (SR6FLE,NOREW)\r\n      CALL GOPEN (SRXFLE,Z(IBUF2),RDREW)\r\n      CALL GOPEN (SR5FLE,Z(IBUF4),WRTREW)\r\nC\r\nC     GENERATE SEED VECTOR\r\nC\r\n  140 K = K + 1\r\n      J = K\r\n      IFN = 0\r\nC\r\nC     GENERATE SEED VECTOR FOR LANCZOS\r\nC\r\n      SS = 1.0\r\n      IF (IPRC .EQ. 1) GO TO 160\r\n      DO 150 I = 1,NORD\r\n      SS =-SS\r\n      J  = J + 1\r\n      DSQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD)))\r\n  150 DZ(IX2+I) = DSQ*SS\r\n      IF (OPTN2 .NE. DASHQ) CALL FNXTVC (DZ(IV1),DZ(IV2),DZ(IV3),\r\n     1                                   DZ(IV4),DZ(IV5),Z(IBUF1),IFN)\r\n      GO TO 180\r\nC\r\n  160 DO 170 I = 1,NORD\r\n      SS =-SS\r\n      J  = J + 1\r\n      SQ = FLOAT(MOD(J,3)+1)/(3.0*FLOAT((MOD(J,13)+1)*(1+5*I/NORD)))\r\n  170 Z(IX2+I) = SQ*SS\r\n      IF (OPTN2 .NE. DASHQ) CALL FNXTV  (Z(IV1),Z(IV2),Z(IV3),Z(IV4),\r\n     1                                   Z(IV5),Z(IBUF1),IFN)\r\n      IF (OPTN2 .EQ. DASHQ) CALL FNXTVD (Z(IV1),Z(IV2),Z(IV3),Z(IV4),\r\n     1                                   Z(IV5),Z(IBUF1),IFN)\r\nC\r\n  180 IF (ITER .LE. MORD) GO TO 190\r\n      MORD = NORTHO - NZERO\r\n      CNDFLG = 3\r\n      GO TO 200\r\nC\r\n  190 IF (IFN .LT. MORD) GO TO 140\r\n  200 CALL CLOSE (SR5FLE,NOREW)\r\n      CALL CLOSE (SRXFLE,REW)\r\n      CALL CLOSE (IFL,REW)\r\nC\r\nC     IF NEW FBS METHOD IS USED, SR9FLE AND SR10FL FILES COULD BE VERY\r\nC     BIG. MAKE SURE THEY ARE PHYSICALLY REDUCED TO ZERO SIZE. THIS IS\r\nC     IMPORTANT FOR A COMPUTER SYSTEM WITH LIMITED DISC SPACE\r\nC\r\n      IF (IFL .NE. SR10FL) GO TO 210\r\n      CALL GOPEN (SR9FLE,Z(IBUF2),WRTREW)\r\n      CALL GOPEN (SR10FL,Z(IBUF3),WRTREW)\r\n      CALL CLOSE (SR9FLE,REW)\r\n      CALL CLOSE (SR10FL,REW)\r\nC\r\n  210 IF (L16 .EQ. 0) RETURN\r\n      CALL PAGE2 (1)\r\n      I = IBUF4 - NORTHO*NORD*NWDS - 2\r\n      IF (I .LT.  0) I = IBUF4 - IEND\r\n      WRITE  (IO,220) I,NAME\r\n  220 FORMAT (19H OPEN CORE NOT USED,I10,2X,2A4)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feer4.f",
    "content": "      SUBROUTINE FEER4 (IT)\r\nC\r\nC     FEER4 OBTAINS FROM THE REDUCED TRIDIAGONAL MATRIX THE EIGENVALUES\r\nC     AND EIGENVECTORS\r\nC\r\n      LOGICAL           INCORE\r\n      INTEGER           SYSBUF    ,CNDFLG   ,SR2FLE    ,SR6FLE   ,\r\n     1                  SR7FLE    ,SR8FLE   ,IZ(1)     ,NAME(2)\r\nCWKBNB NCL93007 11/94\r\n      INTEGER           SR4FLE    ,SR5FLE   ,REW       ,EOFNRW\r\n     1,                 WRTREW    ,RDREW    ,WRT\r\nCWKBNE NCL93007 11/94\r\n      DOUBLE PRECISION  LAMBDA    ,LMBDA    ,DZ(1)     ,B(2)     ,\r\n     1                  DSM       ,DSCE\r\n      DIMENSION         MCBC(7)   ,ICR(2)   ,SB(2)\r\n      COMMON   /MACHIN/ MACH\r\n      COMMON   /FEERCX/ IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7) ,\r\n     1                  SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE    ,\r\n     2                  SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE    ,\r\n     3                  DMPFLE    ,NORD     ,XLMBDA   ,NEIG      ,\r\n     4                  MORD      ,IBK      ,CRITF    ,NORTHO    ,\r\n     5                  IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/ LAMBDA    ,CNDFLG   ,ITER     ,TIMED     ,\r\n     1                  L16       ,IOPTF    ,EPX      ,ERRC      ,\r\n     2                  IND       ,LMBDA    ,IFSET    ,NZERO     ,\r\n     3                  NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /ZZZZZZ/ Z(1)\r\n      COMMON   /SYSTEM/ SYSBUF    ,IO       ,SYSTM(52),IPREC\r\n      COMMON   /OPINV / MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/ IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX / ITP1      ,ITP2     ,IIP      ,NNP       ,\r\n     1                  INCRP\r\n      COMMON   /NAMES / RD        ,RDREW    ,WRT      ,WRTREW    ,\r\n     1                  REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE       (IZ(1),Z(1),DZ(1)), (SB(1),B(1)), (DSCE,SCE)\r\n      DATA      NAME  / 4HFEER,4H4     /,    ICR   / 4HPASS,4HFAIL /\r\nC\r\nC     SR4FLE CONTAINS THE EIGENVECTORS OF THE REDUCED PROBLEM\r\nC     SR5FLE CONTAINS THE TRIDIAGONAL ELEMENTS AND SCRATCH IN FQRWV\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL VECTORS\r\nC\r\n      CALL SSWTCH (26,L26)\r\n      MDIM = MORD + 1\r\n      DSM  = 10.0D+0**(-2*IT/3)\r\n      SM   = DSM\r\n      IPRC = MCBRM(5)\r\n      NZ   = KORSZ(Z)\r\n      CALL MAKMCB (MCBC(1),SR4FLE,MDIM,2,IPRC)\r\n      MCBC(2) = 0\r\n      MCBC(6) = 0\r\n      M    = 0\r\nC\r\nC     INITIALIZE ALLOCATIONS\r\nC\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IV1   = 1\r\n      IV2   = IV1 + MDIM\r\n      IV3   = IV2 + MDIM\r\n      IV4   = IV3 + MDIM\r\n      IV5   = IV4 + MDIM\r\n      IV6   = IV5 + MDIM\r\n      IV7   = IV6 + MDIM\r\n      IV8   = IV7 + MDIM\r\n      IV9   = IV8 + MDIM\r\n      IX3   = IV3 - 1\r\n      IX4   = IV4 - 1\r\n      IEND  = IPRC*(8*MDIM+1) + MDIM\r\n      IF (IEND .GT. IBUF3) CALL MESAGE (-8,IEND-IBUF3,NAME)\r\n      CALL GOPEN (SR5FLE,Z(IBUF2),RDREW)\r\n      IF (IPRC .EQ. 2) DZ(IV4+MORD) = ERRC\r\n      IF (IPRC .EQ. 1)  Z(IV4+MORD) = ERRC\r\n      NW = IPRC*2\r\n      DO 10 I = 1,MORD\r\n      CALL READ (*420,*430,SR5FLE,B(1),NW,1,M)\r\n      IF (IPRC .EQ. 1) GO TO 5\r\n      DZ(IX3+I) = B(1)\r\n      DZ(IX4+I) = B(2)\r\n      GO TO 10\r\n    5 Z(IX3+I) = SB(1)\r\n      Z(IX4+I) = SB(2)\r\n   10 CONTINUE\r\n      CALL CLOSE (SR5FLE,REW)\r\n      CALL GOPEN (SR4FLE,Z(IBUF2),WRTREW)\r\n      IF (IPRC .EQ. 1) GO TO 12\r\n      CALL FQRWV (MORD,DZ(IV1),DZ(IV2),DZ(IV3),DZ(IV4),DZ(IV5),DZ(IV6),\r\n     1                 DZ(IV7),DZ(IV8),DZ(IV9),Z(IBUF1),SR5FLE,MCBC(1))\r\nC                                                              SR4FLE\r\n      GO TO 15\r\n   12 CALL FQRW (MORD,Z(IV1),Z(IV2),Z(IV3),Z(IV4),Z(IV5),Z(IV6),\r\n     1                Z(IV7),Z(IV8),Z(IV9),Z(IBUF1),SR5FLE,MCBC(1))\r\nC                                                          SR4FLE\r\n   15 CALL CLOSE (SR4FLE,NOREW)\r\nC\r\nC     RECONFIGURE VECTOR INDEX TO OBTAIN PHYSICAL EIGENVECTORS\r\nC\r\n      IX1 = IV1 - 1\r\n      IX2 = IV2 - 1\r\n      IX3 = IV3 - 1\r\n      IX4 = IV4 - 1\r\n      IX5 = IX4 + NORD\r\n      ISRV = MCBRM(1)\r\n      IFLVEC(1) = IFLRVC\r\n      IFLELM(1) = IFLRVA\r\n      IF (NZERO .NE. 0) GO TO 20\r\nC\r\nC     PREPARE FILES WHEN NO RESTART AND/OR RIGID BODY VECTORS\r\nC\r\n      IFLVEC(2) = 0\r\n      IFLVEC(6) = 0\r\n      CALL GOPEN (IFLRVC,Z(IBUF3),WRTREW)\r\n      CALL CLOSE (IFLRVC,NOREW)\r\n      CALL GOPEN (IFLRVA,Z(IBUF3),WRTREW)\r\n      CALL CLOSE (IFLRVA,NOREW)\r\n   20 ITP1 = IPRC\r\n      ITP2 = 1\r\n      INCRP= 1\r\n      II   = 1\r\n      CALL GOPEN (IFLRVA,Z(IBUF1),WRT)\r\n      MRED = 0\r\n      MFLG = 1\r\n      DO 30 M = 1,MORD\r\n      IF (IPRC .EQ. 1) GO TO 22\r\n      DSCE = 1.0D+0/DZ(IX1+M) - LAMBDA\r\n      IF (L16 .EQ. 0) GO TO 24\r\n      ERF  = 0.0D+0\r\n      IF (DABS(DSCE) .GT. DSM)\r\n     1    ERF = 100.D0*DZ(IX2+M)/DABS(1.D0-DZ(IX1+M)*LAMBDA)\r\n      DZ(IX2+M) = DSCE\r\n      GO TO 23\r\n   22 SCE = 1.0/Z(IX1+M) - LAMBDA\r\n      IF (L16 .EQ. 0) GO TO 24\r\n      ERF = 0.0D+0\r\n      IF (ABS(SCE) .GT. SM)\r\n     1    ERF = 100.0D+0*Z(IX2+M)/DABS(1.0D+0-Z(IX1+M)*LAMBDA)\r\n      Z(IX2+M) = SCE\r\n   23 IF (ERF  .GT. CRITF) MFLG = 2\r\n   24 IF (MFLG .EQ.     2) GO TO 25\r\n      MRED = MRED + 1\r\n      CALL WRITE (IFLRVA,DSCE,IPREC,1)\r\n   25 IF (L16 .EQ. 0) GO TO 30\r\n      CALL PAGE2 (1)\r\n      IF (IPRC .EQ. 2) WRITE (IO,26) M,DSCE,ERF,ICR(MFLG)\r\n      IF (IPRC .EQ. 1) WRITE (IO,26) M, SCE,ERF,ICR(MFLG)\r\n   26 FORMAT (10X,'PHYSICAL EIGENVALUE',I5,1P,E16.8,\r\n     1        '  THEOR ERROR ',E16.8,'  PERCENT',5X,A4)\r\n   30 CONTINUE\r\n      CALL CLOSE (IFLRVA,EOFNRW)\r\n      IF (MORD .EQ. 0) RETURN\r\nC\r\n      CALL GOPEN (ISRV,Z(IBUF1),RDREW)\r\n      CALL GOPEN (SR4FLE,Z(IBUF2),RDREW)\r\n      CALL GOPEN (IFLRVC,Z(IBUF3),WRT)\r\nCWKBNB NCL93007 11/94\r\n      INCORE = .FALSE.\r\n      CALL SSWTCH ( 43, L43 )\r\n      IF ( L43 .NE. 0 ) GO TO 42\r\n      IVW    = IX5 + NORD + 1\r\n      ICREQ  = NORD*MORD*IPRC\r\n      ICAVL  = IBUF3 - IVW - 1\r\n      IF ( ICAVL .GT. ICREQ ) INCORE = .TRUE.\r\n      IF ( .NOT. INCORE ) GO TO 42\r\n      NN = NORD\r\n      DO 41 I = 1, MORD\r\n      IVR = IVW + (I-1)*NORD\r\n      IF ( IPRC .EQ. 1 ) CALL UNPACK ( *41, ISRV,  Z(IVR+1) )  \r\n      IF ( IPRC .EQ. 2 ) CALL UNPACK ( *41, ISRV, DZ(IVR+1) )  \r\n   41 CONTINUE\r\n   42 CONTINUE\r\nCWKBNE NCL93007 11/94\r\nC\r\nC     IF DIAG 26 IS OFF, LIMIT EIGENSOLUTIONS TO NUMBER REQUESTED\r\nC\r\n      IF (MRED.GE.NEIG .AND. L26.NE.0) MRED = NEIG\r\n      IF (IPRC .EQ. 1) GO TO 200\r\n      DO 100 M = 1,MRED\r\n      DO 50  L = 1,NORD\r\n   50 DZ(IX5+L) = 0.0D+0\r\n      NN = MORD\r\n      CALL UNPACK (*75,SR4FLE,DZ(IV3))\r\n      NN = NORD\r\nCWKBI NCL93007 11/94\r\n      IF ( INCORE ) GO TO 72\r\n      DO 70 I = 1,MORD\r\n      CALL UNPACK (*100,ISRV,DZ(IV4))\r\n      DO 60 J = 1,NORD\r\n   60 DZ(IX5+J) = DZ(IX5+J) + DZ(IX4+J)*DZ(IX3+I)\r\n   70 CONTINUE\r\nCWKBNB NCL93007 11/94\r\n      GO TO 73\r\n   72 CONTINUE\r\n      DO 61 I = 1, MORD\r\n      IVR = IVW + (I-1)*NORD\r\n      DO 61 J = 1, NORD\r\n   61 DZ(IX5+J) = DZ(IX5+J) + DZ(IVR+J)*DZ(IX3+I)\r\n   73 CONTINUE\r\nCWKBNE NCL93007 11/94\r\n   75 CONTINUE\r\n      IF (IOPTF .EQ. 0) GO TO 90\r\n      DSCE = 1.0D+0/DSQRT(DABS(DZ(IX1+M)))\r\n      DO 80 L = 1,NORD\r\n   80 DZ(IX5+L) = DSCE*DZ(IX5+L)\r\n   90 CONTINUE\r\n      IIP = 1\r\n      NNP = NORD\r\n      CALL PACK (DZ(IX5+1),IFLRVC,IFLVEC(1))\r\nCWKBI NCL93007 11/94\r\n      IF ( INCORE ) GO TO 100\r\n      CALL REWIND (MCBRM)\r\n      CALL SKPREC (MCBRM,1)\r\n  100 CONTINUE\r\n      GO TO 400\r\n  200 DO 300 M = 1,MRED\r\n      DO 250 L = 1,NORD\r\n  250 Z(IX5+L) = 0.0\r\n      NN = NORD\r\n      CALL UNPACK (*275,SR4FLE,Z(IV3))\r\n      NN = NORD\r\nCWKBI NCL93007 11/94\r\n      IF ( INCORE ) GO TO 272\r\n      DO 270 I = 1,MORD\r\n      CALL UNPACK (*300,ISRV,Z(IV4))\r\n      DO 260 J = 1,NORD\r\n  260 Z(IX5+J) = Z(IX5+J) + Z(IX4+J)*Z(IX3+I)\r\n  270 CONTINUE\r\nCWKBNB NCL93007 11/94\r\n      GO TO 273\r\n  272 CONTINUE\r\n      DO 261 I = 1, MORD\r\n      IVR = IVW + (I-1)*NORD\r\n      DO 261 J = 1, NORD\r\n  261 Z(IX5+J) = Z(IX5+J) + Z(IVR+J)*Z(IX3+I)\r\n  273 CONTINUE\r\nCWKBNE NCL93007 11/94\r\n  275 CONTINUE\r\n      IF (IOPTF .EQ. 0) GO TO 290\r\n      SCE = 1.0/SQRT(ABS(Z(IX1+M)))\r\n      DO 280 L = 1,NORD\r\n  280 Z(IX5+L) = SCE*Z(IX5+L)\r\n  290 CONTINUE\r\n      IIP = 1\r\n      NNP = NORD\r\n      CALL PACK (Z(IX5+1),IFLRVC,IFLVEC(1))\r\nCWKBI NCL93007 11/94\r\n      IF ( INCORE ) GO TO 300\r\n      CALL REWIND (MCBRM)\r\n      CALL SKPREC (MCBRM,1)\r\n  300 CONTINUE\r\nC\r\n  400 CALL CLOSE (IFLRVC,EOFNRW)\r\n      CALL CLOSE (ISRV,REW)\r\n      CALL CLOSE (SR4FLE,REW)\r\n      MORD = MRED\r\n      GO TO 500\r\n  420 IER = 2\r\n      GO TO 440\r\n  430 IER = 3\r\n  440 CNDFLG = 4\r\n      CALL MESAGE (IER,SR5FLE,NAME)\r\n  500 IOPN = IBUF3 - IEND\r\n      IF (L16 .EQ. 1) WRITE (IO,510) IOPN,NAME\r\n  510 FORMAT ('  OPEN CORE NOT USED',I10,2X,2A4)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/feerdd.f",
    "content": "      SUBROUTINE FEERDD\r\nC*******\r\nC\r\nC     SUBROUTINE TO INITIALIZE COMMON /FEERCX/\r\nC\r\nC*******\r\n      INTEGER            JFRCX(28)\r\n      INTEGER            KFRCX( 4)\r\n      INTEGER            LFRCX( 4)\r\nC\r\n      COMMON   /FEERCX/  IFRCX(37)\r\nC\r\n      DATA               JFRCX   /\r\n     1                   101,6*0   ,102,6*0  ,201,6*0  ,202,6*0  /\r\n      DATA               KFRCX   /\r\n     1                   301       ,302      ,303      ,304      /\r\n      DATA               LFRCX   /\r\n     1                   305       ,306      ,307      ,308      /\r\n      DATA               MFRCX   /   204   /\r\nC\r\n      DO 10 I = 1,28\r\n   10 IFRCX(I) = JFRCX(I)\r\n      DO 20 I = 1,4\r\n      IFRCX(I+28) = KFRCX(I)\r\n   20 IFRCX(I+32) = LFRCX(I)\r\n      IFRCX(37) = MFRCX\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferfbs.f",
    "content": "      SUBROUTINE FERFBS(V1,V2,V3,VB)\r\nC\r\nC  FERFBS is a modification of the old FRBK subroutine.  It has been\r\nC  modified to read matrix data from memory until that data is exhausted\r\nC  and then to read the remaining data from the file.\r\nC\r\n      REAL              DCORE(1)\r\n      REAL              V1(1)     ,V2(1)     ,V3(1)     ,VB(1)  ,\r\n     1                  XL(1)     ,XLJJ      ,V3J       ,V2J\r\n      INTEGER           IBLK(20)  ,SMAPOS\r\n      COMMON / ZZZZZZ / ICORE(1)   \r\n      COMMON / OPINV  / MCBLT(7)  ,MCBSMA(7)\r\n      COMMON / SYSTEM / KSYSTM(65)\r\n      COMMON / FEERIM / NIDSMA    ,NIDLT     ,NIDORV    ,NLTLI   \r\n     1,                 NSMALI    ,IBFSMA    ,IBFLT\r\n     2,                 IBFORV    ,SMAPOS(7) ,LTPOS(7)\r\n      EQUIVALENCE       ( KSYSTM(02),NOUT)\r\n      EQUIVALENCE       ( DCORE(1)  ,ICORE(1), XL )  \r\nC\r\n      NROW    = MCBLT(2)\r\n      DO 10 I = 1,NROW\r\n   10 V2(I) = V1(I)\r\n      ILROW = LTPOS( 1 )\r\n      ICROW = NROW\r\n      IF ( ILROW .EQ. 0 .AND. NIDLT .NE. 0 ) GO TO 1000\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\nC     POSITION FILE TO LAST COLUMN\r\nC\r\n      IF ( NIDLT .EQ. 0 ) GO TO 12\r\n      CALL DSSPOS ( MCBLT, LTPOS(5), LTPOS(6), LTPOS(7) )\r\n      GO TO 16\r\n  12  CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, NROW+1 )\r\n  16  CONTINUE\r\n      IBLK( 1 ) = MCBLT( 1 )\r\n      J       = NROW\r\n  15  IBLK(8) = -1\r\n      ICROW   = J\r\n      IF ( J .LE. ILROW ) GO TO 1000\r\n  20  CALL GETSTB(*50,IBLK(1))\r\n      NTMS    = IBLK(6)\r\n      JI      = IBLK(5)\r\n      IK      = IBLK(4)\r\n      IF( IK - NTMS + 1 .NE. J) GO TO 25\r\n      NTMS    = NTMS - 1\r\n      XLJJ    = XL(JI-NTMS)\r\n      IF(NTMS .EQ. 0) GO TO 40\r\n   25 V2J     = V2(J)\r\n      DO 30 II= 1,NTMS\r\n      V2J     = V2J + XL(JI) * V2(IK)\r\n      JI      = JI - 1\r\n      IK      = IK - 1\r\n   30 CONTINUE\r\n      V2(J)   = V2J\r\n   40 CALL ENDGTB(IBLK(1))\r\n      GO TO 20\r\n   50 V2(J)   = V2(J) / XLJJ\r\n      IF(J .EQ. 1) GO TO 2000\r\n      J       = J -1\r\n      GO TO 15\r\nC\r\nC     CONTINUE BACKWARD SUBSTITUTION WITH DATA IN MEMORY\r\nC\r\n1000  CONTINUE\r\n      MEM     = NLTLI\r\n      NTMS    = ICORE(MEM)\r\n      MEM     = MEM - NTMS - 3\r\n      J       = ICROW\r\n 1015 ICOL    = ICORE(MEM)\r\n      IF ( ICOL .NE. J ) GO TO 1050\r\n      NTMS    = ICORE(MEM+1)\r\n      NTMSS   = NTMS\r\n      JI      = MEM + 1 + NTMS\r\n      IK      = ICORE( MEM + 2 + NTMS ) + NTMS - 1\r\n      IF( IK-NTMS+1 .NE. J) GO TO 1025\r\n      NTMS    = NTMS - 1\r\n      XLJJ    = DCORE(JI-NTMS)\r\n      IF(NTMS .EQ. 0) GO TO 1040\r\n 1025 V2J     = V2(J)\r\n      DO 1030 II= 1,NTMS\r\n      V2J     = V2J + DCORE(JI) * V2(IK)\r\n      JI      = JI - 1\r\n      IK      = IK - 1\r\n 1030 CONTINUE\r\n      V2(J)   = V2J\r\n 1040 IF ( MEM .EQ. NIDLT ) GO TO 1050\r\n      NTMSNX  = ICORE( MEM-1 )\r\n      MEM     = MEM - NTMSNX - 4\r\n      GO TO 15\r\n 1050 V2(J)   = V2(J) / XLJJ\r\n      IF(J .EQ. 1) GO TO 2000\r\n      J       = J -1\r\n      GO TO 1015\r\n2000  CALL FERLTS(MCBSMA(1),V2(1),V3(1),VB(1))\r\nC\r\nC BEGIN FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      ICROW = 1\r\n      IF ( NIDLT .EQ. 0 ) GO TO 3005\r\n      MEM   = NIDLT\r\n      DO 2120 J = 1, NROW\r\n      ICROW = J\r\n      IF ( J .GT. ILROW ) GO TO 3000\r\n 2080 ICOL  = ICORE(MEM)\r\n      IF( ICOL .NE. J ) GO TO 2120\r\n      JI    = MEM + 2\r\n      NTMS  = ICORE( MEM+1 )\r\n      NTMSS = NTMS\r\n      IK    = ICORE(MEM + 2 + NTMS)\r\n      IF ( IK .NE. J ) GO TO 2085\r\n      NTMS  = NTMS - 1\r\n      V3(J) = V3(J) / DCORE(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n 2085 IF(NTMS .EQ. 0) GO TO 2100\r\n      V3J   = V3(J)\r\n      DO 2090 II = 1,NTMS\r\n      V3(IK)= V3(IK) + DCORE(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n 2090 CONTINUE\r\n 2100 MEM   = MEM + NTMSS + 4\r\n      GO TO 2080\r\n 2120 CONTINUE\r\n      GO TO 7000\r\n 3000 CONTINUE\r\nC\r\nC     CONTINUE FORWARD SWEEP DIRECTLY ON V3\r\nC\r\nC     POSITION FILE TO CONTINUE READING COLUMN DATA NOT IN MEMORY\r\nC\r\n      CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) )\r\n      GO TO 3008\r\n 3005 CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, 1 )\r\n 3008 CONTINUE\r\n      DO 3120 J = ICROW, NROW\r\n      IBLK( 8 ) = -1\r\n 3080 CALL GETSTR( *3120, IBLK )\r\n      IK    = IBLK( 4 )\r\n      JI    = IBLK( 5 )\r\n      NTMS  = IBLK( 6 )\r\n      IF ( IK .NE. J) GO TO 3085\r\n      NTMS  = NTMS - 1\r\n      V3(J) = V3(J) / XL(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n 3085 IF(NTMS .EQ. 0) GO TO 3100\r\n      V3J   = V3(J)\r\n      DO 3090 II = 1,NTMS\r\n      V3(IK)= V3(IK) + XL(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n 3090 CONTINUE\r\n 3100 CALL ENDGET(IBLK(1))\r\n      GO TO 3080\r\n 3120 CONTINUE\r\n      GO TO 7000\r\n 7000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferltd.f",
    "content": "      SUBROUTINE FERLTD (IFILE,DZ,DY,ZM)\r\nC\r\nC  FERLTD was originally subroutine FRMLTD.  FERLTD allows for \r\nC  reading the input matrix from core and after the core data is\r\nC  exhausted, then reading the remaining data from the file.\r\nC  See subroutine FERRDM for how data is stored within memory for the \r\nC  matrix and for the contents of SMAPOS.\r\nC\r\nC   FEER MATRIX TRANSPOSE MULTIPLY  (DOUBLE PREC)\r\nC\r\n      DOUBLE PRECISION  DZ(1)     ,DY(1)     ,DSUM      ,ZM(1)\r\n      DOUBLE PRECISION  DCORE(1)   \r\n      INTEGER           IFILE(7)  ,SMAPOS\r\n      COMMON  /UNPAKX/  ITYP      ,IP        ,NP        ,INCR\r\n      COMMON  /ZZZZZZ/  ICORE(1)\r\n      COMMON  /FEERIM/  NIDSMA    ,NIDLT     ,NIDORV    ,NLTLI\r\n     1,                 NSMALI    ,IBFSMA    ,IBFLT\r\n     2,                 IBFORV    ,SMAPOS(7) ,LTPOS(7)\r\n      EQUIVALENCE       ( DCORE(1),ICORE(1) )\r\n      N     = IFILE(2) \r\n      ICCOL = 1\r\n      IF ( NIDSMA .EQ. 0 ) GO TO 1005\r\n      MEM   = NIDSMA\r\n      ILCOL = SMAPOS( 1 )\r\n      DO 20 I = 1,N\r\n      ICCOL = I\r\nC CHECK TO SEE IF REMAINING DATA IS ON THE FILE AND NOT IN MEMORY\r\n      IF ( ICCOL .GT. ILCOL ) GO TO 1000\r\n      DY(I) = 0.D0\r\n      DSUM  = 0.D0\r\n    5 ICOL  = ICORE(MEM)\r\n      IF( ICOL .NE. I ) GO TO 20\r\n      NTMS  = ICORE(MEM+1)\r\n      IP    = ICORE(MEM+2+2*NTMS)\r\n      NP    = IP+NTMS-1\r\n      INDX  = MEM/2+1\r\n      II    = 0\r\n      DO 10 J = IP,NP\r\n      II    = II +1\r\n   10 DSUM  = DSUM + DCORE(INDX+II) * DZ(J)\r\n      DY(I) = DSUM\r\n      MEM   = MEM+4+2*NTMS\r\n      GO TO 5\r\n   20 CONTINUE\r\n      GO TO 7000\r\n 1000 CONTINUE\r\n      CALL DSSPOS ( IFILE, SMAPOS(2), SMAPOS(3), SMAPOS(4) )\r\n      GO TO 1008\r\n 1005 CALL REWIND ( IFILE )\r\n      CALL SKPREC ( IFILE, 1 )\r\n 1008 CONTINUE\r\n      INCR  = 1\r\n      ITYP  = IFILE(5)\r\n      DO 1020 I = ICCOL, N\r\n      DY(I) = 0.D0\r\n      IP    = 0\r\n      CALL UNPACK(*1020,IFILE,ZM(1))\r\n      II   = 0\r\n      DSUM = 0.D0   \r\n      DO 1010 J = IP,NP\r\n      II = II +1\r\n 1010 DSUM  = DSUM + ZM(II) * DZ(J)\r\n      DY(I) = DSUM\r\n 1020 CONTINUE\r\n 7000 CONTINUE     \r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferlts.f",
    "content": "      SUBROUTINE FERLTS (IFILE,DZ,DY,ZM)\r\nC\r\nC   FEER MATRIX TRANSPOSE MULTIPLY  (SINGLE PRECISION)\r\nC   SEE SUBROUTINE FERRDM FOR CONTENTS OF SMAPOS AND HOW THE MATRIX\r\nC   DATA IS STORED IN MEMORY.\r\nC\r\n      REAL             DZ(1)     ,DY(1)     ,DSUM      ,ZM(1)\r\n      REAL             DCORE(1) \r\n      INTEGER          IFILE(7)  ,SMAPOS\r\n      COMMON  /FEERIM/ NIDSMA    ,NIDLT     ,NIDORV    ,NLTLI\r\n     1,                NSMALI    ,IBFSMA    ,IBFLT\r\n     2,                IBFORV    ,SMAPOS(7) ,LTPOS(7)\r\n      COMMON  /UNPAKX/ IPRC      ,IP        ,NP        ,INCR\r\n      COMMON  /ZZZZZZ/ ICORE(1)\r\n      EQUIVALENCE      ( DCORE(1),ICORE(1) )\r\n      N     = IFILE(2)   \r\n      ICCOL = 1\r\n      IF ( NIDSMA .EQ. 0 ) GO TO 1005\r\n      MEM   = NIDSMA\r\n      ILCOL = SMAPOS( 1 )\r\n      DO 20 I = 1,N\r\n      ICCOL = I\r\nC CHECK TO SEE IF REMAINING DATA IS ON THE FILE AND NOT IN MEMORY\r\n      IF ( ICCOL .GT. ILCOL ) GO TO 1000\r\n      DY(I) = 0.\r\n      DSUM  = 0.\r\n    5 ICOL  = ICORE(MEM)\r\n      IF( ICOL .NE. I ) GO TO 20\r\n      NTMS  = ICORE(MEM+1)\r\n      IP    = ICORE(MEM+2+NTMS)\r\n      NP    = IP+NTMS-1\r\n      INDX  = MEM+1\r\n      II    =  0\r\n      DO 10 J = IP,NP\r\n      II = II +1\r\n   10 DSUM  = DSUM + DCORE(INDX+II) * DZ(J)\r\n      DY(I) = DSUM\r\n      MEM   = MEM+4+NTMS\r\n      GO TO 5\r\n   20 CONTINUE\r\n      GO TO 7000\r\n 1000 CONTINUE\r\n      CALL DSSPOS ( IFILE, SMAPOS(2), SMAPOS(3), SMAPOS(4) )\r\n      GO TO 1008\r\n 1005 CALL REWIND ( IFILE )\r\n      CALL SKPREC ( IFILE, 1 )\r\n 1008 CONTINUE\r\n      INCR  = 1\r\n      IPRC  = IFILE(5)\r\n      DO 1020 I = ICCOL, N\r\n      DY(I) = 0.        \r\n      IP    = 0\r\n      CALL UNPACK(*1020,IFILE,ZM(1))\r\n      II    = 0\r\n      DSUM  = 0.0\r\n      DO 1010 J = IP,NP\r\n      II    = II +1\r\n 1010 DSUM  = DSUM + ZM(II) * DZ(J)\r\n      DY(I) = DSUM\r\n 1020 CONTINUE\r\n 7000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferrdm.f",
    "content": "      SUBROUTINE FERRDM ( MCB,NIDX,MEMTOT,IBUFFI,LASIND,IPOS )  \r\nC\r\nC  FERRDM - This routine will store an entire matrix in memory\r\nC           if sufficient memory exists.  The matrix    \r\nC           is stored in memory according to the following scheme:\r\nC\r\nC  1st word = current column number\r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.; =2 for d.p. )\r\nC  3+(ntms*prec)+1 = row position of first element in above string\r\nC  3+(ntms*prec)+2 = number of terms in ABOVE string (ntms)\r\nC\r\nC  The above data repeats for all strings within a column and then\r\nC  for all columns in the matrix.\r\nC\r\nC  Argument list :\r\nC     MCB    - Matrix control block for input matrix\r\nC     NIDX   - Memory index for storing matrix data\r\nC     MEMTOT - Total amount of memory available for this data\r\nC     IBUFFI - Buffer allocation for input matrix\r\nC     LASIND - Memory index of last string stored in memory \r\nC     IPOS   - 6 word array with the following information\r\nC              (1) = last column read into memory\r\nC              (2) = block number of following column not read into memory\r\nC              (3) = current logical record pointer for following column\r\nC                    not read into memory\r\nC              (4) = current buffer pointer for following record not read\r\nC                    into memory\r\nC              (5) = last block number in file\r\nC              (6) = current logical record pointer for last record in file\r\nC              (7) = current buffer pointer for last record in file\r\nC\r\n      DOUBLE PRECISION DCORE(1), DXL(1)\r\n      REAL             RCORE(1), RXL(1)\r\n      INTEGER          RD, RDREW, WRT, WRTREW, REW, IXL(1)\r\n      INTEGER          IPOS(7)\r\n      DIMENSION        IBLK(20),MCB(7)\r\n      COMMON  /SYSTEM/ KSYSTM(65)\r\n      COMMON  /ZZZZZZ/ ICORE(1)\r\n      COMMON  /NAMES / RD, RDREW, WRT, WRTREW, REW\r\n      EQUIVALENCE      ( KSYSTM( 2), NOUT              )\r\n      EQUIVALENCE      ( KSYSTM(55), IPREC             )\r\n      EQUIVALENCE      ( ICORE,DCORE,RCORE,DXL,RXL,IXL )\r\n      MEM          = NIDX\r\n      NCOL         = MCB( 2 )\r\n      NTWDS        = 0\r\n      IPOS( 1 )    = NCOL\r\n      DO 10 i  = 1,20\r\n 10   IBLK(i)      = 0\r\n      IBLK(1)      = MCB( 1 )\r\n      IBLK(9)      = 1\r\n      IBLK(10)     = 1\r\n      CALL GOPEN  ( MCB, ICORE( IBUFFI ), RDREW )\r\n      CALL REWIND ( MCB)\r\n      CALL SKPREC ( MCB, 1 )\r\n      DO 1000 JCOL = 1,NCOL\r\n      IBLK(8)      = -1\r\n      LASIND       = MEM - 1        \r\n      CALL DSCPOS  ( MCB, IBLOCK, ICLR, ICBP )     \r\n  100 CALL GETSTR(*1000,IBLK(1))\r\n      INDEX        = IBLK( 5 )\r\n      NTMS         = IBLK( 6 )\r\n      JROW         = IBLK( 4 )\r\n      NTWDS        = NTWDS + 4 + NTMS*IPREC\r\n      IF ( NTWDS .GT. MEMTOT ) GO TO 2000\r\n      ICORE(MEM)   = JCOL\r\n      ICORE(MEM+1) = NTMS\r\n      IF ( IPREC .EQ. 1 ) GO TO 160\r\n      MINDEX         = MEM/2+1\r\n      DO 150 II = 1,NTMS\r\n      DCORE(MINDEX+II) = DXL(INDEX+II-1)\r\n  150 CONTINUE\r\n      GO TO 180\r\n  160 MINDEX     = MEM + 1\r\n      DO 170 II  = 1,NTMS\r\n      RCORE(MINDEX+II) = RXL(INDEX+II-1)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      MEM          = MEM + 2 + NTMS*IPREC\r\n      ICORE(MEM  ) = JROW\r\n      ICORE(MEM+1) = NTMS\r\n      MEM          = MEM + 2\r\n  185 CALL ENDGET (IBLK( 1 ) )\r\n      GO TO 100\r\n 1000 CONTINUE  \r\n      LASIND    = MEM - 1        \r\n      GO TO 7000\r\n 2000 IPOS( 1 ) = JCOL - 1\r\n      IPOS( 2 ) = IBLOCK\r\n      IPOS( 3 ) = ICLR\r\n      IPOS( 4 ) = ICBP\r\n      CALL SKPREC ( MCB, NCOL-JCOL+1 )\r\n      CALL DSCPOS ( MCB, IBLOCK, ICLR, ICBP )\r\n      IPOS( 5 ) = IBLOCK\r\n      IPOS( 6 ) = ICLR\r\n      IPOS( 7 ) = ICBP\r\n 7000 CONTINUE\r\n      CALL CLOSE ( MCB , REW )\r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/ferswd.f",
    "content": "      SUBROUTINE FERSWD(V1,V3,VB)         \r\nC\r\nC  The original to this subroutine was FRSW2.  It has been modified\r\nC  to read the matrix data from memory and after this data is exhausted\r\nC  then to read the remaining data from the file.\r\nC\r\n      DOUBLE PRECISION  V1(1)     ,V3(1)     ,VB(1)  \r\n     1,                 XL(1)     ,XLJJ      ,V3J\r\n     2,                 ZERO      ,SUM       ,DCORE(1)\r\n      INTEGER           IBLK(20)\r\n      COMMON / ZZZZZZ / ICORE(1)  \r\n      COMMON  /OPINV /  MCBLT(7) ,MCBSMA(7)\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /FEERIM/  NIDSMA, NIDLT    , NIDORV  , NLTLI\r\n     1,                 NSMALI, IBFSMA   , IBFLT\r\n     2,                 IBFORV, SMAPOS(7), LTPOS(7)\r\n      EQUIVALENCE       (KSYSTM(02),IO)\r\n      EQUIVALENCE       ( DCORE(1),ICORE(1), XL(1) )   \r\n      DATA              ZERO / 0.0D0 /\r\nC\r\n      NROW    = MCBLT(2)\r\n      CALL FERLTD(MCBSMA(1),V1(1),V3(1),VB(1))\r\nC   FORWARD SWEEP DIRECTLY ON V3\r\n      ICROW = 1\r\n      IF ( NIDLT .EQ. 0 ) GO TO 1005\r\n      ILROW = LTPOS( 1 )\r\n      MEM   = NIDLT\r\n      DO 190 J = 1,NROW\r\n      ICROW = J\r\n      IF ( ICROW .GT. ILROW ) GO TO 1000\r\n  140 ICOL  = ICORE(MEM)\r\n      IF ( ICOL .NE. J ) GO TO 180\r\n      JI    = MEM/2+2\r\n      NTMS  = ICORE(MEM+1)\r\n      NTMSS = NTMS\r\n      IK    = ICORE(MEM+2+2*NTMS)\r\n      IF(IK .NE. J) GO TO 150\r\n      NTMS  = NTMS - 1\r\n      XLJJ  = DCORE(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n  150 IF(NTMS .EQ. 0) GO TO 170\r\n      V3J   = V3(J)\r\n      DO 160 II = 1,NTMS\r\n      V3(IK)= V3(IK) + DCORE(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n  160 CONTINUE\r\n  170 MEM   = MEM + NTMSS*2 + 4\r\n      GO TO 140\r\n  180 V3(J) = V3(J) / XLJJ\r\n  190 CONTINUE\r\n      GO TO 3000\r\n 1000 CONTINUE\r\nC POSITION FILE TO APPROPRIATE COLUMN \r\n      CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) )\r\n      GO TO 1008\r\n 1005 CONTINUE\r\n      CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, 1 )\r\n 1008 CONTINUE\r\n      IBLK( 1 ) = MCBLT( 1 )\r\nC\r\nC CONTINUE WITH FORWARD SWEEP\r\nC   \r\n      DO 1090 J = ICROW, NROW\r\n      IBLK( 8 ) = -1\r\n 1030 CALL GETSTR ( *1070, IBLK )\r\n      IK   = IBLK( 4 )\r\n      JI   = IBLK( 5 )\r\n      NTMS = IBLK( 6 )\r\n      IF ( IK .NE. J ) GO TO 1040\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL( JI )\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n 1040 IF ( NTMS .EQ. 0 ) GO TO 1060\r\n      V3J  = V3( J )\r\n      IF ( V3J .EQ. ZERO ) GO TO 1060\r\n      DO 1050 II = 1, NTMS\r\n      V3( IK ) = V3( IK ) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n 1050 CONTINUE\r\n 1060 CALL ENDGET ( IBLK )\r\n      GO TO 1030\r\n 1070 CONTINUE\r\n      V3( J ) = V3( J ) / XLJJ\r\n 1090 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      ICROW = NROW\r\n      IF ( J .EQ. 1 ) RETURN\r\n      IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 3000\r\n      J     = NROW\r\n 2090 IBLK( 8 ) = -1\r\n 2100 CALL GETSTB ( *2130, IBLK )\r\n      IK    = IBLK( 4 )\r\n      JI    = IBLK( 5 )\r\n      NTMS  = IBLK( 6 )\r\n      IF ( IK-NTMS+1 .EQ. J ) NTMS = NTMS - 1\r\n      IF ( NTMS .EQ. 0 ) GO TO 2120\r\n      SUM   = ZERO\r\n      DO 2110 II = 1, NTMS\r\n      SUM   = SUM + XL(JI) * V3(IK)\r\n      JI    = JI - 1\r\n      IK    = IK - 1\r\n 2110 CONTINUE\r\n      V3( J ) = V3( J ) + SUM\r\n 2120 CALL ENDGTB ( IBLK )\r\n      GO TO 2100\r\n 2130 IF ( J .EQ. 1 ) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .LE. ILROW ) GO TO 3000\r\n      GO TO 2090\r\nC  CONTINUE BACKWARD SUBSTITUTION USING DATA FROM MEMORY\r\n 3000 CONTINUE\r\n      MEM = MEM - NTMSS*2 - 4\r\n 3200 CONTINUE\r\n 3210 ICOL = ICORE(MEM)\r\n      IF ( ICOL .NE. J ) GO TO 3240\r\n      NTMS  = ICORE(MEM+1)\r\n      NTMSS = NTMS\r\n      JI    = MEM/2+1+NTMS\r\n      IK    = ICORE(MEM+2+2*NTMS)+NTMS-1\r\n      IF( IK-NTMS+1 .EQ. J) NTMS = NTMS - 1\r\n      IF( NTMS .EQ. 0 ) GO TO 3230\r\n      V3J   = V3( J )\r\n      DO 3220 II = 1,NTMS\r\n      V3J   = V3J + DCORE(JI) * V3(IK)\r\n      JI    = JI-1\r\n      IK    = IK-1\r\n 3220 CONTINUE\r\n      V3(J) = V3J\r\n 3230 IF ( MEM .EQ. NIDLT ) GO TO 3250\r\n      NTMSNX= ICORE(MEM-1)\r\n      MEM   = MEM - NTMSNX*2 - 4\r\n      GO TO 3210\r\n 3240 IF ( J .EQ. 1 )  GO TO 3250\r\n      J     = J-1\r\n      GO TO 3200\r\n 3250 CONTINUE\r\n 7000 CONTINUE \r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fersws.f",
    "content": "      SUBROUTINE FERSWS(V1,V3,VB)         \r\nC\r\nC  The original to this subroutine was FRSW.  It has been modified\r\nC  to read the matrix data from memory and after this data is exhausted\r\nC  then to read the remaining data from the file.\r\nC\r\n      REAL              V1(1)     ,V3(1)     ,VB(1)  ,\r\n     1                  XL(1)     ,XLJJ      ,V3J\r\n      REAL              ZERO      ,SUM\r\n      REAL              DCORE(1)\r\n      INTEGER           IBLK(20)\r\n      COMMON / ZZZZZZ / ICORE(1)  \r\n      COMMON  /OPINV /  MCBLT(7) ,MCBSMA(7)\r\n      COMMON  /SYSTEM/  KSYSTM(65)\r\n      COMMON  /FEERIM/  NIDSMA, NIDLT    , NIDORV  , NLTLI\r\n     1,                 NSMALI, IBFSMA   , IBFLT\r\n     2,                 IBFORV, SMAPOS(7), LTPOS(7)\r\n      EQUIVALENCE       (KSYSTM(02),IO)\r\n      EQUIVALENCE       ( DCORE(1),ICORE(1), XL(1) )   \r\n      DATA              ZERO / 0.0 /\r\nC\r\n      NROW    = MCBLT(2)\r\n      CALL FERLTS(MCBSMA(1),V1(1),V3(1),VB(1))\r\nC   FORWARD SWEEP DIRECTLY ON V3\r\n      ICROW = 1\r\n      IF ( NIDLT .EQ. 0 ) GO TO 1005\r\n      ILROW = LTPOS( 1 )\r\n      MEM   = NIDLT\r\n      DO 190 J = 1,NROW\r\n      ICROW = J\r\n      IF ( ICROW .GT. ILROW ) GO TO 1000\r\n  140 ICOL  = ICORE(MEM)\r\n      IF ( ICOL .NE. J ) GO TO 180\r\n      JI    = MEM + 2\r\n      NTMS  = ICORE(MEM+1)\r\n      NTMSS = NTMS\r\n      IK    = ICORE(MEM + 2 + NTMS)\r\n      IF(IK .NE. J) GO TO 150\r\n      NTMS  = NTMS - 1\r\n      XLJJ  = DCORE(JI)\r\n      JI    = JI + 1\r\n      IK    = IK + 1\r\n  150 IF(NTMS .EQ. 0) GO TO 170\r\n      V3J   = V3(J)\r\n      DO 160 II = 1,NTMS\r\n      V3(IK)= V3(IK) + DCORE(JI) * V3J\r\n      IK    = IK + 1\r\n      JI    = JI + 1\r\n  160 CONTINUE\r\n  170 MEM   = MEM + NTMSS + 4\r\n      GO TO 140\r\n  180 V3(J) = V3(J) / XLJJ\r\n  190 CONTINUE\r\n      GO TO 2000\r\n 1000 CONTINUE\r\nC POSITION FILE TO APPROPRIATE COLUMN \r\n      CALL DSSPOS ( MCBLT, LTPOS(2), LTPOS(3), LTPOS(4) )\r\n      GO TO 1008\r\n 1005 CONTINUE\r\n      CALL REWIND ( MCBLT )\r\n      CALL SKPREC ( MCBLT, 1 )\r\n 1008 CONTINUE\r\n      IBLK( 1 ) = MCBLT( 1 )\r\nC\r\nC CONTINUE WITH FORWARD SWEEP\r\nC   \r\n      DO 1090 J = ICROW, NROW\r\n      IBLK( 8 ) = -1\r\n 1030 CALL GETSTR ( *1070, IBLK )\r\n      IK   = IBLK( 4 )\r\n      JI   = IBLK( 5 )\r\n      NTMS = IBLK( 6 )\r\n      IF ( IK .NE. J ) GO TO 1040\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL( JI )\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n 1040 IF ( NTMS .EQ. 0 ) GO TO 1060\r\n      V3J  = V3( J )\r\n      IF ( V3J .EQ. ZERO ) GO TO 1060\r\n      DO 1050 II = 1, NTMS\r\n      V3( IK ) = V3( IK ) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n 1050 CONTINUE\r\n 1060 CALL ENDGET ( IBLK )\r\n      GO TO 1030\r\n 1070 CONTINUE\r\n      V3( J ) = V3( J ) / XLJJ\r\n 1090 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      ICROW = NROW\r\n      IF ( J .EQ. 1 ) RETURN\r\n      IF ( ILROW .EQ. NROW .AND. NIDLT .NE. 0 ) GO TO 3000\r\n      J     = NROW\r\n 2090 IBLK( 8 ) = -1\r\n 2100 CALL GETSTB ( *2130, IBLK )\r\n      IK    = IBLK( 4 )\r\n      JI    = IBLK( 5 )\r\n      NTMS  = IBLK( 6 )\r\n      IF ( IK-NTMS+1 .EQ. J ) NTMS = NTMS - 1\r\n      IF ( NTMS .EQ. 0 ) GO TO 2120\r\n      SU    = ZERO\r\n      DO 2110 II = 1, NTMS\r\n      SUM   = SUM + XL(JI) * V3(IK)\r\n      JI    = JI - 1\r\n      IK    = IK - 1\r\n 2110 CONTINUE\r\n      V3( J ) = V3( J ) + SUM\r\n 2120 CALL ENDGTB ( IBLK )\r\n      GO TO 2100\r\n 2130 IF ( J .EQ. 1 ) GO TO 7000\r\n      J = J - 1\r\n      IF ( J .LE. ILROW ) GO TO 3000\r\n      GO TO 2090\r\nC  CONTINUE BACKWARD SUBSTITUTION USING DATA FROM MEMORY\r\n 3000 CONTINUE\r\n      MEM = MEM - NTMSS - 4\r\n 3200 CONTINUE\r\n 3210 ICOL = ICORE(MEM)\r\n      IF ( ICOL .NE. J ) GO TO 3240\r\n      NTMS  = ICORE(MEM+1)\r\n      NTMSS = NTMS\r\n      JI    = MEM + 1 + NTMS\r\n      IK    = ICORE( MEM + 2 + NTMS ) + NTMS - 1\r\n      IF( IK-NTMS+1 .EQ. J) NTMS = NTMS - 1\r\n      IF( NTMS .EQ. 0 ) GO TO 3230\r\n      V3J   = V3( J )\r\n      DO 3220 II = 1,NTMS\r\n      V3J   = V3J + DCORE(JI) * V3(IK)\r\n      JI    = JI-1\r\n      IK    = IK-1\r\n 3220 CONTINUE\r\n      V3(J) = V3J\r\n 3230 IF ( MEM .EQ. NIDLT ) GO TO 3250\r\n      NTMSNX= ICORE(MEM-1)\r\n      MEM   = MEM - NTMSNX - 4\r\n      GO TO 3210\r\n 3240 IF ( J .EQ. 1 )  GO TO 3250\r\n      J     = J-1\r\n      GO TO 3200\r\n 3250 CONTINUE\r\n 7000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferxtd.f",
    "content": "      SUBROUTINE FERXTD (V1,V2,V3,V4,V5,ZB,IFN)\r\nC\r\nC     FERXTD is a modification of the old subroutine FNXTVC.  The\r\nC     modification allows for reading the orthogonal vectors and the\r\nC     SMA and LT matrices from memory instead of from files.  The\r\nC     SMA and LT matrices may be partially in memory and part read\r\nC     from the file.\r\nC     FERXTD OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FERFBD\r\nC     PERFORMS THE OPERATIONAL INVERSE.   (DOUBLE PREC VERSION)\r\nC\r\nC           T   -\r\nC      B = V  * A  * V\r\nC\r\nC     V1  = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL\r\nC     V2  = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO-\r\nC           RANDOM START VECTOR\r\nC     V3,V4,V5 = WORKING SPACES FOR THREE VECTORS\r\nC     IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO.\r\nC     SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S\r\nC           MANUAL PP. 4.48-19G THRU I\r\nC\r\nC     REAL*16, MARKED BY 'CQ', WAS TRIED FOR IMPROVED ACCURACY. BUT THE\r\nC     REAL*16  OPERATIONS ON VAX WERE 10 TIMES SLOWER THAN REAL*8\r\nC     (NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE)\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,SR5FLE   ,NAME(5)  ,\r\n     1                   VCDOT     ,SMAPOS   ,EOFNRW\r\n      DOUBLE PRECISION   V1(1)     ,V2(1)    ,V3(1)    ,V4(1)    ,\r\n     1                   V5(1)     ,LMBDA    ,LAMBDA   ,B(2)     ,\r\n     2                   ZERO      ,ZB(1)\r\nCQ    REAL*16            D         ,DB       ,DSQ      ,SD       ,\r\n      DOUBLE PRECISION   ZD\r\n      DOUBLE PRECISION   D         ,DB       ,DSQ      ,SD       ,\r\n     1                   AII       ,DBI      ,DEPX     ,DEPX2    ,\r\n     2                   SDMAX     ,DTMP     ,OPDEPX   ,OMDEPX\r\n      CHARACTER          UFM*23    ,UWM*25\r\n      COMMON   /ZZZZZZ/  ZD(1)\r\n      COMMON   /FEERIM/  NIDSMA    ,NIDLT    ,NIDORV   ,NLTLI\r\n     1,                  NSMALI    ,IBFSMA   ,IBFLT\r\n     2,                  IBFORV    ,SMAPOS(7),LTPOS(7)\r\n      COMMON   /XMSSG /  UFM       ,UWM\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,ERRC     ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (KSYSTM(1),SYSBUF)  ,(KSYSTM(2),IO)\r\n      DATA      NAME  /  4HFERX    ,4HTD     ,2*4HBEGN ,4HEND    /\r\n      DATA      VCDOT ,  ZERO /     4HVC.    ,0.0D+0             /\r\nC\r\nC     SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS\r\nC\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL  VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA MATRIX\r\nC\r\n      IF (MCBLT(7) .LT. 0) NAME(2) = VCDOT\r\n      NAME(3) = NAME(4)\r\n      CALL CONMSG (NAME,3,0)\r\n      ITER  = ITER + 1\r\n      IPRC  = 2\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      IFG   = MCBRM(1)\r\n      IFV   = MCBVEC(1)\r\n      DEPX  = EPX\r\n      DEPX2 = DEPX**2\r\n      OPDEPX= 1.0D+0 + DEPX\r\n      OMDEPX= 1.0D+0 - DEPX\r\nCQ    OPDEPX= 1.0Q+0 + DEPX\r\nCQ    OMDEPX= 1.0Q+0 - DEPX\r\n      D     = ZERO\r\n      NORD1 = NORD - 1\r\nC\r\nC     NORMALIZE START VECTOR\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 20\r\n      CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 10 I = 1,NORD\r\n   10 DSQ = DSQ + V2(I)*V3(I)\r\n      GO TO 40\r\n   20 DO 30 I = 1,NORD\r\n   30 DSQ = DSQ + V2(I)*V2(I)\r\n   40 DSQ = 1.0D+0/DSQRT(DSQ)\r\nCQ 40 DSQ = 1.0D+0/QSQRT(DSQ)\r\n      DO 50 I = 1,NORD\r\n   50 V2(I) = V2(I)*DSQ\r\n      IF (NORTHO .EQ. 0) GO TO 200\r\nC\r\nC     ORTHOGONALIZE WITH PREVIOUS VECTORS\r\nC\r\n      DO 60 I = 1,NORD\r\n   60 V3(I) = V2(I)\r\nC\r\nC     READ ORTHOGONAL VECTORS INTO MEMORY IF SPACE EXISTS\r\nC\r\n      IF ( NIDORV .EQ. 0 ) GO TO 70\r\n      IF ( NORTHO .EQ. 0 ) GO TO 70\r\n      CALL GOPEN ( IFV, ZB(1), RDREW )\r\n      II = 1\r\n      NN = NORD\r\n      NIDX = NIDORV/2 + 1 \r\n      DO 65 IC = 1, NORTHO\r\n      ILOC = ( IC-1 ) * NORD + NIDX\r\n      CALL UNPACK ( *65, IFV, ZD( ILOC ) )\r\n   65 CONTINUE\r\n      CALL CLOSE ( IFV, EOFNRW )\r\nC\r\nC     BEGINNING OF ITERATION LOOP\r\nC   \r\n   70 DO 170 IX = 1,14\r\n      NONUL = NONUL + 1\r\n      IF (IOPTF .EQ. 0) \r\n     &  CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      IF ( NIDORV .NE. 0 ) GO TO 1000\r\nC     \r\nC  READ ORTHOGONAL VECTORS FROM FILE\r\nC\r\n      CALL GOPEN (IFV,ZB(1),RDREW)        \r\n      SDMAX = ZERO\r\n      DO 110 IY = 1,NORTHO\r\n      II = 1\r\n      NN = NORD\r\n      SD = ZERO\r\n      CALL UNPACK (*90,IFV,V5(1))\r\n      DO 80 I = 1,NORD\r\n      SD = SD + V3(I)*V5(I)\r\n   80 CONTINUE\r\n   90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD)\r\nCQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD)\r\n      DO 100 I = 1,NORD\r\n  100 V2(I) = V2(I) - SD*V5(I)\r\n  110 CONTINUE\r\n      CALL CLOSE (IFV,EOFNRW)\r\n      GO TO 2000\r\nC\r\nC ORTHOGONAL VECTORS ARE IN MEMORY\r\nC \r\n 1000 CONTINUE\r\n      SDMAX = ZERO\r\n      NIDX  = NIDORV/2 + 1 \r\n      DO 1110 IY = 1, NORTHO\r\n      SD    = ZERO\r\n      ILOC  = (IY-1)*NORD + NIDX - 1 \r\n      DO 1080 I = 1, NORD\r\n      SD    = SD + V3(I)*ZD(ILOC+I)\r\n 1080 CONTINUE\r\n      IF ( DABS( SD ) .GT. SDMAX ) SDMAX = DABS( SD )\r\n      DO 1100 I = 1, NORD\r\n      V2(I) = V2(I) - SD*ZD(ILOC+I)\r\n 1100 CONTINUE\r\n 1110 CONTINUE\r\n 2000 CONTINUE\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 130\r\n      CALL FERLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 120 I = 1,NORD1\r\n  120 DSQ = DSQ + V2(I)*V3(I)\r\n      GO TO 150\r\n  130 DO 140 I = 1,NORD1\r\n  140 DSQ = DSQ + V2(I)*V2(I)\r\nC\r\nC 150 IF (DSQ .LT. DEPX2) GO TO 500\r\nC\r\nC     COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE,   1/92\r\nC\r\nC     DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND\r\nC     IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR\r\nC     THE 60/64 BIT MACHINES, USING S.P. COMPUTATION)\r\nC     (EPX WAS SET TO 10.**-10 FOR ALL MACHINES, S.P. AND D.P., 1/92)\r\nC\r\nC     NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS.\r\nC     THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH\r\nC     ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF\r\nC     DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE\r\nC     (PREVIOUSLY, DO LOOPS 120 AND 140 COVERED 1 THRU NORD)\r\nC\r\nC     MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME\r\nC     FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ\r\nC     DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS.\r\nC     THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0)\r\nC     GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE\r\nC\r\nC     NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA\r\nC\r\n  150 D = V3(NORD)\r\n      IF (IOPTF .EQ. 1) D = V2(NORD)\r\n      D = V2(NORD)*D\r\n      DTMP = DSQ\r\n      DSQ  = DSQ + D\r\n      IF (DSQ .LT. DEPX2) GO TO 500\r\n      DTMP = DABS(D/DTMP)\r\nCQ    DTMP = QABS(D/DTMP)\r\n      IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500\r\n      D = ZERO\r\nC\r\n      DSQ = DSQRT(DSQ)\r\nCQ    DSQ = QSQRT(DSQ)\r\n      IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ\r\n      DSQ = 1.0D+0/DSQ\r\n      DO 160 I = 1,NORD\r\n      V2(I) = V2(I)*DSQ\r\n  160 V3(I) = V2(I)\r\n      IF (SDMAX .LT. DEPX) GO TO 200\r\n  170 CONTINUE\r\nC\r\n      GO TO 500\r\n  200 IF (IFN .NE. 0) GO TO 300\r\nC\r\nC     SWEEP START VECTOR FOR ZERO ROOTS\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 220\r\n      CALL FERSWD (V2(1),V3(1),V5(1))\r\n      CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 210 I = 1,NORD\r\n  210 DSQ = DSQ + V3(I)*V4(I)\r\n      GO TO 240\r\n  220 CONTINUE\r\n      CALL FERFBD (V2(1),V4(1),V3(1),V5(1))\r\n      DO 230 I = 1,NORD\r\n  230 DSQ = DSQ + V3(I)*V3(I)\r\n  240 DSQ = 1.0D+0/DSQRT(DSQ)\r\nCQ240 DSQ = 1.0D+0/QSQRT(DSQ)\r\n      DO 250 I = 1,NORD\r\n  250 V2(I) = V3(I)*DSQ\r\n      GO TO 320\r\nC\r\nC     CALCULATE OFF DIAGONAL TERM OF B\r\nC\r\n  300 D = ZERO\r\n      DO 310 I = 1,NORD\r\n  310 D = D + V2(I)*V4(I)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS 1/92\r\nC     WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAY TRUE.\r\nC\r\n      IF (D .LT. DEPX*DABS(AII)) GO TO 500\r\nCQ    IF (D .LT. DEPX*QABS(AII)) GO TO 500\r\n  320 CALL GOPEN (IFG,ZB(1),WRT)\r\n      IIP = 1\r\n      NNP = NORD\r\n      IF (IOPTF .EQ. 1) GO TO 330\r\n      CALL FERSWD (V2(1),V3(1),V5(1))\r\n      CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      CALL PACK (V2(1),IFG,MCBRM(1))\r\n      GO TO 350\r\n  330 CONTINUE\r\n      CALL FERFBD (V2(1),V4(1),V3(1),V5(1))\r\n      CALL PACK (V4(1),IFG,MCBRM(1))\r\n      DO 340 I = 1,NORD\r\n  340 V4(I) = V3(I)\r\n  350 CALL CLOSE (IFG,NOREW)\r\nC\r\nC     CALCULATE DIAGONAL TERM OF B\r\nC\r\n      AII = ZERO\r\n      DO 400 I = 1,NORD\r\n  400 AII = AII + V2(I)*V4(I)\r\n      IF (D .EQ. ZERO) GO TO 420\r\n      DO 410 I = 1,NORD\r\n  410 V3(I) = V3(I) - AII*V2(I) - D*V1(I)\r\n      GO TO 440\r\n  420 DO 430 I = 1,NORD\r\n  430 V3(I) = V3(I) - AII*V2(I)\r\n  440 DB = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 460\r\n      CALL FERLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 450 I = 1,NORD\r\n  450 DB = DB + V3(I)*V4(I)\r\n      GO TO 480\r\n  460 DO 470 I = 1,NORD\r\n  470 DB = DB + V3(I)*V3(I)\r\n  480 DB = DSQRT(DB)\r\nCQ480 DB = QSQRT(DB)\r\n      ERRC = SNGL(DB)\r\n      B(1) = AII\r\n      B(2) = D\r\n      CALL WRITE (SR5FLE,B(1),4,1)\r\n      IF ( NIDORV .NE. 0 ) GO TO 3000\r\n      CALL GOPEN (IFV,ZB(1),WRT)\r\n      IIP  = 1\r\n      NNP  = NORD\r\n      CALL PACK (V2(1),IFV,MCBVEC(1))\r\n      CALL CLOSE (IFV,NOREW)\r\n      GO TO 4000\r\n3000  CONTINUE\r\n      NIDX = NIDORV/2 + 1 \r\n      ILOC = NORTHO * NORD + NIDX\r\n      DO 3100 I = IIP, NNP\r\n      ZD( ILOC+I-1 ) = V2( I )\r\n3100  CONTINUE\r\n4000  CONTINUE\r\n      NORTHO = NORTHO + 1\r\n      IFN  = NORTHO - NZERO\r\n      IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D\r\n      IF ( IFN .LT. MORD ) GO TO 6000\r\nC\r\nC NEED TO SAVE ORTHOGONAL VECTORS BACK TO FILE\r\nC\r\n      CALL GOPEN ( IFV, ZB(1), WRT ) \r\n      IIP  = 1\r\n      NNP  = NORD\r\n      NIDX = NIDORV/2 + 1 \r\n      DO 5000 I = 1, NORTHO\r\n      ILOC = (I-1)*NORD + NIDX\r\n      CALL PACK ( ZD( ILOC ), IFV, MCBVEC(1) )\r\n5000  CONTINUE\r\n      CALL CLOSE ( IFV, NOREW )\r\n6000  CONTINUE\r\n      IF (IFN .GE. MORD) GO TO 630\r\nC\r\nC     IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR\r\nC\r\n      IF (DB .LT. DEPX*DABS(AII)) GO TO 630\r\nC\r\nC     A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1,\r\nC     NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS.\r\nC\r\n      DBI = 1.0D+0/DB\r\n      DO 490 I = 1,NORD\r\n      V1(I) = V2(I)\r\n      V3(I) = V3(I)*DBI\r\n  490 V2(I) = V3(I)\r\n      GO TO 70\r\nC\r\n  500 MORD = IFN\r\n      WRITE (IO,600) UWM,MORD\r\n      GO TO 630\r\nC\r\n  600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X,\r\n     1        'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X,\r\n     2        'ALL EXISTING MODES MAY HAVE BEEN OBTAINED.  USE DIAG 16',\r\n     3        ' TO DETERMINE ERROR BOUNDS',/)\r\n  610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5,\r\n     1        ', AII,DB,D = ',1P,3D16.8)\r\n  620 FORMAT (11X,'ORTH ITER (IX)',I5,',  MAX PROJ (SDMAX)',1P,D16.8,\r\n     1        ',  NORMAL FACT (DSQ)',1P,D16.8)\r\nC\r\n  630 NAME(3) = NAME(5)\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ferxts.f",
    "content": "      SUBROUTINE FERXTS (V1,V2,V3,V4,V5,ZB,IFN)\r\nC\r\nC     FERXTS is a modification of the old subroutine FNXTV.  The\r\nC     modification allows for reading the orthogonal vectors and the\r\nC     SMA and LT matrices from memory instead of from files.  The\r\nC     SMA and LT matrices may be partially in memory and part read\r\nC     from the file.\r\nC     FERXTS OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FERFBD\r\nC     PERFORMS THE OPERATIONAL INVERSE.   (SINGLE PREC VERSION)\r\nC           T   -\r\nC      B = V  * A  * V\r\nC\r\nC     V1  = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL\r\nC     V2  = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO-\r\nC           RANDOM START VECTOR\r\nC     V3,V4,V5 = WORKING SPACES FOR THREE VECTORS\r\nC     IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO.\r\nC     SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S\r\nC           MANUAL PP. 4.48-19G THRU I\r\nC\r\nC     NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE. SEVERAL\r\nC     KEY AREAS ARE REINFORCED BY DOUBLE PRECISION CALCULATIONS\r\nC\r\nC     IN THIS SINGLE PRECISION VERSION, WE AVOID MATHEMATIC OPERATION\r\nC     IN A DO LOOP, INVOLVING MIXED MODE COMPUTATION AND THE RESULT\r\nC     STORED IN S.P. WORD. SOME MACHINES, SUCH AS VAX, ARE VERY SLOW IN\r\nC     THIS SITUATION. MIXED MODE COMPUTATION AND RESULT IN D.P. IS OK.\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,SR5FLE   ,NAME(5)  ,\r\n     1                   VDOT      ,EOFNRW\r\n      DOUBLE PRECISION   LMBDA     ,LAMBDA\r\n      DOUBLE PRECISION   DBI       ,SDMAX    ,D        ,DB       ,\r\n     1                   DSQ       ,SD       ,AII      ,DTMP     ,\r\n     2                   DEPX      ,DEPX2    ,OPDEPX   ,OMDEPX   ,\r\n     3                   ZERO\r\n      DIMENSION          V1(1)     ,V2(1)    ,V3(1)    ,V4(1)    ,\r\n     1                   V5(1)     ,ZB(1)    ,B(2)\r\n      CHARACTER          UFM*23    ,UWM*25\r\n      COMMON   /FEERIM/  NIDSMA    ,NIDLT    ,NIDORV   ,NLTLI\r\n     1,                  NSMALI    ,IBFSMA   ,IBFLT\r\n     2,                  IBFORV    ,SMAPOS(7),LTPOS(7)\r\n      COMMON   /ZZZZZZ/  ZD(2)\r\n      COMMON   /XMSSG /  UFM       ,UWM\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,ERRC     ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (KSYSTM(1),SYSBUF)  ,(KSYSTM(2),IO)\r\n      DATA      NAME  /  4HFERX    ,4HTS     ,2*4HBEGN ,4HEND    /\r\n      DATA      VDOT  ,  ZERO /     4HV.     ,0.0D+0             /\r\nC\r\nC     SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS\r\nC\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL  VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA MATRIX\r\nC\r\n      IF (MCBLT(7) .LT. 0) NAME(2) = VDOT\r\n      NAME(3) = NAME(4)\r\n      CALL CONMSG (NAME,3,0)\r\n      ITER  = ITER + 1\r\n      IPRC  = 1\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      IFG   = MCBRM(1)\r\n      IFV   = MCBVEC(1)\r\n      DEPX  = EPX\r\n      DEPX2 = DEPX**2\r\n      OPDEPX= 1.0D0 + DEPX\r\n      OMDEPX= 1.0D0 - DEPX\r\n      D     = ZERO\r\n      NORD1 = NORD - 1\r\nC\r\nC     NORMALIZE START VECTOR\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 20\r\n      CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 10 I = 1,NORD\r\n   10 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 40\r\n   20 DO 30 I = 1,NORD\r\n   30 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\n   40 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 50 I = 1,NORD\r\n   50 V2(I) = V2(I)*TMP\r\n      IF (NORTHO .EQ. 0) GO TO 200\r\nC\r\nC     ORTHOGONALIZE WITH PREVIOUS VECTORS\r\nC\r\n      DO 60 I = 1,NORD\r\n   60 V3(I) = V2(I)\r\nC\r\nC     READ ORTHOGONAL VECTORS INTO MEMORY IF SPACE EXISTS\r\nC\r\n      IF ( NIDORV .EQ. 0 ) GO TO 70\r\n      IF ( NORTHO .EQ. 0 ) GO TO 70\r\n      CALL GOPEN ( IFV, ZB(1), RDREW )\r\n      II = 1\r\n      NN = NORD\r\n      NIDX = NIDORV   \r\n      DO 65 IC = 1, NORTHO\r\n      ILOC = ( IC-1 ) * NORD + NIDX\r\n      CALL UNPACK ( *65, IFV, ZD( ILOC ) )\r\n   65 CONTINUE\r\n      CALL CLOSE ( IFV, EOFNRW )\r\nC\r\nC     BEGINNING OF ITERATION LOOP\r\nC   \r\n   70 DO 170 IX = 1,14\r\n      NONUL = NONUL + 1\r\n      IF (IOPTF .EQ. 0) \r\n     &  CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      IF ( NIDORV .NE. 0 ) GO TO 1000\r\nC     \r\nC  READ ORTHOGONAL VECTORS FROM FILE\r\nC\r\n      CALL GOPEN (IFV,ZB(1),RDREW)        \r\n      SDMAX = ZERO\r\n      DO 110 IY = 1,NORTHO\r\n      II = 1\r\n      NN = NORD\r\n      SD = ZERO\r\n      CALL UNPACK (*90,IFV,V5(1))\r\n      DO 80 I = 1,NORD\r\n      SD = SD + V3(I)*V5(I)\r\n   80 CONTINUE\r\n   90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD)\r\nCQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD)\r\n      DO 100 I = 1,NORD\r\n  100 V2(I) = V2(I) - SD*V5(I)\r\n  110 CONTINUE\r\n      CALL CLOSE (IFV,EOFNRW)\r\n      GO TO 2000\r\nC\r\nC ORTHOGONAL VECTORS ARE IN MEMORY\r\nC \r\n 1000 CONTINUE\r\n      SDMAX = ZERO\r\n      NIDX = NIDORV   \r\n      DO 1110 IY = 1, NORTHO\r\n      SD    = ZERO\r\n      ILOC  = (IY-1)*NORD + NIDX - 1\r\n      DO 1080 I = 1, NORD\r\n      SD    = SD + V3(I)*ZD(ILOC+I)\r\n 1080 CONTINUE\r\n      IF ( DABS( SD ) .GT. SDMAX ) SDMAX = DABS( SD )\r\n      DO 1100 I = 1, NORD\r\n      V2(I) = V2(I) - SD*ZD(ILOC+I )\r\n 1100 CONTINUE\r\n 1110 CONTINUE\r\n 2000 CONTINUE\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 130\r\n      CALL FERLTS (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 120 I = 1,NORD1\r\n  120 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 150\r\n  130 DO 140 I = 1,NORD1\r\n  140 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\nC\r\nC 150 IF (DSQ .LT. DEPX2) GO TO 500\r\nC\r\nC     COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE,   1/92\r\nC\r\nC     DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND\r\nC     IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR\r\nC     THE 60/64 BIT MACHINES, USING S.P. COMPUTATION)\r\nC     (EPX WAS CHAGNED TO 10.**-10, ALL MACHINE, S.P. AND D.P., 1/92)\r\nC\r\nC     NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS.\r\nC     THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH\r\nC     ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF\r\nC     DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE.\r\nC     (PREVIOUSLY, DO LOOPS 120 AND 140 GO FROM 1 THRU NORD)\r\nC\r\nC     MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME\r\nC     FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ\r\nC     DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS.\r\nC     THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0)\r\nC     GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE\r\nC\r\nC     NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA.\r\nC\r\n  150 D = DBLE(V3(NORD))\r\n      IF (IOPTF .EQ. 1) D = DBLE(V2(NORD))\r\n      D = DBLE(V2(NORD))*D\r\n      DTMP = DSQ\r\n      DSQ  = DSQ + D\r\n      IF (DSQ .LT. DEPX2) GO TO 500\r\n      DTMP = DABS(D/DTMP)\r\n      IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500\r\n      D = ZERO\r\nC\r\n      DSQ = DSQRT(DSQ)\r\n      IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ\r\n      DSQ = 1.0D+0/DSQ\r\n      TMP = SNGL(DSQ)\r\n      DO 160 I = 1,NORD\r\n      V2(I) = V2(I)*TMP\r\n  160 V3(I) = V2(I)\r\n      IF (SDMAX .LT. DEPX) GO TO 200\r\n  170 CONTINUE\r\n      GO TO 500\r\nC\r\n  200 IF (IFN .NE. 0) GO TO 300\r\nC\r\nC     SWEEP START VECTOR FOR ZERO ROOTS\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 220\r\n      CALL FERSWS (V2(1),V3(1),V5(1))        \r\n      CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 210 I = 1,NORD\r\n  210 DSQ = DSQ + DBLE(V3(I)*V4(I))\r\n      GO TO 240\r\n  220 CALL FERFBS(V2(1),V4(1),V3(1),V5(1))\r\n      DO 230 I = 1,NORD\r\n  230 DSQ = DSQ + DBLE(V3(I)*V3(I))\r\n  240 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 250 I = 1,NORD\r\n  250 V2(I) = V3(I)*TMP\r\n      GO TO 320\r\nC\r\nC     CALCULATE OFF DIAGONAL TERM OF B\r\nC\r\n  300 D = ZERO\r\n      DO 310 I = 1,NORD\r\n  310 D = D + DBLE(V2(I)*V4(I))\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   1/92\r\nC     WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WILL BE ALWAYS TRUE.\r\nC\r\n      IF (D .LT. DEPX*DABS(AII)) GO TO 500\r\n  320 CALL GOPEN (IFG,ZB(1),WRT)\r\n      IIP = 1\r\n      NNP = NORD\r\n      IF (IOPTF .EQ. 1) GO TO 330\r\n      CALL FERSWS (V2(1),V3(1),V5(1))        \r\n      CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      CALL PACK (V2(1),IFG,MCBRM(1))\r\n      GO TO 350\r\n  330 CALL FERFBS (V2(1),V4(1),V3(1),V5(1))\r\n      CALL PACK (V4(1),IFG,MCBRM(1))\r\n      DO 340 I = 1,NORD\r\n  340 V4(I) = V3(I)\r\n  350 CALL CLOSE (IFG,NOREW)\r\nC\r\nC     CALCULATE DIAGONAL TERM OF B\r\nC\r\n      AII = ZERO\r\n      DO 400 I = 1,NORD\r\n  400 AII = AII + DBLE(V2(I)*V4(I))\r\n      TMP = SNGL(AII)\r\n      IF (D .EQ. ZERO) GO TO 420\r\n      XD  = SNGL(D)\r\n      DO 410 I = 1,NORD\r\n  410 V3(I) = V3(I) - TMP*V2(I) - XD*V1(I)\r\n      GO TO 440\r\n  420 DO 430 I = 1,NORD\r\n  430 V3(I) = V3(I) - TMP*V2(I)\r\n  440 DB = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 460\r\n      CALL FERLTS (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 450 I = 1,NORD\r\n  450 DB = DB + DBLE(V3(I)*V4(I))\r\n      GO TO 480\r\n  460 DO 470 I = 1,NORD\r\n  470 DB = DB + DBLE(V3(I)*V3(I))\r\n  480 DB = DSQRT(DB)\r\n      ERRC = SNGL(DB)\r\n      B(1) = SNGL(AII)\r\n      B(2) = SNGL(D)\r\n      CALL WRITE (SR5FLE,B(1),2,1)\r\n      IF ( NIDORV .NE. 0 ) GO TO 3000       \r\n      CALL GOPEN (IFV,ZB(1),WRT)\r\n      IIP  = 1\r\n      NNP  = NORD\r\n      CALL PACK (V2(1),IFV,MCBVEC(1))\r\n      CALL CLOSE (IFV,NOREW)\r\n      GO TO 4000\r\n3000  CONTINUE\r\n      NIDX = NIDORV   \r\n      ILOC = NORTHO * NORD + NIDX\r\n      DO 3100 I = IIP, NNP\r\n      ZD( ILOC+I-1 ) = V2( I )\r\n3100  CONTINUE\r\n4000  CONTINUE\r\n      NORTHO = NORTHO + 1\r\n      IFN  = NORTHO - NZERO\r\n      IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D\r\n      IF ( IFN .LT. MORD ) GO TO 6000\r\nC\r\nC NEED TO SAVE ORTHOGONAL VECTORS BACK TO FILE\r\nC\r\n      CALL GOPEN ( IFV, ZB(1), WRT ) \r\n      IIP = 1\r\n      NNP = NORD\r\n      NIDX = NIDORV   \r\n      DO 5000 I = 1, NORTHO\r\n      ILOC = (I-1)*NORD + NIDX\r\n      CALL PACK ( ZD( ILOC ), IFV, MCBVEC(1) )\r\n5000  CONTINUE\r\n      CALL CLOSE ( IFV, NOREW )\r\n6000  CONTINUE\r\n      IF (IFN .GE. MORD) GO TO 630\r\nC\r\nC     IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR\r\nC\r\n      IF (DB .LT. DEPX*DABS(AII)) GO TO 630\r\nC\r\nC     A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1,\r\nC     NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS.\r\nC\r\n      DBI = 1.0D+0/DB\r\n      TMP = SNGL(DBI)\r\n      DO 490 I = 1,NORD\r\n      V1(I) = V2(I)\r\n      V3(I) = V3(I)*TMP\r\n  490 V2(I) = V3(I)\r\n      GO TO 70\r\nC\r\n  500 MORD = IFN\r\n      WRITE (IO,600) UWM,MORD\r\n      GO TO 630\r\nC\r\n  600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X,\r\n     1        'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X,\r\n     2        'ALL EXISTING MODES MAY HAVE BEEN OBTAINED.  USE DIAG 16',\r\n     3        ' TO DETERMINE ERROR BOUNDS',/)\r\n  610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5,\r\n     1        ', AII,DB,D = ',1P,3D16.8)\r\n  620 FORMAT (11X,'ORTH ITER (IX)',I5,',  MAX PROJ (SDMAX)',1P,D16.8,\r\n     1        ',  NORMAL FACT (DSQ)',1P,D16.8)\r\nC\r\n  630 NAME(3) = NAME(5)\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ff100.f",
    "content": "      FUNCTION FF100(I,A,B,M,N,X)\r\n      DIMENSION  X(1)\r\n      F100 = 0.0\r\n      CAPX = A + B * X(I)\r\n      XX = X(I)\r\n      N1 = M + N - 2\r\n      N2 = M - 1\r\n      N3 = N1 + 1\r\n      AN1 = N1\r\n      AN2 = N2\r\n      NFAC = N1\r\n      ASSIGN 5 TO IRET\r\n      GO TO 1000\r\n    5 AMN2F = IFAC\r\n      AN1P1 = AN1 + 1.0\r\n      IS = 0\r\n      S = 0.0\r\n      SF = 1.0\r\n      AMN2SF = AMN2F\r\n      GO TO 50\r\n   10 IS = IS + 1\r\n      S = IS\r\n      SF = SF * S\r\n      AMN2SF = AMN2SF / (AN1P1 - S)\r\n   50 CONTINUE\r\n      N4 = N2 - IS\r\n      IF (N4 .EQ. 0) GO TO 100\r\n      F100 = F100 + AMN2F * (CAPX ** N4) *((-B)** IS) / (AMN2SF * SF\r\n     1            * (AN2 - S) * (XX ** N4))\r\n      GO TO 200\r\n  100 CONTINUE\r\n      NFAC = N2\r\n      ASSIGN 110 TO IRET\r\n      GO TO 1000\r\n  110 AM1F = IFAC\r\n      NFAC = N-1\r\n      ASSIGN 120 TO IRET\r\n      GO TO 1000\r\n  120 AN1F = IFAC\r\n      F100 = F100 + AMN2F *((-B)** N2) * ALOG(ABS(CAPX/XX))\r\n     1            / (AM1F * AN1F)\r\n  200 CONTINUE\r\n      IF (IS .LT. N1) GO TO 10\r\n      F100 =  -F100 / (A ** N3)\r\n       FF100  = F100\r\n      RETURN\r\n 1000 IFAC = 1\r\n      IF(NFAC.LT.2) GO TO 1020\r\n      DO 1010 LFAC=2,NFAC\r\n      IFAC=IFAC*LFAC\r\n 1010 CONTINUE\r\n 1020 GO TO IRET,(5,110,120)\r\n      END\r\n"
  },
  {
    "path": "mis/ffhelp.f",
    "content": "      SUBROUTINE FFHELP (*,*,J)\r\n      CHARACTER*1     QMARK\r\n      CHARACTER*4     STOP,     YES,      HELP,     XX\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ DUMMY(3), IN\r\n      COMMON /XREADX/ NOUT\r\n      COMMON /XECHOX/ SKIP(2),  IECHOS\r\n      COMMON /QMARKQ/ QMARK\r\n      DATA    STOP,   YES,      HELP  /   'STOP',   'Y   ',   'HELP' /\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY FF\r\nC\r\n      GO TO (10,50,100,120,140), J\r\n 10   WRITE (NOUT,20)\r\n 20   FORMAT (///1X,\r\n     1  'GENERATED OUTPUT CARDS ARE SAVED ONLY IF FILE NAME IS GIVEN.',\r\n     2  //,' YOU MAY ENTER NASTRAN EXECUTIVE CONTROL AND CASE CONTROL',\r\n     2  ' CARDS FIRST',/,' (NO INPUT ECHO ON SCREEN)', //,\r\n     3  ' ADDITIONAL INPUT INFORMATION WILL BE GIVEN WHEN YOU ENTER ',\r\n     3  12H'BEGIN BULK', //,\r\n     4  ' YOU MAY QUIT FREE-FIELD PROGRAM AT ANY TIME BY ENTERING ',\r\n     4  6H'STOP', /,' NORMALLY, JOB TERMINATES BY ',9H'ENDDATA', //,\r\n     5  ' YOU MAY USE ',10H'READFILE',' COMMAND TO READ ANY FILE WHICH',\r\n     5  14H WAS 'STOPPED', /,\r\n     5  ' BEFORE, AND CONTINUE FROM WHERE THE PREVIOUS JOB ENDED', //,\r\n     6  ' FREE-FIELD INPUT IS AVAILABLE ONLY IN BULK DATA SECTION', /,\r\n     6  ' AND IS ACTIVATED BY A COMMA OR EQUAL SIGN IN COLS. 1 THRU 10',\r\n     7  //,' BOTH UPPER-CASE AND LOWER-CASE LETTERS ARE ACCEPTABLE',//,\r\n     8  ' REFERENCE - G.CHAN: ',1H','COSMIC/NASTRAN FREE-FIELD INPUT',\r\n     8  2H',, /13X,'12TH NASTRAN USERS',1H',' COLLOQUIUM, MAY 1984')\r\n      WRITE (NOUT,30) QMARK\r\n 30   FORMAT (/,' MORE',A1,' (Y,N) - ')\r\n      READ (IN,40,END=80) XX\r\n 40   FORMAT (A4)\r\n      CALL UPCASE (XX,4)\r\n      IF (XX .NE. YES) GO TO 80\r\nC\r\n 50   WRITE (NOUT,60)\r\n 60   FORMAT (///,' THE FOLLOWING SYMBOLS ARE USED FOR FREE-FIELD INPUT'\r\n     1, //10X,'SYMBOL', 12X,'FUNCTION',/,9X,2('----'),5X,10('----'),\r\n     2   /10X,', OR BLANK  FIELD SEPERATORS',\r\n     3   /10X,'  =         DUPLICATES ONE CORRESPONDING FIELD',\r\n     4   /10X,'  ==        DUPLICATES THE REMAINING FIELDS',\r\n     5   /10X,'  *(N)      INCREMENT BY N',\r\n     6   /10X,'  %(E)      ENDING VALUE BY E',\r\n     7   /10X,'  /         THIS INPUT FIELD IS SAME AS PREVIOUS FIELD',\r\n     8   /10X,'  J)        FIELD INDEX, J-TH FIELD (MUST FOLLOWED BY A V\r\n     9ALUE)',\r\n     O   /10X,')+ OR 10)   INDEX FOR CONTINUATION FIELD',\r\n     A   /10X,'  )         (IN COL. 1 ONLY) DUPLICATES THE CONTINUATION\r\n     BID',/22X,'OF PREVIOUS CARD INTO FIELD 1 OF CURRENT CARD',\r\n     C   /10X,'  ,         COL.1 ONLY, AUTO-CONTINUATION ID GENERATION',\r\n     D   /10X,'  =(N)      1ST FIELD ONLY, DUPLICATES N CARDS WITH PROPE\r\n     ER',/22X,' INCREMENTS',\r\n     F   /12X,'+A-I',6X,'CONTINUATION ID CAN BE DUPLICATED AUTOMATICALLY\r\n     G', /22X,'ONLY IF IT IS IN PLUS-ALPHA-MINUS-INTEGER FORM',\r\n     H  //1X,'EXAMPLES:',  /1X,'GRID, 101,,  0.  0. ,  7. 8)2  )+ABC-2',\r\n     I   /1X,'=(11),*(1)  ,,  *(1.), /  %(23.45),==')\r\n      IF (J.EQ.1 .OR. IECHOS.NE.-2) GO TO 170\r\n      WRITE (NOUT,30) QMARK\r\n      READ (IN,40,END=80) XX\r\n      CALL UPCASE (XX,4)\r\n      IF (XX .EQ. YES) GO TO 140\r\n 80   IF (XX .EQ. STOP) RETURN 2\r\n      IF (MACH.EQ.4 .AND. IN.EQ.5) REWIND IN\r\n      GO TO 190\r\nC\r\n 100  WRITE (NOUT,110)\r\n 110  FORMAT (//,24H ENTER 'N' FOR NO PUNCH,, /7X,\r\n     1       38H'Y' FOR PUNCH IN FREE-FIELD FORMAT, OR, /7X,\r\n     2       43H'X' FOR PUNCH IN NASTRAN FIXED-FIELD FORMAT,/)\r\n      GO TO 190\r\nC\r\n 120  WRITE (NOUT,130)\r\n 130  FORMAT (/,' MIFYLE - IS A RESERVED WORD.  TRY ANY OTHER NAME')\r\n      GO TO 190\r\nC\r\n 140  WRITE (NOUT,150)\r\n 150  FORMAT (//,' *** FREE-FIELD INPUT IS OPTIONAL.',//5X,'FOUR (4)',\r\n     1 ' CONTROL OPTIONS ARE AVAILABLE - CAN BE ENTERED AT ANY TIME',\r\n     2 /7X,'1.  PROMPT=ON, PROMPT=OFF, OR PROMPT=YES(DEFAULT)',\r\n     3 /7X,'2.  SCALE/10,  OR SCALE/8',\r\n     4 /7X,'3.  CANCEL=N,  (TO CANCEL N PREVIOUSLY GENERATED CARDS)',\r\n     5 /7X,'4.  LIST  =N,  (TO   LIST N PREVIOUSLY GENERATED CARDS)',\r\n     6//7X,'ENTER ''HELP'' IF YOU NEED ADDITIONAL INSTRUCTIONS',\r\n     7//7X,'INTEGER INPUT SHOULD BE LIMITED TO 8 DIGITS',\r\n     8 /7X,'UP TO 12 DIGITS ARE ALLOWED FOR FLOATING PT. NUMBER INPUT',\r\n     9 /7X,'HOWEVER, ONLY UP TO 8 DIGIT ACCURACY IS KEPT',\r\n     O /7X,'             INPUT           RESULT ',\r\n     1 /7X,'         ------------       --------',\r\n     2 /7X,'E.G.     123.456789         123.4567',\r\n     3 /7X,'         123.456789+6       .12345+9',\r\n     4 /7X,'         -123.4567D+5       -.1234+8',\r\n     5 /7X,'         123.45678E+4       1234567.',\r\n     6 /7X,'         0.00123456-3       .12345-5',\r\n     7 /7X,'         0.0123456789       .0123456',\r\n     8 /7X,'         .00000123456       .12345-5')\r\n      IF (IECHOS .NE. -2) WRITE (NOUT,160)\r\n 160  FORMAT (/7X,'(3 AND 4 ARE AVAILABLE ONLY IN THE FREE-FIELD STAND',\r\n     1     '-ALONE VERSION)')\r\n 170  WRITE (NOUT,180)\r\n 180  FORMAT (/4X,'UP TO 94 CHARATERS ALLOWABLE ON AN INPUT LINE. ',\r\n     1       ' C/R TO CONTINUE')\r\n      READ (IN,40,END=80) XX\r\n      CALL UPCASE (XX,4)\r\n      IF (XX .EQ. HELP) GO TO 50\r\n      IF (J .NE. 1) GO TO 80\r\n 190  RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/ffread.f",
    "content": "      SUBROUTINE FFREAD (*,CARD)\r\nC\r\nC     THIS ROUTINE READS INPUT CARDS IN FREE FIELD OR FIXED FIELD\r\nC     FORMATS.\r\nC\r\nC     IF READFILE COMMAND IS ENCOUNTERED, IT SWITCHE THE INPUT FILE TO\r\nC     THE ONE SPECIFIED BY READFILE UNTIL EOF IS REACHED. THEN IT\r\nC     SWITCHES BACK TO THE NORMAL CARD READER. NESTED READFILE IS\r\nC     ALLOWED.\r\nC\r\nC     IT ALSO PRINTS THE INPUT CARDS IF UNSORTED ECHO FLAG IS ONE\r\nC\r\nC     ALL INTEGERS, BCD, AND REAL NUMBERS ARE LEFT ADJUSTED BEFORE\r\nC     RETURNING TO THE CALLER, XSORT2\r\nC\r\nC     IN BULK DATA SECTION -\r\nC     ALL INTEGERS ARE LIMITED TO 8 DIGITS. REAL NUMBERS CAN BE UP TO 12\r\nC     DIGITS IF INPUT VIA FREE-FIELD, OR UP TO 8 DIGITS IF FIXED-FIELD.\r\nC     ALL REAL NUMBER MUST HAVE A DECIMAL POINT.  10E-6 OR 1+7 ARE\r\nC     NOT ACCEPTABLE\r\nC\r\nC     THREE WORDS ARE ATTACHED TO THE END OF AN INPUT CARD TO BE USED\r\nC     FOR ALPHA-NUMERIC SORTING\r\nC\r\n      LOGICAL         FP,       STAR,     PCT,      NOTYET,   TWODOT\r\n      INTEGER         FFFLAG,   INFLAG,   NONE,     SCREEN,   PROM,\r\n     1                UNIVC(11),XSORT,    WASFF\r\n      INTEGER         IB,       IC,       IE,       IS,       IL,\r\n     1                IR,       ID,       IP,       IM,       IG,\r\n     2                IA,       IH,       PT,       SP,       AII,\r\n     3                A1,       DOT,      AT,       A(94)\r\n      CHARACTER*1     CB,       CC,       CE,       CS,       CL,\r\n     1                CR,       CD,       CP,       CM,       CG,\r\n     2                CA,       CH,       CT,       C1,       C(80),\r\n     3                CX(94),   TMP,      QMARK,    DOTC\r\n      CHARACTER*4     PROMPT,   ON,       OFF,      YES,      TEMP4,\r\n     1                ECHO\r\n      CHARACTER*5     A5,       SEQGP,    SEQEP\r\n      CHARACTER*8     CARD(10), BLANK,    A8(10),   A81,      CANCEL,\r\n     1                SAVE,     RDFL,     SKFL,     DEND,     DBGN,\r\n     2                TEMP,     FROM,     SPILL,    LIST,     HELP,\r\n     3                STOP,     SCALE8,   SCALE1,   NOPRT,    SLASH,\r\n     4                A8X(12)\r\n      CHARACTER*48    A48\r\n      COMMON /XREADX/ SCREEN,   LOOP,     KOUNT,    PROM,     NOTYET,\r\n     1                STAR,     PCT,      JC(9),    L(9),     RC(9),\r\n     2                F(9)\r\n      COMMON /QMARKQ/ QMARK,    TMP(8),   SPILL,    SAVE(10)\r\n      COMMON /XECHOX/ FFFLAG,   IECHOU,   IECHOS,   IECHOP,   XSORT,\r\n     1                WASFF,    NCARD,    DUM(2),   NOECHO\r\n      COMMON /XXREAD/ INFLAG,   INSAVE,   LOOP4,    IBMCDC,   IERR\r\n      COMMON /MACHIN/ MCHN\r\n      COMMON /SYSTEM/ IBUF,     NOUT,     NOGO,     IN\r\n      EQUIVALENCE     (C(1),CX(1),A8(1),A8X(1),A5,A48,A81),  (KKF,FKK),\r\n     1                (TEMP4,TEMP,TMP(1)),(A1,A(1))\r\nC\r\n      DATA            NONE,     PROMPT,   ON,       OFF,      YES     /\r\n     1                4HNONE,   'PROM',   'ON, ',   'OFF,',   'YES,'  /\r\n      DATA            BLANK,    DEND,     DBGN,     FROM,     SLASH   /\r\n     1                '      ','$   END ','$   ...',' FROM-', '/    ' /\r\n      DATA            CT,       XXXX,     CANCEL,   LIST,     LOUT    /\r\n     1                '.',      4HXXXX,   'CANCEL', 'LIST',   3       /\r\n      DATA            RDFL,               SKFL,     DOTC,     ECHO    /\r\n     1                'READFILE',        'SKIPFILE','.',      'ECHO'  /\r\n      DATA            HELP,     IWO,      SCALE8,   SCALE1,   STOP    /\r\n     1                'HELP',   60,      'SCALE/8','SCALE/10','STOP'  /\r\n      DATA            A,        IB,       NOPRT,    SEQGP,    SEQEP   /\r\n     1                94*1H ,   0,       'NOPRINT,','SEQGP',  'SEQEP' /\r\n      DATA            CB , CC , CE , CS , CL , CR , CD , CP , CM , CG /\r\n     1                ' ', ',', '=', '*', '(', ')', '$', '+', '-', '%'/\r\n      DATA            L12, L94/ 10, 80 /, CA, CH, AT / '/', '!', 2H@  /\r\n      DATA            UNIVC   / 4H*ADD,   4H,E  ,   8*4H    ,  4H .   /\r\nC\r\nC     THIS ROUTINE IS A PREPROCESSOR FOR THE XREAD ROUTINE IN NASTRAN\r\nC     WRITTEN BY G. CHAN/SPERRY,  APRIL 1985\r\nC\r\nC     FFFLAG IN /XECHOX/ MUST BE SET TO 1234 FOR FREE-FIELD INPUT.\r\nC     IECHOS IS SET TO -2 IN STAND-ALONE VERSION.\r\nC     MUST RESERVE 43 WORDS IN SEMINT FOR /XREADX/ IN ALL MACHINES.\r\nC\r\nC     FREE FIELD INPUT IS TRIGGERED BY THE PRESENCE OF COMMA (,) OR\r\nC     EQUAL SIGN (=) IN COLS. 1 THRU 10, AND AFTER BEGIN BULK CARD WAS\r\nC     READ.\r\nC\r\nC     FFREAD IS DESIGNED TO BE USER FRIENDLY -\r\nC     UNDER NO CIRCUMSTANCES SHOULD THE USER BE KICKED OUT OF THE\r\nC     COMPUTER DUE TO HIS OR HER STUPID INPUT ERROR(S).\r\nC\r\nC     DURING FREE-FIELD INPUT SESSION, FOUR CONTROL CARDS ARE ALLOWED -\r\nC\r\nC        ECHO  = SORT, UNSORT, BOTH, NONE, PUNCH, LINK1\r\nC        PROMPT= ON, OFF, YES    (YES = ON + GENERATED CARD ECHO)\r\nC        CANCEL= N, TO CANCEL N PREVIOUSLY GENERATED LINES\r\nC        LIST  =-N, TO   LIST N PREVIOUSLY GENERATED LINES\r\nC        (CANCEL AND LIST ARE AVAILABLE ONLY IN STAND-ALONE VERSION AND\r\nC         A SAVE FILE HAS BEEN REQUESTED)\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS ON A COLD DECEMBER MORNING, 1983\r\nC     REFERENCE - CHAN, G.C.: 'COSMIC/NASTRAN FREE-FIELD INPUT',\r\nC                 12TH NASTRAN USERS' COLLOQUIUM, MAY 1984\r\nC\r\nC     THIS ROUTINE WILL HANDLE COMPUTER WORD OF ANY SIZE, 32,36,60,64\r\nC     BITS, UPPER CASE AND LOWER CASE ASCII AND EBCDIT CHARACTER SETS.\r\nC\r\nC     VAX AND UNIX ONLY -\r\nC     (UNIVAC TOO, ONLY IF OPEN STATEMENT IS USED FOR LOGICAL UNIT 5)\r\nC     DURING FREE-FIELD SESSION, 94 COLUMNS, INSTEAD OF REGULARLY 80,\r\nC     ARE ALLOWED FOR AN INPUT CARD COMING FROM CARD READER OR READFILE\r\nC     (A MAXINUM OF 94 COLUMNS IS ALLOWED IN PRINT FORMAT 310)\r\nC\r\nC     THIS ROUTINE CALLS THE FOLLOWING SUPPORTING SUBROUTINES FOR BCD\r\nC     (LEFT ADJUSTED), INTEGER, AND F.P. NUMBER CONVERSION -\r\nC\r\nC        INT 2 K8  - DECODES INTEGER TO A8 CHAR.\r\nC        FP  2 K8  - DECODES F.P. NUMBER TO A8 CHAR.\r\nC        NK1 2 IF  - ENCODES N(A1) CHAR. TO INTEGER OR F.P. NUMBER\r\nC        NK1 2 K8  - ENCODES N(A1) CHARS. TO A A8 CHAR. WORD\r\nC        K8  2 INT - DECODES A8 CHAR. TO INTEGER\r\nC        K8  2 FP  - DECODES A8 CHAR. TO F.P. NUMBER\r\nC        UPCASE    - REPLACES ANY LOWER-CASE LETTER BY ITS UPPER CASE\r\nC\r\nC     THIS ROUTINE WILL ALSO HANDLE 'READFILE' AND 'SKIPFILE' CARDS.\r\nC     FILE NAME IS LIMITED UP TO 48 CHARACTERS,  8/91\r\nC\r\nC     THIS ROUTINE TRIES NOT TO USE SYSTEM ENCODE/DECODE FUNCTIONS,\r\nC     SHIFT, AND ANY NON-STANDARD CHARACTER FUNCTIONS.\r\nC\r\nC\r\nC     INPUT FILE LOGIC:\r\nC\r\nC     IN UNIVAC, INPUT CARDS ARE READ FROM CARD READER INFLAG, UNIT 5.\r\nC     ALL OTHER INPUT FILES, NESTED OR NOT, ARE DYNAMICALLY INSERTED IN-\r\nC     TO INPUT STREAM (WITH THE E-O-F MARK STRIPPED OFF), AND READ INTO\r\nC     COMPUTER SYSTEM FROM UNIT 5 ALSO. IF AN E-O-F MARK ENCOUNTERED\r\nC     BEFORE ENDDATA CARD, IT IS FATAL. INFLAG=TWO=IN=5\r\nC\r\nC     IN ALL OTHER MACHINES, INPUT CARDS ARE READ FROM CARD READER\r\nC     INFLAG, UNIT 5. WHEN A READFILE CARD IS ENCOUNTERED, DATA ARE READ\r\nC     INTO COMPUTER SYSTEM FROM UNIT INFLAG, WHICH BEGINS AT 60;\r\nC          INFLAG = IWO = 60 FOR THE FIRST FILE\r\nC          INFLAG = 61 FOR THE SECOND FILE\r\nC          INFLAG = 62 FOR THE THIRD  FILE, ETC.\r\nC     (NOTE, SINCE NASTRAN USES READFILE INTERNALLY TO READ RIGID FORMAT\r\nC     FILE, NESTED READFILE IS NOT UNCOMMON)\r\nC     WHEN E-O-F IS ENCOUNTERED, CURRENT FILE IS CLOSED AND INFLAG IS\r\nC     DECREASE BY 1. INFLAG IS SET TO ZERO WHEN INFLAG .LE. IWO (END\r\nC     OF CURRENT NESTED FILE OPERATION). NEXT READFILE, NESTED OR NOT,\r\nC     IS ALLOWED.\r\nC\r\nC     ADD READFILE,NOPRINT OPTION.  2/2/1989\r\nC     LAST REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER\r\nC     OPERATIONS (VERY IMPORTANT FOR CDC MACHINE)\r\nC     8/93, LIBERAL READFILE NOPRINT FORMATS:\r\nC           READFILE,NOPRINT  FILENAME\r\nC           READFILE,NOPRINT, FILENAME\r\nC           READFILE NOPRINT  FILENAME\r\nC           READFILE(NOPRINT) FILENAME\r\nC           (EMBEDDED BLANK, COMMA, BRACKETS, AND EQUAL-SIGN ALLOWED)\r\nC           READFILE = FILENAME\r\nC\r\nC     INITIALIZE THE FOLLOWING ITEMS SO THAT COMPILER WILL NOT COMPLAIN\r\nC\r\n      DATA   C1,I,II,JJ,KK / ' ', 4*0 /\r\nC\r\n      MACH = MCHN\r\n      IF (MACH .EQ. 12) MACH = 4\r\n      IF (MACH .LT. 5) GO TO 40\r\n      L12 = 12\r\n      L94 = 94\r\n   40 IF (IB .NE. 0) GO TO 50\r\n      CALL K2B (CB,IB,1)\r\n      CALL K2B (CC,IC,1)\r\n      CALL K2B (CE,IE,1)\r\n      CALL K2B (CS,IS,1)\r\n      CALL K2B (CL,IL,1)\r\n      CALL K2B (CR,IR,1)\r\n      CALL K2B (CD,ID,1)\r\n      CALL K2B (CP,IP,1)\r\n      CALL K2B (CM,IM,1)\r\n      CALL K2B (CG,IG,1)\r\n      CALL K2B (CA,IA,1)\r\n      CALL K2B (CH,IH,1)\r\n      CALL K2B (CT,PT,1)\r\n      CALL K2B (DOTC,DOT,1)\r\n      CALL KHRFN1 (UNIVC(1),1,AT,1)\r\nC\r\n 50   IF (KOUNT  .NE. 0) GO TO 300\r\n 60   IF (INFLAG .EQ. 0) IF (FFFLAG-1234) 80,200,80\r\n      READ (INFLAG,65,END=150) (A8X(J),J=1,L12)\r\n 65   FORMAT (11A8,A6)\r\nC     NCARD = NCARD + 1\r\n      IF (IECHOS .EQ. -2) WRITE (LOUT,65) A8X\r\n      IF (A81 .EQ. RDFL) GO TO 4500\r\n      IF (A81.EQ.SKFL .AND. A8(2).EQ.BLANK) GO TO 130\r\n      IF (FFFLAG .EQ. 1234) GO TO 240\r\n      DO 70 I = 1,10\r\n      CARD(I) = A8(I)\r\n 70   SAVE(I) = A8(I)\r\n      GO TO 2800\r\nC\r\nC     10A8 INPUT\r\nC\r\n 80   READ (IN,90,END=150) CARD\r\n 90   FORMAT (10A8)\r\n      NCARD = NCARD + 1\r\n      IF (IECHOS .EQ. -2) WRITE (LOUT,90) CARD\r\nC\r\n      IF (CARD(1).EQ.SKFL .AND. CARD(2).EQ.BLANK) GO TO 130\r\n      IF (CARD(1) .NE. RDFL) GO TO 2000\r\n      DO 120 I = 1,10\r\n 120  A8(I) = CARD(I)\r\n      CALL K2B (A8,A,80)\r\n      GO TO 350\r\nC\r\nC     IT IS A SKIPFILE CARD - TO SKIP TO THE END OF INPUT FILE\r\nC\r\n 130  IF (INFLAG .EQ. 0) GO TO 5200\r\n 140  READ (INFLAG,90,END=5100) CARD\r\n      GO TO 140\r\nC\r\nC     CLOSE FILE, AND SET INFLAG BACK TO ZERO, OR PREVIOUS FILE OPENED\r\nC\r\n 150  IF (MACH .GE. 5) GO TO 154\r\n      GO TO (154,154,158,152), MACH\r\n 152  IF (INFLAG .EQ.   0) RETURN 1\r\n      IF (INFLAG .GE. IWO) REWIND INFLAG\r\n      IERR = IERR + 1\r\n      IF (IERR-15) 156,156,3070\r\n 154  IF (INFLAG .EQ.   0) RETURN 1\r\n 156  CLOSE (UNIT=INFLAG)\r\n 158  IF (INFLAG .EQ. 0) RETURN 1\r\n      INFLAG = INFLAG - 1\r\n      IF (INFLAG .LE. IWO) INFLAG = 0\r\n      CARD(1) = DEND\r\n      CARD(2) = RDFL\r\n      DO 160 J = 3,10\r\n 160  CARD(J) = BLANK\r\n      IF (IECHOS .EQ. -2) GO TO 60\r\n      CALL PAGE2 (-2)\r\n      NOECHO = NOECHO - 1\r\n      IF (NOECHO .GE. 0) WRITE (NOUT,165) NOECHO\r\n 165  FORMAT (12X,1H(,I4,' CARDS READ)')\r\n      WRITE  (NOUT,460) CARD\r\n      NOECHO = 0\r\n      GO TO 60\r\nC\r\n 170  LOOP  = 0\r\n      LOOP4 = LOOP - 4\r\n      KOUNT = 0\r\n      STAR  = .FALSE.\r\n      PCT   = .FALSE.\r\n      NOTYET= .FALSE.\r\n      DO 180 J = 1,9\r\n      L(J)  = 0\r\n 180  F(J)  = 0.0\r\n      IF (INFLAG-IWO) 200,60,60\r\nC\r\nC     FREE FIELD INPUT\r\nC\r\n 190  WRITE (NOUT,3020)\r\n      IERR = IERR + 1\r\n      IF (IERR .GT. 3) GO TO 3070\r\n      WRITE (SCREEN,3060) A8\r\n      IF (MACH.EQ.4 .AND. IN.EQ.5) REWIND IN\r\n 200  IF (PROM .NE. 0) WRITE (SCREEN,210)\r\n 210  FORMAT (7H ENTER )\r\n      READ   (IN,220,END=190) (CX(J),J=1,L94)\r\n 220  FORMAT (94A1)\r\n      NCARD = NCARD + 1\r\n      LASH  = 0\r\n 240  CONTINUE\r\n      IF (IECHOS .EQ. -2) WRITE (LOUT,220) CX\r\n      CALL K2B (A8,A,L94)\r\n      IF (A1 .EQ. ID) GO TO 280\r\nC\r\n      IF (A81 .EQ. RDFL) GO TO 350\r\n      IF (A81.EQ.SKFL .AND. A8(2).EQ.BLANK) GO TO 130\r\n      IF (FFFLAG  .EQ. 1234) GO TO 260\r\n      DO 250 I = 1,10\r\n 250  CARD(I) = A8(I)\r\n      GO TO 2800\r\n 260  WASFF = +1\r\n      DO 270 I = 1,10\r\n      IF (A(I).EQ.IC .OR. A(I).EQ.IE) GO TO 300\r\n 270  CONTINUE\r\n 280  WASFF = -1\r\n      IF (IECHOU.EQ.0 .OR. XSORT.EQ.0) GO TO 288\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,285) A\r\n 285  FORMAT (30X,94A1)\r\n 288  IF (A1 .EQ. ID) GO TO 60\r\n      J = 0\r\n      DO 290 I = 1,10\r\n      IF (A8(I) .NE. BLANK) J = 1\r\n 290  CARD(I) = A8(I)\r\n      LOOP  = -1\r\n      LOOP4 = LOOP - 4\r\n      IF (J.EQ.0 .AND. IECHOS.EQ.-2) GO TO 4700\r\n      GO TO 2000\r\nC\r\n 300  IF (IECHOS .EQ. -2) GO TO 340\r\n      IF (IECHOU.EQ.0 .OR. KOUNT.GE.1) GO TO 320\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,310) A\r\n 310  FORMAT (30X,4H-FF-,4X,94A1)\r\n 320  IF (LOOP .EQ. -1) GO TO 340\r\n      DO 330 J = 1,10\r\n 330  CARD(J) = SAVE(J)\r\n 340  IF (KOUNT .NE. 0) GO TO 900\r\n 350  KE = 0\r\n      K  = 0\r\n      DO 380 J = 1,L94\r\n      AII = A(J)\r\n      IF (AII .NE. IB) GO TO 360\r\n      IF (KE  .EQ.  0) GO TO 380\r\n      IF (A(KE ).EQ.IC .OR. A(KE ).EQ.IL) GO TO 380\r\n      IF (A(J+1).EQ.IC .OR. A(J+1).EQ.IB) GO TO 380\r\n      IF (A(J+1).EQ.IR .AND.     K.EQ. 1) GO TO 370\r\n      AII = IC\r\n 360  IF (AII .EQ. ID) GO TO 390\r\n      KE = KE + 1\r\n      A(KE) = AII\r\n      C(KE) = C(J)\r\n      IF (AII .EQ. IC) C(KE) = CC\r\n      IF (AII .EQ. IL) K = K + 1\r\n      IF (AII .EQ. IR) K = K - 1\r\n      IF (K-1) 380,380,5000\r\n 370  K = 0\r\n 380  CONTINUE\r\n      IF (K  .GT. 0) GO TO 5000\r\n      IF (KE .EQ. 0) GO TO 4700\r\n 390  IF (A(KE) .EQ. IC) GO TO 400\r\n      KE = KE + 1\r\n      A(KE) = IC\r\n      C(KE) = CC\r\n 400  IF (A81 .NE. RDFL) GO TO 520\r\nC\r\nC     IT IS A READFILE CARD -\r\nC     CHECK NOPRINT OPTION, SET NOECHO = 1, IF FOUND.\r\nC     LOOK FOR FILE NAME. SET INFLAG TO UNIT IWO (OR IWO+ IF NESTED\r\nC     READFFILE), AND OPEN USERS FILE (NOT MEMBER OF A FILE AS IN IBM)\r\nC\r\nC     READFILE FORMAT - '(', ')', ',', AND '=' ARE IGNORED.\r\nC\r\n      NOECHO = 0\r\n      NOEC = 0\r\n      I    = 9\r\n 405  A(1) = IB\r\n      C(1) = CB\r\n      C(8) = CC\r\n      J = 0\r\n 410  I = I + 1\r\n      IF (I .GT. L94) GO TO 480\r\n      AII = A(I)\r\n      IF (AII .EQ. IB) GO TO 415\r\n      IF (AII.EQ.IL .OR. AII.EQ.IR .OR. AII.EQ.IC .OR. AII.EQ.IE)\r\n     1    IF (NOEC) 410,410,415\r\n      J = J + 1\r\n      IF (J .GT. 48) GO TO 480\r\n      A(J) = AII\r\n      C(J) = C(I)\r\n      IF (J.NE.7 .OR. A81.NE.NOPRT) GO TO 410\r\n      NOECHO = 1\r\n      NOEC = 1\r\n      GO TO 405\r\n 415  IF (J .EQ.  0) GO TO 410\r\n      IF (J .GE. 60) GO TO 422\r\n      J1 = J + 1\r\n      DO 420 I = J1,60\r\n      C(I) = CB\r\n 420  A(I) = IB\r\n 422  IF (MACH .EQ. 3) GO TO 425\r\n      IF (INFLAG .LT. IWO) INFLAG = IWO - 1\r\n      INFLAG = INFLAG + 1\r\nCWKBI 8/94 ALPHA-VMS\r\n      IF ( MACH .EQ. 21 ) GO TO 423\r\n      IF (IBMCDC.EQ.0) OPEN(UNIT=INFLAG,FILE=A8(1),STATUS='OLD',ERR=470)\r\n      IF (IBMCDC.NE.0) OPEN(UNIT=INFLAG,FILE=A48  ,STATUS='OLD',ERR=470)\r\nCWKBNB 8/94 ALPHA-VMS\r\n      GO TO 424\r\n423   INDX = INDEX( A48, ' ' )\r\n      A48(INDX:INDX) = '.'\r\n      OPEN(UNIT=INFLAG,FILE=A48,STATUS='OLD',ERR=470)\r\n424   CONTINUE\r\nCWKBNE 8/94 ALPHA-VMS\r\nC\r\n      IF (MACH .EQ. 4) REWIND INFLAG\r\n      GO TO 450\r\nC\r\nC     UNIVAC - USE SYSTEM FACSF ROUTINE, SO THAT IT CAN READ A FILE OR\r\nC              AN ELEMENT OF A FILE. INPUT UNIT IWO IS NOT USED\r\nC              MAKE SURE FILE NAME CONTAINS A DOT\r\nC\r\n 425  K = 0\r\n      DO 430 I = 1,48\r\n      IF (A(I) .EQ. DOT) GO TO 440\r\n      IF (A(I) .NE.  IB) K = 1\r\n      IF (K.EQ.1 .AND. A(I).EQ.IB) GO TO 435\r\n 430  CONTINUE\r\n      I = 49\r\n 435  A(I) = DOT\r\n 440  INFLAG = IN\r\n      IWO    = IN\r\n      READ (A48,445) (UNIVC(I),I=3,14)\r\n 445  FORMAT (12A4)\r\n      I = FACSF(UNIVC)\r\n      IF (I .NE. 0) GO TO 470\r\nC\r\n 450  CARD(1) = DBGN\r\n      CARD(2) = RDFL\r\n      CARD(3) = FROM\r\n      DO 455 J = 4,10\r\n 455  CARD(J) = A8(J-3)\r\n      IF (IECHOS .EQ. -2) GO TO 465\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,460) CARD\r\n 460  FORMAT (5H0*** ,10A8)\r\n      GO TO 60\r\n 465  PROM = +1\r\n      GO TO 60\r\nC\r\n 470  WRITE  (NOUT,475) INFLAG,(A(I),I=1,J)\r\n 475  FORMAT (//,29H *** CAN NOT OPEN FILE (UNIT=,I3,4H) - ,94A1)\r\n      GO TO 500\r\n 480  J = J - 1\r\n      WRITE  (NOUT,485) (A(I),I=1,J)\r\n 485  FORMAT (//,23H *** FILE NAME ERROR - ,48A1)\r\n      IF (J .GE. 48) WRITE (NOUT,490)\r\n 490  FORMAT (5X,31HFILE NAME EXCEEDS 48 CHARACTERS)\r\n 500  NOGO = 1\r\n      IF (MACH.EQ.3 .OR. MACH.GE.5) WRITE (NOUT,505)\r\n 505  FORMAT (5X,38HSUGGESTION- CHECK USER ID OR QUALIFIER)\r\n      INFLAG = INFLAG - 1\r\n      IF (INFLAG .LE. IWO) INFLAG = 0\r\n      CARD(1) = BLANK\r\n      CARD(2) = BLANK\r\n      RETURN\r\nC\r\nC     HERE WE GO\r\nC\r\n 520  KK = 0\r\n      II = 0\r\n      JJ = 0\r\n      TWODOT = .FALSE.\r\n 530  IISAVE = JJ - 2\r\n 540  JJ = II + 1\r\n 550  II = II + 1\r\n      IF (II .GT. KE) GO TO 1500\r\n      AII = A(II)\r\n      IF (AII .EQ. IH) GO TO 540\r\n      IF (AII .EQ. IE) GO TO 700\r\n      IF (JJ  .GT.  1) GO TO 580\r\n      IF ((STAR .OR. PCT) .AND. LOOP.NE.-1) WRITE (NOUT,560)\r\n 560  FORMAT (' *** PREVIOUS CARD SETTING UP FOR DUPLICATION IS NOW ',\r\n     1        'ABANDONNED')\r\n      KOUNT = 0\r\n      LOOP  = 0\r\n      STAR  =.FALSE.\r\n      PCT   =.FALSE.\r\n      NOTYET=.FALSE.\r\n      DO 570 J = 1,9\r\n      L(J) = 0\r\n 570  F(J) = 0.0\r\n 580  IF (AII .EQ. IC) GO TO 600\r\n      IF (AII .EQ. IA) GO TO 650\r\n      IF (AII .EQ. IR) GO TO 1300\r\n      IF (AII.EQ.IS .OR. AII.EQ.IG) GO TO 1000\r\n      IF (AII .EQ. IL) GO TO 5400\r\n      GO TO 550\r\nC\r\nC ... COMMA (,):\r\nC\r\n 600  KK = KK + 1\r\n      IF (KK.EQ.1 .OR. KK.EQ.10) GO TO 620\r\n      JE = II - 1\r\n      IF (JE .LE. JJ) GO TO 620\r\n      I = 0\r\n      DO 610 J = JJ,JE\r\n      IF (A(J) .EQ. PT) I = I + 1\r\n 610  CONTINUE\r\n      IF (I .LE. 1) GO TO 620\r\n      IF (A5.NE.SEQGP .AND. A5.NE.SEQEP) GO TO 4400\r\n      TWODOT =.TRUE.\r\n      LOOP =-1\r\n 620  CALL NK12K8 (*3200,C(JJ),II-JJ,CARD(KK),1)\r\n      GO TO 530\r\nC\r\nC ... ECHO OR PROMPT:\r\nC\r\n 630  CALL NK12K8 (*3200,C(JJ),II-JJ,TEMP,1)\r\n      IF (TEMP.EQ.CANCEL .OR. TEMP.EQ.LIST) GO TO 1600\r\n      IF (TEMP4 .EQ.   ECHO) GO TO 4600\r\n      IF (TEMP4 .NE. PROMPT) GO TO 3000\r\n      CALL NK12K8 (*3200,C(II+1),4,TEMP,-1)\r\n      IF (TEMP4.NE.ON .AND. TEMP4.NE.OFF .AND. TEMP4.NE.YES) GO TO 3000\r\n      IF (TEMP4 .EQ. ON ) PROM =-1\r\n      IF (TEMP4 .EQ. OFF) PROM = 0\r\n      IF (TEMP4 .EQ. YES) PROM =+1\r\n      GO TO 60\r\nC\r\nC ... SLASH (/):\r\nC\r\n 650  IF (IISAVE .LE. 0) GO TO 660\r\n      A(II) = IH\r\n      C(II) = CH\r\n      II = II + 1\r\n      IF (A(II) .NE. IC) GO TO 655\r\n      A(II) = IH\r\n      C(II) = CH\r\n 655  II = IISAVE - 1\r\n      GO TO 540\r\n 660  IF (LASH.EQ.0 .AND. KK.EQ. 0) GO TO 680\r\n      J = KK + 1\r\n      WRITE  (NOUT,670) J\r\n 670  FORMAT (34H *** ILLEGAL USE OF SLASH IN FIELD,I3)\r\n      GO TO 540\r\nC\r\nC     A DELETE CARD (/) READ\r\nC\r\n 680  LASH = +1\r\n      GO TO 530\r\nC\r\nC ... EQUAL (=):\r\nC\r\n 700  IF (JJ .NE. II) GO TO 630\r\n      KK = KK + 1\r\n      II = II + 1\r\n      IF (II .GT. KE) GO TO 3600\r\n      AII = A(II)\r\n      IF (AII .EQ. IL) GO TO 750\r\n      IF (AII .EQ. IE) GO TO 730\r\n      IF (AII .EQ. IC) GO TO 530\r\n      GO TO 3600\r\nC\r\n 730  KK = 10\r\n      IF (TWODOT) GO TO 2400\r\n      IF (LOOP) 2000,2000,850\r\nC\r\nC ... DUPLICATE WITH INCREMENT, =(N):\r\nC\r\n 750  IF (KK .NE. 1) GO TO 3600\r\n      JJ = II + 1\r\n 800  II = II + 1\r\n      IF (II  .GT. KE) GO TO 3600\r\n      AII = A(II)\r\n      IF (AII .EQ. IR) GO TO 820\r\n      IF (AII.EQ.IC .OR. AII.EQ.IS .OR. AII.EQ.IE) GO TO 3000\r\n      GO TO 800\r\n 820  INT = 1\r\n      CALL NK12IF (*3800,C(JJ),II-JJ,LOOP,INT)\r\n      IF (LOOP .LE. 0) GO TO 4100\r\n      LOOP4 = LOOP - 4\r\n      II = II + 1\r\n      IF (II+1 .LT. KE) GO TO 530\r\n      IF (.NOT.STAR .AND. .NOT.PCT) GO TO 3300\r\n 850  KOUNT = 0\r\n      IF (.NOT.NOTYET) GO TO 900\r\n      NOTYET = .FALSE.\r\n      DO 880 KK = 2,9\r\n      IF (L(KK) .EQ. NONE) GO TO 860\r\n      IF (F(KK) .NE. XXXX) GO TO 870\r\n      F(KK) = 0.0\r\n      I = (L(KK)-JC(KK))/LOOP\r\n      IF (I*LOOP+JC(KK) .NE. L(KK)) GO TO 4200\r\n      L(KK) = I\r\n      GO TO 880\r\n 860  L(KK) = 0\r\n      F(KK) = (F(KK)-RC(KK))/FLOAT(LOOP)\r\n      GO TO 880\r\n 870  IF (L(KK) .NE.   0) JC(KK) = JC(KK) - L(KK)\r\n      IF (F(KK) .NE. 0.0) RC(KK) = RC(KK) - F(KK)\r\n 880  CONTINUE\r\n 900  KOUNT = KOUNT + 1\r\n      IF (KOUNT .GT. LOOP) GO TO 170\r\n      DO 950 KK = 2,9\r\n      IF (L(KK) .EQ. 0) GO TO 920\r\n      JC(KK) = JC(KK) + L(KK)\r\n      CALL INT2K8 (*3200,JC(KK),CARD(KK))\r\n      GO TO 950\r\n 920  IF (F(KK) .EQ. 0.0) GO TO 950\r\n      RC(KK) = RC(KK) + F(KK)\r\n      CALL FP2K8 (*3000,RC(KK),CARD(KK))\r\n 950  CONTINUE\r\n      IF (PROM.LT.0 .AND. KOUNT.EQ.LOOP) WRITE (SCREEN,970) LOOP,CARD\r\n 970  FORMAT (/,I5,' ADDITIONAL CARDS WERE GENERATED.  LAST CARD WAS-',\r\n     1        /1X,10A8)\r\n      GO TO 2000\r\nC\r\nC ... STAR (*), OR PERCENTAGE (%):\r\nC\r\n 1000 SP = AII\r\n      II = II + 1\r\n      IF (A(II) .NE. IL) GO TO 4000\r\n      JJ = II + 1\r\n      FP =.FALSE.\r\n      IF (STAR .OR. PCT) GO TO 1030\r\n      DO 1020 K = 1,9\r\n      L(K) = 0\r\n 1020 F(K) = 0.0\r\n 1030 IF (SP .EQ. IS) STAR =.TRUE.\r\n      IF (SP .EQ. IG) PCT  =.TRUE.\r\n 1050 II = II + 1\r\n      AII= A(II)\r\n      IF (II.GT.KE .OR. AII.EQ.IC) GO TO 4000\r\n      IF (AII .EQ. PT) FP =.TRUE.\r\n      IF (II.GT.JJ .AND. (AII.EQ.IP .OR. AII.EQ.IM)) FP =.TRUE.\r\n      IF (AII .NE. IR) GO TO 1050\r\n      IF (II  .LE. JJ) GO TO 4000\r\n      KK = KK + 1\r\n      IF (FP) GO TO 1070\r\n      INT = 1\r\n      CALL NK12IF (*3800,C(JJ),II-JJ,L(KK),INT)\r\n      CALL K82INT (*3100,SAVE(KK),8,JC(KK),INT)\r\n 1060 IF (SP  .EQ. IG) GO TO 1120\r\n      IF (LOOP .GT. 0) GO TO 1100\r\n      JC(KK) = JC(KK) + L(KK)\r\n      CALL INT2K8 (*3200,JC(KK),CARD(KK))\r\n      GO TO 1100\r\n 1070 INT =-1\r\n      CALL NK12IF (*3900,C(JJ),II-JJ,KKF,INT)\r\n      F(KK) = FKK\r\n      CALL K82FP  (*3100,SAVE(KK),8,RC(KK),INT)\r\n 1080 IF (SP  .EQ. IG) GO TO 1150\r\n      IF (LOOP .GT. 0) GO TO 1100\r\n      RC(KK) = RC(KK) + F(KK)\r\n      CALL FP2K8 (*3000,RC(KK),CARD(KK))\r\n 1100 II = II + 1\r\n      GO TO 530\r\nC\r\n 1120 IF (LOOP .GT. 0) GO TO 1130\r\n      F(KK) = XXXX\r\n      GO TO 1160\r\n 1130 I = (L(KK)-JC(KK))/LOOP\r\n      IF (I*LOOP+JC(KK) .NE. L(KK)) GO TO 4200\r\n      L(KK) = I\r\n      GO TO 1100\r\n 1150 IF (LOOP .GT. 0) GO TO 1180\r\n      L(KK)  = NONE\r\n 1160 NOTYET =.TRUE.\r\n      GO TO 1100\r\n 1180 F(KK) = (F(KK)-RC(KK))/FLOAT(LOOP)\r\n      GO TO 1100\r\nC\r\nC ... RIGHT BRACKET ):\r\nC\r\n 1300 IF (KK   .EQ.  0) GO TO 1450\r\n      IF (II+1 .GE. KE) GO TO 3400\r\n      AII = A(II+1)\r\n      IF (AII.EQ.IS .OR. AII.EQ.IE) GO TO 3400\r\n      J  = 10\r\n      INT= 1\r\n      IF (AII .NE. IP) CALL NK12IF (*3900,C(JJ),II-JJ,J,INT)\r\n      IF (J.LE.0 .OR. J.GT.10) GO TO 3700\r\n      IF (J .LE. KK) GO TO 1400\r\n      KK = KK + 1\r\n      DO 1350 K = KK,J\r\n 1350 CARD(K) = BLANK\r\n      KK = J\r\n 1400 IF (A(II+1) .EQ. IC) II = II + 1\r\n      JJ = II + 1\r\n 1420 II = II + 1\r\n      IF (II    .GT. KE) GO TO 1430\r\n      IF (A(II) .NE. IC) GO TO 1420\r\n 1430 CALL NK12K8 (*3000,C(JJ),II-JJ,CARD(J),1)\r\n      IF (KK .LT. 10) IF (II-KE) 530,1500,1500\r\n      GO TO 730\r\n 1450 KK = 1\r\n      CARD(KK) = SAVE(10)\r\n      II = II + 1\r\n      IF (II.GT.KE .OR. A(II).NE.IC) GO TO 3000\r\n      GO TO 530\r\nC\r\nC ... END OF CARD READ\r\nC\r\n 1500 IF (KK-10) 1550,730,3500\r\n 1550 KK = KK + 1\r\n      CARD(KK) = BLANK\r\n      IF (KK .LT. 10) GO TO 1550\r\n      GO TO 730\r\nC\r\nC ... CANCEL = N, LIST = +N\r\nC\r\n 1600 IF (IECHOS .NE. -2) GO TO 5300\r\n      CARD(1) = TEMP\r\n      JJ = II + 1\r\n 1650 II = II + 1\r\n      IF (A(II) .NE. IC) GO TO 1650\r\n      INT = 1\r\n      CALL NK12IF (*3800,C(JJ),II-JJ,JC(1),INT)\r\n      IF (TEMP.EQ.CANCEL .AND. JC(1).LE.0) GO TO 3800\r\n      IF (TEMP.EQ.  LIST .AND. JC(1).LE.0) GO TO 3800\r\n      CARD(3) = TEMP\r\n      GO TO 2800\r\nC\r\nC     PREPARE TO RETURN\r\nC\r\n 2000 IF (NOTYET) GO TO 60\r\nC\r\nC ... UPDATE CONTINUATION FIELDS IF WE ARE IN A DUPLICATION LOOP\r\nC\r\n      IF (LOOP .EQ. -1) GO TO 2400\r\n      IF (KOUNT.EQ.0 .AND. .NOT.STAR) GO TO 2400\r\n      KK = 10\r\n      IF (SAVE(KK) .EQ. BLANK) GO TO 2300\r\n 2100 TEMP = SAVE(KK)\r\n      IF (TMP(1) .NE. CP) GO TO 2300\r\n      JJ = 0\r\n      DO 2150 I = 3,8\r\n      IF (TMP(I) .EQ. CM) JJ = I\r\n      IF (TMP(I) .EQ. CB) GO TO 2200\r\n 2150 CONTINUE\r\n      I = 9\r\n 2200 IF (JJ .EQ. 0) GO TO 2300\r\n      INT = 1\r\n      CALL NK12IF (*4800,TMP(JJ+1),I-JJ-1,J,INT)\r\n      IF (MACH .EQ. 3) GO TO 2230\r\n      J = J + 1\r\n      CALL INT2K8 (*3800,J,TMP(JJ+1))\r\n      GO TO 2270\r\nC\r\nC ... UNIVAC USES NEXT 5 CARDS INSTEAD OF THE 3 ABOVE\r\nC\r\n 2230 CALL INT2K8 (*3800,J,SPILL)\r\n      J = 9 - JJ\r\n      DO 2250 I = 1,J\r\n      TMP(JJ+I) = TMP(8+I)\r\n 2250 CONTINUE\r\n 2270 J = 9\r\n      IF (TMP(J) .NE. CB) GO TO 4900\r\n      CARD(KK) = TEMP\r\n 2300 IF (KK .EQ. 1) GO TO 2400\r\n      KK = 1\r\n      GO TO 2100\r\nC\r\n 2400 IF (FFFLAG .NE. 1234) GO TO 2700\r\n      IF (LASH .EQ. +1) CARD(1) = SLASH\r\n      IF (PROM .NE. +1) GO TO 2500\r\n      IF (KOUNT.LT.7  .OR. KOUNT.GT.LOOP4) WRITE (SCREEN,2450) CARD\r\n      IF (KOUNT.EQ.7 .AND. KOUNT.LE.LOOP4) WRITE (SCREEN,2460)\r\n 2450 FORMAT (1X,10A8)\r\n 2460 FORMAT (9X,1H.,2(/,9X,1H.))\r\n 2500 IF (LOOP .EQ. -1) GO TO 2700\r\n      DO 2600 KK = 1,10\r\n 2600 SAVE(KK) = CARD(KK)\r\n 2700 IF (CARD(1).EQ.HELP .AND. CARD(2).EQ.BLANK .AND. IECHOS.EQ.-2)\r\n     1    CALL FFHELP (*60,*2900,2)\r\n      IF (CARD(1).EQ.STOP .AND. CARD(2).EQ.BLANK .AND. IECHOS.NE.-2)\r\n     1    GO TO 2900\r\n      IF (CARD(1).NE.SCALE8 .AND. CARD(1).NE.SCALE1) GO TO 2800\r\n      IF (CARD(1) .EQ. SCALE8) WRITE (NOUT,2710) (I,I=1,10)\r\n      IF (CARD(1) .EQ. SCALE1) WRITE (NOUT,2720) (I,I=1,8 )\r\n 2710 FORMAT (/1X,10(I5,3X),/1X,5('--------++++++++'))\r\n 2720 FORMAT (/1X,     8I10,/1X,8('1234567890'))\r\n      GO TO 60\r\nC\r\n 2800 RETURN\r\n 2900 STOP\r\nC\r\nC     ERRORS\r\nC\r\n 3000 WRITE  (SCREEN,3020)\r\n 3020 FORMAT (31H *** CARD ERROR - INPUT IGNORED)\r\n 3050 IF (IECHOS .EQ. -2) GO TO 170\r\n      IF (IERR   .LE. 15) WRITE (SCREEN,3060) A8\r\n 3060 FORMAT (5X,1H',10A8,1H',/)\r\n      NOGO = 1\r\n      IERR = IERR + 1\r\n      IF (IERR .LT. 30) GO TO 170\r\n 3070 WRITE  (SCREEN,3080)\r\n 3080 FORMAT (48H0*** JOB TERMINATED DUE TO TOO MANY INPUT ERRORS)\r\n      STOP\r\n 3100 JE = II - 1\r\n      WRITE  (SCREEN,3150) KK,CARD(KK),(A(J),J=JJ,JE)\r\n 3150 FORMAT (5X,5HFIELD,I3,2H (,A8,') OF PREVIOUS CARD SHOULD NOT BE ',\r\n     1       'USED FOR', /5X,'INCREMENTATION (BY ',8A1,\r\n     2       ').  ZERO IS ASSUMED')\r\n      IF (INT .GT. 0) JC(KK) = 0\r\n      IF (INT .LT. 0) RC(KK) = 0.0\r\n      IF (INT) 1080,3000,1060\r\n 3200 JE = II - 1\r\n      WRITE  (SCREEN,3250) KK,(A(J),J=JJ,JE)\r\n 3250 FORMAT (5X,'FIELD',I3,' IS TOO LONG. ONLY 8 DIGITS ALLOWED - ',\r\n     1        16A1)\r\n      GO TO  3000\r\n 3300 WRITE  (SCREEN,3350)\r\n 3350 FORMAT (5X,44HPREVIOUS CARD WAS NOT SET UP FOR DUPLICATION)\r\n      GO TO  3000\r\n 3400 WRITE  (SCREEN,3450) A8\r\n 3450 FORMAT (35H *** INDEX ERROR.  NO VALUE AFTER ))\r\n      GO TO  3050\r\n 3500 WRITE  (SCREEN,3550)\r\n 3550 FORMAT (49H *** INPUT ERROR - TOO MANY FIELDS.  REPEAT INPUT)\r\n      GO TO  3050\r\n 3600 WRITE  (SCREEN,3650)\r\n 3650 FORMAT (37H *** INPUT ERROR AFTER EQUAL SIGN (=))\r\n      IF (IECHOS .EQ. -2) GO TO 60\r\n      WRITE  (SCREEN,3060) A8\r\n      NOGO = 1\r\n      GO TO  60\r\n 3700 WRITE  (SCREEN,3750)\r\n 3750 FORMAT (5X,'INDEX ERROR BEFORE RIGHT BRACKET )')\r\n      GO TO  3050\r\n 3800 JE = II - 1\r\n      WRITE  (SCREEN,3850) (A(J),J=JJ,JE)\r\n 3850 FORMAT (5X,18HINVALID INTEGER - ,16A1)\r\n      GO TO  3000\r\n 3900 JE = II - 1\r\n      WRITE  (SCREEN,3950) (A(J),J=JJ,JE)\r\n 3950 FORMAT (5X,22HINVALID F.P. NUMBER - ,16A1)\r\n      GO TO  3000\r\n 4000 WRITE  (SCREEN,4050)\r\n 4050 FORMAT (47H *** INPUT ERROR AFTER STAR (*), OR PERCENT (%))\r\n      GO TO  3050\r\n 4100 WRITE  (SCREEN,4150)\r\n 4150 FORMAT (41H *** ZERO LOOP COUNT.  NO CARDS GENERATED)\r\n      GO TO  3050\r\n 4200 WRITE  (SCREEN,4250) KK,L(KK),JC(KK),LOOP\r\n 4250 FORMAT (5X,5HFIELD,I3,2H (,I8,1H-,I8,21H) IS NOT DIVIDABLE BY,I4,\r\n     1       /5X,12HRESUME INPUT,/)\r\n 4300 IF (IECHOS .NE. -2) NOGO = 1\r\n      DO 4350 J = 1,10\r\n 4350 CARD(J) = SAVE(J)\r\n      GO TO  60\r\n 4400 WRITE  (SCREEN,4450) (A(J),J=JJ,JE)\r\n 4450 FORMAT (5X,27HMORE THAN ONE DEC. PT.,  - ,16A1)\r\n      GO TO  3000\r\n 4500 WRITE  (SCREEN,4550)\r\n 4550 FORMAT (39H *** WARNING- NESTED READFILE OPERATION)\r\n      GO TO  350\r\n 4600 WRITE  (SCREEN,4650)\r\n 4650 FORMAT (45H *** SO BE IT.  TO RUN NASTRAN LINK1 ONLY ***,/)\r\n      GO TO  60\r\n 4700 WRITE  (SCREEN,4750)\r\n 4750 FORMAT (23H *** BLANK LINE IGNORED)\r\n      GO TO  60\r\n 4800 WRITE  (SCREEN,4850) TEMP\r\n 4850 FORMAT (40H *** INTEGER ERROR IN CONTINUATION ID - ,A8)\r\n      IF (IECHOS .NE. -2) WRITE (SCREEN,3060) A8\r\n      GO TO  4300\r\n 4900 WRITE  (SCREEN,4950) (TMP(J),J=1,9)\r\n 4950 FORMAT (35H *** CONTINUATION FIELD TOO LONG - ,9A1, /5X,\r\n     1        25HLAST GENERATED CARD WAS -,/)\r\n      WRITE  (SCREEN,2450) SAVE\r\n      GO TO  4300\r\n 5000 WRITE  (SCREEN,5050)\r\n 5050 FORMAT (27H *** TOO MANY LEFT BRACKETS)\r\n      GO TO  3050\r\n 5100 WRITE  (NOUT,5150)\r\n 5150 FORMAT (/,20H *** EOF ENCOUNTERED )\r\n      IF (MACH.EQ.4 .AND. INFLAG.EQ.5) REWIND INFLAG\r\n      GO TO  60\r\n 5200 WRITE  (NOUT,5250)\r\n 5250 FORMAT (/,48H *** SKIPFILE IGNORED.  FILE HAS NOT BEEN OPENED)\r\n      GO TO  60\r\n 5300 WRITE  (NOUT,5350)\r\n 5350 FORMAT (/,26H *** FEATURE NOT AVAILABLE)\r\n      IF (IECHOS .NE. -2) WRITE (SCREEN,3060) A8\r\n      GO TO  60\r\n 5400 WRITE  (NOUT,5450)\r\n 5450 FORMAT (/,73H *** LEFT BRACKET ENCOUNTERED WITHOUT FIRST PRECEEDED\r\n     1 BY '=', '*', OR '%')\r\n      GO TO  3000\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/filcor.f",
    "content": "      INTEGER FUNCTION FILCOR(MT1X,MT2X,   PC,FRSROW,MIDROW,NX,A,NZA,Z)\r\nC\r\nC     FILL CORE WITH A TRIANGULAR MATRIX\r\nC\r\n      REAL A(1),Z(1)\r\n      INTEGER PC,FRSROW\r\nC\r\n      COMMON /UNPAKX/IT1,II,JJ,INCR1\r\nC\r\nC     MT1      FIRST PART OF THE MATRIX (UP TO ROW -MIDROW-).\r\nC     MT2      REST OF THE MATRIX\r\nC     PC       PRECISION OF THE MATRIX IN CORE\r\nC     NX       COLUMN SIZE OF THE MATRIX\r\nC     A        STORAGE FOR THE MATRIX\r\nC     Z        BUFFER FOR GINO\r\nC     FRSROW   FIRST ROW OF THE MATRIX TO BE READ\r\nC     ANSWER   LAST ROW READ\r\nC\r\n      MT1 = MT1X\r\n      MT2 = MT2X\r\n      N   = NX\r\n      MT = MT1\r\n      LASROW = FRSROW-1\r\n      IT1 = PC\r\n      INCR1 =1\r\n      JJ = N\r\n      IF( LASROW .GE. MIDROW .AND. MT2 .NE. 0) MT = MT2\r\n      NN = NZA/PC\r\n      NA = 0\r\nC\r\nC     READ IN EACH ROW\r\nC\r\n  105 IF (NA + N -LASROW .GT. NN) GO TO 115\r\n      LASROW  = LASROW +1\r\n      I = PC*NA +1\r\n      II = LASROW\r\n      CALL UNPACK(*106,MT,A(I))\r\n      GO TO 107\r\n  106 K  = I +LASROW*PC-1\r\n      DO 108 J = I,K\r\n  108 A(J) =0.0\r\n  107 IF (LASROW .EQ. N) GO TO 110\r\n      NA = NA + (N-LASROW +1)\r\n      IF( LASROW .NE. MIDROW .OR. MT2 .EQ. 0) GO TO 105\r\n      CALL CLOSE(MT,1)\r\n      MT = MT2\r\n      CALL GOPEN(MT,Z,0)\r\n      GO TO 105\r\nC\r\nC     END OF ROUTINE\r\nC\r\n  110 CALL CLOSE(MT,1)\r\n  115 FILCOR = LASROW\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/filswi.f",
    "content": "      SUBROUTINE FILSWI (NAME1,NAME2)\r\nC\r\nC     FILSWI SWITCHES THE UNITS ASSIGNED TO THE SPECIFIED DATA BLOCKS.\r\nC\r\n      EXTERNAL        COMPLF,ANDF,ORF\r\n      INTEGER         FIST,FIAT,COMPLF,SYS,ANDF,UNIT1,UNIT2,ORF,UNIT\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /XFIST / NFIST,LFIST,FIST(1)\r\n     1       /XFIAT / FIAT(4)\r\n     2       /SYSTEM/ SYS,NOUT,SKIP(21),ICFIAT\r\n      DATA    MASK1 / 32767/\r\nC                     '7FFF'X\r\nC\r\nC     SEARCH FIST FOR POINTERS TO FIAT.\r\nC\r\n      IF (NAME1 .EQ. NAME2) RETURN\r\n      K1 = 0\r\n      K2 = 0\r\n      N  = 2*LFIST - 1\r\n      DO 8 I = 1,N,2\r\n      IF (FIST(I) .EQ. NAME1) K1 = FIST(I+1)\r\n      IF (FIST(I) .EQ. NAME2) K2 = FIST(I+1)\r\n    8 CONTINUE\r\n      IF (K1.GT.0 .AND. K2.GT.0) GO TO 10\r\n      WRITE  (NOUT,9) SFM\r\n    9 FORMAT (A23,' 2178, GINO REFERENCE NAMES, IMPROPER FOR ',\r\n     1       'SUBROUTINE FILSWI.')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     SWITCH UNIT REFERENCE NUMBERS IN FIAT.\r\nC\r\n   10 MASK2 = COMPLF(MASK1)\r\n      UNIT1 = ANDF(FIAT(K1+1),MASK1)\r\n      UNIT2 = ANDF(FIAT(K2+1),MASK1)\r\n      N     = ICFIAT*FIAT(3) - 2\r\n      DO 12 I = 4,N,ICFIAT\r\n      UNIT  = ANDF(FIAT(I),MASK1)\r\n      IF (UNIT .EQ. UNIT1) FIAT(I) = ORF(ANDF(FIAT(I),MASK2),UNIT2)\r\n      IF (UNIT .EQ. UNIT2) FIAT(I) = ORF(ANDF(FIAT(I),MASK2),UNIT1)\r\n   12 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/find.f",
    "content": "      SUBROUTINE FIND (MODE,BUF1,BUF4,SETID,X)\r\nC\r\n      INTEGER         AWRD(2),BUF1,BUF4,BUFSIZ,ERR(3),FOR,FSCALE,FVP,\r\n     1                GPSET,ORIGIN,ORG,PARM,PRJECT,PRNT,REGION,SET,\r\n     2                SETD,SETID(1),TRA,WORD,X(1),HSET,ORIG,POIN,REGI,\r\n     3                SCAL,VANT,MSG1(20),MSG3(21),MSG6(20),NAME(2)\r\n      REAL            IMSEP,MAX,MAXDEF,MIN,MM17P5\r\n      DOUBLE PRECISION DWRD\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ BUFSIZ, NOUT\r\n      COMMON /BLANK / NGP,SKP11,NSETS,PRNT,SKP12,NGPSET,SKP13(4),\r\n     1                PARM,GPSET,SKP2(8),MERR,SETD\r\n      COMMON /XXPARM/ PLTBUF,PLTTER(5),NOPENS,PAPSIZ(2),PENPAP(27),\r\n     1                SCALE,OBJMOD,FSCALE,MAXDEF,DEFMAX,AXIS(6),VIEW(9),\r\n     2                FVP,SKPVP1(4),D0,SKPVP2(2),PRJECT,S0S,FOR,ORG,\r\n     3                NORG,ORIGIN(11),EDGE(11,4),XY(11,3)\r\n      COMMON /PLTDAT/ SKPPLT(2),REG(4),AXYMAX(14),SKPA(3),CNTCHR(2)\r\n      COMMON /RSTXXX/ CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3)\r\n      EQUIVALENCE     (WORD,AWRD(1),IWRD,FWRD,DWRD)\r\n      DATA    NAME  / 4H  FI, 4HND  /\r\n      DATA    MM17P5, RDIST,  SQRT3 / .688975, 29., 1.732051/,\r\n     1        ORIG  / 4HORIG/, REGI / 4HREGI/, SCAL / 4HSCAL/,\r\n     2        HSET  / 3HSET /, VANT / 4HVANT/, POIN / 4HPOIN/\r\n      DATA    NMSG1 , MSG1  / 20,\r\n     1                4H(34X, 4H,45H, 4HAN A, 4HTTEM, 4HPT H, 4HAS B,\r\n     2                4HEEN , 4HMADE, 4H TO , 4HDEFI, 4HNE M, 4HORE ,\r\n     3                4HTHAN, 4H ,I2, 4H,17H, 4H DIS, 4HTINC, 4HT OR,\r\n     4                4HIGIN, 4HS)     /\r\n      DATA    NMSG3 , MSG3  / 21,\r\n     1                4H(25X, 4H,27H, 4HAN U, 4HNREC, 4HOGNI, 4HZABL,\r\n     2                4HE RE, 4HQUES, 4HT (,, 4H2A4,, 4H37H), 4H HAS,\r\n     3                4H BEE, 4HN SP, 4HECIF, 4HIED , 4HON A, 4H -FI,\r\n     4                4HND- , 4HCARD, 4H)   /\r\n      DATA    NMSG6 , MSG6  / 20,\r\n     1                4H(33X, 4H,71H, 4HMAXI, 4HMUM , 4HDEFO, 4HRMAT,\r\n     2                4HION , 4HCARD, 4H NEE, 4HDED , 4H- 5 , 4HPER ,\r\n     3                4HCENT, 4H OF , 4HMAXI, 4HMUM , 4HDIME, 4HNSIO,\r\n     4                4HN US, 4HED.)  /\r\nC\r\n      CALL RDMODX (PARM,MODE,WORD)\r\n      SET    = SETD\r\n      REGION = 0\r\n      REG(1) = 0.\r\n      REG(2) = 0.\r\n      REG(3) = 1.\r\n      REG(4) = 1.\r\n      RATIO  = 0.\r\n      NOGO   = 0\r\n      IF (MODE .LT. 0) GO TO 480\r\nC\r\nC     INTERPRET THE REQUESTS ON THE -FIND- CARD.\r\nC\r\n   10 IF (MODE .LE. 0) CALL RDMODE (*10,*20,*480,MODE,WORD)\r\n   20 CALL RDWORD (MODE,WORD)\r\nC\r\nC     IS AN ORIGIN TO BE FOUND\r\nC\r\n   30 IF (WORD .NE. ORIG) GO TO 90\r\n      IF (MODE .NE.    0) GO TO 10\r\n      ASSIGN 40 TO TRA\r\n      GO TO 400\r\n   40 IF (ORG .EQ. 0) GO TO 70\r\n      DO 50 J = 1,ORG\r\n      IF (ORIGIN(J) .EQ. IWRD) GO TO 80\r\n   50 CONTINUE\r\n      IF (ORG  .LT. NORG) GO TO 70\r\n      IF (PRNT .LT.    0) GO TO 60\r\n      ERR(1) = 1\r\n      ERR(2) = NORG\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\n   60 ORG = NORG\r\n      I   = ORG + 1\r\n      EDGE(I,1) = 0.0\r\n      EDGE(I,2) = 0.0\r\n      EDGE(I,3) = 1.0\r\n      EDGE(I,4) = 1.0\r\n   70 ORG = ORG + 1\r\n      ORIGIN(ORG) = IWRD\r\n      J   = ORG\r\n   80 FOR = J\r\n      GO TO 10\r\nC\r\nC     IS A REGION SPECIFIED\r\nC\r\n   90 IF (WORD .NE. REGI) GO TO 200\r\n      IF (MODE .NE.    0) GO TO 10\r\n      REGION = 1\r\n      ASSIGN 110 TO TRA\r\n      J = 0\r\n  100 J = J + 1\r\n      GO TO 440\r\n  110 REG(J) = AMIN1(1.,ABS(FWRD))\r\n      IF (J-4) 100,10,10\r\nC\r\nC     IS THE SCALE TO BE FOUND\r\nC\r\n  200 IF (WORD .NE. SCAL) GO TO 220\r\n      FSCALE = 1\r\n      IF (MODE .NE. 0) GO TO 10\r\n      ASSIGN 210 TO TRA\r\n      GO TO 440\r\n  210 RATIO = FWRD\r\n      GO TO 10\r\nC\r\nC     IS THERE A SET ON THE FIND CARD\r\nC\r\n  220 IF (WORD .NE. HSET) GO TO 300\r\n      IF (MODE .NE.    0) GO TO 10\r\n      ASSIGN 230 TO TRA\r\n      GO TO 400\r\n  230 DO 240 J = 1,NSETS\r\n      IF (IWRD .EQ. SETID(J)) GO TO 260\r\n  240 CONTINUE\r\n      WRITE  (NOUT,250) UWM,IWRD\r\n  250 FORMAT (A25,' 700, SET',I9,' REQUESTED ON FIND CARD HAS NOT BEEN',\r\n     1       ' DEFINED. DEFAULT SET',I9,' USED')\r\n      NOGO = 1\r\n      GO TO 10\r\n  260 SET  = J\r\n      GO TO 10\r\nC\r\nC     IS THE VANTAGE POINT TO BE FOUND\r\nC\r\n  300 IF (WORD .NE. VANT) GO TO 320\r\n      IF (MODE .EQ. 0) CALL RDMODE (*10,*310,*480,MODE,WORD)\r\n  310 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .NE. POIN) GO TO 30\r\n      FVP = 1\r\n      GO TO 10\r\nC\r\nC     UNRECOGNIZABLE OPTION ON THE FIND CARD\r\nC\r\n  320 IF (PRNT .LT. 0) GO TO 10\r\n      ERR(1) = 2\r\n      ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n      CALL WRTPRT (MERR,ERR,MSG3,NMSG3)\r\n      GO TO 10\r\nC\r\nC     READ AN INTEGER FROM THE FIND CARD\r\nC\r\n  400 CALL RDMODE (*410,*10,*480,MODE,WORD)\r\n  410 IF (MODE .EQ. -1) GO TO 430\r\n      IF (MODE .EQ. -4) GO TO 420\r\n      IWRD = FWRD\r\n      GO TO 430\r\n  420 IWRD = DWRD\r\n  430 GO TO TRA, (40,230)\r\nC\r\nC     READ A REAL NUMBER FROM THE FIND CARD\r\nC\r\n  440 CALL RDMODE (*450,*10,*480,MODE,WORD)\r\n  450 IF (MODE .EQ. -4) GO TO 460\r\n      IF (MODE .NE. -1) GO TO 470\r\n      FWRD = IWRD\r\n      GO TO 470\r\n  460 FWRD = DWRD\r\n  470 GO TO TRA, (110,210)\r\nC\r\nC     END OF THE FIND CARD\r\nC\r\n  480 IF (ORG .GT. 0) GO TO 485\r\nC\r\nC     ALLOW NO ORIGIN REQUEST ON FIRST FIND CARD\r\nC     ORIGIN ID IS ZERO\r\nC\r\n      ORG = 1\r\n      ORIGIN(1) = 0\r\n      REGION = 1\r\n  485 IF (FOR    .EQ. 0) GO TO 500\r\n      IF (REGION .EQ. 0) GO TO 490\r\n      EDGE(FOR,1) = REG(1)\r\n      EDGE(FOR,2) = REG(2)\r\n      EDGE(FOR,3) = REG(3)\r\n      EDGE(FOR,4) = REG(4)\r\n      GO TO 500\r\n  490 REG(1) = EDGE(FOR,1)\r\n      REG(2) = EDGE(FOR,2)\r\n      REG(3) = EDGE(FOR,3)\r\n      REG(4) = EDGE(FOR,4)\r\n  500 REG(1) = REG(1)*AXYMAX(1)\r\n      IF (REG(2) .NE. 0.) GO TO 510\r\n      REG(2) = 4.*CNTCHR(2)\r\n      GO TO 520\r\n  510 REG(2) = REG(2)*AXYMAX(2)\r\n  520 REG(3) = REG(3)*AXYMAX(1) - CNTCHR(1)*8.\r\n      REG(4) = REG(4)*AXYMAX(2) - CNTCHR(2)\r\nC\r\nC     CALCULATE THE ROTATION MATRIX + ROTATE THE CO-ORDINATES OF THE SET\r\nC\r\n      CALL GOPEN (GPSET,X(BUF4),0)\r\n      I = 1\r\n      CALL FWDREC (*810,GPSET)\r\n      IF (SET .EQ. 1) GO TO 540\r\n      DO 530 I = 2,SET\r\n      CALL FWDREC (*810,GPSET)\r\n  530 CONTINUE\r\nC\r\nC     READ NGPSET\r\nC\r\n  540 CALL FREAD (GPSET,NGPSET,1,0)\r\nC\r\nC     CHECK CORE\r\nC\r\n      ICRQ = 3*NGPSET + NGP - BUF4 - BUFSIZ - 1\r\n      IF (ICRQ .GT. 0) GO TO 800\r\n      CALL FREAD (GPSET,X,NGP,0)\r\n      CALL CLOSE (GPSET,1)\r\n      CALL FNDSET (X,X(NGP+1),BUF1,0)\r\n      DO 550 I = 1,3\r\n      MIN(I) = +1.E+20\r\n  550 MAX(I) = -1.E+20\r\n      CALL PROCES (X(NGP+1))\r\n      IF (MAXDEF.NE.0.0 .OR. PRNT.GE.0) GO TO 560\r\nC\r\nC     DEFORMED PLOTS AND MAXDEF WAS NOT SPECIFIED\r\nC\r\n      ERR(1) = 0\r\n      CALL WRTPRT (MERR,ERR,MSG6,NMSG6)\r\n      MAXDEF = AMAX1(D(2),D(3))\r\n      IF (MAXDEF .LE. 0.0) MAXDEF = 1.0\r\n      MAXDEF = 0.05*MAXDEF\r\n  560 CONTINUE\r\n      GO TO (600,570,700), PRJECT\r\nC\r\nC     PERSPECTIVE PROJECTION (FIND VANTAGE POINT IF REQUESTED)\r\nC\r\n  570 DO 580 I = 1,3\r\n      MIN(I) = +1.E+20\r\n  580 MAX(I) = -1.E+20\r\n      CALL PERPEC (X(NGP+1),0)\r\n      FVP = 0\r\nC\r\nC     ORTHOGRAPHIC OR PERSPECTIVE PROJECTION\r\nC\r\nC     FIND SCALE FACTOR (IF REQUESTED).\r\nC\r\n  600 IF (FSCALE .EQ. 0) GO TO 630\r\n      A = D(2) + 2.*MAXDEF*SQRT3\r\n      IF (A .EQ. 0.0) GO TO 610\r\n      A = (REG(3)-REG(1))/A\r\n  610 B = D(3) + 2.*MAXDEF*SQRT3\r\n      IF (B .EQ. 0.0) GO TO 620\r\n      B = (REG(4)-REG(2))/B\r\n  620 SCALE = AMIN1(A,B)\r\n      IF (SCALE .LE. 0.) SCALE = AMAX1(A,B)\r\n      IF (SCALE .LE. 0.) SCALE = 1.\r\n      IF (RATIO .NE. 0.) SCALE = RATIO*SCALE\r\nC\r\nC     FIND ORIGIN -FOR- IF REQUESTED\r\nC\r\n  630 IF (FOR .EQ. 0) GO TO 830\r\n      XY(FOR,1) = AVER(2)*SCALE - (REG(1)+REG(3))/2.\r\n      XY(FOR,3) = AVER(3)*SCALE - (REG(2)+REG(4))/2.\r\n      GO TO 830\r\nC\r\nC     STEREO PROJECTION\r\nC\r\nC     FIND SCALE FACTORS (IF REQUESTED).\r\nC\r\n  700 IF (FSCALE .EQ. 0) GO TO 710\r\n      DIAM = SQRT(D(1)**2 + D(2)**2 + D(3)**2)\r\n      A = SQRT3*MAXDEF\r\n      IF (D(2)+A.GE.DIAM .OR. D(3)+A.GE.DIAM) DIAM = DIAM + MAXDEF\r\n      IF (DIAM .EQ. 0.0) DIAM = 1.E-5\r\n      OBJMOD = 10./DIAM\r\n      SCALE  = AMIN1(REG(3)-REG(1),REG(4)-REG(2))/MM17P5\r\n      IF (RATIO .NE. 0.) SCALE=RATIO*SCALE\r\nC\r\nC     FIND VANTAGE POINT (IF REQUESTED)\r\nC\r\n  710 CALL PERPEC (X(NGP+1),0)\r\n      FVP = 0\r\nC\r\nC     FIND ORIGIN -FOR- IF REQUESTED\r\nC\r\n      IF (FOR .EQ. 0) GO TO 830\r\n      IMSEP     = S0S*(RDIST-D0)/(2.*RDIST)\r\n      XY(FOR,1) = SCALE*(AVER(2)*OBJMOD-IMSEP) - (REG(1)+REG(3))/2.\r\n      XY(FOR,2) = SCALE*(AVER(2)*OBJMOD+IMSEP) - (REG(1)+REG(3))/2.\r\n      XY(FOR,3) = SCALE*(AVER(3)*OBJMOD)       - (REG(2)+REG(4))/2.\r\n      GO TO 830\r\nC\r\n  800 CALL MESAGE (-8,ICRQ,NAME)\r\nC\r\n  810 WRITE  (NOUT,820) UFM,SETID(SET)\r\n  820 FORMAT (A23,' 703, SET',I9,' REQUESTED ON FIND CARD NOT IN ',\r\n     1       'GPSETS FILE.')\r\n      NOGO = 1\r\n      CALL CLOSE (GPSET,1)\r\n      GO TO 840\r\nC\r\n  830 FSCALE = 0\r\n      FOR    = 0\r\n  840 IF (NOGO .NE. 0) CALL MESAGE (-37,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/findc.f",
    "content": "      INTEGER FUNCTION FINDC (B,BBAR,N,IX,JX)\r\n      INTEGER B,BBAR\r\n      DIMENSION IX(1),JX(1)\r\nC*******\r\nC     PICK OUT PAIRS OF NUMBERS FOR ACTIVE ROWS\r\nC*******\r\n      ICC = 0\r\n      J = 1\r\n      DO 10 I=1,N\r\n      IF (I-IX(I) .LE. BBAR) GO TO 10\r\n      JX(J) = I+B-1\r\n      JX(J+1) = IX(I)\r\n      J = J+2\r\n   10 CONTINUE\r\n      J = J-1\r\n      IF(J .EQ. 0) GO TO 31\r\n      DO 30 K = 1,J,2\r\n      IF((J-K-1)/2 .LT. ICC) GO TO 31\r\n      IC = 0\r\n      DO 20 L=K,J,2\r\n      IF(JX(K) .LT. JX(L+1)) GO TO 20\r\n      IC = IC+1\r\n   20 CONTINUE\r\n      ICC = MAX0(ICC,IC)\r\n   30 CONTINUE\r\n   31 FINDC = ICC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/finder.f",
    "content": "      SUBROUTINE FINDER( NAM , SUBNO , COMNO )\r\nC\r\nC\r\nC     THIS SUBROUTINE READS THE TABLE OF CONTENTS OF SUBSTRUCTURES\r\nC     BEING COMBINED ( SCRATCH FILE SCTOC ) AND FOR ANY GIVEN\r\nC     BASIC SUBSTRUCTURE NAME ( NAM ) RETURNS THE ID NUMBER OF THE\r\nC     PSEUDO-STRUCTURE CONTAINING IT ( SUBNO ) AND ITS POSITION IN\r\nC     THE COMPONENT LIST FOR THAT STRUCTURE ( COMNO ).  IF A NAME\r\nC     DOES NOT APPEAR IN THE SCTOC AN ERROR MESSAGE IS ISSUED.\r\nC\r\n      INTEGER SCTOC,BUF4,ID(3),SUBNO,COMNO,NAM(2),CNAM(2),OUTT\r\n      LOGICAL TOCOPN\r\n      COMMON/CMB001/ SCR1,SCR2,SCBDAT,SCSFIL,SCCONN,SCMCON,\r\n     1               SCTOC,GEOM4,CASECC\r\n      COMMON/ZZZZZZ/ Z(1)\r\n      COMMON/CMB002/ BUF1,BUF2,BUF3,BUF4,BUF5,SCORE,LCORE,INPT,OUTT\r\n      COMMON/CMB003/ COMBO(7,5),CONSET,IAUTO,TOLER,NPSUB,CONECT,TRAN,\r\n     1               MCON,RESTCT(7,7),ISORT,ORIGIN(7,3),IPRINT,TOCOPN\r\n      COMMON/CMBFND/ INAM(2),IERR\r\nC\r\nC     OPEN SCTOC FILE\r\nC\r\n      IERR = 0\r\n      IF(.NOT.TOCOPN)CALL OPEN(*2001,SCTOC,Z(BUF4),0)\r\n      CALL REWIND( SCTOC )\r\nC\r\n      DO 1 I=1,NPSUB\r\n      CALL READ(*2001,*2002,SCTOC,ID,3,0,NNN)\r\n      NCOM = ID(3)\r\n      DO 2 J=1,NCOM\r\n      IEOR = 0\r\n      IF( J .EQ. NCOM ) IEOR = 1\r\n      CALL READ(*2001,*2002,SCTOC,CNAM,2,IEOR,NNN)\r\n      IF( NAM(1).EQ.CNAM(1) .AND. NAM(2).EQ.CNAM(2) ) GO TO 11\r\n2     CONTINUE\r\n1     CONTINUE\r\nC\r\nC     IERR = 1 MEANS THAT THE SUBSTRUCTURE NAME IS NOT IN THE TOC\r\nC\r\n      IERR = 1\r\n      RETURN\r\n11    SUBNO = I\r\n      INAM(1) = ID(1)\r\n      INAM(2) = ID(2)\r\n      COMNO = J\r\n      IF( .NOT. TOCOPN ) CALL CLOSE( SCTOC , 1 )\r\n2001  CONTINUE\r\n2002  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flbelm.f",
    "content": "      SUBROUTINE FLBELM\r\nC\r\nC     READS CFLSTR AND CFREE BULK DATA AND BUILDS INCORE TABLES TO\r\nC     DESCRIBE THE CONNECTIVITY BETWEEN THE STRUCTURE AND FLUID\r\nC\r\n      LOGICAL         ERROR\r\n      INTEGER         GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT   ,\r\n     4                Z        ,FILE     ,NAME(2)  ,MCB(7)   ,CFLSTR(2),\r\n     5                CARD(10) ,ID(3)    ,GRID(4)  ,CFREE(2) ,ELM2D(7,3)\r\n     6,               ELMFL(4,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /FLBFIL/ GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NBGPDT   ,\r\n     1                ISIL     ,NSIL     ,IGRAV    ,NGRAV    ,IGRID    ,\r\n     2                NGRID    ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4    ,\r\n     3                IBUF5\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /BLANK / NOGRAV   ,NOFREE\r\n      DATA    CFLSTR/ 7610,76/ ,CFREE / 4810,48 /  ,MCB / 7*0 /\r\n      DATA    NAME  / 4HFLBE , 4HLM   /\r\nC\r\nC     TWO DIMENSIONAL STRUCTURAL ELEMENTS DESCRIPTIONS\r\nC\r\n      DATA    N2D   / 7 /\r\n      DATA    ELM2D /\r\nC\r\nC                     TRIA1  TRIA2   TRMEM  QUAD1  QUAD2  QDMEM  SHEAR\r\nC     1  IFP CARD NUMBERS\r\nC     2  NUMBER OF GRIDS\r\nC     3  NUMBER OF WORDS IN ECT RECORD\r\nC\r\n     1                52    ,53     ,56    ,57    ,58    ,60    ,61   ,\r\n     2                3     ,3      ,3      ,4     ,4     ,4     ,4   ,\r\n     3                6     ,6      ,6      ,7      ,7    ,7      ,6  /\r\nC\r\nC     FLUID ELEMENT DESCRIPTIONS\r\nC\r\n      DATA    NFL   / 4 /\r\n      DATA    ELMFL /\r\nC\r\nC                     FHEX1     FHEX2     FTETRA    FWEDGE\r\nC    1  IFP CARD NUMBERS\r\nC    2  NUMBER OF GRIDS\r\nC    3  NUMBER OF WORDS IN ECT RECORD\r\nC\r\n     1                333      ,334      ,335      ,336     ,\r\n     2                8        ,8        ,4        ,6       ,\r\n     3                10       ,10       ,6        ,8       /\r\nC\r\nC\r\nC     READ BGPDT INTO OPEN CORE\r\nC\r\n      IBGPDT = 1\r\n      FILE   = BGPDT\r\n      CALL GOPEN (BGPDT,Z(IBUF1),0)\r\n      NZ = IBUF3 - 1\r\n      CALL READ (*1002,*10,BGPDT,Z(IBGPDT),NZ,1,NBGPDT)\r\n      GO TO 1008\r\n   10 ICORE = IBGPDT + NBGPDT\r\n      NGRDT = NBGPDT/4\r\n      CALL CLOSE (BGPDT,1)\r\nC\r\nC     LOCATE CFLSTR CARDS ON GEOM2 AND READ THEM INTO ELEMENT TABLE\r\nC     IN CORE.   ONE ELEMENT TABLE RECORD WILL LOOK AS FOLLOWS -\r\nC\r\nC                  WORD      DESCRIPTION\r\nC\r\nC                  1         STRUCTURE ELEMENT ID\r\nC                  2         FLUID ELEMENT ID\r\nC                  3-6       ZERO\r\nC                  7         GRAV LOAD ID\r\nC\r\n      FILE = GEOM2\r\n      CALL PRELOC (*1001,Z(IBUF1),GEOM2)\r\n      CALL LOCATE (*1200,Z(IBUF1),CFLSTR,ID)\r\n      IELMT = ICORE\r\n   20 CALL READ (*1002,*40,GEOM2,ID,2,0,N)\r\n   30 CALL READ (*1002,*1003,GEOM2,IDS,1,0,N)\r\n      IF (IDS .LT. 0) GO TO 20\r\n      IF (ICORE+7 .GE. IBUF3) GO TO 1008\r\n      Z(ICORE  ) = IDS\r\n      Z(ICORE+1) = ID(1)\r\n      Z(ICORE+2) = 0\r\n      Z(ICORE+3) = 0\r\n      Z(ICORE+4) = 0\r\n      Z(ICORE+5) = 0\r\n      Z(ICORE+6) = ID(2)\r\n      ICORE = ICORE + 7\r\n      GO TO 30\r\nC\r\n   40 NELMT = ICORE - IELMT\r\n      NELM  = NELMT/7\r\nC\r\nC     SORT ELEMENT TABLE BY STRUCTUREAL ELEMENT ID\r\nC\r\n      CALL SORT (0,0,7,1,Z(IELMT),NELMT)\r\nC\r\nC     READ ECT AND PROCESS 2D STRUCTURAL ELEMENTS\r\nC\r\n      FILE = ECT\r\n      CALL GOPEN (ECT,Z(IBUF2),0)\r\n   50 CALL READ (*100,*1002,ECT,CARD,3,0,N)\r\n      DO 60 I = 1,N2D\r\n      IF (CARD(3) .EQ. ELM2D(I,1)) GO TO 70\r\n   60 CONTINUE\r\nC\r\nC     SKIP RECORD BECAUSE NOT ACCEPTABLE 2D ELEMENT TYPE\r\nC\r\n      CALL FWDREC (*1001,ECT)\r\n      GO TO 50\r\nC\r\nC     PROCESS THE 2D ELEMENT\r\nC\r\n   70 NGRDS = ELM2D(I,2)\r\n      NWDS  = ELM2D(I,3)\r\nC\r\nC     READ DATA FOR ONE 2D ELEMENT\r\nC\r\n   80 CALL READ (*1001,*50,ECT,CARD,NWDS,0,N)\r\nC\r\nC     CHECK IF STRUCTURAL ELEMENT IS CONNECTED TO ANY FLUID ELEMENT\r\nC     MAKE SURE BISLOC FINDS FIRST OF SEVERAL POSSIBLE ENTRIES\r\nC\r\n      CALL BISLOC (*80,CARD(1),Z(IELMT),7,NELM,JLOC)\r\n   82 IF (JLOC.EQ.1 .OR. Z(IELMT+JLOC-8).NE.CARD(1)) GO TO 84\r\n      JLOC = JLOC - 7\r\n      GO TO 82\r\nC\r\nC     INSERT ELEMENT GRID POINTS INTO ELEMENT TABLE WORDS 3-6\r\nC\r\n   84 DO 90 I = 1,NGRDS\r\n   90 Z(IELMT+JLOC+I) = CARD(I+2)\r\n      IF (NGRDS .EQ. 3) Z(IELMT+JLOC+4) = -1\r\nC\r\nC     CHECK IF NEXT ENTRY IS FOR THE SAME STRUCTURAL ELEMENT\r\nC\r\n      IF (JLOC+7.GE.NELMT .OR. Z(IELMT+JLOC+6).NE.CARD(1)) GO TO 80\r\n      JLOC = JLOC + 7\r\n      GO TO 84\r\nC\r\n  100 CONTINUE\r\nC\r\nC     PASS THROUGH ELEMENT TABLE AND CHECK THAT EACH ENTRY HAS GRIDS.\r\nC     ALSO SWITCH THE STRUCTURE AND FLUID ELEMENTS IN THE TABLE FOR\r\nC     FUTURE WORD WITH FLUID ID.\r\nC\r\n      LELMT = IELMT + NELMT - 1\r\n      DO 110 I = IELMT,LELMT,7\r\n      IDS  = Z(I  )\r\n      Z(I) = Z(I+1)\r\n      IF (Z(I+2) .NE. 0) GO TO 110\r\n      ERROR = .TRUE.\r\n      WRITE (NOUT,8002) UFM,IDS\r\n      IDS  = 0\r\n  110 Z(I+1) = IDS\r\nC\r\nC     ALLOCATE AND ZERO THE GRID POINT CONNECTIVE TABLE AT THE BOTTOM\r\nC     OF CORE\r\nC\r\nC     TABLE ENTRIES WILL BE AS FOLLOWS\r\nC\r\nC     POSITIVE LESS THEN 1,000,000  - NUMBER OF STRUCTURAL POINTS\r\nC                                     CONNECTED TO THIS FLUID POINT\r\nC     MULTIPLES OF 1,000,000        - NUMBER OF FREE SURFACE POINTS\r\nC                                     CONNECTED TO THIS FLUID POINT\r\nC     NEGATIVE                      - NUMBER OF STRUCTURAL POINTS\r\nC                                     CONNECTED TO THIS STRUCTURAL\r\nC                                     POINT\r\nC\r\n      IGRID = IBUF3 - NGRDT - 1\r\n      IF (IGRID .LT. ICORE) GO TO 1008\r\n      NGRID = NGRDT\r\n      LGRID = IBUF3 - 1\r\n      DO 115 I = IGRID,LGRID\r\n  115 Z(I) = 0\r\nC\r\nC     LOCATE CFREE CARDS ON GEOM2 AND ADD THEM TO THE ELEMENT TABLE.\r\nC     THESE ELEMENT RECORDS WILL APPEAR AS FOLLOWS\r\nC\r\nC                  WORD      DESCRIPTION\r\nC\r\nC                  1         FLUID ELEMENT ID\r\nC                  2         -1\r\nC                  3         FACE ID\r\nC                  4-6       ZERO\r\nC                  7         GRAV ID\r\nC\r\n      FILE = GEOM2\r\n      CALL LOCATE (*124,Z(IBUF1),CFREE,ID)\r\n      NOFREE = 1\r\n  120 CALL READ (*1002,*130,GEOM2,ID,3,0,N)\r\n      IF (ICORE+7 .GE. IGRID) GO TO 1008\r\n      Z(ICORE  ) = ID(1)\r\n      Z(ICORE+1) = -1\r\n      Z(ICORE+2) = ID(3)\r\n      Z(ICORE+3) = 0\r\n      Z(ICORE+4) = 0\r\n      Z(ICORE+5) = 0\r\n      Z(ICORE+6) = ID(2)\r\n      ICORE = ICORE + 7\r\n      GO TO 120\r\nC\r\nC     NO CFREE CARDS - THIS IMPLIES THAT THERE WILL BE NO FREE SURFACE\r\nC\r\n  124 NOFREE = -1\r\nC\r\nC     COMPLETE CORE ALLOCATION FOR THIS PHASE\r\nC\r\n  130 NELMT = ICORE - IELMT\r\n      NELM  = NELMT/7\r\n      CALL CLOSE (GEOM2,1)\r\nC\r\nC     SORT ELEMENT TABLE BY FLUID ID\r\nC\r\n      CALL SORT (0,0,7,1,Z(IELMT),NELMT)\r\nC\r\nC     OPEN FBELM AND FRELM SCRATCH FILES\r\nC\r\n      CALL GOPEN (FBELM,Z(IBUF1),1)\r\n      CALL GOPEN (FRELM,Z(IBUF3),1)\r\nC\r\nC     READ ECT AND PROCESS FLUID ELEMENTS\r\nC\r\n      FILE = ECT\r\n      CALL REWIND (ECT)\r\n      CALL FWDREC (*1002,ECT)\r\n  140 CALL READ (*220,*1003,ECT,CARD,3,0,N)\r\n      DO 150 I = 1,NFL\r\n      IF (CARD(3) .EQ. ELMFL(I,1)) GO TO 160\r\n  150 CONTINUE\r\nC\r\nC     SKIP RECORD BECAUSE NOT FLUID ELEMENT TYPE\r\nC\r\n      CALL FWDREC (*1001,ECT)\r\n      GO TO 140\r\nC\r\nC     PRECESS FLUID ELEMENT\r\nC\r\n  160 NTYPE = ELMFL(I,1)\r\n      NWDS  = ELMFL(I,3)\r\nC\r\nC     READ DATA FOR ONE FLUID ELEMENT\r\nC\r\n  170 CALL READ (*1001,*140,ECT,CARD,NWDS,0,N)\r\nC\r\nC     FIND IF FLUID ELEMENT IS ON FREE SURFACE OR STRUCTURAL BOUNDARY.\r\nC     MAKE SURE BISLOC FINDS THE FIRST OF SEVERAL POSSIBLE ENTRIES.\r\nC\r\n      CALL BISLOC (*170,CARD(1),Z(IELMT),7,NELM,JLOC)\r\n  175 IF (JLOC.EQ.1 .OR. Z(IELMT+JLOC-8).NE.CARD(1)) GO TO 180\r\n      JLOC = JLOC - 7\r\n      GO TO 175\r\nC\r\nC     DETERMINE IF ENTRY IS EITHER A BOUNDARY OR FREE SURFACE\r\nC     DESCRIPTION - IGNORE ENTRY IF IT WAS IN ERROR DURING STRUCTURAL\r\nC     ELEMENT PROCESSING\r\nC\r\n  180 IF (Z(IELMT+JLOC) .GT.  0) GO TO 190\r\n      IF (Z(IELMT+JLOC) .EQ. -1) GO TO 200\r\n      GO TO 210\r\nC\r\nC     THIS ENTRY DESCRIBES THE FLUID / STRUCTURE BOUNDARY - FIND THE\r\nC     FLUID GRID POINTS WHICH COINCIDE WITH THE STRUCTURAL POINTS\r\nC\r\n  190 CALL FLFACE (NTYPE,CARD,Z(IELMT+JLOC-1),GRID)\r\n      IF (ERROR) GO TO 210\r\nC\r\nC     INCLUDE CONNECTIONS IN GRID POINT CONNECTIVITY TABLE\r\nC        1) NUMBER OF STRUCTURE GRID POINTS CONNECTED TO EACH FLUID\r\nC        2) NUMBER OF STRUCTURAL GRID POINTS CONNECTED TO EACH\r\nC           STRUCTURE POINT\r\nC\r\n      NGRDF = 4\r\n      IF (GRID(4) .LT. 0) NGRDF = 3\r\n      NGRDS = 4\r\n      IF (Z(IELMT+JLOC+4) .LT. 0) NGRDS = 3\r\n      DO 192 I = 1,NGRDF\r\n      J = GRID(I) - 1\r\n  192 Z(IGRID+J) = Z(IGRID+J) + NGRDS\r\n      DO 194 I = 1,NGRDS\r\n      J = Z(IELMT+JLOC+I) - 1\r\n  194 Z(IGRID+J) = Z(IGRID+J) - NGRDS\r\nC\r\nC     WRITE 12 WORD RECORD FOR THIS ENTRY ON FBELM\r\nC\r\nC                  WORD      DESCRIPTION\r\nC\r\nC                  1         FLUID ELEMENT ID\r\nC                  2         STRUCTURAL ELEMENT ID\r\nC                  3-6       STRUCTURE GRID POINTS\r\nC                  7         GRAVITY LOAD ID\r\nC                  8         MATERIAL ID\r\nC                  9-12      FLUID GRID POINTS\r\nC\r\n      CALL WRITE (FBELM,Z(IELMT+JLOC-1),7,0)\r\n      CALL WRITE (FBELM,CARD(2),1,0)\r\n      CALL WRITE (FBELM,GRID,4,0)\r\n      GO TO 210\r\nC\r\nC     THIS ENTRY DESCRIBES THE FREE SURFACE - FIND THE FLUIDS GRID\r\nC     POINTS WHICH DEFINE THE FACE ID GIVEN\r\nC\r\n  200 CALL FLFACE (NTYPE,CARD,Z(IELMT+JLOC-1),GRID)\r\n      IF (ERROR) GO TO 210\r\nC\r\nC     INCLUDE CONNECTIONS IN GRID POINT CONNECTIVITY TABLE\r\nC        1) NUMBER OF FREE SURFACE POINTS CONNECTED TO THIS FREE\r\nC           SURFACE POINT\r\nC\r\n      NGRDF = 4\r\n      IF (GRID(4) .LT. 0) NGRDF = 3\r\n      DO 202 I = 1,NGRDF\r\n      J = GRID(I) - 1\r\n  202 Z(IGRID+J) = Z(IGRID+J) + NGRDF*1000000\r\nC\r\nC     WRITE 7 WORD RECORD ON FRELM FILE\r\nC\r\nC                  WORD      DESCRIPTION\r\nC\r\nC                  1         FLUID ELEMENT ID\r\nC                  2         MATERIAL FLAG\r\nC                  3-6       FLUID GRID POINTS\r\nC                  7         GRAVITY LOAD ID\r\nC\r\n      Z(IELMT+JLOC) = CARD(2)\r\n      CALL WRITE (FRELM,Z(IELMT+JLOC-1),2,0)\r\n      CALL WRITE (FRELM,GRID,4,0)\r\n      CALL WRITE (FRELM,Z(IELMT+JLOC+5),1,0)\r\nC\r\nC     FLAG THE ELEMENT TABLE ENTRY AS BEEN PROCESSED AND CHECK IF\r\nC     THE NEXT ENTRY IS FOR THE SAME FLUID ELEMENT\r\nC\r\n  210 Z(IELMT+JLOC) = -2\r\n      IF (JLOC+7.GE.NELMT .OR. Z(IELMT+JLOC+6).NE.CARD(1)) GO TO 170\r\n      JLOC = JLOC + 7\r\n      GO TO 180\r\nC\r\n  220 CALL CLOSE (ECT,1)\r\n      CALL CLOSE (FBELM,1)\r\n      CALL CLOSE (FRELM,1)\r\n      MCB(1) = FBELM\r\n      MCB(2) = NGRDT\r\n      MCB(3) = NELM\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = FRELM\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     MAKE ONE FINAL PASS THROUGH ELEMENT TABLE AND VERIFY THAT\r\nC     EVERY FLUID ELEMENT WAS PROCESSED\r\nC\r\n      LELMT = IELMT + NELMT - 1\r\n      DO 240 I = IELMT,LELMT,7\r\n      IF (Z(I+1) .EQ. -2) GO TO 240\r\n      IF (Z(I+1) .EQ. -1) GO TO 230\r\n      ERROR = .TRUE.\r\n      WRITE (NOUT,8003) UFM,Z(I)\r\n      GO TO 240\r\nC\r\n  230 ERROR = .TRUE.\r\n      WRITE (NOUT,8004) UFM,Z(I)\r\nC\r\n  240 CONTINUE\r\nC\r\nC     ELEMENT TABLE IS NO LONGER NEEDED SO DELETE IT AND RETURN\r\nC\r\n      ICORE = IELMT\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1001 N = -1\r\n      GO TO 1100\r\n 1002 N = -2\r\n      GO TO 1100\r\n 1003 N = -3\r\n      GO TO 1100\r\n 1008 N = -8\r\n 1100 CALL MESAGE (N,FILE,NAME)\r\nC\r\nC     NO FLUID / STRUCTURE BOUNDARY DEFINED.  FATAL ERROR BECAUSE DMAP\r\nC     CANNOT HANDLE THIS CONDITION\r\nC\r\n 1200 ERROR = .TRUE.\r\n      WRITE (NOUT,8001) UFM\r\n      RETURN\r\nC\r\nC     ERROR FORMATS\r\nC\r\n 8001 FORMAT (A23,' 8001. THERE MUST BE A FLUID/STRUCTURE BOUNDARY IN ',\r\n     1       'HYDROELASTIC ANALYSIS.')\r\n 8002 FORMAT (A23,' 8002, ELEMENT ID',I9,' ON A CFLSTR CARD DOES NOT ',\r\n     1       'REFERENCE A VALID 2D STRUCTURAL ELEMENT.')\r\n 8003 FORMAT (A23,' 8003. ELEMENT ID',I9,' ON A CFLSTR CARD DOES NOT ',\r\n     1       'REFERENCE A VALID FLUID ELEMENT.')\r\n 8004 FORMAT (A23,' 8004. ELEMENT ID',I9,' ON A CFFREE CARD DOES NOT ',\r\n     1       'REFERENCE A VALID FLUID ELEMENT.')\r\n      END\r\n"
  },
  {
    "path": "mis/flbema.f",
    "content": "      SUBROUTINE FLBEMA (TYPE)\r\nC\r\nC     ASSEMBLES THE AF OR DKGG MATRIX UTITLIZING THE ELEMENT\r\nC     MATRICES GENERATED IN FLBEMG\r\nC\r\nC     TYPE = 1  AFF MATRIX\r\nC     TYPE = 2  DKGG MATRIX\r\nC\r\n      LOGICAL         ERROR    ,SKIP\r\n      INTEGER         GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT   ,\r\n     4                TYPE     ,OUTMAT   ,XMAT     ,XDICT    ,Z        ,\r\n     5                FILE     ,NAME(2)  ,MCB(7)   ,ALLOC(3) ,DICT(2)  ,\r\n     6                TYPIN    ,TYPOUT   ,ROWSIL(4),COLSIL(12)         ,\r\n     7                OPTC     ,OPTW     ,RD       ,RDREW    ,WRT      ,\r\n     8                WRTREW   ,REW      ,NOREW    ,TERMS(288)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /FLBFIL/ GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NBGPDT   ,\r\n     1                ISIL     ,NSIL     ,IGRAV    ,NGRAV    ,IGRID    ,\r\n     2                NGRID    ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4    ,\r\n     3                IBUF5\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,REW      ,\r\n     1                NOREW\r\n      DATA    NAME  / 4HFLBE,4HMA   /\r\nC\r\nC\r\nC     ASSIGN FILES DEPENDING ON TYPE\r\nC\r\n      GO TO (2,4), TYPE\r\nC\r\nC     AF MATRIX\r\nC\r\n    2 OUTMAT = AF\r\n      XMAT   = AFMAT\r\n      XDICT  = AFDICT\r\n      GO TO 6\r\nC\r\nC     DKGG MATRIX\r\nC\r\n    4 OUTMAT = DKGG\r\n      XMAT   = KGMAT\r\n      XDICT  = KGDICT\r\nC\r\nC     ALLOCATE COLUMN POINTER VECTOR IN TOP OF CORE\r\nC\r\n    6 MCB(1) = USET\r\n      CALL RDTRL(MCB)\r\n      LUSET = MCB(3)\r\n      ICOL  = 1\r\n      NCOL  = LUSET\r\n      DO 10 I = 1,NCOL\r\n   10 Z(I) = 0\r\nC\r\nC     INITILIZE OPEN AND CLOSE OPTIONS\r\nC\r\n      OPTW = WRTREW\r\n      OPTC = NOREW\r\nC\r\nC     POSITION CONNECT FILE TO PROPER RECORD\r\nC\r\n      FILE = CONECT\r\n      CALL OPEN (*1001,CONECT,Z(IBUF1),RDREW)\r\n      IF (TYPE .EQ. 2) CALL SKPFIL (CONECT,1)\r\n      CALL FWDREC (*1002,CONECT)\r\n      CALL CLOSE (CONECT,NOREW)\r\nC\r\nC     INITIALIZE PACK - UNPACK DATA\r\nC\r\n      TYPIN  = 2\r\n      TYPOUT = 2\r\n      MCB(1) = OUTMAT\r\n      MCB(2) = 0\r\n      MCB(3) = LUSET\r\n      MCB(4) = 3 - TYPE\r\n      MCB(5) = TYPOUT\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\nC\r\nC     SET UP CORE POINTERS\r\nC\r\n      ICORE = NCOL  + 1\r\n      LCORE = IBUF2 - 1\r\n      NCORE = LCORE - ICORE\r\n      IF (NCORE .LT. 200) GO TO 1008\r\nC\r\n      SKIP  = .FALSE.\r\n      ILCOL = 0\r\nC\r\nC\r\nC     ALLOCATE ALL AVALABLE CORE FOR THIS PASS BY USE OF CONECT FILE\r\nC\r\n   30 IFCOL = ILCOL + 1\r\n      JCORE = ICORE\r\n      FILE  = CONECT\r\nC\r\n      CALL GOPEN (CONECT,Z(IBUF1),RD)\r\nC\r\n      IF (SKIP) GO TO 60\r\n   50 CALL READ (*70,*1008,CONECT,ALLOC,3,1,N)\r\nC\r\n   60 ISIL     = ALLOC(1)\r\n      Z(ISIL)  = JCORE\r\n      Z(JCORE) = JCORE + 1\r\n      JCORE    = JCORE + 1 + ALLOC(2) + 2*ALLOC(3)\r\n      IF(JCORE .GT. LCORE ) GO TO 80\r\n      ILCOL = ISIL\r\n      GO TO 50\r\nC\r\nC     END OF RECORD ON CONECT - ALL COLUMNS ALLOCATED\r\nC\r\n   70 ILCOL = LUSET\r\n      OPTC  = REW\r\n      GO TO 90\r\nC\r\nC     INSUFFICIENT CORE FOR NEXT COLUMN - SET FLAG TO SAVE CURRENT\r\nC     CONECT ALLOCATION RECORD\r\nC\r\n   80 SKIP = .TRUE.\r\nC\r\n   90 CALL CLOSE (CONECT,OPTC)\r\nC\r\nC     OPEN DICTIONARY AND MATRIX FILES AND PREPARE TO MAKE PASS\r\nC\r\n      CALL GOPEN (XDICT,Z(IBUF1),RDREW)\r\n      CALL GOPEN (XMAT,Z(IBUF2),RDREW)\r\n      ICPOS = 0\r\nC\r\nC     READ XDICT ENTRY AND DETERMINE IF COLUMN IS IN CORE FOR THIS\r\nC     PASS\r\nC\r\n  100 FILE = XDICT\r\n      CALL READ (*1002,*200,XDICT,DICT,2,0,N)\r\n      ISIL = DICT(1)\r\n      IF (ISIL.LT.IFCOL .OR. ISIL.GT.ILCOL) GO TO 100\r\nC\r\nC     THE COLUMN IS IN CORE - OBTAIN MATRIX DATA FROM XMAT FILE IF\r\nC     WE DO NOT ALREADY HAVE IT\r\nC\r\n      IF (DICT(2) .EQ. ICPOS) GO TO 150\r\n      ICPOS = DICT(2)\r\n      FILE  = XMAT\r\n      CALL FILPOS (XMAT,ICPOS)\r\n      CALL READ (*1002,*1003,XMAT,ROWSIL,4,0,N)\r\n      CALL READ (*1002,*1003,XMAT,COLSIL,4,0,N)\r\n      NROW  = 4\r\n      IF (ROWSIL(4) .LT. 0) NROW = 3\r\n      NCOL  = 4\r\n      IF (COLSIL(4) .LT. 0) NCOL = 3\r\n      CALL READ (*1002,*110,XMAT,TERMS,289,0,NWDS)\r\n      ICODE = 1\r\n      GO TO 8010\r\nC\r\nC     EXPAND COLSIL TO INCLUDE ALL SILS\r\nC\r\n  110 IF(NWDS .LT. 162) GO TO 130\r\n      DO 120 I = 1,4\r\n      J = 4 - I\r\n      COLSIL(3*J+1) = COLSIL(J+1)\r\n      COLSIL(3*J+2) = COLSIL(J+1) + 1\r\n  120 COLSIL(3*J+3) = COLSIL(J+1) + 2\r\n      NCOL   = NCOL * 3\r\n  130 NTPERS = 2\r\n      IF(NWDS .LT. 54) GO TO 150\r\n      NTPERS = 6\r\nC\r\nC     LOCATE POSITION OF MATRIX TERMS FOR DESIRED SIL\r\nC\r\n  150 DO 160 KCOL = 1,NCOL\r\n      IF (COLSIL(KCOL) .EQ. ISIL) GO TO 170\r\n  160 CONTINUE\r\n      ICODE = 2\r\n      GO TO 8010\r\nC\r\n  170 ILOC = (KCOL-1)*NROW*NTPERS + 1\r\nC\r\nC     EXTRACT MATRIX TERMS AND STORE THEM IN CORE\r\nC\r\n      ICODE = 3\r\n      JCORE = Z(ISIL)\r\n      IF (JCORE .EQ. 0) GO TO 8010\r\n      KCORE = Z(JCORE)\r\n      DO 190 I = 1,NROW\r\n      Z(KCORE) = ROWSIL(I)\r\n      IF (NTPERS .EQ. 2) Z(KCORE) = -ROWSIL(I)\r\n      KCORE = KCORE + 1\r\n      DO 180 J = 1,NTPERS\r\n      Z(KCORE) = TERMS(ILOC)\r\n      ILOC  = ILOC  + 1\r\n  180 KCORE = KCORE + 1\r\n  190 CONTINUE\r\n      Z(JCORE) = KCORE\r\nC\r\n      GO TO 100\r\nC\r\nC     END OF FILE ON XDICT - PREPARE TO PACK OUT COLUMNS IN CORE\r\nC\r\n  200 CALL CLOSE (XDICT,OPTC)\r\n      CALL CLOSE (XMAT,OPTC)\r\n      CALL GOPEN (OUTMAT,Z(IBUF1),OPTW)\r\nC\r\nC     PACK OUT COLUMNS\r\nC\r\n      DO 210 I = IFCOL,ILCOL\r\n      CALL BLDPK (TYPIN,TYPOUT,OUTMAT,0,0)\r\n      IF (Z(I) .EQ. 0) GO TO 210\r\nC\r\n      ILOC = Z(I) + 1\r\n      NLOC = Z(ILOC-1) - ILOC\r\n      CALL PAKCOL (Z(ILOC),NLOC)\r\nC\r\n  210 CALL BLDPKN (OUTMAT,0,MCB)\r\nC\r\n      CALL CLOSE (OUTMAT,OPTC)\r\nC\r\nC     RETURN FOR ADDITIONAL PASS IF MORE NONZERO COLUMNS REMAIN\r\nC\r\n      OPTW = WRT\r\n      IF (ILCOL .LT. LUSET) GO TO 30\r\nC\r\nC     ALL COLUMNS PROCESSED - WRITE TRAILER AND RETURN\r\nC\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1001 N = -1\r\n      GO TO 1100\r\n 1002 N = -2\r\n      GO TO 1100\r\n 1003 N = -3\r\n      GO TO 1100\r\n 1008 N = -8\r\n      GO TO 1100\r\nC\r\n 1100 CALL MESAGE (N,FILE,NAME)\r\nC\r\n 8010 WRITE  (NOUT,9010) SFM,ICODE\r\n 9010 FORMAT (A25,' 8010, LOGIC ERROR IN SUBROUTINE FLBEMA - CODE',I3/)\r\n      N = -61\r\n      GO TO 1100\r\n      END\r\n"
  },
  {
    "path": "mis/flbemg.f",
    "content": "      SUBROUTINE FLBEMG\r\nC\r\nC     GENERATES ELEMENT AREA FACTOR AND GRAVITIATIONAL STIFFNESS\r\nC     MATRICES\r\nC\r\n      INTEGER       GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT\r\n     1             ,GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF\r\n     2             ,USETS    ,AF       ,DKGG     ,FBELM    ,FRELM\r\n     3             ,CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\n     4             ,Z        ,GRAV(2)  ,POS      ,FRREC(7) ,FBREC(12)\r\n     5             ,FILE     ,NAME(2)  ,DICT(2)\r\nC\r\n      LOGICAL       ERROR    ,NOCARD\r\nC\r\n      DOUBLE PRECISION        AFE(48)  ,KGE(144)\r\nC\r\nC     GINO FILES\r\nC\r\n      COMMON / FLBFIL /       GEOM2    ,ECT      ,BGPDT    ,SIL\r\n     1                       ,MPT      ,GEOM3    ,CSTM     ,USET\r\n     2                       ,EQEXIN   ,USETF    ,USETS    ,AF\r\n     3                       ,DKGG     ,FBELM    ,FRELM    ,CONECT\r\n     4                       ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /       Z(1)\r\nC\r\nC     CORE POINTERS\r\nC\r\n      COMMON / FLBPTR /       ERROR    ,ICORE    ,LCORE    ,IBGPDT\r\n     1                       ,NBGPDT   ,ISIL     ,NSIL     ,IGRAV\r\n     2                       ,NGRAV    ,IGRID    ,NGRID    ,IBUF1\r\n     3                       ,IBUF2    ,IBUF3    ,IBUF4    ,IBUF5\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK/     NOGRAV   ,NOFREE   ,TILT(2)\r\nC\r\n      DATA NAME / 4HFLBE,4HMG   /\r\n      DATA GRAV / 4401 , 44 /\r\nC\r\nC***********************************************************************\r\nC\r\nC     READ MATERIAL PROPERTY DATA INTO CORE\r\nC\r\n      IMAT = ICORE\r\n      NZ = IBUF5 - IMAT\r\n      CALL PREMAT(Z(IMAT),Z(IMAT),Z(IBUF1),NZ,NMAT,MPT,0)\r\nC\r\nC     READ CSTM DATA INTO CORE\r\nC\r\n      ICSTM = IMAT + NMAT\r\n      NCSTM = 0\r\n      NZ = IBUF5 - ICSTM\r\n      FILE = CSTM\r\n      CALL OPEN(*20,CSTM,Z(IBUF1),0)\r\n      CALL FWDREC(*1002,CSTM)\r\n      CALL READ(*1002,*10,CSTM,Z(ICSTM),NZ,0,NCSTM)\r\n      GO TO 1008\r\n   10 CALL CLOSE(CSTM,1)\r\n      CALL PRETRD(Z(ICSTM),NCSTM)\r\nC\r\nC     READ GRAV DATA INTO CORE\r\nC\r\n   20 IGRAV = ICSTM + NCSTM\r\n      NGRAV = 0\r\n      NZ = IBUF5 - IGRAV\r\n      NOGRAV = -1\r\n      NOCARD = .TRUE.\r\n      FILE = GEOM3\r\n      CALL PRELOC(*40,Z(IBUF1),GEOM3)\r\n      CALL LOCATE(*30,Z(IBUF1),GRAV,ID)\r\n      NOCARD = .FALSE.\r\n      CALL READ(*1002,*30,GEOM3,Z(IGRAV),NZ,0,NGRAV)\r\n      GO TO 1008\r\nC\r\n   30 CALL CLOSE(GEOM3,1)\r\n   40 CONTINUE\r\nC\r\nC     OPEN MATRIX AND DICTIONARY FILES\r\nC\r\n      CALL GOPEN(AFMAT,Z(IBUF2),1)\r\n      CALL GOPEN(AFDICT,Z(IBUF4),1)\r\n      IF(NOCARD) GO TO 60\r\n      CALL GOPEN(KGMAT,Z(IBUF3),1)\r\n      CALL GOPEN(KGDICT,Z(IBUF5),1)\r\nC\r\nC\r\nC     PASS THROUGH FBELM FILE AND PROCESS EACH ENTRY ON THE BOUNDARY.\r\nC     SUBROUTINE BOUND WILL GENERATE THE ELEMENT MATRICES FOR\r\nC     EACH ENTRY.\r\nC\r\n   60 FILE = FBELM\r\n      CALL GOPEN(FBELM,Z(IBUF1),0)\r\n   70 CALL READ(*1002,*120,FBELM,FBREC,12,0,N)\r\nC\r\n      CALL BOUND(FBREC,AFE,NAFE,KGE,NKGE)\r\n      IF(ERROR) GO TO 70\r\nC\r\nC     CONVERT GRID POINTS TO SILS\r\nC\r\n      DO 80 I=1,4\r\n      J = FBREC(I+2) - 1\r\n      IF(J .GE. 0) FBREC(I+2) = Z(ISIL+J)\r\n      J = FBREC(I+8) - 1\r\n      IF(J .GE. 0) FBREC(I+8) = Z(ISIL+J)\r\n   80 CONTINUE\r\nC\r\nC     WRITE AREA MATRICES AND DICTIONARY ENTRUES\r\nC\r\n      CALL WRITE(AFMAT,FBREC(3),4,0)\r\n      CALL WRITE(AFMAT,FBREC(9),4,0)\r\n      CALL WRITE(AFMAT,AFE,NAFE,1)\r\n      CALL SAVPOS(AFMAT,POS)\r\n      DICT(2) = POS\r\n      DO 90 I=1,4\r\n      DICT(1) = FBREC(I+8)\r\n      IF(DICT(1) .LT. 0) GO TO 90\r\n      CALL WRITE(AFDICT,DICT,2,0)\r\n   90 CONTINUE\r\nC\r\nC     WRITE GRAVITATIONAL STIFFNESS MATRICES IF THEY EXIST\r\nC\r\n      IF(NKGE .EQ. 0) GO TO 70\r\n      CALL WRITE(KGMAT,FBREC(3),4,0)\r\n      CALL WRITE(KGMAT,FBREC(3),4,0)\r\n      CALL WRITE(KGMAT,KGE,NKGE,1)\r\n      CALL SAVPOS(KGMAT,POS)\r\n      DICT(2) = POS\r\n      DO 110 I=1,4\r\n      JSIL = FBREC(I+2)\r\n      IF(JSIL .LT. 0) GO TO 110\r\n      DO 100 J=1,3\r\n      DICT(1) = JSIL\r\n      CALL WRITE(KGDICT,DICT,2,0)\r\n  100 JSIL = JSIL + 1\r\n  110 CONTINUE\r\nC\r\n      GO TO 70\r\n  120 CALL CLOSE(FBELM,1)\r\nC\r\nC\r\nC     PASS THROUGH FRELM FILE AND PROCESS EACH ENTRY ON THE FREE\r\nC     SURFACE.  SUBROUTINE FLFREE WILL CALCULATE THE AREA AND\r\nC     GRAVITATIONAL STIFFNESS MATRICES FOR EACH ENTRY\r\nC\r\n      IF(NOFREE .LT. 0) GO TO 180\r\n      FILE = FRELM\r\n      CALL GOPEN(FRELM,Z(IBUF1),0)\r\n  130 CALL READ(*1002,*170,FRELM,FRREC,7,0,N)\r\nC\r\n      CALL FLFREE(FRREC,AFE,NAFE,KGE,NKGE)\r\n      IF(ERROR) GO TO 130\r\nC\r\nC     CONVERT GRID POINTS TO SILS\r\nC\r\n      DO 140 I=1,4\r\n      J = FRREC(I+2) - 1\r\n      IF(J .GE. 0) FRREC(I+2) = Z(ISIL+J)\r\n  140 CONTINUE\r\nC\r\nC     WRITE AREA MATRICES AND DICTIONARY ENTRIES\r\nC\r\n      CALL WRITE(AFMAT,FRREC(3),4,0)\r\n      CALL WRITE(AFMAT,FRREC(3),4,0)\r\n      CALL WRITE(AFMAT,AFE,NAFE,1)\r\n      CALL SAVPOS(AFMAT,POS)\r\n      DICT(2) = POS\r\n      DO 150 I=1,4\r\n      DICT(1) = FRREC(I+2)\r\n      IF(DICT(1) .LT. 0) GO TO 150\r\n      CALL WRITE(AFDICT,DICT,2,0)\r\n  150 CONTINUE\r\nC\r\nC     WRITE GRAVITATIONAL STIFFNESS MATRICES IF THEY EXIST\r\nC\r\n      IF(NKGE .EQ. 0) GO TO 130\r\n      CALL WRITE(KGMAT,FRREC(3),4,0)\r\n      CALL WRITE(KGMAT,FRREC(3),4,0)\r\n      CALL WRITE(KGMAT,KGE,NKGE,1)\r\n      CALL SAVPOS(KGMAT,POS)\r\n      DICT(2) = POS\r\n      DO 160 I=1,4\r\n      DICT(1) = FRREC(I+2)\r\n      IF(DICT(1) .LT. 0) GO TO 160\r\n      CALL WRITE(KGDICT,DICT,2,0)\r\n  160 CONTINUE\r\nC\r\n      GO TO 130\r\n  170 CALL CLOSE(FRELM,1)\r\nC\r\nC     CLOSE FILES AND RETURN\r\nC\r\n  180 CALL CLOSE(AFMAT,1)\r\n      CALL CLOSE(AFDICT,1)\r\n      IF(NOCARD) GO TO 190\r\n      CALL CLOSE(KGMAT,1)\r\n      CALL CLOSE(KGDICT,1)\r\nC\r\n  190 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1002 N = -2\r\n      GO TO 1100\r\n 1008 N = -8\r\n 1100 CALL MESAGE(N,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flbmg.f",
    "content": "      SUBROUTINE FLBMG\r\nC\r\nC     DRIVER FOR MODULE FLBMG\r\nC\r\nC     COMPUTES THE HYDROELASTIC AREA FACTOR MATRIX AND THE\r\nC     GRAVITATIONAL STIFFNESS MATRIX.\r\nC\r\nC     THE HYDROELASTIC USET VECTOR IA ALSO BUILT.\r\nC\r\nC     DMAP CALL\r\nC\r\nC        FLBMG    GEOM2,ECT,BGPDT,SIL,MPT,GEOM3,CSTM,USET,EQEXIN/\r\nC                 USETF,USETS,AF,DKGG/S,N,NOGRAV/S,N,NOFREE/S,N,TILT $\r\nC\r\nC     INPUT DATA BLOCKS\r\nC\r\nC        GEOM2  - FLUID ELEMENT BOUNDARY DATA\r\nC        ECT    - ELEMENT CONNECTION TABLE\r\nC        BGPDT  - BASIC GRID POINT DEFINITION TABLE\r\nC        SIL    - SCALAR INDEX LIST\r\nC        MPT    - MATERIAL PROPERTIES TABLE\r\nC        GEOM3  - GRAVITY LOAD DATA\r\nC        CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRICES\r\nC        USET   - DISPLACEMENT SET DEFINITION TABLE\r\nC        EQEXIN - EQUIVALENCE BETWEEN EXTERNAL AND INTERNAL GRID POINTS\r\nC\r\nC     OUTPUT DATA BLOCK\r\nC\r\nC        USETF  - FLUID AND STRUCTURAL POINT SET DEFINITION TABLE\r\nC        USETS  - STRUCTURAL POINT SET DEFINITION TABLE\r\nC        AF     - FLUID AREA FACTOR MATRIX\r\nC        DKGG   - STRUCTURAL GRAVITY STIFFNESS AMTRIX\r\nC\r\nC     PARAMETERS\r\nC\r\nC        NOGRAV - INPUT  - FLAG WHICH SPECIFIES WHETHER GRAVITY\r\nC                          EFFECTS ARE TO BE COMPUTED.\r\nC        NOFREE - OUTPUT - FLAG WHICH SPECIFIES WHETHER A FLUID FREE\r\nC                          SURFACE EXISTS.\r\nC        TILT   - OUTPUT - FREE SURFACE TILT VECTOR USED IN PLOTTING\r\nC\r\nC     USER PRINT OPTIONS\r\nC\r\nC        DIAG 32 - PRINTS HYDROELASTIC SET DEFINITION.\r\nC        DIAG 33 - PRINTS HYDROELASTIC DEGREE OF FREEDOM DEFINITION.\r\nC\r\nC\r\n      LOGICAL         ERROR\r\n      INTEGER         GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT   ,\r\n     4                Z1       ,Z2(1)    ,SYSBUF\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM\r\n      COMMON /FLBFIL/ GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT      ,\r\n     1                GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF    ,\r\n     2                USETS    ,AF       ,DKGG     ,FBELM    ,FRELM    ,\r\n     3                CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NBGPDT   ,\r\n     1                ISIL     ,NSIL     ,IGRAV    ,NGRAV    ,IGRID    ,\r\n     2                NGRID    ,IBUF1    ,IBUF2    ,IBUF3    ,IBUF4    ,\r\n     3                IBUF5\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /BLANK / NOGRAV   ,NOFREE   ,TILT(2)\r\n      COMMON /ZZZZZZ/ Z1(1)\r\n      EQUIVALENCE     (Z2(1),Z1(1))\r\nC\r\nC\r\nC     INITILIZE OPEN CORE FOR ELEMENT MATRIX GENERATION PHASE\r\nC\r\n      ERROR =.FALSE.\r\n      LCORE = KORSZ(Z1(1))\r\n      ICORE = 1\r\n      IBUF1 = LCORE - SYSBUF - 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      IBUF5 = IBUF4 - SYSBUF\r\nC\r\nC     PROCESS FLUID ELEMENTS ON THE FLUID / STRUCTURE BOUNDARY\r\nC     AND THE FREE SURFACE .\r\nC\r\n      CALL FLBELM\r\n      IF (ERROR) GO TO 20\r\nC\r\nC     BUILD THE HYDROELASTIC USET VECTOR\r\nC\r\n      CALL FLBSET\r\n      IF (ERROR) GO TO 20\r\nC\r\nC     GENERATE THE ELEMENT MATRICES\r\nC\r\n      CALL FLBEMG\r\n      IF (ERROR) GO TO 20\r\nC\r\nC     INITIALIZE CORE FOR THE MATRIX ASSEMBLY PHASE\r\nC\r\n      LCORE = KORSZ(Z2(1))\r\n      ICORE = 1\r\n      IBUF1 = LCORE - SYSBUF - 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\nC\r\nC     ASSEMBLE THE AREA FACTOR MATRIX\r\nC\r\n      CALL FLBEMA (1)\r\nC\r\nC     IF GRAVITY LOADS - ASSEMBLE THE GRAVITY STIFFNESS MATRIX\r\nC\r\n      IF (NOGRAV .LT. 0) GO TO 10\r\n      CALL FLBEMA (2)\r\nC\r\nC     MODULE COMPLETION\r\nC\r\n   10 CONTINUE\r\n      RETURN\r\nC\r\nC     FATAL ERROR OCCURED DURING PROCESSING - TERMINATE RUN\r\nC\r\n   20 WRITE  (NOUT,30) UIM\r\n   30 FORMAT (A29,' 8000, MODULE FLBMG TERMINATED DUE TO ABOVE ERRORS.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flbprt.f",
    "content": "      SUBROUTINE FLBPRT (IUSET,IEQEX,IBUF)\r\nC\r\nC     HYDROELEASTIC USET OUTPUT\r\nC\r\nC     PRINTS DOF VS. DISP SETS IF DIAG 32 IS ON.\r\nC     PRINTS DISP SETS VS. DOF IF DIAG 33 IS ON.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         Z        ,SYSBUF   ,EQEXIN   ,D32      ,D33      ,\r\n     1                FILE     ,NAME(2)  ,MSK(17)  ,ZGRD(10) ,TITLE(3,9)\r\n     2,               ZDOF(10) ,TWO      ,UM       ,UO       ,UR       ,\r\n     3                USG      ,USB      ,UL       ,UA       ,UF       ,\r\n     4                US       ,UN       ,UG       ,UX       ,UY       ,\r\n     5                UFR      ,UZ       ,UAB      ,UI       ,DASH     ,\r\n     6                ASTRIC   ,BLANK    ,SBIT(17) ,EXPNT    ,UPBIT(17),\r\n     7                ANDF\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\n      COMMON /FLBFIL/ DUM1(8)  ,EQEXIN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT     ,DUM2(6)  ,NLPP     ,\r\n     1                DUM3     ,NPAGE    ,LINE\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /BITPOS/ UM       ,UO       ,UR       ,USG      ,\r\n     1                USB      ,UL       ,UA       ,UF       ,\r\n     2                US       ,UN       ,UG       ,UE       ,\r\n     3                UP       ,UNE      ,UFE      ,UD       ,\r\n     4                UPS      ,USA      ,UK       ,UPA      ,\r\n     5                U21      ,U22      ,U23      ,UX       ,\r\n     6                UY       ,UFR      ,UZ       ,UAB      ,\r\n     7                UI\r\n      DATA    NAME  / 4HFLBP   , 4HRT    /\r\n      DATA    TITLE / 4H       , 4H      , 4H MPC  ,\r\n     1                4H       , 4H      , 4H SPC  ,\r\n     2                4H       , 4H      , 4HOMIT  ,\r\n     3                4H       , 4HANAL  , 4HYSIS  ,\r\n     4                4H       , 4HPERM  , 4H SPC  ,\r\n     5                4H       , 4HBDRY  , 4H SPC  ,\r\n     6                4H   S   , 4HTRUC  , 4HTURE  ,\r\n     7                4H       , 4H   F  , 4HLUID  ,\r\n     8                4HFREE   , 4H SUR  , 4HFACE  /\r\n      DATA    BLANK / 1H  /    , DASH    / 1H- /   , ASTRIC / 1H* /\r\nC\r\nC\r\nC     DETERMINE IF ANY OUTPUT IS REQUESTED\r\nC\r\n      CALL SSWTCH (32,D32)\r\n      CALL SSWTCH (33,D33)\r\n      IF (D32.EQ.0 .AND. D33.EQ.0) RETURN\r\nC\r\nC     READ EQEXIN INTO CORE\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN (*1001,EQEXIN,Z(IBUF),0)\r\n      CALL FWDREC (*1002,EQEXIN)\r\n      CALL FWDREC (*1002,EQEXIN)\r\n      NZ = IBUF - IEQEX\r\n      CALL READ (*1002,*10,EQEXIN,Z(IEQEX),NZ,1,NEQEX)\r\n      GO TO 1008\r\n   10 CALL CLOSE (EQEXIN,1)\r\nC\r\nC     SORT ON INTERNAL ID\r\nC\r\n      CALL SORT (0,0,2,2,Z(IEQEX),NEQEX)\r\nC\r\nC     SET UP USET MASKS FOR DOF VS. DISP SET PRINTOUT\r\nC\r\n      IF (D32 .EQ. 0) GO TO 100\r\n      MSK( 1) = TWO(USB)\r\n      MSK( 2) = TWO(USG)\r\n      MSK( 3) = TWO( UL)\r\n      MSK( 4) = TWO( UA)\r\n      MSK( 5) = TWO( UF)\r\n      MSK( 6) = TWO( UN)\r\n      MSK( 7) = TWO( UG)\r\n      MSK( 8) = TWO( UR)\r\n      MSK( 9) = TWO( UO)\r\n      MSK(10) = TWO( US)\r\n      MSK(11) = TWO( UM)\r\n      MSK(12) = TWO( UX)\r\n      MSK(13) = TWO( UY)\r\n      MSK(14) = TWO(UFR)\r\n      MSK(15) = TWO( UZ)\r\n      MSK(16) = TWO(UAB)\r\n      MSK(17) = TWO( UI)\r\nC\r\n      DO 20 I = 1,17\r\n   20 SBIT(I) = 0\r\nC\r\nC     PASS THROUGH EQEXIN TABLE AND DETERMINE NUMBER OF DOF FOR EACH\r\nC     POINT\r\nC\r\n      JUSET = IUSET - 1\r\n      LINE  = NLPP\r\n      INPNT = 0\r\n      DO 60 K = 1,NEQEX,2\r\n      ITYPE = MOD(Z(IEQEX+K),10)\r\n      NDOF  = 6\r\n      IF (ITYPE .EQ. 2) NDOF = 1\r\nC\r\nC     FOR EACH DOF - GET USET ENTRY AND TEST VARIOUS MACK BITS\r\nC\r\n      DO 50 KK = 1,NDOF\r\n      JUSET = JUSET + 1\r\n      IU    = Z(JUSET)\r\n      INPNT = INPNT + 1\r\n      EXPNT = Z(IEQEX+K-1)\r\n      IDOF  = KK\r\n      IF (NDOF .EQ. 1) IDOF = 0\r\n      DO 30 IBIT = 1,17\r\n      IF (ANDF(MSK(IBIT),IU) .NE. 0) GO TO 25\r\n      UPBIT(IBIT) = BLANK\r\n      GO TO 30\r\n   25 UPBIT(IBIT) = ASTRIC\r\n      SBIT (IBIT) = SBIT(IBIT) + 1\r\n   30 CONTINUE\r\nC\r\nC     PRINT LINE OF OUTPUT\r\nC\r\n      LINE = LINE + 1\r\n      IF (LINE .LE. NLPP) GO TO 40\r\n      CALL PAGE1\r\n      WRITE (NOUT,2000)\r\n      LINE = 1\r\n   40 WRITE (NOUT,2010) INPNT,EXPNT,DASH,IDOF,UPBIT\r\n   50 CONTINUE\r\n   60 CONTINUE\r\nC\r\nC     PRINT COLUMN TOTALS\r\nC\r\n      WRITE (NOUT,2020) SBIT\r\nC\r\nC     SET UP MASKS FOR DISP SET VS. DOF PRINTOUT\r\nC\r\n  100 IF (D33 .EQ. 0) RETURN\r\n      MSK( 1) = TWO( UM)\r\n      MSK( 2) = TWO( US)\r\n      MSK( 3) = TWO( UO)\r\n      MSK( 4) = TWO( UA)\r\n      MSK( 5) = TWO(USG)\r\n      MSK( 6) = TWO(USB)\r\n      MSK( 7) = TWO( UX)\r\n      MSK( 8) = TWO( UY)\r\n      MSK( 9) = TWO(UFR)\r\nC\r\nC     PASS THROUGH EQEXIN TABLE ONCE FOR EACH DISP SET TO BE PRINTED\r\nC\r\n      DO 150 IMK = 1,9\r\n      INUM  = -9\r\n      ICOL  =  0\r\n      LINE  = NLPP\r\n      JUSET = IUSET - 1\r\n      DO 130 K = 1,NEQEX,2\r\n      ITYPE = MOD(Z(IEQEX+K),10)\r\n      NDOF  = 6\r\n      IF (ITYPE .EQ. 2) NDOF = 1\r\nC\r\nC     FOR EACH DOF - TEST IF IT IS IN DESIRED SET FOR THIS PASS\r\nC\r\n      EXPNT = Z(IEQEX+K-1)\r\n      DO 120 KK = 1,NDOF\r\n      JUSET = JUSET + 1\r\n      IF (ANDF(Z(JUSET),MSK(IMK)) .EQ. 0) GO TO 120\r\n      IDOF = KK\r\n      IF (NDOF .EQ. 1) IDOF = 0\r\n      ICOL = ICOL + 1\r\n      ZGRD(ICOL) = EXPNT\r\n      ZDOF(ICOL) = IDOF\r\n      IF (ICOL .LT. 10) GO TO 120\r\nC\r\nC     WE HAVE ACUMULATED 10 POINTS - PRINT THEM\r\nC\r\n      ICOL = 0\r\n      LINE = LINE + 1\r\n      IF (LINE .LE. NLPP) GO TO 110\r\n      CALL PAGE1\r\n      WRITE (NOUT,2030) (TITLE(I,IMK),I=1,3)\r\n      LINE = 1\r\n  110 INUM = INUM + 10\r\n      WRITE (NOUT,2040) INUM,(ZGRD(I),ZDOF(I),I=1,10)\r\nC\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\nC     PRINT ANY REMAINING ENTRIES\r\nC\r\n      IF (ICOL .EQ. 0) GO TO 150\r\n      LINE = LINE + 1\r\n      IF (LINE .LE. NLPP) GO TO 140\r\n      CALL PAGE1\r\n      WRITE (NOUT,2030) (TITLE(I,IMK),I=1,3)\r\n      LINE = 1\r\n  140 INUM = INUM + 10\r\n      WRITE (NOUT,2040) INUM,(ZGRD(I),ZDOF(I),I=1,ICOL)\r\nC\r\n  150 CONTINUE\r\nC\r\nC     PRINT OUT COMPLETE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS - PRINT NON-FATAL MESSAGE\r\nC\r\n 1001 N = 1\r\n      GO TO 1100\r\n 1002 N = 2\r\n      GO TO 1100\r\n 1008 WRITE (NOUT,2050) UWM\r\n      RETURN\r\n 1100 CALL MESAGE (N,FILE,NAME)\r\n      RETURN\r\nC\r\nC     FORMAT STATEMENTS\r\nC\r\n 2000 FORMAT (//12X,'INT DOF  EXT GP. DOF   SB   SG    L    A    F   ',\r\n     1       'N    G    R    O    S    M    X    Y   FR    Z   AB    I',\r\n     2       /1X,131(1H-))\r\n 2010 FORMAT (10X,I8,1X,I8,1X,A1,I2,1X,17(4X,A1))\r\n 2020 FORMAT (1H0,31H-- C O L U M N   T O T A L S -- ,17I5)\r\n 2030 FORMAT (45X,3A4,17H DISPLACEMENT SET, //16X,3H-1-,8X,3H-2-,8X,\r\n     1        3H-3-,8X,3H-4-,8X,3H-5-,8X,3H-6-,8X,3H-7-,8X,3H-8-,8X,\r\n     2        3H-9-,7X,4H-10- ,/1H )\r\n 2040 FORMAT (1H ,I6,1H=,10(1X,I8,1H-,I1))\r\n 2050 FORMAT (A25,' 8011, INSUFFICIENT CORE TO HOLD CONTENTS OF EQEXIN',\r\n     1     ' DATA BLOCK', /31X,'HYDROELASTIC USET PRINTOUT TERMINATED.')\r\n      END\r\n"
  },
  {
    "path": "mis/flbset.f",
    "content": "      SUBROUTINE FLBSET\r\nC\r\nC     CONSTRUCTS THE HYDROELASTIC USET VECTOR AND WRITES THE CONECT\r\nC     FILE FOR USE IN CORE ALLOCATION DURING MATRIX ASSEMBLY\r\nC\r\n      EXTERNAL      COMPLF   ,RSHIFT   ,ANDF     ,ORF\r\nC\r\n      LOGICAL       ERROR\r\nC\r\n      INTEGER       GEOM2    ,ECT      ,BGPDT    ,SIL      ,MPT\r\n     1             ,GEOM3    ,CSTM     ,USET     ,EQEXIN   ,USETF\r\n     2             ,USETS    ,AF       ,DKGG     ,FBELM    ,FRELM\r\n     3             ,CONECT   ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\n     4             ,Z        ,GROUP(3) ,TWO      ,UX       ,UY\r\n     5             ,UFR      ,UZ       ,UAB      ,UI       ,UA\r\n     6             ,MCB(7)   ,NAME(2)  ,FILE     ,TOTAL    ,NAM(2)\r\nC\r\n      INTEGER       ANDF     ,ORF      ,COMPLF   ,RSHIFT\r\nC\r\nC     MACHINE AND HALF WORD\r\nC\r\n      COMMON / MACHIN /       MACH     ,IHALF    ,JHALF\r\nC\r\nC     GINO FILES\r\nC\r\n      COMMON / FLBFIL /       GEOM2    ,ECT      ,BGPDT    ,SIL\r\n     1                       ,MPT      ,GEOM3    ,CSTM     ,USET\r\n     2                       ,EQEXIN   ,USETF    ,USETS    ,AF\r\n     3                       ,DKGG     ,FBELM    ,FRELM    ,CONECT\r\n     4                       ,AFMAT    ,AFDICT   ,KGMAT    ,KGDICT\r\nC\r\nC     CORE POINTERS\r\nC\r\n      COMMON / FLBPTR /       ERROR    ,ICORE    ,LCORE    ,IBGPDT\r\n     1                       ,NBGPDT   ,ISIL     ,NSIL     ,IGRAV\r\n     2                       ,NGRAV    ,IGRID    ,NGRID    ,IBUF1\r\n     3                       ,IBUF2    ,IBUF3    ,IBUF4    ,IBUF5\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /       Z(1)\r\nC\r\nC     POWERS OF TWO\r\nC\r\n      COMMON /TWO    /        TWO(32)\r\nC\r\nC     USET PIT POSITIONS\r\nC\r\n      COMMON /BITPOS /        BIT1(6)  ,UA       ,BIT2(16) ,UX\r\n     1                       ,UY       ,UFR      ,UZ       ,UAB\r\n     2                       ,UI\r\nC\r\n      DATA    NAME   /        4HFLBS,4HET   /\r\n      DATA    NAM    /        4HCONE,4HCT   /\r\n      DATA    MCB    /        7*0           /\r\nC\r\nC***********************************************************************\r\nC\r\nC     READ SIL INTO CORE\r\nC\r\n      FILE = SIL\r\n      ISIL = ICORE\r\n      NZ   = IGRID - ISIL - 1\r\n      CALL GOPEN (SIL,Z(IBUF1),0)\r\n      CALL READ (*1002,*10,SIL,Z(ISIL),NZ,0,NSIL)\r\n      GO TO 1008\r\n   10 CALL CLOSE (SIL,1)\r\nC\r\nC     WRITE OUT CONECT FILE\r\nC\r\nC     FILE 1 - FOR USE IN ASSEMBLING AF MATRIX, CONTAINS SILS WHICH\r\nC              CONNECT FLUID POINTS TO STRUCTURE POINTS ALONG THE\r\nC              BOUNDARY AND SILS WHICH CONNECT FLUID POINTS ALONG THE\r\nC              FREE SURFACE\r\nC     FILE 2 - FOR USE IN ASSEMBLING THE DKGG MATRIX, CONTAINS SILS\r\nC              WHICH CONNECT STRUCTURE POINTS ALONG THE BOUNDARY AND\r\nC              SILS WHICH CONNECT FLUID POINTS ALONG THE FREE SURFACE\r\nC\r\nC     EACH FILE IS COMPOSED OF A 3 WORD RECORD FOR EACH SIL\r\nC\r\nC              WORD      DESCRIPTION\r\nC\r\nC               1        SIL NUMBER\r\nC               2        MAXIMUN GRID POINTS CONNECTED\r\nC               3        MAXIMUM SILS CONNECTED\r\nC\r\n      FILE = CONECT\r\n      CALL OPEN (*1001,CONECT,Z(IBUF1),1)\r\nC\r\nC     FILE 1\r\nC\r\n      CALL WRITE (CONECT,NAM,2,1)\r\n      DO 20 I = 1,NGRID\r\n      J = IGRID + I - 1\r\n      IF (Z(J) .LE. 0) GO TO 20\r\n      NFR = Z(J) / 1000000\r\n      NFL = Z(J) - NFR*1000000\r\n      GROUP(1) = Z(ISIL+I-1)\r\n      GROUP(2) = NFR+NFL\r\n      GROUP(3) = NFR + 3*NFL\r\n      CALL WRITE (CONECT,GROUP,3,1)\r\n   20 CONTINUE\r\n      CALL EOF (CONECT)\r\nC\r\nC     FILE 2\r\nC\r\n      CALL WRITE (CONECT,NAM,2,1)\r\n      DO 60 I = 1,NGRID\r\n      J = IGRID + I - 1\r\n      IF (Z(J) .GE. 0 .AND. Z(J) .LT. 1000000) GO TO 60\r\n      IF (Z(J) .GT. 0) GO TO 30\r\n      NGROUP = 3\r\n      NNGRID = IABS(Z(J))\r\n      NNSIL  = NNGRID*3\r\n      GO TO 40\r\n   30 NGROUP = 1\r\n      NNGRID = Z(J) / 1000000\r\n      NNSIL  = NNGRID\r\n   40 JSIL   = Z(ISIL+I-1)\r\n      DO 50 J = 1,NGROUP\r\n      GROUP(1) = JSIL\r\n      GROUP(2) = NNGRID\r\n      GROUP(3) = NNSIL\r\n      CALL WRITE (CONECT,GROUP,3,1)\r\n   50 JSIL = JSIL + 1\r\n   60 CONTINUE\r\nC\r\n      CALL CLOSE (CONECT,1)\r\n      MCB(1) = CONECT\r\n      MCB(2) = NGRID\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     READ USET TABLE INTO CORE\r\nC\r\n      FILE  = USET\r\n      IUSET = ISIL  + NSIL  + 1\r\n      NZ    = IGRID - IUSET - 1\r\n      CALL GOPEN (USET,Z(IBUF1),0)\r\n      CALL READ  (*1002,*70,USET,Z(IUSET),NZ,0,NUSET)\r\n      GO TO 1008\r\n   70 CALL CLOSE (USET,1)\r\nC\r\nC     CONSTRUCT A LIST OF FREE SURFACE GRID POINTS BY PASSING THROUGH\r\nC     THE GRID POINT CONNECTIVITY TABLE.\r\nC\r\n      ICORE = IUSET + NUSET\r\n      IFREE = ICORE\r\n      DO 80 I = 1,NGRID\r\n      IF (Z(IGRID+I-1) .LT. 1000000) GO TO 80\r\n      Z(ICORE) = I\r\n      ICORE = ICORE + 1\r\n      IF (ICORE .GE. IGRID) GO TO 1008\r\n   80 CONTINUE\r\n      NFREE = ICORE - IFREE\r\nC\r\nC     PASS THROUGH SIL AND PROCESS EACH GRID POINT TO SET THE\r\nC     APPROPRIATE BIT POSITIONS IN THE NEW USET\r\nC\r\nC     *** NOTE.\r\nC     THE UW BIT IS NO LONGER USED.  INSTEAD THE UA BIT WILL REFLECT\r\nC     THE SOLUTION SET  (UAB + UFR)\r\nC\r\n      Z(ISIL+NSIL) = NUSET + 1\r\n      NSTR  = 0\r\n      TOTAL = 0\r\n      MASKA = COMPLF(TWO(UA))\r\n      JUSET = IUSET\r\n      DO 110 IGRD = 1,NSIL\r\n      K = IBGPDT + 4*(IGRD-1)\r\n      ICSTM = Z(K)\r\n      IF (ICSTM .EQ. -1) GO TO 82\r\n      IF (Z(ISIL+IGRD) .EQ. Z(ISIL+IGRD-1)+1) GO TO 100\r\nC\r\nC     STURCTURE POINT - SET UX AND UZ. ALSO SET UAB IF UA IS SET\r\nC\r\n      NNSIL = 6\r\n      GO TO 84\r\n   82 NNSIL = 1\r\n   84 NSTR  = NSTR + NNSIL\r\n      DO 90 J = 1,NNSIL\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UX))\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UZ))\r\n      IF (ANDF(Z(JUSET),TWO(UA)) .EQ. 0) GO TO 85\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UAB))\r\n   85 CONTINUE\r\n      TOTAL = ORF(TOTAL,Z(JUSET))\r\n   90 JUSET = JUSET + 1\r\n      GO TO 110\r\nC\r\nC     FLUID POINT - SET Y BIT.\r\nC\r\n  100 Z(JUSET) = ORF(Z(JUSET),TWO(UY))\r\n      CALL BISLOC (*102,IGRD,Z(IFREE),1,NFREE,JLOC)\r\nC\r\nC     FREE SURFACE FLUID POINT - SET UFR, UA AND UZ BITS\r\nC\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UFR))\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UA))\r\n      Z(JUSET) = ORF(Z(JUSET),TWO(UZ))\r\n      GO TO 106\r\nC\r\nC     INTERIOR FLUID POINT - SET UI BIT AND TURN OF UA BIT\r\nC\r\n  102 Z(JUSET) = ORF(Z(JUSET),TWO(UI))\r\n      Z(JUSET) = ANDF(Z(JUSET),MASKA)\r\nC\r\n  106 CONTINUE\r\n      TOTAL = ORF(TOTAL,Z(JUSET))\r\n      JUSET = JUSET + 1\r\n  110 CONTINUE\r\nC\r\nC     WRITE OUT NEW USETF VECTOR\r\nC\r\n      CALL GOPEN (USETF,Z(IBUF1),1)\r\n      CALL WRITE (USETF,Z(IUSET),NUSET,1)\r\n      CALL CLOSE (USETF,1)\r\n      MCB(1) = USETF\r\n      MCB(2) = 0\r\n      MCB(3) = NUSET\r\n      MCB(4) = RSHIFT(TOTAL,IHALF)\r\n      MCB(5) = ANDF(TOTAL,JHALF)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     WRITE OUT NEW USETS VECTOR\r\nC\r\n      CALL GOPEN (USETS,Z(IBUF1),1)\r\n      LUSET = IUSET + NUSET - 1\r\n      DO 120 I = IUSET,LUSET\r\n      IF (ANDF(Z(I),TWO(UX)) .EQ. 0) GO TO 120\r\n      CALL WRITE (USETS,Z(I),1,0)\r\n  120 CONTINUE\r\n      CALL CLOSE (USETS,1)\r\n      MASK   = COMPLF(ORF(TWO(UY),TWO(UFR)))\r\n      TOTAL  = ANDF(TOTAL,MASK)\r\n      MCB(1) = USETS\r\n      MCB(3) = NSTR\r\n      MCB(4) = RSHIFT(TOTAL,IHALF)\r\n      MCB(5) = ANDF(TOTAL,JHALF)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     PRINT NEW USET VECTOR IF USER REQUESTS\r\nC\r\n      ICORE = IUSET + NUSET\r\n      CALL FLBPRT (IUSET,ICORE,IBUF1)\r\nC\r\nC     USET PROCESSING COMPLETED\r\nC\r\n      ICORE = IUSET\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1001 N = -1\r\n      GO TO 1100\r\n 1002 N = -2\r\n      GO TO 1100\r\n 1008 N = -8\r\n 1100 CALL MESAGE (N,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flface.f",
    "content": "      SUBROUTINE FLFACE (TYPE,ECT,ELT,GRID)\r\nC\r\nC     LOCATES THE FLUID GRID POINTS DEFINING THE FACE OF A FLUID\r\nC     ELEMENT.  THE FACE MAY BE SPECIFIED IN TWO MANNERS.\r\nC\r\nC     1) FACE NUMBER - ELT(2) LESS THEN ZERO AND FACE = ELT(3)\r\nC     2) STRUCTURAL ELEMENT WHICH COINCIDES WITH FACE -\r\nC                         ELT(2) = ELEMENT ID AND ELT(3)-ELT(6) = GRIDS\r\nC\r\n      LOGICAL         ERROR\r\n      INTEGER         ECT(10)  ,ELT(7)   ,GF(10)   ,TYPE     ,GRID(4)  ,\r\n     1                GS1      ,GS2      ,GS3      ,GS4      ,GF1      ,\r\n     2                GF2      ,GF3      ,GF4      ,GRIDF(4) ,NFACE(4) ,\r\n     3                FACEID   ,HEX1(4,6),HEX2(4,6),TETRA(4,4)         ,\r\n     4                WEDGE(4,5)         ,FACE(4,6,4)\r\n      REAL            MAG      ,R1(3)    ,R2(3)    ,R3(3)    ,KS(3)    ,\r\n     1                KF(3)    ,CS(3)    ,ANGLE(6) ,Z        ,HEIGTH(6)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NBGPDT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      EQUIVALENCE     (HEX1(1,1),FACE(1,1,1)),  (HEX2(1,1),FACE(1,1,2)),\r\n     1                (TETRA(1,1),FACE(1,1,3)), (WEDGE(1,1),FACE(1,1,4))\r\nC\r\nC     DATA DEFINING FACES OF THE FLUID ELEMENTS\r\nC\r\nC     NUMBER OF GRID POINTS PER ELEMENT\r\nC\r\nC                   FHEX1     FHEX2     FTETRA    FWEDGE\r\nC\r\n      DATA    GRIDF / 8        ,8        ,4        ,6       /\r\nC\r\nC     NUMBER OF FACES ON EACH ELEMENT\r\nC\r\n      DATA    NFACE / 6        ,6        ,4        ,5       /\r\nC\r\nC     GRID POINTS WHICH DEFINE FACES FOR FHEX1 ELEMENTS\r\nC\r\n      DATA    HEX1  / 1        ,4        ,3        ,2        ,\r\n     1                1        ,2        ,6        ,5        ,\r\n     2                2        ,3        ,7        ,6        ,\r\n     3                3        ,4        ,8        ,7        ,\r\n     4                4        ,1        ,5        ,8        ,\r\n     5                5        ,6        ,7        ,8        /\r\nC\r\nC     GRID POINTS WHICH DEFINE FACES FOR FHEX2 ELEMENTS\r\nC\r\n      DATA    HEX2  / 1        ,4        ,3        ,2        ,\r\n     1                1        ,2        ,6        ,5        ,\r\n     2                2        ,3        ,7        ,6        ,\r\n     3                3        ,4        ,8        ,7        ,\r\n     4                4        ,1        ,5        ,8        ,\r\n     5                5        ,6        ,7        ,8        /\r\nC\r\nC     GRID POINTS WHICH DEFINE FACES FOR FTETRA ELEMENTS\r\nC\r\n      DATA    TETRA / 1        ,3        ,2        ,-1       ,\r\n     1                1        ,2        ,4        ,-1       ,\r\n     2                2        ,3        ,4        ,-1       ,\r\n     3                3        ,1        ,4        ,-1       /\r\nC\r\nC     GRID POINTS WHICH DEFINE FACES FOR FWEDGE ELEMENTS\r\nC\r\n      DATA    WEDGE / 1        ,3        ,2        ,-1       ,\r\n     1                1        ,2        ,5        ,4        ,\r\n     2                2        ,3        ,6        ,5        ,\r\n     3                3        ,1        ,4        ,6        ,\r\n     4                4        ,5        ,6        ,-1       /\r\nC\r\nC\r\nC     DETERMINE HOW THE FACE IS SPECIFIED\r\nC\r\nC     SUBTRACT IFP CARD NUMBER OF ELEMENT JUST BEFORE CFHEX1 FROM TYPE\r\n      INTYPE = TYPE - 332\r\nC\r\n      NF = NFACE(INTYPE)\r\n      IF (ELT(2) .LT. 0) GO TO 200\r\nC\r\nC     THE FACE IS DEFINED BY STRUCTURAL GRIDS\r\nC\r\nC     INITIALIZE POINTERS TO GRID POINT DATA\r\nC\r\n      NGRIDS = 4\r\n      IF (ELT(6) .LT. 0) NGRIDS = 3\r\n      GS1 = IBGPDT + (ELT(3)-1)*4\r\n      GS2 = IBGPDT + (ELT(4)-1)*4\r\n      GS3 = IBGPDT + (ELT(5)-1)*4\r\n      GS4 = -1\r\n      IF (NGRIDS .EQ. 4) GS4 = IBGPDT + (ELT(6)-1)*4\r\nC\r\n      NGRIDF = GRIDF(INTYPE)\r\n      DO 10 I = 1,NGRIDF\r\n   10 GF(I) = IBGPDT + (ECT(I+2)-1)*4\r\nC\r\nC     FIND NORMAL VECTOR TO STRUCTURAL ELEMENT FACE\r\nC\r\n      DO 20 I = 1,3\r\n      R1(I) = Z(GS2+I) - Z(GS1+I)\r\n   20 R2(I) = Z(GS3+I) - Z(GS1+I)\r\nC\r\n      KS(1) = R1(2)*R2(3) - R1(3)*R2(2)\r\n      KS(2) = R1(3)*R2(1) - R1(1)*R2(3)\r\n      KS(3) = R1(1)*R2(2) - R1(2)*R2(1)\r\nC\r\n      MAG = SQRT(KS(1)**2 + KS(2)**2 + KS(3)**2)\r\n      IF (MAG .LT. 1.0E-7) GO TO 8005\r\n      DO 30 I = 1,3\r\n   30 KS(I) = KS(I)/MAG\r\nC\r\nC     FIND AREA OF STRUCTURE FACE AND TOLERANCE USED IN CHECKING\r\nC     SEPERATIOON\r\nC\r\n      AREA = MAG\r\n      IF (GS4 .LT. 0) AREA = MAG/2.0\r\n      TOL = .2*SQRT(AREA)\r\nC\r\nC     FIND CENTROID OF STRUCTURAL FACE\r\nC\r\n      DO 35 I = 1,3\r\n      CS(I) = Z(GS1+I) + Z(GS2+I) + Z(GS3+I)\r\n      IF (NGRIDS .EQ. 4) CS(I) = CS(I) + Z(GS4+I)\r\n   35 CS(I) = CS(I)/FLOAT(NGRIDS)\r\nC\r\nC     PROCESS EACH FACE OF THE FLUID ELEMENT - FIRST GET GRID POINTERS\r\nC     POINTERS\r\nC\r\n      DO 100 IF = 1,NF\r\n      I   = FACE(1,IF,INTYPE)\r\n      GF1 = GF(I)\r\n      I   = FACE(2,IF,INTYPE)\r\n      GF2 = GF(I)\r\n      I   = FACE(3,IF,INTYPE)\r\n      GF3 = GF(I)\r\n      I   = FACE(4,IF,INTYPE)\r\n      GF4 = -1\r\n      IF (I .GT. 0) GF4 = GF(I)\r\nC\r\nC     FIND NORMAL TO FLUID FACE\r\nC\r\n      DO 40 I = 1,3\r\n      R2(I) = Z(GF2+I) - Z(GF1+I)\r\n   40 R3(I) = Z(GF3+I) - Z(GF1+I)\r\nC\r\n      KF(1) = R2(2)*R3(3) - R2(3)*R3(2)\r\n      KF(2) = R2(3)*R3(1) - R2(1)*R3(3)\r\n      KF(3) = R2(1)*R3(2) - R2(2)*R3(1)\r\nC\r\n      MAG = SQRT(KF(1)**2 + KF(2)**2 + KF(3)**2)\r\n      IF (MAG .LT. 1.0E-7) GO TO 8006\r\n      DO 45 I = 1,3\r\n   45 KF(I) = KF(I)/MAG\r\nC\r\nC     DETERMINE ANGLE BETWEEN FACES\r\nC\r\n      ANGLE(IF) = KF(1)*KS(1) + KF(2)*KS(2) + KF(3)*KS(3)\r\n      IF (ABS(ANGLE(IF)) .LE. .866) GO TO 100\r\nC\r\nC     FIND DISTANCE FROM THE CENTROID OF THE STRUCTURE TO THE FLUID\r\nC     FACE.  THE DISTANCE IS MEASURED ALONG THE NORMAL TO THE\r\nC     FLUID FACE\r\nC\r\n      DO 60 I = 1,3\r\n   60 R2(I) = CS(I) - Z(GF1+I)\r\nC\r\n      HEIGTH(IF) = ABS(KF(1)*R2(1) + KF(2)*R2(2) + KF(3)*R2(3))\r\nC\r\n  100 CONTINUE\r\nC\r\nC     CHOSE THE FACE OF THE FLUID WITH THE SMALLEST DISTANCE TO THE\r\nC     STRUCTURAL ELEMENT AND WITH THE ANGLE BETWEEN THE TWO FACES LESS\r\nC     THEN 30 DEGREES\r\nC\r\n      DIST   = 1.0E+10\r\n      FACEID = 0\r\n      DO 110 IF = 1,NF\r\n      IF (ABS(ANGLE(IF)) .LE. .866) GO TO 110\r\n      IF (HEIGTH(IF) .GE. DIST) GO TO 110\r\n      DIST   = HEIGTH(IF)\r\n      FACEID = IF\r\n  110 CONTINUE\r\n      IF (FACEID .EQ. 0) GO TO 8007\r\nC\r\nC     VERIFY THAT THE FACE IS WITHIN PROPER TOLERENCE\r\nC\r\n      IF (DIST .GT. TOL) GO TO 8008\r\nC\r\nC     IF ANGLE WAS COMPUTED NEGATIVE - SWICTH STRUCTURAL GRIDS AROUND\r\nC     IN ELEMENT TABLE RECORD FOR LATER USE\r\nC\r\n      IF (ANGLE(FACEID) .GE. 0.0) GO TO 300\r\n      IF (NGRIDS .EQ. 3) GO TO 120\r\n      I      = ELT(3)\r\n      ELT(3) = ELT(6)\r\n      ELT(6) = I\r\n      I      = ELT(4)\r\n      ELT(4) = ELT(5)\r\n      ELT(5) = I\r\n      GO TO 300\r\nC\r\n  120 I      = ELT(3)\r\n      ELT(3) = ELT(5)\r\n      ELT(5) = I\r\n      GO TO 300\r\nC\r\nC     THE FACE IS DEFINED BY A FACE ID\r\nC\r\n  200 FACEID = ELT(3)\r\n      IF (FACEID.LT.1 .OR. FACEID.GT.NF) GO TO 8009\r\nC\r\nC     USING THE FACE SPECIFIES OR FOUND - RETURN THE PROPER\r\nC     FLUID GRID POINTS\r\nC\r\n  300 DO 310 I = 1,4\r\n      J = FACE(I,FACEID,INTYPE)\r\n      IF (J .GT. 0) GO TO 305\r\n      GRID(I) = -1\r\n      GO TO 310\r\n  305 GRID(I) = ECT(J+2)\r\n  310 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\nC     BAD GEOMETRY FOR STRUCTURAL ELEMENT\r\nC\r\n 8005 WRITE (NOUT,9005) UFM,ELT(2)\r\n      GO TO 9000\r\nC\r\nC     BAD GEOMETRY FOR FLUID ELEMENT\r\nC\r\n 8006 WRITE (NOUT,9006) UFM,IF,ECT(1)\r\n      GO TO 9000\r\nC\r\nC     NO FACE WITHIN 30 DEGREES FO STRUCTURAL ELEMENT FACE\r\nC\r\n 8007 WRITE (NOUT,9007) UFM,ECT(1),ELT(2)\r\n      GO TO 9000\r\nC\r\nC     FLUID ELEMENT IS NOT WITHIN TOLERENCE RANGE OF STRUCTURAL ELEMENT\r\nC\r\n 8008 WRITE (NOUT,9008) UFM,ECT(1),ELT(2)\r\n      GO TO 9000\r\nC\r\nC     ILLEGAL FACE NUMBER\r\nC\r\n 8009 WRITE (NOUT,9009) UFM,FACEID,ECT(1)\r\nC\r\n 9000 ERROR = .TRUE.\r\n      RETURN\r\nC\r\nC     ERROR FORMATS\r\nC\r\n 9005 FORMAT (A23,' 8005. BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT',\r\n     1        I9)\r\n 9006 FORMAT (A23,' 8006. BAD GEOMETRY DEFINED FOR FACE',I9,\r\n     1       ' OF FLUID ELEMENT',I9)\r\n 9007 FORMAT (A23,' 8007. NO FACE ON FLUID ELEMENT',I9,\r\n     1       ' IS WITHIN 30 DEGREES OF STRUCTURAL ELEMENT',I9)\r\n 9008 FORMAT (A23,' 8008. THE DISTANCE BETWEEN FLUID ELEMENT',I9,\r\n     1       ' AND STRUCTURAL ELEMENT',I9, /30X,\r\n     2       'IS GREATER THAN THE ALLOWED TOLERANCE.')\r\n 9009 FORMAT (A23,' 8009. FACE',I9,' SPECIFIED FOR FLUID ELEMENT',I9,\r\n     1       ' IS AN ILLEGAL VALUE.')\r\n      END\r\n"
  },
  {
    "path": "mis/flfree.f",
    "content": "      SUBROUTINE FLFREE (FRREC,AFE,NAFE,KGE,NKGE)\r\nC\r\nC     CALCULATES THE AREA FACTOR MATRIX AND GRAVITATIONAL STIFFNESS\r\nC     MATRIX FOR A SINGLE FLUID ELEMENT ON THE FREE SURFACE\r\nC\r\n      LOGICAL         ERROR    ,GRAV     ,LTILT\r\n      INTEGER         FRREC(7) ,GF1      ,GF2      ,GF3      ,IZ(1)    ,\r\n     1                GRID(3,4)\r\n      DOUBLE PRECISION          R12(3)   ,R13(3)   ,A        ,RT(3)    ,\r\n     1                AFE(16)  ,KGE(16)  ,AFACT    ,RHOXG\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /FLBPTR/ ERROR    ,ICORE    ,LCORE    ,IBGPDT   ,NGBPDT   ,\r\n     1                ISIL     ,NSIL     ,IGRAV    ,NGRAV\r\n      COMMON /MATIN / MATID    ,INFLAG\r\n      COMMON /MATOUT/ DUM(3)   ,RHO\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /BLANK / NOGRAV   ,NOFREE   ,TILT(2)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\nC\r\nC     GRID POINTS DEFINING FOUR OVERLAPING TRIANGLES IN A QUAD\r\nC\r\n      DATA    GRID  / 1        ,2        ,3        ,\r\n     1                2        ,3        ,4        ,\r\n     2                3        ,4        ,1        ,\r\n     3                4        ,1        ,2        /\r\n      DATA    LTILT / .FALSE.  /\r\nC\r\nC\r\nC     CALCULATE SIZE OF ELEMENT MATRICES\r\nC\r\n      NGRIDF = 4\r\n      IF (FRREC(6) .LT. 0) NGRIDF = 3\r\n      NAFE = NGRIDF*NGRIDF*2\r\n      NKGE = 0\r\nC\r\nC     OBTAIN MATERIAL PROPERTY AND GRAVITY DATA IF A GRAV ID IS GIVEN\r\nC\r\n      GRAV = .FALSE.\r\n      IF (FRREC(7) .EQ. 0) GO TO 6\r\n      INFLAG = 11\r\n      MATID  = FRREC(2)\r\n      CALL MAT (FRREC(1))\r\nC\r\n      IF (NGRAV .EQ. 0) GO TO 70\r\n      LGRAV = IGRAV + NGRAV - 1\r\n      DO 2 I = IGRAV,LGRAV,6\r\n      IF (IZ(I) .EQ. FRREC(7)) GO TO 4\r\n    2 CONTINUE\r\nC\r\n      GO TO 70\r\nC\r\n    4 G = SQRT(Z(I+3)**2 + Z(I+4)**2 + Z(I+5)**2)\r\nC\r\nC     USING THE FIRST GRAV VECTOR DETERMING THE FREE SURFACE PLOTTING\r\nC     ANGLE\r\nC\r\n      IF (LTILT) GO TO 5\r\n      TILT(1) = Z(I+5)/G\r\n      TILT(2) = Z(I+3)/G\r\n      LTILT   = .FALSE.\r\nC\r\n    5 G     = G*Z(I+2)\r\n      RHOXG = DBLE(RHO)*DBLE(G)\r\n      NKGE  = NAFE\r\n      NOGRAV= 1\r\n      GRAV  = .TRUE.\r\nC\r\nC     DETERMINE NUMBER OF OVERLAPING TRIANGLES TO BE UESED\r\nC\r\nC     1 IF TRIANGLAR FLUID FACE\r\nC     4 IF QUADRATIC FLUID FACE\r\nC\r\n    6 ITRIA = 4\r\n      IF (NGRIDF .NE. 4) ITRIA = 1\r\nC\r\nC     ZERO OUT GRAVITATIONAL STIFFNESS AND AREA FACTOR MATRIX\r\nC\r\n      DO 10 I = 1,16\r\n      KGE(I) = 0.0D0\r\n   10 AFE(I) = 0.0D0\r\nC\r\nC     LOOP OVER TRIANGLES\r\nC\r\nC     FIRST LOCATE GRID POINT COORDINATES FOR CORNERS FO THIS TRIANGLE\r\nC\r\n      DO 50 IT = 1,ITRIA\r\nC\r\n      I   = GRID(1,IT)\r\n      GF1 = IBGPDT + (FRREC(I+2)-1)*4\r\n      I   = GRID(2,IT)\r\n      GF2 = IBGPDT + (FRREC(I+2)-1)*4\r\n      I   = GRID(3,IT)\r\n      GF3 = IBGPDT + (FRREC(I+2)-1)*4\r\nC\r\nC     CALCUATE AREA OF TRIAGLE\r\nC     DIVIDE AREA BY TWO IF OVERLAPPING TRIAGLES USED\r\nC\r\n      DO 20 I = 1,3\r\n      R12(I) = Z(GF2+I) - Z(GF1+I)\r\n   20 R13(I) = Z(GF3+I) - Z(GF1+I)\r\nC\r\n      CALL DCROSS (R12,R13,RT)\r\nC\r\n      A = DSQRT(RT(1)*RT(1) + RT(2)*RT(2) + RT(3)*RT(3))/2.0D0\r\n      IF (ITRIA .EQ. 4) A = A/2.0D0\r\nC\r\nC     INSERT AREA AND STIFFNESS CONTRIBUTIONS INTO FULL SIZE\r\nC     ELEMTENT MATRICES\r\nC\r\n      DO 40 I = 1,3\r\n      ICOL = GRID(I,IT)\r\n      ILOC = NGRIDF*(ICOL-1)\r\n      DO 30 J = 1,3\r\n      IROW = GRID(J,IT)\r\n      IF (IROW .EQ. ICOL) AFACT = A/6.0D0\r\n      IF (IROW .NE. ICOL) AFACT = A/12.0D0\r\n      AFE(ILOC+IROW) = AFE(ILOC+IROW) + AFACT\r\n      IF (GRAV) KGE(ILOC+IROW) = KGE(ILOC+IROW) + RHOXG*AFACT\r\n   30 CONTINUE\r\n   40 CONTINUE\r\nC\r\n   50 CONTINUE\r\nC\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n   70 WRITE  (NOUT,80) UFM,FRREC(1),FRREC(7)\r\n   80 FORMAT (A23,' 8012, FLUID ELEMENT',I9,\r\n     1       ' ON A CFFREE CARD REFERENCES UNDEFINED GRAVITY ID',I9)\r\n      ERROR = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flld.f",
    "content": "      SUBROUTINE FLLD (X01,X02,Y0,Z0,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,\r\n     1                 L,KD1R,KD1I,KD2R,KD2I)\r\nC\r\nC     CALCULATION OF THE NUMERATOR OF A DOUBLET LINE OF FINITE LENGTH.\r\nC     LIKE KERN, THERE ARE TWO OUTPUT COMPLEX VALUES REPRESENTED BY\r\nC     FOUR REAL NUMBERS AND AN INPUT OPTION.\r\nC\r\nC     WRITTEN BY D. H. LARSON, STRUCTURAL MECHANICS MDAC 11/70\r\nC\r\nC     X01  -   X - XI1\r\nC     X02  -   X - XI2\r\nC     Y0   -   Y - ETA\r\nC     Z0   -   Z - ZETA\r\nC     SGR  -   SIN ( GAMMA-R)\r\nC     CGR  -   COS ( GAMMA-R)\r\nC     SGS  -   SIN ( GAMMA-S)\r\nC     CGS  -   COS ( GAMMA-S)\r\nC     KR   -   REDUCED FREQUENCY\r\nC     BR   -   REFERENCE LENGTH\r\nC     FMACH-   MACH NUMBER\r\nC     E    -\r\nC     L    -   OPTION FLAG USED IN TKER\r\nC     KD1R -   REAL PART OF  KD1\r\nC     KD1I -   IMAGINARY PART OF KD1\r\nC     KD2R -   REAL PART OF  KD2\r\nC     KD2I -   IMAGINARY PART OF KD2\r\nC\r\n      REAL           KR,KK1R,KK1I,KK2R,KK2I,KD1R,KD1I,KD2R,KD2I,K10T1,\r\n     1               K20T2P,K1RT1,K10,K2IT2P,K20,K2RT2P,K1IT1\r\n      COMPLEX        KD1,KD2,K1XI1,K1XI2,TEMP1,TEMP2,K2XI1,K2XI2\r\n      COMMON  /KDS/  IND,KK1R,KK1I,KK2R,KK2I\r\n      COMMON  /DLM/  K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P\r\nC\r\nC     X01 = X-XI1  AND  X02 = X-XI2, DELXI = XI2-XI1\r\nC\r\n      DELXI = X01 - X02\r\nC\r\nC     FULL KERNEL FROM -TKER-\r\nC\r\n      IND  = 0\r\n      KD1R = 0.0\r\n      KD2R = 0.0\r\n      T1   = KR*DELXI/CBAR\r\n      BR   = CBAR/2.0\r\n      ST1  = SIN(T1)\r\n      CT1  = COS(T1)\r\n      I    = 1\r\n      X0   = X01\r\nC\r\n   10 CALL TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,RT1,RT2,FMACH)\r\nC\r\n      GO TO (30,40), I\r\n   30 K1XI1 = CMPLX(KK1R,KK1I)\r\n      K2XI1 = CMPLX(KK2R,KK2I)\r\n      IF (L .EQ. 0) GO TO 35\r\n      KD1R  = KD1R - K10T1\r\n      KD2R  = KD2R - K20T2P\r\n   35 CONTINUE\r\nC\r\nC     NOW GO CALCULATE FOR XI = XI2\r\nC\r\n      X0 = X02\r\n      I  = 2\r\n      GO TO 10\r\nC\r\n   40 K1XI2 = CMPLX(KK1R,KK1I)\r\n      K2XI2 = CMPLX(KK2R,KK2I)\r\n      IF (L .EQ. 0) GO TO 50\r\n      KD1R  = KD1R + K10T1\r\n      KD2R  = KD2R + K20T2P\r\n   50 CONTINUE\r\nC\r\n      TEMP1 = CMPLX(CT1, ST1)\r\n      TEMP2 = CMPLX(CT1,-ST1)\r\nC\r\nC     DESIRED RESULTS (COMPLEX)\r\nC\r\n      KD1   = K1XI1*TEMP1 - K1XI2*TEMP2\r\n      KD2   = K2XI1*TEMP1 - K2XI2*TEMP2\r\nC\r\nC     CONVERT TO REAL AND IMAGINARY PARTS\r\nC\r\n      KD1R  = REAL (KD1) + KD1R\r\n      KD1I  = AIMAG(KD1)\r\n      KD2R  = REAL (KD2) + KD2R\r\n      KD2I  = AIMAG(KD2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/flunam.f",
    "content": "      SUBROUTINE FLUNAM (LU,FILNAM)\r\nC\r\nC     THIS ROUTINE FORMULATES A FORTRAN LOGICAL UNIT NAME FROM A\r\nC     LOGICAL UNIT NUMBER       =       =       =    ===\r\nC\r\nC     INPUT  LU          e.g. LU = 8\r\nC     OUTPUT FILNAM           FILNAM = 'fort.08'  NOTE - IS .08 NOT .8\r\nc\r\n      CHARACTER   FILNAM*7,FOR7*7,FOR5*5,FORT*5\r\n      EQUIVALENCE (FOR5,FOR7)\r\n      DATA  FORT/ 'fort.' /\r\nC\r\n      J = LU + 100\r\n      WRITE  (FOR7,10) J\r\n   10 FORMAT (4X,I3)\r\n      FOR5   = FORT\r\n      FILNAM = FOR7\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fmdi.f",
    "content": "      SUBROUTINE FMDI (I,J)\r\nC\r\nC     THE SUBROUTINE FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE\r\nC     BLOCK OF MDI CONTAINING THE I-TH DIRECTORY, AND STORES THAT BLOCK\r\nC     IN THE ARRAY BUF STARTING AT LOCATION (MDI+1) AND EXTENDING TO\r\nC     LOCATION (MDI+BLKSIZ).  IT ALSO RETURNS IN J THE (INDEX-1) OF THE\r\nC     DIRECTORY IN BUF.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         MDIUP,NEWBLK\r\n      INTEGER         BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,\r\n     1                ANDF,RSHIFT,NMSBR(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),IODUM(8),MDI,MDIPBN,MDILBN,MDIBL,\r\n     1                NXTDUM(15),DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      DATA    IRD   , IWRT / 1, 2    /\r\n      DATA    INDSBR/ 7    /,  NMSBR /4HFMDI,4H    /\r\nC\r\nC     NDIR IS THE NUMBER OF DIRECTORIES ON ONE BLOCK OF THE MDI.\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      NDIR = BLKSIZ/DIRSIZ\r\nC\r\nC     COMPUTE THE LOGICAL BLOCK NUMBER, AND THE WORD NUMBER WITHIN\r\nC     BUF IN WHICH THE ITH SUBSTRUCTURE DIRECTORY IS STORED.  STORE THE\r\nC     BLOCK NUMBER IN IBLOCK, AND THE WORD NUMBER IN J.\r\nC\r\n      IBLOCK = I/NDIR\r\n      IF (I .EQ. IBLOCK*NDIR) GO TO 10\r\n      IBLOCK = IBLOCK + 1\r\n   10 J = DIRSIZ*(I-(IBLOCK-1)*NDIR-1) + MDI\r\n      IF (MDILBN .EQ. IBLOCK) RETURN\r\n      IF (MDIPBN .EQ. 0) GO TO 20\r\n      IF (.NOT.MDIUP) GO TO 20\r\nC\r\nC     THE MDI BLOCK CURRENTLY IN CORE HAS BEEN UPDATED.  MUST THEREFORE\r\nC     WRITE IT OUT BEFORE READING IN A NEW BLOCK.\r\nC\r\n      CALL SOFIO (IWRT,MDIPBN,BUF(MDI-2))\r\n      MDIUP = .FALSE.\r\nC\r\nC     THE DESIRED MDI BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE\r\nC     FETCH IT.\r\nC\r\n   20 NEWBLK = .FALSE.\r\nC\r\nC     FIND THE PHYSICAL BLOCK NUMBER OF THE BLOCK ON WHICH THE LOGICAL\r\nC     BLOCK IBLOCK IS STORED.\r\nC\r\n      K = MDIBL\r\n      ICOUNT = 1\r\n   30 IF (ICOUNT .EQ. IBLOCK) GO TO 35\r\n      ICOUNT = ICOUNT + 1\r\n      CALL FNXT (K,NXTK)\r\n      IF (MOD(K,2) .EQ. 1) GO TO 32\r\n      IBL = RSHIFT(BUF(NXTK),IHALF)\r\n      GO TO 34\r\n   32 IBL = ANDF(BUF(NXTK),JHALF)\r\n   34 IF (IBL .EQ. 0) GO TO 60\r\n      K = IBL\r\n      GO TO 30\r\n   35 IF (MDIPBN .EQ. K) GO TO 500\r\nC\r\nC     READ THE DESIRED MDI BLOCK INTO CORE.\r\nC\r\n      MDIPBN = K\r\n      MDILBN = IBLOCK\r\n      IF (NEWBLK) RETURN\r\n      CALL SOFIO (IRD,MDIPBN,BUF(MDI-2))\r\n      RETURN\r\nC\r\nC     WE NEED A FREE BLOCK FOR THE MDI.\r\nC\r\n   60 CALL GETBLK (K,IBL)\r\n      IF (IBL .EQ. -1) GO TO 1000\r\n      NEWBLK = .TRUE.\r\n      K   = IBL\r\n      MIN = MDI + 1\r\n      MAX = MDI + BLKSIZ\r\n      DO 70 LL = MIN,MAX\r\n      BUF(LL) = 0\r\n   70 CONTINUE\r\n      CALL SOFIO (IWRT,K,BUF(MDI-2))\r\n      GO TO 30\r\nC\r\nC     ERROR IN UPDATING EITHER MDIPBN OR MDILBN.\r\nC\r\n  500 CALL ERRMKN (INDSBR,6)\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 1000 WRITE  (NOUT,1001) UFM\r\n 1001 FORMAT (A23,' 6223, SUBROUTINE FMDI - THERE ARE NO MORE FREE ',\r\n     1       'BLOCKS AVAILABLE ON THE SOF.')\r\n      CALL SOFCLS\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fname.f",
    "content": "      SUBROUTINE FNAME (FILE,NAME)\r\nC*******\r\nC     GIVEN A FILE NO., FNAME WILL RETURN THE BCD DESCRIPTOR\r\nC*******\r\n      INTEGER FIAT,FILE,FIST,NAME(2)\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XFIAT / FIAT(1)\r\n      DATA    NBLANK/ 4H    /\r\n      DATA    NON1  , NON2  / 4H (NO,4HNE) /\r\nC*******\r\nC     SEARCH THE FIST FOR THE FILE\r\nC*******\r\n      N = FIST(2)*2 + 2\r\n      DO 10 J=3,N,2\r\n      IF (FILE .EQ. FIST(J)) GO TO 20\r\n   10 CONTINUE\r\nC*******\r\nC     FILE DOES NOT EXIST, RETURN -(NONE)-\r\nC*******\r\n      NAME(1) = NON1\r\n      NAME(2) = NON2\r\n      RETURN\r\n   20 K = FIST(J+1)\r\n      IF (K) 21,21,30\r\n   21 CONTINUE\r\nC*******\r\nC     RETURN BCD DESCRIPTOR\r\nC*******\r\n      NAME(1) = FILE\r\n      NAME(2) = NBLANK\r\n      RETURN\r\nC\r\n   30 IX = FIST(J+1) + 2\r\n      NAME(1) = FIAT(IX  )\r\n      NAME(2) = FIAT(IX+1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndgrd.f",
    "content": "      SUBROUTINE FNDGRD( ISUB , ICOMP , IGRID , IP , IC , N )\r\nC\r\n      INTEGER AAA(2),SCSFIL,BUF3,Z,SCORE,IP(6),IC(6)\r\n      COMMON/CMB001/JUNK(3),SCSFIL\r\n      COMMON/CMB002/JUNK1(2),BUF3,JUNK2(2),SCORE,LCORE\r\n      COMMON/CMBFND/  INAM(2),IERR\r\n      COMMON/ZZZZZZ/Z(1)\r\n      DATA AAA/ 4HFNDG,4HRD   /\r\n      CALL OPEN(*2001,SCSFIL,Z(BUF3),0)\r\n      NFIL = ISUB-1\r\n      CALL SKPFIL( SCSFIL , NFIL )\r\n      NREC = ICOMP - 1\r\n      IF( NREC .EQ. 0 ) GO TO 3\r\n      DO 1 I=1,NREC\r\n      CALL FWDREC(*2002,SCSFIL)\r\n1     CONTINUE\r\n3     CALL READ(*2002,*2,SCSFIL,Z(SCORE),LCORE,1,NWD)\r\n      GO TO 2004\r\n2     CONTINUE\r\n      CALL GRIDIP( IGRID , SCORE , NWD , IP , IC , N , Z , LLOC )\r\n      CALL CLOSE( SCSFIL , 1 )\r\n      RETURN\r\n2001  CALL MESAGE( -1 , SCSFIL , AAA )\r\n2002  CALL MESAGE( -2 , SCSFIL , AAA )\r\n2004  CALL MESAGE( -8 , SCSFIL , AAA )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndiam.f",
    "content": "      SUBROUTINE FNDIAM (SND1,SND2,NDSTK,NDEG,LVL,LVLS1,LVLS2,IWK,\r\n     1                   IDFLT,NDLST,JWK,IDIM)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     FNDIAM IS THE CONTROL PROCEDURE FOR FINDING THE PSEUDO-DIAMETER\r\nC     OF NDSTK AS WELL AS THE LEVEL STRUCTURE FROM EACH END\r\nC\r\nC     SND1-     ON INPUT THIS IS THE NODE NUMBER OF THE FIRST\r\nC               ATTEMPT AT FINDING A DIAMETER.  ON OUTPUT IT\r\nC               CONTAINS THE ACTUAL NUMBER USED.\r\nC     SND2-     ON OUTPUT CONTAINS OTHER END OF DIAMETER\r\nC     LVLS1-    ARRAY CONTAINING LEVEL STRUCTURE WITH SND1 AS ROOT\r\nC     LVLS2-    ARRAY CONTAINING LEVEL STRUCTURE WITH SND2 AS ROOT\r\nC     IDFLT-    FLAG USED IN PICKING FINAL LEVEL STRUCTURE, SET =1\r\nC               IF WIDTH OF LVLS1 .GE. WIDTH OF LVLS2, OTHERWISE =2\r\nC     LVL,IWK-  WORKING STORAGE\r\nC     JWK-      WORKING STORAGE, CURRENTLY SHARING SAME SPACE WITH RENUM\r\nC     DIMENSION OF NDLST IS THE MAX NUMBER OF NODES IN LAST LEVEL.\r\nC\r\n      INTEGER          FLAG,     SND,      SND1,     SND2\r\n      DIMENSION        NDEG(1),  LVL(1),   LVLS1(1), LVLS2(1), IWK(1),\r\n     1                 JWK(1),   NDSTK(1), NDLST(IDIM)\r\n      COMMON /BANDB /  DUM3B(3), NGRID\r\n      COMMON /BANDG /  N,        IDPTH\r\nC\r\n      FLAG=0\r\n      MTW2=N\r\n      SND=SND1\r\nC\r\nC     ZERO LVL TO INDICATE ALL NODES ARE AVAILABLE TO TREE\r\nC\r\n   20 DO 25 I=1,N\r\n   25 LVL(I)=0\r\n      LVLN=1\r\nC\r\nC     DROP A TREE FROM SND\r\nC\r\n      CALL TREE (SND,NDSTK,LVL,IWK,NDEG,LVLWTH,LVLBOT,LVLN,MAXLW,MTW2,\r\n     1           JWK)\r\n      IF (FLAG.GE.1) GO TO 110\r\n      FLAG=1\r\n   70 IDPTH=LVLN-1\r\n      MTW1=MAXLW\r\nC\r\nC     COPY LEVEL STRUCTURE INTO LVLS1\r\nC\r\n      DO 75 I=1,N\r\n   75 LVLS1(I)=LVL(I)\r\n      NDXN=1\r\n      NDXL=0\r\n      MTW2=N\r\nC\r\nC     SORT LAST LEVEL BY DEGREE  AND STORE IN NDLST\r\nC\r\n      CALL SORTDG (NDLST,IWK(LVLBOT),NDXL,LVLWTH,NDEG)\r\n      IF (NDXL.LE.IDIM) GO TO 100\r\nC\r\nC     DIMENSION EXCEEDED  . . .  STOP JOB.\r\nC\r\n   80 NGRID=-3\r\n      RETURN\r\nC\r\n  100 CONTINUE\r\n      SND=NDLST(1)\r\n      GO TO 20\r\n  110 IF (IDPTH.GE.LVLN-1) GO TO 120\r\nC\r\nC     START AGAIN WITH NEW STARTING NODE\r\nC\r\n      SND1=SND\r\n      GO TO 70\r\n  120 IF (MAXLW.GE.MTW2) GO TO 130\r\n      MTW2=MAXLW\r\n      SND2=SND\r\nC\r\nC     STORE NARROWEST REVERSE LEVEL STRUCTURE IN LVLS2\r\nC\r\n      DO 125 I=1,N\r\n  125 LVLS2(I)=LVL(I)\r\n  130 IF (NDXN.EQ.NDXL) GO TO 140\r\nC\r\nC     TRY NEXT NODE IN NDLST\r\nC\r\n      NDXN=NDXN+1\r\n      SND=NDLST(NDXN)\r\n      GO TO 20\r\n  140 IDFLT=1\r\n      IF (MTW2.LE.MTW1) IDFLT=2\r\n      IF (IDPTH .GT. IDIM) GO TO 80\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndlvl.f",
    "content": "      SUBROUTINE FNDLVL (NAME,NEWNM)\r\nC\r\nC     THIS SUBROUTINE LOOKS FOR A LOWER LEVEL SUBSTRUCTUE TO THE\r\nC     SUBSTRUCTURE NAME.  IF NAME DOES HAVE A LOWER LEVEL SUBSTRUCTURE,\r\nC     THE NAME OF ONE OF THESE LOWER LEVEL SUBSTRUCTURES WILL BE\r\nC     RETURNED IN NEWNM.  IF NAME DOES NOT HAVE A LOWER LEVEL\r\nC     SUBSTRUCTURE, NAME WILL BE RETURNED IN NEWNM.  IF NAME IS NOT\r\nC     KNOWN TO THE SYSTEM, BLANKS WILL BE RETURNED IN NEWNM.\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      INTEGER         RSHIFT,ANDF,BUF\r\n      DIMENSION       NAME(2),NEWNM(2),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      DATA    LL    / 2 /\r\n      DATA    IEMPTY/ 4H     /, NMSBR / 4HFNDL,4HVL   /\r\nC\r\nC     CHECK IF NAME EXISTS\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      CALL FDSUB (NAME(1),K)\r\n      IF(K .NE. -1) GO TO 10\r\n      NEWNM(1) = IEMPTY\r\n      NEWNM(2) = IEMPTY\r\n      RETURN\r\nC\r\nC     FIND THE LOWER LEVEL SUBSTRUCTURE\r\nC\r\n   10 CALL FMDI (K,IMDI)\r\n      ILL = ANDF(RSHIFT(BUF(IMDI+LL),20),1023)\r\n      IF(ILL .EQ. 0) GO TO 20\r\nC\r\nC     NAME DOES HAVE A LOWER LEVEL SUBSTRUCTURE\r\nC\r\n      CALL FDIT (ILL,JDIT)\r\n      NEWNM(1) = BUF(JDIT)\r\n      NEWNM(2) = BUF(JDIT+1)\r\n      RETURN\r\nC\r\nC     NAME DOES NOT HAVE A LOWER LEVEL SUBSTRUCTURE\r\nC\r\n   20 NEWNM(1) = NAME(1)\r\n      NEWNM(2) = NAME(2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndnxl.f",
    "content": "      SUBROUTINE FNDNXL (NAME,NEWNM)\r\nC\r\nC     THE SUBROUTINE LOOKS FOR A HIGHER LEVEL SUBSTRUCTURE TO THE\r\nC     SUBSTRUCTURE NAME.  IF NAME DOES HAVE A HIGHER LEVEL SUBSTRUCTURE,\r\nC     THE NAME OF THE HIGHER LEVEL SUBSTRUCTURE WILL BE RETURNED IN\r\nC     NEWNM.  IF NAME DOES NOT HAVE A HIGHER LEVEL SUBSTRUCTURE, NAME\r\nC     WILL BE RETURNED IN NEWNM.  IF NAME IS NOT KNOWN TO THE SYSTEM,\r\nC     BLANKS WILL BE RETURNED IN NEWNM.\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         DITUP,MDIUP\r\n      INTEGER         ANDF,BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                MDI,MDIPBN,MDILBN,MDIBL,HL\r\n      DIMENSION       NAME(2),NEWNM(2),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8),\r\n     1                MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15),DITUP,MDIUP\r\n      DATA    HL    / 2     /\r\n      DATA    IEMPTY/ 4H    /, NMSBR /4HFNDN,4HXL  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      CALL FDSUB  (NAME(1),K)\r\n      IF (K .NE. -1) GO TO 10\r\n      NEWNM(1) = IEMPTY\r\n      NEWNM(2) = IEMPTY\r\n      RETURN\r\nC\r\nC     FIND THE HIGHER LEVEL SUBSTRUCTURE TO NAME.\r\nC\r\n   10 CALL FMDI (K,IMDI)\r\n      I = ANDF(BUF(IMDI+HL),1023)\r\n      IF (I .EQ. 0) GO TO 20\r\nC\r\nC     NAME DOES HAVE A HIGHER LEVEL SUBSTRUCTURE.\r\nC\r\n      CALL FDIT (I,JDIT)\r\n      NEWNM(1) = BUF(JDIT  )\r\n      NEWNM(2) = BUF(JDIT+1)\r\n      RETURN\r\nC\r\nC     NAME DOES NOT HAVE A HIGHER LEVEL SUBSTRUCTURE.\r\nC\r\n   20 NEWNM(1) = NAME(1)\r\n      NEWNM(2) = NAME(2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndpar.f",
    "content": "      SUBROUTINE FNDPAR (NP2,INDEX)\r\nC\r\nC     FNDPAR FINDS THE INDEX INTO THE  VPS FOR PARAMETER NUMBER NP\r\nC     IN THE CURRENT OSCAR (THIS PARAMETER MUST BE VARIABLE)\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         OSCAR,NAME(2),ANDF\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /OSCENT/ OSCAR(7)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /SEM   / MASK,MASK2,MASK3\r\n      DATA    NAME  / 4HFNDP,4HAR  /\r\nC\r\n      NIP  = OSCAR(7)\r\n      ITYPE= ANDF(OSCAR(3),7)\r\n      I    = 8 + 3*NIP\r\n      IF (ITYPE .EQ. 2) GO TO 100\r\n      NOP  = OSCAR(I)\r\n      I    = I + 3*NOP + 1\r\n  100 CONTINUE\r\n      I    = I + 1\r\n      NP1  = OSCAR(I)\r\n      NP   = IABS(NP2)\r\n      IF (NP .LE. NP1) GO TO 120\r\n      IF (NP2 .LE.  0) GO TO 200\r\n      WRITE  (NOUT,110) UFM,NP\r\n  110 FORMAT (A23,' 3123, PARAMETER NUMBER',I6,' NOT IN DMAP CALL.')\r\n      CALL MESAGE (-61,0,NAME)\r\n  120 CONTINUE\r\n      NP1 = NP - 1\r\n      K   = I + 1\r\n      IF (NP1 .EQ. 0) GO TO 170\r\n      DO 130 I = 1,NP1\r\n      M   = OSCAR(K)\r\n      IF (M) 140,150,150\r\nC\r\nC     VARTABLE\r\nC\r\n  140 K = K + 1\r\n      GO TO 130\r\nC\r\nC     CONSTANT\r\nC\r\n  150 K = K + 1 + M\r\n  130 CONTINUE\r\nC\r\nC     K POINTS  TO WANTED OSCAR WORD\r\nC\r\n  170 IF (OSCAR(K) .LT. 0) GO TO 190\r\n      IF (NP2 .LE. 0) GO TO 200\r\n      WRITE  (NOUT,180) UFM,NP\r\n  180 FORMAT (A23,' 3124, PARAMETER NUMBER',I6,' IS NOT A VARIABLE.')\r\n      CALL MESAGE (-61,0,NAME)\r\n  190 INDEX = ANDF(OSCAR(K),MASK3)\r\n      RETURN\r\nC\r\nC     PARAMETER SPORT NOT SUPPLIES\r\nC\r\n  200 INDEX = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndplt.f",
    "content": "      SUBROUTINE FNDPLT (PLOTER, MODEL, PMODEL)\r\nC\r\nC     PLOTER = PLOTTER INDEX.\r\nC     MODEL = MODEL INDEX.\r\nC     PMODEL = PLOTTER MODEL ID.\r\nC\r\nC...  DATA FOR PLOTTER + MODEL RECOGNITION.\r\nC\r\n      INTEGER PLOTER, PMODEL(2), PLTTER(2,6), PLTMDL(2,6)\r\nC\r\n      DATA PLTMDL /\r\nC       NASTRAN GENERAL PURPOSE PLOTTER\r\n     1   1HM,1, 1HT,1, 1HD,1,\r\n     2   1HM,0, 1HT,0, 1HD,0/\r\n      DATA PLTTER /\r\n     1   1,-1,  2,-2,  2,-3,\r\n     2   1,+1,  2,+2,  2,+3/\r\nC\r\nC     FIND THE MODEL ID.\r\nC\r\n      N = -1\r\n      N1 = PMODEL(2)\r\n      DO 120 I = 1, 6\r\n      IF (PMODEL(1).NE.PLTMDL(1,I))  GO TO 120\r\n      IF (N.LE.0)  N=I\r\n      IF (N1.EQ.PLTMDL(2,I)) N = I\r\n  120 CONTINUE\r\nC\r\nC     SETUP THE PLOTTER + MODEL INDICES.\r\nC\r\n      I2 = PMODEL(2)\r\n      IF (N.LT.0) I2 = 0\r\n      N = IABS (N)\r\n      DO 130 I = 1,2\r\n      IF (PLTMDL(I,N).NE.0)  PMODEL(I)=PLTMDL(I,N)\r\n  130 CONTINUE\r\n      PLOTER = PLTTER(1,N)\r\n      MODEL  = PLTTER(2,N)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fndpnt.f",
    "content": "      SUBROUTINE FNDPNT (IARY,ID)\r\nC\r\n      INTEGER         NAME(2),OLD,BGPDT,SIL,EDT\r\n      DIMENSION       IARY(4),ISAVE(4),ARRY(3),IRY(3),IEDT(2),ICORE(1),\r\n     1                IFED(2)\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      COMMON /FPT   / DUM(3),NROW1,LCORE\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /LOADX / I1(2),BGPDT,OLD,CSTM,SIL,ISIL,I2,MPT,GPTT,EDT,\r\n     1                IMPT,IGPTT,IED\r\n      EQUIVALENCE     (IRY(1),ARRY(1)), (CORE(1),ICORE(1))\r\n      DATA    NAME  / 4HFNDP,4HNT  /\r\n      DATA    IEDT  / 4HEDT ,4HFEDT/, IFED/4HFEDT,4HST  /\r\nC\r\nC     FIND POINT ON BGPDT\r\nC\r\n      IF (ID .LT. 0) GO TO 90\r\n      IF (ID.LT.268435455 .AND. OLD.GE.0) GO TO 10\r\nC               268435455 = 2**28 - 1\r\n      WRITE  (NOUT,5) ID,OLD\r\n    5 FORMAT (//,' BAD DATA PASSED TO FNDPNT, ID,OLD =',2I14)\r\n      CALL MESAGE (-37,0,NAME)\r\n   10 NS = 4*(ID-OLD)\r\n      IF (NS-4) 70,30,20\r\n   20 CALL READ (*90,*90,BGPDT,ISAVE(1),-NS+4,0,FLAG)\r\n   30 CALL READ (*90,*90,BGPDT,ISAVE(1),    4,0,FLAG)\r\n      OLD = ID\r\n   40 DO 50 I = 1,4\r\n   50 IARY(I) = ISAVE(I)\r\n   60 RETURN\r\nC\r\n   70 IF (NS) 80,40,80\r\n   80 CALL BCKREC (BGPDT)\r\n      OLD = 0\r\n      GO TO 10\r\nC\r\n   90 IPM = BGPDT\r\n  100 CALL MESAGE (-2,IPM,NAME)\r\n  110 IPM = SIL\r\n      GO TO 100\r\n  120 IPM = EDT\r\n      GO TO 100\r\nC\r\nC\r\n      ENTRY FNDSIL (IP)\r\nC     =================\r\nC\r\nC     FIND SIL VALUE\r\nC\r\n  130 NS = IP - ISIL\r\n      IF (NS-1) 140,170,160\r\n  140 IF (NS) 150,180,150\r\n  150 CALL BCKREC (SIL)\r\n      ISIL = 0\r\n      GO TO 130\r\n  160 CALL READ (*110,*110,SIL,I,-NS+1,0,FLAG)\r\n  170 CALL READ (*110,*110,SIL,IF,   1,0,FLAG)\r\n      ISIL = IP\r\n  180 IP   = IF\r\n      GO TO 60\r\nC\r\nC\r\n      ENTRY FEDTST (IDEF)\r\nC     ===================\r\nC\r\nC     FIND ENFORCED DISPLACEMENT\r\nC\r\nC     PUT DEFORM EID S AND VALUES INTO CORE FOR THIS SET\r\nC\r\n      ICP = NROW1 + 1\r\n      K   = 0\r\n      CALL READ (*120,*120,EDT,ARRY(1),-3,0,FLAG)\r\n  200 CALL READ (*120,*210,EDT,ARRY(1), 3,0,FLAG)\r\n      IF (IDEF.NE.IRY(1) .AND. K.EQ.0) GO TO 200\r\n      IF (IDEF .NE. IRY(1)) GO TO 210\r\n      K = K + 2\r\n      CORE(ICP+K   ) = ARRY(3)\r\n      ICORE(ICP+K-1) = IRY(2)\r\n      IF (LCORE-NROW1+K .LE. 0) CALL MESAGE (-8,IPM,IFED)\r\n      GO TO 200\r\n  210 IF (K .EQ. 0) CALL MESAGE (-32,IDEF,IEDT)\r\n      CALL BCKREC (EDT)\r\n      GO TO 60\r\nC\r\nC\r\n      ENTRY FEDT (IED1,DELTA,IDEF)\r\nC     ============================\r\nC\r\nC     FIND VALUE FOR EID IF IT EXISTS\r\nC\r\n      DO 220 I = 1,K,2\r\n      IF (IED1 .NE. ICORE(ICP+I)) GO TO 220\r\n      ICORE(ICP+I) = -ICORE(ICP+I)\r\n      DELTA = CORE(ICP+I+1)\r\n      GO TO 60\r\n  220 CONTINUE\r\n      DELTA = 0.0\r\n      GO TO 60\r\nC\r\nC\r\n      ENTRY FEDTED (IDEF)\r\nC     ===================\r\nC\r\nC     CHECK TO SEE IF ALL ELEMENTS IN THE SET WERE USED\r\nC\r\n      IFOUND = 0\r\n      DO 230 I = 1,K,2\r\n      IF (ICORE(ICP+I) .LT. 0) GO TO 230\r\n      IEDT(1) = ICORE(ICP+I)\r\n      IEDT(2) = IDEF\r\n      CALL MESAGE (30,139,IEDT)\r\n      IFOUND = 1\r\n  230 CONTINUE\r\n      IF (IFOUND .EQ. 1) CALL MESAGE (-61,0,0)\r\n      GO TO 60\r\n      END\r\n"
  },
  {
    "path": "mis/fndset.f",
    "content": "      SUBROUTINE FNDSET (GPID,X,IBUF,N)\r\nC\r\nC     GPID = GRID POINT TABLE FOR THIS SET\r\nC\r\nC     N  = 0 INPUT\r\nC     FNDSET READS THE COORDINATES OF THE GRID POINTS IN THIS SET.\r\nC     IF THE GRID POINT TABLE VALUE IS ZERO THE CORRESPONDING GRID\r\nC     POINT IS NOT USED IN THIS SET AND ITS VALUES SKIPPED, OTHERWISE\r\nC     THE XYZ COORDINDATE VALUES ARE READ FROM BGPDT AND PACKED INTO\r\nC     X SPACE. TOTALLY THERE ARE NGPSET GRID DATA SAVED IN X.\r\nC     CORE NEEDED FOR X = 3*NGPSET (PROVIDED BY CALLING ROUTINE)\r\nC\r\nC     N  = 1 INPUT/OUTPUT\r\nC     FNDSET POSITIONS THE STRESS FILE TO THE SUBCASE/VALUE LAST\r\nC     PROCESSED\r\nC\r\n      INTEGER         GPID(1),BGPDT,OES1,REW,SUBC\r\n      REAL            X(3,1),U(3)\r\n      COMMON /BLANK / NGP,SKP11(4),NGPSET,SKP12(4),SKP21(4),BGPDT,\r\n     1                SKP22(8),OES1\r\n      COMMON /NAMES / NIREW,INPREW,SKPN1(2),REW,NOREW\r\n      COMMON /XXPARM/ SKPP(211),SUBC,FLAG,DATA\r\n      EQUIVALENCE     (U(1),INSUB)\r\n      DATA    TWOPI / 0.0 /\r\nC\r\n      IF (N .NE. 0) GO TO 30\r\n      CALL GOPEN (BGPDT,GPID(IBUF),INPREW)\r\n      J = 1\r\n      DO 20 I = 1,NGP\r\n      IF (GPID(I) .NE. 0) GO TO 10\r\n      CALL FREAD (BGPDT,0,-4,0)\r\n      GO TO 20\r\n   10 CALL FREAD (BGPDT,0,-1,0)\r\n      CALL FREAD (BGPDT,X(1,J),3,0)\r\n      J = J + 1\r\n   20 CONTINUE\r\n      CALL CLOSE (BGPDT,REW)\r\n      GO TO 110\r\nC\r\nC     POSITION OES1\r\nC\r\n   30 IF (TWOPI .LT. 6.2) TWOPI = 8.0*ATAN(1.0)\r\n      CALL GOPEN (OES1,GPID(IBUF),INPREW)\r\n   40 CALL READ  (*90,*90,OES1,J,1,0,I)\r\n      CALL FREAD (OES1,0,-2,0)\r\n      CALL FREAD (OES1,U,3,0)\r\n      IF (SUBC .NE. INSUB) GO TO 70\r\n      IF (FLAG-1.0) 100,60,50\r\n   50 J = J/10\r\nC\r\nC     REAL EIGENVALUE ANALYSIS - CONVERT TO FREQUENCY\r\nC\r\n      IF (J .EQ. 2) U(3) = SQRT(ABS(U(3)))/TWOPI\r\n      IF (DATA-U(3) .GT. 1.0E-6) GO TO 70\r\n      GO TO 100\r\n   60 IF (DATA-U(2)) 70,100,70\r\nC\r\nC     WRONG CASE\r\nC\r\n   70 CALL FWDREC (*90,OES1)\r\n      CALL FWDREC (*90,OES1)\r\n      GO TO 40\r\n   90 N = N + 1\r\n  100 CALL BCKREC (OES1)\r\n      CALL CLOSE  (OES1,NOREW)\r\nC\r\n  110 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fnxt.f",
    "content": "      SUBROUTINE FNXT (II,J)\r\nC\r\nC     FETCHES FROM THE RANDOM ACCESS STORAGE DEVICE THE BLOCK OF THE\r\nC     ARRAY NXT CONTAINING THE ENTRY FOR BLOCK I.  IT STORES THE FETCHED\r\nC     BLOCK IN THE ARRAY BUF, STARTING AT LOCATION NXT.  THE OUTPUT J\r\nC     INDICATES THAT BLOCK I HAS THE JTH ENTRY IN THE ARRAY BUF.\r\nC\r\n      LOGICAL         DITUP,NXTUP\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                BLKSIZ,DIRSIZ,SUPSIZ,FILSIZ,FILNUM,FILSUP\r\n      DIMENSION       NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,IODUM(8),\r\n     1                MDIDUM(4),NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),\r\n     2                NXTCUR,DITUP,MDIUP,NXTUP,NXTRST\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SUPSIZ\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10)\r\n      DATA    IRD   , IWRT,INDSBR  / 1,2, 9 /\r\n      DATA    NMSBR / 4HFNXT,4H    /\r\nC\r\nC     FILNUM IS THE NUMBER OF THE DEVICE TO WHICH BLOCK I BELONGS.\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      INDEX = II\r\n      DO 4 L = 1,NFILES\r\n      IF (INDEX .GT. FILSIZ(L)) GO TO 2\r\n      FILNUM = L\r\n      GO TO 10\r\n    2 INDEX = INDEX - FILSIZ(L)\r\n    4 CONTINUE\r\n      GO TO 500\r\nC\r\nC     INDEX IS THE INDEX OF BLOCK I WITHIN FILE FILNUM.\r\nC     FILSUP IS THE NUMBER OF THE SUPERBLOCK WITHIN FILE FILNUM TO WHICH\r\nC     BLOCK I BELONGS, AND SUPSIZ IS THE SIZE OF A SUPERBLOCK.\r\nC\r\n   10 FILSUP = (INDEX-1)/SUPSIZ\r\n      IF (INDEX-1 .EQ. FILSUP*SUPSIZ) GO TO 20\r\n      FILSUP = FILSUP + 1\r\nC\r\nC     COMPUTE THE LOGICAL BLOCK NUMBER, WITHIN THE ARRAY NXT, IN WHICH\r\nC     THE ITH BLOCK HAS AN ENTRY, ALSO COMPUTE THE INDEX OF THIS ENTRY\r\nC     RELATIVE TO THE ARRAY BUF.  STORE THE BLOCK NUMBER IN IBLOCK, AND\r\nC     THE INDEX IN J.\r\nC\r\n   20 IBLOCK = 0\r\n      MAX = FILNUM - 1\r\n      IF (MAX .LT. 1) GO TO 26\r\n      DO 24 I = 1,MAX\r\n      IBLOCK = IBLOCK + NXTFSZ(I)\r\n   24 CONTINUE\r\n   26 IBLOCK = IBLOCK + FILSUP\r\n      J = (INDEX-(FILSUP-1)*SUPSIZ)/2 + 1 + NXT\r\n      IF (IBLOCK .EQ. NXTLBN) RETURN\r\n      IF (IBLOCK .GT. NXTTSZ) GO TO 500\r\nC\r\nC     THE DESIRED NXT BLOCK IS NOT PRESENTLY IN CORE, MUST THEREFORE\r\nC     FETCH IT.\r\nC\r\n      IF (DITPBN .EQ. 0) GO TO 40\r\nC\r\nC     THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY ONE BLOCK OF THE DIT.\r\nC\r\n      IF (.NOT.DITUP) GO TO 30\r\nC\r\nC     THE DIT BLOCK NOW IN CORE HAS BEEN UPDATED.  MUST THEREFORE WRITE\r\nC     IT OUT BEFORE READING IN THE DESIRED NXT BLOCK.\r\nC\r\n      CALL SOFIO (IWRT,DITPBN,BUF(DIT-2))\r\n      DITUP  = .FALSE.\r\n   30 DITPBN = 0\r\n      DITLBN = 0\r\n      GO TO 50\r\n   40 IF (NXTPBN .EQ. 0) GO TO 50\r\nC\r\nC     THE IN CORE BLOCK SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY ONE BLOCK OF NXT.\r\nC\r\n      IF (.NOT.NXTUP) GO TO 50\r\nC\r\nC     THE NEXT BLOCK CURRENTLY IN CORE HAS BEEN UPDATED.  MUST THEREFORE\r\nC     WRITE IT OUT BEFORE READING IN A NEW BLOCK.\r\nC\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP = .FALSE.\r\nC\r\nC     READ THE DESIRED NXT BLOCK INTO CORE.\r\nC\r\n   50 NXTLBN = IBLOCK\r\n      NXTPBN = 0\r\n      IF (MAX .LT. 1) GO TO 70\r\n      DO 60 I = 1,MAX\r\n      NXTPBN = NXTPBN+FILSIZ(I)\r\n   60 CONTINUE\r\n   70 NXTPBN = NXTPBN + (FILSUP-1)*SUPSIZ + 2\r\n      CALL SOFIO (IRD,NXTPBN,BUF(NXT-2))\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n  500 CALL ERRMKN (INDSBR,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fnxtv.f",
    "content": "      SUBROUTINE FNXTV (V1,V2,V3,V4,V5,ZB,IFN)\r\nC\r\nC     FNXTV OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK\r\nC     PERFORMS THE OPERATIONAL INVERSE.   (SINGLE PREC VERSION)\r\nC\r\nC           T   -\r\nC      B = V  * A  * V\r\nC\r\nC     V1  = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL\r\nC     V2  = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO-\r\nC           RANDOM START VECTOR\r\nC     V3,V4,V5 = WORKING SPACES FOR THREE VECTORS\r\nC     IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO.\r\nC     SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S\r\nC           MANUAL PP. 4.48-19G THRU I\r\nC\r\nC     NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE. SEVERAL\r\nC     KEY AREAS ARE REINFORCED BY DOUBLE PRECISION CALCULATIONS\r\nC\r\nC     IN THIS SINGLE PRECISION VERSION, WE AVOID MATHEMATIC OPERATION\r\nC     IN A DO LOOP, INVOLVING MIXED MODE COMPUTATION AND THE RESULT\r\nC     STORED IN S.P. WORD. SOME MACHINES, SUCH AS VAX, ARE VERY SLOW IN\r\nC     THIS SITUATION. MIXED MODE COMPUTATION AND RESULT IN D.P. IS OK.\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,SR5FLE   ,NAME(5)  ,\r\n     1                   VDOT\r\n      DOUBLE PRECISION   LMBDA     ,LAMBDA\r\n      DOUBLE PRECISION   DBI       ,SDMAX    ,D        ,DB       ,\r\n     1                   DSQ       ,SD       ,AII      ,DTMP     ,\r\n     2                   DEPX      ,DEPX2    ,OPDEPX   ,OMDEPX   ,\r\n     3                   ZERO\r\n      DIMENSION          V1(1)     ,V2(1)    ,V3(1)    ,V4(1)    ,\r\n     1                   V5(1)     ,ZB(1)    ,B(2)\r\n      CHARACTER          UFM*23    ,UWM*25\r\n      COMMON   /XMSSG /  UFM       ,UWM\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,ERRC     ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (KSYSTM(1),SYSBUF)  ,(KSYSTM(2),IO)\r\n      DATA      NAME  /  4HFNXT    ,4HV      ,2*4HBEGN ,4HEND    /\r\n      DATA      VDOT  ,  ZERO /     4HV.     ,0.0D+0             /\r\nC\r\nC     SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS\r\nC\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL  VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA MATRIX\r\nC\r\n      IF (MCBLT(7) .LT. 0) NAME(2) = VDOT\r\n      NAME(3) = NAME(4)\r\n      CALL CONMSG (NAME,3,0)\r\n      ITER  = ITER + 1\r\n      IPRC  = 1\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      IFG   = MCBRM(1)\r\n      IFV   = MCBVEC(1)\r\n      DEPX  = EPX\r\n      DEPX2 = DEPX**2\r\n      OPDEPX= 1.0D0 + DEPX\r\n      OMDEPX= 1.0D0 - DEPX\r\n      D     = ZERO\r\n      NORD1 = NORD - 1\r\nC\r\nC     NORMALIZE START VECTOR\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 20\r\n      CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 10 I = 1,NORD\r\n   10 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 40\r\n   20 DO 30 I = 1,NORD\r\n   30 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\n   40 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 50 I = 1,NORD\r\n   50 V2(I) = V2(I)*TMP\r\n      IF (NORTHO .EQ. 0) GO TO 200\r\nC\r\nC     ORTHOGONALIZE WITH PREVIOUS VECTORS\r\nC\r\n      DO 60 I = 1,NORD\r\n   60 V3(I) = V2(I)\r\n   70 DO 170 IX = 1,14\r\n      NONUL = NONUL + 1\r\n      CALL GOPEN (IFV,ZB(1),RDREW)\r\n      IF (IOPTF .EQ. 0) CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      SDMAX = ZERO\r\n      DO 110 IY = 1,NORTHO\r\n      II = 1\r\n      NN = NORD\r\n      SD = ZERO\r\n      CALL UNPACK (*90,IFV,V5(1))\r\n      DO 80 I = 1,NORD\r\n      SD = SD + DBLE(V3(I)*V5(I))\r\n   80 CONTINUE\r\n   90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD)\r\n      TMP = SNGL(SD)\r\n      DO 100 I = 1,NORD\r\n  100 V2(I) = V2(I) - TMP*V5(I)\r\n  110 CONTINUE\r\n      CALL CLOSE (IFV,EOFNRW)\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 130\r\n      CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 120 I = 1,NORD1\r\n  120 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 150\r\n  130 DO 140 I = 1,NORD1\r\n  140 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\nC\r\nC 150 IF (DSQ .LT. DEPX2) GO TO 500\r\nC\r\nC     COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE,   1/92\r\nC\r\nC     DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND\r\nC     IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR\r\nC     THE 60/64 BIT MACHINES, USING S.P. COMPUTATION)\r\nC     (EPX WAS CHAGNED TO 10.**-10, ALL MACHINE, S.P. AND D.P., 1/92)\r\nC\r\nC     NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS.\r\nC     THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH\r\nC     ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF\r\nC     DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE.\r\nC     (PREVIOUSLY, DO LOOPS 120 AND 140 GO FROM 1 THRU NORD)\r\nC\r\nC     MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME\r\nC     FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ\r\nC     DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS.\r\nC     THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0)\r\nC     GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE\r\nC\r\nC     NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA.\r\nC\r\n  150 D = DBLE(V3(NORD))\r\n      IF (IOPTF .EQ. 1) D = DBLE(V2(NORD))\r\n      D = DBLE(V2(NORD))*D\r\n      DTMP = DSQ\r\n      DSQ  = DSQ + D\r\n      IF (DSQ .LT. DEPX2) GO TO 500\r\n      DTMP = DABS(D/DTMP)\r\n      IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500\r\n      D = ZERO\r\nC\r\n      DSQ = DSQRT(DSQ)\r\n      IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ\r\n      DSQ = 1.0D+0/DSQ\r\n      TMP = SNGL(DSQ)\r\n      DO 160 I = 1,NORD\r\n      V2(I) = V2(I)*TMP\r\n  160 V3(I) = V2(I)\r\n      IF (SDMAX .LT. DEPX) GO TO 200\r\n  170 CONTINUE\r\n      GO TO 500\r\nC\r\n  200 IF (IFN .NE. 0) GO TO 300\r\nC\r\nC     SWEEP START VECTOR FOR ZERO ROOTS\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 220\r\n      CALL FRSW (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 210 I = 1,NORD\r\n  210 DSQ = DSQ + DBLE(V3(I)*V4(I))\r\n      GO TO 240\r\n  220 CALL FRBK (V2(1),V4(1),V3(1),V5(1))\r\n      DO 230 I = 1,NORD\r\n  230 DSQ = DSQ + DBLE(V3(I)*V3(I))\r\n  240 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 250 I = 1,NORD\r\n  250 V2(I) = V3(I)*TMP\r\n      GO TO 320\r\nC\r\nC     CALCULATE OFF DIAGONAL TERM OF B\r\nC\r\n  300 D = ZERO\r\n      DO 310 I = 1,NORD\r\n  310 D = D + DBLE(V2(I)*V4(I))\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   1/92\r\nC     WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WILL BE ALWAYS TRUE.\r\nC\r\n      IF (D .LT. DEPX*DABS(AII)) GO TO 500\r\n  320 CALL GOPEN (IFG,ZB(1),WRT)\r\n      IIP = 1\r\n      NNP = NORD\r\n      IF (IOPTF .EQ. 1) GO TO 330\r\n      CALL FRSW (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      CALL PACK (V2(1),IFG,MCBRM(1))\r\n      GO TO 350\r\n  330 CALL FRBK (V2(1),V4(1),V3(1),V5(1))\r\n      CALL PACK (V4(1),IFG,MCBRM(1))\r\n      DO 340 I = 1,NORD\r\n  340 V4(I) = V3(I)\r\n  350 CALL CLOSE (IFG,NOREW)\r\nC\r\nC     CALCULATE DIAGONAL TERM OF B\r\nC\r\n      AII = ZERO\r\n      DO 400 I = 1,NORD\r\n  400 AII = AII + DBLE(V2(I)*V4(I))\r\n      TMP = SNGL(AII)\r\n      IF (D .EQ. ZERO) GO TO 420\r\n      XD  = SNGL(D)\r\n      DO 410 I = 1,NORD\r\n  410 V3(I) = V3(I) - TMP*V2(I) - XD*V1(I)\r\n      GO TO 440\r\n  420 DO 430 I = 1,NORD\r\n  430 V3(I) = V3(I) - TMP*V2(I)\r\n  440 DB = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 460\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 450 I = 1,NORD\r\n  450 DB = DB + DBLE(V3(I)*V4(I))\r\n      GO TO 480\r\n  460 DO 470 I = 1,NORD\r\n  470 DB = DB + DBLE(V3(I)*V3(I))\r\n  480 DB = DSQRT(DB)\r\n      ERRC = SNGL(DB)\r\n      B(1) = SNGL(AII)\r\n      B(2) = SNGL(D)\r\n      CALL WRITE (SR5FLE,B(1),2,1)\r\n      CALL GOPEN (IFV,ZB(1),WRT)\r\n      IIP  = 1\r\n      NNP  = NORD\r\n      CALL PACK (V2(1),IFV,MCBVEC(1))\r\n      CALL CLOSE (IFV,NOREW)\r\n      NORTHO= NORTHO + 1\r\n      IFN   = NORTHO - NZERO\r\n      IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D\r\n      IF (IFN .GE. MORD) GO TO 630\r\nC\r\nC     IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR\r\nC\r\n      IF (DB .LT. DEPX*DABS(AII)) GO TO 630\r\nC\r\nC     A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1,\r\nC     NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS.\r\nC\r\n      DBI = 1.0D+0/DB\r\n      TMP = SNGL(DBI)\r\n      DO 490 I = 1,NORD\r\n      V1(I) = V2(I)\r\n      V3(I) = V3(I)*TMP\r\n  490 V2(I) = V3(I)\r\n      GO TO 70\r\nC\r\n  500 MORD = IFN\r\n      WRITE (IO,600) UWM,MORD\r\n      GO TO 630\r\nC\r\n  600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X,\r\n     1        'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X,\r\n     2        'ALL EXISTING MODES MAY HAVE BEEN OBTAINED.  USE DIAG 16',\r\n     3        ' TO DETERMINE ERROR BOUNDS',/)\r\n  610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5,\r\n     1        ', AII,DB,D = ',1P,3D16.8)\r\n  620 FORMAT (11X,'ORTH ITER (IX)',I5,',  MAX PROJ (SDMAX)',1P,D16.8,\r\n     1        ',  NORMAL FACT (DSQ)',1P,D16.8)\r\nC\r\n  630 NAME(3) = NAME(5)\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fnxtvc.f",
    "content": "      SUBROUTINE FNXTVC (V1,V2,V3,V4,V5,ZB,IFN)\r\nC\r\nC     FNXTVC OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK2\r\nC     PERFORMS THE OPERATIONAL INVERSE.   (DOUBLE PREC VERSION)\r\nC\r\nC           T   -\r\nC      B = V  * A  * V\r\nC\r\nC     V1  = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL\r\nC     V2  = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO-\r\nC           RANDOM START VECTOR\r\nC     V3,V4,V5 = WORKING SPACES FOR THREE VECTORS\r\nC     IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO.\r\nC     SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S\r\nC           MANUAL PP. 4.48-19G THRU I\r\nC\r\nC     REAL*16, MARKED BY 'CQ', WAS TRIED FOR IMPROVED ACCURACY. BUT THE\r\nC     REAL*16  OPERATIONS ON VAX WERE 10 TIMES SLOWER THAN REAL*8\r\nC     (NUMERIC ACCURACY IS VERY IMPORTANT IN THIS SUBROUTINE)\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,SR5FLE   ,NAME(5)  ,\r\n     1                   VCDOT\r\n      DOUBLE PRECISION   V1(1)     ,V2(1)    ,V3(1)    ,V4(1)    ,\r\n     1                   V5(1)     ,LMBDA    ,LAMBDA   ,B(2)     ,\r\n     2                   ZERO      ,ZB(1)\r\nCQ    REAL*16            D         ,DB       ,DSQ      ,SD       ,\r\n      DOUBLE PRECISION   D         ,DB       ,DSQ      ,SD       ,\r\n     1                   AII       ,DBI      ,DEPX     ,DEPX2    ,\r\n     2                   SDMAX     ,DTMP     ,OPDEPX   ,OMDEPX\r\n      CHARACTER          UFM*23    ,UWM*25\r\n      COMMON   /XMSSG /  UFM       ,UWM\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,ERRC     ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (KSYSTM(1),SYSBUF)  ,(KSYSTM(2),IO)\r\n      DATA      NAME  /  4HFNXT    ,4HVC     ,2*4HBEGN ,4HEND    /\r\n      DATA      VCDOT ,  ZERO /     4HVC.    ,0.0D+0             /\r\nC\r\nC     SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS\r\nC\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL  VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA MATRIX\r\nC\r\n      IF (MCBLT(7) .LT. 0) NAME(2) = VCDOT\r\n      NAME(3) = NAME(4)\r\n      CALL CONMSG (NAME,3,0)\r\n      ITER  = ITER + 1\r\n      IPRC  = 2\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      IFG   = MCBRM(1)\r\n      IFV   = MCBVEC(1)\r\n      DEPX  = EPX\r\n      DEPX2 = DEPX**2\r\n      OPDEPX= 1.0D+0 + DEPX\r\n      OMDEPX= 1.0D+0 - DEPX\r\nCQ    OPDEPX= 1.0Q+0 + DEPX\r\nCQ    OMDEPX= 1.0Q+0 - DEPX\r\n      D     = ZERO\r\n      NORD1 = NORD - 1\r\nC\r\nC     NORMALIZE START VECTOR\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 20\r\n      CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 10 I = 1,NORD\r\n   10 DSQ = DSQ + V2(I)*V3(I)\r\n      GO TO 40\r\n   20 DO 30 I = 1,NORD\r\n   30 DSQ = DSQ + V2(I)*V2(I)\r\n   40 DSQ = 1.0D+0/DSQRT(DSQ)\r\nCQ 40 DSQ = 1.0D+0/QSQRT(DSQ)\r\n      DO 50 I = 1,NORD\r\n   50 V2(I) = V2(I)*DSQ\r\n      IF (NORTHO .EQ. 0) GO TO 200\r\nC\r\nC     ORTHOGONALIZE WITH PREVIOUS VECTORS\r\nC\r\n      DO 60 I = 1,NORD\r\n   60 V3(I) = V2(I)\r\n   70 DO 170 IX = 1,14\r\n      NONUL = NONUL + 1\r\n      CALL GOPEN (IFV,ZB(1),RDREW)\r\n      IF (IOPTF .EQ. 0) CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      SDMAX = ZERO\r\n      DO 110 IY = 1,NORTHO\r\n      II = 1\r\n      NN = NORD\r\n      SD = ZERO\r\n      CALL UNPACK (*90,IFV,V5(1))\r\n      DO 80 I = 1,NORD\r\n      SD = SD + V3(I)*V5(I)\r\n   80 CONTINUE\r\n   90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD)\r\nCQ 90 IF (QABS(SD) .GT. SDMAX) SDMAX = QABS(SD)\r\n      DO 100 I = 1,NORD\r\n  100 V2(I) = V2(I) - SD*V5(I)\r\n  110 CONTINUE\r\n      CALL CLOSE (IFV,EOFNRW)\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 130\r\n      CALL FRMLTD (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 120 I = 1,NORD1\r\n  120 DSQ = DSQ + V2(I)*V3(I)\r\n      GO TO 150\r\n  130 DO 140 I = 1,NORD1\r\n  140 DSQ = DSQ + V2(I)*V2(I)\r\nC\r\nC 150 IF (DSQ .LT. DEPX2) GO TO 500\r\nC\r\nC     COMMENTS FORM G.CHAN/UNISYS ABOUT DSQ AND DEPX2 ABOVE,   1/92\r\nC\r\nC     DEPX2 IS SQUARE OF EPX. ORIGINALLY SINCE DAY 1, EPX (FOR VAX AND\r\nC     IBM) IS 10.**-14 AND THEREFORE DEPX2 = 10.**-28. (10.**-24 FOR\r\nC     THE 60/64 BIT MACHINES, USING S.P. COMPUTATION)\r\nC     (EPX WAS SET TO 10.**-10 FOR ALL MACHINES, S.P. AND D.P., 1/92)\r\nC\r\nC     NOTICE THAT DSQ IS THE DIFFERENCE OF TWO CLOSE NUMERIC NUMBERS.\r\nC     THE FINAL VAULES OF DSQ AND THE PRODUCT OF V2*V2 OR V2*V3 APPROACH\r\nC     ONE ANOTHER, AND DEFFER ONLY IN SIGN. THEREFORE, THE NUMBER OF\r\nC     DIGITS (MANTISSA) AS WELL AS THE EXPONENT ARE IMPORTANT HERE\r\nC     (PREVIOUSLY, DO LOOPS 120 AND 140 COVERED 1 THRU NORD)\r\nC\r\nC     MOST OF THE 32 BIT MACHINES HOLD 15 DIGIT IN D.P. WORD, AND SAME\r\nC     FOR THE 64 BIT MACHINES USING S.P. WORD. THEREFORE, CHECKING DSQ\r\nC     DOWN TO 10.**-28 (OR 10.**-24) IS BEYOND THE HARDWARE LIMITS.\r\nC     THIS MAY EXPLAIN SOME TIMES THE RIGID BODY MODES (FREQUENCY = 0.0)\r\nC     GO TO NEGATIVE; IN SOME INSTANCES REACHING -1.E+5 RANGE\r\nC\r\nC     NEXT 7 LINES TRY TO SOLVE THE ABOVE DILEMMA\r\nC\r\n  150 D = V3(NORD)\r\n      IF (IOPTF .EQ. 1) D = V2(NORD)\r\n      D = V2(NORD)*D\r\n      DTMP = DSQ\r\n      DSQ  = DSQ + D\r\n      IF (DSQ .LT. DEPX2) GO TO 500\r\n      DTMP = DABS(D/DTMP)\r\nCQ    DTMP = QABS(D/DTMP)\r\n      IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500\r\n      D = ZERO\r\nC\r\n      DSQ = DSQRT(DSQ)\r\nCQ    DSQ = QSQRT(DSQ)\r\n      IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ\r\n      DSQ = 1.0D+0/DSQ\r\n      DO 160 I = 1,NORD\r\n      V2(I) = V2(I)*DSQ\r\n  160 V3(I) = V2(I)\r\n      IF (SDMAX .LT. DEPX) GO TO 200\r\n  170 CONTINUE\r\nC\r\n      GO TO 500\r\n  200 IF (IFN .NE. 0) GO TO 300\r\nC\r\nC     SWEEP START VECTOR FOR ZERO ROOTS\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 220\r\n      CALL FRSW2 (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 210 I = 1,NORD\r\n  210 DSQ = DSQ + V3(I)*V4(I)\r\n      GO TO 240\r\n  220 CALL FRBK2 (V2(1),V4(1),V3(1),V5(1))\r\n      DO 230 I = 1,NORD\r\n  230 DSQ = DSQ + V3(I)*V3(I)\r\n  240 DSQ = 1.0D+0/DSQRT(DSQ)\r\nCQ240 DSQ = 1.0D+0/QSQRT(DSQ)\r\n      DO 250 I = 1,NORD\r\n  250 V2(I) = V3(I)*DSQ\r\n      GO TO 320\r\nC\r\nC     CALCULATE OFF DIAGONAL TERM OF B\r\nC\r\n  300 D = ZERO\r\n      DO 310 I = 1,NORD\r\n  310 D = D + V2(I)*V4(I)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS 1/92\r\nC     WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAY TRUE.\r\nC\r\n      IF (D .LT. DEPX*DABS(AII)) GO TO 500\r\nCQ    IF (D .LT. DEPX*QABS(AII)) GO TO 500\r\n  320 CALL GOPEN (IFG,ZB(1),WRT)\r\n      IIP = 1\r\n      NNP = NORD\r\n      IF (IOPTF .EQ. 1) GO TO 330\r\n      CALL FRSW2 (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      CALL PACK (V2(1),IFG,MCBRM(1))\r\n      GO TO 350\r\n  330 CALL FRBK2 (V2(1),V4(1),V3(1),V5(1))\r\n      CALL PACK (V4(1),IFG,MCBRM(1))\r\n      DO 340 I = 1,NORD\r\n  340 V4(I) = V3(I)\r\n  350 CALL CLOSE (IFG,NOREW)\r\nC\r\nC     CALCULATE DIAGONAL TERM OF B\r\nC\r\n      AII = ZERO\r\n      DO 400 I = 1,NORD\r\n  400 AII = AII + V2(I)*V4(I)\r\n      IF (D .EQ. ZERO) GO TO 420\r\n      DO 410 I = 1,NORD\r\n  410 V3(I) = V3(I) - AII*V2(I) - D*V1(I)\r\n      GO TO 440\r\n  420 DO 430 I = 1,NORD\r\n  430 V3(I) = V3(I) - AII*V2(I)\r\n  440 DB = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 460\r\n      CALL FRMLTD (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 450 I = 1,NORD\r\n  450 DB = DB + V3(I)*V4(I)\r\n      GO TO 480\r\n  460 DO 470 I = 1,NORD\r\n  470 DB = DB + V3(I)*V3(I)\r\n  480 DB = DSQRT(DB)\r\nCQ480 DB = QSQRT(DB)\r\n      ERRC = SNGL(DB)\r\n      B(1) = AII\r\n      B(2) = D\r\n      CALL WRITE (SR5FLE,B(1),4,1)\r\n      CALL GOPEN (IFV,ZB(1),WRT)\r\n      IIP  = 1\r\n      NNP  = NORD\r\n      CALL PACK (V2(1),IFV,MCBVEC(1))\r\n      CALL CLOSE (IFV,NOREW)\r\n      NORTHO = NORTHO + 1\r\n      IFN  = NORTHO - NZERO\r\n      IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D\r\n      IF (IFN .GE. MORD) GO TO 630\r\nC\r\nC     IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR\r\nC\r\n      IF (DB .LT. DEPX*DABS(AII)) GO TO 630\r\nC\r\nC     A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1,\r\nC     NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS.\r\nC\r\n      DBI = 1.0D+0/DB\r\n      DO 490 I = 1,NORD\r\n      V1(I) = V2(I)\r\n      V3(I) = V3(I)*DBI\r\n  490 V2(I) = V3(I)\r\n      GO TO 70\r\nC\r\n  500 MORD = IFN\r\n      WRITE (IO,600) UWM,MORD\r\n      GO TO 630\r\nC\r\n  600 FORMAT (A25,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X,\r\n     1        'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X,\r\n     2        'ALL EXISTING MODES MAY HAVE BEEN OBTAINED.  USE DIAG 16',\r\n     3        ' TO DETERMINE ERROR BOUNDS',/)\r\n  610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5,\r\n     1        ', AII,DB,D = ',1P,3D16.8)\r\n  620 FORMAT (11X,'ORTH ITER (IX)',I5,',  MAX PROJ (SDMAX)',1P,D16.8,\r\n     1        ',  NORMAL FACT (DSQ)',1P,D16.8)\r\nC\r\n  630 NAME(3) = NAME(5)\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fnxtvd.f",
    "content": "      SUBROUTINE FNXTVD (V1,V2,V3,V4,V5,ZB,IFN)\r\nC\r\nC     THIS ROUTINE IS SAME AS FNXTV EXCEPT IN CERTAIN KEY AREAS THE\r\nC     COMPUTATIONS ARE REINFORCED BY DOUBLE PRECISION OPERATIONS FOR\r\nC     IMPROVED NUMERIC ACCURACY. IT IS INTENED TO BE USED IN THE 60/64\r\nC     BIT WORD MACHINES\r\nC\r\nC     FOR THE 32 BIT WORD MACHINES, USE FNXTVQ.\r\nC\r\nC     IN SOME 60/64 BIT MACHINES, FNXTVD MAY RUN MUCH SLOWER THAN FNXTV\r\nC\r\nC     THIS ROUTINE IS ACTIVATED BY THE EIGR BULKDATA CARD USING THE BCD\r\nC     WORD 'FEER-Q' INSTEAD OF 'FEER' ON THE 3RD FIELD.\r\nC\r\nC     FNXTVD OBTAINS THE REDUCED TRIDIAGONAL MATRIX B WHERE FRBK2\r\nC     PERFORMS THE OPERATIONAL INVERSE.   (QUAD/DOUBLE PREC VERSION)\r\nC\r\nC           T   -\r\nC      B = V  * A  * V\r\nC\r\nC     V1  = SPACE FOR THE PREVIOUS CURRENT TRIAL VECTOR. INITALLY NULL\r\nC     V2  = SPACE FOR THE CURRENT TRIAL VECTOR. INITIALLY A PSEUDO-\r\nC           RANDOM START VECTOR\r\nC     V3,V4,V5 = WORKING SPACES FOR THREE VECTORS\r\nC     IFN = NO. OF TRIAL VECOTRS EXTRACTED. INITIALLY ZERO.\r\nC     SEE FEER FOR DEFINITIONS OF OTHER PARAMETERS. ALSO PROGRAMMER'S\r\nC           MANUAL PP. 4.48-19G THRU I\r\nC\r\n      INTEGER            SYSBUF    ,CNDFLG   ,SR5FLE   ,NAME(5)  ,\r\n     1                   VDDOT\r\n      DOUBLE PRECISION   LMBDA     ,LAMBDA   ,DBI      ,SDMAX    ,\r\n     1                   D         ,DB       ,DSQ      ,SD       ,\r\n     2                   AII       ,DEPX     ,DEPX2    ,OPDEPX   ,\r\n     3                   OMDEPX    ,ZERO     ,B(2)\r\n      DIMENSION          V1(1)     ,V2(1)    ,V3(1)    ,V4(1)    ,\r\n     1                   V5(1)     ,ZB(1)\r\n      CHARACTER          UFM*23    ,UWM*25\r\n      COMMON   /XMSSG /  UFM       ,UWM\r\n      COMMON   /FEERCX/  IFKAA(7)  ,IFMAA(7) ,IFLELM(7),IFLVEC(7),\r\n     1                   SR1FLE    ,SR2FLE   ,SR3FLE   ,SR4FLE   ,\r\n     2                   SR5FLE    ,SR6FLE   ,SR7FLE   ,SR8FLE   ,\r\n     3                   DMPFLE    ,NORD     ,XLMBDA   ,NEIG     ,\r\n     4                   MORD      ,IBK      ,CRITF    ,NORTHO   ,\r\n     5                   IFLRVA    ,IFLRVC\r\n      COMMON   /FEERXX/  LAMBDA    ,CNDFLG   ,ITER     ,TIMED    ,\r\n     1                   L16       ,IOPTF    ,EPX      ,ERRC     ,\r\n     2                   IND       ,LMBDA    ,IFSET    ,NZERO    ,\r\n     3                   NONUL     ,IDIAG    ,MRANK    ,ISTART\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /OPINV /  MCBLT(7)  ,MCBSMA(7),MCBVEC(7),MCBRM(7)\r\n      COMMON   /UNPAKX/  IPRC      ,II       ,NN       ,INCR\r\n      COMMON   /PACKX /  ITP1      ,ITP2     ,IIP      ,NNP      ,\r\n     1                   INCRP\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW\r\n      EQUIVALENCE        (KSYSTM(1),SYSBUF)  ,(KSYSTM(2),IO)\r\n      DATA      NAME  /  4HFNXT    ,4HVD     ,2*4HBEGN ,4HEND    /\r\n      DATA      VDDOT ,  ZERO /     4HVD.    ,0.0D+0             /\r\nC\r\nC     SR5FLE CONTAINS THE REDUCED TRIDIAGONAL ELEMENTS\r\nC\r\nC     SR6FLE CONTAINS THE G VECTORS\r\nC     SR7FLE CONTAINS THE ORTHOGONAL  VECTORS\r\nC     SR8FLE CONTAINS THE CONDITIONED MAA MATRIX\r\nC\r\n      IF (MCBLT(7) .LT. 0) NAME(2) = VDDOT\r\n      NAME(3) = NAME(4)\r\n      CALL CONMSG (NAME,3,0)\r\n      ITER  = ITER + 1\r\n      IPRC  = 2\r\n      INCR  = 1\r\n      INCRP = INCR\r\n      ITP1  = IPRC\r\n      ITP2  = IPRC\r\n      IFG   = MCBRM(1)\r\n      IFV   = MCBVEC(1)\r\n      DEPX  = DBLE(EPX)\r\n      DEPX2 = DEPX**2\r\n      OPDEPX= 1.0D0 + DEPX\r\n      OMDEPX= 1.0D0 - DEPX\r\n      D     = ZERO\r\n      NORD1 = NORD - 1\r\nC\r\nC     NORMALIZE START VECTOR\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 20\r\n      CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 10 I = 1,NORD\r\n   10 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 40\r\n   20 DO 30 I = 1,NORD\r\n   30 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\n   40 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 50 I = 1,NORD\r\n   50 V2(I) = V2(I)*TMP\r\n      IF (NORTHO .EQ. 0) GO TO 200\r\nC\r\nC     ORTHOGONALIZE WITH PREVIOUS VECTORS\r\nC\r\n      DO 60 I = 1,NORD\r\n   60 V3(I) = V2(I)\r\n   70 DO 170 IX = 1,14\r\n      NONUL = NONUL + 1\r\n      CALL GOPEN (IFV,ZB(1),RDREW)\r\n      IF (IOPTF .EQ. 0) CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      SDMAX = ZERO\r\n      DO 110 IY = 1,NORTHO\r\n      II = 1\r\n      NN = NORD\r\n      SD = ZERO\r\n      CALL UNPACK (*90,IFV,V5(1))\r\n      DO 80 I = 1,NORD\r\n      SD = SD + DBLE(V3(I)*V5(I))\r\n   80 CONTINUE\r\n   90 IF (DABS(SD) .GT. SDMAX) SDMAX = DABS(SD)\r\n      TMP = SNGL(SD)\r\n      DO 100 I = 1,NORD\r\n  100 V2(I) = V2(I) - TMP*V5(I)\r\n  110 CONTINUE\r\n      CALL CLOSE (IFV,EOFNRW)\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 130\r\n      CALL FRMLT (MCBSMA(1),V2(1),V3(1),V5(1))\r\n      DO 120 I = 1,NORD1\r\n  120 DSQ = DSQ + DBLE(V2(I)*V3(I))\r\n      GO TO 150\r\n  130 DO 140 I = 1,NORD1\r\n  140 DSQ = DSQ + DBLE(V2(I)*V2(I))\r\nC\r\n  150 D = DBLE(V3(NORD))\r\n      IF (IOPTF .EQ. 1) D = DBLE(V2(NORD))\r\n      D = DBLE(V2(NORD))*D\r\n      DTMP = DSQ\r\n      DSQ  = DSQ + D\r\n      IF (DSQ .LT. DEPX2) GO TO 500\r\n      DTMP = DABS(D/DTMP)\r\n      IF (DTMP.GT.OMDEPX .AND. DTMP.LT.OPDEPX) GO TO 500\r\n      D = ZERO\r\nC\r\n      DSQ = DSQRT(DSQ)\r\n      IF (L16 .NE. 0) WRITE (IO,620) IX,SDMAX,DSQ\r\n      DSQ = 1.0D+0/DSQ\r\n      TMP = SNGL(DSQ)\r\n      DO 160 I = 1,NORD\r\n      V2(I) = V2(I)*TMP\r\n  160 V3(I) = V2(I)\r\n      IF (SDMAX .LT. DEPX) GO TO 200\r\n  170 CONTINUE\r\n      GO TO 500\r\nC\r\n  200 IF (IFN .NE. 0) GO TO 300\r\nC\r\nC     SWEEP START VECTOR FOR ZERO ROOTS\r\nC\r\n      DSQ = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 220\r\n      CALL FRSW (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 210 I = 1,NORD\r\n  210 DSQ = DSQ + DBLE(V3(I)*V4(I))\r\n      GO TO 240\r\n  220 CALL FRBK (V2(1),V4(1),V3(1),V5(1))\r\n      DO 230 I = 1,NORD\r\n  230 DSQ = DSQ + DBLE(V3(I)*V3(I))\r\n  240 DSQ = 1.0D+0/DSQRT(DSQ)\r\n      TMP = SNGL(DSQ)\r\n      DO 250 I = 1,NORD\r\n  250 V2(I) = V3(I)*TMP\r\n      GO TO 320\r\nC\r\nC     CALCULATE OFF DIAGONAL TERM OF B\r\nC\r\n  300 D = ZERO\r\n      DO 310 I = 1,NORD\r\n  310 D = D + DBLE(V2(I)*V4(I))\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   1/92\r\nC     WHAT HAPPENS IF D IS NEGATIVE HERE? NEXT LINE WOULD BE ALWAYS TRUE\r\nC\r\n      IF (D .LT. DEPX*DABS(AII)) GO TO 500\r\n  320 CALL GOPEN (IFG,ZB(1),WRT)\r\n      IIP = 1\r\n      NNP = NORD\r\n      IF (IOPTF .EQ. 1) GO TO 330\r\n      CALL FRSW (V2(1),V4(1),V3(1),V5(1))\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      CALL PACK (V2(1),IFG,MCBRM(1))\r\n      GO TO 350\r\n  330 CALL FRBK (V2(1),V4(1),V3(1),V5(1))\r\n      CALL PACK (V4(1),IFG,MCBRM(1))\r\n      DO 340 I = 1,NORD\r\n  340 V4(I) = V3(I)\r\n  350 CALL CLOSE (IFG,NOREW)\r\nC\r\nC     CALCULATE DIAGONAL TERM OF B\r\nC\r\n      AII = ZERO\r\n      DO 400 I = 1,NORD\r\n  400 AII = AII + DBLE(V2(I)*V4(I))\r\n      TMP = SNGL(AII)\r\n      IF (D .EQ. ZERO) GO TO 420\r\n      TMX = SNGL(D)\r\n      DO 410 I = 1,NORD\r\n  410 V3(I) = V3(I) - TMP*V2(I) - TMX*V1(I)\r\n      GO TO 440\r\n  420 DO 430 I = 1,NORD\r\n  430 V3(I) = V3(I) - TMP*V2(I)\r\n  440 DB = ZERO\r\n      IF (IOPTF .EQ. 1) GO TO 460\r\n      CALL FRMLT (MCBSMA(1),V3(1),V4(1),V5(1))\r\n      DO 450 I = 1,NORD\r\n  450 DB = DB + DBLE(V3(I)*V4(I))\r\n      GO TO 480\r\n  460 DO 470 I = 1,NORD\r\n  470 DB = DB + DBLE(V3(I)*V3(I))\r\n  480 DB = DSQRT(DB)\r\n      ERRC = SNGL(DB)\r\n      B(1) = AII\r\n      B(2) = D\r\n      CALL WRITE (SR5FLE,B(1),4,1)\r\n      CALL GOPEN (IFV,ZB(1),WRT)\r\n      IIP  = 1\r\n      NNP  = NORD\r\n      CALL PACK (V2(1),IFV,MCBVEC(1))\r\n      CALL CLOSE (IFV,NOREW)\r\n      NORTHO= NORTHO + 1\r\n      IFN   = NORTHO - NZERO\r\n      IF (L16 .NE. 0) WRITE (IO,610) IFN,MORD,AII,DB,D\r\n      IF (IFN .GE. MORD) GO TO 630\r\nC\r\nC     IF NULL VECTOR GENERATED, RETURN TO OBTAIN A NEW SEED VECTOR\r\nC\r\n      IF (DB .LT. DEPX*DABS(AII)) GO TO 630\r\nC\r\nC     A GOOD VECTOR IN V2. MOVE IT INTO 'PREVIOUS' VECTOR SPACE V1,\r\nC     NORMALIZE V3 AND V2. LOOP BACK FOR MORE VECTORS.\r\nC\r\n      DBI = 1.0D+0/DB\r\n      TMP = SNGL(DBI)\r\n      DO 490 I = 1,NORD\r\n      V1(I) = V2(I)\r\n      V3(I) = V3(I)*TMP\r\n  490 V2(I) = V3(I)\r\n      GO TO 70\r\nC\r\n  500 MORD = IFN\r\n      WRITE (IO,600) UWM,MORD\r\n      GO TO 630\r\nC\r\n  600 FORMAT (A23,' 2387, PROBLEM SIZE REDUCED TO',I5,' DUE TO -', /5X,\r\n     1        'ORTHOGONALITY DRIFT OR NULL TRIAL VECTOR', /5X,\r\n     2        'ALL EXISTING MODES MAY HAVE BEEN OBTAINED.  USE DIAG 16',\r\n     3        ' TO DETERMINE ERROR BOUNDS',/)\r\n  610 FORMAT (5X,'TRIDIAGONAL ELEMENTS ROW (IFN)',I5, /5X,'MORD =',I5,\r\n     1        ', AII,DB,D = ',1P,3D16.8)\r\n  620 FORMAT (11X,'ORTH ITER (IX)',I5,',  MAX PROJ (SDMAX)',1P,D16.8,\r\n     1        ',  NORMAL FACT (DSQ)',1P,D16.8)\r\nC\r\n  630 NAME(3) = NAME(5)\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/forfil.f",
    "content": "      INTEGER FUNCTION FORFIL (NAME)\r\nC\r\nC     FORFIL RETURNS THE LOGICAL UNIT TO WHICH NAME IS ASSIGNED.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         ANDF    ,EXFIAT,FIAT  ,FIST  ,SYSOUT\r\n      CHARACTER       UFM*23  ,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM     ,UWM   ,UIM   ,SFM\r\n      COMMON /SYSTEM/ SYSBUF  ,SYSOUT\r\n      COMMON /XXFIAT/ EXFIAT(1)\r\n      COMMON /XFIAT / FIAT(1)\r\n      COMMON /XFIST / MFIST   ,NFIST ,FIST(1)\r\nC\r\nC     SEARCH FIST FOR NAME. ERROR IF NOT FOUND.\r\nC\r\n      NN = 2*NFIST - 1\r\n      DO 2001 I = 1,NN,2\r\n      IF (FIST(I) .EQ. NAME) GO TO 2010\r\n 2001 CONTINUE\r\n      WRITE  (SYSOUT,2002) SFM,NAME,NAME\r\n 2002 FORMAT (A25,' 2179, ERROR DETECTED IN FUNCTION FORFIL',A4,I4,\r\n     1       ' NOT IN FIST.')\r\n      CALL MESAGE (-61,0,0)\r\n      FORFIL = 0\r\n      RETURN\r\nC\r\nC     PICK UP UNIT FROM /XXFIAT/ OR /XFIAT/ AND RETURN.\r\nC\r\n 2010 J = FIST(I+1)\r\n      IF (J) 2013,2014,2015\r\n 2013 J = -J\r\n 2014 FORFIL = ANDF(EXFIAT(J+1),32767)\r\n      RETURN\r\n 2015 FORFIL = ANDF(FIAT(J+1),32767)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/form1.f",
    "content": "      SUBROUTINE FORM1(U0,UDOT0,U1,P0,P1,DELTT,IBUF)\r\nC*******\r\nC     FORM1 GENERATES THE STARTING VECTORS FOR THE INTEGRATION MODULE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC*******\r\n      DIMENSION          U0(1)     ,UDOT0(1) ,U1(1)    ,P0(1)    ,\r\n     1                   P1(1),IBUF(1)\r\nC\r\n      COMMON /BLANK/  DUMMY(5)  ,ISTART\r\n      COMMON   /TRDXX /  IFILK(7)  ,IFILM(7) ,IFILB(7)\r\nC\r\n      NROW = IFILK(2)\r\nC\r\nC*******\r\nC     FORM U(-1)\r\nC*******\r\n      DO 10 I = 1,NROW\r\n      P1(I) = 0.\r\n   10 U1(I) = U0(I)-DELTT*UDOT0(I)\r\n      IF (ISTART.GE.0) GO TO 30\r\n      DO 15 I = 1, NROW\r\n      P0(I) = 0.0\r\n   15 CONTINUE\r\nC*******\r\nC     FORM P0\r\nC*******\r\n      CALL MATVEC(U0(1),P0(1),IFILK(1),IBUF)\r\n      CALL MATVEC(UDOT0(1),P0(1),IFILB(1),IBUF)\r\nC*******\r\nC     FORM P(-1)\r\nC*******\r\n      CALL MATVEC(UDOT0(1),P1(1),IFILK(1),IBUF)\r\n      DO 20 I = 1,NROW\r\n   20 P1(I) = P0(I)-DELTT*P1(I)\r\n      RETURN\r\nC\r\nC     ALTERNATE STARTING METHOD\r\nC\r\n   30 CALL MATVEC (U0(1), P1(1), IFILK(1), IBUF)\r\n      CALL MATVEC (UDOT0(1), P1(1), IFILB(1), IBUF)\r\n      DO 40 I = 1, NROW\r\n      P0(I) = 0.5*(P0(I) + P1(I))\r\n      UDOT0(I) = - UDOT0(I)*DELTT\r\n   40 CONTINUE\r\nC\r\nC     ADD UDOT CONTRIBUTION\r\nC\r\n      CALL MATVEC (UDOT0(1), P1(1), IFILK(1), IBUF)\r\nC\r\nC     RESTORE UDOT\r\nC\r\n      DO 50 I = 1, NROW\r\n      UDOT0(I) = - UDOT0(I)/DELTT\r\n   50 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/form12.f",
    "content": "      SUBROUTINE FORM12 (U0, UDOT0, U1, P0, P1, DELTT, IBUF)\r\nC*******\r\nC     FORM12 GENERATES THE STARTING VECTORS FOR THE INTEGRATION MODULE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC*******\r\n      DOUBLE PRECISION   U0(1)     ,UDOT0(1) ,U1(1)    ,P0(1)    ,\r\n     1                   P1(1)\r\nC\r\n      DIMENSION          IBUF(1)\r\nC\r\n      COMMON /BLANK/  DUMMY(5)  ,ISTART\r\n      COMMON   /TRDXX /  IFILK(7)  ,IFILM(7) ,IFILB(7)\r\nC\r\n      NROW = IFILK(2)\r\nC*******\r\nC     FORM U(-1)\r\nC*******\r\n      DO 10 I = 1,NROW\r\n      P1(I) = 0.0D0\r\n   10 U1(I) = U0(I)-DELTT*UDOT0(I)\r\n      IF (ISTART.GE.0) GO TO 30\r\n      DO 15 I = 1, NROW\r\n      P0(I) = 0.0D0\r\n   15 CONTINUE\r\nC*******\r\nC     FORM P0\r\nC*******\r\n      CALL MATVC2(U0(1),P0(1),IFILK(1),IBUF)\r\n      CALL MATVC2(UDOT0(1),P0(1),IFILB(1),IBUF)\r\nC*******\r\nC     FORM P(-1)\r\nC*******\r\n      CALL MATVC2(UDOT0(1),P1(1),IFILK(1),IBUF)\r\n      DO 20 I = 1,NROW\r\n   20 P1(I) = P0(I)-DELTT*P1(I)\r\n      RETURN\r\nC\r\nC     ALTERNATE STARTING METHOD\r\nC\r\n   30 CALL MATVC2 (U0(1), P1(1), IFILK(1), IBUF)\r\n      CALL MATVC2 (UDOT0(1), P1(1), IFILB(1), IBUF)\r\n      DO 40 I = 1, NROW\r\n      P0(I) = 0.5D0*(P0(I) + P1(I))\r\n      UDOT0(I) = - UDOT0(I)*DELTT\r\n   40 CONTINUE\r\nC\r\nC     ADD UDOT CONTRIBUTION\r\nC\r\n      CALL MATVC2 (UDOT0(1), P1(1), IFILK(1), IBUF)\r\nC\r\nC     RESTORE UDOT\r\nC\r\n      DO 50 I = 1, NROW\r\n      UDOT0(I) = - UDOT0(I)/DELTT\r\n   50 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/form2.f",
    "content": "      SUBROUTINE FORM2(UDDIP1,UDIPRM,UIPRM,PIPRM,IBUF)\r\nC*******\r\nC     FORM2 GENERATES THE VECTORS NECESSARY TO CHANGE THE TIME STEP\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC*******\r\n      DIMENSION UDDIP1(1),UDIPRM(1),UIPRM(1),PIPRM(1),IBUF(1)\r\nC\r\n      COMMON   /TRDXX /  IFILK(7)  ,IFILM(7) ,IFILB(7)\r\nC*******\r\nC     FORM UDOT(I+1), UDDOT(I+1), UDOT-(I), AND U-(I)\r\nC*******\r\n      CALL MATVEC(UDDIP1(1),PIPRM(1),IFILM(1),IBUF)\r\n      CALL MATVEC(UDIPRM(1),PIPRM(1),IFILB(1),IBUF)\r\n      CALL MATVEC(UIPRM(1),PIPRM(1),IFILK(1),IBUF)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/form22.f",
    "content": "      SUBROUTINE FORM22 (UDDIP1, UDIPRM, UIPRM, PIPRM, IBUF)\r\nC*******\r\nC     FORM22 GENERATES THE VECTORS NECESSARY TO CHANGE THE TIME STEP\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC*******\r\n      DOUBLE PRECISION UDDIP1(1), UDIPRM(1), UIPRM(1), PIPRM(1)\r\nC\r\n      DIMENSION IBUF(1)\r\nC\r\n      COMMON   /TRDXX /  IFILK(7)  ,IFILM(7) ,IFILB(7)\r\nC*******\r\nC     FORM UDOT(I+1), UDDOT(I+1), UDOT-(I), AND U-(I)\r\nC*******\r\n      CALL MATVC2(UDDIP1(1),PIPRM(1),IFILM(1),IBUF)\r\n      CALL MATVC2(UDIPRM(1),PIPRM(1),IFILB(1),IBUF)\r\n      CALL MATVC2(UIPRM(1),PIPRM(1),IFILK(1),IBUF)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/format.f",
    "content": "      SUBROUTINE FORMAT (A,N1X,N2X,N3X,L1X,L2X)\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      REAL            FF(6),F(6,6,2),F11(6),F21(6),F31(6),F41(6),F51(6),\r\n     1                F61(6),F12(6),F22(6),F32(6),F42(6),F52(6),F62(6)\r\n      DIMENSION       A(6)\r\n      COMMON /SYSTEM/ SKIP,MO\r\n      EQUIVALENCE     (F11(1),F(1,1,1)), (F21(1),F(1,2,1)),\r\n     1                (F31(1),F(1,3,1)), (F41(1),F(1,4,1)),\r\n     2                (F51(1),F(1,5,1)), (F61(1),F(1,6,1)),\r\n     3                (F12(1),F(1,1,2)), (F22(1),F(1,2,2)),\r\n     4                (F32(1),F(1,3,2)), (F42(1),F(1,4,2)),\r\n     5                (F52(1),F(1,5,2)), (F62(1),F(1,6,2))\r\n      DATA    F11   / 4H(I5, ,4H49X, ,4H1P,1 ,4HE19. ,4H6,I0 ,4H58)  /,\r\n     1        F21   / 4H(I5, ,4H40X, ,4H1P,2 ,4HE19. ,4H6,I0 ,4H48)  /,\r\n     2        F31   / 4H(I5, ,4H30X, ,4H1P,0 ,4HE19. ,4H6,I0 ,4H39)  /,\r\n     3        F41   / 4H(I5, ,4H21X, ,4H1P,4 ,4HE19. ,4H6,I0 ,4H29)  /,\r\n     4        F51   / 4H(I5, ,4H11X, ,4H1P,5 ,4HE19. ,4H6,I0 ,4H20)  /,\r\n     5        F61   / 4H(I5, ,4H02X, ,4H1P,6 ,4HE19. ,4H6,I0 ,4H10)  /\r\n      DATA    F12   / 4H(I5, ,4H02X, ,4H1P,1 ,4HE19. ,4H6,I1 ,4H05)  /,\r\n     1        F22   / 4H(I5, ,4H02X, ,4H1P,2 ,4HE19. ,4H6,I0 ,4H86)  /,\r\n     2        F32   / 4H(I5, ,4H02X, ,4H1P,3 ,4HE19. ,4H6,I0 ,4H67)  /,\r\n     3        F42   / 4H(I5, ,4H02X, ,4H1P,4 ,4HE19. ,4H6,I0 ,4H48)  /,\r\n     4        F52   / 4H(I5, ,4H02X, ,4H1P,5 ,4HE19. ,4H6,I0 ,4H29)  /,\r\n     5        F62   / 4H(I5, ,4H02X, ,4H1P,6 ,4HE19. ,4H6,I0 ,4H10)  /\r\nC\r\n       N1 = N1X\r\n       N2 = N2X\r\n       N3 = N3X\r\n       L1 = L1X\r\n       L2 = L2X\r\n       N  = (N2-N1+N3)/N3\r\n       IF (N .LE. 0) GO TO 20\r\n       IF (N .GT. 6) N = 6\r\n       L  = 2\r\n       IF (L1.LE.0 .OR. L2.LE.0) L = 1\r\n       DO 10 I = 1,6\r\n       FF(I) = F(I,N,L)\r\n   10  CONTINUE\r\n       L1 = IABS(L1)\r\n       L2 = IABS(L2)\r\n       WRITE (MO,FF,ERR=20) L1,(A(I),I=N1,N2,N3),L2\r\nC\r\n   20  RETURN\r\n       END\r\n"
  },
  {
    "path": "mis/formg2.f",
    "content": "      SUBROUTINE FORMG2(IG,JR,JD,IR,ID)\r\nC\r\nC     FORMGG FORMS THE GG MATRIX FOR EACH RIGID ELEMENT DEGREE OF\r\nC     FREEDOM.  IG IS THE START OF THE ROW STORED GG MATRIX - 1\r\nC     JR IS THE START OF THE TA MATRIX - 1.\r\nC     JD IS THE START OF THE TB MATRIX - 1.\r\nC     IR IS THE START OF THE BGPDT INFORMATION FOR REFERENCE POINT\r\nC     ID IS THE START OF THE BGPDT INFORMATION FOR DEPENDENT POINT\r\nC\r\n      DOUBLE PRECISION XD,YD,ZD,ZZ(1)\r\n      DIMENSION ZR(1)\r\n      INTEGER Z\r\n      COMMON/ZZZZZZ/Z(1)\r\n      EQUIVALENCE (ZZ(1),ZR(1))\r\n      EQUIVALENCE (ZZ(1),Z(1))\r\nC\r\nC     CALCULATE THE X,Y,AND Z DIRECTED DISTANCES WITH RESPECT TO THE\r\nC     REFERENCE GRID POINT\r\nC\r\n      XD = ZR(ID+1) - ZR(IR+1)\r\n      YD = ZR(ID+2) - ZR(IR+2)\r\n      ZD = ZR(ID+3) - ZR(IR+3)\r\nC\r\nC     IF NO TRANSFORMATION IS NECESSARY, GO TO 30\r\nC\r\n      IF (Z(IR).EQ.0.AND.Z(ID).EQ.0) GO TO 30\r\nC\r\nC     IF ONLY DEPENDENT GRID POINT HAS A TRANSFORMATION, GO TO 20\r\nC\r\n      IF (Z(IR).EQ.0) GO TO 20\r\nC\r\nC     IF BOTH HAVE TRANSFORMATIONS, GO TO 10\r\nC\r\nC\r\n      IF (Z(ID).NE.0) GO TO 10\r\nC\r\nC     ONLY REFERENCE GRID POINT HAS A TRANSFORMATION\r\nC\r\n      ZZ(IG+ 1) = ZZ(JR+1)\r\n      ZZ(IG+ 2) = ZZ(JR+2)\r\n      ZZ(IG+ 3) = ZZ(JR+3)\r\n      ZZ(IG+ 4) =ZD * ZZ(JR+4) - YD * ZZ(JR+7)\r\n      ZZ(IG+ 5) =ZD * ZZ(JR+5) - YD * ZZ(JR+8)\r\n      ZZ(IG+ 6) =ZD * ZZ(JR+6) - YD * ZZ(JR+9)\r\n      ZZ(IG+ 7) = ZZ(JR+4)\r\n      ZZ(IG+ 8) = ZZ(JR+5)\r\n      ZZ(IG+ 9) = ZZ(JR+6)\r\n      ZZ(IG+10) =XD * ZZ(JR+7) - ZD * ZZ(JR+1)\r\n      ZZ(IG+11) =XD * ZZ(JR+8) - ZD * ZZ(JR+2)\r\n      ZZ(IG+12) =XD * ZZ(JR+9) - ZD * ZZ(JR+3)\r\n      ZZ(IG+13) = ZZ(JR+7)\r\n      ZZ(IG+14) = ZZ(JR+8)\r\n      ZZ(IG+15) = ZZ(JR+9)\r\n      ZZ(IG+16) =YD * ZZ(JR+1) - XD * ZZ(JR+4)\r\n      ZZ(IG+17) =YD * ZZ(JR+2) - XD * ZZ(JR+5)\r\n      ZZ(IG+18) =YD * ZZ(JR+3) - XD * ZZ(JR+6)\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   10 CONTINUE\r\nC\r\nC     BOTH HAVE TRANSFORMATIONS\r\nC\r\n      ZZ(IG+ 1) = ZZ(JD+1)*ZZ(JR+1) + ZZ(JD+4)*ZZ(JR+4) +\r\n     1 ZZ(JD+7)*ZZ(JR+7)\r\n      ZZ(IG+ 2) = ZZ(JD+1)*ZZ(JR+2) + ZZ(JD+4)*ZZ(JR+5) +\r\n     2 ZZ(JD+7)*ZZ(JR+8)\r\n      ZZ(IG+ 3) = ZZ(JD+1)*ZZ(JR+3) + ZZ(JD+4)*ZZ(JR+6) +\r\n     3 ZZ(JD+7)*ZZ(JR+9)\r\n      ZZ(IG+ 4) = ZZ(JD+1)*ZD*ZZ(JR+4)-ZZ(JD+1)*YD*ZZ(JR+7) +\r\n     1 ZZ(JD+4)*XD*ZZ(JR+7) - ZZ(JD+4)*ZD*ZZ(JR+1) +\r\n     1 ZZ(JD+7)*YD*ZZ(JR+1) - ZZ(JD+7)*XD*ZZ(JR+4)\r\n      ZZ(IG+ 5) = ZZ(JD+1)*ZD*ZZ(JR+5)-ZZ(JD+1)*YD*ZZ(JR+8) +\r\n     2 ZZ(JD+4)*XD*ZZ(JR+8) - ZZ(JD+4)*ZD*ZZ(JR+2) +\r\n     2 ZZ(JD+7)*YD*ZZ(JR+2) - ZZ(JD+7)*XD*ZZ(JR+5)\r\n      ZZ(IG+ 6) = ZZ(JD+1)*ZD*ZZ(JR+6)-ZZ(JD+1)*YD*ZZ(JR+9) +\r\n     3 ZZ(JD+4)*XD*ZZ(JR+9) - ZZ(JD+4)*ZD*ZZ(JR+3) +\r\n     3 ZZ(JD+7)*YD*ZZ(JR+3) - ZZ(JD+7)*XD*ZZ(JR+6)\r\n      ZZ(IG+ 7) = ZZ(JD+2)*ZZ(JR+1) + ZZ(JD+5)*ZZ(JR+4) +\r\n     4 ZZ(JD+8)*ZZ(JR+7)\r\n      ZZ(IG+ 8) = ZZ(JD+2)*ZZ(JR+2) + ZZ(JD+5)*ZZ(JR+5) +\r\n     5 ZZ(JD+8)*ZZ(JR+8)\r\n      ZZ(IG+ 9) = ZZ(JD+2)*ZZ(JR+3) + ZZ(JD+5)*ZZ(JR+6) +\r\n     6 ZZ(JD+8)*ZZ(JR+9)\r\n      ZZ(IG+10) = ZZ(JD+2)*ZD*ZZ(JR+4)-ZZ(JD+2)*YD*ZZ(JR+7) +\r\n     4 ZZ(JD+5)*XD*ZZ(JR+7) - ZZ(JD+5)*ZD*ZZ(JR+1) +\r\n     4 ZZ(JD+8)*YD*ZZ(JR+1) - ZZ(JD+8)*XD*ZZ(JR+4)\r\n      ZZ(IG+11) = ZZ(JD+2)*ZD*ZZ(JR+5)-ZZ(JD+2)*YD*ZZ(JR+8) +\r\n     5 ZZ(JD+5)*XD*ZZ(JR+8) - ZZ(JD+5)*ZD*ZZ(JR+2) +\r\n     5 ZZ(JD+8)*YD*ZZ(JR+2) - ZZ(JD+8)*XD*ZZ(JR+5)\r\n      ZZ(IG+12) = ZZ(JD+2)*ZD*ZZ(JR+6)-ZZ(JD+2)*YD*ZZ(JR+9) +\r\n     6 ZZ(JD+5)*XD*ZZ(JR+9) - ZZ(JD+5)*ZD*ZZ(JR+3) +\r\n     6 ZZ(JD+8)*YD*ZZ(JR+3) - ZZ(JD+8)*XD*ZZ(JR+6)\r\n      ZZ(IG+13) = ZZ(JD+3)*ZZ(JR+1) + ZZ(JD+6)*ZZ(JR+4) +\r\n     7 ZZ(JD+9)*ZZ(JR+7)\r\n      ZZ(IG+14) = ZZ(JD+3)*ZZ(JR+2) + ZZ(JD+6)*ZZ(JR+5) +\r\n     8 ZZ(JD+9)*ZZ(JR+8)\r\n      ZZ(IG+15) = ZZ(JD+3)*ZZ(JR+3) + ZZ(JD+6)*ZZ(JR+6) +\r\n     9 ZZ(JD+9)*ZZ(JR+9)\r\n      ZZ(IG+16) = ZZ(JD+3)*ZD*ZZ(JR+4)-ZZ(JD+3)*YD*ZZ(JR+7) +\r\n     7 ZZ(JD+6)*XD*ZZ(JR+7) - ZZ(JD+6)*ZD*ZZ(JR+1) +\r\n     7 ZZ(JD+9)*YD*ZZ(JR+1) - ZZ(JD+9)*XD*ZZ(JR+4)\r\n      ZZ(IG+17) = ZZ(JD+3)*ZD*ZZ(JR+5)-ZZ(JD+3)*YD*ZZ(JR+8) +\r\n     8 ZZ(JD+6)*XD*ZZ(JR+8) - ZZ(JD+6)*ZD*ZZ(JR+2) +\r\n     8 ZZ(JD+9)*YD*ZZ(JR+2) - ZZ(JD+9)*XD*ZZ(JR+5)\r\n      ZZ(IG+18) = ZZ(JD+3)*ZD*ZZ(JR+6)-ZZ(JD+3)*YD*ZZ(JR+9) +\r\n     9 ZZ(JD+6)*XD*ZZ(JR+9) - ZZ(JD+6)*ZD*ZZ(JR+3) +\r\n     9 ZZ(JD+9)*YD*ZZ(JR+3) - ZZ(JD+9)*XD*ZZ(JR+6)\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   20 CONTINUE\r\nC\r\nC     DEPENDENT GRID POINT HAS TRANSFORMATION\r\nC\r\n      ZZ(IG+ 1) = ZZ(JD+1)\r\n      ZZ(IG+ 2) = ZZ(JD+4)\r\n      ZZ(IG+ 3) = ZZ(JD+7)\r\n      ZZ(IG+ 4) = ZZ(JD+7)*YD - ZZ(JD+4)*ZD\r\n      ZZ(IG+ 5) = ZZ(JD+1)*ZD - ZZ(JD+7)*XD\r\n      ZZ(IG+ 6) = ZZ(JD+4)*XD - ZZ(JD+1)*YD\r\n      ZZ(IG+ 7) = ZZ(JD+2)\r\n      ZZ(IG+ 8) = ZZ(JD+5)\r\n      ZZ(IG+ 9) = ZZ(JD+8)\r\n      ZZ(IG+10) = ZZ(JD+8)*YD - ZZ(JD+5)*ZD\r\n      ZZ(IG+11) = ZZ(JD+2)*ZD - ZZ(JD+8)*XD\r\n      ZZ(IG+12) = ZZ(JD+5)*XD - ZZ(JD+2)*YD\r\n      ZZ(IG+13) = ZZ(JD+3)\r\n      ZZ(IG+14) = ZZ(JD+6)\r\n      ZZ(IG+15) = ZZ(JD+9)\r\n      ZZ(IG+16) = ZZ(JD+9)*YD - ZZ(JD+6)*ZD\r\n      ZZ(IG+17) = ZZ(JD+3)*ZD - ZZ(JD+9)*XD\r\n      ZZ(IG+18) = ZZ(JD+6)*XD - ZZ(JD+3)*YD\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   30 CONTINUE\r\nC\r\nC     NO TRANSFORMATIONS\r\nC\r\n      DO 40 I = 1,36\r\n      ZZ(IG+I) = 0.0\r\n   40 CONTINUE\r\n      ZZ(IG+ 1) = 1.0\r\n      ZZ(IG+ 8) = 1.0\r\n      ZZ(IG+15) = 1.0\r\n      ZZ(IG+22) = 1.0\r\n      ZZ(IG+29) = 1.0\r\n      ZZ(IG+36) = 1.0\r\n      ZZ(IG+ 5) =  ZD\r\n      ZZ(IG+ 6) = -YD\r\n      ZZ(IG+10) = -ZD\r\n      ZZ(IG+12) =  XD\r\n      ZZ(IG+16) =  YD\r\n      ZZ(IG+17) = -XD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/formgg.f",
    "content": "      SUBROUTINE FORMGG(IG,JR,JD,IR,ID)\r\nC\r\nC     FORMGG FORMS THE GG MATRIX FOR EACH RIGID ELEMENT DEGREE OF\r\nC     FREEDOM.  IG IS THE START OF THE ROW STORED GG MATRIX - 1\r\nC     JR IS THE START OF THE TA MATRIX - 1.\r\nC     JD IS THE START OF THE TB MATRIX - 1.\r\nC     IR IS THE START OF THE BGPDT INFORMATION FOR REFERENCE POINT\r\nC     ID IS THE START OF THE BGPDT INFORMATION FOR DEPENDENT POINT\r\nC\r\n      INTEGER Z\r\n      DIMENSION ZZ(1)\r\n      COMMON/ZZZZZZ/Z(1)\r\n      EQUIVALENCE (ZZ(1),Z(1))\r\nC\r\nC     CALCULATE THE X,Y,AND Z DIRECTED DISTANCES WITH RESPECT TO THE\r\nC     REFERENCE GRID POINT\r\nC\r\n      XD = ZZ(ID+1) - ZZ(IR+1)\r\n      YD = ZZ(ID+2) - ZZ(IR+2)\r\n      ZD = ZZ(ID+3) - ZZ(IR+3)\r\nC\r\nC     IF NO TRANSFORMATION IS NECESSARY, GO TO 30\r\nC\r\n      IF (Z(IR).EQ.0.AND.Z(ID).EQ.0) GO TO 30\r\nC\r\nC     IF ONLY DEPENDENT GRID POINT HAS A TRANSFORMATION, GO TO 20\r\nC\r\n      IF (Z(IR).EQ.0) GO TO 20\r\nC\r\nC     IF BOTH HAVE TRANSFORMATIONS, GO TO 10\r\nC\r\nC\r\n      IF (Z(ID).NE.0) GO TO 10\r\nC\r\nC     ONLY REFERENCE GRID POINT HAS A TRANSFORMATION\r\nC\r\n      ZZ(IG+ 1) = ZZ(JR+1)\r\n      ZZ(IG+ 2) = ZZ(JR+2)\r\n      ZZ(IG+ 3) = ZZ(JR+3)\r\n      ZZ(IG+ 4) =ZD * ZZ(JR+4) - YD * ZZ(JR+7)\r\n      ZZ(IG+ 5) =ZD * ZZ(JR+5) - YD * ZZ(JR+8)\r\n      ZZ(IG+ 6) =ZD * ZZ(JR+6) - YD * ZZ(JR+9)\r\n      ZZ(IG+ 7) = ZZ(JR+4)\r\n      ZZ(IG+ 8) = ZZ(JR+5)\r\n      ZZ(IG+ 9) = ZZ(JR+6)\r\n      ZZ(IG+10) =XD * ZZ(JR+7) - ZD * ZZ(JR+1)\r\n      ZZ(IG+11) =XD * ZZ(JR+8) - ZD * ZZ(JR+2)\r\n      ZZ(IG+12) =XD * ZZ(JR+9) - ZD * ZZ(JR+3)\r\n      ZZ(IG+13) = ZZ(JR+7)\r\n      ZZ(IG+14) = ZZ(JR+8)\r\n      ZZ(IG+15) = ZZ(JR+9)\r\n      ZZ(IG+16) =YD * ZZ(JR+1) - XD * ZZ(JR+4)\r\n      ZZ(IG+17) =YD * ZZ(JR+2) - XD * ZZ(JR+5)\r\n      ZZ(IG+18) =YD * ZZ(JR+3) - XD * ZZ(JR+6)\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   10 CONTINUE\r\nC\r\nC     BOTH HAVE TRANSFORMATIONS\r\nC\r\n      ZZ(IG+ 1) = ZZ(JD+1)*ZZ(JR+1) + ZZ(JD+4)*ZZ(JR+4) +\r\n     1 ZZ(JD+7)*ZZ(JR+7)\r\n      ZZ(IG+ 2) = ZZ(JD+1)*ZZ(JR+2) + ZZ(JD+4)*ZZ(JR+5) +\r\n     2 ZZ(JD+7)*ZZ(JR+8)\r\n      ZZ(IG+ 3) = ZZ(JD+1)*ZZ(JR+3) + ZZ(JD+4)*ZZ(JR+6) +\r\n     3 ZZ(JD+7)*ZZ(JR+9)\r\n      ZZ(IG+ 4) = ZZ(JD+1)*ZD*ZZ(JR+4)-ZZ(JD+1)*YD*ZZ(JR+7) +\r\n     1 ZZ(JD+4)*XD*ZZ(JR+7) - ZZ(JD+4)*ZD*ZZ(JR+1) +\r\n     1 ZZ(JD+7)*YD*ZZ(JR+1) - ZZ(JD+7)*XD*ZZ(JR+4)\r\n      ZZ(IG+ 5) = ZZ(JD+1)*ZD*ZZ(JR+5)-ZZ(JD+1)*YD*ZZ(JR+8) +\r\n     2 ZZ(JD+4)*XD*ZZ(JR+8) - ZZ(JD+4)*ZD*ZZ(JR+2) +\r\n     2 ZZ(JD+7)*YD*ZZ(JR+2) - ZZ(JD+7)*XD*ZZ(JR+5)\r\n      ZZ(IG+ 6) = ZZ(JD+1)*ZD*ZZ(JR+6)-ZZ(JD+1)*YD*ZZ(JR+9) +\r\n     3 ZZ(JD+4)*XD*ZZ(JR+9) - ZZ(JD+4)*ZD*ZZ(JR+3) +\r\n     3 ZZ(JD+7)*YD*ZZ(JR+3) - ZZ(JD+7)*XD*ZZ(JR+6)\r\n      ZZ(IG+ 7) = ZZ(JD+2)*ZZ(JR+1) + ZZ(JD+5)*ZZ(JR+4) +\r\n     4 ZZ(JD+8)*ZZ(JR+7)\r\n      ZZ(IG+ 8) = ZZ(JD+2)*ZZ(JR+2) + ZZ(JD+5)*ZZ(JR+5) +\r\n     5 ZZ(JD+8)*ZZ(JR+8)\r\n      ZZ(IG+ 9) = ZZ(JD+2)*ZZ(JR+3) + ZZ(JD+5)*ZZ(JR+6) +\r\n     6 ZZ(JD+8)*ZZ(JR+9)\r\n      ZZ(IG+10) = ZZ(JD+2)*ZD*ZZ(JR+4)-ZZ(JD+2)*YD*ZZ(JR+7) +\r\n     4 ZZ(JD+5)*XD*ZZ(JR+7) - ZZ(JD+5)*ZD*ZZ(JR+1) +\r\n     4 ZZ(JD+8)*YD*ZZ(JR+1) - ZZ(JD+8)*XD*ZZ(JR+4)\r\n      ZZ(IG+11) = ZZ(JD+2)*ZD*ZZ(JR+5)-ZZ(JD+2)*YD*ZZ(JR+8) +\r\n     5 ZZ(JD+5)*XD*ZZ(JR+8) - ZZ(JD+5)*ZD*ZZ(JR+2) +\r\n     5 ZZ(JD+8)*YD*ZZ(JR+2) - ZZ(JD+8)*XD*ZZ(JR+5)\r\n      ZZ(IG+12) = ZZ(JD+2)*ZD*ZZ(JR+6)-ZZ(JD+2)*YD*ZZ(JR+9) +\r\n     6 ZZ(JD+5)*XD*ZZ(JR+9) - ZZ(JD+5)*ZD*ZZ(JR+3) +\r\n     6 ZZ(JD+8)*YD*ZZ(JR+3) - ZZ(JD+8)*XD*ZZ(JR+6)\r\n      ZZ(IG+13) = ZZ(JD+3)*ZZ(JR+1) + ZZ(JD+6)*ZZ(JR+4) +\r\n     7 ZZ(JD+9)*ZZ(JR+7)\r\n      ZZ(IG+14) = ZZ(JD+3)*ZZ(JR+2) + ZZ(JD+6)*ZZ(JR+5) +\r\n     8 ZZ(JD+9)*ZZ(JR+8)\r\n      ZZ(IG+15) = ZZ(JD+3)*ZZ(JR+3) + ZZ(JD+6)*ZZ(JR+6) +\r\n     9 ZZ(JD+9)*ZZ(JR+9)\r\n      ZZ(IG+16) = ZZ(JD+3)*ZD*ZZ(JR+4)-ZZ(JD+3)*YD*ZZ(JR+7) +\r\n     7 ZZ(JD+6)*XD*ZZ(JR+7) - ZZ(JD+6)*ZD*ZZ(JR+1) +\r\n     7 ZZ(JD+9)*YD*ZZ(JR+1) - ZZ(JD+9)*XD*ZZ(JR+4)\r\n      ZZ(IG+17) = ZZ(JD+3)*ZD*ZZ(JR+5)-ZZ(JD+3)*YD*ZZ(JR+8) +\r\n     8 ZZ(JD+6)*XD*ZZ(JR+8) - ZZ(JD+6)*ZD*ZZ(JR+2) +\r\n     8 ZZ(JD+9)*YD*ZZ(JR+2) - ZZ(JD+9)*XD*ZZ(JR+5)\r\n      ZZ(IG+18) = ZZ(JD+3)*ZD*ZZ(JR+6)-ZZ(JD+3)*YD*ZZ(JR+9) +\r\n     9 ZZ(JD+6)*XD*ZZ(JR+9) - ZZ(JD+6)*ZD*ZZ(JR+3) +\r\n     9 ZZ(JD+9)*YD*ZZ(JR+3) - ZZ(JD+9)*XD*ZZ(JR+6)\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   20 CONTINUE\r\nC\r\nC     DEPENDENT GRID POINT HAS TRANSFORMATION\r\nC\r\n      ZZ(IG+ 1) = ZZ(JD+1)\r\n      ZZ(IG+ 2) = ZZ(JD+4)\r\n      ZZ(IG+ 3) = ZZ(JD+7)\r\n      ZZ(IG+ 4) = ZZ(JD+7)*YD - ZZ(JD+4)*ZD\r\n      ZZ(IG+ 5) = ZZ(JD+1)*ZD - ZZ(JD+7)*XD\r\n      ZZ(IG+ 6) = ZZ(JD+4)*XD - ZZ(JD+1)*YD\r\n      ZZ(IG+ 7) = ZZ(JD+2)\r\n      ZZ(IG+ 8) = ZZ(JD+5)\r\n      ZZ(IG+ 9) = ZZ(JD+8)\r\n      ZZ(IG+10) = ZZ(JD+8)*YD - ZZ(JD+5)*ZD\r\n      ZZ(IG+11) = ZZ(JD+2)*ZD - ZZ(JD+8)*XD\r\n      ZZ(IG+12) = ZZ(JD+5)*XD - ZZ(JD+2)*YD\r\n      ZZ(IG+13) = ZZ(JD+3)\r\n      ZZ(IG+14) = ZZ(JD+6)\r\n      ZZ(IG+15) = ZZ(JD+9)\r\n      ZZ(IG+16) = ZZ(JD+9)*YD - ZZ(JD+6)*ZD\r\n      ZZ(IG+17) = ZZ(JD+3)*ZD - ZZ(JD+9)*XD\r\n      ZZ(IG+18) = ZZ(JD+6)*XD - ZZ(JD+3)*YD\r\n      ZZ(IG+19) = 0.0\r\n      ZZ(IG+20) = 0.0\r\n      ZZ(IG+21) = 0.0\r\n      ZZ(IG+22) = ZZ(IG+ 1)\r\n      ZZ(IG+23) = ZZ(IG+ 2)\r\n      ZZ(IG+24) = ZZ(IG+ 3)\r\n      ZZ(IG+25) = 0.0\r\n      ZZ(IG+26) = 0.0\r\n      ZZ(IG+27) = 0.0\r\n      ZZ(IG+28) = ZZ(IG+ 7)\r\n      ZZ(IG+29) = ZZ(IG+ 8)\r\n      ZZ(IG+30) = ZZ(IG+ 9)\r\n      ZZ(IG+31) = 0.0\r\n      ZZ(IG+32) = 0.0\r\n      ZZ(IG+33) = 0.0\r\n      ZZ(IG+34) = ZZ(IG+13)\r\n      ZZ(IG+35) = ZZ(IG+14)\r\n      ZZ(IG+36) = ZZ(IG+15)\r\n      RETURN\r\n   30 CONTINUE\r\nC\r\nC     NO TRANSFORMATIONS\r\nC\r\n      DO 40 I = 1,36\r\n      ZZ(IG+I) = 0.0\r\n   40 CONTINUE\r\n      ZZ(IG+ 1) = 1.0\r\n      ZZ(IG+ 8) = 1.0\r\n      ZZ(IG+15) = 1.0\r\n      ZZ(IG+22) = 1.0\r\n      ZZ(IG+29) = 1.0\r\n      ZZ(IG+36) = 1.0\r\n      ZZ(IG+ 5) =  ZD\r\n      ZZ(IG+ 6) = -YD\r\n      ZZ(IG+10) = -ZD\r\n      ZZ(IG+12) =  XD\r\n      ZZ(IG+16) =  YD\r\n      ZZ(IG+17) = -XD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fornam.f",
    "content": "      SUBROUTINE FORNAM ( IELT, ISCAN, NAME )\r\n      COMMON / SYSTEM / ISYSBF, NOUT\r\n      CHARACTER*12    NAME\r\n      NAME= ' '\r\n      IF ( IELT .NE. 1 .AND. IELT .NE. 3 .AND. IELT .NE. 10 ) GO TO 10\r\nC ROD, TUBE, CONROD\r\n      IF ( ISCAN .EQ. 2 ) NAME='AXIAL'\r\n      IF ( ISCAN .EQ. 4 ) NAME='TORQUE'\r\n      GO TO 7000\r\n10    IF ( IELT .NE. 4 .AND. IELT .NE. 5 ) GO TO 20\r\nC SHEAR, TWIST\r\n      IF ( ISCAN .EQ. 2 ) NAME='FORCE-1'\r\n      IF ( ISCAN .EQ. 3 ) NAME='FORCE-2'\r\n      GO TO 7000\r\n20    IF ( IELT .NE. 6  .AND. IELT .NE. 17 .AND. IELT .NE. 19 .AND.\r\n     &     IELT .NE. 18 .AND. IELT .NE. 7  .AND. IELT .NE. 8  .AND.\r\n     &     IELT .NE. 15 ) GO TO 30\r\nC TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT\r\n      IF ( ISCAN .EQ. 2 ) NAME='MOMENT-X'\r\n      IF ( ISCAN .EQ. 3 ) NAME='MOMENT-Y'\r\n      IF ( ISCAN .EQ. 5 ) NAME='SHEAR-X'\r\n      IF ( ISCAN .EQ. 6 ) NAME='SHEAR-Y'\r\n      IF ( ISCAN .EQ. 4 ) NAME='TWIST'\r\n      GO TO 7000\r\n30    IF ( IELT .NE. 9 .AND. IELT .NE. 16 .AND. IELT .NE. 62 .AND.\r\n     &     IELT .NE. 63 ) GO TO 40\r\nC TRMEM, QDMEM, QDMEM1, QDMEM2\r\n      IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 4 ) NAME='FORCE-12'\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='FORCE-23'\r\n      IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 8 ) NAME='FORCE-34'\r\n      IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 9 ) NAME='FORCE-41'\r\n      IF ( ISCAN .EQ. 10) NAME='KICK ON1'\r\n      IF ( ISCAN .EQ. 12) NAME='KICK ON2'\r\n      IF ( ISCAN .EQ. 14) NAME='KICK ON3'\r\n      IF ( ISCAN .EQ. 16) NAME='KICK ON4'\r\n      IF ( ISCAN .EQ. 11) NAME='SHEAR-XY'\r\n      IF ( ISCAN .EQ. 13) NAME='SHEAR-YZ'\r\n      IF ( ISCAN .EQ. 15) NAME='SHEAR-ZX'\r\n      IF ( ISCAN .EQ. 17) NAME='SHEAR'\r\n      GO TO 7000\r\n40    IF ( IELT .NE. 11 .AND. IELT .NE. 12 .AND. IELT .NE. 13 .AND.\r\n     &     IELT .NE. 80 ) GO TO 50\r\nC ELAS1, ELAS2, ELAS3, IS2D8\r\n      IF ( ISCAN .EQ. 2 ) NAME='CIRCUM'\r\n      IF ( ISCAN .EQ. 4 .AND. ISCAN .EQ. 9 ) NAME='FORCE-1'\r\n      IF ( ISCAN .EQ. 3 .AND. ISCAN .EQ. 6 ) NAME='FORCE-2'\r\n      IF ( ISCAN .EQ. 5 .AND. ISCAN .EQ. 8 ) NAME='FORCE-3'\r\n      IF ( ISCAN .EQ. 2 .AND. ISCAN .EQ. 7 ) NAME='FORCE-4'\r\n      GO TO 7000\r\n50    IF ( IELT .NE. 34 .AND. IELT .NE. 81 ) GO TO 60\r\nC BAR, ELBOW\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='SHEAR'\r\n      IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 3 ) NAME='MOMENT-A'\r\n      IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 5 ) NAME='MOMENT-B'\r\n      IF ( ISCAN .EQ. 8 ) NAME='AXIAL'  \r\n      IF ( ISCAN .EQ. 9 ) NAME='TORQUE'\r\n      GO TO 7000\r\n60    IF ( IELT .NE. 35 ) GO TO 70\r\nC CONEAX\r\n      IF ( ISCAN .EQ. 3 ) NAME='MOMENT-U'\r\n      IF ( ISCAN .EQ. 4 ) NAME='MOMENT-V'\r\n      IF ( ISCAN .EQ. 6 ) NAME='SHEAR-XY'\r\n      IF ( ISCAN .EQ. 7 ) NAME='SHEAR-YZ'\r\n      GO TO 7000\r\n70    IF ( IELT .NE. 36 ) GO TO 80\r\nC TRIARG\r\n      KSCAN = MOD ( ISCAN, 3 )\r\n      IF ( KSCAN .EQ. 2 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 3 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 1 ) NAME='AXIAL'\r\n      GO TO 7000\r\n80    IF ( IELT .NE. 37 ) GO TO 90\r\nC TRAPRG\r\n      KSCAN = MOD( ISCAN, 3 )\r\n      IF ( KSCAN .EQ. 2 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 3 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 1 ) NAME='AXIAL'\r\n      GO TO 7000\r\n90    IF ( IELT .NE. 38 ) GO TO 120\r\nC TORDRG\r\n      KSCAN = MOD( ISCAN, 6 )\r\n      IF ( KSCAN .EQ. 2 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 3 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 4 ) NAME='AXIAL'\r\n      IF ( KSCAN .EQ. 5 ) NAME='MOMENT'\r\n      IF ( KSCAN .EQ. 1 ) NAME='CURV'\r\n      GO TO 7000\r\n120   IF ( IELT .NE. 70 .AND. IELT .NE. 71 ) GO TO 130\r\nC TRIAAX, TRAPAX\r\n      KSCAN = MOD ( ISCAN, 4 )\r\n      IF ( KSCAN .EQ. 3 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 0 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 1 ) NAME='AXIAL' \r\n      GO TO 7000\r\n130   IF ( IELT .NE. 64 .AND. IELT .NE. 83 ) GO TO 150\r\nC QUAD4, TRIA3 \r\n      IF ( ISCAN .EQ. 2 .OR. ISCAN .EQ. 3 ) NAME='FX+FY'\r\n      IF ( ISCAN .EQ. 4                   ) NAME='FXY'\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 6 ) NAME='MX+MY'\r\n      IF ( ISCAN .EQ. 7                   ) NAME='MXY'\r\n      IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 9 ) NAME='VX+VY'\r\n      GO TO 7000\r\n150   WRITE ( NOUT, 901 ) IELT \r\n901   FORMAT(//' SCAN MODULE PROCESSING UNKNOWN ELEMENT NUMBER '\r\n     &       ,I8,//)\r\n      CALL MESAGE( -61,0,0)\r\n7000  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fornum.f",
    "content": "      SUBROUTINE FORNUM ( FORM, ICHAR, IMULT )\r\nC\r\nC THIS SUBROUTINE CONVERTS ALL NUMBERS TO INTEGER FORMAT\r\nC\r\n      CHARACTER*1   FORM(200), BLANK, NUMBER(2)\r\n      DATA          BLANK /' ' /\r\n      DATA          NUMBER /'0','9'/\r\n      IMULT = 0\r\n10    IF ( FORM( ICHAR ) .NE. BLANK      ) GO TO 20\r\n      ICHAR = ICHAR + 1\r\n      GO TO 10\r\n20    IF ( FORM( ICHAR ) .LT. NUMBER(1) .OR.\r\n     &     FORM( ICHAR ) .GT. NUMBER(2) ) GO TO 700\r\n      READ ( FORM( ICHAR ), 901 ) II\r\n901   FORMAT(I1)\r\n      IMULT = IMULT*10 + II\r\n      ICHAR = ICHAR + 1\r\n      GO TO 20\r\n700   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fpont.f",
    "content": "      SUBROUTINE FPONT\r\nC\r\nC     DOES DIRECT,TPONT,FPONT,AND SCALAR LOADS\r\nC\r\n      INTEGER         GPID,SLT,PONT(5),SWLOAD(2)\r\n      DIMENSION       IGPCO(4,5),GPCO1(3),GPCO2(3),GPCO3(3),GPCO4(3),\r\n     1                VECT1(3),VECT2(3),IORD(5),VECT(3),GRIDP(7)\r\n      COMMON /LOADX / LC,SLT,BG,OLD,N(12),IFM\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (GPID,GRIDP(2)), (GRIDP(4),IP1), (GRIDP(5),IP2),\r\n     1                (GRIDP(6),IP3) , (GRIDP(7),IP4),\r\n     2                (IGPCO(2,1),GPCO1(1)), (IGPCO(2,2),GPCO2(1)),\r\n     3                (IGPCO(2,3),GPCO3(1)), (IGPCO(2,4),GPCO4(1)),\r\n     4                (ICOSYT,GRIDP(3))\r\n      DATA    SWLOAD/ 4HFPON,4HT   /\r\nC\r\n      NR = 6\r\n      NP = 5\r\n      MINUS = 5\r\n   10 CALL READ (*120,*130,SLT,GRIDP(2),NR,0,FLAG)\r\n      SCALE   = GRIDP(3)\r\n      PONT(1) = IP1\r\n      PONT(2) = IP2\r\n      IF (NP .EQ. 3) GO TO 20\r\n      PONT(3) = IP3\r\n      PONT(4) = IP4\r\n   20 PONT(NP)= GPID\r\n      CALL PERMUT (PONT(1),IORD(1),NP,OLD)\r\n      DO 30 I = 1,NP\r\n      L = IORD(I)\r\n   30 CALL FNDPNT (IGPCO(1,L),PONT(L))\r\n      IF (NP .EQ. 3) GO TO 50\r\n      DO 40 I = 1,3\r\n      VECT1(I) = GPCO2(I) - GPCO1(I)\r\n   40 VECT2(I) = GPCO4(I) - GPCO3(I)\r\n      CALL CROSS (VECT1(1),VECT2(1),VECT(1))\r\n      GO TO 70\r\n   50 DO 60 I = 1,3\r\n   60 VECT(I) = GPCO2(I) - GPCO1(I)\r\n   70 CALL NORM (VECT(1),XL)\r\n   80 IF (IGPCO(1,NP)) 90,100,90\r\n   90 CALL BASGLB (VECT(1),VECT(1),IGPCO(2,NP),IGPCO(1,NP))\r\n  100 CALL FNDSIL (GPID)\r\n      GPID = GPID + (IFM-MINUS)*3 - 1\r\n      DO 110 I = 1,3\r\n      IN = GPID + I\r\n      CORE(IN) = CORE(IN) + VECT(I)*SCALE\r\n  110 CONTINUE\r\n      GO TO 150\r\n  120 N1 = -2\r\n      GO TO 140\r\n  130 N1 = -3\r\n  140 IPARM = SLT\r\n      CALL MESAGE (N1,IPARM,SWLOAD)\r\n  150 RETURN\r\nC\r\nC\r\n      ENTRY TPONT\r\nC     ===========\r\nC\r\nC     TPONT PROCESSES FORCE1 AND MOMENT1 CARDS\r\nC\r\n      NR = 4\r\n      NP = 3\r\n      MINUS = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY DIRECT\r\nC     ============\r\nC\r\nC     DIRECT PROCESSES FORCE+ MOMENT CARDS\r\nC\r\n      NP = 1\r\n      MINUS = 1\r\n      CALL READ (*120,*130,SLT,GRIDP(2),6,0,FLAG)\r\n      DO 170 I = 1,3\r\n  170 VECT(I) = GRIDP(I+4)\r\n      CALL FNDPNT (IGPCO(1,1),GPID)\r\n      SCALE = GRIDP(4)\r\n      IF (ICOSYT .EQ. IGPCO(1,NP)) GO TO 100\r\n      IF (ICOSYT) 180,80,180\r\n  180 CALL GLBBAS (VECT(1),VECT(1),IGPCO(2,1),ICOSYT)\r\n      GO TO 80\r\nC\r\nC\r\n      ENTRY SLOAD\r\nC     ===========\r\nC\r\nC     SLOAD PROCESSES SLOAD CARDS\r\nC\r\n      CALL READ (*120,*130,SLT,GRIDP(2),2,0,FLAG)\r\n      CALL FNDSIL (GPID)\r\n      CORE(GPID) = CORE(GPID) + GRIDP(3)\r\n      GO TO 150\r\n      END\r\n"
  },
  {
    "path": "mis/fqrw.f",
    "content": "      SUBROUTINE FQRW (M,E,ER,A,B,W,P,Q,XM,INT,ZB,SRFLE,MCBC)\r\nC\r\n      LOGICAL            INT(1)\r\n      INTEGER            SRFLE\r\n      DOUBLE PRECISION   DLAMDA\r\n      REAL               LAMBDA\r\n      DIMENSION          A(1)     ,B(2)    ,W(1)   ,P(1)   ,E(1)    ,\r\n     1                   Q(1)     ,ER(1)   ,XM(1)\r\n      DIMENSION          ZB(1)    ,MCB(7)  ,MCBC(7)\r\n      CHARACTER          UFM*23   ,UWM*25\r\n      COMMON   /XMSSG /  UFM      ,UWM\r\n      COMMON   /FEERXX/  DLAMDA   ,CNDFLG  ,ITER   ,TIMED  ,L16\r\n      COMMON   /NAMES /  RD       ,RDREW   ,WRT    ,WRTREW ,REW     ,\r\n     1                   NOREW    ,EOFNRW\r\n      COMMON   /LHPWX /  LHPW(3)  ,IACC\r\n      COMMON   /SYSTEM/  KSYSTM(65)\r\n      COMMON   /PACKX /  ITP1     ,ITP2    ,IIP    ,NNP    ,INCRP\r\n      COMMON   /UNPAKX/  IPRC     ,II      ,NN     ,INCR\r\n      EQUIVALENCE        (KSYSTM(2),IO)    ,(KSYSTM(55),IPREC)\r\n      DATA      ILIM  ,  IEXP   ,BASE /    120, 60,  2.    /\r\nC\r\nC     IACC  =  ACCURACY CONTROL (EPSILON) FOR UNDERFLOW\r\nC\r\n      IF (M .EQ. 1) RETURN\r\n      LAMBDA = DLAMDA\r\n      IPRC = 1\r\n      CALL MAKMCB (MCB(1),SRFLE,M,2,IPRC)\r\n      ICF  = MCBC(1)\r\n      INCR = 1\r\n      INCRP= 1\r\n      ITP1 = IPRC\r\n      ITP2 = IPRC\r\n      IT   = IACC*IPREC\r\n      PRC  = 10.**(-IT)\r\n      PPRC = 10.E-4\r\n      JERR = 0\r\n      EPX  = 10.**(2-IT)\r\n      EPX2 = EPX**2\r\n      HOV  = BASE**IEXP\r\n      M1   = M - 1\r\n      DO 20 I = 1,M\r\n   20 E(I) = A(I)\r\n      TOL  = PRC/(10.*FLOAT(M))\r\n      BMAX = 0.\r\n      TMAX = 0.\r\n      W(M+1) = 0.\r\n      DO 30 I = 1,M\r\n      IF (BMAX .LT. ABS(B(I))) BMAX = ABS(B(I))\r\n      IF (TMAX .LT. ABS(A(I))) TMAX = ABS(A(I))\r\n   30 CONTINUE\r\n      IF (TMAX .LT. BMAX) TMAX = BMAX\r\n      SCALE = 1.\r\n      DO 40 I = 1,ILIM\r\n      IF (SCALE*TMAX .GT. HOV) GO TO 50\r\n   40 SCALE = SCALE*2.\r\n   50 IF (BMAX .EQ. 0.) GO TO 170\r\n      DO 60 I = 1,M\r\n      E(I) =  A(I)*SCALE\r\n   60 W(I) = (B(I)*SCALE)**2\r\n      DELTA= TMAX*SCALE*TOL\r\n      EPS  = DELTA*DELTA\r\n      K  = M\r\n   70 L  = K\r\n      IF (L .LE. 0) GO TO 140\r\n      L1 = L - 1\r\n      DO 80 I = 1,L\r\n      K1 = K\r\n      K  = K - 1\r\n      IF (W(K1) .LT. EPS) GO TO 90\r\n   80 CONTINUE\r\n   90 IF (K1 .NE. L) GO TO 100\r\n      W(L) = 0.\r\n      GO TO 70\r\n  100 T = E(L) - E(L1)\r\n      X = W(L)\r\n      Y = .5*T\r\n      S = SQRT(X)\r\n      IF (ABS(T) .GT. DELTA) S = (X/Y)/(1.+SQRT(1.+X/Y**2))\r\n      E1 = E(L ) + S\r\n      E2 = E(L1) - S\r\n      IF (K1 .NE. L1) GO TO 110\r\n      E(L ) = E1\r\n      E(L1) = E2\r\n      W(L1) = 0.\r\n      GO TO 70\r\n  110 SHIFT = E1\r\n      IF (ABS(T).LT.DELTA .AND. ABS(E2).LT.ABS(E1)) SHIFT = E2\r\n      S  = 0.\r\n      C  = 1.\r\n      GG = E(K1) - SHIFT\r\n      GO TO 130\r\n  120 C  = F/T\r\n      S  = X/T\r\n      X  = GG\r\n      GG = C*(E(K1) - SHIFT) - S*X\r\n      E(K) = (X - GG) + E(K1)\r\n  130 IF (ABS(GG) .LT. DELTA) GG = GG + C*DELTA*GG/ABS(GG)\r\n      F  = GG**2/C\r\n      K  = K1\r\n      K1 = K + 1\r\n      X  = W(K1)\r\n      T  = X + F\r\n      W(K) = S*T\r\n      IF (K .LT. L) GO TO 120\r\n      E(K) = GG + SHIFT\r\n      GO TO 70\r\n  140 DO 150 I = 1,M\r\n  150 E(I) = E(I)/SCALE\r\n      DO 155 L = 1,M1\r\n      K = M - L\r\n      DO 155 I = 1,K\r\n      IF (E(I) .GT. E(I+1)) GO TO 155\r\n      X = E(I)\r\n      E(I  ) = E(I+1)\r\n      E(I+1) = X\r\n  155 CONTINUE\r\n      DO 160 L = 1,M1\r\n      K = M - L\r\n      DO 160 I = 1,K\r\n      IF (ABS(E(I)) .GT. ABS(E(I+1))) GO TO 160\r\n      X = E(I)\r\n      E(I  ) = E(I+1)\r\n      E(I+1) = X\r\n  160 CONTINUE\r\n  170 IF (M .EQ. 0) RETURN\r\nC\r\nC     COMPUTE EIGENVECTORS BY INVERSE ITERATION\r\nC\r\n      ERF  = B(M+1)\r\n      MVEC = M\r\n      F = SCALE/HOV\r\n      DO 190 I = 1,M\r\n      A(I) = A(I)*F\r\n  190 B(I) = B(I)*F\r\n      DIMF = 10.**(-IT/3)\r\n      DO 460 NV = 1,MVEC\r\n      IJ   = NV\r\n      SUMX = 0.\r\n      IRP  = 0\r\n      IF (NV .EQ. 1) GO TO 200\r\n      RATIO = ABS(E(NV)/E(NV-1) - 1.)\r\n      DIM   = .02*ABS(1.-LAMBDA*E(NV))\r\n      IF (RATIO.LT.DIM .OR. RATIO.LT.DIMF) GO TO 220\r\n      NRP = 0\r\n      GO TO 225\r\n  200 NRP = 0\r\n      DO 210 I = 1,M\r\n  210 W(I) = 1.\r\n      IIP  = 1\r\n      NNP  = M\r\n      GO TO 330\r\nC\r\nC     MULTIPLE EIGENVALUES\r\nC\r\n  220 NRP = NRP + 1\r\n  225 IF (NV .NE. 2) GO TO 230\r\n      CALL GOPEN (SRFLE,ZB(1),WRTREW)\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      GO TO 240\r\n  230 CALL GOPEN (SRFLE,ZB(1),WRT)\r\n  240 IIP = 1\r\n      NNP = M\r\n      CALL PACK (W(1),SRFLE,MCB(1))\r\n      CALL CLOSE (SRFLE,NOREW)\r\n      SS  = 1.0\r\n      SUM = 0.\r\n      DO 250 I = 1,M\r\n      SS =-SS\r\n      IJ = IJ + 1\r\n      P(I) = FLOAT(MOD(IJ,3)+1)/(3.0*FLOAT((MOD(IJ,13)+1)*(1+5*I/M)))\r\n      P(I) = P(I)*SS\r\n  250 SUM  = SUM + P(I)**2\r\n      SUM  = 1./SQRT(SUM)\r\n      DO 255 I = 1,M\r\n      P(I) = P(I)*SUM\r\n  255 Q(I) = P(I)\r\n      CALL GOPEN (SRFLE,ZB(1),RDREW)\r\n      J = 0\r\n  260 SUM = 0.\r\n      J = J + 1\r\n      DO 270 I = 1,M\r\n  270 SUM = SUM + W(I)*P(I)\r\n      DO 280 I = 1,M\r\n  280 Q(I) = Q(I) - SUM*W(I)\r\n      IF (J .EQ. NV-1) GO TO 290\r\n      II = 1\r\n      NN = M\r\n      CALL UNPACK (*290,SRFLE,W(1))\r\n      GO TO 260\r\n  290 CALL CLOSE (SRFLE,NOREW)\r\n      SUM = 0.\r\n      DO 300 I = 1,M\r\n  300 SUM = SUM + Q(I)**2\r\n      SUM = 1./SQRT(SUM)\r\n      DO 310 I = 1,M\r\n      Q(I) = Q(I)*SUM\r\n  310 W(I) = Q(I)\r\n  330 EV = E(NV)*F\r\n      X  = A(1) - EV\r\n      Y  = B(2)\r\n      DO 350 I = 1,M1\r\n      C  = A(I+1) - EV\r\n      S  = B(I+1)\r\n      IF (ABS(X) .GE. ABS(S)) GO TO 340\r\n      P(I) = S\r\n      Q(I) = C\r\n      INT(I) = .TRUE.\r\n      Z = -X/S\r\n      X = Y + Z*C\r\n      IF (I .LT. M1) Y = Z*B(I+2)\r\n      GO TO 350\r\n  340 IF (ABS(X) .LT. TOL) X = TOL\r\n      P(I) = X\r\n      Q(I) = Y\r\n      INT(I) = .FALSE.\r\n      Z = -S/X\r\n      X = C + Z*Y\r\n      Y = B(I+2)\r\n  350 XM(I) = Z\r\n      IF (ABS(X) .LT. TOL) X = TOL\r\n      NITER = 0\r\n  360 NITER = NITER + 1\r\n      W(M)  = W(M)/X\r\n      EMAX  = ABS(W(M))\r\n      DO 370 L = 1,M1\r\n      I = M - L\r\n      Y = W(I) - Q(I)*W(I+1)\r\n      IF (INT(I)) Y = Y - B(I+2)*W(I+2)\r\n      W(I) = Y/P(I)\r\n      IF (ABS(W(I)) .GT. EMAX) EMAX = ABS(W(I))\r\n  370 CONTINUE\r\n      SUM = 0.\r\n      DO 375 I = 1,M\r\n      W(I) = (W(I)/EMAX)/EPX\r\n      IF (ABS(W(I)) .LT. EPX2) W(I) = EPX2\r\n  375 SUM  = SUM + W(I)**2\r\n      S    = SQRT(SUM)\r\n      DO 380 I = 1,M\r\n      W(I) = W(I)/S\r\n  380 CONTINUE\r\n      IF (NITER .GE. 4) GO TO 402\r\n      DO 400 I = 1,M1\r\n      IF (INT(I)) GO TO 390\r\n      W(I+1) = W(I+1) + XM(I)*W(I)\r\n      GO TO 400\r\n  390 Y = W(I)\r\n      W(I  ) = W(I+1)\r\n      W(I+1) = Y + XM(I)*W(I)\r\n  400 CONTINUE\r\n      GO TO 360\r\n  402 IF (NV .EQ. 1) GO TO 410\r\nC\r\nC     MULTIPLE EIGENVALUES AND ORTHOGONALIZATION\r\nC\r\n      IRP = IRP + 1\r\n      CALL GOPEN (SRFLE,ZB(1),RDREW)\r\n      DO 404 I = 1,M\r\n  404 Q(I) = W(I)\r\n      SUMX = 0.\r\n      JRP  = NV - 1\r\n      DO 407 I = 1,JRP\r\n      II = 1\r\n      NN = M\r\n      CALL UNPACK (*408,SRFLE,P(1))\r\n      SUM = 0.\r\n      DO 405 J = 1,M\r\n  405 SUM = SUM + P(J)*Q(J)\r\n      IF (ABS(SUM) .GT. SUMX) SUMX = ABS(SUM)\r\n      DO 406 J = 1,M\r\n  406 W(J) = W(J) - SUM*P(J)\r\n  407 CONTINUE\r\n  408 CALL CLOSE (SRFLE,NOREW)\r\n  410 CONTINUE\r\nC\r\nC     LOGIC SETTING SUM (BY G.CHAN/UNISYS  7/92)\r\nC\r\nC     SUM = PRC*PREC COULD PRODUCE UNDERFLOW\r\nC     SUM = ZERO, COULD CAUSE DIVIDED BY ZERO AFTER 420 FOR NULL VECTOR\r\nC     SO, WE CHOOSE SUM A LITTLE SMALLER THAN PRC\r\nC\r\nC     SUM = PRC*PRC\r\nC     SUM = 0.0\r\n      SUM = PRC*1.0E-4\r\nC\r\n      DO 420 I = 1,M\r\n  420 SUM = SUM + W(I)*W(I)\r\n      SUM = 1./SQRT(SUM)\r\n      DO 430 I = 1,M\r\n  430 W(I) = W(I)*SUM\r\n      IF (SUMX.GT.0.9 .AND. IRP.LT.3) GO TO 330\r\n      IF (L16 .NE. 0) WRITE (IO,435) NV,NITER,IRP,SUMX\r\n  435 FORMAT (10X,18H FEER QRW ELEMENT ,I5,6H ITER ,2I3,6H PROJ ,E16.8)\r\n      IF (JERR.GT. 0) GO TO 450\r\n      ZERR = ABS(W(1))\r\n      DO 440 I = 2,M\r\n      IF (ABS(W(I)) .GT. ZERR) ZERR = ABS(W(I))\r\n  440 CONTINUE\r\n      ZERR = (ABS(W(M)))/ZERR\r\n      IF (ZERR .GT. PPRC) JERR = NV-1\r\n      IF (JERR .NE.    0) WRITE (IO,445) UWM,JERR\r\n  445 FORMAT (A25,' 2399', /5X,'ONLY THE FIRST',I6,' EIGENSOLUTIONS ',\r\n     1       'CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ',\r\n     2       'ACCURACY TEST FOR EIGENVECTORS.')\r\n  450 CONTINUE\r\n      CALL PACK (W(1),ICF,MCBC(1))\r\n      ER(NV) = ABS(W(M)*ERF/E(NV))\r\n  460 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fqrwv.f",
    "content": "      SUBROUTINE FQRWV (M,E,ER,A,B,W,P,Q,XM,INT,ZB,SRFLE, MCBC )\r\nC                                                  SR5FLE SR4FLE\r\nC\r\n      LOGICAL          INT(1)\r\n      INTEGER          SRFLE\r\n      DOUBLE PRECISION PPRC     ,ZERR    ,SS     ,DSIGN\r\n      DOUBLE PRECISION A(1)     ,B(2)    ,W(1)   ,P(1)   ,E(1)    ,\r\n     1                 Q(1)     ,ER(1)   ,XM(1)  ,PRC    ,HOV     ,\r\n     2                 SQRT2    ,TOL     ,BMAX   ,TMAX   ,SCALE   ,\r\n     3                 DELTA    ,EPS     ,T      ,X      ,Y       ,\r\n     4                 S        ,E1      ,E2     ,SHIFT  ,C       ,\r\n     5                 GG       ,BASE    ,SUM    ,ERF    ,Z       ,\r\n     6                 F        ,EV      ,X1     ,LAMBDA ,DIM     ,\r\n     7                 DIMF     ,RATIO   ,SUMX   ,EPX    ,EPX2    ,\r\n     8                 EMAX\r\n      DIMENSION        ZB(1)    ,MCB(7)  ,MCBC(7)\r\n      CHARACTER        UFM*23   ,UWM*25\r\n      COMMON  /XMSSG / UFM      ,UWM\r\n      COMMON  /MACHIN/ MACHX\r\n      COMMON  /LHPWX / LHPW(3)  ,IACC\r\n      COMMON  /FEERXX/ LAMBDA   ,CNDFLG  ,ITER   ,TIMED  ,L16\r\n      COMMON  /NAMES / RD       ,RDREW   ,WRT    ,WRTREW ,REW     ,\r\n     1                 NOREW   ,EOFNRW\r\n      COMMON  /SYSTEM/ KSYSTM(65)\r\n      COMMON  /PACKX / ITP1     ,ITP2    ,IIP    ,NNP    ,INCRP\r\n      COMMON  /UNPAKX/ IPRC     ,II      ,NN     ,INCR\r\n      EQUIVALENCE      (KSYSTM(2),IO)    ,(KSYSTM(55),IPREC)\r\n      DATA     ILIM  , IEXP    ,BASE /    120, 60, 2.D0      /\r\nC\r\nC     IACC =  MACHINE ACCURACY CONTROL (EPSILON)\r\nC     IACC IS USED TO CONTROL NUMBER UNDERFLOW\r\nC     IEXP AND BASE ARE USED TO CONTROL NUMBER OVERFLOW\r\nC\r\n      IF (M .EQ. 1) RETURN\r\n      IPRC = 2\r\n      CALL MAKMCB (MCB(1),SRFLE,M,2,IPRC)\r\n      ICF  = MCBC(1)\r\n      INCR = 1\r\n      INCRP= 1\r\n      ITP1 = IPRC\r\n      ITP2 = IPRC\r\n      IT   = IACC*IPREC\r\n      PRC  = 10.D0**(-IT)\r\n      PPRC = 10.D-4\r\n      JERR = 0\r\n      EPX  = 10.D0**(2-IT)\r\n      EPX2 = EPX**2\r\n      HOV  = BASE**IEXP\r\n      IF ((MACHX.GE.5 .AND. MACHX.LE.11) .OR. MACHX.EQ.13 .OR.\r\n     1    MACHX.EQ.21) HOV = BASE**(IEXP-10)\r\n      SQRT2= DSQRT(BASE)\r\n      M1   = M - 1\r\n      DO 20 I = 1,M\r\n   20 E(I) = A(I)\r\n      TOL  = PRC/(10.D0*DBLE(FLOAT(M)))\r\n      BMAX = 0.D0\r\n      TMAX = 0.D0\r\n      W(M+1) = 0.D0\r\n      DO 30 I = 1,M\r\n      IF (BMAX .LT. DABS(B(I))) BMAX = DABS(B(I))\r\n      IF (TMAX .LT. DABS(A(I))) TMAX = DABS(A(I))\r\n   30 CONTINUE\r\n      IF (TMAX .LT. BMAX) TMAX = BMAX\r\n      SCALE = 1.D0\r\n      DO 40 I = 1,ILIM\r\n      IF (SCALE*TMAX .GT. HOV) GO TO 50\r\n   40 SCALE = SCALE*2.D0\r\n   50 IF (BMAX .EQ. 0.D0) GO TO 170\r\n      DO 60 I = 1,M\r\n      E(I) =  A(I)*SCALE\r\n   60 W(I) = (B(I)*SCALE)**2\r\n      DELTA= TMAX*SCALE*TOL\r\n      EPS  = DELTA*DELTA\r\n      K    = M\r\n   70 L    = K\r\n      IF (L .LE. 0) GO TO 140\r\n      L1 = L - 1\r\n      DO 80 I = 1,L\r\n      K1 = K\r\n      K  = K - 1\r\n      IF (W(K1) .LE. EPS) GO TO 90\r\n   80 CONTINUE\r\n   90 IF (K1 .NE. L) GO TO 100\r\n      W(L) = 0.D0\r\n      GO TO 70\r\n  100 T  = E(L) - E(L1)\r\n      X  = W(L)\r\n      Y  = .5D0*T\r\n      S  = DSQRT(X)\r\n      IF (DABS(T) .GT. DELTA) S = (X/Y)/(1.D0+DSQRT(1.D0+X/Y**2))\r\n      E1 = E(L ) + S\r\n      E2 = E(L1) - S\r\n      IF (K1 .NE. L1) GO TO 110\r\n      E(L ) = E1\r\n      E(L1) = E2\r\n      W(L1) = 0.D0\r\n      GO TO 70\r\n  110 SHIFT = E1\r\n      IF (DABS(T).LT.DELTA .AND. DABS(E2).LT.DABS(E1)) SHIFT = E2\r\n      S  = 0.D0\r\n      C  = 1.D0\r\n      GG = E(K1) - SHIFT\r\n      GO TO 130\r\n  120 C  = F/T\r\n      S  = X/T\r\n      X  = GG\r\n      GG = C*(E(K1) - SHIFT) - S*X\r\n      E(K) = (X - GG) + E(K1)\r\n  130 IF (DABS(GG) .LT. DELTA) GG = GG + C*DELTA*DSIGN(1.D0,GG)\r\n      F  = GG**2/C\r\n      K  = K1\r\n      K1 = K + 1\r\n      X  = W(K1)\r\n      T  = X + F\r\n      W(K) = S*T\r\n      IF (K .LT. L) GO TO 120\r\n      E(K) = GG + SHIFT\r\n      GO TO 70\r\n  140 DO 150 I = 1,M\r\n  150 E(I) = E(I)/SCALE\r\n      DO 155 L = 1,M1\r\n      K = M - L\r\n      DO 155 I = 1,K\r\n      IF (E(I) .GT. E(I+1)) GO TO 155\r\n      X = E(I)\r\n      E(I  ) = E(I+1)\r\n      E(I+1) = X\r\n  155 CONTINUE\r\n      DO 160 L = 1,M1\r\n      K = M - L\r\n      DO 160 I = 1,K\r\n      IF (DABS(E(I)) .GT. DABS(E(I+1))) GO TO 160\r\n      X = E(I)\r\n      E(I  ) = E(I+1)\r\n      E(I+1) = X\r\n  160 CONTINUE\r\n  170 IF (M .EQ. 0) RETURN\r\nC\r\nC     COMPUTE EIGENVECTORS BY INVERSE ITERATION\r\nC\r\n      ERF  = B(M+1)\r\n      MVEC = M\r\n      F    = SCALE/HOV\r\n      DO 190 I = 1,M\r\n      A(I) = A(I)*F\r\n  190 B(I) = B(I)*F\r\n      X1   = 0.D0\r\n      DIMF = 10.D0**(-IT/3)\r\n      DO 460 NV = 1,MVEC\r\n      IJ   = NV\r\n      SUMX = 0.D0\r\n      IRP  = 0\r\n      IF (NV .EQ. 1) GO TO 200\r\n      RATIO= DABS(E(NV)/E(NV-1) - 1.D0)\r\n      DIM  = .02D0*DABS(1.D0-LAMBDA*E(NV))\r\n      IF (RATIO.LT.DIM .OR. RATIO.LT.DIMF) GO TO 220\r\n      NRP = 0\r\n      GO TO 225\r\n  200 NRP = 0\r\n      W(I) = 1.D0\r\n      IIP = 1\r\n      NNP = M\r\n      GO TO 330\r\nC\r\nC     MULTIPLE EIGENVALUES\r\nC\r\n  220 NRP = NRP + 1\r\n  225 IF (NV .NE. 2) GO TO 230\r\n      CALL GOPEN (SRFLE,ZB(1),WRTREW)\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      GO TO 240\r\n  230 CALL GOPEN (SRFLE,ZB(1),WRT)\r\n  240 IIP = 1\r\n      NNP = M\r\n      CALL PACK  (W(1),SRFLE,MCB(1))\r\n      CALL CLOSE (SRFLE,NOREW)\r\n      SUM = 0.D0\r\n      SS  = 1.0D0\r\n      DO 250 I = 1,M\r\n      SS  =-SS\r\n      IJ  = IJ + 1\r\n      P(I)= FLOAT(MOD(IJ,3)+1)/(3.0*FLOAT((MOD(IJ,13)+1)*(1+5*I/M)))\r\n      P(I)= P(I)*SS\r\n  250 SUM = SUM + P(I)**2\r\n      SUM = 1.D0/DSQRT(SUM)\r\n      DO 255 I = 1,M\r\n      P(I) = P(I)*SUM\r\n  255 Q(I) = P(I)\r\n      CALL GOPEN (SRFLE,ZB(1),RDREW)\r\n      J   = 0\r\n  260 SUM = 0.D0\r\n      J   = J + 1\r\n      DO 270 I = 1,M\r\n  270 SUM = SUM + W(I)*P(I)\r\n      DO 280 I = 1,M\r\n  280 Q(I) = Q(I) - SUM*W(I)\r\n      IF (J .EQ. (NV-1)) GO TO 290\r\n      II = 1\r\n      NN = M\r\n      CALL UNPACK (*290,SRFLE,W(1))\r\n      GO TO 260\r\n  290 CALL CLOSE (SRFLE,NOREW)\r\n      SUM = 0.D0\r\n      DO 300 I = 1,M\r\n  300 SUM = SUM + Q(I)**2\r\n      SUM = 1.D0/DSQRT(SUM)\r\n      DO 310 I = 1,M\r\n      Q(I) = Q(I)*SUM\r\n  310 W(I) = Q(I)\r\n  330 EV = E(NV)*F\r\n      X  = A(1) - EV\r\n      Y  = B(2)\r\n      DO 350 I = 1,M1\r\n      C  = A(I+1) - EV\r\n      S  = B(I+1)\r\n      IF (DABS(X) .GE. DABS(S)) GO TO 340\r\n      P(I) = S\r\n      Q(I) = C\r\n      INT(I) = .TRUE.\r\n      Z = -X/S\r\n      X = Y + Z*C\r\n      IF (I .LT. M1) Y = Z*B(I+2)\r\n      GO TO 350\r\n  340 IF (DABS(X) .LT. TOL) X = TOL\r\n      P(I) = X\r\n      Q(I) = Y\r\n      INT(I) = .FALSE.\r\n      Z = -S/X\r\n      X = C + Z*Y\r\n      Y = B(I+2)\r\n  350 XM(I) = Z\r\n      IF (DABS(X) .LT. TOL) X = TOL\r\n      NITER = 0\r\n  360 NITER = NITER + 1\r\n      W(M)  = W(M)/X\r\n      EMAX  = DABS(W(M))\r\n      DO 370 L = 1,M1\r\n      I = M-L\r\n      Y = W(I) - Q(I)*W(I+1)\r\n      IF (INT(I)) Y = Y - B(I+2)*W(I+2)\r\n      W(I) = Y/P(I)\r\n      IF (DABS(W(I)) .GT. EMAX) EMAX = DABS(W(I))\r\n  370 CONTINUE\r\n      SUM = 0.D0\r\n      DO 375 I = 1,M\r\nCWKBR W(I) = (W(I)/EMAX)/EPX\r\n      IF ( EMAX .NE. 0.0 ) W(I) = (W(I)/EMAX)/EPX\r\n      IF (DABS(W(I)) .LT. EPX2) W(I) = EPX2\r\n  375 SUM = SUM + W(I)**2\r\n      S   = DSQRT(SUM)\r\n      DO 380 I = 1,M\r\n      W(I) = W(I)/S\r\n  380 CONTINUE\r\n      IF (NITER .GE. 4) GO TO 402\r\n      DO 400 I = 1,M1\r\n      IF (INT(I)) GO TO 390\r\n      W(I+1) = W(I+1) + XM(I)*W(I)\r\n      GO TO 400\r\n  390 Y = W(I)\r\n      W(I  ) = W(I+1)\r\n      W(I+1) = Y + XM(I)*W(I)\r\n  400 CONTINUE\r\n      GO TO 360\r\n  402 IF (NV .EQ. 1) GO TO 410\r\nC\r\nC     MULTIPLE EIGENVALUES AND ORTHOGONALIZATION\r\nC\r\n      IRP = IRP + 1\r\n      CALL GOPEN (SRFLE,ZB(1),RDREW)\r\n      DO 404 I = 1,M\r\n  404 Q(I) = W(I)\r\n      SUMX = 0.D0\r\n      JRP  = NV - 1\r\n      DO 407 I = 1,JRP\r\n      II = 1\r\n      NN = M\r\n      CALL UNPACK (*408,SRFLE,P(1))\r\n      SUM = 0.D0\r\n      DO 405 J = 1,M\r\n  405 SUM = SUM + P(J)*Q(J)\r\n      IF (DABS(SUM) .GT. SUMX) SUMX = DABS(SUM)\r\n      DO 406 J = 1,M\r\n  406 W(J) = W(J) - SUM*P(J)\r\n  407 CONTINUE\r\n  408 CALL CLOSE (SRFLE,NOREW)\r\n  410 CONTINUE\r\nC\r\nC     LOGIC SETTING SUM (BY G.CHAN/UNISYS  7/92)\r\nC\r\nC     SUM = PRC*PREC COULD PRODUCE UNDERFLOW (IT=16, PRC=10.**-32)\r\nC     SUM = ZERO, COULD CAUSE DIVIDED BY ZERO AFTER 420 FOR NULL VECTOR\r\nC     SO, WE CHOOSE SUM A LITTLE SMALLER THAN PRC\r\nC\r\nC     SUM = PRC*PRC\r\nC     SUM = 0.0D+0\r\n      SUM = PRC*1.0D-2\r\nC\r\n      DO 420 I = 1,M\r\n      IF (DABS(W(I)) .GE. PRC) SUM = SUM + W(I)*W(I)\r\n  420 CONTINUE\r\n      SUM = 1.D0/DSQRT(SUM)\r\n      DO 430 I = 1,M\r\n  430 W(I) = W(I)*SUM\r\n      IF (SUMX.GT.0.9D0 .AND. IRP.LT.3) GO TO 330\r\n      IF (L16 .NE. 0) WRITE (IO,435) NV,NITER,IRP,SUMX\r\n  435 FORMAT (10X,18H FEER QRW ELEMENT ,I5,6H ITER ,2I3,6H PROJ ,D16.8)\r\n      IF (JERR.GT. 0) GO TO 450\r\n      ZERR = DABS(W(1))\r\n      DO 440 I = 2,M\r\n      IF (DABS(W(I)) .GT. ZERR) ZERR = DABS(W(I))\r\n  440 CONTINUE\r\n      ZERR = (DABS(W(M)))/ZERR\r\n      IF (ZERR .GT. PPRC) JERR = NV - 1\r\n      IF (JERR .NE.    0) WRITE (IO,445) UWM,JERR\r\n  445 FORMAT (A25,' 2399', /5X,'ONLY THE FIRST',I5,' EIGENSOLUTIONS ',\r\n     1       'CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ',\r\n     2       'ACCURACY TEST FOR EIGENVECTORS.')\r\n  450 CONTINUE\r\n      CALL PACK (W(1),ICF,MCBC(1))\r\n      ER(NV) = DABS(W(M)*ERF/E(NV))\r\n  460 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frbk.f",
    "content": "      SUBROUTINE FRBK (V1,V2,V3,VB)\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS  11/1991\r\nC     . ELIMINATE UN-NECCESSARY REWIND AND SKIP AFTER FIRST CALL TO THIS\r\nC       ROUTINE (NASTRAN ORIGINAL METHOD)\r\nC     . ADDITION OF A NEW BACKWARD-FORWARD SUBSTITUTION METHOD WHICH IS\r\nC       MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      INTEGER          BASE    ,LJJ    ,IBLK(15),BUF(6)\r\n      REAL             V1(1)   ,V2(1)  ,V3(1)   ,VB(1)  ,XL(1) ,XLJJ ,\r\n     1                 ZERO    ,V3J    ,SUM\r\n      COMMON  /OPINV / MCBLT(7),MCBSMA(7)\r\n      COMMON  /SYSTEM/ KSYSTM  ,IO\r\n      COMMON  /FEERXX/ DUMM(18),NZVB\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (XL(1),IZ(1))\r\n      EQUIVALENCE      (LJJ,XLJJ)      ,(L16,DUMM(6))\r\n      DATA     BUF   / 4HFRBK  ,4H     ,2*4HBEGN ,4HEND  ,4HBGIN /\r\n      DATA     ZERO  / 0.0          /\r\nCDB   DATA     DEBUG , ITER    ,MAX /  .FALSE.   ,0      ,3      /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     WRITE  (IO,10) NZVB,ITER\r\nC  10 FORMAT ('  .... IN FRBK.  NZVB =',I8,',  ITER =',I3)\r\nC  20 CONTINUE\r\n      NROW = MCBLT(2)\r\n      DO 30 I = 1,NROW\r\n   30 V2(I) = V1(I)\r\nC\r\nC     SELECTION OF ORIGINAL OR NEW FBS METHOD\r\nC\r\n      J = NROW\r\n      IF (MCBLT(7) .LT. 0) GO TO 200\r\nC\r\nC     NASTRAN ORIGIANL METHOD\r\nC\r\n      IBLK( 1) = MCBLT(1)\r\n      IBLK( 9) = 1\r\n      IBLK(10) = 1\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\n      IF (BUF(3) .EQ. BUF(5)) GO TO 40\r\n      BUF(3) = BUF(4)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\nC\r\nC     REWIND AND SKIP TO COLUMN N\r\nC\r\n      CALL REWIND (MCBLT)\r\n      CALL SKPREC (MCBLT,NROW+1)\r\n      GO TO 50\r\nC\r\nC     ALREADY AT END, NO SKIP NEEDED\r\nC\r\n   40 BUF(3) = BUF(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\nC\r\n   50 IBLK(8) = -1\r\n   60 CALL GETSTB (*100,IBLK(1))\r\n      NTMS = IBLK(6)\r\n      JI   = IBLK(5)\r\n      IK   = IBLK(4)\r\n      IF (IK-NTMS+1 .NE. J) GO TO 70\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL(JI-NTMS)\r\n      IF (NTMS .EQ. 0) GO TO 90\r\n   70 SUM  = ZERO\r\n      DO 80 II = 1,NTMS\r\n      SUM  = SUM + XL(JI)*V2(IK)\r\n      JI   = JI - 1\r\n      IK   = IK - 1\r\n   80 CONTINUE\r\n      V2(J)= V2(J) + SUM\r\n   90 CALL ENDGTB (IBLK(1))\r\n      GO TO 60\r\n  100 V2(J)= V2(J)/XLJJ\r\n      IF (J .EQ. 1) GO TO 110\r\n      J    = J - 1\r\n      GO TO 50\r\n  110 CALL FRMLT (MCBSMA(1),V2(1),V3(1),VB(1))\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      DO 160 J = 1,NROW\r\n      IBLK(8) = -1\r\n  120 CALL GETSTR (*160,IBLK(1))\r\n      JI   = IBLK(5)\r\n      NTMS = IBLK(6)\r\n      IK   = IBLK(4)\r\n      IF (IK .NE. J) GO TO 130\r\n      NTMS = NTMS - 1\r\n      V3(J)= V3(J)/XL(JI)\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n  130 IF (NTMS .EQ. 0) GO TO 150\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 150\r\n      DO 140 II = 1,NTMS\r\n      V3(IK) = V3(IK) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n  140 CONTINUE\r\n  150 CALL ENDGET (IBLK(1))\r\n      GO TO 120\r\n  160 CONTINUE\r\n      GO TO 500\r\nC\r\nC     NEW METHOD\r\nC\r\nC     MATRIX MCBLT HAS BEEN RE-WRITTEN TO MCBLTX BY UNPSCR/FEER3. NO\r\nC     STRING OPERATIONS HERE.\r\nC\r\n  200 IF (BUF(3) .EQ. BUF(5)) BUF(3) = BUF(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\n      MCBLTX = -MCBLT(7)\r\n      IF (MOD(MCBLT(4),10) .NE. 3) GO TO 440\r\n      NREC = 0\r\n      CALL REWIND (MCBLTX)\r\n      CALL FWDREC (*400,MCBLTX)\r\nC     NWDS = MCBLT(5)\r\nC\r\nC     IZ(1)                                                      GINO\r\nC      / V1   V2    V3           VB (OPEN CORE LENGTH = NZVB)   BUFFERS\r\nC     +-----+-----+-----+-----+-------------------------------+---------\r\nC                          OPEN  CORE\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = -350\r\n      DO 280 IK = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 240\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\nC 210 FORMAT ('  ...READING RECORD',I5,'.   IFB =',I5)\r\n      CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\nC 220 LL2  = LL/NWDS\r\n  220 LL2  = LL\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\nC 230 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,'.   LL2 =',I10)\r\n      BASE = 1\r\n  240 XLJJ = VB(BASE)\r\n      II   = LJJ\r\n      XLJJ = VB(BASE+1)\r\n      JJ   = LJJ\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\nC 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8)\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 3\r\n      IE   = BASE + 1 + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 270\r\n      SUM  = ZERO\r\n      DO 260 I = IB,IE\r\n      II   = II + 1\r\n  260 SUM  = SUM + VB(I)*V2(II)\r\n      V2(J)= V2(J) + SUM\r\n  270 V2(J)= V2(J)/VB(IB-1)\r\n  280 J    = J - 1\r\n      CALL FRMLT (MCBSMA(1),V2(1),V3(1),VB(1))\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      NREC = 0\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = +390\r\n      DO 320 J = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 300\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\n      CALL READ (*400,*290,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\nC 290 LL2  = LL/NWDS\r\n  290 LL2  = LL\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\n      BASE = 1\r\n  300 XLJJ = VB(BASE)\r\n      II   = LJJ\r\n      XLJJ = VB(BASE+1)\r\n      JJ   = LJJ\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      V3(J)= V3(J)/VB(BASE+2)\r\n      IF (NTMS .LE. 1) GO TO 320\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 320\r\n      IB   = BASE + 3\r\n      IE   = BASE + 1 + NTMS\r\n      DO 310 I = IB,IE\r\n      II   = II + 1\r\n  310 V3(II) = V3(II) + VB(I)*V3J\r\n  320 BASE = BASE + NTMS + 2\r\n      GO TO 500\r\nC\r\n  400 I = MCBLT(4)/10\r\n      WRITE  (IO,410) NREC,J,I,IFB\r\n  410 FORMAT ('0*** TRY TO READ RECORD',I5,'.  J,MCBLT(4),IFB =',I7,2I5)\r\n      CALL MESAGE (-3,MCBLTX,BUF(1))\r\n  420 WRITE  (IO,430) J,II,IFB\r\n  430 FORMAT ('0*** ROW MISMATCH.  J,II,(IFB =',I7,I12,3H  (,I4)\r\n      GO TO 460\r\n  440 J = MOD(MCBLT(4),10)\r\n      WRITE  (IO,450) J\r\n  450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM.  UNPSCR FLAG =',I3)\r\n      GO TO 460\r\n  460 CALL MESAGE (-37,0,BUF(1))\r\nC\r\n  500 BUF(3) = BUF(5)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frbk2.f",
    "content": "      SUBROUTINE FRBK2 (V1,V2,V3,VB)\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS  11/1991\r\nC     . ELIMINATE UN-NECCESSARY REWIND AND SKIP AFTER FIRST CALL TO THIS\r\nC       ROUTINE (NASTRAN ORIGINAL METHOD)\r\nC     . ADDITION OF A NEW BACKWARD-FORWARD SUBSTITUTION METHOD WHICH IS\r\nC       MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      INTEGER          BASE    ,BUF(6) ,LJJ(2)  ,IBLK(15)\r\n      DOUBLE PRECISION V1(1)   ,V2(1)  ,V3(1)   ,VB(1)  ,XL(1)  ,XLJJ ,\r\n     1                 ZERO    ,V3J    ,SUM\r\n      COMMON  /OPINV / MCBLT(7),MCBSMA(7)\r\n      COMMON  /SYSTEM/ KSYSTM  ,IO\r\n      COMMON  /FEERXX/ DUMM(18),NZVB\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (XL(1),IZ(1))\r\n      EQUIVALENCE      (LJJ(1) ,XLJJ)  ,(L16,DUMM(6))\r\n      DATA     BUF   / 4HFRBK  ,4H2    ,2*4HBEGN ,4HEND  ,4HBGIN /\r\n      DATA     ZERO  / 0.0D+0       /\r\nCDB   DATA     DEBUG , ITER    ,MAX /  .FALSE.   ,0      ,3      /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     WRITE  (IO,10) NZVB,ITER\r\nC  10 FORMAT ('  .... IN FRBK2.  NZVB =',I8,',  ITER =',I3)\r\nC  20 CONTINUE\r\n      NROW = MCBLT(2)\r\n      DO 30 I = 1,NROW\r\n   30 V2(I) = V1(I)\r\nC\r\nC     SELECTION OF ORIGINAL OR NEW FBS METHOD\r\nC\r\n      J = NROW\r\n      IF (MCBLT(7) .LT. 0) GO TO 200\r\nC\r\nC     NASTRAN ORIGIANL METHOD\r\nC\r\n      IBLK( 1) = MCBLT(1)\r\n      IBLK( 9) = 1\r\n      IBLK(10) = 1\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\n      IF (BUF(3) .EQ. BUF(5)) GO TO 40\r\nC     BUF(3) = BUF(4)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\nC\r\nC     REWIND AND SKIP TO COLUMN N\r\nC\r\n      CALL REWIND (MCBLT)\r\n      CALL SKPREC (MCBLT,NROW+1)\r\n      GO TO 50\r\nC\r\nC     ALREADY AT END, NO SKIP NEEDED\r\nC\r\n   40 BUF(3) = BUF(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\nC\r\n   50 IBLK(8) = -1\r\n   60 CALL GETSTB (*100,IBLK(1))\r\n      NTMS = IBLK(6)\r\n      JI   = IBLK(5)\r\n      IK   = IBLK(4)\r\n      IF (IK-NTMS+1 .NE. J) GO TO 70\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL(JI-NTMS)\r\n      IF (NTMS .EQ. 0) GO TO 90\r\n   70 SUM  = ZERO\r\n      DO 80 II = 1,NTMS\r\n      SUM  = SUM + XL(JI)*V2(IK)\r\n      JI   = JI - 1\r\n      IK   = IK - 1\r\n   80 CONTINUE\r\n      V2(J)= V2(J) + SUM\r\n   90 CALL ENDGTB (IBLK(1))\r\n      GO TO 60\r\n  100 V2(J)= V2(J)/XLJJ\r\n      IF (J .EQ. 1) GO TO 110\r\n      J    = J - 1\r\n      GO TO 50\r\n  110 CALL FRMLTD (MCBSMA(1),V2(1),V3(1),VB(1))\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      DO 160 J = 1,NROW\r\n      IBLK(8) = -1\r\n  120 CALL GETSTR (*160,IBLK(1))\r\n      JI   = IBLK(5)\r\n      NTMS = IBLK(6)\r\n      IK   = IBLK(4)\r\n      IF (IK .NE. J) GO TO 130\r\n      NTMS = NTMS - 1\r\n      V3(J)= V3(J)/XL(JI)\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n  130 IF (NTMS .EQ. 0) GO TO 150\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 150\r\n      DO 140 II = 1,NTMS\r\n      V3(IK) = V3(IK) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n  140 CONTINUE\r\n  150 CALL ENDGET (IBLK(1))\r\n      GO TO 120\r\n  160 CONTINUE\r\n      GO TO 500\r\nC\r\nC     NEW METHOD\r\nC\r\nC     MATRIX MCBLT HAS BEEN RE-WRITTEN TO MCBLTX BY UNPSCR/FEER3. NO\r\nC     STRING OPERATIONS HERE.\r\nC\r\n  200 IF (BUF(3) .EQ. BUF(5)) BUF(3) = BUF(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\n      MCBLTX = -MCBLT(7)\r\n      IF (MOD(MCBLT(4),10) .NE. 3) GO TO 440\r\n      NREC = 0\r\n      CALL REWIND (MCBLTX)\r\n      CALL FWDREC (*400,MCBLTX)\r\n      NWDS = MCBLT(5)\r\nC\r\nC     IZ(1)                                                      GINO\r\nC      / V1   V2    V3           VB (OPEN CORE LENGTH = NZVB)   BUFFERS\r\nC     +-----+-----+-----+-----+-------------------------------+---------\r\nC                          OPEN  CORE\r\nC\r\nC\r\nC     BACKWARD SUBSTITUTION\r\nC\r\nC\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = -350\r\n      DO 280 IK = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 240\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\nC 210 FORMAT ('  ...READING RECORD',I5,'.   IFB =',I5)\r\n      CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n  220 LL2  = LL/NWDS\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\nC 230 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,'.   LL2 =',I10)\r\n      BASE = 1\r\n  240 XLJJ = VB(BASE)\r\n      II   = LJJ(1)\r\n      JJ   = LJJ(2)\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\nC 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8)\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 2\r\n      IE   = BASE + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 270\r\n      SUM  = ZERO\r\n      DO 260 I = IB,IE\r\n      II   = II + 1\r\n  260 SUM  = SUM + VB(I)*V2(II)\r\n      V2(J)= V2(J) + SUM\r\n  270 V2(J)= V2(J)/VB(IB-1)\r\n  280 J    = J - 1\r\n      CALL FRMLTD (MCBSMA(1),V2(1),V3(1),VB(1))\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      NREC = 0\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = +390\r\n      DO 320 J = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 300\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\n      CALL READ (*400,*290,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n  290 LL2  = LL/NWDS\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\n      BASE = 1\r\n  300 XLJJ = VB(BASE)\r\n      II   = LJJ(1)\r\n      JJ   = LJJ(2)\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      V3(J)= V3(J)/VB(BASE+1)\r\n      IF (NTMS .LE. 1) GO TO 320\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 320\r\n      IB   = BASE + 2\r\n      IE   = BASE + NTMS\r\n      DO 310 I = IB,IE\r\n      II   = II + 1\r\n  310 V3(II) = V3(II) + VB(I)*V3J\r\n  320 BASE = BASE + NTMS + 1\r\n      GO TO 500\r\nC\r\n  400 I = MCBLT(4)/10\r\n      WRITE  (IO,410) NREC,J,I,IFB\r\n  410 FORMAT ('0*** TRY TO READ RECORD',I5,'.  J,MCBLT(4),IFB =',I7,2I5)\r\n      CALL MESAGE (-3,MCBLTX,NAM)\r\n  420 WRITE  (IO,430) J,II,IFB\r\n  430 FORMAT ('0*** ROW MISMATCH.  J,II,(IFB =',I7,I12,3H  (,I4)\r\n      GO TO 460\r\n  440 J = MOD(MCBLT(4),10)\r\n      WRITE  (IO,450) J\r\n  450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM.   UNPSCR FLAG =',2I3)\r\n  460 CALL MESAGE (-37,0,BUF(1))\r\nC\r\n  500 BUF(3) = BUF(5)\r\n      IF (L16 .NE. 0) CALL CONMSG (BUF,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2a.f",
    "content": "      SUBROUTINE FRD2A (NQHL,QHR,QHI,IH,NFREQ)\r\nC\r\n      INTEGER         QHR,QHI,SYSBUF,MCB(7),THR(7),THI(7)\r\n      DIMENSION       Z(1)\r\n      COMMON /ZZZZZZ/ Z\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\nC\r\nC     FIND COLUMN OF NQHL AND COPY REAL TO QHR AND IMAG TO QHI\r\nC\r\n      NZ = KORSZ(Z) - SYSBUF\r\n      MCB(1) = NQHL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2) .EQ.0) GO TO 999\r\n      IOUT = MCB(5)\r\n      ITI  = 1\r\n      IF (IOUT .EQ. 4) ITI = 2\r\n      ITO  = ITI\r\n      NNN  = MCB(3)\r\n      INN  = 1\r\n      INCR1= 1\r\n      II   = 1\r\n      NN   = IH\r\n      INCR = 2\r\n      NWC  = 2\r\n      IF (IOUT .EQ. 4) NWC = 4\r\n      IBUF1 = NZ\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      CALL OPEN (*999,NQHL,Z(IBUF1),0)\r\n      CALL READ (*999,*999,NQHL,Z(1),-2,1,FLAG)\r\n      CALL MAKMCB (THR,QHR,IH,MCB(4),ITO)\r\n      CALL MAKMCB (THI,QHI,IH,MCB(4),ITO)\r\n      CALL SKPREC (NQHL,NFREQ-1)\r\n      CALL UNPACK (*25,NQHL,Z(1))\r\n      GO TO 30\r\n   25 CALL ZEROC  (Z,NNN*NWC)\r\n   30 J = 1\r\n      CALL CLOSE (NQHL,1)\r\n      CALL GOPEN (QHR,Z(IBUF2),1)\r\n      CALL GOPEN (QHI,Z(IBUF1),1)\r\n      DO 40 I = 1,IH\r\n      CALL PACK (Z(J),QHR,THR)\r\n      CALL PACK (Z(J+1),QHI,THI)\r\n      J = J + IH*NWC\r\n   40 CONTINUE\r\n      CALL CLOSE  (QHR,1)\r\n      CALL CLOSE  (QHI,1)\r\n      CALL WRTTRL (THR)\r\n      CALL WRTTRL (THI)\r\n      CALL DMPFIL (-QHR,Z,NZ)\r\n      CALL DMPFIL (-QHI,Z,NZ)\r\n      GO TO 1000\r\n  999 CALL MAKMCB (THR,QHR,0,0,0)\r\n      CALL WRTTRL (THR)\r\n      THR(1) = QHI\r\n      CALL WRTTRL (THR)\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2b.f",
    "content": "      SUBROUTINE FRD2B (A,ALP,B,BET,C,GAM,D,DEL,E,EPS,OUT)\r\nC\r\nC     ADD UP MATRICIES\r\nC\r\n      INTEGER         A,B,C,D,E,OUT,TYPA,TYPB,TYPC,TYPD,TYPE\r\n      REAL            ALP(2),BET(2),GAM(2),DEL(2),EPS(2),Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(54), IPREC\r\n      COMMON /ZZZZZZ/ Z\r\n      COMMON /SADDX / NOMAT,LCORE,MCBA(7),TYPA,ALPHA(4),MCBB(7),TYPB,\r\n     1                BETA(4),MCBC(7),TYPC,GAMA(4),MCBD(7),TYPD,\r\n     2                DELTA(4),MCBE(7),TYPE,EPSLN(4),MC(7)\r\n      COMMON /FRD2BC/ IH\r\nC\r\n      NC    = KORSZ(Z)\r\n      NOMAT = 5\r\n      LCORE = NC\r\n      TYPA  = 3\r\n      TYPB  = 3\r\n      TYPC  = 3\r\n      TYPD  = 3\r\n      TYPE  = 3\r\n      ALPHA(1) = ALP(1)\r\n      ALPHA(2) = ALP(2)\r\n      BETA(1)  = BET(1)\r\n      BETA(2)  = BET(2)\r\n      GAMA(1)  = GAM(1)\r\n      GAMA(2)  = GAM(2)\r\n      DELTA(1) = DEL(1)\r\n      DELTA(2) = DEL(2)\r\n      EPSLN(1) = EPS(1)\r\n      EPSLN(2) = EPS(2)\r\n      MCBA(1)  = A\r\n      MCBB(1)  = B\r\n      MCBC(1)  = C\r\n      MCBD(1)  = D\r\n      MCBE(1)  = E\r\n      CALL RDTRL (MCBA)\r\n      CALL RDTRL (MCBB)\r\n      CALL RDTRL (MCBC)\r\n      CALL RDTRL (MCBD)\r\n      CALL RDTRL (MCBE)\r\n      IFO = 6\r\n      ITY = 3\r\n      IF (IH.EQ.0 .AND. IPREC.EQ.2) ITY = 4\r\nC\r\nC     IH IN /FRD2BC/ IS INITIALIZED BY ROUTINE FRRD2.\r\nC     (COMPLEX D.P. ARITHMETIC IS USED IF IH = 0)\r\nC\r\n      N = 0\r\n      DO 10 I = 1,49,12\r\n      IF (MCBA(I  ) .LT. 0) MCBA(I) = 0\r\n      IF (MCBA(I+1) .EQ. 0) MCBA(I) = 0\r\n      IF (MCBA(I  ) .EQ. 0) GO TO 10\r\n      IF (N .EQ. 0) N = MCBA(I+1)\r\n      IROW = MCBA(I+2)\r\n      IF (MCBA(I+3) .NE. 6) IFO  = 1\r\n   10 CONTINUE\r\n      CALL MAKMCB (MC,OUT,IROW,IFO,ITY)\r\n      MC(2) = N\r\n      CALL SADD (Z,Z)\r\n      CALL WRTTRL (MC)\r\n      CALL DMPFIL (-OUT,Z,NC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2c.f",
    "content": "      SUBROUTINE FRD2C (A,B,X,SCR1,SCR2,SCR3,SCR4,SCR5,NLOAD,NFREQ)\r\nC\r\nC     SOLVE A X = B\r\nC     USE INCORE DECOMP IF POSSIBLE\r\nC\r\n      INTEGER         A,B,X,SCR1,SCR2,SCR3,SCR4,SCR5,SYSBUF,OUT,TA(7),\r\n     1                TB(7),TX(7)\r\n      DIMENSION       ZZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SYSTEM/ SYSBUF,OUT,DUM(52),IPREC\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /FRD2BC/ IH,IP\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ZZ(1),Z(1))\r\nC\r\n      ICORE= KORSZ(Z)\r\n      INCR = 1\r\n      II   = 1\r\n      INN  = 1\r\n      INCR1= 1\r\n      IOUT = 3\r\n      IF (IH.EQ.0 .AND. IPREC.EQ.2) IOUT = 4\r\nC\r\nC     IH IN /FRD2BC/ IS INITIALIZED BY ROUTINE FRRD2.\r\nC     (COMPLEX D.P. ARITHMETIC IS USED IF IH=0)\r\nC\r\n      ITO = IOUT\r\n      ITI = ITO\r\nC\r\nC     DECIDE IF INCORE IS POSSIBLE\r\nC\r\n      TA(1) = A\r\n      CALL RDTRL (TA)\r\n      TB(1) = B\r\n      CALL RDTRL (TB)\r\n      NA    = TA(2)\r\n      NB    = TB(3)*NLOAD\r\n      IBUF1 = ICORE - SYSBUF\r\n      NCORE = NA*NA*2 + NB*2 + NB*2 + SYSBUF\r\nC\r\nC     IF IH=0, COMPLEX D.P. COMPUTATION WILL BE USED.  NOTICE THAT THE\r\nC     ROUTINE INCORE IS WRITTEN ONLY FOR COMPLEX S.P. OPERATION.\r\nC\r\n      IF (IH .EQ. 0) GO TO 102\r\n      IF (NCORE .GT. ICORE) GO TO 100\r\nC\r\nC     DO INCORE\r\nC\r\n      IA = 1\r\n      CALL GOPEN (A,Z(IBUF1),0)\r\n      NNN = TA(3)\r\n      INCR1 = NNN\r\n      N = NA + NA\r\n      DO 10 I = 1,N,2\r\n      CALL UNPACK (*11,A,Z(I))\r\n      GO TO 10\r\n   11 DO 12 K = 1,N,2\r\n      L = (K-1)*NNN\r\n      Z(I+L  ) = 0.0\r\n      Z(I+L+1) = 0.0\r\n   12 CONTINUE\r\n   10 CONTINUE\r\n      CALL CLOSE (A,1)\r\nC\r\nC     GET FREQ FROM B\r\nC\r\n      IB   = NNN*NNN*2 + 1\r\n      NNN  = TB(3)\r\n      INCR1= NLOAD\r\n      N1   = NNN + NNN\r\n      J    = TB(2)/NLOAD - 1\r\n      M    = 0\r\n      CALL GOPEN (B,Z(IBUF1),0)\r\n      CALL SKPREC (B,NFREQ-1)\r\n      DO 30 I = 1,NLOAD\r\n      CALL UNPACK (*31,B,Z(IB+M))\r\n      GO TO 33\r\n   31 DO 32 K = 1,N1,2\r\n      L = (K-1)*NLOAD + IB + M\r\n      Z(L  ) = 0.0\r\n      Z(L+1) = 0.0\r\n   32 CONTINUE\r\n   33 IF (I .NE. NLOAD) CALL SKPREC (B,J)\r\n      M = M+2\r\n   30 CONTINUE\r\n      CALL CLOSE (B,1)\r\n      IX = NLOAD*NNN*2 + IB\r\n      CALL INCORE (Z(IA),NA,Z(IB),Z(IX),NLOAD)\r\n      NN = NA\r\n      CALL GOPEN (X,Z(IBUF1),1)\r\n      CALL MAKMCB (TX,X,NN,TB(4),ITO)\r\n      INCR = NLOAD\r\n      J = IX\r\n      DO 50 I = 1,NLOAD\r\n      CALL PACK (Z(J),X,TX)\r\n   50 J = J + 2\r\n      CALL CLOSE (X,1)\r\n      CALL WRTTRL (TX)\r\n      GO TO 1000\r\nC\r\nC     USE FILE SOLVE\r\nC\r\n  100 IF (IP .NE. 0) GO TO 102\r\n      IP = NCORE - ICORE\r\n      WRITE  (OUT,101) UIM,IP\r\n  101 FORMAT (A29,' 2437, ADDITIONAL CORE NEEDED FOR IN-CORE ',\r\n     1       'DECOMPOSITION IN FRRD2 MODULE IS',I8,' WORDS.')\r\n  102 CALL CFACTR (A,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT)\r\n      ICORE = KORSZ(ZZ)\r\n      IBUF1 = ICORE - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      CALL GOPEN (B,ZZ(IBUF1),0)\r\n      CALL GOPEN (SCR3,ZZ(IBUF2),1)\r\n      IOUT = 3\r\n      IF (IH.EQ.0 .AND. IPREC.EQ.2) IOUT = 4\r\n      INCR1 = 1\r\n      J = TB(2)/NLOAD - 1\r\n      NN = TB(3)\r\n      CALL MAKMCB (TX,SCR3,NN,TB(4),ITO)\r\n      CALL SKPREC (B,NFREQ-1)\r\n      DO 110 I = 1,NLOAD\r\n      CALL CYCT2B (B,SCR3,1,ZZ,TX)\r\n      IF (I .NE. NLOAD) CALL SKPREC (B,J)\r\n  110 CONTINUE\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (B,1)\r\n      CALL WRTTRL (TX)\r\n      CALL CFBSOR (SCR1,SCR2,SCR3,X,IOPT)\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2d.f",
    "content": "      SUBROUTINE FRD2D (IN,IO,IP)\r\nC\r\n      INTEGER         SYSBUF,MA(7),MB(7)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /UNPAKX/ IOUT,INN,MNN,INCR1\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC     ADD IN TO END OF IO\r\nC\r\n      INCR1 = 1\r\n      MA(1) = IN\r\n      MB(1) = IO\r\n      CALL RDTRL (MA)\r\n      IOUT  = MA(5)\r\n      NC    = KORSZ(Z)\r\n      IB1   = NC  - SYSBUF\r\n      IB2   = IB1 - SYSBUF\r\n      CALL GOPEN (IN,Z(IB1),0)\r\n      IF (IP .NE. 0) GO TO 10\r\n      CALL GOPEN (IO,Z(IB2),1)\r\n      CALL MAKMCB (MB,IO,MA(3),2,IOUT)\r\n      GO TO 20\r\n   10 CALL GOPEN (IO,Z(IB2),3)\r\n      CALL RDTRL (MB)\r\n   20 N = MA(2)\r\n      CALL CYCT2B (IN,IO,N,Z,MB)\r\n      CALL CLOSE  (IN,1)\r\n      CALL CLOSE  (IO,3)\r\n      CALL WRTTRL (MB)\r\n      CALL DMPFIL (-IN,Z,NC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2e.f",
    "content": "      SUBROUTINE FRD2E (IN,IO,NLOAD,NFREQ)\r\nC\r\n      INTEGER         MA(7),MB(7)\r\n      COMMON /SYSTEM/ ISYS\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC     MAKE UHDF FROM IN\r\nC\r\n      INCR1 = 1\r\n      MA(1) = IN\r\n      MB(1) = IO\r\n      IB1   = KORSZ(Z) - ISYS\r\n      IB2   = IB1 - ISYS\r\n      CALL RDTRL (MA)\r\n      IOUT  = MA(5)\r\n      CALL GOPEN (IN,Z(IB1),0)\r\n      CALL GOPEN (IO,Z(IB2),1)\r\n      CALL MAKMCB (MB,IO,MA(3),MA(4),IOUT)\r\n      DO 30 J = 1,NLOAD\r\n      CALL SKPREC (IN,J-1)\r\n      DO 10 I = 1,NFREQ\r\n      CALL CYCT2B (IN,IO,1,Z,MB)\r\n      IF (I .NE. NFREQ) CALL SKPREC (IN,NLOAD-1)\r\n   10 CONTINUE\r\n      CALL REWIND (IN)\r\n      CALL SKPREC (IN,1)\r\n   30 CONTINUE\r\n      CALL CLOSE (IN,1)\r\n      CALL CLOSE (IO,1)\r\n      CALL WRTTRL (MB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frd2f.f",
    "content": "      SUBROUTINE FRD2F (MHH,BHH,KHH,FRL,FRQSET,NLOAD,NFREQ,PH,UHV)\r\nC\r\nC     ROUTINE  SOLVES DIRECTLY FOR UNCOUPLED MODAL FORMULATION\r\nC\r\n      INTEGER BHH,FRL,FRQSET,PH,UHV,SYSBUF,FILE,MCB(7)\r\n      INTEGER NAME(2)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZBLPKX/ B(4),JJ\r\n      COMMON /ZNTPKX/A(4),II,IEOL,IEOR\r\n      COMMON  /ZZZZZZ/ CORE(1)\r\nC\r\n      DATA NAME /4HFRD2,4HF   /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IBUF1 = KORSZ(CORE) -SYSBUF +1\r\nC\r\nC     PICK UP FREQUENCY LIST\r\nC\r\n      CALL GOPEN(FRL,CORE(IBUF1),0)\r\n      CALL SKPREC(FRL,FRQSET-1)\r\n      IF(IBUF1-1 .LT. NFREQ) GO TO 170\r\n      CALL FREAD(FRL,CORE,NFREQ,1)\r\n      CALL CLOSE( FRL, 1 )\r\nC\r\nC     BRING IN  MODAL MATRICES\r\nC\r\n      IMHH = NFREQ\r\n      MCB(1) = MHH\r\n      CALL RDTRL(MCB)\r\n      LHSET =MCB(2)\r\n      IF(IBUF1-1 .LT. NFREQ+3*LHSET) GO TO 170\r\n      IBHH = IMHH+LHSET\r\n      IKHH = IBHH+LHSET\r\nC\r\nC     BRING IN MHH\r\nC\r\n      MATNAM = MHH\r\n      ASSIGN 30 TO IRET\r\n      IPNT  = IMHH\r\n      GO TO 110\r\nC\r\nC     BRING  IN  BHH\r\nC\r\n   30 MATNAM = BHH\r\n      ASSIGN 40 TO IRET\r\n      IPNT  = IBHH\r\n      GO TO 110\r\nC\r\nC     BRING IN KHH\r\nC\r\n   40 MATNAM =  KHH\r\n      ASSIGN 50 TO IRET\r\n      IPNT = IKHH\r\n      GO TO 110\r\nC\r\nC     READY LOADS\r\nC\r\n   50 CALL GOPEN(PH,CORE(IBUF1),0)\r\nC\r\nC     READY SOLUTIONS\r\nC\r\n      IBUF2 = IBUF1-SYSBUF\r\n      CALL GOPEN(UHV,CORE(IBUF2),1)\r\n      CALL MAKMCB(MCB,UHV,LHSET,2,3)\r\nC\r\nC     COMPUTE  SOLUTIONS\r\nC\r\n      DO 100 I=1,NLOAD\r\n      DO 90 J=1,NFREQ\r\nC\r\nC     PICK  UP  FREQ\r\nC\r\n      W = CORE(J)\r\n      W2 = -W*W\r\n      CALL BLDPK(3,3,UHV,0,0)\r\n      CALL INTPK(*80,PH,0,3,0)\r\n   60 IF( IEOL)  80,70,80\r\n   70 CALL ZNTPKI\r\nC\r\nC     COMPUTE  REAL AND COMPLEX PARTS OF DENOMINATOR\r\nC\r\n      IK = IKHH +II\r\n      IB = IBHH +II\r\n      IM = IMHH +II\r\n      RDEM = W2*CORE(IM) + CORE(IK)\r\n      CDEM = CORE(IB)* W\r\n      DEM = RDEM*RDEM+CDEM*CDEM\r\n      IF(DEM .NE. 0.0) GO TO 71\r\n      CALL MESAGE(5,J,NAME)\r\n      B(1) = 0.0\r\n      B(2) = 0.0\r\n      GO TO 72\r\n   71 CONTINUE\r\nC\r\nC     COMPUTE REAL AND COMPLEX PHI-S\r\nC\r\n      B(1) = (A(1)*RDEM+A(2)*CDEM)/DEM\r\n      B(2) = (A(2)*RDEM-A(1)*CDEM)/DEM\r\n   72 JJ = II\r\n      CALL  ZBLPKI\r\n      GO TO 60\r\nC\r\nC     END  COLUMN\r\nC\r\n   80 CALL BLDPKN(UHV,0,MCB)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      CALL CLOSE(UHV,1)\r\n      CALL CLOSE(PH,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE TO BRING IN  H MATRICES\r\nC\r\n  110 FILE =MATNAM\r\n      CALL OPEN(*132,MATNAM,CORE(IBUF1),0)\r\n      CALL SKPREC(MATNAM,1)\r\n      DO 130 I=1,LHSET\r\n      IPNT =IPNT +1\r\n      CALL INTPK(*120,MATNAM,0,1,0)\r\n      CALL ZNTPKI\r\n      IF( II .NE. I  .OR. IEOL .NE. 1) GO TO 180\r\n      CORE(IPNT) = A(1)\r\n      GO TO 130\r\nC\r\nC     NULL COLUMN\r\nC\r\n  120 CORE(IPNT) = 0.0\r\n  130 CONTINUE\r\n      CALL CLOSE(MATNAM,1)\r\n  131 GO TO IRET,(30,40,50)\r\nC\r\nC      ZERO CORE FOR PURGED MATRIX\r\nC\r\n  132 DO 133 I = 1 , LHSET\r\n      IPNT = IPNT+1\r\n      CORE(IPNT) = 0.0\r\n  133 CONTINUE\r\n      GO TO 131\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  150 CALL MESAGE(IP1,FILE,NAME)\r\n  170 IP1 = -8\r\n      GO TO 150\r\n  180 IP1 = -7\r\n      GO TO 150\r\n      END\r\n"
  },
  {
    "path": "mis/frd2i.f",
    "content": "      SUBROUTINE FRD2I (FL,NFREQ,NCORE,QHHL,SCR2,SCR1,SCR3,SCR4,NROW)\r\nC\r\n      INTEGER         QHHL,SCR1,SCR2,SCR3,SCR4,TRL(7),OUT\r\n      DIMENSION       FL(1),MCB(7),NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / BOV,Q,RM\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /SYSTEM/ ISYS,OUT,DUM(52),IPREC\r\n      COMMON /UNPAKX/ IOUT,INN,NNN,INCR1\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /TYPE  / P(2),IWC(4)\r\n      DATA    NAME  / 4HFRD2,4HI   /\r\n      DATA    NHFRDI/ 4HFRDI/\r\nC\r\n      IBUF1 = NCORE - ISYS\r\n      IBUF2 = IBUF1 - ISYS\r\n      NROW  = 0\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      II    = 1\r\n      INN   = 1\r\n      MCB(1)= QHHL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 1000\r\n      NROW  = MCB(3)\r\n      NI    =(MCB(2)/MCB(3))*2\r\n      NNN   = NROW\r\n      NN    = NROW*NROW\r\n      ITI   = 3\r\n      ITO   = ITI\r\n      IOUT  = ITI\r\n      NWC   = IWC(ITI)\r\n      ISCR  = SCR1\r\n      NLOOP = 1\r\n      INDX  = 0\r\n      XM    = RM\r\n      IF (RM .GE. 0.0) GO TO 5\r\n      ISCR  = SCR2\r\n      NLOOP = NFREQ\r\n      INDX  = 1\r\n    5 CALL MAKMCB (TRL,ISCR,NN,MCB(4),ITO)\r\nC\r\nC     MAKE INDEPENDENT FREQ LIST\r\nC\r\n      IPD   = 1\r\n      NL    = 2*NFREQ\r\n      N     = NFREQ + 1\r\n      ICORE = IBUF1\r\n      IPI   = IPD + NL\r\n      DO 10 I = 1,NFREQ\r\n      FL(NL) = FL(N-I)*TWOPI*BOV\r\n      FL(NL-1) = 0.0\r\n      NL = NL -2\r\n   10 CONTINUE\r\nC\r\nC     MAKE INDEPENDENT FREQ LIST\r\nC\r\n      CALL OPEN  (*1000,QHHL,FL(IBUF2),0)\r\n      CALL GOPEN (ISCR,FL(IBUF1),1)\r\n      CALL READ  (*999,*999,QHHL,FL(IPI),-3,0,FLAG)\r\n      CALL READ  (*999,*999,QHHL,N,1,0,FLAG)\r\n      N = N + N\r\n      IF (RM.GE.0.0 .OR. N.EQ.NI) GO TO 15\r\n      WRITE  (OUT, 2000) UFM,N,NI\r\n 2000 FORMAT (A23,', THE NUMBER OF (M,K) PAIRS SPECIFIED ON MKAEROX ',\r\n     1       'CARDS (', I5, ') IS NOT EQUAL ', /5X,\r\n     2       'TO THE NUMBER OF FREQUENCIES SPECIFIED (', I5, '),')\r\n      CALL MESAGE (-37,0,NAME)\r\n  15  NI = MIN0(NI,N)\r\n      CALL READ (*999,*999,QHHL,FL(IPI),NI,1,FLAG)\r\n      IF (RM .LT. 0.0) CALL CLOSE (QHHL, 1)\r\nC\r\n      DO 200 KKK = 1, NLOOP\r\n      IF (RM .GE. 0.0) GO TO 20\r\n      XM = FL(2*KKK)\r\n      CALL GOPEN (QHHL,FL(IBUF2),0)\r\n   20 CONTINUE\r\nC\r\nC     FOR RM.GE.0.0, FIND M CLOSEST TO XM\r\nC     FOR RM.LT.0.0, FIND K CLOSEST TO XM\r\nC\r\n      ICP = IPI + NI\r\n      RMI = 1.E20\r\n      RMS = 0.0\r\n      DO 30 I = 1,NI,2\r\n      RMX = ABS(FL(IPI+I+INDX-1)-XM)\r\n      RMI = AMIN1(RMI,RMX)\r\n      IF (RMX .GT. RMI) GO TO 30\r\n      RMS = FL(IPI+I+INDX-1)\r\n   30 CONTINUE\r\n      RMI = RMS\r\nC\r\nC     FOR RM.GE.0.0, SELECT ALL K'S ASSOCIATED WITH RMI\r\nC     FOR RM.LT.0.0, SELECT THE K EQUAL TO RMI\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NI,2\r\n      IF (FL(IPI+I+INDX-1) .EQ. RMI) GO TO 120\r\nC\r\nC     SKIP MATRIX\r\nC\r\n      CALL SKPREC (QHHL,NROW)\r\n      GO TO 100\r\nC\r\nC     MAKE MATRIX INTO COLUMN\r\nC\r\n  120 FL(IPI+K+1) = FL(IPI+I)\r\n      K  = K + 2\r\n      JI = ICP\r\n      N  = NROW*NWC\r\n      DO 130 J = 1,NROW\r\n      CALL UNPACK (*131,QHHL,FL(JI))\r\n      GO TO 135\r\n  131 CALL ZEROC (FL(JI),N)\r\n  135 JI = JI + N\r\n  130 CONTINUE\r\nC\r\nC     DIVIDE IMAG PART OF QHHL BY FREQUENCY\r\nC\r\n      JJ = ICP + 1\r\n      KK = JI  - 1\r\n      DO 132 J = JJ,KK,2\r\n      FL(J) = FL(J)/FL(IPI+I)\r\n  132 CONTINUE\r\n      IF (RM .LT. 0.0) FL(IPI+I) = -10000.0\r\n      CALL PACK (FL(ICP),ISCR,TRL)\r\n      IF (RM .LT. 0.0) GO TO 150\r\n  100 CONTINUE\r\n  150 CALL CLOSE (QHHL,1)\r\n      CALL CLOSE (ISCR,1)\r\n  200 CONTINUE\r\nC\r\n      CALL WRTTRL (TRL)\r\n      CALL BUG (NHFRDI,200,K ,1)\r\n      CALL BUG (NHFRDI,200,NFREQ,1)\r\n      CALL BUG (NHFRDI,200,FL(1),ICP)\r\n      IF (RM .LT. 0.0) RETURN\r\nC\r\nC     SETUP TO CALL MINTRP\r\nC\r\n      NI   = K/2\r\n      NOGO = 0\r\n      NC   = NCORE - ICP\r\n      CALL DMPFIL (-SCR1,FL(ICP),NC)\r\n      IM   = 0\r\n      IK   = 1\r\n      CALL MINTRP (NI,FL(IPI),NFREQ,FL(IPD),-1,IM,IK,0.0,SCR1,SCR2,SCR3,\r\n     1             SCR4,FL(ICP),NC,NOGO,IPREC)\r\n      IF (NOGO .EQ. 1) GO TO 998\r\n      CALL DMPFIL (-SCR2,FL(ICP),NC)\r\n      RETURN\r\nC\r\n  998 WRITE  (OUT,9980) UFM\r\n 9980 FORMAT (A23,' 2271, INTERPOLATION MATRIX IS SINGULAR')\r\n      GO TO 9999\r\n  999 CALL MESAGE (-3,QHHL,NAME)\r\n 9999 CALL MESAGE (-61,0,NAME)\r\n 1000 CALL CLOSE (QHHL,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fread.f",
    "content": "      SUBROUTINE FREAD (FILE,BLOCK,N,EOR)\r\nC\r\n      INTEGER FILE,EOR\r\n      REAL BLOCK(1),SUBNAM(2)\r\n      DATA SUBNAM / 4H FRE,4HAD  /\r\nC\r\n      CALL READ (*100,*101,FILE,BLOCK,N,EOR,K)\r\n      RETURN\r\n  100 K = -2\r\n      GO TO 110\r\n  101 K = -3\r\n  110 CALL MESAGE (K,FILE,SUBNAM)\r\n      GO TO 110\r\n      END\r\n"
  },
  {
    "path": "mis/frlg.f",
    "content": "      SUBROUTINE FRLG\r\nC\r\nC     FREQUENCE RESPONSE LOAD GENERATOR\r\nC\r\nC     INPUTS  - CASEXX,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH\r\nC\r\nC     OUTPUTS - PPF,PSF,PDF,FOL,PHF\r\nC\r\nC     4 SCRATHCES\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         CASEXX,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH,PPF,PSF,\r\n     1                PDF,FOL,PHF,SCR1,SCR2,SCR3,SCR4,MCB(7),ANDF,\r\n     2                SINGLE,OMIT,IFREQ(2),ITRAN(2)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BLANK / MODAL(2),NOTRD,IAPP(2)\r\n      COMMON /BITPOS/ IUM,IUO,SKP(6),IUS\r\n      DATA    CASEXX, USETD,DLT,FRL,GMD,GOD,DIT,PHIDH      /\r\n     1        101   , 102  ,103,104,105,106,107,108        /\r\n      DATA    PPF   , PSF,PDF,FOL,PHF, SCR1,SCR2,SCR3,SCR4 /\r\n     1        201   , 202,203,204,205, 301 ,302 ,303 ,304  /\r\n      DATA    MODA  / 4HMODA  /\r\n      DATA    IFREQ , ITRAN   /4HFREQ,1H ,4HTRAN,1H /\r\nC\r\nC     DETERMINE USET DATA\r\nC\r\n      MCB(1) = USETD\r\n      CALL RDTRL (MCB)\r\n      LUSETD = MCB(2)\r\n      MULTI  =-1\r\n      IF (ANDF(MCB(5),ITWO(IUM)) .NE. 0) MULTI =  1\r\n      SINGLE =-1\r\n      IF (ANDF(MCB(5),ITWO(IUS)) .NE. 0) SINGLE =  1\r\n      OMIT =-1\r\n      IF (ANDF(MCB(5),ITWO(IUO)) .NE. 0) OMIT =  1\r\nC\r\n      IAPP(1) = IFREQ(1)\r\n      IAPP(2) = IFREQ(2)\r\nC\r\nC     BUILD LOADS ON P SET\r\nC\r\nC     ORDER IS ALL FREQUENCIES FOR GIVEN LOAD TOGETHER\r\nC\r\n      CALL FRLGA (DLT,FRL,CASEXX,DIT,PPF,LUSETD,NFREQ,NLOAD,FRQSET,FOL,\r\n     1            NOTRD)\r\n      IF (NOTRD .EQ. -1) GO TO 10\r\n      IAPP(1) = ITRAN(1)\r\n      IAPP(2) = ITRAN(2)\r\n  10  CONTINUE\r\nC\r\nC     REDUCE LOADS TO D OR H SET\r\nC\r\n      IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT.LT.0 .AND.\r\n     1    MODAL(1).NE.MODA) RETURN\r\n      CALL FRLGB (PPF,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH,PDF,\r\n     1            PSF,PHF,SCR1,SCR2,SCR3,SCR4)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frlga.f",
    "content": "      SUBROUTINE FRLGA (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD,\r\n     1                  FRQSET,FOL,NOTRD)\r\nC\r\nC     THIS ROUTINE GENERATES LOADS INCORE AT EACH FREQUENCY\r\nC\r\nC     WITH ENTRY POINTS - GUST1A AND FRRD1A\r\nC                         ======     ======\r\nC\r\n      INTEGER         SYSBUF,DLT,FRL,CASECC,DIT,PP,FRQSET,ICORE(14),\r\n     1                FILE,MCB(7),IHEAD(8),ITLIST(13),NAME(6),FOL\r\n      REAL            FX(2)\r\n      COMPLEX         POW,EB,R2,R1\r\n      DIMENSION       HEAD(8)\r\n      COMMON /SYSTEM/ KSYSTM(55)\r\n      COMMON /BLANK / XX\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ\r\n      COMMON /FRRDST/ OVR(152),ITL(3)\r\n      EQUIVALENCE     (CORE(1),ICORE(1)), (HEAD(1),IHEAD(1),ISIL),\r\n     1                (HEAD(2),A), (HEAD(3),TAU), (HEAD(4),THETA),\r\n     1                (KSYSTM(1),SYSBUF), (KSYSTM(55),IPREC)\r\n      DATA    ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 /\r\n      DATA    NAME  / 4HDLT ,4HFRLG,4HA   ,4HGUST,4H1A  ,4HFRRD /\r\n      DATA    IFRL  / 4HFRL /\r\nC\r\nC     IDENTIFICATION OF VARIABLES\r\nC\r\nC     NFREQ  = NUMBER OF FREQ IN SELECTED FREQ SET\r\nC     NDONE  =  NUMBER OF FREQUENCIES CURRENTLY BUILT FOR CUR LOAD\r\nC     LLIST  = POINTER TO START OF LOAD TABLE\r\nC     ITABL  = POINTER TO START OF LIST OF TABLES NEEDED FOR CURRENT\r\nC              LOAD\r\nC     ILOAD  = POINTER TO BEGINNING OF LOADS IN CORE\r\nC     IFL    = POINTER TO VALUES OF FREQ  FUNCTIONS\r\nC     NBUILD = NUMBER OF FREQUENCIES WHICH CAN BE BUILT AT ONCE\r\nC     NLOAD  = NUMBER OF LOADS FOUND IN CASE CONTROL\r\nC     LCORE  = AMOUNT OF CORE AVAILABLE TO HOLD  LOADS + F(F)-S\r\nC     FRQSET = SELECT FREQUENCY SET ID\r\nC     LOADN  = SELECTED DYNAMIC LOAD\r\nC     NDLOAD = NUMBER OF DLOAD CARDS\r\nC     NSIMPL = NUMBER OF SIMPLE LOADS\r\nC     NSUBL  = NUMBEL OF  SIMPLE LOADS COMPOSING PRESENT LOAD\r\nC     NTABL  = NUBER OF TABLE ID-S IN PRESENT LOAD\r\nC     ICDTY  = CARD TYPE CODE  1=RLOAD1,  2=RLOAD2\r\nC\r\nC\r\n      GO TO 2\r\nC\r\nC\r\n      ENTRY GUST1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD,\r\n     1              FRQSET,FOL,NOTRD)\r\nC     =======================================================\r\nC\r\n      NAME(2) = NAME(4)\r\n      NAME(3) = NAME(5)\r\n      GO TO 2\r\nC\r\nC\r\n      ENTRY FRRD1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD,\r\n     1              FRQSET,FOL,NOTRD)\r\nC     =======================================================\r\nC\r\n      NAME(2) = NAME(6)\r\n      NAME(3) = NAME(5)\r\nC\r\nC\r\nC     INITALIZE\r\nC\r\n    2 IT1   = 3\r\n      IT2   = 2 + IPREC\r\n      II    = 1\r\n      JJ    = LUSETD\r\n      INCR  = 1\r\n      NOTRD =-1\r\n      LCORE = KORSZ(CORE(1))\r\nC\r\nC     PICK UP AND STORE FREQUENCY SET\r\nC\r\n      IBUF  = LCORE - SYSBUF + 1\r\n      NZ1   = IBUF  - 1\r\n      LCORE = LCORE - 2*SYSBUF\r\n      NZ    = LCORE\r\n      IGUST = 0\r\n      IF (CASECC .GT. 0) GO TO 5\r\n      CASECC = IABS(CASECC)\r\n      IGUST  = 1\r\n    5 CONTINUE\r\n      FILE   = CASECC\r\n      CALL OPEN (*510,CASECC,CORE(IBUF),0)\r\n      CALL FWDREC (*530,CASECC)\r\n      CALL FREAD  (CASECC,CORE,149,0)\r\n      FRQSET = ICORE(14)\r\n      NLOAD  = 0\r\n      LOADN  = ICORE(13)\r\n      CALL CLOSE (CASECC,1)\r\n      ITL(1) = 2\r\n      I149   = 149\r\n      ITL(2) = ICORE(I149)\r\n      ITL(3) = ITL(2) + 1\r\n      ITLD   = 1\r\nC\r\nC     BRING IN AND SAVE FREQ LIST -- CONVERT  W-S TO F    F = TWOPHI* W\r\nC\r\n      FILE  = FRL\r\n      CALL OPEN (*510,FRL,CORE(IBUF),0)\r\n      CALL READ (*530,*10,FRL,CORE(1),NZ1,0,IFLAG)\r\n      GO TO 540\r\n   10 DO 20 I = 3,IFLAG\r\n      IF (ICORE(I) .EQ. FRQSET) GO TO 30\r\n   20 CONTINUE\r\n      NAME(1) = IFRL\r\n      CALL MESAGE (-31,FRQSET,NAME)\r\n   30 K = I-3\r\n      IF (K .EQ. 0) GO TO 50\r\n      DO 40 I = 1,K\r\n      CALL FWDREC (*530,FRL)\r\n   40 CONTINUE\r\nC\r\nC     READ IN  FREQ LIST\r\nC\r\n   50 CALL READ (*530,*60,FRL,CORE(1),NZ1,0,NFREQ)\r\n      GO TO 540\r\n   60 CALL CLOSE (FRL,1)\r\n      LCORE = LCORE - NFREQ\r\n      NZ1   = NZ1   - NFREQ\r\n      FRQSET= K + 1\r\n      LLIST = NFREQ + 1\r\nC\r\nC     CONVERT TO F\r\nC\r\n      DO 70 I = 1,NFREQ\r\n      CORE(I) = CORE(I)/TWOPHI\r\n   70 CONTINUE\r\nC\r\nC     PUT HEADER ON LOAD FILE\r\nC\r\n      FILE = PP\r\n      NZ   = IBUF - SYSBUF\r\n      NZ1  = NZ1  - SYSBUF\r\n      CALL OPEN (*510,PP,CORE(NZ),1)\r\n      CALL FNAME (PP,MCB(1))\r\n      CALL WRITE (PP,MCB(1),2,0)\r\n      CALL WRITE (PP,CORE(1),NFREQ,1)\r\n      FILE = FOL\r\n      CALL OPEN (*71,FOL,CORE(IBUF),1)\r\n      CALL FNAME (FOL,MCB)\r\n      CALL WRITE (FOL,MCB,2,0)\r\n      CALL WRITE (FOL,CORE,NFREQ,1)\r\n      CALL CLOSE (FOL,1)\r\n      MCB(1) = FOL\r\n      MCB(2) = NFREQ\r\n      MCB(3) = FRQSET\r\n      CALL WRTTRL (MCB)\r\n   71 CONTINUE\r\nC\r\nC     SET UP MCB FOR PP\r\nC\r\n      MCB(1) = PP\r\n      MCB(2) = 0\r\n      MCB(3) = LUSETD\r\n      MCB(4) = 2\r\n      MCB(5) = 2 + IPREC\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\nC\r\nC     BEGIN LOOP ON LOADS SELECTED\r\nC\r\n   80 IF (NLOAD .EQ. 0) GO TO 100\r\n      FILE = CASECC\r\n      CALL OPEN (*510,CASECC,CORE(IBUF),0)\r\n      L = NLOAD + 1\r\n      DO 90 I = 1,L\r\n      CALL FWDREC (*530,CASECC)\r\n   90 CONTINUE\r\n      CALL READ (*500,*540,CASECC,CORE(LLIST),16,1,IFLAG)\r\n      LOADN = ICORE(LLIST+12)\r\n      CALL CLOSE (CASECC,1)\r\n  100 NLOAD = NLOAD + 1\r\n      IF (LOADN .EQ. 0) GO TO 491\r\n      NDONE = 0\r\n      LCORE = NZ1\r\nC\r\nC     FIND SELECTED LOAD IN DLT\r\nC\r\n      FILE = DLT\r\n      CALL OPEN (*510,DLT,CORE(IBUF),0)\r\n      CALL READ (*530,*110,DLT,CORE(LLIST),NZ1,0,IFLAG)\r\nC\r\nC     IS IT A DLOAD SET\r\nC\r\n  110 NDLOAD = ICORE(LLIST+2)\r\n      NSIMPL = IFLAG - 3 - NDLOAD\r\n      IF (NSIMPL .EQ. 0) CALL MESAGE (-31,LOADN,NAME)\r\n      IF (NDLOAD .EQ. 0) GO TO 300\r\n      K = LLIST + 2\r\n      DO 120 I = 1,NDLOAD\r\n      K = K + 1\r\n      IF (ICORE(K) .EQ. LOADN) GO TO 130\r\n  120 CONTINUE\r\n      GO TO 300\r\nC\r\nC     PROCESS DLOAD SET\r\nC\r\nC     FORMAT OF DLOAD CARD = SET ID, SCALE,SCALE,ID, SCALE, ID, ...,0,-1\r\nC\r\n  130 NZ1 = NZ1 - IFLAG\r\nC\r\nC     BRING IN ALL DLOADS\r\nC\r\n      L = LLIST + IFLAG\r\n      CALL READ (*530,*140,DLT,CORE(L),NZ1,0,I)\r\n      GO TO 540\r\nC\r\nC     FIND SELECTED ID\r\nC\r\n  140 ISEL  = L\r\n  150 IF (ICORE(ISEL) .EQ. LOADN) GO TO 170\r\n  160 ISEL = ISEL + 2\r\n      IF (ICORE(ISEL+1) .NE. -1) GO TO 160\r\n      ISEL = ISEL + 2\r\n      GO TO 150\r\nC\r\nC     FOUND LOAD SET  SELECTED\r\nC\r\n  170 SCALE  = CORE(ISEL+1)\r\nC\r\nC     CONVERT  SCALE FACTORS TO OVERALL  SCALE +ID-S TO RECORD NUMBERS-1\r\nC\r\n      L = ISEL + 2\r\n      NSUBL = 0\r\n  180 CORE(L) = CORE(L)*SCALE\r\n      K = LLIST + 2 + NDLOAD\r\n      DO 190 I = 1,NSIMPL\r\n      K = K + 1\r\n      IF (ICORE(L+1) .EQ. ICORE(K)) GO TO 200\r\n  190 CONTINUE\r\n      CALL MESAGE (-31,ICORE(L),NAME)\r\nC\r\nC     FOUND SIMPLE ID\r\nC\r\n  200 ICORE(L+1) = I + 1\r\n      NSUBL = NSUBL + 1\r\n      L = L + 2\r\n      IF (ICORE(L+1) .GE. 0) GO TO 180\r\nC\r\nC     MOVE TO LOAD LIST AREA\r\nC\r\n      L = ISEL + 2\r\n      K = LLIST\r\n      DO 210 I = 1,NSUBL\r\n      ICORE(K)  = ICORE(L+1)\r\n      CORE(K+1) = CORE(L)\r\n      L = L + 2\r\n      K = K + 2\r\n  210 CONTINUE\r\nC\r\nC     BUILD LIST OF UNIQUE TABLES NEEDED FOR NSUBL LOADS\r\nC\r\n      IPOS  = 2\r\n  230 NTABL = 0\r\n      ITABL = LLIST + 2*NSUBL\r\n      DO 290 I = 1,NSUBL\r\n      K = LLIST + (I-1)*2\r\n      J = ICORE(K)\r\n      L = J - IPOS\r\n      IF (L .EQ. 0) GO TO 250\r\n      DO 240 K = 1,L\r\n      CALL FWDREC (*530,DLT)\r\n  240 CONTINUE\r\nC\r\nC     READ IN DESCRIPTOR WORDS\r\nC\r\n  250 IPOS = J + 1\r\n      CALL READ (*530,*550,DLT,HEAD(1),8,1,IFLAG)\r\n      ICDTY = IHEAD(1)\r\n      NT    = 4\r\n      GO TO (251,251,252,291), ICDTY\r\nC\r\nC     TLOAD 1 CARD\r\nC\r\n  252 NT    = 3\r\n      ITLD  = 2\r\n      NOTRD = 1\r\n  251 CONTINUE\r\n      DO 280 M = 3,NT\r\n      IF (IHEAD(M) .EQ. 0) GO TO 280\r\n      IF( NTABL    .EQ. 0) GO TO 270\r\n      DO 260 K = 1,NTABL\r\n      L  = ITABL+K\r\n      IF (ICORE(L) .EQ. IHEAD(M)) GO TO 280\r\n  260 CONTINUE\r\nC\r\nC     STORE NEW TABLE ID\r\nC\r\n  270 NTABL = NTABL + 1\r\n      K = ITABL + NTABL\r\n      ICORE(K) = IHEAD(M)\r\n  280 CONTINUE\r\n      GO TO 290\r\nC\r\nC     TLOAD2 CARD\r\nC\r\n  291 CONTINUE\r\n      NOTRD = 1\r\n  290 CONTINUE\r\n      CALL REWIND (DLT)\r\n      LCORE = LCORE - NTABL - 1\r\n      ILOAD = ITABL + NTABL + 1\r\n      ICORE(ITABL)  = NTABL\r\n      GO TO 330\r\nC\r\nC     PROCESS SIMPLE LOAD REQUEST\r\nC\r\n  300 NSUBL = 1\r\n      CORE(LLIST+1) = 1.0\r\n      L = LLIST + 2 + NDLOAD\r\n      DO 310 I = 1,NSIMPL\r\n      L = L + 1\r\n      IF (ICORE(L) .EQ. LOADN) GO TO 320\r\n  310 CONTINUE\r\n      CALL MESAGE (-31,LOADN,NAME)\r\nC\r\nC     FOUND SIMPLE LOAD  STORE RECORD NUMBER\r\nC\r\n  320 IF (NDLOAD .NE. 0) I = I + 1\r\n      ICORE(LLIST) = I\r\n      IPOS  = 1\r\n      LCORE = LCORE - 2\r\n      GO TO 230\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n  330 LVECT  = 2*LUSETD\r\n      NBUILD = LCORE/(LVECT+NTABL*ITLD)\r\n      NBUILD = MIN0(NBUILD,NFREQ)\r\n      IF (NBUILD .EQ. 0) GO TO 540\r\n      KK  = NTABL*NBUILD\r\n      IFL = NZ - NTABL*NBUILD*ITLD\r\nC\r\nC     LOOP HERE FOR FREQUENCY SPILL\r\nC\r\n      LCORE = LCORE - NTABL*NBUILD\r\n      NBUF  = LCORE - SYSBUF\r\n      IF (NTABL .EQ. 0) GO TO 361\r\n  340 CALL PRETAB (DIT,CORE(ILOAD),CORE(ILOAD),CORE(NBUF),NBUF,L,\r\n     1             CORE(ITABL),ITLIST(1))\r\n      DO 360 J = 1,NTABL\r\n      L = ITABL + J\r\n      DO 350 I = 1,NBUILD\r\n      M = NDONE + I\r\n      K = IFL + NBUILD*(J-1) + I - 1\r\n      IF (ITLD .EQ. 2) GO TO 341\r\nC\r\nC                 TAB      X       F(X)\r\n      CALL TAB (CORE(L),CORE(M),CORE(K))\r\n      GO TO 350\r\nC\r\nC     TRANSFOR LOOK UP FOR TLOAD 1 CARDS\r\nC\r\n  341 CONTINUE\r\n      CALL TAB1 (CORE(L),CORE(M),FX(1))\r\n      CORE(K   ) = FX(1)\r\n      CORE(K+KK) = FX(2)\r\n      GO TO 350\r\n  350 CONTINUE\r\n  360 CONTINUE\r\n  361 CONTINUE\r\nC\r\nC     READY CORE FOR BUILDING LOADS\r\nC\r\n      K = ILOAD - 1\r\n      DO 380 I = 1,NBUILD\r\n      DO 370 L = 1,LVECT\r\n      K = K + 1\r\n      CORE(K) = 0.0\r\n  370 CONTINUE\r\n  380 CONTINUE\r\nC\r\nC     POSITION TO LOAD IN DLT\r\nC\r\n      IPOS = 0\r\n      DO 480 I = 1,NSUBL\r\n      K = LLIST + 2*I - 2\r\n      L = ICORE(K) - IPOS\r\n      SCALE = CORE(K+1)\r\n      IF (L  .EQ. 0) GO TO 400\r\n      DO 390 J = 1,L\r\n      CALL FWDREC (*530,DLT)\r\n  390 CONTINUE\r\nC\r\nC     READ IN 8 WORD LOAD ID\r\nC\r\n  400 IPOS  = L + 1 + IPOS\r\n      CALL READ (*530,*540,DLT,HEAD(1),8,0,IFLAG)\r\n      ICDTY = IHEAD(1)\r\n      TK1   = HEAD(3)\r\n      TK2   = HEAD(4)\r\n      NT    = 4\r\n      GO TO (404,404,403,435), ICDTY\r\n  403 NT    = 3\r\nC\r\nC     FIND COEFFICIENTS IN TABLE LIST\r\nC\r\n  404 DO 430 K = 3,NT\r\n      IF (IHEAD(K) .NE. 0) GO TO 405\r\n      IHEAD(K+3) = -1\r\n      GO TO 430\r\n  405 DO 410 L = 1,NTABL\r\n      M = ITABL + L\r\n      IF (ICORE(M) .EQ. IHEAD(K)) GO TO 420\r\n  410 CONTINUE\r\n      GO TO 550\r\nC\r\nC     COMPUTE POINTER INTO COEF TABLE\r\nC\r\n  420 IHEAD(K+3) = IFL + (L-1)*NBUILD\r\n      IF (ICDTY .EQ. 3) IHEAD(K+4) = IFL + (L-1)*NBUILD + NTABL*NBUILD\r\n  430 CONTINUE\r\nC\r\nC     REPEATLY READ IN  4  WORDS --SIL,A,TAU,THETA\r\nC\r\n  435 IGUST1 = 0\r\n  440 CONTINUE\r\n      IF (IGUST  .EQ. 0) GO TO 442\r\n      IF (IGUST1 .EQ. 1) GO TO 480\r\n      IGUST1 = 1\r\n  442 CONTINUE\r\n      CALL READ (*530,*480,DLT,IHEAD(1),4,0,IFLAG)\r\n      IF (IGUST .EQ. 0) GO TO 443\r\n      ISIL  = 1\r\n      A     = 1.0\r\n      TAU   = 0.0\r\n      THETA = 0.0\r\n  443 CONTINUE\r\n      A     = A*SCALE\r\n      THETA = THETA*DEGRA\r\n      DO 470 J = 1,NBUILD\r\n      IF (ICDTY .EQ. 4) GO TO 448\r\nC\r\nC     COMPUTE COEFFICIENTS\r\nC\r\n      C1 = 0.0\r\n      IF (IHEAD(6) .LT. 0) GO TO 445\r\n      K  = IHEAD(6) + J - 1\r\n      C1 = CORE(K)\r\n  445 C2 = 0.0\r\n      IF (IHEAD(7) .LT. 0) GO TO 448\r\n      K  = IHEAD(7) + J - 1\r\n      C2 = CORE(K)\r\n  448 L  = NDONE + J\r\n      M  = (J-1)*LVECT + 2*ISIL - 2 + ILOAD\r\n      GO TO (450,460,450,471), ICDTY\r\nC\r\nC     RLOAD 1 CARDS OF TLOAD1 CARDS\r\nC\r\n  450 XLAMA = THETA - CORE(L)*TAU*TWOPHI\r\n      SINXL = SIN(XLAMA)\r\n      COSXL = COS(XLAMA)\r\n      CORE(M  ) = A*(C1*COSXL - C2*SINXL) + CORE(M  )\r\n      CORE(M+1) = A*(C1*SINXL + C2*COSXL) + CORE(M+1)\r\n      GO TO 470\r\nC\r\nC     RLOAD2  CARDS\r\nC\r\n  460 XLAMA = THETA - CORE(L)*TAU*TWOPHI + C2*DEGRA\r\n      CORE(M  ) = A*C1*COS(XLAMA) + CORE(M  )\r\n      CORE(M+1) = A*C1*SIN(XLAMA) + CORE(M+1)\r\n      GO TO 470\r\nC\r\nC     TLOAD 2 CARDS\r\nC\r\n  471 CONTINUE\r\n      F   = HEAD(5)\r\n      P   = HEAD(6)*DEGRA\r\n      C   = HEAD(7)\r\n      IB  = HEAD(8)  +.5\r\n      DT  = TK2 - TK1\r\n      RZ  =-C*DT\r\n      CZ  =-DT*(F-CORE(L))*TWOPHI\r\nC\r\nC     COMPUTE  E(B+1) (ZR2)\r\nC\r\n      CALL FRR1A1 (RZ,CZ,IB+1,REB,CEB)\r\n      EB = CMPLX(REB,CEB)\r\n      RP =-RZ\r\n      CP = P - CORE(L)*TWOPHI*TK2 + TWOPHI*F*DT\r\n      POW= CMPLX(RP,CP)\r\n      R2 = CEXP(POW)*EB\r\nC\r\nC     COMPUTE  R1\r\nC\r\n      CZ = -DT*(-F -CORE(L))*TWOPHI\r\nC\r\nC     COMPUTE  E(B+1)ZR1\r\nC\r\n      CALL FRR1A1 (RZ,CZ,IB+1,REB,CEB)\r\n      EB  = CMPLX(REB,CEB)\r\n      CP  =-P - CORE(L)*TWOPHI*TK2 - TWOPHI*F*DT\r\n      POW = CMPLX(RP,CP)\r\n      R1  = R2 + CEXP(POW)*EB\r\nC\r\nC     COMPUTE   P(W)\r\n      R2  = CMPLX(0.,-CORE(L)*TAU*TWOPHI)\r\n      POW = R1*CEXP(R2)\r\n      CP  = (DT**(IB+1))/(2.0 *(HEAD(8)+1.))\r\n      RZ  = REAL(POW)*A*CP\r\n      CZ  = AIMAG (POW)*A*CP\r\n      CORE(M  ) = CORE(M  ) + RZ\r\n      CORE(M+1) = CORE(M+1) + CZ\r\n      GO TO 470\r\n  470 CONTINUE\r\n      GO TO 440\r\nC\r\nC     END OF STUFF IN DLT TABLE\r\nC\r\n  480 CONTINUE\r\nC\r\nC     PACK OUT LOADS BUILT\r\nC\r\n      DO 490 I = 1,NBUILD\r\n      M = (I-1)*LVECT + ILOAD\r\n      CALL PACK (CORE(M),PP,MCB(1))\r\n  490 CONTINUE\r\n      NDONE  = NDONE  + NBUILD\r\n      NBUILD = MIN0(NBUILD,NFREQ-NDONE)\r\n      CALL REWIND (DLT)\r\n      IF (NBUILD .NE. 0) GO TO 340\r\n      CALL CLOSE (DLT,1)\r\n      GO TO 80\r\nC\r\nC     BUILD ZERO LOAD\r\nC\r\n  491 DO 492 I = 1,NFREQ\r\n      CALL BLDPK (3,3,PP,0,0)\r\n      CALL BLDPKN (PP,0,MCB)\r\n  492 CONTINUE\r\n      GO TO 80\r\nC\r\nC     EOF  ON CASECC  END OF ROUTINE\r\nC\r\n  500 CALL CLOSE (CASECC,1)\r\n      CALL WRTTRL (MCB(1))\r\n      CALL CLOSE (PP,1)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  510 IP1 = -1\r\n  520 CALL MESAGE (IP1,FILE,NAME(2))\r\n  530 IP1 = -2\r\n      GO TO 520\r\n  540 IP1 = -8\r\n      GO TO 520\r\n  550 IP1 = -7\r\n      GO TO 520\r\n      END\r\n"
  },
  {
    "path": "mis/frlgb.f",
    "content": "      SUBROUTINE FRLGB (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH,\r\n     1                  PD,PS,PH,SCR1,SCR2,SCR3,SCR4)\r\nC\r\nC     THIS ROUTINE REDUCES LOADS FROM P SET TO D SET\r\nC\r\nC     ENTRY POINT - FRRD1B\r\nC                   ======\r\nC\r\n      INTEGER         PP,USETD,GMD,GOD,SINGLE,OMIT,PHIDH,PD,PS,PH,PO,\r\n     1                SCR1,SCR2,SCR3,SCR4,USET,PN,PNBAR,PM,PF,PDBAR\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD\r\n      COMMON /PATX  / NZ,N1,N2,N3,USET\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      DATA    MODA  / 4HMODA /\r\nC\r\n      GO TO 5\r\nC\r\nC\r\n      ENTRY FRRD1B (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL,PHIDH,\r\n     1              PD,PS,PH,SCR1,SCR2,SCR3,SCR4)\r\nC     =============================================================\r\nC\r\nC     SET UP INITIAL VALUES\r\nC\r\n    5 NZ    = KORSZ(CORE)\r\n      USET  = USETD\r\n      PNBAR = SCR2\r\n      PM    = SCR3\r\n      PN    = SCR4\r\n      PF    = SCR2\r\n      PDBAR = SCR3\r\n      PO    = PH\r\nC\r\nC     REMOVE EACH TYPE OF CONSTRAINT\r\nC\r\n      IF (MULTI .LT. 0) GO TO 10\r\nC\r\nC     REMOVE MULTIPOINT CONSTRAINTS\r\nC\r\n      IF (SINGLE.LT.0 .AND. OMIT.LT.0) PN = PD\r\n      CALL CALCV (SCR1,UP,UNE,UM,CORE(1))\r\n      CALL SSG2A (PP,PNBAR,PM,SCR1)\r\n      CALL SSG2B (GMD,PM,PNBAR,PN,1,1,1,SCR1)\r\n      GO TO 20\r\nC\r\nC     NO M-S\r\nC\r\n   10 PN = PP\r\n   20 IF (SINGLE .LT. 0) GO TO 30\r\nC\r\nC     REMOVE SINGLE POINT CONSTRAINTS\r\nC\r\n      IF (OMIT .LT. 0) PF = PD\r\n      CALL CALCV (SCR1,UNE,UFE,US,CORE(1))\r\n      CALL SSG2A (PN,PF,PS,SCR1)\r\n      GO TO 40\r\nC\r\nC     NO SINGLE POINT CONSTRAINTS\r\nC\r\n   30 PF = PN\r\n   40 IF (OMIT .LT. 0) GO TO 50\r\nC\r\nC     REMOVE OMITS\r\nC\r\n      CALL CALCV (SCR1,UFE,UD,UO,CORE(1))\r\n      CALL SSG2A (PF,PDBAR,PO,SCR1)\r\n      CALL SSG2B (GOD,PO,PDBAR,PD,1,1,1,SCR1)\r\n      GO TO 60\r\n   50 PD = PF\r\n   60 IF (MODAL .NE. MODA) GO TO 70\r\nC\r\nC     TRANSFORM TO MODAL COORDINATES\r\nC\r\n      CALL SSG2B (PHIDH,PD,0,PH,1,1,1,SCR1)\r\n   70 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frmax.f",
    "content": "      SUBROUTINE FRMAX(IFK,IFM,N,IPR,RSN,RSM)\r\n      DIMENSION          ZK(1)  ,ZM(1)\r\n      DOUBLE PRECISION   RSN    ,RSM    ,RATIO  ,RATINV  ,\r\n     1                   DZK(1) ,DZM(1)\r\n      EQUIVALENCE       (DZK(1) ,ZK(1) ),(DZM(1) ,ZM(1) )\r\n      COMMON  /UNPAKX/   IPRC   ,IP     ,NP     ,INCR\r\n      IPRC = IPR\r\n      INCR = 1\r\n      RSN = 0.D0\r\n      RSM = 0.D0\r\n      DO 30 I = 1,N\r\n      IP = I\r\n      NP = I\r\n      CALL UNPACK(*30,IFK,DZK(1))\r\n      CALL UNPACK(*30,IFM,DZM(1))\r\n      IF(IPR .EQ. 2) GO TO 10\r\n      IF (ZK(1).EQ.0.OR.ZM(1).EQ.0) GO TO 30\r\n      RATIO = ZK(1) / ZM(1)\r\n      GO TO 20\r\n   10 IF (DZK(1).EQ.0.0D0.OR.DZM(1).EQ.0.0D0) GO TO 30\r\n      RATIO = DZK(1)/DZM(1)\r\n   20 RATINV = 1.D0 /RATIO\r\n      IF(RATIO .GT. RSM) RSM = RATIO\r\n      IF(RATINV .GT. RSN) RSN = RATINV\r\n   30 CONTINUE\r\n      RSN = 1.D0 / RSN\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frmlt.f",
    "content": "      SUBROUTINE FRMLT (IFILE,Z,Y,ZM)\r\nC\r\nC     FEER MATRIX TRANSPOSE MULTIPLY  (SINGLE PREC)\r\nC              T\r\nC     Y = IFILE * Z        WHERE Z IS A VECTOR ALREADY IN CORE\r\nC                          IFILE IS A GINO MATIRX FILE\r\nC\r\nC     LAST REVISED  11/91, BY C.CHAN/UNISYS\r\nC     ADDITION OF A NEW TRANSPOSE MULTIPLY METHOD WHICH IS MORE\r\nC     EFFECIENT, AND IS ALREADY GOOD FOR VECTORIZATION\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      REAL             Z(1)     ,Y(1)     ,ZM(1)    ,DP     ,SUM\r\n      DIMENSION        IFILE(7) ,NAM(2)\r\n      COMMON  /UNPAKX/ ITYP     ,IP       ,NP       ,INCR\r\n      COMMON  /SYSTEM/ IBUF     ,NOUT\r\n      COMMON  /FEERXX/ DUM18(18),NZM\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (DP,IDP)\r\n      DATA     NAM   / 4HFRML   ,4HT    /\r\nCDB   DATA     DEBUG , ITER     ,MAX    / .FALSE.   ,0       ,3     /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     IF (DEBUG) WRITE (NOUT,10) NZM,IFILE(5)\r\nC  10 FORMAT ('  .... IN FRMLT DEBUG.   NZM,IFILE(5) =',2I8)\r\nC  20 CONTINUE\r\n      N    = IFILE(2)\r\n      IFL  = IFILE(1)\r\n      IF (IFILE(7) .LT. 0) IFL = -IFILE(7)\r\n      CALL REWIND (IFL)\r\n      CALL SKPREC (IFL,1)\r\n      IF (IFILE(7) .LT. 0) GO TO 50\r\n      ITYP = IFILE(5)\r\nC\r\nC     NASTRAN ORIGIANL METHOD\r\nC\r\n      INCR = 1\r\n      DO 40 I = 1,N\r\n      Y(I) = 0.0\r\n      IP   = 0\r\n      CALL UNPACK (*40,IFL,ZM(1))\r\n      SUM  = 0.0\r\n      II   = 0\r\n      DO 30 J = IP,NP\r\n      II   = II + 1\r\n   30 SUM  = SUM + ZM(II)*Z(J)\r\n      Y(I) = SUM\r\n   40 CONTINUE\r\n      GO TO 200\r\nC\r\nC     NEW METHOD, READ ONLY AND NO UNPACK\r\nC\r\nC     UNLIKE FRMLTA, IFL WAS UNPACKED FORWARD BY UNPSCR\r\nC\r\n   50 NREC = 0\r\nC     NWDS = IFILE(5)\r\nCDB   N20  = N - 20\r\nC     IF (DEBUG) WRITE (NOUT,60) IFILE(5),NZM\r\nC  60 FORMAT ('   /@60   NWDS,NZM =',2I8)\r\n      LL2  = 0\r\n      NEXT = 1\r\n      DO 140 I = 1,N\r\n      IF (NEXT .LT. LL2) GO TO 100\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (NOUT,70) NREC,I\r\nC  70 FORMAT ('  ...READING RECORD',I5,'.   I =',I7)\r\n      CALL READ (*150,*80,IFL,ZM,NZM,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\nC  50 LL2  = LL/NWDS\r\n   80 LL2  = LL\r\nCDB   IF (DEBUG) WRITE (NOUT,90) LL,NREC,LL2\r\nC  90 FORMAT (1X,I10,'WORDS READ FROM RECORD',I5,'.   LL2 =',I10)\r\n      NEXT = 1\r\n  100 DP   = ZM(NEXT)\r\n      II   = IDP\r\n      DP   = ZM(NEXT+1)\r\n      JJ   = IDP\r\nCDB   IF (DEBUG .AND. (I.LT.20 .OR. I.GT.N20)) WRITE (NOUT,110) I,II,JJ,\r\nC     1                                                         NEXT\r\nC 110 FORMAT ('   @110  I,II,JJ,NEXT =',4I8)\r\n      IF (JJ .EQ. II) GO TO 130\r\n      SUM  = 0.0\r\n      LL   = NEXT + 1\r\n      DO 120 J = II,JJ\r\n      LL   = LL + 1\r\n  120 SUM  = SUM + ZM(LL)*Z(J)\r\n      Y(I) = SUM\r\n      GO TO 140\r\n  130 Y(I) = ZM(NEXT+2)*Z(II)\r\n  140 NEXT = NEXT + JJ - II + 3\r\n      GO TO 200\r\nC\r\n  150 J = IFILE(4)/10\r\n      WRITE  (NOUT,160) NREC,I,N,J\r\n  160 FORMAT ('*** TRY TO READ RECORD',I5,'.  I,N,IFILE(4) =',2I7,I5)\r\n      CALL MESAGE (-2,IFL,NAM)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frmlta.f",
    "content": "      SUBROUTINE FRMLTA (IFILE,Z,Y,ZM)\r\nC\r\nC     LOWER TRIANGULAR TRANSPOSE WITH OFF-DIAGONAL SWITCH\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     LAST REVISED  11/91, BY G.CHAN/UNISYS\r\nC     ADDITIONAL OF A NEW METHODS WHICH IS MORE EFFICIENT, AND IS\r\nC     ALREADY GOOD FOR VECTORIZATION\r\nC\r\n      REAL             Z(1)    ,Y(1)    ,ZM(1)\r\n      DIMENSION        IFILE(7),NAM(2)\r\n      COMMON  /UNPAKX/ ITYP    ,IP      ,NP      ,INCR\r\n      COMMON  /FEERXX/ DM18(18),NZM\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      COMMON  /SYSTEM/ IBUF    ,NOUT\r\n      EQUIVALENCE      (DP,IDP)\r\n      DATA     NAM   / 4HFRML  ,4HTA  /\r\nC\r\n      N    = IFILE(2)\r\n      IFL  = IFILE(1)\r\n      IF (IFILE(7) .LT. 0) IFL = -IFILE(7)\r\n      CALL REWIND (IFL)\r\n      IF (IFILE(7) .LT. 0) GO TO 30\r\n      CALL SKPREC (IFL,1)\r\n      ITYP = IFILE(5)\r\nC\r\nC     NASTRAN ORIGINAL METHOD\r\nC\r\n      INCR = 1\r\n      DO 20 I = 1,N\r\n      Y(I) = 0.0\r\n      IP   = 0\r\n      CALL UNPACK (*30,IFL,ZM(1))\r\n      IF (IP .EQ. I) ZM(1) = -ZM(1)\r\n      SUM  = 0.0\r\n      II   = 0\r\n      DO 10 J = IP,NP\r\n      II   = II + 1\r\n   10 SUM  = SUM - ZM(II)*Z(J)\r\n      Y(I) = SUM\r\n   20 CONTINUE\r\n      GO TO 150\r\nC\r\nC     NEW METHOD\r\nC\r\nC     UNLIKE FRMLT, IFL WAS UNPACKED BACKWARD FIRST, THEN FORWARD BY\r\nC     UNPSCR/FEER3. SO WE SKIP BACKWARD PASS BEFORE READING DATA\r\nC\r\n   30 NREC = IFILE(4)/10\r\n      CALL SKPREC (IFL,NREC+1)\r\n      NREC = 0\r\n      LL2  = 0\r\n      NTMS = 1\r\n      DO 70 I = 1,N\r\n      IF (NTMS .LT. LL2) GO TO 50\r\n      NREC = NREC + 1\r\n      CALL READ (*100,*40,IFL,ZM,NZM,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n   40 LL2  = LL\r\n      NTMS = 1\r\n   50 DP   = ZM(NTMS)\r\n      II   = IDP\r\n      IF (II .NE. I) GO TO 120\r\n      DP   = ZM(NTMS+1)\r\n      JJ   = IDP\r\n      ZM(NTMS+2) = -ZM(NTMS+2)\r\n      SUM  = 0.0\r\n      LL   = NTMS + 1\r\n      DO 60 J = II,JJ\r\n      LL   = LL + 1\r\n   60 SUM  = SUM - ZM(LL)*Z(J)\r\n      Y(I) = SUM\r\n   70 NTMS = NTMS + JJ - II + 3\r\n      GO TO 150\r\nC\r\n  100 J = IFILE(4)/10\r\n      WRITE  (NOUT,110) NREC,I,N,J\r\n  110 FORMAT ('0*** TRY TO READ RECORD',I5,'.  I,N,IFILE(4) =',2I7,I5)\r\n      CALL MESAGE (-2,ILF,NAM)\r\n  120 WRITE  (NOUT,130) II,I\r\n  130 FORMAT ('0*** II AND I MISMATCH =',2I8)\r\n      CALL MESAGE (-37,0,NAM)\r\nC\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frmltd.f",
    "content": "      SUBROUTINE FRMLTD (IFILE,DZ,DY,ZM)\r\nC\r\nC     FEER MATRIX TRANSPOSE MULTIPLY  (DOUBLE PREC)\r\nC               T\r\nC     DY = IFILE * DZ        WHERE DZ IS A VECTOR ALREADY IN CORE\r\nC                            IFILE IS A GINO MATIRX FILE\r\nC\r\nC     LAST REVISED  11/91, BY C.CHAN/UNISYS\r\nC     ADDITION OF A NEW TRANSPOSE MULTIPLY METHOD WHICH IS MORE\r\nC     EFFECIENT, AND IS ALREADY GOOD FOR VECTORIZATION\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      DOUBLE PRECISION DZ(1)    ,DY(1)    ,ZM(1)    ,DP     ,DSUM\r\n      DIMENSION        IFILE(7) ,IDP(2)   ,NAM(2)\r\n      COMMON  /UNPAKX/ ITYP     ,IP       ,NP       ,INCR\r\n      COMMON  /SYSTEM/ IBUF     ,NOUT\r\n      COMMON  /FEERXX/ DUM18(18),NZM\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (DP,IDP(1))\r\n      DATA     NAM   / 4HFRML   ,4HTD    /\r\nCDB   DATA     DEBUG , ITER     ,MAX     / .FALSE.  ,0      ,4       /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     IF (DEBUG) WRITE (NOUT,10) NZM,IFILE(5)\r\nC  10 FORMAT ('  .... IN FRMLTD DEBUG.   NZM,IFILE(5) =',2I8)\r\nC  20 CONTINUE\r\n      N    = IFILE(2)\r\n      IFL  = IFILE(1)\r\n      IF (IFILE(7) .LT. 0) IFL = -IFILE(7)\r\n      CALL REWIND (IFL)\r\n      CALL SKPREC (IFL,1)\r\n      IF (IFILE(7) .LT. 0) GO TO 50\r\n      ITYP = IFILE(5)\r\nC\r\nC     NASTRAN ORIGIANL METHOD\r\nC\r\n      INCR  = 1\r\n      DO 40 I = 1,N\r\n      DY(I) = 0.0D+0\r\n      IP    = 0\r\n      CALL UNPACK (*40,IFL,ZM(1))\r\n      DSUM  = 0.0D+0\r\n      II    = 0\r\n      DO 30 J = IP,NP\r\n      II    = II + 1\r\n   30 DSUM  = DSUM + ZM(II)*DZ(J)\r\n      DY(I) = DSUM\r\n   40 CONTINUE\r\n      GO TO 200\r\nC\r\nC     NEW METHOD, READ ONLY AND NO UNPACK\r\nC\r\nC     UNLIKE FRMLTX, IFL WAS UNPACKED FORWARD BY UNPSCR\r\nC\r\n   50 NREC = 0\r\n      NWDS = IFILE(5)\r\nCDB   N20  = N - 20\r\nC     IF (DEBUG) WRITE (NOUT,60) NWDS,NZM\r\nC  60 FORMAT ('  /@60   NWDS,NZM =',2I8)\r\n      LL2  = 0\r\n      NEXT = 1\r\n      DO 140 I = 1,N\r\n      IF (NEXT .LT. LL2) GO TO 100\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (NOUT,70) NREC,I\r\nC  70 FORMAT ('  ...READING RECORD',I5,'.  I =',I7)\r\n      CALL READ (*150,*80,IFL,ZM,NZM,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n   80 LL2  = LL/NWDS\r\nCDB   IF (DEBUG) WRITE (NOUT,90) LL,NREC,LL2\r\nC  90 FORMAT (1X,I10,' WORDS READ FROM RECORD NO.',I5,'   LL2 =',I10)\r\n      NEXT = 1\r\n  100 DP   = ZM(NEXT)\r\n      II   = IDP(1)\r\n      JJ   = IDP(2)\r\nCDB   IF (DEBUG .AND. (I.LT.20 .OR. I.GT.N20)) WRITE (NOUT,110) I,II,JJ,\r\nC     1                                                         NEXT\r\nC 110 FORMAT ('   @110  I,II,JJ,NEXT =',4I8)\r\n      IF (II .EQ. JJ) GO TO 130\r\n      DSUM = 0.0D+0\r\n      LL   = NEXT\r\n      DO 120 J = II,JJ\r\n      LL   = LL + 1\r\n  120 DSUM = DSUM + ZM(LL)*DZ(J)\r\n      DY(I)= DSUM\r\n      GO TO 140\r\n  130 DY(I)= ZM(NEXT+1)*DZ(II)\r\n  140 NEXT = NEXT + JJ - II + 2\r\n      GO TO 200\r\nC\r\n  150 J = IFILE(4)/10\r\n      WRITE  (NOUT,160) NREC,I,N,J\r\n  160 FORMAT ('0*** TRY TO READ RECORD',I5,'.   I,N,IFILE(4) =',2I7,I5)\r\n      CALL MESAGE (-2,IFL,NAM)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frmltx.f",
    "content": "      SUBROUTINE FRMLTX (IFILE,DZ,DY,ZM)\r\nC\r\nC     LOWER TRIANGULAR TRANSPOSE WITH OFF-DIAGONAL SWITCH\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     LAST REVISED  11/91, BY G.CHAN/UNISYS\r\nC     ADDITIONAL OF A NEW METHOD WHICH IS MORE EFFICIENT, AND IS\r\nC     ALREADY GOOD FOR VECTORIZATION\r\nC\r\n      DOUBLE PRECISION DZ(1)   ,DY(1)   ,ZM(1)   ,DP     ,DSUM\r\n      DIMENSION        IFILE(7),IDP(2)  ,NAM(2)\r\n      COMMON  /UNPAKX/ ITYP    ,IP      ,NP      ,INCR\r\n      COMMON  /FEERXX/ DM18(18),NZM\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      COMMON  /SYSTEM/ IBUF    ,NOUT\r\n      EQUIVALENCE      (DP,IDP(1))\r\n      DATA     NAM   / 4HFRML  ,4HTX    /\r\nC\r\n      N    = IFILE(2)\r\n      IFL  = IFILE(1)\r\n      IF (IFILE(7) .LT. 0) IFL = -IFILE(7)\r\n      CALL REWIND (IFL)\r\n      IF (IFILE(7) .LT. 0) GO TO 30\r\n      CALL SKPREC (IFL,1)\r\n      ITYP = IFILE(5)\r\nC\r\nC     NASTRAN ORIGINAL METHOD\r\nC\r\n      INCR = 1\r\n      DO 20 I = 1,N\r\n      DY(I)= 0.0D+0\r\n      IP   = 0\r\n      CALL UNPACK (*30,IFL,ZM(1))\r\n      IF (IP .EQ. I) ZM(1) = -ZM(1)\r\n      DSUM = 0.D0\r\n      II   = 0\r\n      DO 10 J = IP,NP\r\n      II   = II + 1\r\n   10 DSUM = DSUM - ZM(II)*DZ(J)\r\n      DY(I)= DSUM\r\n   20 CONTINUE\r\n      GO TO 150\r\nC\r\nC     NEW METHOD\r\nC\r\nC     UNLIKE FRMLTD, IFL WAS UNPACKED BACKWARD FIRST, THEN FORWARD BY\r\nC     UNPSCR/FEER3. SO WE SKIP BACKWARD PASS BEFORE READING DATA\r\nC\r\n   30 NREC = IFILE(4)/10\r\n      CALL SKPREC (IFL,NREC+1)\r\n      NWDS = IFILE(5)\r\n      NREC = 0\r\n      LL2  = 0\r\n      NTMS = 1\r\n      DO 70 I = 1,N\r\n      IF (NTMS .LT. LL2) GO TO 50\r\n      NREC = NREC + 1\r\n      CALL READ (*100,*40,IFL,ZM,NZM,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n   40 LL2  = LL/NWDS\r\n      NTMS = 1\r\n   50 DP   = ZM(NTMS)\r\n      II   = IDP(1)\r\n      JJ   = IDP(2)\r\n      IF (II .NE. I) GO TO 120\r\n      ZM(NTMS+1) = -ZM(NTMS+1)\r\n      DSUM = 0.0D+0\r\n      LL   = NTMS\r\n      DO 60 J = II,JJ\r\n      LL   = LL + 1\r\n   60 DSUM = DSUM - ZM(LL)*DZ(J)\r\n      DY(I)= DSUM\r\n   70 NTMS = NTMS + JJ - II + 2\r\n      GO TO 150\r\nC\r\n  100 J = IFILE(4)/10\r\n      WRITE  (NOUT,110) NREC,I,N,J\r\n  110 FORMAT ('0*** TRY TO READ RECORD',I5,'.  I,N,IFILE(4) =',2I7,I5)\r\n      CALL MESAGE (-2,IFL,NAM)\r\n  120 WRITE  (NOUT,130) II,I\r\n  130 FORMAT ('0*** II AND I MISMATCH =',2I8)\r\n      CALL MESAGE (-37,0,NAM)\r\nC\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frr1a1.f",
    "content": "      SUBROUTINE FRR1A1 (RZ,CZ,IB,REB,CEB)\r\nC\r\n      COMPLEX   Z,SUM,ZK,TERM\r\nC\r\n      Z  = CMPLX(RZ,CZ)\r\n      IF (CABS(Z) .LT. .1) GO TO 100\r\n      ZK  = CMPLX(1.,0.)\r\n      N   = IB\r\n      BF  = 1.\r\n      BF1 = 0.\r\n      SUM = CMPLX(0.,0.)\r\n      DO 10 I = 1,N\r\n      SUM = SUM + ZK/CMPLX(BF,0.)\r\n      ZK  = ZK*Z\r\n      BF1 = BF1 + 1.\r\n      BF  = BF*BF1\r\n   10 CONTINUE\r\n      ZK  = CMPLX(BF,0.)/ZK*(CEXP(Z)-SUM)\r\n      REB = REAL(ZK)\r\n      CEB = AIMAG(ZK)\r\n      RETURN\r\nC\r\n  100 CONTINUE\r\n      ZK  = Z\r\n      DEN = FLOAT(IB) + 1.\r\n      SUM = CMPLX(1.,0.)\r\n      DO 20 I = 1,30\r\n      TERM= ZK/DEN\r\n      SUM = SUM + TERM\r\n      IF (CABS(TERM) .LT. 1.E-9) GO TO 200\r\n      ZK  = ZK*Z\r\n      DEN = DEN*(FLOAT(IB)+ FLOAT(I+1))\r\n   20 CONTINUE\r\n  200 REB = REAL(SUM)\r\n      CEB = AIMAG(SUM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frrd.f",
    "content": "      SUBROUTINE FRRD\r\nC\r\nC     FREQUENCY AND RANDOM RESPONSE MODULE\r\nC\r\nC     INPUTS CASECC,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,PHIDH,DIT\r\nC\r\nC     OUTPUTS UDV,PS,PD,PP\r\nC\r\nC     8 SCRATCHES\r\nC\r\n      INTEGER         SINGLE,OMIT,CASECC,USETD,DLT,FRL,GMD,GOD,BDD,\r\n     1                PHIDH,DIT,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,\r\n     2                UDV,PS,PD,PP,PDD,FOL,NAME(2),MCB(7)\r\n      COMMON /BLANK / APP(2),MODAL(2),LUSETD,MULTI,SINGLE,OMIT,\r\n     1                NONCUP,FRQSET\r\n      COMMON /FRRDST/ OVF(150),ICNT,IFRST,ITL(3),IDIT,IFRD,K4DD\r\n      COMMON /CDCMPX/ DUM32(32),IB,IBBAR\r\n      DATA    CASECC, USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,PHIDH,DIT /\r\n     1        101   , 102,  103,104,105,106,107,108,109,110,  111 /\r\n      DATA    UDV   , PS, PD, PP ,PDD,FOL /\r\n     1        201   , 202,203,204,203,205 /\r\n      DATA    SCR1  , SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8 /\r\n     1        301   , 302, 303, 304, 305, 306, 307, 308  /\r\n      DATA    MODA  / 4HMODA /,      NAME /4HFRRD,4H     /\r\nC\r\n      PDD  = 203\r\n      SCR6 = 306\r\n      IB   = 0\r\nC\r\nC     BUILD LOADS ON P SET ORDER IS ALL FREQ. FOR LOAD TOGETHER\r\nC     FRRD1A IS AN ENTRY POINT IN FRLGA\r\nC\r\n      CALL FRRD1A (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NLOAD,FRQSET,FOL,\r\n     1             NOTRD)\r\n      IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT.LT.0 .AND.\r\n     1    MODAL(1).NE. MODA) GO TO 60\r\nC\r\nC     REDUCE LOADS TO D OR H SET\r\nC     FRRD1B IS AN ENTRY POINT IN FRLGB\r\nC\r\n      CALL FRRD1B (PP,USETD,GMD,GOD,MULTI,SINGLE,OMIT,MODAL(1),PHIDH,PD,\r\n     1             PS,SCR5,SCR1,SCR2,SCR3,SCR4)\r\nC\r\nC     SCR5 HAS PH IF MODAL FORMULATION\r\nC\r\n      IF (MODAL(1) .EQ.MODA) PDD = SCR5\r\nC\r\nC     SOLVE PROBLEM FOR EACH FREQUENCY\r\nC\r\n      IF (NONCUP.LT.0 .AND. MODAL(1).EQ.MODA) GO TO 50\r\n   10 IF (NFREQ.EQ.1  .OR.  NLOAD.EQ.1) SCR6 = UDV\r\n      DO 20 I = 1,NFREQ\r\n      CALL KLOCK (ITIME1)\r\nC\r\nC     FORM AND DECOMPOSE MATRICES\r\nC     IF MATRIX IS SINGULAR, IGOOD IS SET TO 1 IN FRRD1C. ZERO OTHERWISE\r\nC\r\n      CALL FRRD1C (FRL,FRQSET,MDD,BDD,KDD,I,SCR1,SCR2,SCR3,SCR4,SCR8,\r\n     1             SCR7,IGOOD)\r\nC\r\nC     ULL IS ON SCR1 -- LLL IS IN SCR2\r\nC\r\nC     SOLVE FOR PD LOADS STACK ON SCR6\r\nC\r\n      CALL FRRD1D (PDD,SCR1,SCR2,SCR3,SCR4,SCR6,I,NLOAD,IGOOD,NFREQ)\r\n      CALL KLOCK  (ITIME2)\r\n      CALL TMTOGO (ITLEFT)\r\n      IF (2*(ITIME2-ITIME1) .GT. ITLEFT .AND. I.NE.NFREQ) GO TO 70\r\n   20 CONTINUE\r\nC\r\n      I = NFREQ\r\n   30 IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) GO TO 40\r\nC\r\nC     RESORT SOLUTION VECTORS INTO SAME ORDER AS LOADS\r\nC     FRRD1E IS AN ENTRY POINT IN FRRD1D\r\nC\r\n      CALL FRRD1E (SCR6,UDV,NLOAD,I)\r\n   40 RETURN\r\nC\r\nC     UNCOUPLED MODAL\r\nC\r\n   50 CALL FRRD1F (MDD,BDD,KDD,FRL,FRQSET,NLOAD,NFREQ,PDD,UDV)\r\n      GO TO 40\r\n   60 PDD = PP\r\n      GO TO 10\r\nC\r\nC     INSUFFICIENT TIME TO COMPLETE ANOTHER LOOP\r\nC\r\n   70 CALL MESAGE (45,NFREQ-I,NAME)\r\n      MCB(1) = SCR6\r\n      CALL RDTRL (MCB(1))\r\n      NDONE  = MCB(2)\r\n      MCB(1) = PP\r\n      CALL RDTRL (MCB(1))\r\n      MCB(2) = NDONE\r\n      CALL WRTTRL (MCB(1))\r\n      IF (SINGLE .LT. 0) GO TO 80\r\n      MCB(1) = PS\r\n      CALL RDTRL (MCB(1))\r\n      MCB(2) = NDONE\r\n      CALL WRTTRL (MCB(1))\r\n   80 MCB(1) = PD\r\n      CALL RDTRL( MCB(1))\r\n      MCB(2) = NDONE\r\n      CALL WRTTRL (MCB(1))\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/frrd1c.f",
    "content": "      SUBROUTINE FRRD1C (FRL,FRQSET,MDD,BDD,KDD,IFR,ULL,LLL,SCR1,SCR2,\r\n     1                   SCR3,SCR4,IGOOD)\r\nC                                         (A)      (B)        (C)\r\nC     THIS ROUTINE FORMS AND DECOMPOSES   KDD + I*W*BDD - W**2*MDD\r\nC     WHERE  W = OMEGA, CYCLIC FREQ. AND I = SQUARE ROOT MINUS ONE\r\nC\r\nC     THE DECOMPOSITION ROUTINES ARE CALLED ACCORDING TO THE FOLLOWING\r\nC     TABLE AS DETERMINED BY THE MATRIX RESULTING FROM THE ADDITION\r\nC\r\nC     IF MATRIX IS     COMPLEX SYMMETRIC    CALL SDCOMP\r\nC                              UNSYMMETRIC  CALL CDCOMP\r\nC                      REAL    SYMMETRIC    CALL SDCOMP\r\nC                              UNSYMMETRIC  CALL DECOMP\r\nC\r\n      INTEGER          FA,FL,SCR1,SCR2,FRL,FU,FRQ SET,BDD,ULL,LLL,SR1,\r\n     1                 SR2,SCR3,SYSBUF,SCR4,SR3,CHLSKY,NAME(2),\r\n     2                 MCORE(1),ICORE(1)\r\n      DOUBLE PRECISION DET,MINDA,AMCB(2),BMCB(2),CMCB(2),DDR,DDC,MINDD,\r\n     1                 DETT\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  KSYSTM(63)\r\n      COMMON /CDCMPX/  FA(7),FL(7),FU(7),SR1,SR2,SR3,DET(2),POWR,NX,\r\n     1                 MINDA,IB,IBBAR\r\n      COMMON /DCOMPX/  IA(7),IL(7),IU(7),ISCR1,ISCR2,ISCR3,DETT,IPOW,\r\n     1                 NY,MINDIA,IIB,IIBB,ICBR(3)\r\n      COMMON /SFACT /  MFA(7),MFL(7),MFC(7),M1FIL,M2FIL,MXX,DDR,DDC,\r\n     1                 POWER,M3FIL,MINDD,CHLSKY\r\n      COMMON /SADDX /  NOMAT,LCORE,MCBA(12),MCBB(12),MCBC(12),MCBD(12),\r\n     1                 MCBE(12),MX(7)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      EQUIVALENCE      (MCORE(1),CORE(1))\r\n      EQUIVALENCE      (ICORE(1),CORE(1))\r\n      EQUIVALENCE      (AMCB(1),MCBA(9)),(BMCB(1),MCBB(9)),\r\n     1                 (CMCB(1),MCBC(9)),(KSYSTM(2),NOUT)\r\n      EQUIVALENCE      (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC)\r\n      DATA    NAME  /  4HFRRD,4H1C  /\r\nC\r\nC\r\n      NX = KORSZ(CORE)\r\n      NZ = NX - SYSBUF\r\nC\r\nC     PICK UP CURRENT FREQUENCY\r\nC\r\n      CALL GOPEN  (FRL,CORE(NZ+1),0)\r\n      CALL SKPREC (FRL,FRQSET-1)\r\n      CALL FREAD  (FRL,CORE,IFR,1)\r\n      W  = CORE(IFR)\r\n      CALL CLOSE  (FRL,1)\r\nC\r\nC     ADD MATRICES TOGETHER\r\nC\r\n      MCBA(1) = KDD\r\n      MCBB(1) = BDD\r\n      MCBC(1) = MDD\r\n      CALL RDTRL (MCBA)\r\n      CALL RDTRL (MCBB)\r\n      CALL RDTRL (MCBC)\r\n      IF (MCBA(1).GT.0 .AND. MCBC(1).GT.0) GO TO 20\r\n      WRITE  (NOUT,10) UFM\r\n   10 FORMAT (A23,', EITHER STIFFNESS MATRIX OR MASS MATRIX IS MISSING')\r\n      CALL MESAGE (-37,0,NAME)\r\nC\r\n   20 MCBA(8) = 2\r\n      MCBB(8) = 4\r\n      MCBC(8) = 2\r\n      AMCB(1) = 1.0D0\r\n      AMCB(2) = 0.0D0\r\n      BMCB(1) = 0.0D0\r\n      BMCB(2) = W\r\n      CMCB(1) =-W*W\r\n      CMCB(2) = 0.0D0\r\n      IF (MCBB(1) .GT. 0) GO TO 30\r\nC\r\nC     NO BDD TO BE ADDED\r\nC\r\n      MCBB(1) = 0\r\n      MCBB(8) = 0\r\n      BMCB(2) = 0.0D0\r\nC\r\n   30 MX(1)   = SCR3\r\n      MX(2)   = MCBA(2)\r\n      MX(3)   = MCBA(3)\r\n      MX4A    = 6\r\n      MX4B    = 6\r\n      MX4C    = 6\r\n      IF (MCBA(1) .GT. 0) MX4A = MCBA(4)\r\n      IF (MCBB(1) .GT. 0) MX4B = MCBB(4)\r\n      IF (MCBC(1) .GT. 0) MX4C = MCBC(4)\r\n      MX(4) = MIN0(MX4A,MX4B,MX4C)\r\n      MX(5) = 2 + IPREC\r\n      IF (MCBA(1).GT.0 .AND. MCBA(5).GT.2) GO TO 40\r\n      IF (MCBB(1) .GT. 0) GO TO 40\r\n      IF (MCBC(1).GT.0 .AND. MCBC(5).GT.2) GO TO 40\r\n      MX(5) = IPREC\r\n   40 CONTINUE\r\n      LCORE = NX\r\n      NOMAT = 3\r\n      CALL SADD  (CORE,CORE)\r\n      CALL WRTTRL (MX)\r\nC\r\nC     SET UP TO DECOMPOSE MATRICES\r\nC\r\n      FA(1) = SCR3\r\n      CALL RDTRL (FA)\r\n      IGOOD = 1\r\n      IF (FA(4) .EQ. 6) GO TO 120\r\n      IF (FA(5) .LE. 2) GO TO 150\r\n      FL(1) = LLL\r\n      FU(1) = ULL\r\n      DO 50 I = 2,7\r\n      FL(I) = FA(I)\r\n      FU(I) = FA(I)\r\n   50 CONTINUE\r\n      FL(4) = 4\r\n      FU(4) = 5\r\n      SR1   = SCR1\r\n      SR2   = SCR2\r\n      SR3   = SCR4\r\n      CALL CDCOMP (*100,CORE(1),CORE(1),CORE(1))\r\n      IGOOD = 0\r\n      CALL WRTTRL (FL)\r\n      CALL WRTTRL (FU)\r\nC\r\nC     FORCE RE-EVALUATION OF DECOMP PARAM IF W = 0.0\r\nC\r\n   60 IF (W .NE. 0.0) GO TO 70\r\n      IB    = 0\r\n      IBBAR = 0\r\n   70 RETURN\r\nC\r\nC     MATRIX SINGULR\r\nC\r\n  100 I = 5\r\n      IF (W .NE. 0.0) I = -5\r\n      CALL MESAGE (I,SCR3,NAME)\r\n      GO TO 60\r\nC\r\nC     USE SDCOMP TO PERFORM DECOMPOSITION\r\nC\r\n  120 MFA(1) = SCR3\r\n      MFL(1) = LLL\r\n      MFC(1) = ULL\r\n      DO 130 I = 2,7\r\n      MFA(I) = FA(I)\r\n      MFL(I) = FA(I)\r\n      MFC(I) = FA(I)\r\n  130 CONTINUE\r\n      MFL(4) = 4\r\n      M1FIL  = SCR1\r\n      M2FIL  = SCR2\r\n      M3FIL  = SCR4\r\n      MXX    = KORSZ(MCORE)\r\n      CHLSKY = 0\r\n      CALL SDCOMP (*100,MCORE,MCORE,MCORE)\r\n      IGOOD  = 0\r\nC\r\nC     DIRECTION FOR FRRD1D TO USE  FBS RATHER THAN GFBS\r\nC\r\n      ULL = -IABS(ULL)\r\nC\r\n      CALL WRTTRL (MFL)\r\n      GO TO 60\r\nC\r\nC     USE DECOMP TO PERFORM DECOMPOSITION\r\nC\r\n  150 IA(1) = SCR3\r\n      IL(1) = LLL\r\n      IU(1) = ULL\r\n      DO 160 I = 2,7\r\n      IA(I) = FA(I)\r\n      IL(I) = FA(I)\r\n      IU(I) = FA(I)\r\n  160 CONTINUE\r\n      IL(4) = 4\r\n      IU(4) = 5\r\n      ISCR1 = SCR1\r\n      ISCR2 = SCR2\r\n      ISCR3 = SCR4\r\n      NY    = KORSZ(ICORE)\r\n      CALL DECOMP (*100,ICORE,ICORE,ICORE)\r\n      CALL WRTTRL (IL)\r\n      CALL WRTTRL (IU)\r\n      IGOOD = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frrd1d.f",
    "content": "      SUBROUTINE FRRD1D (PD,ULL,LLL,SCR1,SCR2,UDV,IFR,NLOAD,IGOOD,NFREQ)\r\nC\r\nC     ROUTINE SOLVES FOR UDV GIVEN ULL,LLL, AND PD\r\nC\r\nC     IF IGOOD = 1 DCOMP FAILED -- PUT ZERO SOLUTION VECTORS OUT\r\nC\r\nC     1. PULL LOADS FROM PD ONTO SCR1\r\nC     2. SOLVE FOR UDV-S ON SCR2\r\nC     3. STACK SOLVED LOADS ON UDV\r\nC\r\n      INTEGER         SYSBUF,PD,ULL,LLL,SCR1,SCR2,UDV,FL,FU,FB,FX,PREC,\r\n     1                FILE,ICORE(1),UDV1,MCB(7),NAME(2),MCORE(1)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /UNPAKX/ IT1,II,JJ,INCR\r\n      COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /GFBSX / FL(7),FU(7),FB(7),FX(7),NX,PREC,ISIGN\r\n      COMMON /FBSX  / MFL(7),MFLT(7),MFB(7),MFX(7),MX,MPREC,MSIGN,ISCRX\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC),\r\n     1                (CORE(1),ICORE(1),MCORE(1))\r\n      DATA    NAME  / 4HFRRD,4H1D  /, IC / 0 /\r\nC\r\n      NX    = KORSZ(CORE)\r\n      FB(1) = PD\r\n      CALL RDTRL (FB)\r\n      FX(1) = SCR2\r\n      IF (IFR .EQ. 1) FX(1) = UDV\r\n      FX(2) = NLOAD\r\n      FX(3) = FB(3)\r\n      FX(4) = 2\r\n      FX(5) = 2 + IPREC\r\n      IT1   = FB(5)\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      IT2   = IT1\r\n      IT3   = 2 + IPREC\r\n      IF (IGOOD .EQ. 1) GO TO 98\r\nC\r\nC     PULL LOADS FROM PD ONTO SCR1\r\nC\r\n      FU(1) = ULL\r\n      CALL RDTRL (FU)\r\n      FL(1) = LLL\r\n      CALL RDTRL (FL)\r\n      IF (NFREQ .EQ. 1) GO TO 30\r\n      NZ = NX - SYSBUF\r\n      CALL GOPEN (PD,CORE(NZ+1),0)\r\n      CALL SKPREC (PD,IFR-1)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (SCR1,CORE(NZ+1),1)\r\n      CALL MAKMCB (MCB,SCR1,FB(3),2,IT3)\r\n      DO 10 I = 1,NLOAD\r\n      IF (I .GT. 1) CALL SKPREC (PD,NFREQ-1)\r\n      II = 0\r\n      CALL UNPACK (*28,PD,CORE)\r\n      II1 = II\r\n      JJ1 = JJ\r\n   22 CALL PACK (CORE,SCR1,MCB)\r\n      GO TO 10\r\n   28 CORE(   1) = 0\r\n      CORE(IC+2) = 0\r\n      CORE(IC+3) = 0\r\n      CORE(IC+4) = 0\r\n      II1 = 1\r\n      JJ1 = 1\r\n      GO TO 22\r\n   10 CONTINUE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (PD,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     SET UP FOR GFBS\r\nC\r\n      FB(1) = SCR1\r\n   30 FB(2) = NLOAD\r\n      CALL WRTTRL (FB)\r\n      PREC = 1\r\n      IF (FB(5).EQ.2 .OR. FB(5).EQ.4) PREC = 2\r\n      ISIGN = 1\r\n      IF (FU(1) .LT. 0) GO TO 40\r\n      CALL GFBS (CORE,CORE)\r\n      CALL WRTTRL (FX)\r\n      GO TO 98\r\nC\r\nC     SET UP FOR FBS\r\nC\r\n   40 DO 41 I = 1,7\r\n      MFL(I) = FL(I)\r\nC\r\nC     FBS DOES NOT USE THE MATRIX CONTROL BLOCK MFLT.\r\nC     IF MFLT(1) EXISTS, SET ISCRX = MFLT(1) FILE FOR NEW FBS METHOD.\r\nC     OTHERWISE SET ISCRX = 0, AND WE DO NOT HAVE A SCRATCH FILE FOR\r\nC     NEW FBS. OLD FBS WILL BE USED.\r\nC\r\n      MFB(I) = FB(I)\r\n      MFX(I) = FX(I)\r\n   41 CONTINUE\r\n      MPREC = PREC\r\n      MSIGN = ISIGN\r\n      MX    = KORSZ(MCORE)\r\n      ISCRX = MFLT(1)\r\n      MCORE(1) = MFLT(1)\r\n      CALL RDTRL (MCORE(1))\r\n      IF (MCORE(1) .LE. 0) ISCRX = 0\r\n      CALL FBS (MCORE,MCORE)\r\n      CALL WRTTRL (MFX)\r\n   98 ICORE(1) = 16777215\r\nC                16777215 = '00FFFFFF'X\r\n      IFLAG = 1\r\nC\r\nC     STACK LOADS ONTO UDV\r\nC\r\n      FILE = UDV\r\n      NZ   = NX-SYSBUF\r\n      IF (IFR .EQ. 1) GO TO 300\r\n      CALL OPEN (*900,UDV,CORE(NZ+1),0)\r\n      FX(1) = UDV\r\n      CALL RDTRL (FX)\r\n      IF (MACH .NE. 1) GO TO 60\r\n   50 CALL FWDREC (*51,UDV)\r\n      GO TO 50\r\n   51 CALL BCKREC (UDV)\r\n      CALL SKPREC (UDV,1)\r\n      GO TO 61\r\n   60 CALL SKPFIL (UDV,1)\r\n      CALL SKPFIL (UDV,-1)\r\n   61 CALL CLOSE (UDV,2)\r\n      CALL OPEN (*900,UDV,CORE(NZ+1),3)\r\nC\r\nC     RESET TYPE FLAGS\r\nC\r\n      IT1 = FX(5)\r\n      IT2 = IT1\r\n      IT3 = IT1\r\n      IF (IGOOD .EQ. 1) GO TO 101\r\n      NZ  = NZ - SYSBUF\r\n      CALL GOPEN (SCR2,CORE(NZ+1),0)\r\n  101 DO 55 I = 1,NLOAD\r\n      IF (IGOOD .EQ. 1) GO TO 54\r\n      II  = 0\r\n      CALL UNPACK (*54,SCR2,CORE)\r\n      II1 = II\r\n      JJ1 = JJ\r\n   53 CALL PACK (CORE,UDV,FX)\r\n      GO TO 55\r\n   54 CORE(   1) = 0\r\n      CORE(IC+2) = 0\r\n      CORE(IC+3) = 0\r\n      CORE(IC+4) = 0\r\n      II1 = 1\r\n      JJ1 = 1\r\n      GO TO 53\r\n   55 CONTINUE\r\n      CALL CLOSE (UDV,1)\r\n      IF (IGOOD .EQ. 1) GO TO 56\r\n      CALL CLOSE (SCR2,1)\r\n   56 CONTINUE\r\n      CALL WRTTRL (FX)\r\n  350 RETURN\r\nC\r\n  300 IF (IGOOD .NE. 1) GO TO 350\r\n      CALL GOPEN (UDV,CORE(NZ+1),1)\r\n      FX(2) = 0\r\n      FX(6) = 0\r\n      FX(7) = 0\r\n      CALL WRTTRL (FX)\r\n      GO TO 101\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  900 CALL MESAGE (-1,FILE,NAME)\r\nC\r\nC\r\n      ENTRY FRRD1E (UDV1,UDV,NLOAD,NFREQ)\r\nC     ===================================\r\nC\r\n      NZ = KORSZ(CORE) - SYSBUF\r\nC\r\nC     ROUTINE REORDERS SOLUTIONS TO GET SORT BY LOADS\r\nC\r\n      FILE = UDV1\r\n      CALL OPEN (*900,UDV1,CORE(NZ+1),0)\r\n      NZ   = NZ - SYSBUF\r\n      CALL GOPEN (UDV,CORE(NZ+1),1)\r\n      FILE = UDV1\r\n      DO 400 I = 1,NLOAD\r\n      CALL SKPREC (UDV1,I)\r\n      DO 500 M = 1,NFREQ\r\n      II  = 0\r\n      CALL UNPACK (*420,UDV1,CORE)\r\n      II1 = II\r\n      JJ1 = JJ\r\n  421 CALL PACK (CORE,UDV,MCB)\r\n      GO TO 422\r\n  420 CORE(   1) = 0\r\n      CORE(IC+2) = 0\r\n      CORE(IC+3) = 0\r\n      CORE(IC+4) = 0\r\n      II1 = 1\r\n      JJ1 = 1\r\n      GO TO 421\r\n  422 IF (M .LT. NFREQ) CALL SKPREC (UDV1,NLOAD-1)\r\n  500 CONTINUE\r\n      CALL REWIND (UDV1)\r\n  400 CONTINUE\r\n      CALL CLOSE (UDV1,1)\r\n      CALL CLOSE (UDV,1)\r\n      FX(1) = UDV1\r\n      CALL RDTRL (FX)\r\n      FX(1) = UDV\r\n      CALL WRTTRL (FX)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frrd1f.f",
    "content": "      SUBROUTINE FRRD1F (MHH,BHH,KHH,FRL,FRQSET,NLOAD,NFREQ,PH,UHV)\r\nC\r\nC     ROUTINE  SOLVES DIRECTLY FOR UNCOUPLED MODAL FORMULATION\r\nC\r\n      INTEGER         BHH,FRL,FRQSET,PH,UHV,SYSBUF,FILE,MCB(7),NAME(2)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZBLPKX/ B(4),JJ\r\n      COMMON /ZNTPKX/ A(4),II,IEOL,IEOR\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      DATA    NAME  / 4HFRRD,4H1F  /\r\nC\r\nC\r\n      IBUF1 = KORSZ(CORE) - SYSBUF + 1\r\nC\r\nC     PICK UP FREQUENCY LIST\r\nC\r\n      CALL GOPEN  (FRL,CORE(IBUF1),0)\r\n      CALL SKPREC (FRL,FRQSET-1)\r\n      IF (IBUF1-1 .LT. NFREQ) GO TO 170\r\n      CALL FREAD (FRL,CORE,NFREQ,1)\r\n      CALL CLOSE (FRL,1)\r\nC\r\nC     BRING IN  MODAL MATRICES\r\nC\r\n      IMHH   = NFREQ\r\n      MCB(1) = MHH\r\n      CALL RDTRL (MCB)\r\n      LHSET  = MCB(2)\r\n      IF (IBUF1-1 .LT. NFREQ+3*LHSET) GO TO 170\r\n      IBHH   = IMHH + LHSET\r\n      IKHH   = IBHH + LHSET\r\nC\r\nC     BRING IN MHH\r\nC\r\n      MATNAM = MHH\r\n      ASSIGN 30 TO IRET\r\n      IPNT   = IMHH\r\n      GO TO 110\r\nC\r\nC     BRING  IN  BHH\r\nC\r\n   30 MATNAM = BHH\r\n      ASSIGN 40 TO IRET\r\n      IPNT   = IBHH\r\n      GO TO 110\r\nC\r\nC     BRING IN KHH\r\nC\r\n   40 MATNAM =  KHH\r\n      ASSIGN 50 TO IRET\r\n      IPNT   = IKHH\r\n      GO TO 110\r\nC\r\nC     READY LOADS\r\nC\r\n   50 CALL GOPEN (PH,CORE(IBUF1),0)\r\nC\r\nC     READY SOLUTIONS\r\nC\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      CALL GOPEN  (UHV,CORE(IBUF2),1)\r\n      CALL MAKMCB (MCB,UHV,LHSET,2,3)\r\nC\r\nC     COMPUTE  SOLUTIONS\r\nC\r\n      DO 100 I = 1,NLOAD\r\n      DO 90  J = 1,NFREQ\r\nC\r\nC     PICK  UP  FREQ\r\nC\r\n      W  = CORE(J)\r\n      W2 = -W*W\r\n      CALL BLDPK (3,3,UHV,0,0)\r\n      CALL INTPK (*80,PH,0,3,0)\r\n   60 IF (IEOL) 80,70,80\r\n   70 CALL ZNTPKI\r\nC\r\nC     COMPUTE  REAL AND COMPLEX PARTS OF DENOMINATOR\r\nC\r\n      IK   = IKHH + II\r\n      IB   = IBHH + II\r\n      IM   = IMHH + II\r\n      RDEM = W2*CORE(IM) + CORE(IK)\r\n      CDEM = CORE(IB)*W\r\nCIBMD DEM  = RDEM*RDEM + CDEM*CDEM\r\nCIBMR IF (DEM .NE. 0.0) GO TO 71\r\n      IF (RDEM.NE.0.0 .OR. CDEM.NE.0.0) GO TO 71\r\n      CALL MESAGE (5,J,NAME)\r\n      B(1) = 0.0\r\n      B(2) = 0.0\r\n      GO TO 72\r\n   71 CONTINUE\r\nC\r\nC     COMPUTE REAL AND COMPLEX PHI-S\r\nC\r\nCIBMD B(1) = (A(1)*RDEM + A(2)*CDEM)/DEM\r\nCIBMD B(2) = (A(2)*RDEM - A(1)*CDEM)/DEM\r\nCIBMNB\r\n      IF (RDEM .EQ. 0.0) GO TO 715\r\n      RATIO = CDEM/RDEM\r\n      FACTR = 1.0 / (RDEM + RATIO*CDEM)\r\n      B(1) = (A(1) + A(2)*RATIO) * FACTR\r\n      B(2) = (A(2) - A(1)*RATIO) * FACTR\r\n      GO TO 72\r\n  715 RATIO = RDEM/CDEM\r\n      FACTR = 1.0 / (RATIO*RDEM + CDEM)\r\n      B(1) = (A(1)*RATIO + A(2)) * FACTR\r\n      B(2) = (A(2)*RATIO - A(1)) * FACTR\r\nCIBMNE\r\n   72 JJ   = II\r\n      CALL ZBLPKI\r\n      GO TO 60\r\nC\r\nC     END  COLUMN\r\nC\r\n   80 CALL BLDPKN (UHV,0,MCB)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      CALL CLOSE  (UHV,1)\r\n      CALL CLOSE  (PH,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE TO BRING IN  H MATRICES\r\nC\r\n  110 FILE = MATNAM\r\n      CALL OPEN (*132,MATNAM,CORE(IBUF1),0)\r\n      CALL SKPREC (MATNAM,1)\r\n      DO 130 I = 1,LHSET\r\n      IPNT = IPNT + 1\r\n      CALL INTPK (*120,MATNAM,0,1,0)\r\n      CALL ZNTPKI\r\n      IF (II.NE.I .OR. IEOL.NE.1) GO TO 180\r\n      CORE(IPNT) = A(1)\r\n      GO TO 130\r\nC\r\nC     NULL COLUMN\r\nC\r\n  120 CORE(IPNT) = 0.0\r\n  130 CONTINUE\r\n      CALL CLOSE (MATNAM,1)\r\n  131 GO TO IRET, (30,40,50)\r\nC\r\nC     ZERO CORE FOR PURGED MATRIX\r\nC\r\n  132 DO 133 I = 1,LHSET\r\n      IPNT = IPNT + 1\r\n      CORE(IPNT) = 0.0\r\n  133 CONTINUE\r\n      GO TO 131\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  150 CALL MESAGE (IP1,FILE,NAME)\r\n  170 IP1 = -8\r\n      GO TO  150\r\n  180 IP1 = -7\r\n      GO TO  150\r\n      END\r\n"
  },
  {
    "path": "mis/frrd2.f",
    "content": "      SUBROUTINE FRRD2\r\nC\r\nC     AEROELASTIC FREQUENCY RESPONSE SOLUTION MODULE\r\nC\r\nC     INPUTS      KHH,BHH,MHH,QHHL,PHF,FOL\r\nC\r\nC     OUTPUT      UHVF\r\nC\r\nC     SCRATCHES   NINE\r\nC\r\nC     PARAMETERS    BOV - REAL - INPUT\r\nC                   Q   - REAL - INPUT\r\nC                   M   - REAL - INPUT\r\nC\r\nC     COMMON FRD2BC WILL BE USED BY ROUTINES FRD2B AND FRD2C.\r\nC\r\n      INTEGER         BHH,QHHL,PHF,FOL,UHVF,\r\n     1                SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9,\r\n     2                SYSBUF,IZ(1),MCB(7),NAME(2),PASS,ITAB(5)\r\n      REAL            M,ZZZ(1)\r\n      COMPLEX         A1,A2,A3,A4,A5\r\n      COMMON /CONDAS/ PHI,TWOPI\r\n      COMMON /FRRDST/ OVF(150),ICNT,IFRST\r\n      COMMON /BLANK / BOV,Q,M\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /CDCMPX/ DUMM32(32),IB\r\n      COMMON /FRD2BC/ IH,IPFRDC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ZZZ(1),Z(1))\r\n      EQUIVALENCE     (IZ(1) ,Z(1))\r\n      DATA    KHH ,BHH ,MHH ,QHHL,PHF ,FOL, UHVF/\r\n     1        101 ,102 ,103 ,104 ,105 ,106, 201 /\r\n      DATA    SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9/\r\n     1        301 ,302 ,303 ,304 ,305 ,306 ,307 ,308 ,309 /\r\n      DATA    NAME  / 4HFRRD,4H2   /\r\nC     DATA    PASS  / 0 /\r\nC\r\nC     SETUP\r\nC\r\n      SCR9   = 309\r\n      PASS   = 0\r\n      IB     = 0\r\n      IH     = 0\r\n      IPFRDC = 0\r\n      NZ     = KORSZ(Z)\r\n      IBUF1  = NZ - SYSBUF - 1\r\n      NZ     = NZ - SYSBUF\r\n      NONCUP = 1\r\n      MCB(1) = QHHL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1).LE.0 .OR. Q.EQ.0.0) NONCUP = -1\r\nC\r\nC     IF QHHL IS PURGED AND MACH NUMBER IS NEGATIVE, THE COUPLED EQU.\r\nC     (-M*W**2 + IW*B + K)*U = P IS SOLVED. COMPLEX D.P. IS USED.\r\nC     THE VARIABLE IH WILL BE USED TO CONTROL SOLUTION LOGIC IN\r\nC     ROUTINES FRRD2, FRD2B AND FRD2C.\r\nC\r\n      IF (MCB(1).LE.0 .AND. M.LT.0.0) NONCUP = 1\r\nC\r\n      MCB(1) = PHF\r\n      CALL RDTRL (MCB)\r\n      I = PHF\r\n      IF (MCB(1) .LT. 0) GO TO 920\r\n      I = FOL\r\n      CALL OPEN (*920,FOL,IZ(IBUF1),0)\r\n      CALL READ (*910,*10,FOL,IZ,2,0,NFREQ)\r\n      CALL READ (*910,*10,FOL,IZ,NZ,0,NFREQ)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 CONTINUE\r\n      CALL CLOSE (FOL,1)\r\n      NLOAD = MCB(2)/NFREQ\r\n      IF (NONCUP .EQ. -1) GO TO 200\r\n      IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) SCR9 = UHVF\r\n      ICNT  = 0\r\n      IFRST = 0\r\nC\r\nC     BUILD INTERPOLATION MATRIX - ON SCR1\r\nC\r\n      CALL FRD2I (IZ(1),NFREQ,NZ+SYSBUF,QHHL,SCR1,SCR2,SCR3,SCR4,IH)\r\n      NTO  = 0\r\n      IHH  = MCB(3)\r\n      ICOR = KORSZ(ZZZ) - 6*SYSBUF - 3\r\n      NCORE= 2*(IH*IH + 2*(IHH*NLOAD)) + 50\r\n      ICOR = ICOR - NCORE\r\nC\r\nC     IF IH = 0, COMPLEX D.P. COMPUTATION WILL BE USED.  NOTICE THAT THE\r\nC     ROUTINE INCORE IS WRITTEN ONLY FOR COMPLEX S.P. OPERATION.\r\nC\r\n      IF (IH.EQ.0 .OR. ICOR.LT.500) GO TO 20\r\n      NTO     = 1\r\n      ITAB(1) = MHH\r\n      ITAB(2) = BHH\r\n      ITAB(3) = KHH\r\n      ITAB(4) = PHF\r\n      ITAB(5) = SCR1\r\n      IHH     = 4\r\n      IF (IH .NE. 0) IHH = 5\r\n      CALL OPEN  (*21,MHH,IZ(IBUF1),0)\r\n   21 CALL CLOSE (MHH,1)\r\n      CALL OPEN  (*22,BHH,IZ(IBUF1),0)\r\n   22 CALL CLOSE (BHH,1)\r\n      CALL OPEN  (*23,KHH,IZ(IBUF1),0)\r\n   23 CALL CLOSE (KHH,1)\r\n      CALL OPEN  (*24,PHF,IZ(IBUF1),0)\r\n   24 CALL CLOSE (PHF,1)\r\n   20 CONTINUE\r\nC\r\nC     LOOP ON FREQUENCY\r\nC\r\n      DO 40 I = 1,NFREQ\r\nC\r\nC     PICK UP FREQUENCY\r\nC\r\n      IF (I .LE. ICNT+IFRST-1) GO TO 30\r\n      CALL GOPEN  (FOL,IZ(IBUF1),0)\r\n      CALL BCKREC (FOL)\r\n      CALL FREAD  (FOL,OVF,-(I-1)-2,0)\r\n      ICNT = MIN0(150,NFREQ-I+1)\r\n      CALL FREAD (FOL,OVF,ICNT,0)\r\n      IFRST = I\r\n      CALL CLOSE (FOL,1)\r\n   30 CONTINUE\r\n      K = I - IFRST + 1\r\n      W = OVF(K)*TWOPI\r\n      IF (IH .EQ. 0) GO TO 35\r\nC\r\nC     INTERPOLATE QHHL\r\nC\r\n      CALL FRD2A (SCR1,SCR2,SCR3,IH,I)\r\n      GO TO 38\r\n   35 CONTINUE\r\nC\r\nC     CREATE NULL TRAILERS FOR SCR2 (QHR) AND SCR3 (QHI) IF IH = 0.\r\nC     (THESE DATA BLOCKS ARE NORMALLY GENERATED BY FRD2A IF IH .NE. 0.\r\nC     SINCE FRD2A IS NOT EXECUTED WHEN IH = 0, AND SINCE SCR2 AND SCR3\r\nC     ARE ALSO USED BY FRD2C, WE NEED TO CLEAR THE TRAILERS.)\r\nC\r\n      CALL MAKMCB (MCB,SCR2,0,0,0)\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = SCR3\r\n      CALL WRTTRL (MCB)\r\nC\r\n   38 CONTINUE\r\nC\r\nC     FOR DYNAMIC MATRIX\r\nC\r\n      A1 = CMPLX(-W*W,0.0)\r\n      A2 = CMPLX(0.0,W)\r\n      A3 = CMPLX(0.0,-W*Q*BOV)\r\n      A4 = CMPLX(1.0,0.0)\r\n      A5 = CMPLX(-Q,0.0)\r\n      CALL FRD2B (MHH,A1,BHH,A2,SCR3,A3,KHH,A4,SCR2,A5,SCR4)\r\nC\r\nC     DECOMPOSE SCR4 AND SOLVE\r\nC\r\n      CALL FRD2C (SCR4,PHF,SCR7,SCR2,SCR3,SCR5,SCR6,SCR8,NLOAD,I)\r\nC\r\nC     COPY TO TEMPORARY UHVF\r\nC\r\n      CALL FRD2D (SCR7,SCR9,PASS)\r\n      PASS = PASS + 1\r\n   40 CONTINUE\r\n      IF (NFREQ.EQ.1 .OR. NLOAD.EQ.1) GO TO 100\r\n      CALL FRD2E (SCR9,UHVF,NLOAD,NFREQ)\r\nC\r\nC     FORM FINAL ANSWER\r\nC\r\n  100 RETURN\r\nC\r\nC     UNCOUPLED MODAL\r\nC\r\n  200 CONTINUE\r\nC\r\nC     THE FREQUENCIES FOL (ALREADY IN IZ ARRAY) IS CONVERTED FROM CPS\r\nC     TO RADIAN UNITS (FRL), AND SAVED IN SCR1.  NO TRAILER NEEDED.\r\nC\r\n      CALL GOPEN (SCR1,IZ(IBUF1),1)\r\n      DO 210 I = 1,NFREQ\r\n      Z(I) = Z(I)*TWOPI\r\n  210 CONTINUE\r\n      CALL WRITE (SCR1,Z,NFREQ,1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL FRD2F (MHH,BHH,KHH,SCR1,1,NLOAD,NFREQ,PHF,UHVF)\r\n      GO TO 100\r\n  910 CALL MESAGE (-3,FOL,NAME)\r\n  920 CALL MESAGE (-1,I,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frsw.f",
    "content": "      SUBROUTINE FRSW (V1,V2,V3,VB)\r\nC\r\nC     LAST REVISED  11/91, BY G.CHAN/UNISYS\r\nC     ADDITION OF A NEW FORWARD-BACKWARD SUBSTITUTION METHOD, WHICH IS\r\nC     MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION.\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      INTEGER          NAM(6)  ,IBLK(15),BASE\r\n      REAL             V1(1)   ,V2(1)   ,V3(1)   ,VB(1) ,XL(1) ,XLJJ  ,\r\n     1                 V3J     ,ZERO    ,SUM\r\n      COMMON  /OPINV / MCBLT(7),MCBSMA(7)\r\n      COMMON  /SYSTEM/ KSYSTM  ,IO\r\n      COMMON  /FEERXX/ DUMM(18),NZVB\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (XL(1),IZ(1))\r\n      EQUIVALENCE      (LJJ,XLJJ)       ,(L16,DUMM(6))\r\n      DATA     NAM   / 4HFRSW  ,4H      ,2*4HBEGN,4HEND ,4HBGIN /\r\n      DATA     ZERO  / 0.0           /\r\nCDB   DATA     DEBUG , ITER    ,MAX  /  .FALSE.  ,0     ,3      /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     WRITE  (IO,10) NZVB,ITER\r\nC  10 FORMAT ('  .... IN FRSW2.  NZVB =',I8,',   ITER =',I3)\r\nC  20 CONTINUE\r\n      NROW = MCBLT(2)\r\n      CALL FRMLT (MCBSMA(1),V1(1),V3(1),VB(1))\r\n      IF (MCBLT(7) .LT. 0) GO TO 200\r\nC\r\nC     NASTRAN ORIGINAL METHOD\r\nC\r\n      IBLK( 1) = MCBLT(1)\r\n      IBLK( 9) = 1\r\n      IBLK(10) = 1\r\n      CALL REWIND (MCBLT)\r\n      CALL SKPREC (MCBLT,1)\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      DO 80 J = 1,NROW\r\n      IBLK(8) = -1\r\n   30 CALL GETSTR (*70,IBLK(1))\r\n      JI   = IBLK(5)\r\n      NTMS = IBLK(6)\r\n      IK   = IBLK(4)\r\n      IF (IK .NE. J) GO TO 40\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL(JI)\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n   40 IF (NTMS .EQ. 0) GO TO 60\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 60\r\n      DO 50 II = 1,NTMS\r\n      V3(IK) = V3(IK) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n   50 CONTINUE\r\n   60 CALL ENDGET (IBLK(1))\r\n      GO TO 30\r\n   70 V3(J) = V3(J)/XLJJ\r\n   80 CONTINUE\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      J    = NROW\r\n   90 IBLK(8) = -1\r\n  100 CALL GETSTB (*130,IBLK(1))\r\n      NTMS = IBLK(6)\r\n      JI   = IBLK(5)\r\n      IK   = IBLK(4)\r\n      IF (IK-NTMS+1 .EQ. J) NTMS = NTMS - 1\r\n      IF (NTMS .EQ. 0) GO TO 120\r\n      SUM  = ZERO\r\n      DO 110 II = 1,NTMS\r\n      SUM  = SUM + XL(JI)*V3(IK)\r\n      JI   = JI - 1\r\n      IK   = IK - 1\r\n  110 CONTINUE\r\n      V3(J)= V3(J) + SUM\r\n  120 CALL ENDGTB (IBLK(1))\r\n      GO TO 100\r\n  130 IF (J .EQ. 1) GO TO 500\r\n      J    = J - 1\r\n      GO TO 90\r\nC\r\nC     NEW METHOD\r\nC\r\nC     THE MCBLT MATRIX HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD\r\nC     BY UNPSCR IN FEER3. NO STRING OPERATION HERE\r\nC\r\n  200 IF (NAM(3) .EQ. NAM(5)) NAM(3) = NAM(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (NAM,3,0)\r\n      MCBLTX =-MCBLT(7)\r\n      IF (MOD(MCBLT(4),10) .NE. 2) GO TO 440\r\n      CALL REWIND (MCBLTX)\r\n      CALL SKPREC (MCBLTX,1)\r\nC     NWDS = MCBLT(5)\r\nC\r\nC     IZ(1)                                                      GINO\r\nC      / V1   V2    V3          VB (OPEN CORE LENGTH = NZVB)    BUFFERS\r\nC     +-----+-----+-----+-----+-------------------------------+---------\r\nC                         OPEN  CORE\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      NREC = 0\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = +450\r\n      DO 260 J = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 230\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\nC 210 FORMAT ('  ...READING RECORD',I5,'.   IFB =',I5)\r\n      CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\nC 220 LL2  = LL/NWDS\r\n  220 LL2  = LL\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\n      BASE = 1\r\n  230 XLJJ = VB(BASE)\r\n      II   = LJJ\r\n      XLJJ = VB(BASE+1)\r\n      JJ   = LJJ\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,240) IFB,J,BASE,II,JJ\r\nC 240 FORMAT (11X,'IFB,J,BASE,II,JJ =',4I8)\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 3\r\n      IE   = BASE + 1 + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 260\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 260\r\n      DO 250 I = IB,IE\r\n      II   = II + 1\r\n  250 V3(II) = V3(II) + VB(I)*V3J\r\n  260 V3(J)= V3(J)/VB(IB-1)\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      NREC = 0\r\n      LL2  = 0\r\n      BASE = 1\r\n      J    = NROW\r\n      IFB  = -490\r\n      DO 300 JX = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 280\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\n      CALL READ (*400,*270,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\nC 270 LL2  = LL/NWDS\r\n  270 LL2  = LL\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\n      BASE = 1\r\n  280 XLJJ = VB(BASE)\r\n      II   = LJJ\r\n      XLJJ = VB(BASE+1)\r\n      JJ   = LJJ\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,240) IFB,J,BASE,II,JJ\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 3\r\n      IE   = BASE + 1 + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 300\r\n      SUM  = ZERO\r\n      DO 290 I = IB,IE\r\n      II   = II + 1\r\n  290 SUM  = SUM + VB(I)*V3(II)\r\n      V3(J)= V3(J) + SUM\r\n  300 J    = J - 1\r\n      GO TO 500\r\nC\r\nC     ERROR\r\nC\r\n  400 I = MCBLT(4)/10\r\n      WRITE  (IO,410) NREC,J,I,IFB\r\n  410 FORMAT ('0*** TRY TO READ RECORD',I5,'.  J,MCBLT(4),IFB =',I7,2I5)\r\n      CALL MESAGE (-2,MCBLTX,NAM)\r\n  420 WRITE  (IO,430) IFB,II,J\r\n  430 FORMAT ('0*** ERROR.   IFB),II,J =',I5,1H),2I8)\r\n      GO TO 460\r\n  440 J = MOD(MCBLT(4),10)\r\n      WRITE  (IO,450) J\r\n  450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM.  UNPSCR FLAG =',I3)\r\n  460 CALL MESAGE (-37,0,NAM)\r\nC\r\n  500 NAM(3) = NAM(5)\r\n      IF (L16 .NE. 0) CALL CONMSG (NAM,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/frsw2.f",
    "content": "      SUBROUTINE FRSW2 (V1,V2,V3,VB)\r\nC\r\nC     LAST REVISED  11/91, BY G.CHAN/UNISYS\r\nC     ADDITION OF A NEW FORWARD-BACKWARD SUBSTITUTION METHOD, WHICH IS\r\nC     MORE EFFICIENT, AND IS ALREADY GOOD FOR VECTORIZATION.\r\nC\r\nCDB   LOGICAL          DEBUG\r\n      INTEGER          NAM(6)  ,LJJ(2) ,IBLK(15),BASE\r\n      DOUBLE PRECISION V1(1)   ,V2(1)  ,V3(1)   ,VB(1) ,XL(1) ,XLJJ  ,\r\n     1                 V3J     ,ZERO   ,SUM\r\n      COMMON  /OPINV / MCBLT(7),MCBSMA(7)\r\n      COMMON  /SYSTEM/ KSYSTM  ,IO\r\n      COMMON  /FEERXX/ DUMM(18),NZVB\r\n      COMMON  /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE      (XL(1),IZ(1))\r\n      EQUIVALENCE      (LJJ(1) ,XLJJ)  ,(L16,DUMM(6))\r\n      DATA     NAM   / 4HFRSW  ,4H2    ,2*4HBEGN,4HEND ,4HBGIN /\r\n      DATA     ZERO  / 0.0D+0        /\r\nCDB   DATA     DEBUG , ITER    ,MAX  / .FALSE.  ,0     ,3      /\r\nC\r\nCDB   IF (.NOT.DEBUG) GO TO 20\r\nC     ITER = ITER + 1\r\nC     IF (ITER .GT. MAX) DEBUG = .FALSE.\r\nC     WRITE  (IO,10) NZVB,ITER\r\nC  10 FORMAT ('  .... IN FRSW2.  NZVB =',I8,',   ITER =',I3)\r\nC  20 CONTINUE\r\n      NROW = MCBLT(2)\r\n      CALL FRMLTD (MCBSMA(1),V1(1),V3(1),VB(1))\r\n      IF (MCBLT(7) .LT. 0) GO TO 200\r\nC\r\nC     NASTRAN ORIGINAL METHOD\r\nC\r\n      IBLK( 1) = MCBLT(1)\r\n      IBLK( 9) = 1\r\n      IBLK(10) = 1\r\n      CALL REWIND (MCBLT)\r\n      CALL SKPREC (MCBLT,1)\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      DO 80 J = 1,NROW\r\n      IBLK(8) = -1\r\n   30 CALL GETSTR (*70,IBLK(1))\r\n      JI   = IBLK(5)\r\n      NTMS = IBLK(6)\r\n      IK   = IBLK(4)\r\n      IF (IK .NE. J) GO TO 40\r\n      NTMS = NTMS - 1\r\n      XLJJ = XL(JI)\r\n      JI   = JI + 1\r\n      IK   = IK + 1\r\n   40 IF (NTMS .EQ. 0) GO TO 60\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 60\r\n      DO 50 II = 1,NTMS\r\n      V3(IK) = V3(IK) + XL(JI)*V3J\r\n      IK   = IK + 1\r\n      JI   = JI + 1\r\n   50 CONTINUE\r\n   60 CALL ENDGET (IBLK(1))\r\n      GO TO 30\r\n   70 V3(J)= V3(J)/XLJJ\r\n   80 CONTINUE\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      J    = NROW\r\n   90 IBLK(8) = -1\r\n  100 CALL GETSTB (*130,IBLK(1))\r\n      NTMS = IBLK(6)\r\n      JI   = IBLK(5)\r\n      IK   = IBLK(4)\r\n      IF (IK-NTMS+1 .EQ. J) NTMS = NTMS - 1\r\n      IF (NTMS .EQ. 0) GO TO 120\r\n      SUM  = ZERO\r\n      DO 110 II = 1,NTMS\r\n      SUM  = SUM + XL(JI)*V3(IK)\r\n      JI   = JI - 1\r\n      IK   = IK - 1\r\n  110 CONTINUE\r\n      V3(J)= V3(J) + SUM\r\n  120 CALL ENDGTB (IBLK(1))\r\n      GO TO 100\r\n  130 IF (J .EQ. 1) GO TO 500\r\n      J    = J - 1\r\n      GO TO 90\r\nC\r\nC     NEW METHOD\r\nC\r\nC     THE MCBLT MATRIX HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD\r\nC     BY UNPSCR IN FEER3. NO STRING OPERATION HERE\r\nC\r\n  200 IF (NAM(3) .EQ. NAM(5)) NAM(3) = NAM(6)\r\n      IF (L16 .NE. 0) CALL CONMSG (NAM,3,0)\r\n      MCBLTX =-MCBLT(7)\r\n      IF (MOD(MCBLT(4),10) .NE. 2) GO TO 440\r\n      NREC = 0\r\n      CALL REWIND (MCBLTX)\r\n      CALL FWDREC (*400,MCBLTX)\r\n      NWDS = MCBLT(5)\r\nC\r\nC     IZ(1)                                                     GINO\r\nC      / V1   V2    V3          VB (OPEN CORE LENGTH = NZVB)   BUFFERS\r\nC     +-----+-----+-----+-----+-------------------------------+--------\r\nC                         OPEN  CORE\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON V3\r\nC\r\n      LL2  = 0\r\n      BASE = 1\r\n      IFB  = +450\r\n      DO 270 J = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 240\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\nC 210 FORMAT ('  ...READING RECORD',I5,'.   IFB =',I5)\r\n      CALL READ (*400,*220,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n  220 LL2  = LL/NWDS\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\nC 230 FORMAT (5X,I10,' WORDS READ FROM RECORD',I5,'.   LL2 =',I8)\r\n      BASE = 1\r\n  240 XLJJ = VB(BASE)\r\n      II   = LJJ(1)\r\n      JJ   = LJJ(2)\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\nC 250 FORMAT (11X,'J,BASE,II,JJ,IFB =',5I8)\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 2\r\n      IE   = BASE + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 270\r\n      V3J  = V3(J)\r\n      IF (V3J .EQ. ZERO) GO TO 270\r\n      DO 260 I = IB,IE\r\n      II   = II + 1\r\n  260 V3(II) = V3(II) + VB(I)*V3J\r\n  270 V3(J)= V3(J)/VB(IB-1)\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      IF (NROW .EQ. 1) GO TO 500\r\n      NREC = 0\r\n      LL2  = 0\r\n      BASE = 1\r\n      J    = NROW\r\n      IFB  = -490\r\n      DO 310 JX = 1,NROW\r\n      IF (BASE .LT. LL2) GO TO 290\r\n      NREC = NREC + 1\r\nCDB   IF (DEBUG) WRITE (IO,210) NREC,IFB\r\n      CALL READ (*400,*280,MCBLTX,VB,NZVB,1,LL)\r\n      CALL MESAGE (-8,0,NAM)\r\n  280 LL2  = LL/NWDS\r\nCDB   LL3  = LL2/30\r\nC     LL4  = LL2 - LL3\r\nC     IF (DEBUG) WRITE (IO,230) LL,NREC,LL2\r\n      BASE = 1\r\n  290 XLJJ = VB(BASE)\r\n      II   = LJJ(1)\r\n      JJ   = LJJ(2)\r\nCDB   IF (DEBUG .AND. (BASE.LT.LL3 .OR. BASE.GT.LL4))\r\nC    1    WRITE (IO,250) J,BASE,II,JJ,IFB\r\n      IF (II .NE. J) GO TO 420\r\n      NTMS = JJ - II + 1\r\n      IB   = BASE + 2\r\n      IE   = BASE + NTMS\r\n      BASE = IE + 1\r\n      IF (NTMS .LE. 1) GO TO 310\r\n      SUM  = ZERO\r\n      DO 300 I = IB,IE\r\n      II   = II + 1\r\n  300 SUM  = SUM + VB(I)*V3(II)\r\n      V3(J)= V3(J) + SUM\r\n  310 J    = J - 1\r\n      GO TO 500\r\nC\r\nC     ERROR\r\nC\r\n  400 I = MCBLT(4)/10\r\n      WRITE  (IO,410) NREC,J,I,IFB\r\n  410 FORMAT ('0*** TRY TO READ RECORD',I5,'.  J,MCBLT(4),IFB =',I7,2I5)\r\n      CALL MESAGE (-2,MCBLTX,NAM)\r\n  420 WRITE  (IO,430) IFB,II,J\r\n  430 FORMAT ('0*** ERROR.   IFB),II,J =',I5,1H),2I8)\r\n      GO TO 460\r\n  440 J = MOD(MCBLT(4),10)\r\n      WRITE  (IO,450) J\r\n  450 FORMAT ('0*** MCBLT MATRIX IN WRONG FORM.  UNPSCR FLAG =',I3)\r\n  460 CALL MESAGE (-37,0,NAM)\r\nC\r\n  500 NAM(3) = NAM(5)\r\n      IF (L16 .NE. 0) CALL CONMSG (NAM,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ftube.f",
    "content": "      SUBROUTINE FTUBE\r\nC\r\nC     THIS IS THE FLUID TUBE ELEMENT IN HEAT TRANSFER.\r\nC     IT COMPUTES AND OUTPUTS THE CONDUCTIVITY AND/OR CAPACITY MATRICES\r\nC     OF THE ELEMENT.\r\nC\r\nC     - SINGLE AND DOUBLE PRECISION VERSION -\r\nC\r\nC     EST ENTRY FOR -FTUBE- ELEMENT.\r\nC     ==============================\r\nC\r\nC     EST( 1) = ELEMENT ID\r\nC     EST( 2) = SIL-A\r\nC     EST( 3) = SIL-B\r\nC     EST( 4) = HEAT CAPACITY/UNIT VOLUME = RHO C\r\nC     EST( 5) = VOLUME FLOW RATE = VDOT         P\r\nC     EST( 6) = DIAMETER AT A\r\nC     EST( 7) = DIAMETER AT B = DIAMETER AT A IF NOT DEFINED.\r\nC     EST( 8) = CSID-A  NOT USED\r\nC     EST( 9) = XA\r\nC     EST(10) = YA\r\nC     EST(11) = ZA\r\nC     EST(12) = CSID-B  NOT USED\r\nC     EST(13) = XB\r\nC     EST(14) = YB\r\nC     EST(15) = ZB\r\nC     EST(16) = AVG TEMP OF ELEMENT.  NOT USED.\r\nC\r\nC\r\n      LOGICAL          HEAT     ,ERROR\r\n      INTEGER          DICT(7)  ,ESTID    ,IEST(1)\r\n      REAL             RK(4)    ,ID1      ,ID2      ,DICT5\r\n      DOUBLE PRECISION K(4)     ,LENGTH\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM\r\n      COMMON /SYSTEM/  SYSBUF   ,IOUTPT\r\n      COMMON /EMGPRM/  DUM15(15),KMB(3)   ,IPREC    ,ERROR    ,HEAT\r\n      COMMON /EMGDIC/  DMMM(4)  ,ESTID\r\n      COMMON /EMGEST/  EST(16)\r\n      COMMON /CONDAS/  PI\r\n      EQUIVALENCE      (IEST(1) , EST(1)) ,(RK(1)   , K(1))   ,\r\n     1                 (DICT(5) , DICT5 )\r\nC\r\n      IF (.NOT.HEAT) GO TO 240\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 2\r\n      DICT(4) = 1\r\n      DICT5   = 0.0\r\n      IF (KMB(1) .EQ. 0) GO TO 170\r\nC\r\nC     CONDUCTIVITY\r\nC\r\n      RHOCP = EST(4)\r\n      VDOT  = EST(5)\r\nC\r\nC     STORE CONDUCTIVITY BY COLUMNS\r\nC\r\n      K(1) = DBLE(RHOCP*VDOT)\r\nC\r\n      K(2) = -K(1)\r\n      K(3) = 0.0D0\r\n      K(4) = 0.0D0\r\nC\r\nC     OUTPUT VIA EMGOUT THE FULL MATRIX IN GLOBAL, UNSYMETRIC\r\nC\r\n      IFIL = 1\r\n      ISZE = 4\r\n      ASSIGN 170 TO IRTN\r\n      IF (IPREC .EQ. 2) GO TO 160\r\n  150 RK(1) = SNGL(K(1))\r\n      RK(2) = SNGL(K(2))\r\n      RK(3) = SNGL(K(3))\r\n      RK(4) = SNGL(K(4))\r\n  160 CALL EMGOUT (RK(1),K(1),ISZE,1,DICT,IFIL,IPREC)\r\n      GO TO IRTN, (170,240)\r\nC\r\nC     CAPACITY MATRIX\r\nC\r\n  170 IF (KMB(3) .EQ. 0) GO TO 240\r\n      RHOCP = EST( 4)\r\n      VDOT  = EST( 5)\r\n      ID1   = EST( 6)\r\n      IF (EST(7)) 190,180,190\r\n  180 ID2 = ID1\r\n      GO TO 200\r\n  190 ID2   = EST( 7)\r\n  200 XA    = EST( 9)\r\n      YA    = EST(10)\r\n      ZA    = EST(11)\r\n      XB    = EST(13)\r\n      YB    = EST(14)\r\n      ZB    = EST(15)\r\n      LENGTH = DBLE((XB-XA))**2 + DBLE((YB-YA))**2 + DBLE((ZB-ZA))**2\r\n      IF (LENGTH .GT. 0.0D0) GO TO 220\r\n      LENGTH = DSQRT(LENGTH)\r\n      WRITE  (IOUTPT,210) UIM,IEST(1)\r\n  210 FORMAT (A29,' FROM ELEMENT FTUBE -', /5X,'ELEMENT WITH ID =',I9,\r\n     1       ' HAS A ZERO LENGTH.')\r\n      ERROR = .TRUE.\r\nC\r\nC     FILL AND OUTPUT CAPACITY MATRIX BY COLUMNS IN GLOBAL, SYMMETRIC.\r\nC\r\n  220 K(1) = (DBLE(RHOCP*PI*(ID1+ID2)))**2*LENGTH/32.0D0\r\n      K(2) = 0.0D0\r\n      K(3) = 0.0D0\r\n      K(4) = K(1)\r\n      DICT(2) = 2\r\n      IFIL = 3\r\n      ISZE = 2\r\n      ASSIGN 240 TO IRTN\r\n      IF (IPREC-1) 240,150,160\r\nC\r\n  240 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs1a.f",
    "content": "      SUBROUTINE FVRS1A (BASE,BASE1,Z,W,BUF,INDEX,MODFRL,BASEXG,NROW,\r\n     1                   NF,NFX,FKMAX,OMEGA)\r\nC\r\n      LOGICAL MODFRL\r\nC\r\n      INTEGER BASEXG,FKMAX\r\nC\r\n      COMPLEX BASE(3,NFX),Z(NROW),BASE1(3,NFX)\r\nC\r\n      DIMENSION MCB(7),BUF(1),W(NF),INDEX(1)\r\nC\r\n      COMMON /PACKX/ IN,IOUT,NS,NL,INCR\r\nC\r\nC-----------------------------------------------------------------------\r\nC     COMPUTE NUMBER OF GRID POINTS (SCALAR POINTS ARE NOT ALLOWED).\r\nC-----------------------------------------------------------------------\r\n      NPTS=NROW/6\r\nC-----------------------------------------------------------------------\r\nC     GENERATE BASE TABLE\r\nC----------------------------------------------------------------------\r\n      IF (MODFRL) GO TO 100\r\n      CALL FVRS1B(BASE,W,NF)\r\n      GO TO 135\r\n 100  CALL FVRS1C(BASE,W,OMEGA,NF)\r\n 135  CONTINUE\r\nC---------------------------------------------------------------------\r\nC     SORT BASE BY INDEX TO MAKE IT COMPATIBLE TO FRLX\r\n      IF (.NOT. MODFRL) GO TO 137\r\n      CALL FVRS1D(BASE,BASE1,INDEX,NFX)\r\n 137  CONTINUE\r\nC---------------------------------------------------------------------\r\nC     PREPARE TO OUTPUT BASEXG\r\nC----------------------------------------------------------------------\r\n      CALL GOPEN(BASEXG,BUF,1)\r\nC-------------------------------\r\nC     DEFINE MCB\r\n      MCB(1)=BASEXG\r\n      MCB(2)=0\r\n      MCB(3)=NROW\r\n      MCB(4)=2\r\n      MCB(5)=3\r\n      MCB(6)=0\r\n      MCB(7)=0\r\nC-------------------------------\r\nC     DEFINE PACKING CONSTANTS\r\n      IN=3\r\n      IOUT=3\r\n      NS=1\r\n      NL=NROW\r\n      INCR=1\r\nC-----------------------------------------------------------------------\r\nC     GENERATE AND PACK 1ST NF COLUMNS OF BASEXG\r\nC     BASEXG-1\r\nC     ZERO OUT COLUMN\r\n      DO 140 I=1,NROW\r\n 140  Z(I)=(0.0,0.0)\r\n      DO 160 I=1,NFX\r\n      L=1\r\n      DO 143 K=1,NPTS\r\n      Z(L)=BASE(1,I)\r\n      L=L+6\r\n 143  CONTINUE\r\n      CALL PACK(Z,BASEXG,MCB)\r\n 160  CONTINUE\r\n      IF(FKMAX.LT.2)GO TO 500\r\nC----------------------------------------------------------------------\r\nC     GENERATE AND PACK 2ND NF COLUMNS OF BASEXG\r\nC     BASEXG-2\r\nC     ZERO COLUMN\r\n      DO 240 I=1,NROW\r\n      Z(I)=(0.0,0.0)\r\n 240  CONTINUE\r\n      DO 260 I=1,NFX\r\n      L=1\r\n      DO 243 K=1,NPTS\r\n      Z(L+1)=BASE(2,I)\r\n      Z(L+2)=BASE(3,I)\r\n      L=L+6\r\n 243  CONTINUE\r\n      CALL PACK(Z,BASEXG,MCB)\r\n 260  CONTINUE\r\n      IF(FKMAX.LT.3) GO TO 500\r\nC----------------------------------------------------------------------\r\nC     GENERATE AND PACK 3RD NF COLUMNS OF BASEXG\r\nC     BASEXG-3\r\n      DO 360 I=1,NFX\r\n      L=1\r\n      DO 343 K=1,NPTS\r\n      Z(L+1)=BASE(3,I)\r\n      Z(L+2)=-BASE(2,I)\r\n      L=L+6\r\n 343  CONTINUE\r\n      CALL PACK(Z,BASEXG,MCB)\r\n 360  CONTINUE\r\nC-----------------------------------------------------------------------\r\nC     GENERATE 4TH THRU FKMAX NF COLUMN GROUPS-(NULL)INTO BASEXG\r\n      IF(FKMAX.LT.4)GO TO 500\r\n      NS=1\r\n      NL=1\r\n      Z(1)=(0.0,0.0)\r\n      DO 400 I=4,FKMAX\r\n      DO 390 K=1,NFX\r\n      CALL PACK(Z,BASEXG,MCB)\r\n 390  CONTINUE\r\n 400  CONTINUE\r\nC----------------------------------------------------------------------\r\nC     CLOSE OUTPUT DATA BLOCK\r\n 500  CALL CLOSE(BASEXG,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs1b.f",
    "content": "      SUBROUTINE FVRS1B (BASE,W1,NF)\r\nC\r\nC     SUBROUTINE TO COMPUTE BASE(FI)(3X1) FOR MODFRL=FALSE\r\nC\r\n      COMPLEX BASE(3,NF),Z1,P\r\nC\r\n      DIMENSION W1(NF)\r\nC\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PIQ\r\n      COMMON /BLANK / DUM(5),IT(6),DUM1(3)\r\nC\r\n      DO 110 K=1,NF\r\n      F=W1(K)/TWOPI\r\n      LT=1\r\n      LP=2\r\n      DO 100 I=1,3\r\n      IF(IT(LT).EQ.-1)GO TO 90\r\n      CALL TAB(IT(LT),F,XO)\r\n      IF(IT(LP).EQ.-1)GO TO 40\r\n      CALL TAB(IT(LP),F,PHI)\r\n      RAD=PHI*DEGRA\r\n      Z1=CMPLX(0.0,RAD)\r\n      P=CEXP(Z1)\r\n      GO TO 50\r\n  40  P=(1.0,0.0)\r\n  50  BASE(I,K)=XO*P\r\n      GO TO 95\r\n  90  BASE(I,K)=(0.0,0.0)\r\n  95  LT=LT+2\r\n      LP=LP+2\r\n 100  CONTINUE\r\n 110  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs1c.f",
    "content": "      SUBROUTINE FVRS1C (Z,W1,OMEGA,NF)\r\nC----------------------------------------------------------------------\r\n      COMPLEX Z(3,NF),P,Z1,PY1A,PY1B,PZ1A,PZ1B,PY2A,PY2B,PZ2A,PZ2B\r\nC\r\n      DIMENSION W1(NF)\r\nC\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PIQ\r\n      COMMON /BLANK / DUM(5),IXT,IXP,IYT,IYP,IZT,IZP,DUM1(3)\r\nC----------------------------------------------------------------------\r\n      LL=1\r\n      DO 400 KKK=1,NF\r\n      IF(W1(KKK).EQ.0.0)GO TO 30\r\n      A=1.0\r\n      IF(W1(KKK)-OMEGA.LT.0.0)A=-1.0\r\n      B=1.0\r\n      IF(W1(KKK)+OMEGA.LT.0.0)B=-1.0\r\nC\r\nC     COMPUTE BASE(FI)(3X3)  IF W.NE.0--MODFRL=TRUE\r\nC\r\nC     ZERO OUT MATRIX\r\nC\r\n      KK=LL+2\r\n      DO 1 I=1,3\r\n      DO 1 J=LL,KK\r\n  1   Z(I,J)=(0.0,0.0)\r\n      F=W1(KKK)/TWOPI\r\n      IF(IXT.EQ.-1) GO TO 9\r\n      CALL TAB(IXT,F,XO)\r\n      IF(IXP.EQ.-1)GO TO 4\r\n      CALL TAB(IXP,F,PHI)\r\n      RAD=PHI*DEGRA\r\n      Z1=CMPLX(0.0,RAD)\r\n      P=CEXP(Z1)\r\n      GO TO 5\r\n 4    P=(1.0,0.0)\r\n 5    Z(1,LL+1)=XO*P\r\n 9    IF(IYT.EQ.-1)GO TO 11\r\n      CALL TAB(IYT,F,YO)\r\n      GO TO 12\r\n 11   YO=0.0\r\n 12   IF(IZT.EQ.-1)GO TO 13\r\n      CALL TAB(IZT,F,ZO)\r\n      GO TO 14\r\n 13   ZO=0.0\r\n 14   IF(IYP.EQ.-1)GO TO 15\r\n      CALL TAB(IYP,F,PHI)\r\n      GO TO 16\r\n 15   PHI=0.0\r\n 16   RAD=PHI*DEGRA\r\n      Z1=CMPLX(0.0,RAD)\r\n      PY1A=CEXP(A*Z1)\r\n      PY1B=CEXP(B*Z1)\r\n      Z1=CMPLX(0.0,RAD-0.5*PI*A)\r\n      PY2A=CEXP(A*Z1)\r\n      Z1=CMPLX(0.0,RAD-0.5*PI*B)\r\n      PY2B=CEXP(B*Z1)\r\n      IF(IZP.EQ.-1)GO TO 17\r\n      CALL TAB(IZP,F,PHI)\r\n      GO TO 18\r\n 17   PHI=0.0\r\n 18   RAD=PHI*DEGRA\r\n      Z1=CMPLX(0.0,RAD)\r\n      PZ1A=CEXP(A*Z1)\r\n      PZ1B=CEXP(B*Z1)\r\n      Z1=CMPLX(0.0,RAD-0.5*PI*A)\r\n      PZ2A=CEXP(A*Z1)\r\n      Z1=CMPLX(0.0,RAD-0.5*PI*B)\r\n      PZ2B=CEXP(B*Z1)\r\n      Z(2,LL)=(YO*PY1A-A*ZO*PZ2A)*0.5\r\n      Z(3,LL)=(A*YO*PY2A+ZO*PZ1A)*0.5\r\n      Z(2,LL+2)=(YO*PY1B+B*ZO*PZ2B)*0.5\r\n      Z(3,LL+2)=(-B*YO*PY2B+ZO*PZ1B)*0.5\r\n      LL=LL+3\r\n      GO TO 400\r\n 30   CONTINUE\r\nC\r\nC     COMPUTE BASE(FI)(3X2) IF W1=0.0, FOR MODFRL=TRUE\r\nC\r\n      A=1.0\r\n      IF(OMEGA.LT.0.0)A=-1.0\r\nC------ZERO OUT MATRIX(3X2)\r\n      KK=LL+1\r\n      DO 32 I=1,3\r\n      DO 32 J=LL,KK\r\n 32   Z(I,J)=(0.0,0.0)\r\n      F=W1(KKK)/TWOPI\r\n      IF(IXT.EQ.-1)GO TO 90\r\n      CALL TAB(IXT,F,XO)\r\n      IF(IXP.EQ.-1)GO TO 40\r\n      CALL TAB(IXP,F,PHI)\r\n      RAD=PHI*DEGRA\r\n      Z1=CMPLX(0.0,RAD)\r\n      P=CEXP(Z1)\r\n      GO TO 50\r\n 40   P=(1.0,0.0)\r\n 50   Z(1,LL)=XO*P\r\n      GO TO 100\r\n 90   Z(1,LL)=(0.0,0.0)\r\n 100  IF(IYT.EQ.-1)GO TO 190\r\n      CALL TAB(IYT,F,YO)\r\n      IF(IYP.EQ.-1) GO TO 140\r\n      CALL TAB(IYP,F,PHI)\r\n      RAD=PHI*DEGRA\r\n      CY=COS(RAD)\r\n      GO TO 150\r\n 140  CY=1.0\r\n 150  YY=YO*CY\r\n      GO TO 200\r\n 190  YY=0.0\r\n 200  IF(IZT.EQ.-1)GO TO 290\r\n      CALL TAB(IZT,F,ZO)\r\n      IF(IZP.EQ.-1) GO TO 240\r\n      CALL TAB(IZP,F,PHI)\r\n      RAD=PHI*DEGRA\r\n      CZ=COS(RAD)\r\n      GO TO 250\r\n 240  CZ=1.0\r\n 250  ZZ=ZO*CZ\r\n      GO TO 300\r\n 290  ZZ=0.0\r\n 300  Z(2,KK)=YY-A*CMPLX(0.0,ZZ)\r\n      Z(3,KK)=ZZ+A*CMPLX(0.0,YY)\r\n      LL=LL+2\r\n 400  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs1d.f",
    "content": "      SUBROUTINE FVRS1D (BASE,BASE1,INDEX,NFX)\r\nC\r\n      COMPLEX BASE(3,NFX),BASE1(3,NFX)\r\nC\r\n      DIMENSION INDEX(NFX)\r\nC\r\n      DO 100 I=1,NFX\r\n      LOC =INDEX(I)\r\n      DO 10 L=1,3\r\n  10  BASE1(L,I)=BASE(L,LOC)\r\n 100  CONTINUE\r\nC\r\nC-----RETURN BASE1 TO BASE\r\nC\r\n      DO 200 I=1,NFX\r\n      DO 110 L=1,3\r\n 110  BASE(L,I)=BASE1(L,I)\r\n 200  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs1e.f",
    "content": "      SUBROUTINE FVRS1E (A,K,N)\r\nC\r\nC     PURPOSE\r\nC       TO SORT THE ELEMENTS OF A REAL*4 VECTOR, A, INTO ASCENDING\r\nC       ORDER AND TO CONSTRUCT AN INTEGER*4 VECTOR, K, WHICH INDICATES\r\nC       HOW THE ELEMENTS OF A HAVE BEEN REARRANGED.\r\nC\r\nC     USAGE\r\nC       CALL FVRS1E(A,K,N)\r\nC\r\nC     DESCRIPTION OF PARAMETERS\r\nC       A - REAL*4 VECTOR.\r\nC              ON INPUT - A CONTAINS THE NUMBERS TO BE SORTED.\r\nC              ON OUTPUT- A CONTAINS THE NUMBERS IN ASCENDING ORDER.\r\nC       K - OUTPUT VECTOR CONTAINING INTERCHANGE INFORMATION, I.E.,\r\nC           THE NUMBER IN A(K(I)) (OF THE INPUT A) HAS BEEN MOVED TO\r\nC           A(I).\r\nC       N - LENGTH OF A AND K.\r\nC\r\nC     SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED\r\nC       NONE\r\nC\r\nC     REMARKS\r\nC       THE K-VECTOR CAN BE USED IN CONJUNCTION WITH SUBROUTINE FVRS1E\r\nC       TO REARRANGE OTHER VECTORS IN THE SAME WAY THAT THE A-VECTOR\r\nC       HAS BEEN REARRANGED.\r\nC\r\nC     METHOD\r\nC       THIS ROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE,\r\nC       'SHELLSORT', ALGORITHM 201, 'COLLECTED ALGORITHMS FROM CACM',\r\nC       BY J. BOOTHROYD.\r\nC\r\n      DIMENSION A(1),K(1)\r\nC\r\n      DO 17 IKL =1,N\r\n   17 K(IKL) = IKL\r\n      I = 1\r\n    1 I = I+I\r\n      IF(I-N)1,2,7\r\n    7 I = I/2\r\n    2 CONTINUE\r\n      M = 2*I-1\r\n    5 CONTINUE\r\n      M = M/2\r\n      K1 = N-M\r\n      DO 6 J=1,K1\r\n      I = J\r\n    3 IPM = I+M\r\n      AIPM = A(IPM)\r\n      IF(AIPM.GE.A(I)) GO TO 4\r\n      W = A(I)\r\n      KW = K(I)\r\n      A(I) = AIPM\r\n      K(I) = K(IPM)\r\n      A(IPM) = W\r\n      K(IPM) = KW\r\n      I = I-M\r\n      IF(I.GE.1) GO TO 3\r\n    4 CONTINUE\r\n    6 CONTINUE\r\n      IF(M.GT.1) GO TO 5\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrs2a.f",
    "content": "      SUBROUTINE FVRS2A (FILE,KK1,KK2,NORO,BUFFER)\r\nC\r\nC     GENERATE COLUMN REORDERING MATRIX. THIS MATRIX WILL REORDER\r\nC     COLUMNS OF A MATRIX BY POST-MULTIPLYING THE MATRIX WHOSE\r\nC     COLUMNS ARE TO BE REORDERED BY THE REORDERING MATRIX.\r\nC\r\nC     THE MATRIX WILL BE A REAL SINGLE-PRECISION SQUARE MATRIX.\r\nC\r\n      INTEGER FILE,ROW,TRL(7),BUFFER(1),TYPIN,TYPOUT\r\nC\r\n      COMMON /PACKX/ TYPIN,TYPOUT,II,NN,INCR\r\nC\r\n      NORO = -1\r\n      IF(KK1.EQ.1 .OR. KK2.EQ.1) RETURN\r\nC\r\n      NORO = 1\r\nC\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      INCR   = 1\r\nC\r\n      TRL(1) = FILE\r\n      TRL(2) = 0\r\n      TRL(3) = KK1*KK2\r\n      TRL(4) = 1\r\n      TRL(5) = TYPOUT\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\nC\r\n      CALL GOPEN(FILE,BUFFER,1)\r\nC\r\n      VALUE = 1.0\r\nC\r\n      DO 20 K1 = 1,KK1\r\n      ROW = K1\r\n      DO 10 K2 = 1,KK2\r\nC\r\n      II = ROW\r\n      NN = ROW\r\n      CALL PACK(VALUE,FILE,TRL)\r\nC\r\n      ROW = ROW + KK1\r\nC\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      CALL CLOSE(FILE,1)\r\n      CALL WRTTRL(TRL)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrst1.f",
    "content": "      SUBROUTINE FVRST1\r\nC\r\nC\r\nC    1. ENTRY POINT - FVRST1\r\nC\r\nC    2. PURPOSE -  THIS MODULE IS USED FOR FORCED VIBRATION RESPONSE\r\nC                  ANALYSIS OF ROTATING CYCLIC STRUCTURES.\r\nC                  FVRSTR1 GENERATES DATA BLOCKS FRLX, B1GG, M1GG,\r\nC                  M2GG, BASEXG AND PDZERO. IT ALSO COMPUTES PARAMETERS\r\nC                  FKMAX AND NOBASEX.\r\nC\r\nC    3. DMAP CALLING SEQUENCE -\r\nC\r\nC         FVRSTR1  CASECC,BGPDT,CSTM,DIT,FRL,MGG,, / FRLX,B1GG,M1GG,\r\nC                  M2GG,BASEXG,PDZERO,, /V,N,NOMGG/V,Y,CYCIO/V,Y,NSEGS/\r\nC                  V,Y,KMAX/V,N,FKMAX/V,Y,BXTID=-1/V,Y,BXPTID=-1/\r\nC                  V,Y,BYTID=-1/V,Y,BYPTID=-1/V,Y,BZTID=-1/\r\nC                  V,Y,BZPTID=-1/V,N,NOBASEX/V,N,NOFREQ/V,N,OMEGA  $\r\nC\r\nC    4. INPUT DATA BLOCKS -\r\nC\r\nC         CASECC - CASE CONTROL\r\nC         BGPDT  - BASIC GRID POINT DEFINITION TABLE.\r\nC         CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRICES.\r\nC         DIT    - DIRECT INPUT TABLES.\r\nC         FRL    - FREQUENCY RESPONSE LIST. (FREQUENCIES IN RADIANS)\r\nC         MGG    - GLOBAL MASS MATRIX (G-SET).\r\nC\r\nC         NOTE   - (1) ALL INPUT DATA BLOCKS CAN BE PURGED IF ONLY\r\nC                      PARAMETERS FKMAX AND NOBASEX ARE TO BE COMPUTED.\r\nC                  (2) CASECC, DIT AND FRL CAN BE PURGED IF FRLX AND\r\nC                      BASEXG ARE PURGED.\r\nC\r\nC    5. OUTPUT DATA BLOCKS -\r\nC\r\nC         FRLX    - FREQUENCY RESPONSE LIST (MODIFIED).\r\nC         B1GG    - CORIOLIS ACCELERATION COEFFICIENT MATRIX (G-SET).\r\nC         M1GG    - CENTRIPETAL ACCELERATION COEFFICIENT MATRIX (G-SET).\r\nC         M2GG    - BASE ACCELERATION COEFFICIENT MATRIX (G-SET).\r\nC         BASEXG  - BASE ACCELERATION MATRIX (G-SET).\r\nC         PDZERO  - LOAD MODIFICATION MATRIX IN BASE ACCELERATION\r\nC                   PROBLEMS.\r\nC\r\nC         NOTE    - (1) ALL OUTPUT DATA BLOCKS CAN BE PURGED IF\r\nC                       PARAMETER NOMGG =-1.\r\nC                   (2) B1GG AND M1GG CAN BE PURGED IF NOMGG =-1 OR\r\nC                       IF OMEGA = 0.0.\r\nC                   (3) FRLX AND PDZERO CAN BE PURGED IF OMEGA = 0.0.\r\nC                   (4) FRLX, PDZERO, M2GG AND BASEXG CAN BE PURGED\r\nC                       IF NOMGG =-1 OR NOFREQ =-1 OR CYCIO =+1 OR IF\r\nC                       ALL PARAMETERS BXTID = BXPTID = BYTID =-1.\r\nC\r\nC    6. PARAMETERS -\r\nC\r\nC        (A) NOMGG   - INPUT-INTEGER-NO DEFAULT.  MASS MATRIX WAS NOT\r\nC                      GENERATED IF NOMGG =-1.\r\nC        (B) CYCIO   - INPUT-INTEGER-NO DEFAULT.  THE INTEGER VALUE\r\nC                      OF THIS PARAMETER SPECIFIES THE FORM OF THE INPUT\r\nC                      AND OUTPUT DATA FOR CYCLIC STRUCTURES. A VALUE\r\nC                      OF +1 IS USED TO SPECIFY PHYSICAL SEGMENT REPRE-\r\nC                      SENTATION AND A VALUE OF -1 FOR CYCLIC TRANSFOR-\r\nC                      MATION REPRESENTATION.\r\nC        (C) NSEGS   - INPUT-INTEGER-NO DEFAULT.  THE NUMBER OF\r\nC                      IDENTICAL SEGMENTS IN THE STRUCTURAL MODEL.\r\nC        (D) KMAX    - INPUT-INTEGER-NO DEFAULT.  THE INTEGER VALUE\r\nC                      OF THIS PARAMETER SPECIFIES THE MAXIMUM VALUE\r\nC                      OF THE HARMONIC INDEX.THE MAXIMUM VALUE OF\r\nC                      KMAX IS NSEGS/2.\r\nC        (E) FKMAX   - OUTPUT-INTEGER-NO DEFAULT.  FUNCTION OF KMAX.\r\nC        (F) BXTID   - INPUT -INTEGER-DEFAULTS.  THE VALUES OF THESE\r\nC        (G) BYTID     PARAMETERS DEFINE THE SET IDENTIFICATION NUMBERS\r\nC        (H) BZTID     OF THE TABLEDI BULK DATA CARDS WHICH DEFINE THE\r\nC        (I) BXPTID    COMPONENTS OF THE BASE ACCELERATION VECTOR. THE\r\nC        (J) BYPTID    TABLES REFERED TO BY BXTID, BYTID AND BZTID\r\nC        (K) BZPTID    DEFINE MAGNITUDE(LT-2) AND THE TABLES REFERED TO\r\nC                      BY BXPTID, BYPTID AND BZPTID DEFINE PHASE(DEGREE)\r\nC                      THE DEFAULT VALUES ARE -1 WHICH MEANS THAT THE\r\nC                      RESPECTIVE TERMS ARE IGNORED.\r\nC        (L) NOBASEX - OUTPUT-INTEGER-NO DEFAULT.  NOBASEX =-1 IF DATA\r\nC                      BLOCK BASEXG IS NOT GENERATED.\r\nC        (M) NOFREQ  - INPUT-INTEGER-NO DEFAULT. NOFREQ =-1 IF FREQUENCY\r\nC                      WAS NOT SELECTED IN THE CASE CONTROL DECK.\r\nC        (N) OMEGA   - INPUT-REAL-NO DEFAULT.  ROTATIONAL SPEED OF THE\r\nC                      STRUCTURE IN RADIANS. OMEGA = 2*PI*RPS.\r\nC\r\nC    7. METHOD -  SEE FUNCTIONAL MODULE DESCRIPTION.\r\nC\r\nC    8. SUBROUTINES - FVRST1 CALLS ROUTINES FVRS1A, FVRS1B, FVRS1C,\r\nC                     FVRS1D, FVRS1E, GMMATD, PRETRD, TRANSD, PRETAB,\r\nC                     TAB AND OTHER STANDARD NASTRAN UTILITY ROUTINES.\r\nC                     GINO ROUTINES.\r\nC\r\nC    9. DESIGN REQUIREMENTS -\r\nC\r\nC         (1) OPEN CORE IS DEFINED AT /ZZFVR1/.\r\nC         (2) NO SCRATCH FILES ARE USED.\r\nC         (3) FVRST1 RESIDES IN LINKNS07\r\nC         (4) OPEN CORE FOR 5 BUFFERS PLUS 14*NCSTM  PLUS NTYPE*NROW OF\r\nC             MGG IS REQUIRED.\r\nC\r\nC          NOTE - (1) NTYPE = 1 IF MGG IS REAL SP\r\nC                     NTYPE = 2 IF MGG IS REAL DP\r\nC\r\nC   10. DIAGNOSTIC MESSAGES -\r\nC\r\nC         THE FOLLOWING MESSAGES MAY BE ISSUED - 3001,3002,3003,3008\r\nC                                                AND 3031.\r\nC\r\nC\r\n      LOGICAL         MODFRL\r\n      INTEGER         CASECC,BGPDT,CSTM,DIT,FRL,FRLX,B1GG,BASEXG,PDZERO,\r\n     1                CYCIO,FKMAX,BXTID,BXPTID,BYTID,BYPTID,BZTID,\r\n     2                BZPTID,ITLIST(13),ITID(6),FRQSET,CASE(14)\r\n      DOUBLE PRECISION Z,A(3,3),B(3,3),C(3,3),ROW(3),TA(3,3),AVGM,\r\n     1                DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ\r\n      DIMENSION       MCBB1(7),MCBM1(7),MCBM2(7),MCB(7),COORD(4),\r\n     1                MODNAM(3),ZS(1),IZ(1),MCB1(7),MCB2(7),ROW2(3)\r\n      COMMON /BLANK / NOMGG,CYCIO,NSEGS,KMAX,FKMAX,BXTID,BXPTID,\r\n     1                BYTID,BYPTID,BZTID,BZPTID,NOBASX,NOFREQ,OMEGA\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ NBUF,NOUT,NERR\r\n      COMMON /UNPAKX/ IN1,NF1,NL1,INCR\r\n      COMMON /PACKX / IN,IOUT,NF,NL,INCR1\r\n      COMMON /CONDAD/ DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ\r\n      EQUIVALENCE     (COORD(1),NCRD),(Z(1),ZS(1)),(Z(1),IZ(1)),\r\n     1                (MCB(1),MCB1(1)),(MCBM1(1),MCB2(1)),\r\n     2                (ITID(1),BXTID)\r\n      DATA    CASECC, BGPDT, CSTM, DIT, FRL, MGG     /\r\n     1        101,    102,   103,  104, 105, 106     /\r\n      DATA    FRLX, B1GG, M1GG, M2GG, BASEXG, PDZERO /\r\n     1        201,  202,  203,  204,  205   , 206    /\r\n      DATA    MODNAM / 4HFRL ,  4HFVRS,4HTR1         /\r\n      DATA    ITLIST / 4,  1105,11,1, 1205,12,2, 1305,13,3, 1405,14,4 /\r\nC     LOCATE  CODES FOR -  TABLED1    TABLED2    TABLED3    TABLED4\r\nC\r\nC     CALCULATE PARAMETERS\r\nC\r\nC     TEST TO SEE IF BASEXG IS TO BE GENERATED.\r\nC\r\n      NOBASX = -1\r\n      IF (NOMGG.EQ.-1 .OR.  CYCIO.NE.-1 .OR. NOFREQ.EQ.-1) GO TO 10\r\n      IF (BXTID.EQ.-1 .AND. BYTID.EQ.-1 .AND. BZTID.EQ.-1) GO TO 10\r\n      NOBASX =  1\r\n  10  CONTINUE\r\nC\r\n      IF (CYCIO .NE. -1) GO TO 25\r\nC\r\nC     DETERMINE FKMAX\r\nC\r\n      IF (MOD(NSEGS,2) .NE. 0) GO TO 23\r\n      IF (KMAX .EQ. NSEGS/2) GO TO 24\r\n  23  FKMAX = 2*KMAX + 1\r\n      GO TO 25\r\n  24  FKMAX = NSEGS\r\nC\r\nC     TEST TO SEE IF ANY DATA BLOCKS ARE TO BE GENERATED.\r\nC\r\n  25  IF (NOMGG .EQ. -1) GO TO 1000\r\n      IF (OMEGA.EQ.0.0 .AND. (CYCIO.NE.-1 .OR. NOFREQ.EQ.-1) .AND.\r\n     1   (BXTID.EQ.-1 .AND. BYTID.EQ.-1 .AND. BZTID.EQ.-1)) GO TO 1000\r\nC\r\nC     TEST TRAILER OF MGG TO SEE IF PURGED\r\nC\r\n      MCB(1) = MGG\r\n      CALL RDTRL (MCB)\r\n      NFILE = MGG\r\n      IF (MCB(1) .LE. 0) GO TO 902\r\nC\r\nC     COLUMN COUNT FOR MGG READ CHECK\r\nC\r\n      NCOLC = MCB(2)\r\n      NROWC = MCB(3)\r\n      NFORM = MCB(4)\r\n      NTYPE = MCB(5)\r\nC\r\n      NZ = KORSZ(Z)\r\nC\r\nC     ALLOCATE BUFFERS\r\nC\r\nC     MGG,CSTM (IBUF1 IS NBUF+1 LONG)\r\nC\r\n      IBUF1 = NZ - NBUF\r\nC\r\nC     BGPDT\r\nC\r\n      IBUF2 = IBUF1 - NBUF\r\nC\r\nC     B1GG\r\nC\r\n      IBUF3 = IBUF2 - NBUF\r\nC\r\nC     M1GG\r\nC\r\n      IBUF4 = IBUF3 - NBUF\r\nC\r\nC     M2GG\r\nC\r\n      IBUF5 = IBUF4 - NBUF\r\n      IF (OMEGA .EQ. 0.0) IBUF5 = IBUF3\r\nC\r\nC     CALCULATE LENGTH OF OPEN CORE\r\nC\r\n      NZ = IBUF5 - 1\r\nC\r\nC     PROCESS CSTM DATA BLOCK\r\nC\r\n      NFILE  = CSTM\r\n      MCB(1) = CSTM\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 61\r\nC\r\nC     NO. OF COORDINATE SYSTEMS\r\nC\r\n      NCSYM = MCB(3)\r\n      LCSTM = 14*NCSYM\r\nC\r\nC     CSTM TABLE\r\nC\r\n      ICSTM = IBUF5 - LCSTM\r\n      NZ    = ICSTM - 1\r\nC\r\nC     CORE FOR ENOUGH CORE FOR CSTM\r\nC\r\n      IF (NZ .LT. 0) GO TO 901\r\nC\r\nC     CORE CHECK FULL COLUMN OF MGG READ ASSUMED\r\nC\r\n      IF (NZ-NTYPE*NROWC .LT. 0) GO TO 901\r\n      CALL GOPEN (CSTM,ZS(IBUF1),0)\r\n      CALL READ (*903,*904,CSTM,ZS(ICSTM),LCSTM,1,NWDS)\r\n      CALL PRETRD (ZS(ICSTM),LCSTM)\r\n      CALL CLOSE (CSTM,1)\r\n      GO TO 64\r\nC\r\nC     CORE CHECK NO CSTM\r\nC\r\n  61  IF (NZ-NTYPE*NROWC .LT. 0) GO TO 901\r\n  64  CONTINUE\r\nC\r\nC     BGPDT TABLE\r\nC\r\n      MCB(1) = BGPDT\r\n      CALL RDTRL (MCB)\r\n      NFILE = BGPDT\r\n      IF (MCB(1) .LE. 0) GO TO 902\r\nC\r\nC     NO. OF GRID POINTS AND SCALAR POINTS READ CHECK FOR BGPDT\r\nC\r\n      NGRID = MCB(2)\r\n      CALL GOPEN (BGPDT,ZS(IBUF2),0)\r\nC\r\nC     OPEN MGG AND OUTPUT MATRICES\r\nC\r\n      CALL GOPEN (MGG,ZS(IBUF1),0)\r\n      IF (OMEGA .EQ. 0.0) GO TO 65\r\n      CALL GOPEN (B1GG,ZS(IBUF3),1)\r\n      MCBB1(1) = B1GG\r\n      MCBB1(2) = 0\r\n      MCBB1(3) = NROWC\r\n      MCBB1(4) = 1\r\n      MCBB1(5) = NTYPE\r\n      MCBB1(6) = 0\r\n      MCBB1(7) = 0\r\n      CALL GOPEN (M1GG,ZS(IBUF4),1)\r\n      MCBM1(1) = M1GG\r\n      MCBM1(2) = 0\r\n      MCBM1(3) = NROWC\r\n      MCBM1(4) = NFORM\r\n      MCBM1(5) = NTYPE\r\n      MCBM1(6) = 0\r\n      MCBM1(7) = 0\r\n  65  IF (NOBASX .EQ. -1) GO TO 66\r\n      CALL GOPEN (M2GG,ZS(IBUF5),1)\r\n      MCBM2(1) = M2GG\r\n      MCBM2(2) = 0\r\n      MCBM2(3) = NROWC\r\n      MCBM2(4) = 1\r\n      MCBM2(5) = NTYPE\r\n      MCBM2(6) = 0\r\n      MCBM2(7) = 0\r\nC\r\nC     SET UP PACK AND UNPACK TERMS\r\nC\r\n  66  IN1  = NTYPE\r\n      IN   = 2\r\n      IOUT = NTYPE\r\n      INCR = 1\r\n      INCR1= 1\r\nC\r\nC     READ INTERNAL SORT BGPDT PICK UP CID,X,Y,Z\r\nC\r\n      NDOF = 0\r\n  70  CALL READ (*903,*800,BGPDT,COORD,4,0,M)\r\n      NDOF = NDOF + 1\r\n      IF (NCRD .NE. -1) GO TO 79\r\nC\r\nC     SCALAR POINT-UNPACK ONE COL OF MGG\r\nC     SAVE DIAGONAL TERM\r\nC\r\n      NF1  = 0\r\n      CALL UNPACK (*76,MGG,Z)\r\n      NROW = NDOF - NF1 + 1\r\n      NTERM= NL1 - NF1 + 1\r\n      IF (NROW.LT.1 .OR. NROW.GT.NTERM) GO TO 76\r\n      IF (NTYPE .EQ. 1) ROW(1) = ZS(NROW)\r\n      IF (NTYPE .EQ. 2) ROW(1) = Z(NROW)\r\n      NF = NDOF\r\n      NL = NDOF\r\n      GO TO 77\r\nC\r\nC     OUT OF RANGE OF NON-ZERO BAND\r\nC\r\n  76  ROW(1) = 0.0\r\n      NF = 1\r\n      NL = 1\r\nC\r\nC     NOW PUT DIAGONAL ELEMENT INTO OUTPUT MATRICES\r\nC\r\n  77  IF (OMEGA .EQ. 0.0) GO TO 78\r\n      CALL PACK (ROW,M1GG,MCBM1)\r\n      CALL PACK (ROW,B1GG,MCBB1)\r\n  78  IF (NOBASX .EQ. -1) GO TO 70\r\n      CALL PACK (ROW,M2GG,MCBM2)\r\n      GO TO 70\r\nC\r\nC     UNPACK 3 COL OF MGG AND SAVE DIAGONAL TERMS\r\nC\r\n  79  DO 80 I = 1,3\r\n      DO 80 J = 1,3\r\n  80  A(I,J) = 0.0\r\n      DO 100 I = 1,3\r\n      NF1 = 0\r\n      CALL UNPACK (*95,MGG,Z)\r\nC\r\nC     LOCATE DIAGONAL ELEMENT IN COL-NROW\r\nC\r\n      NROW  = NDOF - NF1 + I\r\n      NTERM = NL1  - NF1 + 1\r\n      IF (NROW.LT.1 .OR. NROW.GT.NTERM) GO TO 95\r\n      IF (NTYPE .EQ. 1) A(I,I) = ZS(NROW)\r\n      IF (NTYPE .EQ. 2) A(I,I) = Z(NROW)\r\n      GO TO 100\r\nC\r\nC     OUT OF RANGE OF NON-ZERO ELEMENT BAND\r\nC\r\n  95  A(I,I) = 0.0\r\n 100  CONTINUE\r\nC\r\nC     NOW TRANSFORM FROM LOCAL(GLOBAL) TO BASIC\r\nC\r\n      IF (NCRD .NE. 0) GO TO 150\r\nC\r\nC     ALREADY IN BASIC COORDINATES\r\nC\r\n      AVGM = (A(1,1) + A(2,2) + A(3,3))/3.0\r\n      GO TO 161\r\nC\r\nC     SELECT TRANSFORMATION MATRIX-TA\r\nC\r\n 150  CALL TRANSD (COORD,TA)\r\n      CALL GMMATD (TA,3,3,0,A,3,3,0,B)\r\n      CALL GMMATD (B,3,3,0,TA,3,3,1,C)\r\nC\r\nC     C-IS NOW IN BASIC COORDINATES-ROW,WISE\r\nC\r\n      AVGM = (C(1,1) + C(2,2) + C(3,3))/3.0\r\nC\r\n 161  IF (OMEGA .EQ. 0.0) GO TO 307\r\nC\r\nC     PROCESS M1GG\r\nC\r\n      DO 162 I = 1,3\r\n      DO 162 J = 1,3\r\n 162  A(I,J) = 0.0\r\n      A(2,2) = AVGM\r\n      A(3,3) = AVGM\r\n      IF (NCRD .NE. 0) GO TO 170\r\n      DO 165 I = 1,3\r\n      DO 165 J = 1,3\r\n 165  C(I,J) = A(I,J)\r\n      GO TO 180\r\nC\r\nC     TRANSFORM TO GLOBAL(LOCAL) FROM BASIC\r\nC\r\n 170  CALL GMMATD (TA,3,3,1,A,3,3,0,B)\r\n      CALL GMMATD (B,3,3,0,TA,3,3,0,C)\r\nC\r\nC     C- IS NOW M1-11 ROW WISE\r\nC\r\n 180  DO 200 I = 1,3\r\n      DO 190 K = 1,3\r\n 190  ROW(K) = C(I,K)\r\n      NF = NDOF\r\n      NL = NDOF + 2\r\n      CALL PACK (ROW,M1GG,MCBM1)\r\n 200  CONTINUE\r\nC\r\nC     WRITE OUT 3 NULL COLUMNS\r\nC\r\n      ROW(1) = 0.0\r\n      DO 205 K = 1,3\r\n      NF = 1\r\n      NL = 1\r\n      CALL PACK (ROW,M1GG,MCBM1)\r\n 205  CONTINUE\r\nC\r\nC     NOW TAKE CARE OF B1GG\r\nC\r\n      IF (NCRD .NE. 0) GO TO 240\r\n      DO 210 I = 1,3\r\n      DO 210 J = 1,3\r\n 210  C(I,J) = 0.0\r\n      C(3,2) =-AVGM\r\n      C(2,3) = AVGM\r\n      GO TO 250\r\n 240  DO 245 I = 1,3\r\n      DO245 J = 1,3\r\n 245  A(I,J) = 0.0\r\n      A(3,2) =-AVGM\r\n      A(2,3) = AVGM\r\nC\r\nC     TRANSFORM TO GLOBAL(LOCAL) FROM BASIC\r\nC\r\n      CALL GMMATD (TA,3,3,1,A,3,3,0,B)\r\n      CALL GMMATD (B,3,3,0,TA,3,3,0,C)\r\nC\r\nC     C-IS NOW B1-11 ROW WISE\r\nC\r\n 250  CONTINUE\r\n      DO 300 I = 1,3\r\n      DO 265 K = 1,3\r\n 265  ROW(K) = C(I,K)\r\n      NF = NDOF\r\n      NL = NDOF + 2\r\n      CALL PACK (ROW,B1GG,MCBB1)\r\n 300  CONTINUE\r\nC\r\nC     WRITE OUT 3 NULL COLUMNS\r\nC\r\n      ROW(1) = 0.0\r\n      DO 305 I = 1,3\r\n      NF = 1\r\n      NL = 1\r\n      CALL PACK (ROW,B1GG,MCBB1)\r\n 305  CONTINUE\r\n 307  IF (NOBASX .EQ. -1) GO TO 407\r\nC\r\nC     NOW PROCESS M2GG\r\nC\r\n      IF (NCRD .NE. 0) GOT O 340\r\n      DO 310 I = 1,3\r\n      DO 310 J = 1,3\r\n 310  C(I,J) = 0.0\r\n      C(1,1) = AVGM\r\n      C(2,2) = AVGM\r\n      C(3,3) = AVGM\r\n      C(3,2) = AVGM\r\n      C(2,3) =-AVGM\r\n      GO TO 350\r\n 340  DO 345 I = 1,3\r\n      DO 345 J = 1,3\r\n 345  A(I,J) = 0.0\r\n      A(1,1) = AVGM\r\n      A(2,2) = AVGM\r\n      A(3,3) = AVGM\r\n      A(3,2) = AVGM\r\n      A(2,3) =-AVGM\r\nC\r\nC     TRANSFORM TO GLOBAL(LOCAL) FROM BASIC\r\nC\r\n      CALL GMMATD (TA,3,3,1,A,3,3,0,C)\r\nC\r\nC     C-IS NOW M2-11 ROW WISE\r\nC\r\n 350  CONTINUE\r\n      DO 400 I = 1,3\r\n      DO 365 K = 1,3\r\n 365  ROW(K) = C(I,K)\r\n      NF = NDOF\r\n      NL = NDOF + 2\r\n      CALL PACK (ROW,M2GG,MCBM2)\r\n 400  CONTINUE\r\nC\r\nC     WRITE OUT 3 NULL COLUMNS\r\nC\r\n      ROW(1) = 0.0\r\n      DO 405 I = 1,3\r\n      NF = 1\r\n      NL = 1\r\n      CALL PACK (ROW,M2GG,MCBM2)\r\n 405  CONTINUE\r\nC\r\nC     SPACE DOWN 3 COL IN MGG\r\nC\r\n 407  CONTINUE\r\n      NDOF  = NDOF + 5\r\n      NFILE = MGG\r\n      CALL FWDREC (*903,MGG)\r\n      CALL FWDREC (*903,MGG)\r\n      CALL FWDREC (*903,MGG)\r\n      NFILE = BGPDT\r\n      GO TO 70\r\nC\r\nC     FINISH PROCESSING\r\nC\r\n 800  CALL CLOSE (MGG,1)\r\n      IF (NOBASX .EQ. -1) GO TO 802\r\n      CALL CLOSE (M2GG,1)\r\n      CALL WRTTRL (MCBM2)\r\n 802  IF (OMEGA .EQ. 0.0) GO TO 805\r\n      CALL CLOSE (B1GG,1)\r\n      CALL CLOSE (M1GG,1)\r\n      CALL WRTTRL (MCBB1)\r\n      CALL WRTTRL (MCBM1)\r\n 805  CALL CLOSE (BGPDT,1)\r\nC\r\nC     BEGIN PROCESSING OF FRLX, PDZERO AND BASEXG DATA BLOCKS.\r\nC\r\nC\r\nC     TEST TO SEE IF BASEXG IS TO BE GENERATED.\r\nC\r\n      IF (NOBASX .EQ. -1) GO TO 1000\r\nC\r\nC     RE-ESTABLISH LENGTH OF OPEN CORE FOR PHASE II PROCESSING\r\nC\r\n      NZ = IBUF3 - 1\r\nC\r\nC     PROCESS FRL, FRLX AND PDZERO\r\nC\r\n      MODFRL = .TRUE.\r\n      IF (OMEGA.EQ.0.0 .OR. BYTID.EQ.-1 .AND. BZTID.EQ.-1)\r\n     1    MODFRL = .FALSE.\r\nC\r\n      NFILE = FRL\r\n      MCB1(1) = FRL\r\n      CALL RDTRL (MCB1)\r\n      NFSETS = MCB1(2)\r\n      IFRL = 1\r\n      CALL OPEN (*902,FRL,ZS(IBUF1),0)\r\nC\r\nC     READ HEADER RECORD\r\nC\r\n      CALL READ (*903,*810,FRL,IZ(IFRL),NZ,1,NWRDS)\r\n      GO TO 901\r\nC\r\nC     OPEN CASECC\r\nC\r\n 810  NFILE = CASECC\r\n      CALL GOPEN (CASECC,ZS(IBUF2),0)\r\nC\r\nC     READ RECORD 1, WORD 14 (FREQUENCY SET ID)\r\nC\r\n      CALL READ (*903,*904,CASECC,CASE,14,0,DUMMY)\r\n      FRQSET = CASE(14)\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     CHECK WHAT LOGICAL RECORD FRQSET IS IN FRL.\r\nC\r\n      MM = 0\r\n      II = IFRL + 2\r\n      DO 840 I = II,NWRDS\r\n      MM = MM + 1\r\n      IF (IZ(I) .EQ. FRQSET) GO TO 850\r\n 840  CONTINUE\r\nC\r\nC     FREQUENCY SET NOT FOUND.\r\nC\r\n      GO TO 905\r\nC\r\nC     MM IS LOGICAL RECORD NO. IN FRL FOR FRQSET.\r\nC\r\n 850  IF (.NOT.MODFRL) GO TO 852\r\n      CALL  OPEN (*902,FRLX,ZS(IBUF2),1)\r\n      CALL WRITE (FRLX,IZ(IFRL),NWRDS,1)\r\n      CALL GOPEN (PDZERO,ZS(IBUF3),1)\r\n      MCB2(1) = PDZERO\r\n      MCB2(2) = 0\r\n      MCB2(3) = 0\r\n      MCB2(4) = 1\r\n      MCB2(5) = 1\r\n      MCB2(6) = 0\r\n      MCB2(7) = 0\r\n      IN      = 1\r\n      IOUT    = 1\r\n      INCR1   = 1\r\n      ROW2(1) = 0.0\r\n      ROW2(2) = 1.0\r\n      ROW2(3) = 0.0\r\n 852  IFRL    = 1\r\n      NFS     = 0\r\n      NFSX    = 0\r\n      NFILE   = FRL\r\n      DO 859 I = 1,NFSETS\r\n      CALL READ (*903,*853,FRL,ZS(IFRL),NZ,1,M)\r\n      GO TO 901\r\n 853  IF (I .EQ. MM) NFS = M\r\n      IF (.NOT.MODFRL .AND.I.EQ.MM) GO TO 865\r\n      IF (.NOT.MODFRL) GO TO 859\r\n      IF (I  .NE.  MM) GO TO 858\r\nC\r\nC     SET POINTERS FOR SORT INDEX ,   FRLX AND PDZERO ARRAYS.\r\nC\r\n      INDEX = IFR L + NFS\r\n      IFRLX = INDEX + 3*NFS\r\n      IPDZ  = IFRLX + 3*NFS\r\nC\r\nC     RESET IFRL POINTER TO CONTINUE READING FRL RECORDS.\r\nC\r\n      IFRL  = IFRLX\r\nC\r\nC     CHECK CORE REQUIRED FOR EXPANDED FREQUENCY LIST AND SORT INDEX\r\nC\r\n      NZ = NZ - (IPDZ + 3*NFS) + 1\r\n      IF (NZ .LT. 0) GO TO 901\r\nC\r\n      LL = IFRLX - 1\r\n      KKK= IPDZ  - 1\r\n      DO 857 II = 1,NFS\r\n      IF (ZS(II) .EQ. 0.0) GO TO 856\r\n      DO 854 KK = 1,3\r\n      KKK = KKK + 1\r\n      ZS(KKK) = ROW2(KK)\r\n 854  CONTINUE\r\n      ZS(LL+1) = ABS(ZS(II)-OMEGA)\r\n      ZS(LL+2) = ZS(II)\r\n      ZS(LL+3) = ABS(ZS(II)+OMEGA)\r\n      LL = LL + 3\r\n      GO TO 857\r\n 856  ZS(LL+1) = 0.0\r\n      ZS(LL+2) = ABS(OMEGA)\r\n      KKK = KKK + 1\r\n      ZS(KKK) = ROW2(2)\r\n      KKK = KKK + 1\r\n      ZS(KKK) = ROW2(1)\r\n      LL  = LL + 2\r\n 857  CONTINUE\r\nC\r\nC     COMPUTE THE EXPANDED NUMBER OF FREQUIENCES, NFSX.\r\nC\r\n      NFSX = LL - IFRLX + 1\r\nC\r\nC     SORT EXPANDED W'S AND GET INDEX FOR SORTING BASE TABLE.\r\nC\r\n      CALL FVRS1E (ZS(IFRLX),IZ(INDEX),NFSX)\r\n      CALL WRITE (FRLX,ZS(IFRLX),NFSX,1)\r\n      GO TO 859\r\n 858  CALL WRITE (FRLX,ZS(IFRL),M,1)\r\n 859  CONTINUE\r\n      IF (.NOT.MODFRL) GO TO 865\r\nC\r\nC      FRLX IS A COPY OF FRL WITH THE SELECTED FREQUENCY SET, FRQSET,\r\nC      EXPANDED.\r\nC\r\n      CALL CLOSE (FRLX,1)\r\n      MCB1(1) = FRLX\r\n      CALL WRTTRL (MCB1)\r\nC\r\nC     SORT PDZERO BY INDEX JUST AS WAS DONE FOR FRLX\r\nC     USE WORK   AT ZS(IFRLX)\r\nC         INDEX  AT ZS(INDEX)   ALL NFSX LONG\r\nC         PDZERO AT ZS(IPDZ)\r\nC\r\n      DO 860 KK = 1,NFSX\r\n      LOC = IZ(INDEX+KK-1)\r\n 860  ZS(IFRLX+KK-1) = ZS(IPDZ+LOC-1)\r\nC\r\nC     NOW OUTPUT NFSX * FKMAX COLUMNS FOR PDZERO\r\nC\r\n      KKK = 0\r\n      DO 862 KK = 1,FKMAX\r\n      DO 861 JJ = 1,NFSX\r\n      KKK = KKK + 1\r\n      NF  = KKK\r\n      NL  = KKK\r\n      CALL PACK (ZS(IFRLX+JJ-1),PDZERO,MCB2)\r\n 861  CONTINUE\r\n 862  CONTINUE\r\n      CALL CLOSE (PDZERO,1)\r\n      MCB2(3) = MCB2(2)\r\n      CALL WRTTRL (MCB2)\r\n 865  CALL CLOSE (FRL,1)\r\nC\r\nC     RE-ESTABLISH OPEN CORE FOR PHASE III AND\r\nC     RESET POINTER TO ORIGINAL FREQUIENCIES.\r\nC\r\n      IFRL = 1\r\n      NZ   = IBUF1 - (NFS+NFSX) - 1\r\nC\r\nC     NFS  = THE ORIGINAL NUMBER OF FREQUIENCES\r\nC     NFSX = THE EXPANDED NUMBER OF FREQUIENCES.\r\nC\r\nC     GENERATE BASE ACCELERATION MATRIX BASEXG.\r\nC\r\nC\r\nC     BUILD A LIST OF UNIQUE TABLE IDS FOR PRETAB.\r\nC     INITIALIZE THE TABLE WITH A ZERO ENTRY.\r\nC\r\n      ITAB = NFS + NFSX + 1\r\n      NTABL=1\r\n      K = ITAB + NTABL\r\n      IZ(K) = 0\r\nC\r\nC     WE HAVE A LIST OF TABLE ID'S TO CONSIDER\r\nC     WE WANT ONLY A UNIQUE LIST OF TABLE ID'S GIVEN TO PRETAB\r\nC\r\n      DO 872 I = 1,6\r\n      IITID = ITID(I)\r\nC\r\nC     SEARCH EXISTING LIST OF TABLE ID'S TO SEE IF IITID IS ALREADY IN\r\nC     LIST\r\nC\r\n      IF (IITID.LE.0 .OR. IITID.GT.9999999) GO TO 872\r\n      DO 871 L = 1,NTABL\r\n      LL = ITAB + L\r\n      IF (IZ(LL) .EQ. IITID) GO TO 872\r\n 871  CONTINUE\r\nC\r\nC     IITID WAS NOT AMONG EXISTING TABLE ID'S IN LIST,\r\nC     IT'S A NEW TABLE ID,ADD IT TO LIST AND UPDATE LENGHT OF LIST\r\nC\r\n      NTABL = NTABL + 1\r\n      K = ITAB + NTABL\r\n      IZ(K) = IITID\r\n 872  CONTINUE\r\nC\r\nC     ALL TABLE ID'S HAVE BEEN PROCESSED,NOW PRETAB CAN BE CALLED\r\nC     NTABL IS THE NUMBER OF TID'S IN THE LIST.\r\nC\r\n      IZ(ITAB) = NTABL\r\nC\r\nC     ILTAB IS THE NEXT AVAILABLE LOCATION OF OPEN CORE FOR PRETAB.\r\nC\r\n      ILTAB = ITAB + NTABL + 1\r\nC\r\nC     COMPUTE LENGTH OF OPEN CORE AVAILABLE TO PRETAB.\r\nC\r\n      NZTAB = NZ - NTABL - 1\r\n      LTAB  = 0\r\n      CALL PRETAB (DIT,ZS(ILTAB),IZ(ILTAB),ZS(IBUF1),NZTAB,LTAB,\r\n     1             IZ(ITAB),ITLIST)\r\nC\r\nC     COMPUTE LENGTH OF OPEN CORE AFTER PRETAB AND NEXT AVAILABLE LOC.\r\nC\r\n      NZ   = NZ - LTAB\r\n      NEXT = ILTAB + LTAB\r\nC\r\nC     ALLOCATE COMPLEX ARRAYS FOR BASEXG. START ON DOUBLE WORD BOUNDARY.\r\nC\r\n      IF (MOD(NEXT,2) .EQ. 0) NEXT = NEXT + 1\r\nC\r\nC     DEFINE NFSX IF MODFRL IS FALSE.\r\nC\r\n      IF (.NOT.MODFRL) NFSX = NFS\r\nC\r\n      N1 = NEXT\r\n      N2 = N1 + (3*NFSX)*2\r\n      N3 = N2 + (3*NFSX)*2\r\n      NT = N3 +    NROWC*2 - 1\r\n      IF (NZ .LT. NT) GO TO 901\r\n      CALL FVRS1A (ZS(N1),ZS(N2),ZS(N3),ZS(IFRL),ZS(IBUF1),ZS(INDEX),\r\n     1             MODFRL,BASEXG,NROWC,NFS,NFSX,FKMAX,OMEGA)\r\n      GO TO 1000\r\nC\r\nC     ERROR PROCESSING\r\nC\r\nC     NOT ENOUGH CORE (ERROR 3008)\r\nC\r\n 901  IP1 = -8\r\n      GO TO 999\r\nC\r\nC     DATA SET NOT IN FIST (ERROR 3001)\r\nC\r\n 902  IP1 = -1\r\n      GO TO 999\r\nC\r\nC     EOF ENCOUNTERED (ERROR 3002)\r\nC\r\n 903  IP1 = -2\r\n      GO TO 999\r\nC\r\nC     EOL ENCOUNTERED (ERROR 3003)\r\nC\r\n 904  IP1 = -3\r\n      GO TO 999\r\nC\r\nC     FREQUENCY SET NOT FOUND IN FRL (ERROR 3031)\r\nC\r\n 905  CALL MESAGE (-31,FRQSET,MODNAM)\r\n      GO TO 1000\r\n 999  CALL MESAGE (IP1,NFILE,MODNAM(2))\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fvrst2.f",
    "content": "      SUBROUTINE FVRST2\r\nC\r\nC    1. ENTRY POINT - FVRST2\r\nC\r\nC    2. PURPOSE -  THIS MODULE IS USED DURING A FORCED VIBRATION\r\nC                  RESPONSE ANALYSIS OF ROTATING CYCLIC STRUCTURES\r\nC                  TO GENERATE TABLE DATA BLOCKS FRL AND FOL AND TO\r\nC                  GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2.\r\nC                  FVRSTR2 ALSO COMPUTES PARAMETERS LMAX, NTSTEPS,\r\nC                  FLMAX, NORO1 AND NORO2.\r\nC\r\nC    3. DMAP CALLING SEQUENCE -\r\nC\r\nC         FVRSTR2  TOL,,,,,,, / FRL,FOL,REORDER1,REORDER2,,,, /\r\nC                  V,Y,NSEGS/ V,Y,CYCIO/ V,Y,LMAX=-1/ V,N,FKMAX/\r\nC                  V,N,FLMAX/ V,N,NTSTEPS/ V,N,NORO1/ V,N,NORO2  $\r\nC\r\nC    4. INPUT DATA BLOCKS -\r\nC\r\nC         TOL    - TIME OUTPUT LIST.\r\nC\r\nC         NOTE   - (1) TOL MUST BE PRESENT.\r\nC\r\nC    5. OUTPUT DATA BLOCKS -\r\nC\r\nC         FRL      - FREQUENCY RESPONSE LIST.\r\nC         FOL      - FREQUENCY OUTPUT LIST.\r\nC         REORDER1 - LOAD REORDERING MATRIX FO TIME-DEPENDENT PROBLEMS.\r\nC         REORDER2 - LOAD REORDERING MATRIX FO TIME-DEPENDENT PROBLEMS.\r\nC\r\nC         NOTE     - (1) FRL AND FOL CANNOT BE PURGED.\r\nC                    (2) REORDER1 AND REORDER2 SHOULD NOT BE PURGED.\r\nC\r\nC    6. PARAMETERS -\r\nC\r\nC        (A) NSEGS   - INPUT-INTEGER-NO DEFAULT.  THE NUMBER OF\r\nC                      IDENTICAL SEGMENTS IN THE STRUCTURAL MODEL.\r\nC        (B) CYCIO   - INPUT-INTEGER-NO DEFAULT.  THE INTEGER VALUE\r\nC                      OF THIS PARAMETER SPECIFIES THE FORM OF THE INPUT\r\nC                      AND OUTPUT DATA FOR CYCLIC STRUCTURES. A VALUE\r\nC                      OF +1 IS USED TO SPECIFY PHYSICAL SEGMENT REPRE-\r\nC                      SENTATION AND A VALUE OF -1 FOR CYCLIC TRANSFOR-\r\nC                      MATION REPRESENTATION.\r\nC        (C) LMAX    - INPUT/OUTPUT-INTEGER.  THE INTEGER VALUE OF THIS\r\nC                      PARAMETER SPECIFIES THE MAXIMUM TIME HARMONIC\r\nC                      INDEX FOR CYCLIC STRUCTURES. THE DEFAULT VALUE\r\nC                      IS NTSTEPS/2, WHERE NTSTEPS IS THE NUMBER OF\r\nC                      TIME STEPS DEFINED BELOW.\r\nC        (D) FKMAX   - INPUT-INTEGER-NO DEFAULT.  FUNCTION OF KMAX.\r\nC        (E) FLMAX   - OUTPUT-INTEGER-NO DEFAULT.  FUNCTION OF LMAX.\r\nC        (F) NTSTEPS - OUTPUT-INTEGER-NO DEFAULT.  THE NUMBER OF\r\nC                      TIME STEPS FOUND IN DATA BLOCK TOL.\r\nC        (G) NORO1   - OUTPUT-INTEGER-NO DEFAULT.  NORO1 =-1 IF DATA\r\nC                      BLOCK REORDER1 IS NOT GENERATED.\r\nC        (H) NORO2   - OUTPUT-INTEGER-NO DEFAULT.  NORO2 =-1 IF DATA\r\nC                      BLOCK REORDER2 IS NOT GENERATED.\r\nC\r\nC    7. METHOD -\r\nC\r\nC         DATA BLOCK TOL IS READ AND THE LIST OF SOLUTION TIMES IS\r\nC         STORED. SET NTSTEPS TO THE NUMBER OF SOLUTION TIMES READ.\r\nC         IF NECESSARY COMPUTE THE DEFAULT VALUE OF LMAX AND THEN\r\nC         COMPUTE FLMAX.\r\nC         GENERATE TABLE DATA BLOCKS FOL AND FRL.\r\nC         GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2 AND\r\nC         PARAMETERS NORO1 AND NORO2.\r\nC\r\nC    8. SUBROUTINES - FVRST2 CALLS SUBROUTINE FVRS2A AND OTHER\r\nC                     STANDARD NASTRAN UTILITY ROUTINES.\r\nC\r\nC    9. DESIGN REQUIREMENTS -\r\nC\r\nC         (1) OPEN CORE IS DEFINED AT /ZZFVR2/.\r\nC         (2) NO SCRATCH FILES ARE USED.\r\nC         (3) FVRST2 RESIDES IN LINKNS07.\r\nC         (4) OPEN CORE FOR ONE BUFFER+1 IS REQUIRED.\r\nC\r\nC   10. DIAGNOSTIC MESSAGES -\r\nC\r\nC         THE FOLLOWING MESSAGES MAY BE ISSUED - 3001,3002,3003,3008.\r\nC\r\nC\r\n      INTEGER          MODNAM(2),FILE,FNAM(2),TRL(7),DUM(2),SYSBUF,TOL,\r\n     1                 FRL,FOL,REORD1,REORD2,CYCIO,FKMAX,FLMAX\r\n      DOUBLE PRECISION PERIOD,FREQ,FACT,DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ\r\n      COMMON /BLANK /  NSEGS,CYCIO,LMAX,FKMAX,FLMAX,NTSTPS,NORO1,NORO2\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /CONDAD/  DPI,DTWOPI,DRADEG,DDEGRA,D4PISQ\r\n      DATA    MODNAM/  4HFVRS,4HTR2  /\r\n      DATA       TOL,  FRL, FOL, REORD1, REORD2 /\r\n     1           101,  201, 202, 203,    204    /\r\nC\r\nC\r\nC     DETERMINE LENGTH OF OPEN CORE AND ALLOCATE BUFFERS.\r\nC\r\n      NZ    = KORSZ(Z)\r\n      IBUF1 = NZ - SYSBUF\r\n      NZ    = IBUF1 - 1\r\n      IF (NZ .LE. 0) GO TO 9908\r\nC\r\nC     READ DATA BLOCK TOL (TIME OUTPUT LIST).\r\nC     LIST OF OUTPUT TIME VALUES ARE STORED IN TOL HEADER.\r\nC\r\n      FILE = TOL\r\n      ITOL = 1\r\n      CALL FNAME (FILE,FNAM)\r\n      CALL OPEN (*9901,FILE,Z(IBUF1),0)\r\n      CALL FREAD (FILE,DUM,2,0)\r\n      CALL READ (*9902,*10,FILE,Z(ITOL),NZ,1,NTIMES)\r\nC\r\nC     INSUFFICIENT CORE TO HOLD ALL TIMES.\r\nC\r\n      GO TO 9908\r\nC\r\n   10 CALL CLOSE (FILE,1)\r\nC\r\n      NZ   = NZ - NTIMES\r\n      NEXT = NTIMES + 1\r\n      IF (NZ .LE. 0) GO TO 9908\r\nC\r\nC     DEFINE PARAMETER NTSTEPS.\r\nC\r\nC     IF (CYCIO .EQ. -1) NTSTEPS = (NTIMES*FKMAX)/FKMAX\r\nC     IF (CYCIO .EQ. +1) NTSTEPS = (NTIMES*NSEGS)/NSEGS\r\nC\r\n      NTSTPS = NTIMES\r\nC\r\nC     SET DEFAULT VALUE OF PARAMETER LMAX.\r\nC\r\n      IF (LMAX .LT. 0) LMAX = NTSTPS/2\r\nC\r\nC     DEFINE PARAMETER FLMAX\r\nC\r\n      KK = (NTSTPS/2)*2\r\n      IF (KK .NE. NTSTPS) GO TO 20\r\nC\r\nC     NTSTPS IS EVEN.\r\nC\r\n      IF (LMAX .NE. NTSTPS/2) GO TO 20\r\n      FLMAX = NTSTPS\r\n      GO TO 30\r\nC\r\nC     NTSTPS IS ODD.\r\nC\r\n   20 FLMAX = 2*LMAX + 1\r\nC\r\n   30 CONTINUE\r\nC\r\nC     GENERATE DATA BLOCKS FRL AND FOL BY CONVERTING TOL TIMES\r\nC     TO THE FREQUENCY DOMAIN.\r\nC\r\n      NFREQ= FLMAX\r\n      IFOL = NEXT\r\n      NEXT = IFOL + NFREQ\r\n      NZ   = NZ   - NFREQ\r\n      IF (NZ .LE. 0) GO TO 9908\r\nC\r\nC     GENERATE FREQUENCY LIST FROM TOL TIME LIST.\r\nC\r\n      Z(IFOL) = 0.0\r\n      IF (NFREQ .LE. 1) GO TO 60\r\nC\r\n      PERIOD = DBLE(Z(ITOL+1)) + DBLE(Z(ITOL+NTIMES-1))\r\n      FREQ   = 1.0D0/PERIOD\r\n      FACT   = 1.0D0\r\nC\r\n      IFREQ1 = IFOL + 1\r\n      IFREQ2 = IFOL + NFREQ - 1\r\nC\r\n      DO 50 IFREQ = IFREQ1,IFREQ2,2\r\n      Z(IFREQ)   = FACT*FREQ\r\n      Z(IFREQ+1) = Z(IFREQ)\r\n      FACT       = FACT + 1.0D0\r\n   50 CONTINUE\r\nC\r\n      KK = (NFREQ/2)*2\r\n      IF (KK .NE. NFREQ) GO TO 60\r\n      Z(IFREQ2) = FACT*FREQ\r\nC\r\n   60 CONTINUE\r\nC\r\nC     OUTPUT FOL TABLE (FREQUENCY OUTPUT RESPONSE LIST).\r\nC\r\n      FILE = FOL\r\n      CALL FNAME (FILE,FNAM)\r\n      CALL OPEN (*9901,FILE,Z(IBUF1),1)\r\n      CALL WRITE (FILE,FNAM,2,0)\r\n      CALL WRITE (FILE,Z(IFOL),NFREQ,1)\r\n      CALL CLOSE (FILE,1)\r\nC\r\n      TRL(1) = FILE\r\n      TRL(2) = NFREQ\r\n      TRL(3) = 1\r\n      TRL(4) = 0\r\n      TRL(5) = 0\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     GENERATE DATA BLOCK FRL FROM FOL (W = F*2*PI).\r\nC     USE SAME CORE WHERE FOL IS STORED.\r\nC\r\n      DO 70 IFREQ = IFREQ1,IFREQ2\r\n      Z(IFREQ) = Z(IFREQ)*DTWOPI\r\n   70 CONTINUE\r\nC\r\nC     OUTPUT FRL TABLE (FREQUENCY RESPONSE LIST).\r\nC\r\n      FILE = FRL\r\n      CALL FNAME (FILE,FNAM)\r\n      CALL OPEN (*9901,FILE,Z(IBUF1),1)\r\n      CALL WRITE (FILE,FNAM,2,0)\r\n      CALL WRITE (FILE,1,1,1)\r\n      CALL WRITE (FILE,Z(IFOL),NFREQ,1)\r\n      CALL CLOSE (FILE,1)\r\nC\r\n      TRL(1) = FILE\r\n      TRL(2) = 1\r\n      TRL(3) = 0\r\n      TRL(4) = 0\r\n      TRL(5) = 0\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     GENERATE MATRIX DATA BLOCKS REORDER1 AND REORDER2 USED FOR\r\nC     REORDERING COLUMNS OF A MATRIX BY POST-MULTIPLYING THE MATRIX\r\nC     WHOSE COLUMNS ARE TO BE REORDERED.\r\nC\r\n      K1 = NTSTPS\r\n      K3 = FLMAX\r\n      IF (CYCIO .EQ. -1) K2 = FKMAX\r\n      IF (CYCIO .EQ. +1) K2 = NSEGS\r\nC\r\nC     GENERATE MATRIX REORDER1\r\nC\r\n      CALL FVRS2A (REORD1,K1,K2,NORO1,Z(IBUF1))\r\nC\r\nC     GENERATE MATRIX REORDER2\r\nC\r\n      CALL FVRS2A (REORD2,K2,K3,NORO2,Z(IBUF1))\r\nC\r\n      RETURN\r\nC\r\nC     ERROR PROCESSING\r\nC\r\nC     DATA SET NOT IN FIST\r\nC\r\n 9901 IP1 = -1\r\n      GO TO 9999\r\nC\r\nC     E-O-F ENCOUNTERED\r\nC\r\n 9902 IP1 = -2\r\n      GO TO 9999\r\nC\r\nC     E-O-L ENCOUNTERED\r\nC\r\n 9908 IP1 = -8\r\n      GO TO 9999\r\n 9999 CALL MESAGE (IP1,FILE,MODNAM)\r\n      CALL MESAGE (-37,0,MODNAM)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fwmw.f",
    "content": "      SUBROUTINE FWMW (ND,NE,SGS,CGS,IRB,A0,ARB,XBLE,XBTE,YB,ZB,XS,\r\n     1                 YS,ZS,NAS,NASB,KR,BETA2,CBAR,AVR,FWZ,FWY)\r\nC\r\nC     CALCULATES THE EFFECT OF A DOUBLET PLUS ANY CONTRIBUTIONS DUE TO\r\nC     IMAGES, SYMMETRY AND GROUND EFFECT ON BODY\r\nC\r\n      COMPLEX   FWZ,FWY\r\n      DIMENSION YB(1),ZB(1),NASB(1),AVR(1),ARB(1)\r\nC\r\nC     ND        SYMMETRY FLAG\r\nC     NE        GROUND EFFECTS FLAG\r\nC     SGS       SINE   OF SENDING POINT DIHEDRAL ANGLE\r\nC     CGS       COSINE OF SENDING POINT DIHEDRAL ANGLE\r\nC     IRB       NUMBER OF THE RECEIVING BODY\r\nC     A0        RADIUS OF THE BODY\r\nC     ARB       ARRAY OF RATIOS OF BODY AXIS\r\nC     XBLE      LEADING  EDGE COORDINATE OF SLENDER BODY ELEMENT\r\nC     XBTE      TRAILING EDGE COORDINATE OF SLENDER BODY ELEMENT\r\nC     YB        ARRAY CONTAINING THE Y-COORDINATES OF THE BODIES\r\nC     ZB        ARRAY CONTAINING THE Y-COORDINATES OF THE BODIES\r\nC     XS        1/4-CHORD  X-COORDINATE  OF SLENDER BODY ELEMENT\r\nC     YS        Y-COORDINATE OF SENDING POINT\r\nC     ZS        Z COORDINATE OF THE SENDING POINT\r\nC     NAS       NUMBER OF ASSOCIATED BODIES\r\nC     NASB      ARRAY CONTAINING THE ASSOCIATED BODY NOS.\r\nC     KR        REDUCED FREQUENCY\r\nC     BETA2     = 1 - MACH**2\r\nC     CBAR      REFERENCE CHARD LENGTH\r\nC     AVR       ARRAY OF BODY RADII\r\nC     FWZ       OUTPUT Z-FORCE\r\nC     FWY       OUTPUT Y FORCE\r\nC\r\n      FWZ  = CMPLX(0.0,0.0)\r\n      FWY  = CMPLX(0.0,0.0)\r\nC\r\n      DMMY = 0.0\r\n      INFL = 1\r\nC\r\nC     ARG-R  ARGUMENTS\r\nC\r\n      DYB  = YB(IRB)\r\n      DZB  = ZB(IRB)\r\n      DA   = A0\r\n      DELEPS = 1.0\r\n      C    = CGS\r\n      S    =-SGS\r\n      DY   = YS\r\n      DZ   = ZS\r\n      ITYPE= 1\r\n      K    = 1\r\n      ASSIGN 100 TO IRET1\r\n      GO TO 2000\r\n  100 SY   = 1.0\r\n      SZ   = 1.0\r\n      SG   = SGS\r\n      ASSIGN 200 TO IRET1\r\n      GO TO 5000\r\n  200 CONTINUE\r\nC\r\nC     CHECK SYMMETRY FLAG. BRANCH IF EQUAL TO ZERO\r\nC\r\n      IF (ND .EQ. 0) GO TO 700\r\nC\r\nC     PORTION FOR SYMMETRIC CALCULATIONS\r\nC\r\n      DELEPS = ND\r\n      C    = CGS\r\n      S    = SGS\r\n      DY   =-YS\r\n      DZ   = ZS\r\n      ITYPE= 1\r\n      K    = 2\r\n      ASSIGN 300 TO IRET1\r\n      GO TO 2000\r\n  300 CONTINUE\r\n      SY   =-1.0\r\n      SZ   = 1.0\r\n      SG   =-SGS\r\n      ASSIGN 400 TO IRET1\r\n      GO TO 5000\r\n  400 CONTINUE\r\nC\r\nC     CHECK GROUND EFFECTS FLAG. SKIP IF ZERO\r\nC\r\n      IF (NE .EQ. 0) GO TO 7000\r\nC\r\nC     PORTION FOR COMBINATION OF SYMMETRY AND GROUND EFFECTS\r\nC\r\n      ITYPE = 1\r\n      K     = 3\r\n      DELEPS= ND*NE\r\n      C     = CGS\r\n      S     =-SGS\r\n      DY    =-YS\r\n      DZ    =-ZS\r\n      ASSIGN 500 TO IRET1\r\n      GO TO 2000\r\n  500 CONTINUE\r\n      SY    =-1.0\r\n      SG    = SGS\r\n      SZ    =-1.0\r\n      ASSIGN 600 TO IRET1\r\n      GO TO 5000\r\n  600 CONTINUE\r\n      GO TO 800\r\nC\r\nC     SKIP GROUND EFFECTS CALCULATIONS IF FLAG IS ZERO\r\nC\r\n  700 IF (NE .EQ. 0) GO TO 7000\r\nC\r\nC     PORTION FOR GROUND EFFECTS ONLY\r\nC\r\n  800 CONTINUE\r\n      DELEPS = NE\r\n      DY   = YS\r\n      DZ   =-ZS\r\n      C    = CGS\r\n      S    = SGS\r\n      ITYPE= 1\r\n      K    = 4\r\n      ASSIGN 900 TO IRET1\r\n      GO TO 2000\r\n  900 CONTINUE\r\n      SY   = 1.0\r\n      SZ   =-1.0\r\n      SG   =-SGS\r\n      ASSIGN 1000 TO IRET1\r\n      GO TO 5000\r\n 1000 CONTINUE\r\n      RETURN\r\nC\r\nC     CALCULATION OF EFFECTIVE FORCES\r\nC\r\n 2000 CONTINUE\r\n      RHO2 = (DY-DYB)**2 + (DZ-DZB)**2\r\n      RHO  = SQRT(RHO2)\r\n      B    = AVR(IRB)*ARB(IRB)\r\n      RHODB= RHO/B\r\n      F    = 1.0\r\n      IF (RHO .LE. B) GO TO 2020\r\n      F    = RHODB/(ARB(IRB)*(RHODB-1.0)+1.0)\r\n2020  CONTINUE\r\n      ZBAR = (DZ-DZB)/(F*ARB(IRB)) + DZB\r\n      CALL FZY2 (XS,XBLE,XBTE,DY,ZBAR,DYB,DZB,DA,BETA2,CBAR,KR,DFZZR,\r\n     1           DFZZI,DFZYR,DFZYI,DFYZR,DFYZI,DFYYR,DFYYI)\r\nC\r\n      FWZR = C*DFZZR + S*DFZYR\r\n      FWZI = C*DFZZI + S*DFZYI\r\n      FWZ  = FWZ + DELEPS*CMPLX(FWZR,FWZI)\r\n      FWYR = C*DFYZR + S*DFYYR\r\n      FWYI = C*DFYZI + S*DFYYI\r\n      FWY  = FWY + DELEPS*CMPLX(FWYR,FWYI)\r\n 2060 GO TO (3000,6000), ITYPE\r\n 3000 GO TO IRET1, (100,200,300,400,500,600,800,900,1000)\r\nC\r\nC     CALCULATION LOOP FOR ASSOCIATED BODIES\r\nC\r\n 5000 IF (NAS .LE. 0) GO TO 3000\r\n      I = 1\r\n      ITYPE = 2\r\n 5100 IB = NASB(I)\r\nC\r\nC     CHECK TO SEE IF THE ASSOCIATED BODY IS THE RECEIVING BODY.\r\nC\r\n      IF (IB .NE. IRB) GO TO 5800\r\nC\r\nC     IF IT IS DETERMINE IF THE SENDING POINT IS OUTSIDE OR INSIDE THE\r\nC     BODY.\r\nC\r\n      GO TO (5600,5500,5400,5300), K\r\n 5300 IF (DYB .NE. 0.0) GO TO 5800\r\n      GO TO 5800\r\n 5400 IF (DYB .NE. 0.0) GO TO 5800\r\n 5500 IF (DZB .NE. 0.0) GO TO 5800\r\n 5600 CONTINUE\r\n 5800 CONTINUE\r\n      ETA   = SY*YS\r\n      ZETA  = SZ*ZS\r\n      ZBI   = SZ*ZB(IB)\r\n      YBI   = SY*YB(IB)\r\n      DARIB = ARB(IB)\r\n      DAIB  = AVR(IB)\r\n      CALL SUBI (DAIB,ZBI,YBI,DARIB,ETA,ZETA,CGS,SG,DMMY,DMMY,DMMY,DY,\r\n     1           DZ,DMMY,DMMY,DMMY,DMMY,S,C,INFL,IOUTFL)\r\n      IF (IOUTFL) 2000,2060,2000\r\n 6000 I = I + 1\r\n      IF (I - NAS) 5100,5100,3000\r\n 7000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/fzy2.f",
    "content": "      SUBROUTINE FZY2 (XIJ, X1, X2,ETA,ZETA, YB, ZB, A, BETA2,CBAR, K,\r\n     1           FZZR, FZZI, FZYR, FZYI, FYZR, FYZI, FYYR, FYYI)\r\nC   ***   THIS SUBROUTINE IS AN ALTERNATIVE TO SUBROUTINE  FMZY   ---\r\nC         IT IS USED WHENEVER THE OPTION FLAG   IBFS  =  1\r\nC   ***\r\n      REAL M,K,KBAR,KBAR2,I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,KBAR3\r\n      DATA LASTBR /0/\r\n      DATA    TEST1,TEST2,CTH,STH,RAIJ,RAIJ2 /0.142857, 0.5, 1.0,3*0.0/\r\n      DATA    CAPDR,CAPDI,I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11/ 13*0.0 /\r\n      M      = SQRT(1.0 - BETA2)\r\n      IF  (K. LE .0.0001 . AND . M. LE .0.0001)  GO TO  110\r\n      KBAR   = 2.0 *K *M *A / CBAR\r\n      KBAR2  = KBAR*KBAR\r\n      GO TO  120\r\n  110 CONTINUE\r\n      KBAR   = 0.0\r\n      KBAR2  = 0.0\r\n  120 XA     = 0.5 * (X1 + X2)\r\n      DX     = X2 - X1\r\n      A2     = A * A\r\n      EPS    = 0.001 * A2\r\n      IF  (ETA. EQ .YB. AND . ZETA. EQ .ZB)  GO TO  130\r\n      RAIJ2  = (ETA-YB)**2 + (ZETA-ZB)**2\r\n      RAIJ   = SQRT(RAIJ2)\r\n      CTH    = (ETA- YB) / RAIJ\r\n      STH    = (ZETA-ZB) / RAIJ\r\n      IF  (RAIJ2. GT .A2)  GO TO  150\r\n      GO TO  140\r\n  130 CONTINUE\r\n      RAIJ   = 0.0\r\n      RAIJ2  = 0.0\r\n      CTH    = 1.0\r\n      STH    = 0.0\r\n  140 RWIG2  = A2\r\n      GO TO 160\r\n  150 RWIG2  = RAIJ2\r\n  160 RAA    = SQRT((XA -XIJ)**2 + BETA2*RWIG2)\r\n      CT2    = CTH*CTH\r\n      ST2    = 0.0\r\n      IF  (ABS(STH) . GT . 0.0001)  ST2=STH*STH\r\n      RWIG   = SQRT(RWIG2)\r\n      RAA2   = RAA * RAA\r\n      RAA3   = RAA * RAA2\r\n      RAA4   = RAA * RAA3\r\n      CAPA   = M - (XA- XIJ) / RAA\r\n      DELTA  = DX / RAA\r\n      DELTA2 = DELTA * DELTA\r\n      EARG   = 0.0\r\n      IF  (KBAR . LE . 0.0001)  GO TO  180\r\n      EARG   = KBAR * (M * (XA-XIJ) - RAA) / (BETA2 * A)\r\n      QR     = COS(EARG) / (4.0 * DX)\r\n      QI     = SIN(EARG) / (4.0 * DX)\r\n      GO TO  190\r\n  180 QR     = 1.0 / (4.0 * DX)\r\n      QI     = 0.0\r\n  190 CONTINUE\r\n      IF  (DELTA. GT . TEST1)  GO TO  240\r\n      I1     = DELTA / RAA2\r\n      TRM1   = BETA2 * A * I1\r\n      FTHR   = A * QR * TRM1\r\n      FTHI   = A * QI * TRM1\r\n      IF  (KBAR. LE .0.0001)  GO TO  210\r\n      I4     = DELTA / RAA\r\n      TRM2   = KBAR * I4\r\n      FTHR   = FTHR - A * QI * TRM2\r\n      FTHI   = FTHI + A * QR * TRM2\r\n  210 CONTINUE\r\n      IF  (RAIJ2. GT . (A2+EPS))  GO TO  220\r\n      FRR    = FTHR\r\n      FRI    = FTHI\r\n      GO TO  370\r\n  220 I6     = DELTA / RAA4\r\n      TRM1   = -3.0 * A2 * BETA2*BETA2 * I6\r\n      CAPDR  = RAIJ2 * QR * TRM1\r\n      CAPDI  = RAIJ2 * QI * TRM1\r\n      IF  (KBAR . LE . 0.0001)  GO TO  230\r\n      I9     = DELTA / RAA3\r\n      TRM1   = TRM1 + KBAR2 * I1\r\n      TRM2   = -3.0 * A * BETA2 * KBAR * I9\r\n      CAPDR  = RAIJ2 * (QR * TRM1 - QI * TRM2)\r\n      CAPDI  = RAIJ2 * (QR * TRM2 + QI * TRM1)\r\n  230 FRR    = FTHR + CAPDR\r\n      FRI    = FTHI + CAPDI\r\n      GO TO  370\r\n  240 CONTINUE\r\n      IF  (DELTA . GT . TEST2)  GO TO  320\r\n      LASTBR = 0\r\n      TAU    = (XA - XIJ) / RAA\r\n      TAU2   = TAU * TAU\r\n      I1     = DELTA * (1.0 - (-1.0+5.0*TAU2)*DELTA2/8.0) / RAA2\r\n  250 TRM1   = A * BETA2 * I1\r\n      FTHR   = A * QR * TRM1\r\n      FTHI   = A * QI * TRM1\r\n      IF  (KBAR . LE . 0.0001)  GO TO  270\r\n      IF  (LASTBR . NE . 0)  GO TO  350\r\n      DELTA3 = DELTA * DELTA2\r\n      I2     = -(TAU * DELTA3) / (4.0 * RAA)\r\n      I3     = DELTA3 / 12.0\r\n      I4     = DELTA * (1.0 + (-1.0+3.0*TAU2)*DELTA2/12.0) / RAA\r\n      I5     = -(TAU * DELTA3) / 6.0\r\n  260 TRM1   = TRM1 - (KBAR2 * CAPA * I5) / (A * BETA2)\r\n      TRM2   = KBAR * (CAPA * I2 + I4 - I3*BETA2*RWIG2/(2.0*RAA3) )\r\n      FTHR   = A * (QR * TRM1 - QI * TRM2)\r\n      FTHI   = A * (QR * TRM2 + QI * TRM1)\r\n  270 IF  (RAIJ2. GT . (A2+EPS))  GO TO  280\r\n      FRR    = FTHR\r\n      FRI    = FTHI\r\n      GO TO  370\r\n  280 CONTINUE\r\n      KBAR3  = KBAR*KBAR2\r\n      IF  (LASTBR . NE . 0)  GO TO  340\r\n      I6     = DELTA * (1.0 + 5.0*(-1.0+7.0*TAU2)*DELTA2/24.0) / RAA4\r\n  290 TRM1   = -3.0 * A2 * BETA2*BETA2 * I6\r\n      CAPDR  = RAIJ2 * QR * TRM1\r\n      CAPDI  = RAIJ2 * QI * TRM1\r\n      IF  (KBAR . LE . 0.0001)  GO TO  310\r\n      IF  (LASTBR . NE . 0)  GO TO  360\r\n      I7     = -5.0 * TAU * DELTA3 / (12.0 * RAA3)\r\n      I8     = DELTA3 / (12.0 * RAA2)\r\n      I9     = DELTA * (1.0 + (-1.0+6.0*TAU2)*DELTA2/6.0) / RAA3\r\n      I10    = -DELTA3 * TAU / (3.0 * RAA2)\r\n  300 TRM1   = TRM1 + KBAR2 * (I1 + 3.0 * CAPA * I10)\r\n      TRM2   = 3.0*A*BETA2 * KBAR * (-CAPA*I7 +I8*BETA2*RWIG2/(2.0*RAA3)\r\n     1    -I9) + KBAR3 * CAPA * I2 / (A * BETA2)\r\n      CAPDR  = RAIJ2 * (QR * TRM1 - QI * TRM2)\r\n      CAPDI  = RAIJ2 * (QR * TRM2 + QI * TRM1)\r\n  310 FRR    = FTHR + CAPDR\r\n      FRI    = FTHI + CAPDI\r\n      GO TO  370\r\n  320 CONTINUE\r\n      LASTBR = 1\r\n      RWIG   = SQRT(RWIG2)\r\n      RA12   = (X1 - XIJ)**2 + BETA2 * RWIG2\r\n      RA22   = (X2 - XIJ)**2 + BETA2 * RWIG2\r\n      RA1    = SQRT(RA12)\r\n      RA2    = SQRT(RA22)\r\n      I1     = ((X2-XIJ)/RA2 - (X1-XIJ)/RA1) / (BETA2*RWIG2)\r\n      GO TO  250\r\n  340 CONTINUE\r\n      RA13   = RA1 * RA12\r\n      RA23   = RA2 * RA22\r\n      I6     = ((X2-XIJ)/RA23-(X1-XIJ)/RA13 + 2.0*I1)/(3.0*BETA2*RWIG2)\r\n      GO TO  290\r\n  350 PART1  = 0.5 * DX * (XA - XIJ)\r\n      I2     = -((PART1+RAA2)/RA2 + (PART1-RAA2)/RA1)/ (BETA2*RWIG2)\r\n      DENOM  = X1 - XIJ + RA1\r\n      I11    = ALOG(ABS((X2 - XIJ + RA2) / DENOM))\r\n      I3     = I11 - 2.0*(XA - XIJ)*I2 - RAA2 * I1\r\n      DENO4  = SQRT(BETA2) * RWIG\r\n      ARG1   = (X2 - XIJ) / DENO4\r\n      ARG2   = (X1 - XIJ) / DENO4\r\n      I4     = (ATAN(ARG1) - ATAN(ARG2)) / DENO4\r\n      I5     = 0.5 * ALOG(RA22 / RA12) - (XA - XIJ) * I4\r\n      GO TO  260\r\n  360 CONTINUE\r\n      I7     = -(1.0/RA23 - 1.0/RA13) / 3.0 - (XA - XIJ) * I6\r\n      I8     = I1 - 2.0 * (XA - XIJ) * I7 - RAA2 * I6\r\n      I9     = ((X2-XIJ)/RA22-(X1-XIJ)/RA12 + I4) / (2.0*BETA2*RWIG2)\r\n      I10    = -((PART1 + RAA2)/RA22 + (PART1 - RAA2)/RA12 +\r\n     1           (XA - XIJ) * I4) / (2.0 * BETA2 * RWIG2)\r\n      GO TO 300\r\n  370 CONTINUE\r\n      FZZR   = CT2 * FTHR + ST2 * FRR\r\n      FZZI   = CT2 * FTHI + ST2 * FRI\r\n      FYYR   = ST2 * FTHR + CT2 * FRR\r\n      FYYI   = ST2 * FTHI + CT2 * FRI\r\n      IF  (CTH. EQ .0.0 . OR . STH. EQ . 0.0)  GO TO  400\r\n      FZYR   = CTH * STH * (FRR - FTHR)\r\n      FZYI   = CTH * STH * (FRI - FTHI)\r\n      GO TO  410\r\n  400 FZYR   = 0.0\r\n      FZYI   = 0.0\r\n  410 CONTINUE\r\n      FYZR = FZYR\r\n      FYZI = FZYI\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gauss.f",
    "content": "      SUBROUTINE GAUSS (A,N,N2)\r\nC\r\n      COMPLEX A(20,1)\r\nC\r\n      DO 100 I=1,N\r\n      K=I+1\r\n      DO 10 J=K,N2\r\n   10 A(I,J)=A(I,J)/A(I,I)\r\n      DO 30 M=1,N\r\n      IF(M.EQ.I) GO TO 30\r\n      DO 20 L=K,N2\r\n   20 A(M,L)=A(M,L)-A(M,I)*A(I,L)\r\n   30 CONTINUE\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gauss2.f",
    "content": "      SUBROUTINE GAUSS2 (A,N,N2)\r\nC\r\n      COMPLEX A(20,1)\r\n      DOUBLE COMPLEX DA(20,30)\r\nC\r\n      DO 5 I = 1, N\r\n      DO 5 J = 1, N2\r\n      DA(I,J) = A(I,J)\r\n5     CONTINUE\r\n      DO 100 I=1,N\r\n      K=I+1\r\n      DO 10 J=K,N2\r\n   10 DA(I,J)=DA(I,J)/DA(I,I)\r\n      DO 30 M=1,N\r\n      IF(M.EQ.I) GO TO 30\r\n      DO 20 L=K,N2\r\n   20 DA(M,L)=DA(M,L)-DA(M,I)*DA(I,L)\r\n   30 CONTINUE\r\n  100 CONTINUE\r\n      DO 150 I = 1, N\r\n      DO 150 J = 1, N2\r\n      A(I,J) = DA(I,J)\r\n  150 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/geloop.f",
    "content": "      SUBROUTINE GELOOP(RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3)\r\nC\r\nC GELOOP COMPUTES MAGNETIC FIELD COMPONENTS HC1,HC2,HC3(IN BASIC\r\nC COORDS. AT XX,YY,ZZ DUE TO GEMLOOP CARD. DATA FIELDS(EXCEPT SET ID)\r\nC OF GEMLOOP ARE IN RBUF=REAL AND BUF=INTEGER\r\nC\r\n      INTEGER BUF(50),TI1,TI2\r\n      DIMENSION RBUF(50),ZI(3),ZJ(3),ZK(3),ZJXI(3)\r\n      DATA FPI/12.566371/\r\nC\r\n      HC1=0.\r\n      HC2=0.\r\n      HC3=0.\r\nC\r\n      XI=RBUF(1)\r\nC\r\nC ICID IS 0 FOR NOW AND UNUSED\r\nC\r\n      ICID=BUF(2)\r\n      NPTS=BUF(3)\r\n      NPTSM1=NPTS-1\r\n      DO 10 I=1,NPTSM1\r\nC\r\nC 2 CONSECUTIVE POINTS DEFINE A SEGMENT OF A COIL. LET ZI BE THE VECTOR\r\nC FROM 1ST POINT OF SEGMENT TO 2ND. LET ZJ BE VECTOR FROM FILED POINT\r\nC XX,YY,ZZ TO 1ST POINT OF SEGMENT. ZK IS VECTOR FROM FILED POINT\r\nC TO 2ND POINT. IF THE FILED POINT LIES ON A SEGMENT, IGNORE THE\r\nC COMPUTATION FOR THAT SEGMENT FOR THAT POINT\r\nC\r\n      TI1=3*I+3\r\n      TI2=3*(I+1)+3\r\n      ZI(1)=RBUF(TI2-2)-RBUF(TI1-2)\r\n      ZI(2)=RBUF(TI2-1)-RBUF(TI1-1)\r\n      ZI(3)=RBUF(TI2)-RBUF(TI1)\r\n      ZJ(1)=RBUF(TI1-2)-XX\r\n      ZJ(2)=RBUF(TI1-1)-YY\r\n      ZJ(3)=RBUF(TI1)-ZZ\r\n      ZK(1)=RBUF(TI2-2)-XX\r\n      ZK(2)=RBUF(TI2-1)-YY\r\n      ZK(3)=RBUF(TI2)-ZZ\r\nC\r\n      ZKL=SQRT(ZK(1)**2+ZK(2)**2+ZK(3)**2)\r\n      IF(ZKL.LT.1.E-8)GO TO 10\r\n      ZJL=SQRT(ZJ(1)**2+ZJ(2)**2+ZJ(3)**2)\r\n      IF(ZJL.LT.1.E-8)GO TO 10\r\n      ZDOT=0.\r\n      DO 5 II=1,3\r\n      ZDOT=ZDOT+ZI(II)*(ZK(II)/ZKL-ZJ(II)/ZJL)\r\n    5 CONTINUE\r\n      ZJXI(1)=ZJ(2)*ZI(3)-ZJ(3)*ZI(2)\r\n      ZJXI(2)=ZJ(3)*ZI(1)-ZJ(1)*ZI(3)\r\n      ZJXI(3)=ZJ(1)*ZI(2)-ZJ(2)*ZI(1)\r\n      ZLEN2=ZJXI(1)**2+ZJXI(2)**2+ZJXI(3)**2\r\n      IF(ZLEN2.LT.1.E-8)GO TO 10\r\n      FACTOR=XI*ZDOT/FPI/ZLEN2\r\n      HC1=HC1+ZJXI(1)*FACTOR\r\n      HC2=HC2+ZJXI(2)*FACTOR\r\n      HC3=HC3+ZJXI(3)*FACTOR\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gencos.f",
    "content": "      SUBROUTINE GENCOS\r\nC\r\nC     GENCOS  GENERATES DIRECTION COSINE MATRIX, UP TO NX3, FOR DDAM.\r\nC     THE SHOCK DIRECTIONS ARE GIVEN BY A COORDINATE SYSTEM (PROBABLY\r\nC     RECTANGULAR, BUT NOT NECESSARILY) DEFINED ON A CORDIJ CARD.\r\nC     THE ID OF THAT SYSTEM MUST BE SPECIFIED BY PARAM SHOCK ID.\r\nC     THE DIRECTIONS OF INTEREST MUST BE SPECIFIED ON A PARAM DIRECT DIR\r\nC     CARD WHERE DIR=1,2,3,12,13,23,OR 123 GIVING THE SHOCK DIRECTIONS\r\nC     DESIRED IN THE SHOCK COORDINATE SYSTEM.  (DEFAULT IS 123)  WE WILL\r\nC     BE CONVERTING A ROW VECTOR IN THE GLOBAL SYSTEM TO A ROW VECTOR IN\r\nC     THE SHOCK SYSTEM.  TO CONVERT A COLUMN VECTOR FROM GLOBAL TO SHOCK\r\nC     FIRST CONVERT TO BASIC.  THEN TRANSFORM FROM BASIC TO SHOCK, I.E.\r\nC     (VECTOR-SHOCK) = (TRANSPOSE(T-SHOCK TO BASIC))*\r\nC                      (T-GLOBAL TO BASIC)*(VECTOR-GLOBAL)\r\nC     BUT BECAUSE WE ARE TRANSFORMING ROW VECTORS, THE EQUATION IS\r\nC     TRANSPOSED . NSCALE =1 MEANS THERE ARE SCALAR POINTS,=0 MEANS NO\r\nC\r\nC     GENCOS    BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/\r\nC               V,N,LUSET/V,N,NSCALE $\r\nC\r\n      LOGICAL         REC,ALL\r\n      INTEGER         BGPDT,CSTM,DIRCOS,BUF1,FILE,SHOCK,DIRECT,OTPE\r\n      DIMENSION       NAM(2),MCB(7),IZ(1),TSHOCK(9),COORD(4),ICOORD(4),\r\n     1                TPOINT(9),TFINAL(9),IDIR(3),ISUB(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / SHOCK,DIRECT,LUSET,NSCALE\r\n      COMMON /SYSTEM/ IBUF,OTPE\r\n      COMMON /PACKX / IN,IOUT,II,NN,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1)), (COORD(1),ICOORD(1))\r\n      DATA    BGPDT , CSTM,DIRCOS   / 101,102,201 /\r\n      DATA    NAM   / 4HGENC,4HOS   /\r\nC\r\nC     OPEN CORE AND BUFFERS\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - IBUF + 1\r\n      LCORE = BUF1  - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\nC     CHECK FOR SCALAR POINTS AND SET NSCALE\r\nC\r\n      MCB(1) = BGPDT\r\n      CALL RDTRL (MCB)\r\n      NPTS = MCB(2)\r\n      CALL GOPEN (BGPDT,Z(BUF1),0)\r\n      DO 1 I = 1,NPTS\r\n      CALL FREAD (BGPDT,COORD,4,0)\r\n      IF (ICOORD(1) .EQ. -1) GO TO 2\r\n    1 CONTINUE\r\n      NSCALE = 0\r\n      GO TO 3\r\n    2 NSCALE = 1\r\n    3 CALL CLOSE (BGPDT,1)\r\nC\r\n      IF (DIRECT.GE.1  .AND. DIRECT.LE.3) GO TO 5\r\n      IF (DIRECT.NE.12 .AND. DIRECT.NE.13 .AND. DIRECT.NE.23 .AND.\r\n     1    DIRECT.NE.123) GO TO 500\r\n    5 IF (SHOCK .LT.  0) GO TO 500\r\n      NCSTM  = 0\r\n      NCOUNT = 0\r\n      ALL    = .FALSE.\r\n      REC    = .FALSE.\r\n      NDIR   = 2\r\n      IF (DIRECT .LE. 3) NDIR = 1\r\n      IF (DIRECT .EQ. 123)  NDIR = 3\r\n      IF (LUSET*NDIR .GT. LCORE) GO TO 1008\r\nC\r\n      GO TO (6,7,8), NDIR\r\nC\r\n    6 IDIR(1) = DIRECT\r\n      GO TO 9\r\nC\r\n    7 IF (DIRECT .EQ. 23) GO TO 175\r\n      IDIR(1) = 1\r\n      IDIR(2) = 2\r\n      IF (DIRECT .EQ. 13) IDIR(2) = 3\r\n      GO TO 9\r\n  175 IDIR(1) = 2\r\n      IDIR(2) = 3\r\n      GO TO 9\r\nC\r\n    8 IDIR(1) = 1\r\n      IDIR(2) = 2\r\n      IDIR(3) = 3\r\n    9 CONTINUE\r\nC\r\nC\r\nC     READ CSTM FOR FETCHING TRANSFORMATION MATRICES\r\nC\r\n      CALL OPEN (*10,CSTM,Z(BUF1),0)\r\n      GO TO 30\r\nC\r\nC     CSTM IS PURGED.  SO, GLOBAL SYSTEM IS BASIC AND SHOCK SYSTEM MUST\r\nC     BE ALSO.  IF SHOCK SYSTEM IS NOT 0, FATAL MESSAGE.  IF IT IS 0,\r\nC     THEN NEED ONLY IDENTITIES.\r\nC\r\n   10 IF (SHOCK .EQ. 0) GO TO 25\r\n      WRITE  (OTPE,20) UFM\r\n   20 FORMAT (A23,', IN GENCOS, CSTM IS PURGED AND SHOCK COORDINATE ',\r\n     1       'SYSTEM IS NOT BASIC')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     EVERYTHING IS BASIC - CHECK FOR SCALAR POINTS - IF THEY EXIST,\r\nC     WE MUST READ BGPDT\r\nC\r\n   25 IF (NSCALE .EQ. 1) GO TO 55\r\n      ALL  = .TRUE.\r\n      ISYS = 0\r\n      GO TO 130\r\nC\r\n   30 FILE = CSTM\r\n      CALL FWDREC (*1002,CSTM)\r\n      CALL READ (*1002,*40,CSTM,Z,LCORE,0,NCSTM)\r\n      GO TO 1008\r\n   40 CALL CLOSE (CSTM,1)\r\nC\r\nC     CHECK FOR ENOUGH OPEN CORE\r\nC\r\n      IF (NCSTM+LUSET*NDIR .GT. LCORE) GO TO 1008\r\n      CALL PRETRS (Z(1),NCSTM)\r\nC\r\nC     IF SHOCK COORDINATE SYSTEM IS RECTANGULAR, LET'S GET THE TRANS-\r\nC     FORMATION MATRIX ONCE SINCE IT WILL NOT BE POINT-DEPENDENT.\r\nC\r\n      IF (SHOCK .EQ. 0) GO TO 55\r\n      DO 50 I = 1,NCSTM,14\r\n      IF (SHOCK .NE. IZ(I)) GO TO 50\r\n      IF (IZ(I+1) .NE. 1) GO TO 60\r\nC\r\nC     RECTANGULAR\r\nC\r\n      REC = .TRUE.\r\n      DO 45 J = 1,9\r\n   45 TSHOCK(J) = Z(I+J+4)\r\n      GO TO 60\r\n   50 CONTINUE\r\nC\r\nC     CAN'T FIND SHOCK COORDINATE SYSTEM\r\nC\r\n      CALL MESAGE (-30,25,SHOCK)\r\nC\r\nC     SHOCK IS BASIC\r\nC\r\n   55 REC = .TRUE.\r\n      DO 56 I = 1,9\r\n   56 TSHOCK(I) = 0.\r\n      TSHOCK(1) = 1.\r\n      TSHOCK(5) = 1.\r\n      TSHOCK(9) = 1.\r\nC\r\nC     OPEN BGPDT TO GET GRID POINT OUTPUT COORDINATE SYSTEMS AND\r\nC     BASIC COORDINATES\r\nC\r\n   60 CALL GOPEN (BGPDT,Z(BUF1),0)\r\n      FILE = BGPDT\r\n   70 CALL READ (*1002,*210,BGPDT,COORD,4,0,IWORDS)\r\n      ISYS = ICOORD(1)\r\n      IF (ICOORD(1) .EQ. -1) GO TO 150\r\n      IF (ICOORD(1) .NE.  0) GO TO 80\r\nC\r\nC     IDENTITY - BASIC SYSTEM\r\nC\r\n      DO 75 I = 1,9\r\n   75 TPOINT(I) = 0.\r\n      TPOINT(1) = 1.\r\n      TPOINT(5) = 1.\r\n      TPOINT(9) = 1.\r\n      GO TO 85\r\nC\r\nC     FETCH GLOBAL-TO-BASIC MATRIX FOR THIS POINT\r\nC\r\n   80 CALL TRANSS (COORD,TPOINT)\r\nC\r\nC     IF SHOCK IS NOT RECTANGULAR, FETCH SHOCK-TO-BASIC FOR THIS POINT\r\nC\r\n   85 IF (REC) GO TO 90\r\n      ICOORD(1) = SHOCK\r\n      CALL TRANSS (COORD,TSHOCK)\r\nC\r\nC     THE MATRIX WE NEED IS (TRANSPOSE(TPOINT))*(TSHOCK)\r\nC\r\n   90 IF (SHOCK .EQ. 0) GO TO 100\r\n      IF (ISYS  .EQ. 0) GO TO 110\r\nC\r\nC     NEITHER MATRIX IS NECESSARILY IDENTITY\r\nC\r\n      CALL GMMATS (TPOINT,3,3,1,TSHOCK,3,3,0,TFINAL)\r\n      GO TO 150\r\nC\r\nC     TSHOCK IS IDENTITY\r\nC\r\n  100 IF (ISYS .EQ. 0) GO TO 130\r\nC\r\nC     BUT TPOINT IS NOT\r\nC\r\n      TFINAL(1) = TPOINT(1)\r\n      TFINAL(2) = TPOINT(4)\r\n      TFINAL(3) = TPOINT(7)\r\n      TFINAL(4) = TPOINT(2)\r\n      TFINAL(5) = TPOINT(5)\r\n      TFINAL(6) = TPOINT(8)\r\n      TFINAL(7) = TPOINT(3)\r\n      TFINAL(8) = TPOINT(6)\r\n      TFINAL(9) = TPOINT(9)\r\n      GO TO 150\r\nC\r\nC     TPOINT IS IDENTITY, BUT TSHOCK IS NOT\r\nC\r\n  110 DO 120 I = 1,9\r\n  120 TFINAL(I) = TSHOCK(I)\r\n      GO TO 150\r\nC\r\nC     BOTH ARE IDENTITY\r\nC\r\n  130 DO 140 I = 1,9\r\n  140 TFINAL(I) = 0.\r\n      TFINAL(1) = 1.\r\n      TFINAL(5) = 1.\r\n      TFINAL(9) = 1.\r\nC\r\nC     STORE TFINAL BY INTERNAL ORDERING AND DIRECTIONS REQUESTED START-\r\nC     ING AT Z(NCSTM+1) - MAKE UP TO 3 COLUMNS OF LUSET EACH\r\nC\r\n  150 ISUB(1) = NCSTM   + NCOUNT\r\n      ISUB(2) = ISUB(1) + LUSET\r\n      ISUB(3) = ISUB(2) + LUSET\r\nC\r\n      DO 200 I = 1,NDIR\r\n      IP   = IDIR(I)\r\n      JSUB = ISUB(I)\r\n      IF (ISYS .EQ. -1) GO TO 195\r\n      Z(JSUB+1) = TFINAL(IP  )\r\n      Z(JSUB+2) = TFINAL(IP+3)\r\n      Z(JSUB+3) = TFINAL(IP+6)\r\n      Z(JSUB+4) = 0.\r\n      Z(JSUB+5) = 0.\r\n      Z(JSUB+6) = 0.\r\n      GO TO 200\r\nC\r\nC     SCALAR\r\nC\r\n  195 Z(JSUB+1) = 1.\r\n  200 CONTINUE\r\nC\r\nC     GO BACK FOR ANOTHER POINT\r\nC\r\n      NCOUNT = NCOUNT + 6\r\n      IF (ISYS .EQ. -1)  NCOUNT = NCOUNT - 5\r\n      IF (.NOT.ALL) GO TO 70\r\n      IF (NCOUNT .EQ. LUSET) GO TO 210\r\n      GO TO 150\r\nC\r\nC     DONE WITH ALL POINTS - PACK RESULTS\r\nC\r\n  210 IF (.NOT.ALL) CALL CLOSE (BGPDT,1)\r\n      CALL GOPEN (DIRCOS,Z(BUF1),1)\r\n      IN   = 1\r\n      IOUT = 1\r\n      II   = 1\r\n      NN   = LUSET\r\n      INCR = 1\r\n      MCB(1) = DIRCOS\r\n      MCB(2) = 0\r\n      MCB(3) = LUSET\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 220 I = 1,NDIR\r\n      JSUB = NCSTM + LUSET*(I-1)\r\n      CALL PACK (Z(JSUB+1),DIRCOS,MCB)\r\n  220 CONTINUE\r\nC\r\n      CALL CLOSE (DIRCOS,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\n  500 WRITE  (OTPE,510) UFM,SHOCK,DIRECT\r\n  510 FORMAT (A23,', SHOCK AND DIRECT ARE',2I10, /10X,'RESPECTIVELY. ',\r\n     1       'SHOCK MUST BE NONNEGATIVE AND DIRECT MUST BE EITHER 1,2',\r\n     2       ',3,12,13,23, OR 123')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1008 N = -8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gend.f",
    "content": "      SUBROUTINE GEND(NCARAY,NBARAY,YS,ZS,SG,CG,DT,WORK,MATOUT)\r\nC  GENERATE THE INFLUENCE COEFFICIENT MATRIX ADPP\r\n      COMPLEX DT\r\n      DIMENSION NCARAY(1),NBARAY(1),YS(1),ZS(1),SG(1),CG(1),\r\n     1          DT(1),WORK(1)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK\r\n      COMMON /DLCOM / NP,NSTRIP,NTP,F,NJJ,NEXT,LENGTH,\r\n     1                INC,INB,IYS,IZS,IEE,ISG,ICG,\r\n     2                IXIC,IDELX,IXLAM,IDT,\r\n     3  ICORE\r\n      I1 = 1\r\n      I2 = NTP\r\n      J1 = 1\r\n      J2 = NTP\r\nC\r\nC     POSITION IN DT TO START OF THIS PART OF MATRIX\r\nC\r\n      IDTPT = I1 + NROW\r\n      DO 10 I = I1,NJJ\r\n   10 DT(I) = (0.0,0.0)\r\nC     DPP LOOP\r\n      K = 1\r\nC     K IS THE PANEL NUMBER\r\n      KS = 1\r\nC     KS IS THE STRIP NUMBER\r\n      NBXR = NCARAY(K)\r\n      DO 60 I = I1,I2\r\n      SGR = SG(KS)\r\n      CGR = CG(KS)\r\n      CALL DPPS(KS,I,J1,J2,SGR,CGR,YS,ZS,NBARAY,NCARAY,DT(IDTPT),WORK)\r\n      CALL PACK(DT,MATOUT,MCB)\r\n      IF(I.EQ.I2) GO TO 60\r\n      IF(I.EQ.NBARAY(K)) K=K+1\r\n      IF(I.EQ.NBXR) GO TO 50\r\n      GO TO 60\r\n   50 CONTINUE\r\n      KS = KS +1\r\n      NBXR = NBXR + NCARAY(K)\r\n   60 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gendsb.f",
    "content": "      SUBROUTINE GENDSB(NCARAY,NBARAY,SG,CG,NFL,NBEA1,NBEA2,IFLA1,\r\n     *   IFLA2,DT,DPZ,DPY)\r\n      INTEGER SCR1,SCR2,SCR3,SCR4,SCR5,ECORE,SYSBUF\r\n      INTEGER Z\r\n      DIMENSION NAME(2)\r\n      DIMENSION NCARAY(1),NBARAY(1),SG(1),CG(1),NFL(1),NBEA1(1)\r\n      DIMENSION NBEA2(1),IFLA1(1),IFLA2(1)\r\n      COMPLEX DT(1),DPZ(1),DPY(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ / Z(1)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /DLBDY/ NJ1,NK1,NP,NB,NTP,NBZ,NBY,NTZ,NTY,NTO,NTZS,NTYS,\r\n     *   INC,INS,INB,INAS,IZIN,IYIN,INBEA1,INBEA2,INSBEA,IZB,IYB,\r\n     *   IAVR,IARB,INFL,IXLE,IXTE,INT121,INT122,IZS,IYS,ICS,IEE,ISG,\r\n     *   ICG,IXIJ,IX,IDELX,IXIC,IXLAM,IA0,IXIS1,IXIS2,IA0P,IRIA,\r\n     *   INASB,IFLAX,IFLA ,ITH1A,ITH2A,\r\n     *   ECORE,NEXT,SCR1,SCR2,SCR3,SCR4,SCR5,NTBE\r\n      DATA NAME /4HGEND,4HB   /\r\nC   ***   GENERATES THE INFLUENCE COEFFICIENT MATRIX  DT   USING THE\r\nC         FOLLOWING FOUR SUBROUTINES  --  DPPS, DPZY, DZPY,  AND  DYPZ\r\n      NBOX = NTP\r\n      LBO  = 1\r\n      LSO  = 1\r\n      JBO  = 1\r\n      KB   = 0\r\n      KT   = 0\r\n      DO 40 I=1,NTBE\r\n      DPY(I) = (0.0,0.0)\r\n      DT(I) = (0.0,0.0)\r\n   40 CONTINUE\r\n      NBUF = 4\r\n      IF(NTP.EQ.0) NBUF = NBUF - 1\r\n      IF(NTZ.EQ.0) NBUF = NBUF - 1\r\n      IF(NTY.EQ.0) NBUF = NBUF - 2\r\n      IF(NEXT + NBUF*SYSBUF .GT. ECORE) CALL MESAGE(-8,0,NAME)\r\n      IBUF1 = ECORE - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      NSTRIP = 0\r\n      J2 = 0\r\n      I2 = 0\r\n      NYFLAG = 0\r\n      IF(NTP.NE.0) CALL GOPEN(SCR1,Z(IBUF1),1)\r\n      IF(NTP .EQ.0) GO TO 201\r\n      I1   = 1\r\n      I2   = NTP\r\n      J1   = 1\r\n      J2   = NTP\r\nC  DPP-LOOP\r\n      K    = 1\r\nC  K IS THE PANEL NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      KS   = 1\r\nC  KS IS THE STRIP NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      NBXR = NCARAY(K)\r\n      DO  60  I=I1,I2\r\n      SGR  = SG(KS)\r\n      CGR  = CG(KS)\r\n      CALL      DPPSB(  KS,I,J1,J2,SGR,CGR,           Z(IYS),Z(IZS),\r\n     *   NBARAY,NCARAY,DT,Z(1))\r\n      CALL WRITE(SCR1,DT,2*NTP,0)\r\n      IF (I.EQ.I2)  GO TO  60\r\n      IF (I.EQ.NBARAY(K))  K=K+1\r\n      IF (I.EQ.NBXR)  GO TO   50\r\n      GO TO  60\r\n   50 CONTINUE\r\n      KS   = KS+1\r\n      NBXR = NBXR+NCARAY(K)\r\n   60 CONTINUE\r\n      CALL WRITE(SCR1,0,0,1)\r\n      NSTRIP = KS\r\n      NZYSV= 0\r\n      DO  70  J=J1,J2\r\n      DT(J)= (0.0,0.0)\r\n   70 CONTINUE\r\n      NLT1 = 0\r\n      NLT2 = 0\r\n      IF (NTZ.EQ.0)  GO TO  180\r\n      IF(NTY.NE.0) CALL GOPEN(SCR4,Z(IBUF2),1)\r\n      I1   = I2+1\r\n      I2   = I2+NTZ\r\nC  DPZ-LOOP    **    ALSO USED FOR GENERATING THE DPY-MATRIX  --  SEE\r\nC  COMMENT IN  DPY-LOOP  BELOW\r\n   80 CONTINUE\r\n      KB   = KB+1\r\nC  KB  IS THE BODY NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      IZ   = 0\r\n      KT   = KT+1\r\nC  KT  IS THE INDEX OF THE ARRAY OF FIRST-AND-LAST-ELEMENTS FOR THETA-1\r\n      ICOUNT = 1\r\n      IFL    = NFL(KB)\r\n      NZYKB = NBEA2(KB)\r\n      IFIRST = IFLA1(KT)\r\n      ILAST = IFLA2(KT)\r\n      DO  170  I=I1,I2\r\n      DO  90  J=J1,J2\r\n      DPZ(J) = (0.0,0.0)\r\n      DPY(J) = (0.0,0.0)\r\n   90 CONTINUE\r\n      CALL       DPZY(   KB,IZ,I,J1,J2,IFIRST,ILAST,Z(IYB),\r\n     * Z(IZB),Z(IAVR),Z(IARB),Z(ITH1A+NLT1),Z(ITH2A+NLT2),Z(INT121),\r\n     * Z(INT122),NBARAY,NCARAY,NZYKB,DPZ,DPY)\r\n      GO TO  (100,100,110),  NZYKB\r\n  100 CONTINUE\r\n      CALL WRITE(SCR1,DPZ,2*NTP,0)\r\n      IF (NZYKB.EQ.1)  GO TO 120\r\n  110 CONTINUE\r\n      CALL WRITE(SCR4,DPY,2*NTP,0)\r\n  120 CONTINUE\r\n      IF (IZ.EQ.NBEA1(KB) )  GO TO 130\r\n      IF (IZ.EQ.ILAST.AND.ICOUNT.LT.IFL)  GO TO 160\r\n      GO TO  170\r\n  130 CONTINUE\r\n      IZ     = 0\r\n      IF (NZYSV.LE.1.AND.NZYKB.GE.2)  GO TO  140\r\n      GO TO  150\r\n  140 CONTINUE\r\n      LBO  = KB\r\n      LSO  = NSTRIP+LBO\r\n      JBO  = I-NBEA1(KB) -NBOX+1\r\n  150 CONTINUE\r\n      NZYSV = NZYKB\r\n      IF(I.EQ.I2) GO TO 180\r\n      KB     = KB+1\r\n      ICOUNT = 0\r\n      IFL    = NFL(KB)\r\n      NZYKB = NBEA2(KB)\r\n  160 CONTINUE\r\n      KT     = KT+1\r\n      ICOUNT = ICOUNT+1\r\n      IFIRST = IFLA1(KT)\r\n      ILAST = IFLA2(KT)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      IF(I2.EQ.NTBE) GO TO 190\r\nC  DPY-LOOP    **    THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES\r\nC  AND USING THE  DPZ-LOOP  ABOVE\r\n      IF(NTZ.EQ.0) CALL GOPEN(SCR4,Z(IBUF2),1)\r\n      I1   = I2+1\r\n      I2 = NTBE\r\n      GO TO 80\r\n  190 CALL WRITE(SCR1,0,0,1)\r\n      IF(NTY.NE.0) CALL WRITE(SCR4,0,0,1)\r\n      CALL CLOSE(SCR1,1)\r\n      CALL CLOSE(SCR4,1)\r\n      I1   = 1\r\n      I2   = NTP\r\n      IF (NTZ.EQ.0)  GO TO  250\r\n      CALL GOPEN(SCR2,Z(IBUF1),1)\r\nC  DZP-LOOP\r\n      K    = 1\r\nC  K  IS THE PANEL NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      KS   = 1\r\nC  KS  IS THE STRIP NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      NBXR = NCARAY(K)\r\n      KB   = 0\r\nC  HERE  KB=0  SERVES AS A FLAG INDICATING THAT THE RECEIVING POINT   I\r\nC  IS ON A PANEL AND NOT   ON A BODY\r\n      J1   = J2+1\r\n      J2   = J2+NTZ\r\n      DO  210  I=I1,I2\r\n      LS   = NSTRIP+1\r\n      SGR  = SG(KS)\r\n      CGR  = CG(KS)\r\n      CALL       DZPY(KB,KS,LS,   I,J1,J2,NYFLAG,          SGR,CGR,\r\n     1           FMACH,   Z(IARB),Z(INBEA1),DT)\r\n      CALL WRITE(SCR2,DT(J1),2*NTZ,0)\r\n      IF (I.EQ.I2)  GO TO  210\r\n      IF (I.EQ.NBARAY(K))  K =K +1\r\n      IF (I.EQ.NBXR)  GO TO  200\r\n      GO TO  210\r\n  200 CONTINUE\r\n      KS   = KS+1\r\n      NBXR = NBXR+NCARAY(K)\r\n  210 CONTINUE\r\n      CALL WRITE(SCR2,0,0,1)\r\n  201 CONTINUE\r\n      IF(NTZ.EQ.0) GO TO 250\r\n      IF(NTP.EQ.0) CALL GOPEN(SCR2,Z(IBUF1),1)\r\n      NYFLAG = 0\r\nC  DZZ-LOOP    **    ALSO USED FOR GENERATING THE  DZY  MATRIX  --  SEE\r\nC  COMMENT IN  DZY-LOOP  BELOW\r\n      KB   = 1\r\nC  KB  IS THE BODY NUMBER ASSOCIATED WITH RECEIVING POINT  I\r\n      KS   = NSTRIP+1\r\n      IZ   = 0\r\n      I1   = I2+1\r\n      I2   = I2+NTZ\r\n      SGR  = 0.0\r\n      CGR  = 1.0\r\n  220 CONTINUE\r\n      LS   = NSTRIP+1\r\n      LSX  = LS\r\n      DO  240  I=I1,I2\r\n      LS   = LSX\r\n      IZ   = IZ+1\r\nC  KS IS THE INDEX OF THE Y  AND  Z  COORDINATES OF RECEIVING POINT I\r\nC  IN THE  DZZ-LOOP  KS RUNS FROM  (NSTRIP+1)  THROUGH  (NSTRIP+NBZ)\r\nC  IN THE  DZY-LOOP  KS  RUNS FROM  (NSTRIP+NB-NBY+1) THROUGH  NSTRIP+NB\r\n      CALL       DZPY(KB,KS,LS,   I,J1,J2,NYFLAG,          SGR,CGR,\r\n     1           FMACH,   Z(IARB),Z(INBEA1),DT)\r\n      CALL WRITE(SCR2,DT(J1),2*NTZ,0)\r\n      IF (IZ.EQ.NBEA1(KB) )  GO TO  230\r\n      GO TO  240\r\n  230 CONTINUE\r\n      IZ   = 0\r\n      KB   = KB+1\r\n      KS   = KS+1\r\n  240 CONTINUE\r\n      CALL WRITE(SCR2,0,0,1)\r\n      IF(NTY.EQ.0) CALL CLOSE(SCR2,1)\r\n      IF (NTY.EQ.0)  GO TO 320\r\n      IF (NYFLAG.NE.0)  GO TO  250\r\nC  DZY-LOOP    **    THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES\r\nC  AND USING THE  DZZ-LOOP  ABOVE\r\n      I1 = NTBE-NTY+1\r\n      I2 = NTBE\r\n      NYFLAG = 1\r\n      KB   = LBO\r\n      KS   = LSO\r\n      SGR  =-1.0\r\n      CGR  = 0.0\r\n      GO TO  220\r\n  250 CONTINUE\r\n      CALL CLOSE(SCR2,1)\r\n      IF (NTY.EQ.0)  GO TO 320\r\n      CALL GOPEN(SCR3,Z(IBUF1),1)\r\n      I1   = 1\r\n      I2   = NTP\r\n      J1 = NTBE-NTY+1\r\n      J2 = NTBE\r\n      IF(NTP.EQ.0) GO TO 275\r\nC  DYP-LOOP\r\n      K    = 1\r\n      KS   = 1\r\n      KB   = 0\r\n      NBXR = NCARAY(K)\r\n      SGR  = SG(KS)\r\n      CGR  = CG(KS)\r\n      DO  270  I=I1,I2\r\n      CALL       DYPZ(KB,KS,LS,   I,J1,J2,NYFLAG,          SGR,CGR,\r\n     1           FMACH,   Z(IARB),Z(INBEA1),          LBO,LSO,JBO,DT)\r\n      CALL WRITE(SCR3,DT(J1),2*NTY,0)\r\n      IF (I.EQ.NBARAY(K))  K=K+1\r\n      IF (I.EQ.NBXR)  GO TO  260\r\n      GO TO  270\r\n  260 CONTINUE\r\n      KS   = KS+1\r\n      NBXR = NBXR+NCARAY(K)\r\n      SGR  = SG(KS)\r\n      CGR  = CG(KS)\r\n  270 CONTINUE\r\n      CALL WRITE(SCR3,0,0,1)\r\n  275 CONTINUE\r\n      NYFLAG = 0\r\n      IZ   = 0\r\n      IF (NTZ.EQ.0)  GO TO  310\r\nC  DYZ-LOOP    **    ALSO USED FOR GENERATING THE  DYY  MATRIX  --  SEE\r\nC  COMMENT IN  DYY-LOOP  BELOW\r\n      I1   = I2+1\r\n      I2   = I2+NTZ\r\n      KS   = NSTRIP+1\r\n      KB   = 1\r\n      SGR  = 0.0\r\n      CGR  = 1.0\r\n  280 CONTINUE\r\n      DO  300  I=I1,I2\r\n      LS   = LSO\r\n      IZ   = IZ+1\r\n      CALL       DYPZ(KB,KS,LS,   I,J1,J2,NYFLAG,          SGR,CGR,\r\n     1           FMACH,   Z(IARB),Z(INBEA1),          LBO,LSO,JBO,DT)\r\n      CALL WRITE(SCR3,DT(J1),2*NTY,0)\r\n      IF (IZ.EQ.NBEA1(KB) )  GO TO  290\r\n      GO TO  300\r\n  290 CONTINUE\r\n      IZ   = 0\r\n      KB   = KB+1\r\n      KS   = KS+1\r\n  300 CONTINUE\r\n      CALL WRITE(SCR3,0,0,1)\r\n  310 CONTINUE\r\n      IF (NYFLAG.NE.0)  GO TO 320\r\nC  DYY-LOOP    **    THIS LOOP IS REDUCED TO SETTING THE CORRECT INDICES\r\nC  AND USING THE  DYZ-LOOP  ABOVE\r\n      IF(NTP.EQ.0.AND.NTZ.EQ.0) CALL GOPEN(SCR3,Z(IBUF1),1)\r\n      I1 = NTBE-NTY+1\r\n      I2 = NTBE\r\n      NYFLAG = 1\r\n      KB   = LBO\r\n      KS   = LSO\r\n      SGR  =-1.0\r\n      CGR  = 0.0\r\n      GO TO  280\r\n  320 CONTINUE\r\n      CALL CLOSE(SCR3,1)\r\nC\r\nC     BUILD SCR5 WITH GEND PART OF A MATRIX\r\nC\r\n      I1   = 1\r\n      I2   = NTP+NTZ\r\n      NYFLAG = 0\r\n      CALL GOPEN(SCR5,Z(IBUF1),1)\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      IF(NTZ.NE.0) CALL GOPEN(SCR2,Z(IBUF3),0)\r\n      IF(NTY.NE.0) CALL GOPEN(SCR3,Z(IBUF4),0)\r\n      ITAPE = SCR1\r\n      IF(I2.EQ.0) GO TO 365\r\n  330 IF(NTP.NE.0) CALL GOPEN(ITAPE,Z(IBUF2),0)\r\n      DO 360  I=I1,I2\r\n      J1   = 1\r\n      J2   = NTP\r\n      IF(NTP.NE.0) CALL FREAD(ITAPE,DT,2*J2,0)\r\n      IF(I.EQ.NTP) CALL FREAD(ITAPE,0,0,1)\r\n      IF (NTZ.EQ.0)  GO TO 340\r\n      J1   = J2+1\r\n      J2   = J2+NTZ\r\n      CALL FREAD(SCR2,DT(J1),2*NTZ,0)\r\n      IF(I.EQ.NTP) CALL FREAD(SCR2,0,0,1)\r\n  340 CONTINUE\r\n      IF (NTY.EQ.0)  GO TO 350\r\n      J1   = J2+1\r\n      J2 = J2+NTY\r\n      CALL FREAD(SCR3,DT(J1),2*NTY,0)\r\n      IF(I.EQ.NTP) CALL FREAD(SCR3,0,0,1)\r\n  350 CONTINUE\r\n      CALL WRITE(SCR5,DT,2*J2,0)\r\n  360 CONTINUE\r\n      IF (NTY.EQ.0)  GO TO 370\r\n      IF (NYFLAG.NE.0)  GO TO 370\r\n      IF(NTZ.NE.0.AND.NTP.NE.0)CALL FREAD(SCR2,0,0,1)\r\n      IF(NTY.NE.0.AND.NTP.NE.0)CALL FREAD(SCR3,0,0,1)\r\n      CALL CLOSE(ITAPE,1)\r\n  365 CONTINUE\r\n      NYFLAG = 1\r\n      I1   = I2+1\r\n      I2   = I2+NTY\r\n      ITAPE = SCR4\r\n      GO TO 330\r\n  370 CONTINUE\r\n      CALL WRITE(SCR5,0,0,1)\r\n      CALL CLOSE(SCR1,1)\r\n      CALL CLOSE(SCR2,1)\r\n      CALL CLOSE(SCR3,1)\r\n      CALL CLOSE(SCR4,1)\r\n      CALL CLOSE(SCR5,1)\r\n      CALL DMPFIL(SCR5,Z(NEXT),ECORE-NEXT-100)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/genpar.f",
    "content": "      SUBROUTINE GENPAR\r\nC\r\nC     GENERATES PARTITIONING VECTORS FOR DDAM SO THAT ONLY THE FIRST\r\nC     LMODES MODES WILL BE USED, NOT NECESSARILY ALL THE ONES FOUND ON\r\nC     THE PREVIOUS EIGENVALUE RUN. LMODES MUST BE GREATER THAN ZERO.\r\nC     IF LMODES IS GREATER THAN THE NUMBER FOUND(OBTAINED FROM PF), IT\r\nC     IS REDUCED TO THE NUMBER PREVIOUSLY FOUND\r\nC\r\nC     GENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/V,N,NMODES $\r\nC     SAVE NMODES $\r\nC\r\n      INTEGER         PF,CPLAMB,RPLAMB,RPPF,CPMP,BUF1,SYSBUF,OTPE\r\n      DIMENSION       IZ(1),MCB(7),NAM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / LMODES,NMODES\r\n      COMMON /PACKX / IN,IOUT,II,NN,INCR\r\n      COMMON /SYSTEM/ SYSBUF,OTPE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    PF,RPLAMB,CPLAMB,RPPF,CPMP / 101,201,202,203,204 /\r\n      DATA    NAM   / 4HGENP,4HART /\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      LCORE = BUF1 - 1\r\n      IF (LCORE .LT. 5) GO TO 1008\r\nC\r\n      IN   = 1\r\n      IOUT = 1\r\n      II   = 1\r\n      INCR = 1\r\nC\r\n      IF (LMODES .LE. 0) GO TO 500\r\n      MCB(1) = PF\r\n      CALL RDTRL (MCB)\r\n      NMODES = MCB(3)\r\n      NDIR   = MCB(2)\r\n      IF (LMODES .GT. NMODES) LMODES=NMODES\r\nC\r\nC     GENERATE ROW PARTITIONING VECTOR FOR LAMB MATRIX TO PICK OFF THE\r\nC     2ND COLUMN, WHICH IS THE COLUMN OF RADIAN FREQUENCIES. THEN\r\nC     TRUNCATE THE COLUMN TO LMODES SIZE\r\nC\r\n      IF (LCORE .LT. NMODES) GO TO 1008\r\n      CALL GOPEN (CPLAMB,Z(BUF1),1)\r\n      NN = 0\r\n      Z(   1) = 0.\r\n      Z(NN+2) = 1.\r\n      Z(NN+3) = 0.\r\n      Z(NN+4) = 0.\r\n      Z(NN+5) = 0.\r\n      NN = 5\r\n      MCB(1) = CPLAMB\r\n      MCB(2) = 0\r\n      MCB(3) = 5\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL PACK (Z,CPLAMB,MCB)\r\n      CALL CLOSE (CPLAMB,1)\r\n      CALL WRTTRL (MCB)\r\nC\r\n      CALL GOPEN (RPLAMB,Z(BUF1),1)\r\n      DO 10 I = 1,LMODES\r\n   10 Z(I) = 1.\r\n      IF (LMODES .EQ. NMODES) GO TO 30\r\n      L1 = LMODES + 1\r\n      DO 20 I = L1,NMODES\r\n   20 Z(I) = 0.\r\n   30 NN = NMODES\r\n      MCB(1) = RPLAMB\r\n      MCB(2) = 0\r\n      MCB(3) = NMODES\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL PACK (Z,RPLAMB,MCB)\r\n      CALL CLOSE (RPLAMB,1)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ROW PARTITION FOR PF\r\nC\r\n      CALL GOPEN (RPPF,Z(BUF1),1)\r\n      MCB(1) = RPPF\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL PACK (Z,RPPF,MCB)\r\n      CALL CLOSE (RPPF,1)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     COLUMN PARTITION FOR MP-SAME AS ROW PARTITION FOR PREVIOUS FILES\r\nC\r\n      CALL GOPEN (CPMP,Z(BUF1),1)\r\n      MCB(1) = CPMP\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL PACK (Z,CPMP,MCB)\r\n      CALL CLOSE (CPMP,1)\r\n      CALL WRTTRL (MCB)\r\nC\r\n      RETURN\r\n  500 WRITE  (OTPE,501) UFM\r\n  501 FORMAT (A23,', LMODES PARAMETER MUST POSITIVE')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n 1008 CALL MESAGE (-8,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/genvec.f",
    "content": "      SUBROUTINE GENVEC (*,IBUF,FILEA,NX,IX,NCOL,B,BBAR,C,CBAR,R,IENTRY)\r\nC\r\nC     GENVEC WILL PICK THE OPTIMUM VALUE OF B AND BBAR FOR A GIVEN\r\nC     MATRIX\r\nC\r\n      INTEGER         FILEA(1)  ,NAME(2)  ,BMAX     ,CMAX     ,\r\n     1                IX(2)     ,RSP      ,EOL      ,SYSBUF   ,\r\n     2                B         ,BBAR     ,C        ,CBAR     ,\r\n     3                R         ,BB       ,CC       ,BBR      ,\r\n     4                CCR       ,RRR      ,BBR1     ,CCR1     ,\r\n     5                BBR2      ,CCR2     ,RR1      ,RR2      ,\r\n     6                P         ,DBNAME(2),FINDC    ,NAMIN(2,2)\r\n      DIMENSION       IBUF(1)   ,XMB(2)\r\n      CHARACTER       UFM*23    ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG / UFM       ,UWM      ,UIM\r\n      COMMON /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                REW       ,NOREW    ,EOFNRW   ,RSP\r\n      COMMON /ZNTPKX/ IA(4)     ,II       ,EOL\r\nC     COMMON /DESCRP/ LENGTH    ,MAJOR(1)\r\n      COMMON /NTIME / LNTIME    ,TCONS(15)\r\n      COMMON /SYSTEM/ ISTV(65)\r\n      COMMON /DCOMPX/ DUM(35)   ,ISYM\r\n      EQUIVALENCE     (ISTV( 1),SYSBUF)   ,(ISTV( 2),NOUT  )  ,\r\n     1                (ISTV(55),P     )   ,(TCONS(8),XMB(1))\r\n      DATA    NAME  / 4HGENV,4HEC  /  ,CMAX / 200 /,\r\n     1        NAMIN / 4H REA,1HL   ,4HCOMP,3HLEX  /\r\nC\r\nC\r\n      CALL FNAME (FILEA,DBNAME)\r\n      CALL SSWTCH (11,L11)\r\n      IF (L11 .NE. 0) WRITE (NOUT,6) FILEA\r\n    6 FORMAT ('O*** DIAG 11 OUTPUT FROM GENVEC (UNSYMMETRIC DECOMP) FOR'\r\n     1,       ' FILE',I6 , /9X,1HB,6X,4HBBAR,9X,1HC,6X,4HCBAR,9X,1HR,3X,\r\n     2        4HTIME )\r\nC\r\n      BMAX = MIN0(IFIX(1.0E+05/SQRT(FLOAT(NCOL)*XMB(P))),NCOL)\r\n      IFILE= FILEA(1)\r\n      CALL OPEN (*280,FILEA(1),IBUF,RDREW)\r\n      I1   = NCOL\r\n      I4   = 4*NCOL + 2*CMAX\r\n      ICRQ = I4 - NX + SYSBUF\r\n      IF (I4 .GT. NX-SYSBUF) GO TO 300\r\n      DO 10 I = 1,I4\r\n   10 IX(I) = 0\r\n      NMAX  = 0\r\n      MMAX  = 0\r\n      CALL FWDREC (*290,FILEA(1))\r\nC\r\nC     GENERATE THE ROW AND COLUMN VECTORS\r\nC\r\n      DO 60 I = 1,NCOL\r\n      CALL INTPK (*320,FILEA(1),0,RSP,0)\r\n      CALL ZNTPKI\r\n      IN1  = I1 + I\r\n      IX(IN1) = II\r\n      NMAX = MAX0(NMAX,I-II+1)\r\n   20 IF (IX(II)) 40,30,40\r\n   30 IX(II) = I\r\n      MMAX = MAX0(MMAX,II-I+1)\r\n   40 IF (EOL) 60,50,60\r\n   50 CALL ZNTPKI\r\n      GO TO 20\r\n   60 CONTINUE\r\n      CALL CLOSE (FILEA(1),REW)\r\n      I2   = I1 + NCOL + 1\r\n      I3   = I2 + 2*NCOL\r\n      NMAX = MIN0(NMAX,BMAX)\r\n      MMAX = MIN0(MMAX,BMAX)\r\n      MMAX = MAX0(MMAX,2)\r\nC\r\nC     SET UP ACTIVE COLUMN BANDWIDTH VECTOR\r\nC\r\n      DO 100 I = 2,NCOL\r\n      J = NCOL - I + 1\r\n      ICOUNT = 0\r\n      DO 90 K = 1,J\r\n      L = I2 - K\r\n      IF (IX(L)-I) 70,80,80\r\n   70 ICOUNT = ICOUNT + 1\r\n   80 L = I2 + (J-K)*2\r\n   90 IX(L) = MAX0(IX(L),ICOUNT)\r\n  100 CONTINUE\r\nC\r\nC     REDUCE LIST TO UNIQUE PAIRS\r\nC\r\n      I = I2\r\n      J = I2 + 2\r\n      K = 2\r\n  110 IF (IX(J) .EQ. 0) GO TO 140\r\n      IF (IX(J) -IX(I)) 120,130,120\r\n  120 I = I + 2\r\n      IX(I  ) = IX(J)\r\n      IX(I+1) = K\r\n  130 J = J + 2\r\n      K = K + 1\r\n      GO TO 110\r\n  140 CONTINUE\r\n      I = I + 2\r\n      IX(I  ) = 0\r\n      IX(I+1) = K\r\n      ILAST   = 0\r\nC\r\nC     BEGIN SEARCH FOR B,BBAR\r\nC\r\n      TIME = 1000000.\r\n      B    = 0\r\n      BBAR = 0\r\n      C    = 0\r\n      CBAR = 0\r\n  150 BB = IX(I+1)\r\n      IF (BB .LE. BMAX) GO TO 155\r\n      I  = I - 2\r\n      GO TO 150\r\n  155 CONTINUE\r\nC\r\nC    MAKE PRELIMINARY SEARCH\r\nC\r\n      TT1 = 1000000.\r\n  156 CONTINUE\r\n      BB  = IX(I+1)\r\n      CC  = IX(I) + 1\r\n      IF (CC .EQ. 1) CC = 0\r\n      BBR = BB\r\n      CCR = CC\r\n      CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR)\r\n      RRR = MIN0(RRR,BB+BBR-1,NCOL-1)\r\n      IF (RRR .LT. 2) GO TO 157\r\n      CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR),\r\n     1             IENTRY,NCOL,TT)\r\n      IF (ILAST .EQ. 0) ILAST = I\r\n      IF (L11   .EQ. 0) GO TO 1500\r\n      WRITE  (NOUT,151) BB,BBR,CC,CCR,RRR,TT\r\n  151 FORMAT (5I10,F10.2)\r\n 1500 CONTINUE\r\n      IF (TT .GT. TT1) GO TO 157\r\n      TT1  = TT\r\n      BBR1 = BBR\r\n      CCR1 = CCR\r\n      RR1  = RRR\r\n  157 I    = I - 2\r\n      IF (BB .LT.   3) GO TO 158\r\n      IF (I .GE. I2+2) GO TO 156\r\n  158 CONTINUE\r\n      I  = I + 2\r\n      IF (TT1 .EQ. 1000000.)GO TO 300\r\n      BB = BBR1\r\n      CC = CCR1\r\n      TT1= 1000000.\r\nC\r\nC     SEARCH ON INCREASING BBAR\r\nC\r\n  159 BBR = BB\r\n      INCRXX = MAX1(.02*FLOAT(BB),1.)\r\n  160 CCR = FINDC(BB,BBR,NCOL,IX(1),IX(I3))\r\n      CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR)\r\n      RRR = MIN0(RRR,BB+BBR-1)\r\n      RRR = MIN0(RRR,NCOL-1)\r\n      IF (RRR .LT. 2) GO TO 170\r\n      CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR),\r\n     1             IENTRY,NCOL,TT)\r\n      IF (L11 .EQ. 0) GO TO 1600\r\n      WRITE (NOUT,151) BB,BBR,CC,CCR,RRR,TT\r\n 1600 CONTINUE\r\n      IF (TT1 .EQ. 1000000.) TT1 = TT\r\n      IF (TT  .GT. TT1) GO TO 170\r\n      TT1  = TT\r\n      BBR1 = BBR\r\n      CCR1 = CCR\r\n      RR1  = RRR\r\n  170 CONTINUE\r\n      BBR = BBR + INCRXX\r\n      IF (TT .GT. 1.2*TT1) GO TO 180\r\n      IF (CCR  .EQ.     0) GO TO 180\r\n      IF (BBR  .LT.  BMAX) GO TO 160\r\nC\r\nC     BEGIN SEARCH ON DECREASING BBAR\r\nC\r\n  180 TT2 = 1000000.\r\n      BBR = BB - INCRXX\r\n  190 IF (BBR .LE. 2 ) GO TO 210\r\n      CCR = FINDC(BB,BBR,NCOL,IX(1),IX(I3))\r\n      CALL RCORE (BB,BBR,CC,CCR,NCOL,IENTRY,NX,RRR)\r\n      RRR = MIN0(RRR,BB+BBR-1)\r\n      RRR = MIN0(RRR,NCOL-1)\r\n      IF (RRR .LT. 2) GO TO 200\r\n      CALL TIMEEQ (FLOAT(BB),FLOAT(BBR),FLOAT(CC),FLOAT(CCR),FLOAT(RRR),\r\n     1             IENTRY,NCOL,TT)\r\n      IF (L11 .EQ. 0) GO TO 195\r\n      WRITE (NOUT,151) BB,BBR,CC,CCR,RRR,TT\r\n  195 CONTINUE\r\n      IF (TT2 .EQ. 1000000.) TT2 = TT\r\n      IF (TT  .GT. TT2) GO TO 200\r\n      TT2  = TT\r\n      BBR2 = BBR\r\n      CCR2 = CCR\r\n      RR2  = RRR\r\n  200 CONTINUE\r\n      BBR  = BBR - INCRXX\r\n      IF (TT .GT. 1.20*TT2) GO TO 210\r\n      GO TO 190\r\n  210 CONTINUE\r\n      IF (TT1 .GE. TIME) GO TO 220\r\n      TIME = TT1\r\n      B    = BB\r\n      C    = CC\r\n      BBAR = BBR1\r\n      CBAR = CCR1\r\n      R    = RR1\r\n  220 IF (TT2 .GE. TIME) GO TO 230\r\n      TIME = TT2\r\n      B    = BB\r\n      C    = CC\r\n      BBAR = BBR2\r\n      CBAR = CCR2\r\n      R    = RR2\r\n  230 IF (TT1.EQ.1000000. .AND. TT2.EQ.1000000.) GO TO 275\r\n      IB = B\r\n      IC = C\r\n      IBBAR = BBAR\r\n      ICBAR = CBAR\r\n      IR    = R\r\n      IX(1) = C\r\n      IX(2) = R\r\n      CALL PAGE2 (4)\r\n      WRITE  (NOUT,240) UIM,B,BBAR,C,CBAR,R\r\n  240 FORMAT (A29,' 3028',6X,3HB =,I5,5X,6HBBAR =,I5, /40X,3HC =,I5,5X,\r\n     1       6HCBAR =,I5, /40X,3HR =,I5)\r\n      CALL TFIN (FLOAT(B),FLOAT(BBAR),FLOAT(C),FLOAT(CBAR),FLOAT(R),\r\n     1           IENTRY,FLOAT(NCOL),TIME)\r\n      IX(1) = TIME\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,250) UIM,NAMIN(1,IENTRY),NAMIN(2,IENTRY),DBNAME,NCOL,\r\n     1                  IX(1)\r\n  250 FORMAT (A29,' 3027, UNSYMMETRIC ',2A4,' DECOMPOSITION OF DATA ',\r\n     1       'BLOCK ',2A4,6H (N = ,I5,1H), /5X,'TIME ESTIMATE = ',I8,\r\n     2       8H SECONDS)\r\n      CALL TMTOGO (IXY)\r\n      IF (IXY .LT. IX(1)) CALL MESAGE (-50,IX(1),NAME)\r\n      RETURN\r\nC\r\nC     TRY TO FIND POSSIBLE SOLUTION WITHIN FEASIBLE RANGE BY VARYING  BB\r\nC\r\n  275 I  = I + 2\r\n      IF (I .GT. ILAST) GO TO 300\r\n      BB = IX(I+1)\r\n      CC = IX(I) + 1\r\n      IF (BB .GT. BMAX) GO TO 300\r\n      GO TO 159\r\n  280 NO = -1\r\n      GO TO 310\r\n  290 NO = -2\r\n      GO TO 310\r\n  300 NO = -8\r\n      IFILE = ICRQ\r\n  310 CALL MESAGE (NO,IFILE,NAME)\r\n      RETURN\r\nC\r\nC     NULL COLUMN DISCOVERED\r\nC\r\n  320 WRITE  (NOUT,325) UFM,I,NAMIN(1,IENTRY),NAMIN(2,IENTRY)\r\n  325 FORMAT (A23,' 3097, COLUMN',I7,' IS SINGULAR.  UNSYMMETRIC ',2A4,\r\n     1       'DECOMP ABORTED.')\r\n      RETURN 1\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/getblk.f",
    "content": "      SUBROUTINE GETBLK (IOLD,INEW)\r\nC\r\nC     FINDS A FREE BLOCK INEW.  IF IOLD IS NOT ZERO IOLD POINTER WILL\r\nC     BE SET TO INEW.\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         DITUP,NXTUP,NXTRST\r\n      INTEGER         BUF,DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,ORF,\r\n     1                BLKSIZ,DIRSIZ,SUPSIZ,FILSIZ,AVBLKS,ANDF,RSHIFT,\r\n     2                FILNUM,TPFREE,BTFREE,FILIND,FILSUP,NMSBR(2)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDIDUM(4),\r\n     2                NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR,\r\n     3                DITUP,MDIUP,NXTUP,NXTRST\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10)\r\n      COMMON /SYSTEM/ NBUFF\r\n      DATA   IRD    , IWRT / 1, 2    /\r\n      DATA   INDSBR / 11   /,  NMSBR / 4HGETB,4HLK  /\r\nC\r\nC     CHECK IF THE SUPERBLOCK NXTCUR HAS A FREE BLOCK.\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      LMASK = LSHIFT(JHALF,IHALF)\r\n    5 IF (NXTCUR .EQ. NXTLBN) GO TO 40\r\nC\r\nC     THE SUPERBLOCK NXTCUR IS NOT IN CORE.\r\nC\r\n      IF (NXTLBN .EQ. 0) GO TO 10\r\nC\r\nC     THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY A BLOCK OF NXT.\r\nC\r\n      IF (.NOT.NXTUP) GO TO 20\r\nC\r\nC     THE BLOCK OF THE ARRAY NXT WHICH IS NOW IN CORE HAS BEEN UPDATED,\r\nC     MUST THEREFORE WRITE IT OUT BEFORE READING IN A NEW BLOCK.\r\nC\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP = .FALSE.\r\n      GO TO 20\r\n   10 IF (DITPBN .EQ. 0) GO TO 20\r\nC\r\nC     THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY A BLOCK OF DIT.\r\nC\r\n      IF (.NOT.DITUP) GO TO 15\r\nC\r\nC     THE DIT BLOCK WHICH IS NOW IN CORE HAS BEEN UPDATED, MUST\r\nC     THEREFORE WRITE IT OUT BEFORE READING IN A NEW BLOCK.\r\nC\r\n      CALL SOFIO (IWRT,DITPBN,BUF(DIT-2))\r\n      DITUP  = .FALSE.\r\n   15 DITPBN = 0\r\n      DITLBN = 0\r\nC\r\nC     READ INTO CORE THE DESIRED BLOCK OF THE ARRAY NXT.\r\nC\r\n   20 NXTLBN = NXTCUR\r\n      NXTPBN = 0\r\n      LEFT   = NXTLBN\r\n      DO 25 I = 1,NFILES\r\n      IF (LEFT .GT. NXTFSZ(I)) GO TO 23\r\n      FILNUM = I\r\n      GO TO 30\r\n   23 NXTPBN = NXTPBN + FILSIZ(I)\r\n      LEFT   = LEFT - NXTFSZ(I)\r\n   25 CONTINUE\r\n      GO TO 510\r\n   30 NXTPBN = NXTPBN + (LEFT-1)*SUPSIZ + 2\r\n      CALL SOFIO (IRD,NXTPBN,BUF(NXT-2))\r\nC\r\nC     CHECK THE FREE LIST OF SUPERBLOCK NXTCUR.\r\nC\r\n   40 TPFREE = RSHIFT(BUF(NXT+1),IHALF)\r\n      IF (TPFREE .GT. 0) GO TO 180\r\nC\r\nC     THE SUPERBLOCK NXTCUR DOES NOT HAVE ANY FREE BLOCKS.\r\nC\r\n      IF (NXTCUR .EQ. NXTTSZ) GO TO 50\r\n      NXTCUR = NXTCUR + 1\r\n      GO TO 5\r\nC\r\nC     NXTCUR IS THE LAST SUPERBLOCK.\r\nC\r\n   50 IF (NXTRST) GO TO 60\r\n      NXTCUR = 1\r\n      NXTRST = .TRUE.\r\n      GO TO 5\r\nC\r\nC     MUST START A BRAND NEW SUPERBLOCK.\r\nC\r\n   60 NXTRST = .FALSE.\r\n      IF (NXTUP) CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP  = .FALSE.\r\n   70 NXTCUR = NXTCUR + 1\r\n      LEFT   = NXTCUR\r\n      DO 80 I = 1,NFILES\r\n      IF (LEFT .GT. NXTFSZ(I)) GO TO 75\r\n      FILNUM = I\r\n      GO TO 85\r\n   75 LEFT   = LEFT-NXTFSZ(I)\r\n   80 CONTINUE\r\n      NXTCUR = NXTCUR - 1\r\n      GO TO 500\r\n   85 LAST   = NBUFF - 4\r\n      DO 86 I = 1,LAST\r\n      BUF(NXT+I) = 0\r\n   86 CONTINUE\r\n      IF (LEFT .EQ. 1) GO TO 110\r\nC\r\nC     NXTCUR IS NOT THE FIRST SUPERBLOCK ON FILE FILNUM.\r\nC\r\n      NXTPBN = NXTPBN + SUPSIZ\r\n      IF (LEFT .NE. NXTFSZ(FILNUM)) GO TO 120\r\nC\r\nC     NXTCUR IS THE LAST BLOCK ON FILE FILNUM.\r\nC\r\n      LSTSIZ = MOD(FILSIZ(FILNUM)-2,SUPSIZ) + 1\r\n      IF (LSTSIZ .GT. 1) GO TO 90\r\nC\r\nC     THE SIZE OF THE LAST BLOCK ON FILE FILNUM IS EQUAL TO 1.\r\nC     THERE ARE THEREFORE NO FREE BLOCKS AVAILABLE ON SUPERBLOCK NXTCUR.\r\nC     SET TPFREE AND BTFREE OF NXTCUR EQUAL TO ZERO.\r\nC\r\n      BUF(NXT+1) = 0\r\n      AVBLKS = AVBLKS - 1\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      GO TO 70\r\nC\r\nC     THE SIZE OF SUPERBLOCK NXTCUR IS LARGER THAN 1.\r\nC\r\n   90 IF (LSTSIZ .GT. 2) GO TO 100\r\nC\r\nC     THE SIZE OF SUPERBLOCK NXTCUR IS EQUAL TO 2.  THERE IS THEREFORE\r\nC     ONLY ONE FREE BLOCK IN NXTCUR.  SET TPFREE AND BTFREE TO ZERO.\r\nC\r\n      BUF(NXT+1) = 0\r\n      GO TO 170\r\nC\r\nC     THE SIZE OF SUPERBLOCK NXTCUR IS LARGER THAN 2.\r\nC\r\n  100 BTFREE = NXTPBN + LSTSIZ - 1\r\n      GO TO 130\r\nC\r\nC     NXTCUR IS THE FIRST SUPERBLOCK ON FILE FILNUM.\r\nC\r\n  110 LSTSIZ = MOD(FILSIZ(FILNUM-1)-2,SUPSIZ) + 1\r\n      NXTPBN = NXTPBN + LSTSIZ + 1\r\n      AVBLKS = AVBLKS - 1\r\n      IF (FILSIZ(FILNUM) .GE. SUPSIZ+1) GO TO 120\r\n      BTFREE = NXTPBN + FILSIZ(FILNUM) - 2\r\n      GO TO 130\r\n  120 BTFREE = NXTPBN + SUPSIZ - 1\r\nC\r\nC     INITIALIZE THE NEW SUPERBLOCK.\r\nC\r\n  130 TPFREE = NXTPBN + 2\r\nC\r\nC     PUT THE VALUES OF BTFREE AND TPFREE IN THE FIRST WORD OF THE ARRAY\r\nC     NXT BELONGING TO SUPERBLOCK NXTCUR.\r\nC\r\n      BUF(NXT+1) = BTFREE\r\n      BUF(NXT+1) = ORF(BUF(NXT+1),LSHIFT(TPFREE,IHALF))\r\n      IF (MOD(BTFREE,2) .EQ. 1) GO TO 140\r\nC\r\nC     BTFREE IS AN EVEN INTEGER.\r\nC\r\n      MAX = (BTFREE-NXTPBN+2)/2\r\n      BUF(NXT+MAX+1) = 0\r\n      GO TO 150\r\nC\r\nC     BTFREE IS AN ODD INTEGER.\r\nC\r\n  140 MAX = (BTFREE-NXTPBN+1)/2\r\n      BUF(NXT+MAX+1) = LSHIFT(BTFREE,IHALF)\r\nC\r\nC     SET UP THE THREAD THROUGH THE BLOCKS OF SUPERBLOCK NXTCUR.\r\nC\r\n  150 IF (MAX.LT.3) GO TO 170\r\n      DO 160 I = 3,MAX\r\n      BUF(NXT+I) = 2*I + NXTPBN - 2\r\n      BUF(NXT+I) = ORF(BUF(NXT+I),LSHIFT(2*I+NXTPBN-3,IHALF))\r\n  160 CONTINUE\r\nC\r\nC     SETUP VARIABLES RELATED TO THE SUPERBLOCK NXTCUR.\r\nC\r\n  170 BUF(NXT+2) = 0\r\n      INEW   = NXTPBN + 1\r\n      AVBLKS = AVBLKS - 2\r\n      NXTLBN = NXTCUR\r\n      NXTTSZ = NXTCUR\r\n      GO TO 230\r\nC\r\nC     SUPERBLOCK NXTCUR DOES HAVE A FREE BLOCK.\r\nC\r\n  180 INEW   = TPFREE\r\n      AVBLKS = AVBLKS - 1\r\nC\r\nC     COMPUTE THE INDEX OF TPFREE ENTRY IN THE BLOCK OF ARRAY NXT\r\nC     BELONGING TO SUPERBLOCK NXTCUR.\r\nC\r\n      FILIND = TPFREE\r\n      DO 185 I = 1,NFILES\r\n      IF (FILIND .LE. FILSIZ(I)) GO TO 187\r\n      FILIND = FILIND - FILSIZ(I)\r\n  185 CONTINUE\r\n  187 FILSUP = (FILIND-1)/SUPSIZ\r\n      IF (FILIND-1 .EQ. FILSUP*SUPSIZ) GO TO 190\r\n      FILSUP = FILSUP + 1\r\n  190 INDEX  = (FILIND-(FILSUP-1)*SUPSIZ)/2 + 1\r\n      IF (MOD(TPFREE,2) .EQ. 1) GO TO 200\r\nC\r\nC     TPFREE IS AN EVEN INTEGER.  THE ENTRY FOR TPFREE IS THEREFORE\r\nC     IN BITS (IHALF+1) TO (2*IHALF-1) OF THE WORD.  SAVE TPFREE ENTRY\r\nC     IN NXTBLK AND THEN SET IT TO ZERO.\r\nC\r\n      NXTBLK = RSHIFT(BUF(NXT+INDEX),IHALF)\r\n      BUF(NXT+INDEX) = ANDF(BUF(NXT+INDEX),JHALF)\r\n      GO TO 210\r\nC\r\nC     TPFREE IS AN ODD INTEGER.  THE ENTRY FOR TPFREE IS THEREFORE\r\nC     IN BITS 0 TO IHALF OF THE WORD.  SAVE TPFREE ENTRY IN NXTBLK\r\nC     AND THEN SET IT TO ZERO.\r\nC\r\n  200 NXTBLK = ANDF(BUF(NXT+INDEX),JHALF)\r\n      BUF(NXT+INDEX) = ANDF(BUF(NXT+INDEX),LMASK)\r\n  210 BTFREE = ANDF(BUF(NXT+1),JHALF)\r\n      IF (TPFREE .EQ. BTFREE) GO TO 220\r\nC\r\nC     SET TPFREE TO NXTBLK.\r\nC\r\n      BUF(NXT+1) = ORF(ANDF(BUF(NXT+1),JHALF),LSHIFT(NXTBLK,IHALF))\r\n      GO TO 230\r\nC\r\nC     SET TPFREE AND BTFREE TO ZERO.\r\nC\r\n  220 BUF(NXT+1) = 0\r\n  230 IF (IOLD .EQ. 0) GO TO 250\r\nC\r\nC     WANT TO SET IOLD POINTER TO INEW.\r\nC\r\n      NXTUP =.TRUE.\r\n      CALL FNXT (IOLD,IND)\r\n      IF (MOD(IOLD,2) .EQ. 1) GO TO 240\r\nC\r\nC     IOLD IS AN EVEN INTEGER\r\nC\r\n      BUF(IND) = ORF(ANDF(BUF(IND),JHALF),LSHIFT(INEW,IHALF))\r\n      GO TO 250\r\nC\r\nC     IOLD IS AN ODD INTEGER\r\nC\r\n  240 BUF(IND) = ORF(ANDF(BUF(IND),LMASK),INEW)\r\n  250 NXTUP = .TRUE.\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n  500 INEW = -1\r\n      RETURN\r\n  510 CALL ERRMKN (INDSBR,4)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/getdef.f",
    "content": "      SUBROUTINE GETDEF (DFRM,PH,MAG,CONV,PLTTYP,BUF,GPT,D)\r\nC\r\n      INTEGER         DFRM,BUF(1),GPT(1),SILN,REW,SP,GP,GPX,SIL1,SIL2,\r\n     1                TRL(7),TYPE,PLTTYP\r\n      REAL            D(3,1),MAXDEF\r\n      COMMON /BLANK / NGP,LSIL,SKP11(3),NGPSET,SKP12(4),SKP2(6),MSIL\r\n      COMMON /XXPARM/ PBUFSZ,PLOTER(5),PENPAP(30),SCALE(4),MAXDEF\r\n      COMMON /ZNTPKX/ DEFC(4),SILN,LAST\r\n      EQUIVALENCE     (DEFVAL,DEFC(1))\r\n      DATA    INPREW, REW / 0,1 /\r\nC\r\n      LAST = 0\r\n      K    = 3*NGPSET\r\n      DO 10 I = 1,K\r\n   10 D(I,1) = 0.0\r\n      TRL(1) = DFRM\r\n      CALL RDTRL (TRL(1))\r\n      IF (TRL(5) .LE. 0) RETURN\r\n      SP = TRL(5)\r\n      ASSIGN 140 TO TYPE\r\nC\r\nC     NOTE TRANSIENT RESPONSE HAS SP = 1\r\nC\r\n      IF (SP .LT. 3) GO TO 30\r\n      ASSIGN 130 TO TYPE\r\n      IF (MAG .NE. 0) GO TO 30\r\n      ASSIGN 120 TO TYPE\r\n      SN = SIN(PH)*CONV\r\n      CN = COS(PH)*CONV\r\n      IF (PLTTYP .EQ. 2) GO TO 20\r\nC\r\nC     DISPLACEMENT OR ACCELERATION\r\nC\r\n      I1 = 1\r\n      I2 = SP - 1\r\n      IF (PLTTYP.EQ.3 .OR. PLTTYP.EQ.4) CN = -CN\r\n      GO TO 30\r\nC\r\nC     VELOCITY\r\nC\r\n   20 I1 = SP - 1\r\n      I2 = 1\r\n   30 CONTINUE\r\n      MAXDEF = 0.\r\n      CALL INTPK (*170,DFRM,0,SP,0)\r\n      GP   = 0\r\n      SILN = 0\r\n      CALL GOPEN (MSIL,BUF(1),INPREW)\r\n      CALL FREAD (MSIL,SIL2,1,0)\r\nC\r\nC     -GP- = PREVIOUS EXISTENT GRID POINT IN THIS SET. FIND NEXT ONE.\r\nC\r\n   40 K = GP + 1\r\n      DO 50 GPX = K,NGP\r\n      IF (GPT(GPX) .NE. 0) GO TO 60\r\n   50 CONTINUE\r\n      SIL1 = LSIL + 1\r\n      GO TO 100\r\n   60 IF (GPX .NE. GP+1) GO TO 70\r\n      SIL1 = SIL2\r\n      GO TO 80\r\n   70 GP = GP + 1\r\n      CALL FREAD (MSIL,SIL2,1,0)\r\n      GO TO 60\r\nC\r\nC     -SIL1- = SIL NUMBER OF NEXT EXISTENT GRID POINT. READ SIL NUMBER\r\nC              OF NEXT GRID POINT.\r\nC\r\n   80 GP = GPX\r\n      GPX = IABS(GPT(GP))\r\n      IF (GP .EQ. NGP) SIL2 = LSIL + 1\r\n      IF (GP .NE. NGP) CALL FREAD (MSIL,SIL2,1,0)\r\nC\r\nC     READ NEXT DEFORMATION VALUE AT THIS EXISTING GRID POINT.\r\nC\r\n   90 IF (SILN.LE.LSIL .AND. SILN.GE.SIL1) GO TO 150\r\n  100 IF (LAST .NE. 0) GO TO 160\r\n  110 CALL ZNTPKI\r\n      GO TO TYPE, (120,130,140)\r\n  120 DEFVAL = DEFC(I1)*CN - DEFC(I2)*SN\r\n      GO TO 140\r\n  130 DEFVAL = CONV*SQRT(DEFC(1)**2 + DEFC(SP-1)**2)\r\n  140 IF (ABS(DEFVAL) .GT. MAXDEF) MAXDEF = ABS(DEFVAL)\r\n      GO TO 90\r\n  150 IF (SILN.GT.SIL1+2 .OR. SILN.GE.SIL2) GO TO 40\r\n      K = SILN - SIL1 + 1\r\n      D(K,GPX) = DEFVAL\r\n      IF (LAST) 160,110,160\r\nC\r\n  160 CALL CLOSE (MSIL,REW)\r\n  170 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfbs.f",
    "content": "      SUBROUTINE GFBS (X,DX)\r\nC\r\nC     GIVEN THE TRIANGULAR FACTORS FOR A GENERAL MATRIX, GFBS WILL\r\nC     PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE\r\nC     A SYSTEM OF EQUATIONS\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U\r\nC     FILEB    =  MATRIX CONTROL BLOCK FOR THE LOAD   VECTORS B\r\nC     FILEX    =  MATRIX CONTROL BLOCK FOR THE SOLUTION VECTORS X\r\nC     NX       =  NUMBER OF CELLS OF CORE AVAILABLE AT X\r\nC     PREC     =  DESIRED PRECISION OF ARITHMETIC OPERATIONS\r\nC                (1 = SINGLE PRECISION, 2 = DOUBLE PRECISION)\r\nC     ISIGN    =  SIGN TO BE APPLIED TO THE LOAD VECTORS\r\nC     X        =  BLOCK OF CORE AVAILABLE AS WORKING STORAGE\r\nC     DX       =  SAME BLOCK AS X, BUT TYPED DOUBLE PRECISION\r\nC\r\n      INTEGER            FILEL     ,FILEU    ,FILEB    ,FILEX    ,\r\n     1                   TYPEA     ,TYPE1    ,TYPE2    ,FORMB    ,\r\n     2                   SYSBUF    ,PREC     ,EOL      ,TYPEAR   ,\r\n     3                   TYPEX     ,TYPEL    ,RC       ,REW      ,\r\n     4                   TYPEB     ,TRA1     ,TRA2     ,TRA3     ,\r\n     5                   TRA4      ,TRA5     ,PARM(4)  ,CMPLX    ,\r\n     6                   EOFNRW    ,COL      ,FSTCOL   ,CLSOP\r\n      REAL               ZEROS(4)  ,\r\n     1                   SUBNAM(2) ,BUF(2)   ,BEGN     ,END\r\n      DOUBLE PRECISION   DX(1)     ,DA(2)    ,DTEMP\r\n      DIMENSION          X(1)\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM      ,SFM\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT\r\n      COMMON   /TYPE  /  PRC(2)    ,NWDS(4)  ,RC(10)\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /UNPAKX/  TYPEA     ,IXY      ,JXY      ,INCRY\r\n      COMMON   /PACKX /  TYPE1     ,TYPE2    ,IY       ,JY       ,\r\n     1                   INCRX\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /GFBSX /  FILEL(7)  ,FILEU(7) ,FILEB(7) ,FILEX(7) ,\r\n     1                   NX        ,PREC     ,ISIGN\r\n      EQUIVALENCE        (A(1),DA(1))        ,(FILEL(5),TYPEL)   ,\r\n     1                   (FILEL(3),NROW)     ,(FILEX(5),TYPEX)   ,\r\n     2                   (FILEB(4),FORMB)    ,(FILEB(5),TYPEB)\r\n      DATA      PARM(3), PARM(4)  /4HGFBS,4H     /\r\n      DATA      ZEROS /  0., 0., 0., 0. /\r\n      DATA      SUBNAM/  4HGFBS,4H      /, BEGN/ 4HBEGN/, END/ 4HEND /\r\nC\r\n      BUF(1) = SUBNAM(1)\r\n      BUF(2) = BEGN\r\n      CALL CONMSG (BUF,2,0)\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (FORMB .EQ. IDENTY)TYPEB = 1\r\n      TYPEAR = PREC\r\n      IF (RC(TYPEL)+RC(TYPEB)-1 .GT. 1) TYPEAR = PREC + 2\r\n      INCR  = NWDS(TYPEAR)*NROW\r\n      TYPEA = TYPEAR*ISIGN\r\n      TYPE1 = TYPEAR\r\n      TYPE2 = TYPEX\r\n      INCRX = 1\r\n      INCRY = 1\r\n      CMPLX = RC(TYPEAR)\r\n      IOBUF = NX - SYSBUF\r\n      ICOL  = IOBUF - 1\r\n      COL   = 1\r\n      CLSOP = EOFNRW\r\nC\r\nC     SET UP TRANSFER VECTORS FOR THE ARITHMETIC TYPES\r\nC\r\n      GO TO (10,20,30,40), TYPEAR\r\n   10 ASSIGN 120 TO TRA1\r\n      ASSIGN 240 TO TRA2\r\n      ASSIGN 330 TO TRA3\r\n      ASSIGN 430 TO TRA4\r\n      ASSIGN 540 TO TRA5\r\n      GO TO 50\r\n   20 ASSIGN 130 TO TRA1\r\n      ASSIGN 250 TO TRA2\r\n      ASSIGN 340 TO TRA3\r\n      ASSIGN 440 TO TRA4\r\n      ASSIGN 550 TO TRA5\r\n      GO TO 50\r\n   30 ASSIGN 140 TO TRA1\r\n      ASSIGN 260 TO TRA2\r\n      ASSIGN 350 TO TRA3\r\n      ASSIGN 450 TO TRA4\r\n      ASSIGN 560 TO TRA5\r\n      GO TO 50\r\n   40 ASSIGN 150 TO TRA1\r\n      ASSIGN 270 TO TRA2\r\n      ASSIGN 360 TO TRA3\r\n      ASSIGN 460 TO TRA4\r\n      ASSIGN 570 TO TRA5\r\n   50 CONTINUE\r\n      NM = (IOBUF-1)/INCR\r\n      IF (NM .LE. 0) GO TO 640\r\n      NOLOAD = FILEB(2)\r\n      IF (FORMB .EQ. IDENTY)NOLOAD = NROW\r\n      IDENT  = 1\r\n      LSTLOD = NOLOAD\r\nC\r\nC     WRITE OUTPUT HEADER RECORDS AND INITIALIZE MATRIX CONTROL BLOCKS\r\nC\r\n      CALL GOPEN (FILEX,X(IOBUF),1)\r\n      CALL CLOSE (FILEX(1),NOREW)\r\n      FILEX(2) = 0\r\n      FILEX(6) = 0\r\n      FILEX(7) = 0\r\n      IF (FORMB .EQ. IDENTY) GO TO 100\r\nC\r\nC     OPEN THE LOAD FILE AND FILL CORE WITH LOAD VECTORS\r\nC\r\n      CALL GOPEN (FILEB,X(IOBUF),0)\r\n   60 NN  = 0\r\n      KHR = ICOL\r\n      FSTCOL = COL\r\n      L   = 1\r\n      IXY = 1\r\n      JXY = NROW\r\n   70 IF (L+INCR .GE. KHR) GO TO 85\r\n      CALL UNPACK (*80,FILEB,X(L))\r\n      NN  = NN + 1\r\n      X(KHR) = COL\r\n      KHR = KHR - 1\r\n      L   = L + INCR\r\n   80 IF (COL .EQ. LSTLOD) GO TO 90\r\n      COL = COL + 1\r\n      GO TO 70\r\n   85 COL  = COL - 1\r\n   90 NCOL = KHR\r\n      X(NCOL) = LSTLOD + 1\r\n      LSTCOL  = COL\r\n      IF (LSTCOL .EQ. LSTLOD) CLSOP = REW\r\n      CALL CLOSE (FILEB,CLSOP)\r\n      IF (NN .EQ. 0) GO TO 592\r\n      GO TO 180\r\nC\r\nC     GENERATE COLUMNS OF THE IDENTITY MATRIX\r\nC\r\n  100 NN = MIN0(NM,NOLOAD)\r\n      L  = 1\r\n      DO 170 I = 1,NN\r\n      J1 = L\r\n      J2 = J1 + INCR - 1\r\n      DO 110 K = J1,J2\r\n  110 X(K) = 0.\r\n      K = L + IDENT - 1\r\n      GO TO TRA1, (120,130,140,150)\r\n  120 X(K) = 1.\r\n      GO TO 160\r\n  130 K = (L-1)/2 + IDENT\r\n      DX(K) = 1.D0\r\n      GO TO 160\r\n  140 KK = K + IDENT - 1\r\n      X(KK) = 1.\r\n      GO TO 160\r\n  150 KK = (L-1)/2 + 2*IDENT - 1\r\n      DX(KK) = 1.D0\r\n  160 IDENT  = IDENT + 1\r\n  170 L = L + INCR\r\n      FSTCOL = COL\r\n      COL    = IDENT - 1\r\n      LSTCOL = COL\r\n  180 IJK    = 0\r\nC\r\nC     OPEN FILE FOR THE LOWER TRIANGLE\r\nC\r\n      PARM(2) = FILEL(1)\r\n      CALL GOPEN (FILEL,X(IOBUF),0)\r\nC\r\nC     BEGIN FORWARD PASS\r\nC\r\n      J = 1\r\n  190 CALL INTPK (*380,FILEL(1),0,TYPEAR,0)\r\n  200 IF (EOL) 650,210,650\r\n  210 CALL ZNTPKI\r\n      IF (J-II) 310,220,200\r\nC\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC\r\n  220 INTCHN = A(1)\r\n      K = 0\r\n      IF (PREC .EQ. 2) INTCHN = DA(1)\r\n      IN1 = J*CMPLX\r\n      IN2 = IN1 + INTCHN*CMPLX\r\n  230 GO TO TRA2, (240,250,260,270)\r\n  240 TEMP     = X(IN1)\r\n      X(IN1)   = X(IN2)\r\n      X(IN2)   = TEMP\r\n      GO TO 280\r\n  250 DTEMP    = DX(IN1)\r\n      DX(IN1)  = DX(IN2)\r\n      DX(IN2)  = DTEMP\r\n      GO TO 280\r\n  260 TEMP     = X(IN1)\r\n      X(IN1)   = X(IN2)\r\n      X(IN2)   = TEMP\r\n      TEMP     = X(IN1-1)\r\n      X(IN1-1) = X(IN2-1)\r\n      X(IN2-1) = TEMP\r\n      GO TO 280\r\n  270 DTEMP    = DX(IN1)\r\n      DX(IN1)  = DX(IN2)\r\n      DX(IN2)  = DTEMP\r\n      DTEMP    = DX(IN1-1)\r\n      DX(IN1-1) = DX(IN2-1)\r\n      DX(IN2-1) = DTEMP\r\n  280 IN1 = IN1 + NROW*CMPLX\r\n      IN2 = IN2 + NROW*CMPLX\r\n      K   = K + 1\r\n      IF (K-NN) 230,290,290\r\n  290 IF (EOL) 380,300,380\r\n  300 CALL ZNTPKI\r\n  310 K = 0\r\n      IN2 = J*CMPLX\r\n      IN1 = II*CMPLX\r\n  320 K = K + 1\r\n      GO TO TRA3, (330,340,350,360)\r\n  330 X(IN1) = X(IN1) - X(IN2)*A(1)\r\n      GO TO 370\r\n  340 DX(IN1) = DX(IN1) - DX(IN2)*DA(1)\r\n      GO TO 370\r\n  350 X(IN1-1) = X(IN1-1) - A(1)*X(IN2-1) + A(2)*X(IN2  )\r\n      X(IN1  ) = X(IN1  ) - A(1)*X(IN2  ) - A(2)*X(IN2-1)\r\n      GO TO 370\r\n  360 DX(IN1-1) = DX(IN1-1) - DA(1)*DX(IN2-1) + DA(2)*DX(IN2  )\r\n      DX(IN1  ) = DX(IN1  ) - DA(1)*DX(IN2  ) - DA(2)*DX(IN2-1)\r\n  370 IN1 = IN1 + NROW *CMPLX\r\n      IN2 = IN2 + NROW *CMPLX\r\n      IF (K-NN) 320,290,290\r\n  380 J = J + 1\r\n      IF (J .LT. NROW) GO TO 190\r\n      CALL CLOSE (FILEL(1),REW)\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      IOFF = FILEU(7)-1\r\n      PARM(2) = FILEU(1)\r\n      CALL GOPEN (FILEU,X(IOBUF),0)\r\n      J = NROW\r\n  390 CALL INTPK (*650,FILEU(1),0,TYPEAR,0)\r\n      IF (EOL) 650,410,650\r\n  410 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J) GO TO 510\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      IN1 = I*CMPLX\r\n      K   = 0\r\n  420 GO TO TRA4, (430,440,450,460)\r\n  430 X(IN1) = X(IN1)/A(1)\r\n      GO TO 470\r\n  440 DX(IN1) = DX(IN1)/DA(1)\r\n      GO TO 470\r\n  450 TEMP   = (A(1)*X(IN1-1) + A(2)*X(IN1  ))/(A(1)*A(1) + A(2)*A(2))\r\n      X(IN1) = (A(1)*X(IN1  ) - A(2)*X(IN1-1))/(A(1)*A(1) + A(2)*A(2))\r\n      X(IN1-1) = TEMP\r\n      GO TO 470\r\n  460 DTEMP   = (DA(1)*DX(IN1-1) + DA(2)*DX(IN1  ))/(DA(1)**2 +DA(2)**2)\r\n      DX(IN1) = (DA(1)*DX(IN1  ) - DA(2)*DX(IN1-1))/(DA(1)**2 +DA(2)**2)\r\n      DX(IN1-1) = DTEMP\r\n  470 K = K + 1\r\n      IN1 = IN1 + NROW*CMPLX\r\n      IF (K-NN) 420,490,490\r\nC\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC\r\n  480 IF (I .GT. J) GO TO 410\r\n  490 IF (EOL) 590,500,590\r\n  500 CALL ZNTPKI\r\n      I   = NROW - II + 1\r\n  510 IN1 = I*CMPLX\r\n      IN2 = J*CMPLX\r\n      IF (I .LT. J) GO TO 520\r\n      K   = IN1\r\n      IN1 = IN2 - IOFF*CMPLX\r\n      IN2 = K\r\n  520 K   = 0\r\n  530 GO TO TRA5, (540,550,560,570)\r\n  540 X(IN1) = X(IN1) - A(1)*X(IN2)\r\n      GO TO 580\r\n  550 DX(IN1) = DX(IN1) - DX(IN2)*DA(1)\r\n      GO TO 580\r\n  560 X(IN1-1) = X(IN1-1) - A(1)*X(IN2-1) + A(2)*X(IN2  )\r\n      X(IN1  ) = X(IN1  ) - A(1)*X(IN2  ) - A(2)*X(IN2-1)\r\n      GO TO 580\r\n  570 DX(IN1-1) = DX(IN1-1) - DA(1)*DX(IN2-1) + DA(2)*DX(IN2  )\r\n      DX(IN1  ) = DX(IN1  ) - DA(1)*DX(IN2  ) - DA(2)*DX(IN2-1)\r\n  580 IN1 = IN1 + NROW*CMPLX\r\n      IN2 = IN2 + NROW*CMPLX\r\n      K   = K + 1\r\n      IF (K-NN) 530,480,480\r\n  590 J = J - 1\r\n      IF (J .GT. 0) GO TO 390\r\n      CALL CLOSE (FILEU(1),REW)\r\nC\r\nC     OUTPUT LOAD VECTORS\r\nC\r\n  592 CONTINUE\r\n      CALL GOPEN (FILEX,X(IOBUF),WRT)\r\n      L  = 1\r\n      IY = 1\r\n      IF (FORMB .NE. IDENTY) NXTNZ = X(ICOL)\r\n      KHR = ICOL\r\n      DO 600 COL = FSTCOL,LSTCOL\r\n      IF (FORMB .EQ. IDENTY) GO TO 595\r\nC 593 CONTINUE\r\n      IF (COL-NXTNZ) 594,595,901\r\n  594 JY = 1\r\n      CALL PACK (ZEROS,FILEX,FILEX)\r\n      GO TO 600\r\n  595 JY = NROW\r\n      CALL PACK (X(L),FILEX,FILEX)\r\n      L   = L + INCR\r\n      KHR = KHR - 1\r\n      IF (FORMB .NE. IDENTY) NXTNZ = X(KHR)\r\n  600 CONTINUE\r\n      IF (FORMB.NE.IDENTY .AND. KHR.NE.NCOL) GO TO 902\r\n      IF (LSTCOL .EQ. LSTLOD) CLSOP = REW\r\n      CALL CLOSE (FILEX,CLSOP)\r\n      NOLOAD = NOLOAD - (LSTCOL-FSTCOL+1)\r\n      IF (LSTCOL .EQ. LSTLOD) GO TO 670\r\n      COL = LSTCOL + 1\r\n      IF (FORMB .EQ. IDENTY) GO TO 100\r\n      CALL GOPEN (FILEB,X(IOBUF),RD)\r\n      GO TO 60\r\n  640 PARM(1) = -8\r\n      GO TO 660\r\n  650 PARM(1) = -5\r\n  660 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n  670 IF (FILEX(2) .NE. LSTLOD) GO TO 903\r\n      BUF(1) = SUBNAM(1)\r\n      BUF(2) = END\r\n      CALL CONMSG (BUF,2,0)\r\n      RETURN\r\nC\r\nC     LOGIC ERRORS LAND HERE\r\nC\r\n  901 KERR = 593\r\n      GO TO 997\r\n  902 KERR = 600\r\n      GO TO 997\r\n  903 KERR = 670\r\n      GO TO 997\r\n  997 WRITE  (NOUT,998) SFM,KERR\r\n  998 FORMAT (A25,I4,' - LOGIC ERROR IN GFBS')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfscom.f",
    "content": "      SUBROUTINE GFSCOM(AWY,NUY,KC,IDENT,AC,SCR)\r\nC\r\nC     ROUTINE TO COMPUTE THE FLUID COMPRESSIBILTY MATRIX\r\nC\r\nC     THIS MATRIX CONTAINS THE SPRING FACTOR WHICH COUPLES THE\r\nC     STRUCTURE AND FREE SURFACE TO PREVENT VOLUME CHANGES\r\nC\r\n      DOUBLE PRECISION        DZ(1)    ,DKCOMP   ,VAL\r\nC\r\n      REAL          KCOMP    ,RZ(1)\r\nC\r\n      INTEGER       KC       ,AC       ,Z        ,SYSBUF   ,AWY\r\n     1             ,MCB(7)   ,NAME(2)  ,TI1      ,TO1      ,TO2\r\n     2             ,SCR\r\nC\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK/     NOGRAV   ,NOFREE   ,KCOMP   ,COMPTP\r\n     1                       ,FORM     ,LMODES\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC     PACK - UNPACK COMMON BLOCKS\r\nC\r\n      COMMON / PACKX /        TI1      ,TO1      ,I1       ,N1\r\n     1                       ,INCR1\r\n      COMMON / UNPAKX /       TO2      ,I2       ,N2       ,INCR2\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\nC\r\n      EQUIVALENCE   ( Z(1) , RZ(1) , DZ(1) )\r\n     1             ,( VAL , A(1) )\r\nC\r\n      DATA NAME / 4HGFSC , 4HOM   /\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      NZ = KORSZ(Z(1))\r\n      IBUF = NZ - SYSBUF\r\n      NZ = IBUF - 1\r\n      IF(NZ .LT. NUY) GO TO 1008\r\nC\r\nC     FORM A COLUMN VECTOR OF ONES\r\nC\r\n      TI1 = 1\r\n      TO1 = 2\r\n      I1 = 1\r\n      N1 = NUY\r\n      INCR1 = 1\r\n      DO 30 I=1,NUY\r\n   30 RZ(I) = 1.0\r\n      CALL MAKMCB(MCB,IDENT,NUY,2,2)\r\n      CALL GOPEN(IDENT,Z(IBUF),1)\r\n      CALL PACK(RZ(1),IDENT,MCB)\r\n      CALL CLOSE(IDENT,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\n      CALL SSG2B(AWY,IDENT,0,AC,0,2,1,SCR)\r\nC\r\nC     PERFORM MULTIPLY TO GET COMPRESSIBLITY MATRIX\r\nC\r\nC\r\nC     UNPACK ROW OF AC INTO CORE\r\nC\r\n      MCB(1) = AC\r\n      CALL RDTRL(MCB)\r\n      NROW = MCB(3)\r\n      IF(NZ .LT. 2*NROW) GO TO 1008\r\n      TO2 = 2\r\n      I2 = 1\r\n      N2 = NROW\r\n      INCR2 = 1\r\nC\r\n      CALL GOPEN(AC,Z(IBUF),0)\r\n      CALL UNPACK(*40,AC,DZ(1))\r\n      GO TO 60\r\nC\r\nC     AC IS NULL\r\nC\r\n   40 DO 50 I=1,NROW\r\n   50 DZ(I) = 0.0D0\r\nC\r\nC     SET UP TO CREATE KC MATRIX\r\nC\r\n   60 CALL CLOSE(AC,1)\r\nC\r\n      DKCOMP = DBLE(KCOMP)\r\n      CALL GOPEN(KC,Z(IBUF),1)\r\n      CALL MAKMCB(MCB,KC,NROW,1,2)\r\nC\r\nC     LOOP OVER NON-ZERO TERMS OF AC TO CREATE KC\r\nC\r\n      DO 90 I=1,NROW\r\n      CALL BLDPK(2,2,KC,0,0)\r\n      IF(DZ(I) .EQ. 0.0D0) GO TO 80\r\n      DO 70 J=1,NROW\r\n      IROW = J\r\n      VAL = DKCOMP * DZ(J) * DZ(I)\r\n      CALL ZBLPKI\r\n   70 CONTINUE\r\n   80 CALL BLDPKN(KC,0,MCB)\r\n   90 CONTINUE\r\n      CALL CLOSE(KC,1)\r\nC\r\nC     WRITE TRAILER\r\nC\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1008 CALL MESAGE(-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsdir.f",
    "content": "      SUBROUTINE GFSDIR\r\nC\r\nC     THIS ROUTINE PERFORMS THE DIRECT FORMULATION OF THE\r\nC     FLUID/STRUCTURE MATRICES\r\nC\r\n      EXTERNAL      ANDF\r\n      INTEGER       SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5     ,\r\n     1              SCR6     ,SCR7     ,SCR8     ,AXY      ,AFRY     ,\r\n     2              KYY      ,DKAA     ,DKFRFR   ,KAA      ,MAA      ,\r\n     3              GM       ,GO       ,USETS    ,USETF    ,KMAT     ,\r\n     4              MMAT     ,GIA      ,PVEC     ,IDENT    ,KJJL     ,\r\n     5              ANYBAR   ,AFY      ,AWY      ,SCR9     ,KAABAR   ,\r\n     6              AMY      ,AAYBAR   ,AWJ      ,KJJ      ,GJW      ,\r\n     7              ANY      ,AOY      ,AJW      ,AC       ,GYW      ,\r\n     8              AAY      ,KWWBAR   ,MWWBAR   ,KC       ,H        ,\r\n     9              USET     ,MCB(7)   ,MBIT     ,SBIT     ,SFBIT    ,\r\n     O              OBIT     ,UM       ,US       ,UO       ,UG       ,\r\n     1              UN       ,UA       ,UF       ,UY       ,UAB      ,\r\n     2              UFR      ,UI       ,Z        ,SYSBUF   ,TWO      ,\r\n     3              FILE     ,TYPIN    ,TYPOUT   ,BADD(11) ,NAME(2)  ,\r\n     4              UR       ,USG      ,USB      ,UL       ,UX       ,\r\n     5              UZ       ,BIT      ,AYW      ,MT       ,HC       ,\r\n     6              COMPTP   ,ANDF\r\n      REAL          RZ(1)    ,KCOMP    ,RBADD(12)\r\n      DOUBLE PRECISION        DBADD(5)\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON / BLANK  /       NOGRAV   ,NOFREE   ,KCOMP   ,COMPTP    ,\r\n     1                        FORM     ,LMODES\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC     CALCV COMMON BLOCK\r\nC\r\n      COMMON / PATX   /       LCORE    ,NSUB0    ,NSUB1    ,NSUB2    ,\r\n     1                        USET\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /       Z(1)\r\nC\r\nC     PACK COMMON BLOCKS\r\nC\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\n      COMMON / PACKX  /       TYPIN    ,TYPOUT   ,II       ,NN       ,\r\n     1                        INCR\r\nC\r\nC     POWERS OF TWO\r\nC\r\n      COMMON / TWO    /       TWO(32)\r\nC\r\nC     USET BIT POSITIONS\r\nC\r\n      COMMON / BITPOS /       UM       ,UO       ,UR       ,USG      ,\r\n     1                        USB      ,UL       ,UA       ,UF       ,\r\n     2                        US       ,UN       ,UG       ,BIT(12)  ,\r\n     3                        UX       ,UY       ,UFR      ,UZ       ,\r\n     4                        UAB      ,UI\r\nC\r\nC     SCRATCH FILE ASSIGNMENTS\r\nC\r\n      EQUIVALENCE   (BADD(1),RBADD(2)) , (DBADD(1),RBADD(3)) ,\r\n     1              (RZ(1), Z(1)),\r\n     2              (SCR1 , PVEC , IDENT , KJJL) ,\r\n     3              (SCR2 , ANYBAR , AFY , AWY ) ,\r\n     4              (SCR3 , AMY , AAYBAR , AWJ , GJW , KJJ) ,\r\n     5              (SCR4 , AOY , AJW , GYW)  ,\r\n     6              (SCR5 , AAY , KWWBAR , AYW ) ,\r\n     7              (SCR6 , AC) ,\r\n     8              (SCR7 , KC  , MT) ,\r\n     9              (SCR8 , H)  ,\r\n     O              (SCR9 , GIA)\r\nC\r\nC     GINO FILE ASSIGNMENTS\r\nC\r\n      DATA          AXY      ,AFRY     ,KYY      ,DKAA     ,DKFRFR   ,\r\n     1              KAA      ,MAA      ,GM       ,GO       ,USETS    ,\r\n     2              USETF    ,KMAT     ,MMAT     ,HC       ,\r\n     3              GIA      ,SCR1     ,SCR2     ,SCR3     ,SCR4     ,\r\n     4              SCR5     ,SCR6     ,SCR7     ,SCR8               /\r\n     5              101      ,102      ,103      ,104      ,105      ,\r\n     6              106      ,107      ,108      ,109      ,110      ,\r\n     7              111      ,201      ,202      ,205      ,\r\n     8              203      ,301      ,302      ,303      ,304      ,\r\n     9              305      ,306      ,307      ,308                /\r\nC\r\n      DATA   NAME / 4HGFSD   ,4HIR     /\r\n      DATA   BADD / 11*0     /\r\nC\r\nC\r\n      ANY    = SCR4\r\n      KAABAR = SCR2\r\n      MWWBAR = SCR6\r\nC\r\n      LCORE = KORSZ(Z(1))\r\n      IBUF  = LCORE - SYSBUF - 1\r\n      IF (IBUF .LT. 0) GO TO 1008\r\nC\r\nC     REDUCE FLUID / STRUCTURE AREA MATRIX.  MATRIX IS TREATED AS\r\nC     A LOAD VECTOR\r\nC\r\n      MCB(1) = USETS\r\n      CALL RDTRL (MCB)\r\n      MBIT = ANDF(MCB(5),TWO(UM))\r\n      SBIT = ANDF(MCB(5),TWO(US))\r\n      OBIT = ANDF(MCB(5),TWO(UO))\r\nC\r\n      USET = USETS\r\nC\r\nC     PARTITION OUT MULTIPOINT CONSTRAINTS\r\nC\r\n      IF (MBIT) 10,20,10\r\n   10 CALL CALCV  (PVEC,UG,UN,UM,Z(1))\r\n      CALL GFSPTN (AXY,ANYBAR,AMY,0,0,0,PVEC)\r\n      CALL SSG2B  (GM,AMY,ANYBAR,ANY,1,2,1,SCR1)\r\n      GO TO 30\r\nC\r\n   20 ANY = AXY\r\nC\r\nC     PARTITION OUT SINGLE POINT CONSTRAINTS\r\nC\r\n   30 IF (SBIT) 40,50,40\r\n   40 CALL CALCV  (PVEC,UN,UF,US,Z(1))\r\n      CALL GFSPTN (ANY,AFY,0,0,0,0,PVEC)\r\n      GO TO 60\r\nC\r\n   50 CALL GFSWCH (AFY,ANY)\r\nC\r\nC     PARTITION OUT OMITS\r\nC\r\n   60 IF (OBIT) 70,80,70\r\n   70 CALL CALCV  (PVEC,UF,UA,UO,Z(1))\r\n      CALL GFSPTN (AFY,AAYBAR,AOY,0,0,0,PVEC)\r\n      CALL SSG2B  (GO,AOY,AAYBAR,AAY,1,2,1,SCR1)\r\n      GO TO 85\r\nC\r\n   80 CALL GFSWCH (AAY,AFY)\r\nC\r\nC     IF FREE SURFACE POINTS EXIST - MERGE THEM WITH THE REDUCED\r\nC     AREA MATRIX\r\nC\r\n   85 USET = USETF\r\n      IF (NOFREE) 100,90,90\r\n   90 CALL CALCV  (PVEC,UA,UAB,UFR,Z(1))\r\n      CALL GFSMRG (AWY,AAY,AFRY,0,0,0,PVEC)\r\n      GO TO 110\r\nC\r\n  100 CALL GFSWCH (AWY,AAY)\r\nC\r\nC     DETERMINE IF ANY SINGLE POINT CONSTRAINTS EXIST ON THE FLUID\r\nC\r\n  110 CALL CALCV (PVEC,UY,UF,US,Z(1))\r\n      NUY   = NSUB0 + NSUB1\r\n      SFBIT = 1\r\n      IF (NSUB1 .EQ. 0) SFBIT = 0\r\nC\r\nC     IF SPC POINTS EXIST ON THE FLUID - PARTITION THEM OUT OF\r\nC     THE FLUID AREA AND STIFFNESS MATRIX\r\nC\r\n      IF (SFBIT) 120,130,120\r\n  120 CALL GFSPTN (AWY,AWJ,0,0,0,PVEC,0)\r\n      CALL GFSTRN (AWJ,AJW,SCR2,SCR5)\r\n      CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC)\r\n      GO TO 170\r\nC\r\nC     NO SPC POINTS EXIST ON THE FLUID\r\nC\r\nC     CONSTRAIN THE FIRST FLUID POINT TO REMOVE ANY POTENTIAL\r\nC     SINGULARITIES\r\nC\r\n  130 CALL GFSSPC (NUY,PVEC)\r\n      NSUB0 = NUY - 1\r\n      NSUB1 = 1\r\n      CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC)\r\nC\r\nC     GENERATE THE H TRANSFORMATION MATRIX\r\nC\r\n      CALL GFSH   (NUY,H)\r\n      CALL GFSTRN (AWY,AYW,SCR1,SCR6)\r\n      CALL SSG2B  (H,AYW,0,AJW,0,2,1,SCR6)\r\nC\r\nC     CHECK COMPRESSIBLITY TYPE\r\nC\r\n      IF (COMPTP .GT. 0) GO TO 140\r\nC\r\nC     A SPRING WILL BE GENERATED TO COUPLE THE STRUCTURE AND THE\r\nC     FREE SURFACE TO RESTRICT VOLUME CHANGES\r\nC\r\nC     COMPUTE THE COMPRESSIBLITY MATRIX WHICH CONTAINS THIS SPRING\r\nC\r\n      CALL GFSCOM (AWY,NUY,KC,IDENT,AC,SCR5)\r\n      GO TO 170\r\nC\r\nC     PURELY INCOMPRESSIBLE APPROACH - A CONSTRAINT EQUATION IS\r\nC     GENERATED TO RESTRICT VOLUME CHANGE\r\nC\r\nC     GENERATE HC MATRIX WHICH CONTAINS THE CONSTRAINT\r\nC\r\n  140 CALL GFSHC (AWY,NUY,HC,IDENT,AC,MROW)\r\nC\r\nC     SOLVE FOR THE INITIAL PRESSURE TRANSFORMATION MATRIX\r\nC\r\n  170 CALL FACTOR (KJJ,KJJL,SCR2,SCR5,SCR6,SCR9)\r\n      CALL SSG3A  (0,KJJL,AJW,GJW,SCR5,SCR6,-1,0)\r\nC\r\nC     IF GRAVITY EXISTS - ADD THE ADDITIONAL STIFFNESS\r\nC\r\n      IF (NOGRAV) 190,180,180\r\n  180 BADD (1) = 2\r\n      DBADD(1) = 1.0D0\r\n      BADD (7) = 2\r\n      DBADD(4) = 1.0D0\r\n      CALL SSG2C (KAA,DKAA,KAABAR,0,BADD)\r\n      GO TO 200\r\nC\r\n  190 KAABAR = KAA\r\nC\r\nC     IF FREE SURFACE EXISTS - MERGE THE STIFFNESS TO SOLUTION SIZE\r\nC     AND EXPAND THE MASS MATRIX\r\nC\r\n  200 IF (NOFREE) 220,210,210\r\n  210 CALL CALCV  (PVEC,UA,UAB,UFR,Z(1))\r\n      CALL GFSMRG (KWWBAR,KAABAR,0,0,DKFRFR,PVEC,PVEC)\r\n      CALL GFSMRG (MWWBAR,MAA,0,0,0,PVEC,PVEC)\r\n      GO TO 230\r\nC\r\n  220 CALL GFSWCH (KWWBAR,KAABAR)\r\n      MWWBAR = MAA\r\nC\r\nC     COMPUTE THE FINAL MASS MATRIX\r\nC     FOR COMPTP = 1 THIS MATRIX IS NOT THE FINAL ONE\r\nC\r\n  230 CALL SSG2B (AJW,GJW,MWWBAR,MMAT,1,2,1,SCR2)\r\nC\r\nC     COMPUTE THE FINAL STIFFNESS MATRIX\r\nC\r\n      IF (SFBIT) 260,240,260\r\n  240 IF (COMPTP .GT. 0) GO TO 250\r\nC\r\nC     ADD IN THE SPRING FACTOR KC\r\nC\r\n      BADD (1) = 2\r\n      DBADD(1) = 1.0D0\r\n      BADD (7) = 2\r\n      DBADD(4) = 1.0D0\r\n      CALL SSG2C (KWWBAR,KC,KMAT,0,BADD)\r\n      GO TO 270\r\nC\r\nC     APPLY THE CONSTRAINT EQUATION TO STIFFNESS AND MASS FOR\r\nC     THE INCOMPRESSIBLE APPROACH\r\nC\r\n  250 CALL SSG2B (HC,KWWBAR,0,SCR2,1,2,1,SCR1)\r\n      CALL SSG2B (SCR2,HC,0,KMAT,0,2,1,SCR1)\r\n      CALL SSG2B (HC,MMAT,0,SCR2,1,2,1,SCR1)\r\n      CALL SSG2B (SCR2,HC,0,MT,0,2,1,SCR1)\r\nC\r\nC     ADD 1.0 TO THE NULL COLUMN IN THE MASS MATRIX TO PREVENT\r\nC     SINGULATITIES\r\nC\r\n      CALL GFSMT (MT,MMAT,MROW)\r\n      GO TO 270\r\nC\r\n  260 CALL GFSWCH (KMAT,KWWBAR)\r\nC\r\nC     TRANSFORM THE FINAL PRESSURE TRANSFORMATION MATRIX OR IF\r\nC     SPC POINTS EXIST ON THE FLUID MERGE IN ZEROS\r\nC\r\n  270 IF (SFBIT) 300,280,300\r\n  280 CALL SSG2B (H,GJW,0,GYW,1,2,1,SCR5)\r\n      GO TO 310\r\nC\r\n  300 CALL CALCV  (PVEC,UY,UF,US,Z(1))\r\n      CALL GFSMRG (GYW,GJW,0,0,0,0,PVEC)\r\nC\r\nC     PARTITON OUT THE FREE SURFACE POINTS\r\nC\r\n  310 IF (NOFREE) 330,320,320\r\n  320 CALL CALCV  (PVEC,UY,UFR,UI,Z(1))\r\n      CALL GFSPTN (GYW,0,GIA,0,0,0,PVEC)\r\n      RETURN\r\nC\r\n  330 CALL GFSWCH (GIA,GYW)\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1008 N = -8\r\n      CALL MESAGE (N,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsh.f",
    "content": "      SUBROUTINE GFSH(NUY,H)\r\nC\r\nC     ROUTINE TO CALCULTE THE H TRANSFORMATION MATRIX USED WHEN NO\r\nC     SPC'S ARE ON THE FLUID\r\nC\r\n      REAL          RZ(2)\r\nC\r\n      INTEGER       Z        ,SYSBUF   ,MCB(7)   ,H        ,TI1\r\n     1             ,TO1      ,NAME(2)\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC     PACK - UNPACK COMMON BLOCKS\r\nC\r\n      COMMON / PACKX /        TI1      ,TO1      ,I1       ,N1\r\n     1                       ,INCR1\r\nC\r\n      EQUIVALENCE   ( Z(1) , RZ(1) )\r\nC\r\n      DATA NAME / 4HGFSH , 4H     /\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      NZ = KORSZ(Z(1))\r\n      IBUF = NZ - SYSBUF\r\n      NZ = IBUF - 1\r\n      IF(NZ .LT. NUY) GO TO 1008\r\n      NUY1 = NUY - 1\r\n      CALL MAKMCB(MCB,H,NUY1,2,2)\r\n      TI1 = 1\r\n      TO1 = 2\r\n      I1 = 1\r\n      N1 = NUY1\r\n      INCR1 = 1\r\nC\r\n      DO 100 I=1,NUY\r\n  100 RZ(I) = -1.0 / FLOAT(NUY)\r\n      CALL GOPEN(H,Z(IBUF),1)\r\n      DO 120 I=1,NUY\r\n      RZ(I) = FLOAT(NUY1) / FLOAT(NUY)\r\n      CALL PACK(RZ(2),H,MCB)\r\n  120 RZ(I) = -1.0 / FLOAT(NUY)\r\n      CALL CLOSE(H,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1008 CALL MESAGE(-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfshc.f",
    "content": "      SUBROUTINE GFSHC(AWY,NUY,HC,IDENT,AC,MROW)\r\nC\r\nC     ROUTINE TO GENERATE CONSTRAINT MATRIX FOR PURELY INCOMPRESSIBLE\r\nC     FORMULATION WHEN NO SPC'S ARE ON FLUID\r\nC\r\n      DOUBLE PRECISION        DZ(1)    ,DTERM    ,VAL\r\nC\r\n      REAL          RZ(1)\r\nC\r\n      INTEGER       Z        ,SYSBUF   ,MCB(7)   ,NAME(2)  ,HC\r\n     1             ,TI1      ,TO1      ,TO2      ,AWY      ,SCR\r\n     2             ,AC\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC     PACK - UNPACK COMMON BLOCKS\r\nC\r\n      COMMON / PACKX /        TI1      ,TO1      ,I1       ,N1\r\n     1                       ,INCR1\r\n      COMMON / UNPAKX /       TO2      ,I2       ,N2       ,INCR2\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\nC\r\n      EQUIVALENCE   ( Z(1) , RZ(1) , DZ(1) )\r\n     1             ,( VAL , A(1) )\r\nC\r\n      DATA NAME / 4HGFSH , 4HC    /\r\nC\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      NZ = KORSZ(Z(1))\r\n      IBUF = NZ - SYSBUF\r\n      NZ = IBUF - 1\r\n      IF(NZ .LT. NUY) GO TO 1008\r\nC\r\nC     FORM A COLUMN VECTOR OF ONES\r\nC\r\n      TI1 = 1\r\n      TO1 = 2\r\n      I1 = 1\r\n      N1 = NUY\r\n      INCR1 = 1\r\n      DO 30 I=1,NUY\r\n   30 RZ(I) = 1.0\r\n      CALL MAKMCB(MCB,IDENT,NUY,2,2)\r\n      CALL GOPEN(IDENT,Z(IBUF),1)\r\n      CALL PACK(RZ(1),IDENT,MCB)\r\n      CALL CLOSE(IDENT,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\n      CALL SSG2B(AWY,IDENT,0,AC,0,2,1,SCR)\r\nC\r\nC     PERFORM MULTIPLY TO GET COMPRESSIBLITY MATRIX\r\nC\r\nC\r\nC     UNPACK ROW OF AC INTO CORE\r\nC\r\n      MCB(1) = AC\r\n      CALL RDTRL(MCB)\r\n      NROW = MCB(3)\r\n      IF(NZ .LT. 2*NROW) GO TO 1008\r\n      TO2 = 2\r\n      I2 = 1\r\n      N2 = NROW\r\n      INCR2 = 1\r\nC\r\n      CALL GOPEN(AC,Z(IBUF),0)\r\n      CALL UNPACK(*40,AC,DZ(1))\r\n      GO TO 60\r\nC\r\nC     AC IS NULL\r\nC\r\n   40 DO 50 I=1,NROW\r\n   50 DZ(I) = 0.0D0\r\nC\r\n   60 CALL CLOSE(AC,1)\r\nC\r\nC     LOCATE LARGEST TERM IN AC\r\nC\r\n      DTERM = -1.0D10\r\n      DO 210 I=1,NROW\r\n      IF(DZ(I) .LE. DTERM) GO TO 210\r\n      MROW = I\r\n      DTERM = DZ(I)\r\n  210 CONTINUE\r\nC\r\nC     GENERATE THE HC MATRIX\r\nC\r\n      CALL MAKMCB(MCB,HC,NROW,1,2)\r\n      CALL GOPEN(HC,Z(IBUF),1)\r\nC\r\nC     GENERATE COLUMNS UP TO MROW\r\nC\r\n      IF(MROW .EQ. 1) GO TO 230\r\n      MR = MROW - 1\r\n      DO 220 IR = 1,MR\r\n      CALL BLDPK(2,2,HC,0,0)\r\n      IROW = IR\r\n      VAL = 1.0D0\r\n      CALL ZBLPKI\r\n      IROW = MROW\r\n      VAL = -DZ(IR) / DTERM\r\n      CALL ZBLPKI\r\n  220 CALL BLDPKN(HC,0,MCB)\r\nC\r\nC     PACK OUT NULL COLUMN FOR MROW\r\nC\r\n  230 CALL BLDPK(2,2,HC,0,0)\r\n      CALL BLDPKN(HC,0,MCB)\r\nC\r\nC     GENERATE REMAINING ROWS\r\nC\r\n      IF(MROW .GE. NROW) GO TO 250\r\n      MR = MROW + 1\r\n      DO 240 IR=MR,NROW\r\n      CALL BLDPK(2,2,HC,0,0)\r\n      IROW = MROW\r\n      VAL = -DZ(IR) / DTERM\r\n      CALL ZBLPKI\r\n      IROW = IR\r\n      VAL = 1.0D0\r\n      CALL ZBLPKI\r\n  240 CALL BLDPKN(HC,0,MCB)\r\nC\r\n  250 CALL CLOSE(HC,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1008 CALL MESAGE(-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsma.f",
    "content": "      SUBROUTINE GFSMA\r\nC\r\nC     MODULE GFSMA  ( GENERAL FLUID / STRUCTURE MATRIX ASSEMBLER )\r\nC\r\nC\r\nC     DMAP CALL\r\nC\r\nC        GFSMA  AXY,AFRY,KYY,DKAA,DKFRFR,KAA,MAA,GM,GO,USETS,USETF,\r\nC               PHIA,PHIX,LAMA/KMAT,MMAT,GIA,POUT,HC/V,N,NOGRAV/\r\nC               V,N,NOFREE/V,Y,KCOMP/V,Y,COMPTYP/V,N,FORM/V,Y,LMODES $\r\nC\r\nC     INPUT DATA BLOCKS\r\nC\r\nC        AXY    - STRUCTURE / FLUID AREA MATRIX\r\nC        AFRY   - FREE SURFACE AREA MATRIX\r\nC        KYY    - FLUID STIFFNESS MATRIX\r\nC        DKAA   - STRUCTURE GRAVITY STIFFNESS MATRIX\r\nC        DKFRFR - FREE SURFACE GRAVITY STIFFNESS MATRIX\r\nC        KAA    - REDUCED STRUCTURE STIFFNESS MATRIX\r\nC        MAA    - REDUCED STRUCTURE MASS MATRIX\r\nC        GM     - MULTIPOINT CONSTRAINT TRANSFORMATION MATRIX\r\nC        GO     - OMIT POINT TRANSFORMATION MATRIX\r\nC        USETS  - STRUCTURE ONLY SET DEFINITION TABLE\r\nC        USETF  - FLUID AND STRUCTURE SET DEFINITION TABLE\r\nC        PHIA   - SOLUTION EIGENVECTORS  A - SET\r\nC        PHIX   - SOLUTION EIGENVECTORS  X - SET\r\nC        LAMA   - SOLUTION EIGENVALUE TABLE\r\nC\r\nC     OUTPUT DATA BLOCKS\r\nC\r\nC        KMAT   - COMBINATION FLUID / STRUCTURE STIFFNESS MATRIX\r\nC        MMAT   - COMBINATION FLUID / STRUCTURE MASS MATRIX\r\nC        GIA    - PRESSURE TRANSFORMATION MATRIX\r\nC        POUT   - PARTITIONING VECTOR FOR MODAL DISPLACEMENTS\r\nC        HC     - CONSTRAINT TRANSFORMATION MATRIX FOR INCOMPRESSIBLE\r\nC                 APPROACH\r\nC\r\nC     PARAMETERS\r\nC\r\nC        NOGRAV  - GRAVITY FLAG  (-1 FOR NO GRAVITY)\r\nC        NOFREE  - FREE SURFACE FLAG  (-1 FOR NO FREE SURFACE)\r\nC        KCOMP   - COMPRESSIBILITY FACTOR  (DEFAULT = 1.0)\r\nC        COMPTYP - TYPE OF COMPRESSIBLILITY COMPUTATIONS\r\nC                       -1  STRUCTURE AND FREE SURFACE ARE COUPLED\r\nC                           WITH A SPRING TO RESIST VOLUME CHANGE\r\nC                        1  PURE INCOMPRESSIBLE - CONSTRAINT EQUATION\r\nC                           IS GENERATED TO RESTRICT VOLUME CHANGE\r\nC        FORM    - TYPE OF FORMULATION TO BE USED\r\nC                       -1  DIRECT FORMULATION\r\nC                        1  MODAL FORMULATION\r\nC        LMODES  - NUMBER OF MODES USED IN MODAL FORMULATION\r\nC                  ( -1 IF ALL STRUCTURE MODES ARE TO BE USED (\r\nC\r\n      INTEGER       FORM     ,COMPTP\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK/     NOGRAV   ,NOFREE   ,KCOMP   ,COMPTP\r\n     1                  ,FORM     ,LMODES\r\nC\r\nC     LOCAL VARIABLES FOR GFSMOD AND GFSMO2\r\nC\r\n      COMMON /GFSMOX/    DUMMY(38)\r\nC***********************************************************************\r\nC\r\n      IF(FORM .GT. 0) GO TO 10\r\nC\r\nC     DIRECT FORMULATION\r\nC\r\n      CALL GFSDIR\r\n      GO TO 100\r\nC\r\nC     MODAL FORMULATION\r\nC\r\n   10 CALL GFSMOD\r\n      CALL GFSMO2\r\nC\r\nC     MODULE COMPLETION\r\nC\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsmo2.f",
    "content": "      SUBROUTINE GFSMO2\r\nC\r\nC     THIS ROUTINE IS THE CONTINUATION OF GFSMOD\r\nC\r\n      REAL         RZ(1)     ,EIGVAL(7)\r\nC\r\n      DOUBLE PRECISION       DBADD(5)\r\nC\r\n      INTEGER       SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5\r\n     1             ,SCR6     ,SCR7     ,SCR8     ,SCR9     ,SCR10\r\n     2             ,AXY      ,AFRY     ,KYY      ,DKAA     ,DKFRFR\r\n     3             ,USETF    ,PHIA     ,PHIX     ,AC       ,POUT\r\n     4             ,LAMA     ,KMAT     ,MMAT     ,GIA      ,PVEC\r\n     5             ,IDENT    ,USET     ,USETD    ,KC       ,H\r\n     6             ,COMPTP   ,AZY      ,AHY      ,AHJ      ,AJH\r\n     7             ,KJJ      ,AYH      ,KJJL     ,GJH      ,MZZ\r\n     8             ,KZZ      ,MHHBAR   ,PHIAR    ,KZZBAR   ,KHHBAR\r\n     9             ,GYH      ,MCB(7)   ,SFBIT    ,FILE     ,UM\r\n     1             ,UZ       ,UNZ      ,UFR      ,UH       ,UY\r\n     2             ,UF       ,US       ,UI       ,Z        ,SYSBUF\r\n     3             ,TWO      ,TYPIN    ,TYPOUT   ,BADD(11) ,NAME(2)\r\nC\r\nC     MODULE PARAMETERS\r\nC\r\n      COMMON /BLANK/          NOGRAV   ,NOFREE   ,KCOMP   ,COMPTP\r\n     1                       ,FORM     ,LLMODE\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF   ,NOUT\r\nC\r\nC     CALCV COMMON BLOCK\r\nC\r\n      COMMON / PATX /         LCORE    ,NSUB0    ,NSUB1    ,NSUB2\r\n     1                       ,USET\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     PACK COMMON BLOCK\r\nC\r\n      COMMON / PACKX /        TYPIN    ,TYPOUT   ,II       ,NN\r\n     1                       ,INCR\r\nC\r\nC     POWERS OF TWO\r\nC\r\n      COMMON / TWO /          TWO(32)\r\nC\r\nC     USET BIT POSITIONS - SOME OF THESE ARE USED JUST HERE\r\nC\r\n      COMMON / BITPOS /       UNZ      ,UZ       ,UM       ,UH\r\n     1                       ,BIT1(3)  ,UF       ,US       ,BIT2(15)\r\n     2                       ,UY       ,UFR      ,BIT3(2)  ,UI\r\nC\r\nC     LOCAL VARIABLES FOR GFSMO1 AND GFSMO2\r\nC\r\n      COMMON /GFSMOX/AXY     ,AFRY     ,KYY      ,DKAA     ,DKFRFR\r\n     1             ,USETF    ,PHIA     ,PHIX     ,LAMA\r\n     2             ,KMAT     ,MMAT     ,GIA      ,POUT\r\n     3             ,SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5\r\n     4             ,SCR6     ,SCR7     ,SCR8\r\n     5             ,LMODES   ,NMODES   ,IBUF     ,SFBIT    ,BADD\r\n     6             ,NAME\r\nC\r\nC     SCRATCH FILE ASSIGNMENTS\r\nC\r\n      EQUIVALENCE   ( BADD(2) , DBADD(1) )\r\n     1             ,( RZ(1) , Z(1) )\r\n     2             ,( SCR1 , USETD )\r\n     3             ,( SCR2 , PVEC , IDENT , KJJL )\r\n     4             ,( SCR3 , AZY , AHJ , KJJ , GJH )\r\n     5             ,( SCR4 , AJH , KHHBAR , GYH )\r\n     6             ,( SCR5 , AC , AYH , MZZ , KZZBAR )\r\n     7             ,( SCR6 , KZZ )\r\n     8             ,( SCR7 , KC , AHY )\r\n     9             ,( SCR8 , H )\r\n     1             ,( SCR9 , MMAT )\r\n     2             ,( SCR10 , GIA , MHHBAR )\r\nC\r\nC\r\nC***********************************************************************\r\nC\r\nC\r\nC     GET THE GENERALIZED STIFFNESS AND MASS FOR THE DESIRED MODES\r\nC     FROM THE LAMA DATA BLOCK\r\nC\r\n      IF(2*LMODES .GE. IBUF) GO TO 1008\r\n      CALL GOPEN(LAMA,Z(IBUF),0)\r\n      FILE = LAMA\r\n      CALL FWDREC(*1002,LAMA)\r\n      IGK = 1\r\n      IGM = LMODES + 1\r\n      DO 170 I=1,LMODES\r\n  165 CALL READ(*1001,*1002,LAMA,EIGVAL,7,0,N)\r\n      IF(EIGVAL(6) .EQ. 0.0) GO TO 165\r\n      RZ(IGK) = EIGVAL(7)\r\n      IGK = IGK + 1\r\n      RZ(IGM) = EIGVAL(6)\r\n      IGM = IGM + 1\r\n  170 CONTINUE\r\n      CALL CLOSE(LAMA,1)\r\nC\r\nC     GENERATE THE DIAGONAL MODAL STIFFNESS MATRIX\r\nC\r\n      I1 = 1\r\n      I2 = LMODES\r\n      CALL MAKMCB(MCB,KZZ,LMODES,6,2)\r\n      CALL GOPEN(KZZ,Z(IBUF),1)\r\n      TYPIN = 1\r\n      TYPOUT = 2\r\n      INCR = 1\r\n      DO 180 I=I1,I2\r\n      II = I\r\n      NN = I\r\n  180 CALL PACK(RZ(I),KZZ,MCB)\r\n      CALL CLOSE(KZZ,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\nC     GENERATE THE DIAGANOL MODAL MASS MATRIX\r\nC\r\n      I1 = LMODES + 1\r\n      I2 = 2 * LMODES\r\n      CALL MAKMCB(MCB,MZZ,LMODES,6,2)\r\n      CALL GOPEN(MZZ,Z(IBUF),1)\r\n      DO 190 I=I1,I2\r\n      II = I - LMODES\r\n      NN = II\r\n  190 CALL PACK(RZ(I),MZZ,MCB)\r\n      CALL CLOSE(MZZ,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\nC     IF A FREE SURFACE EXISTS - EXPAND THE MASS MATRIX\r\nC     THE PARTITIONING VECTOR WILL BE SAVED FOR DMAP USE\r\nC\r\n      IF(NOFREE) 210,200,200\r\n  200 USET = USETD\r\n      CALL CALCV(POUT,UH,UZ,UFR,Z(1))\r\n      NSUB0S = NSUB0\r\n      NSUB1S = NSUB1\r\n      CALL GFSMRG(MHHBAR,MZZ,0,0,0,POUT,POUT)\r\n      GO TO 220\r\nC\r\n  210 CALL GFSWCH(MHHBAR,MZZ)\r\nC\r\nC     COMPUTE THE FINAL MASS MATRIX\r\nC\r\n  220 CALL SSG2B(AJH,GJH,MHHBAR,MMAT,1,2,1,SCR2)\r\nC\r\nC     IF GRAVITY EXISTS - TRANSFORM THE ADDITIONAL STIFFNESS AND\r\nC     ADD IT IN.  BE SURE TO USE ONLY THOSE MODES REQUESTED IN\r\nC     THE TRANSFORMATION FROM PHIA\r\nC\r\n      IF(NOGRAV) 260,230,230\r\n  230 USET = USETD\r\n      IF(LMODES .GE. NMODES) GO TO 240\r\n      CALL CALCV(PVEC,UM,UZ,UNZ,Z(1))\r\n      CALL GFSPTN(PHIA,PHIAR,0,0,0,PVEC,0)\r\n      GO TO 250\r\nC\r\n  240 PHIAR = PHIA\r\nC\r\n  250 CALL SSG2B(PHIAR,DKAA,0,SCR2,1,2,1,SCR5)\r\n      CALL SSG2B(SCR2,PHIAR,KZZ,KZZBAR,0,2,1,SCR10)\r\n      GO TO 270\r\nC\r\n  260 CALL GFSWCH(KZZ,KZZBAR)\r\nC\r\nC     IF A FREE SURFACE EXISTS - MERGE THE FREE SURFACE STIFFNESS IN\r\nC\r\n  270 IF(NOFREE) 290,280,280\r\n  280 NSUB0 = NSUB0S\r\n      NSUB1 = NSUB1S\r\n      CALL GFSMRG(KHHBAR,KZZBAR,0,0,DKFRFR,POUT,POUT)\r\n      GO TO 300\r\nC\r\n  290 CALL GFSWCH(KHHBAR,KZZBAR)\r\nC\r\nC     COMPUTE THE FINAL STIFFNESS MATRIX BY ADDING IN COMPRESSIBILITY\r\nC     IF IT EXISTS\r\nC\r\n  300 IF(SFBIT) 320,310,320\r\n  310 BADD(1) = 2\r\n      DBADD(1) = 1.0D0\r\n      BADD(7) = 2\r\n      DBADD(4) = 1.0D0\r\n      CALL SSG2C(KHHBAR,KC,KMAT,0,BADD)\r\nC\r\n      GO TO 330\r\n  320 CALL GFSWCH(KHHBAR,KMAT)\r\nC\r\nC     TRANSFORM THE FINAL PRESSURE TRANSFORMATION MATRIX OR IF SPC\r\nC     POINTS EXIST ON THE FLUID MERGE IN ZEROS\r\nC\r\n  330 USET = USETF\r\n      IF(SFBIT) 350,340,350\r\n  340 CALL SSG2B(H,GJH,0,GYH,1,2,1,SCR5)\r\n      GO TO 360\r\nC\r\n  350 CALL CALCV(PVEC,UY,UF,US,Z(1))\r\n      CALL GFSMRG(GYH,GJH,0,0,0,0,PVEC)\r\nC\r\nC     PARTITION OUT THE FREE SURFACE POINTS\r\nC\r\n  360 IF(NOFREE) 380,370,370\r\n  370 CALL CALCV(PVEC,UY,UFR,UI,Z(1))\r\n      CALL GFSPTN(GYH,0,GIA,0,0,0,PVEC)\r\n      RETURN\r\nC\r\n  380 CALL GFSWCH(GYH,GIA)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1001 N = -1\r\n      GO TO 9999\r\n 1002 N = -2\r\n      GO TO 9999\r\n 1008 N = -8\r\nC\r\n 9999 CALL MESAGE(N,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsmod.f",
    "content": "      SUBROUTINE GFSMOD\r\nC\r\nC     THIS ROUTINE PERFORMS THE MODAL FORMULATION OF THE\r\nC     FLUID / STRUCTURE MATRICES\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5     ,\r\n     1                SCR6     ,SCR7     ,SCR8     ,SCR9     ,SCR10    ,\r\n     2                AXY      ,AFRY     ,KYY      ,DKAA     ,DKFRFR   ,\r\n     3                USETF    ,PHIA     ,PHIX     ,AC       ,POUT     ,\r\n     4                LAMA     ,KMAT     ,MMAT     ,GIA      ,PVEC     ,\r\n     5                IDENT    ,USET     ,USETD    ,KC       ,H        ,\r\n     6                COMPTP   ,AZY      ,AHY      ,AHJ      ,AJH      ,\r\n     7                KJJ      ,AYH      ,KJJL     ,GJH      ,MZZ      ,\r\n     8                KZZ      ,MHHBAR   ,PHIAR    ,KZZBAR   ,KHHBAR   ,\r\n     9                GYH      ,MCB(7)   ,SFBIT    ,FILE     ,UM       ,\r\n     1                UZ       ,UNZ      ,UFR      ,UH       ,UY       ,\r\n     2                UF       ,US       ,UI       ,Z        ,SYSBUF   ,\r\n     3                TWO      ,TYPIN    ,TYPOUT   ,BADD(11) ,NAME(2)  ,\r\n     4                PHIXR    ,ANDF     ,NAMEX(2)\r\n      REAL            RZ(1)\r\n      DOUBLE PRECISION          DBADD(5)\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\n      COMMON /BLANK / NOGRAV   ,NOFREE   ,KCOMP    ,COMPTP   ,FORM     ,\r\n     1                LLMODE\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /PATX  / LCORE    ,NSUB0    ,NSUB1    ,NSUB2    ,USET\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN    ,TYPOUT   ,II       ,NN       ,INCR\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /BITPOS/ UNZ      ,UZ       ,UM       ,UH       ,BIT1(3)  ,\r\n     1                UF       ,US       ,BIT2(15) ,UY       ,UFR      ,\r\n     2                BIT3(2)  ,UI\r\n      COMMON /GFSMOX/ AXY      ,AFRY     ,KYY      ,DKAA     ,DKFRFR   ,\r\n     1                USETF    ,PHIA     ,PHIX     ,LAMA     ,\r\n     2                KMAT     ,MMAT     ,GIA      ,POUT     ,\r\n     3                SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5     ,\r\n     4                SCR6     ,SCR7     ,SCR8     ,\r\n     5                LMODES   ,NMODES   ,IBUF     ,SFBIT    ,BADD     ,\r\n     6                NAME\r\n      EQUIVALENCE     (BADD(2),DBADD(1)) ,(RZ(1),Z(1)) ,\r\n     1                (SCR1,USETD) ,(SCR2,PVEC,IDENT,KJJL) ,\r\n     2                (SCR3,AZY,AHJ,KJJ,GJH) ,(SCR4,AJH,KHHBAR,GYH) ,\r\n     3                (SCR5,AC,AYH,MZZ,KZZBAR) ,(SCR6,KZZ) ,\r\n     4                (SCR7,KC,AHY) ,(SCR8,H) ,(SCR9,MMAT) ,\r\n     5                (SCR10,GIA,MHHBAR)\r\nC     DATA            AXY      ,AFRY     ,KYY      ,DKAA     ,DKFRFR   ,\r\nC    1                USETF    ,PHIA     ,PHIX     ,LAMA     ,\r\nC    2                KMAT     ,MMAT     ,GIA      ,POUT     ,\r\nC    3                SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5     ,\r\nC    4                SCR6     ,SCR7     ,SCR8     /\r\nC    5                101      ,102      ,103      ,104      ,105      ,\r\nC    6                111      ,112      ,113      ,114      ,\r\nC    7                201      ,202      ,203      ,204      ,\r\nC    8                301      ,302      ,303      ,304      ,305      ,\r\nC    9                306      ,307      ,308      /\r\nC\r\nC     DATA    BADD  / 11*0   /\r\n      DATA    NAMEX / 4HGFSM , 4HOD   /\r\nC\r\n      AXY    = 101\r\n      AFRY   = 102\r\n      KYY    = 103\r\n      DKAA   = 104\r\n      DKFRFR = 105\r\n      USETF  = 111\r\n      PHIA   = 112\r\n      PHIX   = 113\r\n      LAMA   = 114\r\n      KMAT   = 201\r\n      MMAT   = 202\r\n      GIA    = 203\r\n      POUT   = 204\r\n      SCR1   = 301\r\n      SCR2   = 302\r\n      SCR3   = 303\r\n      SCR4   = 304\r\n      SCR5   = 305\r\n      SCR6   = 306\r\n      SCR7   = 307\r\n      SCR8   = 308\r\n      NAME(1)= NAMEX(1)\r\n      NAME(2)= NAMEX(2)\r\n      DO 5 I = 1,11\r\n    5 BADD(I)= 0\r\nC\r\nC\r\n      PHIAR = SCR4\r\n      PHIXR = SCR2\r\nC\r\n      LCORE = KORSZ(Z(1))\r\n      IBUF  = LCORE - SYSBUF - 1\r\n      IF (IBUF .LT. 0) GO TO 1008\r\nC\r\nC     CREATE A DUMMY USET VECTOR TOR USE WITH THE MODAL DISPLACEMENTS\r\nC\r\nC     BIT POSITIONS WILL BE\r\nC\r\nC     UM  - MODAL POINT  UZ + UNZ\r\nC     UZ  - DESIRED MODAL POINT\r\nC     UNZ - MODAL POINT TO BE SKIPPED\r\nC     UFR - FREE SURFACE POINT\r\nC     UH  - UFR + UZ\r\nC\r\nC     SET MODAL DISPLACEMENTS\r\nC\r\n      FILE   = PHIX\r\n      MCB(1) = PHIX\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 1001\r\n      NMODES = MCB(2)\r\n      IF (LLMODE.GT.NMODES .OR. LLMODE.EQ.0) LLMODE = -1\r\n      LMODES = LLMODE\r\n      IF (LMODES .LE. 0) LMODES = NMODES\r\n      IF (LMODES.LE.0 .OR. LMODES.GT.NMODES) LMODES = NMODES\r\n      IZM  = TWO(UZ)  + TWO(UM) + TWO(UH)\r\n      INZM = TWO(UNZ) + TWO(UM)\r\n      IF (IBUF .LE. NMODES) GO TO 1008\r\n      DO 10 I = 1,NMODES\r\n      Z(I) = IZM\r\n      IF (I .GT. LMODES) Z(I) = INZM\r\n   10 CONTINUE\r\nC\r\nC     SET FREE SURFACE DISPLACEMENTS\r\nC\r\n      IFR  = TWO(UFR) + TWO(UH)\r\n      LVEC = NMODES\r\n      IF (NOFREE) 45,20,20\r\n   20 CALL GOPEN (USETF,Z(IBUF),0)\r\n   30 CALL READ (*40,*40,USETF,IBIT,1,0,N)\r\n      IF (ANDF(IBIT,TWO(UFR)) .EQ. 0) GO TO 30\r\n      LVEC = LVEC + 1\r\n      IF (LVEC .GE. IBUF) GO TO 1008\r\n      Z(LVEC) = IFR\r\n      GO TO 30\r\nC\r\n   40 CALL CLOSE (USETF,1)\r\nC\r\nC     WRITE DUMMY USETD FILE\r\nC\r\n   45 CALL GOPEN (USETD,Z(IBUF),1)\r\n      CALL WRITE (USETD,Z(1),LVEC,1)\r\n      CALL CLOSE (USETD,1)\r\n      MCB(1) = USETD\r\n      MCB(2) = LVEC\r\n      DO 50 I = 3,7\r\n   50 MCB(I) = 0\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     EXTRACT THE DESIRED MODES FORM THE PHIX MATRIX\r\nC\r\n      USET = USETD\r\n      IF (LMODES .GE. NMODES) GO TO 70\r\n      CALL CALCV (PVEC,UM,UZ,UNZ,Z(1))\r\n      CALL GFSPTN (PHIX,PHIXR,0,0,0,PVEC,0)\r\n      GO TO 80\r\nC\r\n   70 PHIXR = PHIX\r\nC\r\nC     TRANSFORM THE FLUID STRUCTURE AREA MATRIX\r\nC\r\n   80 CALL SSG2B (PHIXR,AXY,0,AZY,1,2,1,SCR5)\r\nC\r\nC     IF FREE SURFACE POINTS EXIST - MERGE THEM WITH THE TRANSFORMED\r\nC     AREA MATRIX\r\nC\r\n      IF (NOFREE) 100,90,90\r\n   90 CALL CALCV (PVEC,UH,UZ,UFR,Z(1))\r\n      CALL GFSMRG (AHY,AZY,AFRY,0,0,0,PVEC)\r\n      GO TO 110\r\nC\r\n  100 CALL GFSWCH (AHY,AZY)\r\nC\r\nC     DETERMINE IF ANY SINGLE POINT CONSTRAINTS EXIST ON THE FLUID\r\nC\r\n  110 USET = USETF\r\n      CALL CALCV (PVEC,UY,UF,US,Z(1))\r\n      NUY = NSUB0 + NSUB1\r\n      SFBIT = 1\r\n      IF (NSUB1 .EQ. 0) SFBIT = 0\r\nC\r\nC     IF SPC POINTS EXIST ON THE FLUID - PARTITION THEM OUT OF THE\r\nC     FLUID AREA AND STIFFNESS MATRICES\r\nC\r\n      IF (SFBIT) 120,130,120\r\n  120 CALL GFSPTN (AHY,AHJ,0,0,0,PVEC,0)\r\n      CALL GFSTRN (AHJ,AJH,SCR5,SCR6)\r\n      CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC)\r\n      GO TO 160\r\nC\r\nC     IF NO SPC POINTS EXIST ON THE FLUID, CONSTRAIN THE FIRST FLUID\r\nC     POINT TO REMOVE POTENTIAL SINGULARITIES\r\nC\r\n  130 IF (COMPTP .GT. 0) WRITE (NOUT,140) UWM\r\n  140 FORMAT (A25,' 8015. THE PURELY INCOMPRESSIBLE METHOD IS AVAIL',\r\n     1       'ABLE ONLY WITH THE DIRECT FORMULATION.')\r\n      CALL GFSSPC (NUY,PVEC)\r\n      NSUB0 = NUY - 1\r\n      NSUB1 = 1\r\n      CALL GFSPTN (KYY,KJJ,0,0,0,PVEC,PVEC)\r\nC\r\nC     GENERATE THE H TRANSFORMATION MATRIX\r\nC\r\n      CALL GFSH (NUY,H)\r\n      CALL GFSTRN (AHY,AYH,SCR2,SCR6)\r\n      CALL SSG2B (H,AYH,0,AJH,0,2,1,SCR6)\r\nC\r\nC     GENERATE THE COMPRESSIBLITY MATRIX\r\nC\r\n      CALL GFSCOM (AHY,NUY,KC,IDENT,AC,SCR6)\r\nC\r\nC     SOLVE FOR THE INITIAL PRESSURE TRANSFORMATION MATRIX\r\nC\r\n  160 CALL FACTOR (KJJ,KJJL,SCR5,SCR6,SCR9,SCR10)\r\n      CALL SSG3A (0,KJJL,AJH,GJH,SCR5,SCR6,-1,0)\r\nC\r\nC     FOR COMPUTER CORE CONSERVATION REASON, THE REST OF GFSMOD IS\r\nC     MOVED TO GFSMO2, WHICH CAN BE SEGMENTED IN PARALLEL WITH GFSMOD.\r\nC\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1001 N = -1\r\n      GO TO 9999\r\n 1008 N = -8\r\nC\r\n 9999 CALL MESAGE (N,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsmrg.f",
    "content": "      SUBROUTINE GFSMRG (FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART)\r\nC\r\nC     GENERAL MATRIX MERGE ROUTINE\r\nC\r\nC\r\nC                  --               --\r\nC                  I        I        I\r\nC                  I FILE11 I FILE12 I   --     --\r\nC                  I        I        I   I       I\r\nC                  I-----------------I = I FILEA I\r\nC                  I        I        I   I       I\r\nC                  I FILE21 I FILE22 I   --     --\r\nC                  I        I        I\r\nC                  --               --\r\nC\r\nC        WHERE\r\nC\r\nC             RPART - ROW PARTITIONING VECTOR\r\nC             CPART - COLUMN PARTITION VECTOR\r\nC\r\nC\r\n      INTEGER       FILEA    ,FILE11   ,FILE12   ,FILE21   ,FILE22  ,\r\n     1              RPART    ,CPART    ,RULE     ,CORE     ,NAME(2) ,\r\n     2              RP(7)    ,CP(7)\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /       CORE(1)\r\nC\r\nC     CALCV COMMON BLOCK\r\nC\r\n      COMMON / PATX   /       LCORE    ,NSUB0    ,NSUB1\r\nC\r\nC     PARTITION - MERGE COMMON BLOCK\r\nC\r\n      COMMON / PARMEG /       IA(7)    ,IA11(7)  ,IA21(7)  ,IA12(7) ,\r\n     1                        IA22(7)  ,LCR      ,RULE\r\nC\r\n      DATA     NAME   /       4HGFSM   , 4HRG    /\r\nC\r\nC\r\nC     GET TRAILERS FOR INPUTS\r\nC\r\n      RP(1) = RPART\r\n      IF (RPART .NE. 0) CALL RDTRL (RP)\r\n      CP(1) = CPART\r\n      IF (CPART .NE. 0) CALL RDTRL (CP)\r\nC\r\n      DO 10 I = 2,7\r\n      IA(I)   = 0\r\n      IA11(I) = 0\r\n      IA12(I) = 0\r\n      IA21(I) = 0\r\n   10 IA22(I) = 0\r\nC\r\n      IA11(1) = FILE11\r\n      IF (FILE11  .NE. 0) CALL RDTRL (IA11)\r\n      IF (IA11(1) .LT. 0) IA11(1) = 0\r\n      IA12(1) = FILE12\r\n      IF (FILE12  .NE. 0) CALL RDTRL (IA12)\r\n      IF (IA12(1) .LT. 0) IA12(1) = 0\r\n      IA21(1) = FILE21\r\n      IF (FILE21  .NE. 0) CALL RDTRL (IA21)\r\n      IF (IA21(1) .LT. 0) IA21(1) = 0\r\n      IA22(1) = FILE22\r\n      IF (FILE22  .NE. 0) CALL RDTRL (IA22)\r\n      IF (IA22(1) .LT. 0) IA22(1) = 0\r\nC\r\nC     SET UP MATRIX CONTROL BLOCK FOR OUTPUT\r\nC\r\n      IA(1) = FILEA\r\n      IA(4) = 2\r\n      IF (RPART.NE.0 .AND. CPART.NE.0) IA(4) = 1\r\n      IA(5) = MAX0(IA11(5),IA12(5),IA21(5),IA22(5))\r\nC\r\nC     SET UP DUMMY PARTITION VECTOR\r\nC\r\n      I = 0\r\n      CORE(  1) = 0\r\n      CORE(I+2) = 1\r\n      CORE(I+3) = IA(2)\r\n      CORE(I+4) = 2\r\n      CORE(I+5) = 1\r\n      CORE(I+6) = 0\r\nC\r\n      RULE = 0\r\n      LCR = KORSZ(CORE)\r\nC\r\n      IF (RPART .EQ. 0) GO TO 30\r\n      IF (CPART .EQ. 0) GO TO 20\r\nC\r\nC     FULL MERGE\r\nC\r\n      IA(2) = NSUB0 + NSUB1\r\n      IA(3) = IA(2)\r\n      CALL MERGE (RP,CP,CORE)\r\n      GO TO 40\r\nC\r\nC     ROW MERGE\r\nC\r\n   20 IA(2) = NSUB0 + NSUB1\r\n      IA(3) = MAX0(IA11(3),IA12(3))\r\n      CALL MERGE (RP,CORE,CORE)\r\n      GO TO 40\r\nC\r\nC     COLUMN MERGE\r\nC\r\n   30 IF (CPART .EQ. 0) GO TO 50\r\n      IA(2) = MAX0(IA11(2),IA21(2))\r\n      IA(3) = NSUB0 + NSUB1\r\n      CALL MERGE (CORE,CP,CORE)\r\nC\r\nC     WRITE TRIALER FOR OUTPUT\r\nC\r\n   40 CALL WRTTRL (IA)\r\nC\r\n      RETURN\r\nC\r\nC     ILLEGAL INPUT - NO PARTITION VECTOR\r\nC\r\n   50 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsmt.f",
    "content": "      SUBROUTINE GFSMT(MT,MMAT,MROW)\r\nC\r\nC     ROUTINE TO ADD 1.0 TO ROW MROW AND COLUMN MROW OF MT TO PREVENT\r\nC     SINGULARITIES IN THE MASS MATRIX FOR GIVINS\r\nC\r\n      DOUBLE PRECISION        VAL\r\nC\r\n      INTEGER       Z        ,SYSBUF   ,MCB(7)   ,NAME(2)  ,MMAT\r\n     1             ,MT       ,INBLK(15),OUTBLK(15)\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     SYSTEM COMMON\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC\r\nC     PACK - UNPACK COMMON BLOCKS\r\nC\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\nC\r\n      EQUIVALENCE   ( VAL , A(1) )\r\nC\r\n      DATA NAME / 4HGFSM , 4HT    /\r\n      DATA INBLK / 15*0 /, OUTBLK / 15*0 /\r\nC\r\nC\r\n      MCB(1) = MT\r\n      CALL RDTRL(MCB)\r\n      NROW = MCB(2)\r\nC\r\nC     ALLOCATE BUFFERS\r\nC\r\n      NZ = KORSZ(Z(1))\r\n      IBUF1 = NZ - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      NZ = IBUF2 - 1\r\n      IF(NZ .LT. 100) GO TO 1008\r\nC\r\nC     OPEN FILES\r\nC\r\n      CALL MAKMCB(MCB,MMAT,NROW,1,2)\r\n      INBLK(1) = MT\r\n      OUTBLK(1) = MMAT\r\n      CALL GOPEN(MT,Z(IBUF1),0)\r\n      CALL GOPEN(MMAT,Z(IBUF2),1)\r\nC\r\nC     COPY RECORDS UP TO MROW\r\nC\r\n      IF(MROW .EQ. 1) GO TO 310\r\n      MR = MROW - 1\r\n      DO 300 I=1,MR\r\n      CALL CPYSTR(INBLK,OUTBLK,0,0)\r\n  300 CONTINUE\r\nC\r\nC    PACK OUT COLUMN MROW WITH A 1.0 IN ROW MROW.  THE COLUMN IS NULL\r\nC     IN MT SO IT IS SKIPPED\r\nC\r\n  310 CALL BLDPK(2,2,MMAT,0,0)\r\n      IROW = MROW\r\n      VAL = 1.0D0\r\n      CALL ZBLPKI\r\n      CALL BLDPKN(MMAT,0,MCB)\r\nC\r\n      IF(MROW .GE. NROW) GO TO 320\r\n      CALL FWDREC(*1002,MT)\r\nC\r\nC     BLAST OUT REST OF FILE\r\nC\r\n      CALL CPYFIL(MT,MMAT,Z,NZ,ICNT)\r\nC\r\nC     CLOSE FILES\r\nC\r\n  320 CALL CLOSE(MT,1)\r\n      CALL CLOSE(MMAT,1)\r\nC\r\nC     COPY TRAILER OVER.  THE DENSITY WILL BE SLIGHTLY OFF BECAUSE\r\nC     OF THE NEW TERM BUT IT:S CLOSE\r\nC\r\n      MCB(1) = MT\r\n      CALL RDTRL(MCB)\r\n      MCB(1) = MMAT\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1002 CALL MESAGE(-2,MT,NAME)\r\n 1008 CALL MESAGE(-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsptn.f",
    "content": "      SUBROUTINE GFSPTN (FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART)\r\nC\r\nC     GENERAL MATRIX PARTION ROUTINE\r\nC\r\nC\r\nC                              --               --\r\nC                              I        I        I\r\nC                  --     --   I FILE11 I FILE12 I\r\nC                  I       I   I        I        I\r\nC                  I FILEA I = I-----------------I\r\nC                  I       I   I        I        I\r\nC                  --     --   I FILE21 I FILE22 I\r\nC                              I        I        I\r\nC                              --               --\r\nC\r\nC        WHERE\r\nC\r\nC             RPART - ROW PARTITIONING VECTOR\r\nC             CPART - COLUMN PARTITION VECTOR\r\nC\r\n      INTEGER       FILEA    ,FILE11   ,FILE12   ,FILE21   ,FILE22  ,\r\n     1              RPART    ,CPART    ,RULE     ,CORE     ,NAME(2) ,\r\n     2              RP(7)    ,CP(7)\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /       CORE(1)\r\nC\r\nC     CALCV COMMON BLOCK\r\nC\r\nC\r\nC     PARTITION - MERGE COMMON BLOCK\r\n      COMMON / PATX   /       LCORE    ,NSUB0    ,NSUB1\r\nC\r\n      COMMON / PARMEG /       IA(7)    ,IA11(7)  ,IA21(7)  ,IA12(7) ,\r\n     1                        IA22(7)  ,LCR      ,RULE\r\nC\r\n      DATA     NAME   /       4HGFSP   ,4HTN     /\r\nC\r\nC\r\nC     GET TRAILERS FOR INPUTS\r\nC\r\n      RP(1) = RPART\r\n      IF (RPART .NE. 0) CALL RDTRL (RP)\r\n      CP(1) = CPART\r\n      IF (CPART .NE. 0) CALL RDTRL (CP)\r\n      IA(1) = FILEA\r\n      CALL RDTRL (IA)\r\nC\r\nC     SET UP MATRIX CONTROL BLOCKS FOR OUTPUTS\r\nC\r\n      IA11(1) = FILE11\r\n      IA12(1) = FILE12\r\n      IA21(1) = FILE21\r\n      IA22(1) = FILE22\r\nC\r\n      DO 10 I = 2,5\r\n      IA11(I) = IA(I)\r\n      IA12(I) = IA(I)\r\n      IA21(I) = IA(I)\r\n   10 IA22(I) = IA(I)\r\nC\r\nC     SET UP DUMMY PARTITION VECTOR\r\nC\r\n      I = 0\r\n      CORE(  1) = 0\r\n      CORE(I+2) = 1\r\n      CORE(I+3) = IA(2)\r\n      CORE(I+4) = 2\r\n      CORE(I+5) = 1\r\n      CORE(I+6) = 0\r\nC\r\n      RULE = 0\r\n      LCR  = KORSZ(CORE)\r\nC\r\n      IF (RPART .EQ. 0) GO TO 30\r\n      IF (CPART .EQ. 0) GO TO 20\r\nC\r\nC     FULL PARTITION\r\nC\r\n      IA11(3) = NSUB0\r\n      IA12(3) = NSUB0\r\n      IA21(3) = NSUB1\r\n      IA22(3) = NSUB1\r\n      CALL PARTN (RP,CP,CORE)\r\n      GO TO 40\r\nC\r\nC     ROW PARTITION\r\nC\r\n   20 CALL PARTN (RP,CORE,CORE)\r\n      GO TO 40\r\nC\r\nC     COLUMN PARTITION\r\nC\r\n   30 IF (CPART .EQ. 0) GO TO 1007\r\n      IA11(3) = NSUB0\r\n      IA12(3) = NSUB0\r\n      IA21(3) = NSUB1\r\n      IA22(3) = NSUB1\r\n      CALL PARTN (CORE,CP,CORE)\r\nC\r\nC     WRITE TRAILERS FOR OUTPUTS\r\nC\r\n   40 IF (IA11(1) .NE. 0) CALL WRTTRL (IA11)\r\n      IF (IA12(1) .NE. 0) CALL WRTTRL (IA12)\r\n      IF (IA21(1) .NE. 0) CALL WRTTRL (IA21)\r\n      IF (IA22(1) .NE. 0) CALL WRTTRL (IA22)\r\nC\r\n      RETURN\r\nC\r\nC     ILLEGAL INPUT - NO PARTITION VECTOR\r\nC\r\n 1007 CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfsspc.f",
    "content": "      SUBROUTINE GFSSPC(NUY,PVEC)\r\nC\r\nC     ROUTINE TO CALCULATE A PARTITIONING VECTOR TO REMOVE FIRST\r\nC     ROW AND COLUMN OF FLUID STIFFNESS MATRIX IF NO SPC'S ARE ON\r\nC     THE FLUID\r\nC\r\n      INTEGER       MCB(7)   ,PVEC     ,Z        ,SYSBUF   ,NAME(2)\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\nC     SYSTEM COMMON\r\nC\r\n      COMMON / SYSTEM /       SYSBUF\r\nC\r\nC     PACK - UNPACK COMMON BLOCKS\r\nC\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\nC\r\n      DATA NAME / 4HGFSS , 4HPC   /\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      NZ = KORSZ(Z(1))\r\n      IBUF = NZ - SYSBUF\r\n      NZ = IBUF - 1\r\n      IF(NZ .LT. 0) GO TO 1008\r\nC\r\n      NUY1 = NUY - 1\r\n      CALL MAKMCB(MCB,PVEC,NUY,2,1)\r\n      CALL GOPEN(PVEC,Z(IBUF),1)\r\n      CALL BLDPK(1,1,PVEC,0,0)\r\n      A(1) = 1.0\r\n      IROW = 1\r\n      CALL ZBLPKI\r\n      CALL BLDPKN(PVEC,0,MCB)\r\n      CALL CLOSE(PVEC,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1008 CALL MESAGE(-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfstrn.f",
    "content": "      SUBROUTINE GFSTRN(A,AT,I,SCR1)\r\nC\r\nC     MATRIX TRANSPOSE ROUTINE\r\nC\r\nC     MORE EFFICIENT THEN TRANSPOSE FOR SPARSE MATRICES\r\nC\r\nC\r\nC     TRANSPOSE IS SOLVED BY THE FOLLOWING EQUATION\r\nC\r\nC                                    T\r\nC                  --    --   --   --  --   --\r\nC                  I      I   I     I  I     I\r\nC                  I  AT  I = I  A  I  I  I  I\r\nC                  I      I   I     I  I     I\r\nC                  --    --   --   --  --   --\r\nC\r\nC     WHERE I IS AN IDENITY MATRIX\r\nC\r\nC\r\n      INTEGER       A        ,AT       ,I        ,SCR1     ,MCB(7)\r\n     1             ,Z        ,SYSBUF   ,NAME(2)\r\nC\r\nC     SYSTEM PARAMETERS\r\nC\r\n      COMMON /SYSTEM /        SYSBUF\r\nC\r\nC     PACK COMMON\r\nC\r\n      COMMON / ZBLPKX /       VAL(4)   ,IROW\r\nC\r\nC     OPEN CORE\r\nC\r\n      COMMON / ZZZZZZ /        Z(1)\r\nC\r\n      DATA NAME / 4HGFST , 4HRN   /\r\nC\r\nC***********************************************************************\r\nC\r\n      NZ = KORSZ(Z)\r\n      IBUF = NZ - SYSBUF\r\n      IF(IBUF .LT. 0) CALL MESAGE(-8,0,NAME)\r\nC\r\nC     GET MATRIX TRAILER\r\nC\r\n      MCB(1) = A\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1) .LT. 0) RETURN\r\n      IR = MCB(3)\r\nC\r\nC     GENERATE A SQUARE IDENITY MATRIX   IR BY IR\r\nC\r\n      VAL(1) = 1.0\r\n      CALL MAKMCB(MCB,I,IR,2,2)\r\n      CALL GOPEN(I,Z(IBUF),1)\r\nC\r\n      DO 10 IROW=1,IR\r\n      CALL BLDPK(1,2,I,0,0)\r\n      CALL ZBLPKI\r\n      CALL BLDPKN(I,0,MCB)\r\n   10 CONTINUE\r\n      CALL CLOSE(I,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\nC     PERFORM MULTIPLY\r\nC\r\n      CALL SSG2B(A,I,0,AT,1,2,1,SCR1)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gfswch.f",
    "content": "      SUBROUTINE GFSWCH (FILE1,FILE2)\r\nC\r\nC     THE PURPOSE OF THIS SUBROUTINE IS TO INTERCHANGE THE NAMES OF\r\nC     TWO FILES.  THIS IS ACCOMPLISHED BY THE DIRECT UPDATEING\r\nC     OF THE FIAT AND THE FIST\r\nC\r\n      EXTERNAL         LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      INTEGER          FILE1,FILE2,MODNAM(2),NAME(2),PSAVE1,PSAVE2,\r\n     1                 ANDF,ORF,RSHIFT,COMPLF,UNIT,UNIT1,UNIT2,UNT\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON  /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON  /XFIAT / IFIAT(3)\r\n      COMMON  /XFIST / IFIST(2)\r\n      COMMON  /XPFIST/ IPFIST\r\n      COMMON  /SYSTEM/ SYSBUF,NOUT,SKIP(21),ICFIAT\r\n      DATA     MODNAM/ 4HGFSW,4HCH   /\r\nC\r\n      MASK   = LSHIFT(1,30) - 1\r\n      MASK   = LSHIFT(RSHIFT(MASK,16),16)\r\n      MASK1  = COMPLF(MASK)\r\n      MASK2  = 32767\r\n      MASK3  = COMPLF(MASK2)\r\n      NUNIQE = IFIAT(1)*ICFIAT + 3\r\n      MXE    = IFIAT(2)*ICFIAT + 3\r\n      LASTWD = IFIAT(3)*ICFIAT + 3\r\nC\r\nC     LOCATE FILE POINTERS IN THE FIST\r\nC\r\n      NWD    = 2*IPFIST   + 2\r\n      NACENT = 2*IFIST(2) + 2\r\n      NFILES = NACENT - NWD\r\n      PSAVE1 = 0\r\n      PSAVE2 = 0\r\n      DO 25 I = 1,NFILES,2\r\n      IF (IFIST(NWD+I).NE.FILE1 .AND. IFIST(NWD+I).NE.FILE2) GO TO 25\r\n      IF (IFIST(NWD+I) - FILE1) 10,15,10\r\n   10 IF (IFIST(NWD+I) - FILE2) 25,20,25\r\n   15 PSAVE1 = IFIST(NWD+I+1) + 1\r\n      ILOC1  = I+NWD\r\n      GO TO 25\r\n   20 PSAVE2 = IFIST(NWD+I+1) + 1\r\n      ILOC2  = I+NWD\r\n   25 CONTINUE\r\nC\r\nC     CHECK THAT FILES ARE IN FIST\r\nC\r\n      IF (PSAVE1 .EQ. 0) CALL MESAGE (-1,FILE1,MODNAM)\r\n      IF (PSAVE2 .EQ. 0) CALL MESAGE (-1,FILE2,MODNAM)\r\nC\r\nC     SWITCH THE FIST POINTERS\r\nC\r\n      IFLOC = IFIST(ILOC1+1)\r\n      IFIST(ILOC1+1) = IFIST(ILOC2+1)\r\n      IFIST(ILOC2+1) = IFLOC\r\nC\r\nC     SWITCH FILE NAMES IN FIAT\r\nC\r\n      NAME(1)= IFIAT(PSAVE1+1)\r\n      NAME(2)= IFIAT(PSAVE1+2)\r\n      UNIT1  = ANDF(MASK2,IFIAT(PSAVE1))\r\n      UNIT2  = ANDF(MASK2,IFIAT(PSAVE2))\r\n      NWD    = ICFIAT*IFIAT(3)-2\r\n      LTU1   = ANDF(MASK,IFIAT(PSAVE1))\r\n      LTU2   = ANDF(MASK,IFIAT(PSAVE2))\r\n      IFIAT(PSAVE1  ) = ORF(ANDF(IFIAT(PSAVE1),MASK2 ),LTU2)\r\n      IFIAT(PSAVE1+1) = IFIAT(PSAVE2+1)\r\n      IFIAT(PSAVE1+2) = IFIAT(PSAVE2+2)\r\n      IFIAT(PSAVE2  ) = ORF(ANDF(IFIAT(PSAVE2),MASK2),LTU1)\r\n      IFIAT(PSAVE2+1) = NAME(1)\r\n      IFIAT(PSAVE2+2) = NAME(2)\r\nC\r\nC     SWITCH STACKED DATA BLOCKS\r\nC\r\n      DO 100 I = 4,NWD,ICFIAT\r\n      IF (PSAVE1.EQ.I .OR. PSAVE2.EQ.I) GO TO 100\r\n      IF (IFIAT(I+1).EQ.0 .AND. IFIAT(I+2).EQ.0) GO TO 100\r\n      UNIT = ANDF(MASK2,IFIAT(I))\r\n      IF (UNIT.NE.UNIT1 .AND. UNIT.NE.UNIT2) GO TO 100\r\n      IF (UNIT .EQ. UNIT1) UNT = UNIT2\r\n      IF (UNIT .EQ. UNIT2) UNT = UNIT1\r\n      IF (I .GT. NUNIQE) GO TO 70\r\nC\r\nC     DATA BLOCK RESIDES IN UNIQUE PART OF FIAT\r\nC     MOVE ENTRY TO BOTTOM\r\nC\r\n      IF (LASTWD+ICFIAT .LE. MXE) GO TO 40\r\n      WRITE  (NOUT,30) SFM\r\n   30 FORMAT (A25,' 1021, FIAT OVERFLOW')\r\n      CALL MESAGE (-37,0,MODNAM)\r\n   40 IFIAT(LASTWD+1) = ORF(ANDF(IFIAT(I),MASK3),UNT)\r\n      DO 50 K = 2,ICFIAT\r\n   50 IFIAT(LASTWD+K) = IFIAT(I+K-1)\r\n      LASTWD   = LASTWD   + ICFIAT\r\n      IFIAT(3) = IFIAT(3) + 1\r\nC\r\nC     CLEAR OLD ENTRY IN UNIQUE PART\r\nC\r\n      IFIAT(I) = ANDF(IFIAT(I),MASK2)\r\n      J1 = I + 1\r\n      J2 = I + ICFIAT - 1\r\n      DO 60 K = J1,J2\r\n   60 IFIAT(K) = 0\r\n      GO TO 100\r\nC\r\nC     DATA BLOCK RESIDES IN NON-UNIQUE PORTION OF FIAT\r\nC     SWITCH UNIT NUMBERS\r\nC\r\n   70 IFIAT(I) = ORF(ANDF(IFIAT(I),MASK3),UNT)\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gi.f",
    "content": "      SUBROUTINE GI\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         MULTI,SINGLE,OMIT\r\n      INTEGER         ANDF,TWO1,IA(7)\r\n      INTEGER         UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      INTEGER         SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,SCR1,\r\n     1                SCR2,SCR3,SCR4,SCR5,KSIZE,GSIZE,GTKA\r\n      COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,GTKA,\r\n     1                KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /BLANK / NK,NG\r\n      DATA    SINGLE/ .TRUE./, MULTI /.TRUE./, OMIT /.TRUE./\r\n      DATA       IA / 7*0  /\r\nC\r\n      SPLINE = 101\r\n      USETA  = 102\r\n      CSTM   = 103\r\n      BAGPDT = 104\r\n      SILA   = 105\r\n      ECTA   = 106\r\n      GM     = 107\r\n      GO     = 108\r\n      GTKA   = 201\r\n      KSIZE  = NK\r\n      GSIZE  = NG\r\n      IF (GSIZE .GT. 0) GO TO 5\r\n      IA(1)  = SILA\r\n      CALL RDTRL (IA)\r\n      GSIZE  = IA(3)\r\n    5 CONTINUE\r\n      SCR1   = 301\r\n      SCR2   = 302\r\n      SCR3   = 303\r\n      SCR4   = 304\r\n      SCR5   = 305\r\n      CALL GIGGKS\r\n      IA(1)  = USETA\r\n      CALL RDTRL (IA)\r\n      IF (ANDF(IA(5),TWO1(UM)) .EQ. 0) MULTI  = .FALSE.\r\n      IF (ANDF(IA(5),TWO1(US)) .EQ. 0) SINGLE = .FALSE.\r\n      IF (ANDF(IA(5),TWO1(UO)) .EQ. 0) OMIT   = .FALSE.\r\n      IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 10\r\n      SCR2 = GTKA\r\n   10 CALL GIGTKG\r\n      CALL GIPSST\r\n      IF (MULTI .OR. SINGLE .OR. OMIT) GO TO 20\r\n      GO TO 30\r\n   20 CALL GIGTKA (MULTI,SINGLE,OMIT)\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gibstk.f",
    "content": "      SUBROUTINE GIBSTK (NDSTK,IOLD,RENUM,NDEG,LVL,LVLS1,LVLS2,CCSTOR,\r\n     1                   JUMP,ICRIT,NHIGH,NLOW,NACUM,SIZE,STPT,UN,IDIM)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     GIBBSTOCK USES GRAPH THEORETICAL METHODS TO PRODUCE A PERMUTATION\r\nC     OF AN INPUT ARRAY WHICH REDUCES ITS BANDWITH\r\nC\r\nC     THE FOLLOWING INPUT PARAMETERS ARE REQUIRED--NDSTK,N,IDEG,IOLD\r\nC\r\nC     THESE INTEGER ARRAYS MUST BE DIMENSIONED IN THE CALLING PROGRAM--\r\nC     NDSTK(NR,D1),RENUM(D2+1),NDEG(D2),IOLD(D2),LVL(D2),LVLS1(D2),\r\nC     LVLS2(D2),CCSTOR(D2)   WHERE D1 .GE. MAX DEGREE OF ANY NODE AND\r\nC     D2 AND NR ARE .GE. THE TOTAL NUMBER OF NODES IN THE GRAPH.\r\nC\r\nC     EXPLANATION OF PARAMETERS--\r\nC     NDSTK   - ADJACENCY ARRAY REPRESENTING GRAPH TO BE PROCESSED\r\nC               NDSTK(I,J) = NODE NUMBER OF JTH CONNECTION TO NODE\r\nC               NUMBER I.  A CONNECTION OF A NODE TO ITSELF IS NOT\r\nC               LISTED.  EXTRA POSITIONS MUST HAVE ZERO FILL.\r\nC     NR      - ROW DIMENSION ASSIGNED NDSTK IN CALLING PROGRAM = II1\r\nC     IOLD(I) - RENUMBERING OF ITH NODE BEFORE GIBBSTOCK PROCESSING\r\nC               IF NO RENUMBERING EXISTS THEN ILD(1)=1,ILD(2)=2, ETC.\r\nC     N       - NUMBER OF NODES IN GRAPH BEING PROCESSED\r\nC     IDEG    - MAX DEGREE OF ANY NODE IN GRAPH BEING PROCESSED\r\nC     JUMP   IS SET TO 0 IF EITHER CRITERION IS REDUCED.\r\nC     ICRIT   - RESEQUENCING CRITERION, SET BY BANDIT\r\nC               1 RMS WAVEFRONT, 2 BANDWIDTH, 3 PROFILE, 4 MAX.WAVEFRONT\r\nC\r\nC     ON OUTPUT THESE VARIABLES CONTAIN THE FOLLOWING INFORMATION--\r\nC     RENUM(I)- THE NEW NUMBER FOR THE ITH NODE\r\nC     NDEG(I) - THE DEGREE OF THE ITH NODE\r\nC     IDPTH   - NUMBER OF LEVELS IN GIBBSTOCK LEVEL STRUCTURE\r\nC     IBW2    - THE BANDWITH AFTER RENUMBERING\r\nC     IPF2    - THE PROFILE AFTER RENUMBERING\r\nC\r\nC     THE FOLLOWING ONLY HAVE MEANING IF THE GRAPH WAS ALL ONE COMPONENT\r\nC     LVL(I)  - INDEX INTO LVLS1 TO THE FIRST NODE IN LEVEL I\r\nC               LVL(I+1)-LVL(I)= NUMBER OF NODES IN ITH LEVEL\r\nC     LVLS1   - LEVEL STRUCTURE CHOSEN BY GIBBSTOCK\r\nC     LVLS2(I)- THE LEVEL ASSIGNED TO NODE I BY GIBBSTOCK\r\nC\r\n      INTEGER          STNODE,   RVNODE,   RENUM,    XC,       SUMWB,\r\n     1                 STNUM,    CCSTOR,   SIZE,     STPT,     SBNUM,\r\n     2                 OBW,      OP,       XCMAX\r\n      REAL             IM1,      IM2\r\n      DIMENSION        NHIGH(1), NLOW(1),  NACUM(1), SIZE(1),  STPT(1),\r\n     1                 CCSTOR(1),IOLD(1),  LVL(1),   LVLS1(1), LVLS2(1),\r\n     2                 RENUM(1), NDEG(1),  NDSTK(1), UN(1)\r\n      COMMON /BANDA /  DUM5A(5), METHOD\r\n      COMMON /BANDB /  DUM3B(3), NGRID\r\n      COMMON /BANDD /  OBW,      NBW,      OP,       NP,       NCM,\r\n     1                 NZERO\r\n      COMMON /BANDG /  N,        IDPTH,    IDEG\r\n      COMMON /BANDW /  MAXW0,    RMS0,     MAXW1,    RMS1,     I77,\r\n     1                 BRMS0,    BRMS1\r\n      COMMON /BANDS /  NN,       MM\r\n      COMMON /SYSTEM/  IBUF,     NOUT,     DUM6S(6), NLPP\r\nC\r\nC     OLD AND NEW MAX AND RMS WAVEFRONT FOR ENTIRE PROBLEM,\r\nC     NOT JUST GIBSTK.\r\nC     DIMENSIONS OF NHIGH, NLOW, AND NACUM ARE IDIM EACH\r\nC     SIZE AND STPT HAVE DIMENSION IDIM/2 AND SHOULD BE CONTIGUOUS IN\r\nC     CORE WITH SIZE FIRST.\r\nC     XC = NUMBER OF SUB-COMPONENTS RESULTING AFTER REMOVING DIAMETER\r\nC     FROM ONE COMPONENT OF ORIGINAL GRAPH.\r\nC\r\n      XCMAX = IDIM/2\r\n      NCM   = 0\r\n      N     = NN\r\n      IBW2  = 0\r\n      IPF2  = 0\r\nC\r\nC     SET RENUM(I) = 0 FOR ALL I TO INDICATE NODE I IS UNNUMBERED\r\nC     THEN COMPUTE DEGREE OF EACH NODE AND ORIGINAL B AND P.\r\nC\r\n      DO 30 I = 1,N\r\n   30 RENUM(I) = 0\r\n      CALL DGREE (NDSTK,NDEG,IOLD,IBW1,IPF1,UN)\r\nC\r\nC     ORIGINAL ACTIVE COLUMN DATA IN MAXW1 AND RMS1, COMPUTED BY SCHEME\r\nC\r\n      IF (METHOD .NE. 0) GO TO 35\r\n      MAXWA = MAXW1\r\n      RMSA  = RMS1\r\n      BRMSA = BRMS1\r\n      GO TO 38\r\n   35 MAXWA = MAXW0\r\n      RMSA  = RMS0\r\n      BRMSA = BRMS0\r\n   38 CONTINUE\r\nC\r\nC     NUMBER THE NODES OF DEGREE ZERO\r\nC     SBNUM = LOW  END OF AVAILABLE NUMBERS FOR RENUMBERING\r\nC     STNUM = HIGH END OF AVAILABLE NUMBERS FOR RENUMBERING\r\nC\r\n      SBNUM = 1\r\n      STNUM = N\r\n      DO 40 I = 1,N\r\n      IF (NDEG(I) .GT. 0) GO TO 40\r\n      RENUM(I) = STNUM\r\n      STNUM = STNUM-1\r\n   40 CONTINUE\r\nC\r\nC     NODES OF ZERO DEGREE APPEAR LAST IN NEW SEQUENCE.\r\nC\r\n      NZERO = N - STNUM\r\n      NCM   = NZERO\r\nC\r\nC     FIND AN UNNUMBERED NODE OF MIN DEGREE TO START ON\r\nC\r\n   50 LOWDG = IDEG + 1\r\n      NCM   = NCM + 1\r\n      NFLG  = 1\r\n      ISDIR = 1\r\n      DO 70 I = 1,N\r\n      IF (NDEG(I).GE.LOWDG .OR. RENUM(I).GT.0) GO TO 70\r\n      LOWDG  = NDEG(I)\r\n      STNODE = I\r\n   70 CONTINUE\r\nC\r\nC     FIND PSEUDO-DIAMETER AND ASSOCIATED LEVEL STRUCTURES.\r\nC     STNODE AND RVNODE ARE THE ENDS OF THE DIAM AND LVLS1 AND LVLS2\r\nC     ARE THE RESPECTIVE LEVEL STRUCTURES.\r\nC\r\n      CALL FNDIAM (STNODE,RVNODE,NDSTK,NDEG,LVL,LVLS1,LVLS2,CCSTOR,\r\n     1             IDFLT,SIZE,UN,IDIM)\r\n      IF (NGRID .EQ. -3) RETURN\r\n      IF (NDEG(STNODE) .LE. NDEG(RVNODE)) GO TO 75\r\nC\r\nC     NFLG INDICATES THE END TO BEGIN NUMBERING ON\r\nC\r\n      NFLG   =-1\r\n      STNODE = RVNODE\r\n   75 CALL RSETUP (LVL,LVLS1,LVLS2,           NACUM,IDIM)\r\nC                                  NHIGH,NLOW,    <===== NEW\r\n      IF (NGRID .EQ. -3) RETURN\r\nC\r\nC     FIND ALL THE CONNECTED COMPONENTS  (XC COUNTS THEM)\r\nC\r\n      XC    = 0\r\n      LROOT = 1\r\n      LVLN  = 1\r\n      DO 85 I = 1,N\r\n      IF (LVL(I) .NE. 0) GO TO 85\r\n      XC = XC + 1\r\n      IF (XC .LE. XCMAX) GO TO 80\r\nC\r\nC     DIMENSION EXCEEDED.  STOP JOB.\r\nC\r\n      NGRID =-3\r\n      RETURN\r\nC\r\n   80 STPT(XC) = LROOT\r\n      CALL TREE (I,NDSTK,LVL,CCSTOR,NDEG,LVLWTH,LVLBOT,LVLN,MAXLW,N,UN)\r\n      SIZE(XC) = LVLBOT + LVLWTH - LROOT\r\n      LROOT = LVLBOT + LVLWTH\r\n      LVLN  = LROOT\r\n   85 CONTINUE\r\n      CALL PIKLVL (*90,LVLS1,LVLS2,CCSTOR,IDFLT,ISDIR,XC,NHIGH,NLOW,\r\n     1             NACUM,SIZE,STPT)\r\nC\r\nC     ON RETURN FROM PIKLVL, ISDIR INDICATES THE DIRECTION THE LARGEST\r\nC     COMPONENT FELL.  ISDIR IS MODIFIED NOW TO INDICATE THE NUMBERING\r\nC     DIRECTION.  NUM IS SET TO THE PROPER VALUE FOR THIS DIRECTION.\r\nC\r\n   90 ISDIR = ISDIR*NFLG\r\n      NUM   = SBNUM\r\n      IF (ISDIR .LT. 0) NUM = STNUM\r\nC\r\n      CALL NUMBER (STNODE,NUM,NDSTK,LVLS2,NDEG,RENUM,LVLS1,LVL,NFLG,\r\n     1             IBW2,IPF2,CCSTOR,ISDIR,NHIGH,NLOW,NACUM,SIZE,UN,IDIM)\r\n      IF (NGRID .EQ. -3) RETURN\r\nC\r\nC     UPDATE STNUM OR SBNUM AFTER NUMBERING\r\nC\r\n      IF (ISDIR .LT. 0) STNUM = NUM\r\n      IF (ISDIR .GT. 0) SBNUM = NUM\r\n      IF (SBNUM .LE. STNUM) GO TO 50\r\nC\r\nC     COMPUTE THE NEW BANDWIDTH, PROFILE, AND WAVEFRONT.\r\nC\r\n      CALL WAVEY (NDSTK,RENUM,LVL,0,LVLS2,LVLS1,MAXB,MAXWB,AVERWB,\r\n     1            SUMWB,RMSB,BRMSB,UN)\r\nC\r\n      IBW2 = MAXB\r\n      IPF2 = SUMWB\r\n      IF (NLPP .GT. 50) WRITE (NOUT,100) MAXB,SUMWB,MAXWB,AVERWB,\r\n     1                                   RMSB,BRMSB\r\n  100 FORMAT (/31X,66HAFTER RESEQUENCING BY GIBBS-POOLE-STOCKMEYER (GPS)\r\n     1 ALGORITHM - - -,\r\n     2        /40X,13HBANDWIDTH    ,I9,  /40X,13HPROFILE      ,I9,\r\n     3        /40X,13HMAX WAVEFRONT,I9,  /40X,13HAVG WAVEFRONT,F9.3,\r\n     4        /40X,13HRMS WAVEFRONT,F9.3,/40X,13HRMS BANDWIDTH,F9.3)\r\nC\r\nC     CHECK NEW NUMBERING AGAINST OLD NUMBERING.\r\nC\r\n      GO TO (110,120,130,140), ICRIT\r\n  110 IM1   = RMSA\r\n      IM2   = IPF1\r\n      CRIT1 = RMSB\r\n      CRIT2 = IPF2\r\n      GO TO 150\r\n  120 IM1   = IBW1\r\n      IM2   = IPF1\r\n      CRIT1 = IBW2\r\n      CRIT2 = IPF2\r\n      GO TO 150\r\n  130 IM1   = IPF1\r\n      IM2   = IBW1\r\n      CRIT1 = IPF2\r\n      CRIT2 = IBW2\r\n      GO TO 150\r\n  140 IM1   = MAXWA\r\n      IM2   = RMSA\r\n      CRIT1 = MAXWB\r\n      CRIT2 = RMSB\r\nC\r\n  150 IF (CRIT1-IM1) 210,160,170\r\n  160 IF (CRIT2 .LT. IM2) GO TO 210\r\nC\r\nC     IF ORIGINAL NUMBERING IS BETTER THAN NEW ONE, SET UP TO RETURN IT\r\nC\r\n  170 DO 200 I = 1,N\r\n  200 RENUM(I) = IOLD(I)\r\n      IBW2  = IBW1\r\n      IPF2  = IPF1\r\n      MAXWB = MAXWA\r\n      RMSB  = RMSA\r\n      BRMSB = BRMSA\r\n      GO TO 220\r\nC\r\nC     EQUATE CORRESPONDING GPS AND BANDIT VARIABLES.\r\nC\r\n  210 JUMP  = 0\r\n  220 NBW   = IBW2\r\n      NP    = IPF2\r\n      MAXW1 = MAXWB\r\n      RMS1  = RMSB\r\n      BRMS1 = BRMSB\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/giggks.f",
    "content": "      SUBROUTINE GIGGKS\r\nC\r\nC     THIS SUBROUTINE READS THE SPLINE CARDS AND DETERMINES THE\r\nC     POINTS IN THE G AND K S\r\nC\r\n      INTEGER         BUFF,BUFF1,SYSBUF,BUFF2,EQT(7),\r\n     1                SCARD(5),CCARD(5),SS1(3),LS2(3),CAERO(3),SET1(3),\r\n     2                ST2(3),NS(2),GKSET,TRL(7),TYPE,OUT,SPL3(3),\r\n     3                ATAB(2),PCSTM,PBGPT,PRCP,PTCP,PTE,PRE,CTYP,\r\n     4                SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA,GM,GO,SCR1,\r\n     5                SCR2,SCR3,SCR4,SCR5,NS1,NS2,KSIZE,GSIZE,GTKA\r\n      DIMENSION       C(18),X1B(3),X4B(3),TEMP(3),TEMP1(6),X1E(3),\r\n     1                X4E(3),CB(18),B(6),Z(28)\r\n      DIMENSION       SET2(8),CRARD(16)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ SYSBUF,OUT\r\n      COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,ECTA ,GM,GO,GTKA,\r\n     1                KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /CONDAS/ DUM(3),DEGRA\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\nC     CHANGE IN EQUIV FOR SIZE OF SCARD OR CCARD\r\nC\r\n      EQUIVALENCE    (IZ(1),Z(1),SCARD(1),SET2(1)),(Z(28),NKSET)\r\n      EQUIVALENCE    (Z(11),CCARD(1),CRARD(1))    ,(Z(27),NGSET),\r\n     1               (SET2(3),SP1), (SET2(4),SP2) ,(SET2(5),CH1),\r\n     2               (SET2(6),CH2), (SET2(7),Z1 ) ,(SET2(8),Z2 )\r\n      DATA       C / 18*0.0      /,  SET1   / 3502,35,999/\r\n      DATA     SS1 / 3302,33, 6  /,  LS2    / 3402,34,10 /,\r\n     1         ST2 / 3602,36, 8  /,  CAERO  / 3002,30,16 /\r\n      DATA    SPL3 / 4901,49, 1  /,  ATAB   / 200 ,2     /\r\n      DATA      NS / 4HGIGG,  4HKS          /,IZ2 /2     /\r\nC     DATA    IECT / 3002,46     /\r\nC\r\nC     INITILIZE\r\nC\r\n      CALL SSWTCH (18,I18)\r\n      NWDS = KORSZ(IZ)\r\n      NOGO = 0\r\n      NS1  = 0\r\n      NS2  = 0\r\n      NS3  = 0\r\nC\r\nC     BUFF  HAS SPLINE\r\nC     BUFF1 HAS CSTM,BGPT,EQAERO,SILA,SCR1\r\nC     BUFF2 HAS SCR2\r\nC\r\n      BUFF  = NWDS - SYSBUF - 1\r\n      BUFF1 = BUFF - SYSBUF - 1\r\n      BUFF2 = BUFF1- SYSBUF\r\nC\r\nC     PROCESS SET CARDS AND WRITE G LISTS ON SCR2\r\nC\r\n      IFIL = SCR2\r\n      CALL OPEN (*999,SCR2,IZ(BUFF2+1),1)\r\n      IFIL = SPLINE\r\n      CALL PRELOC (*999,IZ(BUFF+1),SPLINE)\r\nC\r\nC     SET1 CARDS\r\nC\r\n      CALL LOCATE (*340,IZ(BUFF+1),SET1,IDUM)\r\n      N   = 1\r\n      NCO = BUFF2 - N\r\n      CALL READ (*998,*310,SPLINE,IZ(N),NCO,1,NWR)\r\n      GO TO 993\r\n  310 I  = N - 1\r\n      N1 = 0\r\n      ASSIGN 335 TO TYPE\r\n  320 I = I + 1\r\n      IF (IZ(I) .EQ. -1) GO TO 330\r\n      IF (I    .EQ. NWR) GO TO 990\r\n      N1 = N1 + 1\r\n      GO TO 320\r\n  330 IF (N1 .LT. 2) GO TO 9971\r\n      CALL WRITE (SCR2,IZ(N),N1,1)\r\n  335 IF (I .EQ. NWR) GO TO 340\r\n      N  = I + 1\r\n      N1 = 0\r\n      GO TO 320\r\nC\r\nC     SET 2 CARDS\r\nC\r\n  340 CALL LOCATE (*490,IZ(BUFF+1),ST2,IDUM)\r\nC\r\nC     READ IN BAGPDT AND CSTM\r\nC\r\n      N = LS2(3) + CAERO(3) + 1\r\n      TRL(1) = CSTM\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) TRL(3) = 0\r\n      NCSTM = (TRL(3)+1)*14\r\n      PCSTM = BUFF2 - NCSTM\r\n      TRL(1)= BAGPDT\r\n      CALL RDTRL (TRL)\r\n      NBG   = (TRL(2)-TRL(3))*4\r\n      PBGPT = PCSTM - NBG\r\n      IF (PBGPT .LT. N+150) GO TO 993\r\nC\r\nC     READ IN CSTM AT PCSTM + 14 ADD BASIC COORD SYSTEM\r\nC\r\n      IZ(PCSTM  ) = 0\r\n      IZ(PCSTM+1) = 1\r\n      DO 5 I = 2,13\r\n      Z(PCSTM+I) = 0.0\r\n    5 CONTINUE\r\n      Z(PCSTM+5 ) = 1.0\r\n      Z(PCSTM+9 ) = 1.0\r\n      Z(PCSTM+13) = 1.0\r\n      IF (NCSTM .EQ. 14) GO TO 7\r\n      IFIL = CSTM\r\n      CALL GOPEN (CSTM,IZ(BUFF1+1),0)\r\n      CALL READ  (*998,*998,CSTM,IZ(PCSTM+14),NCSTM-14,1,NWR)\r\n      CALL CLOSE (CSTM,1)\r\n    7 CONTINUE\r\nC\r\nC     READ IN BAGPDT AT PBGPT\r\nC\r\n      IFIL = BAGPDT\r\n      CALL GOPEN (BAGPDT,IZ(BUFF1+1),0)\r\n      CALL READ  (*998,*998,BAGPDT,IZ(PBGPT),NBG,1,NWR)\r\n      CALL CLOSE (BAGPDT,1)\r\nC\r\nC     READ IN SET2 CARDS WITH CAERO1 APPENDED\r\nC\r\n      IFIL = SPLINE\r\n      LCA  = 0\r\n      ASSIGN 350 TO TYPE\r\n  350 CALL READ (*998,*490,SPLINE,IZ(1),N-1,0,NWR)\r\n      N1 = 1\r\n      IF (CCARD(1) .EQ. LCA) GO TO 4001\r\n      LCA= CCARD(1)\r\n      K  = PCSTM\r\n      J  = PCSTM + NCSTM - 1\r\n      IF (CCARD(3) .EQ. 0) GO TO 371\r\n      DO 360 I = K,J,14\r\n      IF (CCARD(3) .EQ. IZ(I)) GO TO 370\r\n  360 CONTINUE\r\n      GO TO 990\r\n  370 PRCP = I + 2\r\n      PTCP = I + 5\r\n      CTYP = IZ(I+1)\r\nC\r\nC     LOCATE POINTS 1 AND 4 AS INPUT\r\nC\r\n      GO TO (371,372,373), CTYP\r\n  371 X1B(1) = CRARD(9)\r\n      X1B(2) = CRARD(10)\r\n      X1B(3) = CRARD(11)\r\n      X4B(1) = CRARD(13)\r\n      X4B(2) = CRARD(14)\r\n      X4B(3) = CRARD(15)\r\n      IF (CCARD(3) .EQ. 0) GO TO 390\r\n      GO TO 374\r\n  372 X1B(1) = CRARD( 9)*COS(CRARD(10)*DEGRA)\r\n      X1B(2) = CRARD( 9)*SIN(CRARD(10)*DEGRA)\r\n      X1B(3) = CRARD(11)\r\n      X4B(1) = CRARD(13)*COS(CRARD(14)*DEGRA)\r\n      X4B(2) = CRARD(13)*SIN(CRARD(14)*DEGRA)\r\n      X4B(3) = CRARD(15)\r\n      GO TO 374\r\n  373 X1B(1) = CRARD( 9)*SIN(CRARD(10)*DEGRA)*COS(CRARD(11)*DEGRA)\r\n      X1B(2) = CRARD( 9)*SIN(CRARD(10)*DEGRA)*SIN(CRARD(11)*DEGRA)\r\n      X1B(3) = CRARD( 9)*COS(CRARD(10)*DEGRA)\r\n      X4B(1) = CRARD(13)*SIN(CRARD(14)*DEGRA)*COS(CRARD(15)*DEGRA)\r\n      X4B(2) = CRARD(13)*SIN(CRARD(14)*DEGRA)*SIN(CRARD(15)*DEGRA)\r\n      X4B(3) = CRARD(13)*COS(CRARD(14)*DEGRA)\r\n  374 CALL GMMATS (Z(PTCP),3,3,0, X1B,3,1,0, TEMP)\r\n      X1B(1) = TEMP(1) + Z(PRCP  )\r\n      X1B(2) = TEMP(2) + Z(PRCP+1)\r\n      X1B(3) = TEMP(3) + Z(PRCP+2)\r\n      CALL GMMATS (Z(PTCP),3,3,0, X4B,3,1,0, TEMP)\r\n      X4B(1) = TEMP(1) + Z(PRCP  )\r\n      X4B(2) = TEMP(2) + Z(PRCP+1)\r\n      X4B(3) = TEMP(3) + Z(PRCP+2)\r\n  390 IF (CCARD(2) .EQ. 0) GO TO 399\r\nC\r\nC     FIND ELEMENT COORDINATE SYSTEM\r\nC\r\n      DO 391 I = K,J,14\r\n      IF (CCARD(2) .EQ. IZ(I)) GO TO 392\r\n  391 CONTINUE\r\n      GO TO 990\r\n  392 PRE = I + 2\r\n      PTE = I + 5\r\n      X1B(1) = X1B(1) - Z(PRE  )\r\n      X1B(2) = X1B(2) - Z(PRE+1)\r\n      X1B(3) = X1B(3) - Z(PRE+2)\r\n      X4B(1) = X4B(1) - Z(PRE  )\r\n      X4B(2) = X4B(2) - Z(PRE+1)\r\n      X4B(3) = X4B(3) - Z(PRE+2)\r\n      CALL GMMATS (Z(PTE),3,3,1, X1B(1),3,1,0, X1E)\r\n      CALL GMMATS (Z(PTE),3,3,1, X4B(1),3,1,0, X4E)\r\n      GO TO 400\r\n  399 X1E(1) = X1B(1)\r\n      X1E(2) = X1B(2)\r\n      X4E(1) = X4B(1)\r\n      X4E(2) = X4B(2)\r\n  400 X2E = X1E(1) + CRARD(12)\r\n      Y2E = X1E(2)\r\n      X3E = X4E(1) + CRARD(16)\r\n      Y3E = X4E(2)\r\nC\r\nC     FIND PRISM POINTS\r\nC\r\n 4001 CONTINUE\r\n      PX1 = (1.0-SP1)*(1.0-CH1)*X1E(1) + (1.0-SP1)*CH1*X2E +\r\n     1      SP1*CH1*X3E + SP1*(1.0-CH1)*X4E(1)\r\n      PX2 = (1.0-SP1)*(1.0-CH2)*X1E(1) + (1.0-SP1)*CH2*X2E +\r\n     1      SP1*CH2*X3E + SP1*(1.0-CH2)*X4E(1)\r\n      PX3 = (1.0-SP2)*(1.0-CH2)*X1E(1) + (1.0-SP2)*CH2*X2E +\r\n     1      SP2*CH2*X3E + SP2*(1.0-CH2)*X4E(1)\r\n      PX4 = (1.0-SP2)*(1.0-CH1)*X1E(1) + (1.0-SP2)*CH1*X2E +\r\n     1      SP2*CH1*X3E + SP2*(1.0-CH1)*X4E(1)\r\nC\r\nC     CHECK FOR BAD GEOMETRY\r\nC\r\n      IF (PX1.GT.PX2 .OR. PX4.GT.PX3) GO TO 997\r\n      PY1 = (1.0-SP1)*(1.0-CH1)*X1E(2) + (1.0-SP1)*CH1*Y2E +\r\n     1      SP1*CH1*Y3E + SP1*(1.0-CH1)*X4E(2)\r\n      PY2 = (1.0-SP1)*(1.0-CH2)*X1E(2) + (1.0-SP1)*CH2*Y2E +\r\n     1      SP1*CH2*Y3E + SP1*(1.0-CH2)*X4E(2)\r\n      PY3 = (1.0-SP2)*(1.0-CH2)*X1E(2) + (1.0-SP2)*CH2*Y2E +\r\n     1      SP2*CH2*Y3E + SP2*(1.0-CH2)*X4E(2)\r\n      PY4 = (1.0-SP2)*(1.0-CH1)*X1E(2) + (1.0-SP2)*CH1*Y2E +\r\n     1      SP2*CH1*Y3E + SP2*(1.0-CH1)*X4E(2)\r\nC\r\nC     BUILD PRISM INEQUALITY MATRICES\r\nC\r\n      C(1) = PY1 - PY2\r\n      C(2) = PX2 - PX1\r\n      C(4) = PY2 - PY3\r\n      C(5) = PX3 - PX2\r\n      C(7) = PY3 - PY4\r\n      C(8) = PX4 - PX3\r\n      C(10)= PY4 - PY1\r\n      C(11)= PX1 - PX4\r\n      C(15)= 0.0\r\n      C(18)= 0.0\r\n      B(1) = PX2*PY1 - PX1*PY2\r\n      B(2) = PX3*PY2 - PX2*PY3\r\n      B(3) = PX4*PY3 - PX3*PY4\r\n      B(4) = PX1*PY4 - PX4*PY1\r\n      NR   = 4\r\n      IF (Z1 .EQ. 0.0) GO TO 401\r\n      C(15)=-1.0\r\n      B(5) =-Z1\r\n      NR   = 5\r\n  401 IF (Z2 .EQ. 0.0) GO TO 404\r\n      IF (Z1 .EQ. 0.0) GO TO 403\r\n      C(18)= 1.0\r\n      B(6) = Z2\r\n      NR   = 6\r\n      GO TO 404\r\n  403 C(15)= 1.0\r\n      B(5) = Z2\r\n      NR   = 5\r\nC\r\nC     CONVERT TO BASIC\r\nC\r\n  404 IF (CCARD(2) .EQ. 0) GO TO 406\r\n      CALL GMMATS (C,NR,3,0, Z(PTE),3,3,1, CB)\r\n      CALL GMMATS (Z(PTE),3,3,1, Z(PRE),3,1,0, TEMP)\r\n      CALL GMMATS (C,NR,3,0, TEMP,3,1,0, TEMP1)\r\n      B(1) = B(1) + TEMP1(1)\r\n      B(2) = B(2) + TEMP1(2)\r\n      B(3) = B(3) + TEMP1(3)\r\n      B(4) = B(4) + TEMP1(4)\r\n      IF (NR .EQ. 4) GO TO 405\r\n      B(5) = B(5) + TEMP1(5)\r\n      IF (NR .EQ. 5) GO TO 405\r\n      B(6) = B(6) + TEMP1(6)\r\n      GO TO 405\r\n  406 DO 407 I = 1,18\r\n  407 CB(I) = C(I)\r\n  405 CONTINUE\r\nC\r\nC     FINALLY TEST ALL GRID POINTS TO SEE IF THEY ARE IN PRISM\r\nC\r\n      KK = PBGPT\r\n      KKK= KK + NBG - 1\r\n      DO 440 K = KK,KKK,4\r\n      IF (IZ(K) .EQ. -1) GO TO 440\r\n      JJ = 0\r\n      DO 430 I = 1,NR\r\n      SUM = 0.0\r\n      DO 420 J = 1,3\r\n      JJ  = JJ + 1\r\n      SUM = SUM + CB(JJ)*Z(K+J)\r\n  420 CONTINUE\r\n      IF (SUM .LT. B(I)) GO TO 440\r\n  430 CONTINUE\r\nC\r\nC     FOUND ONE\r\nC\r\n      N1 = N1 + 1\r\n      IZ(N1) = (K-PBGPT)/4 + 1\r\n  440 CONTINUE\r\n      IF (N1  .LT. 2) GO TO 997\r\n      IF (I18 .EQ. 0) GO TO 446\r\n      WRITE  (OUT,445) (IZ(II),II=1,N1)\r\n  445 FORMAT (5H0SET2 ,I8,2X,(/,10I9))\r\n  446 CONTINUE\r\n      CALL WRITE (SCR2,IZ(1),N1,1)\r\n      GO TO 350\r\n  490 CALL CLOSE (SCR2,1)\r\n      CALL OPEN  (*999,SCR2,IZ(BUFF2+1),0)\r\n      NEQ = KSIZE*3\r\n      EQT(1) = SILA\r\n      CALL RDTRL (EQT)\r\n      NSIL = EQT(2)\r\n      IEQ  = BUFF2 - NEQ - NSIL\r\nC\r\nC     INITIAL CORE CHECK  PLUS FUDGE FACTOR\r\nC\r\n      IF (IEQ-150 .LT. 0) GO TO 993\r\nC\r\nC     READ SPLINE FOR K POINT POINTERS\r\nC\r\nC     READ SILA\r\nC\r\n      CALL LOCATE (*990,IZ(BUFF+1),ATAB,IDUM)\r\n      CALL READ (*998,*11,SPLINE,IZ(IEQ),NEQ+1,0,NWR)\r\n      GO TO 990\r\n   11 NEQ  = NWR\r\n      IFIL = SILA\r\n      CALL GOPEN (SILA,IZ(BUFF1+1),0)\r\n      CALL READ  (*998,*998,SILA,IZ(IEQ+NEQ),NSIL,1,NWR)\r\n      CALL CLOSE (SILA,1)\r\n      IFIL  = SPLINE\r\n      TRL(1)= SCR1\r\n      MAX   = 0\r\n      CALL GOPEN (SCR1,IZ(BUFF1+1),1)\r\nC\r\nC     N = LENGTH OF LONGEST SPLINE CARD + CAERO1 CARD + 3\r\nC     N  POINTS TO 1 ST LOCATION OF CORE AVAILABLE SEE EQIV\r\nC\r\n      N   = LS2(3) + CAERO(3) + 3\r\n      NCO = IEQ - N\r\nC\r\nC     READ SPLINE1 CARDS\r\nC\r\n      CALL LOCATE (*100,IZ(BUFF+1),SS1,IDUM)\r\n      ASSIGN 10 TO TYPE\r\n      NR = LS2(3) + CAERO(3)\r\n   10 CALL READ (*998,*100,SPLINE,IZ(1),NR,0,NWR)\r\n      NS1 = NS1 + 1\r\n      ASSIGN 30 TO GKSET\r\n      GO TO 300\r\nC\r\nC     G AND K SET ARE IN CORE SORTED  BY INTERNAL NUMBERS\r\nC     A SECOND SET OF G   ARE SORTED  BY SIL NUMBERS\r\nC     A SECOND SET OF K   ARE IN CORE BY K NUMBER\r\nC     NK POINTS TO K SET\r\nC     N1 IS FIRST LOCATION OF OPEN CORE\r\nC     NGSET IS THE NUMBER OF G  NKSET FOR K\r\nC\r\n   30 IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     WRITE ALL SPLINE1 DATA ON SCR1 AS PROCESSED\r\nC     ID OF SPLINE1 = 1\r\nC\r\n      IZ(IZ2) = 1\r\n      NW  = N1 - 1\r\n      MAX = MAX0(MAX,NW)\r\n      CALL WRITE (SCR1,IZ(1),NW,1)\r\n      GO TO 10\r\nC\r\nC     END OF SPLINE1 CARDS\r\nC\r\nC     READ SPLINE2 CARDS\r\nC\r\n  100 CALL LOCATE (*190,IZ(BUFF+1),LS2,IDUM)\r\n      ASSIGN 110 TO TYPE\r\n      NR = LS2(3) + CAERO(3)\r\n  110 CALL READ (*998,*190,SPLINE,IZ(1),NR,0,NWR)\r\n      NS2 = NS2 + 1\r\n      ASSIGN 120 TO GKSET\r\n      GO TO 300\r\nC\r\nC     ID OF SPLINE2 = 2\r\nC\r\n  120 IF (NOGO .EQ. 1) GO TO 110\r\n      IZ(IZ2) = 2\r\n      NW  = N1 - 1\r\n      MAX = MAX0(MAX,NW)\r\n      CALL WRITE (SCR1,IZ(1),NW,1)\r\n      GO TO 110\r\nC\r\nC     END OF SPLINE2 CARDS\r\nC\r\n  190 CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL GOPEN (SCR3,IZ(BUFF1+1),1)\r\nC\r\nC     SPLINE 3 CARDS TO SCR3\r\nC\r\n      CALL LOCATE (*290,IZ(BUFF+1),SPL3,IDUM)\r\n      CALL READ (*998,*200,SPLINE,IZ,IEQ,0,NS3)\r\n      GO TO 993\r\n  200 N = NS3 + 1\r\nC\r\nC     CONVERT AERO IDS TO K COLUMN NUMBERS, BUILD A LIST OF SPLINE CARD\r\nC     POINTERS, SORT ON K COLUMNS, PROCESS CARDS IN SORTED ORDER GET\r\nC     G POINTS TO SILS\r\nC\r\n      N1 = 1\r\n      NW = IEQ - 1\r\n      ASSIGN 240 TO TYPE\r\n      I = N\r\n  210 K = IZ(N1+3)\r\n      DO 220 J = 1,NEQ,3\r\n      IF (K .EQ. IZ(NW+J)) GO TO 230\r\n  220 CONTINUE\r\n      GO TO 992\r\n  230 IZ(N1+3) = IZ(NW+J+2)\r\n      IZ(I   ) = N1\r\n      IZ(I +1) = IZ(N1+3)\r\n      I  = I+2\r\n  240 N1 = N1 + IZ(N1) + 1\r\n      IF (N1 .GE. NS3) GO TO 250\r\n      GO TO 210\r\n  250 NW  = I - N\r\n      NS3 = NW/2\r\n      IF (NS3 .EQ. 0) GO TO 1001\r\n      IF (NS3 .EQ. 1) GO TO 255\r\n      CALL SORT (0,0,2,2,IZ(N),NW)\r\nC\r\nC     PROCESS BY SORTED ORDER\r\nC\r\n  255 N  = N - 1\r\n      J  = IEQ + NEQ - 1\r\n      JJ = 5\r\n      DO 280 I = 1,NW,2\r\n      N1 = IZ(N+I)\r\n      JJJ= IZ(N1) - CAERO(3)\r\n      DO 260 K = JJ,JJJ,3\r\n      L  = IZ(N1+K)\r\n      IZ(N1+K) = IZ(J+L)\r\n  260 CONTINUE\r\n      CALL WRITE (SCR3,IZ(N1+1),IZ(N1),1)\r\n  280 CONTINUE\r\n  290 CALL CLOSE (SPLINE,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL DMPFIL (SCR1,Z,NWDS)\r\n      CALL DMPFIL (SCR3,Z,NWDS)\r\n      TRL(2) = MAX\r\n      TRL(3) = NS1 + NS2\r\n      CALL WRTTRL (TRL)\r\n      IF (NOGO .EQ. 1) GO TO 1001\r\n      IF (NS1.EQ.0 .AND. NS2.EQ.0 .AND. NS3.EQ.0) GO TO 990\r\n      GO TO 1000\r\nC\r\nC     SET 1 CARDS\r\nC     SET 2 CARDS\r\nC\r\n  300 NGSET = 0\r\n      IFIL  = SCR2\r\n  301 CALL READ (*996,*996,SCR2,IZ(N),1,0,NWR)\r\n      IF (SCARD(5) .EQ. IZ(N)) GO TO 305\r\n      CALL FWDREC (*998,SCR2)\r\n      GO TO 301\r\n  305 CALL READ (*998,*306,SCR2,IZ(N),NCO,1,NWR)\r\n      GO TO 993\r\n  306 CALL REWIND (SCR2)\r\n      IFIL  = SPLINE\r\n      NGSET = NWR\r\n      N1 = N+NGSET\r\n      CALL SORT (0,0,1,1,IZ(N),NGSET)\r\nC\r\nC     GET K SET\r\nC\r\n      NK   = N1 -1\r\n      NKSET= 0\r\n      NMIN = SCARD(3)\r\n      NMAX = SCARD(4)\r\n      NCORD= CCARD(5)\r\n      IFRST= CCARD(1)\r\n      IF (NMIN .GT. NMAX) GO TO 990\r\n      J1 = NCORD*CCARD(4) + IFRST - 1\r\n      IF (NMIN.LT.IFRST .OR. NMAX.GT.J1) GO TO 990\r\n      J1 = (NMIN-IFRST)/NCORD + 1\r\n      I1 = (NMIN-IFRST) - NCORD*(J1-1) + 1\r\n      JL = (NMAX-IFRST)/NCORD + 1\r\n      IL = (NMAX-IFRST) - NCORD*(JL-1) + 1\r\n      DO 530 J = J1,JL\r\n      DO 520 I = I1,IL\r\n      IZ(N1) = IFRST + (I-1) + NCORD*(J-1)\r\n      N1 = N1 + 1\r\n      NKSET = NKSET + 1\r\n  520 CONTINUE\r\n  530 CONTINUE\r\nC\r\nC     MAKE A LIST OF SIL NUMBERS   FOR G SET\r\nC\r\n      NW = NGSET\r\n      J = IEQ + NEQ - 1\r\n      DO 610 I = 1,NW\r\n      K = IZ(N+I-1)\r\n      IZ(N1) = IZ(K+J)\r\n      N1 = N1 + 1\r\n  610 CONTINUE\r\nC\r\nC     FIND INTERNAL K POINT NUMBER  FOR BGPT PLUS K NUMBER\r\nC\r\n      JJ = 1\r\n      NW = IEQ - 1\r\n      DO 560 I = 1,NKSET\r\n      DO 540 J = JJ,NEQ,3\r\n      IF (IZ(NK+I) .EQ. IZ(NW+J)) GO TO 550\r\n  540 CONTINUE\r\n      GO TO 991\r\n  550 JJ = J\r\n      IZ(NK+I) = IZ(NW+J+1)\r\n      IZ(N1  ) = IZ(NW+J+2)\r\n      N1 = N1 + 1\r\n  560 CONTINUE\r\n      GO TO GKSET, (30,120)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  999 CALL MESAGE (-1,IFIL,NS)\r\n  998 CALL MESAGE (-3,IFIL,NS)\r\n  993 CALL MESAGE (-8,0,NS)\r\n  990 CALL MESAGE (-7,0,NS)\r\n 9971 SCARD(1) = IZ(N)\r\n  997 WRITE  (OUT,9970) UWM,SCARD(5),SCARD(1)\r\n 9970 FORMAT (A25,' 2257, SET',I9,' REFERENCED ON SPLINE CARD',I9,\r\n     1       ' IS EMPTY.')\r\n      GO TO 901\r\n  996 WRITE  (OUT,9960) UFM,SCARD(5),SCARD(1)\r\n 9960 FORMAT (A23,' 2258, SET',I9,' REFERENCED ON SPLINE CARD',I9,\r\n     2       ' NOT FOUND OR IT IS EMPTY.')\r\n      CALL REWIND (SCR2)\r\n      GO TO 900\r\n  991 WRITE  (OUT,9910) SFM,IZ(NK+I-1),CCARD(1)\r\n 9910 FORMAT (A25,' 2259, POINT ASSIGNED TO BOX',I9,' FOR CAER01',I9,\r\n     1       ' NOT IN EQAERO.')\r\n      GO TO 900\r\n  992 WRITE (OUT,9910) K,IZ(N1+2)\r\n      GO TO 900\r\n 1001 CALL MESAGE (-61,0,NS)\r\n  900 NOGO = 1\r\n  901 GO TO TYPE, (10,100,240,335,350)\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gigtka.f",
    "content": "      SUBROUTINE GIGTKA(MULTI,SINGLE,OMIT)\r\nC\r\n      LOGICAL MULTI,SINGLE,OMIT\r\n      INTEGER CORE,USET1,GM,GO,GKA,GKG,GKNB,GKM,SCR1,GKAB,GKF,\r\n     *        GKS,GKO,USETA,GKN\r\n      INTEGER  UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\nC\r\n      COMMON /PATX/  LC,N,NO,NY,USET1,IBC\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON/GICOM/ SPLINE,USETA,CSTM,BGPT,SILA,EQAERO,GM,GO,GKA,\r\n     *              KSIZE,GSIZE,SCR1,GKG,GKNB,GKM,GKAB\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      LC = KORSZ(CORE)\r\n      GKF = GKNB\r\n      GKS = GKM\r\n      GKO = GKS\r\n      USET1 = USETA\r\nC\r\nC     REDUCE TO N SET IF MULTI POINT CONSTRAINTS\r\nC\r\n      GKN = GKG\r\n      IF(.NOT.MULTI) GO TO 20\r\n      IF(.NOT.SINGLE.AND..NOT.OMIT) GKN = GKA\r\n      CALL CALCV(SCR1,UG,UN,UM,CORE)\r\n      CALL SSG2A(GKG,GKNB,GKM,SCR1)\r\n      CALL SSG2B(GM,GKM,GKNB,GKN,1,1,1,SCR1)\r\nC\r\nC     PARTITION INTO F SET IF SINGLE POINT CONSTRAINTS\r\nC\r\n   20 IF(.NOT.SINGLE) GO TO 30\r\n      IF(.NOT.OMIT) GKF = GKA\r\n      CALL CALCV(SCR1,UN,UF,US,CORE)\r\n      CALL SSG2A(GKN,GKF,  0,SCR1)\r\n      GO TO 40\r\nC\r\nC     REDUCE TO A SET IF OMITS\r\nC\r\n   30 GKF = GKN\r\n   40 IF(.NOT.OMIT) GO TO 50\r\n      CALL CALCV(SCR1,UF,UA,UO,CORE)\r\n      CALL SSG2A(GKF,GKAB,GKO,SCR1)\r\n      CALL SSG2B(GO,GKO,GKAB,GKA,1,1,1,SCR1)\r\n   50 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gigtkg.f",
    "content": "      SUBROUTINE GIGTKG\r\nC\r\n      EXTERNAL        WRITE\r\n      INTEGER         GSIZE,SCR2,SCR3,TRL(7),IZ(1),SYSBUF,OUT,BUF1,\r\n     1                BUF2,NAM(2),SDTAB(6,5),CTYPE\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUT\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /GICOM / SPLINE,DUM(8),KSIZE,GSIZE,SCR1,SCR2,SCR3\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE    (Z(1),IZ(1))\r\n      DATA    NAM   / 4HGIGT,4HKG     /\r\n      DATA    SDTAB / 9, 9, 0, 9, 1, 9,\r\n     1                9, 0, 1, 9, 2, 3,\r\n     2                9, 9, 0, 9, 9, 9,\r\n     3                9, 9, 0, 9, 1, 2,\r\n     4                9, 9, 0, 9, 1, 2/\r\nC\r\n      NCORE  = KORSZ(Z) - 2*SYSBUF\r\n      BUF1   = NCORE\r\n      BUF2   = BUF1 + SYSBUF\r\n      ITI    = 1\r\n      ITO    = 1\r\n      II     = 1\r\n      INCR   = 1\r\n      TRL(1) = SCR2\r\n      TRL(2) = 0\r\n      TRL(3) = GSIZE\r\n      TRL(4) = 2\r\n      TRL(5) = 1\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\nC\r\nC     BUILD A G BY K MATRIX PUT OUT SPLINE3 COLUMNS WHEN NECESSARY\r\nC\r\n      CALL GOPEN (SCR2,Z(BUF1),1)\r\n      CALL GOPEN (SCR3,Z(BUF2),0)\r\n      ISS  = GSIZE + 1\r\n      NCORE= NCORE - ISS\r\n      KCOL = 0\r\n      DO 80 I = 1,KSIZE\r\n      IF (KCOL .LT. I) GO TO 20\r\n   10 IF (KCOL .EQ. I) GO TO 50\r\n      NN   = 1\r\n      Z(1) = 0.0\r\n      CALL PACK (Z,SCR2,TRL)\r\n      GO TO 80\r\n   20 CALL READ (*30,*40,SCR3,Z(ISS),NCORE,0,NWR)\r\n      GO TO 90\r\n   30 KCOL = KSIZE +1\r\n      GO TO 10\r\n   40 KST  = IZ(ISS+2)\r\n      CTYPE= IZ(ISS+NWR-9)\r\n      ICM  = IZ(ISS+3)\r\n      K    = SDTAB(ICM,CTYPE)\r\n      IF(K.EQ.9) GO TO 100\r\n      KCOL = KST + K\r\n      GO TO 10\r\nC\r\nC     BUILD COLUMN FOR SPLINE CARD\r\nC\r\n   50 DO 60 J = 1,GSIZE\r\n   60 Z(J) = 0.0\r\n      NN   = GSIZE\r\n      JJ   = ISS+4\r\n      JJJ  = ISS+NWR-19\r\n      DO 70 J = JJ,JJJ,3\r\n      K    = IZ(J) + IZ(J+1) -1\r\n      Z(K) = Z(J+2)\r\n   70 CONTINUE\r\n      CALL PACK (Z,SCR2,TRL)\r\n   80 CONTINUE\r\n      CALL CLOSE (SCR2,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL WRTTRL (TRL)\r\n      GO TO 120\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n   90 CALL MESAGE (-8,NCORE,NAM)\r\n  100 WRITE  (OUT,110) UFM,IZ(ISS),CTYPE,ICM\r\n  110 FORMAT (A23,' 2263, SPLINE3',I9,' FOR CAERO',I1,\r\n     1       ' HAS ILLEGAL COMPONENT',I6)\r\n      CALL MESAGE (-37,0,NAM)\r\n  120 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ginofl.f",
    "content": "      SUBROUTINE GINOFL\r\nC\r\nC     ROUTINE FOR GINOFILE MODULE\r\nC\r\nC     MODULE GINOFILE WILL CAPTURE ONE SCRATCH FILE (301 THRU 309) OF\r\nC     PREVIOUS DAMP MODULE, AND MAKE IT A LEGITIMATE GINO FILE.\r\nC     THE SCRATCH FILE CAN BE A TABLE DATA BLOCK OR A MATRIX DATA BLOCK.\r\nC     USE DMAP ALTER TO PLACE THIS MODULE IMMEDIATELY AFTER ANY NASTRAN\r\nC     EXECUTABLE DMAP MODULE WHOSE SCRATCH FILE IS TO BE CAPTURED\r\nC\r\nC     IT IS USER'S RESPONSIBILITY TO SEE THAT NO FIAT TABLE RE-\r\nC     ARRANGEMENT BY MODULE XSFA BETWEEN THIS GINOFILE MODULE AND THE\r\nC     PREVIOUS INTENDED MODULE\r\nC\r\nC     GINOFILE  /OUTFL/C,N,P1/C,N,P2/C,N,P3  $\r\nC\r\nC     INPUT   FILE = NONE\r\nC     OUTPUT  FILE = OUTFL, ANY UNIQUE NAME\r\nC     SCRATCH FILE = 301\r\nC     PARAMETERS   -\r\nC             P1   = SCRATCH FILE NUMBER, 301,302,303,...,309\r\nC                    (NO DEFAULT)\r\nC             P2   = ADDITIONAL NUMBER OF RECORDS IN P1 FILE TO BE\r\nC                    SKIPPED (NOT INCLUDING HEADER RECORD, WHETHER IT\r\nC                    EXISTS OR NOT, DEFAULT = 0)\r\nC             P3   = NO. OF RECORDS TO BE COPIED TO OUTPUT FILE OUTFL,\r\nC                    STARTING FROM THE P2+1 RECORD, OR UP TO EOF RECORD\r\nC                    (DEFAULT JJ=999999)\r\nC\r\nC     THIS GINOFILE MODULE SHOULD BE MAPPED IN ALL LINKS EXCEPT LINK1\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS, MAY 1988\r\nC     DEFINITELY THIS IS NOT AN ORDINARY JOB FOR AMATEUR OR SEASONNED\r\nC     PROGRAMMERS, MY FRIENDS\r\nC\r\nC     THE TRICKY PART OF THIS PROGRAM IS THAT GINOFILE MODULE USES ONLY\r\nC     ONE OUTPUT FILE AND ONE SCRATCH FILE, WHICH IS 301\r\nC     THE PROBLEMS HERE ARE (1) HOW TO CAPTURE OTHER SCRATCH FILE OF THE\r\nC     PREVIOUS DMAP MODULE, SAY 303, WHILE ONLY 301 IS AVAILABLE. AND\r\nC     (2) HOW TO CAPTURE SCRATCH1 FILE WHILE THE ORIGINAL 301 GINO DATA,\r\nC     SUCH AS TRAILER, UNIT NUMBER, FILE INDEX ETC. ARE GONE. (THE\r\nC     ORIGINAL 301 GINO DATA HAS BEEN ZEROED OUT TO GIVE ROOM FOR THE\r\nC     NEW SCRATCH1 BEING ASSIGNED TO GINOFILE MODULE).\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          DEBUG\r\n      CHARACTER*6      TBMX,MXTB(2)\r\n      DIMENSION        TRL(7),FN(2),NAME(2),TCHI(9)\r\n      DIMENSION        ITRL(7)\r\nC\r\n      COMMON /PACKX /  ITYPEP, JTYPEP, IROWP, JROWP, INCRP\r\n      COMMON /UNPAKX/  ITYPEU,         IROWU, JROWU, INCRU\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,SKIP(21),ICFIAT\r\n      COMMON /BLANK /  P1,P2,P3\r\n      COMMON /XFIAT /  FIAT(3)\r\n      COMMON /XFIST /  FIST(2)\r\n      COMMON /XSORTX/  SAVE(6)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (SCR,P1)\r\n      DATA    NAME  /  4HGINO,4HFL  /,  SCRA, TCH / 4HSCRA, 4H     /\r\nCWKBR DATA    BLANK /  4H           /,  IZ2 / 2   /,OUTFL  / 201   /\r\n      DATA    IZ2 / 2   /,OUTFL  / 201   /\r\n      DATA    TCHI  /  4HTCH1,4HTCH2 ,  4HTCH3,4HTCH4,4HTCH5,4HTCH6,\r\n     1                 4HTCH7,4HTCH8 ,  4HTCH9    /\r\n      DATA    MXTB  /  'MATRIX'      ,  'TABLE '  /,DEBUG  /.FALSE./\r\nC\r\nC     CHECK SCRATCH FILE PARAMETER\r\nC\r\n      IF (SCR.GT.300 .AND. SCR.LT.400) GO TO 20\r\n      WRITE  (NOUT,10) UWM,SCR\r\n   10 FORMAT (A25,', SCRATCH FILE PARAMETER ERROR. GINOFILE ABORTED AND'\r\n     1,      ' NO OUTPUT GINO FILE CREATED', /5X,'FIRST PARAMETER =',I5)\r\n      GO TO 300\r\n   20 IF (SCR .LT. 310) GO TO 40\r\n      WRITE  (NOUT,30) UFM\r\n   30 FORMAT (A23,', GINOFILE IS PROGRAMMED TO PROCESS ONLY THE FIRST ',\r\n     1       '9 SCRATCH FILES')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     SETUP CORE, BUFFERS, AND GINO OUTPUT FILE NAME\r\nC\r\n   40 KORE  = KORSZ(Z(1))\r\n      IBUF1 = KORE - SYSBUF - 1\r\n      IBUF2 = IBUF1- SYSBUF\r\n      KORE  = IBUF2- 1\r\n      CALL FNAME (OUTFL,FN)\r\nC\r\nC     RECAPTURE SCRATCH FILE NUMBER, TRAILER, AND INDEX POINTER IN FIAT\r\nC     AND FIST\r\nC     NOTE -\r\nC     IT IS HERE THAT SCRATCH FILE IS LIMITED FROM 301 THRU 309\r\nC     SCRATCH FILES 310 AND HIGHER MAY NOT HAVE UNIQUE 8-LETTER NAMES\r\nC     IN ALL COMPUTERS.\r\nC\r\n      INDEX = 0\r\n      K   = FIAT(3)*ICFIAT - 2\r\n      TCH = TCHI(SCR-300)\r\n      DO 50 I = 4,K,ICFIAT\r\n      IF (FIAT(I+1).EQ.SCRA .AND. FIAT(I+2).EQ.TCH) GO TO 70\r\n   50 CONTINUE\r\n      WRITE  (NOUT,60) UFM,SCR\r\n   60 FORMAT (A23,', SCRATCH FILE',I4,' DOES NOT EXIST IN FIAT TABLE. ',\r\n     1       'THIS ERROR MAY DUE TO', /5X,\r\n     2       'USER ERROR, OR GINOFILE WAS PRECEDED BY XSFA MODULE')\r\n      CALL MESAGE (-37,0,NAME)\r\n   70 INDEX = I\r\n      IF (DEBUG) WRITE (6,80) INDEX\r\n   80 FORMAT (5X,'INDEX =',I6)\r\n      IF (SCR .NE. 301) GO TO 90\r\nC\r\nC     IF SCRATCH FILE IS 301, THE TRAILER IN FIAT HAS BEEN INITIALIZED\r\nC     TO ZEROS. MUST RECLAIM THE TRAILER FROM /XSORTX/, SAVED BY WRTTRL\r\nC\r\nC     THE LABEL COMMON /XSORTX/, DEFINED VIA SEMDBD AND AVAILABLE IN ALL\r\nC     LINKS, IS ORIGNALLY USED ONLY BY XSORT2 ROUTINE WHICH WAS EXECUTED\r\nC     IN EARLY LINK1. THUS IT IS SAFE TO SAVE THE SCRATCH 301 TRAILER IN\r\nC     /XSORTX/. NOTE THE OTHER SCARTCH FILES 302 THRU 309 DO NOT HAVE\r\nC     THIS PROBLEM\r\nC\r\n      FIAT(INDEX+ 3) = SAVE(1)\r\n      FIAT(INDEX+ 4) = SAVE(2)\r\n      FIAT(INDEX+ 5) = SAVE(3)\r\n      IF (ICFIAT .EQ. 8) GO TO 90\r\n      FIAT(INDEX+ 8) = SAVE(4)\r\n      FIAT(INDEX+ 9) = SAVE(5)\r\n      FIAT(INDEX+10) = SAVE(6)\r\nC\r\nC     LOCATE 301 IN FIST TABLE AND SWAP FIAT INDEX THAT POINTS TO THE\r\nC     TARGET SCR FILE\r\nC\r\n   90 K = FIST(2)*2+2\r\n      DO 100 I=3,K,2\r\n      IF (FIST(I) .EQ. 301) GO TO 110\r\n  100 CONTINUE\r\n      CALL MESAGE (-37,0,NAME)\r\n  110 FISTI  = I\r\n      FISTI1 = FIST(I+1)\r\n      FIST(I+1) = INDEX-1\r\n      IF (DEBUG) WRITE (6,120) I,FIST(I),FIST(I+1),INDEX\r\n  120 FORMAT (10X,' I,FIST(I),FIST(I+1),INDEX =',4I6)\r\nC\r\nC     NOW, WE CAN READ THE SCRATCH FILE TRAILER\r\nC\r\n      TRL(1) = 301\r\n      CALL RDTRL (TRL(1))\r\n      TRL(1) = SCR\r\n      TBMX = MXTB(2)\r\n      IF (TRL(7) .GT. 0) TBMX = MXTB(1)\r\n      WRITE  (NOUT,130) UIM,TCH,TRL,TBMX,FN\r\n  130 FORMAT (A29,' FROM GINOFILE MODULE', /5X,'TRAILER OF SCRA',A4,\r\n     1       ' FILE IN PREVIOUS MODULE = (',I3,1H),5I5,I8,  /5X,A6,\r\n     2       ' CONTENTS OF THIS FILE WILL BE TRANSFERRED TO GINO FILE ',\r\n     3       2A4,/)\r\nC\r\nC     SWAP SCR AND SCRX (301) FILE\r\nC     OPEN SCRS FILE, AND SKIP P2 RECORDS IF REQUESTED BY USER\r\nC     (DEFAULT SKIP 1 HEADER RECORD IF IT EXISTS)\r\nC\r\n      TRL2  = TRL(2)\r\n      FILE  = SCR\r\n      SCRX  = 301\r\n      CALL OPEN (*260,SCRX,Z(IBUF1),0)\r\n      NWDS = TRL(5)\r\n      IF (NWDS .EQ. 3) NWDS =2\r\n      NWDS = TRL(3)*NWDS\r\n      ITYPEU = TRL(5)\r\n      IROWU  = 1\r\n      JROWU  = TRL(3)\r\n      INCRU  = 1\r\n      ITYPEP = ITYPEU\r\n      JTYPEP = ITYPEU\r\n      IROWP  = 1\r\n      JROWP  = TRL(3)\r\n      INCRP  = 1\r\n      ITRL(1) = OUTFL\r\n      ITRL(2) = 0\r\n      ITRL(3) = TRL(3)\r\n      ITRL(4) = TRL(4)\r\n      ITRL(5) = TRL(5)\r\n      ITRL(6) = 0\r\n      ITRL(7) = 0\r\n      CALL RECTYP (SCRX, IRCTYP)\r\n      IF (IRCTYP .EQ. 0) GO TO 135\r\n      ICRQ = NWDS -KORE\r\n      IF (ICRQ .LE. 0) GO TO 145\r\n      CALL MESAGE (-8, SCRX, NAME)\r\n  135 CALL READ (*250,*140,SCRX,Z,2,1,K)\r\nCWKBR  140 IF (Z(1).NE.SCRA .OR. Z(IZ2).NE.TCH) CALL BCKREC (SCRX,1)\r\n  140 IF (Z(1).NE.SCRA .OR. Z(IZ2).NE.TCH) CALL BCKREC (SCRX)\r\n  145 NCOL = 0\r\n      IF (P3 .LE. 0) P3 = 999999\r\n      IF (P2 .LE. 0) GO TO 160\r\n      DO 150 II=1,P2\r\n  150 CALL FWDREC (*250,SCRX)\r\nC\r\nC     OPEN OUTPUT GINO FILE AND WRITE A HEADER RECORD\r\nC\r\n  160 FILE = OUTFL\r\n      CALL OPEN  (*260,OUTFL,Z(IBUF2),1)\r\n      CALL WRITE (OUTFL,FN,2,1)\r\n  162 CALL RECTYP (SCRX, IRCTYP)\r\n      IF (IRCTYP .EQ. 0) GO TO 170\r\nC\r\nC     PROCESS STRING-FORMATED RECORD HERE\r\nC\r\n      CALL UNPACK (*164, SCRX, Z)\r\n      GO TO 168\r\n  164 DO 166 L = 1, NWDS\r\n      Z(L) = 0\r\n  166 CONTINUE\r\n  168 CALL PACK (Z, OUTFL, ITRL)\r\n      GO TO 185\r\nC\r\nC     COPY SCRATCH FILE DATA DIRECTLY TO OUTPUT FILE\r\nC\r\n  170 CALL READ  (*190,*180,SCRX,Z,KORE,0,K)\r\n      CALL WRITE (OUTFL,Z,KORE,0)\r\n      GO TO 170\r\n  180 CALL WRITE (OUTFL,Z,K,1)\r\n  185 NCOL = NCOL + 1\r\n      IF (NCOL .LT. P3) GO TO 162\r\nC\r\nC     ALL DONE, CLOSE ALL FILES, WRITE TRAILER, AND ISSUE FRIENDLY\r\nC     MESSAGES\r\nC\r\n  190 CALL CLOSE (SCRX ,1)\r\n      CALL CLOSE (OUTFL,1)\r\n      TRL(1) = OUTFL\r\n      TRL(2) = NCOL\r\n      IF (NCOL .GT. ITRL(2)) CALL WRTTRL (TRL)\r\n      IF (NCOL .EQ. ITRL(2)) CALL WRTTRL (ITRL)\r\n      WRITE  (NOUT,200) UIM,TCH,FN\r\n  200 FORMAT (A29,', DATA TRANSFER FROM PREVIOUS SCRA',A4,' FILE TO ',\r\n     1        2A4,' IS ACCOMPLISHED')\r\n      IF (P2 .GT.      0) WRITE (NOUT,210) TCH,P2\r\n      IF (P3 .LT. 999999) WRITE (NOUT,220) P3\r\n  210 FORMAT (5X,'FIRST',I5,' RECORDS IN SCRA',A4,' FILE WERE SKIPPED ',\r\n     1       'BEFORE DATA TRANSFER')\r\n  220 FORMAT (5X,'LAST RECORD COPIED WAS RECORD NO.',I5)\r\n      WRITE  (NOUT,230) FN,TRL\r\n  230 FORMAT (5X,'TRAILER OF THE NEW GINO FILE ',2A4,'  = (',I3,1H),\r\n     1        5I5,I8)\r\nC\r\nC     IF SCRATCH FILE CONTAINS MATRIX DATA, CHECK NO. OF COLUMNS\r\nC\r\n      IF (TBMX.EQ.MXTB(1) .AND. NCOL.NE.TRL2 .AND.\r\n     1   (P2.EQ.0 .AND. P3.EQ.999999)) WRITE (NOUT,240) UIM,TCH,FN\r\n  240 FORMAT (A29,', POSSIBLE ERROR IN GINOFILE WAS DETECTED', /5X,\r\n     1       'NUMBERS OF COLUMNS IN INPUT FILE SCAR',A4,\r\n     2       ' AND OUTPUT FILE ',2A4,' DISAGREE',//)\r\nC\r\nC     RESET FIST ORIGINAL INDEX FOR SCRATCH FILE 301\r\nC\r\n      FIST(FISTI+1) = FISTI1\r\n      GO TO 300\r\nC\r\nC     ERRORS\r\nC\r\n  250 K =-2\r\n      GO TO 270\r\n  260 K = -1\r\n  270 CALL MESAGE (K,FILE,NAME)\r\nC\r\n  300 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gipsst.f",
    "content": "      SUBROUTINE GIPSST\r\nC\r\nC     THIS SUBROUTINE LOCATES ALL THE G AND K SET POINTS IN THE SPLINE\r\nC     COORDINATE SYSTEM AND FORMS G FOR EACH SET THEN\r\nC     INSERTS THE G INTO THE FULL SIZED G MATRIX\r\nC\r\n      LOGICAL         OXR,OYR,ZAP,KCOL\r\n      INTEGER         SYSBUF,OUT,BUFF,BUFF1,TRL(7),TGKG(7),OLDID,IZ(28),\r\n     1                PCSTM,PBGPT,NWR,TYPE,NS(2),PROE,PTE,ISNG,SLOPE,\r\n     2                PG,PK,PROL,PTL,BUFF2,CTYPE,PSIL\r\n      INTEGER         SCARD(10),CCARD(16)\r\n      INTEGER         SPLINE,USETA,CSTM,BAGPDT,SILA,EQAERO,GM,GO,SCR1,\r\n     1                SCR2,SCR3,SCR4,SCR5,KSIZE,GSIZE,GTKA\r\n      DIMENSION       TL(9),ROL(3),AN(6),BLOCK(20),TGS(18),T(3),TG(9)\r\n      DIMENSION       TT(9),Z(1),SRARD(10)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZNTPKX/ A,DUM(3),NR,IEOL,IEOR\r\n      COMMON /SYSTEM/ SYSBUF,OUT\r\n      COMMON /GICOM / SPLINE,USETA,CSTM,BAGPDT,SILA,EQAERO,GM,GO,GTKA,\r\n     1                KSIZE,GSIZE,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /UNPAKX/ ITC,II,J1,INCR\r\n      COMMON /ZZZZZZ/ IZX(1)\r\nC\r\nC     CHANGE IN EQUIV FOR SIZE OF SCARD OR CCARD\r\nC     NEED TO CHANGE PENDC\r\nC\r\n      EQUIVALENCE     (IZX(1),IZ(1),Z(1),SCARD(1),SRARD(1)),\r\n     1                (IZ(11),CCARD(1)) ,(IZ(27),NGSET) ,(IZ(28),NKSET)\r\n      DATA     NS   / 4HGIPS,4HST  /\r\n      DATA     TGS  / 18*0.0       /\r\nC\r\n      PENDC = 28\r\n      NOGO  = 0\r\n      OLDID =-1\r\n      LC    =-1\r\n      NWDS  = KORSZ(IZ)\r\n      BUFF  = NWDS - SYSBUF\r\n      BUFF1 = BUFF - SYSBUF\r\n      BUFF2 = BUFF1- SYSBUF\r\n      TRL(1)= CSTM\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) TRL(3) = 0\r\n      NCSTM = (TRL(3)+1)*14\r\n      PCSTM = BUFF2 - NCSTM\r\n      TRL(1)= BAGPDT\r\n      CALL RDTRL (TRL)\r\n      NBG   = TRL(2)*4\r\n      PBGPT = PCSTM - NBG\r\n      TRL(1)= SCR1\r\n      CALL RDTRL (TRL)\r\n      MAX   = TRL(2)\r\n      IF (TRL(3) .EQ. 0) GO TO 1000\r\n      I     = SCR2\r\n      SCR2  = SCR3\r\n      SCR3  = I\r\n      IPASS = 0\r\nC\r\nC     INITIAL CORE CHECK\r\nC\r\n      IF (PBGPT-2*MAX .LT. 0) GO TO 993\r\nC\r\nC     OPEN SCR1 TO LOOP ON G AND K SET RECORDS\r\nC\r\n      CALL GOPEN (SCR1,IZ(BUFF+1),0)\r\nC\r\nC     READ IN CSTM AT PCSTM + 14 ADD BASIC COORD SYSTEM\r\nC\r\n    1 IZ(PCSTM  ) = 0\r\n      IZ(PCSTM+1) = 1\r\n      DO 5 I = 2,13\r\n      Z(PCSTM+I) = 0.0\r\n    5 CONTINUE\r\n      Z(PCSTM+5) = 1.0\r\n      Z(PCSTM+9) = 1.0\r\n      Z(PCSTM+13)= 1.0\r\n      IF (NCSTM .EQ. 14) GO TO 7\r\n      IFIL = CSTM\r\n      CALL GOPEN (CSTM,IZ(BUFF1+1),0)\r\n      CALL READ  (*999,*999,CSTM,IZ(PCSTM+14),NCSTM-14,1,NWR)\r\n      CALL CLOSE (CSTM,1)\r\n    7 CALL PRETRS (IZ(PCSTM),NCSTM)\r\nC\r\nC     READ IN BAGPDT AT PBGPT\r\nC\r\n      IFIL = BAGPDT\r\n      CALL GOPEN (BAGPDT,IZ(BUFF1+1),0)\r\n      CALL READ  (*999,*999,BAGPDT,IZ(PBGPT),NBG,1,NWR)\r\n      CALL CLOSE (BAGPDT,1)\r\nC\r\nC     READ SCR1 AND PROCESS A SPLINE DEPENDING ON TYPE\r\nC\r\n   10 N1  = MAX + 1\r\n      IFIL= SCR1\r\n      CALL READ (*500,*20,SCR1,IZ(1),N1,1,NWR)\r\n   20 J   = 2\r\n      TYPE= IZ(J)\r\n      PG  = PENDC\r\n      PK  = PG + NGSET\r\n      PSIL= PK + NKSET\r\n      IPK = PSIL + NGSET\r\n      NP  = NGSET + NKSET\r\nC\r\nC     USE A K POINT TO PICK UP POINTER TO BAGPDT FOR\r\nC     COORDINATE SYSTEM ID OF SPLINE\r\nC\r\n      NEWID = CCARD(2)\r\n      CTYPE = CCARD(8)\r\n      K = PCSTM\r\n      J = PCSTM + NCSTM - 1\r\n      IF (NEWID .EQ. OLDID) GO TO 40\r\n      DO 30 I = K,J,14\r\n      IF (IZ(I) .NE. NEWID) GO TO 30\r\n      PROE = I + 2\r\n      PTE  = I + 5\r\n      OLDID = NEWID\r\n      GO TO 40\r\n   30 CONTINUE\r\n      IC = NEWID\r\n      GO TO 997\r\n   40 GO TO (50,100), TYPE\r\nC\r\nC     SURFACE SPLINE\r\nC\r\n   50 GO TO (51,998,51,51,51), CTYPE\r\n   51 CONTINUE\r\n      IS  = 1\r\n      PTL = PTE\r\n      DO 54 I = 1,9\r\n   54 TL(I) = Z(PTE+I-1)\r\n      DO 60 I = 1,NP\r\n      K = (IZ(PG+I)-1)*4\r\nC\r\nC     BASIC COORDINATES\r\nC\r\n      BX =  Z(PBGPT+K+1)\r\n      BY =  Z(PBGPT+K+2)\r\n      BZ =  Z(PBGPT+K+3)\r\n      IF (NEWID .EQ. 0) GO TO 55\r\nC\r\nC     X AND Y OF SPLINE\r\nC\r\n      T1 = BX -  Z(PROE  )\r\n      T2 = BY -  Z(PROE+1)\r\n      T3 = BZ -  Z(PROE+2)\r\n      Z(N1  ) = Z(PTE)*T1   + Z(PTE+3)*T2 + Z(PTE+6)*T3\r\n      Z(N1+1) = Z(PTE+1)*T1 + Z(PTE+4)*T2 + Z(PTE+7)*T3\r\n      GO TO 59\r\n   55 Z(N1  ) = BX\r\n      Z(N1+1) = BY\r\n   59 N1 = N1 + 2\r\n   60 CONTINUE\r\n      K = MAX + 1\r\n      J = K + 2*NGSET\r\n      NCORE = PBGPT - N1\r\nC\r\nC     CORE CHECK\r\nC\r\n      N  = NGSET + 3\r\n      ND = NKSET*2\r\n      NN = N*N + 3*N + N*ND + ND*NGSET\r\n      IF (NN .LT. NCORE) GO TO 70\r\n      NCORE = BUFF2 - N1\r\n      IF (NN .GT. NCORE) GO TO 992\r\n      ZAP =.TRUE.\r\nC\r\nC     GET G FOR A SURFACE SPLINE\r\nC\r\n   70 CALL SSPLIN (NGSET,IZ(K),NKSET,IZ(J),0,0,1,1,SCARD(6),IZ(N1),\r\n     1             NCORE,ISNG)\r\n      IF (ISNG .EQ. 2) GO TO 998\r\n      IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     REVERSE SIGN OF SLOPE COLUMN\r\nC\r\n      K = N1\r\n      DO 80 I = 1,NKSET\r\n      K = K + NGSET\r\n      DO 90 J = 1,NGSET\r\n      Z(K) = -Z(K)\r\n      K = K + 1\r\n   90 CONTINUE\r\n   80 CONTINUE\r\n      GO TO 300\r\nC\r\nC     LINEAR SPLINE\r\nC\r\n  100 GO TO (101,130,101,101,101), CTYPE\r\nC\r\nC     CAERO2 PROSESSING   BODIES\r\nC\r\n  130 SCARD( 8) = NEWID\r\n      SCARD( 9) = SCARD(10)\r\n      SCARD(10) = -1.0\r\n      IBTYP = CCARD(16)\r\n      KD    = 1\r\n      DO 135 I = 2,8\r\n  135 TL(I) = 0.0\r\n      TL(1) = 1.0\r\n      TL(5) = 1.0\r\n      TL(9) = 1.0\r\n      GO TO 102\r\n  101 KD = 2\r\n  102 CONTINUE\r\nC\r\nC     FIND CORD SYSTEM OF LINEAR SPLINE\r\nC\r\n      IF (SCARD(8) .EQ. LC) GO TO 120\r\n      DO 110 I = K,J,14\r\n      IF (SCARD(8) .NE. IZ(I)) GO TO 110\r\n      LC   = SCARD(8)\r\n      PROL = I + 2\r\n      PTL  = I + 5\r\n      GO TO 120\r\n  110 CONTINUE\r\n      IC = SCARD(8)\r\n      GO TO 997\r\n  120 IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 145\r\n      T1 = Z(PROL  ) - Z(PROE)\r\n      T2 = Z(PROL+1) - Z(PROE+1)\r\n      T3 = Z(PROL+2) - Z(PROE+2)\r\n      T1 = Z(PTE+2)*T1 + Z(PTE+5)*T2 + Z(PTE+8)*T3\r\n      T2 = Z(PTE+5)*T1\r\n      T3 = Z(PTE+8)*T1\r\n      T1 = Z(PTE+2)*T1\r\n      ROL(1) = Z(PROL  ) - T1\r\n      ROL(2) = Z(PROL+1) - T2\r\n      ROL(3) = Z(PROL+2) - T3\r\n      T1 = Z(PTL+4)*Z(PTE+8) - Z(PTL+7)*Z(PTE+5)\r\n      T2 = Z(PTL+7)*Z(PTE+2) - Z(PTL+1)*Z(PTE+8)\r\n      T3 = Z(PTL+1)*Z(PTE+5) - Z(PTL+4)*Z(PTE+2)\r\n      T4 = SQRT(T1*T1 + T2*T2 + T3*T3)\r\n      IF (T4 .EQ. 0.0) GO TO 996\r\n      TL(1) = T1/T4\r\n      TL(4) = T2/T4\r\n      TL(7) = T3/T4\r\n      TL(2) = Z(PTE+5)*TL(7) - Z(PTE+8)*TL(4)\r\n      TL(5) = Z(PTE+8)*TL(1) - Z(PTE+2)*TL(7)\r\n      TL(8) = Z(PTE+2)*TL(4) - Z(PTE+5)*TL(1)\r\n      TL(3) = Z(PTE+2)\r\n      TL(6) = Z(PTE+5)\r\n      TL(9) = Z(PTE+8)\r\n  145 DO 160 I = 1,NP\r\nC\r\nC     BASIC CORD\r\nC\r\n      K  = (IZ(PG+I)-1)*4\r\n      BX =  Z(PBGPT+K+1)\r\n      BY =  Z(PBGPT+K+2)\r\n      BZ =  Z(PBGPT+K+3)\r\n      IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 150\r\n      T1 = BX - ROL(1)\r\n      T2 = BY - ROL(2)\r\n      T3 = BZ - ROL(3)\r\n      Z(N1  ) = TL(1)*T1 + TL(4)*T2 + TL(7)*T3\r\n      Z(N1+1) = TL(2)*T1 + TL(5)*T2 + TL(8)*T3\r\n      GO TO 155\r\n  150 Z(N1  ) = BX\r\n      Z(N1+1) = BY\r\n  155 N1 = N1 + 2\r\n  160 CONTINUE\r\n      IF (CTYPE .NE. 2) GO TO 169\r\n      N1 = MAX + 1\r\n      DO 165 I = 1,NP\r\n      Z(N1+1) = Z(N1)\r\n      Z(N1  ) = 0.0\r\n  165 N1 = N1 + 2\r\nC\r\nC     CHECK CORE\r\nC\r\n  169 K = MAX + 1\r\n      J = K + 2*NGSET\r\n      NCORE = PBGPT - N1\r\n      OYR = .FALSE.\r\n      OXR = .FALSE.\r\n      IF (SRARD( 9) .LT. 0.0) OXR = .TRUE.\r\n      IF (SRARD(10) .LT. 0.0) OYR = .TRUE.\r\n      IS = 3\r\n      IF (OXR) IS = IS - 1\r\n      IF (OYR) IS = IS - 1\r\n      N  = IS*NGSET + 3\r\n      ND = NKSET*(1+KD)\r\n      NN = N*N + 3*N + N*ND + ND*NGSET*IS\r\n      IF (NN .LT. NCORE) GO TO 170\r\n      NCORE = BUFF2 - N1\r\n      IF (NN .GT. NCORE) GO TO 992\r\n      ZAP =.TRUE.\r\nC\r\nC     GET G FOR A LINEAR SPLINE\r\nC\r\n  170 CALL LSPLIN (NGSET,IZ(K),NKSET,IZ(J),0,KD,1,SCARD(6),SCARD(9),\r\n     1             SCARD(10),SCARD(7),IZ(N1),NCORE,ISNG)\r\n      IF (ISNG .EQ. 2) GO TO 998\r\n      IF (NOGO .EQ. 1) GO TO 10\r\n      IF (CTYPE.EQ. 2) GO TO 300\r\nC\r\nC     TRANSFORM G TO SPLINE COORDINATES\r\nC\r\n      TYL = 1.0\r\n      TXL = 0.0\r\n      IF (NEWID.EQ.0 .AND. SCARD(8).EQ.0) GO TO 190\r\n      TYL = Z(PTE+1)*TL(2) + Z(PTE+4)*TL(5) + Z(PTE+7)*TL(8)\r\n      TXL = Z(PTE+1)*TL(1) + Z(PTE+4)*TL(4) + Z(PTE+7)*TL(7)\r\nC\r\nC     MOVE COLUMNS UP\r\nC\r\n  190 NRGS = NGSET*IS\r\n      K2   = NRGS + NRGS\r\n      K3   = K2 + NRGS\r\n      NCORE= N1\r\n      N1   = N1 + NRGS - 1\r\n      N2   = N1\r\n      DO 200 I = 1,NKSET\r\n      DO 210 K = 1,NRGS\r\n      Z(N2+K) = Z(N1+K)*TXL + Z(N1+NRGS+K)*TYL\r\n      Z(N2+NRGS+K) = Z(N1+K2+K)\r\n  210 CONTINUE\r\n      N1 = N1 + K3\r\n      N2 = N2 + K2\r\n  200 CONTINUE\r\n      N1 = NCORE\r\nC\r\nC     TRANSFORM G INTO GLOBAL\r\nC\r\n  300 CONTINUE\r\nC\r\nC                         T\r\nC     OPEN SCR2 TO WRITE G   MATRIX\r\nC                         KG\r\nC\r\n      CALL GOPEN (SCR2,IZ(BUFF1+1),1)\r\n      CALL GOPEN (SCR3,IZ(BUFF2+1),0)\r\n      TGKG(3) = GSIZE\r\n      TGKG(4) = 2\r\n      TGKG(5) = 1\r\n      TGKG(1) = SCR2\r\n      TGKG(2) = 0\r\n      TGKG(6) = 0\r\n      TGKG(7) = 0\r\n      IBCC    = 1\r\n      SIGN    = 1.0\r\n      SLOPE   = 1\r\n      KCOL    = .FALSE.\r\n      KN      = 1\r\n      KCOLN   = IZ(IPK+KN)\r\nC\r\nC     KCOLN PICKS UP COLUMN NUMBER TO INSERT\r\nC     KN POINT TO COLUMN OF G MATRIX\r\nC     SLOPE IS FLIP FLOP SWITCH FOR SLOPE COLUMN (KEEPS KCOL TRUE)\r\nC\r\nC\r\nC     LOOP THROUGH COLUMNS OF GKT\r\nC\r\n      DO 400 I = 1,KSIZE\r\n      CALL BLDPK (1,1,SCR2,BLOCK,1)\r\n      IF (KCOLN .EQ. I) KCOL = .TRUE.\r\nC\r\nC     COPY A COLUMN OR OUTPUT A NULL COLUMN\r\nC\r\n      CALL INTPK (*340,SCR3,0,1,0)\r\n      IF (KCOL) GO TO 995\r\n  330 CALL ZNTPKI\r\n      CALL BLDPKI (A,NR,SCR2,BLOCK)\r\n      IF (IEOL .EQ. 0) GO TO 330\r\n      GO TO 390\r\n  340 IF (.NOT.KCOL) GO TO 390\r\nC\r\nC     LOOP THROUGH COLUMN OF G BUILDING COLUMN OF GKT\r\nC\r\n      DO 380 J = 1,NGSET\r\n      NR = IZ(PSIL+J)\r\n      K  = (IZ(PG+J)-1)*4\r\n      CALL TRANSS (IZ(PBGPT+K),TT)\r\n      CALL GMMATS (TT,3,3,1,TL,3,3,0,TG)\r\n      GO TO (350,360), TYPE\r\nC\r\nC     TERMS OF SURFACE SPLINE\r\nC\r\n  350 CONTINUE\r\n      DO 351 JJ = 3,9,3\r\n      A = TG (JJ)*Z(N1)\r\n      CALL BLDPKI (A,NR,SCR2,BLOCK)\r\n      NR = NR + 1\r\n  351 CONTINUE\r\n      N1 = N1 + 1\r\n      GO TO 380\r\nC\r\nC     TERMS OF LINEAR SPLINE\r\nC\r\n  360 IF (CTYPE .EQ. 2) GO TO 370\r\n      IF (IS .EQ. 1) GO TO 350\r\n      TGS( 1) = TG(3)\r\n      TGS( 4) = TG(6)\r\n      TGS( 7) = TG(9)\r\n      TGS(11) = TG(1)\r\n      TGS(12) = TG(2)\r\n      TGS(14) = TG(4)\r\n      TGS(15) = TG(5)\r\n      TGS(17) = TG(7)\r\n      TGS(18) = TG(8)\r\n      GO TO 365\r\nC\r\nC     BODIES\r\nC\r\n  370 GO TO (372,371,373), IBTYP\r\n  371 GO TO (373,372,372,373), IBCC\r\n  372 TGS( 1) = TG(3)*SIGN\r\n      TGS( 4) = TG(6)*SIGN\r\n      TGS( 7) = TG(9)*SIGN\r\n      TGS(11) =-TG(2)*SIGN\r\n      TGS(12) = TG(1)*SIGN\r\n      TGS(14) =-TG(5)*SIGN\r\n      TGS(15) = TG(4)*SIGN\r\n      TGS(17) =-TG(8)*SIGN\r\n      TGS(18) = TG(7)*SIGN\r\n      GO TO 365\r\n  373 TGS( 1) = TG(2)\r\n      TGS( 4) = TG(5)\r\n      TGS( 7) = TG(8)\r\n      TGS(11) = TG(3)\r\n      TGS(12) = TG(1)\r\n      TGS(14) = TG(6)\r\n      TGS(15) = TG(4)\r\n      TGS(17) = TG(9)\r\n      TGS(18) = TG(7)\r\n  365 T(1) = Z(N1)\r\n      N1   = N1 + 1\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      IF (OXR) GO TO 361\r\n      T(2) = Z(N1)\r\n      N1   = N1 + 1\r\n  361 IF (OYR) GO TO 362\r\n      T(3) = Z(N1)\r\n      N1   = N1 + 1\r\n  362 CALL GMMATS (TGS,6,3,0,T,3,1,0,AN)\r\n      DO 363 JJ = 1,6\r\n      CALL BLDPKI (AN(JJ),NR,SCR2,BLOCK)\r\n      NR = NR + 1\r\n  363 CONTINUE\r\n  380 CONTINUE\r\nC\r\nC     COLUMN FINISHED CHECKSLOPE COLUMN NEXT OR END OF G\r\nC\r\n      IF (CTYPE .NE. 3) GO TO 382\r\n      N1 = N1 + NGSET*IS\r\n      GO TO 384\r\n  382 IF (CTYPE .NE. 2) GO TO 383\r\n      IF (IBTYP .EQ. 1) SIGN = -SIGN\r\n      IF (IBTYP .NE. 2) GO TO 383\r\n      IBCC = IBCC + 1\r\n      IF (IBCC .EQ. 3) SIGN = -SIGN\r\n      IF (IBCC .EQ. 5) SIGN = -SIGN\r\n      IF (IBCC .EQ. 5) IBCC = 1\r\nC\r\nC     KEEP SLOPE NEG FOR ZY BODIES AND REPROCESS SAME COLUMN TWICE\r\nC\r\n      IF (IBCC.EQ.2 .OR. IBCC.EQ.4) N1 = N1 - NGSET*IS\r\n      IF (IBCC .GT. 2) GO TO 390\r\n  383 SLOPE = -SLOPE\r\n      IF (SLOPE .NE. 1) GO TO 390\r\n  384 KN = KN + 1\r\n      IF (KN .GT. NKSET) GO TO 385\r\n      KCOLN = IZ(IPK+KN)\r\n  385 KCOL  = .FALSE.\r\n  390 CALL BLDPKN (SCR2,BLOCK,TGKG)\r\n  400 CONTINUE\r\nC\r\nC     SWITCH FILES FOR ANOTHER SPLINE\r\nC\r\n      CALL CLOSE (SCR2,1)\r\n      CALL WRTTRL (TGKG)\r\n      CALL CLOSE (SCR3,1)\r\n      I    = SCR2\r\n      SCR2 = SCR3\r\n      SCR3 = I\r\n      IPASS= IPASS + 1\r\n      IF (ZAP) GO TO 1\r\n      GO TO 10\r\nC\r\nC     FINISHED SWITCH FILES SO OUTPUT IS SCR2\r\nC\r\nC\r\nC     IF ALL DONE BE SURE SCR2 IS GTKA\r\nC\r\n  500 I    = SCR2\r\n      SCR2 = SCR3\r\n      SCR3 = I\r\n      IF (SCR3 .NE. 201) GO TO 520\r\n      CALL GOPEN (SCR2,Z(BUFF1),0)\r\n      CALL GOPEN (SCR3,Z(BUFF2),1)\r\n      TGKG(1) = SCR2\r\n      CALL RDTRL (TGKG)\r\n      N    = TGKG(2)\r\n      TGKG(1) = SCR3\r\n      TGKG(2) = 0\r\n      TGKG(6) = 0\r\n      TGKG(7) = 0\r\n      INCR = 1\r\n      ITC  = 1\r\n      CALL CYCT2B (SCR2,SCR3,N,Z,TGKG)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL CLOSE (SCR3,1)\r\n      CALL WRTTRL (TGKG)\r\n  520 CONTINUE\r\n      CALL CLOSE (SCR1,1)\r\n      IF (NOGO .EQ. 0) GO TO 1000\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n      CALL MESAGE (-61,0,NS)\r\n  999 CALL MESAGE (-3,IFIL,NS)\r\n  993 CALL MESAGE (-8,0,NS)\r\n  998 WRITE  (OUT,9980) UFM,SCARD(1)\r\n 9980 FORMAT (A23,' 2260, SINGULAR MATRIX DEVELOPED WHILE PROCESSING ',\r\n     1       'SPLINE',I9)\r\n      GO TO  1001\r\n  997 CALL MESAGE (30,25,IC)\r\n      GO TO 1001\r\n  996 WRITE  (OUT,9960) UFM,SCARD(1),CCARD(1)\r\n 9960 FORMAT (A23,' 2261, PLANE OF LINEAR SPLINE',I9,\r\n     1        ' PERPENDICULAR TO PLANE OF AERO ELEMENT',I9)\r\n      GO TO 1001\r\n  995 WRITE  (OUT,9950) UFM,SCARD(1)\r\n 9950 FORMAT (A23,' 2262, SPLINE',I9,' INCLUDES AERO BOX INCLUDED ON A',\r\n     1       ' EARLIER SPLINE')\r\n      GO TO 1001\r\n  992 WRITE  (OUT,9920) UFM,SCARD(1)\r\n 9920 FORMAT (A23,' 2263, INSUFFICIENT CORE TO PROCESS SPLINE',I9)\r\n 1001 NOGO = 1\r\n      GO TO 10\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/givens.f",
    "content": "      SUBROUTINE GIVENS\r\nC\r\nC     DRIVER FOR GIVENS-HOUSEHOLDER METHOD\r\nC\r\n      INTEGER          SYSBUF   ,EIGR(4)  ,ICORE(1) ,OPTION   ,FILE    ,\r\n     1                 NAME(4)  ,END      ,PHIA     ,T        ,IX(7)   ,\r\n     2                 SCR1     ,SCR2     ,SCR3     ,SCR4     ,SCR5    ,\r\n     3                 SCR6     ,SCR7\r\n      REAL             LFREQ    ,MB(1)\r\n      DOUBLE PRECISION DCORE(1) ,DLMDAS   ,DALPHA(2),DBETA(2)\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /SADDX /  NOMAT    ,LLCORE   ,MCBA(7)  ,ITYPA    ,ALPHA(4),\r\n     1                 MCBB(7)  ,ITYPB    ,BETA(4)  ,MCBCDE(36),MCBX(7)\r\n      COMMON /MGIVXX/  DLMDAS\r\n      COMMON /BLANK /  IPROB(2) ,NUMMOD   ,ICASE    ,XLMDAS\r\n     1       /GIVN  /  DUM(100) ,N        ,LFREQ    ,ORDER    ,D1      ,\r\n     2                 HFREQ    ,D2       ,NV       ,D3       ,D4      ,\r\n     3                 NFR\r\n     4       /NTIME /  LNTIME   ,TCONS(15)\r\n     5       /REGEAN/  IM(7)    ,IK(7)    ,IEV(7)   ,SCR1     ,SCR2    ,\r\n     6                 SCR3     ,SCR4     ,SCR5     ,LCORE    ,RMAX    ,\r\n     7                 RMIN     ,MZ       ,NEV      ,EPSI     ,RMINR   ,\r\n     8                 NE       ,NIT      ,NEVM     ,SCR6     ,SCR7    ,\r\n     9                 NFOUND   ,LAMDA    ,IBUCK    ,NSYM\r\n     O       /REIGKR/  OPTION\r\n     1       /SYSTEM/  SYSBUF   ,NOUT     ,NOGO     ,KSYS(51) ,JPREC\r\n     2       /ZZZZZZ/  CORE(1)\r\n      COMMON /CONDAS/  PI       ,TWOPI    ,RADEG    ,DEGRA    ,FPS\r\n      COMMON /PACKX /  ITP1     ,ITP2     ,IIP      ,JJP      ,INCRP\r\n      COMMON /UNPAKX/  ITU      ,IIU      ,JJU      ,INCRU\r\n      EQUIVALENCE      (BETA(1),DBETA(1)) ,(ALPHA(1),DALPHA(1)),\r\n     1                 (SLMDAS  ,DLMDAS ) ,(TCONS(8),MB(1)   ),\r\n     2                 (CORE(1),DCORE(1)) ,(ICORE(1),CORE(1) ),\r\n     3                 (TCONS(4),APC    ) ,(TCONS(5),APU     )\r\n      DATA     NAME /  4HGIVE   ,4HNS     ,4HBEGI   ,4HNS    /,\r\n     1         MGIV /  4HMGIV   /         ,END   /   4HENDS  /,\r\n     2         ICR1 ,  ICR2     /301, 302 /\r\nC\r\nC\r\n      CALL CONMSG (NAME,4,0)\r\n      I   = 0\r\n      KAA = ICORE(  1)\r\n      MAA = ICORE(I+2)\r\n      PHIA= ICORE(I+3)\r\n      DO 50 I = 1,4\r\n   50 EIGR(I) = ICORE(I+3)\r\n      NNV = NV\r\n      NZ  = KORSZ(CORE(1))\r\n      IBUF1 = NZ - 3 - SYSBUF\r\n      IBUF2 = IBUF1  - SYSBUF\r\n      IX(1) = KAA\r\n      CALL RDTRL (IX)\r\n      IF (IX(1) .GT. 0) GO TO 70\r\n      WRITE  (NOUT,60) SFM,IX,KAA,MAA,PHIA\r\n   60 FORMAT (A25,' FROM GIVENS.  FILE ERROR,  TRAIL =',5I5,2I8, /5X,\r\n     1       'KAA,MAA,PHIA = ',3I5)\r\n      CALL ERRTRC ('GIVENS  ',60)\r\n   70 AN = IX(2)\r\nC\r\nC     CHECK THE CORE SIZE REQUIREMENT FOR WILVEC/VALVEC BEFORE GOING\r\nC     BLINDLY INTO EIGENVALUE COMPUTATION AND EVENTUALLY STOP DUE TO\r\nC     INSUFFICIENT CORE IN THOSE ROUTINES.\r\nC     PRESENTLY CDC IS USING D.P. IN GIVENS COMPUTATION.  IF CDC VERSION\r\nC     IS MODIFIED TO USE S.P., 19 IN THE FOLLOWING FORMULA SHOULD CHANGE\r\nC     TO 10. (COMMENT FROM G.CHAN/UNISYS)\r\nC\r\n      N   = (9*JPREC+1)*IX(2) + 2*SYSBUF - NZ\r\n      IF (N .GT. 0) GO TO 120\r\n      AZ  = NZ - (3*JPREC+1)*IX(2) - 2*SYSBUF\r\n      AZ  = AZ/JPREC\r\n      AM  = SQRT(2.0*AZ)\r\n      AK  = AN - AM\r\n      AN2 = AN**2\r\n      AMB = MB(JPREC)\r\n      AV  = NV\r\n      ANV = AN*AV\r\n      AV2 = AV**2\r\n      T1  = AMB*AN*(3.0*(AN2+ANV) + AV2)\r\n      T23 = APU*(10.0*AN2 + 5.0*ANV)\r\n      T2  = APC*( 5.0*AN2 + 3.0*ANV + AV2) + T23\r\n      T3  = 0\r\n      IF (AM .LT. AN) T3 = T23+.5*(APC+APU)*AK*(AN2-AK*(AN+.5+AK/3.)+AN)\r\n      T   = (T1+T2+T3)*1.0E-6\r\n      N   = AN\r\n      M   = AM\r\n      WRITE  (NOUT,100) UIM,T,N,M\r\n  100 FORMAT (A29,' 2016, GIVENS TIME ESTIMATE IS ',I8,' SECONDS.',\r\n     1       /36X,'PROBLEM SIZE IS',I8,', SPILL WILL OCCUR FOR THIS ',\r\n     2       'CORE AT A PROBLEM SIZE OF',I8,2H .)\r\n      IF (T.GT.2000 .OR. N.GT.1000) WRITE (NOUT,110) UIM\r\n  110 FORMAT (A29,', FEER METHOD WOULD BE MORE EFFICIENT FOR PROBLEM ',\r\n     1       'OF THIS SIZE',/)\r\n      CALL TMTOGO (I)\r\n      IF (I .GE. T) GO TO 200\r\n      IP1  =-50\r\n      FILE = T\r\n      GO TO 180\r\n  120 WRITE  (NOUT,150) UIM,IX(2),IX(2),N\r\n  150 FORMAT (A29,' 3008, INSUFFICIENT CORE FOR GIVENS METHOD.', /5X,\r\n     1       'MATRIX SIZE IS',I5,3H BY,I5,'.  ADDITIONAL CORE OF',I7,\r\n     2       ' WORDS IS NEEDED.', /5X,'OR SWITCH TO INVPWR OR FEER ',\r\n     3       'METHOD.')\r\n      CALL MESAGE (-37,0,NAME)\r\n  180 CALL MESAGE (IP1,FILE,NAME)\r\nC\r\nC     CHOLESKI DECOMPOSE  MAA\r\nC\r\n  200 IF (OPTION .NE. MGIV) GO TO 250\r\n      NOMAT   = 2\r\n      MCBA(1) = KAA\r\n      MCBB(1) = MAA\r\n      CALL RDTRL (MCBA)\r\n      CALL RDTRL (MCBB)\r\n      MCBX(1) = ICR1\r\n      MCBX(2) = MCBA(2)\r\n      MCBX(3) = MCBA(3)\r\n      MCBX(4) = MCBA(4)\r\n      MCBX(5) = JPREC\r\n      MCBX(6) = 0\r\n      MCBX(7) = 0\r\n      DALPHA(1) = 0.0D0\r\n      DALPHA(2) = 0.0D0\r\n      DBETA(1)  = 0.0D0\r\n      DBETA(2)  = 0.0D0\r\n      IF (JPREC .EQ. 2) GO TO 210\r\n      SLMDAS = XLMDAS\r\n      ALPHA(1) = 1.0\r\n      BETA(1)  = SLMDAS\r\n      ITYPA = 1\r\n      ITYPB = 1\r\n      GO TO 220\r\n  210 DLMDAS = XLMDAS\r\n      DALPHA(1) = 1.0D0\r\n      DBETA(1)  = DLMDAS\r\n      ITYPA = 2\r\n      ITYPB = 2\r\n  220 LLCORE = NZ\r\n      CALL SADD (CORE,CORE)\r\n      CALL WRTTRL (MCBX)\r\n      IFILE1 = ICR1\r\n      IFILE2 = MAA\r\n      GO TO 260\r\n  250 IFILE1 = MAA\r\n      IFILE2 = KAA\r\n  260 CALL FACTOR (IFILE1,SCR3,-SCR4,SCR5,SCR6,SCR7)\r\nC\r\nC     C  IS ON SCR3\r\nC\r\nC     CHANGE SIGNS OF THE OFF-DIAGONAL TERMS OF C AS SDCOMP HAS THEM\r\nC     REVERSED.\r\nC\r\n      IP1   = -5\r\n      FILE  = SCR3\r\n      IX(1) = SCR3\r\n      CALL RDTRL (IX)\r\n      IX(5) = JPREC\r\n      ITP1  = IX(5)\r\n      ITP2  = ITP1\r\n      ITU   = ITP1\r\n      INCRP = 1\r\n      INCRU = 1\r\n      NCOL  = IX(2)\r\n      IX(1) = SCR7\r\n      IX(2) = 0\r\n      IX(6) = 0\r\n      IX(7) = 0\r\n      CALL GOPEN (SCR3,CORE(IBUF1+1),0)\r\n      CALL GOPEN (SCR7,CORE(IBUF2+1),1)\r\n      DO 400 L = 1,NCOL\r\n      IIU = 1\r\n      JJU = NCOL\r\n      CALL UNPACK (*180,SCR3,CORE)\r\n      IF (ITU .EQ. 2) GO TO 320\r\n      DO 300 K = 1,NCOL\r\n      CORE(K) = -CORE(K)\r\n  300 CONTINUE\r\n      CORE(L) = -CORE(L)\r\n      GO TO 350\r\n  320 DO 340 K = 1,NCOL\r\n      DCORE(K) = -DCORE(K)\r\n  340 CONTINUE\r\n      DCORE(L) = -DCORE(L)\r\n  350 IIP = IIU\r\n      JJP = JJU\r\n      CALL PACK (CORE,SCR7,IX)\r\n  400 CONTINUE\r\n      CALL CLOSE (SCR3,1)\r\n      CALL CLOSE (SCR7,1)\r\n      CALL WRTTRL (IX)\r\nC\r\nC     C IS NOW ON SCR7\r\nC\r\nC     INVERT  C\r\nC\r\n      CALL INVERT (SCR7,SCR5,SCR6)\r\nC\r\nC     C INVERSE IS ON SCR5\r\nC\r\nC\r\nC     GET C INVERSE TRANSPOSE ON SCR6\r\nC\r\nC     CALL TRANP1 (SCR5,SCR6,4,SCR4,SCR3,SCR7,ICR1,0,0,0,0)\r\nC     GINO UNITS    308, 305,   304, 303, 204, 301\r\nC                   ARE THESE UNITS AVAILABEL?    , 306, 307, 309\r\nC                                                  SCR1,SCR2, EMPTY\r\nC\r\nC     TRANP1 SHOULD BE 60 PERCENT FASTER BY ADDING 3 MORE SCRATCH FILES\r\nC\r\n      CALL TRANP1 (SCR5,SCR6,7,SCR4,SCR3,SCR7,ICR1,SCR1,SCR2, 309,0)\r\nC\r\nC     COMPUTE  J\r\nC\r\n      CALL SSG2B (IFILE2,SCR6,0,SCR5,0,JPREC,1,SCR4)\r\n      CALL SSG2B (SCR6  ,SCR5,0,SCR4,1,JPREC,1,SCR3)\r\nC\r\nC     J IS ON SCR4\r\nC\r\nC     EXTRACT EIGENVALUES\r\nC\r\n      CALL VALVEC\r\nC\r\nC     TRANSFORM\r\nC\r\n      CALL SSG2B (SCR6,SCR5,0,SCR4,0,JPREC,1,SCR7)\r\nC\r\nC     MERGE MODES AND FREE BODY MODES\r\nC\r\n      CALL READ6 (ICR2,SCR4,NFR,PHIA)\r\n      ICORE(1)= NNV\r\n      NAME(3) = END\r\n      CALL CONMSG (NAME,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gkad.f",
    "content": "      SUBROUTINE GKAD\r\nC\r\nC     GENERAL K ASSEMBLER DIRECT\r\nC\r\nC     INPUT = 10,  USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP\r\nC     OUTPUT = 8,  KDD,BDD,MDD,GMD,GOD,K2DD,M2DD,B2DD\r\nC     SCRATCHES = 6\r\nC     PARAMETERS 3 BCD, 3 REAL, 11 INTERGER\r\nC     - TYPE,APP,FORM, G,W3,W4, NOK2PP,MOM2PP,NOB2PP,MULTI,SINGLE,OMIT,\r\nC       NOUE,NOK4GG,NOBGG,NOKMGG,MODACC\r\nC\r\nC\r\n      INTEGER         TYPE(2),APP(2),FORM(2),IBLOCK(11),BLCK(12),MCB(7),\r\n     1                TRAN,FORC,OMIT,BAA,B2PP,B2DD,B1DD,SCR1,SCR2,SCR3,\r\n     2                SCR4,SCR5,SCR6,GM,GO,GOD,GMD,BDD,USETD,SINGLE\r\n      DOUBLE PRECISION BLOCK(5)\r\n      COMMON /BLANK / TYPE,APP,FORM, G,W3,W4, IK2PP,IM2PP,IB2PP,MULTI,\r\n     1                SINGLE,OMIT,NOUE,NOK4GG,NOBGG,NOKMGG,MODACC\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD\r\n      EQUIVALENCE     (IBLOCK(1),BLCK(2)),(BLOCK(1),BLCK(3))\r\n      DATA    USETD , GM, GO, KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP /\r\n     1        101   , 102,103,104,105,106,107, 108, 109, 110  /\r\n      DATA    KDD   , BDD,MDD,GMD,GOD,K2DD,M2DD,B2DD /\r\n     1        201   , 202,203,204,205,206, 207, 208  /\r\n      DATA    SCR1  , SCR2,SCR3,SCR4,SCR5,SCR6 /\r\n     1        301   , 302, 303, 304, 305, 306  /\r\n      DATA    FORC  , TRAN,MODAL / 4HFORC,4HTRAN,4HMODA     /\r\n      DATA    BLOCK(1),BLOCK(2),BLOCK(4),BLOCK(5),IBLOCK(1),IBLOCK(7) /\r\n     1        1.0D0 , 0.0D0,    1.0D0,   0.0D0,   2,        2         /\r\n      DATA    XNUM  , MCB / 1.0,7*0  /  ,IBLOCK(6) /    -1  /\r\nC\r\nC\r\n      KDD   = 201\r\n      BDD   = 202\r\n      MDD   = 203\r\n      K2DD  = 206\r\n      M2DD  = 207\r\n      B2DD  = 208\r\n      K1DD  = 302\r\n      M1DD  = 303\r\n      B1DD  = 304\r\n      K41DD = 305\r\n      SCR3  = 303\r\n      SCR4  = 304\r\n      IF (NOUE .GT. 0) GO TO 10\r\nC\r\nC     NO E-S A = 1DD\r\nC\r\n      K1DD  = KAA\r\n      B1DD  = BAA\r\n      M1DD  = MAA\r\n      K41DD = K4AA\r\n   10 IF (TYPE(1) .EQ. TRAN) GO TO 20\r\nC\r\nC     COMPLEX EIGENVALUE OR FREQUENCY RESPONSE - SET UP FOR FINAL ADD\r\nC\r\n      IF (IB2PP .LT. 0) B1DD = BDD\r\n      IF (IM2PP .LT. 0) M1DD = MDD\r\n      GO TO 50\r\nC\r\nC     TRANSIENT ANALYSIS - SETUP FOR FINAL ADD\r\nC\r\n   20 IF (IK2PP .LT. 0) K1DD = KDD\r\n      IF (IM2PP .LT. 0) M1DD = MDD\r\n      IF (W3 .NE.  0.0) GO TO 30\r\n      G  = 0.0\r\n      W3 = 1.0\r\n   30 IF (W4 .NE. 0.0) GO TO 50\r\n      W4   = 1.0\r\n      XNUM = 0.0\r\n   50 IF (APP(1) .NE. FORC) GO TO 60\r\nC\r\nC     FORCE APPROACH P = D\r\nC\r\n      K2DD = K2PP\r\n      B2DD = B2PP\r\n      M2DD = M2PP\r\n      GO TO 140\r\nC\r\nC     DISPLACEMENT APPROACH - REDUCE P TO D\r\nC\r\nC     IF MODAL DO NOT MAKE KDD AND BDD\r\nC\r\n   60 IF (FORM(1) .NE. MODAL) GO TO 70\r\n      KDD  = 0\r\n      K1DD = 0\r\n      BDD  = 0\r\n      B1DD = 0\r\n   70 IF (NOUE .LT. 0) GO TO 100\r\nC\r\nC     BUILD GMD AND GOD\r\nC\r\nC     M-S PRESENT\r\nC\r\n      IF (MULTI .GE. 0) CALL GKAD1A (USETD,GM,GMD,SCR1,UE,UN,UNE)\r\nC\r\nC     0-S PRESENT\r\nC\r\n      IF (OMIT .GE. 0) CALL GKAD1A (USETD,GO,GOD,SCR1,UE,UA,UD)\r\nC\r\n  100 IF (MULTI.LT.0 .AND. SINGLE.LT.0 .AND. OMIT .LT.0) GO TO 130\r\n      IF (IM2PP.LT.0 .AND. IB2PP .LT.0 .AND. IK2PP.LT.0) GO TO 130\r\nC\r\nC     REDUCE 2PP-S TO 2DD-S\r\nC\r\n      CALL GKAD1C (GMD,GOD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,USETD)\r\n      IF (IK2PP .GE. 0) CALL GKAD1D (K2PP,K2DD)\r\n      IF (IM2PP .GE. 0) CALL GKAD1D (M2PP,M2DD)\r\n      IF (IB2PP .GE. 0) CALL GKAD1D (B2PP,B2DD)\r\n  130 IF (FORM(1).EQ.MODAL .AND. MODACC.LT.0) GO TO 180\r\n      IF (NOUE .LT. 0) GO TO 140\r\nC\r\nC     EXPAND AA-S TO DD SET\r\nC\r\n      CALL GKAD1B (USETD,KAA,MAA,BAA,K4AA,K1DD,M1DD,B1DD,K41DD,UA,UE,\r\n     1             UD,SCR1)\r\n  140 IF (TYPE (1) .EQ. TRAN) GO TO 190\r\nC\r\nC     FREQUENCY RESPONSE OR COMPLEX EIGENVALUE\r\nC\r\n      IF (B1DD.EQ.BDD .OR. NOBGG.LT.0 .OR. FORM(1).EQ.MODAL) GO TO 150\r\n      CALL SSG2C (B1DD,B2DD,BDD,1,IBLOCK(1))\r\n  150 IF (M1DD.EQ.MDD .OR. NOKMGG.LT.0) GO TO 160\r\n      CALL SSG2C (M1DD,M2DD,MDD,1,IBLOCK(1))\r\n  160 IF (K1DD.EQ.KDD .OR. FORM(1).EQ.MODAL .OR. NOKMGG.LT.0) GO TO 180\r\n      IBLOCK(1) = 4\r\n      BLOCK(2)  = G\r\n      IF (NOK4GG .LT. 0) SCR4 = KDD\r\nC\r\nC     DETERMINE IF KDD IS REAL OR IMAGINARY  (COMPLEX EIGEN)\r\nC\r\n      MCB(1) = K2DD\r\n      CALL RDTRL (MCB(1))\r\n      IF (G.NE.0.0 .OR. NOK4GG.GT.0 .OR. MCB(5).GT.2) GO TO 170\r\n      IBLOCK(1) = 2\r\n      IBLOCK(7) = 2\r\n  170 CALL SSG2C (K1DD,K2DD,SCR4,1,IBLOCK)\r\n      IF (NOK4GG .LT. 0) GO TO 180\r\n      BLOCK(1) = 0.0D0\r\n      BLOCK(2) = 1.0D0\r\n      CALL SSG2C (K41DD,SCR4,KDD,1,IBLOCK(1))\r\n  180 RETURN\r\nC\r\nC     TRANSIENT ANALYSIS\r\nC\r\n  190 IBLOCK(1) = 2\r\n      IBLOCK(7) = 2\r\n      IF (K1DD.EQ.KDD .OR. NOKMGG.LT.0) GO TO 200\r\n      CALL SSG2C (K1DD,K2DD,KDD,1,IBLOCK(1))\r\n  200 IF (M1DD.EQ.MDD .OR. NOKMGG.LT.0) GO TO 210\r\n      CALL SSG2C (M1DD,M2DD,MDD,1,IBLOCK(1))\r\n  210 IF (B1DD .EQ. BDD) GO TO 180\r\n      BLOCK(1) = G/W3\r\n      BLOCK(4) = XNUM/W4\r\n      IF (G.EQ.0.0 .AND. XNUM.EQ.0.0 .AND. NOBGG.LT.0 .AND. IB2PP.LT.0)\r\n     1    GO TO 180\r\n      IF (NOBGG.LT.0 .AND. IB2PP.LT.0) SCR3 = BDD\r\n      CALL SSG2C (K1DD,K41DD,SCR3,1,IBLOCK(1))\r\n      IF (SCR3 .EQ. BDD) GO TO 180\r\n      BLOCK(1) = 1.0D0\r\n      BLOCK(4) = 1.0D0\r\n      CALL SSG2C (B1DD,B2DD,SCR5,1,IBLOCK(1))\r\n      CALL SSG2C (SCR5,SCR3,BDD, 1,IBLOCK(1))\r\n      GO TO 180\r\n      END\r\n"
  },
  {
    "path": "mis/gkad1a.f",
    "content": "      SUBROUTINE GKAD1A (USETD,GO,GOD,SCR1,UE,UA,UD)\r\nC\r\nC     GKAD1A WILL EXPAND GO BY NULL MATRIX TO MAKE GOD, AND\r\nC     AA-S TO D-S ADDING ZEROS FOR E-S\r\nC\r\n      INTEGER USETD,USET1,GO,GOD,IPV1(7),SCR1,CORE,BAA,B1DD\r\n      COMMON /PATX  / LC,N,NO,N4,USET1\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IB11(7),IB12(7),NZ,IRULE\r\n      COMMON /SYSTEM/ IDUM(54),IPREC\r\nC\r\nC\r\n      IENT = 0\r\nC\r\nC     COMPUTE CORE FOR CALCV AND MERGE\r\nC\r\n   20 LC = KORSZ(CORE)\r\nC\r\nC     BUILD PART VECTOR\r\nC\r\n      USET1 = USETD\r\n      CALL CALCV (SCR1,UD,UA,UE,CORE(1))\r\nC\r\nC     SET UP FOR MERGE\r\nC\r\n      NZ = LC\r\n      IRULE = 0\r\n      DO 10 I = 1,7\r\n      IA11 (I) = 0\r\n      IA   (I) = 0\r\n      IA12 (I) = 0\r\n      IB11 (I) = 0\r\n      IB12 (I) = 0\r\n   10 CONTINUE\r\n      IPV1(1) = SCR1\r\n      CALL RDTRL (IPV1)\r\n      IF (IENT .NE. 0) GO TO 30\r\nC\r\nC     SET UP FOR 2 WAY MERGE\r\nC\r\n      IA11(1) = GO\r\n      CALL RDTRL (IA11)\r\n      IA(1) = GOD\r\n      IA(2) = N+NO+N4\r\n      IA(3) = IA11(3)\r\n      IA(4) = IA11(4)\r\n      IA(5) = IA11(5)\r\nC     BUILD NULL COLUMN IN CORE\r\n      I = 0\r\n      CORE(  1) = 0\r\n      CORE(I+2) = 1\r\n      CORE(I+3) = IA(3)\r\n      CORE(I+4) = 2\r\n      CORE(I+5) = 1\r\n      CORE(I+6) = 0\r\n      CORE(I+7) = 0\r\n      CALL MERGE (IPV1(1),CORE(1),CORE(1))\r\n      CALL WRTTRL (IA)\r\n   40 RETURN\r\nC\r\nC\r\n      ENTRY GKAD1B (USETD,KAA,MAA,BAA,K4AA,K1DD,M1DD,B1DD,K41DD,UA,UE,\r\n     1              UD,SCR1)\r\nC     ================================================================\r\nC\r\n      IENT = 1\r\n      GO TO 20\r\nC\r\nC     VECTOR MADE, SET UP MCB-S\r\nC\r\n   30 IA(2) = N+NO+N4\r\n      IA(3) = IA(2)\r\n      IA(4) = 6\r\n      IA(5) = IPREC\r\n      IA11(1) = KAA\r\n      IA(1) = K1DD\r\n      IOUT  = 1\r\n      CALL RDTRL (IA11)\r\n      IF (IA11(1) .GT. 0) GO TO 35\r\n      K1DD = 0\r\n      GO TO 31\r\n   35 CALL MERGE (IPV1(1),IPV1(1),CORE(1))\r\n      CALL WRTTRL (IA)\r\n   31 GO TO (32,33,34,40), IOUT\r\n   32 IOUT  = 2\r\n      IA(1) = B1DD\r\n      IA11(1) = BAA\r\n      CALL RDTRL (IA11)\r\n      IF (IA11(1) .GT. 0) GO TO 35\r\n      B1DD = 0\r\n      GO TO 31\r\n   33 IOUT  = 3\r\n      IA(1) = M1DD\r\n      IA11(1) = MAA\r\n      CALL RDTRL (IA11)\r\n      IF (IA11(1) .GT. 0) GO TO 35\r\n      M1DD = 0\r\n      GO TO 31\r\n   34 IOUT  = 4\r\n      IA(1) = K41DD\r\n      IA11(1) = K4AA\r\n      CALL RDTRL (IA11)\r\n      IF (IA11(1) .GT. 0) GO TO 35\r\n      K41DD = 0\r\n      GO TO 31\r\n      END\r\n"
  },
  {
    "path": "mis/gkad1c.f",
    "content": "      SUBROUTINE GKAD1C (XMD,XOD,XCR1,XCR2,XCR3,XCR4,XCR5,XCR6,XSETD)\r\nC\r\nC     GKAD1C SETS UP TO REDUCE STRUCTURAL MODAL\r\nC\r\n      INTEGER         XMD,XOD,XCR1,XCR2,XCR3,XCR4,XCR5,XCR6,XSETD,\r\n     1                GMD,GOD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,USETD,\r\n     2                OMIT,SINGLE,CHECK,NAME(2)\r\nCNV  3                MCB(7),T\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD\r\n      COMMON /BLANK / TYPE(2),APP(2),MODAL(2),G,W3,W4,IK2PP,\r\n     1                IM2PP,IB2PP,MULTI,SINGLE,OMIT,NOUE\r\n      DATA    NAME  / 4HGKAD,4H1C      /\r\nC\r\n      GMD   = XMD\r\n      GOD   = XOD\r\n      SCR1  = XCR1\r\n      SCR2  = XCR2\r\n      SCR3  = XCR3\r\n      SCR4  = XCR4\r\n      SCR5  = XCR5\r\n      SCR6  = XCR6\r\n      USETD = XSETD\r\n      CHECK = 123456789\r\n      RETURN\r\nC\r\nC\r\n      ENTRY GKAD1D (K2PP,K2DD)\r\nC     ========================\r\nC\r\n      IF (CHECK .NE. 123456789) CALL MESAGE (-37,0,NAME)\r\nC\r\nC     NAVY'S FIX (MARKED BY CNV) TO FORCE K2NN BE SYMMETRIC IF K2PP IS\r\nC     SYMMETRIC. A PARAMETER OF -6 IS PASSED TO SSG2B TO FLAG THE FORM\r\nC     OF THE MATRIX TO BE SYMMETRIC.\r\nC     ALSO, IN SSG2B, ABOUT LINE 55, ADD FOLLOWING 2 LINES\r\nC           IF (T1 .EQ. -6) T = 1\r\nC           IF (T1 .EQ. -6) FILED(4) = SYMM\r\nC\r\nC     (THE FIX IS NOT ADOPTED HERE. A MORE GENERAL FIX IS ADDED IN SSG2B\r\nC     WHICH SHOULD TAKE CARE OF THE PROBLEM HERE   G.C/UNISYS 3/93)\r\nC\r\nCNV   MCB(1) = K2PP\r\nCNV   CALL RDTRL (MCB)\r\nCNV   T = 1\r\nCNV   IF (MCB(4) .EQ. 6) T = -6\r\nC\r\n      K2FF = K2DD\r\n      IF (MULTI .LT. 0) GO TO 20\r\n      IF (OMIT.LT.0 .AND. SINGLE.LT.0) GO TO 10\r\n      K2NN = SCR4\r\n      IF (SINGLE .LT. 0) K2NN = K2DD\r\n      GO TO 30\r\n   10 K2NN = K2DD\r\n      GO TO 30\r\n   20 K2NN = K2PP\r\n   30 IF (SINGLE .GE. 0) GO TO 40\r\n      K2FF = K2NN\r\n   40 IF (MULTI .LT. 0) GO TO 50\r\nC\r\nC     MULTI POINT CONSTRAINTS\r\nC\r\n      CALL UPART (USETD,SCR1,UP,UNE,UM)\r\n      CALL MPART (K2PP,SCR2,SCR3,SCR5,SCR4)\r\n      CALL SSG2B (SCR4,GMD,SCR3,SCR1,0,2,1,SCR6)\r\n      CALL SSG2B (SCR5,GMD,SCR2,SCR3,0,2,1,SCR6)\r\nC\r\nCNV   CALL SSG2B (GMD,SCR1,SCR3,K2NN,T,2,1,SCR6)\r\n      CALL SSG2B (GMD,SCR1,SCR3,K2NN,1,2,1,SCR6)\r\nC\r\n   50 IF (SINGLE .LT. 0) GO TO 60\r\n      CALL UPART (USETD,SCR1,UNE,UFE,US)\r\n      CALL MPART (K2NN,K2FF,0,0,0)\r\n   60 IF (OMIT .LT. 0) GO TO 70\r\n      CALL UPART (USETD,SCR1,UFE,UD,UO)\r\n      CALL MPART (K2FF,SCR2,SCR3,SCR5,SCR4)\r\n      CALL SSG2B (SCR4,GOD,SCR3,SCR1,0,2,1,SCR6)\r\n      CALL SSG2B (SCR5,GOD,SCR2,SCR3,0,2,1,SCR6)\r\nC\r\nCNV   CALL SSG2B (GOD,SCR1,SCR3,K2DD,T,2,1,SCR6)\r\n      CALL SSG2B (GOD,SCR1,SCR3,K2DD,1,2,1,SCR6)\r\nC\r\n   70 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gkam.f",
    "content": "      SUBROUTINE GKAM\r\nC\r\nC     ROUTINE TO ASSEMBLE MODAL MATRICES\r\nC\r\nC     INPUTS = 9\r\nC\r\nC     USETD,PHIA,MI,LAMA,SDT,M2DD,B2DD,K2DD,CASECC\r\nC\r\nC     OUTPUTS = 4\r\nC\r\nC     MHH,BHH,KHH,PHIDH\r\nC\r\nC     SCRATCHES = 4\r\nC\r\n      INTEGER         USETD,B2DD,SDT,PHIA,PHIDH,BHH,SCR1,SCR2,SCR3,\r\n     1                PHIDH1,SYSBUF,CASECC,NAME(2)\r\n      REAL            LFREQ\r\n      DIMENSION       MCB(7),ICORE(2),BLOCK(11),IBLOCK(11)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / NOUE,NLMODE,LFREQ,HFREQ,NOM2DD,NOB2DD,NOK2DD,\r\n     1                NONCUP,NMODE,KDAMP\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/ IT3,II1,JJ1,INCR1\r\n      COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\nC\r\n      EQUIVALENCE     (CORE(1),ICORE(1)),(IBLOCK(1),BLOCK(1))\r\nC\r\n      DATA    NAME  / 4HGKAM,4H    /\r\n      DATA    IBLOCK(1),IBLOCK(7),BLOCK(2),BLOCK(8)   / 1,1,1.0,1.0 /\r\n      DATA    USETD , PHIA,MI, LAMA,SDT,M2DD,B2DD,K2DD/\r\n     1        101   , 102, 103,104, 105,106, 107, 108 /\r\n      DATA    MHH   , BHH,KHH,PHIDH/\r\n     1        201   , 202,203,204  /\r\n      DATA    SCR1  , SCR2,SCR3,PHIDH1,CASECC /\r\n     1        301   , 302 ,303 ,304   ,109    /\r\nC\r\nC\r\nC     PICK UP AND STORE SELECTED MODES, SAVING EIGENVECTORS\r\nC\r\n      LC1  = KORSZ(CORE)\r\n      NZ   = LC1 - SYSBUF\r\n      ICRQ = 2*SYSBUF - NZ\r\n      IF (ICRQ .GT. 0) GO TO 220\r\nC\r\nC     FIND SELECTED SDT INTO CASECC\r\nC\r\n      CALL GOPEN (CASECC,CORE(NZ+1),0)\r\n      CALL FREAD (CASECC,ICORE,166,1)\r\n      CALL CLOSE (CASECC,1)\r\n      I149  = 149\r\n      NOSDT = ICORE(I149)\r\nC\r\nC     OPEN  LAMA, PHIA, AND PHI0H\r\nC\r\n      CALL GOPEN (LAMA,CORE(NZ+1),0)\r\n      CALL SKPREC (LAMA,1)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (PHIA,CORE(NZ+1),0)\r\n      ICORE(1) = PHIA\r\n      CALL RDTRL (ICORE)\r\n      NVECT = ICORE(2)\r\n      NZ = NZ - SYSBUF\r\n      IF (NOUE .LT. 0) PHIDH1 = PHIDH\r\n      CALL GOPEN (PHIDH1,CORE(NZ+1),1)\r\n      MCB(1) = PHIA\r\n      CALL RDTRL (MCB)\r\n      MCB(1)= PHIDH1\r\n      IT1   = MCB(5)\r\n      IT2   = IT1\r\n      IT3   = IT1\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      II    = 1\r\n      II1   = 1\r\n      JJ    = MCB(3)\r\n      JJ1   = JJ\r\n      MCB(2)= 0\r\n      MCB(6)= 0\r\n      MCB(7)= 0\r\n      ISW   = 1\r\n      MODES = 1\r\n      DO 10 I = 1,NVECT\r\n      CALL READ (*190,*40,LAMA,CORE(NZ-6),7,0,IFLAG)\r\nC\r\nC     PICK UP FREQUENCY\r\nC\r\n      F = CORE(NZ-2)\r\n      IF (NLMODE .EQ. 0) GO TO 50\r\nC\r\nC     ACCEPT LAMA\r\nC\r\n   20 CORE(MODES) = F*TWOPHI\r\n      MODES = MODES + 1\r\n      CALL UNPACK (*210,PHIA,CORE(MODES))\r\n      GO TO 30\r\nC\r\nC     FREQUENCY RANGE SPECIFICATION\r\nC\r\n   50 IF (F .GT. HFREQ) GO TO 40\r\n      IF (F .GE. LFREQ) GO TO 20\r\n      CALL SKPREC (PHIA,1)\r\n      ISW = ISW + 1\r\n      GO TO 10\r\n   30 CALL PACK (CORE(MODES),PHIDH1,MCB)\r\n      IF (NLMODE .EQ. 0) GO TO 10\r\n      IF (MODES .GT. NLMODE) GO TO 40\r\n   10 CONTINUE\r\nC\r\nC     DONE\r\nC\r\n   40 CALL CLOSE (LAMA,1)\r\n      CALL CLOSE (PHIA,1)\r\n      CALL CLOSE (PHIDH1,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 60\r\nC\r\nC     BUILD PHIDH\r\nC\r\n   60 LHSET = MODES - 1\r\n      NMODE = ISW\r\n      IF (LHSET .LE. 0) GO TO 230\r\n      IF (NOUE  .LT. 0) GO TO 70\r\n      CALL GKAM1B (USETD,SCR1,SCR2,PHIDH,PHIDH1,MODES,CORE,LHSET,NOUE,\r\n     1             SCR3)\r\nC\r\nC     FORM H MATRICES\r\nC\r\n   70 MODES = MODES - 1\r\nC\r\nC     SAVE MODES ON SCRATCH3 IN CASE DMI WIPES THEM OUT\r\nC\r\n      NZ = LC1 - SYSBUF\r\n      CALL OPEN  (*250,SCR3,CORE(NZ+1),1)\r\n      CALL WRITE (SCR3,CORE(1),MODES,1)\r\n      CALL CLOSE (SCR3,1)\r\n      NONCUP = 1\r\nC\r\nC     FORM  MHH\r\nC\r\n      CALL  GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,1,MHH,NO M2DD,CORE(1),MODES,\r\n     1              NOSDT,LHSET,M2DD,ISW,SCR3)\r\n      IF (NOM2DD .LT. 0) GO TO 80\r\n      CALL SSG2C (SCR1,SCR2,MHH,1,IBLOCK(1))\r\n   80 CONTINUE\r\nC\r\nC     FORM  BHH\r\nC\r\n      IF (NOSDT.EQ.0 .AND. NOB2DD.LT.0) GO TO 90\r\n      CALL GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,2,BHH,NOB2DD,CORE(1),MODES,\r\n     1             NOSDT,LHSET,B2DD,ISW,SCR3)\r\n      IF (NOB2DD .LT. 0) GO TO 90\r\n      CALL SSG2C (SCR1,SCR2,BHH,1,IBLOCK(1))\r\n   90 CONTINUE\r\nC\r\nC     FORM  KHH\r\nC\r\n      CALL GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,3,KHH,NOK2DD,CORE(1),MODES,\r\n     1             NOSDT,LHSET,K2DD,ISW,SCR3)\r\n      IF (NOK2DD .LT. 0) GO TO 100\r\n      CALL SSG2C (SCR1,SCR2,KHH,1,IBLOCK(1))\r\n  100 CONTINUE\r\n      IF (NOB2DD.LT.0 .AND. NOM2DD.LT.0 .AND. NOK2DD.LT.0) NONCUP = -1\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  120 IP1 = -1\r\n  130 CALL MESAGE (IP1,IP2,NAME)\r\n  190 IP2 = LAMA\r\n      IP1 = -3\r\n      GO TO 130\r\n  210 WRITE  (NOUT,215) SFM\r\n  215 FORMAT (A25,' 2204, UNPACK FOUND NULL COLUMN IN PHIA FILE IN ',\r\n     1       'GKAM MODULE.')\r\n      IP1 = -37\r\n      GO TO 130\r\n  220 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 130\r\nC\r\nC     NO MODES SELECTED\r\nC\r\n  230 IP1 = -47\r\n      GO TO 130\r\n  250 IP2 = SCR3\r\n      GO TO 120\r\n      END\r\n"
  },
  {
    "path": "mis/gkam1a.f",
    "content": "      SUBROUTINE GKAM1A (MI,PHIDH,SDT,SCR1,SCR2,IOPT,IOUT,NOPP,W,NW,\r\n     1                   NOSDT,LHSET,I2DD,IWS,SCR3)\r\nC\r\n      INTEGER          PHIDH,SDT,SCR1,SCR2,SYSBUF,MCB(7),SCR3,FILE,\r\n     1                 NAME(2),IHH(3)\r\n      DOUBLE PRECISION MD,MC,MA(2),ZERO(2)\r\n      DIMENSION        W(1),ITAB(2),ITABT(13)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /BLANK /  XX(9), KDAMP\r\n      COMMON /CONDAS/  PI,TWOPHI,RADEG,DEGRA,S4PISQ\r\n      COMMON /PACKX /  IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/  IT11,III,JJJ,INCR1\r\n      EQUIVALENCE      (KSYSTM(1),SYSBUF), (KSYSTM(2),NOUT),\r\n     1                 (KSYSTM(55),IPREC), (MD,MA(1)), (MC,MA(2))\r\n      DATA    ZERO  /  0.0D0,0.0D0  /\r\n      DATA    NAME  /  4HGKAM,4H1A  /\r\n      DATA    IHH   /  4HMHH ,4HBHH ,4HKHH  /\r\n      DATA    G     /  0.0          /\r\n      DATA    ITABT ,  ITAB(1) / 4,15,21,1,25,22,2,35,23,3,45,24,4,0 /\r\nC\r\nC\r\n      MC = 0.0\r\n      IF (NOPP .LT. 0) GO TO 10\r\nC\r\nC     COMPUTE PHIDH(T)*I2DD*PHIDH ONTO SCR2\r\nC\r\n      CALL SSG2B (I2DD,PHIDH,0,SCR1,0,2,1,IOUT)\r\n      CALL SSG2B (PHIDH,SCR1,0,SCR2,1,2,1,IOUT)\r\n      MCB(1) = I2DD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(4) .NE. 6) GO TO 11\r\n      MCB(1) = SCR2\r\n      CALL RDTRL (MCB)\r\n      MCB(4) = 6\r\n      CALL WRTTRL (MCB)\r\n   11 CONTINUE\r\n      MII = SCR1\r\n   10 IF (NOPP .LT. 0) MII = IOUT\r\nC\r\nC     BUILD  MII  DATA  BLOCK  = MIXF(W)\r\nC\r\n      LC = KORSZ(W(NW+1))\r\n      NZ = LC - SYSBUF\r\nC\r\nC     RESTORE MODES\r\nC     FILE = SCR3\r\nC\r\n      CALL OPEN (*130,SCR3,W(NZ+1),0)\r\n      CALL FREAD (SCR3,W,NW,1)\r\n      CALL CLOSE (SCR3,1)\r\n      FILE = MI\r\n      CALL OPEN (*170,MI,W(NZ+1),0)\r\n      IMI  = 0\r\n      CALL SKPREC (MI,IWS)\r\n   21 CONTINUE\r\n      NZ   = NZ - SYSBUF\r\n      IBUF = NZ - SYSBUF\r\n      ICRQ = -IBUF\r\n      IF (ICRQ .GT. 0) GO TO 150\r\n      CALL GOPEN (MII,W(NZ+1),1)\r\n      CALL MAKMCB (MCB,MII,LHSET,6,IPREC)\r\n      IF (KDAMP .EQ. 1) MCB(5) = MCB(5) + 2\r\nC\r\nC     SET UP FOR  PACK  AND  UNPACK\r\nC\r\n      IT1  = 2\r\n      IF (KDAMP .EQ. 1) IT1 = 4\r\n      IT2  = MCB(5)\r\n      INCR = 1\r\n      IT11 = 2\r\n      INCR1= 1\r\n      DO 90 I = 1,NW\r\n      MC   = 0.0\r\n      K    = IWS + I - 1\r\n      II   = I\r\n      JJ   = I\r\n      III  = K\r\n      JJJ  = K\r\n      IF (IMI .NE. 0) GO TO 85\r\n      CALL UNPACK (*160,MI,MD)\r\n   22 CONTINUE\r\n      GO TO (30,50,40), IOPT\r\nC\r\nC     BUILDING  MHH\r\nC\r\n   30 CALL PACK (MD,MII,MCB)\r\n      GO TO 90\r\nC\r\nC     BUILDING  KHH\r\nC\r\n   40 MD = MD*W(I)*W(I)\r\n      IF (KDAMP .NE. 1) GO TO 30\r\n      ASSIGN 45 TO IRET\r\n      IF (NOSDT .GT. 0) GO TO 70\r\n   45 MC = G*MD\r\n      GO TO 30\r\nC\r\nC     BUILDING  BHH\r\nC\r\n   50 CONTINUE\r\n      IF (KDAMP .EQ. 1) GO TO 61\r\n      ASSIGN 60 TO IRET\r\n      IF (NOSDT .GT. 0) GO TO 70\r\n   60 MD = MD*W(I)*G\r\n      GO TO 30\r\n   61 MD = 0.0\r\n      GO TO 30\r\nC\r\nC     LOOK UP G(W)  IN  SDT\r\nC\r\n   70 IF (ITAB(1) .GT. 0) GO TO 80\r\n      ITAB(1) = 1\r\n      ITAB(2) = NOSDT\r\n      CALL PRETAB (SDT,W(NW+1),W(NW+1),W(IBUF),IBUF-1,IZ,ITAB(1),ITABT)\r\n   80 CALL TAB (ITAB(2),W(I)/TWOPHI,G)\r\n      GO TO IRET, (60,45)\r\nC\r\nC     PICK UP MODAL MASS FROM LAMA\r\nC\r\n   85 CALL FREAD (MI+1,0,-5,0)\r\n      CALL FREAD (MI+1,XMASS,1,0)\r\n      CALL FREAD (MI+1,0,-1,0)\r\n      MD = XMASS\r\n      GO TO 22\r\nC\r\nC     ADD  INTERPOLATION HERE\r\nC\r\n   90 CONTINUE\r\n      CALL CLOSE (MI  ,1)\r\n      CALL CLOSE (MI+1,1)\r\n      NE = LHSET - NW\r\n      IF (NE .LE. 0) GO TO 110\r\n      DO 100 I = 1,NE\r\n      CALL PACK (ZERO,MII,MCB)\r\n  100 CONTINUE\r\n  110 CALL  WRTTRL (MCB)\r\n      CALL  CLOSE (MII,1)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  130 IP1  = -1\r\n  140 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  150 IP1  = -8\r\n      FILE = ICRQ\r\n      GO TO 140\r\n  160 WRITE  (NOUT,9001) SFM,IHH(IOPT)\r\n 9001 FORMAT (A25,' 2203, NULL COLUMN FOUND IN MI FILE DURING ASSEMBLY',\r\n     1       ' OF ',A4,' MATRIX BY GKAM MODULE.')\r\n      IP1  = -37\r\n      GO TO 140\r\nC\r\nC     USE LAMA RATHER THAN MI\r\nC\r\n  170 CONTINUE\r\n      CALL GOPEN (MI+1,W(NZ+1),0)\r\n      CALL SKPREC (MI+1,1)\r\n      CALL FREAD (MI+1,MCB,-7*(IWS-1),0)\r\n      IMI = 1\r\n      GO TO 21\r\n      END\r\n"
  },
  {
    "path": "mis/gkam1b.f",
    "content": "      SUBROUTINE GKAM1B(USETD,SCR1,SCR2,PHIDH,PHIDH1,MODES,CORE,\r\n     1  LHSET,NOUE,SCR3)\r\nC\r\n      INTEGER       USET,USETD,PHIDH,PHIDH1,SCR1,SCR2\r\n      INTEGER MCB(7),SYSBUF,CORE\r\n      INTEGER SCR3\r\n      DIMENSION CORE(1)\r\nC\r\n      COMMON  /SYSTEM/ SYSBUF\r\n      COMMON  /PATX/LC,N1,N2,N3,USET\r\n      COMMON  /BITPOS/UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1UD\r\n      COMMON  /ZBLPKX/A(4),II\r\n      COMMON  /PARMEG/ IA(7),IA11(7),IA12(7),IA21(7),IA22(7),LCORE,IRULE\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      LHSET =LHSET  + NOUE\r\nC\r\nC     BUILD  MERGE  VECTOR\r\nC\r\n      USET = USETD\r\n      LC  = KORSZ(CORE(MODES))\r\n      LCORE = LC\r\n      CALL  CALCV(SCR1,UD,UA,UE,CORE(MODES))\r\nC\r\nC     BUILD  EXE  IDENTY   MATRIX\r\nC\r\n      NZ = LC-SYSBUF\r\n      CALL GOPEN(SCR2,CORE(NZ+1),1)\r\n      CALL MAKMCB(MCB,SCR2,NOUE,6,1)\r\n      A(1) = 1.0\r\n      DO 10 I=1,NOUE\r\n      CALL BLDPK(1,1,SCR2,0,0)\r\n      II = I\r\n      CALL ZBLPKI\r\n      CALL BLDPKN(SCR2,0,MCB)\r\n   10 CONTINUE\r\n      CALL  CLOSE(SCR2, 1)\r\n      CALL WRTTRL ( MCB )\r\nC\r\nC     SET  UP  FOR  MERGE\r\nC\r\n      IRULE =0\r\n      IA22(1)= SCR2\r\n      CALL RDTRL(IA22)\r\n      IA(1) = PHIDH\r\n      IA(2)= LHSET\r\n      IA(3) =  N1+N2+N3\r\n      IA(4) =  2\r\n      IA(5) = 1\r\n      IA21 (1) = 0\r\n      IA12 (1) = 0\r\n      IA11 (1) = PHIDH1\r\n      CALL MAKMCB(CORE(MODES),SCR3,LHSET,2,1)\r\n      CALL RDTRL (IA11)\r\nC\r\nC     BUILD  VECTOR IN CORE\r\nC\r\n      CALL GOPEN(SCR3,CORE(NZ+1),1)\r\n      CALL BLDPK(1,1,SCR3,0,0)\r\n      II = MODES -1\r\n      DO 20 I=1,NOUE\r\n      II = II+1\r\n      CALL ZBLPKI\r\n   20 CONTINUE\r\n      CALL BLDPKN( SCR3, 0, CORE(MODES) )\r\n      CALL CLOSE(SCR3,1)\r\n      CALL WRTTRL(CORE(MODES))\r\n      CALL MERGE(SCR3,SCR1,CORE(MODES))\r\n      CALL WRTTRL( IA )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gmmatc.f",
    "content": "      SUBROUTINE GMMATC( A,ROWA,COLA,MTA, B, ROWB,COLB,NTB, C )\r\nC*****\r\nC     GMMATC - G E N E R A L  M A T R I X  M U L T I P L Y\r\nC                                 A N D\r\nC                           T R A N S P O S E\r\nC            S I N G L E  P R E C I S I O N  V E R S I O N\r\nC     COMPLEX VERSION\r\nC\r\nC     PERFORMS                                     WHEN\r\nC               A            *  B            =  C     MTA=0  NTB= 0\r\nC               A            *  B TRANSPOSE  =  C          0       1\r\nC               A TRANSPOSE  *  B            =  C          1       0\r\nC               A TRANSPOSE  *  B TRANSPOSE  =  C          1       1\r\nC*****\r\nC     A -  IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS\r\nC     B -  IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS\r\nC     A,B AND C ARE STORED BY ROWS (EXAMPLE)\r\nC              MATRIX                   STORED\r\nC         A=   1    2              A=   1\r\nC              3    4                   2\r\nC              5    6                   3\r\nC                                       4\r\nC                                       5\r\nC                                       6\r\nC*****\r\nC\r\nC\r\nC     IF MTA .LT. 0, C IS NOT ZEROED OUT.  HENCE THE ROUTINE, IN THIS\r\nC     CASE, COMPUTES  A * B  +  D  =  C  WHERE THE MATRIX  D  HAS BEEN\r\nC     STORED ROW-WISE AT  C  BY THE CALLING PROGRAM.  IF MTA = -1,  A\r\nC     IS TRANSPOSED.  IF MTA = -2,  A  IS NOT TRANSPOSED.  NTB IS\r\nC     DEFINED AS ABOVE AND IS INDEPENDENT OF MTA.\r\nC\r\nC\r\n      INTEGER   ROWA,COLA,  ROWB,COLB\r\nC\r\nC\r\nC\r\n      INTEGER IPARM(2)\r\n      COMPLEX A(1),B(1),C(1)\r\nC\r\nC\r\nC\r\n      NTA = IABS(MTA)\r\n      IF (MTA .EQ. (-2)) NTA = 0\r\n      IF ( NTA .NE. 0 ) GO TO 10\r\nC\r\nC A IS NOT TRANSPOSED\r\nC\r\n      NROWA = ROWA\r\n      NCOLA = COLA\r\n      INCRIK = 1\r\n      IKN = COLA\r\n      INCIK1 = COLA\r\n      GO TO 20\r\nC\r\nC A IS TRANSPOSED\r\nC\r\n   10 NROWA = COLA\r\n      NCOLA = ROWA\r\n      INCRIK = COLA\r\n      IKN = ( ROWA-1 )*COLA + 1\r\n      INCIK1 = 1\r\n   20 IF( NTB .NE. 0 ) GO TO 30\r\nC\r\nC B IS NOT TRANSPOSED\r\nC\r\n      NROWB = ROWB\r\n      NCOLB = COLB\r\n      INCRKJ = COLB\r\n      INCKJ1 = 1\r\n      GO TO 40\r\nC\r\nC B IS TRANSPOSED\r\nC\r\n   30 NROWB = COLB\r\n      NCOLB = ROWB\r\n      INCRKJ = 1\r\n      INCKJ1 = COLB\r\nC\r\nC CHECK CONSISTANT DIMENSIONS AND ZERO C IF NO D MATRIX\r\nC\r\n   40 IF( NCOLA .NE. NROWB ) GO TO 80\r\n      IF( MTA .LT. 0 ) GO TO 50\r\n      NTERMS = NROWA*NCOLB\r\n      DO 42 I=1,NTERMS\r\n      C(I) = 0\r\n   42 CONTINUE\r\nC\r\nC PERFORM MATRIX MULTIPLICATION\r\nC\r\n   50 IJ1 = 1\r\n      IJN = NCOLB\r\n      IK1 = 1\r\n      DO 58 I=1,NROWA\r\n      KJ1 = 1\r\n      DO 56 IJ =IJ1,IJN\r\n      KJ = KJ1\r\n      DO 54 IK=IK1,IKN,INCRIK\r\n      C(IJ) = C(IJ) + A(IK)*B(KJ)\r\n      KJ = KJ + INCRKJ\r\n   54 CONTINUE\r\n      KJ1 = KJ1 + INCKJ1\r\n   56 CONTINUE\r\n      IJ1 = IJN + 1\r\n      IJN = IJN + NCOLB\r\n      IK1 = IK1 + INCIK1\r\n      IKN = IKN + INCIK1\r\n   58 CONTINUE\r\n      RETURN\r\n   80 IPARM(1) = NTA\r\n      IPARM(2) = NTB\r\n      CALL MESAGE (-30,21,IPARM(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gmmatd.f",
    "content": "      SUBROUTINE GMMATD (A,IROWA,ICOLA,MTA, B,IROWB,ICOLB,NTB, C)\r\nC*****\r\nC     GMMATD - G E N E R A L  M A T R I X  M U L T I P L Y\r\nC                                 A N D\r\nC                           T R A N S P O S E\r\nC            D O U B L E  P R E C I S I O N  V E R S I O N\r\nC\r\nC     PERFORMS                                     WHEN\r\nC               A            *  B            =  C     MTA=0  NTB= 0\r\nC               A            *  B TRANSPOSE  =  C          0       1\r\nC               A TRANSPOSE  *  B            =  C          1       0\r\nC               A TRANSPOSE  *  B TRANSPOSE  =  C          1       1\r\nC*****\r\nC     A -  IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS\r\nC     B -  IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS\r\nC     A,B AND C ARE STORED BY ROWS (EXAMPLE)\r\nC              MATRIX                   STORED\r\nC         A=   1    2              A=   1\r\nC              3    4                   2\r\nC              5    6                   3\r\nC                                       4\r\nC                                       5\r\nC                                       6\r\nC*****\r\nC*****\r\nC\r\nC\r\nC     IF MTA .LT. 0, C IS NOT ZEROED OUT.  HENCE THE ROUTINE, IN THIS\r\nC     CASE, COMPUTES  A * B  +  D  =  C  WHERE THE MATRIX  D  HAS BEEN\r\nC     STORED ROW-WISE AT  C  BY THE CALLING PROGRAM.  IF MTA = -1,  A\r\nC     IS TRANSPOSED.  IF MTA = -2,  A  IS NOT TRANSPOSED.  NTB IS\r\nC     DEFINED AS ABOVE AND IS INDEPENDENT OF MTA.\r\nC\r\nC\r\n      INTEGER   ROWA,COLA,  ROWB,COLB\r\nC\r\nC\r\nC\r\n      DOUBLE PRECISION   A(1), B(1), C(1)\r\nC\r\nC\r\nC\r\n      DIMENSION     IPARM(2)\r\nC\r\nC\r\nC\r\n      ROWA = IROWA\r\n      COLA = ICOLA\r\n      ROWB = IROWB\r\n      COLB = ICOLB\r\n      NTA = IABS(MTA)\r\n      IF (MTA .EQ. (-2)) NTA = 0\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 0) IF (COLA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 1) IF (COLA - COLB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 1) IF (ROWA - COLB) 80,5,80\r\n    5 IF (NTA .EQ. 1) GO TO 10\r\n      ILIM= ROWA\r\n      KLIM= COLA\r\n      INCI= COLA\r\n      INCKA= 1\r\n      GO TO 20\r\n   10 ILIM= COLA\r\n      KLIM= ROWA\r\n      INCI= 1\r\n      INCKA= COLA\r\n   20 IF(NTB.EQ.1) GO TO 30\r\n      JLIM= COLB\r\n      INCJ= 1\r\n      INCKB= COLB\r\n      GO TO 40\r\n   30 JLIM= ROWB\r\n      INCJ= COLB\r\n      INCKB= 1\r\n   40 IF (MTA .LT. 0) GO TO 47\r\n      LIM = ILIM * JLIM\r\n      DO 45 I = 1,LIM\r\n   45 C(I) = 0.0D0\r\n   47 IJ = 0\r\n      I = 0\r\n   50 I = I + 1\r\n      IFIX=I*INCI-COLA\r\n      J = 0\r\n   60 J = J + 1\r\n      IJ=IJ+1\r\n      IA=IFIX\r\n      JB=J*INCJ-COLB\r\n      K = 0\r\n   70 K = K + 1\r\n      IA=IA+INCKA\r\n      JB=JB+INCKB\r\n      C(IJ)=C(IJ)+ A(IA) * B(JB)\r\n      IF (K .LT. KLIM) GO TO 70\r\n      IF (J .LT. JLIM) GO TO 60\r\n      IF (I .LT. ILIM) GO TO 50\r\n      RETURN\r\n   80 IPARM(1) = NTA\r\n      IPARM(2) = NTB\r\n      CALL MESAGE (-30,21,IPARM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gmmats.f",
    "content": "      SUBROUTINE GMMATS (A,IROWA,ICOLA,MTA, B,IROWB,ICOLB,NTB, C)\r\nC*****\r\nC     GMMATS - G E N E R A L  M A T R I X  M U L T I P L Y\r\nC                                 A N D\r\nC                           T R A N S P O S E\r\nC            S I N G L E  P R E C I S I O N  V E R S I O N\r\nC\r\nC     PERFORMS                                     WHEN\r\nC               A            *  B            =  C     MTA=0  NTB= 0\r\nC               A            *  B TRANSPOSE  =  C          0       1\r\nC               A TRANSPOSE  *  B            =  C          1       0\r\nC               A TRANSPOSE  *  B TRANSPOSE  =  C          1       1\r\nC*****\r\nC     A -  IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS\r\nC     B -  IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS\r\nC     A,B AND C ARE STORED BY ROWS (EXAMPLE)\r\nC              MATRIX                   STORED\r\nC         A=   1    2              A=   1\r\nC              3    4                   2\r\nC              5    6                   3\r\nC                                       4\r\nC                                       5\r\nC                                       6\r\nC*****\r\nC*****\r\nC\r\nC\r\nC     IF MTA .LT. 0, C IS NOT ZEROED OUT.  HENCE THE ROUTINE, IN THIS\r\nC     CASE, COMPUTES  A * B  +  D  =  C  WHERE THE MATRIX  D  HAS BEEN\r\nC     STORED ROW-WISE AT  C  BY THE CALLING PROGRAM.  IF MTA = -1,  A\r\nC     IS TRANSPOSED.  IF MTA = -2,  A  IS NOT TRANSPOSED.  NTB IS\r\nC     DEFINED AS ABOVE AND IS INDEPENDENT OF MTA.\r\nC\r\nC\r\n      INTEGER   ROWA,COLA,  ROWB,COLB\r\nC\r\nC\r\nC\r\n      DIMENSION   A(1),B(1),C(1),IPARM(2)\r\nC\r\nC\r\nC\r\n      ROWA = IROWA\r\n      COLA = ICOLA\r\n      ROWB = IROWB\r\n      COLB = ICOLB\r\n      NTA = IABS(MTA)\r\n      IF (MTA .EQ. (-2)) NTA = 0\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 0) IF (COLA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 1) IF (COLA - COLB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 1) IF (ROWA - COLB) 80,5,80\r\n    5 IF (NTA .EQ. 1) GO TO 10\r\n      ILIM= ROWA\r\n      KLIM= COLA\r\n      INCI= COLA\r\n      INCKA= 1\r\n      GO TO 20\r\n   10 ILIM= COLA\r\n      KLIM= ROWA\r\n      INCI= 1\r\n      INCKA= COLA\r\n   20 IF(NTB.EQ.1) GO TO 30\r\n      JLIM= COLB\r\n      INCJ= 1\r\n      INCKB= COLB\r\n      GO TO 40\r\n   30 JLIM= ROWB\r\n      INCJ= COLB\r\n      INCKB= 1\r\n   40 IF (MTA .LT. 0) GO TO 47\r\n      LIM = ILIM * JLIM\r\n      DO 45 I = 1,LIM\r\n   45 C(I) = 0.0\r\n   47 IJ = 0\r\n      I = 0\r\n   50 I = I + 1\r\n      IFIX=I*INCI-COLA\r\n      J = 0\r\n   60 J = J + 1\r\n      IJ=IJ+1\r\n      IA=IFIX\r\n      JB=J*INCJ-COLB\r\n      K = 0\r\n   70 K = K + 1\r\n      IA=IA+INCKA\r\n      JB=JB+INCKB\r\n      C(IJ)=C(IJ)+ A(IA) * B(JB)\r\n      IF (K .LT. KLIM) GO TO 70\r\n      IF (J .LT. JLIM) GO TO 60\r\n      IF (I .LT. ILIM) GO TO 50\r\n      RETURN\r\n   80 IPARM(1) = NTA\r\n      IPARM(2) = NTB\r\n      CALL MESAGE (-30,21,IPARM(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gmmerg.f",
    "content": "      SUBROUTINE GMMERG(FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART,\r\n     1          NSUB,MRGTYP,CORE,LCORE)\r\nC\r\nC     GENERAL MATRIX MERGE ROUTINE\r\nC\r\nC\r\nC                  --               --\r\nC                  I        I        I\r\nC                  I FILE11 I FILE12 I   --     --\r\nC                  I        I        I   I       I\r\nC                  I-----------------I = I FILEA I\r\nC                  I        I        I   I       I\r\nC                  I FILE21 I FILE22 I   --     --\r\nC                  I        I        I\r\nC                  --               --\r\nC\r\nC        WHERE\r\nC\r\nC             RPART - ROW PARTITIONING VECTOR\r\nC             NSUB(1) - NUMBER OF COLUMNS IN RPART 0 SUBSET\r\nC             NSUB(2) - NUMBER OF COLUMNS IN RPART 1 SUBSET\r\nC             NSUB(3) - NUMBER OF ROWS IN CPART 0 SUBSET\r\nC             NSUB(4) - NUMBER OF ROWS IN CPART 1 SUBSET\r\nC             MRGTYP - MERGE TYPE (1 .EQ. SQUARE, 2 .EQ. RECTANGULAR)\r\nC             CPART - COLUMN PARTITION VECTOR\r\nC\r\nC\r\n      INTEGER       FILEA    ,FILE11   ,FILE12   ,FILE21   ,FILE22\r\n     1             ,RPART    ,CPART    ,RULE     ,CORE(6)  ,NAME(2)\r\n     2             ,RP(7)    ,CP(7)\r\nC\r\n      COMMON / PARMEG /       IA(7)    ,IA11(7)  ,IA21(7)  ,IA12(7)\r\n     1                       ,IA22(7)  ,LCR      ,RULE\r\nC\r\n      DIMENSION NSUB(4)\r\nC\r\n      DATA NAME / 4HGMME , 4HRG   /\r\nC\r\nC***********************************************************************\r\nC\r\nC     GET TRAILERS FOR INPUTS\r\nC\r\n      RP(1) = RPART\r\n      IF(RPART .NE. 0) CALL RDTRL(RP)\r\n      CP(1) = CPART\r\n      IF(CPART .NE. 0) CALL RDTRL(CP)\r\nC\r\n      DO 10 I=2,7\r\n      IA(I) = 0\r\n      IA11(I) = 0\r\n      IA12(I) = 0\r\n      IA21(I) = 0\r\n   10 IA22(I) = 0\r\nC\r\n      IA11(1) = FILE11\r\n      IF(FILE11 .NE. 0) CALL RDTRL(IA11)\r\n      IF(IA11(1) .LT. 0) IA11(1) = 0\r\n      IA12(1) = FILE12\r\n      IF(FILE12 .NE. 0) CALL RDTRL(IA12)\r\n      IF(IA12(1) .LT. 0) IA12(1) = 0\r\n      IA21(1) = FILE21\r\n      IF(FILE21 .NE. 0) CALL RDTRL(IA21)\r\n      IF(IA21(1) .LT. 0) IA21(1) = 0\r\n      IA22(1) = FILE22\r\n      IF(FILE22 .NE. 0) CALL RDTRL(IA22)\r\n      IF(IA22(1) .LT. 0) IA22(1) = 0\r\nC\r\nC     SET UP MATRIX CONTROL BLOCK FOR OUTPUT\r\nC\r\n      IA(1) = FILEA\r\n      IA(4) = MRGTYP\r\n      IA(5) = MAX0(IA11(5),IA12(5),IA21(5),IA22(5))\r\nC\r\nC     SET UP DUMMY PARTITION VECTOR\r\nC\r\n      CORE(1) = 0\r\n      CORE(2) = 1\r\n      CORE(3) = IA(2)\r\n      CORE(4) = 2\r\n      CORE(5) = 1\r\n      CORE(6) = 0\r\n      LCR = LCORE\r\n      RULE = 0\r\nC\r\n      IF(RPART .EQ. 0) GO TO 30\r\n      IF(CPART .EQ. 0) GO TO 20\r\nC\r\nC     FULL MERGE\r\nC\r\n      IA(2) = NSUB(1) + NSUB(2)\r\n      IA(3) = NSUB(3) + NSUB(4)\r\n      CALL MERGE(RP,CP,CORE)\r\n      GO TO 40\r\nC\r\nC  *  *  MERGE COLUMNS ONLY\r\nC\r\n   20 IA(2) = NSUB(1) + NSUB(2)\r\n      IA(3) = MAX0(IA11(3),IA12(3))\r\n      CALL MERGE(RP,CORE,CORE)\r\n      GO TO 40\r\nC\r\nC  *  *  MERGE ROWS ONLY\r\nC\r\n   30 IF(CPART .EQ. 0) GO TO 1007\r\n      IA(2) = MAX0(IA11(2),IA21(2))\r\n      IA(3) = NSUB(3) + NSUB(4)\r\n      CALL MERGE(CORE,CP,CORE)\r\nC\r\nC     WRITE TRIALER FOR OUTPUT\r\nC\r\n   40 CALL WRTTRL(IA)\r\nC\r\n      RETURN\r\nC\r\nC     ILLEGAL INPUT - NO PARTITION VECTOR\r\nC\r\n 1007 CALL MESAGE(-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gmprtn.f",
    "content": "      SUBROUTINE GMPRTN(FILEA,FILE11,FILE21,FILE12,FILE22,RPART,CPART,\r\n     1           NSUB0,NSUB1,CORE,LCORE)\r\nC\r\nC     GENERAL MATRIX PARTION ROUTINE\r\nC\r\nC\r\nC                              --               --\r\nC                              I        I        I\r\nC                  --     --   I FILE11 I FILE12 I\r\nC                  I       I   I        I        I\r\nC                  I FILEA I = I-----------------I\r\nC                  I       I   I        I        I\r\nC                  --     --   I FILE21 I FILE22 I\r\nC                              I        I        I\r\nC                              --               --\r\nC\r\nC        WHERE\r\nC\r\nC             RPART - ROW PARTITIONING VECTOR\r\nC             CPART - COLUMN PARTITION VECTOR\r\nC\r\n      INTEGER       FILEA    ,FILE11   ,FILE12   ,FILE21   ,FILE22\r\n     1             ,RPART    ,CPART    ,RULE     ,CORE(6)  ,NAME(2)\r\n     2             ,RP(7)    ,CP(7)\r\nC\r\n      COMMON / PARMEG /       IA(7)    ,IA11(7)  ,IA21(7)  ,IA12(7)\r\n     1                       ,IA22(7)  ,LCR      ,RULE\r\nC\r\n      DATA NAME / 4HGMPR , 4HTN   /\r\nC\r\nC***********************************************************************\r\nC\r\nC     GET TRAILERS FOR INPUTS\r\nC\r\n      RP(1) = RPART\r\n      IF(RPART .NE. 0) CALL RDTRL(RP)\r\n      CP(1) = CPART\r\n      IF(CPART .NE. 0) CALL RDTRL(CP)\r\n      IA(1) = FILEA\r\n      CALL RDTRL(IA)\r\nC\r\nC     SET UP MATRIX CONTROL BLOCKS FOR OUTPUTS\r\nC\r\n      IA11(1) = FILE11\r\n      IA12(1) = FILE12\r\n      IA21(1) = FILE21\r\n      IA22(1) = FILE22\r\nC\r\n      DO 10 I=2,5\r\n      IA11(I) = IA(I)\r\n      IA12(I) = IA(I)\r\n      IA21(I) = IA(I)\r\n   10 IA22(I) = IA(I)\r\nC\r\nC     SET UP DUMMY PARTITION VECTOR\r\nC\r\n      CORE(1) = 0\r\n      CORE(2) = 1\r\n      CORE(3) = IA(2)\r\n      CORE(4) = 2\r\n      CORE(5) = 1\r\n      CORE(6) = 0\r\nC\r\n      RULE = 0\r\n      LCR = LCORE\r\nC\r\n      IF(RPART .EQ. 0) GO TO 30\r\n      IF(CPART .EQ. 0) GO TO 20\r\nC\r\nC     FULL PARTITION\r\nC\r\n      IA11(3) = NSUB0\r\n      IA12(3) = NSUB0\r\n      IA21(3) = NSUB1\r\n      IA22(3) = NSUB1\r\n      CALL PARTN(RP,CP,CORE)\r\n      GO TO 40\r\nC\r\nC  *  *  PARTITION COLUMNS ONLY\r\nC\r\n   20 CALL PARTN(RP,CORE,CORE)\r\n      GO TO 40\r\nC\r\nC  *  *  PARTITION ROWS ONLY\r\nC\r\n   30 IF(CPART .EQ. 0) GO TO 1007\r\n      IA11(3) = NSUB0\r\n      IA12(3) = NSUB0\r\n      IA21(3) = NSUB1\r\n      IA22(3) = NSUB1\r\n      CALL PARTN(CORE,CP,CORE)\r\nC\r\nC     WRITE TRAILERS FOR OUTPUTS\r\nC\r\n   40 IF(IA11(1) .NE. 0) CALL WRTTRL(IA11)\r\n      IF(IA12(1) .NE. 0) CALL WRTTRL(IA12)\r\n      IF(IA21(1) .NE. 0) CALL WRTTRL(IA21)\r\n      IF(IA22(1) .NE. 0) CALL WRTTRL(IA22)\r\nC\r\n      RETURN\r\nC\r\nC     ILLEGAL INPUT - NO PARTITION VECTOR\r\nC\r\n 1007 CALL MESAGE(-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gnfist.f",
    "content": "      SUBROUTINE GNFIST (FILENM,FISTNM,MODNO)\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         ANDF,FIAT,FILENM(2),FIST,FISTNM,FISTX,OSCAR\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XFIAT / FIAT(3)\r\n      COMMON /XDPL  / IDPL(3)\r\n      COMMON /OSCENT/ OSCAR(7)\r\n      COMMON /IPURGE/ IPVAL(5)\r\n      COMMON /ISOSGN/ ISVAL(34)\r\n      COMMON /IXSFA / IXVAL(5)\r\n      COMMON /SYSTEM/ SKIP(23),ICFIAT\r\n      DATA    MASK1 / 65535 /,  MASK  / 32767 /\r\nC             MASK1 = O177777   MASK  = O77777\r\nC\r\n      DO 1 K = 1,5\r\n      IPVAL(K) = 0\r\n      IXVAL(K) = 0\r\n    1 CONTINUE\r\n      DO 2 K = 5,34\r\n      ISVAL(K) = 0\r\n    2 CONTINUE\r\nC\r\n      ISVAL(1) = 3\r\n      ISVAL(2) = 3\r\n      ISVAL(3) = 1\r\n      ISVAL(4) = 2\r\nC\r\n      IXVAL(3) = 10\r\nC\r\n      IF (FILENM(1).EQ.0 .AND. FILENM(2).EQ.0) RETURN\r\nC\r\nC     SEARCH FIAT FOR MATCHING FILE\r\nC\r\n      LFIAT = FIAT(3)\r\n      K = 5\r\n      DO 10 J = 1,LFIAT\r\n      IF (FILENM(1).EQ.FIAT(K) .AND. FILENM(2).EQ.FIAT(K+1)) GO TO 30\r\n   10 K = K + ICFIAT\r\nC\r\nC     FILE NOT IN FIAT - IF INPUT FILE ASSUME PURGED\r\nC\r\n      IF (FISTNM.GT.100 .AND. FISTNM.LT.200) GO TO 40\r\nC\r\nC     MUST CALL IN FILE ALLOCATOR\r\nC\r\n   20 CALL XSFA (MODNO)\r\n      MODNO = -MODNO\r\n      RETURN\r\nC\r\nC     IF FILE POINTER = 77777 NO ENTRY IS MADE IN FIST\r\nC\r\n   30 IF (ANDF(FIAT(K-1),MASK) .EQ. MASK) RETURN\r\n      IF (FISTNM.LE.100 .OR. FISTNM.GE.300) GO TO 170\r\n      IF (FISTNM .GE. 200) GO TO 120\r\nC\r\nC\r\nC     INPUT FILE\r\nC     ==========\r\nC\r\nC     SEE IF IT EXISTS\r\nC\r\n      IF (FIAT(K+2).NE.0 .OR. FIAT(K+3).NE.0 .OR. FIAT(K+4).NE.0)\r\n     1    GO TO 170\r\n      IF (ICFIAT.EQ.11 .AND. (FIAT(K+7).NE.0 .OR. FIAT(K+8).NE.0 .OR.\r\n     1    FIAT(K+9).NE.0)) GO TO 170\r\nC\r\nC     INPUT FILE NOT GENERATED ACCORDING TO FIAT - CHECK DPL\r\nC\r\n   40 I1 = OSCAR(7)*3 + 5\r\n      J1 = IDPL(3) *3 + 1\r\n      L  = FIAT(3) *ICFIAT - 2\r\n      DO 50 J = 4,J1,3\r\n      IF (IDPL(J).EQ.FILENM(1) .AND. IDPL(J+1).EQ.FILENM(2)) GO TO 60\r\n   50 CONTINUE\r\n      RETURN\r\nC\r\nC     FILE IN DPL - ZERO FIAT ENTRY SO FILE ALLOCATOR WILL UNPOOL IT.\r\nC     DO THIS FOR OTHER LIKE I/P FILES IN OSCAR ENTRY.\r\nC\r\n   60 DO 110 I = 8,I1,3\r\n      IF (OSCAR(I) .EQ. 0) GO TO 110\r\nC\r\nC     SEARCH FIAT\r\nC\r\n      DO 70 K = 4,L,ICFIAT\r\n      IF (OSCAR(I).EQ.FIAT(K+1) .AND. OSCAR(I+1).EQ.FIAT(K+2)) GO TO 80\r\n   70 CONTINUE\r\nC\r\nC     FILE NOT IN FIAT - CHECK NEXT INPUT FILE\r\nC\r\n      GO TO 110\r\nC\r\nC     FILE IN FIAT - CHECK DPL IF FIAT TRAILER IS ZERO\r\nC\r\n   80 IF (FIAT(K+3).NE.0 .OR. FIAT(K+4).NE.0 .OR. FIAT(K+5).NE.0 .OR.\r\n     1    ANDF(MASK,FIAT(K)).EQ.MASK) GO TO 110\r\n      IF (ICFIAT.EQ.11 .AND. (FIAT(K+8).NE.0 .OR. FIAT(K+9).NE.0 .OR.\r\n     1    FIAT(K+10).NE.0)) GO TO 110\r\n      DO 90 J = 4,J1,3\r\n      IF (IDPL(J).EQ.FIAT(K+1) .AND. IDPL(J+1).EQ.FIAT(K+2)) GO TO 100\r\n   90 CONTINUE\r\n      GO TO 110\r\nC\r\nC     FILE IS IN DPL - ZERO OUT FIAT ENTRY\r\nC\r\n  100 FIAT(K) = ANDF(MASK1,FIAT(K))\r\n      IF (ANDF(MASK,FIAT(K)) .EQ. MASK) FIAT(K) = 0\r\n      FIAT(K+1) = 0\r\n      FIAT(K+2) = 0\r\n  110 CONTINUE\r\nC\r\nC     CALL FILE ALLOCATOR AND UNPOOL FILES\r\nC\r\n      GO TO 20\r\nC\r\nC\r\nC     OUTPUT FILE\r\nC     ===========\r\nC\r\nC     SEARCH DPL FOR FILE NAME\r\nC\r\n  120 J1 = IDPL(3)*3 + 1\r\n      DO 130 M = 4,J1,3\r\n      IF (IDPL(M).EQ.FILENM(1) .AND. IDPL(M+1).EQ.FILENM(2)) GO TO 140\r\n  130 CONTINUE\r\n      GO TO 170\r\nC\r\nC     FILE NAME IS IN DPL - PURGE IT AND ALL EQUIV FILE FROM DPL\r\nC\r\n  140 IDPL(M  ) = 0\r\n      IDPL(M+1) = 0\r\n      L = IDPL(M+2)\r\n      DO 150 J = 4,J1,3\r\n      IF (J.EQ.M .OR. L.NE.IDPL(J+2)) GO TO 150\r\n      IDPL(J  ) = 0\r\n      IDPL(J+1) = 0\r\n      IDPL(J+2) = 0\r\n  150 CONTINUE\r\nC\r\nC     IF THIS IS LAST FILE ON POOL TAPE, DECREASE FILE COUNT IN DPL\r\nC\r\n      IF (ANDF(L,MASK) .NE. IDPL(1)-1) GO TO 160\r\n      IDPL(  1) = IDPL(1) - 1\r\n      IDPL(M+2) = 0\r\nC\r\nC     IF DELETED FILES ARE AT END OF DPL, DECREMENT ENTRY COUNT\r\nC\r\n  160 IF (IDPL(J1).NE.0 .OR. IDPL(J1+1).NE.0 .OR. IDPL(J1+2).NE.0)\r\n     1    GO TO 170\r\n      IDPL(3) = IDPL(3) - 1\r\n      J1 = IDPL(3)*3 + 1\r\n      GO TO 160\r\nC\r\nC     CHECK FOR FIST TABLE OVERFLOW\r\nC\r\n  170 IF (FIST(1) .LE. FIST(2)) CALL MESAGE (-20,IABS(MODNO),FILENM)\r\n      FIST(2) = FIST(2)   + 1\r\n      FISTX   = FIST(2)*2 + 1\r\n      FIST(FISTX  ) = FISTNM\r\n      FIST(FISTX+1) = K - 2\r\n      IF (FISTNM .LT. 300) RETURN\r\nC\r\nC     ZERO TRAILER FOR SCRATCH FILE\r\nC\r\n      FIAT(K+2) = 0\r\n      FIAT(K+3) = 0\r\n      FIAT(K+4) = 0\r\n      IF (ICFIAT .EQ. 8) GO TO 180\r\n      FIAT(K+7) = 0\r\n      FIAT(K+8) = 0\r\n      FIAT(K+9) = 0\r\n  180 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/go.f",
    "content": "      FUNCTION GO ( R , ETAR , ETAL , EKM )\r\nC\r\n      DIMENSION  AS(2) , C(2) , S(2) , S0(2)\r\n      DIMENSION BSL(23)\r\nC\r\n      DBSLJ = 1.0E-10\r\n      S(1)  =  ETAR\r\n      S(2)  =  ETAL\r\n      DO   400   I = 1 , 2\r\n      IF ( ABS ( S(I) ) .GE. R )   GO TO  200\r\n      S(I)  =  S(I) / R\r\n      C(I)  =  SQRT ( 1.0 - S(I) ** 2 )\r\n      AS(I)  =  2.0 * ATAN ( S(I) / ( 1.0 + C(I) ) )\r\n      S(I)  =  2.0 * S(I) * C(I)\r\n      C(I)  =  2.0 * C(I) ** 2 - 1.0\r\n      GO TO  300\r\nC\r\n 200  AS(I)  =  SIGN ( 1.570796   , S(I) )\r\n      S(I)  =  0.0\r\nC\r\n 300  S0(I)  =  0.0\r\n 400  CONTINUE\r\nC\r\n      GO  =  AS(1) - AS(2)\r\n      IF ( ABS ( GO ) .LE. DBSLJ )   GO TO  700\r\nC\r\n      ARG  =  EKM * R\r\n      IF ( ARG .EQ. 0.0 )   RETURN\r\n      CALL MBBSLJ(ARG,N,BSL)\r\nC\r\n      GO  =  BSL(1) * GO\r\n      F  =  1.0\r\n      FI  =  1.0\r\n      DO   600   J = 2 , N\r\n      GO  =  BSL(J) * ( S(1) - S(2) ) / FI - GO\r\nC\r\n      DO   500   I = 1 , 2\r\n      S4  =  2.0 * S(I) * C(I) - S0(I)\r\n      S0(I)  =  S(I)\r\n      S(I)  =  S4\r\n 500  CONTINUE\r\nC\r\n      F  =  -F\r\n      FI  =  FI + 1.0\r\n 600  CONTINUE\r\nC\r\n      IF ( F .LT. 0.0 )   GO  =  -GO\r\n      RETURN\r\nC\r\n 700  GO  =  0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gopen.f",
    "content": "      SUBROUTINE GOPEN (FILE,BUFFER,OPTION)\r\nC\r\n      INTEGER FILE,OPTION,ERR,OUTREW,OUTNOR\r\n      REAL    BUFFER(1),SUBNAM(2),HEADER(2)\r\n      DATA    SUBNAM / 4H GOP,4HEN  /\r\n      DATA    OUTREW,INPNOR,OUTNOR  / 1,2,3 /\r\nC\r\n      CALL OPEN (*200,FILE,BUFFER,OPTION)\r\n      IF (OPTION.EQ.INPNOR .OR. OPTION.EQ.OUTNOR) GO TO 150\r\n      IF (OPTION.EQ.OUTREW)  GO TO 110\r\n      CALL READ (*201,*202,FILE,HEADER,2,1,ERR)\r\n      GO TO 150\r\n  110 CALL FNAME (FILE,HEADER)\r\n      CALL WRITE (FILE,HEADER,2,1)\r\n  150 RETURN\r\nC\r\n  200 ERR = -1\r\n      GO TO 210\r\n  201 ERR = -2\r\n      GO TO 210\r\n  202 ERR = -3\r\n  210 CALL MESAGE (ERR,FILE,SUBNAM)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gp1.f",
    "content": "      SUBROUTINE GP1\r\nC\r\nC     GP1  BUILDS THE FOLLOWING DATA BLOCKS--\r\nC       1. GRID POINT LIST (GPL)\r\nC       2. EXTERNAL INTERNAL GRID POINT EQUIVALENCE TABLE (EQEXIN)\r\nC       3. GRID POINT DEFINITION TABLE (GPDT)\r\nC       4. COORDINATE SYSTEM TRANSFORMATION MATRICES (CSTM)\r\nC       5. BASIC GRID POINT DEFINITION TABLE (BGPDT)\r\nC       6. SCALAR INDEX LIST (SIL)\r\nC\r\nC     THE FOLLOWING CARDS ARE READ BY GP1--\r\nC       1. GRID\r\nC       2. CELASI, CDAMPI, CMASSI  (I=1,2,3,4)\r\nC       3. SPOINT\r\nC       4. SEQGP   (SEQEP IS PROCESSED IN DPD1)\r\nC       5. CORDIJ  (I=1,2,  J=R,S,C)\r\nC\r\nC     IMPORTANT\r\nC     =========\r\nC     REVISED  7/89 BY G.CHAN/UNISYS, TO ALLOW GRID, SCALAR AND EXTRA\r\nC     POINT EXTERNAL ID UP TO 8 DIGITS FOR ALL 32-BIT MACHINES\r\nC     PREVIOUSLY, ID OF 2000000 IS THE UPPER LIMIT FOR IBM AND VAX\r\nC\r\nC     REVISED  8/89 BY G.CHAN/UNISYS, AS PART OF THE EFFORT TO ALLOW A\r\nC     NASTRAN JOB TO EXCEED 65535 LIMIT.\r\nC     NORMALLY, IF GRID POINTS OR SCALAR POINTS DO NOT HAVE VERY LARGE\r\nC     EXTERNAL ID NUMBERS, THEIR ID NOS. ARE MULTIPLIED BY 1000, SO THAT\r\nC     999 ADDITIONAL POINTS CAN SQUEEZE IN VIA SEQGP CARDS. (NOTE - A\r\nC     7- OR 8-DIGIT ID NO., TIMES 1000, EXCEEDS A 32-BIT WORD COMPUTER\r\nC     HARDWARE LIMIT). THIS MULTIPLY FACTOR IS NOW ADJUSTABLE, 1000,100,\r\nC     OR 10, SO THAT ADDITIONAL DIGITS CAN BE USED FOR THE EXTERNAL GRID\r\nC     OR SCALAR POINTS IN CASE THERE ARE LIMITTED SEQGP CARDS PRESENT.\r\nC     THIS VARIABLE MULTIPLIER (10,100, OR 1000) IS ALSO RECORDED IN THE\r\nC     3RD WORD OF THE HEADER RECORD OF THE GPL DATA BLOCK FOR LATER USE.\r\nC     THE ACTUAL FACTOR OF THE MULTIPLIER IS ALSO MACHINE DEPENDENT.\r\nC     UNIVAC, A 36-BIT MACHINE, CAN HAVE A MULTIPLIER OF 100 OR 1000.\r\nC     OTHER 60- OR 64- BIT MACHINES, THE MULTIPLIER REMAINS AT 1000\r\nC     IF THE MULTIPLIER IS 1000, THE SEQGP AND SEQEP CARDS, AS BEFORE,\r\nC     CAN HAVE 4 SEQID LEVELS, SUCH AS XXX.X.X.X\r\nC     IF THE MULTIPLIER IS 100, SEQGP AND SEQEP CARDS ARE LIMITED TO\r\nC     3 SEQID LEVELS, XXX.X.X\r\nC     FINALLY, IF MULTIPLIER IS 10, SEQGP AND SEQEP ARE LIMITED TO XXX.X\r\nC\r\nC     SPECIAL CONSIDERATION FOR THE AXISYM. AND HYDROELAS. PROBLEMS - 10\r\nC     IS USED FOR THE MULTIPLIER, AND THEREFOR A ONE SEQID LEVEL IS\r\nC     AVAILABLE. PREVIOUSLY, SEQGP CARDS WERE NOT USED IN AXISYM. AND\r\nC     HYDROELAS. PROBLEMS, AND NO USER WARNING MESSAGE PRINTED\r\nC\r\nC     NO ADJUSTABLE MULTIPLY FACTOR FOR SUBRSTRUCTURING (MULT=1000,\r\nC     SEE ALSO SGEN)\r\nC\r\nC     THE 65535 LIMITATION INVOLVES ONLY A SAMLL CHANGE IN STA 973\r\nC\r\n      EXTERNAL        RSHIFT\r\n      INTEGER         RD,WRT,CLS,FILE,ELEM,AXIC,Z,SYSBUF,BUF1,BUF2,\r\n     1                BUF3,GEOMP,GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL,SCR1,\r\n     2                SCR2,WRTREW,RDREW,A,SPOINT,FLAG,GRID,CLSREW,\r\n     3                SEQGP,GPFL,CORD,CORDIJ,GP1AH,GEOM1,GEOM2,PTR,\r\n     4                SOLV,SOLVP,SCALPT,TYPE,OFFSET,RSHIFT\r\n      REAL            LENGTH\r\n      DIMENSION       A(34),AA(34),AB(3),AC(3),AI(3),AJ(3),AK(3),AX(3),\r\n     1                AR(3),SPOINT(2),GRID(2),SEQGP(2),CORDIJ(12),\r\n     2                CORD(6),GP1AH(2),SCALPT(2),ZZ(1),MCB(7)\r\n      CHARACTER*29    LVL1,LVL2\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / LUSET,NOGPDT,NOCSTM\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /SETUP / NFILE(6),PTR\r\n      COMMON /GPTA1 / NELEM,LASTX,INCRX,ELEM(1)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF), (KSYSTM( 2),IOUT ),\r\n     1                (KSYSTM(24),ICFIAT), (KSYSTM(27),AXIC ),\r\n     2                (KSYSTM(38),IAXIF ), (KSYSTM(40),NBPW ),\r\n     3                (KSYSTM(56),ITHERM), (KSYSTM(69),ISUBS)\r\n      EQUIVALENCE     (Z( 1),ZZ(1)), (A( 1),AA(1)), (A( 4),AB(1)),\r\n     1                (A( 7),AC(1)), (A(10),AI(1)), (A(13),AJ(1)),\r\n     2                (A(16),AK(1)), (A(19),AX(1)), (A(22),AR(1)),\r\n     3                (NOCSTM,IFL ), (GEOMP,GEOM1), (MCB(2),KN  )\r\n      EQUIVALENCE     (IGPDT,ICSDT)\r\n      DATA    GEOM1 / 101/, GEOM2 / 102/,\r\n     1        GPL   / 201/, EQEXIN/ 202/, GPDT  / 203/,\r\n     2        CSTM  / 204/, BGPDT / 205/, SIL   / 206/,\r\n     3        SCR1  / 301/, SCR2  / 302/\r\n      DATA    GP1AH / 4HGP1 , 4H    /,\r\n     1        CORD  / 6,6,6,13,13,13/,\r\n     2        GRID  / 4501,45  /,\r\n     3        SEQGP / 5301,53  /,\r\n     4        CORDIJ/ 1701,17,1801,18,1901,19,2001,20,2101,21,2201,22/,\r\n     5        SCALPT/ 5551,49  /\r\n      DATA    MCB   / 7*0      /,\r\n     1        LARGE / 100000000/,\r\n     2        LVL1  / '3  I.E.  XXX.X.X.X TO XXX.X.X' /,\r\n     3        LVL2  / '2  I.E.  XXX.X.X.X TO XXX.X  ' /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      CALL DELSET\r\n      NZ     = KORSZ(Z)\r\n      BUF1   = NZ - SYSBUF - 2\r\n      BUF2   = BUF1 - SYSBUF\r\n      BUF3   = BUF2 - SYSBUF\r\n      NOGO   = 0\r\n      NOCSTM = 0\r\n      NOGPDT =-1\r\n      NOGMP1 = 1\r\n      MAXA1  = 0\r\n      MULT   = 1000\r\n      AXI    = 0\r\n      IF (AXIC.NE.0 .OR. IAXIF.NE.0) AXI = 1\r\n      IF (AXI   .NE. 0) MULT = 10\r\n      IF (ISUBS .NE. 0) MULT = 1000\r\n      IMAX = LARGE\r\n      IF (NBPW .EQ. 32) IMAX =  2147483\r\n      IF (NBPW .EQ. 36) IMAX = 34359738\r\nC         2147483=2**31/1000   34359738=2**35/1000\r\nC\r\nC     READ SCALAR ELEMENT CONNECTION CARDS (IF PRESENT).\r\nC     EXTRACT SCALAR POINTS AND WRITE THEM ON SCR2.\r\nC\r\n      FILE = SCR2\r\n      CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW)\r\n      NOSCLR= 0\r\n      M8    =-8\r\n      A(11) =-1\r\n      DO 30 K = 12,16\r\n   30 A(K) = 0\r\n      CALL PRELOC (*80,Z(BUF1),GEOM2)\r\n      I = 1\r\n      DO 60 I = 1,LASTX,INCRX\r\n      KK = ELEM(I+10)\r\n      IF (KK .EQ. 0) GO TO 60\r\n      CALL LOCATE (*60,Z(BUF1),ELEM(I+3),FLAG)\r\n      NN = ELEM(I+5)\r\n   40 CALL READ (*1180,*60,GEOM2,A,NN,0,FLAG)\r\n      DO 50 K = 3,4\r\n      IF (A(K).EQ.0 .OR. (KK.EQ.1 .AND. A(K+2).NE.0)) GO TO 50\r\n      A(10)  = A(K)\r\n      NOSCLR = 1\r\n      CALL WRITE (SCR2,A(10),1,0)\r\n   50 CONTINUE\r\n      GO TO 40\r\n   60 CONTINUE\r\nC\r\nC     COPY SCALAR POINTS DEFINED ON SPOINT CARDS (IF PRESENT) ONTO SCR2.\r\nC\r\n      CALL LOCATE (*80,Z(BUF1),SCALPT,FLAG)\r\n      NOSCLR = 1\r\n      CALL READ   (*1180,*70,GEOM2,Z,BUF2-1,1,N)\r\n      CALL MESAGE (M8,0,GP1AH)\r\n   70 CALL WRITE  (SCR2,Z,N,0)\r\nC\r\nC     CLOSE FILES. IF SCALAR POINTS PRESENT, SORT LIST.\r\nC     THEN DISCARD DUPLICATES AND WRITE UNIQUE LIST ON SCR2.\r\nC\r\n   80 CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      CALL CLOSE (GEOM2,CLSREW)\r\n      IF (NOSCLR .EQ. 0) GO TO 110\r\n      NFILE(1) = GPDT\r\n      NFILE(2) = BGPDT\r\n      NFILE(3) = SIL\r\n      CALL OPEN  (*1170,SCR2,Z(BUF1),RDREW)\r\n      CALL SORTI (SCR2,0,1,1,Z,BUF1-1)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      FILE = NFILE(6)\r\n      CALL OPEN (*1170,FILE,Z(BUF1),RDREW)\r\n      CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW)\r\n      LAST = -1\r\n   90 CALL READ (*1180,*100,FILE,A(10),1,0,FLAG)\r\n      IF (A(10) .EQ. LAST) GO TO 90\r\n      CALL WRITE (SCR2,A(10),1,0)\r\n      LAST = A(10)\r\n      GO TO 90\r\n  100 CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      CALL CLOSE (FILE,CLSREW)\r\n      CALL OPEN  (*1170,SCR2,Z(BUF3),RDREW)\r\nC\r\nC     READ GRID ENTRIES (IF PRESENT).\r\nC     MERGE GRID AND SCALAR NOS.\r\nC     CREATING LIST IN CORE OF EXTERNAL NO., MULT * EXTERNAL NO.\r\nC     WRITE 7-WORD GRID AND SCALAR ENTRIES ON SCR1.\r\nC\r\n  110 A(1)  = LARGE\r\n      A(10) = LARGE\r\n      FILE  = SCR1\r\n      IF (MAXA1 .EQ. 0) CALL OPEN (*1170,SCR1,Z(BUF2),WRTREW)\r\n      I = -1\r\n      NOGRID = 0\r\n      IF (MAXA1 .EQ. 0) CALL PRELOC (*190,Z(BUF1),GEOM1)\r\n      CALL LOCATE (*200,Z(BUF1),GRID,FLAG)\r\n      NOGRID = 1\r\n      CALL READ  (*1180,*1200,GEOM1,A,8,0,FLAG)\r\n      CALL WRITE (SCR1,A,7,0)\r\n  120 IF (NOSCLR .EQ. 0) GO TO 140\r\n      CALL READ  (*1180,*1200,SCR2,A(10),1,0,FLAG)\r\n      CALL WRITE (SCR1,A(10),7,0)\r\n  130 IF (NOGRID .EQ. 0) GO TO 160\r\n      IF (NOSCLR .EQ. 0) GO TO 140\r\n      IF (A(1) -  A(10)) 140,1250,160\r\nC\r\nC     GRID NO. .LT. SCALAR NO.\r\nC\r\n  140 I = I + 2\r\n      Z(I) = A(1)\r\nC\r\nC     GRID POINT EXTERNAL ID * MULT IS LIMITED TO COMPUTER MAXIMUM\r\nC     INTEGER SIZE\r\nC\r\n      IF (A(1).LE.IMAX .OR. AXI.NE.0) GO TO 142\r\n      IF (A(1) .GT. MAXA1) MAXA1 = A(1)\r\n      GO TO 146\r\n  142 Z(I+1) = MULT*A(1)\r\n  146 CALL READ  (*1180,*150,GEOM1,A,8,0,FLAG)\r\n      CALL WRITE (SCR1,A,7,0)\r\n      GO TO 130\r\n  150 NOGRID = 0\r\n      A(1) = LARGE\r\n      IF (NOSCLR .EQ. 0) GO TO 180\r\nC\r\nC     SCALAR NO. .LT. GRID NO.\r\nC\r\n  160 I = I + 2\r\n      Z(I) = A(10)\r\nC\r\nC     SCALAR POINT EXTERNAL ID * MULT IS LIMITED TO COMPUTER MAXIMUM\r\nC     INTEGER SIZE\r\nC\r\n      IF (A(10).LE.IMAX .OR. AXI.NE.0) GO TO 162\r\n      IF (A(10) .GT. MAXA1) MAXA1 = A(10)\r\n      GO TO 166\r\n  162 Z(I+1) = MULT*A(10)\r\n  166 CALL READ  (*1180,*170,SCR2,A(10),1,0,FLAG)\r\n      CALL WRITE (SCR1,A(10),7,0)\r\n      GO TO 130\r\n  170 NOSCLR = 0\r\n      A(10)  = LARGE\r\n      IF (NOGRID .EQ. 0) GO TO 180\r\n      GO TO 140\r\nC\r\nC     LIST COMPLETE ONLY IF MAXA1 .LE. ZERO\r\nC\r\nC     IF MAXA1 IS .GT. ZERO, SOME LARGE GRID OR SCALAR POINTS HAD BEEN\r\nC     LEFT OUT IN LIST. MAXA1 IS THE LARGEST GRID OR SCALAR POINT\r\nC     EXTERNAL ID.  RESET MULT AND REPEAT COMPILING LIST\r\nC\r\n  180 IF (MAXA1 .LE. 0) GO TO 185\r\n      IF (ISUBS .NE. 0) GO TO 183\r\n      CALL REWIND (SCR1)\r\n      CALL REWIND (GEOM1)\r\n      IF (NOSCLR .NE. 0) CALL REWIND (SCR2)\r\n      MULT = 100\r\n      IF (MAXA1 .GT. IMAX*10) MULT = 10\r\n      IMAX  = (IMAX/MULT)*1000\r\n      MAXA1 = -1\r\nCWKBR CALL PAGE (-3)\r\n      CALL PAGE2(-3)\r\n      IF (MULT .EQ. 100) WRITE (IOUT,182) UWM,LVL1\r\n      IF (MULT .EQ.  10) WRITE (IOUT,182) UWM,LVL2\r\n  182 FORMAT (A25,' 2140A, DUE TO THE PRESENCE OF ONE OR MORE GRID OR ',\r\n     1       'SCALAR POINTS WITH VERY LARGE EXTERNAL ID''S, THE SEQGP' ,\r\n     2       /5X,'AND SEQEP CARDS, IF USED, ARE FORCED TO REDUCE FROM ',\r\n     3       'ALLOWABLE 4 SEQID LEVELS TO ',A29,/)\r\n      GO TO 110\r\nC\r\n  183 WRITE  (IOUT,184) UFM\r\n  184 FORMAT (A23,' 2140B, EXTERNAL GRID OR SCALAR POINT ID TOO BIG')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  185 N    = I\r\n      NEQEX= N\r\n      N1   = N + 1\r\n      N2   = N + 2\r\n      IGPDT= N2\r\n      ILIST= N2\r\n      KN   = N1/2\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      GO TO 210\r\nC\r\nC     NO GRID CARDS PRESENT-- TEST FOR ANY SCALAR PTS.\r\nC\r\n  190 NOGMP1 = 0\r\n  200 IF (NOSCLR .EQ. 0) GO TO 980\r\n      GO TO 120\r\nC\r\nC     READ THE SEQGP TABLE (IF PRESENT)\r\nC     FOR EACH ENTRY, FIND MATCH IN THE SORTED EXTERNAL GRID POINTS\r\nC     AND REPLACE SEQUENCE NO. WITH SEQGP NO.\r\nC\r\n  210 NOSEQ  = 0\r\n      NOGPDT = 1\r\n      IF (NOGMP1 .EQ. 0) GO TO 260\r\n      ASSIGN 230 TO NDX\r\n      SPOINT(2) = 0\r\n      IERR = 1\r\n      ASSIGN 220 TO NERR\r\n      CALL LOCATE (*250,Z(BUF1),SEQGP,FLAG)\r\n      NOSEQ = 1\r\n      IFAIL = 0\r\n 2010 CALL READ (*1180,*2020,GEOMP,Z(N2),BUF1-1,1,FLAG)\r\n      IFAIL = IFAIL + 1\r\n      GO TO 2010\r\n 2020 IF (IFAIL .EQ. 0) GO TO 2060\r\n      NWDS = (IFAIL-1)*(BUF1-1) + FLAG\r\n      WRITE  (IOUT,2040) UFM,NWDS\r\n 2040 FORMAT (A23,' 3135, UNABLE TO PROCESS SEQGP DATA IN SUBROUTINE ',\r\n     1       'GP1 DUE TO INSUFFICIENT CORE.', //5X,\r\n     2       'ADDITIONAL CORE REQUIRED =',I10,7H  WORDS)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     CHECK FOR MULTIPLE REFERENCES TO GRID (OR SCALAR) POINT ID NOS.\r\nC     AND SEQUENCE ID NOS. ON SEQGP CARDS\r\nC\r\n 2060 K  = N2\r\n      KK = N2 + FLAG - 1\r\n      JJ = KK - 2\r\n 2080 DO 2285 I = K,JJ,2\r\n      IF (Z(I).LT.0 .OR. I.GE.KK) GO TO 2275\r\n      II = I + 2\r\n      IFAIL = 0\r\n      DO 2270 J = II,KK,2\r\n      IF (Z(I) .NE. Z(J)) GO TO 2270\r\n      IF (IFAIL .NE.   0) GO TO 2260\r\n      IFAIL = 1\r\n      NOGO  = 1\r\n      IF (K .NE. N2) GO TO 2110\r\n      WRITE  (IOUT,2100) UFM,Z(I)\r\n 2100 FORMAT (A23,' 3136, MULTIPLE REFERENCES TO GRID (OR SCALAR) POINT'\r\n     1,      ' ID NO.',I9,'  ON SEQGP CARDS.')\r\n      GO TO 2260\r\n 2110 IDSEQ1 = Z(I)/1000\r\n      IRMNDR = Z(I) - 1000*IDSEQ1\r\n      IF (IRMNDR.NE.0 .AND. MULT.GE.10) GO TO 2140\r\n      IF (AXI .NE. 0) GO TO 2130\r\n      WRITE  (IOUT,2120) UFM,IDSEQ1\r\n 2120 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,6X,\r\n     1       ' ON SEQGP CARDS.')\r\n      GO TO 2260\r\n 2130 IF (AXI .EQ. 1) WRITE (IOUT,2135) UFM\r\n 2135 FORMAT (A23,' 3137A, SEQGP CARDS WITH MORE THAN ONE SEQID LEVEL ',\r\n     1       'ARE ILLEGAL FOR AXISYSM. OR HYDROELAS. PROBLEM')\r\n      AXI  = 2\r\n      NOGO = 1\r\n      GO TO 2260\r\n 2140 IDSEQ2 = IRMNDR/100\r\n      IRMNDR = IRMNDR - 100*IDSEQ2\r\n      IF (IRMNDR.NE.0 .AND. MULT.GE.100) GO TO 2180\r\n      WRITE  (IOUT,2160) UFM,IDSEQ1,IDSEQ2\r\n 2160 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1        1H.,I1,5X,'ON SEQGP CARDS.')\r\n      GO TO 2260\r\n 2180 IDSEQ3 = IRMNDR/10\r\n      IRMNDR = IRMNDR - 10*IDSEQ3\r\n      IF (IRMNDR .NE. 0) GO TO 2220\r\n      WRITE  (IOUT,2200) UFM,IDSEQ1,IDSEQ2,IDSEQ3\r\n 2200 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1       1H.,I1,1H.,I1,4X,'ON SEQGP CARDS.')\r\n      GO TO 2260\r\n 2220 WRITE  (IOUT,2240) UFM,IDSEQ1,IDSEQ2,IDSEQ3,IRMNDR\r\n 2240 FORMAT (A23,' 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO.',I6,\r\n     1        1H.,I1,1H.,I1,1H.,I1,'  ON SEQGP CARDS.')\r\n 2260 Z(J) = -Z(J)\r\n 2270 CONTINUE\r\nC\r\n 2275 IF (JJ.LT.KK .OR. MULT.EQ.1000) GO TO 2285\r\n      L = Z(I)\r\n      IF (MULT   .LE.   10) GO TO 2280\r\n      IF (MOD(L,10) .NE. 0) GO TO 2276\r\n      Z(I) = L/10\r\n      GO TO 2285\r\n 2276 IF (MAXA1 .EQ. 0) GO TO 2285\r\n      MAXA1 = 0\r\n      NOGO  = 1\r\n      WRITE  (IOUT,2277) UFM\r\n 2277 FORMAT (A23,' 2140B, ILLEGAL DATA IN SEQGP CARD, POSSIBLY CAUSED',\r\n     1       ' BY LARGE GRID OR SCALAR POINTS')\r\n      GO TO 2285\r\n 2280 IF (MULT .EQ. 1) GO TO 2282\r\n      IF (MOD(L,100) .NE. 0) GO TO 2276\r\n      Z(I) = L/100\r\n      GO TO 2285\r\n 2282 IF (AXI .EQ. 0) CALL MESAGE (-37,0,NAM)\r\n      IF (MOD(L,1000) .EQ. 0) GO TO 2285\r\n      IF (AXI .EQ. 1) WRITE (IOUT,2135) UFM\r\n      AXI  = 2\r\n      NOGO = 1\r\n 2285 CONTINUE\r\nC\r\n      IF (K .NE. N2) GO TO 2290\r\n      JJ = KK\r\n      K  = K + 1\r\n      GO TO 2080\r\nC\r\n 2290 DO 2300 I = N2,KK,2\r\n      IF (Z(I) .LT. 0) Z(I) = -Z(I)\r\n 2300 CONTINUE\r\n      IF (NOGO .EQ. 1) GO TO 2400\r\nC\r\nC     CHECK TO SEE IF ANY SEQUENCE ID NO. ON SEQGP CARDS IS THE SAME\r\nC     AS A GRID (OR SCALAR) POINT ID NO. THAT HAS NOT BEEN RESEQUENCED\r\nC\r\n      DO 2390 I = K,KK,2\r\n      IF (Z(I) .LT. 0) GO TO 2390\r\n      IDSEQ1 = Z(I)/MULT\r\n      IRMNDR = Z(I) - MULT*IDSEQ1\r\n      IF (IRMNDR .NE. 0) GO TO 2390\r\n      DO 2320 J = N2,KK,2\r\n      IF (IDSEQ1 .EQ. Z(J)) GO TO 2390\r\n 2320 CONTINUE\r\n      DO 2340 J = 1,N1,2\r\n      IF (IDSEQ1 .EQ. Z(J)) GO TO 2360\r\n 2340 CONTINUE\r\n      GO TO 2390\r\n 2360 NOGO = 1\r\n      WRITE  (IOUT,2380) UFM,IDSEQ1\r\n 2380 FORMAT (A23,' 3138, SEQUENCE ID NO.',I6,' ON SEQGP CARDS IS THE ',\r\n     1       'SAME AS A', /5X,'GRID (OR SCALAR) POINT ID NO. THAT HAS ',\r\n     2       'NOT BEEN RESEQUENCED.')\r\n 2390 CONTINUE\r\n 2400 CONTINUE\r\n      I = -1\r\n  220 I = I + 2\r\n      IF (I .GT. FLAG) GO TO 240\r\n      A(1) = Z(N2+I-1)\r\n      A(2) = Z(N2+I  )\r\n      GO TO 1060\r\n  230 Z(2*K) = A(2)\r\n      GO TO 220\r\nC\r\nC     SORT THE CORE TABLE BY INTERNAL GRID PT NO\r\nC     THUS FORMING THE GPL (EXTERNAL GRID PT NOS IN SORT BY INTERNAL NO)\r\nC\r\n  240 IF (NOGO .NE. 0) GO TO 1165\r\n      CALL SORTI (0,0,2,2,Z,N1)\r\nC\r\nC     CLOSE GEOM1. WRITE THE GPL. FIRST RECORD IS A SINGE ENTRIED LIST\r\nC     OF EXTERNAL GRID NOS. IN INTERNAL SORT. SECOND RECORD IS A DOUBLE\r\nC     ENTRIED LIST OF EXTERAL GRID NO., SEQUENCE NO. (SORT IS INTERNAL).\r\nC     ADD THE MULTIPLIER, MULT, TO THE 3RD WORD OF GPL HEADER RECORD\r\nC\r\n  250 IF (NOGMP1 .NE. 0) CALL CLOSE (GEOM1,CLSREW)\r\n  260 CALL FNAME (GPL,A)\r\n      FILE = GPL\r\n      CALL OPEN (*1170,GPL,Z(BUF1),WRTREW)\r\n      A(3) = MULT\r\n      CALL WRITE (GPL,A,3,1)\r\n      DO 270 I = 1,N,2\r\n  270 CALL WRITE (GPL,Z(I),1,0)\r\n      CALL WRITE (GPL,0,0,1)\r\n      CALL WRITE (GPL,Z,N1,1)\r\n      CALL CLOSE (GPL,CLSREW)\r\n      MCB(1) = GPL\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     FORM INTERNAL INDEX FOR EACH EXTERNAL GRID PT. NO.\r\nC\r\n      I = 2\r\n      Z(I) = 1\r\n      IF (N .EQ. 1) GO TO 310\r\n      DO 290 I = 3,N,2\r\n  290 Z(I+1) = Z(I-1) + 1\r\nC\r\nC     TEST TO SEE IF EXTERNAL GRID PT NOS ARE STILL IN EXTERNAL SORT\r\nC     I.E., IF NO SEQGP TABLE, THEN SORT IS MAINTAINED\r\nC     OTHERWISE, SORT ON EXTERNAL GRID NO.\r\nC\r\n      IF (NOSEQ .NE. 0) CALL SORTI (0,0,2,1,Z,N1)\r\nC\r\nC     DETERMINE IF THE GPDT CAN BE HELD IN CORE\r\nC     NWDS= TOTAL NO OF WORDS IN THE GPDT\r\nC     M= MAX NO OF ENTRIES CORE CAN HOLD WITH ONE BUFFER OPEN\r\nC     IF NWDS/7.LE.M,CORE WILL HOLD THE GPDT\r\nC     OTHERWISE THE FILE SORT ROUTINE WILL BE USED\r\nC\r\n  310 NWDS = 7*KN\r\n      M    = (BUF1-N1)/7\r\n      GPFL = 0\r\n      IF (KN .GT. M) GPFL = 7\r\n      FILE = SCR1\r\nC\r\nC     READ THE GRID AND SPOINT TABLES FROM SCR1\r\nC     REPLACE THE EXTERNAL GRID PT NO WITH THE INTERNAL INDEX\r\nC     IF CORE WILL HOLD THE GPDT, USE THE INTERNAL INDEX AS A POINTER\r\nC     OTHERWISE, WRITE THE UNSORTED GPDT ON SCR2\r\nC\r\n      CALL OPEN (*1170,SCR1,Z(BUF1),RDREW)\r\n      FILE = SCR2\r\n      IF (GPFL .NE. 0) CALL OPEN (*1170,SCR2,Z(BUF2),WRTREW)\r\n      FILE = SCR1\r\n      ASSIGN 340 TO NDX\r\n      IERR = 2\r\n      ASSIGN 330 TO NERR\r\n  330 CALL READ (*1180,*370,SCR1,A,7,0,FLAG)\r\n      GO TO 1060\r\n  340 IF (GPFL .NE. 0) GO TO 360\r\n      J = N1 + 7*(A(1)-1)\r\n      DO 350 K = 1,7\r\n      I = J+K\r\n  350 Z(I) = A(K)\r\n      GO TO 330\r\n  360 CALL WRITE (SCR2,A,7,0)\r\n      GO TO 330\r\n  370 IF (NOGO .NE. 0) GO TO 1165\r\n      CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     OPEN OUTPUT FILE FOR GPDT AND WRITE HEADER DATA\r\nC     IF GPDT IS IN CORE, WRITE IT OUT\r\nC\r\n      FILE = GPDT\r\n      CALL FNAME (GPDT,A)\r\n      CALL OPEN  (*1170,GPDT,Z(BUF1),WRTREW)\r\n      CALL WRITE (GPDT,A,2,1)\r\n      IF (GPFL .NE. 0) GO TO 390\r\n      CALL WRITE (GPDT,Z(IGPDT),NWDS,1)\r\n      GO TO 400\r\nC\r\nC     IF GPDT NOT IN CORE, CALL SORT\r\nC\r\n  390 NFILE(1) = SCR1\r\n      NFILE(2) = CSTM\r\n      NFILE(3) = BGPDT\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      FILE = SCR2\r\n      CALL OPEN  (*1170,SCR2,Z(BUF2),RDREW)\r\n      CALL SORTI (SCR2,GPDT,7,1,Z(IGPDT),BUF2-IGPDT)\r\n      CALL CLOSE (SCR2,CLSREW)\r\n  400 CALL CLOSE (GPDT,CLSREW)\r\n      MCB(1) = GPDT\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     READ THE CORDIJ TABLES INTO CORE (IF PRESENT)\r\nC\r\n      IFL = -1\r\n      M   = ICSDT\r\n      NOLIST = 0\r\n      IF (NOGMP1 .EQ. 0) GO TO 810\r\n      NDX   = BUF1 - 15\r\n      NCORE = BUF1 - 15\r\n      DO 420 I = ICSDT,BUF1\r\n  420 Z(I) = 0\r\n      FILE = GEOMP\r\n      CALL PRELOC (*1170,Z(BUF1),GEOMP)\r\n      DO 440 I = 1,6\r\n      IJ = I + I - 1\r\n      CALL LOCATE (*440,Z(BUF1),CORDIJ(IJ),FLAG)\r\n      IFL = 1\r\n  430 CALL READ (*1180,*440,GEOMP,Z(M),CORD(I),0,FLAG)\r\n      M = M + 16\r\n      IF (M .GT. NCORE) CALL MESAGE (-8,0,GP1AH)\r\n      GO TO 430\r\n  440 CONTINUE\r\n      CALL CLOSE (GEOMP,CLSREW)\r\n      M = M - 16\r\n      NCSDT = M\r\nC\r\nC     TEST FOR PRESENCE OF ANY CORDIJ TABLES\r\nC\r\n      IF (IFL .EQ. -1) GO TO 810\r\nC\r\nC     REPLACE EXTERNAL GRID PT NO IN CORD1J ENTRIES (IF ANY)\r\nC     WITH CORRESPONDING INTERNAL INDEX\r\nC     SAVE A TABLE OF GRID PTS REFERENCED ON CORD1J ENTRIES\r\nC\r\n      JJ   = ICSDT\r\n      ILIST= NCSDT + 16\r\n      II   = ILIST - 1\r\n      NCORE= BUF1  - 3\r\n      IERR = 3\r\n  470 IF (Z(JJ+2).NE.1) GO TO 510\r\n      NOLIST = 1\r\n      ASSIGN 480 TO NDX\r\n      ASSIGN 485 TO NERR\r\n      A(1) = Z(JJ+3)\r\n      SPOINT(2) =  Z(JJ+1)\r\n      GO TO 1060\r\n  480 Z(JJ+3) = A(1)\r\n      Z(II+1) = A(1)\r\n  485 ASSIGN 490 TO NDX\r\n      ASSIGN 495 TO NERR\r\n      A(1) = Z(JJ+4)\r\n      GO TO 1060\r\n  490 Z(JJ+4) = A(1)\r\n      Z(II+2) = A(1)\r\n  495 ASSIGN 500 TO NDX\r\n      ASSIGN 505 TO NERR\r\n      A(1) = Z(JJ+5)\r\n      GO TO 1060\r\n  500 Z(JJ+5) = A(1)\r\n      Z(II+3) = A(1)\r\n  505 II = II+3\r\n      IF (II .GT. NCORE) CALL MESAGE (-8,0,GP1AH)\r\n  510 JJ = JJ + 16\r\n      IF (JJ .LE. NCSDT) GO TO 470\r\n      IF (NOGO .NE.   0) GO TO 1165\r\nC\r\nC     IF ANY CORD1J ENTRIES, PASS THE GPDT AND CREATE A TABLE OF THE\r\nC     REFERENCED GRID PTS. THIS TABLE IS CALLED CSGP\r\nC\r\n      IF (NOLIST .EQ. 0) GO TO 550\r\n      NLIST = II\r\n      ICSGP = NLIST + 1\r\n      CALL SORTI (0,0,1,1,Z(ILIST),ICSGP-ILIST)\r\n      Z(ICSGP) = 0\r\n      JJ = ILIST\r\n      DO 530 KK = ILIST,NLIST\r\n      IF (Z(KK+1) .EQ. Z(KK)) GO TO 530\r\n      Z(JJ) = Z(KK)\r\n      JJ = JJ + 1\r\n  530 CONTINUE\r\n      NLIST = JJ - 1\r\n      ICSGP = JJ\r\n      FILE  = GPDT\r\n      CALL OPEN   (*1170,GPDT,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1180,GPDT)\r\n      NCORE = BUF1 - 5\r\n      I = ILIST\r\n  540 CALL READ (*1180,*1200,GPDT,Z(JJ),7,0,FLAG)\r\n      IF (Z(JJ) .NE. Z(I)) GO TO 540\r\n      JJ = JJ + 5\r\n      IF (JJ .GT. NCORE) CALL MESAGE (-8,0,GP1AH)\r\n      I  = I + 1\r\n      IF (I .LE. NLIST) GO TO 540\r\n      NCSGP = JJ - 5\r\n      CALL CLOSE (GPDT,CLSREW)\r\nC\r\nC     LOOP THRU THE CSDT SOLVING AS MANY COORDINATE SYSTEMS AS POSSIBLE\r\nC     ON EACH PASS.\r\nC\r\n  550 NN = (NCSDT-ICSDT)/16 + 1\r\n      SOLV  = 0\r\n      SOLVP = 0\r\n  560 II = ICSDT\r\n  570 IF (Z(II+2)-2) 580,620,690\r\nC\r\nC     *****  TYPE = 1 *****\r\nC     CHECK TO SEE IF EACH OF THE 3 REFERENCE GRID PTS IS IN BASIC SYS\r\nC     IF SO,CALCULATE THE TRANSFORMATION TO BASIC AND SET COORD SYSTEM\r\nC     AS SOLVED, IF NOT CONTINUE TO NEXT COORDINATE SYSTEM\r\nC\r\n  580 I = 0\r\n  590 K = II + I\r\n      J = ICSGP - 1\r\n  600 IF (Z(J+1) .EQ. Z(K+3)) GO TO 610\r\n      J = J + 5\r\n      IF (J .LT. NCSGP) GO TO 600\r\n      GO TO 1220\r\n  610 IF (Z(J+2).NE.0) GO TO 700\r\n      K = I*3\r\n      AA(K+1) = ZZ(J+3)\r\n      AA(K+2) = ZZ(J+4)\r\n      AA(K+3) = ZZ(J+5)\r\n      I = I+1\r\n      IF (I .LE. 2) GO TO 590\r\n      GO TO 1020\r\nC\r\nC     ***** TYPE = 2 *****\r\nC     CHECK THE DEFINING LOCAL COORDINATE SYSTEM\r\nC     IF BASIC, SOLVE AS IN TYPE=1\r\nC     IF NOT BASIC, FIND THE REFERENCED COORD SYSTEM AND TEST IF THAT\r\nC     SYSTEM IS SOLVED. IF YES, CALCULATE THE TRANSFORMATION TO BASIC\r\nC     IF NO, CONTINUE THRU THE CSDT\r\nC\r\n  620 IF (Z(II+3) .NE. 0) GO TO 640\r\n      DO 630 I = 1,9\r\n      K = II + I\r\n  630 AA(I) = ZZ(K+3)\r\n      GO TO 1020\r\n  640 I = ICSDT\r\n  650 IF (Z(I) .EQ. Z(II+3)) GO TO 660\r\n      I = I + 16\r\n      IF (I .LE. NCSDT) GO TO 650\r\n      GO TO 1230\r\n  660 IF (Z(I+2).NE.3 .OR. Z(I+3).NE.0) GO TO 700\r\n      K = 0\r\n      ASSIGN 680 TO NDX\r\n  670 L = K + II\r\n      AX(1) = ZZ(L+4)\r\n      AX(2) = ZZ(L+5)\r\n      AX(3) = ZZ(L+6)\r\n      IF (Z(I+1)-2) 990,1000,1010\r\n  680 AA(K+1) = AR(1)\r\n      AA(K+2) = AR(2)\r\n      AA(K+3) = AR(3)\r\n      K = K + 3\r\n      IF (K .LE. 6) GO TO 670\r\n      GO TO 1020\r\nC\r\nC     ***** TYPE = 3 *****\r\nC     CHECK THE DEFINING LOCAL COORDINATE SYSTEM\r\nC     IF BASIC, CONTINUE THRU CSDT\r\nC     IF NOT BASIC, ERROR CONDITION\r\nC\r\n  690 IF (Z(II+3) .NE. 0) GO TO 1190\r\nC\r\nC     TEST FOR COMPLETION OF PASS THRU CSDT\r\nC\r\n  700 II = II + 16\r\n      IF (II .LE. NCSDT) GO TO 570\r\nC\r\nC     LOOP THRU THE CSGP (IFPRESENT) AND TRANSFORM ALL\r\nC     POSSIBLE GRID PTS TO BASIC\r\nC\r\n      IF (NOLIST .EQ. 0) GO TO 770\r\n      JJ = ICSGP\r\n  720 IF (Z(JJ+1) .EQ. 0) GO TO 760\r\n      I = ICSDT\r\n  730 IF (Z(JJ+1) .EQ. Z(I)) GO TO 740\r\n      I = I + 16\r\n      IF (I .LE. NCSDT) GO TO 730\r\n      IERR = 6\r\n      SPOINT(1) = Z(JJ  )\r\n      SPOINT(2) = Z(JJ+1)\r\n      GO TO 1190\r\n  740 IF (Z(I+2).NE.3 .OR. Z(I+3).NE.0) GO TO 760\r\n      AX(1) = ZZ(JJ+2)\r\n      AX(2) = ZZ(JJ+3)\r\n      AX(3) = ZZ(JJ+4)\r\n      ASSIGN 750 TO NDX\r\n      IF (Z(I+1)-2) 990,1000,1010\r\n  750 ZZ(JJ+2) = AR(1)\r\n      ZZ(JJ+3) = AR(2)\r\n      ZZ(JJ+4) = AR(3)\r\n      ZZ(JJ+1) = 0\r\n  760 JJ = JJ + 5\r\n      IF (JJ .LE. NCSGP) GO TO 720\r\nC\r\nC     TEST TO SEE IF ALL COORDINATE SYSTEMS SOLVED\r\nC     IF NOT, TEST TO SEE IF ANY NEW SOLUTIONS ON LAST PASS\r\nC     IF NONE, INCONSISTANT DEFINITION OF COORDINATE SYSTEMS\r\nC     OTHERWISE LOOP BACK THRU THE CSDT\r\nC\r\n  770 IF (SOLV .EQ.    NN) GO TO 780\r\n      IF (SOLV .EQ. SOLVP) GO TO 1240\r\n      SOLVP = SOLV\r\n      GO TO 560\r\nC\r\nC     WRITE THE CSTM\r\nC\r\n  780 CALL FNAME (CSTM,A)\r\n      FILE = CSTM\r\n      CALL OPEN  (*1170,CSTM,Z(BUF1),WRTREW)\r\n      CALL WRITE (CSTM,A,2,1)\r\n      DO 800 II = ICSDT,NCSDT,16\r\n      CALL WRITE (CSTM,Z(II),2,0)\r\n      CALL WRITE (CSTM,Z(II+4),12,0)\r\n  800 CONTINUE\r\n      CALL CLOSE (CSTM,CLSREW)\r\n      NOCSTM = NN\r\n      MCB(3) = NN\r\n      MCB(1) = CSTM\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     OPEN EQEXIN AND WRITE HEADER RECORD.\r\nC     THEN WRITE FIRST RECORD (PAIRS OF EXTERNAL GRID NO., INTERNAL NO.\r\nC     IN EXTERNAL SORT).\r\nC\r\n  810 FILE = EQEXIN\r\n      CALL OPEN  (*1170,EQEXIN,Z(BUF1),WRTREW)\r\n      CALL FNAME (EQEXIN,A)\r\n      CALL WRITE (EQEXIN,A,2,1)\r\n      CALL WRITE (EQEXIN,Z,N1,1)\r\n      CALL CLOSE (EQEXIN,CLS)\r\nC\r\nC     A LIST OF DEGREES OF FREEDOM FOR EACH GRID OR SCALAR POINT IS\r\nC     FORMED BEGINNING AT Z(ILIST) BY READING GEOM2 AND USING THE\r\nC     CONNECTION INFORMATION IN CONJUNCTION WITH THE ELEM TABLE IN\r\nC     /GPTA1/.\r\nC\r\n      FILE   = GEOM2\r\n      ILIST0 = ILIST - 1\r\n      NLIST  = ILIST + (NEQEX+1)/2\r\n      IF (NLIST .GE. BUF3) CALL MESAGE (-8,0,GP1AH)\r\n      DO 8102 I = ILIST,NLIST\r\n      Z(I) = 0\r\n 8102 CONTINUE\r\n      JERR = 0\r\n      CALL OPEN   (*8130,GEOM2,Z(BUF1),RDREW)\r\n 8103 CALL FWDREC (*1180,GEOM2)\r\n 8104 CALL ECTLOC (*8130,GEOM2,A,I)\r\nC\r\nC     ELEMENT TYPE LOCATED--PREPARE TO PROCESS EACH ELEMENT\r\nC\r\n      IF (ELEM(I+9) .EQ. 0) GO TO 8103\r\n      J1 = ELEM(I+12)\r\n      NREAD = J1 + ELEM(I+9) - 1\r\n      NSKIP =-(ELEM(I+5 ) - NREAD)\r\n      MAXDOF=  ELEM(I+24)\r\n      ITYPE =  ELEM(I+2 )\r\nC\r\nC     READ CONNECTION DATA FOR ELEMENT AND LOCATE EXT. GRID NBR IN\r\nC     EQEXIN UPDATE DOF LIST FOR EACH GRID NBR\r\nC\r\n 8110 CALL READ (*1180,*8104,GEOM2,A,NREAD,0,M)\r\n      DO 8128 I = J1,NREAD\r\n      IF (A(I) .EQ. 0) GO TO 8128\r\n      CALL BISLOC (*8122,A(I),Z,2,KN,K)\r\n      J = ILIST0 + Z(K+1)\r\n      IF (ITYPE.GE.76 .AND. ITYPE.LE.79) GO TO 8115\r\nC\r\nC     STRUCTURE ELEMENT AND OTHERS\r\nC\r\n      IF (Z(J) .LT. 0) GO TO 8124\r\n      Z(J) = MAX0(Z(J),MAXDOF)\r\n      GO TO 8128\r\nC\r\nC     FLUID ELEMENT (CFHEX1,CFHEX2,CFWEDGE,CFTETRA)\r\nC\r\n 8115 IF (Z(J) .GT. 0) GO TO 8124\r\nC\r\n      Z(J) = -1\r\n      GO TO 8128\r\n 8122 WRITE  (IOUT,8123) UFM,A(1),A(I)\r\n 8123 FORMAT (A23,' 2007, ELEMENT',I8,' REFERENCES UNDEFINED GRID ',\r\n     1       'POINT',I8)\r\n      JERR = JERR + 1\r\n      GO TO 8128\r\n 8124 WRITE  (IOUT,8125) UFM,A(I)\r\n 8125 FORMAT (A23,' 8011, GRID POINT',I8,' HAS BOTH STRUCTURE AND ',\r\n     1       'FLUID ELEMENTS CONNECTED')\r\n      JERR = JERR + 1\r\n 8128 CONTINUE\r\n      CALL READ (*1180,*8104,GEOM2,A,NSKIP,0,M)\r\n      GO TO 8110\r\nC\r\nC     END-OF-FILE ON GEOM2---IF FATAL ERRORS, TERMINATE\r\nC\r\n 8130 CONTINUE\r\n      IF (JERR .NE. 0) CALL MESAGE (-61,A,Z)\r\nC\r\nC     OPEN BGPDT AND SIL. WRITE HEADER RECORDS. OPEN GPDT. SKIP HEADER.\r\nC\r\n      OFFSET = RSHIFT(KN,5)\r\n      CALL FNAME (BGPDT,A)\r\n      CALL FNAME (SIL,A(3))\r\n      FILE = BGPDT\r\n      CALL OPEN (*1170,BGPDT,Z(BUF1),WRTREW)\r\n      FILE = SIL\r\n      CALL OPEN (*1170,SIL,Z(BUF2),WRTREW)\r\n      FILE = GPDT\r\n      CALL OPEN   (*1170,GPDT,Z(BUF3),RDREW)\r\n      CALL FWDREC (*1180,GPDT)\r\n      CALL WRITE  (BGPDT,A,2,1)\r\n      CALL WRITE  (SIL,A(3),2,1)\r\n      LUSET = 1\r\nC\r\nC     READ AN ENTRY FROM THE GPDT.\r\nC     TEST FOR DEFINING COORDINATE SYSTEM.\r\nC\r\n  820 CALL READ (*1180,*970,GPDT,A,7,0,FLAG)\r\n      IF (A(2)) 910,880,830\r\nC\r\nC     COORDINATE SYSTEM NOT BASIC--\r\nC     USE CSDT IN CORE TO TRANSFORM TO BASIC.\r\nC\r\n  830 IF (NOCSTM .EQ. -1) GO TO 850\r\n      I = ICSDT\r\n  840 IF (Z(I).EQ.A(2)) GO TO 860\r\n      I = I + 16\r\n      IF (I .LE. NCSDT) GO TO 840\r\n  850 IERR = 6\r\n      SPOINT(1) = A(1)\r\n      SPOINT(2) = A(2)\r\n      GO TO 1190\r\n  860 AX(1) = AA(3)\r\n      AX(2) = AA(4)\r\n      AX(3) = AA(5)\r\n      ASSIGN 870 TO NDX\r\n      IF (Z(I+1)-2) 990,1000,1010\r\n  870 AA(3) = AR(1)\r\n      AA(4) = AR(2)\r\n      AA(5) = AR(3)\r\nC\r\nC     GRID POINT NOW BASIC--\r\nC     STORE DISPLACEMENT SYSTEM COORD. SYSTEM ID AND SET TYPE.\r\nC     MAKE SURE DISPLACEMENT COORD. SYSTEM IS DEFINED.\r\nC\r\n  880 A(2) = A(6)\r\n      TYPE = 1\r\n      KHR  = ILIST0 + A(1)\r\n      INCR = Z(KHR)\r\nC\r\nC     IF INCR NEGATIVE - SPECIAL HYDROELASTIC GRID POINT WITH SINGLE\r\nC     DEGREE OF FREEDOM\r\nC\r\n      IF (INCR .LT. 0) GO TO 905\r\n      IF (INCR .EQ. 0) INCR = 6\r\nC\r\nC     ///////////////////////////////\r\nC\r\nC     TEMP PATCH\r\nC\r\n      INCR = MAX0(INCR,6)\r\nC\r\nC     ///////////////////////////////\r\nC\r\n      IF (A(2).EQ.0 .AND. ITHERM.EQ.0) GO TO 920\r\nC\r\nC     IF A(2) WHICH EQUALS A(6) IS EQUAL TO -1 THEN A FLUID GRID POINT\r\nC     AS CREATED BY IFP4 IS AT HAND AND HAS ONLY 1 DEGREE OF FREEDOM\r\nC     ..... IF -HEAT- PROBLEM THEN ALL GRIDS HAVE 1 DEGREE OF FREEDOM.\r\nC\r\n      IF (A(2).EQ.(-1) .OR. ITHERM.GT.0) GO TO 905\r\n      IF (NOCSTM .EQ. -1) GO TO 900\r\n      DO 890 IJK = ICSDT,NCSDT,16\r\n      IF (A(2) .EQ. Z(IJK)) GO TO 920\r\n  890 CONTINUE\r\n  900 NOGO = 1\r\n      CALL MESAGE (30,104,A(2))\r\n      GO TO 920\r\nC\r\nC     SCALAR POINT-- SET TYPE.\r\nC\r\n  905 A(2) = 0\r\n      A(6) = 0\r\n  910 TYPE = 2\r\n      INCR = 1\r\nC\r\nC     WRITE ENTRY ON BGPDT AND SIL.\r\nC\r\n  920 CALL WRITE (BGPDT,A(2),4,0)\r\n      CALL WRITE (SIL, LUSET,1,0)\r\nC\r\nC     REPLACE INTERNAL NO. IN EQEXIN WITH CODED SIL NO.\r\nC     THEN INCREMENT SIL NO.\r\nC\r\n      NCODE = 10*LUSET + TYPE\r\n      IF (NOSEQ .NE. 0) GO TO 925\r\n      K = 2*A(1)\r\n      IF (Z(K) - A(1)) 950,960,950\r\n  925 NCODE = -NCODE\r\n      LMT1  = MAX0(2*(A(1)-OFFSET),2)\r\n      DO 930 K = LMT1,N1,2\r\n      IF (Z(K) .EQ. A(1)) GO TO 960\r\n  930 CONTINUE\r\n      DO 940 K = 2,LMT1,2\r\n      IF (Z(K) .EQ. A(1)) GO TO 960\r\n  940 CONTINUE\r\n  950 CALL MESAGE (-30,2,A)\r\n  960 Z(K)  = NCODE\r\n      LUSET = LUSET + INCR\r\n      GO TO 820\r\nC\r\nC     CLOSE BGPDT AND SIL. WRITE TRAILERS.\r\nC\r\n  970 CALL CLOSE (BGPDT,CLSREW)\r\n      CALL CLOSE (SIL,CLSREW)\r\n      CALL CLOSE (GPDT,CLSREW)\r\n      LUSET = LUSET - 1\r\nC    2147483647   = 2**31-1\r\n      IF (LUSET .LE. 2147483647) GO TO 974\r\n      WRITE (IOUT,972) UFM,LUSET\r\n  972 FORMAT (A23,' 3175, TOTAL NUMBER OF DEGREES OF FREEDOM IN THE ',\r\n     1       'PROBLEM (',I11,' ) EXCEEDS 2,147,483,647 (I.E., '\r\n     2       '2**31 - 1)')\r\n  973 FORMAT (A29,' 3175, PROBLEM SIZE,',I8,' DOF''S, EXCEEDS THE OLD ',\r\n     1       'LIMIT OF 65535.', /5X,'GOOD NEWS, JOB WILL CONTINUE')\r\n      CALL MESAGE (-61,0,0)\r\n  974 MCB(1) = BGPDT\r\n      MCB(3) = 0\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = SIL\r\n      MCB(3) = LUSET\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     IF GRID NOS. ARE RESEQUENCED, SWITCH SIGN ON CODED SIL NO.\r\nC     WRITE SECOND RECORD OF EQEXIN. CLOSE FILE AND WRITE TRAILER.\r\nC\r\n      IF (NOSEQ .EQ. 0) GO TO 978\r\n      DO 976 K = 2,N1,2\r\n      Z(K) = -Z(K)\r\n  976 CONTINUE\r\n  978 FILE = EQEXIN\r\n      CALL OPEN  (*1170,EQEXIN,Z(BUF1),WRT)\r\n      CALL WRITE (EQEXIN,Z,N1,1)\r\n      CALL CLOSE (EQEXIN,CLSREW)\r\n      MCB(1) = EQEXIN\r\n      MCB(3) = 0\r\n      CALL WRTTRL (MCB)\r\n      CALL SSWTCH (36,K)\r\n      IF (K    .EQ. 1) CALL DIAG36 (Z,BUF1,GPL,SIL,EQEXIN)\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\nC     ABNORMAL EXIT FROM GP1\r\nC\r\n  980 CALL CLOSE (SCR1,CLSREW)\r\n      CALL CLOSE (GEOM1,CLSREW)\r\n      NOCSTM = -1\r\n      RETURN\r\nC\r\nC     ===============================================================\r\nC\r\nC     INTERNAL SUBROUTINE TO TRANSFORM A RECTANGULAR GRID PT TO BASIC\r\nC     I POINTS TO THE CSDT ENTRY WHERE THE TRANSFORMATION IS DEFINED\r\nC     THE GRID PT TO BE TRANSFORMED IS STORED AT AX(1,2,3)\r\nC     THE TRANSFORMED GRID PT WILL BE STORED AT AR(1,2,3)\r\nC\r\n  990 AR(1) = ZZ(I+ 7)*AX(1) + ZZ(I+ 8)*AX(2) + ZZ(I+ 9)*AX(3) + ZZ(I+4)\r\n      AR(2) = ZZ(I+10)*AX(1) + ZZ(I+11)*AX(2) + ZZ(I+12)*AX(3) + ZZ(I+5)\r\n      AR(3) = ZZ(I+13)*AX(1) + ZZ(I+14)*AX(2) + ZZ(I+15)*AX(3) + ZZ(I+6)\r\n      GO TO NDX, (680,750,870)\r\nC\r\nC     INTERNAL SUBROUTINE TO TRANSFORM A CYLINDRICAL GRID PT TO BASIC\r\nC     R,THETA,Z IS STORED AX(1,2,3)\r\nC\r\n 1000 R     = AX(1)\r\n      AX(2) = DEGRA*AX(2)\r\n      AX(1) = R*COS(AX(2))\r\n      AX(2) = R*SIN(AX(2))\r\n      GO TO 990\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE TO TRANSFORM A SPHERICAL GRID PT TO BASIC\r\nC     RHO,THETA,PHI IS STORED AT AX(1,2,3)\r\nC\r\n 1010 AX(2) = DEGRA*AX(2)\r\n      AX(3) = DEGRA*AX(3)\r\n      RSTH  = AX(1)*SIN(AX(2))\r\n      RCTH  = AX(1)*COS(AX(2))\r\n      AX(1) = RSTH *COS(AX(3))\r\n      AX(2) = RSTH *SIN(AX(3))\r\n      AX(3) = RCTH\r\n      GO TO 990\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE TO CALCULATE THE 3X3 TRANSFORMATION MATRIX\r\nC     AND 3X1 TRANSLATION VECTOR GIVEN THREE POINTS IN THE BASIC SYSTEM\r\nC     THE RESULTS ARE STORED BACK IN THE CSDT\r\nC\r\nC     STORE R0 = A IN THE CSDT\r\nC\r\n 1020 ZZ(II+4) = AA(1)\r\n      ZZ(II+5) = AA(2)\r\n      ZZ(II+6) = AA(3)\r\nC\r\nC     FORM B - A\r\nC\r\n      DO 1030 I = 1,3\r\n 1030 AK(I) = AB(I) - AA(I)\r\nC\r\nC     FORM K = (B - A)/LENGTH(B - A)\r\nC     FORM C - A\r\nC\r\n      LENGTH = SQRT(AK(1)**2 + AK(2)**2 + AK(3)**2)\r\n      DO 1040 I = 1,3\r\n      AK(I) = AK(I)/LENGTH\r\n 1040 AC(I) = AC(I) - AA(I)\r\nC\r\nC     FORM K X (C - A)\r\nC\r\n      AJ(1) = AK(2)*AC(3) - AK(3)*AC(2)\r\n      AJ(2) = AK(3)*AC(1) - AK(1)*AC(3)\r\n      AJ(3) = AK(1)*AC(2) - AK(2)*AC(1)\r\nC\r\nC     FORM J = (K X (C-A))/LENGTH(K X (C-A))\r\nC\r\n      LENGTH =  SQRT(AJ(1)**2 + AJ(2)**2 + AJ(3)**2)\r\n      DO 1050 I = 1,3\r\n 1050 AJ(I) = AJ(I)/LENGTH\r\nC\r\nC     FORM I = J X K\r\nC\r\n      AI(1) = AJ(2)*AK(3) - AJ(3)*AK(2)\r\n      AI(2) = AJ(3)*AK(1) - AJ(1)*AK(3)\r\n      AI(3) = AJ(1)*AK(2) - AJ(2)*AK(1)\r\nC\r\nC     STORE 3X3 ROTATION MATRIX = ((IX,JX,KX),(IY,JY,KY),(IZ,JZ,KZ))\r\nC     IN THE CSDT\r\nC\r\n      ZZ(II+ 7) = AI(1)\r\n      ZZ(II+ 8) = AJ(1)\r\n      ZZ(II+ 9) = AK(1)\r\n      ZZ(II+10) = AI(2)\r\n      ZZ(II+11) = AJ(2)\r\n      ZZ(II+12) = AK(2)\r\n      ZZ(II+13) = AI(3)\r\n      ZZ(II+14) = AJ(3)\r\n      ZZ(II+15) = AK(3)\r\nC\r\nC     SET WD 3 OF CSDT = 3 AND WD 4 = 0 TO INDICATE  SOLVED SYSTEM\r\nC     INCREMENT SOLVED SYSTEM COUNT\r\nC\r\n      Z(II+2) = 3\r\n      Z(II+3) = 0\r\n      SOLV = SOLV + 1\r\n      GO TO 700\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH ON FIRST ENTRY\r\nC     OF A DOUBLE ENTRIED TABLE STORED AT Z(1) THRU Z(N+1)\r\nC\r\n 1060 KLO = 1\r\n      KHI = KN\r\n 1070 K = (KLO+KHI+1)/2\r\n 1080 IF (A(1)-Z(2*K-1)) 1090,1150,1100\r\n 1090 KHI = K\r\n      GO TO 1110\r\n 1100 KLO = K\r\n 1110 IF (KHI-KLO-1) 1160,1120,1070\r\n 1120 IF (K.EQ.KLO) GO TO 1130\r\n      K = KLO\r\n      GO TO 1140\r\n 1130 K = KHI\r\n 1140 KLO = KHI\r\n      GO TO 1080\r\n 1150 A(1) = Z(2*K)\r\n      GO TO NDX,  (230,340,480,490,500)\r\n 1160 CALL MESAGE (30,IERR,A(1))\r\n      NOGO = 1\r\n      GO TO NERR, (220,330,485,495,505)\r\n 1165 CALL MESAGE (-61,0,0)\r\nC\r\nC\r\nC     FATAL ERROR MESAGES\r\nC\r\n 1170 NDX = -1\r\n      GO TO 1210\r\n 1180 NDX = -2\r\n      GO TO 1210\r\n 1190 CALL MESAGE (-30,IERR,SPOINT)\r\n 1200 NDX = -3\r\n      GO TO 1210\r\n 1210 CALL MESAGE (NDX,FILE,GP1AH)\r\n 1220 SPOINT(1) = Z(K+3)\r\n      SPOINT(2) = Z(II )\r\n      IERR = 3\r\n      GO TO 1190\r\n 1230 SPOINT(1) = Z(II  )\r\n      SPOINT(2) = Z(II+3)\r\n      IERR = 4\r\n      GO TO 1190\r\n 1240 SPOINT(1) = 0\r\n      SPOINT(2) = 0\r\n      IERR = 5\r\n      GO TO 1190\r\n 1250 SPOINT(1) = A(1)\r\n      SPOINT(2) = 0\r\n      IERR = 12\r\n      GO TO 1190\r\n      END\r\n"
  },
  {
    "path": "mis/gp2.f",
    "content": "      SUBROUTINE GP2\r\nC\r\nC     GP2 BUILDS THE ELEMENT CONNECTION TABLE (ECT).\r\nC     STRUCTURAL ELEMENT CONNECTION CARDS ARE ON GEOM2.\r\nC     EACH EXTERNAL GRID PT. NO. IS CONVERTED TO AN INTERNAL INDEX.\r\nC     IN ADDITION, GENERAL ELEMENT CARDS ARE READ AND\r\nC     EXTERNAL GRID NUMBERS ARE CONVERTED TO INTERNAL NUMBERS.\r\nC\r\nC\r\n      INTEGER         ELEM  ,SYSBUF,BUF1  ,BUF2  ,EQEXIN,RD    ,RDREW ,\r\n     1                WRT   ,WRTREW,CLSREW,CLS   ,ECT   ,GEOMP ,B     ,\r\n     2                FILE  ,Z     ,GENEL ,GEOM2 ,RET   ,RET1  ,GP2H  ,\r\n     3                CBAR  ,CBEAM ,BUF3  ,TWO\r\n      DIMENSION       B(34) ,GP2H(2)      ,MCB(7)       ,GENEL(2)\r\n      COMMON /BLANK / NOECT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /GPTA1 / NELEM ,LAST  ,INCR  ,ELEM(1)\r\n      COMMON /SYSTEM/ SYSBUF,JUNK(36)     ,IAXIF ,NBPC  ,NBPW\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /SETUP / NFILE(6)\r\n      COMMON /TWO   / TWO(32)\r\n      EQUIVALENCE     (GEOMP,GEOM2)\r\nC\r\nC     INPUT  DATA FILES\r\n      DATA   GEOM2,EQEXIN / 101,102 /\r\nC\r\nC     OUTPUT DATA FILES\r\n      DATA   ECT / 201 /\r\nC\r\nC     MISC   DATA\r\n      DATA   GP2H/ 4HGP2 ,4H    /, CBAR / 4HBAR /, CBEAM / 4HBEAM /\r\nC\r\nC     GENEL DATA CARDS PROCESSED BY GP2 IN ADDITION TO ELEMENTS.\r\n      DATA  GENEL / 4301, 43 /\r\nC\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      CALL DELSET\r\n      BUF1  = KORSZ(Z) - SYSBUF - 2\r\n      BUF2  = BUF1 - SYSBUF\r\n      NOECT = -1\r\n      BUF3  = BUF2 - SYSBUF\r\n      MCB(1)= GEOM2\r\n      CALL RDTRL (MCB)\r\nC\r\nC     READ EQEXIN INTO CORE\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN (*580,EQEXIN,Z(BUF1),RDREW)\r\n      CALL FWDREC (*590,EQEXIN)\r\n      CALL READ (*590,*30,EQEXIN,Z,BUF2,1,N)\r\n      CALL MESAGE (-8,0,GP2H)\r\n   30 CALL CLOSE (EQEXIN,CLSREW)\r\n      KN = N/2\r\n      N1 = N + 1\r\nC\r\nC     OPEN GEOM2. IF PURGED, RETURN.\r\nC     OTHERWISE, OPEN ECT AND WRITE HEADER RECORD.\r\nC\r\n      NOGEO2 = 0\r\n      CALL PRELOC (*50,Z(BUF1),GEOM2)\r\n      NOGEO2 = 1\r\n      GO TO 60\r\n   50 RETURN\r\nC\r\n   60 NOECT = 1\r\n      NOGO  = 0\r\n      FILE  = ECT\r\n      CALL OPEN (*580,ECT,Z(BUF2),WRTREW)\r\n      CALL FNAME (ECT,B)\r\n      CALL WRITE (ECT,B,2,1)\r\nC\r\nC     READ 3-WORD ID FROM GEOM2. SEARCH ELEMENT TABLE FOR MATCH.\r\nC     IF FOUND, BRANCH TO ELEMENT CODE. IF NOT FOUND, SEARCH GENEL\r\nC     TABLE  FOR MATCH. IF FOUND BRANCH TO APPROPRIATE CODE. IF NOT\r\nC     FOUND, SKIP RECORD AND CONTINUE.\r\nC\r\n   70 CALL READ (*460,*600,GEOM2,B,3,0,FLAG)\r\n      DO 80 I = 1,LAST,INCR\r\n      IF (ELEM(I+3) .EQ. B(1)) GO TO 120\r\n   80 CONTINUE\r\n      IF (GENEL(1) .EQ. B(1)) GO TO 110\r\n      CALL FWDREC (*460,GEOM2)\r\n      GO TO 70\r\n  110 K = (I+1)/2\r\n      GO TO 280\r\nC\r\nC     WRITE 3-WORD ID ON ECT. READ ALL CARDS FOR ELEMENT AND\r\nC     CONVERT EXTERNAL GRID NOS. TO INTERNAL NOS.  WRITE ENTRIES ON ECT\r\nC     DIRECTLY AFTER CONVERSION.\r\nC\r\n  120 ASSIGN 170 TO RET\r\n      ASSIGN 630 TO RET1\r\n      CALL WRITE (ECT,B,3,0)\r\n      M  = ELEM(I+5)\r\n      LX = ELEM(I+12)\r\n      MM = LX + ELEM(I+9)\r\n      NAME = ELEM(I)\r\n      II   = N1\r\n      FILE = GEOM2\r\n  150 CALL READ (*590,*270,FILE,B,M,0,FLAG)\r\nC\r\nC     CHECK LATER TO SEE IF RESTRICTION APPLIES TO AXIF PROBLEMS\r\nC\r\n      IF (IAXIF .NE. 0) GO TO 155\r\n      IF (NBPW.LE.32 .AND. B(1).GT.16777215) GO TO 670\r\nC                                  16777215 = 2**24 - 1\r\n  155 L = LX\r\n  160 IF (B(L) .NE. 0) GO TO 470\r\n  170 L= L + 1\r\n      IF (L    .LT.    MM) GO TO 160\r\n      IF (NAME .EQ. CBEAM) GO TO 180\r\n      IF (NAME .NE.  CBAR) GO TO 200\r\nC\r\nC     SPECIAL PROCESSING FOR BAR AND BEAM ELEMENTS\r\nC\r\n      IF (B(8) .EQ. 1) GO TO 200\r\n      ASSIGN 190 TO RET\r\n      L = 5\r\n      GO TO 470\r\n  180 IF (B(8) .EQ. 0) GO TO 200\r\n      ASSIGN 190 TO RET\r\n      L = 8\r\n      GO TO 470\r\n  190 ASSIGN 170 TO RET\r\nC\r\n  200 CALL WRITE (ECT,B,M,0)\r\n      GO TO 150\r\nC\r\nC     CURRENT ELEMENT IS COMPLETE\r\nC\r\n  270 CALL WRITE (ECT,0,0,1)\r\n      GO TO 70\r\nC\r\nC     GENERAL ELEMENTS-- WRITE 3-WORD ID ON ECT. READ ALL GENELS,\r\nC     CONVERT EXTERNAL GRID NOS. TO INTERNAL NOS. AND WRITE THEM ON ECT.\r\nC\r\n  280 CALL WRITE (ECT,B,3,0)\r\n      FILE = GEOM2\r\n      L = 2\r\n      ASSIGN 310 TO RET\r\n      ASSIGN 640 TO RET1\r\n  290 IJK = 0\r\n      CALL READ (*590,*360,GEOM2,B,1,0,FLAG)\r\n      CALL WRITE (ECT,B,1,0)\r\n  300 CALL READ (*590,*600,GEOM2,B(2),2,0,FLAG)\r\n      IF (B(2) .EQ. -1) GO TO 320\r\n      GO TO 470\r\n  310 CALL WRITE (ECT,B(2),2,0)\r\n      GO TO 300\r\n  320 NUD = B(3)\r\n      IF (IJK .NE. 0) GO TO 330\r\n      NUI = B(3)\r\n      IJK = 1\r\n      GO TO 310\r\n  330 CALL WRITE (ECT,B(2),2,0)\r\n      CALL READ (*590,*600,GEOM2,IJK1,1,0,FLAG)\r\n      CALL WRITE (ECT,IJK1,1,0)\r\n      NCORE = BUF2 - N1\r\n      NZ = (NUI*(NUI+1))/2\r\n      NREAD = 0\r\n  340 N= MIN0(NCORE,NZ-NREAD)\r\n      CALL READ (*590,*600,GEOM2,Z(N1),N,0,FLAG)\r\n      CALL WRITE (ECT,Z(N1),N,0)\r\n      NREAD = NREAD + N\r\n      IF (NREAD .LT. NZ) GO TO 340\r\n      CALL READ (*590,*600,GEOM2,IJK,1,0,FLAG)\r\n      CALL WRITE (ECT,IJK,1,0)\r\n      IF (IJK .EQ. 0) GO TO 290\r\n      NS = NUI*NUD\r\n      NREAD = 0\r\n  350 N= MIN0(NCORE,NS-NREAD)\r\n      CALL READ (*590,*600,GEOM2,Z(N1),N,0,FLAG)\r\n      CALL WRITE (ECT,Z(N1),N,0)\r\n      NREAD = NREAD + N\r\n      IF (NREAD .LT. NS) GO TO 350\r\n      GO TO 290\r\n  360 CALL WRITE (ECT,0,0,1)\r\n      GO TO 70\r\nC\r\nC     CLOSE FILES, WRITE TRAILER AND RETURN.\r\nC\r\n  460 CALL CLOSE (GEOM2,CLSREW)\r\n      CALL CLOSE (ECT  ,CLSREW)\r\n      MCB(1) = GEOM2\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = ECT\r\n      CALL WRTTRL (MCB)\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\nC\r\nC     INTERNAL BINARY SEARCH ROUTINE\r\nC     ==============================\r\nC\r\n  470 KLO = 1\r\n      KHI = KN\r\n      IGRID = B(L)\r\n  480 K = (KLO+KHI+1)/2\r\n  490 IF (IGRID-Z(2*K-1)) 500,560,510\r\n  500 KHI = K\r\n      GO TO 520\r\n  510 KLO = K\r\n  520 IF (KHI-KLO-1) 570,530,480\r\n  530 IF (K .EQ. KLO) GO TO 540\r\n      K = KLO\r\n      GO TO 550\r\n  540 K = KHI\r\n  550 KLO = KHI\r\n      GO TO 490\r\n  560 B(L) = Z(2*K)\r\n      GO TO RET,  (170,310,190)\r\n  570 GO TO RET1, (630,640)\r\nC\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n  580 J = -1\r\n      GO TO 610\r\n  590 J = -2\r\n      GO TO 610\r\n  600 J = -3\r\n  610 CALL MESAGE (J,FILE,GP2H)\r\n  630 K = 7\r\n      GO TO 660\r\n  640 K = 61\r\n  660 B(2) = IGRID\r\n      CALL MESAGE (30,K,B)\r\n      NOGO = 1\r\n      GO TO RET, (170,310)\r\n  670 NOGO = 1\r\n      CALL MESAGE (30,138,B)\r\n      GO TO 155\r\n      END\r\n"
  },
  {
    "path": "mis/gp3.f",
    "content": "      SUBROUTINE GP3\r\nC\r\nC     GP3 IS THE MAIN CONTROL PROGRAM FOR MODULE GP3.\r\nC     IF PLOAD2 CARDS ARE PRESENT, GP3C IS EXECUTED TO BUILD PLOAD DATA\r\nC     ON SCRATCH FILE 2 (SCR2). GP3A IS EXECUTED TO BUILD THE STATIC\r\nC     LOADS TABLE (SLT). GP3B IS EXECUTED TO BUILD THE GRID POINT\r\nC     TEMPERATURE TABLE (GPTT).\r\nC     GP3D IS EXECUTED TO BUILD THE ELEMENT TEMPERATURE TABLE (ETT) FROM\r\nC     THE GPTT AND ANY TEMPP1,TEMPP2,TEMPP3, AND TEMPRB DATA PRESENT.\r\nC\r\n      INTEGER         BUF1   ,BUF2  ,BUF  ,SYSBUF,PLOAD2,TWO   ,SLT   ,\r\n     1                GPTT  ,GEOM3  ,BUF3 ,STATUS,SPERLK\r\n      COMMON /BLANK / NOGRAV ,NOLOAD,NOTEMP\r\n      COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT   ,GPTT  ,SCR1  ,SCR2  ,\r\n     1                BUF1  ,BUF2  ,BUF(50)      ,CARDID(60)   ,IDNO(30)\r\n     2,               CARDDT(60)   ,MASK(60)     ,STATUS(60)   ,NTYPES,\r\n     3                IPLOAD,IGRAV ,PLOAD2(2)    ,LOAD(2)      ,NOPLD2,\r\n     4                TEMP(2)      ,TEMPD(2)     ,TEMPP1(2)    ,\r\n     5                TEMPP2(2)    ,TEMPP3(2)    ,TEMPRB(2)    ,BUF3  ,\r\n     6                PLOAD3(2)    ,IPLD3\r\n      COMMON /SYSTEM/ SYSBUF,SY(93),SPERLK\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / TWO(32)\r\nC\r\nC     TURN PARAMETERS ON. INITIALIZE BUFFER POINTERS.\r\nC     READ TRAILER ON GEOM3. IF PURGED, EXIT.\r\nC\r\n      CALL DELSET\r\nC\r\n      IF (SPERLK .EQ. 0) GO TO 20\r\n      DO 10 I = 1,60,2\r\n      STATUS(I  ) =-1\r\n   10 STATUS(I+1) = 0\r\n   20 NOLOAD = -1\r\n      NOGRAV = -1\r\n      NOTEMP = -1\r\n      BUF1   = KORSZ(Z) - SYSBUF - 2\r\n      BUF2   = BUF1 - SYSBUF\r\n      BUF3   = BUF2 - SYSBUF - 2\r\n      BUF(1) = GEOM3\r\n      CALL RDTRL (BUF)\r\n      IF (BUF(1) .NE. GEOM3) RETURN\r\nC\r\nC     IF THE SLT IS PURGED, BYPASS THE SLT PHASE OF GP3.\r\nC     OTHERWISE, IF PLOAD2 CARDS PRESENT, EXECUTE GP3C.\r\nC     EXECUTE GP3A TO COMPLETE SLT PHASE.\r\nC\r\n      BUF(7) = SLT\r\n      CALL RDTRL (BUF(7))\r\n      IF (BUF(7) .NE. SLT) GO TO 30\r\n      CALL GP3C\r\n      CALL GP3A\r\nC\r\nC     IF THE GPTT IS NOT PURGED, EXECUTE GP3B TO BUILD IT.\r\nC\r\n   30 BUF(7) = GPTT\r\n      CALL RDTRL (BUF(7))\r\n      IF (BUF(7) .NE. GPTT) RETURN\r\nC\r\nC     GP3B WILL FORM A GPTT ON SCR1 AND THEN GP3D WILL READ SCR1 AND\r\nC     THE TEMPP1,TEMPP2,TEMPP3, AND TEMPRB DATA FROM GEOM3 TO FORM THE\r\nC     ETT (ELEMENT TEMPERATURE TABLE) ON THE OUTPUT FILE GPTT.\r\nC\r\n      CALL GP3B\r\n      CALL GP3D\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gp3a.f",
    "content": "      SUBROUTINE GP3A\r\nC\r\nC     GP3A BUILDS THE STATIC LOADS TABLE (SLT).\r\nC     FORCE, FORCE1, FORCE2, MOMENT, MOMNT1, MOMNT2, GRAV, PLOAD, SLOAD\r\nC     AND LOAD CARDS ARE READ. EXTERNAL GRID NOS. ARE CONVERTED TO\r\nC     INTERNAL INDICES. EACH LOAD SET ID (EXCEPT ON LOAD CARD) IS\r\nC     WRITTEN IN THE HEADER RECORD OF THE SLT. THE SLT THEN COMPRISES\r\nC     ONE LOGICAL RECORD PER LOAD SET. THE LAST RECORD OF THE SLT\r\nC     CONTAINS THE LOAD CARDS. RFORCE CARD ADDED IN AUGUST, 1968.\r\nC     PLOAD3 CARD ADDED ON HALLOWEEN 1972\r\nC\r\n      LOGICAL         PIEZ\r\n      INTEGER         GEOM3 ,EQEXIN,SLT   ,GPTT  ,BUF1  ,BUF2  ,BUF   ,\r\n     1                Z     ,RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CARDID,\r\n     2                CARDDT,STATUS,FILE  ,GPOINT,SCR1  ,SCR2  ,FIRST ,\r\n     3                SETID ,FLAG  ,NAM(2),KSYSTM(80)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ ISB   ,IPTR  ,IDM(6),NLPP  ,IDUM(2),LINES\r\n      COMMON /BLANK / NOGRAV,NOLOAD,NOTEMP\r\n      COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT   ,GPTT  ,SCR1  ,SCR2  ,\r\n     1                BUF1  ,BUF2  ,BUF(50)      ,CARDID(60)   ,IDNO(30)\r\n     2               ,CARDDT(60)   ,MASK(60)     ,STATUS(60)   ,NTYPES,\r\n     3                IPLOAD,IGRAV ,PLOAD2(2)    ,LOAD(2)      ,NOPLD2,\r\n     4                TEMP(2)      ,TEMPD(2)     ,TEMPP1(2)    ,\r\n     5                TEMPP2(2)    ,TEMPP3(2)    ,TEMPRB(2)    ,BUF3  ,\r\n     6                PLOAD3(2)    ,IPLD3\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM(1),ISB)\r\n      DATA    NAM   / 4HGP3A,4H    / ,IRFRC / 9  /\r\nC\r\nC     READ EQEXIN INTO CORE. INITIALIZE BINARY SEARCH ROUTINE.\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN   (*570,EQEXIN,Z(BUF1),RDREW)\r\n      CALL FWDREC (*580,EQEXIN)\r\n      CALL READ   (*580,*20,EQEXIN,Z,BUF2,1,NEQX)\r\n      CALL MESAGE (-8,0,NAM)\r\n   20 CALL CLOSE  (EQEXIN,CLSREW)\r\n      KN   = NEQX/2\r\n      NOGO = 0\r\nC\r\nC     INITIALIZE POINTERS AND OPEN SCR1 AND GEOM3.\r\nC\r\n      ISET  = BUF2 - 2\r\n      KSET  = ISET\r\n      ILIST = NEQX + 1\r\n      KLIST = ILIST\r\n      KTABL = 1\r\n      FIRST = 1\r\n      FILE  = SCR1\r\n      CALL OPEN (*570,SCR1,Z(BUF2),WRTREW)\r\nC\r\nC     IF PLOAD2 CARDS PRESENT, INITIALIZE TO READ PLOAD DATA FROM SCR2\r\nC     INSTEAD OF GEOM3.\r\nC\r\n      IF (NOPLD2 .EQ. 0) GO TO 40\r\n      FILE = SCR2\r\n      CALL OPEN (*570,SCR2,Z(BUF1),RDREW)\r\n      GO TO 60\r\n   40 FIRST = 0\r\n   50 FILE  = GEOM3\r\n      CALL OPEN   (*570,GEOM3,Z(BUF1),RDREW)\r\n      CALL FWDREC (*580,GEOM3)\r\nC\r\nC     READ 3-WORD RECORD ID. IF ID BELONGS TO LOAD SET, TURN NOLOAD FLAG\r\nC     OFF.\r\nC     SET 1ST WORD IN STATUS ENTRY TO CURRENT POINTER IN LIST TABLE.\r\nC     SET PARAMETERS FOR CONVERSION OF GRID NOS. TO INTERNAL INDICES.\r\nC\r\n   60 CALL READ (*170,*60,FILE,BUF,3,0,FLAG)\r\n      DO 70 I = 1,NTYPES,2\r\n      IF (BUF(1).EQ.CARDID(I) .AND. BUF(2).EQ.CARDID(I+1)) GO TO 90\r\n   70 CONTINUE\r\n   80 CALL FWDREC (*170,FILE)\r\n      GO TO 60\r\n   90 NOLOAD = 1\r\n      IF (FIRST .EQ. 1) GO TO 100\r\nC\r\nC     IF I POINTS TO PLOAD RECORD AND PLOAD2 CARDS ARE PRESENT, THEN\r\nC     PLOAD DATA IS ALREADY PROCESSED. IN THIS CASE, SKIP PLOAD RECORD.\r\nC     IF I POINTS TO PLOAD3 RECORD ON GEOM3, SKIP RECORD.\r\nC\r\n      IF (I.EQ.IPLOAD .AND. NOPLD2.NE.0 .AND. NOPLD2.NE.2) GO TO 80\r\n      IF (I .EQ. IPLD3) GO TO 80\r\n  100 CONTINUE\r\n      STATUS(I) = KLIST - ILIST + 1\r\n      NWDS  = CARDDT(I)\r\n      NWDS1 = NWDS - 1\r\n      JX  = CARDDT(I+1)\r\n      JJ1 = JX + 1\r\n      JJN = JX + MASK(JX)\r\n      ID  = 0\r\nC\r\nC     READ A LOAD CARD. IF SET ID IS DIFFERENT FROM LAST READ (OR 1ST\r\nC     ONE) STORE SET ID IN POINTER LIST AND IN SET LIST. STORE POINTER\r\nC     IN POINTER LIST. IF NOT FIRST CARD OF TYPE, STORE WORD COUNT IN\r\nC     POINTER LIST.\r\nC\r\n  110 CALL READ (*580,*160,FILE,BUF,NWDS,0,FLAG)\r\n      IF (BUF(1) .EQ. ID) GO TO 120\r\n      Z(KLIST  ) = BUF(1)\r\n      Z(KLIST+1) = KTABL\r\n      IF (ID .NE. 0) Z(KLIST-1) = N\r\n      ID = BUF(1)\r\n      N  = 0\r\n      KLIST   = KLIST + 3\r\n      Z(KSET) = BUF(1)\r\n      KSET    = KSET - 1\r\nC\r\nC     CONVERT EXTERNAL GRID NOS. ON CARD TO INTERNAL NOS. INCREMENT\r\nC     WORD COUNT. WRITE LOAD CARD (WITHOUT SET ID) ON SCR1.\r\nC\r\n  120 IF (JX .EQ. 0) GO TO 150\r\n      JJ = JJ1\r\n      JSTOP = 0\r\n  130 IF (JSTOP .EQ. 0) GO TO 135\r\n      JX = JX + 1\r\n      GO TO 136\r\n  135 JX = MASK(JJ)\r\n      IF (JX .GT. 0) GO TO 136\r\n      JX = -JX\r\n      JSTOP = 1\r\n  136 GPOINT = BUF(JX)\r\n      PIEZ = .FALSE.\r\n      IF (GPOINT.LT.0 .AND.  KSYSTM(78).EQ.1) PIEZ = .TRUE.\r\n      IF (PIEZ) GPOINT = -GPOINT\r\n      IF (GPOINT.EQ.-1 .AND. (CARDID(I).EQ.3209 .OR. CARDID(I).EQ.3409))\r\n     1    GO TO 140\r\n      IF (GPOINT .NE. 0) GO TO 450\r\n  140 IF (PIEZ) GPOINT = -GPOINT\r\n      BUF(JX) = GPOINT\r\n      JJ = JJ + 1\r\n      IF (JJ .LE. JJN) GO TO 130\r\nC\r\nC     CHECK FOR PLOAD4 CARD\r\nC\r\n  150 IF (I .NE. 49) GO TO 152\r\nC\r\nC     CHECK FOR THRU OPTION ON PLOAD4 CARD\r\nC\r\n      IF (BUF(7) .EQ. 0) GO TO 153\r\nC\r\n  152 CALL WRITE (SCR1,BUF(2),NWDS1,0)\r\n      GO TO 158\r\nC\r\nC     PROCESS PLOAD4 DATA FOR ALL ELEMENT IDS IMPLIED BY THE THRU OPTION\r\nC\r\n  153 III = BUF(2)\r\n      JJJ = BUF(8)\r\n      BUF(7) =-1\r\n      BUF(8) = 0\r\n      DO 155 KKK = III,JJJ\r\n      BUF(2) = KKK\r\n      CALL WRITE (SCR1,BUF(2),NWDS1,0)\r\n      N = N + NWDS1\r\n      KTABL = KTABL + NWDS1\r\n  155 CONTINUE\r\n      GO TO 110\r\nC\r\n  158 N = N + NWDS1\r\n      KTABL = KTABL + NWDS1\r\n      GO TO 110\r\nC\r\nC     HERE WHEN ALL CARDS OF CURRENT CARD TYPE HAVE BEEN READ.\r\nC     STORE WORD COUNT FOR LAST SET IN POINTER LIST. STORE POINTER\r\nC     TO LAST ENTRY FOR CARD TYPE IN 2ND WORD OF STATUS ENTRY.\r\nC     LOOP BACK TO READ NEXT CARD TYPE.\r\nC\r\n  160 Z(KLIST-1) = N\r\n      STATUS(I+1) = KLIST - ILIST - 2\r\n      GO TO 60\r\n  170 IF (FIRST .EQ. 0) GO TO 175\r\n      FIRST = 0\r\n      CALL CLOSE (SCR2,CLSREW)\r\n      GO TO 50\r\nC\r\nC     HERE WHEN END-OF-FILE ON GEOM3 ENCOUNTERED. IF ERROR CONDITION\r\nC     NOTED, CALL PEXIT. IF NO LOAD CARDS FOUND, CLOSE FILES AND RETURN.\r\nC\r\n  175 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      IF (NOLOAD .NE. -1) GO TO 180\r\n      CALL CLOSE (GEOM3,CLSREW)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      RETURN\r\nC\r\nC     IF GRAVITY LOADS WERE READ, TURN NOGRAV FLAG OFF.\r\nC     CLOSE FILES AND MOVE POINTER LIST TO BEGINNING OF CORE.\r\nC\r\n  180 IF (STATUS(IGRAV).GT.0 .OR. STATUS(IRFRC).GT.0) NOGRAV = +1\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (GEOM3,CLSREW)\r\n      CALL CLOSE (SCR1, CLSREW)\r\n      N = KLIST - ILIST\r\n      DO 190 I = 1,N\r\n      K = ILIST + I\r\n  190 Z(I)  = Z(K-1)\r\n      ILIST = 1\r\n      NLIST = N - 2\r\nC\r\nC     CHECK UNIQUENESS OF LOAD SETS WITTH RESPECT TO GRAVITY LOAD SETS\r\nC\r\n      IF (STATUS(IGRAV) .LT. 0) GO TO 200\r\n      K1 = STATUS(IGRAV  )\r\n      K2 = STATUS(IGRAV+1)\r\n      DO 194 I = ILIST,NLIST,3\r\n      IF (I.GE.K1 .AND. I.LE.K2) GO TO 194\r\n      SETID = Z(I)\r\n      DO 193 K = K1,K2,3\r\n      IF (Z(K) .NE. SETID) GO TO 193\r\n      NOGO = 1\r\n      CALL MESAGE (30,134,SETID)\r\n  193 CONTINUE\r\n  194 CONTINUE\r\nC\r\nC     SORT THE SET LIST AND DISCARD DUPLICATE SET NOS.\r\nC\r\n  200 N = ISET - KSET\r\n      KSET = KSET + 1\r\n      CALL SORT (0,0,1,1,Z(KSET),N)\r\n      Z(ISET+1) = 0\r\n      K = NLIST + 3\r\n      DO 210 I = KSET,ISET\r\n      IF (Z(I) .EQ. Z(I+1)) GO TO 210\r\n      Z(K) = Z(I)\r\n      K = K + 1\r\n  210 CONTINUE\r\n      ISET  = NLIST + 3\r\n      NSET  = K - 1\r\n      ITABL = NSET\r\nC\r\nC     OPEN SCRATCH FILE AND SLT FILE.\r\nC     WRITE SET LIST IN HEADER RECORD OF THE SLT.\r\nC\r\n      CALL OPEN (*570,SCR1,Z(BUF1),RDREW)\r\n      FILE = SLT\r\n      CALL OPEN (*570,SLT,Z(BUF2),WRTREW)\r\n      CALL FNAME (SLT,BUF)\r\n      CALL WRITE (SLT,BUF,2,0)\r\n      N = NSET - ISET + 1\r\n      CALL WRITE (SLT,Z(ISET),N,1)\r\nC\r\nC     IF ALL LOAD CARDS WILL FIT IN CORE, READ THEM IN.\r\nC\r\n      NWDS  = KTABL - 1\r\n      NCORE = ITABL + KTABL\r\n      IF (NCORE .GE. BUF2) GO TO 370\r\n      FILE  = SCR1\r\n      CALL READ (*580,*590,SCR1,Z(ITABL+1),NWDS,1,FLAG)\r\n      CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     FOR EACH LOAD SET IN THE SET LIST, LOOP THRU THE STATUS TABLE.\r\nC     FOR EACH CARD TYPE PRESENT IN THE STATUS TABLE, PICK UP POINTERS\r\nC     TO THE POINTER LIST. SEARCH THE POINTER LIST FOR A SET ID MATCH.\r\nC     IF FOUND, PICK UP POINTERS TO THE DATA IN CORE. SORT THE DATA ON\r\nC     INTERNAL INDEX (EXCEPT GRAV AND PLOAD CARDS).\r\nC     THEN, WRITE CARD TYPE ID, NO. OF CARDS IN THE SET, AND THE DATA\r\nC     ON THE CARDS. THUS, THE SLT IS COMPRISED OF ONE LOGICAL RECORD PER\r\nC     SET DATA WITHIN EACH RECORD IS GROUPED BY CARD TYPE, AND, WITHIN\r\nC     THE GROUP, IS SORTED BY INTERNAL INDEX (WHERE DEFINED).\r\nC\r\n      DO 280 K = ISET,NSET\r\n      SETID = Z(K)\r\n      II = 1\r\n      DO 270 I = 1,NTYPES,2\r\n      IF (STATUS(I) .LT. 0) GO TO 270\r\n      JJ1 = STATUS(I  )\r\n      JJN = STATUS(I+1)\r\n      DO 250 JJ = JJ1,JJN,3\r\n      IF (Z(JJ) .EQ. SETID) GO TO 260\r\n  250 CONTINUE\r\n      GO TO 270\r\nC\r\n  260 CONTINUE\r\n      JX   = ITABL + Z(JJ+1)\r\n      NWDS = Z(JJ+2)\r\n      N    = CARDDT(I) - 1\r\n      NKEY = 1\r\n      IF (IDNO(II) .EQ. 20) NKEY = 5\r\n      IF (IDNO(II) .EQ. 21) GO TO 265\r\n      IF (IDNO(II).GE.22 .AND. IDNO(II).LE.24) GO TO 265\r\n      IF (I.EQ.IPLOAD .OR. I.EQ.IPLD3 .OR. I.EQ.IGRAV) GO TO 265\r\n      CALL SORT (0,0,N,NKEY,Z(JX),NWDS)\r\n  265 BUF(1) = IDNO(II)\r\n      BUF(2) = NWDS/N\r\n      CALL WRITE (SLT,BUF,2,0)\r\n      CALL WRITE (SLT,Z(JX),NWDS,0)\r\n  270 II = II + 1\r\n  280 CALL WRITE (SLT,0,0,1)\r\nC\r\nC     IF COMBINATION LOADS ARE PRESENT, SET IDS ARE CHECKED TO ASSURE\r\nC     THAT THEY ARE UNIQUE WITH RESPECT TO LOAD CARDS.  THE SET IDS\r\nC     SPECIFIED ON THE LOAD CARD ARE THEN CHECKED AGAINST THOSE IN THE\r\nC     SET LIST TO VERIFY THAT ALL ARE AVAILABLE AND AGAINST EACH OTHER\r\nC     TO ENSURE THAT NO DUPLICATE SPECIFICATIONS EXIST.  THE COMBINATION\r\nC     LOADS ARE WRITTEN AS THE LAST LOGICAL RECORD OF THE SLT.\r\nC\r\n  290 FILE = GEOM3\r\n      CALL PRELOC (*570,Z(BUF1),GEOM3)\r\n      CALL LOCATE (*360,Z(BUF1),LOAD,FLAG)\r\n  300 CALL READ   (*580,*350,GEOM3,BUF,2,0,FLAG)\r\n      CALL WRITE  (SLT,BUF,2,0)\r\n      DO 320 I = ISET,NSET\r\n      IF (BUF(1) .EQ. Z(I)) GO TO 330\r\n  320 CONTINUE\r\n      GO TO 340\r\n  330 NOGO = 1\r\n      CALL MESAGE (30,106,BUF)\r\n  340 LSET = NSET + 1\r\n      MSET = NSET\r\n      IDCMLD = BUF(1)\r\n  341 CALL READ (*580,*350,GEOM3,BUF,2,0,FLAG)\r\n      CALL WRITE (SLT,BUF,2,0)\r\n      IF (BUF(1) .EQ. -1) GO TO 300\r\n      DO 342 I = ISET,NSET\r\n      IF (BUF(2) .EQ. Z(I)) GO TO 343\r\n  342 CONTINUE\r\n      NOGO = 1\r\n      WRITE  (IPTR,3178) UFM,BUF(2),IDCMLD\r\n 3178 FORMAT (A23,' 3178, LOAD SET',I9,' NOT FOUND.  REQUIRED FOR ',\r\n     1        'DEFINITION OF COMBINATION LOAD',I9)\r\n      LINES = LINES + 2\r\n      IF (LINES .GE. NLPP) CALL PAGE\r\n      GO TO 341\r\n  343 IF (MSET .EQ. NSET) GO TO 345\r\n      DO 344 I = LSET,MSET\r\n      IF (BUF(2) .EQ. Z(I)) GO TO 346\r\n  344 CONTINUE\r\n  345 MSET = MSET + 1\r\n      Z(MSET) = BUF(2)\r\n      GO TO 341\r\n  346 NOGO = 1\r\n      WRITE  (IPTR,3179) UFM,BUF(2),IDCMLD\r\n 3179 FORMAT (A23,' 3179, DUPLICATE LOAD SET',I9,' FOUND IN DEFINITION',\r\n     1       ' OF COMBINATION LOAD',I9)\r\n      LINES = LINES + 2\r\n      IF (LINES .GE. NLPP) CALL PAGE\r\n      GO TO 341\r\n  350 CALL WRITE (SLT,0,0,1)\r\n  360 CALL CLOSE (GEOM3,CLSREW)\r\n      CALL CLOSE (SLT,CLSREW)\r\n      BUF(1) = SLT\r\n      BUF(2) = NSET - ISET + 1\r\n      DO 361 I = 3,7\r\n  361 BUF(I) = 0\r\n      CALL WRTTRL (BUF)\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\nC     HERE IF CORE WILL NOT HOLD ALL LOAD CARDS.\r\nC     CODE IS SIMILAR TO THAT ABOVE EXCEPT THAT POINTER LIST NOW POINTS\r\nC     TO THE DATA ON THE SCRATCH FILE INSTEAD OF IN CORE. THEREFORE, THE\r\nC     SCRATCH FILE WILL HAVE TO BE PASSED ONCE FOR EACH SET IN THE SET\r\nC     LIST.\r\nC\r\n  370 FILE  = SCR1\r\n      DO 430 K = ISET,NSET\r\n      SETID = Z(K)\r\n      II    = 1\r\n      NREAD = 0\r\n      DO 420 I = 1,NTYPES,2\r\n      IF (STATUS(I) .LT. 0) GO TO 420\r\n      JJ1 = STATUS(I  )\r\n      JJN = STATUS(I+1)\r\n      DO 380 JJ = JJ1,JJN,3\r\n      IF (Z(JJ) .EQ. SETID) GO TO 390\r\n  380 CONTINUE\r\n      GO TO 420\r\n  390 NSKIP = Z(JJ+1) - NREAD - 1\r\n      NWDS  = Z(JJ+2)\r\n      N = CARDDT(I) - 1\r\n      IF (NSKIP) 440,410,400\r\n  400 CALL READ (*580,*590,SCR1,0,-NSKIP,0,FLAG)\r\n  410 CALL READ (*580,*590,SCR1,Z(ITABL+1),NWDS,0,FLAG)\r\n      NREAD = Z(JJ+1) + NWDS - 1\r\n      NKEY  = 1\r\n      IF (IDNO(II) .EQ. 20) NKEY = 5\r\n      IF (IDNO(II) .EQ. 21) GO TO 415\r\n      IF (IDNO(II).GE.22 .AND. IDNO(II).LE.24) GO TO 415\r\n      IF (I.EQ.IPLOAD .OR. I.EQ.IPLD3 .OR. I.EQ.IGRAV) GO TO 415\r\n      CALL SORT (0,0,N,NKEY,Z(ITABL+1),NWDS)\r\n  415 BUF(1) = IDNO(II)\r\n      BUF(2) = NWDS/N\r\n      CALL WRITE (SLT,BUF,2,0)\r\n      CALL WRITE (SLT,Z(ITABL+1),NWDS,0)\r\n  420 II = II + 1\r\n      CALL WRITE (SLT,0,0,1)\r\n  430 CALL REWIND (SCR1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      GO TO 290\r\n  440 CALL MESAGE (-61,0,0)\r\nC\r\nC     BINARY SEARCH ROUTINE\r\nC\r\n  450 KLO = 1\r\n      KHI = KN\r\n  460 K = (KLO+KHI+1)/2\r\n  470 IF (GPOINT-Z(2*K-1)) 480,540,490\r\n  480 KHI = K\r\n      GO TO 500\r\n  490 KLO = K\r\n  500 IF (KHI-KLO-1) 550,510,460\r\n  510 IF (K .EQ. KLO) GO TO 520\r\n      K = KLO\r\n      GO TO 530\r\n  520 K = KHI\r\n  530 KLO = KHI\r\n      GO TO 470\r\n  540 GPOINT = Z(2*K)\r\n      GO TO 140\r\n  550 BUF(2) = GPOINT\r\n      NOGO   = 1\r\n      CALL MESAGE (30,8,BUF)\r\n      GO TO 140\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n  560 CALL MESAGE (N,FILE,NAM)\r\n  570 N = -1\r\n      GO TO 560\r\n  580 N = -2\r\n      GO TO 560\r\n  590 N = -3\r\n      GO TO 560\r\n      END\r\n"
  },
  {
    "path": "mis/gp3b.f",
    "content": "      SUBROUTINE GP3B\r\nC\r\nC     GP3B BUILDS THE GRID POINT TEMPERATURE TABLE (GPTT).\r\nC     TEMPD AND TEMP CARDS ARE READ.\r\nC     THE GPTT HEADER CONTAINS THE FILE NAME PLUS 3 WORDS FOR EACH\r\nC     TEMPERATURE SET.\r\nC       WORD 1 = TEMP SET ID.\r\nC       WORD 2 = DEFAULT TEMP OR -1 IF NO DEFAULT TEMP.\r\nC       WORD 3 = RECORD NO. (AFTER HEADER RECORD) OF TEMPERATURE DATA\r\nC                FOR THE SET, OR\r\nC                ZERO IF ONLY A DEFAULT TEMP IS DEFINED FOR THE SET.\r\nC     DATA RECORDS OF THE GPTT CONSIST OF PAIRS OF EXTERNAL INDEX AND\r\nC     TEMPERATURE. EACH DATA RECORD IS SORTED ON EXTERNAL INDEX.\r\nC\r\nC     AN IDENTICAL SET OF RECORDS WITH INTERNAL INDICES IS APPENDED AT\r\nC     THE END OF THE GPTT.\r\nC\r\nC\r\n      LOGICAL         INTERN\r\n      INTEGER         GEOMP ,EQEXIN,SLT   ,GPTT  ,SCR1  ,BUF1  ,BUF2  ,\r\n     1                BUF   ,TEMP  ,TEMPD ,FILE  ,FLAG  ,Z     ,RD    ,\r\n     2                RDREW ,WRTREW,WRT   ,CLSREW,NAM(2),GEOM3 ,ETT   ,\r\n     3                TEMPP1,TEMPP2,TEMPP3,TEMPRB,BUF3  ,TEMPG ,TEMPP4\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NOGRAV,NOLOAD,NOTEMP\r\n      COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT   ,ETT   ,SCR1  ,SCR2  ,\r\n     1                BUF1  ,BUF2  ,BUF(50)      ,CARDID(60)   ,IDNO(30)\r\n     2,               CARDDT(60)   ,MASK(60)     ,STATUS(60)   ,NTYPES,\r\n     3                IPLOAD,IGRAV ,PLOAD2(2)    ,LOAD(2)      ,NOPLD2,\r\n     4                TEMP(2)      ,TEMPD(2)     ,TEMPP1(2)           ,\r\n     5                TEMPP2(2)    ,TEMPP3(2)    ,TEMPRB(2)    ,BUF3  ,\r\n     6                PLOAD3(2)    ,IPLD3        ,TEMPG(2)            ,\r\n     7                TEMPP4(2)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      EQUIVALENCE     (GEOM3,GEOMP),(GPTT,SCR1)\r\n      DATA    NAM   / 4HGP3B,4H    /\r\nC\r\nC     TURN NODEF FLAG ON\r\nC\r\n      ID    = 0\r\n      NODEF = 0\r\nC\r\nC     READ EQEXIN INTO CORE\r\nC\r\n      FILE = EQEXIN\r\n      CALL OPEN (*400,EQEXIN,Z(BUF2),RDREW)\r\n      CALL FWDREC (*410,EQEXIN)\r\n      CALL READ (*410,*10,EQEXIN,Z,BUF3,1,NEQX)\r\n      CALL MESAGE (-8,0,NAM)\r\n   10 CALL CLOSE (EQEXIN,CLSREW)\r\n      KN = NEQX/2\r\n      ITEMPD = NEQX + 1\r\n      ITABL  = ITEMPD\r\nC\r\nC     READ TEMPERATURE DEFAULT CARDS (IF PRESENT)\r\nC\r\n      FILE = GEOMP\r\n      CALL PRELOC (*460,Z(BUF1),GEOMP)\r\n      CALL LOCATE (*40,Z(BUF1),TEMPD,FLAG)\r\n      I = ITEMPD\r\n      NODEF  = 1\r\n      NOTEMP = 1\r\n   20 CALL READ (*410,*30,GEOMP,Z(I),2,0,FLAG)\r\n      I = I + 2\r\n      GO TO 20\r\n   30 ITABL  = I\r\n      NTEMPD = I - 2\r\n      N = ITABL - ITEMPD\r\n      CALL SORT (0,0,2,1,Z(ITEMPD),N)\r\nC\r\nC     READ TEMP CARDS.  DETERMINE NO. OF TEMP SETS\r\nC     FOR EACH SET ID, LOOK UP THE DEFAULT TEMPERATURE\r\nC     WRITE SET ID, DEFAULT TEMP (OR -1) AND RECORD NUMBER\r\nC     OF THE TEMPERATURE DATA (OR 0) IN THE GPTT HEADER\r\nC\r\n   40 J = 0\r\n      K = ITEMPD\r\n      I = ITABL\r\n      L = 1\r\n      FILE = GEOMP\r\n      CALL LOCATE (*270,Z(BUF1),TEMP,FLAG)\r\n      NOTEMP = 1\r\n      FILE   = GPTT\r\n      CALL OPEN  (*400,GPTT,Z(BUF2),WRTREW)\r\n      CALL FNAME (GPTT,BUF)\r\n      CALL WRITE (GPTT,BUF,2,0)\r\nC\r\nC     OPEN ETT AS TEMPORARY SCRATCH TO FORM IDENTICAL FILE WITH\r\nC     INTERNAL NOTATION\r\nC\r\n      FILE = ETT\r\n      CALL OPEN  (*400,ETT,Z(BUF3),WRTREW)\r\n      CALL FNAME (ETT,BUF)\r\n      CALL WRITE (ETT,BUF,2,0)\r\n      FILE = GEOMP\r\n   50 CALL READ (*410,*110,GEOMP,BUF,3,0,FLAG)\r\n      J = J + 1\r\n      IF (ID .EQ. BUF(1)) GO TO 50\r\n      ID = BUF(1)\r\n      Z(I) = J\r\n      I = I + 1\r\n      IF (NODEF .EQ.  0) GO TO 80\r\n   60 IF (K .GT. NTEMPD) GO TO 80\r\n      IF (ID-Z(K)) 80,90,70\r\n   70 BUF(1) = Z(K  )\r\n      BUF(2) = Z(K+1)\r\n      BUF(3) = 0\r\n      CALL WRITE (GPTT,BUF,3,0)\r\n      CALL WRITE (ETT ,BUF,3,0)\r\n      K = K + 2\r\n      GO TO 60\r\n   80 BUF(2) = -1\r\n      GO TO 100\r\n   90 BUF(2) = Z(K+1)\r\n      K = K + 2\r\n  100 BUF(3) = L\r\n      BUF(1) = ID\r\n      L = L + 1\r\n      CALL WRITE (GPTT,BUF,3,0)\r\n      CALL WRITE (ETT ,BUF,3,0)\r\n      J = 0\r\n      GO TO 50\r\n  110 IF (NODEF .EQ.  0) GO TO 130\r\n      IF (K .GT. NTEMPD) GO TO 130\r\n      BUF(3) = 0\r\n      DO 120 L = K,NTEMPD,2\r\n      BUF(1) = Z(L  )\r\n      BUF(2) = Z(L+1)\r\n      CALL WRITE (ETT ,BUF,3,0)\r\n  120 CALL WRITE (GPTT,BUF,3,0)\r\n  130 CALL WRITE (GPTT,0,0,1)\r\n      CALL WRITE (ETT ,0,0,1)\r\n      CALL BCKREC (GEOMP)\r\n      N = I\r\n      Z(N) = J + 1\r\n      I = ITABL + 1\r\nC\r\nC     READ EACH TEMP SET\r\nC     SORT ON EXTERNAL INDEX AND WRITE ON GPTT\r\nC\r\n      IFILE  = GPTT\r\n      INTERN = .FALSE.\r\n      ISAVE  = I\r\n      NOGO   = 0\r\n  140 CALL READ (*410,*420,GEOMP,0,-3,0,FLAG)\r\n      N1 = N + 1\r\n  150 J  = N1\r\n      NX = Z(I)\r\n      NI = 1\r\n  160 CALL READ (*410,*420,GEOMP,BUF,3,0,FLAG)\r\n      IF (INTERN) GO TO 300\r\n  170 Z(J  ) = BUF(2)\r\n      Z(J+1) = BUF(3)\r\n      J  = J + 2\r\n      IF (J .GE. BUF3) GO TO 430\r\n      NI = NI + 1\r\n      IF (NI .LE. NX) GO TO 160\r\n      NX = J - N1\r\n      CALL SORT (0,0,2,1,Z(N1),NX)\r\nC\r\nC     TEST FOR UNIQUENESS OF POINT AND TEMPERATURE\r\nC\r\n      KHI = J  - 1\r\n      KLO = N1 + 2\r\n      K   = J\r\n      IF (KLO .GE. KHI) GO TO 210\r\n      K   = KLO\r\n      DO 200 J = KLO,KHI,2\r\n      IF (Z(J) .NE. Z(J-2)) GO TO 190\r\nC\r\nC     NOT FATAL IF SAME TEMPERATURE\r\nC\r\n      IF (Z(J+1) .NE. Z(J-1)) NOGO = NOGO + 1\r\n      IF (INTERN) GO TO 200\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,180) UFM,Z(J-1),Z(J+1),Z(J)\r\n  180 FORMAT (A23,' 2100, TEMPERATURE SPECIFIED HAS ',1P,E10.3,4H AND,\r\n     1        1P,E10.3,' FOR GRID',I9)\r\n      GO TO 200\r\nC\r\nC     VALID TEMPERATURE\r\nC\r\n  190 Z(K  ) = Z(J  )\r\n      Z(K+1) = Z(J+1)\r\n      K  = K + 2\r\n  200 CONTINUE\r\nC\r\n  210 NX = K - N1\r\n      CALL WRITE (IFILE,Z(N1),NX,1)\r\n      I  = I + 1\r\n      IF (I .LE. N) GO TO 150\r\nC\r\nC     NOW DO SAME AS ABOVE WITH OUTPUT IN INTERNAL INDEX NOTATION.\r\nC\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,NOGO,0)\r\n      IF (INTERN) GO TO 220\r\n      CALL BCKREC (GEOMP)\r\n      INTERN = .TRUE.\r\n      IFILE  = ETT\r\n      I = ISAVE\r\n      GO TO 140\r\nC\r\nC     NOW APPEND ENTIRE ETT FILE TO GPTT FILE\r\nC\r\n  220 FILE = ETT\r\n      CALL CLOSE (ETT,CLSREW)\r\n      CALL OPEN  (*400,ETT,Z(BUF3),RDREW)\r\n  230 CALL READ  (*250,*240,ETT,Z,BUF3-1,0,FLAG)\r\n      CALL WRITE (GPTT,Z,BUF3-1,0)\r\n      GO TO 230\r\n  240 CALL WRITE (GPTT,Z,FLAG,1)\r\n      GO TO 230\r\n  250 CALL CLOSE (GPTT,CLSREW)\r\n      CALL CLOSE (ETT,CLSREW)\r\n  260 CALL CLOSE (GEOMP,CLSREW)\r\n      GO TO 460\r\nC\r\nC     NO TEMP CARDS PRESENT. IF NO DEFAULT CARDS, NO GPTT.\r\nC     OTHERWISE, GPTT IS COMPRISED ONLY OF DEFAULT TEMPERATURES.\r\nC     WRITE THE SET IDS AND DEFAULT TEMPS IN THE HEADER RECORD.\r\nC\r\n  270 IF (NODEF .EQ. 0) GO TO 260\r\n      FILE = GPTT\r\n      CALL OPEN  (*400,GPTT,Z(BUF2),WRTREW)\r\n      CALL FNAME (GPTT,BUF)\r\n      CALL WRITE (GPTT,BUF,2,0)\r\n      FILE = ETT\r\n      CALL OPEN  (*400,ETT,Z(BUF3),WRTREW)\r\n      CALL FNAME (ETT,BUF)\r\n      CALL WRITE (ETT,BUF,2,0)\r\n      BUF(3) =  0\r\n      DO 280 K = ITEMPD,NTEMPD,2\r\n      BUF(1) = Z(K  )\r\n      BUF(2) = Z(K+1)\r\n  280 CALL WRITE (GPTT,BUF,3,0)\r\n      CALL WRITE (ETT ,BUF,3,0)\r\n      CALL WRITE (GPTT,0,0,1)\r\n      CALL WRITE (ETT ,0,0,1)\r\n      GO TO 220\r\nC\r\nC     INTERNAL BINARY SEARCH ROUTINE.\r\nC\r\n  300 KLO = 1\r\n      KHI = KN\r\n  310 K = (KLO+KHI+1)/2\r\n  320 IF (BUF(2)-Z(2*K-1)) 330,390,340\r\n  330 KHI = K\r\n      GO TO 350\r\n  340 KLO = K\r\n  350 IF (KHI -KLO-1) 440,360,310\r\n  360 IF (K .EQ. KLO) GO TO 370\r\n      K = KLO\r\n      GO TO 380\r\n  370 K = KHI\r\n  380 KLO = KHI\r\n      GO TO 320\r\n  390 BUF(2) = Z(2*K)\r\n      GO TO 170\r\nC\r\nC     FATAL ERROR MESAGES\r\nC\r\n  400 J = -1\r\n      GO TO 450\r\n  410 J = -2\r\n      GO TO 450\r\n  420 J = -3\r\n      GO TO 450\r\n  430 J = -8\r\n      GO TO 450\r\n  440 CALL MESAGE (-30,9,BUF)\r\n  450 CALL MESAGE (J,FILE,NAM)\r\nC\r\n  460 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gp3c.f",
    "content": "      SUBROUTINE GP3C\r\nC\r\nC     GP3C EXECUTES ONLY IF PLOAD2 AND/OR PLOAD3 CARDS ARE PRESENT. ITS\r\nC     FUNCTION IS TO --\r\nC     (1) PROCESS PLOAD2 CARDS SO THAT THEIR FORMAT IS IDENTICAL TO\r\nC         PLOAD CARDS.  IF A PLOAD RECORD EXISTS ON GEOM3, PLOAD2 DATA\r\nC         IS APPENDED TO THE DATA, SORTED, AND ALL RESULTING PLOAD DATA\r\nC         IS WRITTEN ON SCR2.\r\nC     (2) PROCESS PLOAD3 CARDS SO THAT ALL PRESSURES APPLIED TO AN ISO-\r\nC         PARAMETRIC SOLID ARE GATHERED IN ONE ENTRY AND SORTED BY THE\r\nC         FACE NUMBER TO WHICH THE PRESSURE IS APPLIED.  THE SORTED\r\nC         PRESSURES AND GRID POINT NUMBERS FOR EACH ELEMENT ARE WRITTEN\r\nC         ON SCR2.\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GEOM3 ,GEOM2 ,SCR2  ,BUF1  ,BUF2  ,BUF   ,CLSREW,\r\n     1                WRTREW,RDREW ,ELEM  ,FILE  ,NAM(2),PLOAD2,Z     ,\r\n     2                CARDID,PLOAD3,PL2   ,PL3   ,PLD(3),D1    ,D2    ,\r\n     3                ANDF  ,FACES(6,12)  ,PL3ERR(14)\r\n      REAL            RZ(1),P(12)\r\n      COMMON /GP3COM/ GEOM3 ,EQEXIN,GEOM2 ,SLT   ,GPTT  ,SCR1  ,SCR2   ,\r\n     1                BUF1  ,BUF2  ,BUF(50)      ,CARDID(60)   ,IDNO(30)\r\n     2              , CARDDT(60)   ,MASK(60)     ,STATUS(60)   ,NTYPES ,\r\n     3                IPLOAD,IGRAV ,PLOAD2(2)    ,LOAD(2)      ,NOPLD2 ,\r\n     4                TEMP(2)      ,TEMPD(2)     ,TEMPP1(2)    ,\r\n     5                TEMPP2(2)    ,TEMPP3(2)    ,TEMPRB(2)    ,BUF3   ,\r\n     6                PLOAD3(2)    ,IPLD3\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /GPTA1 / NELEM ,LAST  ,INCR  ,ELEM(1)\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      EQUIVALENCE     (RZ(1),Z(1))\r\nC\r\nC  FACE                 IHEX1             IHEX2             IHEX3\r\nC   NO                D1      D2        D1      D2        D1      D2\r\n      DATA    FACES/   1,      3,        1,      5,        1,      7,\r\n     1                 2,      4,        3,      7,        4,     10,\r\n     2                 1,      6,        1,     15,        1,     24,\r\n     2                 2,      5,        3,     13,        4,     21,\r\n     3                 2,      7,        3,     17,        4,     27,\r\n     3                 3,      6,        5,     15,        7,     24,\r\n     4                 3,      8,        5,     19,        7,     30,\r\n     4                 4,      7,        7,     17,       10,     27,\r\n     5                 1,      8,        1,     19,        1,     30,\r\n     5                 4,      5,        7,     13,       10,     21,\r\n     6                 5,      7,       13,     17,       21,     27,\r\n     6                 6,      8,       15,     19,       24,     30/\r\nC\r\n      DATA   N3304,N3305,PL3ERR/4H3304, 4H3305, 4H0***, 4H USE, 4HR FA,\r\n     C                          4HTAL , 4HMESS, 4HAGE , 4H330*, 4H, PL,\r\n     2                          4HOAD3, 4H CAR, 4HD FR, 4HOM L, 4HOAD ,\r\n     3                          4HSET /\r\n      DATA   NAM  /    4HGP3C,4H      /\r\nC\r\nC     CHECK TRAILER BITS FOR PRESENCE OF PLOAD2 AND PLOAD3 CARDS.\r\nC     IF NONE EXIST, RETURN.  OTHERWISE, BRANCH AND INITIALIZE TO\r\nC     PROCESS ONE OF THESE CARD TYPES.\r\nC\r\n      NOGO = 0\r\n      PL2  = 0\r\n      PL3  = 0\r\n      J    = (PLOAD2(2)-1)/16\r\n      K    = PLOAD2(2) - 16*J\r\n      IF (ANDF(BUF(J+2),TWO(K+16)) .NE. 0) PL2 = 1\r\n      J    = (PLOAD3(2)-1)/16\r\n      K    = PLOAD3(2) - 16*J\r\n      IF (ANDF(BUF(J+2),TWO(K+16)) .NE. 0) PL3 = 1 - 2*PL2\r\n      FILE = SCR2\r\n      IF (PL2-PL3 .NE. 0) CALL OPEN (*210,SCR2,Z(BUF2),WRTREW)\r\n      IF (PL2 .EQ. 0) GO TO 15\r\n      NOPLD2 = 1\r\n      PLD(1) = PLOAD2(1)\r\n      PLD(2) = PLOAD2(2)\r\n      PLD(3) = 24\r\n      INCRD  = 3\r\n      INCL   = 6\r\n      IDL    = 2\r\n      GO TO 10\r\n   15 IF (PL3 .EQ. 0) GO TO 196\r\n      NOPLD2 = NOPLD2 + 2\r\n      PLD(1) = PLOAD3(1)\r\n      PLD(2) = PLOAD3(2)\r\n      PLD(3) = 255\r\n      INCRD  = 5\r\n      INCL   = 39\r\n      IDL    = 1\r\nC\r\nC     READ PLOAD2 OR PLOAD3 CARDS INTO CORE IN AN EXPANDED FORMAT.\r\nC     SET THE SET ID NEGATIVE TO INDICATE THE CARD IS NOT YET CONVERTED.\r\nC\r\n   10 I = 1\r\n      FILE = GEOM3\r\n      CALL PRELOC (*210,Z(BUF1),GEOM3)\r\n      CALL LOCATE (*230,Z(BUF1),PLD,FLAG)\r\n      IF (PL2 .NE. 1) GO TO 20\r\n      PLD(1) = CARDID(IPLOAD  )\r\n      PLD(2) = CARDID(IPLOAD+1)\r\n   20 CALL READ (*220,*30,GEOM3,Z(I),INCRD,0,FLAG)\r\n      Z(I) = -Z(I)\r\n      IF (PL2 .EQ.  1) GO TO 29\r\n      IF (I .LT. INCL) GO TO 25\r\n      DO 21 J = 2,I,INCL\r\n      K = J\r\n      IF (Z(J) .NE. Z(I+2)) GO TO 21\r\n      IF (Z(J-1) .EQ. Z(I)) GO TO 22\r\n   21 CONTINUE\r\n   25 P(1)   = RZ(I+1)\r\n      Z(I+1) = Z(I+2)\r\n      RZ(I+2)= P(1)\r\n      Z(I+14)= Z(I+3)\r\n      Z(I+15)= Z(I+4)\r\n      Z(I+3) =-1\r\n      GO TO 29\r\n   22 J = K + 2\r\n   23 IF (Z(J) .EQ. -1) GO TO 24\r\n      J = J + 1\r\n      IF (J .LE. K+12) GO TO 23\r\n      GO TO 25\r\n   24 RZ(J) = RZ(I+1)\r\n      IF (J .LT. K+12) Z(J+1) = -1\r\n      J = K + 15 + 2*(J-K-2)\r\n      Z(J  ) = Z(I+3)\r\n      Z(J+1) = Z(I+4)\r\n      GO TO 20\r\n   29 Z(I+INCL-1) = 0\r\n      I = I+INCL\r\n      IF (I .LT. BUF2) GO TO 20\r\n      CALL MESAGE (-8,0,NAM)\r\n   30 CALL CLOSE (GEOM3,CLSREW)\r\n      NPLD2 = I - INCL\r\n      NWDS  = I - 1\r\nC\r\nC     POSITION TO FIRST DATA RECORD ON GEOM2.\r\nC\r\n      FILE = GEOM2\r\n      CALL OPEN (*130,GEOM2,Z(BUF1),RDREW)\r\n      CALL FWDREC (*220,GEOM2)\r\nC\r\nC     READ 3-WORD RECORD ID. LOOK FOR ID IN ELEM TABLE.\r\nC     IF NOT THERE, SKIP RECORD.\r\nC     IF PROCESSING PLOAD2, AND NOT A TWO-DIMENSIONAL ELEMENT, SKIP REC.\r\nC     IF PROCESSING PLOAD3, AND NOT AN ISOPARAMETRIC ELEMENT, SKIP REC.\r\nC     OTHERWISE,  INITIALIZE PARAMETERS.\r\nC\r\n   50 CALL READ (*130,*50,GEOM2,BUF,3,0,FLAG)\r\n      DO 60 I = 1,LAST,INCR\r\n      IF (BUF(1) .EQ. ELEM(I+3)) GO TO 80\r\n   60 CONTINUE\r\n   70 CALL FWDREC (*220,GEOM2)\r\n      GO TO 50\r\n   80 NGPS  = ELEM(I+9)\r\n      ITYPE = ELEM(I+2)\r\nC\r\nC   . IF ELEMENT TYPE IS 68 (QUADTS) THEN USE FIRST FOUR  GRID POINTS\r\nC   . IF ELEMENT TYPE IS 69 (TRIATS) THEN USE FIRST THREE GRID POINTS\r\nC\r\n      IF (ITYPE.EQ.68 .OR. ITYPE.EQ.69) NGPS = NGPS/2\r\n      IF (PL2.EQ.1 .AND. (NGPS.LT.3 .OR. NGPS.GT.4)) GO TO 70\r\n      IF (PL3.EQ.1 .AND. (ITYPE.LT.65 .OR. ITYPE.GT.67)) GO TO 70\r\n      ITYPE  = 2*(ITYPE-64) - 1\r\n      NWDECT = ELEM(I+5)\r\n      J1 = ELEM(I+12)\r\n      J2 = J1 + NGPS - 1\r\nC\r\nC     READ EACH ELEMENT IN RECORD. LOOK FOR ELEMENT ID MATCH IN PLOAD2\r\nC     OR PLOAD3 LIST.  IF FOUND, SET THE SET ID POSITIVE TO INDICATE\r\nC     ENTRY IS CONVERTED.\r\nC\r\n   90 CALL READ (*220,*50,GEOM2,BUF,NWDECT,0,FLAG)\r\n      DO 110 I = 1,NPLD2,INCL\r\n      IF (Z(I) .GT. 0) GO TO 110\r\n      IF (Z(I+IDL) .NE. BUF(1)) GO TO 110\r\n      Z(I) = -Z(I)\r\n      IX   = I\r\n      IF (PL3 .EQ. 1) GO TO 300\r\nC\r\nC     PLACE GRID POINT NUMBERS FROM ELEMENT CARD IN PLOAD2 ENTRY TO\r\nC     MAKE IT LOOK LIKE PLOAD CARD.\r\nC\r\n      DO 100 J = J1,J2\r\n      Z(IX+2) = BUF(J)\r\n      IX = IX + 1\r\n  100 CONTINUE\r\n      GO TO 110\r\nC\r\nC     FIND THE DIAGONALS ON THE PLOAD3 CARD ON THE ELEMENT CARD TO\r\nC     DETERMINE THE FACES TO WHICH THE PRESSURES ARE APPLIED.  SORT\r\nC     THE PRESSURES BY FACE NUMBER AND APPEN+ THE GRID POINT NUMBERS\r\nC     FROM THE ELEMENT CARD TO THE PLOAD3 ENTRY.\r\nC\r\n  300 NP = 0\r\n      DO 310 J = 1,12\r\n      IF (Z(I+J+1) .EQ. -1) GO TO 315\r\n      NP = NP + 1\r\n      P(J) = RZ(I+J+1)\r\n  310 CONTINUE\r\n  315 DO 320 J = 1,6\r\n  320 RZ(I+J)  = 0.0\r\n      DO 350 J = 1,NP\r\n      K   = I + 14 + 2*(J-1)\r\n      ID1 = Z(K  )\r\n      ID2 = Z(K+1)\r\n      DO 322 K = J1,J2\r\n      IF (ID1 .EQ. BUF(K)) GO TO 324\r\n  322 CONTINUE\r\n      GO TO 335\r\n  324 ID1 = K - J1 + 1\r\n      DO 326 K = J1,J2\r\n      IF (ID2 .EQ. BUF(K)) GO TO 328\r\n  326 CONTINUE\r\n      GO TO 335\r\n  328 ID2 = K - J1 + 1\r\n      D1  = MIN0(ID1,ID2)\r\n      D2  = MAX0(ID1,ID2)\r\n      DO 330 K = 1,12\r\n      NFACE = (K+1)/2\r\n      IF (D1 .NE. FACES(ITYPE  ,K)) GO TO 330\r\n      IF (D2 .EQ. FACES(ITYPE+1,K)) GO TO 340\r\n  330 CONTINUE\r\n  335 NOGO = 1\r\n      PL3ERR(7) = N3305\r\n      WRITE (NOUT,420) PL3ERR,Z(I),BUF(1)\r\n      GO TO 350\r\n  340 RZ(I+NFACE) = RZ(I+NFACE)+P(J)\r\n  350 CONTINUE\r\n      IX = IX + 7\r\n      DO 360 J = J1,J2\r\n      Z(IX) = BUF(J)\r\n      IX = IX + 1\r\n  360 CONTINUE\r\n      IF (IX+1-I .GT. 39) GO TO 110\r\n      K = I + 38\r\n      DO 370 J = IX,K\r\n  370 Z(J) = 0\r\n  110 CONTINUE\r\n      GO TO 90\r\nC\r\nC     HERE WHEN END-OF-FILE ON GEOM2 IS ENCOUNTERED.\r\nC     MAKE SURE ALL PLOAD2 OR PLOAD3 ENTRIES HAVE BEEN CONVERTED.\r\nC\r\n  130 CALL CLOSE (GEOM2,CLSREW)\r\n      DO 140 I = 1,NPLD2,INCL\r\n      IF (Z(I) .GT. 0) GO TO 140\r\n      NOGO = 1\r\n      BUF(1) = -Z(I)\r\n      BUF(2) =  Z(I+IDL)\r\n      IF (PL2 .EQ. 1) CALL MESAGE (30,105,BUF)\r\n      PL3ERR(7) = N3304\r\n      IF (PL3 .EQ. 1) WRITE (NOUT,410) PL3ERR,BUF(1),BUF(2)\r\n  140 CONTINUE\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      IF (PL3  .EQ. 1) GO TO 190\r\nC\r\nC     LOCATE PLOAD RECORD ON GEOM3. IF PRESENT, READ PLOAD DATA INTO\r\nC     CORE (AFTER PLOAD2 DATA) AND SORT COMBINED DATA ON SET ID.\r\nC\r\n      CALL PRELOC (*210,Z(BUF1),GEOM3)\r\n      CALL LOCATE (*180,Z(BUF1),CARDID(IPLOAD),FLAG)\r\n      I = NPLD2 + 6\r\n  160 CALL READ (*220,*170,GEOM3,Z(I),6,0,FLAG)\r\n      I = I + 6\r\n      IF (I .LT. BUF2) GO TO 160\r\n      CALL MESAGE (-8,0,NAM)\r\n  170 NPLD2 = I - 6\r\n      NWDS  = I - 1\r\n      CALL SORT (0,0,6,1,Z,NWDS)\r\n  180 CALL CLOSE (GEOM3,CLSREW)\r\nC\r\nC     WRITE DATA ON SCR2, SET FLAG TO INDICATE AND RETURN.\r\nC\r\n  190 CALL WRITE (SCR2,PLD,3,0)\r\n      CALL WRITE (SCR2,Z,NWDS,1)\r\n      IF (PL2 .NE. 1) GO TO 196\r\n  195 PL2 = -PL2\r\n      PL3 = -PL3\r\n      GO TO 15\r\n  196 CALL CLOSE (SCR2,CLSREW)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n  200 CALL MESAGE (N,FILE,NAM)\r\n  210 N = -1\r\n      GO TO 200\r\n  220 N = -2\r\n      GO TO 200\r\nC\r\nC     ABNORMAL RETURN.\r\nC\r\n  230 IF (PL3 .LT. 0) GO TO 195\r\n      CALL CLOSE (GEOM3,CLSREW)\r\n      RETURN\r\nC\r\nC     PLOAD3 CARD ERRORS\r\nC\r\n  410 FORMAT (14A4,I9,' REFERENCES MISSING OR NON-ISOPARAMETRIC ELEMENT'\r\n     1       ,I9)\r\n  420 FORMAT (14A4,I9,' HAS INVALID GRID POINT NUMBERS FOR ELEMENT',I9)\r\n      END\r\n"
  },
  {
    "path": "mis/gp3d.f",
    "content": "      SUBROUTINE GP3D\r\nC\r\nC     GP3D CREATES THE ETT (ELEMENT TEMPERATURE TABLE)\r\nC\r\nC     THE GPTT AS PREPARED BY GP3B COMES TO THIS ROUTINE VIA SCRATCH\r\nC     DATA SET 1.\r\nC\r\nC     DATA IN THE GPTT IS USED TOGETHER WITH DATA OBTAINED FROM TEMPP1,\r\nC     TEMPP2, TEMPP3, AND TEMPRB CARDS WHICH RESIDE ON GEOM3.\r\nC\r\n      LOGICAL         ANYGPT   ,ANYET    ,LFLAG    ,ANY      ,HEAT\r\n      INTEGER         GEOM3    ,EQEXIN   ,GEOM2    ,SLT      ,ETT      ,\r\n     1                SCR1     ,SCR2     ,BUF1     ,BUF2     ,BUF      ,\r\n     2                FILE     ,CARDID   ,CARDDT   ,STATUS   ,PLOAD2   ,\r\n     3                TEMPD    ,TEMPP1   ,TEMPP2   ,TEMPP3   ,TEMPRB   ,\r\n     4                RD       ,RDREW    ,WRT      ,WRTREW   ,REW      ,\r\n     5                NOREW    ,Z        ,FLAG     ,TWOI     ,DEFALT   ,\r\n     6                NAM(2)   ,RECORD   ,GPTREC   ,SETID    ,OUTPT    ,\r\n     7                SYSBUF   ,OUTWDS   ,ECTWDS   ,ELEM     ,BUF3\r\n      REAL            RZ(1)    ,RBUF(50) ,TGRID(32)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NOGRAV   ,NOLOAD   ,NOTEMP\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,REW      ,\r\n     1                NOREW\r\n      COMMON /GP3COM/ GEOM3    ,EQEXIN   ,GEOM2    ,SLT      ,ETT      ,\r\n     1                SCR1     ,SCR2     ,BUF1     ,BUF2     ,BUF(50)  ,\r\n     2                CARDID(60),IDNO(30),CARDDT(60),MASK(60),STATUS(60)\r\n     3,               NTYPES   ,IPLOAD   ,IGRAV    ,PLOAD2(2),LOAD(2)  ,\r\n     4                NOPLD2   ,TEMP(2)  ,TEMPD(2) ,TEMPP1(2),TEMPP2(2),\r\n     5                TEMPP3(2),TEMPRB(2),BUF3\r\n      COMMON /GPTA1 / NELEM    ,LAST     ,INCR     ,ELEM(1)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (RZ(1),Z(1)), (RBUF(1),BUF(1)), (DEFALT,DEFTMP),\r\n     1                (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPT),\r\n     2                (KSYSTM(56),IHEAT)\r\n      DATA   NAM    / 4HGP3D,4H     /\r\nC\r\nC                 +---------------------+\r\nC     OPEN CORE   I                     I  Z(ILIST) = Z(1)\r\nC                 I  ET SET-LIST        I\r\nC     DESIGN FOR  I  2 WDS/ENTRY        I\r\nC                 I                     I  Z(NLIST)\r\nC     GP3D        +---------------------+\r\nC                 I                     I  Z(IGPTT)\r\nC                 I  GPT SET-LIST       I\r\nC                 I  3 WDS/ENTRY        I\r\nC                 I                     I  Z(NGPTT)\r\nC                 +---------------------+\r\nC                 I                     I  Z(IGPT) *\r\nC                 I  GPTT DATA          I           *\r\nC                 I  FOR CURRENT SETID  I            *\r\nC                 I  2 WDS/ENTRY        I             *\r\nC                 I                     I  Z(NGPT)     *\r\nC                 +---------------------+               *\r\nC                 I                     I  Z(IET1)       *\r\nC                 I  2-DIMEN EL-TEMP    I                * THIS SPACE IS\r\nC                 I  FOR CURRENT SETID  I                * DYNAMIC FOR\r\nC                 I  7 WDS/ENTRY        I                * EACH SET OF\r\nC                 I                     I  Z(NET1)       * TEMPERATURE\r\nC                 +---------------------+                * DATA.\r\nC                 I                     I  Z(IET2)       *\r\nC                 I  1-DIMEN EL-TEMP    I                *\r\nC                 I  FOR CURRENT SETID  I               *\r\nC                 I  15 WDS/ENTRY       I              *\r\nC                 I                     I  Z(NET2)    *\r\nC                 +---------------------+            *\r\nC                 I/////////////////////I           *\r\nC                 I/////////////////////I          *\r\nC                 +---------------------+\r\nC                 I                     I  Z(BUF1)\r\nC                 I  BUFFER 2           I\r\nC                 I                     I\r\nC                 +---------------------+\r\nC                 I                     I  Z(BUF2)\r\nC                 I  BUFFER 1           I\r\nC                 I                     I  Z(KORSZ)\r\nC                 +---------------------+\r\nC\r\nC\r\nC\r\nC     OPEN GEOM3, AND SCR1. READ IN TEMPP1, TEMPP2, TEMPP3, TEMPRB CARDS\r\nC     CONVERT AND WRITE THEM OUT ON SCR2.\r\nC\r\n      HEAT  = .FALSE.\r\n      IF (IHEAT .EQ. 1) HEAT = .TRUE.\r\n      LFLAG = .FALSE.\r\n      J     = -1\r\n      NWORDS= 8\r\n      ILIST = 1\r\n      NLIST = 0\r\n      FILE  = GEOM3\r\n      ANY   = .FALSE.\r\n      CALL PRELOC (*820,Z(BUF1),GEOM3)\r\n      FILE  = SCR2\r\n      CALL OPEN (*820,SCR2,Z(BUF2),WRTREW)\r\nC\r\nC     PICK UP TEMPP1 CARDS\r\nC\r\n      FILE = GEOM3\r\n      CALL LOCATE (*20,Z(BUF1),TEMPP1,FLAG)\r\n      ANY  = .TRUE.\r\n      ASSIGN 10 TO IRETRN\r\n      BUF(7) = 0\r\n      BUF(8) = 1\r\n   10 CALL READ (*840,*20,GEOM3,BUF,6,0,FLAG)\r\n      GO TO 170\r\nC\r\nC     PICK UP TEMPP2 CARDS\r\nC\r\n   20 CALL LOCATE (*40,Z(BUF1),TEMPP2,FLAG)\r\n      ANY = .TRUE.\r\n      ASSIGN 30 TO IRETRN\r\n   30 CALL READ (*840,*40,GEOM3,BUF,8,0,FLAG)\r\n      GO TO 170\r\nC\r\nC     PICK UP TEMPP3 CARDS (CONVERT THESE TO LOOK LIKE TEMPP1 CARDS)\r\nC\r\n   40 CALL LOCATE (*140,Z(BUF1),TEMPP3,FLAG)\r\n      ANY = .TRUE.\r\n      ASSIGN 50 TO IRETRN\r\n   50 CALL READ (*840,*140,GEOM3,BUF,24,0,FLAG)\r\n      N  = 25\r\n      DO 60 I = 1,11\r\n      N  = N - 2\r\n      IF (RBUF(N).NE.0.0 .OR. RBUF(N+1).NE.0.0) GO TO 70\r\n   60 CONTINUE\r\n   70 N  = N/2\r\n      T1 = RBUF(4)\r\n      T2 = RBUF(2*N+2)\r\n      IF (N .EQ. 1) GO TO 100\r\n      H  = RBUF(2*N+1) - RBUF(3)\r\n      SUM= 0.0\r\n      N  = N-1\r\n      DO 80 I = 1,N\r\n      TWOI = 2*I\r\n      FACTOR = RBUF(TWOI+3) - RBUF(TWOI+1)\r\n      IF (FACTOR .LE. 0.0) GO TO 120\r\n      SUM  = SUM + (RBUF(TWOI+2) + RBUF(TWOI+4))*FACTOR\r\n   80 CONTINUE\r\n      TBAR = SUM/(2.0*H)\r\n      HOVER2 = H/2.0\r\n      SUM  = 0.0\r\n      DO 90 I = 1,N\r\n      TWOI = 2*I\r\n      SUM  = SUM + (RBUF(TWOI+3) - RBUF(TWOI+1)    )*(3.0*\r\n     1             (RBUF(TWOI+1) - RBUF(3) - HOVER2)*\r\n     2             (RBUF(TWOI+4) + RBUF(TWOI+2)    ) +\r\n     3             (RBUF(TWOI+2) + 2.0*RBUF(TWOI+4))*\r\n     4             (RBUF(TWOI+3) - RBUF(TWOI+1)   ))\r\n   90 CONTINUE\r\n      TPRIME = 2.0*SUM/H**3\r\n      GO TO 110\r\nC\r\n  100 TBAR = RBUF(4)\r\n      TPRIME = 0.0\r\nC\r\n  110 RBUF(3) = TBAR\r\n      RBUF(4) = TPRIME\r\n      RBUF(5) = T1\r\n      RBUF(6) = T2\r\n      BUF(7)  = 0\r\n      BUF(8)  = 1\r\n      GO TO 170\r\nC\r\nC     BAD DATA ON A TEMPP3 CARD\r\nC\r\n  120 WRITE  (OUTPT,130) UFM,BUF(1),BUF(2)\r\n  130 FORMAT (A23,' 4010, TEMPP3 BULK DATA CARD WITH SET ID =',I8,\r\n     1       ' AND ELEMENT ID =',I8, /27X,\r\n     2       'DOES NOT HAVE ASCENDING VALUES SPECIFIED FOR Z.')\r\n      LFLAG = .TRUE.\r\n      GO TO 50\r\nC\r\nC     END OF 8 WORD CARDS.  WRITE EOR ON SCR2 AND DO TEMPRB CARDS NOW.\r\nC\r\n  140 CALL WRITE (SCR2,0,0,1)\r\n      NWORDS = 16\r\n      CALL LOCATE (*160,Z(BUF1),TEMPRB,FLAG)\r\n      ANY = .TRUE.\r\n      ASSIGN 150 TO IRETRN\r\n  150 CALL READ (*840,*160,GEOM3,BUF,16,0,FLAG)\r\n      GO TO 170\r\nC\r\nC     WRITE EOR ON SCR2. SCR2 THEN WILL HAVE 2 RECORDS (1 OR BOTH EMPTY)\r\nC\r\n  160 CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (GEOM3,REW )\r\n      CALL CLOSE (SCR2 ,REW )\r\n      GO TO 230\r\nC\r\nC     INTERNAL SUBROUTINE TO BUILD SET LIST FROM TEMPERATURE CARD DATA\r\nC     FIND SET-ID OR ADD IT TO LIST IN SORT, BUMP COUNT AND WRITE CARD.\r\nC\r\n  170 IF (J .EQ. -1) GO TO 210\r\n      IF (BUF(1) .EQ. Z(J)) GO TO 180\r\n      IF (BUF(1).GT.Z(J) .AND. J.EQ.NLIST-1) GO TO 210\r\nC\r\nC     LOOK FOR MATCHING SETID OR FIND WHERE NEW SETID BELONGS\r\nC\r\n      CALL BISLOC (*190,BUF(1),Z(ILIST),2,NLIST/2,J)\r\nC\r\nC     MATCH WAS FOUND  (ILIST ASSUMED TO BE EQUAL TO 1)\r\nC\r\n  180 Z(J+1) = Z(J+1) + NWORDS\r\n      GO TO 220\r\nC\r\nC     ADD THIS NEW SETID INTO LIST\r\nC\r\n  190 IF (BUF(1) .GT. Z(J)) J = J + 2\r\nC\r\nC     PUSH Z(J) THRU Z(NLIST) DOWN TWO WORDS TO MAKE ROOM FOR NEW SETID\r\nC\r\n      I = NLIST + 2\r\n      DO 200 K = J,NLIST\r\n      Z(I) = Z(I-2)\r\n      I = I - 1\r\n  200 CONTINUE\r\n      GO TO 211\r\nC\r\nC     ADD NEW SETID TO LIST\r\nC\r\n  210 J = J + 2\r\n  211 Z(J)  = BUF(1)\r\n      NLIST = NLIST + 2\r\n      Z(J+1)= NWORDS\r\nC\r\nC     WRITE OUT THE DATA CARD ON THE SCRATCH FILE FOR LATER USE\r\nC\r\n  220 CALL WRITE (SCR2,BUF,NWORDS,0)\r\n      GO TO IRETRN, (10,30,50,150)\r\nC\r\nC     READ IN GPTT HEADER RECORD FROM SCR1\r\nC\r\n  230 IGPTT = NLIST + 1\r\n      NGPTT = IGPTT\r\n      FILE  = SCR1\r\n      IF (NOTEMP .NE. 1) GO TO 250\r\n      CALL OPEN (*820,SCR1,Z(BUF1),RDREW)\r\n      CALL READ (*840,*240,SCR1,Z(IGPTT),BUF2-IGPTT,1,FLAG)\r\n      CALL MESAGE (-8,0,NAM)\r\n  240 NGPTT = NLIST + FLAG\r\n      IGPTT = IGPTT + 2\r\n      NSETS = (NGPTT - IGPTT + 1)/3\r\nC\r\nC     DETERMINE NUMBER OF RECORDS OF EXTERNAL INDEX TEMP DATA\r\nC     FOLLOWING HEADER RECORD.\r\nC\r\n      IRECS = 0\r\n      IF (NSETS) 247,247,241\r\n  241 DO 244 I = IGPTT,NGPTT,3\r\n      IRECS = MAX0(Z(I+2),IRECS)\r\n  244 CONTINUE\r\n  247 CONTINUE\r\n      CALL CLOSE (SCR1,NOREW)\r\nC\r\nC     OPEN ETT, PUT OUT HEADER RECORD WITH THE 3 WORD SET ENTRIES.\r\nC\r\n  250 IF (NOTEMP.NE.1 .AND. .NOT.ANY) GO TO 810\r\n      NOTEMP = 1\r\n      FILE   = ETT\r\n      CALL OPEN (*820,ETT,Z(BUF2),WRTREW)\r\n      CALL FNAME (ETT,BUF)\r\n      CALL WRITE (ETT,BUF,2,0)\r\n      LIST1 = ILIST\r\n      LIST2 = IGPTT\r\n      RECORD= 0\r\n  260 IF (LIST1.GT.NLIST-1 .AND. LIST2.LE.NGPTT-2) GO TO 290\r\n      IF (LIST1.LE.NLIST-1 .AND. LIST2.GT.NGPTT-2) GO TO 270\r\n      IF (LIST1.GT.NLIST-1 .AND. LIST2.GT.NGPTT-2) GO TO 330\r\nC\r\n      IF (Z(LIST1) - Z(LIST2)) 270,280,290\r\nC\r\nC     SET-ID OF LIST1 IS .LT. SET-ID OF LIST2 OR LIST2 IS ALL USED.\r\nC\r\n  270 BUF(1) = Z(LIST1)\r\n      BUF(2) = -1\r\n      LIST1  = LIST1 + 2\r\n      GO TO 300\r\nC\r\nC     SET-ID OF LIST1 IS .EQ. SET-ID OF LIST2.\r\nC\r\n  280 BUF(1) = Z(LIST2  )\r\n      BUF(2) = Z(LIST2+1)\r\n      LIST1  = LIST1 + 2\r\n      LIST2  = LIST2 + 3\r\n      GO TO 300\r\nC\r\nC     SET-ID OF LIST2 IS .LT. SET-ID OF LIST1 OR LIST1 IS ALL USED.\r\nC\r\n  290 BUF(1) = Z(LIST2  )\r\n      BUF(2) = Z(LIST2+1)\r\n      LIST2  = LIST2 + 3\r\n      IF (Z(LIST2-1) .EQ. 0) GO TO 310\r\nC\r\nC     WRITE 3-WORD SET-ID ENTRY IN HEADER\r\nC\r\n  300 RECORD = RECORD + 1\r\n      BUF(3) = RECORD\r\n      GO TO 320\r\n  310 BUF(3) = 0\r\n  320 CALL WRITE (ETT,BUF,3,0)\r\n      GO TO 260\r\nC\r\nC     HEADER RECORD IS COMPLETE.  WRITE EOR AND CLOSE WITH NOREWIND.\r\nC\r\n  330 CALL WRITE (ETT,0,0,1)\r\n      CALL CLOSE (ETT,NOREW)\r\nC\r\nC     FOR EACH SET DEFINED IN THE EL-TEMP SET LIST AND OR THE GRID-TEMP\r\nC     SET LIST PASS GEOM2 USING LOCATE FOR ALL THE ELEMENTS FOR\r\nC     WHICH ETT TEMP DATA OUTPUT IS POSSIBLE.\r\nC     IF ANY ELEMENTS CONCERNED ARE PRESENT THEN SELECT FROM THE TEMP\r\nC     DATA AVAILABLE THAT WHICH IS APPLICABLE AND OUTPUT THE DATA ON THE\r\nC     ETT IN THE FOLLOWING FORMAT.\r\nC\r\nC     CONTENTS OF 1 RECORD OF THE OUTPUT FILE ETT. EACH RECORD CONTAINS\r\nC     DATA FOR 1 SET.\r\nC\r\nC         SET-ID\r\nC         ELEMENT TYPE          * * * * * * * * * *\r\nC         NUMBER OF TEMPERATURE DATA VALUES/EL-ID  *\r\nC         EL-ID          *                          *\r\nC         TEMP-VALUE      *                          *\r\nC             .           * EL-ID                    *\r\nC             .           * ENTRY                    *\r\nC             .           *                          *  ELEMENT-TYPE\r\nC         LAST-TEMP-VALUE*                           *     ENTRY\r\nC               *             (1 OR MORE EL-ID       *\r\nC               *              ENTRIES PER EL-TYPE   *   (1 OR MORE\r\nC               *              ENTRY)                *    PER RECORD)\r\nC         EL-ID          *                           *\r\nC         TEMP-VALUE      *                          *\r\nC             .           * EL-ID                    *\r\nC             .           * ENTRY                    *\r\nC             .           *                         *\r\nC         LAST-TEMP-VALUE*                         *\r\nC         0                     * * * * * * * * * *\r\nC\r\nC     IN THE ABOVE IF THE ELEMENT HAS NO SPECIAL DATA, A NEGATIVE\r\nC     ELEMENT ID IS INSERTED FOLLOWED BY NO TEMPERATURE DATA.\r\nC\r\nC     NOW GATHER THE DATA AVAILABLE FOR A SET FROM SCR1 AND OR SCR2.\r\nC\r\n      GPTREC = 1\r\n      LIST1  = ILIST\r\n      LIST2  = IGPTT\r\n  340 ANYGPT = .FALSE.\r\n      ANYET  = .FALSE.\r\n      IGPT   = 0\r\n      NGPT   = 0\r\n      IET1   = 0\r\n      NET1   = 0\r\n      IET2   = 0\r\n      NET2   = 0\r\n      IF (LIST1 .GT. NLIST-1) GO TO 350\r\n      IF (LIST2 .LE. NGPTT-2) GO TO 360\r\n      GO TO 370\r\n  350 IF (LIST2 .LE. NGPTT-2) GO TO 390\r\n      GO TO 770\r\nC\r\n  360 IF (Z(LIST1) - Z(LIST2)) 370,380,390\r\nC\r\nC     NEXT SET-ID HAS ONLY EL-TEMP DATA\r\nC\r\n  370 SETID  = Z(LIST1)\r\n      DEFALT = -1\r\n      ANYET  = .TRUE.\r\n      NWORDS = Z(LIST1+1)\r\n      LIST1  = LIST1 + 2\r\n      GO TO 400\r\nC\r\nC     NEXT SET-ID HAS BOTH GRID-TEMP AND EL-TEMP DATA\r\nC\r\n  380 SETID  = Z(LIST2  )\r\n      DEFALT = Z(LIST2+1)\r\n      ANYET  = .TRUE.\r\n      INREC  = Z(LIST2+2)\r\n      IF (INREC .GT. 0) ANYGPT = .TRUE.\r\n      NWORDS = Z(LIST1+1)\r\n      LIST1  = LIST1 + 2\r\n      LIST2  = LIST2 + 3\r\n      GO TO 400\r\nC\r\nC     NEXT SET-ID HAS ONLY GRID-TEMP DATA\r\nC\r\n  390 SETID  = Z(LIST2  )\r\n      DEFALT = Z(LIST2+1)\r\n      INREC  = Z(LIST2+2)\r\n      IF (INREC .GT. 0) ANYGPT = .TRUE.\r\n      LIST2  = LIST2 + 3\r\n      GO TO 400\r\nC\r\nC     AT THIS POINT READ IN ANY GRID-TEMP DATA AND/OR ANY EL-TEMP DATA.\r\nC     SORT THE EL-TEMP DATA ON EL-ID. THE GRID-TEMP DATA IS SORTED ON\r\nC     GRIDS\r\nC\r\n  400 IGPT = NGPTT + 1\r\n      NGPT = IGPT\r\n      IF (.NOT.ANYGPT) GO TO 460\r\n      FILE = SCR1\r\n      CALL OPEN (*820,SCR1,Z(BUF1),RD)\r\nC\r\nC     POSITION GPTT TO DESIRED GRID-POINT-TEMP SET AND READ IT IN.\r\nC\r\n      MOVE = INREC - GPTREC\r\n      IF (MOVE) 410,440,420\r\n  410 CALL REWIND (SCR1)\r\n      MOVE = INREC\r\n  420 DO 430 I = 1,MOVE\r\n      CALL FWDREC (*840,SCR1)\r\n  430 CONTINUE\r\n  440 GPTREC = INREC + 1\r\n      CALL READ (*840,*450,SCR1,Z(IGPT),BUF2-IGPT,1,FLAG)\r\n      CALL MESAGE (-8,0,NAM)\r\n  450 NGPT = IGPT + FLAG - 1\r\n      CALL CLOSE (SCR1,NOREW)\r\nC\r\nC     READ IN EL-TEMP DATA PERTAINING TO THIS SET-ID\r\nC\r\n  460 IF (.NOT.ANYET) GO TO 520\r\n      IF (NGPT+NWORDS .GE. BUF2) CALL MESAGE (-8,0,NAM)\r\n      FILE = SCR2\r\n      CALL OPEN (*820,SCR2,Z(BUF1),RDREW)\r\n      IET1 = NGPT + 1\r\n      NET1 = NGPT\r\n  470 CALL READ (*840,*490,SCR2,BUF,8,0,FLAG)\r\n      IF (BUF(1) .NE. SETID) GO TO 470\r\n      DO 480 I = 2,8\r\n      NET1 = NET1 + 1\r\n  480 Z(NET1) = BUF(I)\r\n      NWORDS  = NWORDS - 8\r\n      IF (NWORDS .NE. 0) GO TO 470\r\n      CALL FWDREC (*820,SCR2)\r\n  490 IET2 = NET1 + 1\r\n      NET2 = NET1\r\n  500 CALL READ (*840,*520,SCR2,BUF,16,0,FLAG)\r\n      IF (BUF(1) .NE. SETID) GO TO 500\r\n      DO 510 I = 2,16\r\n      NET2 = NET2 + 1\r\n  510 Z(NET2) = BUF(I)\r\n      NWORDS  = NWORDS - 16\r\n      IF (NWORDS .NE. 0) GO TO 500\r\nC\r\nC     ALL DATA IS NOW IN CORE FOR THIS SET-ID\r\nC\r\n  520 CALL CLOSE (SCR2,REW)\r\n      IF (.NOT.ANYET .AND. .NOT.ANYGPT) GO TO 340\r\nC\r\nC     SORT THE 7-WORD TEMP CARDS ON ID AND CHECK FOR DUPLICATE ID S\r\nC     AMONG ALL THE ELEMENT TEMPERATURE DATA\r\nC\r\n      IF (IET1 .LT. NET1) CALL SORT (0,0, 7,1,Z(IET1),NET1-IET1+1)\r\n      IF (IET2 .LT. NET2) CALL SORT (0,0,15,1,Z(IET2),NET2-IET2+1)\r\nC\r\n      LET1 = (NET1 - IET1 + 1)/7\r\n      LET2 = (NET2 - IET2 + 1)/15\r\n      LGPT = (NGPT - IGPT + 1)/2\r\n      LFLAG = .FALSE.\r\n      IF (LET1 .LE. 1) GO TO 560\r\n      ID = Z(IET1)\r\n      J  = IET1 + 7\r\n      DO 550 I = J,NET1,7\r\n      IF (ID .NE. Z(I)) GO TO 540\r\nC\r\nC     ERROR - TWO OR MORE ID-S EQUAL IN TEMPERATURE DATA WITHIN A SET.\r\nC\r\n      WRITE  (OUTPT,530) UFM,SETID,ID\r\n  530 FORMAT (A23,' 4011, ELEMENT TEMPERATURE SET',I9,' CONTAINS ',\r\n     1       'MULTIPLE TEMPERATURE DATA SPECIFIED FOR ELEMENT ID',I9)\r\n      LFLAG = .TRUE.\r\n  540 ID = Z(I)\r\n  550 CONTINUE\r\n  560 IF (LET2 .LE. 1) GO TO 590\r\n      ID = Z(IET2)\r\n      J  = IET2 + 15\r\n      DO 580 I = J,NET2,15\r\n      IF (ID .NE. Z(I)) GO TO 570\r\n      WRITE (OUTPT,530) UFM,SETID,ID\r\n      LFLAG = .TRUE.\r\n  570 ID = Z(I)\r\n  580 CONTINUE\r\nC\r\nC     OPEN GEOM2, PREPARE TO PASS GEOM2, AND OUTPUT A RECORD OF THE ETT.\r\nC\r\n  590 FILE = GEOM2\r\n      CALL PRELOC (*820,Z(BUF1),GEOM2)\r\nC\r\nC     OPEN ETT TO PUT OUT DATA-RECORD FOR THIS SET AND WRITE SETID,\r\nC\r\n      FILE = ETT\r\n      CALL OPEN (*820,ETT,Z(BUF2),WRT)\r\n      CALL WRITE (ETT,SETID,1,0)\r\nC\r\nC     RUN THROUGH POSSIBLE TEMPERATURE DEPENDENT ELEMENTS ON GEOM2.\r\nC\r\n      FILE = GEOM2\r\n  595 CALL ECTLOC (*760,FILE,BUF,I)\r\nC\r\nC     OK DATA FOR A CARD TYPE HAS BEEN FOUND.  WRITE EL-TYPE AND\r\nC     DATA FOR A CARD TYPE FOUND.\r\nC\r\n      BUF(1) = ELEM(I+2)\r\n      BUF(2) = ELEM(I+14) - 1\r\n      IELTYP = BUF(1)\r\nC\r\nC     WRITE ELEMENT TYPE HEADER\r\nC\r\n      CALL WRITE (ETT,BUF,2,0)\r\n      IF (ELEM(I+13) .EQ. 0) GO TO 740\r\n      JTEMP  = ELEM(I+13)\r\n      OUTWDS = ELEM(I+14)\r\n      ECTWDS = ELEM(I+ 5)\r\n      IGRID  = ELEM(I+12)\r\n      NGRID  = IGRID + ELEM(I+9) - 1\r\n      FGRIDS = 0.0\r\n  600 CALL READ (*840,*740,GEOM2,BUF,ECTWDS,0,FLAG)\r\nC\r\nC     ON FIRST PASS COUNT NUMBER OF NON-ZERO GRIDS\r\nC\r\n      IF (FGRIDS) 605,601,605\r\n  601 DO 603 J = IGRID,NGRID\r\n      IF (BUF(J) .NE. 0) FGRIDS = FGRIDS + 1.0\r\n  603 CONTINUE\r\n  605 CONTINUE\r\nC\r\nC     SELECT DATA TO BE OUTPUT\r\nC\r\n      IF (.NOT.ANYET) GO TO 650\r\n      GO TO (610,620,650,650), JTEMP\r\nC\r\nC     1 - DIMENSIONAL ELEMENT-TEMP DATA MAY BE AVAIL.\r\nC\r\n  610 IF (LET2 .LT. 1) GO TO 650\r\n      CALL BISLOC (*650,BUF(1),Z(IET2),15,LET2,J)\r\n      J = IET2 + J\r\nC\r\nC     AVERAGE T-BAR-A AND T-BAR-B IF THIS IS A ROD, CONROD, OR TUBE\r\nC\r\n      IF (IELTYP.NE.1 .AND. IELTYP.NE.3 .AND. IELTYP.NE.10) GO TO 630\r\n      RBUF(2) = (RZ(J) + RZ(J+1))/2.0\r\n      GO TO 730\r\nC\r\nC     2 - DIMENSIONAL ELEMENT-TEMP DATA MAY BE AVAIL.\r\nC\r\n  620 IF (LET1 .LT. 1) GO TO 650\r\n      CALL BISLOC (*650,BUF(1),Z(IET1),7,LET1,J)\r\n      J = IET1 + J\r\n  630 DO 640 K = 2,OUTWDS\r\n      BUF(K) = Z(J)\r\n      J = J + 1\r\n  640 CONTINUE\r\n      GO TO 730\r\nC\r\nC     CHECK FOR GRID-POINT-TEMP-DATA\r\nC\r\n  650 IF (.NOT.ANYGPT) GO TO 700\r\nC\r\nC     GRID-POINT-TEMP-DATA IS AVAILABLE FOR SOME OR ALL GRID POINTS.\r\nC\r\n      ANY   = .FALSE.\r\n      RTEMP = 0.0\r\n      II    = 0\r\n      DO 670 K = IGRID,NGRID\r\n      II = II + 1\r\n      IF (BUF(K)) 655,665,655\r\n  655 CALL BISLOC (*660,BUF(K),Z(IGPT),2,LGPT,J)\r\n      J  = IGPT + J\r\n      RTEMP = RTEMP + RZ(J)\r\n      IF (II .GT. 32) CALL MESAGE (-61,0,0)\r\n      TGRID(II) = RZ(J)\r\n      ANY = .TRUE.\r\n      GO TO 670\r\n  660 IF (DEFALT .EQ. -1) GO TO 710\r\n      RTEMP = RTEMP + DEFTMP\r\n      TGRID(II) = DEFTMP\r\n      GO TO 670\r\nC\r\nC     UNDEFINED GRID-POINT\r\nC\r\n  665 TGRID(II) = 0\r\n  670 CONTINUE\r\nC\r\nC     IF NOTHING BUT DEFAULT DATA THEN WRITE NOTHING SINCE THE\r\nC     DEFAULT IS IN THE HEADER RECORD.\r\nC\r\n      IF (.NOT.ANY) GO TO 735\r\nC\r\nC     IF BAR ELEMENT PUT GRID TEMPS INTO BUFFER FOR T-BAR-A AND T-BAR-B\r\nC\r\n      IF (IELTYP .NE. 34) GO TO 675\r\n      RBUF(2) = TGRID(1)\r\n      RBUF(3) = TGRID(2)\r\n      J = 4\r\n      GO TO 676\r\nC\r\n  675 RBUF(2) = RTEMP/FGRIDS\r\n      J = 3\r\n      IF (JTEMP .EQ. 4) J = 2\r\nC\r\n  676 IF (JTEMP .LT. 3) GO TO 690\r\n      DO 680 K = 1,II\r\n      RBUF(J) = TGRID(K)\r\n  680 J = J + 1\r\n  690 IF (J .GT. OUTWDS) GO TO 730\r\n      BUF(J) = 0\r\n      J = J + 1\r\n      GO TO 690\r\nC\r\nC     NO GRID-POINT-TEMP-DATA.  VERIFY THAT THERE IS A DEFAULT TEMP.\r\nC\r\n  700 IF (DEFALT .NE. -1) GO TO 735\r\nC\r\nC     ERROR NO TEMP DATA OR DEFALT OF ANY KIND FOR THIS ID.\r\nC\r\n  710 LFLAG = .TRUE.\r\n      WRITE  (OUTPT,720) UFM,SETID,BUF(1)\r\n  720 FORMAT (A23,' 4012, THERE IS NO ELEMENT, GRID POINT, OR DEFAULT',\r\n     1       ' TEMPERATURE DATA FOR', /30X,'TEMPERATURE SET',I12,\r\n     2       ', WITH RESPECT TO ELEMENT ID =',I8)\r\n      GO TO 735\r\nC\r\nC     OUTPUT ELEMENT-TEMPERATURE DATA FOR 1 ELEMENT OF THIS TYPE IN SET\r\nC\r\n  730 CALL WRITE (ETT,BUF,OUTWDS,0)\r\n      GO TO 600\r\nC\r\nC     OUTPUT A NEGATIVE ELEMENT ID SINCE THERE IS NO DATA AVAILABLE.\r\nC\r\n  735 ID = -BUF(1)\r\n      CALL WRITE (ETT,ID,1,0)\r\n      GO TO 600\r\nC\r\nC     END OF ELEMENTS FOR THIS EL-TYPE.  WRITE ZERO ON ETT\r\nC\r\n  740 CALL WRITE (ETT,0,1,0)\r\n      GO TO 595\r\n  760 CONTINUE\r\nC\r\nC     ETT-RECORD IS COMPLETE FOR THIS SET. WRITE EOR AND PROCESS NEXT\r\nC     SET.\r\nC\r\n      CALL WRITE (ETT,0,0,1)\r\n      CALL CLOSE (ETT,NOREW)\r\n      GO TO 340\r\nC\r\nC     ETT IS COMPLETE\r\nC\r\n  770 IF (LFLAG) CALL MESAGE (-61,0,0)\r\nC\r\nC     WRITE TRAILER FOR ETT\r\nC\r\n      BUF(1) = ETT\r\n      BUF(7) = 7\r\n      DO 775 I = 2,6\r\n  775 BUF(I) = 0\r\nC\r\nC     OPEN ETT AND APPEND GPTT SECTION OF TEMP DATA IN INTERNAL NOTATION\r\nC\r\n      FILE = ETT\r\n      CALL OPEN (*820,ETT,Z(BUF2),WRT)\r\n      IF (.NOT.ANYGPT .AND. .NOT.HEAT) GO TO 800\r\nC\r\nC     OPEN SCR1 AND SKIP THE TEMPERATURE DATA HAVING EXTERNAL INDICES\r\nC\r\n      FILE = SCR1\r\n      CALL GOPEN (SCR1,Z(BUF1),RDREW)\r\n      IF (IRECS) 790,790,780\r\n  780 DO 785 I = 1,IRECS\r\n      CALL FWDREC (*840,SCR1)\r\n  785 CONTINUE\r\nC\r\nC     COPY BALANCE OF SCR1 TO ETT\r\nC\r\n  790 CALL READ  (*800,*795,SCR1,Z,BUF2-1,0,FLAG)\r\n      CALL WRITE (ETT,Z,BUF2-1,0)\r\n      GO TO 790\r\n  795 CALL WRITE (ETT,Z,FLAG,1)\r\n      GO TO 790\r\n  800 CALL CLOSE (SCR1,REW)\r\n      CALL CLOSE (ETT, REW)\r\n      CALL WRTTRL (BUF)\r\nC\r\nC     THERE WAS NO GPTT DATA AND ALSO NO ETT DATA. THUS RETURN HAVING\r\nC     CREATED NO ETT DATA SET.\r\nC\r\n  810 RETURN\r\nC\r\nC     ERROR CONDITIONS ON FILES\r\nC\r\nC\r\nC     FILE NOT IN FIST OR PURGED\r\nC\r\n  820 J = -1\r\n      GO TO 850\r\nC\r\nC     EOF HIT WHILE READING FILE\r\nC\r\n  840 J = -2\r\n  850 CALL MESAGE (J,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gp4.f",
    "content": "      SUBROUTINE GP4\r\nC\r\nC     GP4  PERFORMS THE FOLLOWING FUNCTIONS--\r\nC       1. READS CASECC AND MAKES ANALYSIS OF SUBCASE LOGIC\r\nC       2. PROCESSES RIGID ELEMENTS AND ALL OTHER CONSTRAINT DATA (MPC,\r\nC          SPC, OMIT, SUPORT, ASET, ETC.)\r\nC       3. BUILDS THE USET FOR THE CURRENT SUBCASE\r\nC       4. CALLS GP4SP TO EXAMINE GRID POINT SINGULARITIES\r\nC       5. BUILDS THE RGT MATRIX AND YS VECTOR FOR CURRENT SUBCASE\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT ,RSHIFT ,ANDF   ,ORF    ,COMPLF\r\n      DIMENSION       BUF(20),MPC(2) ,OMIT(2),SUPORT(2)      ,SPC(2) ,\r\n     1                MPCADD(2)      ,SPC1(2),SPCADD(2)      ,MASK(6),\r\n     2                NAME(2),MCB(7) ,MCBUST(7)      ,MCBYS(7)       ,\r\n     3                OMITX1(2)      ,ASET(2),ASET1(2)       ,MAK(4) ,\r\n     4                SPCD(2),CTYPE(18)\r\n      REAL            RZ(1)  ,BUFR(2)\r\n      CHARACTER       UFM*23\r\nCWKBI 3/95 NCL94002\r\n      CHARACTER       UWM*25 ,UIM*29\r\nCWKBR 3/95 NCL94002      COMMON /XMSSG / UFM  \r\n      COMMON /XMSSG / UFM    ,UWM    ,UIM\r\n      COMMON /MACHIN/ MACH   ,IHALF  ,JHALF\r\n      COMMON /BITPOS/ UM     ,UO     ,UR     ,USG    ,USB    ,UL     ,\r\n     1                UA     ,UF     ,US     ,UN     ,UG\r\n      COMMON /BLANK / LUSET  ,MPCF1  ,MPCF2  ,SINGLE ,OMIT1  ,REACT  ,\r\n     1                NSKIP  ,REPEAT ,NOSETS ,NOL    ,NOA    ,IDSUB  ,\r\n     2                IAUTSP\r\n      COMMON /GP4FIL/ GEOMP  ,BGPDT  ,CSTM   ,RGT    ,SCR1\r\n      COMMON /GP4PRM/ BUF    ,BUF1   ,BUF2   ,BUF3   ,BUF4   ,KNKL1  ,\r\n     1                MASK16 ,NOGO   ,GPOINT ,KN\r\n      COMMON /GP4SPX/ MSKUM  ,MSKUO  ,MSKUR  ,MSKUS  ,MSKUL  ,MSKSNG ,\r\n     1                SPCSET ,MPCSET ,NAUTO  ,IOGPST\r\n      COMMON /NAMES / RD     ,RDREW  ,WRT    ,WRTREW ,CLSREW\r\n      COMMON /PACKX / ITA1   ,ITB1   ,II1    ,JJ1    ,INCR1\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /UNPAKX/ ITB    ,II     ,JJ     ,INCR\r\n      COMMON /ZBLPKX/ X(4)   ,IX\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTTAP ),\r\n     1                (KSYSTM(27),IAXIC ), (KSYSTM(38),IAXIF  ),\r\n     2                (Z(1)      ,RZ(1) ), (BUF(1)    ,BUFR(1)),\r\n     3                (UGSET     ,USGSET), (IB6       ,BUF(6) )\r\n      DATA    OMIT  / 5001,   50/,\r\n     1        SUPORT/ 5601,   56/,\r\n     2        SPC   / 5501,   55/,\r\n     3        SPC1  / 5481,   58/,\r\n     4        SPCADD/ 5491,   59/,\r\n     5        OMITX1/ 4951,   63/,\r\n     6        ASET  / 5561,   76/,\r\n     7        ASET1 / 5571,   77/,\r\n     8        SPCD  / 5110,   51/,\r\n     9        MPC   / 4901,   49/,\r\n     O        MPCADD/ 4891,   60/\r\n      DATA    NAME  / 4HGP4  ,4H    /\r\n      DATA    MSET  / 4H M   /,   SG/4H SG   /, R/ 4H R  /\r\n      DATA    YS    , USET   /202    ,203    /\r\n      DATA    SCR2           /302            /\r\n      DATA    MPCAX1, MPCAX2 /101    ,102    /\r\n      DATA    CASECC, EQEXIN ,GPDT   /101    ,103  ,104  /\r\n      DATA    CTYPE / 4HMPC , 4H    ,\r\n     1                4HOMIT, 4H    ,\r\n     2                4HOMIT, 4H1   ,\r\n     3                4HSUPO, 4HRT  ,\r\n     4                4HSPC1, 4H    ,\r\n     5                4HSPC , 4H    ,\r\n     6                4HSPCD, 4H    ,\r\n     7                4HASET, 4H    ,\r\n     8                4HASET, 4H1   /\r\n      DATA    IZ2,IZ3,IZ5,IZ16,IZ138/ 2, 3, 5, 16, 138   /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\nCWKBI 3/95 NCL94002\r\n      CALL SSWTCH ( 51, L51 )\r\n      GEOMP  = 102\r\n      BGPDT  = 105\r\n      CSTM   = 106\r\n      RGT    = 201\r\n      SCR1   = 301\r\n      NAUTO  = 0\r\n      IOGPST = -1\r\n      BUF1   = KORSZ(Z) - SYSBUF - 2\r\n      BUF2   = BUF1 - SYSBUF\r\n      BUF3   = BUF2 - SYSBUF\r\n      BUF4   = BUF3 - SYSBUF\r\n      ICRQ   = LUSET- BUF4\r\n      INSUFF = 10\r\n      IF (LUSET .GE. BUF4) GO TO 2430\r\n      MASK16 = JHALF\r\n      MASK15 = JHALF/2\r\n      N23    = 2\r\n      MSKUM  = TWO(UM )\r\n      MSKUO  = TWO(UO )\r\n      MSKUR  = TWO(UR )\r\n      MSKUSG = TWO(USG)\r\n      MSKUSB = TWO(USB)\r\n      MSKUL  = TWO(UL )\r\n      MSKUA  = TWO(UA )\r\n      MSKUF  = TWO(UF )\r\n      MSKUS  = TWO(US )\r\n      MSKUN  = TWO(UN )\r\n      MSKUG  = TWO(UG )\r\n      MSKUNG = ORF(MSKUN,MSKUG)\r\n      MSKFNG = ORF(MSKUF,MSKUNG)\r\n      MSKSNG = ORF(MSKUS,MSKUNG)\r\n      MASK(1)= ORF(MSKUM,MSKUG)\r\n      MASK(2)= ORF(MSKUO,MSKFNG)\r\n      MASK(3)= ORF(MSKUR,ORF(MSKUA,MSKFNG))\r\n      MASK(4)= ORF(MSKUSG,MSKSNG)\r\n      MASK(5)= ORF(MSKUSB,MSKSNG)\r\n      MASK(6)= ORF(MSKUL,ORF(MSKUA,MSKFNG))\r\n      MAK(1) = ORF(MSKUM,MSKUL)\r\n      MAK(2) = ORF(MSKUS,MSKUL)\r\n      MAK(3) = ORF(MSKUO,MSKUL)\r\n      MAK(4) = ORF(MSKUR,MSKUL)\r\n      CALL MAKMCB (MCBYS,YS,0,2,1)\r\n      CALL MAKMCB (MCBUST,USET,LUSET,0,0)\r\n      MULTI  = -1\r\n      USGSET = -1\r\n      SINGLE = -1\r\n      OMIT1  = -1\r\n      NOSETS = -1\r\n      ASETX  = -1\r\n      REACT  = -1\r\n      NOYS   =  0\r\n      NOGEOM =  0\r\n      NOL    = -1\r\n      NOA    = +1\r\n      NOGO   =  0\r\n      NOGOOF =  0\r\n      DUP    =  0\r\n      IFLAG  =  0\r\n      FLAG   =  0\r\n      MSKCK  = COMPLF(LSHIFT(COMPLF(0),20))\r\n      RIGID  =  0\r\n      SPCOLD = -1\r\n      MPCOLD = -1\r\n      L21    =  0\r\n      L22    =  0\r\n      MCB(1) = GEOMP\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LT. 0) GO TO 20\r\nC\r\nC     BIT ASSIGNMENTS FOR RIGID ELEMENTS -\r\nC     CRIGD1 - 53       CRROD    - 65       CRBE1 - 68\r\nC     CRIGD2 - 54       CRBAR    - 66       CRBE2 - 69\r\nC     CRIGD3 - 83       CRTRPLT  - 67       CRBE3 - 70\r\nC     CRIGDR - 82       CRSPLINE - 71\r\nC\r\n      IF (ANDF(MCB(5),TWO(21)) .EQ. TWO(21)) RIGID = 1\r\n      IF (ANDF(MCB(5),TWO(22)) .EQ. TWO(22)) RIGID = 1\r\n      IF (ANDF(MCB(7),TWO(19)) .EQ. TWO(19)) RIGID = 1\r\n      IF (ANDF(MCB(7),TWO(18)) .EQ. TWO(18)) RIGID = 1\r\n      I = MCB(6)\r\n      DO 10 J = 17,23\r\n      IF (ANDF(I,TWO(J)) .EQ. TWO(J)) RIGID = 1\r\n   10 CONTINUE\r\n      CALL MAKMCB (MCB,RGT,0,2,1)\r\nC\r\nC     SUBCASE LOGIC -- NSKIP IS 0 (SET BY PARAM MODULE) IF FIRST\r\nC     SUBCASE. OTHERWISE NSKIP IS THE NO. OF RECORDS TO SKIP ON CASE\r\nC     CONTROL DATA BLOCK TO REACH THE LAST SUBCASE. GP4 SETS THE\r\nC     FOLLOWING PARAMETERS -\r\nC     (1) MPCF1 = +1 (DO NOT PURGE OR EQUIV MCE DATA BLOCKS) = -1 (PURGE\r\nC                 AND EQUIV TO TAKE).\r\nC     (2) MPCF2 = +1 (EXECUTE MCE1 AND MCE2) = -1 (DO NOT EXECUTE)\r\nC     (3) REPEAT= +1 (MORE SUBCASES AFTER THIS ONE) = -1 (LAST SUBCASE).\r\nC     (4) NSKIP = NO. OF RECORDS TO SKIP ON CASE CONTROL TO REACH THE\r\nC                 CURRENT SUBCASE (FOR MODULES IN REMAINDER OF LOOP).\r\nC\r\n   20 REPEAT= -1\r\n      MPCF1 = -1\r\n      MPCF2 = -1\r\n      NSKP1 =  1\r\n      FILE  = CASECC\r\n      CALL GOPEN (CASECC,Z(BUF1),0)\r\n      IF (NSKIP .GT. 1) CALL SKPREC (CASECC,NSKIP-1)\r\n      CALL FREAD (CASECC,Z,36,1)\r\n      IF (NSKIP .GT. 0) GO TO 30\r\nC\r\nC     FIRST SUBCASE - INITIALIZE.\r\nC\r\n      MPCSET = Z(IZ2)\r\n      SPCSET = Z(IZ3)\r\n      NSKIP  = 1\r\n      GO TO 50\r\nC\r\nC     SUBSEQUENT SUBCASE - POSITION CASE CONTROL AND INITIALIZE.\r\nC\r\n   30 MPCOLD = Z(IZ2)\r\n      SPCOLD = Z(IZ3)\r\n   40 NSKIP  = NSKIP + 1\r\n      CALL FREAD (CASECC,Z,36,1)\r\n      IF (Z(IZ16) .NE. 0) GO TO 40\r\n      IF (Z(IZ2).EQ.MPCOLD .AND. Z(IZ3).EQ.SPCOLD) GO TO 40\r\n      MPCSET = Z(IZ2)\r\n      SPCSET = Z(IZ3)\r\nC\r\nC     LOOK AHEAD TO END OF CURRENT SUBCASE AND SET PARAMETERS.\r\nC\r\n   50 CALL READ (*60,*2420,CASECC,Z,138,1,FLAG)\r\nC\r\nC     CHECK FOR SYMMETRY\r\nC\r\n      IF (Z(IZ16) .NE. 0) GO TO 50\r\nC\r\nC     CHECK FOR BUCKLING OR DIFFERENTIAL STIFFNESS\r\nC\r\n      IF (Z(IZ5).NE.0 .OR. Z(IZ138).NE.0) GO TO 60\r\n      IF (Z(IZ2).EQ.MPCSET .AND. Z(IZ3).EQ.SPCSET) GO TO 110\r\n      REPEAT = 1\r\nC\r\nC     CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST\r\nC\r\n   60 IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 70\r\n      MPCF1 = 1\r\n      MPCF2 = 1\r\n      IF (NSKIP  .EQ.      1) GO TO 70\r\n      IF (MPCSET .EQ. MPCOLD) MPCF2 = -1\r\n   70 CALL CLOSE (CASECC,CLSREW)\r\n      ASSIGN 120 TO RET\r\nC\r\nC     READ EQEXIN INTO CORE\r\nC\r\n   80 FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(BUF1),0)\r\n      CALL READ  (*2410,*90,EQEXIN,Z,BUF4,1,KN)\r\n      INSUFF = 80\r\n      ICRQ   = BUF4\r\n      GO TO 2430\r\n   90 CALL READ  (*2410,*2420,EQEXIN,Z(KN+1),KN,1,FLAG)\r\n      CALL CLOSE (EQEXIN, CLSREW)\r\n      KM  = 2*KN\r\n      KN2 = KN/2\r\nC\r\nC     FORM ARRAY OF SORTED SIL VALUES STARTING AT Z(KM+1)\r\nC\r\n      DO 100 I = 1, KN2\r\n      J = 2*(I-1) + 2 + KN\r\n      Z(KM+I) = Z(J)/10\r\n  100 CONTINUE\r\n      CALL SORT (0,0,1,1,Z(KM+1),KN2)\r\n      Z(KM+KN2+1) = LUSET + 1\r\n      KNKL1 = KM + KN2 + 2\r\nC\r\nC     SET DIAG-S 21 AND 22 FOR DEGREE-OF-FREEDOM PRINTER LATER.\r\nC\r\n      CALL SSWTCH (21,L21)\r\n      CALL SSWTCH (22,L22)\r\n      GO TO RET, (120,1930,1660)\r\nC\r\n  110 NSKP1 = NSKP1 + 1\r\n      GO TO 50\r\nC\r\nC     OPEN INPUT DATA FILE\r\nC\r\n  120 FILE = GEOMP\r\n      CALL PRELOC (*130,Z(BUF1),GEOMP)\r\n      NOGEOM = 1\r\nC\r\nC     CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST\r\nC\r\n      IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 130\r\nC\r\nC     OPEN RGT FILE\r\nC\r\n      FILE = RGT\r\n      CALL GOPEN (RGT,Z(BUF3),1)\r\nC\r\nC     IF RIGID ELEMENTS EXIST, GENERATE THEIR COEFFICIENTS\r\nC\r\n      NOGOO = NOGO\r\n      NOGO  = 0\r\n      IF (RIGID .EQ. 1) CALL CRIGGP (N23)\r\n      IF (NOGO  .NE. 0) GO TO 2540\r\n      NOGO = NOGOO\r\nC\r\nC     OPEN SCRATCH DATA FILE\r\nC\r\n  130 FILE = SCR1\r\n      CALL OPEN (*2400,SCR1,Z(BUF2),WRTREW)\r\nC\r\nC     CHECK TO SEE IF GEOMP FILE EXISTS\r\nC\r\n      IF (NOGEOM .EQ. 0) GO TO 790\r\nC\r\nC     CHECK TO SEE IF MPC SET IS SELECTED OR IF RIGID ELEMENTS EXIST\r\nC\r\n      IF (MPCSET.EQ.0 .AND. RIGID.EQ.0) GO TO 610\r\n      IF (MPCSET .NE. 0) GO TO 140\r\nC\r\nC     NO MPC SET IS SELECTED\r\nC\r\n      MULTI = 0\r\n      IMPC  = KNKL1\r\n      I = IMPC\r\n      J = BUF3 - 1\r\n      GO TO 370\r\nC\r\nC     IF MPC SET IS SELECTED, DETERMINE IF SET IS ON MPCADD CARD.\r\nC     IF NOT, SIMULATE AN MPCADD SET LIST WITH ONE SET = MPCSET.\r\nC\r\n  140 IMPCAD = KNKL1\r\n      NMPCAD = KNKL1\r\n      IMPC   = IMPCAD + 2\r\n      I      = IMPCAD\r\n      Z(I)   = MPCSET\r\n      Z(I+1) = 0\r\n      FILE   = GEOMP\r\n      CALL LOCATE (*200,Z(BUF1),MPCADD,FLAG)\r\n  150 CALL READ (*2410,*200,GEOMP,ID,1,0,FLAG)\r\n      IF (ID .EQ. MPCSET) GO TO 170\r\n  160 CALL FREAD (GEOMP,BUF,1,0)\r\n      IF (BUF(1) .NE. -1) GO TO 160\r\n      GO TO 150\r\n  170 CALL READ (*2410,*190,GEOMP,BUF,1,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 180\r\n      Z(I  ) = BUF(1)\r\n      Z(I+1) = 0\r\n      I  = I + 2\r\n      GO TO 170\r\n  180 CALL FWDREC (*2410,GEOMP)\r\n  190 IMPC   = I\r\n      NMPCAD = I - 2\r\nC\r\nC     READ MPC CARDS. FOR EACH EQUATION WHOSE SET ID MATCHES A SET ID\r\nC     IN THE MPCADD SET LIST, CONVERT THE GRID POINT AND COMPONENT NO.\r\nC     (OR SCALAR NO.) TO A SIL VALUE. COMPUTE THE ROW AND COLUMN NO.\r\nC     FOR THE POINT AND SAVE THIS ALONG WITH ITS VALUE.\r\nC\r\n  200 CALL LOCATE (*320,Z(BUF1),MPC,FLAG)\r\n      J = BUF3 - 1\r\n      I = IMPC\r\n      MULTI = 0\r\n      ASSIGN 260  TO RET\r\n      ASSIGN 2460 TO RET1\r\n      ASSIGN 250  TO RET2\r\n      ASSIGN 270  TO RET3\r\n  210 CALL READ (*2410,*320,GEOMP,ID,1,0,FLAG)\r\n      DO 220 K = IMPCAD,NMPCAD,2\r\n      IF (Z(K) .EQ. ID) GO TO 240\r\n  220 CONTINUE\r\n  230 CALL FREAD (GEOMP,BUF,3,0)\r\n      IF (BUF(1) .NE. -1) GO TO 230\r\n      GO TO 210\r\n  240 MULTI = MULTI + 1\r\n      Z(K+1)= 1\r\n      IFL   = 0\r\n  250 CALL FREAD (GEOMP,BUF,3,0)\r\n      IF (BUF(1) .EQ. -1) GO TO 310\r\n      GPOINT = BUF(1)\r\n      GO TO 2100\r\n  260 INDEX = 1\r\n      ICOMP = BUF(2)\r\n      GO TO 2300\r\n  270 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1\r\n      IF (IFL .EQ. 0) SILD = GPOINT\r\n      IF (N23 .EQ. 3) GO TO 300\r\n      IF (GPOINT .GT. MASK15) GO TO 290\r\n      Z(I  ) = ORF(LSHIFT(GPOINT,IHALF),SILD)\r\n      Z(I+1) = BUF(3)\r\n  280 I = I + N23\r\n      INSUFF = 236\r\n      IF (I .GE. J) GO TO 2430\r\n      IFL = 1\r\n      GO TO 250\r\nC\r\nC     GPOINT IS TOO BIG TO BE PACKED INTO HALF A WORD.  ABANDON COL.\r\nC     AND ROW PACKING LOGIC, AND DO IT OVER AGAIN WITHOUT PACKING.\r\nC\r\n  290 N23 = 3\r\n      CALL REWIND (GEOMP)\r\n      CALL FWDREC (*2410,GEOMP)\r\n      GO TO 200\r\n  300 Z(I  ) = GPOINT\r\n      Z(I+1) = SILD\r\n      Z(I+2) = BUF(3)\r\n      GO TO 280\r\nC\r\nC     SAVE A LIST OF DEPENDENT SIL VALUES\r\nC\r\n  310 Z(J)= SILD\r\n      J   = J - 1\r\n      GO TO 210\r\nC\r\nC     DETERMINE IF ALL MPC SETS IN MPCADD SET LIST HAVE BEEN INPUT\r\nC\r\n  320 IF (NOGO .NE. 0) GO TO 2540\r\n      NOGOO = NOGO\r\n      NOGO  = 0\r\n      IGOTCH= 0\r\n      DO 350 K = IMPCAD,NMPCAD,2\r\n      IF (Z(K+1) .NE. 0) GO TO 340\r\n      NOGO  = -1\r\n      IF (Z(K).EQ.200000000 .AND. IAXIF.NE.0) GO TO 350\r\n      IF (IAXIC .EQ. 0) GO TO 330\r\n      IF (Z(K).EQ.MPCAX1 .OR. Z(K).EQ.MPCAX2) GO TO 350\r\n      IF (Z(K) .EQ. 200000000) GO TO 350\r\n  330 NOGO  = +1\r\n      BUF(1)= Z(K)\r\n      BUF(2)= 0\r\n      CALL MESAGE (30,47,BUF)\r\n      GO TO 350\r\n  340 IGOTCH= 1\r\n  350 CONTINUE\r\n      IF (NOGO .EQ. 0) GO TO 370\r\n      IF (NOGO.EQ.-1 .AND. IGOTCH.EQ.1) GO TO 360\r\n      MPCSET=  0\r\n      MULTI = -1\r\n      MPCF1 = -1\r\n      MPCF2 = -1\r\n      IF (NOGO.EQ.-1 .AND. NOGOO.EQ.0) NOGO = 0\r\n      GO TO 600\r\n  360 CONTINUE\r\n      IF (NOGO.EQ.-1 .AND. NOGOO.EQ.0) NOGO = 0\r\nC\r\nC     CHECK TO SEE IF RIGID ELEMENTS EXIST\r\nC\r\n  370 IF (RIGID .EQ. 0) GO TO 470\r\nC\r\nC     EXPAND THE DEPENDENT SET BY APPENDING RIGID ELEMENT\r\nC     DATA TO MPC DATA\r\nC\r\n      CALL GOPEN  (RGT,Z(BUF3),0)\r\n      CALL SKPREC (RGT,1)\r\n      I1   = BUF3 - I\r\n      CALL READ (*2410,*380,RGT,Z(I),I1,1,NRIGID)\r\n      INSUFF = 3020\r\n      GO TO 2430\r\n  380 J = J - NRIGID\r\n      MULTI = MULTI + NRIGID\r\n      CALL SKPREC (RGT,-2)\r\n      CALL READ (*2410,*410,RGT,Z(I),I1,1,FLAG)\r\n      INSUFF = 3030\r\n      I2 = I1\r\n  390 CALL BCKREC (RGT)\r\n      CALL READ (*2410,*400,RGT,Z(I),-I2,0,FLAG)\r\n      CALL READ (*2410,*400,RGT,Z(I), I1,0,FLAG)\r\n      I2 = I2 + I1\r\n      GO TO 390\r\n  400 FLAG = I2 + FLAG\r\n      GO TO 440\r\nC\r\nC     RE-CODE COLUMN-ROW PACKED WORD IF NECESSARY FOR DATA JUST BROUGHT\r\nC     IN FROM RIGID ELEMENTS\r\nC     THEN READ THE LAST RECORD FROM RGT\r\nC\r\n  410 IF (N23 .EQ. 3) GO TO 430\r\n      I1 = I - 1\r\n      I2 = I1\r\n      I3 = I1 + FLAG\r\n  420 Z(I2+1) = ORF(LSHIFT(Z(I1+1),IHALF),Z(I1+2))\r\n      Z(I2+2) = Z(I1+3)\r\n      I1 = I1 + 3\r\n      I2 = I2 + 2\r\n      IF (I1 .LT. I3) GO TO 420\r\n      FLAG = I2 - I + 1\r\nC\r\n  430 INSUFF = 3050\r\n  440 I3 = I + FLAG\r\n      IF (I3 .LT. J)  GO TO 460\r\n      WRITE  (OUTTAP,450) I,I3,J,FLAG,BUF3,NRIGID,N23\r\n  450 FORMAT ('  GP4/3060 I,I3,J,FLAG,BUF3,NRIGID,N23 =',7I7)\r\n      ICRQ = I - J\r\n      GO TO 2430\r\n  460 I  = I3\r\n      CALL READ  (*2410,*2420,RGT,Z(J+1),NRIGID,1,FLAG)\r\n      CALL CLOSE (RGT,CLSREW)\r\n      CALL GOPEN (RGT,Z(BUF3),1)\r\nC\r\nC     SORT THE LIST OF DEPENDENT SIL VALUES\r\nC     THUS FORMING THE UM SUBSET\r\nC\r\n  470 II = J + 1\r\n      M  = BUF3 - II\r\n      NNX= BUF3 - 1\r\n      IF (M .EQ. 1) GO TO 510\r\n      CALL SORT (0,0,1,1,Z(II),M)\r\nC\r\nC     CHECK FOR DEPENDENT COMPONENT ERRORS IN MPC/RIGID ELEMENT DATA\r\nC\r\n      JJ   = NNX - 1\r\n      NOLD = 0\r\n      JXX  = 0\r\n      DO 490 J = II,JJ\r\n      IF (Z(J) .EQ. NOLD) GO TO 490\r\n      IF (Z(J).NE.Z(J+1)) GO TO 490\r\n      NOLD = Z(J)\r\n      NOGO = 1\r\n      JXX  = JXX + 1\r\n      IF (JXX .GT. 50) GO TO 490\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,480) UFM,Z(J)\r\n  480 FORMAT (A23,' 2423, DEPENDENT COMPONENT SPECIFIED MORE THAN ONCE',\r\n     1       ' ON MPC CARDS AND/OR IN RIGID ELEMENTS.  SIL =',I9)\r\n  490 CONTINUE\r\n      IF (JXX .GT. 50) WRITE (OUTTAP,500)\r\n  500 FORMAT (//12X,12H... AND MORE,/)\r\n  510 IF (NOGO .NE. 0) GO TO 2540\r\n      CALL WRITE (SCR1,Z(II),M,1)\r\nC\r\nC     SORT THE LIST OF CODED COL AND ROW NOS (OR UNCODED NOS)\r\nC     THEN BLDPK EACH COL THUS FORMING THE RG MATRIX\r\nC\r\n      N   = I - IMPC\r\n      NMPC= I - N23\r\n      J   = IMPC\r\n      IF (N23 .EQ. 3) CALL SORT2K (0,0,3,1,Z(J),N)\r\n      IF (N23 .EQ. 2) CALL SORT   (0,0,2,1,Z(J),N)\r\nC\r\nC     CHECK FOR INDEPENDENT COMPONENT ERRORS IN MPC DATA\r\nC\r\n      KJ   = J + N - 2*N23\r\n      NOLD = 0\r\n      NOGO = 0\r\n      DO 540 KK = J,KJ,N23\r\n      IF (Z(KK) .EQ.      NOLD) GO TO 540\r\n      IF (Z(KK) .NE. Z(KK+N23)) GO TO 540\r\n      IF (N23.EQ.3 .AND. Z(KK+1).NE.Z(KK+N23+1)) GO TO 540\r\n      NOLD = Z(KK)\r\n      NOGO = 1\r\n      JJ   = NOLD\r\n      IF (N23 .EQ. 2) JJ = RSHIFT(NOLD,IHALF)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,530) UFM,JJ\r\n  530 FORMAT (A23,' 3180, INDEPENDENT COMPONENT SPECIFIED MORE THAN ',\r\n     1       'ONCE IN AN MPC RELATIONSHIP.   SIL =',I6)\r\n  540 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 2540\r\n      NCOL= 1\r\n      M   = BUF3 - I\r\n      N231= N23  - 1\r\n  550 CALL BLDPK (1,1,RGT,0,0)\r\n  560 IF (J .GT. NMPC) GO TO 590\r\n      JJ = Z(J)\r\n      IF (N23 .EQ. 2) JJ = RSHIFT(Z(J),IHALF)\r\n      IF (JJ .GT. NCOL) GO TO 590\r\n      IX = Z(J+1)\r\n      IF (N23 .EQ. 2) IX = ANDF(Z(J),MASK16)\r\n      X(1) = Z(J+N231)\r\n      DO 570 NN1 = II,NNX\r\n      IF (IX .EQ. Z(NN1)) GO TO 580\r\n  570 CONTINUE\r\n      GO TO 2540\r\n  580 IX = NN1 - II + 1\r\n      CALL ZBLPKI\r\n      J  = J + N23\r\n      GO TO 560\r\n  590 CALL BLDPKN (RGT,0,MCB)\r\n      NCOL = NCOL + 1\r\n      IF (NCOL .LE. LUSET) GO TO 550\r\n      MCB(3) = MULTI\r\n      CALL WRTTRL (MCB)\r\n  600 CALL CLOSE (RGT,CLSREW)\r\nC\r\nC     READ OMIT CARDS (IF PRESENT).\r\nC\r\n  610 I = KNKL1\r\n      CALL LOCATE (*650,Z(BUF1),OMIT,FLAG)\r\n      ASSIGN 630  TO RET\r\n      ASSIGN 2470 TO RET1\r\n      ASSIGN 620  TO RET2\r\n      ASSIGN 640  TO RET3\r\n      OMIT1 = 1\r\n  620 CALL READ (*2410,*650,GEOMP,BUF,2,0,FLAG)\r\n      GPOINT= BUF(1)\r\n      GO TO 2100\r\n  630 INDEX = 3\r\n      ICOMP = BUF(2)\r\n      GO TO 2300\r\n  640 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1\r\n      Z(I)= GPOINT\r\n      I   = I + 1\r\n      IF (I .LE. BUF3) GO TO 620\r\n      ICRQ = I - BUF3\r\n      INSUFF = 345\r\n      GO TO 2430\r\nC\r\nC     READ OMIT1 CARDS (IF PRESENT).\r\nC\r\n  650 IF (NOGO .NE. 0) GO TO 2540\r\n      CALL LOCATE (*720,Z(BUF1),OMITX1,FLAG)\r\n      OMIT1 = 1\r\n      ASSIGN 680  TO RET\r\n      ASSIGN 2470 TO RET1\r\n      ASSIGN 670  TO RET2\r\n      ASSIGN 690  TO RET3\r\n  660 CALL READ (*2410,*720,GEOMP,BUF,1,0,FLAG)\r\n      IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8))\r\n  670 CALL READ (*2410,*720,GEOMP,BUF(2),1,0,FLAG)\r\n      IF (BUF(2) .EQ. -1)  GO TO 660\r\n      GPOINT = BUF(2)\r\n      GO TO 2100\r\n  680 INDEX = 5\r\n      ICOMP = BUF(1)\r\n      GO TO 2300\r\n  690 IF (ICOMP .NE. 0) GO TO 700\r\n      Z(I) = GPOINT\r\n      I    = I + 1\r\n      GO TO 670\r\n  700 GPOINT = GPOINT - 1\r\n      DO 710 IJK = 1,6\r\n      IF (BUF(IJK+7) .EQ. 0) GO TO 670\r\n      Z(I) = GPOINT+BUF(IJK+7)\r\n      I    = I + 1\r\n  710 CONTINUE\r\n      GO TO 670\r\n  720 IF (OMIT1 .NE. 1) GO TO 730\r\n      IF (NOGO  .NE. 0) GO TO 2540\r\nC\r\nC     SORT OMIT AND OMIT1 DATA AND WRITE IT ON SCR1.\r\nC\r\n      N = I - KNKL1\r\n      I = KNKL1\r\n      CALL SORT (0,0,1,1,Z(I),N)\r\n      CALL WRITE (SCR1,Z(I),N,1)\r\nC\r\nC     READ SUPORT CARDS (IF PRESENT)\r\nC\r\n  730 CALL LOCATE (*780,Z(BUF1),SUPORT,FLAG)\r\n      REACT = 1\r\n      I = KNKL1\r\n      ASSIGN 750  TO RET\r\n      ASSIGN 2480 TO RET1\r\n      ASSIGN 740  TO RET2\r\n      ASSIGN 760  TO RET3\r\n  740 CALL READ (*2410,*770,GEOMP,BUF,2,0,FLAG)\r\n      GPOINT = BUF(1)\r\n      GO TO 2100\r\n  750 INDEX = 7\r\n      ICOMP = BUF(2)\r\n      GO TO 2300\r\n  760 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1\r\n      Z(I) = GPOINT\r\n      I    = I + 1\r\n      IF (I .LT. BUF3) GO TO 740\r\n      ICRQ   = I - BUF3\r\n      INSUFF = 445\r\n      GO TO 2430\r\n  770 IF (NOGO .NE. 0) GO TO 2540\r\n      N = I - KNKL1\r\n      I = KNKL1\r\n      CALL SORT (0,0,1,1,Z(I),N)\r\n      CALL WRITE (SCR1,Z(I),N,1)\r\nC\r\nC     READ THE GPDT AND EXTRACT CONSTRAINED POINTS (IF ANY)\r\nC\r\n  780 CALL CLOSE (GEOMP,CLSREW)\r\n  790 FILE = GPDT\r\n      ASSIGN 810 TO RET\r\n      CALL GOPEN (GPDT,Z(BUF1),0)\r\n  800 CALL READ (*2400,*820,GPDT,BUF,7,0,FLAG)\r\n      IF (BUF(7) .EQ. 0) GO TO 800\r\n      J = BUF(1) + KM\r\n      BUF(1) = Z(J)\r\n      CALL SCALEX (BUF,BUF(7),BUF(8))\r\n      GO TO 2200\r\n  810 CALL WRITE (SCR1,BUF(8),N,0)\r\n      UGSET = 1\r\n      GO TO 800\r\n  820 IF (UGSET .GT. 0) CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (GPDT,CLSREW)\r\n      FILE = GEOMP\r\n      IF (NOGEOM .EQ. 0) GO TO 830\r\n      CALL PRELOC (*2400,Z(BUF1),GEOMP)\r\n      GO TO 840\r\n  830 IF (MPCSET .NE. 0) CALL MESAGE (30,47,MPCSET)\r\n      IF (SPCSET .NE. 0) CALL MESAGE (30,53,SPCSET)\r\n      IF (MPCSET.NE.0 .OR. SPCSET.NE.0) NOGO = +1\r\n      GO TO 1280\r\nC\r\nC     IF SPC SET IS SELECTED, READ SPCADD CARDS (IF PRESENT).\r\nC     DETERMINE IF SET ID IS ON SPCADD CARD.\r\nC     IF NOT, SIMULATE AN SPCADD SET LIST WITH ONE SET = SPCSET.\r\nC\r\n  840 IF (SPCSET .EQ. 0) GO TO 1150\r\n      ISPCAD = KNKL1\r\n      NSPCAD = KNKL1\r\n      ISPC   = ISPCAD + 2\r\n      I      = ISPCAD\r\n      Z(I  ) = SPCSET\r\n      Z(I+1) = 0\r\n      CALL LOCATE (*900,Z(BUF1),SPCADD,FLAG)\r\n  850 CALL READ (*2410,*900,GEOMP,ID,1,0,FLAG)\r\n      IF (ID .EQ. SPCSET) GO TO 870\r\n  860 CALL FREAD (GEOMP,ID,1,0)\r\n      IF (ID .NE. -1) GO TO 860\r\n      GO TO 850\r\n  870 CALL READ (*2410,*890,GEOMP,BUF,1,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 880\r\n      Z(I  ) = BUF(1)\r\n      Z(I+1) = 0\r\n      I      = I + 2\r\n      GO TO 870\r\n  880 CALL FWDREC (*2410,GEOMP)\r\n  890 ISPC   = I\r\n      NSPCAD = I - 2\r\nC\r\nC     READ SPC1 AND SPC CARDS.\r\nC     FOR EACH SET ID WHICH IS IN THE SPCADD SET LIST,\r\nC     CONVERT THE GRID POINT NO. AND COMPONENT VALUE (OR SCALAR NO.)\r\nC     TO AN SIL VALUE. SAVE A LIST IN CORE OF SIL VALUES AND\r\nC     ENFORCED DISPLACEMENT (ON SPC1 CARDS, ENF. DISPL. = 0.)\r\nC\r\n  900 I = ISPC\r\n      GO TO 1010\r\nC\r\nC     SPC1 PROCESSING EXECUTES AFTER SPC PROCESSING\r\nC\r\n  910 IF (NOGO .NE. 0) GO TO 2540\r\n      CALL LOCATE (*1130,Z(BUF1),SPC1,FLAG)\r\n      ASSIGN 970  TO RET\r\n      ASSIGN 2490 TO RET1\r\n      ASSIGN 960  TO RET2\r\n      ASSIGN 980  TO RET3\r\n  920 CALL READ (*2410,*1130,GEOMP,ID,1,0,FLAG)\r\n      DO 930 K = ISPCAD,NSPCAD,2\r\n      IF (Z(K) .EQ. ID) GO TO 950\r\n  930 CONTINUE\r\n  940 CALL FREAD (GEOMP,BUF,1,0)\r\n      IF (BUF(1) .NE. -1) GO TO 940\r\n      GO TO 920\r\n  950 Z(K+1) = 1\r\n      CALL FREAD (GEOMP,BUF,1,0)\r\n      SINGLE = 1\r\n      IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8))\r\n  960 CALL READ (*2410,*920,GEOMP,BUF(2),1,0,FLAG)\r\n      IF (BUF(2) .LT. 0) GO TO 920\r\n      GPOINT = BUF(2)\r\n      GO TO 2100\r\n  970 INDEX = 9\r\n      ICOMP = BUF(1)\r\n      GO TO 2300\r\n  980 IF (ICOMP .NE. 0) GO TO 990\r\n      Z(I  ) = GPOINT\r\n      Z(I+1) = 0\r\n      I      = I + 2\r\n      GO TO 960\r\n  990 GPOINT = GPOINT - 1\r\n      DO 1000 IJK = 1,6\r\n      IF (BUF(IJK+7) .EQ. 0) GO TO 960\r\n      Z(I  ) = GPOINT+BUF(IJK+7)\r\n      Z(I+1) = 0\r\n      I      = I + 2\r\n 1000 CONTINUE\r\n      GO TO 960\r\nC\r\nC     PROCESSING OF SPC CARDS EXECUTES FIRST.\r\nC\r\n 1010 CALL LOCATE (*910,Z(BUF1),SPC,FLAG)\r\n      ASSIGN 1050  TO RET\r\n      ASSIGN 2530 TO RET1\r\n      ASSIGN 1020  TO RET2\r\n      ASSIGN 1060  TO RET3\r\n 1020 CALL READ (*2410,*1090,GEOMP,BUF,4,0,FLAG)\r\n      DO 1030 K = ISPCAD,NSPCAD,2\r\n      IF (Z(K) .EQ. BUF(1)) GO TO 1040\r\n 1030 CONTINUE\r\n      GO TO 1020\r\n 1040 SINGLE = 1\r\n      Z(K+1) = 1\r\n      GPOINT = BUF(2)\r\n      GO TO 2100\r\n 1050 INDEX = 11\r\n      ICOMP = BUF(3)\r\n      GO TO 2300\r\n 1060 IF (ICOMP .NE. 0) GO TO 1070\r\n      Z(I  ) = GPOINT\r\n      Z(I+1) = BUF(4)\r\n      I      = I+2\r\n      GO TO 1020\r\n 1070 CALL SCALEX (GPOINT,BUF(3),BUF(8))\r\n      DO 1080 IJK = 1,6\r\n      IF (BUF(IJK+7) .EQ. 0) GO TO 1020\r\n      Z(I  ) = BUF(IJK+7)\r\n      Z(I+1) = BUF(4)\r\n      I      = I + 2\r\n 1080 CONTINUE\r\n      GO TO 1020\r\n 1090 IF (NOGO .NE. 0) GO TO 2540\r\n      N = I - ISPC\r\n      IF (N .LE. 2) GO TO 910\r\nC\r\nC     CHECK FOR DUPLICATELY DEFINED ENFORCED DISPLACEMENTS ON SPC CARDS\r\nC\r\n      CALL SORT (0,0,2,1,Z(ISPC),N)\r\n      N    = N - 2\r\n      NOLD = 0\r\n      DO 1110 K = 1,N,2\r\n      IF (Z(ISPC+K-1) .EQ. NOLD) GO TO 1110\r\n      IF (Z(ISPC+K-1) .NE. Z(ISPC+K+1)) GO TO 1110\r\n      IF (Z(ISPC+K).EQ.0 .AND. Z(ISPC+K+2).EQ.0) GO TO 1110\r\n      NOLD = Z(ISPC+K-1)\r\n      NOGO = 1\r\n      CALL PAGE2 (3)\r\n      WRITE  (OUTTAP,1100) UFM,NOLD\r\n 1100 FORMAT (A23,' 3147, ENFORCED DISPLACEMENT ON SPC CARDS SPECIFIED',\r\n     1     ' MORE THAN ONCE', /5X,'FOR THE SAME COMPONENT.  SIL VALUE ='\r\n     2,    I10)\r\n 1110 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 2540\r\n      GO TO 910\r\nC\r\nC     FLUID PROBLEM AND NO SPC-S AT ALL.\r\nC\r\n 1120 SPCSET = 0\r\n      GO TO 840\r\n 1130 NSPC = I - 2\r\n      ICRQ = NSPC - BUF3\r\n      INSUFF = 740\r\n      IF (ICRQ .GT. 0) GO TO 2430\r\nC\r\nC     DETERMINE IF ALL SPC SETS IN SPCADD SET LIST HAVE BEEN DEFINED\r\nC\r\n      IF (NOGO .NE. 0) GO TO 2540\r\n      DO 1140 K = ISPCAD,NSPCAD,2\r\n      IF (Z(K+1) .NE. 0) GO TO 1140\r\n      IF (IAXIF.NE.0 .AND. Z(K).EQ.200000000) GO TO 1120\r\n      NOGO   = 1\r\n      BUF(1) = Z(K)\r\n      BUF(2) = 0\r\n      CALL MESAGE (30,53,BUF)\r\n 1140 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 2540\r\nC\r\nC     SORT THE SPC LIST AND WRITE IT ON SCR1\r\nC\r\n      N = NSPC - ISPC + 2\r\n      CALL SORT  (0,0,2,1,Z(ISPC),N)\r\n      CALL WRITE (SCR1,Z(ISPC),N,1)\r\nC\r\nC     READ ASET CARDS (IF PRESENT)\r\nC\r\n 1150 I = KNKL1\r\n      CALL LOCATE (*1190,Z(BUF1),ASET,FLAG)\r\n      ASSIGN 1170 TO RET\r\n      ASSIGN 2470 TO RET1\r\n      ASSIGN 1160 TO RET2\r\n      ASSIGN 1180 TO RET3\r\n      ASETX = 1\r\n 1160 CALL READ (*2410,*1190,GEOMP,BUF,2,0,FLAG)\r\n      GPOINT = BUF(1)\r\n      GO TO 2100\r\n 1170 INDEX = 15\r\n      ICOMP = BUF(2)\r\n      GO TO 2300\r\n 1180 IF (ICOMP .NE. 0) GPOINT = GPOINT + ICOMP - 1\r\n      Z(I) = GPOINT\r\n      I    = I + 1\r\n      IF (I .LE. BUF3) GO TO 1160\r\n      ICRQ = I - BUF3\r\n      INSUFF = 1445\r\n      GO TO 2430\r\nC\r\nC     READ ASET1 CARDS (IF PRESENT)\r\nC\r\n 1190 IF (NOGO .NE. 0) GO TO 2540\r\n      CALL LOCATE (*1260,Z(BUF1),ASET1,FLAG)\r\n      ASETX = 1\r\n      ASSIGN 1220 TO RET\r\n      ASSIGN 2470 TO RET1\r\n      ASSIGN 1210 TO RET2\r\n      ASSIGN 1230 TO RET3\r\n 1200 CALL READ (*2410,*1260,GEOMP,BUF,1,0,FLAG)\r\n      IF (BUF(1) .NE. 0) CALL SCALEX (1,BUF(1),BUF(8))\r\n 1210 CALL READ (*2410,*1260,GEOMP,BUF(2),1,0,FLAG)\r\n      IF (BUF(2) .EQ. -1) GO TO 1200\r\n      GPOINT = BUF(2)\r\n      GO TO 2100\r\n 1220 INDEX = 17\r\n      ICOMP = BUF(1)\r\n      GO TO 2300\r\n 1230 IF (ICOMP .NE. 0) GO TO 1240\r\n      Z(I) = GPOINT\r\n      I    = I + 1\r\n      GO TO 1210\r\n 1240 GPOINT = GPOINT - 1\r\n      DO 1250 IJK = 1,6\r\n      IF (BUF(IJK+7) .EQ. 0) GO TO 1210\r\n      Z(I) = GPOINT + BUF(IJK+7)\r\n      I    = I + 1\r\n 1250 CONTINUE\r\n      GO TO  1210\r\n 1260 IF (ASETX .NE. 1) GO TO 1270\r\n      IF (NOGO  .NE. 0) GO TO 2540\r\nC\r\nC     SORT ASET AND ASET1 DATA AND WRITE IT ON SCR1\r\nC\r\n      N = I - KNKL1\r\n      I = KNKL1\r\n      CALL SORT  (0,0,1,1,Z(I),N)\r\n      CALL WRITE (SCR1,Z(I),N,1)\r\n 1270 CALL CLOSE (GEOMP,CLSREW)\r\n 1280 CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     FORM THE BASIC USET BY READING EACH OF THE SUBSETS AND\r\nC     TURNING ON THE APPROPRIATE BIT IN THE APPROPRIATE WORD\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*2400,SCR1,Z(BUF2),RDREW)\r\n      DO 1290 K = 1,LUSET\r\n 1290 Z(K)   = 0\r\n      BUF(1) = MULTI\r\n      BUF(2) = OMIT1\r\n      BUF(3) = REACT\r\n      BUF(4) = USGSET\r\n      BUF(5) = SINGLE\r\n      BUF(6) = ASETX\r\n      ICOUNT = 0\r\n      DO 1360 K = 1,6\r\n      IF (BUF(K) .LT. 0) GO TO 1360\r\n      IF (K .LT. 5) ICOUNT = ICOUNT + 1\r\n      GO TO (1300,1310,1300,1300,1300,1310), K\r\n 1300 MCBUST(5) = ORF(MCBUST(5),MASK(K))\r\n      NOSETS = 1\r\n      IF (K .EQ. 5) GO TO 1350\r\n 1310 CALL READ (*2410,*1360,SCR1,J,1,0,FLAG)\r\n      IF (K .EQ. 2) GO TO 1340\r\n      IF (K .EQ. 6) GO TO 1330\r\n      IF (ANDF(Z(J),MASK(K)) .NE. MASK(K)) GO TO 1340\r\n      DUP = 1\r\n      IF (IFLAG .NE. 0) GO TO 1320\r\n      FILE = USET\r\n      CALL OPEN (*2400,USET,Z(BUF1),WRTREW)\r\n      IFLAG  = 1\r\n      FILE   = SCR1\r\n 1320 BUF(1) = J\r\n      BUF(2) = K\r\n      CALL WRITE (USET,BUF(1),2,0)\r\n      GO TO 1340\r\n 1330 IF (ANDF(Z(J),MSKUA) .NE. 0) GO TO 1310\r\n 1340 Z(J) = ORF(Z(J),MASK(K))\r\n      GO TO 1310\r\n 1350 CALL READ (*2410,*1360,SCR1,BUF(7),2,0,FLAG)\r\n      J    = BUF(7)\r\n      Z(J) = ORF(Z(J),MASK(K))\r\n      GO TO 1350\r\n 1360 CONTINUE\r\n      IF (DUP .EQ. 0) GO TO 1370\r\n      CALL WRITE (USET,0,0,1)\r\n      CALL CLOSE (USET,CLSREW)\r\n 1370 CALL CLOSE (SCR1,CLSREW)\r\nC\r\nC     THE FOLLOWING CONVENTION WILL BE USED WITH REGARD TO DEGREES OF\r\nC     FREEDOM NOT SPECIFICALLY INCLUDED OR OMITTED-\r\nC       1. IF ASET OR ASET1 CARDS ARE PRESENT, UNSPECIFIED DEGREES OF\r\nC          FREEDOM WILL BE OMITTED.\r\nC       2. IF ASET OR ASET1 CARDS ARE NOT PRESENT AND OMIT OR OMIT1\r\nC          CARDS ARE PRESENT, UNSPECIFIED DEGREES OF FREEDOM WILL BE\r\nC          INCLUDED IN THE ANALYSIS SET.\r\nC       3. IF NO ASET, ASET1, OMIT, OR OMIT 1 CARDS ARE PRESENT ALL\r\nC          UNSPECIFIED DEGREES OF FREEDOM WILL BE INCLUDED IN THE\r\nC          ANALYSIS SET.\r\nC       4. IF BOTH ASET OR ASET1 CARDS AND OMIT OR OMIT1 CARDS ARE\r\nC          SUPPLIED, UNSPECIFIED DEGREES OF FREEDOM WILL BE OMITTED.\r\nC\r\n      MSKRST = MASK(2)\r\n      IF (ASETX .GT. 0) GO TO 1380\r\n      MSKRST = MASK(6)\r\n      IMSK   = 0\r\n 1380 DO 1390 K = 1, LUSET\r\n      IF (ANDF(MSKCK,Z(K)) .NE. 0) GO TO 1390\r\n      IMSK = MSKRST\r\n      Z(K) = ORF(Z(K),MSKRST)\r\n 1390 CONTINUE\r\n      IF (IMSK .EQ. MASK(6)) ASETX = 1\r\n      IF (IMSK .EQ. MASK(2)) OMIT1 = 1\r\nC\r\nC     CALL SUBROUTINE GP4SP TO EXAMINE GRID POINT SINGULARITIES\r\nC\r\n      CALL GP4SP (BUF2,BUF3,BUF4)\r\nC\r\nC     TURN ON CERTAIN FLAGS IF THERE ARE OMIT OR ASET\r\nC     DEGREES OF FREEDOM\r\nC\r\n      OMIT1 = -1\r\n      DO 1400 K = 1,LUSET\r\n      IF (ANDF(Z(K),MSKUO) .EQ. 0) GO TO 1400\r\n      MCBUST(5) = ORF(MCBUST(5),MASK(2))\r\n      NOSETS = 1\r\n      OMIT1  = 1\r\n      GO TO 1410\r\n 1400 CONTINUE\r\n 1410 DO 1420 K = 1,LUSET\r\n      IF (ANDF(Z(K),MSKUA) .EQ. 0) GO TO 1420\r\n      MCBUST(5) = ORF(MCBUST(5),MASK(6))\r\n      NOL = 1\r\n      GO TO 1430\r\n 1420 CONTINUE\r\nC\r\n 1430 CALL OPEN (*2400,SCR1,Z(BUF2),RDREW)\r\n      CALL SKPREC (SCR1,ICOUNT)\r\nC\r\nC     OPEN YS FILE. WRITE SPCSET IN YS HEADER.\r\nC     IF NO USB SET (FROM SPC AND SPC1 CARDS), WRITE NULL COLUMN\r\nC     FOR YS VECTOR. IF USB SET IS PRESENT, BUILD THE YS VECTOR.\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*1440,YS,Z(BUF3),WRTREW)\r\n      NOYS = 1\r\n      CALL FNAME (YS,BUF)\r\n      BUF(3) = SPCSET\r\n      CALL WRITE (YS,BUF,3,1)\r\n 1440 IX = 0\r\n      II = 1\r\n      IF (SINGLE .GT. 0) GO TO 1450\r\n      IF (NAUTO.GT.0 .OR. USGSET.GT.0) SINGLE = 1\r\n      IF (NOYS .NE. 0) CALL BLDPK (1,1,YS,0,0)\r\n      GO TO 1490\r\n 1450 IF (NOYS .NE. 0) CALL BLDPK (1,1,YS,0,0)\r\n 1460 CALL READ (*2410,*1490,SCR1,BUF,2,0,FLAG)\r\n      J = BUF(1)\r\n      IF (BUF(2) .EQ. 0) GO TO 1460\r\n      DO 1470 K = II,J\r\n      IF (ANDF(Z(K),MSKUS) .NE. 0) IX = IX + 1\r\n 1470 CONTINUE\r\n      II   = J + 1\r\n      X(1) = BUF(2)\r\n      IF (NOYS   .NE. 0) GO TO 1480\r\n      IF (NOGOOF .NE. 0) GO TO 1460\r\n      NOGO   = 1\r\n      NOGOOF = 1\r\n      CALL MESAGE (30,132,BUF)\r\n      GO TO 1460\r\n 1480 CALL ZBLPKI\r\n      GO TO 1460\r\n 1490 IF (NOYS .NE. 0) CALL BLDPKN (YS,0,MCBYS)\r\n      IF (II .GT. LUSET) GO TO 1510\r\n      DO 1500 K = II,LUSET\r\n      IF (ANDF(Z(K),MSKUS) .NE. 0) IX = IX + 1\r\n 1500 CONTINUE\r\n 1510 MCBYS(3) = IX\r\n      IF (NOYS .EQ. 0) GO TO 1520\r\n      CALL WRTTRL (MCBYS)\r\n      CALL CLOSE (YS,CLSREW)\r\n 1520 CALL CLOSE (SCR1,CLSREW)\r\nC\r\n      IF (L21+L22.GT.0 .OR. IDSUB.GT.0) CALL GP4PRT (BUF1)\r\n      IF (NAUTO .EQ. 0) GO TO 1540\r\nC\r\nC     CHANGE AUTO SPC FLAGS TO BOUNDARY SPC FLAGS\r\nC\r\n      J = 0\r\n      DO 1530 K = 1,LUSET\r\n      IF (ANDF(Z(K),MSKUS) .EQ. 0) GO TO 1530\r\n      IF (ANDF(Z(K),MSKUSG).NE.0 .OR.  ANDF(Z(K),MSKUSB).NE.0)\r\n     1    GO TO 1530\r\n      Z(K) = MASK(5)\r\n      J = 1\r\n 1530 CONTINUE\r\n      IF (J .EQ. 1) MCBUST(5) = ORF(MCBUST(5),MASK(5))\r\nC\r\n 1540 FILE = USET\r\n      IF (DUP .EQ. 0) GO TO 1570\r\n      CALL OPEN (*2400,USET,Z(BUF1),RDREW)\r\n      FILE = SCR1\r\n      CALL OPEN (*2400,SCR1,Z(BUF2),WRTREW)\r\n      FILE = USET\r\n 1550 CALL READ  (*1560,*1560,USET,BUF(1),2,0,FLAG)\r\n      CALL WRITE (SCR1,BUF(1),2,0)\r\n      GO TO 1550\r\n 1560 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (USET,CLSREW)\r\n 1570 CALL OPEN  (*2400,USET,Z(BUF1),WRTREW)\r\n      CALL FNAME (USET,BUF)\r\n      BUF(3) = SPCSET\r\n      BUF(4) = MPCSET\r\n      CALL WRITE (USET,BUF,4,1)\r\n      CALL WRITE (USET,Z(1),LUSET,1)\r\n      IF (NOL .EQ. 1) MCBUST(5)= ORF(MCBUST(5),MASK(6))\r\nC\r\nC     SEPARATE TRAILER WORD 4 INTO TWO PARTS\r\nC\r\n      MCBUST(4) = RSHIFT(MCBUST(5),IHALF)\r\n      MCBUST(5) = ANDF(MCBUST(5),COMPLF(LSHIFT(MCBUST(4),IHALF)))\r\n      CALL WRTTRL (MCBUST)\r\n      CALL CLOSE (USET,CLSREW)\r\nC\r\nC     PROCESS USET FOR CONSISTENCY OF DISPLACEMENT SET DEFINITIONS.\r\nC     EACH POINT IN USET MAY BELONG TO AT MOST ONE DEPENDENT SUBSET.\r\nC\r\n      FLAG    = 0\r\n      MASK(1) = MSKUM\r\n      MASK(2) = MSKUS\r\n      MASK(3) = MSKUO\r\n      MASK(4) = MSKUR\r\n      MSKUMS  = ORF(MSKUM,MSKUS)\r\n      MSKUOR  = ORF(MSKUO,MSKUR)\r\n      BUF( 1) = ORF(MSKUS,MSKUOR)\r\n      BUF( 2) = ORF(MSKUM,MSKUOR)\r\n      BUF( 3) = ORF(MSKUR,MSKUMS)\r\n      BUF(4)  = ORF(MSKUO,MSKUMS)\r\n      MSKALL  = ORF(MSKUMS,MSKUOR)\r\n      MSKAL   = ORF(MSKALL,MSKUL)\r\n      DO 1620 I = 1,LUSET\r\n      IUSET = Z(I)\r\n      IDEPN = ANDF(MSKAL,IUSET)\r\n      DO 1580 IK = 1,4\r\n      IF (ANDF(MAK(IK),IDEPN) .EQ. MAK(IK)) GO TO 1600\r\n 1580 CONTINUE\r\n      IDEPN = ANDF(IUSET,MSKALL)\r\n      IF (IDEPN .EQ. 0) GO TO 1620\r\n      DO 1590 J = 1,4\r\n      MSK1 = MASK(J)\r\n      MSK2 = BUF( J)\r\n      IF (ANDF(IDEPN,MSK1) .EQ. 0) GO TO 1590\r\n      IF (ANDF(IDEPN,MSK2) .NE. 0) GO TO 1600\r\n 1590 CONTINUE\r\n      GO TO 1620\r\n 1600 IF (FLAG.NE.0 .OR. IFLAG.NE.0) GO TO 1610\r\n      FILE = SCR1\r\n      CALL OPEN (*2400,SCR1,Z(BUF1),WRTREW)\r\n 1610 BUF(5) = I\r\n      BUF(6) = IDEPN\r\n      FLAG   = 1\r\n      CALL WRITE (SCR1,BUF(5),2,0)\r\n 1620 CONTINUE\r\n 1630 IF (MPCF1.GT.0 .OR. SINGLE.GT.0 .OR. OMIT1.GT.0 .OR.\r\n     1    REACT.GT.0) NOSETS = 1\r\n      IF (MPCF1.EQ.-1 .AND. SINGLE.EQ.-1 .AND. OMIT1.EQ.-1) NOA = -1\r\n      IF (ANDF(MSKUA,MCBUST(5)).NE.0 .OR. OMIT1.LT.0) GO TO 1650\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,1640) UFM\r\n 1640 FORMAT (A23,' 2403, INVALID TO HAVE AN O-SET WITH A NULL A-SET.')\r\n      NOGO = 1\r\n 1650 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 2540\r\n      IF (IFLAG.NE.0 .OR. FLAG.NE.0) GO TO 1920\r\nC\r\nC     RECOMPUTE YS MATRIX TO ACCOUNT FOR SPCD CARDS\r\nC\r\nC\r\n      IF (NOYS.EQ.0 .OR . NOGEOM.EQ.0) GO TO 1910\r\nC     BRING EQEXIN,SIL,AND USET BACK INTO CORE\r\nC\r\n      ASSIGN 1660 TO RET\r\n      GO TO 80\r\n 1660 CALL GOPEN (USET,Z(BUF1),0)\r\n      FILE = USET\r\n      CALL READ (*2410,*1670,USET,Z(KNKL1),BUF4-KNKL1,1,LUSET)\r\n      ICRQ = BUF4\r\n      INSUFF = 9711\r\n      GO TO 2430\r\n 1670 CALL CLOSE (USET,1)\r\nC\r\nC     CONVERT USET POINTERS INTO SILA VALUES\r\nC\r\n      M  = KNKL1\r\n      N  = KNKL1 + LUSET - 1\r\n      IX = 0\r\n      DO 1690 I = M,N\r\n      IF (ANDF(Z(I),MSKUS) .NE. 0) GO TO 1680\r\n      Z(I) = 0\r\n      GO TO 1690\r\n 1680 IX  = IX + 1\r\n      Z(I)= IX\r\n 1690 CONTINUE\r\nC\r\nC     POSITION CASECC\r\nC\r\n      FILE  = CASECC\r\n      ILOAD = N + 1\r\n      ICRQ  = N + 2*NSKP1 + 1 - BUF4\r\n      INSUFF = 977\r\n      IF (ICRQ .GT. 0) GO TO 2430\r\n      CALL GOPEN  (CASECC,Z(BUF1),0)\r\n      CALL SKPREC (CASECC,NSKIP-1)\r\n      DO 1710 I = 1,NSKP1\r\n 1700 CALL FREAD (CASECC,BUF,16,1)\r\n      IF (BUF(16) .NE. 0) GO TO 1700\r\n      K      = ILOAD + 2*(I-1)\r\n      Z(K  ) = BUF(4)\r\n      Z(K+1) = 0\r\n 1710 CONTINUE\r\n      CALL CLOSE (CASECC,CLSREW)\r\nC\r\nC     CONVERT SPCD CARD TO SILA + VALUE AND WRITE ON SCR2\r\nC\r\n      CALL GOPEN (SCR2,Z(BUF2),1)\r\n      FILE = GEOMP\r\n      CALL PRELOC (*2400,Z(BUF1),GEOMP)\r\n      CALL LOCATE (*1830,Z(BUF1),SPCD,FLAG)\r\n      NN    = 2*NSKP1 + ILOAD - 2\r\n      IOLD  = 0\r\n      IRECN = 0\r\n 1720 CALL READ (*2410,*1820,GEOMP,BUF,4,0,FLAG)\r\n      DO 1730 I = ILOAD,NN,2\r\n      IF (BUF(1) .EQ. Z(I)) GO TO 1740\r\n 1730 CONTINUE\r\nC\r\nC     GO ON TO NEXT SET\r\nC\r\n      GO TO 1720\r\nC\r\n 1740 IF (BUF(1) .EQ. IOLD) GO TO 1760\r\n      IF (IOLD .NE. 0) CALL WRITE (SCR2,0,0,1)\r\n      IOLD  = BUF(1)\r\n      IRECN = IRECN + 1\r\n      DO 1750 I = ILOAD,NN,2\r\n      IF (IOLD .EQ. Z(I)) Z(I+1) = IRECN\r\n 1750 CONTINUE\r\n 1760 GPOINT = BUF(2)\r\n      ASSIGN 1770  TO RET\r\n      ASSIGN 2530 TO RET1\r\n      ASSIGN 1720  TO RET2\r\n      ASSIGN 1780 TO RET3\r\n      GO TO 2100\r\nC\r\nC     FOUND SIL\r\nC\r\n 1770 INDEX = 13\r\n      ICOMP = BUF(3)\r\n      GO TO 2300\r\n 1780 IF (ICOMP .NE. 0) GO TO 1790\r\n      M = KNKL1 + GPOINT - 1\r\n      IF (Z(M) .EQ. 0) GO TO 1810\r\n      MCB(1) = Z(M)\r\n      MCB(2) = BUF(4)\r\n      CALL WRITE (SCR2,MCB,2,0)\r\n      GO TO 1720\r\nC\r\nC     BREAK UP COMPONENTS\r\nC\r\n 1790 CALL SCALEX (GPOINT,BUF(3),BUF(8))\r\n      DO 1800 I = 1,6\r\n      IF (BUF(I+7) .EQ. 0) GO TO 1720\r\n      M = KNKL1 + BUF(I+7) - 1\r\n      IF (Z(M) .EQ. 0) GO TO 1810\r\n      MCB(1) = Z(M)\r\n      MCB(2) = BUF(4)\r\n      CALL WRITE (SCR2,MCB,2,0)\r\n 1800 CONTINUE\r\n      GO TO 1720\r\n 1810 N      = 108\r\n      BUF(1) = BUF(2)\r\n      BUF(2) = BUF(I+7) - GPOINT\r\n      GO TO 2520\r\nC\r\nC     END OF SPCD-S\r\nC\r\n 1820 IF (NOGO .NE. 0) GO TO 2540\r\n      CALL WRITE (SCR2,0,0,1)\r\n 1830 CALL CLOSE (GEOMP,1)\r\n      CALL CLOSE (SCR2,1)\r\n      IF (SINGLE .LT. 0) GO TO 1910\r\nC\r\nC     BRING IN OLD YS\r\nC\r\n      N = 2*NSKP1\r\n      DO 1840 I = 1,N\r\n      K = ILOAD + I - 1\r\n 1840 Z(I) = Z(K)\r\n      IOYS = N\r\n      INYS = IOYS + IX\r\n      ICRQ = INYS + IX - BUF4\r\n      INSUFF = 988\r\n      IF (ICRQ .GT. 0) GO TO 2430\r\n      MCB(1) = YS\r\n      CALL RDTRL (MCB)\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL GOPEN (YS,Z(BUF1),0)\r\n      ITB  = MCB(5)\r\n      ITA1 = ITB\r\n      ITB1 = ITB\r\n      INCR = 1\r\n      INCR1= 1\r\n      II   = 1\r\n      II1  = 1\r\n      JJ   = MCB(3)\r\n      JJ1  = JJ\r\n      DO 1850 I = 1,IX\r\n      RZ(IOYS+I) = 0.0\r\n 1850 CONTINUE\r\n      CALL UNPACK (*1860,YS,RZ(IOYS+1))\r\n 1860 CALL CLOSE (YS,CLSREW)\r\n      CALL GOPEN (YS,Z(BUF1),1)\r\n      CALL GOPEN (SCR2,Z(BUF2),0)\r\n      FILE = SCR2\r\n      DO 1900 I = 1,N,2\r\nC\r\nC     COPY OLD YS TO NEW YS\r\nC\r\n      DO 1870 K = 1,IX\r\n      RZ(INYS+K) = RZ(IOYS+K)\r\n 1870 CONTINUE\r\n      IF (Z(I+1) .EQ. 0) GO TO 1890\r\nC\r\nC     POSITION SCR2\r\nC\r\n      CALL SKPREC (SCR2,Z(I+1)-1)\r\n 1880 CALL READ (*2410,*1890,SCR2,BUF,2,0,FLAG)\r\n      K = BUF(1) + INYS\r\n      RZ(K) = BUFR(2)\r\n      GO TO 1880\r\nC\r\nC     PUT OUT COLUMN\r\nC\r\n 1890 CALL PACK (RZ(INYS+1),YS,MCB)\r\n      CALL REWIND (SCR2)\r\n      CALL FWDREC (*2410,SCR2)\r\n 1900 CONTINUE\r\n      CALL CLOSE  (YS,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (SCR2,1)\r\n 1910 IF (NOGO .NE. 0) GO TO 2540\r\n      IF (FLAG .NE. 0) GO TO 1920\r\n      IF (IOGPST .EQ. 1) CALL MESAGE (17,IAUTSP,0)\r\n      RETURN\r\nC\r\nC     INCONSISTENT DISPLACEMENT SET DEFINITIONS--\r\nC     READ EQEXIN AND SIL INTO CORE. FOR EACH INCONSISTANT DEFINITION,\r\nC     LOOK UP EXTERNAL NUMBER AND QUEUE MESSAGE.\r\nC\r\n 1920 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      ASSIGN 1930 TO RET\r\n      GO TO 80\r\n 1930 CALL OPEN (*2400,SCR1,Z(BUF1),RDREW)\r\n      ISIL = KM + 1\r\n      NEQX = KN - 1\r\n      Z(KNKL1) = LUSET + 1\r\n 1940 CALL READ (*2080,*2080,SCR1,BUF(5),2,0,IFLG)\r\n      DO 1950 I = ISIL,KNKL1\r\n      IF (Z(I+1) .GT. BUF(5)) GO TO 1960\r\n 1950 CONTINUE\r\n 1960 INTRNL = I - KM\r\n      KOMP = BUF(5) - Z(I) + 1\r\n      IF (Z(I+1)-Z(I) .EQ. 1) KOMP = 0\r\n      DO 1970 J = 1,NEQX,2\r\n      IF (Z(J+1) .EQ. INTRNL) GO TO 1980\r\n 1970 CONTINUE\r\n 1980 IF (DUP .EQ. 0) GO TO 2070\r\n      IF (IFLAG.EQ.0) GO TO 2070\r\n      CALL PAGE2 (2)\r\n      GO TO (1990,1940,2010,2030), IB6\r\n 1990 IF (KOMP .EQ. 0) GO TO 2000\r\n      NOGO = 1\r\n      WRITE (OUTTAP,2050) UFM,Z(J),KOMP,MSET\r\n      GO TO 1940\r\n 2000 WRITE (OUTTAP,2060) UFM,Z(J),MSET\r\n      NOGO = 1\r\n      GO TO 1940\r\n 2010 IF (KOMP .EQ. 0) GO TO 2020\r\n      WRITE (OUTTAP,2050) UFM,Z(J),KOMP,R\r\n      NOGO = 1\r\n      GO TO 1940\r\n 2020 WRITE (OUTTAP,2060) UFM,Z(J),R\r\n      NOGO = 1\r\n      GO TO 1940\r\n 2030 IF (KOMP .EQ. 0) GO TO 2040\r\n      WRITE (OUTTAP,2050) UFM,Z(J),KOMP,SG\r\n      NOGO = 1\r\n      GO TO 1940\r\n 2040 WRITE (OUTTAP,2060) UFM,Z(J),SG\r\n      NOGO = 1\r\n      GO TO 1940\r\n 2050 FORMAT (A23,' 2152, GRID POINT',I9,' COMPONENT',I3,\r\n     1       ' DUPLICATELY DEFINED IN THE ',A4,5H SET.)\r\n 2060 FORMAT (A23,' 2153, SCALAR POINT',I9,' DUPLICATELY DEFINED IN ',\r\n     1       'THE ',A4,5H SET.)\r\n 2070 BUF(7) = Z(J)\r\n      BUF(8) = KOMP\r\n      IF (ANDF(BUF(6),MSKUM) .NE. 0) BUF(8)= BUF(8) + 10\r\n      IF (ANDF(BUF(6),MSKUS) .NE. 0) BUF(8)= BUF(8) + 100\r\n      IF (ANDF(BUF(6),MSKUO) .NE. 0) BUF(8)= BUF(8) + 1000\r\n      IF (ANDF(BUF(6),MSKUR) .NE. 0) BUF(8)= BUF(8) + 10000\r\n      IF (ANDF(BUF(6),MSKUL) .NE. 0) BUF(8)= BUF(8) + 100000\r\n      CALL MESAGE (30,101,BUF(7))\r\n      GO TO 1940\r\n 2080 IF (DUP   .EQ. 0) GO TO 2090\r\n      IF (IFLAG .EQ. 0) GO TO 2090\r\n      IFLAG = 0\r\n      IF (FLAG .NE. 0) GO TO 1940\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      GO TO 1630\r\n 2090 CALL CLOSE (SCR1,CLSREW)\r\n      GO TO 2540\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE TO PERFORM BINARY SEARCH IN EQEXIN\r\nC     AND CONVERT THE EXTERNAL NUMBER TO A SIL VALUE AND A\r\nC     CORRESPONDING TYPE CODE\r\nC\r\n 2100 KLO = 0\r\n      KHI = KN2\r\n      LASTK = 0\r\n 2110 K = (KLO+KHI+1)/2\r\n      IF (LASTK .EQ. K) GO TO 2150\r\n      LASTK = K\r\n      IF (GPOINT-Z(2*K-1)) 2120,2140,2130\r\n 2120 KHI = K\r\n      GO TO 2110\r\n 2130 KLO = K\r\n      GO TO 2110\r\n 2140 K = 2*K + KN\r\n      IPOINT = GPOINT\r\n      GPOINT = Z(K)/10\r\n      ICODE  = Z(K) - 10*GPOINT\r\n      GO TO RET, (260,630,680,750,970,1050,1770,1170,1220)\r\n 2150 GO TO RET1, (2460,2470,2480,2490,2530)\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE TO SORT THE SCALAR COMPONENTS\r\nC\r\n 2200 DO 2210 II = 1,6\r\n      IF (BUF(II+7) .EQ. 0) GO TO 2220\r\n 2210 CONTINUE\r\n      II = 7\r\n 2220 N  = II - 1\r\n      IF (N .EQ. 0) GO TO RET, (810)\r\n      DO 2240 II = 1,N\r\n      IJK = LUSET + 1\r\n      DO 2230 JJ = II,N\r\n      IF (BUF(JJ+7) .GE. IJK) GO TO 2230\r\n      IJK = BUF(JJ+7)\r\n      JJX = JJ\r\n 2230 CONTINUE\r\n      BUF(JJX+7) = BUF(II+7)\r\n 2240 BUF(II +7) = IJK\r\n      GO TO RET, (810)\r\nC\r\nC     CHECK TO SEE IF GRID AND SCALAR POINTS HAVE BEEN PROPERLY USED\r\nC     ON CONSTRAINT CARDS\r\nC\r\n 2300 IF (ICODE .EQ. 2) GO TO 2320\r\nC\r\nC     GRID POINTS ARE CHECKED HERE\r\nC\r\n      IF (ICOMP .GT. 0) GO TO 2350\r\n      NOGO = 1\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,2310) UFM,IPOINT,CTYPE(INDEX),CTYPE(INDEX+1)\r\n 2310 FORMAT (A23,' 3145, COMPONENT 0 (OR BLANK) SPECIFIED FOR GRID ',\r\n     1       'POINT',I9,4H ON ,2A4,6HCARDS.)\r\n      GO TO 2340\r\nC\r\nC     SCALAR POINTS ARE CHECKED HERE\r\nC\r\n 2320 IF (ICOMP .LE. 1) GO TO 2350\r\n      NOGO = 1\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,2330) UFM,IPOINT,CTYPE(INDEX),CTYPE(INDEX+1)\r\n 2330 FORMAT (A23,' 3146, ILLEGAL COMPONENT SPECIFIED FOR SCALAR POINT',\r\n     1        I9,4H ON ,2A4,6HCARDS.)\r\n 2340 GO TO RET2, (250,620,670,740,960,1020,1720,1160,1210)\r\n 2350 GO TO RET3, (270,640,690,760,980,1060,1780,1180,1230)\r\nC\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 2400 J = -1\r\n      GO TO 2450\r\n 2410 J = -2\r\n      GO TO 2450\r\n 2420 J = -3\r\n      GO TO 2450\r\n 2430 J = -8\r\n      WRITE  (OUTTAP,2440) INSUFF\r\n 2440 FORMAT (/33X,'GP4 INSUFFICIENT CORE AT ',I5)\r\n      FILE = ICRQ\r\n 2450 CALL MESAGE (J,FILE,NAME)\r\n 2460 BUF(1) = GPOINT\r\n      BUF(2) = MPCSET\r\n      N = 48\r\n      GPOINT = 1\r\n      GO TO 2520\r\n 2470 BUF(1) = GPOINT\r\n      GPOINT = 1\r\n      N = 49\r\n      GO TO 2510\r\n 2480 BUF(1) = GPOINT\r\n      GPOINT = 1\r\n      N = 50\r\n      GO TO 2510\r\n 2490 N = 51\r\n 2500 BUF(1) = GPOINT\r\n      BUF(2) = SPCSET\r\n      GPOINT = 1\r\nCWKBNB 3/95 NCL94002\r\n      IF ( L51 .EQ. 0 ) GO TO 2520\r\n      WRITE ( OUTTAP, 9001 ) UWM, 2051, BUF(1), SPCSET\r\n9001  FORMAT( A25,I5,' UNDEFINED GRID POINT ',I6,' IN SINGLE-POINT'\r\n     &,' CONSTRAINT SET ',I8)\r\n      GO TO 2521\r\nCWKBNE 3/95 NCL94002\r\n 2510 BUF(2) = 0\r\n 2520 NOGO   = 1\r\n      CALL MESAGE (30,N,BUF)\r\nCWKBI  3/95 NCL94002\r\n 2521 CONTINUE\r\n      GO TO RET2, (250,620,670,740,960,1020,1720,1160,1210)\r\n 2530 N = 52\r\n      GO TO 2500\r\n 2540 IF (L21+L22.GT.0 .OR. IDSUB.GT.0) CALL GP4PRT (-BUF4)\r\n      J = -37\r\n      GO TO 2450\r\n      END\r\n"
  },
  {
    "path": "mis/gp4prt.f",
    "content": "      SUBROUTINE GP4PRT (IBUF)\r\nC\r\nC     1. PRINTS  DOF VS. DISP. SETS IF DIAG 21 ON.\r\nC     2. PRINTS  DISP. SETS VS. DOF IF DIAG 22 ON.\r\nC     3. CREATES SUBSTRUCTURE COUPLING DATA TABLE.\r\nC\r\nC     IF IBUF IS .LT. 0, SOME FILES MAY NOT BE CLOSED PROPERLY WHEN\r\nC     THIS ROUTINE IS CALLED\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      INTEGER         TITLE(2,8),Z,SYSBUF,ANDF,EQEXIN,ORF,FILE,NAME(3),\r\n     1                D21,D22,MSK(12),IFLG(8),SCR1,ZDUM(10),ZCOM(10),\r\n     2                EREC1,BUF,TWO,UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,\r\n     3                DASH,UPBIT(12),BLANK,TDB204,NAM204(2),TRL(7),\r\n     4                EXFLAG,EXTYPE,SBIT(12),\r\n     5                IFRMAT(32),IIFRMT(2),IAFRMT(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,JUNK(6),NLPP,MTEMP,NPAGE,LINE\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / LUSET,MPCF1,MPCF2,SINGLE,OMIT1,REACT,NSKIP,\r\n     1                REPEAT,NOSETS,NOL,NOA,IDSUB,IAUTSP\r\n      DATA    SCR1  / 301/  , EQEXIN / 103   /, TDB204 / 204 /\r\n      DATA    NAME  / 4HGP4P, 4HRT   , 4H    /\r\n      DATA    IBEGN , IEND  / 4HBEGN , 4HEND /\r\n      DATA    TITLE / 4H    , 4H MPC ,\r\n     2                4H    , 4H SPC ,\r\n     3                4H    , 4HOMIT ,\r\n     4                4HANAL, 4HYSIS ,\r\n     5                4H  SU, 4HPORT ,\r\n     6                4HPERM, 4H SPC ,\r\n     7                4HBDRY, 4H SPC ,\r\n     8                4HAUTO, 4H SPC /\r\n      DATA    BLANK / 1H  /\r\n      DATA    DASH  / 1H- /\r\n      DATA    IFRMAT/ 4H(13X, 4H,I6,, 4H3X,I, 4H8,1X, 4H,A1,, 4HI2,1,\r\n     1                4HX   , 4H,1X,, 4H  I6, 4H,1X,, 4H  I6, 4H,1X,,\r\n     2                4H  I6, 4H,1X,, 4H  I6, 4H,1X,, 4H  I6, 4H,1X,,\r\n     3                4H  I6, 4H,1X,, 4H  I6, 4H,1X,, 4H  I6, 4H,1X,,\r\n     X                4H  I6, 4H,1X,,\r\n     4                4H  I6, 4H,1X,, 4H  I6, 4H,1X,, 4H  I6, 4H)   /\r\n      DATA    IIFRMT/ 4H,1X,, 4H  I6/\r\n      DATA    IAFRMT/ 4H,3X,, 4H  A4/\r\n      DATA    IPRINT/ 0   /\r\nC\r\nC\r\n      CALL SSWTCH (21,D21)\r\n      CALL SSWTCH (22,D22)\r\n      IF (D21.NE.1 .AND. D22.NE.1 .AND. IDSUB.LE.0) RETURN\r\n      IF (IPRINT .EQ. 1) RETURN\r\n      IPRINT  = 1\r\n      NAME(3) = IBEGN\r\n      CALL CONMSG (NAME,3,0)\r\n      BUF  = IABS(IBUF)\r\n      FILE = EQEXIN\r\n      IF (IBUF .LT. 0) CALL CLOSE (EQEXIN,1)\r\n      CALL OPEN (*1220,EQEXIN,Z(BUF),0)\r\n      CALL FWDREC (*1230,EQEXIN)\r\n      CALL FWDREC (*1230,EQEXIN)\r\n      EREC1 = LUSET +1\r\n      CALL READ (*1230,*2900,EQEXIN,Z(EREC1),BUF-EREC1,1,KN)\r\n      GO TO 9001\r\n 2900 CALL CLOSE (EQEXIN,1)\r\n      CALL SORT (0,0,2,2,Z(EREC1),KN)\r\nC\r\n      IF (D21 .NE. 1) GO TO 3000\r\n      KU = 1\r\n      MSK(KU+1 ) = TWO(USB)\r\n      MSK(KU+2 ) = TWO(USG)\r\n      MSK(KU+3 ) = TWO( UL)\r\n      MSK(KU+4 ) = TWO( UA)\r\n      MSK(KU+5 ) = TWO( UF)\r\n      MSK(KU+6 ) = TWO( UN)\r\n      MSK(KU+7 ) = TWO( UG)\r\n      MSK(KU+8 ) = TWO( UR)\r\n      MSK(KU+9 ) = TWO( UO)\r\n      MSK(KU+10) = TWO( US)\r\n      MSK(KU+11) = TWO( UM)\r\n      DO 2910 KU = 1,12\r\n      SBIT(KU) = 0\r\n 2910 CONTINUE\r\n      CALL PAGE1\r\n      LINE = LINE + 2\r\n      WRITE (NOUT,1900) UIM\r\n      LINE = LINE + 4\r\n      WRITE (NOUT,1902)\r\n      I  = EREC1\r\n      KL = 0\r\n      DO 2960 K = 1,KN,2\r\n      ITM = Z(K+I)/10\r\n      ITM = Z(K+I) - 10*ITM\r\n      L   = 6\r\n      IF (ITM .EQ. 2) L = 1\r\n      DO 2950 KK = 1,L\r\n      KL = KL + 1\r\n      IU = Z(KL)\r\n      IP = Z(I+K-1)\r\n      IDOF = KK\r\n      IF (ANDF(MSK(11),IU) .EQ. 0) GO TO 2914\r\n      IF (ANDF(MSK(2),IU).NE.0 .OR. ANDF(MSK(3),IU).NE.0) GO TO 2914\r\n      SBIT(1)   = SBIT(1) + 1\r\n      UPBIT(1)  = SBIT(1)\r\n      IFRMAT(8) = IIFRMT(1)\r\n      IFRMAT(9) = IIFRMT(2)\r\n      GO TO 2916\r\n 2914 UPBIT(1)  = BLANK\r\n      IFRMAT(8) = IAFRMT(1)\r\n      IFRMAT(9) = IAFRMT(2)\r\n 2916 DO 2940 KU = 2,12\r\n      INDEX = 2*(KU-1) + 8\r\n      IF (ANDF(MSK(KU),IU) .EQ. MSK(KU)) GO TO 2920\r\n      UPBIT(KU) = BLANK\r\n      IFRMAT(INDEX  ) = IAFRMT(1)\r\n      IFRMAT(INDEX+1) = IAFRMT(2)\r\n      GO TO 2940\r\n 2920 SBIT (KU) = SBIT(KU) + 1\r\n      UPBIT(KU) = SBIT(KU)\r\n      IFRMAT(INDEX  ) = IIFRMT(1)\r\n      IFRMAT(INDEX+1) = IIFRMT(2)\r\n 2940 CONTINUE\r\n      IF (L .EQ. 1) IDOF = 0\r\n      LINE = LINE + 1\r\n      IF (LINE .LE. NLPP) GO TO 2945\r\n      CALL PAGE1\r\n      WRITE (NOUT,1902)\r\n      LINE = LINE + 5\r\n 2945 WRITE (NOUT,IFRMAT) KL,IP,DASH,IDOF,UPBIT\r\n 2950 CONTINUE\r\n 2960 CONTINUE\r\n      WRITE (NOUT,1901) SBIT\r\n      LINE = LINE + 2\r\nC\r\n 3000 IF (D22.NE.1 .AND. IDSUB.LE.0) RETURN\r\n      MSK(1)  = TWO(UM )\r\n      MSK(2)  = TWO(US )\r\n      MSK(3)  = TWO(UO )\r\n      MSK(4)  = TWO(UA )\r\n      MSK(5)  = TWO(UR )\r\n      MSK(6)  = TWO(USG)\r\n      MSK(7)  = TWO(USB)\r\n      EXFLAG  = 0\r\n      EXTYPE  = 0\r\n      IF (D22 .NE. 1) GO TO 3010\r\n      CALL PAGE1\r\n      LINE = LINE + 2\r\n      WRITE (NOUT,1907) UIM\r\n      LINE = LINE + 4\r\n 3010 FILE = SCR1\r\n      IF (IBUF .LT. 0) CALL CLOSE (SCR1,1)\r\n      CALL OPEN (*1220,SCR1,Z(BUF),1)\r\n      DO 4000 IMK = 1,8\r\n      IFLG(IMK) = 0\r\n      I  = EREC1\r\n      IP = 0\r\n      KL = 0\r\n      DO 3960 K = 1,KN,2\r\n      ITM = Z(K+I)/10\r\n      ITM = Z(K+I) - 10*ITM\r\n      L   = 6\r\n      IF (ITM .EQ. 2) L = 1\r\n      DO 3950 KK = 1,L\r\n      KL = KL + 1\r\n      IU = Z(KL)\r\n      IF (Z(I+K-1) .LT. IP) EXFLAG = 1\r\n      IP = Z(I+K-1)\r\n      IF (L .EQ. 1) GO TO 3920\r\n      IDOF = KK\r\n      EXTYPE = ORF(EXTYPE,2)\r\n      GO TO 3930\r\n 3920 IDOF = 0\r\n      EXTYPE = ORF(EXTYPE,1)\r\n 3930 IF (IMK .NE. 8) GO TO 3940\r\n      IF (ANDF(IU,MSK(2)) .EQ. 0) GO TO 3950\r\n      IF (ANDF(IU,MSK(6)).NE.0 .OR. ANDF(IU,MSK(7)).NE.0) GO TO 3950\r\n      GO TO 3945\r\n 3940 IF (ANDF(IU,MSK(IMK)) .NE. MSK(IMK)) GO TO 3950\r\n 3945 CALL WRITE (SCR1,10*IP+IDOF,1,0)\r\n      IFLG(IMK) = 1\r\n 3950 CONTINUE\r\n 3960 CONTINUE\r\n      IF (IFLG(IMK) .NE. 1) GO TO 4000\r\n      CALL WRITE (SCR1,0,0,1)\r\n 4000 CONTINUE\r\n      CALL WRITE (SCR1,Z(1),LUSET,1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL OPEN  (*1220,SCR1,Z(BUF),0)\r\n      IFLAG = 0\r\n      DO 4500 I = 1,8\r\n      IF (IFLG(I) .NE. 1) GO TO 4500\r\n      IFLAG = IFLAG + 1\r\n      CALL READ (*1230,*4010,SCR1,Z(1),BUF,1,KN)\r\n      CALL PAGE2 (-4)\r\n      WRITE (NOUT,9501) FILE\r\n      GO TO 4600\r\n 4010 CONTINUE\r\n      IF (IDSUB.LE.0 .OR. I.NE.4) GO TO 4040\r\n      CALL CLOSE (SCR1,2)\r\n      FILE = TDB204\r\n      CALL OPEN  (*1220,TDB204,Z(BUF),1)\r\n      CALL FNAME (TDB204,NAM204)\r\n      CALL WRITE (TDB204,NAM204,2,1)\r\n      CALL WRITE (TDB204,Z(1),KN,1)\r\n      CALL CLOSE (TDB204,1)\r\n      TRL(1) = TDB204\r\n      TRL(2) = 0\r\n      TRL(3) = KN\r\n      TRL(4) = 0\r\n      TRL(5) = IDSUB\r\n      TRL(6) = EXFLAG\r\n      TRL(7) = EXTYPE\r\n      CALL WRTTRL (TRL)\r\n      CALL OPEN (*1220,SCR1,Z(BUF),2)\r\n 4040 CONTINUE\r\n      IF (D22 .NE. 1) GO TO 4500\r\n      IPAS = KN/10\r\n      IREM = KN - 10*IPAS\r\n      IF (IFLAG .GT. 1) LINE = NLPP\r\n      ID1  =-9\r\n      INOS = 0\r\n      IF (IPAS .LT. 1) GO TO 4105\r\n      DO 4100 K = 1,IPAS\r\n      DO 4050 J = 1,10\r\n      INOS = INOS + 1\r\n      ZDUM(J) = Z(INOS)/10\r\n      ZCOM(J) = Z(INOS) - 10*ZDUM(J)\r\n 4050 CONTINUE\r\n      LINE = LINE + 1\r\n      IF (IFLAG.EQ.1 .AND. K.EQ.1) GO TO 4060\r\n      IF (LINE .LE. NLPP) GO TO 4090\r\n      CALL PAGE1\r\n 4060 WRITE (NOUT,1910) TITLE(1,I),TITLE(2,I)\r\n      LINE = LINE + 5\r\n 4090 CONTINUE\r\n      ID1 = ID1 + 10\r\n      WRITE (NOUT,1913) ID1,(ZDUM(KK),ZCOM(KK),KK=1,10)\r\n 4100 CONTINUE\r\n 4105 IF (IREM .EQ. 0) GO TO 4500\r\n      DO 4110 J = 1,IREM\r\n      INOS = INOS + 1\r\n      ZDUM(J) = Z(INOS)/10\r\n      ZCOM(J) = Z(INOS) - ZDUM(J)*10\r\n 4110 CONTINUE\r\n      LINE = LINE + 1\r\n      IF (IFLAG.EQ.1 .AND. IPAS.EQ.0) GO TO 4120\r\n      IF (LINE .LE. NLPP) GO TO 4400\r\n      CALL PAGE1\r\n 4120 WRITE (NOUT,1910) TITLE(1,I),TITLE(2,I)\r\n      LINE = LINE + 5\r\n 4400 CONTINUE\r\n      ID1 = ID1 + 10\r\n      WRITE (NOUT,1913) ID1,(ZDUM(KK),ZCOM(KK),KK=1,IREM)\r\n 4500 CONTINUE\r\nC\r\nC     RE-ESTABLISH USET IN OPEN CORE.\r\nC\r\n 4600 CALL READ (*1230,*9001,SCR1,Z(1),LUSET,1,KN)\r\n      CALL CLOSE (SCR1,1)\r\n      NAME(3) = IEND\r\n      CALL CONMSG (NAME,3,0)\r\nC\r\nC     TERMINATE RUN IF DIAG 21 OR 22, AND DIAG 20 ARE REQUESTED BY UESER\r\nC     SIMLUTANEOUSLY\r\nC\r\n      CALL SSWTCH (20,J)\r\n      IF (J.EQ.0 .OR. D21+D22.EQ.0) RETURN\r\n      WRITE  (NOUT,4700)\r\n 4700 FORMAT (10X,25HJOB TERMINATED BY DIAG 20)\r\n      CALL PEXIT\r\nC\r\n 1220 J = -1\r\n      GO TO 1260\r\n 1230 J = -2\r\n 1260 CALL MESAGE (J,FILE,NAME)\r\n      RETURN\r\nC\r\n 1900 FORMAT (A29,' 2118, SUBROUTINE GP4PRT - DIAG 21 SET-DOF VS. DISP',\r\n     1       ' SETS FOLLOWS.')\r\n 1901 FORMAT (1H0, 34H--- C O L U M N   T O T A L S --- , 12I7)\r\n 1902 FORMAT (1H0,14X,5H(SIL), /14X,\r\n     1        48HINT DOF   EXT GP. DOF  SAUTO     SB     SG      ,\r\n     2        49HL      A      F      N      G      R      O      ,\r\n     3         8HS      M, /1H , 131(1H-))\r\n 1907 FORMAT (A29,' 2119, SUBROUTINE GP4PRT - DIAG 22 SET DISP SETS VS',\r\n     1       '. DOF FOLLOWS')\r\n 1910 FORMAT (1H0,52X,2A4,17H DISPLACEMENT SET ,/\r\n     1        1H0,15X,3H-1-,8X,3H-2-,8X,3H-3-,8X,3H-4-,8X,3H-5-,\r\n     2             8X,3H-6-,8X,3H-7-,8X,3H-8-,8X,3H-9-,7X,4H-10- ,/1H )\r\n 1913 FORMAT (1H ,I6,1H=,10(1X,I8,1H-,I1))\r\nC\r\nC     ERRORS\r\nC\r\n 9001 CALL PAGE2(-4)\r\n      WRITE  (NOUT,9501) UWM,FILE\r\n 9501 FORMAT (A25,' 2110, INSUFFICIENT CORE TO HOLD CONTENTS OF GINO ',\r\n     1       'FILE',I4, //5X,\r\n     2       'FURTHER PROCESSING OF THIS DATA BLOCK IS ABANDONED.')\r\nC\r\n      CALL CLOSE (FILE,1)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/gp4sp.f",
    "content": "      SUBROUTINE GP4SP (IBUF1,IBUF2,IBUF3)\r\nC\r\nC     ROUTINE TO LOOK AT GPST TO ELIMINATE SINGULARITIES\r\nC\r\nC\r\n      EXTERNAL        ANDF  ,ORF   ,COMPLF,LSHIFT\r\n      INTEGER         ANDF  ,ORF   ,COMPLF,EQEXIN,GPST  ,OGPST ,SCR2  ,\r\n     1                MCB(7),OMIT1 ,SPCSET,OGPST1(10)\r\n      DIMENSION       IPONTS(9)    ,JPONTS(9)    ,INDXMS(9)    ,\r\n     1                IEXCLD(9)    ,ISUBNM(2)    ,IWORD(8)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM\r\n      COMMON /BLANK / LUSET ,MPCF1 ,MPCF2 ,SINGLE,OMIT1 ,REACT ,NSKIP ,\r\n     1                REPEAT,NOSETS,NOL   ,NOA   ,IDSUB ,IAUTSP\r\n      COMMON /GP4FIL/ DUM(3),IRGT\r\n      COMMON /GP4SPX/ MSKUM ,MSKUO ,MSKUR ,MSKUS ,MSKUL ,\r\n     1                MSKSNG,SPCSET,MPCSET,NAUTO ,IOGPST\r\n      COMMON /OUTPUT/ HEAD(1)\r\n      COMMON /SYSTEM/ ISYSBF,IOUTPT,JDUM(6),NLPP ,KDUM(2),LINE,\r\n     1                DD(78),IPUNCH\r\n      COMMON /UNPAKX/ ITYPOT,IIII  ,JJJJ  ,INCR\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      DATA    EQEXIN, GPST, OGPST, SCR2 /103, 107, 205, 302/\r\n      DATA    ISUBNM /4HGP4S, 4HP       /\r\n      DATA    NCARD,  IERROR / 2*0      /\r\n      DATA    ISCR2,  IEQEXN / 2*-1     /\r\nC\r\nC\r\n      INDEX = IABS (IAUTSP)\r\n      IF (INDEX .GT. 2) GO TO 730\r\n      IF (INDEX.EQ.2 .AND. OMIT1.GT.0) INDEX = 3\r\n      MSKMS = ORF(MSKUM,MSKUS)\r\n      IF (IAUTSP .EQ. 0) GO TO 6\r\n      MULTI = 0\r\n      IF (MPCF1 .EQ. -1) GO TO 6\r\n      MSKIN = LSHIFT(1,12)\r\n      MSKXX = COMPLF(MSKIN)\r\n      CALL GOPEN (IRGT,IZ(IBUF1),0)\r\n      ITYPOT = 1\r\n      IIII   = 1\r\n      JJJJ   = 1\r\n      INCR   = 1\r\n      DO 4 I = 1,LUSET\r\n      CALL UNPACK (*4,IRGT,IDUM)\r\n      IF (ANDF(IZ(I),MSKMS) .NE. 0) GO TO 4\r\n      MULTI = 1\r\n      IZ(I) = ORF(IZ(I),MSKIN)\r\n    4 CONTINUE\r\n      CALL CLOSE (IRGT,1)\r\n    6 CONTINUE\r\n      CALL OPEN (*610,GPST,IZ(IBUF1),0)\r\n      IFILE = GPST\r\n      CALL FWDREC (*700,GPST)\r\nC\r\n   10 CALL READ (*480,*480,GPST,IORDR,1,0,IFLAG)\r\n      INITL = IORDR\r\n      IMS   = 0\r\n      ISPC  = 0\r\n      DO 20 I = 1, 9\r\n      INDXMS(I) = 0\r\n      IEXCLD(I) = 0\r\n      IPONTS(I) = 0\r\n      JPONTS(I) = 0\r\n   20 CONTINUE\r\n      CALL FREAD (GPST,NPTS,1,0)\r\n      CALL FREAD (GPST,IPONTS,NPTS,0)\r\n      IBASE = IPONTS(1)\r\nC\r\nC     SET VARIOUS FLAGS FOR THE SINGULARITIES\r\nC\r\n      DO 30 I = 1,NPTS\r\n      II = IPONTS(I)\r\n      J  = IZ(II)\r\n      IF (ANDF(J,MSKMS) .NE. 0) INDXMS(I) = 1\r\n      IF (IAUTSP        .EQ. 0) GO TO 30\r\n      IF (ANDF(J,MSKUO).NE.0 .AND. ANDF(J,MSKUL).NE.0) GO TO 740\r\n      IF (ANDF(J,MSKUO).NE.0 .AND. ANDF(J,MSKUR).NE.0) GO TO 740\r\n      IF (ANDF(J,MSKUR).NE.0 .AND. ANDF(J,MSKUL).NE.0) GO TO 740\r\n      IF (ANDF(J,MSKUR) .NE. 0) IEXCLD(I) = 1\r\n      IF (MULTI.EQ.0 .OR. INDXMS(I).NE.0) GO TO 25\r\n      IF (ANDF(J,MSKIN) .NE. 0) IEXCLD(I) = 1\r\n   25 IF (INDEX         .LT. 3) GO TO 30\r\n      IF (ANDF(J,MSKUL) .NE. 0) IEXCLD(I) = 1\r\n   30 CONTINUE\r\nC\r\nC     DETERMINE THE ORDER OF SINGULARITY\r\nC\r\n      IF (IORDR-2) 230,260,410\r\nC\r\nC\r\n   40 LOGIC = 100\r\n      IF (ISPC .GT. INITL) GO TO 750\r\n      IF (IEQEXN .EQ.   1) GO TO 60\r\n      IEQEXN = 1\r\nC\r\nC     BRING IN EQEXIN\r\nC\r\n      CALL GOPEN (EQEXIN,IZ(IBUF2),0)\r\n      CALL SKPREC (EQEXIN,1)\r\n      MCB(1) = EQEXIN\r\n      CALL RDTRL (MCB)\r\n      ICORE = LUSET + 2*(MCB(2)+1) - IBUF2\r\n      IF (ICORE .GE. 0) GO TO 720\r\n      IFILE = EQEXIN\r\n      CALL READ (*700,*50,EQEXIN,IZ(LUSET+1),IBUF2-LUSET,0,NEQEXN)\r\n      GO TO 720\r\n   50 CALL CLOSE (EQEXIN,1)\r\n      CALL SORT (0,0,2,2,IZ(LUSET+1),NEQEXN)\r\n      IZ(LUSET+NEQEXN+1) = 0\r\n      IZ(LUSET+NEQEXN+2) = 10*(LUSET+1)\r\n      NEQEXN = NEQEXN + 2\r\nC\r\nC     LOOK UP SIL IN EQEXIN\r\nC\r\n      ISTART = 2\r\n   60 KK = IBASE\r\n      DO 70 I = ISTART,NEQEXN,2\r\n      K = LUSET + I\r\n      ISIL = IZ(K)/10\r\n      IF (KK .LT. ISIL) GO TO 80\r\n   70 CONTINUE\r\n      LOGIC = 110\r\n      GO TO 750\r\nC\r\nC     PICK UP POINT ID AND TYPE (GRID OR SCALAR) FROM EQEXIN\r\nC\r\n   80 IGPID = IZ(K-3)\r\n      ISIL  = IZ(K-2)/10\r\n      ITYP  = IZ(K-2) - 10*ISIL\r\n      ISTART= I - 2\r\n      IF (ITYP .EQ. 1) GO TO 90\r\nC\r\nC     SCALAR POINT\r\nC\r\n      IORDR = 0\r\n      NPTS  = 0\r\nC\r\nC\r\n   90 IF (ISPC .EQ. 0) GO TO 140\r\n      LOGIC = 120\r\n      IF (ITYP.EQ.2 .AND. ISPC.GT.1) GO TO 750\r\n      IF (ITYP  .EQ. 2) JPONTS(1) = 0\r\n      IF (ISCR2 .EQ. 1) GO TO 100\r\n      ISCR2    = 1\r\n      IWORD(1) = SPCSET\r\n      IF (IWORD(1) .LE. 0) IWORD(1) = 1\r\nC\r\nC     INITIALIZE SCR2\r\nC\r\n      CALL GOPEN (SCR2,IZ(IBUF3),1)\r\nC\r\nC     WRITE AUTOMATICALLY GENERATED SPC1 DATA ON SCR2\r\nC\r\n  100 DO 130 I = 1,ISPC\r\n      IF (ITYP      .EQ. 2) GO TO 120\r\n      IF (JPONTS(I) .GT. 0) GO TO 110\r\n      LOGIC = 130\r\n      GO TO 750\r\n  110 JPONTS(I) = JPONTS(I) - ISIL + 1\r\n  120 CALL WRITE (SCR2,JPONTS(I),1,0)\r\n      CALL WRITE (SCR2,IGPID,    1,0)\r\n  130 CONTINUE\r\n      IF (ISPC+IMS .GE. INITL) GO TO 10\r\nC\r\nC\r\n  140 IF (IOGPST .EQ. 1) GO TO 150\r\n      IOGPST = 1\r\nC\r\nC     INITIALIZE OGPST\r\nC\r\n      CALL GOPEN (OGPST,IZ(IBUF2),1)\r\n      OGPST1( 1) = 0\r\n      OGPST1( 2) = 8\r\n      OGPST1( 3) = SPCSET\r\n      OGPST1( 4) = MPCSET\r\n      OGPST1(10) = 12\r\n      CALL WRITE (OGPST,OGPST1, 10,0)\r\n      CALL WRITE (OGPST,IZ,     40,0)\r\n      CALL WRITE (OGPST,HEAD(1),96,1)\r\nC\r\nC     PUT OUT ERROR RECORDS ON OGPST\r\nC\r\n  150 CALL WRITE (OGPST,IGPID,1,0)\r\n      CALL WRITE (OGPST,ITYP ,1,0)\r\n      CALL WRITE (OGPST,IORDR,1,0)\r\n      IORDR = IORDR + 1\r\n      IF (IORDR .EQ. 1) GO TO 180\r\n      DO 170 I = 1,NPTS\r\n      IF (IPONTS(I) .GT. 0) GO TO 160\r\n      LOGIC = 140\r\n      GO TO 750\r\n  160 IPONTS(I) = IPONTS(I) - ISIL + 1\r\n  170 CONTINUE\r\n      LOGIC = 150\r\n      GO TO (750,200,210,220), IORDR\r\nC\r\nC     SCALAR\r\nC\r\n  180 DO 190 I = 1,9\r\n  190 IPONTS(I) = 0\r\n      GO TO 220\r\nC\r\nC     FIRST ORDER OUTPUT\r\nC\r\n  200 IPONTS(4) = IPONTS(2)\r\n      IPONTS(7) = IPONTS(3)\r\n      IPONTS(2) = 0\r\n      IPONTS(3) = 0\r\n      IPONTS(5) = 0\r\n      IPONTS(6) = 0\r\n      IPONTS(8) = 0\r\n      IPONTS(9) = 0\r\n      GO TO 220\r\nC\r\nC     SECOND ORDER OUTPUT\r\nC\r\n  210 IPONTS(8) = IPONTS(6)\r\n      IPONTS(7) = IPONTS(5)\r\n      IPONTS(5) = IPONTS(4)\r\n      IPONTS(4) = IPONTS(3)\r\n      IPONTS(3) = 0\r\n      IPONTS(6) = 0\r\n      IPONTS(9) = 0\r\nC\r\nC     THIRD ORDER OUTPUT\r\nC\r\n  220 CALL WRITE (OGPST,IPONTS,9,0)\r\n      GO TO 10\r\nC\r\nC     FIRST ORDER SINGULARITY\r\nC\r\n  230 DO 240 I = 1,NPTS\r\n      IF (INDXMS(I) .NE. 0) GO TO 10\r\n  240 CONTINUE\r\n      IF (IAUTSP    .EQ. 0) GO TO 40\r\n      DO 250 I = 1,NPTS\r\n      IF (IEXCLD(I) .NE. 0) GO TO 250\r\n      II     = IPONTS(I)\r\n      IZ(II) = MSKSNG\r\n      NAUTO  = NAUTO + 1\r\n      ISPC   = ISPC  + 1\r\n      JPONTS(ISPC) = II\r\n      GO TO 40\r\n  250 CONTINUE\r\n      GO TO 40\r\nC\r\nC     SECOND ORDER SINGULARITY\r\nC\r\n  260 ILOOP = 1\r\n  270 DO 360 I = 1,NPTS,2\r\n      II = IPONTS(I)\r\n      IF (II        .EQ. 0) GO TO 310\r\n      IF (INDXMS(I) .NE. 0) GO TO 280\r\n      IF (ILOOP     .EQ. 1) GO TO 310\r\n      IF (IEXCLD(I) .NE. 0) GO TO 310\r\n      IZ(II) = MSKSNG\r\n      NAUTO  = NAUTO + 1\r\n      ISPC   = ISPC  + 1\r\n      JPONTS(ISPC) = II\r\n      GO TO 290\r\n  280 IMS   = IMS + 1\r\n  290 IORDR = 1\r\n      DO 300 III = 1,NPTS\r\n      IF (IPONTS(III) .EQ. II) IPONTS(III) = 0\r\n  300 CONTINUE\r\n      II = 0\r\n  310 JJ = IPONTS(I+1)\r\n      IF (JJ          .EQ. 0) GO TO 330\r\n      IF (INDXMS(I+1) .NE. 0) GO TO 320\r\n      IF (ILOOP       .EQ. 1) GO TO 360\r\n      IF (IEXCLD(I+1) .NE. 0) GO TO 360\r\n      IZ(JJ) = MSKSNG\r\n      NAUTO  = NAUTO + 1\r\n      ISPC   = ISPC  + 1\r\n      JPONTS(ISPC) = JJ\r\n      GO TO 330\r\n  320 IMS = IMS + 1\r\n  330 IF (II .NE. 0) GO TO 340\r\n      LOGIC = 160\r\n      IF (ISPC+IMS .LT. 2) GO TO 750\r\n      IF (ISPC     .EQ. 0) GO TO 10\r\n      GO TO 380\r\n  340 IORDR = 1\r\n      DO 350 III = 1, NPTS\r\n      IF (IPONTS(III) .EQ. JJ) IPONTS(III) = 0\r\n  350 CONTINUE\r\n  360 CONTINUE\r\n      IF (IAUTSP .EQ. 0) GO TO 370\r\n      IF (ILOOP  .EQ. 2) GO TO 370\r\n      ILOOP = 2\r\n      GO TO 270\r\n  370 IF (IORDR .EQ. 1) GO TO 380\r\n      IF (IORDR .EQ. 2) GO TO 40\r\n      LOGIC = 170\r\n      GO TO 750\r\n  380 IOK = 0\r\n      DO 400 I = 1, NPTS\r\n      IF (IPONTS(I) .EQ. 0) GO TO 400\r\n      IOK = IOK + 1\r\n      IPONTS(IOK) = IPONTS(I)\r\n      IF (IOK .NE.  I) IPONTS(I) = 0\r\n      IF (I .EQ. NPTS) GO TO 400\r\n      II = I + 1\r\n      DO 390 J = II,NPTS\r\n      IF (IPONTS(J) .EQ. 0) GO TO 390\r\n      IF (IPONTS(J) .EQ. IPONTS(IOK)) IPONTS(J) = 0\r\n  390 CONTINUE\r\n  400 CONTINUE\r\n      NPTS = IOK\r\n      IF (NPTS .EQ. 0) GO TO 40\r\nC\r\n      LOGIC = 180\r\n      IF (NPTS .GT. 2) GO TO 750\r\n      LOGIC = 190\r\n      IF (IPONTS(1) .EQ. IPONTS(2)) GO TO 750\r\n      GO TO 40\r\nC\r\nC     THIRD ORDER SINGULARITY\r\nC\r\n  410 IOK = 0\r\n      DO 450 I = 1,NPTS\r\n      IF (INDXMS(I) .NE. 0) GO TO 430\r\n      IF (IAUTSP    .EQ. 0) GO TO 420\r\n      IF (IEXCLD(I) .NE. 0) GO TO 420\r\n      II     = IPONTS(I)\r\n      IZ(II) = MSKSNG\r\n      NAUTO  = NAUTO + 1\r\n      ISPC   = ISPC  + 1\r\n      JPONTS(ISPC) = II\r\n      GO TO 440\r\n  420 IOK = 1\r\n      GO TO 450\r\n  430 IMS   = IMS   + 1\r\n  440 IORDR = IORDR - 1\r\n      IPONTS(I) = 0\r\n  450 CONTINUE\r\n      IF (IOK .EQ. 1) GO TO 460\r\n      LOGIC = 200\r\n      IF (ISPC+IMS .NE. 3) GO TO 750\r\n      IF (ISPC     .EQ. 0) GO TO 10\r\n      GO TO 40\r\n  460 IOK = 0\r\n      DO 470 I = 1,NPTS\r\n      IF (IPONTS(I) .EQ. 0) GO TO 470\r\n      IOK = IOK + 1\r\n      IPONTS(IOK) = IPONTS(I)\r\n      IF (IOK .NE. I) IPONTS(I) = 0\r\n  470 CONTINUE\r\n      NPTS = IOK\r\n      GO TO 40\r\nC\r\n  480 CALL CLOSE (GPST,1)\r\n      IF (IOGPST .NE. 1) GO TO 490\r\n      CALL CLOSE (OGPST,1)\r\n      IF (IERROR .NE. 0) GO TO 490\r\n      CALL MAKMCB (OGPST1,OGPST,0,0,0)\r\n      OGPST1(2) = 8\r\n      CALL WRTTRL (OGPST1)\r\n  490 IF (IAUTSP .EQ. 0) GO TO 610\r\n      IF (NAUTO  .GT. 0) GO TO 500\r\n      LOGIC = 210\r\n      IF (ISCR2  .EQ. 1) GO TO 750\r\n      IF (IOGPST.EQ.1 .AND. INDEX.LT.3) WRITE (IOUTPT,810) UWM\r\n      IF (IOGPST.EQ.1 .AND. INDEX.EQ.3) WRITE (IOUTPT,815) UWM\r\n      GO TO 610\r\n  500 LOGIC = 220\r\n      IF (ISCR2 .NE. 1) GO TO 750\r\n      CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR2,1)\r\n      IF (IERROR .NE. 0) GO TO 610\r\n      IF (IOGPST .NE. 1) WRITE (IOUTPT,800) UIM\r\n      IF (IOGPST .EQ. 1) WRITE (IOUTPT,805) UIM\r\n      IF (IOGPST.EQ.1 .AND. INDEX.LT.3) WRITE (IOUTPT,820) UWM\r\n      IF (IOGPST.EQ.1 .AND. INDEX.EQ.3) WRITE (IOUTPT,825) UWM\r\nC\r\nC     PRINT OUT AND, IF REQUESTED, PUNCH OUT\r\nC     AUTOMATICALLY GENERATED SPC DATA CARDS\r\nC\r\n      CALL GOPEN (SCR2,IZ(IBUF3),0)\r\n      IFILE = SCR2\r\n      CALL READ (*700,*510,SCR2,IZ(LUSET+1),IBUF3-LUSET,0,IFLAG)\r\n      ICORE = LUSET + 2*NAUTO - IBUF3\r\n      GO TO 720\r\n  510 LOGIC = 230\r\n      IF (IFLAG .NE. 2*NAUTO) GO TO 750\r\n      CALL SORT (0,0,2,1,IZ(LUSET+1),IFLAG)\r\n      I    = LUSET + 1\r\n      IOLD = -1\r\n      IST  = I\r\n  520 J = 0\r\n  530 IF (I .GT. LUSET+IFLAG) GO TO 540\r\n      IF (IOLD.GE.0 .AND. IZ(I).NE.IOLD) GO TO 540\r\n      IOLD = IZ(I)\r\n      J = J + 2\r\n      I = I + 2\r\n      GO TO 530\r\n  540 CALL SORT (0,0,2,-2,IZ(IST),J)\r\n      IF (I .GT. LUSET+IFLAG) GO TO 550\r\n      IOLD = IZ(I)\r\n      IST  = I\r\n      GO TO 520\r\nC\r\n  550 I = LUSET + 1\r\n      IOLD = -1\r\n      CALL PAGE1\r\n      WRITE (IOUTPT,830)\r\n      LINE = LINE + 6\r\n  560 II = 2\r\n      DO 570 J = 1,6\r\n      IF (I .GT. LUSET+IFLAG) GO TO 580\r\n      IF (IOLD.GE.0 .AND. IZ(I).NE.IOLD) GO TO 580\r\n      IOLD = IZ(I)\r\n      IWORD(II+1) = IZ(I+1)\r\n      II = II + 1\r\n      I  = I  + 2\r\n  570 CONTINUE\r\n  580 IWORD(2) = IOLD\r\n      IF (LINE .LE. NLPP) GO TO 590\r\n      CALL PAGE1\r\n      WRITE (IOUTPT,830)\r\n      LINE = LINE + 6\r\n  590 NCARD = NCARD + 1\r\n      WRITE (IOUTPT,840) NCARD,(IWORD(J),J=1,II)\r\n      LINE = LINE + 1\r\n      IF (IAUTSP .LT. 0) WRITE (IPUNCH,850) (IWORD(J),J=1,II)\r\n      IF (I .GT. LUSET+IFLAG) GO TO 600\r\n      IOLD = IZ(I)\r\n      GO TO 560\r\n  600 CALL CLOSE (SCR2,1)\r\n  610 IF (IAUTSP.EQ.0 .OR. MULTI.EQ.0) RETURN\r\n      DO 620 I = 1,LUSET\r\n      IZ(I) = ANDF(IZ(I),MSKXX)\r\n  620 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  700 NUM = -2\r\n  710 CALL MESAGE (NUM,IFILE,ISUBNM)\r\n  720 NUM = -8\r\n      IFILE = ICORE\r\n      GO TO 710\r\n  730 IERROR = 1\r\n      WRITE (IOUTPT,870) UWM\r\n      GO TO 480\r\n  740 IERROR = 2\r\n      WRITE (IOUTPT,880) UWM\r\n      GO TO 480\r\n  750 WRITE (IOUTPT,860) SFM,LOGIC\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  800 FORMAT (A29,' 2435, AT USER''S REQUEST, ALL POTENTIAL ',\r\n     1        'SINGULARITIES HAVE BEEN REMOVED BY THE', /5X,\r\n     2        'APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINT'\r\n     3,       'OUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.')\r\n  805 FORMAT (A29,' 2436, AT USER''S REQUEST, ONE OR MORE POTENTIAL ',\r\n     1        'SINGULARITIES HAVE BEEN REMOVED BY THE', /5X,\r\n     2        'APPLICATION OF SINGLE POINT CONSTRAINTS.  REFER TO PRINT'\r\n     3,       'OUT OF AUTOMATICALLY GENERATED SPC1 CARDS FOR DETAILS.')\r\n  810 FORMAT (A25,' 2437A, IN SPITE OF THE USER''S REQUEST, NONE OF ',\r\n     1        'THE POTENTIAL SINGULARITIES HAS BEEN REMOVED', /5X,\r\n     2        'BECAUSE OF THG PRESENCE OF SUPORT CARDS AND/OR MULTI',\r\n     3        'POINT CONSTRAINTS OR RIGID ELEMENTS.', /5X,\r\n     4        'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.')\r\n  815 FORMAT (A25,' 2437A, IN SPITE OF THE USER''S REQUEST, NONE OF ',\r\n     1        'THE POTENTIAL SINGULARITIES HAS BEEN REMOVED', /5X,\r\n     2        'BECAUSE OF THG PRESENCE OF SUPORT CARDS AND/OR MULTI',\r\n     3        'POINT CONSTRAINTS OR RIGID ELEMENTS', /5X,'OR BECAUSE ',\r\n     4        'THE SINGULARITIES ARE NOT PART OF THE OMIT SET (O-SET) ',\r\n     5        'DEGREES OF FREEDOM.', /5X,\r\n     2        'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.')\r\n  820 FORMAT (A25,' 2437, ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT',\r\n     1        ' BEEN REMOVED', /5X,'BECAUSE OF THG PRESENCE OF SUPORT ',\r\n     2        'CARDS AND/OR MULTIPOINT CONSTRAINTS OR RIGID ELEMENTS.',\r\n     2    /5X,'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.')\r\n  825 FORMAT (A25,' 2437, ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT',\r\n     1        ' BEEN REMOVED', /5X,'BECAUSE OF THG PRESENCE OF SUPORT ',\r\n     2        'CARDS AND/OR MULTIPOINT CONSTRAINTS OR RIGID ELEMENTS',\r\n     3        /5X,'OR BECAUSE THE SINGULARITIES ARE NOT PART OF THE ',\r\n     4        'OMIT SET (O-SET) DEGREES OF FREEDOM.', /5X,\r\n     2        'REFER TO THE GRID POINT SINGULARITY TABLE FOR DETAILS.')\r\n  830 FORMAT (//32X, 'A U T O M A T I C A L L Y   ',\r\n     1               'G E N E R A T E D   ',\r\n     2               'S P C 1   C A R D S', /,\r\n     3        16X, 'CARD ',8X, /,\r\n     4        16X, 'COUNT',8X,\r\n     5             '---1--- +++2+++ ---3--- +++4+++ ---5--- ',\r\n     6             '+++6+++ ---7--- +++8+++ ---9--- +++10+++',/)\r\n  840 FORMAT (15X, I5, '-', 8X, 'SPC1    ',8I8)\r\n  850 FORMAT (                  'SPC1    ',8I8)\r\n  860 FORMAT (A25,' 2438, LOGIC ERROR NO.',I4,\r\n     1       ' IN SUBROUTINE GP4SP IN MODULE GP4')\r\n  870 FORMAT (A25,' 2439, ILLEGAL VALUE INPUT FOR PARAMETER AUTOSPC - ',\r\n     1       'SINGULARITY PROCESSING SKIPPED IN MODULE GP4')\r\n  880 FORMAT (A25,' 2440, SINGULARITY PROCESSING SKIPPED IN MODULE GP4',\r\n     1       ' BECAUSE OF INCONSISTENT SET DEFINITION')\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpcyc.f",
    "content": "      SUBROUTINE GPCYC\r\nC\r\nC     GPCYC IS THE GEOMETRY PROCESSOR FOR CYCLIC PROBLEM\r\nC\r\nC     INPUT DATA BLOCKS - GEOM4,EQEXIN,USET\r\nC\r\nC     OUTPUT DATA BLOCKS - CYCD\r\nC\r\nC     PARAMETERS  CTYPE - INPUT,BCD -\r\nC                 NOGO  - OUTPUT--+1 UNLESS ERROR--THEN-1\r\nC\r\nC     SCRATCH FILES (2)\r\nC     DEFINITION OF VARIABLES\r\nC     NZ       OPEN CORE LENGTH\r\nC     NX       ORIGINAL OPEN CORE\r\nC     NENT     NUMBER OF ENTRIES IN EQEXIN\r\nC     ITYP     PROBLEM TYPE (ROT=0 ,OTHERWISE=1)\r\nC     LCYJ     LENGTH OF CJOIN CARDS\r\nC     ISID1    POINTER TO START OF SIDE 1 CZRDS\r\nC     ISID2    POINTER TO START OF SIDE 2 CZRDS\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GEOM4,EQEXIN,USET,CYCD,CTYPE,SYSBUF,FILE,NAME(2),\r\n     1                SCR1,SCR2,REC,CYL,SPH,ROT,CYJOIN(2),IB(5),ANDF,\r\n     2                IBB(4),MCB(7),BLK\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ ISK(6),IUA\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /BLANK / CTYPE(2),NOGO\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(2),NOUT)\r\n      DATA    GEOM4 , EQEXIN,USET,CYCD,SCR1,SCR2,NAME         /\r\n     1        101   , 102   ,103 ,201 ,301 ,302 ,4HGPCY,4HC   /\r\n      DATA    ROT   / 4HROT /,REC,CYL,SPH  / 1HR,1HC,1HS      /\r\n      DATA    CYJOIN/ 5210,52  /\r\n      DATA    NOCY  , NOSID1, ISID1, IBLEN, ICM,  ISAM, NOCNT, NOPAR /\r\n     1        4024  , 4025,   4026,  4027,  4028, 4029, 4030,  4032  /\r\n      DATA    NOEQ  , NCORD    /\r\n     1        4037  , 4039     /\r\n      DATA    MCB   / 7*0/, BLK/ 1H  /\r\nC\r\nC\r\n      NZ   = KORSZ(IZ)\r\n      NOGO = 1\r\nC\r\nC     IBUF1 IS PRELOC BUFFER\r\nC\r\n      IBUF1 = NZ - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      NZ = IBUF2 - 1\r\n      NX = NZ\r\n      IF (NZ .LE. 0) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     PUT  SECOND RECORD OF EQEXIN ITO CORE\r\nC\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,IZ(IBUF1),0)\r\n      CALL FWDREC (*560,EQEXIN)\r\n      CALL READ (*560,*10,EQEXIN,IZ,NZ,0,IFLAG)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 CALL CLOSE (EQEXIN,1)\r\n      NENT = IFLAG/2\r\nC\r\nC     DECIDE ON TYPE\r\nC\r\n      ITYP = 1\r\n      IF (CTYPE(1) .EQ. ROT) ITYP = 0\r\nC\r\nC     FIND  CYJOIN CARDS ON GEOM4\r\nC\r\n      FILE = GEOM4\r\n      CALL PRELOC (*540,IZ(IBUF1),GEOM4)\r\n      CALL LOCATE (*580,IZ(IBUF1),CYJOIN,IDUM)\r\n      NZ = NZ - IFLAG\r\n      K  = IFLAG + 1\r\n      CALL READ (*560,*20,GEOM4,IZ(K),NZ,0,LCYJ)\r\n      CALL MESAGE (-8,0,NAME)\r\n   20 CALL CLOSE (GEOM4,1)\r\n      LCYJ = LCYJ + K - 1\r\n      IF (IZ(K) .EQ. 1) GO TO 40\r\n      WRITE  (NOUT,590) UFM,NOSID1\r\n      WRITE  (NOUT,30)\r\n   30 FORMAT ('0NO SIDE 1 DATA FOUND.')\r\n      GO TO 620\r\n   31 WRITE  (NOUT,590) UFM,NOSID1\r\n      WRITE  (NOUT,32)\r\n   32 FORMAT ('0NO SIDE 2 DATA FOUND.')\r\n      GO TO 620\r\nC\r\nC     FIND SIDE TWO DATA\r\nC\r\n   40 L = K\r\n   50 IF (L .GT. LCYJ) GO TO  31\r\n      IF (IZ(L) .EQ. -1) GO TO 70\r\n   60 L = L + 1\r\n      GO TO 50\r\nC\r\nC     END OF CARD FOUND\r\nC\r\n   70 IF (L+1  .GT. LCYJ) GO TO 31\r\n      IF (IZ(L+1) .EQ. 2) GO TO 90\r\n      IF (ITYP    .EQ. 1) GO TO 60\r\n      WRITE  (NOUT,590) UFM,ISID1\r\n      WRITE  (NOUT,80)\r\n   80 FORMAT ('0TOO MANY SIDE 1 CARDS.')\r\n      GO TO 620\r\nC\r\nC     FOUND SIDE TWO LIST\r\nC\r\n   90 ISID2 = L + 1\r\n      IF (ITYP .NE. 0) GO TO 370\r\nC\r\nC     CHECK LENGTH OF SIDE TWO LIST\r\nC\r\n      NS1 = ISID2 - K - 4\r\n      NS2 = LCYJ - ISID2 - 3\r\n      IF (NS1 .EQ. NS2) GO TO 110\r\n      WRITE  (NOUT,590) UFM,IBLEN\r\n      WRITE  (NOUT,100)\r\n  100 FORMAT ('0NUMBER OF ENTRIES IN SIDE 1 NOT EQUAL TO NUMBER IN ',\r\n     1        'SIDE 2')\r\n      NOGO = -1\r\n      GO TO 620\r\nC\r\nC     BUILD 5 WORDS FOR EACH PAIR\r\nC\r\nC\r\nC     FIVE WORD ENTRY FOR EACH PAIR APPEARS AS FOLLOWS\r\nC\r\nC     1        CODE(1 = GRID   2 = SCALAR)\r\nC     2        INTERNAL INDEX (SIL)      SIDE 1\r\nC     3        GRID ID (EXTERNAL)       SIDE 1\r\nC     4        INTERNAL INDEX (SIL)      SIDE 2\r\nC     5        GRID ID (EXTERNAL)       SIDE 2\r\nC\r\n  110 CALL GOPEN (SCR1,IZ(IBUF1),1)\r\n      L = ISID2 + 3\r\n      K = K + 3\r\n      DO 160 I = 1,NS1\r\n      IF (IZ(K) .NE. IZ(L)) GO TO  130\r\n      WRITE  (NOUT,590) UFM,ISAM\r\n      WRITE  (NOUT,120) IZ(K)\r\n  120 FORMAT ('0GRID POINT',I10,' APPEARS IN BOTH SIDE LISTS.')\r\n      GO TO 620\r\n  130 CONTINUE\r\n      IP = IZ(K)\r\n      CALL BISLOC (*610,IP,IZ(1),2,NENT,M)\r\n      IX1 = IZ(M+1)/10\r\n      IC1 = IZ(M+1) - IX1*10\r\n      IP  = IZ(L)\r\n      CALL BISLOC (*610,IP,IZ(1),2,NENT,M)\r\n      IX2 = IZ(M+1)/10\r\n      IC2 = IZ(M+1) - IX2*10\r\n      IF (IC1 .EQ. IC2) GO TO 150\r\n      WRITE  (NOUT,590) UFM,ICM\r\n      WRITE  (NOUT,140) IZ(K),IZ(L)\r\n  140 FORMAT ('0THE CODE FOR GRID POINT',I10,' DOES NOT MATCH THE CODE',\r\n     1        ' FOR GRID POINT',I10)\r\n      GO TO 620\r\n  150 IB(1) = IC1\r\n      IB(2) = IX1\r\n      IB(3) = IZ(K)\r\n      IB(4) = IX2\r\n      IB(5) = IZ(L)\r\n      CALL WRITE (SCR1,IB,5,0)\r\n      K = K + 1\r\n      L = L + 1\r\n  160 CONTINUE\r\n  170 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     SET UP USET\r\nC\r\n      CALL GOPEN (USET,IZ(IBUF1),0)\r\n      FILE = USET\r\n      NZ   = NX\r\n      CALL READ (*560,*190,USET,IZ,NZ,0,LUSET)\r\n      CALL MESAGE (-8,0,NAME)\r\n  190 CALL CLOSE (USET,1)\r\nC\r\nC     SET UP REDUCED USET TABLE\r\nC\r\n      K = 0\r\n      M = ITWO(IUA)\r\n      DO 220 I = 1,LUSET\r\n      IF (ANDF(IZ(I),M)) 210,200,210\r\n  200 IZ(I) = 0\r\n      GO TO 220\r\n  210 K = K + 1\r\n      IZ(I) = -K\r\n  220 CONTINUE\r\n      LUA = K\r\nC\r\nC     FORM SILA VALUES\r\nC\r\n      FILE = SCR1\r\n      CALL GOPEN (SCR1,IZ(IBUF1),0)\r\n      CALL GOPEN (SCR2,IZ(IBUF2),1)\r\n      IF (ITYP .NE. 0) GO TO  410\r\n  230 CALL READ (*560,*300,SCR1,IB(1),5,0,IFLAG)\r\n      NP = 1\r\n      IF = 0\r\n      IF (IB(1) .EQ. 1) NP = 6\r\n      K = 0\r\n  240 L = IB(2) + K\r\n      M = IB(4) + K\r\nC\r\nC     IF NEITHER IGNORE\r\nC\r\n      IF (IZ(L).EQ.0 .AND. IZ(M).EQ.0) GO TO 280\r\n      IF (IZ(L).LT.0 .AND. IZ(M).LT.0) GO TO 270\r\n      WRITE  (NOUT,250) UWM,NOCNT\r\n  250 FORMAT (A25,I5)\r\n      M = K + 1\r\n      WRITE  (NOUT,260) M,IB(3),IB(5)\r\n  260 FORMAT ('0COMPONENT',I4,' OF GRID POINTS',I10,5H AND ,I10,\r\n     1        ' CANNOT BE CONNECTED.')\r\n      GO TO 280\r\n  270 IF = IF + 1\r\n      IBB(1) = IABS(IZ(L))\r\n      IBB(2) = IB(3)\r\n      IBB(3) = IABS(IZ(M))\r\n      IBB(4) = IB(5)\r\n      CALL WRITE (SCR2,IBB,4,0)\r\n  280 K = K + 1\r\n      IF (K .NE. NP) GO TO 240\r\n      IF (IF .NE. 0) GO TO 230\r\n      WRITE  (NOUT,250) UWM,NOPAR\r\n      WRITE  (NOUT,290) IB(3),IB(5)\r\n  290 FORMAT ('0NO COMPONENTS OF GRID POINTS',I10,5H AND ,I10,\r\n     1        ' WERE CONNECTED.')\r\n      GO TO 230\r\nC\r\nC     CLOSE UP\r\nC\r\n  300 CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCR2,1)\r\nC\r\nC     BUILD CYCD\r\nC\r\n      DO 310 I = 1,LUA\r\n      IZ(I) = 0\r\n  310 CONTINUE\r\n      FILE = SCR2\r\n      CALL GOPEN (SCR2,IZ(IBUF1),0)\r\n      IF (ITYP .NE. 0) GO TO 520\r\n  320 CALL READ (*560,*360,SCR2,IBB,4,0,IFLAG)\r\n      K = IBB(1)\r\n      M = IBB(3)\r\n      IF (IZ(K) .EQ. 0) GO TO 340\r\n      WRITE  (NOUT,590) UFM,NOEQ\r\n      WRITE  (NOUT,330) IBB(2)\r\n  330 FORMAT ('0GRID POINT',I10,' IS LISTED MORE THAN ONCE.')\r\n      NO GO = -1\r\n  340 IF (IZ(M) .EQ. 0) GO TO 350\r\n      WRITE (NOUT,590) UFM,NOEQ\r\n      WRITE (NOUT,330) IBB(4)\r\n      NOGO  = -1\r\n  350 IZ(K) =  M\r\n      IZ(M) = -K\r\n      GO TO  320\r\nC\r\nC     END OF PAIRS\r\nC\r\n  360 CALL CLOSE (SCR2,1)\r\n      CALL GOPEN (CYCD,IZ(IBUF1),1)\r\n      CALL WRITE (CYCD,IZ(1),LUA,1)\r\n      CALL CLOSE (CYCD,1)\r\n      MCB(1) = CYCD\r\n      MCB(2) = ITYP + 1\r\n      MCB(3) = LUA\r\n      CALL WRTTRL (MCB)\r\n      IF (NOGO .NE. -1) RETURN\r\n      GO TO 620\r\nC\r\nC     1. DIHEDRAL TYPE\r\nC\r\nC     BUILD FIVE WORD LIST\r\nC\r\nC\r\nC     FIVE WORD ENTRY FOR EACH POINT IN SIDE 1 OR SIDE TWO LOOKS AS\r\nC         FOLLOWS\r\nC     1        SIDE (1,2)\r\nC     2        COORD SYS (R = 1,C = 1,S = 2,BLANK = 0)\r\nC     3        CODE ( 1 = GRID   2 = SCALAR)\r\nC     4        INTERNAL INDEX (SIL)\r\nC     5        GRID ID (EXTERNAL)\r\nC\r\n  370 L = K\r\n      CALL GOPEN (SCR1,IZ(IBUF1),1)\r\n  380 ICID = IZ(L+1)\r\n      ISID = IZ(L  )\r\n      IF (ICID .EQ. REC) ICID = 1\r\n      IF (ICID .EQ. CYL) ICID = 1\r\n      IF (ICID .EQ. SPH) ICID = 2\r\n      IF (ICID .EQ. BLK) ICID = 0\r\n      L = L + 3\r\n  390 IF (IZ(L) .EQ. -1) GO TO 400\r\n      IP = IZ (L)\r\n      CALL BISLOC (*610,IP,IZ(1),2,NENT,M)\r\n      IB(1) = ISID\r\n      IB(2) = ICID\r\n      IB(4) = IZ(M+1)/10\r\n      IB(3) = IZ(M+1) - IB(4)*10\r\n      IB(5) = IP\r\n      CALL WRITE (SCR1,IB,5,0)\r\n      L = L + 1\r\n      GO TO 390\r\nC\r\nC     END OF LIST\r\nC\r\n  400 IF (L .GE. LCYJ) GO TO 170\r\n      L = L + 1\r\n      GO TO 380\r\nC\r\nC     END OF CYJOIN LISTS\r\nC\r\nC\r\nC     PRODUCE CYCD CODES\r\nC\r\n  410 CALL READ (*560,*300,SCR1,IB(1),5,0,IFLAG)\r\n      NP = 1\r\n      IF (IB(3) .EQ. 1) NP = 6\r\n      IF = 0\r\n      K  = 0\r\n      IF (IB(1) .EQ. 2) IB(1) = IB(1) + 1\r\n  420 L = IB(4) + K\r\n      IF (IZ(L) .EQ. 0) GO TO 500\r\nC\r\nC     POINT IS IN  A SET\r\nC\r\n      IBB(2) = IABS(IZ(L))\r\n      IBB(3) = IB(5)\r\n      IF (IB(3) .EQ. 2) GO TO 480\r\n      IF (IB(2) .EQ. 1) GO TO 440\r\n      IF (IB(2) .EQ. 2) GO TO 460\r\nC\r\nC     COORD SYS = 0\r\nC\r\n      WRITE  (NOUT,590) UFM,NCORD\r\n      WRITE  (NOUT,430) IBB(3)\r\n  430 FORMAT ('0NO COORDINATE SYSTEM DEFINED FOR GRID POINT',I10)\r\n      NOGO = -1\r\n      GO TO 480\r\nC\r\nC     RECTANGULAR OR CYL\r\nC\r\n  440 IF (MOD(K+1,2) .EQ. 1) GO TO 480\r\n  450 M = 1\r\n      GO TO 490\r\nC\r\nC     SPH\r\nC\r\n  460 IF (K.LT.2 .OR. K.EQ.5 .OR. NP.LT.3 .OR. NP.EQ.6) GO TO 480\r\n      GO TO 450\r\nC\r\nC     EVEN\r\nC\r\n  480 M = 0\r\n  490 IBB(1) = IB(1) + M\r\n      IF = IF + 1\r\n      CALL WRITE (SCR2,IBB,3,0)\r\n  500 K = K + 1\r\n      IF (K .NE. NP) GO TO 420\r\n      IF (IF .NE. 0) GO TO 410\r\n      WRITE  (NOUT,250) UWM,NOPAR\r\n      WRITE  (NOUT,510) IB(5)\r\n  510 FORMAT ('0NO COMPONENTS OF GRID POINT',I10,' WERE IN THE A SET')\r\n      GO TO 410\r\nC\r\nC     BUILD CYCD FOR DIH\r\nC\r\n  520 CALL READ (*540,*360,SCR2,IBB,3,0,IFLAG)\r\n      K = IBB(2)\r\n      IF (IZ(K) .EQ. 0) GO TO 530\r\n      WRITE (NOUT,590) UFM,NOEQ\r\n      WRITE (NOUT,330) IBB(3)\r\n      NOGO  = -1\r\n  530 IZ(K) = IBB(1)\r\n      GO TO 520\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  540 IP1 = -1\r\n  550 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  560 IP1 = -2\r\n      GO TO 550\r\n  580 WRITE  (NOUT,590) UFM,NOCY\r\n  590 FORMAT (A23,I5)\r\n      WRITE  (NOUT,600)\r\n  600 FORMAT ('0NO CYJOIN CARDS WERE SUPPLIED.')\r\n      GO TO 620\r\n  610 CALL MESAGE (-30,2,IP)\r\n  620 CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpfdr.f",
    "content": "      SUBROUTINE GPFDR\r\nC\r\nC     GRID-POINT-FORCE-DATA-RECOVERY (MODULE)\r\nC\r\nC     THIS MODULE FORMULATES OFP TYPE OUTPUT DATA BLOCKS OF ELEMENT-\r\nC     STRAIN ENERGYS AND GRID-POINT FORCE BALANCES.\r\nC\r\nC     DMAP CALLING SEQUENCES.\r\nC\r\nC     SOLUTION 1 -\r\nC     GPFDR  CASECC,UGV,KMAT,KDICT,ECT,EQEXIN,GPECT,PG,QG/ONRGY1,OGPF1/\r\nC            *STATICS* $\r\nC     SOLUTION 3 -\r\nC     GPFDR  CASECC,PHIG,KMAT,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,OGPF1/\r\nC            *REIG* $\r\nC\r\nC     COMMENT FROM G.CHAN/UNISYS, 1/88 -\r\nC     FOR MACHINES OF 32 OR 36 BIT WORDS, THE STRAIN ENERGY COMPUTATION\r\nC     (OTHER COMPUTATIONS TOO) MUST BE DONE IN DOUBLE PRECISION. SINCE\r\nC     THE K-MATRIX NORMALLY IN 10**7, AND THE DISPLACEMENT VECTOR IN\r\nC     10**-2 OR 10**-3 RANGE, SINGLE PRECISION COMPUTATION GIVES BAD\r\nC     RESULT.\r\nC\r\n      LOGICAL  DICOUT   ,ENGOUT   ,ENFLAG   ,ANYGP    ,DIAGM    ,ANY   ,\r\n     1         DOUBLE   ,SILIN    ,ENFILE   ,GPFILE   ,EORST4   ,AXIC  ,\r\n     2         AXIF\r\n      INTEGER  Z        ,CASECC   ,SCRT1    ,EOR      ,SYSBUF   ,TITLE ,\r\n     1         NAMES(2) ,TYPOUT   ,UG       ,SCRT2    ,CORE     ,SUBR(2)\r\n     2,        GSIZE    ,ECT      ,SCRT3    ,SYMFLG   ,EXTGP    ,SUBTIT,\r\n     3         BUF(100) ,TRL(7)   ,ONRGY1   ,GPSET    ,POINTS   ,SCRT4 ,\r\n     4         PG       ,QG       ,UGPGQG   ,OLOAD(2) ,OSPCF(2) ,III(2),\r\n     5         ISUM(10) ,SCALE(2) ,KVEC(10) ,CLSEOF   ,RECIDX(3),OUTPT ,\r\n     6         FILE     ,MCB(7)   ,EQEXIN   ,OGPF1    ,ELNSET   ,BRANCH,\r\n     7         RD       ,APP      ,GPECT    ,SET      ,GPDVIS   ,SUBCAS,\r\n     8         RDREW    ,ECTWDS   ,GRDPTS   ,COMPS(32),ELDVIS   ,BUF1  ,\r\n     9         WRT      ,ELTYPE   ,GRID1    ,EXELID   ,DICLOC   ,BUF2  ,\r\n     O         WRTREW   ,ELEM     ,NAME(2)  ,GRIDL    ,IDREC(10),BUF3  ,\r\n     1         CLS      ,PHEAD(3) ,RECID(3) ,GPSIL    ,COMP     ,BUF4  ,\r\n     2         CLSREW   ,ESTID    ,OLDCOD   ,OUT(10)  ,OLDID    ,BUF5  ,\r\n     3         PIVOT    ,EXTID    ,PTR      ,ENTRYS   ,TOTAL    ,BUF6  ,\r\n     5         METHOD(20)\r\n      REAL     RZ(1)    ,RBUF(5)  ,ROUT(10) ,VEC(6)   ,RIDREC(146)     ,\r\n     1         RSUM(10) ,FVEC(10)\r\n      DOUBLE PRECISION   DIII     ,ELENGY   ,TOTENG   ,DZ(1)\r\n      CHARACTER          UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON  /XMSSG /   UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON  /SYSTEM/   SYSBUF   ,OUTPT\r\n      COMMON  /NAMES /   RD       ,RDREW    ,WRT      ,WRTREW  ,CLSREW ,\r\n     1                   CLS      ,CLSEOF\r\n      COMMON  /GPTA1 /   NELEMS   ,LAST     ,INCR     ,ELEM(1)\r\n      COMMON  /UNPAKX/   TYPOUT   ,IROW     ,NROW     ,INCRX\r\n      COMMON  /ZNTPKX/   A(4)     ,IROWX    ,IEOL\r\n      COMMON  /ZZZZZZ/   Z(1)\r\n      COMMON  /BLANK /   APP(2)\r\n      EQUIVALENCE        (Z(1),RZ(1),DZ(1)) ,(BUF(1),RBUF(1)),\r\n     1                   (OUT(1),ROUT(1))   ,(NAME1,NAMES(1)),\r\n     2                   (NAME2,NAMES(2))   ,(IDREC(1),RIDREC(1)),\r\n     3                   (DIII,III(1))      ,(ISUM(1),RSUM(1)),\r\n     4                   (KVEC(1),FVEC(1))\r\n      DATA     ENOEOR,   EOR / 0,1/   ,  LBUF/100/, SUBR/4HGPFD,4HR    /\r\n      DATA     CASECC,   UG, KMAT,KDICT,ECT,EQEXIN,GPECT,PG, QG        /\r\n     1         101   ,   102,103, 104,  105,106,   107,  108,109       /\r\n      DATA     ONRGY1,   OGPF1,SCRT1,SCRT2,SCRT3,SCRT4  ,LAMA          /\r\n     1         201   ,   202,  301,  302,  303,  304,    108           /\r\n      DATA     METHS /   10/, OLOAD/4HAPP-,4HLOAD/, OSPCF/4HF-OF,4H-SPC/\r\n      DATA     SCALE /   5, 0/, ISUM  / 0,0,4H*TOT,4HALS*,0,0,0,0,0,0  /\r\n      DATA     METHOD/   4HSTAT,4HICS , 4HREIG,4HEN  , 4HDS0 ,4H       ,\r\n     1                   4HDS1 ,4H    , 4HFREQ,4H    , 4HTRAN,4HSNT    ,\r\n     2                   4HBKL0,4H    , 4HBKL1,4H    , 4HCEIG,4HEN     ,\r\n     3                   4HPLA ,4H    /\r\nC\r\nC     CASE CONTROL POINTERS\r\nC\r\n      DATA     TITLE ,   SUBTIT, LABEL        / 39, 71,103             /\r\n      DATA     ISYM  ,   IGP,IELN,ILSYM,ISUBC / 16,167,170,200,1       /\r\nC\r\nC     DETERMINE APPROACH\r\nC\r\n      N = 2*METHS - 1\r\n      DO 10 I = 1,N,2\r\n      IF (APP(1) .EQ. METHOD(I)) GO TO 40\r\n   10 CONTINUE\r\n      WRITE  (OUTPT,30) UWM,APP\r\n   30 FORMAT (A25,' 2342, UNRECOGNIZED APPROACH PARAMETER ',2A4,\r\n     1       ' IN GPFDR INSTRUCTION.')\r\n      I = 19\r\n      NERROR = 0\r\n      GO TO 1810\r\nC\r\n   40 BRANCH = (I+1)/2\r\nC\r\nC     INITIALIZATION AND BUFFER ALLOCATION.\r\nC\r\n      CORE = KORSZ(Z)\r\n      BUF1 = CORE - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      BUF4 = BUF3 - SYSBUF - 2\r\n      BUF5 = BUF4 - SYSBUF - 2\r\n      BUF6 = BUF5 - SYSBUF - 2\r\n      CORE = BUF6 - 1\r\nC\r\nC     READ IN FREQUENCIES IF APPROACH IS REIGEN\r\nC\r\n      IF (BRANCH .NE. 2) GO TO 70\r\n      MODE = 0\r\n      CALL OPEN (*70,LAMA,Z(BUF1),RDREW)\r\n      CALL FWDREC (*60,LAMA)\r\n      CALL FWDREC (*60,LAMA)\r\n      LFEQ = CORE\r\n   50 CALL READ (*60,*60,LAMA,BUF,7,0,IWORDS)\r\n      RZ(CORE) = RBUF(5)\r\n      CORE = CORE - 1\r\n      GO TO 50\r\n   60 CALL CLOSE (LAMA,CLSREW)\r\nC\r\nC     GPTA1 DUMMY ELEMENT SETUP CALL.\r\nC\r\n   70 CALL DELSET\r\n      NERROR = 1\r\n      IF (CORE) 1800,1800,80\r\nC\r\nC     OPEN CASE CONTROL\r\nC\r\n   80 FILE = CASECC\r\n      NERROR = 2\r\n      CALL OPEN (*1760,CASECC,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1770,CASECC)\r\nC\r\nC     OPEN VECTOR FILE.\r\nC\r\n      FILE = UG\r\n      CALL OPEN (*1760,UG,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1770,UG)\r\n      TRL(1) = UG\r\n      CALL RDTRL (TRL)\r\n      GSIZE = TRL(3)\r\nC\r\nC     PREPARE OUTPUT BLOCKS FOR ANY OUTPUTS POSSIBLE\r\nC\r\n      ENFILE = .FALSE.\r\n      CALL OPEN (*90,ONRGY1,Z(BUF3),WRTREW)\r\n      ENFILE = .TRUE.\r\n      CALL FNAME (ONRGY1,NAME)\r\n      CALL WRITE (ONRGY1,NAME,2,EOR)\r\n      CALL CLOSE (ONRGY1,CLSEOF)\r\n      MCB(1) = ONRGY1\r\n      CALL RDTRL (MCB)\r\n      MCB(2) = 0\r\n      CALL WRTTRL (MCB)\r\nC\r\n   90 GPFILE = .FALSE.\r\n      NERROR = 4\r\n      CALL OPEN (*100,OGPF1,Z(BUF3),WRTREW)\r\n      GPFILE = .TRUE.\r\n      CALL FNAME (OGPF1,NAME)\r\n      CALL WRITE (OGPF1,NAME,2,EOR)\r\n      CALL CLOSE (OGPF1,CLSEOF)\r\nC\r\n  100 MOVEPQ = 1\r\n      SILIN  = .FALSE.\r\n      TRL(1) = EQEXIN\r\n      CALL RDTRL (TRL)\r\n      POINTS = TRL(2)\r\n      ISILEX = 1\r\n      NSILEX = 2*POINTS\r\n      NERROR = 5\r\n      IF (NSILEX .GT. CORE) GO TO 1800\r\n      ICCZ = NSILEX\r\n      ICC  = ICCZ + 1\r\n      GO TO 120\r\nC\r\nC     OPEN CASECC AND UGV WITH NO REWIND\r\nC\r\n  110 FILE   = CASECC\r\n      NERROR = 8\r\n      CALL OPEN (*1760,CASECC,Z(BUF1),RD)\r\n      FILE = UG\r\n      CALL OPEN (*1760,UG,Z(BUF2),RD)\r\nC\r\nC     READ NEXT CASE CONTROL RECORD.\r\nC\r\n  120 CALL READ (*1750,*130,CASECC,Z(ICCZ+1),CORE-ICCZ,EOR,IWORDS)\r\n      NERROR = 7\r\n      GO TO 1800\r\nC\r\n  130 NCC    = ICCZ + IWORDS\r\n      ITEMP  = ICCZ + ISUBC\r\n      SUBCAS = Z(ITEMP)\r\nC\r\nC     SYMMETRY-REPCASE, GP-FORCE REQUEST, AND EL-ENERGY REQUEST CHECKS\r\nC\r\n      ITEMP  = ICCZ + ISYM\r\n      SYMFLG = Z(ITEMP)\r\nC\r\nC     SET REQUEST PARAMETERS FOR GP-FORCE AND EL-ENERGY.\r\nC\r\n      ITEMP  = ICCZ + IGP\r\n      GPSET  = Z(ITEMP)\r\n      IF (.NOT.GPFILE) GPSET = 0\r\n      GPDVIS = Z(ITEMP+1)\r\n      ITEMP  = ICCZ + IELN\r\n      ELNSET = Z(ITEMP)\r\n      IF (.NOT. ENFILE) ELNSET = 0\r\n      ELDVIS = Z(ITEMP+1)\r\n      IF (GPSET.LE.0 .AND. ELNSET.LE.0) GO TO 170\r\nC\r\nC     POINTERS TO SET LIST DOMAINS\r\nC\r\n      ITEMP = ICCZ + ILSYM\r\n      LSYM  = Z(ITEMP)\r\n      ITEMP = ITEMP + LSYM + 1\r\n  140 SET   = Z(ITEMP)\r\n      ISET  = ITEMP + 2\r\n      LSET  = Z(ITEMP+1)\r\nC\r\nC     CHECK IF THIS SET IS THE ONE FOR GP-FORCE\r\nC\r\n      IF (SET .NE. GPSET) GO TO 150\r\n      IGPLST = ISET\r\n      LGPLST = LSET\r\nC\r\nC     CHECK IF THIS SET IS THE ONE FOR EL-ENERGY\r\nC\r\n  150 IF (SET .NE. ELNSET) GO TO 160\r\n      IELLST = ISET\r\n      LELLST = LSET\r\nC\r\n  160 ITEMP = ISET + LSET\r\n      IF (ITEMP .LT. NCC) GO TO 140\r\nC\r\nC     IS THIS A REPCASE.  IF SO BACK-RECORD UG (REP-CASE OK ONLY FOR\r\nC                                               STATICS)\r\nC\r\n  170 IF (SYMFLG) 180,190,190\r\nC\r\nC     NEGATIVE SYMFLG IMPLIES A REP-CASE.\r\nC\r\n  180 IF (APP(1) .NE. METHOD(1)) GO TO 120\r\nC\r\nC     REP-CASE AND STATICS APPROACH THUS POSITION BACK ONE\r\nC     VECTOR ON UG UNLESS THERE IS NO REQUEST FOR GP-FORCE OR\r\nC     EL-ENERGY TO BEGIN WITH.\r\nC\r\n      IF (GPSET.EQ.0 .AND. ELNSET.EQ.0) GO TO 120\r\n      CALL BCKREC (UG)\r\n      MOVEPQ = MOVEPQ - 1\r\n      GO TO 210\r\nC\r\nC     NOT A REP-CASE BUT STILL IF THERE IS NO REQUEST FOR\r\nC     GP-FORCE OR EL-ENERGY POSITION OVER VECTORS ASSOCIATED\r\nC     WITH THIS CASE.\r\nC\r\n  190 IF (GPSET.NE.0 .OR. ELNSET.NE.0) GO TO 210\r\n      IF (SYMFLG) 120,200,120\r\nC\r\nC     NOT A SYMMETRY CASE (WHICH WOULD USE VECTORS ALREADY READ, THUS\r\nC     SKIP A VECTOR ASSOCIATED WITH THIS CASE.\r\nC\r\n  200 NERROR = 8\r\nCIBMD 6/93 CALL FWDREC (*1770,UG)\r\nCIBMNB 6/93\r\nC MAJOR LOOP OF MODULE TERMINATES WITH ENDING OF CASE CONTROL OR\r\nC END OF EIGENVECTORS COMPUTED.  IF MODES CARD IS USED AND SPECIFIES\r\nC MORE MODES THAN WERE COMPUTED, THEN THE FOLLOWING WILL TERMINATE\r\nC THE LOOP.  (SEE DEMO T03011A WHICH COMPUTED 4 EIGENVALUES BUT HAD\r\nC A MODES CARD SPECIFYING 5 MODES)\r\n      CALL FWDREC (*1750,UG)\r\nCIBMNE\r\n      MOVEPQ = MOVEPQ + 1\r\n      GO TO 120\r\nC\r\nC  BRING VECTOR INTO CORE, BRANCH IF SYMMETRY CASE.\r\nC\r\n  210 IVEC   = NCC + 1\r\n      IVECZ  = NCC\r\n      NVEC   = IVECZ + GSIZE\r\n      NERROR = 9\r\n      IF (NVEC .GT. CORE) GO TO 1800\r\n      ASSIGN 320 TO IRETRN\r\n      UGPGQG = UG\r\n  220 IF (SYMFLG) 230,230,260\r\nC\r\n  230 IROW   = 1\r\n      NROW   = GSIZE\r\n      INCRX  = 1\r\n      TYPOUT = 1\r\n      CALL UNPACK (*240,UGPGQG,RZ(IVEC))\r\n      GO TO 310\r\nC\r\nC     NULL VECTOR (SET VECTOR SPACE TO ZERO)\r\nC\r\n  240 DO 250 I = IVEC,NVEC\r\n      RZ(I) = 0.0\r\n  250 CONTINUE\r\n      GO TO 310\r\nC\r\nC     SYMMETRY SEQUENCE.  SUM VECTORS OF SEQUENCE APPLYING COEFFICIENTS.\r\nC\r\n  260 ITEMP = ICCZ + ILSYM\r\n      LSYM  = Z(ITEMP)\r\nC\r\nC     BACK UP OVER THE VECTORS OF THE SEQUENCE\r\nC\r\n      DO 270 I = 1,LSYM\r\n      CALL BCKREC (UGPGQG)\r\n  270 CONTINUE\r\nC\r\n      DO 280 I = IVEC,NVEC\r\n      RZ(I) = 0.0\r\n  280 CONTINUE\r\nC\r\n      DO 300 I = 1,LSYM\r\n      ITEMP = ITEMP + 1\r\n      COEF  = RZ(ITEMP)\r\nC\r\nC     SUM IN COEF*VECTOR(I)\r\nC\r\n      CALL INTPK (*300,UGPGQG,0,1,0)\r\n  290 CALL ZNTPKI\r\n      J = IVECZ + IROWX\r\n      RZ(J) = RZ(J) + COEF*A(1)\r\n      IF (IEOL) 300,290,300\r\n  300 CONTINUE\r\n  310 GO TO IRETRN, (320,1460)\r\nC\r\nC     AT THIS POINT VECTOR IS IN CORE ALONG WITH THE CASE CONTROL RECORD\r\nC\r\nC     NOW START ECT PASS.  IN THIS PASS GP-FORCES REQUESTED WILL BE\r\nC     WRITTEN TO PMAT (A SCRATCH SET ACTUALLY=SCRT1), AND BY THE GINO\r\nC     DIRECT-ACCESS METHOD.  ALSO EL-ENERGY OUTPUTS WILL BE FORMED FOR\r\nC     ANY REQUESTED ELEMENTS.\r\nC\r\nC     NOTE.  THE ASSEMBLY OF GP-FORCES FOR OUTPUT IS ACCOMPLISHED AFTER\r\nC     ALL GP-FORCES REQUESTED HAVE BEEN WRITTEN TO PMAT.\r\nC\r\n  320 CALL CLOSE (CASECC,CLS)\r\n      CALL CLOSE (UG,CLS)\r\n      IF (SILIN) GO TO 370\r\nC\r\nC     GET SECOND RECORD OF EQEXIN INTO CORE AND TRANSFER CODES FROM\r\nC     SILS TO EXTERNALS AND THEN INSURE SORT ON SILS.\r\nC\r\n      NERROR = 6\r\n      FILE   = EQEXIN\r\n      CALL OPEN (*1760,EQEXIN,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1770,EQEXIN)\r\n      CALL FWDREC (*1770,EQEXIN)\r\n      CALL READ (*1770,*350,EQEXIN,Z(ISILEX),CORE-ISILEX,NOEOR,IWORDS)\r\n  330 WRITE  (OUTPT,340) SWM,EQEXIN\r\n  340 FORMAT (A27,' 2343.  DATA BLOCK',I5,' IS EITHER NOT -EQEXIN- OR ',\r\n     1        'POSSIBLY INCORRECT.')\r\n      GO TO 1810\r\nC\r\n  350 IF (IWORDS .NE. 2*POINTS) GO TO 330\r\n      CALL CLOSE (EQEXIN,CLSREW)\r\n      DO 360 I = ISILEX,NSILEX,2\r\n      Z(I  ) = 10*Z(I) + MOD(Z(I+1),10)\r\n      Z(I+1) = Z(I+1)/10\r\n  360 CONTINUE\r\n      SILIN  = .TRUE.\r\n      CALL SORT (0,0,2,2,Z(ISILEX),NSILEX-ISILEX+1)\r\nC\r\nC     SET UP OFP ID RECORD WITH TITLE, SUBTITLE, AND LABEL.\r\nC\r\n  370 ITIT = ICCZ + TITLE\r\n      ISUB = ICCZ + SUBTIT\r\n      ILAB = ICCZ + LABEL\r\n      DO 380 I = 1,32\r\n      IDREC(I+ 50) = Z(ITIT)\r\n      IDREC(I+ 82) = Z(ISUB)\r\n      IDREC(I+114) = Z(ILAB)\r\n      ITIT = ITIT + 1\r\n      ISUB = ISUB + 1\r\n      ILAB = ILAB + 1\r\n  380 CONTINUE\r\n      DO 390 I = 1,50\r\n      IDREC(I) = 0\r\n  390 CONTINUE\r\n      FILE   = ECT\r\n      NERROR = 10\r\n      CALL OPEN (*1760,ECT,Z(BUF4),RDREW)\r\n      FILE = KMAT\r\n      CALL OPEN (*1760,KMAT,Z(BUF5),RDREW)\r\nC\r\nC     DETERMINE PRECISION OF KMAT DATA\r\nC\r\n      MCB(1) = KMAT\r\n      CALL RDTRL (MCB)\r\n      DOUBLE = .FALSE.\r\n      IF (MCB(2) .EQ. 2) DOUBLE = .TRUE.\r\n      FILE = KDICT\r\n      CALL OPEN (*1760,KDICT,Z(BUF6),RDREW)\r\n      CALL FWDREC (*1770,KDICT)\r\nC\r\nC     PMAT WILL BE ON SCRATCH1\r\nC     PDICT WILL BE ON SCRATCH2\r\nC\r\n      FILE   = SCRT1\r\n      NERROR = 11\r\n      CALL OPEN (*1760,SCRT1,Z(BUF1),WRTREW)\r\n      FILE = SCRT2\r\n      CALL OPEN (*1760,SCRT2,Z(BUF2),WRTREW)\r\nC\r\nC     REQUESTED OUTPUT ELEMENT ENERGIES WILL BE TEMPORARILY WRITTEN ON\r\nC     SCRT3 WHILE THE TOTAL ENERGY IS SUMMED.\r\nC\r\n      FILE   = SCRT3\r\n      IF (ELNSET .NE. 0) CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW)\r\n      NEXTGP = 1\r\n      LASTID = 0\r\n      OLDCOD = 0\r\n      TOTENG = 0.0D0\r\n      ESTID  = 0\r\n      AXIC   = .FALSE.\r\n      AXIF   = .FALSE.\r\nC\r\nC     ECT PASS OF ALL ELEMENT TYPES PRESENT.\r\nC\r\nC     DETERMINE NEXT ELEMENT TYPE TO FIND ON ECT AND THEN FIND ITS\r\nC     TYPE IN ECT.\r\nC\r\n  400 FILE = KDICT\r\n      NERROR = 12\r\n      CALL READ (*990,*1780,KDICT,RECID,3,NOEOR,IWORDS)\r\n      KT = RECID(1)\r\nC\r\nC           CCONAX       CTRIAAX       CTRAPAX\r\n      IF (KT.EQ.35 .OR. KT.EQ.70 .OR. KT.EQ.71) AXIC = .TRUE.\r\nC         CFLUID2/3/4  AND CFMASS\r\n      IF (KT.GE.43 .AND. KT.LE.46) AXIF = .TRUE.\r\nC         CAXIF2/3/4 AND CSLOT3/4\r\n      IF (KT.GE.47 .AND. KT.LE.51) AXIF = .TRUE.\r\nC\r\n      FILE = ECT\r\n      CALL FWDREC (*1770,ECT)\r\n  410 CALL READ (*1770,*1780,ECT,RECIDX,3,NOEOR,IWORDS)\r\nC     2147483647 = 2**31-1\r\n      IF (RECIDX(1) .EQ. 2147483647) GO TO 1770\r\n      DO 440 I = 1,LAST,INCR\r\n      IF (ELEM(I+3) .NE. RECIDX(1)) GO TO 440\r\n      ELTYPE = (I/INCR) + 1\r\n      ECTWDS = ELEM(I+5)\r\n      IF (ECTWDS .LE. LBUF) GO TO 430\r\n      WRITE  (OUTPT,420) SWM,ELEM(I),ELEM(I+1)\r\n  420 FORMAT (A27,' 2344. GPFDR FINDS ELEMENT = ',2A4,' HAS AN ECT ',\r\n     1        'ENTRY LENGTH TOO LONG FOR A PROGRAM LOCAL ARRAY.')\r\n      GO TO 1810\r\nC\r\n  430 GRDPTS= ELEM(I+ 9)\r\n      GRID1 = ELEM(I+12)\r\n      NAME1 = ELEM(I   )\r\n      NAME2 = ELEM(I+ 1)\r\n      GO TO 470\r\n  440 CONTINUE\r\nC\r\nC     UNRECOGNIZED ELEMENT DATA ON ECT.\r\nC\r\n      WRITE  (OUTPT,450) SWM,RECIDX\r\n  450 FORMAT (A27,' 2345.  GPFDR FINDS AND IS IGNORING UNDEFINED ECT ',\r\n     1        'DATA WITH LOCATE NUMBERS = ',3I8)\r\n      FILE = ECT\r\nC\r\nC     PASS THIS ECT RECORD BUT KEEP ESTID COUNTER IN SYNC.\r\nC\r\n  460 CALL READ (*1770,*410,ECT,BUF,ECTWDS,NOEOR,IWORDS)\r\n      ESTID = ESTID + 1\r\n      GO TO 460\r\nC\r\n  470 IF (ELTYPE .NE. RECID(1)) GO TO 460\r\n      FILE  = KDICT\r\n      LDICT = RECID(2)\r\n      IF (RECID(3) .EQ. GRDPTS) GO TO 500\r\n  480 WRITE  (OUTPT,490) SWM,ELTYPE,KDICT\r\n  490 FORMAT (A27,' 2346.  GPFDR FINDS DATA FOR EL-TYPE =',I9,\r\n     1       ' IN DATA BLOCK',I9, /5X,\r\n     2        'NOT TO BE IN AGREEMENT WITH THAT WHICH IS EXPECTED.')\r\n      GO TO 1810\r\nC\r\n  500 IKDIC  = NVEC + 1\r\n      NKDIC  = NVEC + LDICT\r\n      DICOUT = .FALSE.\r\n      ENGOUT = .FALSE.\r\nC\r\nC     ALLOCATE A P-DICTIONARY FOR THE ELEMENTS GP-FORCE VECTOR\r\nC     CONTRIBUTION.  CONTENTS = ESTID, EXT-EL.-ID, GINO-LOCS (GRDPTS)\r\nC\r\n      IPDIC = NKDIC + 1\r\n      NPDIC = IPDIC + GRDPTS + 1\r\n      LPDIC = GRDPTS + 2\r\n      NERROR= 13\r\n      IF (NPDIC .GT. CORE) GO TO 1800\r\n      ILOC1 = NKDIC - GRDPTS\r\n      PHEAD(1) = ELTYPE\r\n      PHEAD(2) = LPDIC\r\n      PHEAD(3) = GRDPTS\r\nC\r\nC     LOOP IS NOW MADE ON THE ELEMENT ENTRIES OF THIS ELEMENT TYPE.\r\nC\r\n      NEXTEN = 1\r\nC\r\nC     READ NEXT ELEMENT DICTIONARY FROM KDICT OF CURRENT ELEMENT TYPE\r\nC     AND FIND ECT ENTRY WITH SAME ESTID.\r\nC\r\n  510 FILE = KDICT\r\n      CALL READ (*1770,*980,KDICT,Z(IKDIC),LDICT,NOEOR,IWORDS)\r\n      FILE = ECT\r\n      NERROR = 14\r\n  520 CALL READ (*1770,*1780,ECT,BUF,ECTWDS,NOEOR,IWORDS)\r\n      ESTID = ESTID + 1\r\n      IF (Z(IKDIC)-ESTID) 480,530,520\r\nC\r\nC     DECODE THE CODE WORD INTO A LIST OF INTEGERS\r\nC\r\n  530 IF (Z(IKDIC+3) .EQ. OLDCOD) GO TO 540\r\n      OLDCOD = Z(IKDIC+3)\r\n      CALL DECODE (OLDCOD,COMPS,NCOMPS)\r\n      NCOMP2 = NCOMPS\r\n      IF (DOUBLE) NCOMP2 = NCOMPS + NCOMPS\r\nC\r\nC     DETERMINE ACTIVE CONNECTIONS\r\nC\r\n  540 NSIZE  = Z(IKDIC+2)\r\n      NGRIDS = NSIZE / NCOMP2\r\n      IF (NGRIDS .LE. GRDPTS) GO TO 560\r\n      WRITE  (OUTPT,550) UWM,BUF(1)\r\n  550 FORMAT (A25,' 2347.  GPFDR FINDS TOO MANY ACTIVE CONNECTING GRID',\r\n     1       ' POINTS FOR ELEMENT ID =',I9)\r\n      GO TO 1810\r\nC\r\nC     ELEMENT ONLY DISPLACEMENT AND LOAD SPACE.\r\nC\r\n  560 IUGE = NPDIC + 1\r\n      IF (DOUBLE ) IUGE = IUGE/2 + 1\r\n      NUGE = IUGE + NSIZE - 1\r\n      IPGE = NUGE + 1\r\n      NPGE = NUGE + NSIZE\r\n      IF (NPGE .GT. CORE) GO TO 1800\r\nC\r\nC     ECT ENTRY AND K-DICTIONARY ENTRY NOW AT HAND.\r\nC\r\nC     SET FLAG IF EL-ENERGY IS TO BE OUTPUT FOR THIS ELEMENT.\r\nC\r\n      EXELID    = BUF(1)\r\n      Z(IPDIC)  = ESTID\r\n      Z(IPDIC+1)= EXELID\r\n      ENFLAG    = .FALSE.\r\n      IF (AXIC) EXELID = MOD(EXELID,10000  )\r\n      IF (AXIF) EXELID = MOD(EXELID,1000000)\r\n      IF (ELNSET) 580,590,570\r\nC\r\nC     FIND THIS EXTERNAL ELEMENT ID IN THE REQUESTED SET LIST FOR\r\nC     ELEMENT ENERGY OUTPUTS.\r\nC\r\n  570 CALL SETFND (*590,Z(IELLST),LELLST,EXELID,NEXTEN)\r\n  580 ENFLAG = .TRUE.\r\n  590 GRIDL  = GRID1 + GRDPTS - 1\r\nC\r\nC     REORDER ECT CONNECTION LIST ACCORDING TO SIL SEQUENCE.\r\nC\r\n      J = GRID1 - 1\r\n  600 J = J + 1\r\n      IF (J .GE. GRIDL) GO TO 620\r\n      GPSIL = ISILEX + 2*BUF(J) - 1\r\n      LSIL  = Z(GPSIL)\r\n      I = J\r\n  610 I = I + 1\r\n      IF (I .GT. GRIDL) GO TO 600\r\n      GPSIL = ISILEX + 2*BUF(I) - 1\r\n      ISIL  = Z(GPSIL)\r\n      IF (ISIL .GT. LSIL) GO TO 610\r\n      LSIL   = BUF(J)\r\n      BUF(J) = BUF(I)\r\n      BUF(I) = LSIL\r\n      LSIL   = ISIL\r\n      GO TO 610\r\nC\r\nC     NOW SET INTERNAL GRID POINT ID-S IN THE ECT ENTRY NEGATIVE IF THEY\r\nC     ARE TO HAVE THEIR GP-FORCE BALANCE OUTPUT.\r\nC\r\n  620 ANYGP = .FALSE.\r\n      IF (GPSET .EQ. 0) GO TO 670\r\n      DO 660 I = GRID1,GRIDL\r\n      IF (BUF(I)) 660,660,630\r\n  630 IF (GPSET ) 650,660,640\r\n  640 IDX = ISILEX + 2*BUF(I)\r\n      ID  = Z(IDX-2)/10\r\n      IF (AXIC) ID = MOD(ID,1000000)\r\n      IF (AXIF) ID = MOD(ID,500000 )\r\n      IF (ID .LT. LASTID) NEXTGP = 1\r\n      LASTID = ID\r\n      CALL SETFND (*660,Z(IGPLST),LGPLST,ID,NEXTGP)\r\n  650 BUF(I) = -BUF(I)\r\n      ANYGP  = .TRUE.\r\n  660 CONTINUE\r\nC\r\nC     IF NO GRID POINTS OF THIS ELEMENT WERE FLAGGED AND THERE IS\r\nC     NO POTENTIAL OF ANY ELEMENT ENERGY OUTPUTS THEN SKIP THIS ELEMENT\r\nC     AT THIS POINT.\r\nC\r\n  670 IF (.NOT.ANYGP .AND. ELNSET.EQ.0) GO TO 510\r\nC\r\nC     BUILD A NON-EXPANDED ELEMENT DISPLACEMENT VECTOR AT THIS TIME.\r\nC\r\n      J = IUGE\r\n      DO 720 I = GRID1,GRIDL\r\n      IF (BUF(I)) 680,720,690\r\n  680 GPSIL = ISILEX - 2*BUF(I) - 1\r\n      GO TO 700\r\n  690 GPSIL = ISILEX + 2*BUF(I) - 1\r\n  700 ISIL  = Z(GPSIL)\r\n      DO 710 K = 1,NCOMPS\r\n      LSIL  = ISIL + COMPS(K)\r\n      DZ(J) = DBLE(RZ(IVECZ+LSIL))\r\n      J = J + 1\r\n  710 CONTINUE\r\n  720 CONTINUE\r\nC\r\n      IF (J-1 .EQ. NUGE) GO TO 740\r\n      WRITE  (OUTPT,730) SWM,BUF(1)\r\n  730 FORMAT (A27,' 2348.  GPFDR DOES NOT UNDERSTAND THE MATRIX-',\r\n     1        'DICTIONARY ENTRY FOR ELEMENT ID =',I9)\r\n      GO TO 1810\r\nC\r\nC     TOTAL ELEMENT FORCE VECTOR IS NOW COMPUTED.\r\nC\r\n  740 DO 750 I = IPGE,NPGE\r\n      DZ(I) = 0.0D0\r\n  750 CONTINUE\r\nC\r\n      JSIZE = NSIZE\r\n      IKMAT = NPGE  + 1\r\n      IF (.NOT.DOUBLE) GO TO 760\r\n      JSIZE = JSIZE + NSIZE\r\n      IKMAT = NPGE*2+ 1\r\n  760 NKMAT = IKMAT + JSIZE - 1\r\n      IF (NKMAT .GT. CORE) GO TO 1800\r\n      DIAGM = .FALSE.\r\n      IF (Z(IKDIC+1) .EQ. 2) DIAGM = .TRUE.\r\nC\r\nC     LOOP THROUGH ALL PARTITIONS ON KMAT FOR THIS ELEMENT.\r\nC\r\n      JPGE = IPGE\r\n      DO 870 I = 1,GRDPTS\r\n      ITEMP = ILOC1 + I\r\n      IF (Z(ITEMP)) 770,870,770\r\n  770 CALL FILPOS (KMAT,Z(ITEMP))\r\n      IF (DIAGM) GO TO 830\r\nC\r\nC     FULL MATRIX.  READ COLUMNS OF ROW-STORED VERETICAL PARTITION.\r\nC\r\n      NERROR = 16\r\n      DO 820 K = 1,NCOMPS\r\n      CALL READ (*1770,*1780,KMAT,Z(IKMAT),JSIZE,NOEOR,IWORDS)\r\n      JKMAT = IKMAT\r\n      IF (DOUBLE) GO TO 790\r\n      DO 780 J = IUGE,NUGE\r\n      DZ(JPGE) = DZ(JPGE) + DZ(J)*DBLE(RZ(JKMAT))\r\n      JKMAT = JKMAT + 1\r\n  780 CONTINUE\r\n      GO TO 810\r\nC\r\n  790 DO 800 J = IUGE,NUGE\r\n      III(1) = Z(JKMAT  )\r\n      III(2) = Z(JKMAT+1)\r\n      DZ(JPGE) = DZ(JPGE) + DZ(J)*DIII\r\n      JKMAT = JKMAT + 2\r\n  800 CONTINUE\r\nC\r\n  810 JPGE = JPGE + 1\r\n  820 CONTINUE\r\n      GO TO 870\r\nC\r\nC     DIAGONAL MATRIX.  THUS ONLY DIAGONAL TERMS OF PARTITION CAN\r\nC     BE READ.\r\nC\r\n  830 NERROR = 17\r\n      CALL READ (*1770,*1780,KMAT,Z(IKMAT),NCOMP2,NOEOR,IWORDS)\r\n      IF (DOUBLE) GO TO 850\r\nC\r\n      DO 840 J = 1,NCOMPS\r\n      DZ(JPGE) = DZ(IUGE+J-1)*DBLE(RZ(IKMAT+J-1))\r\n      JPGE = JPGE + 1\r\n  840 CONTINUE\r\n      GO TO 870\r\nC\r\n  850 JKMAT = IKMAT\r\n      DO 860 J = 1,NCOMPS\r\n      III(1) = Z(JKMAT)\r\n      III(2) = Z(JKMAT+1)\r\n      DZ(JPGE) = DZ(IUGE+J-1)*DIII\r\n      JKMAT = JKMAT + 2\r\n      JPGE  = JPGE + 1\r\n  860 CONTINUE\r\nC\r\n  870 CONTINUE\r\nC\r\nC     ENERGY COMPUTATION IS NOW MADE IF NECESSARY.\r\nC\r\nC       U   =  0.5(PG ) X (UG )\r\nC        T           E         E\r\nC\r\nC\r\n      IF (ELNSET) 880,900,880\r\n  880 JPGE  = IPGE\r\n      ELENGY= 0.0D0\r\n      DO 890 I = IUGE,NUGE\r\n      ELENGY= ELENGY + DZ(I)*DZ(JPGE)\r\n      JPGE  = JPGE + 1\r\n  890 CONTINUE\r\nC\r\nC     NOTE, TOTAL ENERGY WILL BE DIVIDED BY 2.0 LATER.\r\nC\r\n      TOTENG = TOTENG + ELENGY\r\nC\r\nC     WRITE THIS ELEMENTS ENERGY ON SCRT3 FOR LATER OUTPUT IF REQUESTED.\r\nC\r\n      IF (.NOT. ENFLAG) GO TO 900\r\n      OUT (1) = BUF(1)\r\n      ROUT(2) = SNGL(ELENGY)*0.50\r\n      IF (.NOT.ENGOUT) CALL WRITE (SCRT3,NAMES,2,NOEOR)\r\n      CALL WRITE (SCRT3,OUT,2,NOEOR)\r\n      ENGOUT  = .TRUE.\r\nC\r\nC     GRID POINT FORCE BALANCE OUTPUTS FOR REQUESTED GIRD POINTS.\r\nC\r\n  900 IF (.NOT. ANYGP) GO TO 970\r\nC\r\nC     EXPAND TO 6X1 FROM PGE EACH GRID POINT FORCE TO BE OUTPUT.\r\nC\r\nC     FORCES COMPUTED FOR COMPONENTS OTHER THAN 1 THRU 6 ARE NOT\r\nC     NOW OUTPUT FROM MODULE GPFDR...  FUTURE ADDITIONAL CAPABLILITY.\r\nC     OFP MODS NEEDED AT THAT TIME.\r\nC\r\n      JPGE   = IPGE\r\n      DICLOC = IPDIC + 2\r\n      DO 910 I = DICLOC,NPDIC\r\n      Z(I) = 0\r\n  910 CONTINUE\r\n      DO 960 I = GRID1,GRIDL\r\n      IF (BUF(I)) 930,960,920\r\nC\r\nC     THIS GRID POINT NOT IN GP-FORCE BALANCE REQUEST LIST.\r\nC\r\n  920 JPGE = JPGE + NCOMPS\r\n      DICLOC = DICLOC + 1\r\n      GO TO 960\r\nC\r\nC     OK THIS GRID POINT GETS OUTPUT.\r\nC\r\n  930 DO  940 J = 1,6\r\n      VEC(J) = 0.0\r\n  940 CONTINUE\r\n      DO 950 J = 1,NCOMPS\r\n      COMP = COMPS(J)\r\n      IF (COMP .LE. 5) VEC(COMP+1) =-SNGL(DZ(JPGE))\r\n      JPGE = JPGE + 1\r\n  950 CONTINUE\r\nC\r\n      CALL WRITE  (SCRT1,VEC,6,EOR)\r\n      CALL SAVPOS (SCRT1,Z(DICLOC))\r\n      DICLOC = DICLOC + 1\r\n  960 CONTINUE\r\nC\r\nC     OUTPUT THE DICTIONARY\r\nC\r\n      IF (.NOT.DICOUT) CALL WRITE (SCRT2,PHEAD,3,NOEOR)\r\n      CALL WRITE (SCRT2,Z(IPDIC),LPDIC,NOEOR)\r\n      DICOUT = .TRUE.\r\nC\r\nC     GO FOR NEXT ELEMENT OF CURRENT TYPE.\r\nC\r\n  970 GO TO 510\r\nC\r\nC     END OF ELEMENT ENTRIES OF CURRENT ELEMENT TYPE.\r\nC     COMPLETE RECORDS IN PDIC, AND SCRT3=EL-ENERGY.\r\nC\r\n  980 IF (DICOUT) CALL WRITE (SCRT2,0,0,EOR)\r\n      IF (ENGOUT) CALL WRITE (SCRT3,0,0,EOR)\r\nC\r\nC     GO FOR NEXT ELEMENT TYPE\r\nC\r\n      GO TO 400\r\nC\r\nC     END OF ALL ELEMENT DATA ON ECT (WRAP UP PHASE I OF GPFDR).\r\nC\r\n  990 CALL CLOSE (KMAT,CLSREW)\r\n      CALL CLOSE (KDICT,CLSREW)\r\n      CALL CLOSE (ECT,CLSREW)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      CALL CLOSE (SCRT2,CLSREW)\r\n      CALL CLOSE (SCRT3,CLSREW)\r\nC\r\nC     PREPARE AND WRITE THE ELEMENT ENERGY OUTPUTS NOW RESIDENT ON SCRT3\r\nC\r\n      IF (ELNSET .EQ. 0) GO TO 1050\r\nC\r\nC     OFP ID RECORD DATA\r\nC     DEVICE, OFP-TYPE, TOTAL ENERGY, SUBCASE, ELEMENT NAME, WORDS\r\nC     PER ENTRY.\r\nC\r\n      IDREC( 1) = 10*BRANCH + ELDVIS\r\n      IDREC( 2) = 18\r\n      RIDREC(3) = SNGL(TOTENG)*0.50\r\n      IDREC( 4) = SUBCAS\r\n      IDREC(10) = 3\r\nC\r\nC     IF APPROACH IS REIG, PUT MODE NO. AND FREQ. INTO IDREC, 8 AND 9\r\nC     WORDS\r\nC\r\n      IF (BRANCH .NE. 2) GO TO 1000\r\n      RIDREC(9) = RZ(LFEQ-MODE)\r\n      MODE      = MODE + 1\r\n      IDREC( 8) = MODE\r\nC\r\n 1000 NERROR = 22\r\n      FILE = ONRGY1\r\n      CALL OPEN (*1760,ONRGY1,Z(BUF2),WRT)\r\n      FILE = SCRT3\r\n      CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW)\r\nC\r\nC     TOTENG FACTOR FOR MULTIPLICATION TO GET DECIMAL PERCENTAGE BELOW\r\nC\r\n      IF (TOTENG .NE. 0.0D0) TOTENG = 200.0D0/TOTENG\r\nC\r\nC     READ ELEMENT NAME INTO IDREC RECORD.\r\nC\r\n      JTYPE = 0\r\n 1010 CALL READ  (*1040,*1780,SCRT3,IDREC(6),2,NOEOR,IWORDS)\r\n      CALL WRITE (ONRGY1,IDREC,146,EOR)\r\n 1020 CALL READ  (*1770,*1030,SCRT3,BUF,2,NOEOR,IWORDS)\r\n      JTYPE  = JTYPE + 1\r\n      BUF(1) = 10*BUF(1) + ELDVIS\r\n      RBUF(3)= RBUF(2)*SNGL(TOTENG)\r\n      CALL WRITE (ONRGY1,BUF,3,NOEOR)\r\n      GO TO 1020\r\nC\r\n 1030 CALL WRITE (ONRGY1,0,0,EOR)\r\n      GO TO 1010\r\nC\r\n 1040 CALL CLOSE (ONRGY1,CLSEOF)\r\n      MCB(1) = ONRGY1\r\n      CALL RDTRL (MCB)\r\n      MCB(2) = MCB(2) + JTYPE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (SCRT3,CLSREW)\r\n      IDREC(3) = 0\r\n      IDREC(6) = 0\r\n      IDREC(7) = 0\r\nC\r\nC     A GRID-POINT-FORCE-BALANCE-OUTPUT-MAP IS NOW CONSTRUCTED. (GPFBOM)\r\nC\r\nC     CONTENTS...  1 LOGICAL RECORD FOR EACH GRID POINT TO BE OUTPUT\r\nC     ===========\r\nC\r\nC     REPEATING 4       * EXTERNAL-ELEMENT-ID\r\nC     WORD ENTRIES     *  ELEMENT NAME FIRST 4H\r\nC     OF THE CON-      *  ELEMENT NAME LAST  4H\r\nC     NECTED ELEMENTS   * GINO-LOC OF THE 6X1 FORCE VECTOR CONTRIBUTION\r\nC\r\nC     FOR EACH RECORD WRITTEN ABOVE, A 3-WORD ENTRY IS WRITTEN TO A\r\nC     COMPANION DICTIONARY FILE GIVING,\r\nC\r\nC                      *  1-THE EXTERNAL GRID POINT ID\r\nC     REPEATING ENTRY *   2-THE GINO-LOC TO THE ABOVE RECORD\r\nC                      *  3-THE NUMBER OF ENTRIES IN THE RECORD\r\nC\r\nC\r\nC     ALLOCATE A TABLE WITH AN ENTRY FOR EACH ELEMENT TYPE.\r\nC     POSSIBLE IN IT.  EACH ENTRY TO HAVE 3 WORDS.\r\nC\r\nC     ENTRY I =      1= PTR TO DICTIONARY DATA FOR ELEMENT TYPE-I\r\nC     *********      2= LENGTH OF DICTIONARY DATA\r\nC                    3= NUMBER OF ENTRIES\r\nC\r\n 1050 IF (GPSET .EQ. 0) GO TO 110\r\n      IDTAB = NCC + 1\r\n      NDTAB = IDTAB + NELEMS*3 - 1\r\n      JDICTS= NDTAB + 1\r\n      IF (JDICTS .GT. CORE) GO TO 1800\r\n      DO 1060 I = IDTAB,NDTAB\r\n      Z(I) = 0\r\n 1060 CONTINUE\r\nC\r\nC     READ IN DICTIONARIES OF PMAT VECTORS.  (SCRT2)\r\nC\r\n      FILE = SCRT2\r\n      CALL OPEN (*1760,SCRT2,Z(BUF2),RDREW)\r\nC\r\nC     READ AN ELEMENT TYPE HEADER (FIRST 3-WORDS OF EACH RECORD)\r\nC\r\n 1070 CALL READ (*1090,*1780,SCRT2,BUF,3,NOEOR,IWORDS)\r\n      ITYPE = BUF(1)\r\n      LDICT = BUF(2)\r\n      GRDPTS= BUF(3)\r\n      K     = INCR*ITYPE - INCR\r\n      J     = IDTAB + 3*ITYPE - 3\r\n      Z(J)  = JDICTS\r\nC\r\nC     BLAST READ IN THE DICTIONARIES OF THIS TYPE.\r\nC\r\n      CALL READ (*1770,*1080,SCRT2,Z(JDICTS),CORE-JDICTS,NOEOR,IWORDS)\r\n      NERROR = 18\r\n      GO TO 1800\r\nC\r\n 1080 Z(J+1) = IWORDS\r\n      Z(J+2) = IWORDS/LDICT\r\n      JDICTS = JDICTS + IWORDS\r\n      NERROR = 19\r\n      IF (CORE-JDICTS) 1800,1800,1070\r\nC\r\n 1090 CALL CLOSE (SCRT2,CLSREW)\r\nC\r\nC     DICTIONARIES ALL IN CORE.  SCRT2 IS AVAILABLE FOR USE AS THE\r\nC     -GPFBOM-.\r\nC\r\n      NDICTS = JDICTS - 1\r\nC\r\nC     PASS THE -GPECT- AND BUILD THE -GPFBOM- (ON SCRT2) AND ITS\r\nC     COMPANION DICTIONARY FILE (ON SCRT3).\r\nC\r\n      FILE = SCRT2\r\n      CALL OPEN (*1760,SCRT2,Z(BUF2),WRTREW)\r\n      FILE = SCRT3\r\n      CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW)\r\nC\r\n      FILE = GPECT\r\n      CALL OPEN (*1760,GPECT,Z(BUF4),RDREW)\r\n      CALL FWDREC (*1770,GPECT)\r\n      OLDID = 0\r\n      NEXT  = 1\r\nC\r\nC     READ PIVOT HEADER DATA FROM -GPECT- RECORD.\r\nC\r\n 1100 CALL READ (*1240,*1780,GPECT,BUF,2,NOEOR,IWORDS)\r\n      PIVOT = BUF(1)\r\nC\r\nC     CONVERT SIL TO EX-ID\r\nC\r\n      CALL BISLOC (*1200,PIVOT,Z(ISILEX+1),2,POINTS,J)\r\n      J = ISILEX + J - 1\r\n      EXTID = Z(J)/10\r\n      IDEXT = EXTID\r\n      IF (AXIC) IDEXT = MOD(EXTID,1000000)\r\n      IF (AXIF) IDEXT = MOD(EXTID,500000 )\r\n      NENTRY = 0\r\nC\r\nC     CHECK FOR OUTPUT REQUEST THIS EX-ID\r\nC\r\n      IF (GPSET) 1120,1220,1110\r\n 1110 IF (IDEXT .LT. OLDID) NEXT = 1\r\n      OLDID = IDEXT\r\n      CALL SETFND (*1220,Z(IGPLST),LGPLST,IDEXT,NEXT)\r\nC\r\nC     YES GP-FORCE BALANCE FOR PIVOT IS TO BE OUTPUT.\r\nC\r\nC     PROCESS ALL ELEMENTS CONNECTING THIS PIVOT.\r\nC\r\n 1120 CALL READ (*1770,*1230,GPECT,LENGTH,1,NOEOR,IWORDS)\r\n      LENGTH = IABS(LENGTH)\r\n      IF (LENGTH .LE. LBUF) GO TO 1140\r\n      WRITE  (OUTPT,1130) SWM,PIVOT,GPECT\r\n 1130 FORMAT (A27,' 2349.  GPFDR FINDS AN ELEMENT ENTRY CONNECTING ',\r\n     1       'PIVOT SIL =',I9,' ON DATA BLOCK',I5, /5X,\r\n     2       'TOO LARGE FOR A LOCAL ARRAY. ENTRY IS BEING IGNORED.')\r\n      CALL READ (*1770,*1780,GPECT,0,-LENGTH,NOEOR,IWORDS)\r\n      GO TO 1120\r\nC\r\nC     LOCATE ELEMENT FORCE DICTIONARY FOR THIS ELEMENT ENTRY.\r\nC\r\n 1140 CALL READ (*1770,*1780,GPECT,BUF,LENGTH,NOEOR,IWORDS)\r\n      KTYPE = BUF(2)*3 - 3 + IDTAB\r\n      PTR   = Z(KTYPE)\r\n      LDICTS= Z(KTYPE+2)\r\n      IF (LDICTS .EQ. 0) GO TO 1180\r\n      N = Z(KTYPE+1)\r\n      CALL BISLOC (*1180,BUF(1),Z(PTR),N/LDICTS,LDICTS,J)\r\n      J = PTR + J\r\n      OUT(1) = Z(J)\r\nC\r\nC     FOUND DICTIONARY.  DETERMINE GINO-LOC TO USE.\r\nC\r\n      DO 1150 I = 3,LENGTH\r\n      J = J + 1\r\n      IF (BUF(I).EQ.PIVOT .AND. Z(J).GT.0) GO TO 1170\r\n 1150 CONTINUE\r\n      WRITE  (OUTPT,1160) SWM,PIVOT,OUT(1),GPECT\r\n 1160 FORMAT (A27,' 2350.  GPFDR CANNOT FIND PIVOT SIL =',I10, /5X,\r\n     1       'AMONG THE SILS OF ELEMENT ID =',I9,\r\n     2       ' AS READ FROM DATA BLOCK',I5,',  ENTRY THUS IGNORED.')\r\n      GO TO 1120\r\nC\r\n 1170 K = BUF(2)*INCR - INCR\r\n      OUT(2) = ELEM(K+1)\r\n      OUT(3) = ELEM(K+2)\r\n      OUT(4) = Z(J)\r\nC\r\nC     GINO-LOC IN P-DICTIONARY NO LONGER NEEDED, THUS SET IT NEGATIVE\r\nC     TO AVOID RE-USE IN CASE WHERE AN ELEMENT CONNECTS SAME GRID MORE\r\nC     THAN ONCE.\r\nC\r\n      Z(J) = -Z(J)\r\nC\r\nC     OUTPUT THE 4-WORD ENTRY TO -GPFBOM-\r\nC\r\n      CALL WRITE (SCRT2,OUT,4,NOEOR)\r\nC\r\nC     INCREMENT COUNTS\r\nC\r\n      NENTRY = NENTRY + 1\r\nC\r\nC     GET THE NEXT ELEMENT ENTRY.\r\nC\r\n      GO TO 1120\r\nC\r\nC     HERE WHEN PMAT DICTIONARY MISSING FOR AN ELEMENT\r\nC     CONNECTED TO A GRID POINT TO HAVE GP-FORCE BALANCE OUTPUT.\r\nC\r\n 1180 KKK = BUF(2)*INCR - INCR\r\n      WRITE  (OUTPT,1190) UIM,ELEM(KKK+1),ELEM(KKK+2),EXTID\r\n 1190 FORMAT (A29,' 2351. A FORCE CONTRIBUTION  DUE TO ELEMENT TYPE = ',\r\n     1       2A4,', ON POINT ID =',I10, /5X,\r\n     2       'WILL NOT APPEAR IN THE GRID-POINT-FORCE-BALANCE SUMMARY.')\r\n      GO TO 1120\r\nC\r\nC     SIL NOT FOUND IN LIST OF SILS, OR NOT REQUESTED.\r\nC\r\n 1200 WRITE  (OUTPT,1210) SWM,PIVOT,GPECT\r\n 1210 FORMAT (A27,' 2352.  GPFDR IS NOT ABLE TO FIND PIVOT SIL =',I10,\r\n     1       ' AS READ FROM DATA BLOCK',I5, /5X,'IN TABLE OF SILS.')\r\nC\r\n 1220 CALL FWDREC (*1770,GPECT)\r\n      GO TO 1100\r\nC\r\nC     HERE WHEN END OF RECORD ON GPECT.\r\nC     COMPLETE THE RECORD ON -GPFBOM- AND WRITE DICTIONARY ENTRY FOR THE\r\nC     COMPLETED RECORD.\r\nC\r\n 1230 CALL WRITE (SCRT2,0,0,EOR)\r\n      BUF(1) = EXTID\r\n      BUF(3) = NENTRY\r\n      CALL SAVPOS (SCRT2,BUF(2))\r\n      CALL WRITE (SCRT3,BUF,3,NOEOR)\r\nC\r\nC     GO FOR NEXT PIVOT SIL\r\nC\r\n      GO TO 1100\r\nC\r\nC     HERE WHEN END OF FILE ON -GPECT-.\r\nC\r\n 1240 CALL CLOSE (GPECT,CLSREW)\r\n      CALL CLOSE (SCRT2,CLSREW)\r\n      CALL CLOSE (SCRT3,CLSREW)\r\nC\r\nC     SO AS TO OUTPUT THE FORCE BALANCES IN EXTERNAL GRID POINT ORDER\r\nC     THE FOLLOWING STEPS ARE NOW PERFORMED ON THE DICTIONARY ENTRIES OF\r\nC     THE -GPFBOM- COMPANION FILE (SCRT3).\r\nC\r\nC     1) ALL OF THE COMPANION FILE DICTIONARIES ARE READ INTO CORE.\r\nC     2) THEY ARE SORTED ON THE EXTERNAL IDS.\r\nC     3) THEY ARE PARTITIONED INTO GROUPS BASED ON A CONSIDERATION OF\r\nC        THE NEED FOR 12 WORDS OF CORE FOR EACH ENTRY OF EACH -GPFBOM-\r\nC        RECORD REPRESENTED BY THE GROUP IN THE FINAL OUTPUT PASS.\r\nC     4) EACH ENTRYS 3-RD WORD (THE NUMBER OF ENTRIES IN THE RECORD) IS\r\nC        REPLACED WITH THE INTEGER POSITION OF THE ENTRY IN THE GROUP.\r\nC     5) EACH GROUP IS SORTED ON GINO-LOC AND WRITTEN BACK\r\nC        TO THE COMPANION FILE AS A LOGICAL RECORD.  (THIS INSURES THAT\r\nC        NO MORE THAN ONE PASS OF THE -GPFBOM- IS MADE PER GROUP WHEN\r\nC        CONSTRUCTING TABLE-1 AND TABLE-2 IN THE FINAL OUTPUT PASS.)\r\nC\r\n      FILE = SCRT3\r\n      NERROR = 20\r\n      CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW)\r\nC\r\nC     BLAST-READ 3-WORD -GPFBOM- DICTIONARY ENTRIES INTO CORE.\r\nC\r\n      IDICTS = NCC + 1\r\n      CALL READ (*1770,*1250,SCRT3,Z(IDICTS),CORE-IDICTS,NOEOR,IWORDS)\r\n      GO TO 1800\r\nC\r\n 1250 NDICTS = IDICTS + IWORDS - 1\r\n      CALL CLOSE (SCRT3,CLSREW)\r\n      NERROR = 21\r\n      CALL OPEN (*1760,SCRT3,Z(BUF3),WRTREW)\r\nC\r\nC     SORT ENTRIES ON EXTERNAL ID\r\nC\r\n      CALL SORT (0,0,3,1,Z(IDICTS),IWORDS)\r\nC\r\nC     DETERMINE A -GPFBOM- GROUP OF RECORDS FOR OUTPUT.  EACH -GPFBOM-\r\nC     RECORDS ENTRY WILL REQUIRE 12 WORDS OF CORE IN THE FINAL OUTPUT\r\nC     PROCEEDURES.\r\nC\r\n      ENTRYS = (CORE-NCC)/12\r\n 1260 J = IDICTS\r\n      TOTAL = 0\r\n 1270 IF (TOTAL+Z(J+2) .GT. ENTRYS) GO TO 1280\r\n      TOTAL = TOTAL + Z(J+2)\r\n      J = J + 3\r\n      IF (J .LT. NDICTS) GO TO 1270\r\nC\r\nC     GROUP RANGE HAS BEEN FOUND.  REPLACE EACH ENTRYS -GPFBOM- ENTRY\r\nC     COUNT WITH THE OUTPUT ORDER OF THE EXTERNAL ID ENTRY HERE.\r\nC\r\n 1280 JDICTS = J - 1\r\n      K  = 1\r\n      DO 1290 I = IDICTS,JDICTS,3\r\n      JK = Z(I+2)\r\n      Z(I+2) = K\r\n      K  = K + JK\r\n 1290 CONTINUE\r\nC\r\nC     SORT THIS GROUP OF 3-WORD ENTRIES ON THE GINO-LOCS.\r\nC\r\n      LENGTH = JDICTS - IDICTS + 1\r\n      CALL SORT (0,0,3,2,Z(IDICTS),LENGTH)\r\nC\r\nC     OUTPUT AS A LOGICAL RECORD.\r\nC\r\n      CALL WRITE (SCRT3,Z(IDICTS),LENGTH,EOR)\r\nC\r\nC     PROCESS NEXT GROUP IF THERE ARE MORE.\r\nC\r\n      IDICTS = JDICTS + 1\r\n      IF (IDICTS .LT. NDICTS) GO TO 1260\r\nC\r\nC     ALL GROUPS HAVE BEEN DETERMINED, SEQUENCED, SORTED ON GINO-LOCS,\r\nC     AND OUTPUT.\r\nC\r\n      CALL CLOSE (SCRT3,CLSREW)\r\nC\r\nC     PREPARE GRID-POINT-FORCE-BALANCE ENTRIES WITH RESPECT TO APPLIED-\r\nC     LOAD AND SINGLE-POINT-CONSTRAINT FORCES.\r\nC\r\nC     LINE ENTRIES WILL BE WRITTEN TO SCRT4 FROM THE VECTOR IN CORE\r\nC     FOR EACH OF PG AND QG CONTAINING,\r\nC\r\nC     EXTERNAL GP ID, 0, 4H----, 4H----, T1, T2, T3, R1, R2, R3,\r\nC\r\nC     ONLY FOR THOSE POINTS WHICH MAY BE OUTPUT IN THE GRID-POINT FORCE\r\nC     BALANCE.\r\nC\r\nC     (NULL ENTRIES ARE NOT OUTPUT)\r\nC\r\nC     AFTER ALL ENTRIES FOR PG AND QG DESIRED HAVE BEEN WRITTEN TO\r\nC     SCRT4 THEY ARE BROUGHT BACK INTO CORE, SORTED ON EXTERNAL GP ID\r\nC     AND RE-OUTPUT TO SCRT4.\r\nC\r\n      FILE = SCRT4\r\n      CALL OPEN (*1760,SCRT4,Z(BUF1),WRTREW)\r\nC\r\nC     PROCESS PG.\r\nC\r\n      UGPGQG = PG\r\n      BUF(2) = 0\r\n      BUF(3) = OLOAD(1)\r\n      BUF(4) = OLOAD(2)\r\n      LASTID = 0\r\n      NEXTGP = 1\r\n      ASSIGN 1300 TO ICONT\r\n      GO TO 1400\r\nC\r\nC     PROCESS QG\r\nC\r\n 1300 UGPGQG = QG\r\n      BUF(3) = OSPCF(1)\r\n      BUF(4) = OSPCF(2)\r\n      LASTID = 0\r\n      NEXTGP = 1\r\n      ASSIGN 1310 TO ICONT\r\n      GO TO 1400\r\nC\r\nC     SORT SCRT4 ENTRIES ON EXTERNAL GP ID\r\nC\r\n 1310 CALL WRITE (SCRT4,0,0,EOR)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      MOVEPQ = 0\r\n      CALL OPEN (*1760,SCRT4,Z(BUF1),RDREW)\r\n      CALL READ (*1770,*1330,SCRT4,Z(ICC),BUF1-ICC,NOEOR,IWORDS)\r\n      WRITE  (OUTPT,1320) UWM,SUBCAS\r\n 1320 FORMAT (A25,' 2353.  INSUFFICIENT CORE TO HOLD ALL NON-ZERO APP-',\r\n     1       'LOAD AND F-OF-SPC OUTPUT LINE ENTRIES OF', /5X,\r\n     2       'GRID-POINT-FORCE-BALANCE REQUESTS. SOME POINTS REQUESTED',\r\n     3       ' FOR OUTPUT WILL BE MISSING THEIR APP-LOAD OR F-OF-SPC',\r\n     4       /5X,'CONTRIBUTION IN THE PRINTED BALANCE.')\r\n      IWORDS = BUF1 - ICC - MOD(BUF1-ICC,10)\r\n 1330 CALL SORT  (0,0,10,1,Z(ICC),IWORDS)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      CALL OPEN  (*1760,SCRT4,Z(BUF1),WRTREW)\r\n      CALL WRITE (SCRT4,Z(ICC),IWORDS,EOR)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      GO TO 1560\r\nC\r\nC     INTERNAL ROUTINE TO GET A VECTOR IN CORE (PG OR QG) AND WRITE\r\nC     SELECTED NON-ZERO ENTRIES TO SCRT4 FOR INCLUSION LATER IN THE\r\nC     GRID-POINT-FORCE-BALANCE.\r\nC\r\n 1400 CALL OPEN (*1550,UGPGQG,Z(BUF2),RD)\r\n      IF (MOVEPQ) 1410,1450,1430\r\nC\r\nC     BACK POSITION DATA BLOCK\r\nC\r\n 1410 J = IABS(MOVEPQ)\r\n      DO 1420 I = 1,J\r\n      CALL BCKREC (UGPGQG)\r\n 1420 CONTINUE\r\n      GO TO 1450\r\nC\r\nC     FORWARD POSITION DATA BLOCK\r\nC\r\n 1430 FILE = UGPGQG\r\n      DO 1440 I = 1,MOVEPQ\r\n      CALL FWDREC (*1770,UGPGQG)\r\n 1440 CONTINUE\r\nC\r\nC     GET VECTOR INTO CORE.\r\nC\r\n 1450 ASSIGN 1460 TO IRETRN\r\n      GO TO 220\r\nC\r\nC     OUTPUT NON-ZERO ENTRIES REQUESTED\r\nC\r\n 1460 CALL CLOSE (UGPGQG,CLS)\r\n      DO 1540 I = ISILEX,NSILEX,2\r\n      ICODE = MOD(Z(I),10)\r\n      I1 = IVECZ + Z(I+1)\r\n      I2 = I1 + SCALE(ICODE)\r\n      DO 1470 J = I1,I2\r\n      IF (RZ(J)) 1480,1470,1480\r\n 1470 CONTINUE\r\n      GO TO 1540\r\nC\r\nC     NON-ZERO ENTRY.  CHECK FOR OUTPUT.\r\nC\r\n 1480 BUF(1) = Z(I)/10\r\n      IBUF1  = BUF(1)\r\n      IF (AXIC) IBUF1 = MOD(IBUF1,1000000)\r\n      IF (AXIF) IBUF1 = MOD(IBUF1,500000 )\r\n      IF (IBUF1 .LT. LASTID) NEXTGP = 1\r\n      LASTID = IBUF1\r\n      IF (GPSET) 1500,1550,1490\r\n 1490 CALL SETFND (*1540,Z(IGPLST),LGPLST,IBUF1,NEXTGP)\r\n 1500 L = 5\r\n      DO 1510 J = I1,I2\r\n      BUF(L) = Z(J)\r\n      L = L + 1\r\n 1510 CONTINUE\r\n      IF (L .GE. 11) GO TO 1530\r\n      DO 1520 J = L,10\r\n      RBUF(L) = 0.0\r\n 1520 CONTINUE\r\n 1530 BUF(1) = BUF(1)*10 + GPDVIS\r\n      CALL WRITE (SCRT4,BUF,10,NOEOR)\r\n 1540 CONTINUE\r\n 1550 GO TO ICONT, (1300,1310)\r\n 1560 CONTINUE\r\nC\r\nC     FINAL OUTPUT PHASE FOR CURRENT CASE CONTROL.\r\nC\r\nC     THE -GPFBOM- COMPANION FILE IS PROCESSED RECORD BY RECORD.\r\nC\r\nC     FOR EACH RECORD THEN,\r\nC\r\nC     1) A 3-WORD ENTRY IS READ GIVING 1) EXTERNAL GP-ID\r\nC                                      2) GINO-LOC OF -GPFBOM- RECORD\r\nC                                      3) OUTPUT ORDER WITHIN THE GROUP.\r\nC\r\nC     2) -GPFBOM- IS POSITIONED USING THE GINO-LOC.\r\nC\r\nC     3) A POINTER IS DETERMINED INTO TABLE-2 OF WHERE OUTPUTS BELONG\r\nC        =10*ORDER - 10  (A ZERO POINTER) + TABLE BASE (A ZERO POINTER)\r\nC\r\nC     4) ENTRIES ARE READ FROM -GPFBOM- CONTAINING,\r\nC\r\nC                                      1) EXTERNAL ELEMENT ID\r\nC                                      2) ELEMENT NAME FIRST 4H\r\nC                                      3) ELEMENT NAME LAST  4H\r\nC                                      4) GINO LOC TO 6X1 FORCE VECTOR\r\nC\r\nC        UNTIL AN EOR IS ENCOUNTERED.\r\nC\r\nC        FOR EACH ENTRY READ A 2-WORD ENTRY IS ADDED TO TABLE-1\r\nC        CONSISTING OF                 1) GINO-LOC TO THE 6X1 VECTOR\r\nC                                      2) PTR INTO TABLE-2\r\nC\r\nC        AND A 10-WORD ENTRY IS ADDED TO TABLE-2 AT Z(PTR)\r\nC        CONSISTING OF                 1) EXTERNAL GP-ID\r\nC                                      2) EXTERNAL ELEMENT-ID\r\nC                                      3) NAME FIRST 4H\r\nC                                      4) NAME LAST  4H\r\nC                                      5 THRU 10)   NOT SET YET.\r\nC\r\nC     5) WHEN ALL ENTRIES OF THE -GPFBOM- RECORDS OF THE GROUP\r\nC        (AS SPECIFIED BY ONE RECORD ON THE COMPANINON FILE) ARE IN CORE\r\nC        TABLE-1 IS SORTED ON GINO LOCS.\r\nC        THIS WILL PREVENT HAVING TO MAKE MORE THAN ONE PASS\r\nC        OF THE PMAT DATA PER GROUP.\r\nC\r\nC     6) A SERIAL PASS OF TABLE-1 IS MADE AND EACH 6X1 VECTOR IS\r\nC        READ DIRECTLY INTO Z(PTR+4) OF TABLE-2.\r\nC\r\nC     7) OUTPUT TO THE FORCE BALANCE DATA BLOCK IS MADE WITH THE\r\nC        STANDARD OFP METHOD OF HEADER RECORD, AND REPEATING ENTRY DATA\r\nC        RECORD.  A HEADER RECORD WILL BE OUTPUT EACH TIME THE GRID\r\nC        POINT CHANGES.\r\nC\r\nC\r\nC     ALLOCATE TABLE-1 AND TABLE-2\r\nC\r\n      ITAB1 = NCC + 1\r\n      NTAB1 = NCC + 2*ENTRYS\r\n      ITAB2 = NTAB1 + 1\r\nC\r\nC     OPEN -GPFBOM- (SCRT2) AND ITS COMPANION DICTIONARY FILE (SCRT3).\r\nC\r\n      FILE   = SCRT2\r\n      NERROR = 23\r\n      CALL OPEN (*1760,SCRT2,Z(BUF2),RDREW)\r\n      FILE = SCRT3\r\n      CALL OPEN (*1760,SCRT3,Z(BUF3),RDREW)\r\nC\r\nC     OPEN THE OUTPUT FILE FOR GP-FORCES.\r\nC\r\n      FILE = OGPF1\r\n      CALL OPEN (*1760,OGPF1,Z(BUF4),WRT)\r\n      LINES    = 0\r\n      IDREC(1) = 10*BRANCH + GPDVIS\r\n      IDREC(2) = 19\r\n      IDREC(4) = SUBCAS\r\n      IDREC(10)= 10\r\nC\r\nC     OPEN THE PMAT 6X1 FORCE VECTORS FILE.\r\nC\r\n      FILE = SCRT1\r\n      CALL OPEN (*1760,SCRT1,Z(BUF1),RDREW)\r\nC\r\nC     INITIALIZE INPUT OF APP-LOAD AND F-OF-SPC LINE ENTRIES FROM SCRT4.\r\nC\r\n      FILE = SCRT4\r\n      CALL OPEN (*1760,SCRT4,Z(BUF5),RDREW)\r\n      CALL READ (*1770,*1570,SCRT4,KVEC,10,NOEOR,IWORDS)\r\n      EORST4 = .FALSE.\r\n      GO TO 1580\r\n 1570 EORST4 = .TRUE.\r\n 1580 CONTINUE\r\nC\r\nC     PROCESS ONE GROUP OF -GPFBOM- RECORDS AS SPECIFIED BY THE 3-WORD\r\nC     ENTRIES OF ONE RECORD ON SCRT3.\r\nC\r\n      ANY   = .FALSE.\r\n      OLDID = 0\r\n      CALL WRITE (OGPF1,IDREC,146,EOR)\r\n 1590 IPTR1 = ITAB1 - 1\r\n      JTAB1 = ITAB1 - 1\r\n      JTAB2 = ITAB2 - 1\r\n      FILE  = SCRT2\r\n 1600 CALL READ (*1740,*1620,SCRT3,BUF,3,NOEOR,IWORDS)\r\n      EXTGP = BUF(1)\r\n      LOC   = BUF(2)\r\n      IPTR2 = ITAB2 + 10*BUF(3) - 11\r\nC\r\nC     POSITION -GPFBOM- TO RECORD OF 4-WORD ENTRIES FOR THIS EXTERNAL GP\r\nC\r\n      CALL FILPOS (SCRT2,LOC)\r\n      NERROR = 24\r\nC\r\nC     READ AND DISTRIBUTE THE DATA OF THE 4-WORD ENTRIES.\r\nC\r\n 1610 CALL READ (*1770,*1600,SCRT2,BUF,4,NOEOR,IWORDS)\r\n      Z(IPTR1+1) = BUF(4)\r\n      Z(IPTR1+2) = IPTR2\r\n      Z(IPTR2+1) = EXTGP\r\n      Z(IPTR2+2) = BUF(1)\r\n      Z(IPTR2+3) = BUF(2)\r\n      Z(IPTR2+4) = BUF(3)\r\n      IPTR1 = IPTR1 + 2\r\n      IPTR2 = IPTR2 + 10\r\n      JTAB1 = JTAB1 + 2\r\n      JTAB2 = JTAB2 + 10\r\n      GO TO 1610\r\nC\r\nC     HERE ON END OF A GROUP.  SORT TABLE-1 ON GINO LOCS.\r\nC     AND FILL TABLE-2 WITH 6X1 FORCE VECTORS.\r\nC\r\n 1620 CALL SORT (0,0,2,1,Z(ITAB1),JTAB1-ITAB1+1)\r\nC\r\n      NERROR= 25\r\n      FILE  = SCRT1\r\n      DO 1630 I = ITAB1,JTAB1,2\r\n      CALL FILPOS (SCRT1,Z(I))\r\n      PTR = Z(I+1)\r\n      CALL READ (*1770,*1780,SCRT1,Z(PTR+5),6,NOEOR,IWORDS)\r\n 1630 CONTINUE\r\nC\r\nC     OUTPUT DATA.  START NEW SUM WHEN ENCOUNTERING A NEW GP-ID.\r\nC     APPLIED-LOADS AND FORCES-OF-SPC WILL INITIALIZE SUM, IF THEY EXIST\r\nC     FOR GRID POINT IN QUESTION,  OHTERWISE SUM IS INITIALIZED TO ZERO.\r\nC\r\n      DO 1730 I = ITAB2,JTAB2,10\r\nC\r\nC     IS THIS SAME GRID POINT ID AS CURRENTLY BEING SUMMED.  IF SO,\r\nC     CONTINUE OUTPUT OF LINE ENTRY AND SUM IN.  OTHERWISE OUTPUT\r\nC     SUM LINE, AND NEW ID-S APPLIED-LOAD AND F-OF-SPC ENTRY.\r\nC\r\n 1640 IF (Z(I) .EQ. OLDID) GO TO 1710\r\nC\r\nC     CHANGE IN GRID POINT ID.\r\nC\r\n      ISUM(1) = OLDID*10 + GPDVIS\r\n      IF (ANY) CALL WRITE (OGPF1,ISUM,10,NOEOR)\r\n      IF (ANY) LINES = LINES + 1\r\n      ANY = .FALSE.\r\nC\r\nC     OUTPUT ALL LINE ENTRIES OF APP-LOADS AND F-OF-SPC UNTIL\r\nC     MATCH ON NEW ID IS FOUND OR CURRENT FVEC IS NOT YET NEEDED.\r\nC\r\n      IF (EORST4) GO TO 1690\r\n      IF (KVEC(1)/10 .GT. Z(I)) GO TO 1690\r\n      DO 1650 J = 5,10\r\n      RSUM(J) = FVEC(J)\r\n 1650 CONTINUE\r\n      OLDID = KVEC(1)/10\r\n      CALL WRITE (OGPF1,KVEC,10,NOEOR)\r\n      LINES = LINES + 1\r\n      ANY   = .TRUE.\r\nC\r\nC     SUM IN ANY MORE FROM SCRT4 OF CURRENT ID, OUTPUT LINE ENTRIES.\r\nC\r\n 1660 CALL READ (*1770,*1680,SCRT4,KVEC,10,NOEOR,IWORDS)\r\n      IF (KVEC(1)/10 .NE. OLDID) GO TO 1640\r\n      CALL WRITE (OGPF1,KVEC,10,NOEOR)\r\n      LINES = LINES + 1\r\n      DO 1670 J = 5,10\r\n      RSUM(J) = RSUM(J) + FVEC(J)\r\n 1670 CONTINUE\r\n      GO TO 1660\r\nC\r\n 1680 EORST4 = .TRUE.\r\n      GO TO 1640\r\nC\r\nC     NO APP-LOAD OR F-OF-SPC ENTRIES LEFT OR CURRENT ONE NOT NEEDED YET\r\nC\r\n 1690 DO 1700 J = 5,10\r\n      RSUM(J) = 0.0\r\n 1700 CONTINUE\r\n      ANY  = .TRUE.\r\n      OLDID= Z(I)\r\nC\r\n 1710 Z(I) = 10*Z(I) + GPDVIS\r\n      CALL WRITE (OGPF1,Z(I),10,NOEOR)\r\n      LINES = LINES + 1\r\n      DO 1720 J = 5,10\r\n      RSUM(J) = RSUM(J) + RZ(I+J-1)\r\n 1720 CONTINUE\r\nC\r\n 1730 CONTINUE\r\nC\r\n      ISUM(1) = OLDID*10 + GPDVIS\r\n      IF (ANY) CALL WRITE (OGPF1,ISUM,10,NOEOR)\r\n      IF (ANY) LINES = LINES + 1\r\n      ANY = .FALSE.\r\nC\r\nC     GO FOR NEXT GROUP FROM THE -GPFBOM-.\r\nC\r\n      GO TO 1590\r\nC\r\nC     HERE ON EOF ON -GPFBOM- COMPANION FILE.  THUS AT CONCLUSION OF\r\nC     OUTPUT PHASE FOR GP-FORCE BALANCE ONE SUBCASE, OR ONE TIME STEP OF\r\nC     ONE SUBCASE.\r\nC\r\n 1740 CALL CLOSE (SCRT1,CLSREW)\r\n      CALL CLOSE (SCRT2,CLSREW)\r\n      CALL CLOSE (SCRT3,CLSREW)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      MCB(1) = OGPF1\r\n      CALL RDTRL (MCB)\r\n      MCB(2) = MCB(2) + LINES\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (OGPF1,CLSEOF)\r\n      GO TO 110\r\nC\r\nC     NORMAL COMPLETION.\r\nC\r\n 1750 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (UG,CLSREW)\r\n      RETURN\r\nC\r\nC     HERE ON ERROR CONDITIONS.\r\nC\r\n 1760 MM = 1\r\n      GO TO 1790\r\n 1770 MM = 2\r\n      GO TO 1790\r\n 1780 MM = 3\r\n 1790 CALL MESAGE (MM,FILE,SUBR)\r\n      GO TO 1810\r\n 1800 CALL MESAGE (8,0,SUBR)\r\n 1810 WRITE  (OUTPT,1820) SWM,NERROR\r\n 1820 FORMAT (A27,' 2354.' ,/5X,'GPFDR MODULE IS UNABLE TO CONTINUE ',\r\n     1       'AND HAS BEEN TERMINATED DUE TO ERROR MESSAGE PRINTED ',\r\n     2       'ABOVE OR BELOW THIS MESSAGE.', /5X,'THIS ERROR OCCURRED ',\r\n     4       'IN GPFDR CODE WHERE THE VARIABLE -NERROR- WAS SET =',I5)\r\n      DO 1840 I = 100,300,100\r\n      DO 1830 J = 1,9\r\n      CALL CLOSE (I+J,CLSREW)\r\n 1830 CONTINUE\r\n 1840 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpstg.f",
    "content": "      SUBROUTINE GPSTG\r\nC\r\nC     THIS SUBROUTINE GENERATES THE GRID POINT SINGULARITY TABLE\r\nC     BY EXAMINING THE TRANSLATIONAL AND ROTATIONAL 3 X 3\r\nC     SUBMATRICES ALONG THE LEADING DIAGONAL OF THE INPUT\r\nC     STIFFNESS MATRIX\r\nC\r\n      DIMENSION   IARRAY(8), ISUBNM(2)\r\nC\r\n      INTEGER     GPST     , TTLWDS\r\nC\r\n      DOUBLE PRECISION B(9), FL(3), D\r\n      DOUBLE PRECISION M(3), R(3) , TEMP, FM, FR, DET, CONST, DTOL\r\nC\r\n      COMMON /GPSTGX/ GPST , IGPST, NPVT, NSING , IBUF2\r\n      COMMON /GPSTGY/ D(18)\r\n      COMMON /SYSTEM/ ISYS(69)    , TOLEL\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\n      EQUIVALENCE (IORDER, IARRAY(1)), (NWDS, IARRAY(2))\r\nC\r\n      DATA ISUBNM / 4HGPST,4HG   /\r\nC\r\n      DTOL = TOLEL\r\nC\r\nC AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE\r\nC STORED IN THE D ARRAY.  HENCE WE PROCESS THEM.\r\nC\r\n      IP = NPVT - 1\r\n      ASSIGN 470 TO IGOTO\r\n      ASSIGN 20 TO IBACK\r\n      DO 10 I = 1,9\r\n   10 B(I) = D(I)\r\n      GO TO 90\r\n   20 DO 30 I = 1,9\r\n   30 B(I) = D(I+9)\r\nC\r\nC INSURE THE SYMMETRY OF THE B MATRIX\r\nC\r\n      IF (B(2) .NE. 0.0D0 .AND. B(4) .NE. 0.0D0) GO TO 40\r\n      B(2) = 0.0D0\r\n      B(4) = 0.0D0\r\n      GO TO 50\r\n   40 TEMP = (B(2) + B(4)) / 2.0D0\r\n      B(2) = TEMP\r\n      B(4) = TEMP\r\n   50 IF (B(3) .NE. 0.0D0 .AND. B(7) .NE. 0.0D0) GO TO 60\r\n      B(3) = 0.0D0\r\n      B(7) = 0.0D0\r\n      GO TO 70\r\n   60 TEMP = (B(3) + B(7)) / 2.0D0\r\n      B(3) = TEMP\r\n      B(7) = TEMP\r\n   70 IF (B(6) .NE. 0.0D0 .AND. B(8) .NE. 0.0D0) GO TO 80\r\n      B(6) = 0.0D0\r\n      B(8) = 0.0D0\r\n      GO TO 90\r\n   80 TEMP = (B(6) + B(8)) / 2.0D0\r\nC\r\nC SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT.\r\nC IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3.\r\nC\r\n   90 TEMP = B(1)\r\n      DO 100 I = 2,9\r\n      IF (B(I) .GT. TEMP) TEMP = B(I)\r\n  100 CONTINUE\r\n      IF (TEMP .LE. 0.0D0) GO TO 430\r\n      DO 110 I = 1,9\r\n  110 B(I) = B(I) / TEMP\r\nC\r\nC FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE\r\nC B MATRIX.\r\nC\r\n      IORDER = 0\r\n      J = 0\r\n      DO 120 I = 1,9,3\r\n      J = J + 1\r\n      FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2\r\n      IF (FL(J) .EQ. 0.0D0) IORDER = IORDER + 1\r\n  120 CONTINUE\r\n      IF (IORDER .EQ. 2)  GO TO 410\r\n      IF (IORDER .EQ. 0)  GO TO 260\r\nC\r\nC AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO.\r\nC\r\n      DO 130 I = 1,3\r\n      ISAVE = I\r\n      IF (FL(I) .EQ. 0. 0D0) GO TO (140,150,160), ISAVE\r\n  130 CONTINUE\r\n      CALL MESAGE (-30,26,ISUBNM)\r\n  140 FM = B(5) * B(9)  -  B(6) * B(8)\r\n      FR = DSQRT( (B(5)**2  +  B(6)**2)  *  (B(8)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  150 FM = B(1) * B(9)  -  B(3) * B(7)\r\n      FR = DSQRT( (B(1)**2  +  B(3)**2)  *  (B(7)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  160 FM = B(1) * B(5)  -  B(2) * B(4)\r\n      FR = DSQRT( (B(1)**2  +  B(2)**2)  *  (B(4)**2  +  B(5)**2) )\r\n  170 IF ( FM   .EQ. 0.0D0 ) GO TO 180\r\n      IF ( FR   .LE. 0.0D0 ) GO TO 250\r\n      IF ( FM/FR .GE. DTOL ) GO TO 250\r\nC\r\nC HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2.\r\nC\r\n  180 IORDER = 2\r\n      NWDS   = 0\r\n      TTLWDS  = 2\r\n      GO TO (190,200,210), ISAVE\r\n  190 K1   = 5\r\n      K2   = 9\r\n      INC1 = 1\r\n      INC2 = 3\r\n      INC3 = 2\r\n      GO TO 220\r\n  200 K1   = 1\r\n      K2   = 9\r\n      INC1 = 2\r\n      INC2 = 3\r\n      INC3 = 1\r\n      GO TO 220\r\n  210 K1   = 1\r\n      K2   = 5\r\n      INC1 = 3\r\n      INC2 = 2\r\n      INC3 = 1\r\n  220 IF (B(K1) .LE. 0.0D0  .AND.  B(K2) .LE. 0.0D0) GO TO 430\r\n      IF (B(K1) .LE. 0.0D0) GO TO 230\r\n      NWDS      = 2\r\n      TTLWDS     = 4\r\n      IARRAY(3) = IP + INC1\r\n      IARRAY(4) = IP + INC2\r\n      IPOINT    = 5\r\n      GO TO 240\r\n  230 IPOINT = 3\r\n  240 IF (B(K2) .LE. 0.0D0) GO TO 440\r\n      NWDS = NWDS + 2\r\n      TTLWDS = TTLWDS + 2\r\n      IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC3\r\n      GO TO 440\r\nC\r\nC AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER\r\nC OF THE SINGULARITY IS 1.\r\nC\r\n  250 IORDER    = 1\r\n      NWDS      = 1\r\n      TTLWDS    = 3\r\n      IARRAY(3) = IP + ISAVE\r\n      GO TO 440\r\nC\r\nC AT STATEMENT NO. 260, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0D0, SO\r\nC THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED.\r\nC\r\n  260 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) )\r\n     1    - B(2) * ( B(4)*B(9) - B(6)*B(7) )\r\n     2    + B(3) * ( B(4)*B(8) - B(5)*B(7) )\r\n      CONST = 0.05D0*DTOL * FL(1) * FL(2) * FL(3)\r\n      IF (DET .GT. CONST) GO TO 460\r\nC\r\nC COMPUTE M(I) AND R(I)\r\nC\r\n      M(1) = B(5) * B(9) - B(6) * B(8)\r\n      M(2) = B(1) * B(9) - B(3) * B(7)\r\n      M(3) = B(1) * B(5) - B(2) * B(4)\r\n      R(1) = DSQRT ( B(5)**2 + B(6)**2 ) * DSQRT ( B(8)**2 + B(9)**2 )\r\n      R(2) = DSQRT ( B(1)**2 + B(3)**2 ) * DSQRT ( B(7)**2 + B(9)**2 )\r\n      R(3) = DSQRT ( B(1)**2 + B(2)**2 ) * DSQRT ( B(4)**2 + B(5)**2 )\r\nC\r\nC FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1)\r\nC\r\n      I1 = 1\r\n      J1 = 2\r\n      K1 = 3\r\n      IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270\r\n      I1 = 2\r\n      J1 = 1\r\n  270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280\r\n      ITEMP = I1\r\n      I1    = K1\r\n      K1    = ITEMP\r\n  280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290\r\n      ITEMP = J1\r\n      J1    = K1\r\n      K1    = ITEMP\r\n  290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400\r\nC\r\nC HERE THE SINGULARITY IS OF ORDER 2.\r\nC\r\n      NWDS   = 0\r\n      TTLWDS = 2\r\n      IORDER = 2\r\nC\r\nC FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK)\r\nC\r\n      II = 1\r\n      JJ = 5\r\n      KK = 9\r\n      IF (B(1) .GE. B(5)) GO TO 300\r\n      II = 5\r\n      JJ = 1\r\n  300 IF (B(II) .GE. B(KK)) GO TO 310\r\n      ITEMP = II\r\n      II    = KK\r\n      KK    = ITEMP\r\n  310 IF (B(JJ) .GE. B(KK)) GO TO 320\r\n      ITEMP = JJ\r\n      JJ    = KK\r\n      KK    = ITEMP\r\n  320 LL    = II\r\n      KOUNT = 0\r\n      IPOINT= 3\r\n  330 IF (B(LL) .LE. 0.0D0) GO TO 440\r\n      NWDS   = NWDS + 2\r\n      TTLWDS = TTLWDS + 2\r\n      IF (LL - 5) 340,350,360\r\n  340 INC1 = 2\r\n      INC2 = 3\r\n      GO TO 370\r\n  350 INC1 = 1\r\n      INC2 = 3\r\n      GO TO 370\r\n  360 INC1 = 1\r\n      INC2 = 2\r\n  370 IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC2\r\n      IPOINT = IPOINT + 2\r\n      KOUNT  = KOUNT  + 1\r\n      IF (KOUNT - 2) 380,390,440\r\n  380 LL = JJ\r\n      GO TO 330\r\n  390 LL = KK\r\n      GO TO 330\r\nC\r\nC AT THIS POINT THE SINGULARITY IS OF ORDER 1.\r\nC\r\n  400 IORDER = 1\r\n      NWDS   = 1\r\n      TTLWDS = 3\r\n      IARRAY(3) = IP + I1\r\n      IF (M(J1).LT.R(J1)*DTOL) GO TO 440\r\n      NWDS   = 2\r\n      TTLWDS = 4\r\n      IARRAY(4) = IP + J1\r\n      IF (M(K1).LT.R(K1)*DTOL) GO TO 440\r\n      NWDS   = 3\r\n      TTLWDS = 5\r\n      IARRAY(5) = IP + K1\r\n      GO TO 440\r\nC\r\nC AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO.\r\nC\r\n  410 NWDS   = 2\r\n      TTLWDS = 4\r\n      IPOINT = 2\r\n      DO 420 I = 1,3\r\n      IF (FL(I) .NE. 0.0D0) GO TO 420\r\n      IPOINT = IPOINT + 1\r\n      IARRAY(IPOINT) = IP + I\r\n  420 CONTINUE\r\n      GO TO 440\r\nC\r\nC THE SINGULARITY IS OF ORDER 3\r\nC\r\n  430 IORDER = 3\r\n      NWDS   = 3\r\n      TTLWDS = 5\r\n      IARRAY(3) = IP + 1\r\n      IARRAY(4) = IP + 2\r\n      IARRAY(5) = IP + 3\r\nC\r\nC WRITE IARRAY ON THE GPST FILE.\r\nC\r\n  440 IF (IGPST.EQ.1) GO TO 450\r\n      IGPST = 1\r\n      CALL GOPEN (GPST,IZ(IBUF2),1)\r\n  450 NSING = NSING + 1\r\n      CALL WRITE (GPST,IARRAY,TTLWDS,0)\r\n  460 GO TO IGOTO, (470,480)\r\n  470 ASSIGN 480 TO IGOTO\r\n      IP = IP + 3\r\n      GO TO IBACK, (20,430)\r\n  480 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpstgn.f",
    "content": "      SUBROUTINE GPSTGN\r\nC\r\nC     THIS MODULE GENERATES THE GRID POINT SINGULARITY TABLE\r\nC     BY EXAMINING THE SUBMATRICES ALONG THE LEADING DIAGONAL\r\nC     OF THE INPUT STIFFNESS MATRIX\r\nC\r\nC     MODULE DMAP SEQUENCE\r\nC\r\nC     GPSTGEN  KGG,SIL/GPST $\r\nC\r\n      DIMENSION        K(3)  , MCB(7),ISUBNM(2)\r\nC\r\n      INTEGER          SIL   , GPST\r\nC\r\n      DOUBLE PRECISION B\r\nCWKBI 8/94 SPR93026\r\n      REAL             BS(18)\r\nC\r\n      COMMON /GPSTGX/  GPST  , IGPST , ISIL  , NSING , IBUF2\r\n      COMMON /GPSTGY/  B(18)\r\nCWKBI 8/94 SPR93026   COMMON /SYSTEM/  ISYSBF\r\n      COMMON /SYSTEM/ ISYSBF , NOUT  , DUM(52),IPREC\r\n      COMMON /UNPAKX/  ITYPOT, II    , JJ    , INCR\r\n      COMMON /ZZZZZZ/  IZ(1)\r\nCWKBI 8/94 SPR93026\r\n      EQUIVALENCE      ( BS, B )\r\nC\r\n      DATA KGG, SIL /101   , 102   /\r\n      DATA ISUBNM   /4HGPST, 4HGN  /\r\nC\r\n      GPST  = 201\r\n      IGPST = 0\r\n      NSING = 0\r\nCWKBR 8/94 SPR93026      ITYPOT= 2\r\n      ITYPOT= IPREC\r\n      INCR  = 1\r\n      K(1)  = 1\r\n      K(2)  = 1\r\n      IBUF1 = KORSZ (IZ) - ISYSBF - 2\r\n      IBUF2 = IBUF1 - ISYSBF\r\n      IFILE = SIL\r\n      CALL OPEN (*120,SIL,IZ(IBUF1),0)\r\n      CALL SKPREC (SIL,1)\r\n      MCB(1) = SIL\r\n      CALL RDTRL (MCB)\r\n      LUSET = MCB(3)\r\n      ICORE = LUSET + 1 - IBUF1\r\n      IF (ICORE.GE.0) GO TO 160\r\n      CALL READ (*140,*10,SIL,IZ,IBUF1,0,NPTS)\r\n      GO TO 160\r\n   10 CALL CLOSE (SIL,1)\r\n      LOGIC = 110\r\n      IF (NPTS.NE.MCB(2)) GO TO 150\r\n      IZ(NPTS+1) = LUSET + 1\r\nC\r\n      IFILE = KGG\r\n      CALL OPEN (*120,KGG,IZ(IBUF1),0)\r\n      CALL SKPREC (KGG,1)\r\n      MCB(1) = KGG\r\n      CALL RDTRL (MCB)\r\n      LOGIC = 120\r\n      IF (MCB(2).NE.LUSET .OR. MCB(3).NE.LUSET) GO TO 150\r\nC\r\n      DO 100 I = 1, NPTS\r\n      ITYP = 1\r\n      ISIL = IZ(I)\r\n      ISILNX = IZ(I+1)\r\n      IF (ISILNX-ISIL.EQ.1) ITYP = 2\r\n      ILOOP = 1\r\n      IST   = 1\r\n      II = ISIL\r\n   20 JJ = II + 2*(2 - ITYP)\r\n      DO 60 J = II, JJ\r\nCWKBD 8/94 SPR93026      CALL UNPACK (*30,KGG,B(IST))\r\nCWKBNB 8/94 SPR93026\r\n      IF ( IPREC .EQ. 1 ) CALL UNPACK (*30,KGG,BS(IST))\r\n      IF ( IPREC .EQ. 2 ) CALL UNPACK (*30,KGG,B(IST))\r\nCWKBNE 8/94 SPR93026\r\n      GO TO 50\r\n   30 ISTX = IST + 2\r\nCWKBI 8/94 SPR93026\r\n      IF ( IPREC .EQ. 1 ) GO TO 45\r\n      DO 40 III = IST, ISTX\r\n      B(III) = 0.0D0\r\n   40 CONTINUE\r\nCWKBNB 8/94 SPR93026\r\n      GO TO 50\r\n   45 DO 48 III = IST, ISTX\r\n      BS(III) = 0.0\r\n   48 CONTINUE\r\n   50 IST = IST + 3\r\n   60 CONTINUE\r\n      IF (ITYP .EQ.2) GO TO 70\r\n      IF (ILOOP.EQ.2) GO TO 90\r\n      ILOOP = 2\r\n      II = II + 3\r\n      GO TO 20\r\nCWKBD 8/94 SPR93026   70 IF (B(1).GT.0.0D0) GO TO 100     \r\nCWKBNB 8/94 SPR93026\r\n   70 CONTINUE\r\n      IF (IPREC. EQ. 2 .AND. B(1) .GT.0.0D0) GO TO 100     \r\n      IF (IPREC .EQ. 1 .AND. BS(1).GT.0.0  ) GO TO 100     \r\nCWKBNE 8/94 SPR93026\r\n      K(3) = ISIL\r\n      IF (IGPST.EQ.1) GO TO 80\r\n      IGPST = 1\r\n      CALL GOPEN (GPST,IZ(IBUF2),1)\r\n   80 NSING = NSING + 1\r\n      CALL WRITE (GPST,K,3,0)\r\n      GO TO 100\r\nCWKBD 8/94 SPR93026   90 CALL GPSTG\r\nCWKBNB 8/94 SPR93026\r\n   90 IF ( IPREC .EQ. 1 ) CALL GPSTGS\r\n      IF ( IPREC .EQ. 2 ) CALL GPSTG\r\nCWKBNE 8/94 SPR93026\r\n  100 CONTINUE\r\n      IF (IGPST.EQ.0) GO TO 110\r\n      CALL WRITE (GPST,0,0,1)\r\n      CALL CLOSE (GPST,1)\r\n      CALL MAKMCB (MCB,GPST,NPTS,LUSET,0)\r\n      MCB(2) = NSING\r\n      CALL WRTTRL (MCB)\r\n  110 CALL CLOSE (KGG,1)\r\n      GO TO 170\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  120 N = -1\r\n  130 CALL MESAGE (N,IFILE,ISUBNM)\r\n  140 N = -2\r\n      GO TO 130\r\n  150 N = -7\r\n      GO TO 130\r\n  160 N = -8\r\n      IFILE = ICORE\r\n      GO TO 130\r\nC\r\n  170 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpstgs.f",
    "content": "      SUBROUTINE GPSTGS\r\nC\r\nC     THIS SUBROUTINE GENERATES THE GRID POINT SINGULARITY TABLE\r\nC     BY EXAMINING THE TRANSLATIONAL AND ROTATIONAL 3 X 3\r\nC     SUBMATRICES ALONG THE LEADING DIAGONAL OF THE INPUT\r\nC     STIFFNESS MATRIX\r\nC\r\n      DIMENSION   IARRAY(8), ISUBNM(2)\r\nC\r\n      INTEGER     GPST     , TTLWDS\r\nC\r\n      REAL        B(9), FL(3), D\r\n      REAL        M(3), R(3) , TEMP, FM, FR, DET, CONST, DTOL\r\nC\r\n      COMMON /GPSTGX/ GPST , IGPST, NPVT, NSING , IBUF2\r\n      COMMON /GPSTGY/ D(18)\r\n      COMMON /SYSTEM/ ISYS(69)    , TOLEL\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\n      EQUIVALENCE (IORDER, IARRAY(1)), (NWDS, IARRAY(2))\r\nC\r\n      DATA ISUBNM / 4HGPST,4HG   /\r\nC\r\n      DTOL = TOLEL\r\nC\r\nC AT THIS POINT, BOTH TRANSLATIONAL AND ROTATIONAL DIAGONAL 3X3 S ARE\r\nC STORED IN THE D ARRAY.  HENCE WE PROCESS THEM.\r\nC\r\n      IP = NPVT - 1\r\n      ASSIGN 470 TO IGOTO\r\n      ASSIGN 20 TO IBACK\r\n      DO 10 I = 1,9\r\n   10 B(I) = D(I)\r\n      GO TO 90\r\n   20 DO 30 I = 1,9\r\n   30 B(I) = D(I+9)\r\nC\r\nC INSURE THE SYMMETRY OF THE B MATRIX\r\nC\r\n      IF (B(2) .NE. 0.0 .AND. B(4) .NE. 0.0) GO TO 40\r\n      B(2) = 0.0\r\n      B(4) = 0.0\r\n      GO TO 50\r\n   40 TEMP = (B(2) + B(4)) / 2.0\r\n      B(2) = TEMP\r\n      B(4) = TEMP\r\n   50 IF (B(3) .NE. 0.0 .AND. B(7) .NE. 0.0) GO TO 60\r\n      B(3) = 0.0\r\n      B(7) = 0.0\r\n      GO TO 70\r\n   60 TEMP = (B(3) + B(7)) / 2.0\r\n      B(3) = TEMP\r\n      B(7) = TEMP\r\n   70 IF (B(6) .NE. 0.0 .AND. B(8) .NE. 0.0) GO TO 80\r\n      B(6) = 0.0\r\n      B(8) = 0.0\r\n      GO TO 90\r\n   80 TEMP = (B(6) + B(8)) / 2.0\r\nC\r\nC SCALE THE MATRIX BY DIVIDING EACH ELEMENT OF B BY THE LARGEST ELEMENT.\r\nC IF THE LARGEST ELEMENT IS NON-POSITIVE, THE SINGULARITY IS OF ORDER 3.\r\nC\r\n   90 TEMP = B(1)\r\n      DO 100 I = 2,9\r\n      IF (B(I) .GT. TEMP) TEMP = B(I)\r\n  100 CONTINUE\r\n      IF (TEMP .LE. 0.0) GO TO 430\r\n      DO 110 I = 1,9\r\n  110 B(I) = B(I) / TEMP\r\nC\r\nC FIND THE SQUARES OF THE MAGNITUDES OF THE VECTORS OF THE ROWS OF THE\r\nC B MATRIX.\r\nC\r\n      IORDER = 0\r\n      J = 0\r\n      DO 120 I = 1,9,3\r\n      J = J + 1\r\n      FL(J) = B(I)**2 + B(I+1)**2 + B(I+2)**2\r\n      IF (FL(J) .EQ. 0.0) IORDER = IORDER + 1\r\n  120 CONTINUE\r\n      IF (IORDER .EQ. 2)  GO TO 410\r\n      IF (IORDER .EQ. 0)  GO TO 260\r\nC\r\nC AT THIS POINT ONE AND ONLY ONE FL(I) IS ZERO.\r\nC\r\n      DO 130 I = 1,3\r\n      ISAVE = I\r\n      IF (FL(I) .EQ. 0. 0) GO TO (140,150,160), ISAVE\r\n  130 CONTINUE\r\n      CALL MESAGE (-30,26,ISUBNM)\r\n  140 FM = B(5) * B(9)  -  B(6) * B(8)\r\n      FR = SQRT( (B(5)**2  +  B(6)**2)  *  (B(8)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  150 FM = B(1) * B(9)  -  B(3) * B(7)\r\n      FR = SQRT( (B(1)**2  +  B(3)**2)  *  (B(7)**2  +  B(9)**2) )\r\n      GO TO 170\r\n  160 FM = B(1) * B(5)  -  B(2) * B(4)\r\n      FR = SQRT( (B(1)**2  +  B(2)**2)  *  (B(4)**2  +  B(5)**2) )\r\n  170 IF ( FM   .EQ. 0.0 ) GO TO 180\r\n      IF ( FR   .LE. 0.0 ) GO TO 250\r\n      IF ( FM/FR .GE. DTOL ) GO TO 250\r\nC\r\nC HERE WE HAVE THAT THE ORDER OF THE SINGULARITY IS 2.\r\nC\r\n  180 IORDER = 2\r\n      NWDS   = 0\r\n      TTLWDS  = 2\r\n      GO TO (190,200,210), ISAVE\r\n  190 K1   = 5\r\n      K2   = 9\r\n      INC1 = 1\r\n      INC2 = 3\r\n      INC3 = 2\r\n      GO TO 220\r\n  200 K1   = 1\r\n      K2   = 9\r\n      INC1 = 2\r\n      INC2 = 3\r\n      INC3 = 1\r\n      GO TO 220\r\n  210 K1   = 1\r\n      K2   = 5\r\n      INC1 = 3\r\n      INC2 = 2\r\n      INC3 = 1\r\n  220 IF (B(K1) .LE. 0.0  .AND.  B(K2) .LE. 0.0) GO TO 430\r\n      IF (B(K1) .LE. 0.0) GO TO 230\r\n      NWDS      = 2\r\n      TTLWDS     = 4\r\n      IARRAY(3) = IP + INC1\r\n      IARRAY(4) = IP + INC2\r\n      IPOINT    = 5\r\n      GO TO 240\r\n  230 IPOINT = 3\r\n  240 IF (B(K2) .LE. 0.0) GO TO 440\r\n      NWDS = NWDS + 2\r\n      TTLWDS = TTLWDS + 2\r\n      IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC3\r\n      GO TO 440\r\nC\r\nC AT THIS POINT WE HAVE THAT ONE AND ONLY ONE FL IS ZERO BUT THAT ORDER\r\nC OF THE SINGULARITY IS 1.\r\nC\r\n  250 IORDER    = 1\r\n      NWDS      = 1\r\n      TTLWDS    = 3\r\n      IARRAY(3) = IP + ISAVE\r\n      GO TO 440\r\nC\r\nC AT STATEMENT NO. 260, WE HAVE THAT ALL THE FL(I) ARE .GT. 0.0, SO\r\nC THAT THE DETERMINANT, DET, OF B MUST BE COMPUTED.\r\nC\r\n  260 DET = B(1) * ( B(5)*B(9) - B(6)*B(8) )\r\n     1    - B(2) * ( B(4)*B(9) - B(6)*B(7) )\r\n     2    + B(3) * ( B(4)*B(8) - B(5)*B(7) )\r\n      CONST = 0.05*DTOL * FL(1) * FL(2) * FL(3)\r\n      IF (DET .GT. CONST) GO TO 460\r\nC\r\nC COMPUTE M(I) AND R(I)\r\nC\r\n      M(1) = B(5) * B(9) - B(6) * B(8)\r\n      M(2) = B(1) * B(9) - B(3) * B(7)\r\n      M(3) = B(1) * B(5) - B(2) * B(4)\r\n      R(1) = SQRT ( B(5)**2 + B(6)**2 ) * SQRT ( B(8)**2 + B(9)**2 )\r\n      R(2) = SQRT ( B(1)**2 + B(3)**2 ) * SQRT ( B(7)**2 + B(9)**2 )\r\n      R(3) = SQRT ( B(1)**2 + B(2)**2 ) * SQRT ( B(4)**2 + B(5)**2 )\r\nC\r\nC FIND I1,J1,K1 SUCH THAT M(I1)/R(I1) .GE. M(J1)/R(J1) .GE. M(K1)/R(K1)\r\nC\r\n      I1 = 1\r\n      J1 = 2\r\n      K1 = 3\r\n      IF (M(1)*R(2).GE.M(2)*R(1)) GO TO 270\r\n      I1 = 2\r\n      J1 = 1\r\n  270 IF (M(I1)*R(K1).GE.M(K1)*R(I1)) GO TO 280\r\n      ITEMP = I1\r\n      I1    = K1\r\n      K1    = ITEMP\r\n  280 IF (M(J1)*R(K1).GE.M(K1)*R(J1)) GO TO 290\r\n      ITEMP = J1\r\n      J1    = K1\r\n      K1    = ITEMP\r\n  290 IF (M(I1).GE.R(I1)*DTOL) GO TO 400\r\nC\r\nC HERE THE SINGULARITY IS OF ORDER 2.\r\nC\r\n      NWDS   = 0\r\n      TTLWDS = 2\r\n      IORDER = 2\r\nC\r\nC FIND II, JJ, KK SUCH THAT B(II) .GE. B(JJ) .GE. B(KK)\r\nC\r\n      II = 1\r\n      JJ = 5\r\n      KK = 9\r\n      IF (B(1) .GE. B(5)) GO TO 300\r\n      II = 5\r\n      JJ = 1\r\n  300 IF (B(II) .GE. B(KK)) GO TO 310\r\n      ITEMP = II\r\n      II    = KK\r\n      KK    = ITEMP\r\n  310 IF (B(JJ) .GE. B(KK)) GO TO 320\r\n      ITEMP = JJ\r\n      JJ    = KK\r\n      KK    = ITEMP\r\n  320 LL    = II\r\n      KOUNT = 0\r\n      IPOINT= 3\r\n  330 IF (B(LL) .LE. 0.0) GO TO 440\r\n      NWDS   = NWDS + 2\r\n      TTLWDS = TTLWDS + 2\r\n      IF (LL - 5) 340,350,360\r\n  340 INC1 = 2\r\n      INC2 = 3\r\n      GO TO 370\r\n  350 INC1 = 1\r\n      INC2 = 3\r\n      GO TO 370\r\n  360 INC1 = 1\r\n      INC2 = 2\r\n  370 IARRAY(IPOINT)   = IP + INC1\r\n      IARRAY(IPOINT+1) = IP + INC2\r\n      IPOINT = IPOINT + 2\r\n      KOUNT  = KOUNT  + 1\r\n      IF (KOUNT - 2) 380,390,440\r\n  380 LL = JJ\r\n      GO TO 330\r\n  390 LL = KK\r\n      GO TO 330\r\nC\r\nC AT THIS POINT THE SINGULARITY IS OF ORDER 1.\r\nC\r\n  400 IORDER = 1\r\n      NWDS   = 1\r\n      TTLWDS = 3\r\n      IARRAY(3) = IP + I1\r\n      IF (M(J1).LT.R(J1)*DTOL) GO TO 440\r\n      NWDS   = 2\r\n      TTLWDS = 4\r\n      IARRAY(4) = IP + J1\r\n      IF (M(K1).LT.R(K1)*DTOL) GO TO 440\r\n      NWDS   = 3\r\n      TTLWDS = 5\r\n      IARRAY(5) = IP + K1\r\n      GO TO 440\r\nC\r\nC AT THIS POINT 2 ROWS OF THE B MATRIX ARE IDENTICALLY ZERO.\r\nC\r\n  410 NWDS   = 2\r\n      TTLWDS = 4\r\n      IPOINT = 2\r\n      DO 420 I = 1,3\r\n      IF (FL(I) .NE. 0.0) GO TO 420\r\n      IPOINT = IPOINT + 1\r\n      IARRAY(IPOINT) = IP + I\r\n  420 CONTINUE\r\n      GO TO 440\r\nC\r\nC THE SINGULARITY IS OF ORDER 3\r\nC\r\n  430 IORDER = 3\r\n      NWDS   = 3\r\n      TTLWDS = 5\r\n      IARRAY(3) = IP + 1\r\n      IARRAY(4) = IP + 2\r\n      IARRAY(5) = IP + 3\r\nC\r\nC WRITE IARRAY ON THE GPST FILE.\r\nC\r\n  440 IF (IGPST.EQ.1) GO TO 450\r\n      IGPST = 1\r\n      CALL GOPEN (GPST,IZ(IBUF2),1)\r\n  450 NSING = NSING + 1\r\n      CALL WRITE (GPST,IARRAY,TTLWDS,0)\r\n  460 GO TO IGOTO, (470,480)\r\n  470 ASSIGN 480 TO IGOTO\r\n      IP = IP + 3\r\n      GO TO IBACK, (20,430)\r\n  480 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gptlbl.f",
    "content": "      SUBROUTINE GPTLBL (GPLST,X,U,DEFORM,BUF)\r\nC\r\n      INTEGER         GPLST(1),DEFORM,EXGPID,REW,GP,GPT,GPX,BUF\r\n      REAL            X(3,1),U(2,1)\r\n      COMMON /BLANK / NGP,SKP1(9),SKP2(5),EXGPID\r\n      COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTX\r\n      DATA    INPREW, REW / 0,1 /\r\nC\r\n      CALL GOPEN (EXGPID,GPLST(BUF),INPREW)\r\n      CALL TYPINT (0,0,0,0,0,-1)\r\n      DO 120 GP = 1,NGP\r\n      CALL FREAD (EXGPID,GPT,1,0)\r\n      CALL FREAD (EXGPID,GPX,1,0)\r\n      GPX = GPLST(GPX)\r\nC\r\nC     IF THE GRID POINT INDEX IS 0 (NOT IN SET) OR NEGATIVE (EXCLUDED),\r\nC     NEVER PUT A LABEL AT THAT GRID POINT.\r\nC\r\n      IF (GPX .LE. 0) GO TO 120\r\nC\r\nC     TYPE THE GRID POINT ID\r\nC\r\n      IF (DEFORM .NE. 0) GO TO 111\r\n      XX = X(2,GPX)\r\n      YY = X(3,GPX)\r\n      GO TO 112\r\n  111 XX = U(1,GPX)\r\n      YY = U(2,GPX)\r\n  112 CALL TYPINT (XX+CNTX,YY,1,GPT,0,0)\r\n  120 CONTINUE\r\nC\r\n      CALL CLOSE (EXGPID,REW)\r\n      CALL TYPINT (0,0,0,0,0,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gptsym.f",
    "content": "      SUBROUTINE GPTSYM (GPLST,X,U,SYM,DEFORM)\r\nC\r\n      INTEGER GPLST(1),SYM(2),DEFORM\r\n      REAL    X(3,1),U(2,1)\r\n      COMMON /BLANK/ NGP\r\nC\r\n      CALL SYMBOL (0,0,0,-1)\r\nC\r\nC     IF THE GRID POINT INDEX IS 0 (NOT IN SET) OR NEGATIVE (EXCLUDED),\r\nC     NEVER PUT A SYMBOL AT THAT GRID POINT.\r\nC\r\n      DO 110 I = 1,NGP\r\n      J  = GPLST(I)\r\n      IF (J .LE. 0) GO TO 110\r\n      IF (DEFORM .NE. 0) GO TO 105\r\n      XX = X(2,J)\r\n      YY = X(3,J)\r\n      GO TO 106\r\n  105 XX = U(1,J)\r\n      YY = U(2,J)\r\n  106 CALL SYMBOL (XX,YY,SYM,0)\r\n  110 CONTINUE\r\nC\r\n      CALL SYMBOL (0,0,0,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpwg.f",
    "content": "      SUBROUTINE GPWG\r\nC\r\nC     GRID POINT WEIGHT GENERATOR\r\nC\r\nC     INPUTS  - BGPDT,CSTM,EQEXIN,MGG\r\nC\r\nC     OUTPUTS - OGPWG\r\nC\r\nC     PARAMETERS -- POINT,WTMASS\r\nC\r\n      INTEGER        BGPDT,CSTM,EQEXIN,OGPWG,SCR1,SCR2,SCR3,SCR4,POINT\r\n      COMMON /BLANK/ POINT,WTMASS\r\n      DATA    BGPDT, CSTM,EQEXIN,MGG, OGPWG, SCR1,SCR2,SCR3,SCR4 /\r\n     1        101  , 102 ,103   ,104, 201  , 301 ,302 ,303 ,304  /\r\nC\r\nC     FORM D MATRIX (TRANSPOSED)\r\nC\r\n      IP = POINT\r\nC\r\n      CALL GPWG1A (POINT,BGPDT,CSTM,EQEXIN,SCR3,NOGO)\r\nC\r\nC     CHECK FOR AN ALL SCALAR PROBLEM AND A STUPID USER\r\nC\r\n      IF (NOGO .EQ. 0) GO TO 10\r\nC\r\nC     COMPUTE MZERO = DT*MGG*D\r\nC\r\n      CALL TRANP1 (SCR3,SCR1,2,SCR2,SCR4,0,0,0,0,0,0)\r\n      CALL SSG2B  (MGG ,SCR1,0,SCR2,0,1,1,SCR3)\r\n      CALL SSG2B  (SCR1,SCR2,0,SCR4,1,1,1,SCR3)\r\nC\r\nC     M-ZERO IS ON SCR4\r\nC\r\nC     FORM OUTPUT  STUFF\r\nC\r\n      IF (POINT .EQ. 0) IP = 0\r\n      CALL GPWG1B (SCR4,OGPWG,WTMASS,IP)\r\n   10 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpwg1a.f",
    "content": "      SUBROUTINE GPWG1A (IP,BGPDT,CSTM,EQEXIN,D,ISCALR)\r\nC\r\nC     ROUTINE FORMS D MATRIX (ACCTUALLY D TRANSPOSE)\r\nC\r\n      INTEGER         BGPDT,FILE,CSTM,EQEXIN,D,SYSBUF,MCB(7),NAME(2)\r\n      REAL            TR(3,3),TI(3,3),DD(6,6),R(3),TT(3,3),Z(5)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA    NAME  / 4HGPWG,4H1A  /\r\nC\r\nC     CONVERT  EXTERNAL IP TO INTERNAL IP\r\nC\r\n      IBUF = KORSZ(Z)-SYSBUF+1\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(IBUF),0)\r\n      CALL READ (*220,*10,EQEXIN,IZ(1),IBUF-1,0,IFLAG)\r\n      GO TO 240\r\n   10 CALL CLOSE (EQEXIN,1)\r\n      DO 20 I = 1,IFLAG,2\r\n      IF (IZ(I) .EQ. IP) GO TO 40\r\n   20 CONTINUE\r\n      CALL MESAGE (41,IP,NAME)\r\n      IP = 0\r\n      GO TO 50\r\n   30 CALL MESAGE (41,IP,NAME)\r\nC\r\nC     SCALAR POINT\r\nC\r\n      GO TO 60\r\n   40 IP = IZ(I+1)\r\nC\r\nC     FIND RZERO FOR  IP\r\nC\r\n   50 FILE = BGPDT\r\n      R(1) = 0.0\r\n      R(2) = 0.0\r\n      R(3) = 0.0\r\n      CALL GOPEN (BGPDT,Z(IBUF),0)\r\n      IF (IP .EQ. 0) GO TO 70\r\n      I = (IP-1)*4\r\n      CALL FREAD (BGPDT,Z,-I,0)\r\n      CALL FREAD (BGPDT,I, 1,0)\r\n      IF (I .EQ. -1) GO TO 30\r\n      CALL FREAD (BGPDT,R,3,0)\r\n   60 CALL REWIND (BGPDT)\r\n      CALL SKPREC (BGPDT,1)\r\nC\r\nC     SET UP TO WRITE D\r\nC\r\n   70 IBUF1 = IBUF-SYSBUF\r\n      NZ = IBUF1-5\r\nC\r\nC     BRING IN CSTM\r\nC\r\n      FILE = CSTM\r\n      CALL OPEN (*90,CSTM,Z(IBUF1),0)\r\n      CALL FWDREC (*220,CSTM)\r\n      CALL READ (*220,*80,CSTM,Z(5),NZ,0,NCSTM)\r\n      GO TO 240\r\n   80 CALL CLOSE (CSTM,1)\r\n      CALL PRETRS (Z(5),NCSTM)\r\n   90 CALL GOPEN (D,Z(IBUF1),1)\r\n      CALL MAKMCB (MCB,D,6,2,1)\r\n      ISCALR = 0\r\n      II   = 1\r\n      JJ   = 6\r\n      IT1  = 1\r\n      IT2  = 1\r\n      INCR = 1\r\nC\r\nC     EXAMINE BGPDT\r\nC\r\n  100 CALL READ (*220,*190,BGPDT,Z(1),4,0,IFLAG)\r\n      IF (IZ(1) .LT. 0) GO TO 170\r\nC\r\nC     COMPUTE  TR\r\nC\r\n      ISCALR  = 1\r\n      TR(1,1) = 0.0\r\n      TR(2,2) = 0.0\r\n      TR(3,3) = 0.0\r\n      TR(2,1) = Z(4)-R(3)\r\n      TR(1,2) =-TR(2,1)\r\n      TR(3,1) = R(2)-Z(3)\r\n      TR(1,3) =-TR(3,1)\r\n      TR(3,2) = Z(2)-R(1)\r\n      TR(2,3) =-TR(3,2)\r\n      DO 110 I = 1,3\r\n      DO 110 J = 1,3\r\n      TI(I,J) = 0.0\r\n      IF (I .EQ. J) TI(I,J) = 1.0\r\n  110 CONTINUE\r\n      IF (IZ(1) .EQ. 0) GO TO 130\r\n      CALL TRANSS (IZ(1),TI)\r\n      CALL GMMATS (TI,3,3,1,TR,3,3,0,TT)\r\n      DO 120 I = 1,3\r\n      DO 120 J = 1,3\r\n  120 TR(I,J) = TT(I,J)\r\nC\r\nC     MOVE STUFF INTO  DD\r\nC\r\n  130 DO 150 I = 1,6\r\n      DO 150 J = 1,3\r\n      IF (I .GT. 3) GO TO 140\r\n      DD(I,  J  ) = TI(J,I)\r\n      DD(I+3,J+3) = DD(I,J)\r\n      GO TO 150\r\n  140 DD(I,J) = TR(I-3,J)\r\n      DD(J,I) = 0.0\r\n  150 CONTINUE\r\n      DO 160 I = 1,6\r\n      CALL PACK (DD(1,I),D,MCB)\r\n  160 CONTINUE\r\n      GO TO 100\r\nC\r\nC     SCALAR POINT\r\nC\r\n  170 DO 180 I = 1,6\r\n  180 DD(I,1) = 0.0\r\n      CALL PACK (DD,D,MCB)\r\n      GO TO 100\r\nC\r\nC     END BGPDT\r\nC\r\n  190 CALL CLOSE (BGPDT,1)\r\n      CALL CLOSE (D,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  210 CALL MESAGE (IP1,FILE,NAME)\r\n  220 IP1 = -2\r\n      GO TO 210\r\n  240 IP1 = -8\r\n      GO TO 210\r\n      END\r\n"
  },
  {
    "path": "mis/gpwg1b.f",
    "content": "      SUBROUTINE GPWG1B (MO,OGPWG,WTMASS,IPOINT)\r\nC\r\nC     DOUBLE PRECISION VERSION, BY G.CHAN/UNISYS  8/86\r\nC\r\nC     THIS ROUTINE WRITES OGPWG--\r\nC         HEADER\r\nC         MO =  36 D.P.WORDS\r\nC         S  =  9  D.P.WORDS\r\nC         MX,XX,YX,ZX,MY,XY,YY,ZY,MZ,XZ,YZ,ZZ  = 12 D.P.WORDS\r\nC         I  =  9  D.P.WORDS\r\nC         I1P, I2P, I3P = 3 D.P.WORDS\r\nC         Q  =  9  D.P.WORDS\r\nC               78 D.P.WORDS (156 S.P.WORDS) TOTAL\r\nC\r\n      DOUBLE PRECISION  S(3,3),MT(3,3),MTR(3,3),MR(3,3),TEMP(3,3),\r\n     1                  DZ(36),DELTA,EPSI\r\n      INTEGER           SYSBUF,MO,OGPWG,NAME(2),Z(150)\r\n      EQUIVALENCE       (DZ(1),Z(1),IZ(1))\r\nC\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ IT1,II,JJ,INCR\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /OUTPUT/ HEAD(1)\r\nC\r\n      DATA    NAME  / 4HGPWG,4H1B   /\r\nC\r\nC     ASSIGN BUFFER\r\nC     OPEN OGPWG, PUT ON OFP HEADER\r\nC\r\n      IBUF = KORSZ(Z)- SYSBUF+1\r\n      CALL GOPEN (MO,Z(IBUF),0)\r\nC\r\nC     UNPACK MO  + MOVE TO PARTITIONS\r\nC\r\n      IT1  = 2\r\n      INCR = 1\r\n      JJ   = 6\r\n      II   = 1\r\n      K    = 1\r\n      DO 30 I=1,6\r\n      CALL UNPACK (*10,MO,DZ(K))\r\n      GO TO 30\r\n   10 DO 20 L=1,6\r\n      M = L+K-1\r\n      DZ(M) =0.0D0\r\n   20 CONTINUE\r\n   30 K = K+6\r\n      CALL CLOSE (MO,1)\r\n      DELTA=1.D0/WTMASS\r\n      DO 40 I=1,36\r\n      DZ(I) = DZ(I)*DELTA\r\n   40 CONTINUE\r\nC\r\nC     OPEN OGPWG FOR OUTPUT\r\nC\r\n      CALL GOPEN (OGPWG,Z(IBUF),1)\r\n      DO 42 I = 104,150\r\n   42 Z(I) = 0\r\n      Z(101) = 1\r\n      Z(102) = 13\r\n      Z(103) = IPOINT\r\n      Z(110) = 78*2\r\n      CALL WRITE (OGPWG,Z(101),50,0)\r\n      CALL WRITE (OGPWG,HEAD,96,1)\r\nC\r\nC     PUT MO  ON OGPWG\r\nC\r\n      CALL WRITE (OGPWG,Z(1),72,0)\r\nC\r\nC     PARTITION MO INTO MT, MTR, AND MR\r\nC     AND CREATE DIAGONAL S MATRIX\r\nC\r\n      MT(1,1) = DZ(1)\r\n      MT(1,2) = DZ(2)\r\n      MT(1,3) = DZ(3)\r\n      MT(2,1) = DZ(7)\r\n      MT(2,2) = DZ(8)\r\n      MT(2,3) = DZ(9)\r\n      MT(3,1) = DZ(13)\r\n      MT(3,2) = DZ(14)\r\n      MT(3,3) = DZ(15)\r\n      MTR(1,1)= DZ(4)\r\n      MTR(2,1)= DZ(5)\r\n      MTR(3,1)= DZ(6)\r\n      MTR(1,2)= DZ(10)\r\n      MTR(2,2)= DZ(11)\r\n      MTR(3,2)= DZ(12)\r\n      MTR(1,3)= DZ(16)\r\n      MTR(2,3)= DZ(17)\r\n      MTR(3,3)= DZ(18)\r\n      MR(1,1) = DZ(22)\r\n      MR(1,2) = DZ(23)\r\n      MR(1,3) = DZ(24)\r\n      MR(2,1) = DZ(28)\r\n      MR(2,2) = DZ(29)\r\n      MR(2,3) = DZ(30)\r\n      MR(3,1) = DZ(34)\r\n      MR(3,2) = DZ(35)\r\n      MR(3,3) = DZ(36)\r\n      S(1,1)  = 1.0D0\r\n      S(1,2)  = 0.0D0\r\n      S(1,3)  = 0.0D0\r\n      S(2,1)  = 0.0D0\r\n      S(2,2)  = 1.0D0\r\n      S(2,3)  = 0.0D0\r\n      S(3,1)  = 0.0D0\r\n      S(3,2)  = 0.0D0\r\n      S(3,3)  = 1.0D0\r\nC\r\nC     COMPUTE  DETERMINATE OF  MT\r\nC\r\n      DELTA = DSQRT(MT(1,1)**2 + MT(2,2)**2 + MT(3,3)**2)\r\n      EPSI  = DSQRT(MT(2,1)**2 + MT(3,1)**2 + MT(3,2)**2)\r\n      IF (EPSI  .EQ. 0.0D0) GO TO 60\r\n      EPSI = EPSI/DELTA\r\n      IF (DELTA .EQ. 0.0D0) GO TO 45\r\n      IF (EPSI .LT. 1.0D-6) GO TO 60\r\nC\r\nC     ROTATE COORDINATES\r\nC\r\n   45 R = EPSI\r\n      CALL MESAGE (42,R,NAME)\r\n      DO 50 I=1,3\r\n      DO 50 J=1,3\r\n      TEMP(I,J)= MT(I,J)\r\n   50 CONTINUE\r\nC\r\nC     COMPUTE EIGENVECTORS OF  MT  BY JACOBY  METHOD\r\nC\r\n      CALL GPWG1C (TEMP,S,DZ(1),IFLAG)\r\n      IF (IFLAG .GT. 0) CALL MESAGE(-7,0,NAME)\r\nC\r\nC     ORDER EIGENVECTORS  SUCH THAT\r\nC\r\nC     TRANSFORM  MT\r\nC\r\n      CALL GMMATD (MT,3,3,0,S,3,3,0,TEMP)\r\n      CALL GMMATD (S,3,3,1,TEMP,3,3,0,MT)\r\nC\r\nC     TRANSFORM  MTR\r\nC\r\n      CALL GMMATD (MTR,3,3,0,S,3,3,0,TEMP)\r\n      CALL GMMATD (S,3,3,1,TEMP,3,3,0,MTR)\r\nC\r\nC     TRANSFORM  MR\r\nC\r\n      CALL GMMATD (MR,3,3,0,S,3,3,0,TEMP)\r\n      CALL GMMATD (S,3,3,1,TEMP,3,3,0,MR)\r\nC\r\nC     OUTPUT S\r\nC\r\n   60 CALL WRITE (OGPWG,S,18,0)\r\nC\r\nC     COMPUTE   MX,XX,YX,ZX\r\nC\r\n      DZ(1) = MT(1,1)\r\n      DZ(2) = 0.0D0\r\n      DZ(3) = 0.0D0\r\n      DZ(4) = 0.0D0\r\n      IF (DZ(1) .EQ. 0.0D0) GO TO 70\r\n      DZ(2) = MTR(1,1)/DZ(1)\r\n      DZ(3) =-MTR(3,1)/DZ(1)\r\n      DZ(4) = MTR(2,1)/DZ(1)\r\n   70 CALL WRITE (OGPWG,DZ(1),8,0)\r\n      DZ(5) = MT(2,2)\r\n      DZ(6) = 0.0D0\r\n      DZ(7) = 0.0D0\r\n      DZ(8) = 0.0D0\r\n      IF (DZ(5) .EQ.0. 0D0) GO TO 80\r\n      DZ(6) = MTR(3,2)/DZ(5)\r\n      DZ(7) = MTR(2,2)/DZ(5)\r\n      DZ(8) =-MTR(1,2)/DZ(5)\r\n   80 CALL WRITE (OGPWG,DZ(5),8,0)\r\n      DZ( 9) = MT(3,3)\r\n      DZ(10) = 0.0D0\r\n      DZ(11) = 0.0D0\r\n      DZ(12) = 0.0D0\r\n      IF (DZ(9) .EQ. 0.0D0) GO TO 90\r\n      DZ(10) =-MTR(2,3)/DZ(9)\r\n      DZ(11) = MTR(1,3)/DZ(9)\r\n      DZ(12) = MTR(3,3)/DZ(9)\r\n   90 CALL WRITE (OGPWG,DZ(9),8,0)\r\nC\r\nC     COMPUTE INERTIAS\r\nC\r\n      TEMP(1,1) = MR(1,1) - DZ(5)*DZ(8)*DZ(8) - DZ(9)*DZ(11)*DZ(11)\r\n      TEMP(2,1) =-MR(1,2) - DZ(9)*DZ(10)*DZ(11)\r\n      TEMP(1,2) = TEMP(2,1)\r\n      TEMP(1,3) =-MR(1,3) - DZ(5)*DZ(6)*DZ(8)\r\n      TEMP(3,1) = TEMP(1,3)\r\n      TEMP(2,2) = MR(2,2) - DZ(9)*DZ(10)*DZ(10) - DZ(1)*DZ(4)*DZ(4)\r\n      TEMP(2,3) =-MR(2,3) - DZ(1)*DZ(3)*DZ(4)\r\n      TEMP(3,2) = TEMP(2,3)\r\n      TEMP(3,3) = MR(3,3) - DZ(1)*DZ(3)*DZ(3) - DZ(5)*DZ(6)*DZ(6)\r\n      CALL WRITE (OGPWG,TEMP,18,0)\r\n      CALL GPWG1C (TEMP,S,DZ(1),IFLAG)\r\n      IF (IFLAG .GT. 0) CALL MESAGE(-7,0,NAME)\r\nC\r\nC     PUT OUT  PRINCIPLE INERTIA-S\r\nC\r\n      CALL WRITE (OGPWG,DZ(1),6,0)\r\nC\r\nC     PUT  OUT  Q\r\nC\r\n      CALL WRITE (OGPWG,S,18,0)\r\n      CALL CLSTAB (OGPWG,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gpwg1c.f",
    "content": "      SUBROUTINE GPWG1C  (B,E,EIG,IFLAG)\r\nC\r\nC     DOUBLE PRECISION VERSION, BY G.CHAN/SPERRY    8/86\r\nC\r\nC     IFLAG=0 MEANS RUN OK\r\nC     IFLAG=1 MEANS NO SOLUTION IN 20 ITERATIONS\r\nC\r\n      DOUBLE PRECISION  E(3,3),EP(3,3),B(3,3),BP(3,3),EIG(3)\r\n      DOUBLE PRECISION  DETB,EPSIL,BMAX,R,S,C,T\r\nC\r\n      DETB = 0.0D0\r\n      DO 5 I = 1,3\r\n      DO 5 J = 1,3\r\n      DETB = DETB+B(I,J)*B(I,J)\r\n    5 CONTINUE\r\n      EPSIL = DSQRT(DETB)*1.0D-5\r\n      IFLAG =0\r\n      II = 1\r\n      DO 10 I=1,3\r\n      DO 10 J=1,3\r\n      E(I,J) = 0.0D0\r\n      IF (I .EQ. J) E(I,J) = 1.0D0\r\n   10 CONTINUE\r\n      IF (DETB .EQ. 0.0D0) GO TO 100\r\n   15 BMAX = DMAX1(DABS(B(1,2)),DABS(B(1,3)),DABS(B(2,3)))\r\n      IF (DABS(BMAX)  .LT. EPSIL) GO TO 100\r\n      IF (BMAX .NE. DABS(B(1,2))) GO TO 20\r\n      I = 1\r\n      J = 2\r\n      K = 3\r\n      GO TO 40\r\n   20 IF (BMAX .NE. DABS(B(1,3))) GO TO 30\r\n      I = 1\r\n      J = 3\r\n      K = 2\r\n      GO TO 40\r\n   30 I = 2\r\n      J = 3\r\n      K = 1\r\n   40 R = (B(J,J)-B(I,I))/B(I,J)\r\n      IF (DABS(R) .LT. 1.0D-6) GO TO 50\r\n      IF (DABS(R) .GT. 1.0D+6) GO TO 60\r\n      T = DSQRT((R*R)/4.0D0+1.0D0)-0.5D0*R\r\n      C = DSQRT(1.0D0+T*T)\r\n      S = T/C\r\n      C = 1.0D0/C\r\n      GO TO 70\r\n   50 S = DSQRT(.5D0)\r\n      C = S\r\n      GO TO 70\r\n   60 S = 0.0D0\r\n      C = 1.0D0\r\n   70 BP(I,I) = B(I,I)*C*C+B(J,J)*S*S-2.0D0*B(I,J)*S*C\r\n      BP(J,J) = B(I,I)*S*S+B(J,J)*C*C+2.0D0*B(I,J)*S*C\r\n      BP(K,K) = B(K,K)\r\n      BP(J,I) = 0.0D0\r\n      BP(I,J) = 0.0D0\r\n      BP(K,I) = B(I,K)*C-B(J,K)*S\r\n      BP(I,K) = BP(K,I)\r\n      BP(K,J) = B(J,K)*C+B(I,K)*S\r\n      BP(J,K) = BP(K,J)\r\n      EP(I,1) = E(I,1)*C-E(J,1)*S\r\n      EP(J,1) = E(I,1)*S+E(J,1)*C\r\n      EP(K,1) = E(K,1)\r\n      EP(I,2) = E(I,2)*C-E(J,2)*S\r\n      EP(J,2) = E(I,2)*S+E(J,2)*C\r\n      EP(K,2) = E(K,2)\r\n      EP(I,3) = E(I,3)*C-E(J,3)*S\r\n      EP(J,3) = E(I,3)*S+E(J,3)*C\r\n      EP(K,3) = E(K,3)\r\n      DO 80  I=1,3\r\n      DO 80  J=1,3\r\n      B(I,J) = BP(I,J)\r\n      E(I,J) = EP(I,J)\r\n   80 CONTINUE\r\n      IF (II .GE. 21) GO TO 90\r\n      II = II+1\r\n      GO TO 15\r\n   90 IFLAG=1\r\n      GO TO 120\r\n  100 DO 110  I=1,3\r\n  110 EIG(I) = B(I,I)\r\n  120 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/grav.f",
    "content": "      SUBROUTINE GRAV (NGRAV,GVECT,NLIST,ILIST,NLOOP)\r\nC\r\n      INTEGER        NAME(2)\r\n      DIMENSION      GVECT(1),GL(5),X(3),ILIST(1)\r\n      COMMON /TRANX/ NSYS,TYSYS,RO(3),TO(3,3)\r\n      COMMON /LOADX/ LCORE,SLT,N(14),NOBLD\r\n      EQUIVALENCE    (IGL,GL(2))\r\n      DATA    NAME / 4HGRAV,4H    /\r\nC\r\nC     CONVERTS GRAV CARD TO BASIC AND STORES\r\nC     GB = G*TON*V\r\nC\r\n      CALL READ (*30,*40,SLT,GL(1),5,0,FLAG)\r\n      GO TO 50\r\n   20 RETURN\r\nC\r\n   30 CONTINUE\r\n   40 CALL MESAGE (-7,NAME,NAME)\r\n   50 NGRAV = NGRAV + 1\r\n      IF (GL(1)) 60,70,60\r\n   60 CALL FDCSTM (GL(1))\r\n      CALL MPYL (TO,GL(3),3,3,1,X(1))\r\n      DO 61 I = 1,3\r\n      GL(I+2) = X(I)\r\n   61 CONTINUE\r\n   70 DO 80 I = 1,3\r\n      J = (NGRAV-1)*3 + I\r\n   80 GVECT(J) = GL(I+2)*GL(2)\r\n      NL1 = NLOOP - NGRAV + 1\r\n      IF (NL1 .EQ. NLIST) GO TO 20\r\n      NSAVE  = ILIST(NL1)\r\n      NLIST1 = NLIST - 1\r\n      DO 90 I = NL1,NLIST1\r\n   90 ILIST(I) = ILIST(I+1)\r\n      ILIST(NLIST) = NSAVE\r\n      GO TO 20\r\n      END\r\n"
  },
  {
    "path": "mis/gravl1.f",
    "content": "      SUBROUTINE GRAVL1(NVECT,GVECT,SR1,IHARM)\r\nC\r\n      INTEGER GRAVT(7),OLD,SYSBUF,SR1,BGPDT,SIL,CSTM\r\n      INTEGER NAME(2)\r\nC\r\n      DIMENSION  IGPCO(4),GVECT(1),VECT(3)\r\nC\r\n      COMMON /BLANK/NROWSP\r\n      COMMON /SYSTEM/SYSBUF\r\n      COMMON /ZBLPKX/ B(4),II\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON  /LOADX/ N(2),BGPDT,OLD,CSTM,SIL,ISTL,NN(8),MASS\r\nC\r\n      DATA NAME/4HGRAV,4HL1  /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IF (IHARM .EQ. 0) GO TO 5\r\n      CALL GRAVL3(NVECT,GVECT,SR1,IHARM)\r\n      RETURN\r\n    5 CONTINUE\r\n      LCORE=KORSZ(CORE)\r\n      ICM = 1\r\n      NZ = LCORE\r\n      LCORE=LCORE-SYSBUF\r\n      CALL GOPEN(SR1,CORE(LCORE+1),1)\r\n      LCORE =LCORE - SYSBUF\r\n      CALL GOPEN(BGPDT,CORE(LCORE+1),0)\r\n      OLD =0\r\n      LCORE =LCORE -SYSBUF\r\n      CALL OPEN(*10,CSTM,CORE(LCORE+1),0)\r\n      ICM = 0\r\n      CALL SKPREC(CSTM,1)\r\n      LCORE =LCORE-SYSBUF\r\n   10 CALL GOPEN(SIL,CORE(LCORE+1),0)\r\n      ISIL=0\r\n      CALL MAKMCB(GRAVT,SR1,NROWSP,2,1)\r\n      DO 140 ILOOP=1,NVECT\r\n   20 CALL READ(*200,*120,SIL,ISIL1,1,0,FLAG)\r\n      IF(ISIL1) 20,30,30\r\n   30 IL=(ILOOP-1)*3\r\n      ASSIGN 60 TO IOUT\r\n      IPONT=1\r\n      CALL BLDPK(1,1,GRAVT(1),0,0)\r\n   40 CALL READ(*200,*120,SIL,ISIL2,1,0,FLAG)\r\n      IF(ISIL2) 40,50,50\r\n   50 IF(ISIL2 -ISIL1-1) 70,60,70\r\n   60 ISIL1 = ISIL2\r\n      IPONT = IPONT+1\r\n      GO TO 40\r\n   70 CALL FNDPNT (IGPCO(1),IPONT)\r\n      DO 80 I=1,3\r\n      IN= I+IL\r\n   80 VECT(I) = GVECT(IN)\r\n      IF (IGPCO(1).NE.0) CALL BASGLB (VECT(1),VECT(1),IGPCO(2),IGPCO(1))\r\n      DO 110 I=1,3\r\n      B(1)=VECT(I)\r\n      II = ISIL1-1+I\r\n      CALL ZBLPKI\r\n  110 CONTINUE\r\n      GO TO IOUT,(60,130)\r\nC\r\nC     END SIL\r\nC\r\n  120 ASSIGN 130 TO IOUT\r\n      IF(NROWSP-ISIL1) 70,130,70\r\n  130 CALL REWIND(BGPDT)\r\n      CALL REWIND(SIL)\r\n      CALL BLDPKN(GRAVT(1),0,GRAVT)\r\n      CALL SKPREC(SIL,1)\r\n      ISIL=0\r\n      CALL SKPREC(BGPDT,1)\r\n      OLD=0\r\n  140 CONTINUE\r\n      CALL CLOSE(BGPDT,1)\r\n      IF(ICM .EQ. 0) CALL CLOSE(CSTM,1)\r\n      CALL CLOSE (SIL,1)\r\n      CALL CLOSE (GRAVT(1),1)\r\n      CALL WRTTRL (GRAVT)\r\n      RETURN\r\nC\r\n  200 CALL MESAGE (-3,IPM,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/gravl2.f",
    "content": "      SUBROUTINE GRAVL2(NVECT,FILD,PG)\r\nC\r\n      INTEGER PG(7),SYSBUF,FILD,SIL\r\n      INTEGER NAME(2)\r\nC\r\n      COMMON /BLANK/NROWSP\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON  /ZNTPKX/ A(4),LL,IEOL\r\n      COMMON /ZBLPKX/ B(4),II\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON  /LOADX/ N(2),BGPDT,OLD,CSTM,SIL,ISTL,NN(8),MASS\r\nC\r\n      DATA NAME/4HGRAV,4HL2  /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      LCORE=KORSZ(CORE)\r\n      NZ = LCORE\r\n      LCORE=LCORE-SYSBUF\r\n      CALL OPEN(*170,PG(1),CORE(LCORE+1),0)\r\n      CALL SKPFIL (PG,1)\r\n      CALL SKPFIL (PG,-1)\r\n      CALL CLOSE (PG,2)\r\n      CALL OPEN(*170,PG(1),CORE(LCORE+1),3)\r\n      LCORE = LCORE-SYSBUF\r\n      CALL GOPEN(FILD,CORE(LCORE+1),0)\r\n      LCORE=LCORE-SYSBUF\r\n      CALL GOPEN( SIL,CORE(LCORE+1),0)\r\n      IBUF=LCORE\r\n      ISIL=0\r\n      DO 160 ILOOP=1,NVECT\r\n   50 CALL READ(*210,*130,SIL,ISIL1,1,0,FLAG)\r\n      IF(ISIL1) 50,60,60\r\n   60 ASSIGN 100 TO IOUT\r\n      CALL BLDPK(1,1,PG(1),0,0)\r\n      CALL INTPK(*150,FILD,0,1,0)\r\n   70 CALL READ(*210,*130,SIL,ISIL2,1,0,FLAG)\r\n      IF(ISIL2) 70,80,80\r\n   80 IF (ISIL2-ISIL1-1) 140,90,140\r\n   90 GO TO IOUT,(100,150)\r\n  100 IF (IEOL.NE.0) GO TO 150\r\n      CALL ZNTPKI\r\n      IF (LL-ISIL1) 120,90,70\r\n  120 B(1)=A(1)\r\n      II=LL\r\n      CALL ZBLPKI\r\n      GO TO 90\r\n  130 ASSIGN 150 TO IOUT\r\n      IF(NROWSP-ISIL1) 140,150,140\r\n  140 ISIL1 = 999999\r\n      GO TO 90\r\n  150 CALL REWIND(SIL)\r\n      CALL BLDPKN(PG(1),0,PG)\r\n      CALL SKPREC(SIL,1)\r\n      ISIL=0\r\n  160 CONTINUE\r\n      CALL CLOSE (SIL,1)\r\n      CALL CLOSE (FILD,1)\r\n      CALL WRTTRL (PG)\r\n      CALL CLOSE (PG,1)\r\n      RETURN\r\nC\r\n  170 IPM=PG(1)\r\n      CALL MESAGE (-1,IPM,NAME)\r\nC\r\n  210 CALL MESAGE (-3,SIL,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/gravl3.f",
    "content": "      SUBROUTINE GRAVL3 (NVECT,GVECT,SR1,IHARM)\r\nC\r\nC     BUILD GRAVITY LOADS FOR AXISYMMETRIC SHELL\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     NVECT    NUMBER OF GRAVITY LOADS\r\nC     GVECT    ARRAY OF G VECTORS\r\nC     SR1      FILE TO PUT ACCELERATION VECTOR ON\r\nC     IHARM    SINE OR COSINE SET FLAG -- 1 = SINE SET\r\nC     LUSET    LENGTH OF G SET\r\nC     MCB      MATRIX CONTROL BLOCK FOR SR1\r\nC     M        NUMBER OF RINGS\r\nC     N        NUMBER OF HARMONICS\r\nC     IL       POINTER IN GVECT ARRAY\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      INTEGER         ANDF,RSHIFT,SYSBUF,MCB(7),SR1\r\n      DIMENSION       GVECT(1)\r\n      DIMENSION       ISYSTM(175)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /BLANK / LUSET\r\n      COMMON /SYSTEM/ SYSBUF,IX(25),MN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ZBLPKX/ B(4),II\r\n      EQUIVALENCE (SYSBUF, ISYSTM(1))\r\nC\r\nC     INITIALIZE STUFF\r\nC\r\n      IBUF = KORSZ(Z) - SYSBUF + 1\r\n      CALL GOPEN (SR1,Z(IBUF),1)\r\n      CALL MAKMCB (MCB,SR1,LUSET,2,1)\r\n      IL    = 1\r\n      N = MN\r\n      M = ISYSTM(161)\r\nC\r\nC     BUILD NVECT GRAVITY VECTORS\r\nC\r\n      DO 140 ILOOP = 1,NVECT\r\n      CALL BLDPK (1,1,MCB(1),0,0)\r\nC\r\nC     COMPUTE VALUES\r\nC\r\n      SINTH = 0.0\r\n      SINPH = 0.0\r\n      COSPH = 1.0\r\n      G = SQRT(GVECT(IL)*GVECT(IL)+GVECT(IL+1)*GVECT(IL+1)+GVECT(IL+2)*\r\n     1    GVECT(IL+2))\r\n      COSTH = GVECT(IL+2)/G\r\n      IF (GVECT(IL).EQ.0.0 .AND. GVECT(IL+1).EQ.0.0) GO TO 30\r\n      GXY   = SQRT(GVECT(IL)*GVECT(IL)+ GVECT(IL+1)*GVECT(IL+1))\r\n      SINTH = GXY/G\r\n      SINPH = GVECT(IL+1)/GXY\r\n      COSPH = GVECT(IL  )/GXY\r\n   30 CONTINUE\r\n      GO TO (40,50), IHARM\r\nC\r\nC     SINE SET\r\nC\r\n   40 B(1) = G*SINTH*SINPH\r\n      II = LUSET - M*(N-1)*6 + 1\r\n      DO 41 I = 1,M\r\n      CALL ZBLPKI\r\n      II = II +1\r\n      CALL ZBLPKI\r\n      II = II +5\r\n   41 CONTINUE\r\n      GO TO 110\r\nC\r\nC     COSINE SET\r\nC\r\n   50 B(1)=  G*COSTH\r\n      II  = LUSET - M*N*6 + 3\r\nC\r\nC     LOAD ZERO HARMONIC\r\nC\r\n      DO 51 I = 1,M\r\n      CALL ZBLPKI\r\n      II = II + 6\r\n   51 CONTINUE\r\nC\r\nC     LOAD 2-D HARMONIC\r\nC\r\n      II = II - 2\r\n      B(1) = G*SINTH*COSPH\r\n      DO 52 I = 1,M\r\n      CALL ZBLPKI\r\n      II = II +1\r\n      B(1) = -B(1)\r\n      CALL ZBLPKI\r\n      B(1) = -B(1)\r\n      II = II +5\r\n   52 CONTINUE\r\nC\r\nC     END OF COLUMN\r\nC\r\n  110 CALL BLDPKN (MCB(1),0,MCB(1))\r\n      IL = IL + 3\r\n  140 CONTINUE\r\n      CALL CLOSE (MCB(1),1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/grbvec.f",
    "content": "      SUBROUTINE GRBVEC\r\nC\r\nC     THIS SUBROUITNE IS THE MAIN DRIVER FOR THE VECGRB MODULE\r\nC     WHICH GENERATES\r\nC\r\nC     (1) THE GEOMETRIC RIGID BODY VECTORS ABOUT THE INDICATED GRID\r\nC         POINT OR ORIGIN.\r\nC         THIS SET OF VECTORS CONSISTS OF UNIT DISPLACEMENTS IN ZERO\r\nC         COORDINATE SYSTEM ABOUT THE SPECIFIED GRID IN GLOBAL COORD.\r\nC         FOR EASE OF ASSEMBLY THE VECTOR IS GENERATED IN THE TRANSPOSED\r\nC         FORM, THAT IS, WITH SIX ROW, ONE FOR EACH OF THE SIX UNIT\r\nC         MOTIONS AND G-SET COLUMNS, ONE FOR EACH DOF'S CORRESPONDING\r\nC         MOTION. THIS SET OF VECTORS WOULD BE EXACTLY EQUAL TO A UNIT\r\nC         DISPLACEMENT CHECK IF ALL THE GRIDS HAD STIFFNESS BUT WERE\r\nC         NOT GROUNDED.\r\nC\r\nC     (2) A g-SET SIZED CSTM FROM BASIC TO GOLBAL\r\nC\r\nC     DMAP SEQUENCE -\r\nC\r\nC     VECGRB    BGPDT,EQEXIN,CSTM/OUTVEC/P1/P2/P3   $\r\nC\r\nC     WHERE     P1 = 1, GENERATE CSTM FROM BASIC TO GLOBAL\r\nC                  = 2, GENERATE PHIRBT\r\nC               P2 = REFERENCE GRID FOR PHIRB (0=BASIC, DEFAULT)\r\nC               P3 = CURRENTLY NOT USED\r\nC\r\nC     EXAMPLES -\r\nC\r\nC     (1) G-SET EQUILIBRIUM CHECK\r\nC     THIS CHECK MULTIPLIES THE STIFFNESS MATRIX TIMES THE GEOMETRIC\r\nC     RIGID BODY SHAPES PENERATED BY VECRGB. THE FORCES OBATINED FROM\r\nC     THIS MULTIPLICATION SHOULD BE ZERO.\r\nC\r\nC     VECGRB   BGPDT,CSTM,EQEXIN/PHIRBT/2/0  $ CREATE TRANSPOSE OF RIGID\r\nC     TRNSP    PHIRBT/PHIRB                  $ BODY VECTORS, THEN TRNSP\r\nC     MPYAD    KGG,PHIRB,/KPHIG/0            $ MULTIPLY BY STIFFNESS.\r\nC     MPYAD    PHIRBT,KPHIG,/KPHG6/0         $ SUM FORCES AND PRINT\r\nC     MATPRN   KPHG6,,,, //                  $ 6X6 SUMMATION. PRINT ALL\r\nC     MATGPR   GPL,USET,SIL,KPHIG//*G*/*G*// $ FORCES OVER 0.0001\r\nC              .0001                         $\r\nC\r\nC     (2) COORDINATE SYSTEM TRANSFORMATION\r\nC\r\nC     VECRGB   BGPDT,CSTM,EQEXIN/BCSTM/1     $ TRANSFORM GLOBAL KGG TO\r\nC     TRNSP    BCSTM/BCSTMT/                 $ BASIC\r\nC     MPYAD    BCSTM,KGG,/BGKGG/0            $\r\nC     MPYAD    BGKGG,BCSTMT,/BBKGG/0         $\r\nC\r\nC     THIS SUBROUTINE WAS ORIGINALLY CALLED CSTMX, AND WAS WRITTEN BY\r\nC     P.KIRCHMAN/SWALES, 2/1993, WITH THE DMAP MODULE OF THE SAME NAME\r\nC\r\nC     THE DMAP MODLUE IS RENAMED TO GEOMETRIC RIGID BODY VECTOR, VECGRB,\r\nC     AND THE SUBROUTINE GRBVEC. THE ORIGINAL SUBROUTINE WAS RE-CODED BY\r\nC     G.CHAN/UNISIS, USING NASTRAN TRADITIONAL FORTRAN STYLE, AND THE\r\nC     SUBSTITUTION OF GMMATD ROUTINE FOR DP3X3M. ALSO, THE ORDER OF 2ND\r\nC     AND 3RD INPUT DATA BLOCKS IS INTERCHANGED.\r\nC\r\nC     THE ORIGINAL CSTMX IS INCLUDED IN THE 1993 RELEASE. IT IS ONLY\r\nC     FOR BACKUP PURPOSE. CSTMX WILL BE DELETED IN NEXT NASTRAN RELEASE\r\nC     (THE ORIGINAL CSTMX ROUTINE PRODUCED HUNDREDS OF FORTRAN ERRORS\r\nC     ON CDC MACHINE WITH FTN5 COMPILER. 3/93)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          RBV\r\n      INTEGER          TRL(7),NAME(2),SUB(2)\r\n      REAL             RX(1)\r\n      DOUBLE PRECISION RBVR(3),V3(3),ZERO,ONE,XG,YG,ZG,RAD,XL,TU(9),\r\n     1                 T1(9),T2(9),T(9),RVEC(9),RBVEC(9),V(3),VOUT(6)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3\r\n      COMMON /ZZZZZZ/  IX(1)\r\n      COMMON /SYSTEM/  IBUFF,NOUT\r\n      COMMON /PACKX /  TIN,TOU,II,JJ,INCR\r\n      EQUIVALENCE      (IX(1),RX(1))\r\n      DATA    BGPDT ,  EQEXIN, CSTM / 101,102,103  /,\r\n     1        OUTVEC/  201 /,  SUB  / 4HGRBV,4HC   /\r\n      DATA    ZERO  ,  ONE /  0.0D+0, 1.0D+0       /\r\n      DATA    CSTMX ,  EQE,XIN,       BGP,DT       /\r\n     1        4HCSTM,  4HEQEX,4HIN  , 4HBGPD,4HT   /\r\nC\r\nC     CHECK FOR THE PRESENCE OF OUTPUT DATA BLOCK\r\nC\r\n      TRL(1) = OUTVEC\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 1000\r\nC\r\nC     INITIALIZATION\r\nC\r\n      LCOR  = KORSZ(IX(1)) - IBUFF\r\n      BUF1  = LCOR - 1\r\n      TU(1) = ONE\r\n      TU(2) = ZERO\r\n      TU(3) = ZERO\r\n      TU(4) = ZERO\r\n      TU(5) = ONE\r\n      TU(6) = ZERO\r\n      TU(7) = ZERO\r\n      TU(8) = ZERO\r\n      TU(9) = ONE\r\nC\r\nC     CHECK THE PRESENCE OF BGPDT AND CSTM FILES\r\nC\r\n      TRL(1)= BGPDT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 1020\r\n      NENT  = TRL(2)\r\n      TRL(1)= CSTM\r\n      CALL RDTRL (TRL)\r\n      NCST  = TRL(3)\r\n      IF (TRL(1) .LE. 0) NCST = 0\r\n      NENT4 = NENT*4\r\n      NCST14= NCST*14\r\n      IF (NENT4+NCST14 .GT. LCOR) GO TO 1100\r\n      RBV   = P1 .EQ. 2\r\nC\r\nC     CHECK IF THIRD INPUT FILE IS PRESENT, THEN OPEN EQEXIN FILE AND\r\nC     READ THE FIRST TABLE INTO CORE IF APPROPRIEATE\r\nC\r\n      GRDPNT = 0\r\n      IF (P1.NE.2 .OR. P2.EQ.0) GO TO 60\r\n      TRL(1) = EQEXIN\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 1020\r\n      FILE = EQEXIN\r\n      CALL FNAME (EQEXIN,NAME)\r\n      IF (NAME(1).NE.EQE .OR. NAME(2).NE.XIN) GO TO 1040\r\n      CALL OPEN (*1200,EQEXIN,IX(BUF1),0)\r\n      CALL FWDREC (*1300,EQEXIN)\r\n      CALL READ (*1300,*20,EQEXIN,IX(1),BUF1-1,1,FLAG)\r\n      CALL MESAGE (-8,0,SUB)\r\n   20 TRL2 = TRL(2)*2\r\n      IF (FLAG .NE. TRL2) GO TO 1320\r\n      J = 1\r\n      DO 30 I = 1,TRL2,2\r\n      IF (P2 .NE. IX(J)) GO TO 30\r\n      GRDPNT = IX(J+1)\r\n      GO TO 50\r\n   30 J = J + 2\r\n      GRDPNT = 0\r\n      WRITE  (NOUT,40) UWM,P2\r\n   40 FORMAT (A25,' - ID ',I8,' IS NOT A GRID POINT.  THE ORIGIN WILL ',\r\n     1       'BE USED.')\r\n   50 CALL CLOSE (EQEXIN,1)\r\nC\r\nC     OPEN AND READ BGPDT TABLE INTO BEGINNING OF CORE\r\nC\r\n   60 FILE = BGPDT\r\n      CALL FNAME (BGPDT,NAME)\r\n      IF (NAME(1).NE.BGP .AND. NAME(2).NE.DT) GO TO 1040\r\n      CALL OPEN (*1200,BGPDT,IX(BUF1),0)\r\n      CALL FWDREC (*1300,BGPDT)\r\n      CALL READ (*1300,*70,BGPDT,IX(1),BUF1-1,1,FLAG)\r\n      CALL MESAGE (-8,0,SUB)\r\n   70 IF (FLAG .NE. NENT4) GO TO 1330\r\n      CALL CLOSE (BGPDT,1)\r\nC\r\nC     OPEN AND READ CSTM FIRST TABLE INOT CORE AFTER BGPDT\r\nC\r\n      IF (NCST .EQ. 0) GO TO 90\r\n      FILE = CSTM\r\n      CALL FNAME (CSTM,NAME)\r\n      IF (NAME(1) .NE. CSTMX) GO TO 1040\r\n      CALL OPEN (*1200,CSTM,IX(BUF1),0)\r\n      CALL FWDREC (*1300,CSTM)\r\n      CALL READ (*1300,*80,CSTM,IX(NENT4+1),BUF1-NENT4-1,1,FLAG)\r\n      CALL MESAGE (-8,0,SUB)\r\n   80 IF (FLAG .NE. NCST14) GO TO 1340\r\n      CALL CLOSE (CSTM,1)\r\nC\r\nC     USE BGPDT INFO TO FIGURE OUT THE g-SET SIZE FOR OUTPUT\r\nC\r\n   90 SIZE = 0\r\n      I    = 1\r\n      DO 100 J = 1,NENT\r\n      IF (IX(I) .LT. 0) SIZE = SIZE + 1\r\n      IF (IX(I) .GE. 0) SIZE = SIZE + 6\r\n  100 I = I + 4\r\nC\r\nC     STORE RIGID BODY REFERENCE VECTOR\r\nC\r\n      RBVR(1) = 0.\r\n      RBVR(2) = 0.\r\n      RBVR(3) = 0.\r\n      IF (.NOT.RBV .OR. GRDPNT.EQ.0) GO TO 110\r\n      RBVR(1) = RX(GRDPNT*4-2)\r\n      RBVR(2) = RX(GRDPNT*4-1)\r\n      RBVR(3) = RX(GRDPNT*4  )\r\nC\r\nC     OPNE OUTPUT FILE AND FILL OUTPUT TRAILER\r\nC\r\n  110 CALL FNAME (OUTVEC,NAME)\r\n      CALL OPEN (*1200,OUTVEC,IX(BUF1),1)\r\n      CALL WRITE (OUTVEC,NAME,2,1)\r\n      IF (     RBV) CALL MAKMCB (TRL(1),OUTVEC,6,2,2)\r\n      IF (.NOT.RBV) CALL MAKMCB (TRL(1),OUTVEC,SIZE,2,2)\r\nC\r\nC     INITIALIZE PACK COMMONS\r\nC\r\n      TIN  = 2\r\n      TOU  = 2\r\n      INCR = 1\r\n      COL  = 1\r\nC\r\nC     BEGIN LOOP FOR NUMBER OF ENTRIES IN BGPDT\r\nC\r\n      E4  = 0\r\n      DO 440 ENTRY = 1,NENT\r\n      E4  = E4 + 4\r\n      OCID= IX(E4-3)\r\n      XG  = RX(E4-2)\r\n      YG  = RX(E4-1)\r\n      ZG  = RX(E4  )\r\nC\r\nC     RBVEC IS A VECTOR BASED ON UNIT ROTATIONS OF A VECTOR FROM THE\r\nC     REFERENCE GRID TO THE GRID IN QUESTION. THE TRANSFORMATION IS\r\nC     FROM BASIC ROTATIONS TO BASIC TRANSLATIONS.\r\nC\r\n      IF (.NOT.RBV) GO TO 130\r\n      RVEC(1) = ZERO\r\n      RVEC(2) = (ZG-RBVR(3))\r\n      RVEC(3) =-(YG-RBVR(2))\r\n      RVEC(4) =-(ZG-RBVR(3))\r\n      RVEC(5) = ZERO\r\n      RVEC(6) = (XG-RBVR(1))\r\n      RVEC(7) = (YG-RBVR(2))\r\n      RVEC(8) =-(XG-RBVR(1))\r\n      RVEC(9) = ZERO\r\nC\r\nC     IF THIS ENTRY IS A SCALAR AND A RIGID BODY VECTOR HAS BEEN\r\nC     REQUESTED, STORE A ZERO COLUMN\r\nC\r\n 130  IF (OCID.NE.-1 .OR. .NOT.RBV) GO TO 140\r\n      II  = 1\r\n      JJ  = 1\r\n      CALL PACK (ZERO,OUTVEC,TRL)\r\n      COL = COL + 1\r\n      GO TO 440\r\nC\r\nC     IF THIS ENTRY IS A SCALAR AND A CSTM HAS BEEN REQUESTED, SIMPLY\r\nC     PLACE A ONE ON THE DIAGONAL AND CONTINUE\r\nC\r\n  140 IF (OCID .NE. -1) GO TO 150\r\n      II  = COL\r\n      JJ  = COL\r\n      CALL PACK (ONE,OUTVEC,TRL)\r\n      COL = COL + 1\r\n      GO TO 440\r\nC\r\nC     IF THIS ENTRY IS ALREADY IN BASIC COORDINATES, STORE AN IDENTITY\r\nC     IN THE APPOPRIATE SIX BY SIX\r\nC\r\n  150 IF (OCID.NE.0 .OR. .NOT.RBV) GO TO 190\r\n      II  = 1\r\n      JJ  = 1\r\n      DO 170 I = 1,3\r\n      I3  = 0\r\n      DO 160 J = 1,3\r\n      VOUT(J  ) =   TU(J+I*3)\r\n  160 VOUT(J+3) = RVEC(J+I*3)\r\n      I3  = I3 + 3\r\n      II  = 1\r\n      JJ  = 6\r\n      CALL PACK (VOUT,OUTVEC,TRL)\r\n  170 COL = COL + 1\r\n      DO 180 I = 1,3\r\n      II  = I + 3\r\n      JJ  = I + 3\r\n      CALL PACK (ONE,OUTVEC,TRL)\r\n  180 CONTINUE\r\n      GO TO 440\r\nC\r\n  190 IF (OCID .NE. 0) GO TO 210\r\n      DO 200 I = 1,6\r\n      II  = COL\r\n      JJ  = COL\r\n      CALL PACK (ONE,OUTVEC,TRL)\r\n  200 COL = COL + 1\r\n      GO TO 440\r\nC\r\nC     CSTM MUST BE MISSING\r\nC\r\n  210 IF (NCST .NE. 0) GO TO 220\r\n      TRL(1) = CSTM\r\n      GO TO 1020\r\nC\r\nC     SET UP VECTORS AND MATRICES COMMON TO ALL COORDINATE SYSTEM\r\nC     TRANSFORMATIONS\r\nC\r\nC     FIND COORDINATE SYSTEM\r\nC\r\n  220 DO 230 ICST = 1,NCST\r\n      IF (IX(ICST*14-13+NENT4) .EQ. OCID) GO TO 240\r\n  230 CONTINUE\r\n      GO TO 1400\r\nC\r\nC     GET COORDINATE SYSTEM TYPE AND\r\nC     TRANSFORMATION FROM BASIC TO COORDINATE SYSTEM ORIGIN TRIAD\r\nC\r\n  240 OCIDT = IX(ICST*14-12+NENT4)\r\n      T1(1) = RX(ICST*14- 8+NENT4)\r\n      T1(4) = RX(ICST*14- 7+NENT4)\r\n      T1(7) = RX(ICST*14- 6+NENT4)\r\n      T1(2) = RX(ICST*14- 5+NENT4)\r\n      T1(5) = RX(ICST*14- 4+NENT4)\r\n      T1(8) = RX(ICST*14- 3+NENT4)\r\n      T1(3) = RX(ICST*14- 2+NENT4)\r\n      T1(6) = RX(ICST*14- 1+NENT4)\r\n      T1(9) = RX(ICST*14   +NENT4)\r\nC\r\n      IK    = ICST*14 + NENT4\r\n      V3(1) = RX(ENTRY*4-2) - RX(IK-11)\r\n      V3(2) = RX(ENTRY*4-1) - RX(IK-10)\r\n      V3(3) = RX(ENTRY*4  ) - RX(IK- 9)\r\nC\r\n      V(1)  = RX(IK-8)*V3(1) + RX(IK-5)*V3(2) + RX(IK-2)*V3(3)\r\n      V(2)  = RX(IK-7)*V3(1) + RX(IK-4)*V3(2) + RX(IK-1)*V3(3)\r\n      V(3)  = RX(IK-6)*V3(1) + RX(IK-3)*V3(2) + RX(IK  )*V3(3)\r\nC\r\nC     SPECIAL CHECKS FOR ZERO RADIUS CYLINDRICAL OR SPHERICAL COORDINATE\r\nC     SYSTEM. IF SO TREAT AS RECTANGULAR.\r\nC\r\n      RAD = SQRT(V(1)**2 + V(2)**2)\r\n      IF (RAD .EQ. 0.) OCIDT = 1\r\nC\r\nC     PERFORM INDIVIDUAL COORDINATE SYSTEM TRANSFORMATION AND GENERATE\r\nC     T2\r\nC\r\n      GO TO (250,330,340), OCIDT\r\nC\r\nC     RECTANGULAR, T = T1\r\nC\r\n  250 IF (.NOT.RBV) GO TO 290\r\n      INDEX = 1\r\n      CALL GMMATD (RVEC,3,3,0, T1,3,3,0, RBVEC)\r\nC\r\nC     ADD RIGID BODY INFORMATION TO LOWER OFF DIAGONAL 3X3 IF REQUESTED\r\nC\r\n      DO 280 I = 1,3\r\n      I3  = 0\r\n      DO 270 J = 1,3\r\n      VOUT(J  ) =    T1(J+I3)\r\n  270 VOUT(J+3) = RBVEC(J+I3)\r\n      I3  = I3 + 3\r\n      II  = 1\r\n      JJ  = 6\r\n      CALL PACK (VOUT,OUTVEC,TRL)\r\n  280 COL = COL + 1\r\n      GO TO 310\r\nC\r\nC     OR SIMPLY PACK THE TRANSFORMATION\r\nC\r\n  290 INDEX = COL\r\n      DO 300 I = 1,3\r\n      II  = INDEX\r\n      JJ  = INDEX + 2\r\n      CALL PACK (T1(I*3-2),OUTVEC,TRL)\r\n  300 COL = COL + 1\r\nC\r\nC    STORE LOWER 3X3, AND GET NEXT GRID\r\nC\r\n  310 DO 320 I = 1,3\r\n      II  = INDEX + 3\r\n      JJ  = INDEX + 5\r\n      CALL PACK (T1(I*3-2),OUTVEC,TRL)\r\n  320 COL = COL + 1\r\n      GO TO 440\r\nC\r\nC     CYLINDRICAL\r\nC\r\n  330 T2(1) = V(1)/RAD\r\n      T2(4) =-V(2)/RAD\r\n      T2(7) = ZERO\r\n      T2(2) =-T2(4)\r\n      T2(5) = T2(1)\r\n      T2(8) = ZERO\r\n      T2(3) = ZERO\r\n      T2(6) = ZERO\r\n      T2(9) = ONE\r\n      GO TO 350\r\nC\r\nC     SPHERICAL\r\nC\r\n  340 XL    = SQRT(V(1)*V(1) + V(2)*V(2) + V(3)*V(3))\r\n      IF (XL .LE. 0.0) GO TO 1060\r\n      T2(1) = V(1)/XL\r\n      T2(4) =(V(1)*V(3))/(RAD*XL)\r\n      T2(7) =-V(2)/RAD\r\n      T2(2) = V(2)/XL\r\n      T2(5) =(V(2)*V(3))/(RAD*XL)\r\n      T2(8) = V(1)/RAD\r\n      T2(3) = V(3)/XL\r\n      T2(6) =-RAD/XL\r\n      T2(9) = ZERO\r\nC\r\n  350 CALL GMMATD (T1,3,3,0, T2,3,3,0, T)\r\n      IF (.NOT.RBV) GO TO 400\r\nC\r\nC     ADD RIGID BODY INFORMATION TO LOWER OFF DIAGONAL 3X3 IF REQUESTED\r\nC     THEN PACK\r\nC\r\n      INDEX = 1\r\n      CALL GMMATD (RVEC,3,3,0, T,3,3,0, RBVEC)\r\n      DO 390 I = 1,3\r\n      I3  = 0\r\n      DO 380 J = 1,3\r\n      VOUT(J  ) =     T(J+I3)\r\n  380 VOUT(J+3) = RBVEC(J+I3)\r\n      I3  = I3 + 3\r\n      II  = 1\r\n      JJ  = 6\r\n      CALL PACK (VOUT,OUTVEC,TRL)\r\n  390 COL = COL + 1\r\n      GO TO 420\r\nC\r\nC     OR SIMPLY PACK THE TRANSFORMATION\r\nC\r\n  400 INDEX = COL\r\n      DO 410 I = 1,3\r\n      II  = INDEX\r\n      JJ  = INDEX + 2\r\n      CALL PACK (T(I*3-2),OUTVEC,TRL)\r\n  410 COL = COL + 1\r\nC\r\nC     STORE LOWER 3X3\r\nC\r\n  420 DO 430 I = 1,3\r\n      II  = INDEX + 3\r\n      JJ  = INDEX + 5\r\n      CALL PACK (T(I*3-2),OUTVEC,TRL)\r\n  430 COL = COL + 1\r\nC\r\n  440 CONTINUE\r\nC\r\n      CALL CLOSE  (OUTVEC,1)\r\n      CALL WRTTRL (TRL)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1000 WRITE  (NOUT,1010) UFM\r\n 1010 FORMAT (A23,'.  MISSING REQUIRED OUTPUT FILE')\r\n      GO TO  1500\r\n 1020 WRITE  (NOUT,1030) UFM,TRL(1)\r\n 1030 FORMAT (A23,'.  MISSING REQUIRED INPUT FILE',I4)\r\n      GO TO  1500\r\n 1040 WRITE  (NOUT,1050) UFM,NAME\r\n 1050 FORMAT (A23,'. INPUT FILE ',2A4,' ERROR')\r\n      GO TO  1500\r\n 1060 WRITE  (NOUT,1070) UFM\r\n 1070 FORMAT (A23,' FROM GRBVEC. ZERO RADIAL LENGTH, ERROR AT 340')\r\n      GO TO  1500\r\n 1100 J = -8\r\n      GO TO  1490\r\n 1200 J = -1\r\n      GO TO  1490\r\n 1300 J = -2\r\n      GO TO  1490\r\n 1320 J = TRL2\r\n      GO TO  1350\r\n 1330 J = NENT4\r\n      GO TO  1350\r\n 1340 J = NCST14\r\n 1350 WRITE  (NOUT,1360) SFM,NAME,J,FLAG\r\n 1360 FORMAT (A25,'. EXPECTED RECORD LENGTH DOES NOT MATCH ACTUAL ',\r\n     1       ' RECORD LENGTH ON INPUT FILE ',2A4, /5X,2I10)\r\n      GO TO  1500\r\n 1400 WRITE  (NOUT,1410) UFM,OCID\r\n 1410 FORMAT (A23,'. UNABLE TO FIND COORDINATE SYSTEM ',I8)\r\n      GO TO  1500\r\nC\r\n 1490 CALL MESAGE (J,FILE,SUB)\r\n 1500 CALL MESAGE (-61,0,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gridip.f",
    "content": "      SUBROUTINE GRIDIP (GRID,SEQSS,LEN,IPSET,CSET,NO,Z,LLOC)\r\nC\r\nC     THIS SUBROUTINE FINDS SETS OF IP NUMBERS AND DEGREE OF FREEDOM\r\nC     COMPONENT NUMBERS FOR GRID POINTS DEFINED IN A BASIC\r\nC     SUBSTRUCTURE THAT IS A COMPONENT OF A PSEUDO-STRUCTURE.\r\nC\r\nC     ARGUMENTS\r\nC               GRID   - GRID POINT ID NUMBER\r\nC               SEQSS  - THE STARTING ADDRESS IN OPEN CORE OF THE\r\nC                        PSEUDO-STRUCTURE EQSS RECORD\r\nC               LEN    - LENGTH OF THE EQSS\r\nC               IPSET  - THE SET OF IP NUMBERS FOR GRID\r\nC               CSET   - COMPONENTS OF GIVEN IP NUMBER\r\nC               NO     - THE NUMBER OF IP DEFINED BY GRID\r\nC\r\nC\r\n      EXTERNAL ORF,RSHIFT\r\n      INTEGER  ORF,RSHIFT,GRID,SEQSS,IPSET(6),CSET(6),POSNO,Z(1)\r\n      COMMON  /CMBFND/ INAM(2),IERR\r\nC\r\n      IERR = 0\r\n      NENT = LEN/3\r\nC\r\nC     SEARCH FOR THE GRID ID IN THE EQSS\r\nC\r\nC     NOTE --- FOR RAPID LOCATION OF ALL IP FOR A GIVEN GRID,\r\nC              THE COMPONENT WORD OF THE EQSS HAS HAD ITS FIRST\r\nC              SIX BITS PACKED WITH A CODE-  THE FIRST THREE\r\nC              BITS GIVE THE NUMBER OF THE IP AND THE SECOND\r\nC              THREE THE TOTAL NO. OF IP.  E.G. 011101 MEANS\r\nC              THE CURRENT IP IS THE THIRD OF FIVE FOR THIS\r\nC              GRID ID.\r\nC\r\nC\r\n      CALL BISLOC (*30,GRID,Z(SEQSS),3,NENT,LOC)\r\n      K = SEQSS + LOC - 1\r\n      ICODE = RSHIFT(Z(K+2),26)\r\nC\r\nC     ICODE CONTAINS SIX BIT CODE\r\nC\r\n      POSNO = ICODE/8\r\n      NOAPP = ICODE - 8*POSNO\r\nC\r\nC     POSNO IS THE POSITION NUMBER OF THE GRID WE HAVE FOUND,\r\nC     NOAPP IS THE TOTAL NUMBER OF APPEARANCES OF THAT GRID.\r\nC\r\n      IF (NOAPP .EQ. 0) POSNO = 1\r\n      IF (NOAPP .EQ. 0) NOAPP = 1\r\n      ISTART = K - 3*(POSNO-1)\r\n      LLOC = ISTART\r\nC\r\nC     PICK UP RIGHT 26 BITS BY MASK26 FOR CSET(I), INSTEAD OF R/LSHIFT\r\nC\r\n      MASK26 = MASKN(26,0)\r\nC\r\n      DO 20 I = 1,NOAPP\r\n      KK = ISTART + 3*(I-1)\r\n      IPSET(I) = Z(KK+1)\r\n      CSET(I)  = ORF(Z(KK+2),MASK26)\r\n   20 CONTINUE\r\nC\r\n      NO = NOAPP\r\n      GO TO 40\r\n   30 IERR = 1\r\n   40 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gtmat1.f",
    "content": "      SUBROUTINE GTMAT1 (SYM,TT)\r\nC\r\nC     THIS SUBROUTINE PROCESSES TRANSFORMATION MATRICES\r\nC     IT IS CALLED ONLY BY CMSFIL\r\nC\r\n      EXTERNAL        RSHIFT   ,ANDF     ,ORF\r\n      INTEGER         TRN      ,SYM      ,ORF     ,TRAN    ,ECPT1    ,\r\n     1                ANDF     ,CHK1     ,CHK2    ,NAME(2) ,RSHIFT\r\n      DIMENSION       ECPT(4)  ,TID(3,3) ,TT(3,3) ,LIST(32),SYMM(6,6),\r\n     1                SMAT(6,3),PROD(6)  ,TC(3,3) ,TG6(6,6),TG(3,3)  ,\r\n     2                T(6,6)\r\n      DIMENSION       ACPT(1)\r\n      COMMON /GTMATX/ LOC1     ,LEN1     ,TRN     ,TT6(6,6),TC6(6,6)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (ECPT1,ECPT(1))\r\n      EQUIVALENCE     (IFLAG,RFLAG)\r\n      DATA    TID   / 1., 0., 0., 0., 1., 0., 0., 0., 1. /\r\n      DATA    SMAT  /-1., 1., 1., 1.,-1.,-1., 1.,-1., 1.,-1., 1.,-1.,\r\n     1                1., 1.,-1.,-1.,-1., 1.  /\r\n      DATA    NAME  / 4HGTMT, 4H1Z            /\r\nC\r\n      IKIND = 0\r\n      DO 10 I = 1,6\r\n      DO 10 J = 1,6\r\n      TT6(I,J) = 0.0\r\n   10 CONTINUE\r\n      IF (TRN.EQ.0 .AND. SYM.EQ.0) GO TO 170\r\n      IF (LOC1.EQ.0 .OR. TRN.EQ.0) GO TO 30\r\n      CALL PRETRS (Z(LOC1),LEN1)\r\n      IKIND = ORF(IKIND,1)\r\n      DO 20 I = 2,4\r\n      ECPT(I) = 0.0\r\n   20 CONTINUE\r\n      ECPT1 = TRN\r\n      CALL TRANSS (ECPT,TT)\r\n      GO TO 50\r\n   30 DO 40 I = 1,3\r\n      DO 40 J = 1,3\r\n      TT(I,J) = TID(I,J)\r\n   40 CONTINUE\r\n   50 DO 60 I = 1,3\r\n      DO 60 J = 1,3\r\n      TT6(I  ,J  ) = TT(I,J)\r\n      TT6(I+3,J+3) = TT(I,J)\r\n   60 CONTINUE\r\n      DO 70 I = 1,6\r\n      DO 70 J = 1,6\r\n      SYMM(I,J) = 0.0\r\n   70 CONTINUE\r\n      IF (SYM .EQ. 0) GO TO 120\r\n      IKIND = ORF(IKIND,1)\r\n      CALL DECODE (SYM,LIST,NDIR)\r\n      DO 80 I = 1,6\r\n      PROD(I) = 1.0\r\n   80 CONTINUE\r\n      DO 100 I = 1,NDIR\r\n      IDIR = LIST(I) + 1\r\n      IDIR = 4 - IDIR\r\n      DO 90 J = 1,6\r\n      PROD(J) = PROD(J)*SMAT(J,IDIR)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      DO 110 I = 1,6\r\n      SYMM(I,I) = PROD(I)\r\n  110 CONTINUE\r\n      GO TO 140\r\n  120 DO 130 I = 1,6\r\n      SYMM(I,I) = 1.0\r\n  130 CONTINUE\r\n  140 CALL GMMATS (TT6,6,6,0, SYMM,6,6,0, T)\r\n      DO 150 I = 1,6\r\n      DO 150 J = 1,6\r\n      TT6(I,J) = T(I,J)\r\n  150 CONTINUE\r\n      DO 160 I = 1,3\r\n      DO 160 J = 1,3\r\n      TT(I,J) = TT6(I,J)\r\n  160 CONTINUE\r\n      ISAV = IKIND\r\n      RETURN\r\nC\r\n  170 DO 180 I = 1,6\r\n      TT6(I,I) = 1.0\r\n  180 CONTINUE\r\n      DO 190 I = 1,3\r\n      DO 190 J = 1,3\r\n      TT(I,J) = TID(I,J)\r\n  190 CONTINUE\r\n      ISAV = IKIND\r\n      CHK1 = 13579\r\n      RETURN\r\nC\r\nC\r\n      ENTRY GTMAT2 (LOC2,LEN2,ACPT,TC)\r\nC     ================================\r\nC\r\n      IKIND = ISAV\r\n      DO 200 I = 1,6\r\n      DO 200 J = 1,6\r\n      TC6(I,J) = 0.0\r\n  200 CONTINUE\r\n      RFLAG = ACPT(1)\r\n      IF (LOC2.EQ.0 .OR. IFLAG.EQ.0) GO TO 210\r\n      CALL PRETRS (Z(LOC2),LEN2)\r\n      CALL TRANSS (ACPT,TC)\r\n      IKIND = ORF(IKIND,2)\r\n      GO TO 230\r\n  210 DO 220 I = 1,3\r\n      DO 220 J = 1,3\r\n      TC(I,J) = TID(I,J)\r\n  220 CONTINUE\r\n  230 DO 240 I = 1,3\r\n      DO 240 J = 1,3\r\n      TC6(I  ,J  ) = TC(I,J)\r\n      TC6(I+3,J+3) = TC(I,J)\r\n  240 CONTINUE\r\n      CHK2 = 24680\r\n      RETURN\r\nC\r\nC\r\n      ENTRY GTMAT3 (TRAN,TG,TG6,IHELP)\r\nC     ================================\r\nC\r\n      IF (CHK1.NE.13579 .AND. CHK2.NE.24680) CALL MESAGE (-37,0,NAME)\r\n      DO 300 I = 1,6\r\n      DO 300 J = 1,6\r\n      TG6(I,J) = 0.0\r\n  300 CONTINUE\r\n      IF (TRAN) 340,330,310\r\n  310 CALL PRETRS (Z(LOC1),LEN1)\r\n      DO 320 I = 2,4\r\n      ECPT(I) = 0.0\r\n  320 CONTINUE\r\n      ECPT1 = TRAN\r\n      IKIND = ORF(IKIND,8)\r\n      IF (TRAN .NE. TRN) IKIND = ORF(IKIND,16)\r\n      CALL TRANSS (ECPT,TG)\r\n      IKIND = ORF(IKIND,4)\r\n      GO TO 370\r\n  330 IKIND = ORF(IKIND,4)\r\n  340 DO 350 I = 1,3\r\n      DO 350 J = 1,3\r\n      TG(I,J) = TID(I,J)\r\n  350 CONTINUE\r\n      IF (ANDF(RSHIFT(IKIND,1),1).NE.1 .OR. TRAN.NE.-1) GO TO 360\r\n      CALL GMMATS (TT6,6,6,0, TC6,6,6,0, TG6)\r\n      IHELP = IKIND\r\n      RETURN\r\nC\r\n  360 CONTINUE\r\n  370 DO 380 I = 1,3\r\n      DO 380 J = 1,3\r\n      TG6(I  ,J  ) = TG(I,J)\r\n      TG6(I+3,J+3) = TG(I,J)\r\n  380 CONTINUE\r\n      IHELP = IKIND\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gust.f",
    "content": "      SUBROUTINE GUST\r\nC\r\nC     THE PURPOSE OF THIS MODULE IS TO COMPUTE STATIONARY VERTICAL GUST\r\nC         LOADS FOR USE IN AEROLASTIC ANALYSIS\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC         GUST   CASECC,DLT,FRL,QHJL,,,ACPT,CSTMA,PHF1/PHF/V,N,NOGUST/\r\nC                V,N,BOV/C,Y,MACH/C,Y,Q  $\r\nC\r\nC     GUST USES SEVEN SCRATCH FILES\r\n      INTEGER CASECC,DLT,FRL,QHJL,ACPT,CSTMA,PHF1,PHF,SCR1,SCR2,SCR3,\r\n     1  SCR4,SCR5,SCR6,SCR7,SYSBUF,NAME(2),DIT,IBLOCK(11)\r\n      REAL XM(2),RBLOCK(11)\r\n      COMMON /SYSTEM/SYSBUF\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /BLANK/NOGUST,BOV,RMACH,Q\r\n      EQUIVALENCE  (XM(1),NOGUST),(IBLOCK(1),RBLOCK(1))\r\n      DATA CASECC,DLT,FRL,QHJL,ACPT,CSTMA,PHF1,PHF,SCR1,SCR2,SCR3,SCR4\r\n     1   /  101  ,102,103,105 ,108 ,109  ,110 ,201,301 ,302 ,303 ,304 /\r\n      DATA  DIT,SCR5,SCR6,SCR7 /\r\n     1      104,305 ,306 ,307  /,NAME/4HGUST,1H /,RBLOCK /11*0.0/\r\nC\r\nC     GUST1  GENERATES A FREQUENCY FUNCTION TABLE(SCR1)\r\nC                        FOL DATA BLOCK          (SCR2)\r\nC                        A IMAGE OF GUST CARDS  SID,DLOAD,WG,X0,V(SCR4)\r\nC                      AND SUPPLIES NFREQ,NLOAD,XO,V,NOGUST\r\nC\r\n      CALL GUST1(CASECC,DIT,DLT,FRL,SCR1,SCR2,SCR4,NFREQ,NLOAD,XO,V,\r\n     1   NOGUST,SCR3)\r\n      IF( NOGUST .LT. 0) RETURN\r\nC\r\nC     GUST2 COMPUTES WJ MATRIX(SCR3)\r\nC\r\n      CALL GUST2(SCR2,SCR3,ACPT,XO,V,CSTMA,QHJL)\r\nC\r\nC     SET UP FOR ADRI\r\nC\r\n      NZ = KORSZ(IZ)\r\n      IBUF1 = NZ-SYSBUF+1\r\n      XM(1) =BOV\r\n      XM(2) = RMACH\r\n      CALL GOPEN(SCR2,IZ(IBUF1),0)\r\n      CALL BCKREC(SCR2)\r\n      CALL FREAD(SCR2,IZ,-2,0)\r\n      CALL FREAD(SCR2,IZ,NFREQ,1)\r\n      CALL CLOSE(SCR2,1)\r\n      NZ= NZ-NFREQ\r\nC\r\nC     ADRI INTERPOLATES ON QHJL PUTTING OUTPUT ON SCR2 (QHJK)\r\nC\r\n      CALL ADRI(IZ,NFREQ,NZ,QHJL,SCR2,SCR5,SCR6,SCR7,NROWJ,NCOLW,NOGO)\r\n      IF( NOGO .EQ. 1) CALL MESAGE(-61,0,NAME)\r\nC\r\nC     GUST3  MULTIPLIES QHJK BY WJ ONTO SCR5\r\nC             SCR5 IS MULTIPLIED BY LOAD FUNCTION,WG,AND Q ONTO\r\nC             SCR6\r\nC\r\n      CALL GUST3(SCR2,SCR3,SCR1,SCR4,SCR5,SCR6,Q,NFREQ,NLOAD,NROWJ,NCOLW\r\n     1)\r\nC                QHJK  WJ  P    GUST POEL\r\nC\r\nC\r\nC     SET UP TO ADD LOADS\r\nC\r\n      NOGUST=1\r\n      IBLOCK(1) =1\r\n      RBLOCK(2) =1.0\r\n      IBLOCK(7) =1\r\n      RBLOCK(8) =1.0\r\n      CALL SSG2C(SCR6,PHF1,PHF,1,IBLOCK)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gust1.f",
    "content": "      SUBROUTINE GUST1(CASECC,DIT,DLT,FRL,PP,FOL,GUSTL,NFREQ,NLOAD,\r\n     1  XO,V,NOGUST,CASNEW)\r\nC\r\nC     THE PURPOSE OF THI ROUTINE IS TO GERATE PP,GUSTL,FOL.\r\nC\r\nC     THE ROUTINE PROCEEDS AS FOLLOWS\r\nC\r\nC         FIND  GUST CARD(NO-CARDS--SET NOGUST=1 AND RETURN)\r\nC         PUT GUST CARDS IN CORE\r\nC         READ CASECC -- BUILD GUSTL\r\nC           SUPPLU DLOAD =   FROM GUST =\r\nC\r\nC         CALL GUST1A WITH NEW CASECC\r\nC\r\n      INTEGER CASECC,DIT,DLT,FRL,PP,FOL,GUSTL,CASNEW,SYSBUF,NAME(2),\r\n     1 FILE,IGUST(2),LGUST(5)\r\n      REAL  Z(1),RGUST(5)\r\n      COMMON /SYSTEM/SYSBUF\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE (IZ(1),Z(1)),(RGUST(1),LGUST(1))\r\n      DATA  NAME /4HGUST,1H1 /,IGUST /1005,10 /\r\n      DATA IGST /178/\r\nC\r\nC     INITIALIZE\r\nC\r\n      NZ = KORSZ(IZ)\r\n      IBUF1 = NZ-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2-SYSBUF\r\n      NZ = IBUF3-1\r\n      NOGUST =-1\r\n      NOGO =0\r\n      CALL PRELOC(*1000,IZ(IBUF1),DIT)\r\n      CALL LOCATE(*1000,IZ(IBUF1),IGUST,IDX)\r\nC\r\nC     PUT  GUST CARDS IN CORE\r\nC\r\n      FILE =DIT\r\n      CALL READ(*910,*10,DIT,IZ,NZ,0,NLGUST)\r\n      CALL MESAGE(-8,0,NAME)\r\n   10 CONTINUE\r\n      CALL CLOSE(DIT,1)\r\n      ICC = NLGUST+1\r\n      CALL GOPEN(CASECC,IZ(IBUF1),0)\r\n      CALL GOPEN(CASNEW,IZ(IBUF2),1)\r\n      CALL GOPEN(GUSTL,IZ(IBUF3),1)\r\n      NZ = NZ - NLGUST\r\nC\r\nC     BLAST READ A CASE CONTROL RECORD INTO CORE\r\nC\r\n   20 CONTINUE\r\n      FILE = CASECC\r\n      CALL READ(*100,*30,CASECC,IZ(ICC),NZ,0,LCC)\r\n      CALL MESAGE(-8,0,NAME)\r\n   30 CONTINUE\r\n      IGSID = IZ(ICC+IGST)\r\n      IZ(ICC+12) = IGSID\r\n      CALL ZEROC(RGUST,5)\r\n      IF( IGSID .EQ.  0)  GO TO 90\r\nC\r\nC     FIND GUST ID AMONG GUST CARDS\r\nC\r\n      DO 40 I = 1 ,NLGUST,5\r\n      IF( IZ(I) .EQ. IGSID) GO TO 50\r\n   40 CONTINUE\r\n      CALL MESAGE(31,IGSID,NAME)\r\n      NOGO =1\r\n      GO TO 90\r\nC\r\nC     FOUND GUST CARD\r\nC\r\n   50 CONTINUE\r\n      IZ(ICC+12) = IZ(I+1)\r\n      IGUST(1) =IGSID\r\n      LGUST(2) = IZ(I+1)\r\n      RGUST(3) = Z(I+2)\r\n      RGUST(4) = Z(I+3)\r\n      RGUST(5) = Z(I+4)\r\n      XO =  RGUST(4)\r\n      V  =  RGUST(5)\r\n      NOGUST = 1\r\nC\r\nC     PUT OUT GUSTL /CASNEW\r\nC\r\n   90 CALL WRITE(CASNEW,IZ(ICC),LCC,1)\r\n      CALL WRITE(GUSTL,LGUST,5,1)\r\n      GO TO 20\r\nC\r\nC     END OF FILE ON CASECC\r\n  100 CONTINUE\r\n      IF( NOGO .EQ. 1) CALL MESAGE(-61,0,NAME)\r\n      CALL CLOSE(CASECC,1)\r\n      CALL CLOSE(GUSTL,1)\r\n      CALL CLOSE(CASNEW,1)\r\nC\r\nC     CALL GUST1A FOR LOADS(W)\r\nC\r\n      CALL GUST1A (DLT, FRL, -CASNEW, DIT, PP, 1, NFREQ, NLOAD, FRQSET,\r\n     1             FOL, NOTRD)\r\n      CALL DMPFIL(-PP,IZ,NZ)\r\n 1000 CALL CLOSE(DIT,1)\r\n      RETURN\r\nC\r\nC     FILE  ERRORS\r\nC\r\n  910 IP1 = -2\r\n      CALL MESAGE (IP1, FILE, NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/gust2.f",
    "content": "      SUBROUTINE GUST2(FOL,WJ,ACPT,X0,V,CSTM,QHJL)\r\nC\r\nC     GUST2 MAKE  WJ(W) MATRIX FOR GUST\r\nC\r\n      INTEGER FOL,WJ,ACPT,CSTM,QHJL,BUF1,FILE\r\n      INTEGER SYSBUF,IZ(1),TRL(7),ACDR(13),NAM(2)\r\nC\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ZBLPKX/ A(4),IRN\r\nC\r\n      EQUIVALENCE (Z(1),IZ(1))\r\nC\r\n      DATA  NAM /4HGUST,1H2 /\r\n      DATA NHNJU,NHACJ /4HNJU ,4HACJ /\r\nC\r\n      ICORE = KORSZ(IZ) - SYSBUF-2\r\n      BUF1 = ICORE+1\r\nC\r\nC     READ IN FREQUENCYS AND CONVERT TO OMEGA\r\nC\r\n      FILE = FOL\r\n      CALL OPEN(*999,FOL,Z(BUF1),0)\r\n      CALL FREAD(FOL,Z,-2,0)\r\n      CALL READ(*998,*10,FOL,Z,ICORE,0,NFREQ)\r\n      GO TO 997\r\n   10 DO 20 I=1,NFREQ\r\n   20 Z(I) = Z(I) * TWOPI\r\n      CALL CLOSE(FOL,1)\r\nC\r\nC     SPACE FOR COLUMN OF W - 2 * J  LONG  1 J FOR A  1 J FOR COEF.\r\nC\r\n      FILE = QHJL\r\n      TRL(1) =  QHJL\r\n      CALL RDTRL(TRL)\r\n      IF(TRL(1).LT.0) GO TO 999\r\n      NJ = TRL(3)\r\n      JAP= NFREQ\r\n      JCP = JAP + NJ\r\n      IACPT = JCP + NJ + 1\r\n      IF(IACPT.GT.ICORE) GO TO 997\r\n      DO 30 I=1,NJ\r\n   30 Z(JAP+I) = 0.0\r\nC\r\nC     SET UP WJ\r\nC\r\n      TRL(1) = WJ\r\n      TRL(2) = 0\r\n      TRL(3) = NJ\r\n      TRL(4) = 2\r\n      TRL(5) = 3\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\nC\r\nC     READ ACPT RECORDS BY METHOD AND FILL IN THE TWO COLUMNS\r\nC     A =  COS G (CG) FOR DLB  1 FOR Z BODIES  0 FOR ALL ELSE\r\nC     COEF =   XM  FOR PANELS AND BODIES\r\nC\r\n      CALL GOPEN(ACPT,Z(BUF1),0)\r\n      NJU = 0\r\n      FILE = ACPT\r\n   40 CALL READ(*100,*100,ACPT,METH,1,0,NWR)\r\n      GO TO (50,60,90,90,90), METH\r\nC\r\nC     DOUBLET LATTICE WITHOUT BODIES\r\nC\r\n   50 CALL READ(*998,*995,ACPT,ACDR,4,0,NWR)\r\n      NP = ACDR(1)\r\n      NSTRIP = ACDR(2)\r\n      NJG = ACDR(3)\r\n      NR = 2*NP + 5*NSTRIP + 2*NJG\r\n      IF(IACPT+NR.GT.ICORE) GO TO 997\r\n      CALL READ(*998,*995,ACPT,Z(IACPT),NR,1,NWR)\r\n      IXIC  =  IACPT + 2*NP + 5*NSTRIP - 1\r\n      IDELX =  IXIC + NJG\r\n      ICG   =  IACPT + 2*NP + 4*NSTRIP\r\n      K = 0\r\n      KS= 0\r\n      NBXR = IZ(IACPT)\r\n      DO 59 I = 1,NJG\r\n      Z(JAP+NJU+I)=Z(ICG+KS)\r\n      Z(JCP+NJU+I)=Z(IXIC+I) + .5* Z(IDELX+I)\r\n      IF(I.EQ.NJG) GO TO 59\r\n      IF(I.EQ.IZ(IACPT+NP+K)) K=K+1\r\n      IF(I.NE.NBXR) GO TO 59\r\n      KS = KS+1\r\n      NBXR = NBXR + IZ(IACPT+K)\r\n   59 CONTINUE\r\n      NJU = NJU+NJG\r\n      GO TO 40\r\nC\r\nC     DOUBLET LATTICE WITH BODIES\r\nC\r\n   60 CALL READ(*998,*995,ACPT,ACDR,13,0,NWR)\r\n      NJG = ACDR(1)\r\n      NP  = ACDR(3)\r\n      NB = ACDR(4)\r\n      NTP = ACDR(5)\r\n      NTO = ACDR(10)\r\n      NTZS= ACDR(11)\r\n      NTYS = ACDR(12)\r\n      NSTRIP = ACDR(13)\r\n      IC = IACPT\r\n      IB = IC + NP\r\n      IB1= IB + 2*NP\r\n      IBS= IB1+ 2*NB\r\n      NR = 3*NP + 3*NB\r\n      CALL READ(*998,*995,ACPT,Z(IACPT),NR,0,NWR)\r\n      NBEI = 0\r\n      NBES = 0\r\n      DO 61 I=1,NB\r\n      NBEI= NBEI+ IZ(IB1+I-1)\r\n      NBES= NBES+ IZ(IBS+I-1)\r\n   61 CONTINUE\r\n      ICG = IB+ NP\r\n      IX  = ICG + NSTRIP  -1\r\n      IXS1= IX  + 4*NTP + 2*NBEI + NBES\r\n      IXS2= IXS1+ NBES\r\n      NR = 11*NB + 4*NSTRIP\r\n      CALL READ(*998,*995,ACPT,Z(ICG),-NR,0,NWR)\r\n      NR =  NSTRIP + 4*NTP + 2*NBEI + 3* NBES\r\n      IF(ICG+NR.GT.ICORE) GO TO 997\r\n      CALL READ(*998,*995,ACPT,Z(ICG),NR,1,NWR)\r\n      IF(NTP.EQ.0) GO TO 65\r\n      K= 0\r\n      KS=0\r\n      NBXR = IZ(IC)\r\n      DO 64 I=1,NTP\r\n      Z(JAP+NJU+I)  =  Z(ICG+KS)\r\n      Z(JCP+NJU+I)  =  Z(IX+I)\r\n      IF(I.EQ.NTP) GO TO 64\r\n      IF(I.EQ.IZ(IB+K)) K=K+1\r\n      IF(I.NE.NBXR) GO TO 64\r\n      KS = KS + 1\r\n      NBXR = NBXR +  IZ(IC+K)\r\n   64 CONTINUE\r\n   65 NJU = NJU + NTO\r\n      IF(NTZS.EQ.0) GO TO 80\r\n      DO 70 I=1,NTZS\r\n      Z(JAP+NJU+I) = 1.0\r\n      Z(JCP+NJU+I) =  .5 * (Z(IXS1+I) + Z(IXS2+I))\r\n   70 CONTINUE\r\n   80 NJU = NJU + NTZS + NTYS\r\n      GO TO 40\r\nC\r\nC     MACH BOX  STRIP  PISTON  THEORIES\r\nC\r\n   90 CALL READ(*998,*995,ACPT,NJG,1,1,NWR)\r\n      NJU= NJU + NJG\r\n      GO TO 40\r\n  100 CALL CLOSE(ACPT,1)\r\n      CALL BUG(NHNJU ,100,NJU,1)\r\n      CALL BUG(NHACJ ,100,Z(JAP+1),2*NJ)\r\n      IF(NJU.NE.NJ) GO TO 996\r\nC\r\nC     BUILD WJ LOOP OVER ALL FREQUENCIES WITH AN INNER LOOP ON NJ\r\nC\r\n      CALL GOPEN(WJ,Z(BUF1),1)\r\n      DO 150 I=1,NFREQ\r\n      FREQ = Z(I)\r\n      CALL BLDPK(3,3,WJ,0,0)\r\n      DO 140 J=1,NJ\r\n      AM = Z(JAP+J)\r\n      IF( AM .EQ. 0.0 ) GO TO 140\r\n      IRN = J\r\n      TEMP   =   FREQ *((Z(JCP+J)-X0)/V)\r\n      A(1) = COS(TEMP)*AM\r\n      A(2) = -SIN(TEMP)*AM\r\n      CALL ZBLPKI\r\n  140 CONTINUE\r\n      CALL BLDPKN(WJ,0,TRL)\r\n  150 CONTINUE\r\n      CALL CLOSE(WJ,1)\r\n      CALL WRTTRL(TRL)\r\n      CALL DMPFIL(-WJ,Z,ICORE)\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  995 CALL MESAGE(-3,FILE,NAM)\r\n  996 CALL MESAGE(-7,0,NAM)\r\n  997 CALL MESAGE(-8,0,NAM)\r\n  998 CALL MESAGE(-2,FILE,NAM)\r\n  999 CALL MESAGE(-1,FILE,NAM)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/gust3.f",
    "content": "      SUBROUTINE GUST3 (QHJK,WJ,PP,GUSTL,PDEL,PGUST,Q,NFREQ,NLOAD,\r\n     1                  NROWJ,NCOLW)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO MULTIPLY QHJK(+) BY WJ\r\nC     FORMING PDEL\r\nC     PDEL IS THEN MULTIPLIED BY  Q*WG*PP(W)  FORMING PGUST\r\nC\r\n      INTEGER         QHJK,WJ,PP,GUSTL,PDEL,PGUST,IZ(1),SYSBUF,MCB(7),\r\n     1                NAME(2)\r\n      COMMON /PACKX / ITC1,ITC2,II1,JJ1,INCR1\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA    NAME  / 4HGUST,1H3 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IBUF1 = KORSZ(IZ)- SYSBUF+1\r\n      IBUF2 = IBUF1- SYSBUF\r\n      IBUF3 = IBUF2- SYSBUF\r\n      INCR1 = 1\r\n      INCR  = 1\r\n      IBUF4 = IBUF3- SYSBUF\r\n      MCB(1)= QHJK\r\n      CALL RDTRL(MCB)\r\n      ITC  = 3\r\n      ITC1 = ITC\r\n      ITC2 = ITC\r\n      CALL GOPEN (WJ,IZ(IBUF1),0)\r\n      CALL GOPEN (QHJK,IZ(IBUF2),0)\r\n      CALL GOPEN (PDEL,IZ(IBUF3),1)\r\nC\r\nC     SET UP TO PACK\r\nC\r\n      IT1 = 1\r\n      JJ1 = MCB(3) / NROWJ\r\n      NRQHJ = MCB(3)\r\n      NTQHJ = NRQHJ*2\r\n      CALL MAKMCB (MCB,PDEL,JJ1,2,ITC2)\r\n      II   = 1\r\n      IQHJ = 2*NFREQ+1\r\n      IWJ  = IQHJ+NTQHJ\r\n      NTWZ = NROWJ*2\r\n      IPDEL= IWJ + NTWZ\r\n      NTPDEL = JJ1*2\r\n      NZ = IBUF4-1 - IPDEL + 2*JJ1\r\n      IF (NZ  .LT. 0) CALL MESAGE (-8,0,NAME)\r\n      DO 100 I = 1,NFREQ\r\n      JJ = NRQHJ\r\n      CALL UNPACK (*10,QHJK,Z(IQHJ))\r\nC\r\nC     MULTIPY EACH IMAGINARY PART BY K\r\nC\r\n      DO 5 J = 1,NTQHJ,2\r\n      Z(IQHJ+J) = Z(IQHJ+J)*Z(2*I)\r\n   5  CONTINUE\r\n      GO TO 20\r\nC\r\nC     NULL COLUMN\r\nC\r\n   10 CALL ZEROC (Z(IQHJ),NTQHJ)\r\n   20 CONTINUE\r\nC\r\nC     BRING WJ COLUMN INTO CORE\r\nC\r\n      JJ = NROWJ\r\n      CALL UNPACK (*30,WJ,Z(IWJ))\r\n      GO TO 40\r\n   30 CALL ZEROC (Z(IWJ),NTWZ)\r\n   40 CONTINUE\r\nC\r\nC     MULTIPLY\r\nC\r\n      CALL GMMATC (Z(IQHJ),JJ1,NROWJ,0,Z(IWJ),NROWJ,1,0,Z(IPDEL))\r\n      CALL PACK (Z(IPDEL),PDEL,MCB)\r\n  100 CONTINUE\r\n      CALL CLOSE (WJ,1)\r\n      CALL CLOSE (QHJK,1)\r\n      CALL CLOSE (PDEL,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL DMPFIL (-PDEL,Z,NZ)\r\nC\r\nC     REPEATEDLY READ PDEL MULTIPLYING BY Q,WG, AND PP\r\nC\r\n      CALL GOPEN (PDEL,IZ(IBUF1),0)\r\n      CALL GOPEN (PP,IZ(IBUF2),0)\r\n      CALL GOPEN (GUSTL,IZ(IBUF3),0)\r\n      CALL GOPEN (PGUST,IZ(IBUF4),1)\r\n      CALL MAKMCB (MCB,PGUST,MCB(3),MCB(4),MCB(5))\r\n      DO 400 I = 1,NLOAD\r\n      CALL REWIND (PDEL)\r\n      CALL SKPREC (PDEL,1)\r\n      CALL FREAD (GUSTL,IZ,5,1)\r\n      IZ2 = 2\r\n      QWG = Q*Z(IZ2+1)\r\n      DO 300 J = 1,NFREQ\r\n      JJ = 1\r\n      CALL UNPACK (*310,PP,Z)\r\n      QWGR = QWG * Z(1)\r\n      QWGC = QWG * Z(IZ2)\r\n      GO TO 320\r\n  310 CONTINUE\r\n      QWGR = 0.0\r\n      QWGC = 0.0\r\n  320 CONTINUE\r\n      JJ = JJ1\r\n      CALL UNPACK (*330,PDEL,Z)\r\n      GO TO 340\r\n  330 CALL ZEROC (Z,NTPDEL)\r\n  340 CONTINUE\r\n      DO 350 M = 1,NTPDEL,2\r\n      PGR = QWGR*Z(M  ) - QWGC*Z(M+1)\r\n      PGC = QWGR*Z(M+1) + QWGC*Z(M  )\r\n      Z(M  ) = PGR\r\n      Z(M+1) = PGC\r\n  350 CONTINUE\r\n      CALL PACK (Z,PGUST,MCB)\r\n  300 CONTINUE\r\n  400 CONTINUE\r\n      CALL CLOSE (PDEL,1)\r\n      CALL CLOSE (PP,1)\r\n      CALL CLOSE (GUSTL,1)\r\n      CALL CLOSE (PGUST,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hbdy.f",
    "content": "      SUBROUTINE HBDY (ECPT,NECPT,IOPT,RVECT,IVECT)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE GEOMETRIC PROPERTIES OF THE VARIOUS\r\nC     TYPES OF HBDY ELEMENTS. IOPT IS DESCRIBED BELOW\r\nC\r\nC     THE ECPT INPUT DATA IS\r\nC\r\nC     POSITION    DATA\r\nC        1       EL ID\r\nC        2       FLAG\r\nC        3       SIL-1\r\nC        4       SIL-2\r\nC        5       SIL-3\r\nC        6       SIL-4\r\nC        7       SIL-5\r\nC        8       SIL-6\r\nC        9       SIL-7\r\nC       10       SIL-8\r\nC       11       VECTOR V1\r\nC       12       VECTOR V2\r\nC       13       VECTOR V3\r\nC       14       ECPT14\r\nC       15       MAT ID\r\nC       16       A-FACTOR\r\nC       17       EMISSIVITY\r\nC       18       ABSORBTIVIY\r\nC       19       R1\r\nC       20       R2\r\nC       21       CS-1\r\nC       22       X1\r\nC       23       Y1\r\nC       24       Z1\r\nC       25       CS-2\r\nC       26       X2\r\nC       27       Y2\r\nC       28       Z2\r\nC       29       CS-3\r\nC       30       X3\r\nC       31       Y3\r\nC       32       Z3\r\nC       33       CS-4\r\nC       34       X4\r\nC       35       Y4\r\nC       36       Z4\r\nC       37-52    NOT USED\r\nC       53       AVG. EL. TEMP.\r\nC\r\nC     THE VALUE OF FLAG INDICATES THE TYPE OF ELEMENT\r\nC\r\nC       FLAG     TYPE\r\nC       ****     ****\r\nC        1       POINT\r\nC        2       LINE\r\nC        3       REV\r\nC        4       TRIANGLE\r\nC        5       QUADRILATERAL\r\nC        6       ELLIPTIC CYLINDER\r\nC        7       FTUBE\r\nC\r\nC\r\nC     THE OUTPUT DATA IS PLACED IN  VECT AND IVECT\r\nC         THE FORMATS ARE\r\nC\r\nC     POSITION\r\nC          IOPT=  1             2\r\nC      1        EL ID         EL ID\r\nC      2        AREA          AREA\r\nC      3        EMIS          SIL-1\r\nC      4        ---           SIL-2\r\nC      5        SIL-1         SIL-3\r\nC      6        SIL-2         SIL-4\r\nC      7        SIL-3         AREA-1\r\nC      8        SIL-4         AREA-2\r\nC      9        GFACT-1       AREA-3\r\nC     10        GFACT-2       AREA-4\r\nC     11        GFACT-3       N1X\r\nC     12        GFACT-4       N1Y\r\nC     13                      N1Z\r\nC     14                      N2X  -  FOR FLAG = 6 ONLY\r\nC     15                      N2Y  -\r\nC     16                      N2Z  -\r\nC\r\nC\r\n      INTEGER         NECPT(5),IVECT(5),FLAG\r\n      REAL            ECPT(36),DXYZ(3),RVECT(16),V(3)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      EQUIVALENCE     (CONSTS(1),PI), (DXYZ(1),DX), (DXYZ(2),DY),\r\n     1                (DXYZ(3),DZ)\r\nC\r\nC\r\n      DO 10 I = 1,16\r\n      RVECT(I) = 0.0\r\n   10 IVECT(I) = 0\r\n      IVECT(1) = NECPT(1)\r\n      FLAG = NECPT(2)\r\n      IF (FLAG.LE.0 .OR. FLAG.GT. 7) GO TO 210\r\n      IF (FLAG .EQ. 7) ECPT(16) = PI*(ECPT(19) + ECPT(20))\r\nC\r\n      GO TO (20,30,40,50,60,90,30), FLAG\r\nC\r\nC     FLAG = POINT\r\nC\r\n   20 IVECT(3) = NECPT(3)\r\n      RVECT(7) = ECPT(16)\r\n      RVECT(2) = ECPT(16)\r\n      CALL SANORM (*110,ECPT(11))\r\n      NPTS = 1\r\n      GO TO 110\r\nC\r\nC     FLAG = LINE\r\nC\r\n   30 IVECT(3) = NECPT(3)\r\n      IVECT(4) = NECPT(4)\r\n      NPTS = 2\r\n      DX = ECPT(26) - ECPT(22)\r\n      DY = ECPT(27) - ECPT(23)\r\n      DZ = ECPT(28) - ECPT(24)\r\nC\r\n      TEMP = DX**2 + DY**2 + DZ**2\r\n      IF (TEMP .LE. 1.0E-20) GO TO 210\r\nC\r\nC     AREA CALCULATIONS\r\nC\r\n      RVECT(2) = ECPT(16)*SQRT(TEMP)\r\n      RVECT(7) = RVECT(2)*0.5\r\n      RVECT(8) = RVECT(7)\r\nC\r\nC     NORMAL VECTOR CALCULATIONS\r\nC\r\n      TEMP  =(DX*ECPT(11) + DY*ECPT(12) + DZ*ECPT(13))/TEMP\r\n      RVECT(11) = ECPT(11) - TEMP*DX\r\n      RVECT(12) = ECPT(12) - TEMP*DY\r\n      RVECT(13) = ECPT(13) - TEMP*DZ\r\nC\r\nC     NORMALIZE\r\nC\r\n      CALL SANORM (*110,RVECT(11))\r\n      GO TO 110\r\nC\r\nC     TYPE= REV\r\nC\r\n   40 IVECT(3) = NECPT(3)\r\n      IVECT(4) = NECPT(4)\r\n      NPTS = 2\r\n      DX = ECPT(26) - ECPT(22)\r\n      DZ = ECPT(28) - ECPT(24)\r\n      TEMP = SQRT(DX**2 +DZ**2)*PI\r\n      IF (TEMP .LE. 1.0E-20) GO TO 210\r\n      RVECT(7) = (2.0*ECPT(22) + ECPT(26))*TEMP/3.0\r\n      RVECT(8) = (2.0*ECPT(26) + ECPT(22))*TEMP/3.0\r\n      RVECT(2) =  RVECT(7) + RVECT(8)\r\nC\r\n      TEMP = TEMP/PI\r\n      RVECT(11) = DZ/TEMP\r\n      RVECT(13) =-DX/TEMP\r\n      GO TO 110\r\nC\r\nC     FLAG = AREA3\r\nC\r\n   50 IVECT(3) = NECPT(3)\r\n      IVECT(4) = NECPT(4)\r\n      IVECT(5) = NECPT(5)\r\n      NPTS = 3\r\n      DX = ECPT(26) - ECPT(22)\r\n      DY = ECPT(27) - ECPT(23)\r\n      DZ = ECPT(28) - ECPT(24)\r\n      RVECT(7) = ECPT(30) - ECPT(26)\r\n      RVECT(8) = ECPT(31) - ECPT(27)\r\n      RVECT(9) = ECPT(32) - ECPT(28)\r\nC\r\nC     CALC. NORMAL VECTOR\r\nC\r\n      CALL SAXB (DXYZ,RVECT(7),RVECT(11))\r\nC\r\n      CALL SANORM (*210,RVECT(11))\r\nC\r\n      RVECT(2) = TEMP/2.0\r\n      RVECT(7) = TEMP/6.0\r\n      RVECT(8) = RVECT(7)\r\n      RVECT(9) = RVECT(7)\r\nC\r\n      GO TO 110\r\nC\r\nC     FLAG = AREA4\r\nC\r\n   60 DO 70 I = 3,6\r\n   70 IVECT(I) = NECPT(I)\r\n      NPTS = 4\r\n      DO 80 I = 1,3\r\nC\r\nC     CALCULATE  DIFFERENCE VECTORS\r\nC\r\nC        R2 - R1\r\nC\r\n      RVECT(I+6) = ECPT(I+25) - ECPT(I+21)\r\nC\r\nC        R3 - R1\r\nC\r\n      RVECT(I+13) = ECPT(I+29) - ECPT(I+21)\r\nC\r\nC        R4 - R2\r\nC\r\n      V(I) = ECPT(I+33) - ECPT(I+25)\r\n   80 CONTINUE\r\nC\r\nC        (R3 - R1) X (R4 - R2)\r\nC\r\n      CALL SAXB (RVECT(14),V,RVECT(11))\r\nC\r\nC     2*AREA\r\nC\r\n      TEMP  = SQRT(RVECT(11)**2 + RVECT(12)**2 + RVECT(13)**2)\r\n      RVECT(2) = TEMP/2.0\r\nC\r\nC     NORMALIZE\r\nC\r\n      CALL SANORM (*210,RVECT(11))\r\nC\r\n      CALL SAXB (RVECT(7),RVECT(14),DXYZ)\r\nC\r\nC     AREA OF TRIANGLE 123\r\nC\r\n      TEMP = SQRT(DX**2 + DY**2 + DZ**2)/2.0\r\nC\r\n      CALL SAXB (RVECT(7),V,DXYZ)\r\nC\r\nC     AREA OF TRIANGLE 412\r\nC\r\n      DX =  SQRT(DX**2 + DY**2 + DZ**2)/2.0\r\nC\r\nC     AREA FOR POINTS\r\nC\r\n      RVECT( 7) = (RVECT(2)+DX   )/6.0\r\n      RVECT( 8) = (RVECT(2)+TEMP )/6.0\r\n      RVECT( 9) = (RVECT(2)*2.-DX)/6.0\r\n      RVECT(10) = (RVECT(2)*2.-TEMP)/6.0\r\n      RVECT(14) = 0.0\r\n      RVECT(15) = 0.0\r\n      RVECT(16) = 0.0\r\n      NPTS = 4\r\n      GO TO 110\r\nC\r\nC     FLAG = ELCYL\r\nC\r\n   90 IVECT(3) = NECPT(3)\r\n      IVECT(4) = NECPT(4)\r\n      NPTS = 2\r\n      DX = ECPT(26) - ECPT(22)\r\n      DY = ECPT(27) - ECPT(23)\r\n      DZ = ECPT(28) - ECPT(24)\r\n      TEMP = SQRT(DX**2 + DY**2 + DZ**2)\r\n      RVECT(2) = TEMP*ECPT(16)\r\n      IF (IOPT .EQ. 3) RVECT(2) = TEMP\r\n      IF (TEMP .LE. 0) GO TO 210\r\n      CALL SAXB (ECPT(11),DXYZ,RVECT(14))\r\n      CALL SAXB (DXYZ,RVECT(14),RVECT(11))\r\nC\r\n      CALL SANORM (*210,RVECT(11))\r\n      CALL SANORM (*210,RVECT(14))\r\n      DO 100 I = 1,3\r\n      RVECT(I+10) = RVECT(I+10)*ECPT(20)\r\n  100 RVECT(I+13) = RVECT(I+13)*ECPT(19)\r\n      RVECT(7) = RVECT(2)/2.0\r\n      RVECT(8) = RVECT(7)\r\nC\r\nC     IOPT EQUALS 1\r\nC     CALCULATE G FACTORS. STORE IN NEW LOCATIONS.\r\nC     WORK FROM LAST TO FIRST\r\nC\r\nC     CHECK FOR ZERO AREA\r\nC\r\n  110 AREA = RVECT(2)\r\n      IF (AREA .LT. 1.0E-20) GO TO 210\r\n  120 IF (IOPT .GT.       1) GO TO 170\r\n      DO 130 I = 1,NPTS\r\n      J = NPTS - I + 1\r\n  130 RVECT(J+8) =  RVECT(J+6)/AREA\r\nC\r\n      DO 160 I = 1,4\r\n      J =  5-I\r\n      IF (J -NPTS) 150,150,140\r\n  140 IVECT(J+4) = 0\r\n      GO TO 160\r\n  150 IVECT(J+4) = IVECT(J+2)\r\n  160 CONTINUE\r\nC\r\nC     STORE EMISSIVITY VALUE\r\nC\r\n      RVECT(3) = ECPT(17)\r\n      RETURN\r\nC\r\nC     IOPT EQUALS 2\r\nC\r\n  170 IF (IOPT .EQ. 2) RETURN\r\n      DO 180 I = 1,NPTS\r\n      RVECT(I+6) = RVECT(I+6)*ECPT(18)\r\n  180 CONTINUE\r\n      RETURN\r\nC\r\n  210 WRITE  (6,220) UWM,NECPT(1)\r\n  220 FORMAT (A25,' 2154, ZERO AREA OR ILLEGAL CONNECTION FOR HBDY ',\r\n     1       'ELEMENT NUMBER',I9)\r\n      AREA = 1.0\r\n      GO TO 120\r\n      END\r\n"
  },
  {
    "path": "mis/hbdyd.f",
    "content": "      SUBROUTINE HBDYD\r\nC\r\nC     THIS IS THE BOUNDARY CONDITION (HEAT) ELEMENT ROUTINE\r\nC     IT PRODUCES THE STIFFNESS AND OR DAMPING ELEMENT MATRICES.\r\nC\r\n      LOGICAL          HEAT     ,NOGO\r\n      INTEGER          NGRIDS(7),NECPT(53),OUTPT    ,SILTAB(8)  ,\r\n     1                 SET1(8)  ,SET2(4)  ,SILS     ,DICT(13)   ,\r\n     2                 ELID     ,ESTID\r\n      REAL             ECPT(53)\r\n      DOUBLE PRECISION C(16)    ,CC(4,4)  ,PI       ,MASTER(8,8),\r\n     1                 MAST(64) ,KE       ,ME       ,ITEMP      ,\r\n     2                 A1(5)    ,A2(3)    ,A3(3)    ,A4(3)\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /SYSTEM/  KSYSTM(100)\r\n      COMMON /EMGEST/  ECPT1    ,IFLAG    ,SILS(8)  ,V(3)       ,\r\n     1                 ECPT14   ,MATFLG   ,AF       ,EMISS      ,\r\n     2                 ABSORP   ,R1       ,R2       ,CSID(4,8)  ,\r\n     3                 AVGTMP\r\n      COMMON /HMTOUT/  HX       ,CPX\r\n      COMMON /MATIN /  MATID    ,INFLAG   ,ELTEMP\r\n      COMMON /EMGPRM/  D15(15)  ,KMBGG(3) ,IPREC    ,NOGO       ,\r\n     1                 HEAT     ,ICMBAR\r\n      COMMON /EMGDIC/  DMMM(2)  ,NLOCS    ,ELID     ,ESTID\r\n      COMMON /CONDAD/  PI\r\n      EQUIVALENCE      (NECPT(1), ECPT(1)), (SET2(1), SET1(5))  ,\r\n     1                 (ECPT1   , ECPT(1)), (DICT5  , DICT(5))  ,\r\n     2                 (KSYSTM(2),OUTPT  ), (CC(1,1), C(1)   )  ,\r\n     3                 (MASTER(1,1),MAST(1))\r\n      DATA    NGRIDS/  1, 2, 2, 3, 4, 2 ,2/\r\nC\r\nC     EST ENTRY FOR -CHBDY- ELEMENT\r\nC     ======================================================\r\nC     ECPT( 1)  = EL-ID       ELEMENT ID\r\nC     ECPT( 2)  = IFLAG       ELEM. TYPE FLAG = (1,2,3,4,5,6,7)\r\nC     ECPT( 3)  = SIL-1       SCALER INDICES\r\nC     ECPT( 4)  = SIL-2\r\nC     ECPT( 5)  = SIL-3\r\nC     ECPT( 6)  = SIL-4\r\nC     ECPT( 7)  = SIL-5\r\nC     ECPT( 8)  = SIL-6\r\nC     ECPT( 9)  = SIL-7\r\nC     ECPT(10)  = SIL-8\r\nC     ECPT(11)  = V1          ORIENTATION VECTOR\r\nC     ECPT(12)  = V2\r\nC     ECPT(13)  = V3\r\nC     ECPT(14)  = ECPT14\r\nC     ECPT(15)  = MATFLG      MAT ID FOR MAT4, MAT5 DATA\r\nC     ECPT(16)  = AF          AREA FACTOR\r\nC     ECPT(17)  = EMISS       EMISSIVITY COEFF\r\nC     ECPT(18)  = ABSORP      ABSORPTIVITY COEFF\r\nC     ECPT(19)  = R1          RADII OF ELIPTICAL CYLINDER\r\nC     ECPT(20)  = R2\r\nC     ECPT(21)  = CSID-1      COORDINATE SYSTEM ID AND\r\nC     ECPT(22)  = X1          COORDINATE GRID POINTS\r\nC     ECPT(23)  = Y1          (1-4 ARE ELEMENT POINTS,\r\nC     ECPT(24)  = Z1\r\nC     ECPT(25)  = CSID-2\r\nC     ECPT(26)  = X2\r\nC     ECPT(27)  = Y2\r\nC     ECPT(28)  = Z2\r\nC     ECPT(29)  = CSID-3\r\nC     ECPT(30)  = X3\r\nC     ECPT(31)  = Y3\r\nC     ECPT(32)  = Z3\r\nC     ECPT(33)  = CSID-4\r\nC     ECPT(34)  = X4\r\nC     ECPT(35)  = Y4\r\nC     ECPT(36)  = Z4\r\nC     ECPT(37)  = CSID-5       5-8 ARE POINTS IN THE FLUID)\r\nC       -ETC-     -ETC-\r\nC     ECPT(53)  = AVGTMP      AVERAGE ELEM. TEMPERATURE\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      IF (.NOT. HEAT) RETURN\r\n      IMHERE = 0\r\n      IF (IFLAG.LT.1 .OR. IFLAG.GT.7) GO TO 470\r\n      IF (IFLAG .EQ. 7) AF = PI*(DBLE(R1)+DBLE(R2))\r\n      N = NGRIDS(IFLAG)\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(4) = 1\r\n      DICT5   = 0.0\r\nC\r\nC     MASTER OUTPUT MATRIX OF SIZE UP TO 8 X 8 IS FORMED.  DUPLICATE\r\nC     SILS ARE SUPERIMPOSED RESULTING IN A POSSIBLY SMALLER OUTPUT MATRX\r\nC\r\nC     FOR A GIVEN ELEMENT-ID THE MATRIX OUTPUT WILL BE OF ORDER EQUAL\r\nC     TO THE NUMBER OF UNIQUE SILS PRESENT.\r\nC\r\nC     IFLAG = 1 WILL BE 1X1 OR 2X2    *\r\nC     IFLAG = 2 WILL BE 2X2 UP TO 4X4  *\r\nC     IFLAG = 3 WILL BE 2X2 UP TO 4X4   * (DEPENDING ON GROUDING AND\r\nC     IFLAG = 4 WILL BE 3X3 UP TO 6X6  *   DUPLICATE SILS.)\r\nC     IFLAG = 5 WILL BE 4X4 UP TO 8X8 *\r\nC\r\nC     -SET1- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 1 THRU 4\r\nC     -SET2- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 5 THRU 8\r\nC\r\nC\r\nC     FIRST FORM THE TABLE OF UNIQUE SILS.\r\nC\r\n      ISIZE = 0\r\n      DO 50 I = 1,8\r\n      IF (SILS(I) .LE. 0) GO TO 50\r\n      IF (ISIZE   .LE. 0) GO TO 40\r\n      DO 30 J = 1,ISIZE\r\n      IF (SILS(I) .EQ. SILTAB(J)) GO TO 50\r\n   30 CONTINUE\r\n   40 ISIZE = ISIZE + 1\r\n      SILTAB(ISIZE) = SILS(I)\r\n   50 CONTINUE\r\n      CALL SORT (0,0,1,1,SILTAB(1),ISIZE)\r\n      IMHERE = 50\r\n      IF (ISIZE .LE. 0) GO TO 470\r\nC\r\nC     BUILD -SET1- AND -SET2- MAPS OF WHERE OUTPUTS GO IN MASTER OUTPUT.\r\nC\r\n      DO 100 I = 1,8\r\n      J = 8\r\n      IF (SILS(I) .LE. 0) GO TO 90\r\n      DO 80 J = 1,ISIZE\r\n      IF (SILS(I) .EQ. SILTAB(J)) GO TO 90\r\n   80 CONTINUE\r\n      IMHERE = 80\r\n      GO TO 470\r\n   90 SET1(I) = J\r\n  100 CONTINUE\r\n      DICT(3) = ISIZE\r\nC\r\nC     FORM STIFFNESS -HEAT- IF REQUESTED.\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 360\r\n      INFLAG = 1\r\n      ELTEMP = AVGTMP\r\n      MATID  = MATFLG\r\n      IF (MATID .EQ. 0) GO TO 360\r\n      CALL HMAT (NECPT)\r\n      CP = CPX\r\n      H  = HX\r\n      IF (H .EQ. 0.0) GO TO 360\r\n      GO TO (120,130,140,210,240,130,130), IFLAG\r\nC\r\nC     IFLAG = 1, (POINT), 1 GRID-POINT.  (1 X 1)  C = H * AF\r\nC\r\n  120 C(1) = H\r\n      C(2) = AF\r\n      C(1) = C(1)*C(2)\r\n      GO TO 300\r\nC\r\nC     IFLAG = 2, (LINE OR ELLIPTIC CYL. )    **    **\r\nC             2 GRID POINTS           H*AF*L * 2  1 *\r\nC                           (2X2)  C =------ *      *\r\nC                                       6    * 1  2 *\r\nC                                            **    **\r\nC\r\n  130 C(1) = H\r\n      C(2) = AF\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(27) - ECPT(23)\r\n      C(5) = ECPT(28) - ECPT(24)\r\n      C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2 + C(5)**2)/3.0D0\r\n      C(2) = C(1)/2.0D0\r\n      C(5) = C(2)\r\n      C(6) = C(1)\r\n      GO TO 300\r\nC\r\nC     IFLAG = 3, (REVOLUTION), 2 GRID-POINTS     **                **\r\nC                                                *(3X +X )  (X + X )*\r\nC                                        H*2PI*L *   1  2     1   2 *\r\nC                             (2X2)  C = ------- *                  *\r\nC                                          12    *(X + X )  (X +3X )*\r\nC                                                *  1   2     1   2 *\r\nC                                                **                **\r\nC\r\n  140 IF (ECPT(22).LE.0.0 .OR. ECPT(26).LE.0.0) GO TO 180\r\n      IF (ECPT(23).NE.0.0 .OR. ECPT(27).NE.0.0) GO TO 180\r\n      GO TO 200\r\n  180 WRITE  (OUTPT,190) UFM,NECPT(1)\r\n  190 FORMAT (A23,' 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT',I14)\r\n      NOGO = .TRUE.\r\n      GO TO 490\r\nC\r\nC     FILL CONDUCTIVITIY MATRIX\r\nC\r\n  200 C(1) = H\r\n      C(2) = PI\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(28) - ECPT(24)\r\nC\r\nC     NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT.\r\nC\r\n      C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2)/6.0D0\r\n      C(2) = C(1)*DBLE(ECPT(22) + ECPT(26))\r\n      C(5) = C(2)\r\n      C(6) = C(1)*DBLE(ECPT(22) + 3.0*ECPT(26))\r\n      C(1) = C(1)*DBLE(3.0*ECPT(22) + ECPT(26))\r\n      GO TO 300\r\nC\r\nC     IFLAG = 4, (TRIANGLE), 3 GRID-POINTS.       **       **\r\nC                                                 * 2  1  1 *\r\nC                                           H * A *         *\r\nC                                (3X3) C =  ----- * 1  2  1 *\r\nC                                            24   *         *\r\nC                                                 * 1  1  2 *\r\nC                                                 **       **\r\nC\r\nC\r\nC     COMPUTE AREA -A- OF TRIANGLE   GET R2-R1 AND R3-R2\r\nC\r\n  210 C(1) = ECPT(26) - ECPT(22)\r\n      C(2) = ECPT(27) - ECPT(23)\r\n      C(3) = ECPT(28) - ECPT(24)\r\n      C(4) = ECPT(30) - ECPT(26)\r\n      C(5) = ECPT(31) - ECPT(27)\r\n      C(6) = ECPT(32) - ECPT(28)\r\nC\r\nC     (R2-R1) X (R3-R2)  INTO  C(1),C(2),C(3)\r\nC\r\n      CALL DAXB (C(1),C(4),C(1))\r\n      C(7) = DSQRT(C(1)**2 + C(2)**2 + C(3)**2)\r\n      IF (C(7) .LE. 0.0) GO TO 220\r\n      C(2) = C(7)*DBLE(H)/24.0D0\r\n      C(1) = 2.0D0*C(2)\r\n      C(3) = C(2)\r\n      C(5) = C(2)\r\n      C(6) = C(1)\r\n      C(7) = C(2)\r\n      C(9) = C(2)\r\n      C(10)= C(2)\r\n      C(11)= C(1)\r\n      GO TO 300\r\n  220 WRITE  (OUTPT,230) UFM,NECPT(1)\r\n  230 FORMAT (A23,' 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT',I14)\r\n      NOGO = .TRUE.\r\n      GO TO 490\r\nC\r\nC     IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS.\r\nC\r\nC               ***                                              ***\r\nC               * 2(A2+A3+A4)  (A3+A4)     (A2+A4)      (A2+A3)    *\r\nC               *                                                  *\r\nC               *              2(A1+A3+A4) (A1+A4)      (A1+A3)    *\r\nC   (4X4)  C  = *                                                  *\r\nC               *                           2(A1+A2+A4) (A1+A2)    *\r\nC               *     -SYM-                                        *\r\nC               *                                       2(A1+A2+A3)*\r\nC               ***                                              ***\r\nC\r\nC     R  =  XI, YI, ZI\r\nC      I\r\nC\r\nC     A1 = MAG((R3-R2) X (R4-R3))\r\nC     A2 = MAG((R4-R3) X (R1-R4))\r\nC     A3 = MAG((R1-R4) X (R2-R1))\r\nC     A4 = MAG((R2-R1) X (R3-R2))\r\nC\r\nC\r\nC     R3-R2\r\nC\r\n  240 C( 1) = ECPT(30) - ECPT(26)\r\n      C( 2) = ECPT(31) - ECPT(27)\r\n      C( 3) = ECPT(32) - ECPT(28)\r\nC\r\nC     R4-R3\r\nC\r\n      C( 4) = ECPT(34) - ECPT(30)\r\n      C( 5) = ECPT(35) - ECPT(31)\r\n      C( 6) = ECPT(36) - ECPT(32)\r\nC\r\nC     R1-R4\r\nC\r\n      C( 7) = ECPT(22) - ECPT(34)\r\n      C( 8) = ECPT(23) - ECPT(35)\r\n      C( 9) = ECPT(24) - ECPT(36)\r\nC\r\nC     R2-R1\r\nC\r\n      C(10) = ECPT(26) - ECPT(22)\r\n      C(11) = ECPT(27) - ECPT(23)\r\n      C(12) = ECPT(28) - ECPT(24)\r\nC\r\nC\r\n      CALL DAXB (C( 1),C( 4),A1(1))\r\n      CALL DAXB (C( 4),C( 7),A2(1))\r\n      CALL DAXB (C( 7),C(10),A3(1))\r\n      CALL DAXB (C(10),C( 1),A4(1))\r\nC\r\n      C(1) = A1(1)*A2(1) + A1(2)*A2(2) + A1(3)*A2(3)\r\n      C(2) = A1(1)*A3(1) + A1(2)*A3(2) + A1(3)*A3(3)\r\n      C(3) = A1(1)*A4(1) + A1(2)*A4(2) + A1(3)*A4(3)\r\n      IF (C(1)*C(2)*C(3) .LE. 0.0D0) GO TO 280\r\n      A1(1) = DSQRT(A1(1)**2 + A1(2)**2 + A1(3)**2)\r\n      A1(2) = DSQRT(A2(1)**2 + A2(2)**2 + A2(3)**2)\r\n      A1(3) = DSQRT(A3(1)**2 + A3(2)**2 + A3(3)**2)\r\n      A1(4) = DSQRT(A4(1)**2 + A4(2)**2 + A4(3)**2)\r\n      A1(5) = A1(1) + A1(2) + A1(3) + A1(4)\r\n      ITEMP = DBLE(H)/48.0D0\r\n      DO 270 I = 1,4\r\n      IC = 4*(I-1)\r\n      DO 270 J = 1,4\r\n      IJ = IC + J\r\n      IF (I .EQ. J) GO TO 260\r\n      C(IJ) = ITEMP*(A1(5) - A1(I) - A1(J))\r\n      GO TO 270\r\n  260 C(IJ) = ITEMP*(2.0D0*(A1(5) - A1(I)))\r\n  270 CONTINUE\r\n      GO TO 300\r\n  280 WRITE  (OUTPT,290) UFM,NECPT(1)\r\n  290 FORMAT (A23,' 3090, ILLEGAL GEOMETRY FOR QUAD. ELEMENT',I14)\r\n      NOGO =.TRUE.\r\n      GO TO 490\r\nC\r\nC     HERE WHEN -C- MATRIX OF SIZE N X N IS READY FOR INSERTION (MAPING)\r\nC     INTO MASTER OUTPUT MATRIX OF SIZE ISIZE X ISIZE.\r\nC\r\n  300 DO 310 I = 1,64\r\n      MAST(I) = 0.0D0\r\n  310 CONTINUE\r\nC\r\n      DO 330 I = 1,N\r\n      I1 = SET1(I)\r\n      I2 = SET2(I)\r\n      DO 320 J = 1,N\r\n      J1 = SET1(J)\r\n      J2 = SET2(J)\r\n      KE = CC(I,J)\r\n      MASTER(I1,J1) = MASTER(I1,J1) + KE\r\n      MASTER(I1,J2) = MASTER(I1,J2) - KE\r\n      MASTER(I2,J1) = MASTER(I2,J1) - KE\r\n      MASTER(I2,J2) = MASTER(I2,J2) + KE\r\n  320 CONTINUE\r\n  330 CONTINUE\r\nC\r\nC     CONDENSE (ISIZE X ISIZE) MATRIX IN (8 X 8) MASTER ARRAY INTO A\r\nC     SINGLE STRAND FOR OUTPUT TO EMGOUT\r\nC\r\n      K = 0\r\n      DO 350 JCOL = 1,ISIZE\r\n      DO 340 IROW = 1,ISIZE\r\n      K = K + 1\r\n      MAST(K) = MASTER(IROW,JCOL)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC     OUTPUT VIA EMGOUT THE TRIANGLE IN GLOBAL FOR STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (MAST(1),MAST(1),K,1,DICT,1,IPREC)\r\nC\r\nC     FORM DAMPING -HEAT- IF REQUESTED.\r\nC\r\n  360 IF (KMBGG(3) .EQ. 0) GO TO 490\r\n      INFLAG = 4\r\n      ELTEMP = AVGTMP\r\n      MATID  = MATFLG\r\n      IF (MATID .EQ. 0) GO TO 490\r\n      CALL HMAT (NECPT)\r\n      CP = HX\r\n      IF (CP .EQ. 0.0) GO TO 490\r\n      GO TO (380,390,400,410,420,390,390), IFLAG\r\nC\r\nC     IFLAG = 1, (POINT), 1 GRID-POINT.  (1 X 1)  C = CP* AF\r\nC\r\n  380 C(1) = CP\r\n      C(2) = AF\r\n      C(1) = C(1)*C(2)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 2, (LINE OR ELLIPTIC CYL. )\r\nC             2 GRID POINTS           CP*AF*L*      *\r\nC                                  C = ------*1 , 1 *\r\nC                                        2   *      *\r\nC\r\n  390 C(1) = CP\r\n      C(2) = AF\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(27) - ECPT(23)\r\n      C(5) = ECPT(28) - ECPT(24)\r\n      C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2 + C(5)**2)/2.0D0\r\n      C(2) = C(1)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 3, (REVOLUTION), 2 GRID-POINTS\r\nC                                               CP*PI*L *              *\r\nC                                           C = ------- *2X +X , 2X +X *\r\nC                                                  3    *  1  2    2  1*\r\nC\r\n  400 C(1) = CP\r\n      C(2) = PI\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(28) - ECPT(24)\r\nC\r\nC     NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT.\r\nC\r\n      C(1) = C(1)*C(2)*DSQRT(C(3)**2 + C(4)**2)/3.0D0\r\n      C(2) = C(1)*DBLE(ECPT(22) + 2.0*ECPT(26))\r\n      C(1) = C(1)*DBLE(2.0*ECPT(22) + ECPT(26))\r\n      GO TO 440\r\nC\r\nC     IFLAG = 4, (TRIANGLE), 3 GRID-POINTS.\r\nC                                          CP*A *         *\r\nC                                      C = ---- * 1, 1, 1 *\r\nC                                           3   *         *\r\nC\r\nC\r\nC     COMPUTE AREA -A- OF TRIANGLE   GET R2-R1 AND R3-R2\r\nC\r\n  410 C(1) = ECPT(26) - ECPT(22)\r\n      C(2) = ECPT(27) - ECPT(23)\r\n      C(3) = ECPT(28) - ECPT(24)\r\n      C(4) = ECPT(30) - ECPT(26)\r\n      C(5) = ECPT(31) - ECPT(27)\r\n      C(6) = ECPT(32) - ECPT(28)\r\nC\r\nC     (R2-R1) X (R3-R2)  INTO  C(1),C(2),C(3)\r\nC\r\n      CALL DAXB (C(1),C(4),C(1))\r\n      C(7) = DSQRT(C(1)**2 + C(2)**2 + C(3)**2)\r\n      C(1) = C(7)*DBLE(CP)/6.0D0\r\n      C(2) = C(1)\r\n      C(3) = C(1)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS.\r\nC\r\nC                                CP *                                  *\r\nC                            C = -- * A +A +A , A +A +A , A +A +A , ETC*\r\nC                                6  *  2  3  4   3  4  1   4  1  2     *\r\nC\r\nC     R  =  XI, YI, ZI\r\nC      I\r\nC\r\nC     A1 = MAG((R3-R2) X (R4-R3))\r\nC     A2 = MAG((R4-R3) X (R1-R4))\r\nC     A3 = MAG((R1-R4) X (R2-R1))\r\nC     A4 = MAG((R2-R1) X (R3-R2))\r\nC\r\nC\r\nC     R3-R2\r\nC\r\n  420 C( 1) = ECPT(30) - ECPT(26)\r\n      C( 2) = ECPT(31) - ECPT(27)\r\n      C( 3) = ECPT(32) - ECPT(28)\r\nC\r\nC     R4-R3\r\nC\r\n      C( 4) = ECPT(34) - ECPT(30)\r\n      C( 5) = ECPT(35) - ECPT(31)\r\n      C( 6) = ECPT(36) - ECPT(32)\r\nC\r\nC     R1-R4\r\nC\r\n      C( 7) = ECPT(22) - ECPT(34)\r\n      C( 8) = ECPT(23) - ECPT(35)\r\n      C( 9) = ECPT(24) - ECPT(36)\r\nC\r\nC     R2-R1\r\nC\r\n      C(10) = ECPT(26) - ECPT(22)\r\n      C(11) = ECPT(27) - ECPT(23)\r\n      C(12) = ECPT(28) - ECPT(24)\r\nC\r\nC\r\n      CALL DAXB (C( 1),C( 4),A1(1))\r\n      CALL DAXB (C( 4),C( 7),A2(1))\r\n      CALL DAXB (C( 7),C(10),A3(1))\r\n      CALL DAXB (C(10),C( 1),A4(1))\r\nC\r\n      A1(1) = DSQRT(A1(1)**2 + A1(2)**2 + A1(3)**2)\r\n      A1(2) = DSQRT(A2(1)**2 + A2(2)**2 + A2(3)**2)\r\n      A1(3) = DSQRT(A3(1)**2 + A3(2)**2 + A3(3)**2)\r\n      A1(4) = DSQRT(A4(1)**2 + A4(2)**2 + A4(3)**2)\r\n      A1(5) = A1(1) + A1(2) + A1(3) + A1(4)\r\n      ITEMP = DBLE(CP)/12.0D0\r\n      DO 430 I = 1,4\r\n      C(I) = ITEMP*(A1(5) - A1(I))\r\n  430 CONTINUE\r\n      GO TO 440\r\nC\r\nC     HERE WHEN DIAGONAL C MATRIX OF SIZE 1 X N IS READY FOR INSERTION\r\nC     (MAPING) INTO MASTER DIAGONAL OUTPUT MATRIX OF SIZE 1 X ISIZE.\r\nC\r\n  440 DO 450 I = 1,8\r\n      MAST(I) = 0.0D0\r\n  450 CONTINUE\r\nC\r\n      DO 460 I = 1,N\r\n      I1 = SET1(I)\r\n      I2 = SET2(I)\r\n      ME = C(I)\r\n      MAST(I1) = MAST(I1) + ME\r\n      MAST(I2) = MAST(I2) + ME\r\n  460 CONTINUE\r\nC\r\nC     OUTPUT VIA EMGOUT THE DIAGONAL MATRIX IN GLOBAL\r\nC\r\n      DICT(2) = 2\r\n      CALL EMGOUT (MAST(1),MAST(1),ISIZE,1,DICT,3,IPREC)\r\n      GO TO 490\r\nC\r\nC     LOGIC ERROR\r\nC\r\n  470 WRITE  (OUTPT,480) SFM,IMHERE,NECPT(1),SILS\r\n  480 FORMAT (A25,' 3037 FROM HBDYD.', /5X,\r\n     1        'LOGIC ERROR,  IMHERE =',I5,'  ELEMENT ID = ',I10, /5X,\r\n     2        'SILS =',8I10)\r\n      NOGO = .TRUE.\r\n  490 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hbdys.f",
    "content": "      SUBROUTINE HBDYS\r\nC\r\nC     THIS IS THE BOUNDARY CONDITION (HEAT) ELEMENT ROUTINE\r\nC     IT PRODUCES THE STIFFNESS AND OR DAMPING ELEMENT MATRICES.\r\nC\r\n      LOGICAL         HEAT     ,NOGO\r\n      INTEGER         NGRIDS(7),NECPT(53),OUTPT    ,SILTAB(8)  ,\r\n     1                SET1(8)  ,SET2(4)  ,SILS     ,DICT(13)   ,\r\n     2                ELID     ,ESTID\r\n      REAL            C(16)    ,CC(4,4)  ,PI       ,MASTER(8,8),\r\n     1                MAST(64) ,KE       ,ME       ,ITEMP      ,\r\n     2                A1(5)    ,A2(3)    ,A3(3)    ,A4(3)\r\n      REAL            ECPT(53)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /EMGEST/ ECPT1    ,IFLAG    ,SILS(8)  ,V(3)       ,\r\n     1                ECPT14   ,MATFLG   ,AF       ,EMISS      ,\r\n     2                ABSORP   ,R1       ,R2       ,CSID(4,8)  ,\r\n     3                AVGTMP\r\n      COMMON /HMTOUT/ HX       ,CPX\r\n      COMMON /MATIN / MATID    ,INFLAG   ,ELTEMP\r\n      COMMON /EMGPRM/ D15(15)  ,KMBGG(3) ,IPREC    ,NOGO       ,\r\n     1                HEAT     ,ICMBAR\r\n      COMMON /EMGDIC/ DMMM(2)  ,NLOCS    ,ELID     ,ESTID\r\n      COMMON /CONDAS/ PI\r\n      EQUIVALENCE     (NECPT(1), ECPT(1)), (SET2(1), SET1(5))  ,\r\n     1                (ECPT1   , ECPT(1)), (DICT5  , DICT(5))  ,\r\n     2                (KSYSTM(2),OUTPT  ), (CC(1,1), C(1)   )  ,\r\n     3                (MASTER(1,1),MAST(1))\r\n      DATA    NGRIDS/ 1, 2, 2, 3, 4, 2 ,2/\r\nC\r\nC     EST ENTRY FOR -CHBDY- ELEMENT\r\nC     ======================================================\r\nC     ECPT( 1)  = EL-ID       ELEMENT ID\r\nC     ECPT( 2)  = IFLAG       ELEM. TYPE FLAG = (1,2,3,4,5,6,7)\r\nC     ECPT( 3)  = SIL-1       SCALER INDICES\r\nC     ECPT( 4)  = SIL-2\r\nC     ECPT( 5)  = SIL-3\r\nC     ECPT( 6)  = SIL-4\r\nC     ECPT( 7)  = SIL-5\r\nC     ECPT( 8)  = SIL-6\r\nC     ECPT( 9)  = SIL-7\r\nC     ECPT(10)  = SIL-8\r\nC     ECPT(11)  = V1          ORIENTATION VECTOR\r\nC     ECPT(12)  = V2\r\nC     ECPT(13)  = V3\r\nC     ECPT(14)  = ECPT14\r\nC     ECPT(15)  = MATFLG      MAT ID FOR MAT4, MAT5 DATA\r\nC     ECPT(16)  = AF          AREA FACTOR\r\nC     ECPT(17)  = EMISS       EMISSIVITY COEFF\r\nC     ECPT(18)  = ABSORP      ABSORPTIVITY COEFF\r\nC     ECPT(19)  = R1          RADII OF ELIPTICAL CYLINDER\r\nC     ECPT(20)  = R2\r\nC     ECPT(21)  = CSID-1      COORDINATE SYSTEM ID AND\r\nC     ECPT(22)  = X1          COORDINATE GRID POINTS\r\nC     ECPT(23)  = Y1          (1-4 ARE ELEMENT POINTS,\r\nC     ECPT(24)  = Z1\r\nC     ECPT(25)  = CSID-2\r\nC     ECPT(26)  = X2\r\nC     ECPT(27)  = Y2\r\nC     ECPT(28)  = Z2\r\nC     ECPT(29)  = CSID-3\r\nC     ECPT(30)  = X3\r\nC     ECPT(31)  = Y3\r\nC     ECPT(32)  = Z3\r\nC     ECPT(33)  = CSID-4\r\nC     ECPT(34)  = X4\r\nC     ECPT(35)  = Y4\r\nC     ECPT(36)  = Z4\r\nC     ECPT(37)  = CSID-5       5-8 ARE POINTS IN THE FLUID)\r\nC       -ETC-     -ETC-\r\nC     ECPT(53)  = AVGTMP      AVERAGE ELEM. TEMPERATURE\r\nC\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      IF (.NOT. HEAT) RETURN\r\n      IMHERE = 0\r\n      IF (IFLAG.LT.1 .OR. IFLAG.GT.7) GO TO 470\r\n      IF (IFLAG .EQ. 7) AF = PI*(R1+R2)\r\n      N = NGRIDS(IFLAG)\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(4) = 1\r\n      DICT5   = 0.0\r\nC\r\nC     MASTER OUTPUT MATRIX OF SIZE UP TO 8 X 8 IS FORMED.  DUPLICATE\r\nC     SILS ARE SUPERIMPOSED RESULTING IN A POSSIBLY SMALLER OUTPUT MATRX\r\nC\r\nC     FOR A GIVEN ELEMENT-ID THE MATRIX OUTPUT WILL BE OF ORDER EQUAL\r\nC     TO THE NUMBER OF UNIQUE SILS PRESENT.\r\nC\r\nC     IFLAG = 1 WILL BE 1X1 OR 2X2    *\r\nC     IFLAG = 2 WILL BE 2X2 UP TO 4X4  *\r\nC     IFLAG = 3 WILL BE 2X2 UP TO 4X4   * (DEPENDING ON GROUDING AND\r\nC     IFLAG = 4 WILL BE 3X3 UP TO 6X6  *   DUPLICATE SILS.)\r\nC     IFLAG = 5 WILL BE 4X4 UP TO 8X8 *\r\nC\r\nC     -SET1- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 1 THRU 4\r\nC     -SET2- WILL BE A MAP OF OUTPUT POSITIONS FOR SILS 5 THRU 8\r\nC\r\nC\r\nC     FIRST FORM THE TABLE OF UNIQUE SILS.\r\nC\r\n      ISIZE = 0\r\n      DO 50 I = 1,8\r\n      IF (SILS(I) .LE. 0) GO TO 50\r\n      IF (ISIZE   .LE. 0) GO TO 40\r\n      DO 30 J = 1,ISIZE\r\n      IF (SILS(I) .EQ. SILTAB(J)) GO TO 50\r\n   30 CONTINUE\r\n   40 ISIZE = ISIZE + 1\r\n      SILTAB(ISIZE) = SILS(I)\r\n   50 CONTINUE\r\n      CALL SORT (0,0,1,1,SILTAB(1),ISIZE)\r\n      IMHERE = 50\r\n      IF (ISIZE .LE. 0) GO TO 470\r\nC\r\nC     BUILD -SET1- AND -SET2- MAPS OF WHERE OUTPUTS GO IN MASTER OUTPUT.\r\nC\r\n      DO 100 I = 1,8\r\n      J = 8\r\n      IF (SILS(I) .LE. 0) GO TO 90\r\n      DO 80 J = 1,ISIZE\r\n      IF (SILS(I) .EQ. SILTAB(J)) GO TO 90\r\n   80 CONTINUE\r\n      IMHERE = 80\r\n      GO TO 470\r\n   90 SET1(I) = J\r\n  100 CONTINUE\r\n      DICT(3) = ISIZE\r\nC\r\nC     FORM STIFFNESS -HEAT- IF REQUESTED.\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 360\r\n      INFLAG = 1\r\n      ELTEMP = AVGTMP\r\n      MATID  = MATFLG\r\n      IF (MATID .EQ. 0) GO TO 360\r\n      CALL HMAT (NECPT)\r\n      CP = CPX\r\n      H  = HX\r\n      IF (H .EQ. 0.0) GO TO 360\r\n      GO TO (120,130,140,210,240,130,130), IFLAG\r\nC\r\nC     IFLAG = 1, (POINT), 1 GRID-POINT.  (1 X 1)  C = H * AF\r\nC\r\n  120 C(1) = H\r\n      C(2) = AF\r\n      C(1) = C(1)*C(2)\r\n      GO TO 300\r\nC\r\nC     IFLAG = 2, (LINE OR ELLIPTIC CYL. )    **    **\r\nC             2 GRID POINTS           H*AF*L * 2  1 *\r\nC                           (2X2)  C =------ *      *\r\nC                                       6    * 1  2 *\r\nC                                            **    **\r\nC\r\n  130 C(1) = H\r\n      C(2) = AF\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(27) - ECPT(23)\r\n      C(5) = ECPT(28) - ECPT(24)\r\n      C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2 + C(5)**2)/3.0\r\n      C(2) = C(1)/2.0\r\n      C(5) = C(2)\r\n      C(6) = C(1)\r\n      GO TO 300\r\nC\r\nC     IFLAG = 3, (REVOLUTION), 2 GRID-POINTS     **                **\r\nC                                                *(3X +X )  (X + X )*\r\nC                                        H*2PI*L *   1  2     1   2 *\r\nC                             (2X2)  C = ------- *                  *\r\nC                                          12    *(X + X )  (X +3X )*\r\nC                                                *  1   2     1   2 *\r\nC                                                **                **\r\nC\r\n  140 IF (ECPT(22).LE.0.0 .OR. ECPT(26).LE.0.0) GO TO 180\r\n      IF (ECPT(23).NE.0.0 .OR. ECPT(27).NE.0.0) GO TO 180\r\n      GO TO 200\r\n  180 WRITE  (OUTPT,190) UFM,NECPT(1)\r\n  190 FORMAT (A23,' 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT',I14)\r\n      NOGO = .TRUE.\r\n      GO TO 490\r\nC\r\nC     FILL CONDUCTIVITIY MATRIX\r\nC\r\n  200 C(1) = H\r\n      C(2) = PI\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(28) - ECPT(24)\r\nC\r\nC     NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT.\r\nC\r\n      C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2)/6.0\r\n      C(2) = C(1)*(ECPT(22) + ECPT(26))\r\n      C(5) = C(2)\r\n      C(6) = C(1)*(ECPT(22) + 3.0*ECPT(26))\r\n      C(1) = C(1)*(3.0*ECPT(22) + ECPT(26))\r\n      GO TO 300\r\nC\r\nC     IFLAG = 4, (TRIANGLE), 3 GRID-POINTS.       **       **\r\nC                                                 * 2  1  1 *\r\nC                                           H * A *         *\r\nC                                (3X3) C =  ----- * 1  2  1 *\r\nC                                            24   *         *\r\nC                                                 * 1  1  2 *\r\nC                                                 **       **\r\nC\r\nC\r\nC     COMPUTE AREA -A- OF TRIANGLE   GET R2-R1 AND R3-R2\r\nC\r\n  210 C(1) = ECPT(26) - ECPT(22)\r\n      C(2) = ECPT(27) - ECPT(23)\r\n      C(3) = ECPT(28) - ECPT(24)\r\n      C(4) = ECPT(30) - ECPT(26)\r\n      C(5) = ECPT(31) - ECPT(27)\r\n      C(6) = ECPT(32) - ECPT(28)\r\nC\r\nC     (R2-R1) X (R3-R2)  INTO  C(1),C(2),C(3)\r\nC\r\n      CALL SAXB (C(1),C(4),C(1))\r\n      C(7) = SQRT(C(1)**2 + C(2)**2 + C(3)**2)\r\n      IF (C(7) .LE. 0.0) GO TO 220\r\n      C(2) = C(7)*H/24.0\r\n      C(1) = 2.0 *C(2)\r\n      C(3) = C(2)\r\n      C(5) = C(2)\r\n      C(6) = C(1)\r\n      C(7) = C(2)\r\n      C(9) = C(2)\r\n      C(10)= C(2)\r\n      C(11)= C(1)\r\n      GO TO 300\r\n  220 WRITE  (OUTPT,230) UFM,NECPT(1)\r\n  230 FORMAT (A23,' 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT',I14)\r\n      NOGO = .TRUE.\r\n      GO TO 490\r\nC\r\nC     IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS.\r\nC\r\nC               ***                                              ***\r\nC               * 2(A2+A3+A4)  (A3+A4)     (A2+A4)      (A2+A3)    *\r\nC               *                                                  *\r\nC               *              2(A1+A3+A4) (A1+A4)      (A1+A3)    *\r\nC   (4X4)  C  = *                                                  *\r\nC               *                           2(A1+A2+A4) (A1+A2)    *\r\nC               *     -SYM-                                        *\r\nC               *                                       2(A1+A2+A3)*\r\nC               ***                                              ***\r\nC\r\nC     R  =  XI, YI, ZI\r\nC      I\r\nC\r\nC     A1 = MAG((R3-R2) X (R4-R3))\r\nC     A2 = MAG((R4-R3) X (R1-R4))\r\nC     A3 = MAG((R1-R4) X (R2-R1))\r\nC     A4 = MAG((R2-R1) X (R3-R2))\r\nC\r\nC\r\nC     R3-R2\r\nC\r\n  240 C( 1) = ECPT(30) - ECPT(26)\r\n      C( 2) = ECPT(31) - ECPT(27)\r\n      C( 3) = ECPT(32) - ECPT(28)\r\nC\r\nC     R4-R3\r\nC\r\n      C( 4) = ECPT(34) - ECPT(30)\r\n      C( 5) = ECPT(35) - ECPT(31)\r\n      C( 6) = ECPT(36) - ECPT(32)\r\nC\r\nC     R1-R4\r\nC\r\n      C( 7) = ECPT(22) - ECPT(34)\r\n      C( 8) = ECPT(23) - ECPT(35)\r\n      C( 9) = ECPT(24) - ECPT(36)\r\nC\r\nC     R2-R1\r\nC\r\n      C(10) = ECPT(26) - ECPT(22)\r\n      C(11) = ECPT(27) - ECPT(23)\r\n      C(12) = ECPT(28) - ECPT(24)\r\nC\r\nC\r\n      CALL SAXB (C( 1),C( 4),A1(1))\r\n      CALL SAXB (C( 4),C( 7),A2(1))\r\n      CALL SAXB (C( 7),C(10),A3(1))\r\n      CALL SAXB (C(10),C( 1),A4(1))\r\nC\r\n      C(1) = A1(1)*A2(1) + A1(2)*A2(2) + A1(3)*A2(3)\r\n      C(2) = A1(1)*A3(1) + A1(2)*A3(2) + A1(3)*A3(3)\r\n      C(3) = A1(1)*A4(1) + A1(2)*A4(2) + A1(3)*A4(3)\r\n      IF (C(1)*C(2)*C(3) .LE. 0.0) GO TO 280\r\n      A1(1) = SQRT(A1(1)**2 + A1(2)**2 + A1(3)**2)\r\n      A1(2) = SQRT(A2(1)**2 + A2(2)**2 + A2(3)**2)\r\n      A1(3) = SQRT(A3(1)**2 + A3(2)**2 + A3(3)**2)\r\n      A1(4) = SQRT(A4(1)**2 + A4(2)**2 + A4(3)**2)\r\n      A1(5) = A1(1) + A1(2) + A1(3) + A1(4)\r\n      ITEMP = H/48.0\r\n      DO 270 I = 1,4\r\n      IC = 4*(I-1)\r\n      DO 270 J = 1,4\r\n      IJ = IC + J\r\n      IF (I .EQ. J) GO TO 260\r\n      C(IJ) = ITEMP*(A1(5) - A1(I) - A1(J))\r\n      GO TO 270\r\n  260 C(IJ) = ITEMP*(2.0*(A1(5) - A1(I)))\r\n  270 CONTINUE\r\n      GO TO 300\r\n  280 WRITE  (OUTPT,290) UFM,NECPT(1)\r\n  290 FORMAT (A23,' 3090, ILLEGAL GEOMETRY FOR QUAD. ELEMENT',I14)\r\n      NOGO =.TRUE.\r\n      GO TO 490\r\nC\r\nC     HERE WHEN -C- MATRIX OF SIZE N X N IS READY FOR INSERTION (MAPING)\r\nC     INTO MASTER OUTPUT MATRIX OF SIZE ISIZE X ISIZE.\r\nC\r\n  300 DO 310 I = 1,64\r\n      MAST(I) = 0.0\r\n  310 CONTINUE\r\nC\r\n      DO 330 I = 1,N\r\n      I1 = SET1(I)\r\n      I2 = SET2(I)\r\n      DO 320 J = 1,N\r\n      J1 = SET1(J)\r\n      J2 = SET2(J)\r\n      KE = CC(I,J)\r\n      MASTER(I1,J1) = MASTER(I1,J1) + KE\r\n      MASTER(I1,J2) = MASTER(I1,J2) - KE\r\n      MASTER(I2,J1) = MASTER(I2,J1) - KE\r\n      MASTER(I2,J2) = MASTER(I2,J2) + KE\r\n  320 CONTINUE\r\n  330 CONTINUE\r\nC\r\nC     CONDENSE (ISIZE X ISIZE) MATRIX IN (8 X 8) MASTER ARRAY INTO A\r\nC     SINGLE STRAND FOR OUTPUT TO EMGOUT\r\nC\r\n      K = 0\r\n      DO 350 JCOL = 1,ISIZE\r\n      DO 340 IROW = 1,ISIZE\r\n      K = K + 1\r\n      MAST(K) = MASTER(IROW,JCOL)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC     OUTPUT VIA EMGOUT THE TRIANGLE IN GLOBAL FOR STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (MAST(1),MAST(1),K,1,DICT,1,IPREC)\r\nC\r\nC     FORM DAMPING -HEAT- IF REQUESTED.\r\nC\r\n  360 IF (KMBGG(3) .EQ. 0) GO TO 490\r\n      INFLAG = 4\r\n      ELTEMP = AVGTMP\r\n      MATID  = MATFLG\r\n      IF (MATID .EQ. 0) GO TO 490\r\n      CALL HMAT (NECPT)\r\n      CP = HX\r\n      IF (CP .EQ. 0.0) GO TO 490\r\n      GO TO (380,390,400,410,420,390,390), IFLAG\r\nC\r\nC     IFLAG = 1, (POINT), 1 GRID-POINT.  (1 X 1)  C = CP* AF\r\nC\r\n  380 C(1) = CP\r\n      C(2) = AF\r\n      C(1) = C(1)*C(2)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 2, (LINE OR ELLIPTIC CYL. )\r\nC             2 GRID POINTS           CP*AF*L*      *\r\nC                                  C = ------*1 , 1 *\r\nC                                        2   *      *\r\nC\r\n  390 C(1) = CP\r\n      C(2) = AF\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(27) - ECPT(23)\r\n      C(5) = ECPT(28) - ECPT(24)\r\n      C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2 + C(5)**2)/2.0\r\n      C(2) = C(1)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 3, (REVOLUTION), 2 GRID-POINTS\r\nC                                               CP*PI*L *              *\r\nC                                           C = ------- *2X +X , 2X +X *\r\nC                                                  3    *  1  2    2  1*\r\nC\r\n  400 C(1) = CP\r\n      C(2) = PI\r\n      C(3) = ECPT(26) - ECPT(22)\r\n      C(4) = ECPT(28) - ECPT(24)\r\nC\r\nC     NOTE Y2 AND Y1 ARE 0 FOR REVOLUTION ELEMENT.\r\nC\r\n      C(1) = C(1)*C(2)*SQRT(C(3)**2 + C(4)**2)/3.0\r\n      C(2) = C(1)*(ECPT(22) + 2.0*ECPT(26))\r\n      C(1) = C(1)*(2.0*ECPT(22) + ECPT(26))\r\n      GO TO 440\r\nC\r\nC     IFLAG = 4, (TRIANGLE), 3 GRID-POINTS.\r\nC                                          CP*A *         *\r\nC                                      C = ---- * 1, 1, 1 *\r\nC                                           3   *         *\r\nC\r\nC\r\nC     COMPUTE AREA -A- OF TRIANGLE   GET R2-R1 AND R3-R2\r\nC\r\n  410 C(1) = ECPT(26) - ECPT(22)\r\n      C(2) = ECPT(27) - ECPT(23)\r\n      C(3) = ECPT(28) - ECPT(24)\r\n      C(4) = ECPT(30) - ECPT(26)\r\n      C(5) = ECPT(31) - ECPT(27)\r\n      C(6) = ECPT(32) - ECPT(28)\r\nC\r\nC     (R2-R1) X (R3-R2)  INTO  C(1),C(2),C(3)\r\nC\r\n      CALL SAXB (C(1),C(4),C(1))\r\n      C(7) = SQRT(C(1)**2 + C(2)**2 + C(3)**2)\r\n      C(1) = C(7)*CP/6.0\r\n      C(2) = C(1)\r\n      C(3) = C(1)\r\n      GO TO 440\r\nC\r\nC     IFLAG = 5, (QUADRILATERAL), 4 GRID-POINTS.\r\nC\r\nC                                CP *                                  *\r\nC                            C = -- * A +A +A , A +A +A , A +A +A , ETC*\r\nC                                6  *  2  3  4   3  4  1   4  1  2     *\r\nC\r\nC     R  =  XI, YI, ZI\r\nC      I\r\nC\r\nC     A1 = MAG((R3-R2) X (R4-R3))\r\nC     A2 = MAG((R4-R3) X (R1-R4))\r\nC     A3 = MAG((R1-R4) X (R2-R1))\r\nC     A4 = MAG((R2-R1) X (R3-R2))\r\nC\r\nC\r\nC     R3-R2\r\nC\r\n  420 C( 1) = ECPT(30) - ECPT(26)\r\n      C( 2) = ECPT(31) - ECPT(27)\r\n      C( 3) = ECPT(32) - ECPT(28)\r\nC\r\nC     R4-R3\r\nC\r\n      C( 4) = ECPT(34) - ECPT(30)\r\n      C( 5) = ECPT(35) - ECPT(31)\r\n      C( 6) = ECPT(36) - ECPT(32)\r\nC\r\nC     R1-R4\r\nC\r\n      C( 7) = ECPT(22) - ECPT(34)\r\n      C( 8) = ECPT(23) - ECPT(35)\r\n      C( 9) = ECPT(24) - ECPT(36)\r\nC\r\nC     R2-R1\r\nC\r\n      C(10) = ECPT(26) - ECPT(22)\r\n      C(11) = ECPT(27) - ECPT(23)\r\n      C(12) = ECPT(28) - ECPT(24)\r\nC\r\nC\r\n      CALL SAXB (C( 1),C( 4),A1(1))\r\n      CALL SAXB (C( 4),C( 7),A2(1))\r\n      CALL SAXB (C( 7),C(10),A3(1))\r\n      CALL SAXB (C(10),C( 1),A4(1))\r\nC\r\n      A1(1) = SQRT(A1(1)**2 + A1(2)**2 + A1(3)**2)\r\n      A1(2) = SQRT(A2(1)**2 + A2(2)**2 + A2(3)**2)\r\n      A1(3) = SQRT(A3(1)**2 + A3(2)**2 + A3(3)**2)\r\n      A1(4) = SQRT(A4(1)**2 + A4(2)**2 + A4(3)**2)\r\n      A1(5) = A1(1) + A1(2) + A1(3) + A1(4)\r\n      ITEMP = CP/12.0\r\n      DO 430 I = 1,4\r\n      C(I) = ITEMP*(A1(5) - A1(I))\r\n  430 CONTINUE\r\n      GO TO 440\r\nC\r\nC     HERE WHEN DIAGONAL C MATRIX OF SIZE 1 X N IS READY FOR INSERTION\r\nC     (MAPING) INTO MASTER DIAGONAL OUTPUT MATRIX OF SIZE 1 X ISIZE.\r\nC\r\n  440 DO 450 I = 1,8\r\n      MAST(I) = 0.0\r\n  450 CONTINUE\r\nC\r\n      DO 460 I = 1,N\r\n      I1 = SET1(I)\r\n      I2 = SET2(I)\r\n      ME = C(I)\r\n      MAST(I1) = MAST(I1) + ME\r\n      MAST(I2) = MAST(I2) + ME\r\n  460 CONTINUE\r\nC\r\nC     OUTPUT VIA EMGOUT THE DIAGONAL MATRIX IN GLOBAL\r\nC\r\n      DICT(2) = 2\r\n      CALL EMGOUT (MAST(1),MAST(1),ISIZE,1,DICT,3,IPREC)\r\n      GO TO 490\r\nC\r\nC     LOGIC ERROR\r\nC\r\n  470 WRITE  (OUTPT,480) SFM,IMHERE,NECPT(1),SILS\r\n  480 FORMAT (A25,' 3037 FROM HBDYS.', /5X,\r\n     1       'LOGIC ERROR,  IMHERE =',I5,'  ELEMENT ID =',I10, /5X,\r\n     2       'SILS =',8I10)\r\n      NOGO = .TRUE.\r\n  490 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hccom.f",
    "content": "      SUBROUTINE HCCOM(ITYPE,LCORE,ICORE,NEXTZ,KCOUNT)\r\nC\r\nC COMBINES HC CENTROID INFO ON SCR6 TO HCCENS\r\nC\r\n      INTEGER SCR6,HCCENS,IZ(1),ID(2),NAM(2),MCBH(7)\r\n      LOGICAL INCORE,BLDP,EOR\r\n      DIMENSION HC(63)\r\n      COMMON/SYSTEM/IDUM,IOUT\r\n      COMMON/ZZZZZZ/Z(1)\r\n      COMMON/PACKX/ITA,ITB,II,JJ,INCR\r\n      COMMON/ZBLPKX/A(4),IROW\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      DATA MCBH/307,0,0,2,1,0,0/\r\n      DATA SCR6,HCCENS/306,307/\r\n      DATA NAM/4HHCCO,4HM   /\r\nC\r\n      ITA=1\r\n      ITB=1\r\n      II=1\r\n      INCR=1\r\n      ICOUNT=0\r\n      NSKIP=0\r\n      NSKIP1=0\r\n      IN=0\r\n      EOR=.FALSE.\r\n      BLDP=.FALSE.\r\n      INCORE=.TRUE.\r\nC\r\nC IF TYPE IS 24 JUST PACK ZEROS ON HCCENS\r\nC\r\n      IF(ITYPE.EQ.24)GO TO 60\r\nC\r\n      CALL GOPEN(SCR6,Z(LCORE+1),0)\r\nC\r\nC SCR6 HAS 3 ENTRIES PER ELEMENT-ID,NUMBER OF POINTS AT WHICH HC IS\r\nC COMPUTED=N, AND 3*N HC VALUES--THERE IS ONE RECORD PER CARD TYPE\r\nC ON SCR6 FOR THIS SUBCASE\r\nC IF  .NOT. INCORE, THEN WE ARE BACK HERE DUE TO SPILL LOGIC AND  ARE\r\nC TRYING TO FINISH THE FIRST RECORD. SO WE MUST SKIP THE PART OF THE\r\nC RECORD PREVIOUSLY READ.\r\nC\r\n    5 IF(.NOT.INCORE)CALL FREAD(SCR6,ID,-NSKIP,0)\r\n      INWORD=0\r\n   10 CALL READ (*1002,*20,SCR6,ID,2,0,NWDS)\r\n      NSKIP=NSKIP+2\r\n      INEXT=NEXTZ+INWORD\r\n      NWORDS=3*ID(2)\r\n      IF(INEXT+NWORDS.GT.ICORE)GO TO 80\r\n      CALL FREAD(SCR6,Z(INEXT),NWORDS,0)\r\nC\r\nC INWORD IS THE NUMBER OF WORDS READ INTO CORE ON THIS READ\r\nC NSKIP IS THE TOTAL NUMBER OF WORDS READ FROM SCR6 FROM THIS RECORD\r\nC ICOUNT IS THE TOTAL NUMBER OF WORDS SAVED IN CORE FROM THIS RECORD\r\nC\r\n      INWORD=INWORD+NWORDS\r\n      NSKIP=NSKIP+NWORDS\r\n      ICOUNT=ICOUNT+NWORDS\r\n      GO TO 10\r\nC\r\n   20 EOR=.TRUE.\r\n      IF(.NOT.INCORE)GO TO 95\r\nC\r\nC CHECK ON COUNT CONSISTENCY\r\nC\r\n      IF(ICOUNT.NE.KCOUNT)GO TO 500\r\nC\r\nC EOR ON SCR6, I.E. END OF HC FOR A GIVEN CARD TYPE IN THIS SUBCASE.\r\nC IF OTHER CARD TYPES EXIST IN THIS SUBCASE, THEY ARE IN SUBSEQUENT\r\nC RECORDS. ADD RESULTS TO PREVIOUS ONES\r\nC\r\n   30 JCOUNT=0\r\n   35 CALL READ (*50,*30,SCR6,ID,2,0,NWDS)\r\n      NWORDS=3*ID(2)\r\n      CALL FREAD(SCR6,HC,NWORDS,0)\r\nC\r\nC ADD TO PREVIOUS HC FOR THIS ELEMENT- ALL ELEMENTS SHOULD BE  ON SCR6\r\nC IN SAME ORDER IN EVERY RECORD\r\nC\r\n      NJ=NEXTZ+JCOUNT-1\r\n      DO 40 I=1,NWORDS\r\n      Z(NJ+I)=Z(NJ+I)+HC(I)\r\n   40 CONTINUE\r\n      JCOUNT=JCOUNT+NWORDS\r\n      IF((.NOT.INCORE).AND.JCOUNT.EQ.INWORD)GO TO 90\r\n      GO TO 35\r\nC\r\nC INFO WILL NOT FIT IN CORE - SPILL LOGIC\r\nC\r\n   80 INCORE=.FALSE.\r\n   90 CALL FWDREC (*1002,SCR6)\r\nC\r\nC SKIP APPROPRIATE NUMBER OF WORDS IN THIS RECORD TO ACCOUNT FOR\r\nC THE PORTION OF THIS RECORD PREVIOUSLY READ\r\nC\r\n   95 CALL READ (*50,*1003,SCR6,ID,-NSKIP1,0,NWDS)\r\n      GO TO 30\r\nC\r\nC\r\nC DONE FOR THIS SUBCASE. PACK RESULTS. CLOSE SCR6 AND REOPEN TO WRITE\r\nC NEXT SUBCASE (IF ALL DATA CAN FIT INTO CORE)\r\nC\r\n   50 IF(INCORE)GO TO 57\r\nC\r\nC SPILL LOGIC-PACK OUT INWORD WORDS. THEN REWIND  SCRL AND SKIP DOWN\r\nC AS NECESSARY\r\nC\r\n      IF(.NOT.BLDP)CALL BLDPK(1,1,SCR6,0,0)\r\n      BLDP=.TRUE.\r\n      DO 55 K=1,INWORD\r\n      A(1)=Z(NEXTZ+K-1)\r\n      IROW=IN+K\r\n      CALL ZBLPKI\r\n   55 CONTINUE\r\n      IF(EOR)GO TO 58\r\nC\r\n      IN=IN+INWORD\r\n      CALL REWIND(SCR6)\r\n      CALL FWDREC (*1002,SCR6)\r\n      NSKIP=NSKIP-2\r\n      NSKIP1=NSKIP\r\n      GO TO 5\r\nC\r\n   57 CALL CLOSE(SCR6,1)\r\n      JJ=ICOUNT\r\n      MCBH(3)=JJ\r\n      CALL PACK(Z(NEXTZ),HCCENS,MCBH)\r\n      GO TO 70\r\nC\r\nC DONE FOR THIS SUBCASE (SPILL LOGIC)\r\nC\r\n   58 CALL CLOSE(SCR6,1)\r\n      MCBH(3)=ICOUNT\r\n      CALL BLDPKN(SCR6,0,MCBH)\r\n      GO TO 70\r\nC\r\nC\r\nC PACK A COLUMN OF ZEROS CORRESPONDING TO REMFLUX\r\nC\r\n   60 MCBH(3)=KCOUNT\r\n      CALL BLDPK(1,1,HCCENS,0,0)\r\n      CALL BLDPKN(HCCENS,0,MCBH)\r\nC\r\n   70 CALL WRTTRL(MCBH)\r\n      IF(ITYPE.EQ.24)GO TO 75\r\nC\r\nC CHECK ON COUNT CONSISTENCY\r\nC\r\n      IF(INCORE)GO TO 75\r\n      IF(ICOUNT.NE.KCOUNT)GO TO 500\r\nC\r\n   75 CALL GOPEN(SCR6,Z(LCORE+1),1)\r\n      RETURN\r\nC\r\n  500 WRITE(IOUT,501)\r\n  501 FORMAT(58H0***SYSTEM FATAL ERROR,LOGIC ERROR,COUNTS ARE OFF IN HCC\r\n     1OM)\r\n      CALL MESAGE(-61,0,0)\r\nC\r\n 1002 CALL MESAGE(-2,SCR6,NAM)\r\n 1003 CALL MESAGE(-3,SCR6,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdchk.f",
    "content": "      SUBROUTINE HDCHK(XXX,CCC,NNO,II,XI,YI,NGX,ZM,ZMI,\r\n     1           RV,RVI,TGM,TGI,ZI,LZ,XCC)\r\nC\r\nC\r\nC\r\nC     THIS SUBROUTINE SOLVES FOR THE POINTS OF INTERSECTION ON THE\r\nC     LINES OF THE JTH ELEMENT WITH OTHER LINES AND PLANES(RELEVANT)\r\nC\r\nC\r\n      DIMENSION CCC(1),XXX(1)\r\n      DIMENSION RV(1),RVI(1),TGM(1),TGI(1),ZM(1),ZMI(1),\r\n     1          NNO(1),NGX(1),XCC(1),XI(1),YI(1),ZI(1)\r\n      COMMON/HEDG/JS,M,JT,VX,VX1,VX2,VX3,NN\r\n      COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13\r\n      JM=1\r\n      EEX=.015\r\n      EXP=.005\r\n      NGX(1)=0\r\n      IF(II.EQ.0)GO TO 190\r\n      IF(NN .EQ. 1) GO TO 5\r\n      IF(VX3 .NE. 0.)GO TO 5\r\n      A=XXX(JT+2)\r\n      B=XXX(JT+1)\r\n      C=XXX(JT+4)\r\n      Z1=XCC(JS)\r\n      Z2=XCC(JS+1)\r\n      IF(A.EQ.0.) GO TO 1\r\n      Y1=-XCC(JS+3)*B-C\r\n      Y2=-XCC(JS+4)*B-C\r\n      X1=XCC(JS+3)\r\n      X2=XCC(JS+4)\r\n      GO TO 50\r\n    1 CONTINUE\r\n      Y1=XCC(JS+3)\r\n      Y2=XCC(JS+4)\r\n      X1=-C\r\n      X2=X1\r\n      GO TO 50\r\n    5 CONTINUE\r\n      A=XCC(JS)\r\n      B=XCC(JS+1)\r\n      C=XCC(JS+2)\r\n      IF(A.EQ.0.)GO TO 20\r\n      Y1=-XCC(JS+3)*XCC(JS+1)-XCC(JS+2)\r\n      Y2=-XCC(JS+4)*XCC(JS+1)-XCC(JS+2)\r\n      X1=XCC(JS+3)\r\n      X2=XCC(JS+4)\r\n      GO TO 30\r\n   20 CONTINUE\r\n      Y1=XCC(JS+3)\r\n      Y2=XCC(JS+4)\r\n      X1=-XCC(JS+2)\r\n      X2=X1\r\n   30 CONTINUE\r\n      IF(NN.NE.1)GO TO 40\r\n      Z1=XXX(1+JT)\r\n      Z2=XXX(2+JT)\r\n      GO TO 50\r\n   40 CONTINUE\r\n      Z1=-(VX+VX1*Y1+VX2*X1)/VX3\r\n      Z2=-(VX+VX1*Y2+VX2*X2)/VX3\r\n   50 CONTINUE\r\n      AL=X2-X1\r\n      BL=Y2-Y1\r\n      CL=Z2-Z1\r\n      EG=AMIN1(Z1,Z2)\r\n      EGX=AMAX1(X1,X2)\r\n      EGX1=AMIN1(X1,X2)\r\n      EGY=AMAX1(Y1,Y2)\r\n      EGY1=AMIN1(Y1,Y2)\r\nC\r\nC\r\nC     THIS CODE DETERMINES THE POINTS OF INTERSECTIONS ON THE LINES OF\r\nC     JTH ELEMENT RESULTING FROM THE INTERSECTION OF THE PLANES WITH\r\nC     THESE LINES.\r\nC\r\nC\r\n      DO 170 JR=1,II\r\n      LG=NNO(L4+JR)\r\n      NNO(L4+JR)=IABS(NNO(JR+L4))\r\n      LE=NNO(L4+JR)\r\n      JE=L13+LZ*(LE-1)\r\n      JU=L12+5*(LE-1)\r\n      NK=XXX(5+JU)\r\n      JV=1\r\n      AC=XXX(1+JU)\r\n      BC=XXX(2+JU)\r\n      CC=XXX(3+JU)\r\n      D=XXX(4+JU)\r\n      IF(EGX.LT.TGM(L5+LE))GO TO 170\r\n      IF(EGX1.GT.TGI(L6+LE))GO TO 170\r\n      IF(EGY.LT.RVI(L8+LE))GO TO 170\r\n      IF(EGY1.GT.RV(L7+LE))GO TO 170\r\n      IF(EG.GT.ZM(L2+LE))GO TO 170\r\n      IF(LG.LT.0)GO TO 80\r\n      IF((AL.EQ.0.).AND.(BL.EQ.0.))GO TO 80\r\n      IF(AL.EQ.0.)GO TO 60\r\n      XP=((BC*BL)/AL)*X1+(CC*CL/AL)*X1-D\r\n      XP=XP-BC*Y1-CC*Z1\r\n      VU=AC+(BC*BL/AL)+(CC*CL/AL)\r\n      IF(VU.EQ.0.)GO TO 80\r\n      XP=XP/VU\r\n      T=(XP-X1)/AL\r\n      YP=T*BL+Y1\r\n      ZP=T*CL+Z1\r\n      GO TO 70\r\n   60 CONTINUE\r\n      YP=(AC*AL/BL)*Y1+(CC*CL/BL)*Y1-D\r\n      YP=YP-CC*Z1-AC*X1\r\n      VU=BC+(AC*AL/BL)+(CC*CL/BL)\r\n      IF(VU.EQ.0.)GO TO 80\r\n      YP=YP/VU\r\n      T=(YP-Y1)/BL\r\n      XP=T*AL+X1\r\n      ZP=T*CL+Z1\r\n   70 CONTINUE\r\n      S=ZP-ZM(L2+LE)\r\n      S1=ZP-ZMI(L3+LE)\r\n      IF((ABS(S).LT.EEX).OR.(ABS(S1).LT.EEX))GO TO 56\r\n      IF(S*S1.GT.0.)GO TO 80\r\n   56 CONTINUE\r\n      S=XP-TGM(L5+LE)\r\n      S1=XP-TGI(L6+LE)\r\n      IF(S*S1.GT.0.)GO TO 80\r\n      S=YP-RV(L7+LE)\r\n      S1=YP-RVI(L8+LE)\r\n      IF(S*S1.GT.0.)GO TO 80\r\n      T=XP\r\n      IF(A.EQ.0.)T=YP\r\n      S=T-XCC(JS+3)\r\n      S1=T-XCC(JS+4)\r\n      IF(S*S1.GE.0.)GO TO 80\r\n      M=M+1\r\nC\r\nC     STORES INTERSECTIONS.\r\nC\r\n      XI(M+1)=XP\r\n      YI(M+1)=YP\r\n      ZI(M+1)=ZP\r\n   80 CONTINUE\r\nC\r\nC     THIS CODE DETERMINES INTERSECTION POINTS OF LINES WITH LINES.\r\nC\r\n      DO 160 JC=1,NK\r\n      B1=CCC(JV+1+JE)\r\n      A1=CCC(JV+JE)\r\n      C1=CCC(JV+2+JE)\r\n      T=A1*B-B1*A\r\n      IF(T.EQ.0.)GO TO 160\r\n      XO=(C1*A-C*A1)/T\r\n      IF((ABS(B).LE.50.).AND.(A.NE.0.))GO TO 90\r\n      YO=-C1-B1*XO\r\n      GO TO 100\r\n   90 CONTINUE\r\n      YO=-C-B*XO\r\n  100 CONTINUE\r\n      T=XO\r\n      IF(A.EQ.0.)T=YO\r\n      S=T-XCC(JS+3)\r\n      S1=T-XCC(JS+4)\r\n      IF(S*S1.GE.0.)GO TO 160\r\n      T=XO\r\n      IF(A1.EQ.0.)T=YO\r\n      S1=T-CCC(JV+4+JE)\r\n      S=T-CCC(JV+3+JE)\r\n      IF((ABS(S).LE.EEX).OR.(ABS(S1).LE.EEX))GO TO 110\r\n      IF(S*S1.GT.0.)GO TO 160\r\n  110 CONTINUE\r\n      IF(CC.EQ.0.)GO TO 160\r\n      ZX=-(AC*XO+BC*YO+D)/CC\r\n      IF(NN.NE.1 .AND. VX3 .NE. 0.)GO TO 130\r\n      TSZ=Z2-Z1\r\n      TSX=X2-X1\r\n      VT=XO-X1\r\n      IF(TSX.NE.0.)GO TO 120\r\n      VT=YO-Y1\r\n      TSX=Y2-Y1\r\n  120 CONTINUE\r\n      ZX1=(TSZ/TSX)*VT+Z1\r\n      GO TO 140\r\n  130 CONTINUE\r\n      ZX1=-(VX+VX1*YO+VX2*XO)/VX3\r\n  140 CONTINUE\r\n      IF(ABS(ZX-ZX1).LE.EXP)GO TO 150\r\n      IF(ZX1.GT.ZX)GO TO 160\r\n  150 CONTINUE\r\n      M=M+1\r\nC\r\nC     STORES INTERSECTIONS.\r\nC\r\n      XI(M+1)=XO\r\n      YI(M+1)=YO\r\n      ZI(M+1)=ZX1\r\n  160 JV=JV+5\r\n  170 CONTINUE\r\n      NGX(1)=M\r\n  190 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdcoef.f",
    "content": "      SUBROUTINE HDCOEF(X,Y,Z,XXX,JXX,NS,CCC,LZ)\r\nC\r\nC\r\nC     THIS SUBROUTINE DETERMINES EQUATION OF LINES AND PLANES.\r\nC\r\nC\r\n      INTEGER   ZCOEF1,ZCOEF,IBCOEF(5)\r\n      DIMENSION CCC(1),XXX(1),X(1),Y(1),Z(1),COE(8)\r\n      COMMON/ZZZZZZ/RZ(1)\r\n      COMMON/HDPTRS/XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT,\r\n     1              ZCOEF1,ZCOEF\r\n      COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13\r\n      DATA EPSI / 1.0E-5 /\r\n      LE=0\r\n      JA=L13+(JXX-1)*LZ\r\n      JF=L12+(JXX-1)*5\r\n      I=0\r\n      J=1\r\n   10 CONTINUE\r\nC\r\nC\r\nC     SEARCH FOR MATCHING COORDINATES.\r\nC\r\nC\r\n      I=I+1\r\n      T=X(I+1)-X(I)\r\n      S=Y(I+1)-Y(I)\r\n      U=Z(I+1)-Z(I)\r\n      IF (ABS(T) .GT. EPSI)  GO TO 20\r\n      IF (ABS(S) .GT. EPSI)  GO TO 20\r\n      IF (ABS(U) .GT. EPSI)  GO TO 20\r\nC\r\nC\r\nC     MATCH FOUND.....PROCEED IF LIST IS NOT EXHAUSTED.\r\nC\r\nC\r\n      I=I+2\r\n   20 CONTINUE\r\n      IF(I.GT.NS)GO TO 70\r\nC\r\nC\r\nC     DETERMINE EQUATION OF LINE-SEGMENTS.\r\nC\r\nC\r\n      T=X(I+1)-X(I)\r\n      T1=Y(I+1)-Y(I)\r\n      IF ((ABS(T1) .LT. EPSI) .AND. (ABS(T) .LT. EPSI))  GO TO 10\r\n      IF (ABS(T) .GT. EPSI)  GO TO 30\r\n   29 CONTINUE\r\n      CCC(J+JA)=0\r\n      CCC(J+1+JA)=1\r\n      CCC(J+2+JA)=-X(I)\r\n      GO TO 40\r\n   30 CONTINUE\r\n      CCC(J+JA)=1\r\n      E=(Y(I+1)-Y(I))/(X(I+1)-X(I))\r\n      IF(ABS(E).GT.100000.)GO TO 29\r\n      F=(E*X(I))-Y(I)\r\n      CCC(J+1+JA)=-E\r\n      CCC(J+2+JA)=F\r\n   40 CONTINUE\r\n      IF (ABS(CCC(J+JA)) .GT. EPSI)  GO TO 50\r\n      CCC(J+3+JA)=Y(I)\r\n      CCC(J+4+JA)=Y(I+1)\r\n      GO TO 60\r\n   50 CONTINUE\r\n      CCC(J+3+JA)=X(I)\r\n      CCC(J+4+JA)=X(I+1)\r\n   60 CONTINUE\r\n      J=J+5\r\n      RZ(ZCOEF1+LE)=Z(I)\r\n      RZ(ZCOEF+LE)=Z(I+1)\r\n      LE=LE+1\r\n      IF(LE.GT.3)GO TO 10\r\n      IBCOEF(LE)=I\r\n      GO TO 10\r\n   70 CONTINUE\r\nC\r\nC\r\nC     DETERMINE EQUATION OF PLANE.\r\nC\r\n      J=(J-1)/5\r\n      XXX(JF+5)=J\r\n      IF(NS.LE.3)GO TO 120\r\n      K1=1\r\n      K2=2\r\n      K3=3\r\n      A1=X(K3)-X(K1)\r\n      B1=Y(K3)-Y(K1)\r\n      C1=Z(K3)-Z(K1)\r\n      A2=X(K2)-X(K1)\r\n      B2=Y(K2)-Y(K1)\r\n      C2=Z(K2)-Z(K1)\r\n      COE(1)=B1*C2-B2*C1\r\n      COE(2)=C1*A2-C2*A1\r\n      COE(3)=A1*B2-A2*B1\r\n      COE(4)=COE(1)*X(1)+COE(2)*Y(1)+COE(3)*Z(1)\r\n      COE(4)=-COE(4)\r\n      DO 110 J=1,4\r\n  110 XXX(JF+J)=COE(J)\r\n      IF (ABS(COE(3)) .GT. EPSI)  GO TO 140\r\n      J=1\r\n      DO 25 K=1,LE\r\n      JAPJ=JA+J\r\n      CCC(JAPJ)=RZ(ZCOEF1-1+K)\r\n      CCC(JAPJ+1)=RZ(ZCOEF-1+K)\r\n      J=J+5\r\n   25 CONTINUE\r\n      IF (ABS(COE(1)) .GT. EPSI)  I=1\r\n      IF (ABS(COE(2)) .GT. EPSI)  I=2\r\n      P=COE(I)\r\n      IF (ABS(P) .LT. EPSI)  P = EPSI\r\n      DO 26 K=1,4\r\n      JFPK=JF+K\r\n   26 XXX(JFPK)=XXX(JFPK)/P\r\n      GO TO 140\r\n  120 CONTINUE\r\n      XXX(JF+5)=1\r\n      DO 130 IX=1,2\r\n  130 XXX(JF+IX)=Z(IX)\r\n      XXX(JF+3)=0\r\n  140 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdlin.f",
    "content": "      SUBROUTINE HDLIN (X,Y,Z,NP,NC,\r\n     1           XCC,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE,XU,YU,XI,YI,ZI,\r\n     2           DI,IBEG,IEND,ICT,ICCT,\r\n     3           IND,NIND,XXX,CCC,IN,IN1,IN2,TGM,TGMT,TGI,ZM,ZMI,RV,\r\n     4           RVI,NNO,NOCT,YMIN,ZMIN,COORD,SNDT,NEH,KEEP)\r\nC\r\nC\r\nC     THIS SUBROUTINE IS THE EXECUTIVE.\r\nC\r\nC\r\n      DIMENSION     X(1),Y(1),Z(1),I2(2),I3(2),RRX(20),NGX(15),H(15),\r\n     1              U(6),V(6),W(6),X1(10),Y1(10)\r\n      DIMENSION     XCC(1),ICOUNT(1),IRCT(1),X21(1),Y21(1),Z21(1),\r\n     1              IIA(1),XE(1),YE(1),XU(1),YU(1),XI(1),YI(1),ZI(1),\r\n     2              DI(1),IBEG(1),IEND(1),ICT(1),ICCT(1)\r\n      DIMENSION     IND(1),NIND(1),XXX(1),CCC(1),IN(1),IN1(1),IN2(1),\r\n     1              TGM(1),TGMT(1),TGI(1),ZM(1),ZMI(1),RV(1),RVI(1),\r\n     2              NNO(1),NOCT(1),YMIN(1),ZMIN(1),COORD(1),SNDT(1),\r\n     3              NEH(1),KEEP(1)\r\n      COMMON /GO3 / L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,\r\n     1              L13\r\n      COMMON /HDSC/ SCX,YAW,ROLL,PIT,LZ,VP,JJJ,ICORE\r\n      COMMON /HEDG/ JAT,ME,JT,VX,VX1,VX2,VX3,NN\r\nC\r\n      IF (VP .LT. 0.) GO TO 20\r\n      HXX = .015\r\n      AVA = .0\r\n      HX1 = .001\r\n      LC  = 10**6\r\n      IXXX= 0\r\n      IF (SCX .LT. 0.) IXXX = 1\r\n      SCX = ABS(SCX)\r\nC\r\nC     INITIALIZE VARIABLES.\r\nC\r\n      LZ  = LZ*5\r\n      SW1 = 0\r\n      SW  = 0\r\n      IDAV= 0\r\nC\r\nC     CALCULATE MAXIMUM ALLOWABLE ELEMENTS.\r\nC\r\n      IABC = ICORE/(25+LZ+4*JJJ)\r\n      SCT  = 1.\r\n      VP   = VP/SCT\r\n      VPX  = ABS(VP)\r\n      ISAVE= NC\r\n      NC   = IABC\r\n      L5   = 0\r\n      L6   = NC\r\n      L7   = 2*NC\r\n      L8   = 3*NC\r\n      L2   = 4*NC\r\n      L3   = 5*NC\r\n      L4   = 6*NC\r\n      L00  = 7*NC\r\n      L01  = 8*NC\r\n      L1   = 9*NC\r\n      L0   = 10*NC\r\n      L9   = 11*NC\r\n      L10  = 12*NC\r\n      L11  = 13*NC\r\n      L15  = 14*NC\r\n      L16  = 15*NC\r\n      L17  = 16*NC\r\n      L18  = 19*NC\r\n      L12  = 20*NC\r\n      L13  = 25*NC\r\n      L14  = L13 + LZ*NC\r\n      DO 10 J = 1,NC\r\n      RVI(L8+J) = 10**6\r\n      TGM(L5+J) = 10**6\r\n      RV (L7+J) =-RVI(L8+J)\r\n      TGI(L6+J) =-TGM(L5+J)\r\n      NOCT(L9+J)= 0\r\n      ZM  (L2+J)= RV(L7+J)\r\n      ZMI(L3+J) = RVI(L8+J)\r\n      NIND(L16+J) = 0\r\n      IND (L15+J) = J\r\n      KEEP(L18+J) = 0\r\n   10 CONTINUE\r\n      NC  = ISAVE\r\n      IK  = 0\r\n      IKT = 0\r\n      KR  = JJJ\r\n      PI  = 3.1416/180.\r\n      U(6)= SCX\r\n      V(6)= SCX\r\n      VP  =-VP\r\nC\r\nC     STORE EULERIAN ANGLES.\r\nC\r\n      XX   = YAW*PI\r\n      YY   = ROLL*PI\r\n      ZZ   = PIT*PI\r\n      COSY = COS(YY)\r\n      SINY = SIN(YY)\r\n      COSZ = COS(ZZ)\r\n      SINZ = SIN(ZZ)\r\n      COSX = COS(XX)\r\n      SINX = SIN(XX)\r\n   20 CONTINUE\r\n      NT  = NP-1\r\n      IKK = IK+1\r\n      IK  = IK+1\r\nC\r\nC     SET ERROR CODES, IF NECESSARY.\r\nC\r\n      IF (IKK .LE. IABC) GO TO 30\r\n      SW = 1\r\n   30 CONTINUE\r\n      IF (NC .EQ. 0) GO TO 40\r\n      IDAV = 1\r\n      NC   =-SW1\r\n      IF (SW .EQ. 0.) GO TO 50\r\n      ICORE = (25+LZ+4*JJJ)*IKK\r\n      NC    =-(SW+SW1)\r\n   40 CONTINUE\r\n   50 CONTINUE\r\n      DO 60 J = 1,NP\r\n      X21(J) = X(J)\r\n      Y21(J) = Y(J)\r\n      Z21(J) = Z(J)\r\n   60 CONTINUE\r\nC\r\nC     STORE COORDINATES AND SET PEN POSITION WHENEVER ABS(Z)=9999.\r\nC\r\n      DO 70 J = 1,NT\r\n      IIA(J) = 0\r\n      IF (Z21(J) .NE. 9999.) GO TO 70\r\n      IIA(J) = 1\r\n      IXU = J - 2\r\n      IBB = J - ISIGN(1,IXU)\r\n      X21(J) = X21(IBB)\r\n      Y21(J) = Y21(IBB)\r\n      Z21(J) = Z21(IBB)\r\n   70 CONTINUE\r\n      IIA(NP) = 1\r\n      Z21(NP) = Z21(NT)\r\n      Y21(NP) = Y21(NT)\r\n      X21(NP) = X21(NT)\r\n      JXX = IKK\r\n      I   = 1\r\n      VL  = ABS(VP)\r\nC\r\nC     LOOP THAT DOES THE THREE DIMENSIONAL TRANSFORMATION ON THE\r\nC     COORDINATES.\r\nC\r\n      JV = L14 + (IKK-1)*4*JJJ\r\n      JT = 1\r\n      DO 90 J = 1,NP\r\n      XJ = X21(J)/SCT\r\n      YJ = Y21(J)/SCT\r\n      ZJ = Z21(J)/SCT\r\n      U(I) = ZJ*(COSY*SINX) + XJ*(COSY*COSX) - YJ*SINY\r\n      TW = YJ*COSY*COSZ\r\n      TZ = XJ*( SINZ*SINX+SINY*COSZ*COSX)\r\n      TY = ZJ*(-SINZ*COSX+SINY*COSZ*SINX)\r\n      V(I) = TZ + TW + TY\r\n      PT = YJ*COSY*SINZ\r\n      PK = ZJ*( COSZ*COSX+SINY*SINZ*SINX)\r\n      PS = XJ*(-COSZ*SINX+SINY*SINZ*COSX)\r\n      ZJ = PK + PS + PT\r\n      IF (ZJ .LT. VL) GO TO 80\r\n      SW1 = 2\r\n      VPX = AMAX1(ZJ,VPX)\r\n      VPX = VPX + (.5/SCT)\r\n   80 CONTINUE\r\n      T = SW + SW1\r\n      IF (T .NE. 0.) GO TO 90\r\nC\r\nC     CALCULATES PERSPECTIVE BASED ON VALUE VP(DV) FROM CALLING PROGRAM.\r\nC\r\n      HH = VL/(VL-ZJ)\r\n      X21(J) = U(I)*HH\r\n      Y21(J) = V(I)*HH\r\n      Z21(J) = ZJ*HH\r\nC\r\nC     CALCULATES MAX/MIN VALUES OF EACH ELEMENT ON THE X,Y,Z DIMENSION\r\nC\r\n      RV (L7+JXX) = AMAX1(RV (L7+JXX),Y21(J))\r\n      RVI(L8+JXX) = AMIN1(RVI(L8+JXX),Y21(J))\r\n      TGI(L6+JXX) = AMAX1(TGI(L6+JXX),X21(J))\r\n      TGM(L5+JXX) = AMIN1(TGM(L5+JXX),X21(J))\r\n      ZM (L2+JXX) = AMAX1(ZM (L2+JXX),Z21(J))\r\n      ZMI(L3+JXX) = AMIN1(ZMI(L3+JXX),Z21(J))\r\n      COORD(JT+JV  ) = X21(J)\r\n      COORD(JT+JV+1) = Y21(J)\r\n      COORD(JT+JV+2) = Z21(J)\r\n      COORD(JT+3+JV) = IIA(J)\r\n      JT = JT + 4\r\n   90 CONTINUE\r\n      IF (IDAV .EQ. 1) VP = VPX*SCT\r\n      IF (T   .NE. 0.) GO TO 400\r\n      NOCT(L9+IKK) = NOCT(L9+IKK) + NP\r\n      NS  = NP\r\n      AVA = AVA + (TGI(L6+JXX)-TGM(L5+JXX))*(RV(L7+JXX)-RVI(L8+JXX))\r\n      IF (IXXX .EQ. 1) GO TO 95\r\nC\r\nC     CALL SUBROUTINE WHICH CALCULATES BOTH THE EQUATIONS OF THE LINE\r\nC     SEGMENTS AND POLYGONS.\r\nC\r\n      CALL HDCOEF (X21,Y21,Z21,XXX,JXX,NS,CCC,LZ)\r\nC\r\nC     CHECKS TO SEE IF ALL ELEMENTS(SETS) HAVE BEEN PASSED.\r\nC\r\n   95 CONTINUE\r\n      IF (IDAV .EQ. 1) GO TO 100\r\n      GO TO 400\r\n  100 CONTINUE\r\n      AVA = AVA/IKK\r\n      DO 1301 J = 1,100\r\n      ICCT(J) = 0\r\n      ICT (J) = 0\r\n      IRCT(J) = J - 1\r\n      IBEG(J) = 1\r\n      IEND(J) = 0\r\n 1301 CONTINUE\r\n      IAUG  = 50 + (IKK/10000)*2\r\n      AMAXX =-999999.\r\n      AMAXY =-999999.\r\n      AMINX = 999999.\r\n      AMINY = 999999.\r\n      DO 1400 J = 1,IKK\r\n      AMAXX = AMAX1(AMAXX,TGI(L6+J))\r\n      AMAXY = AMAX1(AMAXY,RV (L7+J))\r\n      AMINX = AMIN1(AMINX,TGM(L5+J))\r\n      AMINY = AMIN1(AMINY,RVI(L8+J))\r\n 1400 CONTINUE\r\n      TMAX = (AMAXX-AMINX)*(AMAXY-AMINY)\r\n      IBL  = TMAX/AVA\r\n      IBL  = IBL/4\r\nC\r\nC     DETERMINES THE NUMBER OF GRID POINTS IN THE GRID.\r\nC\r\nC\r\n      EN = IKK\r\n      K  = (ALOG(EN)/ALOG(2.)) + .01\r\n      K  = K + IAUG\r\n      K  = MIN0(K,IBL)\r\n      IF (K .LE. 1) K = 1\r\n      T  = K\r\n      R  = T**.5\r\n      KS = R + .5\r\n      S  = T/KS\r\n      MS = S + .5\r\n      N  = KS*MS\r\n      MND= N + 1\r\n      XMD= MND\r\n      T  = 3./(MND-1)\r\n      IGY= T*IKK\r\n      K  = KS\r\n      K1 = MS\r\n      CRX= (AMAXX-AMINX)/K\r\n      CRY= (AMAXY-AMINY)/K1\r\nC\r\nC\r\nC     DETERMINES THE RELEVANT ELEMENTS VIA THE GRID BLOCKS.\r\nC\r\nC\r\n      DO 3 J = 1,IKK\r\n      IA = 0\r\n      XMAT = TGI(L6+J)\r\n      XMIT = TGM(L5+J)\r\n      YMAT =  RV(L7+J)\r\n      YMIT = RVI(L8+J)\r\n      M = 0\r\n      DO 1 I = 1,K1\r\n      DO 2 L = 1,K\r\n      M  = M + 1\r\n      S  = XMAT - ((L-1)*CRX+AMINX)\r\n      S1 = XMAT - (L*CRX+AMINX)\r\n      R  = XMIT - ((L-1)*CRX+AMINX)\r\n      R1 = XMIT - (L*CRX+AMINX)\r\n      A  = YMAT - ((I-1)*CRY+AMINY)\r\n      A1 = YMAT - (I*CRY+AMINY)\r\n      B  = YMIT - ((I-1)*CRY+AMINY)\r\n      B1 = YMIT - (I*CRY+AMINY)\r\n      IF (S.LE.0. .OR. R1.GE.0.) GO TO 2\r\n      IF (A.LE.0. .OR. B1.GE.0.) GO TO 2\r\n      IF (S*S1.GT.0. .OR. R*R1.GT.0.) GO TO 4\r\n      IF (A*A1.GT.0. .OR. B*B1.GT.0.) GO TO 4\r\n      NIND(L16+J) = M\r\n      GO TO 3\r\n    4 CONTINUE\r\n      IA = IA + 1\r\n      IF (IA .LE. 4) GO TO 8000\r\n      NIND(J+L16) = 0\r\n      GO TO 8001\r\n 8000 CONTINUE\r\n      NIND(L16+J) = NIND(L16+J) + M*(MND**(IA-1))\r\n 8001 CONTINUE\r\n      IF (ICCT(M) .LT. 0) GO TO 2\r\n      ICCT(M) = ICCT(M) + 1\r\n      JK      = (M-1)*IGY+ICCT(M) + L17\r\n      NEH(JK) = J\r\n      IF (ICCT(M) .GE. IGY) ICCT(M) = -1\r\n    2 CONTINUE\r\n    1 CONTINUE\r\n    3 CONTINUE\r\n      CALL HDVS1 (NIND(L16+1),IK,IND(L15+1))\r\n      SW = 0\r\n      L  = 1\r\n      DO 5 I = 1,IKK\r\n   11 CONTINUE\r\n      IF (NIND(L16+I) .NE. IRCT(L)) GO TO 6\r\n      SW = SW + 1\r\n      IF (SW .EQ. 1.) LT = I\r\n      ICT(L) = ICT(L) + 1\r\n      GO TO 5\r\n    6 CONTINUE\r\n      IF (SW .NE. 0.) GO TO 8\r\n      L = L + 1\r\n      GO TO 11\r\n    8 CONTINUE\r\n      IBEG(L) = LT\r\n      IEND(L) = LT + ICT(L) - 1\r\n      SW = 0\r\n      IF (NIND(L16+I) .GE. MND) GO TO 2110\r\n      L = L + 1\r\n      GO TO 11\r\n    5 CONTINUE\r\n      IBEG(L) = LT\r\n      IEND(L) = LT + ICT(L) - 1\r\n 2110 CONTINUE\r\n      DO 2111 J = 1,IKK\r\n      SNDT(L4+J) = IND(L15+J)\r\n 2111 CONTINUE\r\n      CALL HDVSR (SNDT(L4+1),IK,NIND(L16+1))\r\n      EN  = IKK\r\n      IGX = (ALOG(EN)/ALOG(2.)) + 1.\r\n      DO 105 J = 1,IGX\r\n      RRX(J) = 2**(IGX-J)\r\n  105 CONTINUE\r\n      U(6) = SCX\r\n      V(6) = SCX\r\n      W(6) = SCX\r\n      IKT  = NC\r\n      T    = AMINY\r\n      T1   = AMINX\r\n      V(5) = T\r\n      U(5) = T1\r\n      IJ   = 0\r\n      X1(3)= U(5)\r\n      Y1(3)= V(5)\r\n      X1(4)= U(6)\r\n      Y1(4)= V(6)\r\n      X1(4)= X1(4)/SCT\r\n      Y1(4)= Y1(4)/SCT\r\n      DO 115 J = 1,IKK\r\n      IN(L11 +J) = J\r\n      IN1(L0 +J) = J\r\n      IN2(L00+J) = J\r\n      TGMT(L10+J) = TGM(L5+J)\r\n      YMIN(L1 +J) = RVI(L8+J)\r\n      ZMIN(L01+J) = ZM(L2+J)\r\n  115 CONTINUE\r\nC\r\nC     CALL SUBROUTINE WHICH WILL SORT ON X,Y AND Z.\r\nC\r\n      CALL HDVSR (TGMT(L10+1),IK,IN(L11+1))\r\n      CALL HDVSR (YMIN(L1+1),IK,IN1(L0+1))\r\n      CALL HDVSR (ZMIN(L01+1),IK,IN2(L00+1))\r\n      H(8) = 0\r\n      DO 395 J = 1,IKK\r\n      KS = IKK\r\n      JJ = L14 + (J-1)*4*JJJ\r\n      JH = 1\r\n      II = 0\r\n      IXR= NOCT(L9+J)\r\n      NIT= 0\r\n      JT = L12 + 5*(J-1)\r\n      JO = L13 + LZ*(J-1)\r\n      IF (IXXX .EQ. 1) GO TO 200\r\n      NS = XXX(5+JT)\r\n      NG = NS*5\r\n      A3 = XXX(1+JT)\r\n      B3 = XXX(2+JT)\r\n      C3 = XXX(3+JT)\r\n      D3 = XXX(4+JT)\r\n      I  = 0\r\n      DO 121 IX = 1,NG,5\r\n      IF (IXR .LE. 3) GO TO 121\r\n      I = I + 1\r\n      XE(I) = CCC(IX+3+JO)\r\n      IF (CCC(IX+JO) .NE. 0.) GO TO 120\r\n      XE(I) =-CCC(IX+2+JO)\r\n      YE(I) = CCC(IX+3+JO)\r\n      GO TO 121\r\n  120 CONTINUE\r\n      YE(I) =-CCC(IX+2+JO) - CCC(IX+1+JO)*XE(I)\r\n  121 CONTINUE\r\nC\r\nC     THIS LOOP DETERMINES THE RELEVANT ELEMENTS AS THEY RELATE TO A\r\nC     PARTICULAR ELEMENT.  THAT IS, EACH ELEMENT HAS ASSOCIATED WITH IT\r\nC     THOSE OTHER ELEMENTS WHICH COULD POSSIBLY HIDE SOME PORTION\r\nC     OF THE GIVEN ELEMENT.\r\nC\r\n      K  = 2**IGX\r\n      K1 = K\r\n      K2 = K\r\nC\r\nC     DO LOGARITHMIC SEARCH TO DETERMINE RELEVANT ELEMENTS.\r\nC\r\n      S = -1\r\n      DO 131 I = 1,IGX\r\n      K = K + SIGN(RRX(I),S)\r\n      IF (K .GT. IKK) K = IKK\r\n      S  = TGI(L6+J) - TGMT(L10+K  )\r\n      S1 = TGI(L6+J) - TGMT(L10+K-1)\r\n      IF (S*S1 .LE. 0.) GO TO 132\r\n  131 CONTINUE\r\n      K = IKK\r\n  132 CONTINUE\r\n      S = -1\r\n      DO 133 I = 1,IGX\r\n      K1 = K1 + SIGN(RRX(I),S)\r\n      IF (K1 .GT. IKK) K1 = IKK\r\n      S  = RV(L7+J) - YMIN(L1+K1  )\r\n      S1 = RV(L7+J) - YMIN(L1+K1-1)\r\n      IF (S*S1 .LE. 0.) GO TO 134\r\n  133 CONTINUE\r\n      K1 = IKK\r\n  134 CONTINUE\r\n      S = -1\r\n      DO 135 I = 1,IGX\r\n      K2 = K2 + SIGN(RRX(I),S)\r\n      IF (K2 .LE.   1) K2 = 2\r\n      IF (K2 .GT. IKK) K2 = IKK\r\n      S  = ZMI(L3+J) - ZMIN(L01+K2  )\r\n      S1 = ZMI(L3+J) - ZMIN(L01+K2-1)\r\n      IF (S*S1 .LE. 0.) GO TO 136\r\n  135 CONTINUE\r\n      K2 = 1\r\n  136 CONTINUE\r\n      I1 = IKK - K2 + 1\r\nC\r\nC     RETRIEVE THE RELEVANT ELEMENTS DETERMINED FROM SCHEME 1.\r\nC\r\n      IF  (NIND(L16+J) .EQ. 0) GO TO 1270\r\n      IR = NIND(L16+J)\r\n      VX = NIND(L16+J)\r\n      T  = ALOG(VX)\r\n      IF (NIND(L16+J) .LE. LC) GO TO 1800\r\n      E  = LC\r\n      LG = NIND(L16+J)/LC\r\n      MU = MOD(IR,LC)\r\n      UX = LG + (MU/E)\r\n      T  = ALOG(UX) + ALOG(E)\r\n 1800 CONTINUE\r\n      IXT = 0\r\n      IEXP= (T/ALOG(XMD)) + 1\r\n      DO 8004 L = 1,IEXP\r\n      IV = IR/(MND**(IEXP-L))\r\n      IR = IR - IV*(MND**(IEXP-L))\r\n      IV = IV + 1\r\n      IF (ICCT(IV-1) .EQ. 0) GO TO 4000\r\n      IF (ICCT(IV-1) .GT. 0) GO TO 4001\r\n      GO TO 1270\r\n 4001 CONTINUE\r\n      KE = ICCT(IV-1)\r\n      IL = 0\r\n      JTT= (IV-2)*IGY + L17\r\n      DO 4003 I = 1,KE\r\n      KV = NEH(I+JTT)\r\n      IF (KEEP(L18+KV) .EQ. J) GO TO 4003\r\n      IL = IL + 1\r\n      NNO(L4+IXT+IL) = KV\r\n      KEEP(L18+KV) = J\r\n 4003 CONTINUE\r\n      IXT = IXT + IL\r\n 4000 CONTINUE\r\n      IX  = IBEG(IV)\r\n      IX1 = IEND(IV)\r\n      DO 1170 I = IX,IX1\r\n 1170 NNO(L4+IXT+I-IX+1) = IND(L15+I)\r\n      IXT = IXT + IX1 - IX + 1\r\n 8004 CONTINUE\r\n      KS = IXT\r\n 1270 CONTINUE\r\n      IM = MIN0(I1,K,K1)\r\nC\r\nC     PICK MINIMUM COUNT FROM BOTH SCHEMES.\r\nC\r\n      IF (KS .LT. IM) GO TO 129\r\n      IF (IM .EQ. I1) GO TO 1000\r\n      IF (IM .EQ.  K) GO TO 1001\r\n      IF (IM .EQ. K1) GO TO 1002\r\n 1000 CONTINUE\r\n      KS = I1\r\n      DO 1003 I = 1,KS\r\n 1003 NNO(L4+I) = IN2(L00+IKK-I+1)\r\n      GO TO 129\r\n 1001 CONTINUE\r\n      KS = K\r\n      DO 1004 I = 1,KS\r\n 1004 NNO(L4+I) = IN(L11+I)\r\n      GO TO 129\r\n 1002 CONTINUE\r\n      KS = K1\r\n      DO 1006 I = 1,KS\r\n 1006 NNO(L4+I) = IN1(L0+I)\r\n  129 CONTINUE\r\n      DO 170 I = 1,KS\r\n      IT = 0\r\n      JB = NNO(L4+I)\r\n      IF (J .EQ. JB) GO TO 170\r\n      JK = L13 + LZ*(JB-1)\r\n      JS = L12 +  5*(JB-1)\r\n      IF (TGM(L5+J).GE.TGI(L6+JB) .OR. TGI(L6+J).LE.TGM(L5+JB))\r\n     1    GO TO 170\r\n      IF (RV(L7+J).LE.RVI(L8+JB) .OR. RVI(L8+J).GE.RV(L7+JB)) GO TO 170\r\n      IF (ZMI(L3+J) .GE. ZM(L2+JB)) GO TO 170\r\n      NV = XXX(5+JS)\r\n      IF (XXX(JS+3) .EQ. 0.) GO TO 170\r\n      IF (XXX(3+JT) .EQ. 0.) GO TO 165\r\n      NB = 5*NV\r\nC\r\nC\r\nC     TEST TO SEE IF ALL VERTICES LIE EITHER BEHIND OR IN FRONT OF\r\nC     THE GIVEN POLYGON.\r\nC\r\nC\r\n      M = 0\r\n      DO 145 IX = 1,NB,5\r\n      M = M + 1\r\n      A = CCC(IX+3+JK)\r\n      IF (CCC(IX+JK) .NE. 0.) GO TO 130\r\n      A =-CCC(IX+2+JK)\r\n      B = CCC(IX+3+JK)\r\n      GO TO 140\r\n  130 CONTINUE\r\n      B =-CCC(IX+2+JK) - CCC(IX+1+JK)*A\r\n  140 CONTINUE\r\n      XU(M) = A\r\n      YU(M) = B\r\n      VX  = XXX(4+JS)\r\n      VX1 = XXX(2+JS)*B\r\n      VX2 = XXX(1+JS)*A\r\n      ZS  =-(VX+VX1+VX2)/XXX(3+JS)\r\n      VX  = XXX(4+JT)\r\n      VX1 = XXX(2+JT)*B\r\n      VX2 = XXX(1+JT)*A\r\n      ZS1 =-(VX+VX1+VX2)/XXX(3+JT)\r\n      IF (ABS(ZS-ZS1) .LT. HXX) GO TO 145\r\n      IT = IT + 1\r\n      ICOUNT(IT) = 0\r\n      IF (ZS .GT. ZS1) ICOUNT(IT) = 1\r\n  145 CONTINUE\r\nC\r\nC\r\nC     TESTS FOR SEMI-RELEVANT PLANES.  THAT IS,NEGATIVE INDEXES\r\nC     INDICATE ELEMENT IS TO BE USED FOR VISIBILITY TEST, BUT NOT FOR\r\nC     INTERSECTION LINE DETERMINATION.\r\nC\r\nC\r\n      IF (IT .EQ. 0) GO TO 170\r\n      L = 0\r\n      DO 150 M = 1,IT\r\n  150 L = L + ICOUNT(M)\r\n      IF (L  .EQ.  0) GO TO 170\r\n      IF (L  .EQ. IT) JB = -JB\r\n      IF (II .NE.  0) GO TO 165\r\nC\r\nC\r\nC     INTERROGATE THE RELATIONSHIP OF THE CANDIDATE POLYGON TO THE\r\nC     GIVEN POLYGON BY DETERMINING IF THE PROJECTION OF ONE POLYGON\r\nC     CAN BE SEPARATED BY AN EDGE FROM THE OTHER'S PROJECTION\r\nC\r\nC\r\n      C3 = XXX(3+JT)\r\n      C4 = XXX(3+JS)\r\n      SD = 0\r\n      I3(1) = JK\r\n      I3(2) = JO\r\n      I2(1) = NV*5\r\n      I2(2) = NS*5\r\n      DO 164 KU = 1,2\r\n      IS = I3(KU)\r\n      IB = I2(KU)\r\n      DO 163 L = 1,IB,5\r\n  151 CONTINUE\r\n      IF (SD .EQ. 1.) GO TO 152\r\n      A = XXX(2+JT)*C4 - XXX(2+JS)*C3\r\n      B = XXX(1+JT)*C4 - XXX(1+JS)*C3\r\n      C = XXX(4+JT)*C4 - XXX(4+JS)*C3\r\n      GO TO 153\r\n  152 CONTINUE\r\n      A = CCC(L+IS  )\r\n      B = CCC(L+IS+1)\r\n      C = CCC(L+IS+2)\r\n  153 CONTINUE\r\n      IF (A.EQ.0. .AND. B.EQ.0.) GO TO 162\r\n      IF (A .NE. 0.) GO TO 154\r\n      A = 0\r\n      C = C/B\r\n      B = 1\r\n      GO TO 155\r\n  154 CONTINUE\r\n      B = B/A\r\n      C = C/A\r\n      A = 1\r\n  155 CONTINUE\r\n      M = 0\r\n      R1= 0\r\n      DO 158 IX = 1,NV\r\n      M = M + 1\r\n      YG= YU(M)\r\n      IF (A .NE. 0.) GO TO 156\r\n      DY = -C/B\r\n      YG = XU(M)\r\n      GO TO 157\r\n  156 CONTINUE\r\n      DY = -C - B*XU(M)\r\n  157 IF (ABS(DY-YG) .LT. HXX) GO TO 158\r\n      R = YG - DY\r\n      IF (R*R1 .LT. 0.) GO TO 162\r\n      R1 = R\r\n  158 CONTINUE\r\n      M  = 0\r\n      R2 = 0\r\n      DO 161 IX = 1,NS\r\n      M  = M + 1\r\n      YG = YE(M)\r\n      IF (A .NE. 0.) GO TO 159\r\n      DY = -C/B\r\n      YG = XE(M)\r\n      GO TO 160\r\n  159 CONTINUE\r\n      DY = -C - B*XE(M)\r\n  160 IF (ABS(DY-YG) .LT. HXX) GO TO 161\r\n      R  = YG - DY\r\n      IF (R*R2 .LT. 0.) GO TO 162\r\n      R2 = R\r\n  161 CONTINUE\r\n      IF (R1*R2 .LT. 0.) GO TO 170\r\n  162 CONTINUE\r\n      IF (SD .NE. 0.) GO TO 163\r\n      SD = 1\r\n      GO TO 151\r\n  163 CONTINUE\r\n  164 CONTINUE\r\n  165 CONTINUE\r\n      II = II + 1\r\n      NNO(L4+II) = JB\r\n  170 CONTINUE\r\n      JS  = 1\r\n      JAT =-4\r\n      JT  = L12 + (J-1)*5\r\n      NN  = XXX(JT+5)\r\n      VX  = XXX(JT+4)\r\n      VX1 = XXX(2+JT)\r\n      VX2 = XXX(1+JT)\r\n      VX3 = XXX(3+JT)\r\n      IF (IXR .LE. 2) GO TO 200\r\n      IF (II  .EQ. 0) GO TO 190\r\nC\r\nC     CALL SUBROUTINE WHICH SOLVES FOR THE LINES OF INTERSECTION,IF ANY,\r\nC     OF THE JTH ELEMENT WITH OTHER ELEMENTS.\r\nC\r\n      CALL HDSOLV(IXR,J,XXX,CCC,II,NNO,NIT,X21,Y21,Z21,IIA,NC,ZM,ZMI,LZ)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      DO 210 JM = 1,IXR\r\n      X21(JM) = COORD(JH  +JJ)\r\n      Y21(JM) = COORD(JH+1+JJ)\r\n      Z21(JM) = COORD(JH+2+JJ)\r\n      IIA(JM) = COORD(JH+3+JJ)\r\n      JH = JH + 4\r\n  210 CONTINUE\r\n      IXR = IXR + 3*NIT\r\n      IF (II   .EQ. 0) GO TO 220\r\n      IF (IXXX .NE. 1) GO TO 240\r\n  220 CONTINUE\r\n      DO 230 JM = 1,IXR\r\n      X1(2) = X21(JM)\r\n      Y1(2) = Y21(JM)\r\n      IM = IIA(JM)\r\n      CALL HDPLT (X1,Y1,IJ,IM)\r\n  230 CONTINUE\r\n      GO TO 390\r\n  240 CONTINUE\r\n      JX = 1\r\n  250 CONTINUE\r\nC\r\nC     PLOTS IF IIA(JX+1) IS EQUAL TO 1.\r\nC\r\n      IF (IIA(JX).EQ.0 .AND. IIA(JX+1).EQ.0) GO TO 260\r\n      IM    = IIA(JX+1)\r\n      X1(2) = X21(JX+1)\r\n      Y1(2) = Y21(JX+1)\r\n      CALL HDPLT (X1,Y1,IJ,IM)\r\n      JX = JX + 2\r\n      IF (JX .GE. IXR) GO TO 390\r\n      GO TO 250\r\n  260 CONTINUE\r\n      JAT = JAT + 5\r\n      ME  = 0\r\nC\r\nC     CALL SUBROUTINE WHICH DETERMINES THE POINTS OF INTERSECTIONS\r\nC     OF THE LINES OF THE JTH SET WITH THE RELEVANT LINES AND PLANES\r\nC     OF OTHER ELEMENTS.\r\nC\r\n      CALL HDCHK (XXX,CCC,NNO,II,XI,YI,NGX,ZM,ZMI,RV,RVI,TGM,TGI,ZI,LZ,\r\n     1            XCC)\r\n      IF (JS .NE. 1) STOP 'MY GOSH. JS IS NOT 1 /HDLIN'\r\n      NG = NGX(JS) + 2\r\n      XI(1)  = X21(JX)\r\n      YI(1)  = Y21(JX)\r\n      ZI(1)  = Z21(JX)\r\n      XI(NG) = X21(JX+1)\r\n      YI(NG) = Y21(JX+1)\r\n      ZI(NG) = Z21(JX+1)\r\n      IF (NG .LE. 3) GO TO 340\r\nC\r\nC     THE FOLLOWING CODE SORTS THE INTERSECTION POINTS IN ASCENDING\r\nC     ORDER OF OCCURENCE AND THEN SHRINKS THE LIST IF REDUNDANCY EXIST.\r\nC\r\n      NI  = NG - 2\r\n      NII = NI\r\n      DO 270 M = 1,NG\r\n      DI(M) = (XI(M)-XI(1))**2\r\n      PPPPP = (YI(M)-YI(1))**2\r\n      DI(M) = DI(M) + PPPPP\r\n  270 CONTINUE\r\n      DO 290 M = 2,NI\r\n      DO 280 MX= 2,NII\r\n      IF (DI(MX) .LE. DI(MX+1)) GO TO 280\r\n      HOLD   = DI(MX)\r\n      HOLD1  = XI(MX)\r\n      HOLD2  = YI(MX)\r\n      HOLD3  = ZI(MX)\r\n      XI(MX) = XI(MX+1)\r\n      YI(MX) = YI(MX+1)\r\n      ZI(MX) = ZI(MX+1)\r\n      DI(MX) = DI(MX+1)\r\n      DI(MX+1) = HOLD\r\n      XI(MX+1) = HOLD1\r\n      YI(MX+1) = HOLD2\r\n      ZI(MX+1) = HOLD3\r\n  280 CONTINUE\r\n      NII = NII - 1\r\n  290 CONTINUE\r\n      LX  = 1\r\n      NPX = NG\r\n  300 NPX = NPX - 1\r\n      I   = LX\r\n      DO 320 M = I,NPX\r\n      RX  = 0\r\n      T   = XI(M) - XI(M+1)\r\n      T1  = YI(M) - YI(M+1)\r\n      T   = (T**2+T1**2)**.5\r\n      IF (T .GT. HX1) GO TO 320\r\n      IX  = M\r\n      IX1 = NPX\r\n      DO 310 MX = IX,IX1\r\n      XI(MX) = XI(MX+1)\r\n      YI(MX) = YI(MX+1)\r\n      ZI(MX) = ZI(MX+1)\r\n  310 CONTINUE\r\n      RX = 1\r\n      LX = M\r\n      IF (LX .EQ. NPX) GO TO 330\r\n      GO TO 300\r\n  320 CONTINUE\r\n  330 CONTINUE\r\n      IF (RX .EQ. 1.) NPX = NPX - 1\r\n      NG = NPX + 1\r\n  340 CONTINUE\r\nC\r\nC     THIS CODE DETERMINES THE HDSTUS(VISIBILITY) OF EVERY OTHER POINT\r\nC     AS SUGGESTED BY THE THEOREM IN THE TECHNICAL REPORT.\r\nC\r\n      DO 350 L = 1,NG,2\r\nC\r\n      OJ  = XI(L)\r\n      TMJ = YI(L)\r\n      ZJ  = ZI(L)\r\n      CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC,\r\n     1             ZMI,CCC,LZ)\r\n      DI(L) = IM\r\n  350 CONTINUE\r\n      DO 370 L = 1,NG,2\r\n      IF (L .EQ. NG  ) GO TO 370\r\n      IF (L .EQ. NG-1) GO TO 360\r\n      C = DI(L) + DI(L+2)\r\n      IF (C .NE. 2.) GO TO 360\r\n      DI(L+1) = DI(L)\r\n      GO TO 370\r\n  360 OJ  = XI(L+1)\r\n      TMJ = YI(L+1)\r\n      ZJ  = ZI(L+1)\r\n      CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC,\r\n     1             ZMI,CCC,LZ)\r\n      DI(L+1) = IM\r\n  370 CONTINUE\r\nC\r\nC     THE FOLLOWING CODE ACTUALLY PLOTS THE POINTS ON A GIVEN LINE\r\nC     GOVERNED BY THE VALUE(IM) RETURNED BY HDSTUS SUBROUTINE.\r\nC     1 MEANS INVISIBLE,...0 MEANS VISIBLE.\r\nC\r\n      DO 380 L = 1,NG\r\n      X1(2) = XI(L)\r\n      Y1(2) = YI(L)\r\n      IM = DI(L)\r\n      CALL HDPLT (X1,Y1,IJ,IM)\r\n      IF (L .EQ. NG) GO TO 380\r\n      C = DI(L) + DI(L+1)\r\n      IF (C .GT. 0.) GO TO 380\r\n      H(8) = 1\r\n      OJ   = (XI(L)+XI(L+1))/2\r\n      TMJ  = (YI(L)+YI(L+1))/2\r\n      ZJ   = (ZI(L)+ZI(L+1))/2\r\n      CALL HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,ZJ,NC,\r\n     1             ZMI,CCC,LZ)\r\n      H(8) = 0\r\n      X1(2)= OJ\r\n      Y1(2)= TMJ\r\n      CALL HDPLT (X1,Y1,IJ,IM)\r\n  380 CONTINUE\r\n      JX = JX + 1\r\n      GO TO 250\r\n  390 CONTINUE\r\nC\r\nC     DECREMENTS THE COUNT OF THE NUMBER OF LINES IN THE JTH SET\r\nC     SINCE THE LINES OF INTERSECTIONS WERE ADDED TO THIS ELEMENT\r\nC     BY THE SUBROUTINE SOLVE.\r\nC\r\n      XXX(5+JT) = XXX(5+JT) - NIT\r\n  395 CONTINUE\r\n  400 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdplot.f",
    "content": "      SUBROUTINE HDPLOT (GPLST,NMAX,MAXSF,IOPCOR,IB)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         DEBUG\r\n      INTEGER         GPLST(1),NAME(2),ISYS(100),PTRS(29)\r\n      REAL            DV,PSI,PHI,THETA,SCF,P,X(20),Y(20),Z(20)\r\n      COMMON /BLANK / NGP,NSIL,NSETS,SKP1(7),\r\n     1                SKP2(2),ELSET,SKP22(7),\r\n     2                MERR,IDUM(3),NSCR1,NSCR2,NSCR3\r\n      COMMON /SYSTEM/ SKPS,IOUT\r\n      COMMON /PLTSCR/ NNN,G(3)\r\n      COMMON /HDREC / NOFSUR,NS,ELID,LID,NPERS,P(3,13)\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT,\r\n     1                ZCOEF1,ZCOEF,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE,\r\n     2                XU,YU,XI,YI,ZI,DI,IBEG,IEND,ICT,ICCT,WORK\r\n      COMMON /HDSC  / SCF,PSI,PHI,THETA,MNE,DV,MNP,ICORE\r\n      COMMON /PLOTHD/ USED\r\n      EQUIVALENCE     (ISYS(1),SKPS), (PTRS(1),XDUM)\r\n      DATA    NAME  / 4HHDPL,4HOT  /\r\n      DATA    DEBUG / .FALSE.      /\r\nC\r\nC     CALL SSWTCH (47,J)\r\nC     IF (J .EQ. 1) DEBUG = .TRUE.\r\nC\r\nC     SET MNE EQUAL TO THE MAXIMUM NUMBER OF EDGES IN ANY ONE POLYGON.\r\nC\r\n      MNE = NMAX\r\nC\r\nC     MNP=MNE+2+2*NHOLES   WHERE NHOLES IS THE NUMBER OF HOLES,IF ANY\r\nC\r\n      NHOLES = 0\r\n      MNP = MNE + 2 + 2*NHOLES\r\nC\r\nC     SET DISTANCE FROM VIEWER, AND SET SCALING FACTOR = 1 UNITS/INCH\r\nC\r\n      DV  = 99999.\r\n      SCF = 1.00\r\nC\r\nC     SET MAX. LINES OF INTERSECTION ALLOWED IN HDSOLV (DIMEN. OF XCC)\r\nC\r\n      LINTC = 800\r\n      IF (ISYS(85) .NE. 0) LINTC = ISYS(85)\r\nC\r\nC     DEFINE EULERIAN ANGLES IN DEGREES.\r\nC\r\n      PSI = 0.\r\n      PHI = 0.\r\n      THETA = 0.\r\nC\r\nC     INITIALIZE ARRAY POINTERS IN OPEN CORE SPACE (USED, SET BY PLOT,\r\nC     IS NO. OF WORDS ALREADY IN USE)\r\nC\r\n      XDUM  = 1\r\n      XCC   = XDUM  + USED\r\n      XASOLV= XCC   + LINTC\r\n      YASOLV= XASOLV+ 50\r\n      ZASOLV= YASOLV+ 50\r\n      X1SKT = ZASOLV+ 50\r\n      Y1SKT = X1SKT + 160\r\n      Z1SKT = Y1SKT + 160\r\n      ZCOEF1= Z1SKT + 160\r\n      ZCOEF = ZCOEF1+ 150\r\n      ICOUNT= ZCOEF + 150\r\n      IRCT  = ICOUNT+ 150\r\n      X21   = IRCT  + 100\r\n      Y21   = X21   + 200\r\n      Z21   = Y21   + 200\r\n      IIA   = Z21   + 200\r\n      XE    = IIA   + 200\r\n      YE    = XE    + 150\r\n      XU    = YE    + 150\r\n      YU    = XU    + 150\r\n      IBEG  = YU    + 150\r\n      IEND  = IBEG  + 100\r\n      ICT   = IEND  + 100\r\n      ICCT  = ICT   + 100\r\n      XI    = ICCT  + 100\r\n      ICORE = (25+5*MNE+4*MNP)*(MAXSF+1)\r\n      J     = (IOPCOR-ICORE-XI)/5\r\n      YI    = XI    + J\r\n      ZI    = YI    + J\r\n      DI    = ZI    + J\r\n      WORK  = DI    + J\r\n      IF (DEBUG .OR. J.LT.300) WRITE (IOUT,55) NMAX,MAXSF,ICORE,USED,\r\n     1                         LINTC,IOPCOR,IB,NSETS,J,PTRS\r\n      IF (J .GE. 300) GO TO 5\r\n      J = 300*5 + XI + ICORE - IOPCOR\r\n      CALL MESAGE (-8,J,NAME)\r\nC\r\n    5 CALL GOPEN (NSCR2,GPLST(IB),0)\r\n      CALL LINE (0.,0.,0.,0.,1,-1)\r\n   10 CONTINUE\r\n      CALL READ (*25,*25,NSCR2,NOFSUR,44,0,M)\r\n      NPS = NPERS\r\n      DO 20 I = 1,NPS\r\n      X(I) = P(1,I)\r\n      Y(I) = P(2,I)\r\n      Z(I) = P(3,I)\r\n   20 CONTINUE\r\n      IF (DEBUG) WRITE (IOUT,65)\r\n     1           NOFSUR,NS,ELID,LID,NPS,(X(N),Y(N),Z(N),N=1,NPS)\r\n      NC = 0\r\n      CALL HDSKET (X,Y,Z,NPS,NC)\r\n      GO TO 10\r\n   25 CALL CLOSE (NSCR2,1)\r\n      NC = 1\r\n      CALL HDSKET (X,Y,Z,NPS,NC)\r\n      IF (NC .EQ. 0) GO TO 40\r\n      WRITE  (IOUT,30) NC,ICORE,DV\r\n   30 FORMAT (22H CODE FOR HIDDEN ERROR,I3,6H ICORE,I9,3H DV,F15.5)\r\n   40 CALL LINE (0.,0.,0.,0.,1,+1)\r\n      IF (DEBUG) WRITE (IOUT,60)\r\n      RETURN\r\nC\r\n   55 FORMAT (1X,10HIN HDPLOT ,9I8, /,(5X,15I8))\r\n   60 FORMAT (1X,10HOUT HDPLOT)\r\n   65 FORMAT (1X,5I10/(1X,3G20.4))\r\n      END\r\n"
  },
  {
    "path": "mis/hdplt.f",
    "content": "      SUBROUTINE HDPLT (X1,Y1,IJ,IM)\r\nC\r\nC     PLOTS POINTS GOVERNED BY THE VALUE OF IM.\r\nC\r\nC     NOTE THAT CALL PLOT(X,Y,2) MEANS MOVE PEN FROM THE CURRENT\r\nC     POSITION TO THE POINT,(X,Y),WITH THE PEN DOWN.\r\nC\r\nC     CALL PLOT(X,Y,3) MEANS MOVE THE PEN FROM THE CURRENT POSITION\r\nC     TO THE POINT,(X,Y), WITH THE PEN UP.\r\nC\r\n      LOGICAL         DEBUG\r\n      INTEGER         PPEN\r\n      DIMENSION       X1(4),Y1(4)\r\n      COMMON /DRWDAT/ DUM(3),PPEN\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    DEBUG / .FALSE./\r\nC\r\n      IF (DEBUG) WRITE (NOUT,1000)IJ,IM,(X1(I),I=1,4),(Y1(J),J=1,4)\r\n 1000 FORMAT (7H HDPLT ,2I3,8F12.5)\r\n      IF (IM .EQ. 1) GO TO 20\r\n      XVALUE = (X1(2))/X1(4)\r\n      YVALUE = (Y1(2))/Y1(4)\r\n      IF (IJ .EQ. 0) GO TO 10\r\n      CALL LINE (XOLD,YOLD,XVALUE,YVALUE,PPEN,0)\r\n      XOLD = XVALUE\r\n      YOLD = YVALUE\r\n      GO TO 30\r\n   10 CONTINUE\r\n      XOLD = XVALUE\r\n      YOLD = YVALUE\r\n      IJ = 1\r\n      GO TO 30\r\n   20 CONTINUE\r\n      IJ = 0\r\n   30 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdsket.f",
    "content": "      SUBROUTINE HDSKET (X,Y,Z,NP,NC)\r\nC\r\nC     THIS SUBROUTINE SETS UP PEN MOTION INDICATORS.\r\nC\r\n      INTEGER         XCC,X1SKT,Y1SKT,Z1SKT,X21,Y21,Z21,XE,YE,XU,YU,\r\n     1                XI,YI,ZI,DI,W,IZ(1)\r\n      DIMENSION       X(1),Y(1),Z(1)\r\n      COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV,X1SKT,Y1SKT,Z1SKT,\r\n     1                ZCOEF1,ZCOEF,ICOUNT,IRCT,X21,Y21,Z21,IIA,XE,YE,\r\n     2                XU,YU,XI,YI,ZI,DI,IBEG,IEND,ICT,ICCT,W\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /HDSC  / SCX,YAW,ROL,PIT,LZ,VP,JJJ,ICORE\r\n      EQUIVALENCE     (IZ(1),RZ(1))\r\nC\r\n      L   = NP\r\n      LI  = NP\r\n      IF (L .LE. 2) GO TO 50\r\n      LX  = 1\r\n      NPX = NP\r\n    1 NPX = NPX-1\r\n      I   = LX\r\n      DO 8 M = I,NPX\r\n      RX = 0\r\n      A  = X(M+1) - X(M)\r\n      B  = Y(M+1) - Y(M)\r\n      C  = Z(M+1) - Z(M)\r\n      IF (A .NE. 0.) GO TO 8\r\n      IF (B .NE. 0.) GO TO 8\r\n      IF (C .NE. 0.) GO TO 8\r\n      IX = M\r\n      IX1SKT = NPX\r\n      DO 4 MX = IX,IX1SKT\r\n      X(MX) = X(MX+1)\r\n      Y(MX) = Y(MX+1)\r\n      Z(MX) = Z(MX+1)\r\n    4 CONTINUE\r\n      RX = 1\r\n      LX = M\r\n      IF (LX .EQ. NPX) GO TO 10\r\n      GO TO 1\r\n    8 CONTINUE\r\n   10 CONTINUE\r\n      IF (RX .EQ. 1.) NPX = NPX - 1\r\n      NP = NPX + 1\r\n      LI = NP\r\n      IF (NP .LE. 2) GO TO 50\r\n      IX = 0\r\n      M1 = 0\r\n      M  = 1\r\n      IS = NP - 1\r\n   20 CONTINUE\r\n      M  = M  + IX\r\n      M1 = M1 + IX + 1\r\n      IF (M-1 .EQ. LI) GO TO 70\r\nC\r\nC     SEARCH FOR MATCHING COORDINATES.\r\nC\r\n      DO 40 J = M,IS\r\n      T = X(J+1) - X(M)\r\n      U = Z(J+1) - Z(M)\r\n      V = Y(J+1) - Y(M)\r\n      IF (T .NE. 0.) GO TO 40\r\n      IF (V .NE. 0.) GO TO 40\r\n      IF (U .NE. 0.) GO TO 40\r\n      NP = NP + 1\r\nC\r\nC     MATCH FOUND.....STORE COORDINATES AND SET SWITCH TO LIFT PEN\r\nC     AND/OR END SET.\r\nC\r\n      IX = J + 2 - M\r\n      IX1SKT = J - IS + 1\r\n      DO 30 IK = 1,IX\r\n      RZ(X1SKT+M1-2+IK) = X(M-1+IK)\r\n      RZ(Y1SKT+M1-2+IK) = Y(M-1+IK)\r\n      RZ(Z1SKT+M1-2+IK) = Z(M-1+IK)\r\n   30 CONTINUE\r\n      RZ(Z1SKT-1+M1+IX) = -ISIGN(1,IX1SKT)*9999.\r\n      GO TO 20\r\n   40 CONTINUE\r\n   50 CONTINUE\r\n      DO 60 J = 1,LI\r\n      RZ(X1SKT-1+J) = X(J)\r\n      RZ(Y1SKT-1+J) = Y(J)\r\n      RZ(Z1SKT-1+J) = Z(J)\r\n   60 CONTINUE\r\n      NP = NP + 1\r\n      RZ(Z1SKT-1+NP) = -9999.\r\n   70 CONTINUE\r\n      CALL HDLIN (RZ(X1SKT),RZ(Y1SKT),RZ(Z1SKT),NP,NC,\r\n     1     RZ(XCC),IZ(ICOUNT),IZ(IRCT),RZ(X21),RZ(Y21),RZ(Z21),\r\n     2     IZ(IIA),RZ(XE),RZ(YE),RZ(XU),RZ(YU),RZ(XI),RZ(YI),RZ(ZI),\r\n     3     RZ(DI),IZ(IBEG),IZ(IEND),IZ(ICT),IZ(ICCT),\r\n     4     IZ(W),IZ(W),RZ(W),RZ(W),IZ(W),IZ(W),IZ(W),RZ(W),RZ(W),RZ(W),\r\n     5     RZ(W),RZ(W),RZ(W),RZ(W),IZ(W),IZ(W),RZ(W),RZ(W),RZ(W),RZ(W),\r\n     6     IZ(W),IZ(W))\r\n      NP = L\r\nC\r\nC     RESET VALUE FOR MAXIMUM NUMBER OF EDGES IF ARGUMENT IS COMPLETED.\r\nC\r\n      IF (VP .GT. 0.) LZ = LZ/5\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdsolv.f",
    "content": "      SUBROUTINE HDSOLV (IXR,J,XXX,CCC,II,NNO,NIT,X21,Y21,Z21,IIA,NC,\r\n     1                   ZM,ZMI,LZ)\r\nC\r\nC     THIS SUBROUTINE SOLVES FOR THE LINES OF INTERSECTION RESULTING\r\nC     FROM THE INTERSECTIONS OF THE JTH ELEMENT WITH THE OTHER\r\nC     RELEVANT ELEMENTS.\r\nC\r\nC\r\nC\r\n      INTEGER         XCC,XASOLV,YASOLV,ZASOLV\r\n      DIMENSION       XXX(1),CCC(1),NNO(1),ZM(1),ZMI(1),\r\n     1                X21(1),Y21(1),Z21(1),IIA(1),IV(2)\r\n      COMMON /HDPTRS/ XDUM,XCC,XASOLV,YASOLV,ZASOLV\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /GO3   / L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,\r\n     1                L11,L12,L13\r\nC\r\n      ERS = .015\r\n      ER  =  ERS\r\n      EXX = .015\r\n      EXP = .015\r\n      JT  = L12 + (J-1)*5\r\n      JB  = L13 + (J-1)*LZ\r\n      IF (II .EQ. 0) GO TO 80\r\n      A3 = XXX(1+JT)\r\n      B3 = XXX(2+JT)\r\n      C3 = XXX(3+JT)\r\n      D3 = XXX(4+JT)\r\n      IF (XXX(JT+3) .EQ. 0.) GO TO 80\r\n      DO 70 L = 1,II\r\n      K  = NNO(L4+L)\r\nC\r\nC     CHECKS TO SEE IF THIS RELEVANT ELEMENT IS TO BE CONSIDERED FOR\r\nC     INTERSECTION\r\nC\r\n      IF (K .GT. 0) GO TO 9\r\n      GO TO 70\r\n    9 CONTINUE\r\n      IF (K .LT. J) GO TO 70\r\n      JX = L12 + (K-1)*5\r\n      IF (ZM(L2+J) .LT. ZMI(L3+K)) GO TO 70\r\n      IF (ABS(XXX(3+JX)) .LT. ERS) GO TO 70\r\n      MT = 0\r\n      A4 = XXX(1+JX)\r\n      B4 = XXX(2+JX)\r\n      C4 = XXX(3+JX)\r\n      D4 = XXX(4+JX)\r\nC\r\nC     DETERMINES THE EQUATION OF LINE OF INTERSECTION.\r\nC\r\n      B = A3*C4 - A4*C3\r\n      A = B3*C4 - B4*C3\r\n      C = D3*C4 - D4*C3\r\n      IF (A.EQ.0. .AND. B.EQ.0.) GO TO 70\r\n      IF (A .NE. 0.) GO TO 10\r\n      A = 0\r\n      C = C/B\r\n      B = 1\r\n      GO TO 20\r\n   10 CONTINUE\r\n      B = B/A\r\n      C = C/A\r\n      A = 1\r\n   20 CONTINUE\r\n      IV(1) = J\r\n      IV(2) = K\r\n      DO 60 M = 1,2\r\n      JV = 1\r\n      I  = IV(M)\r\n      JJ = L13 + (I-1)*LZ\r\n      IG = L12 + (I-1)*5 + 5\r\n      NK = XXX(IG)\r\n      DO 50 IX = 1,NK\r\n      A1 = CCC(JV+  JJ)\r\n      B1 = CCC(JV+1+JJ)\r\n      C1 = CCC(JV+2+JJ)\r\nC\r\nC     CHECK TO BE SURE LINE OF INTERSECTION IS NOT BOUNDARY LINE\r\nC     OF THE JTH SET.\r\nC\r\n      S  = A1 + B1 + C1\r\n      S1 = A  + B  + C\r\n      E  = ABS(S-S1)\r\n      S  = A1*50 + B1*50 + C1\r\n      S1 = A *50 + B *50 + C\r\n      F  = ABS(S-S1)\r\n      IF (F.LT.EXP .AND. E.LT.EXP) GO TO 70\r\nC\r\nC\r\nC     DETERMINES THE POINTS OF INTERSECTIONS OF THE LINE OF INTERSECTION\r\nC     WITH OTHER LINES OF RELEVANT ELEMENTS.\r\nC\r\nC\r\n      T = A1*B - B1*A\r\n      IF (ABS(T) .LT. ER) GO TO 50\r\n      XO = (C1*A-C*A1)/T\r\n      IF (A .NE. 0.) GO TO 30\r\n      YO = -C1 - B1*XO\r\n      GO TO 40\r\n   30 CONTINUE\r\n      YO = -C - B*XO\r\n   40 CONTINUE\r\n      T = XO\r\n      IF (A1 .EQ. 0.) T = YO\r\n      S  = T - CCC(JV+4+JJ)\r\n      S1 = T - CCC(JV+3+JJ)\r\n      IF (S*S1 .GT. 0.) GO TO 50\r\n      MT = MT + 1\r\nC\r\nC     STORE THE PTS OF INTERSECTIONS.\r\nC\r\n      RZ(XASOLV-1+MT) = XO\r\n      RZ(YASOLV-1+MT) = YO\r\n      RZ(ZASOLV-1+MT) =-(D3+A3*XO+B3*YO)/C3\r\n      ZT = -(D4+A4*XO+B4*YO)/C4\r\n      IF (ABS(ZT-RZ(ZASOLV-1+MT)) .GT. EXX) GO TO 70\r\n   50 JV = JV + 5\r\n   60 CONTINUE\r\n      CALL HDSTAT (MT,NIT,IXR,X21,Y21,Z21,IIA,IV,A,B,C,J,\r\n     1             RZ(XASOLV),RZ(YASOLV),RZ(ZASOLV),CCC,XXX,LZ)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      NR = 5*XXX(5+JT)\r\n      DO 90 IS = 1,NR\r\n      RZ(XCC-1+IS) = CCC(IS+JB)\r\n   90 CONTINUE\r\n      XXX(5+JT) = XXX(5+JT) + NIT\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdstat.f",
    "content": "      SUBROUTINE HDSTAT(MT,NIT,IXR,X21,Y21,Z21,IIA,IV,A,B,C,\r\n     1            IK,XA,YA,ZA,CCC,XXX,LZ)\r\nC\r\nC\r\nC     THIS SUBROUTINE TAKES THE PTS OF INTERSECTION DETERMINED BY\r\nC     SUBROUTINE SOLVE AND PICKS THE COORDINATES WITH THE MAX AND\r\nC     MIN X COORDINATES PROVIDED THEY LIE ON THE INTERIOR/BOUNDARY\r\nC     OF BOTH ELEMENTS.\r\nC\r\nC\r\n      INTEGER       XCC\r\n      DIMENSION     XXX(1),CCC(1),X21(1),Y21(1),Z21(1),\r\n     1              IIA(1),IV(1),XA(1),YA(1),ZA(1)\r\n      COMMON/HDPTRS/XDUM,XCC\r\n      COMMON/ZZZZZZ/RZ(1)\r\n      COMMON/GO3/L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13\r\nC\r\n      EXX=.015\r\n      NX=0\r\n      IF(MT.EQ.0)GO TO 160\r\n      DO 50 JX=1,MT\r\n      EI=0\r\n   10 EI=EI+.1\r\n      IF(EI .GE. 1.) GO TO 160\r\n      D=EI*XA(JX)-YA(JX)\r\n      DO 40 JO=1,2\r\n      M=IV(JO)\r\n      JC=L13+(M-1)*LZ\r\n      JXC=L12+(M-1)*5\r\n      NK=XXX(5+JXC)\r\n      I=0\r\n      IB=NK*5\r\nC\r\nC\r\nC     DETERMINE IF THE PROJECTION OF THE POINT OF INTERSECTION\r\nC     BELONGS TO THE INTERIOR OF BOTH PLANES.\r\nC\r\nC\r\n      DO 30 J=1,IB,5\r\n      EXX=.015\r\n      NSUB=J+1+JC\r\n      IF(ABS(CCC(NSUB)).GE.100.)EXX=ALOG10(ABS(CCC(NSUB)))\r\n      VE=XA(JX)\r\n      IF(CCC(J+JC).EQ.0.)VE=YA(JX)\r\n      S=VE-CCC(J+3+JC)\r\n      S1=VE-CCC(J+4+JC)\r\n      T=CCC(J+JC)*YA(JX)+CCC(J+1+JC)*XA(JX)+CCC(J+2+JC)\r\n      IF((ABS(T).LT.EXX).AND.(S*S1.LE.0.))GO TO 40\r\n      T=-CCC(J+2+JC)+CCC(J+JC)*D\r\n      R=EI*CCC(J+JC)+CCC(J+1+JC)\r\n      IF(R.EQ.0.)GO TO 30\r\n      T=T/R\r\n      IF(T.LT.XA(JX))GO TO 30\r\n      IF(CCC(J+JC).NE.0.)GO TO 20\r\n      T=EI*T-D\r\n   20 CONTINUE\r\n      IF((T.EQ.CCC(J+3+JC)).OR.(T.EQ.CCC(J+4+JC)))GO TO 10\r\n      S=T-CCC(J+3+JC)\r\n      S1=T-CCC(J+4+JC)\r\n      IF(S*S1.GT.0.)GO TO 30\r\n      I=I+1\r\n   30 CONTINUE\r\n      IF(MOD(I,2).EQ.0)GO TO 50\r\n   40 CONTINUE\r\n      NX=NX+1\r\n      XA(NX)=XA(JX)\r\n      YA(NX)=YA(JX)\r\n      ZA(NX)=ZA(JX)\r\n   50 CONTINUE\r\n      IF(NX.EQ.0)GO TO 160\r\nC\r\nC\r\nC\r\nC     THIS CODE FINDS THE MAX/MIN X-COORDINATES(Y-COORDINATES) AND\r\nC     STORES THEM. FUTHERMORE BOTH THE EQUATION OF LINE AND POINTS(2)\r\nC     ARE TREATED LIKE ADDITIONAL EDGES. IN THIS WAY, THE ALGORITHM NEED\r\nC     NOT BE DISTURBED. ESSENTIALLY,THEN,THIS TRICK IS TRANSPARENT TO\r\nC     THE REST OF THE PROGRAM.\r\nC\r\nC\r\n      AMAXX=-(10**6)\r\n      AMINX=-AMAXX\r\n      AMAXY=AMAXX\r\n      AMINY=AMINX\r\n      IS=5+(IK-1)*5+L12\r\n      IS=XXX(IS)\r\n      DO 110 JI=1,NX\r\n      IF(A.EQ.0.)GO TO 80\r\n      IF(XA(JI).GE.AMINX)GO TO 60\r\n      AMINX=XA(JI)\r\n      YI=YA(JI)\r\n      ZI=ZA(JI)\r\n   60 IF(XA(JI).LE.AMAXX)GO TO 70\r\n      AMAXX=XA(JI)\r\n      YII=YA(JI)\r\n      ZII=ZA(JI)\r\n   70 CONTINUE\r\n      GO TO 110\r\n   80 CONTINUE\r\n      IF(YA(JI).GE.AMINY)GO TO 90\r\n      AMINY=YA(JI)\r\n      XI=XA(JI)\r\n      ZI=ZA(JI)\r\n   90 CONTINUE\r\n      IF(YA(JI).LE.AMAXY)GO TO 100\r\n      XII=XA(JI)\r\n      AMAXY=YA(JI)\r\n      ZII=ZA(JI)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      NIT=NIT+1\r\n      K=5*(NIT-1+IS)+1\r\n      RZ(XCC+K-1)=A\r\n      RZ(XCC+K  )=B\r\n      RZ(XCC+K+1)=C\r\n      IF (A.EQ.0.) GO TO 120\r\n      RZ(XCC+K+2)=AMINX\r\n      RZ(XCC+K+3)=AMAXX\r\n      AMIN=AMINX\r\n      AMAX=AMAXX\r\n      YE=YII\r\n      ZE=ZII\r\n      GO TO 130\r\n  120 CONTINUE\r\n      RZ(XCC+K+2)=AMINY\r\n      RZ(XCC+K+3)=AMAXY\r\n      AMIN=XI\r\n      AMAX=XII\r\n      YI=AMINY\r\n      YE=AMAXY\r\n      ZE=ZII\r\n  130 CONTINUE\r\n      IG=IXR+NIT*3\r\n      X21(IG-2)=AMIN\r\n      Y21(IG-2)=YI\r\n      Z21(IG-2)=ZI\r\n      DO 140 JK=1,2\r\n      IE=IG-JK+1\r\n      X21(IE)=AMAX\r\n      Y21(IE)=YE\r\n      Z21(IE)=ZE\r\n  140 CONTINUE\r\n      DO 150 JK=1,2\r\n      IIA(IG-JK)=0\r\n  150 CONTINUE\r\n      IIA(IG)=1\r\n      TX=(AMAX-AMIN)**2\r\n      TY=(YE-YI)**2\r\n      DX=(TX+TY)**.5\r\n      IF(DX.LT..001)NIT=NIT-1\r\n  160 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdstus.f",
    "content": "      SUBROUTINE HDSTUS (OJ,TMJ,XXX,TGM,RV,RVI,TGI,ZM,NNO,II,H,IM,JXT,\r\n     1                   ZJ,NC,ZMI,CCC,LZ)\r\nC\r\nC     THIS SUBROUTINE DETERMINES THE VISIBILITY OF AN ARBITRARY POINT\r\nC     BY DRAWING A LINE FROM THE POINT IN QUESTION TO INFINITY AND\r\nC     COUNTING THE NUMBER OF TIMES IT CROSSES THE BOUNDARIES OF A\r\nC     RELEVANT ELEMENT.\r\nC\r\n      DIMENSION    CCC(1),XXX(1),ZMI(1),TGM(1),RV(1),RVI(1),TGI(1),\r\n     1             ZM(1),NNO(1),H(8)\r\n      COMMON /GO3/ L0,L1,L00,L01,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13\r\nC\r\n      GGK = .015\r\n      EI  = 0\r\n      IM  = 0\r\n   10 CONTINUE\r\n      IF (EI .GE. 1.) GO TO 70\r\n      EI  = EI + .2\r\n      D   = EI*OJ - TMJ\r\n      DO 60 JO = 1,II\r\n      GGK = .015\r\n      I   = 0\r\n      JG  = NNO(L4+JO)\r\n      JS  = L13 + (JG-1)*LZ\r\n      JT  = L12 + (JG-1)*5\r\nC\r\nC     PRELIMINARY CHECK TO SEE IF THE POINT IS OUTSIDE THE BOUNDARY\r\nC     BOXES IN THE X,Y,Z DIMENSIONS.\r\nC\r\n      IF (TMJ.GE.RV(L7+JG) .OR. TMJ.LE.RVI(L8+JG)) GO TO 60\r\n      IF (OJ.GE.TGI(L6+JG) .OR. OJ.LE.TGM(L5+JG) ) GO TO 60\r\n      IF (ZJ .GE. ZM(L2+JG)) GO TO 60\r\n      VX  = XXX(4+JT)\r\n      VX1 = XXX(2+JT)*TMJ\r\n      VX2 = XXX(1+JT)*OJ\r\n      ZS  =-(VX+VX1+VX2)/XXX(3+JT)\r\n      IF (ABS(ZJ-ZS) .LT. GGK) GO TO 60\r\n      IF (ZJ .GE. ZS) GO TO 60\r\n      NS  = XXX(5+JT)\r\n      IB  = NS*5\r\n      IF (H(8) .EQ. 1.) GO TO 25\r\n      DO 20 J = 1,IB,5\r\n      GGK = .015\r\n      NSUB= J + 1 + JS\r\n      IF (ABS(CCC(NSUB)) .GE. 100.) GGK = ALOG10(ABS(CCC(NSUB)))\r\n      VE  = OJ\r\n      IF (CCC(J+JS) .EQ. 0.) VE = TMJ\r\n      S   = VE - CCC(J+3+JS)\r\n      S1  = VE - CCC(J+4+JS)\r\n      YG  = TMJ\r\n      IF (CCC(J+JS) .NE. 0.) GO TO 15\r\n      DY  =-CCC(J+2+JS)/CCC(J+1+JS)\r\n      YG  = OJ\r\n      GO TO 16\r\n   15 CONTINUE\r\n      DY  =-CCC(J+2+JS) - CCC(J+1+JS)*OJ\r\n   16 CONTINUE\r\n      IF (ABS(YG-DY).LT.GGK .AND. S*S1.LE.0.) GO TO 60\r\n   20 CONTINUE\r\n   25 CONTINUE\r\nC\r\nC     THE FOLLOWING CODE COUNTS THE INTERSECTIONS OF BOUNDARIES\r\nC     OF A GIVEN ELEMENT WITH THE INFINITE LINE AND CHECKS,IF INSIDE\r\nC     OF THE BOUNDARY, WHETHER OR NOT THE POINT IS BEHIND OR IN FRONT\r\nC     OF THE ELEMENT.\r\nC\r\n      DO 40 J = 1,IB,5\r\n      T  =-CCC(J+2+JS)  + CCC(J+JS)*D\r\n      R  = EI*CCC(J+JS) + CCC(J+1+JS)\r\n      IF (R .EQ. 0.) GO TO 40\r\n      T  = T/R\r\n      IF (T .LT. OJ) GO TO 40\r\n      IF (CCC(J+JS) .NE. 0.) GO TO 30\r\n      T  = EI*T - D\r\n   30 CONTINUE\r\n      S  = T - CCC(J+3+JS)\r\n      S1 = T - CCC(J+4+JS)\r\n      IF (S.EQ.0. .OR. S1.EQ.0.) GO TO 10\r\n      IF (S*S1 .GE. 0.) GO TO 40\r\n      I  = I + 1\r\n   40 CONTINUE\r\n      IF (MOD(I,2) .EQ. 0) GO TO 60\r\n      IM = 1\r\n      GO TO 70\r\n   60 CONTINUE\r\n      IM = 0\r\n   70 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hdsurf.f",
    "content": "      SUBROUTINE HDSURF (GPLST,X,U,PEN,DEFORM,NMAX,MAXSF,IZ,IB,PEDGE,\r\n     1                   IOPCOR)\r\nC\r\nC     THIS ROUTINE PREPARES THE ELEMENT SURFACES FOR HIDDEN LINE PLOT\r\nC     IT ALSO GENERATES THE SHRINK PLOT IF SHRINK ALONE IS REQUESTED.\r\nC     IF SHRINK AND HIDDEN ARE REQUESTED, THIS ROUTINE WILL PREPARE THE\r\nC     SHRUNK SURFACES FOR HDPLOT.\r\nC\r\nC     REVISED  10/1990 BY G.CHAN/UNISYS\r\nC     (1) HIDDEN PLOT WITH SOLID ELEMENTS BUGS\r\nC     (2) HIDDEN AND SHRINK TOGETHER\r\nC     (3) SKIP ANY OFFSET DATA IN ELSET FILE IF THEY ARE PRESENT\r\nC\r\n      LOGICAL         SHRINK,HIDDEN\r\n      INTEGER         GPLST(1),PEN,DEFORM,PEDGE,ETYP,G,NAME(2),GP,ELID,\r\n     1                ELSET,IZ(14,1),M1(16),LDX(9),FILE,SOLID,TEMP(27),\r\n     2                OFFSET\r\n      REAL            X(3,1),U(2,1)\r\n      COMMON /BLANK / NGP,SKP11(11),ELSET,SKP22(7),MERR,IDUM(3),NSCR1,\r\n     1                NSCR2,NSCR3\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      COMMON /PLTSCR/ NNN,G(3)\r\n      COMMON /HDREC / NOFSUR,NS,ELID,LID,NPERS,P(3,13)\r\nC\r\nC     DIMENSIONS      TEMP, IZ, AND P ARE TEMP(2*N+1), IZ(N+1,1), AND\r\nC                     P(3,N) WHERE N=LETSZ2=MAX OF LETSZ(2,I), I=1,9\r\nC\r\n      DIMENSION       LET1(5),LET2(4,4),LET3(5,5),LET4(5,6),LET5(9,6),\r\n     1                LET6(13,6),LET7(5),LET8(7),LET9(9),LET(229),\r\n     2                LETSZ(3,9)\r\n      EQUIVALENCE     (LET(  1),LET1(  1)), (LET(  6),LET2(1,1)),\r\n     1                (LET( 22),LET3(1,1)), (LET( 47),LET4(1,1)),\r\n     2                (LET( 77),LET5(1,1)), (LET(131),LET6(1,1)),\r\n     3                (LET(209),LET7(  1)), (LET(214),LET8(  1)),\r\n     4                (LET(221),LET9(  1))\r\nC\r\n      DATA    NAME  / 4HHDSU, 4HRF   / ,\r\n     1        NM1,M1/ 16,4H(33X, 4H,13H, 4HELEM, 4HENT , 4HTYPE, 4H A5,,\r\n     2        4H4HWI, 4HTHI8, 4H,24H, 4H GRI, 4HDS S, 4HKIPP, 4HED I,\r\n     3        4HN LI, 4HNEL., 4H)    /\r\nC\r\nC     SPECIAL ELEMENT CONNECTION PATTERNS\r\nC\r\n      DATA    LDX   / 2HD1,2HD2,2HD3,2HD4,2HD5,2HD6,2HD7,2HD8,2HD9  /\r\n      DATA    KTET  / 2HTE /,   KWEG  / 2HWG /,    KHX1  / 2HH1 /,\r\n     1        KHX2  / 2HH2 /,   KIX1  / 2HXL /,    KIX2  / 2HXQ /,\r\n     2        KIX3  / 2HXC /,   KAE   / 2HAE /,    KTRIM6/ 2HT6 /,\r\n     3        KTRPLT/ 2HP6 /,   KTRSHL/ 2HSL /,    KIS2D8/ 2HD8 /,\r\n     4        KFHEX1/ 2HFA /,   KFHEX2/ 2HFB /,    KFTETA/ 2HFT /,\r\n     5        KFWEDG/ 2HFW /,   KBAR  / 2HBR /,    KT3   / 2HT3 /,\r\n     6        KQ4   / 2HQ4 /\r\nC    7        KELBOW/ 2HEB /\r\nC\r\nC     1   -   LINE,TRIANGLE,QUAD    5   -   IHEXA2\r\nC     2   -   TETRA                 6   -   IHEXA3\r\nC     3   -   WEDGE                 7   -   AERO\r\nC     4   -   HEXA                  8   -   TRIM6 AND TRPLT1 AND TRSHL\r\nC\r\n      DATA    LETSZ2/ 13 /\r\n      DATA    LETSZ /\r\n     1         1,      5,     1,\r\n     2         4,      4,     6,\r\n     3         5,      5,    22,\r\n     4         6,      5,    47,\r\n     5         6,      9,    77,\r\n     6         6,     13,   131,\r\n     7         1,      5,   209,\r\n     8         1,      7,   214,\r\n     9         1,      9,   221/\r\nC         NELSRF,   NPTS,    IS\r\n      DATA    LET1  /\r\n     1         1,  2,  3,  4,  5/\r\n      DATA    LET2  /\r\n     1         1,  2,  3,  1,\r\n     2         1,  2,  4,  1,\r\n     3         2,  3,  4,  2,\r\n     4         1,  3,  4,  1/\r\n      DATA    LET3  /\r\n     1         1,  2,  3,  1,  0,\r\n     2         4,  5,  6,  4,  0,\r\n     3         1,  3,  6,  4,  1,\r\n     4         1,  2,  5,  4,  1,\r\n     5         2,  3,  6,  5,  2/\r\n      DATA    LET4  /\r\n     1         1,  2,  3,  4,  1,\r\n     2         5,  6,  7,  8,  5,\r\n     3         3,  4,  8,  7,  3,\r\n     4         1,  2,  6,  5,  1,\r\n     5         2,  3,  7,  6,  2,\r\n     6         1,  4,  8,  5,  1/\r\n      DATA    LET5  /\r\n     1         1,  2,  3,  4,  5,  6,  7,  8,  1,\r\n     2        13, 14, 15, 16, 17, 18, 19, 20, 13,\r\n     3         3, 10, 15, 16, 17, 11,  5,  4,  3,\r\n     4         5, 11, 17, 18, 19, 12,  7,  6,  5,\r\n     5         7, 12, 19, 20, 13,  9,  1,  8,  7,\r\n     6         1,  2,  3, 10, 15, 14, 13,  9,  1/\r\n      DATA    LET6  /\r\n     1         1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12,  1,\r\n     2        21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 21,\r\n     3         4,  5,  6,  7, 15, 19, 27, 26, 25, 24, 18, 14,  4,\r\n     4         7,  8,  9, 10, 16, 20, 30, 29, 28, 27, 19, 15,  7,\r\n     5        10, 11, 12,  1, 13, 17, 21, 32, 31, 30, 20, 16, 10,\r\n     6         1,  2,  3,  9, 14, 18, 24, 23, 22, 21, 17, 13,  1/\r\n      DATA    LET7  /\r\n     1         1,  2,  3,  4,  1/\r\n      DATA    LET8  /\r\n     1         1,  2,  3,  4,  5,  6,  1/\r\n      DATA    LET9  /\r\n     1         1,  5,  2,  6,  3,  7,  4,  8,  1/\r\nC\r\nC     PEDGE FLAG = 2 OR 200    - HIDDEN LINE PLOT\r\nC                = 10 THRU 100 - SHRINK PLOT.\r\nC                = 100         - FILL, NOT USED HERE\r\nC                = .GT.    200 - SHRINK AND HIDDEN LINE PLOT\r\nC     E.G. PEDGE = 270 INDICATES HIDDEN LINE PLOT WITH EACH ELEMENT\r\nC                  SHRUNK TO 70 PERCENT OF FULL SIZE.\r\nC\r\n      IPEDGE = MOD(PEDGE,200)\r\n      NWDS   = 0\r\n      NMAX   = 0\r\n      LS     = 0\r\n      LSMAX  = IOPCOR/14\r\n      IF (PEDGE .GT. 200) LSMAX = 0\r\n      NOFSUR = 0\r\n      SHK    = 1.0\r\n      SHRINK = .FALSE.\r\n      IF (PEDGE .LT. 10) GO TO 10\r\n      SHRINK = .TRUE.\r\n      SHK = 1. - FLOAT(IPEDGE)/100.\r\n      CALL LINE (0.,0.,0.,0.,1.,-1)\r\n   10 HIDDEN = .FALSE.\r\n      IF (PEDGE.NE.2 .AND. PEDGE.LT.200) GO TO 20\r\n      HIDDEN = .TRUE.\r\n      CALL GOPEN (NSCR2,GPLST(IB),1)\r\n      NWDS = 3*LETSZ2 + 5\r\nC\r\n   20 CALL READ (*310,*190,ELSET,ETYP,1,0,I)\r\n      CALL FREAD (ELSET,I,1,0)\r\n      NGPEL  = IABS(I)\r\n      NGPELX = NGPEL\r\n      SOLID  = 0\r\nC\r\n      OFFSET = 0\r\n      IF (ETYP .EQ. KBAR) OFFSET = 6\r\n      IF (ETYP.EQ.KT3 .OR. ETYP.EQ.KQ4) OFFSET = 1\r\n      ITYPE = 1\r\n      IF (ETYP .EQ. KTET    ) ITYPE = 2\r\n      IF (ETYP .EQ. KFTETA  ) ITYPE = 2\r\n      IF (ETYP .EQ. KWEG    ) ITYPE = 3\r\n      IF (ETYP .EQ. KFWEDG  ) ITYPE = 3\r\n      IF (ETYP .EQ. KHX1   .OR. ETYP .EQ. KHX2 .OR. ETYP .EQ. KIX1 .OR.\r\n     1    ETYP .EQ. KFHEX1 .OR. ETYP .EQ. KFHEX2) ITYPE = 4\r\n      IF (ETYP .EQ. KIX2    ) ITYPE = 5\r\n      IF (ETYP .EQ. KIS2D8  ) ITYPE = 9\r\n      IF (ETYP .EQ. KIX3    ) ITYPE = 6\r\n      IF (ETYP .EQ. KAE     ) ITYPE = 7\r\n      IF (ETYP .EQ. KTRIM6 .OR. ETYP .EQ. KTRPLT .OR. ETYP .EQ. KTRSHL)\r\n     1    ITYPE = 8\r\nC\r\n      IF (ITYPE .NE. 1) GO TO 40\r\nC\r\nC     SIMPLE ELEMENT\r\nC\r\n      IF (NGPEL.GT.2 .AND. I.GT.0) NGPELX = NGPEL + 1\r\n      IF (NGPEL .GT. 4) GO TO 130\r\n      NPTS = NGPELX\r\n      GO TO 50\r\nC\r\nC     COMPLEX ELEMENT\r\nC\r\n   40 CONTINUE\r\n      IF (ITYPE.GE.2 .AND. ITYPE.LE.6) SOLID = 1\r\n      NPTS = LETSZ(2,ITYPE)\r\n   50 IF (NPTS-1 .GT. NMAX) NMAX = NPTS - 1\r\nC\r\nC     READ THE ELEMENT DATA\r\nC\r\n   60 CALL FREAD (ELSET,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 20\r\n      CALL FREAD (ELSET,LID,1,0)\r\n      CALL FREAD (ELSET,G,NGPEL,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (ELSET,0,-OFFSET,0)\r\n      IF (NGPEL .NE. NGPELX) G(NGPELX) = G(1)\r\n      IF (HIDDEN .AND. .NOT.SHRINK) GO TO 80\r\n      XC = 0.\r\n      YC = 0.\r\n      ZC = 0.\r\n      DO 70 I = 1,NGPEL\r\n      GP = G(I)\r\n      GP = IABS(GPLST(GP))\r\n      XC = XC + X(2,GP)\r\n      YC = YC + X(3,GP)\r\n      ZC = ZC + X(1,GP)\r\n   70 CONTINUE\r\n      XC = XC/NGPEL\r\n      YC = YC/NGPEL\r\n      ZC = ZC/NGPEL\r\nC\r\n   80 NELSRF = LETSZ(1,ITYPE)\r\n      IS = LETSZ(3,ITYPE)\r\nC\r\n      DO 120 NS = 1,NELSRF\r\n      NN = 0\r\n      MM = (NS-1)*NPTS + IS - 1\r\n      NPERS = NPTS\r\n      DO 110 I = 1,NPTS\r\n      M = MM + I\r\n      N = LET(M)\r\n      IF (N .NE. 0) GO TO 85\r\n   82 NPERS = NPERS - 1\r\n      GO TO 110\r\n   85 GP = G(N)\r\n      IF (GP .EQ. 0) GO TO 82\r\n      NN = NN + 1\r\n      GP = IABS(GPLST(GP))\r\n      P(3,NN) = X(1,GP)\r\n      IF (DEFORM .NE. 0) GO TO 90\r\n      P(1,NN) = X(2,GP)\r\n      P(2,NN) = X(3,GP)\r\n      GO TO 100\r\n   90 P(1,NN) = U(1,GP)\r\n      P(2,NN) = U(2,GP)\r\n  100 CONTINUE\r\n      IF (.NOT.SHRINK) GO TO 110\r\n      IF (     HIDDEN) GO TO 105\r\n      IF (NN .EQ. 1) GO TO 110\r\n      X1 = P(1,NN-1) - (P(1,NN-1)-XC)*SHK\r\n      Y1 = P(2,NN-1) - (P(2,NN-1)-YC)*SHK\r\n      X2 = P(1,NN  ) - (P(1,NN  )-XC)*SHK\r\n      Y2 = P(2,NN  ) - (P(2,NN  )-YC)*SHK\r\n      IPEN = PEN\r\n      IF (IPEDGE.EQ.100 .AND. PEN.GT.31 .AND. I.EQ.NPERS) PEN = 0\r\n      IF (SHRINK) CALL LINE (X1,Y1,X2,Y2,PEN,0)\r\n      IF (PEN .EQ. 0) PEN = IPEN\r\n      GO TO 110\r\n  105 P(3,NN) = X(1,GP) - (X(1,GP)-ZC)*SHK\r\n      P(1,NN) = X(2,GP) - (X(2,GP)-XC)*SHK\r\n      P(2,NN) = X(3,GP) - (X(3,GP)-YC)*SHK\r\n      IF (DEFORM .EQ. 0) GO TO 110\r\n      P(1,NN) = U(1,GP) - (X(2,GP)-XC)*SHK\r\n      P(2,NN) = U(2,GP) - (X(3,GP)-YC)*SHK\r\n  110 CONTINUE\r\n      IF (SHRINK .AND. .NOT.HIDDEN) GO TO 120\r\n      CALL WRITE (NSCR2,NOFSUR,NWDS,0)\r\n      NOFSUR = NOFSUR + 1\r\n      IF (SOLID.EQ.0 .OR. .NOT.HIDDEN) GO TO 120\r\nC\r\nC     SAVE SOLID SURFACE DATA IN IZ SPACE FOR SECOND PROCESSING, HIDDEN\r\nC     PLOT ONLY. SAVE AS MANY AS OPEN CORE CAN HOLD\r\nC\r\n      IF (LS .GE. LSMAX) GO TO 120\r\n      LS = LS + 1\r\n      NPS1 = NPERS - 1\r\n      DO 112 I = 1,NPS1\r\n      M  = MM + I\r\n      N  = LET(M)\r\n      GP = G(N)\r\n      TEMP(I     ) = GP\r\n  112 TEMP(I+NPS1) = GP\r\n      M  = 1\r\n      MIN= TEMP(1)\r\n      DO 114 I = 2,NPS1\r\n      IF (TEMP(I) .GE. MIN) GO TO 114\r\n      M  = I\r\n      MIN= TEMP(I)\r\n  114 CONTINUE\r\n      IF (M .EQ. 1) M = M + NPS1\r\n      N = + 1\r\n      IF (TEMP(M-1) .LT. TEMP(M+1)) N = -1\r\n      IF (N.EQ.-1  .AND. M.LT.NPS1) M = M + NPS1\r\n      K = NPS1 + 2\r\n      DO 116 I = 3,K\r\n      IZ(I,LS) = TEMP(M)\r\n  116 M = M + N\r\n      IZ(1,LS) = NOFSUR\r\n      IZ(2,LS) = NPS1\r\nC\r\n  120 CONTINUE\r\n      GO TO 60\r\nC\r\nC     CHECK FOR PDUM ELEMENTS BEFORE  EJECTING\r\nC\r\n  130 DO 135 I = 1,9\r\n      IF (ETYP .EQ. LDX(I)) GO TO 160\r\n  135 CONTINUE\r\nC\r\nC     ILLEGAL ELEMENT, NO CORE FOR 1 ELEMENT\r\nC\r\n  140 G(1) = 2\r\n      G(2) = ETYP\r\n      G(3) = NGPEL\r\n      CALL WRTPRT (MERR,G,M1,NM1)\r\nC\r\nC     READ TO THE END OF THIS ELEMENT\r\nC\r\n  150 CALL READ (*180,*20,ELSET,ELID,1,0,M)\r\n      IF (ELID .LE. 0) GO TO 20\r\n      J = 1 + NGPEL + OFFSET\r\n      CALL FREAD (ELSET,0,-J,0)\r\n      GO TO 150\r\n  160 WRITE  (IOUT,170) I\r\n  170 FORMAT ('0*** MISSING PDUM',I1,' SUBROUTINE/HDSURF')\r\n      GO TO 140\r\n  180 CALL MESAGE (-8,ELSET,NAME)\r\nC\r\n  190 CONTINUE\r\n      MAXSF = NOFSUR\r\n      CALL BCKREC (ELSET)\r\n      IF (SHRINK) CALL LINE (0.,0.,0.,0.,1.,+1)\r\n      IF (.NOT.HIDDEN) GO TO 300\r\n      CALL WRITE (NSCR2,0,0,1)\r\n      IF (LS .LT. 60) GO TO 280\r\nC\r\nC     REPROCESS NSCR2 TO REMOVE DUPLICATE SURFACES (INTERIOR-INTERFACES)\r\nC     AND SAVE REDUCED DATA IN NSCR1.\r\nC     INTERCHANGE NSCR1 AND NSCR2 INDICES\r\nC\r\n      J = (LETSZ2+1)*LS\r\n      CALL SORT2K (0,0,LETSZ2+1,3,IZ,J)\r\n      M = 0\r\n      NPS1 = 0\r\n      DO 240 I = 1,LS\r\n      NPS2 = IZ(2,I) + 2\r\n      IF (NPS2 .EQ. NPS1) GO TO 200\r\n      NPS1 = NPS2\r\n      GO TO 240\r\n  200 IM1  = I - 1\r\n      DO 210 J = 3,NPS1\r\n      IF (IZ(J,I) .NE. IZ(J,IM1)) GO TO 240\r\n  210 CONTINUE\r\n      IF (M .EQ. 0) GO TO 220\r\n      IF (IZ(M,1) .EQ. IZ(1,IM1)) GO TO 230\r\n  220 M = M + 1\r\n      IZ(M,1) = IZ(1,IM1)\r\n  230 M = M + 1\r\n      IZ(M,1) = IZ(1,I)\r\n  240 CONTINUE\r\nC\r\n      IF (M .LT. 20) GO TO 280\r\n      CALL SORT (0,0,1,1,IZ,M)\r\n      IZ(M+1,1) = 999999999\r\n      FILE = NSCR1\r\n      CALL GOPEN (NSCR1,GPLST(IB+IBUF),1)\r\n      FILE = NSCR2\r\n      CALL CLOSE (NSCR2,1)\r\n      CALL GOPEN (NSCR2,GPLST(IB),0)\r\n      N = 1\r\n      DO 270 I = 1,MAXSF\r\n      CALL READ (*320,*330,NSCR2,NOFSUR,NWDS,0,J)\r\n      IF (I-IZ(N,1)) 250,260,260\r\n  250 CALL WRITE (NSCR1,NOFSUR,NWDS,0)\r\n      GO TO 270\r\n  260 N = N + 1\r\n  270 CONTINUE\r\nC\r\n      CALL CLOSE (NSCR2,1)\r\n      J = NSCR2\r\n      NSCR2 = NSCR1\r\n      NSCR1 = J\r\n      MAXSF = MAXSF - M\r\n      CALL WRITE (NSCR2,0,0,1)\r\n  280 CALL CLOSE (NSCR2,1)\r\n  300 RETURN\r\nC\r\n  310 J = -1\r\n      FILE = ELSET\r\n      GO TO 340\r\n  320 J = -2\r\n      GO TO 340\r\n  330 J = -3\r\n  340 CALL MESAGE (J,FILE,NAME)\r\n      GO TO 190\r\n      END\r\n"
  },
  {
    "path": "mis/hdvs1.f",
    "content": "      SUBROUTINE HDVS1(A,LA,IR)\r\n      INTEGER            IU(21),IL(21),I,M,J,K,IJ,IT,L,ITT\r\n      INTEGER A(1),IR(1),T,TT\r\nC                                  FIRST EXECUTABLE STATEMENT\r\n      IF (LA.LE.0) RETURN\r\n      M = 1\r\n      I = 1\r\n      J = LA\r\n      R = .375\r\n    5 IF (I.EQ.J) GO TO 45\r\n      IF (R.GT..5898437) GO TO 10\r\n      R = R+3.90625E-2\r\n      GO TO 15\r\n   10 R = R-.21875\r\n   15 K = I\r\nC                                  SELECT A CENTRAL ELEMENT OF THE\r\nC                                  ARRAY AND SAVE IT IN LOCATION T\r\n      IJ = I+(J-I)*R\r\n      T = A(IJ)\r\n      IT = IR(IJ)\r\nC                                  IF FIRST ELEMENT OF ARRAY IS GREATER\r\nC                                  THAN T, INTERCHANGE WITH T\r\n      IF (A(I).LE.T) GO TO 20\r\n      A(IJ) = A(I)\r\n      A(I) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(I)\r\n      IR(I) = IT\r\n      IT = IR(IJ)\r\n   20 L = J\r\nC                                  IF LAST ELEMENT OF ARRAY IS LESS THAN\r\nC                                  T, INTERCHANGE WITH T\r\n      IF (A(J).GE.T) GO TO 30\r\n      A(IJ) = A(J)\r\n      A(J) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(J)\r\n      IR(J) = IT\r\n      IT = IR(IJ)\r\nC                                  IF FIRST ELEMENT OF ARRAY IS GREATER\r\nC                                  THAN T, INTERCHANGE WITH T\r\n      IF (A(I).LE.T) GO TO 30\r\n      A(IJ) = A(I)\r\n      A(I) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(I)\r\n      IR(I) = IT\r\n      IT = IR(IJ)\r\n      GO TO 30\r\n   25 IF (A(L).EQ.A(K)) GO TO 30\r\n      TT = A(L)\r\n      A(L) = A(K)\r\n      A(K) = TT\r\n      ITT = IR(L)\r\n      IR(L) = IR(K)\r\n      IR(K) = ITT\r\nC                                  FIND AN ELEMENT IN THE SECOND HALF OF\r\nC                                  THE ARRAY WHICH IS SMALLER THAN T\r\n   30 L = L-1\r\n      IF (A(L).GT.T) GO TO 30\r\nC                                  FIND AN ELEMENT IN THE FIRST HALF OF\r\nC                                  THE ARRAY WHICH IS GREATER THAN T\r\n   35 K = K+1\r\n      IF (A(K).LT.T) GO TO 35\r\nC                                  INTERCHANGE THESE ELEMENTS\r\n      IF (K.LE.L) GO TO 25\r\nC                                  SAVE UPPER AND LOWER SUBSCRIPTS OF\r\nC                                  THE ARRAY YET TO BE SORTED\r\n      IF (L-I.LE.J-K) GO TO 40\r\n      IL(M) = I\r\n      IU(M) = L\r\n      I = K\r\n      M = M+1\r\n      GO TO 50\r\n   40 IL(M) = K\r\n      IU(M) = J\r\n      J = L\r\n      M = M+1\r\n      GO TO 50\r\nC                                  BEGIN AGAIN ON ANOTHER PORTION OF\r\nC                                  THE UNSORTED ARRAY\r\n   45 M = M-1\r\n      IF (M.EQ.0) RETURN\r\n      I = IL(M)\r\n      J = IU(M)\r\n   50 IF (J-I.GE.11) GO TO 15\r\n      IF (I.EQ.1) GO TO 5\r\n      I = I-1\r\n   55 I = I+1\r\n      IF (I.EQ.J) GO TO 45\r\n      T = A(I+1)\r\n      IT = IR(I+1)\r\n      IF (A(I).LE.T) GO TO 55\r\n      K = I\r\n   60 A(K+1) = A(K)\r\n      IR(K+1) = IR(K)\r\n      K = K-1\r\n      IF (T.LT.A(K)) GO TO 60\r\n      A(K+1) = T\r\n      IR(K+1) = IT\r\n      GO TO 55\r\n      END\r\n"
  },
  {
    "path": "mis/hdvsr.f",
    "content": "      SUBROUTINE HDVSR(A,LA,IR)\r\nC   IMSL ROUTINE NAME   - HDVSR\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\nC   COMPUTER            - CDC/SINGLE\r\nC\r\nC   LATEST REVISION     - JANUARY 1, 1978\r\nC\r\nC   PURPOSE             - SORTING OF ARRAYS BY ALGEBRAIC VALUE -\r\nC                           PERMUTATIONS RETURNED\r\nC\r\nC   USAGE               - CALL HDVSR (A,LA,IR)\r\nC\r\nC   ARGUMENTS    A      - ON INPUT, A CONTAINS THE ARRAY TO BE SORTED.\r\nC                         ON OUTPUT, A CONTAINS THE SORTED ARRAY.\r\nC                LA     - INPUT VARIABLE CONTAINING THE NUMBER OF\r\nC                           ELEMENTS IN THE ARRAY TO BE SORTED.\r\nC                IR     - VECTOR OF LENGTH LA.\r\nC                         ON INPUT, IR CONTAINS THE INTEGER VALUES\r\nC                           1,2,...,LA. SEE REMARKS.\r\nC                         ON OUTPUT, IR CONTAINS A RECORD OF THE\r\nC                           PERMUTATIONS MADE ON THE VECTOR A.\r\nC\r\nC   PRECISION/HARDWARE  - SINGLE/ALL\r\nC\r\nC   REQD. IMSL ROUTINES - NONE REQUIRED\r\nC\r\nC                           CONVENTIONS IS AVAILABLE IN THE MANUAL\r\nC                           INTRODUCTION OR THROUGH IMSL ROUTINE UHELP\r\nC\r\nC   REMARKS      THE VECTOR IR MUST BE INITIALIZED BEFORE ENTERING\r\nC                HDVSR.  ORDINARILY, IR(1)=1, IR(2)=2, ...,\r\nC                IR(LA)=LA.  FOR WIDER APPLICABILITY, ANY INTEGER\r\nC                THAT IS TO BE ASSOCIATED WITH A(I) FOR I=1,2,...,LA\r\nC                MAY BE ENTERED INTO IR(I).\r\nC\r\nC   COPYRIGHT           - 1978 BY IMSL, INC. ALL RIGHTS RESERVED.\r\nC\r\nC   WARRANTY            - IMSL WARRANTS ONLY THAT IMSL TESTING HAS BEEN\r\nC                           APPLIED TO THIS CODE.  NO OTHER WARRANTY,\r\nC                           EXPRESSED OR IMPLIED, IS APPLICABLE.\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      DIMENSION A(1),IR(1)\r\nC                                  SPECIFICATIONS FOR ARGUMENTS\r\nC                                  SPECIFICATIONS FOR LOCAL VARIABLES\r\n      INTEGER            IU(21),IL(21),I,M,J,K,IJ,IT,L,ITT\r\n      REAL               T,TT,R\r\nC                                  FIRST EXECUTABLE STATEMENT\r\n      IF (LA.LE.0) RETURN\r\n      M = 1\r\n      I = 1\r\n      J = LA\r\n      R = .375\r\n    5 IF (I.EQ.J) GO TO 45\r\n      IF (R.GT..5898437) GO TO 10\r\n      R = R+3.90625E-2\r\n      GO TO 15\r\n   10 R = R-.21875\r\n   15 K = I\r\nC                                  SELECT A CENTRAL ELEMENT OF THE\r\nC                                  ARRAY AND SAVE IT IN LOCATION T\r\n      IJ = I+(J-I)*R\r\n      T = A(IJ)\r\n      IT = IR(IJ)\r\nC                                  IF FIRST ELEMENT OF ARRAY IS GREATER\r\nC                                  THAN T, INTERCHANGE WITH T\r\n      IF (A(I).LE.T) GO TO 20\r\n      A(IJ) = A(I)\r\n      A(I) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(I)\r\n      IR(I) = IT\r\n      IT = IR(IJ)\r\n   20 L = J\r\nC                                  IF LAST ELEMENT OF ARRAY IS LESS THAN\r\nC                                  T, INTERCHANGE WITH T\r\n      IF (A(J).GE.T) GO TO 30\r\n      A(IJ) = A(J)\r\n      A(J) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(J)\r\n      IR(J) = IT\r\n      IT = IR(IJ)\r\nC                                  IF FIRST ELEMENT OF ARRAY IS GREATER\r\nC                                  THAN T, INTERCHANGE WITH T\r\n      IF (A(I).LE.T) GO TO 30\r\n      A(IJ) = A(I)\r\n      A(I) = T\r\n      T = A(IJ)\r\n      IR(IJ) = IR(I)\r\n      IR(I) = IT\r\n      IT = IR(IJ)\r\n      GO TO 30\r\n   25 IF (A(L).EQ.A(K)) GO TO 30\r\n      TT = A(L)\r\n      A(L) = A(K)\r\n      A(K) = TT\r\n      ITT = IR(L)\r\n      IR(L) = IR(K)\r\n      IR(K) = ITT\r\nC                                  FIND AN ELEMENT IN THE SECOND HALF OF\r\nC                                  THE ARRAY WHICH IS SMALLER THAN T\r\n   30 L = L-1\r\n      IF (A(L).GT.T) GO TO 30\r\nC                                  FIND AN ELEMENT IN THE FIRST HALF OF\r\nC                                  THE ARRAY WHICH IS GREATER THAN T\r\n   35 K = K+1\r\n      IF (A(K).LT.T) GO TO 35\r\nC                                  INTERCHANGE THESE ELEMENTS\r\n      IF (K.LE.L) GO TO 25\r\nC                                  SAVE UPPER AND LOWER SUBSCRIPTS OF\r\nC                                  THE ARRAY YET TO BE SORTED\r\nC                                  THE ARRAY YET TO BE SORTED\r\n      IF (L-I.LE.J-K) GO TO 40\r\n      IL(M) = I\r\n      IU(M) = L\r\n      I = K\r\n      M = M+1\r\n      GO TO 50\r\n   40 IL(M) = K\r\n      IU(M) = J\r\n      J = L\r\n      M = M+1\r\n      GO TO 50\r\nC                                  BEGIN AGAIN ON ANOTHER PORTION OF\r\nC                                  THE UNSORTED ARRAY\r\n   45 M = M-1\r\n      IF (M.EQ.0) RETURN\r\n      I = IL(M)\r\n      J = IU(M)\r\n   50 IF (J-I.GE.11) GO TO 15\r\n      IF (I.EQ.1) GO TO 5\r\n      I = I-1\r\n   55 I = I+1\r\n      IF (I.EQ.J) GO TO 45\r\n      T = A(I+1)\r\n      IT = IR(I+1)\r\n      IF (A(I).LE.T) GO TO 55\r\n      K = I\r\n   60 A(K+1) = A(K)\r\n      IR(K+1) = IR(K)\r\n      K = K-1\r\n      IF (T.LT.A(K)) GO TO 60\r\n      A(K+1) = T\r\n      IR(K+1) = IT\r\n      GO TO 55\r\n      END\r\n"
  },
  {
    "path": "mis/head.f",
    "content": "      SUBROUTINE HEAD (DTYP,PLTP,MTYP,IDAT)\r\nC\r\n      INTEGER         IDAT(17),MAXDEF(3),DTYP,PLTP,UNDEF(4),PTYP(2,5),\r\n     1                SUBC(2),MTYPF(2,3),PHAS(3),FPLTIT,PLTITL\r\n      REAL            NT1(5),NT2(4),NT3(3),CSCALE,X,X0\r\n      COMMON /OUTPUT/ TITLE(32,3)\r\n      COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2),AXYMAX(13),CSCALE,\r\n     1                SKPA(3),CNTX,CNTY\r\n      COMMON /XXPARM/ ISKP(215),FPLTIT,PLTITL(17)\r\nC\r\n      DATA    UNDEF / 4HUNDE, 4HFORM, 4HED S, 4HHAPE /\r\nC ... NUMBER CHAR+2 FOR STATIC - CMODAL ... NOTE, 1 BLANK AT START...\r\n     1,       NT1   / 8., 7., 8., 7., 8.  /\r\nC ... NUMBER CHAR+1 FOR DEFO - ACCEL ...\r\n     2,       NT2   , PTYP / 7., 9., 7., 7.\r\n     A,               4HDEFO,2HR.  , 4HVELO,4HCITY, 4HACCE,2HL.\r\n     B,               4HSTRE,2HSS  , 4HSTRA,2HIN  /\r\n     3,       SUBC  / 4HSUBC,4HASE  /\r\nC ... NUMBER CHAR+1 FOR FREQ, EIGENV., TIME  ... IDENTIFY BY MTYP ...\r\n     4,       NT3   / 6., 8., 5. /\r\n     C,       MTYPF / 4HFREQ,4H.   , 4HEIGE,4HNV. , 4HTIME,1H    /\r\nC ... NUMBER OF SPACES BETWEEN IDENTIFIERS ...\r\n     5,       DELX  / 3.0 /\r\n     6,       MAXDEF/ 4HMAX-,4HDEF.,2H =   /\r\n     7,       PHAS  / 4H PHA,4HSE  ,1H     /\r\nC\r\n      XYMIN(1) = 0.0\r\n      XYMIN(2) = 0.0\r\n      XYMAX(1) = AXYMAX(1)\r\n      XYMAX(2) = AXYMAX(2)\r\n      CALL PRINT (0,0,0,0,0,-1)\r\n      IF (MTYP .LT. 0) GO TO 30\r\nC\r\nC     LEFT-MOST CHARACTER MAY NOT BE COMPETELY DRAWN IF FRACTION OF\r\nC     CSCALE IS IS LESS THAN 0.5. SO MOVE OVER A SMALL SPACE OF X0\r\nC\r\n      J  = IFIX(CSCALE)\r\n      X0 = CSCALE - FLOAT(J)\r\n      IF (X0 .GT. 0.5) X0 = 0.0\r\nC\r\nC     PRINT THE TITLE, SUBTITLE AND LABEL\r\nC\r\n      CALL PRINT (X0,3.0*CNTY,1,TITLE(1,1),17,0)\r\n      CALL PRINT (X0,2.0*CNTY,1,TITLE(1,2),16,0)\r\n      CALL PRINT (X0,CNTY,1,TITLE(1,3),17,0)\r\nC\r\n      X = 25. - 5.*(CSCALE-1.)\r\n      IF (DTYP .EQ. 0) GO TO 10\r\n      X = 40.\r\n      IF (IDAT(1) .LE. 8) GO TO 10\r\n      X = 45.\r\n      IF (IDAT(1) .GE. 12) X = 52.\r\n      IF (IDAT(1) .GE. 15) X = 59.\r\n   10 CONTINUE\r\n      IF (FPLTIT .NE. 0) CALL PRINT (X*CNTX,0.,1,PLTITL,17,0)\r\nC\r\nC     BOTTOM LINE IDENTIFIES PLOT\r\nC\r\n      IF (DTYP .NE. 0) GO TO 20\r\nC\r\nC     UNDEFORMED SHAPE\r\nC\r\n      CALL PRINT (CNTX+X0,0.,1,UNDEF,4,0)\r\n      GO TO 40\r\nC\r\nC     DEFORMED SHAPE\r\nC\r\n   20 CALL PRINT (CNTX+X0,0.,1,IDAT(3),2,0)\r\n      X = NT1(DTYP)\r\n      CALL PRINT (X*CNTX+X0,0.,1,PTYP(1,PLTP),2,0)\r\n      X = X + NT2(PLTP)\r\n      CALL PRINT (X*CNTX+X0,0.,1,SUBC,2,0)\r\n      X = X + 8.\r\n      N = -1\r\n      CALL TYPINT (X*CNTX+X0,0.,1,IDAT(7),N,0)\r\n      X = X + FLOAT(N) + DELX\r\nC\r\nC     LOAD I  OR  MODE I\r\nC\r\n      CALL PRINT (X*CNTX+X0,0.,1,IDAT(9),1,0)\r\n      X = X + 5.\r\n      N = -1\r\n      CALL TYPINT (X*CNTX+X0,0.,1,IDAT(8),N,0)\r\nC\r\nC     FREQUENCY, EIGENVALUE, OR TIME\r\nC\r\n      IF (IDAT(1) .LE. 8) GO TO 40\r\n      X = FLOAT(IFIX(X+DELX+0.1) + N)\r\n      CALL PRINT (X*CNTX+X0,0.,1,MTYPF(1,MTYP),2,0)\r\n      X = X + NT3(MTYP)\r\n      CALL TYPFLT (X*CNTX+X0,0.,1,IDAT(10),-8,0)\r\nC\r\nC     MAGNITUDE  OR  PHASE LAG\r\nC\r\n      IF (IDAT(1) .LE. 12) GO TO 40\r\n      X = X + 7.0 + DELX\r\n      IF (IDAT(14) .NE. PHAS(1)) GO TO 25\r\n      IDAT(15) = PHAS(2)\r\n      IDAT(16) = PHAS(3)\r\n   25 CALL PRINT (X*CNTX+X0,0.,1,IDAT(14),3,0)\r\nC\r\n      IF (IDAT(1) .LE. 15) GO TO 40\r\n      X = X + 7.0\r\n      CALL TYPFLT (X*CNTX+X0,0.,1,IDAT(17),-6,0)\r\n      GO TO 40\r\nC\r\nC     PRINT THE MAXIMUM DEFORMATION AT THE TOP\r\nC\r\n   30 CALL PRINT (20.*CNTX,XYMAX(2),1,MAXDEF,3,0)\r\n      CALL TYPFLT (31.*CNTX,XYMAX(2),1,IDAT(1),-10,0)\r\nC\r\nC\r\n   40 CALL PRINT (0,0,0,0,0,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hess1.f",
    "content": "      SUBROUTINE HESS1 (KDD,MDD,LAMD,PHID,OEIGS,NFOUND,NVECD,BDD,SCR1,\r\n     1                  SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,EED,METHOD)\r\nC\r\nC     SUBROUTINE HESS1 TRANSFORMS THE  PROBLEM\r\nC         PSQ M  + P B  + K   INTO   PSQ I  + MINV K\r\nC\r\nC     THREE CASES ARE AVAILABLE\r\nC         1    BDB = 0   MDD  NOT IDENTITY\r\nC              AMAT=     MINVERSE K  (MINUS ADDED IN CORE)\r\nC                        OUTPUT   P = CSQRT COMPUTED  PS\r\nC                        OUTPUT VEC = COMPUTED VECTOR\r\nC\r\nC         2    BDD = 0   MDD  IDENTITY\r\nC              AMAT=     KDD\r\nC                        OUTPUT AS IN CASE 1\r\nC\r\nC         3    BDD NOT  ZERO   MDD  NOT  IDENTITY\r\nC              AMAT=  1    1    1\r\nC                     1  0 1-I  1\r\nC                     1----------\r\nC                     1 -1 1 -1 1\r\nC                     1M  K1M  B1\r\nC                     1    1    1\r\nC                     OUTPUT  P   = COMPUTED  P\r\nC                     OUTPUT  VEC = FIRST HALF OF COMPUTED VECTOR\r\nC\r\nC     CORE  LAYOUT (FOR ALLMAT) IS AS FOLLOWS)\r\nC\r\nC     CONTENTS                SIZE              POINTER   TYPE  NAME\r\nC     --------                ----              -------   ----  ----\r\nC     INPUT MATRIX--VECTORS   2*NROW*NROW        IA       COMP  A\r\nC     EIGENVALUES             2*NROW             IL       COMP  LAMBDA\r\nC     H MATRIX                2*NROW*NROW        IH       COMP  H\r\nC     HL MATRIX               2*NROW*NROW        IHL      COMP  HL\r\nC     VECTOR STORAGE          2*NROW             IV       COMP  VEC\r\nC     MULTPLIERS              2*NROW             IM       COMP  MULT\r\nC     INTH                    NROW               INTH     INT   INTH\r\nC     INT                     NROW               INT      LOG   INT\r\nC\r\nC     BUFFER                  SYSBUF             IBUF1    INT   BUFFER\r\nC\r\nC\r\nC     VARIABLE  DEFINITION\r\nC\r\nC     ID   0  MEANS  IDENTY MASS MATRIX\r\nC     IBDD 0  MEANS  NULL B MATRIX\r\nC     AMAT    FINAL  A MATRIX GINO NAME\r\nC     NROW    ORDER  OF PROBLEM\r\nC\r\nC\r\nC\r\n      INTEGER         PHID,OEIGS,BDD,SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,\r\n     1                IZ(8),MCB(7),SYSBUF,NAME(2),FILE,IHEAD(10),EED,\r\n     2                AMAT,EIGC(2),POIN\r\n      DOUBLE PRECISION D1,D2,D3,D4,D5,DZ(1),TEMP(2)\r\n      COMPLEX         CZ(1),TZ\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /UNPAKX/ ITC,II,JJ,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CDCMPX/ DUM32(32),IB\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /OUTPUT/ HEAD(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF), (KSYSTM(2),MOUT ),\r\n     1                (KSYSTM(55),IPREC ), (Z(1),DZ(1),IZ(1),CZ(1))\r\n      DATA    NAME  / 4HHESS,4H1        /\r\n      DATA    IHEAD / 0,1009,4,7*0      /\r\n      DATA    EIGC  , POIN/ 207,2,4HPOIN/\r\n      DATA    IZ0   / 0   /\r\nC\r\nC     DETERMINE  IF MASS MATRIX IS IDENTITY\r\nC\r\n      MCB(1) = MDD\r\n      CALL RDTRL (MCB)\r\n      ID = 0\r\n      IF (MCB(4) .EQ. 8) ID = 1\r\n      NROW  = MCB(2)\r\n      AMAT  = KDD\r\n      IF (ID .NE. 0) GO TO 10\r\nC\r\nC     DECOMPOSE  MASS MATRIX\r\nC\r\n      IB = 0\r\n      CALL CFACTR (MDD,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT)\r\nC\r\nC     SOLVE FOR AMATRIX\r\nC\r\n      CALL CFBSOR (SCR1,SCR2,KDD,SCR3,IOPT)\r\nC\r\nC     DETERMINE IF  B MATRIX IS NULL\r\nC\r\n      AMAT = SCR3\r\n   10 IBDD = 0\r\n      MCB(1) = BDD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1).LE.0 .OR. MCB(6).EQ.0) GO TO 30\r\nC\r\nC     FORM  M-1  B\r\nC\r\n      IBDD  = 1\r\n      IMAT1 = BDD\r\n      IMAT2 = KDD\r\n      IF (ID .NE. 0) GO TO 20\r\nC\r\nC     - AS OF APRIL 1985 -\r\nC     THE UPPER AND LOWER TRIANGULAR MATRICES IN SCR1 AND SCR2 WERE\r\nC     MYSTERIOUSLY DESTROYED HERE. MUST CALL CFACTR TO RE-GENERATE THEM\r\nC\r\nC     - AS OF JUNE 1991 -\r\nC     TRY WITHOUT 2ND CALL TO CFACTR, AND MAKE SURE SCR1 AND SCR2 ARE\r\nC     STILL GINO UNITS 301 AND 302\r\nC\r\n      IB = 0\r\n      CALL CFACTR (MDD,SCR1,SCR2,SCR3,SCR4,SCR5,IOPT)\r\nC\r\n      CALL CFBSOR (SCR1,SCR2,BDD,SCR4,IOPT)\r\n      IMAT1 = SCR4\r\n      IMAT2 = SCR3\r\n   20 CALL HESS2 (NROW,SCR5,SCR6)\r\nC\r\nC     IDENTITY ON SCR5  MERGE VECTOR ON SCR6\r\nC\r\n      CALL MERGED (0,SCR5,IMAT2,IMAT1,SCR7,SCR6,SCR6,0,0)\r\n      AMAT = SCR7\r\n      NROW = 2*NROW\r\nC\r\nC     ALLOCATE  CORE FOR  ALLMAT\r\nC\r\n   30 IA  = 1\r\n      IL  = IA + 2*NROW*NROW\r\n      IH  = IL + 2*NROW\r\n      IHL = IH + 2*NROW*NROW\r\n      IV  = IHL+ 2*NROW*NROW\r\n      IM  = IV + 2*NROW\r\n      INTH= IM + 2*NROW\r\n      INT = INTH + NROW\r\n      NZ  =  KORSZ(IZ)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IF (IH+SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     PROCESS EIGC CARD\r\nC\r\n      FILE = EED\r\n      CALL PRELOC (*900,IZ(IBUF1-1),EED)\r\n      CALL LOCATE (*900,IZ(IBUF1-1),EIGC,IFLAG)\r\n   50 CALL FREAD (EED,IZ,10,0)\r\n      IF (METHOD.EQ.IZ(1) .OR. METHOD.EQ.-1) GO TO 70\r\nC\r\nC     SKIP REMAINDER OF EIGC CARD\r\nC\r\n   60 CALL FREAD (EED,IZ,7,0)\r\n      IF (IZ(6) .NE. -1) GO TO 60\r\n      GO TO 50\r\nC\r\nC     EIGC  CARD  FOUND\r\nC\r\n   70 INORM = 0\r\n      IF (IZ(4)  .NE. POIN) INORM = 1\r\n      ISIL  = IZ(6)\r\n      EPSI  = 1.0E-6\r\n      IF (Z(IZ0+8) .NE. 0.0) EPSI = Z(IZ0+8)\r\nC\r\nC     PROCESS  REGION  DEFINITION\r\nC\r\n      CALL FREAD (EED,IZ,7,0)\r\n      ALPH1 = Z(1)\r\n      ALPH2 = Z(IZ0+3)\r\n      W1    = Z(IZ0+2)\r\n      W2    = Z(IZ0+4)\r\n      NVECD = IZ(7)\r\n      IF (NVECD .GT. 0) GO TO 95\r\nC\r\nC     ---- SET DEFAULT TO ONE SOLUTION VECTOR ----\r\nC\r\n      NVECD = 1\r\n      WRITE  (MOUT,90) UWM\r\n   90 FORMAT (A25,' 2357, ONE VECTOR (DEFAULT) WILL BE COMPUTED IN THE',\r\n     1       ' COMPLEX REGION.')\r\n   95 CALL CLOSE (EED,1)\r\n      NVECD = MAX0(NVECD,1)\r\nC\r\nC     BRING IN  TERMS OF MATRIX\r\nC\r\n      CALL GOPEN (AMAT,IZ(IBUF1),0)\r\n      ITC  =-3\r\n      II   = 1\r\n      JJ   = NROW\r\n      INCR = 1\r\n      DO 100 I = IA,IL\r\n      Z(I) = 0.0\r\n  100 CONTINUE\r\n      J = IA\r\n      DO 120 I = 1,NROW\r\n      CALL UNPACK (*110,AMAT,Z(J))\r\n  110 J = J + 2*NROW\r\n  120 CONTINUE\r\n      CALL CLOSE (AMAT,1)\r\nC\r\nC     DO IT\r\nC\r\n      NCOUNT = NVECD\r\n      CALL ALLMAT (Z(IA),Z(IL),Z(IH),Z(IHL),Z(IV),Z(IM),Z(INTH),Z(INT),\r\n     1             NROW,NCOUNT,IOPT1)\r\n      NFOUND = NCOUNT/IPREC\r\n      FILE   = LAMD\r\n      CALL OPEN (*900,LAMD,IZ(IBUF1),1)\r\n      DO 230 I = 1,NROW\r\n      J  = IA + NROW*NROW + I - 1\r\n      IF (IBDD .NE. 0) GO TO 210\r\nC\r\nC     PUT OUT COMPLEX SQUARE ROOT\r\nC\r\n      TZ = CSQRT(CZ(J))\r\n      IF (AIMAG(TZ) .LT. 0.0) TZ = -TZ\r\n      TEMP(1) = REAL(TZ)\r\n      TEMP(2) = AIMAG(TZ)\r\n      GO TO 220\r\nC\r\nC     NON-ZERO  B\r\nC\r\n  210 CONTINUE\r\n      TEMP(1) = REAL(CZ(J))\r\n      TEMP(2) = AIMAG(CZ(J))\r\n  220 CALL WRITE (LAMD,TEMP,4,1)\r\n  230 CONTINUE\r\n      CALL CLOSE (LAMD,1)\r\nC\r\nC     PUT OUT  EIGENVECTORS\r\nC\r\n      FILE = PHID\r\n      CALL OPEN (*900,PHID,IZ(IBUF1),1)\r\n      J    = NROW*NROW + NROW\r\n      K    = IA - 1\r\n      NOUT = NROW*2\r\n      IF (IBDD .NE. 0) NOUT = NOUT/2\r\n      DO 370 M = 1,NVECD\r\n      D1 = 0.0\r\n      DO 310 I = 1,NOUT,2\r\n      II = J + I\r\n      JJ = K + I\r\n      DZ(II  ) = Z(JJ  )\r\n      DZ(II+1) = Z(JJ+1)\r\n      D2 = DZ(II)*DZ(II) + DZ(II+1)*DZ(II+1)\r\n      IF (D2 .LT. D1) GO TO 310\r\n      D3 = DZ(II  )\r\n      D4 = DZ(II+1)\r\n      D1 = D2\r\n  310 CONTINUE\r\n      IF (INORM .EQ. 0) GO TO 350\r\n  320 DO 330 I = 1,NOUT,2\r\n      JJ = J + I\r\n      D5 = (DZ(JJ)*D3 + DZ(JJ+1)*D4)/D1\r\n      DZ(JJ+1) = (D3*DZ(JJ+1) - D4*DZ(JJ))/D1\r\n      DZ(JJ  ) = D5\r\n  330 CONTINUE\r\n      GO TO 360\r\n  350 JJ = 2*ISIL + J\r\n      D2 = DZ(JJ)*DZ(JJ) + DZ(JJ-1)*DZ(JJ-1)\r\n      IF (D2.EQ.0.0D0 .OR. D1/D2.GT.1.0D6) GO TO 320\r\n      D3 = DZ(JJ-1)\r\n      D4 = DZ(JJ  )\r\n      D1 = D2\r\n      GO TO 320\r\n  360 CONTINUE\r\n      CALL WRITE (PHID,DZ(J+1),NOUT*2,1)\r\n      K  = K + NROW*2\r\n  370 CONTINUE\r\n      CALL CLOSE (PHID,1)\r\nC\r\nC     PUT OUT OEIGS\r\nC\r\n      CALL GOPEN (OEIGS,IZ(IBUF1),1)\r\n      CALL WRITE (OEIGS,IHEAD,10,0)\r\n      IZ(1) = NFOUND\r\n      IZ(2) = NVECD\r\n      IZ(3) = 0\r\n      IZ(4) = 0\r\n      IZ(5) = 0\r\n      IZ(6) = 0\r\n      IZ(7) = 0\r\n      IZ(8) = 1\r\n      CALL WRITE (OEIGS,IZ,40,0)\r\n      CALL WRITE (OEIGS,HEAD,96,1)\r\n      CALL CLOSE (OEIGS,1)\r\n      MCB(1) = OEIGS\r\n      MCB(2) = NFOUND\r\n      MCB(3) = NVECD\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1 =-1\r\n      CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/hess2.f",
    "content": "      SUBROUTINE HESS2(NROW,IDEN,IPV)\r\nC\r\nC     HESS2  WILL GENERATE  AN IDENTITY MATRIX AND A PARTIIONING VECTOR\r\nC\r\n      INTEGER MCB(7) , IZ(1)\r\n      INTEGER SYSBUF\r\nC\r\n      COMMON /PACKX/IT1,IT2,II,JJ,INCR\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /ZZZZZZ/Z(1)\r\nC\r\n      EQUIVALENCE ( KSYSTM( 1) , SYSBUF )\r\n      EQUIVALENCE ( Z(1),IZ(1) )\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      CALL MAKMCB( MCB, IDEN, NROW, 8, 1 )\r\n      NZ = KORSZ(Z)\r\n      IBUF1 = NZ- SYSBUF\r\n      CALL GOPEN(IDEN,IZ(IBUF1),1)\r\n      IT1=1\r\n      IT2=1\r\n      INCR=1\r\n      Z(1)=-1.0\r\n      DO 10 I=1,NROW\r\n      II = I\r\n      JJ=I\r\n      CALL PACK(Z,IDEN,MCB)\r\n   10 CONTINUE\r\n      CALL CLOSE(IDEN,1)\r\n      CALL WRTTRL(MCB)\r\nC\r\nC     BUILD PARTITIONING VECTOR\r\nC\r\n      CALL MAKMCB( MCB, IPV, 2*NROW, 2, 1 )\r\n      CALL GOPEN(IPV,IZ(IBUF1),1)\r\n      DO 20 I=1,NROW\r\n      Z(I)=1.0\r\n   20 CONTINUE\r\n      II = NROW+1\r\n      JJ= 2*NROW\r\n      CALL PACK(Z,IPV,MCB)\r\n      CALL WRTTRL(MCB)\r\n      CALL CLOSE(IPV,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hmat.f",
    "content": "      SUBROUTINE HMAT (ID)\r\nC\r\nC     MAT ROUTINE FOR USE IN -HEAT- FORMULATIONS ONLY.\r\nC\r\nC         CALL PREHMA (Z)  SETUP CALL MADE BY SMA1A, EMGTAB, ETC.\r\nC\r\nC         CALL HMAT (ELID)  ELEMENT ROUTINE CALLS\r\nC\r\nC\r\nC     REVISED BY G.CHAN/UNISYS\r\nC     5/90 - THE THERMAL CONDUCTIVITY OR CONVECTIVE FILM COEFFICIENT K,\r\nC            IS TIME DEPENDENT IF MATT4 REFERS TO TABLEM5. TIME STEP IS\r\nC            DEFINED VIA TSTEP IN /HMATDD/. IF TIME STEP IS NOT USED,\r\nC            TSTEP SHOULD BE -999.\r\nC            (TSTEP IS INITIALIZED TO -999. WHEN PREHMA IS CALLED)\r\nC     7/92 - NEW REFERENCE TO OPEN CORE ARRAY SUCH THAT THE SOURCE CODE\r\nC            IS UP TO ANSI FORTRAN 77 STANDARD.\r\nC\r\n      LOGICAL         ANY4    ,ANY5    ,ANYT4   ,ANYT5   ,LINEAR  ,\r\n     1                ANYTAB\r\n      INTEGER         NAME(2) ,SYSBUF  ,OUTPT   ,FLAG    ,CORE    ,\r\n     1                DIT     ,OLDMID  ,OLDFLG  ,CLSREW  ,CLS     ,\r\n     2                TYPE    ,MAT4(2) ,MAT5(2) ,MATT4(2),MATT5(2),\r\n     3                TSET    ,OFFSET  ,TABLST(16)\r\n      REAL            CARD(10),RZ(1)\r\n      CHARACTER       UFM*23  ,UWM*25  ,UIM*29  ,SFM*25\r\n      COMMON /XMSSG / UFM     ,UWM     ,UIM     ,SFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MATIN / MATID   ,INFLAG  ,ELTEMP  ,DUM(1)  ,S       ,C\r\n      COMMON /HMTOUT/ BUF(7)\r\n      COMMON /NAMES / RD      ,RDREW   ,WRT     ,WRTREW  ,CLSREW  ,CLS\r\n      COMMON /HMATDD/ IHMATX  ,NHMATX  ,MPT     ,DIT     ,LINEAR  ,\r\n     1                ANYTAB  ,TSTEP\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),OUTPT ) ,\r\n     1                (KSYSTM(10),TSET  ) ,(KSYSTM(56),ITHERM) ,\r\n     2                (F4,N4)    ,(F5,N5)\r\n      DATA    NAME  / 4HHMAT,4H    /, NOEOR  / 0 /\r\n      DATA    MAT4  / 2103  ,21    /\r\n      DATA    MAT5  / 2203  ,22    /\r\n      DATA    MATT4 / 2303  ,23    /\r\n      DATA    MATT5 / 2403  ,24    /\r\n      DATA    TABLST/ 5, 105,1,1,  205,2,2, 305,3,3, 405,4,4, 505,5,5 /\r\nC\r\nC     CALL BUG (4HHMTI,0,MATID,6)\r\nC\r\n      IF (ICHECK .NE. 123456789) CALL ERRTRC ('HMAT    ',0)\r\n      GO TO 200\r\nC\r\nC\r\n      ENTRY PREHMA (RZ)\r\nC     =================\r\nC\r\n      IF (ITHERM) 500,500,10\r\n   10 ICHECK = 123456789\r\n      OFFSET = LOCFX(RZ(1)) - LOCFX(Z(1))\r\n      IF (OFFSET .LT. 0) CALL ERRTRC ('HMAT    ',10)\r\n      TSTEP  = -999.\r\n      IHMAT  = IHMATX + OFFSET\r\n      NHMAT  = NHMATX + OFFSET\r\n      LBUF   = NHMAT  - SYSBUF\r\n      CORE   = LBUF   - IHMAT\r\n      IF (CORE .LT. 10) CALL MESAGE (-8,0,NAME)\r\n      CALL PRELOC (*125,Z(LBUF),MPT)\r\nC\r\nC     LOCATE MAT4 CARDS AND BLAST THEM INTO CORE.\r\nC\r\n      ANYTAB =.FALSE.\r\n      ANY4   =.FALSE.\r\n      IMAT4  = IHMAT + 1\r\n      NMAT4  = IHMAT\r\n      CALL LOCATE (*40,Z(LBUF),MAT4,FLAG)\r\n      CALL READ (*480,*30,MPT,Z(IMAT4),CORE,NOEOR,IWORDS)\r\n      CALL MESAGE (-8,0,NAME)\r\n   30 NMAT4 =  NMAT4 + IWORDS\r\n   40 MAT4S = (NMAT4 - IMAT4 + 1)/3\r\n      IF (MAT4S .GT. 0) ANY4 = .TRUE.\r\nC\r\nC     LOCATE MATT4 CARDS AND BLAST THEM INTO CORE IF THERE WERE ANY MAT4\r\nC\r\n      ANYT4  =.FALSE.\r\n      IMATT4 = NMAT4 + 1\r\n      NMATT4 = NMAT4\r\n      IF (.NOT.ANY4 .OR. (TSET.EQ.0 .AND. TSTEP.LT.0.)) GO TO 60\r\n      CALL LOCATE (*60,Z(LBUF),MATT4,FLAG)\r\n      CALL READ (*480,*50,MPT,Z(IMATT4),CORE,NOEOR,IWORDS)\r\n      CALL MESAGE (-8,0,NAME)\r\n   50 NMATT4 =  NMATT4 + IWORDS\r\n   60 MATT4S = (NMATT4 - IMATT4 + 1)/2\r\n      IF (MATT4S .GT. 0) ANYT4 = .TRUE.\r\nC\r\nC     LOCATE MAT5 CARDS AND BLAST THEM INTO CORE.\r\nC\r\n      ANY5  =.FALSE.\r\n      IMAT5 = NMATT4 + 1\r\n      NMAT5 = NMATT4\r\n      CALL LOCATE (*80,Z(LBUF),MAT5,FLAG)\r\n      CALL READ (*480,*70,MPT,Z(IMAT5),CORE,NOEOR,IWORDS)\r\n      CALL MESAGE (-8,0,NAME)\r\n   70 NMAT5 =  NMAT5 + IWORDS\r\n   80 MAT5S = (NMAT5 - IMAT5 + 1)/8\r\n      IF (MAT5S .GT. 0) ANY5 = .TRUE.\r\nC\r\nC     LOCATE MATT5 CARDS AND BLAST THEM INTO CORE IF THERE WERE ANY MAT5\r\nC\r\n      ANYT5  =.FALSE.\r\n      IMATT5 = NMAT5 + 1\r\n      NMATT5 = NMAT5\r\n      IF (.NOT.ANY5 .OR. (TSET.EQ.0 .AND. TSTEP.LT.0.)) GO TO 100\r\n      CALL LOCATE (*100,Z(LBUF),MATT5,FLAG)\r\n      CALL READ (*480,*90,MPT,Z(IMATT5),CORE,NOEOR,IWORDS)\r\n      CALL MESAGE (-8,0,NAME)\r\n   90 NMATT5 =  NMATT5 + IWORDS\r\n  100 MATT5S = (NMATT5 - IMATT5 + 1)/7\r\n      IF (MATT5S .GT. 0) ANYT5 = .TRUE.\r\n      CALL CLOSE (MPT,CLSREW)\r\nC\r\nC     IF A TEMPERATURE SET IS SPECIFIED -DIT- IS NOW READ INTO CORE,\r\nC     PROVIDING ANY MATT4 OR MATT5 CARDS WERE PLACED INTO CORE.\r\nC\r\n      IF ((TSET.EQ.0 .AND. TSTEP.LT.0.) .OR.\r\n     1   (.NOT.ANYT4 .AND. .NOT.ANYT5)) GO TO 130\r\nC\r\nC     BUILD LIST OF TABLE NUMBERS POSSIBLE FOR REFERENCE\r\nC\r\n      KK = 0\r\n      ITABNO = NMATT5 + 1\r\n      NTABNO = ITABNO\r\nC\r\n      IF (MATT4S .LE. 0) GO TO 110\r\n      DO 108 I = IMATT4,NMATT4,2\r\n      F4 = Z(I+1)\r\n      IF (N4) 108,108,102\r\n  102 IF (KK) 107,107,103\r\n  103 DO 105 J = ITABNO,NTABNO\r\n      F5 = Z(J)\r\n      IF (N4 .EQ. N5) GO TO 108\r\n  105 CONTINUE\r\nC\r\nC     ADD NEW TABLE ID TO LIST\r\nC\r\n  107 NTABNO = NTABNO + 1\r\n      Z(NTABNO) = Z(I+1)\r\n      KK = 1\r\n  108 CONTINUE\r\nC\r\n  110 IF (MATT5S .LE. 0) GO TO 120\r\n      DO 118 I = IMATT5,NMATT5,7\r\n      J1 = I + 1\r\n      J2 = I + 6\r\n      DO 117 J = J1,J2\r\n      F4 = Z(J)\r\n      IF (N4) 117,117,111\r\n  111 IF (KK) 115,115,113\r\n  113 DO 114 K = ITABNO,NTABNO\r\n      F5 = Z(K)\r\n      IF (N4 .EQ. N5) GO TO 117\r\n  114 CONTINUE\r\nC\r\nC     ADD NEW TABLE ID TO LIST\r\nC\r\n  115 NTABNO = NTABNO + 1\r\n      Z(NTABNO) = Z(J)\r\n      KK = 1\r\n  117 CONTINUE\r\n  118 CONTINUE\r\nC\r\n  120 N4 = NTABNO - ITABNO\r\n      Z(ITABNO) = F4\r\nC\r\nC     CALL BUG (4HTABL,120,Z(ITABNO),NTABNO-ITABNO+1)\r\nC\r\n      IF (N4) 130,130,122\r\n  122 CALL SORT (0,0,1,1,Z(ITABNO+1),N4)\r\nC\r\nC     OK READ IN DIRECT-INPUT-TABLE (DIT)\r\nC\r\n      IDIT  = NTABNO + 1\r\n      IGBUF = NHMAT - SYSBUF - 2\r\n      LZ    = IGBUF - IDIT  - 1\r\n      IF (LZ .LT. 10) CALL MESAGE (-8,0,NAME)\r\n      CALL PRETAB (DIT,Z(IDIT),Z(IDIT),Z(IGBUF),LZ,LUSED,Z(ITABNO),\r\n     1             TABLST)\r\n      NDIT  = IDIT + LUSED\r\n      NHMAT = NDIT + 1\r\nC\r\nC     CALL BUG (4HDITS,123,Z(IDIT),NDIT-IDIT+1)\r\nC\r\n      GO TO 140\r\nC\r\nC     WRAP UP THE PRE-HMAT SECTION\r\nC\r\n  125 NHMAT = IHMAT - 1\r\n      ANY4  =.FALSE.\r\n      ANY5  =.FALSE.\r\n      GO TO 140\r\n  130 NHMAT  = NMATT5\r\n  140 OLDMID = 0\r\n      OLDFLG = 0\r\n      OLDSIN = 0.0\r\n      OLDCOS = 0.0\r\n      OLDTEM = 0.0\r\n      OLDSTP = 0.0\r\n      S      = 0.0\r\n      C      = 0.0\r\n      DUM(1) = 0.0\r\n      ELTEMP = 0.0\r\n      NHMATX = NHMAT - OFFSET\r\nC\r\nC     CHECK FOR DUPLICATE MATID-S ON BOTH MAT4 AND MAT5 CARDS.\r\nC\r\n      IF (.NOT.ANY4 .OR. .NOT.ANY5) GO TO 490\r\n      J4 = IMAT4\r\n      J5 = IMAT5\r\n      F4 = Z(J4)\r\n      F5 = Z(J5)\r\n  150 IF (N4 - N5) 160,180,170\r\nC\r\nC     MAT4 ID IS LESS THAN MAT5 ID\r\nC\r\n  160 J4 = J4 + 3\r\n      IF (J4 .GT. NMAT4) GO TO 490\r\n      F4 = Z(J4)\r\n      GO TO 150\r\nC\r\nC     MAT5 ID IS LESS THAN MAT4 ID.\r\nC\r\n  170 J5 = J5 + 8\r\n      IF (J5 .GT. NMAT5) GO TO 490\r\n      F5 = Z(J5)\r\n      GO TO 150\r\nC\r\nC     ID OF MAT4 IS SAME AS THAT OF MAT5\r\nC\r\n  180 WRITE  (OUTPT,190) UWM,N4\r\n  190 FORMAT (A25,' 2155, MAT4 AND MAT5 MATERIAL DATA CARDS HAVE SAME ',\r\n     1       'ID =',I14, /5X,'MAT4 DATA WILL BE SUPPLIED WHEN CALLED ',\r\n     2       'FOR THIS ID.')\r\n      GO TO 170\r\nC\r\nC                 DATA RETURNED IF MAT-ID       DATA RETURNED IF MAT-ID\r\nC     INFLAG      IS ON A MAT4 CARD             IS ON A MAT5 CARD.\r\nC     =================================================================\r\nC\r\nC       1           1- K                               1- KXX\r\nC                   2- CP                              2- CP\r\nC\r\nC       2           1- K                               1- KXXB\r\nC                   2- 0.0                             2- KXYB\r\nC                   3- K                               3- KYYB\r\nC                   4- CP                              4- CP\r\nC\r\nC       3           1- K                               1- KXX\r\nC                   2- 0.0                             2- KXY\r\nC                   3- 0.0                             3- KXZ\r\nC                   4- K                               4- KYY\r\nC                   5- 0.0                             5- KYZ\r\nC                   6- K                               6- KZZ\r\nC                   7- CP                              7- CP\r\nC\r\nC       4           1- CP                              1- CP\r\nC\r\nC\r\nC\r\nC\r\nC     DATA LOOK UP SECTION.  FIND MAT-ID IN CARD IMAGES.\r\nC\r\nC\r\n  200 IF (INFLAG - OLDFLG) 260,210,260\r\n  210 IF (MATID  - OLDMID) 260,220,260\r\n  220 IF (ELTEMP - OLDTEM) 260,225,260\r\n  225 IF (TSTEP  - OLDSTP) 260,230,260\r\n  230 IF (TYPE  .EQ.    4) GO TO 250\r\n      IF (S      - OLDSIN) 260,240,260\r\n  240 IF (C      - OLDCOS) 260,250,260\r\nC\r\nC     ALL INPUTS SEEM TO BE SAME THUS RETURN IS MADE.\r\nC\r\n  250 GO TO 490\r\nC\r\nC     FIND POINTER TO SECOND WORD OF CARD IMAGE WITH MAT-ID DESIRED.\r\nC     AMONG EITHER MAT4S OR MAT5S.\r\nC\r\n  260 OLDFLG = INFLAG\r\n      OLDMID = MATID\r\n      OLDCOS = C\r\n      OLDSIN = S\r\n      OLDTEM = ELTEMP\r\n      OLDSTP = TSTEP\r\n      LINEAR = .TRUE.\r\n      IF (.NOT.ANY4) GO TO 270\r\n      CALL BISLOC (*270,MATID,Z(IMAT4),3,MAT4S,JPOINT)\r\n      J = IMAT4 + JPOINT\r\n      TYPE = 4\r\n      GO TO 280\r\n  270 IF (.NOT. ANY5) GO TO 460\r\n      CALL BISLOC (*460,MATID,Z(IMAT5),8,MAT5S,JPOINT)\r\n      J = IMAT5 + JPOINT\r\n      TYPE = 5\r\nC\r\nC     IF A THERMAL SET IS REQUESTED (TSET.NE.0) THEN A FACTOR, WHICH IS\r\nC     A FUNCTION OF THE AVERAGE ELEMENT TEMPERATURE, ELTEMP, (OR TIME\r\nC     STEP, TSTEP) AND THE TABULATED VALUE IN TABLEMI, IS USED AS A\r\nC     MULTIPLIER TO THE K-TERMS IN MAT4 OR MATT5\r\nC\r\nC     IF THE MATERIAL ID IS FOUND ON A -MAT4- AN ATTEMPT IS MADE TO FIND\r\nC     A CORRESPONDING -MATT4- CARD.  LIKEWISE THIS IS DONE IF THE\r\nC     MATERIAL ID IS FOUND ON A -MAT5- CARD WITH RESPECT TO A -MATT5-\r\nC     CARD. IF THE -MAT4- OR -MAT5- HAS A RESPECTIVE -MATT4- OR -MATT5-\r\nC     CARD, THEN THE THERMAL CONDUCTIVITY OR THE CONVECTIVE FILM COEFF.\r\nC     K, IS TEMPERATURE DEPENDENT IF TABLEM1, TABLEM2, TABLEM3 AND\r\nC     TABLEM4 ARE REFERENECED. K IS TIME DEPENDENT IF TABLEM5 IS USED.\r\nC     THE K-TERMS OF THE -MAT4- OR -MAT5- CARDS WILL BE MODIFIED BY\r\nC     USING -ELTEMP- AND THE -DIT- AS SPECIFIED IN THE RESPECTIVE FIELDS\r\nC     OF THE RESPECTIVE -MATT4- OR -MATT5- CARD.  A ZERO T(K) IN A\r\nC     PARTICULAR FIELD OF THE RESPECTIVE -MATT4- OR -MATT5- CARD IMPLIES\r\nC     NO TEMPERATURE DEPENDENCE FOR THAT RESPECTIVE K VALUE.\r\nC     -DIT- TABLES TABLEM1, TABLEM2, TABLEM3, TABLEM4 AND TABLEM5 MAY BE\r\nC     USED.\r\nC\r\nC\r\nC     MOVE MAT CARD INTO SPECIAL BUF WHERE IT CAN BE MODIFIED IF\r\nC     NECESSARY\r\nC\r\n  280 DO 290 I = 1,10\r\n      CARD(I) = Z(J)\r\n      J = J + 1\r\n  290 CONTINUE\r\nC\r\nC     CHECK FOR EXISTENCE OF A THERMAL SET REQUEST OR TIME STEP.\r\nC\r\n      IF ((TSET.EQ.0 .AND. TSTEP.LT.0.) .OR. INFLAG.EQ.4) GO TO 350\r\nC\r\nC     IF -MAT4- CARD, FIND THE -MATT4- CARD\r\nC     (IF NO MATT4 ASSUME NO TEMPERATURE OR TIME DEPENDENCE)\r\nC\r\n      IF (TYPE .EQ. 5) GO TO 300\r\n      IWORDS = 2\r\n      IMAT   = IMATT4\r\n      MATS   = MATT4S\r\n      GO TO 310\r\n  300 IWORDS = 7\r\n      IMAT   = IMATT5\r\n      MATS   = MATT5S\r\n  310 IF (MATS) 350,350,315\r\n  315 CALL BISLOC (*350,MATID,Z(IMAT),IWORDS,MATS,JPOINT)\r\n      ITEMP =  IMAT + JPOINT\r\n      NTEMP = ITEMP + IWORDS - 2\r\nC\r\nC     Z(I) FIELDS SPECIFYING A NON-ZERO TABLE IMPLY TEMPERATURE (OR\r\nC     TIME) DEPENDENCE ON CORRESPONDING FIELDS OF THE MAT4 OR MAT5\r\nC     STORED IN THE ARRAY -CARD-.\r\nC\r\n      KK = 0\r\n      DO 340 I = ITEMP,NTEMP\r\n      KK = KK + 1\r\n      F4 = Z(I)\r\n      IF (N4) 340,340,320\r\nC\r\nC     OK TEMPERATURE (OR TIME) DEPENDENCE.\r\nC\r\n  320 IF (TSET  .GT.  0) X = ELTEMP\r\n      IF (TSTEP .GE. 0.) X = TSTEP\r\n      CALL TAB (N4,X,FACTOR)\r\n      CARD(KK) = CARD(KK)*FACTOR\r\n      LINEAR = .FALSE.\r\n  340 CONTINUE\r\nC\r\nC     BRANCH ON INFLAG.\r\nC\r\n  350 IF (INFLAG.LT.1 .OR. INFLAG.GT.4) GO TO 440\r\n      GO TO (360,380,400,420), INFLAG\r\nC\r\nC     INFLAG = 1\r\nC\r\n  360 IF (TYPE .EQ. 5) GO TO 370\r\n      BUF(1) = CARD(1)\r\n      BUF(2) = CARD(2)\r\n      GO TO 490\r\n  370 BUF(1) = CARD(1)\r\n      BUF(2) = CARD(7)\r\n      GO TO 490\r\nC\r\nC     INFLAG = 2\r\nC\r\n  380 IF (TYPE .EQ. 5) GO TO 390\r\n      BUF(1) = CARD(1)\r\n      BUF(2) = 0.0\r\n      BUF(3) = BUF(1)\r\n      BUF(4) = CARD(2)\r\n      GO TO 490\r\n  390 CSQ = C*C\r\n      SSQ = S*S\r\n      CS  = C*S\r\n      CS2KXY = CS *2.0*CARD(2)\r\n      BUF(1) = CSQ* CARD(1) - CS2KXY   +  SSQ*CARD(4)\r\n      BUF(2) = CS *(CARD(1) - CARD(4)) + (CSQ - SSQ)*CARD(2)\r\n      BUF(3) = SSQ* CARD(1) + CS2KXY   +  CSQ*CARD(4)\r\n      BUF(4) = CARD(7)\r\n      GO TO 490\r\nC\r\nC     INFLAG = 3\r\nC\r\n  400 IF (TYPE .EQ. 5) GO TO 410\r\n      BUF(1) = CARD(1)\r\n      BUF(2) = 0.0\r\n      BUF(3) = 0.0\r\n      BUF(4) = BUF(1)\r\n      BUF(5) = 0.0\r\n      BUF(6) = BUF(1)\r\n      BUF(7) = CARD(2)\r\n      GO TO 490\r\n  410 BUF(1) = CARD(1)\r\n      BUF(2) = CARD(2)\r\n      BUF(3) = CARD(3)\r\n      BUF(4) = CARD(4)\r\n      BUF(5) = CARD(5)\r\n      BUF(6) = CARD(6)\r\n      BUF(7) = CARD(7)\r\n      GO TO 490\r\nC\r\nC     INFLAG = 4.  RETURN ONLY CP.\r\nC\r\n  420 IF (TYPE .EQ. 5) GO TO 430\r\n      BUF(1) = CARD(2)\r\n      GO TO 490\r\n  430 BUF(1) = CARD(7)\r\n      GO TO 490\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n  440 WRITE  (OUTPT,450) SFM,INFLAG\r\n  450 FORMAT (A25,' 2156, ILLEGAL INFLAG =',I14,' RECEIVED BY HMAT.')\r\n      GO TO 520\r\n  460 WRITE  (OUTPT,470) UFM,MATID\r\n  470 FORMAT (A23,' 2157, MATERIAL ID =',I14,\r\n     1       ' DOES NOT APPEAR ON ANY MAT4 OR MAT5 MATERIAL DATA CARD.')\r\n      GO TO 520\r\n  480 CALL MESAGE (-2,MPT,NAME)\r\n      GO TO 520\r\nC\r\nC     RETURN LOGIC\r\nC\r\n  490 CONTINUE\r\nC\r\nC     CALL BUG (4HHMAT,490,BUF,7)\r\nC\r\n      RETURN\r\nC\r\nC     ERROR - HMAT CALLED IN NON-THERMAL PROBLEM.\r\nC\r\n  500 WRITE  (OUTPT,510) SFM\r\n  510 FORMAT (A25,' 3062, HMAT MATERIAL ROUTINE CALLED IN A NON-HEAT-',\r\n     1       'TRANSFER PROBLEM.')\r\n  520 CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hring.f",
    "content": "      SUBROUTINE HRING (POINTS)\r\nC\r\nC     HEAT CONDUCTIVITY SMA1 ROUITNE FOR TRIANGULAR (POINTS=3) AND\r\nC     TRAPEZOIDAL (POINTS=4) RING ELEMENTS.\r\nC     THIS ROUTINE IS SEPARATE FROM KTRAPR AND KTRIRG SO AS TO BE\r\nC     IN OVERLAY WITH KTRMEM AND KQDMEM.\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         POINTS  ,OUTPT   ,SYSBUF  ,TINT    ,MAP(15)\r\n      CHARACTER       UFM*23  ,UWM*25  ,UIM*29  ,SFM*25  ,SWM*27\r\n      COMMON /XMSSG / UFM     ,UWM     ,UIM     ,SFM     ,SWM\r\n      COMMON /SYSTEM/ SYSBUF  ,OUTPT   ,NOGO\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      EQUIVALENCE     (T,TINT)\r\n      DATA    PI23  / 2.0943951024E0 /\r\n      DATA    MAP   / 1,2,3, 1,2,3, 2,3,4, 3,4,1, 4,1,2 /\r\nC\r\nC     ECPT LISTS\r\nC\r\nC     ECPT     TRIRG -------- TRMEM          TRAPRG ------- QDMEM\r\nC     ===========================================================\r\nC      1       EL-ID          EL-ID          EL-ID          EL-ID\r\nC      2       SIL-1          SIL-1          SIL-1          SIL-1\r\nC      3       SIL-2          SIL-2          SIL-2          SIL-2\r\nC      4       SIL-3          SIL-3          SIL-3          SIL-3\r\nC      5       THETA          THETA          SIL-4          SIL-4\r\nC      6       MATID          MATID          THETA          THETA\r\nC      7       CSID-1         T              MATID          MATID\r\nC      8       X1             NS-MASS        CSID-1         T\r\nC      9       Y1             CSID-1         X1             NS-MASS\r\nC     10       Z1             X1             Y1             CSID-1\r\nC     11       CSID-2         Y1             Z1             X1\r\nC     12       X2             Z1             CSID-2         Y1\r\nC     13       Y2             CSID-2         X2             Z1\r\nC     14       Z2             X2             Y2             CSID-2\r\nC     15       CSID-3         Y2             Z2             X2\r\nC     16       X3             Z2             CSID-3         Y2\r\nC     17       Y3             CSID-3         X3             Z2\r\nC     18       Z3             X3             Y3             CSID-3\r\nC     19       AVG-TEMP       Y3             Z3             X3\r\nC     20                      Z3             CSID-4         Y3\r\nC     21                      AVG-TEMP       X4             Z3\r\nC     22                                     Y4             CSID-4\r\nC     23                                     Z4             X4\r\nC     24                                     AVG-TEMP       Y4\r\nC     25                                                    Z4\r\nC     26                                                    AVG-TEMP\r\nC\r\nC     GEOMETRY CHECKS  X  MUST BE .GT.0, AND Y  = 0  FOR I = 1,2,..,PTS.\r\nC                       I                     I\r\nC\r\n      I1 = POINTS + 4\r\n      I2 = I1 + 4*POINTS - 1\r\n      DO 100 I = I1,I2,4\r\n      IF (ECPT(I+1)) 900,900,90\r\n   90 IF (ECPT(I+2)) 900,100,900\r\n  100 CONTINUE\r\nC\r\nC     POINT ORDERING CHECK.\r\nC\r\n      IF (POINTS .EQ. 4) GO TO 200\r\n      I1 = 1\r\n      I2 = 3\r\n      GO TO 300\r\n  200 I1 = 4\r\n      I2 = 15\r\n  300 JPOINT = POINTS + 1\r\n      DO 600 I = I1,I2,3\r\n      IR = MAP(I  )*4 + JPOINT\r\n      IS = MAP(I+1)*4 + JPOINT\r\n      IT = MAP(I+2)*4 + JPOINT\r\n      TEMP = (ECPT(IS) - ECPT(IR))*(ECPT(IT+2) - ECPT(IS+2))  -\r\n     1       (ECPT(IT) - ECPT(IS))*(ECPT(IS+2) - ECPT(IR+2))\r\n      IF (TEMP) 900,900,600\r\n  600 CONTINUE\r\nC\r\nC     TRAPEZOID TEST.\r\nC\r\n      IF (POINTS .NE. 4) GO TO 700\r\n      IF (ECPT(11)-ECPT(15)) 650,640,650\r\n  640 IF (ECPT(19)-ECPT(23)) 650,670,650\r\n  650 CALL PAGE2 (-2)\r\n      WRITE  (OUTPT,660) SWM,ECPT(1)\r\n  660 FORMAT (A27,' 2158, A TRAPRG ELEMENT =',I14,\r\n     1       ' DOES NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4.')\r\nC\r\nC     THICKNESS OF TRMEM OR QDMEM TO BE CALLED BELOW.\r\nC     QDMEM WILL SUBDIVIDE THICKNESS FOR SUB-TRIANGLES AND THUS\r\nC     T IS SET = INTEGER 1 AS A FLAG TO QDMEM ROUTINE WHICH WILL\r\nC     COMPUTE T FOR EACH.\r\nC\r\n  670 TINT = 1\r\n      TINT = TINT\r\n      GO TO 750\r\n  700 T = PI23*(ECPT(8) + ECPT(12) + ECPT(16))\r\nC\r\nC     CONVERT ECPT TO THAT OF A TRMEM OR QDMEM.\r\nC\r\n  750 J = 5*POINTS + 6\r\n      K = 4*POINTS + 1\r\n      DO 800 I = 1,K\r\n      ECPT(J) = ECPT(J-2)\r\n      J = J - 1\r\n  800 CONTINUE\r\n      ECPT(POINTS+4) = T\r\n      ECPT(POINTS+5) = 0.0\r\n      IF (POINTS .EQ. 4) GO TO 850\r\n      CALL KTRMEM (0)\r\n      RETURN\r\nC\r\n  850 CALL KQDMEM\r\n      RETURN\r\nC\r\nC     BAD GEOMETRY FATAL ERROR.\r\nC\r\n  900 WRITE  (OUTPT,910) UFM,ECPT(1)\r\n  910 FORMAT (A23,' 2159, TRIRG OR TRAPRG ELEMENT =',I14,\r\n     1       ' POSSESSES ILLEGAL GEOMETRY.')\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/hsbg.f",
    "content": "      SUBROUTINE HSBG(N,A,IA,B)\r\nC\r\nC     ..................................................................\r\nC\r\nC        SUBROUTINE HSBG\r\nC\r\nC        PURPOSE\r\nC           TO REDUCE A REAL MATRIX INTO UPPER ALMOST TRIANGULAR FORM\r\nC\r\nC        USAGE\r\nC           CALL HSBG(N,A,IA)\r\nC\r\nC        DESCRIPTION OF THE PARAMETERS\r\nC           N      ORDER OF THE MATRIX\r\nC           A      THE INPUT MATRIX, N BY N\r\nC           IA     SIZE OF THE FIRST DIMENSION ASSIGNED TO THE ARRAY\r\nC                  A IN THE CALLING PROGRAM WHEN THE MATRIX IS IN\r\nC                  DOUBLE SUBSCRIPTED DATA STORAGE MODE.  IA=N WHEN\r\nC                  THE MATRIX IS IN SSP VECTOR STORAGE MODE.\r\nC\r\nC        REMARKS\r\nC           THE HESSENBERG FORM REPLACES THE ORIGINAL MATRIX IN THE\r\nC           ARRAY A.\r\nC\r\nC        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED\r\nC           NONE\r\nC\r\nC        METHOD\r\nC           SIMILARITY TRANSFORMATIONS USING ELEMENTARY ELIMINATION\r\nC           MATRICES, WITH PARTIAL PIVOTING.\r\nC\r\nC        REFERENCES\r\nC           J.H. WILKINSON - THE ALGEBRAIC EIGENVALUE PROBLEM -\r\nC           CLARENDON PRESS, OXFORD, 1965.\r\nC\r\nC     ..................................................................\r\nC\r\n      DIMENSION B(1)\r\n      DOUBLE PRECISION A(1),PIV,S,T\r\nC\r\nC     MAKE THIS ROUTINE DOUBLE A AND B ARE SAME SPACE\r\nC\r\n      N2=N*N\r\n      K=N2\r\n      DO 10 I=1,N2\r\n      A(K)=B(K)\r\n10    K=K-1\r\n      L=N\r\n      NIA=L*IA\r\n      LIA=NIA-IA\r\nC\r\nC        L IS THE ROW INDEX OF THE ELIMINATION\r\nC\r\n   20 IF(L-3) 360,40,40\r\n   40 LIA=LIA-IA\r\n      L1=L-1\r\n      L2=L1-1\r\nC\r\nC        SEARCH FOR THE PIVOTAL ELEMENT IN THE LTH ROW\r\nC\r\n      ISUB=LIA+L\r\n      IPIV=ISUB-IA\r\n      PIV=DABS(A(IPIV))\r\n      IF(L-3) 90,90,50\r\n   50 M=IPIV-IA\r\n      DO 80 I=L,M,IA\r\n      T=DABS(A(I))\r\n      IF(T-PIV) 80,80,60\r\n   60 IPIV=I\r\n      PIV=T\r\n   80 CONTINUE\r\n   90 IF(PIV) 100,320,100\r\n100   IF(PIV-DABS(A(ISUB))) 180,180,120\r\nC\r\nC        INTERCHANGE THE COLUMNS\r\nC\r\n  120 M=IPIV-L\r\n      DO 140 I=1,L\r\n      J=M+I\r\n      T=A(J)\r\n      K=LIA+I\r\n      A(J)=A(K)\r\n  140 A(K)=T\r\nC\r\nC        INTERCHANGE THE ROWS\r\nC\r\n      M=L2-M/IA\r\n      DO 160 I=L1,NIA,IA\r\n      T=A(I)\r\n      J=I-M\r\n      A(I)=A(J)\r\n  160 A(J)=T\r\nC\r\nC        TERMS OF THE ELEMENTARY TRANSFORMATION\r\nC\r\n  180 DO 200 I=L,LIA,IA\r\n      A(I)=A(I)/A(ISUB)\r\n200   CONTINUE\r\nC\r\nC        RIGHT TRANSFORMATION\r\nC\r\n      J=-IA\r\n      DO 240 I=1,L2\r\n      J=J+IA\r\n      LJ=L+J\r\n      DO 220 K=1,L1\r\n      KJ=K+J\r\n      KL=K+LIA\r\n      A(KJ)=A(KJ)-A(LJ)*A(KL)\r\n220   CONTINUE\r\n  240 CONTINUE\r\nC\r\nC        LEFT TRANSFORMATION\r\nC\r\n      K=-IA\r\n      DO 300 I=1,N\r\n      K=K+IA\r\n      LK=K+L1\r\n      S=A(LK)\r\n      LJ=L-IA\r\n      DO 280 J=1,L2\r\n      JK=K+J\r\n      LJ=LJ+IA\r\n      S=S+A(LJ)*A(JK)\r\n280   CONTINUE\r\n  300 A(LK)=S\r\nC\r\nC        SET THE LOWER PART OF THE MATRIX TO ZERO\r\nC\r\n      DO 310 I=L,LIA,IA\r\n  310 A(I)=0.0\r\n  320 L=L1\r\n      GO TO 20\r\n  360 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/iapd.f",
    "content": "      FUNCTION IAPD(I,J,NC,NCRD)\r\n      IF(J.NE.1) GO TO 10\r\n      IAPD=NCRD+1\r\n      IF(I.EQ.1) RETURN\r\n      IAPD=IAPD+1\r\n      IF(I.EQ.2) RETURN\r\n      IAPD=3+3*(I-2)+NCRD\r\n      RETURN\r\n   10 IF(J.NE.2) GO TO 20\r\n      IAPD=3+NCRD\r\n      IF(I.EQ.1) RETURN\r\n      IAPD=4+NCRD\r\n      IF(I.EQ.2) RETURN\r\n      IAPD=4+3*(I-2)+NCRD\r\n      RETURN\r\n   20 IAPD=J+NC*(2*J-3)+NCRD\r\n      IF(I.EQ.1) RETURN\r\n      IAPD=IAPD+1\r\n      IF(I.EQ.2) RETURN\r\n      IAPD=IAPD+2*(I-2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/idf1.f",
    "content": "      SUBROUTINE IDF1 (EE,E2,    ETA01,ZET01,ARE,AIM,BRE,BIM,CRE,CIM,\r\n     1                 R1SQX,XIIJR,XIIJI)\r\nC   ***   INTEGRATES THE PLANAR PARTS OF THE INCREMENTAL\r\nC         OSCILLATORY KERNELS FOR UNSTEADY CASES\r\n      PI   = 3.1415926\r\n      PARN = ETA01**2 - ZET01**2\r\n      FACR = PARN*ARE + ETA01*BRE + CRE\r\n      FACI = PARN*AIM + ETA01*BIM + CIM\r\n      PARNR= BRE/2.0  + ETA01*ARE\r\n      PARNI= BIM/2.0  + ETA01*AIM\r\n      UP   = (ETA01-EE)**2 + ZET01**2\r\n      DOWN = (ETA01+EE)**2 + ZET01**2\r\n      ARG2 = UP/DOWN\r\n      ALARG2 = ALOG(ARG2)\r\n      TRM2R= PARNR * ALOG(ARG2)\r\n      TRM2I= PARNI * ALOG(ARG2)\r\n      TRM3R= 2.0*EE* ARE\r\n      TRM3I= 2.0*EE* AIM\r\n      AZET = ABS(ZET01)\r\n      IF  ((AZET/EE) . LE . 0.001)  GO TO  100\r\n      TEST0= ABS((R1SQX-E2)/(2.0*EE*AZET))\r\n      IF (TEST0.LE.0.0001)  GO TO 110\r\n      COEF = (2.0*EE)/(R1SQX-E2)\r\n      ARGA = COEF*ZET01\r\n      TEST = ABS(ARGA)\r\n      IF (TEST.LE.0.3)  GO TO 120\r\n      ARGT = COEF*AZET\r\n      ATANA= ATAN(ARGT)\r\n      FUNCT= ATANA/AZET\r\n      GO TO 170\r\n  100 CONTINUE\r\n      FUNCT= (2.0*EE)/(ETA01**2-E2)\r\n      GO TO 170\r\n  110 CONTINUE\r\n      FUNCT= 0.0\r\n      GO TO 170\r\n  120 CONTINUE\r\n      S    = ARGA**2\r\n      SER  = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.))))\r\n      ALPHA= E2*(COEF**2)*SER\r\n      FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2)\r\n  170 CONTINUE\r\n      TRM1R= FACR * FUNCT\r\n      TRM1I= FACI * FUNCT\r\n      XIIJR= TRM1R + TRM2R + TRM3R\r\n      XIIJI= TRM1I + TRM2I + TRM3I\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/idf2.f",
    "content": "      SUBROUTINE IDF2(EE,E2,    ETA01,ZET01,A2R,A2I,B2R,B2I,C2R,C2I,\r\n     1                R1SQX,DIIJR,DIIJI)\r\nC   ***   INTEGRATES THE NONPLANAR PARTS OF THE INCREMENTAL\r\nC         OSCILLATORY KERNELS FOR UNSTEADY CASES\r\n      EPS  = 0.0001\r\n      AZET = ABS(ZET01)\r\n      DENO = R1SQX-E2\r\n      PARN = ETA01**2 + ZET01**2\r\n      FACR = PARN*A2R + ETA01*B2R + C2R\r\n      FACI = PARN*A2I + ETA01*B2I + C2I\r\n      ETA02=ETA01**2\r\n      ZET02= ZET01**2\r\n      IF  ((AZET/EE) . LE . 0.001)  GO TO  120\r\n      TEST0= ABS((R1SQX-E2)/(2.0*EE*AZET))\r\n      IF (TEST0.GT.0.1)  GO TO 120\r\n      DEN2 = (ETA01+EE)**2+ZET02\r\n      DEN3 = (ETA01-EE)**2+ZET02\r\n      FAC2A= R1SQX*ETA01+(ETA02-ZET02)*EE\r\n      FAC3A= R1SQX*ETA01-(ETA02-ZET02)*EE\r\n      FAC2B= R1SQX+ETA01*EE\r\n      FAC3B= R1SQX-ETA01*EE\r\n      TRM2R= (FAC2A*A2R+FAC2B*B2R+(ETA01+EE)*C2R)/DEN2\r\n      TRM2I= (FAC2A*A2I+FAC2B*B2I+(ETA01+EE)*C2I)/DEN2\r\n      TRM3R=-(FAC3A*A2R+FAC3B*B2R+(ETA01-EE)*C2R)/DEN3\r\n      TRM3I=-(FAC3A*A2I+FAC3B*B2I+(ETA01-EE)*C2I)/DEN3\r\n      IF (TEST0.LE.0.0001)  GO TO 110\r\n      COEF = (2.0*EE)/(R1SQX-E2)\r\n      ARGA = COEF*ZET01\r\n      TEST = ABS(ARGA)\r\n      IF  (TEST.GT.0.3)  GO TO 90\r\n      S    = ARGA**2\r\n      SER  = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.))))\r\n      ALPHA= E2*(COEF**2)*SER\r\n      FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2)\r\n      GO TO 100\r\n   90 CONTINUE\r\n      ARGT = COEF*AZET\r\n      ATANA= ATAN(ARGT)\r\n      FUNCT= ATANA/AZET\r\n  100 CONTINUE\r\n      TRM1R= FACR*FUNCT\r\n      TRM1I= FACI*FUNCT\r\n      DIIJR= (TRM1R + TRM2R + TRM3R)/(2.0*ZET02)\r\n      DIIJI= (TRM1I + TRM2I + TRM3I)/(2.0*ZET02)\r\n      GO TO 170\r\n  110 CONTINUE\r\n      FUNCT= 0.0\r\n      GO TO 100\r\n  120 CONTINUE\r\n      DENA = (ETA01+EE)**2 + ZET01**2\r\n      DENB = (ETA01-EE)**2 + ZET01**2\r\n      UP1R = 2.0*(E2*A2R + C2R)\r\n      UP1I = 2.0*(E2*A2I + C2I)\r\n      UP2R = 4.0*E2*ETA01*B2R\r\n      UP2I = 4.0*E2*ETA01*B2I\r\n      TRM1R= (UP1R *(R1SQX+E2) + UP2R )/(DENA*DENB)\r\n      TRM1I= (UP1I *(R1SQX+E2) + UP2I )/(DENA*DENB)\r\n      IF  ((AZET/EE) . LE . 0.001)  GO TO  130\r\n      COEF = (2.0*EE)/(R1SQX-E2)\r\n      ARGA = COEF*ZET01\r\n      TEST = ABS(ARGA)\r\n      IF  (TEST.GT.0.3)  GO TO 125\r\n      S    = ARGA**2\r\n      SER  = 1./3.+S*(-1./5.+S*(1./7.+S*(-1./9.+S*(1./11.-S/13.))))\r\n      ALPHA= E2*(COEF**2)*SER\r\n      FUNCT= COEF*(1.0-ALPHA*(ZET01**2)/E2)\r\n      GO TO 140\r\n  125 CONTINUE\r\n      ARGT= COEF*AZET\r\n      ATANA= ATAN(ARGT)\r\n      FUNCT= ATANA/AZET\r\n      ALPHA= (E2/ZET02)*(1.0-FUNCT*(DENO/(2.0*EE)))\r\n      GO TO 140\r\n  130 CONTINUE\r\n      ALPHA= ((2.0*E2)/(ETA02-E2))**2\r\n  140 CONTINUE\r\n      TRM2R= -ALPHA*FACR/E2\r\n      TRM2I= -ALPHA*FACI/E2\r\n      DIIJR= EE*(TRM1R + TRM2R)/DENO\r\n      DIIJI= EE*(TRM1I + TRM2I)/DENO\r\n  170 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/idist.f",
    "content": "      FUNCTION IDIST (NS,ML,MAXLEV,IG,IC,IDEG,IDIS,IW,ICC,JG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS FUNCTION HAS AS ITS VALUE THE MAXIMUM DISTANCE OF ANY NODE\r\nC     IN COMPONENT IC(NS) FROM THE NODE NS.\r\nC     THE DISTANCE OF EACH NODE IN THIS COMPONENT IS STORED IN THE ARRAY\r\nC     IDIS.\r\nC     THE MAXIMUM NUMBER OF NODES AT THE SAME DISTANCE FROM NS IS\r\nC     STORED IN ML.\r\nC\r\nC     INTEGER          BUNPK\r\n      DIMENSION        IC(1),    IDEG(1),  IDIS(1),  IW(1),    ICC(1),\r\n     1                 IG(1),    JG(1)\r\n      COMMON /BANDS /  NN\r\nC\r\n      ICN = IC(NS)\r\n      NNC = ICC(ICN+1) - ICC(ICN)\r\n      DO 50 I = 1,NN\r\n      IF (IC(I)-IC(NS)) 50,40,50\r\n   40 IDIS(I) = 0\r\n   50 CONTINUE\r\n      LL = 1\r\n      L  = 0\r\n      KI = 0\r\n      KO = 1\r\n      ML = 0\r\n      IW(1) = NS\r\n      IDIS(NS) = -1\r\n  130 KI = KI + 1\r\n      IF (KI-LL) 135,132,135\r\n  132 L  = L + 1\r\n      LL = KO + 1\r\n      K  = KO - KI + 1\r\n      IF (K-ML) 135,135,133\r\n  133 ML = K\r\n      IF (ML-MAXLEV) 135,135,220\r\n  135 II = IW(KI)\r\n      N  = IDEG(II)\r\n      IF (N) 140,215,140\r\n  140 CALL BUNPAK (IG,II,N,JG)\r\n      DO 200 I = 1,N\r\n      IA = JG(I)\r\n      IF (IDIS(IA)) 200,150,200\r\n  150 IDIS(IA) = L\r\n      KO = KO + 1\r\n      IW(KO) = IA\r\n  200 CONTINUE\r\n      IF (KO-NNC) 130,205,205\r\n  205 IDIST = L\r\n      IDIS(NS) = 0\r\n      K = KO - LL + 1\r\n      IF (K-ML) 206,206,207\r\n  207 ML = K\r\n  206 CONTINUE\r\n      RETURN\r\nC\r\n  215 L = 0\r\n      GO TO 205\r\n  220 IDIST = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/idplot.f",
    "content": "      SUBROUTINE IDPLOT (IDX)\r\nC\r\n      COMMON /OUTPUT/ SKPOUT(32,6),ID(32)\r\n      COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(2),AXYMAX(2),EDGE(12)\r\n     1,      SKPA(3),CNTX,CNTY,SKPB(4),PLTYPE\r\n      INTEGER PLTYPE\r\nC\r\n      INTEGER BLANK\r\n      REAL SAVE(2,4)\r\n      DATA BLANK,LINSIZ / 1H ,3 /\r\nC\r\nC     DOES A PLOT ID EXIST AT ALL\r\nC\r\n      IDX = 1\r\n      DO 101 I = 1,20\r\n      IF (ID(I).NE.BLANK)  GO TO 102\r\n  101 CONTINUE\r\n      IDX = 0\r\n      GO TO 200\r\nC\r\n  102 DO 103 I = 1,2\r\n      SAVE(I,1) = XYMIN(I)\r\n      XYMIN(I) = 0.\r\n      SAVE(I,2) = XYMAX(I)\r\n      XYMAX(I) = AXYMAX(I)+EDGE(I)\r\n      SAVE(I,3) = AXYMAX(I)\r\n      AXYMAX(I) = XYMAX(I)\r\n      SAVE(I,4) = EDGE(I)\r\n      EDGE(I) = 0.\r\n  103 CONTINUE\r\n      NLINES = (AXYMAX(2)-7.*CNTY) / FLOAT(2*LINSIZ) + .1\r\n      IF (IABS(PLTYPE).NE.1)  GO TO 122\r\nC\r\nC     FILL TOP HALF OF PLOT WITH X-AXIS LINES ALL THE WAY ACROSS.\r\nC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      DO 111 I = 1,NLINES\r\n      Y = XYMAX(2) - FLOAT((I-1)*LINSIZ)\r\n      CALL AXIS (XYMIN(1),Y,XYMAX(1),Y,1,0)\r\n  111 CONTINUE\r\nC\r\nC     PRINT THE PLOT ID 2 TIMES IN THE MIDDLE OF THE PLOT.\r\nC\r\n      CALL PRINT (0,0,0,0,0,-1)\r\n      X = XYMIN(1) + AMAX1(0.,(AXYMAX(1)-80.*CNTX)/2.)\r\n      YY = Y-CNTY\r\n      DO 116 I = 1,2\r\n      Y = YY - CNTY*FLOAT(I-1)\r\n      CALL PRINT (X,Y,1,ID,20,0)\r\n  116 CONTINUE\r\nC\r\nC     FILL BOTTOM HALF OF PLOT WITH X-AXIS LINES ALL THE WAY ACROSS.\r\nC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      DO 121 I = 1,NLINES\r\n      Y = XYMIN(2) + FLOAT((I-1)*LINSIZ)\r\n      CALL AXIS (XYMIN(1),Y,XYMAX(1),Y,1,0)\r\n  121 CONTINUE\r\n      CALL AXIS (0,0,0,0,0,1)\r\n      GO TO 125\r\nC\r\nC     NOT A CRT PLOTTER. TYPE THE ID ONCE AT THE BOTTOM OF THE PAPER.\r\nC\r\n  122 CALL PRINT (0,0,0,0,0,-1)\r\n      X = XYMIN(1) + AMAX1(0.,(AXYMAX(1)-80.*CNTX)/2.)\r\n      Y = 0.\r\n      IF (PLTYPE.LT.0)  Y=CNTY/2.\r\n      CALL PRINT (X,Y,1,ID,20,0)\r\nC\r\nC     END OF ID PLOT. PUT BLANKS IN THE PLOT ID.\r\nC\r\n  125 CALL PRINT (0,0,0,0,0,1)\r\n      DO 126 I = 1,20\r\n      ID(I) = BLANK\r\n  126 CONTINUE\r\n      DO 127 I = 1,2\r\n      XYMIN(I) = SAVE(I,1)\r\n      XYMAX(I) = SAVE(I,2)\r\n      AXYMAX(I) = SAVE(I,3)\r\n      EDGE(I) = SAVE(I,4)\r\n  127 CONTINUE\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifb2ar.f",
    "content": "      SUBROUTINE IFB2AR (TYPE,IFB,AR,L)\r\nC\r\nC     THIS ROUTINE STORES IN ARRAY AR(L+1) THE BCD VALUE OF IFB, AND\r\nC     UPDATE THE L COUNTER\r\nC\r\nC     IF TYPE=1, IFB IS AN INTEGER, AND 8 DIGITS ARE USED IN AR, AND\r\nC                L IS INCREASED BY 2 (INTEGER IS RIGHT ADJUSTED)\r\nC     IF TYPE=2, IFB IS A REAL NUMBER, 12 DIGITS ARE USED IN AR, AND\r\nC                L IS INCREASED BY 3\r\nC     IF TYPE=3, IFB IS A BCD WORD, 4 LETTERS ARE USE IN AR, AND\r\nC                L IS INCREASED BY 1\r\nC\r\n      INTEGER      IA,TYPE,IFB,AR(1),L,SUB(2),ZERO(2)\r\n      REAL         RA,X,XL\r\n      CHARACTER*7  FMTX,FMT(10)\r\n      CHARACTER*8  C8\r\n      CHARACTER*10 FMTY,FNT(9)\r\n      CHARACTER*12 C12\r\n      EQUIVALENCE  (IA,RA)\r\n      DATA  FMT / '(F12.9)', '(F12.8)', '(F12.7)', '(F12.6)', '(F12.5)',\r\n     1            '(F12.4)', '(F12.3)', '(F12.2)', '(F12.1)', '(F12.0)'/\r\n      DATA  FNT /'(1X,F11.8)', '(1X,F11.7)', '(1X,F11.6)', '(1X,F11.5)',\r\n     1           '(1X,F11.4)', '(1X,F11.3)', '(1X,F11.2)', '(1X,F11.1)',\r\n     2           '(1X,F11.0)'/\r\n      DATA  ZERO/  4H    ,    4H 0.0  /\r\n      DATA  SUB /  4HIFB2,    4HAR    /\r\nC\r\n      K = -1\r\n      J = TYPE + 1\r\n      GO TO (300,200,300,250), J\r\n 100  K = K + 1\r\n      IF (K) 150,200,250\r\n 150  CALL MESAGE (-37,0,SUB)\r\nC\r\nC     INTEGER, RIGHT ADJUSTED\r\nC\r\n 200  WRITE (C8,210,ERR=300) IFB\r\n      READ  (C8,220) AR(L+1),AR(L+2)\r\n 210  FORMAT (I8)\r\n 220  FORMAT (2A4)\r\n      L = L + 2\r\n      RETURN\r\nC\r\nC     BCD WORD\r\nC\r\n 250  AR(L+1) = IFB\r\n      L = L + 1\r\n      RETURN\r\nC\r\nC     REAL NUMBER\r\nC\r\n 300  IA = IFB\r\n      X  = ABS(RA)\r\n      IF (X .LT. 1.0E-36) GO TO 390\r\n      XL = ALOG10(X)\r\n      IF (XL.GT.-4.0 .AND. XL.LT.10.0) IF (XL-1.0) 350,350,330\r\n 310  WRITE  (C12,320,ERR=100) RA\r\n 320  FORMAT (1P,E12.5)\r\n      GO TO 370\r\n 330  I = XL\r\n      IF (RA .LT. 0.) I = I + 1\r\n      IF (I.LE.0   .OR.   I.GT.9 ) GO TO 310\r\n      IF (RA.GT.0. .AND. XL.GT.0.) GO TO 340\r\n      FMTX = FMT(I)\r\n      GO TO 360\r\n 340  FMTY = FNT(I)\r\n      WRITE (C12,FMTY) RA\r\n      GO TO 370\r\n 350  FMTX = FMT(1)\r\n 360  WRITE  (C12,FMTX) RA\r\n 370  READ   (C12,380) (AR(L+J),J=1,3)\r\n 380  FORMAT (3A4)\r\n      GO TO 400\r\n 390  AR(L+1) = ZERO(1)\r\n      AR(L+2) = ZERO(1)\r\n      AR(L+3) = ZERO(2)\r\n 400  L = L + 3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp.f",
    "content": "      SUBROUTINE IFP\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        ORF,ANDF\r\n      LOGICAL         BADFOR,BADDAT,ABORT,EOFFLG,CF,CL,IAX,LHARM\r\n      INTEGER         FNM(2,16),II(16),IFLE(16),STATUS(16),IBLKDA(2),\r\n     1                JR(20),IEND(3),ITRL(7),IFPNA1(2),NM(2),KAP(4),\r\n     2                AP(12),KKL(40),IFPNA2(2),OOO(5),MENTRY(40),\r\n     3                NAME(2),INAM(2),ITYPE(2),NENTRY(80),ITYPE1(2),\r\n     4                ITYPE2(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / ENDARA(40)\r\n      COMMON /SYSTEM/ N1,NOUT,ABORT,N2(17),IAPP,N3(5),AXICCC,JUNK(10),\r\n     1                AXIFCC,DUM(30),ISUBS\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100),\r\n     1                M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,\r\n     2                IAXF,NAXF,LHARM,KNT,KSLOT1,KSLOT2,KSLOT3,KSLOT4,\r\n     3                KSLOT5,GC(7),LL(6)\r\n      COMMON /ZZZZZZ/ IBUFF(1)\r\nC\r\nC     NCDS    = LENGTH OF T1\r\nC     NCDSMX  = NO. OF CARD NAMES IN NASTRAN\r\nC     T3(1,K) = THE GINO OUTPUT FILE NUMBER\r\nC     T3(2,K) = THE APPROACH ACCEPTANCE FLAG\r\nC     T4(1,K) = THE CONICAL SHELL PROBLEM FLAG\r\nC     T4(2,K) = USED AS INTERNAL STORAGE WITHIN IFP\r\nC     T5(1,K) = THE MIN NO. OF WORDS ALLOWED PER CARD\r\nC               (MINUS MEANS OPEN-ENDED CARD)\r\nC     T5(2,K) = THE MAX NO. OF WORDS ALLOWED PER CARD\r\nC     T6(1,K) = THE FORMAT CHECK POINTER INTO F( )\r\nC     T6(2,K) = FIELD 2 UNIQUENESS CHECK FLAG\r\nC     T7(1,K) = LOCATE CODE\r\nC     T7(2,K) = TRAILER BIT POSITION\r\nC     F(T6(1,K)) = THE START OF THE FORMAT ACCEPTANCE STRING\r\nC\r\nC     T1(1,K),T1(2,K) = THE BCD CARD NAMES\r\nC\r\n      COMMON /IFPX0 / LBD,LCC,IB(18)\r\n      COMMON /IFPX1 / NCDS,T1(2,370)\r\n      COMMON /IFPX2 / T3(2,370)\r\n      COMMON /IFPX3 / T4(2,370)\r\n      COMMON /IFPX4 / T5(2,370)\r\n      COMMON /IFPX5 / T6(2,370)\r\n      COMMON /IFPX6 / T7(2,370)\r\n      COMMON /IFPX7 / F(1469)\r\n      EQUIVALENCE     (N3(3),IUMFED), (N2(9),LINE)\r\n      DATA    NCDSMX/ 359 /\r\n      DATA    NFLS  / 16  /\r\n      DATA    FNM(1, 1),FNM(2, 1) / 4HGEOM,4H1   /\r\n      DATA    FNM(1, 2),FNM(2, 2) / 4HEPT ,4H    /\r\n      DATA    FNM(1, 3),FNM(2, 3) / 4HMPT ,4H    /\r\n      DATA    FNM(1, 4),FNM(2, 4) / 4HEDT ,4H    /\r\n      DATA    FNM(1, 5),FNM(2, 5) / 4HDIT ,4H    /\r\n      DATA    FNM(1, 6),FNM(2, 6) / 4HPVT ,4H    /\r\n      DATA    FNM(1, 7),FNM(2, 7) / 4HDYNA,4HMICS/\r\n      DATA    FNM(1, 8),FNM(2, 8) / 4HGEOM,4H2   /\r\n      DATA    FNM(1, 9),FNM(2, 9) / 4HGEOM,4H3   /\r\n      DATA    FNM(1,10),FNM(2,10) / 4HGEOM,4H4   /\r\n      DATA    FNM(1,11),FNM(2,11) / 4HGEOM,4H5   /\r\n      DATA    FNM(1,12),FNM(2,12) / 4HPOOL,4H    /\r\n      DATA    FNM(1,13),FNM(2,13) / 4HFORC,4HE   /\r\n      DATA    FNM(1,14),FNM(2,14) / 4HMATP,4HOOL /\r\n      DATA    FNM(1,15),FNM(2,15) / 4HAXIC,4H    /\r\n      DATA    FNM(1,16),FNM(2,16) / 4HIFPF,4HILE /\r\n      DATA    IFLE   / 201,202,203,204,205,4HNPTP,207,208,209,210,211,\r\n     1                 4HPOOL ,213,214,215,216   /\r\n      DATA    IEND   , EOFZ   /3*2147483647,4HZZZZ    /\r\n      DATA    KKL    / 48, 49, 50, 67, 71, 75, 68, 72, 76, 11,\r\n     1                 10*0  ,\r\n     2                 45, 46, 44, 41,250,260, 39, 42,121, 34,\r\n     3                 37, 43, 31, 7*0/\r\n      DATA    IBLKDA / 4HBULK, 4HDATA /,  OOO    / 1HA,1HB,1HC,1HD,1HE/\r\n      DATA    BLANK  / 1H   /, KAP    / 0,-1,1,-1/\r\n      DATA    IFPNA1 / 4HIFP ,4HBEGN/, IFPNA2/ 4HIFP ,4HEND /\r\n      DATA    IPARM  , IVARY /4H1PAR , 4H1VAR/\r\n      DATA    ICOUNT , JCOUNT, KCOUNT/ 3*0   /\r\n      DATA    IT1K   , IT2K  , JT1K  ,JT2K   , KT1K  ,KT2K /\r\n     &        1H , 1H , 1H , 1H , 1H , 1H   /\r\n      DATA    AP     / 4HDMAP,4H     , 4H    ,\r\n     1                 4HDISP,4HLACE , 4HMENT,\r\n     2                 4HHEAT,4H     , 4H    ,\r\n     3                 4HAERO,4H     , 4H    /\r\n      DATA    MENTRY / 3001  , 3701  ,  3901 ,  1201 ,   401,\r\n     1                  801  , 1301  ,   501 ,   901 ,  5201, 10*0,\r\n     2                  202  ,  302  ,   402 ,   502 ,  2202,\r\n     3                 5302  ,  802  ,  1002 ,  2102 ,  1302,\r\n     4                 1402  , 1702  ,  1802 ,   7*0 /\r\n      DATA    NAME   / 4HIFP , 4H    /\r\n      DATA    NENTRY / 4HCROD, 4H    , 4HCTUB, 4HE   , 4HCVIS, 4HC   ,\r\n     1                 4HCMAS, 4HS3  , 4HCDAM, 4HP3  , 4HCELA, 4HS3  ,\r\n     2                 4HCMAS, 4HS4  , 4HCDAM, 4HP4  , 4HCELA, 4HS4  ,\r\n     3                 4HPLOT, 4HEL  , 20*0  ,\r\n     4                 4HPDAM, 4HP   , 4HPELA, 4HS   , 4HPMAS, 4HS   ,\r\n     5                 4HPQDM, 4HEM  , 4HPQDM, 4HEM1 , 4HPQDM, 4HEM2 ,\r\n     6                 4HPQUA, 4HD2  , 4HPSHE, 4HAR  , 4HPTOR, 4HDRG ,\r\n     7                 4HPTRI, 4HA2  , 4HPTRM, 4HEM  , 4HPTWI, 4HST  ,\r\n     8                 4HPVIS, 4HC   , 14*0  /\r\n      DATA    ITYPE1 / 4HELEM, 4HENT /\r\n      DATA    ITYPE2 / 4HPROP, 4HERTY/\r\nC\r\nC     ============================================================\r\nC     REMEMBER TO CHECK FOR THE LONGEST LINK IN OVERLAY STRUCTURE.\r\nC     ============================================================\r\nC\r\nC     INITIALIZE COMMON BLOCKS CIFS1P, 2P, 3P, 4P, AND CIFS5P\r\nC\r\n      CALL CIFSDD\r\nC\r\n      DO 10 J = 1,16\r\n      STATUS(J) = 1\r\n   10 CONTINUE\r\n      STATUS( 6) = 3\r\n      STATUS(12) = 3\r\n      LM     = 100\r\n      CURFIL = 0\r\n      KICK   = 0\r\n      IPVS   = 0\r\n      EOFFLG = .FALSE.\r\n      BADDAT = .FALSE.\r\n      BADFOR = .FALSE.\r\n      NPARAM = 0\r\n      KN     = 0\r\n      IAX    = .FALSE.\r\n      NAX    =-1\r\n      IAXF   = 0\r\n      NAXF   =-1\r\n      LHARM  = .TRUE.\r\n      KSLOT1 = 0\r\n      KSLOT2 = 0\r\n      KSLOT3 = 0\r\n      KSLOT4 = 0\r\n      KSLOT5 = 0\r\n      CALL CONMSG (IFPNA1,2,0)\r\n      IAP    = IABS(IAPP)\r\n      JAP    = KAP(IAP)\r\n      KNT    =-1\r\n      IAXIC  = AXICCC\r\n      IAXIF  = AXIFCC\r\n      AXICCC = 0\r\n      AXIFCC = 0\r\n      DO 20 J = 1,NFLS\r\n   20 II(J)  = 0\r\n      DO 30 J = 1,40\r\n      ENDARA(J) = 0\r\n   30 CONTINUE\r\n      NOPEN = KORSZ(IBUFF) - 3*N1\r\n      CALL SSWTCH (42,L42)\r\n      IF (NOPEN .GE. 0) GO TO 100\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,40) SFM\r\n   40 FORMAT (A25,' 303, NO OPEN CORE FOR IFP.')\r\n      ABORT =.TRUE.\r\n      RETURN\r\nC\r\nC     OPEN NPTP AND LOCATE BULK DATA\r\nC\r\n  100 KFIL = IFLE(6)\r\n      CALL OPEN (*130,KFIL,IBUFF(N1+1),0)\r\n  110 CALL SKPFIL (KFIL,1)\r\n      CALL READ (*1390,*160,KFIL,JR,2,1,KDUM)\r\n      IF (JR(1).EQ.IBLKDA(1) .AND. JR(2).EQ.IBLKDA(2)) GO TO 180\r\n      KICK = KICK + 1\r\n      IF (KICK .LT. 5) GO TO 110\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,120) SFM,JR(1),JR(2)\r\n  120 FORMAT (A25,' 304, IFP NOT READING NPTP. FILE BEING READ = ',2A4)\r\n      GO TO 150\r\n  130 CALL PAGE2 (2)\r\n      WRITE  (NOUT,140) SFM,KFIL\r\n  140 FORMAT (A25,' 305, IFP CANNOT OPEN GINO FILE',I10)\r\n  150 ABORT =.TRUE.\r\n      GO TO 1850\r\n  160 CALL PAGE2 (2)\r\n      WRITE  (NOUT,170) SFM\r\n  170 FORMAT (A25,' 306, READ LOGICAL RECORD ERROR')\r\n      GO TO 150\r\n  180 CALL READ (*1380,*160,IFLE(6),JR,20,1,KDUM)\r\n      KNT = KNT + 1\r\nC\r\nC     CHECK FOR 1PARM OR 1VARY CARDS\r\nC\r\n      IF (JR(1).EQ.IPARM .OR. JR(1).EQ.IVARY) CALL IFPPVC (*190,IPVS,JR)\r\n      IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR)\r\n      IF (L42 .NE. 0) CALL RCARD  (M1,M1F,NW,JR)\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1430\r\n      GO TO 220\r\n  190 CALL CLOSE (IFLE(6),1)\r\n      GO TO 1900\r\nC\r\nC     READ AND DECODE ONE PHYSICAL CARD\r\nC\r\n  200 IF (EOFFLG) GO TO 1410\r\n      CALL READ (*1460,*160,IFLE(6),JR,20,1,KDUM)\r\n      KNT = KNT + 1\r\n      IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR)\r\n      IF (L42 .NE. 0) CALL RCARD  (M1,M1F,NW,JR)\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 200\r\n  210 IF (EOFFLG) GO TO 1460\r\nC\r\nC     IDENTIFY CARD NAME\r\nC\r\n  220 DO 230 J = 1,NCDSMX\r\n      K = J\r\n      IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 280\r\n  230 CONTINUE\r\n      IF (KT1K.NE.T1(1,K) .OR. KT2K.NE.T1(2,K)) GO TO 240\r\n      KCOUNT = KCOUNT + 1\r\n      IF (KCOUNT-7) 250,270,200\r\n  240 KT1K = T1(1,K)\r\n      KT2K = T1(2,K)\r\n  250 CALL PAGE2 (2)\r\n      WRITE  (NOUT,260) UFM,M1(1),M1(2)\r\n  260 FORMAT (A23,' 307, ILLEGAL NAME FOR BULK DATA CARD ',2A4 )\r\n      ABORT =.TRUE.\r\n      GO TO 200\r\n  270 CALL PAGE2 (3)\r\n      WRITE  (NOUT,1150)\r\n      GO TO 200\r\n  280 KCOUNT = 0\r\n      CL =.FALSE.\r\n      CF =.TRUE.\r\n      KX = K  - 100\r\n      KY = KX - 100\r\nC\r\nC     CHECK APPROACH ACCEPTABILITY\r\nC\r\n      IF (T3(2,K)*JAP+1) 300,320,340\r\n  300 WRITE  (NOUT,310) UFM,T1(1,K),T1(2,K),AP(3*IAP-2),AP(3*IAP-1),\r\n     1                  AP(3*IAP)\r\n  310 FORMAT (A23,' 308, CARD ',2A4,' NOT ALLOWED IN ',3A4,' APPROACH.')\r\n      CALL PAGE2 (2)\r\n      ABORT =.TRUE.\r\n      GO TO 340\r\n  320 WRITE  (NOUT,330) UWM,T1(1,K),T1(2,K),AP(3*IAP-2),AP(3*IAP-1),\r\n     1                  AP(3*IAP)\r\n  330 FORMAT (A25,' 309, CARD ',2A4,' IMPROPER IN ',3A4,' APPROACH.')\r\n      CALL PAGE2(2)\r\n  340 IF (.NOT.IAX .OR. T4(1,K).GE.0) GO TO 400\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,350) UFM,T1(1,K),T1(2,K)\r\n  350 FORMAT (A23,' 310, CARD ',2A4,' NOT ALLOWED IN SAME DECK WITH ',\r\n     1       'AXIC CARD.')\r\n      ABORT =.TRUE.\r\nC\r\nC     ESTABLISH PROPER OUTPUT FILES FOR THIS CARD\r\nC\r\n  400 INDX = T3(1,K)\r\n      IF (INDX.EQ.CURFIL .OR. INDX.EQ.6) GO TO 420\r\n      IF (CURFIL.EQ.0 .OR. STATUS(CURFIL).EQ.1) GO TO 410\r\n      CALL CLOSE (IFLE(CURFIL),2)\r\n      STATUS(CURFIL) = 3\r\n  410 KFIL = IFLE(INDX)\r\n      CALL OPEN (*130,KFIL,IBUFF,STATUS(INDX))\r\n      CURFIL = INDX\r\n      STATUS(CURFIL) = -STATUS(CURFIL)\r\n      IF (STATUS(CURFIL) .NE. -1) GO TO 420\r\n      CALL WRITE (IFLE(CURFIL),FNM(1,CURFIL),2,1)\r\n      II(CURFIL) = 1\r\n      STATUS(CURFIL) = -3\r\n  420 ID = M1(3)\r\n  430 JF = NW - 2\r\n      DO 440 L = JF,LM\r\n  440 M(L) = 0\r\n      DO 450 L = 1,JF\r\n  450 M(L) = M1(L+2)\r\nC\r\nC     TEST UNIQUENESS OF FIELD 2 IF APPLICABLE\r\nC\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR.CF .OR. T6(2,K).NE.1)\r\n     1    GO TO 480\r\n      IF (ID .EQ. M(1)) GO TO 460\r\n      ID = M(1)\r\n      GO TO 480\r\n  460 KNT1 = KNT + 1\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,470) UFM,T1(1,K),T1(2,K),M(1),KNT1\r\n  470 FORMAT (A23,' 311, NON-UNIQUE FIELD 2 ON BULK DATA CARD ',2A4,I8,\r\n     1        10X,'H SORTED CARD COUNT =',I7)\r\n      ABORT =.TRUE.\r\n  480 DO 490 L = 1,LM\r\n  490 MF(L) = 0\r\n      LF = 0\r\n      DO 500 L = 1,JF\r\nC\r\nC     =========================================\r\nC     THIS SHOULD BE CHANGED WHEN RCARD CHANGES\r\nC\r\n      IF (M1F(L+1) .LT. 0) GO TO 540\r\nC     ========================================\r\n      LF = LF + 1\r\n  500 MF(L) = M1F(L+1)\r\n      GO TO 540\r\n  510 IF (EOFFLG) GO TO 1420\r\nC\r\nC     READ ANOTHER CARD (TO BE PROCESSED NEXT)\r\nC\r\n      KNT = KNT + 1\r\n      CALL READ (*550,*160,IFLE(6),JR,20,1,KDUM)\r\n      IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR)\r\n      IF (L42 .NE. 0) CALL RCARD  (M1,M1F,NW,JR)\r\n      IF (M1(1).NE.0  .OR. M1(2).NE.0) GO TO 580\r\nC\r\nC     CHECK FOR TOO MANY CONTINUATIONS\r\nC\r\n      IF (T6(1,K).LT.0 .AND. LF.GT.4) GO TO 600\r\n      IF (JF+NW-2-LM .GT. 0) GO TO 560\r\n      K1 = NW - 2\r\n      DO 520 L = 1,K1\r\n      K2 = JF + L\r\n  520 M(K2) = M1(L+2)\r\n      JF = JF + NW - 2\r\n      DO 530 L = 1,K1\r\nC\r\nC     =========================================\r\nC     THIS SHOULD BE CHANGED WHEN RCARD CHANGES\r\nC\r\n      IF (M1F(L+1) .LT. 0) GO TO 540\r\nC     =========================================\r\n      LF = LF + 1\r\n  530 MF(LF) = M1F(L+1)\r\n  540 MF(LF+1) = -32767\r\n      GO TO 510\r\n  550 EOFFLG =.TRUE.\r\n      M1(1)  = EOFZ\r\n      M1(2)  = EOFZ\r\n      GO TO 590\r\n  560 WRITE  (NOUT,570) UFM,T1(1,K),T1(2,K),M(1),KNT\r\n  570 FORMAT (A23,' 312, TOO MANY CONTINUATIONS FOR BULK DATA CARD ',\r\n     1        2A4,I8,6X,'SORTED CARD COUNT =',I7)\r\n      CALL PAGE2 (2)\r\n      ABORT =.TRUE.\r\n      GO TO 510\r\n  580 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 600\r\n  590 CL =.TRUE.\r\n  600 IF (.NOT.CF .OR. T6(2,K).EQ.2) GO TO 610\r\n      KKK = T3(1,K)\r\n      II(KKK) = II(KKK) + 1\r\n      CF =.FALSE.\r\n      IF (KKK.EQ.6 .OR. KKK.EQ.12) GO TO 640\r\n      ITRL(1) = T7(1,K)\r\n      ITRL(2) = T7(2,K)\r\n      ITRL(3) = K\r\n      CALL WRITE (IFLE(CURFIL),ITRL,3,0)\r\nC\r\nC     CHECK FOR MIN-MAX NO. OF WORDS\r\nC\r\n  610 IF (T5(1,K) .LT. 0) GO TO 640\r\n      L = JF\r\n      IF (T5(1,K)-L) 630,690,650\r\n  620 L = L + 4\r\n  630 IF (T5(2,K)-L) 650,690,620\r\n  640 L =-T5(1,K)\r\n      IF (JF.GE.L .AND. JF.LE.T5(2,K)) GO TO 690\r\n  650 WRITE  (NOUT,660) UFM,T1(1,K),T1(2,K),M(1),KNT\r\n  660 FORMAT (A23,' 313, ILLEGAL NUMBER OF WORDS ON BULK DATA CARD ',\r\n     1        2A4,I8,6X,'SORTED CARD COUNT =',I7)\r\n      WRITE  (NOUT,670) T5(1,K),T5(2,K),K,L,JF\r\n  670 FORMAT ('   T5(1&2,K),K,L,JF =',5I4)\r\n      CALL PAGE2 (2)\r\n      ABORT =.TRUE.\r\n      IF (T6(1,K)) 710,680,680\r\n  680 IF (.NOT.CL) GO TO 430\r\n      IF (T6(2,K) .EQ. 2) GO TO 210\r\n      CALL WRITE (IFLE(CURFIL),M,0,1)\r\n      IF (T4(2,K) .GT. 0) GO TO 210\r\n      II(KKK) = II(KKK) - 1\r\n      CALL BCKREC (IFLE(CURFIL))\r\n      GO TO 210\r\nC\r\nC     CHECK FOR PROPER FORMAT\r\nC\r\n  690 IF (T6(1,K) .LT. 0) GO TO 710\r\n      L  = T6(1,K)\r\n      L1 = 0\r\n      DO 700 K1 = 1,LF\r\n      L1 = L1 + 1\r\n      IF (MF(K1) .EQ. 3) L1 = L1 + 1\r\n      K2 = L + K1 - 1\r\n      IF (F(K2).EQ.MF(K1) .OR. F(K2).EQ.5) GO TO 700\r\n      IF (MF(K1).EQ.1    .AND. M(L1).EQ.0) GO TO 700\r\n      IF (MF(K1).NE.0 .OR. F(K2).NE.1 .AND. F(K2).NE.2) GO TO 1350\r\n  700 CONTINUE\r\n  710 N = 0\r\n      BADDAT =.FALSE.\r\n      BADFOR =.FALSE.\r\n      IF (IPVS .NE. 0) CALL IFPMDC\r\nC\r\nC     CALL SECONDARY ROUTINE TO EXAMINE EACH TYPE OF CARD\r\nC\r\n      KB = (K-1)/20 + 1\r\n      IF (KB .GT. 18) GO TO 1060\r\n      GO TO ( 810, 820, 830, 840, 850, 860, 870, 880, 890, 900,\r\n     1        910, 920, 930, 940, 950, 960, 970, 980), KB\r\n  810 KB = K\r\n      GO TO (1030,1030,1050,1010,1010,1010,1010,1010,1010,1010,\r\n     1       1010,1030,1030,1010,1010,1010,1030,1010,1010,1010), KB\r\n  820 KB = K - 20\r\n      GO TO (1010,1010,1010,1010,1010,1010,1010,1030,1010,1010,\r\n     1       1010,1050,1010,1010,1010,1010,1010,1010,1010,1010), KB\r\n  830 KB = K - 40\r\n      GO TO (1010,1010,1010,1010,1010,1010,1010,1010,1010,1010,\r\n     1       1050,1010,1010,1010,1010,1010,1010,1010,1010,1010), KB\r\n  840 KB = K - 60\r\n      GO TO (1010,1010,1010,1010,1010,1010,1010,1010,1010,1010,\r\n     1       1010,1010,1010,1010,1010,1010,1010,1010,1040,1040), KB\r\n  850 KB = K - 80\r\n      GO TO (1010,1030,1030,1030,1020,1020,1020,1050,1020,1040,\r\n     1       1040,1030,1020,1020,1020,1020,1020,1040,1050,1050), KB\r\n  860 KB = K - 100\r\n      GO TO (1050,1040,1050,1040,1040,1050,1050,1050,1050,1050,\r\n     1       1050,1050,1050,1050,1050,1050,1050,1050,1020,1020), KB\r\n  870 KB = K - 120\r\n      GO TO (1010,1040,1030,1040,1010,1030,1010,1010,1010,1010,\r\n     1       1030,1030,1020,1020,1010,1010,1010,1030,1030,1020), KB\r\n  880 KB = K - 140\r\n      GO TO (1020,1010,1030,1030,1030,1030,1030,1030,1030,1030,\r\n     1       1030,1030,1030,1030,1030,1030,1030,1010,1050,1050), KB\r\n  890 KB = K - 160\r\n      GO TO (1050,1020,1050,1050,1050,1010,1050,1050,1050,1050,\r\n     1       1050,1050,1050,1050,1050,1050,1050,1050,1010,1010), KB\r\n  900 KB = K - 180\r\n      GO TO (1010,1030,1030,1030,1030,1050,1050,1020,1040,1010,\r\n     1       1020,1020,1050,1050,1040,1040,1060,1050,1040,1020), KB\r\n  910 KB = K - 200\r\n      GO TO (1040,1040,1040,1040,1040,1040,1040,1040,1040,1040,\r\n     1       1040,1040,1040,1040,1010,1030,1040,1040,1040,1040), KB\r\n  920 KB = K - 220\r\n      GO TO (1040,1040,1010,1010,1010,1010,1010,1010,1010,1010,\r\n     1       1010,1010,1010,1010,1010,1010,1010,1010,1040,1010), KB\r\n  930 KB = K - 240\r\n      GO TO (1010,1040,1010,1030,1050,1050,1050,1050,1010,1010,\r\n     1       1050,1050,1050,1050,1050,1010,1010,1010,1010,1010), KB\r\n  940 KB = K - 260\r\n      GO TO (1020,1020,1050,1050,1050,1050,1050,1010,1050,1050,\r\n     1       1050,1050,1030,1030,1050,1050,1050,1050,1030,1020), KB\r\n  950 KB = K - 280\r\n      GO TO (1020,1020,1020,1030,1030,1030,1030,1030,1010,1030,\r\n     1       1010,1010,1010,1010,1040,1040,1030,1030,1010,1010), KB\r\n  960 KB = K - 300\r\n      GO TO (1050,1050,1050,1050,1050,1050,1050,1050,1050,1050,\r\n     1       1050,1050,1050,1050,1010,1010,1010,1010,1010,1010), KB\r\n  970 KB = K - 320\r\n      GO TO (1040,1040,1040,1040,1040,1040,1040,1040,1030,1030,\r\n     1       1010,1030,1040,1040,1040,1040,1010,1050,1050,1010), KB\r\n  980 KB = K - 340\r\n      GO TO (1010,1010,1010,1010,1030,1030,1030,1030,1030,1030,\r\n     1       1030,1030,1030,1020,1060,1010,1010,1010,1010,1060), KB\r\n 1010 CALL IFS1P (*1360,*680,*1100)\r\n      GO TO 1230\r\n 1020 CALL IFS2P (*1360,*680,*1100)\r\n      GO TO 1230\r\n 1030 CALL IFS3P (*1360,*680,*1100)\r\n      GO TO 1230\r\n 1040 CALL IFS4P (*1360,*680,*1100)\r\n      GO TO 1230\r\n 1050 CALL IFS5P (*1360,*680,*1100)\r\n      GO TO 1230\r\n 1060 CALL PAGE2 (2)\r\n      WRITE  (NOUT,1070) SFM,K\r\n 1070 FORMAT (A25,' 314, INVALID CALL FROM IFP.  K =',I10)\r\n      ABORT =.TRUE.\r\n      GO TO 1850\r\nC\r\n 1100 IF (.NOT.BADFOR) GO TO 1160\r\n      IF (IT1K.NE.T1(1,K) .OR. IT2K.NE.T1(2,K)) GO TO 1110\r\n      ICOUNT = ICOUNT + 1\r\n      IF (ICOUNT-7) 1120,1140,1170\r\n 1110 IT1K = T1(1,K)\r\n      IT2K = T1(2,K)\r\n 1120 CALL PAGE2 (2)\r\n      IF (ID .EQ. 0) ID = M(1)\r\n      WRITE  (NOUT,1130) UFM,T1(1,K),T1(2,K),ID,KNT\r\n 1130 FORMAT (A23,' 315, FORMAT ERROR ON BULK DATA CARD ',2A4,I8,17X,\r\n     1       'SORTED CARD COUNT =',I7)\r\n      GO TO 1170\r\n 1140 CALL PAGE2 (3)\r\n      WRITE  (NOUT,1150)\r\n 1150 FORMAT (31X,'.', /29X,'MORE', /31X,'.')\r\n      GO TO 1170\r\n 1160 IF (.NOT.BADDAT) ICOUNT = 0\r\n 1170 IF (.NOT.BADDAT) GO TO 1220\r\n      IF (JT1K.NE.T1(1,K) .OR. JT2K.NE.T1(2,K)) GO TO 1180\r\n      JCOUNT = JCOUNT + 1\r\n      IF (JCOUNT-7) 1190,1210,1230\r\n 1180 JT1K = T1(1,K)\r\n      JT2K = T1(2,K)\r\n 1190 CALL PAGE2 (2)\r\n      IF (ID .EQ. 0) ID = M(1)\r\n      WRITE  (NOUT,1200) UFM,T1(1,K),T1(2,K),ID,KNT\r\n 1200 FORMAT (A23,' 316, ILLEGAL DATA ON BULK DATA CARD ',2A4,I8,17X,\r\n     1       'SORTED CARD COUNT =',I7)\r\n      GO TO 1230\r\n 1210 CALL PAGE2 (3)\r\n      WRITE (NOUT,1150)\r\n      GO TO 1230\r\n 1220 IF (.NOT.BADFOR) JCOUNT = 0\r\n 1230 IF (.NOT.BADFOR .AND. .NOT.BADDAT) GO TO 1300\r\n      N = 0\r\n      ABORT =.TRUE.\r\n      GO TO 1340\r\nC\r\nC     WRITE OUT CARD DATA ON APPROPRIATE IFP OUTPUT FILE\r\nC\r\n 1300 IF (N .EQ. 0) GO TO 1340\r\n      T4(2,K) = T4(2,K) + N\r\n      DO 1310 L = 1,40\r\n      IF (K .EQ. KKL(L)) GO TO 1320\r\n 1310 CONTINUE\r\n      GO TO 1330\r\n 1320 CALL WRITE (IFLE(CURFIL),I,N,0)\r\n      GO TO 1340\r\n 1330 CONTINUE\r\n      IF (INDX.NE.6 .AND. .NOT.ABORT .OR. INDX.EQ.15)\r\n     1   CALL WRITE (IFLE(CURFIL),I,N,0)\r\n 1340 IF (KN .EQ. 0) GO TO 680\r\n      KN = 0\r\n      GO TO 430\r\n 1350 BADFOR =.TRUE.\r\n 1360 IF (.NOT.BADFOR) GO TO 1370\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,1130) UFM,T1(1,K),T1(2,K),M(1),KNT\r\n      ABORT = .TRUE.\r\n 1370 IF (.NOT.BADDAT) GO TO 1380\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,1200) UFM,T1(1,K),T1(2,K),M(1),KNT\r\n      ABORT =.TRUE.\r\n      GO TO 680\r\n 1380 IF (IAPP  .EQ. 1) GO TO 1850\r\n      IF (ISUBS .NE. 0) GO TO 1850\r\n 1390 WRITE  (NOUT,1400) SFM\r\n 1400 FORMAT (A25,' 319, IFP READING EOF ON NPTP.')\r\n      CALL PAGE2 (2)\r\n      ABORT =.TRUE.\r\n      GO TO 1850\r\n 1410 KERROR = 1410\r\n      GO TO 1440\r\n 1420 KERROR = 1420\r\n      GO TO 1440\r\n 1430 KERROR = 1430\r\n 1440 CALL PAGE2 (6)\r\n      WRITE  (NOUT,1450) SFM,KERROR,(JR(L),L=1,20),KNT\r\n 1450 FORMAT (A25,' 320, IFP ERROR',I5, /5X,'LAST CARD PROCESSED IS -',\r\n     1        20A4,1H-, /5X,'SORTED CARD COUNT =',I7)\r\n      ABORT =.TRUE.\r\n      GO TO 1850\r\n 1460 IF (CURFIL .NE. 0) CALL CLOSE (IFLE(CURFIL),2)\r\n      DO 1470 L = 1,NFLS\r\n      IF (L.EQ.6 .OR. L.EQ.12 .OR. STATUS(L).EQ.1) GO TO 1470\r\n      KFIL = IFLE(L)\r\n      CALL OPEN  (*130,KFIL,IBUFF,3)\r\n      CALL WRITE (IFLE(L),IEND,3,1)\r\n      II(L) = II(L) + 1\r\n      CALL CLOSE (IFLE(L),1)\r\n 1470 CONTINUE\r\nC\r\nC     CHECK TO SEE IF ALL MULTI-ENTRY CARD DATA (CROD, CTUBE, ETC.)\r\nC     ARE SORTED ON THEIR ELEMENT/PROPERTY IDS\r\nC\r\n      DO 1480 L = 1,40\r\n      IF (ENDARA(L) .LT. 0) GO TO 1490\r\n 1480 CONTINUE\r\nC\r\nC     EITHER NO MULTI-ENTRY CARD DATA EXIST OR, IF THEY DO,\r\nC     THEY ARE ALL SORTED ON THEIR ELEMENT/PROPERTY IDS\r\nC\r\n      GO TO 1700\r\nC\r\nC     NOT ALL MULTI-ENTRY CARD DATA ARE SORTED ON THEIR\r\nC     ELEMENT/PROPERTY IDS.\r\nC\r\nC     CLOSE SCRATCH FILE (FILE 6) AT CURRENT POSITION WITHOUT REWIND\r\nC     AND WITHOUT END-OF-FILE.\r\nC\r\n 1490 CALL CLOSE (IFLE(6),2)\r\nC\r\nC     READ DATA FROM GEOM2/EPT FILE, SORT ALL MULTI-ENTRY CARD DATA ON\r\nC     THEIR ELEMENT/PROPERTY IDS AND WRITE THE RESULTING DATA ON\r\nC     SCRATCH FILE (FILE 16)\r\nC\r\nC     NOTE.  GEOM2 IS IFLE(8) AND EPT IS IFLE(2)\r\nC\r\n      DO 1690 NNN = 1,2\r\n      IF (NNN .EQ. 2) GO TO 1500\r\n      IFILE   = IFLE(8)\r\n      INAM(1) = FNM(1,8)\r\n      INAM(2) = FNM(2,8)\r\n      ITYPE(1)= ITYPE1(1)\r\n      ITYPE(2)= ITYPE1(2)\r\n      JMIN    = 1\r\n      JMAX    = 20\r\n      GO TO 1510\r\n 1500 IFILE   = IFLE(2)\r\n      INAM(1) = FNM(1,2)\r\n      INAM(2) = FNM(2,2)\r\n      ITYPE(1)= ITYPE2(1)\r\n      ITYPE(2)= ITYPE2(2)\r\n      JMIN    = 21\r\n      JMAX    = 40\r\n 1510 DO 1520 L = JMIN,JMAX\r\n      IF (ENDARA(L) .LT. 0) GO TO 1530\r\n 1520 CONTINUE\r\n      GO TO 1690\r\n 1530 ILEFT = NOPEN - NPARAM - 2\r\n      ISTRT = 2*N1  + NPARAM + 2\r\n      CALL GOPEN (IFILE,IBUFF,0)\r\n      KFIL = IFLE(16)\r\n      CALL OPEN  (*130,IFLE(16),IBUFF(N1+1),1)\r\n      CALL WRITE (IFLE(16),INAM,2,1)\r\n      INDEX = JMIN\r\n 1540 CALL READ (*1680,*1670,IFILE,IBUFF(ISTRT),3,0,IFLAG)\r\n      CALL WRITE (IFLE(16),IBUFF(ISTRT),3,0)\r\n      IF (INDEX .GT. JMAX) GO TO 1560\r\n      DO 1550 L = JMIN,JMAX\r\n      IF (IBUFF(ISTRT).EQ.MENTRY(L) .AND. ENDARA(L).LT.0) GO TO 1580\r\n 1550 CONTINUE\r\n 1560 CALL READ  (*1660,*1570,IFILE,IBUFF(ISTRT),ILEFT,0,IFLAG)\r\n      CALL WRITE (IFLE(16),IBUFF(ISTRT),ILEFT,0)\r\n      GO TO 1560\r\n 1570 CALL WRITE (IFLE(16),IBUFF(ISTRT),IFLAG,1)\r\n      GO TO 1540\r\n 1580 INDEX = INDEX + 1\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,1590) UIM,NENTRY(2*L-1),NENTRY(2*L),ITYPE\r\n 1590 FORMAT (A29,' 334, ',2A4,' MULTI-ENTRY CARD DATA ARE NOT SORTED ',\r\n     1       'ON THEIR ',2A4,' IDS.', /5X,\r\n     2       'SUBROUTINE IFP WILL SORT THE DATA.')\r\n      IFAIL = 0\r\n 1600 CALL READ (*1660,*1610,IFILE,IBUFF(ISTRT),ILEFT,0,IFLAG)\r\n      IFAIL = IFAIL + 1\r\n      GO TO 1600\r\n 1610 IF (IFAIL .EQ. 0) GO TO 1630\r\n      NWDS = (IFAIL-1)*ILEFT + IFLAG\r\n      CALL PAGE2 (4)\r\n      WRITE  (NOUT,1620) UFM,NENTRY(2*L-1),NENTRY(2*L),NWDS\r\n 1620 FORMAT (A23,' 333, UNABLE TO SORT ',2A4,' MULTI-ENTRY CARD DATA ',\r\n     1       'IN SUBROUTINE IFP DUE TO INSUFFICIENT CORE.', /5X,\r\n     3       'ADDITIONAL CORE REQUIRED =',I10,7H  WORDS)\r\n      CALL MESAGE (-61,0,0)\r\n 1630 NWDS = 4\r\n      IF (L.EQ.10 .OR. L.EQ.33) NWDS = 3\r\n      IF (L.EQ.21 .OR. L.EQ.23) NWDS = 2\r\n      CALL SORT  (0,0,NWDS,1,IBUFF(ISTRT),IFLAG)\r\n      CALL WRITE (IFLE(16),IBUFF(ISTRT),IFLAG,1)\r\nC\r\nC     CHECK SORTED MULTI-ENTRY CARD DATA FOR NON-UNIQUE\r\nC     ELEMENT/PROPERTY IDS\r\nC\r\n      IREPT = -10000000\r\n      NIDSM1= IFLAG/NWDS - 1\r\n      DO 1650 KK = 1,NIDSM1\r\n      EID   = IBUFF(ISTRT+KK*NWDS)\r\n      EIDM1 = IBUFF(ISTRT+KK*NWDS-NWDS)\r\n      IF (EID .NE. EIDM1) GO TO 1650\r\n      IF (EID .EQ. IREPT) GO TO 1650\r\n      IREPT = EID\r\n      ABORT = .TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1640) UFM,ITYPE,EID,NENTRY(2*L-1),NENTRY(2*L)\r\n 1640 FORMAT (A23,' 335, NON-UNIQUE ',2A4,' ID',I9,' ENCOUNTERED IN ',\r\n     1        2A4,' MULTI-ENTRY CARD DATA.')\r\n 1650 CONTINUE\r\n      GO TO 1540\r\n 1660 CALL MESAGE (-2,IFILE,NAME)\r\n 1670 CALL MESAGE (-3,IFILE,NAME)\r\n 1680 CALL CLOSE  (IFILE,1)\r\n      CALL CLOSE  (IFLE(16),1)\r\nC\r\nC     COPY DATA BACK FROM SCRATCH FILE (FILE 16) TO GEOM2/EPT FILE\r\nC\r\n      KFIL = IFLE(16)\r\n      CALL OPEN (*130,IFLE(16),IBUFF,0)\r\n      KFIL = IFILE\r\n      CALL OPEN (*130,IFILE,IBUFF(N1+1),1)\r\n      CALL CPYFIL (IFLE(16),IFILE,IBUFF(ISTRT),ILEFT,IFLAG)\r\n      CALL CLOSE (IFLE(16),1)\r\n      CALL CLOSE (IFILE,1)\r\n 1690 CONTINUE\r\nC\r\nC     RE-OPEN SCRATCH FILE (FILE 6) TO WRITE WITHOUT REWIND\r\nC\r\n      KFIL = IFLE(6)\r\n      CALL OPEN (*130,IFLE(6),IBUFF(N1+1),3)\r\nC\r\nC     WRITE TRAILERS\r\nC\r\n 1700 DO 1740 J = 1,NFLS\r\n      IF (J.EQ.6 .OR. J.EQ.12) GO TO 1740\r\n      DO 1710 L = 2,7\r\n 1710 ITRL(L) = 0\r\n      ITRL(1) = IFLE(J)\r\n      IF (II(J).LE.2 .OR. ABORT) GO TO 1730\r\n      DO 1720 L = 1,NCDSMX\r\n      IF (T3(1,L).NE.J .OR. T4(2,L).LE.0) GO TO 1720\r\n      KT721 = ANDF(T7(2,L),511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      ITRL(K1) = ORF(ITRL(K1),TWO(K2))\r\n 1720 CONTINUE\r\n 1730 CALL WRTTRL (ITRL)\r\n 1740 CONTINUE\r\nC\r\nC     WRITE PARAM CARDS ON NPTP\r\nC\r\n      KFIL = IFLE(16)\r\n      CALL IFPPAR\r\n      IF (NPARAM.LE.0 .OR. ABORT) GO TO 1850\r\n      CALL OPEN (*130,KFIL,IBUFF,1)\r\n      ITRL(1) = KFIL\r\n      ITRL(2) = NPARAM\r\n      CALL WRTTRL (ITRL(1))\r\n      CALL WRITE (KFIL,FNM(1,6),2,1)\r\n      CALL WRITE (KFIL,IBUFF(2*N1+1),NPARAM,1)\r\n      IPM   = 1\r\n      IPN   = 2*N1 + IPM\r\n      GO TO 1840\r\n 1800 IPN   = 2*N1 + IPM\r\n      NM(1) = IBUFF(IPN  )\r\n      NM(2) = IBUFF(IPN+1)\r\n      JPM   = 1\r\n 1810 JPN   = 2*N1 + JPM\r\n      IF (NM(1).NE.IBUFF(JPN) .OR. NM(2).NE.IBUFF(JPN+1)) GO TO 1830\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1820) UFM,NM(1),NM(2)\r\n 1820 FORMAT (A23,' 321, NON-UNIQUE PARAM NAME - ',2A4,1H-)\r\n      ABORT =.TRUE.\r\n 1830 JPM   = JPM + 4\r\n      IF (IBUFF(JPN+2) .GT. 2) JPM = JPM + 1\r\n      IF (IBUFF(JPN+2) .GT. 5) JPM = JPM + 2\r\n      IF (JPM .LT. IPM) GO TO 1810\r\n 1840 IPM = IPM + 4\r\n      IF (IBUFF(IPN+2) .GT. 2) IPM = IPM + 1\r\n      IF (IBUFF(IPN+2) .GT. 5) IPM = IPM + 2\r\n      IF (IPM .LT. NPARAM) GO TO 1800\r\n      CALL EOF (KFIL)\r\n      CALL CLOSE (KFIL,1)\r\n 1850 CALL CLOSE (IFLE(6),1)\r\nC\r\nC     CHECK FOR PROPERTY ID UNIQUENESS IN EPT FILE AND PROPERTY ID\r\nC     SPECIFIED IN GEOM2 ELEMENTS\r\nC\r\n      CALL SSWTCH (34,JJ1)\r\n      IF (JJ1 .EQ. 1) GO TO 1900\r\n      KFIL = IFLE(2)\r\n      ITRL(1) = KFIL\r\n      CALL RDTRL (ITRL)\r\n      J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7)\r\n      JJ1 = 1\r\n      IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 1860\r\n      JJ1 = 0\r\n      CALL OPEN (*130,KFIL,IBUFF,0)\r\n 1860 KFIL = IFLE(8)\r\n      ITRL(1) = KFIL\r\n      CALL RDTRL (ITRL)\r\n      J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7)\r\n      IF (ITRL(1).LT.0 .OR. J.EQ.0) GO TO 1880\r\n      CALL OPEN (*130,KFIL,IBUFF(N1+1),0)\r\n      JJ = N1*2 + 1\r\n      CALL PIDCK (IFLE(2),KFIL,JJ1,IBUFF(JJ))\r\n      CALL CLOSE (KFIL,1)\r\n      IF (JJ1) 1880,1870,1890\r\n 1870 IF (IBUFF(JJ) .EQ. 0) GO TO 1880\r\n      JJ1 = JJ + IBUFF(JJ) + 1\r\nC\r\nC     CHECK FOR MATERIAL ID UNIQUENESS IN MPT FILE\r\nC     AND MATERIAL ID SPECIFIED IN PROPERTY CARDS\r\nC\r\n      KFIL = IFLE(3)\r\n      ITRL(1) = KFIL\r\n      CALL RDTRL (ITRL)\r\n      J = ITRL(2) + ITRL(3) + ITRL(4) + ITRL(5) + ITRL(6) + ITRL(7)\r\n      IBUFF(JJ1) = 1\r\n      IF (ITRL(1).LT.0 .OR. J.EQ.0) IBUFF(JJ1) = 0\r\n      IF (IBUFF(JJ1) .EQ. 1) CALL OPEN (*130,KFIL,IBUFF(N1+1),0)\r\n      CALL MATCK (KFIL,IFLE(2),IBUFF(JJ),IBUFF(JJ1))\r\n      IF (IBUFF(JJ1) .NE. 0) CALL CLOSE (KFIL,1)\r\n 1880 CALL CLOSE (IFLE(2),1)\r\nC\r\nC     CHECK COORDINATE ID'S AND THEIR REFERENCES FROM\r\nC     OTHER BULK DATA CARDS\r\nC\r\n 1890 JJ = NOPEN + N1 - 2\r\nC                + N1 - 2 = 2*N1 - (N1+2)\r\n      CALL CIDCK (IBUFF(N1+2),IBUFF,JJ)\r\n 1900 CONTINUE\r\nC\r\nC     CHECK FOR ERRORS IN AXISYMMETRIC DATA\r\nC\r\n      IF (IAX) AXICCC = 1\r\n      AXIFCC = IAXF\r\n      IF (AXICCC.LE.0 .OR. AXIFCC.LE.0) GO TO 1920\r\n      AXICCC = 0\r\n      AXIFCC = 0\r\n      ABORT  = .TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,1910) UFM\r\n 1910 FORMAT (A23,' 337, BOTH AXIC AND AXIF CARDS USED IN BULK DATA.')\r\n      GO TO 1980\r\n 1920 IF (AXICCC .LE. 0) GO TO 1950\r\n      IF (IAXIC  .GT. 0) GO TO 1980\r\n      AXICCC = 0\r\nC\r\nC     SUPPRESS ABORT IF IT IS A UMFEDIT RUN\r\nC\r\n 1930 IF (IUMFED .NE. 0) GO TO 1980\r\n      ABORT = .TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,1940) UFM\r\n 1940 FORMAT (A23,' 338, AXISYMMETRIC CARD REQUIRED IN CASE CONTROL')\r\n      GO TO 1980\r\n 1950 IF (AXIFCC .LE. 0) GO TO 1960\r\n      IF (IAXIF.GT.0 .OR. AXIFCC.EQ.2) GO TO 1980\r\n      AXIFCC = 0\r\n      GO TO 1930\r\n 1960 IF (IAXIC.LE.0 .AND. IAXIF.LE.0) GO TO 1980\r\n      AXICCC = 0\r\n      AXIFCC = 0\r\nC\r\nC     SUPPRESS ABORT IF IT IS A UMFEDIT RUN\r\nC\r\n      IF (IUMFED .NE. 0) GO TO 1980\r\n      ABORT = .TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1970) UFM\r\n 1970 FORMAT (A23,' 339, ILLEGAL USE OF AXISYMMETRIC CARD IN CASE ',\r\n     1       'CONTROL DECK.')\r\nC\r\n 1980 IF (IAPP .GE. 0) GO TO 1990\r\nC\r\nC     CHECK CERTAIN RESTART FLAGS BASED ON BULK DATA\r\nC\r\n      MN = LBD + 1\r\nC\r\nC     TURN ON TEMPMX$ IF MATERIALS USE TEMPS\r\nC\r\n      IF (T4(2,91)+T4(2,102)+T4(2,189) .EQ. 0) GO TO 1990\r\n      IF (ANDF(IB(1),TWO(28)).EQ.0 .AND. ANDF(IB(5),TWO(32)).EQ.0 .AND.\r\n     1    ANDF(IB(4),TWO( 6)).EQ.0 .AND. ANDF(IB(3),TWO(32)).EQ.0 .AND.\r\n     2    ANDF(IB(4),TWO( 2)).EQ.0 .AND. ANDF(IB(4),TWO( 3)).EQ.0 .AND.\r\n     3    ANDF(IB(4),TWO( 4)).EQ.0 ) GO TO 1990\r\n      IB(MN) = ORF(IB(MN),TWO(19))\r\n 1990 CALL CONMSG (IFPNA2,2,0)\r\nC\r\n      CALL SSWTCH (27,L27)\r\n      IF (L27 .EQ. 0) GO TO 2060\r\n      CALL PAGE1\r\n      LINE = LINE + 8\r\n      WRITE  (NOUT,2000)\r\n 2000 FORMAT ('0DIAG 27 DUMP OF IFP TABLES AFTER IFP PROCESSING',     /,\r\n     1        1H0,6X,6HIFX1BD,9X,6HIFX2BD,7X,6HIFX3BD,2X,6HIFX4BD,3X,\r\n     2               6HIFX5BD,6X,6HIFX6BD                            ,/,\r\n     3        1H ,5X,8(1H-),2X,17(1H-),2X,6(1H-),2X,6(1H-),2X,8(1H-),\r\n     4            2X,12(1H-)                                         ,/,\r\n     5        1H ,1X,3H(A),3X,3H(B),5X,3H(C),3X,3H(D),5X,3H(E),2X,3H(N),\r\n     6            5X,3H(F),   3H(G),3X,3H(H),1X,3H(I),3X,3H(J),5X,3H(K),\r\n     7            4X,3H(L),3X,3H(M),4X,3H(O),3X,4HFLAG               ,/\r\n     8        1H0 )\r\n 2010 FORMAT (1H ,I4,1X,2A4,I4,1X,1H(,2A4,1H),I3,I5,I4,\r\n     1            I4,I4,I6,I3,I7,I8,16X,\r\n     2            I1,I1,A1,I1,4X,I2)\r\n      DO 2050 J = 1,NCDSMX\r\n      ID = T3(1,J)\r\n      IF (ID .LE. 0) GO TO 2020\r\n      LF = FNM(1,ID)\r\n      LM = FNM(2,ID)\r\n      GO TO 2030\r\n 2020 CONTINUE\r\n      LF = BLANK\r\n      LM = BLANK\r\n 2030 CONTINUE\r\n      N  = J\r\n      K  = N/90 + MIN0(1,MOD(N,90))\r\n      N  = N - 90*(K-1)\r\n      KX = N/30 + MIN0(1,MOD(N,30))\r\n      N  = N - 30*(KX-1)\r\n      KY = N/6  + MIN0(1,MOD(N, 6))\r\n      L  = N - 6*(KY-1)\r\n      IFLAG = 0\r\n      IF (EJECT(1) .EQ. 0) GO TO 2040\r\n      WRITE (NOUT,2000)\r\n      LINE = LINE + 8\r\n 2040 CONTINUE\r\n      LINE = LINE + 1\r\n      WRITE (NOUT,2010) J,T1(1,J),T1(2,J),\r\n     1                    T3(1,J),LF,LM,T3(2,J),\r\n     2                    T4(1,J),T4(2,J),\r\n     3                    T5(1,J),T5(2,J),\r\n     4                    T6(1,J),T6(2,J),\r\n     5                    T7(1,J),T7(2,J),\r\n     6                    K,KX,OOO(KY),L,IFLAG\r\n 2050 CONTINUE\r\nC\r\n 2060 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1.f",
    "content": "      SUBROUTINE IFP1\r\nC\r\nC     READS AND INTERPRETS CASE CONTROL DECK FOR NASTRAN\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         TAPBIT,SETCD,PLOTCD,BIT64\r\n      REAL            SYMSEQ(360),XCORE(1),XINTCD\r\n      DIMENSION       CASE(200,2),XCASE(200,2),NIFP(2),CASEN(11),\r\n     1                NAME(2),TTLCD(9),CCCD(9),CCCDS(54),XYPRM(5),\r\n     2                OUTOP(15),ISUBC(5),OUTPCH(13),CORE(7),COREY(401)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32),\r\n     1                HEAD2(32),HEAD3(32),PLTID(32)\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,NOGO,INTP,MPCN,SPCN,LOGFL,LOADNN,NLPP,\r\n     1                STFTEM,IPAGE,LINE,TLINE,MAXLIN,DATE(3),TIM,IECHO,\r\n     2                SPLOTS,APP,IDUM,LSYSTM,DUMMS(16),NBPW,DUMMY(28),\r\n     3                ISUBS,DUMZ(16),INTRA,DMZ(4),LPCH\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /XIFP1 / BLANK,BIT64\r\n      COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,\r\n     1                NSYM,ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR\r\n      COMMON /IFP1HX/ MSST,MISSET(20)\r\n      COMMON /XSORTX/ IBUF41\r\n      EQUIVALENCE     (COREX(1) ,XCASE(1,1) , CASE(1,1),COREY(1)),\r\n     1                (CORE(1)  ,XCORE( 1)  , COREY(401)        ),\r\n     2                (NONO     ,OUTOP(15)) , (IAXIC  ,DUMMS(4) ),\r\n     3                (IAXIF    ,DUMMS(15)) , (SET    ,CCCD( 7) ),\r\n     4                (PLOT     ,TTLCD(4) ) , (XYPL   ,XYPRM(1) ),\r\n     5                (OUTP     ,CCCD( 1) ) , (BEGI   ,CCCD( 2) ),\r\n     6                (BOTH     ,OUTOP(1) ) , (NONE   ,OUTOP(2) )\r\n      DATA    NIFP  / 4H  IF, 4HP1  /\r\n      DATA    CASEN / 4HC A , 4HS E , 4H   C, 4H O N, 4H T R, 4H O L,\r\n     1                4H   D, 4H E C, 4H K  , 4H E C, 4H H O  /\r\n      DATA    IBOB,   ISYMCM, LOADN , IOUT2 , INOMOR          /\r\n     A        0,      0,      1,      0,      0               /\r\n      DATA    OUTPCH/ 11,18 , 21,24 , 27,30 , 33,36 , 152,155,158,168,\r\n     1                171   /\r\n      DATA    BLANK4, CARD  , COUN  , T     , EQUAL1, NPTP   ,DOL1   /\r\n     1        4H    , 4HCARD, 4HCOUN, 4HT   , 4H=   , 4HNPTP ,4H$    /\r\n      DATA    NAME  / 4HCASE, 4HCC  /\r\n      DATA    TTLCD / 4HTITL, 4HSUBT, 4HLABE, 4HPLOT, 4HXTIT, 4HYTIT,\r\n     1                4HTCUR, 4HYTTI, 4HYBTI /\r\n      DATA    CCCD  / 4HOUTP, 4HBEGI, 4HSYM , 4HSUBC, 4HSYMC, 4HREPC,\r\n     1                4HSET , 4HNCHE, 4HSCAN /\r\n      DATA    CCCDS / 4HMPC , 4HSPC , 4HLOAD, 4HNLLO, 4HDEFO, 4HTEMP,\r\n     1                4HDLOA, 4HMETH, 4HFREQ, 4HIC  , 4HDISP, 4HVECT,\r\n     2                4HPRES, 4HTHER, 4HSTRE, 4HELST, 4HELFO, 4HFORC,\r\n     3                4HACCE, 4HVELO, 4HSPCF, 4HMAXL, 4HTSTE, 4HSYMS,\r\n     4                4HSUBS, 4HECHO, 4HMODE, 4HLINE, 4HDSCO, 4HK2PP,\r\n     5                4HM2PP, 4HB2PP, 4HTFL , 4HFMET, 4HOFRE, 4HOTIM,\r\n     6                4HCMET, 4HSDAM, 4HSDIS, 4HSVEC, 4HSVEL, 4HSACC,\r\n     7                4HNONL, 4HPLCO, 4HAXIS, 4HHARM, 4HRAND, 4HOLOA,\r\n     8                4HGPFO, 4HESE , 4HMPCF, 4HAERO, 4HGUST, 4HSTRA/\r\n      DATA    ALL   / 4HALL /, COSI / 4HCOSI/\r\n      DATA    DEFA  / 4HDEFA/, MAT  / 4HMATE/\r\n      DATA    OM    / 4HOM  /, ONEB / 4H1   /\r\n      DATA    PCDB  / 4HPCDB/, PLT1 / 4HPLT1/\r\n      DATA    PLT2  / 4HPLT2/, SINE / 4HSINE/\r\n      DATA    XYCB  / 4HXYCD/, XYOU / 4HXYOU/\r\n      DATA    PTIT  / 4HPTIT/, FLUI / 4HFLUI/\r\n      DATA    SYMM  / 4HSYMM/, ANTI / 4HANTI/\r\n      DATA    ANOM  / 4HANOM/\r\n      DATA    XYPRM / 4HXYPL, 4HXYPR, 4HXYPU, 4HXYPE, 4HXYPA /\r\n      DATA    OUTOP / 4HBOTH, 4HNONE, 4HUNSO, 4HSORT, 4HPUNC, 4HPRIN,\r\n     1                4HREAL, 4HIMAG, 4HPHAS, 4HNOPR, 4HMAXS, 4HVONM,\r\n     2                4HEXTR, 4HLAYE, 4HNONO/\r\nC\r\nC     INITIALIZE\r\nC\r\n      ICC    = 1\r\n      ICNT   = 0\r\n      NSET   = 0\r\n      NSYM   = 0\r\n      ISUB   = 1\r\n      MSST   = 0\r\n      ORG    = 0\r\n      PORG   =-1\r\n      ISTR   = 1\r\n      NCPW4  = 4\r\n      NWPC   = 20\r\n      JUMPH  = 0\r\n      NPCH   = 0\r\n      NOGOPC = 0\r\n      SCR1   = 301\r\n      SETCD  =.FALSE.\r\n      PLOTCD =.FALSE.\r\n      BLANK  = BLANK4\r\n      BIT64  = NBPW.EQ.64\r\n      CASECC = NAME(1)\r\n      ZZZZBB = 0\r\n      ZZZZBB = KHRFN1(ZZZZBB,1,ZZZZBB,4)\r\n      EQUAL  = KHRFN1(ZZZZBB,1,EQUAL1,1)\r\n      DOL    = KHRFN1(ZZZZBB,1,DOL1  ,1)\r\n      IBEN   = KHRFN1(ZZZZBB,1,BLANK ,1)\r\n      IS     = 9999999\r\n      IEOR   = RSHIFT(COMPLF(0),1)\r\n      NMODES = 1\r\n      LENCC  = 200\r\n      DO 50 J = 1,2\r\n      DO 50 I = 1,LENCC\r\n   50 CASE(I,J) = 0\r\n      CASE(166,1) = LENCC\r\n      DO 60 J = 1,2\r\n      DO 60 I = 1,96\r\n   60 CASE(I+38,J) = BLANK\r\n      DO 61 I = 1,5\r\n      ISUBC(I) = BLANK\r\n   61 CONTINUE\r\n      NZ = KORSZ(CORE) - NWPC - 1\r\nC\r\nC     BLANK TITLE\r\nC\r\n      DO 65 I = 1,96\r\n      TITLE(I) = BLANK\r\n   65 CONTINUE\r\n      DO 70 I = 1,11\r\n   70 HEAD1(I+9) = CASEN(I)\r\n      HEAD2(  4) = CARD\r\n      HEAD3(  4) = COUN\r\n      HEAD3(  5) = T\r\nC\r\n      I81 = NWPC + 1\r\nC\r\nC     READ IN DATA-- STORE TITLE CARDS\r\nC\r\n      NZ   = NZ  - SYSBUF\r\n      ICRQ = I81 - NZ\r\n      IF (I81 .GT. NZ) GO TO 330\r\n      CALL OPEN (*300,SCR1,COREX(NZ+1),1)\r\n   80 CALL XREAD (*2000,CORE(1))\r\n      CALL WRITE (SCR1,CORE(1),NWPC,0)\r\n      IF (IBUF41 .EQ. -1) GO TO 80\r\nC\r\nC     IS THIS A TITLE SUBTITLE,LABEL,ETC CARD\r\nC\r\n      CALL IFP1F (*80,IWORD,I2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      ASSIGN 80 TO IRET1\r\n      ISTR = 0\r\n      ISUB = 1\r\n      DO 100 I = 1,6\r\n      IF (IWORD .EQ. CCCD(I)) GO TO (145, 340, 140, 140, 140, 140), I\r\nC                                    OUTP BEGI SYM  SUBC SYMC REPC\r\nC\r\n  100 CONTINUE\r\n      IF (INOMOR .EQ. 1) GO TO 80\r\n      DO 101 I = 1,3\r\n      IF (IWORD .EQ. TTLCD(I)) GO TO (110, 120, 130), I\r\nC                                     TITL SUBT LABE\r\nC\r\n  101 CONTINUE\r\n      GO TO 80\r\n  110 IF (LOGFL .LE. 0) CALL LOGFIL (CORE(1))\r\n  115 ITYPE = 1\r\n      GO TO 150\r\n  120 ITYPE = 2\r\n      GO TO 150\r\n  130 ITYPE = 3\r\n      GO TO 150\r\n  131 ITYPE = 7\r\n      GO TO 150\r\nC\r\nC     STOP TITLE SEARCH\r\nC\r\n  140 INOMOR = 1\r\n      GO TO 80\r\nC\r\nC     IDENTIFY PLOT PACKETS\r\nC\r\n  145 CALL XRCARD (CORE(I81),NZ,CORE(1))\r\n      TEMP = CORE(I81+5)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. PLOT) GO TO 146\r\n      IF (TEMP.EQ.XYPL .OR. TEMP.EQ.XYOU) GO TO 140\r\n      GO TO 80\r\nC\r\nC     SET PLOT FLAG\r\nC\r\n  146 CASE(135,1) = 1\r\n      GO TO 140\r\nC\r\nC     FIND EQUAL SIGN COPY REMAINING DATA ON CARD\r\nC\r\n  150 CALL IFP1G (ITYPE,CASE(1,1),ISUB)\r\n      GO TO IRET1, (80,350)\r\nC\r\nC     FILE ERRORS\r\nC\r\n  300 IP1 = -1\r\n  301 CALL MESAGE (IP1,FILE,NIFP)\r\n      RETURN\r\nC\r\n  310 IP1 = -2\r\n      GO TO 301\r\n  320 IP1 = -3\r\n      GO TO 301\r\n  330 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 301\r\n  340 CALL CLOSE (SCR1,1)\r\nC\r\nC     START BUILDING RECORDS\r\nC\r\n      CALL PAGE\r\n      NWDSC  = NWPC + 1\r\n      ASSIGN 350 TO IRET1\r\n      IHOWDY = 1\r\n      NSYM   = 0\r\n      NSYMS  = 0\r\n      IUN    = 0\r\n      IXYPL  = 0\r\n      ICASEC = 0\r\n      ISTR   = 1\r\n      NSUB   = 0\r\n      MSST   = 0\r\n      IBUF1  = NZ + 1\r\n      FILE   = SCR1\r\n      CALL OPEN (*300,SCR1,COREX(IBUF1),0)\r\n      NZ     = NZ - SYSBUF\r\n      IBUF2  = NZ + 1\r\n      FILE   = CASECC\r\n      IF (ISUBS .EQ. 0) GO TO 603\r\nC\r\nC     IN SUBSTRUCTURES, THE CASECC FILE CONTAINS DATA ON THE FRONT.\r\nC     SKIP FILE BEFORE WRITING.\r\nC\r\n      CALL OPEN (*603,FILE,COREX(IBUF2),3)\r\n      CALL WRITE (FILE,NAME,2,1)\r\n  350 FILE  = SCR1\r\n      ICONT = 0\r\n      ICRQ  = I81 - NZ\r\n      IF (I81 .GT. NZ) GO TO 330\r\n  351 CONTINUE\r\n      CALL READ (*310,*320,SCR1,CORE(1),NWPC,0,FLAG)\r\n      WRITE  (OTPE,360) ICC,(CORE(I),I=1,NWPC)\r\n  360 FORMAT (11X,I8,6X,20A4)\r\n      ICC  = ICC  + 1\r\n      LINE = LINE + 1\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      IF (DOL .EQ. KHRFN1(ZZZZBB, 1,CORE(1),1))  GO TO 350\r\nC\r\nC     IS THIS TITLE SUBTITLE OR LABEL CARD\r\nC\r\n      CALL IFP1F (*350,IWORD,I2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 372 I = 1,4\r\n      IF (IWORD.EQ.TTLCD(I) .AND. IBOB+IXYPL.EQ.0)\r\n     1    GO TO (115, 120, 130, 131 ), I\r\nC                TITL SUBT LABE PLOT\r\nC\r\n  372 CONTINUE\r\n      IF (IWORD.EQ.PTIT .AND. IBOB.EQ.1) GO TO 1838\r\n      IF (IXYPL .NE. 1) GO TO 374\r\n      DO 373 I = 5,9\r\n      IF (IWORD .EQ. TTLCD(I)) GO TO 1838\r\n  373 CONTINUE\r\n  374 CALL XRCARD (CORE(I81),NZ,CORE(1))\r\n      IF (ICONT .EQ. 1) GO TO 650\r\nC\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,CORE(I81+1),0)\r\n      IF (CORE(I81+1) .EQ. OUTP) GO TO 590\r\n      IF (CORE(I81+1) .EQ. BEGI) GO TO 1320\r\n      IF (IBOB  .EQ. 1) GO TO 1500\r\n      IF (IXYPL .EQ. 1) GO TO 1836\r\n      IF (CORE(I81) .LT. 0) GO TO 380\r\n      IWORD = CORE(I81+1)\r\n      DO 375 I = 3,9\r\n      IO = I - 2\r\n      IF (IWORD .EQ. CCCD(I))\r\n     1    GO TO (580, 1060, 1560, 1720, 1050, 791, 1055), IO\r\nC                SYM  SUBC  SYMC  REPC  SET  NCHE  SCAN\r\nC\r\n  375 CONTINUE\r\nC\r\nC\r\nC     FIND VALUE AFTER EQUAL SIGN\r\nC\r\n      L = 2*IABS(CORE(I81)) + I81\r\n      DO 376 I = I81,L\r\n      TEMP = CORE(I)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. EQUAL1) GO TO 377\r\n  376 CONTINUE\r\n      IL = -617\r\n      GO TO 1291\r\n  377 I1 = I + 1\r\n      IF (I .EQ. L) I1 = I1 + 1\r\nC\r\n      IWORD = CORE(I81+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 379 I = 1,54\r\n      IF (IWORD .EQ. CCCDS(I))\r\nC\r\nC               MPC   SPC   LOAD  NLLO  DEFO  TEMP  DLOA  METH  FREQ\r\n     1  GO TO ( 400,  430,  440,  460,  540,  690,  550,  760,  560,\r\nC\r\nC                IC   DISP  VECT  PRES  THER  STRE  ELST  ELFO  FORC\r\n     2          570,  770,  770,  770,  770,  780,  780,  790,  790,\r\nC\r\nC               ACCE  VELO  SPCF  MAXL  TSTE  SYMS  SUBS  ECHO  MODE\r\n     3          800,  810,  820,  610,  620,  630,  630, 1420, 1490,\r\nC\r\nC               LINE  DSCO  K2PP  M2PP  B2PP  TFL   FMET  OFRE  OTIM\r\n     4         1630, 1660, 1680, 1700, 1710, 1730, 1880, 1740, 1740,\r\nC\r\nC               CMET  SDAM  SDIS  SVEC  SVEL  SACC  NONL  PLCO  AXIS\r\n     5         1750, 1760, 1780, 1780, 1790, 1800, 1810, 1665, 1850,\r\nC\r\nC               HARM  RAND  OLOA  GPFO  ESE   MPCF  AERO  GUST  STRA\r\n     6         1860, 1870,  480, 1890, 1900,  405, 1910, 1930, 1950), I\r\nC\r\n  379 CONTINUE\r\nC\r\nC     UNABLE TO FIND CARD TYPE\r\nC\r\n  380 CALL IFP1D (-601)\r\n      IUN  = IUN + 1\r\n      IF (IUN .LT. 10) GO TO 350\r\nC\r\nC     ASSUME BEGIN BULK MISSING\r\nC\r\n      CALL IFP1D (-611)\r\n      GO TO 1320\r\nC\r\nC     MPC CARD FOUND\r\nC\r\n  400 IK = 2\r\n      GO TO 490\r\nC\r\nC     MPCFORCE CARD\r\nC\r\n  405 IK = 173\r\n      GO TO 830\r\nC\r\nC     TOO MANY SPECIFICATIONS\r\nC\r\n  410 CALL IFP1D  (602)\r\n      GO TO IRET, (720,500,860)\r\nC\r\nC     SPC CARD DETECTED\r\nC\r\n  430 IK = 3\r\n      GO TO 490\r\nC\r\nC     LOAD SET SELECTION\r\nC\r\n  440 IK = 4\r\n      GO TO 490\r\nC\r\nC     PNL FOR VDR\r\nC\r\n  460 IK = 10\r\n      GO TO 830\r\nC\r\nC     OUTPUT LOAD SET\r\nC\r\n  480 IK = 17\r\n      GO TO 830\r\n  490 IF (CORE(I1) .LE. 0) CALL IFP1D (-617)\r\n  491 ASSIGN 500 TO IRET\r\nC\r\nC     SKIP CHECK FOR HARMONIC AS DEFAULT IS NON-ZERO\r\nC\r\n      IF (CASE(IK,ISUB) .NE. 0) GO TO 410\r\n  500 CASE(IK,ISUB) = CORE(I1)\r\n  501 IF (CORE(I1-1) .NE. -1) GO TO 520\r\nC\r\nC     CHECK FOR END OF DATA\r\nC\r\n      IF (CORE(I1+1) .EQ. IEOR) GO TO 350\r\nC\r\nC     DATA CARD DID NOT END PROPERLY\r\nC\r\n  503 CONTINUE\r\n      IL = -603\r\n      GO TO 1291\r\nC\r\nC     NO INTEGER IN INTEGER FIELD\r\nC\r\n  520 IL = -604\r\n      GO TO 1291\r\nC\r\nC     DEFORMATION SET\r\nC\r\n  540 IK = 6\r\n      GO TO 490\r\nC\r\nC     DLOAD CARD\r\nC\r\n  550 IK = 13\r\n      GO TO 490\r\nC\r\nC     FREQUENCY CARD\r\nC\r\n  560 IK = 14\r\n      GO TO 490\r\nC\r\nC     IC CARD\r\nC\r\n  570 IK = 9\r\n      GO TO 490\r\nC\r\nC     SYM CARD\r\nC\r\n  580 NSYM = NSYM + 1\r\n      IF (NSYM-361) 585,586,1070\r\n  585 SYMSEQ(NSYM) = 1.0\r\n      GO TO 1070\r\n  586 CALL IFP1D (-633)\r\n      GO TO 1070\r\nC\r\nC     OUTPUT\r\nC\r\n  590 IOUT2 = 1\r\nC\r\nC     BLANK CHECK\r\nC\r\n      TEMP = CORE(I81+5)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (CORE(I81+3).EQ.IEOR .AND. CORE(I81).EQ.1) GO TO 350\r\n      IF (TEMP .EQ. PLOT) GO TO 600\r\n      IF (IBOB.EQ.1 .AND. .NOT.(SETCD.AND.PLOTCD)) CALL IFP1D (-631)\r\n      IF (TEMP.EQ.XYPL .OR. TEMP.EQ.XYOU) GO TO 1830\r\n      IL = -617\r\n      GO TO 1291\r\n  600 IBOB = 1\r\nC\r\nC     TURN ON TRAIL BITS FOR PLOT\r\nC\r\n      CORE(1) = PCDB\r\n      CORE(2) = 0\r\n      CORE(3) = 0\r\n      CORE(4) = 0\r\n      CORE(5) = 7777\r\n      CORE(6) = 0\r\n      CORE(7) = 0\r\n      CALL WRTTRL (CORE(1))\r\nC\r\nC     CHECK FOR PRESENCE OF PLOT TAPE\r\nC     (SPLOTS COULD BE SET ALREADY BY NASTRAN PLTFLG CARD)\r\nC\r\n      IF (ISUBS.EQ.0 .AND. .NOT.TAPBIT(PLT1) .AND. .NOT.TAPBIT(PLT2))\r\n     1    CALL IFP1D (-618)\r\n      IF (SPLOTS .EQ. 0) SPLOTS = 1\r\n      IF (SPLOTS .LT. 0) SPLOTS =-SPLOTS\r\n      ASSIGN 605 TO IRET3\r\n      GO TO 1321\r\nC\r\nC     CLOSE OPEN STUFF\r\nC\r\n  605 IF (IXYPL .NE. 1) GO TO 602\r\nC\r\nC     TERMINANT XY PACKAGE\r\nC\r\n      IHOWDY = -1\r\n      CALL IFP1XY (IHOWDY,XINTCD)\r\n      CALL CLOSE (XYCB,1)\r\n      IXYPL = 0\r\n  602 CALL CLOSE (CASECC,1)\r\nC\r\nC     OPEN  PCDB\r\nC\r\n      FILE = PCDB\r\nC\r\nC     OPEN WRITE FILE\r\nC\r\n  603 CALL GOPEN (FILE,COREX(IBUF2),1)\r\n      GO TO 350\r\nC\r\nC     MAXLINES CARD\r\nC\r\n  610 MAXLIN = CORE(I1)\r\n      GO TO 501\r\nC\r\nC     TIME STEP CARD\r\nC\r\n  620 IK = 38\r\n      GO TO 490\r\nC\r\nC     SYMSEQ AND SUBSEQ\r\nC\r\n  630 IF (ISYMCM .NE. 0) GO TO 631\r\nC\r\nC     SYMSEQ  CARD WITHOUT SYMCOM\r\nC\r\n      IL = -605\r\n      GO TO 1291\r\n  631 NSYMSQ = 1\r\n      NSYM = 1\r\n  650 IF (NSYM-361) 655,665,660\r\n  655 SYMSEQ(NSYM) = XCORE(I1)\r\n  660 IF (CORE(I1+1)) 670,680,350\r\n  665 CALL IFP1D (-633)\r\n      GO TO 660\r\nC\r\nC     CHECK FOR END OF DATA\r\nC\r\n  670 IF (CORE(I1+1) .EQ. IEOR) GO TO 350\r\n      NSYM = NSYM + 1\r\n      I1   = I1 + 2\r\n      GO TO 650\r\nC\r\nC     CONTINUATION CARD\r\nC\r\n  680 ICONT = 1\r\n      NSYM  = NSYM + 1\r\n      I1    = I81  + 1\r\n      GO TO 351\r\nC\r\nC     TEMPERATURE CARD\r\nC\r\n  690 IF (CORE(I81) .EQ. 2) GO TO 710\r\n      TEMP = CORE(I81+5)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. BOTH) GO TO 710\r\n      IF (TEMP .EQ.  MAT) GO TO 730\r\nC\r\nC     THERMAL LOAD\r\nC\r\n  700 IK = 7\r\n      GO TO 490\r\nC\r\nC     THERMAL + STIFFNESS\r\nC\r\n  710 ASSIGN 720 TO IRET\r\n  720 CASE(8,ISUB) = CORE(I1)\r\n      STFTEM = CORE(I1)\r\n      IF (ISUB .NE. 1) GO TO 740\r\n      GO TO 700\r\nC\r\nC     STIFNESS LOAD\r\nC\r\n  730 IK = 8\r\n      STFTEM = CORE(I1)\r\n      IF (ISUB .NE. 1) GO TO 740\r\n      GO TO 490\r\nC\r\nC     THERMAL REQUEST AT SUBCASE LEVEL\r\nC\r\n  740 IL = 606\r\n      GO TO 1291\r\nC\r\nC     METHOD\r\nC\r\n  760 IK = 5\r\n      GO TO 490\r\nC\r\nC     DISP(PLOT,1) CARD\r\nC\r\n  770 IK = 20\r\n      GO TO 830\r\nC\r\nC     STRESS CARD\r\nC\r\n  780 IK = 23\r\n      GO TO 830\r\nC\r\nC     ELFORCE CARD\r\nC\r\n  790 IK = 26\r\n      GO TO 830\r\nC\r\nC     NCHECK CARD\r\nC\r\n  791 IK = 146\r\n      IF (CORE(I81  ) .EQ.  1) GO TO 793\r\n      IF (CORE(I81+5) .EQ. -1) GO TO 792\r\n      IL = -617\r\n      GO TO 1291\r\n  792 CASE(IK,ISUB) = CORE(I81+6)\r\n      IF (CORE(I81+7) .NE. IEOR) GO TO 503\r\n      GO TO 350\r\n  793 CASE(IK,ISUB) = 5\r\n      GO TO 350\r\nC\r\nC     ACC\r\nC\r\n  800 IK = 29\r\n      GO TO 830\r\nC\r\nC     VEL CARD\r\nC\r\n  810 IK = 32\r\n      GO TO 830\r\nC\r\nC     SPC FORC\r\nC\r\n  820 IK = 35\r\n      GO TO 830\r\nC\r\nC     OUTPUT SPECIFICATION\r\nC     STRESS AND FORCE FLAGS MAY BE PRE-SET TO 2 (NOPRINT) BY IFP1H\r\nC\r\n  830 ASSIGN 860 TO IRET\r\n      IF ((IK.EQ.23 .OR. IK.EQ.26) .AND. CASE(IK+1,ISUB).EQ.2) GO TO 860\r\n      IF (CASE(IK,ISUB) .NE. 0) GO TO 410\r\nC\r\nC     FIND EQUAL SIGN\r\nC\r\n  860 IDO = CORE(I81)\r\n      CASE(IK+1,ISUB) = 0\r\n      CASE(IK+2,ISUB) = 1\r\n      DO 950 I = 1,IDO\r\n      II   = I81 + 2*I\r\n      TEMP = CORE(II)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. EQUAL1) GO TO 960\r\n      IWRD = CORE(II-1)\r\n      DO 880 IO = 4,14\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IOP = IO - 3\r\n      IF (IWRD .EQ. OUTOP(IO)) GO TO\r\n     1   (940, 890, 900, 910, 920, 930, 905, 950, 943, 950, 946), IOP\r\nC         SORT PUNC PRIN REAL IMAG PHAS NOPR MAXS VONM EXTR LAYE\r\nC\r\n  880 CONTINUE\r\n      GO TO 950\r\nC\r\nC     PUNCH\r\nC\r\n  890 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) + 4\r\n      GO TO 950\r\nC\r\nC     PRINT\r\nC\r\n  900 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) + 1\r\n      GO TO 950\r\nC\r\nC     COMPUTE BUT NO PRINT\r\nC     DEVICE CODE IS 2 (AND SUBPRESS PRINT CODE 1)\r\nC\r\n  905 CASE(IK+1,ISUB) = CASE(IK+1,ISUB) - MOD(CASE(IK+1,ISUB),2) + 2\r\n      GO TO 950\r\nC\r\nC     REAL PRINT OUT FORMAT\r\nC\r\n  910 II = 1\r\n      GO TO 931\r\nC\r\nC     REAL AND IMAGINARY\r\nC\r\n  920 II = 2\r\n      GO TO 931\r\nC\r\nC     MAGNITUE AND PHASE ANGLE\r\nC\r\n  930 II = 3\r\n  931 CASE(IK+2,ISUB) = ISIGN(II,CASE(IK+2,ISUB))\r\n      GO TO 950\r\nC\r\nC     SORT TWO REQUEST\r\nC     (COMMENTS FORM G.C.  7/1989\r\nC     SINCE OES2L FILE HAS NOT BEEN IMPLEMENTED IN ALL DMAPS, SORT2\r\nC     STRESS REQUEST ON LAYERED ELEMENTS IS NOT AVAILABLE)\r\nC\r\n  940 TEMP = CORE(II)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. ONEB) GO TO 950\r\n      IF (IK.EQ.23 .AND. CASE(183,ISUB).GE.2) CALL IFP1D (-645)\r\n      CASE(IK+2,ISUB) = -IABS(CASE(IK+2,ISUB))\r\n      GO TO 950\r\nC\r\nC     VON MISES STRESS\r\nC     (183 WORD ON CASECC, FIRST RIGHT-MOST BIT)\r\nC\r\n  943 CASE(183,ISUB) = ORF(CASE(183,ISUB),1)\r\n      GO TO 950\r\nC\r\nC     LAYER STRESSES FOR COMPOSITE ELEMENTS\r\nC     (183 WORD ON CASECC, SECOND RIGHT-MOST BIT)\r\nC     (SORT2 STRESS REQUEST ON LAYERED ELEMENTS NOT AVAILABLE)\r\nC\r\n  946 IF (IK .NE. 23) CALL IFP1D (-646)\r\n      IF (IK.EQ.23 .AND. CASE(25,ISUB).LT.0) CALL IFP1D (-645)\r\n      CASE(183,ISUB) = ORF(CASE(183,ISUB),2)\r\nC\r\n  950 CONTINUE\r\n  960 IF (CASE(IK+1,ISUB) .EQ. 0) CASE(IK+1,ISUB) = 1\r\n      IF (CORE(II+1) .NE.  0) GO TO 962\r\n      CALL IFP1D (610)\r\n      GO TO 970\r\n  962 TEMP = CORE(II+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. ALL) GO TO 970\r\n      IF (TEMP.EQ.NONE .OR. TEMP.EQ.NONO) GO TO 980\r\n      IF (CORE(II+1) .EQ. -1) GO TO 964\r\n      IL = -617\r\n      GO TO 1291\r\n  964 I1 = II + 2\r\n      GO TO 990\r\nC\r\nC     ALL SPECIFIED -- SET SET NO. MINUS\r\nC\r\n  970 CASE(IK,ISUB) = -1\r\n      GO TO 1042\r\nC\r\nC     NONE SPECIFIED\r\nC\r\n  980 CASE(IK,ISUB) = NONE\r\n      GO TO 1042\r\nC\r\nC     FIND SET NUMBER\r\nC\r\n  990 IF (NSET .NE. 0) GO TO 1020\r\nC\r\nC     UNDEFINED SET ID ON CARD\r\nC\r\n 1000 CALL IFP1D (-608)\r\n      GO TO 350\r\n 1020 JJ = NWDSC\r\n      DO 1030 IL = 1,NSET\r\n      IF (CORE(JJ) .EQ. CORE(I1)) GO TO 1040\r\n      JJ = JJ + CORE(JJ+1) + 3\r\n 1030 CONTINUE\r\n      GO TO 1000\r\n 1040 CASE(IK,ISUB) =CORE(I1)\r\n 1042 IF (CORE(II+3) .NE. IEOR) GO TO 503\r\n      GO TO 350\r\nC\r\nC     SET CARD\r\nC\r\n 1050 NSET = NSET + 1\r\n      CALL IFP1C (I81,NZ)\r\n      GO TO 350\r\nC\r\nC     SCAN CARD\r\nC\r\n 1055 CALL IFP1H (I81,NZ,JUMPH)\r\n      GO TO 350\r\nC\r\nC     SUBCASE\r\nC\r\n 1060 TEMP = CORE(I81+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP   .EQ. OM) GO TO 1560\r\n      IF (ISYMCM .EQ.  1) GO TO 1330\r\n      NSYM  = 0\r\n      NSYMS = NSYMS + 1\r\n      IF (NSYMS-361) 1062,1064,1070\r\n 1062 SYMSEQ(NSYMS) = 1.0\r\n      GO TO 1070\r\n 1064 CALL IFP1D (-633)\r\n 1070 ASSIGN 350 TO IRET3\r\n      IF (ISUB .EQ. 2) GO TO 1080\r\n      ISUB  = 2\r\n      LOADN = CORE(I81+4)\r\n      CALL IFP1F (*350,IWORD,I2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 1071 I = 1,5\r\n      ISUBC(I) = CORE(I2)\r\n      I2 = I2 + 1\r\n 1071 CONTINUE\r\n      IF (CORE(I81+3) + 1) 1290,350,1290\r\nC\r\nC     TURN STRESS AND FORCE NO-PRINT FLAGS ON IF INTERACTIVE FLAG IS ON\r\nC\r\n 1080 IF (INTRA .LT. 2) GO TO 1085\r\n      CASE(24,ISUB) = ORF(CASE(24,ISUB),8)\r\n      CASE(27,ISUB) = ORF(CASE(27,ISUB),8)\r\nC\r\n 1085 CASE(1,ISUB) = LOADN\r\n      IF (CORE(I81+4) .LE. LOADN+NMODES-1) GO TO 1310\r\n      LOADN = CORE(I81+4)\r\n      IF (CORE(I81+3) .NE. -1) GO TO 1310\r\n 1090 IF (CASE(137,1) .EQ.  0) CASE(137,1) = 1\r\n      CALL IFP1E (ISUBC(1),SYMSEQ,NWDSC,I81,ICASTE)\r\n      STFTEM = ICASTE\r\n      NSUB = NSUB + NMODES\r\nC\r\nC     CHECK SET NOS. THAT WERE SPECIFIED AFTER SCAN CARDS\r\nC\r\nC     FORM G.C./UNISYS   4/1990\r\nC     IFP1H IS BY-PASSING THIS NEW CODE HERE (MSST=0) BECAUSE SET DATA\r\nC     IS NOT AVAILABLE HERE. SAVE THIS CODE FOR FURTHER INVESTIGATION.\r\nC\r\n      IF (MSST .EQ. 0) GO TO 1281\r\n      MM = 0\r\n      LL = LENCC + CASE(LENCC,ISUB) + 1\r\n      DO 1094 M = 1,MSST\r\n      I  = LL\r\n      MSET = MISSET(M)\r\nC\r\nC     WRITE (6,2345) MSET,MSST,LL\r\nC\r\n 1091 ISET = CASE(I,ISUB)\r\nC\r\nC     LX1 = I - 3\r\nC     LX2 = I + 3\r\nC     WRITE (6,6789) ISET,(CASE(LX,ISUB),LX=LX1,LX2)\r\nC\r\n      IF (ISET .EQ. 0) GO TO 1094\r\n      IF (MSET-ISET) 1092,1093,1092\r\n 1092 I = I + CASE(I+1,ISUB)\r\n      IF (I .GE. 400) GO TO 1094\r\n      GO TO 1091\r\n 1093 MISSET(M) = 0\r\n      MM = MM + 1\r\n 1094 CONTINUE\r\n      IF (MM .EQ. MSST) GO TO 1281\r\n      DO 1096 M = 1,MSST\r\n      IF (MISSET(M) .EQ. 0) GO TO 1096\r\n      WRITE  (OTPE,1095) UFM,MISSET(M)\r\n 1095 FORMAT (A23,' 608A, UNIDENTIFIED SET',I8,' WAS REQUESTED FOR ',\r\n     1       'SCAN')\r\n      NOGO = 1\r\n 1096 CONTINUE\r\nC\r\n 1281 GO TO IRET3, (350,1370,605,1835)\r\nC\r\nC     SUBCASE ID MISSING\r\nC\r\n 1290 IL = -609\r\n      LOADN = CASE(1,2)\r\n 1291 CALL IFP1D (IL)\r\n      GO TO 350\r\n 1310 CALL IFP1D (-609)\r\n      LOADN = CASE(1,2)\r\n      GO TO 1090\r\nC\r\nC     BEGIN BULK\r\nC\r\n 1320 ASSIGN 1370 TO IRET3\r\n 1321 CORE(I81+3) = -1\r\n      CORE(I81+4) = 9999999\r\n      IF (ICASEC .EQ. 1) GO TO 1281\r\n      ICASEC = 1\r\n      IF (ISYMCM .EQ. 1) GO TO 1330\r\n      NSYM = 0\r\n      GO TO 1080\r\nC\r\nC     PUT OUT SUBCOM OR SYMCOM RECORD\r\nC\r\n 1330 ISYMCM = 0\r\n 1340 IF (NSYMSQ.NE.0 .OR. NSYM.NE.0) GO TO 1360\r\nC\r\nC     NO SUBSEQ OR SYMSEQ CARD\r\nC\r\n      NSYM = NSYMS\r\nC\r\n 1360 NSYMSQ = 0\r\n      CASE(LENCC,2) = MAX0(NSYM,0)\r\n      CASE(16,2) = NSYM\r\n      GO TO 1080\r\n 1370 CALL CLOSE (SCR1,1)\r\n      IF (IBOB.NE.1 .AND. IXYPL.NE.1) CALL CLOSE (CASECC,1)\r\n      IF (IBOB .EQ. 1) CALL CLOSE (PCDB,1)\r\n      IF (IBOB.EQ.1 .AND. .NOT.(SETCD.AND.PLOTCD)) CALL IFP1D (-631)\r\n      IF (IXYPL .NE. 1) GO TO 1371\r\nC\r\nC     TERMINATE XYPLOT PACKAGE\r\nC\r\n      IHOWDY = -1\r\n      CALL IFP1XY (IHOWDY,XINTCD)\r\n      CALL CLOSE  (XYCB,1)\r\nC\r\nC     PUT CASECC ON NPTP\r\nC\r\n 1371 CONTINUE\r\n      FILE  = CASECC\r\n      CALL OPEN (*300,CASECC,COREX(IBUF1),0)\r\n      FILE  = NPTP\r\n      MAXCC = 0\r\n      CALL OPEN (*300,NPTP,COREX(IBUF2),3)\r\n 1380 CALL READ (*1400,*1390,CASECC,CORE(1),NZ,0,FLAG)\r\n      ICRQ  = NZ\r\n      GO TO 330\r\n 1390 CALL WRITE (NPTP,CORE(1),FLAG,1)\r\n      MAXCC = MAX0(MAXCC,FLAG)\r\nC\r\nC     CHECK ANY PUNCH REQUEST  ON OUTPUT DATA BLOCKS\r\nC\r\n      IF (NPCH.EQ.1 .OR. FLAG.LT.166) GO TO 1380\r\n      DO 1393 I = 1,13\r\n      J = OUTPCH(I)\r\n      IF (ANDF(CORE(J),4) .NE. 0) GO TO 1395\r\n 1393 CONTINUE\r\n      GO TO 1380\r\n 1395 NPCH = 1\r\n      GO TO 1380\r\n 1400 CALL CLOSE (CASECC,1)\r\n      CALL EOF (NPTP)\r\n      CALL CLOSE (NPTP,2)\r\n      IF (SPLOTS .LT. 0) SPLOTS = 0\r\nC\r\nC     IF THIS IS A RESTART  SET CHANGE FLAGS IN IFP1B\r\nC\r\n      IF (APP .LT. 0) CALL IFP1B\r\n      IF (IUN .NE. 0) CALL IFP1D (-612)\r\n      CALL MAKMCB (CORE,CASECC,NSUB,0,0)\r\n      CORE(2) = NSUB\r\n      CORE(4) = MAXCC\r\n      CALL WRTTRL (CORE)\r\nC\r\nC     SET NOGO FLAG TO -9 IF ERROR IN BULKDATA AND PLOT COMMANDS\r\nC     SET NOGO FLAG TO POSITIVE IF ERROR IN BULKDATA, AND NOT IN PLOT\r\nC     SET NOGO FLAG TO NEGATIVE IF NO ERROR IN BULKDATA, BUT IN PLOT\r\nC     PUNCH AN IDENTIFICATION CARD IF PUNCH IS REQUESTED ON OUTPUT DATA,\r\nC     AND PRINT SCAN KEYWORDS IF ERROR FLAG (JUMPH) WAS TURNED ON\r\nC\r\n      IF (NOGO.NE.0 .AND. NOGOPC.EQ.-1) NOGO = -9\r\n      IF (NOGO .EQ. 0) NOGO = NOGOPC\r\n      IF (NPCH .EQ. 1) WRITE (LPCH,1415) (TITLE(J),J=1,17)\r\n 1415 FORMAT (2H$ ,17A4)\r\n      IF (JUMPH .EQ. 1) CALL IFP1H (0,0,2)\r\n      RETURN\r\nC\r\nC     ECHO REQUEST\r\nC\r\n 1420 IECHO = 0\r\n      IDO = CORE(I81) - 2\r\n      DO 1460 I = 1,IDO\r\n      IWRD = CORE(I1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      DO 1421 IO = 1,5\r\n      IF (IWRD .EQ. OUTOP(IO)) GO TO (1435, 1480, 1440, 1430, 1431), IO\r\nC                                     BOTH  NONE  UNSO  SORT  PUNC\r\nC\r\n 1421 CONTINUE\r\n      IF (IWRD .EQ. OUTOP(15)) GO TO 1470\r\n      CALL IFP1D (629)\r\n      GO TO 1432\r\nC\r\nC     SORTED ECHO\r\nC\r\n 1430 CONTINUE\r\n      IF (ANDF(IECHO,2) .NE. 0) CALL IFP1D (629)\r\n 1432 IECHO = ORF(IECHO,2)\r\n      GO TO 1450\r\nC\r\nC     PUNCH ECHO\r\nC\r\n 1431 CONTINUE\r\n      IF (ANDF(IECHO,4) .NE. 0) CALL IFP1D (629)\r\n      IECHO = ORF(IECHO,4)\r\n      NPCH  = 1\r\n      GO TO 1450\r\nC\r\nC     BOTH ECHO\r\nC\r\n 1435 CONTINUE\r\n      IF (ANDF(IECHO,3) .NE. 0) CALL IFP1D (629)\r\n      IECHO = ORF(IECHO,3)\r\n      GO TO 1450\r\nC\r\nC     UNSORTED ECHO\r\nC\r\n 1440 CONTINUE\r\n      IF (ANDF(IECHO,1) .NE. 0) CALL IFP1D (629)\r\n      IECHO = ORF(IECHO,1)\r\n 1450 I1 = I1 + 2\r\n 1460 CONTINUE\r\nC\r\n      GO TO 350\r\nC\r\nC     NONO ECHO - ABSOLUTELY NO ECHO, NO EVEN IN RESTART\r\nC\r\n 1470 IO = 16\r\nC\r\nC     NONE ECHO\r\nC\r\n 1480 CONTINUE\r\n      IF (IECHO.NE.0 .OR. I.LT.IDO) CALL IFP1D (630)\r\n      IECHO = -1\r\n      IF (IO .EQ. 16) IECHO = -2\r\n      GO TO 350\r\nC\r\nC     LOOP CONTROL FOR EIGENVALUE\r\nC\r\n 1490 NMODES = CORE(I1)\r\n      GO TO 350\r\nC\r\nC     PLOT DATA FOR BO BATA\r\nC\r\n 1500 I1 = I81\r\nC\r\nC     TEST FOR REQUIRED PLOT AND SET CARDS IN STRUCTURE PLOT OUTPUT PKG\r\nC\r\n      TEMP = CORE(I81+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (CORE(I81+1).EQ.PLOT .AND. TEMP.EQ.BLANK) PLOTCD =.TRUE.\r\n      IF (CORE(I81+1) .EQ. SET) SETCD  = .TRUE.\r\nC\r\nC     TEST FOR XYPLOT COMMAND CARDS IN STRUCTURE PLOT OUTPUT PACKAGE\r\nC\r\n      IWRD = CORE(I81+1)\r\n      DO 1501 I = 1,5\r\n      IF (IWRD .EQ. XYPRM(I)) CALL IFP1D (-632)\r\n 1501 CONTINUE\r\nC\r\nC     TEST FORMAT OF PLOT COMMAND CARDS\r\nC\r\n      I = NOGO\r\n      NOGO = 0\r\n      CALL IFP1PC (I81,ICNT,XINTCD,ORG,PORG)\r\n      IF (NOGO .NE. 0) NOGOPC = -1\r\n      NOGO = I\r\nC\r\nC     COMPUTE LENGTH OF RECORD\r\nC\r\n      IK = 0\r\n 1510 IF (CORE(I1)) 1520,1550,1530\r\n 1520 CONTINUE\r\n      IP = 2\r\n      GO TO 1540\r\n 1530 IF (CORE( I1) .EQ. IEOR) GO TO 1550\r\n      IP = 2*CORE(I1) + 1\r\n 1540 IK = IK + IP\r\n      I1 = I1 + IP\r\n      GO TO 1510\r\n 1550 CALL WRITE (PCDB,CORE(I81),IK+1,1)\r\n      GO TO 350\r\nC\r\nC     PLOT TITLE CARD\r\nC\r\n 1555 CORE(I81  ) = 10\r\n      CORE(I81+1) = IWORD\r\n      CORE(I81+2) = BLANK\r\n      CALL IFP1G (ITYPE,CORE(I81+3),1)\r\n      CORE(I81+21) = 9999999\r\n      IK = 21\r\n      GO TO 1550\r\nC\r\nC     SYMCOM OR SUBCOM CARD\r\nC\r\n 1560 IF (ISYMCM .EQ. 0) GO TO 1570\r\n      ASSIGN 350 TO IRET3\r\n      GO TO 1340\r\n 1570 ISYMCM = 1\r\n      NSYMSQ = 0\r\n      GO TO 1070\r\nC\r\nC     LINE CARD - NLPP BOTTOM-LIMITED TO 10\r\nC\r\n 1630 CONTINUE\r\n      IF (CORE(I1-1) .NE. -1) GO TO 520\r\n      IF (IABS(CORE(I1)) .GT. 0) NLPP = IABS(CORE(I1))\r\n      IF (NLPP .LT. 10) NLPP = 10\r\n      GO TO 350\r\nC\r\nC     DIFFERENTIAL STIFFNESS OR PIECEWISE LINEAR COEFFICIENT SET\r\nC\r\n 1660 IK = 138\r\n      GO TO 1670\r\n 1665 IK = 164\r\n 1670 TEMP = CORE(I1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .NE. DEFA) GO TO 490\r\n      CORE(I1  ) = -1\r\n      CORE(I1+1) = IEOR\r\n      CORE(I1-1) = -1\r\n      GO TO 491\r\nC\r\nC     K2PP\r\nC\r\n 1680 IK = 139\r\n 1690 CASE(IK  ,ISUB) = CORE(I1  )\r\n      CASE(IK+1,ISUB) = CORE(I1+1)\r\n      GO TO 350\r\nC\r\nC     M2PP\r\nC\r\n 1700 IK = 141\r\n      GO TO 1690\r\nC\r\nC     B2PP\r\nC\r\n 1710 IK = 143\r\n      GO TO 1690\r\nC\r\nC     REPRINT OF ABOVE CASE\r\nC\r\n 1720 NSYM = -1\r\n      IF(ISUB .NE. 2) CALL IFP1D (-607)\r\n      GO TO 1560\r\nC\r\nC     TRANSFER FUNCTION SELECTION\r\nC\r\n 1730 IK = 15\r\n      GO TO 490\r\nC\r\nC     OUTPUT FREQUENCY LIST SET\r\nC\r\n 1740 IK = 145\r\n      TEMP = CORE(I1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .NE. ALL) GO TO 830\r\n      CORE(I1  ) = -1\r\n      CORE(I1-1) = -1\r\n      CORE(I1+1) = IEOR\r\n      GO TO 491\r\nC\r\nC     COMPLEX EIGENVALUE METHOD\r\nC\r\n 1750 IK = 148\r\n      GO TO 490\r\nC\r\nC     STRUCTURAL DAMPING TABLE\r\nC\r\n 1760 IK = 149\r\n      GO TO 490\r\nC\r\nC     INERTIA RELIEF SET SELECTION\r\nC\r\nC1770 IK = 150\r\nC     GO TO 490\r\nC\r\nC     ANALYSIS SET FOR VDR\r\nC\r\n 1780 IK = 151\r\n      GO TO 830\r\nC\r\nC     ANALYSIS VELOCITY\r\nC\r\n 1790 IK = 154\r\n      GO TO 830\r\nC\r\nC     ANALYSIS ACCELERATION\r\nC\r\n 1800 IK = 157\r\n      GO TO 830\r\nC\r\nC     NON LINEAR FORCE VECTOR FOR TRANSIENT ANALYSIS\r\nC\r\n 1810 IK = 160\r\n      GO TO 490\r\nC\r\nC     X-Y PLOTTER PACKAGE\r\nC\r\n 1830 ASSIGN 1835 TO IRET3\r\n      GO TO 1321\r\n 1835 CALL CLOSE (CASECC,1)\r\n      DO 1834 I = 2,6\r\n 1834 CORE(I) = 0\r\n      CORE(1) = XYCB\r\n      CORE(7) = 1\r\n      CALL WRTTRL (CORE(1))\r\nC\r\nC     OPEN XYCB\r\nC\r\n      IF (IBOB .NE. 1) GO TO 1837\r\n      CALL CLOSE (PCDB,1)\r\n      IBOB  = 0\r\n 1837 FILE  = XYCB\r\n      IXYPL = 1\r\n      I81   = NWPC + 1\r\n      GO TO 603\r\nC\r\nC     AXIS TITLE CARDS\r\nC\r\n 1838 ITYPE = 8\r\n      CORE(1) = IWORD\r\n      DO 1839 I = 1,32\r\n      K = I81 + I - 1\r\n      CORE(K) = BLANK\r\n 1839 CONTINUE\r\n      IF (IBOB .EQ. 1) GO TO 1555\r\n      CALL IFP1G (ITYPE,CORE(I81),1)\r\nC\r\nC     PROCESS XYPLOTTER CARD\r\nC\r\n 1836 CALL IFP1XY (IHOWDY,XINTCD)\r\n      GO TO 350\r\nC\r\nC     DELETE SETS FOR FORCE\r\nC\r\nC1840 IK = 161\r\nC     GO TO 490\r\nC\r\nC     AXISYM CARD\r\nC\r\n 1850 TEMP = CORE(I1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. SINE) GO TO 1851\r\n      IF (TEMP .EQ. COSI) GO TO 1852\r\n      IF (TEMP .EQ. FLUI) GO TO 1852\r\n      IF (TEMP .EQ. SYMM) GO TO 1853\r\n      IF (TEMP .EQ. ANTI) GO TO 1854\r\n      IF (TEMP .EQ. ANOM) GO TO 1855\r\nC\r\nC     ILLEGAL  SPECIFICATION\r\nC\r\n      IL = -617\r\n      GO TO 1291\r\n 1851 CASE(136,ISUB) = 1\r\n      IAXIC = 1\r\n      GO TO 350\r\n 1852 CASE(136,ISUB) = 2\r\n      IF (TEMP .EQ. COSI) IAXIC = 1\r\n      IF (TEMP .EQ. FLUI) IAXIF = 1\r\n      GO TO 350\r\n 1853 CASE(136,ISUB) = -2\r\n      GO TO 1856\r\n 1854 CASE(136,ISUB) = -1\r\n      GO TO 1856\r\n 1855 CASE(136,ISUB) = -30\r\n      GO TO 350\r\n 1856 TEMP = CORE(I1+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ. ANOM) CASE(136,ISUB) = CASE(136,ISUB)*10\r\n      GO TO 350\r\nC\r\nC     HARMONIC SELECTOR\r\nC\r\n 1860 IK = 137\r\n      TEMP = CORE(I1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,TEMP,0)\r\n      IF (TEMP .EQ.  ALL) GO TO 1861\r\n      IF (TEMP .EQ. NONE) GO TO 1862\r\n      CORE(I1) = CORE(I1) + 1\r\n      GO TO 490\r\n 1861 CORE(I1) = -1\r\n      GO TO 1863\r\n 1862 CASE(137,1)= 0\r\n      CORE(I1  ) = 0\r\n 1863 CORE(I1-1) = -1\r\n      CORE(I1+1) = IEOR\r\n      GO TO 491\r\nC\r\nC     RANDOM SET SELECTION\r\nC\r\n 1870 IK = 163\r\n      GO TO 490\r\nC\r\nC     FMETHOD\r\nC\r\n 1880 IK = 165\r\n      GO TO 490\r\nC\r\nC     GRID POINT FORCE REQUEST\r\nC\r\n 1890 IK = 167\r\n      GO TO 830\r\nC\r\nC     ELEMENT STRAIN ENERGY\r\nC\r\n 1900 IK = 170\r\n      GO TO 830\r\nC\r\nC     AEROFORCE OUTPUT REQUEST\r\nC\r\n 1910 IK = 176\r\n      GO TO 830\r\nC\r\nC     AEROELASTIC GUST LOAD REQUEST\r\nC\r\n 1930 IK = 179\r\n      GO TO 490\r\nC\r\nC     STRAIN CARD\r\nC     (180 THRU 182 WORDS OF CASECC)\r\nC\r\n 1950 IK = 180\r\n      GO TO 830\r\nC\r\nC     EOF ON INPUT UNIT\r\nC\r\n 2000 CALL IFP1D  (-624)\r\n      CALL MESAGE (-37,0,NIFP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1b.f",
    "content": "      SUBROUTINE IFP1B\r\nC\r\nC     THIS ROUTINE DETERMINES THE LOOP CONDITIONS AND CASE CONTROL\r\nC     REQUEST CHNGES\r\nC     LOOP$ -- THE CURRENT PROBLEM WILL LOOP\r\nC\r\nC     LOOP1$-- THE OLD PROBLEM WAS A LOOP AND CASE CONTROL IS CHANGED\r\nC     IN LENGTH\r\nC\r\nC     COMMENTS FROM G.C.  10/92\r\nC     IWORD AND IBIT 200 WORDS EACH CORRESPOND TO 200 WORDS IN CASECC\r\nC     ZERO IN IWORD MEANS NO FURTHER CHECKING\r\nC     INTEGER VALUE IN IBIT POINTS TO RESTART BIT POSITION, AND WILL BE\r\nC     SAVED IN BITS(17) AND BITS(18), BITS FOR LCC. (LBD = 16)\r\nC\r\nC     LAST REVISED  7/91, BY G.CHAN/UNISYS, TO ALLOW HUGE THRU-RANGE ON\r\nC     SET IN CASE CONTROL SECTION FOR PRINTOUT OR PLOTTING\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      LOGICAL         NEW,DEBUG\r\n      INTEGER         NAME(2),OPTP,CASECC,BITS,TWO1,CORE(2),CASE,CC,SS,\r\n     1                ORF,ANDF,COREY(401)\r\n      DIMENSION       ICASE(200,2),IWORD(200),IBIT(200)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      COMMON /IFPX0 / LBD,LCC,BITS(1)\r\n      COMMON /XIFP1 / IBLANK\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,NSYM,\r\n     1                ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR\r\n      EQUIVALENCE    (COREX(1),COREY(1),ICASE(1,1)),(CORE(1),COREY(401))\r\n      DATA    NAME  / 4HIFP1,  4HB          /\r\n      DATA    CASE  , CC     / 4HCASE,4HCC  /\r\n      DATA    SS    / 4HSS   /\r\n      DATA    OPTP  / 4HOPTP /\r\n      DATA    IWORD /\r\n     1      -1,01,01,01,01,01,01,01,01,00,01,01,01,01,01,-1,00,01,01,00,\r\n     2      01,01,00,01,01,00,01,01,00,01,01,00,01,01,00,01,01,01,-1,-1,\r\n     3      -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,\r\n     4      -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,\r\n     5      -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,\r\n     6      -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,\r\n     7      -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,00,-1,-1,01,01,01,\r\n     8      01,01,01,01,00,00,-1,01,01,-1,00,01,01,00,01,01,00,01,01,01,\r\n     9      -1,-1,01,01,01,-1,00,01,01,00,01,01,00,01,01,00,01,01,01,00,\r\n     X      01,01,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1/\r\n      DATA    IBIT  /\r\n     1      00,02,03,04,05,06,07,08,09,10,10,10,13,14,15,00,18,18,18,18,\r\n     2      18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,17,00,00,\r\n     3      00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\r\n     4      00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\r\n     5      00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\r\n     6      00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\r\n     7      00,00,00,00,00,00,00,00,00,00,00,00,00,00,16,00,00,20,21,21,\r\n     8      22,22,23,23,18,18,00,24,25,00,10,10,10,10,10,10,10,10,10,27,\r\n     9      00,00,30,26,29,00,18,18,18,18,18,18,10,10,10,10,10,10,33,18,\r\n     X      18,18,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00/\r\n      DATA    NEW,DEBUG   / 2*.FALSE. /\r\nC\r\n      K  = LBD + 1\r\n      IFIROD = 0\r\n      IOLOOP = 0\r\n      ILOOP  = 0\r\n      IFIRST = 0\r\n      IEOPTP = 0\r\nC\r\nC     ALLOCATE GINO BUFFERS\r\nC\r\n      NZ     = KORSZ(CORE)\r\n      IBUF1  = NZ - IBUF + 1\r\n      IBUF2  = IBUF1 - IBUF\r\n      NZ     = NZ - 2*IBUF\r\n      ICRQ   =-NZ\r\n      IF (NZ .LE. 0) GO TO 700\r\n      IECASE = 0\r\nC\r\nC     TRY TO FIND CASECC ON OPTP - TRY TO ASSUME PROPER POSITION\r\nC\r\n      CALL OPEN (*560,OPTP,CORE(IBUF1),2)\r\n      IOPN = 0\r\nC\r\nC     FIND CASECC\r\nC\r\n   10 CALL READ (*600,*610,OPTP,CORE(1),2,1,IFLAG)\r\n      IF (CORE(1).EQ.CASE .AND. CORE(2).EQ.CC) GO TO 30\r\n      IF (CORE(1).EQ.CASE .AND. CORE(2).EQ.SS) GO TO 20\r\n      IF (IOPN .EQ. 0) CALL REWIND (OPTP)\r\n      IOPN = 1\r\n      CALL SKPFIL (OPTP,1)\r\n      GO TO 10\r\nC\r\nC     CASESS FOUND ON OPTP - SKIP TO CASECC\r\nC\r\n   20 CALL READ (*600,*610,OPTP,CORE(1),2,1,IFLAG)\r\n      IF (CORE(1).NE.CASE .OR. CORE(2).NE.CC) GO TO 20\r\nC\r\nC     CASECC FOUND ON OLD PROB TAPE\r\nC\r\nC     OPEN CASECC AND SKIP CASESS IF PRESENT\r\nC\r\n   30 CALL OPEN (*650,CASECC,CORE(IBUF2),0)\r\n   40 CALL READ (*670,*680,CASECC,CORE(1),2,1,IFLAG)\r\n      IF (CORE(1).NE.CASE .OR. CORE(2).NE.CC) GO TO 40\r\n      ASSIGN 50 TO IHOP\r\n   50 CALL READ (*550,*610,OPTP,ICASE(1,2),LENCC,0,IFLAG)\r\n      IF (ICASE(16,2) .EQ. 0) GO TO 60\r\n      CALL FWDREC (*600,OPTP)\r\n      GO TO 50\r\n   60 IF (ICASE(LENCC,2) .EQ. 0) GO TO 70\r\n      LSYM = ICASE(LENCC,2)\r\n      CALL READ (*600,*610,OPTP,CORE(1),-LSYM,0,IFLAG )\r\n   70 CALL READ (*600,*80 ,OPTP,CORE(1),   NZ,1,IFOPTP)\r\n      ICRQ = NZ\r\n      GO TO 700\r\n   80 CALL READ (*510,*680,CASECC,ICASE(1,1),LENCC,0,IFLAG)\r\n      IF (ICASE(16,1) .EQ. 0) GO TO 90\r\n      CALL FWDREC (*670,CASECC)\r\n      GO TO 80\r\n   90 IF (ICASE(LENCC,1) .EQ. 0) GO TO 100\r\n      LSYM = ICASE(LENCC,1)\r\n      CALL READ (*670,*680,CASECC,CORE(IFOPTP+1),-LSYM,0,IFLAG)\r\n  100 CALL READ (*670,*110,CASECC,CORE(IFOPTP+1),NZ-IFOPTP,1,IFCASE)\r\n      ICRQ = NZ - IFOPTP\r\n      GO TO 700\r\nC\r\nC     CHECK FOR LOOPING PROBLEM\r\nC\r\n  110 IF (IFIRST .NE. 0) GO TO 120\r\n      IFIRST= 1\r\n      ISPC  = ICASE(  3,1)\r\n      IMPC  = ICASE(  2,1)\r\n      IMTD  = ICASE(  5,1)\r\n      IFREQ = ICASE( 14,1)\r\n      ITFL  = ICASE( 15,1)\r\n      IK1   = ICASE(139,1)\r\n      IK2   = ICASE(140,1)\r\n      IM1   = ICASE(141,1)\r\n      IM2   = ICASE(142,1)\r\n      IB1   = ICASE(143,1)\r\n      IB2   = ICASE(144,1)\r\n      IF (ICASE(165,1).GT.0 .OR. ICASE(164,1).GT.0) GO TO 130\r\n      GO TO 140\r\n  120 IF (ICASE(  3,1) .NE. ISPC) GO TO 130\r\n      IF (ICASE(  2,1) .NE. IMPC) GO TO 130\r\n      IF (ICASE(  5,1) .NE. IMTD) GO TO 130\r\n      IF (ICASE(139,1).NE.IK1 .OR. ICASE(140,1).NE.IK2) GO TO 130\r\n      IF (ICASE(141,1).NE.IM1 .OR. ICASE(142,1).NE.IM2) GO TO 130\r\n      IF (ICASE(143,1).NE.IB1 .OR. ICASE(144,1).NE.IB2) GO TO 130\r\n      IF (ICASE( 15,1) .NE. ITFL ) GO TO 130\r\n      IF (ICASE( 14,1) .NE. IFREQ) GO TO 130\r\n      IF (ICASE(138,1) .GT. 0) GO TO 130\r\n      IF (ICASE( 38,1) .NE. 0) GO TO 130\r\n      GO TO 140\r\nC\r\nC     SET LOOP$\r\nC\r\n  130 BITS(K) = ORF(BITS(K),TWO1(11))\r\n      ILOOP = 1\r\n  140 CONTINUE\r\nC\r\nC     DETERMINE IF OLD PROBLEM WOULD HAVE LOOPED\r\nC\r\n      IF (IFIROD .NE. 0) GO TO 150\r\n      IFIROD= 1\r\n      ISPC1 = ICASE(  3,2)\r\n      IMPC1 = ICASE(  2,2)\r\n      IMTD1 = ICASE(  5,2)\r\n      IK11  = ICASE(139,2)\r\n      IK21  = ICASE(140,2)\r\n      IM11  = ICASE(141,2)\r\n      IM21  = ICASE(142,2)\r\n      IB11  = ICASE(143,2)\r\n      IB21  = ICASE(144,2)\r\n      ITFL1 = ICASE( 15,2)\r\n      IFREQ1= ICASE( 14,2)\r\n      IF (ICASE(164,2).GT.0 .OR. ICASE(165,2).GT.0) GO TO 160\r\n      GO TO 170\r\nC\r\nC     SECOND RECORD APPLY LOOP RULES\r\nC\r\n  150 IF (ICASE(  3,2) .NE. ISPC1) GO TO 160\r\n      IF (ICASE(  2,2) .NE. IMPC1) GO TO 160\r\n      IF (ICASE(  5,2) .NE. IMTD1) GO TO 160\r\n      IF (ICASE(139,2).NE.IK11 .OR. ICASE(140,2).NE.IK21) GO TO 160\r\n      IF (ICASE(141,2).NE.IM11 .OR. ICASE(142,2).NE.IM21) GO TO 160\r\n      IF (ICASE(143,2).NE.IB11 .OR. ICASE(144,2).NE.IB21) GO TO 160\r\n      IF (ICASE(138,2) .GT. 0) GO TO 160\r\n      IF (ICASE( 38,2) .NE. 0) GO TO 160\r\n      IF (ICASE( 15,2) .NE. ITFL1 ) GO TO 160\r\n      IF (ICASE( 14,2) .NE. IFREQ1) GO TO 160\r\n      GO TO 170\r\n  160 IOLOOP = 1\r\n  170 CONTINUE\r\n      IF (IECASE .NE. 1) GO TO 180\r\n      IF (IOLOOP .EQ. 1) GO TO 530\r\n      GO TO 520\r\nC\r\nC     CHECK FOR CHANGES -\r\nC\r\n  180 IF (IEOPTP .EQ. 1) IEOPTP = 2\r\n      DO 500 I = 1,LENCC\r\n      IF (IBIT(I) .EQ. 0) GO TO 500\r\n      L = IBIT(I)\r\n      IF (L.LE.32 .AND. ANDF(BITS(K),TWO1(L)).NE.0) GO TO 500\r\n      IF (IWORD(I) .EQ. 0) GO TO 210\r\n      IF (ICASE(I,1) .EQ. ICASE(I,2)) GO TO 500\r\n  190 IF (L .GT. 32) GO TO 200\r\n      BITS(K) = ORF(BITS(K),TWO1(L))\r\n      GO TO 500\r\nC\r\nC     SECOND CASECC WORD\r\nC\r\n  200 L = L - 31\r\n      BITS(K+1) = ORF(BITS(K+1),TWO1(L))\r\n      GO TO 500\r\nC\r\nC     CHECK FOR PRESENCE OF PRINT AND PLOT REQUESTS\r\nC\r\n  210 IF (I.NE.135 .AND. ICASE(I,1).EQ.0) GO TO 500\r\n      IF (I .NE. 135) GO TO 220\r\n      IF (ICASE(I,1).NE.0 .OR. ICASE(I,2).NE.0) GO TO 190\r\n      GO TO 500\r\n  220 IF (IBIT(I) .EQ. 18) BITS(K+1) = ORF(BITS(K+1),TWO1(3))\r\n      IF (IBIT(I) .EQ. 10) BITS(K+1) = ORF(BITS(K+1),TWO1(4))\r\n      IF (IEOPTP  .EQ.  2) GO TO 190\r\n      IF (ICASE(I,1).LT.0 .AND. ICASE(I,2).LT.0) GO TO 500\r\n      IF (ICASE(I,1).LT.0 .AND. ICASE(I,2).GE.0) GO TO 190\r\n      IF (ICASE(I,1).GT.0 .AND. ICASE(I,2).LE.0) GO TO 190\r\n      IPCASE = IFOPTP + 1\r\n  230 IF (IPCASE .GT. IFOPTP+IFCASE) GO TO 690\r\n      IF (CORE(IPCASE) .EQ. ICASE(I,1)) GO TO 240\r\n      IPCASE = IPCASE + CORE(IPCASE+1) + 2\r\n      GO TO 230\r\n  240 IPOPTP = 1\r\n  250 IF (IPOPTP .GT. IFOPTP) GO TO 620\r\n      IF (CORE(IPOPTP) .EQ. ICASE(I,2)) GO TO 260\r\n      IPOPTP = IPOPTP + CORE(IPOPTP+1) + 2\r\n      GO TO 250\r\n  260 IQCASE = IFOPTP + IFCASE + 1\r\n      IX = IPCASE\r\n      IY = IQCASE\r\n      ASSIGN 280 TO JUMP\r\n      IF (DEBUG) WRITE (NOUT,270)\r\n  270 FORMAT (/,' ------ NPTP PASS ------')\r\n      GO TO 360\r\n  280 IQOPTP = IY\r\n      IX = IPOPTP\r\n      ASSIGN 300 TO JUMP\r\n      IF (DEBUG) WRITE (NOUT,290)\r\n  290 FORMAT (/,' ------ OPTP PASS ------')\r\n      GO TO 360\r\n  300 LENG1 = IQOPTP - IQCASE\r\n      LENG2 = IY - IQOPTP\r\n      IF (DEBUG) WRITE (NOUT,310) CORE(IPCASE),LENG1,LENG2,IY,IQOPTP,\r\n     1                            IQCASE\r\n  310 FORMAT (//,' IFP1B/@310  CHECKING SETS',I9,' FROM NPTP AND OPTP',\r\n     1        /5X,'LENG1,LENG2, IY,IQOPTP,IQCASE =', 2I5,3I7)\r\n      IF (LENG1 .NE. LENG2) GO TO 340\r\n      DO 320 MM = 1,LENG1\r\n      IF (CORE(IQCASE+MM-1) .NE. CORE(IQOPTP+MM-1)) GO TO 340\r\n  320 CONTINUE\r\n      IF (DEBUG) WRITE (NOUT,330) CORE(IPCASE)\r\n  330 FORMAT (' ... NO DIFFERENCES IN SET',I8)\r\n      GO TO 500\r\n  340 WRITE  (NOUT,350) UIM,CORE(IPCASE)\r\n  350 FORMAT (A29,', SET',I9,' DEFINITION HAS BEEN CHANGED IN RESTART')\r\n      GO TO 190\r\nC\r\nC     A NEW NON-EXPANDING METHOD IS IMPLEMENTED HERE BY  G.CAHN/UNISYS\r\nC     8/91, IN CASE THE ORIGINAL LOGIC RUNS OUT OF CORE SPACE\r\nC\r\nC     THE NEW METHOD WILL CONCATINATE VARIATIONS OF SET DEFINITION TO\r\nC     THE SIMPLEST FORM.  E.G. THE NEXT 3 LINES SPECIFY THE SAME SET\r\nC     10 THRU 400000  (THIS IS THE SIMPLEST FORM)\r\nC     10, 11, 12 THRU 400008, 400009, 400000\r\nC     10 THRU 20, 21, 22, 23 THRU 200, 201 THRU 500, 501 502 THRU 400000\r\nC\r\n  360 IF (NEW) GO TO 420\r\n      IN = CORE(IX+1)\r\n      IX = IX + 2\r\n      M  = 0\r\n  370 M  = M + 1\r\n      IF (M-IN) 380,400,490\r\n  380 IF (CORE(IX+M) .GT. 0) GO TO 400\r\n      M1 = CORE(IX+M-1)\r\n      M2 =-CORE(IX+M  )\r\n      ICRQ = IY + M2 - M1 - NZ\r\n      IF (ICRQ .GT. 0) GO TO 410\r\n      DO 390 MM = M1,M2\r\n      CORE(IY) = MM\r\n      IY = IY + 1\r\n  390 CONTINUE\r\n      M = M + 1\r\n      GO TO 370\r\n  400 ICRQ = IY - NZ\r\n      IF (IY .GT. NZ) GO TO 700\r\n      CORE(IY) = CORE(IX+M-1)\r\n      IY = IY + 1\r\n      GO TO 370\r\nC\r\nC     INSUFFICIENT CORE SPACE, SWITCH TO NEW METHOD\r\nC\r\n  410 NEW = .TRUE.\r\n      GO TO 260\r\nC\r\nC     NEW LOGIC WITHOUT THRU RANGE EXPANSION\r\nC\r\n  420 IN = CORE(IX+1)\r\n      IX = IX + 2\r\n      M0 = IY\r\n      CORE(IY) = CORE(IX)\r\n      IY = IY + 1\r\n      IF (IN .EQ. 1) GO TO 490\r\n      CORE(IY) = CORE(IX+1)\r\n      IF (CORE(IY) .EQ. CORE(IY-1)+1) CORE(IY) = -CORE(IY)\r\n      IY = IY + 1\r\n      M  = 1\r\n  430 M  = M + 1\r\n      IF (M .GE. IN) GO TO 470\r\n      M1 = CORE(IX+M)\r\n      M2 = IABS(M1)\r\n      IF (DEBUG) WRITE (NOUT,440) M,IN,IX,IY,M1,CORE(IY-1)\r\n  440 FORMAT (' @440   M,IN,IX,IY,M1,CORE(IY-1) =',6I8)\r\n      IF (M1 .LT. 0) GO TO 450\r\n      IF (M1 .NE. 1-CORE(IY-1)) GO TO 460\r\n      CORE(IY-1) = -M2\r\n      GO TO 430\r\n  450 IF (CORE(IY-1) .GT. 0) GO TO 460\r\n      CORE(IY-1) = -M2\r\n      GO TO 430\r\n  460 CORE(IY) = M1\r\n      IF (M1 .EQ. CORE(IY-1)+1) CORE(IY) = -M2\r\n      IY = IY + 1\r\n      GO TO 430\r\n  470 ICRQ = IY - NZ\r\n      IF (IY .GT. NZ) GO TO 700\r\n      M1 = IY - 1\r\n      IF (DEBUG) WRITE (NOUT,480) CORE(IX-2),(CORE(J),J=M0,M1)\r\n  480 FORMAT (/,' IFP1B/@480    SET',I8, /,(2X,15I8))\r\nC\r\n  490 GO TO JUMP, (280,300)\r\nC\r\n  500 CONTINUE\r\n      GO TO IHOP, (50,80)\r\nC\r\nC     EOF ON CASECC\r\nC\r\n  510 CALL CLOSE (CASECC,1)\r\n      IF (IEOPTP .NE. 0) GO TO 530\r\n      IECASE = 1\r\n      GO TO 150\r\n  520 CALL READ (*530,*610,OPTP,ICASE(1,2),LENCC,1,IFLAG)\r\n      IF (ICASE(16,2) .NE. 0) GO TO 520\r\n      GO TO 150\r\n  530 CALL CLOSE (OPTP,2)\r\n      IF (IEOPTP.EQ.1 .OR. IOLOOP.EQ.0) GO TO 540\r\nC\r\nC     SET LOOP1  THIS SHOULD REEXECUTE THE ENTIRE LOOP\r\nC\r\n      BITS(K) = ORF(BITS(K),TWO1(12))\r\nC\r\nC     CHECK FOR LOOP$ IF NOT ON SET NOLOOP$\r\nC\r\n  540 IF (ILOOP .EQ. 0) BITS(K) = ORF(BITS(K),TWO1(32))\r\n      RETURN\r\nC\r\nC     EOF ON  OPTP\r\nC\r\n  550 ASSIGN 80 TO IHOP\r\n      IEOPTP = 1\r\n      GO TO 80\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  560 IP1 = -1\r\n  570 IP2 = OPTP\r\n  580 CALL MESAGE (IP1,IP2,NAME)\r\n      RETURN\r\nC\r\n  600 IP1 = -2\r\n      GO TO 570\r\n  610 IP1 = -3\r\n      GO TO 570\r\n  620 CORE(1) = OPTP\r\n      CORE(2) = IBLANK\r\n  630 WRITE  (NOUT,640) SFM,CORE(1),CORE(2)\r\n  640 FORMAT (A25,' 651, LOGIC ERROR IN SUBROUTINE IFP1B WHILE ',\r\n     1       'PROCESSING SET DATA ON ',2A4,' FILE.')\r\n      IP1 = -37\r\n      GO TO 580\r\n  650 IP1 = -1\r\n  660 IP2 = CASECC\r\n      GO TO 580\r\n  670 IP1 = -2\r\n      GO TO 660\r\n  680 IP1 = -3\r\n      GO TO 660\r\n  690 CORE(1) = CASE\r\n      CORE(2) = CC\r\n      GO TO 630\r\n  700 IP1 = -8\r\n      IP2 = ICRQ\r\n      GO TO 580\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1c.f",
    "content": "      SUBROUTINE IFP1C (I81,NZ)\r\nC\r\n      LOGICAL         BIT64\r\n      INTEGER         CORE(1),COREY(401),SCR1,THRU,OTPE,EXCE,BLANK,\r\n     1                NIFP1C(2)\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,NOGO,INTP,MPCN,SPCN,METHOD,LOADNN,\r\n     1                NLPP,STFTEM,IPAGE,LINE,TLINE,MAXLIN,DATE(3),TIM,\r\n     2                IECHO,SPLOTS,SKIP(65),INTRA\r\n      COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,NSYM,\r\n     1                ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR\r\n      COMMON /XIFP1 / BLANK,BIT64\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      EQUIVALENCE     (COREX(1),COREY(1)), (CORE(1),COREY(401))\r\n      DATA   THRU   / 4HTHRU/,EXCE / 4HEXCE/\r\n      DATA   NIFP1C / 4H IFP,4H1C  /\r\nC\r\n      I81O = I81\r\n      CORE(I81+2) = ISUB\r\n      IF (CORE(I81+3) .NE. -1) GO TO 260\r\n      CORE(I81) = CORE(I81+4)\r\n      ILSET = I81 + 1\r\n      CORE(ILSET) = 0\r\nC\r\nC     FIND BEGINNING OF SET LIST\r\nC\r\n      I81 = I81 + 5\r\n      IF (CORE(I81) .EQ. IEOR) GO TO 270\r\n      IREAL = 0\r\n      IF (CORE(I81) .GT.    1) GO TO 200\r\n      I81 = I81 + 3\r\n      IF (CORE(I81) .EQ. IEOR) GO TO 270\r\n      IPUT  = ILSET + 2\r\n   20 ITHRU = 0\r\n      IEXCPT= 0\r\n   30 ASSIGN 20 TO IRET\r\n      IF (CORE(I81)) 40,60,80\r\n   40 ITHRU  = 0\r\n      IEXCPT = 0\r\n   50 IF (IABS(CORE(I81)) .NE. 1) IREAL = 1\r\n      CORE(IPUT) = CORE(I81+1)\r\n      IBK1 = IABS(CORE(I81+1))\r\n      I81  = I81  + 2\r\n      IPUT = IPUT + 1\r\n      CORE(ILSET) = CORE(ILSET) + 1\r\n      GO TO 30\r\nC\r\nC     CONTINUATION CARD\r\nC\r\nC ... ALLOW ON-LINE READ IF INTRA IS .GT. ZERO, SET BY ONLINS\r\nC\r\n   60 IF (INTRA .LE. 0) GO TO 65\r\n      CALL XREAD (*240,CORE(1))\r\n      ICC = ICC + 1\r\n      GO TO 67\r\n   65 CALL READ (*240,*240,SCR1,CORE(1),NWPC,0,FLAG)\r\n      WRITE (OTPE,250) ICC,(CORE(I),I=1,NWPC)\r\n      ICC  = ICC  + 1\r\n      LINE = LINE + 1\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n   67 I81 = IPUT\r\n      NZ  = NZ - CORE(ILSET)\r\n      CALL XRCARD (CORE(I81),NZ,CORE(1))\r\n      GO TO IRET, (20,120)\r\nC\r\nC     END OF RECORD\r\nC\r\n   70 I81 = IPUT\r\n      IF (CORE(ILSET)-1) 200,230,71\r\n   71 CONTINUE\r\n      IF (IREAL .EQ. 1) GO TO 230\r\nC\r\nC     SORT LIST\r\nC\r\n      ISET = CORE(ILSET)\r\n      CALL IFP1S (CORE(ILSET+2),CORE(I81),CORE(ILSET))\r\nC\r\nC     CORRECT FOR DELETIONS\r\nC\r\n      I81 = I81 + CORE(ILSET) - ISET\r\n      GO TO 230\r\nC\r\nC     THRU AND EXCEPT\r\nC\r\n   80 IF (CORE(I81) .EQ. IEOR) GO TO 70\r\n      IF (IREAL .EQ. 1) CALL IFP1D(-622)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,CORE(I81+1),0)\r\n      IF (CORE(I81+1)  .NE. THRU) GO TO 90\r\n      IF (CORE(ILSET)  .EQ. 0) GO TO 200\r\n      IF (CORE(IPUT-1) .LT. 0) GO TO 280\r\n      I81 = I81 +3\r\n      IF (CORE(I81) .EQ. IEOR) GO TO 270\r\n      IBK  = IBK1\r\n      IFWD = CORE(I81+1)\r\n      IFWD1= IFWD\r\n      IF (IBK .GE. IFWD) GO TO 200\r\n      ITHRU = 1\r\nC     TEST FOR DEGENERATE THRU INTERVAL\r\n      IF (IFWD-IBK.EQ.1) GO TO 50\r\n      CORE(I81+1) = -CORE(I81+1)\r\n      GO TO 50\r\nC\r\nC     EXCEPT\r\nC\r\n   90 IF (CORE(I81+1) .NE. EXCE) GO TO 200\r\n      IF (ITHRU .EQ. 1) GO TO 110\r\nC\r\nC     EXCEPT WITHOUT THRU\r\nC\r\n      CALL IFP1D (-613)\r\n      GO TO 220\r\nC\r\nC     PROCESS EXCEPT CANDIDATES\r\nC\r\n  110 I81 = I81 + 3\r\n      IF (CORE(I81) .EQ. IEOR) GO TO 270\r\n      IF (IEXCPT .EQ. 1) GO TO 280\r\n      IEXCPT = 1\r\n      JEXCPT = 0\r\n  120 ASSIGN 120 TO IRET\r\n      IF (CORE(I81)) 130,60,80\r\n  130 IF (CORE(I81+1) .GT. IFWD1) GO TO 20\r\n      IF (CORE(I81+1) .LT.   IBK) GO TO 200\r\n      IF (CORE(I81+1).LE.CORE(I81-1) .AND. JEXCPT.EQ.1 .AND.\r\n     1   (CORE(I81+2).LE.0 .OR. CORE(I81+2).EQ.IEOR)) GO TO 160\r\n      JEXCPT = 1\r\n      IF (CORE(I81+1) .EQ.   IBK) GO TO 290\r\n      IF (CORE(I81+1) .EQ.  IFWD) GO TO 300\r\n      IF (CORE(I81+1) .EQ. IFWD1) GO TO 310\r\n      IF (CORE(I81+1)-1 .EQ. IBK) GO TO 140\r\n      IF (CORE(I81+1)+1 .EQ.IFWD) GO TO 180\r\nC     EXCEPT IN MIDDLE OF INTERVAL\r\n      CORE(IPUT-1) = -CORE(I81+1) + 1\r\n      IACIP = IABS(CORE(IPUT-1))\r\n      IF (IACIP-IBK.EQ.1) CORE(IPUT-1) = IACIP\r\n      CORE(IPUT  ) = CORE(I81+1)+1\r\n      CORE(IPUT+1) = -IFWD\r\n      IF (IFWD-CORE(IPUT).EQ.1) CORE(IPUT+1) = IFWD\r\n      IBK = CORE(IPUT)\r\n      I81 = I81  + 2\r\n      IPUT= IPUT + 2\r\n      CORE(ILSET) = CORE(ILSET) + 2\r\n      GO TO 120\r\nC     EXCEPT ADJACENT TO BOTTOM OF INTERVAL\r\n  140 IL1 = CORE(IPUT-1)\r\n      IBK = IBK + 2\r\n      CORE(IPUT-1) = IBK\r\n      IAL1 = IABS(IL1)\r\n      IF (IAL1-IBK.EQ.1) IL1 = IAL1\r\n      CORE(IPUT) = IL1\r\n      IF (IBK .NE. IAL1) GO TO 150\r\n      IBK  = 0\r\n      IFWD = 0\r\n      I81  = I81 + 2\r\n      GO TO 120\r\n  150 IPUT = IPUT + 1\r\n      I81  = I81  + 2\r\n      CORE(ILSET) = CORE(ILSET) + 1\r\n      GO TO 120\r\n  160 CALL IFP1D (-626)\r\n      I81 = I81 + 2\r\n      GO TO 120\r\nC     EXCEPT ADJACENT TO TOP OF INTERVAL\r\n  180 CORE(IPUT) = IABS(CORE(IPUT-1))\r\n      IFWD = IFWD - 2\r\n      CORE(IPUT-1) = -IFWD\r\n      IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD\r\n      GO TO 150\r\nC\r\nC     FOULED UP SET\r\nC\r\n  200 CALL IFP1D (-614)\r\n  220 I81  = I81O\r\n      NSET = NSET - 1\r\n  230 RETURN\r\n  240 CALL MESAGE (-1,SCR1,NIFP1C)\r\n      GO TO 240\r\n  250 FORMAT (11X,I8,6X,20A4)\r\nC\r\nC     NO NAME FOR SET\r\nC\r\n  260 CALL IFP1D (-615)\r\n      GO TO 220\r\nC\r\nC     UNEXPECTED END OF RECORD\r\nC\r\n  270 CALL IFP1D (-623)\r\n      GO TO 220\r\nC\r\nC     EXCEPT FOLLOWED BY THRU\r\nC\r\n  280 CALL IFP1D (-616)\r\n      GO TO 220\r\nC\r\nC     EXCEPTING BEGINNING OF INTERVAL\r\nC\r\n  290 IBK = IBK + 1\r\n      CORE(IPUT-2) = IBK\r\n      I81 = I81 + 2\r\n      IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD\r\n      IF (IBK .NE. IFWD) GO TO 120\r\n      IPUT = IPUT - 1\r\n      CORE(ILSET) = CORE(ILSET) - 1\r\n      IBK  = 0\r\n      IFWD = 0\r\n      GO TO 120\r\nC\r\nC     EXCEPT END OF INTERVAL\r\nC\r\n  300 IFWD = IFWD - 1\r\n      CORE(IPUT-1) = -IFWD\r\n      I81 = I81 + 2\r\n      IF (IFWD-IBK .EQ. 1) CORE(IPUT-1) = IFWD\r\n      IF (IBK .NE. IFWD) GO TO 20\r\n      IPUT = IPUT - 1\r\n      CORE(ILSET) = CORE(ILSET) - 1\r\n      GO TO 20\r\nC\r\nC     EXCEPT PAST OLD END OF INTERVAL\r\nC\r\n  310 I81  = I81 + 2\r\n      IPUT = IPUT- 1\r\n      CORE(ILSET) = CORE(ILSET) - 1\r\n      GO TO 20\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1d.f",
    "content": "      SUBROUTINE IFP1D (MSNO)\r\nC\r\nC     MESSAGE WRITER FOR IFP1\r\nC\r\n      INTEGER         AMSNO\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ D,NOUT,NOGO,DD(5),NLPP,DDD(2),LINE\r\n      DATA    MAXMSG/ 646   /\r\nC\r\n      AMSNO = IABS(MSNO)\r\n      IF (MSNO  .LT. 0) NOGO = 1\r\n      IF (AMSNO .GT. MAXMSG) GO TO 40\r\n      IF (AMSNO .EQ. 612) CALL PAGE1\r\n      IF (MSNO .LE. 0) WRITE (NOUT,10) UFM,AMSNO\r\n      IF (MSNO .GT. 0) WRITE (NOUT,20) UWM,AMSNO\r\n   10 FORMAT (A23,I7)\r\n   20 FORMAT (A25,I5)\r\n      IF (AMSNO.GE.634 .AND. AMSNO.LE.644) WRITE (NOUT,30)\r\n   30 FORMAT (1H+,37X,'(FROM SCAN)')\r\n      IWHER = AMSNO - 600\r\n      GO TO ( 60, 80,100,120,140,160,180,200,220,240,\r\n     1       260,280,400,420,440,460,480,500, 40, 40,\r\n     2        40,520,540,560,580,600,620,640,660,680,\r\n     3       700,720,740,760,780,800,820,840,860,880,\r\n     4       900,920,940,960,980,1000), IWHER\r\nC\r\nC     619 - 621 ARE DEFINED IN IFP1S\r\nC\r\n   40 WRITE  (NOUT,50) AMSNO\r\n   50 FORMAT (' NO TEXT AVAILABLE FOR MESSAGE',I6)\r\n      GO TO  1100\r\nC\r\n   60 WRITE  (NOUT,70)\r\n   70 FORMAT (' THE KEYWORD ON THE ABOVE CARD TYPE IS ILLEGAL OR MISS',\r\n     1        'PELLED.  SEE THE FOLLOWING LIST FOR LEGAL KEYWORDS.')\r\n      GO TO  1100\r\n   80 WRITE  (NOUT,90)\r\n   90 FORMAT (' TWO OR MORE OF THE ABOVE CARD TYPES DETECTED WHERE ',\r\n     1        'ONLY ONE IS LEGAL.' ,/,' THE LAST FOUND WILL BE USED.')\r\n      LINE = LINE + 1\r\n      GO TO  1100\r\n  100 WRITE  (NOUT,110)\r\n  110 FORMAT (' THE ABOVE CARD DOES NOT END PROPERLY. COMMENTS SHOULD',\r\n     1        'BE PRECEEDED', /,' BY A DOLLAR SIGN.')\r\n      LINE = LINE + 1\r\n      GO TO  1100\r\n  120 WRITE  (NOUT,130)\r\n  130 FORMAT (' THE ABOVE CARD HAS A NON-INTEGER IN AN INTEGER FIELD.')\r\n      GO TO  1100\r\n  140 WRITE  (NOUT,150)\r\n  150 FORMAT (' A SYMSEQ OR SUBSEQ CARD APPEARS WITHOUT A SYMCOM OR ',\r\n     1        'SUBCOM CARD.')\r\n      GO TO  1100\r\n  160 WRITE  (NOUT,170)\r\n  170 FORMAT (' A REQUEST FOR TEMPERATURE DEPENDENT MATERIALS OCCURS AT'\r\n     1,       ' THE SUBCASE LEVEL.', /,' ONLY ONE ALLOWED PER PROBLEM.')\r\n      GO TO  1100\r\n  180 WRITE  (NOUT,190)\r\n  190 FORMAT (' A REPCASE CARD MUST BE PROCEEDED BY A SUBCASE CARD')\r\n      GO TO  1100\r\n  200 WRITE  (NOUT,210)\r\n  210 FORMAT (' THE SET ID SPECIFIED ON THE ABOVE CARD MUST BE DEFINED',\r\n     1        ' PRIOR TO THIS CARD.')\r\n      GO TO  1100\r\n  220 WRITE  (NOUT,230)\r\n  230 FORMAT (' SUBCASE DELIMITER CARDS MUST HAVE A UNIQUE IDENTIFYING',\r\n     1        ' INTEGER.')\r\n      GO TO  1100\r\n  240 WRITE  (NOUT,250)\r\n  250 FORMAT (' NO SET ID SPECIFIED.  ALL WILL BE ASSUMED.')\r\n      GO TO  1100\r\n  260 WRITE  (NOUT,270)\r\n  270 FORMAT (' TEN CARDS HAVE ILLEGAL KEY WORDS. NASTRAN ASSUMES BEGIN'\r\n     1,       ' BULK CARD', /,' IS MISSING. IT WILL NOW PROCESS YOUR ',\r\n     2        'BULK DATA.')\r\n      LINE = LINE + 1\r\n      GO TO  1100\r\nC\r\nC     THE LIST OF CASE CONTROL CARDS IS FORMATTED FOR SHORT PAPER\r\nC\r\n  280 WRITE  (NOUT,290)\r\n  290 FORMAT (///,10(1H-),' THE FOLLOWING IS A LIST OF VALID CASE ',\r\n     1        'CONTROL KEY WORDS EXCEPT FOR THE PLOTTER PACKAGES.',\r\n     2        10(1H-), //6X,'KEYWORD',20X,'MEANING',/)\r\n      WRITE  (NOUT,300)\r\n  300 FORMAT (5X,'ACCELERATION',12X,\r\n     1       'OUTPUT REQUEST FOR ACCELERATION VECTORS',\r\n     2       /6X,'AEROFORCE',15X,\r\n     3       'OUTPUT REQUEST FOR AERODYNAMIC FORCES',\r\n     4       /6X,'AXISYMMETRIC',12X,\r\n     5       'AXISYMMETRIC CASE SELECTION (SINE OR COSINE)',\r\n     6       /6X,'B2PP',20X,\r\n     7       'SELECTION OF STRUCTURAL DAMPING OR THERMAL CAPACITANCE ',\r\n     8       'MATRICES',\r\n     9       /6X,'CMETHOD',17X,\r\n     O       'COMPLEX EIGENVALUE METHOD SELECTION',\r\n     1       /6X,'DEFORM',18X,\r\n     2       'REQUEST FOR ENFORCED ELEMENT DEFORMATION',\r\n     3       /6X,'DISPLACEMENT',12X,\r\n     4       'OUTPUT REQUEST FOR DISPLACEMENT VECTORS',\r\n     5       /6X,'DLOAD',19X,\r\n     6       'DYNAMIC LOAD SELECTION')\r\n      WRITE  (NOUT,310)\r\n  310 FORMAT (6X,'DSCOEFFICIENT',11X,\r\n     1       'DIFFERENTIAL STIFFNESS COEFFICIENT SET SELECTION',\r\n     2       /6X,'ECHO',20X,\r\n     3       'BULK DATA ECHO SELECTOR (SORT,UNSORT,BOTH,NONE,PUNCH)',\r\n     4       /6X,'ELFORCE',17X,\r\n     5       'OUTPUT REQUEST FOR ELEMENT FORCES',\r\n     6       /6X,'ELSTRESS',16X,\r\n     7       'OUTPUT REQUEST FOR ELEMENT STRESSES',\r\n     8       /6X,'ESE',21X,\r\n     9       'REQUEST FOR ELEMENT STRAIN ENERGY OUTPUT',\r\n     O       /6X,'FMETHOD',17X,\r\n     1       'REQUEST FOR AEROELASTIC FLUTTER METHOD',\r\n     2       /6X,'FORCE',18X,\r\n     3       'OUTPUT REQUEST FOR ELEMENT FORCES',\r\n     4       /6X,'FREQUENCY',15X,\r\n     5       'FREQUENCY SET SELECTION')\r\n      WRITE  (NOUT,320)\r\n  320 FORMAT (6X,'GPFORCE',17X,\r\n     1       'REQUEST FOR GRID POINT FORCE BALANCE OUTPUT',\r\n     2       /6X,'GUST',20X,\r\n     3       'AEROELASTIC RESPONSE ANALYSIS INPUT LOADING CONDITION',\r\n     4       /6X,'HARMONICS',15X,\r\n     5       'HARMONICS TO BE PRINTED FOR AXISYMMETRIC SHELL PROBLEM',\r\n     6       /6X,'IC',22X,\r\n     7       'INITIAL CONDITIONS FOR DIRECT TRANSIENT PROBLEM',\r\n     8       /6X,'K2PP',20X,\r\n     9       'SELECTION OF STRUCT-L STIFFNESS OR THERMAL CONDUCTANCE ',\r\n     O       'MATRICES',\r\n     1       /6X,'LABEL',19X,\r\n     2       'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT LABEL',\r\n     3       /6X,'LINE',20X,\r\n     4       'NUMBER OF LINES PER PAGE (DFLT = 50 -CDC,IBM, 45 -UNIVAC)'\r\n     5,      /6X,'LOAD',20X,\r\n     6       'STATIC ANALYSIS EXTERNAL LOAD SELECTION OR HEAT POWER/',\r\n     7       'FLUX')\r\n      WRITE  (NOUT,330)\r\n  330 FORMAT (6X,'M2PP',20X,\r\n     1       'SELECTION OF INPUT MASS MATRICES VIA DMIG CARDS',\r\n     2       /6X,'MAXLINES',16X,\r\n     3       'MAXIMUM NUMBER OF PRINTER LINES (DEFAULT = 20000)',\r\n     4       /6X,'METHOD',18X,\r\n     5       'REAL EIGENVALUE METHOD SELECTION',\r\n     6       /6X,'MODES',19X,\r\n     7       'DUPLICATE CASE CONTROL THIS MANY TIMES',\r\n     8       /6X,'MPC',21X,\r\n     9       'SELECTS MULTI-POINT CONSTRAINTS OR HEAT TRANSFER ',\r\n     O       'BOUNDARY TEMPS',\r\n     1       /6X,'MPCFORCE',16X,\r\n     2       'OUTPUT REQUEST FOR MULTI-POINT FORCES OF CONSTRAINT',\r\n     3       /6X,'NCHECK',18X,\r\n     4       'OUTPUT REQUEST FOR FORCE AND STRESS PRECISION',\r\n     5       /6X,'NLLOAD',18X,\r\n     6       'OUTPUT REQUEST FOR NON-LINEAR LOADS FOR ANALYSIS SET')\r\nC\r\n      CALL PAGE1\r\n      WRITE  (NOUT,340)\r\n  340 FORMAT (//6X,7HKEYWORD,20X,7HMEANING,\r\n     1       //6X,'NONLINEAR',15X,\r\n     2       'NON-LINEAR LOAD SET FOR TRANSIENT PROBLEMS',\r\n     3       /6X,'OFREQUENCY',14X,\r\n     4       'SELECTS OUTPUT FREQUENCIES OR -IM- PART OF COMPLEX ',\r\n     5       'EIGENVALUES',\r\n     6       /6X,'OLOAD',19X,\r\n     7       'OUTPUT REQUEST FOR APPLIED LOAD',\r\n     8       /6X,'OTIME',19X,\r\n     9       'REQUEST FOR SELECTED OUTPUT TIMES',\r\n     O       /6X,'OUTPUT',18X,\r\n     1       'OUTPUT PACKET DELIMITER (THIS CARD IS OPTIONAL)',\r\n     2       /6X,'OUTPUT(PLOT)',12X,\r\n     3       'STRUCTURE PLOTTER OUTPUT PACKET DELIMITER',\r\n     4       /6X,'OUTPUT(XYOUT)',11X,\r\n     5       'XY OUTPUT PACKET DELIMITER (PLOTTER, PRINTER AND PUNCH)',\r\n     6       /6X,'OUTPUT(XYPLOT)',10X,\r\n     7       'EQUIVALENT TO OUTPUT(XYOUT)')\r\n      WRITE  (NOUT,350)\r\n  350 FORMAT (6X,'PLCOEFFICIENT',11X,\r\n     1       'PIECEWISE LINEAR COEFFICIENT SET SELECTION',\r\n     2       /6X,'PLOTID',18X,\r\n     3       'DEFINES PLOTTER OUTPUT HEADER FRAME TITLE',\r\n     4       /6X,'PRESSURE',16X,\r\n     5       'OUTPUT REQUEST FOR HYDROELASTIC PRESSURE',\r\n     6       /6X,'RANDOM',18X,\r\n     7       'RANDOM ANALYSIS PSDL AND RANDT SET SELECTION',\r\n     8       /6X,'REPCASE',17X,\r\n     9       'REPEAT THE PRECEDING CASE AGAIN',\r\n     O       /6X,'SACCELERATION',11X,\r\n     1       'OUTPUT REQUEST FOR SOLUTION SET ACCELERATION VECTORS',\r\n     2       /6X,'SCAN',20X,\r\n     3       'SCAN AND OUTPUT STRESSES OR FORCES FOR PREDETERMINED ',\r\n     4       'CRITERIA',\r\n     5       /6X,'SDAMPING',16X,\r\n     6       'MODAL FORMULATION STRUCTURAL DAMPING TABULAR FUNCTION ',\r\n     7       'SELECTION',\r\n     8       /6X,'SDISPLACEMENT',11X,\r\n     9       'OUTPUT REQUEST FOR SOLUTION SET DISPLACEMENT VECTORS')\r\n      WRITE  (NOUT,360)\r\n  360 FORMAT (6X,'SET',21X,\r\n     1       'DEFINES OUTPUT SET LIST',\r\n     2       /6X,'SPC',21X,\r\n     3       'SELECTS SINGLE POINT CONSTRAINTS OR HEAT TRANSFER ',\r\n     4       'BOUNDARY TEMP',\r\n     5       /6X,'SPCFORCE',16X,\r\n     6       'REQUESTS SINGLE POINT CONSTRAINT FORCES OR THERMAL POWER',\r\n     7       /6X,'STRAIN',18X,\r\n     8       'OUTPUT REQUEST FOR ELEMENT STRAINS',\r\n     9       /6X,'STRESS',18X,\r\n     O       'OUTPUT REQUEST FOR ELEMENT STRESSES',\r\n     1       /6X,'SUBCASE',17X,\r\n     2       'SUBCASE DELIMITER',\r\n     3       /6X,'SUBCOM',18X,\r\n     4       'THIS CASE IS A LINEAR COMBINATION OF THE PRECEDING ',\r\n     5       'SUBCASES',\r\n     6       /6X,'SUBSEQ',18X,\r\n     7       'DEFINES COEFFICIENTS FOR LINEAR SUBCASE COMBINATION')\r\n      WRITE  (NOUT,370)\r\n  370 FORMAT (6X,'SUBTITLE',16X,\r\n     1       'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT SUBTITLE',\r\n     2       /6X,'SVECTOR',17X,\r\n     3       'OUTPUT REQUEST FOR SOLUTION SET DISPLACEMENT VECTORS',\r\n     4       /6X,'SVELOCITY',15X,\r\n     5       'OUTPUT REQUEST FOR SOLUTION SET VELOCITY VECTORS',\r\n     6       /6X,'SYM',21X,\r\n     7       'SYMMETRY SUBCASE DELIMITER',\r\n     8       /6X,'SYMCOM',18X,\r\n     9       'THIS CASE IS A LINEAR COMBINATION OF THE PRECEDING SYM ',\r\n     O       'CASES',\r\n     1       /6X,'SYMSEQ',18X,\r\n     2       'DEFINES COEFFICIENTS FOR LINEAR SYM COMBINATION (DEFAULT',\r\n     3       ' = 1.0)',\r\n     4       /6X,'TEMPERATURE(BOTH)',7X,\r\n     5       'THERMAL SET SELECTION FOR BOTH LOAD AND MATERIAL DATA',\r\n     6       /6X,'TEMPERATURE(LOAD)',7X,\r\n     7       'THERMAL LOAD TEMPERATURE SET SELECTION')\r\nC\r\n      CALL PAGE1\r\n      WRITE  (NOUT,380)\r\n  380 FORMAT (//6X,'KEYWORD',20X,'MEANING',\r\n     1       /6X,'TEMPERATURE(MATERIAL)',3X,\r\n     2       'SELECTS THERMAL DEPENDENT MATERIALS OR TEMPERATURE ',\r\n     3       'ESTIMATES',\r\n     4       /6X,'TFL',21X,\r\n     5       'TRANSFER FUNCTION SET SELECTION',\r\n     6       /6X,'THERMAL',17X,\r\n     7       'OUTPUT REQUEST FOR TEMPERATURES IN HEAT TRANSFER ANALYSIS'\r\n     8,      /6X,'TITLE',19X,\r\n     9       'DEFINES PRINTER, PLOTTER AND PUNCH OUTPUT TITLE',\r\n     O       /6X,'TSTEP',19X,\r\n     1       'TIME STEP SET SELECTION FOR TRANSIENT PROBLEMS',\r\n     2       /6X,'VECTOR',18X,\r\n     3       'OUTPUT REQUEST FOR DISPLACEMENT VECTORS',\r\n     4       /6X,'VELOCITY',16X,\r\n     5       'OUTPUT REQUEST FOR VELOCITY VECTORS',\r\n     6       /6X,'BEGIN BULK',14X,\r\n     7       'THIS CARD MARKS THE END OF THE CASE CONTROL DECK')\r\n      GO TO 1110\r\nC\r\n  400 WRITE  (NOUT,410)\r\n  410 FORMAT (' THE ABOVE SET CONTAINS -EXCEPT- WHICH IS NOT PRECEDED ',\r\n     1        'BY -THRU-.')\r\n      GO TO  1100\r\n  420 WRITE  (NOUT,430)\r\n  430 FORMAT (' THE ABOVE SET IS INCORRECTLY SPECIFIED.  CHECK FORMAT ',\r\n     1        'ON THIS OR PREVIOUS CARD.')\r\n      GO TO  1100\r\n  440 WRITE  (NOUT,450)\r\n  450 FORMAT (' AN IMPROPER OR NO NAME GIVEN TO THE ABOVE SET.')\r\n      GO TO  1100\r\n  460 WRITE  (NOUT,470)\r\n  470 FORMAT (' ELEMENT IN THRU RANGE LIES IN RANGE OF PREVIOUS THRU ',\r\n     1        'OR EXCEPT.  MISSING ELEMENT OR INCORRECT USE OF THRU.')\r\n      GO TO  1100\r\n  480 WRITE  (NOUT,490)\r\n  490 FORMAT (' INCORRECT OR MISSING VALUE ON CASE CONTROL CARD. ',\r\n     1        ' CHECK FOR CORRECT CARD FORMAT.')\r\n      GO TO  1100\r\n  500 WRITE  (NOUT,510)\r\n  510 FORMAT (' PLOT OUTPUT IS REQUESTED BUT THE PROPER PLOT TAPE IS ',\r\n     1        'NOT A PHYSICAL TAPE')\r\n      GO TO  1100\r\nC\r\n  520 WRITE  (NOUT,530)\r\n  530 FORMAT (' REAL VALUES NOT ALLOWED IN A THRU SEQUENCE.')\r\n      GO TO  1100\r\n  540 WRITE  (NOUT,550)\r\n  550 FORMAT (' UNEXPECTED END-OF-RECORD ON CASE CONTROL CARD.  CHECK ',\r\n     1        'FOR CORRECT CARD FORMAT.')\r\n      GO TO  1100\r\n  560 WRITE  (NOUT,570)\r\n  570 FORMAT (' BEGIN BULK CARD NOT FOUND.')\r\n      GO TO  1100\r\n  580 WRITE  (NOUT,590)\r\n  590 FORMAT (' TOO LARGE ID ON PRECEDING SUBCASE TYPE CARD. ALL ID-S ',\r\n     1        'MUST BE LESS THAN 99,999,999.')\r\n      GO TO  1100\r\n  600 WRITE  (NOUT,610)\r\n  610 FORMAT (' VALUES IN EXCEPT MUST BE SPECIFIED IN ASCENDING ORDER')\r\n      GO TO  1100\r\n  620 WRITE  (NOUT,630)\r\n  630 FORMAT (' THE ABOVE SUBCASE HAS BOTH A STATIC LOAD AND A REAL ',\r\n     1        'EIGENVALUE METHOD SELECTION - REMOVE ONE.')\r\n      GO TO  1100\r\n  640 WRITE  (NOUT,650)\r\n  650 FORMAT (/,' THERMAL, DEFORMATION, AND EXTERNAL LOADS CANNOT HAVE',\r\n     1        ' THE SAME SET IDENTIFICATION NUMBER.')\r\n      GO TO  1100\r\n  660 WRITE  (NOUT,670)\r\n  670 FORMAT (' ECHO CARD HAS REPEATED OR UNRECOGNIZABLE SPECIFICATION',\r\n     1        ' DATA - ',/11X,'REPEATED SPECIFICATIONS WILL BE IGNORED',\r\n     2        /11X,'UNRECOGNIZABLE SPECIFICATIONS WILL BE TREATED AS ',\r\n     3        'SORT.')\r\n      LINE = LINE + 2\r\n      GO TO  1100\r\n  680 WRITE  (NOUT,690)\r\n  690 FORMAT (' ECHO CARD WITH -NONE- SPECIFICATION HAS ADDITIONAL ',\r\n     1        'SPECIFICATIONS WHICH WILL BE IGNORED.')\r\n      GO TO  1100\r\n  700 WRITE  (NOUT,710)\r\n  710 FORMAT (' PLOT AND/OR SET COMMAND CARD MISSING FROM STRUCTURE ',\r\n     1        'PLOTTER OUTPUT PACKAGE.')\r\n      GO TO  1100\r\n  720 WRITE  (NOUT,730)\r\n  730 FORMAT (' XYPLOT COMMAND CARDS FOUND IN STRUCTURE PLOTTER OUTPUT',\r\n     1        ' PACKAGE.')\r\n      GO TO  1100\r\n  740 WRITE  (NOUT,750)\r\n  750 FORMAT (' SUBCASE LIMIT OF 360 EXCEEDED')\r\n      GO TO  1100\r\nC\r\nC     MESSAGES 634 - 644 (760 THRU 960) ARE CALLED ONLY BY SCAN\r\nC\r\n  760 WRITE  (NOUT,770)\r\n  770 FORMAT (5X,'KEYWORD INSIDE BRACKETS IS ILLEGAL OR MIS-SPELLED')\r\n      GO TO  1100\r\n  780 WRITE  (NOUT,790)\r\n  790 FORMAT (5X,'ONLY ONE SET-ID ALLOWED')\r\n      GO TO  1100\r\n  800 WRITE  (NOUT,810)\r\n  810 FORMAT (5X,'EXTRA VALUE ENCOUNTERED OR WRONG TYPE OF INPUT DATA')\r\n      GO TO  1100\r\n  820 WRITE  (NOUT,830)\r\n  830 FORMAT (5X,'ILLEGAL COMPONENT SPECIFIED')\r\n      GO TO  1100\r\n  840 WRITE  (NOUT,850)\r\n  850 FORMAT (5X,'COMPONENT LIMIT OF 31 IS EXCEEDED')\r\n      GO TO  1100\r\n  860 WRITE  (NOUT,870)\r\n  870 FORMAT (5X,'SET ID ERROR (REQUESTED BEFORE EQUAL SIGN OR ',\r\n     1       'SPLITTED ID)')\r\n      GO TO  1100\r\n  880 WRITE  (NOUT,890)\r\n  890 FORMAT (5X,'TOO MANY COMPONENTS')\r\n      GO TO  1100\r\n  900 WRITE  (NOUT,910)\r\n  910 FORMAT (5X,'MINUS MAX EXCEEDS PLUS MAX')\r\n      GO TO  1100\r\n  920 WRITE  (NOUT,930)\r\n  930 FORMAT (5X,'COMPONENT NAME NOT AVAILABLE FOR ELEMENT SELECTED')\r\n      GO TO  1100\r\n  940 WRITE  (NOUT,950)\r\n  950 FORMAT (5X,'OUTPUT SCAN BY FORCE OR BY STRESS ONLY')\r\n      GO TO  1100\r\n  960 WRITE  (NOUT,970)\r\n  970 FORMAT (5X,'LARGE TOPN VALUE REQUESTED MAY RESULT IN INSUFFICIENT'\r\n     1,      ' CORE IN OUTPUT SCAN MODULE LATER')\r\n      GO TO  1100\r\nC\r\n  980 WRITE  (NOUT,990)\r\n  990 FORMAT (5X,'SORT2 REQUEST FOR STRESSES ON THE LAYERED ELEMENTS ',\r\n     1       'IS CURRENTLY NOT SET UP BY THE RIGID FORMAT')\r\n      GO TO  1100\r\n 1000 WRITE  (NOUT,1010)\r\n 1010 FORMAT (5X,'LAYER OPTION IS AVAILABLE ONLY IN STRESS OR ELSTRESS')\r\n 1100 LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n 1110 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1e.f",
    "content": "      SUBROUTINE IFP1E (ISUBC,SYMSEQ,NWDSC,I81,ICASTE)\r\nC\r\nC     IFP1E WRITES CASECC OUT FROM CASE\r\nC\r\n      LOGICAL         BIT64\r\n      INTEGER         ISUBC(5),CASE(200,2),BLANK,CASECC,SYMSEQ(1),\r\n     1                CORE(1),COREY(401)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /XIFP1 / BLANK,BIT64\r\n      COMMON /IFP1A / SCR1,CASECC,IS,NWPC,NCPW4,NMODES,ICC,NSET,\r\n     1                NSYM,ZZZZBB,ISTR,ISUB,LENCC,IBEN,EQUAL,IEOR\r\n      EQUIVALENCE    (COREX(1),COREY(1),CASE(1,1)),(CORE(1),COREY(401))\r\n      DATA    NONE  / 4HNONE/\r\nC\r\nC     INITIALIZE\r\nC\r\nC\r\nC     SKIP FILTER INTO SUBCASES FOR SYM SUBCASES\r\nC\r\n      DO 1100 I = 1,16\r\n      IF (CASE(I,2) .EQ. 0) CASE(I,2) = CASE(I,1)\r\n 1100 CONTINUE\r\n      IF (CASE(38,2) .EQ. 0) CASE(38,2) = CASE(38,1)\r\n      IF (NSYM.GT.1 .AND. CASE(16,2).EQ.0) GO TO 1140\r\n      DO 1130 I = 1,7\r\n      IK = (I-1)*3 + 17\r\n      IF (CASE(IK,2) .NE. 0) GO TO 1125\r\n      DO 1120 J = 1,3\r\n      II = IK + J - 1\r\n 1120 CASE(II,2) = CASE(II,1)\r\n 1125 IWORD = CASE(IK,2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. NONE) CASE(IK,2) = 0\r\n 1130 CONTINUE\r\n 1140 DO 1170 J = 1,3\r\n      DO 1150 I = 1,32\r\n      K = 32*J + I + 6\r\n      IWORD = CASE(K,2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .NE. BLANK) GO TO 1170\r\n 1150 CONTINUE\r\n      DO 1160 I = 1,32\r\n      K = 32*J + I + 6\r\n 1160 CASE(K,2) = CASE(K,1)\r\n 1170 CONTINUE\r\n      J = 129\r\n      DO 1171 I = 1,5\r\n      CASE(J,2) = ISUBC(I)\r\n      J = J + 1\r\n 1171 CONTINUE\r\n      DO 1180 I = 135,LENCC\r\n      IF (CASE(I,2) .EQ. 0) CASE(I,2) = CASE(I,1)\r\n 1180 CONTINUE\r\nC     IMOV = CASE(136,2)*100000000  !! VAX/IBM INTGER OVERFLOW FOR ANOMA\r\n      IMOV = CASE(136,2)\r\n      IF (IMOV .LT. 0) IMOV = 0\r\n      IMOV = IMOV*100000000\r\n      CASE(136,2) = IABS(CASE(136,2))\r\n      CASE(2,2) = CASE(2,2) + IMOV\r\n      CASE(3,2) = CASE(3,2) + IMOV\r\n      IF (CASE(7,2) .NE. 0) CASE(7,2) = CASE(7,2) + IMOV\r\n      IF (CASE(8,2) .NE. 0) CASE(8,2) = CASE(8,2) + IMOV\r\n      ICASTE = CASE(8,2)\r\n      DO 1220 ILOOP = 1,NMODES\r\n      IF (CASE(1,2) .GT. 99999999) CALL IFP1D (-625)\r\nC\r\nC     CHECK FOR METHOD AND LOAD IN SAME SUBCASE\r\nC\r\n      IF (CASE(5,2).NE.0 .AND. CASE(4,2)+CASE(6,2)+CASE(7,2).NE.0)\r\n     1    CALL IFP1D (-627)\r\n      IF (CASE(4,2).EQ.CASE(6,2) .AND. CASE(4,2).NE.0 .OR.\r\n     1    CASE(6,2).EQ.CASE(7,2) .AND. CASE(6,2).NE.0 .OR.\r\n     2    CASE(4,2).EQ.CASE(7,2) .AND. CASE(4,2).NE.0) CALL IFP1D (-628)\r\n      CALL WRITE (CASECC,CASE(1,2),LENCC,0)\r\n      CASE(1,2) = CASE(1,2) + 1\r\n      IF (CASE(16,2) .LE. 0) GO TO 1200\r\n      IDO = CASE(LENCC,2)\r\n      CALL WRITE (CASECC,SYMSEQ(1),IDO,0)\r\n 1200 IF (NSET .EQ. 0) GO TO 1220\r\n      IP = NWDSC + 1\r\n      DO 1210 I = 1,NSET\r\n      NWOR = CORE(IP)\r\n      CALL WRITE (CASECC,CORE(IP-1),   2,0)\r\n      CALL WRITE (CASECC,CORE(IP+2),NWOR,0)\r\n      IP = IP + NWOR + 3\r\n 1210 CONTINUE\r\n 1220 CALL WRITE (CASECC,CORE(1),0,1)\r\n      NMODES = 1\r\n      IF (NSET .EQ. 0) GO TO 1270\r\nC\r\nC     REMOVE ALL SETS REFERING TO SUBCASE ONLY\r\nC\r\n      IUP  = NWDSC\r\n      IP   = NWDSC\r\n      NSET1= NSET\r\n      IMOV = 0\r\n      DO 1260 I = 1,NSET\r\n      IF (CORE(IP+2) .NE. 1) GO TO 1250\r\n      IF (IMOV       .EQ. 0) GO TO 1240\r\n      IDO = CORE(IP+1) + 3\r\n      DO 1230 J = 1,IDO\r\n      II = IUP + J - 1\r\n      IK = IP  + J - 1\r\n 1230 CORE(II) = CORE(IK)\r\n 1240 IUP = IUP+CORE(IP+1) + 3\r\n      IP  = IP +CORE(IP+1) + 3\r\n      GO TO 1260\r\n 1250 IMOV = 1\r\n      NSET1= NSET1 - 1\r\n      IP   = IP + CORE(IP+1) + 3\r\n 1260 CONTINUE\r\n      NSET = NSET1\r\n      I81  = IUP\r\n 1270 CONTINUE\r\n      DO 1280 I = 1,LENCC\r\n      CASE(I,2) = 0\r\n      IF (I.GT.38 .AND. I.LT.135) CASE(I,2) = BLANK\r\n 1280 CONTINUE\r\n      CALL IFP1F (*1281,IWORD,I2)\r\n      DO 1282 I = 1,5\r\n      ISUBC(I) = CORE(I2)\r\n      I2 = I2 + 1\r\n 1282 CONTINUE\r\n 1281 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1f.f",
    "content": "      SUBROUTINE IFP1F (*,IWORD,II)\r\nC\r\nC     FINDS FIRST 4 NON-BLANK CHARACTERS\r\nC\r\n      DIMENSION       CORE(1),COREY(401)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /IFP1A / SKIP1(4),NCPW4,SKIP2(4),IZZZBB,SKIP3(3),IBEN\r\n      EQUIVALENCE     (COREX(1),COREY(1)), (CORE(1),COREY(401))\r\nC\r\n      IWORD = IZZZBB\r\n      L  = 1\r\n      II = 0\r\n      DO 10 I = 1,18\r\n      DO 10 J = 1,NCPW4\r\n      K = KHRFN1(IZZZBB,1,CORE(I),J)\r\n      IF (K .EQ. IBEN) GO TO 10\r\n      IF (II .EQ. 0) II = I\r\n      IWORD = KHRFN1(IWORD,L,K,1)\r\n      L = L + 1\r\n      IF (L .GT. NCPW4) GO TO 20\r\n 10   CONTINUE\r\n      RETURN 1\r\n 20   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1g.f",
    "content": "      SUBROUTINE IFP1G (ITYPE,CASE,ISUB1)\r\nC\r\nC     MAKE SURE THIS VERSION ALSO WORKS IN UNIVAC, IBM, CDC AND 64-BIT\r\nC     MACHINES\r\nC     ================================================================\r\nC     IZZZBB = 0 (ALL BITS ZERO)\r\nC     IBEN   = FIRST BYTE BLANK, REST IS ZERO FILL\r\nC     EQUAL  = FIRST BYTE EQUAL, REST IS ZERO FILL\r\nC\r\n      INTEGER         CHAR,CORE(1),COREY(401),EQUAL,TITLE,CASE(200,2)\r\n      COMMON /OUTPUT/ TITLE(32)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /IFP1A / SKIP1(3),NWPC,NCPW4,SKIP2(4),IZZZBB,ISTR,SKIP3(2),\r\n     1                IBEN,EQUAL\r\n      EQUIVALENCE     (COREX(1),COREY(1)), (CORE(1),COREY(401))\r\nC\r\nC     FIND EQUAL SIGN AND COPY REMAINING DATA ON CARD\r\nC\r\nC     OR FIND THE FIRST BLANK CHARACTER AFTER THE FIRST NON-BLANK WORD\r\nC     (USED ONLY FOR ITYPE = 8, PTITLE, AXIS TITLE ETC. WHERE EQUAL SIGN\r\nC     IS OPTIONAL AND NOT MANDATORY)\r\nC\r\n      K  = -1\r\n      I2 = NWPC - 2\r\n      DO 160 I = 1,I2\r\n      DO 160 J = 1,NCPW4\r\n      CHAR = KHRFN1(IZZZBB,1,CORE(I),J)\r\n      IF (CHAR .EQ. EQUAL) GO TO 170\r\n      IF (CHAR.NE.IBEN .AND. K.EQ.-1) K = 0\r\n      IF (CHAR.EQ.IBEN .AND. K.EQ. 0) K = I*100 + J\r\n  160 CONTINUE\r\n      IF (ITYPE .NE. 8) GO TO 170\r\n      I  = K/100\r\n      J  = MOD(K,100)\r\n  170 K  = (ITYPE-1)*32\r\n      K1 = K + 38\r\n      IF (ITYPE .EQ. 8) K1 = 0\r\n      IF (J  .NE. NCPW4) GO TO 180\r\n      I = I + 1\r\n      J = 0\r\n  180 J = J + 1\r\n      IPOS  = 1\r\n      ITS   = K + 1\r\n      ISAVE = IZZZBB\r\n      DO 250 II = I,I2\r\n  190 ISAVE = KHRFN1(ISAVE,IPOS,CORE(II),J)\r\n      IPOS  = IPOS + 1\r\n      IF (IPOS .GT. 4) GO TO 210\r\n  200 J = J + 1\r\n      IF (J .LE. NCPW4) GO TO 190\r\n      J = 1\r\n      GO TO 250\r\n  210 IPOS = 1\r\n      IF (ITYPE .EQ. 7) GO TO 220\r\n      IF (ISTR-1) 220,230,220\r\n  220 TITLE(ITS) = ISAVE\r\n      GO TO 240\r\n  230 CASE(K1+1,ISUB1) = ISAVE\r\n      K1 = K1 + 1\r\n  240 ISAVE = IZZZBB\r\n      ITS = ITS + 1\r\n      GO TO 200\r\n  250 CONTINUE\r\n      DO 260 I = IPOS,4\r\n  260 ISAVE = KHRFN1(ISAVE,I,IBEN,1)\r\n      IF (ITYPE .EQ. 7) GO TO 270\r\n      IF (ISTR-1) 270,280,270\r\n  270 TITLE(ITS) = ISAVE\r\n      GO TO 290\r\n  280 CASE(K1+1,ISUB1) = ISAVE\r\n  290 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1h.f",
    "content": "      SUBROUTINE IFP1H (I81,NZ,J400)\r\nC\r\nC     THIS ROUTINE PROCESSES THE SCAN CARD IN CASE CONTROL SECTION\r\nC\r\nC     WRITTEN BY G.CHAN/SPERRY,  OCTOBER 1984\r\nC\r\nC     PROGRAM METHOD\r\nC\r\nC     A 'SCAN(HELP)' INPUT CARD WILL SET J400 TO 2, AND ANY ERROR IN\r\nC     A SCAN INPUT CARD WILL SET J400 TO 1. NON-ZERO J400 WILL CAUSE\r\nC     SCAN COMPONENT KEY-WORDS TO BE PRINTED.\r\nC\r\nC     THE SCAN INPUT CARDS, AND THEIR DATA, ARE DECODED AND SAVED IN\r\nC     CASECC FILE AS SETS OF PSEUDO SET COMMANDS (SET ID OF 10000000 FOR\r\nC     STRESS, AND 20000000 FOR FORCE). IN THIS WAY, THE SCAN CARDS CAN\r\nC     BE USED IN ALL SUBCASE LEVELS, OR ABOVE-SUBCASE LEVEL, SIMILAR TO\r\nC     THE ELEM. STRESS AND ELEM. FORCE CARDS IN THE CASE CONTROL SECTION\r\nC     HOWEVER, MULTIPLE SCAN CARDS CAN BE USED IN ALL SUBCASE LEVELS,\r\nC     AND WITHIN EACH SUBCASE\r\nC\r\nC     ELEM. NAME CAN BE SPECIFIED WITH OR WITHOUT THE LEADING LETTER C\r\nC     E.G.  BAR, CBAR, QUAD2, CQUAD2\r\nC\r\nC     SCAN COMPONENTS CAN BE REQUESTED BY ACTUAL OUTPUT COLUMN NUMBER(S)\r\nC     OR BY COMPONENT KEYWORD(S)\r\nC     IF THE ACTUAL OUTPUT COLUMN IS NOT IN THE SAME WORD ORDER AS IN\r\nC     THE OUTPUT PRINT FILE (E.G. OES1L FOR THE QUAD4 LAYER), THE ACTUAL\r\nC     COLUMN COUNT AS IT APPEARS IN THE PRINTOUT, IS USED HERE. ANY\r\nC     DISCREPANCY SHOULD BE HANDLED BY SCAN OR STRSCN ROUTINES.\r\nC\r\nC     A LIST OF KEYWORDS WILL BE PRINTED AUTOMATICALLY IF ELEM. NAME OR\r\nC     COMPONENT KEYWORD ARE MISSPELLED OR MISSSING\r\nC\r\nC     THIS LIST IS ALSO PRINTED IF A  SCAN (HELP) CARD IS IN INPUT DECK\r\nC\r\nC     THIS ROUTINE MAY ISSUE THE FOLLOWING ERROR MESSAGES -\r\nC\r\nC        604 - NON-INTEGER IN INTEGER FIELD\r\nC        608 - SET NOT DEFINED\r\nC        617 - IMPROPER FORMAT\r\nC        634 - KEYWORD INSIDE BRACKET IS ILLEGAL OR MISSPELLED\r\nC        635 - ONLY ONE SET-ID ALLOWED IN A SCAN CARD\r\nC        636 - EXTRA VALUE ENCOUNTERED\r\nC        637 - ILLEGAL COMPONENT SPECIFIED\r\nC        638 - COMPONENT LIMIT OF 31 IS EXCEEDED\r\nC        639 - SET ID ERROR (REQUESTED BEFORE EQUAL SIGN OR SPLITTED ID)\r\nC        640 - TOO MANY COMPONENTS BY NAME\r\nC        641 - -MAX EXCEEDS +MAX\r\nC        642 - COMPONENT NAME NOT AVAILABLE FOR ELEMENT SELECTED\r\nC        643 - SCAN BY STRESS OR FORCE ONLY\r\nC        644 - WARNING MESSAGE FOR POSSIBLE INSUFFICIENT CORE\r\nC        909 - CORE ARRAY NOT INITIALIZED CORRECTLY, OR MZERO IS NOT SET\r\nC              IN AGREEMENT WITH XRCARD\r\nC\r\nC     EXAMPLE - TO ADD A NEW ELEMENT TO THE SCAN MODULE   BY G.C. 7/89\r\nC           1.  INCREASE COMP DIMENSION TO ALLOW NEW COMPONENT WORDS\r\nC               IF THEY DO NOT ALREADY EXIST.\r\nC           2.  EXPAND THE SP-ARRAY IF NECESSARY. INCREASE NCOMP BY\r\nC               THE NUMBER OF NEW WORDS ADDED\r\nC           3.  REACTIVATE THE CORRESPONDING WORD IN ETAB THAT POINTS\r\nC               TO THE NEW ARRAY IN TAB\r\nC           4.  IF SP-ARRAY IS USED, MAKE SURE THAT THE COMPONENT WORDS\r\nC               ARE PROPERLY PROCESSED, IN STATEMENT NOS. 110-120\r\nC           5.  SET THE CODED WORDS IN TAB. SEE COMMENTS FUTHER DOWN\r\nC           6.  PREPARE FORMAT FOR COMPONENT WORDS PRINT OUT (FMT 690)\r\nC               UPDATE ISP-ARRAY IN CASE SP-ARRAY WAS USED PREVIOUSLY\r\nC\r\n      LOGICAL         DEBUG,   BIT64\r\n      INTEGER         CORE(1), SCR1,    NAM(2),  STRESS,  FORCE,\r\n     1                SETI,    BLANK,   E,       ERR,     EQUAL\r\n      INTEGER         SAVE(5), ETAB(90),TAB(10,17),       COMP(2,60),\r\n     1                COMP1(2,19),      COMP2(2,19),      ISP(10),\r\n     2                TAB1(10,9),       TAB2(10,8),       SP(30),\r\n     3                COMP3(2,19),      COMP4(2,3),       ICSE(400),\r\n     4                COREY(401)\r\n      DIMENSION       RCORE(1),LL(4),   CC(4),   KEYWDS(3)\r\n      REAL            BCD(2,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,    NOUT,    NOGO,    SKIP(5), NLPP,\r\n     1                MORE(2), LINE\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /GPTA1 / NELEM,   LAST,    INCR,    E(1)\r\n      COMMON /XIFP1 / BLANK,   BIT64\r\n      COMMON /IFP1A / SCR1,    CASECC,  IS,      NWPC,    NCPW,\r\n     1                NMODES,  ICC,     NSET,    DUMMY(3),ISUB,\r\n     2                LENCC,   IBLNK,   IEQUAL,  IEOR\r\n      COMMON /IFP1HX/ MSST,    MISSET(1)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      EQUIVALENCE     (CORE(1)  ,RCORE(1)   ,  COREY(401)           ),\r\n     1                (COREX(1) ,COREY(1)   ,  ICSE(1)              ),\r\n     2                (COMP(1,1),COMP1(1,1)), (COMP4(1,1),COMP(1,58)),\r\n     3                (TAB1(1,1) ,TAB(1, 1)), (COMP2(1,1),COMP(1,20)),\r\n     4                (TAB2(1,1),TAB(1,10)) , (COMP3(1,1),COMP(1,39)),\r\n     5                (BLANK    ,XBLANK   ) , (STRESS    ,BCD(1,1)  ),\r\n     6                (FORCE    ,BCD(1,2) ) , (SHEA      ,COMP(1, 9)),\r\n     7                (NORM     ,COMP(1,9)) , (MOME      ,COMP(1,22))\r\n      DATA    NCOMP,  EQUAL,    LLL,    SETI,   DEBUG    /\r\n     1        58,     4H=   ,   4HL   , 4HSET , .FALSE.  /\r\n      DATA    LLC,    COMMA,    MZERO,  BCD                          /\r\n     1        4HC   , 4H,   ,   -0    , 4HSTRE,2HSS,4HFORC,1HE,2*1H  /\r\n      DATA    NAM   / 4HIFP1,   4HH   /\r\n      DATA    COMP1 / 4HAXIA,   4HL   ,\r\n     2                4HTORS,   4HIONA,\r\n     3                4HRADI,   4HAL  ,\r\n     4                4HNORM,   4HAL  ,\r\n     5                4HPRIN,   4HCIPA,\r\n     6                4HMAJO,   4HR   ,\r\n     7                4HMINO,   4HR   ,\r\n     8                4HBEND,   4HING ,\r\n     9                4HNORM,   4H-X  ,\r\nC    9                or          -U  , AL-1, AL-X\r\n     O                4HNORM,   4H-Y  ,\r\nC    O                or          -V  , AL-2, AL-Y\r\n     1                4HNORM,   4H-Z  ,\r\n     2                4HSHEA,   4HR   ,\r\nC    2                or          R-1Z, R-41\r\n     3                4HSHEA,   4HR-XY,\r\nC    3                or          R-ZR, R-X , R-U , R-12\r\n     4                4HSHEA,   4HR-YZ,\r\nC    4                or          R-RT, R-Y , R-V , R-23\r\n     5                4HSHEA,   4HR-ZX,\r\nC    5                or          R-ZT, R-UV, R-2Z, R-34\r\n     6                4HMAX-,   4HSHR ,\r\n     7                4HSHR-,   4HFORC,\r\n     8                4HOCT-,   4HSHR ,\r\n     9                4HSA-M,   4HAX  /\r\n      DATA    COMP2 / 4HSB-M,   4HAX  ,\r\n     1                4HMOME,   4HNT  ,\r\n     2                4HMOME,   4HNT-A,\r\nC    2                or          NT-X, NT-U , NT-1\r\n     3                4HMOME,   4HNT-B,\r\nC    3                or          NT-Y, NT-V , NT-2\r\n     4                4HCURV,   4H    ,\r\n     5                4HTORQ,   4HUE  ,\r\n     6                4HCIRC,   4HUM  ,\r\n     7                4HTWIS,   4HT   ,\r\n     8                4HMARG,   4HIN  ,\r\n     9                4HMAX ,   4H    ,\r\n     O                4HMEAN,   4H    ,\r\n     1                4HAVG ,   4H    ,\r\n     2                4HMEM-,   4HT   ,\r\n     3                4HMEM-,   4HC   ,\r\n     4                4HFLEX,   4H-T  ,\r\n     5                4HFLEX,   4H-C  ,\r\n     6                4HPRIN,   4HC-A ,\r\n     7                4HPRIN,   4HC-B ,\r\n     8                4HPRIN,   4HC-C /\r\n      DATA    COMP3 / 4HEFOR,   4HCE  ,\r\n     O                4HFORC,   4HE-1 ,\r\nC                     or          E-12,\r\n     1                4HFORC,   4HE-2 ,\r\nC                     or          E-23,\r\n     2                4HFORC,   4HE-3 ,\r\nC                     or          E-34,\r\n     3                4HFORC,   4HE-4 ,\r\nC                     or          E-41,\r\n     4                4HKICK,   4H-FOR,\r\n     5                4HSIG-,   4HX   ,\r\n     6                4HSIG-,   4HY   ,\r\n     7                4HTAU-,   4HXY  ,\r\n     8                4HHELP,   4H    ,\r\n     9                4HON-L,   4HINE ,\r\n     O                4HFX+F,   4HY   ,\r\n     1                4HFXY ,   4H    ,\r\n     2                4HMX+M,   4HY   ,\r\n     3                4HMXY ,   4H    ,\r\n     4                4HVX+V,   4HY   ,\r\n     5                4HKICK,   4H ON1,\r\n     6                4HKICK,   4H ON2,\r\n     7                4HKICK,   4H ON3/\r\n      DATA    COMP4 / 4HKICK,   4H ON4,\r\n     9                4H .. ,   4H .. ,\r\n     O                4H .. ,   4H .. /\r\n      DATA    SP    / 4HR-ZR,   4HR-U ,   4HR-RT,   4HR-V ,   4HR-ZT,\r\n     1                4HR-UV,   4HNT-X,   4HNT-U,   4HNT-Y,   4HNT-V,\r\n     2                4H-U  ,   4H-V  ,   4HR-X ,   4HR-Y ,   4HR-41,\r\n     3                4HR-12,   4HR-23,   4HR-34,   4HNT-1,   4HNT-2,\r\n     4                4HR-1Z,   4HR-2Z,   4HAL-1,   4HAL-2,   4HAL-X,\r\n     5                4HAL-Y,   4HE-12,   4HE-23,   4HE-34,   4HE-41/\r\n      DATA    ETAB  /\r\n     1                  1, -02,   1,   2,   2,   3,   3,   3,   4,   1,\r\n     2                  6,   6,   6, -14,   3,   4,   3,   3,   3, -20,\r\n     3                -21, -22, -23, -24, -25, -26, -27, -28, -29, -30,\r\n     4                -31, -32, -33,   7,   8,   9,  10,  11, -39, -40,\r\n     5                -41, -42, -43, -44, -45, -46, -47, -48, -49, -50,\r\n     6                -51, -52, -53, -54, -55, -56, -57, -58, -59, -60,\r\n     7                -61,   4,   4,  15,  12,  12,  13,  14,  14, -70,\r\n     8                -71, -72, -73, -74, -75, -76, -77, -78, -79,   5,\r\n     9                  7, -82,  15, -84, -85, -86, -87, -88, -89, -90/\r\n      DATA    TAB1  /\r\nC    1. ROD, TUB, CONROD\r\n     1                01000002, 02000004, 28000503,        0,        0,\r\n     1               -01000002,-25000003,        0,        0,        0,\r\nC    2. SHEAR, TWIST\r\n     2                16000002, 28000004, 31000003, 29000002,        0,\r\n     2               -40000002,-41000003,-22000002,-23000003,        0,\r\nC    3. TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT\r\n     3                09001103, 10001204, 13001305, 06001507, 07001608,\r\n     3                16001709,-22000002,-23000003,-13000005,-14000006,\r\nC    4. TRMEM, QDMEM, QDMEM1, DQMEM2\r\n     4                09000002, 10000003, 13000004, 06000006, 07000007,\r\n     4                16000008,-40000403,-41000605,-42000807,-43000902,\r\nC   **  CONTINUE...\r\n     5               -55000010,-56000012,-57000014,-58000016,-13000011,\r\n     5               -14000013,-15000015,-12000017,        0,        0,\r\nC    6. ELAS1, ELAS2, ELAS3, IS2D8\r\n     6                18000002,-26000002,        0,        0,        0,\r\n     6               -40000904,-41000603,-42000805,-43000702,        0,\r\nC    7. BAR, ELBOW\r\n     7                19000807, 20001514, 28001609, 01000006,        0,\r\n     7               -01000008,-25000009,-12000605,-22000302,-23000504,\r\nC    8. CONEAX\r\n     8                09041852, 10051852, 15061852, 06081852, 07091852,\r\n     8                16101852,-22000003,-23000004,-13000006,-14000007,\r\nC    9. TRIARG\r\n     9                03000002, 26000003, 01000004, 12000005,        0,\r\n     9               -03020353,-26030353,-01040353,        0,        0/\r\n      DATA    TAB2  /\r\nC    O. TRAPRG\r\n     O                03020455, 26030455, 01040455, 12050455, 17060455,\r\n     O               -03020354,-26030354,-01040354,        0,        0,\r\nC    1. TORDRG\r\n     1                32020553, 33030553, 34040553, 35050553, 17060553,\r\n     1               -03000802,-26000903,-01001004,-21001105,-24001307,\r\nC   12. IHEX1, IHEX2\r\n     2                09032258, 13042258, 36052258, 30092258, 10112258,\r\n     2                14122258, 37132258, 11172258, 15182258, 38192258,\r\nC   13. IHEX3\r\n     3                09032382, 13042382, 36052382, 30092382, 10122382,\r\n     3                14132382, 37142382, 11182382, 15192382, 38202382,\r\nC   14. TRIAAX, TRAPAX\r\n     4                03030853, 01040853, 26050853, 33060853, 34070853,\r\n     4                35080853,-03030453,-26040453,-01050453,        0,\r\nC   15. QUAD4, TRIA3 (GENERAL)\r\n     5                09000003, 10000004, 13000005, 06000007, 07000008,\r\n     5                16000009,-50000302,-51000004,-52000605,-53000007,\r\n     6               -54000908,\r\nC   **. QUAD4, TRIA3 (LAYER), 9 DIGIT CODE\r\n     6                          81030899, 82040899, 84050899, 83070899,\r\n     6                85080899,        0,        0,        0,        0,\r\nC   17.\r\n     7                10*0/\r\nC\r\nC     FIRST 2 DIGITS IN A TAB ITEM ARE COMPONENT POINTER, POINTING TO\r\nC     THE BCD WORDS IN COMP ARRAY. POSITIVE FOR STRESS, AND NEGATIVE FOR\r\nC     FORCE DATA (WITH SOME EXCEPTIONS). THIS POINTER IS USED ONLY\r\nC     LOCALLY WITHIN THIS SUBROUTINE.\r\nC     NEXT 3 NUMBERS (2 DIGITS EACH) ARE POINTERS TO THE FIELD NOS.\r\nC\r\nC     SPECIAL CASE -\r\nC     IF LAST FIELD IS GREATER THAN 50 THEN, THIS LAST FIELD MINUS 50 IS\r\nC     THE REPEAT FLAG. IF LAST FIELD IS 99, WE HAVE AN OPEN-END REPEAT.\r\nC     IF LAST FIELD IS GREATER THAN 50, NEXT TO LAST FIELD IS FIELD\r\nC     INCREMENT, AND THE FIELD IN FRONT IS THE FIRST STARTING COLUMN TO\r\nC     BE SCANNED.\r\nC     THE QUAD4/TRIA3 LAYER HAS COMPONENT INDICES 81 THRU 85\r\nC     (THUS - IN FUTURE EXPANSION, ARRAY COMP SHOULD NOT EXCEED 80)\r\nC\r\nC     E.G.  TAB(3,1) =  09 00 11 03\r\nC                       09          = NORMAL-X (STRESS)\r\nC                          00       = SKIP\r\nC                             11 03 = SCAN BY 3RD AND 11TH FIELDS\r\nC\r\nC     E.G.  TAB(9,8) = -01 04 03 54\r\nC                      -01          = AXIAL (FORCE)\r\nC                                54 = REPEAT 4 TIMES\r\nC                             03    = INCREASE BY 3 ON EACH REPEAT\r\nC                          04       = SCAN BY 4, 7, 10, AND 13TH FIELDS\r\nC\r\n      IF (J400 .EQ. 2) GO TO 400\r\n      IF (MACH.EQ.2 .OR. MACH.GE.5) MZERO = -1\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 1) DEBUG = .TRUE.\r\n      ERR   = -909\r\n      NSCAN = LENCC - 1\r\n      IF (CORE(I81+3) .NE. MZERO) GO TO 300\r\n      ISCAN = I81\r\n      IWDS  = I81 + 1\r\n      IISUB = I81 + 2\r\n      IELEM = I81 + 3\r\n      ISET  = I81 + 4\r\n      ICOMP = I81 + 5\r\nC     +MAX  = I81 + 6 = TOP N\r\nC     -MAX  = I81 + 7\r\n      IREPT = I81 + 8\r\nC\r\nC     NOTE - THE IISUB WORD WILL BE DROPPED WHEN THESE WORDS ARE\r\nC            TRANSFERRED TO CASECC\r\nC\r\n      JCOMP = IWDS\r\n      IEND  = I81 + CORE(I81)*2 - 1\r\n      CORE(ISCAN) = 0\r\n      CORE(IISUB) = ISUB\r\n      CORE(IELEM) = 0\r\n      CORE(ISET ) = 0\r\n      CORE(JCOMP) = 0\r\n      NWDSS = 0\r\n      NWDSF = 0\r\n      IEQ   = 0\r\n      MAX   = 0\r\n      MIN   = 0\r\n      NSV   = 0\r\n      NRP   = 0\r\n      II    = I81 + 3\r\nC\r\n 10   II = II + 2\r\n      JJ = CORE(II  )\r\n      KK = CORE(II+1)\r\n      JX = JJ\r\n      IF (.NOT.BIT64) GO TO 15\r\nCWKBD 3/94      CALL MVBITS (BLANK,0,32,JX,0)\r\nCWKBD 3/94      CALL MVBITS (BLANK,0,32,KK,0)\r\n 15   IF (JJ .EQ. IEOR) GO TO 200\r\n      IF (II .GT. IEND) IF (JJ) 150,190,20\r\n      GO TO 30\r\nC\r\nC     DECODE BCD WORD\r\nC\r\n 20   IEND = II + JJ*2 - 1\r\n      II   = II - 1\r\n      GO TO 10\r\nC\r\nC     LOOK FOR EQUAL SIGN OR SET\r\nC\r\n 30   ERR = -617\r\n      IF (JJ .NE. MZERO) GO TO 40\r\n      IF (KK .NE. EQUAL) GO TO 300\r\n      IEQ = IEQ + 1\r\n      IF (IEQ .GT. 1) GO TO 300\r\n      CORE(ICOMP+1) = 0\r\n      CORE(ICOMP+2) = 0\r\n      GO TO 10\r\n 40   IF (JX .EQ. SETI) GO TO 130\r\nC\r\nC     LOOK FOR STRESS OR FORCE\r\nC\r\n      IF (IEQ .EQ.1) GO TO 300\r\n      IF (JX .NE. STRESS) GO TO 50\r\n      CORE(ISCAN) = CORE(ISCAN) + 10000000\r\n      GO TO 10\r\n 50   IF (JX .NE. FORCE) GO TO 60\r\n      CORE(ISCAN) = CORE(ISCAN) + 20000000\r\n      GO TO 10\r\nC\r\nC     LOOK FOR ELEMENT, DROP THE FIRST LETTER C IF NECESSARY\r\nC\r\n 60   IF (CORE(IELEM) .NE. 0) GO TO 100\r\n      JC = NAM(1)\r\n      KC = JC\r\n      IF (KHRFN2(JX,1,1) .NE. LLC) GO TO 70\r\n      JC = KHRFN3(BLANK,JX,1,1)\r\n      KC = KHRFN3(BLANK,KK,1,1)\r\n      JC = KHRFN1(JC,4,KK,1)\r\n 70   J  = 1\r\n      DO 80 I = 1,NELEM\r\n      IF (JX.EQ.E(J) .AND. KK.EQ.E(J+1)) GO TO 90\r\n      IF (JC.EQ.E(J) .AND. KC.EQ.E(J+1)) GO TO 90\r\n 80   J = J + INCR\r\n      GO TO 100\r\n 90   CORE(IELEM) = I\r\n      NWDSS = E(J+17)\r\n      NWDSF = E(J+18)\r\n      GO TO 10\r\nC\r\nC     LOOK FOR COMPONENT\r\nC\r\n 100  DO 110 I = 1,NCOMP\r\n      IF (JX.EQ.COMP(1,I) .AND. KK.EQ.COMP(2,I)) GO TO 120\r\n 110  CONTINUE\r\n      ERR = -634\r\n      I = 0\r\nC\r\nC     SP ARRAYS\r\nC        1     2     3     4     5     6     7     8     9     10\r\nC        R-ZR  R-U   R-RT  R-V   R-ZT  R-UV  NT-X  NT-U  NT-Y  NT-V\r\nC        11    12    13    14    15    16    17    18    19    20\r\nC        -U    -V    R-X   R-Y   R-41  R-12  R-23  R-34  NT-1  NT-2\r\nC        21    22    23    24    25    26    27    28    29    30\r\nC        R-1Z  R-2Z  AL-1  AL-2  AL-X  AL-Y  E-12  E-23  E-34  E-41\r\nC\r\n      IF (JX .NE.  FORCE) GO TO 115\r\n      IF (KK .EQ. SP(27)) I = 40\r\nC                 FORCE-12 (USED IN QDMEM2)\r\n      IF (KK .EQ. SP(28)) I = 41\r\nC                 FORCE-23\r\n      IF (KK .EQ. SP(29)) I = 42\r\nC                 FORCE-34\r\n      IF (KK .EQ. SP(30)) I = 43\r\nC                 FORCE-41\r\n      IF (I .EQ. 0) GO TO 300\r\n 115  IF (JX.NE.NORM .AND. JX.NE.SHEA .AND. JX.NE.MOME) GO TO 300\r\n      IF (KK.EQ.SP( 1) .OR. KK.EQ.SP( 2) .OR. KK.EQ.SP(13)) I = 13\r\nC         SHEAR-ZR          SHEAR-U           SHEAR-X\r\n      IF (KK.EQ.SP( 3) .OR. KK.EQ.SP( 4) .OR. KK.EQ.SP(14)  .OR.\r\n     1    KK.EQ.SP(17)) I = 14\r\nC         SHEAR-RT          SHEAR-V           SHEAR-6\r\nC         SHEAR-23\r\n      IF (KK.EQ.SP( 5) .OR. KK.EQ.SP( 6) .OR. KK.EQ.SP(18)) I = 15\r\nC         SHEAR-ZT          SHEAR-UV          SHEAR-34\r\n      IF (I .NE. 0) GO TO 120\r\n      IF (KK.EQ.SP( 7) .OR. KK.EQ.SP( 8)) I = 22\r\nC         MOMENT-X          MOMENT-U\r\n      IF (KK.EQ.SP( 9) .OR. KK.EQ.SP(10)) I = 23\r\nC         MOMENT-Y          MOMENT-V\r\n      IF (KK.EQ.SP(15) .OR. KK.EQ.SP(19)) I = 12\r\nC         SHEAR-41          MOMENT-1\r\n      IF (KK.EQ.SP(11) .OR. KK.EQ.SP(25)) I = 9\r\nC         NORM-U            NORNAL-X\r\n      IF (KK.EQ.SP(12) .OR. KK.EQ.SP(26)) I = 10\r\nC         NORM-V            NORNAL-Y\r\n      IF (I .NE. 0) GO TO 120\r\n      IF (KK.EQ.SP(16) .OR. KK.EQ.SP(20)) I = 13\r\nC         SHEAR-12          MOMENT-2\r\nC\r\nC     SECOND SET KEYWORDS FOR QUAD4/TRIA3 LAYER, 81 AND HIGHER\r\nC     (THE GENERAL QUAD4/TRIA3 KEYWORDS ARE BELOW 80)\r\nC\r\n      IF (I .NE. 0) GO TO 120\r\n      IF (KK .EQ. SP(23)) I = 81\r\nC         NORAML-1\r\n      IF (KK .EQ. SP(24)) I = 82\r\nC         NORMAL-2\r\n      IF (KK .EQ. SP(16)) I = 84\r\nC         SHEAR-12\r\n      IF (KK .EQ. SP(21)) I = 83\r\nC         SHEAR-1Z\r\n      IF (KK .EQ. SP(22)) I = 85\r\nC         SHEAR-2Z\r\n      IF (I .EQ. 0) GO TO 300\r\nC\r\n 120  IF (I .EQ. 48) GO TO 320\r\n      IF (I .EQ. 49) GO TO 900\r\n      ERR = -640\r\n      IF (NSV .GT. 5) GO TO 300\r\n      IF (NSV .LE. 0) GO TO 125\r\n      DO 123 J = 1,NSV\r\n      IF (SAVE(J) .EQ. I) GO TO 127\r\n 123  CONTINUE\r\n 125  NSV = NSV + 1\r\n      SAVE(NSV) = I\r\nC\r\nC     TWO WORDS, PRINCIPAL AND TORSIONAL, HAVE A LETTER L TOO LONG\r\nC\r\nC     LLL IS 4HL   , BLANK FILL\r\nC     IBLNK IS 1H  , ZERO  FILL\r\nC\r\n 127  IWORD = CORE(II+2)\r\nCWKBD 3/94      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (II.LT.IEND .AND. IWORD.EQ.LLL .AND. CORE(II+3).EQ.IBLNK)\r\n     1    II = II + 2\r\n      GO TO 10\r\nC\r\nC     PROCESS SET\r\nC\r\n 130  ERR = -635\r\n      IF (CORE(ISET) .NE. 0) GO TO 300\r\n      ERR = -639\r\n      IF (IEQ.NE.1  .OR. CORE(II+2).NE.-1) GO TO 300\r\n      CORE(ISET) = CORE(II+3)\r\n      II = II + 2\r\n      J  = NWPC + 1 + ICSE(LENCC)\r\n      DO 140 I = 1,NSET\r\n      IF (CORE(ISET) .EQ. CORE(J)) GO TO 10\r\n 140  J = J + CORE(J+1) + 3\r\n      ERR  = -608\r\n      MSST = MSST + 1\r\n      IF (MSST .GT.  0) GO TO 300\r\n      MISSET(MSST) = CORE(ISET)\r\n      ERR = 0\r\n      GO TO 10\r\nC\r\nC     NUMERIC DATA\r\nC\r\n 150  IF (JJ .EQ. -2) GO TO 170\r\n      IF (IEQ .EQ. 1) GO TO 160\r\nC\r\nC     INTEGER BEFORE EQUAL SIGN = COMPONENT(S)\r\nC\r\n      ERR = -637\r\n      IF (JJ.NE.-1 .OR. KK.LE.1) GO TO 300\r\n      ERR = -638\r\n      IF (KK .GT. 31) GO TO 300\r\n      CORE(JCOMP) = CORE(JCOMP) + 2**(KK-1)\r\n      GO TO 10\r\nC\r\nC     INTEGER AFTER EQUAL SIGN = TOP N\r\nC\r\n 160  ERR = -608\r\n      IF (IEQ .NE. 1) GO TO 300\r\n      ERR = -636\r\n      IF (MAX-1) 180,300,300\r\nC\r\nC     F.P. DATA = +MAX OR -MAX\r\nC\r\n 170  ERR = -608\r\n      IF (IEQ .NE. 1) GO TO 300\r\n      MIN = 1\r\n      ERR = -636\r\n      IF (MAX .GE. 2) GO TO 300\r\n 180  MAX = MAX + 1\r\n      CORE(ICOMP+MAX) = KK\r\n      ERR = -641\r\n      IF (MAX.EQ.2 .AND. RCORE(ICOMP+2).GT.RCORE(ICOMP+1)) GO TO 300\r\n      GO TO 10\r\nC\r\nC     READ CONTINUATION CARD\r\nC\r\n 190  CALL READ (*290,*290,SCR1,CORE(1),NWPC,0,FLAG)\r\n      WRITE (NOUT,310) ICC,(CORE(I),I=1,NWPC)\r\n      ICC  = ICC  + 1\r\n      LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) CALL PAGE\r\n      II = I81 + 8\r\n      NZ = NZ - II\r\n      CALL XRCARD (CORE(II),NZ,CORE(1))\r\n      II = II - 2\r\n      IEND = II\r\n      GO TO 10\r\nC\r\nC     SCAN CARD COMPLETED\r\nC\r\n 200  IF (NOGO .NE. 0) GO TO 330\r\n      ERR = -643\r\n      IF (CORE(ISCAN).NE.10000000 .AND. CORE(ISCAN).NE.20000000)\r\n     1   GO TO 300\r\n      CORE(ICOMP) = CORE(JCOMP)\r\n      CORE(IWDS ) = 6\r\n      IF (CORE(ISET ) .EQ. 0) CORE(ISET) = -1\r\n      IF (CORE(IELEM).EQ.0 .AND. CORE(ICOMP+2).EQ.0) CORE(IELEM) = -1\r\n      IF (MAX .EQ. 0) CORE(ICOMP+1) = 20\r\n      IF (MAX.LE.1 .AND. MIN.EQ.0) CORE(ICOMP+2) = -1\r\n      IF (CORE(ICOMP+2) .NE. -1) GO TO 205\r\nC\r\nC     COMPUTE HOW HIGH TOPN CAN GO ASSUMING LINK14 HAS AN OPEN CORE SIZE\r\nC     SAME AS THAT OF LINK1\r\nC\r\n      IF (CORE(ISCAN) .GE. 20000000) NWDSS = NWDSF\r\n      IF (2*NWDSS*CORE(ICOMP+1) .GT. KORSZ(ICSE(1))) CALL IFP1D (644)\r\nC\r\nC     CONVERT NAMED COMPONENT TO FIELD NO.\r\nC\r\n 205  IF (NSV.EQ.0 .OR. CORE(IELEM).EQ.-1) GO TO 250\r\n      I = CORE(IELEM)\r\n      I = ETAB(I)\r\n      ERR = -642\r\n      IF (I .LT. 0) GO TO 300\r\n      IE = 10\r\n      IF (I .EQ. 14) IE = 16\r\n      DO 240 K = 1,NSV\r\n      IF (CORE(ISCAN) .EQ. 20000000) SAVE(K) = -SAVE(K)\r\n      DO 210 J = 1,IE\r\n      II = TAB(J,I)/1000000\r\n      IF (II .EQ. 0) GO TO 210\r\n      IF (SAVE(K) .EQ. II) GO TO 220\r\n 210  CONTINUE\r\nC\r\nC     5 SPECIAL CASES WHERE TAB ARRAY OF 10 IS NOT LONG ENOUGH\r\nC     SET THE 11TH ITEM OF ECAH OF THESE 3 CASES\r\nC\r\n      II = 0\r\n      IF (I.EQ. 3 .AND. SAVE(K).EQ.27) II = -27000004\r\nC         TRIA1         TWIST (MOMENT)\r\n      IF (I.EQ.12 .AND. SAVE(K).EQ.18) II = +18102258\r\nC         IHEX1         OCT-SHR (STRESS)    +18102270 (IHEX2)\r\n      IF (I.EQ.13 .AND. SAVE(K).EQ.18) II = +18102382\r\nC         IHEX3         OCT-SHR (STRESS)\r\n      IF (I.EQ.12 .AND. SAVE(K).EQ.16) II = +16102270\r\nC         IHEX2         MAX-SHR (STRESS)\r\n      IF (I.EQ.13 .AND. SAVE(K).EQ.16) II = +16102382\r\nC         IHEX2         MAX-SHR (STRESS)\r\n      ERR = -637\r\n      IF (II) 300,300,225\r\n 220  II = IABS(TAB(J,I))\r\n 225  II = MOD(II,1000000)\r\n      DO 230 JJ = 1,3\r\n      KK = MOD(II,100)\r\n      IF (CORE(ICOMP) .NE. 1) GO TO 223\r\n      CORE(ICOMP) = 0\r\n      IF (IELEM .EQ. 66) KK = 70\r\nC                    IHEX2\r\n      IF (IELEM .EQ. 69) KK = 54\r\nC                    TRIATS\r\n      NRP = NRP + KK\r\n      KK  = 0\r\n 223  IF (KK .LE. 50) GO TO 227\r\n      NRP = (KK-50)*100\r\nC     NRP = 4900 FOR OPEN-END REPEAT FLAG\r\n      KK  = 1\r\n 227  IF (KK .GT. 0) CORE(ICOMP) = CORE(ICOMP) + 2**(KK-1)\r\n      II  = II/100\r\n      IF (II .EQ. 0) GO TO 240\r\n 230  CONTINUE\r\n 240  CONTINUE\r\nC\r\nC     NRP/100 IS REPEAT FLAG, AND MOD(NRP,100) IS INCREMENT\r\nC\r\n 250  IF (NOGO .NE. 0) GO TO 330\r\n      CORE(IREPT) = NRP\r\nC\r\nC     FINAL ERROR CHECK\r\nC\r\n      IF (CORE(IELEM).EQ.0 .OR. CORE(ICOMP).EQ.0) J400 = 1\r\n      ERR = -617\r\n      J = 0\r\n      DO 260 I = 1,8\r\n      IF (CORE(I81+J) .EQ. 0) GO TO 300\r\n 260  J = J + 1\r\nC\r\nC     ALL GO WELL, RE-SET PARAMETERS\r\nC     NOTE - THE (LENCC-1) WORD OF CASECC RECORDS THE NO. OF SCAN CARDS\r\nC\r\n      NSET = NSET + 1\r\n      II = (ISUB-1)*LENCC\r\n      ICSE(NSCAN+II) = ICSE(NSCAN+II) + 1\r\nCWKBD IF (DEBUG) CALL BUG1 ('IFP1H',270,CORE(I81),9)\r\n      I81 = I81 + 9\r\nC\r\nC     TURN ON STRESS OR FORCE OUTPUT FLAGS IF THEY ARE NOT ALREADY DONE\r\nC     BY THE USER.   SET OUTPUT OPTIONS TO - ALL, NOPRINT, AND REAL\r\nC     (WORD 23 ON CASECC IS STRESS OUTPUT FLAG, AND\r\nC      WORD 26 ON CASECC IS FORCE  OUTPUT FLAG)\r\nC\r\n      IF (CORE(ISCAN).EQ.20000000 .OR. ICSE(23+II+1).NE.0) GO TO 280\r\n      ICSE(23+II  ) =-1\r\n      ICSE(23+II+1) = 2\r\n      ICSE(23+II+2) = 1\r\n 280  IF (CORE(ISCAN).NE.20000000 .OR. ICSE(26+II+1).NE.0) GO TO 330\r\n      ICSE(26+II  ) =-1\r\n      ICSE(26+II+1) = 2\r\n      ICSE(26+II+2) = 1\r\n      GO TO 330\r\nC\r\n 290  CALL MESAGE (-1,SCR1,NAM)\r\n 300  CALL IFP1D (ERR)\r\n 310  FORMAT (11X,I8,6X,20A4)\r\n      IF (ICSE(NSCAN) .LT. 0) GO TO 330\r\n      IF (ERR.NE.-634 .AND. ERR.NE.-637 .AND. ERR.NE.-642) GO TO 330\r\n      ICSE(NSCAN) = -10000\r\n 320  J400 = 1\r\n 330  RETURN\r\nC\r\nC     PRINT OUT SCAN COMPONENT KEYWORDS\r\nC\r\n 400  CALL PAGE1\r\n      II = 20\r\n      GO TO 810\r\n 410  II = 0\r\n      WRITE  (NOUT,420)\r\n 420  FORMAT (46H0*** COMPONENT KEYWORDS FOR THE SCAN OPERATION, //5X,\r\n     1  59HFORCE/STRESS    KEYWORD        COMPONENT (OUTPUT FIELD NO.),\r\n     2  /5X,15(4H----),/)\r\n      LLINE = 15\r\n 425  FORMAT (/5X,17HROD, TUBE, CONROD,/)\r\n      GO TO 700\r\n 430  ISP(8) = 19\r\n      ISP(9) = 20\r\n      LLINE  = 11\r\n 435  FORMAT (/5X,12HSHEAR, TWIST,/)\r\n      GO TO 700\r\n 440  ISP( 7) = 7\r\n      ISP( 8) = 9\r\n      ISP( 9) = 13\r\n      ISP(10) = 14\r\n      LLINE   = 14\r\n 445  FORMAT (/5X,47HTRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT,/)\r\n      GO TO 700\r\n 450  WRITE  (NOUT,455)\r\n 455  FORMAT (10X,'FORCE      TWIST',15X,'4')\r\n      LINE = LINE + 1\r\n      ISP( 7) = 27\r\n      ISP( 8) = 28\r\n      ISP( 9) = 29\r\n      ISP(10) = 30\r\n      LLINE = 13\r\n 460  FORMAT (/5X,28HTRMEM, QDMEM, QDMEM1, QDMEM2,/)\r\n      GO TO 700\r\n 470  LLINE = 8\r\n      GO TO 700\r\n 480  LLINE = 9\r\n 490  FORMAT (/5X,26HELAS1, ELAS2, ELAS3, IS2D8,/)\r\n      GO TO 700\r\n 500  LLINE = 12\r\n 510  FORMAT (/5X,10HBAR, ELBOW,/)\r\n      GO TO 700\r\n 520  ISP(1) = 11\r\n      ISP(2) = 12\r\n      ISP(3) = 6\r\n      ISP(7) = 8\r\n      ISP(8) = 10\r\n      LLINE  = 13\r\n 530  FORMAT (/5X, 6HCONEAX,/)\r\n      GO TO 700\r\n 540  LLINE = 10\r\n 550  FORMAT (/5X, 6HTRIARG,/)\r\n      GO TO 700\r\n 560  LLINE = 11\r\n 570  FORMAT (/5X, 6HTRAPRG,/)\r\n      GO TO 700\r\n 580  LLINE = 13\r\n 590  FORMAT (/5X, 6HTORDRG,/)\r\n      GO TO 700\r\n 600  LLINE = 14\r\n 610  FORMAT (/5X,12HIHEX1, IHEX2,/)\r\n      GO TO 700\r\n 620  WRITE  (NOUT,625)\r\n 625  FORMAT (10X,'STRESS     MAX-SHR',12X,'10, 32, 54, 76 ... ETC',\r\n     1       /10X,'STRESS     OCT-SHR',12X,'10, 32, 54, 76 ... ETC')\r\n      LINE  = LINE + 1\r\n      LLINE = 14\r\n 630  FORMAT (/5X, 6HIHEX3 ,/)\r\n      GO TO 700\r\n 640  WRITE  (NOUT,645)\r\n 645  FORMAT (10X,'STRESS     MAX-SHR',12X,'10, 33, 56, 79 ... 746',\r\n     1       /10X,'STRESS     OCT-SHR',12X,'10, 33, 56, 79 ... 746')\r\n      LINE  = LINE + 1\r\n      LLINE = 12\r\n 650  FORMAT (/5X,14HTRIAAX, TRAPAX,/)\r\n      GO TO 700\r\n 660  ISP(1) = 25\r\n      ISP(2) = 26\r\n      LLINE  = 19\r\n 665  FORMAT (/5X,12HQUAD4, TRIA3,/)\r\n      GO TO 700\r\nC\r\nC   . QUAD4/TRIA3 LAYER\r\nC\r\n 670  ISP(2) = 23\r\n      ISP(3) = 24\r\n      ISP(4) = 16\r\n      ISP(5) = 21\r\n      ISP(6) = 22\r\n      LLINE  = 5\r\n      GO TO 700\r\nC\r\n 680  WRITE  (NOUT,685)\r\n 685  FORMAT (1X)\r\n      GO TO 840\r\nC\r\n 700  II = II + 1\r\n      CALL PAGE2 (LLINE)\r\n      GO TO (701,702,703,704,720,706,707,708,709,710,\r\n     1       711,712,713,714,715,720,717,700,700,720), II\r\n 701  WRITE (NOUT,425)\r\n      GO TO 720\r\n 702  WRITE (NOUT,435)\r\n      GO TO 720\r\n 703  WRITE (NOUT,445)\r\n      GO TO 720\r\n 704  WRITE (NOUT,460)\r\n      GO TO 720\r\n 706  WRITE (NOUT,490)\r\n      GO TO 720\r\n 707  WRITE (NOUT,510)\r\n      GO TO 720\r\n 708  WRITE (NOUT,530)\r\n      GO TO 720\r\n 709  WRITE (NOUT,550)\r\n      GO TO 720\r\n 710  WRITE (NOUT,570)\r\n      GO TO 720\r\n 711  WRITE (NOUT,590)\r\n      GO TO 720\r\n 712  WRITE (NOUT,610)\r\n      GO TO 720\r\n 713  WRITE (NOUT,630)\r\n      GO TO 720\r\n 714  WRITE (NOUT,650)\r\n      GO TO 720\r\n 715  WRITE (NOUT,665)\r\n      GO TO 720\r\n 717  LLINE = 0\r\n      GO TO 700\r\nC\r\n 720  DO 800 I = 1,10\r\n      JJ = TAB(I,II)\r\n      IF (JJ .EQ. 0) GO TO 800\r\n      BCD(1,3) = BCD(1,1)\r\n      BCD(2,3) = BCD(2,1)\r\n      IF (JJ .GE. 0) GO TO 725\r\n      BCD(1,3) = BCD(1,2)\r\n      BCD(2,3) = BCD(2,2)\r\n 725  JJ = IABS(JJ)\r\nC\r\nC                     +-------------------+    LL(1) = XX\r\nC     JJ = TAB(I,J)=  ! CC ! ZZ ! YY ! XX !    LL(2) = YY\r\nC                     +-------------------+    LL(3) = ZZ\r\nC                                              LL(4) = CC\r\n      DO 730 J = 1,4\r\n      LL(J) = MOD(JJ,100)\r\n 730  JJ = JJ/100\r\n      JJ = LL(4)\r\nC\r\nC     QUAD4/TRIA3 LAYER IF JJ IS 81 THRU 85\r\nC\r\n      IF (JJ.EQ.81 .OR.  JJ.EQ.82) JJ = 9\r\n      IF (JJ.GE.83 .AND. JJ.LE.85) JJ = 12\r\nC\r\n      KEYWDS(1) = COMP(1,JJ)\r\n      KEYWDS(2) = COMP(2,JJ)\r\n      KEYWDS(3) = BLANK\r\n      IF (II.EQ.4 .OR. II.EQ.16) GO TO  735\r\n      IF (JJ.EQ.2 .OR. JJ.EQ. 5) KEYWDS(3) = LLL\r\n      IF (JJ.LT.9 .OR. JJ.GT.30) GO TO 740\r\n      IF (JJ.EQ.11 .OR. (JJ.GE.16 .AND. JJ.LE.21)) GO TO 740\r\n 735  J = ISP(I)\r\n      IF (J .GT. 0) KEYWDS(2) = SP(J)\r\n 740  IF (LL(1) .GT. 50) GO TO 745\r\n      LL(4) = 0\r\n      IDUPL = 0\r\n      JJ    = 3\r\n      GO TO 760\r\n 745  IDUPL = LL(1) - 50\r\n      INC   = LL(2)\r\n      JJ = MIN0(IDUPL,4)\r\n      KK = LL(3)\r\n      DO 750 J = 1,JJ\r\n      LL(J) = KK\r\n 750  KK = KK+INC\r\n      KK = INC*IDUPL + LL(1)\r\n 760  DO 765 J = 1,JJ\r\n      IF (LL(J) .EQ. 0) GO TO 770\r\n 765  CC(J) = COMMA\r\n      J  = JJ + 1\r\n 770  JJ = J  - 1\r\n      CC(JJ) = XBLANK\r\n      WRITE  (NOUT,775) BCD(1,3),BCD(2,3),KEYWDS,(LL(J),CC(J),J=1,JJ)\r\n 775  FORMAT (10X,A4,A2,5X,2A4,A1,9X,4(I3,A1))\r\n      IF (IDUPL .LE. 4) GO TO 800\r\n      IF (II.NE.12 .AND. II.NE.14 .AND. II.NE.16) WRITE (NOUT,780) KK\r\n      IF (II.EQ.12 .OR.  II.EQ.14 .OR.  II.EQ.16) WRITE (NOUT,785)\r\n 780  FORMAT (1H+,54X,3H...,I4)\r\n 785  FORMAT (1H+,54X,3H...,5H ETC.)\r\n 800  CONTINUE\r\n 810  DO 820 J = 1,10\r\n 820  ISP(J) = 0\r\n      GO TO (430,440,450,470,480,500,520,540,560,580,\r\n     1       600,620,640,660,670,680,840,840,840,410), II\r\n 840  WRITE  (NOUT,850)\r\n 850  FORMAT (//5X,'USE OUTPUT FIELD NUMBER(S) TO SPECIFY COMPONENT(S)',\r\n     1       'FOR ELEMENTS OR KEYWORDS', /5X,'NOT LISTED ABOVE',/)\r\n      RETURN\r\nC\r\nC     ON-LINE\r\nC\r\n 900  WRITE  (NOUT,910) UFM\r\n 910  FORMAT (A23,', SCAN ON-LINE OPTION IS NOT AVAILABLE IN THIS ',\r\n     1        'NASTRAN RELEASE')\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1pc.f",
    "content": "      SUBROUTINE IFP1PC (I81,ICONT,POCARD,ORG,PORG)\r\nC\r\nC     SUBROUTINE TO PERFORM FIRST-LEVEL CHECKING OF STRUCTURE PLOTTER\r\nC     CONTROL CARD FORMAT.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,COMPLF\r\n      LOGICAL         FLAG(3),BIT64\r\n      INTEGER         CASE(400),CTYPE(21),IDVPR(3),CAMERA(5),ORIGIN(11),\r\n     1                AXES(3),MAXES(3),CNTUR(20),SETPR(33),SETP2(12),\r\n     2                COORD(25),LBLPR(5),PLTPR(28),NAST(2),POCARD(1),\r\n     3                CORE(1),COREY(401)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ ISYS,NOUT,NOGO,SKP(16),PLTOPT,SYS21,ILINK,\r\n     1                SKP63(63),INTRA\r\n      COMMON /XIFP1 / BLANK,BIT64\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      EQUIVALENCE     (PROJ,CTYPE(11)), (DEFO,IDVPR( 1)),\r\n     1                (SYMM,PLTPR(13)), (ANTI,PLTPR(14)),\r\n     2                (MAGN,CNTUR(13)), (THRU,PLTPR(22)),\r\n     3                (POIN,LBLPR( 2)), (CORE(1),COREY(401)),\r\n     4                (COREX(1),COREY(1),CASE(1)), (HIDD,PLTPR(24))\r\n      DATA    CTYPE / 4HPLOT, 4HORTH, 4HPERS, 4HSTER, 4HAXES, 4HVIEW,\r\n     1                4HMAXI, 4HCSCA, 4HFIND, 4HCONT, 4HPROJ, 4HOCUL,\r\n     2                4HCAME, 4HPAPE, 4HPEN , 4HPTIT, 4HSCAL, 4HORIG,\r\n     3                4HVANT, 4HSET , 4HREGI/\r\n      DATA    CAMERA/ 4HFILM, 4HPAPE, 4HBOTH, 4HBLAN, 4HFRAM/\r\n      DATA    AXES  / 4HX   , 4HY   , 4HZ   /\r\n      DATA    MAXES / 4HMX  , 4HMY  , 4HMZ  /\r\n      DATA    CNTUR / 4HMAJP, 4HMINP, 4HMAXS, 4HXNOR, 4HYNOR, 4HZNOR,\r\n     1                4HXYSH, 4HXZSH, 4HYZSH, 4HXDIS, 4HYDIS, 4HZDIS,\r\n     2                4HMAGN, 4HNRM1, 4HNRM2, 4HSH12, 4HSH1Z, 4HSH2Z,\r\n     3                4HBDSH, 4HSTRA/\r\n      DATA    SETPR / 4HINCL, 4HEXCL, 4HEXCE, 4HELEM, 4HGRID, 4HALL ,\r\n     1                4HAERO, 4HAXIF, 4HBAR , 4HCONE, 4HCONR, 4HHEXA,\r\n     2                4HFLUI, 4HIHEX, 4HPLOT, 4HQDME, 4HQDPL, 4HQUAD,\r\n     3                4HROD , 4HSHEA, 4HSLOT, 4HTETR, 4HTORD, 4HTRAP,\r\n     4                4HTRBS, 4HTRIA, 4HTRME, 4HTRPL, 4HTUBE, 4HTWIS,\r\n     5                4HVISC, 4HWEDG, 4HHBDY/\r\n      DATA    SETP2 / 4HAX  , 4HRG  , 4H1   , 4H2   , 4H3   , 4H4   ,\r\n     1                4HD2  , 4HD3  , 4HD4  , 4HM   , 4HM1  , 4HM2  /\r\n      DATA    PLTPR / 4HSET , 4HSTAT, 4HMODA, 4HCMOD, 4HFREQ, 4HTRAN,\r\n     1                4HCONT, 4HRANG, 4HTIME, 4HPHAS, 4HMAGN, 4HORIG,\r\n     2                4HSYMM, 4HANTI, 4HPEN , 4HDENS, 4HSYMB, 4HLABE,\r\n     3                4HSHAP, 4HVECT, 4HOUTL, 4HTHRU, 4HMAXI, 4HHIDD,\r\n     4                4HSHRI, 4HNOFI, 4HFILL, 4HOFFS/\r\n      DATA    IDVPR / 4HDEFO, 4HVELO, 4HACCE/\r\n      DATA    COORD / 4HYX  , 4HZX  , 4HZY  , 4HXY  , 4HXZ  , 4HYZ  ,\r\n     1                4HX   , 4HY   , 4HZ   ,\r\n     2                4HXYZ , 4HRXY , 4HRXZ , 4HRYZ , 4HR   , 4HRN  ,\r\n     3                4HXN  , 4HYN  , 4HZN  , 4HXYN , 4HXZN , 4HYZN ,\r\n     4                4HXYZN, 4HRXYN, 4HRXZN, 4HRYZN  /\r\n      DATA    LBLPR / 4HGRID, 4HPOIN, 4HELEM, 4HBOTH, 4HEPID/\r\n      DATA    TER   / 4HTER /, PLAN / 4HPLAN/, SEPA / 4HSEPA/\r\n      DATA    LAG   / 4HLAG /, NAST / 4HSC  , 4HCALC/,ILNK  / 4HNS01/\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (INTRA.LE.1 .AND. ILINK.EQ.ILNK) GO TO 15\r\n      DO 5 I = 1,200\r\n    5 CORE(I)= POCARD(I)\r\n   15 ALLON  = COMPLF(0)\r\n      EOR    = RSHIFT(ALLON,1)\r\n      ISPLOT = 0\r\n      IWRD   = I81\r\nC\r\nC     BRANCH FOR CONTINUATION CARD\r\nC                                  SET   PLOT  FIND\r\n      IF (ICONT .NE. 0) GO TO (10, 2111, 2210, 1067), ICONT\r\nC\r\n      IF (CORE(IWRD)) 9800,350,20\r\n   10 IF (CORE(IWRD) .LE.   0) GO TO 320\r\n   20 IF (CORE(IWRD) .EQ. EOR) GO TO 350\r\n      MODE = CORE(IWRD)\r\n      IWRD = IWRD + 1\r\nC\r\nC     BRANCH FOR CARD TYPE\r\nC\r\n  100 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 300 I = 1,20\r\n      IF (IWORD .EQ. CTYPE(I))\r\n     1   GO TO (400,  500,  500,  500,  600,  700,  800,  900, 1000,\r\n     2         1100, 1200, 1300, 1400,  320,  320,  320, 1800, 1900,\r\n     3         2000, 2100), I\r\nC\r\nC    1         PLOT  ORTH  PERS  STER  AXES  VIEW  MAXI  CSCA  FIND\r\nC    2         CONT  PROJ  OCUL  CAME  PAPE   PEN  PTIT  SCAL  ORIG\r\nC    3         VANT   SET\r\nC\r\n  300 CONTINUE\r\n      GO TO 9802\r\n  320 IF (MODE .LE. 0) GO TO 330\r\n      IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      GO TO 320\r\n  330 IF (CORE(IWRD)) 335,340,340\r\n  335 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1\r\n      IWRD = IWRD + 2\r\n      GO TO 330\r\n  340 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350\r\n      MODE = CORE(IWRD)\r\n      IWRD = IWRD + 1\r\n      GO TO 320\r\n  350 ICONT = 0\r\n      IF (CORE(IWRD) .EQ. 0) ICONT = 1\r\n      GO TO 9998\r\nC\r\nC     BRANCH TO PLOT OR PLOTTER\r\nC\r\n  400 IWORD = CORE(IWRD+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. TER) GO TO 410\r\n      ISPLOT = 1\r\n      GO TO 2200\r\nC\r\nC     PLOTTER CARD\r\nC\r\n  410 IWORD = CORE(IWRD+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD.EQ.NAST(1) .OR. IWORD.EQ.NAST(2)) GO TO 9804\r\n      GO TO 320\r\nC\r\nC     PROJECTION CARD\r\nC\r\n  500 IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. PROJ) GO TO 510\r\n      ASSIGN 510 TO IRTN\r\n      IPRM = PROJ\r\n      GO TO 9806\r\n  510 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 330,330,100\r\nC\r\nC     AXES CARD\r\nC\r\n  600 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 600\r\n      DO 605 J = 1,3\r\n  605 FLAG(J) = .FALSE.\r\n      I = 0\r\n      GO TO 607\r\n  606 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n  607 IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 610\r\n      DO 608 J = 1,3\r\n      IF (IWORD.EQ.AXES(J) .OR. IWORD.EQ.MAXES(J)) FLAG(J) = .TRUE.\r\n  608 CONTINUE\r\n      I = I + 1\r\n  610 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (I .LT. 3) GO TO 606\r\nC\r\n      ASSIGN 320 TO IRTN\r\n      IF (.NOT.FLAG(1) .OR. .NOT.FLAG(2) .OR. .NOT.FLAG(3)) GO TO 9810\r\n  620 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD.EQ.SYMM .OR. IWORD.EQ.ANTI) GO TO 630\r\n      IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350\r\n      IF (CORE(IWRD).NE.ALLON .AND. IWORD.NE.BLANK) GO TO 100\r\n      IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 9812,9812,620\r\n  630 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 330,330,100\r\nC\r\nC     VIEW COMMAND\r\nC\r\n  700 NREAL = 3\r\n      NOPT  = 0\r\n      GO TO 1310\r\nC\r\nC     MAXIMUM DEFORMATION CARD\r\nC\r\n  800 NREAL = 1\r\n      NOPT  = 0\r\n      IWORD = CORE(IWRD+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. DEFO) GO TO 1310\r\n      ASSIGN 320 TO IRTN\r\n      IPRM = CORE(IWRD+2)\r\n      GO TO 9808\r\nC\r\nC     CSCALE CARD\r\nC\r\n  900 ASSIGN 320 TO IRTN\r\n  910 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 930,930,920\r\n  920 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 910\r\n      GO TO 9812\r\n  930 IF (CORE(IWRD)+1) 960,940,9816\r\n  940 WRITE  (NOUT,950)\r\n  950 FORMAT (/5X,'REAL VALUE, NOT INTEGER, IS NOW USED FOR CSCALE')\r\n      GO TO 9816\r\nC\r\n  960 NREAL = 1\r\n      NOPT  = 0\r\n      GO TO 1700\r\nC\r\nC     FIND COMMAND\r\nC\r\n 1000 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n 1005 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080\r\n      ASSIGN 1070 TO IRTN\r\n      IF (MODE) 9812,9812,1006\r\n 1006 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1000\r\n      DO 1008 I = 17,21\r\n      ITYPE = I - 16\r\n      IF (IWORD .EQ. CTYPE(I))\r\n     1    GO TO (1020, 1030, 1040, 1030, 1050), ITYPE\r\nC                SCAL  ORIG  VANT   SET  REGI\r\nC\r\n 1008 CONTINUE\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 1020 NREAL = 1\r\n 1021 IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 1061\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1021\r\n      GO TO 1005\r\nC\r\n 1030 IPRM = CORE(IWRD)\r\n      ASSIGN 1005 TO IRTN\r\n 1031 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 1033,1033,1032\r\n 1032 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1031\r\n      GO TO 9814\r\n 1033 INTEG = 1\r\n      IF (CORE(IWRD) .EQ. EOR) GO TO 9814\r\n      IF (CORE(IWRD) .EQ.  -1) INTEG = 0\r\n      IF (CORE(IWRD) .EQ.  -4) IWRD  = IWRD + 1\r\n      IF (ITYPE .NE. 2) GO TO 1034\r\n      FORG = CORE(IWRD+1)\r\n      ORG  = ORG + 1\r\n      ORIGIN(ORG) = FORG\r\n 1034 IWRD = IWRD + 2\r\n      IF (PORG .GE. 0) GO TO 1066\r\n      PORG  = 0\r\n      PORG1 = FORG\r\n      GO TO 1066\r\nC\r\n 1040 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      ASSIGN 1070 TO IRTN\r\n      IF (MODE) 1041,1041,1042\r\n 1041 IPRM = POIN\r\n      GO TO 9806\r\n 1042 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. POIN) GO TO 1000\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 1050 NREAL = 4\r\n 1060 IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 1062\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1060\r\n      GO TO 9818\r\n 1061 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080\r\n 1062 INTEG = 0\r\n      ASSIGN 1005 TO IRTN\r\n      DO 1065 I = 1,NREAL\r\n      IF (CORE(IWRD) .EQ. -1) INTEG = 1\r\n      IF (CORE(IWRD) .EQ. -4) IWRD  = IWRD + 1\r\n      IWRD = IWRD + 2\r\n 1065 CONTINUE\r\n 1066 IF (INTEG) 1067,1067,9816\r\n 1067 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080\r\n      MODE = CORE(IWRD)\r\n      IWRD = IWRD + 1\r\n      GO TO 1005\r\nC\r\n 1070 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 1080\r\n      IWRD = IWRD + 1\r\n      GO TO 1070\r\n 1080 ICONT = 0\r\n      IF (CORE(IWRD) .EQ. 0) ICONT = 4\r\n      GO TO 9998\r\nC\r\nC     CONTOUR\r\nC\r\n 1100 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      ASSIGN 320 TO IRTN\r\n 1105 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 350\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1110\r\n      DO 1108 I = 1,20\r\n      IF (IWORD .EQ. CNTUR(I)) GO TO 320\r\n 1108 CONTINUE\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\n 1110 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 9812,9812,1105\r\nC\r\nC     PROJECTION PLANE SEPARATION\r\nC\r\n 1200 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      ASSIGN 320 TO IRTN\r\n      IF (MODE) 1210,1210,1220\r\n 1210 IPRM = PLAN\r\n      GO TO 9806\r\n 1220 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .NE. PLAN) GO TO 1231\r\n      IWORD = CORE(IWRD+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. SEPA) GO TO 1240\r\n 1231 IPRM = CORE(IWRD)\r\n      GO TO 9808\r\n 1240 NREAL = 1\r\n      NOPT  = 0\r\n      GO TO 1310\r\nC\r\nC     OCULAR SEPARATION\r\nC\r\n 1300 NREAL = 1\r\n      NOPT  = 0\r\n      IWORD = CORE(IWRD+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. SEPA) GO TO 1310\r\n      ASSIGN 320 TO IRTN\r\n      IPRM = CORE(IWRD+2)\r\n      GO TO 9808\r\nC\r\n 1310 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 1700,1700,1310\r\nC\r\nC     CAMERA\r\nC\r\n 1400 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 1420\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK ) GO TO 1400\r\n      IF (CORE(IWRD).EQ.EOR   .OR. CORE(IWRD).EQ.0) GO TO 9820\r\n      DO 1410 I = 1,4\r\n      IF (IWORD .EQ. CAMERA(I)) GO TO 1415\r\n 1410 CONTINUE\r\n      IPRM = CORE(IWRD)\r\n      ASSIGN 320 TO IRTN\r\n      GO TO 9808\r\n 1415 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 1420\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1415\r\n      I = I + 1\r\n      IF (IWORD.EQ.CAMERA(4) .OR. IWORD.EQ.CAMERA(5)) GO TO 1415\r\n      ASSIGN 320 TO IRTN\r\n      IF (I-4) 100,9812,100\r\n 1420 IF (CORE(IWRD).EQ.EOR .OR. CORE(IWRD).EQ.0) IF (I-3) 350,350,9820\r\n      ASSIGN 320 TO IRTN\r\n      IF (CORE(IWRD)+1) 9816,1430,9816\r\n 1430 IWRD = IWRD + 2\r\n      GO TO 10\r\nC\r\nC     TEST FOR REAL VALUES\r\nC\r\n 1700 IRO = 0\r\n      NRO = NREAL\r\n 1710 INTEG = 0\r\n      ASSIGN 320 TO IRTN\r\n      DO 1720 I = 1,NRO\r\n      IF (CORE(IWRD).GE.0 .OR. CORE(IWRD).LT.-4) IF (IRO) 9818,9818,1712\r\n 1712 IF (CORE(IWRD) .EQ. -1) INTEG = 1\r\n      IF (CORE(IWRD) .EQ. -4) IWRD  = IWRD + 1\r\n      IWRD = IWRD + 2\r\n 1720 CONTINUE\r\n      IF (INTEG .EQ. 0) GO TO 1730\r\n      ASSIGN 1730 TO IRTN\r\n      GO TO 9816\r\n 1730 IF (CORE(IWRD)) 1740,350,20\r\n 1740 IF (IRO.EQ.1 .OR. NOPT.EQ.0) GO TO 9812\r\n      IRO = 1\r\n      NRO = NOPT\r\n      GO TO 1710\r\nC\r\nC     SCALE\r\nC\r\n 1800 NREAL = 1\r\n      NOPT  = 1\r\n      GO TO 1310\r\nC\r\nC     ORIGIN\r\nC\r\n 1900 NREAL = 3\r\n      NOPT  = 0\r\n 1905 IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IF (MODE) 1907,1907,1906\r\n 1906 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1905\r\n 1907 IF (CORE(IWRD) .EQ. -1) GO TO 1910\r\n      IPRM = CTYPE(18)\r\n      ASSIGN 320 TO IRTN\r\n      GO TO 9814\r\n 1910 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1\r\n      IWRD = IWRD + 2\r\n      ASSIGN 320 TO IRTN\r\n      IF (CORE(IWRD) .EQ. EOR) GO TO 9818\r\n      IF (CORE(IWRD) .LT. 0) GO TO 1700\r\n      MODE  = CORE(IWRD)\r\n      IWRD  = IWRD + 1\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 1310\r\n      GO TO 9812\r\nC\r\nC     VANTAGE POINT\r\nC\r\n 2000 NREAL = 3\r\n      NOPT  = 1\r\n      IWORD = CORE(IWRD+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. POIN) GO TO 1310\r\n      ASSIGN 320 TO IRTN\r\n      IPRM = CORE(IWRD+2)\r\n      GO TO 9808\r\nC\r\nC     SET DEFINITION CARD\r\nC\r\n 2100 NINT = 0\r\n      NTHRU= 0\r\n 2105 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2106,2106,2108\r\n 2106 IF (CORE(IWRD) .EQ. -1) GO TO 2110\r\n      ASSIGN 2107 TO IRTN\r\n      GO TO 9816\r\n 2107 IF (CORE(IWRD) .EQ. -4) IWRD = IWRD + 1\r\n      GO TO 2110\r\n 2108 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2105\r\n      IPRM = CTYPE(20)\r\n      ASSIGN 2120 TO IRTN\r\n      GO TO 9814\r\nC\r\n 2110 IWRD  = IWRD + 2\r\n      NREAL = 0\r\n 2111 IF (CORE(IWRD)) 2112,2113,2114\r\n 2112 NINT  = NINT + 1\r\n      IF (CORE(IWRD).EQ.-1 .OR. NREAL.NE.0) GO TO 2110\r\n      ASSIGN 2110 TO IRTN\r\n      GO TO 9816\r\n 2113 ICONT = 2\r\n      NTHRU = 0\r\n      GO TO 9998\r\n 2114 IF (CORE(IWRD) .NE. EOR) GO TO 2115\r\n      ICONT = 0\r\n      GO TO 9998\r\n 2115 MODE  = CORE(IWRD)\r\n      IWRD  = IWRD + 1\r\n 2120 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).NE.ALLON .AND. IWORD.NE.BLANK) GO TO 2121\r\n      IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IF (MODE) 2111,2111,2120\r\n 2121 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .NE. THRU) GO TO 2130\r\n      NTHRU = NTHRU + 1\r\n      IF (CORE(IWRD-3).EQ.-1 .AND. CORE(IWRD+2).EQ.-1) GO TO 2122\r\n      ASSIGN 2123 TO IRTN\r\n      NREAL = 1\r\n      GO TO 9822\r\n 2122 IF (NTHRU .EQ. 1) GO TO 2123\r\n      IF (NINT.GE.2 .AND. CORE(IWRD-2).GT.CORE(IWRD-4)) GO TO 2123\r\n      ASSIGN 2123 TO IRTN\r\n      GO TO 9824\r\n 2123 NINT = 0\r\n      IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2111,2111,2130\r\n 2130 IF (CORE(IWRD) .EQ.   0) GO TO 2113\r\n      IF (CORE(IWRD) .EQ. EOR) GO TO 2114\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2135\r\n      DO 2132 I = 1,33\r\n      IF (IWORD .EQ. SETPR(I))\r\n     1   GO TO (2135, 2135, 2135, 2135, 2138, 2135, 2135, 2142, 2135,\r\n     2          2135, 2135, 2143, 2144, 2145, 2135, 2146, 2135, 2143,\r\n     3          2135, 2135, 2147, 2135, 2135, 2148, 2135, 2149, 2135,\r\n     4          2135, 2135, 2135, 2135, 2135, 2135), I\r\nC\r\nC    1          INCL  EXCL  EXCE  ELEM  GRID   ALL  AERO  AXIF   BAR\r\nC    2          CONE  CONR  HEXA  FLUI  IHEX  PLOT  QDME  QDPL  QUAD\r\nC    3           ROD  SHEA  SLOT  TETR  TORD  TRAP  TRBS  TRIA  TRME\r\nC    4          TRPL  TUBE  TWIS VISCX  WEDG  HBDY\r\nC\r\n 2132 CONTINUE\r\n      ASSIGN 2135 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\n 2135 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 2136\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2135\r\n      GO TO 2130\r\n 2136 NTHRU = 0\r\n      GO TO 2111\r\nC\r\n 2138 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2139,2139,2140\r\n 2139 ASSIGN 2136 TO IRTN\r\n      IPRM = POIN\r\n      GO TO 9806\r\n 2140 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. POIN) GO TO 2135\r\n      ASSIGN 2130 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 2142 ISTT = 4\r\n      ISTB = 6\r\n      GO TO 2150\r\nC\r\n 2143 ISTT = 3\r\n      ISTB = 6\r\n      GO TO 2150\r\nC\r\n 2144 ISTT = 7\r\n      ISTB = 9\r\n      GO TO 2150\r\nC\r\n 2145 ISTT = 3\r\n      ISTB = 5\r\n      GO TO 2150\r\nC\r\n 2146 ISTT = 10\r\n      ISTB = 12\r\n      GO TO 2150\r\nC\r\n 2147 ISTT = 5\r\n      ISTB = 6\r\n      GO TO 2150\r\nC\r\n 2148 ISTT = 1\r\n      ISTB = 2\r\n      GO TO 2150\r\nC\r\n 2149 ISTT = 1\r\n      ISTB = 5\r\nC\r\n 2150 IWORD = CORE(IWRD+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 2155 I = ISTT,ISTB\r\n      IF (IWORD .EQ. SETP2(I)) GO TO 2135\r\n 2155 CONTINUE\r\n      ASSIGN 2135 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\nC     PLOT COMMAND CARD\r\nC\r\n 2200 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n 2202 IF (CORE(IWRD).EQ.0 .OR. CORE(IWRD).EQ.EOR) GO TO 2215\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2207\r\n      DO 2205 I = 1,28\r\n      IF (IWORD .EQ. PLTPR(I))\r\n     1    GO TO (2208, 2220, 2220, 2220, 2230, 2230, 2207, 2250, 2250,\r\n     2           2260, 2207, 2208, 2280, 2280, 2208, 2208, 2208, 2290,\r\n     3           2207, 2281, 2207, 2248, 2240, 2207, 2245, 2207, 2207,\r\n     4           2208), I\r\nC\r\nC    1            SET  STAT  MODA  CMOD  FREQ  TRAN  CONT  RANG  TIME\r\nC    2           PHAS  MAGN  ORIG  SYMM  ANTI   PEN  DENS  SYMB  LABE\r\nC    3           SHAP  VECT  OUTL  THRU  MAXI  HIDD  SHRI  NOFI  FILL\r\nC    4           OFFS\r\nC\r\n 2205 CONTINUE\r\n      ASSIGN 2207 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 2207 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2210,2210,2202\r\nC\r\n 2208 IPRM = CORE (IWRD)\r\n      ASSIGN 2202 TO IRTN\r\n 2209 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 2210\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2209\r\n      GO TO 9814\r\nC\r\n 2210 IF (CORE(IWRD) .GE. 0) GO TO 2215\r\n      IF (I .NE. 12) GO TO 2214\r\n      PORG = CORE(IWRD+1)\r\n      IF (ORG .LE. 0) GO TO 9830\r\n      DO 2213 I = 1,ORG\r\n      IF (PORG .EQ. ORIGIN(I)) GO TO 2214\r\n 2213 CONTINUE\r\n      GO TO 9830\r\n 2214 IWRD = IWRD + 2\r\n      GO TO 2210\r\nC\r\n 2215 IF (CORE(IWRD) .NE. 0) GO TO 2216\r\n      ICONT = 3\r\n      GO TO 9998\r\n 2216 IF (CORE(IWRD) .NE. EOR) GO TO 2217\r\n      ICONT = 0\r\n      GO TO 9998\r\n 2217 MODE = CORE(IWRD)\r\n      IWRD = IWRD + 1\r\n      GO TO 2202\r\nC\r\n 2220 IPR1 = CORE(IWRD  )\r\n      IPR2 = CORE(IWRD+1)\r\n      IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2222,2222,2223\r\n 2222 IPRM = DEFO\r\n      ASSIGN 2210 TO IRTN\r\n      GO TO 9806\r\n 2223 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 2225 I = 1,3\r\nC                                     DEFO  VELO  ACCE\r\n      IF (IWORD .EQ. IDVPR(I)) GO TO (2207, 9826, 9826), I\r\n 2225 CONTINUE\r\n      ASSIGN 2207 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 2230 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2231,2231,2232\r\n 2231 ASSIGN 2210 TO IRTN\r\n      IPRM = DEFO\r\n      GO TO 9806\r\nC\r\n 2232 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      DO 2235 I = 1,3\r\n      IF (IWORD .EQ. IDVPR(I)) GO TO 2207\r\n 2235 CONTINUE\r\n      ASSIGN 2207 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 2250 NREAL = 2\r\n      ASSIGN 2202 TO IRTN\r\n 2251 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE .LE. 0) GO TO 2252\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2251\r\n      GO TO 9818\r\n 2252 INTEG = 0\r\n      DO 2255 I = 1,NREAL\r\n      IF (CORE(IWRD) .GE.  0) GO TO 2257\r\n      IF (CORE(IWRD) .EQ. -1) INTEG = 1\r\n      IF (CORE(IWRD) .EQ. -4) IWRD  = IWRD + 1\r\n      IWRD = IWRD + 2\r\n 2255 CONTINUE\r\n      IF (INTEG) 2210,2210,2256\r\n 2256 ASSIGN 2210 TO IRTN\r\n      GO TO 9816\r\n 2257 ASSIGN 2215 TO IRTN\r\n      GO TO 9818\r\nC\r\n 2260 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      NREAL= 1\r\n      IF (MODE) 2261,2261,2262\r\n 2261 ASSIGN 2210 TO IRTN\r\n      IPRM = LAG\r\n      GO TO 9806\r\n 2262 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. LAG) GO TO 2251\r\n      ASSIGN 2251 TO IRTN\r\n      IPRM = CORE(IWRD)\r\n      GO TO 9808\r\nC\r\n 2280 NCRD = 9\r\n      ICRD = 1\r\n      IVC  = 0\r\n      GO TO 2282\r\n 2281 NCRD = 25\r\n      ICRD = 4\r\n      IVC  = 1\r\n 2282 ASSIGN 2210 TO IRTN\r\n      IAX  = 0\r\n 2283 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 9810,9810,2284\r\n 2284 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2283\r\n      DO 2285 I = ICRD,NCRD\r\n      IF (IWORD .EQ. COORD(I)) GO TO 2286\r\n 2285 CONTINUE\r\n      IF (IAX) 9810,9810,2202\r\n 2286 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2215,2215,2287\r\n 2287 IF (IVC) 2288,2288,2202\r\n 2288 IF (IAX) 2289,2289,2202\r\n 2289 IAX = 1\r\n      GO TO 2284\r\nC\r\n 2290 IWRD = IWRD + 2\r\n      MODE = MODE - 1\r\n      IF (MODE) 2210,2210,2291\r\n 2291 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (CORE(IWRD).EQ.ALLON .OR. IWORD.EQ.BLANK) GO TO 2290\r\n      DO 2292 I = 1,5\r\n      IF (IWORD .EQ. LBLPR(I)) GO TO (2290, 2207, 2207, 2207, 2207), I\r\nC                                     GRID  POIN  ELEM  BOTH  EPID\r\n 2292 CONTINUE\r\n      GO TO 2202\r\nC\r\n 2240 IWRD  = IWRD + 2\r\n      MODE  = MODE - 1\r\n      IF (MODE) 2241,2241,2242\r\n 2241 ASSIGN 2210 TO IRTN\r\n      GO TO 9812\r\n 2242 IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. DEFO) GO TO 2243\r\n      ASSIGN 2243 TO IRTN\r\n      IPRM  = CORE(IWRD)\r\n      GO TO 9808\r\n 2243 NREAL = 1\r\n      GO TO 2251\r\nC\r\n 2245 IWRD  = IWRD + 2\r\n      IWORD = CORE(IWRD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWORD,0)\r\n      IF (IWORD .EQ. HIDD) GO TO 2207\r\n      MODE  = MODE - 1\r\n      IF (MODE) 2241,2210,2210\r\nC\r\n 2248 IF (CORE(IWRD-3).EQ.-1 .AND. CORE(IWRD+2).EQ.-1) GO TO 2207\r\n      ASSIGN 2207 TO IRTN\r\n      GO TO 9822\r\nC\r\nC     SET UP ERROR MESSAGE\r\nC\r\n 9800 ASSIGN 9900 TO IERR\r\n      MSGNO = 348\r\n      GO TO 9890\r\n 9802 ASSIGN 9902 TO IERR\r\n      MSGNO = 349\r\n      GO TO 9890\r\n 9804 ASSIGN 9904 TO IERR\r\n      MSGNO = 350\r\n      GO TO 9895\r\n 9806 ASSIGN 9906 TO IERR\r\n      MSGNO = 351\r\n      GO TO 9890\r\n 9808 ASSIGN 9908 TO IERR\r\n      MSGNO = 351\r\n      GO TO 9890\r\n 9810 ASSIGN 9910 TO IERR\r\n      MSGNO = 352\r\n      GO TO 9890\r\n 9812 ASSIGN 9912 TO IERR\r\n      MSGNO = 353\r\n      GO TO 9890\r\n 9814 ASSIGN 9914 TO IERR\r\n      MSGNO = 354\r\n      GO TO 9895\r\n 9816 ASSIGN 9916 TO IERR\r\n      MSGNO = 355\r\n      GO TO 9890\r\n 9818 ASSIGN 9918 TO IERR\r\n      MSGNO = 356\r\n      GO TO 9890\r\n 9820 ASSIGN 9920 TO IERR\r\n      MSGNO = 357\r\n      GO TO 9895\r\n 9822 ASSIGN 9922 TO IERR\r\n      MSGNO = 358\r\n      GO TO 9890\r\n 9824 ASSIGN 9924 TO IERR\r\n      MSGNO = 359\r\n      GO TO 9890\r\n 9826 ASSIGN 9926 TO IERR\r\n      MSGNO = 360\r\n      GO TO 9890\r\n 9828 ASSIGN 9928 TO IERR\r\n      MSGNO = 361\r\n      GO TO 9895\r\n 9830 ASSIGN 9930 TO IERR\r\n      MSGNO = 362\r\n      GO TO 9895\r\nC\r\n 9890 CALL PAGE2 (2)\r\n      WRITE  (NOUT,9891) UFM,MSGNO\r\n 9891 FORMAT (A23,I4)\r\n      IF (PLTOPT .LE. 2) NOGO = 1\r\n      GO TO 9898\r\n 9895 CALL PAGE2 (2)\r\n      WRITE  (NOUT,9896) UWM,MSGNO\r\n 9896 FORMAT (A25,I4)\r\nC\r\n 9898 GO TO IERR, (9900,9902,9904,9906,9908,9910,9912,9914,9916,9918,\r\n     1             9920,9922,9924,9926,9928,9930)\r\nC\r\n 9900 WRITE  (NOUT,9901)\r\n 9901 FORMAT (5X,'FIRST CHARACTER ON CARD IS NUMERIC. INCORRECT FORMAT',\r\n     1       ' OR INCORRECT CONTINUATION ON PREVIOUS CARD')\r\n      GO TO 320\r\nC\r\n 9902 WRITE  (NOUT,9903) CORE(IWRD)\r\n 9903 FORMAT (5X,'PLOT COMMAND ',A4,' NOT RECOGNIZED.  CHECK SPELLING ',\r\n     1       'AND FORMAT ON THIS CARD AND CONTINUATION ON PREVIOUS ONE')\r\n      GO TO 320\r\n 9904 WRITE  (NOUT,9905)\r\n 9905 FORMAT (1H+,30X,' - ONLY NASTRAN GENERAL PURPOSE PLOTTER IS ',\r\n     1       'SUPPORTED')\r\n      GO TO 320\r\nC\r\n 9906 WRITE  (NOUT,9907) IPRM\r\n 9907 FORMAT (1H+,30X,' - KEYWORD ',A4,' NOT FOUND')\r\n      GO TO IRTN, (320,1070,2110,2136,2210,510)\r\nC\r\n 9908 WRITE  (NOUT,9909) IPRM\r\n 9909 FORMAT (1H+,30X,' - KEYWORD ',A4,' NOT RECOGNIZED')\r\n      GO TO IRTN, (320,1070,2130,2135,2202,2207,2243,2251)\r\nC\r\n 9910 WRITE  (NOUT,9911)\r\n 9911 FORMAT (1H+,30X,' - COORDINATE AXES INCORRECTLY DEFINED')\r\n      GO TO IRTN, (320,2210)\r\nC\r\n 9912 WRITE  (NOUT,9913)\r\n 9913 FORMAT (1H+,30X,' - INCORRECT FORMAT')\r\n      GO TO IRTN, (320,1070,2210)\r\nC\r\n 9914 WRITE  (NOUT,9915) IPRM\r\n 9915 FORMAT (1H+,30X,3H - ,A4,' IDENTIFICATION NUMBER NOT DEFINED')\r\n      GO TO IRTN, (320,1005,1910,2120,2202)\r\nC\r\n 9916 WRITE  (NOUT,9917)\r\n 9917 FORMAT (1H+,30X,' - DATA TYPE IS INCORRECT')\r\n      GO TO IRTN, (1005,1730,2107,2110,2210,320)\r\nC\r\n 9918 WRITE  (NOUT,9919)\r\n 9919 FORMAT (1H+,30X,' - ONE OR MORE REQUIRED REAL VALUES MISSING')\r\n      GO TO IRTN, (320,1005,2202,2215)\r\nC\r\n 9920 WRITE  (NOUT,9921)\r\n 9921 FORMAT (1H+,30X,' - CAMERA OPTION NOT SPECIFIED')\r\n      GO TO 320\r\nC\r\n 9922 WRITE  (NOUT,9923)\r\n 9923 FORMAT (1H+,30X,' - THRU MUST BE PRECEDED AND FOLLOWED BY INTEGER'\r\n     1,      ' VALUES')\r\n      GO TO IRTN, (2123,2207)\r\nC\r\n 9924 WRITE  (NOUT,9925)\r\n 9925 FORMAT (1H+,30X,' - THRU RANGE OVERLAPS RANGE OF PREVIOUS THRU')\r\n      GO TO 2123\r\nC\r\n 9926 WRITE  (NOUT,9927) IPR1,IPR2\r\n 9927 FORMAT (1H+,30X,' - ONLY DEFORMATION VALID WITH ',2A4)\r\n      GO TO 2207\r\nC\r\n 9928 WRITE  (NOUT,9929) FORG,PORG\r\n 9929 FORMAT (1H+,30X,' - A NEW ORIGIN',I8,' WAS DEFINED IN A FIND ',\r\n     1        'CARD, BUT IT IS NOT USED BY THE IMMEDIATE PLOT CARD',\r\n     2        /5X,'(ORIGIN',I8,' WILL BE USED FOR THIS PLOT)',/)\r\n      GO TO 9999\r\nC\r\n 9930 WRITE  (NOUT,9931) PORG\r\n 9931 FORMAT (1H+,30X,' - ORIGIN',I8,' IS UNDEFINED')\r\n      GO TO 2207\r\nC\r\n 9998 IF (ISPLOT.EQ.0 .OR. PORG.EQ.-1) RETURN\r\n      IF (PORG .EQ. 0) PORG = PORG1\r\n      IF (FORG.NE.0 .AND. FORG.NE.PORG) GO TO 9828\r\n 9999 FORG = 0\r\n      PORG = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1s.f",
    "content": "      SUBROUTINE IFP1S (LIST,ISTOR,NLIST)\r\nC\r\nC     THIS ROUTINE FINDS ANY OVERLAPPING INTERVALS IN A SET LIST.\r\nC     IT WILL ALSO CHECK SINGLES\r\nC\r\n      INTEGER         OTPE\r\n      DIMENSION       LIST(1),ISTOR(1)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE\r\nC\r\n      IPAIR = 0\r\n      DO 100 I = 1,NLIST\r\n      IF (LIST(I) .GT. 0) GO TO 100\r\n   10 IF (IPAIR   .NE. 0) GO TO 40\r\n   20 L = 2*IPAIR + 1\r\n      ISTOR(L  ) = LIST(I-1)\r\n      ISTOR(L+1) = LIST(I  )\r\n      IPAIR = IPAIR + 1\r\n   30 LIST(I  ) = 0\r\n      LIST(I-1) = 0\r\n      GO TO 100\r\nC\r\nC     PAIR FOUND - CHECK FOR OVERLAP\r\nC\r\n   40 L  = 1\r\n      IN = IABS(LIST(I-1))\r\n      IOUT = IABS(LIST(I  ))\r\n      K  = 2*L - 1\r\n   50 IF (IN.GE.ISTOR(K)   .AND. IN.LE.IABS(ISTOR(K+1))  ) GO TO 60\r\n      IF (IOUT.GE.ISTOR(K) .AND. IOUT.LE.IABS(ISTOR(K+1))) GO TO 60\r\n      L  = L + 1\r\n      IF (L .LE. IPAIR) GO TO 50\r\nC\r\nC     STORE NEW PAIR IN LIST\r\nC\r\n      GO TO 20\r\nC\r\nC     ERROR IN INTERVAL\r\nC\r\n   60 LIST(I-1) = MIN0(IN,ISTOR(K))\r\n      LIST(I  ) =-MAX0(IOUT,IABS(ISTOR(K+1)))\r\n      IF (LIST(I-1).EQ.ISTOR(K) .AND. LIST(I).EQ.ISTOR(K+1)) GO TO 30\r\n      IX = IABS(ISTOR(K+1))\r\n      WRITE  (OTPE,70) UWM,IN,IOUT,ISTOR(K),IX\r\n   70 FORMAT (A25,' 621, INTERVAL',I8,' THRU',I8,' OVERLAPS INTERVAL',\r\n     1       I8,' THRU', I8,'. THE MAXIMUM INTERVAL WILL BE USED.')\r\n      LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\nC\r\nC     REMOVE PAIR L FROM ISTOR\r\nC\r\n   80 IF (L .GE. IPAIR) GO TO 90\r\n      M = 2*L + 1\r\n      K = 2*L - 1\r\n      ISTOR(K  ) = ISTOR(M  )\r\n      ISTOR(K+1) = ISTOR(M+1)\r\n      L = L + 1\r\n      GO TO 80\r\n   90 IPAIR = IPAIR - 1\r\n      GO TO 10\r\n  100 CONTINUE\r\nC\r\nC     ALL PAIRS PROCESSED - TRY SINGLES\r\nC\r\n      ISING = 0\r\n      M  = 2*IPAIR\r\n      DO 180 I = 1,NLIST\r\n      IN = LIST(I)\r\n      IF (IPAIR   .EQ. 0) GO TO 140\r\n      IF (LIST(I) .EQ. 0) GO TO 180\r\nC\r\nC     CHECK EACH PAIR\r\nC\r\n      L = 1\r\n  110 K = 2*L - 1\r\n      IF (IN.GE.ISTOR(K) .AND. IN.LE.IABS(ISTOR(K+1))) GO TO 120\r\n      L = L + 1\r\n      IF (L-IPAIR) 110,110,140\r\nC\r\nC     ERROR -- PAIR CONTAINS SINGLE\r\nC\r\n  120 IN1 = IABS(ISTOR(K+1))\r\n      WRITE  (OTPE,130) UWM,IN,ISTOR(K),IN1\r\n  130 FORMAT (A25,' 619, SET MEMBER',I8,' BELONGS TO',I8,' THRU',I8)\r\n      LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      GO TO 180\r\nC\r\nC     CHECK FOR DUPLICATE SINGLES\r\nC\r\n  140 IF (ISING .EQ. 0) GO TO 170\r\n      DO 160 K = 1,ISING\r\n      L = 2*IPAIR + K\r\n      IF (IN .NE. ISTOR(L)) GO TO 160\r\n      WRITE  (OTPE,150) UWM,IN\r\n  150 FORMAT (A25,' 620, SET MEMBER',I8,' IS DUPLICATED IN SET LIST.')\r\n      LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      GO TO 180\r\n  160 CONTINUE\r\n  170 M = M + 1\r\n      ISING = ISING + 1\r\n      ISTOR(M) = IN\r\n  180 CONTINUE\r\nC\r\nC     COPY GOOD STUFF INTO LIST\r\nC\r\n      DO 190 I = 1,M\r\n  190 LIST(I) = ISTOR(I)\r\n      NLIST = M\r\nC\r\nC     SORT LIST\r\nC\r\n      N1 = M - 1\r\n      DO 230 I = 1,N1\r\n      N2 = I + 1\r\n      DO 220 K = N2,M\r\n      IF (IABS(LIST(I))-IABS(LIST(K))) 220,220,210\r\nC\r\nC     SWITCH\r\nC\r\n  210 IN = LIST(I)\r\n      LIST(I) = LIST(K)\r\n      LIST(K) = IN\r\n  220 CONTINUE\r\n  230 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp1xy.f",
    "content": "      SUBROUTINE IFP1XY (CARD,XYCARD)\r\nC\r\nC     THIS ROUTINE PROCESSES THE XRCARD IMAGES OF THE XY-PLOT CONTROL\r\nC     CARDS AND CREATES THE -XYCDB- FILE WHICH IS OPENED AND CLOSED BY\r\nC     THE CALLING ROUTINE.\r\nC\r\nC     THE ARGUMENT -CARD- IS = 1 ON THE FIRST CALL TO THIS ROUTINE\r\nC                            = 0 ON OTHER CALLS WHEN AN IMAGE IS SENT\r\nC                            =-1 ON LAST CALL AND NO IMAGE IS SENT\r\nC\r\nC     TWO RECORDS WILL BE FORMED BY THIS ROUTINE.\r\nC     THE FIRST RECORD HAS XY-PLOT, XY-PRINT, AND XY-PUNCH DATA AND IS\r\nC     USED BY THE XYTRAN MODULE.\r\nC     THE SECOND RECORD IS A SORTED NX6 MATRIX STORED BY ROWS. EACH ROW\r\nC     CONTAINS THE FOLLOWING.\r\nC\r\nC          1 - SUBCASE ID OR 0 INDICATING ALL.\r\nC          2 - VECTOR CODE NUMBER E.G. DISP,STRESS,SPCF, ETC.\r\nC          3 - POINT OR ELEMENT ID NUMBER.\r\nC          4 - COMPONENT NUMBER.\r\nC          5 - TYPE OF PLOT (1=RESP,2=AUTO,3=PSDF)\r\nC          6 - DESTINATION CODE 1-7 (BIT1=PRINT,BIT2=PLOT,BIT3=PUNCH).\r\nC              CODE 8 ADDED - BIT 4 PAPERPLOT\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         CONTIN,SLASH,PAIRS,OFBCD,TAPBIT,XYCM,BIT64\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      DIMENSION       BUF(10),MODID(2),XYCARD(1),KWORD(3),RWORD(14),\r\n     1                IWORD(26),BWORD(16),ICSE(400),INCARD(20),\r\n     2                BUFF(150),SUBCAS(200),Z(1),COREY(771)\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      COMMON /SYSTEM/ KSYSTM(21),ILINK,SKP63(63),INTR\r\n      COMMON /IFP1A / DUM3(3),NWPC,DUMMY(11),A377\r\n      COMMON /XIFP1 / BLANK,BIT64\r\nC     COMMON /ZZIFP1/ ICSE(400),INCARD(20),BUFF(150),SUBCAS(200),Z(1)\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /IFPX0 / LBD,LCC,BITS(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF    ), (KSYSTM( 2),L      ),\r\n     1                (KSYSTM( 3),NOGO      ), (KSYSTM( 9),NLPP   ),\r\n     2                (KSYSTM(12),LINE      ), (KSYSTM(21),IRESRT ),\r\n     3                (ICSE(1)   ,COREX(1   ), COREY(1)           ),\r\n     4                (INCARD(1) ,COREY(401)), (BUFF(1),COREY(421)),\r\n     5                (SUBCAS(1) ,COREY(571)), (Z(1)   ,COREY(771))\r\n      DATA    NRWORD/ 14 /,  NIWORD / 26    /, NBWORD  / 16 /\r\n      DATA    ILNK  / 4HNS01        /\r\n      DATA    KWORD / 4HFILM, 4HPAPE, 4HBOTH/\r\n      DATA    RWORD / 4HXMIN, 4HXMAX, 4HYMIN, 4HYMAX, 4HYTMI, 4HYTMA,\r\n     1                4HYBMI, 4HYBMA, 4HYINT, 4HXINT, 4HYTIN, 4HYBIN,\r\n     2                4HXPAP, 4HYPAP/\r\n      DATA    IWORD / 4HXDIV, 4HYDIV, 4HYTDI, 4HYBDI, 4HXVAL, 4HYVAL,\r\n     1                4HYTVA, 4HYBVA, 4HUPPE, 4HLOWE, 4HLEFT, 4HRIGH,\r\n     2                4HTLEF, 4HTRIG, 4HBLEF, 4HBRIG, 4HALLE, 4HTALL,\r\n     3                4HBALL, 4HCURV, 4HDENS, 4HCAME, 4HPENS, 4HSKIP,\r\n     4                4HCSCA, 4HCOLO/\r\n      DATA    BWORD / 4HXAXI, 4HYAXI, 4HXTAX, 4HXBAX, 4HXLOG, 4HYLOG,\r\n     1                4HYTLO, 4HYBLO, 4HXGRI, 4HYGRI, 4HXTGR, 4HXBGR,\r\n     2                4HPLOT, 4HYTGR, 4HYBGR, 4HLONG/\r\n      DATA    CLEA  / 4HCLEA /,   YES   / 4HYES  /,   NO    / 4HNO   /,\r\n     1        T1    / 4HT1   /,   R1    / 4HR1   /,   T1RM  / 4HT1RM /,\r\n     2        T2    / 4HT2   /,   R2    / 4HR2   /,   T2RM  / 4HT2RM /,\r\n     3        T3    / 4HT3   /,   R3    / 4HR3   /,   T3RM  / 4HT3RM /,\r\n     4        T1IP  / 4HT1IP /,   R1RM  / 4HR1RM /,   R1IP  / 4HR1IP /,\r\n     5        T2IP  / 4HT2IP /,   R2RM  / 4HR2RM /,   R2IP  / 4HR2IP /,\r\n     6        T3IP  / 4HT3IP /,   R3RM  / 4HR3RM /,   R3IP  / 4HR3IP /,\r\n     7        XYPL  / 4HXYPL /,   XYPU  / 4HXYPU /,   XYPR  / 4HXYPR /,\r\n     8        SLAS  / 4H/    /,   THRU  / 4HTHRU /,   FRAM  / 4HFRAM /,\r\n     9        XY    / 4HXY   /,   AUTO  / 4HAUTO /,   RESP  / 4HRESP /\r\n      DATA    PSDF  / 4HPSDF /,   VDUM  / 4HVDUM /,   DISP  / 4HDISP /,\r\n     1        VELO  / 4HVELO /,   SVEL  / 4HSVEL /,   ELST  / 4HELST /,\r\n     2        ACCE  / 4HACCE /,   SPCF  / 4HSPCF /,   SACC  / 4HSACC /,\r\n     3        OLOA  / 4HOLOA /,   LOAD  / 4HLOAD /,   STRE  / 4HSTRE /,\r\n     4        NONL  / 4HNONL /,   SUBC  / 4HSUBC /,   FORC  / 4HFORC /,\r\n     5        SDIS  / 4HSDIS /,   ELFO  / 4HELFO /,   XTIT  / 4HXTIT /,\r\n     6        YTIT  / 4HYTIT /,   YTTI  / 4HYTTI /,   TCUR  / 4HTCUR /,\r\n     7        YBTI  / 4HYBTI /,   XYPE  / 4HXYPE /,   VECT  / 4HVECT /,\r\n     8        PLT1  / 4HPLT1 /,   PLT2  / 4HPLT2 /,   EOR   /  1     /,\r\n     9        XYPA  / 4HXYPA /,   XYCM  / .FALSE./,   NOEOR /  0     /\r\n      DATA    IDEN  / 4HDENS /,   IEQUAL/ 4H=    /,   OPAREN/ 4H(    /,\r\n     1        FILE  / 4HXYCD /,   VG    / 2HVG   /,   IMODEL/ 4HMODE /,\r\n     2        REAL  / -2     /,   INTE  / -1     /,   CONT  / 0      /,\r\n     3        G     / 1HG    /,   F     / 1HF    /\r\nC\r\n      BITWRD = LBD + 1\r\n      N = 1\r\n      IF (INTR.LE.1 .AND. ILINK.EQ.ILNK) GO TO 5\r\n      INCARD(1) = XYCARD(1)\r\n      CALL XRCARD (BUFF,149,XYCARD)\r\n      BUFF(150) = RSHIFT(COMPLF(0),1)\r\n      A377 = BUFF(150)\r\n      FILE = 301\r\n    5 CONTINUE\r\n      IF (CARD) 710,20,10\r\nC\r\nC     FIRST CALL AND FIRST CARD IMAGE.\r\nC\r\n   10 IAT    = 0\r\n      CARD   = 0\r\n      PLOTS  = 0\r\n      PLOTER = 0\r\n      SDRBIT = 0\r\n      VDRBIT = 0\r\n      BINPLT = 0\r\n      CONTIN = .FALSE.\r\n      A777   = COMPLF(0)\r\n      ICORE  = KORSZ(Z) - 2*SYSBUF - NWPC - 1\r\nC\r\nC     RETURNING WITH ANOTHER CARD IMAGE\r\nC\r\n   20 IF (BUFF(N) .EQ. A377) RETURN\r\nC\r\n      IF (.NOT.CONTIN) GO TO 30\r\n      CONTIN = .FALSE.\r\n      GO TO ICONT, (370,410,430,460,520,540,570,680,640)\r\nC\r\nC     BEGIN PROCESSING NON-CONTINUATION CARD (MUST BEGIN WITH BCD FIELD)\r\nC\r\n   30 IWRD = INCARD(1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD.EQ.XTIT .OR. IWRD.EQ.YTIT .OR. IWRD.EQ.YTTI .OR.\r\n     1    IWRD.EQ.YBTI .OR. IWRD.EQ.TCUR) GO TO 70\r\n      IF (BUFF(N) .EQ. 0) RETURN\r\nC\r\n      IF (BUFF(N) .LT. 0) GO TO 730\r\n      BCD = BUFF(N+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0)\r\n      DO 40 I = 1,NRWORD\r\n      IF (BCD .EQ. RWORD(I)) GO TO 120\r\n   40 CONTINUE\r\nC\r\n      DO 50 I = 1,NIWORD\r\n      IF (BCD .EQ. IWORD(I)) GO TO 80\r\n   50 CONTINUE\r\nC\r\n      DO 60 I = 1,NBWORD\r\n      IF (BCD .EQ. BWORD(I)) GO TO 130\r\n   60 CONTINUE\r\nC\r\n      IF (BCD.EQ.CLEA .OR. BCD.EQ.VDUM) GO TO 110\r\n      IF (BCD.EQ.XYPE .OR. BCD.EQ.XYPL .OR. BCD.EQ.XYPR .OR.\r\n     1    BCD.EQ.XYPU .OR. BCD.EQ.XYPA) GO TO 140\r\n      GO TO 750\r\nC\r\nC     TITLE CARD\r\nC\r\n   70 CALL WRITE (FILE,INCARD(1),1,NOEOR)\r\n      CALL WRITE (FILE,BUFF(1),32,NOEOR )\r\n      RETURN\r\nC\r\nC     VERB FOLLOWED BY AN INTEGER VALUE\r\nC     ON CAMERA CARD BCD ALSO ACCEPTED\r\nC\r\n   80 N = N + 2*BUFF(N) + 1\r\n      IF (I.EQ.22 .AND. BUFF(N).NE.INTE) GO TO 81\r\n      IF (BUFF(N) .NE. INTE) GO TO 770\r\n      IF (I .EQ. 26) GO TO 95\r\n      IF (BUFF(N+1).GE.0 .AND. I.LE.8) GO TO 90\r\n      IF (I .LE. 8) GO TO 770\r\n      IF (BUFF(N+1).EQ.0 .OR. I.GT.19) GO TO 90\r\n      BUFF(N+1) = BUFF(N+1)/IABS(BUFF(N+1))\r\n   90 BUF(1) = BCD\r\n      BUF(2) = BUFF(N+1)\r\n  100 CALL WRITE (FILE,BUF(1),2,NOEOR)\r\n      RETURN\r\nC\r\n   95 BUF(1) = BCD\r\n      BUF(2) = BUFF(N+1)\r\n      BUF(3) = BUFF(N+3)\r\n      CALL WRITE (FILE,BUF(1),3,NOEOR)\r\n      RETURN\r\nC\r\n  110 CALL WRITE (FILE,BCD,1,NOEOR)\r\n      RETURN\r\nC\r\n   81 IWRD = BUFF(N-2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      DO 85 I = 1,3\r\n      IF (IWRD .NE. KWORD(I)) GO TO 85\r\n      BUFF(N+1) = I\r\n      GO TO 90\r\n   85 CONTINUE\r\n      GO TO 770\r\nC\r\nC     VERB FOLLOWED BY A REAL VALUE\r\nC\r\n  120 N = N + 2*BUFF(N) + 1\r\n      IF (BUFF(N) .NE. REAL) GO TO 770\r\n      GO TO 90\r\nC\r\nC     VERB FOLLOWED BY BCD YES OR NO, UNLESS BCD = PLOT...\r\nC\r\n  130 IF (I .EQ. 13) GO TO 138\r\n      N = N + 2*BUFF(N) - 2\r\n      J = N\r\nC\r\nC     SEARCH FOR EQUAL SIGN\r\nC\r\n  132 IWRD = BUFF(N)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .EQ. IEQUAL) GO TO 133\r\n      N = N - 2\r\n      IF (N .GT. 0) GO TO 132\r\n      N = J\r\n  133 CONTINUE\r\n      I = -1\r\n  134 IWRD = BUFF(N+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .EQ. YES) I = 1\r\n      IF (IWRD .EQ. NO ) I = 0\r\n      IF (I .LT. 0) GO TO 135\r\n      BUF(1) = BCD\r\n      BUF(2) = I\r\n      GO TO 100\r\n  135 IF (I .LT. -3) GO TO 136\r\n      I = I - 1\r\n      N = N + 1\r\n      GO TO 134\r\n  136 N = J\r\n      GO TO 750\r\nC\r\nC     PLOTTER SPECIFICATION CARD LOGIC\r\nC\r\n  138 IF (BUFF(N+3) .EQ. A777) N = N + 2\r\n      N    = N + 2\r\n      NMOD = N + 3\r\n      IWRD = BUFF(NMOD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .EQ. IMODEL) NMOD = NMOD + 2\r\n      IF (IWRD .EQ.   IDEN) GO TO 147\r\n      MODID(1) = 0\r\n      MODID(2) = 0\r\n      IF (BUFF(NMOD) .EQ. A377) GO TO 147\r\n      IF (BUFF(NMOD) .EQ.   -1) MODID(1) = BUFF(NMOD+1)\r\n      IF (BUFF(NMOD) .NE.   -1) MODID(1) = BUFF(NMOD  )\r\n      NMOD = NMOD + 2\r\n      IF (BUFF(NMOD) .EQ.    1) NMOD = NMOD + 1\r\n      IWRD = BUFF(NMOD)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD       .EQ. IDEN) GO TO 147\r\n      IF (BUFF(NMOD) .EQ. A377) GO TO 147\r\n      IF (BUFF(NMOD) .EQ.   -1) MODID(2) = BUFF(NMOD+1)\r\n      IF (BUFF(NMOD) .NE.   -1) MODID(2) = BUFF(NMOD  )\r\n  147 CALL FNDPLT (PLOTER,MODEL,MODID(1))\r\n      BUF(1) = BCD\r\n      BUF(2) = ORF(LSHIFT(PLOTER,IHALF),MODEL+100)\r\n      BINPLT = BINPLT + 1\r\n      GO TO 100\r\nC\r\nC     PRINT, PLOT, OR PUNCH COMMAND CARD\r\nC\r\n  140 XTYPE = 0\r\n      TYPE  = 0\r\n      XVECT = 0\r\n      VECTOR= 0\r\n      PRINT = 0\r\n      PLOT  = 0\r\n      PUNCH = 0\r\n      PAPLOT= 0\r\n      SLASH = .FALSE.\r\n      N1    = 2\r\n      N2    = 2*BUFF(N) + N\r\nC\r\nC     PROCESS ALL WORDS\r\nC\r\n      DO 360 I = N1,N2,2\r\n      BCD = BUFF(I)\r\n      IF (BCD .EQ. A777) GO TO 350\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0)\r\n      IF (BCD .EQ. XYPL) GO TO 150\r\n      IF (BCD .EQ. XYPR) GO TO 160\r\n      IF (BCD .EQ. XYPU) GO TO 170\r\n      IF (BCD .EQ. XYPE) GO TO 359\r\n      IF (BCD .EQ. XYPA) GO TO 175\r\n      IF (BCD .EQ. RESP) GO TO 180\r\n      IF (BCD .EQ. AUTO) GO TO 190\r\n      IF (BCD .EQ. PSDF) GO TO 200\r\n      IF (BCD .EQ. SUBC) GO TO 220\r\n      IF (BCD .EQ. DISP) GO TO 230\r\n      IF (BCD .EQ. VECT) GO TO 230\r\n      IF (BCD .EQ. VELO) GO TO 240\r\n      IF (BCD .EQ. ACCE) GO TO 250\r\n      IF (BCD .EQ. SPCF) GO TO 260\r\n      IF (BCD .EQ. LOAD) GO TO 270\r\n      IF (BCD .EQ. STRE) GO TO 280\r\n      IF (BCD .EQ. FORC) GO TO 290\r\n      IF (BCD .EQ. SDIS) GO TO 300\r\n      IF (BCD .EQ. SVEL) GO TO 310\r\n      IF (BCD .EQ. SACC) GO TO 320\r\n      IF (BCD .EQ. NONL) GO TO 330\r\n      IF (BCD .EQ. ELFO) GO TO 290\r\n      IF (BCD .EQ. ELST) GO TO 280\r\n      IF (BCD .EQ. OLOA) GO TO 270\r\n      IF (BCD .EQ. VG  ) GO TO 270\r\n      N = I - 1\r\n      GO TO 750\r\n  150 PLOT  = 2\r\n      PLOTS = 1\r\n      IF (PLOTER .NE. 0) GO TO 359\r\n      PLOTER = 1\r\n      MODEL  =-1\r\n      BUF(1) = BWORD(13)\r\n      BUF(2) = ORF(LSHIFT(PLOTER,IHALF),MODEL+100)\r\n      BINPLT = BINPLT + 1\r\n      CALL WRITE (FILE,BUF(1),2,NOEOR)\r\n      GO TO 359\r\n  160 PRINT = 1\r\n      GO TO 359\r\n  170 PUNCH = 4\r\n      GO TO 359\r\n  175 PAPLOT = 1\r\n      GO TO 359\r\n  180 TYPE = 1\r\n      GO TO 210\r\n  190 TYPE = 3\r\n      GO TO 210\r\n  200 TYPE = 2\r\n      GO TO 210\r\n  210 IF (XTYPE .NE. 0) GO TO 790\r\n      XTYPE = 1\r\n  220 GO TO 360\r\n  230 VECTOR = 1\r\n      GO TO 291\r\n  240 VECTOR = 2\r\n      GO TO 291\r\n  250 VECTOR = 3\r\n      GO TO 291\r\n  260 VECTOR = 4\r\n      GO TO 291\r\n  270 VECTOR = 5\r\n      GO TO 291\r\n  280 VECTOR = 6\r\n      GO TO 291\r\n  290 VECTOR = 7\r\n  291 SDRBIT = 16\r\n      GO TO 340\r\n  300 VECTOR = 8\r\n      GO TO 331\r\n  310 VECTOR = 9\r\n      GO TO 331\r\n  320 VECTOR = 10\r\n      GO TO 331\r\n  330 VECTOR = 11\r\n  331 VDRBIT = 2\r\n      GO TO 340\r\n  340 IF (XVECT .NE. 0) GO TO 790\r\n      XVECT = 1\r\n      GO TO 360\r\nC\r\nC     DELIMETER HIT OF SOME KIND. IGNORE IF NOT LAST WORD OF BCD GROUP.\r\nC\r\n  350 IF (I .NE. N2-1) GO TO 360\r\n      IWRD = BUFF(I+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .EQ. SLAS) SLASH = .TRUE.\r\n      IF (.NOT.SLASH) GO TO 810\r\n      GO TO 360\r\n  359 XYCM = .TRUE.\r\n  360 CONTINUE\r\nC\r\nC     WRITE PLOT CONTROL INFORMATION\r\nC\r\n      BUF(1) = XY\r\n      BUF(2) = PRINT\r\n      BUF(3) = PLOT\r\n      BUF(4) = PUNCH\r\n      IF (PAPLOT .EQ. 1) PLOT = 2\r\n      DESTIN = PRINT + PLOT + PUNCH\r\n      IF (TYPE .EQ. 0) TYPE = 1\r\n      BUF(5) = TYPE\r\n      IF (VECTOR .EQ. 0) GO TO 1030\r\n      BUF(6) = VECTOR\r\n      BUF(7) = PAPLOT\r\n      CALL WRITE (FILE,BUF(1),7,NOEOR)\r\nC\r\nC     ALL WORDS PROCESSED. IF SLASH HAS NOT BEEN HIT, START READING\r\nC     SUBCASE NUMBERS.\r\nC\r\n      NSUBS = 0\r\n      N = N2 + 1\r\n      IF (SLASH) GO TO 490\r\nC\r\nC     FORM LIST OF SUBCASES, MAXIMUM OF 200 FOR THIS COMMAND CARD.\r\nC\r\n  370 IF (BUFF(N) .NE. CONT) GO TO 380\r\n      ASSIGN 370 TO ICONT\r\n      GO TO 700\r\nC\r\n  380 SUBCAS(1) = 0\r\n      IF (BUFF(N) .NE. INTE) GO TO 830\r\nC\r\nC     SUBCASES ARE NOT APPLICABLE IN AUTO AND PSDF\r\nC\r\n      IF (TYPE .NE. 1) GO TO 850\r\nC\r\n  390 NSUBS = NSUBS + 1\r\n      IF (NSUBS   .GT. 200) GO TO 890\r\n      IF (BUFF(N+1) .LE. 0) GO TO 910\r\n      SUBCAS(NSUBS) = BUFF(N+1)\r\n  400 N = N + 2\r\n  410 IF (BUFF(N) .EQ. A377) GO TO 1080\r\n      IF (BUFF(N) .NE. CONT) GO TO 420\r\n      ASSIGN 410 TO ICONT\r\n      GO TO 700\r\nC\r\n  420 IF (BUFF(N) .NE. INTE) GO TO 430\r\n      IF (SUBCAS(NSUBS)-BUFF(N+1)) 390,400,910\r\n  430 IF (BUFF(N) .NE. CONT) GO TO 440\r\n      ASSIGN 430 TO ICONT\r\n      GO TO 700\r\nC\r\n  440 IF (BUFF(N) .LT. 0) GO TO 830\r\n      IWRD = BUFF(N+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .NE. SLAS) GO TO 450\r\n      SLASH = .TRUE.\r\n      N = N + 3\r\n      GO TO 490\r\nC\r\n  450 IF (IWRD .NE. THRU) GO TO 830\r\n      N = N + 3\r\n  460 IF (BUFF(N) .NE. CONT) GO TO 470\r\n      ASSIGN 460 TO ICONT\r\n      GO TO 700\r\nC\r\n  470 IF (BUFF(N  ) .NE.         INTE ) GO TO 830\r\n      IF (BUFF(N+1) .LT. SUBCAS(NSUBS)) GO TO 910\r\n      IF (BUFF(N+1) .EQ. SUBCAS(NSUBS)) GO TO 400\r\n  480 NSUBS = NSUBS + 1\r\n      IF (NSUBS .GT. 200) GO TO 890\r\n      SUBCAS(NSUBS) = SUBCAS(NSUBS-1) + 1\r\n      IF (SUBCAS(NSUBS) .LT. BUFF(N+1)) GO TO 480\r\n      GO TO 400\r\nC\r\nC     SLASH HIT. BEGIN PROCESSING FRAME DATA. FIRST WRITE SUBCASE\r\nC     NUMBERS.\r\nC\r\n  490 CALL WRITE (FILE,NSUBS,1,NOEOR)\r\n      IF (NSUBS .NE. 0) CALL WRITE (FILE,SUBCAS(1),NSUBS,NOEOR)\r\n      IF (NSUBS .EQ. 0) SUBCAS(1) = 0\r\n      IF (NSUBS .EQ. 0) NSUBS = 1\r\n  500 SLASH  = .FALSE.\r\n      CALL WRITE (FILE,FRAM,1,NOEOR)\r\n      PAIRS  = .FALSE.\r\n      NCURVE = 0\r\n  520 IF (BUFF(N) .NE. CONT) GO TO 530\r\n      ASSIGN 520 TO ICONT\r\n      GO TO 700\r\nC\r\n  530 IF (BUFF(N) .NE. INTE) GO TO 830\r\n      BUF(1) = BUFF(N+1)\r\n      BUF(2) = 0\r\n      BUF(3) = 0\r\n      IDCOM  = 0\r\n      NCURVE = NCURVE + 1\r\n      IF (BUF(1) .LE. 0) GO TO 930\r\nC\r\nC     GET COMPONENT. POSITIVE INTEGER.\r\nC     MAY BE T1,T2,T3,R1,R2,R3 ETC. IF THE VECTOR IS NOT STRESS OR FORCE\r\nC\r\n      N = N + 2\r\n  540 IF (BUFF(N) .NE. CONT) GO TO 550\r\n      ASSIGN 540 TO ICONT\r\n      GO TO 700\r\nC\r\n  550 IWRD = BUFF(N+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (BUFF(N).GT.0 .AND. IWRD.EQ.OPAREN) GO TO 560\r\n      GO TO 830\r\nC\r\n  560 OFBCD = .FALSE.\r\n      IF (BUFF(N) .GT. 1) GO TO 590\r\nC\r\nC     FALL HERE AND A POSITIVE INTEGER COMPONENT IS EXPECTED.\r\nC\r\n      N = N + 3\r\n  570 IF (BUFF(N) .NE. CONT) GO TO 580\r\n      ASSIGN 570 TO ICONT\r\n      GO TO 700\r\nC\r\n  580 IF (BUFF(N  ) .NE. INTE) GO TO 830\r\n      IF (BUFF(N+1) .LE.    0) GO TO 950\r\n      OFBCD  =.FALSE.\r\n      COMPON = BUFF(N+1)\r\n      N = N + 2\r\n      GO TO 620\r\nC\r\nC     FALL HERE AND A BCD COMPONENT IS EXPECTED. T1,T2,T3,R1,R2,R3\r\nC\r\n  590 N1  = N + 3\r\n  600 N   = N + 2*BUFF(N) + 1\r\n  610 BCD = BUFF(N1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,BCD,0)\r\n      IF (BCD .EQ. BLANK) GO TO 615\r\n      IF (VECTOR .EQ.6 .OR. VECTOR.EQ.7) GO TO 970\r\n 615  OFBCD  = .TRUE.\r\n      COMPON = 3\r\n      IF (BCD.EQ.T1 .OR. BCD.EQ.T1RM) GO TO 620\r\n      IF (BCD .EQ. G) GO TO 620\r\n      COMPON = 4\r\n      IF (BCD.EQ.T2 .OR. BCD.EQ.T2RM) GO TO 620\r\n      IF (BCD .EQ. F) GO TO 620\r\n      COMPON = 5\r\n      IF (BCD.EQ.T3 .OR. BCD.EQ.T3RM) GO TO 620\r\n      COMPON = 6\r\n      IF (BCD.EQ.R1 .OR. BCD.EQ.R1RM) GO TO 620\r\n      COMPON = 7\r\n      IF (BCD.EQ.R2 .OR. BCD.EQ.R2RM) GO TO 620\r\n      COMPON = 8\r\n      IF (BCD.EQ.R3 .OR. BCD.EQ.R3RM) GO TO 620\r\n      COMPON = 9\r\n      IF (BCD .EQ. T1IP) GO TO 620\r\n      COMPON = 10\r\n      IF (BCD .EQ. T2IP) GO TO 620\r\n      COMPON = 11\r\n      IF (BCD .EQ. T3IP) GO TO 620\r\n      COMPON = 12\r\n      IF (BCD .EQ. R1IP) GO TO 620\r\n      COMPON = 13\r\n      IF (BCD .EQ. R2IP) GO TO 620\r\n      COMPON = 14\r\n      IF (BCD .EQ. R3IP) GO TO 620\r\n      COMPON = 1000\r\n      IF (BCD .EQ. BLANK) GO TO 620\r\n      GO TO 990\r\nC\r\n  620 IDCOM = IDCOM + 1\r\n      BUF(IDCOM+1) = COMPON\r\nC\r\nC     CHECK RANGE OF COMPONENT\r\nC\r\n      IF (COMPON .EQ. 1000) GO TO 631\r\n      IF ((TYPE.EQ.2 .OR. TYPE.EQ.3) .AND. (COMPON.LT.3 .OR.COMPON.GT.8)\r\n     1   .AND. (VECTOR.NE.6 .AND. VECTOR.NE.7)) GO TO 1130\r\n      IF ((COMPON.LT.3 .OR. COMPON.GT.14) .AND.\r\n     1   (VECTOR.NE.6 .AND. VECTOR.NE.7)) GO TO 1150\r\n      IF (NOGO .NE. 0) GO TO 631\r\nC\r\nC     ADD THIS COMPONENT-ID TO XY-MASTER SET IN OPEN CORE.\r\nC\r\n      DO 630 I = 1,NSUBS\r\n      IF (IAT+6 .GT. ICORE) GO TO 1090\r\n      Z(IAT+1) = SUBCAS(I)\r\n      Z(IAT+2) = VECTOR\r\n      Z(IAT+3) = BUF(1)\r\n      Z(IAT+4) = COMPON\r\n      Z(IAT+5) = TYPE\r\n      Z(IAT+6) = DESTIN\r\n  630 IAT = IAT + 6\r\nC\r\nC     PROCEED TO NEXT COMPONENT OR ID OF THIS FRAME\r\nC\r\n  631 IF (NCURVE.EQ.1 .AND. IDCOM.EQ.2) PAIRS = .TRUE.\r\n      IF (PAIRS .AND. (TYPE.EQ.2 .OR. TYPE.EQ.3)) GO TO 1110\r\n      IF (.NOT.PAIRS .AND. IDCOM.EQ.2) GO TO 1050\r\n      IF (IDCOM .GT. 2) GO TO 1050\r\n      IF (.NOT.OFBCD  ) GO TO 640\r\n      IF (N1 .GE.  N-2) GO TO 640\r\n      N1   = N1 + 2\r\n      IWRD = BUFF(N1+1)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .NE. SLAS) GO TO 610\r\n      SLASH = .TRUE.\r\n      GO TO 670\r\nC\r\nC     IS NEXT FIELD AN INTEGER FOLLOWED BY AN OPAREN\r\nC\r\n  640 IF (BUFF(N) .NE. CONT) GO TO 650\r\n      ASSIGN 640 TO ICONT\r\n      GO TO 700\r\nC\r\n  650 IF (BUFF(N  ) .NE. INTE) GO TO 660\r\n      IF (BUFF(N+2) .EQ. A377) GO TO 580\r\n      IWRD = BUFF(N+4)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .EQ. OPAREN) GO TO 670\r\n      GO TO 580\r\n  660 IF (BUFF(N) .EQ. A377) GO TO 670\r\n      IWRD = BUFF(N+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (BUFF(N).LE.0 .OR. IWRD.EQ.SLAS) GO TO 670\r\n      N1 = N + 1\r\n      GO TO 600\r\n  670 IF (PAIRS .AND. IDCOM.EQ.1) GO TO 1050\r\n      CALL WRITE (FILE,BUF(1),3,NOEOR)\r\n      IF (.NOT.SLASH .AND. BUFF(N).EQ.INTE) GO TO 520\r\n      BUF(1) = -1\r\n      BUF(2) = -1\r\n      BUF(3) = -1\r\n      CALL WRITE (FILE,BUF(1),3,NOEOR)\r\n      IF (BUFF(N) .EQ. A377) RETURN\r\nC\r\n  680 IF (BUFF(N) .NE. CONT) GO TO 690\r\n      ASSIGN 680 TO ICONT\r\n      GO TO 700\r\n  690 IF (SLASH) GO TO 500\r\n      IWRD = BUFF(N+2)\r\n      IF (BIT64) CALL MVBITS (BLANK,0,32,IWRD,0)\r\n      IF (IWRD .NE. SLAS) GO TO 830\r\n      N = N + 2*BUFF(N) + 1\r\n      GO TO 500\r\nC\r\nC     RETURN FOR A CONTINUATION CARD\r\nC\r\n  700 CONTIN = .TRUE.\r\n      RETURN\r\nC\r\nC     NO MORE CARDS AVAILABLE. RAP IT UP IF NO ERROR. WRITE XY-SET\r\nC     RECORD\r\nC\r\n  710 IF (CONTIN) GO TO 1010\r\n      CALL WRITE (FILE,Z(1),0,EOR)\r\n      IF (IAT .EQ. 0) GO TO 720\r\n      J = 7\r\n      DO 715 I = 1,6\r\n      J = J - 1\r\n      CALL SORT (0,0,6,-J,Z(1),IAT)\r\n  715 CONTINUE\r\n  720 CALL WRITE (FILE,Z(1),IAT,EOR)\r\nC\r\nC     SET CARD = 0 IF NO PLOTS\r\nC     SET CARD = 1 IF PLOTS\r\nC\r\n      CARD = PLOTS\r\nC\r\nC     SET RESTART BITS FOR VDR AND SDR\r\nC\r\n      IF (IRESRT .LT. 0) BITS(BITWRD) = ORF(BITS(BITWRD),VDRBIT+SDRBIT)\r\nC\r\nC     CHECK FOR COMMAND OP CARD\r\nC\r\n      IF (.NOT.XYCM) GO TO 1170\r\nC\r\nC     CHECK PLOT TAPE BITS\r\nC\r\n      IF (PLOTS .EQ. 0) RETURN\r\nC\r\nC     CHECK FOR TAPE SETUPS\r\nC\r\n      IF (BINPLT.NE.0 .AND. .NOT.TAPBIT(PLT1) .AND. .NOT.TAPBIT(PLT2))\r\n     1   CALL IFP1D (-618)\r\n      RETURN\r\nC\r\nC     FATAL ERROR CONDITIONS\r\nC\r\n  730 J = 675\r\n      WRITE  (L,740) UFM,J\r\n  740 FORMAT (A23,I4,', ABOVE CARD DOES NOT BEGIN WITH A NON-NUMERIC ',\r\n     1        'WORD.')\r\n      GO TO 2000\r\n  750 J = 676\r\n      WRITE  (L,760) UFM,J,BUFF(N+1),BUFF(N+2)\r\n  760 FORMAT (A23,I4,1H,,2A4,' IS NOT RECOGNIZED AS AN XYPLOT COMMAND ',\r\n     1        'CARD OR PARAMETER.')\r\n      GO TO 2000\r\n  770 J = 677\r\n      WRITE  (L,780) UFM,J\r\n  780 FORMAT (A23,I4,', ILLEGAL VALUE SPECIFIED.')\r\n      GO TO 2000\r\n  790 J = 678\r\n      WRITE  (L,800) UFM,J,BUFF(I),BUFF(I+1)\r\n  800 FORMAT (A23,I4,1H,,2A4,' CONTRADICTS PREVIOUS DEFINITION.')\r\n      GO TO 2000\r\n  810 J = 679\r\n      WRITE  (L,820) UFM,J,BUFF(I+1)\r\n  820 FORMAT (A23,I4,1H,,A4,' DELIMITER ILLEGALLY USED.')\r\n      GO TO 2000\r\n  830 IF (BUFF(N) .EQ. REAL) GO TO 850\r\n      IF (BUFF(N) .EQ. INTE) GO TO 870\r\n      J = 680\r\n      WRITE  (L,840) UFM,J,BUFF(N+1),BUFF(N+2)\r\n  840 FORMAT (A23,I4,1H,,2A4,' IS ILLEGAL IN STATEMENT.')\r\n      GO TO 2000\r\n  850 J = 681\r\n      WRITE  (L,860) UFM,J,BUFF(N+1)\r\n  860 FORMAT (A23,I4,1H,,E16.8,' IS ILLEGAL IN STATEMENT.')\r\n      GO TO 2000\r\n  870 J = 682\r\n      WRITE  (L,880) UFM,J,BUFF(N+1)\r\n  880 FORMAT (A23,I4,1H,,I10,' IS ILLEGAL IN STATEMENT.')\r\n      GO TO 2000\r\n  890 J = 683\r\n      WRITE  (L,900) UFM,J\r\n  900 FORMAT (A23,I4,', TOO MANY SUBCASES. MAXIMUM = 200 ON ANY ONE XY',\r\n     1       '-OUTPUT COMMAND CARD.')\r\n      GO TO 2000\r\n  910 J = 684\r\n      WRITE  (L,920) UFM,J\r\n  920 FORMAT (A23,I4,', SUBCASE-ID IS LESS THAN 1 OR IS NOT IN ',\r\n     1        'ASCENDING ORDER.')\r\n      GO TO 2000\r\n  930 J = 685\r\n      WRITE  (L,940) UFM,J,BUF(1)\r\n  940 FORMAT (A23,I4,1H,,I12,' = POINT OR ELEMENT ID IS ILLEGAL (LESS ',\r\n     1        'THAN 1).')\r\n      GO TO 2000\r\n  950 J = 686\r\n      WRITE  (L,960) UFM,J\r\n  960 FORMAT (A23,I4,', NEGATIVE OR ZERO COMPONENTS ARE ILLEGAL.')\r\n      GO TO 2000\r\n  970 J = 687\r\n      WRITE  (L,980) UFM,J\r\n  980 FORMAT (A23,I4,', ALPHA-COMPONENTS ARE NOT PERMITTED FOR STRESS ',\r\n     1        'OR FORCE XY-OUTPUT REQUESTS.')\r\n      GO TO 2000\r\n  990 J = 688\r\n      WRITE  (L,1000) UFM,J,BCD\r\n 1000 FORMAT (A23,I4,1H,,A4,' COMPONENT NAME NOT RECOGNIZED.')\r\n      GO TO 2000\r\n 1010 J = 689\r\n      WRITE  (L,1020) UFM,J\r\n 1020 FORMAT (A23,I4,', LAST CARD ENDED WITH A DELIMITER BUT NO ',\r\n     1       'CONTINUATION CARD WAS PRESENT.')\r\n      GO TO 2000\r\n 1030 J = 690\r\n      WRITE  (L,1040) UFM,J\r\n 1040 FORMAT (A23,I4,', TYPE OF CURVE WAS NOT SPECIFIED. (E.G. ',\r\n     1        'DISPLACEMENT, STRESS, ETC.).')\r\n      GO TO 2000\r\n 1050 J = 691\r\n      WRITE  (L,1060) UFM,J\r\n 1060 FORMAT (A23,I4,', MORE THAN 2 OR UNEQUAL NUMBER OF COMPONENTS ',\r\n     1        'FOR ID-S WITHIN A SINGLE FRAME.')\r\n      GO TO 2000\r\n 1070 FORMAT (A23,I4,', XY-OUTPUT COMMAND IS INCOMPLETE.')\r\n 1080 J = 692\r\n      WRITE  (L,1070) UFM,J\r\n      GO TO 2000\r\n 1090 J = 693\r\n      WRITE  (L,1100) UFM,J\r\n 1100 FORMAT (A23,I4,', INSUFFICIENT CORE FOR SET TABLE.')\r\n      ICRQ = (NSUBS-I+1) * 6\r\n      WRITE  (L,1101) ICRQ\r\n 1101 FORMAT (5X,8HAT LEAST,I8,19H MORE WORDS NEEDED.)\r\n      GO TO 2000\r\n 1110 J = 694\r\n      WRITE  (L,1120) UFM,J\r\n 1120 FORMAT (A23,I4,', AUTO OR PSDF REQUESTS MAY NOT USE SPLIT FRAME',\r\n     1       ', THUS ONLY ONE COMPONENT PER ID IS PERMITTED.')\r\n      GO TO 2000\r\n 1130 J = 695\r\n      WRITE  (L,1140) UFM,J,COMPON\r\n 1140 FORMAT (A23,I4,', COMPONENT VALUE =',I8,', IS ILLEGAL FOR AUTO ',\r\n     1        'OR PSDF VECTOR REQUESTS.')\r\n      GO TO 2000\r\n 1150 J = 696\r\n      WRITE  (L,1160) UFM,J,COMPON\r\n 1160 FORMAT (A23,I4,', COMPONENT VALUE =',I8,', IS ILLEGAL FOR VECTOR',\r\n     1       ' TYPE SPECIFIED.')\r\n      GO TO 2000\r\n 1170 J = 697\r\n      WRITE  (L,1180) UFM,J\r\n 1180 FORMAT (A23,I4,', XYPLOT, XYPRINT, XYPUNCH, XYPEAK, OR XYPAPLOT',\r\n     1    /5X,' COMMAND CARD NOT FOUND IN XY PLOTTER OUT PUT PACKAGE.')\r\n      GO TO 2000\r\n 2000 NOGO = 1\r\n      LINE = LINE + 2\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp3.f",
    "content": "      SUBROUTINE IFP3\r\nC\r\nC     DATA PROCESSING AND GENERATION OF THE AXIS-SYMETRIC-CONICAL SHELL\r\nC\r\nC          CARDS          TYPE       REC.ID-BIT CARDS-FILE,  CARDS-FILE\r\nC     ===  =======      ===========  ========== ===========  ==========\r\nC      1   AXIC     --  AX.SY.SHELL     515- 5\r\nC      2   CCONEAX  --  AX.SY.SHELL    8515-85  CCONE-GEOM2,\r\nC      3   FORCEAX  --  AX.SY.SHELL    2115-21  FORCE-GEOM3,\r\nC      4   FORCE    --  STANDARD       4201-42  FORCE-GEOM3,\r\nC      5   GRAV     --  STANDARD       4401-44   GRAV-GEOM3,\r\nC      6   LOAD     --  STANDARD       4551-61   LOAD-GEOM3,\r\nC      7   MOMAX    --  AX.SY.SHELL    3815-38  MOMNT-GEOM3,\r\nC      8   MOMENT   --  STANDARD       4801-48  MOMNT-GEOM3,\r\nC      9   MPCADD   --  STANDARD       4891-60 MPCADD-GEOM4,\r\nC     10   MPCAX    --  AX.SY.SHELL    4015-40    MPC-GEOM4,\r\nC     11   OMITAX   --  AX.SY.SHELL    4315-43   OMIT-GEOM4,\r\nC     12   POINTAX  --  AX.SY.SHELL    4915-49    MPC-GEOM4, GRID-GEOM1\r\nC     13+  RFORCE   --  STANDARD       5509-55 RFORCE-GEOM3,\r\nC     14   RINGAX   --  AX.SY.SHELL    5615-56    SPC-GEOM4, GRID-GEOM1\r\nC     15   SECTAX   --  AX.SY.SHELL    6315-63    MPC-GEOM4, GRID-GEOM1\r\nC     16   SEQGP    --  STANDARD       5301-53  SEQGP-GEOM1,\r\nC     17   SPCADD   --  STANDARD       5491-59 SPCADD-GEOM4,\r\nC     18   SPCAX    --  AX.SY.SHELL    6215-62    SPC-GEOM4,\r\nC     19   SUPAX    --  AX.SY.SHELL    6415-64 SUPORT-GEOM4,\r\nC     20   TEMPAX   --  AX.SY.SHELL    6815-68   TEMP-GEOM3,\r\nC     21   TEMPD    --  STANDARD       5641-65  TEMPD-GEOM3,\r\nC     22   CTRIAAX  --  AX.TR.CR       7012-70  CTRIA-GEOM2\r\nC     23   CTRAPAX  --  AX.TRA.CR      7042-74  CTRAP-GEOM2\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT    ,RSHIFT    ,ANDF      ,ORF       ,\r\n     1                COMPLF\r\n      LOGICAL         SECD      ,NOGO      ,RECOFF    ,PIEZ\r\n      REAL            NPHI      ,NPHI1     ,NISQ      ,NI        ,\r\n     1                A1        ,A2        ,A3        ,A4        ,\r\n     2                ANGLE     ,RADDEG    ,PI        ,DIFPHI    ,\r\n     3                RZ        ,T1        ,T2        ,COEF      ,\r\n     4                CONSTS    ,SUM       ,TWOPI\r\n      DIMENSION       GEOM(4)   ,Z(8)      ,NUM(11)   ,INUM(11)  ,\r\n     1                MSG1(2)   ,MSG2(2)\r\n      CHARACTER       UFM*23    ,UWM*25    ,UIM*29    ,SFM*25\r\n      COMMON /XMSSG / UFM       ,UWM       ,UIM       ,SFM\r\n      COMMON /SYSTEM/ IBUFSZ    ,NOUT      ,NOFLAG    ,DUMDUM(8) ,\r\n     1                NLINES    ,DUM1(26)  ,NBPC      ,NBPW      ,\r\n     2                DUM37(37) ,IPIEZ\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /IFP3LV/            RECID(3)  ,RECID1(3) ,RECIDX(3) ,\r\n     1                IEND      ,REC(3)    ,REC1(3)   ,TRAIL(7)  ,\r\n     2                IT        ,AXTRL(7)  ,OPENFL(6) ,N         ,\r\n     3                A1        ,CSID      ,NI        ,NISQ      ,\r\n     4                A2        ,IBUFF1    ,IBUFF2    ,IBUFF3    ,\r\n     5                A3        ,BUFF      ,NOGO      ,OP        ,\r\n     6                A4        ,IHEADR    ,IBITR     ,IFILE     ,\r\n     7                NOREG     ,LAST      ,IERRTN    ,ICONT     ,\r\n     8                NOAXIC    ,RINGID    ,OUTBUF    ,VEOR      ,\r\n     9                ISTART    ,IRETRN    ,FLAG      ,IAMT      ,\r\n     O                SUM       ,IBIT      ,SETID     ,SORC      ,\r\n     1                IBEGIN    ,MPCON     ,NWORDS    ,NNN       ,\r\n     2                ANGLE     ,K3OR6     ,NPHI1     ,ZPT       ,\r\n     3                NMOVE     ,CSSET     ,NOPONT    ,NON       ,\r\n     4                IPHI      ,RECOFF    ,NPHI      ,N3OR5     ,\r\n     5                ION       ,NPLUS1    ,NOSECT    ,COEF      ,\r\n     6                IPT       ,COMPON    ,ICORE     ,ISCRAT    ,\r\n     7                ICORE1    ,NCARDS    ,I1        ,IAT       ,\r\n     8                I2        ,T1        ,T2        ,NFILE     ,\r\n     9                NADD      ,NCARD\r\n      COMMON /IFP3CM/ FILE(6)   ,INAME(12) ,CDTYPE(50),AXIC1(3)  ,\r\n     1                CCONEX(3) ,FORCEX(3) ,FORCE(3)  ,GRAV(3)   ,\r\n     2                LOAD(3)   ,MOMAX(3)  ,MOMENT(3) ,MPCADD(3) ,\r\n     3                MPCAX(3)  ,OMITAX(3) ,POINTX(3) ,PRESAX(3) ,\r\n     4                RINGAX(3) ,SECTAX(3) ,SEQGP(3)  ,SPCAX(3)  ,\r\n     5                SUPAX(3)  ,TEMPAX(3) ,TEMPD(3)  ,PLOAD(3)  ,\r\n     6                MPC(3)    ,SPC(3)    ,GRID(3)   ,SUPORT(3) ,\r\n     7                NEG111(3) ,T65535(3) ,TEMP(3)   ,OMIT(3)   ,\r\n     8                SPCADD(3) ,ONE       ,ZERO      ,IHEADB(96),\r\n     9                CTRIAA(3) ,CTRAPA(3) ,ICONSO    ,RFORCE(3)\r\n      COMMON /OUTPUT/ DUMMY(96) ,IHEAD(96)\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      EQUIVALENCE     (CONSTS(1),PI     )  ,(CONSTS(2),TWOPI  )  ,\r\n     1                (CONSTS(4),RADDEG )  ,(Z(1)     ,RZ(1)  )  ,\r\n     2                (GEOM(1)  ,FILE(1))  ,(SCRTCH   ,FILE(5))  ,\r\n     3                (AXIC     ,FILE(6))  ,(NUM(11)  ,B      )  ,\r\n     4                (NOEOR    ,INPRWD    ,ZERO)                ,\r\n     5                (EOR      ,CLORWD    ,OUTRWD    ,ONE    )\r\n      DATA    INUM  / 1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H /\r\n      DATA    IFIAT / 4HFIAT/, IFIST  /  4HFIST/,I5,I6 / 5,6     /\r\n      DATA    MSG1  / 4HIFP3 , 4HBEGN /, MSG2  / 4HIFP3, 4HEND   /\r\nC\r\n      CALL CONMSG (MSG1,2,0)\r\nC\r\nC     RIGHT-JUSTIFY INUM AND CALL IT NUM\r\nC\r\n      DO 1 I = 1,11\r\n    1 NUM(I) = RSHIFT(INUM(I),NBPW-NBPC)\r\nC\r\nC     INITIAL CHECK TO MAKE SURE TRAILER BITS ARE ALL OFF FOR GEOM1,\r\nC     GEOM2, GEOM3, GEOM4.\r\nC\r\n      DO 10 I = 1,96\r\n   10 IHEAD(I) = IHEADB(I)\r\nC\r\n      IF (NOFLAG) 30,20,30\r\n   20 NOGO = .FALSE.\r\n      GO TO 40\r\n   30 NOGO = .TRUE.\r\nC\r\n   40 OPENFL(1) = 0\r\n      OPENFL(2) = 0\r\n      OPENFL(3) = 0\r\n      OPENFL(4) = 0\r\n      OPENFL(5) = 0\r\n      OPENFL(6) = 0\r\n      DO 110 I = 1,4\r\n      TRAIL(1) = GEOM(I)\r\n      CALL RDTRL (TRAIL(1))\r\n      IF (TRAIL(1)) 50,50,70\r\n   50 CALL PAGE2 (3)\r\n      IMSG = 1061\r\n      WRITE  (NOUT,55) SFM,IMSG\r\n   55 FORMAT (A25,I5)\r\n      WRITE  (NOUT,60) GEOM(I),INAME(2*I-1),INAME(2*I),IFIAT\r\n   60 FORMAT (5X,11HFILE NUMBER,I4,3H ( ,2A4,12H) IS NOT IN ,A4,1H.)\r\n      NOGO = .TRUE.\r\n      GO TO 110\r\nC\r\n   70 DO 100 J = 2,7\r\n      IF (TRAIL(J)) 80,100,80\r\n   80 CALL PAGE2 (3)\r\n      IMSG = 1062\r\n      WRITE  (NOUT,55) SFM,IMSG\r\n      WRITE  (NOUT,90) GEOM(I),INAME(2*I-1),INAME(2*I)\r\n   90 FORMAT (5X,'FILE NUMBER',I4,3H ( ,2A4,') HAS TRAILER BIT ON.  ',\r\n     1       'FILE SHOULD BE CLEAN AT ENTRY TO IFP3.')\r\n      NOGO = .TRUE.\r\n      GO TO 110\r\n  100 CONTINUE\r\n  110 CONTINUE\r\nC\r\nC     PROCEED TO SETUP CORE AND OPEN AXIC FILE\r\nC     ICORE1 WILL ALWAYS EQUAL THE GROSS OPEN CORE TO IFP3 AT START\r\nC\r\n      ICORE1 = KORSZ(Z)\r\n      IBUFF1 = ICORE1 - IBUFSZ - 2\r\n      IBUFF2 = IBUFF1 - IBUFSZ\r\n      IBUFF3 = IBUFF2 - IBUFSZ\r\n      ICORE  = IBUFF3 - 1\r\n      ICRQ   = 100 - ICORE\r\n      IF (ICORE .LT. 100) GO TO 1310\r\nC\r\nC     OPEN  AXIC FILE\r\nC\r\n      CALL PRELOC (*1330,Z(IBUFF1),AXIC)\r\n      OPENFL(6) = 1\r\n      AXTRL(1)  = AXIC\r\n      CALL RDTRL (AXTRL(1))\r\nC\r\nC     READ AXIC CARD\r\nC\r\n      CALL LOCATE (*130,Z(IBUFF1),AXIC1(1),FLAG)\r\n      CALL READ (*1600,*130,AXIC,Z(1),2,EOR,FLAG)\r\n      N    = Z(1)\r\n      CSID = Z(2)\r\n      NNN  = N\r\n      NCARD= 1\r\n      ASSIGN 140 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     MISSING REQUIRED AXIC CARD\r\nC\r\n  130 ASSIGN 140 TO IERRTN\r\n      NNN   = 0\r\n      NCARD = 1\r\n      GO TO 1510\r\n  140 N = NNN\r\n      NPLUS1 = N + 1\r\nC\r\nC\r\nC     GEOM2  PROCESSING\r\nC     =================\r\nC\r\nC     OPEN GEOM2\r\nC\r\n      IFILE= GEOM(2)\r\n      I    = 2\r\n      OP   = OUTRWD\r\n      BUFF = IBUFF2\r\n      ASSIGN 150 TO IRETRN\r\n      GO TO 1350\r\nC\r\nC     CCONEAX CARDS\r\nC\r\n  150 REC(1) = CCONEX(1)\r\n      REC(2) = CCONEX(2)\r\n      REC(3) = CCONEX(3)\r\n      NCARD  = 2\r\nC\r\nC     IF THERE IS NO CCONEAX CARD, THEN GO TO 1750 AND LOOK FOR\r\nC     CTRAPAX OR CTRIAAX CARDS\r\nC\r\n      ICONB  = 0\r\n      ICONSO = 0\r\n      CALL LOCATE (*1750,Z(IBUFF1),REC(1),FLAG)\r\nC\r\nC     INPUT IS IN 4-WORD CARDS\r\nC     OUTPUT IS N+1 4-WORD CARDS FOR EACH CARD INPUT\r\nC\r\nC     RECORD HEADER FOR CCONES\r\nC\r\n      ASSIGN 160 TO IHEADR\r\n      GO TO 1470\r\nC\r\n  160 CALL READ (*1600,*220,AXIC,Z(1),4,NOEOR,IAMT)\r\nC\r\nC     CHECK RING ID-S FOR SIZE\r\nC\r\n      NNN = Z(3)\r\n      ASSIGN 170 TO IERRTN\r\n      GO TO 1440\r\n  170 NNN = Z(4)\r\n      ASSIGN 180 TO IERRTN\r\n      GO TO 1440\r\nC\r\nC     CHECK CCONEAX ID FOR 1-9999 ALLOWABLE RANGE\r\nC\r\n  180 IF (Z(1).GT.0 .AND. Z(1).LT.10000) GO TO 200\r\n      CALL PAGE2 (3)\r\n      IMSG = 361\r\n      WRITE  (NOUT,185) UFM,IMSG\r\n  185 FORMAT (A23,I4)\r\n      WRITE  (NOUT,190) Z(1)\r\n  190 FORMAT (5X,'CCONEAX ID =',I10,'.  OUT OF 1 TO 9999 PERMISSIBLE ',\r\n     1       'RANGE')\r\n      NOGO = .TRUE.\r\nC\r\n  200 Z(1) = Z(1)*1000\r\n      DO 210 I = 1,NPLUS1\r\n      Z(1) = Z(1) + 1\r\n      Z(3) = Z(3) + 1000000\r\n      Z(4) = Z(4) + 1000000\r\n      IF (NOGO) GO TO 210\r\n      CALL WRITE (GEOM(2),Z(1),4,NOEOR)\r\n  210 CONTINUE\r\n      GO TO 160\r\nC\r\nC     OUT OF CCONEAX CARDS\r\nC\r\n  220 IF (IAMT) 230,240,230\r\nC\r\nC     GO TO 356 FOR RECORD ERROR\r\nC\r\n  230 ASSIGN 260 TO IERRTN\r\n      GO TO 1490\r\nC\r\nC     WRITE EOR AND PUT BITS IN TRAILER\r\nC\r\n  240 ASSIGN 250 TO IRETRN\r\n      ICONSO = 1\r\n      GO TO 1270\r\n  250 ICONB = 1\r\n      GO TO 1750\r\nC\r\nC     CLOSE GEOM2\r\nC\r\n  260 I = 2\r\n      ASSIGN 270 TO IRETRN\r\n      GO TO 1380\r\nC\r\nC     GEOM3 PROCESSING\r\nC     ================\r\nC\r\nC     OPEN GEOM3\r\nC\r\n  270 IFILE= GEOM(3)\r\n      I    = 3\r\n      OP   = OUTRWD\r\n      BUFF = IBUFF2\r\n      ASSIGN 280 TO IRETRN\r\n      GO TO 1350\r\nC\r\nC     FORCE, FORCEAX, MOMNT, AND MOMNTAX CARDS\r\nC\r\n  280 RECID(1) = FORCE(1)\r\n      RECID(2) = FORCE(2)\r\n      RECID(3) = FORCE(3)\r\n      RECIDX(1)= FORCEX(1)\r\n      RECIDX(2)= FORCEX(2)\r\n      RECIDX(3)= FORCEX(3)\r\n      NCARD    = 3\r\n      ASSIGN 620 TO ICONT\r\nC\r\nC     SET NOREG = 0 OR 1, DEPENDING ON PRESSENCE OF RECID\r\nC     SET NOAXIC= 0 OR 1, DEPENDING ON PRESSENCE OF RECIDX\r\nC\r\n  290 IBIT = RECIDX(2)\r\n      ASSIGN 300 TO IBITR\r\n      GO TO 1460\r\n  300 NOAXIC = NON\r\n      IBIT = RECID(2)\r\n      ASSIGN 310 TO IBITR\r\n      GO TO 1460\r\n  310 NOREG = NON\r\nC\r\n      REC(1) = RECID(1)\r\n      REC(2) = RECID(2)\r\n      REC(3) = RECID(3)\r\nC\r\n      IF (NOAXIC) 340,320,340\r\n  320 IF (NOREG ) 330,610,330\r\nC\r\nC     TRANSFER FORCE OR MOMENT RECORD DIRECTLY.\r\nC     THERE ARE NO FORCEAX OR MOMAX CARDS RESPECTIVELY.\r\nC\r\n  330 ASSIGN 610 TO IRETRN\r\n      GO TO 1230\r\nC\r\nC     AT 410 READ IN ALL FORCEAX OR MOMNTAX CARDS AND PUT OUT ON GEOM(3)\r\nC     IF NOREG=0,AND ON SCRTCH IF NOREG NON-ZERO.FIRST WRITE 3-WORD-\r\nC     REC ID ON GEOM3.\r\nC\r\n  340 ASSIGN 350 TO IHEADR\r\n      GO TO 1470\r\nC\r\nC     OPEN SCRATCH IF NEEDED\r\nC\r\n  350 IF (NOREG) 360,370,360\r\n  360 I    = 5\r\n      OP   = OUTRWD\r\n      BUFF = IBUFF3\r\n      ASSIGN 370 TO IRETRN\r\n      GO TO 1350\r\n  370 CALL LOCATE (*1530,Z(IBUFF1),RECIDX(1),FLAG)\r\n  380 CALL READ (*1600,*440,AXIC,Z(1),8,NOEOR,IAMT)\r\nC\r\nC     CHECK RING ID\r\nC\r\n      ASSIGN 390 TO IERRTN\r\n      NNN = Z(2)\r\n      GO TO 1440\r\nC\r\nC     CHECK HARMONIC NUMBER AND FOR A SEQUENCE OF HARMONICS\r\nC\r\n  390 IF (Z(4) .EQ. 0) GO TO 396\r\n      II   = 1\r\n      NH1  = 0\r\n      NH2  = 0\r\n      SECD = .TRUE.\r\n      WORD = 4\r\n      DO 391 IJ = 1,2\r\n      DO 392 IX = 1,4\r\n      CHR = RSHIFT(LSHIFT(Z(WORD),NBPC*IABS(IX-4)),NBPW-NBPC)\r\n      IF (CHR .EQ. B) GO TO 392\r\n      DO 393 I = 1,10\r\n      K = I-1\r\n      IF (NUM(I) .EQ. CHR) GO TO 394\r\n  393 CONTINUE\r\n      SECD = .FALSE.\r\n      II   = 1\r\n      GO TO 392\r\n  394 IF (SECD) GO TO 395\r\n      NH1 = NH1 + II*K\r\n      II  = II*10\r\n      GO TO 392\r\n  395 NH2 = NH2 + II*K\r\n      II  = II*10\r\n  392 CONTINUE\r\n  391 WORD = WORD -1\r\n      IF (NH1 .LE. NH2) GO TO 398\r\n      WORD = NH1\r\n      NH1  = NH2\r\n      NH2  = WORD\r\n  398 NNN  = NH1\r\n      ASSIGN 397 TO IERRTN\r\n      GO TO 1420\r\n  396 NH1  = Z(3)\r\n      NH2  = Z(3)\r\n  397 NNN  = NH2\r\n      ASSIGN 400 TO IERRTN\r\n      GO TO 1420\r\n  400 Z(4) = Z(5)\r\n      Z(5) = Z(6)\r\n      Z(6) = Z(7)\r\n      Z(7) = Z(8)\r\n      NH1  = NH1 + 1\r\n      NH2  = NH2 + 1\r\n      SUM  = Z(2)\r\n      MUS  = Z(2)\r\n      DO 430 I = NH1,NH2\r\n      Z(2) = MUS + I*1000000\r\n      Z(3) = 0\r\nC\r\nC     OUTPUT TO GEOM(3) IF NOREG = 0\r\nC     OUTPUT TO SCRTCH  IF NOREG = NON-ZERO\r\nC\r\n      IF (NOGO ) GO TO 380\r\n      IF (NOREG) 420,410,420\r\n  410 NFILE = GEOM(3)\r\n      GO TO 430\r\n  420 NFILE = SCRTCH\r\n  430 CALL WRITE (NFILE,Z(1),7,NOEOR)\r\n      GO TO 380\r\nC\r\nC     OUT OF CARDS\r\nC\r\n  440 IF (IAMT) 450,460,450\r\nC\r\nC     CHECK FOR RECORD INCONSISTANCY ERROR.\r\nC\r\n  450 REC(1) = RECIDX(1)\r\n      REC(2) = RECIDX(2)\r\n      REC(3) = RECIDX(3)\r\n      ASSIGN 460 TO IERRTN\r\n      GO TO 1490\r\nC\r\n  460 IF (NOREG) 470,590,470\r\nC\r\nC     CLOSE THE SCRTCH FILE AND THEN MERGE SCRTCH WITH AXIC\r\nC     ON TO GEOM3\r\nC\r\n  470 I = 5\r\n      ASSIGN 480 TO IRETRN\r\n      GO TO 1380\r\nC\r\nC     OPEN SCRTCH FILE FOR INPUT AND LOCATE FORCE OR MOMENT CARDS ON\r\nC     AXIC FILE.\r\nC\r\n  480 ASSIGN 490 TO IRETRN\r\n      OP = INPRWD\r\n      GO TO 1350\r\n  490 CALL LOCATE (*1560,Z(IBUFF1),RECID(1),FLAG)\r\n      IF (NOGO) GO TO 610\r\nC\r\n      CALL READ (*1600,*600,AXIC,Z(1),7,NOEOR,IAMT)\r\n      CALL READ (*1610,*1610,SCRTCH,Z(8),7,NOEOR,IAMT)\r\nC\r\n  500 IF (Z(1) .LE. Z(8)) GO TO 510\r\nC\r\n      NFILE  = SCRTCH\r\n      OUTBUF = 8\r\n      GO TO 520\r\nC\r\n  510 NFILE  = AXIC\r\n      OUTBUF = 1\r\nC\r\n  520 IF (NOGO) GO TO 610\r\n      CALL WRITE (GEOM(3),Z(OUTBUF),7,NOEOR)\r\n      CALL READ (*1620,*540,NFILE,Z(OUTBUF),7,NOEOR,IAMT)\r\n      GO TO 500\r\nC\r\nC     OK ALL WORDS PROCESSED FOR FILE-NFILE\r\nC\r\n  540 IF (NFILE .EQ. AXIC) GO TO 550\r\n      NFILE  = AXIC\r\n      OUTBUF = 1\r\n      GO TO 560\r\n  550 NFILE  = SCRTCH\r\n      OUTBUF = 8\r\n  560 IF (NOGO) GO TO 610\r\n      CALL WRITE (GEOM(3),Z(OUTBUF),7,NOEOR)\r\n      CALL READ (*1620,*580,NFILE,Z(OUTBUF),7,NOEOR,IAMT)\r\n      GO TO 560\r\nC\r\nC     CLOSE SCRTCH, WRITE EOR, AND PUT BITS IN TRAILER.\r\nC\r\n  580 I = 5\r\n      ASSIGN 590 TO IRETRN\r\n      GO TO 1380\r\n  590 ASSIGN 610 TO IRETRN\r\n      GO TO 1270\r\nC\r\nC     RECORD LENGTH ERROR\r\nC\r\n  600 REC(1) = RECID(1)\r\n      REC(2) = RECID(2)\r\n      REC(3) = RECID(3)\r\n      ASSIGN 610 TO IERRTN\r\n      GO TO 1490\r\nC\r\n  610 GO TO ICONT, (620,650)\r\nC\r\nC     GRAV CARD\r\nC\r\n  620 REC(1) = GRAV(1)\r\n      REC(2) = GRAV(2)\r\n      REC(3) = GRAV(3)\r\n      ASSIGN 630 TO IRETRN\r\n      GO TO 1230\r\nC\r\nC     LOAD CARD\r\nC\r\n  630 REC(1) = LOAD(1)\r\n      REC(2) = LOAD(2)\r\n      REC(3) = LOAD(3)\r\n      ASSIGN 640 TO IRETRN\r\n      GO TO 1230\r\nC\r\nC     MOMENT AND MOMAX CARDS\r\nC\r\n  640 RECID(1)  = MOMENT(1)\r\n      RECID(2)  = MOMENT(2)\r\n      RECID(3)  = MOMENT(3)\r\n      RECIDX(1) = MOMAX(1)\r\n      RECIDX(2) = MOMAX(2)\r\n      RECIDX(3) = MOMAX(3)\r\n      NCARD = 7\r\n      ASSIGN 650 TO ICONT\r\n      GO TO 290\r\nC\r\nC     PRESAX CARD\r\nC\r\n  650 CALL LOCATE (*722,Z(IBUFF1),PRESAX(1),FLAG)\r\nC\r\nC     RECORD HEADER FOR PRESAX CARDS IS FORMED HERE\r\nC\r\n      REC(1) = PRESAX(1)\r\n      REC(2) = PRESAX(2)\r\n      REC(3) = PRESAX(3)\r\n      NCARD  = 13\r\n      ASSIGN 660 TO IHEADR\r\n      GO TO 1470\r\nC\r\n  660 CALL READ (*1600,*700,AXIC,Z(1),6,NOEOR,IAMT)\r\nC\r\nC     CREATE N+1 CARDS OF SAME LENGTH AS INPUT CARD.\r\nC\r\nC     CHECK RING ID-S IN FIELDS 3 AND 4 FOR PROPER SIZE.\r\nC\r\nC     CHECK FOR PIEZOELECTRIC\r\nC\r\n      PIEZ = .FALSE.\r\n      IF (IPIEZ.EQ.1 .AND. Z(3).LT.0) PIEZ = .TRUE.\r\n      IF (.NOT. PIEZ) GO TO 661\r\n      Z(3) = -Z(3)\r\n  661 CONTINUE\r\n      NNN = Z(3)\r\n      ASSIGN 670 TO IERRTN\r\n      GO TO 1440\r\n  670 NNN = Z(4)\r\n      ASSIGN 680 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  680 DIFPHI = ABS(RZ(I6) - RZ(I5))\r\n      DO 690 I = 1,NPLUS1\r\n      Z(7) = I - 1\r\n      Z(3) = Z(3) + 1000000\r\n      IF (PIEZ) Z(3) = -Z(3)\r\n      Z(4) = Z(4) + 1000000\r\n      IF (NOGO) GO TO 690\r\n      IF (DIFPHI .EQ. 0.0) GO TO 690\r\n      IF (I.GT.1 .AND. ABS(DIFPHI-360.).LT.1.E-6) GO TO 690\r\n      CALL WRITE (GEOM(3),Z(1),7,NOEOR)\r\n      IF (PIEZ) Z(3) = -Z(3)\r\n  690 CONTINUE\r\n      GO TO 660\r\nC\r\nC     OUT OF PRESAX CARDS\r\nC\r\n  700 IF (IAMT) 710,720,710\r\nC\r\nC     CHECK FOR RECORD INCONSISTANCY ERROR.\r\nC\r\n  710 ASSIGN 722 TO IERRTN\r\n      REC(1) = PRESAX(1)\r\n      REC(2) = PRESAX(2)\r\n      REC(3) = PRESAX(3)\r\n      GO TO 1490\r\nC\r\nC     WRITE EOR AND PUT BITS IN TRAILER\r\nC\r\n  720 ASSIGN 722 TO IRETRN\r\n      GO TO 1270\r\nC\r\nC     RFORCE CARD\r\nC\r\n 722  CALL LOCATE (*730,Z(IBUFF1),RFORCE(1),FLAG)\r\n      REC(1) = RFORCE(1)\r\n      REC(2) = RFORCE(2)\r\n      REC(3) = RFORCE(3)\r\n      NCARD  = 24\r\n      ASSIGN 723 TO IHEADR\r\n      GO TO 1470\r\nC\r\nC     PROCESS RFORCE DATA\r\nC\r\n  723 CALL READ (*1600,*725,AXIC,Z(1),7,NOEOR,IAMT)\r\n      IF (Z(2).EQ.0 .AND. Z(3).EQ.0 .AND. Z(5).EQ.0 .AND. Z(6).EQ.0)\r\n     1    GO TO 7240\r\n      WRITE  (NOUT,724) UFM,Z(1)\r\n  724 FORMAT (A23,' 336, RFORCE DATA IN SET NO.',I8,\r\n     1       ' CONTAINS ILLEGAL DIRECTION FOR AXISYMMETRIC PROBLEM')\r\n      NOGO = .TRUE.\r\n      GO TO 723\r\n 7240 Z(2) = 0\r\n      Z(3) = 0\r\n      Z(5) = 0\r\n      Z(6) = Z(7)\r\n      Z(7) = 0\r\n      CALL WRITE (GEOM(3),Z(1),7,NOEOR)\r\n      GO TO 723\r\nC\r\nC     END OF RFORCE CARDS\r\nC\r\n  725 IF (IAMT) 726,727,726\r\nC\r\nC     RECORD INCONSISTENCY ERROR\r\nC\r\n  726 ASSIGN 730 TO IERRTN\r\n      REC(1) = RFORCE(1)\r\n      REC(2) = RFORCE(2)\r\n      REC(3) = RFORCE(3)\r\n      GO TO 1490\r\nC\r\nC     WRITE EOR AND BITS IN TRAILER\r\nC\r\n  727 ASSIGN 730 TO IRETRN\r\n      GO TO 1270\r\nC\r\nC     TEMPD CARD\r\nC\r\n  730 REC(1) = TEMPD(1)\r\n      REC(2) = TEMPD(2)\r\n      REC(3) = TEMPD(3)\r\n      ASSIGN 740 TO IRETRN\r\n      IF (NOGO) GO TO 740\r\n      CALL LOCATE (*740,Z(IBUFF1),REC(1),FLAG)\r\n      CALL WRITE (IFILE,REC(1),3,NOEOR)\r\n      VEOR = 0\r\n  735 CALL READ (*1600,*738,AXIC,Z(1),ICORE,NOEOR,IAMT)\r\n      IAMT = ICORE\r\n  736 DO 737 I = 1,IAMT,2\r\n  737 Z(I) = Z(I) + 100000000\r\n      CALL WRITE (IFILE,Z(1),IAMT,0)\r\n      DO 739 I = 1,IAMT,2\r\n  739 Z(I) = Z(I) + 100000000\r\n      CALL WRITE (IFILE,Z(1),IAMT,VEOR)\r\n      IF (VEOR) 1290,735,1290\r\n  738 VEOR = 1\r\n      GO TO 736\r\nC\r\nC     TEMPAX CARD\r\nC\r\n  740 CALL LOCATE (*1210,Z(IBUFF1),TEMPAX(1),FLAG)\r\nC\r\nC     RECORD HEADER ON GEOM3 FOR TEMP CARDS\r\nC\r\n      REC(1) = TEMP(1)\r\n      REC(2) = TEMP(2)\r\n      REC(3) = TEMP(3)\r\n      NCARD  = 20\r\n      ASSIGN 750 TO IHEADR\r\n      GO TO 1470\r\nC\r\nC     AT 604(?) SET UP SCRATCH FILE.\r\nC\r\n  750 I    = 5\r\n      BUFF = IBUFF3\r\n      OP   = OUTRWD\r\n      ASSIGN 760 TO IRETRN\r\n      GO TO 1350\r\nC\r\nC     PICK UP FIRST TEMPAX CARD = 4 WORDS.\r\nC\r\n  760 LAST = 0\r\n      CALL READ (*1600,*1200,AXIC,Z(1),4,NOEOR,IAMT)\r\n  770 K = 0\r\n      SETID = Z(1)\r\n      RINGID= Z(2)\r\nC\r\nC     CHECK RING ID FOR PROPER RANGE OF VALUE\r\nC\r\n      NNN = RINGID\r\n      ASSIGN 780 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  780 IAT = 3\r\n  790 K   = K + 1\r\n      IAT = IAT + 2\r\n      ICRQ= IAT + 3 - ICORE\r\n      IF (ICORE .LT. IAT+3) GO TO 1310\r\nC\r\nC     ALL TEMPAX CARDS HAVING SAME SET AND RING ID MUST BE ABLE TO\r\nC     HAVE 2 WORDS EACH FIT IN CORE.\r\nC\r\n      Z(IAT  ) = Z(3)\r\n      Z(IAT+1) = Z(4)\r\nC\r\n      CALL READ (*1600,*1130,AXIC,Z(1),4,NOEOR,IAMT)\r\nC\r\nC     DOES THIS CARD HAVE SAME SET AND RING ID AS LAST IN CURRENT SERIES\r\nC\r\n      IF (Z(1) .NE. SETID ) GO TO 800\r\n      IF (Z(2) .NE. RINGID) GO TO 800\r\n      GO TO 790\r\nC\r\nC     WE HAVE A  K X 2  ARRAY OF  PHI-S  AND T-S.\r\nC\r\nC     CONVERT ALL  PHIS SUCH THAT (0.LE. PHI .LT.TWOPI)\r\nC\r\n  800 IEND   = IAT + 1\r\n      IBEGIN = 5\r\nC\r\n      DO 840 I = IBEGIN,IEND,2\r\n      ANGLE = RZ(I)\r\n      IF (ANGLE) 810,840,830\r\n  810 IF (ANGLE) 820,840,840\r\n  820 ANGLE = ANGLE + 360.0\r\n      GO TO 810\r\nC\r\n  830 IF (ANGLE .LT. 360.0) GO TO 840\r\n      ANGLE = ANGLE - 360.0\r\n      GO TO 830\r\nC\r\n  840 RZ(I) = ANGLE*RADDEG\r\nC\r\nC     SIMPLE SORT FOR THE K X 2  MATRIX.\r\nC     SORT IS PERFORMED ON COLUMN 1 ONLY\r\nC\r\n      IF (K .EQ. 1) GO TO 950\r\n      ISTART = IBEGIN + 2\r\n      DO 900 I = ISTART,IEND,2\r\n      IAT = I - 2\r\n      IF (RZ(I) .GE. RZ(IAT)) GO TO 900\r\nC\r\nC     ROW NOT HIGH ENOUGH.  MOVE IT UP.\r\nC\r\n  850 IAT = IAT - 2\r\n      IF (IAT-IBEGIN) 870,870,860\r\n  860 IF (RZ(I) .LT. RZ(IAT)) GO TO 850\r\n      IAT = IAT + 2\r\n      GO TO 880\r\n  870 IAT = IBEGIN\r\nC\r\nC     THE ELEMENTS (I) AND (I+1) WILL BE MOVED UP TO POSITIONS (IAT) AND\r\nC     (IAT+1) AND ELEMENTS (IAT) THRU (I-1) WILL BE  MOVED DOWN 1 ROW.\r\nC\r\nC     FIRST SAVE THE ROW BEING MOVED UP\r\nC\r\n  880 RZ(IEND+1) = RZ(I)\r\n      RZ(IEND+2) = RZ(I+1)\r\n      NMOVE = I - IAT\r\n      IAT   = I + 2\r\n      DO 890 J = 1,NMOVE\r\n      IAT = IAT - 1\r\n  890 RZ(IAT) = RZ(IAT-2)\r\nC\r\nC     REPLACE SAVE ROW IN NEW SLOT\r\nC\r\n      RZ(IAT-2) = RZ(IEND+1)\r\n      RZ(IAT-1) = RZ(IEND+2)\r\nC\r\n  900 CONTINUE\r\nC\r\nC     CHECK FOR ANY DUPLICATE ANGLES AND REMOVE THEM...\r\nC\r\n      IBEGIN = IBEGIN + 2\r\n  910 DO 920 I = IBEGIN,IEND,2\r\n      IF (Z(I) .EQ. Z(I-2)) GO TO 930\r\n  920 CONTINUE\r\n      GO TO 950\r\nC\r\nC     DUPLICATE, SHRINK LIST UP OVER IT.\r\nC\r\n  930 IEND = IEND - 2\r\n      K=K-1\r\n      DO 940 J = I,IEND,2\r\n      Z(J  ) = Z(J+2)\r\n  940 Z(J+1) = Z(J+3)\r\n      IBEGIN = I\r\n      IF (IBEGIN - IEND) 910,950,950\r\nC\r\nC     SET UP K + 1  CARD\r\nC\r\n  950 RZ(IEND+1) = RZ(I5) + TWOPI\r\n      RZ(IEND+2) = RZ(I6)\r\nC\r\nC     THERE ARE K CARDS NOW WITH SETID, AND RINGID, NOT INCLUDING THE\r\nC     K + 1ST CARD\r\nC\r\nC     N+1 TEMP CARDS FOR S SET (PUT ON GEOM3)\r\nC     N+1 TEMP CARDS FOR C SET (PUT ON SCRTCH FOR NOW)\r\nC\r\nC     NOTE FMMS-52  (10/04/67) PAGE -9- FOR FOLLOWING...\r\nC\r\n      CSSET = 1\r\n      SETID = SETID + 100000000\r\nC\r\nC     CSSET = 0 FOR C-SET  AND NON-ZERO FOR S-SET.\r\nC\r\n      IBEGIN = K + K + 7\r\n      ICRQ   = IBEGIN + 2 - ICORE\r\n      IF ((IBEGIN+2) .GT. ICORE) GO TO 1310\r\nC\r\n  960 NADD = 0\r\n      Z(IBEGIN) = SETID\r\n      DO 1100 I = 1,NPLUS1\r\n      NADD = NADD + 1000000\r\nC\r\nC     NI IS REAL\r\nC\r\n      NI   = I - 1\r\n      NISQ = (I-1)**2\r\n      Z(IBEGIN+1) = RINGID + NADD\r\n      IPHI = 3\r\n      IT   = 4\r\n      SUM  = 0.0E0\r\n      IF (NI   ) 1010,970,1010\r\n  970 IF (CSSET) 1000,980,1000\r\n  980 DO 990 IK = 1,K\r\n      IPHI = IPHI + 2\r\n      IT   = IT   + 2\r\n  990 SUM  = SUM  + (RZ(IT)+RZ(IT+2))*(RZ(IPHI+2)-RZ(IPHI))\r\n 1000 RZ(IBEGIN+2) = 0.25*SUM/PI\r\n      GO TO 1060\r\nC\r\nC     NON-ZERO NI\r\nC\r\n 1010 IF (K .EQ. 1) GO TO 1050\r\n      DO 1040 IK = 1,K\r\n      IPHI = IPHI + 2\r\n      IT   = IT   + 2\r\n      NPHI = NI*RZ(IPHI  )\r\n      NPHI1= NI*RZ(IPHI+2)\r\nC\r\n      IF (CSSET) 1030,1020,1030\r\nC\r\nC     C-SET\r\nC\r\n 1020 A1 =  SIN(NPHI1)\r\n      A2 = -SIN(NPHI )\r\n      A3 =  COS(NPHI1)\r\n      A4 = -COS(NPHI )\r\n      GO TO 1040\r\nC\r\nC     S-SET\r\nC\r\n 1030 A1 = -COS(NPHI1)\r\n      A2 =  COS(NPHI )\r\n      A3 =  SIN(NPHI1)\r\n      A4 = -SIN(NPHI )\r\nC\r\nC\r\n 1040 SUM = SUM + (((RZ(IT)*RZ(IPHI+2) - RZ(IT+2)*RZ(IPHI))*\r\n     1      (A1 + A2)/NI) + ((RZ(IT+2) - RZ(IT))*\r\n     2      (A3 + A4 + NPHI1*A1 + NPHI*A2)/NISQ))/\r\n     3      (RZ(IPHI+2) - RZ(IPHI))\r\nC\r\n 1050 RZ(IBEGIN+2) = SUM/PI\r\nC\r\n 1060 IF (NOGO ) GO TO 1105\r\n      IF (CSSET) 1070,1080,1070\r\n 1070 NFILE = GEOM(3)\r\n      GO TO 1090\r\n 1080 NFILE = SCRTCH\r\n 1090 CALL WRITE (NFILE,Z(IBEGIN),3,NOEOR)\r\n 1100 CONTINUE\r\n 1105 IF (CSSET) 1110,1120,1110\r\n 1110 CSSET = 0\r\n      SETID = SETID + 100000000\r\n      GO TO 960\r\nC\r\nC     THIS SERIES OF TEMPAX CARDS COMPLETE GO FOR MORE IF LAST = 0\r\nC\r\n 1120 IF (LAST) 1140,770,1140\r\n 1130 LAST = 1\r\n      GO TO 800\r\nC\r\nC     ALL TEMPAX CARDS COMPLETE. CLOSE SCRATCH, OPEN SCRATCH\r\nC     AND COPY SCRATCH TO GEOM3.\r\nC\r\n 1140 IF (NOGO) GO TO 1210\r\n      CALL WRITE (SCRTCH,Z(1),0,EOR)\r\n      CALL CLOSE (SCRTCH,CLORWD)\r\n      CALL OPEN  (*1640,SCRTCH,Z(IBUFF3),INPRWD)\r\nC\r\n      VEOR = 0\r\n 1150 CALL READ (*1610,*1170,SCRTCH,Z(1),ICORE,NOEOR,IAMT)\r\n      IAMT = ICORE\r\n 1160 CALL WRITE (GEOM(3),Z(1),IAMT,VEOR)\r\n      IF (VEOR) 1180,1150,1180\r\n 1170 VEOR = 1\r\n      GO TO 1160\r\nC\r\nC     ALL  TEMPAX  CARDS  PROCESSED.\r\nC\r\n 1180 CALL CLOSE (SCRTCH,CLORWD)\r\nC\r\nC     PUT BITS IN TRAILER FOR TEMP CARDS WRITTEN\r\nC\r\n      REC(1) = TEMP(1)\r\n      REC(2) = TEMP(2)\r\n      REC(3) = TEMP(3)\r\n      ASSIGN 1210 TO IRETRN\r\n      GO TO 1290\r\nC\r\nC     RECORD LENGTH ERROR\r\nC\r\n 1200 REC(1) = TEMPAX(1)\r\n      REC(2) = TEMPAX(2)\r\n      REC(3) = TEMPAX(3)\r\n      ASSIGN 1210 TO IERRTN\r\n      GO TO 1490\r\nC\r\nC     CLOSE GEOM3\r\nC\r\n 1210 I = 3\r\n      ASSIGN 1220 TO IRETRN\r\n      GO TO 1380\r\nC\r\nC     CTRIAAX CARD\r\nC\r\n 1700 REC(1) = CTRIAA (1)\r\n      REC(2) = CTRIAA (2)\r\n      REC(3) = CTRIAA (3)\r\n      NCARD  = 43\r\n      CALL LOCATE (*1800,Z(IBUFF1),REC(1),FLAG)\r\nC\r\nC     RECORD HEADER FOR CTRIAAX\r\nC\r\n      ASSIGN 1710 TO IHEADR\r\n      ICONB  = 2\r\n      ICONSO = 1\r\n      GO TO 1470\r\n 1710 CALL READ (*1600,*1770,AXIC,Z(1),6,NOEOR,IAMT)\r\n      Z(1) = Z(1)*1000\r\n      DO 1720 I = 1,NPLUS1\r\n      Z(1) = Z(1) + 1\r\n      Z(3) = Z(3) + 1000000\r\n      Z(4) = Z(4) + 1000000\r\n      Z(5) = Z(5) + 1000000\r\n      IF (NOGO) GO TO 1720\r\n      CALL WRITE (GEOM(2),Z(1),6,NOEOR)\r\n 1720 CONTINUE\r\n      GO TO 1710\r\nC\r\nC     OUT OF CTRIAAX CARD\r\nC\r\n 1770 IF (IAMT) 1730,1740,1730\r\n 1730 ASSIGN 260 TO IERRTN\r\n      GO TO 1490\r\nC\r\nC     PUT BITS IN TRILER\r\nC\r\n 1740 ASSIGN 260 TO IRETRN\r\n      GO TO 1270\r\n 1800 IF (ICONSO .EQ. 1) GO TO 1740\r\n      ASSIGN 260 TO IERRTN\r\nC\r\nC     MISSING REQUIRED CCONEAX OR CTRIAAX OR CTRAPAX CARD\r\nC\r\n      CALL PAGE2 (3)\r\n      IMSG = 362\r\n      WRITE (NOUT,185) UFM,IMSG\r\n      WRITE (NOUT,1910) CDTYPE(3),CDTYPE(4),CDTYPE(43),CDTYPE(44),\r\n     1                  CDTYPE(45),CDTYPE(46)\r\n 1910 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,2H,  ,2A4,4H OR ,2A4,\r\n     1       ' CARD.  NONE FOUND')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (260,240)\r\nC\r\nC     CTRAPAX CARD\r\nC     ============\r\nC\r\n 1750 REC(1) = CTRAPA (1)\r\n      REC(2) = CTRAPA (2)\r\n      REC(3) = CTRAPA (3)\r\n      CALL LOCATE (*1700,Z(IBUFF1),REC(1),FLAG)\r\n      ICONB  = 1\r\nC\r\nC     RECORD HEADER FOR CTRAPAX\r\nC\r\n      ASSIGN 1751 TO IHEADR\r\n      ICONSO = 1\r\n      GO TO 1470\r\n 1751 CALL READ (*1600,*1753,AXIC,Z(1),7,NOEOR,IAMT)\r\n      Z(1) = Z(1)*1000\r\n      DO 1752 I = 1,NPLUS1\r\n      Z(1) = Z(1) + 1\r\n      Z(3) = Z(3) + 1000000\r\n      Z(4) = Z(4) + 1000000\r\n      Z(5) = Z(5) + 1000000\r\n      Z(6) = Z(6) + 1000000\r\n      IF (NOGO) GO TO 1752\r\n      CALL WRITE (GEOM(2),Z(1),7,NOEOR)\r\n 1752 CONTINUE\r\n      GO TO 1751\r\nC\r\nC     OUT OF CTRAPAX CARD\r\nC\r\n 1753 IF (IAMT) 1754,1755,1754\r\n 1754 ASSIGN 260 TO IERRTN\r\n      GO TO 1490\r\nC\r\nC     PUT BITS IN TRILER\r\nC\r\n 1755 ASSIGN 260 TO IRETRN\r\n      IF (NOGO) GO TO 1300\r\n      CALL WRITE (IFILE,Z(1),IAMT,EOR)\r\n      I1 = (REC(2)-1)/16 + 2\r\n      I2 = REC(2) - (I1-2)*16 + 16\r\n      TRAIL (I1) = ORF(TRAIL(I1),TWO(I2))\r\n      GO TO 1700\r\nC\r\nC     GEOM4 AND GEOM1 PROCESSING IS PERFORMED IN IFP3B ROUTINE\r\nC                                                =====\r\nC\r\n 1220 CALL IFP3B\r\n      GO TO 1570\r\nC\r\nC     UTILITY SECTION FOR IFP3\r\nC     AXIS-SYMETRIC-CONICAL-SHELL DATA GENERATOR.\r\nC     ==========================================\r\nC\r\nC     COMMON CODE FOR TRANSFER OF RECORD FROM AXIC FILE TO SOME\r\nC     OTHER FILE\r\nC\r\n 1230 CALL LOCATE (*1300,Z(IBUFF1),REC(1),FLAG)\r\n      IF (NOGO) GO TO 1300\r\n      CALL WRITE (IFILE,REC(1),3,NOEOR)\r\n 1260 CALL READ (*1600,*1270,AXIC,Z(1),ICORE,NOEOR,IAMT)\r\n      IAMT = ICORE\r\n      CALL WRITE (IFILE,Z(1),IAMT,NOEOR)\r\n      GO TO 1260\r\n 1270 IF (NOGO) GO TO 1300\r\n      IF (IFILE .EQ. GEOM(3)) GO TO 1280\r\n      IF (IFILE.EQ.GEOM(2) .AND. ICONB.EQ.1) GO TO 1300\r\n 1280 CALL WRITE (IFILE,Z(1),IAMT,EOR)\r\nC\r\nC     PUT BITS IN TRAILER\r\nC\r\n 1290 I1 = (REC(2)-1)/16 + 2\r\n      I2 =  REC(2) - (I1-2)*16 + 16\r\n      TRAIL(I1) = ORF(TRAIL(I1),TWO(I2))\r\nC\r\n 1300 GO TO IRETRN, (250,260,610,630,640,722,730,740,1210)\r\nC\r\nC     OUT OF CORE\r\nC\r\n 1310 CALL PAGE2 (4)\r\n      IMSG = 363\r\n      WRITE  (NOUT, 185) IMSG\r\n      WRITE  (NOUT,1320) ICRQ\r\n 1320 FORMAT (5X,'INSUFFICIENT CORE TO PROCESS AXIC DATA IN SUBROUTINE',\r\n     1       'IFP3', /5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.')\r\n      NOGO = .TRUE.\r\nC\r\nC     GO TO FATAL ERROR RETURN\r\nC\r\n      GO TO 1570\r\nC\r\nC     AXIC FILE NOT IN FIST\r\nC\r\n 1330 CALL PAGE2 (3)\r\n      IMSG = 1061\r\n      WRITE (NOUT,55) SFM,IMSG\r\n      WRITE (NOUT,60) AXIC,INAME(11),INAME(12),IFIST\r\n      NOGO = .TRUE.\r\nC\r\nC     GO TO FATAL ERROR RETURN\r\nC\r\n      GO TO 1570\r\nC\r\nC     OPEN A FILE AND GET THE TRAILER\r\nC\r\n 1350 IF (NOGO) GO TO 1360\r\n      CALL OPEN (*1370,FILE(I),Z(BUFF),OP)\r\n      OPENFL(I) = 1\r\n      IF (I .GT. 4) GO TO 1360\r\nC\r\nC     WRITE THE HEADER RECORD\r\nC\r\n      CALL WRITE (FILE(I),INAME(2*I-1),2,EOR)\r\n      TRAIL(1) = FILE(I)\r\n      CALL RDTRL (TRAIL(1))\r\nC\r\n 1360 GO TO IRETRN, (150,280,370,760,490)\r\nC\r\n 1370 CALL PAGE2 (3)\r\n      IMSG = 1061\r\n      WRITE (NOUT,55) SFM,IMSG\r\n      WRITE (NOUT,60) FILE(I),INAME(2*I-1),INAME(2*I),IFIST\r\n      NOGO = .TRUE.\r\n      GO TO 1570\r\nC\r\nC     CLOSE A FILE\r\nC\r\n 1380 IF (OPENFL(I)) 1390,1410,1390\r\n 1390 IF (I.GT. 4) GO TO 1400\r\n      CALL WRITE (FILE(I),T65535(1),3,EOR)\r\n 1400 CALL CLOSE (FILE(I),CLORWD)\r\n      OPENFL(I) = 0\r\n      IF (I .GT. 4) GO TO 1410\r\n      CALL WRTTRL (TRAIL(1))\r\n 1410 GO TO IRETRN, (270,590,1220,480)\r\nC\r\nC     HARMONIC NUMBER ... ON CARD TYPE ...... IS OUT OF RANGE 0 TO 998\r\nC\r\n 1420 IF (NNN.LT.999 .AND. NNN.GE.0 .AND. NNN.LE.N)\r\n     1    GO TO IERRTN, (140,400,397)\r\n      CALL PAGE2 (3)\r\n      IMSG = 364\r\n      WRITE  (NOUT,185 ) UFM,IMSG\r\n      WRITE  (NOUT,1430) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD),N\r\n 1430 FORMAT (5X,'HARMONIC NUMBER ',I6,4H ON ,2A4,' CARD OUT OF 0 TO ',\r\n     1        I4,' ALLOWABLE RANGE.')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (140,400,397)\r\nC\r\nC     RING ID OUT OF PERMISSABLE RANGE OF 1 TO 999999\r\nC\r\n 1440 IF (NNN.GT.0 .AND. NNN.LE.999999)\r\n     1    GO TO IERRTN, (170,180,390,670,680,780)\r\n      CALL PAGE2 (3)\r\n      IMSG = 365\r\n      WRITE  (NOUT,185 ) UFM,IMSG\r\n      WRITE  (NOUT,1450) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1450 FORMAT (5X,'RING ID',I10,4H ON ,2A4,' CARD OUT OF 1 TO 999999 ',\r\n     1       'ALLOWABLE RANGE')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (170,180,390,670,680,780)\r\nC\r\nC     CHECK BIT-IBIT IN TRAILER AND RETURN NON = ZERO OR NON-ZERO...\r\nC\r\n 1460 I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      NON = ANDF(AXTRL(I1),TWO(I2))\r\n      GO TO IBITR, (300,310)\r\nC\r\nC     WRITE 3 WORD RECORD HEADER\r\nC\r\n 1470 IF (NOGO) GO TO 1480\r\n      CALL WRITE (IFILE,REC(1),3,NOEOR)\r\n 1480 GO TO IHEADR, (160,350,660,723,750,1710,1751)\r\nC\r\nC     END-OF-RECORD ON AXIC FILE\r\nC\r\n 1490 CALL PAGE2 (3)\r\n      IMSG = 1063\r\n      WRITE  (NOUT,55) SFM,IMSG\r\n      WRITE  (NOUT,1500) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1500 FORMAT (5X,'EOR ON AXIC FILE WHILE READING ',2A4,'CARD RECORDS.')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (260,460,610,722,730,1210)\r\nC\r\nC     MISSING REQUIRED CARD\r\nC\r\n 1510 CALL PAGE2 (3)\r\n      IMSG = 362\r\n      WRITE  (NOUT,185 ) UFM,IMSG\r\n      WRITE  (NOUT,1520) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1520 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,' CARD.  NONE FOUND.')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (260,140)\r\nC\r\nC     AXIC TRAILER BIT ON BUT CAN NOT LOCATE RECORD\r\nC\r\n 1530 CALL PAGE2 (3)\r\n      IMSG = 1064\r\n      WRITE  (NOUT,55) SFM,IMSG\r\n      WRITE  (NOUT,1540) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1540 FORMAT (5X,2A4,' CARD COULD NOT BE LOCATED ON AXIC FILE AS ',\r\n     1       'EXPECTED')\r\n 1550 NOGO = .TRUE.\r\n      GO TO 610\r\n 1560 CALL PAGE2 (2)\r\n      WRITE (NOUT,1540) RECID(1),RECID(2),RECID(3)\r\n      GO TO 1550\r\nC\r\nC     CLOSE ANY OPEN FILES AND RETURN\r\nC\r\n 1570 DO 1590 I = 1,6\r\n      IF (OPENFL(I)) 1580,1590,1580\r\n 1580 CALL CLOSE (FILE(I),CLORWD)\r\n      OPENFL(I) = 0\r\n 1590 CONTINUE\r\n      IF (NOGO) NOFLAG = 32767\r\n      CALL CONMSG (MSG2,2,0)\r\n      RETURN\r\nC\r\nC     EOF ENCOUNTERED READING AXIC FILE.\r\nC\r\n 1600 NFILE = AXIC\r\n      IN  = 11\r\n      IN1 = 12\r\n      GO TO 1620\r\n 1610 NFILE = SCRTCH\r\n      IN  = 9\r\n      IN1 = 10\r\n 1620 CALL PAGE2 (3)\r\n      IMSG = 3002\r\n      WRITE  (NOUT,55) SFM,IMSG\r\n      WRITE  (NOUT,1630) INAME(IN),INAME(IN1),NFILE\r\n 1630 FORMAT (5X,'EOF ENCOUNTERED WHILE READING DATA SET ',2A4,' (FILE',\r\n     1        I4,') IN SUBROUTINE IFP3')\r\n      NOGO = .TRUE.\r\n      GO TO 1570\r\nC\r\n 1640 I = 5\r\n      GO TO 1370\r\n      END\r\n"
  },
  {
    "path": "mis/ifp3b.f",
    "content": "      SUBROUTINE IFP3B\r\nC\r\nC        CARDS           TYPE         REC.ID-BIT  CARDS-FILE, CARDS-FILE\r\nC    === =======         ===========  ==========  ==========  ==========\r\nC     1  AXIC     -----  AX.SY.SHELL     515- 5\r\nC     2  CCONEAX  -----  AX.SY.SHELL    8515-85  CCONE-GEOM2,\r\nC     3  FORCEAX  -----  AX.SY.SHELL    2115-21  FORCE-GEOM3,\r\nC     4  FORCE    -----  STANDARD       4201-42  FORCE-GEOM3,\r\nC     5  GRAV     -----  STANDARD       4401-44   GRAV-GEOM3,\r\nC     6  LOAD     -----  STANDARD       4551-61   LOAD-GEOM3,\r\nC     7  MOMAX    -----  AX.SY.SHELL    3815-38  MOMNT-GEOM3,\r\nC     8  MOMENT   -----  STANDARD       4801-48  MOMNT-GEOM3,\r\nC     9  MPCADD   -----  STANDARD       4891-60 MPCADD-GEOM4,\r\nC    10  MPCAX    -----  AX.SY.SHELL    4015-40    MPC-GEOM4,\r\nC    11  OMITAX   -----  AX.SY.SHELL    4315-43   OMIT-GEOM4,\r\nC    12  POINTAX  -----  AX.SY.SHELL    4915-49    MPC-GEOM4, GRID-GEOM1\r\nC    13  PRESAX   -----  AX.SY.SHELL    5215-52  PLOAD-GEOM3,\r\nC    13+ RFORCE   -----  STANDARD       5509-55 RFORCE-GEOM3,\r\nC    14  RINGAX   -----  AX.SY.SHELL    5615-56    SPC-GEOM4, GRID-GEOM1\r\nC    15  SECTAX   -----  AX.SY.SHELL    6315-63    MPC-GEOM4, GRID-GEOM1\r\nC    16  SEQGP    -----  STANDARD       5301-53  SEQGP-GEOM1,\r\nC    17  SPCADD   -----  STANDARD       5491-59 SPCADD-GEOM4,\r\nC    18  SPCAX    -----  AX.SY.SHELL    6215-62    SPC-GEOM4,\r\nC    19  SUPAX    -----  AX.SY.SHELL    6415-64 SUPORT-GEOM4,\r\nC    20  TEMPAX   -----  AX.SY.SHELL    6815-68   TEMP-GEOM3,\r\nC    21  TEMPD    -----  STANDARD       5641-65  TEMPD-GEOM3,\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT    ,ANDF      ,ORF\r\n      LOGICAL         NOGO      ,RECOFF    ,IFPDCO\r\n      REAL            NPHI      ,NPHI1     ,NISQ      ,NI        ,\r\n     1                RADDEG    ,RZ        ,T1        ,T2        ,\r\n     2                T3        ,COEF      ,A1        ,A2        ,\r\n     3                A3        ,A4        ,ANGLE     ,GC        ,\r\n     4                SUM       ,CONSTS\r\n      DIMENSION       GEOM(4)   ,Z(13)\r\n      DIMENSION       ISYSTM(175)\r\n      CHARACTER       UFM*23    ,UWM*25    ,UIM*29    ,SFM*25\r\n      COMMON /XMSSG / UFM       ,UWM       ,UIM       ,SFM\r\n      COMMON /BLANK / BOTTOM\r\n      COMMON /SYSTEM/ IBUFSZ    ,NOUT      ,NOFLAG    ,DUMDUM(8) ,\r\n     1                NLINES    ,DDD(14)   ,MN        ,DUM50(50) ,\r\n     2                IPIEZ\r\n      COMMON /MACHIN/ MACH      ,IHALF\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /IFP3LV/            RECID(3)  ,RECID1(3) ,RECIDX(3) ,\r\n     1                IEND      ,REC(3)    ,REC1(3)   ,TRAIL(7)  ,\r\n     2                IT        ,AXTRL(7)  ,OPENFL(6) ,N         ,\r\n     3                A1        ,CSID      ,NI        ,NISQ      ,\r\n     4                A2        ,IBUFF1    ,IBUFF2    ,IBUFF3    ,\r\n     5                A3        ,BUFF      ,NOGO      ,OP        ,\r\n     6                A4        ,IHEADR    ,IBITR     ,IFILE     ,\r\n     7                NOREG     ,LAST      ,IERRTN    ,ICONT     ,\r\n     8                NOAXIC    ,RINGID    ,OUTBUF    ,VEOR      ,\r\n     9                ISTART    ,IRETRN    ,FLAG      ,IAMT      ,\r\n     T                SUM       ,IBIT      ,SETID     ,SORC      ,\r\n     1                IBEGIN    ,MPCON     ,NWORDS    ,NNN       ,\r\n     2                ANGLE     ,K3OR6     ,NPHI1     ,ZPT       ,\r\n     3                NMOVE     ,CSSET     ,NOPONT    ,NON       ,\r\n     4                IPHI      ,RECOFF    ,NPHI      ,N3OR5     ,\r\n     5                ION       ,NPLUS1    ,NOSECT    ,COEF      ,\r\n     6                IPT       ,COMPON    ,ICORE     ,ISCRAT    ,\r\n     7                ICORE1    ,NCARDS    ,I1        ,IAT       ,\r\n     8                I2        ,T1        ,T2        ,NFILE     ,\r\n     9                NADD      ,NCARD\r\n      COMMON /IFP3CM/ FILE(6)   ,INAME(12) ,CDTYPE(50),AXIC1(3)  ,\r\n     1                CCONEX(3) ,FORCEX(3) ,FORCE(3)  ,GRAV(3)   ,\r\n     2                LOAD(3)   ,MOMAX(3)  ,MOMENT(3) ,MPCADD(3) ,\r\n     3                MPCAX(3)  ,OMITAX(3) ,POINTX(3) ,PRESAX(3) ,\r\n     4                RINGAX(3) ,SECTAX(3) ,SEQGP(3)  ,SPCAX(3)  ,\r\n     5                SUPAX(3)  ,TEMPAX(3) ,TEMPD(3)  ,PLOAD(3)  ,\r\n     6                MPC(3)    ,SPC(3)    ,GRID(3)   ,SUPORT(3) ,\r\n     7                NEG111(3) ,T65535(3) ,TEMP(3)   ,OMIT(3)   ,\r\n     8                SPCADD(3) ,ONE       ,ZERO      ,IHEADB(96),\r\n     9                CTRIAA(3) ,CTRAPA(3) ,ICONSO\r\n      COMMON /OUTPUT/ DUMMY(96) ,IHEAD(96)\r\n      COMMON /IFPDTA/ DUM(521)  ,GC(7)     ,LL(6)\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      EQUIVALENCE     (CONSTS(4),RADDEG )  , (Z(1)    ,RZ(1)  )  ,\r\n     1                (GEOM(1)  ,FILE(1))  , (SCRTCH  ,FILE(5))  ,\r\n     2                (AXIC     ,FILE(6))                        ,\r\n     3                (NOEOR    ,INPRWD    ,  ZERO            )  ,\r\n     4                (EOR      ,CLORWD    ,  OUTRWD  ,ONE    )\r\n      EQUIVALENCE     (IBUFSZ   ,ISYSTM(1))\r\n      DATA    IFIST / 4HFIST/   ,I3,I4,I5  /  3,4,5   /\r\nC\r\nC\r\nC     GEOM4 PROCESSING\r\nC     ================\r\nC\r\nC     OPEN GEOM4\r\nC\r\n      IFILE= GEOM(4)\r\n      I    = 4\r\n      OP   = OUTRWD\r\n      BUFF = IBUFF2\r\n      ASSIGN 20 TO IRETRN\r\n      GO TO 1340\r\nC\r\nC     SPCADD OR MPCADD CARDS\r\nC     ======================\r\nC\r\n   20 ASSIGN 30 TO ICONT\r\n      REC(1)  = MPCADD(1)\r\n      REC(2)  = MPCADD(2)\r\n      REC(3)  = MPCADD(3)\r\n      REC1(1) = MPCAX(1)\r\n      REC1(2) = MPCAX(2)\r\n      REC1(3) = MPCAX(3)\r\n   21 ASSIGN 28 TO IHEADR\r\n      GO TO 1470\r\nC\r\nC     MANDATORY SPCADD AND MPCADD CARDS.\r\nC\r\n   28 Z( 1) = 100000101\r\n      Z( 2) = 101\r\n      Z( 3) = -1\r\n      Z( 4) = 200000102\r\n      Z( 5) = 102\r\n      Z( 6) = -1\r\n      Z( 7) = 100000000\r\n      Z( 8) = 101\r\n      Z( 9) = -1\r\n      Z(10) = 200000000\r\n      Z(11) = 102\r\n      Z(12) = -1\r\n      IF (NOGO) GO TO 22\r\n      CALL WRITE (GEOM(4),Z(1),12,NOEOR)\r\n   22 CALL LOCATE (*23,Z(IBUFF1),REC(1),FLAG)\r\nC\r\nC     READ AN OPEN ENDED SPCADD OR MPCADD CARD INTO CORE.\r\nC\r\n      I = 1\r\n   27 CALL READ (*1540,*23,AXIC,Z(I),1,NOEOR,IAMT)\r\n      IF (Z(I)) 25,24,24\r\n   24 I = I + 1\r\n      IF ((I+1) .GT. ICORE) GO TO 1580\r\n      GO TO 27\r\nC\r\nC     COMPLETE CARD IS AT HAND\r\nC\r\n   25 Z(I) = 101\r\n      I    = I + 1\r\n      Z(I) = -1\r\n      Z(1) = Z(1) + 100000000\r\n      IF (NOGO) GO TO ICONT, (30,610)\r\n   26 CALL WRITE (GEOM(4),Z(1),I,NOEOR)\r\n      IF (Z(I-1) .EQ. 102) GO TO 23\r\n      Z(I-1) = 102\r\n      Z(1  ) = Z(1) + 100000000\r\n      GO TO 26\r\nC\r\nC     ALL SPCADD OR MPCADD CARDS COMPLETE.\r\nC     NOW CREATE SPCADD OR MPCADD FROM SPCAX OR MPCAX\r\nC     CARDS RESPECTIVELY.\r\nC\r\n   23 IREC   = REC(1)\r\n      REC(1) = REC1(1)\r\n      REC(2) = REC1(2)\r\n      REC(3) = REC1(3)\r\n      CALL LOCATE (*35,Z(IBUFF1),REC(1),FLAG)\r\nC\r\nC     OK SPCAX OR MPCAX RECORD EXISTS.\r\nC\r\n      ILAST = -1\r\n   38 Z(4)  = -1\r\n      CALL READ (*1540,*35,AXIC,Z(2),1,NOEOR,IAMT)\r\nC\r\nC     MPCAX CARDS ARE OPEN ENDED\r\nC     SPCAX CARDS ARE 5 WORDS LONG.\r\nC\r\n      IF (Z(2) .EQ. ILAST) GO TO 47\r\n      ILAST = Z(2)\r\nC\r\nC     CREATE TWO SPCADD OR MPCADD CARDS.\r\nC\r\n      Z(3) = 101\r\n      Z(1) = Z(2) + 100000000\r\n      IF (NOGO) GO TO ICONT, (30,610)\r\n   33 CALL WRITE (GEOM(4),Z(1),4,NOEOR)\r\n      IF (Z(3) .EQ. 102) GO TO 47\r\n      Z(3) = 102\r\n      Z(1) = Z(1) + 100000000\r\n      GO TO 33\r\nC\r\nC     READ UP TO NEXT CARD\r\nC\r\n   47 CALL READ (*1540,*35,AXIC,Z(1),4,NOEOR,IAMT)\r\n      IF (REC(1).EQ.SPCAX(1) .OR. Z(1).EQ.(-1)) GO TO 38\r\n      GO TO 47\r\nC\r\nC     ALL CARDS COMPLETE.\r\nC     WRITE EOR AND PUT BITS IN TRAILER.\r\nC\r\n   35 IAMT = 0\r\n      ASSIGN 37 TO IRETRN\r\n      IF (IREC .EQ. SPCADD(1)) GO TO 39\r\n      REC(1) = MPCADD(1)\r\n      REC(2) = MPCADD(2)\r\n      REC(3) = MPCADD(3)\r\n      GO TO 1300\r\n   39 REC(1) = SPCADD(1)\r\n      REC(2) = SPCADD(2)\r\n      REC(3) = SPCADD(3)\r\n      GO TO 1300\r\n   37 GO TO ICONT, (30,610)\r\nC\r\nC     MPCAX CARD\r\nC     ==========\r\nC\r\n   30 MPCON  = 0\r\n      REC(1) = MPC(1)\r\n      REC(2) = MPC(2)\r\n      REC(3) = MPC(3)\r\n      RECOFF = .FALSE.\r\n      LAST   = -1\r\n      NCARD  = 10\r\n      NWORDS = 0\r\n      CALL LOCATE (*130,Z(IBUFF1),MPCAX(1),FLAG)\r\nC\r\nC     WRITE RECORD HEADER\r\nC\r\n      RECOFF = .TRUE.\r\n      ASSIGN 40 TO IHEADR\r\n      GO TO 1470\r\nC\r\n   40 MPCON = 1\r\n      LAST  = 0\r\nC\r\nC     READ SET ID\r\nC\r\n   50 CALL READ (*1540,*120,AXIC,SETID,1,NOEOR,IAMT)\r\n      IF (SETID .GT. 100) GO TO 130\r\n      NWORDS = NWORDS + 1\r\n      IF (NOGO) GO TO 60\r\n      CALL WRITE (GEOM(4),SETID,1,NOEOR)\r\nC\r\nC     READ 4-WORDS SETS UNTIL -1,-1,-1,-1 ENCOUNTERED...\r\nC\r\n   60 CALL READ (*1540,*100,AXIC,Z(1),4,NOEOR,IAMT)\r\n      NWORDS = NWORDS + 4\r\n      IF (Z(4) .EQ. -1) GO TO 90\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n      NNN = Z(2)\r\n      ASSIGN 70 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     CHECK RING ID\r\nC\r\n   70 NNN = Z(1)\r\n      ASSIGN 80 TO IERRTN\r\n      GO TO 1440\r\nC\r\n   80 Z(2) = Z(1) + (Z(2)+1)*1000000\r\n      IF (NOGO) GO TO 60\r\n      CALL WRITE (GEOM(4),Z(2),3,NOEOR)\r\n      GO TO 60\r\nC\r\nC     END OF EQUATION\r\nC\r\n   90 IF (NOGO) GO TO 50\r\n      CALL WRITE (GEOM(4),NEG111(1),3,NOEOR)\r\n      GO TO 50\r\n  100 CALL PAGE2 (3)\r\n      IMSG = 1063\r\n      WRITE  (NOUT,105) SFM,IMSG\r\n  105 FORMAT (A25,I5)\r\n      WRITE  (NOUT,110) SFM,IMSG\r\n  110 FORMAT (5X,50HEOR ON AXIC FILE WHILE READING MPCAX CARD RECORDS.)\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\n  120 LAST = 1\r\nC\r\nC     FIRST NWORDS HAVE BEEN PROCESSED OF MPCAX CARDS UNLESS\r\nC     LAST = 1, IN WHICH CASE ALL MPCAX CARDS ARE COMPLETE.\r\nC     GO NOW TO THE S-SET MPC CARD-GENERATION FOR POINTAX CARDS\r\nC     IF LAST = -1, THERE ARE NO MPCAX CARDS.\r\nC\r\nC\r\nC     S-SET MPC-S FROM POINTAX CARDS\r\nC     ==============================\r\nC\r\n  130 REC(1) = POINTX(1)\r\n      REC(2) = POINTX(2)\r\n      REC(3) = POINTX(3)\r\n      NCARD  = 12\r\n      N3OR5  = 3\r\n      K3OR6  = 6\r\n      SORC   = 101\r\n      ASSIGN 380 TO ICONT\r\nC     TURN NOPONT OR NOSECT ON IF POINTAX OR SECTAX CARDS EXIST RESPECT.\r\nC\r\n      IBIT = POINTX(2)\r\n      ASSIGN 140 TO IBITR\r\n      GO TO 1460\r\n  140 NOPONT = NON\r\n      IBIT = SECTAX(2)\r\n      ASSIGN 150 TO IBITR\r\n      GO TO 1460\r\n  150 NOSECT = NON\r\nC\r\n      IF (NOPONT) 160,370,160\r\nC\r\n  160 CALL LOCATE (*370,Z(IBUFF1),REC(1),FLAG)\r\n      MPCON = 1\r\n      IF (RECOFF) GO TO 170\r\nC\r\nC     WRITE RECORD HEADER\r\nC\r\n      RECOFF = .TRUE.\r\n      REC(1) = MPC(1)\r\n      REC(2) = MPC(2)\r\n      REC(3) = MPC(3)\r\n      ASSIGN 170 TO IHEADR\r\n      GO TO 1470\r\nC\r\n  170 CALL READ (*1540,*370,AXIC,Z(1),N3OR5,NOEOR,IAMT)\r\nC\r\nC     CHECK RING ID FOR S-SET PASS ONLY FOR POINTAX AND SECTAX CARDS.\r\nC     NO CHECK WILL BE MADE IN THE GRID CARD GENERATION AREA.\r\nC\r\nC     IF (SORC .EQ. 102) GO TO 785\r\n      NNN = Z(2)\r\n      ASSIGN 180 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  180 IAT = N3OR5 + 1\r\n      DO 360 I = 1,K3OR6\r\n      Z(IAT) = SORC\r\n      Z(IAT+1) = Z(1)\r\n      Z(IAT+2) = I\r\n      RZ(IAT+3)= -1.0\r\n      IF (NOGO) GO TO 190\r\n      CALL WRITE (GEOM(4),Z(IAT),4,NOEOR)\r\n  190 DO 350 J = 1,NPLUS1\r\nC\r\nC     COMPUTE COEFFICIENT.\r\nC\r\n      NI = J - 1\r\n      IF (N3OR5 .EQ. 5) GO TO 240\r\nC\r\nC     POINTAX CARD COEFFICIENTS\r\nC\r\n      T1 = NI*RZ(I3)*RADDEG\r\n      IF (ANDF(I,1)) 210,210,200\r\nC\r\nC     ODD I\r\nC\r\n  200 IF (SORC - 101) 220,220,230\r\nC\r\nC     EVEN I\r\nC\r\n  210 IF (SORC - 101) 230,230,220\r\nC\r\n  220 COEF = SIN(T1)\r\n      GO TO 340\r\nC\r\n  230 COEF = COS(T1)\r\n      IF (SORC .EQ. 101) COEF = -COEF\r\n      IF (NI.EQ.0.0 .AND. SORC.EQ.101) COEF = 1.0\r\n      GO TO 340\r\nC\r\nC     SECTAX CARD COEFFICIENTS\r\nC\r\n  240 T1 = NI*RZ(I4)*RADDEG\r\n      T2 = NI*RZ(I5)*RADDEG\r\n      IF (I .GE.  4) GO TO 245\r\n      IF (ANDF(I,1)) 250,250,280\r\n  245 IF (ANDF(I,1)) 280,280,250\r\nC\r\nC     EVEN I\r\nC\r\n  250 IF (SORC .EQ. 101) GO TO 290\r\n  260 IF (NI) 270,320,270\r\n  270 T3 = T2\r\n      T2 = COS(T1)\r\n      T1 = COS(T3)\r\n      GO TO 310\r\nC\r\nC     ODD I\r\nC\r\n  280 IF (SORC .EQ. 101) GO TO 260\r\n  290 IF (NI) 300,330,300\r\n  300 T1 = SIN(T1)\r\n      T2 = SIN(T2)\r\n  310 COEF = RZ(I3)*(T2-T1)/NI\r\n      IF (SORC.EQ.101 .AND. (I.EQ.2 .OR. I.EQ.5)) COEF = -COEF\r\n      GO TO 340\r\n  320 COEF = 0.0\r\n      GO TO 340\r\n  330 COEF = RZ(I3)*(RZ(I5)-RZ(I4))*RADDEG\r\nC\r\n  340 Z(IAT  ) = Z(2) + J*1000000\r\n      Z(IAT+1) = I\r\n      RZ(IAT+2)= COEF\r\n      IF (NOGO) GO TO 350\r\n      CALL WRITE (GEOM(4),Z(IAT),3,NOEOR)\r\n  350 CONTINUE\r\n      IF (NOGO) GO TO 360\r\n      CALL WRITE (GEOM(4),NEG111(1),3,NOEOR)\r\n  360 CONTINUE\r\n      GO TO 170\r\nC\r\n  370 GO TO ICONT, (380,390,400,410)\r\nC\r\nC     S-SET MPC-S FROM SECTAX CARDS\r\nC     =============================\r\nC\r\nC     DO SECTAX CARDS FOR S-SET.\r\nC\r\n  380 REC(1) = SECTAX(1)\r\n      REC(2) = SECTAX(2)\r\n      REC(3) = SECTAX(3)\r\n      N3OR5  = 5\r\n      K3OR6  = 6\r\n      SORC   = 101\r\n      NCARD  = 15\r\n      ASSIGN 390 TO ICONT\r\n      IF (NOSECT) 160,390,160\r\nC\r\nC     C-SET MPC-S FROM POINTAX CARDS\r\nC     ==============================\r\nC\r\nC\r\n  390 REC(1) = POINTX(1)\r\n      REC(2) = POINTX(2)\r\n      REC(3) = POINTX(3)\r\n      N3OR5  = 3\r\n      K3OR6  = 6\r\n      SORC   = 102\r\n      ASSIGN 400 TO ICONT\r\n      IF (NOPONT) 160,400,160\r\nC\r\nC     C-SET MPC-S FROM SECTAX CARDS\r\nC     =============================\r\nC\r\n  400 REC(1) = SECTAX(1)\r\n      REC(2) = SECTAX(2)\r\n      REC(3) = SECTAX(3)\r\n      N3OR5  = 5\r\n      K3OR6  = 6\r\n      SORC   = 102\r\n      ASSIGN 410 TO ICONT\r\n      IF (NOSECT) 160,410,160\r\nC\r\nC     BALANCE OF MPCAX CARDS\r\nC\r\n  410 IF (LAST) 510,420,510\r\n  420 CALL LOCATE (*510,Z(IBUFF1),MPCAX(1),FLAG)\r\n      NCARD = 10\r\n      IF (NWORDS .EQ. 0) GO TO 440\r\n      DO 430 I = 1,NWORDS\r\n      CALL READ (*1540,*470,AXIC,Z(1),1,NOEOR,IAMT)\r\n  430 CONTINUE\r\nC\r\nC     NOW POSITIONED AT POINT LEFT OFF AT ABOVE.\r\nC\r\n  440 CALL READ (*1540,*510,AXIC,SETID,1,NOEOR,IAMT)\r\n      IF (SETID .LT. 101) GO TO 470\r\n      IF (SETID .GT. 102) GO TO 448\r\n      NOGO = .TRUE.\r\n      CALL PAGE2(3)\r\n      IMSG = 366\r\n      WRITE  (NOUT,445) UFM,IMSG\r\n  445 FORMAT (A23,I5)\r\n      WRITE  (NOUT,442)\r\n  442 FORMAT (5X,'SPCAX OR MPCAX CARD HAS A SETID = 101 OR 102.  101 ',\r\n     1      'AND 102 ARE SYSTEM ID-S RESERVED FOR SINE AND COSINE SETS')\r\n  448 IF (NOGO) GO TO 450\r\n      CALL WRITE (GEOM(4),SETID,1,NOEOR)\r\n  450 CALL READ (*1540,*100,AXIC,Z(1),4,NOEOR,IAMT)\r\n      IF (Z(4) .EQ. (-1)) GO TO 500\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n      NNN = Z(2)\r\n      ASSIGN 460 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     CHECK RING ID\r\nC\r\n  460 NNN = Z(1)\r\n      ASSIGN 490 TO IERRTN\r\n      GO TO 1440\r\n  470 CALL PAGE2 (3)\r\n      IMSG = 1063\r\n      WRITE  (NOUT,105) SFM,IMSG\r\n      WRITE  (NOUT,480) CDTYPE(19),CDTYPE(20)\r\n  480 FORMAT (5X,'EOR ON AXIC FILE WHILE READING ',2A4,'CARD RECORDS.')\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\nC\r\n  490 Z(2) = Z(1) + (Z(2)+1)*1000000\r\n      IF (NOGO) GO TO 450\r\n      CALL WRITE (GEOM(4),Z(2),3,NOEOR)\r\n      GO TO 450\r\nC\r\nC     END OF EQUATION\r\nC\r\n  500 IF (NOGO) GO TO 440\r\n      CALL WRITE (GEOM(4),NEG111(1),3,NOEOR)\r\n      GO TO 440\r\nC\r\nC     AT 713(?) WRITE EOR AND PUT BITS IN TRAILER.\r\nC\r\n  510 IF (MPCON) 520,530,520\r\n  520 IAMT   = 0\r\n      REC(1) = MPC(1)\r\n      REC(2) = MPC(2)\r\n      REC(3) = MPC(3)\r\n      ASSIGN 530 TO IRETRN\r\n      GO TO 1300\r\nC\r\nC     OMITAX CARDS\r\nC\r\n  530 REC(1) = OMITAX(1)\r\n      REC(2) = OMITAX(2)\r\n      REC(3) = OMITAX(3)\r\n      NCARD  = 11\r\n      REC1(1)= OMIT(1)\r\n      REC1(2)= OMIT(2)\r\n      REC1(3)= OMIT(3)\r\n      ASSIGN 600 TO ICONT\r\n  540 CALL LOCATE (*590,Z(IBUFF1),REC(1),FLAG)\r\n      IF (NOGO) GO TO 550\r\n      CALL WRITE (GEOM(4),REC1(1),3,NOEOR)\r\n  550 CALL READ (*1540,*580,AXIC,Z(1),3,NOEOR,IAMT)\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n      NNN = Z(2)\r\n      ASSIGN 560 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     CHECK RING ID\r\nC\r\n  560 NNN = Z(1)\r\n      ASSIGN 570 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  570 Z(2) = Z(1) + (Z(2)+1)*1000000\r\n      IF (IFPDCO(Z(3))) GO TO 571\r\n      DO 572 L2 = 1,6\r\n      IF (LL(L2) .EQ. 0) GO TO 572\r\n      Z(3) = LL(L2)\r\n      IF (NOGO) GO TO 550\r\n      CALL WRITE (GEOM(4),Z(2),2,NOEOR)\r\n  572 CONTINUE\r\n      GO TO 550\r\n  571 NOGO = .TRUE.\r\n      CALL PAGE2 (3)\r\n      IMSG = 367\r\n      WRITE  (NOUT,445) UFM,IMSG\r\n      WRITE  (NOUT,573) Z(3),CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n  573 FORMAT (5X,'COMPONENT SPECIFICATION',I8,4H ON ,2A4,\r\n     1       ' CARD IS INCORRECT')\r\n      GO TO 550\r\nC\r\nC     WRITE EOR AND PUT BITS IN TRAILER\r\nC\r\n  580 IAMT   = 0\r\n      REC(1) = REC1(1)\r\n      REC(2) = REC1(2)\r\n      REC(3) = REC1(3)\r\n      ASSIGN 590 TO IRETRN\r\n      GO TO 1300\r\n  590 GO TO ICONT, (600,870)\r\nC\r\nC     SPCADD CARD\r\nC     ===========\r\nC\r\n  600 REC(1)  = SPCADD(1)\r\n      REC(2)  = SPCADD(2)\r\n      REC(3)  = SPCADD(3)\r\n      REC1(1) = SPCAX(1)\r\n      REC1(2) = SPCAX(2)\r\n      REC1(3) = SPCAX(3)\r\n      ASSIGN 610 TO ICONT\r\n      GO TO 21\r\nC\r\nC     SPCAX CARD\r\nC     ==========\r\nC\r\n  610 REC(1) = SPC(1)\r\n      REC(2) = SPC(2)\r\n      REC(3) = SPC(3)\r\nC\r\nC     RECORD HEADER FOR SPC-S\r\nC\r\n      ASSIGN 620 TO IHEADR\r\n      GO TO 1470\r\nC\r\n  620 LAST  = -1\r\n      NCARD = 18\r\n      CALL LOCATE (*670,Z(IBUFF1),SPCAX(1),FLAG)\r\n      LAST   = 0\r\n      NWORDS = 0\r\n  630 CALL READ (*1540,*660,AXIC,Z(1),5,NOEOR,IAMT)\r\n      IF (Z(1) .GT. 100) GO TO 670\r\n      NWORDS = NWORDS + 5\r\nC\r\nC     ALTER CARD JUST READ AND OUTPUT\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n      NNN = Z(3)\r\n      ASSIGN 640 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     CHECK RING ID\r\nC\r\n  640 NNN = Z(2)\r\n      ASSIGN 650 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  650 Z(2) = Z(2) + (Z(3)+1)*1000000\r\n      Z(3) = Z(4)\r\n      Z(4) = Z(5)\r\n      IF (NOGO) GO TO 630\r\nC\r\n      CALL WRITE (GEOM(4),Z(1),4,NOEOR)\r\n      GO TO 630\r\n  660 LAST = 1\r\nC\r\nC     FIRST NWORDS HAVE BEEN PROCESSED OF SPCAX CARDS\r\nC     UNLESS LAST = 1, IN WHICH CASE ALL SPCAX CARDS ARE COMPLETE.\r\nC     IF LAST = -1, THERE ARE NO SPCAX CARDS\r\nC\r\nC     S-SET AND C-SET SPC-S FROM RINGAX CARDS\r\nC     =======================================\r\nC\r\n  670 SORC   = 101\r\n      NCARD  = 14\r\n      COMPON = 135\r\n      IF (ICONSO .EQ. 1) COMPON = 13\r\n      ASSIGN 750 TO ICONT\r\n  680 CALL LOCATE (*760,Z(IBUFF1),RINGAX(1),FLAG)\r\n  690 CALL READ (*1540,*740,AXIC,Z(1),4,NOEOR,IAMT)\r\nC\r\n       IF (SORC .EQ. 102) GO TO 730\r\nC\r\nC     GIVE RING CARD A CHECK FOR MINIMUM DATA.\r\nC\r\nC     CHECK RING ID\r\nC\r\n      NNN = Z(1)\r\n      ASSIGN 700 TO IERRTN\r\n      GO TO 1440\r\nC\r\nC     CHECK FOR NON-ZERO RADIUS\r\nC\r\n  700 IF (RZ(I3-1)) 730,710,730\r\n  710 CALL PAGE2 (3)\r\n      IMSG = 368\r\n      WRITE  (NOUT,445) UFM,IMSG\r\n      WRITE  (NOUT,720) Z(1)\r\n  720 FORMAT (5X,'RINGAX CARD WITH RING ID =',I10,' HAS A ZERO RADIUS',\r\n     1       ' SPECIFIED.')\r\n      NOGO = .TRUE.\r\n  730 Z(4) = 0\r\n      Z(3) = COMPON\r\n      Z(2) = Z(1) + 1000000\r\n      Z(1) = SORC\r\n      IF (NOGO) GO TO 690\r\n      CALL WRITE (GEOM(4),Z(1),4,NOEOR)\r\n      GO TO 690\r\nC\r\n  740 GO TO ICONT, (750,770)\r\n  750 SORC   = 102\r\n      COMPON = 246\r\n      IF (ICONSO .EQ. 1) COMPON = 2\r\nC\r\nC     KEEP DOF 4 FOR PIEZOELECTRIC PROBLEM\r\nC\r\n      IF (IPIEZ .EQ. 1) COMPON = 26\r\n      ASSIGN 770 TO ICONT\r\n      GO TO 680\r\nC\r\nC     MISSING REQUIRED CARD\r\nC\r\n  760 ASSIGN 770 TO IERRTN\r\n      GO TO 1510\r\nC\r\nC     BALANCE OF SPCAX CARDS\r\nC\r\n  770 IF (LAST) 830,780,830\r\n  780 CALL LOCATE (*830,Z(IBUFF1),SPCAX(1),FLAG)\r\n      NCARD = 18\r\n      IF (NWORDS .EQ. 0) GO TO 800\r\n      DO 790 I = 1,NWORDS,5\r\n      CALL READ (*1540,*840,AXIC,Z(1),5,NOEOR,IAMT)\r\n  790 CONTINUE\r\nC\r\nC     NOW POSITIONED AT POINT LEFT OFF AT ABOVE...\r\nC\r\n  800 CALL READ (*1540,*830,AXIC,Z(1),5,NOEOR,IAMT)\r\n      IF (Z(1) .LT. 101) GO TO 840\r\n      IF (Z(1) .GT. 102) GO TO 808\r\n      NOGO = .TRUE.\r\n      CALL PAGE2 (3)\r\n      IMSG = 366\r\n      WRITE (NOUT,445) UFM,IMSG\r\n      WRITE (NOUT,442)\r\nC\r\nC     CHECK HARMONIC NUMBER\r\nC\r\n  808 NNN = Z(3)\r\n      ASSIGN 810 TO IERRTN\r\n      GO TO 1420\r\nC\r\nC     RING ID CHECK\r\nC\r\n  810 NNN = Z(2)\r\n      ASSIGN 820 TO IERRTN\r\n      GO TO 1440\r\nC\r\n  820 Z(2) = Z(2) + (Z(3)+1)*1000000\r\n      Z(3) = Z(4)\r\n      Z(4) = Z(5)\r\n      IF (NOGO) GO TO 800\r\n      CALL WRITE (GEOM(4),Z(1),4,NOEOR)\r\n      GO TO 800\r\nC\r\nC     WRITE EOR AND PUT BITS IN THE TRAILER\r\nC\r\n  830 IAMT = 0\r\n      ASSIGN 860 TO IRETRN\r\n      GO TO 1300\r\n  840 CALL PAGE2 (3)\r\n      IMSG = 1063\r\n      WRITE (NOUT,105) SFM,IMSG\r\n      WRITE (NOUT,480) CDTYPE(35),CDTYPE(36)\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\nC\r\nC     SUPAX CARDS\r\nC     ===========\r\nC\r\n  860 REC(1)  = SUPAX(1)\r\n      REC(2)  = SUPAX(2)\r\n      REC(3)  = SUPAX(3)\r\n      NCARD   = 19\r\n      REC1(1) = SUPORT(1)\r\n      REC1(2) = SUPORT(2)\r\n      REC1(3) = SUPORT(3)\r\n      ASSIGN 870 TO ICONT\r\n      GO TO 540\r\nC\r\nC     CLOSE GEOM4\r\nC\r\n  870 I = 4\r\n      ASSIGN 880 TO IRETRN\r\n      GO TO 1380\r\nC\r\nC\r\nC     GEOM1 PROCESSING\r\nC     ================\r\nC\r\nC     OPEN GEOM1\r\nC\r\n  880 IFILE = GEOM(1)\r\n      I    = 1\r\n      OP   = OUTRWD\r\n      BUFF = IBUFF2\r\n      ASSIGN 890 TO IRETRN\r\n      GO TO 1340\r\nC\r\nC     GRID CARDS FROM POINTAX AND SECTAX CARDS\r\nC\r\nC     NOPONT = 0 OR 1, DEPENDING ON THE PRESSENCE OF POINTAX CARDS\r\nC     NOSECT = 0 OR 1, DEPENDING ON THE PRESSENCE OF SECTAX  CARDS\r\nC\r\nC     RECORD HEADER FOR GRID CARDS\r\nC\r\n  890 REC(1) = GRID(1)\r\n      REC(2) = GRID(2)\r\n      REC(3) = GRID(3)\r\n      ASSIGN 900 TO IHEADR\r\n      GO TO 1470\r\nC\r\n  900 IF (NOSECT) 920,910,920\r\n  910 IF (NOPONT) 980,1110,980\r\n  920 IF (NOPONT) 930,940,930\r\nC\r\nC     LOCATE SECTAX CARDS, READ SECTAX, CONVERT TO GRID, PUT ON NFILE\r\nC\r\n  930 NFILE = SCRTCH\r\nC\r\nC     OPEN SCRTCH FILE\r\nC\r\n      I   = 5\r\n      OP  = OUTRWD\r\n      BUFF= IBUFF3\r\n      ASSIGN 950 TO IRETRN\r\n      GO TO 1340\r\nC\r\n  940 NFILE = GEOM(1)\r\nC\r\n  950 ICARD = 15\r\n      CALL LOCATE (*1090,Z(IBUFF1),SECTAX(1),FLAG)\r\n  960 CALL READ (*1540,*970,AXIC,Z(1),5,NOEOR,IAMT)\r\n      Z(2) = 0\r\n      Z(6) = CSID\r\n      Z(7) = 0\r\n      Z(8) = 0\r\n      IF (NOGO) GO TO 960\r\n      CALL WRITE (NFILE,Z(1),8,NOEOR)\r\n      GO TO 960\r\n  970 IF (NOPONT) 980,1110,980\r\n  980 ICARD = 12\r\n      CALL LOCATE (*1090,Z(IBUFF1),POINTX(1),FLAG)\r\nC\r\nC     READ POINT CARD CONVERT TO GRID CARD AND PUT OUT ON GEOM(1)\r\nC     MERGING GRID CARDS FROM SCRTCH IF NOSECT IS NON-ZERO\r\nC\r\n      IF (NOSECT) 990,1000,990\r\n  990 IF (NOGO  ) GO TO 1110\r\n      CALL CLOSE (SCRTCH,CLORWD)\r\n      CALL OPEN (*1570,SCRTCH,Z(IBUFF3),INPRWD)\r\n      CALL READ (*1050,*1050,SCRTCH,Z(9),8,NOEOR,IAMT)\r\n 1000 CALL READ (*1540,*1070,AXIC,Z(1),3,NOEOR,IAMT)\r\nC\r\nC     CONVERT POINTAX CARD\r\nC\r\n      Z(2)   = 0\r\n      RZ(I4) = 0.0\r\n      RZ(I5) = 0.0\r\n      Z(6)   = CSID\r\n      Z(7)   = 0\r\n      Z(8)   = 0\r\n      IF (NOSECT) 1010,1020,1010\r\n 1010 IF (Z(1) .GE. Z(9)) GO TO 1030\r\n 1020 ZPT = 1\r\n      GO TO 1040\r\n 1030 ZPT = 9\r\n 1040 IF (NOGO) GO TO 1110\r\n      CALL WRITE (GEOM(1),Z(ZPT),8,NOEOR)\r\n      IF (ZPT .EQ. 1) GO TO 1000\r\n      CALL READ (*1050,*1050,SCRTCH,Z(9),8,NOEOR,IAMT)\r\n      IF (NOPONT) 1010,1040,1010\r\n 1050 NOSECT = 0\r\nC\r\nC     CLOSE SCRTCH\r\nC\r\n      I = 5\r\n      ASSIGN 1060 TO IRETRN\r\n      GO TO 1380\r\n 1060 IF (NOPONT) 1020,1110,1020\r\nC\r\n 1070 IF (NOSECT) 1080,1110,1080\r\n 1080 ZPT = 9\r\n      NOPONT = 0\r\n      GO TO 1040\r\nC\r\n 1090 CALL PAGE2 (3)\r\n      IMSG = 1064\r\n      WRITE  (NOUT,105) SFM,IMSG\r\n      WRITE  (NOUT,1100) CDTYPE(2*ICARD-1),CDTYPE(2*ICARD)\r\n 1100 FORMAT (5X,2A4,' CARD COULD NOT BE LOCATED ON AXIC FILE AS ',\r\n     1       'EXPECTED.')\r\n      NOGO = .TRUE.\r\n      GO TO 1110\r\nC\r\nC     GRID CARDS FROM RING CARDS\r\nC\r\nC     COPY RINGAX CARDS INTO CORE AND TO SCRTCH IF CORE IS EXCEEDED.\r\nC\r\n 1110 CALL LOCATE (*1240,Z(IBUFF1),RINGAX(1),FLAG)\r\n      NWORDS = (ICORE/4)*4 - 12\r\n      IBEGIN = 13\r\n      ISCRAT = 0\r\n      CALL READ (*1540,*1140,AXIC,Z(13),NWORDS,NOEOR,IAMT)\r\nC\r\nC     FALL HERE IMPLIES CORE IS FULL.. SPILL BALANCE TO SCRTCH FILE.\r\nC\r\n      ION    = 0\r\n      ISCRAT = 0\r\n      IF (NOGO) GO TO 1240\r\n      CALL OPEN (*1570,SCRTCH,Z(IBUFF3),OUTRWD)\r\n 1120 CALL READ (*1540,*1130,AXIC,Z(1),8,NOEOR,IAMT)\r\n      ION = 1\r\n      CALL WRITE (SCRTCH,Z(1),8,NOEOR)\r\n      GO TO 1120\r\n 1130  IF ((IAMT/4)*4 .NE. IAMT) GO TO 1230\r\n      IF (ION.EQ.0 .AND. IAMT.EQ.0) GO TO 1160\r\n      ISCRAT = 1\r\n      IF (NOGO) GO TO 1240\r\n      CALL WRITE (SCRTCH,Z(1),IAMT,EOR)\r\n      CALL CLOSE (SCRTCH,CLORWD)\r\n      GO TO 1160\r\nC\r\n 1140 IF ((IAMT/4)*4 .NE. IAMT) GO TO 1230\r\n      NWORDS = IAMT\r\nC\r\nC     NWORDS-WORDS ARE IN CORE AND IF ISCRAT = 1 THERE IS\r\nC     A RECORD OF RINGAX CARDS ON SCRTCH FILE ALSO\r\nC\r\nC     NOW MAKE N+1 PASSES THROUGH THE RING CARDS\r\nC\r\n 1160 IF (ISCRAT) 1170,1180,1170\r\n 1170 IF (NOGO  ) GO TO 1240\r\n      CALL OPEN (*1570,SCRTCH,Z(IBUFF3),INPRWD)\r\n 1180 Z(2) = 0\r\n      Z(5) = 0\r\n      Z(6) = CSID\r\n      Z(8) = 0\r\n      NCARDS = NWORDS/4\r\nC\r\nC     27TH WORD OF SYSTEM IS PACKED AND HOLDS NUMBER OF RINGS AND HARMS\r\nC\r\n      MN   = NPLUS1\r\n      ISYSTM(161) = NCARDS\r\n      NADD = 0\r\n      DO 1220 I = 1,NPLUS1\r\n      NADD = NADD + 1000000\r\n      IPT  = IBEGIN - 4\r\nC\r\nC     PASS THROUGH THE INCORE CARDS\r\nC\r\n      DO 1190 J = 1,NCARDS\r\n      IPT  = IPT + 4\r\n      Z(1) = Z(IPT) + NADD\r\n      Z(3) = Z(IPT+1)\r\n      Z(4) = Z(IPT+2)\r\n      Z(7) = Z(IPT+3)\r\n      IF (NOGO) GO TO 1190\r\n      CALL WRITE (GEOM(1),Z(1),8,NOEOR)\r\n 1190 CONTINUE\r\nC\r\nC     PASS THROUGH SCRTCH CARDS IF ANY\r\nC\r\n      IF (NOGO  ) GO TO 1220\r\n      IF (ISCRAT) 1200,1220,1200\r\n 1200 CALL READ (*1540,*1210,SCRTCH,Z(9),4,NOEOR,IAMT)\r\n      Z(1) = Z(9) + NADD\r\n      Z(3) = Z(10)\r\n      Z(4) = Z(11)\r\n      Z(7) = Z(12)\r\n      CALL WRITE (GEOM(1),Z(1),8,NOEOR)\r\n      GO TO 1200\r\nC\r\n 1210 CALL REWIND (SCRTCH)\r\n 1220 CONTINUE\r\nC\r\nC     PUT BITS IN TRAILER AND WRITE EOR FOR GRID CARDS\r\nC\r\n      IAMT   = 0\r\n      REC(1) = GRID(1)\r\n      REC(2) = GRID(2)\r\n      REC(3) = GRID(3)\r\n      ASSIGN 1240 TO IRETRN\r\n      GO TO 1300\r\n 1230 NCARD  = 14\r\n      ASSIGN 1240 TO IERRTN\r\n      GO TO 1490\r\nC\r\nC     SEQGP CARD\r\nC     ==========\r\nC\r\n 1240 REC(1) = SEQGP(1)\r\n      REC(2) = SEQGP(2)\r\n      REC(3) = SEQGP(3)\r\n      ASSIGN 1250 TO IRETRN\r\n      GO TO 1260\r\nC\r\nC     CLOSE GEOM1\r\nC\r\n 1250 I = 1\r\n      ASSIGN 1530 TO IRETRN\r\n      GO TO 1380\r\nC\r\nC\r\nC     UTILITY SECTION FOR IFP3\r\nC     AXIS-SYMETRIC-CONICAL-SHELL DATA GENERATOR.\r\nC     ==========================================\r\nC\r\nC     COMMON CODE FOR TRANSFER OF RECORD FROM AXIC FILE TO SOME\r\nC     OTHER FILE\r\nC\r\n 1260 CALL LOCATE (*1330,Z(IBUFF1),REC(1),FLAG)\r\n      IF (NOGO) GO TO 1330\r\n      CALL WRITE (IFILE,REC(1),3,NOEOR)\r\n 1290 CALL READ (*1540,*1300,AXIC,Z(1),ICORE,NOEOR,IAMT)\r\n      IAMT = ICORE\r\n      CALL WRITE (IFILE,Z(1),IAMT,NOEOR)\r\n      GO TO 1290\r\n 1300 IF (NOGO) GO TO 1330\r\n      CALL WRITE (IFILE,Z(1),IAMT,EOR)\r\nC\r\nC     PUT BITS IN TRAILER\r\nC\r\n      I1 = (REC(2)-1)/16 + 2\r\n      I2 =  REC(2)-(I1-2)*16 + 16\r\n      TRAIL(I1) = ORF(TRAIL(I1),TWO(I2))\r\nC\r\n 1330 GO TO IRETRN, (590,530,610,30,1240,1250,860,37)\r\nC\r\nC     OPEN A FILE AND GET THE TRAILER\r\nC\r\n 1340 IF (NOGO) GO TO 1350\r\n      CALL OPEN (*1360,FILE(I),Z(BUFF),OP)\r\n      OPENFL(I) = 1\r\n      IF (I .GT. 4) GO TO 1350\r\nC\r\nC     WRITE THE HEADER RECORD\r\nC\r\n      CALL WRITE (FILE(I),INAME(2*I-1),2,EOR)\r\n      TRAIL(1) = FILE(I)\r\n      CALL RDTRL (TRAIL(1))\r\nC\r\n 1350 GO TO IRETRN, (890,950,20)\r\nC\r\n 1360 CALL PAGE2 (3)\r\n      IMSG = 1061\r\n      WRITE  (NOUT,105 ) SFM,IMSG\r\n      WRITE  (NOUT,1370) FILE(I),INAME(2*I-1),INAME(2*I),IFIST\r\n 1370 FORMAT (5X,11HFILE NUMBER ,I4,3H ( ,2A4,12H) IS NOT IN ,A4)\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\nC\r\nC     CLOSE A FILE\r\nC\r\n 1380 IF (OPENFL(I)) 1390,1410,1390\r\n 1390 IF (I .GT. 4) GO TO 1400\r\n      CALL WRITE (FILE(I),T65535(1),3,EOR)\r\n 1400 CALL CLOSE (FILE(I),CLORWD)\r\n      OPENFL(I) = 0\r\n      IF (I .GT. 4) GO TO 1410\r\n      CALL WRTTRL (TRAIL(1))\r\n 1410 GO TO IRETRN, (880,1060,1530)\r\nC\r\nC     HARMONIC NUMBER,  ON CARD TYPE ..... IS OUT OF RANGE 0 TO 998\r\nC\r\n 1420 IF (NNN.LT.999 .AND. NNN.GE.0) GO TO IERRTN, (70,460,560,640,810)\r\n      CALL PAGE2 (3)\r\n      IMSG = 364\r\n      WRITE  (NOUT,445 ) UFM,IMSG\r\n      WRITE  (NOUT,1430) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1430 FORMAT (5X,'HARMONIC NUMBER',I6,4H ON ,2A4,' CARD OUT OF 0 TO ',\r\n     1       '998 ALLOWABLE RANGE')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (70,460,560,640,810)\r\nC\r\nC     RING ID OUT PERMISSABLE RANGE OF 1 TO 999999\r\nC\r\n 1440 IF (NNN.GT.0 .AND. NNN.LE.999999)\r\n     1    GO TO IERRTN, (80,180,490,570,650,700,820)\r\n      CALL PAGE2 (3)\r\n      IMSG = 365\r\n      WRITE  (NOUT,445 ) UFM,IMSG\r\n      WRITE  (NOUT,1450) NNN,CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1450 FORMAT (5X,'RING ID',I10,4H ON ,2A4,' CARD OUT OF 0 TO 999999',\r\n     1       ' ALLOWABLE RANGE')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (80,180,490,570,650,700,820)\r\nC\r\nC     CHECK BIT-IBIT IN TRAILER AND RETURN NON = ZERO OR NON-ZERO\r\nC\r\n 1460 I1 = (IBIT-1)/16  +  2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      NON = ANDF(AXTRL(I1),TWO(I2))\r\n      GO TO IBITR, (140,150)\r\nC\r\nC     WRITE 3 WORD RECORD HEADER\r\nC\r\n 1470 IF (NOGO) GO TO 1480\r\n      CALL WRITE (IFILE,REC(1),3,NOEOR)\r\n 1480 GO TO IHEADR, (40,170,620,900,28)\r\nC\r\nC     END-OF-RECORD ON AXIC FILE.\r\nC\r\n 1490 CALL PAGE2 (3)\r\n      IMSG = 1063\r\n      WRITE (NOUT,105) SFM,IMSG\r\n      WRITE (NOUT,480) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (1240)\r\nC\r\nC     MISSING REQUIRED CARD\r\nC\r\n 1510 CALL PAGE2 (3)\r\n      IMSG = 362\r\n      WRITE  (NOUT,445 ) UFM,IMSG\r\n      WRITE  (NOUT,1520) CDTYPE(2*NCARD-1),CDTYPE(2*NCARD)\r\n 1520 FORMAT (5X,'MINIMUM PROBLEM REQUIRES ',2A4,' CARD.  NONE FOUND.')\r\n      NOGO = .TRUE.\r\n      GO TO IERRTN, (770)\r\nC\r\nC     RETURN TO IFP3\r\nC\r\n 1530 RETURN\r\nC\r\nC     EOF ENCOUNTERED READING AXIC FILE\r\nC\r\n 1540 NFILE = AXIC\r\n      CALL PAGE2 (3)\r\n      IMSG = 3002\r\n      WRITE  (NOUT,105 ) SFM,IMSG\r\n      WRITE  (NOUT,1560) INAME(11),INAME(12),NFILE\r\n 1560 FORMAT (5X,'EOF ENCOUNTERED WHILE READING DATA SET ',2A4,' (FILE',\r\n     1        I4,') IN SUBROUTINE IFP3B')\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\nC\r\n 1580 CALL PAGE2 (3)\r\n      IMSG = 363\r\n      WRITE  (NOUT,445 ) UFM,IMSG\r\n      WRITE  (NOUT,1590)\r\n 1590 FORMAT (5X,'INSUFFICIENT CORE TO PROCESS AXIC DATA IN SUBROUTINE',\r\n     1       'IFP3B')\r\n      NOGO = .TRUE.\r\n      GO TO 1530\r\nC\r\n 1570 I = 5\r\n      GO TO 1360\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4.f",
    "content": "      SUBROUTINE IFP4\r\nC\r\nC     HYDROELASTIC PREFACE ROUTINE\r\nC\r\nC     THIS PREFACE MODULE OPERATES ON FLUID RELATED INPUT DATA WHICH\r\nC     EXISTS AT THIS POINT IN THE FORM OF CARD IMAGES ON THE AXIC DATA\r\nC     BLOCK.\r\nC\r\nC     7/12/73 NO AXIAL SYMMETRY FIRST FIVE WORDS OF BNDFL NO WRITTEN\r\nC\r\nC     THE FOLLOWING LIST GIVES THE CARD IMAGES IFP4 WILL LOOK FOR ON THE\r\nC     AXIC DATA BLOCK, THE CARD IMAGES IFP4 WILL GENERATE OR MODIFY, AND\r\nC     THE DATA BLOCKS ONTO WHICH THE GENERATED OR MODIFIED CARD IMAGES\r\nC     WILL BE PLACED.\r\nC\r\nC     IFP4 INPUT         IFP4 OUTPUT        DATA BLOCK\r\nC     CARD IMAGE         CARD IMAGE         EFFECTED\r\nC     -----------        -----------        ----------\r\nC       AXIF               -NONE-             -NONE-\r\nC       BDYLIST            -DATA-             MATPOOL\r\nC       CFLUID2            CFLUID2            GEOM2\r\nC       CFLUID3            CFLUID3            GEOM2\r\nC       CFLUID4            CFLUID4            GEOM2\r\nC       FLSYM              -DATA-             MATPOOL\r\nC       FREEPT             SPOINT             GEOM2\r\nC                          MPC                GEOM4\r\nC       FSLIST             CFSMASS            GEOM2\r\nC                          SPC                GEOM4\r\nC       GRIDB              GRID               GEOM1\r\nC       PRESPT             SPOINT             GEOM2\r\nC                          MPC                GEOM4\r\nC       RINGFL             GRID               GEOM1\r\nC                          SEQGP              GEOM1\r\nC       DMIAX              DMIG               MATPOOL\r\nC\r\nC     SOME OF THE ABOVE OUTPUT CARD IMAGES ARE A FUNCTION OF SEVERAL\r\nC     INPUT CARD IMAGES\r\nC\r\n      LOGICAL         HARMS    ,ANYGB    ,END      ,ANY      ,G1EOF    ,\r\n     1                G2EOF    ,G4EOF    ,SET102   ,PRESS    ,BIT      ,\r\n     2                NOGO     ,MATEOF   ,ANYGRD   ,BIT2\r\n      INTEGER         AXIF(2)  ,BDYLST(2),CFLUID(6),FLSYM(2) ,FREEPT(2),\r\n     1                FSLST(2) ,GRIDB(2) ,PRESPT(2),RINGFL(2),CFSMAS(2),\r\n     2                MPC(2)   ,MPCADD(2),TYPE(2)  ,SPOINT(2),CORD(8)  ,\r\n     3                SPC(2)   ,SPCADD(2),SPC1(2)  ,NCORD(4) ,GEOM1    ,\r\n     4                SUBR(2)  ,BUF(10)  ,LAST(10) ,AXIC     ,GEOM2    ,\r\n     5                CARD(10) ,FILE     ,MATPOL   ,GEOM4    ,SEQGP(2) ,\r\n     6                SCRT1    ,ENTRYS   ,CORSYS   ,SPACE    ,CORE     ,\r\n     7                SCRT2    ,SYSBUF   ,OUTPUT   ,FLAG     ,EOR      ,\r\n     8                CSF      ,RD       ,RDREW    ,WRT      ,WRTREW   ,\r\n     9                CLS      ,CLSREW   ,SAVEID(5),MONES(4) ,DMIG(2)  ,\r\n     O                BUF1     ,BUF2     ,BUF3     ,BUF4     ,BUF5     ,\r\n     1                WORDS    ,BNDFL(2) ,TRAIL(7) ,Z        ,POINT    ,\r\n     2                DMIAX(2) ,MSG1(2)  ,MSG2(2)  ,GRID(2)\r\n      REAL            RBUF(10) ,RCARD(10),RZ(4)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF   ,OUTPUT   ,NOGO     ,DUM34(34),IAXIF\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW   ,\r\n     1                CLS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),RZ(1)), (BUF(1),RBUF(1)), (CARD(1),RCARD(1))\r\n     1,               (CORE,ICORE), (RHOB,IRHOB), (BD,IBD)\r\n      DATA    AXIF  / 8815  ,88    /\r\n      DATA    BDYLST/ 8915  ,89    /\r\n      DATA    CFLUID/ 7815  ,78    , 7915  ,79   , 8015  ,80 /\r\n      DATA    FLSYM / 9115  ,91    /\r\n      DATA    FREEPT/ 9015  ,90    /\r\n      DATA    FSLST / 8215  ,82    /\r\n      DATA    GRIDB / 8115  ,81    /\r\n      DATA    PRESPT/ 8415  ,84    /\r\n      DATA    RINGFL/ 8315  ,83    /\r\n      DATA    CFSMAS/ 2508  ,25    /\r\n      DATA    BNDFL / 9614  ,96    /\r\n      DATA    MPC   / 4901  ,49    /\r\n      DATA    SPC   / 5501  ,55    /\r\n      DATA    SPC1  / 5481  ,58    /\r\n      DATA    MPCADD/ 4891  ,60    /\r\n      DATA    SPCADD/ 5491  ,59    /\r\n      DATA    SPOINT/ 5551  ,49    /\r\n      DATA    GRID  / 4501  ,45    /\r\n      DATA    SEQGP / 5301  ,53    /\r\n      DATA    DMIAX / 214   ,2     /\r\n      DATA    DMIG  / 114   ,1     /\r\n      DATA    CORD   /1701  ,17    , 1901  ,19   , 2001 ,20  ,2201 ,22 /\r\n      DATA    NCORD / 6     ,6     , 13    ,13   /\r\n      DATA    MONES / -1    ,-1    , -1    ,-1   /\r\n      DATA    SUBR  / 4HIFP4,4H    /\r\n      DATA    DEGRAD/ 1.7453292519943E-02/, MINUS1/ -1 /\r\n      DATA    GEOM1 , GEOM2,GEOM4  / 201,208,210  /\r\n      DATA    AXIC  , MATPOL,EOR   / 215,214,1    /\r\nC\r\nC     NOTE  SCRATCH2 IN IFP4 IS EQUIVALENCED TO THE -FORCE- DATA BLOCK\r\nC\r\n      DATA    SCRT1 , SCRT2 , NOEOR /  301,213,0  /\r\n      DATA    MSG1  / 4HIFP4, 4HBEGN/, MSG2       / 4HIFP4, 4HEND  /\r\nC\r\nC     DEFINE CORE AND BUFFER POINTERS\r\nC\r\n      CALL CONMSG (MSG1,2,0)\r\n      ICORE = KORSZ(Z)\r\n      BUF1  = ICORE- SYSBUF - 2\r\n      BUF2  = BUF1 - SYSBUF - 2\r\n      BUF3  = BUF2 - SYSBUF - 2\r\n      BUF4  = BUF3 - SYSBUF - 2\r\n      BUF5  = BUF4 - SYSBUF - 2\r\n      ICORE = BUF5 - 1\r\n      ICRQ  = 100  - ICORE\r\n      IF (ICORE .LT. 100) GO TO 2370\r\nC\r\nC     OPEN AXIC DATA BLOCK (IF NAME NOT IN FIST RETURN - NO MESSAGE)\r\nC\r\n      CALL PRELOC (*2300,Z(BUF1),AXIC)\r\nC\r\nC     PICK UP AXIF CARD. (IF AXIF CARD NOT PRESENT - RETURN NO MESSAGE)\r\nC\r\n      CALL LOCATE (*2300,Z(BUF1),AXIF,FLAG)\r\n      CALL READ (*2320,*30,AXIC,Z(1),ICORE,EOR,WORDS)\r\n      WRITE  (OUTPUT,10) UFM\r\n   10 FORMAT (A23,' 4031, INSUFFICIENT CORE TO READ DATA ON AXIF CARD.')\r\n      WRITE  (OUTPUT,20) ICORE\r\n   20 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.')\r\n      GO TO 2310\r\nC\r\nC     DATA OF AXIF CARD IS NOW STORED\r\nC\r\n   30 CSF   = Z(1)\r\n      G     = RZ(2)\r\n      DRHO  = RZ(3)\r\n      J     = 3\r\n      IDRHO = Z(J)\r\n      BD    = RZ(4)\r\n      NOSYM = Z(J+2)\r\n      IN    = 6\r\n      NN    = WORDS - 1\r\n      NI    = NN\r\n      J     = NN - IN + 1\r\n      HARMS = .FALSE.\r\n      IF (J .GE. 1) HARMS =.TRUE.\r\n      IF (.NOT.HARMS) GO TO 100\r\nC\r\nC     CONVERT USER INPUT LIST OF HARMONIC NUMBERS TO A LIST OF INDICES.\r\nC\r\n      IF (J .EQ. 1) GO TO 40\r\n      CALL SORT (0,0,1,1,Z(IN),J)\r\n   40 II = NN + 1\r\n      NI = NN\r\n      DO 70 I = IN,NN\r\n      ITEMP = 2*Z(I)\r\n      IF (NOSYM) 50,60,50\r\n   50 IF (Z(I) .EQ. 0) GO TO 60\r\n      NI = NI + 1\r\n      Z(NI) = ITEMP + 1\r\n   60 NI = NI + 1\r\n      Z(NI) = ITEMP + 2\r\n   70 CONTINUE\r\n      N  = NI - II + 1\r\nC\r\nC     SET MAXIMUM HARMONIC+1 FOR USE BY SDR2C AND VDRB\r\nC\r\n      IAXIF = Z(NN) + 1\r\nC\r\nC     BEGIN GEOM1 PROCESSING\r\nC     **********************\r\nC\r\nC     OPEN GEOM1 AND FIND CORD1C, CORD1S, CORD2C, OR CORD2S CARD IMAGE\r\nC     WITH COORDINATE SYSTEM ID = CSF OF AXIF CARD. THEN NOTE TYPE\r\nC     (CYLINDRICAL OR SPHERICAL, 2 OR 3 RESPECTIVELY)\r\nC\r\n  100 FILE = GEOM1\r\nC\r\nC     BEFORE CALLING PRELOC ON GEOM1 CHECK FOR DATA ON GEOM1\r\nC\r\n      TRAIL(1) = GEOM1\r\n      CALL RDTRL (TRAIL)\r\n      DO 110 I = 2,7\r\n      IF (TRAIL(I)) 120,110,120\r\n  110 CONTINUE\r\n      GO TO 150\r\n  120 CALL PRELOC (*2360,Z(BUF2),GEOM1)\r\n      DO 140 I = 1,4\r\n      I2 = 2*I\r\n      CALL LOCATE (*140,Z(BUF2),CORD(I2-1),FLAG)\r\n      NSIZE = NCORD(I)\r\n  130 CALL READ (*2340,*140,GEOM1,Z(NI+1),NSIZE,NOEOR,FLAG)\r\n      IF (Z(NI+1) .EQ. CSF) GO TO 170\r\n      GO TO 130\r\n  140 CONTINUE\r\nC\r\nC     FALL THROUGH LOOP IMPLIES COORDINATE SYSTEM WAS NOT FOUND\r\nC\r\n  150 NOGO = .TRUE.\r\n      WRITE  (OUTPUT,160) UFM,CSF\r\n  160 FORMAT (A23,' 4033, COORDINATE SYSTEM ID =',I20,' AS SPECIFIED ',\r\n     1       'ON AXIF CARD IS NOT PRESENT', /5X,' AMONG ANY OF CORD1C,',\r\n     2       ' CORD1S, CORD2C, OR CORD2S CARD TYPES.', /5X,\r\n     3       ' CYLINDRICAL TYPE ASSUMED FOR CONTINUING DATA CHECK.')\r\n      CORSYS = 2\r\n      GO TO 180\r\n  170 CORSYS = Z(NI+2)\r\n  180 CALL CLOSE (GEOM1,CLSREW)\r\nC\r\nC     READ INTO CORE FROM AXIC ALL GRIDB CARD IMAGES (5 WORDS / IMAGE)\r\nC\r\n      ANYGB  = .FALSE.\r\n      IGRIDB = NI + 1\r\n      NGRIDB = NI\r\n      CALL LOCATE (*210,Z(BUF1),GRIDB,FLAG)\r\n      ANYGB = .TRUE.\r\n      SPACE = CORE- NI\r\n      CALL READ (*2320,*200,AXIC,Z(IGRIDB),SPACE,EOR,NWORDS)\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,190) UFM\r\n  190 FORMAT (A23,' 4034, INSUFFICIENT CORE TO HOLD GRIDB CARD IMAGES.')\r\n      WRITE (OUTPUT,20) SPACE\r\n      ANYGB = .FALSE.\r\n      GO TO 210\r\n  200 NGRIDB = NI + NWORDS\r\nC\r\nC     IF ANY GRIDB IMAGES ARE PRESENT A BOUNDARY LIST IS FORMED IN CORE.\r\nC\r\n  210 IBDYL = NGRIDB + 1\r\n      NBDYL = NGRIDB\r\n      IF (.NOT.ANYGB) GO TO 520\r\n      CALL LOCATE (*520,Z(BUF1),BDYLST,FLAG)\r\n  220 CALL READ (*2320,*330,AXIC,RHOB,1,NOEOR,FLAG)\r\n      IF (IRHOB .NE. 1) GO TO 250\r\n      IF (IDRHO .NE. 1) GO TO 240\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,230) UFM\r\n  230 FORMAT (A23,' 4035, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ',\r\n     1        'A BDYLIST CARD AND', /5X,'THERE IS NO DEFAULT FLUID ',\r\n     2        'DENSITY SPECIFIED ON THE AXIF CARD.')\r\n      RHOB = 1.0\r\n      GO TO 250\r\n  240 RHOB = DRHO\r\n  250 END  = .FALSE.\r\n      IDFPRE = 0\r\n  260 CALL READ (*2320,*2330,AXIC,IDF,1,NOEOR,FLAG)\r\n      IF (IDF .NE. 0) GO TO 270\r\n      IDFPRE = -1\r\n      GO TO 260\r\n  270 CALL READ (*2320,*2330,AXIC,IDFAFT,1,NOEOR,FLAG)\r\nC\r\nC     NOTE.......  ON INPUT   ID=0 IMPLIES AXIS\r\nC                             ID=-1 IMPLIES END OF CARD\r\nC\r\nC\r\nC     NOTE.......  ON OUTPUT  ID=0 IMPLIES UNDEFINED ID\r\nC                             ID=-1 IMPLIES AXIS\r\nC\r\n      IF (IDFAFT .EQ. -1) GO TO 280\r\n      IF (IDFAFT .EQ.  0) IDFAFT = -1\r\n      GO TO 290\r\n  280 IDFAFT = 0\r\n      END = .TRUE.\r\nC\r\nC     DO NOT PUT OUT ENTRY WHEN IDF = AXIS\r\nC\r\n  290 IF (IDF .EQ. -1) GO TO 320\r\n      IF (NBDYL+7 .LE. CORE) GO TO 310\r\n      WRITE  (OUTPUT,300) UFM\r\n  300 FORMAT (A23,' 4036, INSUFFICIENT CORE TO BUILD BOUNDARY LIST ',\r\n     1       'TABLE.')\r\n      ICRQ = NBDYL + 7 - CORE\r\n      GO TO 2370\r\n  310 Z(NBDYL +1) = IDF\r\n      Z(NBDYL +2) = 1\r\n      Z(NBDYL +3) = 1\r\n      Z(NBDYL +4) = 1\r\n      Z(NBDYL +5) = IDFPRE\r\n      Z(NBDYL +6) = IDFAFT\r\n      RZ(NBDYL+7) = RHOB\r\n      NBDYL = NBDYL + 7\r\nC\r\nC     ROTATE THE ID-S\r\nC\r\n  320 IDFPRE = IDF\r\n      IDF = IDFAFT\r\n      IF (.NOT.END) GO TO 270\r\n      GO TO 220\r\nC\r\nC     SORT ENTRIES ON FIRST WORD OF EACH ENTRY.\r\nC\r\n  330 CALL SORT (0,0,7,1,Z(IBDYL),NBDYL-IBDYL+1)\r\n      ENTRYS = (NBDYL-IBDYL+1)/7\r\nC\r\nC     PASS THE RINGFL IMAGES INSERTING X1, X2, AND X3 IN THE APPROPRIATE\r\nC     BDYLIST ENTRY.\r\nC\r\n      CALL LOCATE (*490,Z(BUF1),RINGFL,FLAG)\r\n  340 CALL READ (*2320,*490,AXIC,BUF,4,NOEOR,FLAG)\r\n      IF (CORSYS  .NE.  3) GO TO 360\r\n      IF (RBUF(3) .NE. 0.) GO TO 360\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,350) UFM,BUF(1)\r\n  350 FORMAT (A23,' 5003, ZERO X2 VALUE ON RINGFL CARD WITH SPHERICAL ',\r\n     1       'COORDINATES.  FLUID POINT ID =',I10)\r\n  360 IF (BUF(CORSYS+1)) 370,410,370\r\n  370 NOGO = .TRUE.\r\n      IF (CORSYS .EQ. 3) GO TO 390\r\n      WRITE  (OUTPUT,380) UFM,BUF(1)\r\n  380 FORMAT (A23,'4042, COORDINATE SYSTEM IS CYLINDRICAL BUT RINGFL ',\r\n     1       'CARD ID =',I20,' HAS A NON-ZERO X2 VALUE.')\r\n      GO TO 410\r\n  390 WRITE  (OUTPUT,400) UFM,BUF(1)\r\n  400 FORMAT (A23,' 4043, COORDINATE SYSTEM IS SPHERICAL BUT RINGFL ',\r\n     1       'CARD ID =',I20,' HAS A NON-ZERO X3 VALUE.')\r\n  410 CALL BISLOC(*340,BUF(1),Z(IBDYL),7,ENTRYS,JPOINT)\r\n      NTEMP = IBDYL + JPOINT - 1\r\n      IF (Z(NTEMP+1) .EQ. 1) GO TO 430\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,420) UFM,BUF(1)\r\n  420 FORMAT (A23,' 4038, RINGFL CARD HAS ID =',I20,' WHICH HAS BEEN ',\r\n     1       'USED.')\r\n      GO TO 340\r\nC\r\nC     CHECK TO GET RANGE OF BDYLIST HAVING THIS SAME ID.\r\nC     THEN FILL IN X1, X2, AND X3 IN THOSE ENTRIES.\r\nC\r\n  430 NLIST = NTEMP\r\n  440 NTEMP = NTEMP - 7\r\n      IF (NTEMP .LT. IBDYL) GO TO 450\r\n      IF (Z(NTEMP) .EQ. Z(NTEMP+7)) GO TO 440\r\n  450 ILIST = NTEMP + 7\r\n      NTEMP = NLIST\r\n  460 NTEMP = NTEMP + 7\r\n      IF (NTEMP .GT. NBDYL) GO TO 470\r\n      IF (Z(NTEMP) .EQ. Z(NTEMP-7)) GO TO 460\r\n  470 NLIST = NTEMP - 1\r\n      DO 480 I = ILIST,NLIST,7\r\n      Z(I+1) = BUF(2)\r\n      Z(I+2) = BUF(3)\r\n      Z(I+3) = BUF(4)\r\n  480 CONTINUE\r\n      GO TO 340\r\nC\r\nC     CHECK TO SEE THAT X1, X2, AND X3 WERE FOUND FOR ALL ENTRIES.\r\nC\r\n  490 DO 510 I = IBDYL,NBDYL,7\r\n      IF (Z(I+1) .NE. 1) GO TO 510\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,500) UFM,Z(I)\r\n  500 FORMAT (A23,' 4040, ID =',I20,' APPEARS ON A BDYLIST CARD, BUT ',\r\n     1       'NO RINGFL CARD IS PRESENT WITH THE SAME ID.')\r\n  510 CONTINUE\r\nC\r\nC     OPEN GEOM1, OPEN SCRATCH1, COPY HEADER REC FROM GEOM1 TO SCRATCH1\r\nC\r\n  520 CALL IFP4C (GEOM1,SCRT1,Z(BUF2),Z(BUF3),G1EOF)\r\nC\r\nC     COPY ALL DATA UP TO FIRST GRID CARD IMAGE.\r\nC\r\n      CALL IFP4B (GEOM1,SCRT1,ANY,Z(NBDYL+1),CORE-NBDYL,GRID,G1EOF)\r\n      ANYGRD = ANY\r\n      IF (.NOT.ANYGB) GO TO 1040\r\n      IF (NBDYL .LT. IBDYL) GO TO 1040\r\nC\r\nC     CREATE AND MERGE WITH GRIDS FROM GEOM1, GRIDS FROM GRIDB IMAGES.\r\nC\r\n      FILE = GEOM1\r\n      IF (.NOT.ANY) GO TO 540\r\n      CALL READ (*2340,*530,GEOM1,LAST,8,NOEOR,FLAG)\r\n      CALL IFP4E (LAST(1))\r\n      GO TO 540\r\n  530 ANY = .FALSE.\r\n  540 DO 600 I = IGRIDB,NGRIDB,5\r\n      CARD(1) = Z(I)\r\n      CALL IFP4E (CARD(1))\r\n      CARD(2) = CSF\r\n      KID = Z(I+4)\r\n      CALL BISLOC (*560,KID,Z(IBDYL),7,ENTRYS,POINT)\r\n      NTEMP   = IBDYL + POINT - 1\r\n      CARD(3) = Z(NTEMP+1)\r\n      CARD(4) = Z(NTEMP+2)\r\n      CARD(5) = Z(NTEMP+3)\r\n      CARD(CORSYS+2) = Z(I+1)\r\n      CARD(6) = Z(I+2)\r\n      CARD(7) = Z(I+3)\r\n      CARD(8) = 0\r\nC\r\nC     MERGE CARD IN\r\nC\r\n      IF (.NOT.ANY) GO TO 590\r\n  550 IF (LAST(1) .GT. CARD(1)) GO TO 590\r\n      CALL WRITE (SCRT1, LAST, 8, NOEOR)\r\n      CALL READ (*2340,*580,GEOM1,LAST,8,NOEOR,FLAG)\r\n      CALL IFP4E (LAST(1))\r\n      GO TO 550\r\n  560 NOGO = .TRUE.\r\n      WRITE  (OUTPUT,570) UFM,Z(I),Z(I+4)\r\n  570 FORMAT (A23,' 4057, GRIDB CARD WITH ID =',I10,' HAS A REFERENCE ',\r\n     1       'IDF =',I10,/5X,'WHICH DOES NOT APPEAR IN A BOUNDARY LIST')\r\n      GO TO 600\r\n  580 ANY = .FALSE.\r\n  590 CALL WRITE (SCRT1,CARD,8,NOEOR)\r\n  600 CONTINUE\r\nC\r\n      IF (.NOT.ANY) GO TO 620\r\n  610 CALL WRITE (SCRT1,LAST,8,NOEOR)\r\n      CALL READ (*2340,*620,GEOM1,LAST,8,NOEOR,FLAG)\r\n      CALL IFP4E (LAST(1))\r\n      GO TO 610\r\nC\r\nC     FURTHER ALTERATIONS TO BOUNDARY LIST TABLE AT THIS TIME.\r\nC     RADIAL LOCATION (RJ) AND VERTICAL LOCATION (ZJ)\r\nC\r\n  620 NRING = NGRIDB\r\n      IF (.NOT.HARMS) GO TO 1200\r\n      DO 640 I = IBDYL,NBDYL,7\r\n      IF (CORSYS .EQ. 3) GO TO 630\r\n      Z(I+2) = Z(I+3)\r\n      GO TO 640\r\nC\r\n  630 ANGLE = RZ(I+2)*DEGRAD\r\n      TEMP  = RZ(I+1)\r\n      RZ(I+1) = TEMP*SIN(ANGLE)\r\n      RZ(I+2) = TEMP*COS(ANGLE)\r\n  640 CONTINUE\r\nC\r\nC     LENGTH AND ASSOCIATED ANGLE COMPONENTS OF A CONICAL SECTION. L,C,S\r\nC\r\n      IF (NOGO) GO TO 780\r\n      DO 770 I = IBDYL,NBDYL,7\r\n      RJ = RZ(I+1)\r\n      ZJ = RZ(I+2)\r\nC\r\nC     FIND R   , Z     AND  R   , Z     (RJL1,ZJL1,RJP1,ZJP1)\r\nC           J-1   J-1        J+1   J+1\r\nC\r\n      IF (Z(I+4)) 650,660,670\r\nC\r\nC     SECONDARY ID IS AXIS\r\nC\r\n  650 RJL1 = 0\r\n      ZJL1 = ZJ\r\n      GO TO 680\r\nC\r\nC     SECONDARY ID IS NOT AVAILABLE\r\nC\r\n  660 RJL1 = RJ\r\n      ZJL1 = ZJ\r\n      GO TO 680\r\nC\r\nC     FIND SECONDARY ID ENTRY\r\nC\r\n  670 KID = Z(I+4)\r\n      CALL BISLOC (*2380,KID,Z(IBDYL),7,ENTRYS,POINT)\r\n      NTEMP = IBDYL + POINT - 1\r\n      RJL1  = RZ(NTEMP+1)\r\n      ZJL1  = RZ(NTEMP+2)\r\nC\r\nC     SECONDARY ID ON PLUS SIDE\r\nC\r\n  680 IF (Z(I+5)) 690,700,710\r\nC\r\nC     SECONDARY ID IS AXIS\r\nC\r\n  690 RJP1 = 0\r\n      ZJP1 = ZJ\r\n      GO TO 720\r\nC\r\nC     SECONDARY ID IS NOT AVAILABLE\r\nC\r\n  700 RJP1 = RJ\r\n      ZJP1 = ZJ\r\n      GO TO 720\r\nC\r\nC     FIND SECONDARY ID ENTRY\r\nC\r\n  710 KID = Z(I+5)\r\n      CALL BISLOC (*2380,KID,Z(IBDYL),7,ENTRYS,POINT)\r\n      NTEMP = IBDYL + POINT - 1\r\n      RJP1  = RZ(NTEMP+1)\r\n      ZJP1  = RZ(NTEMP+2)\r\nC\r\nC     COMPUTE AND INSERT L,C,S.\r\nC\r\n  720 IF (RJ .NE. 0.0) GO TO 740\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,730) UFM,Z(I)\r\n  730 FORMAT (A23,' 4044, RINGFL CARD ID =',I20,' HAS SPECIFIED A ',\r\n     1       'ZERO RADIAL LOCATION.')\r\n      GO TO 770\r\nC\r\n  740 TEMP1 = RJP1 - RJ\r\n      TEMP2 = 0.25/RJ\r\n      R = 0.5*(RJP1-RJL1+TEMP2*(TEMP1*TEMP1-(RJL1-RJ)**2))\r\n      ZZ= 0.5*(ZJL1-ZJP1+TEMP2*(TEMP1*(ZJ-ZJP1)-(RJ-RJL1)*(ZJL1-ZJ)))\r\n      RZ(I+3) = SQRT(R*R + ZZ*ZZ)\r\n      IF (RZ(I+3) .NE. 0.0) GO TO 760\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,750) UFM,Z(I)\r\n  750 FORMAT (A23,' 4045, THE BOUNDARY LIST ENTRY FOR ID =',I9,\r\n     1       ' HAS A ZERO CROSS-SECTION LENGTH.')\r\n      GO TO 770\r\nC\r\n  760 RZ(I+4) = ZZ/RZ(I+3)\r\n      RZ(I+5) =  R/RZ(I+3)\r\n  770 CONTINUE\r\nC\r\nC     SORT GRIDB IMAGES TO BE IN SORT ON RID AND PHI WITHIN EACH RID\r\nC\r\n  780 NTEMP = NGRIDB - IGRIDB + 1\r\n      CALL SORT (0,0,5,-2,Z(IGRIDB),NTEMP)\r\n      CALL SORT (0,0,5,-5,Z(IGRIDB),NTEMP)\r\nC\r\nC     THE BOUNDARY FLUID DATA IS ADDED TO THE MATPOOL DATA BLOCK AS 1\r\nC     LOCATE RECORD CONTAINING THE FOLLOWING.\r\nC\r\nC     1-3   LOCATE CODE  9614,96,0\r\nC     4     CDF\r\nC     5     G\r\nC     6     DRHO\r\nC     7     BD\r\nC     8     NOSYM\r\nC     9     M\r\nC     10    S1\r\nC     11    S2\r\nC     12    N = NUMBER OF INDICES FOLLOWING\r\nC     12+1  THRU  12+N  THE INDICES\r\nC     13+N TO THE EOR IS THE BOUNDARY FLUID DATA\r\nC\r\nC\r\n      FILE  = MATPOL\r\n      INAME = NBDYL + 1\r\n      NNAME = NBDYL\r\n      CALL IFP4C (MATPOL,SCRT2,Z(BUF4),Z(BUF5),MATEOF)\r\n      IF (MATEOF) GO TO 930\r\nC\r\nC     IF ANY DMIAX CARDS ARE PRESENT THEN THEY ARE MERGED IN FRONT OF\r\nC     DMIG CARDS IN THE DMIG RECORD.  FILE NAMES MAY NOT BE THE SAME ON\r\nC     BOTH DMIG AND DMIAX CARDS.\r\nC\r\n      CALL IFP4F (DMIAX(2),MATPOL,BIT)\r\n      CALL IFP4F (DMIG(2) ,MATPOL,BIT2)\r\nC\r\nC     LOCATE DMIAX CARDS, COPY THEM TO SCRT2 AS DMIG CARDS AND KEEP\r\nC     LIST OF THEIR FILE NAMES.\r\nC\r\n      IF (.NOT.BIT .AND. .NOT.BIT2) GO TO 900\r\n      CALL CLOSE (MATPOL,CLSREW)\r\n      CALL PRELOC (*2360,Z(BUF4),MATPOL)\r\nC\r\nC     WRITE DMIG HEADER.\r\nC\r\n      BUF(1) = DMIG(1)\r\n      BUF(2) = DMIG(2)\r\n      BUF(3) = 120\r\n      CALL WRITE (SCRT2,BUF,3,NOEOR)\r\n      IF (.NOT.BIT) GO TO 850\r\n      CALL LOCATE (*850,Z(BUF4),DMIAX,FLAG)\r\n      ASSIGN 800 TO IRETRN\r\nC\r\nC     READ 9 WORD HEADER\r\nC\r\n  790 GO TO IRETRN(800,860)\r\n  800 CALL READ (*2340,*850,MATPOL,BUF,9,NOEOR,FLAG)\r\nC\r\nC     SAVE NAME\r\nC\r\n      Z(INAME  ) = BUF(1)\r\n      Z(INAME+1) = BUF(2)\r\n      NNAME = NNAME + 2\r\n      ICRQ  = NNAME + 2 - ICORE\r\n      IF (ICRQ .GT. 0) GO TO 2370\r\n  810 CALL WRITE (SCRT2,BUF,9,NOEOR)\r\nC\r\nC     COPY THE COLUMN DATA.  FIRST THE COLUMN INDEX.\r\nC\r\n  820 CALL READ (*2340,*2350,MATPOL,BUF,2,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,BUF,2,NOEOR)\r\n      IF (BUF(1)) 790,830,830\r\nC\r\nC     TERMS OF COLUMN\r\nC\r\n  830 CALL READ (*2340,*2350,MATPOL,BUF,2,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,BUF,2,NOEOR)\r\n      IF (BUF(1)) 820,840,840\r\n  840 CALL READ (*2340,*2350,MATPOL,BUF,1,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,BUF,1,NOEOR)\r\n      GO TO 830\r\nC\r\nC     DMIAX-S ALL COPIED.  NOW COPY ANY DMIG-S.\r\nC\r\n  850 IF (.NOT.BIT2) GO TO 890\r\n      CALL LOCATE (*890,Z(BUF4),DMIG,FLAG)\r\n      ASSIGN 860 TO IRETRN\r\nC\r\nC     READ HEADER\r\nC\r\n  860 CALL READ (*2320,*890,MATPOL,BUF,9,NOEOR,FLAG)\r\nC\r\nC     CHECK THE NAME FOR BEING THE SAME AS ONE ON A DMIAX CARD\r\nC\r\n      DO 880 I = INAME,NNAME,2\r\n      IF (BUF(1) .NE. Z(I  )) GO TO 880\r\n      IF (BUF(2) .NE. Z(I+1)) GO TO 880\r\nC\r\nC     ERROR FOR NAME DOES MATCH THAT OF A DMIAX NAME\r\nC\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,870) UFM,BUF(1),BUF(2)\r\n  870 FORMAT (A23,' 4062, DMIG BULK DATA CARD SPECIFIES DATA BLOCK ',\r\n     1       2A4,' WHICH ALSO APPEARS ON A DMIAX CARD.')\r\n  880 CONTINUE\r\nC\r\nC     COPY THE COLUMN DATA\r\nC\r\n      GO TO 810\r\nC\r\nC     WRITE THE END OF RECORD FOR DMIG CARDS\r\nC\r\n  890 CALL WRITE (SCRT2,0,0,EOR)\r\nC\r\nC     TURN ON BIT FOR DMIG CARD TYPE\r\nC\r\n      CALL IFP4G  (DMIG(2),MATPOL)\r\n      CALL REWIND (MATPOL)\r\n      CALL FWDREC (*2340,MATPOL)\r\nC\r\nC     COPY EVERYTHING ON MATPOL TO SCRT2, EXCEPT FOR DMIG, DMIAX, AND\r\nC     THE 2**31-1 RECORD.\r\nC\r\n  900 CALL READ (*930,*2350,MATPOL,BUF,3,NOEOR,FLAG)\r\nC     2147483647  = 2**31-1\r\n      ITWO31  =  2147483647\r\n      IF (BUF(1).NE.ITWO31.AND.(BUF(1).NE.DMIG(1).OR.BUF(2).NE.DMIG(2))\r\n     1   .AND.(BUF(1).NE.DMIAX(1).OR.BUF(2).NE.DMIAX(2))) GO TO 910\r\n      CALL FWDREC (*2340,MATPOL)\r\n      GO TO 900\r\n  910 CALL READ  (*2340,*920,MATPOL,Z(NBDYL+1),CORE-NBDYL,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,Z(NBDYL+1),CORE-NBDYL,NOEOR)\r\n      GO TO 900\r\n  920 CALL WRITE (SCRT2,Z(NBDYL+1),FLAG,EOR)\r\n      GO TO 900\r\n  930 MATEOF = .TRUE.\r\n      CALL IFP4B (MATPOL,SCRT2,ANY,Z(NBDYL+1),CORE-NBDYL,BNDFL,MATEOF)\r\n      CARD(1) = 0\r\n      CARD(2) = 0\r\n      CARD(3) = 0\r\n      CARD(4) = N\r\n      CALL LOCATE (*940,Z(BUF1),FLSYM,FLAG)\r\n      CALL READ (*2320,*2330,AXIC,CARD,3,EOR,FLAG)\r\n  940 CONTINUE\r\n      CALL WRITE (SCRT2,Z(1),5,NOEOR)\r\n      CALL WRITE (SCRT2,CARD,4,NOEOR)\r\n      CALL WRITE (SCRT2,Z(II),N,NOEOR)\r\nC\r\nC     OUTPUT ENTRIES TO MATPOOL DATA BLOCK.(TEMPORARILY ON SCRT2)\r\nC\r\n      JGRIDB = IGRIDB\r\n      JSAVE  = 0\r\n      DO 1030 I = IBDYL,NBDYL,7\r\nC\r\nC     POSSIBILITY OF 2 FLUID ID-S HAVING SAME VALUE\r\nC\r\n      IF (JSAVE .NE. 0) JGRIDB = JSAVE\r\n      JSAVE = 0\r\n      IF (Z(I) .EQ. Z(I+7)) JSAVE = JGRIDB\r\nC\r\nC     IF RHO FOR A FLUID POINT IS ZERO WE DO NOT PUT OUT FLUID\r\nC     DATA AND CONNECTED POINTS.\r\nC\r\n      IF (RZ(I+6)) 950,960,950\r\n  950 CALL WRITE (SCRT2,Z(I),7,NOEOR)\r\nC\r\nC     APPEND GRIDB POINTS WITH THEIR ANGLES.\r\nC\r\n  960 IF (JGRIDB .GT. NGRIDB) GO TO 1010\r\n      IF (Z(JGRIDB+4) - Z(I)) 970,980,1010\r\n  970 JGRIDB = JGRIDB + 5\r\n      GO TO 960\r\nC\r\nC     APPEND THE POINT\r\nC\r\n  980 IF (RZ(I+6)) 990,1000,990\r\n  990 CALL WRITE (SCRT2,Z(JGRIDB),2,NOEOR)\r\n 1000 JGRIDB = JGRIDB + 5\r\n      GO TO 960\r\nC\r\nC     COMPLETE THE ENTRY\r\nC\r\n 1010 IF (RZ(I+6)) 1020,1030,1020\r\n 1020 CALL WRITE (SCRT2,MONES,2,NOEOR)\r\n 1030 CONTINUE\r\nC\r\nC     COMPLETE RECORD.\r\nC\r\n      CALL WRITE (SCRT2,0,0,EOR)\r\n      CALL IFP4B (MATPOL,SCRT2,ANY,Z(NGRIDB+1),CORE-NGRIDB,MONES,MATEOF)\r\nC\r\nC  READ ALL RINGFL CARD IMAGES INTO CORE\r\nC\r\n 1040 IF (ANYGB) GO TO 1060\r\n      IF (.NOT.ANYGRD) GO TO 1060\r\nC\r\nC     COPY GRID CARDS NOT COPIED AS A RESULT OF THE ABSENCE OF GRIDB\r\nC     CARDS.\r\nC\r\n      FILE = GEOM1\r\n 1050 CALL READ (*2340,*1060,GEOM1,CARD,8,NOEOR,FLAG)\r\n      CALL WRITE (SCRT1,CARD,8,NOEOR)\r\n      GO TO 1050\r\n 1060 IRING = NGRIDB + 1\r\n      NRING = NGRIDB\r\n      CALL LOCATE (*1090,Z(BUF1),RINGFL,FLAG)\r\n      CALL READ (*2320,*1080,AXIC,Z(IRING),CORE-IRING,NOEOR,FLAG)\r\n      WRITE  (OUTPUT,1070) UFM\r\n 1070 FORMAT (A23,' 4047, INSUFFICIENT CORE TO HOLD RINGFL IMAGES.')\r\n      ICRQ = CORE - IRING\r\n      WRITE (OUTPUT,20) ICRQ\r\n      GO TO 2310\r\n 1080 NRING = IRING + FLAG - 1\r\nC\r\nC     OUTPUT HARMONIC GRID CARDS.\r\nC\r\n 1090 IF (NRING .LT. IRING) GO TO 1150\r\nC\r\nC     SORT RINGFL IDS\r\nC\r\n      CALL SORT (0,0,4,1,Z(IRING),FLAG)\r\n      CARD(2)  = 0\r\n      RCARD(5) = 0.0\r\nC\r\nC     CARD(6) = -1 AS A FLAG TO TELL GP1 THIS IS A ONE DEGREE OF\r\nC     FREEDOM POINT.\r\nC\r\n      CARD(6) = -1\r\n      CARD(7) = 0\r\n      CARD(8) = 0\r\n      DO 1140 I = II,NI\r\n      INDEX = Z(I)*500000\r\n      DO 1130 K = IRING,NRING,4\r\nC\r\nC     CALL IFP4E TO CHECK ID RANGE 1 TO 99999\r\nC\r\n      CALL IFP4E (Z(K))\r\n      IF (K .EQ. IRING) GO TO 1100\r\n      IF (Z(K) .NE. ZTEMP) GO TO 1100\r\n      NOGO = .TRUE.\r\n      WRITE (OUTPUT,420) UFM,Z(K)\r\n 1100 ZTEMP   = Z(K)\r\n      CARD(1) = Z(K) + INDEX\r\n      IF (CORSYS .EQ. 3) GO TO 1110\r\n      CARD(3) = Z(K+1)\r\n      CARD(4) = Z(K+3)\r\n      GO TO 1120\r\n 1110 ANGLE = RZ(K+2)*DEGRAD\r\n      RCARD(3) = RZ(K+1)*SIN(ANGLE)\r\n      RCARD(4) = RZ(K+1)*COS(ANGLE)\r\n      IF (RCARD(3) .NE. 0.0) GO TO 1120\r\n      NOGO = .TRUE.\r\n      WRITE (OUTPUT,350) UFM,Z(K)\r\n      GO TO 1140\r\n 1120 CALL WRITE (SCRT1,CARD,8,NOEOR)\r\n 1130 CONTINUE\r\n 1140 CONTINUE\r\nC\r\nC     COMPLETE GRID CARD RECORD.\r\nC\r\n 1150 CALL WRITE (SCRT1,0,0,EOR)\r\nC\r\nC     CREATE AND OUTPUT SEQGP CARDS ONTO SCRT1.  COPY GEOM1 TO SCRT1 UP\r\nC     TO AND INCLUDING SEQGP 3-WORD HEADER.\r\nC\r\n      IF (NRING .LT. IRING) GO TO 1210\r\n      CALL IFP4B (GEOM1,SCRT1,ANY,Z(NRING+1),CORE-NRING,SEQGP,G1EOF)\r\nC\r\nC     COPY ALL SEQGP CARDS OVER ALSO (ID-S MUST BE OF CORRECT VALUE).\r\nC\r\n      FILE = GEOM1\r\n      IF (.NOT.ANY) GO TO 1170\r\n 1160 CALL READ (*2340,*1170,GEOM1,CARD,2,NOEOR,FLAG)\r\n      CALL IFP4E (CARD(1))\r\n      CALL WRITE (SCRT1,CARD,2,NOEOR)\r\n      GO TO 1160\r\nC\r\nC     NOW OUTPUT SEQGP CARDS FOR HARMONICS OF EACH RINGFL.\r\nC\r\n 1170 DO 1190 I = II,NI\r\n      INDEX = Z(I)*500000\r\n      NTEMP = Z(I) - 1\r\n      DO 1180 K = IRING,NRING,4\r\n      CARD(1) = Z(K) + INDEX\r\n      CARD(2) = Z(K)*1000 + NTEMP\r\n      CALL WRITE (SCRT1,CARD,2,NOEOR)\r\n 1180 CONTINUE\r\n 1190 CONTINUE\r\n 1200 CALL WRITE (SCRT1,0,0,EOR)\r\nC\r\nC     COPY BALANCE OF GEOM1 TO SCRT1 (IF ANY MORE, WRAP UP, AND COPY\r\nC     BACK)\r\nC\r\n 1210 CALL IFP4B(GEOM1,SCRT1,ANY,Z(NRING+1),CORE-NRING,MONES,G1EOF)\r\nC\r\nC     IF THERE ARE NO HARMONICS THEN ONLY GRID CARDS ARE CREATED FROM\r\nC     GRIDB CARDS.\r\nC\r\nC     IF (.NOT. HARMS) GO TO 2300\r\nC === IF (.NOT. HARMS) SHOULD NOT GO TO 2300 HERE === G.CHAN/UNISYS 86\r\nC\r\nC     END OF GEOM1 PROCESSING\r\nC\r\nC     BEGIN GEOM2 PROCESSING\r\nC     **********************\r\nC\r\nC     OPEN GEOM2, AND SCRT1. COPY HEADER FROM GEOM2 TO SCRT1.\r\nC\r\n      CALL IFP4C (GEOM2,SCRT1,Z(BUF2),Z(BUF3),G2EOF)\r\nC\r\nC     PROCESS CFLUID2, CFLUID3, AND CFLUID4 CARDS.\r\nC\r\n      DO 1410 I = 1,3\r\n      I2 = 2*I\r\n      CALL LOCATE (*1410,Z(BUF1),CFLUID(I2-1),FLAG)\r\nC\r\nC     COPY DATA FROM GEOM2 TO SCRT1 UP TO POINT WHERE CFLUID CARDS GO\r\nC     AND WRITE 3-WORD RECORD ID.\r\nC\r\n      CALL IFP4B (GEOM2,SCRT1,ANY,Z(NI+1),CORE-NI,CFLUID(2*I-1),G2EOF)\r\n 1300 CALL READ (*2320,*1400,AXIC,CARD,I+4,NOEOR,FLAG)\r\n      IF (CARD(I+3) .NE. 1) GO TO 1330\r\n      IF (IDRHO     .NE. 1) GO TO 1320\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1310) UFM,CARD(1)\r\n 1310 FORMAT (A23,' 4058, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ',\r\n     1       'A CFLUID CARD WITH ID =',I10, /5X,\r\n     2       'AND THERE IS NO DEFAULT ON THE AXIF CARD.')\r\n 1320 RCARD(I+3) = DRHO\r\n 1330 IF (CARD(I+4) .NE. 1) GO TO 1360\r\n      IF (IBD .NE. 1) GO TO 1350\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1340) UFM,CARD(1)\r\n 1340 FORMAT (A23,' 4059, THE FLUID BULK MODULUS HAS NOT BEEN SPECIFIED'\r\n     1,      ' ON A CFLUID CARD WITH ID =',I10, /5X,'AND THERE IS NO ',\r\n     2       'DEFAULT ON THE AXIF CARD.')\r\n 1350 RCARD(I+4) = BD\r\nC\r\nC     OUTPUT N IMAGES.\r\nC\r\n 1360 NTEMP = I+2\r\n      DO 1370 K = 1,NTEMP\r\n 1370 SAVEID(K) = CARD(K)\r\nC\r\n      DO 1390 K = II,NI\r\n      CARD(1) = SAVEID(1)*1000 + Z(K)\r\n      INDEX   = 500000*Z(K)\r\n      DO 1380 L = 2,NTEMP\r\n      CARD(L) = SAVEID(L) + INDEX\r\n 1380 CONTINUE\r\n      CARD(NTEMP+3) = (Z(K)-1)/2\r\n      CALL WRITE (SCRT1,CARD,NTEMP+3,NOEOR)\r\n 1390 CONTINUE\r\n      GO TO 1300\r\nC\r\nC     END OF CFLUID DATA\r\nC\r\n 1400 CALL WRITE (SCRT1,0,0,EOR)\r\n 1410 CONTINUE\r\nC\r\nC     CONSTRUCTION OF FSLIST TABLE IN CORE 3-WORDS/ENTRY\r\nC\r\n      IFSLST = NI + 1\r\n      NFSLST = NI\r\n      CALL LOCATE (*1600,Z(BUF1),FSLST,FLAG)\r\n 1420 CALL READ (*2320,*1490,AXIC,RHOB,1,NOEOR,FLAG)\r\n      IF (IRHOB .NE. 1) GO TO 1450\r\n      IF (IDRHO .NE. 1) GO TO 1440\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1430) UFM\r\n 1430 FORMAT (A23,' 4048, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON ',\r\n     1       'AN FSLIST CARD AND', /5X,'THERE IS NO DEFAULT FLUID ',\r\n     2       'DENSITY SPECIFIED ON THE AXIF CARD.')\r\n      RHOB = 1.0\r\n      GO TO 1450\r\n 1440 RHOB = DRHO\r\n 1450 CALL READ (*2320,*2330,AXIC,IDF,1,NOEOR,FLAG)\r\n      IF (IDF .EQ. 0) IDF = -1\r\n 1460 CALL READ (*2320,*2330,AXIC,IDFAFT,1,NOEOR,FLAG)\r\n      IF (IDFAFT .EQ. -1) IDFAFT = -2\r\n      IF (IDFAFT .EQ.  0) IDFAFT = -1\r\n      IF (NFSLST+3 .LE. CORE) GO TO 1480\r\n      WRITE  (OUTPUT,1470) UFM\r\n 1470 FORMAT (A23,' 4049, INSUFFICIENT CORE TO BUILD FREE SURFACE ',\r\n     1       'LIST TABLE.')\r\n      ICRQ = NFSLST + 3 - CORE\r\n      WRITE (OUTPUT,20) ICRQ\r\n      GO TO 2310\r\n 1480 Z(NFSLST+1) = IDF\r\n      Z(NFSLST+2) = IDFAFT\r\n      RZ(NFSLST+3)= RHOB\r\n      NFSLST = NFSLST + 3\r\n      IF (IDFAFT .EQ. -2) GO TO 1420\r\n      IDF = IDFAFT\r\n      GO TO 1460\r\nC\r\nC     TABLE IS COMPLETE. COPY GEOM2 DATA TO SCRT1 UP TO CFSMASS RECORD\r\nC     SLOT\r\nC\r\n 1490 IF (NFSLST .GT. IFSLST) GO TO 1510\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1500) UFM\r\n 1500 FORMAT (A23,' 4050, FSLIST CARD HAS INSUFFICIENT IDF DATA, OR ',\r\n     1       'FSLIST DATA MISSING.')\r\n      GO TO 1600\r\n 1510 CALL IFP4B(GEOM2,SCRT1,ANY,Z(NFSLST+1),CORE-NFSLST,CFSMAS,G2EOF)\r\n      ENTRYS =(NFSLST-IFSLST+1)/3\r\n      K = 0\r\n      DO 1530 I = IFSLST,NFSLST,3\r\n      IF (Z(I+1) .EQ. -2) GO TO 1530\r\n      K = K + 1000000\r\n      RCARD(4) = RZ(I+2)*G\r\n      DO 1520 L = II,NI\r\n      INDEX = 500000*Z(L)\r\n      CARD(1) = K + Z(L)\r\n      CARD(2) = Z(I) + INDEX\r\n      IF (Z(I) .LE. 0) CARD(2) = Z(I+1) + INDEX\r\n      CARD(3) = Z(I+1) + INDEX\r\n      IF (Z(I+1) .LE. 0) CARD(3) = Z(I) + INDEX\r\n      CARD(5) = (Z(L)-1)/2\r\n      CALL WRITE (SCRT1,CARD,5,NOEOR)\r\n 1520 CONTINUE\r\n 1530 CONTINUE\r\n      CALL WRITE (SCRT1,0,0,EOR)\r\nC\r\nC     BEGIN GEOM4 PROCESSING\r\nC     **********************\r\nC\r\nC     OPEN GEOM4 AND SCRT2 AND COPY HEADER RECORD FROM GEOM4 TO SCRT2.\r\nC\r\n 1600 CALL IFP4C (GEOM4,SCRT2,Z(BUF4),Z(BUF5),G4EOF)\r\nC\r\nC     COPY ALL DATA ON GEOM4 TO SCRT2 UP TO AND INCLUDING 3-WORD RECORD\r\nC     HEADER OF MPC-RECORD.\r\nC\r\n      CALL IFP4B (GEOM4,SCRT2,ANY,Z(NFSLST+1),CORE-NFSLST,MPC,G4EOF)\r\nC\r\nC     COPY ANY MPC IMAGES HAVING A SET ID .LT. 103 TO SCRT2. ERROR\r\nC     MESSAGE IF ANY HAVE ID = 102.  MAINTAIN A LIST OF SETID-S LESS\r\nC     THAN 102.\r\nC\r\n      IMPC = NFSLST + 1\r\n      NMPC = NFSLST\r\n      IDLAST = 0\r\n      FILE = GEOM4\r\n      SET 102 = .FALSE.\r\n      IF (.NOT.ANY) GO TO 1650\r\nC\r\nC     PICK UP SET ID\r\nC\r\n 1610 CALL READ (*2340,*1650,GEOM4,ID,1,NOEOR,FLAG)\r\n      IF (ID .GT. 102) GO TO 1660\r\n      IF (ID .NE. 102) GO TO 1630\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1620) UFM\r\n 1620 FORMAT (A23,' 4051, AN MPC CARD HAS A SET ID SPECIFIED = 102. ',\r\n     1       ' SET 102 IS ILLEGAL WHEN FLUID DATA IS PRESENT.')\r\n 1630 CALL WRITE (SCRT2,ID,1,NOEOR)\r\nC\r\nC     ADD ID TO LIST IF NOT IN LIST\r\nC\r\n      IF (ID .EQ. IDLAST) GO TO 1640\r\n      NMPC = NMPC + 1\r\n      Z(NMPC) = ID\r\nC\r\nC     3 WORD GROUPS\r\nC\r\n 1640 CALL READ (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,CARD,3,NOEOR)\r\n      IF (CARD(1) .EQ. -1) GO TO 1610\r\n      GO TO 1640\r\nC\r\nC     NOW POSITIONED TO OUTPUT MPC CARDS FOR SET 102\r\nC\r\n 1650 ID = 0\r\nC\r\nC     IF G FROM AXIF CARD IS NON-ZERO FREEPT DATA IS NOW PROCESSED.\r\nC\r\n 1660 ISPNT = NMPC + 1\r\n      NSPNT = NMPC\r\n      PRESS = .FALSE.\r\n      IF (G .EQ. 0.0) GO TO 1780\r\nC\r\nC     IF THERE IS NO FREE SURFACE LIST, FREEPT CARDS ARE NOT USED.\r\nC\r\n      IF (NFSLST .LT. IFSLST) GO TO 1780\r\n      CALL SORT (0,0,3,1,Z(IFSLST),NFSLST-IFSLST+1)\r\n      CALL LOCATE (*1780,Z(BUF1),FREEPT,FLAG)\r\nC\r\nC     PICK UP A 3-WORD FREEPT OR PRESPT IMAGE (IDF,IDP,PHI)\r\nC\r\n 1670 CALL READ (*2320,*1770,AXIC,CARD,3,NOEOR,FLAG)\r\nC\r\nC     START MPC CARD\r\nC\r\n      ANGLE = RCARD(3)*DEGRAD\r\n      IDF   = CARD(1)\r\n      CARD(1) = 102\r\n      CARD(3) = 0\r\n      IF (PRESS) GO TO 1700\r\nC\r\nC     LOOK UP RHOB IN FSLIST TABLE\r\nC\r\n      CALL BISLOC (*1680,IDF,Z(IFSLST),3,ENTRYS,POINT)\r\n      NTEMP = IFSLST + POINT + 1\r\n      RCARD(4) = -ABS(RZ(NTEMP)*G)\r\n      GO TO 1710\r\n 1680 NOGO = .TRUE.\r\n      WRITE  (OUTPUT,1690) UFM,IDF\r\n 1690 FORMAT (A23,' 4052, IDF =',I10,' ON A FREEPT CARD DOES NOT ',\r\n     1       'APPEAR ON ANY FSLIST CARD.')\r\n      GO TO 1710\r\n 1700 RCARD(4) = -1.0\r\n 1710 CALL WRITE (SCRT2,CARD,4,NOEOR)\r\n      SET102 = .TRUE.\r\nC\r\nC     ADD SPOINT TO CORE LIST\r\nC\r\n      IF (NSPNT+1 .LE. CORE) GO TO 1730\r\n      WRITE  (OUTPUT,1720) UFM\r\n 1720 FORMAT (A23,' 4053, INSUFFICIENT CORE TO PERFORM OPERATIONS ',\r\n     1       'REQUIRED AS A RESULT OF FREEPT OR PRESPT DATA CARDS')\r\n      ICRQ = NSPNT + 1 - CORE\r\n      WRITE (OUTPUT,20) ICRQ\r\n      GO TO 2310\r\n 1730 NSPNT = NSPNT + 1\r\n      Z(NSPNT) = CARD(2)\r\n      CARD(2)  = 0\r\nC\r\nC     HARMONIC COEFFICIENT DATA\r\nC\r\n      DO 1760 I = II,NI\r\n      CARD(1) = 500000*Z(I) + IDF\r\n      NN = (Z(I)-1)/2\r\n      IF (MOD(Z(I),2) .EQ. 0) GO TO 1740\r\n      RCARD(3) = SIN(FLOAT(NN)*ANGLE)\r\n      GO TO 1750\r\n 1740 RCARD(3) = COS(FLOAT(NN)*ANGLE)\r\n 1750 CALL WRITE (SCRT2,CARD,3,NOEOR)\r\n 1760 CONTINUE\r\n      CALL WRITE (SCRT2,MONES,3,NOEOR)\r\n      GO TO 1670\r\nC\r\nC     CREATE MPC CARDS AND SPOINTS AS A RESULT OF PRESPT DATA.\r\nC\r\n 1770 IF (PRESS) GO TO 1790\r\n 1780 CALL LOCATE (*1790,Z(BUF1),PRESPT,FLAG)\r\n      PRESS = .TRUE.\r\n      GO TO 1670\r\nC\r\nC     ANY SPOINTS IN CORE ARE AT THIS TIME OUTPUT TO GEOM2.\r\nC\r\n 1790 IF (NSPNT .LT. ISPNT) GO TO 1830\r\nC\r\nC     COPY DATA FROM GEOM2 TO SCRT1 UP TO AND INCLUDING THE 3-WORD\r\nC     RECORD HEADER FOR SPOINTS\r\nC\r\n      FILE = GEOM2\r\n      CALL IFP4B (GEOM2,SCRT1,ANY,Z(NSPNT+1),CORE-NSPNT,SPOINT,G2EOF)\r\n      IF (.NOT.ANY) GO TO 1820\r\n 1800 CALL READ (*2340,*1810,GEOM2,Z(NSPNT+1),CORE-NSPNT,NOEOR,FLAG)\r\n      CALL WRITE (SCRT1,Z(NSPNT+1),CORE-NSPNT,NOEOR)\r\n      GO TO 1800\r\n 1810 CALL WRITE (SCRT1,Z(NSPNT+1),FLAG,NOEOR)\r\n 1820 CALL WRITE (SCRT1,Z(ISPNT),NSPNT-ISPNT+1,EOR)\r\nC\r\nC     COPY BALANCE OF GEOM2 TO SCRT1,CLOSE THEM, AND SWITCH DESIGNATIONS\r\nC\r\n 1830 CALL IFP4B (GEOM2,SCRT1,ANY,Z(NMPC+1),CORE-NMPC,-1,G2EOF)\r\nC\r\nC     END OF GEOM2 PROCESSING\r\nC     ***********************\r\nC\r\nC     COPY BALANCE OF MPC IMAGES ON GEOM4 TO SCRT2, COMPLETE LIST OF MPC\r\nC     SETS.\r\nC\r\n      FILE = GEOM4\r\n      IF (ID .EQ. 0) GO TO 1930\r\n      GO TO 1910\r\nC\r\nC     3-WORD GROUPS\r\nC\r\n 1900 CALL READ (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,CARD,3,NOEOR)\r\n      IF (CARD(1) .NE. -1) GO TO 1900\r\n      CALL READ (*2340,*1930,GEOM4,ID,1,NOEOR,FLAG)\r\n 1910 IF (ID .EQ. IDLAST) GO TO 1920\r\nC\r\nC     ADD ID TO LIST\r\nC\r\n      IDLAST = ID\r\n      NMPC   = NMPC + 1\r\n      Z(NMPC)= ID\r\n 1920 CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      GO TO 1900\r\n 1930 CALL WRITE (SCRT2,0,0,EOR)\r\n      TYPE(1) = MPCADD(1)\r\n      TYPE(2) = MPCADD(2)\r\nC\r\nC     GENERATION OF MPCADD OR SPCADD CARDS FROM USER ID-S.  FIRST\r\nC     OUTPUT MANDATORY MPCADD OR SPCADD.\r\nC\r\n 1940 CALL IFP4F (TYPE(2),GEOM4,BIT)\r\n      IF (.NOT.SET102 .AND. NMPC.LT.IMPC .AND. .NOT.BIT) GO TO 2020\r\n      CALL IFP4B (GEOM4,SCRT2,ANY,Z(NMPC+1),CORE-NMPC,TYPE,G4EOF)\r\n      IF (.NOT. SET102) GO TO 1950\r\n      CARD(1) = 200000000\r\n      CARD(2) = 102\r\n      CARD(3) = -1\r\n      CALL WRITE (SCRT2,CARD,3,NOEOR)\r\nC\r\nC     NOW FROM USER ID-S\r\nC\r\n 1950 IF (NMPC .LT. IMPC) GO TO 1980\r\n      DO 1970 I = IMPC,NMPC\r\n      CARD(1) = Z(I) + 200000000\r\n      CARD(2) = Z(I)\r\n      NN = 3\r\n      IF (.NOT.SET102) GO TO 1960\r\n      CARD(3) = 102\r\n      NN = 4\r\n 1960 CARD(NN) = -1\r\n      CALL WRITE (SCRT2,CARD,NN,NOEOR)\r\n 1970 CONTINUE\r\nC\r\nC     IF USER MPCADD OR SPCADD CARDS ARE PRESENT, NOW CHANGE THEIR ID-S\r\nC     AND ADD THE 102 SET IF IT EXISTS.\r\nC\r\n 1980 IF (.NOT.ANY) GO TO 2010\r\n 1990 CALL READ (*2340,*2010,GEOM4,ID,1,NOEOR,FLAG)\r\n      ID = ID + 200000000\r\n      CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      IF (SET102) CALL WRITE (SCRT2,102,1,NOEOR)\r\n 2000 CALL READ  (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      IF (ID .EQ. -1) GO TO 1990\r\n      GO TO 2000\r\nC\r\n 2010 CALL WRITE (SCRT2,0,0,EOR)\r\n 2020 IF (TYPE(1) .EQ. SPCADD(1)) GO TO 2270\r\nC\r\nC     START LIST OF SPC AND SPC1 ID-S\r\nC\r\n      ISPC = NFSLST + 1\r\n      NSPC = NFSLST\r\n      SET102 = .FALSE.\r\n      IDLAST = 0\r\nC\r\nC     CHECK BIT FOR SPC CARDS\r\nC\r\n      CALL IFP4F (SPC(2),GEOM4,BIT)\r\n      IF (.NOT.BIT) GO TO 2080\r\nC\r\nC     COPY GEOM4 TO SCRT2 UP TO SPC CARDS\r\nC\r\n      CALL IFP4B (GEOM4,SCRT2,ANY,Z(ISPC),CORE-ISPC,SPC,G4EOF)\r\nC\r\nC     COPY SPC IMAGES KEEPING LIST OF ID-S.\r\nC\r\n 2030 CALL READ (*2340,*2070,GEOM4,ID,1,NOEOR,FLAG)\r\n      IF (ID .EQ. IDLAST) GO TO 2060\r\n      IF (ID .NE.    102) GO TO 2050\r\n      NOGO = .TRUE.\r\n      WRITE  (OUTPUT,2040) UFM\r\n 2040 FORMAT (A23,' 4055, SET ID = 102 MAY NOT BE USED FOR SPC CARDS ',\r\n     1       'WHEN USING THE HYDROELASTIC-FLUID ELEMENTS.')\r\n      GO TO 2060\r\n 2050 NSPC = NSPC + 1\r\n      Z(NSPC) = ID\r\n      IDLAST  = ID\r\n 2060 CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      CALL READ  (*2340,*2350,GEOM4,CARD,3,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,CARD,3,NOEOR)\r\n      GO TO 2030\r\n 2070 CALL WRITE (SCRT2,0,0,EOR)\r\nC\r\nC     CHECK FOR ANY SPC1 IMAGES\r\nC\r\n 2080 CALL IFP4F (SPC1(2),GEOM4,BIT)\r\n      IF (.NOT.BIT .AND. G.NE.0.0) GO TO 2260\r\nC\r\nC     COPY FROM GEOM4 TO SCRT2 UP TO SPC1 DATA.\r\nC\r\n      CALL IFP4B(GEOM4,SCRT2,ANY,Z(NSPC+1),CORE-NSPC-2,SPC1,G4EOF)\r\nC\r\nC     COPY SPC1-S UP TO SETID .GE. 103.  SET 102 IS ILLEGAL FOR USER.\r\nC\r\n      IF (.NOT.BIT) GO TO 2150\r\n 2090 CALL READ (*2340,*2150,GEOM4,ID,1,NOEOR,FLAG)\r\n      IF (ID. LT. 102) GO TO 2100\r\n      IF (ID .NE. 102) GO TO 2160\r\n      NOGO = .TRUE.\r\n      WRITE (OUTPUT,2040) UFM\r\nC\r\nC     ADD ID TO LIST IF NOT YET IN LIST\r\nC\r\n 2100 IF (NSPC .LT. ISPC) GO TO 2120\r\n      DO 2110 I = ISPC,NSPC\r\n      IF (ID .EQ. Z(I)) GO TO 2130\r\n 2110 CONTINUE\r\nC\r\nC     ADD ID TO LIST\r\nC\r\n 2120 NSPC = NSPC + 1\r\n      Z(NSPC) = ID\r\n 2130 CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      CALL READ  (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,ID,1,NOEOR)\r\n 2140 CALL READ  (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      IF (ID .EQ. -1) GO TO 2090\r\n      GO TO 2140\r\nC\r\nC     IF G IS ZERO AND THERE ARE FSLST ENTRIES, GENERATE SPC1-S NOW.\r\nC\r\n 2150 ID = 0\r\n 2160 IF (G.NE.0.0 .OR. NFSLST.LT.IFSLST) GO TO 2190\r\nC\r\nC     GENERATION OF HARMONIC SPC1-S\r\nC\r\n      DO 2180 I = IFSLST,NFSLST,3\r\n      IF (Z(I) .EQ. -1) GO TO 2180\r\n      CARD(1) = 102\r\n      CARD(2) = 0\r\n      CALL WRITE (SCRT2,CARD,2,NOEOR)\r\n      DO 2170 J = II,NI\r\n      CALL WRITE (SCRT2,Z(I)+500000*Z(J),1,NOEOR)\r\n 2170 CONTINUE\r\n      CALL WRITE (SCRT2,MINUS1,1,NOEOR)\r\n 2180 CONTINUE\r\n      SET102 = .TRUE.\r\nC\r\nC     COMPLETE COPYING OF SPC1 CARDS TO SCRT2 WITH SETID-S .GE. 103\r\nC\r\n 2190 IF (ID .EQ. 0) GO TO 2250\r\nC\r\nC     ADD ID TO LIST IF NOT YET IN\r\nC\r\n      IF (NSPC .LT. ISPC) GO TO 2220\r\n 2200 DO 2210 I = ISPC,NSPC\r\n      IF (ID .EQ. Z(I)) GO TO 2230\r\n 2210 CONTINUE\r\nC\r\nC     ID NOT IN LIST, THUS ADD IT.\r\nC\r\n 2220 NSPC = NSPC + 1\r\n      Z(NSPC) = ID\r\nC\r\nC     CONTINUE COPYING DATA TO NEXT ID\r\nC\r\n 2230 CALL WRITE (SCRT2,ID,1,NOEOR)\r\n 2240 CALL READ  (*2340,*2350,GEOM4,ID,1,NOEOR,FLAG)\r\n      CALL WRITE (SCRT2,ID,1,NOEOR)\r\n      IF (ID .NE. -1) GO TO 2240\r\n      CALL READ  (*2340,*2250,GEOM4,ID,1,NOEOR,FLAG)\r\n      GO TO 2200\r\nC\r\nC     END OF SPC1 CARD IMAGES.\r\nC\r\n 2250 CALL WRITE (SCRT2,0,0,EOR)\r\nC\r\nC     SORT LIST OF SPC AND SPC1 ID-S\r\nC\r\n      CALL SORT (0,0,1,1,Z(ISPC),NSPC-ISPC+1)\r\nC\r\nC     SPCADD WORK (USE MPCADD LOGIC)\r\nC\r\n 2260 TYPE(1) = SPCADD(1)\r\n      TYPE(2) = SPCADD(2)\r\n      IMPC = ISPC\r\n      NMPC = NSPC\r\n      GO TO 1940\r\nC\r\nC     ALL PROCESSING COMPLETE ON GEOM4\r\nC\r\n 2270 CALL IFP4B (GEOM4,SCRT2,ANY,Z(1),CORE,MONES,G4EOF)\r\nC\r\nC     END OF GEOM4 PROCESSING\r\nC     ***********************\r\nC\r\nC     AXIC FILE NOT IN FIST OR AXIF CARD IS MISSING, THUS DO NOTHING.\r\nC\r\n 2300 CALL CLOSE  (AXIC,CLSREW)\r\n      CALL CONMSG (MSG2,2,0)\r\n      RETURN\r\nC\r\nC     FATAL ERROR NO MORE PROCESSING POSSIBLE\r\nC\r\n 2310 NOGO = .TRUE.\r\n      GO TO 2300\r\nC\r\nC     END OF FILE ON AXIC\r\nC\r\n 2320 FILE = AXIC\r\n      GO TO 2340\r\nC\r\nC     END OF RECORD ON AXIC\r\nC\r\n 2330 FILE = AXIC\r\n      GO TO 2350\r\nC\r\nC     END OF FILE OR END OF RECORD ON -FILE-, OR FILE NOT IN FIST.\r\nC\r\n 2340 IER = -2\r\n      GO TO 2390\r\n 2350 IER = -3\r\n      GO TO 2390\r\n 2360 IER = -1\r\n      GO TO 2390\r\n 2370 IER = -8\r\n      FILE = ICRQ\r\n      GO TO 2390\r\n 2380 IER = -37\r\n 2390 CALL MESAGE (IER,FILE,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4b.f",
    "content": "      SUBROUTINE IFP4B (FILE,SCRT,ANY,SPACE,LSPACE,RECID,EOF)\r\nC\r\nC     THIS ROUTINE, CALLED BY IFP4, COPIES DATA FROM -FILE- TO -SCRT-\r\nC     UP TO THE -RECID- SPECIFIED IF IT EXISTS AND COPIES THE -RECID-\r\nC     IN ANY EVENT.  -ANY- IS SET TRUE IF THE -RECID- WAS FOUND.\r\nC     -EOF- IS SET TRUE AS SOON AS AN END OF FILE IS HIT ON -FILE-.\r\nC     -SPACE- IS A WORKING AREA OF LENGTH -LSPACE-.  IF RECID(1) = -1,\r\nC     THE BALANCE OF -FILE- IS COPIED TO -SCRT- AND THEN -FILE- IS\r\nC     REWOUND AND -SCRT- IS COPIED BACK ONTO -FILE-.  BOTH FILES ARE\r\nC     THEN CLOSED.\r\nC\r\n      LOGICAL         EOF,ANY,BIT,NOGO\r\n      INTEGER         FILE,SCRT,SPACE(5),RECID(2),OUTPUT,NAME(2),SYSBUF,\r\n     1                FLAG,BUF1,BUF2,REC(3),ILIMIT(3),EOR\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUTPUT,NOGO\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      DATA    NAME  , NOEOR,EOR  /4HIFP4,4HB   ,0,1/,\r\n     1        ILIMIT/ 3*2147483647 /\r\nC\r\n      IF (RECID(1) .EQ. -1) GO TO 3000\r\n      ANY = .FALSE.\r\nC\r\nC     CHECK TRAILER BIT TO SEE IF RECORD EXISTS\r\nC\r\n      CALL IFP4F (RECID(2),FILE,BIT)\r\n      IF (.NOT.BIT) GO TO 2000\r\n      IF (EOF) GO TO 5001\r\nC\r\nC     READ A 3-WORD RECORD ID\r\nC\r\n      ANY = .TRUE.\r\n      IFILE = FILE\r\n  650 CALL READ  (*5001,*6002,FILE,REC(1),3,NOEOR,FLAG)\r\n      CALL WRITE (SCRT,REC,3,NOEOR)\r\n      IF (REC(1) .EQ. RECID(1)) RETURN\r\nC\r\nC     NOT THE CORRECT RECORD, THUS COPY BALANCE OF RECORD OVER.\r\nC\r\n  750 CALL READ  (*6001,*800,FILE,SPACE,LSPACE,NOEOR,FLAG)\r\n      CALL WRITE (SCRT,SPACE,LSPACE,NOEOR)\r\n      GO TO 750\r\n  800 CALL WRITE (SCRT,SPACE,FLAG,EOR)\r\n      GO TO 650\r\nC\r\nC     RECORD DOES NOT CURRENTLY EXIST, THUS START ONE\r\nC\r\n 2000 CALL WRITE (SCRT,RECID,2,NOEOR)\r\n      CALL WRITE (SCRT,0,1,NOEOR)\r\nC\r\nC     PUT BIT IN TRAILER\r\nC\r\n      CALL IFP4G (RECID(2),FILE)\r\n      RETURN\r\nC\r\nC     WRAP UP FILES\r\nC\r\n 3000 IF (EOF) GO TO 3400\r\n 3100 CALL READ  (*3500,*3200,FILE,SPACE,LSPACE,NOEOR,FLAG)\r\n      CALL WRITE (SCRT,SPACE,LSPACE,NOEOR)\r\n      GO TO 3100\r\n 3200 CALL WRITE (SCRT,SPACE,FLAG,EOR)\r\n      GO TO 3100\r\n 3400 CALL WRITE (SCRT,ILIMIT,3,EOR)\r\nC\r\nC     FILE IS ALL COPIED TO SCRT.  REWIND AND RETURN.\r\nC\r\n 3500 EOF = .TRUE.\r\n      CALL CLOSE (SCRT,CLSREW)\r\n      CALL CLOSE (FILE,CLSREW)\r\nC\r\nC     COPY DATA FROM SCRT TO FILE.\r\nC\r\n      BUF1 = 1\r\n      BUF2 = SYSBUF + 2\r\n      I    = 2*SYSBUF + 4\r\n      J    = LSPACE - I\r\n      IF (I .GT. LSPACE) CALL MESAGE (-8,0,NAME)\r\n      IFILE = FILE\r\n      CALL OPEN (*6003,FILE,SPACE(BUF1),WRTREW)\r\n      IFILE = SCRT\r\n      CALL OPEN  (*6003,SCRT,SPACE(BUF2),RDREW)\r\n 3800 CALL READ  (*4000,*3900,SCRT,SPACE(I),J,NOEOR,FLAG)\r\n      CALL WRITE (FILE,SPACE(I),J,NOEOR)\r\n      GO TO 3800\r\n 3900 CALL WRITE (FILE,SPACE(I),FLAG,EOR)\r\n      GO TO 3800\r\n 4000 CALL CLOSE (SCRT,CLSREW)\r\n      CALL CLOSE (FILE,CLSREW)\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 5001 NOGO = .TRUE.\r\n      WRITE  (OUTPUT,5002) UFM,RECID(1),RECID(2),FILE\r\n 5002 FORMAT (A23,' 4056, RECORD ID =',2I10,' IS OUT OF SYNC ON DATA ',\r\n     1       'BLOCK NUMBER',I10, /5X,'AN IFP4 SYSTEM ERROR.')\r\n      EOF = .TRUE.\r\n      RETURN\r\nC\r\n 6001 CALL MESAGE (-2,IFILE,NAME)\r\n 6002 CALL MESAGE (-3,IFILE,NAME)\r\n 6003 CALL MESAGE (-1,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4c.f",
    "content": "      SUBROUTINE IFP4C (FILE,SCRT,BUF1,BUF2,EOF)\r\nC\r\nC     THIS ROUTINE, CALLED BY IFP4, OPENS THE 2 FILES AND COPIES THE\r\nC     HEADER RECORD FROM -FILE- TO -SCRT-.\r\nC\r\n      LOGICAL        EOF\r\n      INTEGER        FILE,SCRT,BUF1(10),BUF2(10),WORK(10),FLAG,NAME(2),\r\n     1               NAME2(2),EOR,TRAIL(7)\r\n      COMMON /NAMES/ RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      DATA    NAME / 4HIFP4,4HC   /, EOR,NOEOR/1,0/\r\nC\r\n      TRAIL(1) = FILE\r\n      DO 50 I = 2,7\r\n      TRAIL(I) = 0\r\n   50 CONTINUE\r\n      CALL RDTRL (TRAIL)\r\n      DO 70 I = 2,7\r\n      IF (TRAIL(I)) 60,70,60\r\n   70 CONTINUE\r\n      GO TO 1000\r\n   60 CALL OPEN (*1002,FILE,BUF1,RDREW)\r\n      EOF = .FALSE.\r\n      CALL OPEN (*2000,SCRT,BUF2,WRTREW)\r\n   80 CALL READ (*1001,*100,FILE,WORK,10,NOEOR,FLAG)\r\n      CALL WRITE (SCRT,WORK,10,NOEOR)\r\n      GO TO 80\r\n  100 CALL WRITE (SCRT,WORK,FLAG,EOR)\r\n      RETURN\r\nC\r\nC     FILE IS NULL\r\nC\r\n 1000 EOF = .TRUE.\r\n      CALL OPEN (*2000,SCRT,BUF2,WRTREW)\r\n      CALL FNAME (FILE,NAME2)\r\n      CALL WRITE (SCRT,NAME2,2,EOR)\r\n      RETURN\r\nC\r\n 2000 CALL MESAGE (-1,SCRT,NAME)\r\n 1001 CALL MESAGE (-2,FILE,NAME)\r\n 1002 CALL MESAGE (-1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4e.f",
    "content": "      SUBROUTINE IFP4E (ID)\r\nC\r\nC     IFP4E, CALLED BY IFP4, CHECKS TO SEE THAT ID IS WITHIN PERMISSABLE\r\nC     RANGE OF FROM 1 TO 499999.\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         OUTPUT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUTPUT\r\nC\r\n      IF (ID .LT. 1) GO TO 100\r\n      IF (ID .LE. 499999) RETURN\r\nC\r\nC     ERROR\r\nC\r\n  100 NOGO = .TRUE.\r\n      WRITE  (OUTPUT,110) UFM,ID\r\n  110 FORMAT (A23,' 4041, ID =',I12,' IS OUT OF PERMISSIBLE RANGE OF 1',\r\n     1       ' TO 499999.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4f.f",
    "content": "      SUBROUTINE IFP4F (IBIT,FILE,BIT)\r\nC\r\nC     TEST BIT -IBIT- IN TRAILER OF DATA BLOCK -FILE-\r\nC\r\n      EXTERNAL     ANDF\r\n      LOGICAL      BIT\r\n      INTEGER      TWO, TRAIL(7), FILE, ANDF\r\n      COMMON /TWO/ TWO(32)\r\nC\r\n      TRAIL(1) = FILE\r\n      CALL RDTRL (TRAIL)\r\n      I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      IF (ANDF(TRAIL(I1),TWO(I2))) 10,20,10\r\n   10 BIT = .TRUE.\r\n      RETURN\r\n   20 BIT = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp4g.f",
    "content": "      SUBROUTINE IFP4G (IBIT,FILE)\r\nC\r\nC     TURNS ON BIT -IBIT- IN TRAILER FOR DATA BLOCK -FILE-\r\nC\r\n      EXTERNAL    ORF\r\n      INTEGER     ORF, TRAIL(7), FILE, TWO\r\n      COMMON/TWO/ TWO(32)\r\nC\r\n      TRAIL(1) = FILE\r\n      CALL RDTRL (TRAIL)\r\n      I1 = (IBIT-1)/16 + 2\r\n      I2 = IBIT - (I1-2)*16 + 16\r\n      TRAIL(I1) = ORF(TRAIL(I1),TWO(I2))\r\n      TRAIL(1) = FILE\r\n      CALL WRTTRL (TRAIL)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp5.f",
    "content": "      SUBROUTINE IFP5\r\nC\r\nC     ACOUSTIC CAVITY PREFACE ROUTINE\r\nC\r\nC     THIS PREFACE MODULE OPERATES ON ACOUSTIC-CAVITY-ANALYSIS DATA\r\nC     CARDS WHICH AT THIS POINT ARE IN THE FORM OF IFP-OUTPUT IMAGES ON\r\nC     THE AXIC DATA BLOCK.\r\nC\r\nC     THE FOLLOWING LIST GIVES THE CARD IMAGES IFP5 WILL LOOK FOR ON THE\r\nC     AXIC OR GEOM2 DATA BLOCKS,  THE CARD IMAGES IFP5 WILL GENERATE OR\r\nC     MODIFY, AND THE DATA BLOCKS ONTO WHICH THE GENERATED OR MODIFIED\r\nC     CARD IMAGES WILL BE PLACED.\r\nC\r\nC      IFP5 INPUT         IFP5 OUTPUT        DATA BLOCK\r\nC      CARD IMAGE         CARD IMAGE         EFFECTED\r\nC     ------------       -----------        ----------\r\nC      AXSLOT/AXIC        -NONE-             -NONE-\r\nC      CAXIF2/GEOM2       PLOTEL             GEOM2\r\nC      CAXIF3/GEOM2       PLOTEL             GEOM2\r\nC      CSLOT3/GEOM2       PLOTEL             GEOM2\r\nC      CSLOT4/GEOM2       PLOTEL             GEOM2\r\nC      CAXIF4/GEOM2       PLOTEL             GEOM2\r\nC      GRIDF/AXIC         GRID               GEOM1\r\nC      GRIDS/AXIC         GRID               GEOM1\r\nC      SLBDY/AXIC         CELAS2             GEOM2\r\nC\r\nC     SOME OF THE ABOVE OUTPUT DATA CARDS ARE A FUNCTION OF MORE THAN\r\nC     ONE INPUT DATA CARDS\r\nC\r\n      LOGICAL         G1EOF    ,G2EOF    ,PLOTEL   ,ANY\r\n      INTEGER         SYSBUF   ,OUTPUT   ,RD       ,RDREW    ,CLS      ,\r\n     1                BUF(24)  ,Z        ,WRT      ,WRTREW   ,CLSREW   ,\r\n     2                CORE     ,SUBR(2)  ,FLAG     ,\r\n     3                CAXIF(6) ,CSLOT(4) ,GRID(2)  ,CELAS2(2),PLOTLS(2),\r\n     4                CARD(10) ,EOR      ,GRIDS(2) ,GRIDF(2) ,SLBDY(2) ,\r\n     5                WORDS    ,BUF1     ,BUF2     ,BUF3     ,BUF4     ,\r\n     6                FILE     ,GEOM1    ,GEOM2    ,SCRT1    ,SCRT2    ,\r\n     7                AXSLOT(2),MSG1(2)  ,MSG2(2)  ,AXIC     ,ENTRYS\r\n      REAL            RZ(4)    ,RBUF(24) ,RR(3)    ,ZZ(3)    ,WW(3)    ,\r\n     1                L1       ,L2       ,L3       ,L1L2     ,KF       ,\r\n     2                LE       ,LC       ,RCARD(10)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD,RDREW ,WRT      ,WRTREW   ,CLSREW   ,CLS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (CONSTS(2),TWOPI)  ,(KSYSTM(1),SYSBUF),\r\n     1                (KSYSTM(2),OUTPUT) ,(Z(1),RZ(1)),\r\n     2                (BUF(1),RBUF(1))   ,(CARD(1),RCARD(1))\r\n      DATA    AXSLOT/ 1115,   11 /\r\n      DATA    SLBDY / 1415,   14 /\r\n      DATA    CAXIF / 2108,   21\r\n     1              , 2208,   22\r\n     2              , 2308,   23 /\r\n      DATA    CELAS2/  701,    7 /\r\n      DATA    CSLOT / 4408,   44\r\n     1              , 4508,   45 /\r\n      DATA    GRID  / 4501,   45 /\r\n      DATA    GRIDS / 1315,   13 /\r\n      DATA    GRIDF / 1215,   12 /\r\n      DATA    PLOTLS/ 5201,   52 /\r\n      DATA    SUBR  / 4HIFP5, 4H    /\r\n      DATA    EOR   , NOEOR / 1, 0  /\r\nC\r\nC     NOTE...  SCRATCH2 IN IFP5 AS IN IFP4 IS EQUIVALENCED TO THE\r\nC     -FORCE- DATA BLOCK.\r\nC\r\n      DATA AXIC, GEOM1, GEOM2, SCRT1, SCRT2 / 215, 201, 208, 301, 213 /\r\n      DATA MSG1/ 4HIFP5, 4HBEGN/, MSG2 /4HIFP5, 4HEND /\r\nC\r\nC     DEFINE CORE AND BUFFER POINTERS\r\nC\r\n      CALL CONMSG (MSG1,2,0)\r\n      CORE = KORSZ(Z)\r\n      BUF1 = CORE - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      BUF4 = BUF3 - SYSBUF - 2\r\n      CORE = BUF4 - 1\r\n      ICRQ = 100  - CORE\r\n      IF (CORE .LT. 100) GO TO 980\r\n      PLOTEL = .FALSE.\r\nC\r\nC     OPEN AXIC DATA BLOCK. (IF NAME IS NOT IN FIST RETURN - NO MESSAGE)\r\nC\r\n      CALL PRELOC (*910,Z(BUF1),AXIC)\r\nC\r\nC     PICK UP THE AXSLOT CARD AND SAVE THE VALUES ON IT.\r\nC     RHOD, BD, N, WD, MD (FATAL ERROR IF NOT PRESSENT)\r\nC\r\n      CALL LOCATE (*10,Z(BUF1),AXSLOT,FLAG)\r\n      CALL READ (*920,*30,AXIC,Z(1),6,EOR,WORDS)\r\n   10 CALL IFP5A (1)\r\n      WRITE  (OUTPUT,20)\r\n   20 FORMAT (' AXSLOT DATA CARD IS NOT PRESENT OR IS INCORRECT.')\r\nC\r\nC     SET VALUES FOR CONTINUING DATA CHECK\r\nC\r\n      RHOD = 0.0\r\n      BD   = 0.0\r\n      N    = 0\r\n      WD   = 1.0\r\n      MD   = 0\r\n      GO TO 40\r\n   30 IF (WORDS .NE. 5) GO TO 10\r\n      RHOD = RZ(1)\r\n      BD   = RZ(2)\r\n      J    = 3\r\n      N    = Z(J)\r\n      WD   = RZ(4)\r\n      MD   = Z(J+2)\r\nC\r\nC     READ GRIDS DATA CARDS INTO CORE FROM AXIC DATA BLOCK.\r\nC\r\n   40 IGRIDS = 1\r\n      NGRIDS = IGRIDS - 1\r\n      CALL LOCATE (*70,Z(BUF1),GRIDS,FLAG)\r\n      CALL READ (*920,*60,AXIC,Z(IGRIDS),CORE,EOR,WORDS)\r\n      CALL IFP5A (2)\r\n      WRITE  (OUTPUT,50)\r\n   50 FORMAT (49H INSUFFICIENT CORE TO HOLD ALL GRIDS CARD IMAGES.)\r\n      WRITE  (OUTPUT,431) CORE\r\n      GO TO 70\r\n   60 NGRIDS = NGRIDS + WORDS\r\nC\r\nC     READ GRIDF DATA CARDS INTO CORE FROM AXIC DATA BLOCK.\r\nC\r\n   70 IGRIDF = NGRIDS + 1\r\n      NGRIDF = IGRIDF - 1\r\n      CALL LOCATE (*100,Z(BUF1),GRIDF,FLAG)\r\n      CALL READ (*920,*90,AXIC,Z(IGRIDF),CORE-NGRIDS,EOR,WORDS)\r\n      CALL IFP5A (3)\r\n      WRITE  (OUTPUT,80)\r\n   80 FORMAT (49H INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES.)\r\n      ICRQ = CORE - NGRIDS\r\n      WRITE (OUTPUT,431) ICRQ\r\n      GO TO 100\r\n   90 NGRIDF = NGRIDF + WORDS\r\nC\r\nC     INSERT DEFAULT SLOT WIDTH INTO ANY GRIDS IMAGE HAVING NONE\r\nC     SPECIFIED BY THE USER.\r\nC\r\n  100 IF (NGRIDS .LT. IGRIDS) GO TO 170\r\n      DO 110 I = IGRIDS,NGRIDS,5\r\n      IF (Z(I+3) .EQ. 1) RZ(I+3) = WD\r\n  110 CONTINUE\r\nC\r\nC     CREATE A GRIDF CARD FOR EACH GRIDS DATA CARD THAT HAS A NON-ZERO\r\nC     IDF\r\nC\r\n      DO 140 I = IGRIDS,NGRIDS,5\r\n      IF (Z(I+4)) 140,140,130\r\n  130 NGRIDF = NGRIDF + 3\r\n      IF (NGRIDF .GT. CORE) GO TO 150\r\n      Z(NGRIDF-2) = Z(I+4)\r\n      Z(NGRIDF-1) = Z(I+1)\r\n      Z(NGRIDF  ) = Z(I+2)\r\n  140 CONTINUE\r\n      GO TO 170\r\n  150 CALL IFP5A (4)\r\n      WRITE  (OUTPUT,160)\r\n  160 FORMAT (' INSUFFICIENT CORE TO HOLD ALL GRIDF CARD IMAGES BEING ',\r\n     1       'CREATED INTERNALLY DUE TO GRIDS CARDS SPECIFYING AN IDF.')\r\n      ICRQ = NGRIDF - CORE\r\n      WRITE (OUTPUT,431) ICRQ\r\n      NGRIDF = NGRIDF - 3\r\nC\r\nC     SORT THE GRIDF CARDS ON THEIR ID.\r\nC\r\n  170 IF (NGRIDF .GT. IGRIDF)\r\n     1    CALL SORT (0,0,3,1,Z(IGRIDF),NGRIDF-IGRIDF+1)\r\nC\r\nC     OPEN GEOM1 AND SCRATCH1, COPY HEADER REC FROM GEOM1 TO SCRATCH1.\r\nC\r\n      CALL IFP4C (GEOM1,SCRT1,Z(BUF2),Z(BUF3),G1EOF)\r\nC\r\nC     COPY ALL DATA FROM GEOM1 TO SCRATCH1 UP TO FIRST GRID CARD.\r\nC\r\n      CALL IFP4B (GEOM1,SCRT1,ANY,Z(NGRIDF+1),CORE-NGRIDF,GRID,G1EOF)\r\n      FILE = GEOM1\r\nC\r\nC     CREATE GRID CARDS FROM GRIDS AND GRIDF CARDS.\r\nC     MERGE THESE INTO EXISTING GRID CARDS CHECKING FOR DUPLICATE ID-S.\r\nC\r\n      IGF  = IGRIDF\r\n      IDGF = 0\r\n      IGS  = IGRIDS\r\n      IDGS = 0\r\n      IF (IGF .LT. NGRIDF) IDGF = Z(IGF)\r\n      IF (IGS .LT. NGRIDS) IDGS = Z(IGS)\r\n      CARD(2) = 0\r\n      CARD(6) =-1\r\n      CARD(7) = 0\r\n      CARD(8) = 0\r\nC\r\nC     READ A GRID CARD INTO BUF.\r\nC\r\n      IF (.NOT.ANY) GO TO 190\r\n  180 CALL READ (*940,*190,GEOM1,BUF,8,NOEOR,WORDS)\r\n      IDG = BUF(1)\r\n      GO TO 200\r\n  190 IDG = 0\r\nC\r\nC     DETERMINE WHETHER GRID, GRIDF, OR GRIDS CARD IS TO OUTPUT NEXT.\r\nC\r\n  200 IF (  IDG    ) 210,210,250\r\n  210 IF (  IDGF   ) 220,220,230\r\n  220 IF (  IDGS   ) 390,390,370\r\n  230 IF (  IDGS   ) 360,360,240\r\n  240 IF (IDGF-IDGS) 360,330,370\r\n  250 IF (  IDGF   ) 260,260,280\r\n  260 IF (  IDGS   ) 350,350,270\r\n  270 IF (IDG -IDGS) 350,330,370\r\n  280 IF (IDG -IDGF) 310,330,290\r\n  290 IF (  IDGS   ) 360,360,300\r\n  300 IF (IDGF-IDGS) 360,330,370\r\n  310 IF (  IDGS   ) 360,360,320\r\n  320 IF (IDG -IDGS) 350,330,370\r\nC\r\nC     ERROR - DUPLICATE ID-S ENCOUNTERED\r\nC\r\n  330 CALL IFP5A (10)\r\n      WRITE  (OUTPUT,340) IDG,IDGS,IDGF\r\n  340 FORMAT (' ONE OF THE FOLLOWING NON-ZERO IDENTIFICATION NUMBERS ',\r\n     1        'APPEARS ON SOME COMBINATION', /,' OF GRID, GRIDS, OR ',\r\n     2        'GRIDF BULK DATA CARDS.',3(6H   ID=,I12))\r\n      IF (IDG .EQ. IDGF) GO TO 350\r\n      IF (IDG .EQ. IDGS) GO TO 350\r\n      GO TO 370\r\nC\r\nC     OUTPUT GRID CARD AND READ ANOTHER\r\nC\r\n  350 CALL WRITE (SCRT1,BUF,8,NOEOR)\r\n      GO TO 180\r\nC\r\nC     OUTPUT A GRID FROM GRIDF CARD.\r\nC\r\n  360 CARD(1)  = IDGF\r\n      RCARD(3) = RZ(IGF+1)\r\n      RCARD(4) = RZ(IGF+2)\r\n      RCARD(5) = 0.0\r\n      IGF = IGF + 3\r\n      IF (IGF .GT. NGRIDF) IDGF = 0\r\n      IF (IDGF .NE. 0) IDGF = Z(IGF)\r\n      GO TO 380\r\nC\r\nC     OUTPUT A GRID FROM GRIDS CARD.\r\nC\r\n  370 CARD(1)  = IDGS\r\n      RCARD(3) = RZ(IGS+1)\r\n      RCARD(4) = RZ(IGS+2)\r\n      RCARD(5) = RZ(IGS+3)\r\n      IGS = IGS + 5\r\n      IF (IGS .GT. NGRIDS) IDGS = 0\r\n      IF (IDGS .NE. 0) IDGS = Z(IGS)\r\n  380 CALL WRITE (SCRT1,CARD,8,NOEOR)\r\n      GO TO 200\r\nC\r\nC     ALL GRID CARDS HAVE BEEN OUPTUT, WRITE EOR.\r\nC\r\n  390 CALL WRITE (SCRT1,0,0,EOR)\r\nC\r\nC     COPY BALANCE OF GEOM1 TO SCRT1, WRAP UP AND COPY BACK.\r\nC\r\n      CALL IFP4B (GEOM1,SCRT1,ANY,Z(IGRIDF),CORE-IGRIDF,-1,G1EOF)\r\nC\r\nC     SLBDY CARD IMAGES ARE NOW PROCESSED AND A BOUNDARY TABLE IS FORMED\r\nC     IN CORE.  EACH ENTRY IN THE TABLE CONTAINS,\r\nC\r\nC              IDS , IDS   , IDS   , RHO, M\r\nC                 I     I-1     I+1\r\nC\r\nC     IDS    = -1 IF IDS  IS THE FIRST ID ON SLBDY CARD.\r\nC        I-1            I\r\nC\r\nC     IDS    = -1 IF IDS  IS THE LAST ID ON SLBDY CARD.\r\nC        I+1            I\r\nC\r\n      ISLBDY = NGRIDS + 1\r\n      NSLBDY = ISLBDY - 1\r\n      CALL LOCATE (*440,Z(BUF1),SLBDY,FLAG)\r\n  400 CALL READ (*920,*440,AXIC,BUF,2,NOEOR,WORDS)\r\n      RHO = RBUF(1)\r\n      M   = BUF(2)\r\n      IDSL1 = -1\r\n      CALL READ (*920,*930,AXIC,IDS,1,NOEOR,WORDS)\r\n  410 CALL READ (*920,*930,AXIC,IDSP1,1,NOEOR,WORDS)\r\nC\r\nC     PLACE 5 WORD ENTRY INTO CORE\r\nC\r\n      NSLBDY = NSLBDY + 5\r\n      IF (NSLBDY .GT. CORE) GO TO 420\r\n      Z(NSLBDY-4) = IDS\r\n      Z(NSLBDY-3) = IDSL1\r\n      Z(NSLBDY-2) = IDSP1\r\n      RZ(NSLBDY-1) = RHO\r\n      Z(NSLBDY   ) = M\r\n      IDSL1 = IDS\r\n      IDS   = IDSP1\r\n      IF (IDSP1+1) 410,400,410\r\nC\r\nC     OUT OF CORE\r\nC\r\n  420 CALL IFP5A (5)\r\n      WRITE  (OUTPUT,430)\r\n  430 FORMAT (' INSUFFICIENT CORE TO CONSTRUCT ENTIRE BOUNDARY TABLE ',\r\n     1        'FOR SLBDY CARDS PRESENT.')\r\n      ICRQ = NSLBDY - CORE\r\n      WRITE  (OUTPUT,431) ICRQ\r\n  431 FORMAT (5X,24HADDITIONAL CORE NEEDED =,I8,7H WORDS.)\r\n      NSLBDY = NSLBDY - 5\r\nC\r\nC     SKIP BALANCE OF SLBDY DATA.\r\nC\r\n      CALL READ (*920,*440,AXIC,BUF,1,EOR,WORDS)\r\nC\r\nC     SORT BOUNDARY TABLE ON IDS . (FIRST WORD OF EACH ENTRY)\r\nC                               I\r\nC\r\n  440 IF (NSLBDY .GT. ISLBDY)\r\n     1    CALL SORT (0,0,5,1,Z(ISLBDY),NSLBDY-ISLBDY+1)\r\nC/////\r\nC     CALL BUG (10H BOUNDRY      ,440,Z(ISLBDY),NSLBDY-ISLBDY+1)\r\nC\r\nC     OPEN GEOM2, OPEN SCRATCH2, COPY HEADER REC FROM GEOM2 TO SCRATCH2.\r\nC\r\n      FILE = GEOM2\r\n      CALL IFP4C (GEOM2,SCRT2,Z(BUF2),Z(BUF3),G2EOF)\r\nC\r\nC     OPEN SCRATCH1, FOR TEMPORARY OUTPUT OF PLOTEL IMAGES CREATED FROM\r\nC     CAXIF2, CAXIF3, CAXIF4, CSLOT3, AND CSLOT4 CARDS.\r\nC\r\n      FILE = SCRT1\r\n      CALL OPEN (*960,SCRT1,Z(BUF4),WRTREW)\r\nC\r\nC     CREATE PLOTEL IMAGES FROM CAXIF2, CAXIF3, AND CAXIF4 AT THIS TIME\r\nC\r\n      FILE = GEOM2\r\n      DO 490 I = 1,3\r\n      IBASE = (I-1)*1000000\r\n      IF (I .EQ. 3) IBASE = 4000000\r\n      K  = 2*I - 1\r\n      K4 = I + 5\r\nC\r\nC     CHECK TRAILER TO SEE IF CAXIF(I+1) EXISTS\r\nC\r\n      CALL IFP4F (CAXIF(K+1),GEOM2,ANY)\r\n      IF (.NOT.ANY) GO TO 490\r\nC\r\nC     COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CAXIF(I+1) IMAGE.\r\nC\r\n      CALL IFP4B(GEOM2,SCRT2,ANY,Z(NSLBDY+1),CORE-NSLBDY,CAXIF(K),G2EOF)\r\n      IF (.NOT.ANY) GO TO 1610\r\nC\r\nC     COPY EACH IMAGE TO SCRATCH2 AND CREATE PLOTELS AT SAME TIME.\r\nC\r\n  460 CALL READ (*940,*480,GEOM2,BUF,K4,NOEOR,WORDS)\r\n      CALL WRITE (SCRT2,BUF,K4,NOEOR)\r\n      NLINES = I + 1\r\n      IF (I .EQ. 1) NLINES = 1\r\n      DO 470 J = 1,NLINES\r\n      CARD(1) = BUF(1) + IBASE + J*1000000\r\n      CARD(2) = BUF(J+1)\r\n      JJ = J + 1\r\n      IF (JJ.GT.NLINES .AND. NLINES.NE.1) JJ = 1\r\n      CARD(3) = BUF(JJ+1)\r\n      CALL WRITE (SCRT1,CARD,3,NOEOR)\r\n  470 CONTINUE\r\n      PLOTEL = .TRUE.\r\n      GO TO 460\r\nC\r\nC     END OF RECORD HIT ON GEOM2.  COMPLETE RECORD ON SCRATCH2\r\nC\r\n  480 CALL WRITE (SCRT2,0,0,EOR)\r\n  490 CONTINUE\r\nC\r\nC     COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CELAS2 CARD\r\nC     IMAGE.\r\nC\r\n      CALL IFP4B (GEOM2,SCRT2,ANY,Z(NSLBDY+1),CORE-NSLBDY,CELAS2,G2EOF)\r\nC\r\nC     COPY ANY CELAS2 DATA CARDS, MAKE SURE ALL ID ARE LESS THAN\r\nC     10000001.\r\nC\r\n      IF (.NOT.ANY) GO TO 540\r\n  510 CALL READ (*940,*540,GEOM2,BUF,8,NOEOR,WORDS)\r\n      IF (BUF(1) .LT. 10000001) GO TO 530\r\n      CALL IFP5A (6)\r\n      WRITE  (OUTPUT,520) BUF(1)\r\n  520 FORMAT (' CELAS2 DATA CARD HAS ID =',I14,\r\n     1  ', WHICH IS GREATER THAN 10000000,', /,' AND 10000000 IS THE ',\r\n     2  'LIMIT FOR CELAS2 ID WITH ACOUSTIC ANALYSIS DATA CARDS PRESENT')\r\n  530 CALL WRITE (SCRT2,BUF,8,NOEOR)\r\n      GO TO 510\r\nC\r\nC     OUTPUT THREE CELAS2 IMAGES FOR EACH ENTRY IN THE BOUNDARY TABLE.\r\nC\r\n  540 IF (NSLBDY .LT. ISLBDY) GO TO 800\r\n      ENTRYS = (NGRIDS-IGRIDS+1)/5\r\nC/////\r\nC     CALL BUG(10H BOUNDRY      ,540,Z(ISLBDY),NSLBDY-ISLBDY+1)\r\nC     CALL BUG(10H GRIDS        ,540,Z(IGRIDS),NGRIDS-IGRIDS+1)\r\n      IDE = 10000000\r\n      DO 790 I = ISLBDY,NSLBDY,5\r\nC\r\nC     FIND  R, Z, W FOR IDS , IDS   , IDS    RESPECTIVELY.\r\nC                          I     I-1     I+1\r\nC\r\n      K   = 0\r\n      IS1 = I\r\n      IS3 = I + 2\r\n      DO 600 J = IS1,IS3\r\n      K = K + 1\r\n      IF (Z(J)  ) 570,580,550\r\n  550 IF (ENTRYS) 580,580,560\r\n  560 KID = Z(J)\r\n      CALL BISLOC (*580,KID,Z(IGRIDS),5,ENTRYS,JPOINT)\r\n      NTEMP = IGRIDS + JPOINT\r\nC\r\nC     NTEMP NOW POINTS TO THE SECOND WORD OF THE GRIDS ENTRY HAVING\r\nC     THE ID SPECIFIED BY Z(J).  (1ST,2ND,OR 3RD ID IN SLBDY ENTRY)\r\nC\r\nC\r\nC     NO CELAS2 CARDS ARE GENERATED IF GRIDS FOR IDS  HAS NO IDF.\r\nC                                                   I\r\nC\r\n      IF (K .EQ. 1) IDF = Z(NTEMP+3)\r\n      IF (K.EQ.1 .AND. IDF.LE.0) GO TO 790\r\n      RR(K) = RZ(NTEMP  )\r\n      ZZ(K) = RZ(NTEMP+1)\r\n      WW(K) = RZ(NTEMP+2)\r\n      GO TO 600\r\nC\r\nC     IDS = -1\r\nC\r\n  570 RR(K) = RR(1)\r\n      ZZ(K) = ZZ(1)\r\n      WW(K) = WW(1)\r\n      GO TO 600\r\nC\r\nC     IDS COULD NOT BE FOUND IN GRIDS ENTRYS.\r\nC\r\n  580 CALL IFP5A (7)\r\n      WRITE  (OUTPUT,590) Z(J)\r\n  590 FORMAT (11H SLBDY ID =,I12,\r\n     1        ' DOES NOT APPEAR ON ANY GRIDS DATA CARD.')\r\n      RR(K) = 0.0\r\n      ZZ(K) = 0.0\r\n      WW(K) = 0.0\r\n  600 CONTINUE\r\nC\r\nC     COMPUTE GEOMETRY AND OTHER DATA.\r\nC\r\n      L1 = SQRT((ZZ(3)-ZZ(1))**2 + (RR(3)-RR(1))**2)\r\n      L2 = SQRT((ZZ(2)-ZZ(1))**2 + (RR(2)-RR(1))**2)\r\n      L3 = SQRT((ZZ(3)-ZZ(2))**2 + (RR(3)-RR(2))**2)/2.0\r\nC\r\n      L1L2 = (L1 + L2)*4.0\r\n      IF (L1L2) 610,610,630\r\nC\r\nC     ERROR, ZERO OR NEGATIVE LENGTH\r\nC\r\n  610 CALL IFP5A (8)\r\n      WRITE  (OUTPUT,620) Z(I),Z(I+1),Z(I+2)\r\n  620 FORMAT (' ONE OR MORE OF THE FOLLOWING ID-S NOT EQUAL TO -1 HAVE',\r\n     1       ' INCORRECT OR NO GEOMETRY DATA',/3(10X,4HID = ,I10))\r\n      GO TO 790\r\nC\r\nC     COMPUTE W-BAR AND R-BAR\r\nC\r\n  630 WBAR = (L1*WW(3) + L2*WW(2))/L1L2 + 0.75*WW(1)\r\n      RBAR = (L1*RR(3) + L2*RR(2))/L1L2 + 0.75*RR(1)\r\nC\r\n      IF (WBAR  ) 640,610,640\r\n  640 IF (RBAR  ) 650,610,650\r\n  650 IF (Z(I+4)) 660,740,660\r\nC\r\nC     COMPUTE BETA,LC\r\nC\r\n  660 BETA = (TWOPI*RBAR)/(FLOAT(Z(I+4))*WBAR)\r\n      IF (BETA - 1.0) 610,610,670\r\n  670 BL1 = BETA - 1.0\r\n      BP1 = BETA + 1.0\r\n      LC  = WBAR/TWOPI\r\n      LC  = LC*((BETA+1.0/BETA)*ALOG(BP1/BL1) +\r\n     1          2.0*ALOG(BP1*BL1/(4.0*BETA)))\r\n      TERM = 0.01*WBAR\r\n      LE  = AMAX1(LC,TERM)\r\n      IF (LE) 680,610,680\r\n  680 IF (RZ(I+3)) 710,690,710\r\n  690 CALL IFP5A (9)\r\n      WRITE  (OUTPUT,700) Z(I)\r\n  700 FORMAT (' RHO AS SPECIFIED ON SLBDY OR AXSLOT CARD IS 0.0 FOR ID',\r\n     1        ' =',I12)\r\n      GO TO 790\r\nC\r\nC     FIND F  = M, IF N=0 OR N=M/2  OTHERWISE F  = M/2\r\nC           I                                  I\r\nC\r\n  710 IF (N.EQ.0 .OR. 2*N.EQ.Z(I+4)) GO TO 720\r\n      FI = FLOAT(Z(I+4))/2.0\r\n      GO TO 730\r\n  720 FI = Z(I+4)\r\n  730 KF = (WBAR*L3*FI)/(RZ(I+3)*LE)\r\n      GO TO 750\r\nC\r\nC     M = 0, THUS K  = 0.0\r\nC                  F\r\nC\r\n  740 KF = 0.0\r\nC\r\nC                           N WBAR\r\nC                      SIN( ------ )\r\nC                           2 RBAR\r\nC     COMPUTE  ALPHA = --------------\r\nC                           N WBAR\r\nC                         ( ------ )\r\nC                           2 RBAR\r\nC\r\n  750 TERM = (FLOAT(N)*WBAR)/(2.0*RBAR)\r\n      IF (TERM) 760,770,760\r\n  760 ALPHA = SIN(TERM)/TERM\r\n      GO TO 780\r\n  770 ALPHA = 1.0\r\nC\r\nC  OUTPUT THE 3 CELAS2 CARDS\r\nC\r\n  780 BUF( 1) = IDE + 1\r\n      RBUF(2) = KF*(1.0 - ALPHA)\r\n      BUF( 3) = Z(I)\r\n      BUF( 4) = 0\r\n      BUF( 5) = 1\r\n      BUF( 6) = 0\r\n      BUF( 7) = 0\r\n      BUF( 8) = 0\r\n      BUF( 9) = IDE + 2\r\n      RBUF(10)= KF*ALPHA\r\n      BUF(11) = Z(I)\r\n      BUF(12) = IDF\r\n      BUF(13) = 1\r\n      BUF(14) = 1\r\n      BUF(15) = 0\r\n      BUF(16) = 0\r\n      BUF(17) = IDE + 3\r\n      RBUF(18)= KF*ALPHA*(ALPHA - 1.0)\r\n      BUF(19) = IDF\r\n      BUF(20) = 0\r\n      BUF(21) = 1\r\n      BUF(22) = 0\r\n      BUF(23) = 0\r\n      BUF(24) = 0\r\n      CALL WRITE (SCRT2,BUF,24,NOEOR)\r\n      IDE = IDE + 3\r\n  790 CONTINUE\r\nC\r\nC     COMPLETE THE CELAS2 RECORD.\r\nC\r\n  800 CALL WRITE (SCRT2,0,0,EOR)\r\nC\r\nC     CREATE PLOTEL IMAGES FROM CSLOT3, AND CSLOT4 AT THIS TIME IF ANY\r\nC\r\n      DO 840 I = 1,2\r\n      IBASE = 3000000*I + 5000000\r\n      K  = 2*I - 1\r\n      K6 = I + 7\r\nC\r\nC     CHECK TRAILER BIT TO SEE IF CSLOT(I+2) EXISTS.\r\nC\r\n      CALL IFP4F (CSLOT(K+1),GEOM2,ANY)\r\n      IF (.NOT.ANY) GO TO 840\r\nC\r\nC     COPY ALL DATA FROM GEOM2 TO SCRATCH2 UP TO FIRST CSLOT(I+2) IMAGE.\r\nC\r\n      CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,CSLOT(K),G2EOF)\r\n      IF (.NOT.ANY) GO TO 1610\r\nC\r\nC     COPY EACH IMAGE TO SCRATCH2 AND CREATE PLOTELS AT SAME TIME.\r\nC\r\n  810 CALL READ (*940,*830,GEOM2,BUF,K6,NOEOR,WORDS)\r\n      CALL WRITE (SCRT2,BUF,K6,NOEOR)\r\n      NLINES = I + 2\r\n      DO 820 J = 1,NLINES\r\n      CARD(1) = BUF(1) + IBASE + J*1000000\r\n      CARD(2) = BUF(J+1)\r\n      JJ = J + 1\r\n      IF (JJ .GT. NLINES) JJ = 1\r\n      CARD(3) = BUF(JJ+1)\r\n      CALL WRITE (SCRT1,CARD,3,NOEOR)\r\n  820 CONTINUE\r\n      PLOTEL = .TRUE.\r\n      GO TO 810\r\nC\r\nC     END OF RECORD ON GEOM2.  COMPLETE RECORD ON SCRATCH2.\r\nC\r\n  830 CALL WRITE (SCRT2,0,0,EOR)\r\n  840 CONTINUE\r\nC\r\nC     APPEND PLOTELS ON SCRATCH1 TO ANY PLOTELS ON GEOM2.\r\nC     MAKE SURE ALL PLOTEL ID-S ARE .LE. 1000000\r\nC     /// ID CHECK NOT IN YET.\r\nC     POSITION TO PLOTELS ON GEOM2 IF ANY ARE ON SCRATCH1\r\nC\r\n      IF (.NOT. PLOTEL) GO TO 900\r\n      CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,PLOTLS,G2EOF)\r\n      IF (.NOT.ANY) GO TO 870\r\nC\r\nC     BLAST COPY PLOTELS FROM GEOM2 TO SCRATCH2\r\nC\r\n  850 CALL READ (*940,*860,GEOM2,Z(IGRIDS),CORE-IGRIDS,NOEOR,WORDS)\r\n      CALL WRITE (SCRT2,Z(IGRIDS),CORE-IGRIDS,NOEOR)\r\n      GO TO 850\r\n  860 CALL WRITE (SCRT2,Z(IGRIDS),WORDS,NOEOR)\r\nC\r\nC     CLOSE AND OPEN SCRATCH1 CONTAINING GENERATED PLOTEL IMAGES.\r\nC\r\n  870 FILE = SCRT1\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      CALL OPEN (*960,SCRT1,Z(BUF4),RDREW)\r\nC\r\nC     BLAST COPY PLOTELS FROM SCRATCH1 TO SCRATCH2.\r\nC\r\n  880 CALL READ (*890,*890,SCRT1,Z(IGRIDS),CORE-IGRIDS,NOEOR,WORDS)\r\n      CALL WRITE (SCRT2,Z(IGRIDS),CORE-IGRIDS,NOEOR)\r\n      GO TO 880\r\n  890 CALL WRITE (SCRT2,Z(IGRIDS),WORDS,EOR)\r\n  900 CALL CLOSE (SCRT1,CLSREW)\r\nC\r\nC     ALL PROCESSING OF GEOM2 IS COMPLETE SO COPY BALANCE OF GEOM2 TO\r\nC     SCRATCH2, WRAP UP, AND COPY BACK.\r\nC\r\n      CALL IFP4B (GEOM2,SCRT2,ANY,Z(IGRIDS),CORE-IGRIDS,-1,G2EOF)\r\nC\r\nC     ALL PROCESSING COMPLETE.\r\nC\r\n  910 CALL CLOSE (AXIC,CLSREW)\r\n      CALL CONMSG (MSG2,2,0)\r\n      RETURN\r\nC\r\nC     END OF FILE ON AXIC.\r\nC\r\n  920 FILE = AXIC\r\n      GO TO 940\r\nC\r\nC     END OF RECORD ON AXIC\r\nC\r\n  930 FILE = AXIC\r\n      IER  = -3\r\n      GO TO 2000\r\nC\r\nC     END OF FILE OR END OF RECORD ON -FILE-.\r\nC\r\n  940 IER = -2\r\n      GO TO 2000\r\nC\r\nC     FILE NOT IN FIST\r\nC\r\n  960 IER = -1\r\n      GO TO 2000\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  980 IER = -8\r\n      FILE = ICRQ\r\n      GO TO 2000\r\nC\r\nC     BISLOC EXIT\r\nC\r\n 1610 IER = -37\r\nC\r\n 2000 CALL MESAGE (IER,FILE,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifp5a.f",
    "content": "      SUBROUTINE IFP5A (NUM)\r\nC\r\nC     IFP5A PRINTS MESSAGE NUMBER LINE ONLY.\r\nC     CALLING SUBROUTINE PRINTS THE MESSAGE.\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         OUTPUT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUTPUT,NOGO\r\nC\r\n      CALL PAGE2 (4)\r\n      I = NUM + 4080\r\n      WRITE  (OUTPUT,10) UFM,I\r\n   10 FORMAT (A23,I15,1H.)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifpdco.f",
    "content": "      LOGICAL FUNCTION IFPDCO (IC)\r\nC\r\nC     DECODE D.O.F. INTO LL SPACE.\r\nC     RETURN WITH IFPDCO=.TRUE. IF ERROR ENCOUNTERED\r\nC     FOR EXAMPLE - GIVEN IC=124, THEN\r\nC                   LL(1)=1,   LL(2)=2,  LL(4)=4, LL(3)=LL(5)=LL(6)=0\r\nC                   GC(1)=124, GC(2)=12, GC(3)=1, GC(4)=GC(5),GC(6)=0\r\nC                   IFPDCO=.FALSE.\r\nC\r\n      INTEGER DG,GC\r\n      COMMON /IFPDTA/ DUM(521),GC(7),LL(6)\r\n      COMMON /SYSTEM/ IDUMMY(55),ITHRML\r\nC\r\n      GC(1) = IC\r\n      DO 110 LC=1,6\r\n  110 LL(LC) = 0\r\n      IF (IC) 120,116,112\r\n  112 DO 114 LC=1,6\r\n      GC(LC+1) = GC(LC)/10\r\n      DG = GC(LC)-10*GC(LC+1)\r\n      IF (ITHRML.NE.1 .AND. DG.GT.6) GO TO 120\r\n      IF (ITHRML.EQ.1 .AND. DG.GT.1) GO TO 120\r\n      IF (DG .EQ. 0) GO TO 118\r\n      IF (LL(DG) .NE. 0) GO TO 120\r\n  114 LL(DG) = DG\r\n      IF (GC(7) .NE. 0) GO TO 120\r\n  116 IFPDCO = .FALSE.\r\n      RETURN\r\n  118 IF (GC(LC) .EQ. 0) GO TO 116\r\n  120 IFPDCO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifpmdc.f",
    "content": "      SUBROUTINE IFPMDC\r\nC\r\nC     IFPMDC MODIFIES BULK DATA CARDS GIVEN THE INFORMATION ON IFIL\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         ABORT,CF,DIAG\r\n      INTEGER         RET,ANDF,ORF,RSHIFT,T1,CNT,DUM,X,EXI,TEST,APPRCH,\r\n     1                ICK(6),IVC(2),INC(2),XI(2),CON(38)\r\n      DIMENSION       RM(1),RM1(1),CD(6)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /IFPX1 / NCDS,T1(2,1)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ IBUF,NOUT,ABORT,DUM(17),APPRCH,DUM1(17),NBITS,X,\r\n     1                NCPW,DUM2(41),JRUN\r\n      COMMON /IFPDTA/ ID(2),KN,D1(52),M(50),MF(50),M1(35),M1F(35),\r\n     1                D2(3),NOPEN,D3(6),KNT,D4(18)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /IFPX0 / LBD,LCC,IBITS(18),IPARPT\r\n      COMMON /ZZZZZZ/ KOR(1)\r\n      COMMON /XSRTCM/ IM1(6),IM2(5),IM3(4),IM4(4),IM5(2),IM6,IM7(8),IM8,\r\n     1                ISFT(4),IM9(7),ISFIM,IM10(3),MIS\r\n      EQUIVALENCE (RM(1),M(1)),(RM1(1),M1(1)),(ICK(1),CD(1)),(K,ICK(1))\r\n      DATA CON/4H    ,4H   0,4H   1,4H   2,4H   3,4H   4,4H   5,4H   6,\r\n     1  4H   7,4H   8,4H   9,4H   A,4H   B,4H   C,4H   D,4H   E,4H   F,\r\n     2  4H   G,4H   H,4H   I,4H   J,4H   K,4H   L,4H   M,4H   N,4H   O,\r\n     3  4H   P,4H   Q,4H   R,4H   S,4H   T,4H   U,4H   V,4H   W,4H   X,\r\n     4  4H   Y,4H   Z,4H    /\r\n      DATA    IFIL, IEOF, ICYCL,   IEFM,   IEND,   DIAG  /\r\n     1        213,    0,     0, -32767, 4HZZZZ, .FALSE. /\r\nC\r\n      IF (IEOF .EQ. -1) GO TO 190\r\n      CNT = 0\r\n      IF (IEOF .EQ.  1) GO TO 10\r\nC\r\nC     FIRST CALL INITIALIZE OPEN FILE ADJUST CORE\r\nC\r\n      IBUF1 = NOPEN + 2*IBUF\r\n      NOPEN = NOPEN - IBUF\r\n      DO 1 I = 1,38\r\n    1 CON(I) = ANDF(CON(I),IM3(4))\r\n      IF (NOPEN .LE. 0) GO TO 1001\r\n      CF   = .FALSE.\r\n      IOD  = 0\r\n      ISC  = 0\r\n      NF   = 0\r\n      IONF = 0\r\n      ILST = 0\r\n      IEOF = 1\r\n      CALL OPEN (*1002,IFIL,KOR(IBUF1+1),0)\r\n    5 CALL READ (*180,*180,IFIL,ICK,6,0,NW)\r\nC\r\nC     CHECK INCOMING  CALL FOR VARY MATCH SORT, UNSORT AND/OR CONT\r\nC\r\n   10 IF (K .EQ. KN) GO TO 20\r\nC\r\nC     NOT CARD WE ARE WORKING ON CHECK ALPH POSITION\r\nC\r\n      IF (CF .OR. IOD.EQ.KN) GO TO 190\r\n      IOD = KN\r\n      ISC = 0\r\n      ASSIGN 15 TO EXI\r\n      XI(1) = T1(1,K)\r\n      XI(2) = T1(2,K)\r\n      GO TO 100\r\n   15 IVC(1) = XI(1)\r\n      IVC(2) = XI(2)\r\n      ASSIGN 16 TO EXI\r\n      XI(1) = T1(1,KN)\r\n      XI(I) = T1(2,KN)\r\n      GO TO 100\r\n   16 INC(1) = XI(1)\r\n      INC(2) = XI(2)\r\n      IF (MACH .EQ. 2) GO TO 18\r\n      INC(1) = RSHIFT(INC(1),1)\r\n      IVC(1) = RSHIFT(IVC(1),1)\r\n   18 IF (INC(1) .LT. IVC(1)) GO TO 190\r\n      IF (INC(1) .GT. IVC(1)) GO TO 1004\r\nC\r\nC     SHIFT IN CASE OF STAR\r\nC\r\n      INC(2) = RSHIFT(INC(2),NBITS)\r\n      IVC(2) = RSHIFT(IVC(2),NBITS)\r\n      IF (INC(2)-IVC(2)) 190,1004,1004\r\nC\r\nC     CARD TYPE FOUND TRY ID\r\nC\r\n   20 IF (ICK(2) .LT. 0) GO TO 70\r\n      IF (CF .AND. NF.NE.0 .AND. ILST.EQ.ICK(2) .AND. CNT.EQ.1) GO TO 31\r\n      IF (CF .AND. NF.NE.0 .AND. ILST.EQ.ICK(2)) GO TO 25\r\n      IF (CF) GO TO 190\r\n      NF   = 0\r\n      IONF = 0\r\n      ASSIGN 5 TO RET\r\n      IF (M(1) .LT. ICK(2)) GO TO 190\r\n      IF (M(1) .GT. ICK(2)) GO TO 1004\r\n      ILST = ICK(2)\r\nC\r\nC     FIND FIELD FORMAT DOES NOT COUNT FOR FIELD  1 OR 10 K1=COUNT\r\nC\r\n   25 DO 27 I = 1,50\r\n      IF (MF(I) .EQ. IEFM) GO TO 30\r\n   27 CONTINUE\r\n      GO TO 1002\r\n   30 NF  = NF + I - 1\r\n      CNT = 1\r\n   31 K1  = ICK(3)\r\nC\r\nC     FIND NUMBER OF FIELDS TO PITCH\r\nC\r\n      I  = K1/10\r\n      J  = (K1-1)/10\r\n      K1 = K1 - I - J - 1\r\nC\r\nC     CHECK TO SEE IF WE HAVE IT NOW\r\nC\r\n      IF (K1 .GT. NF) GO TO 60\r\nC\r\nC     CHECK FORMAT FIELD FOR TYPE\r\nC\r\n      K1 = K1 - IONF\r\n      IF (MF(K1).NE.2 .AND. MF(K1).NE.0) GO TO 1003\r\n      J = 0\r\n      DO 36 I = 1,K1\r\n      J = J + 1\r\n      IF (MF(I) .GT. 2) J = J +1\r\n   36 CONTINUE\r\nC\r\nC     PERFORM VARY\r\nC\r\n      IF (CD(6) .EQ. 0.0) GO TO 38\r\n      RM(J) = RM(J)*(1.0 + CD(4)*CD(5))**CD(6)\r\n      IF (DIAG) WRITE (NOUT,1000) UIM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3),\r\n     1          RM(J)\r\n      GO TO 40\r\n   38 RM(J ) = RM(J) + CD(4)*CD(5)\r\n      MF(K1) = 2\r\n      IF (DIAG) WRITE (NOUT,1000) UIM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3),\r\n     1          RM(J)\r\n      GO TO 40\r\nC\r\nC     SET RESTART BITS\r\nC\r\n   40 IF (APPRCH .GE. 0) GO TO 50\r\nC\r\nC     CHECK FOR PARAM CARDS (82)\r\nC\r\n      IF (KN .NE. 82) GO TO 45\r\n      DO 41 I = IPARPT,NCDS\r\n      IF (M(1).EQ.T1(1,I) .AND. M(2).EQ.T1(2,I)) GO TO 42\r\n   41 CONTINUE\r\n      GO TO 50\r\n   42 J = I - 1\r\n      GO TO 46\r\n   45 J = KN - 1\r\n   46 KARL = 1\r\n      IF (ICYCL .EQ. 0) IBITS(KARL) = ORF(IBITS(KARL),RSHIFT(1,(X-1)))\r\n      ICYCL = (J/31) + KARL\r\n      IPOS  = MOD(J,31) + 2\r\n      IBITS(ICYCL) = ORF(IBITS(ICYCL),ITWO(IPOS))\r\n   50 GO TO RET, (5,90)\r\n   60 IF (M1(1).NE.0 .AND. M1(2).NE.0) GO TO 1004\r\n      GO TO 190\r\nC\r\nC     SORTED TYPE OF IDS NEED TO COUNT PARENTS IN THE GROUP\r\nC\r\n   70 CONTINUE\r\n      IF (CF .AND. NF.NE.0 .AND. ISC.EQ.ICK(2) .AND. CNT.EQ.1) GO TO 31\r\n      IF (CF .AND. NF.NE.0 .AND. ISC.EQ.ICK(2)) GO TO 25\r\n      IF (CF) GO TO 190\r\n      IF (CNT .EQ. 1) GO TO 80\r\n      CNT = 1\r\n      NF  = 0\r\n      IONF= 0\r\n      ASSIGN 90 TO RET\r\n      ISC = ISC - 1\r\n   80 CONTINUE\r\n      IF (ISC .GT. ICK(2)) GO TO 190\r\n      IF (ISC-ICK(2)) 1004,25,25\r\nC\r\nC     FOUND ID FIND FIELD\r\nC\r\n   90 CALL READ (*180,*180,IFIL,ICK,6,0,NW)\r\n      IF (K.EQ.KN .AND. NF.NE.0 .AND. ISC.EQ.ICK(2)) GO TO 31\r\n      GO TO 10\r\nC\r\nC     CHANGE EXTERNAL BCD TO INTERNAL BCD FOR SORT TEST\r\nC\r\n  100 DO 150 I = 1,2\r\n      ITM  = XI(I)\r\n      DO 130 J = 1,4\r\n      JI   = 5 - J\r\n      ISTS = ISFT(JI)\r\n      TEST = RSHIFT(ANDF(ITM,IM3(J)),ISTS)\r\n      DO 110 L = 1,37\r\n      IF (TEST .EQ. CON(L)) GO TO 120\r\n  110 CONTINUE\r\n      L = 1\r\n      GO TO 140\r\n  120 ITM = ORF(ANDF(ITM,IM4(J)),LSHIFT(L,ISTS +ISFIM))\r\n      IF (L .EQ. 1) GO TO 140\r\n  130 CONTINUE\r\n  140 XI(I) = ITM\r\n      IF (L .EQ. 1) GO TO 160\r\n  150 CONTINUE\r\n  160 GO TO EXI, (15,16)\r\nC\r\nC     IFP IS DONE BUT VARY IS NOT   MESSAGES FOR ANY LEFT\r\nC\r\n  170 WRITE (NOUT,1014) UFM,T1(1,K),T1(2,K),ICK(2),ICK(3)\r\n      CALL READ (*180,*180,IFIL,ICK,6,0,NW)\r\n      GO TO 170\r\nC\r\nC     END OF IFIL\r\nC\r\n  180 CALL CLOSE (IFIL,1)\r\n      IEOF  = -1\r\n      NCORE = NCORE + IBUF\r\nC\r\n  190 CF = .FALSE.\r\n      IONF = NF\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) CF = .TRUE.\r\n      IF (M1(1) .NE. IEND) GO TO 200\r\nC\r\nC     LAST TIME ENTERED MAKE SURE FILE IS USED UP\r\nC\r\n      IF (IEOF .GE. 0) GO TO 170\r\n  200 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1000 FORMAT (A29,' 3310, CARD TYPE ',2A4,' SORTED',I9,' ID',I9,\r\n     1       ' FIELD',I9,' CHANGED TO ',E16.8)\r\n 1001 WRITE  (NOUT,1011) UFM\r\n 1011 FORMAT (A23,' 303, NO OPEN CORE IFP')\r\n      GO TO  1111\r\n 1002 WRITE  (NOUT,1012) SFM\r\n 1012 FORMAT (A25,' 3037, ERROR IN IFPMDC')\r\n      GO TO  1111\r\n 1003 WRITE  (NOUT,1013) UFM,T1(1,K),T1(2,K),KNT,ICK(2),ICK(3)\r\n 1013 FORMAT (A23,' 0301, FIELD TO VARY IS NOT A REAL NUMBER. CARD ',\r\n     1        2A4,'SORTED',I9,' ID',I9,' FIELD',I9)\r\n      ABORT = .TRUE.\r\n      GO TO RET, (5,90)\r\n 1004 WRITE  (NOUT,1014) UFM,T1(1,K),T1(2,K),ICK(2),ICK(3)\r\n 1014 FORMAT (A23,' 520, CARD TO VARY NOT FOUND. CARD ',2A4,' ID',I9,\r\n     1       ' FIELD',I9)\r\n      GO TO RET, (5,90)\r\n 1111 ABORT = .TRUE.\r\n      NOPEN = NOPEN + IBUF\r\n      IEOF  = -1\r\n      GO TO 190\r\n      END\r\n"
  },
  {
    "path": "mis/ifppar.f",
    "content": "      SUBROUTINE IFPPAR\r\nC\r\nC     SUBROUTINE TO TEST FOR PARAM CARD PARAMETERS REQUIRED BY VARIOUS\r\nC     RIGID FORMATS.\r\nC\r\n      LOGICAL         ABORT,HFREQ,LFREQ,LMODE,NODJE,P1,P2,P3,PTOT,\r\n     1                CTYPE,KINDX,NSEGS,LTEST,QUEUE\r\n      INTEGER         RF,APP,HFRE,CTYP,QUE,APPR(4)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ N1,NOUT,ABORT,N2(17),IAPP,N3(3),RF\r\n      COMMON /IFPDTA/ IDTA(509),NPARAM\r\n      COMMON /ZZZZZZ/ IBUFF(1)\r\n      DATA    APPR  / 4HDMAP,   4HDISP, 4HHEAT,   4HAERO        /\r\n      DATA    HFRE  / 4HHFRE /, LFRE /  4HLFRE /, LMOD  /4HLMOD /\r\n      DATA    NODJ  / 4HNODJ /, IP1  /  4HP1   /, IP2   /4HP2   /\r\n      DATA    IP3   / 4HP3   /, QUE  /  4HQ                     /\r\n      DATA    CTYP  / 4HCTYP /, KIND /  4HKIND /, NSEG  /4HNSEG /\r\n      DATA    HFREQ / .FALSE./, LFREQ/  .FALSE./, LMODE /.FALSE./\r\n      DATA    NODJE / .FALSE./, CTYPE/  .FALSE./, KINDX /.FALSE./\r\n      DATA    NSEGS / .FALSE./, P1   /  .FALSE./, P    2/.FALSE./\r\n      DATA    QUEUE / .FALSE./, P3   /  .FALSE.                 /\r\nC\r\n      APP = IABS(IAPP)\r\nC\r\nC     NO PARAMS REQD FOR HEAT APPROACH,\r\nC     DMAPS DISP 1 THRU 9, DISP 13, AND DISP 16 THRU 19, AND\r\nC     AERO RF 9\r\nC\r\n      IF (APP.EQ.1 .OR.  APP.EQ.3) GO TO 9999\r\n      IF (APP.EQ.2 .AND. (RF.LE.9 .OR. RF.EQ.13 .OR. RF.GE.16))\r\n     1    GO TO 9999\r\n      IF (APP.EQ.4 .AND.  RF.EQ.9) GO TO 9999\r\nC\r\nC     FATAL ERROR IF NO PARAMS ENTERED AS REQUIRED\r\nC\r\n      IF (NPARAM .EQ. 0) GO TO 9800\r\nC\r\nC     LOOP TO TEST PARAMS IN PVT FOR PRESENCE OF REQUIRED ONES.\r\nC\r\n      IPM = 1\r\n  500 IPN = 2*N1 + IPM\r\nC\r\n      IF (RF .GE. 14) GO TO 1000\r\n      IF (IBUFF(IPN) .EQ. HFRE) HFREQ = .TRUE.\r\n      IF (IBUFF(IPN) .EQ. LFRE) LFREQ = .TRUE.\r\n      IF (IBUFF(IPN).EQ.LMOD .AND. IBUFF(IPN+2).NE.0) LMODE = .TRUE.\r\nC\r\n      IF (APP .NE. 4) GO TO 2000\r\n      IF (IBUFF(IPN).EQ.NODJ .AND. IBUFF(IPN+2).NE.0) NODJE = .TRUE.\r\n      IF (IBUFF(IPN) .EQ. IP1) P1 = .TRUE.\r\n      IF (IBUFF(IPN) .EQ. IP2) P2 = .TRUE.\r\n      IF (IBUFF(IPN) .EQ. IP3) P3 = .TRUE.\r\n      IF (IBUFF(IPN).EQ.QUE  .AND. IBUFF(IPN+2).NE.0) QUEUE = .TRUE.\r\n      GO TO 2000\r\nC\r\n 1000 IF (IBUFF(IPN).EQ.CTYP .AND. IBUFF(IPN+2).NE.0) CTYPE = .TRUE.\r\n      IF (IBUFF(IPN).EQ.NSEG .AND. IBUFF(IPN+2).NE.0) NSEGS = .TRUE.\r\n      IF (IBUFF(IPN).EQ.KIND .AND. IBUFF(IPN+2).NE.0) KINDX = .TRUE.\r\nC\r\n 2000 IPM = IPM + 4\r\n      IF (IBUFF(IPN+2).GE.3 .AND. IBUFF(IPN+2).LE.5) IPM = IPM + 1\r\n      IF (IBUFF(IPN+2) .GE. 6) IPM = IPM + 3\r\n      IF (IPM .LT. NPARAM) GO TO 500\r\nC\r\nC     TEST TO VERIFY THAT ALL REQUIRED PARAMS ARE PRESENT\r\nC\r\n      IF (RF.EQ.14 .OR. RF.EQ.15) GO TO 4000\r\n      IF (LMODE .AND.  .NOT.(HFREQ.OR.LFREQ)) GO TO 3000\r\n      IF (HFREQ .AND. LFREQ .AND. .NOT.LMODE) GO TO 3000\r\nC\r\nC     SOMETING AMISS - - IS AN LMODES, HFREQ, OR LFREQ MISSING\r\nC\r\n      IF (.NOT.(LMODE .OR. (HFREQ .AND. LFREQ))) GO TO 9810\r\nC\r\nC     IS LMODES PRESENT WITH HFREQ AND/OR LFREQ\r\nC\r\n      IF (LMODE .AND. (HFREQ .OR. LFREQ)) GO TO 9820\r\nC\r\n 3000 IF (APP .NE. 4) GO TO 9999\r\nC\r\nC     TEST FOR CORRECT NODJE SETUP FOR AERO RF 10 AND 11\r\nC\r\n      PTOT = P1 .AND. P2 .AND. P3\r\n      IF (NODJE .AND. PTOT) GO TO 3500\r\n      IF (NODJE .AND. .NOT.PTOT) GO TO 9830\r\n      IF ((P1.OR.P2.OR.P3) .AND. .NOT.NODJE) GO TO 9840\r\nC\r\nC     TEST FOR Q REQUIRED BY AERO RF 11\r\nC\r\n 3500 IF (RF .EQ. 10) GO TO 9999\r\n      IF (QUEUE) GO TO 9999\r\n      GO TO 9870\r\nC\r\nC     TEST FOR CTYPE, NSEGS, OR KINDEX REQD BY DISP RF 14 AND 15.\r\nC\r\n 4000 LTEST = CTYPE .AND. NSEGS\r\n      IF (.NOT.LTEST) GO TO 9850\r\n 4100 IF (RF .EQ. 14) GO TO 9999\r\nC\r\n      IF (KINDX) GO TO 9999\r\n      GO TO 9860\r\nC\r\nC     SET UP ERROR MESSAGE\r\nC\r\n 9800 ASSIGN 9900 TO IERR\r\n      MSGNO = 340\r\n      GO TO  9890\r\n 9810 ASSIGN 9910 TO IERR\r\n      MSGNO = 341\r\n      GO TO  9890\r\n 9820 ASSIGN 9920 TO IERR\r\n      MSGNO = 342\r\n      GO TO  9895\r\n 9830 ASSIGN 9930 TO IERR\r\n      MSGNO = 343\r\n      GO TO  9890\r\n 9840 ASSIGN 9940 TO IERR\r\n      MSGNO = 344\r\n      GO TO  9895\r\n 9850 ASSIGN 9950 TO IERR\r\n      MSGNO = 345\r\n      GO TO  9890\r\n 9860 ASSIGN 9960 TO IERR\r\n      MSGNO = 346\r\n      GO TO  9890\r\n 9870 ASSIGN 9970 TO IERR\r\n      MSGNO = 347\r\nC\r\n 9890 CALL PAGE2 (3)\r\n      WRITE  (NOUT,9891) UFM,MSGNO\r\n 9891 FORMAT (A23,I4)\r\n      ABORT = .TRUE.\r\n      GO TO 9898\r\n 9895 CALL PAGE2 (3)\r\n      WRITE  (NOUT,9896) UWM,MSGNO\r\n 9896 FORMAT (A25,I4)\r\n 9898 GO TO IERR, (9900,9910,9920,9930,9940,9950,9960,9970)\r\nC\r\n 9900 WRITE  (NOUT,9905) APPR(APP),RF\r\n 9905 FORMAT (' PARAM CARDS REQUIRED BY ',A4,' RIGID FORMAT',I3,\r\n     1        ' NOT FOUND IN BULK DATA.')\r\n      GO TO 9999\r\nC\r\n 9910 WRITE  (NOUT,9915) APPR(APP),RF\r\n 9915 FORMAT (' LMODES OR HFREQ/LFREQ PARAM REQUIRED BY ',A4,\r\n     1        ' RIGID FORMAT',I3,' NOT IN BULK DATA OR TURNED OFF.')\r\n      GO TO 3000\r\nC\r\n 9920 WRITE  (NOUT,9925)\r\n 9925 FORMAT (' LMODES PARAM FOUND IN BULK DATA WITH HFREQ OR LFREQ.',\r\n     X        '  LMODES TAKES PRECEDENCE.')\r\n      GO TO 3000\r\nC\r\n 9930 WRITE  (NOUT,9935) RF\r\n 9935 FORMAT (' NODJE PARAM SPECIFIED FOR AERO RIGID FORMAT',I3,\r\n     1        ' BUT P1, P2, OR P3 OMITTED.')\r\n      GO TO 3500\r\nC\r\n 9940 WRITE  (NOUT,9945)\r\n 9945 FORMAT (' P1, P2, OR P3 PARAM FOUND IN BULK DATA BUT NODJE ',\r\n     1        'MISSING OR TURNED OFF.')\r\n      GO TO 3500\r\nC\r\n 9950 WRITE  (NOUT,9955) RF\r\n 9955 FORMAT (' CTYPE OR NSEGS PARAM REQUIRED BY DISPLACEMENT RIGID ',\r\n     1        'FORMAT',I3,' MISSING OR INCORRECT.')\r\n      GO TO 4100\r\nC\r\n 9960 WRITE  (NOUT,9965)\r\n 9965 FORMAT (' KINDEX PARAM REQUIRED BY DISPLACEMENT RIGID FORMAT 15',\r\n     1        ' MISSING OR TURNED OFF.')\r\n      GO TO 9999\r\nC\r\n 9970 WRITE  (NOUT,9975)\r\n 9975 FORMAT (' DYNAMIC PRESSURE (Q) PARAM REQUIRED BY AERO RIGID FORM',\r\n     1        'AT 11 NOT IN BULK DATA.')\r\nC\r\n 9999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifppvc.f",
    "content": "      SUBROUTINE IFPPVC (*,IPVS,JR)\r\nC\r\nC     IFPPVC TAKES 1PARM AND 1VARY CARDS AND MAKES A SCRATCH FILE\r\nC     TO USE IN MODIFYING OTHER BULK DATA CARDS\r\nC\r\n      LOGICAL         ABORT\r\n      INTEGER         DUM,T1,BLANK,JR(1),NAME(2)\r\n      DIMENSION       Z(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,NOUT,ABORT,DUM(79),JRUN\r\n      COMMON /IFPDTA/ ID(2),KN,D1(52),M(50),MF(50),M1(35),M1F(35),\r\n     1                D2(3),NOPEN,D3(6),KNT,D4(18)\r\n      COMMON /ZZZZZZ/ KOR(1)\r\n      COMMON /IFPX1 / NCDS,T1(2,1)\r\n      EQUIVALENCE     (KOR(1), Z(1))\r\n      DATA    NCDSMX, IFIL,  IPLUS, ISTAR, NPTP,  ITHR,  BLANK   /\r\n     1        343,    213,   1H+,   1H*,   4HNPTP,4HTHRU,4H      /\r\n      DATA    IVAR,   IPAR,  IVAR1, IPAR1, NAME                  /\r\n     1        4HAVAR, 4HAPAR,4H1VAR,4H1PAR,4HIFPP,4HVC           /\r\nC\r\n      ISTOP = 0\r\n      ICS   = 0\r\n      LTJ   = 0\r\n      ISORT = 0\r\n      IPP   = 2*IBUF + 2\r\n      LN    = IPP\r\n      II    = IPP - 1\r\n      LST   = 0\r\n      NV    = 0\r\n      IDON  = 0\r\n      IF0   = 0\r\n      IOLDN = 0\r\n      ISV   = 0\r\n      IPLUS = KHRFN1(BLANK,4,IPLUS,1)\r\n      ISTAR = KHRFN1(BLANK,4,ISTAR,1)\r\n      CALL SSWTCH (42,L42)\r\n      GO TO 20\r\nC\r\nC     READ NEW CARD\r\nC\r\n   10 CALL READ (*410,*410,NPTP,JR,20,1,KDUM)\r\n      KNT = KNT + 1\r\n   20 IT  = KHRFN1(BLANK,4,JR(1),1)\r\n      IF (IT.EQ.IPLUS .OR. IT.EQ.ISTAR) GO TO 420\r\n      IF (JR(1) .EQ. IVAR1) GO TO 90\r\n      IF (JR(1) .NE. IPAR1) GO TO 300\r\nC\r\nC     1PARM CARDS\r\nC\r\n      JR(1) = IPAR\r\n      IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR)\r\n      IF (L42 .NE. 0) CALL RCARD  (M1,M1F,NW,JR)\r\n      IF (NW .NE. 10) GO TO 430\r\nC\r\nC     CHECK FORMAT\r\nC\r\n      IF (M1F(2).NE.1 .OR. M1(3).LT.0) GO TO 430\r\n      IF (M1(3) .LT. JRUN) GO TO 10\r\n      IF (M1F(3).NE.0 .AND. M1F(3).NE.1) GO TO 430\r\n      IF (M1F(5).NE.0 .AND. M1F(5).NE.1) GO TO 430\r\n      IF (M1F(7).NE.0 .AND. M1F(7).NE.1) GO TO 430\r\n      IF (M1( 4).LT.0  .OR. M1( 6).LT.0) GO TO 430\r\n      IF (M1( 8).LT.0  .OR. M1F(9).NE.0) GO TO 430\r\n      IF (M1F(4).NE.2 .AND. M1F(4).NE.0) GO TO 430\r\n      IF (M1F(6).NE.2 .AND. M1F(6).NE.0) GO TO 430\r\n      IF (M1F(8).NE.2 .AND. M1F(8).NE.0) GO TO 430\r\n      IF (JRUN .EQ. 0) GO TO 10\r\n      IF (M1(3).NE.JRUN .AND. ISORT.EQ.0) GO TO 80\r\n      IF (M1(3) .NE. JRUN) GO TO 40\r\nC\r\nC     FORM LIST OF K  SK PAIRS FOR THIS J\r\nC\r\n      ISORT = 1\r\n   25 IF (IPP .GE. NOPEN) GO TO 440\r\n      DO 30 I = 3,7,2\r\n      IF (M1F(I).EQ.0 .AND. M1F(I+1).NE.0) GO TO 430\r\n      IF (M1F(I) .EQ. 0) GO TO 30\r\n      KOR(IPP  ) = M1(I+1)\r\n      KOR(IPP+1) = M1(I+2)\r\n      IPP = IPP + 2\r\n   30 CONTINUE\r\n      GO TO 10\r\nC\r\nC     SORT LIST ERROR IF DUPLICATE\r\nC\r\n   40 I  = LN\r\n      IT = 0\r\n      N  = IPP - I\r\n      IF (N .LT. 3) GO TO 50\r\n      CALL SORT (0,0,2,-1,KOR(I),N)\r\n      IT = KOR(I)\r\n      J  = N - 1\r\n      DO 45 K = 2,J,2\r\n      IF (KOR(I+K) .NE. IT) GO TO 42\r\n      ABORT = .TRUE.\r\n      WRITE (NOUT,450) UFM,IT\r\n   42 IT = KOR(I+K)\r\n   45 CONTINUE\r\n   50 ISORT = 0\r\n      IF (ICS .NE. 0) GO TO 55\r\n      LST= N\r\n      LN = IPP\r\n   55 IF (JR(1) .EQ. IVAR1) GO TO 100\r\n      IF (IDON .EQ. 1) GO TO 310\r\nC\r\nC     CHECK FOR DUPLICATE K ON 1PARM ON JRUN = 1\r\nC\r\n   80 IF (JRUN .NE. 1) GO TO 10\r\n      IF (ICS  .NE. 0) GO TO 82\r\n      ICS = 1\r\n      LTJ = M1(3)\r\n   82 IF (LTJ .EQ. M1(3)) GO TO 25\r\n      LTJ = M1(3)\r\n      GO TO 40\r\nC\r\nC     1VARY CARDS START BUILDING SCRATCH FILE\r\nC\r\n   90 IF (ISORT.EQ.1 .OR. LTJ.NE.0) GO TO 40\r\nC\r\nC     IF LST = 0 USE ALL DEFAULT VALUES FOR SK\r\nC\r\n  100 LTJ = 0\r\n      NV  = NV + 1\r\n      JR(1) = IVAR\r\n      IF (L42 .EQ. 0) CALL RCARD2 (M1,M1F,NW,JR)\r\n      IF (L42 .NE. 0) CALL RCARD  (M1,M1F,NW,JR)\r\n      IF (NW.LT.10 .OR. NW.GT.12) GO TO 430\r\nC\r\nC     CHECK FORMAT\r\nC\r\n      IF (M1F(2) .NE. 3) GO TO 430\r\n      IF (M1F(3).NE.1  .OR. M1F(4).NE.1) GO TO 430\r\n      IF (M1( 5).LE.0  .OR. M1( 6).LE.0) GO TO 430\r\n      IF (M1F(5).NE.0 .AND. M1F(5).NE.2) GO TO 430\r\n      IF (M1F(6).NE.0 .AND. M1F(6).NE.2) GO TO 430\r\n      IF (M1F(7).NE.0 .AND. M1F(7).NE.1) GO TO 430\r\n      IF (M1F(8).NE.0 .AND. M1F(8).NE.1 .AND. M1F(8).NE.3) GO TO 430\r\n      IF (M1F(9).NE.0 .AND. M1F(9).NE.1) GO TO 430\r\n      IF (M1F(7).EQ.0 .AND. M1F(8).EQ.0 .AND. M1F(9).EQ.0) GO TO 430\r\n      IF (M1F(7).EQ.1 .AND. M1( 9).EQ.0) GO TO 430\r\n      IF (M1F(8).EQ.1 .AND. M1(10).EQ.0) GO TO 430\r\n      I = 0\r\n      IF (M1F(8) .EQ. 3) I = 1\r\n      IF (M1F(9).EQ.1 .AND. M1(I+11).EQ. 0) GO TO 430\r\n      IF (M1F(8).EQ.3 .AND. M1(10).NE.ITHR) GO TO 430\r\n      IF (M1F(8).EQ.3 .AND. M1(9).GT.0 .AND. M1(12).LT.0) GO TO 430\r\n      IF (M1F(8).EQ.3 .AND. M1(9).LT.0 .AND. M1(12).GT.0) GO TO 430\r\n      IF (JRUN .EQ. 0) GO TO 10\r\n      DO 105 KN = 1,NCDSMX\r\n      IF (M1(3).EQ.T1(1,KN) .AND. M1(4).EQ.T1(2,KN)) GO TO 110\r\n  105 CONTINUE\r\n      GO TO 460\r\n  110 IF (KN.NE.IOLDN .AND. IOLDN.NE.0) GO TO 140\r\n  112 IOLDN = KN\r\nC\r\nC     START A LIST WITH THIS NUMONIC\r\nC\r\n      IFIELD = M1(5)\r\n      K      = M1(6)\r\n      IA     = M1(7)\r\n      IB     = M1(8)\r\n      IF (M1F(8) .EQ. 3) GO TO 120\r\n      IF (LST+ISV+18 .GT. NOPEN) GO TO 440\r\n      DO 115 I = 7,9\r\n      IF (M1F(I) .EQ. 0) GO TO 115\r\n      KOR(LN+ISV  ) = KN\r\n      KOR(LN+ISV+1) = M1(I+2)\r\n      KOR(LN+ISV+2) = IFIELD\r\n      KOR(LN+ISV+3) = K\r\n      KOR(LN+ISV+4) = IA\r\n      KOR(LN+ISV+5) = IB\r\n      ISV = ISV + 6\r\n  115 CONTINUE\r\n      GO TO 10\r\nC\r\nC     THRU OPTION\r\nC\r\n  120 N1 = M1(9)\r\n      N2 = M1(12)\r\n      IF (N2 .GE. N1) GO TO 125\r\n      IT = N1\r\n      N1 = N2\r\n      N2 = IT\r\n  125 IF (LST+ISV+(IABS(N2-N1)*6) .GT. NOPEN) GO TO 440\r\n  130 KOR(LN+ISV  ) = KN\r\n      KOR(LN+ISV+1) = N1\r\n      KOR(LN+ISV+2) = IFIELD\r\n      KOR(LN+ISV+3) = K\r\n      KOR(LN+ISV+4) = IA\r\n      KOR(LN+ISV+5) = IB\r\n      ISV = ISV + 6\r\n      N1  = N1  + 1\r\n      IF (N1 .LE. N2) GO TO 130\r\n      GO TO 10\r\nC\r\nC     THIS TYPE OF CARD IS DONE SORT LIST AND MAKE FILE\r\nC     SORT ON ID THEN FIELD THEN K\r\nC\r\n  140 IF (ISV .EQ. 6) GO TO 150\r\n      CALL SORT (0,0,6,-2,KOR(LN),ISV)\r\n      CALL SORT (0,0,6,-3,KOR(LN),ISV)\r\n      CALL SORT (0,0,6,-4,KOR(LN),ISV)\r\nC\r\nC     FIX UP CORE FOR THIS BUFFER AND OPEN FILE\r\nC\r\n  150 IF (IF0 .NE. 0) GO TO 160\r\n      IBUF1 = NOPEN + 2*IBUF\r\n      NOPEN = NOPEN - IBUF\r\n      IF0   = 1\r\n      IF (LST+ISV .GT. NOPEN) GO TO 440\r\n      CALL OPEN (*470,IFIL,KOR(IBUF1+1),1)\r\nC\r\nC     TEST FOR DUPLICATE K FOR SAME FIELD AND ID PLUS SORT AND REG\r\nC\r\n  160 IF (ISV .EQ. 6) GO TO 220\r\n      IT  = KOR(LN+1)\r\n      ICS = KOR(LN+2)\r\n      IK  = KOR(LN+3)\r\n      DO 210 I = 7,ISV,6\r\n      IF (IT.EQ.KOR(LN+I).AND.ICS.EQ.KOR(LN+I+1).AND.IK.EQ.KOR(LN+I+2))\r\n     1   GO TO 170\r\n      GO TO 180\r\n  170 ABORT = .TRUE.\r\n      WRITE (NOUT,480) UFM,IT,ICS,IK\r\n  180 IF (IT.LT.0 .AND. KOR(LN+I).GT.0) GO TO 220\r\n      IF (IT.GT.0 .AND. KOR(LN+I).LT.0) GO TO 200\r\n  190 IT  = KOR(LN+I  )\r\n      ICS = KOR(LN+I+1)\r\n      IK  = KOR(LN+I+2)\r\n      GO TO 210\r\n  200 J = KOR(LN)\r\n      WRITE (NOUT,485) UFM,T1(1,J),T1(2,J)\r\n      GO TO 190\r\n  210 CONTINUE\r\nC\r\nC     PUT OUT CARDS SORT TYPE OF IDS (NEG) DO IN REVERSE\r\nC     FIND VALUES OF SK FOR EACH K\r\nC\r\n  220 N = 6\r\n      I = LN\r\n      IF (KOR(LN+1) .GT. 0) GO TO 230\r\n      N = -6\r\n      I = LN + ISV - 6\r\n  230 A = 0.0\r\n      IF (KOR(I+3).EQ.JRUN .AND. LST.EQ.0) A = 1.0\r\n      IF (LST .EQ. 0) GO TO 250\r\n      DO 240 K = 1,LST,2\r\n      IF (KOR(I+3) .NE. KOR(II+K)) GO TO 240\r\n      A = Z(II+K+1)\r\n      GO TO 250\r\n  240 CONTINUE\r\n  250 Z(I+3) = A\r\n      IT = KOR(I+1)\r\n      ICS= KOR(I+2)\r\n      IF (IT.GT.0 .AND .ICS.EQ.2) GO TO 260\r\n      J = ICS/10\r\n      J = J*10\r\n      IF (J .NE. ICS) GO TO 270\r\n  260 ABORT = .TRUE.\r\n      J = KOR(LN)\r\n      WRITE (NOUT,500) UFM,T1(1,J),T1(2,J),IT,ICS\r\n      GO TO 280\r\n  270 J = (ICS-1)/ 10\r\n      J = J*10\r\n      IF (J .EQ. ICS-1) GO TO 260\r\n  280 CONTINUE\r\n      IF (ABORT .OR. A.EQ.0.0) GO TO 290\r\n      CALL WRITE (IFIL,KOR(I),6,0)\r\n  290 I = I + N\r\n      ISV = ISV - IABS(N)\r\n      IF (ISV .GT. 0) GO TO 230\r\n      ISV = 0\r\n      IF (IDON .EQ. 1) GO TO 310\r\n      GO TO 112\r\nC\r\nC     CARDS ARE DONE\r\nC\r\n  300 IDON = 1\r\n      IF (JRUN .EQ. 0) GO TO 320\r\n      IF (NV.EQ.0 .AND. JRUN.GT.0) GO TO 490\r\n      IF (NV .EQ. 0) GO TO 310\r\n      GO TO 140\r\n  310 IF (JRUN .EQ. 0) GO TO 320\r\n      CALL WRITE (IFIL,0,0,1)\r\n      CALL CLOSE (IFIL,1)\r\n      IPVS = 1\r\n  320 IF (ISTOP .EQ. 0) RETURN\r\n      IF (ISTOP .EQ. 1) RETURN 1\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 ABORT = .TRUE.\r\n      IF (IDON-1) 10,310,10\r\n  410 WRITE  (NOUT,415) UFM\r\n  415 FORMAT (A23,', NO BULK DATA CARDS TO MODIFY.  ERROR IN IFPPVC')\r\n      ISTOP = 1\r\n      GO TO  310\r\n  420 WRITE  (NOUT,425) UFM,JR\r\n  425 FORMAT (A23,' 312, NO CONTINUATION CARD ALLOWED ON 1PARM OR ',\r\n     1       '1VARY CARDS', /5X,'CARD- ',20A4)\r\n      GO TO  400\r\n  430 I = KNT +1\r\n      WRITE  (NOUT,435) UFM,M1(1),M1(2),I,JR\r\n  435 FORMAT (A23,' 317, ILLEGAL DATA OR FORMAT ON CARD ',2A4,' SORTED',\r\n     1        I8 ,/5X,'CARD- ' ,20A4)\r\n      GO TO  400\r\n  440 WRITE  (NOUT,445) UFM\r\n  445 FORMAT (A23,' 3008, NOT ENOUGH CORE FOR 1PARM AND 1VARY CARDS')\r\n      GO TO  400\r\n  450 FORMAT (A23,' 314, DUPLICATE OR NO K  ON 1PARM CARDS FOR SOME J ',\r\n     1       'K =',I9)\r\n  460 WRITE  (NOUT,465) UFM,M1(3),M1(4)\r\n  465 FORMAT (A23,'316, CARD TYPE ',2A4,' NOT LEGAL ON 1VARY')\r\n      GO TO  400\r\n  470 CALL MESAGE (-1,IFIL,NAME)\r\n  480 FORMAT (A23,'314, DUPLICATE K FOR  ID',I9,' FIELD',I9,' K',I9)\r\n  485 FORMAT (A23,'316, ILLEGAL TO USE SORTED COUNT AND REGULAR ID ON ',\r\n     1       'SAME TYPE OF CARD ',2A4)\r\n  490 WRITE  (NOUT,495) UFM\r\n  495 FORMAT (A23,', NO 1VARY CARDS TO GO WITH 1PARM CARDS.  ERROR IN ',\r\n     1       'IFPPVC')\r\n      IF (ISORT.EQ.1 .OR. LTJ.NE.0) GO TO 40\r\n      GO TO  400\r\n  500 FORMAT (A23,'31, CARD TYPE ',2A4,' ID =',I9,' HAS ILLEGAL FIELD',\r\n     1        I9)\r\n      END\r\n"
  },
  {
    "path": "mis/ifs1p.f",
    "content": "      SUBROUTINE IFS1P (*,*,*)\r\nC\r\n      LOGICAL         ABORT,BADDAT,BADFOR,IAX,LHARM,SLOT,IFPDCO\r\n      INTEGER         M(100),KLOTDF(5),B1,BARDF2,BARDF5,BARDF6,BARDF7,\r\n     1                BARDF8,HBDYNM(2,7),HBDYIX(7),THRU,BLK,BCDC,BCDR,\r\n     2                BCDS,E(40)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ KSYSTM(80)\r\n      COMMON /BLANK / E\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),RM(100),MF(100),M1(100),\r\n     1                M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,\r\n     2                IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6)\r\n      COMMON /CIFS1P/ B1,BARDF2,BARDF5,BARDF6,BARDF7,BARDF8,KM,SLOT,\r\n     1                IDRDL\r\n      EQUIVALENCE     (KSYSTM(2),NOUT),(KSYSTM(3),ABORT),(M(1),RM(1)),\r\n     1                (SLOTDF(1) ,KLOTDF(1))\r\n      DATA   HBDYNM / 4HPOIN , 4HT\r\n     1              , 4HLINE , 4H\r\n     2              , 4HREV  , 4H\r\n     3              , 4HAREA , 4H3\r\n     4              , 4HAREA , 4H4\r\n     5              , 4HELCY , 4HL\r\n     6              , 4HFTUB , 4HE   /\r\n      DATA   HBDYIX / 1,2,2,3,4,2,2  /\r\n      DATA   THRU   / 4HTHRU         /\r\n      DATA   BLK    , BCDC,BCDR,BCDS /  1H ,1HC,1HR,1HS/\r\n      DATA   IT1,IT2, IT3 / 2HT1, 2HT2, 2HT3           /\r\nC\r\n      IF (K .GT. 100) GO TO 81\r\n      GO TO (     5,   5,   5,  40, 500, 600, 700, 800, 900,1000,\r\n     1         1111,   5,   5,1400,1400,1600,   5,1800,1800,2000,\r\n     2         2000,2200,2200,2400,2500,2600,2500,   5,2900,2920,\r\n     3          318,   5,2980,3011,3020,3020,3012,2980,3013,3020,\r\n     4         3014,3015,3016,3210,3220,3255,3260,3281,3282,3283,\r\n     5            5,3360,3360,3360,3360,3360,3460,3460,3460,3460,\r\n     6         3540,3540,3580,3600,3620,3623,3674,3697,3620,3623,\r\n     7         3675,3698,3620,3800,3676,3699,3860,3880,   5,   5,\r\n     8         2500,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5,   5,   5), K\r\n   81 IF (KX .GT. 100) GO TO 82\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2         3017,   5,   5,   5,1250,   5,1270,1280,1290,1290,\r\n     3            5,   5,   5,   5,  40,1360,1370,   5,   5,   5,\r\n     4            5,1420,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,1580,   5,   5,\r\n     6            5,   5,   5,   5,   5,1660,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5, 100, 200,\r\n     8          300,   5,   5,   5,   5,   5,   5,   5,   5,1900,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5,   5,   5), KX\r\n   82 IF (KY .GT. 100)  GO TO 83\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,1400,   5,   5,   5,   5,   5,\r\n     2            5,   5,4100,4200,4300,4400,4500,4600,4700,4800,\r\n     3         4900,5000,5050,3900,4000,5100,3950,4050,   5,5150,\r\n     4         5200,   5,5250,   5,   5,   5,   5,   5,3460,3018,\r\n     5            5,   5,   5,   5,   5,1600,5240,5245,3460,3019,\r\n     6            5,   5,   5,   5,   5,   5,   5,5300,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5,   5,5175,   5,\r\n     9         6101,6201,6301,6401,   5,   5,   5,   5,7501,7601), KY\r\n   83 KZ = KY - 100\r\n      IF (KZ .GT. 59) GO TO 5\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,4060,4070,4080,4090,4060,4080,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3         1111,   5,   5,   5,   5,   5,3900,   5,   5,1260,\r\n     4         1270,1230,1235,1240,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,3280,3360,3460,7700     ), KZ\r\n    5 CALL PAGE2 (2)\r\n      WRITE  (NOUT,6) SFM\r\n    6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS1P.')\r\n      ABORT  = .TRUE.\r\n      RETURN 1\r\n    7 BADFOR = .TRUE.\r\n      RETURN 1\r\n    8 BADDAT = .TRUE.\r\n      RETURN 1\r\n    3 DO 4 L = 1,N\r\n    4 I(L) = M(L)\r\n    2 RETURN\r\n    9 RETURN 3\r\nC\r\nC*****         4-SEQGP,135-SEQEP    ************************************\r\nC\r\n   40 DO 45 L = 1,7,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 45\r\n      IF (M(L).LE.0 .OR.  M(L+1).LE.0) GO TO 8\r\n      N = N + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      IF (N .LE. 2) GO TO 45\r\n      DO 43 L1 = 4,N,2\r\n      IF (I(N-1).EQ.I(L1-3) .OR. I(N).EQ.I(L1-2)) GO TO 8\r\n   43 CONTINUE\r\n   45 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****         179-BAROR       *****************************************\r\nC\r\n  100 IF (B1 .EQ. 0) GO TO 8\r\n      B1 = 0\r\n      IF (M(2).EQ.0 .AND. M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0\r\n     1   .AND. M(8).EQ.0) GO TO 8\r\n      IF (M(2).LT.0 .OR. M(8).LT.0 .OR. M(8).GT.2) GO TO 8\r\n      IF (MF(8) .NE. 0) GO TO 110\r\n      IF (MF(5).EQ.1 .AND. MF(6).NE.0 .AND. MF(7).NE.0) GO TO 8\r\n      IF (MF(5).EQ.1 .AND. MF(6).EQ.0 .AND. MF(7).EQ.0) M(8) = 2\r\n      IF (MF(5).EQ.2 .OR.  MF(6).EQ.2 .OR.  MF(7).EQ.2) M(8) = 1\r\n  110 BARDF2 = M(2)\r\n      BARDF5 = M(5)\r\n      BARDF6 = M(6)\r\n      BARDF7 = M(7)\r\n      BARDF8 = M(8)\r\n      RETURN 2\r\nC\r\nC*****         180-CBAR        *****************************************\r\nC\r\n  200 IF (MF(2)  .NE. 0) GO TO 201\r\n      IF (BARDF2 .EQ. 0) GO TO 203\r\n      M(2) = BARDF2\r\n      GO TO 201\r\n  203 M(2) = M(1)\r\n  201 CONTINUE\r\n      IF (MF(5) .EQ. 0) M(5) = BARDF5\r\n      IF (MF(8) .EQ. 0) M(8) = BARDF8\r\n      IF (MF(5).GE.3 .OR.  MF(6).GE.3 .OR. MF(7).GE.3) GO TO 8\r\n      IF (M(8).EQ.0 .AND. (MF(5).EQ.2 .OR. MF(6).EQ.2 .OR. MF(7).EQ.2))\r\n     1    M(8) = 1\r\n      IF (M(8).EQ.0 .AND. MF(5).EQ.1 .AND. MF(6)+MF(7).EQ.0) M(8) = 2\r\n      IF (M(8).LE.0 .OR.  M(8).GT.2) GO TO 8\r\n      IF (M(8)  .EQ. 2) GO TO 205\r\n      IF (MF(6) .EQ. 0) M(6) = BARDF6\r\n      IF (MF(7) .EQ. 0) M(7) = BARDF7\r\n  205 CONTINUE\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0)\r\n     1    GO TO 8\r\n      IF (M(8).EQ.1 .AND. (MF(5).NE.2 .AND. MF(5).NE.0 .OR.\r\n     1         M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0)) GO TO 8\r\n      IF ((M(8).EQ.2 .OR. M(8).EQ.3) .AND. (MF(5).NE.1 .AND.MF(5).NE.0\r\n     1    .OR. M(5).LE.0 .OR. M(6).NE.0 .OR. M(7).NE.0)) GO TO 8\r\n      IF (IFPDCO(M(9))) GO TO 8\r\n      IF (M(9) .GT. 65432) GO TO 8\r\n      IF (IFPDCO(M(10))) GO TO 8\r\n      IF (M(10) .GT. 65432) GO TO 8\r\n      IF (M(3).EQ.M(4) .OR. M(3).EQ.M(5) .AND. M(8).EQ.2) GO TO 8\r\n      IF (M(8).EQ.2 .AND. M(4).EQ.M(5)) GO TO 8\r\n      N = 16\r\n      GO TO 3\r\nC\r\nC*****         181-PBAR        *****************************************\r\nC\r\n  300 N = 19\r\n      IF (RM(4).LT.0. .OR. RM(5).LT.0. .OR. RM(4)*RM(5).LT.RM(19)**2)\r\n     1    GO TO 8\r\n      GO TO 2903\r\nC\r\nC*****         31-PVISC        *****************************************\r\nC\r\n  310 DO 315 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 315\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N = N + 3\r\n      I(N-2) = M(L  )\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n      IF (E(KL) .LT. 0) GO TO 315\r\n      IF (M(L) .GT. E(KL)) GO TO 314\r\n      E(KL) = -M(L)\r\n      GO TO 315\r\n  314 E(KL) = M(L)\r\n  315 CONTINUE\r\n      IF (N) 8,8,2\r\n  318 KL = 33\r\n      GO TO 310\r\nC\r\nC*****         5-CORD1R        *****************************************\r\nC\r\n  500 L50 = 1\r\n  510 DO 519 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 519\r\n      IF (M(L).LE.0 .OR. M(L+1).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0)\r\n     1    GO TO 8\r\n      IF (M(L+1).EQ.M(L+2) .OR. M(L+1).EQ.M(L+3) .OR. M(L+3).EQ.M(L+2))\r\n     1    GO TO 8\r\n      N = N + 6\r\n      IF (N.GT.6 .AND. M(L).EQ.M(L-4)) GO TO 8\r\n      I(N-5) = M(L  )\r\n      I(N-4) = L50\r\n      I(N-3) = 1\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n  519 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****         6-CORD1C        *****************************************\r\nC\r\n  600 L50 = 2\r\n      GO TO 510\r\nC\r\nC*****         7-CORD1S        *****************************************\r\nC\r\n  700 L50 = 3\r\n      GO TO 510\r\nC\r\nC*****         8-CORD2R        *****************************************\r\nC\r\n  800 I(2) = 1\r\n  810 I(1) = M(1)\r\n      IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 8\r\n      IF (M(3).EQ.M(6) .AND. M(4).EQ.M( 7) .AND. M(5).EQ.M( 8)) GO TO 8\r\n      IF (M(3).EQ.M(9) .AND. M(4).EQ.M(10) .AND. M(5).EQ.M(11)) GO TO 8\r\n      IF (M(6).EQ.M(9) .AND. M(7).EQ.M(10) .AND. M(8).EQ.M(11)) GO TO 8\r\n      I(3) = 2\r\n      DO 813 L = 2,11\r\n  813 I(L+2) = M(L)\r\n      N = 13\r\n      GO TO 2\r\nC\r\nC*****         9-CORD2C        *****************************************\r\nC\r\n  900 I(2) = 2\r\n      GO TO 810\r\nC\r\nC*****         10-CORD2S       *****************************************\r\nC\r\n 1000 I(2) = 3\r\n      GO TO 810\r\nC\r\nC*****   11-PLOTEL,   331-CFFREE   *************************************\r\nC\r\n 1100 DO 1110 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1110\r\n      IF (M(L).LE.0 .OR.  M(L+1).LE.0 .OR.  M(L+2).LE.0) GO TO 8\r\n      IF (M(L+1) .EQ. M(L+2)) GO TO 8\r\n      N = N + 3\r\n      I(N-2) = M(L  )\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n      IF (E(KL) .LT. 0) GO TO 1110\r\n      IF (M(L) .GT. E(KL)) GO TO 1107\r\n      E(KL) = -M(L)\r\n      GO TO 1110\r\n 1107 E(KL) = M(L)\r\n 1110 CONTINUE\r\n      IF (N) 8,8,2\r\n 1111 KL = 10\r\n      GO TO 1100\r\nC\r\nC*********       342-CFTUBE    *****************************************\r\nC\r\n 1230 N = 4\r\n      IF (M(1).LE.0  .OR. M(3).LE.0 .OR. M(4).LE.0) GO TO 8\r\n      IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      IF (M(2).LE.3 .OR. M(3).EQ.M(4)) GO TO 8\r\n      GO TO 3\r\nC\r\nC*********       343-PFTUBE    ****************************************\r\nC\r\n 1235 N = 5\r\n      IF (M(1)  .LE. 0) GO TO 8\r\n      IF (RM(2).LE.0. .OR. RM(3).LT.0. .OR. RM(4).LE.0.) GO TO 8\r\n      IF (RM(5) .EQ. 0.) RM(5) = RM(4)\r\n      IF (RM(5) .LT. 0.) GO TO 8\r\n      GO TO 3\r\nC\r\nC*********       344-NFTUBE    *****************************************\r\nC\r\n 1240 N = 5\r\n      IF (MF(2).NE.1 .OR. M(1).LE.0) GO TO 8\r\n      IF (MF(2).NE.1 .OR. M(2).LE.0) GO TO 8\r\n      IF (MF(3).NE.1 .OR. M(3).LE.0) GO TO 8\r\n      IF (M(2) .EQ. M(3)) GO TO 8\r\n      IF (MF(4).NE.0 .AND. MF(4).NE.2) GO TO 8\r\n      IF (MF(5).EQ.1 .AND.  M(5).LT.0) GO TO 8\r\n      IF (MF(5) .GT. 2) GO TO 7\r\n      GO TO 3\r\nC\r\nC***********       125-FREQ1      **************************************\r\nC\r\n 1250 IF (M(1).LE.0 .OR. RM(2).LT.0. .OR. RM(3).LE.0. .OR. M(4).LE.0)\r\n     1    GO TO 8\r\n      N = 4\r\n      GO TO 3\r\nC\r\nC*****             340-NOLIN5         **********************************\r\nC\r\n 1260 IF (KM .NE. 0) GO TO 1262\r\n      KM  = 1\r\n      KN  = 1\r\n      NMO = 8\r\n      IF (MF(1).NE.1 .OR.  M(1).LE.0 ) BADDAT =.TRUE.\r\n      IF (MF(2).NE.2 .OR. RM(2).LE.0.) BADDAT =.TRUE.\r\n      IF (MF(3).NE.2 .OR. RM(3).LE.0.) BADDAT =.TRUE.\r\n      IF (MF(4).NE.2 .OR. RM(4).LE.0.) BADDAT =.TRUE.\r\n      IF (MF(5).EQ.1 .AND. M(5).LT.0 ) BADDAT =.TRUE.\r\n      IF (MF(6).EQ.1 .AND. M(6).LT.0 ) BADDAT =.TRUE.\r\n      IF (MF(7).EQ.1 .AND. M(7).LT.0 ) BADDAT =.TRUE.\r\n      IF (MF(8).EQ.1 .AND. M(8).LT.0 ) BADDAT =.TRUE.\r\n      IF (MF(5).EQ.2 .AND.RM(5).LT.0.) BADDAT =.TRUE.\r\n      IF (MF(6).EQ.2 .AND.RM(6).LT.0.) BADDAT =.TRUE.\r\n      IF (MF(7).EQ.2 .AND.RM(7).LT.0.) BADDAT =.TRUE.\r\n      IF (MF(8).EQ.2 .AND.RM(8).LT.0.) BADDAT =.TRUE.\r\n      N = 8\r\n      DO 1261 L = 1,8\r\n 1261 I(L) = M(L)\r\n      GO TO 1265\r\n 1262 N = 8\r\n      NMO = NMO + 8\r\n      DO 1263 L = 1,8\r\n      I(L) = M(L)\r\n      IF (MF(L) .EQ. 0) GO TO 1263\r\n      IF (MF(L).NE.1 .OR. M(L).LE.0) BADDAT =.TRUE.\r\n 1263 CONTINUE\r\n 1265 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      KM = 0\r\n      KN = 0\r\n      IF (NMO .EQ. 16) GO TO 9\r\n      IF (NMO .GT. 16) BADDAT =.TRUE.\r\n      DO 1266 L = 1,8\r\n      N = N + 1\r\n      I(N) = 0\r\n 1266 CONTINUE\r\n      GO TO 9\r\nC\r\nC*****         127-NOLIN1,341-NOLIN6    ********************************\r\nC\r\n 1270 IF (MF(8)) 8,1282,8\r\n 1272 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(5).LE.0 .OR.\r\n     1    M(6).LT.0) GO TO 8\r\n      IF (M(3) .GT. 6) GO TO 8\r\n      IF ((M(6).GT.6 .AND. M(6).LT.10) .OR. M(6).GT.16) GO TO 8\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****         128-NOLIN2        ***************************************\r\nC\r\n 1280 IF (M(8).LT.0 .OR. MF(8).NE.1 .AND. MF(8).NE.0) GO TO 8\r\n      IF ((M(8).GT.6 .AND. M(8).LT.10) .OR. M(8).GT.16) GO TO 8\r\n 1282 IF (MF(7).NE.1 .OR. M(7).LE.0) GO TO 8\r\n      GO TO 1272\r\nC\r\nC*****         129-NOLIN3,130-NOLIN4        ****************************\r\nC\r\n 1290 IF (MF(8).NE.0 .OR. MF(7).NE.2 .AND. MF(7).NE.0) GO TO 8\r\n      GO TO 1272\r\nC\r\nC*****         136-TF         ******************************************\r\nC\r\n 1360 IF (KM .NE. 0) GO TO 1363\r\n      NMO = 5\r\n      ID  = M(1)\r\n      IF (ID.LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 1427\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).GT.1) BADFOR =.TRUE.\r\n      IF ((MF(4).NE.2 .AND. MF(4).NE.0) .OR. (MF(5).NE.2 .AND.\r\n     1    MF(5).NE.0) .OR. (MF(6).NE.2 .AND. MF(6).NE.0)) BADFOR =.TRUE.\r\n      N = 6\r\n 1361 DO 1362 L = 1,N\r\n 1362 I(L) = M(L)\r\n      GO TO 1428\r\n 1363 IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 1427\r\n      IF (MF(1).NE.1 .OR. MF(2).GT.1) BADFOR =.TRUE.\r\n      IF ((MF(3).NE.2 .AND. MF(3).NE.0) .OR. (MF(4).NE.2 .AND.\r\n     1    MF(4).NE.0) .OR. (MF(5).NE.2 .AND. MF(5).NE.0)) BADFOR =.TRUE.\r\n      N = 5\r\n      GO TO 1361\r\nC\r\nC*****         137-TIC        ******************************************\r\nC\r\n 1370 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(3).GT.6)\r\n     1    GO TO 8\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         14-SUPORT,15-OMIT,215-ASET         **********************\r\nC\r\n 1400 L = 1\r\n 1402 IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 1409\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      IF (IFPDCO(M(L+1))) GO TO 8\r\n      IZ = 6\r\n      IF (M(L+1) .EQ. 0) IZ = 1\r\n      DO 1407 L2 = 1,IZ\r\n      IF (IZ.NE.1 .AND. LL(L2).EQ.0) GO TO 1407\r\n      N = N + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = LL(L2)\r\n      IF (N .LE. 2) GO TO 1407\r\n      DO 1408 L1 = 4,N,2\r\n      IF (I(N-1).EQ.I(L1-3) .AND. I(N).EQ.I(L1-2)) GO TO 8\r\n 1408 CONTINUE\r\n 1407 CONTINUE\r\n 1409 L = L + 2\r\n      IF (L .LE. 7) GO TO 1402\r\n      IF (N) 8,8,2\r\nC\r\nC*****         142-TSTEP        ****************************************\r\nC\r\n 1420 IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0)\r\n     1    GO TO 7\r\n      IF (KM .NE. 0) GO TO 1422\r\n      NMO = 3\r\n      ID  = M(1)\r\n      IF (ID.LE.0 .OR. MF(1).NE.1) GO TO 1427\r\n      N   = 1\r\n      I(N) = M(1)\r\n      GO TO 1425\r\n 1422 IF (MF(1) .NE. 0) GO TO 1427\r\n 1425 IF (MF(2).NE.1 .OR. MF(4).NE.1 .OR. MF(3).NE.2) GO TO 1427\r\n      IF (M(4).LE.0 .OR. RM(3).LE.0. .OR. M(2).LT.M(4)) GO TO 1427\r\n      N = N + 3\r\n      I(N-2) = M(2)\r\n      I(N-1) = M(3)\r\n      I(N  ) = M(4)\r\n      GO TO 1428\r\n 1427 BADDAT =.TRUE.\r\n 1428 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1429\r\n      KM = 0\r\n      KN = 0\r\n      IF (NMO .LE. 0) GO TO 9\r\n      DO 1426 L = 1,NMO\r\n      N = N + 1\r\n 1426 I(N) =-1\r\n      GO TO 9\r\n 1429 KM = 1\r\n      KN = 1\r\n      GO TO 9\r\nC\r\nC*****         158-EIGP        *****************************************\r\nC\r\n 1580 IF (M(1) .LE. 0) GO TO 8\r\n      DO 1585 L = 2,5,3\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1585\r\n      IF (M(L+2) .LE. 0) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(  1)\r\n      I(N-2) = M(  L)\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n 1585 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****         16-SPC , 256-SPCD ***********************************\r\nC\r\n 1600 IF (M(1) .LE. 0) GO TO 8\r\n      L = 2\r\n 1601 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1609\r\n      IF (M(L).LE.0 .OR. M(L+1).LT.0) GO TO 8\r\n      IF (IFPDCO(M(L+1))) GO TO 8\r\n      N = N + 4\r\n      IF (N.GT.4 .AND. M(L).EQ.M(L-3) .AND. M(L+1).EQ.M(L-2)) GO TO 8\r\n      I(N-3) = M(1  )\r\n      I(N-2) = M(L  )\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n 1609 L = L + 3\r\n      IF (L .EQ. 5) GO TO 1601\r\n      IF (N) 8,8,2\r\nC\r\nC***********       166-FREQ2      **************************************\r\nC\r\n 1660 IF (RM(2)) 8,8,1250\r\nC\r\nC*******       18-FORCE,19-MOMENT   **************************\r\nC\r\n 1800 IF (M(2)) 8,8,1900\r\nC\r\nC***************        190-RFORCE    *****************************\r\nC\r\n 1900 IF (MF(3).NE.0 .AND. MF(3).NE.1) GO TO 8\r\n      IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(3).LT.0) GO TO 8\r\n      IF (M(5).NE.0 .OR. M(6).NE.0 .OR. M(7).NE.0) GO TO 1905\r\n      IF (M(4) .NE. 0) GO TO 8\r\n      RM(5) = 1.0\r\n 1905 N = 7\r\nCWKBDB 2/95 SPR94015\r\nC      IF (K .NE. 190) GO TO 3\r\nC      IF (M(8) .EQ. 0) M(8) = 1\r\nC      IF (M(8) .LT.0 .OR. M(8).GT.2) GO TO 8\r\nC      N = 8\r\nCWKBDE 2/95 SPR94015\r\n      GO TO 3\r\nC\r\nC*****         20-FORCE1,21-MOMENT1   **********************************\r\nC\r\n 2000 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0)\r\n     1    GO TO 8\r\n      IF (M(4) .EQ. M(5)) GO TO 8\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         22-FORCE2,23-MOMENT2   **********************************\r\nC\r\n 2200 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(4).LE.0) GO TO 8\r\n      IF (M(5).LE.0 .OR. M(6).LE.0 .OR. M(7).LE.0) GO TO 8\r\n      IF (M(4).EQ.M(5) .OR. M(6).EQ.M(7) .OR.  M(4).EQ.M(6) .AND.\r\n     1    M(5).EQ.M(7) .OR. M(4).EQ.M(7) .AND. M(5).EQ.M(6)) GO TO 8\r\n      N = 7\r\n      GO TO 3\r\nC\r\nC*****         24-PLOAD        *****************************************\r\nC\r\n 2400 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0)\r\n     1    GO TO 8\r\n      IF (M(6).LT.0 .OR. M(6).EQ.0 .AND. MF(6).NE.0) GO TO 8\r\n      DO 2404 L  = 4,6\r\n      DO 2403 L1 = L,6\r\n      IF (M(L-1) .EQ. M(L1)) GO TO 8\r\n 2403 CONTINUE\r\n 2404 CONTINUE\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*****         25-SLOAD,27-TEMP,81-DEFORM    ***************************\r\nC\r\n 2500 IF (M(1) .LE. 0) GO TO 8\r\n      DO 2510 L = 2,6,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 2510\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N = N + 3\r\n      I(N-2) = M(1  )\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      IF (N .LE. 3) GO TO 2510\r\n      DO 2502 L1 = 6,N,3\r\n      IF (I(N-1) .EQ. I(L1-4)) GO TO 8\r\n 2502 CONTINUE\r\n 2510 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****         26-GRAV         *****************************************\r\nC\r\n 2600 IF (M(1).LE.0 .OR. M(2).LT.0) GO TO 8\r\n      IF (M(4).NE.0 .OR. M(5).NE.0 .OR. M(6).NE.0) GO TO 2605\r\n      IF (M(3) .NE. 0) GO TO 8\r\n      RM(4) = 1.0\r\n 2605 N = 6\r\n      GO TO 3\r\nC\r\nC*****         29-PROD         *****************************************\r\nC\r\n 2900 N = 6\r\n 2903 IF (M(2) .LE. 0) GO TO 8\r\n 2906 IF (M(1) .LE. 0) GO TO 8\r\n      GO TO 3\r\nC\r\nC*****         30-PTUBE        *****************************************\r\nC\r\n 2920 N = 5\r\n      IF (RM(3).LE.0.0 .OR. RM(4).LT.0.0 .OR. RM(4).GT.0.5*RM(3))\r\n     1    GO TO 8\r\n      IF (RM(4) .EQ. 0.0) RM(4) = 0.5*RM(3)\r\n      GO TO 2903\r\nC\r\nC*****         33-PTRIA1,38-PQUAD1    **********************************\r\nC\r\n 2980 IF (M(2).LT.0 .OR.  M(4).LT.0 .OR.  M(6).LT.0) GO TO 8\r\n      IF (M(2).EQ.0 .AND. M(4).EQ.0 .AND. M(6).EQ.0) GO TO 8\r\n      DO 2986 L = 2,6,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).NE.0) GO TO 8\r\n 2986 CONTINUE\r\n      N = 10\r\n      GO TO 2906\r\nC\r\nC*****      34-PTRIA2,37-PTRMEM,39-PQUAD2,41-PQDMEM  *******************\r\nC*****      42-PSHEAR,43-PTWIST,121-PTORDRG,250-PQDMEM1    *************\r\nC*****      260-PQDMEM2\r\nC\r\n 3000 DO 3010 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 3010\r\n      IF (M(L).LE.0 .OR.  M(L+1).LE.0) GO TO 8\r\n      IF (RM(L+2) .LE. 0.0) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      IF (E(KL) .LT. 0) GO TO 3010\r\n      IF (M(L) .GT. E(KL)) GO TO 3004\r\n      E(KL) = -M(L)\r\n      GO TO 3010\r\n 3004 E(KL) = M(L)\r\n 3010 CONTINUE\r\n      IF (N) 8,8,2\r\n 3011 KL = 30\r\n      GO TO 3000\r\n 3012 KL = 31\r\n      GO TO 3000\r\n 3013 KL = 27\r\n      GO TO 3000\r\n 3014 KL = 24\r\n      GO TO 3000\r\n 3015 KL = 28\r\n      GO TO 3000\r\n 3016 KL = 32\r\n      GO TO 3000\r\n 3017 KL = 29\r\n      GO TO 3000\r\n 3018 KL = 25\r\n      GO TO 3000\r\n 3019 KL = 26\r\n      GO TO 3000\r\nC\r\nC*****         35-PTRBSC,36-PTRPLT,40-PQDPLT     ***********************\r\nC\r\n 3020 IF (M(2).LT.0 .OR. M(4).LT.0 .OR. M(2).EQ.0 .AND. M(4).EQ.0)\r\n     1    GO TO 8\r\n      DO 3026 L = 2,4,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).NE.0) GO TO 8\r\n 3026 CONTINUE\r\n      N = 8\r\n      GO TO 2906\r\nC\r\nC*****         44-PMASS,45-PDAMP    ***********************************\r\nC\r\n 3200 DO 3206 L = 1,7,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 3206\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N = N + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      IF (E(KL) .LT. 0) GO TO 3206\r\n      IF (M(L) .GT. E(KL)) GO TO 3204\r\n      E(KL) = -M(L)\r\n      GO TO 3206\r\n 3204 E(KL) = M(L)\r\n 3206 CONTINUE\r\n      IF (N) 8,8,2\r\n 3210 KL = 23\r\n      GO TO 3200\r\n 3220 KL = 21\r\n      GO TO 3200\r\nC\r\nC*****         46-PELAS             ************************************\r\nC\r\n 3240 DO 3250 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 3250\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      IF (E(KL) .LT. 0) GO TO 3250\r\n      IF (M(L) .GT. E(KL)) GO TO 3244\r\n      E(KL) = -M(L)\r\n      GO TO 3250\r\n 3244 E(KL) = M(L)\r\n 3250 CONTINUE\r\n      IF (N) 8,8,2\r\n 3255 KL = 22\r\n      GO TO 3240\r\nC\r\nC*****         47-CONROD       *****************************************\r\nC\r\n 3260 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0)\r\n     1    GO TO 8\r\n      IF (M(2) .EQ. M(3)) GO TO 8\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****         48-CROD,49-CTUBE,50-CVISC,356-CPSE2    *****************\r\nC\r\n 3280 DO 3289 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 3289\r\n      IF (M(L).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0) GO TO 8\r\n      IF (MF(L+1) .EQ. 0) M(L+1) = M(L)\r\n      IF (M(L+1).LE.0 .OR. M(L+2).EQ.M(L+3)) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      IF (E(KL) .LT. 0) GO TO 3289\r\n      IF (M(L) .GT. E(KL)) GO TO 3287\r\n      E(KL) = -M(L)\r\n      GO TO 3289\r\n 3287 E(KL) = M(L)\r\n 3289 CONTINUE\r\n      IF (N) 8,8,2\r\n 3281 KL = 1\r\n      GO TO 3280\r\n 3282 KL = 2\r\n      GO TO 3280\r\n 3283 KL = 3\r\n      GO TO 3280\r\nC\r\nC*****       52-CTRIA1,53-CTRIA2,54-CTRBSC,55-CTRPLT,56-CTRMEM    ****\r\nC            357-CPSE3\r\nC\r\n 3360 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0) GO TO 8\r\n      IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(3).EQ.M(5)) GO TO 8\r\n      N = 6\r\n      IF (K .EQ. 357) N = 5\r\n 3370 IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      GO TO 2903\r\nC\r\nC*****       57-CQUAD1,58-CQUAD2,59-CQDPLT,60-CQDMEM,249-CQDMEM1    ****\r\nC*****       259-CQDMEM2,358-CPSE4\r\nC\r\n 3460 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0)\r\n     1    GO TO 8\r\n      IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(5).EQ.M(6) .OR.\r\n     1    M(3).EQ.M(5) .OR. M(4).EQ.M(6) .OR. M(3).EQ.M(6)) GO TO 8\r\n      N = 7\r\n      IF (K .EQ. 358) N = 6\r\n      GO TO 3370\r\nC\r\nC*****         61-CSHEAR,62-CTWIST    **********************************\r\nC\r\n 3540 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0)\r\n     1    GO TO 8\r\n      IF (M(3).EQ.M(4) .OR. M(4).EQ.M(5) .OR. M(5).EQ.M(6) .OR.\r\n     *    M(3).EQ.M(5) .OR. M(4).EQ.M(6) .OR. M(3).EQ.M(6)) GO TO 8\r\n      N = 6\r\n      GO TO 3370\r\nC\r\nC*****         63-CONM1        *****************************************\r\nC\r\n 3580 IF (M(1).LT.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8\r\n      N = 24\r\n      GO TO 3\r\nC\r\nC*****         64-CONM2        *****************************************\r\nC\r\n 3600 IF (M(1).LT. 0 .OR. M(2).LE.0) GO TO 8\r\n      DO 3612 L = 1,7\r\n 3612 I(L) = M(L)\r\n      DO 3615 L = 8,13\r\n 3615 I(L) = M(L+1)\r\n      N = 13\r\n      GO TO 2\r\nC\r\nC*****         65-CMASS1,69-CDAMP1,73-CELAS1,70-CDAMP2,66-CMASS2    ****\r\nC\r\n 3620 IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      IF (M(2)  .LE. 0) GO TO 8\r\n 3623 N = 6\r\n 3626 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(3).LT.0 .OR.  M(4).LT.0 .OR. M(5).LT.0 .OR. M(6).LT.0)\r\n     1    GO TO 8\r\n      IF (M(4).GT.6 .OR.  M(6).GT.6 .OR. M(3).EQ.0 .AND. M(5).EQ.0)\r\n     1    GO TO 8\r\n      IF (M(3).EQ.0 .AND. M(4).NE.0 .OR. M(5).EQ.0 .AND. M(6).NE.0)\r\n     1    GO TO 8\r\n      IF (M(3).EQ.M(5) .AND. M(4).EQ.M(6)) GO TO 8\r\n      ICELL = M(4)\r\n      M(4)  = M(5)\r\n      M(5)  = ICELL\r\n      GO TO 3\r\nC\r\nC*****         67-CMASS3,75-CELAS3,71-CDAMP3    ************************\r\nC\r\n 3660 DO 3669 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 3669\r\n      IF (M(L).LE.0 .OR. M(L+2).LT.0 .OR. M(L+3).LT.0) GO TO 8\r\n      IF (MF(L+1) .EQ. 0) M(L+1) = M(L)\r\n      IF (M(L+1).LE.0 .OR. M(L+2).EQ.M(L+3)) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      IF (E(KL) .LT. 0) GO TO 3669\r\n      IF (M(L) .GT. E(KL)) GO TO 3667\r\n      E(KL) = -M(L)\r\n      GO TO 3669\r\n 3667 E(KL) = M(L)\r\n 3669 CONTINUE\r\n      IF (N) 8,8,2\r\n 3674 KL = 4\r\n      GO TO 3660\r\n 3675 KL = 5\r\n      GO TO 3660\r\n 3676 KL = 6\r\n      GO TO 3660\r\nC\r\nC*****         68-CMASS4,76-CELAS4,72-CDAMP4    ************************\r\nC\r\n 3680 DO 3689 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 3689\r\n      IF (M(L).LE.0 .OR. M(L+2).LT.0 .OR. M(L+3).LT.0) GO TO 8\r\n      IF (M(L+2) .EQ. M(L+3)) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      IF (E(KL) .LT. 0) GO TO 3689\r\n      IF (M(L) .GT. E(KL)) GO TO 3687\r\n      E(KL) = -M(L)\r\n      GO TO 3689\r\n 3687 E(KL) = M(L)\r\n 3689 CONTINUE\r\n      IF (N) 8,8,2\r\n 3697 KL = 7\r\n      GO TO 3680\r\n 3698 KL = 8\r\n      GO TO 3680\r\n 3699 KL = 9\r\n      GO TO 3680\r\nC\r\nC*****         74-CELAS2       *****************************************\r\nC\r\n 3800 N = 8\r\n      GO TO 3626\r\nC\r\nC*****         77-MAT1         *****************************************\r\nC\r\n 3860 IF (M(1).LE.0 .OR. (RM(2).EQ.0 .AND. RM(3).EQ.0)) GO TO 8\r\n      IF ((RM(2).LT.0. .OR. RM(3).LT.0.) .AND. KSYSTM(78).GE.0) GO TO 8\r\n      N = 12\r\n      IF (M(12) .LT. 0) GO TO 8\r\n      L = 3\r\n      IF (MF(2).EQ.0 .OR. RM(2).EQ.0.) L = L - 1\r\n      IF (MF(3).EQ.0 .OR. RM(3).EQ.0.) L = L - 1\r\n      IF (MF(4).EQ.0 .OR. RM(4).EQ.0.) L = L - 1\r\n      IF (L .GE. 2) GO TO 3865\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,3862) UWM,M(1)\r\n 3862 FORMAT (A25,' 2251, TWO OF THE E, G AND NU ON MAT1 CARD ',I8,\r\n     1       ' ARE ZEROS OR BLANKS.', /5X,\r\n     2        'POTENTIAL ERROR MAY OCCUR LATER')\r\n 3865 IF (MF(2).EQ.2 .AND. MF(3).EQ.2 .AND. MF(4).EQ.2) GO TO 3\r\n      IF (MF(2) .EQ. 0) RM(2) = 2.0*RM(3)*(1.0+RM(4))\r\n      IF (MF(3) .EQ. 0) RM(3) = RM(2)/(2.0*(1.0+RM(4)))\r\n      IF (MF(4) .EQ. 0) RM(4) = RM(2)/(2.0*RM(3)) - 1.0\r\n      IF (RM(4).GE.-1.0 .AND. RM(4).LE.0.5) GO TO 3\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,3870) UWM,M(1),RM(4)\r\n 3870 FORMAT (A25,' 2251, PHYSICALLY UNREALISTIC VALUE FOR NU ON MAT1 ',\r\n     1       'CARD ',I8,'.  VALUE = ',1P,E16.4)\r\n      GO TO 3\r\nC\r\nC*****         78-MAT2         *****************************************\r\nC\r\n 3880 N = 17\r\n      IF (M(17) .LT. 0) GO TO 8\r\n      IF (M(1)) 8,8,3\r\nC\r\nC*****     234-MAT4,   337-MATF   **************************************\r\nC\r\n 3900 IF (M(1) .LE. 0) GO TO 8\r\n      IF (RM(2) .LE. 0.0) GO TO 8\r\n      IF (RM(3).LE.0.0 .AND. MF(3).EQ.2) GO TO 8\r\n      N = 3\r\n      GO TO 3\r\nC\r\nC*****         237-MATT4           *************************************\r\nC\r\n 3950 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LT. 0) GO TO 8\r\n      N = 2\r\n      GO TO 3\r\nC\r\nC*****         235-MAT5            *************************************\r\nC\r\n 4000 IF (M(1) .LE. 0) GO TO 8\r\n      IF (RM(8).LE.0.0 .AND. MF(8).EQ.2) GO TO 8\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****         238-MATT5           *************************************\r\nC\r\n 4050 IF (M(1)  .LE. 0) GO TO 8\r\n      IF (MF(8) .NE. 0) GO TO 7\r\n      N = 7\r\n      GO TO 3\r\nC\r\nC*****  315-MATPZ1,   319-MAT6  ****************************************\r\nC\r\n 4060 IF (M(1) .LE. 0) GO TO 8\r\n      N = 15\r\n      IF (K .EQ. 319) N = 31\r\n      GO TO 3\r\nC\r\nC*****    316-MATPZ2        ********************************************\r\nC\r\n 4070 IF (M(1) .LE. 0) GO TO 8\r\n      N = 52\r\n      GO TO 3\r\nC\r\nC*****     317-MTTPZ1,   320-MATT6   ***********************************\r\nC\r\n 4080 N = 15\r\n      IF (K .EQ. 320) N = 31\r\n      DO 4081 L = 1,N\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 4081 CONTINUE\r\n      IF (M(1) .EQ. 0) GO TO 8\r\n      GO TO 3\r\nC\r\nC*****   318-MTTPZ2    *************************************************\r\nC\r\n 4090 DO 4091 L = 1,52\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 4091 CONTINUE\r\n      IF (M(1) .EQ. 0) GO TO 8\r\n      N = 52\r\n      GO TO 3\r\nC\r\nC*****         223-AXSLOT         **************************************\r\nC\r\n 4100 IF (SLOT) GO TO 8\r\n      SLOT = .TRUE.\r\n      IAXF = IAXF + 2\r\n      SLOTDF(1) = RM(1)\r\n      SLOTDF(2) = RM(2)\r\n      IF (M(3) .LT. 0) BADDAT =.TRUE.\r\n      KLOTDF(3) = M(3)\r\n      SLOTDF(4) = RM(4)\r\n      IF (M(5) .LT. 0) BADDAT =.TRUE.\r\n      KLOTDF(5) = M(5)\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         224-CAXIF2         **************************************\r\nC\r\n 4200 IF (MF(4).NE.0 .OR. MF(5).NE.0) GO TO 7\r\n      N = 3\r\n 4250 IF (M(1)  .LE. 0) GO TO 8\r\n      IF (MF(6) .EQ. 0) RM(6) = SLOTDF(1)\r\n      IF (MF(7) .EQ. 0) RM(7) = SLOTDF(2)\r\n      IF (MF(8) .EQ. 0) M(8)  = KLOTDF(3)\r\n      DO 4255 L = 2,N\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      IF (L .EQ. 2) GO TO 4255\r\n      DO 4253 L1 = 3,L\r\n      IF (M(L1-1) .EQ. M(L)) GO TO 8\r\n 4253 CONTINUE\r\n 4255 CONTINUE\r\nC     CHECK FOR RHO .GE. 0.0\r\nC     CHECK FOR B .GE. 0.0\r\nC     CHECK FOR N .GE. 0\r\n      DO 4260 L = 6,8\r\n      L1 = L + N - 5\r\n 4260 I(L1) = M(L)\r\n      DO 4270 L = 1,N\r\n 4270 I(L) = M(L)\r\n      N = N + 3\r\n      GO TO 2\r\nC\r\nC*****         225-CAXIF3         **************************************\r\nC\r\n 4300 IF (MF(5) .NE. 0) GO TO 7\r\n      N = 4\r\n      GO TO 4250\r\nC\r\nC*****         226-CAXIF4         **************************************\r\nC\r\n 4400 N = 5\r\n      GO TO 4250\r\nC\r\nC*****         227-CSLOT3         **************************************\r\nC\r\n 4500 IF (MF(5) .NE. 0) GO TO 7\r\n      N = 4\r\n 4550 IF (MF(6) .EQ. 0) RM(6) = SLOTDF(1)\r\n      IF (MF(7) .EQ. 0) RM(7) = SLOTDF(2)\r\n      IF (MF(8) .EQ. 0) M(8)  = KLOTDF(5)\r\nC     CHECK FOR ALL KINDS OF THINGS\r\n      DO 4560 L = 6,8\r\n      L1 = L + N - 5\r\n 4560 I(L1) = M(L)\r\n      DO 4570 L = 1,N\r\n 4570 I(L) = M(L)\r\n      N = N + 4\r\n      I(N) = KLOTDF(3)\r\n      GO TO 2\r\nC\r\nC*****         228-CSLOT4         **************************************\r\nC\r\n 4600 N = 5\r\n      GO TO 4550\r\nC\r\nC*****         229-GRIDF          **************************************\r\nC\r\n 4700 IF (M(1) .LE. 0) GO TO 8\r\n      IF (RM(2) .LE. 0.0) GO TO 8\r\n      N = 3\r\n      GO TO 3\r\nC\r\nC*****         230-GRIDS          **************************************\r\nC\r\n 4800 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(5) .LT. 0) GO TO 8\r\n      IF (MF(4) .EQ. 0) RM(4) = SLOTDF(4)\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         231-SLBDY          **************************************\r\nC\r\n 4900 IF (KM .NE. 0) GO TO 4905\r\n      KM = 1\r\n      IF (MF(1).NE.2 .AND. MF(1).NE.0) BADFOR =.TRUE.\r\n      IF (MF(1) .EQ. 0) M(1) = KLOTDF(1)\r\n      IF (MF(2).NE.1 .AND. MF(2).NE.0) BADFOR =.TRUE.\r\n      IF (MF(2) .EQ. 0) M(2) = KLOTDF(5)\r\n      IF (M(2) .LT. 0) BADDAT =.TRUE.\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      N  = 2\r\n      IZ = 3\r\n      GO TO 4906\r\n 4905 IZ = 1\r\n 4906 DO 4908 L = IZ,8\r\n      IF (MF(L) .EQ. 0) GO TO 4940\r\n      IF (M(L)  .LE. 0) BADDAT =.TRUE.\r\n      N = N + 1\r\n      I(N) = M(L)\r\n 4908 CONTINUE\r\n 4910 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4920\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      KN = 0\r\n 4920 GO TO 9\r\n 4940 IZ = L + 1\r\n      DO 4950  L = IZ,8\r\n      IF (MF(L) .NE. 0) BADFOR =.TRUE.\r\n 4950 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADFOR =.TRUE.\r\n      GO TO 4910\r\nC\r\nC*****         232-CHBDY           *************************************\r\nC\r\n 5000 IF (M(1) .LE. 0) GO TO 8\r\n      I(1) = M(1)\r\n      IF (M(2) .LT. 0) GO TO 8\r\n      I(2) = M(2)\r\n      DO 5010 L = 1,7\r\n      IF (M(3).EQ.HBDYNM(1,L) .AND. M(4).EQ.HBDYNM(2,L)) GO TO 5020\r\n 5010 CONTINUE\r\n      GO TO 8\r\n 5020 I(3) = L\r\n      L1 = HBDYIX(L)\r\n      DO 5025 L2 = 1,L1\r\n      IF (M(L2+4).LE.0 .OR. M(L2+9).LT.0) GO TO 8\r\n      I(L2+3) = M(L2+4)\r\n 5025 I(L2+7) = M(L2+9)\r\n      IF (L1 .EQ. 4) GO TO 5035\r\n      DO 5030 L2 = L1,3\r\n      IF (M(L2+5).NE.0 .OR. M(L2+10).NE.0) GO TO 8\r\n      I(L2+4) = 0\r\n 5030 I(L2+8) = 0\r\n 5035 DO 5040 L2 = 12,14\r\n 5040 I(L2) = M(L2+2)\r\n      N = 15\r\n      I(15) = M(9)\r\n      GO TO 2\r\nC\r\nC*****         233-QHBDY           *************************************\r\nC\r\n 5050 IF (M(1) .LE. 0) GO TO 8\r\n      I(1) = M(1)\r\n      DO 5055 L = 1,5\r\n      IF (M(2).EQ.HBDYNM(1,L) .AND. M(3).EQ.HBDYNM(2,L)) GO TO 5060\r\n 5055 CONTINUE\r\n      GO TO 8\r\n 5060 I(2) = L\r\n      L1 = HBDYIX(L)\r\n      DO 5065 L2 = 1,L1\r\n      IF (M(L2+5) .LE. 0) GO TO 8\r\n 5065 I(L2+4) = M(L2+5)\r\n      IF (L1 .EQ. 4) GO TO 5075\r\n      DO 5070 L2 = L1,3\r\n      IF (M(L2+6) .NE. 0) GO TO 8\r\n 5070 I(L2+5) = 0\r\n 5075 I(3) = M(4)\r\n      IF (L.GE.3 .AND. MF(4).NE.0) GO TO 7\r\n      IF (L.LT.3 .AND. RM(5).LE.0.0) GO TO 8\r\n      I(4) = M(5)\r\n      N = 8\r\n      GO TO 2\r\nC\r\nC*****         236-PHBDY           *************************************\r\nC\r\n 5100 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LT. 0) GO TO 8\r\n      IF (RM(3) .LT. 0.0) GO TO 8\r\n      IF (RM(4).LT.0.0 .OR. RM(4).GT.1.0) GO TO 8\r\n      IF (RM(5).LT.0.0 .OR. RM(5).GT.1.0) GO TO 8\r\n      IF (MF(5) .EQ. 0) RM(5) = RM(4)\r\n      N = 7\r\n      GO TO 3\r\nC\r\nC*****         240-QBDY2           *************************************\r\nC\r\n 5150 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LE. 0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*****                  289-VIEW                 ***************\r\nC\r\n 5175 N = 6\r\n      IF (M(1) .GT. 0) GO TO 3\r\n      GO TO 8\r\nC\r\nC*****         241-QVECT           *************************************\r\nC\r\n 5200 IF (KM .NE. 0) GO TO 5215\r\n      IF (M(1) .LE. 0) BADDAT =.TRUE.\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR =.TRUE.\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      DO 5210 L = 3,6\r\n      IF (MF(L) .EQ. 1) GO TO 5205\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR =.TRUE.\r\n      I(L) = M(L)\r\n      GO TO 5210\r\n 5205 IF (M(L) .LT. 0) BADDAT =.TRUE.\r\n      I(L) = M(L)\r\n 5210 CONTINUE\r\n      L = 6\r\n      K914 = 209\r\n      GO TO 5216\r\n 5215 L  = 1\r\n 5216 KM = 1\r\n      KN = 1\r\n      N  = 6\r\n      L4 = L\r\n      IF (MF(L) .NE. 1) BADFOR =.TRUE.\r\n      IF (M(L4) .LE. 0) BADDAT =.TRUE.\r\n 5220 IF (L .EQ. 8) GO TO 5235\r\n      IF (MF(L)   .EQ. 3) GO TO 5225\r\n      IF (MF(L+1) .EQ. 0) GO TO 5234\r\n      IF (M(L4) .LE. 0) BADDAT =.TRUE.\r\n      I(N) = M(L4)\r\n      L  = L  + 1\r\n      L4 = L4 + 1\r\n      CALL WRITE (K914,I,N,0)\r\n      GO TO 5220\r\n 5225 IF (MF(L+1).NE.1 .OR. M(L4).NE.THRU) GO TO 5232\r\n      IF (M(L4-1) .GE. M(L4+2)) GO TO 5232\r\n      L1 = M(L4-1) + 1\r\n      L2 = M(L4+2) - 1\r\n      IF (L2 .LE. L1) GO TO 5230\r\n 5227 L3 = L1\r\n      I(N) = L3\r\n      CALL WRITE (K914,I,N,0)\r\n      L1 = L1 + 1\r\n      IF (L1 .LE. L2) GO TO 5227\r\n 5230 L  = L  + 1\r\n      L4 = L4 + 2\r\n      GO TO 5220\r\n 5232 BADDAT =.TRUE.\r\n      L  = L  + 1\r\n      L4 = L4 + 2\r\n      GO TO 5220\r\n 5234 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADFOR =.TRUE.\r\n 5235 IF (MF(L) .NE. 1) BADFOR =.TRUE.\r\n      I(N) = M(L4)\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      KN = 0\r\n      KM = 0\r\n      GO TO 9\r\nC\r\nC*****         257-CYJOIN       ***************************************\r\nC\r\n 5240 IF (KM .NE. 0) GO TO 5253\r\n      IF (M(1).NE.1 .AND. M(1).NE.2) BADDAT =.TRUE.\r\n      I(1) = M(1)\r\n      IF (MF(2) .EQ. 3) GO TO 5242\r\n      IF (MF(2) .NE. 0) BADFOR =.TRUE.\r\n      I(2) = BLK\r\n      L4 = 3\r\n      GO TO 5244\r\n 5242 IF (M(2).NE.BCDC .AND. M(2).NE.BCDR .AND. M(2).NE.BCDS .AND.\r\n     1    M(2).NE.IT1  .AND. M(2).NE.IT2  .AND. M(2).NE.IT3)\r\n     2    BADDAT=.TRUE.\r\n      I(2) = M(2)\r\n      L4 = 4\r\n 5244 KM = 1\r\n      I(3) = BLK\r\n      N = 3\r\n      L = 3\r\n      K914 = 210\r\n      IF (MF(L) .NE. 1) BADFOR =.TRUE.\r\n      IF (M(L4) .LE. 0) BADDAT =.TRUE.\r\n      GO TO 5252\r\nC\r\nC*****         258-CNGRNT          *************************************\r\nC\r\n 5245 IF (KM .NE. 0) GO TO 5253\r\n      K914 = 208\r\n      GO TO 5253\r\nC\r\nC*****         243-RADLST          *************************************\r\nC\r\n 5250 IF (KM .NE. 0) GO TO 5253\r\n      IF (IDRDL .EQ. 1) BADFOR =.TRUE.\r\n      IDRDL = 1\r\n      K914  = 214\r\n 5253 L  = 1\r\n      N  = 0\r\n 5251 KM = 1\r\n      L4 = L\r\n      IF (MF(L) .NE. 1) BADFOR =.TRUE.\r\n      IF (M(L4) .LE. 0) BADDAT =.TRUE.\r\n 5252 IF (L .GT. 8) GO TO 5260\r\n      IF (MF(L) .EQ. 0) GO TO 5262\r\n      IF (MF(L) .EQ. 3) GO TO 5254\r\n      IF (M(L4) .LE. 0) BADDAT =.TRUE.\r\n      IF (N .LT. 49) GO TO 5255\r\n      CALL WRITE (K914,I,N,0)\r\n      N = 0\r\n 5255 N = N + 1\r\n      I(N) = M(L4)\r\n      L  = L  + 1\r\n      L4 = L4 + 1\r\n      GO TO 5252\r\n 5254 IF (L .EQ. 8) GO TO 5258\r\n      IF (MF(L+1).NE.1 .OR. M(L4).NE.THRU) GO TO 5258\r\n      IF (M(L4-1) .GE. M(L4+2)) GO TO 5258\r\n      L1 = M(L4-1) + 1\r\n      L2 = M(L4+2)\r\n 5256 L3 = L1\r\n      IF (N .LT. 49) GO TO 5257\r\n      CALL WRITE (K914,I,N,0)\r\n      N = 0\r\n 5257 N = N + 1\r\n      I(N) = L3\r\n      L1 = L1 + 1\r\n      IF (L1 .LE. L2) GO TO 5256\r\n      L  = L  + 2\r\n      L4 = L4 + 3\r\n      GO TO 5252\r\n 5258 BADDAT =.TRUE.\r\n      L  = L  + 1\r\n      L4 = L4 + 2\r\n      GO TO 5252\r\n 5260 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 5266\r\n 5261 KM = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      KN = 0\r\n      GO TO 9\r\n 5262 DO 5264 L2 = L,8\r\n      IF (MF(L2) .NE. 0) BADFOR =.TRUE.\r\n 5264 CONTINUE\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 5261\r\n      BADFOR =.TRUE.\r\n 5266 KN = 1\r\n      GO TO 9\r\nC\r\nC*****         268-SET1       ******************************************\r\nC\r\n 5300 IF (KM .NE. 0) GO TO 5253\r\n      IF (MF(1) .NE. 1) BADFOR =.TRUE.\r\n      I(1) = M(1)\r\n      N = 1\r\n      L = 2\r\n      K914 = 204\r\n      GO TO 5251\r\nC\r\nC*****       291-CTRIM6         ****************************************\r\nC\r\n 6101 IF (M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0 .OR.\r\n     1    M(7).LE.0 .OR. M(8).LE.0) GO TO 8\r\n      IF (M(3).EQ.M(4) .OR. M(3).EQ.M(5) .OR. M(3).EQ.M(6) .OR.\r\n     1    M(3).EQ.M(7) .OR. M(3).EQ.M(8) .OR. M(4).EQ.M(5) .OR.\r\n     2    M(4).EQ.M(6) .OR. M(4).EQ.M(7) .OR. M(4).EQ.M(8)) GO TO  8\r\n      IF (M(5).EQ.M(6) .OR. M(5).EQ.M(7) .OR. M(5).EQ.M(8) .OR.\r\n     1    M(6).EQ.M(7) .OR. M(6).EQ.M(8) .OR. M(7).EQ.M(8)) GO TO 8\r\n      DO 6102 L = 1,8\r\n      IF (MF(L) .NE. 1) GO TO 7\r\n 6102 CONTINUE\r\n      IF (MF(9).NE.0 .AND. MF(9).NE.2) GO TO 7\r\n      IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      N = 9\r\n      GO TO 2903\r\nC\r\nC*****       292-PTRIM6         ****************************************\r\nC\r\n 6201 IF (M(2).LT.0 .OR. RM(3).LT.0.0 .OR. RM(4).LT.0.0 .OR.\r\n     1    RM(5).LT.0.0) GO TO 8\r\n      IF (RM(3) .EQ. 0.0)  GO TO  8\r\n      IF (MF(1).NE.1 .AND. MF(2).NE.1) GO TO 7\r\n      IF (MF(3) .NE. 2) GO TO 7\r\n      DO 6202 L = 4,6\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7\r\n 6202 CONTINUE\r\n      N = 6\r\n      GO TO 2906\r\nC\r\nC*****       293-CTRPLT1        ****************************************\r\nC\r\n 6301 GO TO 6101\r\nC\r\nC*****       294-PTRPLT1        ****************************************\r\nC\r\n 6401 IF (M(2).LT.0 .OR. M(6).LT.0 .OR. M(2).EQ.0 .AND. M(6).EQ.0)\r\n     1   GO TO 8\r\n      IF (M(2).EQ.0  .AND. M(3).NE.0 ) GO TO 8\r\n      IF (M(6).EQ.0  .AND. M(7).NE.0 ) GO TO 8\r\n      IF (MF(1).NE.1 .AND. MF(2).NE.1) GO TO 7\r\n      IF (MF(6).NE.0 .AND. MF(6).NE.1) GO TO 7\r\n      IF (MF(3) .NE. 2) GO TO 7\r\n      IF (MF(4).NE.0 .AND. MF(4).NE.2) GO TO 7\r\n      IF (MF(5).NE.0 .AND. MF(5).NE.2) GO TO 7\r\n      DO 6402 L = 7,16\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7\r\n 6402 CONTINUE\r\n      N = 16\r\n      GO TO 2906\r\nC\r\nC*****       295-CTRSHL         ****************************************\r\nC\r\n 7501 GO TO 6101\r\nC\r\nC*****       296-PTRSHL         ****************************************\r\nC\r\n 7601 CONTINUE\r\n      IF (M(2).LT.0 .OR. M(6).LT.0 .OR. M(10).LT.0 .OR. M(2).EQ.0 .AND.\r\n     1    M(6).EQ.0 .AND. M(10).EQ.0) GO TO 8\r\n      IF (M(2).EQ.0 .AND. RM(3).NE.0.0) GO TO 8\r\n      IF (M(6).EQ.0 .AND. RM(7).NE.0.0) GO TO 8\r\n      IF (M(10).EQ.0 .AND. RM(11).NE.0.0) GO TO 8\r\n      IF (RM(3).LT.0.0 .OR. RM(4).LT.0.0 .OR. RM(5).LT.0.0) GO TO 8\r\n      IF (RM(7).LT.0.0 .OR. RM(8).LT.0.0 .OR. RM(9).LT.0.0) GO TO 8\r\n      IF (RM(11).LT.0.0 .OR. RM(12).LT.0.0 .OR. RM(13).LT.0.0) GO TO 8\r\n      IF (MF(10).NE.0 .AND. MF(10).NE.1) GO TO 7\r\n      IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2).NE.0 .AND. MF(2).NE.1) GO TO 7\r\n      IF (MF(6).NE.0 .AND. MF(6).NE.1) GO TO 7\r\n      DO 7602 L = 3,11,4\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 7\r\n      IF (MF(L+1).NE.0 .AND. MF(L+1).NE.2) GO TO 7\r\n      IF (MF(L+2).NE.0 .AND. MF(L+2).NE.2) GO TO 7\r\n 7602 CONTINUE\r\n      N = 20\r\n      GO TO 2906\r\nC\r\nC*********     359-PPSE       ******************************************\r\nC\r\n 7700 N = 5\r\n      IF (M(1)  .LE.  0) GO TO 8\r\n      IF (RM(2) .EQ. 0.) GO TO 8\r\n      RM(3) = 0.0\r\n      RM(4) = 0.0\r\n      RM(5) = 0.0\r\n      GO TO 3\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ifs2p.f",
    "content": "      SUBROUTINE IFS2P (*,*,*)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,ORF\r\n      LOGICAL         ABORT,FLUSH,FLSHAL,EC,INT,DMIFLG,FPHYS,FPHYS1,\r\n     1                BADDAT,BADFOR,IAX,IAXF,FPHYS2,LHARM,SECD,FTHRU\r\n      INTEGER         NAM(2),ONM(2),NM(2),T(7),IHILL(2),IHOFF(2),\r\n     1                ITSAI(2),ISTRS(2),ISTRN(2),IALL(2),ISYM(2),\r\n     2                IMEM(2),ISYMM(2)\r\n      REAL            XM(100),Z(100),XL,XL1,X1,X2,ZSEQ,ZSEQ1,OLDXM3\r\n      DOUBLE PRECISION DA(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ KSYSTM(77)\r\n      COMMON /XPFIST/ IPFIST\r\n      COMMON /XFIST / IFIST(1)\r\n      COMMON /XFIAT / IFIAT(2)\r\n      COMMON /IFPX1 / NT1,T1(2,1)\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100),\r\n     1                M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,\r\n     2                IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6)\r\n      COMMON /ZBLPKX/ A(4),I0\r\n      COMMON /ZZZZZZ/ IBUF(1)\r\n      COMMON /CIFS2P/ FPHYS,FPHYS1,KM,DMIFLG,IBCDS,FTHRU,FPHYS2\r\n      COMMON /XDPL  / P(3)\r\n      COMMON /L15 L8/ L15,L8\r\nC\r\nC     P(1) = NEXT AVAILABLE FILE ON POOL\r\nC     P(2) = TOTAL NUMBER OF POSSIBLE ENTRYS\r\nC     P(3) = CURRENT NUMBER OF ENTRYS PRESENT\r\nC     P(4) - P(3*P(2)+3) = THREE WORDS FOR EACH ENTRY AS FOLLOWS...\r\nC            1.  NAME(1)\r\nC            2.  NAME(2)\r\nC            3.  EQUIV FLAG, SIZE/1000, FILE NO. ON POOL\r\nC\r\n      EQUIVALENCE   (KSYSTM( 1) , NBUF  )  , (KSYSTM(24) , ICFIAT) ,\r\n     1              (KSYSTM( 2) , NOUT  )  , (KSYSTM(55) , KPREC ) ,\r\n     2              (KSYSTM( 3) , ABORT )  , (KSYSTM(77) , BANDIT) ,\r\n     3              (NROWS,T(3)),(IFO,T(4)),(TY2,T(5)),(Z(1),I(1)) ,\r\n     4              (XM(1),M(1)),(DA(1),A(1))\r\nC\r\n      DATA   NAM    / 4HISF2,   4HP    /\r\n      DATA   ENDT   / 4HENDT /, SKIP   / 4HSKIP /, POOL   / 4HPOOL /\r\n      DATA   BCDBLK / 4H     /, BCDDET / 4HDET  /, BCDSDT / 4HSDET /,\r\n     1       BCDUDT / 4HUDET /, BCDINV / 4HINV  /, BCDSIN / 4HSINV /,\r\n     2       BCDUIN / 4HUINV /, BCDGIV / 4HGIV  /, BCDMGV / 4HMGIV /,\r\n     3       BCDHES / 4HHESS /, BCDFER / 4HFEER /, BCDMAS / 4HMASS /,\r\n     4       BCDMAX / 4HMAX  /, BCDPOI / 4HPOIN /,\r\n     5       BCDQ   / 4H-Q   /, BCDT   / 4HT    /, BCDZ   / 4H-X   /,\r\n     6       BCDLL  / 4HLL   /, BCDSL  / 4HSL   /, BCDLS  / 4HLS   /\r\n      DATA   THRU   / 4HTHRU /, EIGR   / 4HEIGR /, EIGB   / 4HEIGB /\r\n      DATA   DMI    / 4H DMI /, DTI    / 4H DTI /, DMIG   / 4HDMIG /\r\n      DATA   ENDRC1,  ENDRC2 /  4HENDR , 4HEC   /\r\n      DATA   ISCR1  / 301    /, ICOMP  / 1      /\r\n      DATA   IHILL  , IHOFF   , ITSAI  , ISTRS   , ISTRN  /\r\n     1       4HHILL , 4H      , 4HHOFF , 4H      , 4HTSAI , 4H      ,\r\n     2       4HSTRE , 4HSS    , 4HSTRA , 4HIN   /\r\n      DATA   IALL   , ISYM    , IMEM   , ISYMM  /\r\n     1       4HALL  , 4H      , 4HSYM  , 4H      , 4HMEM  , 4H      ,\r\n     2       4HSYMM , 4HEM   /\r\n      DATA   IYES,    INO    /  4HYES  , 4HNO   /\r\nC\r\nC     =======================================================\r\nC     DMI AND DMIG MUST ACCOMODATE ALL KINDS OF SPECIAL FORMS\r\nC     E.G., IDENTITY MATRIX\r\nC     =======================================================\r\nC\r\n      IF (K .GT. 100) GO TO 81\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5, 850, 850, 870,   5, 890,   5,\r\n     9            5,   5, 920, 920, 920, 960, 920,   5,   5,   5 ), K\r\n   81 IF (KX .GT. 100) GO TO 82\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,1190,1200,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5, 920, 920,   5,   5,   5,   5,   5, 920,\r\n     4          960,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5, 920,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5,1000,   5,   5,\r\n     9          920,2900,   5,   5,   5,   5,   5,   5,   5,2000 ), KX\r\n   82 IF (KY .GT. 100) GO TO 83\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6         3100,3300,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,4100,\r\n     8         4300,4500,4700,   5,   5,   5,   5,   5,   5,   5,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5,   5,   5 ), KY\r\n   83 KZ = K - 300\r\n      IF (KZ .GT. 60) GO TO 5\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,3200,   5,   5, 920,   5,   5,   5 ), KZ\r\n    5 CALL PAGE2 (2)\r\n      WRITE  (NOUT,6) SFM\r\n    6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS2P.')\r\n      ABORT  =.TRUE.\r\n      RETURN 1\r\n    7 BADFOR =.TRUE.\r\n      RETURN 1\r\n    8 BADDAT =.TRUE.\r\n      RETURN 1\r\n    3 DO 4 L = 1,N\r\n    4 I(L) = M(L)\r\n    2 RETURN\r\n    9 RETURN 3\r\nC\r\nC*******       85-EIGR, 86-EIGB      ***********************************\r\nC\r\n  850 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(3).NE.BCDBLK .AND. M(2).NE.BCDFER) GO TO 8\r\n      IF (M(2).NE.BCDDET .AND. M(2).NE.BCDSDT .AND. M(2).NE.BCDUDT .AND.\r\n     1    M(2).NE.BCDINV .AND. M(2).NE.BCDSIN .AND. M(2).NE.BCDUIN .AND.\r\n     2    M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER)\r\n     3    GO TO 8\r\n      IF (M(2).EQ.BCDFER .AND. (M(3).NE.BCDBLK .AND. M(3).NE.BCDQ .AND.\r\n     1    M(3).NE.BCDZ)) GO TO 8\r\n      IF (M(10)+M(11) .EQ. 0) GO TO 852\r\n      IF (M(10).NE.BCDBLK .OR. M(11).NE.BCDBLK) GO TO 860\r\n  852 NM(1) = EIGR\r\n      NM(2) = BCDMAS\r\n      IF (K .EQ. 85) GO TO 855\r\n      NM(1) = EIGB\r\n      NM(2) = BCDMAX\r\n  855 M(10) = NM(2)\r\n      M(12) = 0\r\n      M(13) = 0\r\n      CALL MESAGE (30,222,NM)\r\n      GO TO 865\r\n  860 IF ((M(10).NE.BCDMAS .OR. M(11).NE.BCDBLK) .AND.\r\n     1    (M(10).NE.BCDMAX .OR. M(11).NE.BCDBLK) .AND.\r\n     2    (M(10).NE.BCDPOI .OR. M(11).NE.BCDT )) GO TO 8\r\n      IF (M(10).NE.BCDPOI .AND. (M(12).NE.0 .OR. M(13).NE.0)) GO TO 8\r\n      IF (M(10).EQ.BCDPOI .AND. (M(12).LE.0 .OR. M(13).LT.0)) GO TO 8\r\n  865 IF (M(6).EQ.0 .AND. M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND.\r\n     1    M(2).NE.BCDFER) GO TO 8\r\n      IF (K.EQ.86 .AND. (M(2).EQ.BCDGIV .OR. M(2).EQ.BCDMGV)) GO TO 8\r\n      IF ((M(2).EQ.BCDDET .OR. M(2).EQ.BCDSDT) .AND. XM(4).LT.0.0)\r\n     1    GO TO 8\r\n      IF (M(2).EQ.BCDUDT .AND. XM(4).LT.0.0) GO TO 8\r\n      IF (K.EQ.85 .AND. M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND.\r\n     1    XM(4).LT.0.0) GO TO 8\r\n      IF (M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER .AND.\r\n     1    XM(5).LE.0.0) GO TO 8\r\n      IF (M(2).NE.BCDGIV .AND. M(2).NE.BCDMGV .AND. M(2).NE.BCDFER .AND.\r\n     1    XM(4).GE.XM(5)) GO TO 8\r\n      N = 18\r\n      GO TO 3\r\nC\r\nC*****         87-EIGC          **************************************\r\nC\r\n  870 IF (KM .NE. 0) GO TO 872\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.3 .OR. MF(3).NE.3 .OR. MF(4).NE.1\r\n     1   .AND. MF(4).NE.0 .OR. MF(5).NE.1 .AND. MF(5).NE.0 .OR.\r\n     2   MF(6).NE.2 .AND. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0)\r\n     3   GO TO 875\r\n      IF (M(1).LE.0 .OR. M(2).NE.BCDDET .AND. M(2).NE.BCDINV .AND.\r\n     1    M(2).NE.BCDHES .AND. M(2).NE.BCDFER .OR. M(4).NE.BCDMAX .AND.\r\n     2   (M(4).NE.BCDPOI .OR. M(5).NE.BCDT) .OR. XM(8).LT.0.) GO TO 875\r\n      IF (M(4).EQ.BCDMAX .AND. (M(6).NE.0 .OR. M(7).NE.0)) GO TO 875\r\n      IF (M(4).EQ.BCDPOI .AND. (M(6).LE.0 .OR. M(7).LT.0)) GO TO 875\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 875\r\n      N = 10\r\n  874 DO 871 L = 1,N\r\n  871 I(L) = M(L)\r\n      GO TO 876\r\n  872 DO 873 L = 1,5\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) GO TO 875\r\n  873 CONTINUE\r\n      IF (MF(6).NE.1 .AND. MF(6).NE.0 .OR. MF(7).NE.1 .AND. MF(7).NE.0\r\n     1   .OR. MF(8).NE.0) GO TO 875\r\n      IF (XM(5) .LE. 0.) XM(5) = 1.0\r\n      IF (M(6).LT.0 .OR. M(7).LT.0) GO TO 875\r\n      N = 7\r\n      GO TO 874\r\n  875 BADDAT = .TRUE.\r\n  876 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 877\r\n      DO 878 L = 1,7\r\n      N = N + 1\r\n  878 I(N) =-1\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\n  877 KN = 1\r\n      KM = 1\r\n      GO TO 9\r\nC\r\nC*******       -BLANK CARD-        *************************************\r\nC\r\n  890 IF (IBCDS .NE. 0)RETURN 2\r\n      IBCDS = 1\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,891) UWM\r\n  891 FORMAT (A25,' 324, BLANK CARD(S) IGNORED.')\r\n      RETURN 2\r\nC\r\nC*******       93- TABLEM1, 94-TABLEM2, 95-TABLEM3  ********************\r\nC              133-TABLED1,134-TABLED2,140-TABLED3\r\nC              162-TABDMP1, 97-TABLES1,191-TABRND1\r\nC              357-TABLEM5\r\nC                 (TABLEM5 IS DESIGNED FOR THERMAL COEFFICIENT WHICH IS\r\nC                          FUNCTION OF TIME\r\nC                          THIS PROJECT TEMPORARY HALTS HERE  6/90)\r\nC\r\n  920 IF (KM .NE. 0) GO TO 933\r\n      I2 = M(1)\r\n      ITEMS = 0\r\n      N = 8\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      IF (MF(1).NE. 1) BADFOR = .TRUE.\r\n      I(1) = I2\r\n      DO 925 L = 2,7\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) BADFOR = .TRUE.\r\n  925 I(L) = M(L)\r\nC\r\nC     LOGARITHMIC SCALE\r\nC     I(8) = 0, LINEAR-LINEAR SCALE (ALL TABLES)\r\nC          = 1, LOG-LOG SCALE (TABLE-1 ONLY)\r\nC          = 2, LINEAR-LOG SCALE (TABLE-1, TABLE-2 AND TABLE-3)\r\nC          = 3, LOG-LINEAR SCALE (TABLE-1 ONLY)\r\nC     TABLE-1 INCLUDES TABLED1, TABLEM1, TABLES1, TABDMP1 AND TABRND1\r\nC     TABLE-2 INCLUDES TABLED2 AND TABLEM2\r\nC\r\n      I(8) = 0\r\n      IF (MF(8).NE. 3) GO TO 930\r\n      IF (M(8) .EQ. BCDLL) I(8) = 1\r\n      IF (M(8) .EQ. BCDSL) I(8) = 2\r\n      IF (M(8) .EQ. BCDLS) I(8) = 3\r\n      IF (M(8).NE.BCDSL .AND. (K.EQ.94 .OR. K.EQ.95 .OR. K.EQ.134 .OR.\r\n     1    K.EQ.140)) BADDAT = .TRUE.\r\nC\r\n  930 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 932\r\n      KN = 1\r\n      KM = 1\r\n      GO TO 966\r\n  932 BADDAT = .TRUE.\r\n      KN = 0\r\n      KM = 0\r\n      GO TO 966\r\n  933 L1 = 0\r\n      DO 955 L = 1,7,2\r\n      IF (MF(L).EQ.3 .OR. MF(L+1).EQ.3) GO TO 937\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2 .OR. MF(L+1).NE.0 .AND.\r\n     1   MF(L+1).NE.2) GO TO 943\r\n      ITEMS = ITEMS + 1\r\n      N  = N + 2\r\n      L1 = L1 + 2\r\n      I(N-1) = M(L1-1)\r\n      I(N  ) = M(L1  )\r\n      IF (ITEMS .GT. 2) GO TO 935\r\n      IF (ITEMS .GT. 1) GO TO 934\r\n      X1 = Z(N-1)\r\n      XL = X1\r\n      GO TO 936\r\n  934 X2  = Z(N-1)\r\n      XL1 = XL\r\n      XL  = X2\r\n      ZSEQ= SIGN(1.0,X2-X1)\r\n      IF (X2 .EQ. X1) BADDAT = .TRUE.\r\n      GO TO 936\r\n  935 XL1 = XL\r\n      XL  = Z(N-1)\r\n      ZSEQ1 = SIGN(1.0,XL-XL1)\r\n      IF (ZSEQ1.NE.ZSEQ .AND. XL.NE.XL1) BADDAT = .TRUE.\r\n  936 GO TO 955\r\n  937 IF (MF(L) .EQ. 3) GO TO 938\r\n      L1  = L1 + 1\r\n      LP1 = L1\r\n      KWORD1 = 0\r\n      GO TO 939\r\n  938 L1  = L1 + 2\r\n      LP1 = L1 - 1\r\n      KWORD1 = M(LP1)\r\n  939 IF (MF(L+1) .EQ. 3) GO TO 941\r\n      L1  = L1 + 1\r\n      LP2 = L1\r\n      KWORD2 = 0\r\n      GO TO 942\r\n  941 L1  = L1 + 2\r\n      LP2 = L1 - 1\r\n      KWORD2 = M(LP2)\r\n  942 IF (KWORD1.EQ.ENDT .OR. KWORD2.EQ.ENDT) GO TO 961\r\n      IF (KWORD1.EQ.SKIP .OR. KWORD2.EQ.SKIP) GO TO 955\r\n      BADDAT = .TRUE.\r\n      GO TO 956\r\n  955 CONTINUE\r\n      GO TO 956\r\n  943 BADFOR = .TRUE.\r\n      GO TO 956\r\n  956 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 966\r\n      KN = 0\r\n      KM = 0\r\n      BADDAT = .TRUE.\r\n      GO TO 966\r\n  961 N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      IF (XL  .EQ. XL1) BADDAT = .TRUE.\r\n      IF (ITEMS .LT. 2) BADDAT = .TRUE.\r\n  958 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 965\r\n      KN = 0\r\n      KM = 0\r\n      GO TO 966\r\n  965 KN = 1\r\n      KM = 1\r\n      BADDAT = .TRUE.\r\n  966 IF (BADDAT .OR. BADFOR) GO TO 968\r\n      GO TO 2\r\n  968 M(1) = I2\r\n      GO TO 8\r\nC\r\nC*******      96-TABLEM4, 141-TABLED4     ******************************\r\nC\r\n  960 IF (KM .NE. 0) GO TO 964\r\n      ITEMS = 0\r\n      I2 = M(1)\r\n      N  = 8\r\n      IF (M(1)  .LE. 0) BADDAT = .TRUE.\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      I(1) = I2\r\n      IF (M(3) .EQ. 0) BADDAT = .TRUE.\r\n      DO 962 L = 2,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2 .OR. L.GE.6 .AND. MF(L).NE.0)\r\n     1   BADFOR = .TRUE.\r\n  962 I(L) = M(L)\r\n      I(8) = 0\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 963\r\n      KN = 1\r\n      KM = 1\r\n      GO TO 966\r\n  963 BADDAT = .TRUE.\r\n      KN = 0\r\n      KM = 0\r\n      GO TO 966\r\n  964 L1 = 0\r\n      DO 967 L = 1,8\r\n      KWORD1 = 0\r\n      IF (MF(L) .EQ. 3) GO TO 969\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) GO TO 943\r\n      N = N + 1\r\n      ITEMS = ITEMS + 1\r\n      L1   = L1 + 1\r\n      I(N) = M(L1)\r\n      GO TO 967\r\n  969 L1 = L1 + 2\r\n      KWORD1 = M(L1-1)\r\n      IF (KWORD1 .EQ. ENDT) GO TO 959\r\n      BADDAT = .TRUE.\r\n      GO TO 956\r\n  967 CONTINUE\r\n      GO TO 956\r\n  959 N = N + 1\r\n      I(N) = -1\r\n      IF (ITEMS .LT. 1) BADDAT = .TRUE.\r\n      GO TO 958\r\nC\r\nC*****     188-TABRNDG       **************************************\r\nC\r\n 1000 IF (M(1) .LT. 0) GO TO 8\r\n      IF (M(2).LT.1 .OR. M(2).GT.2) GO TO 8\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      I(4) = M(4)\r\n      I(5) = 0\r\n      I(6) = 0\r\n      I(7) = 0\r\n      I(8) = 0\r\n      I(9) =-1\r\n      I(10)=-1\r\n      N    = 10\r\n      GO TO 2\r\nC\r\nC******         119-DMI          ************************************\r\nC\r\n 1190 IF (KM .NE. 0) GO TO 8150\r\n      IF (FPHYS) GO TO 8005\r\n      IF (M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 8100\r\n      ASSIGN 8010 TO R\r\n      GO TO 8973\r\n 8005 IF (P(1) .GT. 1) DMIFLG = .TRUE.\r\n      FPHYS = .FALSE.\r\n      NM(1) = 0\r\n      NM(2) = 0\r\n      IF (BANDIT.NE.-1 .AND. BANDIT.NE.-2) BANDIT = +9\r\n 8010 FLUSH = .FALSE.\r\n      FLSHAL= .FALSE.\r\n      EC    = .TRUE.\r\n      SECD  = .FALSE.\r\n      T(1)  = ISCR1\r\n      DO 8012 L = 2,7\r\n 8012 T(L) = 0\r\n      IF (M(3) .NE. 0) FLUSH = .TRUE.\r\n      ONM(1) = NM(1)\r\n      ONM(2) = NM(2)\r\n      IF (MF(1).NE.3 .OR. M(1).EQ.ONM(1) .AND. M(2).EQ.ONM(2))\r\n     1    FLUSH = .TRUE.\r\n      NM(1)  = M(1)\r\n      NM(2)  = M(2)\r\n      IPRINT = 0\r\n      J0     = 0\r\n      IF (P(1) .LE. P(2)) GO TO 8020\r\n      FLUSH  = .TRUE.\r\n      FLSHAL = .TRUE.\r\n 8020 ASSIGN 8025 TO R1\r\n      ASSIGN 8030 TO R\r\n      GO TO 200\r\n 8025 FLUSH = .TRUE.\r\n 8030 IF (FLUSH) GO TO 8960\r\n      IFO = M(4)\r\n      TY1 = M(5)\r\n      TY2 = M(6)\r\n      IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.1) TY2 = TY1 + KPREC - 1\r\n      IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.0) TY2 = TY1\r\n      IF (MACH .NE. 12) GO TO 8033\r\n      IF (TY2.EQ.2 .OR. TY2.EQ.4) TY2 = TY2 - 1\r\n 8033 CONTINUE\r\n      IF (TY1.LT.1 .OR. TY1.GT.4 .OR. TY2.LT.1 .OR. TY2.GT.4) GO TO 8950\r\n      IF (TY1.GE.3 .AND. TY2.LE.2) WRITE (NOUT,8035) UWM,DMI,NAM(1),\r\n     1                                               NAM(2),KNT\r\n 8035 FORMAT (A25,' 327A, ',A4,' CARD ',2A4,', SORTED CARD COUNT =',I7,\r\n     1       ' SPECIFYING COMPLEX DATA INPUT', /5X,\r\n     2       'AND REAL MATRIX OUTPUT MAY NOT MAKE SENSE',/)\r\n      NROWS = M(8)\r\n      NCOLS = M(9)\r\n      IF (IFO   .GT. 8) GO TO 8950\r\n      IF (MF(6) .NE. 0) GO TO 8950\r\n      IF (NROWS.LE.0 .OR. NCOLS.LE.0) GO TO 8950\r\n      IF ((IFO.EQ.1 .OR. IFO.EQ.6 .OR. IFO.EQ.8) .AND. (NROWS.NE.NCOLS))\r\n     1   GO TO 8950\r\n      NBUF2 = 2*NBUF\r\n      CALL OPEN (*9997,ISCR1,IBUF(NBUF2+1),1)\r\n      CALL WRITE (ISCR1,NM,2,1)\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 8950\r\n      IF (IFO .EQ. 8) GO TO 8040\r\n      IF (M1(1).NE.T1(1,K) .OR. M1(2).NE.T1(2,K)) GO TO 8950\r\n      GO TO 8960\r\n 8040 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND.\r\n     1    M1(3).EQ.NM(1)   .AND. M1(4).EQ.NM(2) ) GO TO 8950\r\n      GO TO 8960\r\n 8100 IF (.NOT.EC) GO TO 8950\r\n      IF (FLUSH) GO TO 8960\r\n      EC = .FALSE.\r\n      IF (M(3) .LE. J0) GO TO 8950\r\n 8130 J0 = J0 + 1\r\n      IF (M(3) .EQ. J0) GO TO 8140\r\n      CALL BLDPK (TY1,TY2,ISCR1,0,0)\r\n      CALL BLDPKN (ISCR1,0,T)\r\n      GO TO 8130\r\n 8140 I0 = 1\r\n      L1 = 4\r\n      L1F=-1\r\n      L2 = 9\r\n      IF (TY1.EQ.2 .OR. TY1.EQ.4) L2 = 14\r\n      IF (MF(3).NE.1 .OR. M(4).LT.I0) GO TO 8950\r\n      I0  = M(4) - 1\r\n      INT = .FALSE.\r\n      CALL BLDPK (TY1,TY2,ISCR1,0,0)\r\n      GO TO 8155\r\n 8150 IF (J0.LE.0 .OR. J0.GT.NCOLS) GO TO 8950\r\n      L1  = 1\r\n      L1F = 0\r\n      L2  = 8\r\n      IF (TY1.EQ.2 .OR. TY1.EQ.4) L2 = 16\r\n 8155 L  = L1\r\n 8156 LF = L + L1F\r\n      IF (FTHRU) GO TO 8192\r\n      IF (MF(LF) .EQ. 0) GO TO 8300\r\n      IF (MF(LF).EQ.2 .OR. MF(LF).EQ.4) GO TO 8180\r\n      IF (MF(LF) .EQ. -32767) GO TO 8291\r\n      IF (INT) GO TO 8950\r\n      IF (MF(LF) .EQ. 3) GO TO 8191\r\n      IF (MF(LF).NE.1 .OR. M(L).LT.I0 .OR. M(L).GT.NROWS) GO TO 8950\r\n      I0  = M(L)\r\n      INT = .TRUE.\r\n      GO TO 8290\r\n 8180 GO TO (8181,8182,8183,8184), TY1\r\nC   . REAL SINGLE PRECISION\r\n 8181 IF (MF(LF) .EQ. 4) GO TO 8950\r\n      IF (FLUSH .OR. M(L) .EQ. 0) GO TO 8190\r\n      A(1) = M(L)\r\n      GO TO 8185\r\nC   . REAL DOUBLE PRECISION\r\n 8182 IF (MF(LF) .EQ. 2) GO TO 8950\r\n      A(1) = M(L  )\r\n      A(2) = M(L+1)\r\n      L    = L + 1\r\n      L1F  = L1F - 1\r\n      IF (FLUSH .OR. DA(1).EQ.0.0D0) GO TO 8190\r\n      GO TO 8185\r\nC   . COMPLEX SINGLE PRECISION\r\n 8183 IF (MF(LF) .EQ. 4) GO TO 8950\r\n      IF (SECD) GO TO 8186\r\n      A(1) = M(L)\r\n      SECD = .TRUE.\r\n      GO TO 8290\r\n 8186 A(2) = M(L)\r\n      SECD = .FALSE.\r\n      IF (A(1).EQ.0 .AND. A(2).EQ.0 .OR. FLUSH) GO TO 8190\r\n      GO TO 8185\r\nC   . COMPLEX DOUBLE PRECISION\r\n 8184 IF (MF(LF) .EQ. 2) GO TO 8950\r\n      IF (SECD) GO TO 8187\r\n      A(1) = M(L  )\r\n      A(2) = M(L+1)\r\n      L    = L + 1\r\n      L1F  = L1F - 1\r\n      SECD = .TRUE.\r\n      GO TO 8290\r\n 8187 A(3) = M(L  )\r\n      A(4) = M(L+1)\r\n      L    = L + 1\r\n      L1F  = L1F - 1\r\n      SECD = .FALSE.\r\n      IF (FLUSH .OR. DA(1).EQ.0.0D0 .AND. DA(2).EQ.0.0D0) GO TO 8190\r\nC\r\nC     PACK AN ELEMENT\r\nC\r\n 8185 CALL ZBLPKI\r\n 8190 INT = .FALSE.\r\n      I0  = I0 + 1\r\n      IF (I0 .GT. NROWS) GO TO 8300\r\n      IF (L+1   .GT. L2) GO TO 8290\r\n      IF (MF(LF+1) .NE. 3) GO TO 8290\r\n      L = L + 1\r\n 8191 IF (M(L) .NE. THRU) GO TO 8950\r\n      FTHRU = .TRUE.\r\n      L1F = L1F - 1\r\n      L2  = L2  + 1\r\n      L   = L   + 1\r\n      IF (L .GE. L2) GO TO 8291\r\n      L  = L + 1\r\n      LF = L + L1F\r\n 8192 IF (MF(LF).NE.1 .OR. M(L).LT.I0 .OR. M(L).GT.NROWS) GO TO 8950\r\n 8193 CALL ZBLPKI\r\n      I0 = I0 + 1\r\n      IF (I0 .LE. M(L)) GO TO 8193\r\n      FTHRU = .FALSE.\r\n      IF (I0 .GT. NROWS) GO TO 8300\r\n 8290 L = L + 1\r\n      IF (L .LE. L2) GO TO 8156\r\n 8291 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR. INT) GO TO 8960\r\n      GO TO 8315\r\n 8300 IF (L .EQ. L2) GO TO 8310\r\n      LF = LF + 1\r\n      DO 8305 LX = LF,8\r\n      IF (MF(LX) .EQ. -32767) GO TO 8310\r\n      IF (MF(LX) .NE. 0) GO TO 8950\r\n 8305 CONTINUE\r\n 8310 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 8950\r\n 8315 IF (FLUSH) GO TO 8320\r\n      IF (SECD ) GO TO 8950\r\n      IF (FTHRU) GO TO 8950\r\n      CALL BLDPKN (ISCR1,0,T)\r\n 8320 EC = .TRUE.\r\n      GO TO 8960\r\n 8950 FLUSH = .TRUE.\r\n 8960 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR. M1(1).EQ.T1(1,K) .AND.\r\n     1    M1(2).EQ.T1(2,K)) GO TO 8970\r\n      ASSIGN 8970 TO R\r\n      GO TO 8973\r\n 8970 N = 0\r\n      IF (.NOT.FLUSH .OR. IPRINT.NE.0) GO TO 1226\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,8971) UFM,NM(1),NM(2),KNT\r\n 8971 FORMAT (A23,' 325, BAD DATA OR FORMAT OR NON-UNIQUE NAME. DMI ',\r\n     1        2A4,10X,' SORTED CARD COUNT =',I7)\r\n      IPRINT = 1\r\n      GO TO 1226\r\n 8973 IF (FLSHAL) GO TO 8993\r\n      IF (FLUSH ) GO TO 8987\r\n      IF (IFO .EQ. 8) GO TO 8995\r\n 8975 J0 = J0 + 1\r\n      IF (J0 .GT. NCOLS) GO TO 8977\r\n      CALL BLDPK  (TY1,TY2,ISCR1,0,0)\r\n      CALL BLDPKN (ISCR1,0,T)\r\n      GO TO 8975\r\n 8977 IF (NCOLS .EQ. T(2)) GO TO 8978\r\n      FLUSH = .TRUE.\r\n      GO TO 8987\r\n 8978 CONTINUE\r\n      CALL CLOSE (ISCR1,1)\r\n      CALL WRTTRL (T)\r\n      CALL RDTRL  (T)\r\n      IF (ICFIAT .EQ. 11) GO TO 8982\r\n      DO 8980 LX = 1,3\r\n 8980 T(LX+1) = ORF(LSHIFT(T(2*LX),16),T(2*LX+1))\r\n      J = 3\r\n      GO TO 8985\r\n 8982 J = 6\r\n 8985 CALL WRITE (POOL,NM,2,0)\r\n      CALL WRITE (POOL,T(2),J,1)\r\n      IF (L8 .NE. 0) WRITE (NOUT,8986) NM,DMI,(T(IP+1),IP=1,J)\r\n 8986 FORMAT ('0*** DIAG  8 MESSAGE -- TRAILER FOR DATA BLOCK ',2A4,\r\n     1        ' (VIA ',A4,' CARDS) = ',5I7,I9)\r\n      CALL GOPEN (ISCR1,IBUF(2*NBUF+1),2)\r\n      CALL CPYFIL (ISCR1,POOL,IBUF(3*NBUF+1),NOPEN,NWORDS)\r\n      CALL CLOSE (ISCR1,1)\r\n      CALL EOF (POOL)\r\n      DMIFLG = .TRUE.\r\n      P(1) = P(1) + 1\r\n 8987 IP   = 3*P(3) + 4\r\n      P(IP  ) = NM(1)\r\n      P(IP+1) = NM(2)\r\n      IF (FLUSH) NWORDS = 0\r\n      P(IP+2) = ORF(LSHIFT(NWORDS/1000,16),P(1)-1)\r\n      P(3   ) = P(3) + 1\r\n      IF (.NOT.FLUSH) GO TO 8992\r\n      CALL CLOSE (ISCR1,1)\r\n      CALL EOF (POOL)\r\n      P(1) = P(1) + 1\r\n      CALL SKPFIL (POOL,-1)\r\n      IF (DMIFLG) CALL EOF (POOL)\r\n 8990 ABORT = .TRUE.\r\n 8992 GO TO R, (8010,8970)\r\n 8993 WRITE  (NOUT,8994) SFM,NM(1),NM(2)\r\n 8994 FORMAT (A25,' 326, NO ROOM IN /XDPL/ FOR DMI ',2A4)\r\n      CALL PAGE2 (2)\r\n      GO TO 8990\r\n 8995 T(2) = NCOLS\r\n      GO TO 8978\r\n 9997 CALL MESAGE (-1,ISCR1,NM)\r\nC\r\nC******          120-DMIG          ********************************\r\nC\r\n 1200 IF (.NOT.FPHYS1) GO TO 1202\r\n      FPHYS1 = .FALSE.\r\n      NM(1)  = 0\r\n      NM(2)  = 0\r\n 1202 IERR   = 0\r\n      IF (KM   .NE. 0) GO TO 1208\r\n      IF (M(3) .EQ. 0) GO TO 1206\r\n      IF (M(1).NE.NM(1) .OR. M(2).NE.NM(2)) GO TO 1218\r\n      IF (MF(2).NE.1 .OR. MF(3).NE.1 .AND. MF(3).NE.0) GO TO 1218\r\n      IF (M(3).LE.0 .OR. M(4).LT.0 .OR. M(4).GT.6) GO TO 1218\r\n      IF (MF(4) .NE. 0) GO TO 1218\r\n      IF (MF(5).NE.1 .OR. MF(6).NE.1 .AND. MF(6).NE.0) GO TO 1218\r\n      IF (M(6).LE.0 .OR. M(7).LT.0 .OR. M(7).GT.6) GO TO 1218\r\n      IF (MF(7)+ITY1.NE.4 .AND. MF(7).NE.0) GO TO 1218\r\n      IF ((TY1.EQ.1 .OR.  TY1.EQ.2)  .AND. MF(8).NE.0 .OR.\r\n     1     TY1.EQ.3 .AND. MF(8).NE.2 .AND. MF(8).NE.0 .OR.\r\n     2     TY1.EQ.4 .AND. MF(8).NE.4 .AND. MF(8).NE.0) GO TO 1218\r\n      N = 5\r\n      I(N-4) = M(3)\r\n      I(N-3) = M(4)\r\n      I(N-2) = M(6)\r\n      I(N-1) = M(7)\r\n      I(N  ) = M(8)\r\n      IF (TY1 .EQ. 1) GO TO 1204\r\n      N = 6\r\n      I(N) = M(9)\r\n      IF (TY1 .NE. 4) GO TO 1204\r\n      N = 8\r\n      I(N-1) = M(10)\r\n      I(N  ) = M(11)\r\n 1204 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230\r\n      N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      GO TO 1216\r\n 1206 IF (MF(1).NE.3 .OR. M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 1218\r\n      IFO = M(4)\r\n      TY1 = M(5)\r\n      ITY1= 2*MOD(TY1,2)\r\n      TY2 = M(6)\r\n      IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.1) TY2 = TY1 + KPREC - 1\r\n      IF (TY2.EQ.0 .AND. MOD(TY1,2).EQ.0) TY2 = TY1\r\n      IF (MACH .NE. 12) GO TO 1207\r\n      IF (TY2.EQ.2.OR.TY2.EQ.4) TY2 = TY2 - 1\r\n 1207 CONTINUE\r\n      IF (TY1.LE.0 .OR. TY1.GT.4 .OR. TY2.LE.0 .OR. TY2.GT.4) GO TO 1218\r\n      IF (TY1.GE.3 .AND. TY2.LE.2) WRITE (NOUT,8035) UWM,DMIG,NM(1),\r\n     1                                               NM(2),KNT\r\n      IF (IFO.NE.1 .AND. IFO.NE.2 .AND. IFO.NE.6) GO TO 1218\r\n      IF (TY2.EQ.1 .AND. TY1.EQ.3) GO TO 1218\r\n      NM(1) = M(1)\r\n      NM(2) = M(2)\r\n      IF (MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) GO TO 1220\r\n      IF (M1F(2).NE.3 .OR. M1(3).NE.NM(1) .OR. M1(4).NE.NM(2))\r\n     1    GO TO 1220\r\n      M(6) = TY2\r\n      N = 9\r\n      GO TO 3\r\n 1208 LF = 1\r\n      L  = 1\r\n 1210 IF (M(L).NE.0 .OR. M(L+1).NE.0 .OR. M(L+2).NE.0 .OR. M(L+3).NE.0)\r\n     1    GO TO 1212\r\n      LF = LF + 4\r\n      L  = L  + 4\r\n      GO TO 1214\r\n 1212 IF (M(L).LE.0 .OR. M(L+1).LT.0 .OR. M(L+1).GT.6) GO TO 1220\r\n      IF (MF(LF).NE.1 .OR. MF(LF+1).NE.1 .AND. MF(LF+1).NE.0) GO TO 1220\r\n      IERR = 1\r\n      IF (MF(LF+2)+ITY1.NE.4 .AND. MF(LF+2).NE.0) GO TO 1220\r\n      IF (MF(LF+3).NE.0 .AND. TY1.NE.3 .AND. TY1.NE.4) GO TO 1220\r\n      N = N + 3\r\n      I(N-2) = M(L  )\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n      LF = LF + 4\r\n      L  = L  + 4\r\n      IF (TY1 .EQ. 1) GO TO 1214\r\n      N = N + 1\r\n      I(N) = M(L-1)\r\n      IF (TY1 .EQ. 2) L = L + 1\r\n      IF (TY1 .NE. 4) GO TO 1214\r\n      N = N + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      L  = L + 2\r\n 1214 IF (LF .LE. 7) GO TO 1210\r\n      IF (N  .LE. 0) GO TO 1220\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230\r\n      N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n 1216 IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND.\r\n     1    M1(3).EQ.NM(1  ) .AND. M1(4).EQ.NM(2 )) GO TO 1228\r\n      N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      GO TO 1228\r\n 1218 NM(1) = M(1)\r\n      NM(2) = M(2)\r\n 1220 ABORT = .TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1222) UFM,NM(1),NM(2),KNT\r\n 1222 FORMAT (A23,' 327, BAD DATA OR FORMAT OR NON-UNIQUE NAME. DMIG ',\r\n     1        2A4,10X,' SORTED CARD COUNT =',I7)\r\n      IF (IERR .EQ. 1) WRITE (NOUT,1224)\r\n 1224 FORMAT (5X,'INPUT MATRIX TYPE (TIN) AND INPUT DATA (XIJ OR YIJ) ',\r\n     1       'ARE NOT CONSISTANT')\r\n 1226 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1230\r\n 1228 KM = 0\r\n      KN = 0\r\n      GO TO 2\r\n 1230 KN = 1\r\n      KM = 1\r\n      GO TO 2\r\nC\r\nC*******        200 - DTI       ****************************************\r\nC\r\n 2000 IF (KM .NE. 0) GO TO 2120\r\n      IF (FPHYS2) GO TO 2010\r\n      IF (M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 2100\r\n      ASSIGN 2020 TO R\r\n      GO TO 2300\r\n 2010 IF (P(1) .GT. 1) DMIFLG = .TRUE.\r\n      FPHYS2 = .FALSE.\r\n      NM(1)  = 0\r\n      NM(2)  = 0\r\n 2020 FLUSH  = .FALSE.\r\n      FLSHAL = .FALSE.\r\n      IF (M(3) .NE. 0) FLUSH = .TRUE.\r\n      ONM(1) = NM(1)\r\n      ONM(2) = NM(2)\r\n      IF (MF(1).NE.3 .OR. M(1).EQ.ONM(1) .AND. M(2).EQ.ONM(2))\r\n     1    FLUSH = .TRUE.\r\n      NM(1)  = M(1)\r\n      NM(2)  = M(2)\r\n      IPRINT = 0\r\n      NWORDS = 2\r\n      J0 = 0\r\n      IF (P(1) .LE. P(2)) GO TO 2050\r\n      FLUSH  = .TRUE.\r\n      FLSHAL = .TRUE.\r\n 2050 ASSIGN 2055 TO R1\r\n      ASSIGN 2056 TO R\r\n      GO TO 200\r\n 2055 FLUSH = .TRUE.\r\n 2056 IF (FLUSH) GO TO 2195\r\n      ITRLT = 0\r\n      DO 2060 L = 2,7\r\n      ITRLT = ITRLT+M(L+2)\r\n      IF (ICFIAT.EQ.8  .AND. (M(L+2).LT.0 .OR. M(L+2).GT.65535))\r\n     1    FLUSH = .TRUE.\r\nC     2147483647 = 2**31-1\r\n      IF (ICFIAT.EQ.11 .AND. (M(L+2).LT.0 .OR. M(L+2).GT.2147483647))\r\n     1    FLUSH = .TRUE.\r\n 2060 T(L) = M(L+2)\r\n      IF (ITRLT .NE. 0) GO TO 2080\r\n      DO 2070 L = 2,7\r\n 2070 T(L) = 32767\r\n 2080 CONTINUE\r\n      CALL WRITE (POOL,NM,2,0)\r\n      IF (ICFIAT .EQ. 11) GO TO 2087\r\n      DO 2085 LX = 1,3\r\n 2085 T(LX+1) = ORF(LSHIFT(T(2*LX),16),T(2*LX+1))\r\n      L = 3\r\n      GO TO 2090\r\n 2087 L = 6\r\n 2090 CALL WRITE (POOL,T(2),L,1)\r\n      CALL WRITE (POOL,NM,2,0)\r\n      IF (L8 .NE. 0) WRITE (NOUT,8986) NM,DTI,(T(IP+1),IP=1,J)\r\n      IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K))\r\n     1   CALL WRITE (POOL,NM,0,1)\r\n      GO TO 2200\r\n 2100 J0 = J0 + 1\r\n      IF (M(3) .NE. J0) GO TO 2190\r\n      L1  = 4\r\n      L1F =-1\r\n      GO TO 2150\r\n 2120 L1 = 1\r\n      L1F= 0\r\n 2150 L  = L1\r\n      LF = L + L1F\r\n 2160 IF (MF(LF).EQ.3 .AND. M(L).EQ.ENDRC1 .AND. M(L+1).EQ.ENDRC2)\r\n     1    GO TO 2180\r\n      IF (MF(LF) .GT. 2) L = L + 1\r\n      L  = L  + 1\r\n      LF = LF + 1\r\n      IF (MF(LF) .GE. 0) GO TO 2160\r\n      CALL WRITE (POOL,M(L1),L-L1,0)\r\n      NWORDS = NWORDS + L - L1\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2190\r\n      GO TO 2200\r\n 2180 CALL WRITE (POOL,M(L1),L-L1,1)\r\n      NWORDS = NWORDS + L - L1\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2195\r\n 2190 FLUSH = .TRUE.\r\n 2195 IF (M1(1).EQ.0 .AND. M1(2).EQ.0 .OR.\r\n     1    M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K)) GO TO 2200\r\n      ASSIGN 2200 TO R\r\n      GO TO 2300\r\n 2200 N = 0\r\n      IF (.NOT.FLUSH .OR. IPRINT.NE.0) GO TO 1226\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,2350) UFM,NM(1),NM(2),KNT\r\n      IPRINT = 1\r\n      GO TO 1226\r\n 2300 IF (FLSHAL) GO TO 2370\r\n      IF (FLUSH ) GO TO 2330\r\n      CALL EOF (POOL)\r\n      DMIFLG = .TRUE.\r\n      P(1)   = P(1) + 1\r\n 2330 IP = 3*P(3) + 4\r\n      P(IP  ) = NM(1)\r\n      P(IP+1) = NM(2)\r\n      IF (FLUSH) NWORDS = 0\r\n      P(IP+2) = ORF(LSHIFT(NWORDS/1000,16),P(1)-1)\r\n      P(3) = P(3) + 1\r\n      IF (.NOT.FLUSH) GO TO 2365\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,2350) UFM,NM(1),NM(2),KNT\r\n 2350 FORMAT (A23,' 317, BAD DATA OR FORMAT OR NON-UNIQUE NAME FOR DTI '\r\n     1,       2A4,10X,'SORTED CARD COUNT =',I7)\r\n      CALL EOF (POOL)\r\n      P(1) = P(1) + 1\r\n      CALL SKPFIL (POOL,-1)\r\n      IF (DMIFLG) CALL SKPFIL (POOL,+1)\r\n 2360 ABORT = .TRUE.\r\n 2365 GO TO R, (2020,2200)\r\n 2370 WRITE  (NOUT,2380) SFM,NM(1),NM(2)\r\n 2380 FORMAT (A25,' 318, NO ROOM IN /XDPL/ FOR DTI ',2A4)\r\n      CALL PAGE2 (2)\r\n      GO TO 2360\r\nC\r\nC     ******************************************************************\r\nC\r\nC     CHECK NAME FOR UNIQUENESS AMONG DMI CARDS, DTI CARDS, ETC. AND\r\nC     RESERVED NAMES\r\nC\r\n  200 CONTINUE\r\nC\r\nC     CHECK  FIST, FIAT, DPL FOR A NAME MATCH\r\nC\r\n      DO 210 II = 1,IPFIST\r\n      IF (NM(1).EQ.IFIST(2*II+1) .AND. NM(2).EQ.BCDBLK) GO TO 250\r\n  210 CONTINUE\r\n      NFIAT = ICFIAT*IFIAT(2) - 2\r\n      DO 220 II = 4,NFIAT,ICFIAT\r\n      IF (NM(1).EQ.IFIAT(II) .AND. NM(2).EQ.IFIAT(II+1)) GO TO 250\r\n  220 CONTINUE\r\n      NDPL = P(3)*3 + 1\r\n      DO 230 II = 4,NDPL,3\r\n      IF (NM(1).EQ.P(II) .AND. NM(2).EQ.P(II+1)) GO TO 250\r\n  230 CONTINUE\r\n      GO TO R,  (8030,2056)\r\n  250 GO TO R1, (8025,2055)\r\nC\r\nC*******      192-PLOAD4     ****************************************\r\nC\r\n 2900 IF (KM .EQ. 1) GO TO 2940\r\n      KM = 1\r\n      KN = 1\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      IF (.NOT.(MF(2).EQ.2 .AND. MF(3).EQ.1 .AND. MF(4).EQ.0 .AND.\r\n     1     MF(5).EQ.0 .AND. MF(6).EQ.0)) GO TO 2905\r\nC\r\nC     SPECIAL - ALLOWING PLOAD4 TO TAKE ON PLOAD2 FORMAT\r\nC     (PLOAD4,SID,P1,E1,blank,blank,blank,\"THRU\",E2) FOR QUICK INPUT\r\nC     DATA SWITCHING.  INTERCHAGNE 2ND AND 3RD FIELDS\r\nC\r\n      MF(2) = 1\r\n      MF(3) = 2\r\n      L     = M(2)\r\n      M(2)  = M(3)\r\n      M(3)  = L\r\n 2905 IF (MF(2) .NE. 1) BADFOR = .TRUE.\r\n      DO 2910 L = 3,6\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE.\r\n 2910 CONTINUE\r\n      IF (MF(7).NE.3 .AND. MF(7).NE.0 .AND.\r\n     1   .NOT.(MF(7).EQ.1 .AND. M(7).EQ.0)) BADFOR = .TRUE.\r\n      IF (MF(8).NE.1 .AND. MF(8).NE.0) BADFOR = .TRUE.\r\n      IF (MF(7).EQ.0 .AND. MF(8).NE.0) BADFOR = .TRUE.\r\n      IF (MF(7).EQ.3 .AND. MF(8).NE.1) BADFOR = .TRUE.\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      IF (M(2) .LE. 0) BADDAT = .TRUE.\r\n      IF (MF(7).EQ.3 .AND. M(7).NE.THRU) BADDAT = .TRUE.\r\n      IF (MF(7).EQ.3 .AND. M(9).LE.   0) BADDAT = .TRUE.\r\n      IF (MF(7).EQ.3 .AND. M(9).LE.M(2)) BADDAT = .TRUE.\r\n      L1 = 0\r\n      IF (MF(7) .EQ. 3) L1 = 1\r\n      DO 2920 L = 1,6\r\n      I(L) = M(L)\r\n 2920 CONTINUE\r\n      I(7) = -1\r\n      IF (L1 .EQ. 1) I(7) = 0\r\n      I(8) = M(L1+8)\r\n      N = 8\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      DO 2930 L = 9,12\r\n      I(L) = 0\r\n 2930 CONTINUE\r\n      N  = 12\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\nC\r\n 2940 IF (MF(1) .GT. 1) BADFOR = .TRUE.\r\n      DO 2950 L = 2,4\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE.\r\n 2950 CONTINUE\r\n      IF (MF(1) .EQ. 0) M(1) = 0\r\n      IF (M(1)  .LT. 0) BADDAT = .TRUE.\r\n      DO 2960 L = 1,4\r\n      I(L) = M(L)\r\n 2960 CONTINUE\r\n      N  = 4\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\nC\r\nC*******       261-CQUAD4    ****************************************\r\nC\r\n 3100 IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      I(1) = M(1)\r\n      DO 3110 L = 2,6\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(L)  .LE. 0) BADDAT = .TRUE.\r\n      I(L) = M(L)\r\n 3110 CONTINUE\r\n      L1 = 6\r\n      DO 3120 L = 11,14\r\n      L1 = L1 + 1\r\n      I(L1) = M(L)\r\n 3120 CONTINUE\r\n      IF (MF(7).NE.1 .AND. MF(7).NE.2 .AND. MF(7).NE.0) BADFOR = .TRUE.\r\n      IF (MF(7).EQ.1 .AND. (M(7).LT.0 .OR. M(7).GE.1000000))\r\n     1    BADDAT = .TRUE.\r\n      I(11) = M(7)\r\n      I(12) = 0\r\n      IF (MF(7) .EQ. 1) I(12) = 1\r\n      I(13) = M(8)\r\n      N = 13\r\n      GO TO 9\r\nC\r\nC*******       354-CTRIA3      **************************************\r\nC\r\n 3200 IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      I(1) = M(1)\r\n      DO 3210 L = 2,5\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(L)  .LE. 0) BADDAT = .TRUE.\r\n 3210 I(L) = M(L)\r\n      IF (MF(6).NE.1 .AND. MF(6).NE.2 .AND. MF(6).NE.0) BADFOR = .TRUE.\r\n      IF (MF(6).EQ.1 .AND. (M(6).LT.0 .OR. M(6).GE.1000000))\r\n     1    BADDAT = .TRUE.\r\n      I( 6) = M(11)\r\n      I( 7) = M(12)\r\n      I( 8) = M(13)\r\n      I( 9) = M(6)\r\n      I(10) = 0\r\n      I(11) = M(7)\r\n      IF (MF(6) .EQ. 1) I(10) = 1\r\n      N = 11\r\n      GO TO 9\r\nC\r\nC*******        262-MAT8      ****************************************\r\nC\r\n 3300 IF (MF(2).EQ.0 .OR. MF(3).EQ.0 .OR. MF(5).EQ.0) GO TO 7\r\n      IF (M(1) .LE. 0) GO TO 8\r\n      IF (XM(2).EQ.0.0 .OR. XM(3).EQ.0.0) GO TO 8\r\n      IF (XM(5).LE.0.0) GO TO 8\r\n      IF (MF(12).EQ.2 .AND. XM(12).LE.0.0) GO TO 8\r\n      IF (MF(14).EQ.2 .AND. XM(14).LE.0.0) GO TO 8\r\n      IF (MF(16).EQ.2 .AND. XM(16).LE.0.0) GO TO 8\r\n      IF (MF(13) .EQ. 0) XM(13) = XM(12)\r\n      IF (MF(15) .EQ. 0) XM(15) = XM(14)\r\n      N = 18\r\n      GO TO 3\r\nC\r\nC*******        280-PCOMP     ****************************************\r\nC\r\n 4100 KN = 1\r\n      IF (ICOMP .GT. 1) GO TO 4140\r\n      ICOMP = 2\r\n      IF (MF(1).NE.1) BADFOR = .TRUE.\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE.\r\n      IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE.\r\n      IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE.\r\n      L = 0\r\n      IF (MF(5).EQ.3) L = 1\r\n      IF (MF(6).NE.0) BADFOR = .TRUE.\r\n      IF (MF(7).NE.0) BADFOR = .TRUE.\r\n      IF (MF(8).NE.3 .AND. MF(8).NE.0   ) BADFOR = .TRUE.\r\n      IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE.\r\n      IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE.\r\n      FAILUR = -1\r\n      IF (MF(5)  .EQ. 0) FAILUR = 0\r\n      IF (FAILUR .EQ. 0) GO TO 4120\r\n      IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1\r\n      IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2\r\n      IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3\r\n      IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4\r\n      IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5\r\n      IF (FAILUR .EQ. -1) BADDAT = .TRUE.\r\n 4120 LAMOPT = -1\r\n      IF (MF(8)  .EQ. 0) LAMOPT = 0\r\n      IF (LAMOPT .EQ. 0) GO TO 4130\r\n      IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0\r\n      IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1\r\n      IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2\r\n      IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3\r\n      IF (LAMOPT .EQ. -1) BADDAT = .TRUE.\r\n 4130 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4135\r\n      BADFOR = .TRUE.\r\n      KN = 0\r\n      ICOMP = 1\r\n      N = 0\r\n      GO TO 9\r\n 4135 I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      I(4) = M(4)\r\n      I(5) = FAILUR\r\n      I(6) = 0\r\n      I(7) = 0\r\n      I(8) = LAMOPT\r\n      N    = 8\r\n      GO TO 9\r\nC\r\n 4140 N = 0\r\n      DO 4190 L = 1,2\r\n      L1 = 4*(L-1)\r\n      L2 = L1\r\n      DO 4150 L3 = 1,4\r\n      IF (MF(L1+L3) .NE. 0) GO TO 4160\r\n 4150 CONTINUE\r\n      IF (L .EQ. 1) BADFOR = .TRUE.\r\n      GO TO 4195\r\n 4160 IF (L.EQ.2 .AND. MF(4).EQ.3) L2 = L2 + 1\r\n      IF (ICOMP .EQ. 3) GO TO 4170\r\n      ICOMP = 3\r\n      IF (MF(1).NE.1) BADFOR = .TRUE.\r\n      IF (MF(2).NE.2) BADFOR = .TRUE.\r\n      IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE.\r\n      IF (M(1)  .LE.  0) BADDAT = .TRUE.\r\n      IF (XM(2) .LE.0.0) BADDAT = .TRUE.\r\n      GO TO 4180\r\n 4170 IF (MF(L1+1).NE.1 .AND. MF(L1+1).NE.0) BADFOR = .TRUE.\r\n      IF (MF(L1+2).NE.2 .AND. MF(L1+2).NE.0) BADFOR = .TRUE.\r\n      IF (MF(L1+3).NE.2 .AND. MF(L1+3).NE.0) BADFOR = .TRUE.\r\n      IF (MF(L1+1).EQ.1 .AND. M (L2+1).LE.0) BADDAT = .TRUE.\r\n      IF (MF(L1+1) .EQ. 0) M(L2+1) = IOLD1\r\n      IF (MF(L1+2).EQ.2 .AND. XM(L2+2).LE.0.0) BADDAT = .TRUE.\r\n      IF (MF(L1+2) .EQ. 0) M(L2+2) = IOLD2\r\n      IF (MF(L1+3) .EQ. 0) M(L2+3) = IOLD3\r\n 4180 IF (MF(L1+4).NE.3 .AND. MF(L1+4).NE.0) BADFOR = .TRUE.\r\n      IF (MF(L1+4).EQ.3 .AND. (M(L2+4).NE.IYES .AND. M(L2+4).NE.INO))\r\n     1    BADDAT = .TRUE.\r\n      IOUT = 0\r\n      IF (M(L2+4) .EQ. IYES) IOUT = 1\r\n      I(N+1) = M(L2+1)\r\n      I(N+2) = M(L2+2)\r\n      I(N+3) = M(L2+3)\r\n      I(N+4) = IOUT\r\n      IOLD1  = M(L2+1)\r\n      IOLD2  = M(L2+2)\r\n      IOLD3  = M(L2+3)\r\n      N = N + 4\r\n 4190 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 4195 KN = 0\r\n      ICOMP  = 1\r\n      I(N+1) =-1\r\n      N = N + 1\r\n      GO TO 9\r\nC\r\nC*******        281-PCOMP1    ****************************************\r\nC\r\n 4300 KN = 1\r\n      IF (ICOMP .GT. 1) GO TO 4340\r\n      ICOMP = 2\r\n      IF (MF(1).NE.1) BADFOR = .TRUE.\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE.\r\n      IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE.\r\n      IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE.\r\n      L = 0\r\n      IF (MF(5) .EQ. 3) L = 1\r\n      IF (MF(6).NE.1) BADFOR = .TRUE.\r\n      IF (MF(7).NE.2) BADFOR = .TRUE.\r\n      IF (MF(8).NE.3 .AND. MF(8).NE.0   ) BADFOR = .TRUE.\r\n      IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE.\r\n      IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE.\r\n      FAILUR = -1\r\n      IF (MF(5)  .EQ. 0) FAILUR = 0\r\n      IF (FAILUR .EQ. 0) GO TO 4320\r\n      IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1\r\n      IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2\r\n      IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3\r\n      IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4\r\n      IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5\r\n      IF (FAILUR .EQ. -1) BADDAT = .TRUE.\r\n 4320 IF (M(L+6) .LE.  0) BADDAT = .TRUE.\r\n      IF (XM(L+7).LE.0.0) BADDAT = .TRUE.\r\n      LAMOPT = -1\r\n      IF (MF(8)  .EQ. 0) LAMOPT = 0\r\n      IF (LAMOPT .EQ. 0) GO TO 4330\r\n      IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0\r\n      IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1\r\n      IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2\r\n      IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3\r\n      IF (LAMOPT .EQ. -1) BADDAT = .TRUE.\r\n 4330 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4335\r\n      BADFOR = .TRUE.\r\n      KN = 0\r\n      ICOMP = 1\r\n      N = 0\r\n      GO TO 9\r\n 4335 I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      I(4) = M(4)\r\n      I(5) = FAILUR\r\n      I(6) = M(L+6)\r\n      I(7) = M(L+7)\r\n      I(8) = LAMOPT\r\n      N    = 8\r\n      GO TO 9\r\nC\r\n 4340 N = 0\r\n      DO 4390 L = 1,8\r\n      IF (MF(L) .NE. 0) GO TO 4360\r\n      IF (L .EQ. 1) BADFOR = .TRUE.\r\n      GO TO 4395\r\n 4360 IF (ICOMP .EQ. 3) GO TO 4370\r\n      ICOMP = 3\r\n      IF (MF(1) .NE. 2) BADFOR = .TRUE.\r\n      GO TO 4380\r\n 4370 IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE.\r\n      IF (MF(L) .EQ. 0) M(L) = IOLD1\r\n 4380 I(N+1) = M(L)\r\n      IOLD1  = M(L)\r\n      N = N + 1\r\n 4390 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 4395 KN = 0\r\n      ICOMP  = 1\r\n      I(N+1) =-1\r\n      N = N + 1\r\n      GO TO 9\r\nC\r\nC*******        282-PCOMP2    ****************************************\r\nC\r\n 4500 KN = 1\r\n      IF (ICOMP .GT. 1) GO TO 4540\r\n      ICOMP = 2\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (MF(3).NE.2 .AND. MF(3).NE.0) BADFOR = .TRUE.\r\n      IF (MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE.\r\n      IF (MF(5).NE.3 .AND. MF(5).NE.0) BADFOR = .TRUE.\r\n      L = 0\r\n      IF (MF(5) .EQ. 3) L = 1\r\n      IF (MF(6) .NE. 1) BADFOR = .TRUE.\r\n      IF (MF(7) .NE. 0) BADFOR = .TRUE.\r\n      IF (MF(8).NE.3 .AND. MF(8).NE.0   ) BADFOR = .TRUE.\r\n      IF (M(1).LE.0 .OR. M(1).GE.1000000) BADDAT = .TRUE.\r\n      IF (MF(5).EQ.3 .AND. XM(4).LE.0.0 ) BADDAT = .TRUE.\r\n      FAILUR = -1\r\n      IF (MF(5)  .EQ. 0) FAILUR = 0\r\n      IF (FAILUR .EQ. 0) GO TO 4520\r\n      IF (M(5).EQ.IHILL(1) .AND. M(6).EQ.IHILL(2)) FAILUR = 1\r\n      IF (M(5).EQ.IHOFF(1) .AND. M(6).EQ.IHOFF(2)) FAILUR = 2\r\n      IF (M(5).EQ.ITSAI(1) .AND. M(6).EQ.ITSAI(2)) FAILUR = 3\r\n      IF (M(5).EQ.ISTRS(1) .AND. M(6).EQ.ISTRS(2)) FAILUR = 4\r\n      IF (M(5).EQ.ISTRN(1) .AND. M(6).EQ.ISTRN(2)) FAILUR = 5\r\n      IF (FAILUR .EQ. -1) BADDAT = .TRUE.\r\n 4520 IF (M(L+6) .LE.  0) BADDAT = .TRUE.\r\n      LAMOPT = -1\r\n      IF (MF(8)  .EQ. 0) LAMOPT = 0\r\n      IF (LAMOPT .EQ. 0) GO TO 4530\r\n      IF (M(L+8).EQ.IALL (1) .AND. M(L+9).EQ.IALL (2)) LAMOPT = 0\r\n      IF (M(L+8).EQ.ISYM (1) .AND. M(L+9).EQ.ISYM (2)) LAMOPT = 1\r\n      IF (M(L+8).EQ.IMEM (1) .AND. M(L+9).EQ.IMEM (2)) LAMOPT = 2\r\n      IF (M(L+8).EQ.ISYMM(1) .AND. M(L+9).EQ.ISYMM(2)) LAMOPT = 3\r\n      IF (LAMOPT .EQ. -1) BADDAT = .TRUE.\r\n 4530 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4535\r\n      BADFOR = .TRUE.\r\n      KN = 0\r\n      ICOMP = 1\r\n      N = 0\r\n      GO TO 9\r\n 4535 I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      I(4) = M(4)\r\n      I(5) = FAILUR\r\n      I(6) = M(L+6)\r\n      I(7) = 0\r\n      I(8) = LAMOPT\r\n      N    = 8\r\n      GO TO 9\r\nC\r\n 4540 N = 0\r\n      DO 4590 L = 1,4\r\n      L1 = 2*(L-1)\r\n      DO 4550 L3 = 1,2\r\n      IF (MF(L1+L3) .NE. 0) GO TO 4560\r\n 4550 CONTINUE\r\n      IF (L .EQ. 1) BADFOR = .TRUE.\r\n      GO TO 4595\r\n 4560 IF (ICOMP .EQ. 3) GO TO 4570\r\n      ICOMP = 3\r\n      IF (MF(1)  .NE. 2) BADFOR = .TRUE.\r\n      IF (MF(2)  .NE. 2) BADFOR = .TRUE.\r\n      IF (XM(1) .LE.0.0) BADDAT = .TRUE.\r\n      GO TO 4580\r\n 4570 IF (MF(L1+1).NE.2 .AND. MF(L1+1).NE. 0) BADFOR = .TRUE.\r\n      IF (MF(L1+2).NE.2 .AND. MF(L1+2).NE. 0) BADFOR = .TRUE.\r\n      IF (MF(L1+1).EQ.2 .AND. XM(L1+1).LE..0) BADDAT = .TRUE.\r\n      IF (MF(L1+1) .EQ. 0) M(L1+1) = IOLD1\r\n      IF (MF(L1+2) .EQ. 0) M(L1+2) = IOLD2\r\n 4580 I(N+1) = M(L1+1)\r\n      I(N+2) = M(L1+2)\r\n      IOLD1  = M(L1+1)\r\n      IOLD2  = M(L1+2)\r\n      N = N + 2\r\n 4590 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 4595 KN = 0\r\n      ICOMP  = 1\r\n      I(N+1) =-1\r\n      N = N + 1\r\n      GO TO 9\r\nC\r\nC*******        283-PSHELL    ****************************************\r\nC\r\n 4700 IF (KM .EQ. 1) GO TO 4740\r\n      KM = 1\r\n      KN = 1\r\n      IF (MF( 1).NE.1                  ) BADFOR = .TRUE.\r\n      IF (MF( 2).NE.1 .AND. MF( 2).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 3).NE.2 .AND. MF( 3).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 4).NE.1 .AND. MF( 4).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 5).NE.2 .AND. MF( 5).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 6).NE.1 .AND. MF( 6).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 7).NE.2 .AND. MF( 7).NE.0) BADFOR = .TRUE.\r\n      IF (MF( 8).NE.2 .AND. MF( 8).NE.0) BADFOR = .TRUE.\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      IF (MF(2).EQ.1 .AND.  M(2).LE.0) BADDAT = .TRUE.\r\n      IF (MF(4).EQ.1 .AND.  M(4).LE.0) BADDAT = .TRUE.\r\n      IF (MF(4).NE.0 .AND. MF(5).EQ.0) XM(5) = 1.0\r\n      IF (MF(6).EQ.1 .AND.  M(6).LE.0) BADDAT = .TRUE.\r\n      IF (MF(6).NE.0 .AND. MF(4).EQ.0) BADDAT = .TRUE.\r\n      IF (MF(6).NE.0 .AND. MF(7).EQ.0) XM(7) = 0.833333\r\n      DO 4710 L = 2,6,2\r\n      IF (M(L).EQ.0 .AND. XM(L+1).GT.0.0) BADDAT = .TRUE.\r\n 4710 CONTINUE\r\n      DO 4720 L = 1,8\r\n      I(L) = M(L)\r\n 4720 CONTINUE\r\n      IOLMF2 = MF(2)\r\n      IOLMF4 = MF(4)\r\n      IOLDM2 =  M(2)\r\n      IOLDM4 =  M(4)\r\n      IOLDM6 =  M(6)\r\n      OLDXM3 = XM(3)\r\n      N = 8\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      Z( 9) = -0.5*OLDXM3\r\n      Z(10) =  0.5*OLDXM3\r\n      DO 4730 L = 11,17\r\n      I(L) = 0\r\n 4730 CONTINUE\r\n      N  = 17\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\nC\r\n 4740 IF (MF(1).NE.2 .AND. MF(1).NE.0) BADFOR = .TRUE.\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (MF(3).NE.1 .AND. MF(3).NE.0) BADFOR = .TRUE.\r\n      IF (MF(4).NE.1 .AND. MF(4).NE.2 .AND. MF(4).NE.0) BADFOR = .TRUE.\r\n      IF (MF(5).NE.1 .AND. MF(5).NE.2 .AND. MF(5).NE.0) BADFOR = .TRUE.\r\n      IF (MF(6).NE.2 .AND. MF(6).NE.0) BADFOR = .TRUE.\r\n      IF (MF(1) .EQ. 0) XM(1) = -0.5*OLDXM3\r\n      IF (MF(2) .EQ. 0) XM(2) =  0.5*OLDXM3\r\n      IF (MF(3).EQ.1 .AND. M(3).LE.0) BADDAT = .TRUE.\r\n      IF (MF(3).NE.0 .AND. (IOLMF2.EQ.0 .OR. IOLMF4.EQ.0))\r\n     1    BADDAT = .TRUE.\r\n      IF (MF(3).NE.0 .AND. (M(3).EQ.IOLDM2 .OR. M(3).EQ.IOLDM4))\r\n     1    BADDAT = .TRUE.\r\n      IF (MF(4).EQ.1 .AND. M(4).LT.0) BADDAT = .TRUE.\r\n      IF (MF(5).EQ.1 .AND. M(5).LT.0) BADDAT = .TRUE.\r\n      IF (IOLDM2.EQ.0 .AND. IOLDM4.EQ.0 .AND.\r\n     1    IOLDM6.EQ.0 .AND. M(3).EQ.0) BADDAT = .TRUE.\r\n      DO 4750 L = 1,4\r\n      I(L) = M(L)\r\n 4750 CONTINUE\r\n      I(5) = 0\r\n      IF (MF(4) .EQ. 1) I(5) = 1\r\nC\r\nC     I(6) IS THE INTEGRATION ORDER (SET TO 0)\r\nC\r\nC     NOTE\r\nC     ----\r\nC\r\nC     THE INTEGRATION ORDER IS NOT USED IN THE PROGRAM,\r\nC     BUT THIS WORD IS REQUIRED BECAUSE OF THE DESIGN\r\nC     OF THE EST DATA FOR THE CQUAD4 ELEMENT.\r\nC\r\n      I(6) = 0\r\n      I(7) = M(5)\r\n      I(8) = 0\r\n      IF (MF(5) .EQ. 1) I(8) = 1\r\n      I(9) = M(6)\r\n      N  = 9\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ifs3p.f",
    "content": "      SUBROUTINE IFS3P (*,*,*)\r\nC\r\n      LOGICAL         NOUD,NOS,BADDAT,BADFOR,ABORT,LH,IAX,IDFREQ,LHARM,\r\n     1                GRDMSG,IFPDCO,PERM,PROL,RBE,FIRST,PRT\r\nCHURNB 11/93\r\n      LOGICAL ONEH,BLANKH\r\nCHURNE\r\n      INTEGER         R,R1,G1,T3,T4,THRU,ARIGID,BRIGID,CRIGID,DRIGID,\r\n     1                ERIGID,FRIGID,BLNK,ENDT,IA(6),IB(6),IC(6),JA(6),\r\n     2                JB(6),JC(6),CRTR,CRBA,CRBE,Q(92)\r\n      DIMENSION       RM(50)\r\nCHURNB 11/93\r\n      DIMENSION NAM(2),IONES(4)\r\nCHURNE\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SCC*19,GCC*19\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ NBUF,NOUT,ABORT,IDUMMY(52),ITHRML,DUM21(21),IPIEZ\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100),\r\n     1                M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NN,\r\n     2                IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6)\r\nCHURNB 11/93\r\n     3,               NNS,ONEH,BLANKH,IAXG\r\nCHURNE\r\n      COMMON /ZZZZZZ/ IBUFF(1)\r\n      COMMON /IFPX2 / T3(2,270)\r\n      COMMON /IFPX3 / T4(2,270)\r\n      COMMON /CIFS3P/ GRDMSG,LA1,L7,KM,L0,G1,LH,\r\n     1                IGDST2,IGDST6,IGDST7,IGDST8,IDDSF,\r\n     2                IDFREQ,IDRAD,NVAR,IDS,JMS,KMS,LPLF\r\n      EQUIVALENCE     (M(1),RM(1)),(LINE,IDUMMY(9)),(NBPW,IDUMMY(37))\r\nCHURNB 11/93\r\n      EQUIVALENCE (XIN,IXIN)\r\nCHURNE\r\n      DATA PROL,ENDT    / .FALSE.,4HENDT/, PERM  /.FALSE.             /\r\n      DATA FIRST,PRT    /  2*.TRUE.     /\r\n      DATA LUD,LZ,KK,LS /  4HUD  ,4HZ    , 4HK   ,4HS   /, NT1 /250   /\r\n      DATA ARIGID/4HCRIG/, BRIGID/4HD1  /, CRIGID/4HD2  /, IRIGID /1  /\r\n      DATA DRIGID/4HD3  /, MSET  /4HMSET/, BLNK  /4H    /, THRU/4HTHRU/\r\n      DATA ERIGID/4H1   /, FRIGID/4H2   /, IND /4HIN  /\r\n      DATA CRTR  /4HCRTR/, CRBA  /4HCRBA/, CRBE  /4HCRBE/, IUM /4HUM  /\r\n      DATA SCC   /'SORTED CARD COUNT =' /, GCC  /'GENERATED CARD    -'/\r\nCHURNB 11/93\r\n      DATA ISCR1 /301/, IONES/4*-1/, NAM/4HIFS3,4HP   /\r\nCHURNE\r\nC\r\n      IF (K .GT. 100) GO TO 81\r\n      GO TO (   100, 200,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,3980,4020,   5,   5,   5,1700,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,2800,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,3960,4020,4060,   5,   5,   5,   5,   5,   5,\r\n     9            5,3981,   5,   5,   5,   5,   5,   5,   5,   5  ),K\r\n   81 IF (KX .GT. 100) GO TO 82\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,4060,   5,   5,1260,   5,   5,   5,   5,\r\n     3         1310,1310,   5,   5,   5,   5,   5,1380,1390,   5,\r\n     4            5,   5,1430,1440,1450,1460,1470,1480,1490,1500,\r\n     5         1500,1520,1530,1540,1550,1560,1560,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,1820,1820,1820,1420,   5,   5,   5,   5,   5,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5,   5,   5  ),KX\r\n   82 IF (KY .GT. 100) GO TO 83\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,3981,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,1400,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,1415,1415,   5,   5,   5,   5,2010,   5,\r\n     8            5,   5,   5,2060,2111,2030,2040,2030,   5,1410,\r\n     9            5,   5,   5,   5,   5,   5,7300,7000,   5,   5  ),KY\r\n   83 KZ = KY - 100\r\n      IF (KZ .GT. 53) GO TO 5\r\n      IF (KZ.LT.47 .OR. KZ.GT.51 .OR. .NOT.FIRST) GO TO 90\r\n      FIRST = .FALSE.\r\n      IF (.NOT.PRT) GO TO 90\r\n      CALL PAGE1\r\n      WRITE  (NOUT,85) UIM\r\n   85 FORMAT (A29,', CONVERSIONS OF RIGID ELEMENTS, CRROD, CRBAR, ',\r\n     1       'CRTRPLT, CRBE1, AND CRBE2, TO CRIGDR, CRIGD2, OR CRIGD3',\r\n     2       /5X,'ARE AS FOLLOWS (BLANK FIELDS MAY BE PRINTED AS ZEROS',\r\n     3       '. CONTINUATION FIELDS ARE NOT PRINTED) -',/)\r\n      LINE = 8\r\n   90 GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,5100,5200,\r\n     3            5,3980,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,2920,3010,6000,6100,6300,7000,\r\n     5         6400,6500,6600                                     ),KZ\r\n    5 CALL PAGE2 (2)\r\n      WRITE  (NOUT,6) SFM\r\n    6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS3P.')\r\n      ABORT  = .TRUE.\r\n      RETURN 1\r\n    7 BADFOR = .TRUE.\r\n      RETURN 1\r\n    8 BADDAT = .TRUE.\r\n      RETURN 1\r\n    3 DO 4 L = 1,N\r\n    4 I(L) = M(L)\r\n    9 RETURN 3\r\nC\r\nC*******              1-GRID            ********************************\r\nC\r\n  100 IF (MF(2) .EQ. 0) M(2) = IGDST2\r\n      IF (MF(6) .EQ. 0) M(6) = IGDST6\r\n      IF (MF(7) .EQ. 0) M(7) = IGDST7\r\n      IF (MF(8) .EQ. 0) M(8) = IGDST8\r\n      IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(6).LT.-1) GO TO 8\r\n      IF (M(6).GE.0 .OR. GRDMSG) GO TO 105\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,103) UWM\r\n  103 FORMAT (A23,' 302, ONE OR MORE GRID CARDS HAVE DISPLACEMENT ',\r\n     1       'COORDINATE SYSTEM ID OF -1')\r\n      GRDMSG = .TRUE.\r\n  105 IF (IFPDCO(M(7))) GO TO 8\r\n      IF (IFPDCO(M(8))) GO TO 8\r\n      IF (MF(8) .NE. 0) GO TO 7\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*******        2-GRDSET       ****************************************\r\nC\r\n  200 IF (G1 .EQ. 0) GO TO 8\r\n      G1 = 0\r\n      IF (M(2).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0 .AND. M(8).EQ.0)\r\n     1    GO TO 8\r\n      IF (M(2).LT.0 .OR. M(6).LT.-1 .OR. M(7).LT.0 .OR. M(8).LT.0)\r\n     1    GO TO 8\r\n      IF (IFPDCO(M(7)) .OR. IFPDCO(M(8))) GO TO 8\r\n      IF (MF(8) .NE. 0) GO TO 7\r\n      IGDST2 = M(2)\r\n      IGDST6 = M(6)\r\n      IGDST7 = M(7)\r\n      IGDST8 = M(8)\r\n      RETURN 2\r\nC\r\nC*****         126-FREQ       ******************************************\r\nC\r\n 1260 IF (IDFREQ) IDDSF = 0\r\n      IDFREQ = .FALSE.\r\n      GO TO 1430\r\nC\r\nC******     131-RLOAD1, 132-RLOAD2    **********************************\r\nC\r\n 1310 IF (M(5).EQ.0 .AND. M(6).EQ.0) GO TO 8\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(4).LT.0)\r\n     1    GO TO 8\r\n      IF (M(5).LT.0 .OR. M(6).LT.0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*******       138-TLOAD1      *****************************************\r\nC\r\n 1380 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0 .OR. M(5).LE.0)\r\n     1    GO TO 8\r\n      IF (M(4).LT.0 .OR. M(4).GT.4) GO TO 8\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*******       139-TLOAD2      *****************************************\r\nC\r\n 1390 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8\r\n      IF (RM(5).LT.0. .OR. RM(6).LE.RM(5) .OR. RM(7).LT.0.) GO TO 8\r\n      IF (M(4).LT.0 .OR. M(4).GT.4) GO TO 8\r\n      N = 10\r\n      GO TO 3\r\nC\r\nC******        244-RADMTX     *****************************************\r\nC\r\n 1400 IF (KM .EQ. 1) GO TO 1431\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      ID = M(1)\r\n      IF (ID .LE. IDRAD) BADDAT = .TRUE.\r\n      IDRAD = ID\r\n      I(1)  = ID\r\n      N  = 1\r\n      L1 = 2\r\n      GO TO 1432\r\nC\r\nC******        290-VARIAN        **************************************\r\nC\r\n 1410 IF (KM .EQ. 1) GO TO 1431\r\n      KM = 1\r\n      IF (NVAR .NE. 0) GO TO 8\r\n      NVAR = 1\r\n      GO TO 1431\r\nC\r\nC*****      273-AEFACT , 274-FLFACT    ********************************\r\nC\r\n 1415 IF (KM .EQ. 1) GO TO 1431\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(1)  .LE. 0) BADDAT = .TRUE.\r\n      I(1) = M(1)\r\n      N  = 1\r\n      L1 = 2\r\n      IF (MF(3) .NE. 3) GO TO 1432\r\n      IF (M(3).NE.THRU .OR. M(4).NE.BLNK) BADDAT = .TRUE.\r\n      IF (MF(2).NE.2 .OR. MF(4).NE.2 .OR. MF(5).NE.1 .OR. MF(6).NE.2)\r\n     1    BADFOR = .TRUE.\r\n      IF (M(6) .LE.    1) BADDAT = .TRUE.\r\n      IF (M(5) .EQ. M(2)) BADDAT = .TRUE.\r\n      IMID = 0\r\n      IF (RM(5)-RM(7).GE.0. .AND. RM(7)-RM(2).LT.0.) IMID = 1\r\n      IF (RM(5)-RM(7).LE.0. .AND. RM(7)-RM(2).GT.0.) IMID = 1\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 1416\r\n      BADFOR = .TRUE.\r\n      GO TO 1438\r\n 1416 IF (BADFOR .OR. BADDAT) GO TO 1435\r\n      IF (IMID .EQ. 0) GO TO 1418\r\n      RM(7) = 0.5*(RM(2) + RM(5))\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,1417) UWM,I(1)\r\n 1417 FORMAT (A25,' 528, FACTOR FMID IN FLFACT SET',I9,' DOES NOT LIE ',\r\n     1       'BETWEEN F1 AND FNF.', /5X,'IT IS BEING RESET TO (F1 + ',\r\n     2       'FNF)/2.0')\r\n 1418 T4(2,K) = T4(2,K) + 1\r\n      CALL WRITE (204,I,1,0)\r\n      L = 1\r\n 1419 TERM1 = (M(6)-L)*(RM(5)-RM(7))\r\n      TERM2 = (L-1)*(RM(7)-RM(2))\r\n      ANUM  = RM(2)*TERM1 + RM(5)*TERM2\r\n      DEN   = TERM1 + TERM2\r\n      FACTOR= ANUM/ DEN\r\n      T4(2,K) = T4(2,K) + 1\r\n      CALL WRITE (204,FACTOR,1,0)\r\n      L = L + 1\r\n      IF (L .LE. M(6)) GO TO 1419\r\n      I(1) = -1\r\n      T4(2,K) = T4(2,K) + 1\r\n      CALL WRITE (204,I,1,0)\r\n      N  = 0\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\nC\r\nC*****      143-DSFACT(1430), 185-PLFACT(1420)     ********************\r\nC\r\n 1420 IF (LPLF) 8,1425,1430\r\n 1425 LPLF  = 1\r\n      IDDSF = 0\r\n 1430 IF (KM .EQ. 1) GO TO 1431\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      ID = M(1)\r\n      IF (ID .LE. IDDSF) BADDAT = .TRUE.\r\n      IDDSF = ID\r\n      I(1)  = ID\r\n      IF (MF(2) .NE. 2) BADFOR = .TRUE.\r\n      N  = 2\r\n      L1 = 3\r\n      I(N) = M(2)\r\n      GO TO 1432\r\n 1431 L1 = 1\r\n 1432 DO 1433 L = L1,8\r\n      IF (MF(L) .EQ. 0) GO TO 1436\r\n      IF (MF(L) .NE. 2) BADFOR = .TRUE.\r\n      N = N + 1\r\n 1433 I(N) = M(L)\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1438\r\n 1435 KM = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      KN = 0\r\n      GO TO 9\r\n 1436 IF (L .EQ. 1) BADFOR = .TRUE.\r\n      DO 1437 L2 = L,8\r\n      IF (MF(L2).NE.0) BADFOR = .TRUE.\r\n 1437 CONTINUE\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 1435\r\n      BADFOR = .TRUE.\r\n 1438 KN = 1\r\n      GO TO 9\r\nC\r\nC******        144-AXIC           **************************************\r\nC\r\n 1440 IF (IAX) GO TO 1445\r\n      IAX = .TRUE.\r\n      NN  = 998\r\n      DO 1442 L = 1,NT1\r\n      IF (T4(1,L) .GT. 0) T3(1,L) = T3(1,K)\r\n 1442 CONTINUE\r\nCHURD2 11/93\r\nC     IF (M(1).LT.0 .OR. M(1).GT.998 .OR. M(2).NE.0) GO TO 8\r\nC     NN = M(1)\r\nCHURNB 11/93\r\nC\r\nC M.LT.0 CHECK IS REMOVED TO ALLOW FOR SINGLE HARMONIC\r\nC\r\nC     IF(M(1).LT.0.OR.M(1).GT.998.OR.M(2).NE.0)GO TO 8\r\n      IF(             M(1).GT.998.OR.M(2).NE.0)GO TO 8\r\n      NNS = M(1)\r\n      NN = IABS(M(1))\r\n      ONEH = .FALSE.\r\n      IF(NNS .LT. 0)ONEH = .TRUE.\r\nCHURNE\r\n      N  = 2\r\n      IF (NN.GT.15 .AND. NBPW.LE.32) GO TO 1448\r\n      GO TO 3\r\n 1445 CALL PAGE2 (2)\r\n      WRITE  (NOUT,1446) UFM\r\n 1446 FORMAT (A23,' 329, ONLY ONE(1) AXIC CARD ALLOWED.')\r\n      ABORT = .TRUE.\r\n      GO TO 2\r\n 1448 WRITE  (NOUT,1449) UWM\r\n 1449 FORMAT (A25,', POTENTIAL SYSTEM FATAL ERROR DUE TO LARGE HARMONIC'\r\n     1,      ' (LARGER THAN 15) ON 32-BIT WORD MACHINE')\r\n      GO TO 3\r\nC  OR GO TO 1447\r\nC\r\nC******        145-RINGAX         **************************************\r\nC\r\n 1450 IF (M(1).LE.0 .OR. RM(3).LE.0.) GO TO 8\r\n      IH = NN\r\n      ASSIGN 1451 TO R\r\n      ASSIGN    8 TO R1\r\n      GO TO 21\r\n 1451 IF (IFPDCO(M(7))) GO TO 8\r\n      N = 4\r\n      I(1) = M(1)\r\n      I(2) = M(3)\r\n      I(3) = M(4)\r\n      I(4) = M(7)\r\n      GO TO 2\r\nC\r\nC******        146-CCONEAX        **************************************\r\nC\r\n 1460 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) GO TO 8\r\n      IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      IF (M(2).LE.0 .OR. M(4).EQ.M(3)) GO TO 8\r\n      IH = NN\r\n      ASSIGN 1461 TO R\r\n      ASSIGN    8 TO R1\r\n      GO TO 21\r\n 1461 N = 4\r\n      GO TO 3\r\nC\r\nC******        147-PCONEAX        **************************************\r\nC\r\n 1470 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2).EQ.0 .AND. M(3).NE.0 .OR. M(2).LT.0) GO TO 8\r\n      IF (M(4).EQ.0 .AND. M(5).NE.0 .OR. M(4).LT.0) GO TO 8\r\n      IF (M(6).EQ.0 .AND. M(7).NE.0 .OR. M(6).LT.0) GO TO 8\r\n      IF (M(2).NE.0 .AND. M(3).EQ.0) GO TO 8\r\n      IF (M(6).NE.0 .AND. M(7).EQ.0) GO TO 8\r\n      IH = NN\r\n      ASSIGN 1471 TO R\r\n      ASSIGN    8 TO R1\r\n      GO TO 21\r\n 1471 N = 24\r\n      GO TO 3\r\nC\r\nC******        148-SPCAX       *****************************************\r\nC\r\n 1480 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8\r\n      IF (IFPDCO(M(4))) GO TO 8\r\nCHURNB 11/93\r\n      IF(MF(3).EQ.0)GO TO 1481\r\nCHURNE\r\n      ASSIGN    8 TO R1\r\n      ASSIGN 1489 TO R\r\n      IH = M(3)\r\n      GO TO 21\r\n 1489 N = 5\r\n      GO TO 3\r\nCHURNB 11/93\r\nC\r\nC HID IS BLANK - GENERATE HID FOR THIS SPCAX FOR ALL HARMONICS\r\nC\r\n 1481 NHARMS=NNS+1\r\n      IF(ONEH)NHARMS=1\r\n      DO 1482 IL=1,NHARMS\r\n      N=N+5\r\n      I(N-4)=M(1)\r\n      I(N-3)=M(2)\r\n      I(N-1)=M(4)\r\n      I( N )=M(5)\r\n      I(N-2)=IL-1\r\n      IF(ONEH)I(N-2)=NN\r\n 1482 CONTINUE\r\n      GO TO 2\r\nCHURNE\r\nC\r\nC******        149-MPCAX       *****************************************\r\nC\r\n 1490 IF (M(7) .GT. 6) BADDAT = .TRUE.\r\n      IF (ITHRML.EQ.1 .AND. M(7).GT.1) BADDAT = .TRUE.\r\n      IF (KM .NE. 0) GO TO 1492\r\n      KM = 1\r\n      NT = 0\r\nCHURNB 11/93\r\n      BLANKH=.FALSE.\r\nCHURNE\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.0 .OR. MF(3).NE.0 .OR. MF(4).NE.0)\r\n     1    BADFOR = .TRUE.\r\n      L1 = 5\r\nCHURNB 11/93\r\n      IF(MF(6).EQ.0)BLANKH=.TRUE.\r\n      IF(BLANKH)CALL GOPEN(ISCR1,IBUFF(2*NBUF+1),1)\r\nCHURNE\r\n      ASSIGN 1491 TO R\r\n      GO TO 1493\r\n 1491 IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      ID = M(1)\r\n      N  = 1\r\n      I(N) = ID\r\n      IH = NN\r\n      ASSIGN 1497 TO R\r\n      ASSIGN    8 TO R1\r\n      GO TO 21\r\n 1492 L1 = 1\r\n      IF (M(3) .GT. 6) BADDAT = .TRUE.\r\n      IF (ITHRML.EQ.1 .AND. M(3).GT.1) BADDAT = .TRUE.\r\n      ASSIGN 1496 TO R\r\n 1493 DO 1495 L = L1,8\r\n      IF (MF(L) .EQ. 0) GO TO 1495\r\n      IF (L.EQ.4 .OR. L.EQ.8) GO TO 1494\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      GO TO 1495\r\n 1494 IF (MF(L) .NE. 2) BADFOR = .TRUE.\r\n 1495 CONTINUE\r\n      GO TO R, (1491,1496)\r\n 1496 N = 0\r\n 1497 DO 1498 L = L1,5,4\r\n      IF (M(L  ).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 1498\r\n      IF (M(L).LE.0 .OR. M(L+1).LT.0 .OR. M(L+2).LT.0 .OR. M(L+3).EQ.0\r\n     1   .AND. L1.EQ.5) BADDAT = .TRUE.\r\nCHURNB 11/93\r\n      IF(BLANKH.AND.L1.EQ.1.AND.MF(L+1).NE.0)BADFOR=.TRUE.\r\n      IF(.NOT.BLANKH.AND.L1.EQ.1.AND.MF(L+1).EQ.0)BADFOR=.TRUE.\r\nCHURNE\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n 1498 CONTINUE\r\n      NT = NT + N\r\n      IF (N .LT. 4) BADDAT = .TRUE.\r\n      KN = 1\r\nCHURNB 11/93\r\n      IF(M1(1).NE.0.OR.M1(2).NE.0)GO TO 1499\r\n      IF(.NOT.BLANKH)GO TO 9\r\n      CALL WRITE(ISCR1,I,N,0)\r\nC      WRITE(6,10005)N,(I(IL),IL=1,N)\r\nC10005 FORMAT(6H MPCAX,6I5)\r\n      N=0\r\n      GO TO 9\r\nCHURNE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\nCHURNB 11/93\r\n 1499 CONTINUE\r\nCHURNE\r\n      N  = N + 4\r\n      I(N-3) = -1\r\n      I(N-2) = -1\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KN = 0\r\n      KM = 0\r\n      IF (NT .LT. 9) BADDAT = .TRUE.\r\nCHURNB 11/93\r\n      IF(.NOT.BLANKH)GO TO 9\r\nC\r\nC MPCAX CARD DONE - GENERATE CARDS FOR ALL HARMONICS ASSUMING THE ONE JU\r\nC STORED (WITH BLANK HARMONIC) IS FOR THE ZERO HARMONIC\r\nC\r\n      IF(NT.GT.NOPEN)CALL MESAGE(-8,0,NAM)\r\n      CALL WRITE(ISCR1,I,N-4,1)\r\nC     WRITE(6,10006)N,(I(IL),IL=1,N)\r\nC0006 FORMAT(7H MPCAX1,10I5)\r\n      CALL CLOSE(ISCR1,1)\r\n      CALL GOPEN(ISCR1,IBUFF(2*NBUF+1),0)\r\n      CALL READ(*14990,*14991,ISCR1,IBUFF(3*NBUF+1),NOPEN,0,NNT)\r\n14990 CALL MESAGE(-8,0,NAM)\r\n14991 CALL CLOSE(ISCR1,1)\r\nC     WRITE(6,10007)NT,NNT,(IBUFF(3*NBUF+IL),IL=1,NNT)\r\nC0007 FORMAT(7H MPCAX2,10I5)\r\n      IF(NT.NE.NNT)CALL MESAGE(-61,0,0)\r\nC\r\nC ALL MPCAX CARD INFO FOR THIS CARD IS READ IN. GENERATE FOR ALL HARMONI\r\nC\r\n      NHARMS=NNS+1\r\n      IF(ONEH)NHARMS=1\r\n      DO 14992 L=1,NHARMS\r\n      ILL=L-1\r\n      IF(ONEH)ILL=IABS(NNS)\r\n      DO 14993 IL=3,NT,4\r\n14993 IBUFF(3*NBUF+IL)=ILL\r\n      T4(2,K)=T4(2,K)+NT\r\n      CALL WRITE(215,IBUFF(3*NBUF+1),NT,0)\r\n      T4(2,K)=T4(2,K)+4\r\n      CALL WRITE(215,IONES,4,0)\r\n14992 CONTINUE\r\n      N=0\r\nCHURNE\r\n      GO TO 9\r\nC\r\nC******        151-SUPAX, 150-OMITAX     *******************************\r\nC\r\n 1500 L = 1\r\n 1501 IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1510\r\n      IF (M(L).LE.0 .OR.  M(L+1).LT.0) GO TO 8\r\n      IF (IFPDCO(M(L+2))) GO TO 8\r\n      ASSIGN 1507 TO R\r\n      ASSIGN    8 TO R1\r\n      IH = M(L+1)\r\n      GO TO 21\r\n 1507 N  = N + 3\r\n      IF (N.GT.3 .AND. M(L).EQ.M(L-3) .AND. M(L-1).EQ.M(L-4) .AND.\r\n     1    M(L-2).EQ.M(L-5)) GO TO 8\r\n      I(N-2) = M(L  )\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n 1510 L = L + 3\r\n      IF (L .EQ. 4) GO TO 1501\r\n      IF (N) 8,8,2\r\nC\r\nC******        152-POINTAX        **************************************\r\nC\r\n 1520 N = 3\r\n 1521 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n 1522 ASSIGN 3 TO R\r\n 1523 IH = NN\r\n      ASSIGN 8 TO R1\r\n      GO TO 21\r\n 1524 ASSIGN 2 TO R\r\n      GO TO 1523\r\nC\r\nC******        153-SECTAX         **************************************\r\nC\r\n 1530 N = 5\r\n      IF (RM(3)) 8,8,1521\r\nC\r\nC******        154-PRESAX         **************************************\r\nC\r\n 1540 N = 6\r\n      IF (M(1).LE.0 .OR. M(4).LE.0 .OR. M(4).EQ.M(3)) GO TO 8\r\n      IF (IPIEZ .EQ. 1) GO TO 1522\r\n      IF (M(3)  .LE. 0) GO TO 8\r\n      IF (ABS(RM(5)).GE.ABS(RM(6)) .AND. SIGN(1.,RM(5)).EQ.SIGN(1.,RM(6\r\n     1   ))) GO TO 8\r\n      GO TO 1522\r\nC\r\nC******        155-TEMPAX         **************************************\r\nC\r\n 1550 DO 1555 L = 1,5,4\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1555\r\n      IF (M(L).LE.0 .OR.  M(L+1).LE.0) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n 1555 CONTINUE\r\n      IF (N) 8,8,1524\r\nC\r\nC******     156-FORCEAX, 157-MOMAX    *******************************\r\nC\r\n 1560 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      IF (MF(3).EQ.2.OR.MF(3).EQ.4) GO TO 8\r\n      IF (MF(3).NE.3 .AND. M(3) .LT. 0) GO TO 8\r\n      N = 8\r\n      L = 4\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      I(4) = 0\r\n      IF (MF(3) .EQ. 3) I(4) = M(4)\r\n      IF (MF(3) .EQ. 3) L = 5\r\n      I(5) = M(L)\r\n      I(6) = M(L+1)\r\n      I(7) = M(L+2)\r\n      I(8) = M(L+3)\r\n      GO TO 2\r\nC\r\nC******        17-MPC       ******************************************\r\nC\r\n 1700 IF (M(3).GT.6 .OR. M(6).GT.6) BADDAT = .TRUE.\r\n      IF (ITHRML .NE. 1) GO TO 1710\r\n      IF (M(3).GT.1 .OR. M(6).GT.1) BADDAT = .TRUE.\r\n 1710 IF (KM .NE. 0) GO TO 1724\r\n      KM = 1\r\n      NT = 0\r\n      IF (MF(1).NE.1 .OR. MF(8).NE.0) BADFOR = .TRUE.\r\n      ASSIGN 1712 TO R\r\n      GO TO 1725\r\n 1712 IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      ID = M(1)\r\n      IF (M(2).LE.0 .OR. M(3).LT.0 .OR. M(4).EQ.0) BADDAT = .TRUE.\r\n      IF (IDS.EQ.ID .AND. JMS.EQ.M(2) .AND. KMS.EQ.M(3)) BADDAT = .TRUE.\r\n      IDS = ID\r\n      JMS = M(2)\r\n      KMS = M(3)\r\n      N = 4\r\n      DO 1721 L = 1,4\r\n 1721 I(L) = M(L)\r\n      GO TO 1745\r\n 1724 IF (MF(1).NE.0 .OR. MF(8).NE.0) BADFOR = .TRUE.\r\n      ASSIGN 1737 TO R\r\n 1725 DO 1736 L = 2,7\r\n      IF (MF(L) .EQ. 0) GO TO 1736\r\n      IF (L.EQ.4 .OR. L.EQ.7) GO TO 1733\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      GO TO 1736\r\n 1733 IF (MF(L) .NE. 2) BADFOR = .TRUE.\r\n 1736 CONTINUE\r\n      GO TO R, (1712,1737)\r\n 1737 N = 0\r\n      IF (M(2).EQ.0 .AND. M(3).EQ.0 .AND. M(4).EQ.0) GO TO 1745\r\n      IF (M(2).LE.0 .OR.  M(3).LT.0) BADDAT = .TRUE.\r\n      N = 3\r\n      DO 1742 L = 2,4\r\n 1742 I(L-1) = M(L)\r\n 1745 IF (M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0) GO TO 1751\r\n      IF (M(5).LE.0 .OR.  M(6).LT.0) BADDAT = .TRUE.\r\n      N = N + 3\r\n      I(N-2) = M(5)\r\n      I(N-1) = M(6)\r\n      I(N  ) = M(7)\r\n 1751 IF (N .LE. 0) BADDAT = .TRUE.\r\n      NT = NT + N\r\n      DO 1754 L = 1,8\r\n 1754 M(L) = 0\r\n      KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      N = N + 3\r\n      I(N-2) = -1\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KN = 0\r\n      KM = 0\r\n      IF (NT .LT. 7) BADDAT = .TRUE.\r\n      GO TO 9\r\nC\r\nC******     182-DAREA, 183-DELAY, 184-DPHASE      *******************\r\nC\r\n 1820 IF (M(1) .LE. 0) GO TO 8\r\n      DO 1825 L = 2,5,3\r\nCHURNB 11/93\r\nC     WRITE(6,10003)L,M(L),M(L+1),M(L+2),N,NNS,(I(IL),IL=1,N)\r\nC0003 FORMAT(7H DAREA0,6I10/(1X,24I5))\r\nCHURNE\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 1825\r\n      IF (M(L).LE.0 .OR.  M(L+1).LT.0 .OR.  M(L+1).GT.6) GO TO 8\r\n      N = N + 4\r\n      I(N-3) = M(1)\r\n      I(N-2) = M(L)\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\nCHURNB 11/93\r\n      IF(.NOT.IAX)GO TO 1825\r\n      IF(M(L).GE.1000000)GO TO 1825\r\nC\r\nC FOR AXIC PROBLEMS AND GRID ID ON DAREA .LT. 10**6, GENERATE DAREAS FOR\r\nC HARMONICS, COMPUTING THE GRID ID.  ASSUME  PRESSURE VALUE IS GIVEN FOR\r\nC ZERO HARMONIC; FOR HIGHER HARMONICS, HALVE IT.\r\nC\r\n      NHARMS=NNS+1\r\n      IF(ONEH)NHARMS=1\r\n      DO 1824 IL=1,NHARMS\r\n      ILL=IL\r\n      IF(NNS.GE.0 .AND. IL.EQ.1)GO TO 1823\r\n      IF(IL.GT.1)GO TO 1821\r\nC\r\nC NNS.LT.0 .AND. IL.EQ.1\r\nC\r\n      ILL=NN+1\r\n      GO TO 1822\r\n 1821 N=N+4\r\n      I(N-3)=M(1)\r\n      I(N-1)=M(L+1)\r\n 1822 XIN=0.5*RM(L+2)\r\n      I(N)=IXIN\r\n 1823 I(N-2)=M(L)+1000000*ILL\r\n 1824 CONTINUE\r\nCHURNE\r\n 1825 CONTINUE\r\nCHURNB 11/93\r\nC      WRITE(6,10001)NHARMS,NNS,N,(I(IL),IL=1,N)\r\nC10001 FORMAT(6H DAREA,3I10/(1X,24I5))\r\nCHURNE\r\n      IF (N) 8,8,2\r\nC\r\nC******        279-CRIGD1         **********************************\r\nC\r\n 2010 CONTINUE\r\n      KN = 1\r\n      GO TO (2011,2012), IRIGID\r\n 2011 CONTINUE\r\n      IRIGID = IRIGID + 1\r\n      IF (MF(1).NE.1) BADFOR = .TRUE.\r\n      IF (M(1) .LE.0) BADDAT = .TRUE.\r\n      I(1) = M(1)\r\n      N = 2\r\n      IF (MF(2).NE.1) BADFOR = .TRUE.\r\n      IF (M(2) .LT.1) BADDAT = .TRUE.\r\n      I(2) = M(2)\r\n      IF (MF(4).EQ.3) GO TO 2020\r\n      IRG = 3\r\n      GO TO 2013\r\n 2012 CONTINUE\r\n      N = 0\r\n      IRG = 1\r\n 2013 CONTINUE\r\n      DO 2015 L = IRG,8\r\n      L1 = L\r\n      IF (M(L)  .LE. 0) GO TO 2018\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      I(N+1) = M(L)\r\n      DO 2014 J = 1,6\r\n 2014 I(N+1+J) = J\r\n      N = N + 7\r\n 2015 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 2016 IRIGID = 1\r\n      DO 2017 J = 1,7\r\n 2017 I(N+J) = -1\r\n      IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.BRIGID) I(N+2) = 0\r\n      N  = N + 7\r\n      KN = 0\r\n      GO TO 9\r\n 2018 CONTINUE\r\n      DO 2019 LK = L1,8\r\n      IF (M(LK) .NE.0) BADDAT = .TRUE.\r\n      IF (MF(LK).NE.0) BADFOR = .TRUE.\r\n 2019 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2022\r\n      GO TO 2016\r\n 2020 IF (M(4).EQ.THRU .AND. M(5).EQ.BLNK) GO TO 2024\r\n      BADDAT = .TRUE.\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2016\r\n 2022 BADFOR = .TRUE.\r\n      GO TO 9\r\n 2024 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2022\r\n      IF (MF(3).NE.1 .OR.MF(5).NE.1) BADFOR = .TRUE.\r\n      IF (M(3).LE.0  .OR. M(6).LE.0) BADDAT = .TRUE.\r\n      IF (M(6) .LE. M(3)) BADDAT = .TRUE.\r\n      DO 2025 L = 6,8\r\n      IF (MF(L) .NE. 0) BADFOR = .TRUE.\r\n 2025 CONTINUE\r\n      IF (BADFOR .OR. BADDAT) GO TO 2016\r\n      T4(2,K) = T4(2,K) + 2\r\n      CALL WRITE (210,M,2,0)\r\n      L = M(3)\r\n 2026 I(1) = L\r\n      DO 2027 J = 1,6\r\n 2027 I(J+1) = J\r\n      T4(2,K) = T4(2,K) + 7\r\n      CALL WRITE (210,I,7,0)\r\n      L = L + 1\r\n      IF (L .LE. M(6)) GO TO 2026\r\n      IRIGID = 1\r\n      DO 2028 J = 1,7\r\n 2028 I(J) = -1\r\n      IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.BRIGID) I(2) = 0\r\n      N  = 0\r\n      KN = 0\r\n      T4(2,K) = T4(2,K) + 7\r\n      CALL WRITE (210,I,7,0)\r\n      GO TO 9\r\nC\r\nC******        284-CRIGD2        **********************************\r\nC\r\n 2060 CONTINUE\r\n      KN = 1\r\n      GO TO (2061,2062), IRIGID\r\n 2061 IRIGID = IRIGID + 1\r\n      IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(1)  .LE. 0) BADDAT = .TRUE.\r\n      I(1) = M(1)\r\n      N = 2\r\n      IF (MF(2) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(2)  .LT. 1) BADDAT = .TRUE.\r\n      I(2) = M(2)\r\n      IRG  = 3\r\n      GO TO 2063\r\n 2062 CONTINUE\r\n      N   = 0\r\n      IRG = 1\r\n 2063 CONTINUE\r\n      DO  2065 L = IRG,8,2\r\n      L1 = L\r\n      IF (M(L  ) .LE. 0) GO TO 2068\r\n      IF (M(L+1) .LE. 0) BADDAT = .TRUE.\r\n      IF (MF(L).NE.1 .OR. MF(L+1).NE.1) BADFOR = .TRUE.\r\n      I(N+1) = M(L)\r\n      IF (IFPDCO(M(L+1))) BADDAT = .TRUE.\r\n      DO 2064 J = 1,6\r\n 2064 I(N+1+J) = LL(J)\r\n      N = N + 7\r\n 2065 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 2066 IRIGID = 1\r\n      DO 2067 J = 1,7\r\n 2067 I(N+J) = -1\r\n      IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.CRIGID) I(N+2) = 0\r\n      N  = N + 7\r\n      KN = 0\r\n      GO TO 9\r\n 2068 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE.\r\n      DO 2069 LK = L1,8\r\n      IF (M(LK)  .NE. 0) BADDAT = .TRUE.\r\n      IF (MF(LK) .NE. 0) BADFOR = .TRUE.\r\n 2069 CONTINUE\r\n      GO TO 2066\r\nC\r\nC******      298-CRIGD3, 350-CRBE1       ******************************\r\nC\r\n 7000 KN = 1\r\n      GO TO (7020,7160,7200,7240), IRIGID\r\n 7020 IRIGID = 2\r\n      JRIGID = 1\r\n      KNT1 = KNT\r\n      L1 = 2\r\n      L2 = 6\r\n      L6 = 0\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE.\r\n      IF (M(1) .LT.1 .OR. M(2) .LT.1 .OR. M(3) .LT.1) BADDAT = .TRUE.\r\n      N  = 1\r\n      I(1) = M(1)\r\n      Q(1) = M(1)\r\n      L8   = 1\r\n      NCOMP= 0\r\n 7040 L5 = L2 + 2\r\n      DO 7080 L = L1,L2,2\r\n      L3 = L + 1\r\n      IF (MF(L-L6) .EQ. 0) GO TO 7120\r\n      IF (MF(L-L6).NE.1 .OR. MF(L-L6+1).NE.1) BADFOR = .TRUE.\r\n      IF (M(L).LT.1 .OR. M(L+1).LT.1) BADDAT = .TRUE.\r\n      IF (.NOT.PRT) GO TO 7050\r\n      Q(L8+1) = M(L )\r\n      Q(L8+2) = M(L3)\r\n      L8 = L8 + 2\r\n 7050 I(N+1) = M(L)\r\n      IF (IFPDCO(M(L+1))) BADDAT = .TRUE.\r\n      DO 7060 J = 1,6\r\n      I(N+J+1) = LL(J)\r\n      IF (IRIGID.EQ. 4) GO TO 7060\r\n      IF (LL(J) .NE. 0) NCOMP = NCOMP + 1\r\n 7060 CONTINUE\r\n      N = N + 7\r\n      IF (IRIGID .EQ. 4) GO TO 7080\r\n      IF (NCOMP  .GT. 6) BADDAT = .TRUE.\r\n 7080 CONTINUE\r\n      IF (MF(L5-L6) .NE. 0) BADFOR = .TRUE.\r\n      IF (M(L5) .NE. 0) BADDAT = .TRUE.\r\n      GO TO (7100,7100,7220), JRIGID\r\n 7100 IF (M1(1).NE.0  .OR.  M1(2).NE.0) GO TO 7110\r\n      IF (M1F(2).NE.0 .AND. NCOMP.LT.6) BADDAT = .TRUE.\r\n      GO TO 9\r\n 7110 BADFOR = .TRUE.\r\n      IRIGID = 1\r\n      GO TO 9\r\n 7120 DO 7140 LK = L3,L5\r\n      IF (MF(LK-L6) .NE. 0) BADFOR = .TRUE.\r\n      IF (M(LK) .NE. 0) BADDAT = .TRUE.\r\n 7140 CONTINUE\r\n      GO TO (7100,7100,7220), JRIGID\r\nC\r\n 7160 IF (MF(1) .NE. 0) GO TO 7200\r\n      IRIGID = 3\r\n      JRIGID = 2\r\n      L1 = 2\r\n      L2 = 6\r\n      L6 = 0\r\n      IF (MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE.\r\n      IF (M(1).NE.0 .OR. M(2).LT.1 .OR. M(3).LT.1) BADDAT = .TRUE.\r\n      N = 0\r\n      GO TO 7040\r\nC\r\n 7200 IRIGID = 4\r\n      JRIGID = 3\r\n      L1 = 3\r\n      L2 = 7\r\n      L6 = 1\r\n      L7 = L8\r\n      IF (MF(1).NE.3 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE.\r\n      IF ((M(1).NE.MSET .AND. M(1).NE.IUM) .OR. M(2).NE.BLNK .OR.\r\n     1     M(3).LT.1 .OR. M(4).LT.1) GO TO 7250\r\n      N = 1\r\n      I(1) = MSET\r\n      GO TO 7040\r\n 7220 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      IRIGID = 1\r\n      DO 7230 J = 1,7\r\n 7230 I(N+J) = -1\r\n      IF (M1(1).EQ.ARIGID .AND. M1(2).EQ.DRIGID) I(N+2) = 0\r\n      IF (M1(1).EQ.CRBE   .AND. M1(2).EQ.ERIGID) I(N+2) = 0\r\n      N  = N + 7\r\n      KN = 0\r\n      IF (KZ.NE.50 .OR. .NOT.PRT) GO TO 9\r\n      LK = (L8+4)/3 + 2\r\n      CALL PAGE2 (LK)\r\n      WRITE  (NOUT,7232) SCC,KNT1,(Q(J),J=1,L7)\r\n 7232 FORMAT (/25X,A19,I7,1H-,5X,'CRBE1 ',7I8, /,(71X,6I8))\r\n      LK = L7 + 1\r\n      WRITE  (NOUT,7234) (Q(J),J=LK,L8)\r\n 7234 FORMAT (69X,'UM',6I8, /,(71X,6I8))\r\n      WRITE  (NOUT,7236) GCC,(Q(J),J=1,L7)\r\n 7236 FORMAT (25X,A19,13X,'CRIGD3',7I8, /,(71X,6I8))\r\n      WRITE  (NOUT,7238) (Q(J),J=LK,L8)\r\n 7238 FORMAT (67X,'MSET',6I8, /,(71X,6I8))\r\n      GO TO 9\r\nC\r\n 7240 L1 = 2\r\n      L2 = 6\r\n      L6 = 0\r\n      IF (MF(1).NE.0 .OR. MF(2).NE.1 .OR. MF(3).NE.1) BADFOR = .TRUE.\r\n      IF (M(1) .NE.0 .OR. M(2) .LT.1 .OR. M(3) .LT.1) BADDAT = .TRUE.\r\n      N = 0\r\n      GO TO 7040\r\n 7250 WRITE (NOUT,6475) UFM,BLNK,Q(1),KNT1\r\n      GO TO 8\r\nC\r\nC******         297-CRIGDR      *************************************\r\nC\r\n 7300 DO 7320 L = 1,5,4\r\n      IF (M(L  ).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0 .AND.\r\n     1    M(L+3).EQ.0) GO TO 7320\r\n      IF (M(L).LE.0 .OR. M(L+1).LE.0 .OR. M(L+2).LE.0 .OR. M(L+3).LE.0)\r\n     1   GO TO 8\r\n      IF (M(L+1) .EQ. M(L+2)) GO TO 8\r\n      IF (M(L+3) .GT. 3) GO TO 7310\r\n      N = N + 4\r\n      IF (N.GT.4 .AND. M(L).EQ.M(L-4)) GO TO 8\r\n      I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n      GO TO 7320\r\n 7310 WRITE (NOUT,6475) UFM,BLNK,M(L),KNT\r\n      BADDAT = .TRUE.\r\n 7320 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC******       347-CRROD        *****************************************\r\nC\r\nC     MAP THIS RIGID ELEMENT INTO CRIGID3 FORM\r\nC\r\n 6000 IF (MF(1)+MF(2)+MF(3) .NE. 3) GO TO 7\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0) GO TO 8\r\n      IF (M(2) .EQ. M(3)) GO TO 8\r\n      IF (M(4).LT.0 .OR. M(5).LT.0) GO TO 6480\r\n      L = M(4) + M(5)\r\n      IF (L.LT.1 .OR. L.GT.3) GO TO 6480\r\n      IF (M(4).NE.0 .AND. M(5).NE.0) GO TO 6480\r\n      IF (.NOT.PRT) GO TO 6004\r\n      CALL PAGE2 (3)\r\n      IF (M(4).NE.0) WRITE (NOUT,6002) SCC,KNT,(M(J),J=1,4),GCC,M(1),\r\n     1                                 M(3),M(2),M(4)\r\n      IF (M(4).EQ.0) WRITE (NOUT,6003) SCC,KNT,(M(J),J=1,3),M(5),GCC,\r\n     1                                 (M(J),J=1,3),M(5)\r\n 6002 FORMAT (/25X,A19,I7,1H-,5X,'CRROD ',4I8,\r\n     1        /25X,A19,13X,'CRIGDR',4I8)\r\n 6003 FORMAT (/25X,A19,I7,1H-,5X,'CRROD ',3I8,8X,I8,\r\n     1        /25X,A19,13X,'CRIGDR',4I8)\r\n 6004 L = M(3)\r\n      IF (M(4) .EQ. 0) GO TO 6005\r\n      L = M(2)\r\n      M(2) = M(3)\r\n      M(3) = L\r\n      M(5) = M(4)\r\n 6005 M(4) = M(5)\r\n      N = 4\r\n      GO TO 3\r\nC\r\nC******       348-CRBAR        *****************************************\r\nC\r\nC     MAP THIS RIGID ELEMENT INTO CRIGD3 FORM\r\nC\r\n 6100 IF (MF(1)+MF(2)+MF(3) .NE. 3) GO TO 7\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0) GO TO 8\r\n      IF (M(2) .EQ. M(3)) GO TO 8\r\n      RBE = .FALSE.\r\n      IF (M(6).EQ.0 .AND. M(7).EQ.0) RBE = .TRUE.\r\n      IF (M(4).EQ.0 .AND. M(5).EQ.0) GO TO 6470\r\n      IF (IFPDCO(M(4))) GO TO 6470\r\n      LK = 1\r\n      DO 6110 L = 1,6\r\n      LLL = LL(L)\r\n      IF (RBE .AND. LLL.EQ.0) M(6) = M(6) + L*LK\r\n      IF (LLL .EQ. 0) LK = LK*10\r\n 6110 IA(L) = LLL\r\n      IF (IFPDCO(M(5))) GO TO 6470\r\n      LK = 1\r\n      DO 6115 L = 1,6\r\n      LLL = LL(L)\r\n      IF (RBE .AND. LLL.EQ.0) M(7) = M(7) + L*LK\r\n      IF (LLL .EQ. 0) LK = LK*10\r\n 6115 IB(L) = LLL\r\n      IF (RBE) GO TO 6130\r\n      IF (IFPDCO(M(6))) GO TO 6480\r\n      DO 6120 L = 1,6\r\n      IF (IA(L) .EQ.     0) GO TO 6120\r\n      IF (IA(L) .EQ. LL(L)) GO TO 6480\r\n 6120 JA(L) = LL(L)\r\n      IF (IFPDCO(M(7))) GO TO 6480\r\n      DO 6125 L = 1,6\r\n      IF (IB(L) .EQ.     0) GO TO 6125\r\n      IF (IB(L) .EQ. LL(L)) GO TO 6480\r\n 6125 JB(L) = LL(L)\r\nC\r\n 6130 IF (.NOT.PRT) GO TO 6133\r\n      CALL PAGE2 (4)\r\n      WRITE  (NOUT,6131) SCC,KNT,(M(L),L=1,7),GCC,M(1),M(2),M(4),M(3),\r\n     1                   M(5),M(2),M(6),M(3),M(7)\r\n 6131 FORMAT (/25X,A19,I7,1H-,5X,'CRBAR ',7I8,\r\n     1        /25X,A19,13X,'CRIGD3',5I8, /67X,'MSET',4I8)\r\nC\r\nC     KZ=48 (CRBAR),   KZ=49 (CRTRPLT)\r\nC\r\n 6133 NCOMP = 0\r\n      DO 6135 L = 1,6\r\n      IF (IA(L) .NE. 0) NCOMP = NCOMP + 1\r\n      IF (IB(L) .NE. 0) NCOMP = NCOMP + 1\r\n      IF (KZ   .NE. 49) GO TO 6135\r\n      IF (IC(L) .NE. 0) NCOMP = NCOMP + 1\r\n 6135 CONTINUE\r\n      IF (NCOMP .NE. 6) GO TO 6470\r\n      LK = 0\r\n      IF (KZ .EQ. 49) LK = 1\r\n      I(1) = M(1)\r\n      N  = 2\r\n      IF (M(4+LK) .EQ. 0) GO TO 6143\r\n      I(N) = M(2)\r\n      DO 6140 J = 1,6\r\n 6140 I(N+J) = IA(J)\r\n      N = N + 7\r\n 6143 IF (M(5+LK) .EQ. 0) GO TO 6147\r\n      I(N) = M(3)\r\n      DO 6145 J = 1,6\r\n 6145 I(N+J) = IB(J)\r\n      N = N + 7\r\n 6147 IF (KZ.NE.49 .OR. M(6+LK).EQ.0) GO TO 6160\r\n      I(N) = M(4)\r\n      DO 6150 J = 1,6\r\n 6150 I(J+N) = IC(J)\r\n      N = N + 7\r\nC\r\n 6160 I(N) = MSET\r\n      N = N + 1\r\n      IF (.NOT.RBE) GO TO 6170\r\n      DO 6165 J = 1,6\r\n      IF (IA(J) .EQ. 0) IA(J) =-J\r\n      IF (IA(J) .GT. 0) IA(J) = 0\r\n      IF (IB(J) .EQ. 0) IB(J) =-J\r\n      IF (IB(J) .GT. 0) IB(J) = 0\r\n      IF (KZ   .NE. 49) GO TO 6165\r\n      IF (IC(J) .EQ. 0) IC(J) =-J\r\n      IF (IC(J) .GT. 0) IC(J) = 0\r\n 6165 CONTINUE\r\n 6170 IF (KZ .EQ. 49) LK = 3\r\n      IF (M(6+LK) .EQ. 0) GO TO 6177\r\n      I(N) = M(2)\r\n      DO 6175 J = 1,6\r\n      IF (     RBE) I(N+J) =-IA(J)\r\n      IF (.NOT.RBE) I(N+J) = JA(J)\r\n 6175 CONTINUE\r\n      N = N + 7\r\n 6177 IF (M(7+LK) .EQ. 0) GO TO 6182\r\n      I(N) = M(3)\r\n      DO 6180 J = 1,6\r\n      IF (     RBE) I(N+J) =-IB(J)\r\n      IF (.NOT.RBE) I(N+J) = JB(J)\r\n 6180 CONTINUE\r\n      N = N + 7\r\n 6182 IF (KZ.NE.49 .OR. M(8+LK).EQ.0) GO TO 6190\r\n      I(N) = M(4)\r\n      DO 6185 J = 1,6\r\n      IF (     RBE) I(N+J) =-IC(J)\r\n      IF (.NOT.RBE) I(N+J) = JC(J)\r\n 6185 CONTINUE\r\n      N = N + 7\r\n 6190 N = N - 1\r\n      DO 6195 J = 1,7\r\n 6195 I(N+J) = -1\r\n      IF (M1(1).EQ.CRTR .OR. M1(1).EQ.CRBA) I(N+2) = 0\r\n      N = N + 7\r\n      GO TO 9\r\nC\r\nC******      349-CRTRPLT      ******************************************\r\nC\r\nC     MAP THIS RIGID ELEMENT INTO CRIGD3 FORM\r\nC\r\n 6300 IF (MF(1)+MF(2)+MF(3)+MF(4) .NE. 4) GO TO 7\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0)\r\n     1    GO TO 8\r\n      IF (M(2).EQ.M(3) .OR. M(2).EQ.M(4) .OR. M(3).EQ.M(4)) GO TO 8\r\n      IF (M(5).EQ.0 .AND. M(6).EQ.0 .AND. M(7).EQ.0) GO TO 6470\r\n      RBE  = .FALSE.\r\n      IF (M(9).EQ.0 .AND. M(10).EQ.0 .AND. M(11).EQ.0) RBE = .TRUE.\r\n      IF (IFPDCO(M(5))) GO TO 6470\r\n      LK = 1\r\n      DO 6310 L = 1,6\r\n      LLL = LL(L)\r\n      IF (RBE .AND. LLL.EQ.0) M(9) = M(9) + L*LK\r\n      IF (LLL .EQ. 0) LK = LK*10\r\n 6310 IA(L) = LLL\r\n      IF (IFPDCO(M(6))) GO TO 6470\r\n      LK = 1\r\n      DO 6320 L = 1,6\r\n      LLL = LL(L)\r\n      IF (RBE .AND. LLL.EQ.0) M(10) = M(10) + L*LK\r\n      IF (LLL .EQ. 0) LK = LK*10\r\n 6320 IB(L) = LLL\r\n      IF (IFPDCO(M(7))) GO TO 6470\r\n      LK = 1\r\n      DO 6330 L = 1,6\r\n      LLL = LL(L)\r\n      IF (RBE .AND. LLL.EQ.0) M(11) = M(11) + L*LK\r\n      IF (LLL .EQ. 0) LK = LK*10\r\n 6330 IC(L) = LLL\r\n      IF (RBE) GO TO 6365\r\n      IF (IFPDCO(M(9))) GO TO 6480\r\n      DO 6340 L = 1,6\r\n      IF (IA(L) .EQ.     0) GO TO 6340\r\n      IF (IA(L) .EQ. LL(L)) GO TO 6480\r\n 6340 JA(L) = LL(L)\r\n      IF (IFPDCO(M(10))) GO TO 6480\r\n      DO 6350 L = 1,6\r\n      IF (IB(L) .EQ.     0) GO TO 6350\r\n      IF (IB(L) .EQ. LL(L)) GO TO 6480\r\n 6350 JB(L) = LL(L)\r\n      IF (IFPDCO(M(11))) GO TO 6480\r\n      DO 6360 L = 1,6\r\n      IF (IC(L) .EQ.     0) GO TO 6360\r\n      IF (IC(L) .EQ. LL(L)) GO TO 6480\r\n 6360 JC(L) = LL(L)\r\n 6365 IF (.NOT.PRT) GO TO 6133\r\n      KNT1 = KNT\r\n      IF (.NOT.RBE) KNT1 = KNT - 1\r\n      CALL PAGE2 (5)\r\n      WRITE (NOUT,6370) SCC,KNT1,(M(L),L=1,7),(M(L),L=9,11), GCC,M(1),\r\n     1   M(2),M(5),M(3),M(6),M(4),M(7),M(2),M(9),M(3),M(10),M(4),M(11)\r\n 6370 FORMAT (/25X,A19,I7,1H-,5X,'CRTRPLT',I7,6I8, /63X,3I8,\r\n     1        /25X,A19,13X,'CRIGD3',7I8, /67X,'MSET',6I8)\r\n      GO TO 6133\r\nC\r\nC******    351-CRBE2         *******************************************\r\nC\r\nC     MAP THIS RIGID ELEMENT INTO CRIGD2 FORM\r\nC\r\n 6400 KN = 1\r\n      GO TO (6405,6410), IRIGID\r\n 6405 IRIGID = IRIGID + 1\r\n      KNT1 = KNT\r\n      L6 = 60\r\n      L7 = L6\r\n      L8 = 0\r\n      IF (MF(1)+MF(2)+MF(3) .NE.   3) GO TO 7\r\n      IF (M(1) .LE.0 .OR. M(2) .LE.0) GO TO 8\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      Q(1) = M(1)\r\n      Q(2) = M(2)\r\n      M3   = M(3)\r\n      L8   = L8+2\r\n      Q(L7+1) = M(1)\r\n      Q(L7+2) = M(2)\r\n      Q(L7+3) = M3\r\n      L7  = L7 + 3\r\n      N   = 2\r\n      IRG = 4\r\n      IF (IFPDCO(M3)) BADDAT = .TRUE.\r\n      IF (M3 .EQ.  0) BADDAT = .TRUE.\r\n      GO TO 6420\r\n 6410 N   = 0\r\n      IRG = 1\r\n 6420 DO 6430 L = IRG,8\r\n      IF (MF(L) .EQ. 0) GO TO 6450\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(L)  .LE. 0) BADDAT = .TRUE.\r\n      IF (L8 .GE. L6) GO TO 6422\r\n      Q(L8+1) = M(L)\r\n      Q(L8+2) = M3\r\n 6422 L8 = L8 + 2\r\n      IF (L7 .LT. 92) Q(L7+1) = M(L)\r\n      L7 = L7 + 1\r\n      I(N+1) = M(L)\r\n      DO 6425 J = 1,6\r\n 6425 I(N+1+J) = LL(J)\r\n      N = N + 7\r\n 6430 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 6440 IRIGID = 1\r\n      DO 6445 J = 1,7\r\n 6445 I(N+J) = -1\r\n      IF (M1(1).EQ.CRBE .AND. M1(2).EQ.FRIGID) I(N+2) = 0\r\n      N  = N + 7\r\n      KN = 0\r\n      IF (.NOT.PRT) GO TO 9\r\n      L3 = L7\r\n      L5 = L8\r\n      IF (L3 .GT. 92) L3 = 92\r\n      IF (L5 .GT. L6) L5 = L6\r\n      J = (L5+2)/8 + (L3-L6+2)/8 + 2\r\n      CALL PAGE2 (J)\r\n      L6 = L6 + 1\r\n      WRITE (NOUT,6447) SCC,KNT1,(Q(J),J=L6,L3)\r\n      WRITE (NOUT,6448) GCC,(Q(J),J=1,L5)\r\n 6447 FORMAT (/25X,A19,I7,1H-,5X,'CRBE2 ',8I8, /,(63X,8I8))\r\n 6448 FORMAT ( 25X,A19,13X,'CRIGD2',8I8, /,(63X,8I8))\r\n      IF (L8.GT.L6 .OR. L7.GT.102) WRITE (NOUT,6449)\r\n 6449 FORMAT (57X,'*** ABOVE PRINTOUT MAY BE IMCOMPLETE.  DATA IS OK')\r\n      GO TO 9\r\n 6450 L1 = L\r\n      IF (L1 .GT. 8) GO TO 6460\r\n      DO 6455 L = L1,8\r\n      IF (M(L)  .NE. 0) BADDAT = .TRUE.\r\n      IF (MF(L) .NE. 0) BADFOR = .TRUE.\r\n 6455 CONTINUE\r\n 6460 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE.\r\n      GO TO 6440\r\nC\r\n 6470 WRITE  (NOUT,6475) UFM,IND,M(1),KNT1\r\n 6475 FORMAT (A23,', ILLEGAL ',A2,'DEPENDENT D.O.F.',\r\n     1       ' FOR RIGID ELEMENT',I9,' SORTED COUNT',I8)\r\n      GO TO 8\r\n 6480 WRITE (NOUT,6475) UFM,BLNK,M(1),KNT1\r\n      GO TO 8\r\nC\r\nC******    352-CRBE3         *******************************************\r\nC\r\nC     CARD 3, OR CARDS 2 AND 3, CAN BE OMITTED IF THE CARD(S) CONTAINS\r\nC     ALL BLANKS.\r\nC     CARD 5, OR CARDS 4 AND 5, CAN BE OMITTED IF THE CARD(S) CONTIANS\r\nC     ALL BLANKS, OR DEFAULT FOR THE 'UM' OPTION IS USED\r\nC\r\nC     ACTUALLY THIS CRBE3 INPUT CARD IS NOT WHAT SHOWN IN THE USER'S\r\nC     MANUAL. THE LIST OF G(I,J) CAN BE AS LONG AS NEEDED. THEREFORE\r\nC     CARDS 2 AND 3 CAN BE EXPANDED BEYOND THE 3 GRID POINTS AS SHOWN.\r\nC     THE 4TH AND 5TH CARDS CAN BE EXPANDED TOO. THE WI AND CI FIELDS\r\nC     NEED NOT BE IN THE FIELDS AS SHOWN IN THE EXAMPLE OF THE MANUAL\r\nC\r\nC     CHANGES DONE IN 92 VERSION WERE REMOVED AND REPLACED BY 91 CODE\r\nC     SEE 93 CODE FOR THESE CHANGES\r\nC\r\nC     IM HERE IS CARD NUMBER COUNT\r\nC\r\n 6500 CONTINUE\r\n      IF (KM .NE. 0) GO TO 6510\r\n      KM = 1\r\n      IM = 1\r\n      IF (MF(1)+MF(3)+MF(4) .NE. 3) BADFOR = .TRUE.\r\n      IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0) BADDAT = .TRUE.\r\n      IF (IFPDCO(M(4))) BADDAT = .TRUE.\r\n      IF (MF(5) .NE. 2) BADDAT = .TRUE.\r\n      I(1) = M(1)\r\n      I(2) = M(3)\r\n      I(3) = M(4)\r\nC\r\nC ... NOTE - COMPONENTS IN LL NOT SENT OUT IN CRBE3\r\nC\r\n      N  = 3\r\n      L1 = 5\r\n      GO TO 6520\r\nC\r\nC\r\n 6510 IF (MF(1) .EQ. 3) GO TO 6560\r\n      IF (IM    .EQ. 0) GO TO 6565\r\n      L1 = 1\r\n 6520 DO 6540 L = L1,8\r\n      IF (MF(L) .NE. 2) GO TO 6530\r\n      IF (L1 .EQ. 5) GO TO 6525\r\n      N   = N + 1\r\n      I(N)=-1\r\n 6525 IM  = 1\r\nCWKBI 11/93 SPR93018\r\n      L1  = 1\r\n      N   = N + 1\r\n      I(N)= M(L)\r\n      GO TO 6540\r\n 6530 IF (MF(L) .EQ. 0) GO TO 6540\r\n      IF (MF(L).NE.1 .OR. M(L).LE.0) BADDAT =.TRUE.\r\n      IF (IM  .EQ.  -1) GO TO 6535\r\n      IF (IFPDCO(M(L))) BADDAT =.TRUE.\r\n 6535 IM =-1\r\n      N  = N + 1\r\n      I(N) = M(L)\r\n 6540 CONTINUE\r\n      IF (M1(1) .NE. 0) GO TO 6550\r\n      KN = 1\r\n      GO TO 9\r\n 6550 N  = N + 1\r\n      I(N) = -1\r\n 6555 KN = 0\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) = -3\r\n      GO TO 9\r\n 6560 IF (M(1) .NE. IUM) BADDAT =.TRUE.\r\n      I(N+1) = -1\r\n      I(N+2) = -2\r\n      N  = N + 2\r\n      IM = 0\r\n      L1 = 3\r\n      GO TO 6570\r\n 6565 L1 = 2\r\n 6570 DO 6580 L = 2,6,2\r\n      IF (MF(L) .EQ. 0) GO TO 6575\r\n      IF (MF(L  ).NE.1 .OR. M(L1  ).LE.0) BADDAT =.TRUE.\r\n      IF (MF(L+1).NE.1 .OR. M(L1+1).LE.0) BADDAT =.TRUE.\r\n      IF (IFPDCO(M(L1+1))) BADDAT =.TRUE.\r\n      I(N+1) = M(L1  )\r\n      I(N+2) = M(L1+1)\r\n      N  = N  + 2\r\n 6575 L1 = L1 + 2\r\n 6580 CONTINUE\r\n      IF (M1(1) .NE. 0) GO TO 6555\r\n      GO TO 9\r\nC\r\nC******    353-CRSPLINE      *******************************************\r\nC\r\n 6600 CONTINUE\r\n      IF (KM .NE. 0) GO TO 6610\r\n      KM = 1\r\n      IM = -1\r\n      IF (MF(1).NE.1 .OR. M(1).LE.0) GO TO 6680\r\n      IF (MF(2) .EQ. 0 ) RM(2) = .1\r\n      IF (RM(2) .LE. 0.) GO TO 6680\r\n      IF (MF(3).NE.1 .OR. M(3).LE.0) GO TO 6680\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      N  = 3\r\n      L1 = 4\r\n      GO TO 6620\r\n 6610 L1 = 1\r\n      IF (IM .EQ. -9) GO TO 6680\r\n 6620 DO 6640 L = L1,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 6680\r\n      IF (IM.EQ.-1 .AND. M(L).LT.0) GO TO 6680\r\n      IF (IM.EQ.-1 .AND. M(L).EQ.0) GO TO 6650\r\n      IF (IM  .EQ.  -1) GO TO 6630\r\n      IF (IFPDCO(M(L))) GO TO 6680\r\nC\r\nC ... NOTE - COMPONENTS IN LL NOT SENT OUT IN CRSPLINE\r\nC\r\n 6630 IM = -IM\r\n      N  = N + 1\r\n      I(N) = M(L)\r\n 6640 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 6670\r\n      N   = N + 1\r\n      I(N)= 0\r\n 6650 IM  = -9\r\n      N   = N + 1\r\n      I(N)= -1\r\n      IF (L .EQ. 8) GO TO 6670\r\n      L1 = L\r\n      DO 6660 L = L1,8\r\n      IF (MF(L) .NE. 0) GO TO 6680\r\n 6660 CONTINUE\r\nC\r\n 6670 KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      KN = 0\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) = -1\r\n      GO TO 9\r\n 6680 BADDAT = .TRUE.\r\n      GO TO 6670\r\nC\r\nC******        285-CTRIAAX       ***************************************\r\nC\r\n 2111 IF (M(1) .LE. 0 .OR. M(2) .LE. 0) GO TO 8\r\n      IF (M(3) .LE. 0 .OR. M(4) .LE. 0) GO TO 8\r\n      IF (M(3) .EQ. M(4)) GO TO 8\r\n      IF (M(3) .EQ. M(5)) GO TO 8\r\n      IH = NN\r\n      ASSIGN    8 TO R1\r\n      ASSIGN 2172 TO R\r\n      GO TO 21\r\n 2172 N = 6\r\n      GO TO 3\r\nC\r\nC******       286-PTRIAX, 288-PTRAPAX   *******************************\r\nC\r\n 2030 IF (M(1) .LE. 0) GO TO 8\r\n      IH = NN\r\n      ASSIGN 8 TO R1\r\n      ASSIGN 2031 TO R\r\n      GO TO 21\r\n 2031 N = 17\r\n      GO TO 3\r\nC\r\nC*******       287-CTRAPAX             ********************************\r\nC\r\n 2040 IF (M(1) .LE. 0 .OR. M(2) .LE. 0) GO TO 8\r\n      IF (M(3) .EQ. M(4)) GO TO 8\r\n      IF (M(3) .EQ. M(5)) GO TO 8\r\n      IH = NN\r\n      ASSIGN 8 TO R1\r\n      ASSIGN 2041 TO R\r\n      GO TO 21\r\n 2041 N = 7\r\n      GO TO 3\r\nC\r\nC******         28-GENEL         **************************************\r\nC\r\n 2800 GO TO (2802,2810,2830,2810,2836,2844,2858,2844), L0\r\n 2802 L0 = L0 + 1\r\n      KZFLAG = 0\r\n      L8 = 0\r\n      NOUD = .TRUE.\r\n      NOS  = .TRUE.\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      ID = M(1)\r\n      I(1) = ID\r\n      N  = 1\r\n      L3 = 3\r\n      GO TO 2812\r\n 2810 L3 = 1\r\n 2811 N = 0\r\n 2812 DO 2814 L = L3,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE.\r\n 2814 CONTINUE\r\n      L5 = 1\r\n      DO 2818 L = L3,7,2\r\n      IF (M(L) .EQ. 0) GO TO 2824\r\n      L5 = L  + 2\r\n      L8 = L8 + 1\r\n      N  = N  + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      IF (M(L) .LE. 0) GO TO 2816\r\n      IF (M(L+1).GE.0 .AND. M(L+1).LE.6) GO TO 2818\r\n 2816 BADDAT = .TRUE.\r\n 2818 CONTINUE\r\n      IF (M1F(2) .NE. 3) GO TO 2864\r\n 2820 N = N + 2\r\n      I(N-1) = -1\r\n      I(N) = L8\r\n      L0 = L0 + 1\r\n      IF (L0 .EQ. 5) GO TO 2822\r\n      L6 = L8\r\n      GO TO 2864\r\n 2822 L7 = L8\r\n      GO TO 2864\r\n 2824 DO 2826 L = L5,7,2\r\n      IF (M(L).NE.0 .OR. M(L+1).NE.0) BADDAT = .TRUE.\r\n 2826 CONTINUE\r\n      IF (L5 .LE. 1) BADDAT = .TRUE.\r\n      IF (M1F(2) .EQ. 3) GO TO 2820\r\n      BADDAT = .TRUE.\r\n      GO TO 2864\r\n 2830 L0 = L0 + 1\r\n      LB = 0\r\n      IF (MF(1).NE.3 .OR. (M(1).NE.LZ .AND. M(1).NE.KK)) GO TO 2831\r\n      L0 = L0 + 1\r\n      LB = 2\r\n      I(1) =-1\r\n      I(2) = 0\r\n      GO TO 2838\r\n 2831 L8 = 0\r\n      IF (MF(1).NE.3 .OR. MF(2).NE.0) BADFOR = .TRUE.\r\n      IF (M(1) .NE. LUD) BADDAT = .TRUE.\r\n      L3 = 3\r\n      NOUD = .FALSE.\r\n      DO 2835 L = 2,8\r\n 2835 M(L) = M(L+1)\r\n      GO TO 2811\r\n 2836 IF (M(1).NE.LZ .AND. M(1).NE.KK) BADDAT = .TRUE.\r\n 2838 L9 = (L6*(L6+1))/2\r\n      LB = LB + 1\r\n      IF (M(1) .EQ.LZ) KZFLAG = 1\r\n      IF (M(1) .EQ.KK) KZFLAG = 2\r\n      I(LB) = KZFLAG\r\n 2840 L0 = L0 + 1\r\n      L8 = 0\r\n      IF (MF(1) .NE. 3) BADFOR = .TRUE.\r\n      L3 = 2\r\n      DO 2843 L = 2,8\r\n 2843 M(L) = M(L+1)\r\n      GO TO 2846\r\n 2844 L3 = 1\r\n      LB = 0\r\n 2846 DO 2848 L = L3,8\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) BADFOR = .TRUE.\r\n 2848 CONTINUE\r\n      N  = LB\r\n      L5 = L9 - L8 + L3 - 1\r\n      IF (L5 .LE. 8) GO TO 2850\r\n      L5 = 8\r\n 2850 DO 2852 L = L3,L5\r\n      N = N + 1\r\n 2852 I(N) = M(L)\r\n      L5 = L9 - L8 + L3\r\n      L8 = L8 + N - LB\r\n      IF (L9 .GT. L8) GO TO 2864\r\n      IF (L9 .EQ. L8) GO TO 2855\r\n      DO 2854 L = L5,8\r\n      IF (M(L) .NE. 0) BADDAT = .TRUE.\r\n 2854 CONTINUE\r\n 2855 IF (L0 .EQ. 8) GO TO 2856\r\n      L0 = L0 + 1\r\n      GO TO 2864\r\n 2856 L0 = 1\r\n      GO TO 2864\r\n 2858 IF (M(1) .NE. LS) BADDAT = .TRUE.\r\n      L9 = L6*L7\r\n      LB = 1\r\n      I(1) = L7\r\n      NOS  = .FALSE.\r\n      GO TO 2840\r\n 2864 DO 2866 L = 1,8\r\n 2866 M(L) = 0\r\n      KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      KN = 0\r\n      IF (ID .LE. LA1) GO TO 2868\r\n      LA1 = ID\r\n      IF (.NOT.NOUD .AND. L7.NE.6 .AND. NOS .AND. KZFLAG.EQ.1)\r\n     1   GO TO 2868\r\n      IF (L7.EQ.0 .AND. .NOT. NOS) GO TO 2868\r\n      L7 = 0\r\n      IF (L0.EQ.1 .AND. .NOT.NOUD) GO TO 9\r\n      N = N + 1\r\n      I(N) = 0\r\n      L0 = 1\r\n      GO TO 9\r\n 2868 BADDAT = .TRUE.\r\n      L0 = 1\r\n      L7 = 0\r\n      LA1= ID\r\n      GO TO 9\r\nC\r\nC******        345-STREAML1      **************************************\r\nC\r\n 2920 IF (KM .EQ. 1) GO TO 2921\r\n      KM = 1\r\n      IF (MF(1).NE.1) BADFOR = .TRUE.\r\n      IF (M(1) .LE.0) BADDAT = .TRUE.\r\n      IF (M(1) .LE.0) BADDAT = .TRUE.\r\n      I(1) = M(1)\r\n      N = 1\r\n      IF (MF(3).EQ.3 .AND. M(3).EQ.THRU) GO TO 2928\r\n      L1 = 2\r\n      GO TO 2922\r\n 2921 L1 = 1\r\n 2922 DO 2923 L = L1,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE.\r\n 2923 CONTINUE\r\n      DO 2926 L = L1,8\r\n      IF (M(L)) 2925,2926,2924\r\n 2924 N = N + 1\r\n      I(N) = M(L)\r\n      GO TO 2926\r\n 2925 BADDAT = .TRUE.\r\n 2926 CONTINUE\r\n      IF (N.LT.L1) BADDAT = .TRUE.\r\n      KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 2927 KM = 0\r\n      N = N + 1\r\n      I(N) = -1\r\n      KN = 0\r\n      GO TO 9\r\n 2928 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 2929\r\n      KN = 1\r\n      BADFOR = .TRUE.\r\n      GO TO 9\r\n 2929 IF (MF(2).NE.1 .OR. MF(4).NE.1) BADFOR = .TRUE.\r\n      IF (M(2).LE.0 .OR. M(5).LE.0 .OR. (M(2).GT.M(5))) BADDAT = .TRUE.\r\n      IF (BADFOR .OR. BADDAT) GO TO 2927\r\n      CALL WRITE (204,I,N,0)\r\n      L1 = M(2)\r\n      L2 = M(5)\r\n      DO 2930 L = L1,L2\r\n 2930 CALL WRITE (204,L,1,0)\r\n      N = 0\r\n      GO TO 2927\r\nC\r\nC******        346-STREAML2      **************************************\r\nC\r\nC     THEORY DEPENDENT RESTRICTION -  (3.GE. NSTNS .LE.10)\r\nC\r\n 3010 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2).LT.3 .OR. M(2).GT.10) GO TO 8\r\n      IF (RM(4) .LE. 0.0) GO TO 8\r\n      DO 3012 L = 6,9\r\n      IF (RM(L) .LE. 0.0) GO TO 8\r\n 3012 CONTINUE\r\n      IF (RM( 3).LE.-90.0 .OR. RM( 3).GE.90.0) GO TO 8\r\n      IF (RM(10).LE.-90.0 .OR. RM(10).GE.90.0) GO TO 8\r\n      N = 10\r\n      GO TO 3\r\nC\r\nC******         82-PARAM         ***********************************\r\nC\r\n 3960 IF (MF(1).NE.3 .OR. MF(2).LE.0 .OR. MF(3).NE.0 .AND.\r\n     1    MF(3).NE.MF(2)) GO TO 3968\r\n      IF (MF(3).NE.0 .AND. MF(3).NE.2 .AND. MF(3).NE.4) GO TO 3968\r\n      DO 3961 L = 4,8\r\n      IF (MF(L) .NE. 0) GO TO 3968\r\n 3961 CONTINUE\r\n      IF (NPARAM+7 .LE. NOPEN) GO TO 3964\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,3962) SFM\r\n 3962 FORMAT (A25,' 330, NO ROOM IN CORE FOR PARAM CARDS.')\r\n 3963 ABORT = .TRUE.\r\n      GO TO 2\r\n 3964 IP = 2*NBUF + NPARAM\r\n      IBUFF(IP+1) = M(1)\r\n      IBUFF(IP+2) = M(2)\r\n      IBUFF(IP+3) = MF(2)\r\n      IBUFF(IP+4) = M(3)\r\n      NPARAM = NPARAM + 4\r\n      IF (MF(2).LE.2 .AND. MF(3).EQ.0) GO TO 2\r\n      IBUFF(IP+5) = M(4)\r\n      NPARAM = NPARAM + 1\r\n      IF (MF(2).LE.4 .AND. MF(3).EQ.0) GO TO 2\r\n      IF (MF(3) .EQ. 4) GO TO 3965\r\n      IBUFF(IP+3) = 5\r\n      GO TO 2\r\n 3965 IBUFF(IP+3) = 6\r\n      IBUFF(IP+6) = M(5)\r\n      IBUFF(IP+7) = M(6)\r\n      NPARAM = NPARAM + 2\r\n      GO TO 2\r\n 3968 WRITE  (NOUT,3969) UFM,M(1),M(2),KNT\r\n 3969 FORMAT (A23,' 331, IMPROPER PARAM CARD ',2A4,10X,\r\n     1       'SORTED CARD COUNT =',I7)\r\n      CALL PAGE2 (2)\r\n      GO TO 3963\r\nC\r\nC*******    12-SPC1(3980), 92-OMIT1(3981), 216-ASET1(3981)   ***********\r\nC          332-CFLSTR(3980)\r\nC\r\n 3980 IZ = 2\r\n      IFILE = 210\r\n      IF (K .EQ. 332) IFILE = 208\r\n      GO TO 3983\r\n 3981 IZ = 1\r\n      IFILE = 210\r\n 3983 IF (KM .NE. 0) GO TO 3990\r\n      KM = 1\r\n      IF (MF(IZ).NE.0 .AND. MF(IZ).NE.1) BADFOR = .TRUE.\r\n      IF (K .EQ. 332) GO TO 3984\r\n      IF (IFPDCO(M(IZ))) BADDAT = .TRUE.\r\n      IF (IZ .NE. 2) GO TO 3986\r\n 3984 IF (MF(1) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(1)  .LE. 0) BADDAT = .TRUE.\r\n 3986 ID = M(1)\r\n      I(1) = M(1)\r\n      IF (IZ .EQ. 2) I(2) = M(2)\r\n      N  = IZ\r\n      L1 = IZ + 1\r\n      IF (MF(IZ+2).EQ.3 .AND. M(IZ+2).EQ.THRU) GO TO 4000\r\n      GO TO 3991\r\n 3990 L1 = 1\r\n 3991 DO 3992 L = L1,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE.\r\n 3992 CONTINUE\r\n      DO 3993 L = L1,8\r\n      IF (MF(L) .EQ. 1) GO TO 3994\r\n 3993 CONTINUE\r\n      BADDAT = .TRUE.\r\n 3994 DO 3998 L = L1,8\r\n      IF (M(L)) 3996,3998,3995\r\n 3995 N = N + 1\r\n      I(N) = M(L)\r\n      GO TO 3998\r\n 3996 BADDAT = .TRUE.\r\n 3998 CONTINUE\r\n      KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 3999 KM = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      KN = 0\r\n      GO TO 9\r\n 4000 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4001\r\n      KN = 1\r\n      BADFOR = .TRUE.\r\n      GO TO 9\r\n 4001 IF (MF(IZ+1).NE.1 .OR. MF(IZ+3).NE.1) BADFOR = .TRUE.\r\n      IF (M(IZ+1).LE.0 .OR. M(IZ+4).LE.M(IZ+1)) BADDAT = .TRUE.\r\n      DO 4002 L = IZ,4\r\n      IF (MF(L+4) .NE. 0) BADFOR = .TRUE.\r\n 4002 CONTINUE\r\n      IF (BADFOR .OR. BADDAT) GO TO 3999\r\n      CALL WRITE (IFILE,M,IZ,0)\r\n      L1 = M(IZ+1)\r\n      L2 = M(IZ+4)\r\n      L = L1\r\n 4010 CALL WRITE (IFILE,L,1,0)\r\n      L = L + 1\r\n      IF (L .LE. L2) GO TO 4010\r\n      N = 0\r\n      GO TO 3999\r\nC\r\nC******      13-SPCADD, 83-MPCADD    **********************************\r\nC\r\n 4020 IF (KM .EQ. 1) GO TO 4990\r\n      KM = 1\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      ID = M(1)\r\n      I(1) = ID\r\n      IF (M(2).LE.0 .OR. M(3).LT.0) BADDAT = .TRUE.\r\n      IF (M(3) .EQ. 0) CALL PAGE2 (2)\r\n      IF (M(3) .EQ. 0) WRITE (NOUT,4024) UWM\r\n 4024 FORMAT (A25,' 4124, THE SPCADD OR MPCADD UNION CONSISTS OF A ',\r\n     1       'SINGLE SET.')\r\n      N = 1\r\n      GO TO 4992\r\nC\r\nC******        84-LOAD, 123-DLOAD      *******************************\r\nC\r\n 4060 IF (KM .EQ. 1) GO TO 4068\r\n      KM = 1\r\n      IF (MF(1).NE.0 .AND. MF(1).NE.1 .OR. MF(2).NE.0 .AND. MF(2).NE.2)\r\n     1    BADFOR = .TRUE.\r\n      IF (M(1) .LE. 0) BADDAT = .TRUE.\r\n      ID = M(1)\r\n      I(1) = ID\r\n      I(2) = M(2)\r\n      IF (M(4) .LE. 0) BADDAT = .TRUE.\r\n      N = 2\r\n      GO TO 4070\r\n 4068 N = 0\r\n 4070 L8 = N + 1\r\n      DO 4074 L = L8,7,2\r\n      IF (MF(L  ).NE.0 .AND. MF(L).NE.2 .OR. MF(L+1).NE.0 .AND.\r\n     1    MF(L+1).NE.1) BADFOR = .TRUE.\r\n 4074 CONTINUE\r\n 4076 N = N + 2\r\n      IF (M(N)) 4078,4080,4084\r\n 4078 BADDAT = .TRUE.\r\n 4080 N  = N - 2\r\n      L7 = 1\r\n      L8 = N + 1\r\n      DO 4082 L = L8,8\r\n      IF (MF(L) .NE. 0) BADDAT = .TRUE.\r\n 4082 CONTINUE\r\n      IF (N .LE. 0) BADDAT = .TRUE.\r\n      GO TO 4086\r\n 4084 I(N-1) = M(N-1)\r\n      I(N  ) = M(N  )\r\n      IF (N .LT. 8) GO TO 4076\r\n 4086 KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4088\r\n      KM = 0\r\n      N  = N + 2\r\n      I(N-1) =-1\r\n      I(N  ) =-1\r\n      KN = 0\r\n      GO TO 4090\r\n 4088 IF (L7 .NE. 1) GO TO 9\r\n      BADDAT = .TRUE.\r\n 4090 L7 = 0\r\n      GO TO 9\r\nC\r\nC     ******************************************************************\r\nC\r\n   21 IF (.NOT.IAX) GO TO 22\r\n      IF (IH.GT.NN .OR. IH.LT.0) GO TO 25\r\n      GO TO 24\r\n   22 IF (LH) WRITE (NOUT,23) UFM\r\n   23 FORMAT (A23,' 332, AXIC CARD REQUIRED.')\r\n      IF (LH) CALL PAGE2 (2)\r\n      LH = .FALSE.\r\n      ABORT = .TRUE.\r\n   24 GO TO  R, (1489,1507,1521,1451,1461,1471,1497,2031,2041,2172,3,2)\r\n   25 GO TO R1, (8)\r\nC\r\nC***** TEMPORARY UNFIX FOR SPCADD AND MPCADD ***************************\r\nC\r\n 4990 N = 0\r\n 4992 DO 4994 L = 1,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) BADFOR = .TRUE.\r\n 4994 CONTINUE\r\n 4995 N = N + 1\r\n      IF (M(N)) 4996,4998,5002\r\n 4996 BADDAT = .TRUE.\r\n 4998 N  = N - 1\r\n      L7 = 1\r\n      L8 = N + 1\r\n      DO 5000 L = L8,8\r\n      IF (MF(L) .NE. 0) BADDAT = .TRUE.\r\n 5000 CONTINUE\r\n      IF (N .LE. 0) BADDAT = .TRUE.\r\n      GO TO 5004\r\n 5002 I(N) = M(N)\r\n      IF (N .LT. 8) GO TO 4995\r\n 5004 KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 5006\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      KN = 0\r\n      GO TO 5008\r\n 5006 IF (L7 .NE. 1) GO TO 9\r\n      BADDAT = .TRUE.\r\n 5008 L7 = 0\r\n      GO TO 9\r\nC\r\nC******     329-PROLATE     ********************************************\r\nC\r\n 5100 IF (KM .NE. 0) GO TO 5115\r\n      IF (PROL) BADDAT = .TRUE.\r\n      PROL = .TRUE.\r\n      KM = 1\r\n      IF (MF(1).NE.2 .OR. MF(2).NE.2) BADFOR = .TRUE.\r\n      IF (RM(1) .LE. RM(2)) BADDAT = .TRUE.\r\n      DO 5105 L = 3,6\r\n      IF (MF(L) .NE. 1) BADFOR = .TRUE.\r\n      IF (M(L)  .LT. 0) BADDAT = .TRUE.\r\n 5105 CONTINUE\r\n      IF (M(3) .LT.  2) BADDAT = .TRUE.\r\n      IF (M(4) .LT.  2) BADDAT = .TRUE.\r\n      IF (M(5) .GT. 30) BADDAT = .TRUE.\r\n      IF (M(6) .GT. M(5)) M(6) = M(5)\r\n      ID = M(1)\r\n      NSEGS = M(3)\r\n      MSEGS = M(4)\r\n      ITOT1 = (NSEGS-1)*(MSEGS+1) + 2\r\n      ITOT2 = (NSEGS-1)*MSEGS + 2\r\n      DO 5110 L = 1,6\r\n 5110 I(L) = M(L)\r\n      N  = 6\r\n      L1 = 7\r\n      ITEMS = 0\r\n      GO TO 5120\r\n 5115 L1 = 1\r\n 5120 DO 5130 L = L1,8\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.3) BADFOR = .TRUE.\r\n      IF (MF(L) .EQ. 3) GO TO 5140\r\n      ITEMS = ITEMS + 1\r\n      IF (M(L) .LE. 0) BADDAT = .TRUE.\r\n      N = N + 1\r\n      I(N) = M(L)\r\n 5130 CONTINUE\r\n      KN = 1\r\n 5135 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      BADDAT = .TRUE.\r\n      GO TO 5150\r\n 5140 IF (M(L) .NE. ENDT) GO TO 5145\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE.\r\n      GO TO 5150\r\n 5145 BADDAT = .TRUE.\r\n      GO TO 5135\r\n 5150 KM = 0\r\n      KN = 0\r\n      IF (K .EQ. 330) GO TO 9\r\n      IF (ITEMS.NE.ITOT1 .AND. ITEMS.NE.ITOT2) BADDAT = .TRUE.\r\n      GO TO 9\r\nC\r\nC******      330-PERMBDY       *****************************************\r\nC\r\n 5200 IF (KM .NE. 0) GO TO 5210\r\n      IF (PERM) BADDAT = .TRUE.\r\n      PERM = .TRUE.\r\n      KM = 1\r\n 5210 DO 5220 L = 1,8\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.3) BADFOR = .TRUE.\r\n      IF (MF(L) .EQ. 3) GO TO 5140\r\n      IF (M(L)  .LE. 0) BADDAT = .TRUE.\r\n      N = N + 1\r\n      I(N) = M(L)\r\n 5220 CONTINUE\r\n      KN = 1\r\n      GO TO 5135\r\nC\r\n    2 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifs4p.f",
    "content": "      SUBROUTINE IFS4P (*,*,*)\r\nC\r\n      LOGICAL         ABORT,BADDAT,BADFOR,LHARM,LFLSYM,FPHYS1,IFPDCO\r\n      INTEGER         T1,T4,THRU,SAVE(24),NM(2),TY1,TY2,\r\n     1                RET,BCDYES,BCDNO,BCDS,BCDA,BCDNON,BCDAXI\r\n      REAL            Z(100)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ NBUF,NOUT,ABORT\r\n      COMMON /IFPX1 / NCDS,T1(2,310)\r\n      COMMON /IFPX3 / T4(2,314)\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),M(100),MF(100),M1(100),\r\n     1                M1F(100),KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,\r\n     2                IAXF,NAXF,LHARM,KNT,SLOTDF(5),GC(7),LL(6)\r\n      COMMON /CIFS4P/ J(20),KM,LFLSYM,FPHYS1\r\n      EQUIVALENCE     (Z(1),M(1)),(KOUT,J(2))\r\n      DATA    THRU  , BCDYES,BCDNO /4HTHRU,4HYES ,4HNO  /\r\n      DATA    BCDS  , BCDA,BCDNON  /4HS   ,4HA   ,4HNONE/\r\n      DATA    BCDAXI/ 4HAXIS/\r\nC\r\n      IF (K .GT. 100) GO TO 81\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5, 790, 800,\r\n     8            5,   5,   5,   5,   5,   5,   5,   5,   5, 900,\r\n     9          900,   5,   5,   5,   5,   5,   5, 980,   5,   5 ), K\r\n   81 IF (KX .GT. 100) GO TO 82\r\n      GO TO (     5,1020,   5,1040,1050,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,1220,   5,1050,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5,   5,1020,   5,\r\n     9            5,   5,   5,   5,1950,1960,   5,   5,1990,   5 ), KX\r\n   82 IF (KY .GT. 100) GO TO 83\r\n      GO TO (  2100,2200,2300,2400,3100,3200,3300,3400,3500,3600,\r\n     1         3700,3800,3900,4000,   5,   5,4100,4200,4300,4400,\r\n     2         4500,4600,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,1990,   5,\r\n     4            5,1990,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     9            5,   5,   5,   5,6501,6601,   5,   5,   5,   5 ), KY\r\n   83 KZ = K - 300\r\n      IF (KZ .GT. 39) GO TO 5\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2         8000,9000,9100,9200,9300,9000,9400,9500,   5,   5,\r\n     3            5,   5,4300,4400,4100,4200,   5,   5,   5      ), KZ\r\n    5 CALL PAGE2 (2)\r\n      WRITE  (NOUT,6) SFM\r\n    6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS4P.')\r\n      ABORT =.TRUE.\r\n      RETURN 1\r\n    7 BADFOR =.TRUE.\r\n      RETURN 1\r\n    8 BADDAT =.TRUE.\r\n      RETURN 1\r\n    3 DO 4 L = 1,N\r\n    4 I(L) = M(L)\r\n    2 RETURN\r\n    9 RETURN 3\r\nC\r\nC******              79-CTRIARG,80-CTRAPRG             ****************\r\nC\r\n  790 I1 = 4\r\n      GO TO 791\r\n  800 I1 = 5\r\n  791 IF (M(1).LE.0 .OR. M(I1+2).LE.0) GO TO 8\r\n      DO 793 L = 2,I1\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      IF (L .EQ. 2) GO TO 793\r\n      DO 792 L1 = L,I1\r\n      IF (M(L-1) .EQ. M(L1)) GO TO 8\r\n  792 CONTINUE\r\n  793 CONTINUE\r\n      N = I1 + 2\r\n      GO TO 3\r\nC\r\nC*******       MATS1,MATT1        **************************************\r\nC\r\n  900 DO 902 L = 1,11\r\n      IF (M(L) .LT. 0) GO TO 8\r\n  902 I(L) = M(L)\r\n      N = 11\r\n      GO TO 2\r\nC\r\nC*******       TEMPD              **************************************\r\nC\r\n  980 DO 986 L = 1,7,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 986\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N = N + 2\r\n      I(N-1) = M(L  )\r\n      I(N  ) = M(L+1)\r\n      IF (N .LE. 2) GO TO 986\r\n      DO 987 L1 = 4,N,2\r\n      IF (I(N-1) .EQ. I(L1-3)) GO TO 8\r\n  987 CONTINUE\r\n  986 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC**************    MATT2,189-MATT3     *********************************\r\nC\r\n 1020 DO 1022 L = 1,16\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 1022 I(L) = M(L)\r\n      IF (M(1) .EQ. 0) GO TO 8\r\n      N = 16\r\n      GO TO 2\r\nC\r\nC******           104-CTORDRG           ************************\r\nC\r\n 1040 IF (M(1).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(3).EQ.M(4) .OR.\r\n     1    Z(5).LT.0.0 .OR. Z(5).GT.180.0 .OR. Z(6).LT.0.0 .OR.\r\n     2    Z(6).GT.180.0) GO TO 8\r\n      IF (MF(2) .EQ. 0) M(2) = M(1)\r\n      IF (M(2)  .LE. 0) GO TO 8\r\n      N = 7\r\n      GO TO 3\r\nC\r\nC*******       SPOINT,124-EPOINT    ************************************\r\nC\r\n 1050 IF (MF(2) .EQ. 3) GO TO 1056\r\n      DO 1055 L = 1,8\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7\r\n      IF (M(L)) 8,1055,1052\r\n 1052 IF (M(L) .GT. 999999) GO TO 8\r\n      N = N + 1\r\n      I(N) = M(L)\r\n      IF (N .LE. 1) GO TO 1055\r\n      DO 1054 L1 = 2,N\r\n      IF (I(N) .EQ. I(L1-1)) GO TO 8\r\n 1054 CONTINUE\r\n 1055 CONTINUE\r\n      IF (N) 8,8,2\r\n 1056 IF (M(2) .NE. THRU) GO TO 8\r\n      IF (MF(1).NE.1 .OR. MF(3).NE.1) GO TO 7\r\n      K2078 = 208\r\n      IF (K .EQ. 124) K2078 = 207\r\n      L1 = 1\r\n      L2 = 4\r\n      DO 1058 L = L2,8\r\n      IF (MF(L) .NE. 0) GO TO 7\r\n 1058 CONTINUE\r\n      IF (M(L2) .GT. 9999999) GO TO 8\r\n      II = M(L1) - 1\r\n      L2 = M(L2) - M(L1)\r\n      IF (II.LT.0 .OR. L2.LE.0) GO TO 8\r\n      L1 = 1\r\n      DO 1059 L = 1,L2\r\n      II = II + 1\r\n      CALL WRITE (K2078,II,1,0)\r\n 1059 CONTINUE\r\n      I(1) = II + 1\r\n      N = 1\r\n      GO TO 2\r\nC\r\nC*******         122-MAT3        *****************************\r\nC\r\n 1220 IF (M(1).LE.0 .OR. Z(2).LT.0. .OR. Z(3).LT.0. .OR. Z(4).LT.0. .OR.\r\n     1    Z(9).LT.0. .OR. Z(10).LT.0. .OR. Z(11).LT.0.) GO TO 8\r\n      IF (ABS(Z(5)).LE.1. .AND. ABS(Z(6)).LE.1. .AND. ABS(Z(7)).LE.1.)\r\n     1    GO TO 1222\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1221) UWM,T1(1,K),T1(2,K),KNT\r\n 1221 FORMAT (A25,' 301, BULK DATA CARD ',2A4,' CONTAINS INCONSISTENT',\r\n     1       ' DATA.',10X,'SORTED CARD COUNT =',I7)\r\n 1222 N = 16\r\n      GO TO 3\r\nC\r\nC\r\nC*******       195-RANDPS       ****************************************\r\nC\r\n 1950 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.M(2) .OR. M(6).LT.0)\r\n     1    GO TO 8\r\n      IF (M(2).EQ.M(3) .AND. Z(5).NE.0.0) GO TO 8\r\n      N = 6\r\n      IF (KOUT .LE. 2) GO TO 1955\r\n      IF (M(1) .EQ. J(KOUT)) GO TO 3\r\n      IF (KOUT .EQ. J(   1)) GO TO 8\r\n 1955 KOUT = KOUT + 1\r\n      J(KOUT) = M(1)\r\n      GO TO 3\r\nC\r\nC*******       196-RANDT1       ****************************************\r\nC\r\n 1960 IF (KOUT .LE. 2) GO TO 8\r\n      DO 1961 IN = 3,KOUT\r\n      IF (M(1) .EQ. J(IN)) GO TO 1962\r\n 1961 CONTINUE\r\n      GO TO 8\r\n 1962 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. Z(3).LT.0.0 .OR. Z(4).LE.Z(3))\r\n     1    GO TO 8\r\n      N = 4\r\n      GO TO 3\r\nC\r\nC*****         199-PLOAD2,239-QBDY1,242-QVOL   *************************\r\nC\r\n 1990 IF (KM   .NE. 0) GO TO 1991\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7\r\n      IF (M(1) .LE. 0) GO TO 8\r\n      L = 3\r\n      ISID = M(1)\r\n      IQVL = M(2)\r\n      GO TO 1992\r\n 1991 L = 1\r\n 1992 IF (MF(8) .EQ. 3) GO TO 7\r\n      NTOT  = 0\r\n      K2078 = 209\r\n 1993 IF (M(L)  .EQ. 0) GO TO 1998\r\n      IF (M(L)  .LT. 0) GO TO 8\r\n      IF (MF(L) .EQ. 3) GO TO 7\r\n      IF (MF(L+1).EQ.3) GO TO 1995\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7\r\n      N = N + 3\r\n      I(N-2) = ISID\r\n      I(N-1) = IQVL\r\n      I(N) = M(L)\r\n      L = L + 1\r\n      IF (N .LT. 48) GO TO 1997\r\n      CALL WRITE (K2078,I,N,0)\r\n      NTOT = NTOT + N\r\n      N = 0\r\n      GO TO 1997\r\n 1995 IF (M(L+1) .NE. THRU) GO TO 8\r\n      IF (MF(L+3).NE.1 .AND. MF(L+3).NE.0) GO TO 7\r\n      L1 = M(L  ) - 1\r\n      L2 = M(L+3) - L1\r\n      IF (L2.LE.1 .OR. L1.LT.0) GO TO 8\r\n      DO 1996 II = 1,L2\r\n      N = N + 3\r\n      I(N-2) = ISID\r\n      I(N-1) = IQVL\r\n      I(N) = II + L1\r\n      IF (N .LT. 48) GO TO 1996\r\n      CALL WRITE (K2078,I,N,0)\r\n      NTOT = NTOT + N\r\n      N = 0\r\n 1996 CONTINUE\r\n      L = L + 4\r\n 1997 IF (L .LE. 8) GO TO 1993\r\n 1998 T4(2,K) = T4(2,K) + NTOT\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 1999\r\n      KM = 0\r\n      GO TO 2\r\n 1999 KM = 1\r\n      GO TO 2\r\nC\r\nC**********          201-TEMPP1          *******************************\r\nC\r\n 2100 IF (KM .NE. 0) GO TO 2120\r\n      NN = 6\r\n      N  = 6\r\n      ID = M(1)\r\n      IF (MF(5) .EQ. -32767) GO TO 2106\r\n      IF (MF(7).NE.0 .OR. MF(8).NE.0) BADFOR =.TRUE.\r\n 2101 DO 2102 L = 3,6\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2102\r\n      BADFOR =.TRUE.\r\n 2102 CONTINUE\r\n 2103 CONTINUE\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE.\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE.\r\n      DO 2105 L = 1,N\r\n      I(L) = M(L)\r\n 2105 SAVE(L) = M(L)\r\n      GO TO 2110\r\n 2106 DO 2107 L = 3,4\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2107\r\n      BADFOR =.TRUE.\r\n 2107 CONTINUE\r\n      GO TO 2103\r\n 2110 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2115\r\n      KM = 0\r\n      KN = 0\r\n      GO TO 9\r\n 2115 KN = 1\r\n      KM = KM + 1\r\n      GO TO 9\r\n 2120 IF (MF(2).EQ.3 .OR. MF(5).EQ.3) GO TO 2150\r\n      N  = 0\r\n      DO 2140 L = 1,8\r\n      IF (MF(L) .EQ. 0) GO TO 2140\r\n      IF (MF(L) .EQ. 1) GO TO 2125\r\n      IF (MF(L) .EQ.-32767) GO TO 2145\r\n      BADFOR =.TRUE.\r\n      GO TO 2140\r\n 2125 IF (M(L) .GT. 0) GO TO 2130\r\n      BADDAT =.TRUE.\r\n      GO TO 2140\r\n 2130 SAVE(2) = M(L)\r\n      CALL WRITE (209,SAVE,NN,0)\r\n 2140 CONTINUE\r\n 2145 CONTINUE\r\n      GO TO 2110\r\n 2150 N = 0\r\n      IF (MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 2155\r\n      IF (MF(4).EQ.0 .AND. MF(5).EQ.-32767) GO TO 2155\r\n      BADFOR =.TRUE.\r\n      GO TO 2110\r\n 2155 L1 =-1\r\n      DO 2180 L = 1,4,3\r\n      IF (MF(L).EQ.0 .AND. MF(L+1).EQ.0 .AND. MF(L+2).EQ.0) GO TO 2180\r\n      IF (MF(L).EQ.1 .AND. MF(L+1).EQ.3 .AND. MF(L+2).EQ.1) GO TO 2160\r\n      IF (MF(L+1) .EQ. -32767) GO TO 2185\r\n      BADFOR =.TRUE.\r\n      GO TO 2180\r\n 2160 L1 = L1 + 1\r\n      L2 = L1 + L\r\n      IF (M(L2).GT.0 .AND. M(L2+1).EQ.THRU .AND. M(L2+3).GT.M(L2))\r\n     1    GO TO 2165\r\n      BADDAT =.TRUE.\r\n      GO TO 2180\r\n 2165 L3 = M(L2  )\r\n      L4 = M(L2+3)\r\n      DO 2170 L5 = L3,L4\r\n      SAVE(2) = L5\r\n      CALL WRITE (209,SAVE,NN,0)\r\n 2170 CONTINUE\r\n 2180 CONTINUE\r\n 2185 CONTINUE\r\n      GO TO 2110\r\nC\r\nC*******       202-TEMPP2         **************************************\r\nC\r\n 2200 IF (KM .NE. 0) GO TO 2120\r\n      NN = 8\r\n      N  = 8\r\n      ID = M(1)\r\n      IF (MF(5) .EQ. -32767) GO TO 2106\r\n      IF (MF(7).NE.0 .AND. MF(7).NE.2 .OR.\r\n     1    MF(8).NE.0 .AND. MF(8).NE.2) BADFOR =.TRUE.\r\n      GO TO 2101\r\nC\r\nC*******       203-TEMPP3         **************************************\r\nC\r\n 2300 IF (KM .NE. 0) GO TO 2330\r\n      NN = 24\r\n      N  = 0\r\n      ID = M(1)\r\n      L1 = 1\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE.\r\n      DO 2305 L = 3,8\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2305\r\n      IF (MF(L) .EQ. -32767) GO TO 2302\r\n      BADFOR =.TRUE.\r\n      GO TO 2305\r\n 2302 DO 2303 L5 = L,8\r\n      M(L5) = 0\r\n 2303 CONTINUE\r\n      MF(7) = 0\r\n      MF(8) = 0\r\n 2305 CONTINUE\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE.\r\n      IF (Z(3) .GE. Z(5)) BADDAT =.TRUE.\r\n      ZZ = Z(5)\r\n      IF (MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 2310\r\n      IF (ZZ .GE. Z(7)) BADDAT =.TRUE.\r\n 2310 ZZ = Z(7)\r\n      DO 2320 L = 1,8\r\n      I(L) = M(L)\r\n 2320 SAVE(L) = M(L)\r\n 2321 L1 = L1 + 8\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2328\r\n      KM = 0\r\n      KN = 0\r\n 2322 IF (L1 .GT. NN) GO TO 2326\r\n      DO 2325 L = L1,NN\r\n      I(L) = 0\r\n 2325 SAVE(L) = 0\r\n 2326 N  = NN\r\n      GO TO 9\r\n 2328 KM = KM + 1\r\n      KN = 1\r\n      IF (KM-3) 9,2322,2322\r\n 2330 IF (KM .GT. 2) GO TO 2120\r\n      N  = 0\r\n      L3 = 8*KM\r\n      DO 2350 L = 1,7,2\r\n      IF (MF(L).EQ.0 .AND. MF(L+1).EQ.0) GO TO 2340\r\n      IF (MF(L) .NE. -32767) GO TO 2335\r\n      MF(7) = 0\r\n      MF(8) = 0\r\n      GO TO 2340\r\n 2335 CONTINUE\r\n      IF (MF(L  ).NE.0 .AND. MF(L  ).NE.2  .OR.\r\n     1    MF(L+1).NE.0 .AND. MF(L+1).NE.2) BADFOR =.TRUE.\r\n      IF (ZZ .GE. Z(L)) BADDAT =.TRUE.\r\n 2340 ZZ = Z(L)\r\n      L5 = L3 + L\r\n      I(L5) = M(L)\r\n      SAVE(L5) = M(L)\r\n      I(L5+1)  = M(L+1)\r\n      SAVE(L5+1) = M(L+1)\r\n 2350 CONTINUE\r\n      GO TO 2321\r\nC\r\nC*******       204-TEMPRB         **************************************\r\nC\r\n 2400 IF (KM .NE. 0) GO TO 2430\r\n      NN = 16\r\n      N  = 0\r\n      ID = M(1)\r\n      L1 = 1\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE.\r\n      DO 2405 L = 3,8\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 2405\r\n      IF (MF(L) .EQ. -32767) GO TO 2402\r\n      BADFOR =.TRUE.\r\n      GO TO 2405\r\n 2402 DO 2403 L5 = L,8\r\n      M(L5) = 0\r\n 2403 CONTINUE\r\n 2405 CONTINUE\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE.\r\n      DO 2420 L = 1,8\r\n      I(L) = M(L)\r\n 2420 SAVE(L) = M(L)\r\n 2421 L1 = L1 + 8\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2428\r\n      KM = 0\r\n      KN = 0\r\n 2422 IF (L1 .GT. NN) GO TO 2426\r\n      DO 2425 L = L1,NN\r\n      I(L) = 0\r\n 2425 SAVE(L) = 0\r\n 2426 N  = NN\r\n      GO TO 9\r\n 2428 KM = KM + 1\r\n      KN = 1\r\n      IF (KM-2) 9,2422,2422\r\n 2430 IF (KM .GT. 1) GO TO 2120\r\n      N  = 0\r\n      DO 2450 L = 1,8\r\n      IF (MF(L) .EQ. -32767) GO TO 2455\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.2) BADFOR =.TRUE.\r\n      I(L+8) = M(L)\r\n      SAVE(L+8) = M(L)\r\n 2450 CONTINUE\r\n      GO TO 2421\r\n 2455 DO 2460 L = 5,8\r\n      I(L+8) = 0\r\n      SAVE(L+8) = 0\r\n 2460 CONTINUE\r\n      GO TO 2421\r\nC\r\nC    TEMPG IS MODELLED AFTER TEMPP3\r\nC    TEMPP4 IS MODELLED AFTER TEMPP1,EXCEPT THAT TEMPP1 HAS ONE LESS C\r\nC\r\nC\r\nC*******      295-TEMPG     ********************************************\r\nC\r\n 6501 CONTINUE\r\n      GO TO 2300\r\nC\r\nC*******      296-TEMPP4    ********************************************\r\nC\r\n 6601 CONTINUE\r\n      IF (KM .NE. 0) GO TO 6630\r\n      NN = 14\r\n      N  = 0\r\n      ID = M(1)\r\n      L1 = 1\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) BADFOR =.TRUE.\r\n      DO 6605 L = 3,8\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 6605\r\n      IF (MF(L) .EQ. -32767) GO TO 6602\r\n      BADFOR =.TRUE.\r\n      GO TO 6605\r\n 6602 DO 6603 L5 = L,8\r\n      M(L5) = 0\r\n 6603 CONTINUE\r\n 6605 CONTINUE\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) BADDAT =.TRUE.\r\n      DO 6620 L = 1,8\r\n      I(L) = M(L)\r\n 6620 SAVE(L) = M(L)\r\n 6621 L1 = L1 + 8\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 6628\r\n      KM = 0\r\n      KN = 0\r\n 6622 IF (L1 .GT. NN) GO TO 6626\r\n      DO 6625 L = L1,NN\r\n      I(L) = 0\r\n 6625 SAVE(L) = 0\r\n 6626 N  = NN\r\n      GO TO 9\r\n 6628 KM = KM + 1\r\n      KN = 1\r\n      IF (KM-2) 9,6622,6622\r\n 6630 IF (KM .GT. 1) GO TO 2120\r\n      N  = 0\r\n      L3 = 8*KM\r\n      IF (MF(7).NE.0 .AND. MF(8).NE.0) BADFOR =.TRUE.\r\n      DO 6640 L = 1,6\r\n      IF (MF(L).EQ.0 .OR. MF(L).EQ.2) GO TO 6640\r\n      IF (MF(L) .EQ. -32767) GO TO 6632\r\n      BADFOR =.TRUE.\r\n      GO TO 6640\r\n 6632 DO 6633 L6 = L,6\r\n      M(L6) = 0\r\n 6633 CONTINUE\r\n 6640 CONTINUE\r\n      DO 6650 L = 1,6\r\n      L5 = L3 + L\r\n      I(L5) = M(L)\r\n      SAVE(L5) = M(L)\r\n 6650 CONTINUE\r\n      GO TO 6621\r\nC\r\nC*******       205-GRIDB          **************************************\r\nC\r\n 3100 ASSIGN 3105 TO RET\r\n      GO TO 3890\r\n 3105 IF (M(1).LE.0 .OR. M(6).LT.0 .OR. M(8).LE.0) GO TO 8\r\n      IF (IFPDCO(M(7))) GO TO 8\r\n      N    = 5\r\n      I(1) = M(1)\r\n      I(2) = M(4)\r\n      I(3) = M(6)\r\n      I(4) = M(7)\r\n      I(5) = M(8)\r\n      GO TO 2\r\nC\r\nC*******       206-FSLIST         **************************************\r\nC\r\n 3200 IF (KM .NE. 0) GO TO 3270\r\n      ASSIGN 3205 TO RET\r\n      GO TO 3890\r\n 3205 IF (MF(1).EQ.0 .OR. MF(1).EQ.2) GO TO 3207\r\n 3206 BADFOR =.TRUE.\r\n      GO TO 3250\r\n 3207 IF (MF(1).EQ.0 .OR. (MF(1).EQ.2 .AND. Z(1).GT.0.0)) GO TO 3209\r\n 3208 BADDAT =.TRUE.\r\n      GO TO 3250\r\n 3209 IF (MF(1) .EQ. 0) M(1) = 1\r\n      I(1) = M(1)\r\n      N  = 1\r\n      L1 = 2\r\n      L2 = 0\r\n      IF (MF(2) .NE. 3) GO TO 3220\r\n      IF (M(2)  .NE. BCDAXI) GO TO 3208\r\n      N  = N + 1\r\n      I(N) = 0\r\n      L1 = L1 + 1\r\n      L2 = 1\r\n 3220 DO 3225 L = L1,8\r\n      L3 = L + L2\r\n      IF (MF(L) .EQ. 3) GO TO 3230\r\n      IF (MF(L) .EQ. 0) GO TO 3235\r\n      IF (MF(L) .NE. 1) GO TO 3206\r\n      IF (M(L3) .LE. 0) GO TO 3208\r\n      N  = N + 1\r\n      I(N) = M(L3)\r\n 3225 CONTINUE\r\n 3227 IF (N) 3208,3208,3250\r\n 3230 IF (M(L3) .NE. BCDAXI) GO TO 3208\r\n      N  = N + 1\r\n      I(N) = 0\r\n 3235 IF (L .EQ. 8) GO TO 3245\r\n      L  = L + 1\r\n      DO 3240 L2 = L,8\r\n      IF (MF(L2) .NE. 0) GO TO 3206\r\n 3240 CONTINUE\r\n 3245 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3208\r\n      GO TO 3227\r\n 3250 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3255\r\n      KM = 0\r\n      KN = 0\r\n      N  = N + 1\r\n      I(N) =-1\r\n      GO TO 9\r\n 3255 KN = 1\r\n      KM = KM + 1\r\n      GO TO 9\r\n 3270 L1 = 1\r\n      L2 = 0\r\n      GO TO 3220\r\nC\r\nC*******       207-RINGFL         **************************************\r\nC\r\n 3300 ASSIGN 3310 TO RET\r\n      GO TO 3890\r\n 3310 DO 3350 L = 1,5,4\r\n      IF (M(L).EQ.0.AND.M(L+1).EQ.0.AND.M(L+2).EQ.0.AND.M(L+3).EQ.0)\r\n     1    GO TO 3350\r\n      IF (M(L).LE.0 .OR. Z(L+1).LE.0.0) GO TO 8\r\n      N = N + 4\r\n      IF (N.GT.4 .AND. M(L).EQ.M(L-4)) GO TO 8\r\n      IF (M(L) .LE. 99999) GO TO 3320\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,3512) UFM\r\n      GO TO 8\r\n 3320 I(N-3) = M(L  )\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n 3350 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*******       208-PRESPT         **************************************\r\nC\r\n 3400 ASSIGN 3410 TO RET\r\n      GO TO 3890\r\n 3410 IF (M(1).LE.0) GO TO 8\r\n      DO 3450 L = 3,7,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 3450\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      N      = N + 3\r\n      I(N-2) = M(1)\r\n      I(N-1) = M(L)\r\n      I(N  ) = M(L+1)\r\n 3450 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*******       209-CFLUID2        **************************************\r\nC\r\n 3500 KFL = 2\r\n 3505 ASSIGN 3510 TO RET\r\n      GO TO 3890\r\n 3510 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(1) .LE. 99999) GO TO 3513\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,3512) UFM\r\n 3512 FORMAT (A23,' 5004, FLUID POINT ID ON CFLUID OR RINGFL CARD ',\r\n     1       'EXCEEDS 999999 LIMIT')\r\n      GO TO 8\r\n 3513 DO 3520 L = 2,KFL\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      IF (L  .EQ. KFL) GO TO 3520\r\n      L2 = L + 1\r\n      DO 3515 L1 = L2,KFL\r\n      IF (M(L) .EQ. M(L1)) GO TO 8\r\n 3515 CONTINUE\r\n 3520 CONTINUE\r\n      I(1) = M(1)\r\n      N    = KFL + 3\r\n      IF (MF(6) .EQ. 0) M(6) = 1\r\n      IF (MF(7) .EQ. 0) M(7) = 1\r\n      I(KFL+2) = M(6)\r\n      I(KFL+3) = M(7)\r\n      DO 3530 L = 1,KFL\r\n 3530 I(L+1) = M(L+1)\r\n      GO TO 2\r\nC\r\nC*******       210-CFLUID3        **************************************\r\nC\r\n 3600 KFL = 3\r\n      GO TO 3505\r\nC\r\nC*******       211-CFLUID4        **************************************\r\nC\r\n 3700 KFL = 4\r\n      GO TO 3505\r\nC\r\nC*******       212-AXIF           **************************************\r\nC\r\n 3800 N = 0\r\n      IF (KM   .NE. 0) GO TO 3850\r\n      IF (IAXF .GT. 0) GO TO 3840\r\n      IAXF = IAXF + 1\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.0 .AND. MF(2).NE.2 .OR. MF(3).NE.0\r\n     1   .AND. MF(3).NE.2 .OR. MF(4).NE.0 .AND. MF(4).NE.2 .OR.\r\n     2   MF(5).NE.3) BADFOR =.TRUE.\r\n      IF (MF(7).NE.0 .OR. MF(8).NE.0 .OR. MF(6).NE.0 .AND. MF(6).NE.3)\r\n     1    BADFOR =.TRUE.\r\n      IF (MF(3) .EQ. 0) M(3) = 1\r\n      IF (M(5).NE.BCDYES .AND. M(5).NE.BCDNO) BADDAT =.TRUE.\r\n      IF (M(5) .EQ. BCDYES) M(5) = 1\r\n      IF (M(5) .EQ. BCDNO ) M(5) = 0\r\n      CALL WRITE (215,M,5,0)\r\n      IF (MF(6) .EQ. 3) GO TO 3820\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) BADDAT =.TRUE.\r\n      GO TO 3875\r\n 3820 IF (M(7) .NE. BCDNON) BADDAT =.TRUE.\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT =.TRUE.\r\n      GO TO 3875\r\n 3840 CALL PAGE2 (2)\r\n      WRITE  (NOUT,3841) UFM\r\n 3841 FORMAT (A23,' 4121, ONLY ONE (1) AXIF CARD ALLOWED IN BULK DATA.')\r\n      ABORT =.TRUE.\r\n      GO TO 3875\r\n 3850 IF (MF(2) .EQ. 3) GO TO 3860\r\n      DO 3855 L = 1,8\r\n      IF (MF(L) .EQ. 0) GO TO 3855\r\n      IF (MF(L) .EQ. 1) GO TO 3853\r\n      BADFOR =.TRUE.\r\n      N = 0\r\n      GO TO 3856\r\n 3853 IF (M(L) .LE. NAXF) BADDAT =.TRUE.\r\n      N = N + 1\r\n      NAXF = M(L)\r\n      I(N) = M(L)\r\n 3855 CONTINUE\r\n      IF (N .LE. 0) BADDAT =.TRUE.\r\n 3856 GO TO 3875\r\n 3860 IF (MF(4) .EQ. 3) GO TO 3870\r\n      L1 = 1\r\n      L2 = 1\r\n      IF (MF(1).EQ.1 .AND. MF(3).EQ.1) GO TO 3862\r\n 3861 BADFOR =.TRUE.\r\n      GO TO 3875\r\n 3862 DO 3863 L = 4,8\r\n      IF (MF(L) .NE. 0) GO TO 3861\r\n 3863 CONTINUE\r\n      IF (M(1).LT.M(4) .AND. M(1).GE.0) GO TO 3864\r\n      BADDAT =.TRUE.\r\n      GO TO 3875\r\n 3864 IF (M(1) .LE. NAXF) BADDAT =.TRUE.\r\n      IF (M(1) .GT. 0) GO TO 3866\r\n      CALL WRITE (215,0,1,0)\r\n      GO TO 3867\r\n 3866 L2 = M(1)\r\n 3867 L3 = M(4)\r\n      DO 3868 L = L2,L3,L1\r\n      CALL WRITE (215,L,1,0)\r\n 3868 CONTINUE\r\n      NAXF = L3\r\n      GO TO 3875\r\n 3870 L1 = M(7)\r\n      L2 = L1\r\n      IF (MF(1).EQ.1 .AND. MF(3).EQ.1 .AND. MF(5).EQ.1 .AND. MF(6).EQ.0\r\n     1   .AND. MF(7).EQ.0 .AND. MF(8).EQ.0) GO TO 3872\r\n      GO TO 3861\r\n 3872 IF (M(1).LT.M(4) .AND. M(7).GT.0 .AND. M(7).LE.M(4) .AND.\r\n     1    MOD(M(4)-M(1) , M(7)).EQ.0) GO TO 3874\r\n      BADDAT =.TRUE.\r\n      GO TO 3875\r\n 3874 GO TO 3864\r\n 3875 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 3878\r\n      KM = 0\r\n      KN = 0\r\n      IF (NAXF .LT. 100) GO TO 3877\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,3876) UFM,NAXF\r\n 3876 FORMAT (A23,' 4125, MAXIMUM ALLOWABLE HARMONIC ID IS 99.  DATA ',\r\n     1       'CONTAINS MAXIMUM =',I20)\r\n      ABORT =.TRUE.\r\n 3877 CONTINUE\r\n      N  = N + 1\r\n      I(N) =-1\r\n      GO TO 9\r\n 3878 KN = 1\r\n      KM = KM + 1\r\n      GO TO 9\r\n 3890 IF (IAXF .GT. 0) GO TO 3892\r\n      IF (LHARM) CALL PAGE2 (2)\r\n      IF (LHARM) WRITE (NOUT,3891) UFM\r\n 3891 FORMAT (A23,' 4122, AXIF CARD REQUIRED.')\r\n      LHARM =.FALSE.\r\n      ABORT =.TRUE.\r\n 3892 GO TO RET, (3105,3205,3310,3410,3510,4504,4610)\r\nC\r\nC*******       213-BDYLIST        **************************************\r\nC\r\n 3900 GO TO 3200\r\nC\r\nC*******       214-FREEPT         **************************************\r\nC\r\n 4000 GO TO 3400\r\nC\r\nC*******       217-CTETRA,  335-CFTETRA  *******************************\r\nC\r\n 4100 N = 6\r\n 4105 DO 4110 L = 1,N\r\n      IF (M(L) .LE. 0) GO TO 8\r\n 4110 CONTINUE\r\n      N1 = N - 1\r\n      DO 4130 L = 3,N1\r\n      L2 = L + 1\r\n      DO 4120 L1 = L2,N\r\n      IF (M(L) .EQ. M(L1)) GO TO 8\r\n 4120 CONTINUE\r\n 4130 CONTINUE\r\n      GO TO 3\r\nC\r\nC*******       218-CWEDGE,  336-CFWEDGE  *******************************\r\nC\r\n 4200 N = 8\r\n      GO TO 4105\r\nC\r\nC*******       219-CHEXA1,  333-CFHEX1   *******************************\r\nC\r\n 4300 IF (MF(15).NE.0 .OR. MF(16).NE.0) GO TO 7\r\n      N = 10\r\n      GO TO 4105\r\nC\r\nC*******       220-CHEXA2,  334-CFHEX2   *******************************\r\nC\r\n 4400 IF (MF(15).NE.0 .OR. MF(16).NE.0) GO TO 7\r\n      N = 10\r\n      GO TO 4105\r\nC\r\nC*******       221-DMIAX          **************************************\r\nC\r\n 4500 IF (.NOT.FPHYS1) GO TO 4501\r\n      FPHYS1 =.FALSE.\r\n      NM(1) = 0\r\n      NM(2) = 0\r\n 4501 IF (KM   .NE. 0) GO TO 4505\r\n      IF (M(3) .EQ. 0) GO TO 4503\r\n      IF (M(1).NE.NM(1) .OR. M(2).NE.NM(2)) GO TO 4510\r\n      IF (MF(2).NE.1 .OR. MF(3).NE.1 .AND. MF(3).NE.0) GO TO 4511\r\n      IF (MF(4).NE.1 .AND. MF(4).NE.0) GO TO 4511\r\n      IF (M(3).LE.0 .OR. M(4).LT.0 .OR. M(4).GT.6) GO TO 4511\r\n      IF (IABS(M(5)) .GT. NAXF) GO TO 4511\r\n      IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0)\r\n     1    GO TO 4511\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4511\r\n      N  = 2\r\n      I(2) = M(4)\r\n      L1 = 4\r\n      L2 = 5\r\n      ASSIGN 4595 TO RET\r\n      GO TO 4520\r\n 4503 ASSIGN 4504 TO RET\r\n      GO TO 3890\r\n 4504 IF (MF(1).NE.3 .OR. M(1).EQ.NM(1) .AND. M(2).EQ.NM(2)) GO TO 4510\r\n      IFO = M(4)\r\n      TY1 = M(5)\r\n      ITY1= 2*MOD(TY1,2)\r\n      TY2 = M(6)\r\n      IF (MACH .NE. 12) GO TO 45045\r\n      IF (TY2.EQ.2.OR.TY2.EQ.4) TY2 = TY2 - 1\r\n45045 CONTINUE\r\n      IF (IFO.NE.1 .AND. IFO.NE.2 .AND. IFO.NE.6) GO TO 4510\r\n      IF (TY1.LE.0 .OR. TY1.GT.4 .OR. TY2.LE.0 .OR. TY2.GT.4) GO TO 4510\r\n      IF (TY2.EQ.1 .AND. TY1.EQ.3) GO TO 4510\r\n      NM(1) = M(1)\r\n      NM(2) = M(2)\r\n      IF (MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0) GO TO 4511\r\n      IF (M1F(2).NE.3 .OR. M1(3).NE.NM(1) .OR. M1(4).NE.NM(2))\r\n     1    GO TO 4511\r\n      N = 9\r\n      GO TO 3\r\n 4505 IF (M(1).LE.0 .OR. M(2).LT.0 .OR. M(2).GT.6) GO TO 4511\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1 .AND. MF(2).NE.0) GO TO 4511\r\n      IF (MF(4).NE.0 .AND. MF(4)+ITY1.NE.4) GO TO 4511\r\n      IF (MF(5).NE.0 .AND. TY1.NE.3 .AND. TY1.NE.4) GO TO 4511\r\n      IF (IABS(M(3)) .GT. NAXF) GO TO 4511\r\n      IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 4511\r\n      N  = 3\r\n      I(2) = M(2)\r\n      L1 = 3\r\n      L2 = 3\r\n      ASSIGN 4506 TO RET\r\n      GO TO 4520\r\n 4506 I(3) = M(4)\r\n      IF (TY1 .EQ. 1) GO TO 4508\r\n      N = 4\r\n      I(4) = M(5)\r\n      IF (TY1.EQ.2 .OR. TY1.EQ.3) GO TO 4508\r\n      N = 6\r\n      I(5) = M(6)\r\n      I(6) = M(7)\r\n 4508 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4595\r\n      N = N + 2\r\n      I(N-1) =-1\r\n      I(N  ) =-1\r\n      IF (M1(1).EQ.T1(1,K) .AND. M1(2).EQ.T1(2,K) .AND. M1(3).EQ.NM(1)\r\n     1   .AND. M1(4).EQ.NM(2)) GO TO 4592\r\n      N = N + 2\r\n      I(N-1) =-1\r\n      I(N  ) =-1\r\n      GO TO 4592\r\n 4510 NM(1) = M(1)\r\n      NM(2) = M(2)\r\n 4511 ABORT =.TRUE.\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,4512) UFM,NM(1),NM(2)\r\n 4512 FORMAT (A23,' 4126, BAD DATA OR FORMAT OR NON-UNIQUE NAME, DMIAX',\r\n     1       1X ,2A4)\r\n      GO TO 4590\r\n 4520 IF (MF(L1) .EQ. 1) GO TO 4521\r\n      I(1) = M(L2-2)\r\n      GO TO 4525\r\n 4521 IF (M(L2) .LT. 0) GO TO 4522\r\n      I(1) = 1000000*(1+M(L2)) + M(L2-2)\r\n      GO TO 4525\r\n 4522 I(1) = 500000*(1-M(L2)*2) + M(L2-2)\r\n 4525 GO TO RET, (4506,4595)\r\n 4590 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 4595\r\n 4592 KM = 0\r\n      KN = 0\r\n      GO TO 2\r\n 4595 KN = 1\r\n      KM = KM + 1\r\n      GO TO 2\r\nC\r\nC*******       222-FLSYM          **************************************\r\nC\r\n 4600 IF (LFLSYM) GO TO 4690\r\n      LFLSYM =.TRUE.\r\n      ASSIGN 4610 TO RET\r\n      GO TO 3890\r\n 4610 CONTINUE\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.3 .OR. MF(3).NE.3) BADFOR =.TRUE.\r\n      DO 4615 L = 4,8\r\n      IF (MF(L) .NE. 0) BADFOR =.TRUE.\r\n 4615 CONTINUE\r\n      IF (M(1).LT.2 .OR. M(2).NE.BCDS .AND. M(2).NE.BCDA .OR.\r\n     1    M(4).NE.BCDS .AND. M(4).NE.BCDA) BADDAT =.TRUE.\r\n      IF (MOD(M(1),2) .NE. 0) BADDAT =.TRUE.\r\n      IF (M(2) .EQ. BCDS) M(2) = +1\r\n      IF (M(2) .EQ. BCDA) M(2) = -1\r\n      IF (M(4) .EQ. BCDS) M(3) = +1\r\n      IF (M(4) .EQ. BCDA) M(3) = -1\r\n      N = 3\r\n      GO TO 3\r\n 4690 CALL PAGE2 (2)\r\n      WRITE  (NOUT,4691) UFM\r\n 4691 FORMAT (A23,' 4123, ONLY ONE (1) FLSYM CARD ALLOWED IN BULK DATA')\r\n      ABORT =.TRUE.\r\n      GO TO 2\r\nC\r\nC*******     321-CEMLOOP     *******************************************\r\nC\r\n 8000 IF (M(1).LE.0 .OR. M(13).LT.0) GO TO 8\r\n      IF (M(3) .EQ. 0) GO TO 8002\r\n      IF (M(5) .NE. 0) GO TO 8\r\n      DO 8001 IEM = 7,13\r\n      IF (M(IEM) .NE. 0) GO TO 8\r\n 8001 CONTINUE\r\n      GO TO 8003\r\n 8002 DX1 = Z(4) - Z(10)\r\n      DY1 = Z(5) - Z(11)\r\n      DZ1 = Z(6) - Z(12)\r\n      DX2 = Z(7) - Z(10)\r\n      DY2 = Z(8) - Z(11)\r\n      DZ2 = Z(9) - Z(12)\r\n      DL1 = DX1**2 + DY1**2 + DZ1**2\r\n      DL2 = DX2**2 + DY2**2 + DZ2**2\r\n      IF (ABS(DL1-DL2) .GT. 1.E-4) GO TO 8\r\n      DC1 = DY1*DZ2 - DY2*DZ1\r\n      DC2 = DX2*DZ1 - DX1*DZ2\r\n      DC3 = DX1*DY2 - DY1*DX2\r\n      DLC = SQRT(DC1**2 + DC2**2 + DC3**2)\r\n      IF (DLC/SQRT(DL2) .LT. .0001) GO TO 8\r\n 8003 N = 13\r\n      GO TO 3\r\nC\r\nC*******    322-SPCFLD,   326-REMFLUX      *****************************\r\nC\r\n 9000 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LT. 0) GO TO 8\r\n      IF (M(6) .NE.-1) GO TO 9003\r\n      DO 9002 L = 7,8\r\n      IF (MF(L) .NE. 0) GO TO 7\r\n 9002 CONTINUE\r\n      N = 6\r\n      GO TO 3\r\n 9003 IF (MF(7) .EQ. 3) GO TO 9005\r\n      DO 9004 L = 6,8\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7\r\n      IF (M(L) .LT. 0) GO TO 8\r\n      IF (M(L) .EQ. 0) GO TO 9004\r\n      N = N + 6\r\n      I(N-5) = M(1)\r\n      I(N-4) = M(2)\r\n      I(N-3) = M(3)\r\n      I(N-2) = M(4)\r\n      I(N-1) = M(5)\r\n      I(N  ) = M(L)\r\n 9004 CONTINUE\r\n      IF (N) 8,8,2\r\n 9005 IF (M(7) .NE. THRU) GO TO 8\r\n      IF (MF(6).NE.1 .OR. MF(8).NE.1) GO TO 7\r\n      L1 = 6\r\n      L2 = 9\r\n      II = M(L1) - 1\r\n      L2 = M(L2) - M(L1)\r\n      IF (II.LT.0 .OR. L2.LE.0) GO TO 8\r\n      L1 = 1\r\n      DO 9007 L = 1,5\r\n 9007 I(L) = M(L)\r\n      N = 6\r\n      DO 9008 L = L1,L2\r\n      I(6) = L + II\r\n 9008 CALL WRITE (209,I,N,0)\r\n      I(6) = II + L2 + 1\r\n      GO TO 2\r\nC\r\nC*****   323-CIS2D8   **************************************************\r\nC\r\n 9100 IF (M( 1).LE.0 .OR. M( 2).LE.0 ) GO TO 8\r\n      IF (M(11).LT.0 .OR. Z(12).LT.0.) GO TO 8\r\n      IF (M(11) .EQ. 0) M(11) = 2\r\n      IF (M(11).NE.2 .AND. M(11).NE.3) GO TO 8\r\n      DO 9101 L = 3,10\r\n      IF (M(L) .LE. 0) GO TO 8\r\n 9101 CONTINUE\r\n      DO 9102 L = 3,9\r\n      LP1 = L + 1\r\n      DO 9102 LLL = LP1,10\r\n      IF (M(L) .EQ. M(LLL)) GO TO 8\r\n 9102 CONTINUE\r\n      N = 12\r\n      GO TO 3\r\nC\r\nC*****   324-PIS2D8   **************************************************\r\nC\r\n 9200 IF (Z(3) .LE. 0.) GO TO 8\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      N = 3\r\n      GO TO 3\r\nC\r\nC*****   325-GEMLOOP   *************************************************\r\nC\r\n 9300 IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7\r\n      IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 7\r\n      IF (M(1).LE.0 .OR. M(3).LT.0) GO TO 8\r\nC\r\nC     FOR NOW, CID MUST BE 0\r\nC\r\n      IF (M(3) .NE. 0) GO TO 7\r\n      NPTS = 0\r\n      DO 9310 L = 4,49,3\r\n      IF (MF(L) .EQ. 3) GO TO 9320\r\n      NPTS = NPTS + 1\r\n      IF (MF(L  ).NE.2 .AND. MF(L  ).NE.0) GO TO 7\r\n      IF (MF(L+1).NE.2 .AND. MF(L+1).NE.0) GO TO 7\r\n      IF (MF(L+2).NE.2 .AND. MF(L+2).NE.0) GO TO 7\r\n 9310 CONTINUE\r\n      GO TO 8\r\n 9320 IF (NPTS .LT. 2) GO TO 8\r\n      DO 9325 LLL = L,49\r\n 9325 M(LLL) = 0\r\n      DO 9330 L = 1,3\r\n 9330 I(L) = M(L)\r\n      I(4) = NPTS\r\n      DO 9340 L = 4,48\r\n 9340 I(L+1) = M(L)\r\n      N = 49\r\n      GO TO 2\r\nC\r\nC*****   327-BFIELD   **************************************************\r\nC\r\n 9400 IF (M(1) .LT. 0) GO TO 8\r\n      IF (M(2) .NE.-1) GO TO 9405\r\n      DO 9402 L = 3,8\r\n      IF (MF(L) .NE. 0) GO TO 7\r\n 9402 CONTINUE\r\n      N = 2\r\n      GO TO 3\r\n 9405 IF (MF(3) .EQ. 3) GO TO 9420\r\n      DO 9410 L = 2,8\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7\r\n      IF (M(L) .LT. 0) GO TO 8\r\n      IF (M(L) .EQ. 0) GO TO 9410\r\n      N = N + 2\r\n      I(N-1) = M(1)\r\n      I(N  ) = M(L)\r\n 9410 CONTINUE\r\n      IF (N) 8,8,2\r\n 9420 IF (M(3) .NE. THRU) GO TO 7\r\n      IF (MF(2).NE.1 .OR. MF(4).NE.1) GO TO 7\r\n      L1 = 2\r\n      L2 = 5\r\n      II = M(L1) - 1\r\n      L2 = M(L2) - M(L1)\r\n      IF (II.LT.0 .OR. L2.LE.0) GO TO 8\r\n      L1 = 1\r\n      I(1) = M(1)\r\n      N  = 2\r\n      DO 9430 L = L1,L2\r\n      I(2) = L + II\r\n 9430 CALL WRITE (201,I,N,0)\r\n      I(2) = II + L2 + 1\r\n      GO TO 2\r\nC\r\nC*****   328-MDIPOLE     ***********************************************\r\nC\r\n 9500 IF (M(1).LE.0  .OR. M( 2).LT.0 ) GO TO 8\r\n      IF (Z(9).LT.0. .OR. Z(10).LT.0.) GO TO 8\r\n      N = 10\r\n      GO TO 3\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ifs5p.f",
    "content": "      SUBROUTINE IFS5P (*,*,*)\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ORF\r\n      LOGICAL         ABORT,BADDAT,BADFOR,IFPDCO\r\n      INTEGER         M(100),RET,THRU,NFDH(10),ITYPE(12),ISCAL(4),\r\n     1                ORF,RSHIFT,LSHIFT,C,P,T1,BLANK,MET(4),MOT(3),GC\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /IFPX1 / NCDS,T1(2,310)\r\n      COMMON /SYSTEM/ NBUF,NOUT,ABORT,JUNK(42),KDUMEL(9)\r\n      COMMON /BITPOS/ KB(32,2)\r\n      COMMON /IFPDTA/ ID,N,K,KX,KY,I(100),RM(100),MF(100),M1(100),\r\n     1                M1F(100),\r\n     2                KN,BADDAT,BADFOR,NOPEN,NPARAM,IAX,NAX,IAXF,NAXF,\r\n     3                LHARM,KNT,SLOTDF(5),GC(7),LL(6)\r\n      COMMON /CIFS5P/ KM,C,P,ICONT,IAERO,IPOPT\r\n      EQUIVALENCE     (M(1),RM(1)), (BLANK,IBLANK)\r\n      DATA    THRU  / 4HTHRU/\r\n      DATA    BLANK / 1H    /\r\n      DATA    IYES  , INO   /    4HYES , 4HNO   /\r\n      DATA    MS,ML / 4HS   ,    4HL   /\r\n      DATA    MOT   / 1HZ,  1HY, 2HZY  /\r\n      DATA    MET   / 1HK,  2HPK,2HKE,   3HINV  /\r\n      DATA    NMT   / 4     /\r\n      DATA    ITYPE, ISCAL  /\r\n     1        4HFX  ,4HFY  ,4HFZ  ,4HFXE ,4HFYE ,4HFZE ,4HMX  ,4HMY  ,\r\n     2        4HMZ  ,4HMXE ,4HMYE ,4HMZE ,4HLE  ,4HFR  ,4HLEPR,4HFRPR/\r\nC\r\n      IF (K .GT. 100) GO TO 81\r\n      GO TO (     5,   5, 100,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5, 200,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5          300,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     6            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     7            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5, 400,   5,   5,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5, 500, 600 ), K\r\n   81 IF (KX .GT. 100) GO TO 82\r\n      GO TO (   700,   5, 800,   5,   5, 900,1000,1100,1200,1300,\r\n     1         1400,1500,1600,1700,1800,1900,2000,2100,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     5            5,   5,   5,   5,   5,   5,   5,   5,2200,2300,\r\n     6         2400,   5,2500,2600,2700,   5,2800,2900,3000,3100,\r\n     7         3200,3300,3400,3500,3600,3700,3800,3900,   5,   5,\r\n     8            5,   5,   5,   5,   5,4000,4100,   5,   5,   5,\r\n     9            5,   5,4400,4500,   5,   5,   5,6000,   5,   5 ), KX\r\n   82 IF (KY .GT. 100) GO TO 83\r\n      GO TO (     5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     1            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     4            5,   5,   5,   5,4600,4600,   5,   5,   7,   8,\r\n     5         5000,5100,5200,5300,5400,   5,   5,   5,   5,   5,\r\n     6            5,   5,6400,6500,6600,6700,6800,   5,5600,5700,\r\n     7         5800,5900,   5,   5,6100,6200,6300,6900,   5,   5,\r\n     8            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     9            5,   5,   5,   5,   5,   5,   5,   5,   5,   5 ), KY\r\n   83 KZ = KY-100\r\n      IF (KZ .GT. 39) GO TO 5\r\n      GO TO (  6400,6400,6400,6510,6520,6530,6850,7600,6400,7700,\r\n     1         3300,3300,3300,3350,   5,   5,   5,   5,   5,   5,\r\n     2            5,   5,   5,   5,   5,   5,   5,   5,   5,   5,\r\n     3            5,   5,   5,   5,   5,   5,   5,4700,4710      ), KZ\r\n    5 CALL PAGE2 (2)\r\n      WRITE  (NOUT,6) SFM\r\n    6 FORMAT (A25,' 322, ILLEGAL ENTRY TO IFS5P.')\r\n      ABORT =.TRUE.\r\n      IF (K .EQ. 0) GO TO 9999\r\n      RETURN 1\r\n    7 BADFOR =.TRUE.\r\n      RETURN 1\r\n    8 BADDAT =.TRUE.\r\n      RETURN 1\r\n    3 DO 4 L = 1,N\r\n    4 I(L) = M(L)\r\n    2 RETURN\r\n    9 RETURN 3\r\nC\r\nC*****         3-ADUM1        ******************************************\r\nC\r\n  100 CONTINUE\r\n      IDUMEL = 1\r\n      GO TO 8100\r\nC\r\nC*****         32-ADUM2       ******************************************\r\nC\r\n  200 CONTINUE\r\n      IDUMEL = 2\r\n      GO TO 8100\r\nC\r\nC*****         51-ADUM3       ******************************************\r\nC\r\n  300 CONTINUE\r\n      IDUMEL = 3\r\n      GO TO 8100\r\nC\r\nC*****         88-ADUM4       ******************************************\r\nC\r\n  400 CONTINUE\r\n      IDUMEL = 4\r\n      GO TO 8100\r\nC\r\nC*****         99-ADUM5       ******************************************\r\nC\r\n  500 CONTINUE\r\n      IDUMEL = 5\r\n      GO TO 8100\r\nC\r\nC*****         100-ADUM6      ******************************************\r\nC\r\n  600 CONTINUE\r\n      IDUMEL = 6\r\n      GO TO 8100\r\nC\r\nC*****         101-ADUM7      ******************************************\r\nC\r\n  700 CONTINUE\r\n      IDUMEL = 7\r\n      GO TO 8100\r\nC\r\nC*****         103-ADUM8      ******************************************\r\nC\r\n  800 CONTINUE\r\n      IDUMEL = 8\r\n      GO TO 8100\r\nC\r\nC*****         106-ADUM9      ******************************************\r\nC\r\n  900 CONTINUE\r\n      IDUMEL = 9\r\n      GO TO 8100\r\nC\r\nC*****         107-CDUM1      ******************************************\r\nC\r\n 1000 CONTINUE\r\n      IDUMEL = 1\r\n      GO TO 8200\r\nC\r\nC*****         108-CDUM2      ******************************************\r\nC\r\n 1100 CONTINUE\r\n      IDUMEL = 2\r\n      GO TO 8200\r\nC\r\nC*****         109-CDUM3      ******************************************\r\nC\r\n 1200 CONTINUE\r\n      IDUMEL = 3\r\n      GO TO 8200\r\nC\r\nC*****         110-CDUM4      ******************************************\r\nC\r\n 1300 CONTINUE\r\n      IDUMEL = 4\r\n      GO TO 8200\r\nC\r\nC*****         111-CDUM5      ******************************************\r\nC\r\n 1400 CONTINUE\r\n      IDUMEL = 5\r\n      GO TO 8200\r\nC\r\nC*****         112-CDUM6      ******************************************\r\nC\r\n 1500 CONTINUE\r\n      IDUMEL = 6\r\n      GO TO 8200\r\nC\r\nC*****         113-CDUM7      ******************************************\r\nC\r\n 1600 CONTINUE\r\n      IDUMEL = 7\r\n      GO TO 8200\r\nC\r\nC*****         114-CDUM8      ******************************************\r\nC\r\n 1700 CONTINUE\r\n      IDUMEL = 8\r\n      GO TO 8200\r\nC\r\nC*****         115-CDUM9      ******************************************\r\nC\r\n 1800 CONTINUE\r\n      IDUMEL = 9\r\n      GO TO 8200\r\nC\r\nC*****         116-PDUM1      ******************************************\r\nC\r\n 1900 CONTINUE\r\n      IDUMEL = 1\r\n      GO TO 8300\r\nC\r\nC*****         117-PDUM2      ******************************************\r\nC\r\n 2000 CONTINUE\r\n      IDUMEL = 2\r\n      GO TO 8300\r\nC\r\nC*****         118-PDUM3      ******************************************\r\nC\r\n 2100 CONTINUE\r\n      IDUMEL = 3\r\n      GO TO 8300\r\nC\r\nC*****         159-PDUM4      ******************************************\r\nC\r\n 2200 CONTINUE\r\n      IDUMEL = 4\r\n      GO TO 8300\r\nC\r\nC*****         160-PDUM5      ******************************************\r\nC\r\n 2300 CONTINUE\r\n      IDUMEL = 5\r\n      GO TO 8300\r\nC\r\nC*****         161-PDUM6      ******************************************\r\nC\r\n 2400 CONTINUE\r\n      IDUMEL = 6\r\n      GO TO 8300\r\nC\r\nC*****         163-PDUM7      ******************************************\r\nC\r\n 2500 CONTINUE\r\n      IDUMEL = 7\r\n      GO TO 8300\r\nC\r\nC*****         164-PDUM8      ******************************************\r\nC\r\n 2600 CONTINUE\r\n      IDUMEL = 8\r\n      GO TO 8300\r\nC\r\nC*****         165-PDUM9      ******************************************\r\nC\r\n 2700 CONTINUE\r\n      IDUMEL = 9\r\n      GO TO 8300\r\nC\r\nC*****         167-CONCT1     ******************************************\r\nC\r\n 2800 IF (KM .EQ. 1) GO TO 2850\r\n      NSS = 0\r\n      IF (MF(1) .NE. 1) GO TO 7\r\n      DO 2805 L = 2,8\r\n      IF (MF(L).NE.3 .AND. MF(L).NE.0) GO TO 7\r\n      IF (MF(L) .EQ. 3) NSS = NSS + 1\r\n 2805 CONTINUE\r\n      IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 7\r\n      IF (M(1) .LE. 0) GO TO 8\r\n      IF (NSS  .EQ. 1) GO TO 8\r\n      I(1) = NSS\r\n      I(2) = M(1)\r\n      N  = 2\r\n      NB = 0\r\n      DO 2810 L = 2,8\r\n      IF (MF(L) .EQ. 0) GO TO 2809\r\n      N = N + 2\r\n      NFDH(L-1) = 1\r\n      I(N-1) = M(N-2+NB)\r\n      I(N  ) = M(N-1+NB)\r\n      GO TO 2810\r\n 2809 NB = NB + 1\r\n      NFDH(L-1) = 0\r\n 2810 CONTINUE\r\n      KM = 1\r\n      GO TO 2\r\n 2850 KM = 0\r\n      DO 2855 L = 1,8\r\n      IF (MF(L) .GT. 1) GO TO 7\r\n      IF (M(L).LE.0 .AND. MF(L).EQ.1) GO TO 8\r\n 2855 CONTINUE\r\n      DO 2860 L = 2,8\r\n      IF (MF(L).EQ.1 .AND. NFDH(L-1).EQ.0) GO TO 8\r\n 2860 CONTINUE\r\n      I(1) = M(1)\r\n      N = 1\r\n      DO 2870 L = 2,8\r\n      IF (NFDH(L-1) .EQ. 0) GO TO 2870\r\n      N = N + 1\r\n      I(N) = M(L)\r\n 2870 CONTINUE\r\n      KN = 1\r\n      KM = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      KN = 0\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) = -1\r\n      GO TO 2\r\nC\r\nC*****         168-CONCT      ******************************************\r\nC\r\n 2900 IF (KM .EQ. 1) GO TO 2950\r\n      KM = 1\r\n      DO 2905 L = 1,2\r\n      IF (MF(L  ) .NE. 1) GO TO 7\r\n      IF (MF(L+2) .NE. 3) GO TO 7\r\n      IF (M(L) .LE. 0) GO TO 8\r\n 2905 CONTINUE\r\n      DO 2910 L = 1,6\r\n 2910 I(L) = M(L)\r\n      N = 6\r\n      IF (M1(1).NE.0 .AND. M1(2).NE.0) GO TO 7\r\n      GO TO 2\r\n 2950 DO 2955 L = 1,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 7\r\n 2955 CONTINUE\r\n      DO 2960 L = 1,8\r\n      IF (MF(L).EQ.1 .AND. M(L).LE.0) GO TO 8\r\n 2960 CONTINUE\r\n      N = 0\r\n      DO 2965 L = 1,8,2\r\n      KDLH = MF(L) + MF(L+1)\r\n      IF (KDLH.NE.0 .AND. KDLH.NE.2) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 2965\r\n      N = N + 2\r\n      I(N-1) = M(N-1)\r\n      I(N  ) = M(N  )\r\n 2965 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KM = 0\r\n      GO TO 2\r\nC\r\nC*****         169-TRANS      ******************************************\r\nC\r\n 3000 IF (MF(1).NE.1 .OR. MF(2).NE.0) GO TO 7\r\n      DO 3010 L = 3,11\r\n      IF (MF(L).NE.2 .AND. MF(L).NE.0) GO TO 7\r\n 3010 CONTINUE\r\n      IF (M(1) .LE. 0) GO TO 8\r\n      V11   = RM( 6) - RM(3)\r\n      V12   = RM( 7) - RM(4)\r\n      V13   = RM( 8) - RM(5)\r\n      V21   = RM( 9) - RM(3)\r\n      V22   = RM(10) - RM(4)\r\n      V23   = RM(11) - RM(5)\r\n      TR1   = V12*V23 - V13*V22\r\n      TR2   = V11*V23 - V13*V21\r\n      TR3   = V11*V22 - V12*V21\r\n      TMAG  = SQRT(TR1**2 + TR2**2 + TR3**2)\r\n      V1MAG = SQRT(V11**2 + V12**2 + V13**2)\r\n      V2MAG = SQRT(V21**2 + V22**2 + V23**2)\r\n      IF (V1MAG .EQ. 0.0) GO TO 8\r\n      IF (V2MAG .EQ. 0.0) GO TO 8\r\n      ANGSIN = TMAG/V1MAG/V2MAG\r\n      IF (ANGSIN .LT. 0.087) GO TO 8\r\n      I(1) = M(1)\r\n      DO 3020 L = 3,11\r\n      I(L-1) = M(L)\r\n 3020 CONTINUE\r\n      N = 10\r\n      GO TO 2\r\nC\r\nC*****         170-RELES      ******************************************\r\nC\r\n 3100 IF (KM .EQ. 1) GO TO 3170\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2) .NE. 3) GO TO 7\r\n      IF (M(1)  .LE. 0) GO TO 8\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      I(3) = M(3)\r\n      L1 = 3\r\n      N  = 3\r\n 3180 DO 3110 L = L1,8,2\r\n      KDLH = MF(L) + MF(L+1)\r\n      IF (KDLH.NE.0 .AND. KDLH.NE.2) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 3110\r\n      N = N + 2\r\n      I(N-1) = M(N-1)\r\n      I(N  ) = M(N  )\r\n 3110 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      N = N + 2\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KM = 0\r\n      GO TO 2\r\n 3170 N  = 0\r\n      L1 = 1\r\n      GO TO 3180\r\nC\r\nC*****         171-LOADC      ******************************************\r\nC\r\n 3200 IF (KM .EQ. 1) GO TO 3250\r\n      KM = 1\r\n      IF ((MF(1).NE.0 .AND. MF(1).NE.1) .OR.\r\n     1    (MF(2).NE.0 .AND. MF(2).NE.2)) GO TO 7\r\n      IF (M(1).LE.0 .OR. M(2).EQ.0) GO TO 8\r\n      IF (MF(3).NE.3 .OR. (MF(6).NE.3 .AND. MF(6).NE.0)) GO TO 7\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      N   = 2\r\n      LDH = 0\r\n 3260 DO 3210 L = 3,8,3\r\n      KDLH = MF(L) + MF(L+1) + MF(L+2)\r\n      IF (KDLH.NE.0 .AND. KDLH.NE.6) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 3210\r\n      N = N + 4\r\n      I(N-3) = M(N-3+LDH)\r\n      I(N-2) = M(N-2+LDH)\r\n      I(N-1) = M(N-1+LDH)\r\n      I(N)   = M(N  +LDH)\r\n 3210 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      N = N + 4\r\n      I(N-3) = IBLANK\r\n      I(N-2) = IBLANK\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KM = 0\r\n      GO TO 2\r\n 3250 N  = 0\r\n      LDH = 2\r\n      GO TO 3260\r\nC\r\nC*****         172-SPCSD ,  311-DAREAS          **********************\r\nC              312-DELAYS,  313-DPHASES\r\nC\r\n 3300 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(4) .LE. 0) GO TO 8\r\n      IF (M(5) .LT. 0) GO TO 8\r\n      IF (M(7) .LT. 0) GO TO 8\r\n      IF (M(8) .LT. 0) GO TO 8\r\n      N = 12\r\n      IF (M(7) .EQ. 0 ) N = 9\r\n      M(N-2) = -1\r\n      M(N-1) = -1\r\n      M(N  ) = -1\r\n      GO TO 3\r\nC\r\nC*****         314-TICS         **************************************\r\nC\r\n 3350 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(4) .LE. 0) GO TO 8\r\n      IF (M(5) .LT. 0) GO TO 8\r\n      DO 3351 L = 8,11\r\n      M(L) = -1\r\n 3351 CONTINUE\r\n      N = 11\r\n      GO TO 3\r\nC\r\nC*****         173-SPCS1      ******************************************\r\nC\r\n 3400 IF (KM .EQ. 1) GO TO 3410\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) BADFOR =.TRUE.\r\n      IF (MF(2) .NE. 3) BADFOR =.TRUE.\r\n      IF (M(4)  .LT. 0) BADDAT =.TRUE.\r\n      CALL WRITE (210,M,4,0)\r\n      J1 = 4\r\n      L1 = 5\r\n      GO TO 3920\r\n 3410 L1 = 1\r\n      J1 = 1\r\n      GO TO 3920\r\nC\r\nC*****         174-SPCS       ******************************************\r\nC\r\nC\r\nC     SAME AS RELES DATA CARD\r\nC\r\n 3500 GO TO 3100\r\nC\r\nC*****         175-BDYC       ******************************************\r\n 3600 IF (KM .EQ. 1) GO TO 3650\r\nC\r\n      IF (MF(8).NE.0 .OR. MF(1).NE.1) GO TO 7\r\n      IF (M(1) .LE. 0) GO TO 8\r\n 3660 DO 3605 L = 2,7,2\r\n      IF (MF(  L).NE.0 .AND. MF(L  ).NE.3) GO TO 7\r\n      IF (MF(L+1).NE.0 .AND. MF(L+1).NE.1) GO TO 7\r\n 3605 CONTINUE\r\n      I(1) = M(1)\r\n      N  = 1\r\n      J1 = 1\r\n      IF (KM .EQ. 1) J1 = 0\r\n      DO 3610 L = 2,7,2\r\n      KDLH = MF(L) + MF(L+1)\r\n      IF (KDLH.NE.0 .AND. KDLH.NE.4) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 3610\r\n      N  = N  + 3\r\n      J1 = J1 + 3\r\n      I(J1-2) = M(N-2)\r\n      I(J1-1) = M(N-1)\r\n      I(J1  ) = M(N  )\r\n 3610 CONTINUE\r\n      N  = J1\r\n      KM = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      KM = 0\r\n      N  = N  + 3\r\n      J1 = J1 + 3\r\n      I(J1-2) = IBLANK\r\n      I(J1-1) = IBLANK\r\n      I(J1  ) = -1\r\n      GO TO 2\r\n 3650 IF (MF(1).NE.0 .OR. MF(8).NE.0) GO TO 7\r\n      GO TO 3660\r\nC\r\nC*****         176-MPCS       ******************************************\r\nC\r\n 3700 IF (KM .EQ. 1) GO TO 3750\r\n      KM = 1\r\n      IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2) .NE. 3) GO TO 7\r\n      IF (MF(3) .NE. 1) GO TO 7\r\n      IF (MF(4) .NE. 1) GO TO 7\r\n      IF (MF(5) .NE. 2) GO TO 7\r\n      IF (M(1)  .LE. 0) GO TO 8\r\n      IF (M(4)  .LE. 0) GO TO 8\r\n      IF (M(5)  .LT. 0) GO TO 8\r\n      IF (M(6)  .EQ. 0) GO TO 8\r\n      DO 3710 L = 1,6\r\n      I(L) = M(L)\r\n 3710 CONTINUE\r\n      N = 6\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      GO TO 7\r\n 3750 IF (MF(1) .NE. 0) GO TO 7\r\n      IF (MF(2) .NE. 3) GO TO 7\r\n      DO 3755 L = 3,6,3\r\n      IF (MF(L)+MF(L+2)+MF(L+1) .EQ. 0) GO TO 3755\r\n      IF (MF(L).NE.1 .OR. MF(L+1).NE.1) GO TO 7\r\n      IF (MF(L+2) .NE. 2) GO TO 7\r\n      IF (M(L+1).LE.0 .AND. MF(L+2).LE.0) GO TO 8\r\n 3755 CONTINUE\r\n      N = 0\r\n      DO 3765 L = 3,8,3\r\n      KDLH = MF(L) + MF(L+1) + MF(L+2)\r\n      IF (KDLH.NE.0 .AND. KDLH.NE.4) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 3765\r\n      I(N+1) = M(2)\r\n      I(N+2) = M(3)\r\n      N = N + 5\r\n      I(N-2) = M(L+1)\r\n      I(N-1) = M(L+2)\r\n      I(N  ) = M(L+3)\r\n 3765 CONTINUE\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 2\r\n      I(N+1) = IBLANK\r\n      I(N+2) = IBLANK\r\n      N = N + 5\r\n      I(N-2) = -1\r\n      I(N-1) = -1\r\n      I(N  ) = -1\r\n      KM = 0\r\n      GO TO 2\r\nC\r\nC*****         177-BDYS       ******************************************\r\nC\r\n 3800 DO 3810 L = 1,7\r\n      IF (MF(L).NE.1 .AND. MF(L).NE.0) GO TO 7\r\n      IF (MF(L).EQ.1 .AND.  M(L).LE.0) GO TO 8\r\n 3810 CONTINUE\r\n      IF (MF(1) .EQ. 0) GO TO 7\r\n      N = 1\r\n      I(N) = M(1)\r\n      DO 3820 L = 2,7,2\r\n      KDLH = MF(L) + MF(L+1)\r\n      IF (KDLH.NE.2 .AND. KDLH.NE.0) GO TO 8\r\n      IF (KDLH .EQ. 0) GO TO 3820\r\n      N = N + 2\r\n      I(N-1) = M(N-1)\r\n      I(N  ) = M(N  )\r\n 3820 CONTINUE\r\n       N = N + 2\r\n       I(N-1) = -1\r\n       I(N  ) = -1\r\n      GO TO 2\r\nC\r\nC*****         178-BDYS1      ******************************************\r\nC\r\n 3900 IF (KM .EQ. 1) GO TO 3910\r\n      KM = 1\r\n      IF (MF(1).NE.1 .OR. MF(2).GT.1) BADFOR =.TRUE.\r\n      IF (M(1) .LT.1 .OR. M(2) .LT.0) BADDAT =.TRUE.\r\n      CALL WRITE (210,M,2,0)\r\n      J1 = 3\r\n      L1 = 3\r\n      GO TO 3920\r\n 3910 J1 = 1\r\n      L1 = 1\r\nC\r\nC     COMMON PROCESSING FOR SPCS1 AND BDYS1 CARDS\r\nC\r\n 3920 IF (MF(J1) .NE. 0) GO TO 3925\r\n      J1 = J1 + 1\r\n      L1 = L1 + 1\r\n      GO TO 3960\r\n 3925 IF (MF(J1) .EQ. 1) GO TO 3930\r\n      BADFOR =.TRUE.\r\n      GO TO 3965\r\n 3930 IF (J1 .GT. 6) GO TO 3955\r\n      IF (MF(J1+1) .NE. 3) GO TO 3955\r\n      IF (M(L1+1) .EQ. THRU) GO TO 3935\r\n      BADDAT =.TRUE.\r\n      GO TO 3965\r\n 3935 IF (MF(J1+2) .EQ. 1) GO TO 3940\r\n      BADFOR =.TRUE.\r\n      GO TO 3965\r\n 3940 IF (M(L1+3) .GT. M(L1)) GO TO 3945\r\n      BADDAT =.TRUE.\r\n      GO TO 3965\r\n 3945 IG1 = M(L1  )\r\n      IG2 = M(L1+3)\r\n      DO 3950 J = IG1,IG2\r\n      CALL WRITE (210,J,1,0)\r\n 3950 CONTINUE\r\n      J1 = J1 + 3\r\n      L1 = L1 + 4\r\n      GO TO 3960\r\n 3955 CALL WRITE (210,M(L1),1,0)\r\n      J1 = J1 + 1\r\n      L1 = L1 + 1\r\n 3960 IF (J1 .LE. 8) GO TO 3920\r\n 3965 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 3970\r\n      KN = 1\r\n      N  = 0\r\n      GO TO 9\r\n 3970 KM = 0\r\n      KN = 0\r\n      N  = 1\r\n      I(1) = -1\r\n      GO TO 9\r\nC\r\nC*****         186-GNEW       ******************************************\r\nC\r\n 4000 IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2) .NE. 3) GO TO 7\r\n      IF (MF(3).NE.1 .AND. MF(3).NE.0) GO TO 7\r\n      IF (MF(4) .NE. 1) GO TO 7\r\n      IF (MF(5) .NE. 1) GO TO 7\r\n      IF (M(1)  .LE. 0) GO TO 8\r\n      IF (M(4)  .LT. 0) GO TO 8\r\n      IF (M(5)  .LE. 0) GO TO 8\r\n      IF (M(6)  .LE. 0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*****         187-GTRAN      ******************************************\r\nC\r\n 4100 IF (MF(1) .NE. 1) GO TO 7\r\n      IF (MF(2) .NE. 3) GO TO 7\r\n      IF (MF(3) .NE. 1) GO TO 7\r\n      IF (MF(4).NE.1 .AND. MF(4).NE.0) GO TO 7\r\n      IF (M(1)  .LE. 0) GO TO 8\r\n      IF (M(4)  .LE. 0) GO TO 8\r\n      IF (M(5)  .LT. 0) GO TO 8\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         193-USET       ******************************************\r\nC\r\n 4400 ASSIGN 4405 TO RET\r\n 4401 N = 0\r\n      IF (M(2) .NE. BLANK) GO TO 8\r\n      DO 4402 L = 1,32\r\n      IF (M(1) .EQ. KB(L,2)) GO TO 4404\r\n 4402 CONTINUE\r\n      GO TO 8\r\n 4404 ID = KB(L,1)\r\n      GO TO RET, (4405,4505)\r\n 4405 DO 4440 L = 3,7,2\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0) GO TO 4440\r\n      IF (M(L) .LE. 0) GO TO 8\r\n      IF (IFPDCO(M(L+1))) GO TO 8\r\n      LZ = 6\r\n      IF (M(L+1) .EQ. 0) LZ = 1\r\n      DO 4430 L2 = 1,LZ\r\n      IF (LZ.NE.1 .AND. LL(L2).EQ.0) GO TO 4430\r\n      N = N + 3\r\n      I(N-2) = ID\r\n      I(N-1) = M(L  )\r\n      I(N  ) = LL(L2)\r\n      IF (N .LE. 3) GO TO 4430\r\n      DO 4420 L1 = 6,N,3\r\n      IF (I(N-1).EQ.I(L1-4) .AND. I(N).EQ.I(L1-3)) GO TO 8\r\n 4420 CONTINUE\r\n 4430 CONTINUE\r\n 4440 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****         194-USET1      ******************************************\r\nC\r\n 4500 IF (KM .NE. 0) GO TO 4510\r\n      KM = 1\r\n      ASSIGN 4505 TO RET\r\n      GO TO 4401\r\n 4505 N = 2\r\n      I(1) = ID\r\n      IF (MF(2).NE.0 .AND. MF(2).NE.1) BADFOR =.TRUE.\r\n      IF (IFPDCO(M(3))) BADDAT =.TRUE.\r\n      I(2) = M(3)\r\n      IF (MF(4).EQ.3 .AND. M(5).EQ.THRU) GO TO 4550\r\n      L1 = 4\r\n      L3 =-1\r\n      L2 = 9\r\n      GO TO 4511\r\n 4510 L1 = 1\r\n      L3 = 0\r\n      L2 = 8\r\n 4511 DO 4515 L = L1,L2\r\n      IF (MF(L+L3).NE.0 .AND. MF(L+L3).NE.1) BADFOR =.TRUE.\r\n 4515 CONTINUE\r\n      DO 4520 L = L1,L2\r\n      IF (MF(L+L3) .EQ. 1) GO TO 4525\r\n 4520 CONTINUE\r\n      BADDAT =.TRUE.\r\n 4525 DO 4540 L = L1,L2\r\n      IF (M(L)) 4535,4540,4530\r\n 4530 N = N + 1\r\n      I(N) = M(L)\r\n      GO TO 4540\r\n 4535 BADDAT =.TRUE.\r\n 4540 CONTINUE\r\n      KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n 4545 KM = 0\r\n      N  = N + 1\r\n      I(N) = -1\r\n      KN = 0\r\n      GO TO 9\r\n 4550 IF (M1(1).NE.0 .OR. M1(2).NE.0) GO TO 4555\r\n      KN = 1\r\n      BADFOR =.TRUE.\r\n      GO TO 9\r\n 4555 IF (MF(3).NE.1 .OR. MF(5).NE.1 ) BADFOR =.TRUE.\r\n      IF (M(4).LE.0 .OR. M(7).LE.M(4)) BADDAT =.TRUE.\r\n      DO 4560 L = 1,3\r\n      IF (MF(L+5) .NE. 0) BADFOR =.TRUE.\r\n 4560 CONTINUE\r\n      IF (BADFOR .OR. BADDAT) GO TO 4545\r\n      CALL WRITE (210,I,2,0)\r\n      L1 = M(4)\r\n      L2 = M(7)\r\n      DO 4570 L = L1,L2\r\n 4570 CALL WRITE (210,L,1,0)\r\n      N = 0\r\n      GO TO 4545\r\nC\r\nC*****         245-SAME 246-NOSAME          ****************************\r\nC\r\n 4600 CONTINUE\r\n      IALT = 1\r\n      IF (M(3) .EQ. THRU) IALT = 3\r\n      KDX  = IALT + ICONT\r\n      GO TO (4620,4620,4630,4640), KDX\r\n 4620 DO 4621 IN1 = 1,8,2\r\n      IN2 = IN1 + 1\r\n      IF (MF(IN1).EQ.0 .AND. MF(IN2).EQ.0) GO TO 4621\r\n      IF (MF(IN1).NE.1 .OR.  MF(IN2).NE.1) BADFOR =.TRUE.\r\n      IF (M(IN1) .LE.0 .OR.  M(IN2) .LE.0) BADDAT =.TRUE.\r\nC\r\n      N = N + 2\r\n      I(N-1) = M(IN1)\r\n      I(N  ) = M(IN2)\r\n 4621 CONTINUE\r\n      GO TO 4680\r\nC\r\n 4630 IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.3 .OR. MF(4).NE.1 .OR\r\n     1.   MF(5).NE.1 .OR. MF(6).NE.1 .OR. MF(7).NE.3 .OR. MF(8).NE.1)\r\n     2    BADFOR =.TRUE.\r\n      IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0 .OR.\r\n     1    M(7).LE.0 .OR. M(8).NE.THRU .OR. M(10).LE.0) BADDAT =.TRUE.\r\n     2\r\n      IF (M(5).LE.M(2) .OR. M(10).LE.M(7)) BADDAT =.TRUE.\r\n      IRANGE = M(5) - M(2)\r\n      IF ((M(10)-M(7)) .NE. IRANGE)  BADDAT =.TRUE.\r\n      I(1) = -1\r\n      I(2) = IRANGE + 1\r\n      I(3) = M(1)\r\n      I(4) = M(2)\r\n      I(5) = M(6)\r\n      I(6) = M(7)\r\n      N = 6\r\n      GO TO 4680\r\n 4640 DO 4650 IN1 = 1,6,5\r\n      IN2 = IN1 + 1\r\n      IN3 = IN2 + 1\r\n      IN4 = IN3 + 1\r\n      IN5 = IN4 + 1\r\n      IF (MF(IN1).EQ.0 .AND. MF(IN2).EQ.0 .AND. MF(IN3).EQ.0 .AND.\r\n     1    MF(IN4).EQ.0) GO TO 4650\r\n      IF (MF(IN1).NE.1 .OR. MF(IN2).NE.1 .OR. MF(IN3).NE.3 .OR.\r\n     1    MF(IN4).NE.1) BADFOR = .TRUE.\r\n      IF (M(IN1).LE.0 .OR. M(IN2).LE.0 .OR. M(IN3).NE.THRU .OR.\r\n     1    M(IN5).LE.0) BADDAT =.TRUE.\r\n      IF (M(IN5).LE.M(IN2) .OR. M(IN5)-M(IN2).NE.IRANGE) BADDAT =.TRUE.\r\n      I(N+1) = M(IN1)\r\n      I(N+2) = M(IN2)\r\n      N = N + 2\r\n 4650 CONTINUE\r\nC\r\n 4680 IF (M1F(1).EQ.0 .AND. M1F(2).EQ.0) GO TO 4685\r\n      ICONT  = 0\r\n      I(N+1) =-1\r\n      I(N+2) =-1\r\n      N = N + 2\r\n      GO TO 9\r\n 4685 ICONT = 1\r\n      GO TO 9\r\nC\r\nC*****         338-CELBOW     ******************************************\r\nC\r\n 4700 IF (M(2) .EQ. 0) M(2) = M(1)\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****         339-PELBOW     ******************************************\r\nC\r\n 4710 N = 24\r\n      GO TO 3\r\nC\r\nC*****         251-CIHEX1     ******************************************\r\nC\r\n 5000 N = 10\r\n 5010 DO 5020 L = 1,N\r\n      IF (M(L) .LE. 0) GO TO 8\r\n 5020 CONTINUE\r\n      N1 = N - 1\r\n      DO 5040 L = 3,N1\r\n      L2 = L + 1\r\n      DO 5030 L1 = L2,N\r\n      IF (M(L) .EQ. M(L1)) GO TO 8\r\n 5030 CONTINUE\r\n 5040 CONTINUE\r\n      GO TO 3\r\nC\r\nC*****         252-CIHEX2     ******************************************\r\nC\r\n 5100 N = 22\r\n      GO TO 5010\r\nC\r\nC*****         253-CIHEX3     ******************************************\r\nC\r\n 5200 N = 34\r\n      GO TO 5010\r\nC\r\nC*****         254-PIHEX      ******************************************\r\nC\r\n 5300 N = 7\r\n      IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      IF (M(3) .LT. 0) GO TO 8\r\n      IF ((M(4).LT.2 .OR. M(4).GT.4) .AND. M(4).NE.0) GO TO 8\r\n      DO 5320 L = 5,7\r\n      IF (MF(L) .EQ.   0) GO TO 5310\r\n      IF (MF(L) .NE.   2) GO TO 7\r\n      IF (RM(L) .LT. 0.0) GO TO 8\r\n      GO TO 5320\r\n 5310 RM(L) = -1.0\r\n 5320 CONTINUE\r\n      IF (RM(5).GE.0.0  .AND. RM(5).LT.1.0  ) GO TO 8\r\n      IF (RM(6).GT.180.0 .OR. RM(7).GT.180.0) GO TO 8\r\n      GO TO 3\r\nC\r\nC*****         255-PLOAD3     ******************************************\r\nC\r\n 5400 IF (M(1) .LE. 0) GO TO 8\r\n      DO 5410 L = 3,6,3\r\n      IF (M(L).EQ.0 .AND. M(L+1).EQ.0 .AND. M(L+2).EQ.0) GO TO 5410\r\n      IF (M(L).LT.0 .OR.  M(L+1).LT.0 .OR.  M(L+2).LT.0) GO TO 8\r\n      N = N + 5\r\n      I(N-4) = M(1)\r\n      I(N-3) = M(2)\r\n      I(N-2) = M(L)\r\n      I(N-1) = M(L+1)\r\n      I(N  ) = M(L+2)\r\n 5410 CONTINUE\r\n      IF (N) 8,8,2\r\nC\r\nC*****    263-CAERO1, 301-CAERO2, 302-CAERO3, 303-CAERO4  *******\r\nC         309-CAERO5\r\nC\r\n 6400 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LE. 0) GO TO 8\r\n      DO 6404 L = 3,8\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 6404 CONTINUE\r\n      IF (K .EQ. 302) GO TO 6410\r\n      IF (K .EQ. 303) GO TO 6420\r\n      IF (K .EQ. 309) GO TO 6420\r\n      IF (M(4).EQ.0 .AND. M(6).EQ.0) GO TO 8\r\n      IF (M(5).EQ.0 .AND. M(7).EQ.0) GO TO 8\r\n      IF (M(8) .LE. 0) GO TO 8\r\n 6405 IF (RM(12) .LT. 0.0) GO TO 8\r\n      IF (RM(16) .LT. 0.0) GO TO 8\r\n      IF (RM(12).EQ.0.0 .AND. RM(16).EQ.0.0) GO TO 8\r\n      N = 16\r\n      GO TO 3\r\nC\r\nC*****     CAERO3      ************************************************\r\nC\r\n 6410 IF (M(4)   .EQ. 0 ) GO TO 8\r\n      IF (RM(12) .EQ. 0.) GO TO 8\r\n      GO TO 6405\r\nC\r\nC*****     CAERO4   CAERO5    ******************************************\r\nC\r\n 6420 IF (M(4).EQ.0 .AND. M(5).EQ.0) GO TO 8\r\n      IF (M(6) .GT. 2) GO TO 8\r\n      GO TO 6405\r\nC\r\nC*****         264-PAERO1     ******************************************\r\nC\r\n 6500 IF (M(1) .LE. 0) GO TO 8\r\n      DO 6501 L = 2,8\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 6501 CONTINUE\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****      304 - PAERO2    ***************\r\nC\r\n 6510 IF (M(1) .LE. 0) GO TO 8\r\n      DO 6511 L = 1,3\r\n      IF (M(2) .EQ. MOT(L)) GO TO 6512\r\n 6511 CONTINUE\r\n      GO TO 8\r\n 6512 IF (RM(4) .LE. 0.0) GO TO 8\r\n      IF (RM(5) .LE. 0.0) GO TO 8\r\n      DO 6513 L = 6,15\r\n      IF (M(L) .LT. 0) GO TO 8\r\n 6513 CONTINUE\r\n      N = 15\r\n      GO TO 3\r\nC\r\nC*****      305 - PAERO3    ****************\r\nC\r\n 6520 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LT.0) GO TO 8\r\n      IF (M(2) .GT. 50) GO TO 8\r\n      N = 0\r\n      IF (M(3) .EQ. 0) N = 4\r\n      IF (M(3) .EQ. 1) N = 12\r\n      IF (M(3) .EQ. 2) N = 16\r\n      IF (N .EQ. 0) GO TO 8\r\n      M(4) = N\r\n      N = N + 4\r\n      IF (N .EQ. 8) GO TO 6522\r\n      DO 6521 L = 9,N\r\n      IF (MF(L) .EQ. -32767) GO TO 8\r\n 6521 CONTINUE\r\n      IF (RM(12) .LT. RM(10)) GO TO 8\r\n      IF (RM(16) .LT. RM(14)) GO TO 8\r\n      IF (N .EQ.  16) GO TO 6522\r\n      IF (RM(20) .LT. RM(18)) GO TO 8\r\n 6522 GO TO 3\r\nC\r\nC*****      306 - PAERO4   **********************\r\nC\r\n 6530 IF (KM .NE. 0) GO TO 6535\r\n      KM = 1\r\n      IF (MF(1).NE.1 .OR. M(1).LE.0) GO TO 6540\r\n      DO 6531 L = 2,5\r\n      IF (MF(1).LT.0 .OR. MF(L).GT.1) GO TO 6540\r\n 6531 CONTINUE\r\n      IF (M(3) .LT. 0) GO TO 6540\r\n      IF (M(2).EQ.0 .AND. M(3).NE.0) GO TO 6540\r\n      IF (M(2).GT.0 .AND. M(3).EQ.0) GO TO 6540\r\n      IF (M(2).NE.0 .AND. M(4).NE.0) GO TO 6540\r\n      IF (M(4).LT.0 .OR.  M(4).GT.3) GO TO 6540\r\n      IF (M(4).EQ.0 .AND. M(5).NE.0) GO TO 6540\r\n      IF (M(4).GT.0 .AND. M(5).EQ.0) GO TO 6540\r\n      DO 6532 L = 1,5\r\n 6532 I(L) = M(L)\r\n      N  = 5\r\n      L1 = 6\r\n      GO TO 6533\r\n 6535 L1 = 1\r\n 6533 DO 6534 L = L1,8\r\n      IF (MF(L) .EQ.  0) GO TO 6550\r\n      IF (MF(L) .NE.  2) GO TO 6540\r\n      IF (RM(L) .LT. 0.) GO TO 6540\r\n      N = N + 1\r\n      I(N) = M(L)\r\n 6534 CONTINUE\r\n 6539 KN = 1\r\n      IF (M1(1).EQ.0 .AND. M1(2).EQ.0) GO TO 9\r\n      KN = 0\r\n      KM = 0\r\n      N  = N + 1\r\n      I(N) = -1\r\n      GO TO 9\r\n 6540 BADDAT = .TRUE.\r\n      GO TO 6539\r\n 6550 IF (M1(1).EQ.0 .AND. M1(2).EQ.0) BADDAT = .TRUE.\r\n      GO TO 6539\r\nC\r\nC*****   310 - PAERO5  ************\r\nC\r\n 7700 IF (KM .NE. 0) GO TO 6535\r\n      KM = 1\r\n      DO 7701 L = 1,3\r\n      IF (MF(L).NE.1 .OR. M(L).LE.0) GO TO 6540\r\n 7701 CONTINUE\r\n      DO 7702 L = 4,7\r\n      IF (MF(L).LT.0 .OR. MF(L).GT.1) GO TO 6540\r\n 7702 CONTINUE\r\n      IF (M(4).NE.0 .AND. M(5).EQ.0) GO TO 6540\r\n      IF (M(6).NE.0 .AND. M(7).EQ.0) GO TO 6540\r\n      DO 7703 L = 1,7\r\n 7703 I(L) = M(L)\r\n      N = 7\r\n      GO TO 6539\r\nC\r\nC*****         265-AERO       ******************************************\r\nC\r\n 6600 IF (IAERO .NE. 0) GO TO 8\r\n      IAERO = 1\r\n      IF (M(1) .LT. 0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*****         266-SPLINE1    ******************************************\r\nC\r\n 6700 IF (M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR. M(5).LE.0 .OR.\r\n     1    M(1).LE.0 .OR. RM(6).LT.0.0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC*****         267-SPLINE2    ******************************************\r\nC\r\n 6800 IF (M(1).LE.0 .OR. M(2).LE.0 .OR. M(3).LE.0 .OR. M(4).LE.0 .OR.\r\n     1    M(5).LE.0 .OR.M(8).LT.0) GO TO 8\r\n      N = 10\r\n      GO TO 3\r\nC\r\nC*****    307 - SPLINE3       *********************\r\nC\r\n 6850 IF (KM .NE. 0) GO TO 6852\r\n      KM = 1\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1 .OR. MF(3).NE.1 .OR. MF(4).NE.1)\r\n     1    GO TO 6540\r\n      IF (M(2).LE.0 .OR. M(3).LT.0) GO TO 6540\r\n      IF (IFPDCO(M(4))) GO TO 6540\r\n      IF (GC(2) .NE. 0) GO TO 6540\r\n      DO 6851 L = 1,4\r\n 6851 I(L) = M(L)\r\n      N  = 4\r\n      L1 = 5\r\n      GO TO 6853\r\n 6852 L1 = 1\r\n 6853 DO 6854 L = L1,8,4\r\n      IF (MF(L  ) .EQ. 0) GO TO 6854\r\n      IF (MF(L  ) .NE. 1) GO TO 6540\r\n      IF (MF(L+1) .NE. 1) GO TO 6540\r\n      IF (IFPDCO(M(L+1))) GO TO 6540\r\n      IF (GC(2  ) .NE. 0) GO TO 6540\r\n      IF (MF(L+2) .NE. 2) GO TO 6540\r\n      IF (M(L)    .LE. 0) GO TO 6540\r\n      N = N + 3\r\n      I(N  ) = M(L+2)\r\n      I(N-1) = M(L+1)\r\n      I(N-2) = M(L  )\r\n 6854 CONTINUE\r\n      GO TO 6539\r\nC\r\nC*****         269-SET2       ******************************************\r\nC\r\n 5600 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      N = 8\r\n      GO TO 3\r\nC\r\nC*****         270-MKAERO2    ******************************************\r\nC\r\n 5700 N = 0\r\n      DO 5702  L = 2,8,2\r\n      IF (MF(L).EQ.0 .AND. MF(L-1).EQ.0) GO TO 5702\r\n      IF (MF(L).EQ.0 .OR.  MF(L-1).EQ.0) GO TO 7\r\n      N = N + 2\r\n      I(N-1) = M(L-1)\r\n      IF (RM(L) .LE. 0.0) GO TO 8\r\n      I(N) = M(L)\r\n 5702 CONTINUE\r\n      IF (N .EQ. 0) GO TO 8\r\n      GO TO 2\r\nC\r\nC*****         271-MKAERO1    ******************************************\r\nC\r\n 5800 IF (MF(1).NE.2 .OR. MF(9).NE.2) GO TO 7\r\n      IF (RM(9) .LE. 0.0) GO TO 8\r\n      DO 5810 L = 2,8\r\n      IF (MF(L) .EQ. 0) M(L) = -1\r\n      IF (MF(L+8).NE.0 .AND. RM(L+8).LE.0.0) GO TO 8\r\n      IF (MF(L+8) .EQ. 0) M(L+8) = -1\r\n 5810 CONTINUE\r\n      N = 16\r\n      GO TO 3\r\nC\r\nC*****         257-FLUTTER    ******************************************\r\nC\r\n 5900 IF (M(1).LE.0 .OR. M(4).LT.0 .OR. M(5).LT.0 .OR. M(6).LT.0) GOTO 8\r\n      DO 5910 L = 1,NMT\r\n      IF (M(2) .EQ. MET(L)) GO TO 5920\r\n 5910 CONTINUE\r\n      GO TO 8\r\n 5920 CONTINUE\r\n      IF (M(7).NE.MS .AND. M(7).NE.ML) GO TO 8\r\n      N = 10\r\n      GO TO 3\r\nC\r\nC******    308 - GUST\r\nC\r\n 7600 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      IF (RM(3).EQ.0.0 .OR. RM(5).EQ.0.0) GO TO 8\r\n      N = 5\r\n      GO TO 3\r\nC\r\nC*****         198-PLOAD1       ****************************************\r\nC\r\n 6000 IF (M(1).LE.0 .OR. M(2).LE.0) GO TO 8\r\n      I(1) = M(1)\r\n      I(2) = M(2)\r\n      DO 6010 L = 1,12\r\n      IF (M(3) .EQ. ITYPE(L)) GO TO 6020\r\n 6010 CONTINUE\r\n      GO TO 8\r\n 6020 I(3) = L\r\n      DO 6030 L = 1,4\r\n      IF (M(5) .EQ. ISCAL(L)) GO TO 6040\r\n 6030 CONTINUE\r\n      GO TO 8\r\n 6040 I(4) = L\r\n      IF (RM(9) .EQ. 0.0) RM(9) = RM(7)\r\n      IF (RM(9) .LT. RM(7)) GO TO 8\r\n      DO 6050 L = 7,10\r\n 6050 I(L-2) = M(L)\r\n      N = 8\r\n      GO TO 2\r\nC\r\nC*****         275-CBARAO       ****************************************\r\nC\r\n 6100 IF (M(1) .LE. 0) GO TO 8\r\n      I(1) = M(1)\r\n      DO 6110 L = 1,2\r\n      IF (M(2) .EQ. ISCAL(L)) GO TO 6120\r\n 6110 CONTINUE\r\n      GO TO 8\r\n 6120 I(2) = L\r\n      DO 6130 L = 4,9\r\n 6130 I(L-1) = M(L)\r\n      N = 9\r\n      IF (MF(3) .EQ. 2) GO TO 6140\r\n      IF (MF(3) .NE. 1) GO TO 7\r\n      IF (I(3)  .LE. 0) GO TO 8\r\n      IF (I(3) .GT. 20) I(3) = 20\r\n      IF (RM(5).LE.0.0 .OR. RM(6).LE.0.0) GO TO 8\r\n      I(9) = -1\r\n      GO TO 2\r\n 6140 I(9) = 1\r\n      DO 6150 L = 4,9\r\n      IF (RM(L) .LT. 0.0) GO TO 8\r\n 6150 CONTINUE\r\n      GO TO 2\r\nC\r\nC*****         276-PLIMIT       ****************************************\r\nC\r\n 6200 IF (MF(1) .NE. 3) GO TO 7\r\n      IF (MF(2).NE.2 .AND. MF(2).NE.0) GO TO 7\r\n      IF (RM(3) .LT. 0.0) GO TO 8\r\n      IF (RM(3).EQ.0.0 .AND. RM(4).EQ.0.0) GO TO 8\r\n      IF (RM(4) .EQ. 0.0) GO TO 6210\r\n      IF (MF(3).NE.2 .OR. RM(4).LE.RM(3)) GO TO 8\r\n 6210 IF (MF(5) .EQ.3 ) GO TO 6230\r\n      DO 6220 L = 4,8\r\n      IF (MF(L).NE.0 .AND. MF(L).NE.1) GO TO 7\r\n      IF (M(L+1) .LT. 0) GO TO 8\r\n 6220 CONTINUE\r\n      GO TO 6240\r\n 6230 IF (M(6) .NE. THRU) GO TO 8\r\n      IF (MF(4).NE.1 .OR. MF(6).NE.1) GO TO 7\r\n      IF (M(8) .LE. M(5)) GO TO 8\r\n 6240 N = 9\r\n      GO TO 3\r\nC\r\nC*****         277-POPT         ****************************************\r\nC\r\n 6300 IF (M(1).LE.0 .OR. M(4).EQ.0) GO TO 8\r\n      IF (IPOPT .NE. 0) GO TO 8\r\n      IPOPT = 1\r\n      IF (RM(2) .LT. 0.0) GO TO 8\r\n      IF (RM(3) .LE. 0.0) GO TO 8\r\n      IF (M(5).NE.IYES .AND. M(5).NE.INO) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC******       278  PLOADX   ******************************************\r\nC\r\n 6900 IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(4).LE.0 .OR. M(5).LE.0 .OR. M(6).LE.0) GO TO 8\r\n      N = 6\r\n      GO TO 3\r\nC\r\nC\r\nC\r\nC     ******************************************************************\r\nC\r\nC     PROCESS ADUM-I CARDS.\r\nC\r\n 8100 CONTINUE\r\n      IF (M(1) .LE. 0) GO TO 8\r\n      IF (M(2) .LT. 0) GO TO 8\r\n      IF (M(3) .LT. 0) GO TO 8\r\n      IF (M(4).NE.3 .AND. M(4).NE.6) GO TO 8\r\n      IF (MF(5).NE.0 .OR. MF(6).NE.0 .OR. MF(7).NE.0 .OR. MF(8).NE.0)\r\n     1    GO TO 7\r\n      KDUMEL(IDUMEL) = M(4) + 10*(M(3) + 1000*(M(2) + 1000*M(1)))\r\nC\r\nC     PUT IN CONNECTION AND PROPERTY CARD NAME IF SUPPLIED BY USER\r\nC\r\n      IF (MF(5).NE. 3) GO TO 8150\r\n      NBPC = JUNK(36)\r\n      NCPW = JUNK(38)\r\n      NSHT = NBPC*(NCPW-1)\r\n      NM1  = T1(1,K)\r\n      NM2  = T1(2,K)\r\n      NM1  = RSHIFT(LSHIFT(NM1,NBPC),NBPC)\r\n      C    = LSHIFT(RSHIFT(C,NSHT),NSHT)\r\n      NM1  = ORF(NM1,C)\r\n      P    = LSHIFT(RSHIFT(P,NSHT),NSHT)\r\n      DO 8110 L = 1,NCDS\r\n      IF (NM1.EQ.T1(1,L) .AND. NM2.EQ.T1(2,L)) GO TO 8120\r\n 8110 CONTINUE\r\n      GO TO 8150\r\n 8120 T1(1,L) = M(5)\r\n      T1(2,L) = M(6)\r\n      NM1 =  ORF(P,RSHIFT(LSHIFT(NM1,NBPC),NBPC))\r\n      DO 8130 L = 1,NCDS\r\n      IF (NM1.EQ.T1(1,L) .AND. NM2.EQ.T1(2,L)) GO TO 8140\r\n 8130 CONTINUE\r\n      GO TO 8150\r\n 8140 M(5) = ORF(P,RSHIFT(LSHIFT(M(5),NBPC),NBPC))\r\n      T1(1,L) = M(5)\r\n      T1(2,L) = M(6)\r\n 8150 CONTINUE\r\n      RETURN 3\r\nC\r\nC     ******************************************************************\r\nC\r\nC     PROCESS CDUM-I CARDS.\r\nC\r\n 8200 CONTINUE\r\nC\r\nC     ==============\r\nC     ONLY DO THIS FOR FIRST ONE IF I CAN FIGURE OUT HOW\r\nC\r\n      ASSIGN 8210 TO RET\r\n      GO TO 9010\r\n 8210 CONTINUE\r\nC     ==============\r\nC\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) GO TO 7\r\n      IF (M(1).LE.0  .OR. M(2) .LE.0) GO TO 8\r\n      L1 = NDUMG + 2\r\n      DO 8220 L = 3,L1\r\n      IF (MF(L) .NE. 1) GO TO 7\r\n      IF (M(L)  .LE. 0) GO TO 8\r\n      IF (L .EQ. 3) GO TO 8220\r\n      L3 = L - 1\r\n      DO 8215 L2 = 3,L3\r\n      IF (M(L2)-M(L)) 8215,8,8215\r\n 8215 CONTINUE\r\n 8220 CONTINUE\r\n      N = NDUMC\r\n      GO TO 3\r\nC\r\nC     ******************************************************************\r\nC\r\nC     PROCESS PDUM-I CARDS.\r\nC\r\n 8300 CONTINUE\r\nC\r\nC     ==============\r\nC     ONLY DO THIS FOR FIRST ONE IF I CAN FIGURE OUT HOW\r\nC\r\n      ASSIGN 8310 TO RET\r\n      GO TO 9010\r\n 8310 CONTINUE\r\nC     ==============\r\nC\r\n      IF (MF(1).NE.1 .OR. MF(2).NE.1) GO TO 7\r\n      IF (M(1).LE.0  .OR. M(2) .LE.0) GO TO 8\r\n      N = NDUMP\r\n      GO TO 3\r\nC\r\nC     ******************************************************************\r\nC\r\nC     DECODE ADUM-I CARD CONTENTS AS PACKED INTO /SYSTEM/\r\nC\r\n 9010 CONTINUE\r\n      NDUMG = KDUMEL(IDUMEL)/10000000\r\n      NDUMD = KDUMEL(IDUMEL) - 10000000*NDUMG\r\n      NDUMC = NDUMD/10000\r\n      NDUMP = (NDUMD - NDUMC*10000)/10\r\n      NDUMD = KDUMEL(IDUMEL) - (KDUMEL(IDUMEL)/10)*10\r\n      NDUMC = NDUMG + NDUMC + 2\r\n      NDUMP = NDUMP + 2\r\n      IF (NDUMC .GT. 24) GO TO 8\r\n      IF (NDUMP .GT. 24) GO TO 8\r\n      GO TO RET, (8210,8310)\r\n 9999 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ift.f",
    "content": "      SUBROUTINE IFT\r\nC\r\nC     INVERSE FOURIER TRANSFORM MODULE (IFT)\r\nC\r\nC     DMAP CALLING SEQ.\r\nC\r\nC     IFT   UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM\r\nC\r\n      INTEGER SYSBUF,      IZ(1),UHVF,UHVT,CASECC,TRL,TOL,FOL,NAME(2),\r\n     1  MCB(7),FILE,MCB1(7)\r\n      COMMON /SYSTEM/SYSBUF,NOUT\r\n      COMMON /PACKX/IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/IT3,II1,JJ1,INCR1\r\n      COMMON /CONDAS/ PHI,TWOPI\r\n      COMMON  /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK/ IFTM\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      DATA UHVF,CASECC,TRL,FOL,UHVT,TOL/101,102,103,104,201,202/\r\n      DATA NAME /4HIFT , 1H  /\r\nC\r\nC     VARIABLE CORE\r\nC\r\nC        CONTENT         LENGTH         POINTER\r\nC        -------         ------         -------\r\nC     FOL                NFREQ          IFREQ\r\nC     TSTEP              NGROUP*3       ITSTP\r\nC     UHVF               NMODES*NFREQ*2 IUHVF\r\nC     CK                 NBIG           ICK\r\nC     SK                 NBIG           ISK\r\nC     UDOT               NMODES*NFREW*2 IUDOT\r\nC     UHVT               NMODES         IUVT\r\nC\r\nC\r\nC\r\nC     PUT FOL INTO CORE\r\nC\r\n      NZ = KORSZ(IZ)\r\n      IBUF1 = NZ-SYSBUF+1\r\n      IBUF2 = IBUF1-SYSBUF\r\n      NZ = NZ-2*SYSBUF\r\n      FILE = FOL\r\n      CALL OPEN(*900,FOL,IZ(IBUF1),0)\r\n      CALL FREAD(FOL ,IZ,-2,0)\r\n      CALL READ(*910,*10,FOL,IZ,NZ,0,NFREQ)\r\n      CALL MESAGE(-8,0,NAME)\r\n   10 CALL CLOSE(FOL ,1)\r\n      IFREQ = 1\r\n      NZ = NZ-NFREQ\r\n      ITSTP=NFREQ+1\r\nC\r\nC     DEFINE BASIC SIZES\r\nC\r\n      MCB(1) = UHVF\r\n      CALL RDTRL(MCB)\r\n      NLOAD = MCB(2)/NFREQ\r\n      NMODES = MCB(3)\r\n      MCB(1) = UHVT\r\n      MCB(2) = 0\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      K = NFREQ + 2*(NMODES*NFREQ*2) + NMODES\r\n      IF(K .GT. NZ) CALL  MESAGE(-8,0,NAME)\r\nC\r\nC     DETERMINE IF EQUAL FREQ - CONVERT TO W'S\r\nC\r\n      DELW = Z(IFREQ+1)-Z(IFREQ)\r\n      EPSI = DELW*1.E-6\r\n      J = NFREQ-1\r\n      IEQUAL = 1\r\n      DO 20 I=1,J\r\n      M = IFREQ+I-1\r\n      IF( ABS(Z(M+1)-Z(M)-DELW) .GE. EPSI) IEQUAL = 0\r\n      Z(M) = Z(M)*TWOPI\r\n   20 CONTINUE\r\n      Z(IFREQ+NFREQ-1) = Z(IFREQ+NFREQ-1)*TWOPI\r\n      DELW = DELW*TWOPI\r\nC\r\nC     FIRST FREQUENCY MUST BE MULTIPLE OF DELW\r\nC\r\n      NBIG = ABS(Z(IFREQ)/DELW)+.1\r\n      IF(ABS(FLOAT(NBIG)*DELW-ABS(Z(IFREQ))) .GT. EPSI) IEQUAL = 0\r\n      LLL = NBIG -1\r\nC\r\nC     FIND TSTEP IN TRL\r\nC\r\n      CALL GOPEN(CASECC,IZ(IBUF1),0)\r\n      CALL FREAD(CASECC,0,-37,0)\r\n      CALL FREAD(CASECC,J,1,0)\r\n      CALL CLOSE(CASECC,1)\r\n      FILE = TRL\r\n      CALL OPEN(*900,TRL,IZ(IBUF1),0)\r\n      CALL FREAD(TRL,MCB1,3,1)\r\n      M = MCB1(3)\r\n      CALL SKPREC(TRL,M)\r\n   25 CONTINUE\r\n      CALL FREAD(TRL,M,1,0)\r\n      IF(M .EQ. J) GO TO 30\r\n      CALL FREAD(TRL,0,0,1)\r\n      GO TO 25\r\nC\r\nC     FOUND TSTEP\r\nC\r\n   30 CALL READ(*910,*40,TRL,IZ(ITSTP),NZ,0,NGROUP)\r\n      CALL MESAGE(-8,0,NAME)\r\n   40 NZ = NZ-NGROUP\r\n      IUHVF = ITSTP+NGROUP\r\n      CALL CLOSE(TRL,1)\r\n      NGROUP = NGROUP/3\r\n      IF(NGROUP .NE. 1) IEQUAL = 0\r\n      IF( IEQUAL .EQ. 0 ) GO TO 50\r\nC\r\nC     FORCE WAT TO BE INTEGER MULTIPLE OF TWOPI/N\r\nC\r\n      FBIG = TWOPI/(DELW*Z(ITSTP+1))\r\n      NBIG = FBIG+.9\r\n      Z(ITSTP+1) = TWOPI/(FLOAT(NBIG)*DELW)\r\n   50 CONTINUE\r\nC\r\nC     BUILD / WRITE TOL\r\nC\r\n      FILE = TOL\r\n      CALL OPEN(*900,TOL,IZ(IBUF1),1)\r\n      CALL FNAME(TOL,MCB1)\r\n      CALL WRITE(TOL,MCB1,2,0)\r\n      DELT = Z(ITSTP+1)\r\n      T = 0.0\r\n      N = 0\r\n      M = ITSTP\r\n      DO 60 I=1,NGROUP\r\n      NSTEP = IZ(M)\r\n      IF(I .EQ. 1) NSTEP = NSTEP +1\r\n      M = M+3\r\n      DO 70 J=1,NSTEP\r\n      CALL WRITE(TOL,T,1,0)\r\n      N = N+1\r\n      IF(J .EQ. NSTEP  .AND. I .NE. NGROUP) DELT = Z(M+1)\r\n      T = T+DELT\r\n   70 CONTINUE\r\n   60 CONTINUE\r\n      CALL WRITE(TOL,0,0,1)\r\n      CALL CLOSE(TOL,1)\r\n      MCB1(1) = TOL\r\n      MCB1(2) = NGROUP\r\n      MCB1(3) = N\r\n      MCB1(4) = 0\r\n      MCB1(5) = 0\r\n      MCB1(6) = 0\r\n      MCB1(7) = 0\r\n      CALL WRTTRL(MCB1)\r\nC\r\nC     BUILD TABLE OF CK, SK\r\nC\r\n      ICK = IUHVF + 2*NMODES*NFREQ\r\n      ISK = ICK\r\n      IUDOT = ISK\r\n      IF( IEQUAL .EQ. 0 ) GO TO 100\r\n      ISK = ICK + NBIG\r\n      IUDOT = ISK + NBIG\r\n      M = ICK\r\n      M1 = ISK\r\n      M2 = ISK\r\n      J = IUDOT\r\n      RP = COS(TWOPI/FLOAT(NBIG))\r\n      CP = SIN(TWOPI/FLOAT(NBIG))\r\n      I = M\r\n      N = M1+1\r\n      L = M2\r\n      KK = J\r\n      Z(I) = 1.0\r\n      Z(L) = 0.0\r\n   65 IF(M1-I-2) 61,62,63\r\n   62 CMNR = -1.\r\n      CMNC = 0.\r\n      GO TO 64\r\n   63 CMNR = RP*Z(I) -CP*Z(L)\r\n      CMNC = CP*Z(I) +RP*Z(L)\r\n   64 I = I+1\r\n      L = L+1\r\n      M1 = M1-1\r\n      KK = KK-1\r\n      Z(I) = CMNR\r\n      Z(L) = CMNC\r\n      Z(M1) = CMNR\r\n      Z(KK) = -CMNC\r\n      GO TO 65\r\n   61 CONTINUE\r\nC     GET READY FOR OUTPUTS\r\nC\r\n  100 CALL GOPEN(UHVF,IZ(IBUF1),0)\r\n      CALL GOPEN(UHVT,IZ(IBUF2),1)\r\n      IT1 = 1\r\n      IT2 = 1\r\n      II = 1\r\n      JJ=NMODES\r\n      INCR = 1\r\n      IT3 = 3\r\n      II1 = 1\r\n      JJ1 = NMODES\r\n      INCR1 = 1\r\n      IUVT = IUDOT\r\n      IF(IFTM .EQ. 2) IUVT = IUVT+2*NFREQ*NMODES\r\n      ASSIGN 235 TO IHOP\r\nC\r\nC     BEGIN LOOP ON LOADS\r\nC\r\n      DO 200 I=1,NLOAD\r\nC\r\nC     PUT UHVF INTO CORE\r\nC\r\n      DO 110 J=1,NFREQ\r\n      M = IUHVF+(J-1)*NMODES*2\r\n      CALL UNPACK(*120,UHVF,Z(M))\r\n      GO TO 110\r\n  120 CALL ZEROC(Z(M),2*NMODES)\r\n  110 CONTINUE\r\n      IF(IFTM .NE. 2) GO TO 150\r\n      ASSIGN 236 TO IHOP\r\nC\r\nC     COMPUTE SPLINE FIT FOR U DOT\r\nC\r\nC\r\nC     COMPUTE A'S\r\nC\r\n      IAP = IUVT + NMODES\r\n      M =NFREQ + IAP - 1\r\n      Z(M) = 0.0\r\n      L = NFREQ-2\r\n      IF(L .LE. 0) GO TO 126\r\n      DO 125 J=1,L\r\n      M = IAP + NFREQ -J-1\r\n      N = IFREQ + NFREQ-J-1\r\n      Z(M) = (Z(N) - Z(N-1))/(2.*(Z(N+1)-Z(N-1))-(Z(N+1)-Z(N))*Z(M+1))\r\n  125 CONTINUE\r\n  126 CONTINUE\r\nC\r\nC     COMPUTE U DOT DOT\r\nC\r\n      DO 122 M1=1,NMODES\r\n      M = IUDOT +(NFREQ-1)*NMODES*2 +(M1-1)*2\r\n      Z(M) = 0.0\r\n      Z(M+1) = 0.0\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      M2= IUHVF +(NFREQ-1)*NMODES*2 +(M1-1)*2\r\n      IF(L .LE. 0) GO TO 122\r\n      DO 130 J=1,L\r\n      N2 = M\r\n      M = M-NMODES*2\r\n      N = IFREQ + NFREQ -J-1\r\n      M2 = M2-NMODES*2\r\n      KK = IAP + NFREQ-J\r\n      LL = M2+2*NMODES\r\n      RP = Z(N+1) - Z(N)\r\n      CP = Z(N) -Z(N-1)\r\n      N1 = M2-2*NMODES\r\n      Z(M) = (6. *((Z(LL)-Z(M2))/RP-(Z(M2)-Z(N1))/CP)-RP*Z(KK)*Z(N2))\r\n     U   /CP\r\n      Z(M+1) = (6.*((Z(LL+1)-Z(M2+1))/RP-(Z(M2+1)-Z(N1+1))/CP)-RP*Z(KK)*\r\n     1  Z(N2+1))/CP\r\n  130 CONTINUE\r\n  122 CONTINUE\r\nC\r\nC     BEGIN FORWARD PASS\r\nC\r\n      DO 135 M1=1,NMODES\r\n      M = IUDOT +(M1-1)*2\r\n      M2 = IUHVF +(M1-1)*2\r\n      N1 = M2+2*NMODES\r\n      LL = M+2*NMODES\r\n      RP = Z(IFREQ+1) -Z(IFREQ)\r\n      Z(M) =(6.*(Z(N1)-Z(M2))/RP-RP*Z(IAP+1)*Z(LL))/(6.*Z(IFREQ)+(RP)*\r\n     1  (2.-Z(IAP+1)) )\r\n      Z(M+1) = 0.0\r\n      DO 138 J=2,NFREQ\r\n      KK = IAP+J-1\r\n      M2 = M\r\n      M = M+2*NMODES\r\n      Z(M) = Z(KK)*(Z(LL) - Z(M2))\r\n      Z(M+1) = Z(KK)*(Z(LL+1)-Z(M2+1))\r\n      LL = LL + 2*NMODES\r\n  138 CONTINUE\r\n  135 CONTINUE\r\n  150 CONTINUE\r\n      T = 0.0\r\n      N = 0\r\n      M = ITSTP\r\n      DELT = Z(ITSTP+1)\r\nC\r\nC     BEGIN LOOP ON TIMES\r\nC\r\n      DO 160 L=1,NGROUP\r\n      NSTEP = IZ(M)\r\n      IF(L .EQ. 1) NSTEP = NSTEP+1\r\n      M = M+3\r\n      DO 170 J=1,NSTEP\r\n      TT = T\r\n      CALL ZEROC(Z(IUVT),NMODES)\r\nC\r\nC     BEGIN LOOP ON FREQUENCIES\r\nC\r\n      LX = LLL\r\n      DO 180 LL=1,NFREQ\r\n      LX = LX+1\r\n      WN = Z(IFREQ+LL-1)\r\n      IF(LL .EQ. 1) GO TO 191\r\n      WNM1 = Z(IFREQ+LL-2)\r\n  191 IF(LL .EQ. NFREQ) GO TO 192\r\n      WNP1 = Z(IFREQ+LL)\r\n  192 CONTINUE\r\n      IF(IEQUAL .EQ. 0) GO TO 190\r\n      KK = MOD(LX*N,NBIG)\r\n      CK = Z(ICK+KK)\r\n      SK = Z(ISK+KK)\r\n      GO TO 195\r\n  190 CK = COS(WN*TT)\r\n      SK = SIN(WN*TT)\r\n  195 CONTINUE\r\nC\r\nC     COMPUTE CMN, DMN\r\nC\r\n      IF(IFTM .NE. 0) GO TO 220\r\nC\r\nC     IFTM  =0\r\nC\r\n      CMNC = 0.0\r\n      IF(LL .EQ. 1) GO TO 196\r\n      IF(LL .EQ. NFREQ) GO TO 197\r\n      CMNR = (WNP1-WNM1)*.5\r\n      GO TO 230\r\n  196 CONTINUE\r\n      CMNR = WNP1-WN\r\n      IF(WN .EQ. 0.0) CMNR = CMNR*.5\r\n      GO TO 230\r\n  197 CMNR = WN -WNM1\r\n      GO TO 230\r\nC\r\nC     IFTM = 1\r\nC\r\n  220 CONTINUE\r\n      IF(LL .EQ. 1) GO TO 221\r\n      IF(LL.GT. 2 .AND. IEQUAL .NE. 0 .AND. LL .NE. NFREQ) GO TO 223\r\n      R1 = WN-WNM1\r\n      CALL IFTE2(-TT*R1,RP,CP)\r\n      CMNR = R1*.5*RP\r\n      CMNC = R1*.5*CP\r\n      GO TO 222\r\n  221 CMNR = 0.\r\n      CMNC = 0.\r\n  222 CONTINUE\r\n      IF(LL .EQ. NFREQ) GO TO 223\r\n      R2 = WNP1-WN\r\n      CALL IFTE2(TT*R2,RP,CP)\r\n      CMNR = CMNR+R2*.5*RP\r\n      CMNC = CMNC+R2*.5*CP\r\n  223 IF(IFTM .EQ. 2) GO TO 229\r\n      DMNR = 0.0\r\n      DMNC = 0.0\r\n      GO TO 230\r\n  229 CONTINUE\r\nC\r\nC     IFTM = 2\r\nC\r\n      IM2 = IUDOT -2 +(LL-1)*NMODES*2\r\n      IF(LL .EQ. 1) GO TO 224\r\n      IF(LL .GT. 2 .AND.  IEQUAL .NE. 0 .AND. LL .NE. NFREQ) GO TO 230\r\n      CALL IFTG(-TT*R1,RP,CP)\r\n      R1 = -R1*R1*R1/24.\r\n      DMNR = R1*RP\r\n      DMNC = R1*CP\r\n      GO TO 228\r\n  224 CONTINUE\r\n      DMNR = 0.0\r\n      DMNC = 0.0\r\n  228 CONTINUE\r\n      IF(LL .EQ. NFREQ) GO TO 230\r\n      CALL IFTG(TT*R2,RP,CP)\r\n      R2 = -R2*R2*R2/24.\r\n      DMNR = DMNR+R2*RP\r\n      DMNC = DMNC+R2*CP\r\n  230 CONTINUE\r\n      IM1 = IUHVF-2 +(LL-1)*NMODES*2\r\nC\r\nC     BEGIN LOOP ON MODES\r\nC\r\n      DO 240 KK=1,NMODES\r\n      IM = IM1+2*KK\r\n      RP = CMNR*Z(IM)-CMNC*Z(IM+1)\r\n      CP = CMNC*Z(IM)+CMNR* Z(IM+1)\r\n      GO TO IHOP,(235,236)\r\n  236 CONTINUE\r\n      IM = IM2+2*KK\r\n      RP = RP+DMNR*Z(IM)-DMNC*Z(IM+1)\r\n      CP = CP+DMNC*Z(IM)+DMNR*Z(IM+1)\r\n  235 CONTINUE\r\n      Z(IUVT+KK-1) = Z(IUVT+KK-1) + RP*CK-CP*SK\r\nC\r\nC     END LOOP ON MODES\r\nC\r\n  240 CONTINUE\r\nC\r\nC     END LOOP ON FREQUENCIES\r\nC\r\n  180 CONTINUE\r\n      DO 181 KK=1,NMODES\r\n      Z(IUVT+KK-1) = Z(IUVT+KK-1)/PHI\r\n  181 CONTINUE\r\n      CALL PACK(Z(IUVT),UHVT,MCB)\r\n      DO 182 KK =1,2\r\n      CALL BLDPK(1,1,UHVT,0,0)\r\n      CALL BLDPKN(UHVT,0,MCB)\r\n  182 CONTINUE\r\n      IF(J .EQ. NSTEP) DELT = Z(M+1)\r\n      T = T + DELT\r\n      N = N+1\r\n  170 CONTINUE\r\nC\r\nC     END LOOP ON TIME\r\nC\r\n  160 CONTINUE\r\nC\r\nC     END LOOP ON LOADS\r\nC\r\n  200 CONTINUE\r\n      CALL CLOSE(UHVF,1)\r\n      CALL CLOSE(UHVT,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 N1=-1\r\n  901 CALL MESAGE(N1,FILE,NAME)\r\n      CALL PEXIT\r\n  910 N1=-2\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/ifte2.f",
    "content": "      SUBROUTINE IFTE2(THA,RP,CP)\r\n      DATA THAO,EPSI /.1,1.E-9 /\r\n      IF(ABS(THA) .LT. THAO ) GO TO 100\r\n      D = .5* THA*THA\r\n      RP = (1. - COS(THA))/D\r\n      CP = (THA - SIN(THA))/D\r\n      RETURN\r\nC\r\nC     EVALUATE SERIES\r\nC\r\n  100 CONTINUE\r\n      RN = 1.0\r\n      D = 1.0\r\n      SIGN = -1.\r\n      RPS = 1.0\r\n      TSQ = THA*THA\r\n      T1=3.\r\n      T2=4.\r\n      IT = 1\r\n  101 CONTINUE\r\n      DO 110 I=1,50\r\n      RN = RN*TSQ\r\n      D = D*T1*T2\r\n      TRM = RN/D*SIGN\r\n      RPS = RPS+TRM\r\n      IF(ABS(TRM) .LT. EPSI) GO TO 120\r\n      SIGN = -SIGN\r\n      T1 = T1+2.\r\n      T2 = T2+2.\r\n  110 CONTINUE\r\n  120 CONTINUE\r\n      IF(IT .EQ. 2) GO TO 125\r\n      RP = RPS\r\n      RN = THA\r\n      D = 3.0\r\n      SIGN = -1.\r\n      RPS = THA/3.\r\n      T1 = 4.\r\n      T2 = 5.\r\n      IT = 2\r\n      GO TO 101\r\n  125 CONTINUE\r\n      CP = RPS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ifte4.f",
    "content": "      SUBROUTINE IFTE4(THA,RP,CP)\r\n      DATA THAO,EPSI /.1,1.E-9 /\r\n      IF(ABS(THA) .LT. THAO) GO TO 100\r\n      D = THA**4/24.\r\n      RP = ((.5*(THA*THA))-1.+ COS(THA))/D\r\n      CP = ((THA**3/6.)-THA+SIN(THA))/D\r\n      RETURN\r\nC\r\nC  EVALUATE SERIES\r\nC\r\n  100 CONTINUE\r\n      RN = 1.0\r\n      D = 1.0\r\n      SIGN = -1.\r\n      RPS = 1.\r\n      TSQ = THA*THA\r\n      T1 = 5.\r\n      T2 = 6.\r\n      IT = 1\r\n  101 CONTINUE\r\n      DO 110 I=1,50\r\n      RN = RN*TSQ\r\n      D = D*T1*T2\r\n      TRM = RN/D*SIGN\r\n      RPS = RPS + TRM\r\n      IF(ABS(TRM) .LT. EPSI) GO TO 120\r\n      SIGN = -SIGN\r\n      T1 = T1+2.\r\n      T2 = T2+2.\r\n  110 CONTINUE\r\n  120 CONTINUE\r\n      IF(IT .EQ. 2) GO TO 125\r\n      RP = RPS\r\n      RN = THA\r\n      D = 5.0\r\n      SIGN = -1.\r\n      RPS = THA/5.\r\n      T1 = 6.\r\n      T2 = 7.\r\n      IT = 2\r\n      GO TO 101\r\n  125 CONTINUE\r\n      CP = RPS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/iftg.f",
    "content": "      SUBROUTINE IFTG(THA,RP,CP)\r\n      CALL IFTE2(THA,R,C)\r\n      CALL IFTE4(THA,R1,C1)\r\n      RP = 2.*R - R1\r\n      CP = 2.*C - C1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ihex.f",
    "content": "      SUBROUTINE IHEX(TEMPS,PG,TYPE)\r\nC\r\nC     ELEMENT THERMAL LOAD GENERATOR FOR ISOPARAMETRIC SOLID ELEMENTS\r\nC\r\nC     TYPE = 1     CIHEX1\r\nC     TYPE = 2     CIHEX2\r\nC     TYPE = 3     CIHEX3\r\nC\r\nC***********************************************************************\r\nC           THE EST ENTRIES ARE\r\nC\r\nC     NAME  ---------INDEX---------   DESCRIPTION\r\nC            IHEX1   IHEX2   IHEX3\r\nC\r\nC     EID        1       1       1    ELEMENT ID NO.\r\nC     SIL      2-9    2-21    2-33    SCALAR INDEX LIST\r\nC     MID       10      22      34    MATERIAL ID NO.\r\nC     CID       11      23      35    MATERIAL COORD. SYSTEM ID NO.\r\nC     NIP       12      24      36    NO. INTEGRATION POINTS PER EDGE\r\nC     MAXAR     13      25      37    MAX ASPECT RATIO\r\nC     ALFA      14      26      38    MAX ANGLE FOR NORMALS\r\nC     BETA      15      27      39    MAX ANGLE FOR MIDSIDE POINTS\r\nC     BGPDT  16-47  28-107  40-167    BASIC GRID POINT DATA\r\nC     GPT    48-55 108-127 168-199    GRID POINT TEMPERATURES\r\nC***********************************************************************\r\nC\r\n      LOGICAL TDEP     ,MTDEP      ,ANIS       ,RECT\r\nC\r\n      INTEGER TYPE     ,OTPT       ,EID        ,IEST(1)    ,BGPDT      ,\r\n     2        BCORD    ,GPT        ,JZ(32)     ,SIL        ,CID        ,\r\n     3        UFM(6)\r\n      INTEGER IB(46)\r\nC\r\n      DOUBLE PRECISION  SHP        ,DSHP       ,JACOB      ,DETJ\r\n     1,     S          ,SFACT      ,A(6)      ,E1         ,E2\r\n     2,     E3         ,PARG(96)   ,CN(3,32)   ,TEMP       ,ELTEMP\r\n     3,     ALPVEC     ,GMAT(36)   ,GAUSS(8)   ,DALPHA(6)\r\nC\r\n      REAL  TEMPS(1)   ,PG(1)      ,PSGL(96)\r\nC\r\n      COMMON/TRIMEX/ EST(200)\r\n      COMMON/MATIN/ MID      ,INFLAG     ,ELTEMP\r\n      COMMON/MATOUT/   SE          ,G          ,SNU        ,RHO        ,\r\n     2  TALPHA,TREF,CDAMP,SPACE(18),\r\n     3                 MTDEP\r\n      COMMON/MATISO/ BUFM6(46)\r\n      COMMON/SYSTEM/ SYSBUF  ,OTPT       ,SYS1(7)          ,MTEMP      ,\r\n     2               SYS2(45),HEAT\r\nC\r\n      COMMON/SSGWRK/    SHP(32)    ,DSHP(3,32) ,JACOB(3,3) ,S(4)\r\n     1,     H(4)\r\nC\r\n      EQUIVALENCE (EID,EST(1),IEST(1)),(JZ(1),SHP(1))\r\n      EQUIVALENCE (PSGL(1),PARG(1))\r\n      EQUIVALENCE (IB(1),BUFM6(1))\r\nC\r\n      DATA  GAUSS/      0.577350269189626D0    ,0.555555555555556D0\r\n     1,                 0.774596669241483D0    ,0.888888888888889D0\r\n     2,                 0.347854845137454D0    ,0.861136311594053D0\r\n     3,                 0.652145154862546D0    ,0.339981043584856D0/\r\n      DATA UFM /4H0***,4H USE,4HR FA,4HTAL ,4HMESS,4HAGE /\r\nC\r\nC*****\r\nC     COMPUTE EST POINTERS\r\nC*****\r\n      NGP = 12*TYPE - 4\r\n      MID = 10 + 12*(TYPE - 1)\r\n      CID=IEST(MID+1)\r\n      NIP=IEST(MID+2)\r\n      IF (NIP .LT. 2 .OR. NIP .GT. 4) NIP=TYPE/2+2\r\n      BGPDT = MID + 6\r\n      GPT=BGPDT+4*NGP\r\n      DO 110 I=1,NGP\r\n  110 JZ(I) = IEST(BGPDT + 4*I - 4)\r\n      BCORD=GPT-3\r\n      DO 120  I=2,NGP\r\n      DO 120  J=1,3\r\n      K = BGPDT + 4*(NGP - I) + 4 - J\r\n      BCORD = BCORD - 1\r\n      EST(BCORD) = EST(K)\r\n  120 CONTINUE\r\n      DO 130  I=2,NGP\r\n  130 IEST(BGPDT+I-1) = JZ(I)\r\n      MID=IEST(NGP+2)\r\nC\r\nC     ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE\r\nC\r\n      I=NIP-1\r\n      GO TO (131,132,133),I\r\n  131 H(1)=1.0\r\n      S(1)=GAUSS(1)\r\n      H(2)=H(1)\r\n      S(2)=-S(1)\r\n      GO TO 134\r\n  132 H(1)=GAUSS(2)\r\n      S(1)=GAUSS(3)\r\n      H(2)=GAUSS(4)\r\n      S(2)=0.0\r\n      H(3)=H(1)\r\n      S(3)=-S(1)\r\n      GO TO 134\r\n  133 H(1)=GAUSS(5)\r\n      S(1)=GAUSS(6)\r\n      H(2)=GAUSS(7)\r\n      S(2)=GAUSS(8)\r\n      H(3)=H(2)\r\n      S(3)=-S(2)\r\n      H(4)=H(1)\r\n      S(4)=-S(1)\r\n  134 CONTINUE\r\nC\r\nC=======================================================================\r\nC     THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC\r\nC     MATERIAL IS ADDED\r\nC\r\nC     TEST FOR ANISOTROPIC MATERIAL\r\nC\r\n      ANIS = .FALSE.\r\n      INFLAG=10\r\nC\r\nC     TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC\r\nC     MATERIAL IS DEFINED\r\nC\r\n      RECT = .TRUE.\r\nC=======================================================================\r\nC\r\nC     FETCH MATERIAL AND SET TEMPERATURE DEPENDENCE FLAG\r\nC\r\n      TDEP=.TRUE.\r\n      DO 140 I=2,NGP\r\n      IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 150\r\n  140 CONTINUE\r\n      TDEP=.FALSE.\r\n  150 ELTEMP=EST(GPT)\r\n      CALL MAT(EID)\r\n      IF (.NOT. MTDEP) TDEP=.FALSE.\r\n      IF (IB(46).EQ.6) ANIS=.TRUE.\r\n      TREF=BUFM6(44)\r\nC*****\r\nC     IF ISOTROPIC TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS\r\nC*****\r\n      IF (TDEP) GO TO 800\r\n      IF (ANIS) GO TO 700\r\n      IF (IB(46).NE.0) GO TO 640\r\n      CALL PAGE2(2)\r\n      WRITE(OTPT,7300) UFM,MID,EID\r\n      NOGO = 1\r\n      RETURN\r\n  640 E1=BUFM6(1)\r\n      E2=BUFM6(2)\r\n      E3=BUFM6(22)\r\n      TALPHA=BUFM6(38)\r\n      GO TO 800\r\nC\r\nC=======================================================================\r\nC     CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO\r\nC     BASIC COORDINATE SYSTEM MUST BE ADDED HERE\r\nC=======================================================================\r\nC\r\n  700 DO 710 IJK=1,36\r\n  710 GMAT(IJK)=BUFM6(IJK)\r\n  800 NTLP = 3*NGP\r\n      DO 900 I=1,NTLP\r\n  900 PARG(I) = 0.0\r\nC*****\r\nC     BEGIN INTEGRATION LOOP NOW\r\nC*****\r\n      DO 2000 I=1,NIP\r\n      DO 2000 J=1,NIP\r\n      DO 2000 K=1,NIP\r\nC*****\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC*****\r\n      CALL IHEXSD(TYPE,SHP,DSHP,JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     2            EST(BCORD))\r\n      IF (DETJ .NE. 0.0D0) GO TO 1010\r\nC\r\nC     JACOBIAN MATRIX WAS SINGULAR\r\nC\r\n      CALL MESAGE(-61,0,0)\r\nC*****\r\nC     COMPUTE PARTIAL DERIVATIVE OF SHAPE FUNCTIONS WITH RESPECT\r\nC     TO BASIC COORDINATES\r\nC*****\r\n 1010 CALL GMMATD(DSHP,NGP,3,0,JACOB,3,3,0,CN)\r\nC*****\r\nC     COMPUTE LOADING TEMPERATURE AT THIS INTEGRATION POINT\r\nC*****\r\n      TEMP=0.0D0\r\n      DO 1012 L=1,NGP\r\n 1012 TEMP=TEMP+SHP(L)*DBLE(TEMPS(L))\r\n      TEMP=TEMP-DBLE(TREF)\r\nC*****\r\nC     IF MATERIAL IS TEMPERATURE DEPENDENT, COMPUTE TEMPERATURE AT THIS\r\nC     INTEGRATION POINT AND FETCH MATERIAL PROPERTIES\r\nC*****\r\n      IF(.NOT.TDEP)  GO TO 1030\r\n      ELTEMP=0.0D0\r\n      DO 1020  L=1,NGP\r\n 1020 ELTEMP=ELTEMP+SHP(L)*DBLE(EST(GPT+L-1))\r\n      CALL MAT(EID)\r\n      IF (ANIS) GO TO 1040\r\n      IF (IB(46).NE.0) GO TO 1025\r\n      CALL PAGE2(2)\r\n      WRITE(OTPT,7300)  UFM,MID,EID\r\n      NOGO = 1\r\n      RETURN\r\n 1025 E1=BUFM6(1)\r\n      E2=BUFM6(2)\r\n      E3=BUFM6(22)\r\n      TALPHA=BUFM6(38)\r\n      GO TO 1100\r\nC*****\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR-\r\nC     DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC*****\r\n 1030 IF(.NOT. ANIS)  GO TO 1100\r\n      IF (RECT) GO TO 1500\r\n 1040 CONTINUE\r\n      DO 1041 IJK=1,36\r\n 1041 GMAT(IJK)=BUFM6(IJK)\r\nC\r\nC=======================================================================\r\nC     INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR\r\nC     ANISOTROPIC MATERIAL MATRIX\r\n      GO TO 1500\r\nC=======================================================================\r\nC*****\r\nC     COMPUTE CONTRIBUTION TO THERMAL LOAD VECTOR FOR ISOTROPIC MATERIAL\r\nC*****\r\n 1100 ALPVEC=DBLE(TALPHA)*(E1+2.0*E2)\r\n      SFACT=H(I)*H(J)*H(K)*DETJ*ALPVEC*TEMP\r\n      L = 0\r\n      DO 1400  II=1,NGP\r\n      DO 1400 JJ=1,3\r\n      L = L + 1\r\n      PARG(L) = SFACT*CN(JJ,II)  + PARG(L)\r\n 1400 CONTINUE\r\n      GO TO 2000\r\nC=======================================================================\r\n 1500 CONTINUE\r\nC     ADD LOAD COMPUTATIONS FOR ANISOTROPIC MATERIAL HERE\r\nC=======================================================================\r\nC\r\n      SFACT=H(I)*H(J)*H(K)*DETJ*TEMP\r\n      DO 1560 IJK=1,6\r\n 1560 DALPHA(IJK)=BUFM6(IJK+37)\r\nC\r\n      CALL GMMATD(GMAT,6,6,0,DALPHA,6,1,0,A(1))\r\n      L=0\r\n      DO 1600 II=1,NGP\r\n      L=L+1\r\n      PARG(L)=PARG(L)+SFACT*(CN(1,II)*A(1)+CN(2,II)*A(4)+CN(3,II)*A(6))\r\n      L=L+1\r\n      PARG(L)=PARG(L)+SFACT*(CN(2,II)*A(2)+CN(1,II)*A(4)+CN(3,II)*A(5))\r\n      L=L+1\r\n      PARG(L)=PARG(L)+SFACT*(CN(3,II)*A(3)+CN(2,II)*A(5)+CN(1,II)*A(6))\r\n 1600 CONTINUE\r\n 2000 CONTINUE\r\n      DO 2100 I=1,NTLP\r\n 2100 PSGL(I)=PARG(I)\r\nC*****\r\nC     INSERT THERMAL LOAD INTO GLOBAL LOAD VECTOR  (PG ARRAY)\r\nC*****\r\nC\r\n      DO 3000 I=1,NGP\r\n      SIL = IEST(I+1)\r\n      IBGP = BGPDT + I - 1\r\n      IF (IEST(IBGP) .EQ. 0) GO TO 2500\r\n      CALL BASGLB(PSGL(3*I-2),PSGL(3*I-2),EST(BCORD+3*I-3),IEST(IBGP))\r\n 2500 DO 2600 J=1,3\r\n      PG(SIL+J-1)=PG(SIL+J-1)+PSGL(3*I-3+J)\r\n 2600 CONTINUE\r\n 3000 CONTINUE\r\nC\r\nC\r\n 7300 FORMAT(6A4,69H4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED UN\r\n     2DER MATERIAL ID =,I10,17H FOR ELEMENT ID =,I10)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ihexd.f",
    "content": "      SUBROUTINE IHEXD (TYPE)\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO\r\nC     PRODUCE STIFFNESS AND MASS MATRICES.  IF THE HEAT TRANSFER OPTION\r\nC     IS ON, CONDUCTIVITY AND CAPACITY MATRICES ARE PRODUCED.  IF THE\r\nC     DISPLACEMENT VECTOR POINTER IS NON-ZERO, THE DIFFERENTIAL\r\nC     STIFFNESS MATRIX ONLY IS PRODUCED.\r\nC\r\nC           TYPE = 1    IHEX1\r\nC           TYPE = 2    IHEX2\r\nC           TYPE = 3    IHEX3\r\nC\r\nC           THE EST ENTRIES ARE\r\nC\r\nC     NAME  ----------INDEX----------   DESCRIPTION\r\nC            IHEX1    IHEX2    IHEX3\r\nC\r\nC     EID        1        1        1    ELEMENT ID NO.\r\nC     SIL      2-9     2-21     2-33    SCALAR INDEX LIST\r\nC     MID       10       22       34    MATERIAL ID NO.\r\nC     CID       11       23       35    MATERIAL COORD. SYSTEM ID NO.\r\nC     NIP       12       24       36    NO. INTEGRATION POINTS PER EDGE\r\nC     MAXAR     13       25       37    MAX ASPECT RATIO\r\nC     ALFA      14       26       38    MAX ANGLE FOR NORMALS\r\nC     BETA      15       27       39    MAX ANGLE FOR MIDSIDE POINTS\r\nC     BGPDT  16-47   28-107   40-167    BASIC GRID POINT DATA\r\nC     GPT    48-55  108-127  168-199    GRID POINT TEMPERATURES\r\nC\r\nC     - INSTALLATION NOTE --\r\nC     GPTLD IS SUPPOSED TO CONTAIN GRID POINT TEMPERATURE LOADS FOR\r\nC     COMPUTING DIFFERENTIAL STIFFNESS.  FOR INSTALLATION, GPTLD MUST\r\nC     BE LOADED WITH DATA BY EMG.  IF GPTLD(1)=-1, NO TEMP LOAD IS\r\nC     ASSUMED.\r\nC\r\n      LOGICAL          ANIS       ,RECT       ,TDEP       ,DIAG       ,\r\n     1                 MTDEP      ,HEAT1      ,NOGO       ,NOCSTM\r\n      INTEGER          HEAT       ,EID        ,SIL(1)     ,SCR4       ,\r\n     1                 TYPE       ,JZ(1)      ,CID        ,IEST(1)    ,\r\n     2                 BCORD      ,BGPDT      ,GPT        ,NC(8)      ,\r\n     3                 EDGE       ,FACE       ,IB(46)     ,ELNO(3)    ,\r\n     4                 EXCD(3)    ,TWINS(9)   ,RVRS(5)    ,IWORK(1)   ,\r\n     5                 BACK       ,OTPT       ,UGV        ,CDAMP      ,\r\n     6                 DICT(40)\r\n      REAL             NU         ,KHEAT      ,MAXAR      ,DMAXAR(3)  ,\r\n     1                 DALFA(3)   ,DBETA(2)   ,EVEC(3,12) ,WORK(66)   ,\r\n     2                 VN(3,2)    ,GPTLD(32)  ,BCD2(3)\r\n      DOUBLE PRECISION Z(1)       ,JACOB(3,3) ,DETJ       ,S(4)       ,\r\n     1                 H(4)       ,GAUSS(8)   ,SFACT      ,PART(3,3)  ,\r\n     2                 E1         ,E2         ,E3         ,TF(3,3)    ,\r\n     3                 TK(3,3)    ,PRT1       ,SIG(6)     ,SX         ,\r\n     4                 SY         ,SZ         ,SXY        ,SYZ        ,\r\n     5                 SZX        ,STR(18)    ,C(3,3)     ,TEMP\r\n      DOUBLE PRECISION GMAT(36)   ,DALPHA(6)  ,STORE(45)  ,TVOL\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /MATIN/   MID        ,INFLAG     ,TEMP\r\n      COMMON /MATOUT/  E          ,G          ,NU         ,RHO        ,\r\n     1                 TALPHA     ,TREF       ,CDAMP      ,SPACE(18)  ,\r\n     3                 MTDEP\r\n      COMMON /MATISO/  BUFM6(46)\r\nC     OMMON  /MATISO/  G11,G12,G13,...,G46,G56,G66,RHO,AXX,AYY,AZZ,AXY,\r\nC                      AYZ,AZX,TREF,GE,IER\r\n      COMMON /BLANK /  SKIP16(16) ,VOLUME     ,SURFAC\r\n      COMMON /HMTOUT/  KHEAT(6)   ,CP\r\nC     COMMON /EMG***/  ...,UGV,...\r\nC\r\nC     - INSTALLATION NOTE --\r\nC     UGV POINTS TO BEGINNING OF SINGLE PRECISION GLOBAL DISPLACEMENT\r\nC     VECTOR IN OPEN CORE ARRAY RZ.\r\nC\r\n      COMMON /EMGPRM/  IEXT       ,IZS        ,NZS         ,DUM(12)   ,\r\n     1                 KGG1       ,MGG1       ,BGG1        ,IPREC     ,\r\n     2                 NOGO       ,HEAT1\r\nC\r\nC     SZ IS OPEN CORE.  USE ONLY RZ(IZS) TO RZ(NZS).\r\nC\r\n      COMMON /ZZZZZZ/  RZ(1)\r\n      COMMON /EMGEST/  EST(200)\r\n      COMMON /SYSTEM/  SYSBUF     ,OTPT       ,SYS1(7)    ,MTEMP\r\n      COMMON /EMGDIC/  SPAC(2)    ,NGRIDS     ,SPAC1      ,IESTID\r\n      EQUIVALENCE      (Z(1),JZ(1),RZ(1))     ,(EID,EST(1),IEST(1))   ,\r\n     1                 (SIL(1),EST(2))        ,(WORK(1),IWORK(1))     ,\r\n     2                 (SIG(1),SX)            ,(SIG(2),SY)            ,\r\n     3                 (SIG(3),SZ)            ,(SIG(4),SXY)           ,\r\n     4                 (SIG(5),SYZ)           ,(SIG(6),SZX)           ,\r\n     5                 (DSTLD,IDSTLD)\r\n      EQUIVALENCE      (WORK(1),EVEC(1,1))    ,(WORK(37),VN(1,1))     ,\r\n     1                 (WORK(43),NC(1))\r\n      EQUIVALENCE      (WORK(1),JACOB(1,1))   ,(WORK(19),H(1))        ,\r\n     1                 (WORK(27),S(1))        ,(WORK(35),PART(1,1))   ,\r\n     2                 (WORK(53),SIG(1))      ,(WORK(1),C(1,1))\r\n      EQUIVALENCE      (WORK(1),TF(1,1))      ,(WORK(35),TK(1,1))\r\n      EQUIVALENCE      (IB(1),BUFM6(1))\r\n      DATA    SCR4  /  304 /\r\n      DATA    BCD1  ,  BCD2/ 4HCIHE, 4HX1  , 4HX2  , 4HX3   /\r\n      DATA    DMAXAR,  DALFA,DBETA / 5.0      ,10.0       ,15.0       ,\r\n     1                               45.0      ,45.0       ,45.0       ,\r\n     2                                          45.0       ,45.0       /\r\n      DATA    DTOR  ,  GAUSS /0.017453292519943E0,\r\n     1                        0.577350269189626D0,\r\n     2                        0.555555555555556D0,\r\n     3                        0.774596669241483D0,\r\n     4                        0.888888888888889D0,\r\n     5                        0.347854845137454D0,\r\n     6                        0.861136311594053D0,\r\n     7                        0.652145154862546D0,\r\n     8                        0.339981043584856D0/\r\n      DATA    IHEX,ELNO       /4HIHEX,4H ELE,4HMENT,4H NO./\r\n      DATA    BAR,BALFA,BBETA /4H  AR,4HALFA,4HBETA/\r\n      DATA    EXCD            /4H EXC,4HEEDE,4HD.  /\r\n      DATA    RVRS            /4HREVE,4HRSED,4H NUM,4HBERI,4HNG. /\r\n      DATA    TWINS           /4HCOOR,4HDINA,4HTES ,4HOF T,4HWO P,\r\n     1                         4HOINT,4HS AR,4HE SA,4HME. /\r\n      DATA    NERR1,NERR2     /3301, 3302 /\r\nC\r\nC     FOR DOUBLE PRECISION, OPEN CORE POINTERS MUST BE MODIFIED\r\nC\r\n      IZ = IZS/2 + 1\r\n      NZ = NZS/2 + 1\r\nC\r\nC     THIS ROUTINE OPERATES IN DOUBLE PRECISION.\r\nC     EMGOUT WILL PRODUCE THE REQUIRED MATRIX IN THE REQUESTED PRECISION\r\nC\r\nC     ALLOCATE LARGE ARRAYS IN OPEN CORE\r\nC\r\n      NGP  = 12*TYPE - 4\r\n      HEAT = 0\r\n      KGG  = 0\r\n      MGG  = 0\r\n      IF (HEAT1) HEAT = 1\r\n      IF (KGG1 .NE. 0) KGG = 1\r\n      IF (MGG1 .NE. 0) MGG = 1\r\n      NGRIDS = NGP\r\n      UGV  = 0\r\n      NGG  = 3*NGP\r\n      DICT(1) = IESTID\r\n      DICT(2) = 1\r\n      IF (.NOT.HEAT1) GO TO 5\r\n      DICT(3) = NGP\r\n      DICT(4) = 1\r\n      GO TO 30\r\n    5 DICT(3) = NGG\r\n      DICT(4) = 7\r\n      IF (KGG .LE. 0) GO TO 10\r\n      IK = IZ + 3*NGG\r\n      NK = IK - 1 + (NGG+1)*NGG/2\r\n      GO TO 20\r\n   10 IK = IZ\r\n      NK = IK + 3*NGG - 1\r\n      IM = NK + 1\r\n      NM = (NGP+1)*NGP/2 + NK\r\n      GO TO 40\r\n   20 NM = NK\r\n      IF (MGG .LE. 0) GO TO 40\r\n      IM = NK + 1\r\n      NM = NK + (NGP+1)*NGP/2\r\n      GO TO 40\r\n   30 IK = IZ + 17\r\n      NK = IK - 1 + NGP**2\r\n      IM = NK + 1\r\n      NM = IM - 1 + NGP**2\r\n      NGG= NGP\r\n   40 IN = NM + 1\r\n      IG = IN + NGP\r\n      IX = IG + 3*NGP\r\n      ND = NM + 9*NGP\r\n      IF (UGV .EQ. 0) GO TO 50\r\n      ID = ND + 1\r\n      ND = ID + NGG - 1\r\n   50 IF (ND .LE. NZ) GO TO 100\r\n      WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID\r\n      NOGO = .TRUE.\r\nC\r\nC     ***** OPEN CORE MAP *****\r\nC\r\nC     DOUBLE PRECISION Z(1)\r\nC     COMMON /EMGZZZ/  Z\r\nC\r\nC     NGG = ORDER OF ELEMENT MATRIX\r\nC\r\nC     INDEX      STIFFNESS             MASS                HEAT\r\nC                AND MASS              ONLY              TRANSFER\r\nC\r\nC     IZ    NGG BY 3 PARTITION  NGG BY 3 PARTITION  FOUR WORD COORDINATE\r\nC           OF MATRIX           OF MATRIX           VECTOR.  INPUT TO\r\nC                                                   TRANSD\r\nC\r\nC     IZ+2                                          TRANSFORMED THERMAL\r\nC                                                   CONDUCTANCE MATRIX\r\nC\r\nC     IT                                            MATERIAL TRANSFOR-\r\nC                                                   MATION MATRIX\r\nC\r\nC     IK    SYMMETRIC HALF OF   SAME AS IZ          FULL CONDUCTANCE\r\nC           STIFFNESS\r\nC\r\nC     IM    SYMMETRIC HALF OF   SYMMETRIC HALF OF   FULL CAPACITANCE\r\nC           MASS                MASS\r\nC\r\nC     IN    --------------------SHAPE FUNCTIONS-------------------------\r\nC\r\nC     IG    --------------------D(SHAPE)/D(GREEK)-----------------------\r\nC\r\nC     IX    --------------------D(SHAPE)/D(BASIC XYZ)-------------------\r\nC\r\nC     ID    DISPLACEMENT\r\nC           VECTOR IN BASIC\r\nC           COORDINATES\r\nC\r\nC     CHECK GEOMETRY.  THE FOLLOWING CHECKS ARE MADE\r\nC           1.  ASPECT RATIO\r\nC           2.  ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE\r\nC           3.  ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE\r\nC           4.  REVERSE SEQUENCING\r\nC           5.  DUPLICATE COORDINATE VALUES\r\nC\r\nC     FETCH EPT DATA, COMPUTE EST POINTERS\r\nC\r\n  100 MID  = 10 + 12*(TYPE-1)\r\n      CID  = IEST(MID+1)\r\n      NIP  = IEST(MID+2)\r\n      MAXAR= EST(MID+3)\r\n      ALFA = EST(MID+4)\r\n      BETA = EST(MID+5)\r\n      BGPDT= MID + 6\r\n      GPT  = BGPDT + NGP*4\r\n      MID  = IEST(MID)\r\n      IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2\r\n      IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE)\r\n      IF (ALFA  .LT. 0.0) ALFA  = DALFA(TYPE)\r\n      IF (BETA.LT.0.0 .AND. TYPE.NE.1) BETA = DBETA(TYPE-1)\r\n      ALFA = COS(DTOR*ALFA)\r\n      BETA = COS(DTOR*BETA)\r\n      IF (UGV .EQ. 0) GO TO 105\r\nC\r\nC     TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES\r\nC     MULTIPLY BY 1/4 TO AVOID MULTIPLYING STRAIN-DISPLACEMENT\r\nC     RELATIONS BY 1/2 UNDER THE INTEGRAL.  DITTO FOR LOADING TEMP-S.\r\nC\r\n      DSTLD = GPTLD(1)\r\n      DO 104 I = 1,NGP\r\n      M = BGPDT + 4*I - 4\r\n      J = UGV + SIL(I) - 1\r\n      K = ID + 3*I - 3\r\n      IF (IEST(M) .EQ. 0) GO TO 102\r\n      CALL TRANSD (EST(M),TK)\r\n      DO 101 L = 1,3\r\n  101 Z(IZ+L-1) = DBLE(RZ(J+L-1)*0.25)\r\n      CALL GMMATD (TK,3,3,0,Z(IZ),3,1,0,Z(N))\r\n      GPTLD(I) = 0.25*GPTLD(I)\r\n      GO TO 104\r\n  102 DO 103 L = 1,3\r\n  103 Z(N+L-1) = DBLE(RZ(J+L-1)*0.25)\r\n      GPTLD(I) = 0.25*GPTLD(I)\r\n  104 CONTINUE\r\nC\r\nC     REARRANGE BGPDT\r\nC\r\n  105 DO 110 I = 1,NGP\r\n  110 JZ(IZS+I) = IEST(BGPDT+I*4-4)\r\n      BCORD = GPT - 3\r\n      DO 120 I = 2,NGP\r\n      DO 120 J = 1,3\r\n      K = BGPDT + 4*(NGP-I) + 4 - J\r\n      BCORD = BCORD - 1\r\n      EST(BCORD) = EST(K)\r\n  120 CONTINUE\r\n      DO 130 I = 2,NGP\r\n  130 IEST(BGPDT+I-1) = JZ(IZS+I)\r\nC\r\nC     IF COMPUTING DIFFERENTIAL STIFFNESS, SKIP CHECKS\r\nC\r\n      IF (UGV .GT. 0) GO TO 500\r\nC\r\nC     FIND 8 POINTERS TO CORNER COORDINATES IN EST\r\nC\r\nC     EDGE        CORNERS\r\nC       1         1     2\r\nC       2         2     3\r\nC       3         3     4\r\nC       4         4     1\r\nC       5         1     5\r\nC       6         2     6\r\nC       7         3     7\r\nC       8         4     8\r\nC       9         5     6\r\nC      10         6     7\r\nC      11         7     8\r\nC      12         8     5\r\nC\r\n      NC(1) = BCORD\r\n      J = 3*TYPE\r\n      GO TO (140,150,160), TYPE\r\n  140 NC(5) = BCORD + 12\r\n      GO TO 170\r\n  150 NC(5) = BCORD + 36\r\n      GO TO 170\r\n  160 NC(5) = BCORD + 60\r\n  170 DO 180 I = 2,4\r\n      NC(I  ) = NC(I-1) + J\r\n  180 NC(I+4) = NC(I+3) + J\r\nC\r\nC     COMPUTE 12 EDGE VECTORS, FIND SMALLEST AND LARGEST MAGNITUDES\r\nC\r\n      I = 0\r\n      J = 1\r\n      SMAG = 1.0E20\r\n      BMAG = 0.0\r\n      DO 250 EDGE = 1,12\r\n      GO TO (190,190,190,200,210,190,190,190,220,190,190,200), EDGE\r\n  190 I = I + 1\r\n      J = J + 1\r\n      L = NC(I) - 1\r\n      M = NC(J) - 1\r\n      GO TO 230\r\n  200 L = M\r\n      M = NC(J-3) - 1\r\n      GO TO 230\r\n  210 I = 0\r\n      J = 4\r\n      GO TO 190\r\n  220 I = 4\r\n      J = 5\r\n      GO TO 190\r\n  230 TMAG = 0.0\r\n      DO 240 K = 1,3\r\n      EVEC(K,EDGE) = EST(M+K) - EST(L+K)\r\n  240 TMAG = TMAG + EVEC(K,EDGE)**2\r\n      IF (TMAG .LT. SMAG) SMAG = TMAG\r\n      IF (TMAG .GT. BMAG) BMAG = TMAG\r\n  250 CONTINUE\r\nC\r\nC     CHECK ASPECT RATIO\r\nC\r\n      IF (SMAG .GT. 0.0) GO TO 260\r\n      SMAG = 1.0E-10\r\n  260 IF (BMAG/SMAG .LE. MAXAR**2) GO TO 265\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BAR,EXCD\r\n      NOGO = .TRUE.\r\nC\r\nC     CHECK ANGLES BETWEEN FACE NORMALS\r\nC\r\nC     FACE              CORNERS\r\nC       1         1     4     3     2\r\nC       2         1     2     6     5\r\nC       3         2     3     7     6\r\nC       4         3     4     8     7\r\nC       5         4     1     5     8\r\nC       6         5     6     7     8\r\nC\r\n  265 DO 350 FACE = 1,6\r\n      GO TO (270,280,290,290,300,310), FACE\r\n  270 I = 1\r\n      J = 4\r\n      K = 3\r\n      L = 2\r\n      GO TO 320\r\n  280 I = 1\r\n      J = 6\r\n      K = 9\r\n      L = 5\r\n      GO TO 320\r\n  290 I = I + 1\r\n      J = J + 1\r\n      K = K + 1\r\n      L = L + 1\r\n      GO TO 320\r\n  300 I = 4\r\n      J = 5\r\n      K = 12\r\n      L = 8\r\n      GO TO 320\r\n  310 I = 12\r\n      J = 9\r\n      K = 10\r\n      L = 11\r\n  320 DO 340 N = 1,2\r\n      VN(1,1) = EVEC(2,I)*EVEC(3,J) - EVEC(3,I)*EVEC(2,J)\r\n      VN(2,1) = EVEC(3,I)*EVEC(1,J) - EVEC(1,I)*EVEC(3,J)\r\n      VN(3,1) = EVEC(1,I)*EVEC(2,J) - EVEC(2,I)*EVEC(1,J)\r\n      VN(1,2) = EVEC(2,K)*EVEC(3,L) - EVEC(3,K)*EVEC(2,L)\r\n      VN(2,2) = EVEC(3,K)*EVEC(1,L) - EVEC(1,K)*EVEC(3,L)\r\n      VN(3,2) = EVEC(1,K)*EVEC(2,L) - EVEC(2,K)*EVEC(1,L)\r\n      SMAG = 0.0\r\n      BMAG = 0.0\r\n      TMAG = 0.0\r\n      DO 330 M = 1,3\r\n      SMAG = SMAG + VN(M,1)**2\r\n      BMAG = BMAG + VN(M,2)**2\r\n  330 TMAG = VN(M,1)*VN(M,2) + TMAG\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 335\r\nC\r\nC     EPSILON INTRODUCED TO OVERCOME ROUNDOUT ERROR\r\nC\r\n      IF (TMAG/SMAG .GE. 0.99*ALFA) GO TO 335\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BALFA,EXCD\r\n      NOGO = .TRUE.\r\n  335 M = I\r\n      I = L\r\n      L = K\r\n      K = J\r\n      J = M\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC     CHECK MID-EDGE POINTS\r\nC\r\n      IF (TYPE .EQ. 1) GO TO 455\r\n      M = 1\r\n      DO 450 EDGE = 1,12\r\n      GO TO (370,370,370,370,380,390,390,390,400,370,370,370), EDGE\r\n  370 I = NC(M)\r\n      J = I + 3\r\n      K = J + 3\r\n      L = K + 3\r\n      M = M + 1\r\n      IF (EDGE.NE.4 .AND. EDGE.NE.12) GO TO 410\r\n      IF (TYPE .EQ. 2) K = NC(M-4)\r\n      IF (TYPE .EQ. 3) L = NC(M-4)\r\n      GO TO 410\r\n  380 M = 0\r\n  390 M = M + 1\r\n      I = NC(M)\r\n      J = I + 12*TYPE - 3*(M-1)*(TYPE-1)\r\n      K = J + 12\r\n      K = K + 3*(M-1)*(3-TYPE)\r\n      L = NC(M+4)\r\n      GO TO 410\r\n  400 M = 5\r\n      GO TO 370\r\n  410 SMAG = 0.0\r\n      BMAG = 0.0\r\n      TMAG = 0.0\r\n      DO 420 N = 1,3\r\n      VN(N,1) = EST(J+N-1) - EST(I+N-1)\r\n      VN(N,2) = EST(K+N-1) - EST(J+N-1)\r\n      TMAG = TMAG + VN(N,1)*VN(N,2)\r\n      SMAG = SMAG + VN(N,1)**2\r\n  420 BMAG = BMAG + VN(N,2)**2\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 430\r\n      IF (TMAG/SMAG .GE. BETA) GO TO 430\r\n      GO TO 445\r\n  430 IF (TYPE .EQ. 2) GO TO 450\r\n      TMAG = 0.0\r\n      SMAG = 0.0\r\n      DO 440 N = 1,3\r\n      VN(N,1) = EST(L+N-1) - EST(K+N-1)\r\n      TMAG = TMAG + VN(N,1)*VN(N,2)\r\n  440 SMAG = SMAG + VN(N,1)**2\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 450\r\n      IF (TMAG/SMAG .GE. BETA) GO TO 450\r\n  445 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BBETA,EXCD\r\n      NOGO = .TRUE.\r\n  450 CONTINUE\r\nC\r\nC     CHECK FOR LEFT-HANDED ELEMENT COORDINATE SYSTEM\r\nC\r\nC     VOL = EVEC(5)*(EVEC(1) X -EVEC(4))\r\nC\r\n  455 VN(1,1) = EVEC(2,4)*EVEC(3,1) - EVEC(3,4)*EVEC(2,1)\r\n      VN(2,1) = EVEC(3,4)*EVEC(1,1) - EVEC(1,4)*EVEC(3,1)\r\n      VN(3,1) = EVEC(1,4)*EVEC(2,1) - EVEC(2,4)*EVEC(1,1)\r\n      TMAG    = 0.0\r\n      DO 460 I = 1,3\r\n  460 TMAG = TMAG + EVEC(I,5)*VN(I,1)\r\n      IF (TMAG .GT. 0.0) GO TO 470\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,RVRS\r\n      NOGO = .TRUE.\r\nC\r\nC     CHECK FOR DUPLICATE COORDINATE VALUES\r\nC\r\n  470 L = NGP - 1\r\n      DO 490 I = 1,L\r\n      M = BCORD + 3*(I-1)\r\n      K = I + 1\r\n      DO 480 J = K,NGP\r\n      N = BCORD + 3*(J-1)\r\n      IF (EST(M  ) .NE. EST(N  )) GO TO 480\r\n      IF (EST(M+1) .NE. EST(N+1)) GO TO 480\r\n      IF (EST(M+2) .NE. EST(N+2)) GO TO 480\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,TWINS\r\n      NOGO = .TRUE.\r\n  480 CONTINUE\r\n  490 CONTINUE\r\nC\r\nC     IF NOGO FLAG ON, DON T COMPUTE ELEMENT MATRICES\r\nC\r\n      IF (NOGO) RETURN\r\nC\r\nC     INITIALIZE FOR NUMERICAL INTEGRATION\r\nC\r\nC     ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE\r\nC\r\n  500 I = NIP - 1\r\n      GO TO (510,520,530), I\r\n  510 H(1) = 1.0\r\n      S(1) = GAUSS(1)\r\n      H(2) = 1.0\r\n      S(2) =-GAUSS(1)\r\n      GO TO 540\r\n  520 H(1) = GAUSS(2)\r\n      S(1) = GAUSS(3)\r\n      H(2) = GAUSS(4)\r\n      S(2) = 0.0\r\n      H(3) = GAUSS(2)\r\n      S(3) =-GAUSS(3)\r\n      GO TO 540\r\n  530 H(1) = GAUSS(5)\r\n      S(1) = GAUSS(6)\r\n      H(2) = GAUSS(7)\r\n      S(2) = GAUSS(8)\r\n      H(3) = GAUSS(7)\r\n      S(3) =-GAUSS(8)\r\n      H(4) = GAUSS(5)\r\n      S(4) =-GAUSS(6)\r\nC\r\nC     GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE\r\nC     ORDERED ACCORDING TO INCREASING SIL NUMBERS\r\nC\r\n  540 I = -NGP\r\n  545 J =  0\r\n      DO 560 K = 1,NGP\r\n      IF (SIL(K) .LT. J) GO TO 560\r\n      J = SIL(K)\r\n      L = K\r\n  560 CONTINUE\r\n      SIL(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 545\r\n      DO 570 I = 1,NGP\r\n  570 SIL(I) = -SIL(I)\r\nC\r\nC     NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I\r\nC\r\nC     ZERO OUT OPEN CORE FOR MATRIX SUMMATION\r\nC\r\n      DO 580 I = IK,NM\r\n  580 Z(I) = 0.0\r\nC\r\nC     BRANCH ON HEAT TRANSFER FLAG\r\nC\r\n      IF (HEAT .EQ. 1) GO TO 3000\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     =============================================================\r\nC     THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC\r\nC     MATERIAL IS ADDED.\r\nC\r\nC     TEST FOR ANISOTROPIC MATERIAL\r\nC\r\n      INFLAG = 10\r\n      ANIS   =.FALSE.\r\nC\r\nC     TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC\r\nC     MATERIAL IS DEFINED\r\nC\r\n      RECT = .TRUE.\r\nC     ===============================================================\r\nC\r\nC     CHECK FOR TEMPERATURE DEPENDENCE\r\nC\r\n      TDEP = .TRUE.\r\n      DO 610 I = 2,NGP\r\n      IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630\r\n  610 CONTINUE\r\n      TDEP = .FALSE.\r\n  630 TEMP = EST(GPT)\r\n      CALL MAT (EID)\r\n      IF (.NOT.MTDEP) TDEP = .FALSE.\r\n      IF (IB(46) .EQ. 6) ANIS = .TRUE.\r\n      IF (KGG .LE. 0) GO TO 1000\r\nC\r\nC     IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS\r\nC\r\n      IF (ANIS .OR. TDEP) GO TO 1000\r\n      IF (IB(46) .NE.  0) GO TO 640\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\nC     SET UP FOR EASY MULTIPLICATION IF MATERIALS ARE ON MAT1\r\nC\r\n  640 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\nC\r\nC     ============================================================\r\nC     CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO\r\nC     BASIC COORDINATE SYSTEM MUST BE ADDED HERE.\r\nC     ============================================================\r\nC\r\nC     ALL SET TO BEGIN INTEGRATION LOOPS.  DO IT.\r\nC\r\n 1000 TVOL = 0.0D+0\r\n      DO 2000 I = 1,NIP\r\n      DO 2000 J = 1,NIP\r\n      DO 2000 K = 1,NIP\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     1             EST(BCORD))\r\n      IF (DETJ .NE. 0.0) GO TO 1010\r\nC\r\nC     BAD ELEMENT IF FALL HERE.  JACOBIAN MATRIX WAS SINGULAR.\r\nC\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 1010 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      TVOL  = TVOL + SFACT\r\n      IF (KGG .LE. 0) GO TO 1015\r\nC\r\nC     STIFFNESS\r\nC\r\nC     COMPUTE STRAIN-DISPLACEMENT RELATIONS\r\nC\r\nC     MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS\r\nC\r\n      CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX))\r\nC\r\nC     IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE\r\nC     AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN\r\nC\r\n 1015 IF (.NOT. TDEP) GO TO 1030\r\n      TEMP = 0.0\r\n      DO 1020 L = 1,NGP\r\n 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1)\r\n      CALL MAT (EID)\r\n      IF (KGG .LE. 0) GO TO 1100\r\n      IF (ANIS) GO TO 1040\r\n      IF (IB(46) .NE. 0) GO TO 1025\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 1025 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      GO TO 1100\r\n 1030 IF (KGG .LE. 0) GO TO 1100\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR-\r\nC     DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC     IN THIS VERSION, ANISOTROPIC MATERIAL SYSTEMS MUST BE RECTANGULAR.\r\nC     THEREFORE, NO FURTHER TRANSFORMATIONS ARE NECESSARY\r\nC\r\nC\r\nC     ================================================================\r\nC     THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS\r\nC     ADDED\r\nC\r\n      IF (.NOT.ANIS) GO TO 1100\r\n 1040 CONTINUE\r\nC\r\nC     INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR\r\nC     ANISOTROPIC MATERIAL MATRIX\r\nC     =============+==================================================\r\nC\r\n      DO 1041 IJK = 1,36\r\n 1041 GMAT(IJK) = BUFM6(IJK)\r\n      IF (RECT) GO TO 1100\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN\r\nC     FALL HERE.\r\nC\r\n 1100 IF (UGV .EQ. 0) GO TO 1170\r\nC\r\nC     COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX\r\nC\r\nC     THERMAL EFFECTS\r\nC\r\n      IF (IDSTLD .EQ. -1) GO TO 1120\r\n      TEMP = 0.0\r\n      DO 1110 L = 1,NGP\r\n 1110 TEMP = TEMP + Z(IN+L-1)*DBLE(GPTLD(L))\r\n      TEMP = TEMP - DBLE(TREF)\r\n      IF (ANIS) GO TO 1115\r\n      SIG(1) =-DBLE(TALPHA)*(E1+2.0*E2)*TEMP\r\n      SIG(2) = SIG(1)\r\n      SIG(3) = SIG(1)\r\n      SIG(4) = 0.0\r\n      SIG(5) = 0.0\r\n      SIG(6) = 0.0\r\n      GO TO 1140\r\nC     ===========================================================\r\n 1115 CONTINUE\r\nC\r\nC     ADD THERMAL STRESS COMPUTATIONS FOR ANISOTROPIC MATERIAL\r\nC\r\nC     STORE ALPHA IN DOUBLE PRECISION\r\nC\r\n      DO 1116 IJK = 1,6\r\n 1116 DALPHA(IJK) = BUFM6(IJK+37)\r\nC\r\n      CALL GMMATD (GMAT,6,6,0, DALPHA,6,1,0,SIG)\r\n      DO 1117 IJK = 1,6\r\n 1117 SIG(IJK) = -SIG(IJK)*TEMP\r\n      GO TO 1140\r\nC     ===========================================================\r\n 1120 DO 1130 L = 1,6\r\n 1130 SIG(L) = 0.0\r\nC\r\nC     DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL.\r\nC\r\n 1140 STR(12) = 0.0\r\n      STR(13) = 0.0\r\n      STR(17) = 0.0\r\n      DO 1160 L = 1,NGP\r\n      II = IX + 3*L - 4\r\n      IF (ANIS) GO TO 1145\r\n      STR( 1) = E1*Z(II+1)\r\n      STR( 2) = E2*Z(II+2)\r\n      STR( 3) = E2*Z(II+3)\r\n      STR( 4) = E2*Z(II+1)\r\n      STR( 5) = E1*Z(II+2)\r\n      STR( 6) = E2*Z(II+3)\r\n      STR( 7) = E2*Z(II+1)\r\n      STR( 8) = E2*Z(II+2)\r\n      STR( 9) = E1*Z(II+3)\r\n      STR(10) = E3*Z(II+2)\r\n      STR(11) = E3*Z(II+1)\r\n      STR(14) = E3*Z(II+3)\r\n      STR(15) = E3*Z(II+2)\r\n      STR(16) = E3*Z(II+3)\r\n      STR(18) = E3*Z(II+1)\r\n      GO TO 1150\r\nC     =========================================================\r\nC\r\n 1145 CONTINUE\r\nC\r\nC     ADD STRESS MATRIX COMPUTATION FOR ANISOTROPIC MATERIAL\r\nC\r\n      DO 1146 IJK = 1,18\r\n 1146 STORE(IJK) = 0.D0\r\n      STORE( 1) = Z(II+1)\r\n      STORE( 5) = Z(II+2)\r\n      STORE( 9) = Z(II+3)\r\n      STORE(10) = Z(II+2)\r\n      STORE(11) = Z(II+1)\r\n      STORE(14) = Z(II+3)\r\n      STORE(15) = Z(II+2)\r\n      STORE(16) = Z(II+3)\r\n      STORE(18) = Z(II+1)\r\nC\r\n      CALL GMMATD (GMAT,6,6,0,STORE(1),6,3,0,STR)\r\nC\r\nC     ============================================================\r\nC\r\n 1150 CALL GMMATD (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG)\r\n 1160 CONTINUE\r\n      STR(1) = SX\r\n      SX = SX + SY\r\n      SY = SY + SZ\r\n      SZ = SZ + STR(1)\r\nC\r\nC     NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS\r\nC\r\n 1170 DO 1400 N = 1,NGP\r\n      DO 1400 M = N,NGP\r\nC\r\nC     COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N\r\nC\r\n      IF (KGG .LE. 0) GO TO 1300\r\n      IF (.NOT.ANIS ) GO TO 1200\r\nC\r\nC     =================================================================\r\nC     MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX\r\nC     FOR ANISOTROPIC MATERIAL HERE\r\nC     =================================================================\r\nC\r\n 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210\r\nC\r\nC     MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT\r\nC     MATRIX\r\nC\r\n      MZ = IX + (N-1)*3\r\n      NZ = IX + (M-1)*3\r\n      GO TO 1220\r\n 1210 MZ = IX + (M-1)*3\r\n      NZ = IX + (N-1)*3\r\n 1220 IF (UGV .EQ. 0) GO TO 1222\r\nC\r\nC     DIFFERENTIAL STIFFNESS\r\nC\r\n      DO 1221 L = 1,3\r\n      DO 1221 INC = 1,3\r\n 1221 C(L,INC) = Z(MZ+INC-1)*Z(NZ+L-1)\r\n      PART(1,1) = SX*C(2,2) + SYZ*(C(2,3)+C(3,2)) + SZ*C(3,3)\r\n      PART(2,2) = SY*C(3,3) + SZX*(C(3,1)+C(1,3)) + SX*C(1,1)\r\n      PART(3,3) = SZ*C(1,1) + SXY*(C(1,2)+C(2,1)) + SY*C(2,2)\r\n      PART(2,1) =-SX*C(2,1) + SXY*C(3,3) -SYZ*C(1,3) - SZX*C(2,3)\r\n      PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) -SYZ*C(2,1) + SZX*C(2,2)\r\n      PART(1,2) =-SX*C(1,2) + SXY*C(3,3) -SYZ*C(3,1) - SZX*C(3,2)\r\n      PART(3,2) =-SY*C(3,2) - SXY*C(3,1) +SYZ*C(1,1) - SZX*C(1,2)\r\n      PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) -SYZ*C(1,2) + SZX*C(2,2)\r\n      PART(2,3) =-SY*C(2,3) - SXY*C(1,3) +SYZ*C(1,1) - SZX*C(2,1)\r\n      GO TO 1228\r\nC\r\nC     ELASTIC STIFFNESS\r\nC\r\n 1222 IF (.NOT.ANIS) GO TO 1226\r\nC\r\nC     STORE CI MATRIX\r\nC\r\n      DO 1223 IJK = 1,18\r\n 1223 STORE(IJK) = 0.D0\r\n      STORE( 1) = Z(MZ  )\r\n      STORE( 4) = Z(MZ+1)\r\n      STORE( 6) = Z(MZ+2)\r\n      STORE( 8) = Z(MZ+1)\r\n      STORE(10) = Z(MZ  )\r\n      STORE(11) = Z(MZ+2)\r\n      STORE(15) = Z(MZ+2)\r\n      STORE(17) = Z(MZ+1)\r\n      STORE(18) = Z(MZ  )\r\nC\r\n      CALL GMMATD (STORE(1),3,6,0,GMAT(1),6,6,0,STORE(19))\r\nC\r\nC     STORE CJ\r\nC\r\n      DO 1224 IJK = 1,18\r\n 1224 STORE(IJK) = 0.D0\r\n      STORE( 1) = Z(NZ  )\r\n      STORE( 5) = Z(NZ+1)\r\n      STORE( 9) = Z(NZ+2)\r\n      STORE(10) = Z(NZ+1)\r\n      STORE(11) = Z(NZ  )\r\n      STORE(14) = Z(NZ+2)\r\n      STORE(15) = Z(NZ+1)\r\n      STORE(16) = Z(NZ+2)\r\n      STORE(18) = Z(NZ  )\r\nC\r\n      CALL GMMATD (STORE(19),3,6,0,STORE(1),6,3,0,STORE(37))\r\n      IJKL = 0\r\n      DO 1225 IJK = 1,3\r\n      DO 1225 IJL = 1,3\r\n      IJKL = IJKL + 1\r\n      PART(IJK,IJL) = STORE(IJKL+36)\r\n 1225 CONTINUE\r\n      GO TO 1228\r\n 1226 PART(1,1) = E1*Z(NZ)*Z(MZ) + E3*(Z(NZ+1)*Z(MZ+1) +Z(NZ+2)*Z(MZ+2))\r\n      PART(2,2) = E1*Z(NZ+1)*Z(MZ+1) + E3*(Z(NZ)*Z(MZ) +Z(NZ+2)*Z(MZ+2))\r\n      PART(3,3) = E1*Z(NZ+2)*Z(MZ+2) + E3*(Z(NZ)*Z(MZ) +Z(NZ+1)*Z(MZ+1))\r\n      PART(2,1) = E2*Z(NZ  )*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ  )\r\n      PART(3,1) = E2*Z(NZ  )*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ  )\r\n      PART(1,2) = E2*Z(NZ+1)*Z(MZ  ) + E3*Z(NZ  )*Z(MZ+1)\r\n      PART(3,2) = E2*Z(NZ+1)*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ+1)\r\n      PART(1,3) = E2*Z(NZ+2)*Z(MZ  ) + E3*Z(NZ  )*Z(MZ+2)\r\n      PART(2,3) = E2*Z(NZ+2)*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ+2)\r\nC\r\nC     ADD STIFFNESS PARTITION TO ELEMENT MATRIX\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED.\r\nC\r\n 1228 IF (SIL(M)-SIL(N)) 1230,1240,1250\r\n 1230 MZ = SIL(N)\r\n      NZ = SIL(M)\r\n      DIAG = .FALSE.\r\n      GO TO 1260\r\n 1240 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .TRUE.\r\n      GO TO 1260\r\n 1250 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .FALSE.\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n 1260 L = (NZ-1)*3 + 1\r\nC\r\nC     INCREMENT BETWEEN COLUMNS\r\nC\r\n      INC = NGG - L\r\nC\r\nC     FIRST WORD OF COLUMN\r\nC\r\n      L = IK + ((L-1)*L)/2 + (INC+1)*(L-1)\r\nC\r\nC     WORD IN COLUMN FOR THIS ROW\r\nC\r\n      L = L + 3*(MZ-NZ)\r\nC\r\nC     ADD PARTITION\r\nC\r\n      DO 1280 NZ = 1,3\r\n      DO 1270 MZ = 1,3\r\n      IF (DIAG .AND. MZ.LT.NZ) GO TO 1270\r\n      Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT\r\n 1270 CONTINUE\r\n      L = L + INC\r\n      INC = INC - 1\r\n 1280 CONTINUE\r\n 1300 IF (MGG .LE. 0) GO TO 1400\r\nC\r\nC     MASS\r\nC\r\nC     COMPUTE TERM FOR MASS MATRIX\r\nC\r\n      RHO = BUFM6(37)\r\n      MZ  = SIL(M)\r\n      NZ  = SIL(N)\r\n      IF (MZ .GE. NZ) GO TO 1310\r\n      MZ  = SIL(N)\r\n      NZ  = SIL(M)\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS MASS TERM\r\nC\r\n 1310 L = (NZ*(NZ+1))/2 + (NZ-1)*(NGP-NZ) + MZ - NZ + IM - 1\r\nC\r\nC     COMPUTE AND ADD MASS TERM TO ELEMENT MATRIX\r\nC\r\n      Z(L) = Z(L) + DBLE(RHO)*SFACT*Z(IN+M-1)*Z(IN+N-1)\r\n 1400 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     END OF INTEGRATION LOOPS\r\nC\r\n      ICODE = 7\r\nC\r\nC     LOOK FOR NON-BASIC COORDINATE SYSTEM\r\nC\r\n      NOCSTM = .FALSE.\r\n      DO 2003 I = 1,NGP\r\n      IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005\r\n 2003 CONTINUE\r\n      NOCSTM = .TRUE.\r\n      GO TO 2065\r\nC\r\nC     RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM\r\nC     TO GLOBAL COORDINATES\r\nC\r\nC     FIRST, TRANSFER IT TO OPEN CORE AT IN\r\nC\r\n 2005 K = (IN-1)*2 + 1\r\n      J = NGP*4\r\n      DO 2010 I = 1,J\r\n 2010 RZ(K+I-1) = EST(BGPDT+I-1)\r\nC\r\nC     NOW MOVE IT BACK AND REARRANGE IT\r\nC\r\n      DO 2020 I = 1,NGP\r\n      IEST(BGPDT+4*I-4) = JZ(K+I-1)\r\n      DO 2020 J = 1,3\r\n      EST(BGPDT+4*I-4+J) = RZ(K+NGP+3*I+J-4)\r\n 2020 CONTINUE\r\nC\r\nC     FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES\r\nC\r\n      DO 2025 I = 1,NGP\r\n      J = IN + (I-1)*9\r\n      CALL TRANSD (EST(BGPDT+4*I-4),Z(J))\r\n 2025 CONTINUE\r\n      IF (KGG .LE. 0) GO TO 2110\r\nC\r\nC     TRANSFORM STIFFNESS TO GLOBAL COORDINATES\r\nC\r\n      I = 0\r\n 2026 I = I + 1\r\n      ICP = SIL(I)\r\nC\r\nC     COLUMN INDICES\r\nC\r\n      K   = (ICP-1)*3 + 1\r\n      INC = NGG - K + 1\r\n      L   = IK + ((K-1)*K)/2 + INC*(K-1)\r\n      M   = L + INC\r\n      N   = M + INC - 1\r\nC\r\nC     TRANSFORMATION MATRIX INDEX\r\nC\r\n      IGCS = IEST(BGPDT+4*I-4)\r\n      NZ = IN + (I-1)*9\r\n      IF (IGCS .EQ. 0) GO TO 2028\r\nC\r\nC     TERMS ON DIAGONAL PARTITION\r\nC\r\n      ASSIGN 2028 TO BACK\r\n      GO TO 6000\r\nC\r\nC     OFF-DIAGONAL PARTITIONS\r\nC\r\n 2028 L = L + 3\r\n      M = M + 2\r\n      N = N + 1\r\n      IRP = ICP + 1\r\n      IF (IRP .GT. NGP) GO TO 2060\r\n      MZ = NZ\r\n      DO 2050 J = IRP,NGP\r\n      DO 2029 K = 1,NGP\r\n      IF (J .EQ. SIL(K)) GO TO 2031\r\n 2029 CONTINUE\r\n 2031 IF (IGCS .NE. 0) GO TO 2032\r\n      IF (IEST(BGPDT+4*K-4) .EQ. 0) GO TO 2045\r\n 2032 NZ = IN + (K-1)*9\r\n      DO 2030 K = 1,3\r\n      TK(K,1) = 0.0\r\n      TK(K,2) = 0.0\r\n      TK(K,3) = 0.0\r\n      DO 2030 II = 1,3\r\n      TK(K,1) = TK(K,1) + Z(L+II-1)*Z(NZ+3*II+K-4)\r\n      TK(K,2) = TK(K,2) + Z(M+II-1)*Z(NZ+3*II+K-4)\r\n      TK(K,3) = TK(K,3) + Z(N+II-1)*Z(NZ+3*II+K-4)\r\n 2030 CONTINUE\r\n      DO 2040 K = 1,3\r\n      Z(L+K-1) = 0.0\r\n      Z(M+K-1) = 0.0\r\n      Z(N+K-1) = 0.0\r\n      DO 2040 II = 1,3\r\n      Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3)\r\n      Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2)\r\n      Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1)\r\n 2040 CONTINUE\r\n 2045 L = L + 3\r\n      M = M + 3\r\n      N = N + 3\r\n 2050 CONTINUE\r\n 2060 IF (I .LT. NGP) GO TO 2026\r\nC\r\nC     BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT\r\nC\r\n 2065 IDON = 0\r\n      DO 2100 I = 1,NGP\r\n      IF (I .EQ. NGP) IDON = 1\r\n      DO 2090 J = 1,3\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n      K = (I-1)*3 + J\r\nC\r\nC     NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION\r\nC\r\n      L = K - 1\r\n      IF (L .EQ. 0) GO TO 2075\r\nC\r\nC     FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION\r\nC\r\n      N   = IK + L\r\n      INC = NGG - 1\r\n      DO 2070 M = 1,L\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N   = N + INC\r\n      INC = INC - 1\r\n 2070 CONTINUE\r\nC\r\nC     FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX\r\nC\r\nC     COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K\r\nC\r\n 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1)\r\nC\r\nC     INSERT THIS COLUMN IN PARTITION\r\nC\r\n      DO 2080 M = K,NGG\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N = N + 1\r\n 2080 CONTINUE\r\n 2090 CONTINUE\r\n      DICT(5) = IB(45)\r\n      CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,1,2)\r\n 2100 CONTINUE\r\nC\r\nC     EXPAND AND TRANSFORM MASS MATRIX AND PASS TO EMGOUT\r\nC\r\n      IF (MGG .LE. 0) GO TO 2400\r\n 2110 IDON = 0\r\n      DO 2140 I = 1,NGP\r\n      IF (I .EQ. NGP) IDON = 1\r\n      DO 2130 J = 1,NGP\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR MASS TERM\r\nC\r\n      K = I\r\n      L = J\r\n      IF (I .LE. J) GO TO 2115\r\n      K = J\r\n      L = I\r\n 2115 N = ((K-1)*K)/2 + (K-1)*(NGP-K+1) + L - K + IM\r\nC\r\nC     MULTIPLY GLOBAL TO BASIC TRANSFORMATIONS\r\nC\r\n      M = IZ - NGG+3*J - 4\r\n      IF (I.EQ.J .OR. NOCSTM) GO TO 2116\r\n      IF (IEST(BGPDT+4*I-4) .NE. 0) GO TO 2118\r\n      IF (IEST(BGPDT+4*J-4) .NE. 0) GO TO 2118\r\n 2116 Z(M+NGG  +1) = Z(N)\r\n      Z(M+NGG  +2) = 0.0\r\n      Z(M+NGG  +3) = 0.0\r\n      Z(M+NGG*2+1) = 0.0\r\n      Z(M+NGG*2+2) = Z(N)\r\n      Z(M+NGG*2+3) = 0.0\r\n      Z(M+NGG*3+1) = 0.0\r\n      Z(M+NGG*3+2) = 0.0\r\n      Z(M+NGG*3+3) = Z(N)\r\n      GO TO 2130\r\n 2118 DO 2119 K = 1,NGP\r\n      IF (I .EQ. SIL(K)) MZ = IN + 9*(K-1)\r\n      IF (J .EQ. SIL(K)) NZ = IN + 9*(K-1)\r\n 2119 CONTINUE\r\n      CALL GMMATD (Z(MZ),3,3,1,Z(NZ),3,3,0,TF)\r\nC\r\nC     MULTIPLY BY MASS SCALAR FOR THIS 3 BY 3 PARTITION AND STORE\r\nC     IN NGG BY 3 PARTITION\r\nC\r\n      DO 2120 K = 1,3\r\n      DO 2120 L = 1,3\r\n      Z(M+NGG*L+K) = TF(K,L)*Z(N)\r\n 2120 CONTINUE\r\n 2130 CONTINUE\r\n      DICT(5) = 0\r\n      CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,2,2)\r\n 2140 CONTINUE\r\nC\r\nC     SAVE ELEMENT BCD NAME, ID, VOLUME, MASS, NO. OF GRID POINTS, AND\r\nC     GRID POINT DATA IN SCR4 IF USER REQUESTED VOLUME/AREA PRINTOUT\r\nC     (NOTE - MAKE SURE THE GRID POINT DATA, BGPDT, IS IN ISTS ORIGIANL\r\nC      FORM)\r\nC\r\n 2400 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000\r\n      IL = IZ*2\r\n      RZ(IL+1) = BCD1\r\n      RZ(IL+2) = BCD2(TYPE)\r\n      JZ(IL+3) = EID\r\n      RZ(IL+4) = TVOL*VOLUME\r\n      RZ(IL+5) = TVOL\r\n      IF (RHO .GT. 0.0) RZ(IL+5) = TVOL*RHO\r\n      JZ(IL+6) = NGP\r\n      K = IL + 6\r\n      DO 2410 I = 1,NGP\r\n      K = K + 1\r\n 2410 RZ(K) = EST(1+I)\r\n      IF (SURFAC .LE. 0.0) GO TO 2460\r\n      IF (.NOT.NOCSTM) GO TO 2440\r\n      L = BGPDT + NGP\r\n      DO 2430 I = 1,NGP\r\n      K = K + 1\r\n      JZ(K) = IEST(BGPDT+I-1)\r\n      DO 2420 J = 1,3\r\n      K = K + 1\r\n      RZ(K) = EST(L)\r\n 2420 L = L + 1\r\n 2430 CONTINUE\r\n      GO TO 2460\r\n 2440 J = NGP*4\r\n      DO 2450 I = 1,J\r\n      K = K + 1\r\n 2450 RZ(K) = EST(BGPDT+I-1)\r\n 2460 L = K - IL\r\n      CALL WRITE (SCR4,RZ(IL+1),L,1)\r\n      GO TO 5000\r\nC\r\nC     HEAT TRANSFER SECTION\r\nC\r\n 3000 INFLAG = 3\r\n      CALL HMAT (EID)\r\n      ANIS = .FALSE.\r\n      IF (KGG .LE. 0) GO TO 3100\r\nC\r\nC     CHECK FOR ANISOTROPY\r\nC\r\n      IF (KHEAT(1).NE.KHEAT(4) .OR. KHEAT(1).NE.KHEAT(6)) GO TO 3010\r\n      IF (KHEAT(2).NE.0.0 .OR. KHEAT(3).NE.0.0 .OR. KHEAT(5).NE.0.0)\r\n     1    GO TO 3010\r\n      GO TO 3100\r\n 3010 ANIS = .TRUE.\r\n      IT = IZ + 8\r\nC\r\nC     CHECK FOR RECTANGULAR COORDINATE SYSTEM FOR MATERIAL\r\nC\r\n      RECT = .TRUE.\r\n      IF (CID .EQ. 0) GO TO 3100\r\n      JZ(IZS) = CID\r\n      DO 3030 I = 1,3\r\n 3030 RZ(IZS+I) = EST(BCORD+I-1)\r\n      CALL TRANSD (RZ(IZS),Z(IT))\r\n      DO 3040 I = 1,3\r\n 3040 RZ(IZS+I) = -RZ(IZS+I)\r\n      CALL TRANSD (RZ(IZS),Z(IN))\r\n      DO 3050 I = 1,9\r\n      IF (Z(IT+I-1) .NE. Z(IN+I-1)) RECT = .FALSE.\r\n 3050 CONTINUE\r\nC\r\nC     IF NOT DEFINED IN A RECTANGULAR SYSTEM, MUST TRANSFORM INSIDE\r\nC     INTEGRATION LOOPS\r\nC\r\n      IF (.NOT.RECT) GO TO 3100\r\nC\r\nC     TRANSFORM MATERIAL MATRIX TO BASIC SYSTEM\r\nC\r\n      DO 3060 I = 1,6\r\n 3060 Z(IZ+I+1) = DBLE(KHEAT(I))\r\n      L  = IZ + 2\r\n      M  = L + 3\r\n      N  = M + 2\r\n      NZ = IT\r\n      ASSIGN 3100 TO BACK\r\n      GO TO 6000\r\nC\r\nC     ANISOTROPIC CONDUCTIVITY MATERIAL MATRIX NOW STORED AT RZ(IZ+2)\r\nC     TO RZ(IZ+7)\r\nC\r\nC     ALL SET FOR DOING INTEGRATION.  DO IT.\r\nC\r\n 3100 I = 0\r\n 3101 I = I + 1\r\n      J = 0\r\n 3102 J = J + 1\r\n      K = 0\r\n 3103 K = K + 1\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSD (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     1             EST(BCORD))\r\n      IF (DETJ .NE. 0.0) GO TO 3110\r\nC\r\nC     FALL HERE IF JACOBIAN MATRIX WAS SINGULAR\r\nC\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 3110 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      IF (KGG .LE. 0) GO TO 3120\r\nC\r\nC     COMPUTE DERIVATIVES OF SHAPE FUNCTION W.R.T. BASIC SYSTEM.\r\nC\r\nC     MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS\r\nC\r\n      CALL GMMATD (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX))\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN A RECTANGULAR\r\nC     CORDINATE SYSTEM, MUST TRANSFORM TO BASIC SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC\r\n 3120 IF (.NOT.ANIS) GO TO 3160\r\n      IF (RECT) GO TO 3160\r\nC\r\nC     COMPUTE BASIC COORDINATES VECTOR AT THIS POINT\r\nC\r\n      DO 3130 L = 1,3\r\n 3130 RZ(IZS+L) = 0.0\r\n      DO 3140 L = 1,NGP\r\n      DO 3140 M = 1,3\r\n      RZ(IZS+M) = RZ(IZS+M) + Z(IN+L-1)*EST(BCORD + 3*L+M-4)\r\n 3140 CONTINUE\r\nC\r\nC     FETCH TRANSFORMATION AND CONDUCTIVITY MATRICES AND PERFORM\r\nC     TRANSFORMATION OPERATIONS\r\nC\r\n      CALL TRANSD (RZ(IZS),Z(IT))\r\n      DO 3150 L = 1,6\r\n 3150 Z(IZ+L+1) = DBLE(KHEAT(L))\r\n      NZ = IT\r\n      L  = IZ + 2\r\n      M  = L + 3\r\n      N  = M + 2\r\n      ASSIGN 3160 TO BACK\r\n      GO TO 6000\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN\r\nC     FALL HERE\r\nC\r\nC     NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS\r\nC\r\n 3160 DO 3220 N = 1,NGP\r\n      DO 3220 M = N,NGP\r\nC\r\nC     COMPUTE 1 BY 1 PARTITION FOR ROW M AND COLUMN N\r\nC\r\n      IF (KGG .LE. 0) GO TO 3210\r\nC\r\nC     CONDUCTIVITY\r\nC\r\n      IF (ANIS) GO TO 3180\r\nC\r\nC     ISOTROPIC CASE\r\nC\r\n      PRT1 = 0.0\r\n      DO 3170 L = 1,3\r\n 3170 PRT1 = PRT1 + Z(IX+3*M+L-4)*Z(IX+3*N+L-4)\r\n      PRT1 = SFACT*DBLE(KHEAT(1))*PRT1\r\n      GO TO 3190\r\nC\r\nC     ANISOTROPIC CASE\r\nC\r\n 3180 L  = IX + 3*(M-1)\r\n      E1 = Z(L)*Z(IZ+2) + Z(L+1)*Z(IZ+3) + Z(L+2)*Z(IZ+4)\r\n      E2 = Z(L)*Z(IZ+3) + Z(L+1)*Z(IZ+5) + Z(L+2)*Z(IZ+6)\r\n      E3 = Z(L)*Z(IZ+4) + Z(L+1)*Z(IZ+6) + Z(L+2)*Z(IZ+7)\r\n      L  = IX + 3*(N-1)\r\n      PRT1 = SFACT*(Z(L)*E1 + Z(L+1)*E2 + Z(L+2)*E3)\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS TERM\r\nC\r\n 3190 L  = SIL(M)\r\n      MZ = SIL(N)\r\n      IF (L .LE. MZ) GO TO 3200\r\n      L  = MZ\r\n      MZ = SIL(M)\r\n 3200 L  = (L-1)*NGG + MZ + IK - 1\r\nC\r\nC     ADD TERM TO MATRIX\r\nC\r\n      Z(L) = Z(L) + PRT1\r\nC\r\nC     CAPACITANCE\r\nC\r\n 3210 IF (MGG .LE. 0) GO TO 3220\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS TERM\r\nC\r\n      L  = SIL(M)\r\n      MZ = SIL(N)\r\n      IF (L .LE. MZ) GO TO 3215\r\n      L  = MZ\r\n      MZ = SIL(M)\r\n 3215 L  = (L-1)*NGG + MZ + IM - 1\r\nC\r\nC     COMPUTE AND ADD TERM\r\nC\r\n      Z(L) = Z(L) + SFACT*DBLE(CP)*Z(IN+M-1)*Z(IN+N-1)\r\n 3220 CONTINUE\r\n      IF (K .LT. NIP) GO TO 3103\r\n      IF (J .LT. NIP) GO TO 3102\r\n      IF (I .LT. NIP) GO TO 3101\r\nC\r\nC     END OF HEAT TRANSFER INTEGRATION LOOPS\r\nC\r\n      ICODE = 1\r\nC\r\nC     FILL IN THE UPPER TRIANGLES OF THE MATRICES\r\nC\r\n      IF (KGG .LE. 0) GO TO 4010\r\n      MZ = IK\r\n      GO TO 4020\r\n 4010 IF (MGG .LE. 0) GO TO 4040\r\n      MZ = IM\r\n 4020 L  = NGG - 1\r\n      DO 4030 I = 1,L\r\n      J  = I + 1\r\n      DO 4030 K = J,NGG\r\n      M  = (I-1)*NGG + K + MZ - 1\r\n      N  = (K-1)*NGG + I + MZ - 1\r\n      Z(N) = Z(M)\r\n 4030 CONTINUE\r\n      IF (MZ .EQ. IK) GO TO 4010\r\nC\r\nC     PASS MATRICES TO EMGOUT\r\nC\r\n 4040 K = NGG**2\r\n      DICT(5) = 0\r\n      IF (KGG .GT. 0) CALL EMGOUT (Z(IK),Z(IK),K,1,DICT,1,2)\r\n      IF (MGG .GT. 0) CALL EMGOUT (Z(IM),Z(IM),K,1,DICT,3,2)\r\nC\r\nC     ALL DONE, NO ERRORS\r\nC\r\n 5000 RETURN\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE\r\nC\r\nC     TRANSFORM COORDINATE SYSTEM OF SYMMETRIC HALF OF A 3 BY 3 MATRIX\r\nC\r\n 6000 TK(1,1) = Z(NZ  )*Z(L  )  + Z(NZ+3)*Z(L+1)  + Z(NZ+6)*Z(L+2)\r\n      TK(2,1) = Z(NZ+1)*Z(L  )  + Z(NZ+4)*Z(L+1)  + Z(NZ+7)*Z(L+2)\r\n      TK(3,1) = Z(NZ+2)*Z(L  )  + Z(NZ+5)*Z(L+1)  + Z(NZ+8)*Z(L+2)\r\n      TK(1,2) = Z(NZ  )*Z(L+1)  + Z(NZ+3)*Z(M  )  + Z(NZ+6)*Z(M+1)\r\n      TK(2,2) = Z(NZ+1)*Z(L+1)  + Z(NZ+4)*Z(M  )  + Z(NZ+7)*Z(M+1)\r\n      TK(3,2) = Z(NZ+2)*Z(L+1)  + Z(NZ+5)*Z(M  )  + Z(NZ+8)*Z(M+1)\r\n      TK(1,3) = Z(NZ  )*Z(L+2)  + Z(NZ+3)*Z(M+1)  + Z(NZ+6)*Z(N  )\r\n      TK(2,3) = Z(NZ+1)*Z(L+2)  + Z(NZ+4)*Z(M+1)  + Z(NZ+7)*Z(N  )\r\n      TK(3,3) = Z(NZ+2)*Z(L+2)  + Z(NZ+5)*Z(M+1)  + Z(NZ+8)*Z(N  )\r\n      Z(L  )  = Z(NZ  )*TK(1,1) + Z(NZ+3)*TK(1,2) + Z(NZ+6)*TK(1,3)\r\n      Z(L+1)  = Z(NZ  )*TK(2,1) + Z(NZ+3)*TK(2,2) + Z(NZ+6)*TK(2,3)\r\n      Z(L+2)  = Z(NZ  )*TK(3,1) + Z(NZ+3)*TK(3,2) + Z(NZ+6)*TK(3,3)\r\n      Z(M  )  = Z(NZ+1)*TK(2,1) + Z(NZ+4)*TK(2,2) + Z(NZ+7)*TK(2,3)\r\n      Z(M+1)  = Z(NZ+1)*TK(3,1) + Z(NZ+4)*TK(3,2) + Z(NZ+7)*TK(3,3)\r\n      Z(N  )  = Z(NZ+2)*TK(3,1) + Z(NZ+5)*TK(3,2) + Z(NZ+8)*TK(3,3)\r\n      GO TO BACK, (2028,3100,3160)\r\nC\r\n 7100 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE',\r\n     1       ' ELEMENT MATRIX')\r\n 7200 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,3X,18HILLEGAL GEOMETRY, ,9A4)\r\n 7300 FORMAT (A23,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ',\r\n     1       'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ihexs.f",
    "content": "      SUBROUTINE IHEXS (TYPE)\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS ROUTINE PROCESSES IHEX1, IHEX2, AND IHEX3 ELEMENT DATA TO\r\nC     PRODUCE STIFFNESS AND MASS MATRICES.  IF THE HEAT TRANSFER OPTION\r\nC     IS ON, CONDUCTIVITY AND CAPACITY MATRICES ARE PRODUCED.  IF THE\r\nC     DISPLACEMENT VECTOR POINTER IS NON-ZERO, THE DIFFERENTIAL\r\nC     STIFFNESS MATRIX ONLY IS PRODUCED.\r\nC\r\nC           TYPE = 1    IHEX1\r\nC           TYPE = 2    IHEX2\r\nC           TYPE = 3    IHEX3\r\nC\r\nC           THE EST ENTRIES ARE\r\nC\r\nC     NAME  ----------INDEX----------   DESCRIPTION\r\nC            IHEX1    IHEX2    IHEX3\r\nC\r\nC     EID        1        1        1    ELEMENT ID NO.\r\nC     SIL      2-9     2-21     2-33    SCALAR INDEX LIST\r\nC     MID       10       22       34    MATERIAL ID NO.\r\nC     CID       11       23       35    MATERIAL COORD. SYSTEM ID NO.\r\nC     NIP       12       24       36    NO. INTEGRATION POINTS PER EDGE\r\nC     MAXAR     13       25       37    MAX ASPECT RATIO\r\nC     ALFA      14       26       38    MAX ANGLE FOR NORMALS\r\nC     BETA      15       27       39    MAX ANGLE FOR MIDSIDE POINTS\r\nC     BGPDT  16-47   28-107   40-167    BASIC GRID POINT DATA\r\nC     GPT    48-55  108-127  168-199    GRID POINT TEMPERATURES\r\nC\r\nC     - INSTALLATION NOTE --\r\nC     GPTLD IS SUPPOSED TO CONTAIN GRID POINT TEMPERATURE LOADS FOR\r\nC     COMPUTING DIFFERENTIAL STIFFNESS.  FOR INSTALLATION, GPTLD MUST\r\nC     BE LOADED WITH DATA BY EMG.  IF GPTLD(1)=-1, NO TEMP LOAD IS\r\nC     ASSUMED.\r\nC\r\n      LOGICAL          ANIS       ,RECT       ,TDEP       ,DIAG       ,\r\n     1                 MTDEP      ,HEAT1      ,NOGO       ,NOCSTM\r\n      INTEGER          HEAT       ,EID        ,SIL(1)     ,SCR4       ,\r\n     1                 TYPE       ,JZ(1)      ,CID        ,IEST(1)    ,\r\n     2                 BCORD      ,BGPDT      ,GPT        ,NC(8)      ,\r\n     3                 EDGE       ,FACE       ,IB(46)     ,ELNO(3)    ,\r\n     4                 EXCD(3)    ,TWINS(9)   ,RVRS(5)    ,IWORK(1)   ,\r\n     5                 BACK       ,OTPT       ,UGV        ,CDAMP      ,\r\n     6                 DICT(40)\r\n      REAL             NU         ,KHEAT      ,MAXAR      ,DMAXAR(3)  ,\r\n     1                 DALFA(3)   ,DBETA(2)   ,EVEC(3,12) ,WORK(66)   ,\r\n     2                 VN(3,2)    ,GPTLD(32)  ,BCD2(3)    ,JACOB(3,3)\r\n      DIMENSION        Z(1)       ,S(4)       ,H(4)       ,GAUSS(8)   ,\r\n     1                 PART(3,3)  ,TF(3,3)    ,TK(3,3)    ,SIG(6)     ,\r\n     2                 STR(18)    ,C(3,3)     ,GMAT(36)   ,DALPHA(6)  ,\r\n     3                 STORE(45)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /MATIN/   MID        ,INFLAG     ,TEMP\r\n      COMMON /MATOUT/  E          ,G          ,NU         ,RHO        ,\r\n     1                 TALPHA     ,TREF       ,CDAMP      ,SPACE(18)  ,\r\n     3                 MTDEP\r\n      COMMON /MATISO/  BUFM6(46)\r\nC     OMMON  /MATISO/  G11,G12,G13,...,G46,G56,G66,RHO,AXX,AYY,AZZ,AXY,\r\nC                      AYZ,AZX,TREF,GE,IER\r\n      COMMON /BLANK /  SKIP16(16) ,VOLUME     ,SURFAC\r\n      COMMON /HMTOUT/  KHEAT(6)   ,CP\r\nC     COMMON /EMG***/  ...,UGV,...\r\nC\r\nC     - INSTALLATION NOTE --\r\nC     UGV POINTS TO BEGINNING OF SINGLE PRECISION GLOBAL DISPLACEMENT\r\nC     VECTOR IN OPEN CORE ARRAY RZ.\r\nC\r\n      COMMON /EMGPRM/  IEXT       ,IZS        ,NZS         ,DUM(12)   ,\r\n     1                 KGG1       ,MGG1       ,BGG1        ,IPREC     ,\r\n     2                 NOGO       ,HEAT1\r\nC\r\nC     RZ IS OPEN CORE.  USE ONLY RZ(IZS) TO RZ(NZS).\r\nC\r\n      COMMON /ZZZZZZ/  RZ(1)\r\n      COMMON /EMGEST/  EST(200)\r\n      COMMON /SYSTEM/  SYSBUF     ,OTPT       ,SYS1(7)    ,MTEMP\r\n      COMMON /EMGDIC/  SPAC(2)    ,NGRIDS     ,SPAC1      ,IESTID\r\n      EQUIVALENCE      (Z(1),JZ(1),RZ(1))     ,(EID,EST(1),IEST(1))   ,\r\n     1                 (SIL(1),EST(2))        ,(WORK(1),IWORK(1))     ,\r\n     2                 (SIG(1),SX)            ,(SIG(2),SY)            ,\r\n     3                 (SIG(3),SZ)            ,(SIG(4),SXY)           ,\r\n     4                 (SIG(5),SYZ)           ,(SIG(6),SZX)           ,\r\n     5                 (DSTLD,IDSTLD)\r\n      EQUIVALENCE      (WORK(1),EVEC(1,1))    ,(WORK(37),VN(1,1))     ,\r\n     1                 (WORK(43),NC(1))\r\n      EQUIVALENCE      (WORK(1),JACOB(1,1))   ,(WORK(19),H(1))        ,\r\n     1                 (WORK(27),S(1))        ,(WORK(35),PART(1,1))   ,\r\n     2                 (WORK(53),SIG(1))      ,(WORK(1),C(1,1))\r\n      EQUIVALENCE      (WORK(1),TF(1,1))      ,(WORK(35),TK(1,1))\r\n      EQUIVALENCE      (IB(1),BUFM6(1))\r\n      DATA    SCR4  /  304 /\r\n      DATA    BCD1  ,  BCD2/ 4HCIHE, 4HX1  , 4HX2  , 4HX3   /\r\n      DATA    DMAXAR,  DALFA,DBETA / 5.0   ,10.0   ,15.0    ,\r\n     1                               45.0  ,45.0   ,45.0    ,\r\n     2                                      45.0   ,45.0    /\r\n      DATA    DTOR  ,  GAUSS  /0.01745329251994,\r\n     1                         0.57735026918962,\r\n     2                         0.55555555555555,\r\n     3                         0.77459666924148,\r\n     4                         0.88888888888889,\r\n     5                         0.34785484513745,\r\n     6                         0.86113631159405,\r\n     7                         0.65214515486254,\r\n     8                         0.33998104358485/\r\n      DATA    IHEX,ELNO       /4HIHEX,4H ELE,4HMENT,4H NO./\r\n      DATA    BAR,BALFA,BBETA /4H  AR,4HALFA,4HBETA/\r\n      DATA    EXCD            /4H EXC,4HEEDE,4HD.  /\r\n      DATA    RVRS            /4HREVE,4HRSED,4H NUM,4HBERI,4HNG. /\r\n      DATA    TWINS           /4HCOOR,4HDINA,4HTES ,4HOF T,4HWO P,\r\n     1                         4HOINT,4HS AR,4HE SA,4HME. /\r\n      DATA    NERR1,NERR2     /3301, 3302 /\r\nC\r\nC     IZ AND NZ ARE OPEN CORE POINTERS\r\nC\r\n      IZ = IZS\r\n      NZ = NZS\r\nC\r\nC     THIS ROUTINE OPERATES IN DOUBLE PRECISION.\r\nC     EMGOUT WILL PRODUCE THE REQUIRED MATRIX IN THE REQUESTED PRECISION\r\nC\r\nC     ALLOCATE LARGE ARRAYS IN OPEN CORE\r\nC\r\n      NGP  = 12*TYPE - 4\r\n      HEAT = 0\r\n      KGG  = 0\r\n      MGG  = 0\r\n      IF (HEAT1) HEAT = 1\r\n      IF (KGG1 .NE. 0) KGG = 1\r\n      IF (MGG1 .NE. 0) MGG = 1\r\n      NGRIDS = NGP\r\n      UGV  = 0\r\n      NGG  = 3*NGP\r\n      DICT(1) = IESTID\r\n      DICT(2) = 1\r\n      IF (.NOT.HEAT1) GO TO 5\r\n      DICT(3) = NGP\r\n      DICT(4) = 1\r\n      GO TO 30\r\n    5 DICT(3) = NGG\r\n      DICT(4) = 7\r\n      IF (KGG .LE. 0) GO TO 10\r\n      IK = IZ + 3*NGG\r\n      NK = IK - 1 + (NGG+1)*NGG/2\r\n      GO TO 20\r\n   10 IK = IZ\r\n      NK = IK + 3*NGG - 1\r\n      IM = NK + 1\r\n      NM = (NGP+1)*NGP/2 + NK\r\n      GO TO 40\r\n   20 NM = NK\r\n      IF (MGG .LE. 0) GO TO 40\r\n      IM = NK + 1\r\n      NM = NK + (NGP+1)*NGP/2\r\n      GO TO 40\r\n   30 IK = IZ + 17\r\n      NK = IK - 1 + NGP**2\r\n      IM = NK + 1\r\n      NM = IM - 1 + NGP**2\r\n      NGG= NGP\r\n   40 IN = NM + 1\r\n      IG = IN + NGP\r\n      IX = IG + 3*NGP\r\n      ND = NM + 9*NGP\r\n      IF (UGV .EQ. 0) GO TO 50\r\n      ID = ND + 1\r\n      ND = ID + NGG - 1\r\n   50 IF (ND .LE. NZ) GO TO 100\r\n      WRITE (OTPT,7100) UFM,NERR1,IHEX,TYPE,ELNO,EID\r\n      NOGO = .TRUE.\r\nC\r\nC     ***** OPEN CORE MAP *****\r\nC\r\nC     DOUBLE PRECISION Z(1)\r\nC     COMMON /EMGZZZ/  Z\r\nC\r\nC     NGG = ORDER OF ELEMENT MATRIX\r\nC\r\nC     INDEX      STIFFNESS             MASS                HEAT\r\nC                AND MASS              ONLY              TRANSFER\r\nC\r\nC     IZ    NGG BY 3 PARTITION  NGG BY 3 PARTITION  FOUR WORD COORDINATE\r\nC           OF MATRIX           OF MATRIX           VECTOR.  INPUT TO\r\nC                                                   TRANSD\r\nC\r\nC     IZ+2                                          TRANSFORMED THERMAL\r\nC                                                   CONDUCTANCE MATRIX\r\nC\r\nC     IT                                            MATERIAL TRANSFOR-\r\nC                                                   MATION MATRIX\r\nC\r\nC     IK    SYMMETRIC HALF OF   SAME AS IZ          FULL CONDUCTANCE\r\nC           STIFFNESS\r\nC\r\nC     IM    SYMMETRIC HALF OF   SYMMETRIC HALF OF   FULL CAPACITANCE\r\nC           MASS                MASS\r\nC\r\nC     IN    --------------------SHAPE FUNCTIONS-------------------------\r\nC\r\nC     IG    --------------------D(SHAPE)/D(GREEK)-----------------------\r\nC\r\nC     IX    --------------------D(SHAPE)/D(BASIC XYZ)-------------------\r\nC\r\nC     ID    DISPLACEMENT\r\nC           VECTOR IN BASIC\r\nC           COORDINATES\r\nC\r\nC     CHECK GEOMETRY.  THE FOLLOWING CHECKS ARE MADE\r\nC           1.  ASPECT RATIO\r\nC           2.  ANGLES BETWEEN NORMALS OF SUB-TRIANGLES ON EACH FACE\r\nC           3.  ANGLES BETWEEN VECTORS BETWEEN POINTS ALONG EACH EDGE\r\nC           4.  REVERSE SEQUENCING\r\nC           5.  DUPLICATE COORDINATE VALUES\r\nC\r\nC     FETCH EPT DATA, COMPUTE EST POINTERS\r\nC\r\n  100 MID  = 10 + 12*(TYPE-1)\r\n      CID  = IEST(MID+1)\r\n      NIP  = IEST(MID+2)\r\n      MAXAR= EST(MID+3)\r\n      ALFA = EST(MID+4)\r\n      BETA = EST(MID+5)\r\n      BGPDT= MID + 6\r\n      GPT  = BGPDT + NGP*4\r\n      MID  = IEST(MID)\r\n      IF (NIP.LT.2 .OR. NIP.GT.4) NIP = TYPE/2 + 2\r\n      IF (MAXAR .LE. 0.0) MAXAR = DMAXAR(TYPE)\r\n      IF (ALFA  .LT. 0.0) ALFA  = DALFA(TYPE)\r\n      IF (BETA.LT.0.0 .AND. TYPE.NE.1) BETA = DBETA(TYPE-1)\r\n      ALFA = COS(DTOR*ALFA)\r\n      BETA = COS(DTOR*BETA)\r\n      IF (UGV .EQ. 0) GO TO 105\r\nC\r\nC     TRANSFORM DISPLACEMENT VECTOR TO BASIC COORDINATES\r\nC     MULTIPLY BY 1/4 TO AVOID MULTIPLYING STRAIN-DISPLACEMENT\r\nC     RELATIONS BY 1/2 UNDER THE INTEGRAL.  DITTO FOR LOADING TEMP-S.\r\nC\r\n      DSTLD = GPTLD(1)\r\n      DO 104 I = 1,NGP\r\n      M = BGPDT + 4*I - 4\r\n      J = UGV + SIL(I) - 1\r\n      K = ID + 3*I - 3\r\n      IF (IEST(M) .EQ. 0) GO TO 102\r\n      CALL TRANSS (EST(M),TK)\r\n      DO 101 L = 1,3\r\n  101 Z(IZ+L-1) = RZ(J+L-1)*0.25\r\n      CALL GMMATS (TK,3,3,0,Z(IZ),3,1,0,Z(N))\r\n      GPTLD(I) = 0.25*GPTLD(I)\r\n      GO TO 104\r\n  102 DO 103 L = 1,3\r\n  103 Z(N+L-1) = RZ(J+L-1)*0.25\r\n      GPTLD(I) = 0.25*GPTLD(I)\r\n  104 CONTINUE\r\nC\r\nC     REARRANGE BGPDT\r\nC\r\n  105 DO 110 I = 1,NGP\r\n  110 JZ(IZS+I) = IEST(BGPDT+I*4-4)\r\n      BCORD = GPT - 3\r\n      DO 120 I = 2,NGP\r\n      DO 120 J = 1,3\r\n      K = BGPDT + 4*(NGP-I) + 4 - J\r\n      BCORD = BCORD - 1\r\n      EST(BCORD) = EST(K)\r\n  120 CONTINUE\r\n      DO 130 I = 2,NGP\r\n  130 IEST(BGPDT+I-1) = JZ(IZS+I)\r\nC\r\nC     IF COMPUTING DIFFERENTIAL STIFFNESS, SKIP CHECKS\r\nC\r\n      IF (UGV .GT. 0) GO TO 500\r\nC\r\nC     FIND 8 POINTERS TO CORNER COORDINATES IN EST\r\nC\r\nC     EDGE        CORNERS\r\nC       1         1     2\r\nC       2         2     3\r\nC       3         3     4\r\nC       4         4     1\r\nC       5         1     5\r\nC       6         2     6\r\nC       7         3     7\r\nC       8         4     8\r\nC       9         5     6\r\nC      10         6     7\r\nC      11         7     8\r\nC      12         8     5\r\nC\r\n      NC(1) = BCORD\r\n      J = 3*TYPE\r\n      GO TO (140,150,160), TYPE\r\n  140 NC(5) = BCORD + 12\r\n      GO TO 170\r\n  150 NC(5) = BCORD + 36\r\n      GO TO 170\r\n  160 NC(5) = BCORD + 60\r\n  170 DO 180 I = 2,4\r\n      NC(I  ) = NC(I-1) + J\r\n  180 NC(I+4) = NC(I+3) + J\r\nC\r\nC     COMPUTE 12 EDGE VECTORS, FIND SMALLEST AND LARGEST MAGNITUDES\r\nC\r\n      I = 0\r\n      J = 1\r\n      SMAG = 1.0E+20\r\n      BMAG = 0.0\r\n      DO 250 EDGE = 1,12\r\n      GO TO (190,190,190,200,210,190,190,190,220,190,190,200), EDGE\r\n  190 I = I + 1\r\n      J = J + 1\r\n      L = NC(I) - 1\r\n      M = NC(J) - 1\r\n      GO TO 230\r\n  200 L = M\r\n      M = NC(J-3) - 1\r\n      GO TO 230\r\n  210 I = 0\r\n      J = 4\r\n      GO TO 190\r\n  220 I = 4\r\n      J = 5\r\n      GO TO 190\r\n  230 TMAG = 0.0\r\n      DO 240 K = 1,3\r\n      EVEC(K,EDGE) = EST(M+K) - EST(L+K)\r\n  240 TMAG = TMAG + EVEC(K,EDGE)**2\r\n      IF (TMAG .LT. SMAG) SMAG = TMAG\r\n      IF (TMAG .GT. BMAG) BMAG = TMAG\r\n  250 CONTINUE\r\nC\r\nC     CHECK ASPECT RATIO\r\nC\r\n      IF (SMAG .GT. 0.0) GO TO 260\r\n      SMAG = 1.0E-10\r\n  260 IF (BMAG/SMAG .LE. MAXAR**2) GO TO 265\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BAR,EXCD\r\n      NOGO = .TRUE.\r\nC\r\nC     CHECK ANGLES BETWEEN FACE NORMALS\r\nC\r\nC     FACE              CORNERS\r\nC       1         1     4     3     2\r\nC       2         1     2     6     5\r\nC       3         2     3     7     6\r\nC       4         3     4     8     7\r\nC       5         4     1     5     8\r\nC       6         5     6     7     8\r\nC\r\n  265 DO 350 FACE = 1,6\r\n      GO TO (270,280,290,290,300,310), FACE\r\n  270 I = 1\r\n      J = 4\r\n      K = 3\r\n      L = 2\r\n      GO TO 320\r\n  280 I = 1\r\n      J = 6\r\n      K = 9\r\n      L = 5\r\n      GO TO 320\r\n  290 I = I + 1\r\n      J = J + 1\r\n      K = K + 1\r\n      L = L + 1\r\n      GO TO 320\r\n  300 I = 4\r\n      J = 5\r\n      K = 12\r\n      L = 8\r\n      GO TO 320\r\n  310 I = 12\r\n      J = 9\r\n      K = 10\r\n      L = 11\r\n  320 DO 340 N = 1,2\r\n      VN(1,1) = EVEC(2,I)*EVEC(3,J) - EVEC(3,I)*EVEC(2,J)\r\n      VN(2,1) = EVEC(3,I)*EVEC(1,J) - EVEC(1,I)*EVEC(3,J)\r\n      VN(3,1) = EVEC(1,I)*EVEC(2,J) - EVEC(2,I)*EVEC(1,J)\r\n      VN(1,2) = EVEC(2,K)*EVEC(3,L) - EVEC(3,K)*EVEC(2,L)\r\n      VN(2,2) = EVEC(3,K)*EVEC(1,L) - EVEC(1,K)*EVEC(3,L)\r\n      VN(3,2) = EVEC(1,K)*EVEC(2,L) - EVEC(2,K)*EVEC(1,L)\r\n      SMAG = 0.0\r\n      BMAG = 0.0\r\n      TMAG = 0.0\r\n      DO 330 M = 1,3\r\n      SMAG = SMAG + VN(M,1)**2\r\n      BMAG = BMAG + VN(M,2)**2\r\n  330 TMAG = VN(M,1)*VN(M,2) + TMAG\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 335\r\nC\r\nC     EPSILON INTRODUCED TO OVERCOME ROUNDOUT ERROR\r\nC\r\n      IF (TMAG/SMAG .GE. 0.99*ALFA) GO TO 335\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BALFA,EXCD\r\n      NOGO = .TRUE.\r\n  335 M = I\r\n      I = L\r\n      L = K\r\n      K = J\r\n      J = M\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC     CHECK MID-EDGE POINTS\r\nC\r\n      IF (TYPE .EQ. 1) GO TO 455\r\n      M = 1\r\n      DO 450 EDGE = 1,12\r\n      GO TO (370,370,370,370,380,390,390,390,400,370,370,370), EDGE\r\n  370 I = NC(M)\r\n      J = I + 3\r\n      K = J + 3\r\n      L = K + 3\r\n      M = M + 1\r\n      IF (EDGE.NE.4 .AND. EDGE.NE.12) GO TO 410\r\n      IF (TYPE .EQ. 2) K = NC(M-4)\r\n      IF (TYPE .EQ. 3) L = NC(M-4)\r\n      GO TO 410\r\n  380 M = 0\r\n  390 M = M + 1\r\n      I = NC(M)\r\n      J = I + 12*TYPE - 3*(M-1)*(TYPE-1)\r\n      K = J + 12\r\n      K = K + 3*(M-1)*(3-TYPE)\r\n      L = NC(M+4)\r\n      GO TO 410\r\n  400 M = 5\r\n      GO TO 370\r\n  410 SMAG = 0.0\r\n      BMAG = 0.0\r\n      TMAG = 0.0\r\n      DO 420 N = 1,3\r\n      VN(N,1) = EST(J+N-1) - EST(I+N-1)\r\n      VN(N,2) = EST(K+N-1) - EST(J+N-1)\r\n      TMAG = TMAG + VN(N,1)*VN(N,2)\r\n      SMAG = SMAG + VN(N,1)**2\r\n  420 BMAG = BMAG + VN(N,2)**2\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 430\r\n      IF (TMAG/SMAG .GE. BETA) GO TO 430\r\n      GO TO 445\r\n  430 IF (TYPE .EQ. 2) GO TO 450\r\n      TMAG = 0.0\r\n      SMAG = 0.0\r\n      DO 440 N = 1,3\r\n      VN(N,1) = EST(L+N-1) - EST(K+N-1)\r\n      TMAG = TMAG + VN(N,1)*VN(N,2)\r\n  440 SMAG = SMAG + VN(N,1)**2\r\n      SMAG = SQRT(SMAG*BMAG)\r\n      IF (SMAG .EQ. 0.0) GO TO 450\r\n      IF (TMAG/SMAG .GE. BETA) GO TO 450\r\n  445 WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,BBETA,EXCD\r\n      NOGO = .TRUE.\r\n  450 CONTINUE\r\nC\r\nC     CHECK FOR LEFT-HANDED ELEMENT COORDINATE SYSTEM\r\nC\r\nC     VOL = EVEC(5)*(EVEC(1) X -EVEC(4))\r\nC\r\n  455 VN(1,1) = EVEC(2,4)*EVEC(3,1) - EVEC(3,4)*EVEC(2,1)\r\n      VN(2,1) = EVEC(3,4)*EVEC(1,1) - EVEC(1,4)*EVEC(3,1)\r\n      VN(3,1) = EVEC(1,4)*EVEC(2,1) - EVEC(2,4)*EVEC(1,1)\r\n      TMAG    = 0.0\r\n      DO 460 I = 1,3\r\n  460 TMAG = TMAG + EVEC(I,5)*VN(I,1)\r\n      IF (TMAG .GT. 0.0) GO TO 470\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,RVRS\r\n      NOGO = .TRUE.\r\nC\r\nC     CHECK FOR DUPLICATE COORDINATE VALUES\r\nC\r\n  470 L = NGP - 1\r\n      DO 490 I = 1,L\r\n      M = BCORD + 3*(I-1)\r\n      K = I + 1\r\n      DO 480 J = K,NGP\r\n      N = BCORD + 3*(J-1)\r\n      IF (EST(M  ) .NE. EST(N  )) GO TO 480\r\n      IF (EST(M+1) .NE. EST(N+1)) GO TO 480\r\n      IF (EST(M+2) .NE. EST(N+2)) GO TO 480\r\n      WRITE (OTPT,7200) UFM,NERR2,IHEX,TYPE,ELNO,EID,TWINS\r\n      NOGO = .TRUE.\r\n  480 CONTINUE\r\n  490 CONTINUE\r\nC\r\nC     IF NOGO FLAG ON, DON T COMPUTE ELEMENT MATRICES\r\nC\r\n      IF (NOGO) RETURN\r\nC\r\nC     INITIALIZE FOR NUMERICAL INTEGRATION\r\nC\r\nC     ABSCISSAE AND WEIGHT COEFFICIENTS FOR GAUSSIAN QUADRATURE\r\nC\r\n  500 I = NIP - 1\r\n      GO TO (510,520,530), I\r\n  510 H(1) = 1.0\r\n      S(1) = GAUSS(1)\r\n      H(2) = 1.0\r\n      S(2) =-GAUSS(1)\r\n      GO TO 540\r\n  520 H(1) = GAUSS(2)\r\n      S(1) = GAUSS(3)\r\n      H(2) = GAUSS(4)\r\n      S(2) = 0.0\r\n      H(3) = GAUSS(2)\r\n      S(3) =-GAUSS(3)\r\n      GO TO 540\r\n  530 H(1) = GAUSS(5)\r\n      S(1) = GAUSS(6)\r\n      H(2) = GAUSS(7)\r\n      S(2) = GAUSS(8)\r\n      H(3) = GAUSS(7)\r\n      S(3) =-GAUSS(8)\r\n      H(4) = GAUSS(5)\r\n      S(4) =-GAUSS(6)\r\nC\r\nC     GENERATE TABLE OF EQUIVALENTS IN SIL ARRAY SO MATRIX WILL BE\r\nC     ORDERED ACCORDING TO INCREASING SIL NUMBERS\r\nC\r\n  540 I = -NGP\r\n  545 J =  0\r\n      DO 560 K = 1,NGP\r\n      IF (SIL(K) .LT. J) GO TO 560\r\n      J = SIL(K)\r\n      L = K\r\n  560 CONTINUE\r\n      SIL(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 545\r\n      DO 570 I = 1,NGP\r\n  570 SIL(I) = -SIL(I)\r\nC\r\nC     NOW SIL(I) = PARTITION NUMBER OF ELEMENT GRID POINT I\r\nC\r\nC     ZERO OUT OPEN CORE FOR MATRIX SUMMATION\r\nC\r\n      DO 580 I = IK,NM\r\n  580 Z(I) = 0.0\r\nC\r\nC     BRANCH ON HEAT TRANSFER FLAG\r\nC\r\n      IF (HEAT .EQ. 1) GO TO 3000\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     =============================================================\r\nC     THIS SECTION OF CODE MUST BE UPDATED WHEN GENERAL ANISOTROPIC\r\nC     MATERIAL IS ADDED.\r\nC\r\nC     TEST FOR ANISOTROPIC MATERIAL\r\nC\r\n      INFLAG = 10\r\n      ANIS   =.FALSE.\r\nC\r\nC     TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH THE ANISOTROPIC\r\nC     MATERIAL IS DEFINED\r\nC\r\n      RECT = .TRUE.\r\nC     ===============================================================\r\nC\r\nC     CHECK FOR TEMPERATURE DEPENDENCE\r\nC\r\n      TDEP = .TRUE.\r\n      DO 610 I = 2,NGP\r\n      IF (EST(GPT) .NE. EST(GPT+I-1)) GO TO 630\r\n  610 CONTINUE\r\n      TDEP = .FALSE.\r\n  630 TEMP = EST(GPT)\r\n      CALL MAT (EID)\r\n      IF (.NOT.MTDEP) TDEP = .FALSE.\r\n      IF (IB(46) .EQ. 6) ANIS = .TRUE.\r\n      IF (KGG .LE. 0) GO TO 1000\r\nC\r\nC     IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS\r\nC\r\n      IF (ANIS .OR. TDEP) GO TO 1000\r\n      IF (IB(46) .NE.  0) GO TO 640\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\nC     SET UP FOR EASY MULTIPLICATION IF MATERIALS ARE ON MAT1\r\nC\r\n  640 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\nC\r\nC     ============================================================\r\nC     CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL PROPERTIES TO\r\nC     BASIC COORDINATE SYSTEM MUST BE ADDED HERE.\r\nC     ============================================================\r\nC\r\nC     ALL SET TO BEGIN INTEGRATION LOOPS.  DO IT.\r\nC\r\n 1000 TVOL = 0.0\r\n      DO 2000 I = 1,NIP\r\n      DO 2000 J = 1,NIP\r\n      DO 2000 K = 1,NIP\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSS (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     1             EST(BCORD))\r\n      IF (DETJ .NE. 0.0) GO TO 1010\r\nC\r\nC     BAD ELEMENT IF FALL HERE.  JACOBIAN MATRIX WAS SINGULAR.\r\nC\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 1010 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      TVOL  = TVOL + SFACT\r\n      IF (KGG .LE. 0) GO TO 1015\r\nC\r\nC     STIFFNESS\r\nC\r\nC     COMPUTE STRAIN-DISPLACEMENT RELATIONS\r\nC\r\nC     MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS\r\nC\r\n      CALL GMMATS (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX))\r\nC\r\nC     IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE\r\nC     AT THIS INTEGRATION POINT AND FETCH MATERIAL PROPERTIES AGAIN\r\nC\r\n 1015 IF (.NOT. TDEP) GO TO 1030\r\n      TEMP = 0.0\r\n      DO 1020 L = 1,NGP\r\n 1020 TEMP = TEMP + Z(IN+L-1)*EST(GPT+L-1)\r\n      CALL MAT (EID)\r\n      IF (KGG .LE. 0) GO TO 1100\r\n      IF (ANIS) GO TO 1040\r\n      IF (IB(46) .NE. 0) GO TO 1025\r\n      WRITE (OTPT,7300) UFM,MID,EID\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 1025 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      GO TO 1100\r\n 1030 IF (KGG .LE. 0) GO TO 1100\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGULAR COOR-\r\nC     DINATE SYSTEM, MUST TRANSFORM TO BASIC COORDINATE SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC     IN THIS VERSION, ANISOTROPIC MATERIAL SYSTEMS MUST BE RECTANGULAR.\r\nC     THEREFORE, NO FURTHER TRANSFORMATIONS ARE NECESSARY\r\nC\r\nC\r\nC     ================================================================\r\nC     THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS\r\nC     ADDED\r\nC\r\n      IF (.NOT.ANIS) GO TO 1100\r\n 1040 CONTINUE\r\nC\r\nC     INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR\r\nC     ANISOTROPIC MATERIAL MATRIX\r\nC     =============+==================================================\r\nC\r\n      DO 1041 IJK = 1,36\r\n 1041 GMAT(IJK) = BUFM6(IJK)\r\n      IF (RECT) GO TO 1100\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN\r\nC     FALL HERE.\r\nC\r\n 1100 IF (UGV .EQ. 0) GO TO 1170\r\nC\r\nC     COMPUTE STRESSES FOR DIFFERENTIAL STIFFNESS MATRIX\r\nC\r\nC     THERMAL EFFECTS\r\nC\r\n      IF (IDSTLD .EQ. -1) GO TO 1120\r\n      TEMP = 0.0\r\n      DO 1110 L = 1,NGP\r\n 1110 TEMP = TEMP + Z(IN+L-1)*GPTLD(L)\r\n      TEMP = TEMP - TREF\r\n      IF (ANIS) GO TO 1115\r\n      SIG(1) =-TALPHA*(E1+2.0*E2)*TEMP\r\n      SIG(2) = SIG(1)\r\n      SIG(3) = SIG(1)\r\n      SIG(4) = 0.0\r\n      SIG(5) = 0.0\r\n      SIG(6) = 0.0\r\n      GO TO 1140\r\nC     ===========================================================\r\n 1115 CONTINUE\r\nC\r\nC     ADD THERMAL STRESS COMPUTATIONS FOR ANISOTROPIC MATERIAL\r\nC\r\nC     STORE ALPHA IN DOUBLE PRECISION\r\nC\r\n      DO 1116 IJK = 1,6\r\n 1116 DALPHA(IJK) = BUFM6(IJK+37)\r\nC\r\n      CALL GMMATS (GMAT,6,6,0, DALPHA,6,1,0,SIG)\r\n      DO 1117 IJK = 1,6\r\n 1117 SIG(IJK) = -SIG(IJK)*TEMP\r\n      GO TO 1140\r\nC     ===========================================================\r\n 1120 DO 1130 L = 1,6\r\n 1130 SIG(L) = 0.0\r\nC\r\nC     DISPLACEMENT EFFECTS, COMPUTE STRESS MATRIX AND MULTIPLY BY DISPL.\r\nC\r\n 1140 STR(12) = 0.0\r\n      STR(13) = 0.0\r\n      STR(17) = 0.0\r\n      DO 1160 L = 1,NGP\r\n      II = IX + 3*L - 4\r\n      IF (ANIS) GO TO 1145\r\n      STR( 1) = E1*Z(II+1)\r\n      STR( 2) = E2*Z(II+2)\r\n      STR( 3) = E2*Z(II+3)\r\n      STR( 4) = E2*Z(II+1)\r\n      STR( 5) = E1*Z(II+2)\r\n      STR( 6) = E2*Z(II+3)\r\n      STR( 7) = E2*Z(II+1)\r\n      STR( 8) = E2*Z(II+2)\r\n      STR( 9) = E1*Z(II+3)\r\n      STR(10) = E3*Z(II+2)\r\n      STR(11) = E3*Z(II+1)\r\n      STR(14) = E3*Z(II+3)\r\n      STR(15) = E3*Z(II+2)\r\n      STR(16) = E3*Z(II+3)\r\n      STR(18) = E3*Z(II+1)\r\n      GO TO 1150\r\nC     =========================================================\r\nC\r\n 1145 CONTINUE\r\nC\r\nC     ADD STRESS MATRIX COMPUTATION FOR ANISOTROPIC MATERIAL\r\nC\r\n      DO 1146 IJK = 1,18\r\n 1146 STORE(IJK) = 0.\r\n      STORE( 1) = Z(II+1)\r\n      STORE( 5) = Z(II+2)\r\n      STORE( 9) = Z(II+3)\r\n      STORE(10) = Z(II+2)\r\n      STORE(11) = Z(II+1)\r\n      STORE(14) = Z(II+3)\r\n      STORE(15) = Z(II+2)\r\n      STORE(16) = Z(II+3)\r\n      STORE(18) = Z(II+1)\r\nC\r\n      CALL GMMATS (GMAT,6,6,0,STORE(1),6,3,0,STR)\r\nC\r\nC     ============================================================\r\nC\r\n 1150 CALL GMMATS (STR,6,3,-2,Z(ID+3*L-3),3,1,0,SIG)\r\n 1160 CONTINUE\r\n      STR(1) = SX\r\n      SX = SX + SY\r\n      SY = SY + SZ\r\n      SZ = SZ + STR(1)\r\nC\r\nC     NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS\r\nC\r\n 1170 DO 1400 N = 1,NGP\r\n      DO 1400 M = N,NGP\r\nC\r\nC     COMPUTE PARTITION FOR POINTWISE ROW M AND COLUMN N\r\nC\r\n      IF (KGG .LE. 0) GO TO 1300\r\n      IF (.NOT.ANIS ) GO TO 1200\r\nC\r\nC     =================================================================\r\nC     MUST ADD CODE TO COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX\r\nC     FOR ANISOTROPIC MATERIAL HERE\r\nC     =================================================================\r\nC\r\n 1200 IF (SIL(M) .GE. SIL(N)) GO TO 1210\r\nC\r\nC     MUST COMPUTE TRANSPOSE OF THIS PARTITION FOR SUMMATION IN ELEMENT\r\nC     MATRIX\r\nC\r\n      MZ = IX + (N-1)*3\r\n      NZ = IX + (M-1)*3\r\n      GO TO 1220\r\n 1210 MZ = IX + (M-1)*3\r\n      NZ = IX + (N-1)*3\r\n 1220 IF (UGV .EQ. 0) GO TO 1222\r\nC\r\nC     DIFFERENTIAL STIFFNESS\r\nC\r\n      DO 1221 L = 1,3\r\n      DO 1221 INC = 1,3\r\n 1221 C(L,INC) = Z(MZ+INC-1)*Z(NZ+L-1)\r\n      PART(1,1) = SX*C(2,2) + SYZ*(C(2,3)+C(3,2)) + SZ*C(3,3)\r\n      PART(2,2) = SY*C(3,3) + SZX*(C(3,1)+C(1,3)) + SX*C(1,1)\r\n      PART(3,3) = SZ*C(1,1) + SXY*(C(1,2)+C(2,1)) + SY*C(2,2)\r\n      PART(2,1) =-SX*C(2,1) + SXY*C(3,3) -SYZ*C(1,3) - SZX*C(2,3)\r\n      PART(3,1) =-SZ*C(3,1) - SXY*C(3,2) -SYZ*C(2,1) + SZX*C(2,2)\r\n      PART(1,2) =-SX*C(1,2) + SXY*C(3,3) -SYZ*C(3,1) - SZX*C(3,2)\r\n      PART(3,2) =-SY*C(3,2) - SXY*C(3,1) +SYZ*C(1,1) - SZX*C(1,2)\r\n      PART(1,3) =-SZ*C(1,3) - SXY*C(2,3) -SYZ*C(1,2) + SZX*C(2,2)\r\n      PART(2,3) =-SY*C(2,3) - SXY*C(1,3) +SYZ*C(1,1) - SZX*C(2,1)\r\n      GO TO 1228\r\nC\r\nC     ELASTIC STIFFNESS\r\nC\r\n 1222 IF (.NOT.ANIS) GO TO 1226\r\nC\r\nC     STORE CI MATRIX\r\nC\r\n      DO 1223 IJK = 1,18\r\n 1223 STORE(IJK) = 0.\r\n      STORE( 1) = Z(MZ  )\r\n      STORE( 4) = Z(MZ+1)\r\n      STORE( 6) = Z(MZ+2)\r\n      STORE( 8) = Z(MZ+1)\r\n      STORE(10) = Z(MZ  )\r\n      STORE(11) = Z(MZ+2)\r\n      STORE(15) = Z(MZ+2)\r\n      STORE(17) = Z(MZ+1)\r\n      STORE(18) = Z(MZ  )\r\nC\r\n      CALL GMMATS (STORE(1),3,6,0,GMAT(1),6,6,0,STORE(19))\r\nC\r\nC     STORE CJ\r\nC\r\n      DO 1224 IJK = 1,18\r\n 1224 STORE(IJK) = 0.\r\n      STORE( 1) = Z(NZ  )\r\n      STORE( 5) = Z(NZ+1)\r\n      STORE( 9) = Z(NZ+2)\r\n      STORE(10) = Z(NZ+1)\r\n      STORE(11) = Z(NZ  )\r\n      STORE(14) = Z(NZ+2)\r\n      STORE(15) = Z(NZ+1)\r\n      STORE(16) = Z(NZ+2)\r\n      STORE(18) = Z(NZ  )\r\nC\r\n      CALL GMMATS (STORE(19),3,6,0,STORE(1),6,3,0,STORE(37))\r\n      IJKL = 0\r\n      DO 1225 IJK = 1,3\r\n      DO 1225 IJL = 1,3\r\n      IJKL = IJKL + 1\r\n      PART(IJK,IJL) = STORE(IJKL+36)\r\n 1225 CONTINUE\r\n      GO TO 1228\r\n 1226 PART(1,1) = E1*Z(NZ)*Z(MZ) + E3*(Z(NZ+1)*Z(MZ+1) +Z(NZ+2)*Z(MZ+2))\r\n      PART(2,2) = E1*Z(NZ+1)*Z(MZ+1) + E3*(Z(NZ)*Z(MZ) +Z(NZ+2)*Z(MZ+2))\r\n      PART(3,3) = E1*Z(NZ+2)*Z(MZ+2) + E3*(Z(NZ)*Z(MZ) +Z(NZ+1)*Z(MZ+1))\r\n      PART(2,1) = E2*Z(NZ  )*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ  )\r\n      PART(3,1) = E2*Z(NZ  )*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ  )\r\n      PART(1,2) = E2*Z(NZ+1)*Z(MZ  ) + E3*Z(NZ  )*Z(MZ+1)\r\n      PART(3,2) = E2*Z(NZ+1)*Z(MZ+2) + E3*Z(NZ+2)*Z(MZ+1)\r\n      PART(1,3) = E2*Z(NZ+2)*Z(MZ  ) + E3*Z(NZ  )*Z(MZ+2)\r\n      PART(2,3) = E2*Z(NZ+2)*Z(MZ+1) + E3*Z(NZ+1)*Z(MZ+2)\r\nC\r\nC     ADD STIFFNESS PARTITION TO ELEMENT MATRIX\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE WHERE PART(1,1) IS TO BE ADDED.\r\nC\r\n 1228 IF (SIL(M)-SIL(N)) 1230,1240,1250\r\n 1230 MZ = SIL(N)\r\n      NZ = SIL(M)\r\n      DIAG = .FALSE.\r\n      GO TO 1260\r\n 1240 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .TRUE.\r\n      GO TO 1260\r\n 1250 MZ = SIL(M)\r\n      NZ = SIL(N)\r\n      DIAG = .FALSE.\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n 1260 L = (NZ-1)*3 + 1\r\nC\r\nC     INCREMENT BETWEEN COLUMNS\r\nC\r\n      INC = NGG - L\r\nC\r\nC     FIRST WORD OF COLUMN\r\nC\r\n      L = IK + ((L-1)*L)/2 + (INC+1)*(L-1)\r\nC\r\nC     WORD IN COLUMN FOR THIS ROW\r\nC\r\n      L = L + 3*(MZ-NZ)\r\nC\r\nC     ADD PARTITION\r\nC\r\n      DO 1280 NZ = 1,3\r\n      DO 1270 MZ = 1,3\r\n      IF (DIAG .AND. MZ.LT.NZ) GO TO 1270\r\n      Z(L+MZ-1) = Z(L+MZ-1) + PART(MZ,NZ)*SFACT\r\n 1270 CONTINUE\r\n      L = L + INC\r\n      INC = INC - 1\r\n 1280 CONTINUE\r\n 1300 IF (MGG .LE. 0) GO TO 1400\r\nC\r\nC     MASS\r\nC\r\nC     COMPUTE TERM FOR MASS MATRIX\r\nC\r\n      RHO = BUFM6(37)\r\n      MZ  = SIL(M)\r\n      NZ  = SIL(N)\r\n      IF (MZ .GE. NZ) GO TO 1310\r\n      MZ  = SIL(N)\r\n      NZ  = SIL(M)\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS MASS TERM\r\nC\r\n 1310 L = (NZ*(NZ+1))/2 + (NZ-1)*(NGP-NZ) + MZ - NZ + IM - 1\r\nC\r\nC     COMPUTE AND ADD MASS TERM TO ELEMENT MATRIX\r\nC\r\n      Z(L) = Z(L) + RHO*SFACT*Z(IN+M-1)*Z(IN+N-1)\r\n 1400 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     END OF INTEGRATION LOOPS\r\nC\r\n      ICODE = 7\r\nC\r\nC     LOOK FOR NON-BASIC COORDINATE SYSTEM\r\nC\r\n      NOCSTM = .FALSE.\r\n      DO 2003 I = 1,NGP\r\n      IF (IEST(BGPDT+I-1) .NE. 0) GO TO 2005\r\n 2003 CONTINUE\r\n      NOCSTM = .TRUE.\r\n      GO TO 2065\r\nC\r\nC     RESTORE GRID POINT DATA TO ORIGINAL FORM FOR DOING TRANSFORM\r\nC     TO GLOBAL COORDINATES\r\nC\r\nC     FIRST, TRANSFER IT TO OPEN CORE AT IN\r\nC\r\n 2005 K = (IN-1)*2 + 1\r\n      J = NGP*4\r\n      DO 2010 I = 1,J\r\n 2010 RZ(K+I-1) = EST(BGPDT+I-1)\r\nC\r\nC     NOW MOVE IT BACK AND REARRANGE IT\r\nC\r\n      DO 2020 I = 1,NGP\r\n      IEST(BGPDT+4*I-4) = JZ(K+I-1)\r\n      DO 2020 J = 1,3\r\n      EST(BGPDT+4*I-4+J) = RZ(K+NGP+3*I+J-4)\r\n 2020 CONTINUE\r\nC\r\nC     FETCH GLOBAL TO BASIC TRANSFORMATION MATRICES\r\nC\r\n      DO 2025 I = 1,NGP\r\n      J = IN + (I-1)*9\r\n      CALL TRANSS (EST(BGPDT+4*I-4),Z(J))\r\n 2025 CONTINUE\r\n      IF (KGG .LE. 0) GO TO 2110\r\nC\r\nC     TRANSFORM STIFFNESS TO GLOBAL COORDINATES\r\nC\r\n      I = 0\r\n 2026 I = I + 1\r\n      ICP = SIL(I)\r\nC\r\nC     COLUMN INDICES\r\nC\r\n      K   = (ICP-1)*3 + 1\r\n      INC = NGG - K + 1\r\n      L   = IK + ((K-1)*K)/2 + INC*(K-1)\r\n      M   = L + INC\r\n      N   = M + INC - 1\r\nC\r\nC     TRANSFORMATION MATRIX INDEX\r\nC\r\n      IGCS = IEST(BGPDT+4*I-4)\r\n      NZ = IN + (I-1)*9\r\n      IF (IGCS .EQ. 0) GO TO 2028\r\nC\r\nC     TERMS ON DIAGONAL PARTITION\r\nC\r\n      ASSIGN 2028 TO BACK\r\n      GO TO 6000\r\nC\r\nC     OFF-DIAGONAL PARTITIONS\r\nC\r\n 2028 L = L + 3\r\n      M = M + 2\r\n      N = N + 1\r\n      IRP = ICP + 1\r\n      IF (IRP .GT. NGP) GO TO 2060\r\n      MZ = NZ\r\n      DO 2050 J = IRP,NGP\r\n      DO 2029 K = 1,NGP\r\n      IF (J .EQ. SIL(K)) GO TO 2031\r\n 2029 CONTINUE\r\n 2031 IF (IGCS .NE. 0) GO TO 2032\r\n      IF (IEST(BGPDT+4*K-4) .EQ. 0) GO TO 2045\r\n 2032 NZ = IN + (K-1)*9\r\n      DO 2030 K = 1,3\r\n      TK(K,1) = 0.0\r\n      TK(K,2) = 0.0\r\n      TK(K,3) = 0.0\r\n      DO 2030 II = 1,3\r\n      TK(K,1) = TK(K,1) + Z(L+II-1)*Z(NZ+3*II+K-4)\r\n      TK(K,2) = TK(K,2) + Z(M+II-1)*Z(NZ+3*II+K-4)\r\n      TK(K,3) = TK(K,3) + Z(N+II-1)*Z(NZ+3*II+K-4)\r\n 2030 CONTINUE\r\n      DO 2040 K = 1,3\r\n      Z(L+K-1) = 0.0\r\n      Z(M+K-1) = 0.0\r\n      Z(N+K-1) = 0.0\r\n      DO 2040 II = 1,3\r\n      Z(L+K-1) = Z(L+K-1) + TK(K,II)*Z(MZ+3*II-3)\r\n      Z(M+K-1) = Z(M+K-1) + TK(K,II)*Z(MZ+3*II-2)\r\n      Z(N+K-1) = Z(N+K-1) + TK(K,II)*Z(MZ+3*II-1)\r\n 2040 CONTINUE\r\n 2045 L = L + 3\r\n      M = M + 3\r\n      N = N + 3\r\n 2050 CONTINUE\r\n 2060 IF (I .LT. NGP) GO TO 2026\r\nC\r\nC     BUILD STIFFNESS PARTITIONS AND PASS TO EMGOUT\r\nC\r\n 2065 IDON = 0\r\n      DO 2100 I = 1,NGP\r\n      IF (I .EQ. NGP) IDON = 1\r\n      DO 2090 J = 1,3\r\nC\r\nC     COLUMN NUMBER\r\nC\r\n      K = (I-1)*3 + J\r\nC\r\nC     NUMBER OF TERMS TO FETCH TO COMPLETE THIS COLUMN IN PARTITION\r\nC\r\n      L = K - 1\r\n      IF (L .EQ. 0) GO TO 2075\r\nC\r\nC     FETCH TERMS AND LOAD INTO J-TH COLUMN OF PARTITION\r\nC\r\n      N   = IK + L\r\n      INC = NGG - 1\r\n      DO 2070 M = 1,L\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N   = N + INC\r\n      INC = INC - 1\r\n 2070 CONTINUE\r\nC\r\nC     FILL OUT PARTITION WITH COLUMNS OF STIFFNESS MATRIX\r\nC\r\nC     COMPUTE INDEX IN OPEN CORE OF FIRST TERM OF COLUMN K\r\nC\r\n 2075 N = IK + ((K-1)*K)/2 + (NGG-K+1)*(K-1)\r\nC\r\nC     INSERT THIS COLUMN IN PARTITION\r\nC\r\n      DO 2080 M = K,NGG\r\n      Z(IZ+NGG*J-NGG+M-1) = Z(N)\r\n      N = N + 1\r\n 2080 CONTINUE\r\n 2090 CONTINUE\r\n      DICT(5) = IB(45)\r\n      CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,1,1)\r\n 2100 CONTINUE\r\nC\r\nC     EXPAND AND TRANSFORM MASS MATRIX AND PASS TO EMGOUT\r\nC\r\n      IF (MGG .LE. 0) GO TO 2400\r\n 2110 IDON = 0\r\n      DO 2140 I = 1,NGP\r\n      IF (I .EQ. NGP) IDON = 1\r\n      DO 2130 J = 1,NGP\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR MASS TERM\r\nC\r\n      K = I\r\n      L = J\r\n      IF (I .LE. J) GO TO 2115\r\n      K = J\r\n      L = I\r\n 2115 N = ((K-1)*K)/2 + (K-1)*(NGP-K+1) + L - K + IM\r\nC\r\nC     MULTIPLY GLOBAL TO BASIC TRANSFORMATIONS\r\nC\r\n      M = IZ - NGG+3*J - 4\r\n      IF (I.EQ.J .OR. NOCSTM) GO TO 2116\r\n      IF (IEST(BGPDT+4*I-4) .NE. 0) GO TO 2118\r\n      IF (IEST(BGPDT+4*J-4) .NE. 0) GO TO 2118\r\n 2116 Z(M+NGG  +1) = Z(N)\r\n      Z(M+NGG  +2) = 0.0\r\n      Z(M+NGG  +3) = 0.0\r\n      Z(M+NGG*2+1) = 0.0\r\n      Z(M+NGG*2+2) = Z(N)\r\n      Z(M+NGG*2+3) = 0.0\r\n      Z(M+NGG*3+1) = 0.0\r\n      Z(M+NGG*3+2) = 0.0\r\n      Z(M+NGG*3+3) = Z(N)\r\n      GO TO 2130\r\n 2118 DO 2119 K = 1,NGP\r\n      IF (I .EQ. SIL(K)) MZ = IN + 9*(K-1)\r\n      IF (J .EQ. SIL(K)) NZ = IN + 9*(K-1)\r\n 2119 CONTINUE\r\n      CALL GMMATS (Z(MZ),3,3,1,Z(NZ),3,3,0,TF)\r\nC\r\nC     MULTIPLY BY MASS SCALAR FOR THIS 3 BY 3 PARTITION AND STORE\r\nC     IN NGG BY 3 PARTITION\r\nC\r\n      DO 2120 K = 1,3\r\n      DO 2120 L = 1,3\r\n      Z(M+NGG*L+K) = TF(K,L)*Z(N)\r\n 2120 CONTINUE\r\n 2130 CONTINUE\r\n      DICT(5) = 0\r\n      CALL EMGOUT (Z(IZ),Z(IZ),3*NGG,IDON,DICT,2,1)\r\n 2140 CONTINUE\r\nC\r\nC     SAVE ELEMENT BCD NAME, ID, VOLUME, MASS, NO. OF GRID POINTS, AND\r\nC     GRID POINT DATA IN SCR4 IF USER REQUESTED VOLUME/AREA PRINTOUT\r\nC     (NOTE - MAKE SURE THE GRID POINT DATA, BGPDT, IS IN ISTS ORIGIANL\r\nC      FORM)\r\nC\r\n 2400 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000\r\n      IL = IZ*2\r\n      RZ(IL+1) = BCD1\r\n      RZ(IL+2) = BCD2(TYPE)\r\n      JZ(IL+3) = EID\r\n      RZ(IL+4) = TVOL*VOLUME\r\n      RZ(IL+5) = TVOL\r\n      IF (RHO .GT. 0.0) RZ(IL+5) = TVOL*RHO\r\n      JZ(IL+6) = NGP\r\n      K = IL + 6\r\n      DO 2410 I = 1,NGP\r\n      K = K + 1\r\n 2410 RZ(K) = EST(1+I)\r\n      IF (SURFAC .LE. 0.0) GO TO 2460\r\n      IF (.NOT.NOCSTM) GO TO 2440\r\n      L = BGPDT + NGP\r\n      DO 2430 I = 1,NGP\r\n      K = K + 1\r\n      JZ(K) = IEST(BGPDT+I-1)\r\n      DO 2420 J = 1,3\r\n      K = K + 1\r\n      RZ(K) = EST(L)\r\n 2420 L = L + 1\r\n 2430 CONTINUE\r\n      GO TO 2460\r\n 2440 J = NGP*4\r\n      DO 2450 I = 1,J\r\n      K = K + 1\r\n 2450 RZ(K) = EST(BGPDT+I-1)\r\n 2460 L = K - IL\r\n      CALL WRITE (SCR4,RZ(IL+1),L,1)\r\n      GO TO 5000\r\nC\r\nC     HEAT TRANSFER SECTION\r\nC\r\n 3000 INFLAG = 3\r\n      CALL HMAT (EID)\r\n      ANIS = .FALSE.\r\n      IF (KGG .LE. 0) GO TO 3100\r\nC\r\nC     CHECK FOR ANISOTROPY\r\nC\r\n      IF (KHEAT(1).NE.KHEAT(4) .OR. KHEAT(1).NE.KHEAT(6)) GO TO 3010\r\n      IF (KHEAT(2).NE.0.0 .OR. KHEAT(3).NE.0.0 .OR. KHEAT(5).NE.0.0)\r\n     1    GO TO 3010\r\n      GO TO 3100\r\n 3010 ANIS = .TRUE.\r\n      IT = IZ + 8\r\nC\r\nC     CHECK FOR RECTANGULAR COORDINATE SYSTEM FOR MATERIAL\r\nC\r\n      RECT = .TRUE.\r\n      IF (CID .EQ. 0) GO TO 3100\r\n      JZ(IZS) = CID\r\n      DO 3030 I = 1,3\r\n 3030 RZ(IZS+I) = EST(BCORD+I-1)\r\n      CALL TRANSS (RZ(IZS),Z(IT))\r\n      DO 3040 I = 1,3\r\n 3040 RZ(IZS+I) = -RZ(IZS+I)\r\n      CALL TRANSS (RZ(IZS),Z(IN))\r\n      DO 3050 I = 1,9\r\n      IF (Z(IT+I-1) .NE. Z(IN+I-1)) RECT = .FALSE.\r\n 3050 CONTINUE\r\nC\r\nC     IF NOT DEFINED IN A RECTANGULAR SYSTEM, MUST TRANSFORM INSIDE\r\nC     INTEGRATION LOOPS\r\nC\r\n      IF (.NOT.RECT) GO TO 3100\r\nC\r\nC     TRANSFORM MATERIAL MATRIX TO BASIC SYSTEM\r\nC\r\n      DO 3060 I = 1,6\r\n 3060 Z(IZ+I+1) = KHEAT(I)\r\n      L  = IZ + 2\r\n      M  = L + 3\r\n      N  = M + 2\r\n      NZ = IT\r\n      ASSIGN 3100 TO BACK\r\n      GO TO 6000\r\nC\r\nC     ANISOTROPIC CONDUCTIVITY MATERIAL MATRIX NOW STORED AT RZ(IZ+2)\r\nC     TO RZ(IZ+7)\r\nC\r\nC     ALL SET FOR DOING INTEGRATION.  DO IT.\r\nC\r\n 3100 I = 0\r\n 3101 I = I + 1\r\n      J = 0\r\n 3102 J = J + 1\r\n      K = 0\r\n 3103 K = K + 1\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSS (TYPE,Z(IN),Z(IG),JACOB,DETJ,EID,S(I),S(J),S(K),\r\n     1             EST(BCORD))\r\n      IF (DETJ .NE. 0.0) GO TO 3110\r\nC\r\nC     FALL HERE IF JACOBIAN MATRIX WAS SINGULAR\r\nC\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 3110 SFACT = H(I)*H(J)*H(K)*DETJ\r\n      IF (KGG .LE. 0) GO TO 3120\r\nC\r\nC     COMPUTE DERIVATIVES OF SHAPE FUNCTION W.R.T. BASIC SYSTEM.\r\nC\r\nC     MUST REVERSE CALLING ORDER SINCE MATRICES ARE STORED BY COLUMNS\r\nC\r\n      CALL GMMATS (Z(IG),NGP,3,0,JACOB,3,3,0,Z(IX))\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN A RECTANGULAR\r\nC     CORDINATE SYSTEM, MUST TRANSFORM TO BASIC SYSTEM AT THIS\r\nC     INTEGRATION POINT\r\nC\r\n 3120 IF (.NOT.ANIS) GO TO 3160\r\n      IF (RECT) GO TO 3160\r\nC\r\nC     COMPUTE BASIC COORDINATES VECTOR AT THIS POINT\r\nC\r\n      DO 3130 L = 1,3\r\n 3130 RZ(IZS+L) = 0.0\r\n      DO 3140 L = 1,NGP\r\n      DO 3140 M = 1,3\r\n      RZ(IZS+M) = RZ(IZS+M) + Z(IN+L-1)*EST(BCORD + 3*L+M-4)\r\n 3140 CONTINUE\r\nC\r\nC     FETCH TRANSFORMATION AND CONDUCTIVITY MATRICES AND PERFORM\r\nC     TRANSFORMATION OPERATIONS\r\nC\r\n      CALL TRANSS (RZ(IZS),Z(IT))\r\n      DO 3150 L = 1,6\r\n 3150 Z(IZ+L+1) = KHEAT(L)\r\n      NZ = IT\r\n      L  = IZ + 2\r\n      M  = L + 3\r\n      N  = M + 2\r\n      ASSIGN 3160 TO BACK\r\n      GO TO 6000\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED FOR THIS INTEGRATION POINT WHEN\r\nC     FALL HERE\r\nC\r\nC     NOW BEGIN LOOPS OVER GRID POINTS ALONG ROWS AND COLUMNS\r\nC\r\n 3160 DO 3220 N = 1,NGP\r\n      DO 3220 M = N,NGP\r\nC\r\nC     COMPUTE 1 BY 1 PARTITION FOR ROW M AND COLUMN N\r\nC\r\n      IF (KGG .LE. 0) GO TO 3210\r\nC\r\nC     CONDUCTIVITY\r\nC\r\n      IF (ANIS) GO TO 3180\r\nC\r\nC     ISOTROPIC CASE\r\nC\r\n      PRT1 = 0.0\r\n      DO 3170 L = 1,3\r\n 3170 PRT1 = PRT1 + Z(IX+3*M+L-4)*Z(IX+3*N+L-4)\r\n      PRT1 = SFACT*KHEAT(1)*PRT1\r\n      GO TO 3190\r\nC\r\nC     ANISOTROPIC CASE\r\nC\r\n 3180 L  = IX + 3*(M-1)\r\n      E1 = Z(L)*Z(IZ+2) + Z(L+1)*Z(IZ+3) + Z(L+2)*Z(IZ+4)\r\n      E2 = Z(L)*Z(IZ+3) + Z(L+1)*Z(IZ+5) + Z(L+2)*Z(IZ+6)\r\n      E3 = Z(L)*Z(IZ+4) + Z(L+1)*Z(IZ+6) + Z(L+2)*Z(IZ+7)\r\n      L  = IX + 3*(N-1)\r\n      PRT1 = SFACT*(Z(L)*E1 + Z(L+1)*E2 + Z(L+2)*E3)\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS TERM\r\nC\r\n 3190 L  = SIL(M)\r\n      MZ = SIL(N)\r\n      IF (L .LE. MZ) GO TO 3200\r\n      L  = MZ\r\n      MZ = SIL(M)\r\n 3200 L  = (L-1)*NGG + MZ + IK - 1\r\nC\r\nC     ADD TERM TO MATRIX\r\nC\r\n      Z(L) = Z(L) + PRT1\r\nC\r\nC     CAPACITANCE\r\nC\r\n 3210 IF (MGG .LE. 0) GO TO 3220\r\nC\r\nC     COMPUTE INDEX INTO OPEN CORE FOR THIS TERM\r\nC\r\n      L  = SIL(M)\r\n      MZ = SIL(N)\r\n      IF (L .LE. MZ) GO TO 3215\r\n      L  = MZ\r\n      MZ = SIL(M)\r\n 3215 L  = (L-1)*NGG + MZ + IM - 1\r\nC\r\nC     COMPUTE AND ADD TERM\r\nC\r\n      Z(L) = Z(L) + SFACT*CP*Z(IN+M-1)*Z(IN+N-1)\r\n 3220 CONTINUE\r\n      IF (K .LT. NIP) GO TO 3103\r\n      IF (J .LT. NIP) GO TO 3102\r\n      IF (I .LT. NIP) GO TO 3101\r\nC\r\nC     END OF HEAT TRANSFER INTEGRATION LOOPS\r\nC\r\n      ICODE = 1\r\nC\r\nC     FILL IN THE UPPER TRIANGLES OF THE MATRICES\r\nC\r\n      IF (KGG .LE. 0) GO TO 4010\r\n      MZ = IK\r\n      GO TO 4020\r\n 4010 IF (MGG .LE. 0) GO TO 4040\r\n      MZ = IM\r\n 4020 L  = NGG - 1\r\n      DO 4030 I = 1,L\r\n      J  = I + 1\r\n      DO 4030 K = J,NGG\r\n      M  = (I-1)*NGG + K + MZ - 1\r\n      N  = (K-1)*NGG + I + MZ - 1\r\n      Z(N) = Z(M)\r\n 4030 CONTINUE\r\n      IF (MZ .EQ. IK) GO TO 4010\r\nC\r\nC     PASS MATRICES TO EMGOUT\r\nC\r\n 4040 K = NGG**2\r\n      DICT(5) = 0\r\n      IF (KGG .GT. 0) CALL EMGOUT (Z(IK),Z(IK),K,1,DICT,1,1)\r\n      IF (MGG .GT. 0) CALL EMGOUT (Z(IM),Z(IM),K,1,DICT,3,1)\r\nC\r\nC     ALL DONE, NO ERRORS\r\nC\r\n 5000 RETURN\r\nC\r\nC\r\nC     INTERNAL SUBROUTINE\r\nC\r\nC     TRANSFORM COORDINATE SYSTEM OF SYMMETRIC HALF OF A 3 BY 3 MATRIX\r\nC\r\n 6000 TK(1,1) = Z(NZ  )*Z(L  )  + Z(NZ+3)*Z(L+1)  + Z(NZ+6)*Z(L+2)\r\n      TK(2,1) = Z(NZ+1)*Z(L  )  + Z(NZ+4)*Z(L+1)  + Z(NZ+7)*Z(L+2)\r\n      TK(3,1) = Z(NZ+2)*Z(L  )  + Z(NZ+5)*Z(L+1)  + Z(NZ+8)*Z(L+2)\r\n      TK(1,2) = Z(NZ  )*Z(L+1)  + Z(NZ+3)*Z(M  )  + Z(NZ+6)*Z(M+1)\r\n      TK(2,2) = Z(NZ+1)*Z(L+1)  + Z(NZ+4)*Z(M  )  + Z(NZ+7)*Z(M+1)\r\n      TK(3,2) = Z(NZ+2)*Z(L+1)  + Z(NZ+5)*Z(M  )  + Z(NZ+8)*Z(M+1)\r\n      TK(1,3) = Z(NZ  )*Z(L+2)  + Z(NZ+3)*Z(M+1)  + Z(NZ+6)*Z(N  )\r\n      TK(2,3) = Z(NZ+1)*Z(L+2)  + Z(NZ+4)*Z(M+1)  + Z(NZ+7)*Z(N  )\r\n      TK(3,3) = Z(NZ+2)*Z(L+2)  + Z(NZ+5)*Z(M+1)  + Z(NZ+8)*Z(N  )\r\n      Z(L  )  = Z(NZ  )*TK(1,1) + Z(NZ+3)*TK(1,2) + Z(NZ+6)*TK(1,3)\r\n      Z(L+1)  = Z(NZ  )*TK(2,1) + Z(NZ+3)*TK(2,2) + Z(NZ+6)*TK(2,3)\r\n      Z(L+2)  = Z(NZ  )*TK(3,1) + Z(NZ+3)*TK(3,2) + Z(NZ+6)*TK(3,3)\r\n      Z(M  )  = Z(NZ+1)*TK(2,1) + Z(NZ+4)*TK(2,2) + Z(NZ+7)*TK(2,3)\r\n      Z(M+1)  = Z(NZ+1)*TK(3,1) + Z(NZ+4)*TK(3,2) + Z(NZ+7)*TK(3,3)\r\n      Z(N  )  = Z(NZ+2)*TK(3,1) + Z(NZ+5)*TK(3,2) + Z(NZ+8)*TK(3,3)\r\n      GO TO BACK, (2028,3100,3160)\r\nC\r\n 7100 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,' INSUFFICIENT CORE TO COMPUTE',\r\n     1       ' ELEMENT MATRIX')\r\n 7200 FORMAT (A23,I5,2H, ,A4,I1,3A4,I9,3X,18HILLEGAL GEOMETRY, ,9A4)\r\n 7300 FORMAT (A23,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ',\r\n     1       'UNDER MATERIAL ID =',I10,17H FOR ELEMENT ID =,I10)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ihexsd.f",
    "content": "      SUBROUTINE IHEXSD (TYPE,SHP,DSHP,JACOB,DETJ,EID,XI,ETA,ZETA,BXYZ)\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ISOPARAMETRIC UTILITY ROUTINE.  THIS ROUTINE WILL COMPUTE\r\nC     VALUES OF THE SHAPE FUNCTIONS, THEIR DERIVATIVES WITH RESPECT TO\r\nC     XI,ETA, AND ZETA, THE JACOBIAN MATRIX INVERSE, AND ITS DETERMINANT\r\nC\r\nC                       TYPE = 1       IHEX1\r\nC                       TYPE = 2       IHEX2\r\nC                       TYPE = 3       IHEX3\r\nC\r\nC     SHP    = VALUES OF SHAPE FUNCTIONS\r\nC     DSHP   = DERIVATIVES OF SHAPE FUNCTIONS W.R.T. XI, ETA, ZETA\r\nC     JACOB  = JACOBIAN MATRIX INVERSE\r\nC     DETJ   = DETERMINANT OF JACOBIAN MATRIX\r\nC     XI, ETA, ZETA = ELEMENT COORDINATES AT WHICH THESE COMPUTATIONS\r\nC                     TAKE PLACE\r\nC     BXYZ   = BASIC SYSTEM COORDINATES FOR GRID POINTS\r\nC\r\nC     LOCAL VARIABLES\r\nC     X,Y,Z  = CONSTANTS FOR EACH SHAPE FUNCTION\r\nC     NGP    = NUMBER OF SHAPE FUNCTIONS, ALSO NUMBER OF GRID POINTS\r\nC\r\n      INTEGER         TYPE       ,EID       ,OP\r\n      REAL            BXYZ(3,8)\r\n      DOUBLE PRECISION            SHP(8)    ,DSHP(3,8)  ,JACOB(3,3) ,\r\n     1                DETJ       ,XI        ,ETA        ,ZETA       ,\r\n     2                X          ,Y         ,Z          ,QXI        ,\r\n     3                QETA       ,QZETA     ,QXYZ       ,WORK(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF     ,OP\r\nC\r\n      NGP = 12*TYPE - 4\r\n      Y   =-1.0\r\n      Z   =-1.0\r\n      GO TO (100,200,310), TYPE\r\nC\r\nC     LINEAR ELEMENT IHEX1\r\nC\r\n  100 DO 110 J = 1,2\r\n      IF (J .EQ. 2) Z = 1.0\r\n      X =-1.0\r\n      Y =-1.0\r\n      DO 110 I = 1,4\r\n      IF (I .EQ. 3) Y = 1.0\r\n      IF (I .EQ. 2) X = 1.0\r\n      IF (I .EQ. 4) X =-1.0\r\n      K   = I + (J-1)*4\r\n      QXI = 1.0 + XI*X\r\n      QETA  = 1.0 + ETA*Y\r\n      QZETA = 1.0 + ZETA*Z\r\n      SHP(K) = QXI*QETA*QZETA/8.0\r\n      DSHP(1,K) = X*QETA*QZETA/8.0\r\n      DSHP(2,K) = Y*QXI*QZETA/8.0\r\n      DSHP(3,K) = Z*QXI*QETA/8.0\r\n  110 CONTINUE\r\n      GO TO 430\r\nC\r\nC     QUADRATIC ELEMENT IHEX2\r\nC\r\n  200 D = 1.0\r\n      X = 0.0\r\n      DO 300 I = 1,20\r\nC            1   2   3   4   5   6   7   8   9   10\r\n      GO TO (220,210,210,230,230,220,220,240,250,210,\r\n     1       230,220,250,210,210,230,230,220,220,240), I\r\n  210 X = X + D\r\n      GO TO 260\r\n  220 X = X - D\r\n      GO TO 260\r\n  230 Y = Y + D\r\n      GO TO 260\r\n  240 Y = Y - D\r\n      GO TO 260\r\n  250 Z = Z + 1.0\r\n      Y =-1.0\r\n      D = 3.0-D\r\n  260 IF (X .EQ. 0.0) GO TO 270\r\n      IF (Y .EQ. 0.0) GO TO 280\r\n      IF (Z .EQ. 0.0) GO TO 290\r\nC\r\nC     CORNER POINT\r\nC\r\n      QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = X*XI + Y*ETA + Z*ZETA\r\n      SHP(I)= QXI*QETA*QZETA*(QXYZ-2.0)/8.0\r\n      DSHP(1,I) = X*QETA*QZETA*(X*XI+QXYZ-1.0)/8.0\r\n      DSHP(2,I) = Y*QXI*QZETA*(Y*ETA+QXYZ-1.0)/8.0\r\n      DSHP(3,I) = Z*QXI*QETA*(Z*ZETA+QXYZ-1.0)/8.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, X=0.0\r\nC\r\n  270 QXI   = 1.0 - XI**2\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      SHP(I)= QXI*QETA*QZETA/4.0\r\n      DSHP(1,I) =-XI*QETA*QZETA/2.0\r\n      DSHP(2,I) = QXI*QZETA*Y/4.0\r\n      DSHP(3,I) = QXI*QETA*Z/4.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, Y=0.0\r\nC\r\n  280 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 - ETA**2\r\n      QZETA = 1.0 + Z*ZETA\r\n      SHP(I)= QETA*QXI*QZETA/4.0\r\n      DSHP(1,I) = QETA*QZETA*X/4.0\r\n      DSHP(2,I) =-ETA*QZETA*QXI/2.0\r\n      DSHP(3,I) = QETA*QXI*Z/4.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, Z=0.0\r\nC\r\n  290 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 - ZETA**2\r\n      SHP(I)= QZETA*QXI*QETA/4.0\r\n      DSHP(1,I) = QZETA*QETA*X/4.0\r\n      DSHP(2,I) = QZETA*QXI*Y/4.0\r\n      DSHP(3,I) =-ZETA*QXI*QETA/2.0\r\n  300 CONTINUE\r\n      GO TO 430\r\nC\r\nC     CUBIC ELEMENT IHEX3\r\nC\r\n  310 D = 2.0/3.0\r\n      X =-1.0/3.0\r\n      DO 420 I = 1,32\r\nC            1   2   3   4   5   6   7   8   9   10\r\n      GO TO (320,330,330,330,340,340,340,320,320,320,\r\n     2       350,350,360,330,340,320,360,330,340,320,\r\n     3       360,330,330,330,340,340,340,320,320,320,\r\n     4       350,350),I\r\n  320 X = X - D\r\n      GO TO 370\r\n  330 X = X + D\r\n      GO TO 370\r\n  340 Y = Y + D\r\n      GO TO 370\r\n  350 Y = Y - D\r\n      GO TO 370\r\n  360 Y =-1.0\r\n      Z = Z + 2.0/3.0\r\n      IF (Z .GT. -1.0) D = 2.0\r\n      IF (Z .GT.  0.4) D = 2.0/3.0\r\n  370 IF (DABS(X) .LT. 0.4) GO TO 390\r\n      IF (DABS(Y) .LT. 0.4) GO TO 400\r\n      IF (DABS(Z) .LT. 0.4) GO TO 410\r\nC\r\nC     CORNER POINT\r\nC\r\n      QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = XI**2+ETA**2+ZETA**2 - 19.0/9.0\r\n      SHP(I)= 9.0*QXI*QETA*QZETA*QXYZ/64.0\r\n      DSHP(1,I) = 9.0*QETA*QZETA*(X*(2.0*XI**2+QXYZ)+2.0*XI)/64.0\r\n      DSHP(2,I) = 9.0*QXI*QZETA*(Y*(2.0*ETA**2+QXYZ)+2.0*ETA)/64.0\r\n      DSHP(3,I) = 9.0*QXI*QETA*(Z*(2.0*ZETA**2+QXYZ)+2.0*ZETA)/64.0\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINT, X = + OR - 1/3\r\nC\r\n  390 QXI   = 9.0*(1.0-XI**2)*(1.0+9.0*X*XI)/64.0\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = 9.0*(-2.0*XI+9.0*X-27.0*XI*X*XI)/64.0\r\n      SHP(I)= QXI*QETA*QZETA\r\n      DSHP(1,I) = QETA*QZETA*QXYZ\r\n      DSHP(2,I) = QXI*QZETA*Y\r\n      DSHP(3,I) = QXI*QETA*Z\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINT Y = + OR - 1/3\r\nC\r\n  400 QXI   = 1.0 + X*XI\r\n      QETA  = 9.0*(1.0-ETA**2)*(1.0+9.0*ETA*Y)/64.0\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = 9.0*(-2.0*ETA+9.0*Y-27.0*ETA*Y*ETA)/64.0\r\n      SHP(I)= QETA*QXI*QZETA\r\n      DSHP(1,I) = QETA*QZETA*X\r\n      DSHP(2,I) = QXI*QZETA*QXYZ\r\n      DSHP(3,I) = QETA*QXI*Z\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINTS Z = + OR - 1/3\r\nC\r\n  410 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 9.0*(1.0-ZETA**2)*(1.0+9.0*Z*ZETA)/64.0\r\n      QXYZ  = 9.0*(-2.0*ZETA+9.0*Z-27.0*Z*ZETA**2)/64.0\r\n      SHP(I)= QZETA*QXI*QETA\r\n      DSHP(1,I) = QZETA*QETA*X\r\n      DSHP(2,I) = QZETA*QXI*Y\r\n      DSHP(3,I) = QXI*QETA*QXYZ\r\n  420 CONTINUE\r\nC\r\nC     COMPUTE JACOBIAN MATRIX\r\nC\r\n  430 DO 440 I = 1,3\r\n      DO 440 J = 1,3\r\n      JACOB(I,J) = 0.0\r\n      DO 440 K = 1,NGP\r\n      JACOB(I,J) = JACOB(I,J) + DSHP(I,K)*DBLE(BXYZ(J,K))\r\n  440 CONTINUE\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBIAN MATRIX\r\nC\r\n      WORK(1,1) = JACOB(2,2)*JACOB(3,3) - JACOB(2,3)*JACOB(3,2)\r\n      WORK(2,1) = JACOB(2,3)*JACOB(3,1) - JACOB(2,1)*JACOB(3,3)\r\n      WORK(3,1) = JACOB(2,1)*JACOB(3,2) - JACOB(2,2)*JACOB(3,1)\r\n      WORK(1,2) = JACOB(1,3)*JACOB(3,2) - JACOB(1,2)*JACOB(3,3)\r\n      WORK(2,2) = JACOB(1,1)*JACOB(3,3) - JACOB(1,3)*JACOB(3,1)\r\n      WORK(3,2) = JACOB(1,2)*JACOB(3,1) - JACOB(1,1)*JACOB(3,2)\r\n      WORK(1,3) = JACOB(1,2)*JACOB(2,3) - JACOB(1,3)*JACOB(2,2)\r\n      WORK(2,3) = JACOB(1,3)*JACOB(2,1) - JACOB(1,1)*JACOB(2,3)\r\n      WORK(3,3) = JACOB(1,1)*JACOB(2,2) - JACOB(1,2)*JACOB(2,1)\r\n      DETJ = 0.0\r\n      DO 450 I = 1,3\r\n      DETJ = DETJ + JACOB(I,2)*WORK(2,I)\r\n  450 CONTINUE\r\n      IF (DETJ .EQ. 0.0) GO TO 470\r\n      DO 460 I = 1,3\r\n      DO 460 J = 1,3\r\n      JACOB(I,J) = WORK(I,J)/DETJ\r\n  460 CONTINUE\r\n      RETURN\r\nC\r\nC     JACOBIAN MATRIX WAS SINGULAR.\r\nC\r\n  470 WRITE  (OP,480) UFM,EID\r\n  480 FORMAT (A23,' 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ',\r\n     1       'ELEMENT NO.',I9)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ihexss.f",
    "content": "      SUBROUTINE IHEXSS (TYPE,SHP,DSHP,JACOB,DETJ,EID,XI,ETA,ZETA,BXYZ)\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ISOPARAMETRIC UTILITY ROUTINE.  THIS ROUTINE WILL COMPUTE\r\nC     VALUES OF THE SHAPE FUNCTIONS, THEIR DERIVATIVES WITH RESPECT TO\r\nC     XI,ETA, AND ZETA, THE JACOBIAN MATRIX INVERSE, AND ITS DETERMINANT\r\nC\r\nC                       TYPE = 1       IHEX1\r\nC                       TYPE = 2       IHEX2\r\nC                       TYPE = 3       IHEX3\r\nC\r\nC     SHP    = VALUES OF SHAPE FUNCTIONS\r\nC     DSHP   = DERIVATIVES OF SHAPE FUNCTIONS W.R.T. XI, ETA, ZETA\r\nC     JACOB  = JACOBIAN MATRIX INVERSE\r\nC     DETJ   = DETERMINANT OF JACOBIAN MATRIX\r\nC     XI, ETA, ZETA = ELEMENT COORDINATES AT WHICH THESE COMPUTATIONS\r\nC                     TAKE PLACE\r\nC     BXYZ   = BASIC SYSTEM COORDINATES FOR GRID POINTS\r\nC\r\nC     LOCAL VARIABLES\r\nC     X,Y,Z  = CONSTANTS FOR EACH SHAPE FUNCTION\r\nC     NGP    = NUMBER OF SHAPE FUNCTIONS, ALSO NUMBER OF GRID POINTS\r\nC\r\n      INTEGER         TYPE       ,EID        ,OP\r\n      REAL            BXYZ(3,8)  ,SHP(8)     ,DSHP(3,8)  ,JACOB(3,3) ,\r\n     1                WORK(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF     ,OP\r\nC\r\n      NGP = 12*TYPE - 4\r\n      Y   =-1.0\r\n      Z   =-1.0\r\n      GO TO (100,200,310), TYPE\r\nC\r\nC     LINEAR ELEMENT IHEX1\r\nC\r\n  100 DO 110 J = 1,2\r\n      IF (J .EQ. 2) Z = 1.0\r\n      X = -1.0\r\n      Y = -1.0\r\n      DO 110 I = 1,4\r\n      IF (I .EQ. 3) Y = 1.0\r\n      IF (I .EQ. 2) X = 1.0\r\n      IF (I .EQ. 4) X =-1.0\r\n      K    = I + (J-1)*4\r\n      QXI  = 1.0 + XI*X\r\n      QETA = 1.0 + ETA*Y\r\n      QZETA= 1.0 + ZETA*Z\r\n      SHP(K) = QXI*QETA*QZETA/8.0\r\n      DSHP(1,K) = X*QETA*QZETA/8.0\r\n      DSHP(2,K) = Y*QXI*QZETA/8.0\r\n      DSHP(3,K) = Z*QXI*QETA/8.0\r\n  110 CONTINUE\r\n      GO TO 430\r\nC\r\nC     QUADRATIC ELEMENT IHEX2\r\nC\r\n  200 D = 1.0\r\n      X = 0.0\r\n      DO 300 I = 1,20\r\nC            1   2   3   4   5   6   7   8   9   10\r\n      GO TO (220,210,210,230,230,220,220,240,250,210,\r\n     1       230,220,250,210,210,230,230,220,220,240), I\r\n  210 X = X+D\r\n      GO TO 260\r\n  220 X = X - D\r\n      GO TO 260\r\n  230 Y = Y + D\r\n      GO TO 260\r\n  240 Y = Y - D\r\n      GO TO 260\r\n  250 Z = Z + 1.0\r\n      Y =-1.0\r\n      D = 3.0-D\r\n  260 IF (X .EQ. 0.0) GO TO 270\r\n      IF (Y .EQ. 0.0) GO TO 280\r\n      IF (Z .EQ. 0.0) GO TO 290\r\nC\r\nC     CORNER POINT\r\nC\r\n      QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = X*XI + Y*ETA+Z*ZETA\r\n      SHP(I)= QXI*QETA*QZETA*(QXYZ-2.0)/8.0\r\n      DSHP(1,I) = X*QETA*QZETA*(X*XI+QXYZ-1.0)/8.0\r\n      DSHP(2,I) = Y*QXI*QZETA*(Y*ETA+QXYZ-1.0)/8.0\r\n      DSHP(3,I) = Z*QXI*QETA*(Z*ZETA+QXYZ-1.0)/8.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, X = 0.0\r\nC\r\n  270 QXI   = 1.0 - XI**2\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      SHP(I)= QXI*QETA*QZETA/4.0\r\n      DSHP(1,I) =-XI*QETA*QZETA/2.0\r\n      DSHP(2,I) = QXI*QZETA*Y/4.0\r\n      DSHP(3,I) = QXI*QETA*Z/4.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, Y = 0.0\r\nC\r\n  280 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 - ETA**2\r\n      QZETA = 1.0 + Z*ZETA\r\n      SHP(I)= QETA*QXI*QZETA/4.0\r\n      DSHP(1,I) = QETA*QZETA*X/4.0\r\n      DSHP(2,I) =-ETA*QZETA*QXI/2.0\r\n      DSHP(3,I) = QETA*QXI*Z/4.0\r\n      GO TO 300\r\nC\r\nC     MID-EDGE POINT, Z = 0.0\r\nC\r\n  290 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 - ZETA**2\r\n      SHP(I)= QZETA*QXI*QETA/4.0\r\n      DSHP(1,I) = QZETA*QETA*X/4.0\r\n      DSHP(2,I) = QZETA*QXI*Y/4.0\r\n      DSHP(3,I) =-ZETA*QXI*QETA/2.0\r\n  300 CONTINUE\r\n      GO TO 430\r\nC\r\nC     CUBIC ELEMENT IHEX3\r\nC\r\n  310 D = 2.0/3.0\r\n      X =-1.0/3.0\r\n      DO 420 I = 1,32\r\nC            1   2   3   4   5   6   7   8   9   10\r\n      GO TO (320,330,330,330,340,340,340,320,320,320,\r\n     1       350,350,360,330,340,320,360,330,340,320,\r\n     2       360,330,330,330,340,340,340,320,320,320,\r\n     3       350,350), I\r\n  320 X = X - D\r\n      GO TO 370\r\n  330 X = X + D\r\n      GO TO 370\r\n  340 Y = Y + D\r\n      GO TO 370\r\n  350 Y = Y - D\r\n      GO TO 370\r\n  360 Y =-1.0\r\n      Z = Z + 2.0/3.0\r\n      IF (Z .GT. -1.0) D = 2.0\r\n      IF (Z .GT.  0.4) D = 2.0/3.0\r\n  370 IF (ABS(X) .LT. 0.4) GO TO 390\r\n      IF (ABS(Y) .LT. 0.4) GO TO 400\r\n      IF (ABS(Z) .LT. 0.4) GO TO 410\r\nC\r\nC     CORNER POINT\r\nC\r\n      QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = XI**2 + ETA**2 + ZETA**2 - 19.0/9.0\r\n      SHP(I)= 9.0*QXI*QETA*QZETA*QXYZ/64.0\r\n      DSHP(1,I) = 9.0*QETA*QZETA*(X*(2.0*XI**2+QXYZ)+2.0*XI)/64.0\r\n      DSHP(2,I) = 9.0*QXI*QZETA*(Y*(2.0*ETA**2+QXYZ)+2.0*ETA)/64.0\r\n      DSHP(3,I) = 9.0*QXI*QETA*(Z*(2.0*ZETA**2+QXYZ)+2.0*ZETA)/64.0\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINT, X = + OR - 1/3\r\nC\r\n  390 QXI   = 9.0*(1.0-XI**2)*(1.0+9.0*X*XI)/64.0\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = 9.0*(-2.0*XI+9.0*X-27.0*XI*X*XI)/64.0\r\n      SHP(I)= QXI*QETA*QZETA\r\n      DSHP(1,I) = QETA*QZETA*QXYZ\r\n      DSHP(2,I) = QXI*QZETA*Y\r\n      DSHP(3,I) = QXI*QETA*Z\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINT Y =+ OR - 1/3\r\nC\r\n  400 QXI   = 1.0 + X*XI\r\n      QETA  = 9.0*(1.0-ETA**2)*(1.0+9.0*ETA*Y)/64.0\r\n      QZETA = 1.0 + Z*ZETA\r\n      QXYZ  = 9.0*(-2.0*ETA+9.0*Y-27.0*ETA*Y*ETA)/64.0\r\n      SHP(I)= QETA*QXI*QZETA\r\n      DSHP(1,I) = QETA*QZETA*X\r\n      DSHP(2,I) = QXI*QZETA*QXYZ\r\n      DSHP(3,I) = QETA*QXI*Z\r\n      GO TO 420\r\nC\r\nC     MID-EDGE POINTS Z =+ OR - 1/3\r\nC\r\n  410 QXI   = 1.0 + X*XI\r\n      QETA  = 1.0 + Y*ETA\r\n      QZETA = 9.0*(1.0-ZETA**2)*(1.0+9.0*Z*ZETA)/64.0\r\n      QXYZ  = 9.0*(-2.0*ZETA+9.0*Z-27.0*Z*ZETA**2)/64.0\r\n      SHP(I)= QZETA*QXI*QETA\r\n      DSHP(1,I) = QZETA*QETA*X\r\n      DSHP(2,I) = QZETA*QXI*Y\r\n      DSHP(3,I) = QXI*QETA*QXYZ\r\n  420 CONTINUE\r\nC\r\nC     COMPUTE JACOBIAN MATRIX\r\nC\r\n  430 DO 440 I = 1,3\r\n      DO 440 J = 1,3\r\n      JACOB(I,J) = 0.0\r\n      DO 440 K = 1,NGP\r\n      JACOB(I,J) = JACOB(I,J)+DSHP(I,K)*BXYZ(J,K)\r\n  440 CONTINUE\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBIAN MATRIX\r\nC\r\n      WORK(1,1) = JACOB(2,2)*JACOB(3,3) - JACOB(2,3)*JACOB(3,2)\r\n      WORK(2,1) = JACOB(2,3)*JACOB(3,1) - JACOB(2,1)*JACOB(3,3)\r\n      WORK(3,1) = JACOB(2,1)*JACOB(3,2) - JACOB(2,2)*JACOB(3,1)\r\n      WORK(1,2) = JACOB(1,3)*JACOB(3,2) - JACOB(1,2)*JACOB(3,3)\r\n      WORK(2,2) = JACOB(1,1)*JACOB(3,3) - JACOB(1,3)*JACOB(3,1)\r\n      WORK(3,2) = JACOB(1,2)*JACOB(3,1) - JACOB(1,1)*JACOB(3,2)\r\n      WORK(1,3) = JACOB(1,2)*JACOB(2,3) - JACOB(1,3)*JACOB(2,2)\r\n      WORK(2,3) = JACOB(1,3)*JACOB(2,1) - JACOB(1,1)*JACOB(2,3)\r\n      WORK(3,3) = JACOB(1,1)*JACOB(2,2) - JACOB(1,2)*JACOB(2,1)\r\n      DETJ = 0.0\r\n      DO 450 I = 1,3\r\n      DETJ = DETJ + JACOB(I,2)*WORK(2,I)\r\n  450 CONTINUE\r\n      IF (DETJ .EQ. 0.0) GO TO 470\r\n      DO 460 I = 1,3\r\n      DO 460 J = 1,3\r\n      JACOB(I,J) = WORK(I,J)/DETJ\r\n  460 CONTINUE\r\n      RETURN\r\nC\r\nC     JACOBIAN MATRIX WAS SINGULAR.\r\nC\r\n  470 WRITE  (OP,480) UFM,EID\r\n  480 FORMAT (A23,' 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ',\r\n     1       'ELEMENT NO.',I9)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/incore.f",
    "content": "      SUBROUTINE INCORE(A,N,B,CX,IX)\r\nC\r\nC     IN-CORE DECOMPOSITION OF SQUARE, COMPLEX, NXN MATRIX,A.\r\nC     AX = B.\r\nC     CX = X\r\nC     IX = NUMBER OF B VECTORS SPECIFIED.\r\nC\r\n      COMPLEX A(N,N), B(IX,N), CX(IX,N), CMAX, SCRCH\r\n      COMPLEX T1,T2,T3\r\n      COMPLEX CSUM\r\nC\r\nC\r\n      IF(N.EQ.2) GO TO 500\r\n      IF(N.EQ.1) GO TO 600\r\n      NM1 = N-1\r\nC\r\nC     PIVOT MAYBE.\r\nC\r\n      DO 150 J=1,NM1\r\n      CMAX = A(J,J)\r\n      JP1 = J + 1\r\n      JMAX = J\r\n      DO 100 JJ= JP1,N\r\n      IF(CABS(A(J,JJ)).LE.CABS(CMAX)) GO TO 100\r\n      CMAX = A(J,JJ)\r\n      IROW = JJ\r\n      JMAX = JJ\r\n  100 CONTINUE\r\nC\r\nC     IROW = ROW WITH LARGEST ELEMENT IN COLUMN J.\r\nC     MOVE PIVOT ROW TO TOP OF ELIMINATION\r\nC\r\n      AMAX = CABS(CMAX)\r\n      IF(AMAX.EQ.0.) GO TO 150\r\n      IF(JMAX.EQ.J) GO TO 120\r\n      DO 110 JJ= J,N\r\n      SCRCH = A(JJ,J)\r\n      A(JJ,J) = A(JJ,IROW)\r\n      A(JJ,IROW) = SCRCH\r\n  110 CONTINUE\r\nC\r\nC     INTERCHANGE B VECTOR\r\nC\r\n      DO 115 JJ = 1,IX\r\n      SCRCH = B(JJ,J)\r\n      B(JJ,J) = B(JJ,IROW)\r\n      B(JJ,IROW) = SCRCH\r\n  115 CONTINUE\r\nC\r\nC     ELIMINATE COLUMN\r\nC\r\n  120 CONTINUE\r\n      A(J,J) = (1.0,0.0) / A(J,J)\r\n      T1 = A(J,J)\r\n      DO 140 I=JP1,N\r\n      T2 = A(I,J)\r\n      IF(CABS(T2).LT.(1.0E-19)) GO TO 140\r\n      T2 = -T2*T1\r\n      A(I,J) = T2\r\n      DO 130 L = JP1,N\r\n      T3 = A(J,L)\r\n      IF(CABS(T3).LT.(1.0E-19)) GO TO 130\r\n      A(I,L) = A(I,L) + T3*T2\r\n  130 CONTINUE\r\n  140 CONTINUE\r\nC\r\nC     HANDLE B ELIMINATION.\r\nC\r\n      DO 141 JJ = 1,IX\r\n      B(JJ,J) = B(JJ,J) * T1\r\n  141 CONTINUE\r\n      DO 145 JJ = 1,IX\r\n      DO 145 K=JP1,N\r\n      B(JJ,K) = B(JJ,K) - B(JJ,J)*A(J,K)\r\n  145 CONTINUE\r\n  150 CONTINUE\r\nC\r\nC     BACKWARD PASS.\r\nC\r\n      DO 185 JJ = 1,IX\r\n      CX(JJ,N) = B(JJ,N)/A(N,N)\r\n  185 CONTINUE\r\n      DO 210 JJ = 1,IX\r\n      I = N\r\n  190 CONTINUE\r\n      CSUM = (0.,0.)\r\n      K = I-1\r\n      DO 200 J=I,N\r\n      CSUM = CSUM + CX(JJ,J)*A(J,K)\r\n  200 CONTINUE\r\n      CX(JJ, K)    = B(JJ, K)    + CSUM\r\n      IF(I.LE.2) GO TO 210\r\n      I = I-1\r\n      GO TO 190\r\n  210 CONTINUE\r\n      RETURN\r\n  500 CONTINUE\r\n      DO 510 I = 1,IX\r\n      CX(I ,2) = (B(I ,2)-(B(I ,1)*A(1,2)/A(1,1)))/(A(2,2)-(A(2,1)\r\n     +  *A(1,2)/A(1,1)))\r\n      CX(I ,1) = B(I ,1)/A(1,1)-A(2,1)*CX(I ,2)/A(1,1)\r\n  510 CONTINUE\r\n      RETURN\r\n  600 CONTINUE\r\n      DO 610 I=1,IX\r\n      CX(I ,1) = B(I ,1)/A(1,1)\r\n  610 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/incro.f",
    "content": "      SUBROUTINE INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS,\r\n     1                  CGS,KR,FL,BETA,SDELX,DELY,DELR,DELI)\r\nC\r\nC     CALCULATES THE UNSTEADY PART OF THE INFLUENCE COEFFICIENT MATRIX\r\nC     ELEMENTS USING  SUBROUTINES  KERNEL, IDF1  AND  IDF2\r\nC\r\n      REAL         K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P,KR,M\r\n      COMMON /DLM/ K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P\r\n      COMMON /KDS/ IND\r\nC\r\nC     DKRO = REAL PART OF THE PLANAR KERNEL  *  OUTBOARD POINT\r\nC     DKIO = IMAGINARY PART OF THE PLANAR KERNEL  *  OUTBOARD POINT\r\nC     XKRO = REAL PART OF THE NONPLANAR KERNEL  *  OUTBOARD POINT\r\nC     XKIO = IMAGINARY PART OF THE NONPLANAR KERNEL  *  OUTBOARD POINT\r\nC     DKRI = REAL PART OF THE PLANAR KERNEL  *   INBOARD POINT\r\nC     DKII = IMAGINARY PART OF THE PLANAR KERNEL  *   INBOARD POINT\r\nC     XKRI = REAL PART OF THE NONPLANAR KERNEL  *   INBOARD POINT\r\nC     XKII = IMAGINARY PART OF THE NONPLANAR KERNEL  *   INBOARD POINT\r\nC\r\n      IND   = 1\r\n      M     = SQRT(1.0 - BETA**2)\r\n      BR    = FL/2.\r\n      EPS   = 0.00001\r\n      PI    = 3.14159265\r\n      XDELX = SDELX\r\n      XDELY = DELY\r\n      EE    = 0.5*XDELY\r\n      E2    = EE**2\r\n      DELR  = 0.0\r\n      DELI  = 0.0\r\n      AT1S  = 0.0\r\n      AT2S  = 0.0\r\n      T1    = 0.0\r\n      T2    = 0.0\r\n      COUNT = 0.\r\n      X0    = AX\r\n      Y0    = AY\r\n      Z0    = AZ\r\n   80 CONTINUE\r\n      CALL TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,T1,T2,M)\r\n      AT1   = ABS(T1)\r\n      AT2   = ABS(T2)\r\n      IF (AT1 .GT. AT1S) AT1S = AT1\r\n      IF (AT2 .GT. AT2S) AT2S = AT2\r\n      IF (COUNT) 130,90,150\r\n   90 DKRC  = K1RT1 - K10T1\r\n      DKIC  = K1IT1\r\n      XKRC  = K2RT2P - K20T2P\r\n      XKIC  = K2IT2P\r\n      AT2   = ABS(T2)\r\n      COUNT = -1.\r\n      X0    = AX1\r\n      Y0    = AY1\r\n      Z0    = AZ1\r\n      GO TO 80\r\n  130 DKRI  = K1RT1 - K10T1\r\n      DKII  = K1IT1\r\n      XKRI  = K2RT2P - K20T2P\r\n      XKII  = K2IT2P\r\n      COUNT = 1.\r\n      X0    = AX2\r\n      Y0    = AY2\r\n      Z0    = AZ2\r\n      GO TO 80\r\n  150 DKRO  = K1RT1 - K10T1\r\n      DKIO  = K1IT1\r\n      XKRO  = K2RT2P - K20T2P\r\n      XKIO  = K2IT2P\r\n      X0    = AX\r\n      Y0    = AY\r\n      Z0    = AZ\r\n      ZERO  = 0.0\r\n      XIIJR = 0.\r\n      XIIJI = 0.\r\n      DIIJR = 0.0\r\n      DIIJI = 0.0\r\n      XMULT = XDELX/(8.0*PI)\r\n      IF (Y0.EQ.ZERO .AND.  Z0.EQ.ZERO) GO TO 220\r\n      IF (Z0.EQ.ZERO .AND. SGS.EQ.ZERO) GO TO 230\r\n      ETA01 = Y0*CGS + Z0*SGS\r\n      ZET01 =-Y0*SGS + Z0*CGS\r\n      AZET0 = ABS(ZET01)\r\n      IF (AZET0 .LE. 0.0001) ZET01 = 0.\r\n      R1SQX = ETA01**2 + ZET01**2\r\n  210 ARE   = (DKRI - 2.*DKRC + DKRO)/(2.0*E2)\r\n      AIM   = (DKII - 2.*DKIC + DKIO)/(2.0*E2)\r\n      BRE   = (DKRO - DKRI)/(2.0*EE)\r\n      BIM   = (DKIO - DKII)/(2.0*EE)\r\n      CRE   =  DKRC\r\n      CIM   =  DKIC\r\n      GO TO 250\r\n  220 ETA01 = 0.0\r\n      ZET01 = 0.0\r\n      R1SQX = 0.0\r\n      GO TO  210\r\n  230 ETA01 = Y0*CGS\r\n      ZET01 = 0.\r\n      R1SQX = ETA01**2\r\n      GO TO  210\r\n  250 CONTINUE\r\n      IF (AT1S .EQ. 0.0) GO TO 255\r\n      CALL IDF1 (EE,E2,ETA01,ZET01,ARE,AIM,BRE,BIM,CRE,CIM,R1SQX,XIIJR,\r\n     1           XIIJI)\r\n      DELR  = XMULT*XIIJR\r\n      DELI  = XMULT*XIIJI\r\n  255 CONTINUE\r\n      IF (AT2S .EQ. 0.0) GO TO 260\r\n      A2R   = (XKRI - 2.0*XKRC + XKRO)/(2.0*E2)\r\n      A2I   = (XKII - 2.0*XKIC + XKIO)/(2.0*E2)\r\n      B2R   = (XKRO - XKRI)/(2.0*EE)\r\n      B2I   = (XKIO - XKII)/(2.0*EE)\r\n      C2R   =  XKRC\r\n      C2I   =  XKIC\r\n      CALL IDF2 (EE,E2,ETA01,ZET01,A2R,A2I,B2R,B2I,C2R,C2I,R1SQX,DIIJR,\r\n     1           DIIJI)\r\n      DELR  = DELR + XMULT*DIIJR\r\n      DELI  = DELI + XMULT*DIIJI\r\n  260 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/initl.f",
    "content": "      SUBROUTINE INITL (OFFSET,DELTT)\r\nC\r\nC     INITL WILL COMPUTE THE STARTING VALUES FOR THE INTEGRATION ROUTINE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      INTEGER          OFFSET   ,RSP      ,FILEM    ,FILEB    ,\r\n     1                 FILEK    ,SQR      ,FILE     ,IFILA(7) ,\r\n     2                 IFILB(7) ,IFILC(7) ,NAME(2)  ,RDP\r\n      DOUBLE PRECISION DET      ,MINDIA\r\n      DIMENSION        ALPHA(4) ,BETA(4)\r\n      COMMON /SYSTEM/  DUM(39)  ,NBPW\r\n      COMMON /SADDX /  NOMAT    ,NZ       ,MCBS(67)\r\n      COMMON /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW      ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                 RDP      ,CSP      ,CDP      ,SQR\r\n      COMMON /SFACT /  IFA(7)   ,IFL(7)   ,IFU(7)   ,ISC1     ,\r\n     1                 ISC2     ,NXX      ,ID(5)    ,ISC3     ,\r\n     2                 ID1(2)   ,ICHL\r\n      COMMON /DCOMPX/  IA(7)    ,IL(7)    ,IU(7)    ,ISCR10   ,\r\n     1                 ISCR20   ,ISCR30   ,DET      ,POWER    ,\r\n     2                 NX       ,MINDIA\r\n      COMMON /TRDXX /  FILEK(7) ,FILEM(7) ,FILEB(7) ,\r\n     1                 ISCR1    ,ISCR2    ,ISCR3    ,ISCR4    ,\r\n     2                 ISCR5    ,ISCR6    ,IOPEN    ,ISYM\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (MCBS(1),IFILA(1)) ,(MCBS(8),ITYPAL)   ,\r\n     1                 (MCBS(9),ALPHA(1)) ,(MCBS(13),IFILB(1)),\r\n     2                 (MCBS(20),ITYPBT ) ,(MCBS(21),BETA(1)) ,\r\n     3                 (MCBS(61),IFILC(1))\r\n      DATA    NAME  /  4HINIT,4HL     /\r\nC\r\n      NOMAT = 2\r\n      IPREC = RDP\r\n      IF (NBPW .GE. 60) IPREC = RSP\r\n      ALPHA(2) = 0.\r\n      ALPHA(3) = 0.\r\n      ALPHA(4) = 0.\r\n      BETA(2)  = 0.\r\n      BETA(3)  = 0.\r\n      BETA(4)  = 0.\r\n      NX = KORSZ(Z) - OFFSET\r\n      NZ = NX\r\nC\r\nC     FORM AND DECOMPOSE THE LEFT HAND MATRIX\r\nC\r\n      ITYPAL = RSP\r\n      ITYPBT = RSP\r\n      ALPHA(1) = 1./(DELTT**2)\r\n      BETA(1)  = .5/DELTT\r\n      IFILC(4) = 6\r\n      DO 10 I = 1,7\r\n      IFILA(I) = FILEM(I)\r\n   10 IFILB(I) = FILEB(I)\r\n      IFILC(2) = FILEK(2)\r\n      IFILC(1) = ISCR2\r\n      IF (FILEK(1) .LE. 0) IFILC(1) = ISCR1\r\n      IFILC(3) = FILEK(2)\r\n      IF (IFILA(1).NE.0 .AND. IFILA(4).NE.6) IFILC(4) = SQR\r\n      IF (IFILB(1).NE.0 .AND. IFILB(4).NE.6) IFILC(4) = SQR\r\n      IFILC(5) = IPREC\r\n      IF (FILEM(1).LE.0 .AND. FILEB(1).LE.0) GO TO 60\r\n      CALL SADD (Z,Z)\r\n      IF (FILEK(1) .LE. 0) GO TO 21\r\n   11 DO 20 I = 1,7\r\n      IFILA(I) = IFILC(I)\r\n   20 IFILB(I) = FILEK(I)\r\n      IF (IFILB(4) .NE. 6) IFILC(4) = SQR\r\n      IFILC(1) = ISCR1\r\n      ALPHA(1) = 1.\r\n      BETA(1)  = 1./3.\r\n      CALL SADD (Z,Z)\r\n   21 CONTINUE\r\n      CALL WRTTRL (IFILC)\r\n      IF (IFILC(4) .NE. 6) GO TO 31\r\nC\r\nC     SET UP FOR SYMMETRIC DECOMPOSITION\r\nC\r\n      DO 32  I = 1,7\r\n      IFA(I) = IFILC(I)\r\n   32 CONTINUE\r\n      IFL(1) = ISCR2\r\n      IFU(1) = ISCR3\r\n      ISC1   = ISCR4\r\n      ISC2   = ISCR5\r\n      ISC3   = ISCR6\r\n      IFL(5) = IPREC\r\n      ICHL   = 0\r\n      NXX    = NX\r\n      FILE   = IFA(1)\r\n      CALL SDCOMP (*1030,Z,Z,Z)\r\n      CALL WRTTRL (IFL)\r\n      ISYM   = 0\r\n      GO TO 33\r\nC\r\nC     SET UP FOR UNSYMMETRIC DECOMPOSITION\r\nC\r\n   31 CONTINUE\r\n      ISYM   = 1\r\n      DO 30 I = 1,7\r\n   30 IA(I)  = IFILC(I)\r\n      IL(1)  = ISCR2\r\n      IU(1)  = ISCR3\r\n      ISCR10 = ISCR4\r\n      ISCR20 = ISCR5\r\n      ISCR30 = ISCR6\r\n      IL(5)  = IPREC\r\n      FILE   = IA(1)\r\n      CALL DECOMP (*1030,Z(1),Z(1),Z(1))\r\n      CALL WRTTRL (IL)\r\n      CALL WRTTRL (IU)\r\nC\r\nC     FORM FIRST RIGHT HAND MATRIX\r\nC\r\n   33 CONTINUE\r\n      DO 40 I = 1,7\r\n   40 IFILA(I) = FILEM(I)\r\n      ALPHA(1) = 2./(DELTT**2)\r\n      BETA(1)  = -1.0/3.0\r\n      IFILC(1) = ISCR1\r\n      CALL SADD (Z,Z)\r\nC\r\nC     FORM SECOND RIGHT HAND MATRIX\r\nC\r\n      ALPHA(1) = -1.0/DELTT**2\r\n      IFILC(1) = ISCR5\r\n      CALL SADD (Z,Z)\r\n      DO 50 I = 1,7\r\n      IFILA(I) = IFILC(I)\r\n   50 IFILB(I) = FILEB(I)\r\n      ALPHA(1) = 1.\r\n      BETA(1)  = .5/DELTT\r\n      IFILC(1) = ISCR4\r\n      CALL SADD (Z,Z)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1030 IP1 = -5\r\n 1031 CALL MESAGE (IP1,FILE,NAME(1))\r\nC\r\nC     NO BDD OR MDD\r\nC\r\n   60 IF (FILEK(1) .LE. 0) GO TO 70\r\n      IFILC(1) = 0\r\n      GO TO 11\r\nC\r\nC     ILLEGAL INPUT.   NO MATRICES\r\nC\r\n   70 IP1 = -7\r\n      GO TO 1031\r\n      END\r\n"
  },
  {
    "path": "mis/initl2.f",
    "content": "      SUBROUTINE INITL2 (OFFSET,DELTT)\r\nC\r\nC     INITL2 WILL COMPUTE THE STARTING VALUES FOR THE INTEGRATION\r\nC     ROUTINE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      INTEGER          OFFSET   ,RSP      ,FILEM    ,FILEB    ,\r\n     1                 FILEK    ,SQR      ,FILE     ,IFILA(7) ,\r\n     2                 IFILB(7) ,IFILC(7) ,NAME(2)  ,RDP\r\n      DOUBLE PRECISION DET      ,MINDIA   ,ALPHA(2) ,BETA(2)\r\n      COMMON /SADDX /  NOMAT    ,NZ       ,MCBS(67)\r\n      COMMON /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW      ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                 RDP      ,CSP      ,CDP      ,SQR\r\n      COMMON /SFACT /  IFA(7)   ,IFL(7)   ,IFU(7)   ,ISC1     ,\r\n     1                 ISC2     ,NXX      ,ID(5)    ,ISC3     ,\r\n     2                 ID1(2)   ,ICHL\r\n      COMMON /DCOMPX/  IA(7)    ,IL(7)    ,IU(7)    ,ISCR10   ,\r\n     1                 ISCR20   ,ISCR30   ,DET      ,POWER    ,\r\n     2                 NX       ,MINDIA\r\n      COMMON /TRDXX /  FILEK(7) ,FILEM(7) ,FILEB(7) ,\r\n     1                 ISCR1    ,ISCR2    ,ISCR3    ,ISCR4    ,\r\n     2                 ISCR5    ,ISCR6    ,IOPEN    ,ISYM\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (MCBS(1),IFILA(1)) ,(MCBS(8),ITYPAL)   ,\r\n     1                 (MCBS(9),ALPHA(1)) ,(MCBS(13),IFILB(1)),\r\n     2                 (MCBS(20),ITYPBT)  ,(MCBS(21),BETA(1)) ,\r\n     3                 (MCBS(61),IFILC(1))\r\n      DATA    NAME  /  4HINIT,4HL2  /\r\nC\r\n      NOMAT   = 2\r\n      IPREC   = RDP\r\n      ALPHA(2)= 0.0D0\r\n      BETA(2) = 0.0D0\r\n      NX      = KORSZ(Z) - OFFSET\r\n      NZ      = NX\r\nC\r\nC     FORM AND DECOMPOSE THE LEFT HAND MATRIX\r\nC\r\n      ITYPAL   = RDP\r\n      ITYPBT   = RDP\r\n      ALPHA(1) = 1.0D0/DELTT**2\r\n      BETA(1)  = 0.5D0/DELTT\r\n      IFILC(4) = 6\r\n      DO 10 I = 1,7\r\n      IFILA(I) = FILEM(I)\r\n   10 IFILB(I) = FILEB(I)\r\n      IFILC(2) = FILEK(2)\r\n      IFILC(1) = ISCR2\r\n      IF (FILEK(1) .LE. 0) IFILC(1) = ISCR1\r\n      IFILC(3) = FILEK(2)\r\n      IF (IFILA(1).NE.0 .AND. IFILA(4).NE.6) IFILC(4) = SQR\r\n      IF (IFILB(1).NE.0 .AND. IFILB(4).NE.6) IFILC(4) = SQR\r\n      IFILC(5) = IPREC\r\n      IF (FILEM(1).LE.0 .AND. FILEB(1).LE.0) GO TO 60\r\n      CALL SADD (Z,Z)\r\n      IF (FILEK(1) .LE. 0) GO TO 21\r\n   11 DO 20 I = 1,7\r\n      IFILA(I) = IFILC(I)\r\n   20 IFILB(I) = FILEK(I)\r\n      IF (IFILB(4) .NE. 6) IFILC(4) = SQR\r\n      IFILC(1) = ISCR1\r\n      ALPHA(1) = 1.0D0\r\n      BETA(1)  = 1.0D0/3.0D0\r\n      CALL SADD (Z,Z)\r\n   21 CONTINUE\r\n      CALL WRTTRL (IFILC)\r\n      IF (IFILC(4) .NE. 6) GO TO 31\r\nC\r\nC     SET UP FOR SYMMETRIC DECOMPOSITION\r\nC\r\n      DO 32  I = 1,7\r\n      IFA(I) = IFILC(I)\r\n   32 CONTINUE\r\n      IFL(1) = ISCR2\r\n      IFU(1) = ISCR3\r\n      ISC1   = ISCR4\r\n      ISC2   = ISCR5\r\n      ISC3   = ISCR6\r\n      IFL(5) = IPREC\r\n      ICHL   = 0\r\n      NXX    = NX\r\n      FILE   = IFA(1)\r\n      CALL SDCOMP (*1030,Z,Z,Z)\r\n      CALL WRTTRL (IFL)\r\n      ISYM   = 0\r\n      GO TO 33\r\nC\r\nC     SET UP FOR UNSYMMETRIC DECOMPOSITION\r\nC\r\n   31 CONTINUE\r\n      ISYM = 1\r\n      DO 30 I = 1,7\r\n   30 IA(I)  = IFILC(I)\r\n      IL(1)  = ISCR2\r\n      IU(1)  = ISCR3\r\n      ISCR10 = ISCR4\r\n      ISCR20 = ISCR5\r\n      ISCR30 = ISCR6\r\n      IL(5)  = IPREC\r\n      FILE   = IA(1)\r\n      CALL DECOMP (*1030,Z(1),Z(1),Z(1))\r\n      CALL WRTTRL (IL)\r\n      CALL WRTTRL (IU)\r\nC\r\nC     FORM FIRST RIGHT HAND MATRIX\r\nC\r\n   33 CONTINUE\r\n      DO 40 I = 1,7\r\n   40 IFILA(I) = FILEM(I)\r\n      ALPHA(1) = 2.0D0/DELTT**2\r\n      BETA(1)  = -1.0D0/3.0D0\r\n      IFILC(1) = ISCR1\r\n      CALL SADD (Z,Z)\r\nC\r\nC     FORM SECOND RIGHT HAND MATRIX\r\nC\r\n      ALPHA(1) = -1.0D0/DELTT**2\r\n      IFILC(1) = ISCR5\r\n      CALL SADD (Z,Z)\r\n      DO 50 I = 1,7\r\n      IFILA(I) = IFILC(I)\r\n   50 IFILB(I) = FILEB(I)\r\n      ALPHA(1) = 1.0D0\r\n      BETA(1)  = 0.5D0/DELTT\r\n      IFILC(1) = ISCR4\r\n      CALL SADD (Z,Z)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1030 IP1 = -5\r\n 1031 CALL MESAGE (IP1,FILE,NAME(1))\r\nC\r\nC     NO BDD OR MDD\r\nC\r\n   60 IF (FILEK(1) .LE. 0) GO TO 70\r\n      IFILC(1) =0\r\n      GO TO 11\r\nC\r\nC     ILLEGAL INPUT.   NO MATRICES\r\nC\r\n   70 IP1 = -7\r\n      GO TO 1031\r\n      END\r\n"
  },
  {
    "path": "mis/inptt1.f",
    "content": "      SUBROUTINE INPTT1\r\nC\r\nC     READ DATA BLOCK(S) FROM A NASTRAN USER TAPE WHICH MUST BE SET UP.\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     INPUTT1  /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4  $\r\nC\r\nC     PARAMETERS P1 AND P2 ARE INTEGER INPUT, P3 AND P4 ARE BCD\r\nC\r\nC               P1= 0, NO ACTION TAKEN BEFORE READ (DEFAULT)\r\nC                 =+N, SKIP FORWARD N DATA BLOCKS BEFORE READ\r\nC                 =-1, USER TAPE IS REWOUND BEFORE READ\r\nC                 =-2, A NEW REEL IS MOUNTED BEFORE READ\r\nC                 =-3, THE NAMES OF ALL DATA BLOCKS ON USER TAPE ARE\r\nC                      PRINTED AND READ OCCURS AT BEGINNING OF TAPE\r\nC                 =-4, AN OUTPUT TAPE IS TO BE DISMOUNTED\r\nC                      AFTER AN END-OF-FILE MARK IS WRITTEN.\r\nC                      A NEW INPUT REEL WILL THEN BE MOUNTED.\r\nC                 =-5, SEARCH USER TAPE FOR FIRST VERSION OF DATA\r\nC                      BLOCKS REQUESTED.\r\nC                      IF ANY ARE NOT FOUND, A FATAL TERMINATION\r\nC                      OCCURS.\r\nC                 =-6, SEARCH USER TAPE FOR FINAL VERSION OF DATA\r\nC                      BLOCKS REQUESTED.\r\nC                      IF ANY ARE NOT FOUND, A FATAL TERMINATION\r\nC                      OCCURS.\r\nC                 =-7, SEARCH USER TAPE FOR FIRST VERSION OF DATA\r\nC                      BLOCKS REQUESTED.\r\nC                      IF ANY ARE NOT FOUND, A WARNING OCCURS.\r\nC                 =-8, SEARCH USER TAPE FOR FINAL VERSION OF DATA\r\nC                      BLOCKS REQUESTED.\r\nC                      IF ANY ARE NOT FOUND, A WARNING OCCURS.\r\nC                 =-9, REWIND AND UNLOAD USER TAPE\r\nC\r\nC               P2= 0, FILE NAME IS INPT\r\nC                 = 1, FILE NAME IS INP1\r\nC                 = 2, FILE NAME IS INP2\r\nC                 = 3, FILE NAME IS INP3\r\nC                 = 4, FILE NAME IS INP4\r\nC                 = 5, FILE NAME IS INP5\r\nC                 = 6, FILE NAME IS INP6\r\nC                 = 7, FILE NAME IS INP7\r\nC                 = 8, FILE NAME IS INP8\r\nC                 = 9, FILE NAME IS INP9\r\nC                 THE MPL DEFAULT VALUE FOR P2 IS 0\r\nC\r\nC               P3=    TAPE ID CODE FOR USER TAPE, AN ALPHANUMERIC\r\nC                      VARIABLE WHOSE VALUE MUST MATCH A CORRESPONDING\r\nC                      VALUE ON THE USER TAPE.\r\nC                      THIS CHECK IS DEPENDENT ON THE VALUE OF\r\nC                      P1 AS FOLLOWS..\r\nC                       *P1*             *TAPE ID CHECKED*\r\nC                        +N                     NO\r\nC                         0                     NO\r\nC                        -1                    YES\r\nC                        -2                    YES (ON NEW REEL)\r\nC                        -3                    YES (WARNING CHECK)\r\nC                        -4                    YES (ON NEW REEL)\r\nC                        -5                    YES\r\nC                        -6                    YES\r\nC                        -7                    YES\r\nC                        -8                    YES\r\nC                        -9                     NO\r\nC                      THE MPL DEFAULT VALUE FOR P3 IS XXXXXXXX\r\nC\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         TAPEUP,TAPBIT\r\n      INTEGER         OUBUF,OUTPUT,P1,P2,P3,P4,ZERO,RSHIFT,ANDF,NONE(2),\r\n     1                TRL(7),NAME(2),SUBNAM(2),INN(10),OUT(5),NAMEX(2),\r\n     2                IDHDR(7),IDHDRX(7),P3X(2),NT(5,3),DX(3),TAPCOD(2),\r\n     3                BCDBIN(4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /BLANK / P1,P2,P3(2),P4(2)\r\n     1       /SYSTEM/ KSYSTM(65)\r\n     2       /ZZZZZZ/ X(1)\r\n      EQUIVALENCE     (KSYSTM(1),NB  ), (KSYSTM( 2),NOUT),\r\n     1                (KSYSTM(9),NLPP), (KSYSTM(12),LINE)\r\n      DATA    SUBNAM/ 4HINPT, 4HT1  / , MSC      / 4HMSC /\r\n      DATA    OUT   / 201,202,203,204,205/, MASK / 65535 /\r\n      DATA    ZERO  , MONE,MTWO,MTRE,MFOR/ 0,-1,-2,-3,-4 /,\r\n     1        MFIV  , MSIX,METE,MNIN     /-5,-6,-8,-9    /\r\n      DATA    INN   / 4HINPT,4HINP1,4HINP2,4HINP3,4HINP4 ,\r\n     1                4HINP5,4HINP6,4HINP7,4HINP8,4HINP9 /\r\n      DATA    IDHDR / 4HNAST,4HRAN ,4HUSER,4H TAP,4HE ID,4H COD,4HE - /\r\n      DATA    BCDBIN/ 4HBCD ,4H    ,4HBINA,4HRY          /\r\n      DATA    NONE  / 4H (NO,4HNE) /, IPT1,IPT4/ 1H1,1H4 /\r\nC\r\nC\r\n      IPTX = IPT1\r\n      IF (P4(1) .EQ. MSC) GO TO 20\r\n      GO TO 100\r\nC\r\nC\r\n      ENTRY INPUT1\r\nC     ============\r\nC\r\nC     INPUT1 HANDELS MSC/OUTPUT1 DATA.\r\nC     INPUT1 IS CALLED FROM INPTT1, WITH P4 = 'MSC', OR IT IS CALLED\r\nC     FROM INPTT4\r\nC\r\n   20 IPTX = IPT4\r\n      IF (P3(1).EQ.BCDBIN(1) .AND. P3(2).EQ.BCDBIN(2)) GO TO 9918\r\n      IF (P3(1).EQ.BCDBIN(3) .AND. P3(2).EQ.BCDBIN(4)) GO TO 9918\r\n      WRITE  (NOUT,30) UIM\r\n   30 FORMAT (A29,'. INPUTT1 IS REQUESTED TO READ INPUT TAPE GENERATED',\r\n     1       ' IN MSC/OUTPUT1 COMPATIBLE RECORDS')\r\nC\r\n  100 LCOR = KORSZ(X) - 2*NB\r\n      IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM)\r\n      INBUF = LCOR  + 1\r\n      OUBUF = INBUF + NB\r\n      TAPCOD(1) = P3(1)\r\n      TAPCOD(2) = P3(2)\r\n      IF (P2.LT.0 .OR. P2.GT.9) GO TO 9907\r\n      IN = INN(P2+1)\r\n      IF (IPTX .EQ. IPT4) WRITE (NOUT,110) UIM,NB,IN\r\n  110 FORMAT (A29,', CURRENT NASTRAN BUFFER SIZE IS',I9,' WORDS', /5X,\r\n     1       'SYNCHRONIZED BUFFSIZE IS REQUIRED IN CURRENT NASTRAN AND',\r\n     2       ' THE VERSION THAT WROTE ',A4,' TAPE (OR FILE)', /5X,\r\n     3       3(4H====),/)\r\n      IFILE  = IN\r\n      IF (MACH .GE. 5) GO TO 120\r\n      TAPEUP = TAPBIT(IN)\r\n      IF (.NOT.TAPEUP ) GO TO 9909\r\n  120 IF (P1 .LT. MNIN) GO TO 9908\r\nC\r\n      IF (P1 .EQ. MNIN) GO TO 5000\r\n      IF (P1 .LT. MFOR) GO TO 3000\r\n      IF (P1 .EQ. MTRE) GO TO 2000\r\n      IF (P1 .LE. ZERO) GO TO 150\r\nC\r\n      CALL OPEN (*9901,IN,X(INBUF),2)\r\n      DO 130 I = 1,P1\r\n      CALL READ (*9906,*9906,IN,NAMEX,2,0,NF)\r\n  130 CALL SKPFIL (IN,1)\r\n      GO TO 250\r\nC\r\n  150 IF (P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 190\r\nC\r\nC     P1 = -2 OR P1 = -4 IS ACCEPTABLE ONLY ON IBM OR UNIVAC\r\nC\r\n      IF (MACH.NE.2 .AND. MACH.NE.3) GO TO 9908\r\nC\r\n      IOLD = -P1/2\r\n      CALL OPEN (*9901,IN,X(INBUF),2)\r\n      CALL TPSWIT (IN,IOLD,1,TAPCOD)\r\nC\r\n  190 IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 230\r\nC\r\nC     OPEN USER TAPE TO READ WITH REWIND AHD TAPE ID CHECK\r\nC\r\n      IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR .AND.\r\n     1    IPTX.EQ.IPT4) GO TO 230\r\n      CALL OPEN (*9901,IN,X(INBUF),0)\r\n      CALL READ (*9911,*9912,IN,DX,3,0,NF)\r\n      CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF)\r\n      DO 210 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913\r\n  210 CONTINUE\r\n      CALL READ (*9911,*9912,IN,P3X,2,1,NF)\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9910\r\n      CALL SKPFIL (IN,1)\r\n      GO TO 250\r\nC\r\nC     OPEN USER TAPE TO READ WITHOUT REWIND AND NO TAPE ID CHECK\r\nC\r\n  230 CALL OPEN (*9901,IN,X(INBUF),2)\r\n      IF (IPTX .EQ. IPT4) CALL FWDREC (*9912,IX)\r\nC\r\n  250 DO 1000 I = 1,5\r\n      OUTPUT = OUT(I)\r\n      TRL(1) = OUTPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 1000\r\n      CALL FNAME (OUTPUT,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 1000\r\nC\r\nC     PASS FILE NAME HEADER RECORD\r\nC\r\n      CALL READ (*9904,*9905,IN,NAMEX,2,0,NF)\r\nC\r\nC     READ TRAILER RECORD, SIX WORDS (OR 3 WORDS, IPTX=4 ONLY)\r\nC\r\n      CALL READ (*9904,*300,IN,TRL(2),6,1,NF)\r\n      GO TO 340\r\nC\r\nC     JUST A NOTE, FROM G.CHAN/UNISYS -\r\nC     LEVEL 17.5 USED 2 RECORDS HERE FOR THE MATRIX NAME (2 BCD WORDS,\r\nC     1ST RECORD) AND 7 TRAILER WORDS (2ND RECORD)\r\nC\r\n  300 IF (IPTX.NE.IPT4 .OR. NF.LT.3) GO TO 9905\r\n      TRL(5) = TRL(2)\r\n      TRL(6) = TRL(3)\r\n      TRL(7) = TRL(4)\r\n      DO 320 J = 2,7\r\n      J1 = J/2 + 4\r\n      J2 = MOD(J-1,2)*16\r\n      TRL(J) = ANDF(RSHIFT(TRL(J1),J2),MASK)\r\n  320 CONTINUE\r\nC\r\nC     OPEN OUTPUT DATA BLOCK TO WRITE WITH REWIND\r\nC\r\n  340 CALL OPEN (*9902,OUTPUT,X(OUBUF),1)\r\nC\r\nC     COPY CONTENTS OF USER TAPE ONTO OUTPUT DATA BLOCK, INCLUDING\r\nC     FILE NAME IN RECORD 0\r\nC\r\n      CALL CPYFIL (IN,OUTPUT,X,LCOR,NF)\r\nC\r\nC     CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF\r\nC\r\n      CALL CLOSE (OUTPUT,1)\r\nC\r\nC     WRITE TRAILER\r\nC\r\n      TRL(1) = OUTPUT\r\n      CALL WRTTRL (TRL)\r\n      CALL PAGE2 (-3)\r\n      WRITE  (NOUT,400) UIM,NAME,IN,NAMEX\r\n  400 FORMAT (A29,' 4105,     DATA BLOCK ',2A4,' RETRIEVED FROM USER ',\r\n     1       'TAPE',A4, /5X,'NAME OF DATA BLOCK WHEN PLACED ON USER ',\r\n     2       'TAPE WAS ',2A4 )\r\nC\r\n 1000 CONTINUE\r\nC\r\nC     CLOSE NASTRAN USER TAPE WITHOUT REWIND\r\nC\r\n      CALL CLOSE (IN,2)\r\n      RETURN\r\nC\r\nC     OBTAIN LIST OF DATA BLOCKS ON USER TAPE.\r\nC\r\n 2000 CALL OPEN (*9901,IN,X(INBUF),0)\r\n      CALL READ (*9911,*9912,IN,DX,3,0,NF)\r\n      CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF)\r\n      DO 2005 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913\r\n 2005 CONTINUE\r\n      CALL READ (*9911,*9912,IN,P3X,2,1,NF)\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9914\r\n 2006 CALL SKPFIL (IN,1)\r\n      KF = 0\r\n 2007 CALL PAGE1\r\n      LINE = LINE + 5\r\n      WRITE  (NOUT,2010) IN\r\n 2010 FORMAT (1H0,50X,A4,14H FILE CONTENTS ,/46X,4HFILE,18X,4HNAME/1H0)\r\n 2020 CALL READ (*2050,*9915,IN,NAMEX,2,1,NF)\r\n      CALL SKPFIL (IN,1)\r\n      KF = KF + 1\r\n      LINE = LINE + 1\r\n      WRITE (NOUT,2030) KF,NAMEX\r\n 2030 FORMAT (45X,I5,18X,2A4)\r\n      IF (LINE - NLPP) 2020,2007,2007\r\n 2050 CALL REWIND (IN)\r\n      CALL SKPFIL (IN,1)\r\n      GO TO 250\r\nC\r\nC\r\nC     SEARCH MODE\r\nC\r\n 3000 CONTINUE\r\nC\r\nC     EXAMINE OUTPUT REQUESTS AND FILL NAME TABLE\r\nC\r\n      NNT = 0\r\n      DO 3050 I = 1,5\r\n      OUTPUT = OUT(I)\r\n      TRL(1) = OUTPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 3020\r\n      CALL FNAME (OUTPUT,NAME)\r\n      IF (IPTX.EQ.IPT4 .AND. NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)\r\n     1   ) GO TO 3010\r\n      NT(I,1) = 0\r\n      NT(I,2) = NAME(1)\r\n      NT(I,3) = NAME(2)\r\n      NNT = NNT + 1\r\n      GO TO 3050\r\n 3010 NT(I,2) = NAME(1)\r\n      NT(I,3) = NAME(2)\r\n 3020 NT(I,1) = -1\r\n 3050 CONTINUE\r\nC\r\n      IF (NNT .GT. 0) GO TO 3070\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,3060) UWM,IPTX\r\n 3060 FORMAT (A25,' 4137,  ALL OUTPUT DATA BLOCKS FOR INPUTT',A1,\r\n     1       ' ARE PURGED.')\r\n      RETURN\r\nC\r\nC     CHECK TAPE ID LABEL.\r\nC\r\n 3070 CALL OPEN (*9901,IN,X(INBUF),0)\r\n      CALL READ (*9911,*9912,IN,DX,3,0,NF)\r\n      CALL READ (*9911,*9912,IN,IDHDRX,7,0,NF)\r\n      DO 3080 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913\r\n 3080 CONTINUE\r\n      CALL READ (*9911,*9912,IN,P3X,2,1,NF)\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9910\r\n      CALL SKPFIL (IN,1)\r\nC\r\nC\r\nC     BEGIN SEARCH OF TAPE.\r\nC\r\n      KF = 0\r\n 3110 CALL READ (*3500,*9915,IN,NAMEX,2,0,NF)\r\n      KF = KF + 1\r\nC\r\n      DO 3200 I = 1,5\r\n      NAME(1) = NT(I,2)\r\n      NAME(2) = NT(I,3)\r\n      IF (NT(I,1) .LT. 0) GO TO 3200\r\n      IF (NAME(1).NE.NAMEX(1) .OR. NAME(2).NE.NAMEX(2)) GO TO 3200\r\n      NT(I,1) = NT(I,1) + 1\r\n      IF (NT(I,1).EQ.1 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 3150\r\n      CALL PAGE2 (-3)\r\n      WRITE  (NOUT,3140) UWM,NAME,KF,IN\r\n 3140 FORMAT (A25,' 4138,  DATA BLOCK ',2A4,' (DATA BLOCK COUNT =',I5,\r\n     2        ') HAS PREVIOUSLY BEEN RETRIEVED FROM', /36X ,\r\n     3        'USER TAPE ',A4,' AND WILL BE IGNORED.')\r\n      GO TO 3205\r\n 3150 CALL READ (*9904,*3160,IN,TRL(2),6,1,NF)\r\n      GO TO 3180\r\n 3160 IF (IPTX.NE.IPT4 .OR. NF.LT.3) GO TO 9905\r\n      TRL(5) = TRL(2)\r\n      TRL(6) = TRL(3)\r\n      TRL(7) = TRL(4)\r\n      DO 3170 J = 2,7\r\n      J1 = J/2 + 4\r\n      J2 = MOD(J-1,2)*16\r\n      TRL(J) = ANDF(RSHIFT(TRL(J1),J2),MASK)\r\n 3170 CONTINUE\r\n 3180 OUTPUT = OUT(I)\r\n      CALL OPEN (*9902,OUTPUT,X(OUBUF),1)\r\n      CALL CPYFIL (IN,OUTPUT,X,LCOR,NF)\r\n      CALL CLOSE (OUTPUT,1)\r\n      TRL(1) = OUTPUT\r\n      CALL WRTTRL (TRL)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,3185) UIM,NAME,IN,KF\r\n 3185 FORMAT (A29,' 4139, DATA BLOCK ',2A4,' RETRIEVED FROM USER TAPE ',\r\n     1       A4,' (DATA BLOCK COUNT =',I5,1H))\r\n      IF (NT(I,1) .GT. 1) GO TO 3190\r\n      NNT = NNT - 1\r\n      GO TO 3210\r\n 3190 WRITE  (NOUT,3195) UWM\r\n 3195 FORMAT (A25,' 4140, SECONDARY VERSION OF DATA BLOCK HAS REPLACED',\r\n     1        ' EARLIER ONE.')\r\n      CALL PAGE2 (-2)\r\n      GO TO 3210\r\n 3200 CONTINUE\r\nC\r\n 3205 CALL SKPFIL (IN,1)\r\n 3210 IF (NNT.GT.0 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 3110\r\n      GO TO 3900\r\nC\r\n 3500 IF (NNT .LE. 0) GO TO 3900\r\n      CALL PAGE2 (-7)\r\n      IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 9916\r\n      WRITE  (NOUT,3510) UWM\r\n 3510 FORMAT (A25,' 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ',\r\n     1        'TAPE.')\r\n      DO 3530 I = 1,5\r\n      IF (NT(I,1) .NE. 0) GO TO 3530\r\n      WRITE  (NOUT,3520) NT(I,2),NT(I,3)\r\n 3520 FORMAT (20X,21HNAME OF DATA BLOCK = ,2A4)\r\n 3530 CONTINUE\r\n      IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 9995\r\nC\r\n 3900 CONTINUE\r\n      CALL SKPFIL (IN,-1)\r\n      CALL CLOSE (IN,2)\r\n      RETURN\r\nC\r\n 5000 CONTINUE\r\n      CALL UNLOAD (IN)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 9901 WRITE  (NOUT,9951) SFM,IPTX,IN\r\n 9951 FORMAT (A25,' 4107, MODULE INPTT',A1,' UNABLE TO OPEN NASTRAN ',\r\n     1       'FILE ',A4,1H.)\r\n      GO TO 9995\r\nC\r\n 9902 WRITE  (NOUT,9952) SFM,IPTX,OUTPUT\r\n 9952 FORMAT (A25,' 4108, SUBROUTINE INPTT',A1,' UNABLE TO OPEN OUTPUT',\r\n     1       ' DATA BLOCK',I5)\r\n      GO TO 9995\r\nC\r\n 9904 CALL MESAGE (-2,IFILE,SUBNAM)\r\nC\r\n 9905 CALL MESAGE (-3,IFILE,SUBNAM)\r\nC\r\n 9906 WRITE  (NOUT,9956) UFM,IPTX,P1,IN,I\r\n 9956 FORMAT (A22,' 4111, MODULE INPUTT',A1,' IS UNABLE TO SKIP FORWARD'\r\n     1,       I10,' DATA BLOCKS ON PERMANENT NASTRAN FILE ',A4,1H., /5X,\r\n     2        'NUMBER OF DATA BLOCKS SKIPPED =',I5)\r\n      LINE = LINE + 1\r\n      GO TO 9995\r\nC\r\n 9907 WRITE  (NOUT,9957) UFM,IPTX,P2\r\n 9957 FORMAT (A23,' 4112, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ',\r\n     1        'SECOND PARAMETER =',I20)\r\n      GO TO 9995\r\nC\r\n 9908 WRITE  (NOUT,9958) UFM,IPTX,P1\r\n 9958 FORMAT (A23,' 4113, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ',\r\n     1       'FIRST PARAMETER =',I20)\r\n      GO TO 9995\r\nC\r\n 9909 WRITE  (NOUT,9959) UFM,IN\r\n 9959 FORMAT (A23,' 4127, USER TAPE ',A4,' NOT SET UP.')\r\n      GO TO 9995\r\nC\r\n 9910 WRITE  (NOUT,9960) UFM,P3X,IPTX,P3\r\n 9960 FORMAT (A23,' 4136, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ',\r\n     1       'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.)\r\n      GO TO 9995\r\nC\r\n 9911 WRITE  (NOUT,9961) UFM,IPTX,IN\r\n 9961 FORMAT (A23,' 4132, MODULE INPUTT',A1,' - END-OF-FILE ENCOUNTERED'\r\n     1,   ' WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4,1H.)\r\n      GO TO 9995\r\nC\r\n 9912 WRITE  (NOUT,9962) UFM,IPTX,IN\r\n 9962 FORMAT (A23,' 4133, MODULE INPUTT',A1,' - END-OF-RECORD ',\r\n     1       'ENCOUNTERED WHILE ATTEMPTING TO READ TAPE ID CODE ON ',\r\n     2       'USER TAPE ',A4,1H.)\r\n      GO TO 9995\r\nC\r\n 9913 WRITE  (NOUT,9963) UFM,IPTX,IDHDRX\r\n 9963 FORMAT (A23,' 4134, MODULE INPUTT',A1,\r\n     1        ' - ILLEGAL TAPE CODE HEADER = ',7A4)\r\n      GO TO 9995\r\nC\r\n 9914 WRITE  (NOUT,9964) UWM,P3X,P3\r\n 9964 FORMAT (A25,' 4135, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ',\r\n     1        'THIRD INPUTT1 DMAP PARAMETER -',2A4,2H-.)\r\n      LINE = LINE + 2\r\n      GO TO 2006\r\nC\r\n 9915 WRITE  (NOUT,9965) SFM,IPTX\r\n 9965 FORMAT (A25,' 4106, MODULE INPUTT',A1,' - SHORT RECORD.')\r\n      GO TO 9995\r\nC\r\n 9916 WRITE  (NOUT,9966) UFM\r\n 9966 FORMAT (A23,' 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ',\r\n     1       'TAPE',/)\r\n      DO 9917 I = 1,5\r\n      IF (NT(I,1) .NE. 0) GO TO 9917\r\n      WRITE (NOUT,9967) NT(I,2),NT(I,3)\r\n      LINE = LINE + 1\r\n 9917 CONTINUE\r\n 9967 FORMAT (20X,'NAME OF DATA BLOCK = ',2A4)\r\n      GO TO 9995\r\nC\r\n 9918 WRITE  (NOUT,9968) UFM,P3\r\n 9968 FORMAT (A23,', ILLEGAL TAPE LABEL NAME -',2A4,'-  POSSIBLY ',\r\n     1       'THE 4TH PARAMETER OF INPTT4 IS IN ERROR')\r\nC\r\nC\r\n 9995 LINE = LINE + 2\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/inptt2.f",
    "content": "      SUBROUTINE INPTT2\r\nC\r\nC     READ DATA BLOCK(S) FROM A FORTRAN UNIT.\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     INPUTT2   /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4/V,N,P5/\r\nC                               V,N,P6 $\r\nC\r\nC     PARAMETERS P1, P2, P4, AND P5 ARE INTEGER INPUT. P3 AND P6 ARE BCD\r\nC\r\nC            P1 =+N, SKIP FORWARD N DATA BLOCKS BEFORE READ\r\nC               = 0, NO ACTION TAKEN BEFORE READ (DEFAULT)\r\nC               =-1, BEFORE READ, FORTRAN TAPE IS REWOUND AND TAPE\r\nC                    HEADER RECORD (RECORD NUMBER ZERO) IS CHECKED\r\nC               =-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE\r\nC                    ARE PRINTED AND READ OCCURS AT BEGINNING OF TAPE\r\nC               =-5, SEARCH FORTRAN TAPE FOR FIRST VERSION OF DATA\r\nC                    BLOCKS REQUESTED.\r\nC                    IF ANY ARE NOT FOUND, A FATAL TERMINATION OCCURS.\r\nC               =-6, SEARCH FORTRAN TAPE FOR FINAL VERSION OF DATA\r\nC                    BLOCKS REQUESTED.\r\nC                    IF ANY ARE NOT FOUND, A FATAL TERMINATION OCCURS.\r\nC               =-7, SEARCH FORTRAN TAPE FOR FIRST VERSION OF DATA\r\nC                    BLOCKS REQUESTED.\r\nC                    IF ANY ARE NOT FOUND, A WARNING OCCURS.\r\nC               =-8, SEARCH FORTRAN TAPE FOR FINAL VERSION OF DATA\r\nC                    BLOCKS REQUESTED.\r\nC                    IF ANY ARE NOT FOUND, A WARNING OCCURS.\r\nC\r\nC            P2 =    THE FORTRAN UNIT FROM WHICH THE DATA BLOCK(S)\r\nC                    WILL BE READ. (DEFAULT P2 = 11, OR 14)\r\nC\r\nC            P3 =    TAPE ID CODE FOR FORTRAN TAPE, AN ALPHANUMERIC\r\nC                    VARIABLE WHOSE VALUE MUST MATCH A CORRESPONDING\r\nC                    VALUE ON THE FORTRAN TAPE.\r\nC                    THIS CHECK IS DEPENDENT ON THE VALUE OF P1 AS\r\nC                    FOLLOWS..\r\nC\r\nC                    *P1*             *TAPE ID CHECKED*\r\nC                     +N                     NO\r\nC                      0                     NO\r\nC                     -1                    YES\r\nC                     -3                    YES (WARNING CHECK)\r\nC                     -5                    YES\r\nC                     -6                    YES\r\nC                     -7                    YES\r\nC                     -8                    YES\r\nC                    THE MPL DEFAULT VALUE FOR P3 IS XXXXXXXX .\r\nC\r\nC            P4 =    NOT USED IN INPUTT2.\r\nC                    (USED ONLY IN OUTPUT2 FOR MAXIMUM RECORD SIZE)\r\nC\r\nC            P5 = 0, NON-SPARSE MATRIX IF INPUT IS A MATRIX DATA BLOCK\r\nC               = NON-0, SPARSE MATRIX IF INPUT IS A MATRIX DATA BLOCK\r\nC                    (P4 IS IGNORED IF INPUT IS A TALBE DATA BLOCK.\r\nC                     P4 IS EQUIVALENT TO P5 IN OUTPUT2 MODULE)\r\nC\r\nC            P6 = BLANK, (DEFAULT)\r\nC               = 'MSC', THE INPUT TAPE WAS WRITTEN IN MSC/OUTPUT2\r\nC                     COMPATIBEL RECORD FORMAT.\r\nC\r\nC     OUTPT2 DOES NOT AUTOMATICALLY OUTPUT THE MATRIX IN STRING OR\r\nC     SPARSE FORM. UNLESS P5 IS REQUESTED.\r\nC     SIMILARILY, INPUT2 DOES NOT AUTOMATICALLY PROCESS MATRIX IN SPARSE\r\nC     MATRIX FORM, UNLESS P5 IS REQUESTED).\r\nC\r\nC     REVISED  11/90 BY G.CHAN/UNISYS\r\nC              (1) TO ACCEPT MSC/OUTPUT2 DATA (CALLED FROM INPTT4, 11/90\r\nC                  OR INPTT2, 2/93)\r\nC              (2) TO ACCEPT SPARSE MATRIX COMING FORM COSMIC/OUTPT2\r\nC                  (SEE P5 PARAMETER IN INPTT2 AND P5 IN OUTPT2)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          SPARSE,DP\r\n      INTEGER          TRL(8),NAME(2),SUBNAM(2),TYPIN,MCB(7),DX(3),\r\n     1                 NAMEX(2),IDHDR(7),IDHDRX(7),P3X(2),NT(5,3),\r\n     2                 TAPCOD(2),NONE(2),BCDBIN(4),BLK(20)\r\n      REAL             CORE(1)\r\n      DOUBLE PRECISION DCORE(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\nCWKBNB\r\n      CHARACTER*80     DSNAMES\r\n      COMMON /DSNAME/ DSNAMES(80)\r\nCWKBNE\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3(2),P4,P5,P6(2)\r\n     1       /SYSTEM/  KSYSTM(65)\r\n     2       /PACKX /  TYPIN,TYPOUT,IROW,NROW,INCR\r\n     3       /TYPE  /  PREC(2),NWDS(4)\r\n     4       /ZZZZZZ/  X(1)\r\n      EQUIVALENCE      (CORE(1),X(1))\r\n      EQUIVALENCE      (KSYSTM(1),NB    ), (KSYSTM( 2),NOUT ),\r\n     1                 (KSYSTM(9),NLPP  ), (KSYSTM(12),LINE ),\r\n     2                 (BLK( 1)  ,BNAME ), (BLK( 2)   ,BTYP ),\r\n     3                 (BLK( 3)  ,BFORM ), (BLK( 4)   ,BROW ),\r\n     4                 (BLK( 5)  ,BPOINT), (BLK( 6)   ,BRAV ),\r\n     5                 (BLK( 7)  ,BWRT  ), (BLK( 8)   ,BFLAG),\r\n     6                 (BLK(12)  ,BCOL  ), (DCORE(1),CORE(1))\r\nCWKBI\r\n      DATA    IFIRST / 0 /\r\n      DATA    SUBNAM/  4HINPT, 4HT2  /  ,   NONE / 4H (NO,4HNE)       /\r\n      DATA    ZERO  ,  MONE,MTWO,MTRE,MFOR /0,-1,-2,-3,-4  /, I3 / 3  /\r\n     1        MFIV  ,  MSIX,METE /-5,-6,-8 /,    IPT2,IPT4 / 1H2, 1H4 /\r\n      DATA    IDHDR /  4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,3HE -/\r\n      DATA    BCDBIN/  4HBCD ,4H    ,4HBINA,4HRY    /, MSC / 4HMSC    /\r\nC\r\nC\r\n      IPTX  = IPT2\r\n      NTRL  = 8\r\n      IF (P4 .EQ. 0) GO TO 20\r\n      IF (P5 .NE. 0) GO TO 20\r\n      WRITE  (NOUT,10) UWM\r\n   10 FORMAT (A25,'. THE 4TH PARAMETER IN INPUTT2 MODULE IS NO LONGER ',\r\n     1       'USED.', /5X,'SPARSE MATRIX FLAG IS NOW THE 5TH PARAMETER',\r\n     2       ', A MOVE TO SYNCHRONIZE THE PARAMETERS USED IN OUTPUT2')\r\n      P5 = P4\r\n   20 SPARSE = .FALSE.\r\n      IF (P5 .NE. 0) SPARSE = .TRUE.\r\n      IF (P6(1) .NE. MSC) GO TO 100\r\n      GO TO 50\r\nC\r\nC\r\n      ENTRY INPUT2\r\nC     ============\r\nC\r\nC     INPUT2 IS CALLED TO HANDLE MSC/OUTPUT2 DATA.\r\nC     IT IS CALLED FROM INPTT2 WITH P6 PARAMETER = 'MSC', OR\r\nC     FROM INPTT4\r\nC\r\n      IPTX  = IPT4\r\n   50 WRITE  (NOUT,60) UIM,IPTX\r\n   60 FORMAT (A29,' FROM INPUTT',A1,'. USER INPUT TAPE IN MSC/OUTPUT2',\r\n     1       ' COMPATIBLE RECORDS')\r\n      IPTX  = IPT4\r\n      NTRL  = 7\r\n      IRECF = 0\r\n      SPARSE= .FALSE.\r\n      IF (P3(1).EQ.BCDBIN(1) .AND. P3(2).EQ.BCDBIN(2)) GO TO 1580\r\n      IF (P3(1).EQ.BCDBIN(3) .AND. P3(2).EQ.BCDBIN(4)) GO TO 1580\r\nC\r\n  100 LCOR = KORSZ(X) - NB\r\n      IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM)\r\nCWKBNB\r\n      IF ( IFIRST .NE. 0) GO TO 61\r\n      CLOSE ( UNIT=P2 )\r\n      OPEN ( UNIT=P2, FILE=DSNAMES(P2), FORM='UNFORMATTED',\r\n     1       STATUS='UNKNOWN' )\r\n      IFIRST = 1\r\n61    CONTINUE\r\nCWKBNE\r\n      OUBUF = LCOR + 1\r\n      TAPCOD(1) = P3(1)\r\n      TAPCOD(2) = P3(2)\r\n      IN = P2\r\n      IF (P1.LT.METE .OR. P1.EQ.MTWO .OR. P1.EQ.MFOR) GO TO 1420\r\nC\r\n      IF (P1 .LT. MFOR) GO TO 700\r\n      IF (P1 .EQ. MTRE) GO TO 500\r\n      IF (P1 .LE. ZERO) GO TO 130\r\nC\r\n      I = 1\r\n  110 READ (IN) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) NAMEX\r\n      READ (IN) KEY\r\n      IMHERE = 115\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      ASSIGN 120 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\nC\r\n  120 I = I + 1\r\n      IF (I .LE. P1) GO TO 110\r\n      GO TO 160\r\nC\r\nC     OPEN FORTRAN TAPE TO READ TAPE-LABEL WITHOUT REWIND.\r\nC\r\n  130 IF (P1 .NE. MONE) GO TO 160\r\n      REWIND IN\r\n      READ (IN) KEY\r\n      KEYX = 3\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) DX\r\n      READ (IN) KEY\r\n      KEYX = 7\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) IDHDRX\r\n      DO 140 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460\r\n  140 CONTINUE\r\n      READ (IN) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) P3X\r\n      READ (IN) KEY\r\n      IMHERE = 145\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1440\r\n      ASSIGN 150 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n  150 CONTINUE\r\nC\r\n  160 DO 430 I = 1,5\r\nC\r\n      OUTPUT = 200 + I\r\n      TRL(1) = OUTPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 430\r\n      CALL FNAME (OUTPUT,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 430\r\nC\r\nC     READ FILE NAME HEADER RECORD.\r\nC\r\n      READ (IN) KEY\r\n      IF (KEY .EQ. 0) GO TO 440\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) NAMEX\r\n      READ (IN) KEY\r\n      IMHERE = 163\r\n      IF (KEY .GE. 0) GO TO 1560\r\nC\r\nC     READ TRAILER RECORD.\r\nC\r\n      READ (IN) KEY\r\n      KEYX = NTRL\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) (TRL(L),L=1,NTRL)\r\n      IF (IPTX .EQ. IPT2) IRECF = TRL(8)\r\n      READ (IN) KEY\r\n      IMHERE = 165\r\n      IF (KEY .GE. 0) GO TO 1560\r\nC\r\nC     OPEN OUTPUT DATA BLOCK TO WRITE WITH REWIND.\r\nC\r\n      CALL OPEN (*1400,OUTPUT,X(OUBUF),1)\r\nC\r\nC     COPY CONTENTS OF FORTRAN TAPE ONTO OUTPUT DATA BLOCK.\r\nC\r\nC     TRL(8) = 0, DATA BLOCK IS A TALBE\r\nC            = 1, DATA BLOCK IS A MATRIX, WRITTEN IN STRING FORMAT\r\nC            = 2, DATA BLOCK IS A VECTOR (1ST RECORD IS REGULAR, 2ND\r\nC                 RECORD IS A STRING)\r\nC\r\n      INDEX = 0\r\n      READ (IN) KEY\r\n      IF (IPTX .EQ. IPT2) GO TO 180\r\n      BNAME = OUTPUT\r\n      KEYX  = 1\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) KREC\r\n      IMHERE = 170\r\n      IF (KREC .NE. 0) GO TO 1560\r\nC\r\n      READ (IN) KEY\r\n  180 KEYX  = 2\r\n      IF (KEY .LT. KEYX) GO TO 1530\r\n      IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(L),L=1,KEY)\r\n      CALL WRITE (OUTPUT,NAME,2,0)\r\n      IF (KEY .EQ. KEYX) GO TO 200\r\n      CALL WRITE (OUTPUT,X(I3),KEY-2,0)\r\nC\r\n  200 IF (IPTX .EQ. IPT2) GO TO 220\r\n      READ (IN) KEY\r\n      IMHERE = 205\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      BTYP  = TRL(5)\r\n      BFORM = 0\r\n      BCOL  = 0\r\n      NWD   = NWDS(BTYP)\r\n      DP    = BTYP.EQ.2 .OR. BTYP.EQ.4\r\n      CALL WRITE (OUTPUT,X,0,1)\r\n  210 READ (IN) KEY\r\n      KEYX = 1\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) KREC\r\n      IF (KREC .NE. 0) GO TO 350\r\nC\r\nC     TABLE DATA BLOCK(S)\r\nC\r\n  220 READ (IN) KEY\r\n      IF (KEY) 240, 400, 230\r\nC              EOR, EOF, KEY\r\nC\r\n  230 IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(L),L=1,KEY)\r\n      CALL WRITE (OUTPUT,X,KEY,0)\r\n      GO TO 220\r\n  240 CALL WRITE (OUTPUT,X,0,1)\r\n      IF (IPTX  .EQ. IPT4) GO TO 210\r\n      IF (IRECF .EQ.    0) GO TO 200\r\n      IF (IRECF.EQ.1 .OR. INDEX.GT.0) GO TO 250\r\n      INDEX = 1\r\n      GO TO 220\r\nC\r\nC     READ STRING FORMATTED MATRIX\r\nC\r\n  250 IF (IRECF.EQ.2 .AND. INDEX.EQ.2) GO TO 260\r\n      INDEX = 2\r\n      CALL MAKMCB (MCB(1),OUTPUT,TRL(3),TRL(4),TRL(5))\r\n      IROW  = 1\r\n      NROW  = TRL(3)\r\n      TYPIN = TRL(5)\r\n      TYPOUT= TRL(5)\r\n      NWDSX = NWDS(TYPOUT)\r\n      NCOL  = TRL(2)\r\nC\r\nC     CHECK FOR NULL MATRIX\r\nC\r\n      IF (NROW.EQ.0 .OR. NCOL.EQ.0) GO TO 400\r\n      IF (IRECF .EQ. 2) NCOL = 1\r\n      INCR  = 1\r\n      NWDSX = NROW*NWDSX\r\n  260 KEYX  = NWDSX\r\nC\r\nC     NWDSX IS NUMBER OF WORDS NEEDED PER COLUMN\r\nC\r\n      IF (SPARSE) GO TO 300\r\n      DO 270 L = 1,NCOL\r\n      READ (IN) KEY\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(K),K=1,NWDSX)\r\n      CALL PACK (X,OUTPUT,MCB)\r\n      READ (IN) KEY\r\n      IMHERE = 265\r\n      IF (KEY .GT. 0) GO TO 1560\r\n  270 CONTINUE\r\n  280 IF (IRECF .EQ. 2) GO TO 200\r\n      KEYX = 0\r\n      READ (IN) KEY\r\n      IMHERE = 285\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      GO TO 400\r\nC\r\nC     SPARSE MATRIX INPUT (P5 = NON-ZERO)\r\nC     (NOT CALLING FROM INPTT4 (IPTX=IPT2)\r\nC\r\n  300 DO 340 L = 1,NCOL\r\n      DO 310 K = 1,NWDSX\r\n  310 X(K) = 0.0\r\n  320 READ (IN) KEY,BASE\r\n      IF (KEY .LT. 0) GO TO 330\r\n      READ (IN) (X(K+BASE),K=1,KEY)\r\n      GO TO 320\r\n  330 CALL PACK (X,OUTPUT,MCB)\r\n  340 CONTINUE\r\n      GO TO 280\r\nC\r\nC     MATRIX DATA BLOCK - MSC/STRING RECORD. (IPTX=IPT4)\r\nC\r\nC\r\n  350 BFLAG = -1\r\n      BCOL  = BCOL + 1\r\n  360 READ (IN) KEY\r\n      CALL PUTSTR (BLK)\r\n      IMHERE = 360\r\n      IF (KEY)  390,1560, 370\r\nC       NULL or EOR, ERR, KEY\r\nC\r\n  370 BWRT = KEY/NWD\r\n      IMHERE = 370\r\n      IF (BWRT .GT. BRAV) GO TO 1560\r\nC\r\nC     COMMENTS FROM G.C./UNISYS   3/93\r\nC     UNLESS MSC/PUTSTR IS DIFFERENT FROM COSMIC/PUTSTR, THE FOLLOWING\r\nC     3 LINES, ORIGINATED FROM MSC SOURCE CODE, DO NOT WORK FOR D.P.\r\nC     DATA ON VAX, AND POSSIBLY SILICON-GRAHPICS. THEY ARE REPLACED BY\r\nC     NEXT 17 LINES BELOW.\r\nC     (I TRIED  SETTING L1=(BPOINT-1)*NWD+1, AND STILL DID NOT WORK.)\r\nC     THE PROBLEM HERE IS D.P. DATA MAY FALL SHORT ON DOUBLE WORD\r\nC     BOUNADRY, AND THEREFORE BECOME GARBAGE, WHICH MAY CAUSE FATAL\r\nC     ERROR IN PRINTING.\r\nC\r\nC     L1 = BPOINT\r\nC     L2 = L1 - 1 + KEY\r\nC     READ (IN) BROW,(CORE(L),L=L1,L2)\r\nC\r\n      L1 = BPOINT*NWD\r\n      L2 = L1 - 1 + KEY\r\n      IF (DP) GO TO 380\r\nC     L  = 375\r\nC     WRITE  (NOUT,375) L,L1,L2,KEY,BROW,BTYP,BPOINT\r\nC 375 FORMAT (' /@',I3,'  L1,L2,KEY,BROW,BTYP,BPOINT =',4I7,4I4)\r\n      READ   (IN) BROW,(CORE(L),L=L1,L2)\r\nC     WRITE  (NOUT,376,ERR=388) (CORE(L),L=L1,L2)\r\nC 376 FORMAT (10X,' CORE =',/,(1X,11E11.3))\r\n      GO TO 385\r\n  380 L1 = L1/2\r\n      L2 = L2/2\r\nC     L  = 382\r\nC     WRITE  (NOUT,375) L,L1,L2,KEY,BROW,BTYP,BPOINT\r\n      READ   (IN) BROW,(DCORE(L),L=L1,L2)\r\nC     WRITE  (NOUT,382,ERR=388) (DCORE(L),L=L1,L2)\r\nC 382 FORMAT (10X,'DCORE =',/,(1X,11D11.3))\r\n  385 CALL ENDPUT (BLK)\r\n      GO TO 360\r\n  390 BFLAG = +1\r\n      BWRT  =  0\r\n      CALL ENDPUT (BLK)\r\n      GO TO 210\r\nC\r\nC     CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF.\r\nC\r\n  400 CALL CLOSE (OUTPUT,1)\r\nC\r\nC     WRITE TRAILER.\r\nC\r\n      TRL(1) = OUTPUT\r\n      CALL WRTTRL (TRL)\r\n      CALL PAGE2 (-3)\r\n      WRITE  (NOUT,410) UIM,NAME,IN,NAMEX\r\n  410 FORMAT (A29,' 4105, DATA BLOCK ',2A4,' RETRIEVED FROM FORTRAN ',\r\n     1        'TAPE ',I2, /5X,'ORIGINAL NAME OF DATA BLOCK WAS ',2A4)\r\n      IF (SPARSE .AND. NTRL.EQ.8 .AND. TRL(8).NE.0)\r\n     1    WRITE (NOUT,420) TRL(2),TRL(3)\r\n  420 FORMAT (1H+,55X,'(A SPARSE MATRIX',I6,2H X,I6,')')\r\nC\r\n  430 CONTINUE\r\nC\r\nC     CLOSE FORTRAN TAPE WITHOUT REWIND.\r\nC\r\n  440 CONTINUE\r\n      RETURN\r\nC\r\nC     OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE.\r\nC\r\n  500 REWIND IN\r\n      READ (IN) KEY\r\n      KEYX = 3\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) DX\r\n      READ (IN) KEY\r\n      KEYX = 7\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) IDHDRX\r\n      DO 510 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460\r\n  510 CONTINUE\r\n      READ (IN) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) P3X\r\n      READ (IN) KEY\r\n      IMHERE = 515\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1480\r\n  520 ASSIGN 530 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n  530 KF   = 0\r\n  540 CALL PAGE1\r\n      LINE = LINE + 8\r\n      WRITE  (NOUT,550) IN\r\n  550 FORMAT (//50X,'FILE CONTENTS ON FORTRAN UNIT ',I2, /51X,32(1H-),\r\n     1        //54X,4HFILE,18X,4HNAME,//)\r\n  560 READ (IN) KEY\r\n      IF (KEY .EQ. 0) GO TO 590\r\nC     KEYX = 2\r\nC     IF (KEY .NE. KEYX) GO TO 9918\r\n      READ (IN) NAMEX\r\nC     READ (IN) KEY\r\nC     IF (KEY .GE. 0) GO TO 9919\r\n      ASSIGN 570 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n  570 KF   = KF + 1\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,580) KF,NAMEX\r\n  580 FORMAT (53X,I5,18X,2A4)\r\n      IF (LINE - NLPP) 560,540,540\r\n  590 REWIND IN\r\n      ASSIGN 600 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n  600 CONTINUE\r\n      GO TO 160\r\nC\r\nC     SEARCH MODE\r\nC\r\nC     EXAMINE OUTPUT REQUESTS AND FILL NAME TABLE.\r\nC\r\n  700 NNT = 0\r\n      DO 720 I = 1,5\r\n      OUTPUT = 200 + I\r\n      TRL(1) = OUTPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 710\r\n      CALL FNAME (OUTPUT,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 710\r\n      NT(I,1) = 0\r\n      NT(I,2) = NAME(1)\r\n      NT(I,3) = NAME(2)\r\n      NNT = NNT + 1\r\n      GO TO 720\r\n  710 NT(I,1) = -1\r\nC     IF (IPTX .NE. IPT2) GO TO 3050\r\n      NT(I,2) = NONE(1)\r\n      NT(I,3) = NONE(2)\r\n  720 CONTINUE\r\nC\r\n      IF (NNT .GT. 0) GO TO 800\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,730) UWM,IPTX\r\n  730 FORMAT (A25,' 4137, ALL OUTPUT DATA BLOCKS FOR INPUTT',A1,\r\n     1        ' ARE PURGED.')\r\nC     CLOSE (UNIT=IN)\r\n      RETURN\r\nC\r\nC     CHECK TAPE ID LABEL.\r\nC\r\n  800 REWIND IN\r\n      READ (IN) KEY\r\n      KEYX = 3\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) DX\r\n      READ (IN) KEY\r\n      KEYX = 7\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) IDHDRX\r\n      DO 810 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 1460\r\n  810 CONTINUE\r\n      READ (IN) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) P3X\r\n      READ (IN) KEY\r\n      IMHERE = 815\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 1440\r\n      ASSIGN 820 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n  820 CONTINUE\r\nC\r\nC     BEGIN SEARCH OF TAPE.\r\nC\r\n      KF = 0\r\n  830 READ (IN) KEY\r\n      IF (KEY .EQ. 0) GO TO 1140\r\nC     KEYX = 2\r\nC     IF (KEY .NE. KEYX) GO TO 9918\r\n      READ (IN) NAMEX\r\n      READ (IN) KEY\r\n      IMHERE = 835\r\n      IF (KEY .GE. 0) GO TO 1560\r\n      KF = KF + 1\r\nC\r\n      DO 1100 I = 1,5\r\n      NAME(1) = NT(I,2)\r\n      NAME(2) = NT(I,3)\r\n      IF (NT(I,1) .LT. 0) GO TO 1100\r\n      IF (NAME(1).NE.NAMEX(1) .OR. NAME(2).NE.NAMEX(2)) GO TO 1100\r\n      NT(I,1) = NT(I,1) + 1\r\n      IF (NT(I,1).EQ.1 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 850\r\n      CALL PAGE2 (-3)\r\n      WRITE  (NOUT,840) UWM,NAME,KF,IN\r\n  840 FORMAT (A25,' 4138, DATA BLOCK ,',2A4,' (DATA BLOCK COUNT =',I6,\r\n     1       ')  HAS PREVIOUSLY BEEN RETRIEVED FROM ', /36X,\r\n     2       'FORTRAN TAPE ',I2,' AND WILL BE IGNORED.')\r\n      GO TO 1110\r\n  850 READ (IN) KEY\r\n      KEYX = NTRL\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) (TRL(L),L=1,NTRL)\r\n      IF (IPTX .EQ. IPT2) IRECF = TRL(8)\r\n      READ (IN) KEY\r\n      IMHERE = 855\r\n      IF (KEY .GE. 0) GO TO 1560\r\nC\r\n      OUTPUT = 200 + I\r\n      CALL OPEN (*1400,OUTPUT,X(OUBUF),1)\r\nC\r\n      INDEX = 0\r\nC     IF (IPTX .EQ. IPT4) GO TO 890        ! FROM MSC/INPTT4\r\n      READ (IN) KEY\r\n      IF (IPTX .EQ. IPT2) GO TO 860\r\n      KEYX = 1\r\n      IF (KEY .EQ. KEYX) GO TO 1530\r\n      READ (IN) KREC\r\n      IMHERE = 857\r\n      IF (KREC .LT. 0) GO TO 1560\r\n      READ (IN) KEY\r\n  860 KEYX = 2\r\n      IF (KEY .LT. KEYX) GO TO 1530\r\n      IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(L),L=1,KEY)\r\n      CALL WRITE (OUTPUT,NAME,2,0)\r\n      IF (KEY .EQ. KEYX) GO TO 870\r\n      CALL WRITE (OUTPUT,X(I3),KEY-2,0)\r\nC\r\n  870 IF (IPTX .EQ. IPT2) GO TO 890\r\n      READ (IN) KEY\r\n      IMHERE = 875\r\n      IF (KEY .GT. 0) GO TO 1560\r\n      BTYP  = TRL(5)\r\n      BFORM = 0\r\n      BCOL  = 0\r\n      NWD   = NWDS(BTYP)\r\n      DP    = BTYP.EQ.2 .OR. BTYP.EQ.4\r\n      CALL WRITE (OUTPUT,0,0,1)\r\n  880 READ (IN) KEY\r\n      KEYX = 1\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      READ (IN) KREC\r\n      IF (KREC .NE. 0) GO TO 1010\r\nC\r\nC     TABLE DATA BLOCK(S)\r\nC\r\n  890 READ (IN) KEY\r\n      IF (KEY) 910,1060,900\r\nC              EOR, EOF, KEY\r\nC\r\n  900 IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(L),L=1,KEY)\r\n      CALL WRITE (OUTPUT,X,KEY,0)\r\n      GO TO 890\r\n  910 CALL WRITE (OUTPUT,X,0,1)\r\nC     IF (IPTX .EQ. IPT4) GO TO 890\r\n      IF (IPTX .EQ. IPT4) GO TO 880\r\n      IF (IRECF .EQ. 0) GO TO 870\r\n      IF (IRECF .EQ. 1) GO TO 920\r\n      IF (INDEX .GT. 0) GO TO 920\r\n      INDEX = 1\r\n      GO TO 870\r\nC\r\nC     READ STRING FORMATTED MATRIX\r\nC\r\n  920 IF (IRECF.EQ.2 .AND. INDEX.EQ.2) GO TO 930\r\n      INDEX = 2\r\n      CALL MAKMCB (MCB(1),OUTPUT,TRL(3),TRL(4),TRL(5))\r\n      IROW  = 1\r\n      NROW  = TRL(3)\r\n      TYPIN = TRL(5)\r\n      TYPOUT= TRL(5)\r\n      NWDSX = NWDS(TYPOUT)\r\n      NCOL  = TRL(2)\r\nC\r\nC     CHECK FOR NULL MATRIX\r\nC\r\n      IF (NROW.EQ.0 .OR. NCOL.EQ.0) GO TO 1060\r\n      IF (IRECF .EQ. 2) NCOL = 1\r\n      INCR  = 1\r\n      NWDSX = NROW*NWDSX\r\n  930 KEYX  = NWDSX\r\nC\r\nC     NWDSX IS NUMBER OF WORDS NEEDED PER COLUMN\r\nC\r\n      IF (SPARSE) GO TO 960\r\n      DO 940 L = 1,NCOL\r\n      READ (IN) KEY\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(K),K=1,NWDSX)\r\n      CALL PACK (X,OUTPUT,MCB)\r\n      READ (IN) KEY\r\n      IMHERE = 935\r\n      IF (KEY .GT. 0) GO TO 1560\r\n  940 CONTINUE\r\n  950 IF (IRECF .EQ. 2) GO TO 870\r\n      KEYX = 0\r\n      READ (IN) KEY\r\n      IF (KEY .NE. KEYX) GO TO 1530\r\n      GO TO 1060\r\nC\r\nC     SPARSE MATRIX INPUT (P4 = NON-ZERO)\r\nC     (NOT CALLING FROM INPTT4 (IPTX=IPT2)\r\nC\r\n  960 DO 1000 L = 1,NCOL\r\n      DO 970 K  = 1,NWDSX\r\n  970 X(K) = 0.0\r\n  980 READ (IN) KEY,BASE\r\n      IF (KEY .LT. 0) GO TO 990\r\n      READ (IN) (X(K+BASE),K=1,KEY)\r\n      GO TO 980\r\n  990 CALL PACK (X,OUTPUT,MCB)\r\n 1000 CONTINUE\r\n      GO TO 950\r\nC\r\nC     MATRIX DATA BLOCK, IPTX = IPT4.  MSC/STRING RECORD\r\nC\r\nC\r\n 1010 BFLAG = -1\r\n      BCOL  = BCOL + 1\r\n 1020 READ (IN) KEY\r\n      CALL PUTSTR (BLK)\r\n      IMHERE = 1025\r\n      IF (KEY)  1050,1560,1030\r\nC       NULL or EOR,  ERR, KEY\r\nC\r\n 1030 BWRT = KEY/NWD\r\n      IMHERE = 1030\r\n      IF (BWRT .GT. BRAV) GO TO 1560\r\nC\r\nC     L1 = BPOINT\r\nC     L2 = L1 - 1 + KEY\r\nC     READ (IN) BROW,(CORE(L),L=L1,L2)\r\nC\r\n      L1 = BPOINT*NWD\r\n      L2 = L1 - 1 + KEY\r\n      IF (DP) GO TO 1035\r\n      READ (IN) BROW,(CORE(L),L=L1,L2)\r\n      GO TO 1040\r\n 1035 L1 = L1/2\r\n      L2 = L2/2\r\n      READ (IN) BROW,(DCORE(L),L=L1,L2)\r\n 1040 CALL ENDPUT (BLK)\r\n      GO TO 1020\r\n 1050 BFLAG = +1\r\n      BWRT  =  0\r\n      CALL ENDPUT (BLK)\r\n      GO TO 880\r\nC\r\nC     CLOSE OUTPUT DATA BLOCK WITH REWIND AND EOF\r\nC\r\n 1060 CALL CLOSE (OUTPUT,1)\r\nC\r\nC     WRITE TRAILER\r\nC\r\n      TRL(1) = OUTPUT\r\n      CALL WRTTRL (TRL)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,1070) UIM,NAME,IN,KF\r\n 1070 FORMAT (A29,' 4139, DATA BLOCK ',2A4,' RETRIEVED FROM FORTRAN ',\r\n     1       'TAPE ',I2,' (DATA BLOCK COUNT =',I6,1H))\r\n      IF (NT(I,1) .GT. 1) GO TO 1080\r\n      NNT = NNT - 1\r\n      GO TO 1130\r\n 1080 WRITE  (NOUT,1090) UWM\r\n 1090 FORMAT (A25,' 4140, SECONDARY VERSION OF DATA BLOCK HAS REPLACED',\r\n     1       ' EARLIER ONE.')\r\n      CALL PAGE2 (-2)\r\n      GO TO 1130\r\n 1100 CONTINUE\r\nC\r\n 1110 ASSIGN 1120 TO RET\r\n      NSKIP = 1\r\n      GO TO 1300\r\n 1120 CONTINUE\r\n 1130 IF (NNT.GT.0 .OR. P1.EQ.MSIX .OR. P1.EQ.METE) GO TO 830\r\n      GO TO 1200\r\nC\r\n 1140 IF (NNT .LE. 0) GO TO 1200\r\n      CALL PAGE2 (-7)\r\n      IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 1160\r\n      WRITE  (NOUT,1150) UWM\r\n 1150 FORMAT (A25,' 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON FORTRAN',\r\n     1       ' TAPE.')\r\n      GO TO 1170\r\n 1160 WRITE (NOUT,1500) UFM\r\n 1170 DO 1190 I = 1,5\r\n      IF (NT(I,1) .NE. 0) GO TO 1190\r\n      WRITE  (NOUT,1180) NT(I,2),NT(I,3)\r\n 1180 FORMAT (20X,21HNAME OF DATA BLOCK = ,2A4)\r\n 1190 IF (IPTX .EQ. IPT4) GO TO 1200\r\n      IF (P1.EQ.MFIV .OR. P1.EQ.MSIX) GO TO 1600\r\nC\r\n 1200 ASSIGN 1210 TO RET\r\n      NSKIP = -1\r\n      GO TO 1300\r\n 1210 CONTINUE\r\n      RETURN\r\nC\r\nC     SIMULATION OF SKPFIL (IN,NSKIP)\r\nC\r\n 1300 IF (NSKIP) 1320,1310,1330\r\n 1310 GO TO RET, (120,150,530,570,600,820,1120,1210)\r\n 1320 REWIND IN\r\nC\r\nC     NSKIP = COMPLEMENT OF NSKIP.\r\nC\r\n 1330 DO 1370 NS = 1,NSKIP\r\n 1340 READ (IN) KEY\r\n      IF (KEY) 1340,1360,1350\r\nC               EOR, EOF, KEY\r\nC\r\n 1350 IF (KEY .GT. LCOR) GO TO 1510\r\n      READ (IN) (X(L),L=1,KEY)\r\n      GO TO 1340\r\n 1360 CONTINUE\r\n 1370 CONTINUE\r\n      GO TO 1310\r\nC\r\nC     ERRORS\r\nC\r\n 1400 WRITE  (NOUT,1410) UFM,IPTX,OUTPUT\r\n 1410 FORMAT (A23,' 4108, SUBROUTINE INPTT',A1,' UNABLE TO OPEN OUTPUT',\r\n     1        ' DATA BLOCK',I6)\r\n      GO TO  1600\r\n 1420 WRITE  (NOUT,1430) UFM,IPTX,P1\r\n 1430 FORMAT (A23,' 4113, MODULE INPUTT',A1,' - ILLEGAL VALUE FOR ',\r\n     1       'FIRST PARAMETER =',I20)\r\n      GO TO  1600\r\n 1440 WRITE  (NOUT,1450) UFM,P3X,IPTX,P3\r\n 1450 FORMAT (A23,' 4136, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ',\r\n     1       'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.)\r\n      LINE = LINE + 1\r\n      GO TO  1600\r\n 1460 WRITE  (NOUT,1470) UFM,IPTX,IDHDRX\r\n 1470 FORMAT (A23,' 4134, MODULE INPUTT',A1,' - ILLEGAL TAPE CODE ',\r\n     1        'HEADER = ',7A4)\r\n      GO TO  1600\r\n 1480 WRITE  (NOUT,1490) UWM,P3X,IPTX,P3\r\n 1490 FORMAT (A25,' 4135, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ',\r\n     1        'THIRD INPUTT',A1,' DMAP PARAMETER -',2A4,2H-.)\r\n      GO TO  520\r\n 1500 FORMAT (A23,' 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER ',\r\n     1       'TAPE')\r\n 1510 WRITE  (NOUT,1520) UFM,LCOR,KEY\r\n 1520 FORMAT (A23,' 2187, INSUFFICIENT WORKING CORE TO HOLD FORTRAN ',\r\n     1       'LOGICAL RECORD.', /5X,'LENGTH OF WORKING CORE =',I11,\r\n     2       ',  LENGTH OF FORTRAN LOGICAL RECORD =',I11,1H.)\r\n      LINE = LINE + 1\r\n      GO TO  1600\r\n 1530 WRITE  (NOUT,1540) SFM,KEY,KEYX\r\n 1540 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10,\r\n     1       ',   EXPECTED VALUE =',I11,1H.)\r\n      IF (KEY.EQ.2 .AND. KEYX.EQ.3) WRITE (NOUT,1550)\r\n 1550 FORMAT (5X,'POSSIBLY DUE TO IMPROPER TAPE GENERATION PROCEDURE')\r\n      GO TO  1600\r\n 1560 WRITE  (NOUT,1570) SFM,KEY,IMHERE\r\n 1570 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10,'.  IMHERE =',I4)\r\n      GO TO  1600\r\n 1580 WRITE  (NOUT,1590) UFM,P3\r\n 1590 FORMAT (A23,', ILLEGAL TAPE LABEL NAME -',2A4,'-  POSSIBLY ',\r\n     1       'THE 4TH PARAMETER OF INPTT4 IS IN ERROR')\r\n      GO TO  1600\r\nC\r\n 1600 LINE = LINE + 2\r\n      CALL MESAGE (-61,LCOR,SUBNAM)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/inptt3.f",
    "content": "      SUBROUTINE INPTT3\r\nC\r\nC     THIS ROUTINE READS MATRIX DATA FROM AN INPUT TAPE, WRITTEN IN\r\nC     ROCKWELL INTERNATIONAL COMPANY'S CUSTOMARY FORMAT, INTO NASTRAN\r\nC     GINO MATRIX BLOCK.\r\nC     (THE RI DATA IS IN A COMPACT FORTRAN-FORMATTED CODED FORM, DOUBLE\r\nC     PRECISION, WHCIH APPEARS TO HAVE QUITE WIDESPREAD ACCEPTANCE IN\r\nC     THE AEROSPACE FIELD, AND PARTICULARY IN MARSHALL SPACE FLIEGHT\r\nC     CENTER (MSFC) AREA)\r\nC\r\nC     WRITTEN ORIGINALLY BY MEL MARTENS, ROCKWELL INTERNATIONAL, SPACE\r\nC     DIVISION (213) 922-2316, AND MODIFIED UP TO NASTRAN STANDARD BY\r\nC     G.CHAN/UNISYS, 2/1987\r\nC\r\nC     INPTT3  /O1,O2,O3,O4,O5/V,N,UNIT/V,N,ERRFLG/V,N,TEST  $\r\nC\r\nC             UNIT  = FORTRAN INPUT TAPE UNIT NO.\r\nC                     TAPE IS REWOUND BEFORE READ IF UNIT IS NEGATIVE\r\nC                     FORTRAN UNIT 11 (INPT) IS USED IF UNIT= 0 OR -1.\r\nC             ERRFLG= 1, JOB TERMINATED IF DATA BLOCK ON TAPE NO FOUND\r\nC                     0, NO TERMINATION IF DATA BLOCK NO FOUND ON TAPE\r\nC             TEST  = 0, NO CHECK ON FILE NAMES ON TAPE AND DMAP NAMES\r\nC                   = 1, NAMES CHECK, WILL SEARCH TAPE FOR MATCH.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER          MCB(7),  NAME(2),  NAMX(2), SUBNAM(2)\r\n      DOUBLE PRECISION DZ(1)\r\n      CHARACTER        UFM*23,  UWM*25,   UIM*29\r\n      COMMON /XMSSG /  UFM,     UWM,      UIM\r\n      COMMON /SYSTEM/  IBUF,    NOUT\r\n      COMMON /PACKX /  TYPIN,   TYPOUT,   II,      JJ,      INCR\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /BLANK /  UNIT,    ERRFLG,   TEST\r\n      COMMON /NAMES /  RD,      RDREW,    WRT,     WRTREW,  REW\r\n      EQUIVALENCE      (Z(1),DZ(1))\r\n      DATA             END,     HEAD,     SUBNAM                  /\r\n     1                 -999,    -111,     4HINPT,  4HT3           /\r\nC\r\n      CORE = KORSZ(Z(1))\r\n      BUF1 = CORE - IBUF + 1\r\n      CORE = BUF1 - 1\r\n      TYPIN= 2\r\n      TYPOUT=2\r\n      INCR = 1\r\nC\r\n      IU = UNIT\r\n      IF (UNIT.EQ.0 .OR. UNIT.EQ.-1) IU = -11\r\n      IF (IU .GT. 0) GO TO 10\r\n      IU  = -IU\r\n      IREW= 0\r\n      REWIND IU\r\nC\r\n   10 DO 150 K = 1,5\r\n      FILE = 200 + K\r\n      MCB(1) = FILE\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 150\r\n      CALL GOPEN (FILE,Z(BUF1),WRTREW)\r\n      CALL FNAME (FILE,NAME)\r\n   20 READ (IU,30,ERR=160,END=180) I,NAMX\r\n   30 FORMAT (I6,2A4)\r\n      IF (I .GT.    0) GO TO 20\r\n      IF (I .EQ.  END) GO TO 120\r\n      IF (I .NE. HEAD) GO TO 130\r\n      IF (NAMX(1).EQ.NAME(1) .AND. NAMX(2).EQ.NAME(2)) GO TO 50\r\n      WRITE  (NOUT,40) UIM,NAMX,NAME\r\n   40 FORMAT (A29,', DATA BLOCK ',2A4,' FOUND WHILE SEARCHING FOR ',2A4)\r\n      IF (TEST) 20,70,20\r\nC\r\nC     FOUND\r\nC\r\n   50 WRITE  (NOUT,60) UIM,NAME\r\n   60 FORMAT (A29,', DATA BLOCK ',2A4,' FOUND')\r\n   70 READ   (IU,80) NR,NC,TYPE\r\n   80 FORMAT (3I6)\r\n      WRITE  (NOUT,90) NAME,NC,NR,TYPE\r\n   90 FORMAT (/5X,'MATRIX BLOCK ',2A4,' IS OF SIZE ',I6,'(COL) BY',I5,\r\n     1       '(ROW),  AND TYPE =',I6)\r\n      IF (NR .GT. CORE) CALL MESAGE (-8,NR-CORE,SUBNAM)\r\n      IREW= 1\r\n      II  = 1\r\n      JJ  = NR\r\n      CALL MAKMCB (MCB,FILE,NR,TYPE,2)\r\n      DO 110 I = 1,NC\r\n      READ (IU,100,ERR=160,END=180) (DZ(J),J=1,NR)\r\n  100 FORMAT (12X,1P,5D24.16)\r\n      CALL PACK (Z,FILE,MCB)\r\n  110 CONTINUE\r\n      CALL CLOSE (FILE,REW)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 150\r\nC\r\n  120 IF (IREW .EQ. 0) GO TO 130\r\n      REWIND IU\r\n      IREW = 0\r\n      GO TO 20\r\n  130 WRITE  (NOUT,140) UWM,NAME\r\n  140 FORMAT (A25,', INPTT3 FAILED TO LOCATE DATA BLOCK ',2A4,' ON ',\r\n     1       'TAPE')\r\n      IF (ERRFLG .NE. 0) CALL MESAGE (-61,0,SUBNAM)\r\n      REWIND IU\r\n      IREW = 0\r\n  150 CONTINUE\r\n      RETURN\r\nC\r\n  160 WRITE  (NOUT,170) IU\r\n  170 FORMAT ('0*** ERROR DUING READ.  TAPE UNIT',I5)\r\n      CALL CLOSE (FILE,REW)\r\n      CALL MESAGE (-61,0,SUBNAM)\r\n  180 WRITE  (NOUT,190) UWM,IU\r\n  190 FORMAT (A25,' FROM INPTT3, EOF ENCOUNTERED ON INPUT TAPE',I4)\r\n      CALL CLOSE  (FILE,REW)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/inptt4.f",
    "content": "      SUBROUTINE INPTT4\r\nC\r\nC     THIS INPTT4 UTILITY MODULE WILL READ USER-SUPPLIED TAPE (OR DISC\r\nC     FILE), AS GENERATED FROM OUTPUT4 OR FROM MSC/OUTPUTi MODULES (i=1,\r\nC\r\nC     THIS MODULE HANDLES ONLY MATRICES, AND NOT TABLES\r\nC\r\nC     COSMIC/OUTPUT4 AND MSC/OUTPUT4 ARE IDENTICAL (BINARY ONLY)\r\nC     COSMIC/INPUTT4 AND MSC/INPUTT4 ARE SIMILAR, EXECPT COSMIC/INPUTT4\r\nC     CAN ALSO PROCESS MSC/OUTPUT1 AND MSC/OUTPUT2 TAPES.\r\nC\r\nC     INPUTT4   /O1,O2,O3,O4,O5/V,N,P1/V,N,P2/V,N,P3/V,N,P4 $\r\nC\r\nC        Oi     = OUTPUT GINO DATA BLOCKS\r\nC\r\nC        P1     = TAPE READ POSITION CONTROL\r\nC               . SEE P1 OF INPUTT1 MODULE IF P4=-1\r\nC               . SEE P1 OF INPUTT2 MODULE IF P4=-2\r\nC               . SEE P1 OF INPUTT4 MODULE IF P4=-4\r\nC               . IF P4=0,   P1= 0 NO ACTION\r\nC                            P1=-1 REWIND P2 BEFORE READ\r\nC                            P1=-2 WRITE E-O-F MARK AND REWIND P2 AT END\r\nC                            P1=-3 BOTH\r\nC        P2     =+N, INPUT TAPE LOGICAL UNIT, INTEGER, NO DEFAULT\r\nC                    INPUT TAPE IS IN BINARY (UNFORMATTED).\r\nC               =-N, INPUT TAPE LOGICAL UNIT +N, INPUT MATRICES WERE\r\nC                    WRITTEN IN BCD RECORDS (i.e. ASCII, FORMATTED)\r\nC        P3     = TAPE LABEL, DEFAULT='XXXXXXXX'\r\nC        P4     = OUTPUT TAPE MODULE, INTEGER (DEFAULT P4=0)\r\nC               =-4, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT4 MODULE*\r\nC                    UNFORMATTED (BINARY) TAPE, OR FORMATTED (BCD) TAPE.\r\nC                    FORMATS FOR BCD TAPE ARE -\r\nC                    3I8 FOR INTEGERS, 2A4 FOR BCD, AND 5E16.9 FOR REAL.\r\nC               =-2, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT2 MODULE*\r\nC               =-1, TAPE WAS ORIGINALLY WRITTEN BY MSC/OUTPUT1 MODULE*\r\nC               = 0, TAPE WAS ORIGINALLY WRITTEN BY OUTPUT4 MODULE\r\nC                 .  IN BINARY RECORDS (P2=+N), UNFORMATTED.\r\nC                 .  IN ASCII FORMATTED RECORDS (P2=-N), FORMATS FOR\r\nC                    INTEGERS AND REAL DATA ARE MATRIX TYPE DEPENDENT.\r\nC                    I13 AND 10E13.6 FOR S.P.MATRIX DATA, AND\r\nC                    I16 AND  8D16.9 FOR D.P.MATRIX DATA.\r\nC                    I16 AND  8E16.9 FOR S.P.MATRIX DATA, AND LONG WORD\r\nC             .GE.1, IN ASCII FORMATTED RECORDS (P2=-N), I16 IS USED FOR\r\nC                    INTEGERS, AND 8E16.9 FOR ALL REAL S.P. OR D.P.DATA\r\nC\r\nC        * REQUIRE SYNCHRONIZED GINO BUFFER SIZE IN COSMIC NASTRAN AND\r\nC          MSC/NASTRAN\r\nC\r\nC     PARAMETERS EQUIVALENCE FOR COSMIC/INPUTT4 AND MSC/INPUTT4\r\nC\r\nC          COSMIC/INPUTT4        MSC/INPUTT4\r\nC          --------------        ------------------------------\r\nC               P1               NMAT (NO OF MATRICES ON TAPE)\r\nC               P2               P2\r\nC               P3               P1\r\nC               P4               BCDOPT\r\nC\r\nC\r\nC     NOTE - MIXED OUTPUT FILES FROM MSC/OUTPUT1, OUTPUT2 AND OUTPUT4\r\nC            ON ONE TAPE ARE NOT ALLOWED IN THIS INPUTT4 MODULE\r\nC\r\nC     EXAMPLE 1 - INPUT TAPE INP1 (UNIT 15) CONTAINS 5 MATRICES,\r\nC     =========   WRITTEN BY OUTPUT4, BINARY.\r\nC                 WE WANT TO COPY\r\nC                 FILE 3 TO A,\r\nC                 FILE 4 TO B\r\nC\r\nC     1.  INPUTT4  /,,A,B,/-1/15   $ REWIND, READ & ECHO HEADER RECORD\r\nC\r\nC\r\nC     EXAMPLE 2 - TO COPY THE FIRST 2 FILES OF A FORMATTED TAPE INP2\r\nC     =========   (UNIT 16), WRITTEN BY OUTPUT4\r\nC\r\nC     2.  INPUTT4  /A,B,,,/-1/-16  $\r\nC\r\nC\r\nC     EXAMPLE 3 - TO LIST THE FILES ON INP3 (TAPE CODE 3), THEN REWIND,\r\nC     =========   AND COPY FILES 2 AND 3 ON INPUT TAPE ORIGINALLY\r\nC                 WRITTEN BY MSC/OUTPUT1. TAPE CONTAINS A HEADER RECORD\r\nC                 (FILE 0), AND TAPE ID \"MYFILE\"\r\nC\r\nC     3.  INPUTT4  /A,B,,,/-3/3/*MYFILE*/-1  $\r\nC\r\nC     ACTUALLY, INPTT4 MODULE CALLS INPUT2 TO PROCESS ANY TAPE THAT WAS\r\nC     GENERATED BY MSC/OUTPUT2. SIMILARILY, INPUT1 IS CALLED FOR TAPE\r\nC     FROM MSC/OUTPUT1\r\nC\r\nC     THE FIRT PARAMETER NMAT IN MSC/INPUTT4 IS NOT USED HERE\r\nC\r\n      INTEGER         P1,P2,P3,P4,BCDOPT,Y(1),Z(1)\r\n      COMMON /BLANK / P1,P2,P3(2),P4\r\n      COMMON /SYSTEM/ IBUFF,NOUT\r\n      COMMON /ZZZZZZ/ X(1)\r\n      EQUIVALENCE     (Y(1),X(1))\r\n      EQUIVALENCE     (Z(1),X(1))\r\nC\r\n      IF (P4 .GE. 0) GO TO 40\r\n      NMAT = IABS(P4)\r\n      GO TO (10,20,30,40,30), NMAT\r\nC\r\n   10 CALL INPUT1\r\n      GO TO 50\r\nC\r\n   20 CALL INPUT2\r\n      GO TO 50\r\nC\r\n   30 WRITE  (NOUT,35) P4\r\n   35 FORMAT ('  ERROR IN INPTT4.  P4 =',I3,' NOT AVAILABLE')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n   40 NMAT  = 5\r\n      IUNIT = IABS(P2)\r\n      ITAPE = P1\r\n      BCDOPT= 1\r\n      IF (P2 .LT. 0) BCDOPT = 2\r\n      IF (P4 .GT. 0) BCDOPT = 3\r\nC\r\nC     BCDOPT = 1, BINARAY INPUT TAPE\r\nC            = 2, ASCII INPUT TAPE, WITH S.P./D.P. STANDARD FORMATS\r\nC            = 3, ASCII INPUT TAPE, WITH LARGE FILED S.P./D.P. FORMATS\r\nC\r\n      CALL INPUT4 (NMAT,IUNIT,ITAPE,BCDOPT)\r\n   50 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/inptt5.f",
    "content": "      SUBROUTINE INPTT5\r\nC\r\nC     DRIVER OF INPUTT5 MODULE\r\nC     THIS MODULE HANDLES BOTH TABLE AND MATRIX DATA BLOCKS     5/88\r\nC\r\nC     THIS IS A COMPANION MODULE TO OUTPUT5\r\nC\r\nC     ==== TABLE  ====\r\nC     CALLS TABLE-V ROUTINE TO COPY FROM A FORTRAN UNIT (FORMATTED OR\r\nC     BINARY TAPE) TABLE DATA TO NASTRAN GINO TABLE DATA BLOCKS\r\nC\r\nC     ==== MATRIX ====\r\nC     COPIES FROM A FORTRAN UNIT (BINARY OR FORMATTED TAPE) OF BANDED\r\nC     MATRICES ONTO NASTRAN GINO MATRIX DATA BLOCKS, IN GINO PACKED\r\nC     FORMAT\r\nC\r\nC     UNFORMATTED RECORDS CAN ONLY BE USED BY THE SAME COMPUTER SYSTEM,\r\nC     WHILE FORMATTED RECORDS CAN BE USED ACROSS COMPUTER BOUNDARY\r\nC     (E.G. WRITTEN BY CDC MACHINE AND READ BY IBM), AND ASLO, IT CAN\r\nC     BE EDITED BY SYSTEM EDITOR, OR PRINTED OUT BY SYSTEM PRINT COMMAND\r\nC\r\nC     ******************************************************************\r\nC     *                                                                *\r\nC     *                       - IMPORTANT -                            *\r\nC     *                                                                *\r\nC     *  IF USER ASSEMBLES HIS OWN MATRIX IN INPUTT5 FORMAT, AND USES  *\r\nC     *  INPUTT5 MODULE TO READ IT INTO NASTRAN, BE SURE THAT THE      *\r\nC     *  DENSITY TERM (DENS) OF THE MATRIX TRAILER IS SET TO NON-ZERO  *\r\nC     *  (NEED NOT BE EXACT) AND THE PRECISION TERM (TYPE) IS 1,2,3,   *\r\nC     *  OR 4. OTHERWISE, HIS MATRIX WILL BE TREATED AS TABLE AND      *\r\nC     *  EVERYTHING GOES HAYWIRE.                                      *\r\nC     *                                                                *\r\nC     ******************************************************************\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     INPUTT5  /O1,O2,O3,O4,O5/C,N,P1/C,N,P2/C,N,P3/C,N,P4 $\r\nC\r\nC              P1=+N, SKIP FORWARD N MATRIX DATA BLOCKS OR TABLES BEFORE\r\nC                     COPYING (EXCEPT THE FIRST HEADER RECORD. EACH\r\nC                     MATRIX DATA BLOCK OR TABLE, PRECEEDED BY A HEADER\r\nC                     RECORD, IS A COMPLETE MATRIX OR TABLE, MADE UP OF\r\nC                     MANY PHYSICAL RECORDS.\r\nC                     SKIP TO THE END OF TAPE IF P1 EXCEEDS THE NO. OF\r\nC                     DATA BLOCKS AVAILABLE ON THE OUTPUT TAPE\r\nC                     NO REWIND BEFORE SKIPPING)\r\nC              P1= 0, NO ACTION TAKEN BEFORE COPYING. (DEFAULT)\r\nC                     HOWEVER, IF TAPE IS POSITIONED AT THE BEGINNING,\r\nC                     THE TAPE ID RECORD IS SKIPPED FIRST.\r\nC              P1=-1, INPUT TAPE IS REWOUND, AND TAPEID CHECKED. IF\r\nC                     OUTPUT GINO FILES ARE PRESENT, DATA FROM TAPE ARE\r\nC                     THEN COPIED TO GINO FILES - IN PACKED MATRIX FORM\r\nC                     IF MATRIX DATA, OR TABLE FORM IF TABLE DATA.\r\nC              P1=-3, TAPE IS REWOUND AND READ. THE NAMES OF ALL DATA\r\nC                     BLOCKS ON FORTRAN TAPE ARE PRINTED. AT END, TAPE\r\nC                     IS REWOUND AND POSITIONED AFTER TAPE HEADER RECORD\r\nC                     (NOTE - SERVICE UP TO 15 FILE NAMES ON ONE INPUT\r\nC                     TAPE. AND THE 'AT END' TREATMENT IS NOT THE SAME\r\nC                     AS IN OUTPUT5)\r\nC              P1=-4  THRU -8 ARE NOT USED\r\nC              P1=-9, REWIND TAPE\r\nC\r\nC              P2  IS THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL\r\nC                     WRITTEN.  DEFAULT IS 16 (INP2 FOR UNIVAC,IBM,VAX),\r\nC                     OR 12 (UT2 FOR CDC)\r\nC\r\nC              P3  IS TAPE ID IF GIVEN BY USER. DEFAULT IS XXXXXXXX\r\nC\r\nC              P4=0, OUTPUT TAPE IS FORTRAN WRITTEN, UNFORMATTED RECORDS\r\nC              P4=1, OUTPUT TAPE IS FORTRAN WRITTED, FORMATTED\r\nC                    BCD IN 2A4, INTEGER IN I8, S.P. REAL IN 10E13.6,\r\nC                    AND D.P. IN 5D26.17.\r\nC              P4=2, SAME AS P4=1, EXECPT FORMAT 5E26.17 IS USED FOR\r\nC                    S.P. REAL DATA. (THIS OPTION IS USED ONLY IN\r\nC                    MACHINES WITH 60 OR MORE BITS PER WORD)\r\nC\r\nC\r\nC     CONTENTS OF INPUT TAPE, AS WRITTEN BY OUTPUT5\r\nC                                                       (P4=0)   (P4=1)\r\nC     RECORD  WORD        CONTENTS                      BINARY   FORMAT\r\nC     ------  ----  --------------------------------   -------  -------\r\nC        0            TAPE HEADER RECORD -\r\nC              1,2    TAPEID                             2*BCD      2A4\r\nC              3,4    MACHINE                            2*BCD      2A4\r\nC              5-7    DATE                               3*INT      3I8\r\nC               8     BUFFSIZE                             INT       I8\r\nC               9     0 (BINARY), OR 1 OR 2 (FORMATTED)    INT       I8\r\nC       1/2@          FIRST MATRIX HEADER RECORD -\r\nC               1     ZERO                                 INT       I8\r\nC              2,3    1,1                                2*INT      2I8\r\nC               1     DUMMY (D.P.)                        F.P.   D26.17\r\nC              2-7    MATRIX TRAILER                     6*INT      6I8\r\nC                     (COL,ROW,FORM,TYPE,MAX,DENS)\r\nC              8-9    MATRIX DMAP NAME                   2*BCD      2A4\r\nC       3/4     1     1 (FIRST COLUMN ID)                  INT       I8\r\nC               2     LOC. OF FIRST NON-ZERO ELEMENT, L1   INT       I8\r\nC               3     LOC. OF LAST  NON-ZERO ELEMENT, L2   INT       I8\r\nC              1-W    FIRST MATRIX COLUMN DATA            F.P.     (**)\r\nC                     (W=L2-L1+1)\r\nC       5/6     1     2 (SECOND COLUMN ID)                 INT       I8\r\nC              2-3    LOC. OF FIRST AND LAST NON-ZERO    2*INT      2I8\r\nC                     ELEMENTS\r\nC              1-W    SECOND MATRIX COLUMN DATA           F.P.     (**)\r\nC       7/8    1-3    THIRD MATRIX COLUMN, SAME FORMAT   3*INT      3I8\r\nC              1-W    AS RECORD 1                         F.P.     (**)\r\nC        :      :       :\r\nC       M/M+1  1-3    LAST MATRIX COLUMN, SAME FORMAT    3*INT      3I8\r\nC                     AS RECORD 1                         F.P.     (**)\r\nC     M+2/M+3  1-3    SECOND MATRIX HEADER RECORD        3*INT      3I8\r\nC               1     DUMMY                               F.P.     (**)\r\nC              2-7    MATRIX TRAILER                     6*INT      6I8\r\nC              8,9    MATRIX DMAP NAME                   2*BCD      2A4\r\nC     M+4-N     :     FIRST THRU LAST COLUMNS OF MATRIX  3*INT      3I8\r\nC                                                        +F.P.    +(**)\r\nC        :      :     REPEAT FOR 3RD,4TH,5TH MATRICES\r\nC        :      :     (UP TO 5 MATRIX DATA BLOCKS PER ONE OUTPUT TAPE)\r\nC\r\nC       EOF    1-3    -1,1,1                              3*INT     3I8\r\nC               1     ZEROS (D.P.)                         F.P.  D26.17\r\nC\r\nC     @  RECORDS 1/2 (3/4, 5/6, ETC) ARE TWO RECORDS IN THE FORMATTED\r\nC        TAPE, AND ARE PHYSICALLY ONE RECORD IN THE BINARY TAPE (AND\r\nC        THE WORD COUNT SHOULD BE ADDED)\r\nC     ** IS (10E13.6) FOR S.P.REAL OR (5D26.17) FOR D.P.DATA\r\nC        (5E26.17) FOR LONG WORD MACHINE\r\nC\r\nC                                                               - NOTE -\r\nC                                                  BCD AND INTEGERS IN 8\r\nC                                                     S.P. REAL IN  13.7\r\nC                                                     D.P. DATA IN 26.17\r\nC                                             LONG WORD MACHINE IN 26.17\r\nC\r\nC     NO SYSTEM END-OF-FILE MARK WRITTEN BETWEEN MATRICES\r\nC     EXCEPT FOR THE TAPE HEADER RECORD, AND THE MATRIX HEADERS, THE\r\nC     ENTIRE FORMATTED INPUT TAPE CAN BE READ BY A STANDARD FORMAT\r\nC     (3I8,/,(10E13.6)), (3I8,/,(5D26.17)), OR (3I8,/,(5E26.17))\r\nC\r\nC     ALSO, USER MAY OR MAY NOT CALL OUTPUT5 WITH P1=-9 TO WRITE AN\r\nC     'OUPUT5 E-O-F' MARK ON TAPE. THIS CAUSED PROBLEM BEFORE.\r\nC\r\nC     THE PROCEDURE TO READ AND/OR WRITE THE TAPE IS COMMONLY USED\r\nC     AMONG INPUTT5, OUTPUT5, AND DUMOD5. ANY PROCEDURE CHANGE SHOULD\r\nC     BE MADE TO ALL THREE SUBROUTINES.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   1987\r\nC     MAJOR REVISED 12/1992 BY G.C.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          OPN,P40,P40S,P40D,P41,P41S,P41D,P41C,DEBUG\r\n      INTEGER          NAME(2),TAPEID(2),MAC(2),SUBNAM(2),DT(3),\r\n     1                 IZ(7),FN(3,15),BK\r\n      REAL             RZ,X\r\n      DOUBLE PRECISION DZ(7),DX\r\n      CHARACTER*8      BINARY,FORMTD,BF\r\nCWKBI\r\n      CHARACTER*5      Z5(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\nCWKBNB\r\n      CHARACTER*80     DSNAMES\r\n      COMMON /DSNAME/  DSNAMES(80)\r\nCWKBNE\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3(2),P4\r\n      COMMON /INPUT5/  MCB(1),COL,ROW,FORM,TYPE,MAX,DENS\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  IBUF,NOUT,NOGO,DUM36(36),NBPW\r\n      COMMON /ZZZZZZ/  RZ(1)\r\n      COMMON /PACKX /  TYPIN,TYPOUT,II,JJ,INCR\r\nCWKBR EQUIVALENCE      (RZ(1),IZ(1),DZ(1))\r\n      EQUIVALENCE      (RZ(1),IZ(1),DZ(1),Z5)\r\n      DATA    BINARY,  FORMTD,       SUBNAM,         FN,BK    /\r\n     1       'BINARY','FORMATTD',    4HINPT, 2HT5,   46*2H    /\r\n      DATA    MTRX,    TBLE,SKIP   / 4HMTRX, 4HTBLE, 4HSKIP   /\r\n      DATA    DEBUG /  .FALSE.     /\r\nC\r\nC     IF MACHINE IS CDC OR UNIVAC, CALL CDCOPN OR UNVOPN TO OPEN OUTPUT\r\nC     FILE, A SEQUENTIAL FORMATTED TAPE. NO CONTROL WORDS ARE TO BE\r\nC     ADDED TO EACH SEQUENTIAL RECORD. RECORD LENGTH IS 132 CHARACTERS,\r\nC     AN ANSI STANDARD.\r\nC\r\n      BF = BINARY\r\n      IF (P4 .GE. 1) BF = FORMTD\r\n      CALL PAGE1\r\n      WRITE  (NOUT,10) UIM,BF,P1\r\n   10 FORMAT (A29,', MODULE INPUTT5 CALLED BY USER DMAP ALTER, ON ',A8,\r\n     1        ' INPUT FILE,',/5X,'WITH THE FOLLOWING REQUEST.  (P1=',\r\n     2        I2,1H))\r\n      IF (P1 .EQ. -9) WRITE (NOUT,20)\r\n      IF (P1 .EQ. -3) WRITE (NOUT,30)\r\n      IF (P1 .EQ. -1) WRITE (NOUT,40)\r\n      IF (P1 .EQ.  0) WRITE (NOUT,50)\r\n      IF (P1 .GT.  0) WRITE (NOUT,60) P1\r\n   20 FORMAT (5X,'REWIND TAPE ONLY')\r\n   30 FORMAT (5X,'REWIND AND READ TAPE. PRINT ALL DATA BLOCK NAMES ON ',\r\n     1       'TAPE. AT END, TAPE IS REWOUND', /5X,'AND POSITIONED ',\r\n     2       'PASS TAPE HEADER RECORD')\r\n   40 FORMAT (5X,'REWIND, POSITION PAST TAPE HEADER RECORD, THEN READ ',\r\n     1       'TAPE. AT END, NO REWIND')\r\n   50 FORMAT (5X,'READ TAPE STARTING AT CURRENT POSITION, OR POSITION ',\r\n     1       'PAST THE TAPE HEADER RECORD (FIRST USE OF TAPE).', /5X,\r\n     2       ' NO REWIND AT BEGINNING AND AT END')\r\n   60 FORMAT (5X,'SKIP FORWARD',I4,' DATA BLOCKS (NOT COUNTING TAPE ',\r\n     1       'HEADER RECORD) BEFORE READING, AT END NO REWIND')\r\nC\r\n      BUF1 = KORSZ(RZ(1)) - IBUF - 1\r\n      IF (BUF1 .LE. 0) CALL MESAGE (-8,0,SUBNAM)\r\n      INPUT= P2\r\n      OPN  = .FALSE.\r\n      LL   = 0\r\n      P41  =.FALSE.\r\n      IF (P4 .GE.  1) P41 =.TRUE.\r\n      P40  =.NOT.P41\r\n      P40S =.FALSE.\r\n      P41S =.FALSE.\r\n      P40D = P40\r\n      P41D = P41\r\n      P41C = P4.EQ.2 .AND. NBPW.GE.60\r\n      IF (P41C) P40D = .FALSE.\r\n      IF (P41C) P41D = .FALSE.\r\n      COL12= 0\r\n      P1N  = P1\r\n      IF (P1 .LT.  0) P1N = 0\r\nCWKBNB\r\n      CLOSE( UNIT=INPUT )\r\n      IF ( P4 .NE. 0  ) GO TO 62\r\n      OPEN ( UNIT=INPUT, FILE=DSNAMES(INPUT), FORM='UNFORMATTED'\r\n     1      ,STATUS='UNKNOWN' )\r\n      GO TO 65\r\n62    CONTINUE\r\n      OPEN ( UNIT=INPUT, FILE=DSNAMES(INPUT), STATUS='UNKNOWN')\r\n65    CONTINUE\r\nCWKBNE\r\n      IF (P1 .NE. -9) GO TO 70\r\n      REWIND INPUT\r\n      GO TO 1000\r\nC\r\n   70 DO 80 I = 1,15\r\n   80 FN(3,I) = BK\r\n      IF (P1.GE.-1 .OR. P1.EQ.-3 .OR. P1.EQ.-9) GO TO 200\r\nC\r\n      WRITE  (NOUT,90) UFM,P1\r\n   90 FORMAT (A23,', MODULE INPUTT5 - ILLEGAL VALUE FOR FIRST PARAMETER'\r\n     1,      ' = ',I8, /5X,'ONLY -9, -3 AND GREATER THAN -1 ALLOWED')\r\n  100 ERR = -37\r\n  120 CALL MESAGE (ERR,OUTPUT,SUBNAM)\r\n      RETURN\r\nC\r\n  200 IF (P1 .EQ. 0) GO TO 500\r\nC\r\nC     CHECK TAPE ID\r\nC\r\n      REWIND INPUT\r\n      ERR = -1\r\n      IF (P40) READ (INPUT,    END=420) TAPEID,MAC,DT,I,K\r\n      IF (P41) READ (INPUT,210,END=420) TAPEID,MAC,DT,I,K\r\n  210 FORMAT (4A4,5I8)\r\n      IF (TAPEID(1).EQ.P3(1) .AND. TAPEID(2).EQ.P3(2)) GO TO 230\r\n      WRITE  (NOUT,220) TAPEID,P3,MAC,DT\r\n  220 FORMAT ('0*** WRONG TAPE MOUNTED - TAPEID =',2A4,', NOT ',2A4,\r\n     1        /5X,'MACHINE=',2A4,' DATE WRITTEN-',I4,1H/,I2,1H/,I2)\r\n      IF (P1 .EQ. -1) GO TO 100\r\n  230 IF (K  .EQ. P4) GO TO 250\r\n      WRITE  (NOUT,240) UWM,P4\r\n  240 FORMAT (A25,', MODULE INPUTT5 4TH PARAMETER SPECIFIED WRONG TAPE',\r\n     1       ' FORMAT.   P4=',I5, /5X,\r\n     2       'INPUTT5 WILL RESET P4 AND TRY TO READ THE TAPE AGAIN.',/)\r\n      P4  = K\r\n      P40 =.NOT.P40\r\n      P41 =.NOT.P41\r\n  250 CALL PAGE2 (4)\r\n      WRITE  (NOUT,260) TAPEID,MAC,DT,I\r\n  260 FORMAT (/5X,'MODULE INPUTT5 IS NOW PROCESSING TAPE ',2A4,\r\n     1       ' WHICH WAS WRITTEN BY ',2A4,'MACHINE', /5X,\r\n     2       'ON',I4,1H/,I2,1H/,I2,4X,'SYSTEM BUFFSIZE=',I8)\r\n      IF (P40) WRITE (NOUT,270)\r\n      IF (P41) WRITE (NOUT,280)\r\n  270 FORMAT (5X,'TAPE IN BINARY RECORDS',/)\r\n  280 FORMAT (5X,'TAPE IN FORMATTED RECORDS',/)\r\n      LL = 0\r\n      IF (P1.GT.0 .OR. P1.EQ.-3) GO TO 300\r\n      IF (P1 .EQ. -1) GO TO 510\r\n      IMHERE = 290\r\n      WRITE  (NOUT,290) SFM,IMHERE,P1\r\n  290 FORMAT (A25,' @',I5,I10)\r\n      GO TO 100\r\nC\r\nC     TO SKIP P1 MATRIX DATA BLOCKS OR TABLES ON INPUT TAPE (P1 = +N)\r\nC     OR PRINT CONTENTS OF INPUT TAPE (P1 = -3)\r\nC\r\n  300 IF (P40 ) READ (INPUT,    ERR=390,END=420) NC,JB,JE\r\n      IF (P41S) READ (INPUT,520,ERR=390,END=420) NC,JB,JE,( X,J=JB,JE)\r\n      IF (P41C) READ (INPUT,525,ERR=390,END=420) NC,JB,JE,( X,J=JB,JE)\r\n      IF (P41D) READ (INPUT,530,ERR=390,END=420) NC,JB,JE,(DX,J=JB,JE)\r\n      IF (DEBUG .AND. (NC.LE.15 .OR. NC.GE.COL12))\r\n     1    WRITE (NOUT,540) NC,JB,JE,LL\r\n      IF (NC) 360,340,300\r\nC\r\n  310 IF (P40) READ (INPUT,    ERR=390,END=420) L\r\n      IF (P41) READ (INPUT,320,ERR=390,END=420) L,(TABEL,J=1,L)\r\n  320 FORMAT (I10,24A, /,(26A5))\r\n      IF (DEBUG) WRITE (NOUT,330) L,LL\r\n  330 FORMAT (30X,'L AND LL=',2I6)\r\n      IMHERE = 330\r\n      IF (L) 360,340,310\r\n  340 IF (P1.NE.-3 .AND. LL.GE.P1) GO TO 360\r\n      IMHERE = 340\r\n      LL = LL + 1\r\n      BACKSPACE INPUT\r\n      IF (P41) BACKSPACE INPUT\r\n      IF (LL .GT. 15) GO TO 370\r\n      IF (P40) READ (INPUT    ) I,I,I,DX,J,J,J,J,K,K,FN(1,LL),FN(2,LL)\r\n      IF (P41) READ (INPUT,560) I,I,I,DX,J,J,J,J,K,K,FN(1,LL),FN(2,LL)\r\n      IF (P1.NE.-3 .OR. LL.LE.P1) FN(3,LL) = SKIP\r\n      IF (K.GT.0 .AND. J.GE.1 .AND. J.LE.4) GO TO 350\r\nC\r\nC     FILE IS A TABLE\r\nC\r\n      IF (LL .GT. P1) FN(3,LL) = TBLE\r\n      IMHERE = 345\r\n      GO TO 310\r\nC\r\nC     FILE IS A MATRIX\r\nC\r\n  350 IF (LL .GT. P1) FN(3,LL) = MTRX\r\n      IF (P40) GO TO 300\r\n      P41S = .FALSE.\r\n      P41D = .FALSE.\r\n      P41C =  P4.EQ.2 .AND. NBPW.GE.60\r\n      IF (P41C) GO TO 300\r\n      IF (J.EQ.1 .OR. J.EQ.3) P41S = .TRUE.\r\n      P41D = .NOT.P41S\r\n      GO TO 300\r\nC\r\n  360 IF (P1 .EQ. -3) GO TO 900\r\n      IF (P41) BACKSPACE INPUT\r\n      BACKSPACE INPUT\r\n      GO TO 510\r\nC\r\n  370 WRITE  (NOUT,380) UIM\r\n  380 FORMAT (A29,', INPUTT5, WITH P1= -3, CAN ONLY PRINT UP TO 15 ',\r\n     1       ' FILE NAMES ON ONE INPUT TAPE.', /5X,'TAPE IS POSITIONED',\r\n     2       ' AFTER THE 15TH FILE')\r\n      LL = LL - 1\r\n      GO TO 920\r\nC\r\n  390 WRITE  (NOUT,400) UFM,P3,LL,NC,IMHERE\r\n  400 FORMAT (A23,', TAPE ERROR DURING READ/INPUTT5  ',2A4, /5X,\r\n     1       'LL,NC =',2I5,'   IMHERE =',I5)\r\n      IMHERE = 405\r\n      IF (P41 .AND. MACH.EQ.2) WRITE (NOUT,410) IMHERE\r\n  410 FORMAT (/5X,'IBM USER - CHECK FILE ASSIGNMENT FOR DCB PARAMETER ',\r\n     1       'OF 132 BYTES',I15)\r\n      GO TO  100\r\n  420 IF (P1 .EQ. -3) GO TO 440\r\n      WRITE  (NOUT,430) UFM,P3,IMHERE,LL,NC\r\n  430 FORMAT (A23,', EOF ENCOUNTERED ON INPUT TAPE ',2A4,5X,\r\n     1        'IMHERE,LL,NC =',3I5)\r\n      IF (P1 .NE. -3) NOGO = 1\r\n      GO TO  900\r\n  440 WRITE  (NOUT,450) UWM,P3\r\n  450 FORMAT (A25,', EOF ENCOUNTERED ON INPUT TAPE ',2A4,'. TAPE DOES ',\r\n     1       'NOT CONTAIN AN ''OUTPUT5 E-O-F'' MARK')\r\n      IF (DEBUG) WRITE (NOUT,460) IMHERE,LL,NC\r\n  460 FORMAT (5X,'IMHERE,LL,NC =',3I5)\r\n      GO TO  900\r\nC\r\nC     P1 = 0,\r\nC     MUST SKIP TAPE HEADER RECORD IF CURRENT TAPE POSITION IS AT THE\r\nC     VERY BEGINNING\r\nC\r\n  500 LL = 0\r\n      IMHERE = 500\r\n      IF (P40) READ (INPUT,    ERR=770,END=420) TAPEID\r\n      IF (P41) READ (INPUT,210,ERR=770,END=420) TAPEID\r\n      IF (TAPEID(1).NE.P3(1) .OR. TAPEID(2).NE.P3(2)) BACKSPACE INPUT\r\nC\r\nC     COPY MATRIX TO TAPE\r\nC\r\n      IMHERE = 510\r\n  510 IF (P40S) READ(INPUT,    ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE)\r\n      IF (P40D) READ(INPUT,    ERR=770,END=910) NC,JB,JE,(DZ(J),J=JB,JE)\r\n      IF (P41S) READ(INPUT,520,ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE)\r\n      IF (P41C) READ(INPUT,525,ERR=770,END=910) NC,JB,JE,(RZ(J),J=JB,JE)\r\n      IF (P41D) READ(INPUT,530,ERR=770,END=910) NC,JB,JE,(DZ(J),J=JB,JE)\r\n  520 FORMAT (3I8,/,(10E13.6))\r\n  525 FORMAT (3I8,/,(5E26.17))\r\n  530 FORMAT (3I8,/,(5D26.17))\r\n      IF (DEBUG .AND. (NC.LE.15 .OR. NC.GE.COL12))\r\n     1    WRITE (NOUT,540) NC,JB,JE,LL,IMHERE\r\n  540 FORMAT (30X,'NC,JB,JE,LL=',5I6,'=IMHERE')\r\n      IF (NC) 800,           550,         700\r\nC             EOF, MATRIX-HEADER, COLUMN-DATA\r\nC\r\nC     MATRIX OR TABLE HEADER\r\nC\r\n  550 IF (OPN) GO TO 810\r\n      LL = LL + 1\r\n      IF (LL .GT. 15) GO TO 370\r\n      BACKSPACE INPUT\r\n      IF (P41) BACKSPACE INPUT\r\n      J = -1\r\n      IF (P40) READ (INPUT,    ERR=570) K,J,J,DX,COL,ROW,FORM,TYPE,\r\n     1                                  MAX,DENS,FN(1,LL),FN(2,LL)\r\n      IF (P41) READ (INPUT,560,ERR=570) K,J,J,DX,COL,ROW,FORM,TYPE,\r\n     1                                  MAX,DENS,FN(1,LL),FN(2,LL)\r\n  560 FORMAT (3I8,/,D26.17,6I8,2A4)\r\n      COL12 = COL - 12\r\n      IF (COL12 .LT. 0) COL12 = 0\r\n      IF (.NOT.DEBUG) GO TO 590\r\n  570 WRITE  (NOUT,580) COL,ROW,FORM,TYPE,MAX,DENS,DX,FN(1,LL),FN(2,LL)\r\n  580 FORMAT (' COL,ROW,FORM,TYPE,MAX,DENS,DX,FILE=',6I6,D12.3,3X,2A4)\r\n      IF (J .EQ. -1) CALL MESAGE (-37,0,SUBNAM)\r\nC\r\n  590 IF (K.EQ.0 .AND. (DENS.EQ.0 .OR. TYPE.LE.0 .OR. TYPE.GT.4))\r\nCWKBR1    CALL TABLE V (*510,INPUT,LL,MCB,FN(1,LL),P4,BUF1,RZ)\r\n     1    CALL TABLE V (*510,INPUT,LL,MCB,FN(1,LL),P4,BUF1,Z5)\r\nC\r\n      FN(3,LL) = MTRX\r\n      P40S = .FALSE.\r\n      P40D = .FALSE.\r\n      P41S = .FALSE.\r\n      P41D = .FALSE.\r\n      P41C =  P4.EQ.2 .AND. NBPW.GE.60\r\n      IF (P41C) GO TO 610\r\n      IF (P41 ) GO TO 600\r\n      IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P40S = .TRUE.\r\n      P40D = .NOT.P40S\r\n      GO TO 610\r\n  600 IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P41S = .TRUE.\r\n      P41D = .NOT.P41S\r\n  610 IF (DEBUG) WRITE (NOUT,620) P40,P40S,P40D,P41,P41S,P41D,P41C\r\n  620 FORMAT ('0  P40,P40S,P40D,P41,P41S,P41D,P41C = ',7L4)\r\n      TYPIN  = TYPE\r\n      TYPOUT = TYPE\r\n      JTYP   = TYPE\r\n      IF (TYPE .EQ. 3) JTYP = 2\r\n      II   = 1\r\n      JJ   = ROW\r\n      INCR = 1\r\n      NWDS = ROW*JTYP\r\n      IF (NWDS .GT. BUF1) CALL MESAGE (-8,0,SUBNAM)\r\nC\r\nC     OPEN GINO FILE FOR OUTPUT\r\nC\r\n      IMHERE = 640\r\n      IF (P1 .EQ. -3) GO TO 640\r\n      ROWX   = ROW\r\n      FORMX  = FORM\r\n      OUTPUT = 200 + LL - P1N\r\n      MCB(1) = OUTPUT\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) GO TO 750\r\n      ERR  = -1\r\n      CALL OPEN  (*120,OUTPUT,RZ(BUF1),1)\r\n      CALL FNAME (OUTPUT,NAME)\r\n      CALL WRITE (OUTPUT,NAME,2,1)\r\n      OPN  = .TRUE.\r\n      COL  = 0\r\n      ROW  = ROWX\r\n      FORM = FORMX\r\n      TYPE = TYPOUT\r\n      MAX  = 0\r\n      DENS = 0\r\n      NCK  = 0\r\n      GO TO 510\r\nC\r\n  640 WRITE (NOUT,290) SFM,IMHERE,P1\r\n      CALL MESAGE (-37,0,SUBNAM)\r\nC\r\nC     RECOVER INPUT MATRIX, AND WRITE IT OUT BY COLUMN\r\nC\r\n  700 IMHERE = 700\r\n      IF (P1 .EQ. -3) GO TO 510\r\n      NCK = NCK + 1\r\n      IF (NC .NE. NCK) GO TO 390\r\n      IF (JB .LE. 1) GO TO 720\r\n      JB  = (JB-1)*JTYP\r\n      DO 710 J = 1,JB\r\n  710 RZ(J) = 0.0\r\n  720 IF (JE .GE. NWDS) GO TO 740\r\n      JE  = (JE*JTYP) + 1\r\n      DO 730 J = JE,NWDS\r\n  730 RZ(J) = 0.0\r\n  740 CALL PACK (RZ,OUTPUT,MCB)\r\n      GO TO 510\r\nC\r\nC     OUTPUT FILE PURGED, SKIP FORWARD FOR NEXT MATRIX ON TAPE\r\nC\r\n  750 IF (P40 ) READ (INPUT    ,ERR=390,END=420) NC,JB,JE\r\n      IF (P41S) READ (INPUT,520,ERR=390,END=420) NC,JB,JE,( X,J=JB,JB)\r\n      IF (P41C) READ (INPUT,525,ERR=390,END=420) NC,JB,JE,( X,J=JB,JB)\r\n      IF (P41D) READ (INPUT,530,ERR=390,END=420) NC,JB,JE,(DX,J=JB,JB)\r\n      IF (NC .GT. 0) GO TO 750\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,760) UWM,FN(1,LL),FN(2,LL)\r\n  760 FORMAT (A25,', OUTPUT FILE PURGED.  ',2A4,' FROM INPUT TAPE NOT ',\r\n     1       'COPIED')\r\nC     LL = LL + 1\r\n      GO TO 550\r\nC\r\n  770 IMHERE = -IMHERE\r\n      WRITE  (NOUT,400) UFM,P3,LL,NC,IMHERE\r\n      WRITE  (NOUT,780) P40,P41,P40S,P40D,P41S,P41D,P41C\r\n  780 FORMAT ('  P40,P41,P40S,P40D,P41S,P41D,P41C =',7L2)\r\n      IMHERE = 770\r\n      IF (P41 .AND. MACH.EQ.2) WRITE (NOUT,410) IMHERE\r\n      GO TO 750\r\nC\r\nC     END OF MATRIX ENCOUNTERED. CLOSE GINO DATA BLOCK WITH REWIND.\r\nC\r\n  800 IF (.NOT.OPN) GO TO 840\r\n  810 CALL CLOSE (OUTPUT,1)\r\n      OPN = .FALSE.\r\n      IF (FORM.GE.1 .AND. FORM.LE.6) GO TO 820\r\n      FORM = 1\r\n      IF (COL .NE. ROW) FORM = 2\r\n  820 CALL WRTTRL (MCB)\r\n      CALL FNAME (OUTPUT,NAME)\r\n      CALL PAGE2 (10)\r\n      WRITE  (NOUT,830) FN(1,LL),FN(2,LL),INPUT,NAME,(MCB(J),J=1,7)\r\n  830 FORMAT (/5X,'MATRIX DATA BLOCK ',2A4,' WAS SUCESSFULLY RECOVERED',\r\n     1       ' FROM FORTRAN UNIT',I4,' TO ',2A4, /8X,'GINO UNIT =',I8,\r\n     2       /6X,'NO. OF COLS =',I8, /6X,'NO. OF ROWS =',I8,  /13X,\r\n     3       'FORM =',I8, /13X,'TYPE =',I8, /3X,'NON-ZERO WORDS =',I8,\r\n     4       /10X,'DENSITY =',I8)\r\n  840 IMHERE = 840\r\n      IF (LL .GE.  5+P1N) GO TO 860\r\n      IF (NC) 850,550,390\r\n  850 IF (P1 .EQ. -3) GO TO 1000\r\n      GO TO 900\r\n  860 BACKSPACE INPUT\r\n      IF (P41) BACKSPACE INPUT\r\n      GO TO 920\r\nC\r\nC     IF NC = -2, THIS IS AN ELEM/GRID ID RECORD WRITTEN BY DUMOD5\r\nC\r\n  900 IF (NC .EQ. -2) GO TO 510\r\n  910 NC = -3\r\n      IF (OPN) GO TO 800\r\n      IF (FN(3,LL) .EQ. BK) LL = LL - 1\r\n      IF (LL .LE. 0) GO TO 970\r\nC\r\nC     PRINT LIST OF DATA BLOCKS ON FORTRAN TAPE (P1=-3).\r\nC\r\n  920 CALL PAGE2 (LL+9)\r\n      WRITE  (NOUT,930)\r\n      IF (P1 .NE. -3) WRITE (NOUT,940) INPUT\r\n      IF (P1 .EQ. -3) WRITE (NOUT,950) INPUT\r\n      WRITE  (NOUT,960) MAC,BF,(J,FN(1,J),FN(2,J),FN(3,J),J=1,LL)\r\n  930 FORMAT (/5X,'SUMMARY FROM INPUTT5 MODLUE -')\r\n  940 FORMAT (/34X,'FILES RECOVERED FROM FORTRAN UNIT',I5)\r\n  950 FORMAT (/34X,'FILE CONTENTS ON FORTRAN UNIT',I5)\r\n  960 FORMAT (28X,'(WRITTEN BY ',2A4,' MACHINE ',A8,' RECORDS)', //37X,\r\n     1       'FILE',8X,'NAME',8X,'TYPE', /33X,9(4H----), /,\r\n     2       (37X,I3,7X,2A4,6X,A4))\r\n      IF (NOGO .EQ. 1) GO TO 100\r\nC\r\n      IF (P1  .NE. -3) GO TO 1000\r\n      REWIND INPUT\r\n      IF (P40) READ (INPUT)\r\n      IF (P41) READ (INPUT,210)\r\n      GO TO 1000\r\nC\r\n  970 IF (P1 .EQ. -3) WRITE (NOUT,980) UIM,INPUT\r\n  980 FORMAT (A29,' FROM INPUTT5 MODULE, INPUT TAPE (FORTRAN UNIT',I5,\r\n     1       ') CONTAINS NO DATA BLOCK')\r\nC\r\n 1000 IF (MACH .EQ. 3) CALL UNVCLS (P2)\r\n      IF (MACH .EQ. 4) CALL CDCCLS (P2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/input.f",
    "content": "      SUBROUTINE INPUT\r\nC\r\nC     INPUT I1,I2,I3,I4,I5/O1,O2,O3,O4,O5/C,N,-V1-/C,N,-V2-/C,N,-V3- $\r\nC\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         INOPEN(5)\r\n      INTEGER         FILIN(5),FILOUT(5),FILE,FIL,HFIL(3,5),SPERLK,\r\n     1                MODCOM(9),RDFLG,R,R1,R2,PARAMA,PARAMB,PARAMC,\r\n     2                PARAM1,PARAMN,T(7),MNAM(2),EEE(3),IX(1),TWO,ORF,\r\n     3                K(100),KT(20),I1T(20),J1T(20),I2T(20),J2T(20),\r\n     4                CORD2C(2),KDN(2,20),KL(20),KNO(20),KDSORT(270),\r\n     5                K1(100),K2(100),K3(70)\r\n      REAL            LAMBDA,QK(100)\r\n      CHARACTER*8     E1,E2,E3,CHR\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /BLANK / PARAMA,PARAMB,PARAMC\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      EQUIVALENCE     (KSYSTM( 1),NBUF), (KSYSTM( 2),NOUT  ),\r\n     1                (KSYSTM( 4),NIN ), (KSYSTM(12),NLINES),\r\n     2                (KSYSTM(57),MODCOM(1)), (KSYSTM(95),SPERLK),\r\n     3                (QK(1),K(1)), (X(1),IX(1)),\r\n     4                (KDSORT(  1),K1(1)), (KDSORT(101),K2(1)),\r\n     5                (KDSORT(201),K3(1))\r\nC\r\n      DATA    CORD2C / 2001,20        /\r\n      DATA    MNAM   / 4HINPU, 4HT    /\r\n      DATA    FILIN  / 101,102,103,104,105/\r\n      DATA    FILOUT / 201,202,203,204,205/\r\n      DATA    EEE    / 3*2147483647 /\r\n      DATA    PARAM1 , PARAMN  / 1, 8 /\r\n      DATA    E1,E2  / 'ENDDATA ', 'END DATA' /, E3 / 'ENDATA  ' /\r\n      DATA    INOPEN / 5*.FALSE./\r\nC\r\nC     SORTSEQUENCE (INTERNALSEQUENCEID)\r\nC\r\nC                1    2    3    4    5    6    7    8    9    0\r\nC\r\n      DATA  K1/ 116, 115,   2, 211,  58,  57,  59,  61,  60,  62\r\n     1        , 169, 215, 216, 221, 144, 214, 137, 104, 134, 105\r\n     2        , 135, 106, 136, 165, 213, 114, 233, 113, 181, 189\r\n     3        , 191,   3, 185, 186, 184, 188, 187, 177, 178, 176\r\n     4        , 172, 182, 190, 170, 151, 161,  56,  70,  83,  85\r\n     5        ,   4,  78,  79,  77,  82,  81,  68,  69,  67,  63\r\n     6        ,  71,  84,  54,  55,  49,  50,  51,  52,  23,  24\r\n     7        ,  25,  26,  36,  37,  38,  39, 122, 123,  80,  76\r\n     8        ,  89, 148, 138, 121, 101,  98,  99,   5,   1, 127\r\n     9        , 128, 145, 227, 228, 229, 230, 231, 235,   6,   7 /\r\nC\r\nC                1    2    3    4    5    6    7    8    9    0\r\nC\r\n      DATA  K2/   8, 129,   9,  75, 219,  10,  27,  28,  29,  30\r\n     1        ,  31,  32,  33,  34,  35, 152, 153, 154,  92,  94\r\n     2        , 183, 124,  91, 102, 110, 109, 140, 141, 142, 143\r\n     3        , 205, 206, 223, 224, 210, 240, 241, 242, 243, 225\r\n     4        , 226, 244,  96,  13, 203,  22, 150, 217, 139, 146\r\n     5        , 220, 171, 209, 179, 234, 107, 133, 100, 155, 156\r\n     6        , 157, 222, 158, 159, 160, 111, 245, 247, 249, 251\r\n     7        , 253, 255, 257, 259, 261, 246, 248, 250,  16,  21\r\n     8        , 149,  88,  90,  95, 164, 252, 254, 256, 130, 202\r\n     9        , 232, 258, 260, 262, 199, 200, 201, 166, 167,  97 /\r\nC\r\nC                1    2    3    4    5    6    7    8    9    0\r\nC\r\n      DATA  K3/ 236, 237, 238, 239, 117, 112, 204, 180,  40,  41\r\n     1        ,  42,  14,  17, 108,  11,  12,  74,  86,  44,  45\r\n     2        ,  93, 103,  15,  18,  19,  20,  72,  73, 118, 119\r\n     3        , 212,  43, 194, 125, 126, 162, 131, 132, 192, 193\r\n     4        , 195, 196, 197, 198, 207, 208, 120, 147,  64, 173\r\n     5        ,  46,  47,  48, 163, 168, 218,  87,  53,  65, 174\r\n     6        ,  66, 175,   0,   0,   0,   0,   0,   0,   0,   0 /\r\nC\r\nC                1    2    3    4    5    6    7    8    9    0\r\nC\r\n      DATA  KL/ 901,1301,5501,5481,4501,2408, 501,5301,2801,3301,\r\n     1         5401,5551,3001,5001,5008,5561,2001,   0,   0,   0/\r\n      DATA  KT/   2,   2,   1,   1,   1,   1,   2,   1,   1,   1,\r\n     1            1,   1,   2,   1,   1,   1,   1,   0,   0,   0/\r\nC\r\n      DATA I1T/   2,   2,   5,   5,   4,   3,   2,   5,   3,   4,\r\n     1            5,   5,   3,   5,   5,   6,   3,   0,   0,   0/\r\n      DATA J1T/   9,  13,   7,  10,  13,   8,   5,   5,  12,   1,\r\n     1            6,   1,  14,   2,   2,  12,   4,   0,   0,   0/\r\nC\r\n      DATA I2T/   7,   7,   0,   0,   0,   0,   7,   0,   0,   0,\r\n     1            0,   0,   7,   0,   0,   0,   0,   0,   0,   0/\r\n      DATA J2T/   8,  10,   0,   0,   0,   0,   9,   0,   0,   0,\r\n     1            0,   0,  16,   0,   0,   0,   0,   0,   0,   0/\r\nC\r\n      DATA KNO/  76,  68,  16,  12,   1, 180,  72,   4,  57,  52,\r\n     1           25, 105,  48,  15, 258, 215,   9,   0,   0,   0/\r\nC\r\n      DATA       KDN(1, 1),KDN(2, 1) / 4HCELA , 4HS4   /,\r\n     2           KDN(1, 2),KDN(2, 2) / 4HCMAS , 4HS4   /,\r\n     3           KDN(1, 3),KDN(2, 3) / 4HSPC  , 4H     /,\r\n     4           KDN(1, 4),KDN(2, 4) / 4HSPC1 , 4H     /,\r\n     5           KDN(1, 5),KDN(2, 5) / 4HGRID , 4H     /,\r\n     6           KDN(1, 6),KDN(2, 6) / 4HCBAR , 4H     /,\r\n     7           KDN(1, 7),KDN(2, 7) / 4HCDAM , 4HP4   /,\r\n     8           KDN(1, 8),KDN(2, 8) / 4HSEQG , 4HP    /,\r\n     9           KDN(1, 9),KDN(2, 9) / 4HCQUA , 4HD1   /,\r\n     O           KDN(1,10),KDN(2,10) / 4HCTRI , 4HA1   /,\r\n     1           KDN(1,11),KDN(2,11) / 4HSLOA , 4HD    /,\r\n     2           KDN(1,12),KDN(2,12) / 4HSPOI , 4HNT   /,\r\n     3           KDN(1,13),KDN(2,13) / 4HCROD , 4H     /,\r\n     4           KDN(1,14),KDN(2,14) / 4HOMIT , 4H     /,\r\n     5           KDN(1,15),KDN(2,15) / 4HCNGR , 4HNT   /,\r\n     6           KDN(1,16),KDN(2,16) / 4HASET , 4H     /,\r\n     7           KDN(1,17),KDN(2,17) / 4HXXXX , 4H     /,\r\n     8           KDN(1,18),KDN(2,18) / 4HXXXX , 4H     /,\r\n     9           KDN(1,19),KDN(2,19) / 4HXXXX , 4H     /,\r\n     O           KDN(1,20),KDN(2,20) / 4HXXXX , 4H     /\r\nC\r\nC\r\n      LF(I,J,N) = I + N*(J-1)\r\nC\r\n      IF (PARAM1.LE.PARAMA .AND. PARAMA.LE.PARAMN) GO TO 20\r\n      WRITE  (NOUT,10) UFM,PARAMA\r\n   10 FORMAT (A23,' 1738, UTILITY MODULE INPUT FIRST PARAMETER VALUE - '\r\n     1,       I20,' OUT OF RANGE')\r\n      GO TO 9999\r\nC\r\n   20 KOR  = 10*NBUF + 1\r\n      NKOR = KORSZ(X) - 10*NBUF\r\n      IF (NKOR .LE. 0) CALL MESAGE (-8,NKOR,MNAM)\r\n      CALL PAGE1\r\n      NLINES = NLINES + 8\r\n      WRITE  (NOUT,1)\r\n    1 FORMAT (//20X,'* U T I L I T Y   M O D U L E   I N P U T *',///,\r\n     1       20X,'INPUT DATA ECHO (DATA READ VIA FORTRAN, REMEMBER TO ',\r\n     2       'RIGHT ADJUST)', ///20X,'*   1  **   2  **   3  **   4  ',\r\n     3       '**   5  **   6  **   7  **   8  **   9  **  10  *' ,///)\r\n      IOX = 0\r\n      IOY = 0\r\n      IF (MACH.LT.5 .OR. SPERLK.NE.0) GO TO 100\r\nC\r\nC     ON VAX-11/780 OR UNIX MACHINES, SEARCH FOR END OF BULK DATA DECK.\r\nC\r\n   60 READ (NIN,70,END=80) CHR\r\n   70 FORMAT (A8)\r\n      IF (CHR.EQ.E1 .OR. CHR.EQ.E2 .OR. CHR.EQ.E3) GO TO 100\r\n      GO TO 60\r\nC\r\nC     ENDDATA CARD NOT FOUND\r\nC\r\n   80 WRITE  (NOUT,90) UFM\r\n   90 FORMAT (A23,' - \"ENDDATA\" CARD NOT FOUND BY INPUT MODULE')\r\n      CALL MESAGE (-37,0,MNAM)\r\nC\r\n  100 GO TO (1000,2000,3000,4000,5000,6000,7000,8000), PARAMA\r\nC\r\nC\r\nC     PARAMA = 1 LAPLACE NETWORK\r\nC\r\nC     INPUT, ,,,,/,G2,,G4,/C,N,1/C,N,1 $         STATICS\r\nC     INPUT, ,GEOM2,,GEOM4,/,G2,,G4,/C,N,1/C,N,1 $         STATICS\r\nC     INPUT, ,,,,/,G2,,,/C,N,1/C,N,2 $          REAL-EIG W/O MASS COUPL\r\nC     INPUT, ,GEOM2,,,/,G2,,,/C,N,1/C,N,2 $     REAL-EIG W/O MASS COUPL\r\nC     INPUT, ,,,,/,G2,,,/C,N,1/C,N,3 $          REAL-EIG WITH MASS COUPL\r\nC     INPUT, ,GEOM2,,,/,G2,,,/C,N,1/C,N,3 $     REAL-EIG WITH MASS COUPL\r\nC\r\nC\r\n 1000 GO TO (1100,1200,1300), PARAMB\r\nC\r\n 1100 READ   (NIN,1110) N,ZK,U\r\n 1110 FORMAT (I8,2E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,1111) N,ZK,U\r\n 1111 FORMAT (21X,I8,1P,2E8.1,0P,F8.5)\r\nC\r\n      ASSIGN 1140 TO R2\r\n      GO TO 1205\r\n 1140 CONTINUE\r\nC\r\nC     G4\r\nC\r\n      IFIL = 4\r\n      ASSIGN 1181 TO R\r\n      GO TO 9100\r\nC\r\nC     SPC\r\nC\r\n 1181 IC = 3\r\n      ASSIGN 1182 TO R\r\n      GO TO 9200\r\n 1182 K(1) = 1000 + N\r\n      K(3) = 0\r\n      K(4) = 0\r\n      DO 1183 I = 2,N\r\n      K(2) = I\r\n 1183 CALL WRITE (FILE,K,4,0)\r\n      DO 1184 I = 2,N\r\n      K(2)  = LF(1,I,N1)\r\n      QK(4) = U\r\n      CALL WRITE (FILE,K,4,0)\r\n      K(2)  = K(2) + N\r\n      K(4)  = 0\r\n 1184 CALL WRITE (FILE,K,4,0)\r\n      DO 1185 I = 2,N\r\n      K(2)  = N*N1 + I\r\n 1185 CALL WRITE (FILE,K,4,0)\r\n      ASSIGN 1190 TO R1\r\n      GO TO 9600\r\n 1190 RETURN\r\nC\r\nC\r\n 1200 READ   (NIN,1201) N,ZK,ZM\r\n 1201 FORMAT (I8,2E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,1111) N,ZK,ZM\r\nC\r\n 1204 ASSIGN 1299 TO R2\r\nC\r\n 1205 N1  = N + 1\r\n      NM1 = N - 1\r\nC\r\nC     G2\r\nC\r\n      IFIL = 2\r\n      ASSIGN 1211 TO R\r\n      GO TO 9100\r\nC\r\nC     CELAS4\r\nC\r\n 1211 IC = 1\r\n      ASSIGN 1213 TO R\r\n      GO TO 9200\r\n 1213 QK(2) = ZK\r\n      DO 1214 J = 2,N\r\n      DO 1214 I = 1,N\r\n      K(1) = LF(I,J,N1)\r\n      K(3) = K(1)\r\n      K(4) = K(3) + 1\r\n      IF (PARAMB.NE.1 .AND. I.EQ.1) K(3) = 0\r\n      IF (PARAMB.NE.1 .AND. I.EQ.N) K(4) = 0\r\n 1214 CALL WRITE (FILE,K,4,0)\r\n      DO 1215 J = 1,N\r\n      DO 1215 I = 2,N\r\n      K(3) = LF(I,J,N1)\r\n      K(4) = K(3) + N1\r\n      K(1) = K(3) + 1000000\r\n      IF (PARAMB.NE.1 .AND. J.EQ.1) K(3) = 0\r\n      IF (PARAMB.NE.1 .AND. J.EQ.N) K(4) = 0\r\n 1215 CALL WRITE (FILE,K,4,0)\r\n      ASSIGN 1216 TO R1\r\n      GO TO 9650\r\n 1216 IF (PARAMB .EQ. 1) GO TO 1240\r\nC\r\nC     CMASS4\r\nC\r\n      IC = 2\r\n      ASSIGN 1218 TO R\r\n      GO TO 9200\r\n 1218 QK(2) = ZM\r\n      K(4)  = 0\r\n      DO 1219 J = 2,N\r\n      DO 1219 I = 2,N\r\n      K(3) = LF(I,J,N1)\r\n      K(1) = K(3) + 2000000\r\n 1219 CALL WRITE (FILE,K,4,0)\r\n      IF (PARAMB .EQ. 3) GO TO 1230\r\n 1220 ASSIGN 1240 TO R1\r\n      GO TO 9650\r\nC\r\n 1230 QK(2) = -F*ZM\r\n      DO 1232 J = 2,N\r\n      DO 1232 I = 1,N\r\n      K(3) = LF(I,J,N1)\r\n      K(1) = K(3) + 3000000\r\n      K(4) = K(3) + 1\r\n      IF (I .EQ. 1) K(3) = 0\r\n      IF (I .EQ. N) K(4) = 0\r\n 1232 CALL WRITE (FILE,K,4,0)\r\n      DO 1234 J = 1,N\r\n      DO 1234 I = 2,N\r\n      K(3) = LF(I,J,N1)\r\n      K(4) = K(3) + N1\r\n      K(1) = K(3) + 4000000\r\n      IF (J .EQ. 1) K(3) = 0\r\n      IF (J .EQ. N) K(4) = 0\r\n 1234 CALL WRITE (FILE,K,4,0)\r\n      QK(2) = -F*ZM/2.0\r\n      DO 1236 J = 1,N\r\n      DO 1236 I = 1,N\r\n      K(3) = LF(I,J,N1)\r\n      K(1) = K(3) + 5000000\r\n      K(4) = K(3) + N1 + 1\r\n      IF (I.EQ.1 .OR. J.EQ.1) K(3) = 0\r\n      IF (I.EQ.N .OR. J.EQ.N) K(4) = 0\r\n      IF (K(3).NE.0 .OR. K(4).NE.0) CALL WRITE (FILE,K,4,0)\r\n 1236 CONTINUE\r\n      DO 1238 J = 1,N\r\n      DO 1238 I = 1,N\r\n      K(3) = LF(I,J,N1)\r\n      K(1) = K(3) + 6000000\r\n      K(4) = K(3) + N1\r\n      K(3) = K(3) + 1\r\n      IF (I.EQ.N .OR. J.EQ.1) K(3) = 0\r\n      IF (I.EQ.1 .OR. J.EQ.N) K(4) = 0\r\n      IF (K(3).NE.0 .OR. K(4).NE.0) CALL WRITE (FILE,K,4,0)\r\n 1238 CONTINUE\r\n      GO TO 1220\r\n 1240 IF (MODCOM(1) .NE. 0) GO TO 1295\r\nC\r\nC     DO NOT GENERATE CNGRNT DATA FOR N LESS THAN 3.\r\nC\r\n      IF (N .LT. 3) GO TO 1295\r\nC\r\nC     CNGRNT\r\nC\r\n      IC = 15\r\n      ASSIGN 1245 TO R\r\n      GO TO 9200\r\n 1245 DO 1251 J = 2,N\r\n      DO 1250 I = 1,N\r\n      IF (PARAMB.NE.1 .AND. (I.EQ.1 .OR. I.EQ.N)) GO TO 1250\r\n      K(1) = LF(I,J,N1)\r\n      CALL WRITE (FILE,K,1,0)\r\n 1250 CONTINUE\r\n 1251 CONTINUE\r\n      DO 1256 J = 1,N\r\n      IF (PARAMB.NE.1 .AND. (J.EQ.1 .OR. J.EQ.N)) GO TO 1256\r\n      DO 1255 I = 2,N\r\n      K(1) = LF(I,J,N1) + 1000000\r\n      CALL WRITE (FILE,K,1,0)\r\n 1255 CONTINUE\r\n 1256 CONTINUE\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      IF (PARAMB .EQ. 1) GO TO 1259\r\n      DO 1257 J = 2,N\r\n      DO 1257 I = 1,N,NM1\r\n      K(1) = LF(I,J,N1)\r\n 1257 CALL WRITE (FILE,K,1,0)\r\n      DO 1258 J = 1,N,NM1\r\n      DO 1258 I = 2,N\r\n      K(1) = LF(I,J,N1) + 1000000\r\n 1258 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 1259 CONTINUE\r\n      IF (PARAMB .EQ. 1) GO TO 1285\r\n      DO 1260 J = 2,N\r\n      DO 1260 I = 2,N\r\n      K(1) = LF(I,J,N1) + 2000000\r\n 1260 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      IF (PARAMB .EQ. 2) GO TO 1285\r\n      DO 1265 J = 2,N\r\n      DO 1265 I = 2,NM1\r\n      K(1) = LF(I,J,N1) + 3000000\r\n 1265 CALL WRITE (FILE,K,1,0)\r\n      DO 1270 J = 2,NM1\r\n      DO 1270 I = 2,N\r\n      K(1) = LF(I,J,N1) + 4000000\r\n 1270 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      DO 1272 J = 2,N\r\n      DO 1272 I = 1,N,NM1\r\n      K(1) = LF(I,J,N1) + 3000000\r\n 1272 CALL WRITE (FILE,K,1,0)\r\n      DO 1273 J = 1,N,NM1\r\n      DO 1273 I = 2,N\r\n      K(1) = LF(I,J,N1) + 4000000\r\n 1273 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      DO 1280 L = 1,2\r\n      DO 1275 J = 2,NM1\r\n      DO 1275 I = 2,NM1\r\n      K(1) = LF(I,J,N1) + 1000000*L + 4000000\r\n 1275 CALL WRITE (FILE,K,1,0)\r\n 1280 CONTINUE\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      DO 1282 J = 1,N\r\n      DO 1281 I = 1,N\r\n      IF (I.NE.1 .AND. I.NE.N .AND. J.NE.1 .AND. J.NE.N) GO TO 1281\r\n      IF (J.EQ.1 .AND. I.EQ.N .OR.  J.EQ.N .AND. I.EQ.1) GO TO 1281\r\n      K(1) = LF(I,J,N1) + 5000000\r\n      CALL WRITE (FILE,K,1,0)\r\n 1281 CONTINUE\r\n 1282 CONTINUE\r\n      DO 1284 J = 1,N\r\n      DO 1283 I = 1,N\r\n      IF (I.NE.1 .AND. I.NE.N .AND. J.NE.1 .AND. J.NE.N) GO TO 1283\r\n      IF (J.EQ.1 .AND. I.EQ.1 .OR.  J.EQ.N .AND. I.EQ.N) GO TO 1283\r\n      K(1) = LF(I,J,N1) + 6000000\r\n      CALL WRITE (FILE,K,1,0)\r\n 1283 CONTINUE\r\n 1284 CONTINUE\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 1285 ASSIGN 1290 TO R1\r\n      GO TO 9600\r\n 1290 GO TO R2, (1140,1299)\r\n 1295 ASSIGN 1290 TO R\r\n      GO TO 9500\r\n 1299 RETURN\r\nC\r\n 1300 READ   (NIN,1301) N,ZK,ZM,F\r\n 1301 FORMAT (I8,3E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,1111) N,ZK,ZM,F\r\n      GO TO 1204\r\nC\r\nC\r\nC     PARAMA = 2 RECTANGULAR FRAME MADE FROM BAR-S OR ROD-S\r\nC\r\nC     INPUT, ,,,,/G1,G2,,,/C,N,2/C,N,I/C,N,J $\r\nC     INPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,2/C,N,I/C,N,J $\r\nC            I=1  REGULAR BANDING\r\nC            I=2  DOUBLE BANDING\r\nC            I=3  ACTIVE COLUMN BANDING\r\nC            I=4  REVERSE DOUBLE BANDING\r\nC            J=0  BAR CONFIGURATION\r\nC            J=1  ROD CONFIGURATION 1  (DIAGONALS IN BOTH DIRECTIONS)\r\nC            J=2  ROD CONFIGURATION 2  (DIAGONALS IN LR TO UL DIRECTN)\r\nC            J=3  ROD CONFIGURATION 3  (STATICALLY DETERMINATE)\r\nC\r\nC\r\n 2000 READ   (NIN,2001) NX,NY,DX,DY,IP,LAMBDA\r\n 2001 FORMAT (2I8,2E8.0,I8,E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,2002) NX,NY,DX,DY,IP,LAMBDA\r\n 2002 FORMAT (21X,2I8,1P,2E8.1,I8,1P,2E8.1)\r\n      NX1 = NX + 1\r\n      NY1 = NY + 1\r\n      ASSIGN 2295 TO R2\r\nC\r\nC     G1\r\nC\r\n 2005 IFIL = 1\r\n      ASSIGN 2010 TO R\r\n      GO TO 9100\r\nC\r\nC     GRID\r\nC\r\n 2010 IC = 5\r\n      ASSIGN 2015 TO R\r\n      GO TO 9200\r\n 2015 QK(5) = 0.0\r\n      K(2)  = 0\r\n      K(6)  = 0\r\n      K(8)  = 0\r\n      SL  = SIN(DEGRA*LAMBDA)\r\n      CL  = COS(DEGRA*LAMBDA)\r\n      DDY = DY*CL\r\n      JJ  = -1\r\n      DO 2020 J = 1,NY1\r\n      JJ  = JJ + 1\r\n      IF (JJ .GT. IOY) JJ = 0\r\n      QK(4) = DDY*FLOAT(J-1)\r\n      XO  = FLOAT(J-1)*SL\r\n      II  = -1\r\n      DO 2020 I = 1,NX1\r\n      II  = II + 1\r\n      IF (II .GT. IOX) II = 0\r\n      K(1)  = LF(I,J,NX1)\r\n      QK(3) = DX*FLOAT(I-1) + XO\r\n      IF (II.EQ.0 .OR. JJ.EQ.0) GO TO 2018\r\nC\r\n      K(7) = 6\r\nC\r\n      GO TO 2020\r\n 2018 K(7) = IP\r\n 2020 CALL WRITE (FILE,K,8,0)\r\n      ASSIGN 2050 TO R1\r\n      GO TO 9650\r\nC\r\n 2050 IF (PARAMB .EQ. 1) GO TO 2290\r\n      IC = 8\r\n      ASSIGN 2060 TO R\r\n      GO TO 9200\r\n 2060 GO TO (2290,2200,2300,2350), PARAMB\r\nC\r\nC     DOUBLE BANDING\r\nC\r\n 2200 IF (MOD(NY,2) .EQ. 0) GO TO 2212\r\n      KK = NY1/2\r\n      NN = 1\r\n      GO TO 2214\r\n 2212 KK = NY1/2 + 1\r\n      NN = 2\r\n 2214 IJ = NY1*NX1\r\n      DO 2240 J = 1,IJ\r\n      K(1) = J\r\n      IW = MOD(J,NX1)\r\n      IF (IW .EQ. 0) IW = NX1\r\n      IL = (J-1)/NX1 + 1\r\n      ILMK = IL - KK\r\n      GO TO (2220,2230), NN\r\n 2220 IF (ILMK) 2221,2221,2222\r\n 2221 ILL = -2*ILMK + 1\r\n      GO TO 2223\r\n 2222 ILL  = 2*ILMK\r\n 2223 K(2) = LF(IW,ILL,NX1)\r\n      GO TO 2240\r\n 2230 IF (ILMK) 2231,2232,2232\r\n 2231 ILL  = -2*ILMK\r\n      GO TO 2233\r\n 2232 ILL  = 2*ILMK + 1\r\n 2233 K(2) = LF(IW,ILL,NX1)\r\n 2240 CALL WRITE (FILE,K,2,0)\r\nC\r\n 2270 ASSIGN 2290 TO R1\r\n      GO TO 9650\r\n 2290 GO TO R2, (2295,3010)\r\n 2295 ASSIGN 2400 TO R\r\n      GO TO 9500\r\nC\r\nC     ACTIVE COLUMNS BANDING\r\nC\r\n 2300 IJ  = NX1*NY1\r\n      IF (MOD(NY,2) .EQ. 0) GO TO 2311\r\n      KK  = IJ/2\r\n      KKK = 0\r\n      NN  = 1\r\n      GO TO 2315\r\n 2311 KK  = (NY/2+1)*NX1\r\n      KKK = IJ - KK\r\n      NN  = 2\r\n 2315 DO 2340 J = 1,IJ\r\n      K(1) = J\r\n      GO TO (2320,2330), NN\r\n 2320 IF (J-KK) 2321,2321,2322\r\n 2321 K(2) = J + KK\r\n      GO TO 2340\r\n 2322 K(2) = J - KK\r\n      GO TO 2340\r\n 2330 IF (J-KKK) 2331,2331,2332\r\n 2331 K(2) = J + KK\r\n      GO TO 2340\r\n 2332 K(2) = J - KKK\r\n 2340 CALL WRITE (FILE,K,2,0)\r\n      GO TO 2270\r\nC\r\nC     REVERSE DOUBLE BANDING\r\nC\r\n 2350 IJ = NX1*NY1\r\n      IF (MOD(NX,2) .EQ. 0) GO TO 2360\r\n      KK = NX1/2\r\n      NN = 1\r\n      GO TO 2370\r\n 2360 KK = NX1/2 + 1\r\n      NN = 2\r\n 2370 DO 2390 J = 1,IJ\r\n      K(1) = J\r\n      IW   = MOD(J,NX1)\r\n      IF (IW .EQ. 0) IW = NX1\r\n      IL   = (J-1)/NX1 + 1\r\n      IWMK = IW - KK\r\n      GO TO (2380,2385), NN\r\n 2380 IF (IWMK) 2381,2381,2382\r\n 2381 IWW  = -2*IWMK + 1\r\n      GO TO 2383\r\n 2382 IWW  = 2*IWMK\r\n 2383 K(2) = LF(IL,IWW,NY1)\r\n      GO TO 2390\r\n 2385 IF (IWMK) 2386,2387,2387\r\n 2386 IWW = -2*IWMK\r\n      GO TO 2388\r\n 2387 IWW  = 2*IWMK + 1\r\n 2388 K(2) = LF(IL,IWW,NY1)\r\n 2390 CALL WRITE (FILE,K,2,0)\r\n      GO TO 2270\r\nC\r\nC     G2\r\nC\r\n 2400 IFIL = 2\r\n      ASSIGN 2410 TO R\r\n      GO TO 9100\r\n 2410 IF (PARAMC .NE. 0) GO TO 2700\r\nC\r\nC     CBAR\r\nC\r\n      IC = 6\r\n      ASSIGN 2420 TO R\r\n      GO TO 9200\r\n 2420 K(2)  = 101\r\n      QK(5) = 0.0\r\n      QK(6) = 0.0\r\n      QK(7) = 1.0\r\n      K(8)  = 1\r\n      DO 2430 I = 9,16\r\n 2430 K(I) = 0\r\n      DO 2450 J = 1,NY1\r\n      DO 2450 I = 1,NX\r\n      K(1) = LF(I,J,NX1)\r\n      K(3) = K(1)\r\n      K(4) = K(1) + 1\r\n 2450 CALL WRITE (FILE,K,16,0)\r\n      DO 2460 J = 1,NY\r\n      DO 2460 I = 1,NX1\r\n      K(3) = LF(I,J,NX1)\r\n      K(4) = K(3) + NX1\r\n      K(1) = K(3) + 1000000\r\n 2460 CALL WRITE (FILE,K,16,0)\r\n 2470 ASSIGN 2600 TO R1\r\n      GO TO 9650\r\n 2600 IF (MODCOM(1) .NE. 0) GO TO 2695\r\nC\r\nC     CNGRNT    (OUT OF SEQUENCE FOR CROD CASES)\r\nC\r\n      IC = 15\r\n      ASSIGN 2610 TO R\r\n      GO TO 9200\r\n 2610 DO 2620 J = 1,NY1\r\n      DO 2620 I = 1,NX\r\n      K(1) = LF(I,J,NX1)\r\n 2620 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      DO 2640 J = 1,NY\r\n      DO 2640 I = 1,NX1\r\n      K(1) = LF(I,J,NX1) + 1000000\r\n 2640 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      IF (PARAMC .EQ. 0) GO TO 2680\r\n      DO 2655 J = 1,NY\r\n      DO 2653 I = 1,NX\r\n      K(1) = LF(I,J,NX1)*2 + 1999999\r\n      CALL WRITE (FILE,K,1,0)\r\n      IF (PARAMC.EQ.3 .AND. J.GT.1) GO TO 2655\r\n 2653 CONTINUE\r\n 2655 CONTINUE\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      IF (PARAMC .NE. 1) GO TO 2680\r\n      DO 2670 J = 1,NY\r\n      DO 2670 I = 1,NX\r\n      K(1) = LF(I,J,NX1)*2 + 2000000\r\n 2670 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 2680 ASSIGN 2690 TO R1\r\n      GO TO 9600\r\n 2690 RETURN\r\n 2695 ASSIGN 2690 TO R\r\n      GO TO 9500\r\nC\r\nC     CROD\r\nC\r\n 2700 IC = 13\r\n      ASSIGN 2710 TO R\r\n      GO TO 9200\r\n 2710 K(2) = 101\r\n      DO 2720 J = 1,NY1\r\n      DO 2720 I = 1,NX\r\n      K(1) = LF(I,J,NX1)\r\n      K(3) = K(1)\r\n      K(4) = K(3) + 1\r\n 2720 CALL WRITE (FILE,K,4,0)\r\n      DO 2730 J = 1,NY\r\n      DO 2730 I = 1,NX1\r\n      K(3) = LF(I,J,NX1)\r\n      K(4) = K(3) + NX1\r\n      K(1) = K(3) + 1000000\r\n 2730 CALL WRITE (FILE,K,4,0)\r\n      DO 2750 J = 1,NY\r\n      DO 2740 I = 1,NX\r\n      K(3) = LF(I,J,NX1) + 1\r\n      K(4) = K(3) + NX\r\n      K(1) = 2*K(3) + 1999997\r\n      CALL WRITE (FILE,K,4,0)\r\n      IF (PARAMC.EQ.3 .AND. J.GT.1) GO TO 2750\r\n      IF (PARAMC .NE. 1) GO TO 2740\r\n      K(1) = K(1) + 1\r\n      K(3) = K(3) - 1\r\n      K(4) = K(4) + 1\r\n      CALL WRITE (FILE,K,4,0)\r\n 2740 CONTINUE\r\n 2750 CONTINUE\r\n      GO TO 2470\r\nC\r\nC\r\nC     PARAMA = 3 RECTANGULAR PLATE MADE FROM QUAD1-S\r\nC\r\nC     INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,I $\r\nC     INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,3/C,N,I $\r\nC              I=1  REGULAR BANDING\r\nC              I=2  DOUBLE BANDING\r\nC              I=3  ACTIVE COLUMN BANDING\r\nC              I=4  REVERSE DOUBLE BANDING\r\nC\r\nC\r\n 3000 READ  (NIN,3001) NX,NY,DX,DY,IP,LAMBDA,TH\r\n 3001 FORMAT (2I8,2E8.0,I8,2E8.0)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,2002) NX,NY,DX,DY,IP,LAMBDA,TH\r\n      READ   (NIN,3002) IY0,IX0,IYL,IXW,IOX,IOY\r\n 3002 FORMAT (6I8)\r\n      WRITE  (NOUT,3003) IY0,IX0,IYL,IXW,IOX,IOY\r\n 3003 FORMAT (21X,6I8)\r\n      NX1 = NX + 1\r\n      NY1 = NY + 1\r\nC\r\nC     GRID\r\nC\r\n      ASSIGN 3010 TO R2\r\n      GO TO 2005\r\n 3010 ASSIGN 3020 TO R\r\n      GO TO 9500\r\nC\r\nC     G2\r\nC\r\n 3020 IFIL = 2\r\n      ASSIGN 3030 TO R\r\n      GO TO 9100\r\nC\r\nC     CQUAD1\r\nC\r\n 3030 IF (PARAMA .EQ. 4) GO TO 4100\r\n      IC = 9\r\n      ASSIGN 3040 TO R\r\n      GO TO 9200\r\n 3040 K(2)  = 101\r\n      QK(7) = TH\r\n      DO 3060 J = 1,NY\r\n      DO 3060 I = 1,NX\r\n      K(1) = LF(I,J,NX1)\r\n      K(3) = K(1)\r\n      K(4) = K(3) + 1\r\n      K(6) = K(1) + NX1\r\n      K(5) = K(6) + 1\r\n 3060 CALL WRITE (FILE,K,7,0)\r\n      ASSIGN 3061 TO R1\r\n      GO TO 9650\r\n 3061 IF (MODCOM(1) .NE. 0) GO TO 3066\r\nC\r\nC     CNGRNT (OUT OF SEQUENCE)\r\nC\r\n      IC = 15\r\n      ASSIGN 3062 TO R\r\n      GO TO 9200\r\n 3062 DO 3063 J = 1,NY\r\n      DO 3063 I = 1,NX\r\n      K(1) = LF(I,J,NX1)\r\n 3063 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 3065 ASSIGN 3070 TO R1\r\n      GO TO 9600\r\n 3066 ASSIGN 3070 TO R\r\n      GO TO 9500\r\nC\r\nC     SPC-S AND OMIT-S\r\nC\r\n 3070 IF (IP+IY0+IX0+IYL+IXW+IOX+IOY .EQ. 0) GO TO 3090\r\nC\r\nC     G4\r\nC\r\n      IFIL = 4\r\n      ASSIGN 3080 TO R\r\n      GO TO 9100\r\nC\r\nC     SPC\r\nC\r\n 3071 IC = 3\r\n      ASSIGN 3072 TO R\r\n      GO TO 9200\r\n 3072 K(1) = 1000*NX + NY\r\n      K(4) = 0\r\n      DO 3073 I = 1,NX1\r\n      K(2) = I\r\n      K(3) = IY0\r\n      IF (I .EQ.    1) K(3) = IUNION(IY0,IX0)\r\n      IF (I .EQ.  NX1) K(3) = IUNION(IY0,IXW)\r\n      IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0)\r\n 3073 CONTINUE\r\n      DO 3074 I = 2,NY\r\n      K(2) = LF(1,I,NX1)\r\n      K(3) = IX0\r\n      IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0)\r\n      K(2) = K(2) + NX\r\n      K(3) = IXW\r\n      IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0)\r\n 3074 CONTINUE\r\n      K(2) = NX1*NY\r\n      DO 3075 I = 1,NX1\r\n      K(2) = K(2) + 1\r\n      K(3) = IYL\r\n      IF (I .EQ.    1) K(3) = IUNION(IYL,IX0)\r\n      IF (I .EQ.  NX1) K(3) = IUNION(IYL,IXW)\r\n      IF (K(3) .NE. 0) CALL WRITE (FILE,K,4,0)\r\n 3075 CONTINUE\r\n      ASSIGN 3089 TO R1\r\n      GO TO 9650\r\n 3080 IF (IOX+IOY .EQ. 0) GO TO 3071\r\nC\r\nC     OMIT\r\nC\r\n      IC = 14\r\n      ASSIGN 3081 TO R\r\n      GO TO 9200\r\n 3081 DO 3082 I = 2,12,2\r\n 3082 K(I) = I/2\r\n      JJ = 0\r\n      DO 3087 J = 2,NY\r\n      JJ = JJ + 1\r\n      IF (JJ .GT. IOY) GO TO 3086\r\n      II = 0\r\n      DO 3085 I = 2,NX\r\n      II = II + 1\r\n      IF (II .GT. IOX) GO TO 3084\r\n      K(1) = LF(I,J,NX1)\r\n      DO 3083  L = 3,11,2\r\n 3083 K(L) = K(1)\r\nC\r\n      CALL WRITE (FILE,K,10,0)\r\nC\r\n      GO TO 3085\r\n 3084 II = 0\r\n 3085 CONTINUE\r\n      GO TO 3087\r\n 3086 JJ = 0\r\n 3087 CONTINUE\r\n      ASSIGN 3088 TO R1\r\n      GO TO 9650\r\n 3088 IF (IP+IY0+IX0+IYL+IXW .GT. 0) GO TO 3071\r\n 3089 ASSIGN 3090 TO R\r\n      GO TO 9500\r\n 3090 RETURN\r\nC\r\nC\r\nC     PARAMA = 4 RECTANGULAR PLATE MADE FROM TRIA1-S\r\nC\r\nC     INPUT, ,,,,/G1,G2,,G4,/C,N,4/C,N,I/C,N,J $\r\nC     INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,4/C,N,I/C,N,J $\r\nC            I=1  REGULAR BANDING\r\nC            I=2  DOUBLE BANDING\r\nC            I=3  ACTIVE COLUMN BANDING\r\nC            I=4  REVERSE DOUBLE BANDING\r\nC            J=1  TRIANGLE CONFIGURATION OPTION NO. 1    (LL TO UR)\r\nC            J=2  TRIANGLE CONFIGURATION OPTION NO. 2    (LR TO UL)\r\nC\r\nC\r\n 4000 GO TO 3000\r\nC\r\nC     CTRIA1\r\nC\r\n 4100 IC = 10\r\n      ASSIGN 4200 TO R\r\n      GO TO 9200\r\n 4200 K(2)  = 101\r\n      QK(6) = TH\r\n      DO 4500 J = 1,NY\r\n      DO 4500 I = 1,NX\r\n      K(3) = LF(I,J,NX1)\r\n      K(4) = K(3) + 1\r\n      K(1) = 2*K(3) - 1\r\n      GO TO (4300,4400), PARAMC\r\n 4300 K(5) = K(4) + NX1\r\n      CALL WRITE (FILE,K,6,0)\r\n      K(1) = K(1) + 1\r\n      K(4) = K(3) + NX1\r\n      K(3) = K(5)\r\n      K(5) = K(4) - NX1\r\n      CALL WRITE (FILE,K,6,0)\r\n      GO TO 4500\r\n 4400 K(5) = K(3) + NX1\r\n      CALL WRITE (FILE,K,6,0)\r\n      K(1) = K(1) + 1\r\n      K(3) = K(5) + 1\r\n      K(4) = K(5)\r\n      K(5) = K(3) - NX1\r\n      CALL WRITE (FILE,K,6,0)\r\n 4500 CONTINUE\r\n      ASSIGN 4550 TO R1\r\n      GO TO 9650\r\n 4550 IF (MODCOM(1) .NE. 0) GO TO 3066\r\nC\r\nC     CNGRNT (OUT OF SEQUENCE)\r\nC\r\n      IC = 15\r\n      ASSIGN 4600 TO R\r\n      GO TO 9200\r\n 4600 DO 4650 J = 1,NY\r\n      DO 4650 I = 1,NX\r\n      K(1) = LF(I,J,NX1)*2 - 1\r\n 4650 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      DO 4750 J = 1,NY\r\n      DO 4750 I = 1,NX\r\n      K(1) = LF(I,J,NX1)*2\r\n 4750 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      GO TO 3065\r\nC\r\nC\r\nC     PARAMA = 5 N-SEGMENT STRING\r\nC\r\nC     INPUT, ,,,,/,G2,,,/C,N,5 $\r\nC     INPUT, ,GEOM2,,,/,G2,,,/C,N,5 $\r\nC\r\nC\r\n 5000 READ   (NIN,5010) N,XK1,XK2,XM,XB\r\n 5010 FORMAT (I8,4E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,5011) N,XK1,XK2,XM,XB\r\n 5011 FORMAT (21X,I8,1P,4E8.1)\r\n      N1  = N + 1\r\n      NM1 = N - 1\r\nC\r\nC     G2\r\nC\r\n      IFIL = 2\r\n      ASSIGN 5100 TO R\r\n      GO TO 9100\r\n 5100 IF (XB .EQ. 0.0) GO TO 5140\r\nC\r\nC     CDAMP4\r\nC\r\n      IC = 7\r\n      ASSIGN 5110 TO R\r\n      GO TO 9200\r\n 5110 QK(2) = XB\r\n      K(4)  = 0\r\n      DO 5120 I = 2,N\r\n      K(1)  = I + 2000000\r\n      K(3)  = I\r\n 5120 CALL WRITE (FILE,K,4,0)\r\n      ASSIGN 5140 TO R1\r\n      GO TO 9650\r\nC\r\nC     CELAS4\r\nC\r\n 5140 IC = 1\r\n      ASSIGN 5160 TO R\r\n      GO TO 9200\r\n 5160 QK(2) = XK1\r\n      DO 5170 I = 1,N\r\n      K(1) = I\r\n      K(3) = I\r\n      K(4) = I + 1\r\n      IF (I .EQ. 1) K(3) = 0\r\n      IF (I .EQ. N) K(4) = 0\r\n 5170 CALL WRITE (FILE,K,4,0)\r\n      IF (XK2 .NE. 0.0) GO TO 5190\r\n 5175 ASSIGN 5210 TO R1\r\n      GO TO 9650\r\nC\r\n 5190 QK(2) = XK2\r\n      K(4)  = 0\r\n      DO 5200 I = 2,N\r\n      K(1)  = I + 3000000\r\n      K(3)  = I\r\n 5200 CALL WRITE (FILE,K,4,0)\r\n      GO TO 5175\r\nC\r\n 5210 IF (XM .EQ. 0.0) GO TO 5260\r\nC\r\nC     CMASS4\r\nC\r\n      IC = 2\r\n      ASSIGN 5220 TO R\r\n      GO TO 9200\r\n 5220 QK(2) = XM\r\n      K(4)  = 0\r\n      DO 5230 I = 2,N\r\n      K(1)  = I + 1000000\r\n      K(3)  = I\r\n 5230 CALL WRITE (FILE,K,4,0)\r\n      ASSIGN 5260 TO R1\r\n      GO TO 9650\r\n 5260 IF (MODCOM(1) .NE. 0) GO TO 5750\r\n      IF (N .LE. 2) GO TO 5750\r\n      IF (N.EQ.3 .AND. XM.EQ.0.0 .AND. XB.EQ.0.0 .AND. XK2.EQ.0.0)\r\n     1   GO TO 5750\r\nC\r\nC     CNGRNT\r\nC\r\n      IC = 15\r\n      ASSIGN 5300 TO R\r\n      GO TO 9200\r\n 5300 IF (N .EQ. 3) GO TO 5400\r\n      DO 5320 I = 2,NM1\r\n      K(1) = I\r\n 5320 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 5400 IF (XM .EQ. 0.0) GO TO 5500\r\n      DO 5420 I = 2,N\r\n      K(1) = I + 1000000\r\n 5420 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 5500 IF (XB .EQ. 0.0) GO TO 5600\r\n      DO 5520 I = 2,N\r\n      K(1) = I + 2000000\r\n 5520 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 5600 IF (XK2 .EQ. 0.0) GO TO 5700\r\n      DO 5620 I = 2,N\r\n      K(1) = I + 3000000\r\n 5620 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n 5700 ASSIGN 5900 TO R1\r\n      GO TO 9600\r\n 5750 ASSIGN 5900 TO R\r\n      GO TO 9500\r\n 5900 RETURN\r\nC\r\nC\r\nC     PARAMA = 6 N-CELL BAR\r\nC\r\nC     INPUT, ,,,,/G1,G2,,G4,/C,N,6 $\r\nC     INPUT GEOM1,GEOM2,,GEOM4,/G1,G2,,G4,/C,N,6 $\r\nC\r\nC\r\n 6000 READ   (NIN,6010) N,XL,IP,IFLG,IG0,M,IOX\r\n 6010 FORMAT (I8,E8.0,5I8)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,6011) N,XL,IP,IFLG,IG0,M,IOX\r\n 6011 FORMAT (21X,I8,1P,E8.1,5I8)\r\n      N1 = N + 1\r\nC\r\nC     G1\r\nC\r\n      IFIL = 1\r\n      ASSIGN 6100 TO R\r\n      GO TO 9100\r\nC\r\nC     GRID\r\nC\r\n 6100 IC = 5\r\n      ASSIGN 6200 TO R\r\n      GO TO 9200\r\n 6200 K(2)  = 0\r\n      QK(4) = 0.0\r\n      QK(5) = 0.0\r\n      K(6)  = 0\r\n      K(8)  = 0\r\n      II    = 0\r\n      DO 6300 I = 1,N1\r\n      II    = II + 1\r\n      K(1)  = I\r\n      QK(3) = XL*FLOAT(I-1)/FLOAT(N)\r\n      IF (I.EQ.1 .OR. II.GT.IOX) GO TO 6280\r\n      K(7) = 0\r\n      GO TO 6300\r\n 6280 K(7) = IP\r\n      II   = 0\r\n 6300 CALL WRITE (FILE,K,8,0)\r\n      ASSIGN 6600 TO R1\r\n      GO TO 9600\r\nC\r\nC     G2\r\nC\r\n 6600 IFIL = 2\r\n      ASSIGN 6610 TO R\r\n      GO TO 9100\r\nC\r\nC     CBAR\r\nC\r\n 6610 IC = 6\r\n      ASSIGN 6620 TO R\r\n      GO TO 9200\r\n 6620 K(2) = 101\r\n      K(8) = IFLG\r\n      K(5) = IG0\r\n      K(6) = 0\r\n      K(7) = 0\r\n      IF (IFLG .EQ. 2) GO TO 6635\r\n      READ   (NIN,6630) X1,X2,X3\r\n 6630 FORMAT (3E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,6631) X1,X2,X3\r\n 6631 FORMAT (21X,1P,3E8.1)\r\n      QK(5) = X1\r\n      QK(6) = X2\r\n      QK(7) = X3\r\n      GO TO 6640\r\n 6635 GO TO 9907\r\n 6640 DO 6645 I = 9,16\r\n 6645 K(I) = 0\r\n      DO 6650 I = 1,N\r\n      K(1) = I\r\n      K(3) = I\r\n      K(4) = I + 1\r\n 6650 CALL WRITE (FILE,K,16,0)\r\n      IF (M.LE.0 .OR. M.GT.N-1) GO TO 6670\r\n      K(2) = 102\r\n      K(3) = 2\r\n      DO 6660 I = 1,M\r\n      K(1) = N + I\r\n      K(4) = N - I + 2\r\n 6660 CALL WRITE (FILE,K,16,0)\r\n 6670 ASSIGN 6680 TO R1\r\n      GO TO 9650\r\n 6680 IF (MODCOM(1) .NE. 0) GO TO 6694\r\nC\r\nC     CNGRNT\r\nC\r\n      IC = 15\r\n      ASSIGN 6685 TO R\r\n      GO TO 9200\r\n 6685 DO 6690 I = 1,N\r\n      K(1) = I\r\n 6690 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      ASSIGN 6695 TO R1\r\n      GO TO 9600\r\n 6694 ASSIGN 6695 TO R\r\n      GO TO 9500\r\n 6695 IF (IOX .EQ. 0) RETURN\r\nC\r\nC     G4\r\nC\r\n      IFIL = 4\r\n      ASSIGN 6700 TO R\r\n      GO TO 9100\r\nC\r\nC     OMIT\r\nC\r\n 6700 IC = 14\r\n      ASSIGN 6710 TO R\r\n      GO TO 9200\r\n 6710 DO 6712 I = 2,12,2\r\n 6712 K(I) = I/2\r\n      II = 0\r\n      DO 6720 I = 2,N\r\n      II = II + 1\r\n      IF (II .GT. IOX) GO TO 6716\r\n      K(1) = I\r\n      DO 6714 L = 3,11,2\r\n 6714 K(L) = K(1)\r\n      CALL WRITE (FILE,K,12,0)\r\n      GO TO 6720\r\n 6716 II = 0\r\n 6720 CONTINUE\r\n      ASSIGN 6730 TO R1\r\n      GO TO 9600\r\n 6730 RETURN\r\nC\r\nC\r\nC     PARAMA = 7 FULL MATRIX AND OPTIONAL UNIT LOAD\r\nC\r\nC     INPUT, ,,,,/,G2,G3,,G5/C,N,7 $\r\nC     INPUT, ,GEOM2,GEOM3,,/,G2,G3,,G5/C,N,7 $\r\nC\r\nC\r\n 7000 READ   (NIN,7001) N,NSLOAD\r\n 7001 FORMAT (2I8)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,7002) N,NSLOAD\r\n 7002 FORMAT (21X,2I8)\r\n      N1 = N + 1\r\nC\r\nC     G2\r\nC\r\n      IFIL = 2\r\n      ASSIGN 7010 TO R\r\n      GO TO 9100\r\nC\r\nC     CELAS4\r\nC\r\n 7010 IC = 1\r\n      ASSIGN 7011 TO R\r\n      GO TO 9200\r\n 7011 QK(2) = 1.0\r\n      II = 0\r\n      DO 7020 I = 1,N\r\n      IF (I .GT. 1) II = II + N1 - I\r\n      DO 7020 J = I,N\r\n      K(1) = II + J\r\n      K(3) = I\r\n      K(4) = J\r\n      IF (I .EQ. J) K(4) = 0\r\n 7020 CALL WRITE (FILE,K,4,0)\r\n      ASSIGN 7030 TO R1\r\n      GO TO 9650\r\n 7030 IF (MODCOM(1) .NE. 0) GO TO 7036\r\nC\r\nC     DO NOT GENERATE CNGRNT DATA FOR N LESS THAN 3.\r\nC\r\n      IF (N .LT. 3) GO TO 7036\r\nC\r\nC     CNGRNT\r\nC\r\n      IC = 15\r\n      ASSIGN 7032 TO R\r\n      GO TO 9200\r\n 7032 II = 0\r\n      DO 7033 I = 1,N\r\n      IF (I .GT. 1) II = II + N1 - I\r\n      K(1) = II + I\r\n 7033 CALL WRITE (FILE,K,1,0)\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      II = 0\r\n      DO 7035 I = 1,N\r\n      IF (I .GT. 1) II = II + N1 - I\r\n      DO 7034 J = I,N\r\n      IF (J .EQ. I) GO TO 7034\r\n      K(1) = II + J\r\n      CALL WRITE (FILE,K,1,0)\r\n 7034 CONTINUE\r\n 7035 CONTINUE\r\n      K(1) = -1\r\n      CALL WRITE (FILE,K,1,0)\r\n      ASSIGN 7037 TO R1\r\n      GO TO 9600\r\n 7036 ASSIGN 7037 TO R\r\n      GO TO 9500\r\n 7037 IF (NSLOAD .EQ. 0) GO TO 7070\r\nC\r\nC     G3\r\nC\r\n      IFIL = 3\r\n      ASSIGN 7040 TO R\r\n      GO TO 9100\r\nC\r\nC     SLOAD\r\nC\r\n 7040 IC = 11\r\n      ASSIGN 7050 TO R\r\n      GO TO 9200\r\n 7050 K(1)  = N\r\n      QK(3) = 1.0\r\n      DO 7060 I = 1,N\r\n      K(2)  = I\r\n 7060 CALL WRITE (FILE,K,3,0)\r\n      ASSIGN 7070 TO R1\r\n      GO TO 9600\r\nC\r\nC     G5\r\nC\r\n 7070 IFIL = 5\r\n      ASSIGN 7080 TO R\r\n      GO TO 9100\r\nC\r\nC     SPOINT\r\nC\r\n 7080 IC = 12\r\n      ASSIGN 7090 TO R\r\n      GO TO 9200\r\n 7090 DO 7100 I = 1,N\r\n 7100 CALL WRITE (FILE,I,1,0)\r\n      ASSIGN 7110 TO R1\r\n      GO TO 9600\r\n 7110 NE = N*N1/2\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,7201) N,NE\r\n 7201 FORMAT ('0*INPUT* FULL MATRIX OF ORDER',I9,'   GENERATED WITH',\r\n     1        I9,'  ELEMENTS')\r\n      IF (NSLOAD .EQ. 0) GO TO 7203\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,7202) N\r\n 7202 FORMAT ('0*INPUT* LOAD SET',I9,'  GENERATED')\r\n 7203 RETURN\r\nC\r\nC\r\nC     PARAMA = 8 N-SPOKE WHEEL\r\nC\r\nC     INPUT, ,,,,/G1,G2,,,/C,N,8 $\r\nC     INPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,8 $\r\nC\r\nC\r\n 8000 READ   (NIN,8010) N,XL,IP,IFLG,IG0,ICEN\r\n 8010 FORMAT (I8,E8.0,4I8)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,8011) N,XL,IP,IFLG,IG0,ICEN\r\n 8011 FORMAT (21X,I8,1P,E8.1,4I8)\r\n      N1 = N + 1\r\nC\r\nC     G1\r\nC\r\n      IFIL = 1\r\n      ASSIGN 8100 TO R\r\n      GO TO 9100\r\n8100  CONTINUE\r\nC\r\nC     LOCATE AND COPY CORD2C CARD FROM THE FIRST INPUT FILE\r\nC\r\n      IBUF = (IFIL+4)*NBUF + 1\r\n      CALL PRELOC (*9908,X(IBUF),FILIN(IFIL))\r\n      CALL LOCATE (*9909,X(IBUF),CORD2C,QK(3))\r\n      CALL READ (*9908,*8120,FILIN(IFIL),QK(4),13,0,IFLAG)\r\n      CALL CLOSE (FILIN(IFIL),1)\r\n      INOPEN(IFIL) = .FALSE.\r\n8120  CONTINUE\r\n      IC = 17\r\n      ASSIGN 8200 TO R\r\n      GO TO 9200\r\n8200  CONTINUE\r\n      CALL WRITE (FILE,QK(4),13,0)\r\n      ASSIGN 8250 TO R1\r\n      GO TO 9650\r\nC\r\nC     GRID\r\nC\r\n8250  CONTINUE\r\n      IC = 5\r\n      ASSIGN 8260 TO R\r\n      GO TO 9200\r\n8260  CONTINUE\r\n      K(2)  = 2\r\nC     QK(2) = QK(5)    THIS WILL ASSIGN REFERENCE NUMBER ON CORD2C CARD\r\nC                      TO THE GRID POINTS\r\nC\r\n      IF (N.GT.0 .AND. N.LT.256) GO TO 8050\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NOUT,8030) UWM\r\n 8030 FORMAT (A25,' 2369, WHEEL MUST HAVE FEWER THAN 256 SPOKES. ',\r\n     1       'INPUT MODULE RESETTING TO 255')\r\n      N = 255\r\n 8050 N1 = N + 1\r\n      QK(3) = XL\r\n      QK(5) = 0.0\r\n      K(6)  = 2\r\n      K(8)  = 0\r\n      K(7)  = IP\r\n      DO 8300 I = 1,N\r\n      K(1)  = I\r\n      QK(4) = 360.0/FLOAT(N)*FLOAT(I-1)\r\n 8300 CALL WRITE (FILE,K,8,0)\r\n      K(1)  = N1\r\n      K(2)  = 0\r\n      QK(3) = 0.0\r\n      QK(4) = 0.0\r\n      K(6)  = 0\r\n      IF (ICEN .NE. 0) K(7) = ICEN\r\n      CALL WRITE (FILE,K,8,0)\r\n      ASSIGN 8600 TO R1\r\n      GO TO 9600\r\nC\r\nC     G2\r\nC\r\n 8600 IFIL = 2\r\n      ASSIGN 8610 TO R\r\n      GO TO 9100\r\nC\r\nC     CBAR\r\nC\r\n 8610 IC = 6\r\n      ASSIGN 8620 TO R\r\n      GO TO 9200\r\n 8620 K(2) = 101\r\n      K(8) = IFLG\r\n      K(5) = IG0\r\n      K(6) = 0\r\n      K(7) = 0\r\n      IF (IFLG .EQ. 2) GO TO 8635\r\n      READ   (NIN,8630) X1,X2,X3\r\n 8630 FORMAT (3E8.0)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,8631) X1,X2,X3\r\n 8631 FORMAT (21X,1P,3E8.1)\r\n      QK(5) = X1\r\n      QK(6) = X2\r\n      QK(7) = X3\r\n      GO TO 8640\r\n 8635 GO TO 9907\r\n 8640 DO 8645 I = 9,16\r\n 8645 K(I) = 0\r\n      DO 8650 I = 1,N\r\n      K(1) = I\r\n      K(3) = I\r\n      K(4) = I + 1\r\n      IF (K(4) .EQ. N1) K(4) = 1\r\n 8650 CALL WRITE (FILE,K,16,0)\r\n      K(4) = N1\r\n      DO 8655 I = 1,N\r\n      K(1) = N + I\r\n      K(3) = I\r\n 8655 CALL WRITE (FILE,K,16,0)\r\n      ASSIGN 8950 TO R1\r\n      GO TO 9650\r\n 8950 ASSIGN 8900 TO R\r\n      GO TO 9500\r\n 8900 RETURN\r\nC\r\nC\r\nC     UTILITY I/O ROUTINES\r\nC\r\nC\r\n 9100 FILE = FILOUT(IFIL)\r\n      IBUF = (IFIL-1)*NBUF + 1\r\n      CALL GOPEN (FILE,X(IBUF),1)\r\n      T(1) = FILE\r\n      DO 9110 J = 2,7\r\n 9110 T(J) = 0\r\n      FIL  = FILIN(IFIL)\r\n      IBUF = (IFIL+4)*NBUF + 1\r\n      IF (PARAMA - 8) 9115,9190,9115\r\n 9115 CONTINUE\r\n      CALL OPEN (*9130,FIL,X(IBUF),0)\r\n      INOPEN(IFIL) = .TRUE.\r\n      T(1) = FIL\r\n      CALL RDTRL (T)\r\n      T(1) = FILE\r\n      CALL SKPREC (FIL,1)\r\n      CALL FREAD (FIL,HFIL(1,IFIL),3,0)\r\n      DO 9120 J = 1,3\r\n      IF (HFIL(J,IFIL) .NE. EEE(J)) GO TO 9190\r\n 9120 CONTINUE\r\n      GO TO 9904\r\n 9130 INOPEN(IFIL) = .FALSE.\r\n 9190 GO TO R, (1181,1211,2010,2410,3030,3080,5100,6100,6610,6700,\r\n     1          7010,7040,7080,8100,8610)\r\nC\r\nC\r\n 9200 IF (INOPEN(IFIL)) GO TO 9230\r\n 9210 CALL WRITE (FILE,KL(IC),1,0)\r\n      CALL WRITE (FILE,16*(I1T(IC)-2)+J1T(IC),1,0)\r\n      CALL WRITE (FILE,KNO(IC),1,0)\r\n      GO TO R, (1182,1213,1218,1245,2015,2060,2420,2610,2710,3040,\r\n     1          3062,3072,3081,4200,4600,5110,5160,5220,5300,6200,\r\n     2          6620,6685,6710,7011,7032,7050,7090,8200,8620,8260)\r\n 9230 KNOIC = KNO(IC)\r\n      KSRT  = KDSORT(KNOIC)\r\n 9235 KNOX  = HFIL(3,IFIL)\r\n      KSRTX = KDSORT(KNOX)\r\n      IF (KSRT .LT. KSRTX) GO TO 9210\r\n      IF (KSRT .EQ. KSRTX) GO TO 9906\r\n      CALL WRITE (FILE,HFIL(1,IFIL),3,0)\r\n 9240 CALL READ (*9902,*9250,FIL,X(KOR),NKOR,0,RDFLG)\r\n      CALL WRITE (FILE,X(KOR),NKOR,0)\r\n      GO TO 9240\r\n 9250 CALL WRITE (FILE,X(KOR),RDFLG,1)\r\n      CALL FREAD (FIL,HFIL(1,IFIL),3,0)\r\n      DO 9260 J = 1,3\r\n      IF (HFIL(J,IFIL) .NE. EEE(J)) GO TO 9235\r\n 9260 CONTINUE\r\n      INOPEN(IFIL) = .FALSE.\r\n      CALL CLOSE (FIL,1)\r\n      GO TO 9210\r\nC\r\n 9400 KTT  = KT(IC)\r\n      I1TT = I1T(IC)\r\n      J1TT = J1T(IC) + 16\r\n      T(I1TT) = ORF(T(I1TT),TWO(J1TT))\r\n      IF (KTT .EQ. 1) GO TO 9450\r\n      I2TT = I2T(IC)\r\n      J2TT = J2T(IC) + 16\r\n      T(I2TT) = ORF(T(I2TT),TWO(J2TT))\r\n 9450 GO TO R, (9620,9670)\r\nC\r\nC\r\n 9500 IF (INOPEN(IFIL)) GO TO 9520\r\n      CALL WRITE (FILE,EEE,3,1)\r\n      GO TO 9510\r\n 9505 CALL CLOSE (FIL,1)\r\n      INOPEN(IFIL) = .FALSE.\r\n 9510 CALL WRTTRL (T)\r\n      CALL CLOSE (FILE,1)\r\n      GO TO R, (1290,2400,2690,3020,3070,3090,5900,6695,7037,8900,\r\n     1          9630)\r\n 9520 CALL WRITE (FILE,HFIL(1,IFIL),3,0)\r\n 9525 CALL READ  (*9505,*9530,FIL,X(KOR),NKOR,0,RDFLG)\r\n      CALL WRITE (FILE,X(KOR),NKOR,0)\r\n      GO TO 9525\r\n 9530 CALL WRITE (FILE,X(KOR),RDFLG,1)\r\n      GO TO 9525\r\nC\r\n 9600 CALL WRITE (FILE,0,0,1)\r\n      ASSIGN 9620 TO R\r\n      GO TO 9400\r\n 9620 ASSIGN 9630 TO R\r\n      GO TO 9500\r\n 9630 GO TO R1, (1190,1290,2690,3070,5900,6600,6695,6730,7037,7070,\r\n     1           7110,8600,8900)\r\nC\r\n 9650 CALL WRITE (FILE,0,0,1)\r\n      ASSIGN 9670 TO R\r\n      GO TO 9400\r\n 9670 GO TO R1, (1216,1240,2050,2290,2600,3061,3088,3089,4550,5140,\r\n     1           5210,5260,6680,7030,8250,8950)\r\nC\r\nC     DIAGNOSTIC PROCESSING\r\nC\r\n 9900 CALL MESAGE (M,FILE,MNAM)\r\n 9902 M = -2\r\n      GO TO 9900\r\n 9904 WRITE  (NOUT,9954) SFM\r\n 9954 FORMAT (A25,' 1742, NO DATA PRESENT')\r\n      GO TO 9999\r\n 9906 WRITE  (NOUT,9956) UFM,KDN(1,IC),KDN(2,IC)\r\n 9956 FORMAT (A23,' 1744, DATA CARD(S) -',2A4,'- GENERATED BY UTILITY',\r\n     1       ' MODULE INPUT NOT ALLOWED TO APPEAR IN BULK DATA')\r\n      GO TO 9999\r\n 9907 WRITE  (NOUT,9957) UFM\r\n 9957 FORMAT (A23,' 1745, UTILITY MODULE CANNOT HANDLE THE IFLG=2 CASE',\r\n     1       ' SINCE THERE IS NO WAY TO GENERATE GRID POINT G0')\r\n      GO TO 9999\r\n 9908 M = -1\r\n      GO TO 9900\r\n 9909 WRITE  (NOUT,9959) UFM\r\n 9959 FORMAT (A23,' 1746, COORDINATE SYSTEM NOT DEFINED ON A CORD2C',\r\n     1       ' CARD')\r\nC\r\n 9999 M = -61\r\n      CALL PAGE2 (-2)\r\n      GO TO 9900\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/input4.f",
    "content": "      SUBROUTINE INPUT4 (NMAT,UNITX,TAPE,BCDOPT)\r\nC\r\nC     THIS SUBROUTINE IS CALLED ONLY BY INPTT4. IT READS USER-SUPPLIED\r\nC     TAPE (OR DISC FILE), AS GENERATED BY COSMIC or MSC/OUTPUT4 MODULE,\r\nC     AND CREATES THE CORRESPONDING MATRIX DATA BLOCKS.\r\nC\r\nC     INPUTT4 MODULE DOES NOT HANDLE TABLE DATA BLOCKS.\r\nC\r\nC     DUE TO INSUFFICEINT DOCUMENTATION IN MSC USER MANUAL, THIS INPUT4\r\nC     MAY NOT WORK WITH BCD/ASCII DATA AS GENERATED BY MSC/OUTPUT4\r\nC\r\nC     MATRICES CAN BE IN S.P. OR D.P.; DENSE OR SPARSE.\r\nC     NO MATRIX CONVERSION IN THIS ROUTINE\r\nC     i.e. TYPE OF MATRIX OUT = TYPE OF MATRIX IN\r\nC\r\nC     DEFINITION OF DENSE AND SPARSE MATRICES IN THIS SUBROUTINE -\r\nC     DENSE MATRIX IS PROCESSED FROM FIRST TO LAST NONZERO TERMS OF\r\nC     COLUMNS, AND SPARSE MATRIX IS PROCESSED BY STRINGS.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS            JUNE  1989\r\nC     LAST REVISION WITH MAJOR CHANGES    MARCH 1993\r\nC\r\nC     NMAT   = NUMBER OF MATRICES (5 MAX) WRITTEN ON USER'S TAPE\r\nC     UNITX  = INPUT TAPE LOGICAL UNIT*, INTEGER, NO DEFAULT\r\nC     TAPE   = TAPE READ CONTROL\r\nC            = 0  NO ADDITIONAL ACTION BEFORE READ\r\nC            =-1  REWIND UNITX  BEFORE READ\r\nC            =-2  REWIND UNITX  AT END\r\nC            =-3  BOTH\r\nC     BCDOPT = 1  INPUT TAPE IN BINARY FORMAT\r\nC            = 2  INPUT TAPE IN ASCII  FORMAT\r\nC                 IF INPUT MATRIX IS IN S.P., I13 IS USED FOR INTEGER,\r\nC                 AND 10E13.6 FOR S.P.REAL DATA\r\nC                 IF INPUT MATRIX IS IN D.P., I16 IS USED FOR INTEGER,\r\nC                 AND 8D16.9 FOR D.P.REAL DATA\r\nC            = 3  SAME AS BCDOPT=2, EXECPT THAT I16 AND 8E16.9 ARE USED\r\nC                 FOR INTEGERS AND S.P.REAL DATA. (BCDOPT=3 IS USED ONLY\r\nC                 IN MACHINES WITH LONG WORDS (60 OR MORE BITS PER WORD)\r\nC           NOTE- MATRIX HEADER RECORD IS NOT AFFECTED BY ABOVE FORMAT\r\nC                 CHANGES. IT IS WRITTEN OUT BY (1X,4I13,5X,2A4)\r\nC     P4     =-4,-2,-1,0,.GE.1, SEE P4 IN INPTT4\r\nC\r\nC     OUTFIL = UP TO 5 OUTPUT GINO DATA BLOCKS (MATRIX ONLY)\r\nC              IF ANY OF THE OUTPUT DB IS PURGED, THE CORRESPONDING\r\nC              MATRIX ON INPUT TAPE WILL BE SKIPPED.\r\nC\r\nC     * LOGICAL UNIT  vs.  GINO FILE NAME\r\nC              ------     ----------------------\r\nC                11        UT1  (CDC ONLY)\r\nC                12        UT2  (CDC ONLY\r\nC                14        INPT (VAX,UNIVAC)\r\nC                15        INP1 (VAX,UNIVAC,IBM)\r\nC                16        INP2      :\r\nC                17        INP3      :\r\nC                 :          :       :\r\nC                23        INP9      :\r\nC                24        INPT (IBM ONLY)\r\nC\r\nC\r\nC     EACH MATRIX WAS WRITTEN AS FOLLOWS (IN BINARY OR ASCII), 4 INTEGER\r\nC     WORDS + FILE NAME\r\nC                1) NO. OF COLUMNS\r\nC                2) NO. OF ROWS\r\nC                3) FORM (NASTRAN  1 TO 8)\r\nC                4) TYPE (NASTRAN  1 TO 4)\r\nC              5,6) FILE NAME (BCD)\r\nC\r\nC     A  RECORD WAS WRITTEN FOR EACH NON-ZERO COLUMN\r\nC        A) DENSE MATRIX:\r\nC                1) COLUMN NO.\r\nC                2) ROW POSITION OF FIRST NON-ZERO ELEMENT\r\nC                3) NO. OF WORDS IN THIS COLUMN, ZEROS INCLUDED, FROM\r\nC                   THE FIRST TO LAST NON-ZERO TERMS.\r\nC                4) DATA VALUES FOR THIS COLUMN (REAL)\r\nC        B) SPARSE MATRIX:\r\nC                1) COLUMN NO.\r\nC                2) ZERO (THIS ZERO IS THE SPARSE MATRIX FLAG)\r\nC                3) NO. OF WORDS IN THIS COLUMN\r\nC                4) DATA OF ONE OR MORE STRINGS.\r\nC\r\nC\r\nC     EXAMPLE 1 - INPUT TAPE INP1 (UNIT 15) CONTAINS 5 MATRICES,\r\nC     =========   WRITTEN BY COSMIC/OUTPUT4, BINARY.\r\nC                 WE WANT TO COPY\r\nC                 FILE 3 TO A,\r\nC                 FILE 4 TO B\r\nC\r\nC     INPUTT4  /,,A,B,/-1/15      $ REWIND, READ & ECHO HEADER RECORD\r\nC\r\nC\r\nC     EXAMPLE 2 - TO COPY THE FIRST 2 FILES OF A UNFORMATTED TAPE INP2\r\nC     =========   (UNIT 16), WRITTEN BY MSC/OUTPUT4, DENSE MATRIX\r\nC\r\nC     INPUTT4  /A,B,,,/-3/16//-4  $\r\nC\r\nC     EXAMPLE 3 - TO COPY THE FIRST 2 FILES OF A FORMATTED ASCII TAPE\r\nC     =========   INPT (UNIT 14), WRITTEN BY COSMIC/OUTPUT4, SPARSE\r\nC                 MATRIX\r\nC\r\nC     INPUTT4  /A,B,,,/-3/-14//1  $\r\nC\r\nC     EXAMPLE 4 - SEE DEMO PROBLEM T00001A TO INPUT VARIOUS DATA BLOCKS\r\nC     =========   (SQUARE, RECTANGULAR, ROW-VECTOR, 'COLUMN' VECOR,\r\nC                 DIAGONAL, IDENTITY, SYMMETRIC) INTO NASTRAN SYSTEM\r\nC                 USING MSC, ASCII FORMAT FILES.\r\nC\r\nC     A NOTE FOR FUTURE IMPROVEMENT, G.CHAN 4/93 -\r\nC     IF INPUT MATRIX IS SYMMETRIC, MAKE AN OPTION TO INPUT ONLY THE\r\nC     LOWER TRIANGULAR PORTION OF THE MATRIX, AND OBTAIN THE UPPER\r\nC     PROTION THRU SYMMETRY.\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\nCWKBR LOGICAL          BO,SP,CP,DP,MS,TAPEUP,TAPBIT,DEBUG\r\n      LOGICAL          BO,SP,CP,DP,MS,DEBUG\r\n      INTEGER          OUTFIL(5),TRL(7),NAME(2),SUBNAM(2),IZ(1),\r\n     1                 SKIP(2),INAME(2,5),ONAME(2,5),TYP(5),T(2,5),TY(4)\r\n      REAL             Z(1),DR(2),D,ZERO(4)\r\n      DOUBLE PRECISION DZ(1),DD\r\n      CHARACTER*11     FMD,UNF,FM\r\nCWKBI\r\n      CHARACTER*80     DSNAMES\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM\r\nCWKBI\r\n      COMMON / DSNAME / DSNAMES(80)\r\n      COMMON /MACHIN/  MACH\r\n     1       /PACKX /  TYPIN,TYPOUT,II,JJ,INCR\r\n     2       /SYSTEM/  SYSBUF,NOUT,NOGO,DUM36(36),NBPW\r\n     3       /TYPE  /  PREC(2),NWDS(4)\r\n     4       /ZZZZZZ/  CORE(1)\r\n      COMMON /BLANK /  P1,P2,P3(2),P4\r\n      EQUIVALENCE      (IZ(1),Z(1),DZ(1),CORE(1)), (DR(1),D,DD)\r\n      DATA    OUTFIL/  201,202,203,204,205 /, SKIP/4H(SKI,4HP)  /\r\n      DATA    INAME ,  ONAME ,TYP / 25*4H    /    ,SUBNAM/4HINPT,2HT4  /\r\n      DATA    TY    /  4HRSP ,4HRDP ,4HCSP ,4HCDP /, ZERO/4*0.0 /\r\n      DATA    FMD   ,  UNF / 'FORMATTED  ','UNFORMATTED' /BLNK / 4H    /\r\n      DATA    DEBUG /  .FALSE.    /\r\nCWKBI\r\n      DATA  IFIRST / 0 /\r\nC\r\n      SP    = .FALSE.\r\n      CP    = .FALSE.\r\n      DP    = .FALSE.\r\n      MS    = P4.EQ.-4\r\n      BO    = BCDOPT.NE.1\r\n      LCORE = KORSZ(Z(1))\r\n      BUF1  = LCORE - SYSBUF\r\n      LCOR  = BUF1  - 1\r\n      IF (LCOR .LE. 0) CALL MESAGE (-8,LCORE,SUBNAM)\r\n      IF (UNITX.LT.10 .OR. UNITX.GT.24) GO TO 30\r\n      IF (UNITX .EQ. 13) GO TO 30\r\n      IF (MACH.EQ.4 .AND. UNITX.GE.13) GO TO 30\r\n      IF (MACH.NE.4 .AND. UNITX.LE.13) GO TO 30\r\nC\r\n      FM = UNF\r\n      IF (BO) FM = FMD\r\nCWKBR WRITE  (NOUT,10) UIM,UNITX,INP(UNITX-10),FM\r\n      WRITE  (NOUT,10) UIM,UNITX,DSNAMES(UNITX),FM\r\nC    1,                BCDOPT,P1,P2,P3,P4\r\nCWKBR10 FORMAT (A29,'. INPUTT4 MODULE OPENING FORTRAN TAPE',I4,' (',A4,\r\n   10 FORMAT (A29,'. INPUTT4 MODULE OPENING FORTRAN TAPE',I4,/,' (',\r\n     1       A44,')',/,\r\n     1       ' FOR ',A11,' READ.')\r\nC    2,      /5X,'BCDOPT,P1,P2,P3,P4 =',3I3,1X,2A4,I4)\r\nC\r\nCWKBR IF (MACH .GE. 5) GO TO 50\r\nCWKBI\r\n      CLOSE ( UNIT=UNITX )\r\nCWKBR OPEN (UNIT=UNITX,ACCESS='SEQUENTIAL',STATUS='OLD',FORM=FM,ERR=920)\r\n      OPEN (UNIT=UNITX,ACCESS='SEQUENTIAL',STATUS='OLD',FORM=FM,ERR=920,\r\nCWKBI\r\n     &     FILE=DSNAMES(UNITX) )\r\n      GO TO 50\r\nCWKBD FILE   = INP(UNITX-10)\r\nCWKBD TAPEUP = TAPBIT(FILE)\r\nCWKBD IF (TAPEUP) GO TO 50\r\nCWKBD WRITE  (NOUT,20) UFM,FILE,UNITX\r\nCWKBD 20 FORMAT (A23,'. ',A4,' (TAPE UNIT',I4,') NOT ASSIGNED')\r\nCWKBD GO TO 990\r\nC\r\n   30 WRITE  (NOUT,40) UFM,UNITX\r\n   40 FORMAT (A23,', TAPE UNIT',I4,' SPEC. ERROR')\r\n      GO TO 990\r\nC\r\n   50 IF (TAPE.EQ.-1 .OR. TAPE.EQ.-3) REWIND UNITX\r\nCWKBI\t\r\n      IFIRST = 1\r\nC\r\nC     SET UP LOOP TO READ MATRIX FILES\r\nC\r\n      INCR  = 1\r\n      II    = 1\r\n      DO 800 NN = 1,NMAT\r\nC\r\nC     CHECK OUTPUT FILE REQUEST\r\nC\r\n      OUTPUT = OUTFIL(NN)\r\n      TRL(1) = OUTPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) GO TO 200\r\nC\r\nC     IF OUTPUT FILE IS PURGED, PURGE THE CORRESPONDING FILE ON INPUT\r\nC     TAPE. CHECK IF THERE ARE MORE OUTPUT DATA BLOCK REQUESTED ON THE\r\nC     SAME OUTPUT2 DMAP. QUIT IF THERE ARE NONE\r\nC\r\n      I = NN\r\n  100 I = I + 1\r\n      IF (I .GT. 5) GO TO 810\r\n      TRL(1) = OUTFIL(I)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 100\r\nC\r\nC     SKIP PRESENT MATRIX DATA BLOCK ON INPUT TAPE\r\nC\r\n      IMHERE = 120\r\n      IF (BO) GO TO 120\r\nC\r\nC     SKIP BINARY FILES\r\nC\r\n      IMHERE = 105\r\n      READ (UNITX,ERR=960,END=940) NCOL,J1,J2,NTYPE,NAME\r\n      IMHERE = -110\r\n  110 READ (UNITX,ERR=780,END=940) ICOL\r\n      IF (ICOL-NCOL) 110,110,170\r\nC\r\nC     SKIP ASCII FILES\r\nC\r\n  120 IF (.NOT.MS) READ (UNITX,220,ERR=960,END=940) NCOL,J1,J2,NTYPE,\r\n     1             NAME\r\n      IF (MS) READ (UNITX,230,ERR=960,END=940) NCOL,J1,J2,NTYPE,NAME\r\n      IF (MS) GO TO 130\r\n      DP = NTYPE.EQ.2 .OR. NTYPE.EQ.4\r\n      SP = .NOT.DP\r\n      CP = P4.GE.1 .AND. NBPW.GE.60\r\n      IF (.NOT.CP) GO TO 130\r\n      SP = .FALSE.\r\n      DP = .FALSE.\r\n  130 IF (MS) READ (UNITX,440) ICOL,IROW,NW\r\n      IF (SP) READ (UNITX,450) ICOL,IROW,NW\r\n      IF (CP .OR. DP) READ (UNITX,460) ICOL,IROW,NW\r\n      IF (ICOL .GT. NCOL) GO TO 160\r\n      IF (IROW .EQ. 0) NW = NW/65536\r\nC\r\nC     COMPUTE NO. OF RECORDS TO SKIP.\r\nC\r\nC     S.P. DATA ARE WRITTEN IN 10 VALUES PER RECORD (5 FOR MSC RECORD)\r\nC     D.P. DATA, AND DATA FROM LONG WORD MACHINE, ARE IN 8 VALUES PER\r\nC     RECORD (SEE FORMAT 650, 660, 670 AND 680)\r\nC\r\n      IF (MS) NW = (NW+4)/5\r\n      IF (SP) NW = (NW+9)/10\r\n      IF (CP .OR. DP) NW = (NW+7)/8\r\n      DO 150 J = 1,NW\r\n      READ (UNITX,140) K\r\n  140 FORMAT (A1)\r\n  150 CONTINUE\r\n      GO TO 130\r\nC\r\n  160 READ (UNITX,140) J\r\nC\r\n  170 INAME(1,NN) = NAME(1)\r\n      INAME(2,NN) = NAME(2)\r\n      ONAME(1,NN) = SKIP(1)\r\n      ONAME(2,NN) = SKIP(2)\r\n      TYP(NN) = TY(NTYPE)\r\n      T(1,NN) = J1\r\n      T(2,NN) = J2\r\n      GO TO 800\r\nC\r\nC     TRANSFER DATA FROM INPUT TAPE TO OUTPUT FILE\r\nC\r\n  200 IMHERE = 210\r\n      IF (BO) GO TO 210\r\n      IMHERE = 200\r\n      READ (UNITX,ERR=960,END=940) NCOL,NROW,NFORM,NTYPE,NAME\r\n      GO TO 240\r\n  210 IF (.NOT.MS) READ (UNITX,220,ERR=960,END=940) NCOL,NROW,NFORM,\r\n     1             NTYPE,NAME\r\n      IF (MS) READ (UNITX,230,ERR=960,END=940) NCOL,NROW,NFORM,NTYPE,\r\n     1             NAME\r\n  220 FORMAT (1X,4I13,5X,2A4)\r\n  230 FORMAT (4I8,2A4)\r\nC\r\n  240 IF (DEBUG) WRITE (NOUT,220) NCOL,NROW,NFORM,NTYPE,NAME\r\n      IF (.NOT.DEBUG) WRITE (NOUT,245) NN,NAME\r\n  245 FORMAT (5X,'READING DATA BLOCK NO.',I4,' - ',2A4,\r\n     1       ' FROM INPUT TAPE')\r\nC\r\n      IF (MS) NFORM = -NFORM\r\n      IF (BO .AND. NFORM.GT.0) GO TO 900\r\nC\r\nC     THE ABOVE CHECK ON NFORM AND BO MAY BE ALREADY TOO LATE\r\nC\r\n      IF (MS) GO TO 250\r\n      DP = .FALSE.\r\n      IF (NTYPE.EQ.2 .OR. NTYPE.EQ.4) DP = .TRUE.\r\n      SP = .NOT.DP\r\n      CP = P4.GE.1 .AND. NBPW.GE.60\r\n      IF (CP) SP = .FALSE.\r\n      IF (CP) DP = .FALSE.\r\n  250 FLAG = 0\r\n      IF (MS) FLAG = 1\r\n      IF (SP) FLAG = 2\r\n      IF (CP) FLAG = 3\r\n      IF (DP) FLAG = 4\r\n      IF (FLAG .EQ. 0) CALL MESAGE (-37,0,SUBNAM)\r\n      NFORM  = IABS(NFORM)\r\n      JJ     = NROW\r\n      TYPIN  = NTYPE\r\n      IF (MS .AND. (TYPIN.EQ.2 .OR. TYPIN.EQ.4)) TYPIN = TYPIN - 1\r\n      TYPOUT = NTYPE\r\n      NWORDS = NWDS(TYPIN)\r\n      BASE   = NROW*NWORDS\r\n      IF (BASE .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM)\r\n      CALL MAKMCB (TRL(1),OUTPUT,NROW,NFORM,TYPOUT)\r\n      INAME(1,NN) = NAME(1)\r\n      INAME(2,NN) = NAME(2)\r\n      CALL FNAME (OUTPUT,NAME)\r\n      CALL OPEN  (*260,OUTPUT,IZ(BUF1),1)\r\n      CALL WRITE (OUTPUT,NAME,2,1)\r\n      ONAME(1,NN) = NAME(1)\r\n      ONAME(2,NN) = NAME(2)\r\n      TYP(NN) = TY(NTYPE)\r\n      T(1,NN) = NCOL\r\n      T(2,NN) = NROW\r\n      GO TO 280\r\nC\r\n  260 WRITE  (NOUT,270) UFM,DSNAMES(UNITX)\r\n  270 FORMAT (A23,'. CANNOT OPEN OUTPUT FILE - ',/,A80)\r\n      GO TO 990\r\nC\r\nC     PROCESS EACH COLUMN (NON-ZERO OR NULL COLUMN ON FILE)\r\nC     PLUS ONE EXTRA COLUMN, NCOL+1, AT THE END\r\nC\r\n  280 IOLD = -1\r\n      II = 1\r\n      JJ = NROW\r\n      NCOL1 = NCOL + 1\r\n      I  = 0\r\nC\r\n  290 I  = I + 1\r\n      IF (DEBUG) WRITE (NOUT,300) I,NCOL1\r\n  300 FORMAT ('   INPUT4/@290   I,NCOL1 =',2I5)\r\n      IF (I .GT. NCOL1) GO TO 760\r\n      DO 310 J = 1,BASE\r\n  310 Z(J) = 0.0\r\n      IMHERE = -400\r\n      IF (BO) GO TO 400\r\nC\r\nC     BINARY (UNFORMATTED) READ\r\nC     -------------------------\r\nC\r\n      IMHERE = -315\r\n      READ (UNITX,ERR=780,END=940) ICOL,IROW,NW,(Z(K+BASE),K=1,NW)\r\nC\r\n      IF (ICOL .GT. NCOL) GO TO 760\r\n      IF (NW+BASE .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM)\r\n  320 IF (I .GE. ICOL) GO TO 330\r\nC\r\nC     NULL COLUMN(S) ENCOUNTERED\r\nC\r\n      JJ = 1\r\n      CALL PACK (Z(1),OUTPUT,TRL)\r\n      JJ = NROW\r\n      I  = I + 1\r\n      GO TO 320\r\nC\r\n  330 IF (IROW .EQ. 0) GO TO 360\r\nC\r\nC     DENSE MATRIX FORMAT\r\nC\r\nC     DATA WERE WRITTEN FROM FIRST NON-ZERO TERM TO LAST NON-ZERO TERM\r\nC     INCLUDING POSSIBLE ZERO TERMS.\r\nC     IROW IS THE FIRST NON-ZERO TERM ROW POSITION\r\nC\r\nC     S.P. OR D.P. MATRIX IN, S.P. OR. D.P. MATRIX OUT. THAT INCLUDE\r\nC     REAL AND COMPLEX.\r\nC\r\n      IROWP = (IROW-1)*NWORDS\r\n      DO 340 J = 1,NW\r\n  340 Z(J+IROWP) = Z(J+BASE)\r\nC\r\nC     PACK ONE COLUMN OUT\r\nC\r\n  350 CALL PACK (Z(1),OUTPUT,TRL)\r\n      GO TO 290\r\nC\r\nC     SPARSE INCOMING MATRIX.\r\nC     THIS RECORD CONATINS ONE OR MORE STRINGS.\r\nC\r\nC     DATA ARE WRITTEN IN MULTIPLE STRINGS OF NON-ZERO TERMS. EACH\r\nC     STRING IS PRECEED BY A CONTROL WORD\r\nC       LN   = LENGTH OF STRING, LEFT HALF OF WORD\r\nC       IROW = ROW POSITION,    RIGHT HALF OF WORD\r\nC       LN AND IROW ARE DATA TYPE DEPENDENT\r\nC     AND\r\nC       K    = A RUNNING POINTER, POINTS TO THE CONTROL WORD OF EACH\r\nC              STRING IN ARRAY Z HOLDING LN AND IROW INFORMATION\r\nC\r\n  360 K    = 1\r\n  370 KPB  = K + BASE\r\n      LN   = IZ(KPB)/65536\r\n      IROW = IZ(KPB) - LN*65536\r\n      IROW = (IROW-1)*NWORDS\r\n      LN   = LN*NWORDS\r\nC\r\nC     S.P. OR D.P. MATRIX IN, S.P. OR. D.P. MATRIX OUT. THAT INCLUDE\r\nC     REAL AND COMPLEX\r\nC\r\n      DO 380 J = 1,LN\r\n  380 Z(J+IROW) = Z(J+KPB)\r\n      K  = K + LN + 1\r\n      IF (K-NW) 370,350,350\r\nC\r\nC     ASCII (FORMATTED) READ\r\nC     ----------------------\r\nC\r\nC     THIS ASCII OPTION WORKS WELL WITH INPUT TAPE GENERATED FROM\r\nC     COSMIC/OUTPUT4 MODULE. HOWEVER IT MAY OR MAY NOT WORK WITH INPUT\r\nC     TAPE FROM MSC/OUTPUT4.\r\nC\r\nC     ASSUMPTIONS HERE FOR MSC/OUTPUT4 TAPE ARE -\r\nC     1. INTEGER RECORDS AND FLOATING POINT RECORDS DO NOT MIXED\r\nC     2. ONE OR MORE RECORDS HOLD A MATRIX COLUMN, EACH RECORD IS LESS\r\nC        THAN 80 BYTES LONG.\r\nC        INTEGER IN 3I8, BCD IN 2A4, AND S.P. REAL DATA IN 5E16.9\r\nC\r\n  400 GO TO (410,420,430,430), FLAG\r\n  410 READ (UNITX,440,ERR=780,END=940) ICOL,IROW,NW\r\n      IF (DEBUG) WRITE (NOUT,450) ICOL,IROW,NW\r\n      GO TO 470\r\n  420 READ (UNITX,450,ERR=780,END=940) ICOL,IROW,NW\r\n      GO TO 470\r\n  430 READ (UNITX,460,ERR=780,END=940) ICOL,IROW,NW\r\n  440 FORMAT (3I8)\r\n  450 FORMAT (1X,3I13)\r\n  460 FORMAT (1X,3I16)\r\nC\r\nC     ICOL IS MATRIX COLUMN NUMBER READ IN FROM THE INPUT TAPE.\r\nC          REPEATED ICOL FOR MULTIPLE STRINGS.\r\nC     IROW IS .LT. 0, AND IABS(IROW) IS THE ROW POSITION OF STRING.\r\nC     NW   IS LENGTH OF STRING.\r\nC     I    IS THE CURRENT COLUMN NUMBER OF THE OUTPUT MATRIX.\r\nC\r\nC     POSSIBILITIES AT THIS POINT ARE -\r\nC\r\nC     1. ICOL = IOLD, ADD NEW STRING TO CURRENT COLUMN OF OUTPUT MATRIX.\r\nC     2. ICOL = IOLD+1, PREVIOUS COLUMN JUST FINISHED, PACK IT OUT.\r\nC     3. ICOL.GT.NCOL, OUTPUT MATRIX FINISH. ALL COLUMNS HAVE BEEN READ.\r\nC               READ ONE MORE DUMMY RECORD BEFORE WRAP UP THIS MATRIX\r\nC     4. IN ALL CASES, ZERO OUT Z ARRAY FOR NEW DATA, AND INCREASE\r\nC        COLUMN COUNTER I BY 1\r\nC     5. ICOL .LT. I, LOGIC ERROR\r\nC     6. ICOL .GT. I, PACK NULL COLUMN(S) OUT.\r\nC     7. ICOL .EQ. I, CURRENT INPUT RECORD IS FOR THE I-TH COLUMN.\r\nC\r\n  470 IF (NW*NWORDS .GT. LCOR) CALL MESAGE (-8,LCORE,SUBNAM)\r\n      IF (ICOL .EQ. IOLD  ) GO TO 710\r\n      IF (ICOL .EQ. IOLD+1) CALL PACK (Z(1),OUTPUT,TRL)\r\n      IMHERE = -550\r\n      IF (ICOL .GT. NCOL) GO TO 550\r\n      DO 480 J = 1,BASE\r\n  480 Z(J) = 0.0\r\nC 490 I = I + 1\r\n  490 IF (ICOL - I) 510,600,500\r\n  500 CALL PACK (Z(1),OUTPUT,TRL)\r\n      I = I + 1\r\n      GO TO 490\r\n  510 WRITE  (NOUT,520) SFM,I,ICOL, IOLD,NCOL,IROW,NW, SP,CP,DP,MS,FLAG\r\n  520 FORMAT (A25,'. LOGIC ERROR @470, I,ICOL =',2I6, /5X,\r\n     1       '  IOLD,NCOL,IROW,NW =',4I6,'  SP,CP,DP,MS,FLAG =',4L2,I4)\r\n      CALL MESAGE (-37,0,SUBNAM)\r\nC\r\n  550 READ (UNITX,140,ERR=780,END=940) J\r\n      GO TO 760\r\nC\r\n  600 IF (IROW .LE. 0) GO TO 700\r\nC\r\nC     DENSE MATRIX FORMAT\r\nC\r\n      IROW = IROW - 1\r\n      IMHERE = 605\r\n      GO TO (610,620,630,640), FLAG\r\n  610 READ (UNITX,650,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      IF (DEBUG) WRITE (NOUT,660) (Z(K+IROW),K=1,NW)\r\n      GO TO 350\r\n  620 READ (UNITX,660,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      GO TO 350\r\n  630 READ (UNITX,670,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      GO TO 350\r\n  640 READ (UNITX,680,ERR=780,END=940) (DZ(K+IROW),K=1,NW)\r\n      GO TO 350\r\n  650 FORMAT (    5E16.9)\r\n  660 FORMAT (1X,10E13.6)\r\n  670 FORMAT (1X, 8E16.9)\r\n  680 FORMAT (1X, 8D16.9)\r\nC\r\nC     SPARSE INCOMING MATRIX\r\nC\r\nC     OUTPUT4 WRITES OUT THE ASCII STRING DATA IN FOLLOWING FORMATS -\r\nC     EACH STRING, PRECEEDED BY A 3-INTEGER - ICOL,IROW,NW - CONTROL\r\nC     RECORD, AND CONTINUE INTO ONE OR MORE DATA RECORDS OF 130 OR\r\nC     128 BYTES EACH. (80 BYTES MSC RECORD)\r\nC     NW   = LENGTH OF STRING IN THE FOLLOWING DATA RECORDS, S.P. OR\r\nC            D.P. DEPENDENT.\r\nC     IROW = IABS(IROW) IS ROW POSITION IF FIRST WORD OF STRING\r\nC     ICOL = COLUMN NUMBER OF MATRIX\r\nC\r\nC     NOTICE THAT OUTPUT4 MAY WRITE OUT A MATRIX COLUMN IN MULTI-STRING\r\nC     RECORDS, WITH THE SAME COLUMN VALUE ICOL IN THE EACH 3-INTEGER\r\nC     CONTROL RECORD. IN THIS CASE, MROW IS ALWAYS NEGATIVE.\r\nC     (IF IROW IS ZERO, MATRIX WAS WRITTEN OUT IN DENSE FORMAT)\r\nC\r\n  700 IOLD = ICOL\r\n  710 IROW = IABS(IROW) - 1\r\n      IF (TYPIN .GE. 3) IROW = IROW*2\r\n      IMHERE = 715\r\n      GO TO (720,730,740,750), FLAG\r\n  720 READ (UNITX,650,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      GO TO 400\r\n  730 READ (UNITX,660,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      GO TO 400\r\n  740 READ (UNITX,670,ERR=780,END=940) ( Z(K+IROW),K=1,NW)\r\n      GO TO 400\r\n  750 READ (UNITX,680,ERR=780,END=940) (DZ(K+IROW),K=1,NW)\r\n      GO TO 400\r\nC\r\n  760 CALL CLOSE  (OUTPUT,1)\r\n      CALL WRTTRL (TRL)\r\n      IF (DEBUG) WRITE (NOUT,770) UIM,NAME,DSNAMES(UNITX),TRL\r\n  770 FORMAT (A29,' FROM INPUTT4 MODULE. ',2A4,' WAS RECOVERED FROM ',\r\n     1 /, A44,' INPUT TAPE SUCCESSFULLY.', /5X,'TRAIL =',6I6,I9)\r\n      GO TO 800\r\nC\r\nC     BAD DATA ON INPUT TAPE\r\nC\r\n  780 WRITE  (NOUT,790) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE\r\n  790 FORMAT (A23,'. BAD DATA ENCOUNTERED WHILE READING INPUT TAPE ',/,A80\r\n     1,/,     ' FORTRAN UNIT',I4,',  DATA BLOCK',I4, /5X,'IMHERE =',I5)\r\n      NOGO = 1\r\nC\r\n  800 CONTINUE\r\nC\r\n  810 IF (TAPE .LE. -2) REWIND UNITX\r\n      CALL PAGE2 (-8)\r\nCWKBR WRITE  (NOUT,820) UIM,FM,INP(UNITX-10)\r\n      WRITE  (NOUT,820) UIM,FM,DSNAMES(UNITX)\r\n  820 FORMAT (A29,' FROM INPUTT4 MODULE. THE FOLLOWING FILES WERE ',\r\n     1       'SUCCESSFULLY RECOVERED FROM USER ',/5X,A11,' INPUT TAPE ',\r\nCWKBR2       /A80/,' TO NASTRAN GINO FILES')\r\n     2       /,A44,' TO NASTRAN GINO FILES')\r\n      DO 840 J = 1,5\r\n      IF (INAME(1,J) .NE. BLNK) WRITE (NOUT,830) INAME(1,J),INAME(2,J),\r\n     1       ONAME(1,J),ONAME(2,J),TYP(J),T(1,J),T(2,J)\r\n  830 FORMAT (5X,2A4,' ==COPIED TO== ',2A4,4X,'MATRIX TYPE = ',A4,\r\n     1       ',  SIZE (',I6,2H X,I6,1H))\r\n  840 CONTINUE\r\n      GO TO 1000\r\nC\r\nC     ERRORS\r\nC\r\n  900 WRITE  (NOUT,910) UFM,DSNAMES(UNITX),BO,NCOL,NROW,NFORM,NTYPE,\r\n     1        NAME,BCDOPT\r\n  910 FORMAT (A23,'. PARAMETER P3 ERROR. FORTRAN INPUT TAPE ',A4,' WAS',\r\n     1       ' WRITTEN IN BINARY RECORDS, NOT ASCII.', /5X,'BO =',L2,2X,\r\n     2       'NCOL,NROW,NFORM,NTYPE,NAME =',4I8,1X,2A4,'   BCDOPT =',I3)\r\n      GO TO  990\r\n  920 WRITE  (NOUT,930) UFM,UNITX\r\n  930 FORMAT (A23,'. INPUTT4 MODULE CANNOT OPEN FORTRAN INPUT TAPE',I4)\r\n      GO TO  990\r\n  940 WRITE  (NOUT,950) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE\r\n  950 FORMAT (A23,' 3001, EOF ENCOUNTERED WHILE READING INPUT TAPE ',/,A80\r\n     1,/,    ' FORTRAN UNIT',I4,',  DATA BLOCK',I4, /5X,'IMHERE =',I4)\r\n      IF (IMHERE.EQ.210 .OR. IMHERE.EQ.220) WRITE (NOUT,975)\r\n      GO TO 990\r\n  960 WRITE  (NOUT,970) UFM,DSNAMES(UNITX),UNITX,NN,IMHERE\r\n  970 FORMAT (A23,'. BAD DATA IN HEADER RECORD ON INPUT TAPE ',\r\n     1/,A80,/\r\n     2, ' FORTRAN UNIT',I4,',  DATA BLOCK',I4, /5X,'IMHERE =',I5)\r\n      IF (IMHERE.EQ.105 .OR. IMHERE.EQ.120) WRITE (NOUT,975)\r\n  975 FORMAT (1H+,22X,'POSSIBLY TAPE UNIT NOT CORRECTLY ASSIGNED')\r\n      IF (IMHERE .LT. 0) WRITE (NOUT,980)\r\n  980 FORMAT (1H+,22X,'POSSIBLY ERROR IN CONTRL RECORD 3 WORDS')\r\nC\r\n  990 NOGO = 1\r\nC\r\nCWKBR 1000 CLOSE (UNIT=UNITX)\r\n 1000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/insert.f",
    "content": "      SUBROUTINE INSERT(NCOL,NROW,NDOF,NGRID,JCORE,Z,DZ,TEMP,DTEMP,IPR)\r\nC\r\nC INSERT INSERTS MATRIX PARTITONS INTO OPEN CORE FOR IS2D8\r\nC\r\n      DIMENSION Z(1),TEMP(9)\r\n      DOUBLE PRECISION DZ(1),DTEMP(9)\r\nC\r\n      IS1=NGRID*NDOF**2\r\nC\r\nC COMPUTE STARTING POINTS INTO OPEN CORE FOR THIS PARTITION AND ITS TRAN\r\nC\r\n      IZ1=IS1*(NROW-1)+NDOF*(NCOL-1)+JCORE-1\r\n      IZ2=IS1*(NCOL-1)+NDOF*(NROW-1)+JCORE-1\r\nC\r\nC IZ1 GETS TEMP,  IZ2 GETS THE TRANSPOSE\r\nC\r\n      I1=IZ1\r\n      I2=IZ2\r\nC\r\n      IF (IPR.EQ.2) GO TO 20\r\nC\r\n      IF(NDOF.EQ.1)GO TO 10\r\nC\r\nC 3 X 3 PARTITION\r\nC I1 GETS TEMP. I2 GETS THE TRANSPOSE\r\nC IF I1=I2, THEN HALF OF THE ENTRIES WILL BE DUPLICATED\r\nC THAT-S OK SINCE THERE ARE NO ADDITIONS\r\nC\r\n      Z(I1+1)=TEMP(1)\r\n      Z(I2+1)=TEMP(1)\r\n      Z(I1+2)=TEMP(2)\r\n      Z(I2+25)=TEMP(2)\r\n      Z(I1+3)=TEMP(3)\r\n      Z(I2+49)=TEMP(3)\r\n      Z(I1+25)=TEMP(4)\r\n      Z(I2+2)=TEMP(4)\r\n      Z(I1+26)=TEMP(5)\r\n      Z(I2+26)=TEMP(5)\r\n      Z(I1+27)=TEMP(6)\r\n      Z(I2+50)=TEMP(6)\r\n      Z(I1+49)=TEMP(7)\r\n      Z(I2+3)=TEMP(7)\r\n      Z(I1+50)=TEMP(8)\r\n      Z(I2+27)=TEMP(8)\r\n      Z(I1+51)=TEMP(9)\r\n      Z(I2+51)=TEMP(9)\r\n      GO TO 100\r\nC\r\nC 1 X 1 PARTITION\r\nC\r\n   10 Z(I1+1)=TEMP(1)\r\n      Z(I2+1)=TEMP(1)\r\n      GO TO 100\r\nC\r\nC\r\nC DO THE SAME IN DOUBLE PRECISION\r\nC\r\n   20 IF (NDOF.EQ.1) GO TO 30\r\nC\r\n      DZ(I1+ 1)=DTEMP(1)\r\n      DZ(I2+ 1)=DTEMP(1)\r\n      DZ(I1+ 2)=DTEMP(2)\r\n      DZ(I2+25)=DTEMP(2)\r\n      DZ(I1+ 3)=DTEMP(3)\r\n      DZ(I2+49)=DTEMP(3)\r\n      DZ(I1+25)=DTEMP(4)\r\n      DZ(I2+ 2)=DTEMP(4)\r\n      DZ(I1+26)=DTEMP(5)\r\n      DZ(I2+26)=DTEMP(5)\r\n      DZ(I1+27)=DTEMP(6)\r\n      DZ(I2+50)=DTEMP(6)\r\n      DZ(I1+49)=DTEMP(7)\r\n      DZ(I2+ 3)=DTEMP(7)\r\n      DZ(I1+50)=DTEMP(8)\r\n      DZ(I2+27)=DTEMP(8)\r\n      DZ(I1+51)=DTEMP(9)\r\n      DZ(I2+51)=DTEMP(9)\r\n      GO TO 100\r\nC\r\n   30 DZ(I1+1)=DTEMP(1)\r\n      DZ(I2+1)=DTEMP(1)\r\nC\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/int2a8.f",
    "content": "      SUBROUTINE INT 2 A8 (*,X,A8)\r\nC\r\n      INTEGER         JX,       POWER,    A8(2)\r\n      REAL            RX,       X(1)\r\n      CHARACTER*1     A(10),    IP,       IM,       IB,       PT,\r\n     1                ALP(10)\r\n      CHARACTER*8     K8(1),    TEMP,     ZERO,     ZEROX\r\n      CHARACTER*10    ALP10,    TEMP10\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ DUMMY(38),NBPC,     NBPW,     NCPW\r\n      EQUIVALENCE     (TEMP,TEMP10,A(1)), (JX,RX),  (ALP10,ALP(1))\r\n      DATA IP,  IM,  IB,  PT,  TEMP, ZERO, ZEROX, NN, LL, ALP10        /\r\n     1     '+', '-', ' ', '.', 'T',  '0',  '0.0', 0,  0,  '1234567890' /\r\nC\r\nC     THESE ROUTINES ENCODE AN INTEGER OR F.P. NUMBER IN X, TO AN 8-BYTE\r\nC     BCD WORD IN A8, OR AN 8-CHARACTER WORD IN K8, LEFT ADJUSTED.\r\nC     WITH MAXIMUM NUMBERS OF DIGITS SQUEEZED INTO THE 8-BYTE FORMAT.\r\nC\r\nC     ENTRY POINT    INT 2 A8  (INTEGER-BCD VERSION)\r\nC                    INT 2 K8  (INTEGER-CHARACTER VERSION)\r\nC                    FP  2 A8  (REAL-BCD VERSION)\r\nC                    FP  2 K8  (REAL-CHARACTER VERSION)\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS IN AUG. 1985\r\nC     PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD\r\nC     INPUT FORMAT.\r\nC     THIS ROUTINE IS MACHINE INDEPENDENT\r\nC\r\n      NT = +1\r\n      GO TO 100\r\nC\r\n      ENTRY INT2K8 (*,X,K8)\r\nC     =====================\r\nC\r\n      NT = -1\r\n      GO TO 100\r\nC\r\n      ENTRY FP2A8 (*,X,A8)\r\nC     ====================\r\nC\r\n      NT = +2\r\n      GO TO 100\r\nC\r\n      ENTRY FP 2 K8 (*,X,K8)\r\nC     ======================\r\nC\r\n      NT = -2\r\nC\r\n 100  INT = IABS(NT)\r\n      DO 110 J = 1,8\r\n 110  A(J) = IP\r\n      A( 9) = IB\r\n      A(10) = IB\r\n      IF (INT .NE. 1) GO TO 200\r\nC\r\nC     INTEGER\r\nC\r\n      LU = 8\r\n      N  = 0\r\n      RX = X(1)\r\n      IX = IABS(JX)\r\n      XLL = FLOAT(IX) + .01\r\n      ABSX = ABS(XLL)\r\n      NN = 0\r\n      IF (JX.GE.0 .AND. IX.LT.10**8) GO TO 140\r\n      IF (JX.LT.0 .AND. IX.LT.10**7) GO TO 140\r\n      RETURN 1\r\n 140  IF (JX) 210,150,220\r\nC\r\n 150  TEMP = ZERO\r\n      GO TO 310\r\n 160  TEMP = ZEROX\r\n      GO TO 310\r\nC\r\nC     F.P. NUMBER\r\nC\r\n 200  ABSX = ABS(X(1))\r\n      IF (ABSX .LT. 1.E-20) GO TO 160\r\n      ABSX = ABSX*(1.0+1.E-20)\r\n      LU = 7\r\n      LL =-3\r\n      N  = 0\r\n      IF (X(1) .GT. 0.) GO TO 220\r\n      LU = LU - 1\r\n      LL = LL + 1\r\n 210  N  = 1\r\n      A(1) = IM\r\n 220  N1 = N\r\n      IF (INT .EQ. 1) GO TO 240\r\n      XLL = ALOG10(ABSX)\r\n      IF (XLL .LT. 0.) XLL = XLL - .99998\r\n      IF (XLL .GT. 0.) XLL = XLL + .00002\r\n      POWER = IFIX(XLL)\r\n      NP1 = POWER + 1\r\n      IP1 = IABS(NP1)\r\n      XLU = 10.**LU\r\n      XLL = 10.**LL\r\n      IF (ABSX.LT.XLL .OR. ABSX.GT.XLU) GO TO 400\r\nC\r\nC     F.P. NUMBER IS SQUEEZED INTO AN EIGHT DIGIT F FORMAT, IF\r\nC     X IS BETWWEN 10**-3 AND 10**7 AND X IS POSITUVE, OR\r\nC          BETWWEN 10**-2 AND 10**6 AND X IS NEGATIVE,\r\nC\r\n 230  IF (IP1 .GE. 10) LU = LU - 1\r\n      IF (NP1 .EQ. -1) LU = LU + 1\r\n      NN = LU - NP1\r\n      IF (INT.EQ.2 .AND. NN.GT.7) NN = 7\r\n      IX = IFIX(ABSX*10.**NN)\r\n 240  LU = LU - 1\r\n      IF (LU.LT.0 .AND. INT.EQ.3) GO TO 420\r\n      IF (LU.LT.0 .AND.   N.EQ.7) GO TO 260\r\n      POWER = 10**LU\r\n      IF (POWER .EQ. 0) POWER = 1\r\n      J  = IX/POWER\r\n      IF (J .GE. 10) GO TO 240\r\n      IX = MOD(IX,POWER)\r\n      IF (LU-NN+1) 280,250,270\r\n 250  IF (INT .EQ. 3) GO TO 420\r\n 260  N  = N + 1\r\n      A(N) = PT\r\n      IF (N .GE. 8) GO TO 290\r\n 270  IF (J.EQ.0 .AND. N.LE.N1) GO TO (240,280,280), INT\r\n 280  IF (J .EQ. 0) J = 10\r\n      N  = N + 1\r\n      A(N) = ALP(J)\r\n      IF (LU.EQ.0 .AND. INT.EQ.1) GO TO 350\r\n      IF (N .LT. 8) GO TO 240\r\n 290  DO 300 J = 1,8\r\n      IF (A(N) .EQ. PT) GO TO 310\r\n      IF (A(N) .NE. ALP(10)) GO TO 310\r\n      A(N) = IB\r\n 300  N  = N - 1\r\nC\r\n 310  IF (NT) 320,440,330\r\n 320  K8(1) = TEMP\r\n      GO TO 440\r\n 330  IF (MACH .NE. 4) CALL KHRBC2 (TEMP,A8(1))\r\nCWKBD IF (MACH .EQ. 4) A8(1) = ISWAP(TEMP10)\r\nC     IF (NCPW .GE. 8) A8(2) = LSHIFT(A8(1),4*NBPC)\r\n      GO TO 440\r\nC\r\n 350  N = N + 1\r\n      IF (N .GT. 8) GO TO 310\r\n      DO 360 J = N,8\r\n 360  A(J) = IB\r\n      GO TO 310\r\nC\r\nC     F.P. NUMBER IN .XXXXX+X, .XXXX-XX, -.XXXX-X, OR -.XXX+XX FORMS\r\nC     FOR MAXIMUM NOS. OF DIGITS POSSIBLE IN AN A8 WROD.\r\nC\r\n 400  INT = 3\r\n      N   = N + 1\r\n      A(N)= PT\r\n      LU  = LU - 2\r\n      GO TO 230\r\nC\r\n 420  N = N + 1\r\n      IF (NP1 .GE. 0) A(N) = IP\r\n      IF (NP1 .LT. 0) A(N) = IM\r\n      IF (IP1 .GE. 10) GO TO 430\r\n      A(N+1) = ALP(IP1)\r\n      GO TO 310\r\n 430  J = IP1/10\r\n      A(N+1) = ALP(J)\r\n      J = MOD(IP1,10)\r\n      IF (J .EQ. 0) J = 10\r\n      A(N+2) = ALP(J)\r\n      GO TO 310\r\nC\r\n 440  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/int2al.f",
    "content": "      SUBROUTINE INT2AL (INT,ALF,CH)\r\nC     ----------\r\nC     THIS ROUTINE CONVERTS AN INTEGER TO ALPHA-NUMERIC WORD. THE\r\nC     NUMBER IS LEFT JUSTIFIED WITH NO BLANKS.\r\nC\r\nC     INPUT/OUTPUT\r\nC\r\nC     INT - INTEGER - INPUT - NOT CHANGED\r\nC     ALF - BCD 2 WORDS - OUTPUT - 2A4 MAY BE USED FOR PRINTING\r\nC     CH  - BCD 9 WORDS - OUTPUT - CH(1) .EQ. NUMBER OF CHARACTERS\r\nC           NEEDED TO CREATE INT. MAY BE PRINTED BY CH(I), I=2,CH(1)\r\nC           IN A1 FORMAT.\r\nC\r\nC     NOTE - ANY INPUT NUMBER OUTSIDE THE RANGE OF -9999999 AND +9999999\r\nC            (I.E. MORE THAN 8 DIGITS) IS SET TO ZERO IN OUTPUT.\r\nC     ----------\r\nC\r\n      INTEGER     INT,    ALF(2),  CH(9),  ZERO,   BLANK\r\n      CHARACTER*8 K8\r\n      DATA        BLANK,  ZERO /   1H ,    1H0 /\r\nC\r\n      IF (INT.LT.-9999999 .OR. INT.GT.+99999999) GO TO 50\r\n      CALL INT2K8 (*50,INT,K8)\r\n      READ (K8,10) ALF\r\n      READ (K8,20) (CH(J),J=2,9)\r\n 10   FORMAT (2A4)\r\n 20   FORMAT (8A1)\r\n      DO 30 J=2,9\r\n      IF (CH(J) .EQ. BLANK) GO TO 40\r\n 30   CONTINUE\r\n      J=10\r\n 40   CH(1)=J-2\r\n      RETURN\r\nC\r\n 50   CH(1) =1\r\n      CH(2) =ZERO\r\n      ALF(1)=ZERO\r\n      ALF(2)=BLANK\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/intert.f",
    "content": "      SUBROUTINE INTERT (NL,NL1,NL2,NM,AJJ,TA)\r\nC\r\n      DIMENSION AJJ(1),TA(1)\r\nC\r\n      T1 = TA(NL1)\r\n      T2 = TA(NL2)\r\n      T  = TA(NL)\r\n      N1 = NM *(NL1-1)\r\n      N2 = NM *(NL2-1)\r\n      N  = NM*(NL -1)\r\n      FRACT = (T-T1) / (T2 -T1)\r\n      DO 100 I=1,NM\r\n  100 AJJ(I+N) = AJJ(I+N1) + FRACT *(AJJ(I+N2) - AJJ(I+N1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/intfbs.f",
    "content": "      SUBROUTINE INTFBS (DX,DY,IOBUF)\r\nC\r\nC     GIVEN THE TRIANGULAR FACTORS FOR A GENERAL MATRIX, INTFBS WILL\r\nC     PERFORM THE FORWARD-BACKWARD SUBSTITUTION NECESSARY TO SOLVE\r\nC     A SYSTEM OF EQUATIONS\r\nC\r\nC     DEFINITION OF INPUT PARAMETERS\r\nC\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U\r\nC     DX       =  THE LOAD VECTOR B\r\nC     DY       =  THE SOLUTION VECTOR X\r\nC     IOBUF    =  THE INPUT BUFFER\r\nC\r\nC     NAMED COMMONS\r\nC\r\n      INTEGER            FILEL     ,FILEU    ,TYPEAR   ,RDP      ,\r\n     1                   PARM(4)   ,RSP      ,EOL\r\n      DIMENSION          IOBUF(1)  ,DX(1)    ,DY(1)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /INFBSX/  FILEL(7)  ,FILEU(7)\r\n      COMMON   /TRDXX /  IDUMMY(27),IOPEN\r\n      EQUIVALENCE        (A(1),DA) ,\r\n     1                   (FILEL(3) ,NROW)\r\n      DATA      PARM(3), PARM(4)   /4HINTF   ,4HBS   /\r\nC\r\nC\r\nC     TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR\r\nC\r\n      DO 10 I = 1,NROW\r\n   10 DY(I)  = DX(I)\r\n      TYPEAR = RSP\r\nC\r\nC     OPEN FILE FOR THE LOWER TRIANGLE\r\nC\r\n      PARM(2) = FILEL(1)\r\n      IF (IOPEN .EQ. -10) GO TO 15\r\n      IF (IOPEN .EQ.   0) CALL OPEN (*200,FILEL(1),IOBUF,RDREW)\r\n      CALL FWDREC (*210,FILEL(1))\r\nC\r\nC     BEGIN FORWARD PASS\r\nC\r\n   15 J = 1\r\n   20 CALL INTPK (*90,FILEL(1),0,TYPEAR,0)\r\n   30 IF (EOL) 220,40,220\r\n   40 CALL ZNTPKI\r\n      IF (J-II) 80,50,30\r\nC\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC\r\n   50 IN1   = J + IFIX(A(1))\r\n      DTEMP = DY(J)\r\n      DY(J) = DY(IN1)\r\n      DY(IN1) = DTEMP\r\n   60 IF (EOL) 90,70,90\r\n   70 CALL ZNTPKI\r\n   80 DY(II) = DY(II) - DY(J)*DA\r\n      GO TO 60\r\n   90 J = J + 1\r\n      IF (J .LT. NROW) GO TO 20\r\n      CALL REWIND (FILEL(1))\r\n      IF (IOPEN .EQ.   0) CALL CLOSE (FILEL(1),REW)\r\n      IF (IOPEN .EQ. -10) CALL SKPREC (FILEL,1)\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n      IOFF = FILEU(7) - 1\r\n      PARM(2) = FILEU(1)\r\n      IF (IOPEN .EQ. -10) GO TO 95\r\n      IF (IOPEN .EQ.   0) CALL OPEN (*200,FILEU(1),IOBUF,RDREW)\r\n      CALL FWDREC (*210,FILEU(1))\r\n   95 J = NROW\r\n  100 CALL INTPK (*220,FILEU(1),0,TYPEAR,0)\r\n      IF (EOL) 220,120,220\r\n  120 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J) GO TO 170\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      DY(I) = DY(I)/DA\r\nC\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC\r\n  140 IF (I .GT. J) GO TO 120\r\n      IF (EOL) 190,160,190\r\n  160 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n  170 IN1 = I\r\n      IN2 = J\r\n      IF (I .LT. J) GO TO 180\r\n      K   = IN1\r\n      IN1 = IN2 - IOFF\r\n      IN2 = K\r\n  180 DY(IN1) = DY(IN1) - DY(IN2)*DA\r\n      GO TO 140\r\n  190 J = J - 1\r\n      IF (J .GT. 0) GO TO 100\r\n      CALL  REWIND (FILEU(1))\r\n      IF (IOPEN .EQ.   0) CALL CLOSE (FILEU(1),REW)\r\n      IF (IOPEN .EQ. -10) CALL SKPREC (FILEU,1)\r\n      RETURN\r\nC\r\n  200 PARM(1) = -1\r\n      GO TO 230\r\n  210 PARM(1) = -2\r\n      GO TO 230\r\n  220 PARM(1) = -5\r\n  230 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/intlst.f",
    "content": "      SUBROUTINE INTLST (LIST,N,SIGN,N1,N2)\r\nC\r\n      INTEGER LIST(1),SIGN,TO,THRU\r\n      DATA    TO,THRU/ 2HTO,4HTHRU /\r\nC\r\n      SIGN = ISIGN(1,LIST(N))\r\n      N1 = IABS(LIST(N))\r\n      IF (LIST(N+1).EQ.TO .OR. LIST(N+1).EQ.THRU) GO TO 110\r\n      N2 = N1\r\n      N  = N + 1\r\n      GO TO 150\r\nC\r\n  110 N2 = IABS(LIST(N+2))\r\n      N  = N + 3\r\n      IF (N1 .LE. N2) GO TO 150\r\n      I  = N1\r\n      N1 = N2\r\n      N2 = I\r\nC\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/intprt.f",
    "content": "      SUBROUTINE INTPRT (A,CR,O,NAME)\r\nC\r\n      INTEGER         O,CR,COLNUM,CRFMT(3),CROPT(2,2)\r\n      REAL            A(1),NAME(2)\r\n      COMMON /SYSTEM/ SKIP,MO\r\n      DATA    CRFMT / 4H(60X , 4H,2A4 , 4H,I5) /\r\n      DATA    CROPT / 4HCOLU , 4HMN   , 4HROW  , 4H     /\r\nC\r\nC     CR   = 0  IF MATRIX BY COLUMNS.\r\nC          = 1  IF MATRIX BY ROWS.\r\nC     IF O = 0, THE MATRIX WILL NOT BE PRINTED.\r\nC     NAME = 8  CHARACTER BCD NAME OF THE MATRIX.\r\nC\r\n      IF (CR .NE. 0) GO TO 100\r\n      ICROPT = 1\r\n      GO TO 110\r\n  100 ICROPT = 2\r\nC\r\n  110 CALL MATPRT (*120,*130,A,-1,COLNUM)\r\n      GO TO 150\r\n  120 WRITE  (MO,125) NAME(1),NAME(2)\r\n  125 FORMAT (50X,24HINTERMEDIATE MATRIX ... ,2A4//)\r\n  130 WRITE  (MO,CRFMT) (CROPT(I,ICROPT),I=1,2),COLNUM\r\n      CALL PRTMAT (*120,*130,COLNUM)\r\n  150 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/intvec.f",
    "content": "      SUBROUTINE INTVEC (VECTOR)\r\nC\r\n      INTEGER         VECTOR,XYZR(4),CHAR,VEC(4),VECWRD\r\n      COMMON /SYSTEM/ SKIP(40), NCPW\r\n      DATA    XYZR  / 1HX,1HY,1HZ,1HR /\r\n      DATA    N     / 1HN/\r\nC\r\n      NSHAPE = 0\r\n      VECWRD = VECTOR\r\n      IF (VECWRD .EQ. 0) GO TO 125\r\n      DO 101 I = 1,4\r\n      VEC(I) = 0\r\n  101 CONTINUE\r\nC\r\nC     SEPARATE THE FOUR CHARACTERS IN -VECWRD- (ANY COMBINATION OF THE\r\nC     CHARACTERS X, Y, Z, AND R.\r\nC\r\n      DO 120 K = 1,4\r\n      CHAR = KLSHFT(VECWRD,(K-1))\r\n      CHAR = KRSHFT(CHAR,(NCPW-1))\r\n      DO 111 I = 1,4\r\n      IF (CHAR .EQ. KRSHFT(XYZR(I),(NCPW-1))) GO TO 115\r\n  111 CONTINUE\r\n      IF(CHAR .EQ. KRSHFT(N,(NCPW-1))) NSHAPE = 1\r\n      GO TO 120\r\n  115 VEC(I) = 1\r\n  120 CONTINUE\r\nC\r\n      VECTOR = VEC(1) + 2*VEC(2) + 4*VEC(3) + 8*VEC(4)\r\n      IF (VECTOR .EQ. 8) VECTOR = 15\r\n      IF (NSHAPE .EQ. 1) VECTOR =-VECTOR\r\n  125 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/inverd.f",
    "content": "      SUBROUTINE INVERD (NDIM,A,N,B,M,DETERM,ISING,INDEX)\r\nC\r\nC     INVERSE, OR LINEAR EQUATIONS SOLVER\r\nC\r\nC     NDIM IS THE ACTUAL SIZE OF A IN CALLING PROGRAM. E.G. A(NDIM,NDIM)\r\nC     A IS SQUARE MATRIX TO BE INVERTED.\r\nC     N IS SIZE OF UPPER LEFT PORTION BEING INVERTED.\r\nC     B IS COLUMN OF CONSTANTS (OPTIONAL INPUT). SUPPLY SPACE B(NDIM,1)\r\nC     M IS THE NUMBER OF COLUMNS OF CONSTANTS\r\nC     DETERM RETURNS THE VALUE OF DETERMINANT IF NON-SINGULAR\r\nC     ISING RETURNS 2, IF MATRIX A(N,N) IS SINGULAR, 1 OTHERWISE.\r\nC     (IF ISING IS SET TO .LT. 0 UPON INPUT, DETERM IS NO CALCULATED)\r\nC     INVERSE RETURNS  IN A\r\nC     SOLUTION VECTORS RETURN IN B\r\nC     INDEX IS WORKING STORAGE (N,3)\r\nC\r\n      DIMENSION        A(NDIM,1),  B(NDIM,1), INDEX(N,3)\r\n      DOUBLE PRECISION A, B, AMAX, T, SWAP,   DETERM, PIVOT, EPSI\r\n      COMMON /MACHIN/  MACH\r\n      EQUIVALENCE      (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWAP)\r\n      DATA    EPSI  /  1.0D-36/\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (MACH  .EQ. 5) EPSI = 1.D-18\r\n      DETERM = 1.0D0\r\n      IF (ISING .LT. 0) DETERM = 0.0D0\r\n      DO 10 J = 1,N\r\n   10 INDEX(J,3) = 0\r\n      DO 130 I = 1,N\r\nC\r\nC     SEARCH FOR PIVOT\r\nC\r\n      AMAX = 0.0D0\r\n      DO 40 J = 1,N\r\n      IF (INDEX(J,3) .EQ. 1) GO TO 40\r\n      DO 30 K = 1,N\r\n      IF (INDEX(K,3) - 1) 20,30,190\r\n   20 IF (DABS(A(J,K)).LE. AMAX) GO TO 30\r\n      IROW = J\r\n      ICOLUM = K\r\n      AMAX = DABS(A(J,K))\r\n   30 CONTINUE\r\n   40 CONTINUE\r\n      INDEX(ICOLUM,3) = INDEX(ICOLUM,3) + 1\r\n      INDEX(I,1) = IROW\r\n      INDEX(I,2) = ICOLUM\r\nC\r\nC     INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL\r\nC\r\n      IF (IROW .EQ. ICOLUM) GO TO 70\r\n      DETERM = -DETERM\r\n      DO 50 L = 1,N\r\n      SWAP = A(IROW,L)\r\n      A(IROW  ,L) = A(ICOLUM,L)\r\n   50 A(ICOLUM,L) = SWAP\r\n      IF (M .LE. 0) GO TO 70\r\n      DO 60 L = 1,M\r\n      SWAP = B(IROW,L)\r\n      B(IROW  ,L) = B(ICOLUM,L)\r\n   60 B(ICOLUM,L) = SWAP\r\nC\r\nC     DIVIDE PIVOT ROW BY PIVOT ELEMENT\r\nC\r\n   70 PIVOT  = A(ICOLUM,ICOLUM)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS    9/1992\r\nC\r\nC     THE D.P. OF VAX IS LIMITED TO 10**38. NEXT LINE COULD CAUSE\r\nC     FLOATING POINT NUMBER OVERFLOW IN VAX IN SOME HUGE PROBLEM.\r\nC     CHECK FIRST THAT THE CALLER REALLY WANT THE DETERMINANT TERM. IF\r\nC     NOT, ISING SHOULD BE SET TO -1 AND THE DETERM TERM IS BY-PASSED.\r\nC     IF DETERM IS REALLY WANTED, USE REAL*16 HERE FOR VAX, AND TURN IT\r\nC     BACK TO D.P. BEFORE RETURN. RE-COMPILE THIS SUBROUTINE AND RE-LINK\r\nC     NASTRAN EXECUTABLE\r\nC\r\n      DETERM = DETERM*PIVOT\r\nC\r\n      IF (DABS(PIVOT) .LT. EPSI) GO TO 190\r\n      A(ICOLUM,ICOLUM) = 1.0D0\r\n      DO 80 L = 1,N\r\n   80 A(ICOLUM,L) = A(ICOLUM,L)/PIVOT\r\n      IF (M .LE. 0) GO TO 100\r\n      DO 90 L = 1,M\r\n   90 B(ICOLUM,L) = B(ICOLUM,L)/PIVOT\r\nC\r\nC     REDUCE NON PIVOT ROWS\r\nC\r\n  100 DO 130 L1 = 1,N\r\n      IF (L1 .EQ. ICOLUM) GO TO 130\r\n      T = A(L1,ICOLUM)\r\n      A(L1,ICOLUM) = 0.0D0\r\n      IF (DABS(T) .LT. EPSI) GO TO 130\r\n      DO 110 L = 1,N\r\n  110 A(L1,L) = A(L1,L) - A(ICOLUM,L)*T\r\n      IF (M .LE. 0) GO TO 130\r\n      DO 120 L = 1,M\r\n  120 B(L1,L) = B(L1,L) - B(ICOLUM,L)*T\r\n  130 CONTINUE\r\nC\r\nC     INTERCHANGE COLUMNS\r\nC\r\n      DO 150 I = 1,N\r\n      L = N + 1 - I\r\n      IF (INDEX(L,1) .EQ. INDEX(L,2)) GO TO 150\r\n      JROW   = INDEX(L,1)\r\n      JCOLUM = INDEX(L,2)\r\n      DO 140 K = 1,N\r\n      SWAP = A(K,JROW)\r\n      A(K,JROW  ) = A(K,JCOLUM)\r\n      A(K,JCOLUM) = SWAP\r\n  140 CONTINUE\r\n  150 CONTINUE\r\n      DO 170 K = 1,N\r\n      IF (INDEX(K,3) .EQ. 1) GO TO 160\r\n      ISING = 2\r\n      GO TO 180\r\n  160 CONTINUE\r\n  170 CONTINUE\r\n      ISING = 1\r\n  180 RETURN\r\n  190 ISING = 2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invers.f",
    "content": "      SUBROUTINE INVERS (NDIM,A,N,B,M,DETERM,ISING,INDEX)\r\nC\r\nC     INVERSE, OR LINEAR EQUATIONS SOLVER\r\nC\r\nC     NDIM IS THE ACTUAL SIZE OF A IN CALLING PROGRAM. E.G. A(NDIM,NDIM)\r\nC     A IS SQUARE MATRIX TO BE INVERTED.\r\nC     N IS SIZE OF UPPER LEFT PORTION BEING INVERTED.\r\nC     B IS COLUMN OF CONSTANTS (OPTIONAL INPUT). SUPPLY SPACE B(NDIM,1)\r\nC     M IS THE NUMBER OF COLUMNS OF CONSTANTS\r\nC     DETERM RETURNS THE VALUE OF DETERMINANT IF NON-SINGULAR\r\nC     ISING RETURNS 2, IF MATRIX A(N,N) IS SINGULAR\r\nC                   1, IF MATRIX A(N,N) IS NON-SINGULAR\r\nC     (IF ISING IS SET TO .LT. 0 UPON INPUT, DETERM IS NOT CALCULATED)\r\nC     INVERSE RETURNS  IN A\r\nC     SOLUTION VECTORS RETURN IN B\r\nC     INDEX IS WORKING STORAGE (N,3)\r\nC\r\n      DIMENSION       A(NDIM,1),   B(NDIM,1), INDEX(N,3)\r\n      COMMON /MACHIN/ MACH\r\n      EQUIVALENCE     (IROW,JROW), (ICOLUM,JCOLUM), (AMAX, T, SWAP)\r\n      DATA    EPSI  / 1.0E-30 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (MACH  .EQ. 5) EPSI = 1.E-18\r\n      DETERM = 1.0\r\n      IF (ISING .LT. 0) DETERM = 0.0\r\n      DO 10 J = 1,N\r\n   10 INDEX(J,3) = 0\r\n      DO 130 I = 1,N\r\nC\r\nC     SEARCH FOR PIVOT\r\nC\r\n      AMAX = 0.0\r\n      DO 40 J = 1,N\r\n      IF (INDEX(J,3) .EQ. 1) GO TO 40\r\n      DO 30 K = 1,N\r\n      IF (INDEX(K,3) - 1) 20,30,190\r\n   20 IF (ABS(A(J,K)) .LE. AMAX) GO TO 30\r\n      IROW   = J\r\n      ICOLUM = K\r\n      AMAX   = ABS(A(J,K))\r\n   30 CONTINUE\r\n   40 CONTINUE\r\n      INDEX(ICOLUM,3) = INDEX(ICOLUM,3) + 1\r\n      INDEX(I,1) = IROW\r\n      INDEX(I,2) = ICOLUM\r\nC\r\nC     INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL\r\nC\r\n      IF (IROW .EQ. ICOLUM) GO TO 70\r\n      DETERM = -DETERM\r\n      DO 50 L = 1,N\r\n      SWAP = A(IROW,L)\r\n      A(IROW,L  ) = A(ICOLUM,L)\r\n   50 A(ICOLUM,L) = SWAP\r\n      IF (M .LE. 0) GO TO 70\r\n      DO 60 L = 1,M\r\n      SWAP = B(IROW,L)\r\n      B(IROW,L  ) = B(ICOLUM,L)\r\n   60 B(ICOLUM,L) = SWAP\r\nC\r\nC     DIVIDE PIVOT ROW BY PIVOT ELEMENT\r\nC\r\n   70 PIVOT  = A(ICOLUM,ICOLUM)\r\n      DETERM = DETERM*PIVOT\r\n      IF (ABS(PIVOT) .LT. EPSI) GO TO 190\r\n      A(ICOLUM,ICOLUM) = 1.0\r\n      DO 80 L = 1,N\r\n   80 A(ICOLUM,L) = A(ICOLUM,L)/PIVOT\r\n      IF (M .LE. 0) GO TO 100\r\n      DO 90 L=1,M\r\n   90 B(ICOLUM,L) = B(ICOLUM,L)/PIVOT\r\nC\r\nC     REDUCE NON PIVOT ROWS\r\nC\r\n  100 DO 130 L1 = 1,N\r\n      IF (L1 .EQ. ICOLUM) GO TO 130\r\n      T = A(L1,ICOLUM)\r\n      A(L1,ICOLUM) = 0.0\r\n      IF (ABS(T) .LT. EPSI) GO TO 130\r\n      DO 110 L = 1,N\r\n  110 A(L1,L) = A(L1,L) - A(ICOLUM,L)*T\r\n      IF (M .LE. 0) GO TO 130\r\n      DO 120 L = 1,M\r\n  120 B(L1,L) = B(L1,L) - B(ICOLUM,L)*T\r\n  130 CONTINUE\r\nC\r\nC     INTERCHANGE COLUMNS\r\nC\r\n      DO 150 I = 1,N\r\n      L = N + 1 - I\r\n      IF (INDEX(L,1) .EQ. INDEX(L,2)) GO TO 150\r\n      JROW   = INDEX(L,1)\r\n      JCOLUM = INDEX(L,2)\r\n      DO 140 K = 1,N\r\n      SWAP = A(K,JROW)\r\n      A(K,JROW  ) = A(K,JCOLUM)\r\n      A(K,JCOLUM) = SWAP\r\n  140 CONTINUE\r\n  150 CONTINUE\r\n      DO 170 K = 1,N\r\n      IF (INDEX(K,3) .EQ. 1) GO TO 160\r\n      ISING = 2\r\n      GO TO 180\r\n  160 CONTINUE\r\n  170 CONTINUE\r\n      ISING = 1\r\n  180 RETURN\r\n  190 ISING = 2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invert.f",
    "content": "      SUBROUTINE INVERT( IA,IB,SCR1)\r\nC\r\nC     DRIVER  FOR  INVTR\r\nC\r\nC     INVERTS  LOWER OR UPPER TRIANGLE  IA  ONTO  IB\r\nC\r\nC     SCR1 WILL BE USED  ONLY IF  IA  IS AN  UPPER  TRIANGLE\r\nC\r\n      INTEGER  FA,FB,SCRFIL,PREC,SCR1,NAME(2)\r\nC\r\n      COMMON /INVTRX/ FA(7),FB(7),SCRFIL,NX,PREC\r\n      COMMON / ZZZZZZ/ Z(1)\r\nC\r\n      DATA NAME /4HINVE,4HRT  /\r\nC\r\nC     FILL  MATRIX  CONTROL  BLOCKS  FOR  A  AND  B\r\nC\r\n      FA(1) = IA\r\n      CALL RDTRL(FA)\r\n      FB(1) = IA\r\n      CALL RDTRL(FB)\r\n      FB(1) = IB\r\n      SCRFIL = SCR1\r\n      PREC = FA(5)\r\n      NX  =  KORSZ(Z)\r\n      CALL INVTR(*50,Z,Z)\r\n      CALL WRTTRL(FB)\r\n      RETURN\r\nC\r\nC     SINGULAR  MATRIX\r\nC\r\n   50 CALL MESAGE(-5,FA,NAME)\r\n      GO TO 50\r\n      END\r\n"
  },
  {
    "path": "mis/invfbs.f",
    "content": "      SUBROUTINE INVFBS (DX,DY,IOBUF)\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     INVFBS IS A SPECIAL FORWARD-BACKWARD SUBSTITUTION ROUTINE FOR\r\nC     INVPWR. IT OPERATES ON CONJUNCTION WITH SDCOMP.\r\nC     THE ARITHMETIC PRECISION IS THAT OF THE INPUT FILE\r\nC\r\nC     FILEL    =  MATRIX CONTROL BLOCK FOR THE LOWER TRIANGLE L\r\nC     FILEU    =  MATRIX CONTROL BLOCK FOR THE UPPER TRIANGLE U\r\nC     DX       =  THE LOAD VECTOR B\r\nC     DY       =  THE SOLUTION VECTOR X\r\nC     IOBUF    =  THE INPUT BUFFER\r\nC\r\nC     COMMENT FROM G.CHAN/UNISYS, 6/89\r\nC     IF LOAD IS SUDDENLY INCREADED TO A LARGE VALUE, THE VAX MACHINE\r\nC     MAY BLOW ITS TOP (ARITHMETIC FAULT, FLOATING OVERFLOW) BECAUSE\r\nC     VAX DOUBLE PRECISION REAL NUMBERS ARE LIMITED TO 10**38, SAME\r\nC     LIMIT AS THE SINGLE PRECISION REAL NUMBERS. OTHER MACHINES ALLOW\r\nC     MUCH LARGER LIMITS FOR DOUBLE PRECISION NUMBERS.\r\nC\r\n      INTEGER            FILEL     ,FILEU    ,TYPEAR   ,RDP      ,\r\n     1                   PARM(4)   ,EOL      ,IJJ(2)\r\n      DOUBLE PRECISION   DX(1)     ,DY(1)    ,DA       ,DTEMP    ,\r\n     1                   DJJ       ,DYJ      ,EPSI\r\n      DIMENSION          IOBUF(1)\r\n      CHARACTER          UFM*23    ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON   /XMSSG /  UFM       ,UWM      ,UIM      ,SFM\r\n      COMMON   /MACHIN/  MACH\r\n      COMMON   /SYSTEM/  IBUF      ,NOUT\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /TYPE  /  RC(2)     ,NWDS(4)\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\n      COMMON   /INFBSX/  FILEL(7)  ,FILEU(7)\r\n      COMMON   /TRDXX /  IDUMMY(27),IOPEN\r\n      EQUIVALENCE        (A(1),DA) ,(FILEL(3),NROW)    ,(DJJ,IJJ(1))\r\n      DATA      EPSI  /  1.0D-24   /\r\n      DATA      PARM(3), PARM(4)   /4HINVF,4HBS  /\r\nC\r\nC\r\nC     TRANSFER THE LOAD VECTOR TO THE SOLUTION VECTOR\r\nC\r\n      DO 10 I = 1,NROW\r\n   10 DY(I)  = DX(I)\r\n      TYPEAR = RDP\r\nC\r\nC     OPEN FILE FOR THE LOWER TRIANGLE\r\nC     IOPEN WAS SET TO -20 BY STEP2\r\nC\r\n      PARM(2) = FILEL(1)\r\n      IF (IOPEN .EQ.  -20) CALL FWDREC (*360,FILEL(1))\r\n      IF (FILEL(7) .LT. 0) GO TO 300\r\nC\r\nC     NASTRAN ORIGINAL CODE\r\nC\r\nC     BEGIN FORWARD PASS\r\nC\r\n      J = 1\r\n   20 CALL INTPK (*100,FILEL(1),0,TYPEAR,0)\r\n   30 IF (EOL) 220,40,220\r\n   40 CALL ZNTPKI\r\n      IF (J-II) 80,50,30\r\nC\r\nC     PERFORM THE REQUIRED ROW INTERCHANGE\r\nC\r\n   50 IN1   = J+IFIX(SNGL(DA))\r\n      DTEMP = DY(J)\r\n      DY(J) = DY(IN1)\r\n      DY(IN1) = DTEMP\r\n   60 IF (EOL) 100,70,100\r\n   70 CALL ZNTPKI\r\n   80 IF (MACH.NE.5 .OR.\r\n     1   (DABS(DA).LT.1.D+19 .AND. DABS(DY(J)).LT.1.D+19)) GO TO 90\r\n      X1 = ALOG10(ABS(SNGL(DA)))\r\n      X2 = ALOG10(ABS(SNGL(DY(J))))\r\n      IF (X1+X2 .GT. 38.) GO TO 200\r\n   90 DY(II) = DY(II) - DY(J)*DA\r\n      GO TO 60\r\n  100 J = J + 1\r\n      IF (J .LT. NROW) GO TO 20\r\n      CALL REWIND (FILEL(1))\r\n      IF (IOPEN .EQ. -20) GO TO 110\r\n      CALL SKPREC (FILEL,1)\r\nC\r\nC     BEGIN BACKWARD PASS\r\nC\r\n  110 IOFF    = FILEU(7) - 1\r\n      PARM(2) = FILEU(1)\r\n      IF (IOPEN .EQ. -20) CALL FWDREC (*360,FILEU(1))\r\n      J = NROW\r\n  120 CALL INTPK (*220,FILEU(1),0,TYPEAR,0)\r\n      IF (EOL .NE. 0) GO TO 220\r\n  130 CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J) GO TO 150\r\nC\r\nC     DIVIDE BY THE DIAGONAL\r\nC\r\n      DY(I) = DY(I)/DA\r\nC\r\nC     SUBTRACT OFF REMAINING TERMS\r\nC\r\n  140 IF (I   .GT. J) GO TO 130\r\n      IF (EOL .NE. 0) GO TO 180\r\n      CALL ZNTPKI\r\n      I   = NROW - II + 1\r\n  150 IN1 = I\r\n      IN2 = J\r\n      IF (I .LT. J) GO TO 160\r\n      K   = IN1\r\n      IN1 = IN2 - IOFF\r\n      IN2 = K\r\n  160 IF (MACH.NE.5 .OR.\r\n     1   (DABS(DA).LT.1.D+19 .AND. DABS(DY(IN2)).LT.1.D+19)) GO TO 170\r\n      X1 = ALOG10(ABS(SNGL(DA)))\r\n      X2 = ALOG10(ABS(SNGL(DY(IN2))))\r\n      IF (X1+X2 .GT. 38.) GO TO 200\r\n  170 DY(IN1) = DY(IN1) - DY(IN2)*DA\r\n      GO TO 140\r\n  180 J = J - 1\r\n      IF (J .GT. 0) GO TO 120\r\n      CALL REWIND (FILEU)\r\n      IF (IOPEN .EQ. -20) RETURN\r\n      CALL SKPREC (FILEU,1)\r\n      GO TO 450\r\nC\r\n  200 WRITE  (NOUT,210) SFM,PARM(1),PARM(2)\r\n  210 FORMAT (A25,' FROM ',2A4,'- SOLUTION VECTOR VALUE OVERFLOWS,',/5X,\r\n     1       'POSSIBLY DUE TO SUDDEN INCREASE OF LARGE LOAD VECTOR OR ',\r\n     2       'OTHER INPUT CONDITION')\r\n      GO TO 420\r\n  220 PARM(1) = -5\r\n      GO TO 440\r\nC\r\nC\r\nC     NEW METHOD\r\nC     FILEL HAS BEEN RE-WRITTEN FORWARD FIRST THAN BACKWARD BY UNPSCR\r\nC     IN INVP3)\r\nC\r\nC     THE LOAD VECTOR DX WILL BE DESTROYED IN THIS NEW METHOD\r\nC\r\nC     FORWARD SWEEP DIRECTLY ON SOLUTION VECTOR DY\r\nC\r\n  300 IFILE  =-FILEL(7)\r\n      PARM(2)= IFILE\r\n      NWD    = NWDS(FILEL(5))\r\n      IF (FILEL(4) .NE. 2) GO TO 400\r\n      IFW = +1\r\n      CALL REWIND (IFILE)\r\n      CALL SKPREC (IFILE,1)\r\n      CALL READ (*360,*370,IFILE,DX,2,0,I)\r\n      NTMS = 0\r\n      DO 320 J = 1,NROW\r\n      DJJ = DX(NTMS+1)\r\n      II  = IJJ(1)\r\n      JJ  = IJJ(2)\r\n      IF (II .NE. J) GO TO 380\r\n      NTMS = JJ - II + 1\r\n      JI = NTMS*NWD + 2\r\n      CALL READ (*360,*370,IFILE,DX,JI,0,I)\r\n      IF (NTMS .LE. 1) GO TO 320\r\n      DYJ = DY(J)\r\n      IF (DABS(DYJ) .LT. EPSI) GO TO 320\r\n      DO 310 I = 2,NTMS\r\n      II = II + 1\r\n      DY(II) = DY(II) + DX(I)*DYJ\r\n  310 CONTINUE\r\n  320 DY(J) = DY(J)/DX(1)\r\nC\r\nC     BACKWARD SUBSTITUTION OMIT DIAGONAL\r\nC\r\n      IFW = -1\r\n      IF (NROW .EQ. 1) GO TO 450\r\n      J  = NROW\r\n      DO 340 JX = 1,NROW\r\n      DJJ = DX(NTMS+1)\r\n      II  = IJJ(1)\r\n      JJ  = IJJ(2)\r\n      IF (II .NE. J) GO TO 380\r\n      NTMS = JJ - II + 1\r\n      JI = NTMS*NWD + 2\r\n      CALL READ (*360,*370,IFILE,DX,JI,0,I)\r\n      IF (NTMS .LE. 1) GO TO 340\r\n      DO 330 I = 2,NTMS\r\n      II = II + 1\r\n      DY(J) = DY(J) + DX(I)*DY(II)\r\n  330 CONTINUE\r\n  340 J = J - 1\r\n      GO TO 450\r\nC\r\nC     ERROR\r\nC\r\n  360 PARM(1) = -2\r\n      GO TO 440\r\n  370 PARM(1) = -3\r\n      GO TO 440\r\n  380 WRITE  (NOUT,390) IFW,II,J\r\n  390 FORMAT ('   ERROR IN INVFBS.   IFW),II,J =',I3,1H),2I6)\r\n      GO TO 420\r\n  400 WRITE  (NOUT,410) FILEL(4)\r\n  410 FORMAT ('0*** FILEL MATRIX IN WRONG FORMAT. UNPSCR FLAG =',I3)\r\n  420 PARM(1) = -37\r\n  440 CALL MESAGE (PARM(1),PARM(2),PARM(3))\r\nC\r\n  450 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invp1.f",
    "content": "      SUBROUTINE INVP1\r\nC\r\nC     INVP1 INITIALIZES AND CALLS SUBROUTINE ADD FOR INVPWR\r\nC\r\n      INTEGER          FILEA    ,FILEB    ,FILEC    ,FILEK   ,FILEM  ,\r\n     1                 SCR1     ,TYPALP   ,TYPBTA   ,SQR     ,RDP\r\n      DOUBLE PRECISION LAMBDA   ,DALPHA   ,DBETA\r\n      COMMON  /INVPWX/ FILEK(7) ,FILEM(7) ,SCR1\r\n      COMMON  /INVPXX/ LAMBDA\r\n      COMMON  /SADDX / NOMAT    ,NZ       ,FILEA(7) ,TYPALP  ,\r\n     1                 DALPHA(2),FILEB(7) ,TYPBTA   ,DBETA(2),\r\n     2                 DUM(36)  ,FILEC(7)\r\n      COMMON  /ZZZZZZ/ Z(1)\r\n      COMMON  /NAMES / IJ(8)    ,RDP      ,IK(2)    ,SQR\r\n      COMMON  /SYSTEM/ KSYSTM(56)\r\n      EQUIVALENCE      (KSYSTM(55),IPREC)\r\nC\r\nC     SET UP CALL TO ADD\r\nC\r\n      DO 10  I = 1,7\r\n      FILEA(I) = FILEM(I)\r\n   10 FILEB(I) = FILEK(I)\r\n      DALPHA(1)=-LAMBDA\r\n      DBETA(1) = 1.0D0\r\n      TYPALP   = IPREC\r\n      TYPBTA   = IPREC\r\n      NZ       = KORSZ(Z)\r\n      FILEC(1) = SCR1\r\n      FILEC(2) = FILEK(2)\r\n      FILEC(3) = FILEK(3)\r\n      FILEC(4) = SQR\r\n      FILEC(5) = IPREC\r\n      NOMAT    = 2\r\n      IF (FILEB(1) .EQ. 0) NOMAT = 1\r\n      CALL SADD (Z,Z)\r\n      CALL WRTTRL (FILEC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invp2.f",
    "content": "      SUBROUTINE INVP2 (*)\r\nC\r\nC     INVP2 INITIALIZES THEN CALLS EITHER SDCOMP OR DECOMP DEPENDING ON\r\nC     THE OPTION SELECTED ON THE EIGR CARD\r\nC\r\n      INTEGER            FILEA     ,FILEL    ,FILEU    ,SCR1     ,\r\n     1                   SCR2      ,SCR3     ,SCR4     ,SCR5     ,\r\n     2                   SR1FIL    ,SR2FIL   ,DUM      ,SCR6     ,\r\n     3                   RDP       ,UPRTRI   ,\r\n     4                   SWITCH    ,SCR7     ,SCR8     ,OPTION   ,\r\n     5                   OPT2      ,PREC     ,Q(1)\r\n      DOUBLE PRECISION   DET       ,DETDET   ,DETC     ,MINDD\r\n      COMMON   /SFACT /  FILEA(7)  ,FILEL(7) ,FILEU(7) ,SR1FIL   ,\r\n     1                   SR2FIL    ,NZ       ,DET      ,DETC     ,\r\n     2                   POWER     ,ISR3FL   ,MINDD    ,ICHL\r\n      COMMON   /INVPXX/  DUMM(12)  ,SWITCH\r\n      COMMON   /INVPWX/  DUM(14)   ,SCR1(7)  ,SCR2(7)  ,SCRX     ,\r\n     1                   SCRXX     ,SCR3     ,SCR4     ,SCR5     ,\r\n     2                   SCR6      ,SCR7     ,SCR8\r\n      COMMON   /NAMES /  IJ(8)     ,RDP      ,IK(5)    ,LOWTRI   ,\r\n     1                   UPRTRI\r\n      COMMON   /DCOMPX/  IA(7)     ,IL(7)    ,IU(7)    ,ISCR1    ,\r\n     1                   ISCR2     ,ISCR3    ,DETDET   ,IPOWR    ,\r\n     2                   MZ        ,MIND\r\n      COMMON   /SYSTEM/  KSYSTM(63)\r\n      COMMON   /REIGKR/  OPTION\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE        (Q(1),Z(1))\r\n      EQUIVALENCE        (KSYSTM(55),PREC)\r\n      DATA      OPT2  /  4HUINV/\r\nC\r\n      FILEA(1) = SCR1(1)\r\n      IF (SWITCH .EQ. 1) GO TO 10\r\n      FILEL(1) = SCR2(1)\r\n      FILEU(1) = SCR3\r\n      GO TO 20\r\n   10 FILEL(1) = SCR7\r\n      FILEU(1) = SCR8\r\n   20 CONTINUE\r\n      SR1FIL   = SCR4\r\n      SR2FIL   = SCR5\r\n      ISR3FL   = SCR6\r\n      ICHL     = 0\r\n      FILEA(2) = DUM(2)\r\n      FILEA(3) = DUM(3)\r\n      FILEA(4) = DUM(4)\r\n      FILEA(5) = PREC\r\n      FILEA(6) = 0\r\n      FILEA(7) = 0\r\n      FILEL(5) = PREC\r\n      IF (OPTION .EQ. OPT2) GO TO 40\r\nC\r\nC     SYMMETRIC DECOMPOSITION SELECTED.\r\nC\r\n      NZ       = KORSZ(Z)\r\n      CALL SDCOMP (*30,Z,Z,Z)\r\n      FILEL(3) = FILEL(2)\r\n      FILEL(4) = LOWTRI\r\n      CALL WRTTRL (FILEL)\r\n      RETURN\r\n   30 RETURN 1\r\nC\r\nC     UNSYMMETRIC DECOMPOSITION SELECTED.\r\nC\r\n   40 DO 50 I = 1,21\r\n      IA(I) = FILEA(I)\r\n   50 CONTINUE\r\n      ISCR1 = SCR4\r\n      ISCR2 = SCR5\r\n      ISCR3 = SCR6\r\n      MZ    = KORSZ(Q)\r\n      CALL DECOMP (*30,Q,Q,Q)\r\n      IL(3) = IL(2)\r\n      IL(4) = LOWTRI\r\n      CALL WRTTRL (IL)\r\n      IU(3) = IU(2)\r\n      IU(4) = UPRTRI\r\n      IU(5) = IL(5)\r\n      CALL WRTTRL (IU)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invp3.f",
    "content": "      SUBROUTINE INVP3 (NORM1,SUB,MTIMSU,XTRNSY)\r\nC\r\nC     SUBROUTINE INVP3, THE MAIN LINK OF INVPWR, SOLVES FOR THE\r\nC     EIGENVALUES AND EIGENVECTORS OF (K-LAMBDA*M)\r\nC     THIS ROUTINE HANDLES BOTH SINGLE AND DOUBLE PRECISION VERSIONS\r\nC\r\n      EXTERNAL          NORM1     ,SUB      ,MTIMSU   ,XTRNSY\r\n      INTEGER           FILEK     ,END      ,SYSBUF   ,SR2FIL   ,\r\n     1                  SR3FIL    ,FILEL    ,FILELT   ,NAME(2)  ,\r\n     2                  SR7FIL    ,COMFLG   ,TIMEIT   ,TIMED    ,\r\n     3                  SR8FIL    ,SWITCH   ,T1       ,T2       ,\r\n     4                  OPTION    ,OPT2     ,FILEM    ,FILEVC   ,\r\n     5                  FILELM    ,MCBVC(7) ,DMPFIL\r\n      INTEGER           REW       ,EOFNRW\r\n      REAL              LAMMIN    ,LAMMAX\r\n      DOUBLE PRECISION  DZ(1)     ,ALN      ,ALNM1    ,CN       ,\r\n     1                  DTEMP     ,LAM1     ,LM1NM1   ,ETA      ,\r\n     2                  ETANM1    ,LAM2     ,LM2NM1   ,H2N      ,\r\n     3                  H2NM1     ,DELTA    ,LAMBDA   ,LMBDA    ,\r\n     4                  LAM1D     ,FREQ\r\n      COMMON   /ZZZZZZ/ Z(1)\r\n      COMMON   /UNPAKX/ ITU       ,IIU      ,JJU      ,INCRU\r\n      COMMON   /PACKX / ITP1      ,ITP2     ,IIP      ,JJP      ,\r\n     1                  INCRP\r\n      COMMON   /INVPWX/ FILEK(7)  ,FILEM(7) ,SR1FIL(7),SR2FIL(7),\r\n     1                  FILELM    ,FILEVC   ,SR3FIL   ,SR4FIL   ,\r\n     2                  SR5FIL    ,SR6FIL   ,SR7FIL   ,SR8FIL   ,\r\n     3                  DMPFIL    ,LAMMIN   ,LAMMAX   ,NOEST    ,\r\n     4                  NDPLUS    ,NDMNUS   ,EPS      ,NORTHO\r\n      COMMON   /SYSTEM/ KSYSTM(65)\r\n      COMMON   /INFBSX/ FILEL(7)  ,FILELT(7)\r\n      COMMON   /FBSX  / LFILE(7)\r\n      COMMON   /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                  REW       ,NOREW    ,EOFNRW\r\n      COMMON   /INVPXX/ LAMBDA    ,COMFLG   ,ITERTO   ,TIMED    ,\r\n     1                  NOPOS     ,RZERO    ,NEG      ,NOCHNG   ,\r\n     2                  IND       ,LMBDA    ,SWITCH   ,NZERO    ,\r\n     3                  NONEG     ,IVECT    ,IREG     ,ISTART\r\n      COMMON   /REIGKR/ OPTION\r\n      COMMON   /DCOMPX/ DUMX(20)  ,IOFFF\r\n      COMMON   /TRDXX / IDUMMY(27),IOPEN\r\n      COMMON   /REGEAN/ IDUM40(40),IBUCK\r\n      EQUIVALENCE       (DZ(1)     ,Z(1)  ) ,(KSYSTM( 1),SYSBUF ),\r\n     1                  (KSYSTM( 2),IOUTPT) ,(KSYSTM( 9),NLPP   ),\r\n     2                  (KSYSTM(12),NLNS  ) ,(KSYSTM(55),IPREC  )\r\n      DATA      NAME  / 4HINVP, 4H3       / ,OPT2   / 4HUINV    /\r\nC\r\nC     DEFINITION OF LOCAL PARAMETERS\r\nC\r\nC     ITER     =  NUMBER OF ITERATIONS FROM THE CURRENT SHIFT POINT\r\nC     IRAPID   =  1 = RAPID CONVERGENCE DO ONE MORE ITERATION\r\nC     IEP2     =  1 = EPSILON 2 TEST FAILED\r\nC     A        =  CONVERGENCE SAFETY FACTOR\r\nC     EP1      =  EPSILON FOR DETERMINING IF IT IS POSSIBLE TO SHIFT\r\nC     EP2      =  EPSILON TO DETERMINE IF LAMBDA 2 IS VALID\r\nC     EP3      =  EPSILON TO DETERMINE IF EIGENVALUE IS TOO CLOSE TO SHI\r\nC     GAMMA    =  CLOSE ROOT CRITERION\r\nC     II1      =  POINTER TO U(N)\r\nC     II2      =  POINTER TO U(N-1) OR DELTA U(N)\r\nC     JJ1      =  POINTER TO F(N)\r\nC     JJ2      =  POINTER TO DELTA F(N-1)\r\nC     JJ3      =  POINTER TO F(N-1) OR DELTA F(N)\r\nC     ALN      =  ALPHA(N)\r\nC     ALNM1    =  ALPHA(N-1)\r\nC     CN       =  NORMALIZATION FACTOR FOR LAST EIGENVECTOR\r\nC\r\n      IOPEN = -10\r\n      CALL SSWTCH (16,L16)\r\n      KHR   = 0\r\n      NZ    = KORSZ(Z)\r\n      NCOL  = FILEK(2)\r\n      NCOL2 = NCOL*IPREC\r\n      CALL MAKMCB (MCBVC,FILEVC,NCOL,2,IPREC)\r\n      ITU   = IPREC\r\n      IIU   = 1\r\n      JJU   = NCOL\r\n      INCRU = 1\r\n      ITP1  = IPREC\r\n      ITP2  = IPREC\r\n      IIP   = 1\r\n      JJP   = NCOL\r\n      INCRP = 1\r\nC\r\nC     INITIALIZE\r\nC\r\n      ITER  = 0\r\n      IRAPID= 0\r\n      IEP2  = 0\r\n      KEP2  = 0\r\n      KOLD  =-1\r\n      KOUNT = 0\r\n      GO TO 30\r\nC\r\n   10 IF (NORTHO .EQ. 0) GO TO 30\r\n      CALL KLOCK  (ICURNT)\r\n      CALL TMTOGO (IIJJKK)\r\n      NAVG = (ICURNT-ISTART)/NORTHO\r\n      IF (IIJJKK .GE. 2*NAVG) GO TO 30\r\n   20 COMFLG = 8\r\n      GO TO 1140\r\nC\r\n   30 IEPCNT = 0\r\n      IF (SWITCH .EQ. 1) GO TO 40\r\n      FILEL(1)  = SR2FIL(1)\r\n      FILELT(1) = SR3FIL\r\n      GO TO 50\r\n   40 FILEL(1)  = SR7FIL\r\n      FILELT(1) = SR8FIL\r\nC\r\n   50 DO 60 I = 2,7\r\n      LFILE(I) = FILEK(I)\r\n   60 FILEL(I) = FILEK(I)\r\n      LFILE(5) = IPREC\r\n      FILEL(5) = IPREC\r\n      LFILE(1) = FILEL(1)\r\n      FILELT(7)= IOFFF\r\nC\r\nC     SET CONVERGENCE CRITERIA\r\nC\r\n      A   = .1\r\n      EP1 = .003\r\n      EP2 = .00001\r\n      EP2 = .02\r\n      EP3 = .05\r\n      GAMMA = .01\r\n      IF (L16.EQ.0 .OR. KHR.NE.0) GO TO 100\r\n      CALL PAGE1\r\n      NLNS = NLNS + 10\r\n      WRITE  (IOUTPT,70)\r\n   70 FORMAT (85H0D I A G   1 6   O U T P U T   F R O M    R O U T I N E\r\n     1   I N V P 3   F O L L O W S . ,//)\r\n      WRITE  (IOUTPT,80) RZERO,EPS,GAMMA,A,EP1,EP2,EP3\r\n   80 FORMAT (8H0RZERO =,1P,E13.5,4X,5HEPS =,1P,E13.5,4X,7HGAMMA =,\r\n     1        1P,E13.5,4X,3HA =,1P,E13.5, /,8H EP1   =,1P,E13.5,4X,\r\n     2        5HEP2 =,1P,E13.5,4X,7HEP3   =,1P,E13.5)\r\n      WRITE  (IOUTPT,90)\r\n   90 FORMAT (5H0ITER,5H CFLG,11X,3HSTP,11X,3HSHP,10X,4HLAM1,10X,4HLAM2,\r\n     1    11X,3HETA,9X,5HDELTA,4X,1HK,11X,3HH2N,9X,5HLAM1D,/1X,126(1H=))\r\nC\r\nC     INITIALIZE POINTERS TO VECTORS\r\nC\r\n  100 II1   = 1\r\n      II2   = II1 + NCOL2\r\n      JJ1   = II2 + NCOL2\r\n      JJ2   = JJ1 + NCOL2\r\n      JJ3   = JJ2 + NCOL2\r\n      JJ4   = JJ3 + NCOL2\r\n      JJ5   = JJ4 + NCOL2\r\n      END   = JJ5 + NCOL2\r\n      IEND  = END\r\n      END   = IEND + NCOL\r\n      IBUF1 = NZ   - SYSBUF\r\n      IBUF2 = IBUF1- SYSBUF\r\n      IBUF3 = IBUF2- SYSBUF\r\n      IOBUF = IBUF3- SYSBUF\r\n      IF (END .GE. IOBUF) GO TO 1300\r\nC\r\nC     GET ORTHOGONALITY FLAGS FOR PREVIOUS EIGENVECTORS\r\nC\r\n      IF (ITERTO .NE. 0) GO TO 160\r\n      IF (NORTHO .EQ. 0) GO TO 170\r\n      CALL GOPEN (FILEVC,Z(IOBUF),RDREW)\r\n      CALL GOPEN (FILEM ,Z(IBUF1),RDREW)\r\n      DO 150 I = 1,NORTHO\r\n      IX = IEND + I - 1\r\n      Z(IX) = 1.0\r\n      CALL UNPACK (*110,FILEVC,Z(II1))\r\n      GO TO 140\r\n  110 J = NCOL2\r\n      IF (IPREC .EQ. 2) GO TO 130\r\n  120 Z(J) = 0.0\r\n      J = J - 1\r\n      IF (J .GT. 0) GO TO 120\r\n      GO TO 140\r\n  130 DZ(J) = 0.0D0\r\n      J = J - 1\r\n      IF (J .GT. 0) GO TO 130\r\n  140 CALL M TIMS U (Z(II1),Z(JJ1),Z(IBUF1))\r\n      CALL X TRNS Y (Z(II1),Z(JJ1),DTEMP)\r\n      IF (DTEMP .LT. 0.0D0) Z(IX) = -1.0\r\n  150 CONTINUE\r\n      CALL CLOSE (FILEM ,REW)\r\n      CALL CLOSE (FILEVC,REW)\r\n      GO TO 170\r\n  160 IF (NORTHO .EQ. 0) GO TO 170\r\n      IFILE = DMPFIL\r\n      CALL GOPEN (DMPFIL,Z(IOBUF),RDREW)\r\n      CALL READ  (*1310,*1320,DMPFIL,Z(IEND),NORTHO,1,IDUM)\r\n      CALL CLOSE (DMPFIL,1)\r\n  170 IFILE = FILEM(1)\r\n      CALL GOPEN (IFILE,Z(IBUF3),RDREW)\r\n      IFILE = FILEL(1)\r\n      CALL GOPEN (IFILE,Z(IBUF1),RDREW)\r\nCWKBNB 1/95    FILELT NOT NEEDED FOR SMCOMP OR SDCOMP - ONLY DECOMP\r\n      IF (OPTION .NE. OPT2) GO TO 171     \r\n      IFILE = FILELT(1)\r\n      CALL GOPEN (IFILE,Z(IBUF2),RDREW)\r\n  171 CONTINUE\r\nCWKBNE 1/95\r\nC\r\nC     GENERATE A STARTING VECTOR\r\nC\r\n      IF (IVECT . EQ. 1) GO TO 240\r\n      KSAVE = K\r\n      K = IABS(IND)\r\n      IF (IPREC .EQ. 2) GO TO 210\r\n      DO 200 I = 1,NCOL\r\n      Z(I) = 1.0/FLOAT((MOD(K,13)+1)*(1+5*I/NCOL))\r\n  200 K = K + 1\r\n      GO TO 230\r\n  210 DO 220 I = 1,NCOL\r\n      DZ(I) = 1.0D0/FLOAT((MOD(K,13)+1)*(1+5*I/NCOL))\r\n  220 K = K + 1\r\n  230 K = KSAVE\r\n      GO TO 310\r\nC\r\nC      USE PREVIOUSLY STORED VECTOR AS A STARTING VECTOR\r\nC\r\n  240 IFILE = FILEVC\r\n      CALL GOPEN (FILEVC,Z(IOBUF),RD)\r\n      CALL BCKREC (FILEVC)\r\n      IN1 = 1\r\n      IF (COMFLG-1) 260,250,260\r\n  250 IN1 = JJ5\r\n      CALL BCKREC (FILEVC)\r\n  260 CALL UNPACK (*270,FILEVC,Z(IN1))\r\n      GO TO 300\r\n  270 J = IN1 + NCOL2\r\n      IF (IPREC .EQ. 2) GO TO 290\r\n  280 J = J - 1\r\n      Z(J) = 0.0\r\n      IF (J .GT. IN1) GO TO 280\r\n      GO TO 300\r\n  290 J = J - 1\r\n      DZ(J) = 0.0D0\r\n      IF (J   .GT.  IN1) GO TO 290\r\n  300 IF (COMFLG .EQ. 1) GO TO 320\r\n      CALL BCKREC (FILEVC)\r\n      CALL CLOSE  (FILEVC,NOREW)\r\n      IVECT = 0\r\n  310 CONTINUE\r\n      INTSUB = 1\r\n      GO TO 490\r\nC\r\nC     PICK UP THE LAST ITERATED VECTOR FOR A STARTING VECTOR\r\nC\r\n  320 CONTINUE\r\n      CALL UNPACK (*330,FILEVC,Z)\r\n      GO TO 360\r\n  330 J = NCOL2\r\n      IF (IPREC .EQ. 2) GO TO 350\r\n  340 Z(J) = 0.0\r\n      J = J - 1\r\n      IF (J .GT. 0) GO TO 340\r\n      GO TO 360\r\n  350 DZ(J) = 0.0D0\r\n      J = J - 1\r\n      IF (J.GT.0) GO TO 350\r\n  360 CALL BCKREC (FILEVC)\r\n      CALL BCKREC (FILEVC)\r\n      CALL CLOSE  (FILEVC,NOREW)\r\n      GO TO 310\r\nC\r\nC     SHIFT POINTERS TO VECTORS\r\nC\r\n  400 II  = II1\r\n      II1 = II2\r\n      II2 = II\r\n      II  = JJ1\r\n      JJ1 = JJ2\r\n      JJ2 = JJ3\r\n      JJ3 = II\r\n      IF (L16.EQ.0 .OR. KHR.EQ.0) GO TO 420\r\n      IF (NLNS .GE. NLPP) CALL PAGE1\r\n      NLNS = NLNS + 1\r\n      WRITE (IOUTPT,410) ITERTO,COMFLG,\r\n     1                   LMBDA,LAMBDA,LAM1,LAM2,ETA,DELTA,K,H2N,LAM1D\r\n  410 FORMAT (2I5,6(1P,D14.5),I5,2(1P,D14.5))\r\n  420 KHR = 1\r\nC\r\nC     SAVE N-1 VECTOR\r\nC\r\n      IF (SWITCH .NE. 0) GO TO 460\r\n      IXX = JJ5 + NCOL2 - 1\r\n      IXZ = II2\r\n      IF (IPREC .NE. 2) GO TO 440\r\n      DO 430 I = JJ5,IXX,2\r\n      Z(I  ) = Z(IXZ  )\r\n      Z(I+1) = Z(IXZ+1)\r\n  430 IXZ = IXZ + 2\r\n      GO TO 460\r\n  440 DO 450 I = JJ5,IXX\r\n      Z(I) = Z(IXZ)\r\n  450 IXZ  = IXZ + 1\r\n  460 CONTINUE\r\nC\r\nC     SHIFT PARAMETERS\r\nC\r\n      ALNM1  = ALN\r\n      ETANM1 = ETA\r\n      H2NM1  = H2N\r\n      LM1NM1 = LAM1\r\n      LM2NM1 = LAM2\r\nC\r\nC     CALL INVFBS TO MAKE ONE ITERATION\r\nC\r\n      CALL KLOCK (T1)\r\n      IF (OPTION .NE. OPT2) GO TO 470     \r\n      IF (FILEL(5) .EQ. 2) CALL INVFBS (Z(JJ3),Z(II1),Z(IOBUF))\r\n      IF (FILEL(5) .EQ. 1) CALL INTFBS (Z(JJ3),Z(II1),Z(IOBUF))\r\n      GO TO 480\r\n  470 CALL FBSINV (Z(JJ3),Z(II1),Z(IOBUF))\r\n  480 ITERTO = ITERTO + 1\r\n      ITER   = ITER   + 1\r\n      IEPCNT = IEPCNT + 1\r\n      CALL TMTOGO (IJKK)\r\n      IF (IJKK .LE. 0) GO TO 20\r\n      INTSUB = 2\r\n  490 CONTINUE\r\n      IF (NORTHO .EQ. 0) GO TO 550\r\nC\r\nC     NORMALIZE CURRENT ITERANT WITH RESPECT TO VECTORS FOUND IN THE\r\nC     CURRENT AND PREVIOUS SEARCH REGIONS\r\nC\r\n      CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF))\r\n      IFILE = FILEVC\r\n      CALL GOPEN (FILEVC,Z(IOBUF),RDREW)\r\n      DO 540 I = 1,NORTHO\r\n      CALL UNPACK (*500,FILEVC,Z(JJ4))\r\n      GO TO 530\r\n  500 J = JJ4 + NCOL2\r\n      IF (IPREC .EQ. 2) GO TO 520\r\n  510 J = J - 1\r\n      Z(J) = 0.0\r\n      IF (J .GT. JJ4) GO TO 510\r\n      GO TO 530\r\n  520 J = J - 1\r\n      DZ(J) = 0.0D0\r\n      IF (J .GT. JJ4) GO TO 520\r\n  530 CALL X TRNS Y (Z(JJ4),Z(JJ1),DTEMP)\r\n      IX = IEND + I - 1\r\n      DTEMP = -DTEMP*Z(IX)\r\n  540 CALL SUB (Z(JJ4),Z(II1),DTEMP,-1.0D0)\r\n      CALL CLOSE (FILEVC,NOREW)\r\n  550 CALL NORM1 (Z(II1),CN)\r\nC\r\nC     BEGIN TESTING CONVERGENCE CRITERIA\r\nC\r\nC     COMPUTE F(N)\r\nC\r\n      CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF))\r\nC\r\nC     COMPUTE ALPHA(N)\r\nC\r\n      CALL X TRNS Y (Z(II1),Z(JJ1),ALN)\r\n      ALN = DSQRT(DABS(ALN))\r\nC\r\nC     COMPUTE DELTA U(N)\r\nC\r\n      GO TO (400,600), INTSUB\r\n  600 CALL SUB (Z(II1),Z(II2),1.0D0/ALN,1.0D0/ALNM1)\r\nC\r\nC     COMPUTE DELTA F(N)\r\nC\r\n      CALL SUB (Z(JJ1),Z(JJ3),1.0D0/ALN,1.0D0/ALNM1)\r\n      LAM1 = ALNM1/(CN*ALN)\r\n      IF (IRAPID .EQ. 1) GO TO 900\r\n      CALL X TRNS Y (Z(II2),Z(JJ3),ETA)\r\n      ETA = DSQRT(DABS(ETA))\r\nC\r\nC     RAPID CONVERGENCE TEST\r\nC\r\n      IF (ETA .GE. A*EPS*GAMMA*DABS(1.0D0+LAMBDA/LAM1)) GO TO 620\r\n  610 IRAPID = 1\r\n      GO TO 400\r\n  620 IF (ITER   .EQ.     1) GO TO 400\r\n      IF (ETANM1 .GE. 1.E-6) GO TO 700\r\n      IF (ETA - 1.01*ETANM1) 700,700,610\r\nC\r\nC     EPSILON 2 TEST\r\nC\r\n  700 IF (IEP2  .EQ.  1) GO TO 720\r\n      IF (ETA .EQ. 0.D0) GO TO 910\r\n      CALL X TRNS Y (Z(II2),Z(JJ2),DTEMP)\r\n      LAM2 = LAM1*DTEMP/ETA**2\r\n      H2N  = (LAM2-LM2NM1)/LAMBDA\r\nCWKBI 3/94 THE FOLLOWING LINE ADDED TO GET AROUND AN APPARENT COMPILER BUG ON\r\nC          ULTRIX\r\n      IF ( ETA .EQ. 0.D0)print *,' invp3,lam1,dtemp,eta=',lam1,dtemp,eta\r\n      IF (ITER .LT. 4) GO TO 720\r\n      IF (EP2.GT.DABS(H2N) .AND. DABS(H2N).GT.DABS(H2NM1)) GO TO 710\r\n      GO TO 720\r\n  710 CONTINUE\r\n      IEP2 = 1\r\n      LAM2 = LM2NM1\r\n  720 DELTM1 = DELTA\r\n      DELTA  = ETA**2/DMIN1((1.0D0-LAM2/LAM1)**2,10.0D0)\r\nC\r\nC     VECTOR CONVERGENCE TEST\r\nC\r\n      IF (DSQRT(DELTA) .LE. A*EPS) GO TO 910\r\n      IF (ITER .LE. 3) GO TO 400\r\nC\r\nC     EPSILON 1 TEST\r\nC\r\n      IF (IEPCNT .GE. 100) GO TO 1270\r\n      IF (IEPCNT .GE.  10) GO TO 800\r\n      LAM1D = DABS(LAM1-LM1NM1)/RZERO\r\n      IF (LAM1D .GE. DBLE(EP1)) GO TO 400\r\n  800 CONTINUE\r\nC\r\nC     SHIFT DECISION\r\nC\r\n      IF (IEPCNT.GT.5 .AND. DELTA.GT.DELTM1) GO TO 850\r\n      IF (DABS(LAM2/LAM1) .GT. 1.) GO TO 820\r\n      IF (KEP2) 850,810,810\r\n  810 KEP2 = -1\r\n      GO TO 400\r\n  820 KEP2 = 0\r\n      CALL KLOCK (T2)\r\n      TIMEIT = T2 - T1\r\n      K= DLOG(DSQRT(DABS(DELTA))/(A*EPS))/DABS(DLOG(DABS(LAM2/LAM1)))+1.\r\n      K= MIN0(K,9999)\r\n      IF (K .NE. KOLD) GO TO 830\r\n      KOUNT = KOUNT + 1\r\n      IF (KOUNT .GE. 6) GO TO 850\r\n      GO TO 840\r\n  830 KOLD  = K\r\n      KOUNT = 0\r\n  840 CONTINUE\r\n  850 LAMBDA= LAMBDA + LAM1\r\n      K     = 0\r\n      KOLD  =-1\r\n      KOUNT = 0\r\n      IEPCNT= 0\r\n      IF (L16  .EQ.    0) GO TO 870\r\n      IF (NLNS .GE. NLPP) CALL PAGE1\r\n      NLNS = NLNS + 3\r\n      WRITE  (IOUTPT,860) LAMBDA\r\n  860 FORMAT (18H0NEW SHIFT POINT =,1P,D14.5,/)\r\nC\r\nC     STORE THE LAST VECTOR BEFORE A SHIFT FOR USE AS A STARTING VECTOR\r\nC\r\n  870 IF (SWITCH .EQ. 1) GO TO 880\r\n      IN1 = II1\r\n      GO TO 890\r\n  880 IN1 = JJ5\r\n  890 IFILE = FILEVC\r\n      CALL GOPEN (FILEVC,Z(IOBUF),WRT)\r\n      CALL PACK  (Z(IN1),FILEVC,MCBVC)\r\n      IVECT  = 1\r\n      COMFLG = 1\r\nC\r\nC     STORE THE CURRENT VECTOR ON THE EIGENVECTOR FILE SO IT CAN BE\r\nC     USED AS A STARTING VECTOR\r\nC\r\n      CALL PACK  (Z(II1),FILEVC,MCBVC)\r\n      CALL CLOSE (FILEVC,EOFNRW)\r\n      GO TO 1140\r\nC\r\nC     MAKE EPSILON 1 TEST\r\nC\r\n  900 IF (DABS (LAM1-LM1NM1)/RZERO .GE. DBLE(EP1)) GO TO 400\r\nC\r\nC     CONVERGENCE ACHIEVED, NORMALIZE THE EIGENVECTOR\r\nC\r\n  910 CALL M TIMS U (Z(II1),Z(JJ1),Z(IOBUF))\r\n      CALL X TRNS Y (Z(II1),Z(JJ1),DTEMP)\r\n      IX = IEND + NORTHO\r\n      Z(IX) = 1.0\r\n      IF (DTEMP .LT. 0.0D0) Z(IX) = -1.0\r\n      DTEMP = 1.0D0/DSQRT(DABS(DTEMP))\r\n      J = II1\r\n      KLOCAL = II1 + NCOL2 - 1\r\n      IF (IPREC .NE. 2) GO TO 930\r\n      J = (J+1)/2\r\n      KLOCAL = KLOCAL/2\r\n      DO 920 I = J,KLOCAL\r\n  920 DZ(I) = DZ(I)*DTEMP\r\n      GO TO 950\r\n  930 DO  940 I = J,KLOCAL\r\n  940 Z(I) = Z(I)*DTEMP\r\n  950 CONTINUE\r\nC\r\nC     STORE THE EIGENVECTOR AND EIGENVALUE ON THE OUTPUT FILES\r\nC\r\n      LAM1 = LAM1 + LAMBDA\r\n      IF (L16  .EQ. 0) GO TO 1010\r\n      IF (NLNS .GE. NLPP) CALL PAGE1\r\n      NLNS = NLNS + 3\r\n      FREQ = (1.0D0/(8.0D0*DATAN(1.0D0)))*DSQRT(DABS(LAM1))\r\n      WRITE  (IOUTPT,1000) LAM1,FREQ\r\n 1000 FORMAT (32H0CONVERGENCE ACHIEVED AND LAM1 =,1P,D14.5,\r\n     1        7X,'FREQ =',1P,D14.5,'HZ',/)\r\n 1010 IFILE = FILEVC\r\n      CALL GOPEN (FILEVC,Z(IOBUF),WRT)\r\n      CALL PACK  (Z(II1),FILEVC,MCBVC)\r\n      CALL CLOSE (FILEVC,EOFNRW)\r\n      CALL GOPEN (FILELM,Z(IOBUF),WRT)\r\n      CALL WRITE (FILELM,LAM1,2,1)\r\n      CALL CLOSE (FILELM,EOFNRW)\r\n      CALL CLOSE (SR7FIL,EOFNRW)\r\n      CALL CLOSE (FILEL,REW)\r\n      CALL CLOSE (FILELT,REW)\r\n      CALL CLOSE (FILEM,REW)\r\n      NORTHO = NORTHO + 1\r\n      IEP2   = 0\r\n      IRAPID = 0\r\n      NOCHNG = 0\r\n      IF (LAM1) 1020,1030,1030\r\n 1020 IF (IBUCK .NE. 3) GO TO 1030\r\n      IF (LAM1 .GE. LAMMIN) NONEG = NONEG + 1\r\n      GO TO 1040\r\n 1030 IF (LAM1 .LE. LAMMAX) NOPOS = NOPOS + 1\r\n 1040 IF (NOPOS.GE.NDPLUS .AND. NONEG.GE.NDMNUS) GO TO 1230\r\n      IF (NORTHO .GE. NCOL-NZERO) GO TO 1220\r\n      IF (NORTHO .GE.    3*NOEST) GO TO 1210\r\n      COMFLG = 0\r\n      IF (SWITCH .EQ. 0) GO TO 1050\r\n      SWITCH = 0\r\n      LAMBDA = LMBDA\r\n      GO TO 1060\r\n 1050 CONTINUE\r\n      IVECT = 0\r\n      IF (ITER .LE. 5) GO TO 1070\r\n 1060 IN1 = JJ5\r\n      CALL GOPEN (FILEVC,Z(IOBUF),WRT)\r\n      CALL PACK  (Z(IN1),FILEVC,MCBVC)\r\n      CALL CLOSE (FILEVC,EOFNRW)\r\n      IVECT = 1\r\n 1070 ITER  = 0\r\nC\r\nC     TEST IF REGION IS EXHAUSTED\r\nC\r\n      IF (NEG) 1120,1100,1110\r\nC\r\nC     NO NEGATIVE REGION\r\nC\r\n 1100 IF (LAM1 .GT. LAMMAX) GO TO 1240\r\n      GO TO 1130\r\nC\r\nC     ON POSITIVE SIDE\r\nC\r\n 1110 IF (NOPOS.LT.NDPLUS .AND. LAM1.LE.LAMMAX) GO TO 1130\r\nC\r\nC     SWITCH TO NEGATIVE SIDE\r\nC\r\n      COMFLG = 3\r\n      GO TO 1140\r\nC\r\nC     ON NEGATIVE SIDE\r\nC\r\n 1120 IF (NONEG.GE.NDMNUS .OR. LAM1.LT.LAMMIN) GO TO 1240\r\nC\r\nC     CONTINUE ON SAME SIDE\r\nC\r\n 1130 IF (LAM1.LE.LAMBDA+RZERO .AND. LAM1.GE.LAMBDA-RZERO) GO TO 1250\r\n      IF (IREG.NE.0 .AND. IND.GT.0) GO TO 1200\r\n      COMFLG = 0\r\n      IND = -IND\r\n 1140 CALL CLOSE (FILEL,REW)\r\n      CALL CLOSE (FILELT,REW)\r\n      CALL CLOSE (FILEM,REW)\r\n      CALL WRTTRL (MCBVC)\r\n      IF (L16  .EQ.    0) GO TO 1150\r\n      IF (NLNS .GE. NLPP) CALL PAGE1\r\n      NLNS = NLNS + 1\r\n      WRITE (IOUTPT,410) ITERTO,COMFLG,LMBDA,LAMBDA,\r\n     1                   LAM1,LAM2,ETA,DELTA,K,H2N,LAM1D\r\n 1150 IF (NORTHO .EQ. 0) RETURN\r\nC\r\n      CALL GOPEN (DMPFIL,Z(IOBUF),WRTREW)\r\n      CALL WRITE (DMPFIL,Z(IEND),NORTHO,1)\r\n      CALL CLOSE (DMPFIL,1)\r\n      RETURN\r\nC\r\n 1200 IND = -(IND+1)\r\n      IVECT = 0\r\n      IF (IND .EQ .-13) IND = -1\r\n      GO TO 1260\r\n 1210 COMFLG = 4\r\n      GO TO 1140\r\n 1220 COMFLG = 5\r\n      GO TO 1140\r\n 1230 COMFLG = 6\r\n      GO TO 1140\r\n 1240 COMFLG = 7\r\n      GO TO 1140\r\n 1250 IND = IABS(IND)\r\n      IREG = 1\r\n      XXX = LAM1 - LAMBDA\r\n      IF (EPS*ABS(RZERO) .GE. EP3*ABS(XXX)) GO TO 1270\r\n 1260 IF (NORTHO .EQ. 0) GO TO 10\r\n      CALL GOPEN (DMPFIL,Z(IOBUF),WRTREW)\r\n      CALL WRITE (DMPFIL,Z(IEND),NORTHO,1)\r\n      CALL CLOSE (DMPFIL,1)\r\n      GO TO 10\r\nC\r\nC     CURRENT SHIFT POINT TOO CLOSE TO THE EIGENVALUE\r\nC\r\n 1270 IF (COMFLG .NE. 2) GO TO 1280\r\n      COMFLG = 9\r\n      GO TO 1140\r\n 1280 CONTINUE\r\n      XXX = LAM1 - LAMBDA\r\n      LAMBDA = LAMBDA + SIGN(.02,XXX)*RZERO\r\n      COMFLG = 2\r\n      GO TO 1140\r\nC\r\nC     ERROR EXITS\r\nC\r\n 1300 NO = -8\r\n      IFILE = END - IOBUF\r\n      GO TO 1330\r\n 1310 NO = -2\r\n      GO TO 1330\r\n 1320 NO = -3\r\n 1330 CALL MESAGE (NO,IFILE,NAME(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invpwr.f",
    "content": "      SUBROUTINE INVPWR\r\nC\r\nC     GIVEN A REAL SYMETRIC MATRIX, INVPWR WILL SOLVE FOR ALL OF THE\r\nC     EIGENVALUES AND EIGENVECTORS WITHIN A SPECIFIED RANGE\r\nC\r\nC     DEFINITION OF INPUT AND OUTPUT PARAMETERS\r\nC\r\nC     FILEK(7) =  MATRIX CONTROL BLOCK FOR THE INPUT STIFFNESS MATRIX K\r\nC     FILEM(7) =  MATRIX CONTROL BLOCK FOR THE INPUT MASS MATRIX M\r\nC     FILELM(7)=  MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVALUES\r\nC     FILEVC(7)=  MATRIX CONTROL BLOCK FOR THE OUTPUT EIGENVECTORS\r\nC     SR1FIL-\r\nC     SR7FIL   =  SCRATCH FILES REQUIRED INTERNALLY\r\nC     LAMMIN   =  MINIMUM VALUE FOR THE EIGENVALUE\r\nC     LAMMAX   =  MAXIMUM VALUE FOR THE EIGENVALUE\r\nC     NOEST    =  NUMBER OF ESTIMATED EIGENVALUES WITHIN THE SPECIFIED\r\nC                 RANGE\r\nC     NDPLUS   =  NUMBER OF DESIRED EIGENVALUES IN THE POSITIVE RANGE\r\nC     NDMNUS   =  NUMBER OF DESIRED EIGENVALUES IN THE NEGATIVE RANGE\r\nC     EPS      =  CONVERGENCE CRITERIA\r\nC\r\nC     FILELM AND FILEVC WILL BE USED AS SR1FIL AND SR2FIL WHILE THE\r\nC     EIGENVALUES AND EIGENVECTORS WILL BE STORED ON THE ACTUAL SR1FIL\r\nC     AND SR2FIL. THE ORDERING OF THE EIGENVALUES AND EIGENVECTORS WILL\r\nC     PUT THEM ON FILELM AND FILEVC IN THE CORRECT SEQUENCE AT THE END\r\nC     OF THE SUBROUTINE\r\nC\r\nC     SR1FIL-FILELM CONTAINS (K-LAMBDA*M)\r\nC     SR2FIL-FILEVC CONTAINS THE LOWER TRIANGLE L\r\nC     SR3FIL        CONTAINS THE UPPER TRIANGLE U\r\nC     SR4FIL        IS USED AS SCRATCH IN DECOMP\r\nC     SR5FIL        IS USED AS SCRATCH IN DECOMP\r\nC     SR6FIL        IS USED AS SCRATCH IN DECOMP\r\nC     SR7FIL        CONTAINS THE VECTORS WHICH ARE USED TO ORTHOGONALIZE\r\nC                   THE CURRENT ITERATE\r\nC\r\n      EXTERNAL          NORM11    ,SUB1     ,MTMSU1   ,XTRNY1   ,\r\n     1                  NORM1     ,SUB      ,MTIMSU   ,XTRNSY\r\n      INTEGER           SYSBUF    ,COMFLG   ,FILEK    ,NAME(2)  ,\r\n     1                  SWITCH    ,DMPFIL   ,IZ(12)   ,STURM    ,\r\n     2                  T1        ,T2       ,TIMED\r\n      INTEGER           WRTREW    ,REW      ,SR1FIL   ,SR2FIL\r\n      REAL              LAMMIN    ,LAMMAX   ,LMIN     ,Z        ,\r\n     1                  ZZ(1)\r\n      DOUBLE PRECISION  LAMBDA    ,LMBDA\r\n      COMMON   /DCOMPX/ DUMXX(35) ,ISYM\r\n      COMMON   /INVPWX/ FILEK(7)  ,FILEM(7) ,FILELM(7),FILEVC(7),\r\n     1                  SR1FIL    ,SR2FIL   ,SR3FIL   ,SR4FIL   ,\r\n     2                  SR5FIL    ,SR6FIL   ,SR7FIL   ,SR8FIL   ,\r\n     3                  DMPFIL    ,LAMMIN   ,LAMMAX   ,NOEST    ,\r\n     4                  NDPLUS    ,NDMNUS   ,EPS      ,NORTHO\r\n      COMMON   /STURMX/ STURM     ,SHFTPT   ,KEEP(2)\r\n      COMMON   /INVPXX/ LAMBDA    ,COMFLG   ,ITER     ,TIMED    ,\r\n     1                  NOPOS     ,RZERO    ,NEG      ,NOCHNG   ,\r\n     2                  IND       ,LMBDA    ,SWITCH   ,NZERO    ,\r\n     3                  NONEG     ,IVECT    ,IREG     ,ISTART\r\n      COMMON   /SYSTEM/ KSYSTM(65)\r\n      COMMON   /NAMES / RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                  REW       ,NOREW    ,EOFNRW\r\n      COMMON   /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE       (ZZ(1),Z(1))\r\n      EQUIVALENCE       (IZ(1),Z(1)), (KSYSTM(1),SYSBUF),\r\n     1                  (KSYSTM(55),IPREC)\r\n      DATA      NAME  / 4HINVP,4HWR  /\r\nC\r\nC     DEFINITION OF INTERNAL PARAMETERS\r\nC\r\nC     NSHIFT =  NUMBER OF SHIFT POINTS\r\nC     ISHIFT =  CURRENT SHIFT REGION\r\nC     NOVECT =  NUMBER OF EIGENVECTORS FOUND IN A GIVEN REGION\r\nC     NOSKIP =  NUMBER OF VECTORS TO SKIP TO REACH THE LAST SHIFT REGION\r\nC     NEG    =  1 = FIND NEGATIVE ROOTS\r\nC               0 = FIND ONLY POSITIVE ROOTS\r\nC              -1 = WE ARE NOW SEARCHING FOR THE NEGATIVE ROOTS\r\nC     LAMBDA =  THE CURRENT SHIFT POINT\r\nC     RZEROP =  THE CURRENT EIGENVALUE MUST BE .LT. LAMBDA + RZEROP\r\nC     RZEROM =  THE CURRENT EIGENVALUE MUST BE .GT. LAMBDA - RZEROM\r\nC     LMBDA  =  THE ORIGINAL VALUE OF LAMBDA IN A GIVEN REGION\r\nC     COMFLG =  0 = INITIAL ENTRY WITH NEW LAMBDA\r\nC               1 = NEW SHIFT POINT WITHIN THE SEARCH REGION\r\nC               2 = NEW SHIFT DUE TO CLOSENESS TO AN EIGENVALUE\r\nC               3 = NUMBER OF DESIRED POSITIVE ROOTS FOUND\r\nC               4 = NUMBER FOUND EXCEEDS 3*NOEST\r\nC     ISING  =  SINGULARITY FLAG  0 = NO SINGULARITY\r\nC                                 1 = SINGULAR MATRIX - CHANGE LAMBDA\r\nC                                     AND TRY ONE MORE TIME\r\nC     ITER   =  TOTAL NUMBER OF ITERATIONS\r\nC     NOCHNG =  NUMBER OF SHIFTS WITHIN ONE REGION\r\nC     TIMED  =  TIME REQUIRED TO FORM AND DECOMPOSE (K-LAMBDA*M)\r\nC     NFIRST =  NUMBER OF VECTORS IN THE FIRST POSITIVE SEARCH REGION\r\nC\r\n      ISYM   = 1\r\n      NSHIFT = (NOEST+5)/6\r\n      MXCHNG = MAX0 (10, NSHIFT)\r\n      NCOL   = FILEK(2)\r\n      NCOL2  = 2*NCOL\r\n      ISHIFT = 1\r\n      NZ     = KORSZ(ZZ(1))\r\n      ICRQ   = NCOL*(1+7*IPREC) + 4*SYSBUF - NZ\r\n      IF (ICRQ .GT. 0) GO TO 220\r\n      NZ     = KORSZ(Z(1))\r\n      IBUF1  = NZ - SYSBUF\r\n      ICRQ   = NCOL2 - IBUF1\r\n      IF (IBUF1 .LE. NCOL2) GO TO 220\r\n      NOPOS  = NORTHO\r\n      NONEG  = 0\r\n      NEG    = 0\r\n      IND    = 0\r\n      ITER   = 0\r\n      NODCMP = 0\r\n      NOSTRT = 0\r\n      NOMOVS = 0\r\n      IF (NORTHO .GT. 0) GO TO 20\r\n      CALL GOPEN (SR1FIL,Z(IBUF1),WRTREW)\r\n      CALL CLOSE (SR1FIL,NOREW)\r\n      CALL GOPEN (SR2FIL,Z(IBUF1),WRTREW)\r\n      CALL CLOSE (SR2FIL,NOREW)\r\n   20 LMIN   = LAMMIN\r\n      IF (LAMMIN .GE. 0.0) GO TO 30\r\n      LMIN   = 0.\r\n      NEG    = 1\r\n      IF (LAMMAX .GT. 0.0) GO TO 30\r\n      LMIN   = LAMMAX\r\n      NEG    =-1\r\n      DELLAM = LAMMIN - LAMMAX\r\n      GO TO 40\r\nC\r\nC     EVALUATE THE VALUE OF LAMBDA IN THE CENTER OF THE CURRENT SEARCH\r\nC     REGION\r\nC\r\n   30 DELLAM = LAMMAX - LMIN\r\n   40 LAMBDA = LMIN + (ISHIFT - 0.5)*DELLAM/NSHIFT\r\n      RZERO  = ABS(0.55*DELLAM/NSHIFT)\r\n      NOSTRT = NOSTRT + 1\r\n   50 COMFLG = 0\r\n      LMBDA  = LAMBDA\r\nC\r\nC     INITIATE CLOCK TIME\r\nC\r\n      CALL KLOCK (ISTART)\r\n      NOCHNG = 0\r\n      SWITCH = 0\r\n      IVECT  = 0\r\n      IREG   = 0\r\n      IND    = IND + 1\r\n      IF (IABS(IND) .EQ. 13) IND = 1\r\n      ISING  = 0\r\n      GO TO 90\r\n   70 ISING  = 0\r\n      SWITCH = 1\r\n   90 IF (NOCHNG .GE. MXCHNG) GO TO 160\r\n      NOCHNG = NOCHNG + 1\r\n      CALL KLOCK (T1)\r\nC\r\nC     CALL IN ADD LINK TO FORM  (K-LAMBDA*M)\r\nC\r\n      CALL INVP1\r\nC\r\nC     CALL IN DECOMP TO DECOMPOSE THIS MATRIX\r\nC\r\n      NODCMP = NODCMP + 1\r\n      SHFTPT = LAMBDA\r\n      CALL INVP2 (*100)\r\n      CALL KLOCK (T2)\r\n      GO TO 110\r\nC\r\nC     SINGULAR MATRIX. INCREMENT LAMBDA AND TRY ONCE MORE\r\nC\r\n  100 IF (ISING .EQ. 1) GO TO 150\r\n      ISING  = 1\r\n      LAMBDA = LAMBDA + .02*RZERO\r\n      GO TO 90\r\nC\r\nC     DETERMINE THE TIME REQUIRED TO FORM AND DECOMPOSE (K-LAMBDA*M)\r\nC\r\n  110 TIMED  = T2 - T1\r\nC\r\nC     CALL IN THE MAIN LINK TO ITERATE FOR EIGENVALUES\r\nC\r\n      IF (IPREC  .EQ. 1) CALL INVP3 (NORM11,SUB1,MTMSU1,XTRNY1)\r\n      IF (IPREC  .EQ. 2) CALL INVP3 (NORM1 ,SUB ,MTIMSU,XTRNSY)\r\n      IF (COMFLG .EQ. 2) GO TO 200\r\n      IF (COMFLG .EQ. 1) GO TO 70\r\n      IF (COMFLG .EQ. 3) GO TO 130\r\n      IF (COMFLG .EQ. 0) GO TO 120\r\n      GO TO 170\r\n  120 ISHIFT = ISHIFT + 1\r\n      IF (ISHIFT .GT. NSHIFT) GO TO 130\r\n      GO TO 40\r\n  130 IF (NEG) 180,180,140\r\nC\r\nC     INITIALIZE PARAMETERS TO SOLVE FOR NEGATIVE EIGENVALUES\r\nC\r\n  140 X      = NSHIFT*(-LAMMIN/LAMMAX)\r\n      IX     = X\r\n      Y      = IX\r\n      IF (X .NE. Y) IX = IX + 1\r\n      NSHIFT = IX\r\n      NEG    =-1\r\n      DELLAM = LAMMIN\r\n      ISHIFT = 1\r\n      GO TO 40\r\n  150 ITERM  = 1\r\n      GO TO 190\r\n  160 ITERM  = 2\r\n      GO TO 190\r\n  170 ITERM  = COMFLG\r\n      GO TO 190\r\n  180 ITERM  = 3\r\nC\r\nC     RE-ORDER EIGENVALUES AND EIGENVECTORS\r\nC\r\n  190 CALL GOPEN (DMPFIL,Z(IBUF1),WRTREW)\r\n      IZ( 1) = 2\r\n      IZ( 2) = NORTHO\r\n      IZ( 3) = NOSTRT\r\n      IZ( 4) = NOMOVS\r\n      IZ( 5) = NODCMP\r\n      IZ( 6) = ITER\r\n      IZ( 7) = 0\r\n      IZ( 8) = ITERM\r\n      IZ( 9) = 0\r\n      IZ(10) = 0\r\n      IZ(11) = 0\r\n      IZ(12) = 0\r\n      CALL WRITE (DMPFIL,IZ,12,1)\r\n      CALL CLOSE (DMPFIL,REW)\r\n      RETURN\r\n  200 NOMOVS = NOMOVS + 1\r\n      GO TO 50\r\n  220 NO     =-8\r\n      IFILE  = ICRQ\r\n      CALL MESAGE (NO,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/invtr.f",
    "content": "      SUBROUTINE INVTR (*,X,DX)\r\nC\r\nC     INVTR WILL INVERT A LOWER OR UPPER TRIANGULAR MATRIX\r\nC\r\nC\r\nC     FILEA    =  MATRIX CONTROL BLOCK FOR THE INPUT FILE A\r\nC     FILEB    =  MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX B\r\nC     SCRFIL   =  SCRATCH FILE (NEEDED ONLY FOR AN UPPER TRIANGLE)\r\nC     NX       =  NUMBER OF CELLS OF CORE AVAILABLE AT X\r\nC     PREC     =  DESIRED PRECISION OF ARITHMETIC OPERATIONS\r\nC     X        =  BLOCK OF AVAILABLE CORE\r\nC     DX       =  SAME BLOCK AS X, BUT TYPED DOUBLE PRECISION\r\nC\r\n      INTEGER         RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW,RC,TRA2,\r\n     1                CORE,EOL,OUTBUF,TYPEA,TYPEB,PREC,TYPEAR,\r\n     2                FORMA,SYSBUF,BAKSKP,FORSKP,CMPLX,TRA,TRA1,SCRFIL,\r\n     3                FILEA,FILEB,T\r\n      DOUBLE PRECISION DX(1),DA(2),DTEMP\r\n      DIMENSION       X(1),NAME(2),T(7)\r\n      COMMON /TYPE  / PRC(2),NWDS(4),RC(10)\r\n      COMMON /SYSTEM/ SYSBUF\r\nC     COMMON /DESCRP/ LENGTH,MAJOR(1)\r\n      COMMON /ZNTPKX/ A(4),II,EOL\r\n      COMMON /INVTRX/ FILEA(7),FILEB(7),SCRFIL,NX,PREC\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW\r\n      COMMON /PACKX / IT1,IT2,IY,JY ,INCRY\r\n      COMMON /UNPAKX/ ITX1,IX,JX ,INCRX\r\n      EQUIVALENCE     (A(1),DA(1)),(FILEA(3),NROW),(FILEA(4),FORMA),\r\n     1                (FILEA(5),TYPEA),(FILEB(5),TYPEB)\r\n      DATA    NAME  / 4HINVT,4HR     /, T /7*0/\r\nC\r\nC     INITIALIZE\r\nC\r\n      TYPEAR = RC(TYPEA)\r\n      TYPEAR = RC(TYPEAR) + PREC - 1\r\n      INCR   = NWDS(TYPEAR)\r\n      IT1    = TYPEAR\r\n      IT2    = TYPEB\r\n      ITX1   = TYPEAR\r\n      INCRX  = 1\r\n      INCRY  = 1\r\n      FILEB(2) = 0\r\n      FILEB(6) = 0\r\n      FILEB(7) = 0\r\n      IOBUF = NX - SYSBUF\r\n      CMPLX = RC(TYPEAR)\r\n      CORE  = IOBUF - 1\r\n      CALL GOPEN (FILEB,X(IOBUF),1)\r\n      CALL CLOSE (FILEB,NOREW)\r\n      IF (FORMA .EQ. 5) GO TO 500\r\n      IF (FORMA .NE. 4) GO TO 1000\r\nC\r\nC     INVERT A LOWER TRIANGULAR MATRIX\r\nC\r\n      BAKSKP = NROW\r\n      FORSKP = 1\r\n      GO TO (1,2,3,4), TYPEAR\r\n    1 ASSIGN 50  TO TRA\r\n      ASSIGN 110 TO TRA1\r\n      GO TO  5\r\n    2 ASSIGN 60  TO TRA\r\n      ASSIGN 120 TO TRA1\r\n      GO TO  5\r\n    3 ASSIGN 70  TO TRA\r\n      ASSIGN 130 TO TRA1\r\n      GO TO  5\r\n    4 ASSIGN 80  TO TRA\r\n      ASSIGN 140 TO TRA1\r\n    5 CONTINUE\r\nC\r\nC     ALLOCATE CORE STORAGE\r\nC\r\n      CALL GOPEN (FILEA,X(IOBUF),0)\r\n      J = 1\r\nC\r\nC     SOLVE QUADRATIC FOR K\r\nC\r\n   10 M  = NROW - J + 1\r\n      L  = 2*M + 1\r\n      K  = M\r\n      IF (L*L .LE. 8/INCR*CORE) GO TO 20\r\n      A1 = L*L - 8/INCR*CORE\r\n      K  = SQRT(A1)\r\n      K  = K + 1\r\n      K  = (L-K)/2\r\n      IF (K .LE. 0) GO TO 1040\r\nC\r\nC     GENERATE COLUMNS J THROUGH J+K OF THE IDENTITY MATRIX (STORE\r\nC     ONLY THE LOWER TRIANGLE IN CORE)\r\nC\r\n   20 L = (M*K-(K*(K-1))/2)*INCR\r\n      DO 30 I = 1,L\r\n   30 X(I) = 0.\r\n      L = 1\r\n      IF (PREC .EQ. 2) GO TO 41\r\n      DO 40 I = 1,K\r\n      X(L) = 1.\r\n   40 L = L + (M-I+1)*INCR\r\n      GO TO 44\r\n   41 DO 42 I = 1,K\r\n      DX(L) = 1.D0\r\n   42 L = L + (M-I+1)*CMPLX\r\n   44 CONTINUE\r\nC\r\nC     READ MATRIX A ONE ELEMENT AT A TIME, ADDING IN TERMS TO THE\r\nC     IDENTITY MATRIX\r\nC\r\n      L  = 1\r\n      LL = 1\r\nC\r\nC     II =  COLUMN INDEX\r\nC     M  =  HEIGTH OF TRAPAZOID\r\nC     K  =  LENGTH OF TRAPAZOID\r\nC\r\n      DO 200 I = J,NROW\r\n      CALL INTPK (*1050,FILEA,0,TYPEAR,0)\r\n   45 IF (EOL) 1050,46,1050\r\n   46 CALL ZNTPKI\r\n      IF (I .NE. II) GO TO 45\r\n      L1 = 0\r\n      DO 90 I1 = 1,LL\r\n      IN1 = (L-1)*CMPLX + 1 + L1\r\n      GO TO TRA, (50,60,70,80)\r\n   50 X(IN1) = X(IN1)/A(1)\r\n      GO TO 90\r\n   60 DX(IN1) = DX(IN1)/DA(1)\r\n      GO TO 90\r\n   70 TEMP     = (A(1)*X(IN1  ) + A(2)*X(IN1+1))/(A(1)*A(1) + A(2)*A(2))\r\n      X(IN1+1) = (A(1)*X(IN1+1) - A(2)*X(IN1  ))/(A(1)*A(1) + A(2)*A(2))\r\n      X(IN1)   = TEMP\r\n      GO TO 90\r\n   80 DTEMP    = (DA(1)*DX(IN1  ) +DA(2)*DX(IN1+1))/(DA(1)**2 +DA(2)**2)\r\n      DX(IN1+1)= (DA(1)*DX(IN1+1) -DA(2)*DX(IN1  ))/(DA(1)**2 +DA(2)**2)\r\n      DX(IN1)  = DTEMP\r\n   90 L1 = L1 + (M-I1)*CMPLX\r\n  100 IF (EOL .EQ. 1) GO TO 190\r\n      CALL ZNTPKI\r\n      L1 = 0\r\n      DO 150 I1 = 1,LL\r\n      IN2 = (L-1)*CMPLX + 1+ L1\r\n      IN1 = IN2 + (II-I)*CMPLX\r\n      GO TO TRA1, (110,120,130,140)\r\n  110 X(IN1) = X(IN1) - A(1)*X(IN2)\r\n      GO TO 150\r\n  120 DX(IN1) = DX(IN1) - DA(1)*DX(IN2)\r\n      GO TO 150\r\n  130 X(IN1  ) = X(IN1  ) - A(1)*X(IN2  ) + A(2)*X(IN2+1)\r\n      X(IN1+1) = X(IN1+1) - A(1)*X(IN2+1) - A(2)*X(IN2  )\r\n      GO TO 150\r\n  140 DX(IN1  ) = DX(IN1  ) - DA(1)*DX(IN2  ) + DA(2)*DX(IN2+1)\r\n      DX(IN1+1) = DX(IN1+1) - DA(1)*DX(IN2+1) - DA(2)*DX(IN2  )\r\n  150 L1 = L1 + (M-I1)*CMPLX\r\n      GO TO 100\r\n  190 LL = LL + 1\r\n      IF (LL .GT. K) LL = K\r\n      L = L + 1\r\n  200 CONTINUE\r\n      FORSKP = FORSKP + K\r\n      BAKSKP = BAKSKP - K\r\n      I1 = REW\r\n      IF (BAKSKP .LT. FORSKP) I1 = NOREW\r\n      CALL CLOSE (FILEA ,I1)\r\n      CALL GOPEN (FILEB,X(IOBUF),WRT)\r\n      L  = 1\r\n      IY = J\r\n      JY = NROW\r\n      DO 205 I = 1,K\r\n      CALL PACK (X(L),FILEB,FILEB)\r\n      IY = IY + 1\r\n  205 L  = L  + (M-I+1)*INCR\r\n      CALL CLOSE (FILEB,NOREW)\r\n      J  = J + K\r\n      IF (J .LE. NROW) GO TO 206\r\n      CALL GOPEN (FILEB,X(IOBUF),WRT)\r\n      CALL CLOSE (FILEB,REW)\r\n      RETURN\r\nC\r\n  206 CONTINUE\r\n      CALL GOPEN (FILEA,X(IOBUF),RD)\r\n      IF (FORSKP .GT. BAKSKP) GO TO 220\r\n      CALL SKPREC (FILEA,FORSKP)\r\n      GO TO 10\r\n  220 CALL SKPREC (FILEA,-BAKSKP)\r\n      GO TO 10\r\nC\r\nC     INVERT UPPER TRIANGULAR MATRIX\r\nC\r\n  500 GO TO (510,520,530,540), TYPEAR\r\n  510 ASSIGN 600 TO TRA\r\n      ASSIGN 700 TO TRA1\r\n      ASSIGN 770 TO TRA2\r\n      GO TO  550\r\n  520 ASSIGN 610 TO TRA\r\n      ASSIGN 710 TO TRA1\r\n      ASSIGN 780 TO TRA2\r\n      GO TO  550\r\n  530 ASSIGN 610 TO TRA\r\n      ASSIGN 720 TO TRA1\r\n      ASSIGN 790 TO TRA2\r\n      GO TO  550\r\n  540 ASSIGN 630 TO TRA\r\n      ASSIGN 730 TO TRA1\r\n      ASSIGN 800 TO TRA2\r\nC\r\nC     REWRITE UPPER TRIANGULAR MATRIX ON SCRATCH FILE\r\nC\r\n  550 INBUF  = IOBUF\r\n      FORSKP = NROW + 1\r\n      BAKSKP = 0\r\n      OUTBUF = INBUF - SYSBUF\r\n      IF (OUTBUF .LT. NROW+1) GO TO 1040\r\n      CALL GOPEN (FILEA,X(IOBUF),0)\r\nC\r\nC     POSITION FILE AT LAST RECORD\r\nC\r\n      CALL SKPREC (FILEA,NROW)\r\nC\r\nC     REWRITE THE INPUT MATRIX ON A SCRATCH FILE WITH THE RECORDS\r\nC     WRITTEN IN THE REVERSE ORDER AND THE COLUMNS INVERTED\r\nC\r\n      CALL GOPEN (SCRFIL,X(OUTBUF),1)\r\n      IT2 = TYPEAR\r\n      DO 645 I = 1,NROW\r\n      IX = 1\r\n      JX = 0\r\n      CALL BCKREC (FILEA)\r\n      CALL UNPACK (*1050,FILEA,X)\r\n      CALL BCKREC (FILEA)\r\n      KK = JX - IX + 1\r\n      K  = KK/2\r\n      IF (K .EQ. 0) GO TO 641\r\n      KK = KK + 1\r\n      DO 640 J = 1,K\r\n      L  = KK - J\r\n      GO TO TRA, (600,610,630)\r\n  600 TEMP = X(J)\r\n      X(J) = X(L)\r\n      X(L) = TEMP\r\n      GO TO 640\r\n  610 DTEMP = DX(J)\r\n      DX(J) = DX(L)\r\n      DX(L) = DTEMP\r\n      GO TO 640\r\n  630 DTEMP = DX(J)\r\n      DX(J) = DX(L)\r\n      DX(L) = DTEMP\r\n      DTEMP = DX(J+1)\r\n      DX(J+1) = DX(L+1)\r\n      DX(L+1) = DTEMP\r\n  640 CONTINUE\r\n  641 CONTINUE\r\n      IY = NROW - JX + 1\r\n      JY = NROW - IX + 1\r\n      CALL PACK (X,SCRFIL,T)\r\n  645 CONTINUE\r\n      IT1 = TYPEAR\r\n      IT2 = TYPEB\r\n      CALL CLOSE (FILEA,REW)\r\n      CALL CLOSE (SCRFIL,EOFNRW)\r\n      CALL GOPEN (SCRFIL,X(IOBUF),0)\r\n      CALL SKPREC (SCRFIL,NROW)\r\n      CALL CLOSE (SCRFIL,NOREW)\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      J  = 0\r\n  650 M  = J + 1\r\n      CALL GOPEN (SCRFIL,X(IOBUF),RD)\r\n      K  = NROW - J\r\n      IF (K*M+K*(K-1)/2 .LT. CORE/INCR) GO TO 652\r\n      A1 = (2*M-1)**2 + 8*CORE/INCR\r\n      K  = SQRT(A1)\r\n      K  = (-(2*M-1)+K)/2\r\n      IF (K .LE. 0) GO TO 1040\r\n  652 BAKSKP = BAKSKP + K\r\n      FORSKP = FORSKP - K\r\nC\r\nC     POSITION SCRATCH FILE\r\nC\r\n      IF (FORSKP .GT. BAKSKP) GO TO 660\r\n      CALL REWIND (SCRFIL)\r\n      CALL SKPREC (SCRFIL,FORSKP)\r\n      GO TO 665\r\n  660 CALL SKPREC (SCRFIL,-BAKSKP)\r\n  665 CONTINUE\r\nC\r\nC     GENERATE UPPER TRIANGLE OF THE IDENTITY MATRIX\r\nC\r\n      LEND = (M*K+K*(K-1)/2)*INCR\r\n      DO 670 I = 1,LEND\r\n  670 X(I) = 0.\r\n      L = M\r\n      IF (PREC .EQ. 2) GO TO 676\r\n      DO 675 I = 1,K\r\n      X(L) = 1.\r\n  675 L = L + (I+M)*INCR\r\n      GO TO 680\r\n  676 DO 678 I = 1,K\r\n      DX(L) = 1.D0\r\n  678 L = L + (I+M)*CMPLX\r\n  680 CONTINUE\r\nC\r\nC     READ UPPER TRIANGLE ONE ELEMENT AT A TIME, ADDING IN\r\nC     APPROPIATE TERMS TO THE IDENTITY MATRIX\r\nC\r\n      IF (PREC .EQ. 2) LEND = LEND/2\r\n      J = J + K\r\n      L = 1\r\n      DO 901 JJ = 1,J\r\n      CALL INTPK (*1050,SCRFIL,0,TYPEAR,0)\r\n      CALL ZNTPKI\r\n      I = NROW - II + 1\r\n      IF (I .NE. J-JJ+1) GO TO 1050\r\n      L1 = 0\r\n      DO 750 I1 = 1,L\r\n      IN1 = LEND - L*CMPLX - L1 + 1\r\n      GO TO TRA1, (700,710,720,730)\r\n  700 X(IN1) = X(IN1)/A(1)\r\n      GO TO 740\r\n  710 DX(IN1) = DX(IN1)/DA(1)\r\n      GO TO 740\r\n  720 TEMP   = (A(1)*X(IN1  ) + A(2)*X(IN1+1))/(A(1)*A(1) + A(2)*A(2))\r\n      IN2    = IN1 + 1\r\n      X(IN2) = (A(1)*X(IN1+1) - A(2)*X(IN1  ))/(A(1)*A(1) + A(2)*A(2))\r\n      X(IN1) = TEMP\r\n      GO TO 740\r\n  730 DTEMP  = (DA(1)*DX(IN1  ) + DA(2)*DX(IN1+1))/(DA(1)**2 + DA(2)**2)\r\n      IN2    = IN1 + 1\r\n      DX(IN2)= (DA(1)*DX(IN1+1) - DA(2)*DX(IN1  ))/(DA(1)**2 + DA(2)**2)\r\n      DX(IN1)= DTEMP\r\n  740 CONTINUE\r\n  750 L1 = L1 + (M+K-1-I1)*CMPLX\r\n  760 IF (EOL .EQ. 1) GO TO 901\r\n      CALL ZNTPKI\r\n      L1 = 0\r\n      I  = J - JJ - NROW + II\r\n      DO 900 I1 = 1,L\r\n      IN2 = LEND - L*CMPLX - L1 + 1\r\n      IN1 = IN2 - I*CMPLX\r\n      GO TO TRA2, (770,780,790,800)\r\n  770 X(IN1) = X(IN1) - A(1)*X(IN2)\r\n      GO TO 810\r\n  780 DX(IN1) = DX(IN1) - DA(1)*DX(IN2)\r\n      GO TO 810\r\n  790 X(IN1  ) = X(IN1  ) - A(1)*X(IN2  ) + A(2)*X(IN2+1)\r\n      X(IN1+1) = X(IN1+1) - A(1)*X(IN2+1) - A(2)*X(IN2  )\r\n      GO TO 810\r\n  800 DX(IN1  ) = DX(IN1  ) - DA(1)*DX(IN2  ) + DA(2)*DX(IN2+1)\r\n      DX(IN1+1) = DX(IN1+1) - DA(1)*DX(IN2+1) - DA(2)*DX(IN2  )\r\n  810 L1 = L1 + (M+K-1-I1)*CMPLX\r\n  900 CONTINUE\r\n      GO TO 760\r\n  901 L = L + 1\r\n      CALL CLOSE (SCRFIL,NOREW)\r\n      CALL GOPEN (FILEB,X(IOBUF),WRT)\r\n      L = J - K + 1\r\n      LL= 1\r\n      DO 910 I = 1,K\r\n      IY = 1\r\n      JY = L\r\n      CALL PACK (X(LL),FILEB,FILEB)\r\n      L = L + 1\r\n  910 LL = LL + (M+I-1)*INCR\r\n      CALL CLOSE (FILEB,NOREW)\r\n      IF (J .LT. NROW) GO TO 650\r\n      CALL GOPEN (FILEB,X(IOBUF),WRT)\r\n      CALL CLOSE (FILEB,REW)\r\n      CALL GOPEN (SCRFIL,X(IOBUF),RD)\r\n      CALL CLOSE (SCRFIL,REW)\r\n      GO TO 2000\r\nC\r\n 1000 NO = -7\r\n      GO TO 1100\r\n 1040 NO = -8\r\n      GO TO 1100\r\n 1050 RETURN 1\r\n 1100 CALL MESAGE (NO,0,NAME)\r\nC\r\n 2000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/is2d8d.f",
    "content": "      SUBROUTINE IS2D8D\r\nC\r\nC     2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL  ELEMENT STIFFNESS,\r\nC     MASS, CONDUCTIVITY, AND CAPACITANCE ROUTINE\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      LOGICAL         ERROR,    HEAT\r\n      INTEGER         GE,       DICT(13), IND6(36), ISIL(8),  NAM(2)\r\n      INTEGER         SCR4,     BCD(2)\r\n      REAL            KX,       KY,       KXY\r\n      DIMENSION       VEC(3),   VVEC(3),  VECI(3),  VECJ(3),  VECK(3),\r\n     1                XY1(3),   XY2(3),   IZ(1),    ECPT(46), QQ(15),\r\n     2                IWS(2,3)\r\n      DOUBLE PRECISION          G(9),     XI(8),    ETA(8),   TB(9),\r\n     1                B(12),    BT(12),   TEMP(9),  TEMPAR(7),DNX(1),\r\n     2                DNY(1),   DNXI(1),  DNETA(1), SAVE(144),TSAVE(216)\r\n     3,               E1T(6),   TEMP1(9), TEMP2(9), TEMP3(9), PSTMUL(9),\r\n     4                PREMUL(6),DN(8),    XX(16),   DNC(16),  DNL(16),\r\n     5                XJB(4),   XXJB(2,2),PT(3),    H(3),     BIJ,\r\n     6                KIJ,      MIJ,      DETERM,   DUMARG,   DRHO,\r\n     7                DC,       DHH,      TERM,     THICK,    SAVM(36),\r\n     8                Z\r\n      COMMON /BLANK / SKIP(16), VOLUME,   SURFAC\r\n      COMMON /EMGEST/ NECPT(1), NGRID(8), ID1,      TH,       MATID1,\r\n     1                T,        ISYS1,    X1,       Y1,       Z1,\r\n     2                ISYS2,    X2,       Y2,       Z2,       ISYS3,\r\n     3                X3,       Y3,       Z3,       ISYS4,    X4,\r\n     4                Y4,       Z4,       ISYS5,    X5,       Y5,\r\n     5                Z5,       ISYS6,    X6,       Y6,       Z6,\r\n     6                ISYS7,    X7,       Y7,       Z7,       ISYS8,\r\n     7                X8,       Y8,       Z8,       TTEMP,    DUMB(119)\r\n      COMMON /MATIN / MATID,    INFLAG,   ELTEMP,   STRESS,   SINTH,\r\n     1                COSTH\r\n      COMMON/MATOUT / G11,      G12,      G13,      G22,      G23,\r\n     1                G33,      RHO,      ALPHA1,   ALPHA2,   ALPH12,\r\n     2                TREF,     GE,       DUM3(3)\r\n      COMMON /HMTOUT/ KX,       KXY,      KY,       C\r\n      COMMON /EMGDIC/ DUM2(2),  NLOCS,    ELID,     IESTID\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /EMGPRM/ IDUM,     JCORE,    NCORE,    DUM12(12),KMBGG(3),\r\n     1                IPREC,    ERROR,    HEAT,     COUP\r\n      EQUIVALENCE     (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (TEMP(1),B(1)),\r\n     1                (DNC(1),DNXI(1))  , (DNC(9),DNETA(1)),\r\n     2                (DNL(1),DNX(1))   , (DNL(9),DNY(1)), (QQ(1),G11),\r\n     3                (TEMPAR(1),BT(1)) , (XY1(1),X1)    , (XY2(1),X2),\r\n     4                (ISIL(1),NGRID(1))\r\n      DATA    XI    / -1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0,-1.D0/\r\n      DATA    ETA   / -1.D0,-1.D0, 1.D0, 1.D0,-1.D0, 0.D0, 1.D0, 0.D0/\r\n      DATA    IND6  / 1,7,49,13,55,91,19,61,97,127,25,67,103,133,157,31,\r\n     1                73,109,139,163,181,37,79,115,145,169,187,199,43,\r\n     2                85,121,151,175,193,205,211/\r\n      DATA    NAM   , BCD/ 4HIS2D,4H8D  , 4HCIS2,4HD8   /\r\n      DATA    SCR4  / 304 /\r\nC\r\nC     ECPT LIST\r\nC                                      IN\r\nC                                      THIS\r\nC     ECPT       DESCRIPTION           ROUTINE        TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID            NECPT(1)       INTEGER\r\nC     ECPT( 2) = GRID POINT 1          NGRID(1)       INTEGER\r\nC     ECPT( 3) = GRID POINT 2          NGRID(2)       INTEGER\r\nC     ECPT( 4) = GRID POINT 3          NGRID(3)       INTEGER\r\nC     ECPT( 5) = GRID POINT 4          NGRID(4)       INTEGER\r\nC     ECPT( 6) = GRID POINT 5          NGRID(5)       INTEGER\r\nC     ECPT( 7) = GRID POINT 6          NGRID(6)       INTEGER\r\nC     ECPT( 8) = GRID POINT 7          NGRID(7)       INTEGER\r\nC     ECPT( 9) = GRID POINT 8          NGRID(8)       INTEGER\r\nC     ECPT(10) = NO. OF GAUSS POINTS   ID1            INTEGER\r\nC     ECPT(11) = ANIS. MATERIAL ANGLE  TH             REAL\r\nC     ECPT(12) = MATERIAL ID           MATID1         INTEGER\r\nC     ECPT(13) = THICKNESS             T              REAL\r\nC     ECPT(14) = COORD SYS ID 1        ISYS1          INTEGER\r\nC     ECPT(15) = X1                    X1             REAL\r\nC     ECPT(16) = Y1                    Y1             REAL\r\nC     ECPT(17) = Z1                    Z1             REAL\r\nC     ECPT(18) = COORD SYS ID 2        ISYS2          INTEGER\r\nC     ECPT(19) = X2                    X2             REAL\r\nC     ECPT(20) = Y2                    Y2             REAL\r\nC     ECPT(21) = Z2                    Z2             REAL\r\nC     ECPT(22) = COORD SYS ID 3        ISYS3          INTEGER\r\nC     ECPT(23) = X3                    X3             REAL\r\nC     ECPT(24) = Y3                    Y3             REAL\r\nC     ECPT(25) = Z3                    Z3             REAL\r\nC     ECPT(26) = COORD SYS ID 4        ISYS4          INTEGER\r\nC     ECPT(27) = X4                    X4             REAL\r\nC     ECPT(28) = Y4                    Y4             REAL\r\nC     ECPT(29) = Z4                    Z4             REAL\r\nC     ECPT(30) = COORD SYS ID 5        ISYS5          INTEGER\r\nC     ECPT(31) = X5                    X5             REAL\r\nC     ECPT(32) = Y5                    Y5             REAL\r\nC     ECPT(33) = Z5                    Z5             REAL\r\nC     ECPT(34) = COORD SYS ID 6        ISYS6          INTEGER\r\nC     ECPT(35) = X6                    XL             REAL\r\nC     ECPT(36) = Y6                    Y6             REAL\r\nC     ECPT(37) = Z6                    Z6             REAL\r\nC     ECPT(38) = COORD SYS ID 7        ISYS7          INTEGER\r\nC     ECPT(39) = X7                    X7             REAL\r\nC     ECPT(40) = Y7                    Y7             REAL\r\nC     ECPT(41) = Z7                    Z7             REAL\r\nC     ECPT(42) = COORD SYS ID 8        ISYS8          INTEGER\r\nC     ECPT(43) = X8                    X8             REAL\r\nC     ECPT(44) = Y8                    Y8             REAL\r\nC     ECPT(45) = Z8                    Z8             REAL\r\nC     ECPT(46) = ELEMENT TEMP          TTEMP          REAL\r\nC\r\n      IF (JCORE+576 .GT. NCORE) CALL MESAGE (-8,0,NAM)\r\n      DICT(1) = IESTID\r\n      DICT(2) = 1\r\n      IF (HEAT) GO TO 1\r\n      DICT(3) = 24\r\n      DICT(4) = 7\r\n      NSQ     = 576\r\n      GO TO 2\r\n    1 DICT(3) = 8\r\n      DICT(4) = 1\r\n      NSQ     = 64\r\nC\r\nC     SAVE NGRID IN DUMB\r\nC\r\n    2 DO 3 I = 1,9\r\n    3 DUMB(I) = ECPT(I)\r\n      AREA = 0.0\r\nC\r\nC     SET UP SIL ARRAY SO THAT MATRICES ARE SET UP IN INCREASING SIL\r\nC     ORDER SIL(I)=PARTITION NUMBER OF ITH GRID POINT\r\nC\r\n      I =-8\r\n    5 J = 0\r\n      DO 6 K = 1,8\r\n      IF (ISIL(K) .LT. J) GO TO 6\r\n      J = ISIL(K)\r\n      L = K\r\n    6 CONTINUE\r\n      ISIL(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 5\r\n      DO 7 I = 1,8\r\n    7 ISIL(I) =-ISIL(I)\r\nC\r\n      DO 10 I = 1,NSQ\r\n   10 Z(JCORE+I) = 0.0D0\r\nC\r\nC     UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2\r\nC\r\n      DO 20 I = 1,3\r\n      VECI(I) = XY2(I)-XY1(I)\r\n   20 CONTINUE\r\n      VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (VECIL .EQ. 0.0) GO TO 40\r\n      VECI(1) = VECI(1)/VECIL\r\n      VECI(2) = VECI(2)/VECIL\r\n      VECI(3) = VECI(3)/VECIL\r\nC\r\nC     K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO\r\nC     GRID\r\nC\r\n      VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1)\r\n      VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1)\r\n      VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1)\r\n      VECKL   = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (VECKL .EQ. 0.0) GO TO 40\r\n      VECK(1) = VECK(1)/VECKL\r\n      VECK(2) = VECK(2)/VECKL\r\n      VECK(3) = VECK(3)/VECKL\r\nC\r\nC     J VECTOR IS OBTAINED BY CROSSING K INTO I\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\nC\r\n      E1T(1)  = VECI(1)\r\n      E1T(2)  = VECI(2)\r\n      E1T(3)  = VECI(3)\r\n      E1T(4)  = VECJ(1)\r\n      E1T(5)  = VECJ(2)\r\n      E1T(6)  = VECJ(3)\r\nC\r\nC     STORE ELEMENT COORDS FOR GRIDS 1 AND 2\r\nC\r\n      XX(1) = 0.D0\r\n      XX(2) = 0.D0\r\n      XX(3) = VECIL\r\n      XX(4) = 0.D0\r\nC\r\nC     FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR\r\nC     FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD.\r\nC     IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO\r\nC     THE GRID POINT.\r\nC\r\n      DO 30 I = 3,8\r\n      IXX  = 2*I - 1\r\n      ISUB = 4*I + 11\r\n      VEC(1)  = ECPT(ISUB  ) - X1\r\n      VEC(2)  = ECPT(ISUB+1) - Y1\r\n      VEC(3)  = ECPT(ISUB+2) - Z1\r\n      XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3)\r\n      VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2)\r\n      VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3)\r\n      VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1)\r\n      XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n   30 CONTINUE\r\n      GO TO 150\r\nC\r\nC     INAPPROPRIATE GEOMETRY\r\nC\r\n   40 CALL MESAGE (30,31,ECPT(1))\r\n      ERROR = .TRUE.\r\nC\r\n  150 IF (ERROR) RETURN\r\nC\r\nC     SET UP QUADRATURE POINTS AND WEIGHTS\r\nC\r\n      PT(1) =-0.57735027D0\r\n      PT(2) =-PT(1)\r\n      H(1)  = 1.D0\r\n      H(2)  = 1.D0\r\n      IF (ID1 .EQ. 2) GO TO 155\r\n      PT(1) =-0.77459667D0\r\n      PT(2) = 0.D0\r\n      PT(3) =-PT(1)\r\n      H(1)  = 5.D0/9.D0\r\n      H(2)  = 8.D0/9.D0\r\n      H(3)  = H(1)\r\nC\r\n  155 IF (HEAT) GO TO 700\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n      TTH   = TH*3.1415927/180.\r\n      SINTH = SIN(TTH)\r\n      COSTH = COS(TTH)\r\n      ELTEMP= TTEMP\r\n      INFLAG= 2\r\n      MATID = MATID1\r\n      CALL MAT (ECPT(1))\r\n      DO 160 I = 1,3\r\n  160 G(I)  = QQ(I)\r\n      G(4)  = QQ(2)\r\n      G(5)  = QQ(4)\r\n      G(6)  = QQ(5)\r\n      G(7)  = QQ(3)\r\n      G(8)  = QQ(5)\r\n      G(9)  = QQ(6)\r\n      THICK = T\r\n      DRHO  = RHO*T\r\nC\r\nC     ZERO THE SAVE MATRICES TO COLLECT INTEGRATIONS\r\nC\r\n      DO 210 I = 1,36\r\n  210 SAVM(I) = 0.D0\r\n      DO 220 I = 1,144\r\n  220 SAVE(I) = 0.D0\r\nC\r\nC     2 OR 3 QUADRATURE POINTS\r\nC\r\n      DO 300 III = 1,ID1\r\n      DO 300 JJJ = 1,ID1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 230 N = 1,4\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .25D0*(1.D0+PT(III)*XI(N))*\r\n     1   (1.D0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.D0)\r\n      DNXI(N)  = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))*\r\n     1           (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))*\r\n     1           (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N))\r\n  230 CONTINUE\r\nC\r\n      DO 231 N = 5,7,2\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .5D0*(1.D0-PT(III)*PT(III))*\r\n     1   (1.D0+PT(JJJ)*ETA(N))\r\n      DNXI(N)  = -PT(III)*(1.D0+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N)\r\n  231 CONTINUE\r\nC\r\n      DO 232 N = 6,8,2\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .5D0*(1.D0+PT(III)*XI(N))*\r\n     1   (1.D0-PT(JJJ)*PT(JJJ))\r\n      DNXI(N)  = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ))\r\n      DNETA(N) =-PT(JJJ)*(1.D0+PT(III)*XI(N))\r\n  232 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 240 I = 1,2\r\n      DO 240 J = 1,2\r\n      K = K + 1\r\n  240 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .NE. 2) GO TO 241\r\n      CALL MESAGE (30,143,ECPT(1))\r\n      ERROR =.TRUE.\r\n      RETURN\r\nC\r\n  241 CONTINUE\r\n      DHH  = DETERM*H(III)*H(JJJ)\r\n      AREA = AREA + DHH\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X AND Y\r\nC\r\n      K = 0\r\n      DO 250 I = 1,2\r\n      DO 250 J = 1,2\r\n      K = K + 1\r\n  250 XJB(K) = XXJB(I,J)\r\n      CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\nC     SET UP THE BT MATRIX\r\nC\r\n      IC = 0\r\n      DO 290 KK = 1,8\r\n      IF (KMBGG(1) .EQ. 0) GO TO 256\r\nC\r\n      DO 255 I = 1,12\r\n  255 BT(I) = 0.D0\r\n      BT(1) = DNX(KK)\r\n      BT(3) = DNY(KK)\r\n      BT(5) = DNY(KK)\r\n      BT(6) = DNX(KK)\r\nC\r\n      CALL GMMATD (TEMPAR(1),2,3,0,G,3,3,0,TEMPAR(7))\r\nC\r\nC     MULTIPLY G MATRIX BY PRESENT RESULTS\r\nC\r\nC     LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT\r\nC     PIVOT POINT\r\nC\r\n  256 CONTINUE\r\n      DO 290 N = KK,8\r\n      IC = IC + 1\r\n      IF (KMBGG(1) .EQ. 0) GO TO 281\r\nC\r\nC     SET UP THE B MATRIX\r\nC\r\n      DO 260 I = 1,12\r\n  260 B( I) = 0.D0\r\n      B( 1) = DNX(N)\r\n      B( 4) = DNY(N)\r\n      B( 5) = DNY(N)\r\n      B( 6) = DNX(N)\r\nC                                    T\r\nC     PERFORM MULTIPLICATION TO GET B *D*B\r\nC\r\n      CALL GMMATD (TEMPAR(7),2,3,0,B,3,2,0,TEMPAR(1))\r\nC\r\nC     THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS\r\nC\r\n      DO 270 I = 1,4\r\n      TEMPAR(I) = TEMPAR(I)*DHH\r\n  270 CONTINUE\r\nC\r\nC     ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS\r\nC\r\n      LL = 4*(IC-1)\r\n      DO 280 I = 1,4\r\n      L = LL + I\r\n      SAVE(L) = SAVE(L) + TEMPAR(I)\r\n  280 CONTINUE\r\n  281 CONTINUE\r\nC\r\n      IF (KMBGG(2) .EQ. 0) GO TO 289\r\nC\r\n      MIJ = DN(KK)*DN(N)*DHH\r\n      SAVM(IC) = SAVM(IC) + MIJ\r\n  289 CONTINUE\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  290 CONTINUE\r\nC\r\nC     LOOP FOR MORE GAUSS POINTS\r\nC\r\n  300 CONTINUE\r\n      IF (KMBGG(2) .EQ. 0) GO TO 306\r\n      DO 305 I = 1,36\r\n  305 SAVM(I) = SAVM(I)*DRHO\r\n  306 CONTINUE\r\nC\r\nC     CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 500\r\n      IC = 0\r\n      DO 385 KK = 1,8\r\n      ISUB = 4*KK + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 310\r\nC\r\nC     ELEMENT TO GLOBAL\r\nC\r\n      CALL TRANSD (NECPT(ISUB),TB)\r\n      CALL GMMATD (E1T,2,3,0,TB,3,3,0,PREMUL)\r\n      GO TO 350\r\n  310 DO 320 I = 1,6\r\n      PREMUL(I) = E1T(I)\r\n  320 CONTINUE\r\n  350 DO 380 N = KK,8\r\n      IC = IC + 1\r\n      LL = 4*IC - 3\r\n      CALL GMMATD (PREMUL,2,3,1,SAVE(LL),2,2,0,TEMP)\r\nC\r\nC     STORE THE 3 X 2 IN TSAVE\r\nC\r\n      DO 370 I = 1,6\r\n      L = 6*IC + I - 6\r\n  370 TSAVE(L) = TEMP(I)\r\nC\r\n  380 CONTINUE\r\n  385 CONTINUE\r\nC\r\nC     NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS\r\nC\r\n      IC = 0\r\n      DO 490 N = 1,8\r\n      ISUB = 4*N + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 410\r\nC\r\nC     GLOBAL TO ELEMENT\r\nC\r\n      CALL TRANSD (NECPT(ISUB),TB)\r\n      CALL GMMATD (E1T,2,3,0,TB,3,3,0,PSTMUL)\r\n      GO TO 450\r\n  410 DO 420 I = 1,6\r\n      PSTMUL(I) = E1T(I)\r\n  420 CONTINUE\r\nC\r\nC     POST-MULTIPLY\r\nC\r\nC     IND6 GIVES STARTING POSITIONS OF VERTICAL 3X3 PARTITIONS, SINCE\r\nC     THE NTH COLUMN MULTIPLIES INTO THE NTH POST-MULTIPLIER\r\nC\r\n  450 DO 485 M = 1,N\r\n      IC = IC + 1\r\n      LL = IND6(IC)\r\n      CALL GMMATD (TSAVE(LL),3,2,0,PSTMUL,2,3,0,TEMP)\r\n      DO 486 I =  1,9\r\n  486 TEMP(I) = TEMP(I)*THICK\r\nC\r\nC     PICK UP ROW AND COLUMN PARTITION NUMBERS AND CONVERT TO STARTING\r\nC     POINTS IN OPEN CORE FOR THIS PARTITION  AND ITS TRANSPOSE.\r\nC     TEMP IS PUT INTO ONE PARTITION AND TEMP-TRANSPOSE INTO THE OTHER\r\nC\r\n      NCOL = ISIL(N)\r\n      NROW = ISIL(M)\r\n      CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC)\r\nC\r\nC     LOOP FOR ANOTHER PARTITION FOR THIS POST-MULTIPLIER\r\nC\r\n  485 CONTINUE\r\nC\r\nC     LOOP FOR ANOTHER POST-MULTIPLIER\r\nC\r\n  490 CONTINUE\r\nC\r\nC     ADD TO DICTIONARY\r\nC\r\n      DICT(5) = GE\r\n      CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,IPREC)\r\nC\r\n  500 IF (KMBGG(2) .EQ. 0) GO TO 1000\r\nC\r\n      IC = 0\r\n      DO 620 KK = 1,8\r\n      DO 620 N = KK,8\r\n      IC = IC + 1\r\n      DO 510 I = 1,9\r\n  510 TEMP(I) = 0.D0\r\nC\r\nC     CHECK ON TEH NECESSITY OF COORDINATE TRANSFORMATIONS.\r\nC     SINCE EACH PARTITION IS A MULTIPLE OF A 3X3 IDENTITY AND SINCE\r\nC     THE TRANSFORAMATION MATRICES ARE ORTHOGONAL, NO EXPLICIT\r\nC     TRANSFORMA-TIONS FROM THE ELEMENT COORDINATE SYSTEM ARE REQUIRED.\r\nC     ALSO, NO TRANSFORAMTION IS REQUIRED IF TRANSFORMATION MATRICES ARE\r\nC     THE SAME FOR THE GRIDS CORRESPONDING TO THE THE ROW AND COLUMN\r\nC\r\n      TERM  = SAVM(IC)\r\n      IF (KK .EQ. N) GO TO 570\r\n      ISUB  = 4*KK + 10\r\n      ISUB1 =4*N + 10\r\n      IF (NECPT(ISUB).EQ.0 .AND. NECPT(ISUB1).EQ.0) GO TO 570\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 520\r\n      CALL TRANSD (NECPT(ISUB),TEMP1)\r\n      IF (NECPT(ISUB1) .EQ. 0) GO TO 530\r\n  520 CALL TRANSD (NECPT(ISUB1),TEMP2)\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 550\r\nC\r\nC     MULTIPLY THE TRANSFORMATION MATRICES\r\nC\r\n      CALL GMMATD (TEMP1,3,3,1,TEMP2,3,3,0,TEMP3)\r\n      GO TO 580\r\n  530 TEMP3(1) = TEMP1(1)\r\n      TEMP3(2) = TEMP1(4)\r\n      TEMP3(3) = TEMP1(7)\r\n      TEMP3(4) = TEMP1(2)\r\n      TEMP3(5) = TEMP1(5)\r\n      TEMP3(6) = TEMP1(8)\r\n      TEMP3(7) = TEMP1(3)\r\n      TEMP3(8) = TEMP1(6)\r\n      TEMP3(9) = TEMP1(9)\r\n      GO TO 580\r\n  550 DO 560 I = 1,9\r\n  560 TEMP3(I) = TEMP2(I)\r\n      GO TO 580\r\n  570 TEMP(1) = TERM\r\n      TEMP(5) = TERM\r\n      TEMP(9) = TERM\r\n      GO TO 600\r\nC\r\n  580 DO 590 I = 1,9\r\n  590 TEMP(I) = TERM*TEMP3(I)\r\nC\r\n  600 NROW = ISIL(KK)\r\n      NCOL = ISIL(N)\r\n      CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC)\r\n  620 CONTINUE\r\nC\r\n      CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,2,IPREC)\r\n      GO TO 1000\r\nC\r\nC     HEAT FORMULATION\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n  700 SINTH  = 0.\r\n      COSTH  = 0.\r\n      ELTEMP = TTEMP\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL HMAT (ECPT(1))\r\n      THICK  = T\r\n      DC     = C*T\r\nC\r\nC     ZERO OUT THE SAVE MATRIX\r\nC\r\n      DO 720 I = 1,36\r\n      SAVM(I) = 0.D0\r\n  720 SAVE(I) = 0.D0\r\nC\r\n      DO 880 III = 1,ID1\r\n      DO 880 JJJ = 1,ID1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 730 N = 1,4\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .25D0*(1.D0+PT(III)*XI(N))*\r\n     1   (1.D0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.D0)\r\n      DNXI(N)  = .25D0*XI(N)*(1.D0+PT(JJJ)*ETA(N))*\r\n     1           (2.D0*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25D0*ETA(N)*(1.D0+PT(III)*XI(N))*\r\n     1           (PT(III)*XI(N)+2.D0*PT(JJJ)*ETA(N))\r\n  730 CONTINUE\r\nC\r\n      DO 731 N = 5,7,2\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .5D0*(1.D0-PT(III)*PT(III))*\r\n     1   (1.D0+PT(JJJ)*ETA(N))\r\n      DNXI(N)  = -PT(III)*(1.D0+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .5D0*(1.D0-PT(III)*PT(III))*ETA(N)\r\n  731 CONTINUE\r\nC\r\n      DO 732 N = 6,8,2\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .5D0*(1.D0+PT(III)*XI(N))*\r\n     1    (1.D0-PT(JJJ)*PT(JJJ))\r\n      DNXI(N)  = .5D0*XI(N)*(1.D0-PT(JJJ)*PT(JJJ))\r\n      DNETA(N) = -PT(JJJ)*(1.D0+PT(III)*XI(N))\r\n  732 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATD (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 740 I = 1,2\r\n      DO 740 J = 1,2\r\n      K = K + 1\r\n  740 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERD (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .NE. 2) GO TO 741\r\n      CALL MESAGE (30,143,ECPT(1))\r\n      ERROR =.TRUE.\r\n      RETURN\r\nC\r\n  741 CONTINUE\r\n      DHH = DETERM*H(III)*H(JJJ)\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z\r\nC\r\n      K = 0\r\n      DO 750 I = 1,2\r\n      DO 750 J = 1,2\r\n      K = K + 1\r\n  750 XJB(K) = XXJB(I,J)\r\n      CALL GMMATD (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\nC     SET UP THE BT MATRIX\r\nC\r\n      IC = 0\r\n      DO 875 KK = 1,8\r\n      IF (KMBGG(1) .EQ. 0) GO TO 800\r\n      BT(1) = KX *DNX(KK) + KXY*DNY(KK)\r\n      BT(2) = KXY*DNX(KK) + KY*DNY(KK)\r\nC\r\nC     DO NOT TRANSFORM FROM MATERIAL COORD SYSTEM TO BASIC AND GLOBAL\r\nC     SINCE THIS IS A SCALAR PROBLEM\r\nC\r\n  800 DO 870 N = KK,8\r\n      IC = IC + 1\r\nC\r\nC     SET UP THE B MATRIX\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 810\r\n      B(1) = DNX(N)\r\n      B(2) = DNY(N)\r\nC\r\nC     O.K. NOW PERFORM FINAL MULTIPLICATION\r\nC\r\n      KIJ = BT(1)*B(1) + BT(2)*B(2)\r\nC\r\nC     THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS\r\nC\r\n      KIJ = KIJ*DHH\r\nC\r\nC     ADD THE RESULTS OF THIS INTEGRATION TO PREVIOUS RESULTS\r\nC\r\n      SAVE(IC) = SAVE(IC) + KIJ\r\n  810 IF (KMBGG(3) .EQ. 0) GO TO 870\r\n      BIJ = DN(KK)*DN(N)*DHH\r\n      SAVM(IC) = SAVM(IC) + BIJ\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  870 CONTINUE\r\n  875 CONTINUE\r\nC\r\nC     LOOP FOR ADDITIONAL GAUSS POINTS\r\nC\r\n  880 CONTINUE\r\nC\r\n      DO 890 I = 1,36\r\n      IF (KMBGG(1) .NE. 0) SAVE(I) = SAVE(I)*THICK\r\n      IF (KMBGG(3) .NE. 0) SAVM(I) = SAVM(I)*DC\r\n  890 CONTINUE\r\nC\r\nC     INSERT INTO OVERALL STIFFNESS MATRIX\r\nC\r\n      IC = 0\r\n      DO 900 I = 1,8\r\n      DO 900 J = I,8\r\n      IC = IC + 1\r\n      NROW = ISIL(I)\r\n      NCOL = ISIL(J)\r\n      IF (KMBGG(1) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE,Z,Z,\r\n     1    SAVE(IC),SAVE(IC),IPREC)\r\n      IF (KMBGG(3) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE+64,Z,Z,\r\n     1    SAVM(IC),SAVM(IC),IPREC)\r\n  900 CONTINUE\r\nC\r\n      IF (KMBGG(1) .NE. 0) CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,\r\n     1    IPREC)\r\n      IF (KMBGG(3) .NE. 0) CALL EMGOUT (Z(JCORE+64),Z(JCORE+64),NSQ,1,\r\n     1    DICT,3,IPREC)\r\n      GO TO 5000\r\nC\r\nC     SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS,\r\nC     GRID POINT DATA, AND AREA IF USER REQUESTED VOLUME AND AREA\r\nC     COMPUTATION\r\nC\r\n 1000 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000\r\n      ECPT(2) = ECPT(13)\r\n      ECPT(3) = RHO\r\n      J = 4\r\n      NECPT(J) = 8\r\n      ECPT(46) = AREA\r\n      CALL WRITE (SCR4,BCD,2,0)\r\n      CALL WRITE (SCR4,ECPT(1),4,0)\r\n      CALL WRITE (SCR4,DUMB(2),8,0)\r\n      CALL WRITE (SCR4,ECPT(14),33,1)\r\n 5000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/is2d8s.f",
    "content": "      SUBROUTINE IS2D8S\r\nC\r\nC     2-D, 8 GRID POINT ISOPARAMETRIC STRUCTURAL  ELEMENT STIFFNESS,\r\nC     MASS, CONDUCTIVITY, AND CAPACITANCE ROUTINE\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      LOGICAL         ERROR,    HEAT\r\n      INTEGER         GE,       DICT(13), IND6(36), ISIL(8),  NAM(2),\r\n     1                SCR4,     BCD(2)\r\n      REAL            KX,       KY,       KXY,      MIJ,      KIJ\r\n      DIMENSION       VEC(3),   VVEC(3),  VECI(3),  VECJ(3),  VECK(3),\r\n     1                XY1(3),   XY2(3),   IZ(1),    ECPT(46), QQ(15),\r\n     2                IWS(2,3)\r\n      DIMENSION       G(9),     XI(8),    ETA(8),   TB(9),\r\n     1                B(12),    BT(12),   TEMP(9),  TEMPAR(7),DNX(1),\r\n     2                DNY(1),   DNXI(1),  DNETA(1), SAVE(144),TSAVE(216)\r\n     3,               E1T(6),   TEMP1(9), TEMP2(9), TEMP3(9), PSTMUL(9),\r\n     4                PREMUL(6),DN(8),    XX(16),   DNC(16),  DNL(16),\r\n     5                XJB(4),   XXJB(2,2),PT(3),    H(3),     SAVM(36)\r\n      COMMON /BLANK / SKIP(16), VOLUME,   SURFAC\r\n      COMMON /EMGEST/ NECPT(1), NGRID(8), ID1,      TH,       MATID1,\r\n     1                T,        ISYS1,    X1,       Y1,       Z1,\r\n     2                ISYS2,    X2,       Y2,       Z2,       ISYS3,\r\n     3                X3,       Y3,       Z3,       ISYS4,    X4,\r\n     4                Y4,       Z4,       ISYS5,    X5,       Y5,\r\n     5                Z5,       ISYS6,    X6,       Y6,       Z6,\r\n     6                ISYS7,    X7,       Y7,       Z7,       ISYS8,\r\n     7                X8,       Y8,       Z8,       TTEMP,    DUMB(119)\r\n      COMMON /MATIN / MATID,    INFLAG,   ELTEMP,   STRESS,   SINTH,\r\n     1                COSTH\r\n      COMMON/MATOUT / G11,      G12,      G13,      G22,      G23,\r\n     1                G33,      RHO,      ALPHA1,   ALPHA2,   ALPH12,\r\n     2                TREF,     GE,       DUM3(3)\r\n      COMMON /HMTOUT/ KX,       KXY,      KY,       C\r\n      COMMON /EMGDIC/ DUM2(2),  NLOCS,    ELID,     IESTID\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /EMGPRM/ IDUM,     JCORE,    NCORE,    DUM12(12),KMBGG(3),\r\n     1                IPREC,    ERROR,    HEAT,     COUP\r\n      EQUIVALENCE     (ECPT(1),NECPT(1)), (Z(1),IZ(1)), (TEMP(1),B(1)),\r\n     1                (DNC(1),DNXI(1))  , (DNC(9),DNETA(1)),\r\n     2                (DNL(1),DNX(1))   , (DNL(9),DNY(1)), (QQ(1),G11),\r\n     3                (TEMPAR(1),BT(1)) , (XY1(1),X1)    , (XY2(1),X2),\r\n     4                (ISIL(1),NGRID(1))\r\n      DATA    XI    / -1.00, 1.00, 1.00,-1.00, 0.00, 1.00, 0.00,-1.00/\r\n      DATA    ETA   / -1.00,-1.00, 1.00, 1.00,-1.00, 0.00, 1.00, 0.00/\r\n      DATA    IND6  / 1,7,49,13,55,91,19,61,97,127,25,67,103,133,157,31,\r\n     1                73,109,139,163,181,37,79,115,145,169,187,199,43,\r\n     2                85,121,151,175,193,205,211/\r\n      DATA    NAM   , BCD/ 4HIS2D,4H8S  , 4HCIS2,4HD8   /\r\n      DATA    SCR4  / 304 /\r\nC\r\nC     ECPT LIST\r\nC                                      IN\r\nC                                      THIS\r\nC     ECPT       DESCRIPTION           ROUTINE        TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID            NECPT(1)       INTEGER\r\nC     ECPT( 2) = GRID POINT 1          NGRID(1)       INTEGER\r\nC     ECPT( 3) = GRID POINT 2          NGRID(2)       INTEGER\r\nC     ECPT( 4) = GRID POINT 3          NGRID(3)       INTEGER\r\nC     ECPT( 5) = GRID POINT 4          NGRID(4)       INTEGER\r\nC     ECPT( 6) = GRID POINT 5          NGRID(5)       INTEGER\r\nC     ECPT( 7) = GRID POINT 6          NGRID(6)       INTEGER\r\nC     ECPT( 8) = GRID POINT 7          NGRID(7)       INTEGER\r\nC     ECPT( 9) = GRID POINT 8          NGRID(8)       INTEGER\r\nC     ECPT(10) = NO. OF GAUSS POINTS   ID1            INTEGER\r\nC     ECPT(11) = ANIS. MATERIAL ANGLE  TH             REAL\r\nC     ECPT(12) = MATERIAL ID           MATID1         INTEGER\r\nC     ECPT(13) = THICKNESS             T              REAL\r\nC     ECPT(14) = COORD SYS ID 1        ISYS1          INTEGER\r\nC     ECPT(15) = X1                    X1             REAL\r\nC     ECPT(16) = Y1                    Y1             REAL\r\nC     ECPT(17) = Z1                    Z1             REAL\r\nC     ECPT(18) = COORD SYS ID 2        ISYS2          INTEGER\r\nC     ECPT(19) = X2                    X2             REAL\r\nC     ECPT(20) = Y2                    Y2             REAL\r\nC     ECPT(21) = Z2                    Z2             REAL\r\nC     ECPT(22) = COORD SYS ID 3        ISYS3          INTEGER\r\nC     ECPT(23) = X3                    X3             REAL\r\nC     ECPT(24) = Y3                    Y3             REAL\r\nC     ECPT(25) = Z3                    Z3             REAL\r\nC     ECPT(26) = COORD SYS ID 4        ISYS4          INTEGER\r\nC     ECPT(27) = X4                    X4             REAL\r\nC     ECPT(28) = Y4                    Y4             REAL\r\nC     ECPT(29) = Z4                    Z4             REAL\r\nC     ECPT(30) = COORD SYS ID 5        ISYS5          INTEGER\r\nC     ECPT(31) = X5                    X5             REAL\r\nC     ECPT(32) = Y5                    Y5             REAL\r\nC     ECPT(33) = Z5                    Z5             REAL\r\nC     ECPT(34) = COORD SYS ID 6        ISYS6          INTEGER\r\nC     ECPT(35) = X6                    XL             REAL\r\nC     ECPT(36) = Y6                    Y6             REAL\r\nC     ECPT(37) = Z6                    Z6             REAL\r\nC     ECPT(38) = COORD SYS ID 7        ISYS7          INTEGER\r\nC     ECPT(39) = X7                    X7             REAL\r\nC     ECPT(40) = Y7                    Y7             REAL\r\nC     ECPT(41) = Z7                    Z7             REAL\r\nC     ECPT(42) = COORD SYS ID 8        ISYS8          INTEGER\r\nC     ECPT(43) = X8                    X8             REAL\r\nC     ECPT(44) = Y8                    Y8             REAL\r\nC     ECPT(45) = Z8                    Z8             REAL\r\nC     ECPT(46) = ELEMENT TEMP          TTEMP          REAL\r\nC\r\n      IF (JCORE+576 .GT. NCORE) CALL MESAGE (-8,0,NAM)\r\n      DICT(1) = IESTID\r\n      DICT(2) = 1\r\n      IF (HEAT) GO TO 1\r\n      DICT(3) = 24\r\n      DICT(4) = 7\r\n      NSQ     = 576\r\n      GO TO 2\r\n    1 DICT(3) = 8\r\n      DICT(4) = 1\r\n      NSQ     = 64\r\nC\r\nC     SAVE NGRID IN DUMB\r\nC\r\n    2 DO 3 I = 1,9\r\n    3 DUMB(I) = ECPT(I)\r\n      AREA = 0.0\r\nC\r\nC     SET UP SIL ARRAY SO THAT MATRICES ARE SET UP IN INCREASING SIL\r\nC     ORDER SIL(I)=PARTITION NUMBER OF ITH GRID POINT\r\nC\r\n      I =-8\r\n    5 J = 0\r\n      DO 6 K = 1,8\r\n      IF (ISIL(K) .LT. J) GO TO 6\r\n      J = ISIL(K)\r\n      L = K\r\n    6 CONTINUE\r\n      ISIL(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 5\r\n      DO 7 I = 1,8\r\n    7 ISIL(I) =-ISIL(I)\r\nC\r\n      DO 10 I = 1,NSQ\r\n   10 Z(JCORE+I) = 0.0\r\nC\r\nC     UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2\r\nC\r\n      DO 20 I = 1,3\r\n      VECI(I) = XY2(I)-XY1(I)\r\n   20 CONTINUE\r\n      VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (VECIL .EQ. 0.0) GO TO 40\r\n      VECI(1) = VECI(1)/VECIL\r\n      VECI(2) = VECI(2)/VECIL\r\n      VECI(3) = VECI(3)/VECIL\r\nC\r\nC     K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO\r\nC     GRID\r\nC\r\n      VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1)\r\n      VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1)\r\n      VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1)\r\n      VECKL   = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (VECKL .EQ. 0.0) GO TO 40\r\n      VECK(1) = VECK(1)/VECKL\r\n      VECK(2) = VECK(2)/VECKL\r\n      VECK(3) = VECK(3)/VECKL\r\nC\r\nC     J VECTOR IS OBTAINED BY CROSSING K INTO I\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\nC\r\n      E1T(1)  = VECI(1)\r\n      E1T(2)  = VECI(2)\r\n      E1T(3)  = VECI(3)\r\n      E1T(4)  = VECJ(1)\r\n      E1T(5)  = VECJ(2)\r\n      E1T(6)  = VECJ(3)\r\nC\r\nC     STORE ELEMENT COORDS FOR GRIDS 1 AND 2\r\nC\r\n      XX(1) = 0.0\r\n      XX(2) = 0.0\r\n      XX(3) = VECIL\r\n      XX(4) = 0.0\r\nC\r\nC     FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR\r\nC     FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD.\r\nC     IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO\r\nC     THE GRID POINT.\r\nC\r\n      DO 30 I = 3,8\r\n      IXX  = 2*I - 1\r\n      ISUB = 4*I + 11\r\n      VEC(1)  = ECPT(ISUB  ) - X1\r\n      VEC(2)  = ECPT(ISUB+1) - Y1\r\n      VEC(3)  = ECPT(ISUB+2) - Z1\r\n      XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3)\r\n      VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2)\r\n      VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3)\r\n      VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1)\r\n      XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n   30 CONTINUE\r\n      GO TO 150\r\nC\r\nC     INAPPROPRIATE GEOMETRY\r\nC\r\n   40 CALL MESAGE (30,31,ECPT(1))\r\n      ERROR = .TRUE.\r\nC\r\n  150 IF (ERROR) RETURN\r\nC\r\nC     SET UP QUADRATURE POINTS AND WEIGHTS\r\nC\r\n      PT(1) =-0.57735027\r\n      PT(2) =-PT(1)\r\n      H(1)  = 1.0\r\n      H(2)  = 1.0\r\n      IF (ID1 .EQ. 2) GO TO 155\r\n      PT(1) =-0.77459667\r\n      PT(2) = 0.0\r\n      PT(3) =-PT(1)\r\n      H(1)  = 5.0/9.0\r\n      H(2)  = 8.0/9.0\r\n      H(3)  = H(1)\r\nC\r\n  155 IF (HEAT) GO TO 700\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n      TTH   = TH*3.1415927/180.\r\n      SINTH = SIN(TTH)\r\n      COSTH = COS(TTH)\r\n      ELTEMP= TTEMP\r\n      INFLAG= 2\r\n      MATID = MATID1\r\n      CALL MAT (ECPT(1))\r\n      DO 160 I = 1,3\r\n  160 G(I)  = QQ(I)\r\n      G(4)  = QQ(2)\r\n      G(5)  = QQ(4)\r\n      G(6)  = QQ(5)\r\n      G(7)  = QQ(3)\r\n      G(8)  = QQ(5)\r\n      G(9)  = QQ(6)\r\n      THICK = T\r\n      DRHO  = RHO*T\r\nC\r\nC     ZERO THE SAVE MATRICES TO COLLECT INTEGRATIONS\r\nC\r\n      DO 210 I = 1,36\r\n  210 SAVM(I) = 0.0\r\n      DO 220 I = 1,144\r\n  220 SAVE(I) = 0.0\r\nC\r\nC     2 OR 3 QUADRATURE POINTS\r\nC\r\n      DO 300 III = 1,ID1\r\n      DO 300 JJJ = 1,ID1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 230 N = 1,4\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .25*(1.0+PT(III)*XI(N))*\r\n     1   (1.0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.0)\r\n      DNXI(N)  = .25*XI(N)*(1.0+PT(JJJ)*ETA(N))*\r\n     1           (2.0*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25*ETA(N)*(1.0+PT(III)*XI(N))*\r\n     1           (PT(III)*XI(N)+2.0*PT(JJJ)*ETA(N))\r\n  230 CONTINUE\r\nC\r\n      DO 231 N = 5,7,2\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .50*(1.0-PT(III)*PT(III))*\r\n     1   (1.0+PT(JJJ)*ETA(N))\r\n      DNXI(N)  = -PT(III)*(1.0+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .50*(1.0-PT(III)*PT(III))*ETA(N)\r\n  231 CONTINUE\r\nC\r\n      DO 232 N = 6,8,2\r\n      IF (KMBGG(2) .NE. 0) DN(N) = .50*(1.0+PT(III)*XI(N))*\r\n     1   (1.0-PT(JJJ)*PT(JJJ))\r\n      DNXI(N)  = .50*XI(N)*(1.0-PT(JJJ)*PT(JJJ))\r\n      DNETA(N) =-PT(JJJ)*(1.0+PT(III)*XI(N))\r\n  232 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 240 I = 1,2\r\n      DO 240 J = 1,2\r\n      K = K + 1\r\n  240 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .NE. 2) GO TO 241\r\n      CALL MESAGE (30,143,ECPT(1))\r\n      ERROR =.TRUE.\r\n      RETURN\r\nC\r\n  241 CONTINUE\r\n      DHH  = DETERM*H(III)*H(JJJ)\r\n      AREA = AREA + DHH\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X AND Y\r\nC\r\n      K = 0\r\n      DO 250 I = 1,2\r\n      DO 250 J = 1,2\r\n      K = K + 1\r\n  250 XJB(K) = XXJB(I,J)\r\n      CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\nC     SET UP THE BT MATRIX\r\nC\r\n      IC = 0\r\n      DO 290 KK = 1,8\r\n      IF (KMBGG(1) .EQ. 0) GO TO 256\r\nC\r\n      DO 255 I = 1,12\r\n  255 BT(I) = 0.0\r\n      BT(1) = DNX(KK)\r\n      BT(3) = DNY(KK)\r\n      BT(5) = DNY(KK)\r\n      BT(6) = DNX(KK)\r\nC\r\n      CALL GMMATS (TEMPAR(1),2,3,0,G,3,3,0,TEMPAR(7))\r\nC\r\nC     MULTIPLY G MATRIX BY PRESENT RESULTS\r\nC\r\nC     LOOP FOR THE 8 6X6 PARTITIONS CORRESPONDING TO THE PRESENT\r\nC     PIVOT POINT\r\nC\r\n  256 CONTINUE\r\n      DO 290 N = KK,8\r\n      IC = IC + 1\r\n      IF (KMBGG(1) .EQ. 0) GO TO 281\r\nC\r\nC     SET UP THE B MATRIX\r\nC\r\n      DO 260 I = 1,12\r\n  260 B( I) = 0.0\r\n      B( 1) = DNX(N)\r\n      B( 4) = DNY(N)\r\n      B( 5) = DNY(N)\r\n      B( 6) = DNX(N)\r\nC                                    T\r\nC     PERFORM MULTIPLICATION TO GET B *D*B\r\nC\r\n      CALL GMMATS (TEMPAR(7),2,3,0,B,3,2,0,TEMPAR(1))\r\nC\r\nC     THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS\r\nC\r\n      DO 270 I = 1,4\r\n      TEMPAR(I) = TEMPAR(I)*DHH\r\n  270 CONTINUE\r\nC\r\nC     ADD THE RESULTS OF THIS INTEGRATION TO THE PREVIOUS RESULTS\r\nC\r\n      LL = 4*(IC-1)\r\n      DO 280 I = 1,4\r\n      L = LL + I\r\n      SAVE(L) = SAVE(L) + TEMPAR(I)\r\n  280 CONTINUE\r\n  281 CONTINUE\r\nC\r\n      IF (KMBGG(2) .EQ. 0) GO TO 289\r\nC\r\n      MIJ = DN(KK)*DN(N)*DHH\r\n      SAVM(IC) = SAVM(IC) + MIJ\r\n  289 CONTINUE\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  290 CONTINUE\r\nC\r\nC     LOOP FOR MORE GAUSS POINTS\r\nC\r\n  300 CONTINUE\r\n      IF (KMBGG(2) .EQ. 0) GO TO 306\r\n      DO 305 I = 1,36\r\n  305 SAVM(I) = SAVM(I)*DRHO\r\n  306 CONTINUE\r\nC\r\nC     CHECK ON NECESSITY OF PRE-MULTIPLYING COORDINATE TRANSFORMATIONS\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 500\r\n      IC = 0\r\n      DO 385 KK = 1,8\r\n      ISUB = 4*KK + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 310\r\nC\r\nC     ELEMENT TO GLOBAL\r\nC\r\n      CALL TRANSS (NECPT(ISUB),TB)\r\n      CALL GMMATS (E1T,2,3,0,TB,3,3,0,PREMUL)\r\n      GO TO 350\r\n  310 DO 320 I = 1,6\r\n      PREMUL(I) = E1T(I)\r\n  320 CONTINUE\r\n  350 DO 380 N = KK,8\r\n      IC = IC + 1\r\n      LL = 4*IC - 3\r\n      CALL GMMATS (PREMUL,2,3,1,SAVE(LL),2,2,0,TEMP)\r\nC\r\nC     STORE THE 3 X 2 IN TSAVE\r\nC\r\n      DO 370 I = 1,6\r\n      L = 6*IC + I - 6\r\n  370 TSAVE(L) = TEMP(I)\r\nC\r\n  380 CONTINUE\r\n  385 CONTINUE\r\nC\r\nC     NOW CHECK ON THE NECESSITY FOR POST-MULTIPLYING TRANSFORMATIONS\r\nC\r\n      IC = 0\r\n      DO 490 N = 1,8\r\n      ISUB = 4*N + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 410\r\nC\r\nC     GLOBAL TO ELEMENT\r\nC\r\n      CALL TRANSS (NECPT(ISUB),TB)\r\n      CALL GMMATS (E1T,2,3,0,TB,3,3,0,PSTMUL)\r\n      GO TO 450\r\n  410 DO 420 I = 1,6\r\n      PSTMUL(I) = E1T(I)\r\n  420 CONTINUE\r\nC\r\nC     POST-MULTIPLY\r\nC\r\nC     IND6 GIVES STARTING POSITIONS OF VERTICAL 3X3 PARTITIONS, SINCE\r\nC     THE NTH COLUMN MULTIPLIES INTO THE NTH POST-MULTIPLIER\r\nC\r\n  450 DO 485 M = 1,N\r\n      IC = IC + 1\r\n      LL = IND6(IC)\r\n      CALL GMMATS (TSAVE(LL),3,2,0,PSTMUL,2,3,0,TEMP)\r\n      DO 486 I =  1,9\r\n  486 TEMP(I) = TEMP(I)*THICK\r\nC\r\nC     PICK UP ROW AND COLUMN PARTITION NUMBERS AND CONVERT TO STARTING\r\nC     POINTS IN OPEN CORE FOR THIS PARTITION  AND ITS TRANSPOSE.\r\nC     TEMP IS PUT INTO ONE PARTITION AND TEMP-TRANSPOSE INTO THE OTHER\r\nC\r\n      NCOL = ISIL(N)\r\n      NROW = ISIL(M)\r\n      CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC)\r\nC\r\nC     LOOP FOR ANOTHER PARTITION FOR THIS POST-MULTIPLIER\r\nC\r\n  485 CONTINUE\r\nC\r\nC     LOOP FOR ANOTHER POST-MULTIPLIER\r\nC\r\n  490 CONTINUE\r\nC\r\nC     ADD TO DICTIONARY\r\nC\r\n      DICT(5) = GE\r\n      CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,IPREC)\r\nC\r\n  500 IF (KMBGG(2) .EQ. 0) GO TO 1000\r\nC\r\n      IC = 0\r\n      DO 620 KK = 1,8\r\n      DO 620 N = KK,8\r\n      IC = IC + 1\r\n      DO 510 I = 1,9\r\n  510 TEMP(I) = 0.0\r\nC\r\nC     CHECK ON TEH NECESSITY OF COORDINATE TRANSFORMATIONS.\r\nC     SINCE EACH PARTITION IS A MULTIPLE OF A 3X3 IDENTITY AND SINCE\r\nC     THE TRANSFORAMATION MATRICES ARE ORTHOGONAL, NO EXPLICIT\r\nC     TRANSFORMA-TIONS FROM THE ELEMENT COORDINATE SYSTEM ARE REQUIRED.\r\nC     ALSO, NO TRANSFORAMTION IS REQUIRED IF TRANSFORMATION MATRICES ARE\r\nC     THE SAME FOR THE GRIDS CORRESPONDING TO THE THE ROW AND COLUMN\r\nC\r\n      TERM  = SAVM(IC)\r\n      IF (KK .EQ. N) GO TO 570\r\n      ISUB  = 4*KK + 10\r\n      ISUB1 =4*N + 10\r\n      IF (NECPT(ISUB).EQ.0 .AND. NECPT(ISUB1).EQ.0) GO TO 570\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 520\r\n      CALL TRANSS (NECPT(ISUB),TEMP1)\r\n      IF (NECPT(ISUB1) .EQ. 0) GO TO 530\r\n  520 CALL TRANSS (NECPT(ISUB1),TEMP2)\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 550\r\nC\r\nC     MULTIPLY THE TRANSFORMATION MATRICES\r\nC\r\n      CALL GMMATS (TEMP1,3,3,1,TEMP2,3,3,0,TEMP3)\r\n      GO TO 580\r\n  530 TEMP3(1) = TEMP1(1)\r\n      TEMP3(2) = TEMP1(4)\r\n      TEMP3(3) = TEMP1(7)\r\n      TEMP3(4) = TEMP1(2)\r\n      TEMP3(5) = TEMP1(5)\r\n      TEMP3(6) = TEMP1(8)\r\n      TEMP3(7) = TEMP1(3)\r\n      TEMP3(8) = TEMP1(6)\r\n      TEMP3(9) = TEMP1(9)\r\n      GO TO 580\r\n  550 DO 560 I = 1,9\r\n  560 TEMP3(I) = TEMP2(I)\r\n      GO TO 580\r\n  570 TEMP(1) = TERM\r\n      TEMP(5) = TERM\r\n      TEMP(9) = TERM\r\n      GO TO 600\r\nC\r\n  580 DO 590 I = 1,9\r\n  590 TEMP(I) = TERM*TEMP3(I)\r\nC\r\n  600 NROW = ISIL(KK)\r\n      NCOL = ISIL(N)\r\n      CALL INSERT (NCOL,NROW,3,8,JCORE,Z,Z,TEMP,TEMP,IPREC)\r\n  620 CONTINUE\r\nC\r\n      CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,2,IPREC)\r\n      GO TO 1000\r\nC\r\nC     HEAT FORMULATION\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n  700 SINTH  = 0.\r\n      COSTH  = 0.\r\n      ELTEMP = TTEMP\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL HMAT (ECPT(1))\r\n      THICK  = T\r\n      DC     = C*T\r\nC\r\nC     ZERO OUT THE SAVE MATRIX\r\nC\r\n      DO 720 I = 1,36\r\n      SAVM(I) = 0.0\r\n  720 SAVE(I) = 0.0\r\nC\r\n      DO 880 III = 1,ID1\r\n      DO 880 JJJ = 1,ID1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 730 N = 1,4\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .25*(1.0+PT(III)*XI(N))*\r\n     1   (1.0+PT(JJJ)*ETA(N))*(PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.0)\r\n      DNXI(N)  = .25*XI(N)*(1.0+PT(JJJ)*ETA(N))*\r\n     1           (2.0*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25*ETA(N)*(1.0+PT(III)*XI(N))*\r\n     1           (PT(III)*XI(N)+2.0*PT(JJJ)*ETA(N))\r\n  730 CONTINUE\r\nC\r\n      DO 731 N = 5,7,2\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .50*(1.0-PT(III)*PT(III))*\r\n     1   (1.0+PT(JJJ)*ETA(N))\r\n      DNXI(N)  = -PT(III)*(1.0+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .50*(1.0-PT(III)*PT(III))*ETA(N)\r\n  731 CONTINUE\r\nC\r\n      DO 732 N = 6,8,2\r\n      IF (KMBGG(3) .NE. 0) DN(N) = .50*(1.0+PT(III)*XI(N))*\r\n     1    (1.0-PT(JJJ)*PT(JJJ))\r\n      DNXI(N)  = .50*XI(N)*(1.0-PT(JJJ)*PT(JJJ))\r\n      DNETA(N) = -PT(JJJ)*(1.0+PT(III)*XI(N))\r\n  732 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 740 I = 1,2\r\n      DO 740 J = 1,2\r\n      K = K + 1\r\n  740 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .NE. 2) GO TO 741\r\n      CALL MESAGE (30,143,ECPT(1))\r\n      ERROR =.TRUE.\r\n      RETURN\r\nC\r\n  741 CONTINUE\r\n      DHH = DETERM*H(III)*H(JJJ)\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z\r\nC\r\n      K = 0\r\n      DO 750 I = 1,2\r\n      DO 750 J = 1,2\r\n      K = K + 1\r\n  750 XJB(K) = XXJB(I,J)\r\n      CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\nC     SET UP THE BT MATRIX\r\nC\r\n      IC = 0\r\n      DO 875 KK = 1,8\r\n      IF (KMBGG(1) .EQ. 0) GO TO 800\r\n      BT(1) = KX *DNX(KK) + KXY*DNY(KK)\r\n      BT(2) = KXY*DNX(KK) + KY*DNY(KK)\r\nC\r\nC     DO NOT TRANSFORM FROM MATERIAL COORD SYSTEM TO BASIC AND GLOBAL\r\nC     SINCE THIS IS A SCALAR PROBLEM\r\nC\r\n  800 DO 870 N = KK,8\r\n      IC = IC + 1\r\nC\r\nC     SET UP THE B MATRIX\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 810\r\n      B(1) = DNX(N)\r\n      B(2) = DNY(N)\r\nC\r\nC     O.K. NOW PERFORM FINAL MULTIPLICATION\r\nC\r\n      KIJ = BT(1)*B(1) + BT(2)*B(2)\r\nC\r\nC     THROW IN JACOBEAN DETERMINANT AND WEIGHT FACTORS\r\nC\r\n      KIJ = KIJ*DHH\r\nC\r\nC     ADD THE RESULTS OF THIS INTEGRATION TO PREVIOUS RESULTS\r\nC\r\n      SAVE(IC) = SAVE(IC) + KIJ\r\n  810 IF (KMBGG(3) .EQ. 0) GO TO 870\r\n      BIJ = DN(KK)*DN(N)*DHH\r\n      SAVM(IC) = SAVM(IC) + BIJ\r\nC\r\nC     LOOP FOR MORE PARTITIONS\r\nC\r\n  870 CONTINUE\r\n  875 CONTINUE\r\nC\r\nC     LOOP FOR ADDITIONAL GAUSS POINTS\r\nC\r\n  880 CONTINUE\r\nC\r\n      DO 890 I = 1,36\r\n      IF (KMBGG(1) .NE. 0) SAVE(I) = SAVE(I)*THICK\r\n      IF (KMBGG(3) .NE. 0) SAVM(I) = SAVM(I)*DC\r\n  890 CONTINUE\r\nC\r\nC     INSERT INTO OVERALL STIFFNESS MATRIX\r\nC\r\n      IC = 0\r\n      DO 900 I = 1,8\r\n      DO 900 J = I,8\r\n      IC = IC + 1\r\n      NROW = ISIL(I)\r\n      NCOL = ISIL(J)\r\n      IF (KMBGG(1) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE,Z,Z,\r\n     1    SAVE(IC),SAVE(IC),IPREC)\r\n      IF (KMBGG(3) .NE. 0) CALL INSERT (NCOL,NROW,1,8,JCORE+64,Z,Z,\r\n     1   SAVM(IC),SAVM(IC),IPREC)\r\n  900 CONTINUE\r\nC\r\n      IF (KMBGG(1) .NE. 0) CALL EMGOUT (Z(JCORE),Z(JCORE),NSQ,1,DICT,1,\r\n     1    IPREC)\r\n      IF (KMBGG(3) .NE. 0) CALL EMGOUT (Z(JCORE+64),Z(JCORE+64),NSQ,1,\r\n     1    DICT,3,IPREC)\r\n      GO TO 5000\r\nC\r\nC     SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS,\r\nC     GRID POINT DATA, AND AREA IF USER REQUESTED VOLUME AND AREA\r\nC     COMPUTATION\r\nC\r\n 1000 IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 5000\r\n      ECPT(2) = ECPT(13)\r\n      ECPT(3) = RHO\r\n      J = 4\r\n      NECPT(J) = 8\r\n      ECPT(46) = AREA\r\n      CALL WRITE (SCR4,BCD,2,0)\r\n      CALL WRITE (SCR4,ECPT(1),4,0)\r\n      CALL WRITE (SCR4,DUMB(2),8,0)\r\n      CALL WRITE (SCR4,ECPT(14),33,1)\r\n 5000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/isft.f",
    "content": "      INTEGER FUNCTION ISFT (BF,SFT,J)\r\nC\r\n      EXTERNAL LSHIFT,RSHIFT\r\n      INTEGER  BF,SFT,RSHIFT\r\nC\r\n      IF (J .EQ. 4) GO TO 10\r\n      ISFT = RSHIFT(BF,SFT)\r\n      RETURN\r\n   10 ISFT = LSHIFT(BF,SFT)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/itcode.f",
    "content": "      FUNCTION ITCODE (ITEMX)\r\nC\r\nC     THE FUNCTION RETURNS AN INTEGER CODE NUMBER FOR ITEM.  THE CODE\r\nC     NUMBER IS USED IN UPDATING THE MDI.  IF AN INCORRECT ITEM NAME IS\r\nC     USED, THE VALUE RETURNED WILL BE -1.\r\nC\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      COMMON /SYS   / SYS(5),IFRST\r\nC\r\n      DO 10 I = 1,NITEM\r\n      IF (ITEMX .EQ. ITEM(1,I)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     INVALID ITEM - RETURN -1\r\nC\r\n      ITCODE = -1\r\n      RETURN\r\nC\r\nC     ITEM FOUND - RETURN MDI POSITION POINTER\r\nC\r\n   20 ITCODE = I + IFRST - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/itmprt.f",
    "content": "      SUBROUTINE ITMPRT (NAME,ITEM,NZ,IOPT)\r\nC\r\nC     WILL PRINT SOF ITEM - USING  E15.7,I10, OR ALPHA FORMAT\r\nC\r\n      INTEGER         SYSBUF,OTPE,TWO1,RC\r\n      REAL            SUBS(3),ITM,ITEM,NAME,LODS,LOAP\r\n      DIMENSION       ICORE(4),NAME(2)\r\n      CHARACTER*1     CCORE(2000)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE,INX2(26)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /OUTPUT/ HEAD1(96),HEAD2(96)\r\n      EQUIVALENCE     (CCORE,CORE)\r\n      EQUIVALENCE     (ICORE(1),CORE(1))\r\n      DATA    OPAREN, CPAREN,EC,EC1,EC2,INTGC,ALPHC,ALPHC1,CONT,UNED,D/\r\n     1        4H(1X , 4H)   ,4H,1P,,4HE13.,4H6   ,4H,I13,4H,9X,,4HA4  ,\r\n     2        4HCONT, 4HINUE,4HD   /\r\n      DATA    BLANK , SUBS,ITM/4H    ,4HSUBS,4HTRUC,4HTURE,4HITEM/\r\n      DATA    EQSS  / 4HEQSS/, BGSS/4HBGSS/, CSTM/4HCSTM /,\r\n     1        PLTS  / 4HPLTS/, LODS/4HLODS/, LOAP/4HLOAP /\r\nC\r\nC\r\nC     TEST FOR FORMATED TABLE PRINT\r\nC\r\n      IF (IOPT .NE. 2) GO TO 5\r\n      IF (ITEM .EQ. EQSS) GO TO 2000\r\n      IF (ITEM .EQ. BGSS) GO TO 2100\r\n      IF (ITEM .EQ. CSTM) GO TO 2200\r\n      IF (ITEM .EQ. PLTS) GO TO 2300\r\n      IF (ITEM .EQ. LODS) GO TO 2400\r\n      IF (ITEM .EQ. LOAP) GO TO 2500\r\n    5 CONTINUE\r\nC\r\nC     PERFORM UNFORMATED DUMP OF TABLE\r\nC\r\n      CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) GO TO 190\r\n      DO 10 I = 1,96\r\n   10 HEAD2(I) = BLANK\r\n      DO 15 I = 1,3\r\n   15 HEAD2( I) = SUBS(I)\r\n      HEAD2( 5) = NAME(1)\r\n      HEAD2( 6) = NAME(2)\r\n      HEAD2( 8) = ITM\r\n      HEAD2(10) = ITEM\r\n      CALL PAGE\r\n      HEAD2(12) = CONT\r\n      HEAD2(13) = UNED\r\n      HEAD2(14) = D\r\n      INUM = NZ/2 - 1\r\n      NS   = INUM + 1\r\n      LLEN = 0\r\n      CORE(1) = OPAREN\r\n      IREC = 0\r\n   20 WRITE (OTPE,30)IREC\r\n      IREC = IREC + 1\r\n   30 FORMAT ('0GROUP NO.',I4)\r\n      LINE = LINE + 2\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      IX   = INUM\r\n      NRED = 0\r\n      NP   = INUM - 1\r\n      IV   = 4\r\n   40 IX   = IX + 1\r\n      IOUT = 4\r\n      NRED = NRED + 1\r\n      NP   = NP + 1\r\n      CALL SUREAD (CORE(IX),1,FLAG,RC)\r\n      IF (RC-2) 45,160,170\r\n   45 I  = NUMTYP(CORE(IX)) + 1\r\n      IF (I.EQ.1 .AND. IV.NE.4) I = IV\r\n      IV = I\r\n      GO TO (140,140,100,120), I\r\nC\r\nC     REAL NUMBER  (1)\r\nC\r\n  100 IOUT = 1\r\n      IF (LLEN+13 .GT. 132) GO TO 160\r\n  110 CORE(NRED+1) = EC\r\n      CORE(NRED+2) = EC1\r\n      CORE(NRED+3) = EC2\r\n      NRED = NRED + 2\r\n  111 LLEN = LLEN + 13\r\n      GO TO 40\r\nC\r\nC     ALPHA   (2)\r\nC\r\n  120 IOUT = 2\r\n      IF (LLEN+6 .GT. 132) GO TO 160\r\n  130 CORE(NRED+1) = ALPHC\r\n      CORE(NRED+2) = ALPHC1\r\n      NRED = NRED + 1\r\n      GO TO 111\r\nC\r\nC     INTEGER  (3)\r\nC\r\n  140 IOUT = 3\r\n      IF (LLEN+13 .GT. 132) GO TO 160\r\n  150 ICORE(NRED+1) = INTGC\r\n      GO TO 111\r\nC\r\nC     BUFFER FULL - END RECORD   PRINT LINE\r\nC\r\n  160 CORE(NRED+1) = CPAREN\r\n      IF (NRED .EQ. 1) WRITE (OTPE,161)\r\n      IF (NRED .EQ. 1) GO TO 162\r\n  161 FORMAT ('0END OF GROUP - NULL GROUP')\r\n      IF ( MACHX.EQ.2 .OR. MACHX.EQ.5 )\r\n     & WRITE  (OTPE,CORE) (ICORE(I),I=NS,NP)\r\n      IF ( MACHX.NE.2 .AND. MACHX.NE.5 )\r\n     & CALL WRTFMT (ICORE(NS), NP-NS+1, CCORE)\r\n  162 LINE = LINE + 1\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      LLEN = 0\r\n      NRED = 1\r\n      NP   = INUM\r\n      CORE(INUM+1) = CORE(IX)\r\n      IX   = INUM + 1\r\n      GO TO (110,130,150,20), IOUT\r\nC\r\nC     END OF ITEM\r\nC\r\n  170 WRITE  (OTPE,180)\r\n  180 FORMAT ('0END OF ITEM')\r\n  190 RETURN\r\nC\r\nC     PERFORM FORMATED LISTING OF TABLE\r\nC\r\nC     EQSS TABLE\r\nC\r\n 2000 CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) RETURN\r\n      CALL SUREAD (CORE(1),4,NOUT,RC)\r\n      IF (RC .NE. 1) GO TO 3000\r\n      NSUB = ICORE(3)\r\n      CALL SUREAD (CORE(1),NZ,NOUT,RC)\r\n      IF (RC .NE. 2) GO TO 3000\r\n      IST  = 1  + NOUT\r\n      LEFT = NZ - NOUT\r\n      DO 2010 I = 1,NSUB\r\n      CALL SUREAD (CORE(IST),LEFT,NOUT,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000\r\n      ICOMP = 1 + 2*(I-1)\r\n      CALL CMIWRT (1,NAME,CORE(ICOMP),IST,NOUT,CORE,ICORE)\r\n 2010 CONTINUE\r\n      CALL SUREAD (CORE(IST),LEFT,NOUT,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000\r\n      CALL CMIWRT (8,NAME,0,IST,NOUT,CORE,ICORE)\r\n      RETURN\r\nC\r\nC     BGSS TABLE\r\nC\r\n 2100 CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) RETURN\r\n      NGRD = 1\r\n      CALL SJUMP (NGRD)\r\n      IF (NGRD .LT. 0) GO TO 3000\r\n      IST = 1\r\n      CALL SUREAD (CORE(IST),NZ,NOUT,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000\r\n      CALL CMIWRT (2,NAME,NAME,IST,NOUT,CORE,ICORE)\r\n      RETURN\r\nC\r\nC     CSTM TABLE\r\nC\r\n 2200 CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) RETURN\r\n      NGRD = 1\r\n      CALL SJUMP (NGRD)\r\n      IF (NGRD .LT. 0) GO TO 3000\r\n      IST = 1\r\n      CALL SUREAD (CORE(IST),NZ,NOUT,RC)\r\n      IF (RC.NE.2 .OR. RC.NE.3) GO TO 3000\r\n      CALL CMIWRT (3,NAME,NAME,IST,NOUT,CORE,ICORE)\r\n      RETURN\r\nC\r\nC     PLTS TABLE\r\nC\r\n 2300 CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) RETURN\r\n      CALL SUREAD (CORE(1),3,NOUT,RC)\r\n      IF (RC .NE. 1) GO TO 3000\r\n      IST = 1\r\n      CALL SUREAD (CORE(IST),NZ,NOUT,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000\r\n      CALL CMIWRT (4,NAME,NAME,IST,NOUT,CORE,ICORE)\r\n      RETURN\r\nC\r\nC     LODS TABLE\r\nC\r\n 2400 ICODE = 5\r\nC\r\n 2410 CALL SFETCH (NAME,ITEM,1,RC)\r\n      IF (RC .NE. 1) RETURN\r\n      CALL SUREAD (CORE(1),4,NOUT,RC)\r\n      IF (RC .NE. 1) GO TO 3000\r\n      NSUB = ICORE(4)\r\n      CALL SUREAD (CORE(1),NZ,NOUT,RC)\r\n      IF (RC .NE. 2) GO TO 3000\r\n      IST  = 1  + NOUT\r\n      LEFT = NZ - NOUT\r\n      DO 2420 I = 1,NSUB\r\n      CALL SUREAD (CORE(IST),LEFT,NOUT,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 3000\r\n      ICOMP = 1 + 2*(I-1)\r\n      CALL CMIWRT (ICODE,NAME,CORE(ICOMP),IST,NOUT,CORE,ICORE)\r\n      ICODE = 6\r\n 2420 CONTINUE\r\n      RETURN\r\nC\r\nC     LOAP TABLE\r\nC\r\n 2500 ICODE = 7\r\n      GO TO 2410\r\nC\r\nC     INSUFFICIENT CORE OR ILLEGAL ITEM FORMAT - FORCE PHYSICAL DUMP\r\nC\r\n 3000 WRITE  (OTPE,3010) UWM,ITEM,NAME\r\n 3010 FORMAT (A25,' 6231, INSUFFICIENT CORE AVAILABLE OR ILLEGAL ITEM ',\r\n     1       'FORMAT REQUIRES AN UNFORMATED', /31X,\r\n     2       'DUMP TO BE PERFORM FOR ITEM ',A4,' OF SUBSTRUCTURE ',2A4)\r\n      GO TO 5\r\n      END\r\n"
  },
  {
    "path": "mis/ittype.f",
    "content": "      FUNCTION ITTYPE(ITEMX)\r\nC\r\nC*****\r\nC\r\nC     THIS FUNCTION RETURNS AN INTEGER CODE NUMBER TO INDICATE\r\nC     WHETHER A PARTICULAR SOF ITEM IS A MATRIX OR TABLE.\r\nC     THE RETURN CODES ARE\r\nC\r\nC          1 - MATRIX ITEM\r\nC          0 - TABLE ITEM\r\nC         -1 - ILLEGAL ITEM NAME\r\nC\r\nC*****\r\nC\r\n      COMMON / ITEMDT /       NITEM    ,ITEM(7,1)\r\nC\r\n      DO 10 I=1,NITEM\r\n      IF(ITEMX .EQ. ITEM(1,I)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     ILLIGAL ITEM - RETURN -1\r\nC\r\n      ITTYPE = -1\r\n      RETURN\r\nC\r\nC     ITEM FOUND - RETURN TYPE\r\nC\r\n   20 IF(ITEM(2,I) .LE. 0) ITTYPE = 0\r\n      IF(ITEM(2,I) .GT. 0) ITTYPE = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/iunion.f",
    "content": "      FUNCTION IUNION(I1,I2)\r\nC\r\nC     I1 AND I2 ARE .GT. 0 BUT .LE. 654321 AND CONSIST OF ANY UNIQUE\r\nC     COMBINATION OF THE DIGITS 1 THRU 6\r\nC\r\n      INTEGER K(6,2) , KK(6) , R\r\nC\r\nC              DECODE I1 INTO K(*,1)\r\n      I=1\r\n      II=I1\r\n      ASSIGN 10 TO R\r\n      GO TO 100\r\nC\r\nC              DECODE I2 INTO K(*,2)\r\n   10 I=2\r\n      II=I2\r\n      ASSIGN 20 TO R\r\n      GO TO 100\r\nC\r\nC              FORM UNION OF K(*,1) AND K(*,2) IN KK(*)\r\n   20 DO 30 I=1,6\r\n      KK(I)=0\r\n      IF(K(I,1).EQ.I .OR. K(I,2).EQ.I) KK(I)=I\r\n   30 CONTINUE\r\nC\r\nC              PACK KK(*) INTO IUNION\r\n      J=1\r\n      L=0\r\n      DO 40 I=1,6\r\n      IF(KK(I).EQ.0) GO TO 40\r\n      IF(L.GT.0) J=10*J\r\n      L=L+J*I\r\n   40 CONTINUE\r\nC\r\n      IUNION=L\r\nC\r\n      RETURN\r\nC\r\nC\r\n  100 DO 110 J=1,6\r\n  110 K(J,I)=0\r\n      DO 120 J=1,6\r\n      L=II-10*(II/10)\r\n      II=(II-L)/10\r\n      IF(L.EQ.0) GO TO 130\r\n  120 K(L,I)=L\r\n  130 GO TO R,(10,20)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/jacob2.f",
    "content": "      SUBROUTINE JACOB2 (ELID,SHP,DSHP,GPTH,BGPDT,GPNORM,JACOB)\r\nC\r\nC     THIS ROUTINE WAS CALLED JACOBD BEFORE, AND WAS THE ONLY ROUTINE\r\nC     THAT ENDED WITH 'DB' AND WAS NOT A BLOCK DATA SUBROUTINE.\r\nC\r\nC     THIS SUBROUTINE CALCULATES JACOBIAN AT EACH GIVEN INTEGRATION\r\nC     POINT FOR QUAD4 POTVIN TYPE ELEMENTS.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      LOGICAL          BADJ\r\n      INTEGER          INDEX(3,3),ELID,NOGO,NOUT\r\n      REAL             BGPDT(4,1),GPNORM(4,1)\r\n      DOUBLE PRECISION SHP(1),DSHP(1),GPTH(1),PSITRN(9),JACOB(3,3),\r\n     1                 TGRID(3,8),SK(3),TK(3),ENK(3),V1(3),V2(3),V3(3),\r\n     2                 VAL,HZTA,THICK,DETJ,DUM(3),EPS\r\n      COMMON /Q4DT  /  DETJ,HZTA,PSITRN,NNODE,BADJ,N1\r\n      COMMON /SYSTEM/  IBUF,NOUT,NOGO\r\nC\r\n      EQUIVALENCE     (PSITRN(1),V1(1))\r\n      EQUIVALENCE     (PSITRN(4),V2(1))\r\n      EQUIVALENCE     (PSITRN(7),V3(1))\r\nC\r\n      DATA EPS / 1.0D-15 /\r\nC\r\nC     INITIALIZE BADJ LOGICAL\r\nC\r\n      BADJ=.FALSE.\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      DO 150 I=1,NNODE\r\n      THICK=GPTH(I)\r\n      TGRID(1,I)=BGPDT(2,I)+HZTA*THICK*GPNORM(2,I)\r\n      TGRID(2,I)=BGPDT(3,I)+HZTA*THICK*GPNORM(3,I)\r\n  150 TGRID(3,I)=BGPDT(4,I)+HZTA*THICK*GPNORM(4,I)\r\n      DO 200 I=1,2\r\n      IPOINT=N1*(I-1)\r\n      DO 200 J=1,3\r\n      JACOB(I,J)=0.0D0\r\n      DO 200 K=1,NNODE\r\n      JACOB(I,J)=JACOB(I,J)+DSHP(K+IPOINT)*TGRID(J,K)\r\n  200 CONTINUE\r\n      DO 250 J=1,3\r\n      JACOB(3,J)=0.0D0\r\n      DO 250 K=1,NNODE\r\n      JTEMP=J+1\r\n      JACOB(3,J)=JACOB(3,J)+0.5D0*GPTH(K)*GPNORM(JTEMP,K)*SHP(K)\r\n  250 CONTINUE\r\nC\r\nC     SAVE THE S, T, AND N VECTORS FOR CALCULATING PSI LATER.\r\nC\r\n      DO 300 I=1,3\r\n      IF (DABS(JACOB(1,I)) .LE. EPS) JACOB(1,I)=0.0D0\r\n      SK(I)=JACOB(1,I)\r\n      IF (DABS(JACOB(2,I)) .LE. EPS) JACOB(2,I)=0.0D0\r\n      TK(I)=JACOB(2,I)\r\n      IF (DABS(JACOB(3,I)) .LE. EPS) JACOB(3,I)=0.0D0\r\n      ENK(I)=JACOB(3,I)\r\n  300 CONTINUE\r\nC\r\nC     THE INVERSE OF THE JACOBIAN WILL BE STORED IN\r\nC     JACOB AFTER THE SUBROUTINE INVERD HAS EXECUTED.\r\nC\r\n      CALL INVERD (3,JACOB,3,DUM,0,DETJ,ISING,INDEX)\r\n      IF (ISING.EQ.1 .AND. DETJ.GT.0.0D0) GO TO 350\r\n      WRITE (NOUT,550) ELID\r\n      NOGO=1\r\n      BADJ=.TRUE.\r\n      GO TO 500\r\n  350 CALL DAXB (SK,TK,V3)\r\n      VAL=DSQRT(V3(1)*V3(1)+V3(2)*V3(2)+V3(3)*V3(3))\r\n      V3(1)=V3(1)/VAL\r\n      V3(2)=V3(2)/VAL\r\n      V3(3)=V3(3)/VAL\r\nC\r\nC     CROSS ELEMENT Y DIRECTION WITH UNIT VECTOR V3 IN ORDER\r\nC     TO BE CONSISTENT WITH THE ELEMENT COORDINATE SYSTEM.\r\nC\r\nC     NOTE - THIS IS IMPORTANT FOR THE DIRECTIONAL REDUCED\r\nC            INTEGRATION CASES.\r\nC\r\nC\r\nC\r\n      V2(1)=0.0D0\r\n      V2(2)=1.0D0\r\n      V2(3)=0.0D0\r\nC\r\n      CALL DAXB (V2,V3,V1)\r\n      VAL=DSQRT(V1(1)*V1(1)+V1(2)*V1(2)+V1(3)*V1(3))\r\n      V1(1)=V1(1)/VAL\r\n      V1(2)=V1(2)/VAL\r\n      V1(3)=V1(3)/VAL\r\n      CALL DAXB (V3,V1,V2)\r\nC\r\nC     REMEMBER THAT V1(1) IS EQUIVALENCED TO PSITRN(1), AND SO ON.\r\nC\r\nC     ELIMINATE SMALL NUMBERS\r\nC\r\n      DO 400 I = 1,3\r\n      IF (DABS(V1(I)) .LE. EPS) V1(I)=0.0D0\r\n      IF (DABS(V2(I)) .LE. EPS) V2(I)=0.0D0\r\n      IF (DABS(V3(I)) .LE. EPS) V3(I)=0.0D0\r\n  400 CONTINUE\r\nC\r\n  500 CONTINUE\r\n      RETURN\r\nC\r\n  550 FORMAT ('0*** USER FATAL ERROR, ELEMENT ID =',I10,\r\n     1       '  HAS BAD OR REVERSE GEOMETRY')\r\n      END\r\n"
  },
  {
    "path": "mis/jacobs.f",
    "content": "      SUBROUTINE JACOBS (ELID,SHP,DSHP,GPTH,BGPDT,GPNORM,JACOB)\r\nC\r\nC     THIS SUBROUTINE CALCULATES JACOBIAN AT EACH GIVEN INTEGRATION\r\nC     POINT FOR QUAD4 POTVIN TYPE ELEMENTS.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      LOGICAL         BADJ\r\n      INTEGER         INDEX(3,3),ELID,NOGO,NOUT\r\n      REAL            BGPDT(4,1),GPNORM(4,1)\r\n      REAL            SHP(1),DSHP(1),GPTH(1),PSITRN(9),JACOB(3,3),\r\n     1                TGRID(3,8),SK(3),TK(3),ENK(3),V1(3),V2(3),V3(3),\r\n     2                VAL,HZTA,THICK ,DETJ,DUM(3),EPS\r\n      COMMON /Q4DT  / DETJ,HZTA,PSITRN,NNODE,BADJ,N1\r\n      COMMON /SYSTEM/ IBUF,NOUT,NOGO\r\nC\r\n      EQUIVALENCE     (PSITRN(1),V1(1))\r\n      EQUIVALENCE     (PSITRN(4),V2(1))\r\n      EQUIVALENCE     (PSITRN(7),V3(1))\r\nC\r\n      DATA   EPS    / 1.0E-15 /\r\nC\r\nC     INITIALIZE BADJ LOGICAL\r\nC\r\n      BADJ=.FALSE.\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      DO 150 I=1,NNODE\r\n      THICK=GPTH(I)\r\n      TGRID(1,I)=BGPDT(2,I)+HZTA*THICK*GPNORM(2,I)\r\n      TGRID(2,I)=BGPDT(3,I)+HZTA*THICK*GPNORM(3,I)\r\n  150 TGRID(3,I)=BGPDT(4,I)+HZTA*THICK*GPNORM(4,I)\r\n      DO 200 I=1,2\r\n      IPOINT=N1*(I-1)\r\n      DO 200 J=1,3\r\n      JACOB(I,J)=0.0\r\n      DO 200 K=1,NNODE\r\n      JACOB(I,J)=JACOB(I,J)+DSHP(K+IPOINT)*TGRID(J,K)\r\n  200 CONTINUE\r\n      DO 250 J=1,3\r\n      JACOB(3,J)=0.0\r\n      DO 250 K=1,NNODE\r\n      JTEMP=J+1\r\n      JACOB(3,J)=JACOB(3,J)+0.5*GPTH(K)*GPNORM(JTEMP,K)*SHP(K)\r\n  250 CONTINUE\r\nC\r\nC     SAVE THE S,T, AND N VECTORS FOR CALCULATING PSI LATER.\r\nC\r\n      DO 300 I=1,3\r\n      IF (ABS(JACOB(1,I)) .LE. EPS) JACOB(1,I)=0.0\r\n      SK(I)=JACOB(1,I)\r\n      IF (ABS(JACOB(2,I)) .LE. EPS) JACOB(2,I)=0.0\r\n      TK(I)=JACOB(2,I)\r\n      IF (ABS(JACOB(3,I)) .LE. EPS) JACOB(3,I)=0.0\r\n      ENK(I)=JACOB(3,I)\r\n  300 CONTINUE\r\nC\r\nC     THE INVERSE OF THE JACOBIAN WILL BE STORED IN\r\nC     JACOB AFTER THE SUBROUTINE INVERS HAS EXECUTED.\r\nC\r\n      CALL INVERS (3,JACOB,3,DUM,0,DETJ,ISING,INDEX)\r\n      IF (ISING.EQ.1 .AND. DETJ.GT.0.0) GO TO 350\r\n      WRITE (NOUT,550) ELID\r\n      NOGO=1\r\n      BADJ=.TRUE.\r\n      GO TO 500\r\n  350 CALL SAXB (SK,TK,V3)\r\n      VAL=SQRT(V3(1)*V3(1)+V3(2)*V3(2)+V3(3)*V3(3))\r\n      V3(1)=V3(1)/VAL\r\n      V3(2)=V3(2)/VAL\r\n      V3(3)=V3(3)/VAL\r\nC\r\nC     CROSS ELEMENT Y DIRECTION WITH UNIT VECTOR V3 IN ORDER\r\nC     TO BE CONSISTENT WITH THE ELEMENT COORDINATE SYSTEM.\r\nC\r\nC     NOTE - THIS IS IMPORTANT FOR THE DIRECTIONAL REDUCED\r\nC            INTEGRATION CASES.\r\nC\r\nC\r\nC\r\n      V2(1)=0.0\r\n      V2(2)=1.0\r\n      V2(3)=0.0\r\nC\r\n      CALL SAXB (V2,V3,V1)\r\n      VAL=SQRT(V1(1)*V1(1)+V1(2)*V1(2)+V1(3)*V1(3))\r\n      V1(1)=V1(1)/VAL\r\n      V1(2)=V1(2)/VAL\r\n      V1(3)=V1(3)/VAL\r\n      CALL SAXB (V3,V1,V2)\r\nC\r\nC     REMEMBER THAT V1(1) IS EQUIVALENCED TO PSITRN(1), AND SO ON.\r\nC\r\nC     ELIMINATE SMALL NUMBERS\r\nC\r\n      DO 400 I = 1,3\r\n      IF (ABS(V1(I)) .LE. EPS) V1(I)=0.0\r\n      IF (ABS(V2(I)) .LE. EPS) V2(I)=0.0\r\n      IF (ABS(V3(I)) .LE. EPS) V3(I)=0.0\r\n  400 CONTINUE\r\nC\r\n  500 CONTINUE\r\n      RETURN\r\nC\r\n  550 FORMAT ('0*** USER FATAL ERROR, ELEMENT ID =',I10,\r\n     1        '  HAS BAD OR REVERSE GEOMETRY')\r\n      END\r\n"
  },
  {
    "path": "mis/kbar.f",
    "content": "      SUBROUTINE KBAR\r\nC\r\nC     THIS ROUTINE COMPUTES THE TWO 6X6 MATRICES K(NPVT,NPVT) AND\r\nC     K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J.\r\nC\r\nC                  ECPT FOR THE BAR\r\nC\r\nC     ECPT( 1)  -  IELID       ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)   * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -   ...        *\r\nC     ECPT( 4)  -  SMALLV(3)   $ REFERENCE VECTOR\r\nC     ECPT( 5)  -   ...        $\r\nC     ECPT( 6)  -   ...        $\r\nC     ECPT( 7)  -  ICSSV       COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)   * PIN FLAGS\r\nC     ECPT( 9)  -   ...        *\r\nC     ECPT(10)  -  ZA(3)       $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -   ...        $\r\nC     ECPT(12)  -   ...        $\r\nC     ECPT(13)  -  ZB(3)       * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -   ...        *\r\nC     ECPT(15)  -   ...        *\r\nC     ECPT(16)  -  IMATID      MATERIAL ID.\r\nC     ECPT(17)  -  A           CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1          $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2          $\r\nC     ECPT(20)  -  FJ          TORSIONAL CONSTANT\r\nC     ECPT(21)  -  NSM         NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE          FORCE ELEMENT DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1          * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2          *\r\nC     ECPT(25)  -  D1          *\r\nC     ECPT(26)  -  D2          *\r\nC     ECPT(27)  -  F1          *\r\nC     ECPT(28)  -  F2          *\r\nC     ECPT(29)  -  G1          *\r\nC     ECPT(30)  -  G2          *\r\nC     ECPT(31)  -  K1          $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2          $\r\nC     ECPT(33)  -  I12         AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA      COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)      * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -   ...        *\r\nC     ECPT(37)  -   ...        *\r\nC     ECPT(38)  -  MCSIDB      COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)      $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -   ...        $\r\nC     ECPT(41)  -   ...        $\r\nC     ECPT(42)  -  ELTEMP      AVG. ELEMENT TEMPERATURE\r\nC\r\nC     SEE SUBROUTINE KELBOW ON THE DISCUSSION OF K1 AND K2, THE AERA\r\nC     FACTORS FOR SHEAR CORRECTION\r\nC\r\n      LOGICAL          HEAT      ,ABASIC    ,BBASIC    ,BASIC    ,\r\n     1                 AOFSET    ,BOFSET    ,OFFSET\r\n      REAL             K1        ,K2        ,I1        ,I2       ,\r\n     1                 I12       ,NSM\r\n      DOUBLE PRECISION TA(18)    ,TB(9)     ,SMALV0(6) ,DELA     ,\r\n     1                 DELB      ,KE        ,KEP       ,VECI     ,\r\n     2                 VECJ      ,VECK      ,FL        ,FLL      ,\r\n     3                 EI1       ,EI2       ,GAK1      ,GAK2     ,\r\n     4                 R1        ,R2        ,SK1       ,SK2      ,\r\n     5                 SK3       ,SK4       ,AEL       ,GJL      ,\r\n     6                 LR1       ,LR2       ,L         ,LSQ      ,\r\n     7                 LCUBE     ,DP(8)     ,BETA      ,LB       ,\r\n     8                 L2B3      ,L2B6      ,DAMPC\r\n      DIMENSION        VECI(3)   ,VECJ(3)   ,VECK(3)   ,ECPT(100),\r\n     1                 IECPT(100),IPIN(10)\r\n      COMMON /SYSTEM/  ISYS\r\n      COMMON /SMA1IO/  IFCSTM    ,IFMPT     ,IFDIT     ,IDUM1    ,\r\n     1                 IFECPT    ,IGECPT    ,IFGPCT    ,IGGPCT   ,\r\n     2                 IFGEI     ,IGGEI     ,IFKGG     ,IGKGG    ,\r\n     3                 IF4GG     ,IG4GG     ,IFGPST    ,IGGPST   ,\r\n     4                 INRW      ,OUTRW     ,CLSNRW    ,CLSRW    ,\r\n     5                 NEOR      ,EOR       ,MCBKGG(7) ,MCB4GG(7)\r\nC\r\nC     SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON /SMA1BK/  ICSTM     ,NCSTM     ,IGPCT     ,NGPCT    ,\r\n     1                 IPOINT    ,NPOINT    ,I6X6K     ,N6X6K    ,\r\n     2                 I6X64     ,N6X64\r\nC\r\nC     SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON /SMA1CL/  IOPT4     ,K4GGSW    ,NPVT      ,LEFT     ,\r\n     1                 FROWIC    ,LROWIC    ,NROWSC    ,TNROWS   ,\r\n     2                 JMAX      ,NLINKS    ,LINK(10)  ,IDETCK   ,\r\n     3                 DODET     ,NOGO\r\n      COMMON /SMA1HT/  HEAT\r\n      COMMON /SMA1ET/  IELID     ,ISILNO(2) ,SMALLV(3) ,ICSSV    ,\r\n     1                 IPINFL(2) ,ZA(3)     ,ZB(3)     ,IMATID   ,\r\n     2                 A         ,I1        ,I2        ,FJ       ,\r\n     3                 NSM       ,FE        ,C1        ,C2       ,\r\n     4                 D1        ,D2        ,F1        ,F2       ,\r\n     5                 G1        ,G2        ,K1        ,K2       ,\r\n     6                 I12       ,           MCSIDA    ,GPA(3)   ,\r\n     7                 MCSIDB    ,GPB(3)    ,TEMPEL\r\nC\r\nC     SMA1 LOCAL VARIABLES\r\nC\r\n      COMMON /SMA1DP/  KE(144)   ,KEP(144)  ,DELA(6)   ,DELB(6)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN/   MATIDC    ,MATFLG    ,ELTEMP    ,STRESS\r\nC\r\n      COMMON /MATOUT/  E         ,G         ,NU        ,RHO      ,\r\n     1                 ALPHA     ,TSUBO     ,GSUBE     ,SIGT     ,\r\n     2                 SIGC      ,SIGS\r\n      COMMON /HMTOUT/  FK\r\nC\r\n      EQUIVALENCE      (IELID,ECPT(1),IECPT(1)) , (TA(10),TB(1)) ,\r\n     1                 (ECPT(71),DP(1))\r\nC\r\nC     DETERMINE WHICH POINT IS THE PIVOT POINT.\r\nC\r\n      IPVT = 1\r\n      IF (ISILNO(1) .EQ. NPVT) GO TO 20\r\n      IPVT = 2\r\n      IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n   20 JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC     WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE\r\nC     PRECISION\r\nC\r\n      DO 50 I = 1,3\r\n   50 SMALV0(I) = SMALLV(I)\r\n      FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2)\r\n      IF (FL .LE. 0.0D0) GO TO 1010\r\n      DO 60 I = 1,3\r\n   60 SMALV0(I) = SMALV0(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT. ABASIC) CALL TRANSD (ECPT(JCSIDA),TA)\r\n      IF (.NOT. BBASIC) CALL TRANSD (ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC     FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL\r\nC     ARITHMETIC WILL BE DOUBLE PRECISION.\r\nC\r\n  100 DP(1) = ECPT(JCSIDA+1)\r\n      DP(2) = ECPT(JCSIDA+2)\r\n      DP(3) = ECPT(JCSIDA+3)\r\n      DP(4) = ECPT(JCSIDB+1)\r\n      DP(5) = ECPT(JCSIDB+2)\r\n      DP(6) = ECPT(JCSIDB+3)\r\n      VECI(1) = DP(1) - DP(4)\r\n      VECI(2) = DP(2) - DP(5)\r\n      VECI(3) = DP(3) - DP(6)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET)  GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 VECI(1) = -VECI(1)\r\n      VECI(2) = -VECI(2)\r\n      VECI(3) = -VECI(3)\r\n      FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (FL .EQ. 0.0D0) GO TO 1010\r\nC\r\nC     NOW THAT LENGTH HAS BEEN COMPUTED, BRANCH IF THIS IS A -HEAT-\r\nC     FORMULATION.\r\nC\r\n      IF (HEAT) GO TO 2000\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ***CHECK THIS LOGIC***\r\nC\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATD (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) =  VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1)\r\n      VECK(2) =  VECI(3)*SMALV0(ISV  ) - VECI(1)*SMALV0(ISV+2)\r\n      VECK(3) =  VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV  )\r\n      FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 1010\r\n      VECK(1) =  VECK(1)/FLL\r\n      VECK(2) =  VECK(2)/FLL\r\n      VECK(3) =  VECK(3)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) =  VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) =  VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) =  VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 1010\r\n      VECJ(1) =  VECJ(1)/FLL\r\n      VECJ(2) =  VECJ(2)/FLL\r\n      VECJ(3) =  VECJ(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E, G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DAMPC = G SUB E\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      L = FL\r\n      LSQ = L**2\r\n      LCUBE = LSQ*L\r\nC\r\nC     STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS.\r\nC\r\n      DP(1) = E\r\n      DP(2) = G\r\n      DP(3) = I1\r\n      DP(4) = I2\r\n      DP(5) = A\r\n      EI1 = DP(1)*DP(3)\r\n      EI2 = DP(1)*DP(4)\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210\r\n      DP(6) = K1\r\n      GAK1  = DP(2)*DP(5)*DP(6)\r\n      R1 = (12.0D0*EI1*GAK1)/(GAK1*LCUBE + 12.0D0*L* EI1)\r\n      GO TO 220\r\n  210 R1 =  12.0D0*EI1/LCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      DP(7) = K2\r\n      GAK2  = DP(2)*DP(5)*DP(7)\r\n      R2 = (12.0D0*EI2*GAK2)/(GAK2*LCUBE + 12.0D0*L*EI2)\r\n      GO TO 240\r\n  230 R2 =  12.0D0*EI2/LCUBE\r\nC\r\nC     COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4\r\nC\r\n  240 SK1 = 0.25D0*R1*LSQ + EI1/L\r\n      SK2 = 0.25D0*R2*LSQ + EI2/L\r\n      SK3 = 0.25D0*R1*LSQ - EI1/L\r\n      SK4 = 0.25D0*R2*LSQ - EI2/L\r\nC\r\nC     COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      AEL  = DP(5)*DP(1)/L\r\n      LR1  = L*R1/2.0D0\r\n      LR2  = L*R2/2.0D0\r\n      DP(8)= FJ\r\n      GJL  = DP(2)*DP(8)/L\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(I) = 0.0D0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.0) GO TO 255\r\n      DP(8)   =  I12\r\n      BETA    =  12.0D0*DP(1)*DP(8)/LCUBE\r\n      LB      =  L*BETA/2.0D0\r\n      L2B3    =  LSQ*BETA/3.0D0\r\n      L2B6    =  LSQ*BETA/6.0D0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  255 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  260 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.0D0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0D0\r\n      KE(IL) = 0.0D0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI  = 12*(J-1) + IPIN(I)\r\n      IJ  = 12*(IPIN(I)-1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ ) = 0.0D0\r\n      KEP(JI ) = 0.0D0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC            E\r\nC     STORE K       AT KEP(1),...,KEP(36)   AND\r\nC            NPVT,A\r\nC\r\nC            E\r\nC           K        AT KEP(37),...,KEP(72)\r\nC            NPVT,B\r\nC\r\n  325 J = 0\r\n      IF (IPVT .EQ. 2) GO TO 327\r\n      ILOW = 1\r\n      ILIM = 72\r\n      GO TO 329\r\n  327 ILOW = 73\r\n      ILIM = 144\r\n  329 DO 340 I = ILOW,ILIM,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J   ) = KE(K  )\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W  AND W  6X6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0D0\r\n      IPASS = 1\r\n      IWBEG = 0\r\nC\r\nC     SET UP POINTERS\r\nC\r\n      IF (IPVT-1) 365,360,365\r\n  360 BASIC  = ABASIC\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      IKEL   = 1\r\n      INDEX  = ISILNO(1)\r\n      GO TO 368\r\n  365 BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IKEL   = 37\r\n      INDEX  = ISILNO(2)\r\nC\r\nC     SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX.\r\nC     G = AT X TI\r\nC\r\n  368 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL TRANSD (ECPT(JCSID),KE(10))\r\n      CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3\r\nC     MATRIX.\r\nC\r\n  370 IF (.NOT.OFFSET) GO TO 380\r\n      KE(10) =  0.0D0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.0D0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.0D0\r\nC\r\nC     FORM THE 3X3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28))\r\nC\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF (.NOT. OFFSET) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC\r\nC                       T      E\r\nC     FORM THE PRODUCT W   X  K   AND STORE IN KEP(73)\r\nC                       NPVT\r\nC\r\n  390 CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73))\r\nC\r\nC     COMPUTE THE FINAL ANSWER AND STORE IN KEP(109)\r\nC\r\n      CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109))\r\nC\r\nC     INSERT THIS 6X6\r\nC\r\n      CALL SMA1B (KEP(109),INDEX,-1,IFKGG,0.0D0)\r\n      IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 400\r\n      K4GGSW = 1\r\n      CALL SMA1B (KEP(109),INDEX,-1,IF4GG,DAMPC)\r\nC\r\nC     IF IPASS = 2, WE ARE DONE.  OTHERWISE COMPUTE THE OFF-DIAGONAL 6X6\r\nC\r\n  400 IF (IPASS .EQ. 2) GO TO 500\r\n      IWBEG = 36\r\n      IPASS = 2\r\n      DO 410 I = 28,36\r\n  410 KE(I) = 0.0D0\r\n      IF (IPVT-1) 360,365,360\r\n  500 RETURN\r\nC\r\n 1010 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION CONTINUES HERE.  GET MATERIAL PROPERTY -K- FROM\r\nC     HMAT\r\nC\r\n 2000 MATFLG = 1\r\n      MATIDC = IECPT(16)\r\n      ELTEMP = ECPT(42)\r\n      CALL HMAT (IELID)\r\nC\r\n      FL = DBLE(FK)*DBLE(ECPT(17))/FL\r\n      IF (NPVT .EQ. IECPT(3)) FL = -FL\r\n      DO 2020 I = 1,2\r\n      CALL SMA1B (FL,IECPT(I+1),NPVT,IFKGG,0.0D0)\r\n      FL = -FL\r\n 2020 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kcone2.f",
    "content": "      SUBROUTINE KCONE2\r\nC\r\nC     THIS IS A DOUBLE PRECISION VERSION OF KCONE, USED ONLY BY THE\r\nC     60- AND 64-BIT WORD MACHINE. IT IS SIMILARLY CONTSTRUCTED AS\r\nC     THE KCONEQ SUBROUTINE.\r\nC     SINCE MOST 60- AND 64- MACHINES DO NOT SUPPORT QUAD PRECISION AND\r\nC     THE QUAD PRECISION FLAG (Q IN LQRO OF /MACHIN/) IS NOT USED. THE\r\nC     ONLY WAY TO IMPLEMENT THIS D.P. VERSION INTO NASTRAN IS SIMPLY\r\nC     REPLACING KCONES BY THIS KCONE2 (I.E. RENAME KCONE2 TO KCONES).\r\nC\r\nC     FOUR KCONE VERSIONS\r\nC     KCONES  FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY).\r\nC             S.P. COMPUTATION IS USED\r\nC     KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN D.P. FOR IMPROVED ACCURACY\r\nC     KCONED  FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD\r\nC             PRECISION SOFTWARE SUPPORT (e.g. DEC3100).\r\nC             D.P. COMPUTAION IS USED\r\nC     KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY\r\nC\r\nC     ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE\r\nC     SUPPORTING ROUTINES ARE NOW MOVED INTO KCONED (AND ALSO KCONES)\r\nC\r\nC     ECPT( 1) = ELEMENT ID             INTEGER        ECT\r\nC     ECPT( 2) = SIL PT A               INTEGER        ECT\r\nC     ECPT( 3) = SIL PT B               INTEGER        ECT\r\nC     ECPT( 4) = MATID 1                INTEGER        EPT\r\nC     ECPT( 5) = T   (MEMBRANE THICK)   REAL           EPT\r\nC     ECPT( 6) = MATID 2                INTEGER        EPT\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)   REAL           EPT\r\nC     ECPT( 8) = MATID 3                INTEGER        EPT\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)  REAL           EPT\r\nC     ECPT(10) = NON-STRUCTURAL-MASS    REAL           EPT\r\nC     ECPT(11) = Z1                     REAL           EPT\r\nC     ECPT(12) = Z2                     REAL           EPT\r\nC     ECPT(13) = PHI  1                 REAL           EPT\r\nC     ECPT(14) = PHI  2                 REAL           EPT\r\nC     ECPT(15) = PHI  3                 REAL           EPT\r\nC     ECPT(16) = PHI  4                 REAL           EPT\r\nC     ECPT(17) = PHI  5                 REAL           EPT\r\nC     ECPT(18) = PHI  6                 REAL           EPT\r\nC     ECPT(19) = PHI  7                 REAL           EPT\r\nC     ECPT(20) = PHI  8                 REAL           EPT\r\nC     ECPT(21) = PHI  9                 REAL           EPT\r\nC     ECPT(22) = PHI 10                 REAL           EPT\r\nC     ECPT(23) = PHI 11                 REAL           EPT\r\nC     ECPT(24) = PHI 12                 REAL           EPT\r\nC     ECPT(25) = PHI 13                 REAL           EPT\r\nC     ECPT(26) = PHI 14                 REAL           EPT\r\nC     ECPT(27) = COORD. SYS. ID PT.1    INTEGER        BGPDT\r\nC     ECPT(28) = RADIUS PT. 1           REAL           BGPDT\r\nC     ECPT(29) = DISTANCE TO PT.1       REAL           BGPDT\r\nC     ECPT(30) = NULL                   REAL           BGPDT\r\nC     ECPT(31) = COORD. SYS. ID PT.2    INTEGER        BGPDT\r\nC     ECPT(32) = RADIUS PT 2            REAL           BGPDT\r\nC     ECPT(33) = DISTANCE TO PT. 2      REAL           BGPDT\r\nC     ECPT(34) = NULL                   REAL           BGPDT\r\nC     ECPT(35) = ELEMENT TEMPERATURE    REAL           GEOM3\r\nC\r\nC\r\n      INTEGER          NERROR(2)     ,NECPT(100)     ,NA(7)  ,\r\n     1                 OLDPT1 ,OLDPT2\r\n      REAL             I00    ,I01   ,I02    ,I03    ,I04    ,\r\n     1                 I10    ,I11   ,I12    ,I13    ,I14    ,\r\n     2                 I20    ,I21   ,I22    ,I23    ,I24    ,\r\n     3                         I31   ,I32    ,I33    ,I34    ,\r\n     4                                I42    ,I43    ,I44    ,\r\n     5                                I52    ,I53    ,I54    ,\r\n     6                 CONSTS ,       I62    ,I63    ,I64\r\n      REAL             KQN(10,10)    ,KQX(10,10)     ,KQE(10,10)     ,\r\n     1                 KQY(10,10)    ,FAC(7),H(120)  ,H11    ,H12    ,\r\n     2                 H13    ,H14   ,H15    ,H16    ,H17    ,H18    ,\r\n     3                 H19    ,H1TEN ,DETERM ,PI     ,ONE    ,HUQ    ,\r\n     4                 INTEG  ,KIJ   ,NSPOPI ,HYQ    ,TEMP60 ,HYQF   ,\r\n     5                 ZA     ,E11   ,D11    ,ZB     ,E12    ,D12    ,\r\n     6                 A      ,E22   ,D22    ,B      ,E33    ,D33    ,\r\n     7                 SIGN   ,T     ,CP     ,RA     ,TS     ,SP     ,\r\n     8                 RB     ,N     ,CP2    ,RASQ   ,N2     ,SP2    ,\r\n     9                 RBSQ   ,SL    ,NSP    ,TN     ,L2     ,NCP    ,\r\n     O                 PIOVB  ,DL    ,SPE12  ,TD     ,TEMP   ,CPE12  ,\r\n     1                 N2E22  ,TWOD33,TNSP   ,N2E33  ,OPI    ,OQ     ,\r\n     2                 SPE22  ,TEMP1 ,TEMP5  ,CPE22  ,TEMP2  ,TEMP6  ,\r\n     3                 SP2E22 ,TEMP3 ,TEMP7  ,CP2E22 ,TEMP4  ,SP2E33 ,\r\n     4                 N2D33  ,SP2D22,SPE33\r\n      DOUBLE PRECISION SUM    ,QQ1   ,QQ2    ,QQ3    ,QQ4\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /MATIN /  MATID  ,INFLAG,ELTEMP ,STRESS ,SINTH  ,COSTH\r\n      COMMON /MATOUT/  G11    ,G12   ,G13    ,G22    ,G23    ,G33    ,\r\n     1                 DUM(5) ,GSUBE\r\n      COMMON /SMA1IO/  DUM1(10)      ,IFKGG  ,DUM2   ,IF4GG\r\n      COMMON /SMA1CL/  IOPT4  ,K4GGSW,NPVT   ,DUMCL(7)       ,LINK(10),\r\n     1                 IDETCK ,DODET ,NOGO\r\n      COMMON /SMA1ET/  ECPT(100)\r\n      COMMON /SMA1DP/  INTEG(28)     ,KIJ(36),HUQ(100)       ,HYQF(10),\r\n     1                 HYQ(10),TEMP60(60)    ,OPI    ,ZA     ,E11     ,\r\n     2                 CP     ,SPE22 ,ZB     ,E12    ,SP     ,CPE22   ,\r\n     3                 A      ,E22   ,CP2    ,SP2E22 ,B      ,E33     ,\r\n     4                 SP2    ,CP2E22,SIGN   ,T      ,D11    ,TEMP1   ,\r\n     5                 RA     ,TS    ,D12    ,TEMP2  ,RB     ,N       ,\r\n     6                 D22    ,TEMP3 ,RASQ   ,N2     ,D33    ,TEMP4   ,\r\n     7                 RBSQ   ,SL    ,NSP    ,TEMP5  ,TN     ,L2      ,\r\n     8                 NCP    ,TEMP6 ,PIOVB  ,DL     ,SPE12  ,TEMP7   ,\r\n     9                 TD     ,TEMP  ,CPE12  ,OQ     ,N2E22  ,TWOD33  ,\r\n     O                 TNSP   ,N2E33  ,SP2E33,SPE33\r\n      EQUIVALENCE      (CONSTS(1),PI  ), (ECPT(4),MATID1),\r\n     1                 (ECPT(6),MATID2), (ECPT(8),MATID3),\r\n     2                 (ECPT(1),NECPT(1))\r\n      EQUIVALENCE      (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1))\r\n      EQUIVALENCE      (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13),\r\n     1                 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16),\r\n     2                 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19),\r\n     3                 (HYQ(10),H1TEN)\r\n      EQUIVALENCE      (I00,INTEG( 1)), (I20,INTEG(11)),\r\n     1                 (I01,INTEG( 2)), (I21,INTEG(12)),\r\n     2                 (I02,INTEG( 3)), (I22,INTEG(13)),\r\n     3                 (I03,INTEG( 4)), (I23,INTEG(14)),\r\n     4                 (I04,INTEG( 5)), (I24,INTEG(15)),\r\n     5                 (I10,INTEG( 6)), (I31,INTEG(16)),\r\n     6                 (I11,INTEG( 7)), (I32,INTEG(17)),\r\n     7                 (I12,INTEG( 8)), (I33,INTEG(18)),\r\n     8                 (I13,INTEG( 9)), (I34,INTEG(19)),\r\n     9                 (I14,INTEG(10)), (I52,INTEG(23)),\r\n     O                 (I42,INTEG(20)), (I53,INTEG(24)),\r\n     1                 (I43,INTEG(21)), (I54,INTEG(25)),\r\n     2                 (I44,INTEG(22)), (I62,INTEG(26)),\r\n     3                 (I63,INTEG(27)), (I64,INTEG(28))\r\n      DATA    OLDPT1,  OLDPT2 / 0, 0  /\r\n      DATA    FAC   /  1.0, 1.0, 2.0, 6.0, 24.0, 120.0, 720.0 /\r\n      DATA    NA    /  1,1,1,2,3,3,3  /\r\n      DATA    ONE   /  1.0    /\r\nC\r\nC     DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS\r\nC\r\n      IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10\r\n      IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10\r\n   10 CONTINUE\r\nC\r\nC     NO MATCH THUS DO ENTIRE COMPUTATION\r\nC\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      NINT  = NECPT(1) - (NECPT(1)/1000)*1000 - 1\r\n      N     = NINT\r\n      RA    = ECPT(28)\r\n      ZA    = ECPT(29)\r\n      RB    = ECPT(32)\r\n      ZB    = ECPT(33)\r\n      TEMP1 = RB - RA\r\n      TEMP2 = ZB - ZA\r\n      SL    = SQRT(TEMP1**2 + TEMP2**2)\r\n      L2    = SL*SL\r\n      IF (SL) 30,20,30\r\n   20 NERROR(1) = NECPT(1)/1000\r\n      NERROR(2) = N + .3\r\n      CALL MESAGE (30,39,NERROR(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   30 SP = TEMP1/SL\r\n      CP = TEMP2/SL\r\n      A  = RA\r\n      B  = SP\r\n      IF (B) 60,40,60\r\nC\r\nC     GO TO 40 FOR B = 0\r\nC\r\nC                               1-N\r\nC                         PI  RA     M+1\r\nC     FOR B = 0,   I   = --------- SL    (FOR ALL M,N .GE. 0)\r\nC                   M,N    M + 1\r\nC\r\n   40 IDX = 0\r\n      DO 50 I = 1,7\r\n      NBEGIN = NA(I)\r\nC\r\n      DO 50 J = NBEGIN,5\r\nC\r\nC     M = I - 1\r\nC     N = J - 1\r\nC     MPLUS1 THUS EQUALS I\r\nC\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = (PI*SL**I)/(FLOAT(I)*RA**(J-2))\r\n   50 CONTINUE\r\n      GO TO 100\r\nC\r\nC     ABOVE COMPLETES ALL INTEGRALS FOR B = 0\r\nC\r\n   60 CONTINUE\r\nC\r\nC     FOR B .NE. ZERO\r\nC\r\nC     IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL\r\nC\r\nC     OK BELOW IS FOR B NOT EQUAL TO ZERO\r\nC\r\nC     FIRST M = 0 CASE\r\nC\r\nC                             2-N     2-N\r\nC                       PI (RB    - RA   )\r\nC               I    = --------------------   (N NOT EQUAL TO 2)\r\nC                0,N        (2-N) B\r\nC\r\nC\r\nC     FOR N=2   I    = PI * (LOG RB  -  LOG RA) / B\r\nC                0,2            E          E\r\nC\r\n      RASQ  = RA*RA\r\n      RBSQ  = RB*RB\r\n      PIOVB = PI/B\r\nC\r\n      INTEG(1) = 0.5E0*PIOVB*(RBSQ - RASQ)\r\n      INTEG(2) = PIOVB*(RB - RA)\r\n      INTEG(3) = PIOVB*LOG(RB/RA)\r\n      INTEG(4) =-PIOVB*(ONE/RB - ONE/RA)\r\n      INTEG(5) =-0.5E0*PIOVB*(ONE/RBSQ - ONE/RASQ)\r\nC\r\n      IDX  = 5\r\n      DO 90 I = 1,6\r\n      MPLUS1 = I + 1\r\n      NBEGIN = NA(MPLUS1)\r\n      DO 90 J = NBEGIN,5\r\nC\r\nC     M = I\r\nC     N = J - 1\r\nC\r\nC     WE ARE GETTING INTEGRAL(M,N)\r\nC     M = POWER OF S\r\nC     N = POWER OF R\r\nC\r\nC     EVALUATING AT R = RB,  THEN AT R = RA\r\nC\r\nC                                    K   MNK2\r\nC                (M)FAC.     M   (-A) (R)\r\nC     I  = (PI) (-------) ((SUM -------------------------) + (TERM-X))\r\nC      MN          (M+1)    K=0  (M-K)FAC. (K)FAC. (MNK2)\r\nC                 B        (FOR K.NE. MN2                   (FOR K=MN2)\r\nC\r\nC       WHERE    MNK2 = M-N-K+2\r\nC                MN2  = M-N  +2\r\nC             (X)FAC. = X!\r\nC                             MN2\r\nC                         (-A)    LOG(R)\r\nC              TERM-X = --------------------\r\nC                       (M-N+2)FAC. (N-2)FAC.\r\nC\r\nC     NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1)\r\nC                                 1 FACTORIAL = FAC(2)\r\nC                                 2 FACTORIAL = FAC(3)    ETC.\r\nC\r\n      SUM  = 0.0\r\n      SIGN =-1.0\r\n      DO 80 KK = 1,MPLUS1\r\n      SIGN =-SIGN\r\n      K    = KK - 1\r\n      MN2  = I - J + 3\r\n      QQ1  = DBLE(A )\r\n      QQ2  = DBLE(RB)\r\n      QQ3  = DBLE(RA)\r\n      IF (K .EQ. MN2) GO TO 70\r\n      MNK2 = MN2 - K\r\n      MK1  = MPLUS1 - K\r\n      TEMP = MNK2\r\nC\r\nC     QQ4  = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP)\r\nC\r\n      QQ1  = QQ1**K\r\n      QQ2  = QQ2**MNK2\r\n      QQ3  = QQ3**MNK2\r\n      QQ2  = QQ2 - QQ3\r\n      QQ3  = DBLE(FAC(MK1)*FAC(KK)*TEMP)\r\n      GO TO 75\r\nC\r\nC     QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2))\r\nC\r\n   70 QQ1 = QQ1**MN2\r\n      QQ3 = QQ2/QQ3\r\n      QQ2 = DLOG(QQ3)\r\n      QQ3 = DBLE(FAC(MN2+1)*FAC(J-2))\r\n   75 QQ4 = QQ1*QQ2/QQ3\r\n   80 SUM = SUM + DBLE(SIGN)*QQ4\r\nC\r\n      QQ1 = DBLE(PI*FAC(MPLUS1))\r\n      QQ2 = DBLE(B)\r\n      QQ3 = QQ2**MPLUS1\r\n      QQ4 = SUM*QQ1/QQ3\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = SNGL(QQ4)\r\n   90 CONTINUE\r\nC\r\n  100 OLDPT1 = NECPT(2)\r\n      OLDPT2 = NECPT(3)\r\n      GO TO 140\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 1\r\nC\r\n  110 IF (NPVT-OLDPT1) 130,120,130\r\n  120 NPIVOT = 1\r\n      GO TO 410\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 2\r\nC\r\n  130 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     ZERO OUT THE KQN MATRIX\r\nC\r\n  140 DO 150 I = 1,10\r\n      DO 150 J = 1,10\r\n  150 KQN(I,J) = 0.0\r\nC\r\nC     IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX\r\nC\r\n      T = ECPT(5)\r\n      IF (T) 160,200,160\r\n  160 ASSIGN 190 TO IRETRN\r\n      MATID  = MATID1\r\n  170 INFLAG = 2\r\n  180 ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\n      GO TO IRETRN, (190,230,242)\r\n  190 E11 = G11\r\n      E12 = G12\r\n      E22 = G22\r\n      E33 = G33\r\n      TN  = T * N\r\n      CP2 = CP* CP\r\n      SP2 = SP* SP\r\n      N2  = N * N\r\n      CP2E22= CP2* E22\r\n      SP2E22= SP2* E22\r\n      CPE22 = CP * E22\r\n      SPE22 = SP * E22\r\n      CPE12 = CP * E12\r\n      SPE12 = SP * E12\r\n      N2E33 = N2 * E33\r\n      N2E22 = N2 * E22\r\n      SP2E33= SP2* E33\r\n      SPE33 = SP * E33\r\nC\r\nC /// FURTHER REDUCTION IS NEEDED HERE ///\r\nC\r\n      KQE(1,1) = T * (N2E22 + SP2E33)*I02\r\n      KQE(1,2) = T * (N2E22*I12 - SPE33*I01 + SP2E33*I12)\r\n      TEMP     = E22 + E33\r\n      TNSP     = TN  * SP\r\n      KQE(1,3) = TNSP* TEMP*I02\r\n      KQE(1,4) = TN  * (E12*I01 + SP*TEMP*I12)\r\n      TEMP     = TN  * CP*E22\r\n      KQE(1,5) = TEMP * I02\r\n      KQE(1,6) = TEMP * I12\r\n      KQE(1,7) = TEMP * I22\r\n      KQE(1,8) = TEMP * I32\r\n      TEMP4    = 2.E0 * SP*I11\r\n      KQE(2,2) = T  * (N2E22*I22 + E33*(I00-TEMP4 + SP2*I22))\r\n      KQE(2,3) = TN * (SPE22*I12 - E33*I01 + SPE33*I12)\r\n      KQE(2,4) = TN * (E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22)\r\n      KQE(2,5) = KQE(1,6)\r\n      KQE(2,6) = KQE(1,7)\r\n      KQE(2,7) = KQE(1,8)\r\n      KQE(2,8) = TN *  CPE22 *I42\r\n      KQE(3,3) = T  * (SP2E22*I02 + N2E33*I02)\r\n      KQE(3,4) = T  * (SPE12 *I01 + SP2E22*I12 + N2E33*I12)\r\n      TEMP     = T  * CP*SPE22\r\n      KQE(3,5) = TEMP * I02\r\n      KQE(3,6) = TEMP * I12\r\n      KQE(3,7) = TEMP * I22\r\n      KQE(3,8) = TEMP * I32\r\n      KQE(4,4) = T  * (E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22)\r\n      TEMP     = SP * CPE22\r\n      KQE(4,5) = T * (CPE12*I01 + TEMP*I12)\r\n      KQE(4,6) = T * (CPE12*I11 + TEMP*I22)\r\n      KQE(4,7) = T * (CPE12*I21 + TEMP*I32)\r\n      KQE(4,8) = T * (CPE12*I31 + TEMP*I42)\r\n      TEMP     = T * CP2E22\r\n      KQE(5,5) = TEMP * I02\r\n      KQE(5,6) = TEMP * I12\r\n      KQE(5,7) = TEMP * I22\r\n      KQE(5,8) = TEMP * I32\r\n      KQE(6,6) = KQE(5,7)\r\n      KQE(6,7) = KQE(5,8)\r\n      KQE(6,8) = TEMP * I42\r\n      KQE(7,7) = KQE(6,8)\r\n      KQE(7,8) = TEMP * I52\r\n      KQE(8,8) = TEMP * I62\r\nC\r\n  200 IF (ECPT(7) .EQ. 0.0) GO TO 270\r\nC\r\nC     NOW GET G MATERIAL MATRIX ID = MATID2\r\nC\r\n      MATID = MATID2\r\n      ASSIGN 230 TO IRETRN\r\n      GO TO 170\r\nC\r\nC     NOW FORM D = I DOT G\r\nC\r\n  230 D11 = ECPT(7)*G11\r\n      D12 = ECPT(7)*G12\r\n      D22 = ECPT(7)*G22\r\n      D33 = ECPT(7)*G33\r\nC\r\nC     IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES\r\nC\r\n      TS = ECPT(9)\r\n      IF (TS) 240,265,240\r\n  240 CONTINUE\r\nC\r\nC     GET G FOR MATID3\r\nC\r\n      MATID  = MATID3\r\n      INFLAG = 1\r\n      ASSIGN 242 TO IRETRN\r\n      GO TO 180\r\nC\r\n  242 CONTINUE\r\n      IF (G .EQ. 0.0) GO TO 261\r\nC\r\nC     FORMING 1.0/Q DIRECTLY\r\nC\r\n      OPI = ONE / PI\r\nC\r\nC /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS\r\nC\r\n      N2D33  = N2  * D33\r\n      SP2D22 = SP2 * D22\r\n      OQ     = SL*TS*G*(RA+RB)*0.5E0 + I02*(N2D33+SP2D22)*OPI\r\n      OQ     = ONE / OQ\r\n      NSP    = N   * SP\r\n      NCP    = N   * CP\r\n      NSPOPI = NSP * OPI\r\n      TWOD33 = 2.0 * D33\r\n      TEMP1  = D12 * (ONE/RB - ONE/RA)\r\n      TEMP2  = NSPOPI * (D22 + D33)\r\n      TEMP3  = N   * NSPOPI*(TWOD33 + D22)\r\n      TEMP4  = OQ  * 0.5E0 *NCP*N*D33*OPI\r\n      TEMP5  = OPI * (N2*TWOD33 + SP2*D22)\r\n      TEMP6  = D12 * N2*L2/RB\r\n      TEMP7  = NSPOPI * CP*0.5E0\r\n      HYQ(1) = OQ * (TEMP1*NCP - TEMP7*I03*(D33+2.0E0*D22))\r\n      HYQ(2) = OQ * (NCP*SL/RB*D12 - TEMP7*I13*(3.0E0*D33+D22)\r\n     1       + 1.5E0*NCP*OPI*I02*D33)\r\n      HYQ(3) = TEMP4 * I03\r\n      HYQ(4) = TEMP4 * I13\r\n      HYQ(5) = OQ * (TEMP1*N2 - TEMP3*I03)\r\n      HYQ(6) = OQ * (D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02)\r\n      HYQ(7) = OQ * (2.0E0*D11*(RA-RB)+TEMP6+2.0E0*I12*TEMP5-TEMP3*I23)\r\n      HYQ(8) = OQ * (-D11*6.E0*SL*RB+TEMP6*SL+3.E0*I22*TEMP5-TEMP3*I33)\r\n      HYQ(9) =-OQ * TEMP2 * I02\r\n      HYQ(10)= OQ * (N*SL*(D12+D33) - TEMP2*I12)\r\nC\r\n      TEMP = TS * G*I00\r\n      DO 250 I = 1,10\r\n  250 HYQF(I) = HYQ(I)*TEMP\r\n      DO 260 I = 1,10\r\n      DO 260 J = I,10\r\n  260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J)\r\nC\r\nC     ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28\r\nC\r\n      TEMP = TS * G\r\n      KQY( 9,10) = KQY( 9,10) + TEMP*I10\r\n      KQY(10,10) = KQY(10,10) + TEMP*I20\r\n      KQY( 9, 9) = KQY( 9, 9) + TEMP*I00\r\nC\r\nC     END OF KQY COMPUTATION\r\nC\r\n      GO TO 265\r\n  261 TS = 0.0\r\n  265 CONTINUE\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX\r\nC\r\nC     KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION\r\nC\r\nC     (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI-\r\nC     FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED)\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25E0*D33*SP**2)\r\n      KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25E0*SP*I14-2.25E0*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-7.5E-1)\r\n      KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-7.5E-1)\r\n      KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0E0*D33*SP**2)\r\n      KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0E0*SP*I14-3.0E0*I03)\r\n     1          - D22*I03)  + D22*N*N*I14)\r\n      KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0E0*SP*I24-6.0E0*I13)\r\n     1          + D22*I13*(-2.0E0)) - 2.0E0*D12*I02 + D22*N**2*I24)\r\n      KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0E0*SP*I34-9.0E0*I23)\r\n     1          + D22*I23*(-3.0E0)) - 6.0E0*D12*I12 + D22*N**2*I34)\r\n      KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5E0*D33*SP**2)\r\n      KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5E0*I02+1.5E0*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5E0)\r\n     1          + SP*I24*2.25E0) + I02*2.25E0) + D22*N*N*I24)\r\n      KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-7.5E-1*SP*I14+7.5E-1*I03)\r\n      KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-7.5E-1*SP*I24+7.5E-1*I13)\r\n      KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0E0*SP*I14-3.0E0*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0E0)\r\n     1          + SP*I24*3.0E0) + I02*3.0E0) + D22*(-SP*I13+N**2*I24))\r\n      KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0E0)\r\n     1          + SP*I34*3.0E0) + I12*6.0E0)\r\n     2          + D22*(-2.0E0*SP*I23 + N**2*I34) + D12*I12*(-2.0E0))\r\n      KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-1.20E01)\r\n     1          + SP*I44*3.0E0) + I22*9.0E0)\r\n     2          + D22*(-3.0E0*SP*I33+N**2*I44) + D12*I22*(-6.0E0))\r\n      KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5E0*SP*I13-1.5E0*I02)\r\n     1          + D22*N*N*I13)\r\n      KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0E0)+SP*I23*1.5E0)\r\n     1          + I01*1.5E0)+ D22*N*N*I23)\r\n      KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*2.5E-1\r\n      KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*2.5E-1\r\n      KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0E0)\r\n      KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03)\r\n      KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0E0*I13)\r\n      KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0E0*I23)\r\n      KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-5.0E-1)\r\n      KQX(3,10) = KQX(3,10) + D33*CP*N*(+5.0E-1*I02-5.0E-1*SP*I13)\r\n      KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*2.5E-1\r\n      KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0E0)\r\n      KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13)\r\n      KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0E0*I23)\r\n      KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0E0*I33)\r\n      KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-5.0E-1)\r\n      KQX(4,10) = KQX(4,10) + D33*CP*N*(+5.0E-1*I12-5.0E-1*SP*I23)\r\n      KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0E0*D33*SP**2)\r\n      KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0E0*SP*I14-4.0E0*I03)\r\n     1          + D22*I03*(-1.0E0)) + D22*N*N*I14)\r\n      KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0E0*SP*I24-8.0E0*I13)\r\n     1          + D22*I13*(-2.0E0))-2.0E0*D12*I02 + D22*N**2*I24)\r\n      KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0E0*SP*I34-1.20E01*I23)\r\n     1          + D22*I23*(-3.0E0)) - 6.0E0*D12*I12 + D22*N**2*I34)\r\n      KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0E0*D33*SP**2)\r\n      KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0E0*I02+2.0E0*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0E0)+D33*(-8.0E0))\r\n     1          + D33*SP*I24*4.0E0) + D22*N**2*I24 + 4.0E0*D33*I02)\r\n     2          + D22*SP*SP*I02\r\n      KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0E0)+D33*(-1.20E01))\r\n     1          + D33*SP*I34*4.0E0) + I12*(-2.0E0*D12+8.0E0*D33)\r\n     2          + D22*N*N*I34) + SP*(+2.0E0*D12*I01+2.0E0*D22*SP*I12)\r\n      KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0E0)+D33*(-1.6E01))\r\n     1          + D33*SP*I44*4.0E0) + I22*(-6.0E0*D12+1.20E01*D33)\r\n     2          + D22*N*N*I44)+SP*(+6.0E0*D12*I11+3.0E0*D22*SP*I22)\r\n      KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0E0*SP*I13-2.0E0*I02)\r\n     1          + D22*I02*(-1.0E0)) + D22*N*N*I13)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0E0) + SP*I23*2.0E0)\r\n     1          + I01*2.0E0)+ D22*(+N**2*I23-SP*I12))\r\n      KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0E0)+D33*(-1.6E01))\r\n     1          + D33*SP*I44*4.0E0) + I22*(D12*(-4.0E0) +D33*1.6E01)\r\n     2          + D22*N*N*I44) + SP*(D12*I11*8.0E0+D22*SP*I22*4.0E0)\r\n     3          + D11*I00*4.0E0\r\n      KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0E0)+D33*(-2.0E01))\r\n     1          + D33*SP*I54*4.0E0) + I32*(D12*(-8.0E0)+D33*2.40E01)\r\n     2          + D22*N*N*I54) + SP*(D12*I21*1.80E01+D22*SP*I32*6.0E0)\r\n     3          + D11*I10*1.20E01\r\n      KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0E0*SP*I23-4.0E0*I12)\r\n     1          + D22*I12*(-2.0E0)) - 2.0E0*D12*I01 + D22*N**2*I23)\r\n      KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0E0)+SP*I33*2.0E0)\r\n     1          + I11*4.0E0)+ D22*(+N**2*I33-2.0E0*SP*I22)\r\n     2          + D12*I11*(-2.0E0))\r\n      KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0E0)+D33*(-2.40E01))\r\n     1          + D33*SP*I64*4.0E0) + I42*(D12*(-1.20E01) + D33*3.60E01)\r\n     2          + D22*N*N*I64) + SP*(D12*I31*3.60E01+D22*SP*I42*9.0E0)\r\n     3          + D11*I20*3.60E01\r\n      KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0E0*SP*I33-6.0E0*I22)\r\n     1          + D22*I22*(-3.0E0)) - 6.0E0*D12*I11 + D22*N**2*I33)\r\n      KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0E0)+SP*I43*2.0E0)\r\n     1          + I21*6.0E0)+ D22*(+N**2*I43-3.0E0*SP*I32)\r\n     2          + D12*I21*(-6.0E0))\r\n      KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2)\r\n      KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12\r\n      KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0E0)+ SP*I22)+I00)\r\n     1          + D22*N*N*I22\r\n      IF (TS .EQ. 0) GO TO 270\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0E0+D33*3.0E0)\r\n     1          + D22*SP*H11*I02) + D33*N*N*H11*I02)\r\n      KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13)\r\n     1          + D33*(+1.5E0*H12*I03+1.5E0*H11*I13))\r\n     2          + D33*H11*I02*(-1.5E0))+D33*N*H11*H12*I02)\r\n     3          + D22*SP*SP*H11*H12*I02\r\n      KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5E0*SP*H13\r\n     1          - 5.0E-1*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03)\r\n     2          + D22*SP*SP*H11*H13*I02\r\n      KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5E0*SP*H14*I03\r\n     1          - 5.0E-1*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03)\r\n     2          + D22*SP*SP*H11*H14*I02\r\n      KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11)\r\n     1          + D33*(+1.5E0*CP*H15+2.0E0*N*H11))\r\n     2          + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02\r\n      KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0E0+H16)\r\n     1          + N*N*I13)  + CP*N*H16*I03)+D33*N*(+1.5E0*CP*H16*I03\r\n     2          + 2.0E0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0E0+H16)\r\n      KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0E0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + CP*N*H17*I03*(+D22+1.5E0*D33))\r\n     3          + D33*N*N*H11*(-4.0E0*I12+H17*I02)\r\n      KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0E0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + CP*N*H18*I03*(+D22+1.5E0*D33))\r\n     3          + D33*N*N*H11*(-6.0E0*I22+H18*I02)\r\n      KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02)\r\n     1          + D33*(+1.5E0*CP*H19*I03+H11*I02))\r\n     2          + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02\r\n      KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*SP*H1TEN*I03*1.5E0) + D22*SP*(+CP*H1TEN*I03\r\n     2          + H11*I12)) + D22*SP*SP*H11*H1TEN*I02\r\n      KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.E0+I02*(-3.E0))\r\n     1          + D22*SP*I13*2.E0) + D33*N*H12*I02) + D22*SP*SP*H12*I02)\r\n      KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5E0*SP*I13-1.5E0*I02)\r\n     1          + N*H12*I03*(-5.0E-1)) + N*H12*H13*I02)\r\n     2          + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02\r\n      KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5E0*SP*I13-1.5E0*I02)\r\n     1          + N*H12*I13*(-5.0E-1)) + N*H12*H14*I02)\r\n     2          + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02\r\n      KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5E0*SP*I13-1.5E0*I02)\r\n     1          + N*H12*I02)+ SP*N*H12*I03*2.0E0) + D22*SP*(+CP*H15*I13\r\n     2          + N*H12*I03)) + D22*SP*SP*H12*H15*I02\r\n      KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0E0+H16)\r\n     1          + SP*I13*2.0E0) + CP*H16*(+1.5E0*SP*I13-1.5E0*I02))\r\n     2          + D22*SP*I13*(+CP*H16+N*H12))\r\n     2          + D22*SP*SP*H12*I02*(-1.0E0+H16)\r\n      KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0E0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + CP*N*H17*I13*(+D22+1.5E0*D33))\r\n     3          + D33*N*(N*H12*(-4.0E0*I12+H17*I02)\r\n     4          + CP*H17*I02*(-1.5E0))\r\n      KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0E0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + CP*N*H18*I13*(+D22+1.5E0*D33))\r\n     3          + D33*N*(N*H12*(-6.0E0*I22+H18*I02)\r\n     4          + CP*H18*I02*(-1.5E0))\r\n      KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5E0*SP*I13-1.5E0*I02)\r\n     1          + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02))\r\n     2          + D22*SP*SP*H12*H19*I02\r\n      KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*H1TEN*(+1.5E0*SP*I13-1.5E0*I02))\r\n     2          + D22*SP*(+CP*H1TEN*I13+H12*I12))\r\n     3          + D22*SP*SP*H12*H1TEN*I02\r\n      KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0E0)+H13*I02)\r\n     1          + D22*SP*SP*H13*I02)\r\n      KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-5.0E-1*H14*I03-5.0E-1*H13\r\n     1          * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02\r\n      KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0E0*SP*I03+H15*I02)\r\n     1          + CP*H15*I03*(-5.0E-1)) + D22*SP*H13*I03)\r\n     2          + D22*SP*SP*H13*H15*I02\r\n      KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.E0+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0E0) + D33*N*N*I02*(-2.0E0+H16))\r\n     2          + D33*CP*N*N*H16*I03*(-5.0E-1)\r\n      KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0E0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0E0*I12+H17*I02))\r\n     3          + D33*CP*N*N*H17*I03*(-5.0E-1)\r\n      KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0E0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11+2.0E0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0E0*I22+H18*I02))\r\n     3          + D33*CP*N*N*H18*I03*(-5.0E-1)\r\n      KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-5.0E-1*CP*I03+H13*I02)\r\n     1          + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02\r\n      KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I03*(-5.0E-1))+D22*SP*H13*I12)\r\n     2          + D22*SP*SP*H13*H1TEN*I02\r\n      KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0E0)+H14*I02)\r\n     1          + D22*SP*SP*H14*I02)\r\n      KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0E0*SP*I03+H15*I02)\r\n     1          + CP*H15*I13*(-5.0E-1)) + D22*SP*H14*I03)\r\n     2          + D22*SP*SP*H14*H15*I02\r\nC\r\nC     THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ\r\nC\r\n      KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.E0+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0E0) + D33*N*N*I02*(-2.0E0+H16))\r\n     2          + D33*CP*N*N*H16*I13*(-5.0E-1)\r\n      KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0E0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0E0*I12+H17*I02))\r\n     3          + D33*CP*N*N*H17*I13*(-5.0E-1)\r\n      KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0E0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0E0*I22+H18*I02))\r\n     3          + D33*CP*N*N*H18*I13*(-5.0E-1)\r\n      KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-5.0E-1*CP*I13+H14*I02)\r\n     1          + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02\r\n      KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I13*(-5.0E-1)) + D22*SP*H14*I12)\r\n     2          + D22*SP*SP*H14*H1TEN*I02\r\n      KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0E0+D33*4.0E0)\r\n     1          + D22*SP*H15*I02) + D33*N*N*H15*I02)\r\n      KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.E0+H16)+N*N*I13)\r\n     1          + N*N*H16*I03) + D33*N*N*(+2.0E0*H16*I03+2.0E0*H15*I13))\r\n     2          + D33*N*N*H15*I02*(-2.0E0+H16)\r\n      KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0E0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + N*N*H17*I03*(+D22+2.0E0*D33))\r\n     3          + D33*N*N*H15*(-4.0E0*I12+H17*I02)\r\n      KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0E0*I22+H18*I02)\r\n     1          + N*N*I33) - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + N*N*H18*I03*(+D22+2.0E0*D33))\r\n     3          + D33*N*N*H15*(-6.0E0*I22+H18*I02)\r\n      KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02)\r\n     1          + D33*(+2.0E0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02)\r\n     2          + D33*N*N*H15*H19*I02\r\n      KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*N*H1TEN*I03*2.E0) + D22*SP*(+N*H1TEN*I03+H15*I12))\r\n     2          + D22*SP*SP*H15*H1TEN*I02\r\n      KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0E0+H16)\r\n     1          + N*N*I13*2.0E0) + D33*N*N*I13*4.0E0)\r\n     2          + D33*N*N*I02*(-4.0E0+H16))\r\n      KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0E0*I12+H17*I02)\r\n     1          + H17*I02*(-1.0E0)) + N*N*(+H17*I13+H16*I23))\r\n     2          + D33*N*N*(+2.0E0*H17*I13 + 2.0E0*H16*I23)\r\n     3          + D12*H16*I01*(-2.0E0))+D33*N*N*(H16*(-4.0E0*I12\r\n     4          + H17*I02)  + H17*I02*(-2.0E0))\r\n      KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0E0*I22+H18*I02)\r\n     1          + H18*I02*(-1.0E0)) + N*N*(+H18*I13+H16*I33))\r\n     2          + D33*N*N*(+2.0E0*H18*I13 + 2.0E0*H16*I33)\r\n     3          + D12*H16*I11*(-6.0E0)) + D33*N*N*(H16*(-6.0E0*I22\r\n     4          + H18*I02)  + H18*I02*(-2.0E0))\r\n      KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.E0+H16)+N*N*I13)\r\n     1          + N*H16*I02)+ D33*N*(+2.0E0*N*H19*I13+H16*I02))\r\n     2          + D33*N*N*H19*I02*(-2.0E0+H16)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0E0+H16)\r\n     1          + SP*I13*2.0E0) + H16*(-I01+SP*I12))\r\n     2          + D22*SP*(+N*H1TEN*I13+H16*I12))\r\n     3          + D22*SP*SP*H1TEN*I02*(-1.0E0+H16)\r\n      KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0E0)+H17*I02)\r\n     1          + N*N*I23*2.0E0) + D12*I01*(-4.0E0)+D33*N*N*I23*4.0E0)\r\n     2          + D33*N*N*(I12*(-8.0E0)+H17*I02))\r\n      KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0E0*I22+H18*I02)\r\n     1          + H18*I12*(-2.0E0)) + N*N*(+H18*I23+H17*I33))\r\n     2          + D12*(-6.0E0*H17*I11-2.0E0*H18*I01)\r\n     3          + D33*N*N*(+2.0E0*H18*I23 + 2.0E0*H17*I33))\r\n     4          + D33*N*N*(H17*(-6.0E0*I22+H18*I02) + H18*I12*(-4.0E0))\r\n      KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0E0*I12)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.E0*I12+H17*I02)\r\n      KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0E0*I12)\r\n     1          + N*N*I23)  - 2.0E0*D12*I01 + 2.0E0*D33*N**2*I23)\r\n     2          + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0E0*I12\r\n     3          + H17*I02)  + H17*I01*(-1.0E0))\r\n      KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0E0)+H18*I02)\r\n     1          + N*N*I33*2.0E0) + D12*I11*(-1.2E01)+D33*N*N*I33*4.0E0)\r\n     2          + D33*N*N*(I22*(-1.2E01)+H18*I02))\r\n      KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0E0*I22)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.E0*I22+H18*I02)\r\n      KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0E0*I22)\r\n     1          + N*N*I33)  - 6.0E0*D12*I11 + 2.0E0*D33*N**2*I33)\r\n     2          + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0E0*I22\r\n     3          + H18*I02)  + H18*I01*(-1.0E0))\r\n      KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0E0+D33*2.0E0)\r\n     1          + D22*SP*H19) + D33*N*N*H19)\r\n      KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12))\r\n     2          + D22*SP*SP*H19*H1TEN*I02\r\n      KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0E0+I01*(-2.0E0)\r\n     1          + N*H1TEN*I02) + D22*SP*I12*2.0E0)+D22*SP*SP*H1TEN*I02)\r\nC\r\nC     SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX\r\nC\r\n  270 DO 280 I = 1,10\r\n      DO 280 J = I,10\r\n  280 KQN(J,I) = KQN(I,J)\r\nC\r\nC     FILL HUQ PER PAGE 15 MS-28\r\nC\r\n      DO 290 I = 1,100\r\n  290 HUQ(I) = 0.0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77)*SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0*SL\r\n      HUQ( 88) = 3.0*HUQ(77)\r\n      HUQ(100) = SL\r\nC\r\n      IF (TS) 300,320,300\r\n  300 HUQ( 41) = CP/RA\r\n      HUQ( 45) = N /RA\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*SL\r\n      HUQ( 95) = N/RB\r\n      HUQ( 96) = HUQ(95)*SL\r\n      HUQ( 97) = HUQ(95)*L2\r\n      HUQ( 98) = HUQ(96)*L2\r\n      HUQ( 99) = ONE\r\nC\r\nC     SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX\r\nC\r\n      DO 310 I = 1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  310 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\n  320 CONTINUE\r\nC\r\nC     NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY\r\nC\r\n      ISING =-1\r\n      CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1))\r\nC     CHECK SINGULARITY\r\nC\r\n      GO TO (340,330), ISING\r\n  330 CALL MESAGE (30,40,NECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NOT SINGULAR, CONTINUE ON..\r\nC\r\n  340 CONTINUE\r\n      IF (TS .NE. 0.0) GO TO 345\r\n      HUQ( 85) = 0.0\r\n      HUQ(100) = 0.0\r\n  345 CONTINUE\r\nC\r\nC                                 T    N       T\r\nC     NOW SOLVE FOR (K  ) = (E)(H  )(K  )(H )(E )    I = PIVOT A OR B\r\nC                     IJ         I    Q    J         J = A,B\r\nC\r\nC\r\nC                             T    N        T  T\r\nC     WE WILL SOLVE FOR (E)(H  )(K  )((E)(H  ))\r\nC                            A    Q        B\r\nC\r\nC\r\nC                            T                      T\r\nC     FIRST GET EHAT = (E)(H  ),  AND  EHBT = (E)(H  )\r\nC                           A                      B\r\nC\r\nC\r\nC     EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120)\r\nC\r\nC                0    SP   CP   0    0\r\nC                1    0    0    0    0\r\nC                0    CP  -SP   0    0\r\nC     MATRIX E = 0    0    0    0    SP\r\nC                0    0    0    1    0\r\nC                0    0    0    0    CP\r\nC\r\n      INC1 = 0\r\n      INC2 = 0\r\n  350 DO 360 I = 1,10\r\n      IDX  = I + INC1\r\n      ITEN = 10*I - 9 + INC2\r\n      H(IDX   ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP\r\n      H(IDX+10) = HUQ(ITEN  )\r\n      H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP\r\n      H(IDX+30) = HUQ(ITEN+4)*SP\r\n      H(IDX+40) = HUQ(ITEN+3)\r\n  360 H(IDX+50) = HUQ(ITEN+4)*CP\r\n      IF (INC1) 380,370,380\r\n  370 INC1 = 60\r\n      INC2 = 5\r\n      GO TO 350\r\n  380 CONTINUE\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      IF (NECPT(2) .EQ. NPVT) GO TO 390\r\n      IF (NECPT(3) .EQ. NPVT) GO TO 400\r\n      CALL MESAGE (-30,34,NECPT(1))\r\n  390 NPIVOT = 1\r\n      GO TO 410\r\n  400 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     EHAT(1) IS AT H( 1)\r\nC     EHBT(1) IS AT H(61)\r\nC\r\n  410 CALL GMMATD (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1))\r\nC\r\nC     IF N = 0 DOUBLE RESULT FOR KIJ\r\nC\r\n      IF (N) 440,420,440\r\n  420 DO 430 I = 1,60\r\n  430 TEMP60(I) = TEMP60(I)*2.0\r\nC\r\n  440 DO 470 J = 1,2\r\n      CALL GMMATD (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1))\r\n      CALL SMA1B (KIJ(1),NECPT(J+1),-1,IFKGG,0.0E0)\r\n      IF (IOPT4) 450,470,450\r\n  450 IF (GSUBE) 460,470,460\r\n  460 TEMP   = GSUBE\r\n      K4GGSW = 1\r\n      CALL SMA1B (KIJ(1),NECPT(J+1),-1,IF4GG,TEMP)\r\n  470 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kconed.f",
    "content": "      SUBROUTINE KCONED\r\nC\r\nC     DOUBLE PRECISION CONEAX ROUTINE\r\nC\r\nC     FOUR KCONE VERSIONS\r\nC     KCONES  FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY).\r\nC             S.P. COMPUTATION IS USED\r\nC     KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN D.P. FOR IMPROVED ACCURACY\r\nC     KCONED  FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD\r\nC             PRECISION SOFTWARE SUPPORT (e.g. DEC3100).\r\nC             D.P. COMPUTAION IS USED\r\nC     KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY\r\nC\r\nC     ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE\r\nC     SUPPORTING ROUTINES ARE NOW MOVED INTO KCONED (AND ALSO KCONES)\r\nC\r\nC     ECPT( 1) = ELEMENT ID             INTEGER        ECT\r\nC     ECPT( 2) = SIL PT A               INTEGER        ECT\r\nC     ECPT( 3) = SIL PT B               INTEGER        ECT\r\nC     ECPT( 4) = MATID 1                INTEGER        EPT\r\nC     ECPT( 5) = T   (MEMBRANE THICK)   REAL           EPT\r\nC     ECPT( 6) = MATID 2                INTEGER        EPT\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)   REAL           EPT\r\nC     ECPT( 8) = MATID 3                INTEGER        EPT\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)  REAL           EPT\r\nC     ECPT(10) = NON-STRUCTURAL-MASS    REAL           EPT\r\nC     ECPT(11) = Z1                     REAL           EPT\r\nC     ECPT(12) = Z2                     REAL           EPT\r\nC     ECPT(13) = PHI  1                 REAL           EPT\r\nC     ECPT(14) = PHI  2                 REAL           EPT\r\nC     ECPT(15) = PHI  3                 REAL           EPT\r\nC     ECPT(16) = PHI  4                 REAL           EPT\r\nC     ECPT(17) = PHI  5                 REAL           EPT\r\nC     ECPT(18) = PHI  6                 REAL           EPT\r\nC     ECPT(19) = PHI  7                 REAL           EPT\r\nC     ECPT(20) = PHI  8                 REAL           EPT\r\nC     ECPT(21) = PHI  9                 REAL           EPT\r\nC     ECPT(22) = PHI 10                 REAL           EPT\r\nC     ECPT(23) = PHI 11                 REAL           EPT\r\nC     ECPT(24) = PHI 12                 REAL           EPT\r\nC     ECPT(25) = PHI 13                 REAL           EPT\r\nC     ECPT(26) = PHI 14                 REAL           EPT\r\nC     ECPT(27) = COORD. SYS. ID PT.1    INTEGER        BGPDT\r\nC     ECPT(28) = RADIUS PT. 1           REAL           BGPDT\r\nC     ECPT(29) = DISTANCE TO PT.1       REAL           BGPDT\r\nC     ECPT(30) = NULL                   REAL           BGPDT\r\nC     ECPT(31) = COORD. SYS. ID PT.2    INTEGER        BGPDT\r\nC     ECPT(32) = RADIUS PT 2            REAL           BGPDT\r\nC     ECPT(33) = DISTANCE TO PT. 2      REAL           BGPDT\r\nC     ECPT(34) = NULL                   REAL           BGPDT\r\nC     ECPT(35) = ELEMENT TEMPERATURE    REAL           GEOM3\r\nC\r\nC\r\n      INTEGER          NERROR(2)     ,NECPT(100)     ,NA(7)  ,\r\n     1                 OLDPT1 ,OLDPT2\r\n      DOUBLE PRECISION I00    ,I01   ,I02    ,I03    ,I04    ,\r\n     1                 I10    ,I11   ,I12    ,I13    ,I14    ,\r\n     2                 I20    ,I21   ,I22    ,I23    ,I24    ,\r\n     3                         I31   ,I32    ,I33    ,I34    ,\r\n     4                                I42    ,I43    ,I44    ,\r\n     5                                I52    ,I53    ,I54    ,\r\n     6                 CONSTD ,       I62    ,I63    ,I64\r\n      DOUBLE PRECISION KQN(10,10)    ,KQX(10,10)     ,KQE(10,10)     ,\r\n     1                 KQY(10,10)    ,FAC(7),H(120)  ,H11    ,H12    ,\r\n     2                 H13    ,H14   ,H15    ,H16    ,H17    ,H18    ,\r\n     3                 H19    ,H1TEN ,DETERM ,PI     ,ONE    ,HUQ    ,\r\n     4                 INTEG  ,KIJ   ,NSPOPI ,HYQ    ,TEMP60 ,HYQF   ,\r\n     5                 ZA     ,E11   ,D11    ,ZB     ,E12    ,D12    ,\r\n     6                 A      ,E22   ,D22    ,B      ,E33    ,D33    ,\r\n     7                 SIGN   ,T     ,CP     ,RA     ,TS     ,SP     ,\r\n     8                 RB     ,N     ,CP2    ,RASQ   ,N2     ,SP2    ,\r\n     9                 RBSQ   ,SL    ,NSP    ,TN     ,L2     ,NCP    ,\r\n     O                 PIOVB  ,DL    ,SPE12  ,TD     ,TEMP   ,CPE12  ,\r\n     1                 N2E22  ,TWOD33,TNSP   ,N2E33  ,OPI    ,OQ     ,\r\n     2                 SPE22  ,TEMP1 ,TEMP5  ,CPE22  ,TEMP2  ,TEMP6  ,\r\n     3                 SP2E22 ,TEMP3 ,TEMP7  ,CP2E22 ,TEMP4  ,SP2E33 ,\r\n     4                 N2D33  ,SP2D22,SPE33\r\n      DOUBLE PRECISION SUM    ,QQ1   ,QQ2    ,QQ3    ,QQ4\r\nC\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      COMMON /MATIN /  MATID  ,INFLAG,ELTEMP ,STRESS ,SINTH  ,COSTH\r\n      COMMON /MATOUT/  G11    ,G12   ,G13    ,G22    ,G23    ,G33    ,\r\n     1                 DUM(5) ,GSUBE\r\n      COMMON /SMA1IO/  DUM1(10)      ,IFKGG  ,DUM2   ,IF4GG\r\n      COMMON /SMA1CL/  IOPT4  ,K4GGSW,NPVT   ,DUMCL(7)       ,LINK(10),\r\n     1                 IDETCK ,DODET ,NOGO\r\n      COMMON /SMA1ET/  ECPT(100)\r\n      COMMON /SMA1DP/  INTEG(28)     ,KIJ(36),HUQ(100)       ,HYQF(10),\r\n     1                 HYQ(10),TEMP60(60)    ,OPI    ,ZA     ,E11     ,\r\n     2                 CP     ,SPE22 ,ZB     ,E12    ,SP     ,CPE22   ,\r\n     3                 A      ,E22   ,CP2    ,SP2E22 ,B      ,E33     ,\r\n     4                 SP2    ,CP2E22,SIGN   ,T      ,D11    ,TEMP1   ,\r\n     5                 RA     ,TS    ,D12    ,TEMP2  ,RB     ,N       ,\r\n     6                 D22    ,TEMP3 ,RASQ   ,N2     ,D33    ,TEMP4   ,\r\n     7                 RBSQ   ,SL    ,NSP    ,TEMP5  ,TN     ,L2      ,\r\n     8                 NCP    ,TEMP6 ,PIOVB  ,DL     ,SPE12  ,TEMP7   ,\r\n     9                 TD     ,TEMP  ,CPE12  ,OQ     ,N2E22  ,TWOD33  ,\r\n     O                 TNSP   ,N2E33  ,SP2E33,SPE33\r\n      EQUIVALENCE      (CONSTD(1),PI  ), (ECPT(4),MATID1),\r\n     1                 (ECPT(6),MATID2), (ECPT(8),MATID3),\r\n     2                 (ECPT(1),NECPT(1))\r\n      EQUIVALENCE      (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1))\r\n      EQUIVALENCE      (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13),\r\n     1                 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16),\r\n     2                 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19),\r\n     3                 (HYQ(10),H1TEN)\r\n      EQUIVALENCE      (I00,INTEG( 1)), (I20,INTEG(11)),\r\n     1                 (I01,INTEG( 2)), (I21,INTEG(12)),\r\n     2                 (I02,INTEG( 3)), (I22,INTEG(13)),\r\n     3                 (I03,INTEG( 4)), (I23,INTEG(14)),\r\n     4                 (I04,INTEG( 5)), (I24,INTEG(15)),\r\n     5                 (I10,INTEG( 6)), (I31,INTEG(16)),\r\n     6                 (I11,INTEG( 7)), (I32,INTEG(17)),\r\n     7                 (I12,INTEG( 8)), (I33,INTEG(18)),\r\n     8                 (I13,INTEG( 9)), (I34,INTEG(19)),\r\n     9                 (I14,INTEG(10)), (I52,INTEG(23)),\r\n     O                 (I42,INTEG(20)), (I53,INTEG(24)),\r\n     1                 (I43,INTEG(21)), (I54,INTEG(25)),\r\n     2                 (I44,INTEG(22)), (I62,INTEG(26)),\r\n     3                 (I63,INTEG(27)), (I64,INTEG(28))\r\n      DATA    OLDPT1,  OLDPT2 / 0, 0  /\r\n      DATA    FAC   /  1.0D0,1.0D0,2.0D0,6.0D0,24.0D0,120.0D0,720.0D0 /\r\n      DATA    NA    /  1,1,1,2,3,3,3  /\r\n      DATA    ONE   /  1.0D0  /\r\nC\r\nC     DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS\r\nC\r\n      IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10\r\n      IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10\r\n   10 CONTINUE\r\nC\r\nC     NO MATCH THUS DO ENTIRE COMPUTATION\r\nC\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      NINT  = NECPT(1) - (NECPT(1)/1000)*1000 - 1\r\n      N     = NINT\r\n      RA    = ECPT(28)\r\n      ZA    = ECPT(29)\r\n      RB    = ECPT(32)\r\n      ZB    = ECPT(33)\r\n      TEMP1 = RB - RA\r\n      TEMP2 = ZB - ZA\r\n      SL    = DSQRT(TEMP1**2 + TEMP2**2)\r\n      L2    = SL*SL\r\n      IF (SL) 30,20,30\r\n   20 NERROR(1) = NECPT(1)/1000\r\n      NERROR(2) = N + .3\r\n      CALL MESAGE (30,39,NERROR(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   30 SP = TEMP1/SL\r\n      CP = TEMP2/SL\r\n      A  = RA\r\n      B  = SP\r\n      IF (B) 60,40,60\r\nC\r\nC     GO TO 40 FOR B = 0\r\nC\r\nC                               1-N\r\nC                         PI  RA     M+1\r\nC     FOR B = 0,   I   = --------- SL    (FOR ALL M,N .GE. 0)\r\nC                   M,N    M + 1\r\nC\r\n   40 IDX = 0\r\n      DO 50 I = 1,7\r\n      NBEGIN = NA(I)\r\nC\r\n      DO 50 J = NBEGIN,5\r\nC\r\nC     M = I - 1\r\nC     N = J - 1\r\nC     MPLUS1 THUS EQUALS I\r\nC\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = (PI*SL**I)/(DBLE(FLOAT(I))*RA**(J-2))\r\n   50 CONTINUE\r\n      GO TO 100\r\nC\r\nC     ABOVE COMPLETES ALL INTEGRALS FOR B = 0\r\nC\r\n   60 CONTINUE\r\nC\r\nC     FOR B .NE. ZERO\r\nC\r\nC     IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL\r\nC\r\nC     OK BELOW IS FOR B NOT EQUAL TO ZERO\r\nC\r\nC     FIRST M = 0 CASE\r\nC\r\nC                             2-N     2-N\r\nC                       PI (RB    - RA   )\r\nC               I    = --------------------   (N NOT EQUAL TO 2)\r\nC                0,N        (2-N) B\r\nC\r\nC\r\nC     FOR N=2   I    = PI * (LOG RB  -  LOG RA) / B\r\nC                0,2            E          E\r\nC\r\n      RASQ  = RA*RA\r\n      RBSQ  = RB*RB\r\n      PIOVB = PI/B\r\nC\r\n      INTEG(1) = 0.5D0*PIOVB*(RBSQ - RASQ)\r\n      INTEG(2) = PIOVB*(RB - RA)\r\n      INTEG(3) = PIOVB*DLOG(RB/RA)\r\n      INTEG(4) =-PIOVB*(ONE/RB - ONE/RA)\r\n      INTEG(5) =-0.5D0*PIOVB*(ONE/RBSQ - ONE/RASQ)\r\nC\r\n      IDX  = 5\r\n      DO 90 I = 1,6\r\n      MPLUS1 = I + 1\r\n      NBEGIN = NA(MPLUS1)\r\n      DO 90 J = NBEGIN,5\r\nC\r\nC     M = I\r\nC     N = J - 1\r\nC\r\nC     WE ARE GETTING INTEGRAL(M,N)\r\nC     M = POWER OF S\r\nC     N = POWER OF R\r\nC\r\nC     EVALUATING AT R = RB,  THEN AT R = RA\r\nC\r\nC                                    K   MNK2\r\nC                (M)FAC.     M   (-A) (R)\r\nC     I  = (PI) (-------) ((SUM -------------------------) + (TERM-X))\r\nC      MN          (M+1)    K=0  (M-K)FAC. (K)FAC. (MNK2)\r\nC                 B        (FOR K.NE. MN2                   (FOR K=MN2)\r\nC\r\nC       WHERE    MNK2 = M-N-K+2\r\nC                MN2  = M-N  +2\r\nC             (X)FAC. = X!\r\nC                             MN2\r\nC                         (-A)    LOG(R)\r\nC              TERM-X = --------------------\r\nC                       (M-N+2)FAC. (N-2)FAC.\r\nC\r\nC     NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1)\r\nC                                 1 FACTORIAL = FAC(2)\r\nC                                 2 FACTORIAL = FAC(3)    ETC.\r\nC\r\n      SUM  = 0.0\r\n      SIGN =-1.0D0\r\n      DO 80 KK = 1,MPLUS1\r\n      SIGN =-SIGN\r\n      K    = KK - 1\r\n      MN2  = I - J + 3\r\n      QQ1  = A\r\n      QQ2  = RB\r\n      QQ3  = RA\r\n      IF (K .EQ. MN2) GO TO 70\r\n      MNK2 = MN2 - K\r\n      MK1  = MPLUS1 - K\r\n      TEMP = MNK2\r\nC\r\nC     QQ4  = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP)\r\nC\r\n      QQ1  = QQ1**K\r\n      QQ2  = QQ2**MNK2\r\n      QQ3  = QQ3**MNK2\r\n      QQ2  = QQ2 - QQ3\r\n      QQ3  = FAC(MK1)*FAC(KK)*TEMP\r\n      GO TO 75\r\nC\r\nC     QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2))\r\nC\r\n   70 QQ1 = QQ1**MN2\r\n      QQ3 = QQ2/QQ3\r\n      QQ2 = DLOG(QQ3)\r\n      QQ3 = FAC(MN2+1)*FAC(J-2)\r\n   75 QQ4 = QQ1*QQ2/QQ3\r\n   80 SUM = SUM + SIGN*QQ4\r\nC\r\n      QQ1 = PI*FAC(MPLUS1)\r\n      QQ2 = B\r\n      QQ3 = QQ2**MPLUS1\r\n      QQ4 = SUM*QQ1/QQ3\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = DBLE(QQ4)\r\n   90 CONTINUE\r\nC\r\n  100 OLDPT1 = NECPT(2)\r\n      OLDPT2 = NECPT(3)\r\n      GO TO 140\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 1\r\nC\r\n  110 IF (NPVT-OLDPT1) 130,120,130\r\n  120 NPIVOT = 1\r\n      GO TO 410\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 2\r\nC\r\n  130 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     ZERO OUT THE KQN MATRIX\r\nC\r\n  140 DO 150 I = 1,10\r\n      DO 150 J = 1,10\r\n  150 KQN(I,J) = 0.0D0\r\nC\r\nC     IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX\r\nC\r\n      T = ECPT(5)\r\n      IF (T) 160,200,160\r\n  160 ASSIGN 190 TO IRETRN\r\n      MATID  = MATID1\r\n  170 INFLAG = 2\r\n  180 ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\n      GO TO IRETRN, (190,230,242)\r\n  190 E11 = G11\r\n      E12 = G12\r\n      E22 = G22\r\n      E33 = G33\r\n      TN  = T * N\r\n      CP2 = CP* CP\r\n      SP2 = SP* SP\r\n      N2  = N * N\r\n      CP2E22= CP2* E22\r\n      SP2E22= SP2* E22\r\n      CPE22 = CP * E22\r\n      SPE22 = SP * E22\r\n      CPE12 = CP * E12\r\n      SPE12 = SP * E12\r\n      N2E33 = N2 * E33\r\n      N2E22 = N2 * E22\r\n      SP2E33= SP2* E33\r\n      SPE33 = SP * E33\r\nC\r\nC /// FURTHER REDUCTION IS NEEDED HERE ///\r\nC\r\n      KQE(1,1) = T*(N2E22 + SP2E33)*I02\r\n      KQE(1,2) = T*(N2E22*I12 - SPE33*I01 + SP2E33*I12)\r\n      TEMP     = E22 + E33\r\n      TNSP     = TN*SP\r\n      KQE(1,3) = TNSP*TEMP*I02\r\n      KQE(1,4) = TN*(E12*I01 + SP*TEMP*I12)\r\n      TEMP     = TN*CP*E22\r\n      KQE(1,5) = TEMP*I02\r\n      KQE(1,6) = TEMP*I12\r\n      KQE(1,7) = TEMP*I22\r\n      KQE(1,8) = TEMP*I32\r\n      TEMP4    = 2.D0*SP*I11\r\n      KQE(2,2) = T *(N2E22*I22 + E33*(I00-TEMP4 + SP2*I22))\r\n      KQE(2,3) = TN*(SPE22*I12 - E33*I01 + SPE33*I12)\r\n      KQE(2,4) = TN*(E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22)\r\n      KQE(2,5) = KQE(1,6)\r\n      KQE(2,6) = KQE(1,7)\r\n      KQE(2,7) = KQE(1,8)\r\n      KQE(2,8) = TN*CPE22 *I42\r\n      KQE(3,3) = T *(SP2E22*I02 + N2E33*I02)\r\n      KQE(3,4) = T *(SPE12 *I01 + SP2E22*I12 + N2E33*I12)\r\n      TEMP     = T *CP*SPE22\r\n      KQE(3,5) = TEMP*I02\r\n      KQE(3,6) = TEMP*I12\r\n      KQE(3,7) = TEMP*I22\r\n      KQE(3,8) = TEMP*I32\r\n      KQE(4,4) = T *(E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22)\r\n      TEMP     = SP*CPE22\r\n      KQE(4,5) = T *(CPE12*I01 + TEMP*I12)\r\n      KQE(4,6) = T *(CPE12*I11 + TEMP*I22)\r\n      KQE(4,7) = T *(CPE12*I21 + TEMP*I32)\r\n      KQE(4,8) = T *(CPE12*I31 + TEMP*I42)\r\n      TEMP     = T *CP2E22\r\n      KQE(5,5) = TEMP*I02\r\n      KQE(5,6) = TEMP*I12\r\n      KQE(5,7) = TEMP*I22\r\n      KQE(5,8) = TEMP*I32\r\n      KQE(6,6) = KQE(5,7)\r\n      KQE(6,7) = KQE(5,8)\r\n      KQE(6,8) = TEMP*I42\r\n      KQE(7,7) = KQE(6,8)\r\n      KQE(7,8) = TEMP*I52\r\n      KQE(8,8) = TEMP*I62\r\nC\r\n  200 IF (ECPT(7) .EQ. 0.0) GO TO 270\r\nC\r\nC     NOW GET G MATERIAL MATRIX ID = MATID2\r\nC\r\n      MATID = MATID2\r\n      ASSIGN 230 TO IRETRN\r\n      GO TO 170\r\nC\r\nC     NOW FORM D = I DOT G\r\nC\r\n  230 D11 = ECPT(7)*G11\r\n      D12 = ECPT(7)*G12\r\n      D22 = ECPT(7)*G22\r\n      D33 = ECPT(7)*G33\r\nC\r\nC     IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES\r\nC\r\n      TS = ECPT(9)\r\n      IF (TS) 240,265,240\r\n  240 CONTINUE\r\nC\r\nC     GET G FOR MATID3\r\nC\r\n      MATID  = MATID3\r\n      INFLAG = 1\r\n      ASSIGN 242 TO IRETRN\r\n      GO TO 180\r\nC\r\n  242 CONTINUE\r\n      IF (G .EQ. 0.0) GO TO 261\r\nC\r\nC     FORMING 1.0/Q DIRECTLY\r\nC\r\n      OPI = ONE / PI\r\nC\r\nC /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS\r\nC\r\n      N2D33  = N2 *D33\r\n      SP2D22 = SP2*D22\r\n      OQ     = SL*TS*DBLE(G)*(RA+RB)*0.5D0 + I02*(N2D33+SP2D22)*OPI\r\n      OQ     = ONE/OQ\r\n      NSP    = N*SP\r\n      NCP    = N*CP\r\n      NSPOPI = NSP  *OPI\r\n      TWOD33 = 2.0D0*D33\r\n      TEMP1  = D12*(ONE/RB - ONE/RA)\r\n      TEMP2  = NSPOPI*(D22 + D33)\r\n      TEMP3  = N  *NSPOPI*(TWOD33 + D22)\r\n      TEMP4  = OQ *0.5D0 *NCP*N*D33*OPI\r\n      TEMP5  = OPI*(N2*TWOD33 + SP2*D22)\r\n      TEMP6  = D12*N2*L2/RB\r\n      TEMP7  = NSPOPI*CP*0.5D0\r\n      HYQ(1) = OQ *(TEMP1*NCP - TEMP7*I03*(D33+2.0D0*D22))\r\n      HYQ(2) = OQ *(NCP*SL/RB*D12 - TEMP7*I13*(3.0D0*D33+D22)\r\n     1       + 1.5D0*NCP*OPI*I02*D33)\r\n      HYQ(3) = TEMP4*I03\r\n      HYQ(4) = TEMP4*I13\r\n      HYQ(5) = OQ*(TEMP1*N2 - TEMP3*I03)\r\n      HYQ(6) = OQ*(D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02)\r\n      HYQ(7) = OQ*(2.0D0*D11*(RA-RB)+TEMP6+2.0D0*I12*TEMP5-TEMP3*I23)\r\n      HYQ(8) = OQ*(-D11*6.D0*SL*RB+TEMP6*SL+3.D0*I22*TEMP5-TEMP3*I33)\r\n      HYQ(9) =-OQ*TEMP2 * I02\r\n      HYQ(10)= OQ*(N*SL*(D12+D33) - TEMP2*I12)\r\nC\r\n      TEMP = TS*DBLE(G)*I00\r\n      DO 250 I = 1,10\r\n  250 HYQF(I) = HYQ(I)*TEMP\r\n      DO 260 I = 1,10\r\n      DO 260 J = I,10\r\n  260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J)\r\nC\r\nC     ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28\r\nC\r\n      TEMP = TS*DBLE(G)\r\n      KQY( 9,10) = KQY( 9,10) + TEMP*I10\r\n      KQY(10,10) = KQY(10,10) + TEMP*I20\r\n      KQY( 9, 9) = KQY( 9, 9) + TEMP*I00\r\nC\r\nC     END OF KQY COMPUTATION\r\nC\r\n      GO TO 265\r\n  261 TS = 0.0D0\r\n  265 CONTINUE\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX\r\nC\r\nC     KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION\r\nC\r\nC     (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI-\r\nC     FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED)\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25D0*D33*SP**2)\r\n      KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25D0*SP*I14-2.25D0*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-7.5D-1)\r\n      KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-7.5D-1)\r\n      KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0D0*D33*SP**2)\r\n      KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0D0*SP*I14-3.0D0*I03)\r\n     1          - D22*I03)  + D22*N*N*I14)\r\n      KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0D0*SP*I24-6.0D0*I13)\r\n     1          + D22*I13*(-2.0D0)) - 2.0D0*D12*I02 + D22*N**2*I24)\r\n      KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0D0*SP*I34-9.0D0*I23)\r\n     1          + D22*I23*(-3.0D0)) - 6.0D0*D12*I12 + D22*N**2*I34)\r\n      KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5D0*D33*SP**2)\r\n      KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5D0*I02+1.5D0*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5D0)\r\n     1          + SP*I24*2.25D0) + I02*2.25D0) + D22*N*N*I24)\r\n      KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-7.5D-1*SP*I14+7.5D-1*I03)\r\n      KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-7.5D-1*SP*I24+7.5D-1*I13)\r\n      KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0D0*SP*I14-3.0D0*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0D0)\r\n     1          + SP*I24*3.0D0) + I02*3.0D0) + D22*(-SP*I13+N**2*I24))\r\n      KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0D0)\r\n     1          + SP*I34*3.0D0) + I12*6.0D0)\r\n     2          + D22*(-2.0D0*SP*I23 + N**2*I34) + D12*I12*(-2.0D0))\r\n      KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-1.20D01)\r\n     1          + SP*I44*3.0D0) + I22*9.0D0)\r\n     2          + D22*(-3.0D0*SP*I33+N**2*I44) + D12*I22*(-6.0D0))\r\n      KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5D0*SP*I13-1.5D0*I02)\r\n     1          + D22*N*N*I13)\r\n      KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0D0)+SP*I23*1.5D0)\r\n     1          + I01*1.5D0)+ D22*N*N*I23)\r\n      KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*2.5D-1\r\n      KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*2.5D-1\r\n      KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0D0)\r\n      KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03)\r\n      KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0D0*I13)\r\n      KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0D0*I23)\r\n      KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-5.0D-1)\r\n      KQX(3,10) = KQX(3,10) + D33*CP*N*(+5.0D-1*I02-5.0D-1*SP*I13)\r\n      KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*2.5D-1\r\n      KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0D0)\r\n      KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13)\r\n      KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0D0*I23)\r\n      KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0D0*I33)\r\n      KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-5.0D-1)\r\n      KQX(4,10) = KQX(4,10) + D33*CP*N*(+5.0D-1*I12-5.0D-1*SP*I23)\r\n      KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0D0*D33*SP**2)\r\n      KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0D0*SP*I14-4.0D0*I03)\r\n     1          + D22*I03*(-1.0D0)) + D22*N*N*I14)\r\n      KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0D0*SP*I24-8.0D0*I13)\r\n     1          + D22*I13*(-2.0D0))-2.0D0*D12*I02 + D22*N**2*I24)\r\n      KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0D0*SP*I34-1.20D01*I23)\r\n     1          + D22*I23*(-3.0D0)) - 6.0D0*D12*I12 + D22*N**2*I34)\r\n      KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0D0*D33*SP**2)\r\n      KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0D0*I02+2.0D0*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0D0)+D33*(-8.0D0))\r\n     1          + D33*SP*I24*4.0D0) + D22*N**2*I24 + 4.0D0*D33*I02)\r\n     2          + D22*SP*SP*I02\r\n      KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0D0)+D33*(-1.20D01))\r\n     1          + D33*SP*I34*4.0D0) + I12*(-2.0D0*D12+8.0D0*D33)\r\n     2          + D22*N*N*I34) + SP*(+2.0D0*D12*I01+2.0D0*D22*SP*I12)\r\n      KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0D0)+D33*(-1.6D01))\r\n     1          + D33*SP*I44*4.0D0) + I22*(-6.0D0*D12+1.20D01*D33)\r\n     2          + D22*N*N*I44)+SP*(+6.0D0*D12*I11+3.0D0*D22*SP*I22)\r\n      KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0D0*SP*I13-2.0D0*I02)\r\n     1          + D22*I02*(-1.0D0)) + D22*N*N*I13)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0D0) + SP*I23*2.0D0)\r\n     1          + I01*2.0D0)+ D22*(+N**2*I23-SP*I12))\r\n      KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0D0)+D33*(-1.6D01))\r\n     1          + D33*SP*I44*4.0D0) + I22*(D12*(-4.0D0) +D33*1.6D01)\r\n     2          + D22*N*N*I44) + SP*(D12*I11*8.0D0+D22*SP*I22*4.0D0)\r\n     3          + D11*I00*4.0D0\r\n      KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0D0)+D33*(-2.0D01))\r\n     1          + D33*SP*I54*4.0D0) + I32*(D12*(-8.0D0)+D33*2.40D01)\r\n     2          + D22*N*N*I54) + SP*(D12*I21*1.80D01+D22*SP*I32*6.0D0)\r\n     3          + D11*I10*1.20D01\r\n      KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0D0*SP*I23-4.0D0*I12)\r\n     1          + D22*I12*(-2.0D0)) - 2.0D0*D12*I01 + D22*N**2*I23)\r\n      KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0D0)+SP*I33*2.0D0)\r\n     1          + I11*4.0D0)+ D22*(+N**2*I33-2.0D0*SP*I22)\r\n     2          + D12*I11*(-2.0D0))\r\n      KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0D0)+D33*(-2.40D01))\r\n     1          + D33*SP*I64*4.0D0) + I42*(D12*(-1.20D01) + D33*3.60D01)\r\n     2          + D22*N*N*I64) + SP*(D12*I31*3.60D01+D22*SP*I42*9.0D0)\r\n     3          + D11*I20*3.60D01\r\n      KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0D0*SP*I33-6.0D0*I22)\r\n     1          + D22*I22*(-3.0D0)) - 6.0D0*D12*I11 + D22*N**2*I33)\r\n      KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0D0)+SP*I43*2.0D0)\r\n     1          + I21*6.0D0)+ D22*(+N**2*I43-3.0D0*SP*I32)\r\n     2          + D12*I21*(-6.0D0))\r\n      KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2)\r\n      KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12\r\n      KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0D0)+ SP*I22)+I00)\r\n     1          + D22*N*N*I22\r\n      IF (TS .EQ. 0.0D0) GO TO 270\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0D0+D33*3.0D0)\r\n     1          + D22*SP*H11*I02) + D33*N*N*H11*I02)\r\n      KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13)\r\n     1          + D33*(+1.5D0*H12*I03+1.5D0*H11*I13))\r\n     2          + D33*H11*I02*(-1.5D0))+D33*N*H11*H12*I02)\r\n     3          + D22*SP*SP*H11*H12*I02\r\n      KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5D0*SP*H13\r\n     1          - 5.0D-1*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03)\r\n     2          + D22*SP*SP*H11*H13*I02\r\n      KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5D0*SP*H14*I03\r\n     1          - 5.0D-1*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03)\r\n     2          + D22*SP*SP*H11*H14*I02\r\n      KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11)\r\n     1          + D33*(+1.5D0*CP*H15+2.0D0*N*H11))\r\n     2          + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02\r\n      KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0D0+H16)\r\n     1          + N*N*I13)  + CP*N*H16*I03)+D33*N*(+1.5D0*CP*H16*I03\r\n     2          + 2.0D0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0D0+H16)\r\n      KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0D0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + CP*N*H17*I03*(+D22+1.5D0*D33))\r\n     3          + D33*N*N*H11*(-4.0D0*I12+H17*I02)\r\n      KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0D0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + CP*N*H18*I03*(+D22+1.5D0*D33))\r\n     3          + D33*N*N*H11*(-6.0D0*I22+H18*I02)\r\n      KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02)\r\n     1          + D33*(+1.5D0*CP*H19*I03+H11*I02))\r\n     2          + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02\r\n      KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*SP*H1TEN*I03*1.5D0) + D22*SP*(+CP*H1TEN*I03\r\n     2          + H11*I12)) + D22*SP*SP*H11*H1TEN*I02\r\n      KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.D0+I02*(-3.D0))\r\n     1          + D22*SP*I13*2.D0) + D33*N*H12*I02) + D22*SP*SP*H12*I02)\r\n      KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5D0*SP*I13-1.5D0*I02)\r\n     1          + N*H12*I03*(-5.0D-1)) + N*H12*H13*I02)\r\n     2          + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02\r\n      KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5D0*SP*I13-1.5D0*I02)\r\n     1          + N*H12*I13*(-5.0D-1)) + N*H12*H14*I02)\r\n     2          + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02\r\n      KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5D0*SP*I13-1.5D0*I02)\r\n     1          + N*H12*I02)+ SP*N*H12*I03*2.0D0) + D22*SP*(+CP*H15*I13\r\n     2          + N*H12*I03)) + D22*SP*SP*H12*H15*I02\r\n      KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0D0+H16)\r\n     1          + SP*I13*2.0D0) + CP*H16*(+1.5D0*SP*I13-1.5D0*I02))\r\n     2          + D22*SP*I13*(+CP*H16+N*H12))\r\n     2          + D22*SP*SP*H12*I02*(-1.0D0+H16)\r\n      KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0D0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + CP*N*H17*I13*(+D22+1.5D0*D33))\r\n     3          + D33*N*(N*H12*(-4.0D0*I12+H17*I02)\r\n     4          + CP*H17*I02*(-1.5D0))\r\n      KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0D0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + CP*N*H18*I13*(+D22+1.5D0*D33))\r\n     3          + D33*N*(N*H12*(-6.0D0*I22+H18*I02)\r\n     4          + CP*H18*I02*(-1.5D0))\r\n      KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5D0*SP*I13-1.5D0*I02)\r\n     1          + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02))\r\n     2          + D22*SP*SP*H12*H19*I02\r\n      KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*H1TEN*(+1.5D0*SP*I13-1.5D0*I02))\r\n     2          + D22*SP*(+CP*H1TEN*I13+H12*I12))\r\n     3          + D22*SP*SP*H12*H1TEN*I02\r\n      KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0D0)+H13*I02)\r\n     1          + D22*SP*SP*H13*I02)\r\n      KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-5.0D-1*H14*I03-5.0D-1*H13\r\n     1          * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02\r\n      KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0D0*SP*I03+H15*I02)\r\n     1          + CP*H15*I03*(-5.0D-1)) + D22*SP*H13*I03)\r\n     2          + D22*SP*SP*H13*H15*I02\r\n      KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.D0+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0D0) + D33*N*N*I02*(-2.0D0+H16))\r\n     2          + D33*CP*N*N*H16*I03*(-5.0D-1)\r\n      KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0D0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0D0*I12+H17*I02))\r\n     3          + D33*CP*N*N*H17*I03*(-5.0D-1)\r\n      KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0D0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11+2.0D0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0D0*I22+H18*I02))\r\n     3          + D33*CP*N*N*H18*I03*(-5.0D-1)\r\n      KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-5.0D-1*CP*I03+H13*I02)\r\n     1          + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02\r\n      KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I03*(-5.0D-1))+D22*SP*H13*I12)\r\n     2          + D22*SP*SP*H13*H1TEN*I02\r\n      KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0D0)+H14*I02)\r\n     1          + D22*SP*SP*H14*I02)\r\n      KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0D0*SP*I03+H15*I02)\r\n     1          + CP*H15*I13*(-5.0D-1)) + D22*SP*H14*I03)\r\n     2          + D22*SP*SP*H14*H15*I02\r\nC\r\nC     THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ\r\nC\r\n      KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.D0+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0D0) + D33*N*N*I02*(-2.0D0+H16))\r\n     2          + D33*CP*N*N*H16*I13*(-5.0D-1)\r\n      KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0D0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0D0*I12+H17*I02))\r\n     3          + D33*CP*N*N*H17*I13*(-5.0D-1)\r\n      KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0D0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0D0*I22+H18*I02))\r\n     3          + D33*CP*N*N*H18*I13*(-5.0D-1)\r\n      KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-5.0D-1*CP*I13+H14*I02)\r\n     1          + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02\r\n      KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I13*(-5.0D-1)) + D22*SP*H14*I12)\r\n     2          + D22*SP*SP*H14*H1TEN*I02\r\n      KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0D0+D33*4.0D0)\r\n     1          + D22*SP*H15*I02) + D33*N*N*H15*I02)\r\n      KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.D0+H16)+N*N*I13)\r\n     1          + N*N*H16*I03) + D33*N*N*(+2.0D0*H16*I03+2.0D0*H15*I13))\r\n     2          + D33*N*N*H15*I02*(-2.0D0+H16)\r\n      KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0D0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + N*N*H17*I03*(+D22+2.0D0*D33))\r\n     3          + D33*N*N*H15*(-4.0D0*I12+H17*I02)\r\n      KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0D0*I22+H18*I02)\r\n     1          + N*N*I33) - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + N*N*H18*I03*(+D22+2.0D0*D33))\r\n     3          + D33*N*N*H15*(-6.0D0*I22+H18*I02)\r\n      KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02)\r\n     1          + D33*(+2.0D0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02)\r\n     2          + D33*N*N*H15*H19*I02\r\n      KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*N*H1TEN*I03*2.D0) + D22*SP*(+N*H1TEN*I03+H15*I12))\r\n     2          + D22*SP*SP*H15*H1TEN*I02\r\n      KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0D0+H16)\r\n     1          + N*N*I13*2.0D0) + D33*N*N*I13*4.0D0)\r\n     2          + D33*N*N*I02*(-4.0D0+H16))\r\n      KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0D0*I12+H17*I02)\r\n     1          + H17*I02*(-1.0D0)) + N*N*(+H17*I13+H16*I23))\r\n     2          + D33*N*N*(+2.0D0*H17*I13 + 2.0D0*H16*I23)\r\n     3          + D12*H16*I01*(-2.0D0))+D33*N*N*(H16*(-4.0D0*I12\r\n     4          + H17*I02)  + H17*I02*(-2.0D0))\r\n      KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0D0*I22+H18*I02)\r\n     1          + H18*I02*(-1.0D0)) + N*N*(+H18*I13+H16*I33))\r\n     2          + D33*N*N*(+2.0D0*H18*I13 + 2.0D0*H16*I33)\r\n     3          + D12*H16*I11*(-6.0D0)) + D33*N*N*(H16*(-6.0D0*I22\r\n     4          + H18*I02)  + H18*I02*(-2.0D0))\r\n      KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.D0+H16)+N*N*I13)\r\n     1          + N*H16*I02)+ D33*N*(+2.0D0*N*H19*I13+H16*I02))\r\n     2          + D33*N*N*H19*I02*(-2.0D0+H16)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0D0+H16)\r\n     1          + SP*I13*2.0D0) + H16*(-I01+SP*I12))\r\n     2          + D22*SP*(+N*H1TEN*I13+H16*I12))\r\n     3          + D22*SP*SP*H1TEN*I02*(-1.0D0+H16)\r\n      KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0D0)+H17*I02)\r\n     1          + N*N*I23*2.0D0) + D12*I01*(-4.0D0)+D33*N*N*I23*4.0D0)\r\n     2          + D33*N*N*(I12*(-8.0D0)+H17*I02))\r\n      KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0D0*I22+H18*I02)\r\n     1          + H18*I12*(-2.0D0)) + N*N*(+H18*I23+H17*I33))\r\n     2          + D12*(-6.0D0*H17*I11-2.0D0*H18*I01)\r\n     3          + D33*N*N*(+2.0D0*H18*I23 + 2.0D0*H17*I33))\r\n     4          + D33*N*N*(H17*(-6.0D0*I22+H18*I02) + H18*I12*(-4.0D0))\r\n      KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0D0*I12)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.D0*I12+H17*I02)\r\n      KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0D0*I12)\r\n     1          + N*N*I23)  - 2.0D0*D12*I01 + 2.0D0*D33*N**2*I23)\r\n     2          + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0D0*I12\r\n     3          + H17*I02)  + H17*I01*(-1.0D0))\r\n      KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0D0)+H18*I02)\r\n     1          + N*N*I33*2.0D0) + D12*I11*(-1.2D01)+D33*N*N*I33*4.0D0)\r\n     2          + D33*N*N*(I22*(-1.2D01)+H18*I02))\r\n      KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0D0*I22)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.D0*I22+H18*I02)\r\n      KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0D0*I22)\r\n     1          + N*N*I33)  - 6.0D0*D12*I11 + 2.0D0*D33*N**2*I33)\r\n     2          + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0D0*I22\r\n     3          + H18*I02)  + H18*I01*(-1.0D0))\r\n      KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0D0+D33*2.0D0)\r\n     1          + D22*SP*H19) + D33*N*N*H19)\r\n      KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12))\r\n     2          + D22*SP*SP*H19*H1TEN*I02\r\n      KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0D0+I01*(-2.0D0)\r\n     1          + N*H1TEN*I02) + D22*SP*I12*2.0D0)+D22*SP*SP*H1TEN*I02)\r\nC\r\nC     SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX\r\nC\r\n  270 DO 280 I = 1,10\r\n      DO 280 J = I,10\r\n  280 KQN(J,I) = KQN(I,J)\r\nC\r\nC     FILL HUQ PER PAGE 15 MS-28\r\nC\r\n      DO 290 I = 1,100\r\n  290 HUQ(I) = 0.0D0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77)*SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0D0*SL\r\n      HUQ( 88) = 3.0D0*HUQ(77)\r\n      HUQ(100) = SL\r\nC\r\n      IF (TS) 300,320,300\r\n  300 HUQ( 41) = CP/RA\r\n      HUQ( 45) = N /RA\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*SL\r\n      HUQ( 95) = N/RB\r\n      HUQ( 96) = HUQ(95)*SL\r\n      HUQ( 97) = HUQ(95)*L2\r\n      HUQ( 98) = HUQ(96)*L2\r\n      HUQ( 99) = ONE\r\nC\r\nC     SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX\r\nC\r\n      DO 310 I = 1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  310 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\n  320 CONTINUE\r\nC\r\nC     NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY\r\nC\r\n      ISING =-1\r\n      CALL INVERD (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1))\r\nC     CHECK SINGULARITY\r\nC\r\n      GO TO (340,330), ISING\r\n  330 CALL MESAGE (30,40,NECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NOT SINGULAR, CONTINUE ON..\r\nC\r\n  340 CONTINUE\r\n      IF (TS .NE. 0.0D0) GO TO 345\r\n      HUQ( 85) = 0.0D0\r\n      HUQ(100) = 0.0D0\r\n  345 CONTINUE\r\nC\r\nC                                 T    N       T\r\nC     NOW SOLVE FOR (K  ) = (E)(H  )(K  )(H )(E )    I = PIVOT A OR B\r\nC                     IJ         I    Q    J         J = A,B\r\nC\r\nC\r\nC                             T    N        T  T\r\nC     WE WILL SOLVE FOR (E)(H  )(K  )((E)(H  ))\r\nC                            A    Q        B\r\nC\r\nC\r\nC                            T                      T\r\nC     FIRST GET EHAT = (E)(H  ),  AND  EHBT = (E)(H  )\r\nC                           A                      B\r\nC\r\nC\r\nC     EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120)\r\nC\r\nC                0    SP   CP   0    0\r\nC                1    0    0    0    0\r\nC                0    CP  -SP   0    0\r\nC     MATRIX E = 0    0    0    0    SP\r\nC                0    0    0    1    0\r\nC                0    0    0    0    CP\r\nC\r\n      INC1 = 0\r\n      INC2 = 0\r\n  350 DO 360 I = 1,10\r\n      IDX  = I + INC1\r\n      ITEN = 10*I - 9 + INC2\r\n      H(IDX   ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP\r\n      H(IDX+10) = HUQ(ITEN  )\r\n      H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP\r\n      H(IDX+30) = HUQ(ITEN+4)*SP\r\n      H(IDX+40) = HUQ(ITEN+3)\r\n  360 H(IDX+50) = HUQ(ITEN+4)*CP\r\n      IF (INC1) 380,370,380\r\n  370 INC1 = 60\r\n      INC2 = 5\r\n      GO TO 350\r\n  380 CONTINUE\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      IF (NECPT(2) .EQ. NPVT) GO TO 390\r\n      IF (NECPT(3) .EQ. NPVT) GO TO 400\r\n      CALL MESAGE (-30,34,NECPT(1))\r\n  390 NPIVOT = 1\r\n      GO TO 410\r\n  400 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     EHAT(1) IS AT H( 1)\r\nC     EHBT(1) IS AT H(61)\r\nC\r\n  410 CALL GMMATD (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1))\r\nC\r\nC     IF N = 0 DOUBLE RESULT FOR KIJ\r\nC\r\n      IF (N) 440,420,440\r\n  420 DO 430 I = 1,60\r\n  430 TEMP60(I) = TEMP60(I)*2.0D0\r\nC\r\n  440 DO 470 J = 1,2\r\n      CALL GMMATD (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1))\r\n      CALL SMA1B (KIJ(1),NECPT(J+1),-1,IFKGG,0.0D0)\r\n      IF (IOPT4) 450,470,450\r\n  450 IF (GSUBE) 460,470,460\r\n  460 TEMP   = GSUBE\r\n      K4GGSW = 1\r\n      CALL SMA1B (KIJ(1),NECPT(J+1),-1,IF4GG,TEMP)\r\n  470 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kcones.f",
    "content": "      SUBROUTINE KCONES\r\nC\r\nC     SINGLE PRECISION CONEAX ROUTINE, MACHINE INDEPENDENT VERSION\r\nC\r\nC     FOUR KCONE VERSIONS\r\nC     KCONES  FOR MACHINES WITH 60 OR 64 BIT WORD (e.g. CDC, CRAY).\r\nC             S.P. COMPUTATION IS USED\r\nC     KCONE2, SIMILAR TO KCONES, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN D.P. FOR IMPROVED ACCURACY\r\nC     KCONED  FOR MAHCINES WITH LESS THEN 60 BIT WORD, WITHOUT QUAD\r\nC             PRECISION SOFTWARE SUPPORT (e.g. DEC3100)\r\nC             C.P. COMPUTAION IS USED\r\nC     KCONEQ, SIMILAR TO KCONED, EXECPT CERTAIN CRITICAL AREAS ARE\r\nC             COMPUTED IN QUAD PREC. FOR IMPROVED ACCURACY\r\nC\r\nC     ORIGINALLY, THIS ROUTINE CALLS KCONEX AND KCONEY/Z. THESE THREE\r\nC     SUPPORTING ROUTINES ARE NOW MOVED INTO KCONES (AND ALSO KCONED)\r\nC\r\nC     ECPT( 1) = ELEMENT ID             INTEGER        ECT\r\nC     ECPT( 2) = SIL PT A               INTEGER        ECT\r\nC     ECPT( 3) = SIL PT B               INTEGER        ECT\r\nC     ECPT( 4) = MATID 1                INTEGER        EPT\r\nC     ECPT( 5) = T   (MEMBRANE THICK)   REAL           EPT\r\nC     ECPT( 6) = MATID 2                INTEGER        EPT\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)   REAL           EPT\r\nC     ECPT( 8) = MATID 3                INTEGER        EPT\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)  REAL           EPT\r\nC     ECPT(10) = NON-STRUCTURAL-MASS    REAL           EPT\r\nC     ECPT(11) = Z1                     REAL           EPT\r\nC     ECPT(12) = Z2                     REAL           EPT\r\nC     ECPT(13) = PHI  1                 REAL           EPT\r\nC     ECPT(14) = PHI  2                 REAL           EPT\r\nC     ECPT(15) = PHI  3                 REAL           EPT\r\nC     ECPT(16) = PHI  4                 REAL           EPT\r\nC     ECPT(17) = PHI  5                 REAL           EPT\r\nC     ECPT(18) = PHI  6                 REAL           EPT\r\nC     ECPT(19) = PHI  7                 REAL           EPT\r\nC     ECPT(20) = PHI  8                 REAL           EPT\r\nC     ECPT(21) = PHI  9                 REAL           EPT\r\nC     ECPT(22) = PHI 10                 REAL           EPT\r\nC     ECPT(23) = PHI 11                 REAL           EPT\r\nC     ECPT(24) = PHI 12                 REAL           EPT\r\nC     ECPT(25) = PHI 13                 REAL           EPT\r\nC     ECPT(26) = PHI 14                 REAL           EPT\r\nC     ECPT(27) = COORD. SYS. ID PT.1    INTEGER        BGPDT\r\nC     ECPT(28) = RADIUS PT. 1           REAL           BGPDT\r\nC     ECPT(29) = DISTANCE TO PT.1       REAL           BGPDT\r\nC     ECPT(30) = NULL                   REAL           BGPDT\r\nC     ECPT(31) = COORD. SYS. ID PT.2    INTEGER        BGPDT\r\nC     ECPT(32) = RADIUS PT 2            REAL           BGPDT\r\nC     ECPT(33) = DISTANCE TO PT. 2      REAL           BGPDT\r\nC     ECPT(34) = NULL                   REAL           BGPDT\r\nC     ECPT(35) = ELEMENT TEMPERATURE    REAL           GEOM3\r\nC\r\nC\r\n      INTEGER          NERROR(2)     ,NECPT(100)     ,NA(7)  ,\r\n     1                 OLDPT1 ,OLDPT2\r\n      REAL             I00    ,I01   ,I02    ,I03    ,I04    ,\r\n     1                 I10    ,I11   ,I12    ,I13    ,I14    ,\r\n     2                 I20    ,I21   ,I22    ,I23    ,I24    ,\r\n     3                         I31   ,I32    ,I33    ,I34    ,\r\n     4                                I42    ,I43    ,I44    ,\r\n     5                                I52    ,I53    ,I54    ,\r\n     6                                I62    ,I63    ,I64\r\n      REAL             KQN(10,10)    ,KQX(10,10)     ,KQE(10,10)     ,\r\n     1                 KQY(10,10)    ,FAC(7) ,H(120) ,INTEG  ,KIJ    ,\r\n     2                 NSPOPI ,N     ,N2     ,NSP    ,L2     ,NCP    ,\r\n     3                 N2E22  ,N2E33 ,N2D33\r\n      DOUBLE PRECISION SUM    ,QQ1   ,QQ2    ,QQ3    ,QQ4    ,KIJD\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /MATIN /  MATID  ,INFLAG,ELTEMP ,STRESS ,SINTH  ,COSTH\r\n      COMMON /MATOUT/  G11    ,G12   ,G13    ,G22    ,G23    ,G33     ,\r\n     1                 DUM(5) ,GSUBE\r\n      COMMON /SMA1IO/  DUM1(10)      ,IFKGG  ,DUM2   ,IF4GG\r\n      COMMON /SMA1CL/  IOPT4  ,K4GGSW,NPVT   ,DUMCL(7)       ,LINK(10),\r\n     1                 IDETCK ,DODET ,NOGO\r\n      COMMON /SMA1ET/  ECPT(100)\r\n      COMMON /SMA1DP/  SUM    ,QQ1   ,QQ2    ,QQ3    ,QQ4    ,KIJD(36),\r\n     1                 INTEG(28)     ,KIJ(36),HUQ(100)       ,HYQF(10),\r\n     2                 HYQ(10),TEMP60(60)    ,OPI    ,ZA     ,E11     ,\r\n     3                 CP     ,SPE22 ,ZB     ,E12    ,SP     ,CPE22   ,\r\n     4                 A      ,E22   ,CP2    ,SP2E22 ,B      ,E33     ,\r\n     5                 SP2    ,CP2E22,SIGN   ,T      ,D11    ,TEMP1   ,\r\n     6                 RA     ,TS    ,D12    ,TEMP2  ,RB     ,N       ,\r\n     7                 D22    ,TEMP3 ,RASQ   ,N2     ,D33    ,TEMP4   ,\r\n     8                 RBSQ   ,SL    ,NSP    ,TEMP5  ,TN     ,L2      ,\r\n     9                 NCP    ,TEMP6 ,PIOVB  ,DL     ,SPE12  ,TEMP7   ,\r\n     O                 TD     ,TEMP  ,CPE12  ,OQ     ,N2E22  ,TWOD33  ,\r\n     1                 TNSP   ,N2E33  ,SP2E33,SPE33\r\n      EQUIVALENCE      (CONSTS(1),PI  ), (ECPT(4),MATID1),\r\n     1                 (ECPT(6),MATID2), (ECPT(8),MATID3),\r\n     2                 (ECPT(1),NECPT(1))\r\n      EQUIVALENCE      (G,G12), (KQN(1,1),KQE(1,1),KQX(1,1),KQY(1,1))\r\n      EQUIVALENCE      (HYQ(1),H11), (HYQ(2),H12), (HYQ(3),H13),\r\n     1                 (HYQ(4),H14), (HYQ(5),H15), (HYQ(6),H16),\r\n     2                 (HYQ(7),H17), (HYQ(8),H18), (HYQ(9),H19),\r\n     3                 (HYQ(10),H1TEN)\r\n      EQUIVALENCE      (I00,INTEG( 1)), (I20,INTEG(11)),\r\n     1                 (I01,INTEG( 2)), (I21,INTEG(12)),\r\n     2                 (I02,INTEG( 3)), (I22,INTEG(13)),\r\n     3                 (I03,INTEG( 4)), (I23,INTEG(14)),\r\n     4                 (I04,INTEG( 5)), (I24,INTEG(15)),\r\n     5                 (I10,INTEG( 6)), (I31,INTEG(16)),\r\n     6                 (I11,INTEG( 7)), (I32,INTEG(17)),\r\n     7                 (I12,INTEG( 8)), (I33,INTEG(18)),\r\n     8                 (I13,INTEG( 9)), (I34,INTEG(19)),\r\n     9                 (I14,INTEG(10)), (I52,INTEG(23)),\r\n     O                 (I42,INTEG(20)), (I53,INTEG(24)),\r\n     1                 (I43,INTEG(21)), (I54,INTEG(25)),\r\n     2                 (I44,INTEG(22)), (I62,INTEG(26)),\r\n     3                 (I63,INTEG(27)), (I64,INTEG(28))\r\n      DATA    OLDPT1,  OLDPT2 / 0, 0  /\r\n      DATA    FAC   /  1.0, 1.0, 2.0, 6.0, 24.0, 120.0, 720.0 /\r\n      DATA    NA    /  1,1,1,2,3,3,3  /\r\n      DATA    ONE   /  1.0   /\r\nC\r\nC     DOES PIVOT POINT EQUAL EITHER OF THE LAST TWO SILS\r\nC\r\n      IF (OLDPT1 .EQ. NECPT(2)) IF (OLDPT2-NECPT(3)) 10,110,10\r\n      IF (OLDPT2 .EQ. NECPT(2)) IF (OLDPT1-NECPT(3)) 10,110,10\r\n   10 CONTINUE\r\nC\r\nC     NO MATCH THUS DO ENTIRE COMPUTATION\r\nC\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      NINT  = NECPT(1) - (NECPT(1)/1000)*1000 - 1\r\n      N     = NINT\r\n      RA    = ECPT(28)\r\n      ZA    = ECPT(29)\r\n      RB    = ECPT(32)\r\n      ZB    = ECPT(33)\r\n      TEMP1 = RB - RA\r\n      TEMP2 = ZB - ZA\r\n      SL    = SQRT(TEMP1**2 + TEMP2**2)\r\n      L2    = SL*SL\r\n      IF (SL) 30,20,30\r\n   20 NERROR(1) = NECPT(1)/1000\r\n      NERROR(2) = N + .3\r\n      CALL MESAGE (30,39,NERROR(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   30 SP = TEMP1/SL\r\n      CP = TEMP2/SL\r\n      A  = RA\r\n      B  = SP\r\n      IF (ABS(B) .GT. 0.001) GO TO 60\r\nC\r\nC     GO TO 40 FOR B = 0.\r\nC\r\nC                               1-N\r\nC                         PI  RA     M+1\r\nC     FOR B = 0,   I   = --------- SL    (FOR ALL M,N .GE. 0)\r\nC                   M,N    M + 1\r\nC\r\nC  40 CONTINUE\r\nC\r\n      IDX = 0\r\n      DO 50 I = 1,7\r\n      NBEGIN = NA(I)\r\nC\r\n      DO 50 J = NBEGIN,5\r\nC\r\nC     M = I - 1\r\nC     N = J - 1\r\nC     MPLUS1 THUS EQUALS I\r\nC\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = (PI*SL**I)/(FLOAT(I)*RA**(J-2))\r\n   50 CONTINUE\r\n      GO TO 100\r\nC\r\nC     ABOVE COMPLETES ALL INTEGRALS FOR B = 0.\r\nC\r\n   60 CONTINUE\r\nC\r\nC     FOR B .NE. ZERO\r\nC\r\nC     IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL\r\nC\r\nC     OK BELOW IS FOR B NOT EQUAL TO ZERO\r\nC\r\nC     FIRST M = 0 CASE\r\nC\r\nC                             2-N     2-N\r\nC                       PI (RB    - RA   )\r\nC               I    = --------------------   (N NOT EQUAL TO 2)\r\nC                0,N        (2-N) B\r\nC\r\nC\r\nC     FOR N=2   I    = PI * (LOG RB  -  LOG RA) / B\r\nC                0,2            E          E\r\nC\r\n      RASQ  = RA*RA\r\n      RBSQ  = RB*RB\r\n      PIOVB = PI/B\r\nC\r\n      INTEG(1) = 0.5*PIOVB*(RBSQ - RASQ)\r\n      INTEG(2) = PIOVB*(RB - RA)\r\n      INTEG(3) = PIOVB*LOG(RB/RA)\r\n      INTEG(4) =-PIOVB*(ONE/RB - ONE/RA)\r\n      INTEG(5) =-0.5*PIOVB*(ONE/RBSQ - ONE/RASQ)\r\nC\r\n      IDX  = 5\r\n      DO 90 I = 1,6\r\n      MPLUS1 = I + 1\r\n      NBEGIN = NA(MPLUS1)\r\n      DO 90 J = NBEGIN,5\r\nC\r\nC     M = I\r\nC     N = J - 1\r\nC\r\nC     WE ARE GETTING INTEGRAL(M,N)\r\nC     M = POWER OF S\r\nC     N = POWER OF R\r\nC\r\nC     EVALUATING AT R = RB,  THEN AT R = RA\r\nC\r\nC                                    K   MNK2\r\nC                (M)FAC.     M   (-A) (R)\r\nC     I  = (PI) (-------) ((SUM -------------------------) + (TERM-X))\r\nC      MN          (M+1)    K=0  (M-K)FAC. (K)FAC. (MNK2)\r\nC                 B        (FOR K.NE. MN2                   (FOR K=MN2)\r\nC\r\nC       WHERE    MNK2 = M-N-K+2\r\nC                MN2  = M-N  +2\r\nC             (X)FAC. = X!\r\nC                             MN2\r\nC                         (-A)    LOG(R)\r\nC              TERM-X = --------------------\r\nC                       (M-N+2)FAC. (N-2)FAC.\r\nC\r\nC     NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1)\r\nC                                 1 FACTORIAL = FAC(2)\r\nC                                 2 FACTORIAL = FAC(3)    ETC.\r\nC\r\n      SUM  = 0.0\r\n      SIGN =-1.0\r\n      DO 80 KK = 1,MPLUS1\r\n      SIGN =-SIGN\r\n      K    = KK - 1\r\n      MN2  = I - J + 3\r\n      QQ1  = DBLE(A )\r\n      QQ2  = DBLE(RB)\r\n      QQ3  = DBLE(RA)\r\n      IF (K .EQ. MN2) GO TO 70\r\n      MNK2 = MN2 - K\r\n      MK1  = MPLUS1 - K\r\n      TEMP = MNK2\r\nC\r\nC     QQ4  = A**K*(RB**MNK2-RA**MNK2)/(FAC(MK1)*FAC(KK)*TEMP)\r\nC\r\n      QQ1  = QQ1**K\r\n      QQ2  = QQ2**MNK2\r\n      QQ3  = QQ3**MNK2\r\n      QQ2  = QQ2 - QQ3\r\n      QQ3  = DBLE(FAC(MK1)*FAC(KK)*TEMP)\r\n      GO TO 75\r\nC\r\nC     QQ4 = A**MN2*DLOG(RB/RA)/(FAC(MN2+1)*FAC(J-2))\r\nC\r\n   70 QQ1 = QQ1**MN2\r\n      QQ3 = QQ2/QQ3\r\n      QQ2 = DLOG(QQ3)\r\n      QQ3 = DBLE(FAC(MN2+1)*FAC(J-2))\r\n   75 QQ4 = QQ1*QQ2/QQ3\r\n   80 SUM = SUM + DBLE(SIGN)*QQ4\r\nC\r\n      QQ1 = DBLE(PI*FAC(MPLUS1))\r\n      QQ2 = DBLE(B)\r\n      QQ3 = QQ2**MPLUS1\r\n      QQ4 = SUM*QQ1/QQ3\r\n      IDX = IDX + 1\r\n      INTEG(IDX) = SNGL(QQ4)\r\n   90 CONTINUE\r\nC\r\n  100 OLDPT1 = NECPT(2)\r\n      OLDPT2 = NECPT(3)\r\n      GO TO 140\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 1\r\nC\r\n  110 IF (NPVT-OLDPT1) 130,120,130\r\n  120 NPIVOT = 1\r\n      GO TO 410\r\nC\r\nC     WE HAVE A MATCH ON OLD SIL NUMBER 2\r\nC\r\n  130 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     ZERO OUT THE KQN MATRIX\r\nC\r\n  140 DO 150 I = 1,10\r\n      DO 150 J = 1,10\r\n  150 KQN(I,J) = 0.0\r\nC\r\nC     IF MEMBRANE THICKNESS IS NOT ZERO FORM THE KQE MATRIX\r\nC\r\n      T = ECPT(5)\r\n      IF (T) 160,200,160\r\n  160 ASSIGN 190 TO IRETRN\r\n      MATID  = MATID1\r\n  170 INFLAG = 2\r\n  180 ELTEMP = ECPT(35)\r\n      CALL MAT (ECPT(1))\r\n      GO TO IRETRN, (190,230,242)\r\n  190 E11 = G11\r\n      E12 = G12\r\n      E22 = G22\r\n      E33 = G33\r\n      TN  = T *N\r\n      CP2 = CP*CP\r\n      SP2 = SP*SP\r\n      N2  = N *N\r\n      CP2E22= CP2*E22\r\n      SP2E22= SP2*E22\r\n      CPE22 = CP *E22\r\n      SPE22 = SP *E22\r\n      CPE12 = CP *E12\r\n      SPE12 = SP *E12\r\n      N2E33 = N2 *E33\r\n      N2E22 = N2 *E22\r\n      SP2E33= SP2*E33\r\n      SPE33 = SP *E33\r\nC\r\nC /// FURTHER REDUCTION IS NEEDED HERE ///\r\nC\r\n      KQE(1,1) = T*(N2E22 + SP2E33)*I02\r\n      KQE(1,2) = T*(N2E22*I12 - SPE33*I01 + SP2E33*I12)\r\n      TEMP     = E22 + E33\r\n      TNSP     = TN*SP\r\n      KQE(1,3) = TNSP*TEMP*I02\r\n      KQE(1,4) = TN*(E12*I01 + SP*TEMP*I12)\r\n      TEMP     = TN*CP*E22\r\n      KQE(1,5) = TEMP*I02\r\n      KQE(1,6) = TEMP*I12\r\n      KQE(1,7) = TEMP*I22\r\n      KQE(1,8) = TEMP*I32\r\n      TEMP4    = 2.*SP*I11\r\n      KQE(2,2) = T *(N2E22*I22 + E33*(I00-TEMP4 + SP2*I22))\r\n      KQE(2,3) = TN*(SPE22*I12 - E33*I01 + SPE33*I12)\r\n      KQE(2,4) = TN*(E12*I11 + SPE22*I22 - E33*I11 + SPE33*I22)\r\n      KQE(2,5) = KQE(1,6)\r\n      KQE(2,6) = KQE(1,7)\r\n      KQE(2,7) = KQE(1,8)\r\n      KQE(2,8) = TN*CPE22*I42\r\n      KQE(3,3) = T*(SP2E22*I02 + N2E33 *I02)\r\n      KQE(3,4) = T*(SPE12 *I01 + SP2E22*I12 + N2E33*I12)\r\n      TEMP     = T*CP*SPE22\r\n      KQE(3,5) = TEMP*I02\r\n      KQE(3,6) = TEMP*I12\r\n      KQE(3,7) = TEMP*I22\r\n      KQE(3,8) = TEMP*I32\r\n      KQE(4,4) = T*(E11*I00 + TEMP4*E12 + SP2E22*I22 + N2E33*I22)\r\n      TEMP     = SP*CPE22\r\n      KQE(4,5) = T*(CPE12*I01 + TEMP*I12)\r\n      KQE(4,6) = T*(CPE12*I11 + TEMP*I22)\r\n      KQE(4,7) = T*(CPE12*I21 + TEMP*I32)\r\n      KQE(4,8) = T*(CPE12*I31 + TEMP*I42)\r\n      TEMP     = T*CP2E22\r\n      KQE(5,5) = TEMP*I02\r\n      KQE(5,6) = TEMP*I12\r\n      KQE(5,7) = TEMP*I22\r\n      KQE(5,8) = TEMP*I32\r\n      KQE(6,6) = KQE(5,7)\r\n      KQE(6,7) = KQE(5,8)\r\n      KQE(6,8) = TEMP*I42\r\n      KQE(7,7) = KQE(6,8)\r\n      KQE(7,8) = TEMP*I52\r\n      KQE(8,8) = TEMP*I62\r\nC\r\n  200 IF (ECPT(7) .EQ. 0.0) GO TO 270\r\nC\r\nC     NOW GET G MATERIAL MATRIX ID = MATID2\r\nC\r\n      MATID = MATID2\r\n      ASSIGN 230 TO IRETRN\r\n      GO TO 170\r\nC\r\nC     NOW FORM D = I DOT G\r\nC\r\n  230 D11 = ECPT(7)*G11\r\n      D12 = ECPT(7)*G12\r\n      D22 = ECPT(7)*G22\r\n      D33 = ECPT(7)*G33\r\nC\r\nC     IF SHEAR THICKNESS IS NOT ZERO FORM THE HYQ AND KQY MATRICES\r\nC\r\n      TS = ECPT(9)\r\n      IF (TS) 240,265,240\r\n  240 CONTINUE\r\nC\r\nC     GET G FOR MATID3\r\nC\r\n      MATID  = MATID3\r\n      INFLAG = 1\r\n      ASSIGN 242 TO IRETRN\r\n      GO TO 180\r\nC\r\n  242 CONTINUE\r\n      IF (G .EQ. 0.0) GO TO 261\r\nC\r\nC     FORMING 1.0/Q DIRECTLY\r\nC\r\n      OPI = ONE/PI\r\nC\r\nC /// MAKE SURE ALL BASIC PRODUCTS ARE AT TOP BEFORE ANY SKIPS\r\nC\r\n      N2D33  = N2 *D33\r\n      SP2D22 = SP2*D22\r\n      OQ     = SL*TS*G*(RA+RB)*0.5 + I02*(N2D33+SP2D22)*OPI\r\n      OQ     = ONE/OQ\r\n      NSP    = N*SP\r\n      NCP    = N*CP\r\n      NSPOPI = NSP*OPI\r\n      TWOD33 = 2.0*D33\r\n      TEMP1  = D12*(ONE/RB - ONE/RA)\r\n      TEMP2  = NSPOPI*(D22 + D33)\r\n      TEMP3  = N*NSPOPI*(TWOD33 + D22)\r\n      TEMP4  = OQ*0.5*NCP*N*D33*OPI\r\n      TEMP5  = OPI*(N2*TWOD33 + SP2*D22)\r\n      TEMP6  = D12*N2*L2/RB\r\n      TEMP7  = NSPOPI*CP*0.5\r\n      HYQ(1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33+2.0*D22))\r\n      HYQ(2) = OQ*(NCP*SL/RB*D12 - TEMP7*I13*(3.0*D33+D22)\r\n     1       + 1.5*NCP*OPI*I02*D33)\r\n      HYQ(3) = TEMP4*I03\r\n      HYQ(4) = TEMP4*I13\r\n      HYQ(5) = OQ*(TEMP1*N2 - TEMP3*I03)\r\n      HYQ(6) = OQ*(D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02)\r\n      HYQ(7) = OQ*(2.0*D11*(RA-RB) + TEMP6+2.0*I12*TEMP5 - TEMP3*I23)\r\n      HYQ(8) = OQ*(-D11*6.*SL*RB + TEMP6*SL+3.*I22*TEMP5 - TEMP3*I33)\r\n      HYQ(9) =-OQ*TEMP2*I02\r\n      HYQ(10)= OQ*(N*SL*(D12 + D33) - TEMP2*I12)\r\nC\r\n      TEMP = TS*G*I00\r\n      DO 250 I = 1,10\r\n  250 HYQF(I) = HYQ(I)*TEMP\r\n      DO 260 I = 1,10\r\n      DO 260 J = I,10\r\n  260 KQY(I,J) = KQY(I,J) + HYQ(I)*HYQF(J)\r\nC\r\nC     ADD IN TERMS PER EQUATION-90- PAGE -27- MS-28\r\nC\r\n      TEMP = TS*G\r\n      KQY( 9,10) = KQY( 9,10) + TEMP*I10\r\n      KQY(10,10) = KQY(10,10) + TEMP*I20\r\n      KQY( 9, 9) = KQY( 9, 9) + TEMP*I00\r\nC\r\nC     END OF KQY COMPUTATION\r\nC\r\n      GO TO 265\r\n  261 TS = 0.0\r\n  265 CONTINUE\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEX\r\nC\r\nC     KQX MATRIX FOR SHEAR THICKNESS CONSIDERATION\r\nC\r\nC     (THE FOLLOWING CODE WAS MACHINE GENERATED AND WILL NOT BE SIMPLI-\r\nC     FIED FURTHER UNTIL FORMULATION VERIFICATION IS COMPLETED)\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + CP*CP*I04*(+D22*N**2+2.25*D33*SP**2)\r\n      KQX(1, 2) = KQX(1, 2) + CP*CP*(D33*SP*(+2.25*SP*I14-2.25*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(1, 3) = KQX(1, 3) + D33*CP*CP*SP*N*I04*(-0.75)\r\n      KQX(1, 4) = KQX(1, 4) + D33*CP*CP*SP*N*I14*(-0.75)\r\n      KQX(1, 5) = KQX(1, 5) + CP*N*I04*(+D22*N**2+3.0*D33*SP**2)\r\n      KQX(1, 6) = KQX(1, 6) + CP*N*(SP*(D33*(+3.0*SP*I14-3.0*I03)\r\n     1          - D22*I03)  + D22*N*N*I14)\r\n      KQX(1, 7) = KQX(1, 7) + CP*N*(SP*(D33*(+3.0*SP*I24-6.0*I13)\r\n     1          + D22*I13*(-2.0)) - 2.0*D12*I02 + D22*N**2*I24)\r\n      KQX(1, 8) = KQX(1, 8) + CP*N*(SP*(D33*(+3.0*SP*I34-9.0*I23)\r\n     1          + D22*I23*(-3.0)) - 6.0*D12*I12 + D22*N**2*I34)\r\n      KQX(1, 9) = KQX(1, 9) + CP*I03*(+D22*N**2+1.5*D33*SP**2)\r\n      KQX(1,10) = KQX(1,10) + CP*(D33*SP*(-1.5*I02+1.5*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(2, 2) = KQX(2, 2) + CP*CP*(D33*(SP*(I13*(-4.5)\r\n     1          + SP*I24*2.25) + I02*2.25) + D22*N*N*I24)\r\n      KQX(2, 3) = KQX(2, 3) + D33*CP*CP*N*(-0.75*SP*I14+0.75*I03)\r\n      KQX(2, 4) = KQX(2, 4) + D33*CP*CP*N*(-0.75*SP*I24+0.75*I13)\r\n      KQX(2, 5) = KQX(2, 5) + CP*N*(D33*SP*(+3.0*SP*I14-3.0*I03)\r\n     1          + D22*N*N*I14)\r\n      KQX(2, 6) = KQX(2, 6) + CP*N*(D33*(SP*(I13*(-6.0)\r\n     1          + SP*I24*3.0) + I02*3.0) + D22*(-SP*I13+N**2*I24))\r\n      KQX(2, 7) = KQX(2, 7) + CP*N*(D33*(SP*(I23*(-9.0)\r\n     1          + SP*I34*3.0) + I12*6.0)\r\n     2          + D22*(-2.0*SP*I23 + N**2*I34) + D12*I12*(-2.0))\r\n      KQX(2, 8) = KQX(2, 8) + CP*N*(D33*(SP*(I33*(-12.0)\r\n     1          + SP*I44*3.0) + I22*9.0)\r\n     2          + D22*(-3.0*SP*I33+N**2*I44) + D12*I22*(-6.0))\r\n      KQX(2, 9) = KQX(2, 9) + CP*(D33*SP*(+1.5*SP*I13-1.5*I02)\r\n     1          + D22*N*N*I13)\r\n      KQX(2,10) = KQX(2,10) + CP*(D33*(SP*(I12*(-3.0)+SP*I23*1.5)\r\n     1          + I01*1.5)+ D22*N*N*I23)\r\n      KQX(3, 3) = KQX(3, 3) + D33*CP*CP*N*N*I04*0.25\r\n      KQX(3, 4) = KQX(3, 4) + D33*CP*CP*N*N*I14*0.25\r\n      KQX(3, 5) = KQX(3, 5) + D33*CP*SP*N*N*I04*(-1.0)\r\n      KQX(3, 6) = KQX(3, 6) + D33*CP*N*N*(-SP*I14+I03)\r\n      KQX(3, 7) = KQX(3, 7) + D33*CP*N*N*(-SP*I24+2.0*I13)\r\n      KQX(3, 8) = KQX(3, 8) + D33*CP*N*N*(-SP*I34+3.0*I23)\r\n      KQX(3, 9) = KQX(3, 9) + D33*CP*SP*N*I03*(-0.5)\r\n      KQX(3,10) = KQX(3,10) + D33*CP*N*(+0.5*I02-0.5*SP*I13)\r\n      KQX(4, 4) = KQX(4, 4) + D33*CP*CP*N*N*I24*0.25\r\n      KQX(4, 5) = KQX(4, 5) + D33*CP*SP*N*N*I14*(-1.0)\r\n      KQX(4, 6) = KQX(4, 6) + D33*CP*N*N*(-SP*I24+I13)\r\n      KQX(4, 7) = KQX(4, 7) + D33*CP*N*N*(-SP*I34+2.0*I23)\r\n      KQX(4, 8) = KQX(4, 8) + D33*CP*N*N*(-SP*I44+3.0*I33)\r\n      KQX(4, 9) = KQX(4, 9) + D33*CP*SP*N*I13*(-0.5)\r\n      KQX(4,10) = KQX(4,10) + D33*CP*N*(+0.5*I12-0.5*SP*I23)\r\n      KQX(5, 5) = KQX(5, 5) + N*N*I04*(+D22*N**2+4.0*D33*SP**2)\r\n      KQX(5, 6) = KQX(5, 6) + N*N*(SP*(D33*(+4.0*SP*I14-4.0*I03)\r\n     1          + D22*I03*(-1.0)) + D22*N*N*I14)\r\n      KQX(5, 7) = KQX(5, 7) + N*N*(SP*(D33*(+4.0*SP*I24-8.0*I13)\r\n     1          + D22*I13*(-2.0)) - 2.0*D12*I02 + D22*N**2*I24)\r\n      KQX(5, 8) = KQX(5, 8) + N*N*(SP*(D33*(+4.0*SP*I34-12.0*I23)\r\n     1          + D22*I23*(-3.0)) - 6.0*D12*I12 + D22*N**2*I34)\r\n      KQX(5, 9) = KQX(5, 9) + N*I03*(+D22*N**2+2.0*D33*SP**2)\r\n      KQX(5,10) = KQX(5,10) + N*(D33*SP*(-2.0*I02+2.0*SP*I13)\r\n     1          + D22*N*N*I13)\r\n      KQX(6, 6) = KQX(6, 6) + N*N*(SP*(I13*(D22*(-2.0)+D33*(-8.0))\r\n     1          + D33*SP*I24*4.0) + D22*N**2*I24 + 4.0*D33*I02)\r\n     2          + D22*SP*SP*I02\r\n      KQX(6, 7) = KQX(6, 7) + N*N*(SP*(I23*(D22*(-3.0)+D33*(-12.0))\r\n     1          + D33*SP*I34*4.0) + I12*(-2.0*D12+8.0*D33)\r\n     2          + D22*N*N*I34) + SP*(+2.0*D12*I01+2.0*D22*SP*I12)\r\n      KQX(6, 8) = KQX(6, 8) + N*N*(SP*(I33*(D22*(-4.0)+D33*(-16.0))\r\n     1          + D33*SP*I44*4.0) + I22*(-6.0*D12+12.0*D33)\r\n     2          + D22*N*N*I44)+SP*(+6.0*D12*I11+3.0*D22*SP*I22)\r\n      KQX(6, 9) = KQX(6, 9) + N*(SP*(D33*(+2.0*SP*I13-2.0*I02)\r\n     1          + D22*I02*(-1.0)) + D22*N*N*I13)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(SP*(I12*(-4.0) + SP*I23*2.0)\r\n     1          + I01*2.0)+ D22*(+N**2*I23-SP*I12))\r\n      KQX(7, 7) = KQX(7, 7) + N*N*(SP*(I33*(D22*(-4.0)+D33*(-16.0))\r\n     1          + D33*SP*I44*4.0) + I22*(D12*(-4.0) +D33*16.0)\r\n     2          + D22*N*N*I44) + SP*(D12*I11*8.0+D22*SP*I22*4.0)\r\n     3          + D11*I00*4.0\r\n      KQX(7, 8) = KQX(7, 8) + N*N*(SP*(I43*(D22*(-5.0)+D33*(-20.0))\r\n     1          + D33*SP*I54*4.0) + I32*(D12*(-8.0)+D33*24.0)\r\n     2          + D22*N*N*I54) + SP*(D12*I21*18.0+D22*SP*I32*6.0)\r\n     3          + D11*I10*12.0\r\n      KQX(7, 9) = KQX(7, 9) + N*(SP*(D33*(+2.0*SP*I23-4.0*I12)\r\n     1          + D22*I12*(-2.0)) - 2.0*D12*I01 + D22*N**2*I23)\r\n      KQX(7,10) = KQX(7,10) + N*(D33*(SP*(I22*(-6.0)+SP*I33*2.0)\r\n     1          + I11*4.0)+ D22*(+N**2*I33-2.0*SP*I22)\r\n     2          + D12*I11*(-2.0))\r\n      KQX(8, 8) = KQX(8, 8) + N*N*(SP*(I53*(D22*(-6.0)+D33*(-24.0))\r\n     1          + D33*SP*I64*4.0) + I42*(D12*(-12.0) + D33*36.0)\r\n     2          + D22*N*N*I64) + SP*(D12*I31*36.0+D22*SP*I42*9.0)\r\n     3          + D11*I20*36.0\r\n      KQX(8, 9) = KQX(8, 9) + N*(SP*(D33*(+2.0*SP*I33-6.0*I22)\r\n     1          + D22*I22*(-3.0)) - 6.0*D12*I11 + D22*N**2*I33)\r\n      KQX(8,10) = KQX(8,10) + N*(D33*(SP*(I32*(-8.0)+SP*I43*2.0)\r\n     1          + I21*6.0)+ D22*(+N**2*I43-3.0*SP*I32)\r\n     2          + D12*I21*(-6.0))\r\n      KQX(9, 9) = KQX(9, 9) + I02*(+D22*N**2+D33*SP**2)\r\n      KQX(9,10) = KQX(9,10) + D33*SP*(-I01+SP*I12) + D22*N*N*I12\r\n      KQX(10,10)= KQX(10,10)+ D33*(SP*(I11*(-2.0)+ SP*I22)+I00)\r\n     1          + D22*N*N*I22\r\n      IF (TS .EQ. 0.0) GO TO 270\r\nC\r\nC     THE FOLLOWING CODES WERE MOVED HERE FROM KCONEY\r\nC\r\n      KQX(1, 1) = KQX(1, 1) + H11*(SP*(CP*N*I03*(D22*2.0+D33*3.0)\r\n     1          + D22*SP*H11*I02) + D33*N*N*H11*I02)\r\n      KQX(1, 2) = KQX(1, 2) + N*(CP*(SP*(D22*(+H12*I03+H11*I13)\r\n     1          + D33*(+1.5*H12*I03+1.5*H11*I13))\r\n     2          + D33*H11*I02*(-1.5)) + D33*N*H11*H12*I02)\r\n     3          + D22*SP*SP*H11*H12*I02\r\n      KQX(1, 3) = KQX(1, 3) + N*(D33*(CP*I03*(+1.5*SP*H13\r\n     1          - 0.5*N*H11) + N*H11*H13*I02) + D22*CP*SP*H13*I03)\r\n     2          + D22*SP*SP*H11*H13*I02\r\n      KQX(1, 4) = KQX(1, 4) + N*(D33*(CP*(+1.5*SP*H14*I03\r\n     1          - 0.5*N*H11*I13)+N*H11*H14*I02) + D22*CP*SP*H14*I03)\r\n     2          + D22*SP*SP*H11*H14*I02\r\n      KQX(1, 5) = KQX(1, 5) + SP*(N*I03*(D22*(+CP*H15+N*H11)\r\n     1          + D33*(+1.5*CP*H15+2.0*N*H11))\r\n     2          + D22*SP*H11*H15*I02) + D33*N*N*H11*H15*I02\r\n      KQX(1, 6) = KQX(1, 6) + SP*(D22*(H11*(SP*I02*(-1.0+H16)\r\n     1          + N*N*I13)  + CP*N*H16*I03)+D33*N*(+1.5*CP*H16*I03\r\n     2          + 2.0*N*H11*I13)) + D33*N*N*H11*I02*(-2.0+H16)\r\n      KQX(1, 7) = KQX(1, 7) + SP*(H11*(D22*(SP*(-2.0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + CP*N*H17*I03*(+D22+1.5*D33))\r\n     3          + D33*N*N*H11*(-4.0*I12+H17*I02)\r\n      KQX(1, 8) = KQX(1, 8) + SP*(H11*(D22*(SP*(-3.0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + CP*N*H18*I03*(+D22+1.5*D33))\r\n     3          + D33*N*N*H11*(-6.0*I22+H18*I02)\r\n      KQX(1, 9) = KQX(1, 9) + SP*(N*(D22*(+CP*H19*I03+H11*I02)\r\n     1          + D33*(+1.5*CP*H19*I03 + H11*I02))\r\n     2          + D22*SP*H11*H19*I02) + D33*N*N*H11*H19*I02\r\n      KQX(1,10) = KQX(1,10) + N*(D33*(H11*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*SP*H1TEN*I03*1.5) + D22*SP*(+CP*H1TEN*I03\r\n     2          + H11*I12)) + D22*SP*SP*H11*H1TEN*I02\r\n      KQX(2, 2) = KQX(2, 2) + H12*(N*(CP*(D33*(SP*I13*3.+I02*(-3.))\r\n     1          + D22*SP*I13*2.) + D33*N*H12*I02) + D22*SP*SP*H12*I02)\r\n      KQX(2, 3) = KQX(2, 3) + N*(D33*(CP*(H13*(+1.5*SP*I13-1.5*I02)\r\n     1          + N*H12*I03*(-0.5)) + N*H12*H13*I02)\r\n     2          + D22*CP*SP*H13*I13) + D22*SP*SP*H12*H13*I02\r\n      KQX(2, 4) = KQX(2, 4) + N*(D33*(CP*(H14*(+1.5*SP*I13-1.5*I02)\r\n     1          + N*H12*I13*(-0.5)) + N*H12*H14*I02)\r\n     2          + D22*CP*SP*H14*I13) + D22*SP*SP*H12*H14*I02\r\n      KQX(2, 5) = KQX(2, 5) + N*(D33*(H15*(CP*(+1.5*SP*I13-1.5*I02)\r\n     1          + N*H12*I02)+ SP*N*H12*I03*2.0) + D22*SP*(+CP*H15*I13\r\n     2          + N*H12*I03)) + D22*SP*SP*H12*H15*I02\r\n      KQX(2, 6) = KQX(2, 6) + N*(D33*(N*H12*(I02*(-2.0+H16)\r\n     1          + SP*I13*2.0) + CP*H16*(+1.5*SP*I13-1.5*I02))\r\n     2          + D22*SP*I13*(+CP*H16+N*H12))\r\n     2          + D22*SP*SP*H12*I02*(-1.0+H16)\r\n      KQX(2, 7) = KQX(2, 7) + SP*(H12*(D22*(SP*(-2.0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + CP*N*H17*I13*(+D22+1.5*D33))\r\n     3          + D33*N*(N*H12*(-4.0*I12 + H17*I02)\r\n     4          + CP*H17*I02*(-1.5))\r\n      KQX(2, 8) = KQX(2, 8) + SP*(H12*(D22*(SP*(-3.0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + CP*N*H18*I13*(+D22+1.5*D33))\r\n     3          + D33*N*(N*H12*(-6.0*I22 + H18*I02)\r\n     4          + CP*H18*I02*(-1.5))\r\n      KQX(2, 9) = KQX(2, 9) + N*(D33*(H19*(CP*(+1.5*SP*I13-1.5*I02)\r\n     1          + N*H12*I02)+ SP*H12*I02)+D22*SP*(+CP*H19*I13+H12*I02))\r\n     2          + D22*SP*SP*H12*H19*I02\r\n      KQX(2,10) = KQX(2,10) + N*(D33*(H12*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*H1TEN*(+1.5*SP*I13 - 1.5*I02))\r\n     2          + D22*SP*(+CP*H1TEN*I13 + H12*I12))\r\n     3          + D22*SP*SP*H12*H1TEN*I02\r\n      KQX(3, 3) = KQX(3, 3) + H13*(D33*N*N*(CP*I03*(-1.0)+H13*I02)\r\n     1          + D22*SP*SP*H13*I02)\r\n      KQX(3, 4) = KQX(3, 4) + D33*N*N*(CP*(-0.5*H14*I03-0.5*H13\r\n     1          * I13)+H13*H14*I02) + D22*SP*SP*H13*H14*I02\r\n      KQX(3, 5) = KQX(3, 5) + N*N*(D33*(H13*(+2.0*SP*I03+H15*I02)\r\n     1          + CP*H15*I03*(-0.5)) + D22*SP*H13*I03)\r\n     2          + D22*SP*SP*H13*H15*I02\r\n      KQX(3, 6) = KQX(3, 6) + H13*(SP*(D22*(SP*I02*(-1.+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0) + D33*N*N*I02*(-2.0+H16))\r\n     2          + D33*CP*N*N*H16*I03*(-0.5)\r\n      KQX(3, 7) = KQX(3, 7) + H13*(SP*(D22*(SP*(-2.0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0*I12 + H17*I02))\r\n     3          + D33*CP*N*N*H17*I03*(-0.5)\r\n      KQX(3, 8) = KQX(3, 8) + H13*(SP*(D22*(SP*(-3.0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0*D12*I11+2.0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0*I22 + H18*I02))\r\n     3          + D33*CP*N*N*H18*I03*(-0.5)\r\n      KQX(3, 9) = KQX(3, 9) + N*(D33*(N*H19*(-0.5*CP*I03+H13*I02)\r\n     1          + SP*H13*I02) + D22*SP*H13*I02) + D22*SP*SP*H13*H19*I02\r\n      KQX(3,10) = KQX(3,10) + N*(D33*(H13*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I03*(-0.5))+D22*SP*H13*I12)\r\n     2          + D22*SP*SP*H13*H1TEN*I02\r\n      KQX(4, 4) = KQX(4, 4) + H14*(D33*N*N*(CP*I13*(-1.0)+H14*I02)\r\n     1          + D22*SP*SP*H14*I02)\r\n      KQX(4, 5) = KQX(4, 5) + N*N*(D33*(H14*(+2.0*SP*I03+H15*I02)\r\n     1          + CP*H15*I13*(-0.5)) + D22*SP*H14*I03)\r\n     2          + D22*SP*SP*H14*H15*I02\r\nC\r\nC     THE FOLLOWING CODES, THRU 270, WERE MOVED HERE FROM KCONEZ\r\nC\r\n      KQX(4, 6) = KQX(4 ,6) + H14*(SP*(D22*(SP*I02*(-1.+H16)+N*N*I13)\r\n     1          + D33*N*N*I13*2.0) + D33*N*N*I02*(-2.0+H16))\r\n     2          + D33*CP*N*N*H16*I13*(-0.5)\r\n      KQX(4, 7) = KQX(4, 7) + H14*(SP*(D22*(SP*(-2.0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + D33*N*N*(-4.0*I12+H17*I02))\r\n     3          + D33*CP*N*N*H17*I13*(-0.5)\r\n      KQX(4, 8) = KQX(4, 8) + H14*(SP*(D22*(SP*(-3.0*I22+H18*I02)\r\n     1          + N*N*I33)  - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + D33*N*N*(-6.0*I22+H18*I02))\r\n     3          + D33*CP*N*N*H18*I13*(-0.5)\r\n      KQX(4, 9) = KQX(4, 9) + N*(D33*(N*H19*(-0.5*CP*I13+H14*I02)\r\n     1          + SP*H14*I02)+D22*SP*H14*I02)+D22*SP*SP*H14*H19*I02\r\n      KQX(4,10) = KQX(4,10) + N*(D33*(H14*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + CP*N*H1TEN*I13*(-0.5)) + D22*SP*H14*I12)\r\n     2          + D22*SP*SP*H14*H1TEN*I02\r\n      KQX(5, 5) = KQX(5, 5) + H15*(SP*(N*N*I03*(D22*2.0+D33*4.0)\r\n     1          + D22*SP*H15*I02) + D33*N*N*H15*I02)\r\n      KQX(5, 6) = KQX(5, 6) + SP*(D22*(H15*(SP*I02*(-1.+H16)+N*N*I13)\r\n     1          + N*N*H16*I03) + D33*N*N*(+2.0*H16*I03+2.0*H15*I13))\r\n     2          + D33*N*N*H15*I02*(-2.0+H16)\r\n      KQX(5, 7) = KQX(5, 7) + SP*(H15*(D22*(SP*(-2.0*I12+H17*I02)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + N*N*H17*I03*(+D22+2.0*D33))\r\n     3          + D33*N*N*H15*(-4.0*I12+H17*I02)\r\n      KQX(5, 8) = KQX(5, 8) + SP*(H15*(D22*(SP*(-3.0*I22+H18*I02)\r\n     1          + N*N*I33) - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + N*N*H18*I03*(+D22+2.0*D33))\r\n     3          + D33*N*N*H15*(-6.0*I22+H18*I02)\r\n      KQX(5, 9) = KQX(5, 9) + SP*(N*(D22*(+N*H19*I03+H15*I02)\r\n     1          + D33*(+2.0*N*H19*I03+H15*I02)) + D22*SP*H15*H19*I02)\r\n     2          + D33*N*N*H15*H19*I02\r\n      KQX(5,10) = KQX(5,10) + N*(D33*(H15*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*N*H1TEN*I03*2.) + D22*SP*(+N*H1TEN*I03+H15*I12))\r\n     2          + D22*SP*SP*H15*H1TEN*I02\r\n      KQX(6, 6) = KQX(6, 6) + H16*(SP*(D22*(SP*I02*(-2.0+H16)\r\n     1          + N*N*I13*2.0) + D33*N*N*I13*4.0)\r\n     2          + D33*N*N*I02*(-4.0+H16))\r\n      KQX(6, 7) = KQX(6, 7) + SP*(D22*(SP*(H16*(-2.0*I12+H17*I02)\r\n     1          + H17*I02*(-1.0)) + N*N*(+H17*I13+H16*I23))\r\n     2          + D33*N*N*(+2.0*H17*I13 + 2.0*H16*I23)\r\n     3          + D12*H16*I01*(-2.0))+D33*N*N*(H16*(-4.0*I12\r\n     4          + H17*I02)  + H17*I02*(-2.0))\r\n      KQX(6, 8) = KQX(6, 8) + SP*(D22*(SP*(H16*(-3.0*I22+H18*I02)\r\n     1          + H18*I02*(-1.0)) + N*N*(+H18*I13+H16*I33))\r\n     2          + D33*N*N*(+2.0*H18*I13 + 2.0*H16*I33)\r\n     3          + D12*H16*I11*(-6.0)) + D33*N*N*(H16*(-6.0*I22\r\n     4          + H18*I02)  + H18*I02*(-2.0))\r\n      KQX(6, 9) = KQX(6, 9) + SP*(D22*(H19*(SP*I02*(-1.+H16)+N*N*I13)\r\n     1          + N*H16*I02)+ D33*N*(+2.0*N*H19*I13+H16*I02))\r\n     2          + D33*N*N*H19*I02*(-2.0+H16)\r\n      KQX(6,10) = KQX(6,10) + N*(D33*(N*H1TEN*(I02*(-2.0+H16)\r\n     1          + SP*I13*2.0) + H16*(-I01+SP*I12))\r\n     2          + D22*SP*(+N*H1TEN*I13+H16*I12))\r\n     3          + D22*SP*SP*H1TEN*I02*(-1.0+H16)\r\n      KQX(7, 7) = KQX(7, 7) + H17*(SP*(D22*(SP*(I12*(-4.0)+H17*I02)\r\n     1          + N*N*I23*2.0) + D12*I01*(-4.0)+D33*N*N*I23*4.0)\r\n     2          + D33*N*N*(I12*(-8.0)+H17*I02))\r\n      KQX(7, 8) = KQX(7, 8) + SP*(D22*(SP*(H17*(-3.0*I22+H18*I02)\r\n     1          + H18*I12*(-2.0)) + N*N*(+H18*I23+H17*I33))\r\n     2          + D12*(-6.0*H17*I11-2.0*H18*I01)\r\n     3          + D33*N*N*(+2.0*H18*I23 + 2.0*H17*I33))\r\n     4          + D33*N*N*(H17*(-6.0*I22+H18*I02) + H18*I12*(-4.0))\r\n      KQX(7, 9) = KQX(7, 9) + SP*(H19*(D22*(SP*(+H17*I02-2.0*I12)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + N*H17*I02*(+D22+D33))+D33*N*N*H19*(-4.*I12+H17*I02)\r\n      KQX(7,10) = KQX(7,10) + SP*(H1TEN*(D22*(SP*(+H17*I02-2.0*I12)\r\n     1          + N*N*I23)  - 2.0*D12*I01 + 2.0*D33*N**2*I23)\r\n     2          + N*H17*I12*(+D22+D33))+D33*N*(N*H1TEN*(-4.0*I12\r\n     3          + H17*I02)  + H17*I01*(-1.0))\r\n      KQX(8, 8) = KQX(8, 8) + H18*(SP*(D22*(SP*(I22*(-6.0)+H18*I02)\r\n     1          + N*N*I33*2.0) + D12*I11*(-12.0)+D33*N*N*I33*4.0)\r\n     2          + D33*N*N*(I22*(-12.0)+H18*I02))\r\n      KQX(8, 9) = KQX(8, 9) + SP*(H19*(D22*(SP*(+H18*I02-3.0*I22)\r\n     1          + N*N*I33)  - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + N*H18*I02*(+D22+D33))+D33*N*N*H19*(-6.*I22+H18*I02)\r\n      KQX(8,10) = KQX(8,10) + SP*(H1TEN*(D22*(SP*(+H18*I02-3.0*I22)\r\n     1          + N*N*I33)  - 6.0*D12*I11 + 2.0*D33*N**2*I33)\r\n     2          + N*H18*I12*(+D22+D33)) + D33*N*(N*H1TEN*(-6.0*I22\r\n     3          + H18*I02)  + H18*I01*(-1.0))\r\n      KQX(9, 9) = KQX(9, 9) + H19*I02*(SP*(N*(D22*2.0+D33*2.0)\r\n     1          + D22*SP*H19) + D33*N*N*H19)\r\n      KQX(9,10) = KQX(9,10) + N*(D33*(H19*(-I01+SP*I12+N*H1TEN*I02)\r\n     1          + SP*H1TEN*I02) + D22*SP*(+H1TEN*I02+H19*I12))\r\n     2          + D22*SP*SP*H19*H1TEN*I02\r\n      KQX(10,10)= KQX(10,10)+ H1TEN*(N*(D33*(SP*I12*2.0+I01*(-2.0)\r\n     1          + N*H1TEN*I02) + D22*SP*I12*2.0)+D22*SP*SP*H1TEN*I02)\r\nC\r\nC     SET LOWER TRIANGLE EQUAL TO UPPER TRIANGLE OF KQN MATRIX\r\nC\r\n  270 DO 280 I = 1,10\r\n      DO 280 J = I,10\r\n  280 KQN(J,I) = KQN(I,J)\r\nC\r\nC     FILL HUQ PER PAGE 15 MS-28\r\nC\r\n      DO 290 I = 1,100\r\n  290 HUQ(I) = 0.0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77)*SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0*SL\r\n      HUQ( 88) = 3.0*HUQ(77)\r\n      HUQ(100) = SL\r\nC\r\n      IF (TS) 300,320,300\r\n  300 HUQ( 41) = CP/RA\r\n      HUQ( 45) = N /RA\r\n      HUQ( 91) = CP/RB\r\n      HUQ( 92) = HUQ(91)*SL\r\n      HUQ( 95) = N/RB\r\n      HUQ( 96) = HUQ(95)*SL\r\n      HUQ( 97) = HUQ(95)*L2\r\n      HUQ( 98) = HUQ(96)*L2\r\n      HUQ( 99) = ONE\r\nC\r\nC     SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX\r\nC\r\n      DO 310 I = 1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  310 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\n  320 CONTINUE\r\nC\r\nC     NO NEED TO CALCULATE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY\r\nC\r\n      ISING =-1\r\n      CALL INVERS (10,HUQ(1),10,DUM,0,DETERM,ISING,TEMP60(1))\r\nC     CHECK SINGULARITY\r\nC\r\n      GO TO (340,330), ISING\r\n  330 CALL MESAGE (30,40,NECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NOT SINGULAR, CONTINUE ON..\r\nC\r\n  340 CONTINUE\r\n      IF (TS .NE. 0.0) GO TO 345\r\n      HUQ( 85) = 0.0\r\n      HUQ(100) = 0.0\r\n  345 CONTINUE\r\nC\r\nC                                 T    N       T\r\nC     NOW SOLVE FOR (K  ) = (E)(H  )(K  )(H )(E )   I = PIVOT A OR B\r\nC                     IJ         I    Q    J        J = A,B\r\nC\r\nC\r\nC                             T    N        T  T\r\nC     WE WILL SOLVE FOR (E)(H  )(K  )((E)(H  ))\r\nC                            A    Q        B\r\nC\r\nC\r\nC                            T                      T\r\nC     FIRST GET EHAT = (E)(H  ),  AND  EHBT = (E)(H  )\r\nC                           A                      B\r\nC\r\nC\r\nC     EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120)\r\nC\r\nC                0    SP   CP   0    0\r\nC                1    0    0    0    0\r\nC                0    CP  -SP   0    0\r\nC     MATRIX E = 0    0    0    0    SP\r\nC                0    0    0    1    0\r\nC                0    0    0    0    CP\r\nC\r\n      INC1 = 0\r\n      INC2 = 0\r\n  350 DO 360 I = 1,10\r\n      IDX  = I + INC1\r\n      ITEN = 10*I - 9 + INC2\r\n      H(IDX   ) = HUQ(ITEN+1)*SP + HUQ(ITEN+2)*CP\r\n      H(IDX+10) = HUQ(ITEN  )\r\n      H(IDX+20) = HUQ(ITEN+1)*CP - HUQ(ITEN+2)*SP\r\n      H(IDX+30) = HUQ(ITEN+4)*SP\r\n      H(IDX+40) = HUQ(ITEN+3)\r\n  360 H(IDX+50) = HUQ(ITEN+4)*CP\r\n      IF (INC1) 380,370,380\r\n  370 INC1 = 60\r\n      INC2 = 5\r\n      GO TO 350\r\n  380 CONTINUE\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      IF (NECPT(2) .EQ. NPVT) GO TO 390\r\n      IF (NECPT(3) .EQ. NPVT) GO TO 400\r\n      CALL MESAGE (-30,34,NECPT(1))\r\n  390 NPIVOT = 1\r\n      GO TO 410\r\n  400 NPIVOT = 2\r\n      GO TO 410\r\nC\r\nC     EHAT(1) IS AT H( 1)\r\nC     EHBT(1) IS AT H(61)\r\nC\r\n  410 CALL GMMATS (H(60*NPIVOT-59),6,10,0, KQN(1,1),10,10,0, TEMP60(1))\r\nC\r\nC     IF N = 0 DOUBLE RESULT FOR KIJ\r\nC\r\n      IF (N) 440,420,440\r\n  420 DO 430 I = 1,60\r\n  430 TEMP60(I) = TEMP60(I)*2.0\r\nC\r\n  440 DO 470 J = 1,2\r\n      CALL GMMATS (TEMP60(1),6,10,0, H(60*J-59),6,10,1, KIJ(1))\r\n      DO 445 I = 1,36\r\n  445 KIJD(I) = KIJ(I)\r\n      CALL SMA1B (KIJD(1),NECPT(J+1),-1,IFKGG,0.0D0)\r\n      IF (IOPT4) 450,470,450\r\n  450 IF (GSUBE) 460,470,460\r\n  460 SUM = GSUBE\r\n      K4GGSW = 1\r\n      CALL SMA1B (KIJD(1),NECPT(J+1),-1,IF4GG,SUM)\r\n  470 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kdumx.f",
    "content": "      SUBROUTINE KDUMX\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4HKDUM/,     KK /\r\n     1        1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY KDUM9\r\nC     ===========\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM8\r\nC     ==========\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM7\r\nC     ==========\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM6\r\nC     ==========\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM5\r\nC     ==========\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM4\r\nC     ==========\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM3\r\nC     ==========\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM2\r\nC     ==========\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY KDUM1\r\nC     ==========\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1       'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kelas.f",
    "content": "      SUBROUTINE KELAS (IJKLMN)\r\nC*****\r\nC THIS ROUTINE COMPUTES THE ELEMENT STIFFNESS AND STIFFNESS DAMPING\r\nC 1 X 1 MATRICES FOR ELEMENTS ELAS1, ELAS2, ELAS3, ELAS4.\r\nC*****\r\nC\r\nC\r\nC\r\nC              E C P T - S  F O R  E L A S  E L E M E N T S\r\nC\r\nC\r\nC\r\nC                  TYPE             TYPE           TYPE           TYPE\r\nC         CELAS1           CELAS2         CELAS3         CELAS4\r\nC ECPT(1) IELID     I      IELID     I    IELID      I   IELID      I\r\nC ECPT(2) IGP1      I      K         R    IS1        I   K          R\r\nC ECPT(3) IGP2      I      IGP1      I    IS2        I   IS1        I\r\nC ECPT(4) IC1       I      IGP2      I    K          R   IS2        I\r\nC ECPT(5) IC2       I      IC1       I    GSUBE      R\r\nC ECPT(6) K         R      IC2       I    S          R\r\nC ECPT(7) GSUBE     R      GSUBE     R\r\nC ECPT(8) S         R      S         R\r\nC\r\nC\r\nC\r\n      DOUBLE PRECISION\r\n     1                   KE\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   IECPT(5)\r\nC\r\nC\r\nC\r\n      COMMON   /SYSTEM/\r\n     1                   ISYS\r\nC\r\nC SMA1 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA1IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IFGEI              ,IGGEI\r\n     6,                  IFKGG              ,IGKGG\r\n     7,                  IF4GG              ,IG4GG\r\n     8,                  IFGPST             ,IGGPST\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBKGG(7)          ,MCB4GG(7)\r\nC\r\nC SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON   /SMA1BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  I6X64              ,N6X64\r\nC\r\nC SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA1CL/\r\n     1                   IOPT4              ,K4GGSW\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,IDETCK\r\n     7,                  DODET              ,NOGO\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA1ET/\r\n     1                   ECPT(100)\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (IECPT(1),ECPT(1))\r\nC\r\nC\r\nC\r\n      DATA\r\n     1                   ISCALR /0/\r\nC\r\nC\r\nC\r\n      IARG = IJKLMN\r\nC\r\nC MAKE THE ECPT-S FOR ALL ELAS ELEMENTS LOOK EXACTLY LIKE THE ECPT FOR\r\nC ELAS1\r\nC\r\n      GO TO (50,10,30,40), IARG\r\nC\r\nC ELAS2\r\nC\r\n   10 SAVE = ECPT(2)\r\n      DO 20 I = 3,6\r\n   20 IECPT(I-1) = IECPT(I)\r\n      ECPT(6) = SAVE\r\n      GO TO 50\r\nC\r\nC ELAS3\r\nC\r\n   30 ECPT(7) = ECPT(5)\r\n      ECPT(6)  = ECPT(4)\r\n      IECPT(4) = 1\r\n      IECPT(5) = 1\r\n      GO TO 50\r\nC\r\nC ELAS4\r\nC\r\n   40 ECPT(6)  = ECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = IECPT(4)\r\n      IECPT(4) = 1\r\n      IECPT(5) = 1\r\nC\r\nC DETERMINE WHICH POINT IS THE PIVOT POINT AND SET APPROPRIATE POINTERS\r\nC\r\n   50 IND = 2\r\n      IF (IECPT(2) .EQ. NPVT) GO TO 60\r\n      IF (IECPT(3) .NE. NPVT) RETURN\r\n      IPVT  = 3\r\n      IPDOF = 5\r\n      INPVT = 2\r\n      INPDOF = 4\r\n      IF (IECPT(2) .EQ. 0) IND = 1\r\n      GO TO 80\r\nC\r\nC CHECK TO SEE IF BOTH POINTS MATCH THE PIVOT POINT.\r\nC\r\n   60 IF (IECPT(3) .NE. NPVT) GO TO 70\r\n      IF (ISCALR .EQ. 0) GO TO 65\r\n      ISCALR = 0\r\n      RETURN\r\n   65 ISCALR = 1\r\n      IND = 4\r\n   70 IPVT   = 2\r\n      IPDOF  = 4\r\n      INPVT  = 3\r\n      INPDOF = 5\r\n      IF (IECPT(3) .EQ. 0) IND = 1\r\n   80 IF (IECPT(IPDOF)  .LE. 0) IECPT(IPDOF)  = 1\r\n      IF (IECPT(INPDOF) .LE. 0) IECPT(INPDOF) = 1\r\nC\r\nC II AND JJ ARE THE ROW AND COLUMN INDICES OF THE MATRIX INTO WHICH THE\r\nC SPRING AND SPRING DAMPING CONSTANTS WILL BE ADDED.\r\nC\r\n      II = IECPT(IPVT)  + IECPT(IPDOF)  - 1\r\n      JJ = IECPT(INPVT) + IECPT(INPDOF) - 1\r\n      KE = ECPT(6)\r\n      INDEX = 6\r\n      IFILE = IFKGG\r\n   85 ASSIGN 100 TO IRETRN\r\n      I = II\r\n      J = II\r\n   90 CALL SMA1B (KE,J,I,IFILE,0.0D0)\r\n      IF (IND .EQ. 1) GO TO 130\r\n      GO TO IRETRN, (100,110,120,130)\r\n  100 ASSIGN 110 TO IRETRN\r\n      KE = - KE\r\n      J  =   JJ\r\n      GO TO 90\r\n  110 IF (IND .NE. 4) GO TO 130\r\n      ASSIGN 120 TO IRETRN\r\n      KE = ECPT(6)\r\n      I = JJ\r\n      GO TO 90\r\n  120 ASSIGN 130 TO IRETRN\r\n      KE = -KE\r\n      J  = II\r\n      GO TO 90\r\n  130 IF (INDEX .EQ. 7)  RETURN\r\n      IF (IOPT4 .EQ. 0  .OR.  IARG .EQ. 4) RETURN\r\nC\r\nC IF G SUB E IS NON-ZERO, SET PARAMETERS FOR K4GG INSERTION.\r\nC\r\n      IF (ECPT(7) .EQ. 0.0) RETURN\r\n      K4GGSW = 1\r\n      IFILE = IF4GG\r\n      KE = ECPT(7) * ECPT(6)\r\n      INDEX = 7\r\n      GO TO 85\r\n      END\r\n"
  },
  {
    "path": "mis/kelbow.f",
    "content": "      SUBROUTINE KELBOW\r\nC\r\nC     THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND\r\nC     K(NPVT,J) FOR A CURVED BAR ELEMENT HAVING END POINTS NUMBERED\r\nC     NPVT AND J\r\nC\r\nC                   ECPT FOR THE ELBOW\r\nC\r\nC     ECPT( 1)  -  IELID         ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)     * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...         *\r\nC     ECPT( 4)  -  SMALLV(3)     $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...         $\r\nC     ECPT( 6)  -    ...         $\r\nC     ECPT( 7)  -  ICSSV         COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IMATID        MATERIAL ID.\r\nC     ECPT( 9)  -  A             CROSS-SECTIONAL AREA\r\nC     ECPT(10)  -  I1            $ AREA MOMENTS OF INERTIA\r\nC     ECPT(11)  -  I2            $\r\nC     ECPT(12)  -  FJ            TORSIONAL CONSTANT\r\nC     ECPT(13)  -  NSM           NON-STRUCTURAL MASS\r\nC     ECPT(14)  -  FE            FORCE ELEM. DESCRIPTIONS, FORCE METHOD\r\nC     ECPT(15)  -  R1            *STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(16)  -  T1            *  RI = RADIAL  LOCATION\r\nC     ECPT(17)  -  R2            *  TI = ANGULAR LOCATION\r\nC     ECPT(18)  -  T2            *       OF STRESS RECOVERY POINTS\r\nC     ECPT(19)  -  R3            *\r\nC     ECPT(20)  -  T3            *\r\nC     ECPT(21)  -  R4            *\r\nC     ECPT(22)  -  T4            *\r\nC     ECPT(23)  -  K1            $  AREA FACTOR FOR SHEAR\r\nC     ECPT(24)  -  K2            $\r\nC     ECPT(25)  -  C             STRESS INTENSIFICATION FACTOR\r\nC     ECPT(26)  -  KX            *  FLEXIBILITY CORRECTION FACTORS\r\nC     ECPT(27)  -  KY            *\r\nC     ECPT(28)  -  KZ            *\r\nC     ECPT(29)  -  R             RADIUS OF CURVATURE\r\nC     ECPT(30)  -  BETAR         ANGLE FROM GA TO GB\r\nC     ECPT(31)  -  MCSIDA        COORD. SYS. ID. FOR GRID POINT A\r\nC     ECPT(32)  -  GPA(3)        *  BASIC COORD. FOR GRID POINT A\r\nC     ECPT(33)  -   ...          *\r\nC     ECPT(34)  -   ...          *\r\nC     ECPT(35)  -  MCSIDB        COORD. SYS. ID. FOR GRID POINT B\r\nC     ECPT(36)  -  GPB(3)        *  BASIC COORD. FOR GRID POINT B\r\nC     ECPT(37)  -   ...          *\r\nC     ECPT(38)  -   ...          *\r\nC     ECPT(39)  -  ELTEMP        AVG. ELEMENT TEMPERATURE\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   7/91\r\nC     ABOUT K1 AND K2, THE AREA FACTORS FOR SHEAR\r\nC\r\nC     THE K1,K2 FOR BAR ARE 0. TO 1.0, AND ARE USED IN K1*G*A AND K2*G*A\r\nC         THE K1,K2 ARE THEREFORE CORRECTION FACTORS FOR STIFFNESS\r\nC     THE K1,K2 ARE USED IN ELBOW IN K1/G*A AND K2/G*A. AND THEREFORE\r\nC         THE K1,K2 ARE COORECTION FACTORS FOR FLEXIBILITY. THE K1,K2\r\nC         IN ELBOW ARE EQUIVALENT TO 1./K1 AND 1./K2 IN BAR ELEMENT.\r\nC         THE PROPER VALUE FOR K1 AND K2 SHOULD BE INFINITY TO 1.0\r\nC\r\nC     IN 1992 COSMIC/NASTRAN, THE USE OF K1 AND K2 IN ELBOW AND BAR\r\nC     ELMENTS ARE SYMCHRONIZED, WITH PROPER VALUES FROM 0. TO 1.0\r\nC     THE K1 AND K2 ARE CHANGED TO 1./K1 AND 1./K2 IN ELBOW ELEMENT\r\nC     SHEAR COMPUTATION. THAT IS, CORRECTION FACTORS FOR STIFFNESS IS\r\nC     USED.\r\nC\r\nC     REFERENCE -  R.J. ROARK: FORMULAS FOR STRESS AND STRAIN,\r\nC     SECTION 35, 'BEAMS FOR RELATIVELY GREAT DEPTH',\r\nC     FOR BEAMS OF SAMLL SPAN/DEPTH RATIO\r\nC\r\nC     K = 1/F = 5/6 FOR RECTANGULAR SECTION\r\nC             = 0.9 FOR SOLID CIRCULAR\r\nC             = 0.5 FOR THIN-WALLED HOOLOW CIRCULAR SECTION\r\nC             = 1.0 CAN BE USED FOR I-BEAM\r\nC\r\nC\r\nC\r\n      LOGICAL          HEAT,ABASIC,BBASIC,BASIC\r\n      REAL             K1,K2,I1,I2,NSM,KX,KY,KZ\r\n      DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI,\r\n     1                 VECJ,VECK,FL,FLL,DF(6,6),DETERM,H(6,6),DP(16),\r\n     2                 S(12,12),DAMPC,KEE(12,12)\r\n      DIMENSION        VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100),\r\n     1                 IZ(1),IWORK(6,3),F(6,6)\r\n      COMMON /SMA1IO/  IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT,\r\n     1                 IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG,IF4GG,IG4GG,\r\n     2                 IFGPST,IGGPST,INRW,OUTRW,CLSNRW,CLSRW,NEOR,\r\n     3                 EOR,MCBKGG(7),MCB4GG(7)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SMA1BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K,\r\n     1                 N6X6K,I6X64,N6X64\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,LEFT,FROWIC,LROWIC,NROWSC,\r\n     1                 TNROWS,JMAX,NLINKS,LINK(10),IDETCK,DODET,NOGO\r\n      COMMON /SMA1HT/  HEAT\r\n      COMMON /SMA1ET/  IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2,\r\n     1                 FJ,NSM,FE,C1,C2,D1,D2,F1,F2,G1,G2,K1,K2,C,KX,KY,\r\n     2                 KZ,R,BETAR,MCSIDA,GPA(3),MCSIDB,GPB(3),TEMPEL\r\n      COMMON /SMA1DP/  KE(144),KEP(144),DELA(6),DELB(6)\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  E,G,NU,RHO,ALPHA,TSUBO,GSUBE,SIGT,SIGC,SIGS\r\n      COMMON /HMTOUT/  FK\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      EQUIVALENCE      (IELID,ECPT(1),IECPT(1)),(IZ(1),Z(1)),\r\n     1                 (TA(10),TB(1)),(ECPT(71),DP(1)),\r\n     2                 (KEE(1,1),KE(1),S(1,1))\r\n      DATA    DCR   /  .017453292 /\r\nC\r\n      SID(X) = SIN(X*DCR)\r\n      COD(X) = COS(X*DCR)\r\n      DTR(X) = X*DCR\r\nC\r\nC     DETERMINE WHICH POINT IS THE PIVOT POINT.\r\nC\r\n      X    = 1.\r\n      IPVT = 1\r\n      IF (ISILNO(1) .EQ. NPVT) GO TO 20\r\n      IPVT = 2\r\n      IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\nC\r\nC     SET UP POINTERS TO COORD. SYSTEM IDS\r\nC\r\n   20 JCSIDA = 31\r\n      JCSIDB = 35\r\n      ICSIDA = IECPT(31)\r\n      ICSIDB = IECPT(35)\r\nC\r\nC     DEFINE LOCATION OF END A, END B IN TERMS OF DP(1) THRU DP(6)\r\nC\r\n      DP(1) = ECPT(JCSIDA+1)\r\n      DP(2) = ECPT(JCSIDA+2)\r\n      DP(3) = ECPT(JCSIDA+3)\r\n      DP(4) = ECPT(JCSIDB+1)\r\n      DP(5) = ECPT(JCSIDB+2)\r\n      DP(6) = ECPT(JCSIDB+3)\r\nC\r\nC     DEFINE COMPONENTS OF VECTOR FROM END A TO CENTER OF CURVATURE,C\r\nC\r\n      DP(7) = ECPT(4)\r\n      DP(8) = ECPT(5)\r\n      DP(9) = ECPT(6)\r\n      FLD   = DSQRT(DP(7)**2 + DP(8)**2 + DP(9)**2)\r\n      IF (FLD .LE. 0.000) GO TO 1010\r\n      DP(7) = DP(7)/FLD\r\n      DP(8) = DP(8)/FLD\r\n      DP(9) = DP(9)/FLD\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES\r\nC\r\n      ABASIC =.TRUE.\r\n      BBASIC =.TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC =.FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC =.FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (ABASIC) GO TO 30\r\n      CALL TRANSD (ECPT(JCSIDA),TA)\r\n      CALL GMMATD (TA,3,3,0, DP(7),3,1,0, VECJ)\r\n      CALL GMMATD (TA,3,3,0, DP(1),3,1,0, DP(14))\r\n      DP(1) = DP(14)\r\n      DP(2) = DP(15)\r\n      DP(3) = DP(16)\r\n      GO TO 35\r\n   30 CONTINUE\r\n      VECJ(1) = DP(7)\r\n      VECJ(2) = DP(8)\r\n      VECJ(3) = DP(9)\r\n   35 IF (BBASIC) GO TO 40\r\n      CALL TRANSD (ECPT(JCSIDB),TB)\r\n      CALL GMMATD (TB,3,3,0, DP(4),3,1,0, DP(14))\r\n      DP(4) = DP(14)\r\n      DP(5) = DP(15)\r\n      DP(6) = DP(16)\r\n   40 CONTINUE\r\nC\r\nC     CALCULATE TRUE LENGTH OF ELBOW\r\nC\r\n      FL = DBLE(R*DTR(BETAR))\r\n      IF (FL .EQ. 0.0D0) GO TO 1010\r\nC\r\nC     NOW THAT LENGTH HAS BEEN COMPUTED, BRANCH IF THIS IS A -HEAT-\r\nC     FORMULATION.\r\nC\r\n      IF (HEAT) GO TO 2000\r\nC\r\nC     CONSTRUCT VECTOR FROM A TO B\r\nC\r\n      SMALV0(1) = DP(4) - DP(1)\r\n      SMALV0(2) = DP(5) - DP(2)\r\n      SMALV0(3) = DP(6) - DP(3)\r\n      FLL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 1010\r\n      SMALV0(1) = SMALV0(1)/FLL\r\n      SMALV0(2) = SMALV0(2)/FLL\r\n      SMALV0(3) = SMALV0(3)/FLL\r\nC\r\nC     COMPUTE THE K VECTOR VECK = SMALV0 X VECJ\r\nC\r\n      VECK(1) = SMALV0(2)*VECJ(3) - SMALV0(3)*VECJ(2)\r\n      VECK(2) = SMALV0(3)*VECJ(1) - SMALV0(1)*VECJ(3)\r\n      VECK(3) = SMALV0(1)*VECJ(2) - SMALV0(2)*VECJ(1)\r\n      FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GOTO 1010\r\n      VECK(1) = VECK(1)/FLL\r\n      VECK(2) = VECK(2)/FLL\r\n      VECK(3) = VECK(3)/FLL\r\nC\r\nC     COMPUTE THE I VECTOR  VECI = VECJ X VECK\r\nC\r\n      VECI(1) = VECJ(2)*VECK(3) - VECJ(3)*VECK(2)\r\n      VECI(2) = VECJ(3)*VECK(1) - VECJ(1)*VECK(3)\r\n      VECI(3) = VECJ(1)*VECK(2) - VECJ(2)*VECK(1)\r\n      FLL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (FLL .EQ. 0.0D0) GO TO 1010\r\n      VECI(1) = VECI(1)/FLL\r\n      VECI(2) = VECI(2)/FLL\r\n      VECI(3) = VECI(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DAMPC = G SUB E\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      IF (KX .LT. 1.0E-8) KX = 1.0\r\n      IF (KY .LT. 1.0E-8) KY = 1.0\r\n      IF (KZ .LT. 1.0E-8) KZ = 1.0\r\n      FI1 = I1/KZ\r\n      FI2 = I2/KY\r\n      FJK = FJ/KX\r\nC\r\nC     AREA FACTORS FOR SHEAR ARE FROM NEAR ZERO TO ONE\r\nC\r\n      IF (K1 .LT. 1.0E-8) K1 = 1.0\r\n      IF (K2 .LT. 1.0E-8) K2 = 1.0\r\n      IF (K1 .GT. 1.0) K1 = 1.0/K1\r\n      IF (K2 .GT. 1.0) K2 = 1.0/K2\r\nC\r\nC     THE FOLLOWING CODE WAS TAKEN FROM SAP4 BENDKS ROUTINE\r\nC     FOR A CURVED PIPE ELEMENT\r\nC\r\nC     COMPUTE SECTION PROPERTY CONSTANTS\r\nC\r\n      T   = DTR(BETAR)\r\n      RA  = R/(A*E)\r\n      RV1 = R/(2.*K1*G*A)\r\n      RV2 = K1/K2*RV1\r\n      RT  = R/(G*FJK*2.)\r\n      RB0 = R/(E*FI2*2.)\r\n      RB1 = R/(E*FI1)\r\n      R2  = R**2\r\nC\r\nC     COMPUTE COMMON TRIGONOMETRIC CONSTANTS\r\nC\r\n      ST  = SID(BETAR)\r\n      CT  = COD(BETAR)\r\n      S2T = SID(2.0*BETAR)\r\n      C2T = COD(2.0*BETAR)\r\nC\r\nC     FORM THE NODE FLEXIBILITY MATRIX AT NODE J REFERENCED TO THE\r\nC     LOCAL (X,Y,Z) COORDINATE SYSTEM AT NODE I.\r\nC\r\nC     X - DIRECTION...  IN-PLANE TANGENT TO THE BEND AT NODE I AND\r\nC                       DIRECTED TOWARD NODE J\r\nC     Y - DIRECTION...  IN-PLANE AND DIRECTED RADIALLY INWARD TO THE\r\nC                       CENTER OF CURVATURE\r\nC     Z - DIRECTION...  OUT OF PLANE AND ORTHOGONAL TO X AND Y\r\nC\r\n      DO 50 I = 1,6\r\n      DO 50 K = I,6\r\n      F(I,K)  = 0.0\r\n   50 CONTINUE\r\nC\r\nC     A X I A L\r\nC\r\n      F(1,1) = F(1,1) + 0.25*RA*(2.0*T+S2T)\r\n      F(2,2) = F(2,2) + 0.25*RA*(2.0*T-S2T)\r\nC\r\nC     N O T E   (COEFFICIENT CHANGE)\r\nC\r\n      F(1,2) = F(1,2) + 0.50*RA*ST**2\r\nC\r\nC     S H E A R\r\nC\r\n      F(1,1) = F(1,1) + 0.5*RV1*(2.0*T-S2T)\r\n      F(2,2) = F(2,2) + 0.5*RV1*(2.0*T+S2T)\r\n      F(3,3) = F(3,3) + 2.0*RV2* T\r\nC\r\nC     N O T E   (SIGN CHANGE)\r\nC\r\n      F(1,2) = F(1,2) - RV1*ST**2\r\nC\r\nC     T O R S I O N\r\nC\r\n      F(3,3) = F(3,3) + 0.5*RT*R2*(6.0*T+S2T-8.0*ST)\r\n      F(4,4) = F(4,4) + 0.5*RT*   (2.0*T+S2T)\r\n      F(5,5) = F(5,5) + 0.5*RT*   (2.0*T-S2T)\r\n      F(3,4) = F(3,4) +     RT*R *(ST-T*CT)\r\n      F(3,5) = F(3,5) +     RT*R *(2.0-2.0*CT-T*ST)\r\n      F(4,5) = F(4,5) + 0.5*RT*   (1.0-C2T)\r\nC\r\nC     B E N D I N G\r\nC\r\n      F(1,1) = F(1,1) + 0.25*RB1*R2*(2.0*T*(2.0+C2T)-3.0*S2T)\r\n      F(2,2) = F(2,2) + 0.25*RB1*R2*(2.0*T*(2.0-C2T)+3.0*S2T-8.0*ST)\r\n      F(3,3) = F(3,3) + 0.50*RB0*R2*(2.0*T-S2T)\r\n      F(4,4) = F(4,4) + 0.50*RB0*   (2.0*T-S2T)\r\n      F(5,5) = F(5,5) + 0.50*RB0*   (2.0*T+S2T)\r\n      F(6,6) = F(6,6) +      RB1*T\r\n      F(1,2) = F(1,2) + 0.25*RB1*R2*(1.0+3.0*C2T+2.0*T*S2T-4.0*CT)\r\n      F(1,6) = F(1,6) -      RB1*R *(ST-T*CT)\r\n      F(2,6) = F(2,6) +      RB1*R *(T*ST+CT-1.0)\r\n      F(3,4) = F(3,4) +      RB0*R *(ST-T*CT)\r\n      F(3,5) = F(3,5) -      RB0*R *T*ST\r\n      F(4,5) = F(4,5) - 0.50*RB0*   (1.0-C2T)\r\nC\r\nC\r\nC     FORM SYMMETRICAL UPPER PART OF FLEX MATRIX\r\nC\r\n      DO 65 I = 1,6\r\n      DO 65 K = I,6\r\n      DF(K,I) = DBLE(F(I,K))\r\n      DF(I,K) = DF(K,I)\r\n   65 CONTINUE\r\nC\r\nC     WRITE (6,4005) DF\r\nC\r\nC     INVERT FLEX TO FORM STIFFNESS\r\nC\r\n      CALL INVERD (6,DF,6,DUM,0,DETERM,ISING,IWORK)\r\n      IF (ISING .EQ. 2) WRITE (6,4002) F\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,38,ECPT(1))\r\n 4002 FORMAT (1X,34HELBOW STIFFNESS MATRIX IS SINGULAR, /,(5X,6E13.5))\r\nC\r\nC\r\nC     SET UP THE FORCE TRANSFORMATION RELATING REACTIONS AT NODE I\r\nC     ACTING ON THE MEMBER END DUE TO UNIT LOADS APPLIED TO THE MEMBER\r\nC     END AT NODE J.\r\nC\r\n      DO 100 I = 1,6\r\n      DO 100 K = 1,6\r\n      H(I,K) = 0.0D0\r\n  100 CONTINUE\r\nC\r\n      DO 105 K = 1,6\r\n      H(K,K) =-1.0D0\r\n  105 CONTINUE\r\nC\r\n      H(4,3) =-DBLE(R*(1.0-CT))\r\n      H(5,3) = DBLE(R*ST)\r\n      H(6,1) =-H(4,3)\r\n      H(6,2) =-H(5,3)\r\nC\r\nC     FORM THE UPPER TRIANGULAR PORTION OF THE LOCAL ELEMENT STIFFNESS\r\nC     MATRIX FOR THE BEND\r\nC\r\n      DO 110 K = 1,6\r\n      DO 110 I = K,6\r\n      S(K+6,I+6) = DF(K,I)\r\n  110 CONTINUE\r\nC\r\n      DO 130 IR = 1,6\r\n      DO 130 IC = 1,6\r\n      S(IR,IC+6) = 0.0D0\r\n      DO 120 IN = 1,6\r\n      S(IR,IC+6) = S(IR,IC+6) + H(IR,IN)*DF(IN,IC)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\n      DO 150 IR = 1,6\r\n      DO 150 IC = IR,6\r\n      S(IR,IC)  = 0.0D0\r\n      DO 140 IN = 1,6\r\n      S(IR,IC) = S(IR,IC) + S(IR,IN+6)*H(IC,IN)\r\n  140 CONTINUE\r\n  150 CONTINUE\r\nC\r\nC     REFLECT FOR SYMMETRY\r\nC\r\n      DO 165 I = 1,12\r\n      DO 165 K = I,12\r\n      S(K,I)   = S(I,K)\r\n  165 CONTINUE\r\nC\r\n      J = 0\r\n      IF (IPVT .EQ. 2) GO TO 327\r\n      ILOW = 1\r\n      ILIM = 72\r\n      GO TO 329\r\n  327 ILOW = 73\r\n      ILIM = 144\r\n  329 DO 340 I = ILOW,ILIM,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J) = KE(K)\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX H AND THE W  AND W\r\nC     6 X 6  MATRICES WILL RESIDE.                         A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0D0\r\n      IPASS = 1\r\n      IWBEG = 0\r\nC\r\nC     SET UP POINTERS\r\nC\r\n      IF (IPVT-1) 365,360,365\r\n  360 BASIC  = ABASIC\r\n      JCSID  = JCSIDA\r\n      IKEL   = 1\r\n      INDEX  = ISILNO(1)\r\n      GO TO 368\r\n  365 BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      IKEL   = 37\r\n      INDEX  = ISILNO(2)\r\nC\r\nC     SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G\r\nC     MATRIX. G = AT X TI\r\nC\r\n  368 IG = 1\r\n      IF (BASIC) GO TO 380\r\n      CALL TRANSD (ECPT(JCSID),KE(10))\r\n      CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\nC\r\nC                       T      E\r\nC     FORM THE PRODUCT W   X  K   AND STORE IN KEP(73)\r\nC                       NPVT\r\nC\r\n      CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73))\r\nC\r\nC     COMPUTE THE FINAL ANSWER AND STORE IN KEP(109)\r\nC\r\n      CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109))\r\nC\r\nC     INSERT THIS 6 X 6\r\nC\r\n      CALL SMA1B (KEP(109),INDEX,-1,IFKGG,0.0D0)\r\n      IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 400\r\n      K4GGSW = 1\r\n      CALL SMA1B (KEP(109),INDEX,-1,IF4GG,DAMPC)\r\nC\r\nC     IF IPASS = 2, WE ARE DONE.  OTHERWISE COMPUTE THE OFF-DIAGONAL\r\nC     6 X 6.\r\nC\r\n  400 IF (IPASS .EQ. 2) GO TO 500\r\n      IWBEG = 36\r\n      IPASS = 2\r\n      DO 410 I = 28,36\r\n  410 KE(I) = 0.0D0\r\n      IF (IPVT-1) 360,365,360\r\n  500 RETURN\r\nC\r\n 1010 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC\r\nC     HEAT FORMULATION CONTINUES HERE.  GET MATERIAL PROPERTY -K- FROM\r\nC     HMAT\r\nC\r\n 2000 MATFLG = 1\r\n      MATIDC = IECPT( 8)\r\n      ELTEMP = ECPT(39)\r\n      CALL HMAT (IELID)\r\nC\r\n      FL = DBLE(FK)*DBLE(ECPT(9))/(DP(9)*DP(10)*DBLE(DCR))\r\n      IF (NPVT .EQ. IECPT(3)) FL = -FL\r\n      DO 2020 I = 1,2\r\n      CALL SMA1B (FL,IECPT(I+1),NPVT,IFKGG,0.0D0)\r\n      FL = -FL\r\n 2020 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kflud2.f",
    "content": "      SUBROUTINE KFLUD2\r\nC\r\nC     THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS\r\nC     FOR THE CENTER PLUG FLUID ELEMENT\r\nC\r\nC     THE ECPT DATA BLOCK CONTAINS THE FOLLOWING DATA\r\nC\r\nC         FIELD    SYMBOL\r\nC           1        ID\r\nC           2        SIL1\r\nC           3        SIL2\r\nC           4        RHO\r\nC           5        BULK\r\nC           6        N\r\nC           7        CSF\r\nC           8        R1\r\nC           9        Z1\r\nC           10       -\r\nC           11       CSF\r\nC           12       R2\r\nC           13       Z2\r\nC           14       -\r\nC           15       -\r\nC\r\n      LOGICAL          NOGO\r\n      INTEGER          OUT,ELTYPE,NECPT(100)\r\n      DOUBLE PRECISION R1,Z1,R2,Z2,CONSTD,DPI,\r\n     1                 Z1P,Z2P,Z1P1,Z2P1,RK,RI,KFACT,F0,A,B,I2N0,I2N1,\r\n     2                 I2N2,I2NP2,DZ,HPQ,PIRHO,TWOPR,KH,K1,K2\r\n      CHARACTER        UFM*23\r\n      COMMON  /XMSSG / UFM\r\n      COMMON  /CONDAD/ CONSTD(5)\r\n      COMMON  /SYSTEM/ SYSBUF,OUT,NOGO\r\n      COMMON  /EMGDIC/ ELTYPE\r\n      COMMON  /SMA1IO/ DUM1(10),IFKGG\r\n      COMMON  /SMA1CL/ IOPT4,K4GGSW,NPVT\r\n      COMMON  /SMA1DP/ Z1P,Z2P,RK,RI,KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2,\r\n     1                 DZ,HPQ(4),PIRHO,TWOPR,KH(4),K1,K2\r\n      COMMON  /SMA1ET/ ECPT(100)\r\n      EQUIVALENCE      (CONSTD(1),DPI),(ECPT(1),NECPT(1))\r\nC\r\nC\r\n      IF (ECPT(13)-ECPT(9)) 5,10,10\r\n    5 R1 = ECPT(12)\r\n      R2 = ECPT(8)\r\n      Z1 = ECPT(13)\r\n      Z2 = ECPT(9)\r\n      I  = NECPT(3)\r\n      NECPT(3) = NECPT(2)\r\n      NECPT(2) = I\r\n      GO TO 15\r\n   10 R1 = ECPT(8)\r\n      Z1 = ECPT(9)\r\n      R2 = ECPT(12)\r\n      Z2 = ECPT(13)\r\n   15 IF (R1.EQ.0.0D0 .OR. R2.EQ.0.0D0) GO TO 5000\r\n      IF (Z1 .EQ. Z2) RETURN\r\nC\r\nC     CALCULATE THE INTEGRAL PARAMETERS I2N0,I2N1,I2N2,AND I2NP2\r\nC\r\n      K  = 2*NECPT(6)\r\n      RK = K\r\n      IF (K .GT. 0) GO TO 20\r\nC\r\n      I2N0 = 0.0\r\n      I2N1 = 0.0\r\n      I2N2 = 0.0\r\n      I2NP2= (Z2-Z1)*(R2**2 + R2*R1 + R1**2)/6.0D0\r\nC\r\n      GO TO 300\r\nC\r\n   20 B    = (R2-R1)/(Z2-Z1)\r\n      DUM  = DABS(B)\r\n      IF (DUM .GT. 1.0E-6) GO TO 30\r\nC\r\n      Z1P  = ((R1+R2)/2.0D0)**K\r\n      I2N0 = (Z1P/RK)*(Z2-Z1)\r\n      I2N1 = I2N0*(Z2+Z1)/2.0D0\r\n      I2N2 = I2N0*(Z2**2+Z2*Z1+Z1**2)/3.0D0\r\n      I2NP2= I2N0*RK/(RK+2.0D0)*R1**2\r\n      GO TO 300\r\n   30 Z1P  = R1**(K+1)\r\n      Z2P  = R2**(K+1)\r\n      Z1P1 = Z1P*R1\r\n      Z2P1 = Z2P*R2\r\nC\r\n      A    = 1.0D0/B\r\n      I2N0 = A/(RK*(RK+1.0D0))*(Z2P-Z1P)\r\n      I2N1 = A/(RK*(RK+1.0D0))*(Z2P*Z2-Z1P*Z1-A/(RK+2.0D0)*(Z2P1-Z1P1))\r\n      I2N2 = A/(RK*(RK+1.0D0))*(Z2P*Z2**2-Z1P*Z1**2 -A/(RK+2.0D0)*2.0D0\r\n     1     * (Z2P1*Z2-Z1P1*Z1-A/(RK+3.0D0)*(Z2P1*R2-Z1P1*R1)))\r\n      I2NP2= A/((RK+2.0D0)*(RK+3.0D0))*(Z2P1*R2-Z1P1*R1)\r\n  300 DZ   = Z2 - Z1\r\n      N    = NECPT(6)\r\n      Z1P  = R1**N\r\n      Z2P  = R2**N\r\n      HPQ(1) = Z2/(DZ*Z1P)\r\n      HPQ(2) =-Z1/(DZ*Z2P)\r\n      HPQ(3) =-1.0D0/(DZ*Z1P)\r\n      HPQ(4) = 1.0D0/(DZ*Z2P)\r\n      LP   = 1\r\n      IF (NPVT .EQ. NECPT(2)) GO TO 320\r\n      IF (NPVT .EQ. NECPT(3)) GO TO 310\r\n      RETURN\r\nC\r\n  310 LP = 2\r\n  320 IF (ECPT(4) .EQ. 0.0) RETURN\r\n      PIRHO  = DPI/DBLE(ECPT(4))\r\n      IF (N .EQ. 0) PIRHO = PIRHO*2.0D0\r\n      RK = N\r\n      TWOPR = 2.0*PIRHO*RK**2\r\n      KH(1) = TWOPR*(I2N0*HPQ(LP)+I2N1*HPQ(LP+2))\r\n      KH(2) = TWOPR*(I2N1*HPQ(LP)+I2N2*HPQ(LP+2)) +PIRHO*I2NP2*HPQ(LP+2)\r\n      K1    = KH(1)*HPQ(1) + KH(2)*HPQ(3)\r\n      K2    = KH(1)*HPQ(2) + KH(2)*HPQ(4)\r\n      IFILE = IFKGG\r\n      I     = NPVT\r\n      J     = NECPT(2)\r\n      CALL SMA1B (K1,J,I,IFILE,0.0D0)\r\n      J     = NECPT(3)\r\n      CALL SMA1B (K2,J,I,IFILE,0.0D0)\r\n      RETURN\r\nC\r\n 5000 N = NECPT(1)\r\n      IF (ELTYPE .EQ. 43) N = N/1000\r\n      WRITE  (OUT,6000) UFM,N\r\n 6000 FORMAT (A23,' 5000, NEGATIVE OR ZERO RADIUS DETECTED FOR ',\r\n     1       'CFLUID2/CAXIF2 ELEMENT ID',I9)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kflud3.f",
    "content": "      SUBROUTINE KFLUD3\r\nC\r\nC     THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS\r\nC     FOR THE TRIANGULAR FLUID ELEMENT\r\nC\r\nC     THE ECPT DATA IS THE FOLLOWING\r\nC\r\nC         FIELD         SYMBOL\r\nC           1             ID\r\nC           2             SIL1\r\nC           3             SIL2\r\nC           4             SIL3\r\nC           5             RHO\r\nC           6             BULK\r\nC           7             N\r\nC           8             CSF\r\nC           9             R1\r\nC           10            Z1\r\nC           11            -\r\nC           12            CSF\r\nC           13            R2\r\nC           14            Z2\r\nC           15            -\r\nC           16            CSF\r\nC           17            R3\r\nC           18            Z3\r\nC           19            -\r\nC           20            -\r\nC\r\n      LOGICAL          NOGO\r\n      INTEGER          OUT      ,NP(3)    ,NECPT(100)\r\n      DOUBLE PRECISION CONSTD   ,DPI      ,\r\n     1                 R        ,R1       ,R2       ,R3       ,\r\n     2                 Z1       ,Z2       ,Z3       ,DETH     ,\r\n     3                 H        ,RA       ,RB       ,ZA       ,\r\n     4                 ZB       ,DR       ,DZ       ,BETA     ,\r\n     5                 BLOG     ,DZR      ,DZR2     ,BET2     ,\r\n     6                 R12      ,R22      ,G00      ,G10      ,\r\n     7                 G20      ,G01      ,G11      ,G02      ,\r\n     8                 RN       ,PIRO     ,PRN2     ,KQ       ,\r\n     9                 KVEC     ,KG\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      COMMON /SYSTEM/  SYSBUF   ,OUT      ,NOGO\r\n      COMMON /SMA1IO/  DUM1(10) ,IFKGG\r\n      COMMON /SMA1CL/  IOPT4    ,K4GGSW   ,NPVT\r\n      COMMON /SMA1ET/  ECPT(100)\r\n      COMMON /SMA1DP/  R        ,R1       ,R2       ,R3       ,\r\n     1                 Z1       ,Z2       ,Z3       ,DETH     ,\r\n     2                 H(9)     ,RA       ,RB       ,ZA       ,\r\n     3                 ZB       ,DR       ,DZ       ,BETA     ,\r\n     4                 BLOG     ,DZR      ,DZR2     ,BET2     ,\r\n     5                 R12      ,R22      ,G00      ,G10      ,\r\n     6                 G20      ,G01      ,G11      ,G02      ,\r\n     7                 RN       ,PIRO     ,PRN2     ,KQ(9)    ,\r\n     8                 KVEC(3)  ,KG(3)    ,IRET     ,IPT      ,\r\n     9                 JC       ,IR\r\n      EQUIVALENCE      (CONSTD(1),DPI)    ,(ECPT(1),NECPT(1))\r\nC\r\nC     SELECT POINTS FOR COUNTERCLOCKWISE ORDER\r\nC\r\n      NP(1) = NECPT(2)\r\n      NP(2) = NECPT(3)\r\n      NP(3) = NECPT(4)\r\n      R1    = ECPT( 9)\r\n      Z1    = ECPT(10)\r\n      R2    = ECPT(13)\r\n      Z2    = ECPT(14)\r\n      R3    = ECPT(17)\r\n      Z3    = ECPT(18)\r\n      R     = (R2-R1)*(Z3-Z1) - (R3-R1)*(Z2-Z1)\r\n      IF (R) 10,2000,20\r\n   10 NP(2) = NP(3)\r\n      NP(3) = NECPT(3)\r\n      R2    = ECPT(17)\r\n      R3    = ECPT(13)\r\n      Z2    = ECPT(18)\r\n      Z3    = ECPT(14)\r\n   20 IF (R1.LE.0.0D0 .OR. R2.LE.0.0D0 .OR. R3.LE.0.0D0) GO TO 1000\r\n      DETH  = DABS(R)\r\n      H(1)  = (R2*Z3-R3*Z2)/DETH\r\n      H(4)  = (R3*Z1-R1*Z3)/DETH\r\n      H(7)  = (R1*Z2-R2*Z1)/DETH\r\n      H(2)  = (Z2-Z3)/DETH\r\n      H(5)  = (Z3-Z1)/DETH\r\n      H(8)  = (Z1-Z2)/DETH\r\n      H(3)  = (R3-R2)/DETH\r\n      H(6)  = (R1-R3)/DETH\r\n      H(9)  = (R2-R1)/DETH\r\nC\r\nC     THE INTEGRAL PARAMETERS ARE THE SUM DUE TO SIDES 1-2,2-3,3-1.\r\nC\r\n      G00   = 0.0\r\n      G01   = 0.0\r\n      G02   = 0.0\r\n      G10   = 0.0\r\n      G11   = 0.0\r\n      G20   = 0.0\r\n      IRET  = 1\r\n      RA    = R1\r\n      RB    = R2\r\n      ZA    = Z1\r\n      ZB    = Z2\r\n      GO TO 500\r\n  100 IRET  = 2\r\n      RA    = R2\r\n      RB    = R3\r\n      ZA    = Z2\r\n      ZB    = Z3\r\n      GO TO 500\r\n  110 IRET  = 3\r\n      RA    = R3\r\n      RB    = R1\r\n      ZA    = Z3\r\n      ZB    = Z1\r\nC\r\nC     THE INTEGRAL PARAMETERS ARE CALCULATED BELOW\r\nC\r\n  500 DR    = RB - RA\r\n      DZ    = ZB - ZA\r\n      IF (DR**2/DETH .LE. 1.0D-6) GO TO 140\r\n      BETA  = ZA - RA*DZ/DR\r\n      BET2  = BETA**2\r\n      BLOG  = BETA*DLOG(RA/RB)\r\n      DZR   = DZ/DR\r\n      DZR2  = DZR**2\r\n      R12   = (RA**2-RB**2)/2.0D0\r\n      R22   = (RA**3-RB**3)/3.0D0\r\n      G00   = G00 + BLOG - DZ\r\n      G10   = G10 - BETA*DR  + R12*DZR\r\n      G20   = G20 + BETA*R12 + DZR*R22\r\n      G01   = G01 + BLOG*BETA/2.0D0 - BETA*DZ + DZR2*R12/2.0D0\r\n      G11   = G11 - BET2*DR/2.0D0 + BETA*DZR*R12 + DZR2*R22/2.0D0\r\n      G02   = G02 + BET2*BLOG/3.0D0 - BET2*DZ + BETA*DZR2*R12 +\r\n     1        DZR*DZR2*R22/3.0D0\r\n  140 CONTINUE\r\n      GO TO (100,110,120), IRET\r\n  120 CONTINUE\r\nC\r\nC     FORM THE PSUEDO STIFFNESS MATRIX USING THE PARAMETERS\r\nC\r\n      RN    = NECPT(7)\r\n      IF (ECPT(5) .LE. 0.0) RETURN\r\n      PIRO  = DPI/DBLE(ECPT(5))\r\n      IF(NECPT(7) .EQ. 0) PIRO=PIRO*2.0D0\r\n      PRN2  = PIRO*RN**2\r\n      KQ(1) = PRN2*G00\r\n      KQ(2) = PRN2*G10\r\n      KQ(3) = PRN2*G01\r\n      KQ(4) = KQ(2)\r\n      KQ(5) = (PIRO + PRN2)*G20\r\n      KQ(6) = PRN2*G11\r\n      KQ(7) = KQ(3)\r\n      KQ(8) = KQ(6)\r\n      KQ(9) = PIRO*G20 + PRN2*G02\r\n      DO 200 I = 1,3\r\n      IPT   = I - 1\r\n      IF (NPVT .EQ. NP(I)) GO TO 210\r\n  200 CONTINUE\r\n      RETURN\r\nC\r\n  210 IPT   = 3*IPT + 1\r\n      CALL GMMATD (H(IPT),1,3,0,KQ,3,3,0,KVEC)\r\n      CALL GMMATD (KVEC,1,3,0,H(1),3,3,1,KG)\r\n      JC    = NPVT\r\n      DO 220 I = 1,3\r\n      IR    = NP(I)\r\n      CALL SMA1B (KG(I),IR,JC,IFKGG,0.0D0)\r\n  220 CONTINUE\r\n 2000 RETURN\r\nC\r\n 1000 IR    = NECPT(1)/1000\r\n      WRITE  (OUT,5001) UFM,IR\r\n 5001 FORMAT (A23,' 5001, NEG. OR ZERO RADIUS DETECTED FOR CFLUID3 OR',\r\n     1       ' CFLUID4 ELEMENT',I12)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kflud4.f",
    "content": "      SUBROUTINE KFLUD4\r\nC\r\nC     THIS ROUTINE IS USED FOR THE 4-SIDED FLUID ELEMENT. IT REARRANGES\r\nC     THE DATA AND  CALLS THE KFLUD3 ROUTINE FOR EACH SUBELEMENT.\r\nC\r\nC     THE ECPT DATA FOR THE ELEMENT AND ITS SUBELEMENTS ARE\r\nC\r\nC        FIELD      SYMBOL(FLUID4)      SYMBOL(FLUID3)\r\nC           1            ID                  ID\r\nC           2            SIL1                SIL1\r\nC           3            SIL2                SIL2\r\nC           4            SIL3                SIL3\r\nC           5            SIL4                RHO\r\nC           6            RHO                 BULK\r\nC           7            BULK                N\r\nC           8            N                   CSF\r\nC           9            CSF                 R1\r\nC          10            R1                  Z1\r\nC          11            Z1                  -\r\nC          12            -                   CSF\r\nC          13            CSF                 R2\r\nC          14            R2                  Z2\r\nC          15            Z2                  -\r\nC          16            -                   CSF\r\nC          17            CSF                 R3\r\nC          18            R3                  Z3\r\nC          19            Z3                  -\r\nC          20            -\r\nC          21            CSF\r\nC          22            R4\r\nC          23            Z4\r\nC          24            -\r\nC          25            -\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         OUT,NECPT(100)\r\n      REAL            KI\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUT,NOGO,SKIP(34),IAXIF\r\n      COMMON /SMA1DP/ R(3),Z(3),NNEG,NJ,NPTJ,KI\r\n      COMMON /SMA1CL/ IOPT1,K1GGSW,NPVT\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      EQUIVALENCE     (ECPT(1),NECPT(1))\r\nC\r\n      IF (NECPT(6).LE. 0.0) RETURN\r\nC\r\nC     TEST FOR INTERIOR ANGLES GREATER THAN 180 DEGREES\r\nC\r\n      NNEG = 0\r\n      IP   = 0\r\n      DO 30 I = 1,4\r\n      DO 20 J = 1,3\r\n      NJ   = I + J - 1\r\n      IF (NJ .GT. 4) NJ = NJ - 4\r\n      NPTJ = 4*(NJ-1) + 10\r\n      R(J) = ECPT(NPTJ  )\r\n   20 Z(J) = ECPT(NPTJ+1)\r\n      IF (NPVT .EQ. NECPT(I+1)) IP = IP + 1\r\n      KI   = (R(2)-R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1))\r\n      IF (KI) 25,2000,30\r\n   25 NNEG = NNEG + 1\r\n   30 CONTINUE\r\n      IF (NNEG.EQ.1 .OR. NNEG.EQ.3) GO TO 2000\r\n      IF (IP .NE. 1) GO TO 2000\r\n      ECPT(6) = ECPT(6)*2.0\r\n      DO 50 I = 1,24\r\n   50 ECPT(I+50) = ECPT(I)\r\n      DO 60 I = 5,24\r\n   60 ECPT(I) = ECPT(I+1)\r\n      IRET = 1\r\n      GO TO 100\r\n   70 ECPT( 4) = ECPT(55)\r\n      ECPT(17) = ECPT(72)\r\n      ECPT(18) = ECPT(73)\r\n      IRET = 2\r\n      GO TO 100\r\n   80 ECPT(13) = ECPT(68)\r\n      ECPT(14) = ECPT(69)\r\n      ECPT( 3) = ECPT(54)\r\n      IRET = 3\r\n      GO TO 100\r\n   90 ECPT( 9) = ECPT(64)\r\n      ECPT(10) = ECPT(65)\r\n      ECPT( 2) = ECPT(53)\r\n      IRET = 4\r\nC\r\n  100 IF (NECPT(2).NE.NPVT .AND. NECPT(3).NE.NPVT .AND.\r\n     1    NECPT(4).NE.NPVT)  GO TO 110\r\n      CALL KFLUD3\r\n  110 GO TO (70,80,90,120), IRET\r\n  120 RETURN\r\nC\r\n 2000 CONTINUE\r\n      NJ = NECPT(1)\r\n      IF (IAXIF .EQ. 0) GO TO 2001\r\n      NJ = NJ/1000\r\n 2001 CONTINUE\r\n      WRITE  (OUT,3000) UFM,NJ\r\n 3000 FORMAT (A23,' 5002, INTERIOR ANGLE GREATER THAN OR EQUAL TO 180 ',\r\n     1        'DEGREES FOR ELEMENT',I12)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/khrfn2.f",
    "content": "      INTEGER FUNCTION KHRFN2 (WORD,J,IZB)\r\nC\r\nC     CHARACTER FUNCTION KHRFN2 RECIEVES THE J-TH BYTE OF WORD\r\nC     LEFT ADJUSTED IF J IS .GE. ZERO, OR RIGHT ADJUSTED IF J .LT. ZERO\r\nC     ZERO FILL IF IZB IS ZERO, OTHERWISE, BLANK FILL\r\nC\r\n      INTEGER         WORD(1), BLANK\r\n      COMMON /SYSTEM/ DUMMY(40), NCPW\r\n      DATA    BLANK / 4H      /\r\nC\r\n      I  = 1\r\n      KHRFN2 = BLANK\r\n      IF (IZB .EQ. 0) KHRFN2 = 0\r\n      IF (J   .LT. 0) I = NCPW\r\n      IJ = IABS(J)\r\n      KHRFN2 = KHRFN1(KHRFN2,I,WORD(1),IJ)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/khrfn3.f",
    "content": "      INTEGER FUNCTION KHRFN3 (WORD1,WORD2,MOVE,IDIR)\r\nC\r\nC     CHARACTER FUNCTION KHRFN3 MERGES TWO WORDS, WORD1 AND WORD2, BY\r\nC     BYTES\r\nC\r\nC     (+)MOVE IS NO. OF BYTES INVOLVED PRELIMINARY SHIFTING\r\nC     (-)MOVE IS NO. OF BYTES IN MERGING, NO PRELIMINARY SHIFTING.\r\nC     IDIR IS LEFT OR RIGHT SHIFT OF WORD2. THE VACANT BYTES ARE THEN\r\nC     FILLED IN BY WORD1.  (LEFT SHIFT IF IDIR=1, RIGHT SHIFT OTHERWISE)\r\nC\r\nC     NOTE - KHRFN3 HANDLES ONLY 4 BYTES OF WORD. IF MACHINE WORD HAS\r\nC     MORE THAN 4 BYTES PER WORD, KHRFN3 DOES NOT ZERO-FILL NOR BLANK-\r\nC     FILL THE REST OF THE WORD. THE CALLER SHOULD MAKE THE PROPER\r\nC     CHOICE BY ZERO-FILL OR BLANK-FILL THE INPUT WORDS, WORD1 ADN WORD2\r\nC\r\nC     THE FOLLOWING TABLE GIVES THE RESULTS OF KHRFN3 FOR VARIOUS INPUT\r\nC     VALUES OF MOVE AND IDIR:\r\nC\r\nC        GIVEN:    WORD1=ABCD  AND  WORD2=1234  (IN BCD)\r\nC                 IDIR=1   IDIR.NE.1            IDIR=1   IDIR.NE.1\r\nC                --------------------          --------------------\r\nC        MOVE= 0:   1234     1234      MOVE=-0:   1234     1234\r\nC        MOVE= 1:   234D     A123      MOVE=-1:   123D     A234\r\nC        MOVE= 2:   34CD     AB12      MOVE=-2:   12CD     AB34\r\nC        MOVE= 3:   4BCD     ABC1      MOVE=-3:   1BCD     ABC4\r\nC        MOVE= 4:   ABCD     ABCD      MOVE=-4:   ABCD     ABCD\r\nC\r\nC     THIS ROUTINE WAS WRITTEN BY G.CHAN TO REPLACE THE ORIGINAL VAX\r\nC     ROUTINE WHICH WAS VERY VERY INEFFICIENT.\r\nC\r\n      INTEGER         WORD1(1),WORD2(1),WORD3\r\nC\r\n      NCPW  = 4\r\n      IMOVE = IABS(MOVE)\r\n      IEND  = NCPW - IMOVE\r\n      WORD3 = WORD2(1)\r\n      IF (MOVE) 50,90,10\r\n 10   WORD3 = WORD1(1)\r\n      IF (IMOVE .GE. NCPW) GO TO 90\r\n      IF (IDIR  .EQ.    1) GO TO 30\r\n      DO 20 I = 1,IEND\r\n      WORD3 = KHRFN1(WORD3,I+IMOVE,WORD2(1),I)\r\n 20   CONTINUE\r\n      GO TO 90\r\n 30   DO 40 I = 1,IEND\r\n      WORD3 = KHRFN1(WORD3,I,WORD2(1),I+IMOVE)\r\n 40   CONTINUE\r\n      GO TO 90\r\n 50   IF (IDIR .EQ. 1) GO TO 70\r\n      DO 60 I = 1,IMOVE\r\n      WORD3 = KHRFN1(WORD3,I,WORD1(1),I)\r\n 60   CONTINUE\r\n      GO TO 90\r\n 70   DO 80 I = 1,IMOVE\r\n      WORD3 = KHRFN1(WORD3,I+IEND,WORD1(1),I+IEND)\r\n 80   CONTINUE\r\n 90   KHRFN3 = WORD3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/khrfn5.f",
    "content": "      INTEGER FUNCTION KHRFN5 (WORD1,I,WORD2,J)\r\nC\r\nC     THIS FUNCTION IS SAME AS KHRFN1 EXECPT THAT THE BYTE (WORD1(1) ONL\r\nC     IS IN REVERSE ORDER.  (THIS FUNCTION IS MAINLY USED BY VAX)\r\nC\r\n      INTEGER  WORD1(1), WORD2(1)\r\n      COMMON /SYSTEM/ DUMMY(40), NCPW\r\n      KHRFN5=KHRFN1(WORD1(1),NCPW-I+1,WORD2(1),J)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kompnt.f",
    "content": "      FUNCTION KOMPNT (IG,IC,IDEG,IW,ICC,JG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS FUNCTION HAS AS ITS VALUE THE NUMBER OF COMPONENTS STORED\r\nC     IN THE CONNECTION ARRAY IG.\r\nC     ALSO, IC AND ICC ARE SET UP.\r\nC     IC(I) =COMPONENT INDEX FOR NODE I\r\nC     ICC(I)=THE STARTING POSITION TO BE USED FOR LABELS IN COMPONENT I\r\nC     THUS, ICC(I+1)-ICC(I)= THE NUMBER OF NODES IN COMPONENT I\r\nC\r\nC     INTEGER          BUNPK\r\n      DIMENSION        IG(1),    IC(1),    IDEG(1),  IW(1),    ICC(1),\r\n     1                 JG(1)\r\n      COMMON /BANDS /  NN,       MM\r\nC\r\n      DO 100 I=1,NN\r\n      ICC(I)=0\r\n      IC(I)=0\r\n  100 CONTINUE\r\n      NC=0\r\n      ICC(1)=1\r\n  105 DO 110 I=1,NN\r\n      IF (IC(I)) 110,120,110\r\n  110 KOMPNT=NC\r\n      GO TO 210\r\n  120 NC=NC+1\r\n      KI=0\r\n      KO=1\r\n      IW(1)=I\r\n      IC(I)=NC\r\n      IF (NC-1) 130,125,125\r\n  125 IS=ICC(NC)+1\r\n      ICC(NC+1)=IS\r\n  130 KI=KI+1\r\n      II=IW(KI)\r\n      N =IDEG(II)\r\n      IF (N) 140,105,140\r\n  140 CALL BUNPAK(IG,II,N,JG)\r\n      DO 200 I=1,N\r\n      IA=JG(I)\r\n      IF (IC(IA)) 200,150,200\r\n  150 IC(IA)=NC\r\n      KO=KO+1\r\n      IW(KO)=IA\r\n      IS=ICC(NC+1)+1\r\n      ICC(NC+1)=IS\r\n  200 CONTINUE\r\n      IF (KO-KI) 105,105,130\r\n  210 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/korsz.f",
    "content": "      FUNCTION KORSZ ( I )\r\n      COMMON / LOGOUT / LOUT\r\n      COMMON / LSTADD / LASTAD\r\n      KORSZ = LASTAD - LOCFX(I) + 1\r\n      CALL SSWTCH ( 13, L13 )\r\n      IF ( L13.NE.0 ) WRITE ( LOUT, 2000 ) KORSZ\r\n      RETURN\r\n2000  FORMAT(22X,' --- OPEN CORE =',I8,' WORDS (DECIMAL) ---')\r\n      END\r\n"
  },
  {
    "path": "mis/kpanel.f",
    "content": "      SUBROUTINE KPANEL (IARG)\r\nC*****\r\nC THIS ROUTINE COMPUTES THE  4  6 X 6 MATRICES K(NPVT,NPVT), K(NPVT,J1)\r\nC K(NPVT,J2), K(NPVT,J3) FOR A SHEAR PANEL (IF IARG = 4) AND FOR A\r\nC TWIST PANEL (IF IARG = 5)\r\nC*****\r\nC\r\nC                 E C P T  F O R  B O T H  P A N E L S\r\nC ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC ECPT( 3)  -   ...                   ...\r\nC ECPT( 4)  -   ...                   ...\r\nC ECPT( 5)  -   ...                   ...\r\nC ECPT( 6)  -  MATID          MATERIAL ID.\r\nC ECPT( 7)  -  T              THICKNESS\r\nC ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC ECPT(11)  -   ...                      ...\r\nC ECPT(12)  -   ...                      ...\r\nC ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC ECPT(15)  -   ...                      ...\r\nC ECPT(16)  -   ...                      ...\r\nC ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC ECPT(19)  -   ...                      ...\r\nC ECPT(20)  -   ...                      ...\r\nC ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC ECPT(23)  -   ...                      ...\r\nC ECPT(24)  -   ...                      ...\r\nC ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\n      DOUBLE PRECISION\r\n     1                   DPCON              ,VLEFT(6)\r\n     2,                  VRIGHT(6)          ,TI(9)\r\n     3,                  KE(36)             ,DAMPC\r\n     4,                  VD1                ,VD2\r\n     5,                  VKN                ,VK\r\n     6,                  V12                ,V41\r\n     7,                  VP12               ,VI\r\n     8,                  VJ                 ,AVEC\r\n     9,                  SMALLU             ,SMALLV\r\n     T,                  P                  ,X1\r\n     1,                  X2                 ,X3\r\n     2,                  X4                 ,Y1\r\n     3,                  Y2                 ,Y3\r\n     4,                  Y4                 ,VKL\r\n     5,                  PA                 ,V12DK\r\n     6,                  CEP1               ,CEP2\r\n     7,                  EP                 ,TEMP\r\n      DOUBLE PRECISION\r\n     1                   YP                 ,XP\r\n     2,                  SA                 ,XQ\r\n     4,                  B                  ,XL\r\n     5,                  A                  ,A2\r\n     6,                  A3                 ,A4\r\n     7,                  A5                 ,B2\r\n     8,                  B3                 ,B4\r\n     9,                  B5                 ,C\r\n     T,                  C2                 ,C3\r\n     1,                  C4                 ,C5\r\n     2,                  D                  ,D2\r\n     3,                  D3                 ,D4\r\n     4,                  D5                 ,TERM1\r\n     5,                  TERM2              ,TERM3\r\n     6,                  TERM4              ,TERM5\r\n     7,                  XL13               ,XL24\r\n      DOUBLE PRECISION\r\n     1                   VP12L              ,VJL\r\n     2,                  Z                  ,TERM\r\n     3,                  F                  ,E\r\n     4,                  G                  ,NU\r\n     5,                  T                  ,C23\r\n     6,                  NUC\r\n      REAL\r\n     1                   NUSP\r\nC\r\nC\r\nC\r\n      INTEGER\r\n     1                   OUTRW              ,CLSNRW\r\n     2,                  CLSRW              ,EOR\r\n     3,                  FROWIC             ,TNROWS\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   VD1(3)             ,VD2(3)\r\n     2,                  VKN(3)             ,VK(3)\r\n     3,                  V12(3)             ,V41(3)\r\n     4,                  VP12(3)            ,VI(3)\r\n     5,                  VJ(3)              ,AVEC(4)\r\n     6,                  SMALLU(4)          ,SMALLV(4)\r\n     7,                  P(4)               ,IECPT(100)\r\n     8,                  ECPT(100)\r\nC\r\nC\r\nC\r\n      COMMON   /SYSTEM/\r\n     1                   ISYS\r\nC\r\nC SMA1 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA1IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IFGEI              ,IGGEI\r\n     6,                  IFKGG              ,IGKGG\r\n     7,                  IF4GG              ,IG4GG\r\n     8,                  IFGPST             ,IGGPST\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBKGG(7)          ,MCB4GG(7)\r\nC\r\nC SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON   /SMA1BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  I6X64              ,N6X64\r\nC\r\nC SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA1CL/\r\n     1                   IOPT4              ,K4GGSW\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,IDETCK\r\n     7,                  DODET              ,NOGO\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA1ET/\r\n     1                   IELID              ,ISILNO(4)\r\n     2,                  MATID              ,TSP\r\n     3,                  FMU                ,ICSID1\r\n     4,                  GP1(3)             ,ICSID2\r\n     5,                  GP2(3)             ,ICSID3\r\n     6,                  GP3(3)             ,ICSID4\r\n     7,                  GP4(3)             ,TEMPEL\r\nC\r\nC SMA1 LOCAL VARIABLES\r\nC\r\n      COMMON   /SMA1DP/\r\n     1                   KE                 ,TI\r\n     2,                  VLEFT              ,VRIGHT\r\n     3,                  DAMPC              ,DPCON\r\n     4,                  VD1                ,VD2\r\n     5,                  VKN                ,VK\r\n     6,                  V12                ,V41\r\n     7,                  VP12               ,VI\r\n     8,                  VJ                 ,AVEC\r\n     9,                  SMALLU             ,SMALLV\r\n     T,                  P                  ,X1\r\n     1,                  X2                 ,X3\r\n     2,                  X4                 ,Y1\r\n     3,                  Y2                 ,Y3\r\n     4,                  Y4                 ,VKL\r\n     5,                  PA                 ,V12DK\r\n     6,                  CEP1               ,CEP2\r\n     7,                  EP                 ,TEMP\r\n      COMMON   /SMA1DP/\r\n     1                   YP                 ,XP\r\n     2,                  SA                 ,XQ\r\n     4,                  B                  ,XL\r\n     5,                  A                  ,A2\r\n     6,                  A3                 ,A4\r\n     7,                  A5                 ,B2\r\n     8,                  B3                 ,B4\r\n     9,                  B5                 ,C\r\n     T,                  C2                 ,C3\r\n     1,                  C4                 ,C5\r\n     2,                  D                  ,D2\r\n     3,                  D3                 ,D4\r\n     4,                  D5                 ,TERM1\r\n     5,                  TERM2              ,TERM3\r\n     6,                  TERM4              ,TERM5\r\n     7,                  XL13               ,XL24\r\n      COMMON   /SMA1DP/\r\n     1                   VP12L              ,VJL\r\n     2,                  Z                  ,TERM\r\n     3,                  F                  ,E\r\n     4,                  G                  ,NU\r\n     5,                  T                  ,C23\r\n     6,                  NUC\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\nC\r\nC\r\nC\r\n      COMMON   /MATOUT/\r\n     1                   ESP                ,GSP\r\n     2,                  NUSP               ,RHO\r\n     3,                  ALPHA              ,TSUBO\r\n     4,                  GSUBE              ,SIGT\r\n     5,                  SIGC               ,SIGS\r\nC\r\nC\r\nC\r\n      EQUIVALENCE    ( IECPT(1), ECPT(1), IELID )\r\nC\r\nC CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DAMPC = G SUB E\r\nC\r\nC STORE ECPT AND MPT VARIABLES IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      E    = ESP\r\n      G    = GSP\r\n      NU   = NUSP\r\n      T    = TSP\r\n      IF(T*G .EQ. 0.0) GO TO 250\r\n      C23  = 2.0D0 / 3.0D0\r\n      NUC  = 1.0D0 / (1.0D0 + NU)\r\nC\r\nC COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I=1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3)-VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1)-VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2)-VD1(2)*VD2(1)\r\n      VKL = DSQRT (VKN(1)**2  +  VKN(2)**2  +  VKN(3)**2  )\r\n      IF (VKL .EQ. 0.0D0) GO TO 230\r\n      VK(1) = VKN(1)/VKL\r\n      VK(2) = VKN(2)/VKL\r\n      VK(3) = VKN(3)/VKL\r\n      PA = .5D0 * VKL\r\nC\r\nC COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I=1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK = V12(1)*VK(1)+V12(2)*VK(2)+V12(3)*VK(3)\r\n      VP12(1) = V12(1)-V12DK*VK(1)\r\n      VP12(2) = V12(2)-V12DK*VK(2)\r\n      VP12(3) = V12(3)-V12DK*VK(3)\r\n      VP12L = DSQRT (VP12(1)**2  +  VP12(2)**2  +  VP12(3)**2 )\r\n      IF (VP12L .EQ. 0.0D0) GO TO 240\r\n      VI(1) = VP12(1)/VP12L\r\n      VI(2) = VP12(2)/VP12L\r\n      VI(3) = VP12(3)/VP12L\r\n      VJ(1) = VK(2)*VI(3)-VK(3)*VI(2)\r\n      VJ(2) = VK(3)*VI(1)-VK(1)*VI(3)\r\n      VJ(3) = VK(1)*VI(2)-VK(2)*VI(1)\r\nC\r\nC NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = DSQRT (VJ(1)**2  + VJ(2)**2  +  VJ(3)**2 )\r\n      IF (VJL .EQ. 0.0D0) GO TO 250\r\n      VJ(1) = VJ(1) / VJL\r\n      VJ(2) = VJ(2) / VJL\r\n      VJ(3) = VJ(3) / VJL\r\n      X1 = 0.0D0\r\n      Y1 = 0.0D0\r\n      X2 = VP12L\r\n      Y2 = 0.0D0\r\n      X3 = VI(1) * VD1(1)  +  VI(2) * VD1(2)  +  VI(3) * VD1(3)\r\n      Y3 = VJ(1) * VD1(1)  +  VJ(2) * VD1(2)  +  VJ(3) * VD1(3)\r\n      X4 =-VI(1) * V41(1)  -  VI(2) * V41(2)  -  VI(3) * V41(3)\r\n      Y4 =-VJ(1) * V41(1)  -  VJ(2) * V41(2)  -  VJ(3) * V41(3)\r\nC\r\nC CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES.  IF NOT,\r\nC CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.0D0) GO TO 260\r\n      IF(Y4 .LE. 0.0D0) GO TO 280\r\n      IF(X3 .LE. Y3*X4/Y4) GO TO 270\r\n      IF (X4 .GE. X2 - (X2-X3)*Y4/Y3) GO TO 290\r\nC\r\nC TEST FOR PARALLEL EFFECTS.\r\nC\r\n      TEMP = X3 - X2\r\n      EP=1.0D-1\r\n      IF (DABS(Y3-Y4).LT.DABS(X3-X4)*EP) GO TO 30\r\n      IF (DABS(Y4*TEMP-Y3*X4).LT.DABS(X4*TEMP+Y4*Y3)*EP) GO TO 40\r\n      GO TO 70\r\n   30 IF (DABS(Y4*TEMP-Y3*X4).LT.DABS(X4*TEMP+Y4*Y3)*EP) GO TO 50\r\nC\r\nC AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO THE\r\nC LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4  -  Y4 * (X3-X2)\r\n      YP   = X2*Y3*Y4 / TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4 / TEMP\r\n      SA   =(X2 - XP) / YP\r\n      C    =(X1 - XP) / YP\r\n      Z   = ( (P(1)*P(2)*PA) / (P(3)*P(4)*2.0D0*G*T) ) *\r\n     1        (1.0D0 + C23*NUC  * (SA**2 + SA*C + C**2) )\r\n      GO TO 80\r\nC\r\nC AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO THE\r\nC LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D   = -.5D0 * (  X4/Y4  +  (X3-X2) / Y3  )\r\n      XQ   = X4  - Y4  *  (X3-X4)/(Y3-Y4)\r\n      TEMP = 1.0D0 / DSQRT (1.0D0 + D**2)\r\n      P(1) = ( XQ - X1 - D*Y1) * TEMP\r\n      P(2) = ( XQ - X2 - D*Y2) * TEMP\r\n      P(3) = ( XQ - X3 - D*Y3) * TEMP\r\n      P(4) = ( XQ - X4 - D*Y4) * TEMP\r\n      TEMP =   XQ - X4\r\n      B    =   (TEMP * D  +  Y4)  /  (TEMP  -  Y4*D)\r\n      Z   = (  (P(1)*P(2)*PA) / (P(3)*P(4)*2.0D0*G*T)  ) *\r\n     1      (1.0D0  +  C23*NUC* (B**2 + B*D + D**2)  )\r\n      GO TO 80\r\nC\r\nC IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I=1,4\r\n   60 P(I) = 1.0D0\r\n      D   = -.5D0 * (  X4/Y4  +  (X3-X2)/Y3  +  (Y3-Y4)/(X3-X4)  )\r\n      Z   = PA / (2.0D0*G*T) * (1.0D0 + 2.0D0*D**2*NUC)\r\n      GO TO 80\r\nC\r\nC IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4  -  (X3-X4)/(Y3-Y4) * Y4\r\n      TEMP = Y3*X4  -  Y4*(X3-X2)\r\n      XP   = X2*Y3*X4 / TEMP\r\n      YP   = X2*Y3*Y4 / TEMP\r\n      XL   = DSQRT ( (XQ-XP)**2 + YP**2 )\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP * (XQ - X1 - D*Y1)\r\n      P(2) = TEMP * (XQ - X2 - D*Y2)\r\n      P(3) = TEMP * (XQ - X3 - D*Y3)\r\n      P(4) = TEMP * (XQ - X4 - D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .5D0 * P(1) * P(2) * P(3) * P(4) / XL**2\r\n      TERM = A  +  B  +  C23*(A3+B3)  +  .2D0*(A5+B5)\r\n      TERM1= C  +  D  +  C23*(C3+D3)  +  .2D0*(C5+D5)\r\n      TERM2= B  +  C  +  C23*(B3+C3)  +  .2D0*(B5+C5)\r\n      TERM3= D  +  A  +  C23*(D3+A3)  +  .2D0*(D5+A5)\r\n      TERM =    TERM * DLOG( DABS (A+B) )\r\n      TERM1=    TERM1* DLOG( DABS (C+D) )\r\n      TERM2=    TERM2* DLOG( DABS (B+C) )\r\n      TERM3=    TERM3* DLOG( DABS (D+A) )\r\n      TERM4=   .1D0*( (A2-C2)*(B3-D3)  +  (B2-D2)*(A3-C3) )\r\n      TERM5=   .2D0*( (A -C )*(B4-D4)  +  (B -D )*(A4-C4) )\r\n      F    =  TEMP * (TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5)\r\n      Z  =  P(1)*P(2) / (P(3)*P(4)*2.0D0*G*T) * (PA + 4.0D0*NUC*\r\n     1                                                  (F - C23*PA))\r\n   80 XL13 = DSQRT (X3**2 + Y3**2)\r\n      XL24 = DSQRT (  (X4-X2)**2  +  Y4**2  )\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP = X4 * Y3  -  X3 * Y4\r\n      AVEC(1) = -.5D0 * X2 * Y4 * XL13 / TEMP\r\n      AVEC(2) = .5D0 * X2 * Y3 * XL24 / (TEMP - X2 * (Y3-Y4) )\r\n      AVEC(3) = - AVEC(1)\r\n      AVEC(4) = - AVEC(2)\r\nC\r\nC IF IARG = 4, WE HAVE A SHEAR PANEL, AND IF IARG = 5, A TWIST PANEL.\r\nC\r\n      IF (IARG .EQ. 4) GO TO 100\r\nC\r\nC SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU AND\r\nC SMALLU IN SMALLV.\r\nC\r\n      DO 90 I=1,4\r\n      TEMP = SMALLU(I)\r\n      SMALLU(I) = -SMALLV(I)\r\n   90 SMALLV(I) = TEMP\r\nC\r\nC SEARCH THE LIST OF THE 4 SIL NOS. TO DETERMINE WHICH IS THE PIVOT\r\nC\r\n  100 DO 110 I=1,4\r\n      IF (ISILNO(I) .NE. NPVT) GO TO 110\r\n      IPVT = I\r\n      GO TO 120\r\n  110 CONTINUE\r\n      CALL MESAGE (-30,34,IECPT(1))\r\nC\r\nC COMPUTE THE DOUBLE PRECISION CONSTANT DPCON\r\nC\r\n  120 IF (IARG .EQ. 5) GO TO 130\r\n      DPCON = AVEC(IPVT) / (2.0D0 * Z)\r\n      GO TO 140\r\n  130 DPCON = AVEC(IPVT) * T**2 / (24.0D0 * Z)\r\nC\r\nC COMPUTE THE -VLEFT- VECTOR\r\nC\r\n  140 IVLBEG = 1\r\n      VLEFT(1) = VI(1) * SMALLU(IPVT)  +  VJ(1) * SMALLV(IPVT)\r\n      VLEFT(2) = VI(2) * SMALLU(IPVT)  +  VJ(2) * SMALLV(IPVT)\r\n      VLEFT(3) = VI(3) * SMALLU(IPVT)  +  VJ(3) * SMALLV(IPVT)\r\n      IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150\r\n      CALL TRANSD (IECPT(4*IPVT+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4) )\r\nC\r\nC ZERO OUT THE 6 X 6 MATRIX KE\r\nC\r\n  150 DO 160 I=1,36\r\n  160 KE(I) = 0.0D0\r\nC\r\nC COMPUTE THE 6 X 6 -S\r\nC\r\n      DO 220 J=1,4\r\n      IVRBEG = 1\r\n      VRIGHT(1) = SMALLU(J) * VI(1)  +  SMALLV(J) * VJ(1)\r\n      VRIGHT(2) = SMALLU(J) * VI(2)  +  SMALLV(J) * VJ(2)\r\n      VRIGHT(3) = SMALLU(J) * VI(3)  +  SMALLV(J) * VJ(3)\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 170\r\n      CALL TRANSD (IECPT(4*J+5),TI)\r\n      CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4) )\r\n      IVRBEG = 4\r\n  170 CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(1) )\r\n      DO 180 K=1,9\r\n  180 KE(K) = DPCON * KE(K) * AVEC(J)\r\n      IF (IARG . EQ. 5) GO TO 190\r\n      KE(13) = KE(7)\r\n      KE(14) = KE(8)\r\n      KE(15) = KE(9)\r\n      KE( 7) = KE(4)\r\n      KE( 8) = KE(5)\r\n      KE( 9) = KE(6)\r\n      KE( 4) = 0.0D0\r\n      KE( 5) = 0.0D0\r\n      KE( 6) = 0.0D0\r\n      GO TO 210\r\n  190 KE(22) = KE(1)\r\n      KE(23) = KE(2)\r\n      KE(24) = KE(3)\r\n      KE(28) = KE(4)\r\n      KE(29) = KE(5)\r\n      KE(30) = KE(6)\r\n      KE(34) = KE(7)\r\n      KE(35) = KE(8)\r\n      KE(36) = KE(9)\r\n      DO 200 II=1,9\r\n  200 KE(II) = 0.0D0\r\n  210 CALL SMA1B (KE,IECPT(J+1),-1,IFKGG,0.0D0)\r\n      IF (IOPT4 .EQ. 0  .OR.  G SUB E .EQ. 0.0) GO TO 220\r\n      K4GGSW = 1\r\n      CALL SMA1B (KE,IECPT(J+1),-1,IF4GG,DAMPC)\r\n  220 CONTINUE\r\n      RETURN\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n  250 CALL MESAGE(30,26,IECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n  260 IECPT(2) = 2\r\n      GO TO 300\r\n  270 IECPT(2) = 4\r\n      GO TO 300\r\n  280 IECPT(2) = 1\r\n      GO TO 300\r\n  290 IECPT(2) = 3\r\n  300 CALL MESAGE(30,27,IECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kpltst.f",
    "content": "      SUBROUTINE KPLTST (G1,G2,G3,G4)\r\nC\r\nC     THIS ROUTINE WILL VERIFY THAT THE 4 GRID POINTS IN 3 SPACE LIE IN\r\nC     AN APPROXIMATE PLANE. IF NOT THE NOGO FLAG IS SET TRUE AND A\r\nC     MESSAGE IS WRITEN.\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         OUT\r\n      REAL            G1(3),G2(3),G3(3),G4(3)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ SYSBUF,OUT,NOGO\r\n      COMMON /SMA1ET/ ID\r\n      COMMON /SMA1DP/ R13(3),R24(3),RXR(3),R(3)\r\nC\r\n      R13(1) = G3(1) - G1(1)\r\n      R13(2) = G3(2) - G1(2)\r\n      R13(3) = G3(3) - G1(3)\r\n      R24(1) = G4(1) - G2(1)\r\n      R24(2) = G4(2) - G2(2)\r\n      R24(3) = G4(3) - G2(3)\r\n      CALL SAXB (R13,R24,RXR)\r\nC\r\nC     NORMALIZE\r\nC\r\n      DL     = SQRT(RXR(1)**2 + RXR(2)**2 + RXR(3)**2)\r\n      IF (DL) 20,20,10\r\n   10 RXR(1) = RXR(1)/DL\r\n      RXR(2) = RXR(2)/DL\r\n      RXR(3) = RXR(3)/DL\r\n      R1L    = SQRT(R13(1)**2 + R13(2)**2 + R13(3)**2)\r\n      R2L    = SQRT(R24(1)**2 + R24(2)**2 + R24(3)**2)\r\n      DL     = AMIN1(R1L,R2L)\r\n      R(1)   = G2(1) - G1(1)\r\n      R(2)   = G2(2) - G1(2)\r\n      R(3)   = G2(3) - G1(3)\r\n      DH     = SADOTB(R,RXR)\r\n      IF (DL) 20,20,15\r\n   15 IF (ABS(DH/DL) .LE. 0.10) RETURN\r\nC\r\nC     NOT PLANER\r\nC\r\n   20 CALL PAGE2 (-2)\r\n      WRITE  (OUT,30) UWM,ID\r\n   30 FORMAT (A25,' 4000, ONE SIDE OF ELEMENT',I10,\r\n     1       ' CONNECTING FOUR POINTS IS NOT APPROXIMATELY PLANER.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kqdmem.f",
    "content": "      SUBROUTINE KQDMEM\r\nC\r\nC     *** QUADRILATERAL MEMBRANE SUBROUTINE ***\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING\r\nC\r\nC            KTRMEM - TRIANGULAR MEMBRANE SUBROUTINE\r\nC            SMA1B  - INSERTION ROUTINE\r\nC            MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      LOGICAL         HRING,HEAT\r\n      REAL            IVEC,JVEC,KVEC\r\n      DOUBLE PRECISION KIJ,KSUM,K3X3,TEMP\r\n      DIMENSION       M(12),K3X3(27),NECPT(8)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SMA1HT/ HEAT\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      COMMON /SMA1IO/ DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23)\r\n      COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK,\r\n     1                DODET,NOGO\r\n      COMMON /SMA1DP/ KIJ(36),DUM7(156),KSUM(36),TEMP,COSANG,SINANG ,\r\n     1                VECL,IVEC(3),JVEC(3),KVEC(3),PVEC(3),VSUBK(3),\r\n     2                V(3),SI(3),NPIVOT,MPOINT,MI,NSUBSC,NGRID(4),U1,U2,\r\n     3                COORD(16),DUMM8(248)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ DUM99(11),GSUBE,DUM88(6)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA), (K3X3(1),KIJ(1)),\r\n     1                (NECPT(1),ECPT(1))\r\n      DATA    M     / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\n      DATA    PIOVR3/ 1.0471975512 /\r\nC\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         KQDMEM                     KTRMEM\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4    NOTE. THE FOLLOWING ARE INTEGERS...\r\nC     ECPT(23) = X4                  GRID POINTS, MAT ID, EL.ID,\r\nC     ECPT(24) = Y4                  COORD. SYS. IDS.\r\nC     ECPT(25) = Z4                  ALL OTHERS ARE REAL IN THE ECPT.\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ******************************************************************\r\nC\r\n      HRING = .FALSE.\r\n      IF (NECPT(8) .EQ. 1) HRING = .TRUE.\r\nC\r\nC     THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE\r\nC     COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL\r\nC     POSSIBILITY)  NOTE  FMMS-46 PAGE -9-\r\nC\r\n      ANGL    = ECPT(6)*DEGRA\r\n      COSANG  = COS(ANGL)\r\n      SINANG  = SIN(ANGL)\r\n      IVEC(1) = ECPT(15) - ECPT(11)\r\n      IVEC(2) = ECPT(16) - ECPT(12)\r\n      IVEC(3) = ECPT(17) - ECPT(13)\r\n      VECL = SQRT(IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2)\r\n      IF (VECL .EQ. 0.0) GO TO 200\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\n      VSUBK(1)= IVEC(2)*(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12))\r\n      VSUBK(2)= IVEC(3)*(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13))\r\n      VSUBK(3)= IVEC(1)*(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11))\r\n      VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 )\r\n      IF (VECL .EQ. 0.0) GO TO 200\r\n      KVEC(1) = VSUBK(1)/VECL\r\n      KVEC(2) = VSUBK(2)/VECL\r\n      KVEC(3) = VSUBK(3)/VECL\r\n      JVEC(1) = KVEC(2)*IVEC(3) - KVEC(3)*IVEC(2)\r\n      JVEC(2) = KVEC(3)*IVEC(1) - KVEC(1)*IVEC(3)\r\n      JVEC(3) = KVEC(1)*IVEC(2) - KVEC(2)*IVEC(1)\r\n      DO 10 I = 1,3\r\n   10 PVEC(I) = COSANG*IVEC(I) + SINANG*JVEC(I)\r\nC\r\nC\r\nC     SAVE COORDINATE SYSTEMS AND GRID POINT SIL NUMBERS\r\nC\r\n      NGRID(1) = NECPT(2)\r\n      NGRID(2) = NECPT(3)\r\n      NGRID(3) = NECPT(4)\r\n      NGRID(4) = NECPT(5)\r\n      DO 20 I = 1,16\r\n   20 COORD(I) = ECPT(I+9)\r\nC\r\nC     NOTE. COORD 1, 5, 9, AND 13  ARE INTEGER CSID NUMBERS.\r\nC\r\nC     CORRECT ECPT FOR MEMBRANE USE\r\n      ECPT(5) = ECPT(6)\r\n      ECPT(6) = ECPT(7)\r\n      IF (HRING) GO TO 21\r\n      ECPT(7) = ECPT(8)/2.0\r\n   21 CONTINUE\r\n      ECPT(8) = ECPT(9)\r\n      ECPT(21)= ECPT(26)\r\nC\r\nC     FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES\r\nC     ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM.\r\nC\r\nC     FILL MAP MATRIX  (PERFORMED IN DATA STATEMENT - DO NOT ALTER)\r\nC              A              B              C\r\nC           M1 = 1         M2 = 2         M3 = 4      (TRIANGLE    I)\r\nC\r\nC           M4 = 2         M5 = 3         M6 = 1      (TRIANGLE   II)\r\nC\r\nC           M7 = 3         M8 = 4         M9 = 2      (TRIANGLE  III)\r\nC\r\nC           M10= 4         M11= 1         M12= 3      (TRIANGLE   IV)\r\nC\r\nC     ******************************************************************\r\nC\r\nC     FIND WHICH POINT IS THE PIVOT POINT.\r\nC\r\n      DO 30 I = 1,4\r\n      IF (NPVT .NE. NGRID(I)) GO TO 30\r\n      NPIVOT = I\r\n      GO TO 40\r\n   30 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC     COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED\r\nC     AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION.  (NOTE THE\r\nC     ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS)\r\nC\r\n   40 IF (NPIVOT-2) 50,50,60\r\n   50 JNOT = NPIVOT + 2\r\n      GO TO 70\r\n   60 JNOT = NPIVOT - 2\r\nC\r\nC     ZERO OUT KSUM FOR 36 WORDS\r\nC\r\n   70 DO 80 I = 1,36\r\n   80 KSUM(I) = 0.0D0\r\nC\r\nC     LOOP THRU 4 TRIANGLES\r\nC\r\n      DO 150 J = 1,4\r\n      IF (J .EQ. JNOT) GO TO 150\r\nC\r\nC     FILL IN ECPT FOR TRIANGLE J\r\nC\r\n      MPOINT = 3*J - 3\r\n      DO 100 I = 1,3\r\n      NPT1   = MPOINT + I\r\n      NSUBSC = M(NPT1)\r\n      NECPT(I+1) = NGRID(NSUBSC)\r\nC\r\n      NPT1 = 4*NSUBSC - 4\r\n      DO 90 K = 1,4\r\n      NPT2 = NPT1 + K\r\n      NPT3 = 4*I  + 4 + K\r\n   90 ECPT(NPT3) = COORD(NPT2)\r\n  100 CONTINUE\r\nC\r\nC     RECOMPUTE THICKNESS IF THIS IS A SUB-TRIANGLE OF A TRAPRG IN\r\nC     A -HEAT- PROBLEM.\r\nC\r\n      IF (HRING) ECPT(7) = PIOVR3*(ECPT(10) + ECPT(14) + ECPT(18))\r\nC\r\nC     ECPT IS COMPLETE FOR TRIANGLE J\r\nC\r\nC     SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE\r\nC\r\n      IF (J .NE. 1) GO TO 110\r\n      SINTH = SINANG\r\n      COSTH = COSANG\r\n      GO TO 120\r\nC\r\nC     NOTE FMMS-46 PAGE-9 FOR FOLLOWING\r\nC\r\n  110 V(1)  = ECPT(14) - ECPT(10)\r\n      V(2)  = ECPT(15) - ECPT(11)\r\n      V(3)  = ECPT(16) - ECPT(12)\r\n      VECL  = SQRT(V(1)**2 + V(2)**2 + V(3)**2)\r\n      IF (VECL .EQ. 0.0) GO TO 200\r\n      U1    = (V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3))/VECL\r\n      SI(1) = V(2)*PVEC(3) - V(3)*PVEC(2)\r\n      SI(2) = V(3)*PVEC(1) - V(1)*PVEC(3)\r\n      SI(3) = V(1)*PVEC(2) - V(2)*PVEC(1)\r\n      U2    = (SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3))/VECL\r\n      VECL  = SQRT(U1**2 + U2**2)\r\n      IF (VECL.EQ.0.0E0) GO TO 200\r\n      U1    = U1/VECL\r\n      U2    = U2/VECL\r\n      SINTH = U2\r\n      COSTH = U1\r\n  120 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\n      CALL KTRMEM (1)\r\nC\r\nC     RETURNING FROM KTRMEM THE 3 3X3 ARRAYS FOR THE PIVOT ARE STORED IN\r\nC     COMMON UNDER THE NAME   K3X3(27)\r\nC\r\nC     NOW ADD THE 3 3X3 ARRAYS INTO THE 4 3X3 ARRAYS OF KSUM\r\nC\r\n      DO 140 I = 1,3\r\n      NPT1 = 9*I - 9\r\nC\r\nC     NPT1   POINTS TO THE ZERO POSITION OF THE I-TH K3X3.\r\nC     MPOINT POINTS TO THE ZERO POSITION OF THE J-TH ROW OF MAP MATRIX\r\nC\r\n      MI = MPOINT + I\r\n      NPT2 = 9*M(MI) - 9\r\nC     NPT2 NOW POINTS TO THE ZERO POSITION OF THE  M(MI) TH  SUM MATRIX\r\nC\r\n      DO 130 K = 1,9\r\n      NPT3 = NPT2 + K\r\n      MI   = NPT1 + K\r\n  130 KSUM(NPT3) = KSUM(NPT3) + K3X3(MI)\r\n  140 CONTINUE\r\nC\r\n  150 C O N T I N U E\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW INSERT EACH OF THE 4-KSUM (3X3) MATRICES INTO A 6X6 AND\r\nC     SHIP TO SMA1B\r\nC\r\n      IF (HEAT) GO TO 250\r\n      DO 160 I = 1,36\r\n  160 KIJ(I) = 0.0D0\r\nC\r\n      DO 190 J = 1,4\r\n      MPOINT = 9*J - 9\r\nC\r\nC     MPOINT POINTS TO THE ZERO POSITION OF THE J-TH KSUM 3X3.\r\nC\r\n      KIJ( 1) = KSUM(MPOINT + 1)\r\n      KIJ( 2) = KSUM(MPOINT + 2)\r\n      KIJ( 3) = KSUM(MPOINT + 3)\r\n      KIJ( 7) = KSUM(MPOINT + 4)\r\n      KIJ( 8) = KSUM(MPOINT + 5)\r\n      KIJ( 9) = KSUM(MPOINT + 6)\r\n      KIJ(13) = KSUM(MPOINT + 7)\r\n      KIJ(14) = KSUM(MPOINT + 8)\r\n      KIJ(15) = KSUM(MPOINT + 9)\r\nC\r\nC     SHIP TO SMA1B\r\nC\r\n      CALL SMA1B (KIJ(1),NGRID(J),-1,IFKGG,0.0D0)\r\nC\r\n      IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 190\r\n      TEMP = GSUBE\r\n      CALL SMA1B (KIJ(1),NGRID(J),-1,IF4GG,TEMP)\r\n      K4GGSW = 1\r\n  190 CONTINUE\r\nC\r\nC     ******************************************************************\r\nC\r\n      RETURN\r\n  200 CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULA\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC*****\r\nC     HEAT FORMULATION.\r\nC*****\r\n  250 DO 260 J = 1,4\r\n      CALL SMA1B (KSUM(9*J-8),NGRID(J),NPVT,IFKGG,0.0D0)\r\n  260 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kqdplt.f",
    "content": "      SUBROUTINE KQDPLT\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC     4-6X6 STIFFNESS MATRICES WITH RESPECT TO ONE PIVOT POINT OF A\r\nC     QUADRILATERAL PLATE ELEMENT.\r\nC\r\nC     REF.  FMMS-44   JULY  18, 1967   TRI.BENDING ELEMENT STIFF.\r\nC           FMMS-48   AUGUST 1, 1967   QUAD. BENDING ELEMENT STIFF.\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           KTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC           TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC           SMA1B  - INSERTION ROUTINE\r\nC           GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      INTEGER          SUBSCA,SUBSCB,SUBSCC\r\n      DOUBLE PRECISION KOUT,TITE,DPDUM1,TJTE,DPDUM2,IVECT,D1,JVECT,D2,\r\n     1                 KVECT,A1,KSUM,T,XSUBB,V,XSUBC,VV,YSUBC,PROD9,\r\n     2                 TEMP,TEMP9,U1,H,U2,E,A,TEMP18,REQUIV,R\r\n      DIMENSION        M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3),\r\n     1                 VQ4(3),A(1)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                 G2X211, G2X212, G2X222\r\n      COMMON /SMA1IO/  DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23)\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK,DODET,\r\n     1                 NOGO\r\n      COMMON /SMA1ET/  ECPT(100)\r\n      COMMON /SMA1DP/  KOUT(36),TITE(18),TJTE(18),TEMP18(18),DPDUM1(54),\r\n     1                 IVECT(3),JVECT(3),KVECT(3),D1(3),D2(3),A1(3),\r\n     2                 T(9),V(2),VV(2),H,U1,U2,R(2,4),KSUM(36),\r\n     3                 DPDUM2(3),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,\r\n     4                 E(18),TEMP,SP1(28),SP2(2),KM,NBEGIN,JNOT,NPIVOT,\r\n     5                 THETA,NSUBC,ISING,SUBSCA,SUBSCB,SUBSCC,SINANG,\r\n     6                 COSANG,NPOINT\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)),\r\n     1                 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)),\r\n     2                 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)),\r\n     3                 (VQ4(1),ECPT(27)),(A(1),KOUT(1))\r\n      DATA     M    /  2,4,1, 3,1,2, 4,2,3, 1,3,4 /\r\nC\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.-----TYPE       QUAD.PLT.---------TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I = 1,4\r\n      IF (NPVT .NE. NECPT(I+1)) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\n   20 THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      IF (NPIVOT-2) 30,30,40\r\n   30 JNOT = NPIVOT + 2\r\n      GO TO 50\r\n   40 JNOT = NPIVOT - 2\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES.  (2X4) FOR QUADRILATERAL PLATE...\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n   50 DO 60 I = 1,8\r\n   60 REQUIV(I) = 0.0D0\r\nC\r\nC     SHIFT ECPT UP TO MATCH KTRBSC FOR CERTAIN VARIABLES.\r\nC\r\n      DO 80 I = 6,12\r\n   80 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 90 I = 1,3\r\n      D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I))\r\n      D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I))\r\n   90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I))\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 100 I = 1,3\r\n  100 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT)/2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0\r\nC\r\nC     I-VECTOR =(A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 110 I = 1,3\r\n  110 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 120 I = 1,3\r\n  120 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K CROSS I, AND X3 CALCULATION\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 130 I = 1,3\r\n  130 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140\r\n      TEMP = R(1,2) - (R(1,2) - R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 140\r\n      TEMP = R(2,3)*R(1,4)/R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 150\r\n  140 CALL MESAGE (30,35,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC 140 AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     ******************************************************************\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC\r\nC     ZERO OUT KSUM MATRICES\r\nC\r\n  150 DO 160 I = 1,36\r\n  160 KSUM(I) = 0.0D0\r\n      ELTEMP  = ECPT(30)\r\nC\r\n      DO 220 J = 1,4\r\n      IF (J .EQ. JNOT) GO TO 220\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 170 I = 1,2\r\n      V(I)  = R(I,SUBSCB) - R(I,SUBSCA)\r\n  170 VV(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT(V(1)**2 + V(2)**2)\r\n      U1    = V(1)/XSUBB\r\n      U2    = V(2)/XSUBB\r\n      XSUBC = U1*VV(1) + U2*VV(2)\r\n      YSUBC = U1*VV(2) - U2*VV(1)\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL KTRBSC (1)\r\n      IF (NOGO .EQ. 1) RETURN\r\nC\r\nC                         U\r\nC     NOW HAVE AT HAND  K    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC     MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS...\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC\r\nC     FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE\r\nC     QUADRILATERAL...\r\nC\r\n      DO 180 I = 1,3\r\n      NPOINT = KM + I\r\n      IF (M(NPOINT) .NE. NPIVOT) GO TO 180\r\n      NBEGIN = 27*I - 27\r\n      GO TO 190\r\n  180 CONTINUE\r\nC\r\n  190 DO 210 I = 1,3\r\nC\r\n      NPOINT = NBEGIN + 9*I - 8\r\nC\r\n      CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9)\r\n      CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9)\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\n      DO 200 K = 1,9\r\n      NPOINT = NPOINT + 1\r\n  200 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0\r\n  210 CONTINUE\r\nC\r\n  220 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 230 I = 1,18\r\n  230 E( I) = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\n      IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240\r\n      CALL TRANSD (NECPT(4*NPIVOT+10),T)\r\n      CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10))\r\nC\r\n      GO TO 260\r\n  240 DO 250 K = 1,18\r\n  250 TITE(K) = E(K)\r\nC\r\n  260 DO 320 J = 1,4\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF (NECPT(4*J+10) .EQ. 0) GO TO 270\r\n      CALL TRANSD (NECPT(4*J+10),T)\r\n      CALL GMMATD (T,3,3,1,  E(1),3,3,0, TJTE(1) )\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 290\r\n  270 DO 280 K = 1,18\r\n  280 TJTE(K) = E(K)\r\n  290 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1))\r\n      CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1))\r\n      CALL SMA1B (KOUT(1),NECPT(J+1),-1,IFKGG,0.0D0)\r\n      TEMP = GSUBE\r\n      IF (IOPT4) 300,320,300\r\n  300 IF (GSUBE) 310,320,310\r\n  310 CALL SMA1B (KOUT(1),NECPT(J+1),-1,IF4GG,TEMP)\r\n      K4GGSW = 1\r\nC\r\n  320 CONTINUE\r\n      RETURN\r\nC\r\n  330 CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/krod.f",
    "content": "      SUBROUTINE KROD\r\nC*****\r\nC THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES  K(NPVT,NPVT) AND\r\nC K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J.\r\nC*****\r\nC\r\nC                        E C P T  F O R  T H E  R O D\r\nC\r\nC                                                                CARD\r\nC                                                 TYPE   TABLE   TYPE\r\nC ECPT( 1)ELEMENT ID.                               I     ECT    CROD\r\nC ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A      I     ECT    CROD\r\nC ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B      I     ECT    CROD\r\nC ECPT( 4)MATERIAL ID.                              I     EPT    PROD\r\nC ECPT( 5)AREA  (A)                                 R     EPT    PROD\r\nC ECPT( 6)POLAR MOMENT OF INERTIA (J)               R     EPT    PROD\r\nC ECPT( 7) TORSIONAL STRESS COEFF (C)                R    EPT    PROD\r\nC ECPT( 8) NON-STRUCTRAL MASS (MU)                   R    EPT    PROD\r\nC ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A       I   BGPDT   GRID\r\nC ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B       I   BGPDT\r\nC ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(17) ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL  HEAT\r\nC\r\n      DOUBLE PRECISION\r\n     1                   X                  ,Y\r\n     2,                  Z                  ,XL\r\n     3,                  XN                 ,DSCL\r\n     4,                  DSCR               ,DAMPC\r\n     5,                  D                  ,KE\r\n     6,                  TI                 ,DUMDP\r\nC\r\n      DIMENSION\r\n     1                   IECPT(4)\r\n      COMMON /BLANK/ICOM\r\n      COMMON   /SYSTEM/\r\n     1                   ISYS\r\nC\r\nC SMA1 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA1IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IFGEI              ,IGGEI\r\n     6,                  IFKGG              ,IGKGG\r\n     7,                  IF4GG              ,IG4GG\r\n     8,                  IFGPST             ,IGGPST\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBKGG(7)          ,MCB4GG(7)\r\nC\r\nC SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON   /SMA1BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  I6X64              ,N6X64\r\nC\r\nC SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA1CL/\r\n     1                   IOPT4              ,K4GGSW\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,IDETCK\r\n     7,                  DODET              ,NOGO\r\n      COMMON/SMA1HT/     HEAT\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA1ET/\r\n     1                   ECPT(17)           ,DUMET(83)\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E                  ,G\r\n     2,                  NU                 ,RHO\r\n     3,                  ALPHA              ,TSUBO\r\n     4,                  GSUBE              ,SIGT\r\n     5,                  SIGC               ,SIGS\r\n      COMMON/HMTOUT/     FK\r\nC\r\nC LOCAL DOUBLE PRECISION VARIABLES\r\nC\r\n      COMMON   /SMA1DP/\r\n     1                   X                  ,Y\r\n     2,                  Z                  ,XL\r\n     3,                  XN(3)              ,DSCL\r\n     4,                  DSCR               ,DAMPC\r\n     5,                  D(18)              ,KE(36)\r\n     6,                  TI(9)              ,DUMDP(227)\r\nC\r\nC\r\nC NOTE THAT EQUIVALENCE IS NECESSARY SINCE ECPT IS A MIXED --- INTEGERS\r\nC AND REAL --- ARRAY\r\nC\r\n      EQUIVALENCE\r\n     1                   (IECPT(1),ECPT(1))\r\nC*****\r\nC  BRANCH ON HEAT FORMULATION.\r\nC*****\r\n      IF( HEAT ) GO TO 200\r\n      IF (IECPT(2) .EQ. NPVT) GO TO 10\r\n      IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\n      ITEMP = IECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = ITEMP\r\n      KA  = 13\r\n      KB  =  9\r\n      GO TO 20\r\n   10 KA  =  9\r\n      KB  =  13\r\nC\r\nC AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID POINT.\r\nC SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT.\r\nC NOW COMPUTE THE LENGTH OF THE ROD.\r\nC\r\nC WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC WILL BE\r\nC DOUBLE PRECISION\r\nC\r\n   20 D(1) = ECPT(KA+1)\r\n      D(2) = ECPT(KA+2)\r\n      D(3) = ECPT(KA+3)\r\n      D(4) = ECPT(KB+1)\r\n      D(5) = ECPT(KB+2)\r\n      D(6) = ECPT(KB+3)\r\n      X    = D(1) - D(4)\r\n      Y    = D(2) - D(5)\r\n      Z    = D(3) - D(6)\r\n      XL = DSQRT (X**2 + Y**2 + Z**2)\r\n      IF (XL.NE.0.0D0) GO TO 30\r\n      CALL MESAGE(30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULA\r\nC\r\n      NOGO=1\r\n      RETURN\r\n   30 CONTINUE\r\nC\r\nC CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES.\r\nC\r\n      XN(1) = X / XL\r\n      XN(2) = Y / XL\r\n      XN(3) = Z / XL\r\nC\r\nC LOCATE E = YOUNG-S MODULUS, G = SHEAR MODULUS AND DAMPC = DAMPING\r\nC CONSTANT IN THE MAT1 TABLE AND COMPUTE DSCL = A * E / XL AND\r\nC DSCR = J * G / XL.  A IS ECPT(5) AND J IS ECPT(6)\r\nC\r\n      MATIDC = IECPT(4)\r\n      MATFLG = 1\r\n      ELTEMP = ECPT(17)\r\n      CALL MAT (IECPT(1))\r\nC\r\nC WE STORE ECPT(5), ECPT(6), E AND G IN DOUBLE PRECISION LOCATIONS SO\r\nC THAT ALL ARITHMETIC WILL BE DOUBLE PRECISION\r\nC\r\n      D(1) = ECPT(5)\r\n      D(2) = E\r\n      D(3) = ECPT(6)\r\n      D(4) = G\r\n      DSCL = D(1) * D(2) / XL\r\n      DSCR = D(3) * D(4) / XL\r\n      DAMPC  = G SUB E\r\nC\r\nC SET UP THE -N- MATRIX AND STORE AT D(1)\r\nC\r\n      D(1) = XN(1) * XN(1)\r\n      D(2) = XN(1) * XN(2)\r\n      D(3) = XN(1) * XN(3)\r\n      D(4) = D(2)\r\n      D(5) = XN(2) * XN(2)\r\n      D(6) = XN(2) * XN(3)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = XN(3) * XN(3)\r\nC\r\nC ZERO OUT THE 6X6 WHICH WILL BE USED FOR STORAGE OF KGG(NPVT,NONPVT),\r\nC NONPVT = NPVT,J\r\nC KGG(NPVT,NONPVT), NONPVT = NPVT,J\r\nC\r\n      DO 50 I = 1,36\r\n   50 KE(I) = 0.0D0\r\n      NONPVT = 2\r\n      K2 = 1\r\nC\r\nC IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 70\r\nC\r\n      IF (IECPT(KA) .EQ. 0) GO TO 70\r\n      CALL TRANSD (ECPT(KA),TI(1))\r\n      CALL GMMATD (TI(1),3,3,1, D(1),3,3,0, D(10))\r\n      CALL GMMATD (D(10),3,3,0, TI(1),3,3,0, D(1))\r\nC\r\nC AT THIS POINT D(1) CONTAINS THE MATRIX PRODUCT TAT * N * TA\r\nC AND D(10) CONTAINS THE MATRIX PRODUCT TAT * N.\r\nC\r\n      ASSIGN 100 TO IRETRN\r\n      GO TO 80\r\n   70 ASSIGN 90 TO IRETRN\r\nC\r\nC FILL THE KE MATRIX\r\nC\r\n   80 KE( 1) = DSCL * D(K2  )\r\n      KE( 2) = DSCL * D(K2+1)\r\n      KE( 3) = DSCL * D(K2+2)\r\n      KE( 7) = DSCL * D(K2+3)\r\n      KE( 8) = DSCL * D(K2+4)\r\n      KE( 9) = DSCL * D(K2+5)\r\n      KE(13) = DSCL * D(K2+6)\r\n      KE(14) = DSCL * D(K2+7)\r\n      KE(15) = DSCL * D(K2+8)\r\n      KE(22) = DSCR * D(K2  )\r\n      KE(23) = DSCR * D(K2+1)\r\n      KE(24) = DSCR * D(K2+2)\r\n      KE(28) = DSCR * D(K2+3)\r\n      KE(29) = DSCR * D(K2+4)\r\n      KE(30) = DSCR * D(K2+5)\r\n      KE(34) = DSCR * D(K2+6)\r\n      KE(35) = DSCR * D(K2+7)\r\n      KE(36) = DSCR * D(K2+8)\r\n      CALL SMA1B (KE,ECPT(NONPVT),-1,IFKGG,0.0D0)\r\n      IF (IOPT4 .EQ. 0  .OR.  G SUB E .EQ. 0.0) GO TO 85\r\n      K4GGSW = 1\r\n      CALL SMA1B (KE,ECPT(NONPVT),-1,IF4GG,DAMPC)\r\nC\r\nC  RETURN  FROM  FILL  CODE W/ IRETRN = 90 IMPLIES G.P. A WAS IN BASIC\r\nC    .      .     .      .      .     =100 IMPLIES G.P. A WAS NOT BASIC\r\nC    .      .     .      .      .     =140 IMPLIES THE K(NPVT,NONPVT)\r\nC                                      HAS BEEN COMPUTED AND INSERTED\r\nC                                      AND HENCE WE ARE FINISHED.\r\nC\r\n   85 GO TO IRETRN , (90,100,140)\r\n   90 K1 = 1\r\n      K2 = 10\r\n      GO TO 110\r\n  100 K1 = 10\r\n      K2 = 1\r\n  110 NONPVT = 3\r\nC\r\nC IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 120\r\nC\r\n      IF (IECPT(KB) .EQ. 0) GO TO 120\r\n      CALL TRANSD (ECPT(KB),TI(1))\r\nC\r\nC RECALL THAT D(K1) CONTAINS TAT * N.\r\nC\r\n      CALL GMMATD (D(K1),3,3,0, TI(1),3,3,0, D(K2))\r\nC\r\nC AT THIS POINT D(K2) CONTAINS TAT * N * TB.\r\nC\r\n      GO TO 130\r\n  120 K2 = K1\r\n  130 ASSIGN 140 TO IRETRN\r\nC\r\nC SET CONSTANTS NEGATIVE TO PROPERLY COMPUTE K(NPVT,NONPVT)\r\nC\r\n      DSCR = -DSCR\r\n      DSCL = -DSCL\r\n      GO TO 80\r\nC\r\nC A TRANSFER TO STATEMENT NO. 140 IMPLIES KGG AND/OR K4GG CALCULATIONS\r\nC HAVE BEEN COMPLETED.\r\nC\r\n  140 RETURN\r\nC*****\r\nC  HEAT FORMULATION.  FIRST COMPUTE LENGTH OF ELEMENT.\r\nC*****\r\n  200 X = ECPT(14) - ECPT(10)\r\n      Y = ECPT(15) - ECPT(11)\r\n      Z = ECPT(16) - ECPT(12)\r\n      XL= DSQRT(X**2 + Y**2 + Z**2)\r\n      IF( XL ) 300,300,400\r\n  300 CALL MESAGE( -30, 26, IECPT(1) )\r\nC\r\nC     GET MATERIAL PROPERTY -K- FROM HMAT ROUTINE\r\nC\r\n  400 MATFLG = 1\r\n      MATIDC = IECPT(4)\r\n      ELTEMP = ECPT(17)\r\n      CALL HMAT( IECPT )\r\nC\r\n      XL = DBLE(FK) * DBLE(ECPT(5)) / XL\r\nC\r\n      IF( NPVT .EQ. IECPT(3) ) XL = -XL\r\n      DO 700 I = 1,2\r\n      CALL SMA1B( XL, IECPT(I+1), NPVT, IFKGG, 0.0D0 )\r\n      XL = -XL\r\n  700 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/krshft.f",
    "content": "      FUNCTION KRSHFT (IWORD,N)\r\nC\r\nC     CHARACTER FUNCTION KRSHFT AND KLSHFT PERFORM LEFT AND RIGHT\r\nC     SHIFTS, BY N CHARACTERS (BYTES).\r\nC     EMPTY BYTES ARE ZERO FILLED.\r\nC\r\nC     NORMALLY, KRSHFT AND KLSHFT WORK ALMOST LIKE RSHIFT AND LSHFIT\r\nC     RESPECTIVELY, EXCEPT THEY MOVE DATA BY BYTE COUNT, NOT BY BITS.\r\nC     HOWEVER, IF THE MACHINE STORES THE BCD WORD DATA IN REVERSE ORDER\r\nC     (SUCH AS VAX AND SILICON GRAPHICS), KRSHFT IS EQUIVALENCED TO\r\nC     LSHFIT, AND KLSFHT TO RSHIFT.\r\nC\r\n      EXTERNAL        LSHIFT,   RSHIFT\r\n      INTEGER         IWORD(1), RSHIFT\r\n      COMMON /MACHIN/ MAC(3),   LQRO\r\n      COMMON /SYSTEM/ DUMMY(38),NBPC\r\nC\r\n      IF (MOD(LQRO,10) .EQ. 1) GO TO 10\r\n      KRSHFT = RSHIFT(IWORD(1),N*NBPC)\r\n      RETURN\r\n   10 KRSHFT = LSHIFT(IWORD(1),N*NBPC)\r\n      RETURN\r\nC\r\n      ENTRY KLSHFT (IWORD,N)\r\nC     ======================\r\nC\r\n      IF (MOD(LQRO,10) .EQ. 1) GO TO 20\r\n      KLSHFT = LSHIFT(IWORD(1),N*NBPC)\r\n      RETURN\r\n   20 KLSHFT = RSHIFT(IWORD(1),N*NBPC)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/kslot.f",
    "content": "      SUBROUTINE KSLOT (ITYPE)\r\nC\r\nC     THIS ROUTINE CALCULATES THE STIFFNESS MATRIX TERMS FOR THE\r\nC     CSLOT3 AND CSLOT4 TWO DIMENSIONAL LAPLACE ELEMENTS\r\nC\r\nC     IOPT-  CSLOT3 = 0,  CSLOT4 = 1\r\nC\r\nC     THE ECPT DATA FOR THESE ELEMENTS ARE\r\nC\r\nC     FIELD   CSLOT3                CSLOT4\r\nC       1       ID                  ID\r\nC       2       SIL1                SIL1\r\nC       3       SIL2                SIL2\r\nC       4       SIL3                SIL3\r\nC       5       RHO                 SIL4\r\nC       6       BULK                RHO\r\nC       7       M                   BULK\r\nC       8       N                   M\r\nC       9       CID1                N\r\nC       10      R1                  CID1\r\nC      11       Z1                  R1\r\nC      12       W1                  Z1\r\nC      13       CID2                W1\r\nC      14       R2                  CID2\r\nC      15       Z2                  R2\r\nC      16       W2                  Z2\r\nC      17       CID3                W2\r\nC      18       R3                  CID3\r\nC      19       Z3                  R3\r\nC      20       W3                  Z3\r\nC      21       TEMP                W3\r\nC      22                           CID4\r\nC      23                           R4\r\nC      24                           Z4\r\nC      25                           W4\r\nC      26                           TEMP\r\nC\r\n      LOGICAL           NOGO\r\n      INTEGER           NECPT(100) ,OUT\r\n      DOUBLE PRECISION  COEF       ,FIR        ,FIZ        ,\r\n     1                  R          ,Z          ,RKI        ,\r\n     2                  A2         ,KIJ\r\n      CHARACTER         UFM*23\r\n      COMMON  /XMSSG /  UFM\r\n      COMMON  /SYSTEM/  SYSBUF     ,OUT        ,NOGO\r\n      COMMON  /SMA1CL/  IOPT4      ,K4GGSW     ,NPVT\r\n      COMMON  /SMA1ET/  ECPT(100)\r\n      COMMON  /SMA1IO/  DUM1(10)   ,IFILE\r\n      COMMON  /SMA1DP/  COEF       ,FIR(3)     ,FIZ(3)      ,\r\n     1                  R(3)       ,Z(3)       ,RKI         ,\r\n     2                  A2         ,KIJ        ,NNEG        ,\r\n     3                  IP         ,NPTJ       ,IRET        ,\r\n     4                  LRI        ,LRJ        ,LRK         ,\r\n     5                  IPVT\r\n      EQUIVALENCE       (ECPT(1),NECPT(1))\r\nC\r\n      IF (ITYPE .GT. 0) GO TO 50\r\n      IF (ECPT(5).EQ.0.0 .OR. NECPT(7).EQ.0) RETURN\r\n      K = -1\r\n   10 K = K + 1\r\n      IF (2*NECPT(8)-K*NECPT(7)) 30,20,10\r\n   20 NECPT(7) = NECPT(7)*2\r\n   30 ECPT(7)  = FLOAT(NECPT(7))/2.0\r\n      DO 40 I = 1,20\r\n   40 ECPT(I+50) =  ECPT(I)\r\n      IRET = 4\r\n      GO TO 170\r\nC\r\nC     THE CSLOT4 ELEMENT IS CHECKED FOR VALIDITY AND THE DATA ARE\r\nC     REARRANGED TO CONFORM TO THE CSLOT3 FORMAT\r\nC\r\n   50 IF (ECPT(6).EQ.0.0 .OR. NECPT(8).EQ.0) RETURN\r\n      K = -1\r\n   60 K = K + 1\r\n      IF (2*NECPT(9)-K*NECPT(8)) 80,70,60\r\n   70 NECPT(8) = NECPT(8)*2\r\n   80 ECPT(8)  = FLOAT(NECPT(8))/2.0\r\nC\r\n      NNEG = 0\r\n      IP   = 0\r\n      DO 110 I = 1,4\r\n      IF (NPVT .EQ. NECPT(I+1)) IP = IP + 1\r\n      DO 90 J = 1,3\r\n      NJ   = I + J - 1\r\n      IF (NJ .GT.4) NJ = NJ - 4\r\n      NPTJ = 4*(NJ-1) + 11\r\n      R(J) = ECPT(NPTJ  )\r\n   90 Z(J) = ECPT(NPTJ+1)\r\n      COEF = (R(2)-R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1))\r\n      IF (COEF) 100,220,110\r\n  100 NNEG = NNEG + 1\r\n  110 CONTINUE\r\n      IF (NNEG.EQ.1 .OR. NNEG.EQ.3) GO TO 220\r\n      IF (IP .NE. 1) GO TO 220\r\nC\r\n      DO 120 I = 1,4\r\n  120 ECPT(I+50) = ECPT(I)\r\n      DO 130 I = 7,21\r\n  130 ECPT(I+49) = ECPT(I)\r\n      ECPT(55) = ECPT(6)*2.0\r\n      IRET = 1\r\n      GO TO 170\r\n  140 ECPT(54) = ECPT( 5)\r\n      ECPT(68) = ECPT(23)\r\n      ECPT(69) = ECPT(24)\r\n      ECPT(70) = ECPT(25)\r\n      IRET = 2\r\n      GO TO 170\r\n  150 ECPT(53) = ECPT( 4)\r\n      ECPT(64) = ECPT(19)\r\n      ECPT(65) = ECPT(20)\r\n      ECPT(66) = ECPT(21)\r\n      IRET = 3\r\n      GO TO 170\r\n  160 ECPT(52) = ECPT( 3)\r\n      ECPT(60) = ECPT(15)\r\n      ECPT(61) = ECPT(16)\r\n      ECPT(62) = ECPT(17)\r\n      IRET = 4\r\nC\r\nC     EACH CSLOT3 ELEMENT OR SUBELEMENT IS FORMULATED AS FOLLOWS\r\nC\r\n  170 IF (NECPT(52).NE.NPVT .AND. NECPT(53).NE.NPVT .AND.\r\n     1    NECPT(54).NE.NPVT) GO TO 200\r\n      COEF = 0.0\r\n      A2   = 0.0\r\n      DO 180 I = 1,3\r\n      J    = I + 1\r\n      IF (J .GT. 3) J = J - 3\r\n      K    = J + 1\r\n      IF (K .GT. 3) K = K - 3\r\n      LRI  = 4*I + 56\r\n      LRJ  = 4*J + 56\r\n      LRK  = 4*K + 56\r\n      COEF = COEF + ECPT(LRI+2)\r\n      FIR(I) = ECPT(LRK  ) - ECPT(LRJ  )\r\n      FIZ(I) = ECPT(LRJ+1) - ECPT(LRK+1)\r\n      A2   = A2 + ECPT(LRI)*FIZ(I)\r\n      IF (NECPT(I+51) .EQ. NPVT) IPVT = I\r\n  180 CONTINUE\r\n      IF (A2.EQ. 0.0D0) GO TO 220\r\n      COEF = COEF*ECPT(57)/(6.0D0*ECPT(55)*DABS(A2))\r\n      I    = NPVT\r\n      DO 190 J = 1,3\r\n      K    = NECPT(J+51)\r\n      KIJ  = COEF*(FIR(IPVT)*FIR(J) + FIZ(IPVT)*FIZ(J))\r\n      CALL SMA1B( KIJ,K,I,IFILE,0.0D0)\r\n  190 CONTINUE\r\n  200 GO TO (140,150,160,210), IRET\r\n  210 RETURN\r\nC\r\n  220 WRITE  (OUT,230) UFM,NECPT(1)\r\n  230 FORMAT (A23,' 2160, BAD GEOMETRY OR ZERO COEFFICIENT FOR SLOT ',\r\n     1       'ELEMENT NUMBER',I18)\r\n      NOGO =.TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ksolid.f",
    "content": "      SUBROUTINE KSOLID (ITYPE)\r\nC\r\nC     IOPT = 1 IMPLIES WEDGE - 3 TETRAHEDRONS\r\nC     IOPT = 2 IMPLIES HEXA(6-SIDED-SOLID) 5  TETRAHEDRONS\r\nC     IOPT = 3 IMPLIES HEXA(6-SIDED-SOLID) 10 TETRAHEDRONS\r\nC\r\nC     ECPT        TETRA          WEDGE          HEXA\r\nC     ------------------------------------------------\r\nC     ECPT( 1) =  EL ID          EL ID          EL ID\r\nC     ECPT( 2) =  MAT-ID         MAT-ID         MAT-ID\r\nC     ECPT( 3) =  GRID-1         GRID-1         GRID-1\r\nC     ECPT( 4) =  GRID-2         GRID-2         GRID-2\r\nC     ECPT( 5) =  GRID-3         GRID-3         GRID-3\r\nC     ECPT( 6) =  GRID-4         GRID-4         GRID-4\r\nC     ECPT( 7) =  CSID-1         GRID-5         GRID-5\r\nC     ECPT( 8) =  X1             GRID-6         GRID-6\r\nC     ECPT( 9) =  Y1             CSID-1         GRID-7\r\nC     ECPT(10) =  Z1             X1             GRID-8\r\nC     ECPT(11) =  CSID-2         Y1             CSID-1\r\nC     ECPT(12) =  X2             Z1             X1\r\nC     ECPT(13) =  Y2             CSID-2         Y1\r\nC     ECPT(14) =  Z2             X2             Z1\r\nC     ECPT(15) =  CSID-3         Y2             CSID-2\r\nC     ECPT(16) =  X3             Z2             X2\r\nC     ECPT(17) =  Y3             CSID-3         Y2\r\nC     ECPT(18) =  Z3             X3             Z2\r\nC     ECPT(19) =  CSID-4         Y3             CSID-3\r\nC     ECPT(20) =  X4             Z3             X3\r\nC     ECPT(21) =  Y4             CSID-4         Y3\r\nC     ECPT(22) =  Z4             X4             Z3\r\nC     ECPT(23) =  EL-TEM         Y4             CSID-4\r\nC     ECPT(24)                   Z4             X4\r\nC     ECPT(25)                   CSID-5         Y4\r\nC     ECPT(26)                   X5             Z4\r\nC     ECPT(27)                   Y5             CSID-5\r\nC     ECPT(28)                   Z5             X5\r\nC     ECPT(29)                   CSID-6         Y5\r\nC     ECPT(30)                   X6             Z5\r\nC     ECPT(31)                   Y6             CSID-6\r\nC     ECPT(32)                   Z6             X6\r\nC     ECPT(33)                   ELTEMP         Y6\r\nC     ECPT(34)                                  Z6\r\nC     ECPT(35)                                  CSID-7\r\nC     ECPT(36)                                  X7\r\nC     ECPT(37)                                  Y7\r\nC     ECPT(38)\r\nC     ECPT(39)                                  CSID-8\r\nC     ECPT(40)                                  X8\r\nC     ECPT(41)                                  Y8\r\nC     ECPT(42)                                  Z8\r\nC     ECPT(43)                                  EL-TEMP\r\nC\r\nC     MAP FOR WEDGE  M(I,J)  I = TETRAHEDRON, J = GRID POINT\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         NECPT(52),OUT,M(22,4)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,OUT,NOGO\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      COMMON /SMA1CL/ IOPT4,K4GGSW,NPVT,ISKP(19),NOGOO\r\n      COMMON /SMA1DP/ R12(3),R13(3),R(3),RXR(3),R24(3)\r\n      EQUIVALENCE     (NECPT(1),ECPT(1))\r\n      DATA    M( 1,1),M( 1,2),M( 1,3),M( 1,4) / 1   ,2   ,3   ,4 /\r\n      DATA    M( 2,1),M( 2,2),M( 2,3),M( 2,4) / 1   ,2   ,3   ,5 /\r\n      DATA    M( 3,1),M( 3,2),M( 3,3),M( 3,4) / 1   ,2   ,3   ,6 /\r\n      DATA    M( 4,1),M( 4,2),M( 4,3),M( 4,4) / 1   ,4   ,5   ,6 /\r\n      DATA    M( 5,1),M( 5,2),M( 5,3),M( 5,4) / 2   ,4   ,5   ,6 /\r\n      DATA    M( 6,1),M( 6,2),M( 6,3),M( 6,4) / 3   ,4   ,5   ,6 /\r\n      DATA    M( 7,1),M( 7,2),M( 7,3),M( 7,4) / 2   ,1   ,4   ,6 /\r\n      DATA    M( 8,1),M( 8,2),M( 8,3),M( 8,4) / 2   ,3   ,4   ,6 /\r\n      DATA    M( 9,1),M( 9,2),M( 9,3),M( 9,4) / 1   ,3   ,4   ,5 /\r\n      DATA    M(10,1),M(10,2),M(10,3),M(10,4) / 2   ,3   ,4   ,5 /\r\n      DATA    M(11,1),M(11,2),M(11,3),M(11,4) / 3   ,1   ,5   ,6 /\r\n      DATA    M(12,1),M(12,2),M(12,3),M(12,4) / 2   ,1   ,5   ,6 /\r\nC\r\nC     MAP FOR HEXA-SOLID (5 OR 10 TETRAHEDRONS)\r\nC\r\n      DATA    M(13,1),M(13,2),M(13,3),M(13,4) / 1   ,2   ,3   ,6 /\r\n      DATA    M(14,1),M(14,2),M(14,3),M(14,4) / 1   ,3   ,4   ,8 /\r\n      DATA    M(15,1),M(15,2),M(15,3),M(15,4) / 1   ,3   ,8   ,6 /\r\n      DATA    M(16,1),M(16,2),M(16,3),M(16,4) / 1   ,5   ,6   ,8 /\r\n      DATA    M(17,1),M(17,2),M(17,3),M(17,4) / 3   ,6   ,7   ,8 /\r\n      DATA    M(18,1),M(18,2),M(18,3),M(18,4) / 2   ,3   ,4   ,7 /\r\n      DATA    M(19,1),M(19,2),M(19,3),M(19,4) / 1   ,2   ,4   ,5 /\r\n      DATA    M(20,1),M(20,2),M(20,3),M(20,4) / 2   ,4   ,5   ,7 /\r\n      DATA    M(21,1),M(21,2),M(21,3),M(21,4) / 2   ,5   ,6   ,7 /\r\n      DATA    M(22,1),M(22,2),M(22,3),M(22,4) / 4   ,5   ,7   ,8 /\r\n      DATA    IDELEM / 0 /\r\nC\r\nC     BRANCH ON ELEMENT TYPE\r\nC\r\n      IGFLAG = 0\r\n      GO TO (1000,2000,3000), ITYPE\r\nC\r\nC     COME HERE FOR WEDGE COMPUTATIONS.\r\nC     KTETRA IS CALLED 3 TIMES BASED ON WEDGE MAPPING MATRIX.\r\nC\r\n 1000 ITET   = 1\r\n      NTET   = 12\r\n      ITEMP  = 33\r\n      NGRIDS = 6\r\n      IOPT   = 0\r\nC\r\nC     BASE CROSS PRODUCT\r\nC\r\n      IF (NECPT(1) .EQ. IDELEM) GO TO 1951\r\n      IDELEM = NECPT(1)\r\n      IGFLAG = 1\r\n      R12(1) = ECPT(14) - ECPT(10)\r\n      R12(2) = ECPT(15) - ECPT(11)\r\n      R12(3) = ECPT(16) - ECPT(12)\r\n      R13(1) = ECPT(18) - ECPT(10)\r\n      R13(2) = ECPT(19) - ECPT(11)\r\n      R13(3) = ECPT(20) - ECPT(12)\r\n      CALL SAXB (R12,R13,RXR)\r\nC\r\nC     IN THE ABOVE, THE WEDGE IS NUMBERED 1,2,3 COUNTERCLOCKWISE AT THE\r\nC     BASE AND 4,5,6 COUNTER CLOCKWISE AT THE TOP. (LOOKING DOWN ON WED)\r\nC\r\n      R12(1) = ECPT(26) - ECPT(22)\r\n      R12(2) = ECPT(27) - ECPT(23)\r\n      R12(3) = ECPT(28) - ECPT(24)\r\n      R13(1) = ECPT(30) - ECPT(22)\r\n      R13(2) = ECPT(31) - ECPT(23)\r\n      R13(3) = ECPT(32) - ECPT(24)\r\n      CALL SAXB (R12,R13,R)\r\nC\r\n      IF (SADOTB(R,RXR)) 1800,1800,1950\r\nC\r\nC     ERROR CONDITION - BAD GEOMETRY\r\nC\r\n 1800 WRITE  (OUT,1900) UFM,NECPT(1)\r\n 1900 FORMAT (A23,' 4001, ELEMENT',I10,' HAS BAD GEOMETRY.')\r\n      NOGOO = 1\r\n      RETURN\r\nC\r\nC     PLANER CHECKS FOR WEDGE\r\nC\r\n 1950 CALL KPLTST (ECPT(10),ECPT(14),ECPT(26),ECPT(22))\r\n      CALL KPLTST (ECPT(10),ECPT(22),ECPT(30),ECPT(18))\r\n      CALL KPLTST (ECPT(14),ECPT(18),ECPT(30),ECPT(26))\r\n 1951 IF (NOGOO .EQ. 1) RETURN\r\n      GO TO 6000\r\nC\r\nC     COME HERE FOR 5-TETRAHEDRON 6-SIDED SOLID\r\nC\r\n 2000 ITET   = 13\r\n      NTET   = 17\r\n      ITEMP  = 43\r\n      NGRIDS = 8\r\n      IOPT   = 0\r\n      GO TO 3500\r\nC\r\nC     COME HERE FOR 10-TETRAHEDRON 6-SIDED SOLID\r\nC\r\n 3000 ITET   = 13\r\n      NTET   = 22\r\n      ITEMP  = 43\r\n      NGRIDS = 8\r\n      IOPT   = 1\r\nC\r\nC     CHECK GEOMETRY OF 6-SIDED SOLID AT THIS POINT\r\nC\r\n 3500 IF (NECPT(1) .EQ. IDELEM) GO TO 2951\r\n      IDELEM = NECPT(1)\r\n      IGFLAG = 1\r\n      R13(1) = ECPT(20) - ECPT(12)\r\n      R13(2) = ECPT(21) - ECPT(13)\r\n      R13(3) = ECPT(22) - ECPT(14)\r\n      R24(1) = ECPT(24) - ECPT(16)\r\n      R24(2) = ECPT(25) - ECPT(17)\r\n      R24(3) = ECPT(26) - ECPT(18)\r\n      CALL SAXB (R13,R24,RXR)\r\nC\r\n      R12(1) = ECPT(36) - ECPT(28)\r\n      R12(2) = ECPT(37) - ECPT(29)\r\n      R12(3) = ECPT(38) - ECPT(30)\r\n      R13(1) = ECPT(40) - ECPT(32)\r\n      R13(2) = ECPT(41) - ECPT(33)\r\n      R13(3) = ECPT(42) - ECPT(34)\r\n      CALL SAXB (R12,R13,R)\r\nC\r\n      IF (SADOTB(RXR,R)) 1800,1800,2950\r\nC\r\nC     PLANER CHECKS FOR HEXA-5 OR HEXA-10\r\nC\r\n 2950 CALL KPLTST (ECPT(12),ECPT(16),ECPT(20),ECPT(24))\r\n      CALL KPLTST (ECPT(12),ECPT(16),ECPT(32),ECPT(28))\r\n      CALL KPLTST (ECPT(16),ECPT(20),ECPT(36),ECPT(32))\r\n      CALL KPLTST (ECPT(20),ECPT(24),ECPT(40),ECPT(36))\r\n      CALL KPLTST (ECPT(24),ECPT(12),ECPT(28),ECPT(40))\r\n      CALL KPLTST (ECPT(28),ECPT(32),ECPT(36),ECPT(40))\r\n 2951 IF (NOGOO .EQ. 1) RETURN\r\n      GO TO 6000\r\nC\r\nC     AT THIS POINT ALL CHECKS HAVE BEEN MADE. NOW FORM THE ECPT FOR\r\nC     EACH TETRAHEDRON AND CALL KTETRA(IOPT). IOPT = 1 IMPLIES TO COMPUT\r\nC     HALF STIFFNESS. IOPT = 0 IMPLIES COMPUTE FULL STIFFNESS.\r\nC\r\n 6000 DO 6010 J = 1,50\r\n      ECPT(J+50) = ECPT(J)\r\n 6010 CONTINUE\r\nC\r\nC     FILL MAT ID AND EL TEMP\r\nC\r\n      NECPT( 2) = NECPT(52)\r\n      NECPT(23) = NECPT(ITEMP+50)\r\n      JTYPE     = ITYPE\r\n      DO 8000 I = ITET,NTET\r\n      IF (I .EQ. NTET) JTYPE = -ITYPE\r\n      IF (ITYPE .EQ. 1) IOPT = I + 10\r\nC\r\nC     FILL IN GRID SIL-S AND COORDINATE SETS\r\nC\r\n      DO 7030 J = 1,4\r\n      KPOINT = M(I,J)\r\n      NECPT(J+2) = NECPT(KPOINT+52)\r\n      KPOINT = 4*KPOINT + NGRIDS - 3\r\n      JPOINT = 4*J + 2\r\n      NECPT(JPOINT+1) = NECPT(KPOINT+52)\r\n      NECPT(JPOINT+2) = NECPT(KPOINT+53)\r\n      NECPT(JPOINT+3) = NECPT(KPOINT+54)\r\n      NECPT(JPOINT+4) = NECPT(KPOINT+55)\r\n 7030 CONTINUE\r\nC\r\nC     BUMP IOPT IF GEOMETRY TESTS ARE TO BE MADE\r\nC\r\n      IF (IGFLAG .EQ. 1) IOPT = IOPT + 100\r\n      CALL KTETRA (IOPT,JTYPE)\r\n 8000 CONTINUE\r\nC\r\nC     ALL THROUGH\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktetra.f",
    "content": "      SUBROUTINE KTETRA (IOPT,JTYPE)\r\nC\r\nC     ELEMENT STIFFNESS MATRIX GENERATOR FOR THE TETRAHEDRON SOLID\r\nC     ELEMENT\r\nC\r\nC     LOOKING DOWN ON THIS ELEMENT, GRIDS 1,2,3 ARE THE BASE AND MUST BE\r\nC     LABELED COUNTERCLOCKWISE. GRID 4 MUST BE ABOVE THE PLANE FORMED BY\r\nC     GRIDS 1,2,3 AND CLOSEST TO THIS OBSERVER.\r\nC\r\nC     ECPT FOR THE TETRAHEDRON SOLID ELEMENT\r\nC     --------------------------------------\r\nC     ECPT( 1) = ELEMENT  ID\r\nC     ECPT( 2) = MATERIAL ID (MAT1 MATERIAL TYPE)\r\nC     ECPT( 3) = SIL GRID POINT 1\r\nC     ECPT( 4) = SIL GRID POINT 2\r\nC     ECPT( 5) = SIL GRID POINT 3\r\nC     ECPT( 6) = SIL GRID POINT 4\r\nC     ECPT( 7) = COORD SYS ID GRID PT 1\r\nC     ECPT( 8) = X1\r\nC     ECPT( 9) = Y1\r\nC     ECPT(10) = Z1\r\nC     ECPT(11) = COORD SYS ID GRID PT 2\r\nC     ECPT(12) = X2\r\nC     ECPT(13) = Y2\r\nC     ECPT(14) = Z2\r\nC     ECPT(15) = COORD SYS ID GRID PT 3\r\nC     ECPT(16) = X3\r\nC     ECPT(17) = Y3\r\nC     ECPT(18) = Z3\r\nC     ECPT(19) = COORD SYS ID GRID PT 4\r\nC     ECPT(20) = X4\r\nC     ECPT(21) = Y4\r\nC     ECPT(22) = Z4\r\nC     ECPT(23) = ELEMENT TEMPERATURE\r\nC\r\nC     JTYPE = 1 FOR WEDGE, = 2 FOR HEXA1, = 3 FOR HEXA2, AND = 0 TETRA\r\nC     IF JTYPE IS NEGATIVE, THIS IS LAST CALL FROM KSOLID\r\nC\r\nC\r\n      LOGICAL         NOGO    ,HEAT      ,HYDRO\r\n      INTEGER         OUT     ,NECPT(4)  ,DIREC    ,EL(2,4)  ,SCR4\r\n      REAL            NU      ,MATBUF\r\n      DOUBLE PRECISION C      ,G         ,H        ,TEMP     ,HDETER  ,\r\n     1                TEMP1   ,T         ,CT       ,KIJ      ,GCT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / SKIP(16) ,VOLUME   ,SURFAC\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      COMMON /SMA1DP/ C(72)    ,G(36)    ,H(16)    ,TEMP(12) ,T(9)    ,\r\n     1                CT(18)   ,GCT(18)  ,KIJ(36)  ,HDETER   ,TEMP1   ,\r\n     2                NGPT     ,DIREC    ,KOUNT    ,TVOL\r\n      COMMON /SMA1HT/ HEAT\r\n      COMMON /HYDROE/ HYDRO\r\n      COMMON /MATIN / MATID    ,INFLAG   ,ELTEMP\r\n      COMMON /MATOUT/ E        ,GG       ,NU       ,RHO      ,ALPHA   ,\r\n     1                TSUB0    ,GSUBE    ,SIGT     ,SIGC     ,SIGS\r\n      COMMON /HMTOUT/ MATBUF(7)\r\n      COMMON /SMA1CL/ IOPT4    ,K4GGSW   ,NPVT     ,ISKP(17) ,NOGOO\r\n      COMMON /SMA1IO/ DUM1(10) ,IFKGG    ,DUM2(1)  ,IF4GG    ,DUM3(23)\r\n      COMMON /SYSTEM/ SYSBUF   ,OUT      ,NOGO\r\n      EQUIVALENCE     (NECPT(1),ECPT(1))\r\n      DATA    IDFLAG/ 0 /,    SCR4    /   304 /\r\n      DATA    EL    / 4HCWED, 4HGE  , 4HCHEX, 4HA1  , 4HCHEX, 4HA2  ,\r\n     1                4HCTET, 4HRA    /\r\nC\r\nC     FILL THE 4 X 4 H MATRIX.\r\nC\r\n      IF (NECPT(1) .EQ. IDFLAG) GO TO 100\r\n      IDFLAG = NECPT(1)\r\n      DIREC  = 0\r\n      KOUNT  = 0\r\n      TVOL   = 0.0\r\n      NGPT   = 99\r\n      IF (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0) GO TO 100\r\n      NGPT   = 8\r\n      IF (IABS(JTYPE) .EQ. 1) NGPT = 6\r\n      IF (JTYPE .EQ. 0) NGPT  = 4\r\n  100 IF (JTYPE .LE. 0) KOUNT = KOUNT + 1\r\nC\r\nC     RETURN IF SUB-TETRA DOES NOT CONTRIBUTE TO PIVOT STIFFNESS AND NO\r\nC     GEOMETRY TESTS ARE BEING MADE ON IT.\r\nC\r\n      IF (IOPT .GE. 100) GO TO 140\r\n      DO 131 I = 3,6\r\n      IF (NPVT .EQ. NECPT(I)) GO TO 140\r\n  131 CONTINUE\r\n      IF (KOUNT.EQ.NGPT .AND. JTYPE.NE.0) GO TO 910\r\n      RETURN\r\nC\r\n  140 H( 1) = 1.0D0\r\n      H( 2) = ECPT( 8)\r\n      H( 3) = ECPT( 9)\r\n      H( 4) = ECPT(10)\r\n      H( 5) = 1.0D0\r\n      H( 6) = ECPT(12)\r\n      H( 7) = ECPT(13)\r\n      H( 8) = ECPT(14)\r\n      H( 9) = 1.0D0\r\n      H(10) = ECPT(16)\r\n      H(11) = ECPT(17)\r\n      H(12) = ECPT(18)\r\n      H(13) = 1.0D0\r\n      H(14) = ECPT(20)\r\n      H(15) = ECPT(21)\r\n      H(16) = ECPT(22)\r\nC\r\nC     INVERT H AND GET THE DETERMINANT\r\nC\r\n      ISING = 0\r\n      CALL INVERD (4,H(1),4,DUM,0,HDETER,ISING,TEMP(1))\r\nC\r\nC     IF THE DETERMINANT IS .LE. 0 THE TETRAHEDRON HAS BAD OR REVERSE\r\nC     GEOMETRY WHICH IS AN ERROR CONDITION.\r\nC\r\n      IF (ISING .EQ.  2) GO TO 149\r\n      IF (IOPT .LT. 100) GO TO 200\r\n      IOPT = IOPT - 100\r\n      IF (DIREC .NE.  0) GO TO 148\r\n      DIREC = 1\r\n      IF (HDETER .LT.0.0D0) DIREC = -1\r\n      GO TO 200\r\n  148 IF (DIREC.EQ. 1 .AND. HDETER.GT.0.0D0) GO TO 200\r\n      IF (DIREC.EQ.-1 .AND. HDETER.LT.0.0D0) GO TO 200\r\n  149 WRITE  (OUT,150) UFM,NECPT(1)\r\n  150 FORMAT (A23,' 4004, MODULE SMA1 DETECTS BAD OR REVERSE GEOMETRY ',\r\n     1       'FOR ELEMENT ID',I10)\r\n      NOGOO = 1\r\n      RETURN\r\nC\r\nC     SKIP SUB-TETRAHEDRON IF IT DOES NOT CONTRIBUTE TO PIVOT STIFFNESS\r\nC\r\n  200 DO 201 I = 3,6\r\n      IF (NPVT .EQ. NECPT(I)) GO TO 209\r\n  201 CONTINUE\r\n      IF (KOUNT.EQ.NGPT .AND. JTYPE.NE.0) GO TO 910\r\n      RETURN\r\nC\r\nC     AT THIS POINT BRANCH ON HEAT OR STRUCTURE PROBLEM.\r\nC\r\n  209 HDETER = DABS(HDETER)\r\n      IF (HEAT ) GO TO 1010\r\n      IF (HYDRO) GO TO 1060\r\nC\r\nC     GET THE MATERIAL DATA AND FILL THE 6X6 G MATERIAL STRESS-STRAIN\r\nC     MATRIX.\r\nC\r\n      INFLAG = 1\r\n      MATID  = NECPT(2)\r\n      ELTEMP = ECPT(23)\r\n      CALL MAT (NECPT(1))\r\n      DO 210 I = 1,36\r\n  210 G(I)  = 0.0D0\r\n      TEMP1 = (1.0+NU)*(1.0-2.0*NU)\r\n      IF (DABS(TEMP1) .GT. 1.0D-6) GO TO 240\r\n      WRITE  (OUT,230) UFM,MATID,ECPT(1)\r\n  230 FORMAT (A23,' 4005, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ',\r\n     1       'UNDER MATERIAL ID',I10,' FOR ELEMENT ID',I10)\r\n      NOGOO = 1\r\n      RETURN\r\nC\r\n  240 G( 1) = E*(1.0-NU)/TEMP1\r\n      G( 8) = G(1)\r\n      G(15) = G(1)\r\n      G( 2) = E*NU/TEMP1\r\n      G( 3) = G(2)\r\n      G( 7) = G(2)\r\n      G( 9) = G(2)\r\n      G(13) = G(2)\r\n      G(14) = G(2)\r\n      G(22) = GG\r\n      G(29) = GG\r\n      G(36) = GG\r\nC\r\nC     FILL 4 C-MATRICES. (6X3) EACH.\r\nC\r\n      DO 400 I = 1,72\r\n  400 C(I) = 0.0D0\r\n      DO 500 I = 1,4\r\n      J = 18*I - 18\r\n      C(J+ 1) = H(I+ 4)\r\n      C(J+ 5) = H(I+ 8)\r\n      C(J+ 9) = H(I+12)\r\n      C(J+11) = H(I+12)\r\n      C(J+12) = H(I+ 8)\r\n      C(J+13) = H(I+12)\r\n      C(J+15) = H(I+ 4)\r\n      C(J+16) = H(I+ 8)\r\n      C(J+17) = H(I+ 4)\r\n  500 CONTINUE\r\nC\r\nC     DIVIDE DETERMINANT BY 6.0, AND BY AN ADDITIONAL 2.0 IF A SUB-TETRA\r\nC     FOR THE HEXA-10 ELEMENT.\r\nC     FOR WEDGES, 1ST 6 CONFIGURATUONS ARE MULTIPLIED BY 2.\r\nC     ALL CONFIGURATIONS ARE DIVIDED BY 6.\r\nC\r\n      IF (IOPT) 602,601,602\r\n  601 HDETER = HDETER/6.0D0\r\n      GO TO 610\r\n  602 IF (IOPT.GE.11 .AND. IOPT.LE.22) GO TO 603\r\n      HDETER = HDETER/12.0D0\r\n      GO TO 610\r\nC\r\nC     WEDGES\r\nC\r\n  603 HDETER = HDETER/36.0D0\r\n      IF (IOPT .LE. 16) HDETER = HDETER*2.0D0\r\n  610 DO 700 I = 1,36\r\n  700 KIJ(I) = 0.0D0\r\nC\r\nC     DETERMINE THE PIVOT POINT\r\nC\r\n      DO 720 I = 2,5\r\n      KA = 4*I - 1\r\n      NPOINT = 18*I - 35\r\n      IF (NECPT(I+1) .NE. NPVT) GO TO 720\r\n      GO TO 740\r\n  720 CONTINUE\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC     PICK UP PIVOT TRANSFORMATION IF CSID IS NON-ZERO.\r\nC\r\n  740 IF (NECPT(KA)) 750,760,750\r\n  750 CALL TRANSD (NECPT(KA),T)\r\n      CALL GMMATD (T(1),3,3,1, C(NPOINT),6,3,1, CT(1))\r\n      GO TO 778\r\nC\r\nC                     T  T\r\nC     AT THIS POINT  T  C  IS STORED AS A 3X6 IN THE CT ARRAY.\r\nC                     I  I\r\nC\r\nC                                                T T\r\nC     NOW MULTIPLY ON THE RIGHT BY G   TO FORM  T C G   (3X6)\r\nC                                   E            I I E\r\nC\r\n  760 CALL GMMATD (C(NPOINT),6,3,1, G(1),6,6,0, GCT(1))\r\n      GO TO 781\r\n  778 CALL GMMATD (CT(1),3,6,0, G(1),6,6,0, GCT(1))\r\n  781 DO 790 I = 1,18\r\n      GCT(I) = GCT(I)*HDETER\r\n  790 CONTINUE\r\nC\r\nC     LOOP THROUGH THE 4 POINTS INSERTING THE STIFFNESS MATRIX FOR\r\nC     EACH WITH RESPECT TO THE PIVOT POINT.\r\nC\r\n      DO 900 I = 1,4\r\n      IF (NECPT(4*I+3)) 810,820,810\r\n  810 CALL TRANSD (NECPT(4*I+3),T)\r\n      CALL GMMATD (C(18*I-17),6,3,0, T(1),3,3,0, CT(1))\r\n      CALL GMMATD (GCT(1),3,6,0, CT(1),6,3,0, T(1))\r\n      GO TO 830\r\nC\r\nC     NO TRANSFORMATION\r\nC\r\n  820 CALL GMMATD (GCT(1),3,6,0, C(18*I-17),6,3,0, T(1))\r\nC\r\nC     INSERT 3X3 KIJ INTO 6X6 KIJ AND CALL SMA1B FOR INSERTION.\r\nC\r\n  830 KIJ( 1) = T(1)\r\n      KIJ( 2) = T(2)\r\n      KIJ( 3) = T(3)\r\n      KIJ( 7) = T(4)\r\n      KIJ( 8) = T(5)\r\n      KIJ( 9) = T(6)\r\n      KIJ(13) = T(7)\r\n      KIJ(14) = T(8)\r\n      KIJ(15) = T(9)\r\nC\r\n      CALL SMA1B (KIJ(1),NECPT(I+2),-1,IFKGG,0.0D0)\r\n      TEMP1 = GSUBE\r\n      IF (IOPT4) 840,900,840\r\n  840 IF (GSUBE) 850,900,850\r\n  850 CALL SMA1B (KIJ(1),NECPT(I+2),-1,IF4GG,TEMP1)\r\nC\r\n  900 CONTINUE\r\nC\r\nC     IF USER REQUESTED VOLUME AND SURFACE CALCULATIONS, WE NEED TO SAVE\r\nC     IN SCR4 THE FOLLOWING\r\nC     WORDS 1,2 = ELEM. BCD NAME\r\nC             3 = ELEM. ID\r\nC             4 = VOLUME\r\nC             5 = MASS\r\nC             6 = NO. OF GRID POINTS, NGPT\r\nC           7 THRU 6+NGPT = GRID POINTS\r\nC           7+NGPT THRU 7+5*NGPT = BGPDT DATA\r\nC\r\n      TVOL = TVOL + HDETER/4.0D+0\r\n      IF (KOUNT .LT. NGPT) GO TO 950\r\n  910 IF (JTYPE .GT. 0) GO TO 950\r\n      ECPT(2) = TVOL*VOLUME\r\n      IF (JTYPE.EQ.0 .AND. SURFAC.GT.0.0) GO TO 920\r\n      J = IABS(JTYPE)\r\n      ECPT(3) = TVOL\r\n      IF (RHO .GT. 0.0) ECPT(3) = TVOL*RHO\r\n      NECPT(4) = NGPT\r\n      CALL WRITE (SCR4,EL(1,J),2,0)\r\n      CALL WRITE (SCR4,ECPT(1),4,0)\r\n      IF (SURFAC .LE. 0.0) GO TO 950\r\n      J = NGPT*5\r\n      CALL WRITE (SCR4,ECPT(53),J,1)\r\n      GO TO 950\r\n  920 CALL WRITE (SCR4,EL(1,4),2,0)\r\n      CALL WRITE (SCR4,ECPT(1),2,0)\r\n      IF (RHO .GT. 0.0) TVOL = TVOL*RHO\r\n      ECPT (1) = TVOL\r\n      NECPT(2) = NGPT\r\n      CALL WRITE (SCR4,ECPT(1),22,1)\r\nC\r\n  950 RETURN\r\nC\r\nC     HEAT PROBLEM LOGIC FOR 1 PIVOT ROW OF 1 TETRAHEDRON.\r\nC\r\nC     OBTAIN G  MATERIAL MATRIX FROM HMAT ROUTINE\r\nC             E\r\nC\r\n 1010 MATID  = NECPT(2)\r\n      INFLAG = 3\r\n      ELTEMP = ECPT(23)\r\n      CALL HMAT (NECPT)\r\n      G( 1)  = 0.0D0\r\n      G( 2)  = 0.0D0\r\n      G( 3)  = 0.0D0\r\n      G( 4)  = 0.0D0\r\n      G( 5)  = 0.0D0\r\n      G( 6)  = MATBUF(1)\r\n      G( 7)  = MATBUF(2)\r\n      G( 8)  = MATBUF(3)\r\n      G( 9)  = 0.0D0\r\n      G(10)  = MATBUF(2)\r\n      G(11)  = MATBUF(4)\r\n      G(12)  = MATBUF(5)\r\n      G(13)  = 0.0D0\r\n      G(14)  = MATBUF(3)\r\n      G(15)  = MATBUF(5)\r\n      G(16)  = MATBUF(6)\r\nC\r\nC     OBTAIN THE FOUR CONDUCTIVITY VALUES NEEDED FOR PIVOT ROW BEING\r\nC     INSERTED.\r\nC\r\n 1020 CONTINUE\r\n      CALL GMMATD (G(1),4,4,0, H(1),4,4,0, C(5))\r\n      IHCOL   = I - 2\r\n      TEMP(1) = H(IHCOL  )\r\n      TEMP(2) = H(IHCOL+4)\r\n      TEMP(3) = H(IHCOL+8)\r\n      TEMP(4) = H(IHCOL+12)\r\n      CALL GMMATD (TEMP(1),1,4,0, C(5),4,4,0, C(1))\r\nC\r\nC     DIVIDE CONDUCTIVITY BY 2.0 IF THIS IS A SUB-TETRA OF A HEXA2\r\nC     ELEMENT.\r\nC\r\n      IF (IOPT) 1045,1040,1045\r\n 1040 HDETER = HDETER/6.0D0\r\n      GO TO 1046\r\n 1045 IF (IOPT.GE.11 .AND. IOPT.LE.22) GO TO 1048\r\n      HDETER = HDETER/12.0D0\r\n      GO TO 1046\r\nC\r\nC     WEDGES\r\nC\r\n 1048 HDETER = HDETER/36.0D0\r\n      IF (IOPT .LE. 16) HDETER = HDETER*2.0D0\r\n 1046 DO 1047 I = 1,4\r\n      C(I) = C(I)*HDETER\r\n 1047 CONTINUE\r\nC\r\nC     INSERT THE PIVOT ROW.\r\nC\r\n      DO 1050 I = 1,4\r\n      CALL SMA1B (C(I),NECPT(I+2),NPVT,IFKGG,0.0D0)\r\n 1050 CONTINUE\r\n      RETURN\r\nC\r\nC     HYDROELASTIC PROBLEM, OBTAIN DENSITY AND RETURN\r\nC\r\n 1060 MATID  = NECPT(2)\r\n      INFLAG = 11\r\n      CALL MAT (NECPT(1))\r\n      DO 1070 IDLH = 1,16\r\n 1070 G(IDLH) = 0.0D0\r\n      G(6)  = 1.0D0/DBLE(RHO)\r\n      G(11) = G(6)\r\n      G(16) = G(6)\r\n      GO TO 1020\r\n      END\r\n"
  },
  {
    "path": "mis/ktrapr.f",
    "content": "      SUBROUTINE KTRAPR\r\nC\r\nC     THIS ROUTINE COMPUTES THE STIFFNESS MATRIX FOR A AXI-SYMMETRIC\r\nC     RING WITH A TRAPEZOIDAL CROSS SECTION\r\nC\r\nC     ECPT FOR THE TRAPEZOIDAL RING\r\nC                                                          TYPE\r\nC     ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC     ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC     ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC     ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC     ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D             I\r\nC     ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC     ECPT( 7) MATERIAL IDENTIFICATION                       I\r\nC     ECPT( 8) COOR. SYS. ID. FOR GRID POINT A               I\r\nC     ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(12) COOR. SYS. ID. FOR GRID POINT B               I\r\nC     ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(16) COOR. SYS. ID. FOR GRID POINT C               I\r\nC     ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(20) COOR. SYS. ID. FOR GRID POINT D               I\r\nC     ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\n      DOUBLE PRECISION CONSTD,   DEGRAD,   D ,       GAMBQ,    R,\r\n     1                 Z,        EE48,     TEO,      EE,       DELINT,\r\n     2                 AK,       AKI,      R1,       R2,       R3,\r\n     3                 R4,       Z1,       Z2,       Z3,       Z4,\r\n     4                 ZMIN,     DGAMA,    ER,       ET,       EZ,\r\n     5                 VRT,      VTR,      VTZ,      VZT,      VZR,\r\n     6                 VRZ,      GRZ,      DEL,      COSG,     SING,\r\n     7                 DGAMR,    AKT,      TWOPI,    DAMPC,    RMIN,\r\n     8                 RMAX,     RZINTD\r\n      DIMENSION        JRZ(2),   IECPT(24),AKI(36),  AKT(9)\r\n      COMMON /SYSTEM/  IBUF,     IOUT\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      COMMON /MSGX  /  NMSG,     MMSG,     MSG(4,1)\r\n      COMMON /SMA1IO/  DUM1(10), IFKGG,    IGKGG,    IF4GG,    DUM2(21)\r\n      COMMON /SMA1CL/  IOPT4,    K4GGSW,   NPVT,     DUM4(7),  LINK(10),\r\n     1                 IDETCK,   DODET,    NOGO\r\n      COMMON /SMA1ET/  ECPT(24), DUM5(76)\r\n      COMMON /SMA1DP/  D(64),    GAMBQ(64), R(4),    Z(4),     TEO(16),\r\n     1                 EE(16),   DELINT(12),AK(64),  DGAMA,    ZMIN,\r\n     2                 ER,       ET,       EZ,       VRT,      VTR,\r\n     3                 VTZ,      VZT,      VZR,      VRZ,      GRZ,\r\n     4                 DEL,      COSG,     SING,     DGAMR,    IGP(4),\r\n     5                 ICS(4),   SP(24),   TEMPE\r\n      COMMON /MATIN /  MATIDC,   MATFLG,   ELTEMP,   STRESS,   SINTH,\r\n     1                 COSTH\r\n      COMMON /MATOUT/  E(3),     ANU(3),   RHO,      G(3),     ALF(3),\r\n     1                 TZERO,    G SUB E\r\n      EQUIVALENCE      (CONSTD(2),TWOPI),  (CONSTD(4),DEGRAD),\r\n     1                 (IECPT(1) ,ECPT(1)),\r\n     2                 (R(1),R1),(R(2),R2),(R(3),R3), (R(4),R4),\r\n     3                 (Z(1),Z1),(Z(2),Z2),(Z(3),Z3), (Z(4),Z4),\r\n     4                 (AKI(1),GAMBQ(1))  ,(AKT(1),GAMBQ(37))\r\n      DATA    IRG   /  4HTRAP    /\r\nC\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT(1)\r\n      IGP(1) = IECPT(2)\r\n      IGP(2) = IECPT(3)\r\n      IGP(3) = IECPT(4)\r\n      IGP(4) = IECPT(5)\r\n      MATID  = IECPT(7)\r\n      ICS(1) = IECPT(8)\r\n      ICS(2) = IECPT(12)\r\n      ICS(3) = IECPT(16)\r\n      ICS(4) = IECPT(20)\r\n      R(1)   = ECPT( 9)\r\n      D(1)   = ECPT(10)\r\n      Z(1)   = ECPT(11)\r\n      R(2)   = ECPT(13)\r\n      D(2)   = ECPT(14)\r\n      Z(2)   = ECPT(15)\r\n      R(3)   = ECPT(17)\r\n      D(3)   = ECPT(18)\r\n      Z(3)   = ECPT(19)\r\n      R(4)   = ECPT(21)\r\n      D(4)   = ECPT(22)\r\n      Z(4)   = ECPT(23)\r\n      TEMPE  = ECPT(24)\r\n      DGAMA  = ECPT( 6)\r\nC\r\nC     CHECK INTERNAL GRID POINTS FOR PIVOT POINT\r\nC\r\n      IPP = 0\r\n      DO 100 I = 1,4\r\n      IF (NPVT .EQ. IGP(I)) IPP = I\r\n  100 CONTINUE\r\n      IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LT. 0.0D0) GO TO 910\r\n      IF (D(I) .NE. 0.0D0) GO TO 910\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = DMIN1(Z1,Z2,Z3,Z4)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\n      Z4 = Z4 - ZMIN\r\nC\r\nC     FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE FOR\r\nC     IP =-1\r\nC\r\n      RMIN = DMIN1(R1,R2,R3,R4)\r\n      RMAX = DMAX1(R1,R2,R3,R4)\r\n      IF (RMIN .EQ. 0.D0) GO TO 206\r\n      IF (RMAX/RMIN .GT. 10.D0) GO TO 930\r\nC\r\n  206 IF (R1.GE.R2 .OR. R4.GE.R3 .OR. Z4.LE.Z1) GO TO 910\r\n      IF (DABS(Z1-Z2) .GT. 1.0D-3) GO TO 910\r\n      IF (DABS(Z3-Z4) .GT. 1.0D-3) GO TO 910\r\n      D(5) = (R1+R4)/2.0D0\r\n      D(6) = (R2+R3)/2.0D0\r\n      IF (D(5) .EQ. 0.0D0) GO TO 210\r\n      IF (DABS((R1-R4)/D(5)) .GT. 0.5D-2) GO TO 210\r\n      R1 = D(5)\r\n      R4 = D(5)\r\n  210 CONTINUE\r\n      IF (D(6) .EQ. 0.0D0) GO TO 220\r\n      IF (DABS((R2-R3)/D(6)) .GT. 0.5D-2) GO TO 220\r\n      R(2) = D(6)\r\n      R(3) = D(6)\r\n  220 CONTINUE\r\nC\r\n      ICORE = 0\r\n      J = 1\r\n      DO 230 I = 1,4\r\n      IF (R(I) .NE. 0.D0) GO TO 230\r\n      ICORE  = ICORE + 1\r\n      JRZ(J) = I\r\n      J = 2\r\n  230 CONTINUE\r\n      IF (ICORE.NE.0 .AND. ICORE.NE.2) GO TO 910\r\nC\r\nC     FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,64\r\n      GAMBQ(I) = 0.0D0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0D0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ( 4) = R1*Z1\r\n      GAMBQ(13) = 1.0D0\r\n      GAMBQ(14) = R1\r\n      GAMBQ(15) = Z1\r\n      GAMBQ(16) = GAMBQ(4)\r\n      GAMBQ(17) = 1.0D0\r\n      GAMBQ(18) = R2\r\n      GAMBQ(19) = Z2\r\n      GAMBQ(20) = R2*Z2\r\n      GAMBQ(29) = 1.0D0\r\n      GAMBQ(30) = R2\r\n      GAMBQ(31) = Z2\r\n      GAMBQ(32) = GAMBQ(20)\r\n      GAMBQ(33) = 1.0D0\r\n      GAMBQ(34) = R3\r\n      GAMBQ(35) = Z3\r\n      GAMBQ(36) = R3*Z3\r\n      GAMBQ(45) = 1.0D0\r\n      GAMBQ(46) = R3\r\n      GAMBQ(47) = Z3\r\n      GAMBQ(48) = GAMBQ(36)\r\n      GAMBQ(49) = 1.0D0\r\n      GAMBQ(50) = R4\r\n      GAMBQ(51) = Z4\r\n      GAMBQ(52) = R4*Z4\r\n      GAMBQ(61) = 1.0D0\r\n      GAMBQ(62) = R4\r\n      GAMBQ(63) = Z4\r\n      GAMBQ(64) = GAMBQ(52)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP)\r\n      IF (ISING.EQ.2) GO TO 920\r\nC\r\nC     MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT\r\nC\r\n      IF (ICORE .EQ. 0) GO TO 305\r\n      JJ1 = 2*JRZ(1) - 1\r\n      JJ2 = 2*JRZ(2) - 1\r\nC\r\n      DO 303 I = 1,8\r\n      J = 8*(I-1)\r\n      GAMBQ(I   ) = 0.0D0\r\n      GAMBQ(I+16) = 0.0D0\r\n      GAMBQ(J+JJ1)= 0.D0\r\n      GAMBQ(J+JJ2)= 0.D0\r\n  303 CONTINUE\r\n  305 CONTINUE\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC     INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC        DELINT( 1) - (-1,0)\r\nC        DELINT( 2) - (-1,1)\r\nC        DELINT( 3) - (-1,2)\r\nC        DELINT( 4) - ( 0,0)\r\nC        DELINT( 5) - ( 0,1)\r\nC        DELINT( 6) - ( 0,2)\r\nC        DELINT( 7) - ( 1,0)\r\nC        DELINT( 8) - ( 1,1)\r\nC        DELINT( 9) - ( 1,2)\r\nC        DELINT(10) - ( 2,0)\r\nC        DELINT(11) - ( 2,1)\r\nC        DELINT(12) - ( 3,0)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,4\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .NE. 12) GO TO 340\r\n      IP = 3\r\n      IQ = 0\r\n  340 CONTINUE\r\n      IF (ICORE .EQ. 0) GO TO 345\r\n      IF (I1 .GT. 3) GO TO 345\r\n      DELINT(I1) = 0.0D0\r\n      GO TO 350\r\n  345 CONTINUE\r\n      DELINT(I1) = RZINTD(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\nC\r\nC     SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      VTR = VRT*ET/ER\r\n      VZT = VTZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.0D0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1    - VRZ*VTR*VZT\r\nC\r\nC     GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE(1) = ER*(1.0D0-VTZ*VZT)/DEL\r\n      EE(2) = ER*(VTR + VZR*VTZ)/DEL\r\n      EE(3) = ER*(VZR + VTR*VZT)/DEL\r\n      EE(4) = 0.0D0\r\n      EE(5) = EE(2)\r\n      EE(6) = ET*(1.0D0-VRZ*VZR)/DEL\r\n      EE(7) = ET*(VZT+VRT*VZR)/ DEL\r\n      EE(8) = 0.0D0\r\n      EE(9) = EE(3)\r\n      EE(10)= EE(7)\r\n      EE(11)= EZ*(1.0D0-VRT*VTR)/DEL\r\n      EE(12)= 0.0D0\r\n      EE(13)= 0.0D0\r\n      EE(14)= 0.0D0\r\n      EE(15)= 0.0D0\r\n      EE(16)= GRZ\r\nC\r\nC     FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC     GEOMETRIC AXIS\r\nC\r\n      DGAMR   = DGAMA*DEGRAD\r\n      COSG    = DCOS(DGAMR)\r\n      SING    = DSIN(DGAMR)\r\n      TEO( 1) = COSG**2\r\n      TEO( 2) = 0.0D0\r\n      TEO( 3) = SING**2\r\n      TEO( 4) = SING*COSG\r\n      TEO( 5) = 0.0D0\r\n      TEO( 6) = 1.0D0\r\n      TEO( 7) = 0.0D0\r\n      TEO( 8) = 0.0D0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0D0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) =-TEO(4)\r\n      TEO(13) =-2.0D0*TEO(4)\r\n      TEO(14) = 0.0D0\r\n      TEO(15) =-TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC     TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC     TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATD (TEO,4,4,1, EE, 4,4,0, D )\r\n      CALL GMMATD (D  ,4,4,0, TEO,4,4,0, EE)\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\n      EE48   = EE(4) + EE(8)\r\n      D ( 1) = EE(1) + 2.0D0*EE(2) + EE(6)\r\n      AK( 1) = EE(6)*DELINT(1)\r\n      AK( 2) = (EE(2) + EE(6))*DELINT(4)\r\n      AK( 3) = EE(6)*DELINT(2) + EE(8)*DELINT(4)\r\n      AK( 4) = (EE(2) + EE(6))*DELINT(5) + EE(8)*DELINT(7)\r\n      AK( 5) = 0.0D0\r\n      AK( 6) = EE(8)*DELINT(4)\r\n      AK( 7) = EE(7)*DELINT(4)\r\n      AK( 8) = EE(7)*DELINT(7) + EE(8)*DELINT(5)\r\n      AK( 9) = AK(2)\r\n      AK(10) = D(1)*DELINT(7)\r\n      AK(11) = (EE(2) + EE(6))*DELINT(5) + EE48*DELINT(7)\r\n      AK(12) = D(1)*DELINT(8) + EE48*DELINT(10)\r\n      AK(13) = 0.0D0\r\n      AK(14) = EE48*DELINT(7)\r\n      AK(15) = (EE(3)+EE(7))*DELINT(7)\r\n      AK(16) = (EE(3)+EE(7))*DELINT(10) + EE48*DELINT(8)\r\n      AK(17) = AK( 3)\r\n      AK(18) = AK(11)\r\n      AK(19) = EE(6)*DELINT(3) + EE(16)*DELINT(7) + (EE(8) +\r\n     1         EE(14))*DELINT(5)\r\n      AK(20) = (EE(2) + EE(6))*DELINT(6) + EE(16)*DELINT(10) + (EE(8) +\r\n     1          EE(13) + EE(14))*DELINT(8)\r\n      AK(21) = 0.0D0\r\n      AK(22) = EE(16)*DELINT(7) + EE(8)*DELINT(5)\r\n      AK(23) = EE( 7)*DELINT(5) + EE(15)*DELINT(7)\r\n      AK(24) = (EE(7) + EE(16))*DELINT(8) + EE(8)*DELINT(6) +\r\n     1         EE(15)*DELINT(10)\r\n      AK(25) = AK( 4)\r\n      AK(26) = AK(12)\r\n      AK(27) = AK(20)\r\n      AK(28) = D(1)*DELINT(9) + EE(16)*DELINT(12) + (EE48 + EE(13) +\r\n     1         EE(14))*DELINT(11)\r\n      AK(29) = 0.0D0\r\n      AK(30) = EE(16)*DELINT(10) + EE48*DELINT(8)\r\n      AK(31) = (EE(3) + EE(7))*DELINT(8) + EE(15)*DELINT(10)\r\n      AK(32) = (EE(3) + EE(7) + EE(16))*DELINT(11) + EE(15)*DELINT(12) +\r\n     1         EE48*DELINT(9)\r\n      AK(33) = 0.0D0\r\n      AK(34) = 0.0D0\r\n      AK(35) = 0.0D0\r\n      AK(36) = 0.0D0\r\n      AK(37) = 0.0D0\r\n      AK(38) = 0.0D0\r\n      AK(39) = 0.0D0\r\n      AK(40) = 0.0D0\r\n      AK(41) = AK( 6)\r\n      AK(42) = AK(14)\r\n      AK(43) = AK(22)\r\n      AK(44) = AK(30)\r\n      AK(45) = 0.0D0\r\n      AK(46) = EE(16)*DELINT(7)\r\n      AK(47) = EE(15)*DELINT(7)\r\n      AK(48) = EE(16)*DELINT(8) + EE(15)*DELINT(10)\r\n      AK(49) = AK( 7)\r\n      AK(50) = AK(15)\r\n      AK(51) = AK(23)\r\n      AK(52) = AK(31)\r\n      AK(53) = 0.0D0\r\n      AK(54) = AK(47)\r\n      AK(55) = EE(11)*DELINT( 7)\r\n      AK(56) = EE(11)*DELINT(10) + EE(12)*DELINT(8)\r\n      AK(57) = AK( 8)\r\n      AK(58) = AK(16)\r\n      AK(59) = AK(24)\r\n      AK(60) = AK(32)\r\n      AK(61) = 0.0D0\r\n      AK(62) = AK(48)\r\n      AK(63) = AK(56)\r\n      AK(64) = EE(11)*DELINT(12) + EE(16)*DELINT(9) + (EE(12) +\r\n     1         EE(15))*DELINT(11)\r\nC\r\n      DO 600 I = 1,64\r\n      AK(I) = TWOPI*AK(I)\r\n  600 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATD (GAMBQ,8,8,1, AK,8,8,0, D)\r\n      CALL GMMATD (D,8,8,0, GAMBQ,8,8,0, AK)\r\nC\r\nC     ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE\r\nC\r\n      DO 700 I = 1,36\r\n      AKI(I) = 0.0D0\r\n  700 CONTINUE\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR  GRID POINTS\r\nC\r\n      DO 800 I = 1,4\r\n      IF (ICS(I) .EQ. 0) GO TO 800\r\n      K = 9*(I-1) + 1\r\n      CALL TRANSD (ICS(I),D(K))\r\n  800 CONTINUE\r\nC\r\nC     START THE LOOP FOR INSERTION OF THE FOUR  (6X6) MATRICES\r\nC     INTO THE MASTER STIFFNESS MATRIX\r\nC\r\n      IR1  = 2*IPP - 1\r\n      IAPP = 9*(IPP-1) + 1\r\n      DO 900 I = 1,4\r\nC\r\nC     PLACE THE APPROIATE (2X2) SUBMATRIX OF THE STIFFNESS MATRIX\r\nC     IN A (3X3) MATRIX FOR TRANSFORMATION\r\nC\r\n      IC1    = 2*I - 1\r\n      IRC    = (IR1-1)*8 + IC1\r\n      AKT(1) = AK(IRC)\r\n      AKT(2) = 0.0D0\r\n      AKT(3) = AK(IRC+1)\r\n      AKT(4) = 0.0D0\r\n      AKT(5) = 0.0D0\r\n      AKT(6) = 0.0D0\r\n      AKT(7) = AK(IRC+8)\r\n      AKT(8) = 0.0D0\r\n      AKT(9) = AK(IRC+9)\r\nC\r\nC     TRANSFORM THE (3X3) STIFFNESS MATRIX\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 820\r\n      CALL GMMATD (D(IAPP),3,3,1, AKT(1),3,3,0, D(37))\r\n      DO 810 J = 1,9\r\n      AKT(J) = D(J+36)\r\n  810 CONTINUE\r\n  820 CONTINUE\r\n      IF (ICS(I) .EQ. 0) GO TO 840\r\n      IAI = 9*(I-1) + 1\r\n      CALL GMMATD (AKT(1),3,3,0, D(IAI),3,3,0, D(37))\r\n      DO 830 J = 1,9\r\n      AKT(J) = D(J+36)\r\n  830 CONTINUE\r\n  840 CONTINUE\r\nC\r\nC     PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR\r\nC     THE INSERTION ROUTINE\r\nC\r\n      J = 0\r\n      DO 850 J1 = 1,18,6\r\n      DO 850 J2 = 1,3\r\n      J = J + 1\r\n      K = J1 + J2 - 1\r\n      AKI(K) = AKT(J)\r\n  850 CONTINUE\r\nC\r\nC     CALL THE INSERTION ROUTINE\r\nC\r\n      CALL SMA1B (AKI(1),IGP(I),-1,IFKGG,0.0D0)\r\n      IF (IOPT4.EQ.0 .OR. GSUBE.EQ.0.0) GO TO 900\r\n      K4GGSW = 1\r\n      DAMPC  = GSUBE\r\n      CALL SMA1B (AKI(1),IGP(I),-1,IF4GG,DAMPC)\r\n  900 CONTINUE\r\n      RETURN\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n  910 I = 37\r\n      GO TO 950\r\n  920 I = 26\r\n      GO TO 950\r\n  930 I = 221\r\nC ...     221 WILL PRINT USER MESSAGE 2218\r\nC\r\n  950 IF (NMSG .EQ. 0) GO TO 970\r\n      IF (NMSG .GE. MMSG) RETURN\r\n      DO 960 J = 1,NMSG\r\n      IF (MSG(3,J).EQ.IDEL .AND. MSG(2,J).EQ.I) RETURN\r\n  960 CONTINUE\r\n  970 ICS(1) = IDEL\r\n      ICS(2) = IRG\r\n      CALL MESAGE (30,I,ICS)\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ktrbsc.f",
    "content": "      SUBROUTINE KTRBSC (IOPT)\r\nC\r\nC     BASIC BENDING TRIANGLE  ELEMENT ROUTINE\r\nC\r\nC     IOPT = 0   IMPLIES DO COMPLETE BASIC BENDING TRIANGLE.\r\nC                INSERTING THREE (6X6) MATRICES FOR A PIVOT POINT.\r\nC     IOPT = 1   IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES\r\nC                WHICH FORM THE 9X9 K SUPER U - MATRIX.\r\nC     IOPT = 2   SAME AS IOPT = 1, BUT SAVE H-INVERSE AND S\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO -\r\nC\r\nC           MAT    - MATERIAL DATA ROUTINE\r\nC           SMA1B  - INSERTION ROUTINE\r\nC           TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER\r\nC           INVERD - DOUBLE PRECISION INVERSE ROUTINE\r\nC           GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      INTEGER          SUBSCA,SUBSCB\r\n      DOUBLE PRECISION A,E,XSUBB,TEMP,XSUBC,D,YSUBC,XCYC,XCSQ,DETERM,\r\n     1                 YCSQ,XBSQ,G2X2,TITE,TJTE,S,TI,J2X2,AREA,XBAR,\r\n     2                 YBAR,PX2,PY2,PXY2,XBAR3,YBAR2,YBAR3,PROD9,TEMP9,\r\n     3                 G\r\n      DIMENSION        D(9),G2X2(4),J2X2(4),S(18),ECPT(25),G(9),\r\n     1                 TJTE(18),TITE(18),TI(9)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /SMA1IO/  DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23)\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK,\r\n     1                 DODET,NOGO\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                 G2X211, G2X212, G2X222\r\n      COMMON /SMA1ET/  NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                 X3,Y3,Z3,DUMB(76)\r\n      COMMON /SMA1DP/  A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,E(18),\r\n     1                 TEMP,XBAR,AREA,XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,\r\n     2                 XCYC,PY2,PXY2,XBAR3,YBAR3,DETERM,NSIZED,\r\n     3                 DUMDUM(4),NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB,\r\n     4                 NBEGIN,DUMMY(30)\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(D(1),G(1),A(79)),\r\n     1                 (ECPT(1),NECPT(1)),(G2X2(1),A(88)),\r\n     2                 (TJTE(1),A(100)),(TITE(1),S(1),A(82)),\r\n     3                 (J2X2(1),A(92)),(TI(1),A(118))\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE    TYPE\r\nC     =====================================            ========  =======\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC\r\n      NTYPE = 0\r\n      IF (IOPT .GT. 0) NTYPE = 1\r\n      IF (NTYPE .EQ. 1) GO TO 455\r\n      ELTEMP = ECPT(25)\r\nC\r\nC     SET UP  I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE\r\nC     X-SUB-B, X-SUB-C, AND Y-SUB-C.\r\nC\r\nC     E(11), E(14), E(17) WILL BE THE I-VECTOR.\r\nC     E(12), E(15), E(18) WILL BE THE J-VECTOR.\r\nC     E( 1), E( 4), E( 7) WILL BE THE K-VECTOR.\r\nC\r\nC     FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED)\r\nC\r\n      E(11) = DBLE(X2) - DBLE(X1)\r\n      E(14) = DBLE(Y2) - DBLE(Y1)\r\n      E(17) = DBLE(Z2) - DBLE(Z1)\r\nC\r\nC     FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = DSQRT(E(11)**2 + E(14)**2 + E(17)**2)\r\n      IF (XSUBB .GT. 1.0D-06) GO TO 20\r\n      CALL MESAGE (30,31,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC  20 NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n   20 E(11) = E(11)/XSUBB\r\n      E(14) = E(14)/XSUBB\r\n      E(17) = E(17)/XSUBB\r\nC\r\nC     TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8)\r\nC\r\n      E(2) = DBLE(X3) - DBLE(X1)\r\n      E(5) = DBLE(Y3) - DBLE(Y1)\r\n      E(8) = DBLE(Z3) - DBLE(Z1)\r\nC\r\nC     X-SUB-C = I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8)\r\nC\r\nC     CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(1) = E(14)*E( 8) - E( 5)*E(17)\r\n      E(4) = E( 2)*E(17) - E(11)*E( 8)\r\n      E(7) = E(11)*E( 5) - E( 2)*E(14)\r\nC\r\nC     FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = DSQRT(E(1)**2 + E(4)**2 + E(7)**2)\r\n      IF (YSUBC .GT. 1.0D-06) GO TO 25\r\n      CALL MESAGE (30,32,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NORMALIZE K-VECTOR WITH Y-SUB-C\r\nC\r\n   25 E(1) = E(1)/YSUBC\r\n      E(4) = E(4)/YSUBC\r\n      E(7) = E(7)/YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS GET -- J = K CROSS I\r\nC\r\n      E(12) = E( 4)*E(17) - E(14)*E( 7)\r\n      E(15) = E(11)*E( 7) - E( 1)*E(17)\r\n      E(18) = E( 1)*E(14) - E(11)*E( 4)\r\nC\r\nC     NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE\r\nC\r\n      TEMP = DSQRT(E(12)**2 + E(15)**2 + E(18)**2)\r\n      E(12) = E(12)/TEMP\r\n      E(15) = E(15)/TEMP\r\n      E(18) = E(18)/TEMP\r\n      E( 2) = 0.0D0\r\n      E( 3) = 0.0D0\r\n      E( 5) = 0.0D0\r\n      E( 6) = 0.0D0\r\n      E( 8) = 0.0D0\r\n      E( 9) = 0.0D0\r\n      E(10) = 0.0D0\r\n      E(13) = 0.0D0\r\n      E(16) = 0.0D0\r\nC\r\nC     CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA.\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     SETTING UP G MATRIX\r\nC\r\n  455 INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 90 I = 1,9\r\n   90 D(I) = G(I)*DBLE(EYE)\r\nC\r\n      AREA = XSUBB*YSUBC/2.0D0\r\n      XBAR =(XSUBB+XSUBC)/3.0D0\r\n      YBAR = YSUBC/3.0D0\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\n      PX2 = (XBSQ+XSUBB*XSUBC+XCSQ)/6.0D0\r\n      PY2 = YCSQ/6.0D0\r\n      PXY2= YSUBC*(XSUBB+2.0D0*XSUBC)/12.0D0\r\n      XBAR3 = 3.0D0*XBAR\r\n      YBAR3 = 3.0D0*YBAR\r\n      YBAR2 = 2.0D0*YBAR\r\nC\r\nC                 X\r\nC     FILL THE  (K ) MATRIX STORING IN  A(1) THRU A(36)\r\nC\r\n      A( 1) = D( 1)\r\n      A( 2) = D( 3)\r\n      A( 3) = D( 2)\r\n      A( 4) = D( 1)*XBAR3\r\n      A( 5) = D( 2)*XBAR + YBAR2*D(3)\r\n      A( 6) = D( 2)*YBAR3\r\n      A( 7) = A( 2)\r\n      A( 8) = D( 9)\r\n      A( 9) = D( 6)\r\n      A(10) = D( 3)*XBAR3\r\n      A(11) = D( 6)*XBAR + YBAR2*D(9)\r\n      A(12) = D( 6)*YBAR3\r\n      A(13) = A( 3)\r\n      A(14) = A( 9)\r\n      A(15) = D( 5)\r\n      A(16) = D( 2)*XBAR3\r\n      A(17) = D( 5)*XBAR + YBAR2*D(6)\r\n      A(18) = D( 5)*YBAR3\r\n      A(19) = A( 4)\r\n      A(20) = A(10)\r\n      A(21) = A(16)\r\n      A(22) = D( 1)*9.0D0*PX2\r\n      A(23) = D( 2)*3.0D0*PX2 + 6.0D0*PXY2*D(3)\r\n      A(24) = D( 2)*9.0D0*PXY2\r\n      A(25) = A( 5)\r\n      A(26) = A(11)\r\n      A(27) = A(17)\r\n      A(28) = A(23)\r\n      A(29) = D( 5)*PX2 + 4.0D0*PXY2*D(6) + 4.0D0*PY2*D(9)\r\n      A(30) = D( 5)*3.0D0*PXY2 + 6.0D0*PY2*D(6)\r\n      A(31) = A( 6)\r\n      A(32) = A(12)\r\n      A(33) = A(18)\r\n      A(34) = A(24)\r\n      A(35) = A(30)\r\n      A(36) = D( 5)*9.0D0*PY2\r\n      TEMP  = 4.0D0*AREA\r\n      DO 70 I = 1,36\r\n   70 A(I)  = A(I)*TEMP\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37) THRU A(72)\r\nC\r\n      DO 130 I = 37,72\r\n  130 A(I) = 0.0D0\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0D0*XSUBB\r\n      A(52) =-3.0D0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.0D0\r\n      A(65) = XCYC *2.0D0\r\n      A(66) = YCSQ *3.0D0\r\n      A(67) =-2.0D0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0D0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.0E0) GO TO 500\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0. .AND. G2X212.EQ.0. .AND. G2X222.EQ.0.) GO TO 500\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP  =  2.0D0*D(2) + 4.0D0*D(9)\r\n      A(73) = -6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) = -J2X2(1)*TEMP - 6.0D0*J2X2(2)*D(6)\r\n      A(75) = -6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) = -6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) = -J2X2(2)*TEMP - 6.0D0*J2X2(4)*D(6)\r\n      A(78) = -6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     NOW FORMING  PRODUCT (G2X2)(H  ) AND STORING AS AN INTERMEDIATE\r\nC     STEP.                        YQ\r\nC\r\nC\r\n      CALL GMMATD (G2X2(1),2,2,0, A(73),2,3,0, A(79))\r\nC\r\nC                                                               Y\r\nC     WITH LAST PRODUCT  FORM  LOWER RIGHT 3 X 3 PARTITION OF (K )\r\nC\r\nC              Y                   T\r\nC     THUS   (K ) PARTITION = (H  ) (LAST PRODUCT)   STORE AT A(85)\r\nC                               YQ\r\nC\r\n      CALL GMMATD (A(73),2,3,1, A(79),2,3,0, A(85))\r\nC\r\nC                                                     X\r\nC     NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K )\r\nC     PER STEP 5 PAGE -16- MS-17                            Y\r\nC     MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE.\r\nC\r\n      DO 60 I = 1,3\r\n      A(I+21) = A(I+21) + A(I+84)*AREA\r\n      A(I+27) = A(I+27) + A(I+87)*AREA\r\n   60 A(I+33) = A(I+33) + A(I+90)*AREA\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                     UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 75 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n   75 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  500 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .NE. 2) GO TO 440\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (30,33,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC              Q   -1\r\nC 440 FORM   (K )(H  )  AND STORE AT  A(73) THRU A(108)\r\nC\r\nC                 X                     Q\r\nC     NOTE THAT (K ) AT THIS POINT IS (K )\r\nC\r\n  440 CALL GMMATD (A(1),6,6,0, A(37),6,6,0, A(73))\r\nC\r\nC                    -1 T\r\nC     FORM(K  ) = (H  ) (LAST PRODUCT) STORE AT A(109) THRU A(144)\r\nC            II\r\nC\r\n      CALL GMMATD (A(37),6,6,1, A(73),6,6,0, A(109))\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3)\r\nC\r\n      IF (IOPT.NE.2) GO TO 700\r\nC\r\nC     SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE.\r\nC\r\n      DO 710 I = 37,72\r\n  710 A(I+108) = A(I)\r\nC\r\n  700 S( 1) = 1.0D0\r\n      S( 2) = 0.0D0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0D0\r\n      S( 5) = 1.0D0\r\n      S( 6) = 0.0D0\r\n      S( 7) = 0.0D0\r\n      S( 8) = 0.0D0\r\n      S( 9) = 1.0D0\r\n      S(10) = 1.0D0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0D0\r\n      S(14) = 1.0D0\r\n      S(15) = 0.0D0\r\n      S(16) = 0.0D0\r\n      S(17) = 0.0D0\r\n      S(18) = 1.0D0\r\nC\r\nC                   T\r\nC     FORM   K   = K   = -K   S  STORING AT A(46)   (K   IS 6X3)\r\nC             IA    AI     II                         IA\r\nC\r\n      CALL GMMATD (A(109),6,6,0, S(1),6,3,0, A(46))\r\nC\r\nC     THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW.\r\nC\r\nC                    T\r\nC          (K  ) = (S )(-K  )\r\nC            AA           IA\r\nC\r\nC     NOTE K    HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS\r\nC           IA                                                   HERE.\r\nC\r\n      CALL GMMATD (S(1),6,3,1, A(46),6,3,0, A(1))\r\nC\r\nC     NOW MULTIPLY  K   BY SCALER (-1)\r\nC                    IA\r\nC\r\n      DO 190 I = 46,63\r\n  190 A(I) = -A(I)\r\nC\r\nC     AT THIS POINT, STORED BY ROWS ARE\r\nC\r\nC                  K     (6X6) AT A(109) THRU A(144)\r\nC                   II\r\nC\r\nC                  K     (6,3) AT  A(46) THRU A(63)\r\nC                   IA\r\nC\r\nC                  K     (3X3) AT A(1) THRU A(9)\r\nC                   AA\r\nC\r\nC     ARRANGE NINE 3X3 MATRICES OF K SUPER U\r\nC\r\n      DO 600 I = 28,36\r\n  600 A(I) = A(I+18)\r\n       A(10) = A(46)\r\n       A(11) = A(49)\r\n       A(12) = A(52)\r\n       A(13) = A(47)\r\n       A(14) = A(50)\r\n       A(15) = A(53)\r\n       A(16) = A(48)\r\n       A(17) = A(51)\r\n       A(18) = A(54)\r\n       A(19) = A(55)\r\n       A(20) = A(58)\r\n       A(21) = A(61)\r\n       A(22) = A(56)\r\n       A(23) = A(59)\r\n       A(24) = A(62)\r\n       A(25) = A(57)\r\n       A(26) = A(60)\r\n       A(27) = A(63)\r\n       A(37) = A(109)\r\n       A(38) = A(110)\r\n       A(39) = A(111)\r\n       A(40) = A(115)\r\n       A(41) = A(116)\r\n       A(42) = A(117)\r\n       A(43) = A(121)\r\n       A(44) = A(122)\r\n       A(45) = A(123)\r\n       A(46) = A(112)\r\n       A(47) = A(113)\r\n       A(48) = A(114)\r\n       A(49) = A(118)\r\n       A(50) = A(119)\r\n       A(51) = A(120)\r\n       A(52) = A(124)\r\n       A(53) = A(125)\r\n       A(54) = A(126)\r\n       A(64) = A(127)\r\n       A(65) = A(128)\r\n       A(66) = A(129)\r\n       A(67) = A(133)\r\n       A(68) = A(134)\r\n       A(69) = A(135)\r\n       A(70) = A(139)\r\n       A(71) = A(140)\r\n       A(72) = A(141)\r\n       A(73) = A(130)\r\n       A(74) = A(131)\r\n       A(75) = A(132)\r\n       A(76) = A(136)\r\n       A(77) = A(137)\r\n       A(78) = A(138)\r\n       A(79) = A(142)\r\n       A(80) = A(143)\r\n       A(81) = A(144)\r\n      IF (NTYPE .EQ. 1) RETURN\r\nC\r\n      DO 95 I = 1,3\r\n      IF (NGRID(I) .NE. NPVT) GO TO 95\r\n      NPIVOT = I\r\n      GO TO 170\r\n   95 CONTINUE\r\nC\r\nC     ERROR IF FALL THRU ABOVE LOOP\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC 170 AT THIS POINT START ASSEMBLY OF 3 6X6 MATRICES FOR I = PIVOT,\r\nC     AND J =1,2,3  IN THE FOLLOWING EQUATION.\r\nC\r\nC                  T         U     T\r\nC        (K  ) = (T  ) (E) (K  ) (E ) (T )\r\nC          IJ      I         IJ         J\r\nC\r\nC\r\nC     FIRST GET THE PRODUCT APPLICABLE TO ALL 3 K  .\r\nC                                                IJ\r\nC                  T\r\nC              = (T  ) (E)    A 6X3 MATRIX.\r\nC                  I\r\nC\r\nC     CHECK TO SEE IF TI-MATRIX IS NEEDED\r\nC     IF THE CSID IS ZERO FOR THE PIVOT POINT SKIP TRANSFORMATION.\r\nC\r\n  170 IF (NECPT(4*NPIVOT+9) .EQ. 0) GO TO 250\r\nC\r\nC     GET  TI AND MULTIPLY WITH E TO FILL TITE (THE COMMON PRODUCT)\r\nC\r\n      CALL TRANSD (NECPT(4*NPIVOT+9),TI)\r\nC\r\nC     TI IS EQUIVALENCED TO A(118) AND IS 3X3.\r\nC\r\nC     FORM TITE (UPPER AND LOWER) OK OK OK\r\nC\r\n      CALL GMMATD (TI(1),3,3,1,  E(1),3,3,0,  TITE(1))\r\n      CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TITE(10))\r\nC\r\n      GO TO 280\r\nC\r\nC 250 COMING HERE IMPLIES TI NOT USED.\r\nC     JUST SET TITE = E MATRIX\r\nC\r\n  250 DO 260 I = 1,18\r\n  260 TITE(I) = E(I)\r\nC\r\nC                                                 T\r\nC 280 AT THIS POINT COMMON PRODUCT IS COMPLETE =(T  )(E)  STORED IN TITE\r\nC                                                 I\r\nC\r\nC     THE PIVOT I IS NPIVOT\r\n  280 NPT1 = 1\r\n      IF (NPIVOT .EQ. 1 ) NPT1 = 28\r\nC\r\nC     THE ABOVE SETS A POINTER, NPT1, TO POINT TO 18 FREE DOUBLE PREC.\r\nC     CORE LOCATIONS IN THE A-ARRAY FOR STORAGE OF THE FOLLOWING\r\nC     SUB-PRODUCT.\r\nC                     U   T\r\nC                  (K  )(E )(T )\r\nC                    IJ       J\r\nC\r\nC\r\nC     LOOP THRU FOR THE 3 - 6X6 K   ARRAYS.\r\nC                                IJ\r\n      DO 800 J = 1,3\r\nC                          T\r\nC     TAKE SUB PRODUCT = (E )(T )..     STORE IN TJTE MATRIX\r\nC                              J\r\nC\r\nC     NOTE.. THE TRANSPOSE OF THE ABOVE IS BEING FOUND AND USED,\r\nC                          T\r\nC                      = (T  )(E),  AND STORED IN TJTE-MATRIX\r\nC                          J        EQUIVALENCED TO A(100)\r\nC\r\nC\r\nC     CHECK TO SEE IF TRANSFORMATION IS NEEDED.\r\nC     IF NOT SKIP TO 850\r\nC\r\n      IF (NECPT(4*J+9) .EQ. 0) GO TO 850\r\nC\r\n      CALL TRANSD (NECPT(4*J+9),TI)\r\n      CALL GMMATD (TI(1),3,3,1, E(1),3,3,0, TJTE(1))\r\n      CALL GMMATD (TI(1),3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 880\r\nC\r\nC 850 COMING HERE IF TRANSFORMATION NOT USED\r\nC\r\nC 850 SET TJTE = E\r\n  850 DO 860 I = 1,18\r\n  860 TJTE(I) = E(I)\r\nC\r\nC           T       T\r\nC 880   ( (E )(T ) )  IS COMPLETE AND STORED BY ROWS IN TJTE-MATRIX.\r\nC               J\r\nC                     U   T\r\nC     NOW FORM,    (K  )(E )(T ), STORING AT A(NPT1)\r\nC                    IJ       J\r\nC\r\nC     NPT1 =  1  IF PIVOT IS GRID PT. 2 OR 3\r\nC     NPT1 = 28  IF PIVOT IS GRID PT. 1\r\nC                                  U\r\nC     TO COMPUTE ABOVE USE 3X3   K\r\nC                                 (NPIVOT,J)\r\nC     COMPUTE POINTER TO THIS 3X3.\r\nC\r\n  880 NPT2 = 27*NPIVOT + 9*J - 35\r\nC\r\n      CALL GMMATD (A(NPT2),3,3,0, TJTE,6,3,1, A(NPT1))\r\nC\r\nC\r\nC 950 AT THIS POINT,\r\nC                      U    T\r\nC                    (K  )(E )(T )  IS STORED AT A(NPT1), (3X6).\r\nC                      IJ       J\r\nC\r\nC     AND,             T\r\nC                    (T  )(E)      IS STORED AT TITE(1) = A(82)  (6X3)\r\nC                      I\r\nC\r\nC     FORMING FINAL PRODUCT, AND STORING AT A(100) THE 6X6.\r\nC\r\n      CALL GMMATD (TITE(1),6,3,0, A(NPT1),3,6,0, A(100))\r\nC\r\nC     SHIP TO SMA1B\r\nC\r\n      CALL SMA1B (A(100),NECPT(J+1),-1,IFKGG,0.0D0)\r\n      TEMP = G SUB E\r\n      IF (IOPT4) 801,800,801\r\n  801 IF (GSUBE) 802,800,802\r\n  802 CALL SMA1B (A(100),NECPT(J+1),-1,IF4GG,TEMP)\r\n      K4GGSW = 1\r\nC\r\n  800 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktriqd.f",
    "content": "      SUBROUTINE KTRIQD (NTYPE)\r\nC\r\nC\r\nC     8/18/67         E C P T     L I S T I N G\r\nC\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC ***** ******* ******* ******* ******* ******* ******* ******* ********\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC\r\nC\r\n      LOGICAL         HEAT\r\n      INTEGER         SCR4,IECPT(4),BCD(2,4),BGPDT(4)\r\n      DIMENSION       SAVE(32)\r\n      COMMON /BLANK / SKIP(16),VOLUME,SURFAC\r\n      COMMON /MATOUT/ DUM(6),RHO\r\n      COMMON /SMA1HT/ HEAT\r\n      COMMON /SMA1ET/ ECPT(100)\r\n      COMMON /SMA1DP/ DUMMY(600)\r\n      EQUIVALENCE     (SAVE(1),ECPT(50)),(ECPT(1),IECPT(1))\r\n      DATA    BCD   / 4HCTRI,2HA1,4HCTRI,2HA2,4HCQUA,2HD1,4HCQUA,2HD2 /\r\n      DATA    OLD   , KOUNT,NGPT / 0.0,   2*0     /\r\n      DATA    SCR4  , BGPDT/  304, 15, 9, 16, 10  /\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC             NTYPE = 1  IMPLIES KTRIA1\r\nC             NTYPE = 2  IMPLIES KTRIA2\r\nC             NTYPE = 3  IMPLIES KQUAD1\r\nC             NTYPE = 4  IMPLIES KQUAD2\r\nC\r\nC     CALLS FROM THIS ROUTINE CAN BE MADE TO\r\nC\r\nC            KTRMEM - TRIANGULAR MEMBRANE ROUTINE\r\nC            KQDMEM - QUADRILATERAL MEMBRANE ROUTINE\r\nC            KTQPLT - TRIANGULAR OR QUADRILATERAL PLATE ROUTINE\r\nC            QDMM1X - HIGHER LEVEL QUADRIALATER MEMBRANE ROUTINE\r\nC\r\nC     ALL INSERTIONS OF 6X6 ELEMENT STIFFNESS MATRICES ARE HANDLED BY\r\nC     THE ABOVE ROUTINES.\r\nC\r\nC\r\nC     THE SAVED ECPT IS EQUIVALENCED TO ECPT(50)\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I = 1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC           KTRIA1 KTRIA2 KQUAD1 KQUAD2\r\n      GO TO (  20,    70,   100,   150), NTYPE\r\nC\r\nC     *** KTRIA1 ***\r\nC\r\nC     SET UP ECPT FOR CALL TO KTRMEM (0), FIRST CHECK T1 FOR ZERO.\r\nC\r\n   20 IF (SAVE(7) .EQ. 0.0) GO TO 40\r\n      DO 30 I = 9,21\r\n   30 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL KTRMEM (0)\r\nC\r\nC     SET UP ECPT FOR CALL TO TQPLT(3), FIRST CHECK I AND T2 EQUAL ZERO.\r\nC\r\n   40 IF (SAVE(9) .EQ. 0.0) GO TO 200\r\n      DO 50 I = 1,5\r\n   50 ECPT(I) = SAVE(I)\r\n      DO 60 I = 6,25\r\n   60 ECPT(I) = SAVE(I+2)\r\nC\r\n      IF (.NOT.HEAT) CALL KTRPLT\r\n      GO TO 200\r\nC\r\nC     *** KTRIA2 ***\r\nC\r\n   70 IF (SAVE(7) .EQ. 0.0) GO TO 200\r\nC\r\nC     SET UP ECPT FOR CALL TO KTRMEM (0)\r\nC\r\nC     ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL KTRMEM (0)\r\nC\r\nC     SET UP ECPT FOR CALL TO KTQPLT (3)\r\nC\r\n      DO 80 I = 1,6\r\n   80 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7)**3/12.0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      DO 90 I = 13,25\r\n   90 ECPT(I) = SAVE(I-4)\r\nC\r\n      IF (.NOT.HEAT) CALL KTRPLT\r\n      GO TO 200\r\nC\r\nC     *** KQUAD1 ***\r\nC\r\n  100 IF (SAVE(8) .EQ. 0.0) GO TO 120\r\nC\r\nC     SET UP ECPT FOR CALL TO KQDMEM\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 110 I = 10,26\r\n  110 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL KQDMEM\r\nC\r\n  120 IF (SAVE(10) .EQ. 0.0) GO TO 200\r\nC\r\nC     SET UP ECPT FOR CALL TO KTQPLT (4)\r\nC\r\n      DO 130 I = 1,6\r\n  130 ECPT(I) = SAVE(I)\r\n      DO 140 I = 7,30\r\n  140 ECPT(I) = SAVE(I+2)\r\nC\r\n      IF (.NOT.HEAT) CALL KQDPLT\r\n      GO TO 200\r\nC\r\nC     *** KQUAD2 ***\r\nC\r\n  150 IF (SAVE(8) .EQ. 0.0) GO TO 200\r\nC\r\nC     SET UP ECPT FOR CALL TO KQDMEM\r\nC     (WHICH HAS WEAK STIFFNESS MATRIX FORMULATION)\r\nC     OR\r\nC     SET UP ECPT FOR CALL TO QDMM1D/S (BETTER MEMBRANE FORMALATION)\r\nC     THE PROBLEM HERE IS THAT KTRIQD AND KQDMEM ARE EMGOLD ELEMENTS\r\nC     WHILE QDMM1D/S ARE EMGPRO NEW ELEMENTS.\r\nC     TO SOLVE THIS PROPLEM, WE NEED A S.P./D.P. QDMM1X ELEMENT ROUTINE\r\nC     THAT USES QDMM1D/S FORMULATION WITH EMGOLD/SMA1B TECHNIQUE.\r\nC\r\nC     ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\nC     CALL QDMM1X\r\nC     (QDMM1X IS INCOMPLETE AS OF 3/92. GO BACK TO KQDMEM)\r\nC\r\n      CALL KQDMEM\r\nC\r\nC     SET UP ECPT FOR CALL TO KTQPLT (4)\r\nC\r\n      DO 160 I = 1,7\r\n  160 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8)**3/12.0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11)= SAVE(9)\r\n      DO 170 I = 14,30\r\n  170 ECPT(I) = SAVE(I-4)\r\nC\r\n      IF (.NOT. HEAT) CALL KQDPLT\r\nC\r\nC\r\nC     SAVE ELEMENT NAME, ID, THICKNESS, DENSITY, NO. OF GRID POINTS,\r\nC     AND GRID PT DATA IF USER REQUESTED VOLUME AND AREA COMPUTATION\r\nC\r\n  200 IF (HEAT .OR. (VOLUME.LE.0.0 .AND. SURFAC.LE.0.0)) GO TO 220\r\n      IF (SAVE(1) .EQ. OLD) GO TO 210\r\n      OLD  = SAVE(1)\r\n      NGPT = 3\r\n      IF (NTYPE .GE. 3) NGPT = 4\r\n      KOUNT = 0\r\n  210 KOUNT = KOUNT + 1\r\n      IF (KOUNT .LT. NGPT) GO TO 220\r\n      ECPT(2) = SAVE(7)\r\n      ECPT(3) = RHO\r\n      IECPT(4)= NGPT\r\n      I = BGPDT(NTYPE)\r\n      K = NGPT*4\r\n      IF (NTYPE .GE. 3) ECPT(2) = SAVE(8)\r\n      CALL WRITE (SCR4,BCD(1,NTYPE),2,0)\r\n      CALL WRITE (SCR4,ECPT(1),4,0)\r\n      CALL WRITE (SCR4,SAVE(2),NGPT,0)\r\n      CALL WRITE (SCR4,SAVE(I),K,1)\r\n  220 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrirg.f",
    "content": "      SUBROUTINE KTRIRG\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE COMPUTES THE STIFFNESS MATRIX FOR A AXI-SYMMETRIC RING\r\nC WITH A TRIANGULAR CROSS SECTION\r\nC*****\r\nC\r\nC\r\nC                        ECPT FOR THE TRIANGULAR RING\r\nC\r\nC\r\nC                                                      TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC ECPT( 6) MATERIAL IDENTIFICATION                       I\r\nC ECPT( 7) COOR. SYS. ID. FOR GRID POINT A               I\r\nC ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(11) COOR. SYS. ID. FOR GRID POINT B               I\r\nC ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(15) COOR. SYS. ID. FOR GRID POINT C               I\r\nC ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\nC\r\n      DOUBLE PRECISION CONSTD, DEGRAD\r\n      DOUBLE PRECISION\r\n     1                   D ,  GAMBQ,    R,   Z\r\n     2,                  TEO, EE,  DELINT,   AK,  AKI\r\n     3,                  AKT\r\n      DOUBLE PRECISION   R1,  R2,  R3,  Z1,  Z2,  Z3,  ZMIN, DGAMA\r\n     1,                  DR,  RH,  DZ,  ZH,  RA,  ZA,  AREA\r\n     2,                  ER,  ET,  EZ,  VRT, VTR, VTZ, VZT\r\n     3,                  VZR, VRZ, GRZ, DEL, COSG,SING,DGAMR\r\n     4,                  TWOPI,    DKI\r\n      DOUBLE PRECISION   DAMPC\r\nC\r\n      DIMENSION          IECPT(19)\r\n      DIMENSION          AKI(36),  AKT(9)\r\nC\r\n      COMMON /CONDAD/ CONSTD(5)\r\n      COMMON   /SMA1IO/\r\n     1                   DUM1(10)\r\n     2,                  IFKGG\r\n     3,                  IGKGG,    IF4GG,    DUM2(21)\r\n      COMMON   /SMA1CL/\r\n     1                   IOPT4,    K4GGSW\r\n     2,                  NPVT\r\n     3,                   DUM4(7)\r\n     4,                  LINK(10)           ,IDETCK\r\n     5,                  DODET              ,NOGO\r\n      COMMON   /SMA1ET/\r\n     1                   ECPT(19)\r\n     2,                  DUM5(81)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)               ,ANU(3)\r\n     2,                  RHO                ,G(3)\r\n     3,                  ALF(3)        ,TZERO,    GSUBE\r\n      COMMON   /SMA1DP/\r\n     1                   D(36) ,   GAMBQ(36),     R(3) ,    Z(3)\r\n     2,                  TEO(16),  EE(16),   DELINT(8),     AK(36)\r\n     4,                  DGAMA,    ZMIN\r\n     5,                  DR,  RH,  DZ,  ZH,  RA,  ZA,  AREA\r\n     6,                  ER,  ET,  EZ,  VRT, VTR, VTZ, VZT\r\n     7,                  VZR, VRZ, GRZ, DEL, COSG,SING,DGAMR\r\n     8,                  IGP(3) , ICS(3) , SP(18)\r\n     9,                  TEMPE\r\nC\r\n      EQUIVALENCE ( CONSTD(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTD(4) , DEGRAD )\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE   (R(1),R1),     (R(2),R2),     (R(3),R3)\r\n     1,             (Z(1),Z1),     (Z(2),Z2),     (Z(3),Z3)\r\n      EQUIVALENCE        (AKI(1),  GAMBQ(1))\r\n      EQUIVALENCE        (AKT(1),  TEO(1))\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL  = IECPT(1)\r\n      IGP(1)= IECPT(2)\r\n      IGP(2)= IECPT(3)\r\n      IGP(3)= IECPT(4)\r\n      MATID = IECPT(6)\r\n      ICS(1)= IECPT(7)\r\n      ICS(2)= IECPT(11)\r\n      ICS(3)= IECPT(15)\r\n      R(1)  = ECPT(8)\r\n      D(1)  = ECPT(9)\r\n      Z(1)  = ECPT(10)\r\n      R(2)  = ECPT(12)\r\n      D(2)  = ECPT(13)\r\n      Z(2)  = ECPT(14)\r\n      R(3)  = ECPT(16)\r\n      D(3)  = ECPT(17)\r\n      Z(3)  = ECPT(18)\r\n      TEMPE = ECPT(19)\r\n      DGAMA = ECPT(5)\r\nC\r\nC\r\nC CHECK INTERNAL GRID POINTS FOR PIVOT POINT\r\nC\r\n      IPP = 0\r\n      DO 100 I = 1,3\r\n      IF (NPVT .EQ. IGP(I)) IPP = I\r\n  100 CONTINUE\r\n      IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      IEROR1 = 0\r\n      DO 200 I = 1,3\r\n      IF (R(I).GT.0.0D0) GO TO 200\r\n      IF (IEROR1.NE.0) GO TO 200\r\n      CALL MESAGE (30, 211, IDEL)\r\n      IEROR1 = 1\r\n  200 CONTINUE\r\n      IEROR2 = 0\r\n      DO 210 I = 1, 3\r\n      IF (D(I).EQ.0.0D0) GO TO 210\r\n      IF (IEROR2.NE.0) GO TO 210\r\n      CALL MESAGE (30, 212, IDEL)\r\n      IEROR2 = 1\r\n  210 CONTINUE\r\n      IF (IEROR1.EQ.0.AND.IEROR2.EQ.0) GO TO 220\r\n      NOGO = 2\r\n      RETURN\r\n  220 IF ((R2 - R1)*(Z3 - Z1) - (R3 - R1)*(Z2 - Z1).LT.0.0D0) GO TO 920\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = DMIN1(Z1, Z2, Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,36\r\n      GAMBQ(I) = 0.0D0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0D0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ(10) = 1.0D0\r\n      GAMBQ(11) = R1\r\n      GAMBQ(12) = Z1\r\n      GAMBQ(13) = 1.0D0\r\n      GAMBQ(14) = R2\r\n      GAMBQ(15) = Z2\r\n      GAMBQ(22) = 1.0D0\r\n      GAMBQ(23) = R2\r\n      GAMBQ(24) = Z2\r\n      GAMBQ(25) = 1.0D0\r\n      GAMBQ(26) = R3\r\n      GAMBQ(27) = Z3\r\n      GAMBQ(34) = 1.0D0\r\n      GAMBQ(35) = R3\r\n      GAMBQ(36) = Z3\r\nC\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP)\r\nC\r\n      IF (ISING.EQ.2) GO TO 920\r\nC\r\nC\r\nC\r\nC CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC              DELINT( 1) - (-1,0)\r\nC              DELINT( 2) - (-1,1)\r\nC              DELINT( 3) - (-1,2)\r\nC              DELINT( 4) - ( 0,0)\r\nC              DELINT( 5) - ( 0,1)\r\nC              DELINT( 6) - ( 1,0)\r\nC              DELINT( 7) - ( 0,2)\r\nC              DELINT( 8) - ( 1,2)\r\nC\r\nC\r\nC TEST FOR RELATIVE SMALL AREA OF INTEGRATION\r\nC AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS\r\nC\r\n      DR = DMAX1 ( DABS(R1-R2) , DABS(R2-R3) , DABS(R3-R1) )\r\n      RH = DMIN1 ( R1 , R2 , R3 ) / 10.0D0\r\n      DZ = DMAX1 ( DABS(Z1-Z2) , DABS(Z2-Z3) , DABS(Z3-Z1) )\r\n      ZH = DMIN1 ( Z1 , Z2 , Z3 ) / 10.0D0\r\n      RA = (R1 + R2 + R3) / 3.0D0\r\n      ZA = (Z1 + Z2 + Z3) / 3.0D0\r\n      AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0D0\r\n      KODE = 0\r\n      IF (DABS( (R2-R1)/R2 ) .LT. 1.0D-5) KODE = 1\r\n      IF ( DR .LE. RH  .OR.  DZ .LE. ZH ) KODE = -1\r\nC\r\nC\r\n  310 CONTINUE\r\n      I1 = 0\r\n      DO 400 I = 1,3\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350\r\n      I1 = I1 + 1\r\n      IF (KODE) 320,330,340\r\n  320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA\r\n      GO TO 350\r\n  330 DELINT(I1) =   DKI (1,3,1,2,1,3,IP,IQ,R,Z)\r\n     1            +  DKI (3,2,1,2,3,2,IP,IQ,R,Z)\r\n      GO TO 350\r\n  340 CONTINUE\r\n      DELINT(I1) =   DKI (1,3,3,2,1,3,IP,IQ,R,Z)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\n      D(1)      = DELINT(6)\r\n      DELINT(6) = DELINT(7)\r\n      DELINT(7) = D(1)\r\nC\r\nC\r\nC TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS\r\nC AND IF IT EXIST APPROXIMATE INTEGRALS\r\nC\r\n      IF (KODE .LT. 0) GO TO 500\r\n      DO 450 I = 1,8\r\n      IF (DELINT(I) .LT. 0.0D0) GO TO 475\r\n  450 CONTINUE\r\n      IF (DELINT(8) .LE. DELINT(7)) GO TO 475\r\n      IF (DELINT(3) .GE. DELINT(8)) GO TO 475\r\n      IF (DELINT(3) .GT. DELINT(7)) GO TO 475\r\n      GO TO 500\r\n  475 CONTINUE\r\n      KODE = -1\r\n      GO TO 310\r\n  500 CONTINUE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER = E(1)\r\n      ET = E(2)\r\n      EZ = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      VTR = VRT * ET / ER\r\n      VZT = VTZ * EZ / ET\r\n      VRZ = VZR * ER / EZ\r\n      DEL = 1.0D0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1       - VRZ*VTR*VZT\r\nC\r\nC\r\nC GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE(1) = ER * (1.0D0 - VTZ*VZT) / DEL\r\n      EE(2) = ER * (VTR + VZR*VTZ) / DEL\r\n      EE(3) = ER * (VZR + VTR*VZT) / DEL\r\n      EE(4) = 0.0D0\r\n      EE(5) = EE(2)\r\n      EE(6) = ET * (1.0D0 - VRZ*VZR) / DEL\r\n      EE(7) = ET * (VZT + VRT*VZR) / DEL\r\n      EE(8) = 0.0D0\r\n      EE(9) = EE(3)\r\n      EE(10)= EE(7)\r\n      EE(11)= EZ * (1.0D0 - VRT*VTR) / DEL\r\n      EE(12)= 0.0D0\r\n      EE(13)= 0.0D0\r\n      EE(14)= 0.0D0\r\n      EE(15)= 0.0D0\r\n      EE(16)= GRZ\r\nC\r\nC\r\nC FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC GEOMETRIC AXIS\r\nC\r\n      DGAMR = DGAMA * DEGRAD\r\n      COSG = DCOS(DGAMR)\r\n      SING = DSIN(DGAMR)\r\n      TEO( 1) = COSG ** 2\r\n      TEO( 2) = 0.0D0\r\n      TEO( 3) = SING ** 2\r\n      TEO( 4) = SING * COSG\r\n      TEO( 5) = 0.0D0\r\n      TEO( 6) = 1.0D0\r\n      TEO( 7) = 0.0D0\r\n      TEO( 8) = 0.0D0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0D0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) = -TEO(4)\r\n      TEO(13) = -2.0D0 * TEO(4)\r\n      TEO(14) = 0.0D0\r\n      TEO(15) = -TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC\r\nC TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATD (TEO , 4, 4, 1, EE , 4, 4, 0, D )\r\n      CALL GMMATD (D   , 4, 4, 0, TEO, 4, 4, 0, EE)\r\nC\r\nC\r\nC\r\nC FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\n      AK( 1) = EE(6) * DELINT(1)\r\n      AK( 2) = (EE(2) + EE(6)) * DELINT(4)\r\n      AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4)\r\n      AK( 4) = 0.0D0\r\n      AK( 5) = EE(8) * DELINT(4)\r\n      AK( 6) = EE(7) * DELINT(4)\r\n      AK( 7) = AK(2)\r\n      AK( 8) = (EE(1) + 2.0D0*EE(2) + EE(6)) * DELINT(6)\r\n      AK( 9) = (EE(2) + EE(6)) * DELINT(5) + (EE(4) + EE(8)) *DELINT(6)\r\n      AK(10) = 0.0D0\r\n      AK(11) = (EE(4) + EE(8)) * DELINT(6)\r\n      AK(12) = (EE(3) + EE(7)) * DELINT(6)\r\n      AK(13) = AK(3)\r\n      AK(14) = AK(9)\r\n      AK(15) = EE(6) * DELINT(3) + 2.0D0*EE(8) * DELINT(5)\r\n     1         + EE(16) * DELINT(6)\r\n      AK(16) = 0.0D0\r\n      AK(17) = EE(8) * DELINT(5) + EE(16) * DELINT(6)\r\n      AK(18) = EE(7) * DELINT(5) + EE(12) * DELINT(6)\r\n      AK(19) = 0.0D0\r\n      AK(20) = 0.0D0\r\n      AK(21) = 0.0D0\r\n      AK(22) = 0.0D0\r\n      AK(23) = 0.0D0\r\n      AK(24) = 0.0D0\r\n      AK(25) = AK(5)\r\n      AK(26) = AK(11)\r\n      AK(27) = AK(17)\r\n      AK(28) = 0.0D0\r\n      AK(29) = EE(16) * DELINT(6)\r\n      AK(30) = EE(12) * DELINT(6)\r\n      AK(31) = AK(6)\r\n      AK(32) = AK(12)\r\n      AK(33) = AK(18)\r\n      AK(34) = 0.0D0\r\n      AK(35) = AK(30)\r\n      AK(36) = EE(11) * DELINT(6)\r\nC\r\n      DO 600 I = 1,36\r\n      AK(I) = TWOPI * AK(I)\r\n  600 CONTINUE\r\nC\r\nC TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES\r\nC TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATD (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D )\r\n      CALL GMMATD (D  , 6, 6, 0, GAMBQ , 6, 6, 0, AK)\r\nC\r\nC\r\nC\r\nC ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE\r\nC\r\n      DO 700 I = 1,36\r\n      AKI(I) = 0.0D0\r\n  700 CONTINUE\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC\r\n      DO 800 I = 1,3\r\n      IF (ICS(I) .EQ. 0) GO TO 800\r\n      K = 9 * (I-1) + 1\r\n      CALL TRANSD (ICS(I) , D(K))\r\n  800 CONTINUE\r\nC\r\nC\r\nC\r\nC START THE LOOP FOR INSERTION OF THE THREE (6X6) MATRICES\r\nC INTO THE MASTER STIFFNESS MATRIX\r\nC\r\n      IR1  = 2 * IPP - 1\r\n      IAPP = 9 * (IPP-1) + 1\r\n      DO 900 I = 1,3\r\nC\r\nC PLACE THE APPROIATE (2X2) SUBMATRIX OF THE STIFFNESS MATRIX\r\nC IN A (3X3) MATRIX FOR TRANSFORMATION\r\nC\r\n      IC1 = 2 * I - 1\r\n      IRC = (IR1 - 1) * 6 + IC1\r\n      AKT(1) = AK(IRC)\r\n      AKT(2) = 0.0D0\r\n      AKT(3) = AK(IRC+1)\r\n      AKT(4) = 0.0D0\r\n      AKT(5) = 0.0D0\r\n      AKT(6) = 0.0D0\r\n      AKT(7) = AK(IRC+6)\r\n      AKT(8) = 0.0D0\r\n      AKT(9) = AK(IRC+7)\r\nC\r\nC TRANSFORM THE (3X3) STIFFNESS MATRIX\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 820\r\n      CALL GMMATD (D(IAPP) , 3, 3, 1, AKT(1) , 3, 3, 0, D(28) )\r\n      DO 810 J = 1,9\r\n      AKT(J) = D(J+27)\r\n  810 CONTINUE\r\n  820 CONTINUE\r\n      IF (ICS(I) .EQ. 0) GO TO 840\r\n      IAI = 9 * (I - 1) + 1\r\n      CALL GMMATD (AKT(1) , 3, 3, 0, D(IAI) , 3, 3, 0, D(28) )\r\n      DO 830 J = 1,9\r\n      AKT(J) = D(J+27)\r\n  830 CONTINUE\r\n  840 CONTINUE\r\nC\r\nC PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR\r\nC THE INSERTION ROUTINE\r\nC\r\n      J = 0\r\n      DO 850 J1 = 1,18,6\r\n      DO 850 J2 = 1,3\r\n      J = J + 1\r\n      K = J1 + J2 - 1\r\n      AKI(K) = AKT(J)\r\n  850 CONTINUE\r\nC\r\nC CALL THE INSERTION ROUTINE\r\nC\r\n      CALL SMA1B (AKI(1) , IGP(I), -1, IFKGG, 0.0D0)\r\n      IF (IOPT4 .EQ. 0 .OR. GSUBE .EQ. 0.0) GO TO 900\r\n      K4GGSW = 1\r\n      DAMPC = GSUBE\r\n      CALL SMA1B (AKI(1) , IGP(I) , -1,IF4GG , DAMPC )\r\n  900 CONTINUE\r\n      RETURN\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n  915 NOGO=1\r\n      RETURN\r\n  920 CALL MESAGE(30,26,IDEL)\r\n      GO TO 915\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ktrm6d.f",
    "content": "      SUBROUTINE KTRM6D\r\nC\r\nC     STIFFNESS SUBROUTINE FOR LINEAR STRAIN MEMBRANE ELEMENT\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     EST ENTRIES\r\nC\r\nC     EST( 1) = ELEMENT ID                              INTEGER\r\nC     EST( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1    INTEGER\r\nC     EST( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2    INTEGER\r\nC     EST( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3    INTEGER\r\nC     EST( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4    INTEGER\r\nC     EST( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5    INTEGER\r\nC     EST( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6    INTEGER\r\nC     EST( 8) = THETA                                   REAL\r\nC     EST( 9) = MATERIAL IDENTIFICATION NUMBER          INTEGER\r\nC     EST(10) = THICKNESS T1 AT GRID POINT 1            REAL\r\nC     EST(11) = THICKNESS T3 AT GRID POINT 3            REAL\r\nC     EST(12) = THICKNESS T5 AT GRID POINT 5            REAL\r\nC     EST(13) = NON-STRUCTURAL MASS                     REAL\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     EST(14) = COORDINATE SYSTEM ID FOR GRID POINT 1   INTEGER\r\nC     EST(15) = COORDINATE X1                           REAL\r\nC     EST(16) = COORDINATE Y1                           REAL\r\nC     EST(17) = COORDINATE Z1                           REAL\r\nC     EST(18) = COORDINATE SYSTEM ID FOR GRID POINT 2   INTEGER\r\nC     EST(19) = COORDINATE X2                           REAL\r\nC     EST(20) = COORDINATE Y2                           REAL\r\nC     EST(21) = COORDINATE Z2                           REAL\r\nC     EST(22) = COORDINATE SYSTEM ID FOR GRID POINT 3   INTEGER\r\nC     EST(23) = COORDINATE X3                           REAL\r\nC     EST(24) = COORDINATE Y3                           REAL\r\nC     EST(25) = COORDINATE Z3                           REAL\r\nC     EST(26) = COORDINATE SYSTEM ID FOR GRID POINT 4   INTEGER\r\nC     EST(27) = COORDINATE X4                           REAL\r\nC     EST(28) = COORDINATE Y4                           REAL\r\nC     EST(29) = COORDINATE Z4                           REAL\r\nC     EST(30) = COORDINATE SYSTEM ID FOR GRID POINT 5   INTEGER\r\nC     EST(31) = COORDINATE X5                           REAL\r\nC     EST(32) = COORDINATE Y5                           REAL\r\nC     EST(33) = COORDINATE Z5                           REAL\r\nC     EST(34) = COORDINATE SYSTEM ID FOR GRID POINT 6   INTEGER\r\nC     EST(35) = COORDINATE X6                           REAL\r\nC     EST(36) = COORDINATE Y6                           REAL\r\nC     EST(37) = COORDINATE Z6                           REAL\r\nC     EST(38) TO EST (43) = ELEMENT TEMPERATURES AT SIX GRID POINTS\r\nC\r\n      LOGICAL         IMASS,NOGO,UNIMEM\r\n      INTEGER         XU(12),YU(12),XV(12),YV(12),ELTYPE,ELID,ESTID,\r\n     1                DICT(11),SIL(6),SIL1,SIL2,SAVE(6),RK(3),SK(3),\r\n     2                IND(6,3),NAME(2),NL(6),PI,QI,PJ,QJ,PIMJ,PINJ,\r\n     3                PIPJ,PIQJ,QIMJ,QINJ,QIPJ,QIQJ,ICS(6),IEST(45)\r\n      REAL            NSM,CC(3),IVECT(3),JVECT(3),KVECT(3),XC(6),YC(6),\r\n     1                ZC(6),F(6,6)\r\n      DOUBLE PRECISION GK11(6,6),GK12(6,6),GK22(6,6),KTRMG(324),\r\n     1                GKT(12,12),KRT(9),KRT1(9),KTRM(12,12),Q(6,6),\r\n     2                E(6),TRAND(9),BALOTR(9),QINV(36),GKTRM(12,12),\r\n     3                ST,ST1,KTR1(3,3),G11,G12,G13,G22,G23,G33,\r\n     4                KSUB(2,2),KSUBT(3,2),KTR(3,3),RHO,DETERM\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /EMGEST/ EST (45)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      COMMON /BLANK / NOK,NOM\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      EQUIVALENCE     (A,DISTA),(B,DISTB),(C,DISTC),(CC(1),C1),\r\n     1                (CC(2),C2),(CC(3),C3),(KRT(1),KTR(1,1)),\r\n     2                (KRT1(1),KTR1(1,1)),(EST(1),IEST(1)),\r\n     3                (KSYSTM(2),IOUTPT),(GKT(1,1),GKTRM(1,1))\r\n      DATA    XU    / 0,1,0,2,1,0,6*0/ ,  YU / 0,0,1,0,1,2,6*0/\r\n      DATA    XV    / 6*0,0,1,0,2,1,0/ ,  YV / 6*0,0,0,1,0,1,2/\r\n      DATA    RK    / 0,1,0          / ,  SK / 0,0,1          /\r\n      DATA    DEGRA / 0.0174532925   / ,  BLANK / 4H          /\r\n      DATA    NAME  / 4HTRIM, 4H6    /\r\nC\r\nC     COMPONENT CODE,ICODE,IS  000111  AND HAS A VALUE OF 7\r\nC\r\n      ICODE   = 7\r\n      NDOF    = 18\r\n      NSQ     = NDOF**2\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      IPASS   = 1\r\n      IMASS   =.FALSE.\r\n      IF (NOM .GT. 0) IMASS = .TRUE.\r\nC\r\nC     ALLOCATE EST VALUES TO RESPECTIVE  LOCAL  VARIABLES\r\nC\r\n      IDELE = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST (8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\nC\r\nC     IF  TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      NSM = EST(13)\r\n      J   = 0\r\n      DO 120 I = 14,34,4\r\n      J   = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC (J) = EST(I+1)\r\n      YC (J) = EST(I+2)\r\n      ZC (J) = EST(I+3)\r\n  120 CONTINUE\r\n      ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     START ELEMENT CALCULATIONS FOR STIFFNESS MATRIX\r\nC\r\nC     EVALUATE  MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\nC     CALCULATIONS FOR THE  TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     FILL THE E-MATRIX\r\nC\r\n      E(1) = IVECT(1)\r\n      E(2) = JVECT(1)\r\n      E(3) = IVECT(2)\r\n      E(4) = JVECT(2)\r\n      E(5) = IVECT(3)\r\n      E(6) = JVECT(3)\r\nC\r\nC     COMPUTE THE F FUCTION, AND CONSTANTS C1, C2, AND C3 IN THE LINEAR\r\nC     EQUS. FOR THICKNESS VARIATION\r\nC\r\n      CALL AF (F,6,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0)\r\n      AREA = F(1,1)\r\n      VOL  = C1*F(1,1) + C2*F(2,1) + C3*F(1,2)\r\n      UNIMEM = .FALSE.\r\n      IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE.\r\nC\r\nC     CALCULATIONS FOR  Q MATRIX AND ITS INVERSE\r\nC\r\n      DO 200 I = 1,36\r\n      Q(I,1) = 0.0D0\r\n  200 CONTINUE\r\n      DO 210 I = 1,6\r\n      Q(I,1) = 1.0D0\r\n      Q(I,2) = XC(I)\r\n      Q(I,3) = YC(I)\r\n      Q(I,4) = XC(I)*XC(I)\r\n      Q(I,5) = XC(I)*YC(I)\r\n      Q(I,6) = YC(I)*YC(I)\r\n  210 CONTINUE\r\nC\r\nC     FIND INVERSE OF Q MATRIX\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,Q,6,QINV(1),0,DETERM,ISING,IND)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 904\r\nC\r\nC     GKTRM IS STIFFNESS MATRIX IN GENERALIZED CO-ORDINATES\r\nC     KTRM  IS STIFFNESS MATRIX IN ELEMENT CO-ORDINATES\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATIONS\r\nC\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\nC\r\nC     FORMULATION OF THE STIFFNESS MATRIX (FROM PROG. MANUAL,\r\nC     PAGE 8.24-7)\r\nC\r\n      DO 240 I = 1,12\r\n      MI   = XU(I)\r\n      NI   = YU(I)\r\n      PI   = XV(I)\r\n      QI   = YV(I)\r\n      DO 235 J = I,12\r\n      MJ   = XU(J)\r\n      NJ   = YU(J)\r\n      PJ   = XV(J)\r\n      QJ   = YV(J)\r\n      MIMJ = MI*MJ\r\n      MINJ = MI*NJ\r\n      MIPJ = MI*PJ\r\n      MIQJ = MI*QJ\r\n      NIMJ = NI*MJ\r\n      NINJ = NI*NJ\r\n      NIPJ = NI*PJ\r\n      NIQJ = NI*QJ\r\n      PIMJ = PI*MJ\r\n      PINJ = PI*NJ\r\n      PIPJ = PI*PJ\r\n      PIQJ = PI*QJ\r\n      QIMJ = QI*MJ\r\n      QINJ = QI*NJ\r\n      QIPJ = QI*PJ\r\n      QIQJ = QI*QJ\r\n      ST1  = 0.0D0\r\n      DO 225 K=1,3\r\n      KR   = RK(K)\r\n      KS   = SK(K)\r\n      ST   = 0.0D0\r\n      IF (MIMJ .GT. 0) ST=ST +G11*MIMJ *F(MI+MJ+KR-1,NI+NJ+KS+1)\r\n      IF (QIQJ .GT. 0) ST=ST +G22*QIQJ *F(PI+PJ+KR+1,QI+QJ+KS-1)\r\n      IF (NINJ .GT. 0) ST=ST +G33*NINJ *F(MI+MJ+KR+1,NI+NJ+KS-1)\r\n      IF (PIPJ .GT. 0) ST=ST +G33*PIPJ *F(PI+PJ+KR-1,QI+QJ+KS+1)\r\n      IF (PIMJ .GT. 0) ST=ST +G13*PIMJ *F(PI+MJ+KR-1,QI+NJ+KS+1)\r\n      IF (MIPJ .GT. 0) ST=ST +G13*MIPJ *F(MI+PJ+KR-1,NI+QJ+KS+1)\r\n      IF (NIQJ .GT. 0) ST=ST +G23*NIQJ *F(MI+PJ+KR+1,NI+QJ+KS-1)\r\n      IF (QINJ .GT. 0) ST=ST +G23*QINJ *F(PI+MJ+KR+1,QI+NJ+KS-1)\r\n      IF (NIPJ+MIQJ.GT.0) ST=ST+(G33*NIPJ+G12*MIQJ)*F(MI+PJ+KR,NI+QJ+KS)\r\n      IF (PINJ+QIMJ.GT.0) ST=ST+(G33*PINJ+G12*QIMJ)*F(PI+MJ+KR,QI+NJ+KS)\r\n      IF (NIMJ+MINJ.GT.0) ST=ST+ G13*(NIMJ+MINJ) *F(MI+MJ+KR,NI+NJ+KS)\r\n      IF (PIQJ+QIPJ.GT.0) ST=ST+ G23*(PIQJ+QIPJ) *F(PI+PJ+KR,QI+QJ+KS)\r\n      ST1 = ST1 + ST*CC(K)\r\n      IF (UNIMEM) GO TO 230\r\n  225 CONTINUE\r\n  230 GKT(I,J) = ST1\r\n      GKT(J,I) = ST1\r\n  235 CONTINUE\r\n  240 CONTINUE\r\nC\r\n      IF (IPASS .EQ. 1) GO TO 260\r\n  241 RHO = RHOY*1.0D0\r\n      DO 255 I = 1,12\r\n      DO 250 J = I,12\r\n      MIMJ = XU(I) + XU(J)\r\n      NINJ = YU(I) + YU(J)\r\n      GKT(I,J) = NSM*F(MIMJ+1,NINJ+1)\r\n      DO 245 K = 1,3\r\n      KR = RK(K)\r\n      KS = SK(K)\r\n      GKT(I,J) = GKT(I,J) + RHO*CC(K)*F(MIMJ+KR+1,NINJ+KS+1)\r\n  245 CONTINUE\r\n      GKT(J,I) = GKT(I,J)\r\n  250 CONTINUE\r\n  255 CONTINUE\r\nC\r\n  260 DO 265 I = 1,6\r\n      DO 265 J = 1,6\r\n      GK11(I,J) = GKTRM(J,I)\r\n      GK12(I,J) = GKTRM(J+6,I)\r\n      GK22(I,J) = GKTRM(J+6,I+6)\r\n  265 CONTINUE\r\n      CALL  GMMATD (Q,6,6,0,GK11,6,6,0,QINV)\r\n      CALL  GMMATD (QINV,6,6,0,Q,6,6,1,GK11)\r\n      CALL  GMMATD (Q,6,6,0,GK12,6,6,0,QINV)\r\n      CALL  GMMATD (QINV,6,6,0,Q,6,6,1,GK12)\r\n      CALL  GMMATD (Q,6,6,0,GK22,6,6,0,QINV)\r\n      CALL  GMMATD (QINV,6,6,0,Q,6,6,1,GK22)\r\n      DO 270 I = 1,6\r\n      DO 270 J = 1,6\r\n      GKTRM(I  ,J  ) = GK11(I,J)\r\n      GKTRM(I  ,J+6) = GK12(I,J)\r\n      GKTRM(I+6,J  ) = GK12(J,I)\r\n      GKTRM(I+6,J+6) = GK22(I,J)\r\n  270 CONTINUE\r\nC\r\nC     REORDER THE STIFFNESS MATRIX SO THAT THE DISPLACEMENTS OF A GRID\r\nC     POINT ARE ARRANGED CONSECUTIVELY\r\nC\r\n      DO 278 K = 1,6\r\n      DO 277 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 2*(K-1) + I\r\n      DO 276 J = 1,12\r\n      KTRM(I1,J) = GKTRM(K1,J)\r\n  276 CONTINUE\r\n  277 CONTINUE\r\n  278 CONTINUE\r\n      DO 288 K = 1,6\r\n      DO 287 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 2*(K-1) + I\r\n      DO 286 J = 1,12\r\n      GKTRM(J,I1) = KTRM(J,K1)\r\n  286 CONTINUE\r\n  287 CONTINUE\r\n  288 CONTINUE\r\nC\r\n  290 DO 301 I = 1,324\r\n      KTRMG(I) = 0.0D0\r\n  301 CONTINUE\r\n      IF (IPASS .LE. 2) GO TO 305\r\nC\r\nC     LUMPED MASS MATRIX, IN THREE DOFS, NOT TWO\r\nC     (SINCE LUMPED MASS IS AN INVARIANT, TRANSFORMATION IS NOT NEEDED)\r\nC\r\n      RHO   = RHOY*1.0D0\r\n      AMASS =(RHO*VOL+NSM*AREA)/6.\r\n      DO 302 I = 1,324,19\r\n      KTRMG(I) = AMASS\r\n  302 CONTINUE\r\n      IPASS = 2\r\n      GO TO 400\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM ELEMENT CO-ORDINATES\r\nC     TO BASIC CO-ORDINATES\r\nC\r\n  305 DO 310 I = 1,6\r\n      SAVE(I) = NL(I)\r\n  310 CONTINUE\r\n      DO 314 I = 1,6\r\n      SIL(I) = I\r\n      ISIL = NL(I)\r\n      DO 313 J = 1,6\r\n      IF (ISIL .LE. NL(J)) GO TO 312\r\n      SIL(I) = J\r\n      ISIL = NL(J)\r\n  312 CONTINUE\r\n  313 CONTINUE\r\n      ISI = SIL(I)\r\n      NL(ISI) = 1000000\r\n  314 CONTINUE\r\n      DO 316 I = 1,6\r\n      NL(I) = SAVE(I)\r\n  316 CONTINUE\r\n      DO 380 I = 1,6\r\n      SIL1 = SIL(I)\r\n      DO 375 J = I,6\r\n      SIL2 = SIL(J)\r\n      DO 320 II = 1,9\r\n      BALOTR(II) = 0.0D0\r\n  320 CONTINUE\r\n      DO 324 K = 1,2\r\n      K1 = (SIL1-1)*2 + K\r\n      DO 323 L = 1,2\r\n      L1 = (SIL2-1)*2 + L\r\n      KSUB(K,L) = GKTRM(K1,L1)\r\n  323 CONTINUE\r\n  324 CONTINUE\r\n      CALL GMMATD (E,3,2,0,KSUB,2,2,0,KSUBT)\r\n      CALL GMMATD (KSUBT,3,2,0,E,3,2,1,KTR )\r\n      DO 325 K = 1,3\r\n      DO 325 L = 1,3\r\n      K1 = (K-1)*3 + L\r\n      L1 = (L-1)*3 + K\r\n      KRT1(L1) = KRT(K1)\r\n  325 CONTINUE\r\nC\r\nC     TRANSFORM THE KTR1 FROM BASIC TO GLOBAL CO-ORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340\r\n      I1 = 4*SIL1 + 10\r\n      CALL TRANSD (IEST(I1),TRAND)\r\n      CALL GMMATD (TRAND(1),3,3,1,KTR1,3,3,0,KTR)\r\n      DO 330 K = 1,9\r\n      KRT1(K) = KRT(K)\r\n  330 CONTINUE\r\n  340 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 365\r\n      IF (J .EQ. I) GO TO 355\r\n      J1 = 4*SIL2 + 10\r\n      CALL TRANSD (IEST(J1),TRAND)\r\n  355 CONTINUE\r\n      CALL GMMATD (KTR1,3,3,0,TRAND,3,3,0,KTR)\r\n      DO 360 K = 1,9\r\n      KRT1(K) = KRT(K)\r\n  360 CONTINUE\r\n  365 CONTINUE\r\n      DO 370 II = 1,3\r\n      DO 370 JJ = 1,3\r\n      I1 = (I-1)*3 + II\r\n      J1 = (J-1)*3 + JJ\r\n      I1J1 = (I1-1)*18 + J1\r\n      J1I1 = (J1-1)*18 + I1\r\n      KTRMG(J1I1) = KTR1(JJ,II)\r\n      KTRMG(I1J1) = KTR1(JJ,II)\r\n  370 CONTINUE\r\n  375 CONTINUE\r\n  380 CONTINUE\r\nC\r\nC     CALL INSERTION ROUTINE\r\nC\r\n  400 CALL EMGOUT (KTRMG(1),KTRMG(1),324,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     GO TO 290 TO COMPUTE LUMPED MASS MATRIX\r\nC     GO TO 241 TO COMPUTE CONSIST.MASS MATRIX (THIS PATH DOES NOT WORK)\r\nC\r\n      IPASS = 3\r\n      CALL SSWTCH (46,J)\r\n      IF (J .EQ. 1) IPASS = 2\r\n      GO TO (905,241,290), IPASS\r\nC\r\nC     ERRORS\r\nC\r\n  904 CONTINUE\r\n      NOGO =.TRUE.\r\n      WRITE  (IOUTPT,2407) UFM,IEST(1)\r\n 2407 FORMAT (A23,' 2407, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRIM6 WITH ID',I9,1H.)\r\n  905 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrm6s.f",
    "content": "      SUBROUTINE KTRM6S\r\nC\r\nC     STIFFNESS MATRIX FOR TRIANGULAR MEMBRANE ELEMENT  TRIM6\r\nC     SINGLEPRECISION VERSION\r\nC\r\nC     EST ENTRIES\r\nC\r\nC     EST( 1) = ELEMENT ID                              INTEGER\r\nC     EST( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1    INTEGER\r\nC     EST( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2    INTEGER\r\nC     EST( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3    INTEGER\r\nC     EST( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4    INTEGER\r\nC     EST( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5    INTEGER\r\nC     EST( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6    INTEGER\r\nC     EST( 8) = THETA                                   REAL\r\nC     EST( 9) = MATERIAL IDENTIFICATION NUMBER          INTEGER\r\nC     EST(10) = THICKNESS T1 AT GRID POINT 1            REAL\r\nC     EST(11) = THICKNESS T3 AT GRID POINT 3            REAL\r\nC     EST(12) = THICKNESS T5 AT GRID POINT 5            REAL\r\nC     EST(13) = NON-STRUCTURAL MASS                     REAL\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     EST(14) = COORDINATE SYSTEM ID FOR GRID POINT 1   INTEGER\r\nC     EST(15) = COORDINATE X1                           REAL\r\nC     EST(16) = COORDINATE Y1                           REAL\r\nC     EST(17) = COORDINATE Z1                           REAL\r\nC     EST(18) = COORDINATE SYSTEM ID FOR GRID POINT 2   INTEGER\r\nC     EST(19) = COORDINATE X2                           REAL\r\nC     EST(20) = COORDINATE Y2                           REAL\r\nC     EST(21) = COORDINATE Z2                           REAL\r\nC     EST(22) = COORDINATE SYSTEM ID FOR GRID POINT 3   INTEGER\r\nC     EST(23) = COORDINATE X3                           REAL\r\nC     EST(24) = COORDINATE Y3                           REAL\r\nC     EST(25) = COORDINATE Z3                           REAL\r\nC     EST(26) = COORDINATE SYSTEM ID FOR GRID POINT 4   INTEGER\r\nC     EST(27) = COORDINATE X4                           REAL\r\nC     EST(28) = COORDINATE Y4                           REAL\r\nC     EST(29) = COORDINATE Z4                           REAL\r\nC     EST(30) = COORDINATE SYSTEM ID FOR GRID POINT 5   INTEGER\r\nC     EST(31) = COORDINATE X5                           REAL\r\nC     EST(32) = COORDINATE Y5                           REAL\r\nC     EST(33) = COORDINATE Z5                           REAL\r\nC     EST(34) = COORDINATE SYSTEM ID FOR GRID POINT 6   INTEGER\r\nC     EST(35) = COORDINATE X6                           REAL\r\nC     EST(36) = COORDINATE Y6                           REAL\r\nC     EST(37) = COORDINATE Z6                           REAL\r\nC     EST(38) TO EST (43) = ELEMENT TEMPERATURES AT SIX GRID POINTS\r\nC\r\n      LOGICAL         IMASS,NOGO,UNIMEM\r\n      INTEGER         XU(12),YU(12),XV(12),YV(12),ELTYPE,ELID,ESTID,\r\n     1                DICT(11),SIL(6),SIL1,SIL2,SAVE(6),RK(3),SK(3),PI,\r\n     2                QI,PJ,QJ,PIMJ,PINJ,PIPJ,PIQJ,QIMJ,QINJ,QIPJ,QIQJ\r\n      REAL            IVECT(3),JVECT(3),KVECT(3),KTRM(12,12),KSUB(2,2),\r\n     1                KSUBT(3,2),KTR(3,3),KTR1(3,3),KTRMG(324),KRT(9),\r\n     2                KRT1(9)\r\n      REAL            NSM,GKT(12,12)\r\n      DIMENSION       F(6,6),XC(6),YC(6),ZC(6),Q(6,6),E(6),TRAND(9),\r\n     1                BALOTR(9),QINV(36),GKTRM(12,12),GK11(6,6),\r\n     2                GK12(6,6),GK22(6,6)\r\n      DIMENSION       IND(6,3),NAME(2),ICS(6),IEST(45),NL(6),CC(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO\r\n      COMMON /BLANK / NOK,NOM\r\n      COMMON /EMGEST/ EST (45)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(GKT(1,1),GKTRM(1,1)),\r\n     1                (EST(1),IEST(1)),(A,DISTA),(B,DISTB),(C,DISTC),\r\n     2                (CC(1),C1),(CC(2),C2),(CC(3),C3),\r\n     3                (KRT(1),KTR(1,1)),(KRT1(1),KTR1(1,1))\r\n      DATA    XU    / 0,1,0,2,1,0,6*0/ ,  YU / 0,0,1,0,1,2,6*0/\r\n      DATA    XV    / 6*0,0,1,0,2,1,0/ ,  YV / 6*0,0,0,1,0,1,2/\r\n      DATA    RK    / 0,1,0          / ,  SK / 0,0,1          /\r\n      DATA    DEGRA / 0.0174532925   / ,  BLANK / 4H          /\r\n      DATA    NAME  / 4HTRIM, 4H6    /\r\nC\r\nC     COMPONENT CODE,ICODE,IS  000111  AND HAS A VALUE OF 7\r\nC\r\n      ICODE   = 7\r\n      NDOF    = 18\r\n      NSQ     = NDOF**2\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      IPASS   = 1\r\n      IMASS   =.FALSE.\r\n      IF (NOM .GT. 0) IMASS = .TRUE.\r\nC\r\nC     ALLOCATE EST VALUES TO RESPECTIVE  LOCAL  VARIABLES\r\nC\r\n      IDELE  = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\nC\r\nC     IF  TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\nC\r\n      NSM = EST(13)\r\n      J   = 0\r\n      DO 120 I = 14,34,4\r\n      J   = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC (J) = EST(I+1)\r\n      YC (J) = EST(I+2)\r\n      ZC (J) = EST(I+3)\r\n  120 CONTINUE\r\n      ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     START ELEMENT CALCULATIONS FOR STIFFNESS MATRIX\r\nC\r\nC     EVALUATE  MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\nC     CALCULATIONS FOR THE  TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     FILL THE E-MATRIX\r\nC\r\n      E(1) = IVECT(1)\r\n      E(2) = JVECT(1)\r\n      E(3) = IVECT(2)\r\n      E(4) = JVECT(2)\r\n      E(5) = IVECT(3)\r\n      E(6) = JVECT(3)\r\nC\r\nC     COMPUTE THE F FUCTION, AND CONSTANTS C1, C2, AND C3 IN THE LINEAR\r\nC     EQUS. FOR THICKNESS VARIATION\r\nC\r\n      CALL AF (F,6,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0)\r\n      AREA = F(1,1)\r\n      VOL  = C1*F(1,1) + C2*F(2,1) + C3*F(1,2)\r\n      UNIMEM = .FALSE.\r\n      IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE.\r\nC\r\nC     CALCULATIONS FOR  Q MATRIX AND ITS INVERSE\r\nC\r\n      DO 200 I = 1,36\r\n      Q(I,1) = 0.0\r\n  200 CONTINUE\r\n      DO 210 I = 1,6\r\n      Q(I,1) = 1.0\r\n      Q(I,2) = XC(I)\r\n      Q(I,3) = YC(I)\r\n      Q(I,4) = XC(I)*XC(I)\r\n      Q(I,5) = XC(I)*YC(I)\r\n      Q(I,6) = YC(I)*YC(I)\r\n  210 CONTINUE\r\nC\r\nC     FIND INVERSE OF Q MATRIX\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,QINV(1),0,DETERM,ISING,IND)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 904\r\nC\r\nC     GKTRM IS STIFFNESS MATRIX IN GENERALIZED CO-ORDINATES.\r\nC     KTRM  IS STIFFNESS MATRIX IN ELEMENT CO-ORDINATES.\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATIONS\r\nC\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\nC\r\nC     FORMULATION OF THE STIFFNESS MATRIX (FROM PROG. MANUAL,\r\nC     PAGE 8.24-7)\r\nC\r\n      DO 240 I = 1,12\r\n      MI   = XU(I)\r\n      NI   = YU(I)\r\n      PI   = XV(I)\r\n      QI   = YV(I)\r\n      DO 235 J = I,12\r\n      MJ   = XU(J)\r\n      NJ   = YU(J)\r\n      PJ   = XV(J)\r\n      QJ   = YV(J)\r\n      MIMJ = MI*MJ\r\n      MINJ = MI*NJ\r\n      MIPJ = MI*PJ\r\n      MIQJ = MI*QJ\r\n      NIMJ = NI*MJ\r\n      NINJ = NI*NJ\r\n      NIPJ = NI*PJ\r\n      NIQJ = NI*QJ\r\n      PIMJ = PI*MJ\r\n      PINJ = PI*NJ\r\n      PIPJ = PI*PJ\r\n      PIQJ = PI*QJ\r\n      QIMJ = QI*MJ\r\n      QINJ = QI*NJ\r\n      QIPJ = QI*PJ\r\n      QIQJ = QI*QJ\r\n      ST1  = 0.0\r\n      DO 225 K = 1,3\r\n      KR   = RK(K)\r\n      KS   = SK(K)\r\n      ST   = 0.0\r\n      IF (MIMJ .GT. 0) ST=ST + G11*MIMJ *F(MI+MJ+KR-1,NI+NJ+KS+1)\r\n      IF (QIQJ .GT. 0) ST=ST + G22*QIQJ *F(PI+PJ+KR+1,QI+QJ+KS-1)\r\n      IF (NINJ .GT. 0) ST=ST + G33*NINJ *F(MI+MJ+KR+1,NI+NJ+KS-1)\r\n      IF (PIPJ .GT. 0) ST=ST + G33*PIPJ *F(PI+PJ+KR-1,QI+QJ+KS+1)\r\n      IF (PIMJ .GT. 0) ST=ST + G13*PIMJ *F(PI+MJ+KR-1,QI+NJ+KS+1)\r\n      IF (MIPJ .GT. 0) ST=ST + G13*MIPJ *F(MI+PJ+KR-1,NI+QJ+KS+1)\r\n      IF (NIQJ .GT. 0) ST=ST + G23*NIQJ *F(MI+PJ+KR+1,NI+QJ+KS-1)\r\n      IF (QINJ .GT. 0) ST=ST + G23*QINJ *F(PI+MJ+KR+1,QI+NJ+KS-1)\r\n      IF (NIPJ+MIQJ.GT.0) ST=ST+(G33*NIPJ+G12*MIQJ)*F(MI+PJ+KR,NI+QJ+KS)\r\n      IF (PINJ+QIMJ.GT.0) ST=ST+(G33*PINJ+G12*QIMJ)*F(PI+MJ+KR,QI+NJ+KS)\r\n      IF (NIMJ+MINJ.GT.0) ST=ST+ G13*(NIMJ+MINJ) *F(MI+MJ+KR,NI+NJ+KS)\r\n      IF (PIQJ+QIPJ.GT.0) ST=ST+ G23*(PIQJ+QIPJ) *F(PI+PJ+KR,QI+QJ+KS)\r\n      ST1 = ST1 + ST*CC(K)\r\n      IF (UNIMEM) GO TO 230\r\n  225 CONTINUE\r\n  230 GKT(I,J) = ST1\r\n      GKT(J,I) = ST1\r\n  235 CONTINUE\r\n  240 CONTINUE\r\nC\r\n      IF (IPASS .EQ. 1) GO TO 260\r\n  241 RHO = RHOY\r\n      DO 255 I = 1,12\r\n      DO 250 J = I,12\r\n      MIMJ = XU(I) + XU(J)\r\n      NINJ = YU(I) + YU(J)\r\n      GKT(I,J) = NSM*F(MIMJ+1,NINJ+1)\r\n      DO 245 K = 1,3\r\n      KR = RK(K)\r\n      KS = SK(K)\r\n      GKT(I,J) = GKT(I,J) + RHO*CC(K)*F(MIMJ+KR+1,NINJ+KS+1)\r\n  245 CONTINUE\r\n      GKT(J,I) = GKT(I,J)\r\n  250 CONTINUE\r\n  255 CONTINUE\r\nC\r\n  260 DO 265 I = 1,6\r\n      DO 265 J = 1,6\r\n      GK11(I,J) = GKTRM(J  ,I  )\r\n      GK12(I,J) = GKTRM(J+6,I  )\r\n      GK22(I,J) = GKTRM(J+6,I+6)\r\n  265 CONTINUE\r\n      CALL  GMMATS (Q,6,6,0,GK11,6,6,0,QINV)\r\n      CALL  GMMATS (QINV,6,6,0,Q,6,6,1,GK11)\r\n      CALL  GMMATS (Q,6,6,0,GK12,6,6,0,QINV)\r\n      CALL  GMMATS (QINV,6,6,0,Q,6,6,1,GK12)\r\n      CALL  GMMATS (Q,6,6,0,GK22,6,6,0,QINV)\r\n      CALL  GMMATS (QINV,6,6,0,Q,6,6,1,GK22)\r\n      DO 270 I = 1,6\r\n      DO 270 J = 1,6\r\n      GKTRM(I  ,J  ) = GK11(I,J)\r\n      GKTRM(I  ,J+6) = GK12(I,J)\r\n      GKTRM(I+6,J  ) = GK12(J,I)\r\n      GKTRM(I+6,J+6) = GK22(I,J)\r\n  270 CONTINUE\r\nC\r\nC     REORDER THE STIFFNESS MATRIX SO THAT THE DISPLACEMENTS OF A GRID\r\nC     POINT ARE ARRANGED CONSECUTIVELY\r\nC\r\n      DO 278 K = 1,6\r\n      DO 277 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 2*(K-1) + I\r\n      DO 276 J = 1,12\r\n      KTRM(I1,J) = GKTRM(K1,J)\r\n  276 CONTINUE\r\n  277 CONTINUE\r\n  278 CONTINUE\r\n      DO 288 K = 1,6\r\n      DO 287 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 2*(K-1) + I\r\n      DO 286 J = 1,12\r\n      GKTRM(J,I1) = KTRM(J,K1)\r\n  286 CONTINUE\r\n  287 CONTINUE\r\n  288 CONTINUE\r\nC\r\n  290 DO 301 I = 1,324\r\n      KTRMG(I) = 0.0\r\n  301 CONTINUE\r\n      IF (IPASS .LE. 2) GO TO 305\r\nC\r\nC     LUMPED MASS MATRIX, IN THREE DOFS, NOT TWO\r\nC     (SINCE LUMPED MASS IS AN INVARIANT, TRANSFORMATION IS NOT NEEDED)\r\nC\r\n      RHO   = RHOY\r\n      AMASS = (RHO*VOL+NSM*AREA)/6.\r\n      DO 302 I = 1,324,19\r\n      KTRMG(I) = AMASS\r\n  302 CONTINUE\r\n      IPASS = 2\r\n      GO TO 400\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM ELEMENT CO-ORDINATES\r\nC     TO BASIC CO-ORDINATES\r\nC\r\n  305 DO 310 I = 1,6\r\n      SAVE(I) = NL(I)\r\n  310 CONTINUE\r\n      DO 314 I = 1,6\r\n      SIL(I) = I\r\n      ISIL = NL(I)\r\n      DO 313 J = 1,6\r\n      IF (ISIL .LE. NL(J)) GO TO 312\r\n      SIL(I) = J\r\n      ISIL = NL(J)\r\n  312 CONTINUE\r\n  313 CONTINUE\r\n      ISI = SIL(I)\r\n      NL (ISI) = 1000000\r\n  314 CONTINUE\r\n      DO 316 I = 1,6\r\n      NL(I) = SAVE(I)\r\n  316 CONTINUE\r\n      DO 380 I = 1,6\r\n      SIL1 = SIL(I)\r\n      DO 375 J = I,6\r\n      SIL2 = SIL(J)\r\n      DO 320 II = 1,9\r\n      BALOTR(II) = 0.0\r\n  320 CONTINUE\r\n      DO 324 K = 1,2\r\n      K1 = (SIL1-1)*2 + K\r\n      DO 323 L = 1,2\r\n      L1 = (SIL2-1)*2 + L\r\n      KSUB(K,L) = GKTRM(K1,L1)\r\n  323 CONTINUE\r\n  324 CONTINUE\r\n      CALL GMMATS (E,3,2,0,KSUB,2,2,0,KSUBT)\r\n      CALL GMMATS (KSUBT,3,2,0,E,3,2,1,KTR )\r\n      DO 325 K = 1,3\r\n      DO 325 L = 1,3\r\n      K1 = (K-1)*3 + L\r\n      L1 = (L-1)*3 + K\r\n      KRT1(L1) = KRT(K1)\r\n  325 CONTINUE\r\nC\r\nC     TRANSFORM THE KTR1 FROM BASIC TO GLOBAL CO-ORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340\r\n      I1 = 4*SIL1 + 10\r\n      CALL TRANSS (IEST(I1),TRAND)\r\n      CALL GMMATS (TRAND(1),3,3,1,KTR1,3,3,0,KTR)\r\n      DO 330 K = 1,9\r\n      KRT1(K) = KRT(K)\r\n  330 CONTINUE\r\n  340 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 365\r\n      IF (J .EQ. I) GO TO 355\r\n      J1 = 4*SIL2 + 10\r\n      CALL TRANSS (IEST(J1),TRAND)\r\n  355 CONTINUE\r\n      CALL GMMATS (KTR1,3,3,0,TRAND,3,3,0,KTR)\r\n      DO 360 K = 1,9\r\n      KRT1(K) = KRT(K)\r\n  360 CONTINUE\r\n  365 CONTINUE\r\n      DO 370 II = 1,3\r\n      DO 370 JJ = 1,3\r\n      I1   = (I-1)*3 + II\r\n      J1   = (J-1)*3 + JJ\r\n      I1J1 = (I1-1)*18 + J1\r\n      J1I1 = (J1-1)*18 + I1\r\n      KTRMG(J1I1) = KTR1(JJ,II)\r\n      KTRMG(I1J1) = KTR1(JJ,II)\r\n  370 CONTINUE\r\n  375 CONTINUE\r\n  380 CONTINUE\r\nC\r\nC     CALL INSERTION ROUTINE\r\nC\r\n  400 CALL EMGOUT (KTRMG(1),KTRMG(1),324,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     GO TO 290 TO COMPUTE LUMPED  MASS MATRIX\r\nC     GO TO 241 TO COMPUTE CONSIST.MASS MATRIX (THIS PATH DOES NOT WORK)\r\nC\r\n      IPASS = 3\r\n      GO TO (905,241,290), IPASS\r\nC\r\nC     ERRORS\r\nC\r\n  904 CONTINUE\r\n      NOGO = .TRUE.\r\n      WRITE  (IOUTPT,2407) UFM,IEST(1)\r\n 2407 FORMAT (A23,' 2407, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRIM6 WITH ID',I9,1H.)\r\n  905 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrmem.f",
    "content": "      SUBROUTINE KTRMEM (NTYPE)\r\nC\r\nC     TRIANGULAR MEMBRANE ELEMENT\r\nC\r\nC     IF NTYPE = 0 COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC     IF NTYPE = 1 RETURN 3 TRANSFORMED  3X3 MATRICES ONLY FOR THE PIVOT\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO -\r\nC\r\nC     MAT    - MATERIAL DATA ROUTINE\r\nC     SMA1B  - INSERTION ROUTINE\r\nC     TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER\r\nC     GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      LOGICAL          HEAT\r\n      INTEGER          NECPT(6)\r\n      REAL             ECPT(21),MATBUF\r\n      DOUBLE PRECISION TEMPAR,C,E,TI,TEMP,G(9),XSUBC,VOL,XSUBB,YSUBC,\r\n     1                 REELMU,FLAMDA,DELTA,KIJ,TT(2)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /SMA1IO/  DUM1(10),IFKGG,DUM2(1),IF4GG,DUM3(23)\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,DUMCL(7),LINK(10),IDETCK,\r\n     1                 DODET,NOGO\r\n      COMMON /SMA1HT/  HEAT\r\n      COMMON /SMA1ET/  MECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1,\r\n     1                 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222\r\n      COMMON /SMA1DP/  KIJ(36),C(18),E(9),TEMPAR(27),TI(9),TEMP,\r\n     1                 XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA,\r\n     2                 KA,NPOINT,NSAVE,DUMMY(382)\r\n      COMMON /HMTOUT/  MATBUF(4)\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(G(1),TEMPAR(19)),\r\n     1                 (ECPT(1),MECPT(1),NECPT(1))\r\nC\r\nC     ECPT LIST\r\nC                                                      THIS\r\nC     ECPT       DESCRIPTION                         ROUTINE    TYPE\r\nC     ======================================         ========  =======\r\nC     ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC     ECPT( 7) = T                                   T         REAL\r\nC     ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC     ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC     ECPT(10) = X1                                  X1        REAL\r\nC     ECPT(11) = Y1                                  Y1        REAL\r\nC     ECPT(12) = Z1                                  Z1        REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC     ECPT(14) = X2                                  X2        REAL\r\nC     ECPT(15) = Y2                                  Y2        REAL\r\nC     ECPT(16) = Z2                                  Z2        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC     ECPT(18) = X3                                  X3        REAL\r\nC     ECPT(19) = Y3                                  Y3        REAL\r\nC     ECPT(20) = Z3                                  Z3        REAL\r\nC     ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\nC\r\n      E(1) = DBLE(X2) - DBLE(X1)\r\n      E(3) = DBLE(Y2) - DBLE(Y1)\r\n      E(5) = DBLE(Z2) - DBLE(Z1)\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2)\r\n      IF (XSUBB .GT. 1.0D-06) GO TO 20\r\n      CALL MESAGE (30,31,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n   20 E(1) = E(1)/XSUBB\r\n      E(3) = E(3)/XSUBB\r\n      E(5) = E(5)/XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = DBLE(X3) - DBLE(X1)\r\n      E(4) = DBLE(Y3) - DBLE(Y1)\r\n      E(6) = DBLE(Z3) - DBLE(Z1)\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA),  THUS\r\nC\r\n      XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3)*E(6) - E(5)*E(4)\r\n      E(8) = E(5)*E(2) - E(1)*E(6)\r\n      E(9) = E(1)*E(4) - E(3)*E(2)\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2)\r\n      IF (YSUBC .GT. 1.0D-06) GO TO 25\r\n      CALL MESAGE (30,32,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   25 E(7) = E(7)/YSUBC\r\n      E(8) = E(8)/YSUBC\r\n      E(9) = E(9)/YSUBC\r\nC\r\nC     J VECTOR = K CROSS I\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5)*E(8) - E(3)*E(9)\r\n      E(4) = E(1)*E(9) - E(5)*E(7)\r\n      E(6) = E(3)*E(7) - E(1)*E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\nC\r\n      TEMP = DSQRT(E(2)**2 + E(4)**2 + E(6)**2)\r\n      IF (TEMP .NE. 0.0D0) GO TO 26\r\n      CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   26 CONTINUE\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      VOL = XSUBB*YSUBC*DBLE(T)/2.0D0\r\n      REELMU = 1.0D0/XSUBB\r\n      FLAMDA = 1.0D0/YSUBC\r\n      DELTA  = XSUBC/XSUBB - 1.0D0\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC         CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS\r\nC         CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS\r\nC         CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0D0\r\n      C(3)  =  0.0D0\r\n      C(4)  =  FLAMDA*DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0D0\r\n      C(9)  =  0.0D0\r\n      C(10) = -FLAMDA*REELMU*XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0D0\r\n      C(14) =  0.0D0\r\n      C(15) =  0.0D0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0D0\r\nC\r\n      IF (NTYPE .EQ. 1) GO TO 30\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     BRANCH ON -HEAT- PROBLEM AT THIS POINT.\r\nC\r\n      IF (HEAT) GO TO 1010\r\n      ELTEMP = ECPT(21)\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\n      IF (NOGO .EQ. 1) RETURN\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC     AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ\r\nC\r\nC                    T         T     T\r\nC       K   = VOL . T *E*C *G*C *E *T\r\nC        IJ          I         I  J  J\r\nC\r\nC     T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE\r\nC     SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE\r\nC     IDENTITY MATRIX.\r\nC\r\nC     THE I SUBSCRIPT IMPLIES THE PIVOT POINT  1,2, OR 3 (ELEMENT SYST)\r\nC     THE J SUBSCRIPT IMPLIES  1 THRU 3  FOR EACH CALL TO THIS ROUTINE.\r\nC\r\nC\r\nC     FIRST LOCATE WHICH POINT IS THE PIVOT\r\nC\r\nC\r\n      DO 100 I = 1,3\r\n      IF (NGRID(I) .NE. NPVT) GO TO 100\r\n      KA = 4*I + 5\r\n      NPOINT = 6*I - 5\r\n      GO TO 150\r\n  100 CONTINUE\r\nC\r\nC     FALLING THRU ABOVE LOOP INDICATES THE PIVOT POINT SPECIFIED BY\r\nC     NPVT WAS NOT FOUND EQUAL TO ANY OF THE 3 GRID POINTS IN THE ECPT\r\nC     THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC                     T\r\nC     COMPUTE   E*C *G       AND STORE IN TEMPAR (1 THRU 9)\r\nC                  I\r\nC\r\n  150 CALL GMMATD (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10))\r\n      CALL GMMATD (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1))\r\nC\r\nC     NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE\r\nC     NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9\r\nC\r\n      NCOM = 1\r\n      NPT1 = 10\r\nC\r\nC     MULTIPLY COMMON PRODUCT BY SCALER VOL\r\nC\r\n      DO 90 I = 1,9\r\n   90 TEMPAR(I) = TEMPAR(I)*VOL\r\nC\r\nC     CHECK FOR PIVOT  CSID = 0,  IF ZERO SKIP TRANSFORMATION TSUBI.\r\nC\r\n      IF (NECPT(KA) .EQ. 0) GO TO 80\r\nC\r\nC     NOT-ZERO THUS GET TI\r\nC\r\n      CALL TRANSD (NECPT(KA),TI)\r\nC\r\nC     INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT\r\nC     TEMPAR (10 THRU 18)\r\nC\r\n      CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10))\r\nC\r\nC     COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1\r\nC\r\n      NCOM = 10\r\n      NPT1 =  1\r\nC\r\nC     NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM),  (3X3).\r\nC     NPT1 POINTS TO FREE WORKING SPACE LENGTH 9.\r\nC\r\nC     PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3.\r\nC\r\nC     FIRST ZERO OUT (6 X 6) K\r\nC                             IJ\r\nC\r\n   80 NSAVE = NPT1\r\n      DO 700 I = 1,36\r\n  700 KIJ(I) = 0.0D0\r\n      NPOINT = 0\r\nC\r\n      DO 500 I = 1,3\r\n      CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE))\r\nC\r\nC                                                                  T\r\nC     NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT  C *E *T\r\nC                                                            J     J\r\n      NPT2 = NSAVE\r\n      NPT1 = 19\r\nC\r\nC     CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED\r\nC\r\n      IF (NECPT(4*I+5) .EQ. 0) GO TO 60\r\nC\r\nC     COMMING HERE IMPLIES NEED FOR TJ\r\nC     WILL STORE TJ IN TI\r\nC\r\n      CALL TRANSD (NECPT(4*I+5),TI)\r\n      CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19))\r\n      NPT1 = NPT2\r\n      NPT2 = 19\r\nC\r\nC     AT THIS POINT COMPLETE COMPUTATION FOR  K-SUB-I,J\r\nC\r\n   60 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1))\r\nC\r\n      IF (NTYPE .EQ. 0) GO TO 95\r\n      DO 96 J = 1,9\r\n      NPOINT = NPOINT + 1\r\n      NPT2 = NPT1 + J - 1\r\n   96 KIJ(NPOINT) = TEMPAR(NPT2)\r\n      GO TO 500\r\nC\r\n   95 KIJ( 1) = TEMPAR(NPT1    )\r\n      KIJ( 2) = TEMPAR(NPT1 + 1)\r\n      KIJ( 3) = TEMPAR(NPT1 + 2)\r\n      KIJ( 7) = TEMPAR(NPT1 + 3)\r\n      KIJ( 8) = TEMPAR(NPT1 + 4)\r\n      KIJ( 9) = TEMPAR(NPT1 + 5)\r\n      KIJ(13) = TEMPAR(NPT1 + 6)\r\n      KIJ(14) = TEMPAR(NPT1 + 7)\r\n      KIJ(15) = TEMPAR(NPT1 + 8)\r\nC\r\n      CALL SMA1B (KIJ(1),NECPT(I+1),-1,IFKGG,0.0D0)\r\n      TEMP = G SUB E\r\n      IF (IOPT4) 501,500,501\r\n  501 IF (GSUBE) 502,500,502\r\n  502 CALL SMA1B (KIJ(1),NECPT(I+1),-1,IF4GG,TEMP)\r\n      K4GGSW = 1\r\nC\r\n  500 CONTINUE\r\n      RETURN\r\nC\r\nC     HEAT PROBLEM LOGIC PICKS UP HERE.  CALL HMAT FOR MATERIAL DATA.\r\nC\r\n 1010 INFLAG = 2\r\n      MATID  = NECPT(6)\r\n      ELTEMP = ECPT(21)\r\n      CALL HMAT (NECPT)\r\n      G(1) = MATBUF(1)\r\n      G(2) = MATBUF(2)\r\n      G(3) = MATBUF(2)\r\n      G(4) = MATBUF(3)\r\nC\r\nC     CONDENSE C MATRIX FOR HEAT PROBLEM (FORMED ABOVE)  C IS (2X3)\r\nC\r\n      C(2) = C(4)\r\n      C(3) = C(7)\r\n      C(4) = C(10)\r\n      C(5) = C(13)\r\n      C(6) = C(16)\r\nC\r\nC     DETERMINE THE PIVOT POINT.\r\nC\r\n      DO 1030 I = 1,3\r\n      IF (NGRID(I) .EQ. NPVT) GO TO 1060\r\n 1030 CONTINUE\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC     PIVOT C MATRIX TIMES VOLUME (STORED INTO TT(1) AND TT(2).)\r\nC\r\n 1060 TT(1) = VOL*C(2*I-1)\r\n      TT(2) = VOL*C(2*I  )\r\nC\r\nC     OUTPUT THE CONDUCTIVITY MATRICES\r\nC\r\n      K = 36\r\n      IF (NTYPE .NE. 0) K = 27\r\n      DO 1070 I = 1,K\r\n 1070 KIJ(I) = 0.0D0\r\n      NPOINT = 0\r\nC\r\n      DO 1100 I = 1,3\r\n      N2 = 2*I\r\n      N1 = N2 - 1\r\n      TEMPAR(1) = (G(1)*C(N1) + G(2)*C(N2))*TT(1)  +\r\n     1            (G(3)*C(N1) + G(4)*C(N2))*TT(2)\r\n      IF (NTYPE) 1080,1090,1080\r\nC\r\nC     SUB-TRIANGLE (RETURN 3X3-S AS ABOVE IN STIFFNESS PORTION)\r\nC\r\n 1080 KIJ(NPOINT+1) = TEMPAR(1)\r\n      NPOINT = NPOINT + 9\r\n      GO TO 1100\r\nC\r\nC     TRIANGLE BY ITSELF\r\nC\r\n 1090 CALL SMA1B (TEMPAR(1),NECPT(I+1),NPVT,IFKGG,0.0D0)\r\n 1100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrpld.f",
    "content": "      SUBROUTINE KTRPLD\r\nC\r\nC     STIFFNESS SUBROUTINE FOR HIGHER ORDER PLATE ELEMENT CTRPLT1\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                   INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1         INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2         INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3         INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4         INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5         INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6         INTEGER\r\nC     ECPT( 8) = THETA                                        REAL\r\nC     ECPT( 9) = MATERIAL ID 1                                INTEGER\r\nC     ECPT(10) = AREA MOMENT OF INERTIA R1 AT GRID POINT 1    REAL\r\nC     ECPT(11) = AREA MOMENT OF INERTIA R3 AT GRID POINT 3    REAL\r\nC     ECPT(12) = AREA MOMENT OF INERTIA R5 AT GRID POINT 5    REAL\r\nC     ECPT(13) = MATERIAL ID 2                                INTEGER\r\nC     ECPT(14) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT      REAL\r\nC                 GRID POINT 1\r\nC     ECPT(15) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT      REAL\r\nC                 GRID POINT 3\r\nC     ECPT(16) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT      REAL\r\nC                 GRID POINT 5\r\nC     ECPT(17) = NON-STRUCTURAL MASS                          REAL\r\nC     ECPT(18) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID 1\r\nC     ECPT(19) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID 1\r\nC     ECPT(20) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID 3\r\nC     ECPT(21) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID 3\r\nC     ECPT(22) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID 5\r\nC     ECPT(23) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID 5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(24) = COORDINATE SYSTEM ID FOR GRID A              INTEGER\r\nC     ECPT(25) = COORDINATE X1                                REAL\r\nC     ECPT(26) = COORDINATE Y1                                REAL\r\nC     ECPT(27) = COORDINATE Z1                                REAL\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID B              INTEGER\r\nC     ECPT(29) = COORDINATE X1                                REAL\r\nC     ECPT(30) = COORDINATE Y1                                REAL\r\nC     ECPT(31) = COORDINATE Z1                                REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID C              INTEGER\r\nC     ECPT(33) = COORDINATE X1                                REAL\r\nC     ECPT(34) = COORDINATE Y1                                REAL\r\nC     ECPT(35) = COORDINATE Z1                                REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID D              INTEGER\r\nC     ECPT(37) = COORDINATE X1                                REAL\r\nC     ECPT(38) = COORDINATE Y1                                REAL\r\nC     ECPT(39) = COORDINATE Z1                                REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID E              INTEGER\r\nC     ECPT(41) = COORDINATE X1                                REAL\r\nC     ECPT(42) = COORDINATE Y1                                REAL\r\nC     ECPT(43) = COORDINATE Z1                                REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID F              INTEGER\r\nC     ECPT(45) = COORDINATE X1                                REAL\r\nC     ECPT(46) = COORDINATE Y1                                REAL\r\nC     ECPT(47) = COORDINATE Z1                                REAL\r\nC     ECPT(48) = ELEMENT TEMPERATURE                          REAL\r\nC\r\n      LOGICAL         IMASS,NOTS,NOGO,UNIBEN\r\n      INTEGER         NAME(2),INDEX(20,3),XPOWER(20),YPOWER(20),ICS(6),\r\n     1                NL(6),IEST(42),XTHK(10),YTHK(10),SAVE(6),SMALL(6),\r\n     2                DICT(11),FLAGS,ELTYPE,ELID,ESTID,PRECIS,SIL1,SIL2\r\n      REAL            NSM,IVECT(3),JVECT(3),KVECT(3),F(14,14),XC(6),\r\n     1                YC(6),ZC(6)\r\n      DOUBLE PRECISION S11,S22,S13,S23,D334,D132,D232,S33,ST,RMX,RNX,\r\n     1                RMNX,RMX1,RNX1,RMY,RNY,RMNY,RMY1,RNY1,A1SQ,A2SQ,\r\n     2                A3SQ,C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,CC(10),CM1,\r\n     3                DETERM,CMT(1296),QQQ(20,20),QQQINV(360),MTR3(400),\r\n     4                KTR3(400),CSUB(3,3),CSUBT(6,3),TS6(40),TS1(60),\r\n     5                TS6S(40),TS2(60),TS7(60),TRAND(9),BALOTR(36),\r\n     6                KSUB(6,6),KSUBT(6,6),KSUP(36),KSUPT(36),E(18)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SMA1DP/ CM1(18,18)\r\n      COMMON /EMGEST/ EST(100)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /EMGPRM/ ICORE,JCORE,NCORE,DUM(12),FLAGS(3),PRECIS\r\n      COMMON /BLANK / NOK,NOM\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)),\r\n     1                (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)),\r\n     2                (C9,CC(9)),(C10,CC(10))\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(KSUB(1,1),KSUP(1)),\r\n     1                (KSUBT(1,1),KSUPT(1))\r\n      EQUIVALENCE     (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5)\r\n      EQUIVALENCE     (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)),\r\n     1                (CMT(1),KTR3(1),MTR3(1),QQQ(1,1)),\r\n     2                (CM1(1,1),TS6(1)),(CM1(5,3),TS1(1)),\r\n     3                (CM1(11,6),TS6S(1)),(CM1(15,8),TS2(1)),\r\n     4                (CM1(3,12),TS7(1))\r\n      DATA  XPOWER  / 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/\r\n      DATA  YPOWER  / 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/\r\n      DATA  XTHK    / 0,1,0,2,1,0,3,2,1,0 /\r\n      DATA  YTHK    / 0,0,1,0,1,2,0,1,2,3 /\r\n      DATA  DEGRA   / 0.0174532925 /\r\n      DATA  BLANK   , NAME / 4H    , 4HTRPL, 4HT1    /\r\nC\r\nC     COMPONENT CODE,ICODE,IS  111111  AND HAS A VALUE OF 63\r\nC\r\n      ICODE   = 63\r\n      NDOF    = 36\r\n      IPREC   = PRECIS\r\n      NLOCS   = 6\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      NOTS    = .FALSE.\r\n      IMASS   = .FALSE.\r\n      IF (NOM .GT. 0) IMASS = .TRUE.\r\n      IPASS   = 1\r\n      IDELE   = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM =  EST( 8)\r\n      MATID1 = IEST( 9)\r\n      TMEM1  = (EST(10)*12.0)**0.333333333333\r\n      TMEM3  = (EST(11)*12.0)**0.333333333333\r\n      TMEM5  = (EST(12)*12.0)**0.333333333333\r\n      MATID2 = IEST(13)\r\n      TSHR1  =  EST(14)\r\n      TSHR3  =  EST(15)\r\n      TSHR5  =  EST(16)\r\n      NSM    =  EST(17)\r\n      J      = 0\r\n      DO 120 I = 24,44,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n  120 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO\r\nC     SO ALSO FOR TEMP3 AND TEMP5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS = .TRUE.\r\n      ELTEMP = EST(48)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\n      MATID  = MATID2\r\n      MATFLG = 3\r\n      IF (NOTS) GO TO 146\r\n      CALL MAT (IDELE)\r\n  146 CONTINUE\r\n      D11 = EM(1)\r\n      D12 = EM(2)\r\n      D13 = EM(3)\r\n      D22 = EM(4)\r\n      D23 = EM(5)\r\n      D33 = EM(6)\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 177 I = 1,18\r\n  177 E( I) = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\n      D334  = D33*4.0D0\r\n      D132  = D13*2.0D0\r\n      D232  = D23*2.0D0\r\n      CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1)\r\n      A1SQ  = A1*A1\r\n      A2SQ  = A2*A2\r\n      A3SQ  = A3*A3\r\n      C1    = A1SQ*A1\r\n      C2    = 3.0*A1SQ*A2\r\n      C3    = 3.0*A1SQ*A3\r\n      C4    = 3.0*A1*A2SQ\r\n      C5    = 6.0*A1*A2*A3\r\n      C6    = 3.0*A3SQ*A1\r\n      C7    = A2SQ*A2\r\n      C8    = 3.0*A2SQ*A3\r\n      C9    = 3.0*A2*A3SQ\r\n      C10   = A3*A3SQ\r\n      CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\n      UNIBEN = .FALSE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN = .TRUE.\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 110 I = 1,20\r\n      DO 110 J = 1,20\r\n  110 QQQ(I,J) = 0.0D0\r\n      DO 115 I = 1,6\r\n      I3 = (I-1)*3\r\n      I1 = I3 + 1\r\n      I2 = I3 + 2\r\n      I3 = I3 + 3\r\n      QQQ(I1, 1) = 1.0D0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0D0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0D0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 113\r\nC\r\n      IF (NOTS) GO TO 1137\r\n      X = XC(I)\r\n      Y = YC(I)\r\n      CALL TSPL3D (TS6)\r\n      DO 113 JJ = 1,20\r\n      QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ)\r\n      QQQ(I3,JJ) = QQQ(I3,JJ) + TS6(   JJ)\r\n  113 CONTINUE\r\n 1137 CONTINUE\r\n  115 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) I\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 904\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO 152 I = 1,20\r\n      DO 152 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n  152 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\n  211 CONTINUE\r\n      DO 212 I = 1,400\r\n      KTR3(I) = 0.0D0\r\n  212 CONTINUE\r\n      DO 220 I = 1,20\r\n      MX   = XPOWER(I)\r\n      RMX  = MX\r\n      NX   = YPOWER(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0D0)\r\n      RNX1 = RNX*(RNX-1.0D0)\r\n      DO 218 J = I,20\r\n      IJ   = (I-1)*20 + J\r\n      JI   = (J-1)*20 + I\r\n      MY   = XPOWER(J)\r\n      RMY  = MY\r\n      NY   = YPOWER(J)\r\n      RNY  = NY\r\n      RMNY = RMY*RNY\r\n      RMY1 = RMY*(RMY-1.0D0)\r\n      RNY1 = RNY*(RNY-1.0D0)\r\n      MX0  = MX + MY\r\n      MX1  = MX + MY - 1\r\n      MX2  = MX + MY - 2\r\n      MX3  = MX + MY - 3\r\n      NX0  = NX + NY\r\n      NX1  = NX + NY - 1\r\n      NX2  = NX + NY - 2\r\n      NX3  = NX + NY - 3\r\n      MY1  = MX + MY + 1\r\n      NY1  = NX + NY + 1\r\n      IF (IPASS .EQ. 1) GO TO 214\r\n      MX01 = MX0 + 1\r\n      NX01 = NX0 + 1\r\n      MX011= MX01+ 1\r\n      NX011= NX01+ 1\r\n      RHO  = RHOY*1.0D0\r\n      MTR3(IJ) = RHO*(A1*F(MX01,NX01)+A2*F(MX011,NX01)+A3*F(MX01,NX011))\r\n     1         + NSM*F(MX01,NX01)\r\n      MTR3(JI) = MTR3(IJ)\r\n      GO TO 216\r\n  214 CONTINUE\r\n      ST = 0.0D0\r\n      DO 215 K = 1,10\r\n      MX3X = MX3 + XTHK(K)\r\n      NY1Y = NY1 + YTHK(K)\r\n      MY1X = MY1 + XTHK(K)\r\n      NX3Y = NX3 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX2X = MX2 + XTHK(K)\r\n      NX0Y = NX0 + YTHK(K)\r\n      MX0X = MX0 + XTHK(K)\r\n      NX2Y = NX2 + YTHK(K)\r\n      S11  = 0.0D0\r\n      S22  = 0.0D0\r\n      S33  = 0.0D0\r\n      S13  = 0.0D0\r\n      S23  = 0.0D0\r\n      IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y)\r\n      IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y)\r\n      IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY +\r\n     1    D12*(RMX1*RNY1 + RMY1*RNX1))*CC(K)*F(MX1X,NX1Y)\r\n      IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY +\r\n     1    RMNX*RMY1)*CC(K)*F(MX2X,NX0Y)\r\n      IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 +\r\n     1    RNX1*RMNY)*CC(K)*F(MX0X,NX2Y)\r\n      ST = ST + S11 + S22 + S33 + S13 + S23\r\n      IF (UNIBEN) GO TO 2150\r\n  215 CONTINUE\r\n 2150 CONTINUE\r\n      KTR3(IJ) = ST/12.0D0\r\n      KTR3(JI) = KTR3(IJ)\r\n  216 CONTINUE\r\n  218 CONTINUE\r\n  220 CONTINUE\r\n      IF (IPASS .EQ. 2) GO TO 230\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 230\r\nC\r\nC     IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO, SKIP THESE\r\nC     CALCULATION\r\nC\r\n      IF (NOTS) GO TO 230\r\nC\r\nC\r\n      CALL TSPL1D (TS1,TS2,TS6,TS6S,TS7,KTR3,CMT(761))\r\n  230 CONTINUE\r\nC\r\nC     (QQQINV) TRANSPOSE (KTR3)  (QQQINV)\r\nC\r\n      CALL GMMATD (QQQINV,20,18,+1,KTR3,20,20,0,CMT(761))\r\n      CALL GMMATD (CMT(761),18,20,0,QQQINV,20,18,0,CM1)\r\nC\r\n  290 DO 300 I = 1,1296\r\n      CMT(I) = 0.0\r\n  300 CONTINUE\r\n      IF (IPASS .LE. 2) GO TO 305\r\nC\r\nC     LUMPED MASS MATRIX\r\nC\r\n      CALL AF (F,14,A,B,C,T1,T2,T3,EST(10),EST(11),EST(12),1)\r\n      AREA = F(1,1)\r\n      VOL  = T1*F(1,1) + T2*F(2,1) + T3*F(1,2)\r\n      AMASS= (RHOY*VOL + NSM*AREA)/6.\r\n      DO 303 I = 1,1296,37\r\n      CMT(I) = AMASS\r\n  303 CONTINUE\r\n      IPASS = 2\r\n      GO TO 400\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R??\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATES\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINATES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n  305 DO 310 I = 1,6\r\n      SAVE(I)  = NL(I)\r\n  310 CONTINUE\r\n      DO 314 I = 1,6\r\n      SMALL(I) = I\r\n      ISMALL   = NL(I)\r\n      DO 313 J = 1,6\r\n      IF (ISMALL .LE. NL(J)) GO TO 312\r\n      SMALL(I) = J\r\n      ISMALL   = NL(J)\r\n  312 CONTINUE\r\n  313 CONTINUE\r\n      ISM      = SMALL(I)\r\n      NL(ISM)  = 1000000\r\n  314 CONTINUE\r\n      DO 316 I = 1,6\r\n      NL(I)    = SAVE(I)\r\n  316 CONTINUE\r\n      DO 390 I = 1,6\r\n      DO 385 J = I,6\r\n      DO 320 II = 1,36\r\n      BALOTR(II)= 0.0D0\r\n      KSUP(II) = 0.0D0\r\n  320 CONTINUE\r\n      DO 324 K = 1,3\r\n      SIL1 = SMALL(I)\r\n      K1   = (SIL1-1)*3 + K\r\n      DO 323 L = 1,3\r\n      SIL2 = SMALL(J)\r\n      L1   = (SIL2-1)*3 + L\r\n      CSUB(K,L) = CM1(K1,L1)\r\n  323 CONTINUE\r\n  324 CONTINUE\r\n      CALL GMMATD (E ,6,3,0,CSUB,3,3,0,CSUBT)\r\n      CALL GMMATD (CSUBT,6,3,0,E,6,3,+1,KSUBT)\r\n      DO 325 K = 1,6\r\n      DO 325 L = 1,6\r\n      K1 = (K-1)*6 + L\r\n      L1 = (L-1)*6 + K\r\n      KSUP(L1) = KSUPT(K1)\r\n  325 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340\r\n      JJ = 4*I + 20\r\n      CALL TRANSD (IEST(JJ),TRAND)\r\n      DO 327 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  327 CONTINUE\r\n      CALL GMMATD (BALOTR(1),6,6,1,KSUP(1),6,6,0,KSUPT)\r\n      DO 330 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  330 CONTINUE\r\n  340 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 375\r\n      IF (J .EQ. I) GO TO 365\r\n      CALL TRANSD (IEST(4*J+20),TRAND)\r\n      DO 360 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  360 CONTINUE\r\n  365 CONTINUE\r\n      CALL GMMATD (KSUP(1),6,6,0,BALOTR( 1 ),6,6,0,KSUPT)\r\n      DO 370 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  370 CONTINUE\r\n  375 CONTINUE\r\n      DO 380 II = 1,6\r\n      DO 380 JJ = 1,6\r\n      I1   = (I-1)*6 + II\r\n      J1   = (J-1)*6 + JJ\r\n      I1J1 = (I1-1)*36 + J1\r\n      J1I1 = (J1-1)*36 + I1\r\n      CMT(I1J1) = KSUB(JJ,II)\r\n      CMT(J1I1) = KSUB(JJ,II)\r\n  380 CONTINUE\r\n  385 CONTINUE\r\n  390 CONTINUE\r\nC\r\nC     CALL INSERTION ROUTINE\r\nC\r\n  400 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     GO TO 290 TO COMPUTE LUMPED MASS MATRIX\r\nC     GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH MAY NOT WORK)\r\nC\r\n      IPASS = 3\r\n      CALL SSWTCH (46,J)\r\n      IF (J .EQ. 1) IPASS = 2\r\n      GO TO (999,211,290), IPASS\r\nC\r\nC     ERRORS\r\nC\r\n  904 CONTINUE\r\n      NOGO = .TRUE.\r\n      WRITE  (IOUTPT,2411) UFM,IEST(1)\r\n 2411 FORMAT (A23,' 2411, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', /26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRPLT1 WITH ID',I9,1H.)\r\n  999 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrpls.f",
    "content": "      SUBROUTINE KTRPLS\r\nC\r\nC     STIFFNESS SUBROUTINE FOR HIGHER ORDER PLATE ELEMENT CTRPLT1\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                               INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1     INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2     INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3     INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4     INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5     INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6     INTEGER\r\nC     ECPT( 8) = THETA                                    REAL\r\nC     ECPT( 9) = MATERIAL ID 1                            INTEGER\r\nC     ECPT(10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT(11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT(12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT(13) = MATERIAL ID 2                            INTEGER\r\nC     ECPT(14) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID\r\nC     ECPT(15) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID\r\nC     ECPT(16) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID\r\nC     ECPT(17) = NON-STRUCTURAL MASS                      REAL\r\nC     ECPT(18) = DISTANCE Z11 FOR STRESS CALCULATION AT GRID 1\r\nC     ECPT(19) = DISTANCE Z21 FOR STRESS CALCULATION AT GRID 1\r\nC     ECPT(20) = DISTANCE Z13 FOR STRESS CALCULATION AT GRID 3\r\nC     ECPT(21) = DISTANCE Z23 FOR STRESS CALCULATION AT GRID 3\r\nC     ECPT(22) = DISTANCE Z15 FOR STRESS CALCULATION AT GRID 5\r\nC     ECPT(23) = DISTANCE Z25 FOR STRESS CALCULATION AT GRID 5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(24) = COORDINATE SYSTEM ID FOR GRID A          INTEGER\r\nC     ECPT(25) = COORDINATE X1                            REAL\r\nC     ECPT(26) = COORDINATE Y1                            REAL\r\nC     ECPT(27) = COORDINATE Z1                            REAL\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID B          INTEGER\r\nC     ECPT(29) = COORDINATE X1                            REAL\r\nC     ECPT(30) = COORDINATE Y1                            REAL\r\nC     ECPT(31) = COORDINATE Z1                            REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID C          INTEGER\r\nC     ECPT(33) = COORDINATE X1                            REAL\r\nC     ECPT(34) = COORDINATE Y1                            REAL\r\nC     ECPT(35) = COORDINATE Z1                            REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID D          INTEGER\r\nC     ECPT(37) = COORDINATE X1                            REAL\r\nC     ECPT(38) = COORDINATE Y1                            REAL\r\nC     ECPT(39) = COORDINATE Z1                            REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID E          INTEGER\r\nC     ECPT(41) = COORDINATE X1                            REAL\r\nC     ECPT(42) = COORDINATE Y1                            REAL\r\nC     ECPT(43) = COORDINATE Z1                            REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID F          INTEGER\r\nC     ECPT(45) = COORDINATE X1                            REAL\r\nC     ECPT(46) = COORDINATE Y1                            REAL\r\nC     ECPT(47) = COORDINATE Z1                            REAL\r\nC     ECPT(48) = ELEMENT TEMPERATURE                      REAL\r\nC\r\n      LOGICAL         IMASS,NOTS,NOGO,UNIBEN\r\n      INTEGER         NAME(2),INDEX(20,3),XPOWER(20),YPOWER(20),ICS(6),\r\n     1                NL(6),IEST(42),XTHK(10),YTHK(10),SAVE(6),SMALL(6),\r\n     2                DICT(11),FLAGS,ELTYPE,ELID,ESTID,PRECIS,SIL1,SIL2\r\n      REAL            NSM,IVECT(3),JVECT(3),KVECT(3),F(14,14),\r\n     1                XC(6),YC(6),ZC(6),CC(10),KSUP(36),KSUPT(36),\r\n     2                E(18),CMT(1296),QQQ(20,20),QQQINV(360),MTR3(400),\r\n     3                KTR3(400),CSUB(3,3),CSUBT(6,3),TS6(40),TS1(60),\r\n     4                TS6S(40),TS2(60),TS7(60),TRAND(9),BALOTR(36),\r\n     5                KSUB(6,6),KSUBT(6,6)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NOK,NOM\r\n      COMMON /SMA1DP/ CM1(18,18)\r\n      COMMON /EMGEST/ EST(100)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /EMGPRM/ ICORE,JCORE,NCORE,DUM(12),FLAGS(3),PRECIS\r\n      COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(KSUB(1,1),KSUP(1)),\r\n     1                (KSUBT(1,1),KSUPT(1)),(C1,CC(1)),(C2,CC(2)),\r\n     2                (C3,CC(3)),(C4,CC(4)),(C5,CC(5)),(C6,CC(6)),\r\n     3                (C7,CC(7)),(C8,CC(8)),(C9,CC(9)),(C10,CC(10)),\r\n     4                (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5),\r\n     5                (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)),\r\n     6                (CMT(1),KTR3(1),MTR3(1),QQQ(1,1)),\r\n     7                (CM1(1,1),TS6(1)),(CM1(5,3),TS1(1)),\r\n     8                (CM1(11,6),TS6S(1)),(CM1(15,8),TS2(1)),\r\n     9                (CM1(3,12),TS7(1))\r\n      DATA    XPOWER/ 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/\r\n      DATA    YPOWER/ 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/\r\n      DATA    XTHK  / 0,1,0,2,1,0,3,2,1,0 /\r\n      DATA    YTHK  / 0,0,1,0,1,2,0,1,2,3 /\r\n      DATA    DEGRA / 0.0174532925/\r\n      DATA    BLANK , NAME / 4H    , 4HTRPL, 4HT1    /\r\nC\r\nC     COMPONENT CODE,ICODE,IS  111111  AND HAS A VALUE OF 63\r\nC\r\n      ICODE   = 63\r\n      NDOF    = 36\r\n      IPREC   = PRECIS\r\n      NLOCS   = 6\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GSUBE\r\n      NOTS    = .FALSE.\r\n      IMASS   = .FALSE.\r\n      IF (NOM .GT. 0) IMASS = .TRUE.\r\n      IPASS  = 1\r\n      IDELE  = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = (EST(10)*12.0)**0.333333333333\r\n      TMEM3  = (EST(11)*12.0)**0.333333333333\r\n      TMEM5  = (EST(12)*12.0)**0.333333333333\r\n      MATID2 = IEST(13)\r\n      TSHR1  = EST(14)\r\n      TSHR3  = EST(15)\r\n      TSHR5  = EST(16)\r\n      NSM    = EST(17)\r\n      J      = 0\r\n      DO 120 I = 24,44,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n  120 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO\r\nC     SO ALSO FOR TEMP3 AND TEMP5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS = .TRUE.\r\n      ELTEMP = EST(48)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\n      MATID  = MATID2\r\n      MATFLG = 3\r\n      J11 = 0.0\r\n      J12 = 0.0\r\n      J22 = 0.0\r\n      IF (NOTS) GO TO 146\r\n      CALL MAT (IDELE)\r\n  146 CONTINUE\r\n      D11 = EM(1)\r\n      D12 = EM(2)\r\n      D13 = EM(3)\r\n      D22 = EM(4)\r\n      D23 = EM(5)\r\n      D33 = EM(6)\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 177 I = 1,18\r\n  177 E(I)  = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\n      D334  = D33*4.0\r\n      D132  = D13*2.0\r\n      D232  = D23*2.0\r\n      CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1)\r\n      A1SQ  = A1*A1\r\n      A2SQ  = A2*A2\r\n      A3SQ  = A3*A3\r\n      C1  = A1SQ*A1\r\n      C2  = 3.0*A1SQ*A2\r\n      C3  = 3.0*A1SQ*A3\r\n      C4  = 3.0*A1*A2SQ\r\n      C5  = 6.0*A1*A2*A3\r\n      C6  = 3.0*A3SQ*A1\r\n      C7  = A2SQ*A2\r\n      C8  = 3.0*A2SQ*A3\r\n      C9  = 3.0*A2*A3SQ\r\n      C10 = A3*A3SQ\r\n      CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\n      UNIBEN = .FALSE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN = .TRUE.\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 110 I = 1,20\r\n      DO 110 J = 1,20\r\n  110 QQQ(I,J) = 0.0\r\n      DO 115 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 113\r\nC\r\n      IF (NOTS) GO TO 1137\r\n      X  = XC(I)\r\n      Y  = YC(I)\r\n      CALL TSPL3S (TS6)\r\n      DO 113 JJ = 1,20\r\n      QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ)\r\n      QQQ(I3,JJ) = QQQ(I3,JJ) + TS6(   JJ)\r\n  113 CONTINUE\r\n 1137 CONTINUE\r\n  115 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 904\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO 152 I = 1,20\r\n      DO 152 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n  152 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\n  211 CONTINUE\r\n      DO 212 I = 1,400\r\n      KTR3(I) = 0.0\r\n  212 CONTINUE\r\n      DO 220 I = 1,20\r\n      MX   = XPOWER(I)\r\n      RMX  = MX\r\n      NX   = YPOWER(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0)\r\n      RNX1 = RNX*(RNX-1.0)\r\n      DO 218 J = I,20\r\n      IJ   = (I-1)*20 + J\r\n      JI   = (J-1)*20 + I\r\n      MY   = XPOWER(J)\r\n      RMY  = MY\r\n      NY   = YPOWER(J)\r\n      RNY  = NY\r\n      RMNY = RMY*RNY\r\n      RMY1 = RMY*(RMY-1.0)\r\n      RNY1 = RNY*(RNY-1.0)\r\n      MX0  = MX + MY\r\n      MX1  = MX + MY - 1\r\n      MX2  = MX + MY - 2\r\n      MX3  = MX + MY - 3\r\n      NX0  = NX + NY\r\n      NX1  = NX + NY - 1\r\n      NX2  = NX + NY - 2\r\n      NX3  = NX + NY - 3\r\n      MY1  = MX + MY + 1\r\n      NY1  = NX + NY + 1\r\n      IF (IPASS .EQ. 1) GO TO 214\r\n      MX01 = MX0  + 1\r\n      NX01 = NX0  + 1\r\n      MX011= MX01 + 1\r\n      NX011= NX01 + 1\r\n      RHO  = RHOY*1.0\r\n      MTR3(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) +\r\n     1           A3*F(MX01,NX011)) + NSM*F(MX01,NX01)\r\n      MTR3(JI) = MTR3(IJ)\r\n      GO TO 216\r\n  214 CONTINUE\r\n      ST   = 0.0\r\n      DO 215 K = 1,10\r\n      MX3X = MX3 + XTHK(K)\r\n      NY1Y = NY1 + YTHK(K)\r\n      MY1X = MY1 + XTHK(K)\r\n      NX3Y = NX3 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX2X = MX2 + XTHK(K)\r\n      NX0Y = NX0 + YTHK(K)\r\n      MX0X = MX0 + XTHK(K)\r\n      NX2Y = NX2 + YTHK(K)\r\n      S11  = 0.0\r\n      S22  = 0.0\r\n      S33  = 0.0\r\n      S13  = 0.0\r\n      S23  = 0.0\r\n      IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y)\r\n      IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y)\r\n      IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY+\r\n     1    D12*(RMX1*RNY1+RMY1*RNX1))*CC(K)*F(MX1X,NX1Y)\r\n      IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY+\r\n     1    RMNX*RMY1)*CC(K)*F(MX2X,NX0Y)\r\n      IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1+\r\n     1    RNX1*RMNY)*CC(K)*F(MX0X,NX2Y)\r\n      ST = ST + S11 + S22 + S33 + S13 + S23\r\n      IF (UNIBEN) GO TO 2150\r\n  215 CONTINUE\r\n 2150 CONTINUE\r\n      KTR3(IJ) = ST/12.0\r\n      KTR3(JI) = KTR3(IJ)\r\n  216 CONTINUE\r\n  218 CONTINUE\r\n  220 CONTINUE\r\n      IF (IPASS .EQ. 2) GO TO 230\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 230\r\nC\r\nC     IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO , SKIP THESE\r\nC     CALCULATIONS\r\nC\r\n      IF (NOTS) GO TO 230\r\n      CALL TSPL1S (TS1,TS2,TS6,TS6S,TS7,KTR3,CMT(761))\r\nC\r\n  230 CONTINUE\r\nC\r\nC     (QQQINV) TRANSPOSE (KTR3)  (QQQINV)\r\nC\r\n      CALL GMMATS (QQQINV,20,18,+1,KTR3,20,20,0,CMT(761))\r\n      CALL GMMATS (CMT(761),18,20,0,QQQINV,20,18,0,CM1)\r\nC\r\n  290 DO 300 I = 1,1296\r\n      CMT(I) = 0.0\r\n  300 CONTINUE\r\n      IF (IPASS .LE. 2) GO TO 305\r\nC\r\nC     LUMPED MASS MATRIX\r\nC\r\n      CALL AF (F,14,A,B,C,T1,T2,T3,EST(10),EST(11),EST(12),1)\r\n      AREA  = F(1,1)\r\n      VOL   = T1*F(1,1) + T2*F(2,1) + T3*F(1,2)\r\n      AMASS = (RHOY*VOL+NSM*AREA)/6.\r\n      DO 303 I = 1,1296,37\r\n      CMT(I) = AMASS\r\n  303 CONTINUE\r\n      IPASS = 2\r\n      GO TO 400\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE REQUESTED  - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATES\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n  305 DO 310 I = 1,6\r\n      SAVE(I) = NL(I)\r\n  310 CONTINUE\r\n      DO 314 I = 1,6\r\n      SMALL(I) = I\r\n      ISMALL = NL(I)\r\n      DO 313 J = 1,6\r\n      IF (ISMALL .LE.NL(J)) GO TO 312\r\n      SMALL(I) = J\r\n      ISMALL = NL(J)\r\n  312 CONTINUE\r\n  313 CONTINUE\r\n      ISM = SMALL(I)\r\n      NL(ISM) = 1000000\r\n  314 CONTINUE\r\n      DO 316 I = 1,6\r\n      NL(I) = SAVE(I)\r\n  316 CONTINUE\r\n      DO 390 I  = 1,6\r\n      DO 385 J  = I,6\r\n      DO 320 II = 1,36\r\n      BALOTR(II) = 0.0\r\n      KSUP(II) = 0.0\r\n  320 CONTINUE\r\n      DO 324 K = 1,3\r\n      SIL1 = SMALL(I)\r\n      K1 = (SIL1-1)*3 + K\r\n      DO 323 L = 1,3\r\n      SIL2 = SMALL(J)\r\n      L1 = (SIL2-1)*3 + L\r\n      CSUB(K,L) = CM1(K1,L1)\r\n  323 CONTINUE\r\n  324 CONTINUE\r\n      CALL GMMATS (E,6,3,0,CSUB,3,3,0,CSUBT)\r\n      CALL GMMATS (CSUBT,6,3,0,E,6,3,+1,KSUPT)\r\n      DO 325 K = 1,6\r\n      DO 325 L = 1,6\r\n      K1 = (K-1)*6 + L\r\n      L1 = (L-1)*6 + K\r\n      KSUP(L1) = KSUPT(K1)\r\n  325 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 340\r\n      JJ = 4*I + 20\r\n      CALL TRANSS (IEST(JJ),TRAND)\r\n      DO 327 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  327 CONTINUE\r\n      CALL GMMATS (BALOTR(1),6,6,1,KSUP(1),6,6,0,KSUPT)\r\n      DO 330 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  330 CONTINUE\r\n  340 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 375\r\n      IF (J .EQ. I) GO TO 365\r\n      CALL TRANSS (IEST(4*J+20),TRAND)\r\n      DO 360 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  360 CONTINUE\r\n  365 CONTINUE\r\n      CALL GMMATS (KSUP(1),6,6,0,BALOTR( 1 ),6,6,0,KSUPT)\r\n      DO 370 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  370 CONTINUE\r\n  375 CONTINUE\r\n      DO 380 II = 1,6\r\n      DO 380 JJ = 1,6\r\n      I1   = (I-1)*6 + II\r\n      J1   = (J-1)*6 + JJ\r\n      I1J1 = (I1-1)*36 + J1\r\n      J1I1 = (J1-1)*36 + I1\r\n      CMT(I1J1) = KSUB(JJ,II)\r\n      CMT(J1I1) = KSUB(JJ,II)\r\n  380 CONTINUE\r\n  385 CONTINUE\r\n  390 CONTINUE\r\nC\r\nC     CALL INSERTION ROUTINE\r\nC\r\n  400 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     GO TO 290 TO COMPUTE LUMPED MASS MATRIX\r\nC     GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH MAY NOT WORK)\r\nC\r\n      IPASS = 3\r\n      CALL SSWTCH (46,J)\r\n      IF (J .EQ. 1) IPASS = 2\r\n      GO TO (999,211,290), IPASS\r\nC\r\nC     ERRORS\r\nC\r\n  904 CONTINUE\r\n      NOGO = .TRUE.\r\n      WRITE  (IOUTPT,2411) UFM,IEST(1)\r\n 2411 FORMAT (A23,' 2411, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRPLT1 WITH ID',I9,1H.)\r\n  999 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktrplt.f",
    "content": "      SUBROUTINE KTRPLT\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC                        3-6X6 STIFFNESS MATRICES WITH RESPECT\r\nC                        TO ONE PIVOT POINT OF A TRIANGULAR PLATE\r\nC                        ELEMENT.\r\nC\r\nC         REF. FMMS-55  NOVEMBER 1ST, 1967\r\nC\r\nC         CALLS FROM THIS ROUTINE ARE MADE TO\r\nC                        KTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC                        TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC                        INVERD - MATRIX INVERSION ROUTINE\r\nC                        SMA1B  - INSERTION ROUTINE\r\nC                        GMMATD - GENERAL MATRIX MULITPLY AND\r\nC                                 TRANSPOSE ROUTINE\r\nC                        MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC\r\n      INTEGER            SUBSCA        ,SUBSCB        ,SUBSCC\r\n      DOUBLE PRECISION\r\n     1                   R             ,D1            ,HABC\r\n     2                  ,TEMP          ,D2            ,HINV\r\n     3                  ,KSUM          ,IVECT         ,G\r\n     4                  ,V             ,JVECT         ,E\r\n     5                  ,VV            ,KVECT         ,TITE\r\n     6                  ,XSUBB         ,TEMP9         ,TJTE\r\n     7                  ,XSUBC         ,PROD9         ,ARR9\r\n     8                  ,YSUBC         ,U1            ,ARRAY9\r\n     9                  ,T             ,U2            ,TEMP18\r\n     T                  ,A             ,TEMP1         ,PROD12\r\n     1                  ,C1            ,TEMP2         ,HQ\r\n     2                  ,C2            ,L1            ,Y1\r\n     3                  ,X1            ,L2            ,Y2\r\n     4                  ,X2            ,S1            ,DETERM\r\n     5                  ,S2            ,KOUT          ,S ,REQUIV\r\nC     ******************************************************************\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION\r\nC       ECPT      TRI.PLATE AND BASIC BENDING TRI.\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC     ******************************************************************\r\n      DIMENSION\r\n     1                   NECPT(100)    ,M(9)          ,REQUIV(8)\r\n     2                  ,HQ(12)        ,PROD12(12)    ,HABC(18)\r\n     3                  ,G(36)         ,TITE(18)      ,TJTE(18)\r\n     4                  ,KOUT(36)      ,TEMP18(18)    ,V1(3)\r\n     5                  ,V2(3)         ,V3(3)         ,R(2,4)\r\n     6                  ,D1(3)         ,D2(3)\r\nC\r\n      COMMON /CONDAS/    CONSTS(5)\r\n      COMMON /MATIN /    MATID         ,INFLAG        ,ELTEMP\r\n     1                  ,STRESS        ,SINTH         ,COSTH\r\n      COMMON /MATOUT/    G11,G12,G13   ,G22,G23,G33   ,RHO\r\n     1                  ,ALPHA1        ,ALPHA2        ,ALP12\r\n     2                  ,T SUB 0       ,G SUB E       ,SIGTEN\r\n     3                  ,SIGCOM        ,SIGSHE        ,G2X211\r\n     4                  ,G2X212        ,G2X222\r\n      COMMON /SMA1IO/    DUM1(10)      ,IFKGG         ,DUM2(1)\r\n     1                  ,IF4GG         ,DUM3(23)\r\n      COMMON /SMA1CL/    IOPT4         ,K4GGSW        ,NPVT\r\n     1                  ,DUMCL(7)      ,LINK(10)      ,IDETCK\r\n     2                  ,DODET         ,NOGO\r\n      COMMON /SMA1ET/    ECPT(100)\r\n      COMMON /SMA1DP/\r\n     1                   A(81)         ,S(18)         ,T(9)\r\n     2                  ,TEMP9(9)      ,PROD9(9)      ,ARR9(9)\r\n     3                  ,ARRAY9(9)     ,HINV(36)      ,KSUM(63)\r\n     4                  ,XSUBB         ,XSUBC         ,YSUBC\r\n     5                  ,E(18)         ,TEMP          ,L1\r\n     6                  ,L2            ,S1            ,S2\r\n     7                  ,C1            ,C2            ,X1\r\n     8                  ,X2            ,Y1            ,Y2\r\n     9                  ,TEMP1         ,TEMP2         ,DUMTWO(2) ,DETERM\r\n     T                  ,NPOINT        ,KM            ,SUBSCA\r\n     1                  ,SUBSCB        ,SUBSCC        ,NPIVOT\r\n     2                  ,THETA         ,NSUBC         ,ISING\r\n     3                  ,NPT1          ,V(2)          ,VV(2)\r\n     4                  ,IVECT(3)      ,JVECT(3)      ,KVECT(3)\r\n     5                  ,U1            ,U2            ,SINANG\r\n     6                  ,COSANG\r\nC\r\n      EQUIVALENCE       (CONSTS(4),DEGRA)\r\n      EQUIVALENCE\r\n     1                  (NECPT(1),ECPT(1))\r\n     2                 ,(PROD12(1),A(13))\r\n     3                 ,(HABC(1),A(25))\r\n     4                 ,(TITE(1),A(37))\r\n     5                 ,(TJTE(1),A(55))\r\n     6                 ,(KOUT(1),A(1))\r\n     7                 ,(TEMP18(1),HINV(1))\r\n     8                 ,(V1(1),ECPT(14))\r\n     9                 ,(V2(1),ECPT(18))\r\n     T                 ,(V3(1),ECPT(22))\r\n     1                 ,(REQUIV(1),R(1,1))\r\n     2                 ,(D1(1),A(1))\r\n     3                 ,(D2(1),A(4))\r\n     4                 ,(HQ(1),A(1))\r\nC\r\n      DATA  M/ 1,2,4,   2,3,4,   3,1,4 /\r\nC\r\n      ELTEMP = ECPT(25)\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I=1,3\r\n      IF( NPVT .NE. NECPT(I+1) ) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\n      CALL MESAGE(-30,34,ECPT(1))\r\nC\r\n   20 THETA = ECPT(5) * DEGRA\r\n      SINANG = SIN( THETA )\r\n      COSANG = COS( THETA )\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK)\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\n      DO 30 I=1,8\r\n   30 REQUIV(I)=0.0D0\r\nC\r\n      DO 40 I=1,3\r\n      D2(I) = DBLE( V2(I) ) - DBLE( V1(I) )\r\n   40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) )\r\nC\r\nC     X2  GOES IN R(1,2)\r\n      R(1,2) = DSQRT ( D2(1)**2  +  D2(2)**2  +  D2(3)**2 )\r\n      IF (R(1,2).LT.1.0D-7) GO TO 370\r\n      DO 50 I=1,3\r\n   50 IVECT(I) = D2(I) / R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\n      KVECT(1) = IVECT(2) * D1(3)    -    D1(2) * IVECT(3)\r\n      KVECT(2) = IVECT(3) * D1(1)    -    D1(3) * IVECT(1)\r\n      KVECT(3) = IVECT(1) * D1(2)    -    D1(1) * IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\n      R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 )\r\n      IF (R(2,3).LT.1.0D-7) GO TO 370\r\n      DO 60 I=1,3\r\n   60 KVECT(I) = KVECT(I) / R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\n      JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3)\r\n      JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1)\r\n      JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2)\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\n      TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 )\r\n      IF (TEMP.LT.1.0D-7) GO TO 370\r\n      DO 70 I=1,3\r\n   70 JVECT(I) = JVECT(I) / TEMP\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\n      R(1,3) = D1(1) * IVECT(1)  +  D1(2) * IVECT(2) + D1(3) * IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\n      R(1,4) = (  R(1,2) + R(1,3)  ) / 3.0D0\r\n      R(2,4) = R(2,3) / 3.0D0\r\nC     ******************************************************************\r\nC            THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     ******************************************************************\r\nC     ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36...\r\nC\r\n      DO 80 I=1,63\r\n   80 KSUM(I) = 0.0D0\r\n      DO 90 I=1,36\r\n   90 G(I) = 0.0D0\r\nC\r\nC\r\n      DO 210 J=1,3\r\n      KM = 3*J - 3\r\nC\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I=1,2\r\n      V(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT ( V(1)**2 + V(2)**2 )\r\n      U1 = V(1) / XSUBB\r\n      U2 = V(2) / XSUBB\r\n      XSUBC = U1 * VV(1) + U2 * VV(2)\r\n      YSUBC = U1 * VV(2) - U2 * VV(1)\r\nC\r\n      SINTH = SINANG * U1  -  COSANG * U2\r\n      COSTH = COSANG * U1  +  SINANG * U2\r\n      IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL KTRBSC( 2 )\r\nC                         U\r\nC     NOW HAVE AT HAND  K    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC           -1\r\nC     ALSO H   (6X6) AT A(145) TO A(181) AND S (6X3) AT A(82) TO A(99)\r\nC\r\nC     NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\n      DO 120 I=1,3\r\n      CALL GMMATD( T(1),3,3,1,  A(27*I-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC     COMPUTE POINTER TO KSUM MATRIX DESIRED.  (ZERO POINTER)\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) + 18\r\nC\r\n      DO 110 K=1,9\r\n      NSUBC  = NPOINT + K\r\n  110 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K)\r\n  120 CONTINUE\r\n      DO 150 K=1,2\r\n      NPOINT = KM + K\r\n      IF( M(NPOINT) .NE. NPIVOT ) GO TO 150\r\n      CALL GMMATD( T(1),3,3,1,  A(36*K-35),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE POINTER TO KSUM MATRIX (ZERO POINTER)\r\nC\r\n      NPOINT = 9 * NPIVOT - 9\r\n      DO 130 I=1,9\r\n      NSUBC = NPOINT + I\r\n  130 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I)\r\nC\r\n      CALL GMMATD(T(1),3,3,1,  A(18*K-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE ZERO POINTER TO KSUM MATRIX DESIRED\r\nC\r\n      NPOINT = KM + 3 - K\r\n      NPOINT = 9 * M(NPOINT) - 9\r\n      DO 140 I=1,9\r\n      NSUBC = NPOINT + I\r\n  140 KSUM(NSUBC) = KSUM(NSUBC) +  PROD9(I)\r\n  150 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1 = XSUBB - XSUBC\r\n      TEMP2 = YSUBC ** 2\r\n      L1 = DSQRT( XSUBC**2 + TEMP2 )\r\n      L2 = DSQRT( TEMP1**2 + TEMP2 )\r\n      S1 = XSUBC / L1\r\n      S2 = TEMP1 / L2\r\n      C1 = YSUBC / L1\r\n      C2 = YSUBC / L2\r\n      X1 = XSUBC / 2.0D0\r\n      Y1 = YSUBC / 2.0D0\r\n      X2 = (XSUBB + XSUBC) / 2.0D0\r\n      Y2 = Y1\r\n      HQ( 1) = -XSUBC * C1\r\n      HQ( 2) = X1 * S1 - Y1 * C1\r\n      HQ( 3) = 2.0D0 * Y1 * S1\r\n      HQ( 4) = -3.0D0 * X1 * X1 * C1\r\n      HQ( 5) = Y1 * (2.0D0 * X1 * S1 - Y1 * C1 )\r\n      HQ( 6) = 3.0D0 * Y1 * Y1 * S1\r\n      HQ( 7) = 2.0D0 * X2 * C2\r\n      HQ( 8) = X2 * S2  + Y2 * C2\r\n      HQ( 9) = 2.0D0 * Y2 * S2\r\n      HQ(10) = 3.0D0 * X2 * X2 * C2\r\n      HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 )\r\n      HQ(12) = 3.0D0 * Y2 * Y2 * S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\nC\r\n      CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0,  PROD12(1) )\r\nC\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0,  HABC(1) )\r\nC\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT (H     ) AND (H     )    PARTITION\r\nC             PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC.\r\nC\r\n      DO 200 I=1,3\r\nC\r\nC     POINTER TO H  = 6*I-6\r\nC                 I\r\nC\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATD( HABC(6*I-5),2,3,0,  T(1),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1    ROW 1 OF H INTO ROW 1 OF G.\r\nC              ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2    ROW 1 OF H INTO ROW 2 OF G.\r\nC              ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3    ROW 1 OF H INTO ROW 3 OF G.\r\nC              ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF( J-2 ) 170,160,190\r\nC\r\n  160 NPOINT = NPOINT + 3\r\n  170 DO 180 K=1,6\r\n      NPOINT = NPOINT + 1\r\n  180 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 200\r\n  190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1)\r\n      G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2)\r\n      G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3)\r\n      G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4)\r\n      G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5)\r\n      G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6)\r\nC\r\n  200 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP FOR BASIC TRIANGLES\r\nC\r\n  210 CONTINUE\r\nC     ******************************************************************\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 220 I=1,18\r\n  220 E(I) = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230\r\n      CALL TRANSD( NECPT(4*NPIVOT+9), T(1) )\r\n      CALL GMMATD( T(1),3,3,1,  E( 1),3,3,0,  TITE( 1) )\r\n      CALL GMMATD( T(1),3,3,1,  E(10),3,3,0,  TITE(10) )\r\n      GO TO 250\r\n  230 DO 240 K=1,18\r\n  240 TITE(K) = E(K)\r\nC\r\nC     SOLVE NOW FOR ....\r\nC\r\nC    E                   T     T                       T\r\nC (K  ) = (K  ) - (TERM ) (K  ) - (K  )(TERM ) + (TERM )(K  )(TERM )\r\nC   IJ      IJ         I    J4      I4      J         I   44      J\r\nC\r\nC                        -1                               I=NPIVOT\r\nC WHERE... (TERM ) = (G )  (G ) ,I=NPIVOT                 J=1,2,3\r\nC               I      4     I\r\nC\r\nC                        -1\r\nC          (TERM ) = (G )  (G ) ,J=1,2,3 AS ABOVE\r\nC               J      4     J\r\nC\r\nC     AND WITH TRANSFORMATIONS....\r\nC\r\nC    G        T      E   T\r\nC (K  ) = (C ) (E)(K  )(E )(C )\r\nC   IJ      I       IJ       J\r\nC\r\nC\r\nC     COMPUTE  (TERM        )  STORE IN PROD9\r\nC                   I=NPIVOT\r\nC\r\nC                   -1\r\nC     FIRST GET (G )\r\nC                 4\r\nC\r\n  250 CONTINUE\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 )\r\nC\r\nC     CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY.\r\n      GO TO(270,260),ISING\r\n  260 CALL MESAGE(30,36,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\n  270 CALL GMMATD ( G(28),3,3,0,  G(9*NPIVOT-8),3,3,0,  PROD9(1) )\r\nC\r\nC                       T\r\nC     GET  (TERM        )(K  )  STORE IN TEMP9\r\nC               I=NPIVOT   44\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  KSUM(55),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\nC\r\nC     THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9.\r\nC\r\n      DO 360 J=1,3\r\nC\r\nC                   T     T\r\nC     (TERM        ) (K  )    STORE IN ARR9\r\nC          I=NPIVOT    J4\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  KSUM(9*J+19),3,3,1,  ARR9(1) )\r\nC\r\nC     SUBTRACT FROM (K  )\r\nC                     IJ\r\nC\r\n      NBEGIN = 9*J-9\r\n      DO 280 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  280 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I)\r\nC\r\nC\r\nC      COMPUTE  (TERM )  STORE IN ARR9\r\nC                   J\r\nC\r\n      CALL GMMATD( G(28),3,3,0,  G(9*J-8),3,3,0,  ARR9(1) )\r\nC\r\nC\r\nC     GET  (K  )(TERM )  STORE IN ARRAY9\r\nC            I4      J\r\nC\r\n      CALL GMMATD( KSUM(9*NPIVOT+19),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1))\r\nC\r\nC     SUBTRACT FROM KIJ\r\nC\r\n      DO 290 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  290 KSUM(NPOINT) = KSUM(NPOINT) - ARRAY9(I)\r\nC\r\nC                           T\r\nC     COMPUTE  (TERM        )(K  )(TERM ) = (TEMP9)(ARR9)\r\nC                   I=NPOINT   44      J\r\nC\r\n      CALL GMMATD( TEMP9(1),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1) )\r\nC\r\nC     ADD TO K\r\nC             IJ\r\nC\r\n      DO 300 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  300 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I)\r\nC\r\nC       E\r\nC     K    COMPLETE\r\nC      IJ\r\nC\r\nC     TRANSFORM NOW, AND INSERT.\r\nC\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF( NECPT(4*J+9) .EQ. 0) GO TO 310\r\n      CALL TRANSD( NECPT(4*J+9), T(1) )\r\n      CALL GMMATD( T(1),3,3,1,  E( 1),3,3,0,  TJTE( 1) )\r\n      CALL GMMATD( T(1),3,3,1,  E(10),3,3,0,  TJTE(10) )\r\n      GO TO 330\r\n  310 DO 320 K=1,18\r\n  320 TJTE(K) = E(K)\r\n  330 CALL GMMATD( KSUM(NBEGIN+1),3,3,0,  TJTE(1),6,3,1,  TEMP18(1) )\r\n      CALL GMMATD ( TITE(1),6,3,0,  TEMP18(1),3,6,0,  KOUT(1))\r\n      CALL SMA1B( KOUT(1), NECPT(J+1), -1, IFKGG, 0.0D0 )\r\n      TEMP = GSUBE\r\n      IF( IOPT4 ) 340,360,340\r\n  340 IF( GSUBE ) 350,360,350\r\n  350 CALL SMA1B( KOUT(1), NECPT(J+1), -1, IF4GG, TEMP )\r\n      K4GGSW = 1\r\nC\r\n  360 CONTINUE\r\n      RETURN\r\n  370 CALL MESAGE(30,26,ECPT(1))\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\nC  NOTE - NON-FATAL MESSAGE HERE MAY INDUCE PARTITION ERROR 3111 LATER\r\nC         IN EMGOUT\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktshld.f",
    "content": "      SUBROUTINE KTSHLD\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                     INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1           INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2           INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3           INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4           INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5           INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6           INTEGER\r\nC     ECPT( 8) = THETA                                          REAL\r\nC     ECPT( 9) = MATERIAL ID 1                                  INTEGER\r\nC     ECPT(10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT(11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT(12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT(13) = MATERIAL ID 2                                  INTEGER\r\nC     ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT(17) = MATERIAL ID 3                                  INTEGER\r\nC     ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT(21) = NON-STRUCTURAL MASS                            REAL\r\nC     ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE  IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID A                INTEGER\r\nC     ECPT(29) = COORDINATE X1                                  REAL\r\nC     ECPT(30) = COORDINATE Y1                                  REAL\r\nC     ECPT(31) = COORDINATE Z1                                  REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID B                INTEGER\r\nC     ECPT(33) = COORDINATE X1                                  REAL\r\nC     ECPT(34) = COORDINATE Y1                                  REAL\r\nC     ECPT(35) = COORDINATE Z1                                  REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID C                INTEGER\r\nC     ECPT(37) = COORDINATE X1                                  REAL\r\nC     ECPT(38) = COORDINATE Y1                                  REAL\r\nC     ECPT(39) = COORDINATE Z1                                  REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID D                INTEGER\r\nC     ECPT(41) = COORDINATE X1                                  REAL\r\nC     ECPT(42) = COORDINATE Y1                                  REAL\r\nC     ECPT(43) = COORDINATE Z1                                  REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID E                INTEGER\r\nC     ECPT(45) = COORDINATE X1                                  REAL\r\nC     ECPT(46) = COORDINATE Y1                                  REAL\r\nC     ECPT(47) = COORDINATE Z1                                  REAL\r\nC     ECPT(48) = COORDINATE SYSTEM ID FOR GRID F                INTEGER\r\nC     ECPT(49) = COORDINATE X1                                  REAL\r\nC     ECPT(50) = COORDINATE Y1                                  REAL\r\nC     ECPT(51) = COORDINATE Z1                                  REAL\r\nC     EST (52) = ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          IMASS,NOTS,NOGO,UNIMEM,UNIBEN\r\n      INTEGER          XU(32),YU(32),XV(32),YV(32),XW(32),YW(32),\r\n     1                 RK(3),SK(3),ELTYPE,ELID,ESTID,DICT(15),SIL(6),\r\n     2                 SIL1,SIL2,SAVE(6),XTHK(10),YTHK(10),SMALL(6)\r\nC\r\nC     RK AND SK ARE EXPONENTS IN THICKNESS VARIATION\r\nC\r\n      REAL             J11,J12,J22,NSM,XC(6),YC(6),ZC(6),IVECT(3),\r\n     1                 JVECT(3),KVECT(3),CC(10),NAME(2)\r\nC\r\nC     LOCAL DOUBLE PRECISION VARIABLES\r\nC\r\n      DOUBLE PRECISION S11,S22,S13,S23,D334,D132,D232,S33,MSHL(1024),\r\n     1                 RMX,RNX,RMNX,RMX1,RNX1,RMY,RNY,RMNY,RMY1,RNY1,\r\n     2                 CMT(1296),CTM(36,36),CMS(900),CM1(30,30),\r\n     3                 QKS(960),CAB(3),H4,H5,H6,QQQ(20,20),\r\n     4                 SB1,SB2,SB3,SB4,SB5,SB6,SB7,SB8,SB9,RIX,RIY,RJX,\r\n     5                 RJY,RKX,RKY,RLX,RLY,G11,G22,KSHL(1024),KSUP(36),\r\n     6                 KSUPT(36),QQQINV(360),Q,EE,CSUB,CSUBT\r\n      DOUBLE PRECISION SB10,SB11,SB12,SB13,SB14,SB15,SB16,SB17,SB18,SB19\r\n     1,                SB20,SB21,SB22,SB23,SB24,SB25,SB26,SB27,SB28,SB29\r\n     2,                SB30,SB31,SB32,SB33,SB34,SB35,SB36,SB37,SB38,SB39\r\n     3,                SB40,SB41,DEGRA,DETERM\r\n      DOUBLE PRECISION TRAND(9),BALOTR(36),KSUB(6,6),KSUBT(6,6),\r\n     1                 ST,D13,D22,D11,D12,D23,D33,\r\n     2                 G13,G23,G33,G12,RHO,ST1,A2SQ,A3SQ,AREA,VOL,A1SQ,\r\n     3                 ST11,ST22,ST121,ST122,ST131,ST132,ST133,ST231,\r\n     4                 ST232,ST233,ST331,ST332\r\n      DIMENSION        IND(6,3),INDEX(20,3),ICS(6),IEST(42),NL(6)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  NOK,NOM,NOB\r\n      COMMON /EMGEST/  EST(100)\r\n      COMMON /EMGDIC/  ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /SMA1DP/  F(14,14),Q(6,6),EE(30),CSUBT(6,5),CSUB(5,5)\r\n      COMMON /SMA2DP/  TRAND,BALOTR,KSUB,KSUBT,FAC,XC,YC,ZC,IVECT,JVECT,\r\n     1                 KVECT,CC,CAB,DICT,SIL,SAVE,SMALL,INDEX,ICS,NL\r\n      COMMON /SMA1CL/  KDUMMY(22), KNOGO\r\n      COMMON /EMGPRM/  IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /MATIN /  MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/  EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                 RJ11,RJ12,RJ22\r\n      EQUIVALENCE     (C1,CC(1)), (C2 ,CC(2)), (C3,CC(3)), (C4,CC(4)),\r\n     1                (C5,CC(5)), (C6 ,CC(6)), (C7,CC(7)), (C8,CC(8)),\r\n     2                (C9,CC(9)), (C10,CC(10))\r\n      EQUIVALENCE     (A ,DISTA), (B  ,DISTB), (C ,DISTC),\r\n     1                (CMT(1),CTM(1,1))      , (IEST(1),EST(1))\r\n      EQUIVALENCE     (CMT(1),KSHL(1),MSHL(1), QQQ(1,1)),\r\n     1                (KSUB(1,1),KSUP(1))    , (KSUBT(1,1),KSUPT(1)),\r\n     2                (QKS(1),CMT(1025))\r\n      EQUIVALENCE     (THK1,TBEND1), (THK2,TBEND3), (THK3,TBEND5),\r\n     1                (CM1(1,1),CMS(1)), (KSYSTM(2),IOUTPT),\r\n     2                (IND(1,1),INDEX(1,1))\r\n      DATA    XU    / 0,1,0,2,1,0,26*0     /,\r\n     1        YU    / 0,0,1,0,1,2,26*0     /,\r\n     2        XV    / 6*0,0,1,0,2,1,0,20*0 /,\r\n     3        YV    / 6*0,0,0,1,0,1,2,20*0 /,\r\n     4        XW    / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/,\r\n     5        YW    / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/\r\n      DATA    BLANK , NAME  / 4H    , 4HTRSH, 4HL     /\r\n      DATA    RK    / 0,1,0 /\r\n      DATA    SK    / 0,0,1 /\r\n      DATA    DEGRA / 0.0174532925D0       /\r\n      DATA    XTHK  / 0,1,0,2,1,0,3,2,1,0  /\r\n      DATA    YTHK  / 0,0,1,0,1,2,0,1,2,3  /\r\nC\r\nC\r\n      DICT(1) = ESTID\r\nC\r\nC     COMPONENT CODE,ICODE,IS  111111  AND HAS A VALUE OF 63\r\nC\r\n      ICODE  = 63\r\n      NDOF   = 36\r\n      NSQ    = NDOF**2\r\n      DICT(2)= 1\r\n      DICT(3)= NDOF\r\n      DICT(4)= ICODE\r\n      DICT(5)= GSUBE\r\n      NOTS   =.FALSE.\r\n      IMASS  =.FALSE.\r\n      IF (NOM .GT. 0) IMASS =.TRUE.\r\n      IPASS  = 1\r\n      IDELE  = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.3333333333\r\n      TBEND3 = (EST(15)*12.0)**0.3333333333\r\n      TBEND5 = (EST(16)*12.0)**0.3333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      DO 20 I = 28,48,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n   20 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE\r\nC     SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS =.TRUE.\r\n      TSHR = (TSHR1+TSHR3+TSHR5)/3.0\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      ELTEMP = EST(52)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUTE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF  (MATID1 .EQ. 0) GO TO 30\r\n      CALL MAT (IDELE)\r\nC\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\n   30 CONTINUE\r\n      MATFLG = 2\r\n      MATID  = MATID2\r\n      IF  (MATID2 .EQ. 0) GO TO 40\r\n      CALL MAT (IDELE)\r\n      D11 = EM(1)\r\n      D12 = EM(2)\r\n      D13 = EM(3)\r\n      D22 = EM(4)\r\n      D23 = EM(5)\r\n      D33 = EM(6)\r\n      J11 = 0.0\r\n      J12 = 0.0\r\n      J22 = 0.0\r\n      IF (NOTS) GO TO 40\r\n      MATFLG = 3\r\n      MATID  = MATID3\r\n      CALL MAT (IDELE)\r\n      J11 = 1.0/(RJ11*TSHR)\r\n      J12 = 0.0\r\n      J22 = 1.0/(RJ22*TSHR)\r\n   40 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 50 I = 1,20\r\n      DO 50 J = 1,20\r\n   50 QQQ(I,J) = 0.0D0\r\n      DO 60 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0D0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0D0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0D0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n   60 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 70 I = 1,6\r\n      DO 70 J = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      Q(I,J) = QQQ(I1,J)\r\n   70 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,Q,6,BALOTR(1),0,DETERM,ISING,IND)\r\n      IF (ISING .EQ. 2) GO TO 700\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     AGAIN RESET ISING TO -1\r\nC\r\n      ISING = -1\r\n      CALL INVERD (20,QQQ,20,BALOTR(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 700\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO 80 I = 1,20\r\n      DO 80 J = 1,18\r\n      IJK = (I-1)*18 + J\r\n      QQQINV(IJK) = QQQ(I,J)\r\n   80 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\n   90 CONTINUE\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION - MEMBRANE\r\nC\r\n      CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1)\r\n      CAB(1) = C1\r\n      CAB(2) = C2\r\n      CAB(3) = C3\r\n      AREA   = F(1,1)\r\n      VOL    = C1*F(1,1) + C2*F(2,1) + C3*F(1,2)\r\nC\r\nC\r\n      D334 = D33*4.0D0\r\n      D132 = D13*2.0D0\r\n      D232 = D23*2.0D0\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1)\r\n      UNIMEM =.FALSE.\r\n      UNIBEN =.FALSE.\r\n      IF (ABS(A2).LE.1.0D-06 .AND. ABS(A3).LE.1.0D-06) UNIBEN =.TRUE.\r\n      IF (ABS(C2).LE.1.0D-06 .AND. ABS(C3).LE.1.0D-06) UNIMEM =.TRUE.\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1 = A1SQ*A1\r\n      C2 = 3.0*A1SQ*A2\r\n      C3 = 3.0*A1SQ*A3\r\n      C4 = 3.0*A1*A2SQ\r\n      C5 = 6.0*A1*A2*A3\r\n      C6 = 3.0*A3SQ*A1\r\n      C7 = A2SQ*A2\r\n      C8 = 3.0*A2SQ*A3\r\n      C9 = 3.0*A2*A3SQ\r\n      C10= A3*A3SQ\r\nC\r\nC     AA1, AA2, AA3  ARE COEFFICIENTS IN THICKNESS VARIATION FOR\r\nC     TRANSVERSE SHEAR\r\nC\r\nC    (POSSIBLY AN ERROR HERE - AA1,AA2, AND AA3 ARE NOT USED IN PROGRAM)\r\nC     CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\nC\r\n      H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1     Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1     Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1     Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4 = H4*2.0D0\r\n      H6 = H6*2.0D0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY = DU/DY + DV/DX - ZXY*W\r\nC\r\n      H5 = H5*2.0D0\r\nC\r\n      DO 230 I = 1,32\r\n      IX   = XU(I)\r\n      RIX  = IX\r\n      JX   = YU(I)\r\n      RJX  = JX\r\n      KX   = XV(I)\r\n      RKX  = KX\r\n      LX   = YV(I)\r\n      RLX  = LX\r\n      MX   = XW(I)\r\n      RMX  = MX\r\n      NX   = YW(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0D0)\r\n      RNX1 = RNX*(RNX-1.0D0)\r\n      IXP1 = IX + 1\r\n      JXP1 = JX + 1\r\n      KXP1 = KX + 1\r\n      LXP1 = LX + 1\r\n      MXP1 = MX + 1\r\n      NXP1 = NX + 1\r\n      DO 220 J = I,32\r\n      IJ   = (I-1)*32 + J\r\n      JI   = (J-1)*32 + I\r\n      IY   = XU(J)\r\n      RIY  = IY\r\n      JY   = YU(J)\r\n      RJY  = JY\r\n      KY   = XV(J)\r\n      RKY  = KY\r\n      LY   = YV(J)\r\n      RLY  = LY\r\n      MY   = XW(J)\r\n      RMY  = MY\r\n      NY   = YW(J)\r\n      RNY  = NY\r\n      RMNY = RMY*RNY\r\n      RMY1 = RMY*(RMY-1.0D0)\r\n      RNY1 = RNY*(RNY-1.0D0)\r\n      MX0  = MX + MY\r\n      MX1  = MX + MY - 1\r\n      MX2  = MX + MY - 2\r\n      MX3  = MX + MY - 3\r\n      NX0  = NX + NY\r\n      NX1  = NX + NY - 1\r\n      NX2  = NX + NY - 2\r\n      NX3  = NX + NY - 3\r\n      MY1  = MX + MY + 1\r\n      NY1  = NX + NY + 1\r\n      IX0  = IX + IY\r\n      IX1  = IX0 - 1\r\n      IX01 = IX0 + 1\r\n      JX0  = JX  + JY\r\n      JX1  = JX0 - 1\r\n      JX01 = JX0 + 1\r\n      KX0  = KX  + KY\r\n      KX1  = KX0 - 1\r\n      KX01 = KX0 + 1\r\n      LX0  = LX  + LY\r\n      LX1  = LX0 - 1\r\n      LX01 = LX0 + 1\r\n      IF (IPASS .EQ. 1) GO TO 110\r\n      IX011= IX01 + 1\r\n      JX011= JX01 + 1\r\n      RHO  = RHOY*1.0D0\r\n      IF (J .GT. 12) GO TO 100\r\n      MSHL(IJ) = RHO*(CAB(1)*F(IX01,JX01) + CAB(2)*F(IX011,JX01) +\r\n     1           CAB(3)*F(IX01,JX011)) + NSM*F(IX01,JX01)\r\n      MSHL(JI) = MSHL (IJ)\r\n  100 CONTINUE\r\n      MX01  = MX0  + 1\r\n      NX01  = NX0  + 1\r\n      MX011 = MX01 + 1\r\n      NX011 = NX01 + 1\r\n      MSHL(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) +\r\n     1           A3*F(MX01,NX011)) + NSM*F(MX01,NX01)\r\n      MSHL(JI) = MSHL(IJ)\r\n      GO TO 210\r\n  110 CONTINUE\r\n      ST = 0.0D0\r\n      IF (I.LE.12 .AND. J.GT.12) GO TO 160\r\n      IF (I .GT. 12) GO TO 140\r\n      DO 120 K = 1,3\r\n      IXR1  = IX1 + RK(K)\r\n      JXS01 = JX01+ SK(K)\r\n      LXS1  = LX1 + SK(K)\r\n      KXR01 = KX01+ RK(K)\r\n      IXR01 = IX01+ RK(K)\r\n      JXS1  = JX1 + SK(K)\r\n      KXR1  = KX1 + RK(K)\r\n      LXS01 = LX01+ SK(K)\r\n      IYKX1 = IY + KX + RK(K)\r\n      JYLX1 = JY + LX + SK(K)\r\n      IXKY1 = IX + KY + RK(K)\r\n      JXLY1 = JX + LY + SK(K)\r\n      IXIY0 = IX + IY + RK(K)\r\n      JXJY0 = JX + JY + SK(K)\r\n      IYKX2 = IYKX1 - 1\r\n      JYLX0 = JYLX1 + 1\r\n      IXKY2 = IXKY1 - 1\r\n      JXLY0 = JXLY1 + 1\r\n      KXKY0 = KX + KY + RK(K)\r\n      LXLY0 = LX + LY + SK(K)\r\n      IXKY0 = IX + KY + RK(K) + 1\r\n      JXLY2 = JXLY1 - 1\r\n      IYKX0 = IY + KX + RK(K) + 1\r\n      JYLX2 = JYLX1 - 1\r\n      ST11  = 0.0D0\r\n      ST22  = 0.0D0\r\n      ST331 = 0.0D0\r\n      ST332 = 0.0D0\r\n      ST121 = 0.0D0\r\n      ST122 = 0.0D0\r\n      ST131 = 0.0D0\r\n      ST132 = 0.0D0\r\n      ST133 = 0.0D0\r\n      ST231 = 0.0D0\r\n      ST232 = 0.0D0\r\n      ST233 = 0.0D0\r\n      IF (IXR1 .GT. 0) ST11  = G11*RIX*RIY*F(IXR1,JXS01)\r\n      IF (LXS1 .GT. 0) ST22  = G22*RLX*RLY*F(KXR01,LXS1)\r\n      IF (JXS1 .GT. 0) ST331 = G33*RJX*RJY*F(IXR01,JXS1)\r\n      IF (KXR1 .GT. 0) ST332 = G33*RKX*RKY*F(KXR1,LXS01)\r\n      IF (IXKY1.GT.0 .AND. JXLY1.GT.0) ST121 = (G33*RJX*RKY +\r\n     1                                 G12*RIX*RLY)*F(IXKY1,JXLY1)\r\n      IF (IYKX1.GT.0 .AND. JYLX1.GT.0) ST122 = (G33*RJY*RKX +\r\n     1                                 G12*RIY*RLX)*F(IYKX1,JYLX1)\r\n      IF (IXIY0.GT.0 .AND. JXJY0.GT.0) ST131 = G13*(RIY*RJX +\r\n     1                                 RIX*RJY)*F(IXIY0,JXJY0)\r\n      IF (IYKX2 .GT. 0) ST132 = G13*RIY*RKX*F(IYKX2,JYLX0)\r\n      IF (IXKY2 .GT. 0) ST133 = G13*RIX*RKY*F(IXKY2,JXLY0)\r\n      IF (KXKY0.GT.0 .AND. LXLY0.GT.0) ST231 = G23*(RKX*RLY +\r\n     1                                 RKY*RLX)*F(KXKY0,LXLY0)\r\n      IF (JXLY2 .GT. 0) ST232 = G23*RJX*RLY*F(IXKY0,JXLY2)\r\n      IF (JYLX2 .GT. 0) ST233 = G23*RJY*RLX*F(IYKX0,JYLX2)\r\nC\r\n      ST1 = (ST11  + ST22  + ST331 + ST332 + ST121 + ST122 + ST131 +\r\n     1       ST132 + ST133 + ST231 + ST232 + ST233)* CAB(K)\r\n      ST  = ST + ST1\r\n      IF (UNIMEM) GO TO 130\r\n  120 CONTINUE\r\n  130 CONTINUE\r\n      GO TO 200\r\n  140 CONTINUE\r\n      ST = 0.0D0\r\n      DO 150 K = 1,10\r\n      MX3X = MX3 + XTHK(K)\r\n      NY1Y = NY1 + YTHK(K)\r\n      MY1X = MY1 + XTHK(K)\r\n      NX3Y = NX3 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX2X = MX2 + XTHK(K)\r\n      NX0Y = NX0 + YTHK(K)\r\n      MX0X = MX0 + XTHK(K)\r\n      NX2Y = NX2 + YTHK(K)\r\n      S11  = 0.0D0\r\n      S22  = 0.0D0\r\n      S33  = 0.0D0\r\n      S13  = 0.0D0\r\n      S23  = 0.0D0\r\n      IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y)\r\n      IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y)\r\n      IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY +\r\n     1    D12*(RMX1*RNY1+RMY1*RNX1))*CC(K)*F(MX1X,NX1Y)\r\n      IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY +\r\n     1    RMNX*RMY1)*CC(K)*F(MX2X,NX0Y)\r\n      IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 +\r\n     1    RNX1*RMNY)*CC(K)*F(MX0X,NX2Y)\r\n      ST = ST + (S11 + S22 + S33 + S13 + S23)/12.0D0\r\n      IF (UNIBEN) GO TO 160\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n      SB7  = 0.0D0\r\n      SB9  = 0.0D0\r\n      SB10 = 0.0D0\r\n      SB18 = 0.0D0\r\n      SB21 = 0.0D0\r\n      SB26 = 0.0D0\r\n      SB28 = 0.0D0\r\n      SB31 = 0.0D0\r\n      SB36 = 0.0D0\r\n      SB38 = 0.0D0\r\n      DO 180 K = 1,3\r\n      IXMYR = IX + MY + RK(K)\r\n      JXNYS1= JX + NY + SK(K) + 1\r\n      SB1  = 0.0D0\r\n      SB2  = 0.0D0\r\n      SB3  = 0.0D0\r\n      SB4  = 0.0D0\r\n      SB5  = 0.0D0\r\n      SB6  = 0.0D0\r\n      SB8  = 0.0D0\r\n      SB11 = 0.0D0\r\n      SB12 = 0.0D0\r\n      SB13 = 0.0D0\r\n      SB14 = 0.0D0\r\n      SB15 = 0.0D0\r\n      SB16 = 0.0D0\r\n      SB17 = 0.0D0\r\n      SB19 = 0.0D0\r\n      SB20 = 0.0D0\r\n      SB22 = 0.0D0\r\n      SB23 = 0.0D0\r\n      SB24 = 0.0D0\r\n      SB25 = 0.0D0\r\n      SB27 = 0.0D0\r\n      SB29 = 0.0D0\r\n      SB30 = 0.0D0\r\n      SB32 = 0.0D0\r\n      SB33 = 0.0D0\r\n      SB34 = 0.0D0\r\n      SB35 = 0.0D0\r\n      SB37 = 0.0D0\r\n      SB39 = 0.0D0\r\n      SB40 = 0.0D0\r\n      IF (IXMYR .GT. 0)  SB 1 =-G11*RIX*H4*CAB(K)*F(IXMYR,JXNYS1)\r\n      IYMXR  = IY + MX + RK(K)\r\n      JYNXS1 = JY + NX + SK(K) + 1\r\n      IF (IYMXR .GT. 0)  SB 2 =-G11*RIY*H4*CAB(K)*F(IYMXR,JYNXS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB 3 = G11*H4**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB 4 =-G22*RLX*H6*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS .GT. 0)  SB 5 =-G22*RLY*H6*CAB(K)*F(MXKYR1,NXLYS)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB 6 = G22*H6**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n      IF (JXNYS .GT. 0)  SB 8 =-G33*RJX*H5*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB11 =-G33*RKX*H5*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB12 =-G33*RJY*H5*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB13 =-G33*RKY*H5*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB14 = G33*H5**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR  = IX + MY + RK(K)\r\n      JXNYS1 = JX + NY + SK(K) + 1\r\n      IF (IXMYR .GT. 0)  SB15 =-G12*RIX*H6*CAB(K)*F(IXMYR,JXNYS1)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS .GT. 0)  SB16 =-G12*RLY*H4*CAB(K)*F(MXKYR1,NXLYS)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB17 = 2*G12*H4*H6*CAB(K)*F(MXMYR1,NXNYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB19 =-G12*RLX*H4*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXIYR  = MX + IY + RK(K)\r\n      NXJYS1 = NX + JY + SK(K) + 1\r\n      IF (MXIYR .GT. 0)  SB20 =-G12*RIY*H6*CAB(K)*F(MXIYR,NXJYS1)\r\n      IXMYR  = IX + MY + RK(K)\r\n      JXNYS1 = JX + NY + SK(K) + 1\r\n      IF (IXMYR .GT. 0)  SB22 =-G13*RIX*H5*CAB(K)*F(IXMYR,JXNYS1)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB23 =-G13*RJY*H4*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB24 =-G13*RKY*H4*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB25 = 2*G13*H4*H5*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n      IF (JXNYS .GT. 0)  SB27 =-G13*RJX*H4*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB29 =-G13*RKX*H4*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXIYR  = MX + IY + RK(K)\r\n      NXJYS1 = NX + JY + SK(K) + 1\r\n      IF (MXIYR .GT. 0)  SB30 =-G13*RIY*H5*CAB(K)*F(MXIYR,NXJYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB32 =-G23*RLX*H5*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB33 =-G23*RJY*H6*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB34 =-G23*RKY*H6*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB35 = 2*G23*H5*H6*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n      IF (JXNYS .GT. 0)  SB37 =-G23*RJX*H6*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB39 =-G23*RKX*H6*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS .GT. 0)  SB40 =-G23*RLY*H5*CAB(K)*F(MXKYR1,NXLYS)\r\n      SB41 = SB3 + SB6 + SB14 + SB17 + SB25 + SB35\r\n      IF (I .LE. 12) SB41 = 0.0D0\r\n      ST = ST   + SB1  + SB2  + SB4  + SB5  + SB7  + SB8  + SB9  + SB10\r\n     1   + SB11 + SB12 + SB13 + SB15 + SB16 + SB18 + SB19 + SB20 + SB21\r\n     2   + SB22 + SB23 + SB24 + SB26 + SB27 + SB28 + SB29 + SB30 + SB31\r\n     3   + SB32 + SB33 + SB34 + SB36 + SB37 + SB38 + SB39 + SB40 + SB41\r\n      IF (UNIMEM) GO TO 190\r\n  180 CONTINUE\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      KSHL(IJ) = ST\r\n      KSHL(JI) = KSHL(IJ)\r\n  210 CONTINUE\r\n  220 CONTINUE\r\n  230 CONTINUE\r\n      IF (IPASS .EQ. 2) GO TO 240\r\nC\r\nC     CURRENTLY,TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL\r\nC     ELEMENT WHEN IT IS CODED,CALL THE ROUTINE HERE\r\nC\r\n  240 CONTINUE\r\nC\r\nC     (QQQINV) TRANSPOSE (KTR3)  (QQQINV)\r\nC\r\n      CALL GMMATD (Q,6,6,0, KSHL(  1),6,32,0, QKS(1))\r\n      CALL GMMATD (Q,6,6,0, KSHL(193),6,32,0, QKS(193))\r\n      CALL GMMATD (QQQINV,20,18,+1, KSHL(385),20,32,0, QKS(385))\r\n      DO 260 I = 1,30\r\n      DO 250 J = 1,6\r\n      IJ = (I-1)*32 + J\r\n      JI = (I-1)*6 + J\r\n      KSHL(JI) = QKS(IJ)\r\n      KSHL(180+JI) = QKS(6+IJ)\r\n  250 CONTINUE\r\n  260 CONTINUE\r\n      DO 280 I = 1,30\r\n      DO 270 J = 1,20\r\n      IJ = (I-1)*32 + J + 12\r\n      JI = (I-1)*20 + J + 360\r\n      KSHL(JI) = QKS(IJ)\r\n  270 CONTINUE\r\n  280 CONTINUE\r\n      CALL GMMATD (KSHL(1  ),30,6 ,0, Q,6,6,1 , QKS(1  ))\r\n      CALL GMMATD (KSHL(181),30,6 ,0, Q,6,6,1 , QKS(181))\r\n      CALL GMMATD (KSHL(361),30,20,0, QQQINV,20,18,0, QKS(361))\r\n      DO 300 I = 1,30\r\n      DO 290 J = 1,6\r\n      IJ = (I-1)*30 + J\r\n      JI = (I-1)*6  + J\r\n      CMS(IJ  ) = QKS(JI    )\r\n      CMS(IJ+6) = QKS(JI+180)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\n      DO 320 I = 1,30\r\n      DO 310 J = 1,18\r\n      IJ = (I-1)*30 + J + 12\r\n      JI = (I-1)*18 + J + 360\r\n      CMS(IJ) = QKS(JI)\r\n  310 CONTINUE\r\n  320 CONTINUE\r\n      DO 330 I = 1,30\r\n      EE(I) = 0.0D0\r\n  330 CONTINUE\r\n      EE(1)  =  IVECT(1)\r\n      EE(2)  =  JVECT(1)\r\n      EE(3)  =  KVECT(1)\r\n      EE(6)  =  IVECT(2)\r\n      EE(7)  =  JVECT(2)\r\n      EE(8)  =  KVECT(2)\r\n      EE(11) =  IVECT(3)\r\n      EE(12) =  JVECT(3)\r\n      EE(13) =  KVECT(3)\r\n      EE(19) =  IVECT(1)\r\n      EE(20) =  JVECT(1)\r\n      EE(24) =  IVECT(2)\r\n      EE(25) =  JVECT(2)\r\n      EE(29) =  IVECT(3)\r\n      EE(30) =  JVECT(3)\r\n      DO 360 K = 1,6\r\n      DO 350 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 340 J = 1,30\r\n      CTM (I1,J) = CM1(K1,J)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n  360 CONTINUE\r\n      DO 390 K = 1,6\r\n      DO 380 I = 1,3\r\n      I2 = 5*(K-1) + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 370 J = 1,30\r\n      CTM (I2,J) = CM1(K2,J)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\n      DO 420 K = 1,6\r\n      DO 410 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 400 J = 1,30\r\n      CM1(J,I1) = CTM(J,K1)\r\n  400 CONTINUE\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      DO 450 K = 1,6\r\n      DO 440 I = 1,3\r\n      I2 = 5*(K-1) + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      DO 430 J = 1,30\r\n      CM1(J,I2) = CTM(J,K2)\r\n  430 CONTINUE\r\n  440 CONTINUE\r\n  450 CONTINUE\r\n      DO 460 I = 1,1296\r\n      CMT(I) = 0.0D0\r\n  460 CONTINUE\r\nC\r\nC     LUMPED MASS COMPUTATION\r\nC\r\n      IF (IPASS .NE. 2) GO TO 490\r\n  470 AMASS = (RHOY*VOL + NSM*AREA)/6.\r\n      DO 480 I = 1,1296,37\r\n      CMT(I) = AMASS\r\n  480 CONTINUE\r\n      IPASS = 2\r\n      GO TO 690\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATES\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n  490 DO 500 I = 1,6\r\n      SAVE(I) = NL(I)\r\n  500 CONTINUE\r\n      DO 530 I = 1,6\r\n      SMALL(I) = I\r\n      ISMALL = NL(I)\r\n      DO 520 J = 1,6\r\n      IF (ISMALL .LE. NL(J)) GO TO 510\r\n      SMALL(I) = J\r\n      ISMALL = NL(J)\r\n  510 CONTINUE\r\n  520 CONTINUE\r\n      ISM = SMALL(I)\r\n      NL(ISM) = 1000000\r\n  530 CONTINUE\r\n      DO 540 I = 1,6\r\n      NL(I) = SAVE(I)\r\n  540 CONTINUE\r\n      DO 680 I = 1,6\r\n      SIL1 = SMALL(I)\r\n      DO 670 J = I,6\r\n      SIL2 = SMALL(J)\r\n      DO 550 II = 1,36\r\n      BALOTR(II) = 0.0D0\r\n      KSUP(II)   = 0.0D0\r\n  550 CONTINUE\r\n      DO 570 K = 1,5\r\n      K1 = (SIL1-1)*5 + K\r\n      DO 560 L = 1,5\r\n      L1 = (SIL2-1)*5 + L\r\n      CSUB(K,L)=CM1(K1,L1)\r\n  560 CONTINUE\r\n  570 CONTINUE\r\n      CALL GMMATD (EE,6,5,0, CSUB,5,5,0, CSUBT)\r\n      CALL GMMATD (CSUBT,6,5,0, EE,6,5,+1, KSUPT)\r\n      DO 580 K = 1,6\r\n      DO 580 L = 1,6\r\n      K1 = (K-1)*6 + L\r\n      L1 = (L-1)*6 + K\r\n      KSUP(L1) = KSUPT(K1)\r\n  580 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 610\r\n      JJ = 4*SIL1 + 24\r\n      CALL TRANSD (IEST(JJ),TRAND)\r\n      DO 590 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  590 CONTINUE\r\n      CALL GMMATD (BALOTR(1),6,6,1, KSUP(1),6,6,0, KSUPT)\r\n      DO 600 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  600 CONTINUE\r\n  610 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 650\r\n      IF (J .EQ. I) GO TO 630\r\n      JJ = 4*SIL2 + 24\r\n      CALL TRANSD (IEST(JJ),TRAND)\r\n      DO 620 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n      CALL GMMATD (KSUP(1),6,6,0, BALOTR(1),6,6,0, KSUPT)\r\n      DO 640 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  640 CONTINUE\r\n  650 CONTINUE\r\n      DO 660 II = 1,6\r\n      DO 660 JJ = 1,6\r\n      I1 = (I-1)*6 + II\r\n      J1 = (J-1)*6 + JJ\r\n      CTM(I1,J1) = KSUB(JJ,II)\r\n      CTM(J1,I1) = KSUB(JJ,II)\r\n  660 CONTINUE\r\n  670 CONTINUE\r\n  680 CONTINUE\r\n  690 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     TO TO 295 TO COMPUTE LUMPED MASS MATRIX\r\nC     GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH DOES NOT\r\nC     WROK)\r\nC\r\n      IPASS = 3\r\n      CALL SSWTCH (46,J)\r\n      GO TO (720,90,470), IPASS\r\nC\r\nC     ERROR\r\nC\r\n  700 CONTINUE\r\n      NOGO  =.TRUE.\r\n      KNOGO = 1\r\n      WRITE  (IOUTPT,710) UFM,IEST(1)\r\n  710 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRSHL WITH ID',I9,1H.)\r\n  720 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktshls.f",
    "content": "      SUBROUTINE KTSHLS\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                     INTEGER\r\nC     ECPT( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1           INTEGER\r\nC     ECPT( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2           INTEGER\r\nC     ECPT( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3           INTEGER\r\nC     ECPT( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4           INTEGER\r\nC     ECPT( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5           INTEGER\r\nC     ECPT( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6           INTEGER\r\nC     ECPT( 8) = THETA                                          REAL\r\nC     ECPT( 9) = MATERIAL ID 1                                  INTEGER\r\nC     ECPT(10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT(11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT(12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT(13) = MATERIAL ID 2                                  INTEGER\r\nC     ECPT(14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT(15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT(16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT(17) = MATERIAL ID 3                                  INTEGER\r\nC     ECPT(18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT(19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT(20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT(21) = NON-STRUCTURAL MASS                            REAL\r\nC     ECPT(22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT(24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT(26) = DISTANCE Z15 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT(27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE  IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT(28) = COORDINATE SYSTEM ID FOR GRID A                INTEGER\r\nC     ECPT(29) = COORDINATE X1                                  REAL\r\nC     ECPT(30) = COORDINATE Y1                                  REAL\r\nC     ECPT(31) = COORDINATE Z1                                  REAL\r\nC     ECPT(32) = COORDINATE SYSTEM ID FOR GRID B                INTEGER\r\nC     ECPT(33) = COORDINATE X1                                  REAL\r\nC     ECPT(34) = COORDINATE Y1                                  REAL\r\nC     ECPT(35) = COORDINATE Z1                                  REAL\r\nC     ECPT(36) = COORDINATE SYSTEM ID FOR GRID C                INTEGER\r\nC     ECPT(37) = COORDINATE X1                                  REAL\r\nC     ECPT(38) = COORDINATE Y1                                  REAL\r\nC     ECPT(39) = COORDINATE Z1                                  REAL\r\nC     ECPT(40) = COORDINATE SYSTEM ID FOR GRID D                INTEGER\r\nC     ECPT(41) = COORDINATE X1                                  REAL\r\nC     ECPT(42) = COORDINATE Y1                                  REAL\r\nC     ECPT(43) = COORDINATE Z1                                  REAL\r\nC     ECPT(44) = COORDINATE SYSTEM ID FOR GRID E                INTEGER\r\nC     ECPT(45) = COORDINATE X1                                  REAL\r\nC     ECPT(46) = COORDINATE Y1                                  REAL\r\nC     ECPT(47) = COORDINATE Z1                                  REAL\r\nC     ECPT(48) = COORDINATE SYSTEM ID FOR GRID F                INTEGER\r\nC     ECPT(49) = COORDINATE X1                                  REAL\r\nC     ECPT(50) = COORDINATE Y1                                  REAL\r\nC     ECPT(51) = COORDINATE Z1                                  REAL\r\nC     EST (52) = ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         IMASS,NOTS,NOGO,UNIMEM,UNIBEN\r\n      INTEGER         XU(32),YU(32),XV(32),YV(32),XW(32),YW(32),\r\n     1                SIL(6),SIL1,SIL2,SAVE(6),XTHK(10),YTHK(10),\r\n     2                RK(3),SK(3),ELTYPE,ELID,ESTID,DICT(15),SMALL(6)\r\nC                     RK AND SK ARE EXPONENTS IN THICKNESS VARIATION\r\n      REAL            J11,J12,J22,NSM,MSHL(1024),KSHL(1024),KSUB(6,6),\r\n     1                KSUBT(6,6),IVECT(3),JVECT(3),KVECT(3),KSUP,KSUPT\r\n      DIMENSION       INDEX(20,3),ICS(6),IEST(42),NL(6),IND(6,3),\r\n     1                QQQINV(360),XC(6),YC(6),ZC(6),QQQ(20,20),\r\n     2                CMT(1296),CMS(900),CM1(30,30),TRAND(9),BALOTR(36),\r\n     3                CC(10),CAB(3),QKS(960),KSUP(36),KSUPT(36),\r\n     4                CTM(36,36),NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / NOK,NOM,NOB\r\n      COMMON /EMGEST/ EST(100)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /SMA1DP/ F(14,14),Q(6,6),EE(30),CSUBT(6,5),CSUB(5,5)\r\n      COMMON /SMA2DP/ TRAND,BALOTR,KSUB,KSUBT,FAC,XC,YC,ZC,IVECT,JVECT,\r\n     1                KVECT,CC,CAB,DICT,SIL,SAVE,SMALL,INDEX,ICS,NL\r\n      COMMON /SMA1CL/ KDUMMY(22),KNOGO\r\n      COMMON /EMGPRM/ IXTRA,IZR,NZR,DUMY(12),KMBGG(3),IPREC,NOGO\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\nC\r\nC     SMA1 WORKING STORAGE\r\nC\r\nC     EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS\r\nC     A MIXED INTEGER AND REAL ARRAY\r\nC\r\n      EQUIVALENCE    (C1,CC(1)), (C2,CC(2)), (C3,CC(3)), (C4,CC(4)),\r\n     1               (C5,CC(5)), (C6,CC(6)), (C7,CC(7)), (C8,CC(8)),\r\n     2               (C9,CC(9)), (C10,CC(10)),\r\n     3               (KSUB(1,1),KSUP(1)), (KSUBT(1,1),KSUPT(1)),\r\n     4               (CMT(1),CTM(1,1)),   (QKS(1),CMT(1025))\r\n      EQUIVALENCE    (A,DISTA), (B,DISTB), (C,DISTC), (IEST(1),EST(1))\r\n      EQUIVALENCE    (CMT(1),KSHL(1),MSHL(1),QQQ(1,1))\r\n      EQUIVALENCE    (KSYSTM(2),IOUTPT)\r\n      EQUIVALENCE    (THK1,TBEND1), (THK2,TBEND3), (THK3,TBEND5)\r\n      EQUIVALENCE    (CM1(1,1),CMS(1)), (IND(1,1),INDEX(1,1))\r\n      DATA   XU    / 0,1,0,2,1,0,26*0     /,\r\n     1       YU    / 0,0,1,0,1,2,26*0     /,\r\n     2       XV    / 6*0,0,1,0,2,1,0,20*0 /,\r\n     3       YV    / 6*0,0,0,1,0,1,2,20*0 /,\r\n     4       XW    / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/\r\n     5       YW    / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/\r\n      DATA   BLANK , NAME  / 4H    , 4HTRSH, 4HL     /\r\n      DATA   RK    / 0,1,0 /\r\n      DATA   SK    / 0,0,1 /\r\n      DATA   DEGRA / 0.0174532925        /\r\n      DATA   XTHK  / 0,1,0,2,1,0,3,2,1,0 /\r\n      DATA   YTHK  / 0,0,1,0,1,2,0,1,2,3 /\r\nC\r\n      DICT(1) = ESTID\r\nC\r\nC     COMPONENT CODE,ICODE,IS  111111  AND HAS A VALUE OF 63\r\nC\r\n      ICODE  = 63\r\n      NDOF   = 36\r\n      NSQ    = NDOF**2\r\n      DICT(2)= 1\r\n      DICT(3)= NDOF\r\n      DICT(4)= ICODE\r\n      DICT(5)= GSUBE\r\n      NOTS   =.FALSE.\r\n      IMASS  =.FALSE.\r\n      IF (NOM .GT. 0) IMASS =.TRUE.\r\n      IPASS  = 1\r\n      IDELE  = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.3333333333\r\n      TBEND3 = (EST(15)*12.0)**0.3333333333\r\n      TBEND5 = (EST(16)*12.0)**0.3333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      DO 20 I = 28,48,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n   20 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE\r\nC     SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS=.TRUE.\r\n      TSHR = (TSHR1 + TSHR3 + TSHR5)/3.0\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      ELTEMP = EST(52)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUTE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF  (MATID1 .EQ. 0) GO TO 30\r\n      CALL MAT (IDELE)\r\nC\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\n   30 CONTINUE\r\n      MATFLG = 2\r\n      MATID  = MATID2\r\n      IF (MATID2 .EQ. 0) GO TO 40\r\n      CALL MAT (IDELE)\r\n      D11 = EM(1)\r\n      D12 = EM(2)\r\n      D13 = EM(3)\r\n      D22 = EM(4)\r\n      D23 = EM(5)\r\n      D33 = EM(6)\r\n      J11 = 0.0\r\n      J12 = 0.0\r\n      J22 = 0.0\r\n      IF (NOTS) GO TO 40\r\n      MATFLG = 3\r\n      MATID  = MATID3\r\n      CALL MAT (IDELE)\r\n      J11 = 1.0/(RJ11*TSHR)\r\n      J12 = 0.0\r\n      J22 = 1.0/(RJ22*TSHR)\r\n   40 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 50 I = 1,20\r\n      DO 50 J = 1,20\r\n   50 QQQ(I,J) = 0.0\r\n      DO 60 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n   60 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 70 I = 1,6\r\n      DO 70 J = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      Q(I,J) = QQQ(I1,J)\r\n   70 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,BALOTR(1),0,DETERM,ISING,IND)\r\n      IF (ISING .EQ. 2) GO TO 700\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\n      ISING = -1\r\n      CALL INVERS (20,QQQ,20,BALOTR(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 700\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     CALCULATIONS\r\nC\r\nC\r\n      DO 80 I = 1,20\r\n      DO 80 J = 1,18\r\n      IJK = (I-1)*18 + J\r\n      QQQINV(IJK) = QQQ(I,J)\r\n   80 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\n   90 CONTINUE\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION - MEMBRANE\r\nC\r\n      CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1)\r\n      CAB(1) = C1\r\n      CAB(2) = C2\r\n      CAB(3) = C3\r\n      AREA = F(1,1)\r\n      VOL  = C1*F(1,1) + C2*F(2,1) + C3*F(1,2)\r\nC\r\nC\r\n      D334 = D33*4.0\r\n      D132 = D13*2.0\r\n      D232 = D23*2.0\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1)\r\n      UNIMEM =.FALSE.\r\n      UNIBEN =.FALSE.\r\n      IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM =.TRUE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE.\r\n      A1SQ= A1*A1\r\n      A2SQ= A2*A2\r\n      A3SQ= A3*A3\r\n      C1  = A1SQ*A1\r\n      C2  = 3.0*A1SQ*A2\r\n      C3  = 3.0*A1SQ*A3\r\n      C4  = 3.0*A1*A2SQ\r\n      C5  = 6.0*A1*A2*A3\r\n      C6  = 3.0*A3SQ*A1\r\n      C7  = A2SQ*A2\r\n      C8  = 3.0*A2SQ*A3\r\n      C9  = 3.0*A2*A3SQ\r\n      C10 = A3*A3SQ\r\nC\r\nC     AA1, AA2, AA3  ARE COEFFICIENTS IN THICKNESS VARIATION FOR\r\nC     TRANSVERSE SHEAR\r\nC\r\nC\r\nC    (POSSIBLY AN ERROR HERE - AA1,AA2, AND AA3 ARE NOT USED IN PROGRAM)\r\nC     CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\nC\r\n      H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1     Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1     Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1     Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4 = H4*2.0\r\n      H6 = H6*2.0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W\r\nC\r\n      H5 = H5*2.0\r\nC\r\n      DO 230 I = 1,32\r\n      IX   = XU(I)\r\n      RIX  = IX\r\n      JX   = YU(I)\r\n      RJX  = JX\r\n      KX   = XV(I)\r\n      RKX  = KX\r\n      LX   = YV(I)\r\n      RLX  = LX\r\n      MX   = XW(I)\r\n      RMX  = MX\r\n      NX   = YW(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0)\r\n      RNX1 = RNX*(RNX-1.0)\r\n      IXP1 = IX + 1\r\n      JXP1 = JX + 1\r\n      KXP1 = KX + 1\r\n      LXP1 = LX + 1\r\n      MXP1 = MX + 1\r\n      NXP1 = NX + 1\r\n      DO 220 J = I,32\r\n      IJ  = (I-1)*32 + J\r\n      JI  = (J-1)*32 + I\r\n      IY  = XU(J)\r\n      RIY = IY\r\n      JY  = YU(J)\r\n      RJY = JY\r\n      KY  = XV(J)\r\n      RKY = KY\r\n      LY  = YV(J)\r\n      RLY = LY\r\n      MY  = XW(J)\r\n      RMY = MY\r\n      NY  = YW(J)\r\n      RNY = NY\r\n      RMNY= RMY*RNY\r\n      RMY1= RMY*(RMY-1.0)\r\n      RNY1= RNY*(RNY-1.0)\r\n      MX0 = MX + MY\r\n      MX1 = MX + MY - 1\r\n      MX2 = MX + MY - 2\r\n      MX3 = MX + MY - 3\r\n      NX0 = NX + NY\r\n      NX1 = NX + NY - 1\r\n      NX2 = NX + NY - 2\r\n      NX3 = NX + NY - 3\r\n      MY1 = MX + MY + 1\r\n      NY1 = NX + NY + 1\r\n      IX0 = IX + IY\r\n      IX1 = IX0- 1\r\n      IX01= IX0+ 1\r\n      JX0 = JX + JY\r\n      JX1 = JX0- 1\r\n      JX01= JX0+ 1\r\n      KX0 = KX + KY\r\n      KX1 = KX0- 1\r\n      KX01= KX0+ 1\r\n      LX0 = LX + LY\r\n      LX1 = LX0- 1\r\n      LX01= LX0+ 1\r\n      IF (IPASS .EQ. 1) GO TO 110\r\n      IX011 = IX01 + 1\r\n      JX011 = JX01 + 1\r\n      RHO   = RHOY*1.0\r\n      IF (J .GT. 12) GO TO 100\r\n      MSHL(IJ) = RHO*(CAB(1)*F(IX01,JX01) + CAB(2)*F(IX011,JX01) +\r\n     1           CAB(3)*F(IX01,JX011)) + NSM*F(IX01,JX01)\r\n      MSHL(JI) = MSHL (IJ)\r\n  100 CONTINUE\r\n      MX01 = MX0  + 1\r\n      NX01 = NX0  + 1\r\n      MX011= MX01 + 1\r\n      NX011= NX01 + 1\r\n      MSHL(IJ) = RHO*(A1*F(MX01,NX01) + A2*F(MX011,NX01) +\r\n     1           A3*F(MX01,NX011)) + NSM*F(MX01,NX01)\r\n      MSHL(JI) = MSHL(IJ)\r\n      GO TO 210\r\n  110 CONTINUE\r\n      ST = 0.0\r\n      IF (I.LE.12 .AND. J.GT.12) GO TO 160\r\n      IF (I .GT. 12) GO TO 140\r\n      DO 120 K = 1,3\r\n      IXR1  = IX1  + RK(K)\r\n      JXS01 = JX01 + SK(K)\r\n      LXS1  = LX1  + SK(K)\r\n      KXR01 = KX01 + RK(K)\r\n      IXR01 = IX01 + RK(K)\r\n      JXS1  = JX1  + SK(K)\r\n      KXR1  = KX1  + RK(K)\r\n      LXS01 = LX01 + SK(K)\r\n      IYKX1 = IY + KX + RK(K)\r\n      JYLX1 = JY + LX + SK(K)\r\n      IXKY1 = IX + KY + RK(K)\r\n      JXLY1 = JX + LY + SK(K)\r\n      IXIY0 = IX + IY + RK(K)\r\n      JXJY0 = JX + JY + SK(K)\r\n      IYKX2 = IYKX1 - 1\r\n      JYLX0 = JYLX1 + 1\r\n      IXKY2 = IXKY1 - 1\r\n      JXLY0 = JXLY1 + 1\r\n      KXKY0 = KX + KY + RK(K)\r\n      LXLY0 = LX + LY + SK(K)\r\n      IXKY0 = IX + KY + RK(K) + 1\r\n      JXLY2 = JXLY1 - 1\r\n      IYKX0 = IY + KX + RK(K) + 1\r\n      JYLX2 = JYLX1 - 1\r\n      ST11  = 0.0\r\n      ST22  = 0.0\r\n      ST331 = 0.0\r\n      ST332 = 0.0\r\n      ST121 = 0.0\r\n      ST122 = 0.0\r\n      ST131 = 0.0\r\n      ST132 = 0.0\r\n      ST133 = 0.0\r\n      ST231 = 0.0\r\n      ST232 = 0.0\r\n      ST233 = 0.0\r\n      IF (IXR1 .GT. 0) ST11  = G11*RIX*RIY*F(IXR1,JXS01)\r\n      IF (LXS1 .GT. 0) ST22  = G22*RLX*RLY*F(KXR01,LXS1)\r\n      IF (JXS1 .GT. 0) ST331 = G33*RJX*RJY*F(IXR01,JXS1)\r\n      IF (KXR1 .GT. 0) ST332 = G33*RKX*RKY*F(KXR1,LXS01)\r\n      IF (IXKY1.GT.0 .AND. JXLY1.GT.0) ST121 = (G33*RJX*RKY +\r\n     1                                 G12*RIX*RLY)*F(IXKY1,JXLY1)\r\n      IF (IYKX1.GT.0 .AND. JYLX1.GT.0) ST122 = (G33*RJY*RKX +\r\n     1                                 G12*RIY*RLX)*F(IYKX1,JYLX1)\r\n      IF (IXIY0.GT.0 .AND. JXJY0.GT.0) ST131 = G13*(RIY*RJX +\r\n     1                                 RIX*RJY)*F(IXIY0,JXJY0)\r\n      IF (IYKX2 .GT. 0) ST132 = G13*RIY*RKX*F(IYKX2,JYLX0)\r\n      IF (IXKY2 .GT. 0) ST133 = G13*RIX*RKY*F(IXKY2,JXLY0)\r\n      IF (KXKY0.GT.0 .AND. LXLY0.GT.0) ST231 = G23*(RKX*RLY +\r\n     1                                 RKY*RLX)*F(KXKY0,LXLY0)\r\n      IF (JXLY2 .GT. 0) ST232 = G23*RJX*RLY*F(IXKY0,JXLY2)\r\n      IF (JYLX2 .GT. 0) ST233 = G23*RJY*RLX*F(IYKX0,JYLX2)\r\nC\r\n      ST1 = (ST11  + ST22  + ST331 + ST332 + ST121 + ST122 + ST131 +\r\n     1       ST132 + ST133 + ST231 + ST232 + ST233)* CAB(K)\r\n      ST  = ST + ST1\r\n      IF (UNIMEM) GO TO 130\r\n  120 CONTINUE\r\n  130 CONTINUE\r\n      GO TO 200\r\n  140 CONTINUE\r\n      ST = 0.0\r\n      DO 150 K = 1,10\r\n      MX3X = MX3 + XTHK(K)\r\n      NY1Y = NY1 + YTHK(K)\r\n      MY1X = MY1 + XTHK(K)\r\n      NX3Y = NX3 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX2X = MX2 + XTHK(K)\r\n      NX0Y = NX0 + YTHK(K)\r\n      MX0X = MX0 + XTHK(K)\r\n      NX2Y = NX2 + YTHK(K)\r\n      S11  = 0.0\r\n      S22  = 0.0\r\n      S33  = 0.0\r\n      S13  = 0.0\r\n      S23  = 0.0\r\n      IF (MX3X .GT. 0) S11 = D11*RMX1*RMY1*CC(K)*F(MX3X,NY1Y)\r\n      IF (NX3Y .GT. 0) S22 = D22*RNX1*RNY1*CC(K)*F(MY1X,NX3Y)\r\n      IF (MX1X.GT.0 .AND. NX1Y.GT.0) S33 = (D334*RMNX*RMNY +\r\n     1    D12*(RMX1*RNY1 + RMY1*RNX1))*CC(K)*F(MX1X,NX1Y)\r\n      IF (MX2X.GT.0 .AND. NX0Y.GT.0) S13 = D132*(RMX1*RMNY +\r\n     1    RMNX*RMY1)*CC(K)*F(MX2X,NX0Y)\r\n      IF (MX0X.GT.0 .AND. NX2Y.GT.0) S23 = D232*(RMNX*RNY1 +\r\n     1    RNX1*RMNY)*CC(K)*F(MX0X,NX2Y)\r\n      ST = ST + (S11 + S22 + S33 + S13 + S23)/12.0\r\n      IF (UNIBEN) GO TO 160\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n      SB 7 = 0.0\r\n      SB 9 = 0.0\r\n      SB10 = 0.0\r\n      SB18 = 0.0\r\n      SB21 = 0.0\r\n      SB26 = 0.0\r\n      SB28 = 0.0\r\n      SB31 = 0.0\r\n      SB36 = 0.0\r\n      SB38 = 0.0\r\n      DO 180 K = 1,3\r\n      IXMYR = IX + MY + RK(K)\r\n      JXNYS1= JX + NY + SK(K) + 1\r\n      SB1  = 0.0\r\n      SB2  = 0.0\r\n      SB3  = 0.0\r\n      SB4  = 0.0\r\n      SB5  = 0.0\r\n      SB6  = 0.0\r\n      SB8  = 0.0\r\n      SB11 = 0.0\r\n      SB12 = 0.0\r\n      SB13 = 0.0\r\n      SB14 = 0.0\r\n      SB15 = 0.0\r\n      SB16 = 0.0\r\n      SB17 = 0.0\r\n      SB19 = 0.0\r\n      SB20 = 0.0\r\n      SB22 = 0.0\r\n      SB23 = 0.0\r\n      SB24 = 0.0\r\n      SB25 = 0.0\r\n      SB27 = 0.0\r\n      SB29 = 0.0\r\n      SB30 = 0.0\r\n      SB32 = 0.0\r\n      SB33 = 0.0\r\n      SB34 = 0.0\r\n      SB35 = 0.0\r\n      SB37 = 0.0\r\n      SB39 = 0.0\r\n      SB40 = 0.0\r\n      IF (IXMYR .GT. 0)  SB 1 =-G11*RIX*H4*CAB(K)*F(IXMYR,JXNYS1)\r\n      IYMXR  = IY + MX + RK(K)\r\n      JYNXS1 = JY + NX + SK(K) + 1\r\n      IF (IYMXR .GT. 0)  SB 2 =-G11*RIY*H4*CAB(K)*F(IYMXR,JYNXS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB 3 = G11*H4**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB 4 =-G22*RLX*H6*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS .GT. 0)  SB 5 =-G22*RLY*H6*CAB(K)*F(MXKYR1,NXLYS)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB 6 = G22*H6**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n       IF(JXNYS .GT. 0)  SB 8 =-G33*RJX*H5*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB11 =-G33*RKX*H5*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB12 =-G33*RJY*H5*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB13 =-G33*RKY*H5*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB14 = G33*H5**2*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR  = IX + MY + RK(K)\r\n      JXNYS1 = JX + NY + SK(K) + 1\r\n      IF (IXMYR .GT. 0)  SB15 =-G12*RIX*H6*CAB(K)*F(IXMYR,JXNYS1)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS .GT. 0)  SB16 =-G12*RLY*H4*CAB(K)*F(MXKYR1,NXLYS)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB17 = 2*G12*H4*H6*CAB(K)*F(MXMYR1,NXNYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB19 =-G12*RLX*H4*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXIYR  = MX + IY + RK(K)\r\n      NXJYS1 = NX + JY + SK(K) + 1\r\n      IF (MXIYR .GT. 0)  SB20 =-G12*RIY*H6*CAB(K)*F(MXIYR,NXJYS1)\r\n      IXMYR  = IX + MY + RK(K)\r\n      JXNYS1 = JX + NY + SK(K) + 1\r\n      IF (IXMYR .GT. 0)  SB22 =-G13*RIX*H5*CAB(K)*F(IXMYR,JXNYS1)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB23 =-G13*RJY*H4*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB24 =-G13*RKY*H4*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB25 = 2*G13*H4*H5*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n      IF (JXNYS .GT. 0)  SB27 =-G13*RJX*H4*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB29 =-G13*RKX*H4*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXIYR  = MX + IY + RK(K)\r\n      NXJYS1 = NX + JY + SK(K) + 1\r\n      IF (MXIYR .GT. 0)  SB30 =-G13*RIY*H5*CAB(K)*F(MXIYR,NXJYS1)\r\n      KXMYR1 = KX + MY + RK(K) + 1\r\n      LXNYS  = LX + NY + SK(K)\r\n      IF (LXNYS .GT. 0)  SB32 =-G23*RLX*H5*CAB(K)*F(KXMYR1,LXNYS)\r\n      MXIYR1 = MX + IY + RK(K) + 1\r\n      NXJYS  = NX + JY + SK(K)\r\n      IF (NXJYS .GT. 0)  SB33 =-G23*RJY*H6*CAB(K)*F(MXIYR1,NXJYS)\r\n      MXKYR  = MX + KY + RK(K)\r\n      NXLYS1 = NX + LY + SK(K) + 1\r\n      IF (MXKYR .GT. 0)  SB34 =-G23*RKY*H6*CAB(K)*F(MXKYR,NXLYS1)\r\n      MXMYR1 = MX + MY + RK(K) + 1\r\n      NXNYS1 = NX + NY + SK(K) + 1\r\n                         SB35 = 2*G23*H5*H6*CAB(K)*F(MXMYR1,NXNYS1)\r\n      IXMYR1 = IX + MY + RK(K) + 1\r\n      JXNYS  = JX + NY + SK(K)\r\n      IF (JXNYS .GT. 0)  SB37 =-G23*RJX*H6*CAB(K)*F(IXMYR1,JXNYS)\r\n      KXMYR  = KX + MY + RK(K)\r\n      LXNYS1 = LX + NY + SK(K) + 1\r\n      IF (KXMYR .GT. 0)  SB39 =-G23*RKX*H6*CAB(K)*F(KXMYR,LXNYS1)\r\n      MXKYR1 = MX + KY + RK(K) + 1\r\n      NXLYS  = NX + LY + SK(K)\r\n      IF (NXLYS. GT. 0)  SB40 =-G23*RLY*H5*CAB(K)*F(MXKYR1,NXLYS)\r\n      SB41 = SB3 + SB6 + SB14 + SB17 + SB25 + SB35\r\n      IF (I .LE. 12) SB41 = 0.0\r\n       ST =  ST   + SB1  + SB2  + SB4  + SB5  + SB7  + SB8  + SB9  +\r\n     1       SB10 + SB11 + SB12 + SB13 + SB15 + SB16 + SB18 + SB19 +\r\n     2       SB20 + SB21 + SB22 + SB23 + SB24 + SB26 + SB27 + SB28 +\r\n     3       SB29 + SB30 + SB31 + SB32 + SB33 + SB34 + SB36 + SB37 +\r\n     4       SB38 + SB39 + SB40 + SB41\r\n      IF (UNIMEM) GO TO 190\r\n  180 CONTINUE\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      KSHL(IJ) = ST\r\n      KSHL(JI) = KSHL(IJ)\r\n  210 CONTINUE\r\n  220 CONTINUE\r\n  230 CONTINUE\r\n      IF (IPASS .EQ. 2) GO TO 240\r\nC\r\nC    CURRENTLY,TRANSVERSE SHEAR CALCULATIONS ARE NOT CODED FOR SHELL\r\nC    ELEMENT WHEN IT IS CODED, CALL THE ROUTINE HERE\r\nC\r\n  240 CONTINUE\r\nC\r\nC     (QQQINV) TRANSPOSE (KTR3)  (QQQINV)\r\nC\r\n      CALL GMMATS (Q,6,6,0, KSHL(1),6,32,0, QKS(1))\r\n      CALL GMMATS (Q,6,6,0, KSHL(193),6,32,0, QKS(193))\r\n      CALL GMMATS (QQQINV,20,18,+1, KSHL(385),20,32,0, QKS(385))\r\n      DO 260 I = 1,30\r\n      DO 250 J = 1,6\r\n      IJ =(I-1)*32 + J\r\n      JI =(I-1)*6  + J\r\n      KSHL(    JI) = QKS(  IJ)\r\n      KSHL(180+JI) = QKS(6+IJ)\r\n  250 CONTINUE\r\n  260 CONTINUE\r\n      DO 280 I = 1,30\r\n      DO 270 J = 1,20\r\n      IJ = (I-1)*32 + J + 12\r\n      JI = (I-1)*20 + J + 360\r\n      KSHL(JI) = QKS(IJ)\r\n  270 CONTINUE\r\n  280 CONTINUE\r\n      CALL GMMATS (KSHL(1  ),30,6 ,0,Q,6,6,1 ,QKS(1  ))\r\n      CALL GMMATS (KSHL(181),30,6 ,0,Q,6,6,1 ,QKS(181))\r\n      CALL GMMATS (KSHL(361),30,20,0, QQQINV,20,18,0, QKS(361))\r\n      DO 300 I = 1,30\r\n      DO 290 J = 1,6\r\n      IJ = (I-1)*30 + J\r\n      JI = (I-1)*6  + J\r\n      CMS(IJ  ) = QKS(JI    )\r\n      CMS(IJ+6) = QKS(JI+180)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\n      DO 320 I = 1,30\r\n      DO 310 J = 1,18\r\n      IJ = (I-1)*30 + J + 12\r\n      JI = (I-1)*18 + J + 360\r\n      CMS(IJ) = QKS(JI)\r\n  310 CONTINUE\r\n  320 CONTINUE\r\n      DO 330 I = 1,30\r\n      EE(I) = 0.0\r\n  330 CONTINUE\r\n      EE( 1) =  IVECT(1)\r\n      EE( 2) =  JVECT(1)\r\n      EE( 3) =  KVECT(1)\r\n      EE( 6) =  IVECT(2)\r\n      EE( 7) =  JVECT(2)\r\n      EE( 8) =  KVECT(2)\r\n      EE(11) =  IVECT(3)\r\n      EE(12) =  JVECT(3)\r\n      EE(13) =  KVECT(3)\r\n      EE(19) =  IVECT(1)\r\n      EE(20) =  JVECT(1)\r\n      EE(24) =  IVECT(2)\r\n      EE(25) =  JVECT(2)\r\n      EE(29) =  IVECT(3)\r\n      EE(30) =  JVECT(3)\r\n      DO 360 K = 1,6\r\n      DO 350 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 340 J = 1,30\r\n      CTM (I1,J) = CM1(K1,J)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n  360 CONTINUE\r\n      DO 390 K = 1,6\r\n      DO 380 I = 1,3\r\n      I2 =  5*(K-1) + I + 2\r\n      K2 = 12+(K-1)*3 + I\r\n      DO 370 J = 1,30\r\n      CTM (I2,J) = CM1(K2,J)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\n      DO 420 K = 1,6\r\n      DO 410 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      DO 400 J = 1,30\r\n      CM1(J,I1) = CTM(J,K1)\r\n  400 CONTINUE\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      DO 450 K = 1,6\r\n      DO 440 I = 1,3\r\n      I2 =  5*(K-1) + I + 2\r\n      K2 = 12+(K-1)*3 + I\r\n      DO 430 J = 1,30\r\n      CM1(J,I2) = CTM(J,K2)\r\n  430 CONTINUE\r\n  440 CONTINUE\r\n  450 CONTINUE\r\n      DO 460 I = 1,1296\r\n      CMT(I) = 0.0\r\n  460 CONTINUE\r\nC\r\nC     LUMPED MASS COMPUTATION\r\nC\r\n      IF (IPASS .NE. 2) GO TO 490\r\n  470 AMASS = (RHOY*VOL + NSM*AREA)/6.\r\n      DO 480 I = 1,1296,37\r\n      CMT(I) = AMASS\r\n  480 CONTINUE\r\n      IPASS = 2\r\n      GO TO 690\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATES\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\nC     INSERT THE 6X6 SUBMATRIX  INTO KGG MATRIX\r\nC\r\n  490 DO 500 I = 1,6\r\n      SAVE(I) = NL(I)\r\n  500 CONTINUE\r\n      DO 530 I = 1,6\r\n      SMALL(I) = I\r\n      ISMALL = NL(I)\r\n      DO 520 J = 1,6\r\n      IF (ISMALL .LE. NL(J)) GO TO 510\r\n      SMALL(I) = J\r\n      ISMALL = NL(J)\r\n  510 CONTINUE\r\n  520 CONTINUE\r\n      ISM = SMALL(I)\r\n      NL(ISM) = 1000000\r\n  530 CONTINUE\r\n      DO 540 I = 1,6\r\n      NL(I) = SAVE(I)\r\n  540 CONTINUE\r\n      DO 680 I = 1,6\r\n      SIL1 = SMALL(I)\r\n      DO 670 J = I,6\r\n      SIL2 = SMALL(J)\r\n      DO 550 II = 1,36\r\n      BALOTR(II) = 0.0\r\n      KSUP(II)   = 0.0\r\n  550 CONTINUE\r\n      DO 570 K = 1,5\r\n      K1 = (SIL1-1)*5 + K\r\n      DO 560 L = 1,5\r\n      L1 = (SIL2-1)*5 + L\r\n      CSUB(K,L) = CM1(K1,L1)\r\n  560 CONTINUE\r\n  570 CONTINUE\r\n      CALL GMMATS (EE,6,5,0, CSUB,5,5,0, CSUBT)\r\n      CALL GMMATS (CSUBT,6,5,0, EE,6,5,+1, KSUPT)\r\n      DO 580 K = 1,6\r\n      DO 580 L = 1,6\r\n      K1 =(K-1)*6 + L\r\n      L1 =(L-1)*6 + K\r\n      KSUP(L1) = KSUPT(K1)\r\n  580 CONTINUE\r\nC\r\nC     TRANSFORM THE KSUP(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 610\r\n      JJ = 4*SIL1 + 24\r\n      CALL TRANSS (IEST(JJ),TRAND)\r\n      DO 590 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  590 CONTINUE\r\n      CALL GMMATS (BALOTR(1),6,6,1, KSUP(1),6,6,0, KSUPT)\r\n      DO 600 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  600 CONTINUE\r\n  610 CONTINUE\r\n      IF (NL(SIL2).EQ.0 .OR. ICS(SIL2).EQ.0) GO TO 650\r\n      IF (J .EQ. I) GO TO 630\r\n      JJ = 4*SIL2 + 24\r\n      CALL TRANSS (IEST(JJ),TRAND)\r\n      DO 620 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n      CALL GMMATS (KSUP(1),6,6,0, BALOTR(1),6,6,0, KSUPT)\r\n      DO 640 K = 1,36\r\n      KSUP(K) = KSUPT(K)\r\n  640 CONTINUE\r\n  650 CONTINUE\r\n      DO 660 II = 1,6\r\n      DO 660 JJ = 1,6\r\n      I1 = (I-1)*6 + II\r\n      J1 = (J-1)*6 + JJ\r\n      CTM(I1,J1) = KSUB(JJ,II)\r\n      CTM(J1,I1) = KSUB(JJ,II)\r\n  660 CONTINUE\r\n  670 CONTINUE\r\n  680 CONTINUE\r\n  690 CALL EMGOUT (CMT(1),CMT(1),1296,1,DICT,IPASS,IPREC)\r\n      IF (.NOT.IMASS .OR. IPASS.GE.2) RETURN\r\nC\r\nC     TO TO 295 TO COMPUTE LUMPED MASS MATRIX\r\nC     GO TO 211 TO COMPUTE CONSIST. MASS MATRIX (THIS PATH DOES NOT\r\nC     WROK)\r\nC\r\n      IPASS = 3\r\n      GO TO (720,90,470), IPASS\r\nC\r\nC     ERROR\r\nC\r\n  700 CONTINUE\r\n      NOGO  = .TRUE.\r\n      KNOGO = 1\r\n      WRITE  (IOUTPT,710) UFM,IEST(1)\r\n  710 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.', //26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRSHL WITH ID',I9,1H.)\r\n  720 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ktube.f",
    "content": "      SUBROUTINE KTUBE\r\nC*****\r\nC THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE ECPT FOR THE TUBE\r\nC SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL KROD\r\nC TO COMPUTE THE ELEMENT STIFFNESS MATRICES.\r\nC*****\r\nC\r\nC\r\nC\r\nC                      E C P T  F O R  T H E  T U B E\r\nC\r\nC\r\nC\r\nC ECPT( 1)  -  ELEMENT ID.\r\nC ECPT( 2)  -  SCALAR INDEX NUMBER FOR GRID POINT A\r\nC ECPT( 3)  -  SCALAR INDEX NUMBER FOR GRID POINT B\r\nC ECPT( 4)  -  MATERIAL ID.\r\nC ECPT( 5)  -  OUTSIDE DIAMETER\r\nC ECPT( 6)  -  THICKNESS\r\nC ECPT( 7)  -  NON-STRUCTURAL MASS\r\nC ECPT( 8)  -  COOR. SYS. ID. FOR GRID POINT A\r\nC ECPT( 9)  -  BASIC COORDINATES OF GRID POINT A\r\nC ECPT(10)  -                ...\r\nC ECPT(11)  -                ...\r\nC ECPT(12)  -  COOR. SYS. ID. FOR GRID POINT B\r\nC ECPT(13)  -  BASIC COORDINATES OF GRID POINT B\r\nC ECPT(14)  -                ...\r\nC ECPT(15)  -                ...\r\nC ECPT(16)  -  ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\n      COMMON   /SMA1ET/\r\n     1                   ECPT(16)           ,DUM(84)\r\nC\r\nC\r\nC\r\n      COMMON   /SMA1DP/\r\n     1                   TEMP               ,A\r\n     2,                  FJ                 ,C\r\nC\r\nC\r\nC\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\nC\r\nC\r\nC\r\n      TEMP = ECPT(5) - ECPT(6)\r\nC\r\nC COMPUTE AREA, TORSIONAL INERTIA AND STRESS COEFFICIENT.\r\nC\r\n      A = TEMP * ECPT(6) * PI\r\n      FJ = .25 * A * (TEMP**2  +  ECPT(6)**2)\r\n      C  = .5  * ECPT(5)\r\nC\r\nC MOVE THE -END- OF THE ARRAY -DOWN ONE SLOT- SO THAT ENTRIES 7 THRU 16\r\nC OF THE ECPT WILL BE STORED AT POSITIONS 8 THRU 17.\r\nC\r\n      M = 18\r\n      DO 10 I = 1,10\r\n      M = M - 1\r\n   10 ECPT(M) = ECPT(M-1)\r\n      ECPT(5) = A\r\n      ECPT(6) = FJ\r\n      ECPT(7) = C\r\n      CALL KROD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/lamx.f",
    "content": "      SUBROUTINE LAMX\r\nC\r\nC     LAMX MAKES OR EDITS THE LAMA DATA BLOCK\r\nC\r\nC     LAMX  EDIT,LAMA/LAMB/C,Y,NLAM=0 $\r\nC     IF NLAM LT 0 MAKE LAMB A MATRIX OF 5 COLUMNS\r\nC     LAMA  OMEGA FREQ GM GS\r\nC     UNTIL GM = 0.0\r\nC\r\nC\r\n      INTEGER SYSBUF,IST(10),TRL(7),BUFA,BUFB,BUFE,EDIT\r\nC\r\n      DIMENSION D(3),Z(7)\r\nC\r\n      COMMON /BLANK / NLAM\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /UNPAKX/ ITO,II,IE,INCR\r\n      COMMON /PACKX / ITYIN,ITYOUT,III,NNN,INCR1\r\n      COMMON /OUTPUT/ HDG(96)\r\nC\r\n      EQUIVALENCE     (D(1),A),(D(2),B),(D(3),C)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\nC\r\n      DATA    EDIT  , LAMA,LAMB /101,102,201/\r\n      DATA    IST   / 21,6,7*0,7/\r\n      DATA    LMA   / 1/,   IED /1/,  IZ2 /2/\r\n      DATA    NAM   / 4HLAMX    /\r\nC\r\nC     INITILIZE AND DECIDE MODE OF OPERATIONS\r\nC\r\n      ICORE  = KORSZ(Z)\r\n      TRL(1) = LAMA\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) LMA = 0\r\n      TRL(1) = EDIT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) IED = 0\r\n      NCOL = TRL(2)\r\n      IF (NCOL .EQ. 0) IED = 0\r\n      IF (LMA.EQ.0 .AND. IED.EQ.0) GO TO 1000\r\n      ITO = 1\r\n      II  = 1\r\n      INCR= 1\r\n      IE  = TRL(3)\r\n      IF (IE .GT. 3) IE = 3\r\n      B = 0.0\r\n      C = 0.0\r\n      BUFB = ICORE - SYSBUF\r\n      CALL GOPEN (LAMB,Z(BUFB),1)\r\n      IF (LMA .EQ. 0) GO TO 200\r\n      BUFA = BUFB - SYSBUF\r\n      CALL GOPEN (LAMA,Z(BUFA),0)\r\n      IF (NLAM .LT. 0) GO TO 500\r\n      BUFE = BUFA - SYSBUF\r\n      IF (IED .EQ. 0) GO TO 5\r\nC\r\nC      EDITING LAMA FROM EDIT\r\nC\r\n      CALL GOPEN (EDIT,Z(BUFE),0)\r\nC\r\nC     WRITE HEADER\r\nC\r\n    5 CALL READ (*10,*10,LAMA,Z,BUFE,1,NWR)\r\n   10 CALL WRITE (LAMB,Z,NWR,1)\r\n      IF (IED .EQ. 0) GO TO 100\r\nC\r\nC     MAKE RECORDS\r\nC\r\n      J = 0\r\n      DO 50 I = 1,NCOL\r\n      CALL READ (*60,*60,LAMA,Z,7,0,NWR)\r\n      CALL UNPACK (*40,EDIT,D)\r\n      IF (A.EQ.0.0 .AND. B.EQ.0.0 .AND. C.EQ.0.0) GO TO 40\r\n      IF (C .LT. 0.0) GO TO 50\r\n      Z(5) = Z(5)*(1.0+B) + A\r\n      Z(4) = Z(5)*TWOPI\r\n      Z(3) = Z(4)*Z(4)\r\n      IF (C .NE. 0.0) Z(6) = C\r\n      Z(7) = Z(6)*Z(3)\r\n   40 J    = J+1\r\n      IZ(1)= J\r\n      IF (NLAM .LE. 0) GO TO 45\r\n      IF (J .GT. NLAM) GO TO 180\r\n   45 CALL WRITE (LAMB,Z,7,0)\r\n   50 CONTINUE\r\n   60 GO TO 180\r\nC\r\nC     COPY LAMA TO LAMB FOR NLAM RECORDS\r\nC\r\n  100 IF (NLAM .EQ. 0) GO TO 190\r\n      J = NLAM\r\n      M = 7*NLAM\r\n      CALL READ (*180,*110,LAMA,Z,M,0,NWR)\r\n      CALL WRITE (LAMB,Z,7*NLAM,0)\r\n      GO TO 180\r\n  110 CALL WRITE (LAMB,Z,NWR,0)\r\n  180 TRL(1) = LAMB\r\n      TRL(2) = J\r\n      CALL WRTTRL (TRL)\r\n  190 CALL CLOSE (LAMA,1)\r\n      CALL CLOSE (LAMB,1)\r\n      CALL CLOSE (EDIT,1)\r\n      GO TO 1000\r\nC\r\nC      MAKE A NEW LAMB\r\nC\r\n  200 BUFE = BUFB - SYSBUF\r\n      CALL GOPEN (EDIT,Z(BUFE),0)\r\n      IF (NLAM .GT. 0) NCOL = MIN0(NCOL,NLAM)\r\nC\r\nC     WRITE HEADER\r\nC\r\n      CALL WRITE (LAMB,IST,50,0)\r\n      CALL WRITE (LAMB,HDG,96,1)\r\nC\r\nC     MAKE RECORDS\r\nC\r\n      DO 220 I = 1,NCOL\r\n      CALL UNPACK (*310,EDIT,D)\r\n      GO TO 210\r\n  310 D(1) = 0.0\r\n      D(2) = 0.0\r\n      D(3) = 0.0\r\n  210 IZ(  1) = I\r\n      IZ(IZ2) = I\r\n      Z(5) = A\r\n      Z(4) = TWOPI*A\r\n      Z(3) = Z(4)*Z(4)\r\n      Z(6) = C\r\n      Z(7) = C*Z(3)\r\n      CALL WRITE (LAMB,Z,7,0)\r\n  220 CONTINUE\r\n      J = NCOL\r\n      GO TO 180\r\nC\r\nC     BUILD LAMB AS A MATRIX\r\nC\r\n  500 TRL(1) = LAMB\r\n      TRL(2) = 0\r\n      TRL(4) = 1\r\n      TRL(5) = 1\r\n      TRL(6) = 0\r\n      TRL(7) = 0\r\n      ITYIN  = 1\r\n      ITYOUT = 1\r\n      III    = 1\r\n      INCR1  = 7\r\n      CALL FWDREC (*190,LAMA)\r\n      CALL READ (*190,*510,LAMA,Z,BUFA,0,NWR)\r\n      CALL MESAGE (8,0,NAM)\r\n      GO TO 190\r\n  510 NLOOP = 0\r\n      DO 520 I = 1,NWR,7\r\n      IF (Z(I+5) .EQ.0.0) GO TO 530\r\n      NLOOP = NLOOP +1\r\n  520 CONTINUE\r\n  530 IF (NLOOP .EQ. 0) GO TO 190\r\n      TRL(3) = NLOOP\r\n      NNN = NLOOP\r\n      L   = 3\r\n      DO 540 I = 1,5\r\n      CALL PACK (Z(L),LAMB,TRL)\r\n      L = L + 1\r\n  540 CONTINUE\r\n      CALL WRTTRL (TRL)\r\n      GO TO 190\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/line.f",
    "content": "      SUBROUTINE LINE (X1,Y1,X2,Y2,PENX,OPT)\r\nC\r\nC     (X1,Y1) = STARTING POINT OF THE LINE\r\nC     (X2,Y2) = TERMINAL POINT OF THE LINE\r\nC     PENX    = PEN NUMBER OR DENSITY (DEPENDING ON PLOTTER)\r\nC     OPT     = -1  TO INITIATE  THE LINE MODE\r\nC             = +1  TO TERMINATE THE LINE MODE\r\nC             =  0  TO DRAW A LINE.\r\nC\r\n      INTEGER         PEN,PENX,OPT,PLOTER,TRA1,TRA2\r\n      REAL            XY(2,2),INFNTY\r\n      COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),SKPPLT(14),SKPA(6),NPENS\r\n      DATA    INFNTY/ 1.E+10 /\r\nC\r\n      IF (OPT .NE. 0) GO TO 220\r\n      SLP = INFNTY\r\n      B   = 0.\r\n      IF (X1 .EQ. X2) GO TO 10\r\n      SLP = (Y2-Y1)/(X2-X1)\r\n      B   =  Y1 - SLP*X1\r\n   10 XY(1,1) = X1\r\n      XY(2,1) = Y1\r\n      XY(1,2) = X2\r\n      XY(2,2) = Y2\r\nC\r\nC     CHECK TO SEE IF AN END OF THE LINE IS OUTSIDE THE PLOT REGION.\r\nC\r\n   20 DO 30 J = 1, 2\r\n      DO 30 I = 1,2\r\n      IF (XY(I,J).LT.REG(I,1) .OR. XY(I,J).GT.REG(I,2)) GO TO 40\r\n   30 CONTINUE\r\n      GO TO 210\r\n   40 DO 50 I = 1,2\r\n      IF (XY(I,1).LT.REG(I,1) .AND. XY(I,2).LT.REG(I,1)) GO TO 230\r\n      IF (XY(I,1).GT.REG(I,2) .AND. XY(I,2).GT.REG(I,2)) GO TO 230\r\n   50 CONTINUE\r\nC\r\nC     AN END IS OUTSIDE THE REGION, BUT NOT THE ENTIRE LINE. FIND THE\r\nC     END POINTS OF THE PORTION OF THE LINE WITHIN THE REGION.\r\nC\r\n      J = 1\r\n   60 I = 1\r\n   70 IF (XY(I,J) .GE. REG(I,1)) GO TO 130\r\n      ASSIGN 120 TO TRA2\r\n      GO TO (100,110), I\r\n  100 ASSIGN 350 TO TRA1\r\n      X = REG(1,1)\r\n      GO TO 300\r\n  110 ASSIGN 310 TO TRA1\r\n      Y = REG(2,1)\r\n      GO TO 300\r\n  120 XY(1,J) = X\r\n      XY(2,J) = Y\r\nC\r\n  130 IF (XY(I,J) .LE. REG(I,2)) GO TO 170\r\n      ASSIGN 160 TO TRA2\r\n      GO TO (140,150), I\r\n  140 ASSIGN 350 TO TRA1\r\n      X = REG(1,2)\r\n      GO TO 300\r\n  150 ASSIGN 310 TO TRA1\r\n      Y = REG(2,2)\r\n      GO TO 300\r\n  160 XY(1,J) = X\r\n      XY(2,J) = Y\r\n  170 I = I + 1\r\n      IF (I .EQ. 2) GO TO 70\r\n      J = J + 1\r\n      IF (J .EQ. 2) GO TO 60\r\nC\r\nC     MAKE SURE THE LINE SEGMENT IS WITHIN THE PLOT REGION.\r\nC\r\n      DO 200 J = 1,2\r\n      DO 200 I = 1,2\r\n      IF (XY(I,J)+.1.LT.REG(I,1) .OR. XY(I,J)-.1.GT.REG(I,2)) GO TO 400\r\n  200 CONTINUE\r\nC\r\nC     FIND THE CORRECT PEN NUMBER FOR THIS PLOTTER.\r\nC\r\n  210 PEN = PENX\r\n      PEN = PEN - NPENS*((PEN-1)/NPENS)\r\nC\r\nC     DRAW THE LINE.\r\nC\r\n  220 CALL LINE10 (XY(1,1),XY(2,1),XY(1,2),XY(2,2),PEN,OPT)\r\n      GO TO 400\r\nC\r\n  230 IFL = 0\r\n      DO 250 J = 1, 2\r\n      DO 240 M = 1, 2\r\n      IF (ABS(XY(I,J)-REG(I,M)) .GT. 1.0E-8) GO TO 240\r\n      IFL = 1\r\n      XY(I,J) = REG(I,M)\r\n  240 CONTINUE\r\n  250 CONTINUE\r\n      IF (IFL) 400,400,20\r\nC\r\nC\r\nC     CALCULATE THE EQUATION OF THE LINE TO BE DRAWN.\r\nC\r\n  300 GO TO TRA1, (310,350)\r\nC\r\nC     GIVEN Y, CALCULATE X.\r\nC\r\n  310 IF (SLP .EQ. INFNTY) GO TO 330\r\n      IF (SLP .EQ.     0.) GO TO 320\r\n      X = (Y-B)/SLP\r\n      GO TO 340\r\n  320 X = INFNTY\r\n      GO TO 340\r\n  330 X = X1\r\n  340 GO TO TRA2, (120,160)\r\nC\r\nC     GIVEN X, CALCULATE Y.\r\nC\r\n  350 IF (SLP .EQ. INFNTY) GO TO 370\r\n      IF (SLP .EQ.     0.) GO TO 360\r\n      Y = SLP*X + B\r\n      GO TO 380\r\n  360 Y = Y1\r\n      GO TO 380\r\n  370 Y = INFNTY\r\n  380 GO TO TRA2, (120,160)\r\nC\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/line10.f",
    "content": "      SUBROUTINE LINE10 (X1,Y1,X2,Y2,PENDEN,OPT)\r\nC\r\nC     X1,Y1  = STARTING POINT OF THE LINE\r\nC     X2,Y2  = TERMINAL POINT OF THE LINE\r\nC     PENDEN = PEN NUMBER OR LINE DENSITY\r\nC     OPT    = -1 TO INITIATE  THE LINE MODE\r\nC            = +1 TO TERMINATE THE LINE MODE\r\nC            = 0 TO DRAW A LINE\r\nC\r\n      INTEGER PENDEN,OPT,OPTX,A(6)\r\n      DATA    OPTX,LINE / -1, 5  /\r\nC\r\n      IF (OPTX .GE. 0) OPTX = OPT\r\n      IF (OPT) 200,100,150\r\n  100 A(1) = LINE\r\n      A(2) = PENDEN\r\n      A(3) = IFIX(X1+.1)\r\n      A(4) = IFIX(Y1+.1)\r\n      A(5) = IFIX(X2+.1)\r\n      A(6) = IFIX(Y2+.1)\r\n      IF (OPTX .EQ. 0) GO TO 120\r\nC\r\nC     INITIATE THE LINE MODE.\r\nC\r\n      A(1) = A(1) + 10\r\n      OPTX = 0\r\nC\r\nC     DRAW THE LINE.\r\nC\r\n  120 CALL WPLT10 (A,0)\r\n      GO TO 200\r\nC\r\nC     TERMINATE THE LINE MODE.\r\nC\r\n  150 CALL WPLT10 (A,1)\r\n      OPTX = -1\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/linein.f",
    "content": "      SUBROUTINE LINEIN(X1,Y1,Z1,X2,Y2,Z2,HCDL)\r\nC\r\nC PERFORMS LINE INTEGRAL FROM (X1,Y1,Z1) TO (X2,Y2,Z2) OF BIOT-SAVART\r\nC FILED DOTTED INTO THE LINE, IE INT(HC.DL)\r\nC\r\n      DIMENSION XI(4),W(4)\r\n      DATA XI/.06943184,.33000948,.66999052,.93056816/\r\n      DATA W/.17392742,2*.32607258,.173927423/\r\nC\r\nC COMPONENTS OF LINE SEGMENT\r\nC\r\n      HCDL=0.\r\n      SEGX=X2-X1\r\n      SEGY=Y2-Y1\r\n      SEGZ=Z2-Z1\r\n      SEGL=SQRT(SEGX**2+SEGY**2+SEGZ**2)\r\n      IF(SEGL.EQ.0.)RETURN\r\nC\r\nC 4 POINT INTEGRATION OVER LINE SEGMENT(XI= / TO +1)\r\nC\r\n      DO 10 I=1,4\r\n      XX=X1+SEGX*XI(I)\r\n      YY=Y1+SEGY*XI(I)\r\n      ZZ=Z1+SEGZ*XI(I)\r\n      CALL BIOTSV(XX,YY,ZZ,HCX,HCY,HCZ)\r\n      HCDL=HCDL+(HCX*SEGX+HCY*SEGY+HCZ*SEGZ)*W(I)\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/linel.f",
    "content": "      SUBROUTINE LINEL (IZ,NWDS,OPCOR,OPT,X,PEN,DEFORM,GPLST)\r\nC\r\nC     CALL TO LINEL IS AS FOLLOWS -\r\nC\r\nC     (1)\r\nC     OPT = ZERO (INPUT) - TO CREATE COMPLETE LINE CONNECTION TABLE OF\r\nC     **********           ELEMENTS OF ALL TYPES, TO BE USED BY SUPLT\r\nC                          SUBROUTINE\r\nC        INPUT-\r\nC           OPCOR (INPUT) = NUMBER OF WORDS OF OPEN CORE FOR -IZ-\r\nC        OUTPUT-\r\nC           IZ   = LIST OF GRID POINT ELEMENET CONNECTIONS AND POINTERS\r\nC                  TO EACH GRID POINT, FROM IZ(1) THRU IZ(NWDS). DATA\r\nC                  COMPOSED OF   1. GPCT,  AND 2. NGP WORDS OF CONTROL\r\nC                  POINTERS\r\nC           NWDS = NO. OF WORDS IN IZ PRIOR TO POINTER ARRAY.\r\nC                  I.E. 1 LESS THAN LOCATION OF POINTERS,\r\nC                = 0 IF ARRAY NOT CREATED\r\nC           OPT  = NWDS\r\nC\r\nC     (2)\r\nC     OPT = NONZERO (INPUT) - LOAD INTO CORE THE GRID POINT CNNECTION\r\nC     *************           LIST OF ALL ELEMENTS OF THE SAME TYPE\r\nC\r\nC        INPUT-\r\nC           NWDS  = ETYP, 2 BCD WORDS (CALLING ROUTINE HAS ALREADY READ\r\nC                   THIS WORD FROM DATA BLOCK ELSET)\r\nC           OPT   = MO. OF GRID POINT CONNECTIONS PER ELEMENT, NGPEL\r\nC                   (CALLING ROUTINE HAS ALREADY READ THIS WORD)\r\nC           OPCOR = OPEN CORE AVAILABLE W.R.T. IZ(1)\r\nC           GPLST = A SUBSET LIST OF GRID POINTS PERTAINING TO THOSE\r\nC                   POINTS USED ONLY IN THIS PLOT\r\nC        OUTPUT-\r\nC           IZ    = GRID POINT CONNECTION LIST FOR ALL ELEMENTS OF THIS\r\nC                   TYPE, OR AS MANY ELEMS OF THIS TYPE AS CORE ALLOWS.\r\nC           NWDS  = TOTAL LENGTH OF TABLE IZ\r\nC           OPT   = NUMBER OF CONNECTIONS PER ELEMENT\r\nC           (IF INSUFF. CORE TO READ ALL THE ELEMENTS, BOTH NWDS AND OPT\r\nC           ARE SET TO NEGATIVE UPON RETURN. FURTHER CALLS MUST BE MADE\r\nC           TO COMPLETE THIS ELEMENT\r\nC           IF ILLEGAL ELEMENT IS ENCOUNTERED, NWDS AND OPT ARE SET TO\r\nC           ZERO, AND ELSET IS SPACED OVER THE ELEMENT)\r\nC\r\nC           (NOTE THAT  'DO 100 I=1,NWDS,OPT'  MAY THEN BE USED\r\nC           BUT IT IS MORE EFFICIENT TO USE  'DO 100 I=1,NWDS' AND CHECK\r\nC           ZERO AS THE COMMAND TO LIFT THE PEN)\r\nC\r\nC     EACH ELEMENT TYPE HAS THE FOLLOWING DATA IN ELSET FILE\r\nC           ELTYP = BCD SYMBOL (1 WORD)\r\nC           NGPEL = NUM. GRID POINTS.\r\nC                   IF NEGATIVE OR .GT. 4 NOT A CLOSED LOOP\r\nC           ELID  = ELEMENT ID\r\nC           G     = NGPEL GRIDS.\r\nC           LOOP THRU ELID AND G UNTIL ELID = 0 (I.E. NO MORE ELEMS OF\r\nC                                              THIS TYPE)\r\nC     (3)\r\nC     ELEMENT OFFSET PLOT (UNDEFORMED PLOT ONLY, PEDGE=3),\r\nC     *******************\r\nC     IF ELEMENTS WITH OFFSET ARE PRESENT, CALL OFSPLT TO PLOT THEM OUT\r\nC     AND DO NOT INCLUDE THEM IN THE IZ TABLE\r\nC     IF OFFSET COMMAND IS REQUESTED BY USER VIA THE PLOT CARD\r\nC     (PEDGE = 3), SKIP COMPLETELY THE GENERATION OF THE IZ TABLE\r\nC\r\nC     OFFSET n OPTION (ON PLOT CONNAND CARD IN CASE CONTROL SECTION) -\r\nC       n .LT. 0, SKIP OFFSET VALUES ON GENERAL PLOTS. (PEDGE.NE.3)\r\nC       n =    0, OFFSET VALUES INCLUDED IN ALL GENERAL PLOTS (PEDGE=3)\r\nC       n .GT. 0, PLOT ONLY THOSE ELEMENTS HAVING OFFSET DATA, OFFSET\r\nC                 DATA ARE MAGNIFIED n TIMES. (PEDGE=3)\r\nC     SUBROUTINE PLOT SETS THE PEDGE FLAG, AND PLTSET SETS THE OFFSCL.\r\nC\r\n      INTEGER         ELID,ELSET,ETYP,G,IZ(1),M1(16),NAME(2),GPLST(1),\r\n     1                NG(121),OPCOR,OPT,TYPE,NGTYP(2,13),LDX(9),OFFSCL,\r\n     2                OFFSET,DEFORM,PEN,PEDGE\r\n      REAL            X(3,1)\r\n      COMMON /BLANK / NGP,SKP1(9),SKP2(2),ELSET,SKP3(7),MERR\r\n      COMMON /SYSTEM/ SKP4,IOUT\r\n      COMMON /PLTSCR/ NNN,G(3)\r\n      COMMON /DRWDAT/ SKP5(15),PEDGE\r\n      COMMON /XXPARM/ SKP6(235),OFFSCL\r\n      DATA    NAME  / 4HLINE, 1HL  /,  NM1,M1 / 16,\r\n     1                4H(33X, 4H,13H, 4HELEM, 4HENT , 4HTYPE, 4H ,A5,\r\n     2                4H,4HW, 4HITH,, 4HI8,2, 4H4H G, 4HRIDS, 4H SKI,\r\n     3                4HPPED, 4H IN , 4HLINE, 4HL.)   /\r\nC\r\nC     SPECIAL ELEMENT CONNECTION PATTERNS\r\nC\r\n      DATA LDX  / 2HD1,2HD2,2HD3,2HD4,2HD5,2HD6,2HD7,2HD8,2HD9      /\r\n      DATA KTET / 2HTE /, KWEG / 2HWG /, KHX1 / 2HH1 /, KHX2 / 2HH2 /,\r\n     1     KIX1 / 2HXL /, KIX2 / 2HXQ /, KIX3 / 2HXC /, KAE  / 2HAE /,\r\n     2     KTM6 / 2HT6 /,KTRPLT/ 2HP6 /,KTRSHL/ 2HSL /, KFH1 / 2HFA /,\r\n     3     KFH2 / 2HFB /, KFWD / 2HFW /, KFTE / 2HFT /, K2D8 / 2HD8 /,\r\n     4     KHB  / 2HHB /, KBAR / 2HBR /, KT3  / 2HT3 /, KQ4  / 2HQ4 /\r\nC\r\nC     NGTYP(1,TYPE) = LOCATION WORD 1 IN -NG-, +N = POINTER TO G\r\nC                                              -N = THRU POINTER TO G\r\nC     BE SURE TO KEEP PEN DOWN                  0 = LIFT PEN\r\nC     AS MUCH AS POSSIBLE.\r\nC     NGTYP(2,TYPE) = NUMBER OF ENTRIES/ELEMENT MINUS 1 IN TABLE IZ\r\nC\r\n      DATA NGTYP/ 0,0,  3,9,  10,14,  22,19,  37,30,  56,43,  79,6,\r\n     1           83,7, 86,9,  95,10, 102, 8, 108, 2, 110, 7/\r\n      DATA  NG  /\r\nC    1 - LINE,TRIANGLE,QUAD\r\n     1   1,-5,\r\nC    2 - TETRA (WORD 3)\r\n     2   1,-4,1,3,0,2,4,\r\nC    3 - WEDGE (WORD 10)\r\n     3   1,-3,1,4,-6,4,0,5,2,0,3,6,\r\nC    4 - HEXA  (WORD 22)\r\n     4   1,-4,1,5,-8,5,0,6,2,0,3,7,0,8,4,\r\nC    5 - IHEXA2 (WORD 37)\r\n     5   1,-8,1,9,13,-20,13,0,15,10,3,0,5,11,17,0,19,12,7,\r\nC    6 - IHEXA3 (WORD 56)\r\n     6   1,-12,1,13,17,21,-32,21,0,24,18,14,4,0,7,15,19,27,0,30,20,16,10\r\nC    7 - AREO (WORD 79)\r\n     7,  1,-4,1,0,\r\nC    8 - TRIM6, TRPLT1, AND TRSHL (WORD 83)\r\n     8   1,-6,1,\r\nC    9 - IS2D8 (WORD 86)\r\n     9   1,5,2,6,3,7,4,8,1,\r\nC   1O - POINT (WORD 95)\r\n     O   2,-6,7,2,0,1,8,\r\nC   11 - LINE (WORD 102)\r\n     1   3,-6,3,0,7,8,\r\nC   12 - REV OR ELIP CYL. (WORD 108)\r\n     2   1,2,\r\nC   13 - AREA3 (WORD 110)\r\n     3   1,-3,1,0,4,5,\r\nC   14 - AREA4 (WORD 116)\r\n     4   1,-4,1,0,5,6\r\n     * /\r\nC\r\n      K    = 1\r\n      IF (OPT .EQ. 0) GO TO 20\r\n      ETYP = NWDS\r\n      I    = OPT\r\n      GO TO 30\r\nC\r\n   20 IF (OPT .NE. 0) GO TO 170\r\n      CALL READ (*420,*190,ELSET,ETYP,1,0,I)\r\n      CALL FREAD (ELSET,I,1,0)\r\nC\r\n   30 NGPEL  = IABS(I)\r\n      NGPELX = NGPEL\r\n      OFFSET = 0\r\n      IF (ETYP .EQ. KBAR) OFFSET = 6\r\n      IF (ETYP.EQ.KT3 .OR. ETYP.EQ.KQ4) OFFSET = 1\r\nC\r\n      TYPE  = 1\r\n      IF (ETYP.EQ.KTET .OR. ETYP.EQ.KFTE) TYPE = 2\r\n      IF (ETYP.EQ.KWEG .OR. ETYP.EQ.KFWD) TYPE = 3\r\n      IF (ETYP.EQ.KHX1 .OR. ETYP.EQ.KHX2 .OR. ETYP.EQ.KFH1 .OR.\r\n     1    ETYP.EQ.KFH2 .OR. ETYP.EQ.KIX1) TYPE = 4\r\n      IF (ETYP .EQ. KIX2) TYPE = 5\r\n      IF (ETYP .EQ. KIX3) TYPE = 6\r\n      IF (ETYP .EQ.  KAE) TYPE = 7\r\n      IF (ETYP.EQ.KTM6 .OR. ETYP.EQ.KTRPLT .OR. ETYP.EQ.KTRSHL) TYPE = 8\r\n      IF (ETYP .EQ. K2D8) TYPE = 9\r\n      IF (ETYP .EQ. KHB ) TYPE = 10\r\nC                   CHBDY TYPE = 10,11,12,13,14\r\nC\r\n      IF (TYPE .NE. 1) GO TO 40\r\nC\r\nC     SIMPLE ELEMENT\r\nC\r\n      IF (NGPEL.GT.2 .AND. I.GT.0) NGPELX = NGPEL + 1\r\n      IF (NGPEL .GT. 4) GO TO 131\r\n      L1 = 1\r\n      M  = NGPELX\r\n      GO TO 50\r\nC\r\nC     COMPLEX ELEMENT\r\nC\r\n   40 L1 = NGTYP(1,TYPE)\r\n      M  = NGTYP(2,TYPE)\r\n   50 IF (NGPELX .GT. NNN) GO TO 140\r\nC\r\nC     READ THE ELEMENT DATA\r\nC\r\n   55 CALL FREAD (ELSET,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 20\r\n      CALL FREAD (ELSET,LID,1,0)\r\n      CALL FREAD (ELSET,G,NGPEL,0)\r\n      IF (NGPEL .NE. NGPELX) G(NGPELX) = G(1)\r\nC\r\nC     CALL OFSPLT TO PROCESS OFFSET PLOT\r\nC\r\n      IF (OFFSET .NE. 0)\r\n     1   CALL OFSPLT (*55,ETYP,ELID,G,OFFSET,X,DEFORM,GPLST)\r\n      IF (TYPE.LT.10 .OR. TYPE.GT.14) GO TO 57\r\nC\r\nC     SPECIAL HANDLING FOR CHBDY\r\nC\r\n      TYPE = 9 + G(NGPEL)\r\n      L1 = NGTYP(1,TYPE)\r\n      M  = NGTYP(2,TYPE)\r\nC\r\n   57 L = L1\r\nC\r\n      IF (OPT .NE. 0) GO TO 70\r\nC\r\nC     CREATING CONNECTION ARRAY FOR SUPLT\r\nC\r\n      LL = 0\r\n      I1 = 0\r\n   60 I2 = NG(L)\r\n      IF (I1 .EQ. 0) GO TO 66\r\n      IF (I2) 62,64,65\r\nC\r\nC     THRU RANGE\r\nC\r\n   62 I2 =-I2\r\n      I2 = MIN0(I2,M)\r\n      J  = I1 + 1\r\n      I1 = G(I1)\r\n      IF (2*(I2-J+1)+K .GT. OPCOR) GO TO 390\r\n      DO 63 I = J,I2\r\n      IZ(K  ) = MIN0(G(I),I1)\r\n      IZ(K+1) = MAX0(G(I),I1)\r\n      K  = K  + 2\r\n      LL = LL + 1\r\n   63 I1 = G(I)\r\n      IF (LL .EQ. M-1) LL = LL - 1\r\n      GO TO 66\r\nC\r\n   64 I1 = 0\r\n      L  = L + 1\r\n      GO TO 60\r\nC\r\n   65 IF (K+1 .GT. OPCOR) GO TO 180\r\n      IZ(K  ) = MIN0(G(I2),G(I1))\r\n      IZ(K+1) = MAX0(G(I2),G(I1))\r\n      K  = K  + 2\r\n   66 LL = LL + 1\r\n      I1 = I2\r\n      IF (LL .GE. M) GO TO 55\r\n      L  = L + 1\r\n      GO TO 60\r\nC\r\nC     ON CONVERSION REMOVE ABOVE CODE\r\nC\r\nC     LOAD ELEMENT INTO CORE\r\nC\r\n   70 N = K + M\r\nC\r\nC     THIS TEST PROTECTS THE CORE FOR THE FIRST ELEMENT READ\r\nC\r\n      IF (N+1 .GT. OPCOR) GO TO 140\r\n      I1 = 0\r\n      I2 = NG(L)\r\n      GO TO 125\r\n   80 IF (I1 .EQ. 0) GO TO 90\r\n      IF (I2) 110,100,90\r\nC\r\n   90 IZ(K) = G(I2)\r\n      GO TO 120\r\n  100 IZ(K) = I2\r\n      GO TO 120\r\n  110 I2 =-I2\r\nC\r\nC     NEXT LINE FOR ELEMENTS WITH MORE THAN ONE THRU POINTER\r\nC\r\n      IF (N .NE. K+M) I1 = I1 + 1\r\n      DO 115 I = I1,I2\r\n      IZ(K) = G(I)\r\n  115 K = K + 1\r\n      K = K - 1\r\n  120 K = K + 1\r\n      IF (K .GE. N) GO TO 130\r\n  125 I1 = I2\r\n      L  = L + 1\r\n      I2 = NG(L)\r\n      GO TO 80\r\nC\r\nC     STORE ZERO AT THE END OF EACH ELEMENT\r\nC\r\n  130 IZ(K) = 0\r\n      K = K + 1\r\n      IF (K+M+1 .GT. OPCOR) GO TO 180\r\n      GO TO 55\r\nC\r\nC     CHECK FOR PDUM ELEMENTS BEFORE REJECTING\r\nC\r\n  131 DO 132 II = 1,9\r\n      IF (ETYP .EQ. LDX(II)) CALL PDUMI (*20,*180,*140,II,M,OPCOR,NGPEL,\r\n     1                                   K,ELSET,OPT)\r\n  132 CONTINUE\r\nC\r\nC     ILLEGAL ELEMENT, NO CORE FOR 1 ELEMENT\r\nC\r\n  140 G(1) = 2\r\n      G(2) = ETYP\r\n      G(3) = NGPEL\r\n      CALL WRTPRT (MERR,G,M1,NM1)\r\nC\r\nC     READ TO THE END OF THIS ELEMENT\r\nC\r\n  150 CALL FREAD (ELSET,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 160\r\n      J = 1 + NGPEL + OFFSET\r\n      CALL FREAD (ELSET,0,-J,0)\r\n      GO TO 150\r\n  160 CONTINUE\r\nC\r\nC     NOTE THAT BOTH OPT AND NWDS=0 FOR ILLEGAL ELEMENTS\r\nC\r\n      IF (OPT .NE. 0) GO TO 390\r\n      GO TO 20\r\nC\r\nC     END OF OPT.NE.0\r\nC\r\n  170 NWDS = K - 1\r\n      OPT  = M + 2\r\n      GO TO 410\r\nC\r\nC     INSUFFICIENT CORE FOR ALL ELEMENTS\r\nC\r\n  180 IF (OPT .EQ. 0) GO TO 390\r\n      NWDS = 1 - K\r\n      OPT  = -(M+2)\r\n      GO TO 410\r\nC\r\nC     SORT\r\nC\r\n  190 IF (PEDGE .EQ. 3) GO TO 400\r\n      IF (OPT   .NE. 0) GO TO 170\r\n      IF (K     .LE. 1) GO TO 400\r\n      CALL SORT (0,0,2,1,IZ,K-1)\r\nC\r\nC     NWDS IS SET TO NO. OF WORDS PRIOR TO ELIMINATING DUPLICATES\r\nC\r\n      NWDS = K - 1\r\n      IF (NWDS .LE. 2) GO TO 310\r\n      ASSIGN 310 TO IRET\r\nC\r\nC     ELIMINATE DUPLICATE ENTRIES FROM LIST SORTED ON FIRST ENTRY\r\nC\r\n  200 CONTINUE\r\n      I = 1\r\n      L = 1\r\n      LL= IZ(L)\r\nC\r\nC\r\n      DO 300 J = 3,NWDS,2\r\n      IF (IZ(J) .EQ. LL) GO TO 220\r\nC\r\nC     NEW PIVOT\r\nC\r\n      L  = I + 2\r\n      LL = IZ(J)\r\n      GO TO 230\r\n  220 IF (IZ(J+1)-IZ(I+1)) 240,300,230\r\nC\r\nC     UNIQUE ENTRY FOR PIVOT FOUND\r\nC\r\n  230 IZ(I+2) = LL\r\n      IZ(I+3) = IZ(J+1)\r\n      GO TO 290\r\nC\r\nC     SECOND COLUMN OUT-OF-SORT\r\nC     LOAD ENTRY SORTED.  CHECK PREVIOUS ENTRIES\r\nC     L = LOWER LIMIT OF COLUMN 1 FOR MERGING\r\nC     K SET TO FIRST ENTRY OF NEXT NEW ENTRY IN LIST INITIALLY\r\nC\r\n  240 K = I\r\n  250 IF (K .LE. L) GO TO 270\r\n      IF (IZ(J+1)-IZ(K-1)) 260,300,270\r\n  260 K = K - 2\r\n      GO TO 250\r\nC\r\nC     LOAD ENTRY INTO LOCATION\r\nC\r\n  270 N = IZ(J+1)\r\n      M = I + 2\r\n  280 IZ(M+1) = IZ(M-1)\r\n      M = M - 2\r\n      IF (M .GT. K) GO TO 280\r\n      IZ(K+1) = N\r\n      IZ(I+2) = LL\r\nC\r\nC     INCREMENT FOR ENTRY LOADED\r\nC\r\n  290 I = I + 2\r\n  300 CONTINUE\r\nC\r\nC     NWDS RESET TO NO. WORDS AFTER ELIMINATING DUPLICATE ENTRIES\r\nC\r\n      NWDS = I + 1\r\n      GO TO IRET, (310,330)\r\nC\r\nC\r\nC     K IS SET TO THE NEXT PART OF CORE WHICH WILL BE FILLED WITH THE\r\nC     HIGHER ENTRY IN THE FIRST POSITION\r\nC\r\n  310 K = NWDS + 1\r\n      IF (2*NWDS .GT. OPCOR) GO TO 400\r\n      DO 320 I = 1,NWDS,2\r\n      IZ(K  ) = IZ(I+1)\r\n      IZ(K+1) = IZ(I  )\r\n      K = K + 2\r\n  320 CONTINUE\r\n      NWDS = K - 1\r\n      CALL SORT (0,0,2,1,IZ,NWDS)\r\n      ASSIGN 330 TO IRET\r\n      GO TO 200\r\nC\r\n  330 CONTINUE\r\n      IF (NWDS+NGP+1 .GT. OPCOR) GO TO 400\r\n      K = 1\r\n      J = 1\r\n      L = 1\r\n      M = 1 + NWDS\r\n      I = 0\r\n      IZ(M) = 1\r\nC\r\nC     CREATE A GPCT --- M = POINTER FOR POINTER ARRAY\r\nC                       L = SIL NUMBER\r\nC                       J = POINTER TO NEXT GPCT ENTRY\r\nC\r\n  340 IF (IZ(K) .EQ. L) GO TO 360\r\nC\r\nC     NEW PIVOT\r\nC\r\n  350 M = M + 1\r\n      IZ(M) = IZ(M-1) + I\r\n      L = L + 1\r\n      I = 0\r\n      IF (L .GT.  NGP) GO TO 370\r\n      IF (K .GT. NWDS) GO TO 350\r\n      GO TO 340\r\nC\r\nC     CONNECTED POINT\r\nC\r\n  360 IZ(J) = IZ(K+1)\r\n      K = K + 2\r\n      J = J + 1\r\n      I = I + 1\r\n      GO TO 340\r\nC\r\nC     EFFICIENCY PLOT POSSIBLE\r\nC\r\n  370 CONTINUE\r\n      OPT = NWDS\r\n      GO TO 410\r\nC\r\n  390 OPT  = 0\r\n  400 NWDS = 0\r\n  410 RETURN\r\nC\r\n  420 CALL MESAGE (-2,ELSET,NAME)\r\n      GO TO 410\r\n      END\r\n"
  },
  {
    "path": "mis/linkup.f",
    "content": "      SUBROUTINE LINKUP (*,NAME)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      DIMENSION       NAME(2)\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /LNKLST/ ITOP,IBOT,ISN,KIND,ITYPE,MASK1,MASK2,MASK3\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC     HASH INTO TABLE\r\nC\r\n      GO TO (10,10,10,20,30,30,10,30,30,30,   30,40,10,40,40,30,30,30,\r\n     1       30,30,   30,30), MACHX\r\nC\r\nC     IBM AND UNIVAC\r\nC\r\n   10 ITOTAL = NAME(1) + NAME(2)\r\n      GO TO 50\r\nC\r\nC     60-BIT MACHINE\r\nC\r\n   20 ITOTAL = RSHIFT(NAME(1),18) + RSHIFT(NAME(2),18)\r\n      GO TO 50\r\nC\r\nC     32-BIT MACHINES\r\nC\r\n   30 ITOTAL = RSHIFT(NAME(1), 1) + RSHIFT(NAME(2), 1)\r\n      GO TO 50\r\nC\r\nC     64-BIT MACHINES\r\nC\r\n   40 ITOTAL = RSHIFT(NAME(1),32) + RSHIFT(NAME(2),32)\r\nC\r\n   50 IHASH = 4*IABS(MOD(ITOTAL,250)) + 4\r\n      K = ANDF(Z(IHASH),MASK1)\r\n      IF (K.NE.0) GO TO 60\r\nC\r\nC     NO HASH CHAIN FOUND - CREATE CHAIN\r\nC\r\n      Z(IHASH) = Z(IHASH) + ITOP\r\n      GO TO 90\r\nC\r\nC     HASH CHAIN FOUND - CHECK PRESENCE OF NAME\r\nC\r\n   60 IF (Z(K).NE.NAME(1) .OR. Z(K+1).NE.NAME(2)) GO TO 70\r\n      IKIND = RSHIFT(ANDF(Z(K+3),MASK3),28)\r\n      IF ((IKIND+1)/2 .EQ. (KIND+1)/2) GO TO 100\r\n   70 L = ANDF(Z(K+3),MASK2)\r\n      IF (L .EQ. 0) GO TO 80\r\n      K = RSHIFT(L,14)\r\n      GO TO 60\r\n   80 Z(K+3) = Z(K+3) + LSHIFT(ITOP,14)\r\nC\r\nC     NO ENTRY FOUND - CREATE ENTRY\r\nC\r\n   90 Z(ITOP  ) = NAME(1)\r\n      Z(ITOP+1) = NAME(2)\r\n      Z(ITOP+2) = LSHIFT(ITYPE,28)\r\n      Z(ITOP+3) = Z(ITOP+3) + LSHIFT(IABS(KIND),28)\r\n      ITOP = ITOP + 4\r\n      IF (ITOP .GE. IBOT) RETURN 1\r\n      IF (KIND .LT.    0) RETURN\r\n      K = ITOP - 4\r\nC\r\nC     ADD STATEMENT NUMBER TO LIST\r\nC\r\n  100 L = ANDF(Z(K+2),MASK1)\r\n      IF (L .NE. 0) GO TO 110\r\nC\r\nC     LIST IS EMPTY - START LIST\r\nC\r\n      Z(K+2) = Z(K+2) + IBOT\r\n      GO TO 120\r\nC\r\nC     CHAIN ENTRY ON LIST\r\nC\r\n  110 L    = RSHIFT(ANDF(Z(K+2),MASK2),14)\r\n      Z(L) = ANDF(Z(L),COMPLF(MASK2))\r\n      Z(L) = ORF(Z(L),LSHIFT(IBOT,14))\r\nC\r\nC     ADD ENTRY TO LIST\r\nC\r\n  120 Z(IBOT)= ORF(LSHIFT(KIND,28),ISN)\r\n      Z(K+2) = ANDF(Z(K+2),COMPLF(MASK2))\r\n      Z(K+2) = Z(K+2) + LSHIFT(IBOT,14)\r\n      IBOT   = IBOT - 1\r\n      IF (ITOP .GE. IBOT) RETURN 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/loadsu.f",
    "content": "      SUBROUTINE LOADSU\r\nC\r\nC     LOADSU SETS UP LOAD INFOTMATION FOR PROLAT FROM NSLT.\r\nC     Z(IST)IS THE STARTING POINT FOR OPEN CORE,Z(MCORE) IS THE LAST\r\nC     AVAILABLE WORD, NTOT IS THE NUMBER OF WORDS PUT INTO OPEN CORE\r\nC     BY THIS ROUTINE. LOAD IS THE LOAD ID.\r\nC\r\n      LOGICAL         REMFL\r\n      INTEGER         SUBCAS,BUF2,SCR1,FILE,HEST,BGPDT\r\n      DIMENSION       NWORDS(19),MCB(7),IZ(1),L(2),ZL(2),NAM(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /BIOT  / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL,\r\n     1                MCORE,LOAD,NSLT,SCR1,HEST,NTOT\r\n      EQUIVALENCE     (Z(1),IZ(1)),(L(1),ZL(1))\r\n      DATA    NAM   / 4HLOAD,4HSU  /\r\n      DATA    NWORDS/ 6,6,4,4,6,6,2,5,5,6,6,7,12,10,10,19,38,7,5/\r\nC\r\n      BGPDT  = 103\r\n      MCB(1) = BGPDT\r\n      CALL RDTRL (MCB)\r\n      NROWSP = MCB(2)\r\n      MCB(1) = HEST\r\n      CALL RDTRL (MCB)\r\n      NEL    = MCB(2)\r\n      NSIMP  = 0\r\n      FILE   = NSLT\r\n      CALL OPEN (*1001,NSLT,Z(BUF2),0)\r\n      CALL READ (*1002,*10,NSLT,Z(IST+1),MCORE,0,IWORDS)\r\n      GO TO 1008\r\n   10 NLOADS = IWORDS-2\r\nC\r\nC     CHECK LOAD SELECTION AGAINST SIMPLE LOAD ID-S\r\nC\r\n      IF (NLOADS .EQ. 0) GO TO 35\r\n      DO 20 I = 1,NLOADS\r\n      IF (IZ(IST+2+I) .EQ. LOAD) GO TO 80\r\n   20 CONTINUE\r\nC\r\nC     NOT A SIMPLE LOAD-MUST BEA LOAD COMBINATION. SKIP NLOADS RECORDS\r\nC     AND SEARCH FOR PROPER LOAD ID\r\nC\r\n      DO 30 I = 1,NLOADS\r\n      CALL FWDREC (*1002,NSLT)\r\n   30 CONTINUE\r\nC\r\nC     READ 2 WORDS AT A TIME -1,-1 SIGNIFIES END OF LOAD CARD\r\nC\r\n   35 ILOAD = IST + IWORDS\r\n   40 CALL READ (*1002,*500,NSLT,L,2,0,IFLAG)\r\n      IF (L(1) .EQ. LOAD) GO TO 60\r\nC\r\nC     NO MATCH-SKIP TO -1-S\r\nC\r\n   50 CALL FREAD (NSLT,L,2,0)\r\n      IF (L(1).EQ.-1 .AND. L(2).EQ.-1) GO TO 40\r\n      GO TO 50\r\nC\r\nC     MATCH\r\nC\r\n   60 ALLS  = ZL(2)\r\n   70 CALL FREAD (NSLT,L,2,0)\r\n      IF (L(1).EQ.-1 .AND. L(2).EQ.-1) GO TO 90\r\n      NSIMP = NSIMP + 1\r\n      IF (ILOAD+2*NSIMP .GT. MCORE) GO TO 1008\r\n      ISUB  = 2*NSIMP - 1\r\n      Z(ILOAD+ISUB) = ZL(1)\r\n      IZ(ILOAD+ISUB+1) = L(2)\r\n      GO TO 70\r\nC\r\nC     WE HAVE NSIMP SIMPLE LOADS. FOR ONE LOAD,SET PROPER PARAMETERS\r\nC\r\n   80 NSIMP = 1\r\n      ALLS  = 1.\r\n      ILOAD = IST + IWORDS\r\n      Z(ILOAD+1) = 1.\r\n      IZ(ILOAD+2) = LOAD\r\nC\r\nC     FOR EACH SIMPLE LOAD, FIND PROPER LOAD ID AND THEN POSITION TO\r\nC     PROPER LOAD RECORD IN NSLT\r\nC\r\n   90 NTOT  = 0\r\n      ISIMP = ILOAD + 2*NSIMP\r\n      DO 270 NS = 1,NSIMP\r\nC\r\n      ISUB   = ILOAD + 2*NS - 1\r\n      FACTOR = Z(ISUB)\r\n      ID     = IZ(ISUB+1)\r\n      NCARDS = 0\r\n      CALL REWIND (NSLT)\r\n      I = 1\r\n      IF (NLOADS .EQ. 0) GO TO 110\r\n      DO 100 I = 1,NLOADS\r\n      IF (ID .EQ. IZ(IST+2+I)) GO TO 110\r\n  100 CONTINUE\r\n      GO TO 499\r\nC\r\n  110 DO 120 J = 1,I\r\n      CALL FWDREC (*1002,NSLT)\r\n  120 CONTINUE\r\nC\r\n  125 CALL READ  (*1002,*260,NSLT,NOBLD,1,0,IFLAG)\r\n      CALL FREAD (NSLT,IDO,1,0)\r\n      IF (ISIMP+2 .GT. MCORE) GO TO 1008\r\n      IZ(ISIMP+1) = NOBLD\r\n      IZ(ISIMP+2) = IDO\r\n      ISIMP = ISIMP + 2\r\n      NTOT  = NTOT + 2\r\nC\r\nC     SKIP NOBLD=-20. IF NOBLD=24(REMFLUX), STORE ONLY NOBLD AND IDO,\r\nC     BUT SKIP REMFLUX INFO ON NSLT\r\nC\r\n      IF (NOBLD .EQ. -20) GO TO 250\r\n      IF (NOBLD .LE.  19) GO TO 245\r\n      KTYPE = NOBLD - 19\r\n      GO TO (126,127,128,129,130), KTYPE\r\n  126 MWORDS = 3*NROWSP\r\n      GO TO 140\r\n  127 MWORDS = 12\r\n      GO TO 140\r\n  128 MWORDS = 48\r\n      GO TO 140\r\n  129 MWORDS = 9\r\n      GO TO 140\r\n  130 MWORDS = 3*NEL\r\n      MWORDS = -MWORDS\r\n      GO TO 141\r\nC\r\n  140 IF(ISIMP+MWORDS*IDO .GT. MCORE) GO TO 1008\r\n      NTOT = NTOT + MWORDS*IDO\r\n  141 DO 240 J = 1,IDO\r\nC\r\nC     NCARDS TELLS HOW MANY SIMPLE LOAD CARDS HAVE THE PRESENT FACTOR\r\nC     APPLIED TO IT\r\nC\r\n      NCARDS = NCARDS + 1\r\n      CALL FREAD (NSLT,Z(ISIMP+1),MWORDS,0)\r\n      IF (NOBLD .NE. 24) ISIMP = ISIMP + MWORDS\r\n  240 CONTINUE\r\nC\r\nC     DONE WITH CARDS OF PRESENT TYPE-GET ANOTHER TYPE\r\nC\r\n      GO TO 125\r\nC\r\nC     TYPE=-20    SKIP IT\r\nC\r\n  250 CALL FREAD (NSLT,Z,-(3*NROWSP),0)\r\n      GO TO 125\r\nC\r\nC     NOT A MAGNETICS TYPE OF LOAD. - SKIP IT\r\nC\r\n  245 WRITE  (IOUT,246) UWM,LOAD\r\n  246 FORMAT (A25,', IN FUNCTIONAL MODULE PROLATE, LOAD SET',I8, /5X,\r\n     1       'CONTAINS A NONMAGNETIC LOAD TYPE. IT WILL BE IGNORED.')\r\n      DO 247 I = 1,IDO\r\n      CALL FREAD (NSLT,Z,-NWORDS(NOBLD),0)\r\n  247 CONTINUE\r\nC\r\nC     EOR ON NSLT-DONE WITH THIS SIMPLE LOAD-GET ANOTHER SIMPLE LOAD\r\nC\r\nC     SUBSTITUTE IN OPEN CORE NCARDS FOR THE SIMPLE LOAD ID. WE NO\r\nC     LONGER NEED THE ID, BUT WE MUST SAVE NCARDS\r\nC\r\n  260 CONTINUE\r\n      IZ(ISUB+1) = NCARDS\r\nC\r\n  270 CONTINUE\r\nC\r\nC     DONE\r\nC\r\nC     STORE ALL THIS INFO BACK AT Z(IST) AS FOLLOWS\r\nC\r\nC     ALLS,NSIMP,(LOAD FACTOR,NCARDS) FOR EACH SIMPLE LOAD ID,\r\nC     ALL LOAD INFO FOR EACH SIMPLE LOAD STARTING WITH NOBLD AND IDO\r\nC\r\n      Z(IST+1)  = ALLS\r\n      IZ(IST+2) = NSIMP\r\n      NS2   = 2*NSIMP\r\n      DO 280 I = 1,NS2\r\n  280 Z(IST+2+I) = Z(ILOAD+I)\r\n      ISUB1 = IST + NS2 + 2\r\n      ISUB2 = ILOAD + 2*NSIMP\r\n      DO 290 I = 1,NTOT\r\n  290 Z(ISUB1+I) = Z(ISUB2+I)\r\n      NTOT = NTOT + 2*NSIMP + 2\r\n      CALL CLOSE (NSLT,1)\r\n      RETURN\r\nC\r\n  499 LOAD = ID\r\n  500 WRITE  (IOUT,501) UFM,LOAD\r\n  501 FORMAT (A23,', CANNOT FIND LOAD',I8,' ON NSLT IN BIOTSV')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n 1001 N =-1\r\n      GO TO 1010\r\n 1002 N =-2\r\n      GO TO 1010\r\n 1008 N =-8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/locpt.f",
    "content": "      SUBROUTINE LOCPT ( N,P, M,S,K,KS, EPS, LOC)\r\nC\r\nC     DETERMINES POSITION OF EACH OF N POINTS (P) RELATIVE TO SURFACE\r\nC        BOUNDED BY M POINTS (S)\r\nC        ALL POINTS IN THE SAME COORDINATE SYSTEM\r\nC     KS IS THE (UNIT) VECTOR NORMAL TO THE SURFACE\r\nC     LOC(I) IS FLAG INDICATING POSITION OF POINT I RELATIVE TO SURFACE:\r\nC        LOC= 1    WHEN POINT WITHIN SURFACE BOUNDRY\r\nC        LOC= 0    WHEN POINT IS ON SURFACE BOUNDRY\r\nC        LOC= -1   WHEN POINT OUTSIDE SURFACE BOUNDRY\r\nC\r\nC     MAXIMUM OF 4 POINTS MAY BE LOCATED RELATIVE\r\nC        TO SURFACE WITH MAXIMUM OF 4 SIDES\r\nC        WHOSE ENDPOINTS ARE IN K(2,M)\r\nC\r\n      DOUBLE PRECISION P(3,4), S(3,4), KS(3)\r\n      DOUBLE PRECISION VE(3,4), VP(3), V(3),VEMAG(4)\r\n      DOUBLE PRECISION VMAG, VPMAG, VDOTK, EDOTP\r\n      DOUBLE PRECISION DVMAG, DADOTB, EPS(2)\r\nC\r\n      INTEGER LOC(1), K(2,1)\r\nC\r\nC\r\nC     EPS ARRAY FOR SIGNIFICANCE TESTING\r\nC        EPS(1) IS AREA, ANGLE LIMIT\r\nC        EPS(2) IS LENGTH LIMIT\r\nC\r\nC\r\nC\r\nC     SET UP VECTORS ALONG EACH SURFACE EDGE\r\nC\r\n      DO 20 NE=1,M\r\n      K1= K(1,NE)\r\n      K2= K(2,NE)\r\nC\r\n      DO 15 I=1,2\r\nC     VE IS VECTOR ALONG SURFACE EDGE\r\n   15 VE(I,NE)= S(I,K2) -S(I,K1)\r\n      VE(3,NE)=0.D0\r\n      VEMAG(NE)= DVMAG( VE(1,NE), EPS(2) )\r\n   20 CONTINUE\r\nC\r\nC      DETERMINE LOCATION OF POINT RELATIVE TO SURFACE\r\nC\r\n      DO 40 NP= 1,N\r\nC        (PRESET POINT FLAG TO INTERIOR CODE)\r\n      LOC(NP)= 1\r\nC\r\n      DO 30 NE= 1,M\r\n      K1= K(1,NE)\r\nC\r\n      DO 24  I=1,2\r\nC     VP IS VECTOR FROM FIRST END OF EDGE VECTOR TO POINT\r\n   24 VP(I)= P(I,NP) -S(I,K1)\r\n      VP(3)= 0.D0\r\n      VPMAG= DVMAG(VP,EPS(2))\r\nC\r\nC     V= VE CROSS VP\r\n      CALL DAXB(VE(1,NE), VP,V)\r\n      VMAG= DVMAG(V,EPS(1))\r\nC     VDOTK= (VE CROSS VP) DOT K,  K NORMAL TO PLANE OF SURFACE\r\n      VDOTK= DADOTB(V, KS)\r\nC     EDOTP IS VE DOT VP\r\n      EDOTP= DADOTB( VE(1,NE), VP)\r\n      IF (VPMAG .LE. EPS(2) )    GO TO 37\r\n      IF (VDOTK .GT. EPS(1))           GO TO 30\r\nC                                      INSIDE THIS EDGE\r\n      IF (         (VDOTK .LT. -EPS(1) )         .OR.\r\n     1             (EDOTP .LE. EPS(1))           .OR.\r\n     2             (VEMAG(NE) +EPS(2) .LT. VPMAG) )        GO TO 35\r\nC                                                          OUTSIDE\r\n                   GO TO 37\r\nC                  ON THIS EDGE\r\n   30 CONTINUE\r\nC     POINT IS WITHIN SURFACE BOUNDRY IF NOT OUTSIDE ANY EDGE\r\nC        AND NOT ON SURFACE BOUNDRY\r\n      GO TO 40\r\nC\r\nC     POINT IS OUTSIDE SURFACE BOUNDRY IF OUTSIDE ANY EDGE\r\n   35 LOC(NP)= -1\r\n      GO TO 40\r\nC\r\nC\r\nC     POINT IS ON BOUNDRY WHEN ANGLE IS EFFECTIVELY ZERO\r\nC        OR (EFFECTIVELY) COINCIDENT WITH EDGE POINT\r\n   37 LOC(NP)= 0\r\nC\r\n   40 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/lodapp.f",
    "content": "      SUBROUTINE LODAPP\r\nC\r\nC     THIS MODULE APPENDS NEW LOAD VECTORS (PAPP AND POAP) TO THE\r\nC     SUBSTRUCTURE  -NAME-.  THE NEW VECTORS ARE MERGED WITH ALREADY\r\nC     EXISTING (PVEC AND POVE) MATRICES OR ARE SIMPLY RECOPIED AS\r\nC     THE NEW PVEC AND POVE ITEMS. LOAP DATA IS ALSO MERGED WITH THE\r\nC     LODS DATA OR IS SIMPLY COPIED AS THE NEW LODS ITEM.\r\nC\r\nC     SOF ITEMS -\r\nC\r\nC     LOAP - APPENDED LOAD SET IDENTIFICATION TABLE\r\nC     PAPP - APPENDED LOAD MATRICES (G-SET)\r\nC     POAP - APPENDED LOAD MATRICES (O-SET)\r\nC     LODS - LOAD SET IDENTIFICATION TABLE **BECOMES THE NEW LODS**\r\nC     PVEC - LOAD MATRICES (G-SET)         **BECOMES THE NEW PVEC**\r\nC     POVE - LOAD MATRICES (O-SET)         **BECOMES THE NEW POVE**\r\nC\r\n      EXTERNAL        RSHIFT     ,ANDF\r\n      LOGICAL         LPAPP      ,LPVEC      ,LPOAP      ,LPOVE      ,\r\n     1                LMERG      ,LLSUB      ,MDIUP      ,DITUP\r\n      INTEGER         RSHIFT     ,ANDF       ,BUF\r\n      DIMENSION       IZ(1)      ,NN(2)      ,MCBLOC(7)  ,ADUMP(4000),\r\n     1                NPROG(2)   ,NAME(2)    ,NAMELL(2)  ,ICORX(1)\r\n      CHARACTER       UFM*23     ,UWM*25     ,UIM*29     ,SFM*25\r\n      COMMON /XMSSG / UFM        ,UWM        ,UIM        ,SFM\r\n      COMMON /BLANK / BUF(3)\r\n      COMMON /SYSTEM/ ISBUFF     ,LP\r\n      COMMON /PACKX / ITYPIN     ,ITYPOT     ,IFIRST     ,ILAST      ,\r\n     1                INCR\r\n      COMMON /PARMEG/ MCBK(7)    ,MCBK11(7)  ,MCBK21(7)  ,MCBK12(7)  ,\r\n     1                MCBK22(7)  ,LCORE      ,IRULE\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /NAMES / IRD        ,IRDREW     ,IWRT       ,IWRTRW     ,\r\n     1                IREW       ,INOREW     ,IEFNRW     ,IRSP       ,\r\n     2                IRDP       ,ICSP       ,ICDP       ,ISQURE     ,\r\n     3                IRECT      ,IDIAG      ,IUPPER     ,ILOWER     ,\r\n     4                ISYM\r\n      COMMON /SOF   / DITDUM(6)  ,IODUM(8)   ,MDIDUM(4)  ,NXTDUM(15) ,\r\n     1                DITUP      ,MDIUP\r\n      EQUIVALENCE     (ICORX(1)  ,RZ(1))\r\n      EQUIVALENCE     (RZ(1)     ,IZ(1))\r\n      DATA    IPAPP , IPOAP      /101        ,102        /\r\n      DATA    ISCR1 , ISCR2      ,ISCR3      ,ISCR4      ,ISCR5      ,\r\n     1        ISCR6 , ISCR7      ,ISCR8      /\r\n     2        301   , 302        ,303        ,304        ,305        ,\r\n     3        306   , 307        ,308        /\r\n      DATA    NPAPP , NPOAP      ,NPVEC      ,NPOVE      ,\r\n     1        NLOAP , NLODS      /\r\n     2        4HPAPP, 4HPOAP     ,4HPVEC     ,4HPOVE     ,\r\n     3        4HLOAP, 4HLODS     /\r\n      DATA    NPROG              /4HLODA     ,4HPP       /\r\n      DATA    BLNK  / 4H         /\r\nC\r\nC     INITIALIZE PARAMETERS\r\nC\r\n      CALL TMTOGO (ITIME1)\r\n      NAME(1) = BUF(1)\r\n      NAME(2) = BUF(2)\r\n      IDRY    = BUF(3)\r\n      NCORE = KORSZ(IZ(1))\r\nC\r\nC     INITIALIZE OPEN CORE - THERE ARE NIZ WORDS AVAILABLE\r\nC\r\n      IB1  = NCORE - (ISBUFF+1)\r\n      IB2  = IB1 - ISBUFF - 1\r\n      IB3  = IB2 - ISBUFF\r\n      IBUF1= IB3 - ISBUFF\r\n      NIZ  = IBUF1 - 1\r\n      NSTART = 1\r\nC\r\nC     TEST CORE\r\nC\r\n      NCHAVE = NIZ\r\n      IF (NCHAVE .LE. 0) GO TO 7001\r\n      CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3))\r\nC\r\nC     CHECK STATUS OF SUBSTRUCTURE BEING REFERENCED - NAME\r\nC\r\n      CALL SFETCH (NAME,NLODS,3,IGO)\r\n      IF (IGO  .EQ. 4) GO TO 7002\r\n      IF (IDRY .LT. 0) GO TO 1001\r\nC\r\nC     CHECK LOCATION OF THE PAPP VECTOR - EITHER ON FILE IPAPP OR SOF\r\nC\r\n      IZ(1) = IPAPP\r\n      CALL RDTRL (IZ(1))\r\n      IF (IZ(1) .GT. 0) GO TO 10\r\n      LPAPP = .FALSE.\r\n      IUAPP = ISCR1\r\n      NITEM = NPAPP\r\n      CALL MTRXI (IUAPP,NAME,NITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 7003\r\n      LPAPP = .TRUE.\r\n      GO TO 20\r\n   10 LPAPP = .TRUE.\r\n      IUAPP = IPAPP\r\n   20 CONTINUE\r\nC\r\nC     CHECK STATUS OF THE POAP VECTOR\r\nC     FIRST GET THE NAME OF THE LOWER LEVEL SUBSTRUCTURE WHERE\r\nC     THE POAP ITEM TO BE USED IS LOCATED\r\nC\r\n      LPOAP = .FALSE.\r\n      LLSUB = .FALSE.\r\n      CALL FNDLVL (NAME,NAMELL)\r\n      IF (NAMELL(1) .EQ. BLNK) GO TO 7002\r\n      IF (NAME(1).NE.NAMELL(1) .OR. NAME(2).NE.NAMELL(2)) LLSUB = .TRUE.\r\n      IF (.NOT.LLSUB) GO TO 40\r\n      IZ(1) = IPOAP\r\n      CALL RDTRL (IZ(1))\r\n      IF (IZ(1) .GT. 0) GO TO 30\r\n      IUOAP = ISCR2\r\n      NITEM = NPOAP\r\n      CALL MTRXI (IUOAP,NAMELL,NITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 40\r\n      LPOAP = .TRUE.\r\n      GO TO 40\r\n   30 LPOAP = .TRUE.\r\n      IUOAP = IPOAP\r\n   40 CONTINUE\r\nC\r\nC     ESTABLISH TYPE OF CASE BEING RUN, I.E. THE CASE NO. BEING DEFINED\r\nC     BY  NN(1) AND NN(2).\r\nC\r\n      NN(1) = 0\r\n      NN(2) = 0\r\nC\r\nC     CHECK STATUS OF PVEC AND POVE VECTORS\r\nC\r\nC     1) PVEC\r\nC\r\n      LPVEC = .TRUE.\r\n      IZ(1) = 0\r\n      CALL SOFTRL (NAME,NPVEC,IZ(1))\r\n      IF (IZ(1) .NE. 1) LPVEC = .FALSE.\r\nC\r\nC     2) POVE\r\nC\r\n      LPOVE = .TRUE.\r\n      IZ(1) = 0\r\n      IF (LLSUB) CALL SOFTRL (NAMELL,NPOVE,IZ(1))\r\n      IF (IZ(1) .NE. 1) LPOVE = .FALSE.\r\nC\r\nC     KNOWING THE STATUS OF PAPP, PVEC, POAP, POVE DEFINE CASE NO.\r\nC\r\n      IF (LPAPP) GO TO 50\r\n      NN(1) = 4\r\n      IF (LPVEC) NN(1) = 3\r\n      GO TO 60\r\n   50 NN(1) = 2\r\n      IF (LPVEC) NN(1) = 1\r\n   60 CONTINUE\r\n      IF (LPOAP) GO TO 70\r\n      NN(2) = 4\r\n      IF (LPOVE) NN(2) = 3\r\n      GO TO 80\r\n   70 NN(2) = 2\r\n      IF (LPOVE) NN(2) = 1\r\n   80 IGO = NN(2)\r\nC\r\nC     KNOWING NN(1) AND NN(2) THE CASE IS DEFINED\r\nC\r\n      IF (NN(1) .EQ. 1) GO TO (1001,7004,7004,1001), IGO\r\n      IF (NN(1) .EQ. 2) GO TO (7004,1001,7004,1001), IGO\r\n      IF (NN(1) .EQ. 3) GO TO 7004\r\n      IF (NN(1) .EQ. 4) GO TO 7004\r\nC\r\nC     READ IN LOAP DATA\r\nC\r\n 1001 IRW = 1\r\n      CALL SFETCH (NAME,NLOAP,IRW,ITLOAP)\r\n      IF (ITLOAP .GT. 1) GO TO 7003\r\n      CALL SUREAD (IZ(NSTART),-1,NWDS,ICHK)\r\n      NL = IZ(NSTART+2)\r\n      NS = IZ(NSTART+3)\r\n      NFINI  = 4 + NS*3 + NL\r\n      NSTART = 5 + NS*2\r\n      NAS = 1\r\n      NAF = NFINI\r\n      NCHAVE = NFINI\r\n      NSUBS  = NS\r\n      IF (NCHAVE .GT. NIZ) GO TO 7001\r\n      NBASN  = 4 + NSUBS*2 + 1\r\n      DO 90 ILOOP = 1,NSUBS\r\n      CALL SUREAD (IZ(NBASN),-1,NWDS,ICHK)\r\n   90 NBASN  = IZ(NBASN) + 1 + NBASN\r\n      NSTART = NAF + 1\r\n      NPS    = NSTART\r\n      LMERG  = .TRUE.\r\nC\r\nC     IF DRY RUN (IDRY .LT. 0) CHECK FOR LODS ITEM\r\nC\r\n      IF (IDRY .LT. 0) GO TO 1002\r\n      IF (LPVEC) GO TO 1002\r\nC\r\nC     SIMPLE COPY OF NEW APPENDED LOADS TO SOF\r\nC\r\nC     NEW  LODS  ITEM\r\nC\r\n      NITEM = NLODS\r\n      LMERG = .FALSE.\r\n      ITEST = 3\r\n      IRW   = 2\r\n      CALL SFETCH (NAME,NITEM,IRW,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 7005\r\n      NWDS = 4 + 2*IZ(NAS+3)\r\n      CALL SUWRT (IZ(NAS),NWDS,2)\r\n      NBASN = NAS + NWDS\r\n      DO 101 N = 1,NSUBS\r\n      NWDS = IZ(NBASN) + 1\r\n      CALL SUWRT (IZ(NBASN),NWDS,2)\r\n      NBASN = NBASN + NWDS\r\n  101 CONTINUE\r\nC\r\nC     END OF ITEM CALL TO SUWRT\r\nC\r\n      CALL SUWRT (0,0,3)\r\nC\r\nC     NEW  PVEC  ITEM\r\nC\r\n      CALL MTRXO (IUAPP,NAME,NPVEC,0,ITEST)\r\nC\r\nC     NEW  POVE  ITEM  IF ANY\r\nC\r\n      CALL BUG (NPROG(1),101,LPOAP,1)\r\n      IF (LPOAP) CALL MTRXO (IUOAP,NAMELL,NPOVE,0,ITEST)\r\nC\r\nC     MODULE IS FINISHED WITH THE DIRECT COPY CASE\r\nC\r\n      GO TO 7000\r\n 1002 CONTINUE\r\nC\r\nC     ITS BEEN DETERMINED THAT A MERGE OPERATION WILL TAKE PLACE.  THE\r\nC     ONLY CHECK NOW IS TO SEE IF A LODS ITEM EXISTS.\r\nC\r\n      IRW  = 1\r\n      NITEM = NLODS\r\n      CALL SFETCH (NAME,NITEM,IRW,ITLODS)\r\n      IF (ITLODS.NE.1 .AND. IDRY.GT.0) GO TO 7003\r\n      IF (ITLODS.NE.1 .AND. IDRY.LT.0) GO TO 9999\r\n      CALL SUREAD (IZ(NSTART),-1,NWDS,ICHK)\r\n      NCNT = NWDS + NAF\r\n      NL   = IZ(NPS+2)\r\n      NS   = IZ(NPS+3)\r\n      NFINI= NPS + 3 + 3*NS + NL\r\n      NPF  = NFINI\r\n      NSTART = NPF + 1\r\n      NCHAVE = NFINI\r\n      IF (NCHAVE .GT. NIZ) GO TO 7001\r\n      NBASN = NPS + 3 + 2*NSUBS + 1\r\n      DO 91 ILOOP = 1,NSUBS\r\n      CALL SUREAD (IZ(NBASN),-1,NWDS,ICHK)\r\n   91 NBASN = NBASN + IZ(NBASN) + 1\r\n      NLDSA = IZ(NAS+2)\r\n      NLDSP = IZ(NPS+2)\r\n      NLOADS= NLDSA + NLDSP\r\n      NBASA = NAS + 3 + 2*NSUBS + 1\r\n      NBASP = NPS + 3 + 2*NSUBS + 1\r\n      NLBASA= IZ(NBASA)\r\n      NLBASP= IZ(NBASP)\r\nC\r\nC     CHECK FOR DUPLICATE LOAD IDS IN THE  LOAP  AND  LODS  ITEMS.\r\nC\r\n      DO 102 L = 1,NSUBS\r\n      IF (NLBASP .EQ. 0 .OR. NLBASA .EQ. 0) GO TO 104\r\n      DO 103 M = 1,NLBASA\r\n      DO 103 N = 1,NLBASP\r\n      IF( IZ(NBASA+M).NE.IZ(NBASP+N).OR.IZ(NBASA+M).EQ.0 ) GO TO 103\r\n      WRITE  (LP,6955) UFM,IZ(NBASA+M),NAME\r\n 6955 FORMAT (A23,' 6955, DUPLICATE LOAD IDS DURING APPEND OPERATION.',\r\n     1       '  LOAD ID NO.',I9,' SUBSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n  103 CONTINUE\r\n  104 NBASA = NBASA + NLBASA + 1\r\n      NBASP = NBASP + NLBASP + 1\r\n      NLBASA = IZ(NBASA)\r\n      NLBASP = IZ(NBASP)\r\n  102 CONTINUE\r\nC\r\nC     END OF RUN IF A DRY RUN(IDRY .LT. 0)\r\nC\r\n      IF (IDRY .LT. 0) GO TO 9999\r\nC\r\nC     CALCULATE LENGTH OF THE MERG AND  N E W  LODS TABLE AND THEIR\r\nC     LOCATIONS IN OPEN CORE\r\nC\r\n      LMERGT = 2*NSUBS\r\n      NMERGS = NPF + 1\r\n      NMERGF = NPF + LMERGT\r\n      LNEWLT = 4 + 3*NSUBS + NLOADS\r\n      NNEWS  = NMERGF + 1\r\n      NNEWF  = NMERGF + LNEWLT\r\nC\r\nC     CREATE THE NEW LODS TABLE IN OPEN CORE - GROUP  0  FIRST\r\nC\r\n      IZ(NNEWS  ) = IZ(NAS  )\r\n      IZ(NNEWS+1) = IZ(NAS+1)\r\n      IZ(NNEWS+2) = NLOADS\r\n      IZ(NNEWS+3) = NSUBS\r\n      NLOOP = 2*NSUBS\r\n      NNEW1 = NNEWS + 3\r\n      NDEL1 = NAS + 3\r\n      DO 105 NS1 = 1,NLOOP\r\n  105 IZ(NNEW1+NS1) = IZ(NDEL1+NS1)\r\nC\r\nC     COMPLETION OF THE NEW LODS TABLE - GROUPS  1  THRU  NSUBS  --  AND\r\nC     CREATION OF THE MERGE TABLE\r\nC\r\n      NBASN  = NNEW1 + NLOOP + 1\r\n      NBASA  = NAS + 3 + 2*NSUBS + 1\r\n      NBASP  = NPS + 3 + 2*NSUBS + 1\r\n      NLOADA = IZ(NBASA)\r\n      NLOADP = IZ(NBASP)\r\n      NLOADN = NLOADA + NLOADP\r\n      NMERGN = NMERGS\r\n      IMERGN = 1\r\nC\r\nC     ZERO THE MERG TABLE LOCATION\r\nC\r\n      DO 109 I = 1,LMERGT\r\n  109 IZ(NPF+I) = 0\r\n      DO 106 ILOOP = 1,NSUBS\r\n      IZ(NBASN) = NLOADN\r\n      IF (NLOADP .EQ. 0) GO TO 2108\r\n      DO 108 N = 1,NLOADP\r\n  108 IZ(NBASN+N) = IZ(NBASP+N)\r\n 2108 CONTINUE\r\n      NBASN = NBASN + NLOADP\r\n      IF (NLOADA .EQ. 0) GO TO 2107\r\n      DO 107 N = 1,NLOADA\r\n  107 IZ(NBASN+N) = IZ(NBASA+N)\r\n 2107 CONTINUE\r\nC\r\nC     LOCATION IN THE MERGE TABLE OF THE  1(S)\r\nC\r\n      IMERGN = IMERGN + NLOADP\r\n      IZ(NMERGN) = IMERGN\r\n      IMERGN = IMERGN + NLOADA\r\n      IZ(NMERGN+1) = NLOADA\r\n      NMERGN = NMERGN + 2\r\n      NBASN  = NBASN + NLOADA + 1\r\n      IF (ILOOP .EQ. NSUBS) GO TO 106\r\n      NBASA  = NBASA + NLOADA + 1\r\n      NBASP  = NBASP + NLOADP + 1\r\n      NLOADA = IZ(NBASA)\r\n      NLOADP = IZ(NBASP)\r\n      NLOADN = NLOADA + NLOADP\r\n  106 CONTINUE\r\nC\r\nC     END OF GENERATION OF NEW LODS ITEM AND CREATION OF MERGE TABLE\r\nC\r\nC     CALCULATE BEGINNING LOCATION OF MERGE VECTOR IN OPEN CORE\r\nC\r\n      NMRVCS = NNEWF + 1\r\n      NMERGN = NMERGS\r\n      NMRVCN = NMRVCS - 2\r\n      LVECT  = IZ(NNEWS+2)\r\n      NMRVCF = NNEWF + LVECT\r\n      NCHAVE = NMRVCF\r\n      IF (NCHAVE .GT. NIZ) GO TO 7001\r\nC\r\nC     FILL THE MERGE VECTOR WITH  1(S)  ACCORDING TO THE MERGE TABLE\r\nC\r\nC     1) ZERO FIRST\r\nC\r\n      DO 112 I = 1,LVECT\r\n  112 RZ(NMRVCS-1+I) = 0.\r\nC\r\nC     2) NOW FILL\r\nC\r\n      DO 110 ILOOP = 1,NSUBS\r\n      IDRC1 = IZ(NMERGN)\r\n      IDRC2 = IZ(NMERGN+1)\r\n      IF (IDRC2 .EQ. 0) GO TO 2111\r\n      DO 111 N = 1,IDRC2\r\n  111 RZ(NMRVCN+IDRC1+N) = 1.0\r\n 2111 CONTINUE\r\n      NMERGN = NMERGN + 2\r\n  110 CONTINUE\r\nC\r\nC     WRITE THE MERGE VECTOR ON SCRATCH  5  USING  PACK-SEE COMMON PACKX\r\nC     THIS IS A COLUMN PARTITIONING VECTOR (REFERRED TO AS A ROW VECTOR\r\nC     BY MERGE)\r\nC\r\n      ITYPIN = 1\r\n      ITYPOT = 1\r\n      IFIRST = 1\r\n      ILAST  = LVECT\r\n      INCR   = 1\r\n      CALL GOPEN (ISCR5,IZ(IBUF1),IWRTRW)\r\nC\r\nC     ZERO THE TRAILER INFO. LOCATIONS\r\nC\r\n      DO 116 I = 1,7\r\n  116 MCBLOC(I) = 0\r\n      MCBLOC(1) = ISCR5\r\n      MCBLOC(3) = LVECT\r\n      MCBLOC(4) = IRECT\r\n      MCBLOC(5) = IRSP\r\n      CALL PACK (RZ(NMRVCS),ISCR5,MCBLOC(1))\r\n      CALL CLOSE (ISCR5,IREW)\r\n      CALL WRTTRL (MCBLOC(1))\r\n      IDUMP = -ISCR5\r\n      CALL DMPFIL (IDUMP,ADUMP,4000)\r\nC\r\nC     READ IN THE  PVEC  AND  POVE(IF EXISTS)  USING MTRXI\r\nC\r\nC     1) PVEC\r\nC\r\n      IUVEC = ISCR3\r\n      CALL MTRXI (IUVEC,NAME,NPVEC,0,ICHK)\r\nC\r\nC     2) POVE\r\nC\r\n      IUOVE = ISCR4\r\n      IF (LPOVE) CALL MTRXI (IUOVE,NAMELL,NPOVE,0,ICHK)\r\nC\r\nC     SET UP TO CALL MERGE FOR  PAPP  AND  PVEC\r\nC\r\n      IDUMP = -IUVEC\r\n      CALL DMPFIL (IDUMP,ADUMP,4000)\r\n      IDUMP = -IUAPP\r\n      CALL DMPFIL (IDUMP,ADUMP,4000)\r\n      ICORE = NMRVCF + 1\r\n      IZ(ICORE) = ISCR5\r\n      CALL RDTRL (IZ(ICORE))\r\nC\r\nC     SETUP NULL ROW PARTITIONING VECTOR USING  ISCR8\r\nC     THIS IS A ROW PARTITIONING VECTOR REFERRED TO AS A COLUMN VECTOR\r\nC     BY MERGE)\r\nC\r\n      MCBK11(1) = IUVEC\r\n      CALL RDTRL (MCBK11(1))\r\n      MCBK12(1) = IUAPP\r\n      CALL RDTRL (MCBK12(1))\r\n      DO 114 K = 1,7\r\n      MCBK21(K) = 0\r\n  114 MCBK22(K) = 0\r\n      IZ(ICORE+ 7) = ISCR8\r\n      IZ(ICORE+ 8) = 0\r\n      IZ(ICORE+ 9) = MCBK11(3)\r\n      IZ(ICORE+10) = IRECT\r\n      IZ(ICORE+11) = IRSP\r\n      IZ(ICORE+12) = 0\r\n      IZ(ICORE+13) = 0\r\n      NCNT = ICORE +13\r\nC\r\n      CALL GOPEN (ISCR8,IZ(IBUF1),IWRTRW)\r\n      ITYPIN = 1\r\n      ITYPOT = 1\r\n      IFIRST = 1\r\n      ILAST  = 1\r\n      INCR   = 1\r\n      CALL PACK (0,ISCR8,IZ(ICORE+7))\r\n      CALL CLOSE (ISCR8,IREW)\r\n      CALL WRTTRL (IZ(ICORE+7))\r\n      LCORE = IB3 - ICORE - 15\r\n      I = ICORE + 15\r\n      IRULE   = 0\r\n      MCBK(1) = ISCR6\r\n      MCBK(2) = MCBK11(2)+MCBK12(2)\r\n      MCBK(3) = MCBK11(3)\r\n      MCBK(4) = IRECT\r\n      MCBK(5) = MCBK11(5)\r\n      MCBK(6) = 0\r\n      MCBK(7) = 0\r\n      CALL MERGE (IZ(ICORE),IZ(ICORE+7),IZ(I))\r\n      CALL WRTTRL (MCBK(1))\r\nC\r\nC     SETUP TO MERGE  POVE  AND  POAP(IF THEY EXIST)\r\nC\r\n      IDUMP = -IUOVE\r\n      CALL DMPFIL (IDUMP,ADUMP,4000)\r\n      IDUMP = -IUOAP\r\n      CALL DMPFIL (IDUMP,ADUMP,4000)\r\n      IF (.NOT. LPOVE) GO TO 1005\r\n      MCBK11(1) = IUOVE\r\n      CALL RDTRL (MCBK11(1))\r\n      MCBK12(1) = IUOAP\r\n      CALL RDTRL (MCBK12(1))\r\n      DO 115 K = 1,7\r\n      MCBK21(K) = 0\r\n  115 MCBK22(K) = 0\r\n      IRULE   = 0\r\n      MCBK(1) = ISCR7\r\n      MCBK(2) = MCBK11(2)+MCBK12(2)\r\n      MCBK(3) = MCBK11(3)\r\n      MCBK(4) = IRECT\r\n      MCBK(5) = MCBK11(5)\r\n      MCBK(6) = 0\r\n      MCBK(7) = 0\r\n      CALL MERGE (IZ(ICORE),IZ(ICORE+7),IZ(I))\r\n      CALL WRTTRL (MCBK(1))\r\nC\r\nC     CHECK TIME REMAINING AND RETURN WITH USER FATAL MESSAGE IF NOT\r\nC     ENOUGH REMAINING\r\nC\r\n 1005 CALL TMTOGO (ITIME2)\r\n      IF (ITIME2 .LE. 0) GO TO 7007\r\nC\r\nC     CALCULATE TIME USED IN REACHING THIS LOCATION\r\nC\r\n      ITUSED = ITIME1 - ITIME2\r\nC\r\nC     CONTINUE IF ITIME2 IS GREATER THAN ITUSED\r\nC\r\n      IF (ITIME2 .LT. ITUSED) GO TO 7007\r\nC\r\nC     WRITE NEW LODS ITEM TO SOF\r\nC\r\nC     1) DELETE OLD LODS ITEM\r\nC\r\n      CALL DELETE (NAME,NLODS,ICHK)\r\nC\r\nC     DELETE LODS ITEMS ON ANY SUBSTRUCTURE SECONDARY TO NAME - THIS\r\nC     WILL ALLOW THE NEW LODS ITEM TO BE COPIED DURING FUTURE EQUIV\r\nC     OPERATIONS\r\nC\r\n      II = ITCODE (NLODS)\r\n      CALL FDSUB (NAME,IND)\r\n      CALL FMDI (IND,IMDI)\r\n      IPS = ANDF(ICORX(IMDI+1),1023)\r\n      IF (IPS .NE. 0) GO TO 118\r\n  117 ISS = ANDF(RSHIFT(ICORX(IMDI+1),10),1023)\r\n      IF (ISS .EQ. 0) GO TO 118\r\n      CALL FMDI (ISS,IMDI)\r\n      IBLK = ANDF(ICORX(IMDI+II),65535)\r\n      IF (IBLK .NE. 0 .AND. IBLK .NE. 65535) CALL RETBLK (IBLK)\r\n      ICORX(IMDI+II) = 0\r\n      MDIUP = .TRUE.\r\n      GO TO 117\r\nC\r\nC     2) BEGIN WRITING\r\nC\r\n  118 ICHK = 3\r\n      IRW  = 2\r\n      CALL SFETCH (NAME,NLODS,IRW,ICHK)\r\n      NWORDS = 4 + 2*IZ(NNEWS+3)\r\n      CALL SUWRT (IZ(NNEWS),NWORDS,2)\r\n      NBASN = NNEWS + NWORDS\r\n      DO 113 N = 1,NSUBS\r\n      NWORDS = IZ(NBASN) + 1\r\n      CALL SUWRT (IZ(NBASN),NWORDS,2)\r\n  113 NBASN = NBASN + NWORDS\r\n      CALL SUWRT (0,0,3)\r\nC\r\nC     WRITE NEW  PVEC  AND  POVE(IF IT EXISTS)  TO SOF\r\nC\r\n      CALL DELETE (NAME,NPVEC,ICHK)\r\n      CALL MTRXO (ISCR6,NAME,NPVEC,0,ICHK)\r\n      IF (LPOVE) CALL DELETE (NAMELL,NPOVE,ICHK)\r\n      IF (LPOVE) CALL MTRXO (ISCR7,NAMELL,NPOVE,0,ICHK)\r\nC\r\n      WRITE  (LP,6900) UIM,NAME\r\n 6900 FORMAT (A29,' 6900, LOADS HAVE BEEN SUCCESSFULLY APPENDED FOR ',\r\n     1       'SUBSTRUCTURE ',2A4)\r\n      GO TO 9999\r\n 7000 WRITE  (LP,6901) UIM,NAME\r\n 6901 FORMAT (A29,' 6901, ADDITIONAL LOADS HAVE BEEN SUCCESSFULLY ',\r\n     1       'MERGED FOR SUBSTRUCTURE ',2A4)\r\n      GO TO 9999\r\n 7001 WRITE  (LP,6951) UFM,NCHAVE\r\n 6951 FORMAT (A23,' 6951, INSUFFICIENT CORE TO LOAD TABLES', /5X,\r\n     1       'IN MODULE LODAPP, CORE =',I8)\r\n      CALL MESAGE (-8,NPROG,0)\r\nC\r\n 7002 WRITE  (LP,6952) SFM,NAME\r\n 6952 FORMAT (A25,' 6952, REQUESTED SUBSTRUCTURE ',2A4,\r\n     1       ' DOES NOT EXIST')\r\n      IDRY = -2\r\n      GO TO 9999\r\n 7003 WRITE  (LP,6101) SFM,NITEM,NAME\r\n 6101 FORMAT (A25,' 6101, REQUESTED SOF ITEM DOES NOT EXIST.  ITEM ',A4,\r\n     1       ' SUBSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n      GO TO 9999\r\n 7004 WRITE  (LP,6953) SFM,NAME\r\n 6953 FORMAT (A25,' 6953, A WRONG COMBINATION OF LOAD VECTORS EXISTS ',\r\n     1       'FOR SUBSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n      GO TO 9999\r\n 7005 WRITE  (LP,6954) SFM,NITEM,NAME\r\n 6954 FORMAT (A25,' 6954, THE ,A4,62H ITEM EXISTS BUT HAS NO ',\r\n     1       'ASSOCIATED PVEC ITEM FOR SUBSTRUCTURE ',2A4)\r\n      IDRY = -2\r\n      GO TO 9999\r\n 7007 WRITE  (LP,6956) UFM,ITIME2\r\n 6956 FORMAT (A23,' 6956, INSUFFICIENT TIME REMAINING FOR MODULE ',\r\n     1       'LODAPP, TIME LEFT =',I8)\r\n      IDRY = -2\r\n 9999 CONTINUE\r\n      CALL SOFCLS\r\nC\r\nC     RETURN VALUE OF DRY PARAMETER\r\nC\r\n      BUF(3) = IDRY\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/logfil.f",
    "content": "      SUBROUTINE LOGFIL (LINE)\r\nC\r\n      DIMENSION LINE(18)\r\nC\r\n      COMMON /LOGOUT/ LOUT\r\nC\r\n      WRITE (LOUT, 2000) LINE\r\n      RETURN\r\nC\r\n 2000 FORMAT (1X, 18A4)\r\n      END\r\n"
  },
  {
    "path": "mis/loglog.f",
    "content": "      SUBROUTINE LOGLOG (A,B,C,D,E,F)\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS  7/92, THE 1992 SUMMER OLYMPIC WEEK\r\nC\r\nC     LOG-LOG TABLE LOOKUP           10 +------+------+------+--+\r\nC                                     D                 *\r\nC     INPUT : A,B, C,D, AND E         8 +------+-------/-----+--+\r\nC     OUTPUT: F                                       /\r\nC                                                    /\r\nC     ALL A,B,C,D,E,F IN LOG          4 +------+----/-+------+--+\r\nC     SCALE                           F            *\r\nC                                                 /\r\nC     LINEAR EVALUATION ON LOG        2 +------+-/-----+------+--+\r\nC     SCALE (NO POLYNOMIAL            B         *\r\nC     EVALUATION)\r\nC                                     1 +------+------+------+--+\r\nC                                       1      2A  E  4 C    8  10\r\n      AA = ALOG10(A)\r\n      BB = ALOG10(B)\r\n      CC = ALOG10(C) - AA\r\n      DD = ALOG10(D) - BB\r\n      EE = ALOG10(E) - AA\r\n      F  = 10.**(EE*DD/CC + BB)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY SMILOG (A,B,C,D,E,F)\r\nC     ==========================\r\nC\r\nC     SEMI-LOG TABLE LOOKUP       10 +--+--+--+--+--+--+--+--+--+\r\nC                                  D                *\r\nC     INPUT : A,B, C,D, AND E      8 +--+--+--+--+-/+--+--+--+--+\r\nC     OUTPUT: F                                   /\r\nC                                                /\r\nC     A,C,E IN LINEAR SCALE        4 +--+--+--+-/+--+--+--+--+--+\r\nC     B,D,F IN LOG SCALE           F           *\r\nC                                             /\r\nC                                  2 +--+--+-/+--+--+--+--+--+--+\r\nC                                  B        *\r\nC\r\nC                                  1 +--+--+--+--+--+--+--+--+--+\r\nC                                    0  1  2A 3E 4  C  6  7  8  9\r\n      BB = ALOG10(B)\r\n      CC = C - A\r\n      DD = ALOG10(D) - BB\r\n      EE = E - A\r\n      F  = 10.**(EE*DD/CC + BB)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY LOGSMI (A,B,C,D,E,F)\r\nC     ==========================\r\nC\r\nC     LOG-SEMI TABLE LOOKUP          10 +-----+-----+-----+--+\r\nC                                     D                 *\r\nC     INPUT:  A,B, C,D, AND E         8 +-----+-----+--/--+--+\r\nC     OUTPUT: F                                       /\r\nC                                     6 +-----+-----+/----+--+\r\nC     A,C,E IN LOG SCALE                            /\r\nC     B,D,F IN LINEAR SCALE           4 +-----+----/+-----+--+\r\nC                                     F           *\r\nC                                     2 +-----+--/--+-----+--+\r\nC                                     B         *\r\nC                                     0 +-----+-----+-----+--+\r\nC                                       1     2 A E 4   C 8  10\r\n      AA = ALOG10(A)\r\n      CC = ALOG10(C) - AA\r\n      DD = D - B\r\n      EE = ALOG10(E) - AA\r\n      F  = EE*DD/CC + B\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/lprops.f",
    "content": "      SUBROUTINE LPROPS (G)\r\nC     &    ENTRY LPROPD (D)\r\nC\r\nC     THIS ROUTINE RETURNS INTRINSIC LAYER PROPERTIES FOR\r\nC     ALL LAYERS REFERENCING MAT1, MAT2 OR MAT8 PROPERTY\r\nC     ENTRIES IN A STANDARD FORMAT AS REQUIRED FOR FILE PCOMPS\r\nC\r\n      REAL             G(25),MTYPE,NU12,NU21\r\n      DOUBLE PRECISION D(25),DONST\r\n      COMMON  /MATOUT/ RMTOUT(25)\r\n      EQUIVALENCE      (RMTOUT(1),E1),(RMTOUT(2),NU12),(RMTOUT(3),E2)\r\nC\r\nC     SINGLE PRECISION -\r\nC\r\n      DO 10 I=1,25\r\n   10 G(I) = 0.0\r\n      MTYPE = RMTOUT(25)\r\n      MTYP = IFIX(MTYPE+.05) - 2\r\n      IF (MTYP) 20,30,60\r\nC\r\nC****\r\nC     ISOTROPIC MATERIALS, MAT1 IN MAT2 FORMAT\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n   20 CONTINUE\r\nC\r\nC****\r\nC     ANISOTROPIC MATERIALS, MAT2\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n   30 DO 40 I=1,3\r\n   40 G(I) = RMTOUT(I)\r\n      G(5) = RMTOUT(4)\r\n      G(6) = RMTOUT(5)\r\n      G(9) = RMTOUT(6)\r\n      G(4) = G(2)\r\n      G(7) = G(3)\r\n      G(8) = G(6)\r\nC\r\nC**** TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\n      DO 50 I=10,13\r\n      II = I - 9\r\n   50 G(I) = RMTOUT(II)\r\n      G(12) = G(11)\r\nC\r\nC**** THERMAL COEFFICIENTS OF EXPANSION\r\n      G(14) = RMTOUT( 8)\r\n      G(15) = RMTOUT( 9)\r\n      G(16) = RMTOUT(10)\r\nC\r\nC**** ULTIMATE STRENGTH VALUES\r\n      G(17) = RMTOUT(13)\r\n      G(18) = RMTOUT(13)\r\n      G(19) = RMTOUT(14)\r\n      G(20) = RMTOUT(14)\r\n      G(21) = RMTOUT(15)\r\n      G(22) = 0.0\r\nC\r\nC*** RHO, TREF, GE\r\n      G(23) = RMTOUT( 7)\r\n      G(24) = RMTOUT(11)\r\n      G(25) = RMTOUT(12)\r\n      GO TO 160\r\nC\r\nC****\r\nC     ORTHOTROPIC MATERIALS, MAT8\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n   60 NU21 = NU12 * E2 / E1\r\n      CONST= 1.0 - (NU21*NU12)\r\n      G(1) = E1 / CONST\r\n      G(2) = NU12 * E2 / CONST\r\n      G(5) = E2 / CONST\r\n      G(4) = G(2)\r\n      G(9) = RMTOUT(4)\r\nC\r\nC**** TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\n      G(10) = RMTOUT(6)\r\n      G(13) = RMTOUT(5)\r\nC\r\nC**** THERMAL COEFFICIENTS OF EXPANSION\r\n      G(14) = RMTOUT(8)\r\n      G(15) = RMTOUT(9)\r\nC\r\nC**** ULTIMATE STRENGTH VALUES\r\n      G(17) = RMTOUT(11)\r\n      G(18) = RMTOUT(12)\r\n      G(19) = RMTOUT(13)\r\n      G(20) = RMTOUT(14)\r\n      G(21) = RMTOUT(15)\r\n      G(22) = RMTOUT(17)\r\nC\r\nC*** RHO, TREF, GE\r\n      G(23) = RMTOUT( 7)\r\n      G(24) = RMTOUT(10)\r\n      G(25) = RMTOUT(16)\r\n      GO TO 160\r\nC\r\n      ENTRY LPROPD (D)\r\nC     ================\r\nC\r\nC     DOUBLE PRECISION -\r\nC\r\n      DO 100 I=1,25\r\n  100 D(I) = 0.0D0\r\n      MTYPE = RMTOUT(25)\r\n      MTYP  = IFIX(MTYPE+.05) - 2\r\n      IF (MTYP) 110,120,150\r\nC\r\nC****\r\nC     ISOTROPIC MATERIALS, MAT1 IN MAT2 FORMAT\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n  110 CONTINUE\r\nC\r\nC****\r\nC     ANISOTROPIC MATERIALS, MAT2\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n  120 DO 130 I=1,3\r\n  130 D(I) = RMTOUT(I)\r\n      D(5) = RMTOUT(4)\r\n      D(6) = RMTOUT(5)\r\n      D(9) = RMTOUT(6)\r\n      D(4) = D(2)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\nC\r\nC**** TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\n      DO 140 I=10,13\r\n      II = I - 9\r\n  140 D(I) = RMTOUT(II)\r\n      D(12) = D(11)\r\nC\r\nC**** THERMAL COEFFICIENTS OF EXPANSION\r\n      D(14) = RMTOUT( 8)\r\n      D(15) = RMTOUT( 9)\r\n      D(16) = RMTOUT(10)\r\nC\r\nC**** ULTIMATE STRENGTH VALUES\r\n      D(17) = RMTOUT(13)\r\n      D(18) = RMTOUT(13)\r\n      D(19) = RMTOUT(14)\r\n      D(20) = RMTOUT(14)\r\n      D(21) = RMTOUT(15)\r\n      D(22) = 0.0D0\r\nC\r\nC*** RHO, TREF, GE\r\n      D(23) = RMTOUT( 7)\r\n      D(24) = RMTOUT(11)\r\n      D(25) = RMTOUT(12)\r\n      GO TO 160\r\nC\r\nC****\r\nC     ORTHOTROPIC MATERIALS, MAT8\r\nC\r\nC****  LAYER PROPERTY MATRIX\r\nC\r\n  150 NU21 = NU12 * E2 / E1\r\n      DONST= 1.0D0 - DBLE(NU21*NU12)\r\n      D(1) = E1 / DONST\r\n      D(2) = NU12 * E2 / DONST\r\n      D(5) = E2 / DONST\r\n      D(4) = D(2)\r\n      D(9) = RMTOUT(4)\r\nC\r\nC**** TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\n      D(10) = RMTOUT(6)\r\n      D(13) = RMTOUT(5)\r\nC\r\nC**** THERMAL COEFFICIENTS OF EXPANSION\r\n      D(14) = RMTOUT(8)\r\n      D(15) = RMTOUT(9)\r\nC\r\nC**** ULTIMATE STRENGTH VALUES\r\n      D(17) = RMTOUT(11)\r\n      D(18) = RMTOUT(12)\r\n      D(19) = RMTOUT(13)\r\n      D(20) = RMTOUT(14)\r\n      D(21) = RMTOUT(15)\r\n      D(22) = RMTOUT(17)\r\nC\r\nC*** RHO, TREF, GE\r\n      D(23) = RMTOUT( 7)\r\n      D(24) = RMTOUT(10)\r\n      D(25) = RMTOUT(16)\r\nC\r\n  160 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/lsplin.f",
    "content": "      SUBROUTINE LSPLIN(NI,XYI,ND,XYD,KY,KD,KT,DZ,DTX,DTY,DTOR,\r\n     *           G,NCORE,ISNG)\r\n      LOGICAL IKT\r\n      LOGICAL BNONE,BONE\r\n      LOGICAL SPEC\r\n      LOGICAL OXR,OYR\r\n      LOGICAL BOTH\r\n      LOGICAL STWO,SONE,NETHR\r\n      INTEGER SIZE\r\nC\r\n      DIMENSION XYI(1),XYD(1),G(1),NAME(2)\r\n      DATA NAME/4HLSPL,4HIN  /\r\n      SPEC = .FALSE.\r\n      BONE = .FALSE.\r\n      BNONE = .FALSE.\r\n      SONE = .FALSE.\r\n      STWO = .FALSE.\r\n      OXR = .FALSE.\r\n      OYR = .FALSE.\r\n      BOTH = .FALSE.\r\n      IKT = .FALSE.\r\n      NETHR = .TRUE.\r\n      EY = FLOAT(KY)\r\nC\r\nC     KY EFFECTS RIGID BODY ROWS AND COLUMNS OF A AND ROWS OF B\r\nC\r\nC     DTX AND DTY EFFECT ROWS AND COLUMNS OF A AND ROWS OF B\r\nC\r\nC     KD EFFECTS COLUMNS OF B\r\nC\r\nC     SPEC GUARDS AGAINST SINGULAR MATRIX FOR ROTATIONS WITHOUT Y\r\nC     CONSTRAINED\r\nC\r\n      IF(KD .EQ. 0) BNONE = .TRUE.\r\n      IF(KD .EQ. 1) BONE = .TRUE.\r\n      IF(KY.EQ.-1) SONE = .TRUE.\r\n      IF(KY.EQ.1) STWO = .TRUE.\r\n      IF(KT.EQ.1) IKT = .TRUE.\r\n      IF(DTX.LT.0.0) OXR = .TRUE.\r\n      IF(DTY.LT.0.0) OYR = .TRUE.\r\n      IF(OXR.AND.OYR) BOTH = .TRUE.\r\n      IF(.NOT.OXR.AND..NOT.OYR) NETHR = .FALSE.\r\n      DTOR2 =  DTOR/2.0\r\n      NSC = 3\r\n      IF(KY.EQ.1) NSC = 2\r\n      IF(KY.EQ.-1) NSC = 1\r\n      SIZE = 3\r\n      IF(OXR) SIZE = SIZE-1\r\n      IF(OYR) SIZE = SIZE-1\r\n      IF(OYR.AND. KY.GT.-1) GO TO 5\r\n      GO TO 7\r\n    5 TEMP = XYI(1)\r\n      SPEC = .TRUE.\r\n      NII = 2*NI\r\n      DO 6 I = 1,NII,2\r\n      IF(XYI(I) .NE. TEMP) SPEC = .FALSE.\r\n    6 CONTINUE\r\n    7 CONTINUE\r\n      NCA = SIZE*NI + NSC\r\n      IF(SPEC) NCA = NCA -1\r\n      NCA2= 2*NCA\r\n      NCB = (KD+1) * ND\r\n      NCC = SIZE*NI\r\nC\r\nC     CORE NEEDED\r\nC                A         G        INVERS\r\n      NEEDED =NCA*NCA+  NCB*NCC  +    3*NCA\r\nC                                   B\r\n      IF(IKT) NEEDED = NEEDED +  NCB*NCA\r\nC                                        C\r\n      IF(.NOT.IKT) NEEDED = NEEDED +  NCC*NCA\r\n      IF(NEEDED .GT.NCORE) CALL MESAGE(-8,0,NAME)\r\n      IS= NCORE -3*NCA-1\r\n      IG= 1\r\nC\r\nC     IF KT = 1  COMPUTE  B THEN A  THEN  C IN THE SPACE OF A\r\nC\r\nC     IF KT = 0 COMPUTE  C THEN A  THEN  B IN THE SPACE OF A\r\nC\r\n      IF(IKT) GO TO 100\r\nC\r\nC     FILL IN C MATRIX\r\nC\r\n      IC = NCB * NCC\r\n      MP = IC +1\r\n   10 DO 30 I = 1,NCC\r\n      DO 20 J = 1,NCA\r\n      IC = IC +1\r\n      G(IC) = 0.0\r\n      IF(I.EQ.J) G(IC) = 1.0\r\n   20 CONTINUE\r\n   30 CONTINUE\r\n      IF(IKT) GO TO 300\r\n      NC = NCC\r\n      IA =  IC\r\n      GO TO 200\r\nC\r\nC     B MATRIX\r\nC\r\n  100 IB =  NCB * NCC\r\n      MP = IB + 1\r\n  110 NJ = 2*ND\r\n      NII= 2*NI\r\n      DO 130 J=1,NJ,2\r\n      DO 120 I=1,NII,2\r\n      YM = XYD(J+1) - XYI(I+1)\r\n      AYM= ABS(YM)\r\n      AYMD = AYM*DTOR2\r\n      YP =(XYD(J+1) + XYI(I+1))\r\n      AYP= ABS(YP) * EY\r\n      AYPD = AYP*DTOR2\r\n      IB= IB +1\r\n      G(IB) =    AYM**3/12.0  -  XYD(J)*XYI(I)*AYMD\r\n     *           + AYP**3/12.0 - XYD(J)*XYI(I)*AYPD\r\n      IF(BNONE) GO TO 111\r\n      G(IB+NCA) = AYM*YM/4.0  + AYP*YP/4.0\r\n      IF(BONE) GO TO 111\r\n      G(IB+NCA2)=  XYI(I)*AYMD  + XYI(I)*AYPD\r\n  111 IF(BOTH) GO TO 120\r\n      IF(OXR) GO TO 113\r\n      IB=IB+1\r\n      G(IB) =    -AYM*YM/4.0  + AYP*YP/4.0\r\n      IF(BNONE) GO TO 112\r\n      G(IB+NCA) = -AYM/2.0 + AYP/2.0\r\n      IF(BONE) GO TO 112\r\n      G(IB+NCA2) = 0.0\r\n  112 IF(OYR) GO TO 120\r\n  113 IB = IB +1\r\n      G(IB)=   XYD(J)*AYMD   + XYD(J)*AYPD\r\n      IF(BNONE) GO TO 120\r\n      G(IB+NCA)  =  0.0\r\n      IF(BONE) GO TO 120\r\n      G(IB+NCA2) =  -AYMD   - AYPD\r\n  120 CONTINUE\r\n      IB = IB +1\r\n      IF(SONE) GO TO 123\r\n      G(IB) = 1.0\r\n      IF(BNONE) GO TO 121\r\n      G(IB+NCA) = 0.0\r\n      IF(BONE) GO TO 121\r\n      G(IB+NCA2) = 0.0\r\n  121 IF(STWO) GO TO 122\r\n      IB = IB +1\r\n      G(IB) = XYD(J+1)\r\n      IF(BNONE) GO TO 122\r\n      G(IB+NCA) = 1.0\r\n      IF(BONE) GO TO 122\r\n      G(IB+NCA2) = 0.0\r\n  122 IF(SPEC) GO TO 128\r\n      IB = IB +1\r\n      G(IB) =-XYD(J)\r\n      IF(BNONE) GO TO 128\r\n      G(IB+NCA) = 0.0\r\n      IF(BONE) GO TO 128\r\n      G(IB+NCA2) = 1.0\r\n      GO TO 128\r\n  123 G(IB) = XYD(J+1)\r\n      IF(BNONE) GO TO 128\r\n      G(IB+NCA) = 1.0\r\n      IF(BONE) GO TO 128\r\n      G(IB+NCA2) = 0.0\r\n  128 IB = IB + KD*NCA\r\n  130 CONTINUE\r\n      IF(.NOT.IKT) GO TO 400\r\n      IA = IB\r\n      NC = NCB\r\nC\r\nC     A MATRIX\r\nC\r\n  200 NII= 2*NI\r\n      K = IA\r\nC\r\nC     ZERO A\r\nC\r\n      II = K+1\r\n      IK = II + NCA*NCA\r\n      DO 210 I = II,IK\r\n  210 G(I) = 0.0\r\n      II = 0\r\n      DO 240 I = 1,NII,2\r\n      DO 230 J = I,NII,2\r\n      K = K+1\r\n      YP   =(XYI(I+1) + XYI(J+1))\r\n      AYP  = ABS(YP) * EY\r\n      AYPD = AYP*DTOR2\r\n      YM   = XYI(I+1) - XYI(J+1)\r\n      AYM  = ABS(YM)\r\n      AYMD = AYM*DTOR2\r\n      G(K)       = AYM**3/12.0 - XYI(I)*XYI(J)*AYMD\r\n     *              + AYP**3/12.0 - XYI(I)*XYI(J)*AYPD\r\n      IF(I.EQ.J) G(K) = G(K) + DZ\r\n      IF(BOTH) GO TO 230\r\n      IF(OXR) GO TO 212\r\n      G(K+NCA)  = AYM*YM/4.0  + AYP*YP/4.0\r\n      IF(OYR) GO TO 214\r\n      G(K+NCA2)  = XYI(I)*AYMD  + XYI(I)*AYPD\r\n      K = K+1\r\n      G(K)  =    -AYM*YM/4.0  + AYP*YP/4.0\r\n      G(K+NCA)  = -AYM/2.0 + AYP/2.0\r\n      IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTX\r\n      G(K+NCA2)  = 0.0\r\n      K = K+1\r\n      G(K)       = XYI(J)*AYMD  + XYI(J)*AYPD\r\n      G(K+NCA)   = 0.0\r\n      G(K+NCA2) = -AYMD  - AYPD\r\n      IF(I.EQ.J) G(K+NCA2) = G(K+NCA2) + DTY\r\n      GO TO 230\r\n  212 G(K+NCA) = XYI(I)*AYMD  + XYI(I)*AYPD\r\n      K = K+1\r\n      G(K) = XYI(J)*AYMD  + XYI(J)*AYPD\r\n      G(K+NCA) = -AYMD   - AYPD\r\n      IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTY\r\n      GO TO 230\r\n  214 K = K+1\r\n      G(K)  =    -AYM*YM/4.0  + AYP*YP/4.0\r\n      G(K+NCA)  = -AYM/2.0 + AYP/2.0\r\n      IF(I.EQ.J) G(K+NCA) = G(K+NCA) + DTX\r\n  230 CONTINUE\r\n      K = K+1\r\n      IF(SONE) GO TO 234\r\n      G(K) = 1.0\r\n      IF(BOTH) GO TO 231\r\n      G(K+NCA) = 0.0\r\n      IF(NETHR) GO TO 231\r\n      G(K+NCA2) = 0.0\r\n  231 IF(STWO) GO TO 232\r\n      K = K+1\r\n      G(K) = XYI(I+1)\r\n      IF(BOTH) GO TO 232\r\n      IF(OXR) G(K+NCA) = 0.0\r\n      IF(OYR) G(K+NCA)  = 1.0\r\n      IF(NETHR) GO TO 232\r\n      G(K+NCA) = 1.0\r\n      G(K+NCA2) = 0.0\r\n  232 IF(SPEC) GO TO 238\r\n      K = K+1\r\n      G(K) = -XYI(I)\r\n      IF(BOTH) GO TO 238\r\n      IF(OXR) G( K+NCA) = 1.0\r\n      IF(OYR) G( K+NCA) = 0.0\r\n      IF(NETHR) GO TO 238\r\n      G( K+NCA) = 0.0\r\n      G( K+NCA2) = 1.0\r\n      GO TO 238\r\n  234 G(K) = XYI(I+1)\r\n      IF(BOTH) GO TO 238\r\n      IF(OXR) G( K+NCA) = 0.0\r\n      IF(OYR) G( K+NCA) = 1.0\r\n      IF(NETHR) GO TO 238\r\n      G( K+NCA) = 1.0\r\n      G( K+NCA2) = 0.0\r\n  238 II = II+1\r\n      K = K + SIZE*II + (SIZE-1)*NCA\r\n  240 CONTINUE\r\nC\r\nC     LOWER TRIANGLE IF A STORED TRANSPOSE INTO UPPER TRIANGLE\r\nC\r\n      K = IA\r\n      DO 260 I = 1,NCA\r\n      DO 250 J = I,NCA\r\n      K = K+1\r\n      KK = K + (NCA-1)*(J-I)\r\n      G(KK) = G(K)\r\n  250 CONTINUE\r\n      K = K+I\r\n  260 CONTINUE\r\nC\r\nC     CALL  INVERSE   A-1 C  OR  A-1 B\r\nC\r\nC     REPLACE CALLS TO INVAER WITH CALLS TO INVERS.\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISNG = -1\r\n      CALL INVERS(NCA,G(IA+1),NCA,G(MP),NC,DET,ISNG,G(IS))\r\n      IF(ISNG.EQ.2) GO TO 1000\r\nC\r\nC     ADJUST INDEXES TO A AND A-1 RESULT\r\nC\r\n      IB = IA\r\n      ICB= IB+1\r\n      IF(.NOT.IKT) GO TO 110\r\n      IC = IA\r\n      ICC = IC +1\r\n      GO TO 10\r\n  300 CALL GMMATS(G(MP),NCB,NCA,0,G(ICC),NCC,NCA,1,G(IG))\r\n      GO TO 1000\r\n  400 CALL GMMATS(G(MP),NCC,NCA,0,G(ICB),NCB,NCA,1,G(IG))\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/machck.f",
    "content": "      SUBROUTINE MACHCK (*)\r\nC\r\nC     NEW MACHINE COMPATIBILITY CHECK\r\nC     THIS ROUTINE IS CALLED ONCE ONLY BY XSEM01 IF DEBUG FLAG IS ON\r\nC\r\nC     FOR LINK1 DEBUG PURPOSE, PRINT OUT GOES TO UNIT 6, NOT NOUT\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS  5/1991\r\nC\r\nC     NEXT LINE IS NEEDED FOR HP WORKSTATION. THE $ STARTS ON COLUMN 1\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      INTEGER         AR(5)\r\n      REAL            XX\r\n      COMPLEX         E,D,F\r\n      CHARACTER       L21(5)*1,L2*8,RV*8\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,UIMX*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SEM   / MASK\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,DUMM1(11),DATE(3),DUMM2(13),\r\n     1                HICORE,TIMEW,DUMM3(62),SPERLK\r\n      COMMON /MACHIN/ MACHX,IJHALF(2),LQRO,MCHNAM\r\n      COMMON /LHPWX / LOWPW,HIGHPW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (S,Z(1))\r\n      EQUIVALENCE     (L21(1),L2),(XX,IX)\r\n      DATA    I,J,K / 4HABCD, 4H1234, 4HA3CD  /,\r\n     1        D,E   / (1.0,-2.0), (-3.0,4.0)  /,\r\n     2        L1,BT / 4HWORD, 4HBYTE          /,\r\n     3        IA,IR / 4HA   , 4HR             /,\r\n     4        L2,RV / 'NATURAL ', 'REVERSED'  /,\r\n     5        AS,DS / 3H AS,  3HDES           /\r\n      DATA    UIMX  / '0*** USER INFORMATION MESSAGE' /\r\nC\r\n      NOGO = 0\r\n      IF (UIMX .EQ. UIM) GO TO 20\r\n      NOGO = 1\r\n      WRITE  (6,10)\r\n   10 FORMAT (/,' -LINK1 DEBUG- SEMDBD DATA BLOCK NOT LOADED CORRECTLY')\r\nC\r\nC     CALL BTSTRP TO INITIALIZE MACHINE CONSTANTS\r\nC\r\n   20 WRITE  (6,30)\r\n   30 FORMAT (/,' -LINK1 DEBUG- MACHCK CALLING BTSTRP NEXT')\r\n      CALL BTSTRP\r\nC\r\n      WRITE  (6,40)\r\n   40 FORMAT ( ' -LINK1 DEBUG-  CHARACTER, SHIFT AND COMPLEX CHECKS')\r\n      L  = KHRFN1(I,2,J,3)\r\n      IF (L .EQ. K) GO TO 60\r\n      NOGO = 2\r\n      WRITE  (6,50) I,J,K,L\r\n   50 FORMAT (' * KHRFN1 ERROR   I,J,K,L =',4(1X,A4))\r\n   60 I  = 128\r\n      J  = LSHIFT(I,2)\r\n      K  = RSHIFT(I,2)\r\n      IF (J.EQ.512 .AND. K.EQ.32) GO TO 80\r\n      NOGO = 3\r\n      WRITE  (6,70)\r\n   70 FORMAT (' * LSHIFT AND/OR RSHIFT ERROR')\r\nC\r\nC     JUMP TO 100 IF MACHINE DOES NOT HAVE ISHFT FUNCTION\r\nC\r\n   80 J  = ISHFT(I,+2)\r\n      K  = ISHFT(I,-2)\r\n      IF (J.EQ.512 .AND. K.EQ.32) GO TO 110\r\n      NOGO = 4\r\n      IF (J .NE. 512) WRITE (6,90)\r\n      IF (K .NE.  32) WRITE (6,100)\r\n   90 FORMAT (' * ISHFT(+) NOT SAME AS LSHIFT')\r\n  100 FORMAT (' * ISHFT(-) NOT SAME AS RSHIFT')\r\nC\r\nC     CHECK ISHFT IS ZERO-FILL\r\nC\r\n  110 I  = -1\r\n      J  = ISHFT(I,-1)\r\n      K  = ISHFT(I,+1)\r\n      IF (J.GT.0 .AND. MOD(K,2).EQ.0) GO TO 130\r\n      NOGO = 5\r\n      WRITE  (6,120)\r\n  120 FORMAT (' * SYSTEM ISHFT IS NOT ZERO-FILL')\r\nC\r\nC     CHECK K2B SUBROUTINE\r\nC\r\n  130 CALL K2B (L21,AR,5)\r\n      IF (AR(2).EQ.IA .AND. AR(5).EQ.IR) GO TO 150\r\n      NOGO = 6\r\n      WRITE  (6,140) AR(2),AR(5)\r\n  140 FORMAT (' * K2B ERROR   A,R ==',2A4)\r\nC\r\nC     COMPLEX NUMBER CHECK\r\nC\r\n  150 F  = D*E\r\n      DR = REAL (D)\r\n      DI = AIMAG(D)\r\n      ER = REAL (E)\r\n      EI = AIMAG(E)\r\n      A  = DR*ER - DI*EI\r\n      B  = DR*EI + DI*ER\r\n      IF (ABS(A-REAL(F)).LE..01 .AND. ABS(B-AIMAG(F)).LE..01) GO TO 170\r\n      NOGO = 7\r\n      WRITE  (6,160)\r\n  160 FORMAT (' * COMPLEX ERROR')\r\n  170 IF (MASK .EQ. 65535) GO TO 190\r\n      NOGO = 8\r\n      WRITE  (6,180)\r\n  180 FORMAT (' * LABEL COMMON /SEM/ ERROR')\r\n  190 IF (SPERLK.EQ.1 .OR. SPERLK.EQ.0) GO TO 210\r\n      NOGO = 9\r\n      WRITE  (6,200)\r\n  200 FORMAT (' * LABEL COMMON /SYSTEM/ ERROR')\r\n  210 IF (NOGO .EQ. 0) WRITE (6,220)\r\n  220 FORMAT ('  OK')\r\nC\r\nC     LOGICAL 'AND' AND 'OR' CHECK.\r\nC     SYSTEM MAY NAME THESE FUNCTIONS - 'IAND', 'IOR', OR 'AND', 'OR'\r\nC     IF UNSATISFIED EXTERNALS OCCUR, FIX THEM HERE AND IN MAPFNS.MDS\r\nC\r\n      WRITE  (6,230)\r\n  230 FORMAT ('  LOGICAL \"AND\" AND \"OR\" CHECK.  IF ERROR OCCURS, ',\r\n     1        'SEE MACHCK')\r\n      K  = IAND(I,J)\r\n      K  =  IOR(I,J)\r\n      WRITE (6,220)\r\nC\r\nC     CHECK DATE AND TIME, ALREADY SAVED IN /SYSTEM/ BY NASTRN OR NAST01\r\nC\r\nC     TIME IS SYSTEM CPU TIME, COMMONLY IN 1/60 SECONDS ACCURCY\r\nC     IF UNSATISFIED EXTERNALS OCCUR, FIX THEM IN TDATE, KLOCK, WALTIM,\r\nC     CPUTIM, AND/OR SECNDS(IN MAPFNS) SUBROUTINES\r\nC\r\n      WRITE  (6,240)\r\n  240 FORMAT ('  DATE AND TIME CHECKS.  IF ERROR OCCURS, SEE MACHCK')\r\n      I  = TIMEW/3600\r\n      J  = (TIMEW-I*3600)/60\r\n      K  = TIMEW - I*3600 - J*60\r\n      WRITE  (6,250) DATE,I,J,K\r\n  250 FORMAT (' -MONTH/DAY/YEAR = ',I2,1H/,I2,1H/,I2, 3X,\r\n     1        ' -HOUR:MIN:SEC = ',I2,':',I2,':',I2)\r\n      IF (DATE(1).GT.12 .OR. DATE(3).GT.1000) WRITE (6,260)\r\n  260 FORMAT (' * SYSTEM DATE SHOULD BE IN mm,dd,yy',\r\n     1       ' ORDER  <===')\r\nC\r\n      R  = MOD(LQRO,100)/10\r\n      IF (R .GT. 1) L1 = BT\r\n      IF (MOD(LQRO,10) .EQ. 1) L2 = RV\r\n      WRITE  (6,270) MACHX,MCHNAM,L1,L2,SYSBUF,LQRO\r\n  270 FORMAT (/,' -MACHINE =',I3,2H, ,A4,', RECL BY ',A4,\r\n     1       'S, BCD WORD IN ',A8,' ORDER,', /3X,'SYSBUF =',I7,\r\n     2       ' WORDS,  LQRO =',I7)\r\nC\r\nC     OPEN A DIRECT FILE, FORTRAN UNIT 41, AND TEST FOR RECORD LENGTH\r\nC\r\n      I  = SYSBUF - 3\r\n      IF (MACHX.EQ.3 .OR. MACHX.GE.5) I = SYSBUF - 4\r\n      I  = I*R\r\n      OPEN  (UNIT=41,ACCESS='DIRECT',RECL=I,STATUS='SCRATCH',ERR=310)\r\n      WRITE (41,REC=1,ERR=280) (Z(J),J=1,I)\r\n      GO TO 300\r\n  280 IF (R .GT. 1) GO TO 300\r\n      NOGO = 10\r\n      WRITE  (6,290) R\r\n  290 FORMAT (' * FORTRAN I/O RECORD LENGTH IN BTSTRP MAY BE IN ERROR.',\r\n     1       5X,'R =',I4)\r\n  300 CLOSE  (UNIT=41)\r\nC\r\nC     CHECK OPEN CORE IN MEMORY                          ** NEW, NEXT 28\r\nC\r\n  310 J  = 11\r\n      I  = LOCFX(Z(J))\r\n      J  = LOCFX(Z(1))\r\n      K  = AS\r\n      IF (I .LT. J) K = DS\r\n      WRITE  (6,320) K,J,I\r\n  320 FORMAT (' * SYSTEM MEMORY IN ',A3,'CENDING ORDER',I15,'==>',I12)\r\nC\r\nC     CHECK WHETHER NUMTYP.MIS IS SET UP FOR THIS CURRENT MACHINE\r\nC\r\n      K  = 123\r\n      IF (NUMTYP(K) .NE. 1) NOGO = 11\r\nC\r\nC     CHECK /SOFPTR/ LOCATION WITH RESPECT TO /ZZZZZZ/ LOCATION HERE IF\r\nC     AND ONLY IF CURRENT NASTRAN VERSION STILL USES /SOFPTR/, AND\r\nC     SET K = 1\r\nC                  K J          I           I          J K\r\nC               ---+-+----------+   OR   ---+----------+-+\r\nC                    ASCENDING                 DECENDING\r\nC\r\n      K  = 0\r\n      IF (K .NE. 1) GO TO 340\r\nC\r\n      K  = LOCFX(S)\r\n      IF (I.GT.J .AND. K.GT.J) WRITE (6,330)\r\n      IF (I.LT.J .AND. K.LT.J) WRITE (6,330)\r\n  330 FORMAT (' * COMMONS /SOFPTR/ AND /ZZZZZZ/ POSITIONS SHOULD BE ',\r\n     1        'REVERSED IN OPNCOR.MDS')\r\nC\r\nC     CHECK S.P. NUMERIC RANGE\r\nC\r\n  340 IF (10.0**(LOWPW+1).GE.0.0 .AND. 10.0**(HIGHPW-1).GT.10.0**36)\r\n     1    GO TO 360\r\n      NOGO = 12\r\n      WRITE  (6,350) LOWPW,HIGHPW\r\n  350 FORMAT (' * MACHINE NUMERIC RANGE, 10.**',I3,' THRU 10.**',I2,\r\n     1        ' SET BY BTSTRP, EXCEEDS MACHINE LIMIT.')\r\nC\r\nC     CHECK FORTRAN MIXED FORMAT WRITE USED IN SUBOURINTE OFPPNT OF THE\r\nC     OFP MODULE.\r\nC     DEC/ULTRIX FORTRAN 3.0 (1992) FAILS ON THIS TEST.\r\nC\r\n  360 IX = 123456\r\n      WRITE  (6,370,ERR=380) XX\r\n  370 FORMAT (/,I10)\r\n  380 WRITE  (6,390)\r\n  390 FORMAT (' IF 123456 IS NOT PRINTED ON ABOVE LINE, MIXED FORMAT ',\r\n     1        'PRINT OUT IS NOT', /1X,\r\n     2        'ALLOWED, AND NASTRAN OFP MODULE MAY NOT WORK PROPERLY')\r\nC\r\nC     CHECK OPEN CORE\r\nC\r\n      J  = 5000\r\n      Z(J) = 1\r\n      Z(HICORE) = 2\r\nC\r\n      IF (NOGO .NE. 0) GO TO 410\r\n      WRITE  (6,400) UIM\r\n  400 FORMAT (A29,', MACHINE COMPATIBILITY CHECK ROUTINE FINDS NO ',\r\n     1        /5X,'SIGNIFICANT SYSTEM ERROR')\r\n      RETURN 1\r\nC\r\n  410 WRITE  (6,420) UIM,NOGO\r\n  420 FORMAT (A29,' * ERROR IN MACHCK.  NOGO =',I3)\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/magbdy.f",
    "content": "      SUBROUTINE MAGBDY\r\nC\r\nC     THIS ROUTINE PICKS UP THE GRIDS ON THE AIR/IRON INTERFACES\r\nC     FROM A PERMBDY CARD,CONVERTS EXTERNAL TO INTERNAL SILS, AND\r\nC     STORES RESULTS ON PERMBD WHICH IS READ IN SSG1. SSG1 WILL NEED TO\r\nC     COMPUTE MAGNETIC LOADS ONLY AT THESE POINTS.\r\nC\r\nC     MAGBDY   GEOM1,HEQEXIN/PERMBD/V,N,IPG $\r\nC\r\n      INTEGER         BUF1,FILE,GEOM1,EQEXIN,PERMBD,SYSBUF,PERMBY(2)\r\n      DIMENSION       IZ(1),NAM(2),MCB(7)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /BLANK / IPG\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    NAM   / 4HMAGB,4HDY  /\r\n      DATA    GEOM1 , EQEXIN,PERMBD/101,102,201/\r\n      DATA    PERMBY/ 4201,42 /\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF\r\n      LCORE = BUF1 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\nC     SEE IF A PERMBDY CARD EXISTS\r\nC\r\n      IPG  = -1\r\n      FILE = GEOM1\r\n      CALL PRELOC (*1001,Z(BUF1),GEOM1)\r\n      CALL LOCATE (*10,Z(BUF1),PERMBY,IDX)\r\n      IPG  = 1\r\n      GO TO 20\r\nC\r\nC     NO PERMBDY CARD - RETURN\r\nC\r\n   10 CALL CLOSE (GEOM1,1)\r\n      RETURN\r\nC\r\nC     READ PERMBDY INTO CORE\r\nC\r\n   20 CALL READ (*1002,*30,GEOM1,Z,LCORE,0,NPTS)\r\n      GO TO 1008\r\n   30 CALL CLOSE (GEOM1,1)\r\nC\r\nC     READ IN 1ST RECORD OF EQEXIN\r\nC\r\n      LCORE = LCORE - NPTS\r\n      IEQEX = NPTS\r\n      CALL GOPEN (EQEXIN,Z(BUF1),0)\r\n      FILE  = EQEXIN\r\n      CALL READ (*1002,*40,EQEXIN,Z(IEQEX+1),LCORE,0,NEQ)\r\n      GO TO 1008\r\n   40 CALL CLOSE (EQEXIN,1)\r\n      NGRIDS = NEQ/2\r\n      LCORE  = LCORE - NEQ\r\nC\r\nC     GET THE INTERNAL NUMBER (=SIL NUMBER FOR HEAT TRAMSFER)FOR EACH\r\nC     POINT ON PERMBDY AND STORE IT BACK ONTO EXTERNAL NUMBER,SINCE THE\r\nC     EXTERNAL IS NO LONGER NEEDED\r\nC\r\n      DO 50 I = 1,NPTS\r\n      CALL BISLOC (*60,IZ(I),IZ(IEQEX+1),2,NGRIDS,JLOC)\r\n      IZ(I) = IZ(IEQEX+JLOC+1)\r\n   50 CONTINUE\r\n      GO TO 70\r\nC\r\n   60 WRITE  (IOUT,65) UFM,IZ(I)\r\n   65 FORMAT (A23,', GRID',I9,' ON PERMBDY CARD DOES NOT EXIST')\r\n      CALL MESAGE(-61,0,0)\r\nC\r\nC     WRITE THESE INTERNAL ID-S ONTO PERMBD\r\nC\r\n   70 CALL GOPEN (PERMBD,Z(BUF1),1)\r\n      CALL WRITE (PERMBD,IZ(1),NPTS,1)\r\n      CALL CLOSE (PERMBD,1)\r\n      MCB(1) = PERMBD\r\n      MCB(2) = NPTS\r\n      DO 80 I = 3,7\r\n   80 MCB(I) = 0\r\n      CALL WRTTRL(MCB)\r\nC\r\n      RETURN\r\nC\r\n 1001 N =-1\r\n      GO TO 1010\r\n 1002 N =-2\r\n      GO TO 1010\r\n 1008 N =-8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/magpha.f",
    "content": "      SUBROUTINE MAGPHA( A, B )\r\nC*****\r\nC THIS SUBROUTINE FORMS THE MAGNITUDE OF (A,B) AND STORES IT IN A...\r\nC THE PHASE OF (X=A, Y=B) IS THEN FORMED AND THE RESULT STORED IN B...\r\nC*****\r\n      COMMON /CONDAS/ CONSTS(5)\r\nC\r\n      EQUIVALENCE ( CONSTS(3) , RADEG  )\r\nC\r\n      VALUE = SQRT( A**2 + B**2 )\r\n      IF( VALUE ) 10,20,10\r\n   10 PHASE = ATAN2( B, A ) * RADEG\r\n      GO TO 30\r\n   20 PHASE = 0.0E0\r\n      GO TO 40\r\n   30 IF( PHASE .LT. (-0.00005E0) ) PHASE = PHASE + 360.0E0\r\n   40 A = VALUE\r\n      B = PHASE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/makmcb.f",
    "content": "      SUBROUTINE MAKMCB (MCB,IFILE,IROW,IF,IT)\r\nC\r\n      INTEGER MCB(7)\r\nC\r\n      MCB(1) = IFILE\r\n      MCB(2) = 0\r\n      MCB(3) = IROW\r\n      MCB(4) = IF\r\n      MCB(5) = IT\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\nC\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mapset.f",
    "content": "      SUBROUTINE MAPSET(X1,Y1,X2,Y2,KI1,KJ1,KI2,KJ2,L)\r\nC\r\nC     POINT 1 IS LOWER LEFT CORNER OF FRAME\r\nC     POINT 2 IS UPPER RIGHT CORNER OF FRAME\r\nC     I,J ARE IN PLOTTER UNITS\r\nC     X,Y ARE IN PHYSICAL UNITS\r\nC     L IS OUTPUT FLAG, 1=I,J ARE INTEGER, 2=I,J ARE REAL\r\nC\r\n      EQUIVALENCE (I1,ZI1),(J1,ZJ1),(I2,ZI2),(J2,ZJ2)\r\n      EQUIVALENCE (I,ZI),(J,ZJ)\r\nC\r\n      I1=KI1\r\n      J1=KJ1\r\n      I2=KI2\r\n      J2=KJ2\r\n      LL=L\r\nC\r\n      IF(L.EQ.2) GO TO 100\r\n      A=FLOAT(I2-I1)/(X2-X1)\r\n      B=FLOAT(I1)-A*X1\r\n      C=FLOAT(J2-J1)/(Y2-Y1)\r\n      D=FLOAT(J1)-C*Y1\r\n      RETURN\r\n  100 A=(ZI2-ZI1)/(X2-X1)\r\n      B=ZI1-A*X1\r\n      C=(ZJ2-ZJ1)/(Y2-Y1)\r\n      D=ZJ1-C*Y1\r\n      RETURN\r\nC\r\nC\r\nC***********************************************************************\r\nC\r\n      ENTRY MAP(X,Y,KI,KJ)\r\n      IF(LL.EQ.2) GO TO 200\r\n      I=A*X+B+0.5\r\n      J=C*Y+D+0.5\r\n      GO TO 300\r\n  200 ZI=A*X+B\r\n      ZJ=C*Y+D\r\n  300 KI=I\r\n      KJ=J\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/maskn.f",
    "content": "      FUNCTION MASKN (L2,L1)\r\nC\r\nC     TO BUILD AN INTEGER MASK FOR BIT MANIPULATION\r\nC                                                                   0 OR\r\nC     64  60        48     36   32         <--- BIT COUNT ---          1\r\nC      +---+---------+------+----+-------------------------------------+\r\nC       ...   ....     ....   ...  ....00000011111111111111111111000...\r\nC      +---+---------+------+----+-------------------------------------+\r\nC                                            /                  /\r\nC                                            L2                L1\r\nC\r\nC      BIT COUNTS FROM RIHGT (L1) TO LEFT (L2).  L1=0 IS SAME AS L1=1\r\nC\r\nC      E.G.      L2    L1      MASK PATTERN, WITH LEADING ZERO BITS\r\nC               ----  ----  ------------------------------------------\r\nC                12     0    A 12 BIT MASK, RIGHT ADJUSTED\r\nC                24     8    A 24 BIT MASK, RIGHT ADJUSTED, WITH 8\r\nC                            TRAILING ZERO BITS.\r\nC\r\nC      THIS ROUTINE IS SUITABLE FOR MACHINE WORD OF ANY BIT SIZE\r\nC      BIT PATTERN CAN ALSO INCLUDE SIGN BIT.\r\nC      SYSTEM MASK ROUINTE, IF IT EXISTS, IS NOT USED.\r\nC\r\nC      WRITTEN BY G.CHAN/UNISYS  10/1992\r\nC\r\n       EXTERNAL        RSHIFT,LSHIFT\r\n       INTEGER         RSHIFT\r\nC\r\n       IF (L2 .LT. L1) CALL ERRTRC ('MASKN   ',L2-L1)\r\n       MASKN = LSHIFT(1,L2) - 1\r\n       IF (L1 .GT. 1) MASKN = LSHIFT(RSHIFT(MASKN,L1-1),L1-1)\r\n       RETURN\r\n       END\r\n"
  },
  {
    "path": "mis/masstq.f",
    "content": "      SUBROUTINE MASSTQ(NARG)\r\nC     ******************************************************************\r\nC     E C P T    L I S T I N G S\r\nC     **************************\r\nC         MTWIST              MQDMEM                        MTRMEM\r\nC         MSHEAR    MQUAD1    MQUAD2    MTRIA1    MTRBSC    MTRIA2\r\nC **********************************************************************\r\nC ECPT( 1)ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID  ELEM. ID\r\nC ECPT( 2)GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A  GR.PT. A\r\nC ECPT( 3)GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B  GR.PT. B\r\nC ECPT( 4)GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C  GR.PT. C\r\nC ECPT( 5)GR.PT. D  GR.PT. D  GR.PT. D  THETA     THETA     THETA\r\nC ECPT( 6)MAT ID    THETA     THETA     MAT ID 1  MAT ID 1  MAT ID\r\nC ECPT( 7)T         MAT ID 1  MAT ID    T1        I         T\r\nC ECPT( 8)N S MASS  T1        T         MAT ID 2  MAT ID 2  NS MASS\r\nC ECPT( 9)CSID 1    MAT ID 2  N S MASS  I         T2        CSID 1\r\nC ECPT(10)X1        I         CSID 1    MAT ID 3  N S MASS  X1\r\nC ECPT(11)Y1        MAT ID 3  X1        T2        Z1        Y1\r\nC ECPT(12)Z1        T2        Y1        N S MASS  Z2        Z1\r\nC ECPT(13)CSID 2    N S MASS  Z1        Z1        CSID 1    CSID 2\r\nC ECPT(14)X2        Z1        CSID 2    Z2        X1        X2\r\nC ECPT(15)Y2        Z2        X2        CSID 1    Y1        Y2\r\nC ECPT(16)Z2        CSID 1    Y2        X1        Z1        Z2\r\nC ECPT(17)CSID 3    X1        Z2        Y1        CSID 2    CSID 3\r\nC ECPT(18)X3        Y1        CSID 3    Z1        X2        X3\r\nC ECPT(19)Y3        Z1        X3        CSID 2    Y2        Y3\r\nC ECPT(20)Z3        CSID 2    Y3        X2        Z2        Z3\r\nC ECPT(21)CSID 4    X2        Z3        Y2        CSID 3    TEMP\r\nC ECPT(22)X4        Y2        CSID 4    Z2        X3\r\nC ECPT(23)Y4        Z2        X4        CSID 3    Y3\r\nC ECPT(24)Z4        CSID 3    Y4        X3        Z3\r\nC ECPT(25)TEMP      X3        Z4        Y3        TEMP\r\nC ECPT(26)          Y3        TEMP      Z3\r\nC ECPT(27)          Z3                  TEMP\r\nC ECPT(28)          CSID 4\r\nC ECPT(29)          X4\r\nC ECPT(30)          Y4\r\nC ECPT(31)          Z4\r\nC ECPT(32)          TEMP\r\nC **********************************************************************\r\nC\r\n      DOUBLE PRECISION  MASS\r\n      DIMENSION NECPT (7)\r\n      LOGICAL HEAT\r\n      COMMON /SMA2HT/ HEAT\r\n      COMMON /HMTOUT/ CP\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/ RHO\r\nC     COMMON /MATOUT/RHO\r\n      COMMON /SMA2ET/ ECPT(100)\r\n      COMMON /SMA2IO/ DUM4(10),IFMGG,DUMXX(1), IFBGG\r\n      COMMON /SMA2CL/  IOPTB, BGGIND, NPVT\r\n      COMMON /SMA2DP/    MASS(36)      ,V1(3)\r\n     1                  ,V1XV2(3)      ,V2(3)\r\n     2                  ,TERM\r\n     3                  ,T             ,FMU\r\n     4                  ,NPT1          ,NPT3\r\n     5                  ,NPT2          ,NPT4\r\n     6                  ,ISUB1         ,ISUB3\r\n     7                  ,ISUB2         ,NCSID\r\n     8                  ,ICHEK         ,NTYPE\r\n     9                  ,NPIVOT        ,AREA\r\n     T                  ,DUMMY(504)\r\n      EQUIVALENCE ( NECPT(1) , ECPT(1) )\r\n      EQUIVALENCE (IFLAG , ECPT(8) )\r\n      DATA PI23/2.0943952/\r\nC\r\nC     THIS ROUTINE COMPUTES A MASS MATRIX OF THE FOLLOWING FORM.\r\nC\r\nC                     TERM 0   0   0   0   0\r\nC                      0  TERM 0   0   0   0\r\nC                      0   0  TERM 0   0   0\r\nC      MASS MATRIX =   0   0   0   0   0   0\r\nC                      0   0   0   0   0   0\r\nC                      0   0   0   0   0   0\r\nC\r\nC                   *******************\r\nC                   NTYPE = 1  -MQDMEM-\r\nC                   NTYPE = 1  -MQUAD2-\r\nC                   NTYPE = 2  -MQUAD1-\r\nC                   NTYPE = 3  -MTRBSC-\r\nC                   NTYPE = 3  -MTRPLT-\r\nC                   NTYPE = 4  -MTRMEM-\r\nC                   NTYPE = 4  -MTRIA2-\r\nC                   NTYPE = 5  -MTRIA1-\r\nC                   NTYPE = 6  -MSHEAR-\r\nC                   NTYPE = 6  -MTWIST-\r\nC                   NTYPE = 7  -MQDPLT-\r\nC                   *******************\r\nC\r\n      NTYPE = NARG\r\nC\r\nC            -MQDMEM-      -MTRPLT-MTRMEM-      -MTWIST-\r\nC            -MQUAD2-MQUAD1-MTRBSC-MTRIA2-MTRIA1-MSHEAR-MQDPLT-\r\n      GO TO(10,20,30,40,50,60,70),NTYPE\r\nC\r\n   10 NCSID = 10\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(9)\r\n      GO TO 80\r\nC\r\n   20 NCSID = 16\r\n      MATID = NECPT(7)\r\n      T     = ECPT(8)\r\n      FMU   = ECPT(13)\r\n      GO TO 80\r\nC\r\n   30 NCSID =  13\r\n      MATID = NECPT( 6)\r\n      T     =  0.0E0\r\n      FMU   =  ECPT(10)\r\n      GO TO 80\r\nC\r\n   40 NCSID = 9\r\n      MATID = NECPT(6)\r\n      T     = ECPT(7)\r\n      FMU   = ECPT(8)\r\n      GO TO 80\r\nC\r\n   50 NCSID = 15\r\n      MATID = NECPT( 6)\r\n      T     =  ECPT( 7)\r\n      FMU   =  ECPT(12)\r\n      GO TO 80\r\n   60 NCSID = 9\r\n      MATID = NECPT(6)\r\n      T     =  ECPT(7)\r\n      FMU   =  ECPT(8)\r\n      GO TO 80\r\n   70 NCSID = 14\r\n      MATID = NECPT(7)\r\n      T     = 0.0E0\r\n      FMU   = ECPT(11)\r\nC\r\nC  30 COMPUTE PIVOT TRIANGLE AREA\r\nC\r\nC     FIRST SET UP THE POINTERS TO THE CSID OF THE 3 POINTS FROM THE\r\nC     BASE CSID\r\nC\r\n   80 NPT1 = 0\r\n      NPT2 = 4\r\n      NPT3 = 8\r\n      IF(NTYPE.GE.3  .AND.  NTYPE.LE.5) GO TO 140\r\n      ICHEK = 1\r\nC     SELECT 3 POINTS FOR THE PIVOT TRIANGLE OF A QUADRILATERAL\r\nC     FIND PIVOT NUMBER FIRST\r\n      DO 90 I=1,4\r\n      IF( NPVT .NE. NECPT(I + 1) ) GO TO 90\r\n      NPIVOT = I\r\n      GO TO 100\r\n   90 CONTINUE\r\nC\r\nC     ERROR IF FALL THRU ABOVE LOOP\r\nC\r\n      CALL MESAGE(-30,34,ECPT(1))\r\n      RETURN\r\nC\r\nC\r\n  100 IF(NPIVOT - 2) 110,140,120\r\n  110 NPT3 = 12\r\n      GO TO 140\r\n  120 IF(NPIVOT .EQ. 3) GO TO 130\r\n      NPT2 = 12\r\n      GO TO 140\r\n  130 NPT1 = 12\r\nC\r\nC     ABOVE LOGIC SETS THE 3 POINTS FOR THE PIVOT TRIANGLE OF A QUAD.\r\nC\r\n  140 DO 150 I=1,3\r\n      ISUB1 = NCSID + NPT1 + I\r\n      ISUB2 = NCSID + NPT2 + I\r\n      ISUB3 = NCSID + NPT3 + I\r\n      V1(I) = ECPT(ISUB3) - ECPT(ISUB1)\r\n  150 V2(I) = ECPT(ISUB3) - ECPT(ISUB2)\r\nC\r\nC     COMPUTE AREA OF QUAD OR TRI USING V1 AND V2\r\n      AREA = 0.0E0\r\nC\r\n  160 V1XV2(1) = V1(2) * V2(3)  -  V1(3) * V2(2)\r\n      V1XV2(2) = V1(3) * V2(1)  -  V1(1) * V2(3)\r\n      V1XV2(3) = V1(1) * V2(2)  -  V1(2) * V2(1)\r\nC\r\n      AREA = AREA + SQRT(V1XV2(1)**2 + V1XV2(2)**2 + V1XV2(3)**2)/2.0E0\r\nC\r\n      IF( NTYPE .GT. 2  .AND.  NTYPE .LT. 6 ) GO TO 190\r\n      IF( ICHEK  ) 170,190,170\r\nC\r\nC     COMPUTE AREA OF WHOLE QUAD, FIRST SET UP V1 + V2 THEN TRA TO 600.\r\nC\r\n  170 IF ( NARG .NE. 1 .OR. IFLAG .NE. 1 ) GO TO 175\r\n      ISUB1 = NCSID + NPT1 + 1\r\n      ISUB2 = NCSID + NPT2 + 1\r\n      ISUB3 = NCSID + NPT3 + 1\r\n      T = PI23 * ( ECPT(ISUB1) + ECPT(ISUB2) + ECPT(ISUB3) )\r\n  175 NPT1 = NCSID\r\n      NPT2 = NCSID + 4\r\n      NPT3 = NCSID + 8\r\n      NPT4 = NCSID +12\r\n      DO 180 I=1,3\r\n      NPT1 = NPT1 + 1\r\n      NPT2 = NPT2 + 1\r\n      NPT3 = NPT3 + 1\r\n      NPT4 = NPT4 + 1\r\n      V1(I) = ECPT(NPT1) - ECPT(NPT3)\r\n  180 V2(I) = ECPT(NPT2) - ECPT(NPT4)\r\n      ICHEK = 0\r\nC\r\n      GO TO 160\r\nC     ******************************************************************\r\nC     FINAL COMPUTATION OF TERM AND SHIP OUT OF MATRIX.\r\nC\r\n  190 DO 200 I=1,36\r\n  200 MASS(I) = 0.0D0\r\n      IF( T ) 210,220,210\r\nC     RHO NOT NEEDED IF T = 0\r\nC\r\n  210 INFLAG = 4\r\n      IF( HEAT ) GO TO 230\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC\r\n  220 TERM = ( FMU + RHO * T ) * AREA / 3.0E0\r\n      IF( NTYPE .LT. 3   .OR.   NTYPE .GT. 5 ) TERM = TERM/2.0E0\r\n      MASS( 1) = TERM\r\n      MASS( 8) = TERM\r\n      MASS(15) = TERM\r\nC\r\n      CALL SMA2B( MASS(1), NPVT, -1, IFMGG, 0.0D0 )\r\nC\r\n      RETURN\r\nC*****\r\nC  HEAT FORMULATION.\r\nC*****\r\n  230 CALL HMAT( ECPT )\r\n      MASS(1) = (CP*T)*AREA/3.0\r\n      IF( NTYPE.LT.3  .OR.  NTYPE.GT.5 ) MASS(1) = MASS(1) / 2.0D0\r\n      CALL SMA2B( MASS(1), NPVT, NPVT, IFBGG, 0.0D0 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matck.f",
    "content": "      SUBROUTINE MATCK (MFILE,PFILE,A,Z)\r\nC\r\nC     THIS ROUTINE CHECKS THE UNIQUENESS OF MATERIAL ID'S FOR\r\nC          1. MAT1 (1)     8. MATT1  (MB)  15. MATS1  (MC)\r\nC          2. MAT2         9. MATT2        16. MATPZ1 (MD)\r\nC          3. MAT3        10. MATT3        17. MTTPZ1\r\nC          4. MAT4        11. MATT4        18. MATPZ2\r\nC          5. MAT5        12. MATT5        19. MTTPZ2 (ME)\r\nC          6. MAT6        13. MATT6        20. DUMC\r\nC          7. MAT8 (MA)   14. DUMB         21. DUMD  (NMAT)\r\nC     AND THE MATERIAL ID SPECIFIED ON THE PROPERTY CARDS.\r\nC\r\nC     THIS ROUTINE SHOULD BE CALLED ONLY ONCE BY IFP.\r\nC     THIS ROUTINE DOES NOT OPEN OR CLOSE MATERIAL FILE (MFILE) OR\r\nC     ELEMENT PROPERTY FILE (PFILE)\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS,  OCT. 1982\r\nC\r\n      LOGICAL         ABORT\r\n      INTEGER         PFILE,    IH(3),    NAME(2),  Z(1),     MATI(2,22)\r\n     1,               GROUP,    A(1),     EPTI(2,40),         MATJ(2,22)\r\n      COMMON /SYSTEM/ N1,       NOUT,     ABORT,    SKIP(42), KDUM(9)\r\n      DATA    MATJ  / 103,-12,  203,-17,  1403,-16, 2103,-3,  2203,-8,\r\n     1               2503,-31,  603,-18,\r\n     2                703,-11,  803,-16,  1503,-16, 2303,-2,  2403,-7,\r\n     3               2603,-31,  -11,-00,\r\n     4                503,-11, 1603,-07,  1803,-07, 1703,-44, 1903,-44,\r\n     5                -11,-00,  -11,-00,   -11,-00/\r\n      DATA    EPTI  /  52,191, 2502,071,  7002,071, 0502,041, 2202,041,\r\n     1               5302,041, 0602,082,  0702,103, 0802,041, 0902,061,\r\n     2               1002,041, 2102,041,  7052,171, 1102,082, 1202,103,\r\n     3               1302,041, 7032,171,  1402,041, 1502,082, 1602,051,\r\n     4               1702,041, 2002,031,  0152,243, 5102,241, 5802,174,\r\n     5               5502,-49, 5602,-06,  5702,-06, 6102,001, 6202,001,\r\n     6               6302,001, 6402,001,  6502,001, 6602,001, 6702,001,\r\n     7               6802,001, 6902,001,     0,  0,    0,  0,    0,  0/\r\n      DATA    NMAT  / 21/,      GROUP/ 7/\r\n      DATA    NEPT  / 37/\r\n      DATA    NAME  / 4HMATC,   4HK     /\r\nC\r\nC     FIRST WORDS ON THE EPTI TABLE ARE PROPERTY CARDS THAT SPECIFY\r\nC     MATERIAL.  THE FIRST 2 DIGITS OF THE SECOND WORD INDICATE THE\r\nC     NUMBER OF WORDS IN EACH PROPERTY INPUT CARD. AND THE 3RD DIGIT\r\nC     INDICATES NUMBER OF MATERIAL ID'S SPECIFIED.\r\nC     IF THIS SECOND WORD IS NEGATIVE, IT MEANS THE PROPERTY CARD IS\r\nC     OPEN-ENDED. THE 3RD DIGIT INDICATES WHERE MID1 BEGINS, AND\r\nC     REPEATING (FOR MID2, MID3,...) EVERY N WORDS WHERE N IS THE\r\nC     ABSOLUTE VALUE OF THE FIRST 2 DIGITS. (NO REPEAT OF N=0)\r\nC\r\nC     ARRAY A CONTAINS A LIST OF ACTIVE PROPERTY IDS - SET UP BY PIDCK\r\nC\r\n      IF (ABORT) GO TO 220\r\n      NOMAT = Z(1)\r\n      IF (NOMAT .EQ. 0) GO TO 145\r\nC\r\nC     UPDATE EPTI ARRAY IF DUMMY ELEMENT IS PRESENT\r\nC\r\n      DO 10 J = 1,9\r\n      IF (KDUM(J) .EQ. 0) GO TO 10\r\n      K = MOD(KDUM(J),1000)/10\r\n      EPTI(2,28+J) = K*10 + 1\r\n 10   CONTINUE\r\nC\r\nC     SET UP POINTERS FOR THE MATI TABLE\r\nC\r\n      MA = GROUP\r\n      MB = MA + 1\r\n      MC = MB + GROUP\r\n      MD = MC + 1\r\n      ME = MC + 4\r\nC\r\nC     READ MATERIAL ID INTO Z SPACE, AND SAVE APPROP. COUNT IN MATI(2,K)\r\nC\r\n      DO 15 J = 1,NMAT\r\n      MATI(1,J) = MATJ(1,J)\r\n 15   MATI(2,J) = MATJ(2,J)\r\n      J = 1\r\n 20   CALL FWDREC (*50,MFILE)\r\n 25   CALL READ (*50,*50,MFILE,IH(1),3,0,KK)\r\n      DO 30 K = 1,NMAT\r\n      IF (IH(1) .EQ. MATI(1,K)) GO TO 35\r\n 30   CONTINUE\r\n      GO TO 20\r\n 35   NWDS =-MATI(2,K)\r\n      IF (NWDS .LT. 0) CALL MESAGE (-37,0,NAME)\r\n      MATI(2,K) = 0\r\n 40   CALL READ (*50,*25,MFILE,Z(J),NWDS,0,KK)\r\n      J = J + 1\r\n      MATI(2,K) = MATI(2,K) + 1\r\n      GO TO 40\r\nC\r\nC     INSTALL INITIAL COUNTERS IN MATI(1,K)\r\nC\r\n 50   JX = J\r\n      IF (JX .LE. 1) GO TO 140\r\n      MATI(1,1) = 0\r\n      DO 60 J = 1,NMAT\r\n      K = J + 1\r\n      IF (MATI(2,J) .LT. 0) MATI(2,J) = 0\r\n 60   MATI(1,K) = MATI(1,J) + MATI(2,J)\r\nC\r\nC     NOTE - ORIGINAL DATA IN MATI TABLE IS NOW DESTROYED\r\nC\r\nC     CHECK MATERIAL ID UNIQUENESS AMONG MAT1, MAT2,..., MAT8\r\nC     (MAT4 AND MAT5 ARE UNIQUE ONLY AMONG THEMSELVES)\r\nC\r\n      J = 0\r\n      DO 70 K = 1,MA\r\n      IF (MATI(2,K) .GT. 0) J = J + 1\r\n 70   CONTINUE\r\n      IF (J .LE. 1) GO TO 90\r\n      KK = MATI(1,MB)\r\n      K1 = KK - 1\r\n      K4 = MATI(1,4)\r\n      DO 80 K = 1,K1\r\n      J  = Z(K)\r\n      IB = K + 1\r\n      DO 75 I = IB,K1\r\n      IF (J .NE. Z(I)) GO TO 75\r\n      IF (K.LT.K4 .AND. I.GE.K4) GO TO 75\r\n      CALL MESAGE (30,213,J)\r\n      ABORT =.TRUE.\r\n      GO TO 80\r\n 75   CONTINUE\r\n 80   CONTINUE\r\nC\r\nC     CHECK MATT1, MATT2,..., MATT6 AND MATS1 MATERIAL ID\r\nC     AND THEIR CROSS REFERENCE TO MATI CARDS\r\nC\r\n 90   DO 110 K = MB,MC\r\n      IF (MATI(2,K) .LE. 0) GO TO 110\r\n      KK = MOD(K,MA)\r\n      IB = MATI(1,KK) + 1\r\n      IE = MATI(2,KK) + IB - 1\r\n      JB = MATI(1,K ) + 1\r\n      JE = MATI(2,K ) + JB - 1\r\n      DO 105 J = JB,JE\r\n      K1 = Z(J)\r\n      IF (IE .LT. IB) GO TO 100\r\n      DO 95 I = IB,IE\r\n      IF (Z(I) .EQ. K1) GO TO 105\r\n 95   CONTINUE\r\n 100  IH(1) = K1\r\n      IH(2) = KK\r\n      K1 = 217\r\n      IF (K .EQ. 15) K1 = 17\r\n      CALL MESAGE (30,K1,IH)\r\n      ABORT =.TRUE.\r\n 105  CONTINUE\r\n 110  CONTINUE\r\nC\r\nC     CHECK MATERIAL ID UNIQUENESS AMONG MATPZI AND MTTPZI\r\nC\r\n      J = 0\r\n      DO 115 K = MD,ME\r\n      IF (MATI(2,K) .GT. 0) J = J + 1\r\n 115  CONTINUE\r\n      IF (J .LE. 1) GO TO 140\r\n      KK = MATI(1,ME+1)\r\n      K1 = KK - 1\r\n      NN = MATI(1,MD)\r\n      DO 130 K = NN,K1\r\n      J  = Z(K)\r\n      IB = K + 1\r\n      DO 125 I = IB,KK\r\n      IF (J .NE. Z(I)) GO TO 125\r\n      CALL MESAGE (30,213,J)\r\n      ABORT =.TRUE.\r\n      GO TO 130\r\n 125  CONTINUE\r\n 130  CONTINUE\r\nC\r\nC     NOW, WE CONTINUE TO CHECK MATERIAL ID'S ON MOST PROPERTY CARDS.\r\nC     (MATERIAL ID'S ARE ON THE 2ND, 4TH, AND 6TH POSITIONS OF THE\r\nC     PROPERTY CARDS, EXECPT THE OPEN-ENDED PCOMPI GROUP)\r\nC\r\n 140  JE = MATI(1,NMAT)\r\n      II = A(1)\r\n 145  CALL FWDREC (*220,PFILE)\r\n 150  CALL READ (*220,*220,PFILE,IH(1),3,0,KK)\r\n      DO 160 K = 1,NEPT\r\n      IF (IH(1) .EQ. EPTI(1,K)) GO TO 170\r\n 160  CONTINUE\r\n      GO TO 145\r\n 170  IF (NOMAT .EQ. 0) GO TO 230\r\n      NWDS= EPTI(2,K)/10\r\n      NN  = EPTI(2,K) - NWDS*10\r\n      IB  = 1\r\n      IE  = NN*2\r\n      IC  = 2\r\n      KOMP= 0\r\nC\r\nC     CHANGE NWDS, IB, IE, AND IC IF PROPERTY CARD IS OPEN-ENDED\r\nC     WHERE (IB+JX) POINTS TO THE FIRST MID POSITION\r\nC\r\n      IF (EPTI(2,K) .GT. 0) GO TO 180\r\n      KOMP= 1\r\n      IB  =-NN - 1\r\n      IC  =-NWDS\r\n      IF (NWDS .EQ. 0) IC = 9999\r\n      NWDS= 10\r\n 180  IF (KOMP .EQ. 1) IE = JX + NWDS - 1\r\nC\r\nC     READ IN PROPERTY CARD. IF ID IS NOT ON ACTIVE LIST, SKIP IT.\r\nC     SKIP IT TOO IF IT HAS NO MATERIAL ID REQUESTED.\r\nC     (NO CORE SIZE CHECK HERE. SHOULD HAVE PLENTY AVAILABLE)\r\nC\r\n      CALL READ (*220,*150,PFILE,Z(JX),NWDS,0,KK)\r\n      IF (KOMP .EQ. 0) GO TO 182\r\n 181  IE = IE + 1\r\n      CALL READ (*220,*150,PFILE,Z(IE),1,0,KK)\r\n      IF (Z(IE) .NE. -1) GO TO 181\r\n      IE = IE - 1 - JX\r\n 182  DO 183 I = 2,II\r\n      IF (Z(JX) .EQ. A(I)) GO TO 185\r\n 183  CONTINUE\r\n      GO TO 180\r\n 185  DO 210 I = IB,IE,IC\r\n      KK = Z(JX+I)\r\n      IF (IE.EQ.8 .AND. I.EQ.7) KK = Z(JX+I+3)\r\n      IF (KK .EQ. 0) GO TO 210\r\n      IF (JX .LE. 1) GO TO 200\r\n      DO 190 J = 1,JE\r\n      IF (KK .EQ. Z(J)) GO TO 210\r\n 190  CONTINUE\r\n 200  IH(1) = KK\r\n      IH(2) = Z(JX)\r\n      CALL MESAGE (30,215,IH)\r\n      ABORT =.TRUE.\r\n 210  CONTINUE\r\n      GO TO 180\r\n 220  RETURN\r\nC\r\n 230  CALL MESAGE (30,16,IH)\r\n      ABORT =.TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matdum.f",
    "content": "      SUBROUTINE MATDUM (IA,IPRC,NPL,NOUT)\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY MATPRN TO PRINT UP TO 5 MATRICES\r\nC\r\nC     IF IPRC = 0, MATRICES ARE PRINTED IN THEIR ORIG. PRECISION FORMAT\r\nC     IF IPRC = 1, MATRICES ARE PRINTED IN SINGLE PRECISION E FORMAT\r\nC     IF IPRC = 2, MATRICES ARE PRINTED IN DOUBLE PRECISION D FORMAT\r\nC     IF IPRC =-1, ONLY THE DIAGONAL ELEMENTS OF THE MATRICES ARE\r\nC                  PRINTED IN THEIR ORIG. PRECISION FORMAT\r\nC\r\nC     INPUT MATRIX IA(1) CAN BE IN S.P., D.P., S.P.CMPLX OR D.P.CMPLX\r\nC\r\nC     NPL IS THE NO. OF DATA VALUES PRINTED PER OUTPUT LINE\r\nC     FOR S.P. REAL  DEFAULT IS 8, MAX IS 14\r\nC     FOR D.P. REAL  DEFAULT IS 6, MAX IS 12\r\nC     EVEN NUMBER ONLY FOR COMPLEX\r\nC\r\nC     P3, P4, P5 ARE PRINTOUT CONTROLS\r\nC     P3 = m, MATRIX COLUMNS, 1 THRU m, WILL BE PRINTED.\r\nC             DEFAULT = 0, ALL MATRIX COLUMNS WILL BE PRINTED.\r\nC        =-m, SEE P4 = -n\r\nC     P4 = n, LAST n MATRIX COLUMNS ARE PRINTED. DEFAULT = 0\r\nC        =-n, AND P3 = -m, EVERY OTHER n MATRIX COLUMNS WILL BE PRINTED,\r\nC             STARTIN FROM COLUMN m.\r\nC     P5 = k, EACH PRINTED COLUMN WILL NOT EXCEED k LINES LONG AND THE\r\nC             REMAINING DATA WILL BE OMITTED.\r\nC     NOUT = P6, FORTRAN UNIT (SEE MATPRN)\r\nC\r\n      LOGICAL          JUMP\r\n      INTEGER          SYSBUF,IBLNK,P12,P3,P4,P5,PX(5),ICOL(1),FILE(14)\r\n      DOUBLE PRECISION DCOL(1)\r\n      DIMENSION        IA(7),TYPE(10),FORM(18)\r\n      CHARACTER*15     RFMT,FMTR(2,7)\r\n      CHARACTER*35     CFMT,FMTC(2,4)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  P12(2),P3,P4,P5\r\nCZZ   COMMON /ZZTBPR/  COL(1)\r\n      COMMON /ZZZZZZ/  COL(20000)\r\n      COMMON /UNPAKX/  IT,K,L,INCR\r\n      COMMON /SYSTEM/  SYSBUF,IOUT,INX(6),NLPP,INX1(2),LINE\r\n      COMMON /OUTPUT/  HEAD1(96),HEAD2(96)\r\n      EQUIVALENCE      (COL(1),DCOL(1),ICOL(1)), (IBLNK,BLANK)\r\n      DATA    TYPE  /  4HS.P.,4HREAL,4HD.P.,4HREAL,4HCOMP,4HLEX ,4HCMP ,\r\n     1                 4HD.P.,4HILL ,4HDEFN       /\r\n      DATA    FORM  /  4HSQUA,4HRE  ,4HRECT,4HANG ,4HDIAG,4HONAL,4HLOW ,\r\n     1                 4HTRI ,4HUPP ,4HTRI ,4HSYMM,4HETRC,4HVECT,4HOR  ,\r\n     2                 4HIDEN,4HTITY,4HILL ,4HDEFN/\r\n      DATA    BLANK ,  XMATR ,XIX   ,CONT  ,XINUE ,DDX   /\r\n     1        4H    ,  4HMATR,4HIX  ,4HCONT,4HINUE,4HD   /\r\n      DATA    FILE  /  4HUT1 ,4HUT2 ,4HN/A ,4HINPT,4HINP1,4HINP2,4HINP3,\r\n     1                 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9,4HINPT/\r\n      DATA    FMTR  /  '(1X,1P, 8E16.8)',  '(1X,1P,6D21.12)',\r\n     2                 '(1X,1P, 9E14.6)',  '(1X,1P,7D18.10)',\r\n     3                 '(1X,1P,10E13.5)',  '(1X,1P, 8D16.8)',\r\n     4                 '(1X,1P,11E11.3)',  '(1X,1P, 9D14.6)',\r\n     5                 '(1X,1P,12E10.2)',  '(1X,1P,10D13.4)',\r\n     6                 '(1X,1P,13E10.2)',  '(1X,1P,11D11.3)',\r\n     7                 '(1X,1P,14E 9.1)',  '(1X,1P,12D10.2)'/\r\n      DATA    FMTC  /  '(4(1X,1P,E14.7,1HR,  1P,E15.7,1HI))',\r\n     1                 '(3(1X,1P,D20.13,1HR,1P,D21.13,1HI))',\r\n     2                 '(5(1X,1P,E11.4,1HR,  1P,E12.4,1HI))',\r\n     2                 '(4(1X,1P,D14.7,1HR,  1P,D15.7,1HI))',\r\n     3                 '(6(1X,1P,E 9.2,1HR,  1P,E10.2,1HI))',\r\n     3                 '(5(1X,1P,D11.4,1HR,  1P,D12.4,1HI))',\r\n     4                 '(7(1X,1P,E 7.0,1HR,  1P,E 8.0,1HI))',\r\n     4                 '(6(1X,1P,D 9.2,1HR,  1P,D10.2,1H)))'/\r\nC\r\n      NAMEA= IA(1)\r\n      NCOL = IA(2)\r\n      NROW = IA(3)\r\n      IF   = IA(4)\r\n      IT   = IA(5)\r\n      IF (IF .NE. 7) GO TO 5\r\nC\r\nC     ROW VECTOR\r\nC     A ROW OF MATRIX ELEMENTS STORED IN COLUMN FORMAT\r\nC     INTERCHANGE ROW AND COLUMN FOR PRINTING\r\nC\r\n      J    = NCOL\r\n      NCOL = NROW\r\n      NROW = J\r\n    5 IF (IT.LE.0 .OR. IT.GT.4) IT = 5\r\n      IF (IF.LE.0 .OR. IF.GT.8) IF = 9\r\n      IF (NOUT .NE. IOUT) WRITE (IOUT,7) UIM,FILE(NOUT-10),NOUT\r\n    7 FORMAT (A29,', MATRIX PRINTOUT SAVED IN ',A4,' (FORTRAN UNIT',I4,\r\n     1        1H))\r\n      IF (IPRC .EQ. -1) GO TO 80\r\nC\r\nC     SET UP FORMAT FOR OUTPUT PRINT LINE\r\nC\r\n      J = IPRC\r\n      IF (IT .GE. 3) J = IPRC + 2\r\n      GO TO (10,20,30,40), J\r\n   10 J = NPL - 7\r\n      RFMT = FMTR(1,J)\r\n      GO TO 50\r\n   20 J = NPL - 5\r\n      RFMT = FMTR(2,J)\r\n      GO TO 50\r\n   30 J = (NPL/2) - 3\r\n      CFMT = FMTC(1,J)\r\n      GO TO 50\r\n   40 J = (NPL/2) - 2\r\n      CFMT = FMTC(2,J)\r\n   50 NPL1 = NPL - 1\r\nC\r\nC     SET UP P3 AND P4 PRINTOUT OPTIONS\r\nC\r\n      MM = P3\r\n      NN = IA(2)\r\n      IF (P3 .LE. 0) MM = IA(2)\r\n      IF (P4 .LT. 0) GO TO 60\r\n      JUMP = .FALSE.\r\n      NN = IA(2) - P4\r\n      GO TO 70\r\n   60 JUMP = .TRUE.\r\n      JMP4 = -P4\r\n      JMP3 = IABS(P3)\r\n      IF (P3 .EQ. 0) JMP3 = 1\r\n   70 NPLP5 = IA(3)\r\n      IF (P5 .NE. 0) NPLP5 = NPL*P5\r\nCWKBI SPR 93013\r\n      IF ( IT .GT. 2 ) NPLP5 = 2*NPLP5\r\nC\r\n   80 DO 85 I = 1,96\r\n   85 HEAD2(I) = BLANK\r\n      HEAD2(1) = XMATR\r\n      HEAD2(2) = XIX\r\n      HEAD2(6) = CONT\r\n      HEAD2(7) = XINUE\r\n      HEAD2(8) = DDX\r\n      LCOL = KORSZ(COL) - SYSBUF\r\n      INCR = 1\r\n      CALL GOPEN (NAMEA,COL(LCOL+1),0)\r\n      CALL PAGE1\r\n      CALL FNAME (NAMEA,HEAD2(3))\r\n      WRITE (NOUT,90) HEAD2(3),HEAD2(4),NAMEA,TYPE(2*IT-1),TYPE(2*IT),\r\n     1                NCOL,NROW,FORM(2*IF-1),FORM(2*IF)\r\n   90 FORMAT (1H0,6X,7HMATRIX ,2A4,11H (GINO NAME,I4,2H ),6H IS A ,2A4,\r\n     1        1X,I6,10H COLUMN X ,I6,5H ROW ,2A4,8H MATRIX.)\r\n      IF (IT.EQ.5 .OR. NCOL.EQ.0 .OR. NROW.EQ.0) GO TO 460\r\nC\r\nC     IF = 3, DIAGONAL MATRIX\r\nC        = 7, ROW VECTOR\r\nC        = 8, IDENTITY MATRIX\r\nC\r\n      IF (IF-8) 100,440,460\r\n  100 IF (IPRC .EQ. -1) GO TO 510\r\n      IF (IF.NE.3 .AND. IF.NE.7) GO TO 110\r\n      NCOL = 1\r\n      NROW = IA(3)\r\n  110 INULL= 0\r\n      ASSIGN 150 TO IHOP\r\n      JJ = 1\r\n  120 K  = 0\r\n      L  = 0\r\n      CALL UNPACK (*330,NAMEA,COL)\r\n      IF (JJ.LE.MM .OR. JJ.GE.NN) GO TO 130\r\n      K  = NN - MM - 1\r\n      JJ = JJ + K\r\n      IF (JJ .GT. NCOL) GO TO 340\r\n      CALL SKPREC (NAMEA,K)\r\n      GO TO 340\r\n  130 IF (.NOT.JUMP) GO TO 140\r\n      IF (MOD(JJ,JMP4) .NE. JMP3) GO TO 340\r\n  140 IF (INULL .EQ. 1) GO TO 490\r\n  150 NROW = L - K + 1\r\n      GO TO (160,160,360,160,160,160,380), IF\r\n  160 WRITE (NOUT,170) JJ,K,L\r\n      LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n  170 FORMAT (8H0COLUMN ,I6,5X,6H ROWS ,I6,6H THRU ,I6,5X,50(1H-),/,1H )\r\n      IF (IT .GT. 2) NROW = 2*NROW\r\n  180 K = 0\r\n  190 J = K + 1\r\n      IF (J .GT.  NROW) GO TO 340\r\n      K = J + NPL1\r\n      IF (K .GT.  NROW) K = NROW\r\n      IF (K .GT. NPLP5) GO TO 340\r\n      KJ = K - J\r\n      GO TO (210,240,270,300), IT\r\nC\r\n  200 LN = (KJ+NPL1)/NPL\r\n      LINE = LINE + LN\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      GO TO 190\r\nC\r\nC     REAL SINGLE PRECISION\r\nC\r\n  210 IF (IPRC .EQ. 2) GO TO 220\r\n      WRITE  (NOUT,RFMT) (COL(I),I=J,K)\r\nC 215 FORMAT (1X,1P,10E13.5)\r\nC     LN = (KJ+10)/10\r\n      GO TO 200\r\n  220 I = K\r\n      DO 230 LN = J,K\r\n      DCOL(I) = COL(I)\r\n  230 I = I - 1\r\nC\r\nC     REAL DOUBLE PRECISION\r\nC\r\n  240 IF (IPRC .EQ. 1) GO TO 250\r\n      WRITE  (NOUT,RFMT) (DCOL(I),I=J,K)\r\nC 245 FORMAT (1X,1P,8D16.8)\r\nC     LN = (KJ+8)/8\r\n      GO TO 200\r\n  250 DO 260 I = J,K\r\n  260 COL(I) = DCOL(I)\r\n      GO TO 210\r\nC\r\nC     COMPLEX SINGLE\r\nC\r\n  270 IF (IPRC .EQ. 2) GO TO 280\r\n      WRITE  (NOUT,CFMT) (COL(I),I=J,K)\r\nC 275 FORMAT (1X,5(1P,E12.4,1HR,1P,E12.4,1HI))\r\nC     LN = (KJ+10)/10\r\n      GO TO 200\r\n  280 I = K\r\n      DO 290 LN = J,K\r\n      DCOL(I) = COL(I)\r\n  290 I = I - 1\r\nC\r\nC     COMPLEX DOUBLE\r\nC\r\n  300 IF (IPRC .EQ. 1) GO TO 310\r\n      WRITE  (NOUT,CFMT) (DCOL(I),I=J,K)\r\nC 305 FORMAT (1X,4(1P,D15.8,1HR,1P,D15.8,1HI))\r\nC     LN = (KJ+8)/8\r\n      GO TO 200\r\n  310 DO 320 I = J,K\r\n  320 COL(I) = DCOL(I)\r\n      GO TO 270\r\nC\r\n  330 IF (INULL .EQ. 1) GO TO 340\r\n      INULL = 1\r\n      IBEGN = JJ\r\n  340 JJ    = JJ + 1\r\n      IF (JJ  .LE. NCOL) GO TO 120\r\n      ASSIGN 350 TO IHOP\r\n      IF (INULL .EQ. 1) GO TO 490\r\n  350 CALL CLOSE (NAMEA,1)\r\n      GO TO 400\r\n  360 WRITE (NOUT,370) K,L\r\n      LINE = LINE + 2\r\n  370 FORMAT ('0DIAGONAL ELEMENTS FOR COLUMNS',I6,4H TO ,I6,4H ARE,///)\r\n      GO TO 180\r\n  380 WRITE (NOUT,390) K,L\r\n      LINE = LINE + 2\r\n  390 FORMAT ('0ROW ELEMENTS FOR COLUMNS',I6,4H TO ,I6,4H ARE,///)\r\n      GO TO 180\r\n  400 WRITE  (NOUT,410) IA(6)\r\n  410 FORMAT ('0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =',\r\n     1       I8)\r\n      IA7A = IA(7) / 100\r\n      IA7C = IA(7) - 100*IA7A\r\n      IA7B = IA7C / 10\r\n      IA7C = IA7C - 10*IA7B\r\n      WRITE  (NOUT,420) IA7A,IA7B,IA7C\r\n  420 FORMAT ('0THE DENSITY OF THIS MATRIX IS ',I3,1H.,2I1,' PERCENT.')\r\n      GO TO 750\r\nC\r\n  440 WRITE  (NOUT,450)\r\n  450 FORMAT ('0IDENTITY MATRIX')\r\n  460 CALL CLOSE (NAMEA,1)\r\nC\r\nC     FUNNY MATRIX - SAVE MODULE PARAMETERS AND TABLE PRINT IT\r\nC\r\n      DO 470 I = 1,5\r\n  470 PX(I) = P12(I)\r\n      P12(1) = IBLNK\r\n      P12(2) = IBLNK\r\n      P3     = 3\r\n      P4     = 3\r\n      CALL TABPRT (NAMEA)\r\n      DO 480 I = 1,5\r\n  480 P12(I) = PX(I)\r\n      GO TO 750\r\n  490 IFIN = JJ - 1\r\n      WRITE (NOUT,500) IBEGN,IFIN\r\n      INULL = 0\r\n      LINE  = LINE + 2\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n  500 FORMAT ('0COLUMNS ',I7,6H THRU ,I7,' ARE NULL.')\r\n      GO TO IHOP, (150,350)\r\nC\r\nC     PRINT ONLY THE DIAGONAL ELEMENTS, IPRC = -1\r\nC     TO CHECKOUT THE DIAGONALS FOR POSSIBLE MATRIX SINGULARITY\r\nC\r\n  510 WRITE  (NOUT,520)\r\n  520 FORMAT (/23X,'(ELEMENTS ON DIAGONAL ONLY)')\r\n      IF (NCOL .NE. NROW) WRITE (NOUT,530)\r\n  530 FORMAT (23X,'*** MATRIX IS NOT SQUARE ***')\r\n      WRITE  (NOUT,540)\r\n  540 FORMAT (1X)\r\n      NN = MIN0(NCOL,NROW)\r\n      JJ = 0\r\n      DO 570 I = 1,NN\r\n      K  = I\r\n      L  = I\r\n      CALL UNPACK (*550,NAMEA,COL(JJ+1))\r\n      GO TO 570\r\n  550 DO 560 J = 1,IT\r\n  560 COL(JJ+J) = 0.0\r\n  570 JJ = JJ + IT\r\n      CALL CLOSE (NAMEA,1)\r\n      GO TO (580,600,620,640), IT\r\n  580 WRITE  (NOUT,590) (COL(J),J=1,JJ)\r\n  590 FORMAT (1X,1P,10E13.6)\r\n      GO TO 660\r\n  600 JJ = JJ/2\r\n      WRITE  (NOUT,610) (DCOL(J),J=1,JJ)\r\n  610 FORMAT (1X,1P,10D13.6)\r\n      GO TO 660\r\n  620 WRITE  (NOUT,630) (COL(J),J=1,JJ)\r\n  630 FORMAT ((1X,5(1P,E12.5,1HR,1P,E12.5,1HI)))\r\n      GO TO 660\r\n  640 JJ = JJ/2\r\n      WRITE  (NOUT,650) (DCOL(J),J=1,JJ)\r\n  650 FORMAT ((1X,5(1P,D12.5,1HR,1P,D12.5,1HI)))\r\n  660 KJ = IT\r\n      IF (IT .GE. 3) KJ = IT - 2\r\n      NN = 0\r\n      MM = 1\r\n      DO 680 J = 1,JJ\r\n      LN = MM + IT - 1\r\n      DO 670 I = MM,LN\r\n      IF (COL(I) .NE. 0.0) GO TO 680\r\n  670 CONTINUE\r\n      NN = NN + 1\r\n      ICOL(NN) = J\r\n  680 MM = MM + KJ\r\n      IF (NN .EQ. 0) GO TO 710\r\n      MM = MIN0(NN,200)\r\n      WRITE  (NOUT,690) (ICOL(I),I=1,MM)\r\n  690 FORMAT ('0*** ZERO DIAGONALS IN THE FOLLOWING COLUMNS -',\r\n     1       /,(1X,20I6))\r\n      IF (NN .GT. 200) WRITE (NOUT,700)\r\n  700 FORMAT (' ...AND MORE')\r\n      GO TO 730\r\n  710 WRITE  (NOUT,720)\r\n  720 FORMAT ('0*** NO ZERO ON DIAGONALS')\r\n  730 WRITE  (NOUT,740) IA\r\n  740 FORMAT (/5X,'GINO FILE',I5,'   TRAILER =',6I7)\r\n      LINE = LINE + NLPP\r\nC\r\n  750 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matgen.f",
    "content": "      SUBROUTINE MATGEN\r\nC\r\nC     THE PURPOSE OF THIS MODULE IS TO GENERATE CERTAIN KINDS OF\r\nC     MATRICES ACCORDING TO ONE OF SEVERAL SIMPLE USER SELECTED OPTIONS\r\nC\r\nC     MATGEN      TAB/OUT/P1/P2/P3/P4/P5/P6/P7/P8/P9/P10/P11  $\r\nC\r\nC     TAB - INPUT TABLE - (OPTIONAL) FOR USE IN GENERATING THE MATIRX\r\nC                 (THIS DATA MAY BE ASSUMED TO BE INPUT VIA DTI CARDS.)\r\nC             = EQEXIN TABLE  FOR P1 =  9\r\nC             = USET   TABLE  FOR P1 = 11\r\nC             = ANY GINO FILE FOR P1 = 10\r\nC\r\nC     OUT - OUTPUT MATRIX - IF PURGED AND P1 IS NOT 10, P1 WILL BE SET\r\nC               TO -1 AND RETURN\r\nC\r\nC     P1      - INPUT - INTEGER, OPTION SELECTION. (DEFULAT P1 = 3)\r\nC             = 1, GENERATE A RSP IDENTITY MATRIX OF ORDER P2.\r\nC             = 2, GENERATE AN IDENTITY MATRIX OF ORDER P2, FORM 8\r\nC             = 3, GENERATE A DIAGONAL MATRIX FORM INPUT FILE T\r\nC             = 4, GENERATE A PARTERN MATRIX\r\nC             = 5, GENERATE A MATRIX OF PSEUDO-RANDOM NUMBERS.\r\nC             = 6, GENERATE PARTITION VECTOR OF ORDER P2, WITH P3 ZERO'S\r\nC                  CLOOWED BY P4 ONE'S FOLLOWED BY P5 ZERO'S ETC.\r\nC                  REMAINER IS ALWAYS AERO. TOO MANY DEFINITIONS IS AN\r\nC                  ERROR.\r\nC             = 7, GENERATE A NULL MATRIX\r\nC             = 8, GENERATE A MATRIX FROM EQUATIONS BASED ON ITS INDICES\r\nC             = 9, GENERATE A TRANSFORMATION BETWEEN EXTERNAL AND\r\nC                  INTERANL MATRICES, OF G-SET SIZE.\r\nC                  P2 = 0, OUTPUTS INT-EXT (DEFAULT)\r\nC                  P2 = 1, OUTPUTS TRANSPOSE EXT-INT\r\nC                  P3 = NO. OF TERMS IN G-SET (REQUIRED). USE LUSET IN\r\nC                       MOST SOLUTION SEQUENCES.\r\nC             =10, ALLOW USER TO ALTER DATA BLOCK TRAILER.\r\nC             =11, GENERATE A RECTANGULAR MATRIX, DRIVEN BY USET TABLE\r\nC\r\nC     P2 - P11 -   OPTION PARAMETERS - INTEGER - INPUT AND OUTPUT\r\nC                  INPUT  AS OPTION VALUE (1 THRU NP)\r\nC                  OUTPUT AS -1 IF AND ONLY IF OUTPUT DATA BLOCK IS PRE-\r\nC                  PURGED\r\nC                  DEFAULT VALUES FOR P2 THRU P11 ARE ZEROS\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         LSHIFT\r\n      INTEGER          MCB(7),NAM(2),P(11),CODE(2),IX(12)\r\n      REAL             VAL,RX(7),TMP(7)\r\n      DOUBLE PRECISION D(2)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,DUM37(37),NBPW,DUM14(14),IPREC\r\n      COMMON /MACHIN/  MACHX\r\n      COMMON /ZBLPKX/  VAL(4),ROW\r\n      COMMON /PACKX /  ITA,ITB,I2,J2,INCR2\r\nCZZ   COMMON /ZZMGEN/  X(1)\r\n      COMMON /ZZZZZZ/  X(20000)\r\n      EQUIVALENCE      (VAL(1),D(1)),(X(1),IX(1),RX(1)),(P(1),P1)\r\n      DATA    NAM   /  4HMATG,4HEN  /,  NP /  11   /\r\n      DATA    EQE   ,  XIN / 4HEQEX, 4HIN  /, CODE / 6,1 /\r\n      DATA    OUT   ,  T      /\r\n     1        201   ,  101    /\r\nC\r\nC     IF OUTPUT DATA BLOCK IS PRE-PURGED, SET P1 = -1 AND RETURN\r\nC\r\n      IF (P1 .EQ. 10) GO TO 30\r\n      MCB(1) = OUT\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 1580\r\nC\r\nC     CHECK INPUT FILE REQUIREMENT\r\nC\r\n   30 IX(1) = T\r\n      CALL RDTRL (IX(1))\r\n      IF (P1 .EQ. 10) GO TO 1000\r\n      IF (P1.EQ.3 .OR. P1.EQ.9 .OR. P1.EQ.10 .OR. P1.EQ.11) GO TO 50\r\n      IF (IX(1) .EQ. 0) GO TO 50\r\n      CALL FNAME (IX(1),RX(2))\r\n      WRITE  (NOUT,40) UWM,RX(2),RX(3),P1\r\n   40 FORMAT (A25,' FROM MODULE MATGEN. INPUT DATA BLOCK ',2A4,' IS ',\r\n     1       'NOT NEEDED FOR OPTION',I3)\r\nC\r\nC     CHECK OPEN CORE AND OPEN OUTPUT DATA BLOCK\r\nC\r\n   50 LCOR = KORSZ(IX(1))\r\n      IF (P1 .EQ. 2) GO TO 200\r\n      IF (LCOR .LT. SYSBUF) GO TO 1500\r\n      IBUF1 = LCOR  - SYSBUF - 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      CALL GOPEN (OUT,IX(IBUF1),1)\r\n      LCOR = LCOR - SYSBUF\r\nC\r\nC     TEST FOR VALID OPTION AND BRANCH ON OPTION.\r\nC\r\n      IF (P1 .EQ. 0) P1 = 3\r\n      IF (P1.LT.0 .OR. P1.GT.NP) GO TO 1510\r\n      GO TO (100,200,300,400,500,600,700,800,900,1000,1100), P1\r\nC\r\nC     OPTION 1 - GENERATE A RSP IDENTITY MATRIX OF ORDER P2, AND TRAILER\r\nC     ========   P2 = ORDER OF MATRIX\r\nC                P3 = SKEW FLAG, IF NONZERO, GENERATE A SKEW-DIAGONAL\r\nC                     MATRIX\r\nC                P4 = PRECISION (1 OR 2). IF ZERO, USE MACHINE PRECISION\r\nC\r\n  100 IF (P2 .GT. 0) GO TO 110\r\n      IPX = 2\r\n      PX  = P2\r\n      GO TO 1530\r\n  110 ITA = 1\r\n      ITB = P4\r\n      IF (P4 .EQ. 0) ITB = IPREC\r\n      INCR2 = 1\r\n      CALL MAKMCB (MCB,OUT,P2,6,ITB)\r\n      DO 150 I = 1,P2\r\n      RX(I) = 1.0\r\n      I2 = I\r\n      J2 = I\r\n      CALL PACK (IX,OUT,MCB)\r\n  150 CONTINUE\r\nCWKBI SPR93023 12/93\r\n      CALL CLOSE ( OUT, 1 )\r\n      GO TO 210\r\nC\r\nC     OPTION 2 - GENERATE AN IDENTITY TRAILER (FORM = 8)\r\nC     ========   P2 = ORDER OF MATRIX\r\nC\r\nC                ** CAUTION ** FORM = 8 MATRICES DO NOT REALLY EXIST\r\nC                ONLY CERTAIN  ROUTINES CAN PROCESS THEM\r\nC                e.g. FBS, MPYAD, CEAD etc.\r\nC\r\n  200 MCB(1) = OUT\r\n      MCB(2) = P2\r\n      MCB(3) = P2\r\n      MCB(4) = 8\r\n      MCB(5) = 1\r\n      MCB(6) = 1\r\nC     MCB(7) = LSHIFT(1,NBPW-2) + P2\r\n      MCB(7) = LSHIFT(1,NBPW-2 - (NBPW-32)) + P2\r\nC\r\nC     ADD (NBPW-32) TO MCB(7) SO THAT CRAY, WITH 48-BIT INTEGER WILL\r\nC     NOT GET INTO TROUBLE. (SEE SDCOMP AND WRTTRL)\r\nC\r\n  210 CALL WRTTRL (MCB)\r\n      GO TO 1700\r\nC\r\nC     OPTION 3 - GENERATE A DIAGONAL MATRIX FROM INPUT TABLE T\r\nC     ========   P2 = DATA TYPE OF T\r\nC                P3 = 0, FORM 6 MATRIX IS GENERATED\r\nC                   = 1, FORM 3 MATRIX IS GENERATED\r\nC\r\nC     THIS OPTION IS THE ORIGINAL MATGEN IN COSMIC MATGEN\r\nC     SKIP HEADER RECORD, AND BEGINNING RECORD ON T\r\nC     PICKUP DATA IN ARRAY OF 7 WORDS. DIAGONAL VAULE ON THE 3RD\r\nC\r\n  300 LCOR = LCOR - SYSBUF\r\n      IF (LCOR .LT. SYSBUF) GO TO 1500\r\n      IF (P2 .EQ. 0) P2 = 1\r\n      CALL OPEN (*1550,T,IX(IBUF2),0)\r\n      CALL SKPREC (T,2)\r\n      ITA = P2\r\n      ITB = IPREC\r\n      INCR2 = 1\r\n      FORM = 6\r\n      IF (P3 .EQ. 1) FORM = 3\r\n      CALL MAKMCB (MCB,OUT,0,FORM,IPREC)\r\n      M  = 0\r\n  310 CALL READ (*1560,*330,T,TMP,7,0,0)\r\n      M  = M + 1\r\n      IF (P3 .EQ. 1) GO TO 320\r\n      I2 = M\r\n      J2 = M\r\n      CALL PACK (TMP(3),OUT,MCB)\r\n      GO TO 310\r\n  320 RX(M) = TMP(3)\r\n      GO TO 310\r\n  330 IF (P3 .EQ. 1) GO TO 340\r\n      MCB(3) = MCB(2)\r\n      GO TO 350\r\n  340 I2 = 1\r\n      J2 = M\r\n      CALL PACK (RX,OUT,MCB)\r\n      MCB(2) = 1\r\n      MCB(3) = M\r\n  350 CALL CLOSE (T,1)\r\n      GO TO 210\r\nC\r\nC     OPTION 4 - GENERATE A PATTERN MATRIX\r\nC     ========   P2 = NUNBER OF COLUMNS\r\nC                P3 = NUMBER OF ROWS\r\nC                P4 = PRECISION (1 OR 2). IF 0, USE MACHINE PRECISION\r\nC                P5 = NUMBER OF TERMS PER STRING. IF 0, USE 1\r\nC                P6 = INCREMENT BETWEEN STRINGS. IF 0, USE 1\r\nC                P7 = ROW NUMBER OF 1ST STRING IN COLUMN 1. IF 0, USE 1\r\nC                P8 = INCREMENT TO 1ST ROW FOR SUBSEQUENT COLUMNS.\r\nC                P9 = NUMBER OF COLS BEFORE RETURNING TO P7.\r\nC\r\nC                THE VALUE OF EACH NON-ZERO TERM IN THE MATRIX WILL BE\r\nC                THE COLUMN NUMBER\r\nC                e.g. TO GENERATE A 10x10 DIAGONAL MATRIX WITH THE COL.\r\nC                NUMBER IN EACH DIAGONAL POSITION, CODE\r\nC\r\nC                MATGEN   ,/DIAG/4/10/10/0/1/10/1/1/10  $\r\nC\r\n  400 P2 = MAX0(P2,1)\r\n      P3 = MAX0(P3,1)\r\n      IF (P4.NE.1 .AND. P4.NE.2) P4 = 0\r\n      IF (P4 .EQ. 0) P4 = IPREC\r\n      P5 = MAX0(P5,1)\r\n      P6 = MAX0(P6,1)\r\n      P7 = MAX0(P7,1)\r\n      P8 = MAX0(P8,0)\r\n      P9 = MAX0(P9,1)\r\n      IROW1 = P7\r\n      L = 1\r\n      CALL MAKMCB (MCB,OUT,P3,2,P4)\r\nC\r\n      DO 440 J = 1,P2\r\n      IF (P4 .EQ. 1) VAL(1) = J\r\n      IF (P4 .EQ. 2) D(  1) = J\r\n      ROW = IROW1\r\n      CALL BLDPK (P4,P4,OUT,0,0)\r\n  410 CONTINUE\r\n      DO 420 K = 1,P5\r\n      IF (ROW .GT. P3) GO TO 430\r\n      CALL ZBLPKI\r\n      ROW = ROW + 1\r\n  420 CONTINUE\r\n      ROW = ROW + P6 - 1\r\n      GO TO 410\r\n  430 CALL BLDPKN (OUT,0,MCB)\r\nCWKBI 9/93\r\n  435 CONTINUE\r\n      L = L + 1\r\n      IROW1 = IROW1 + P8\r\nCWKBR 9/93 IF (L .LE. P9) GO TO 430\r\n      IF (L .LE. P9) GO TO 435\r\n      L = 1\r\n      IROW1 = P7\r\n  440 CONTINUE\r\n      GO TO 1400\r\nC\r\nC     OPTION 5 - GENERATE A MATRIX OF PSEUDO-RANDOM NUMBERS. THE NUMBERS\r\nC     ========   SPAN THE RANGE 1. TO 1.0 WITH A NORMAL DISTRIBUTION\r\nC                P2 = NUMBER OF COLUMNS\r\nC                P3 = NUMBER OF ROWS\r\nC                P4 = PRECISION (1 OR 2).  IF 0, USED MACHINE PRECISION\r\nC                P5 = SEED FOR RANDOM NUMBER GENERATION.  IF P5.LE.0,\r\nC                     THE TIME OF DAY (SECONDS PAST MIDNIGHT) WILL BE\r\nC                     USED\r\nC\r\nC     OPTION 5 WAS WRITTEN BY G.CHAN/UNISYS 2/93\r\nC\r\n  500 ITA = 1\r\n      ITB = P4\r\n      IF (P4 .EQ. 0) ITB = IPREC\r\n      FORM = 2\r\n      IF (P2 .EQ. P3) FORM = 1\r\n      I2 = 1\r\n      J2 = P3\r\n      INCR2 = 1\r\n      CALL MAKMCB (MCB,OUT,P2,FORM,ITB)\r\n      K  = P5\r\n      IF (MACHX .EQ. 4) GO TO 560\r\nC                   CDC\r\n      IF (MACHX .EQ. 9) GO TO 530\r\nC                    HP\r\nC\r\n      DO 520 I = 1,P2\r\n      IF (P5 .EQ. 0) CALL CPUTIM (K,K,0)\r\n      K  = (K/2)*2 + 1\r\n      DO 510 J = 1,P3\r\nCWKBR 5/95 SUN     RX(J) = RAN(K)\r\n      RX(J) = RAND(K)\r\n  510 CONTINUE\r\n      CALL PACK (RX(1),OUT,MCB)\r\n  520 CONTINUE\r\n      GO TO 590\r\nC\r\nC     HP ONLY\r\nC     ACTIVATE SRAND AND RAND() BELOW, AND COMMENT OUT RAN(K) ABOVE\r\nC\r\n  530 CONTINUE\r\n      WRITE  (NOUT,535) SFM\r\n  535 FORMAT (A25,'. MATGEN NEEDS TO ACTIVATE SRAND AND RAND() FOR HP')\r\n      CALL MESAGE (-61,0,0)\r\n      DO 550 I = 1,P2\r\n      IF (P5 .EQ. 0) CALL CPUTIM (K,K,0)\r\nC     CALL SRAND (K)\r\n      DO 540 J = 1,P3\r\nC     RX(J) = RAND()\r\n  540 CONTINUE\r\n      CALL PACK (RX(1),OUT,MCB)\r\n  550 CONTINUE\r\n      GO TO 590\r\nC\r\nC     CDC ONLY\r\nC     ACTIVATE SRAND AND RAND() BELOW, AND COMMENT OUT RAN(K) ABOVE\r\nC\r\n  560 CONTINUE\r\n      WRITE  (NOUT,565) SFM\r\n  565 FORMAT (A25,'. MATGEN NEEDS TO ACTIVATE RANSET AND RANF() FOR CDC'\r\n     1       )\r\n      CALL MESAGE (-61,0,0)\r\n      DO 580 I = 1,P2\r\n      IF (P5 .EQ. 0) CALL CPUTIM (K,K,0)\r\nC     CALL RANSET (K)\r\n      DO 570 J = 1,P3\r\nC     RX(J) = RANF()\r\n  570 CONTINUE\r\n      CALL PACK (RX(1),OUT,MCB)\r\n  580 CONTINUE\r\nC\r\n  590 CALL CLOSE  (OUT,1)\r\n      CALL WRTTRL (MCB(1))\r\n      GO TO 1700\r\nC\r\nC     OPTION 6 - GENERATE A PARTITIONING VECTOR FOR USE IN PARTN OR\r\nC     ========   MERGE\r\nC                P2 = NUMBER OF ROWS\r\nC                P3,P5,P7,P9  = NUMBER OF ROWS WITH ZERO COEFFICIENTS\r\nC                P4,P6,P8,P10 = NUMBER OF ROWS WITH UNIT COEFFICIENTS\r\nC\r\nC                IF SUM OF P3 THRU P10 IS .LT. P2, THE REMAINING TERMS\r\nC                CONTAIN ZEROS\r\nC                IF SUM OF P3 THRU P10 IS .GT. P2, THE TERMS ARE IGNORED\r\nC                AFTER P2\r\nC                e.g. GENERATE A VECTOR OF 5 UNIT TERMS FOLLOWED BY 7\r\nC                ZEROS, FOLLOWED BY TWO UNIT TERMS\r\nC\r\nC                MATGEN,   ,/UPART/6/14/0/5/7/2   $\r\nC\r\nC     OPTION 6 WAS ORIGINALLY WRITTEN BY P.KIRCHMAN/SWALES 1/92\r\nC     RE-CODED BY G.CHAN/UNISYS FOR ALL COMPILERS,  2/93\r\nC\r\n  600 IPX = 2\r\n      PX  = P2\r\n      IF (P2 .LE. 0) GO TO 1530\r\n      INCR2 = 1\r\n      I2  = 1\r\n      J2  = P2\r\n      ITA = 1\r\n      ITB = 1\r\n      CALL MAKMCB (MCB,OUT,P2,2,ITB)\r\n      TOT = 0\r\n      DO 610 I = 3,11\r\n  610 TOT = TOT + P(I)\r\n      IF (TOT .GT. P2) WRITE (NOUT,620) UFM,P1,P2\r\n      IF (TOT .LT. P2) WRITE (NOUT,630) UWM,P1\r\n  620 FORMAT (A23,' FROM MATGEN, OPTION',I3,'. TOO MANY ENTRIES FOR ',\r\n     1       'SPECIFIED SIZE',I7)\r\n  630 FORMAT (A25,' FORM MATGEN, OPTION',I3,'. THE NUMBER OF ENTRIES ',\r\n     1       'SPECIFIED BY PARAMETERS IS LESS THAN THE TOTAL SIZE', /5X,\r\n     2       'OF THE PARTITION. THE REMAINING RENTRIES ARE ZERO FILLED')\r\n      K = 1\r\n      DO 660 I = 3,9,2\r\n      PI = P(I)\r\n      DO 640 J = 1,PI\r\nCWKBR SPR 93023 12/93      IX(K) = 0\r\n      RX(K) = 0.\r\n  640 K = K + 1\r\n      PI = P(I+1)\r\n      DO 650 J = 1,PI\r\nCWKBR SPR 93024 12/93      IX(K) = 1\r\n      RX(K) = 1.0\r\n  650 K = K + 1\r\n  660 CONTINUE\r\n      IF (K .GE. P2) GO TO 680\r\n      DO 670 I = K,P2\r\n  670 IX(I) = 0\r\n  680 CALL PACK (IX,OUT,MCB)\r\n      CALL CLOSE (OUT,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 1700\r\nC\r\nC     OPTION 7 - GENERATE A NULL MATRIX\r\nC     ========   P2 = NUMBER OF ROWS\r\nC                P3 = NUMBER OF COLUMNS\r\nC                P4 = FORM; IF P4 = 0, AND P2 = P3, FORM WILL BE 6\r\nC                     (SYMMETRIC). OTHERWISE P4 IS 2 (RECTANGULAR)\r\nC                P5 = TYPE: IF P5 = 0, TYPE IS MACHINE PRECISION\r\nC\r\n  700 D(1) = 0.0D0\r\n      D(2) = 0.0D0\r\n      ITA = 1\r\n      ITB = P5\r\n      IF (P5 .EQ. 0) ITB = IPREC\r\n      FORM = P4\r\n      IF (P4.EQ.0 .AND. P2.EQ.P3) FORM = 6\r\n      IF (P4.EQ.0 .AND. P2.NE.P3) FORM = 2\r\n      I2 = 1\r\n      J2 = 1\r\n      INCR2 = 1\r\n      CALL MAKMCB (MCB,OUT,P2,FORM,ITB)\r\n      DO 750 I = 1,P3\r\n      CALL PACK (VAL,OUT,MCB)\r\n  750 CONTINUE\r\n      CALL CLOSE  (OUT,1)\r\n      CALL WRTTRL (MCB(1))\r\n      GO TO 1700\r\nC\r\nC     OPTION 8 - GENERATE A MATRIX FROM EQUATIONS BASED ON IT INDICES\r\nC     ========   P2 =  0, GENERATE ALL TERMS\r\nC                  .NE.0, GENERATE ONLY DIAGONAL TERMS\r\nC                P3 =     NUMBER OF ROWS\r\nC                P4 =     NUMBER OF COLUMNS\r\nC                P5 =     NUMBER OF THE RECORD IN THE INPUT DTI TABLE\r\nC                         USED TO DEFINE REAL COEFFICIENTS\r\nC                  .LT.0, COEFFICIENT TAKEN FROM DTI TRAILER\r\nC                         COEFF(TRAILER1) = FLOAT(TRAILER2)   TRAILER\r\nC                         COEFF(TRAILER3) = FLOAT(TRAILER4)   ITEMS ARE\r\nC                         COEFF(TRAILER5) = FLOAT(TRAILER6)   INTEGERS\r\nC\r\nC                   = 0,  DATA PAIRS FROM RECORD 0 (DATA BLOCK HEADER\r\nC                         RECORD) ARE INTERPRETED AS DFINING\r\nC                         COEFF(V1) = V2     V1 IS INTEGER, V2 IS REAL\r\nC                  .GT.0, DATA PAIRS FROM RECORD P5 INTERPRETED AS ABOVE\r\nC                P6 =     NUMBER OF THE RECORD IN THE INPUT DTI TABLE\r\nC                         USED TO DEFINE IMAGINARY DOEFFICIENTS D(I)\r\nC                  .LE.0, NO DOEFFICIENTS DEFINED\r\nC                  .GT.0, DATA PAIRS FROM RECORD P6 INTERPRETED AS ABOVE\r\nC                         WHERE D(V1) = V2\r\nC                P7 =     FORM OF OUTPUT MATRIX\r\nC                  .LE.0, FORM = 1 OR 2, DEPENDING ON P3 AND P4\r\nC                  .GT.0, FORM SET TO P7\r\nC                P8 =     COEFFICIENT PRINT FLAG\r\nC                   = 0,  DO NOT PRINT COEFFICIENT LISTS\r\nC                  .NE.0, PRINT COEFFICIENTS LISTS C(L) AND D(L) FROM\r\nC                         DTI INPUT. (PRINT D(L) LIST ONLY IF P6.GT.0)\r\nC\r\nC                SEE USER MANUAL FOR THE EQUATION USED TO DETERMINE THE\r\nC                COEFFICIENT OF THE (I,J)TH TERM OF THE OUTPUT MATRIX\r\nC\r\n  800 WRITE (NOUT,1200) UWM,P1\r\n      GO TO 1700\r\nC\r\nC     OPTION 9 - GENERATE A TRANSFORMATION BETWEEN EXTERNAL AND INTERNAL\r\nC     ========   MATRICES FOR G-SET SIZE MATRICES\r\nC                P2 = 0, OUTPUT NON-TRANSPOSED FACTOR, UEXT = MAT*UINT\r\nC                   = 1, OUTPUT TRANSPOSED FACTOR, UEXT = MAT*UINT\r\nC                P3 = NUMBER OF TERMS IN G-SET. THE PARAMETER LUSET\r\nC                     CONTAINS THIS NUMBER IN MOST SOLUTION SEQUENCES\r\nC\r\nC                EXAMPLES -\r\nC                1. TRANSFORM A g-SET SIZE VECTOR TO EXTERNAL SEQUENCE\r\nC                ALTER XX  $ AFTER SDR1, ALL SDR1 OUTPUTS ARE IN\r\nC                            INTERNAL SEQUENCE\r\nC                MATGEN  EQEXIN/INTEXT/9//LUSET $\r\nC                MPYAD   INTEXT,UGV,/UGVEXT/1 $\r\nC\r\nC                2. TRANSFORM AN a-SET SIZE MATRIX TO EXTERNAL SEQUENCE\r\nC                ALTER XX  $ AFTER KAA IS GENERATED, ALL MATRICES ARE IN\r\nC                            INTERNAL SEQUENCE\r\nC                MATGET  EQEXIN/INTEXT/9/0/LUSET $\r\nC                SMPYAD  INTEXT,KAGG,INTEXT,,/KAAGEXT/3////1////6 $\r\nC                $ (KAAGEXT) = TRANSPOSE(INTEXT)*(KAAG)*(INTEXT)\r\nC                $ ITS FORM IS 6 (SYMMETRIC)\r\nC\r\nC     OPTION 9 WAS ORIGINALLY WRITTEN BY P.KIRCHMAN/SWALES 1/92\r\nC     RE-CODED BY G.CHAN/UNISYS FOR ALL COMPILERS,  2/93\r\nC\r\n  900 IPX = 3\r\n      PX  = P(3)\r\n      IF (PX .LE. 0) GO TO 1530\r\n      NUSET = PX\r\n      L     = 2\r\n      NVAL  = IX(L)\r\n      CALL FNAME (T,TMP(1))\r\n      IF (TMP(1).NE.EQE .OR. TMP(2).NE.XIN) GO TO 1600\r\n      CALL OPEN (*1550,T,IX(IBUF2),0)\r\n      CALL FWDREC (*1560,T)\r\n      CALL FWDREC (*1560,T)\r\n      CALL READ (*1560,*910,T,IX(1),IBUF2-1,1,L)\r\n  910 CALL CLOSE (T,1)\r\n      IF (L .NE. NVAL*2) GO TO 1620\r\n      ITA = IPREC\r\n      ITB = ITA\r\n      CALL MAKMCB (MCB,OUT,NUSET,2,ITB)\r\n      INCR2 = 1\r\n      VAL(1)= 1.0\r\n      IF (ITA .EQ. 2) D(1) = 1.0D+0\r\n      TOT   = 0\r\n      IF (P2 .GT. 0) GO TO 930\r\nC\r\nC     NO TRANSPOSE\r\nC\r\n      DO 920 I = 1,NVAL\r\n      IS2 = I*2\r\n      A = IX(IS2)/10\r\n      B = MOD(IX(IS2),10)\r\n      C = CODE(B)\r\n      DO 920 J = 1,C\r\n      I2 = A\r\n      J2 = A\r\n      CALL PACK (VAL,OUT,MCB)\r\n  920 A = A + 1\r\n      TOT = TOT + C\r\n      GO TO 980\r\nC\r\nC     TRANSPOSE\r\nC\r\n  930 NVAL2 = NVAL*2\r\n      POS = 1\r\n      DO 940 I = 1,NVAL\r\n      IS2 = I*2\r\n      A = IX(IS2)/10\r\n      B = MOD(IX(IS2),10)\r\n      IX(IS2-1) = POS\r\n  940 POS = POS + CODE(B)\r\n      DO 970 I = 4,NVAL2,2\r\n      J = NVAL2\r\n      FLAG = 0\r\n  950 IF (IX(J) .GE. IX(J-2)) GO TO 960\r\n      FLAG = 1\r\n      K = IX(J  )\r\n      L = IX(J-1)\r\n      IX(J  ) = IX(J-2)\r\n      IX(J-1) = IX(J-3)\r\n      IX(J-2) = K\r\n      IX(J-3) = L\r\n  960 J = J - 2\r\n      IF (J .GE. I) GO TO 950\r\n      IF (FLAG .EQ. 0) GO TO 980\r\n  970 CONTINUE\r\nC\r\n  980 DO 990 I = 1,NVAL\r\n      IS2 = I*2\r\n      A = IX(IS2)/10\r\n      B = MOD(IX(IS2),10)\r\n      A = IX(IS2-1)\r\n      C = CODE(B)\r\n      DO 990 J = 1,C\r\n      I2 = A\r\n      J2 = A\r\n      CALL PACK (VAL,OUT,MCB)\r\n  990 A  = A + 1\r\n      TOT = NVAL*C\r\n      IF (NUSET .NE. TOT) GO TO 1640\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (OUT,1)\r\n      GO TO 1700\r\nC\r\nC     OPTION 10 - ALLOW USER TO ALTER DATA BLOCK TRAILER\r\nC     =========\r\nC     IF PI IS NEGATIVE, THE CORRESPONDING TRAILER WORD (I) IS SET TO\r\nC     ZERO\r\nC\r\n 1000 IF (IX(1) .EQ. 0) GO TO 1050\r\n      CALL FNAME (IX(1),IX(11))\r\n      WRITE  (NOUT,1010) UIM,IX(11),IX(12),(IX(I),I=2,7)\r\n 1010 FORMAT (A29,' FROM MATGEN MODULE, OPTION 10. TRAILER OF ',2A4,2H -\r\n     1,      /5X,'OLD - ',6I7)\r\n      DO 1020 I = 2,7\r\n      IF (P(I) .NE. 0) IX(I) = P(I)\r\n      IF (P(I) .LT. 0) IX(I) = 0\r\n 1020 CONTINUE\r\n      WRITE  (NOUT,1030) (IX(I),I=2,7)\r\n 1030 FORMAT (5X,'NEW - ',6I7)\r\n      IF (IX(2).EQ.IX(3) .AND. IX(4).EQ.2 .AND. IX(7).NE.0)\r\n     1   WRITE (NOUT,1040) UIM\r\n 1040 FORMAT (A29,'. SINCE ROW = COLUMN, RECTANGULAR FORM 2 WILL BE ',\r\n     1       'CHANGED TO SQUARE FORM 1 AUTOMATICALLY')\r\n      IX(1) = 199\r\n      CALL WRTTRL (IX(1))\r\n      GO TO 1700\r\nC\r\n 1050 WRITE  (NOUT,1060) UWM\r\n 1060 FORMAT (A25,' FROM MATGEN, OPTION 10. INPUT FILE MISSING')\r\n      GO TO 1700\r\nC\r\nC     OPTION 11 - GENERATE A RECTANGULAR MATRIX, DRIVEN BY USET TABLE\r\nC     =========   P2 = 1, GENERATE A NULL MATRIX\r\nC                  .NE.1, GENERATE A NULL MATRIX WITH AN IDENTITY MATRIX\r\nC                         STORED IN IT\r\nC                 P3 = NUMBER OF COLUMNS OF OUTPUT MATRIX, IF P2 = 1\r\nC                    = BIT POSITION OF SET THAT DEFINES NUMBER OF ROW,\r\nC                      IF P2.NE.1. SEE SECTION 1.4.10 FOR BIT POSITION\r\nC                      LIST. DEFAULT IS A-SET SIZE.\r\nC                 P4 = NOT USED IF P2 = 1. THE OUTPUT MATRIX WILL BE\r\nC                      NULL AND HAVE P3 COLUMNS AND A-SET SIZE ROWS\r\nC                    = BIT POSITION OF SET THAT DEFINES NUMB OF COLUMNS\r\nC                      IF P2.NE.1. DEFAULT IS L-SET SIZE\r\nC\r\nC                 IF P2.NE.1, AND ONE OR BOTH OF THE SETS REQUESTED IN\r\nC                 P3 AND P4 DOES NOT EXIST, THEN MAT IS RETURNED PURGED,\r\nC                 AND P5 IS RETURNED WITH THE VALUE OF -1. IF MAT DOES\r\nC                 EXISTS, P5 IS RETURNED WITH THE VALUE 0\r\nC\r\n 1100 WRITE  (NOUT,1200) UWM,P1\r\n 1200 FORMAT (A25,' FROM MATGEN MODULE, OPTION',I3,' IS NOT AVAILABLE')\r\n      GO TO 1700\r\nC\r\nC     WRAP-UP AND RETURN TO EXECUTIVE SYSTEM\r\nC\r\n 1400 CALL CLOSE  (OUT,1)\r\n      CALL WRTTRL (MCB)\r\n      GO TO 1700\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1500 CONTINUE\r\n      LCOR = SYSBUF - LCOR\r\n      CALL MESAGE (-8,LCOR,NAM)\r\n      GO TO 1700\r\nC\r\n 1510 WRITE  (NOUT,1520) UFM,P1\r\n 1520 FORMAT (A23,' IN MATGEN, ILLEGAL VALUE FOR OPTION PARAMETER =',I5)\r\n      GO TO 1690\r\nC\r\n 1530 WRITE  (NOUT,1540) UFM,IPX,PX\r\n 1540 FORMAT (A23,' IN MATGEN, ILLEGAL VALUE FOR PARAMETER ',I1,3H = ,\r\n     1        I5)\r\nC\r\n 1550 J = -1\r\n      GO TO 1570\r\n 1560 J = -2\r\n 1570 CALL MESAGE (J,T,NAM)\r\nC\r\n 1580 WRITE  (NOUT,1590) UFM,P1\r\n 1590 FORMAT (A23,'. OPTION',I3,' OUTPUT DATA BLOCK IS MISSING')\r\n      P1 = -1\r\n      GO TO  1700\r\n 1600 WRITE  (NOUT,1610) UFM,TMP(1),TMP(2)\r\n 1610 FORMAT (A23,'. OPTION 9. INPUT FILE IS ',2A4,', NOT EQEXIN')\r\n      GO TO  1690\r\n 1620 WRITE  (NOUT,1630) UFM,L,NVAL\r\n 1630 FORMAT (A23,'. EQEXIN RECORD LENGTH NOT MATCH TWICE TRAIL(2)',2I9)\r\n      GO TO  1690\r\n 1640 WRITE  (NOUT,1650) UFM,NUSET,TOT\r\n 1650 FORMAT (A23,'. OPTION 9, LUSET OF',I9,' DOES NOT AGREE WITH SIZE',\r\n     1       ' OF EQEXIN',I9)\r\n 1690 CALL MESAGE (-61,0,NAM)\r\n 1700 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matgpr.f",
    "content": "      SUBROUTINE MATGPR\r\nC\r\nC     DMAP FOR MATGPR MODULE\r\nC\r\nC     MATGPR    GPL,USET,SIL,KFS//C,N,F/C,N,S/C,N,PRTOPT/\r\nC                                 C,N,FILTER/C,N,FLTRFLAG $\r\nC\r\nC     THIS MODULE ENHANCED BY P.R.PAMIDI/RPK CORPORATION, 3/1988\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GPL,USET,SIL,IM(7),TWO1,ANDF,SYSBUF,CORE,BLANK,\r\n     1                OTPE,TYCOMP,SCALAR,COMPS(6),EXID,PRBUF(15),\r\n     2                HEAD2(32),IPRBF(4),ICHAR(17),PRBUFC(5)\r\n      INTEGER         NAME(2),EXTRA,HSET\r\n      REAL            A(4),PRBUFX(5),XXBUF(15)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /CONDAS/ IDUM(2),RADDEG\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /BITPOS/ IBITS(32),ICHAR\r\n      COMMON /OUTPUT/ HEAD(96),LABEL(96)\r\n      COMMON /ZNTPKX/ IA(4),II,IEOL,IEOR\r\n      COMMON /BLANK / IISET(2),KKSET(2),IPOPT(2),FILTER,IFLFLG\r\n      COMMON /TWO   / TWO1(32)\r\n      EQUIVALENCE     (XXBUF(1),PRBUF(1))\r\n      EQUIVALENCE     (PRBUFC(1),PRBUFX(1))\r\n      EQUIVALENCE     (IA(1), A(1))\r\n      DATA    GPL,USET,SIL,MATRX    / 101   ,102   ,103   ,104     /\r\n      DATA    SCALAR,COMPS,NLINE    / 4H S  ,4HT1  ,4HT2  ,4HT3    ,\r\n     1                                4HR1  ,4HR2  ,4HR3  ,15      /\r\n      DATA    NAME  / 4HMATG, 4HPR  /\r\n      DATA    NULL  / 4HNULL        /\r\n      DATA    BLANK,  EXTRA,  HSET  / 4H    ,4H E  ,4H H           /\r\n      DATA    IHSET / 4HH           /\r\n      DATA    IALLP / 4HALLP        /\r\n      DATA    HEAD2 /\r\n     1        4H    , 4HPOIN, 4HT   , 4H    , 4H   V, 4HALUE, 4H    ,\r\n     2        4H POI, 4HNT  , 4H    , 4H    , 4HVALU, 4HE   , 4H  P0,\r\n     3        4HINT , 4H    , 4H    , 4H VAL, 4HUE  , 4H   P, 4HOINT,\r\n     4        4H    , 4H    , 4H  VA, 4HLUE , 4H    , 4H POI, 4HNT  ,\r\n     5        4H    , 4H    , 4HVALU, 4HE   /\r\nC\r\nC\r\n      ISET = IISET(1)\r\n      KSET = KKSET(1)\r\n      INLOPT = 0\r\n      IF (IPOPT(1) .EQ. NULL) INLOPT = 1\r\n      IF (FILTER   .EQ.  0.0) GO TO 5\r\n      IFLAG = 1\r\n      IF (FILTER .LT. 0.0) IFLAG = 2\r\n      IF (IFLFLG .NE.   0) IFLAG = IFLAG + 2\r\n    5 IM(1) = MATRX\r\n      CALL RDTRL (IM(1))\r\n      IF (IM(1) .LT. 0) GO TO 380\r\nC\r\nC     CONVERT BCD TO BIT POSITION IN USET\r\nC\r\n      DO 10 I = 1,32\r\n      IF (ICHAR(I) .EQ. ISET) GO TO 20\r\n   10 CONTINUE\r\n      IF (ISET .NE. IHSET) GO TO 15\r\n      ISET = -1\r\n      GO TO 21\r\n   15 WRITE  (OTPE,16) UWM,IISET\r\n   16 FORMAT (A25,', UNKNOWN SET ',2A4,' SPECIFIED FOR THE FIRST PARA',\r\n     1        'METER OF THE MATGPR MODULE.  MODULE NOT EXECUTED.')\r\n      RETURN\r\nC\r\n   20 ISET = IBITS(I)\r\n   21 CONTINUE\r\n      DO 30 I = 1,32\r\n      IF (ICHAR(I) .EQ. KSET) GO TO 40\r\n   30 CONTINUE\r\n      KSET = ISET\r\n      GO TO 50\r\n   40 KSET = IBITS(I)\r\n   50 CONTINUE\r\n      LCORE = KORSZ(CORE) - SYSBUF\r\n      IBUF  = LCORE + 1\r\n      IF (ISET+KSET .EQ. -2)  GO TO 51\r\n      CALL GOPEN (GPL,CORE(IBUF),0)\r\n      CALL READ  (*460,*60,GPL,CORE(1),LCORE,0,LGPL)\r\n      CALL CLOSE (GPL,1)\r\n      GO TO 500\r\nC\r\nC     NSET ONLY  NO GPL,USET,  ETC.\r\nC\r\n   51 LGPL  = 0\r\n      LUSET = 0\r\n      LSIL  = 0\r\n      IUSET = 1\r\n      ISIL  = 1\r\n      GO TO 81\r\n   60 CALL CLOSE (GPL,1)\r\n      LCORE = LCORE - LGPL\r\n      CALL GOPEN (USET,CORE(IBUF),0)\r\n      IUSET = LGPL + 1\r\n      CALL READ  (*480,*70,USET,CORE(LGPL+1),LCORE,0,LUSET)\r\n      CALL CLOSE (USET,1)\r\n      GO TO 500\r\n   70 CALL CLOSE (USET,1)\r\n      LCORE = LCORE - LUSET\r\n      CALL GOPEN (SIL,CORE(IBUF),0)\r\n      ISIL  = LGPL + LUSET + 1\r\n      CALL READ  (*490,*80,SIL,CORE(ISIL),LCORE,0,LSIL)\r\n      CALL CLOSE (SIL,1)\r\n      GO TO 500\r\n   80 CALL CLOSE (SIL,1)\r\n      K = ISIL + LSIL\r\n      LCORE   = LCORE - LSIL - 1\r\n      CORE(K) = LUSET + 1\r\nC\r\nC     LOAD HEADER FOR PAGES\r\nC\r\n      LSIL = LSIL + 1\r\n   81 CONTINUE\r\n      DO 90 I = 1,96\r\n   90 LABEL(I) = BLANK\r\n      DO 100 I = 1,32\r\n      K = 32 + I\r\n  100 LABEL(K) = HEAD2(I)\r\n      NCOL  = IM(2)\r\n      CALL FNAME (MATRX,LABEL(4))\r\n      CALL GOPEN (MATRX,CORE(IBUF),0)\r\n      IE    = IBITS(12)\r\n      INULL = 0\r\n      LOOP  = 0\r\n      ICMPX = 1\r\n      IF (IM(5) .GT. 2) ICMPX = 3\r\n      IF (ISET .NE. -1) MASK  = TWO1(ISET)\r\n      IF (KSET .NE. -1) MASK1 = TWO1(KSET)\r\n      MUSET = 0\r\n      JC    = 0\r\n      IKSIL = 1\r\n      L     = 1\r\n      ASSIGN 210 TO IOUT\r\n      CALL PAGE\r\nC\r\nC     START LOOP ON EACH COLUMN\r\nC\r\n  110 LOOP = LOOP + 1\r\n      CALL INTPK (*390,MATRX,0,ICMPX,0)\r\n      IF (INULL .NE. 0) GO TO 400\r\n  120 CONTINUE\r\n      IF (INLOPT .EQ. 1) GO TO 359\r\nC\r\nC     CHECK FOR HSET\r\nC\r\n  121 IF (ISET  .EQ.   -1) GO TO 150\r\n      IF (MUSET .EQ. LOOP) GO TO 160\r\n  130 JC = JC + 1\r\n      IF (JC .GT. LUSET) GO TO 150\r\n      KK = LGPL + JC\r\n      IF (ANDF(CORE(KK),MASK)) 140,130,140\r\nC\r\nC     FOUND COLUMN IN USET\r\nC\r\n  140 MUSET = MUSET + 1\r\n      GO TO 121\r\nC\r\nC     COLUMN NOT IN USET\r\nC\r\n  150 IPRBF(L  ) = LOOP\r\n      IPRBF(L+1) = HSET\r\n      GO TO 200\r\nC\r\nC     JC IS INDEX OF NON-ZERO IN G SET-- SOOK UP SIL\r\nC\r\n  160 IF (IKSIL .EQ. LSIL+1) GO TO 150\r\n      KK = ISIL + IKSIL\r\n      IF (JC .LT. CORE(KK)) GO TO 170\r\n      IKSIL = IKSIL + 1\r\n      GO TO 160\r\n  170 ICOMP = JC - CORE(KK-1) + 1\r\n      IF (ICOMP .NE. 1) GO TO 180\r\nC\r\nC     CHECK FOR SCALAR POINT\r\nC\r\n      IF (CORE(KK)-CORE(KK-1) .GT. 1) GO TO 180\r\n      TYCOMP = SCALAR\r\nC\r\nC     CHECK FOR EXTRA\r\nC\r\n      KK = LGPL + JC\r\n      IF (ANDF(CORE(KK),TWO1(IE))) 171,190,171\r\n  171 TYCOMP = EXTRA\r\n      GO TO 190\r\n  180 TYCOMP = COMPS(ICOMP)\r\n  190 EXID   = CORE(IKSIL)\r\n      IPRBF(L+1) = TYCOMP\r\n      IPRBF(L  ) = EXID\r\n  200 GO TO IOUT, (210,420,430)\r\n  210 WRITE  (OTPE,220)LOOP,IPRBF(1),IPRBF(2)\r\n  220 FORMAT ('0COLUMN',I8,2H (,I8,1H-,A2,2H).)\r\n      LINE  = LINE + 2\r\n      IF (LINE .GE.NLPP) CALL PAGE\r\n      JJ    = 0\r\n      KUSET = 0\r\n      KSIL  = 1\r\n      IPB   = 1\r\n      IPBC  = 1\r\n      IEND  = 0\r\n  230 IF (IEOL) 350,240,350\r\n  240 CALL ZNTPKI\r\nC\r\nC     CHECK FILTER\r\nC\r\n      IF (FILTER .EQ. 0.0) GO TO 246\r\nC\r\nC     FILTER IS NON-ZERO\r\nC\r\n      VALUE = A(1)\r\n      IF (ICMPX .EQ. 3) VALUE = SQRT(A(1)*A(1) + A(2)*A(2))\r\n      GO TO (241,242,243,244), IFLAG\r\nC\r\n  241 IF (ABS(VALUE) .LT. FILTER) GO TO 230\r\n      GO TO 246\r\n  242 IF (ABS(VALUE) .GT. ABS(FILTER)) GO TO 230\r\n      GO TO 246\r\n  243 IF (VALUE.LT.FILTER .AND. VALUE.GT.0.0) GO TO 230\r\n      GO TO 246\r\n  244 IF (VALUE.GT.FILTER .AND. VALUE.LT.0.0) GO TO 230\r\nC\r\nC     CHECK FOR HSET\r\nC\r\n  246 IF (KSET .EQ. -1) GO TO 306\r\nC\r\nC     LOOK UP ROW IN USET\r\nC\r\n  250 IF (KUSET .GT. LUSET+1) GO TO 500\r\n      IF (KUSET .EQ.      II) GO TO 280\r\n  260 JJ = JJ + 1\r\nC\r\nC     PROTECT AGINST NO BITPOS OR NO USET\r\nC\r\n      IF (JJ .GT. LUSET) GO TO 306\r\n      KK = LGPL + JJ\r\n      IF (ANDF(CORE(KK),MASK1)) 270,260,270\r\nC\r\nC     FOUND ELEMENT IN USET\r\nC\r\n  270 KUSET = KUSET + 1\r\n      GO TO 250\r\nC\r\nC     JJ IS INDEX OF NON-ZERO IN G SET - NOW SEARCH SIL FOR JJ\r\nC\r\n  280 IF (KSIL .EQ. LSIL+1) GO TO 510\r\n      KK = ISIL + KSIL\r\n      IF (JJ .LT. CORE(KK)) GO TO 290\r\n      KSIL = KSIL + 1\r\n      GO TO 280\r\n  290 ICOMP = JJ - CORE(KK-1) + 1\r\n      IF (ICOMP .NE. 1) GO TO 300\r\nC\r\nC     CHECK FOR SCALAR POINT\r\nC\r\n      IF (CORE(KK)-CORE(KK-1) .GT. 1) GO TO 300\r\n      TYCOMP = SCALAR\r\nC\r\nC     CHECK FOR EXTRA POINT\r\nC\r\n      KK = LGPL + JJ\r\n      IF (ANDF(CORE(KK),TWO1(IE))) 305,310,305\r\nC\r\nC     EXTRA POINT\r\nC\r\n  305 TYCOMP = EXTRA\r\n      GO TO 310\r\nC\r\nC     H POINT\r\nC\r\n  306 TYCOMP = HSET\r\n      EXID   = II\r\n      GO TO 311\r\n  300 TYCOMP = COMPS(ICOMP)\r\n  310 EXID   = CORE(KSIL)\r\n  311 IF (IPB .GE. NLINE) GO TO 330\r\n  320 PRBUF(IPB  ) = EXID\r\n      PRBUF(IPB+1) = TYCOMP\r\n      IF (ICMPX .EQ. 1) GO TO 325\r\n      IF (IPOPT(1) .NE. IALLP) GO TO 325\r\n      AMAG = SQRT(A(1)*A(1) + A(2)*A(2))\r\n      IF (AMAG .EQ. 0.0) GO TO 325\r\n      A(2) = ATAN2(A(2),A(1))*RADDEG\r\n      IF (A(2) .LT. -0.00005) A(2) = A(2) + 360.0\r\n      A(1) = AMAG\r\n  325 PRBUF(IPB+2) = IA(1)\r\n      PRBUFC(IPBC) = IA(2)\r\n      IPBC = IPBC + 1\r\n      IPB  = IPB  + 3\r\n      GO TO 230\r\n  330 IPB1 = IPB  - 1\r\n      IPBC = IPBC - 1\r\n      WRITE  (OTPE,340) (PRBUF(I),PRBUF(I+1),XXBUF(I+2),I=1,IPB1,3)\r\n  340 FORMAT (5X,5(1X,I8,1X,1A2,1X,1P,E12.5))\r\n      LINE = LINE + 1\r\n      IF (ICMPX .EQ. 1) GO TO 343\r\n      WRITE  (OTPE,341) (PRBUFX(I),I=1,IPBC)\r\n  341 FORMAT (5X,5(13X,1P,E12.5))\r\n      WRITE  (OTPE,342)\r\n  342 FORMAT (1H )\r\n      LINE = LINE + 2\r\n  343 CONTINUE\r\n      IPBC = 1\r\n      IPB  = 1\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      IF (IEND .EQ. 1) GO TO 360\r\n      GO TO 320\r\nC\r\nC     END OF COLUMN\r\nC\r\n  350 IEND = 1\r\n      IF (IPB .EQ. 1) GO TO 360\r\n      GO TO 330\r\n  359 CALL FWDREC (*510,MATRX)\r\n  360 IF (LOOP  .NE. NCOL) GO TO 110\r\n      IF (INULL .NE.    0) GO TO 450\r\n  370 CALL CLOSE (MATRX,1)\r\n  380 RETURN\r\nC\r\n  390 IF (INULL .NE. 0) GO TO 360\r\n      INULL = 1\r\n      IBEGN = LOOP\r\n      GO TO 360\r\n  400 IFIN  = LOOP - 1\r\n      INULL = 0\r\n  410 LOOPS = LOOP\r\n      LOOP  = IBEGN\r\n      ASSIGN 420 TO IOUT\r\n      GO TO 121\r\n  420 L = 3\r\n      LOOP = IFIN\r\n      ASSIGN 430 TO IOUT\r\n      GO TO 121\r\n  430 ASSIGN 210 TO IOUT\r\n      L = 1\r\n      LOOP = LOOPS\r\n      WRITE  (OTPE,440) IBEGN,IPRBF(1),IPRBF(2),IFIN,IPRBF(3),IPRBF(4)\r\n  440 FORMAT ('0COLUMNS',I8,2H (,I8,1H-,A2,6H) THRU,I8,2H (,I8,1H-,A2,\r\n     1        11H) ARE NULL.)\r\n      LINE = LINE + 2\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      IF (IFIN .NE. NCOL) GO TO 120\r\n      GO TO 370\r\n  450 IFIN = LOOP\r\n      GO TO 410\r\n  460 IN = GPL\r\n  470 CALL MESAGE (-2,IN,NAME)\r\n  480 IN = USET\r\n      GO TO 470\r\n  490 IN = SIL\r\n      GO TO 470\r\n  500 CALL MESAGE (8,0,NAME)\r\n      GO TO 370\r\n  510 CALL MESAGE (7,0,NAME)\r\n      GO TO 370\r\n      END\r\n"
  },
  {
    "path": "mis/matprn.f",
    "content": "      SUBROUTINE MATPRN\r\nC\r\nC     MATRIX PRINT MODULE\r\nC     WILL PRINT UP TO 5 DBi INPUT MATRICES\r\nC     INPUT MATRICES CAN BE IN S.P, D.P, S.P.COMPLEX, OR D.P.COMPLEX\r\nC\r\nC     MATPRN  DB1,DB2,DB3,DB4,DB5//C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,P5/\r\nC                                  C,N,P6\r\nC\r\nC     WHERE   P1 AND P2 ARE PRINT FORMAT CONTROLS\r\nC             P1 = 0, MATRICES PRINTED IN THEIR ORIG. PREC. (DEFAULT),\r\nC                = 1, MATRICES PRINTED IN S.P. PREC. (e.g.  x.xxxE+xx)\r\nC                = 2, MATRICES PRINTED IN D.P. PREC. (e.g. -x.xxxD+xx)\r\nC                =-1, ONLY THE DIAGONAL ELEMENTS OF THE MATRIX WILL BE\r\nC                     PRINTED IN THEIR ORIG. PRECISON\r\nC             P2 = NO. OF DATA VALUES PRINTED PER LINE (132 DIGITS/LINE)\r\nC                = 8 TO 14 IF MATRICES ARE PRINTED IN S.P. (DEFAULT=10)\r\nC                = 6 TO 12 IF MATRICES ARE PRINTED IN D.P. (DEFAULT= 9)\r\nC\r\nC             P3, P4, P5 ARE PRINTOUT CONTROLS\r\nC             P3 = m, MATRIX COLUMNS, 1 THRU m, WILL BE PRINTED.\r\nC                  DEFAULT = 0, ALL MATRIX COLUMNS WILL BE PRINTED.\r\nC                =-m, SEE P4 = -n\r\nC             P4 = n, LAST n MATRIX COLUMNS ARE PRINTED. DEFAULT = 0\r\nC                =-n, AND P3 = -m, EVERY OTHER n MATRIX COLUMNS WILL BE\r\nC                  PRINTED, STARTIN FROM COLUMN m.\r\nC             P5 = k, EACH PRINTED COLUMN WILL NOT EXCEED k LINES LONG\r\nC                  AND THE REMAINING DATA WILL BE OMITTED.\r\nC             P6 = LU, WHERE LU LOGICAL FILE NUMBER = 11(UT1), 12(UT2),\r\nC                  14(INPT), 15(INT1),...,23(INT9), 24(IBM'S INPT).\r\nC                  DEFAULT IS ZERO, SYSTEM PRINTER.\r\nC                  IF LU IS 11 THRU 24, THE MATRIX PRINTOUT IS SAVED IN\r\nC                  FORTRAN UNIT LU.\r\nC\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS\r\nC     12/91, NEW MODULE PARAMETERS TO ALLOW USER SOME CONTROL OVER\r\nC            POSSIBLY MASSIVE MATRIX PRINTOUT\r\nC     8/92,  TO PRINT ONLY THE DIAGONAL ELEMENTS FOR POSSIBLY MATRIX\r\nC            SINGULARITY CHECK, AND PARAMETER P6\r\nC\r\n      INTEGER         P1,P2,P3,P4,P5,P6\r\n      DIMENSION       MCB(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / P1,P2,P3,P4,P5,P6\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\nC\r\n      IF (P1.LE.2 .AND. P2.LE.14) GO TO 30\r\n      WRITE  (NOUT,10) UWM,P1,P2,P3,P4,P5,P6\r\n   10 FORMAT (A25,', MATPRN PARAMETERS APPEAR IN ERROR.  P1,P2,P3,P4,',\r\n     1        'P5,P6 =',6I5, /5X,'P1 IS RESET TO ZERO, AND P2 TO 6 TO',\r\n     2        ' 14 DEPENDING ON TYPE OF DATA')\r\nC\r\nC     CHECK THAT USER REALY WANTS TO SET P3,P4,P5, AND INSTEAD HE SETS\r\nC     THEM TO P1,P2,P3\r\nC\r\n      IF (P4.NE.0 .OR. P5.NE.0 .OR. P3.GT.50) GO TO 30\r\n      P3 = P1\r\n      P4 = P2\r\n      P5 = P3\r\n      WRITE  (NOUT,20) P3,P4,P5\r\n   20 FORMAT (5X,'P3,P4,P5 ARE SET TO ',3I5)\r\n      GO TO 30\r\n   30 DO 110 I = 1,5\r\n      MCB(1) = 100 + I\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LT. 0) GO TO 110\r\n      IF (P1 .EQ. -1) GO TO 90\r\n      ITYP = MCB(5)\r\n      NDPL = P2\r\n      IF (NDPL .NE. 0) GO TO 40\r\n      NDPL = 9\r\n      IF (MOD(ITYP,2) .EQ. 1) NDPL = 10\r\n   40 NPL  = NDPL\r\n      GO TO (50,60,70,80), ITYP\r\n   50 IF (NDPL .LT.  8) NPL = 8\r\n      IF (NDPL .GT. 14) NPL = 14\r\n      GO TO 90\r\n   60 IF (NDPL .LT.  6) NPL = 6\r\n      IF (NDPL .GT. 12) NPL = 12\r\n      GO TO 90\r\n   70 NDPL = (NDPL/2)*2\r\n      NPL  = NDPL\r\n      IF (P1.LE.0 .OR. P1.GT.2) GO TO 50\r\n      GO TO (50,60), P1\r\n   80 NDPL = (NDPL/2)*2\r\n      NPL  = NDPL\r\n      IF (P1.LE.0 .OR. P1.GT.2) GO TO 60\r\n      GO TO (50,60), P1\r\n   90 IPREC = P1\r\n      IF (IPREC.EQ.1 .OR. IPREC.EQ.2 .OR. P1.EQ.-1) GO TO 100\r\n      IPREC = 2\r\n      IF (MOD(ITYP,2) .EQ. 1) IPREC = 1\r\n  100 IOUT = NOUT\r\n      IF (P6.GE.11 .AND. P6.LE.24) IOUT = P6\r\n      CALL MATDUM (MCB(1),IPREC,NPL,IOUT)\r\n  110 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matprt.f",
    "content": "      SUBROUTINE MATPRT (*,*,A,OPTION,COLUMN)\r\nC\r\nC     MATPRT AND PRTMAT ARE CALLED ONLY BY INTPRT\r\nC\r\n      REAL            A(1)\r\n      INTEGER         OPTION,COLUMN(1),FILE,TYPE,BUFSIZ,COUNT,\r\n     1                UTYPE,UI,UJ,UINC,RSP,RDP,CSP,CDP,REW\r\n      COMMON /SYSTEM/ BUFSIZ,MO,SKP1(6),MAXLIN,SKP2(2),COUNT\r\n      COMMON /UNPAKX/ UTYPE,UI,UJ,UINC\r\n      COMMON /XXMPRT/ MCB(7)\r\nC\r\nC     MCB = MATRIX CONTROL BLOCK.\r\nC     A   = ARRAY OF BUFSIZ + I (REAL) OR 2I (COMPLEX) LOCATIONS.\r\nC     OPTION IS AS DESCRIBED IN -VECPRT-.\r\nC     RETURN 1 ... PRINT MATRIX TITLE + COLUMN IDENTIFIER.\r\nC     RETURN 2 ... PRINT COLUMN IDENTIFIER ONLY.\r\nC                  (PRTMAT = RETURN ENTRY POINT)\r\nC     COLUMN = CURRENT COLUMN NUMBER\r\nC\r\n      EQUIVALENCE (FILE,MCB(1)), (J,MCB(2)), (I,MCB(3)), (TYPE,MCB(5))\r\n      DATA        RSP,RDP,CSP,CDP,REW,INPREW / 1,2,3,4,1,0 /\r\nC\r\n      IF (I.LE.0 .OR. J.LE.0)  GO TO 150\r\n      UTYPE = TYPE\r\n      IF (TYPE .EQ. RDP) UTYPE = RSP\r\n      IF (TYPE .EQ. CDP) UTYPE = CSP\r\n      UI   = 1\r\n      UJ   = I\r\n      UINC = 1\r\n      CALL GOPEN (FILE,A,INPREW)\r\n      COUNT = MAXLIN\r\nC\r\n      COLUMN(1) = 0\r\n  110 COLUMN(1) = COLUMN(1) + 1\r\n      CALL UNPACK (*140,FILE,A(BUFSIZ+1))\r\n      CALL VECPRT (*120,*130,UTYPE,I,A(BUFSIZ+1),OPTION)\r\n      GO TO 140\r\n  120 RETURN 1\r\n  130 RETURN 2\r\nC\r\nC\r\n      ENTRY PRTMAT (*,*,COLUMN)\r\nC     =========================\r\nC\r\n      CALL PRTVEC (*120,*130)\r\n  140 IF (COLUMN(1) .NE. J) GO TO 110\r\nC\r\n      CALL CLOSE (FILE,REW)\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matvc2.f",
    "content": "      SUBROUTINE MATVC2 (Y,X,FILEA,BUF)\r\nC\r\nC     MATVC2 WILL FORM THE PRODUCT X = X + A*Y WHERE A IS A MATRIX\r\nC     AND Y IS A VECTOR\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      INTEGER            FILEA(7)  ,SUB(2)   ,DIAG     ,RDP     ,EOL\r\n      DOUBLE PRECISION   Y(1)      ,X(1)     ,A        ,DA\r\n      DIMENSION          BUF(1)\r\n      COMMON   /ZNTPKX/  A(2)      ,II       ,EOL\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,IWTRI    ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /TRDXX /  IDUM(27)  ,IOPEN\r\n      EQUIVALENCE        (A(1),DA)\r\n      DATA      SUB   /  4HMATV, 4HC2   /\r\nC\r\n      IF (FILEA(1) .EQ. 0) RETURN\r\n      NCOL = FILEA(2)\r\n      IF (FILEA(4) .EQ. IDENTY) GO TO 60\r\n      IF (IOPEN .EQ. 1) GO TO 5\r\n      CALL OPEN (*90,FILEA(1),BUF,RDREW)\r\n    5 CALL FWDREC (*100,FILEA(1))\r\n      IF (FILEA(4) .EQ. DIAG) GO TO 40\r\nC\r\nC     MATRIX IS FULL\r\nC\r\n      DO 30 I = 1,NCOL\r\n      IF (Y(I) .EQ. 0.0D0) GO TO 20\r\n      CALL INTPK (*30,FILEA(1),0,RDP,0)\r\n   10 CALL ZNTPKI\r\n      X(II) = DA*Y(I) + X(II)\r\n      IF (EOL) 30,10,30\r\n   20 CALL FWDREC (*100,FILEA(1))\r\n   30 CONTINUE\r\n      GO TO 80\r\nC\r\nC     MATRIX IS DIAGONAL\r\nC\r\n   40 CALL INTPK (*80,FILEA(1),0,RDP,0)\r\n   50 CALL ZNTPKI\r\n      X(II) = Y(II)*DA +X(II)\r\n      IF (EOL) 80,50,80\r\nC\r\nC     MATRIX IS THE IDENTITY\r\nC\r\n   60 DO 70 I = 1,NCOL\r\n   70 X(I) = Y(I) + X(I)\r\n      RETURN\r\nC\r\n   80 CALL REWIND (FILEA(1))\r\n      IF (IOPEN .EQ. 0) CALL CLOSE (FILEA(1),REW)\r\n      RETURN\r\nC\r\n   90 NO = -1\r\n      GO TO 110\r\n  100 NO = -2\r\n  110 CALL MESAGE (NO,FILEA(1),SUB(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matvec.f",
    "content": "      SUBROUTINE MATVEC (Y,X,FILEA,BUF)\r\nC\r\nC     MATVEC WILL FORM THE PRODUCT X = X + A*Y WHERE A IS A MATRIX\r\nC     AND Y IS A VECTOR\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      INTEGER            FILEA(7)  ,SUB(2)   ,DIAG     ,RSP      ,EOL\r\n      DIMENSION          Y(1)      ,X(1)     ,BUF(1)\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,IWTRI    ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /TRDXX /  IDUM(27)  ,IOPEN\r\n      EQUIVALENCE        (A(1),DA)\r\n      DATA      SUB   /  4HMATV, 4HEC   /\r\nC\r\n      IF (FILEA(1) .EQ. 0) RETURN\r\n      NCOL = FILEA(2)\r\n      IF (FILEA(4) .EQ. IDENTY) GO TO 60\r\n      IF (IOPEN .EQ. 1) GO TO 5\r\n      CALL OPEN (*90,FILEA(1),BUF,RDREW)\r\n    5 CALL FWDREC (*100,FILEA(1))\r\n      IF (FILEA(4) .EQ. DIAG) GO TO 40\r\nC\r\nC     MATRIX IS FULL\r\nC\r\n      DO 30 I = 1,NCOL\r\n      IF (Y(I) .EQ. 0.0) GO TO 20\r\n      CALL INTPK (*30,FILEA(1),0,RSP,0)\r\n   10 CALL ZNTPKI\r\n      X(II) = DA*Y(I) + X(II)\r\n      IF (EOL) 30,10,30\r\n   20 CALL FWDREC (*100,FILEA(1))\r\n   30 CONTINUE\r\n      GO TO 80\r\nC\r\nC     MATRIX IS DIAGONAL\r\nC\r\n   40 CALL INTPK (*80,FILEA(1),0,RSP,0)\r\n   50 CALL ZNTPKI\r\n      X(II) = Y(II)*DA +X(II)\r\n      IF (EOL) 80,50,80\r\nC\r\nC     MATRIX IS THE IDENTITY\r\nC\r\n   60 DO 70 I = 1,NCOL\r\n   70 X(I) = Y(I) + X(I)\r\n      RETURN\r\nC\r\n   80 CALL REWIND (FILEA(1))\r\n      IF (IOPEN .EQ. 0) CALL CLOSE (FILEA(1),REW)\r\n      RETURN\r\nC\r\n   90 NO = -1\r\n      GO TO 110\r\n  100 NO = -2\r\n  110 CALL MESAGE (NO,FILEA(1),SUB(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/matwrt.f",
    "content": "      SUBROUTINE MATWRT (IFILE,XNAME,XITEM,LCORE)\r\nC\r\n      INTEGER         OTPE,SYSBUF\r\n      DOUBLE PRECISION DCOL\r\n      DIMENSION       IA(7),TYPE(10),FORM(18),DCOL(1),XNAME(2)\r\n      COMMON /ZZZZZZ/ COL(1)\r\n      COMMON /UNPAKX/ IT,K,L,INCR\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE\r\n      COMMON /OUTPUT/ HEAD1(96),HEAD2(96)\r\n      EQUIVALENCE     (COL(1),DCOL(1))\r\n      DATA    TYPE  / 4HREAL,4H    ,4HDB  ,4HPREC,4HCOMP,4HLEX ,4HCMP ,\r\n     1                4HD.P.,4HILL ,4HDEFN/\r\n      DATA    FORM  / 4HSQUA,4HRE  ,4HRECT,4HANG ,4HDIAG,4HONAL,4HLOW ,\r\n     1                4HTRI ,4HUPP ,4HTRI ,4HSYME,4HTRIC,4HVECT,4HOR  ,\r\n     2                4HIDEN,4HITY ,4HILL ,4HDEFN/\r\n      DATA    BLANK , SU    ,BSTR  ,UCTU  ,RE    ,XIT   ,EM    ,CONT  /\r\n     1        4H    , 4H  SU,4HBSTR,4HUCTU,4HRE  ,4H  IT,4HEM  ,4HCONT/\r\n      DATA    XINUE , DX    /\r\n     1        4HINUE, 4HD   /\r\nC\r\nC\r\nC     TRANSFER MATRIX FORM SOF TO GINO\r\nC\r\n      CALL MTRXI (IFILE,XNAME,XITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) RETURN\r\n      IA(1) = IFILE\r\n      CALL RDTRL (IA(1))\r\nC\r\n      DO 10 I = 1,96\r\n   10 HEAD2(I)  = BLANK\r\n      HEAD2( 1) = SU\r\n      HEAD2( 2) = BSTR\r\n      HEAD2( 3) = UCTU\r\n      HEAD2( 4) = RE\r\n      HEAD2( 5) = XNAME(1)\r\n      HEAD2( 6) = XNAME(2)\r\n      HEAD2( 7) = XIT\r\n      HEAD2( 8) = EM\r\n      HEAD2( 9) = XITEM\r\n      HEAD2(11) = CONT\r\n      HEAD2(12) = XINUE\r\n      HEAD2(13) = DX\r\n      NAMEA = IFILE\r\n      LCOL  = LCORE - SYSBUF\r\n      INCR  = 1\r\n      CALL GOPEN (NAMEA,COL(LCOL+1),0)\r\n      IT = IA(5)\r\n      IF (IT.LE.0 .OR. IT.GT.4) IT = 5\r\n      IF = IA(4)\r\n      IF (IF.LE.0 .OR. IF.GT.8) IF = 9\r\n      NCOL = IA(2)\r\n      NROW = IA(3)\r\n      IF (IF .EQ. 7) NCOL = IA(3)\r\n      CALL PAGE1\r\n      WRITE (OTPE,20) XNAME,XITEM,TYPE(2*IT-1),TYPE(2*IT),NCOL,NROW,\r\n     X                FORM(2*IF-1),FORM(2*IF)\r\n   20 FORMAT (1H0,6X,13HSUBSTRUCTURE ,2A4,6H ITEM ,A4,6H IS A ,2A4,\r\n     X        1X,I6,10H COLUMN X ,I6,5H ROW ,2A4,8H MATRIX. )\r\n      IF (IT.EQ.5 .OR. IF.EQ.9 .OR. NCOL.EQ.0 .OR. NROW.EQ.0) GO TO 320\r\n      IF (IF-8) 30,300,320\r\n   30 IF (IF.NE.3 .AND. IF.NE.7) GO TO 40\r\n      NCOL = 1\r\n      NROW = IA(3)\r\n   40 INULL= 0\r\n      IT1  = 5\r\n      IF (IT.EQ.1 .OR. IT.EQ.3) IT1 = 9\r\n      ASSIGN 60 TO IHOP\r\n      JJ = 1\r\n   50 K  = 0\r\n      L  = 0\r\n      CALL UNPACK (*190,NAMEA,COL)\r\n      IF (INULL .EQ. 1) GO TO 330\r\n   60 NROW = L - K + 1\r\n      GO TO (80,80,220,80,80,80,240), IF\r\n   80 WRITE (OTPE,90) JJ,K,L\r\n      LINE = LINE + 3\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n   90 FORMAT (8H0COLUMN ,I6,5X,6H ROWS ,I6,6H THRU ,I6,5X,50(1H-),/1H )\r\n      IF (IT .GT. 2) NROW = 2*NROW\r\n   91 K = 0\r\n  100 J = K + 1\r\n      IF (J .GT. NROW) GO TO 200\r\n      K = J + IT1\r\n      IF (K .GT. NROW) K = NROW\r\n      GO TO (110,130,150,170), IT\r\nC\r\nC     REAL SINGLE PRECISION\r\nC\r\n  110 WRITE  (OTPE,120) (COL(I),I=J,K)\r\n  120 FORMAT (1X,1P,10E13.5)\r\n  121 LINE = LINE + 1\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n      GO TO 100\r\nC\r\nC     REAL DOUBLE PRECISION\r\nC\r\n  130 WRITE  (OTPE,140) (DCOL(I),I=J,K)\r\n  140 FORMAT (1P,6D22.14)\r\n      GO TO 121\r\nC\r\nC     COMPLEX SINGLE\r\nC\r\n  150 WRITE  (OTPE,160) (COL(I),I=J,K)\r\n  160 FORMAT (5(1P,E12.4,1H+,1P,E12.4,1HI))\r\n      GO TO 121\r\nC\r\nC     COMPLEX DOUBLE\r\nC\r\n  170 WRITE  (OTPE,180) (DCOL(I),I=J,K)\r\n  180 FORMAT (3(1P,D20.12,1H+,1P,D20.12,2HI ))\r\n      GO TO 121\r\n  190 IF (INULL .EQ. 1) GO TO 200\r\n      IBEGN = JJ\r\n      INULL = 1\r\n  200 JJ =  JJ + 1\r\n      IF (JJ  .LE. NCOL) GO TO 50\r\n      ASSIGN 210 TO IHOP\r\n      IF (INULL .EQ. 1) GO TO 330\r\n  210 CALL CLOSE (NAMEA,1)\r\n      GO TO 270\r\n  220 WRITE (OTPE,230)K,L\r\n      LINE = LINE + 2\r\n  230 FORMAT (30H0DIAGONAL ELEMENTS FOR COLUMNS,I6,3H TO,I7,4H ARE,/1H0)\r\n      GO TO 91\r\n  240 WRITE (OTPE,250) K,L\r\n      LINE = LINE + 2\r\n  250 FORMAT (25H0ROW ELEMENTS FOR COLUMNS,I6,4H TO ,I6,4H ARE ,/1H0 )\r\n      GO TO 91\r\n  270 WRITE  (OTPE,280) IA(6)\r\n  280 FORMAT (53H0THE NUMBER OF NON-ZERO WORDS IN THE LONGEST RECORD =,\r\n     1        I8 )\r\n      IA7A = IA(7)/100\r\n      IA7C = IA(7) - 100*IA7A\r\n      IA7B = IA7C/10\r\n      IA7C = IA7C - 10*IA7B\r\n      WRITE  (OTPE,285) IA7A,IA7B,IA7C\r\n  285 FORMAT (31H0THE DENSITY OF THIS MATRIX IS ,I3,1H.,I1,I1,\r\n     1        9H PERCENT.)\r\n  290 RETURN\r\nC\r\n  300 WRITE  (OTPE,310)\r\n  310 FORMAT (16H0IDENTITY MATRIX)\r\n  320 CALL CLOSE (NAMEA,1)\r\nC\r\nC     FUNNY MATRIX -- TABLE PRINT IT\r\nC\r\n      CALL TABPRT (NAMEA)\r\n      GO TO 290\r\n  330 IFIN = JJ - 1\r\n      WRITE (OTPE,340) IBEGN,IFIN\r\n      INULL = 0\r\n      LINE  = LINE + 2\r\n      IF (LINE .GE. NLPP) CALL PAGE\r\n  340 FORMAT (9H0COLUMNS ,I7,6H THRU ,I7,10H ARE NULL.)\r\n      GO TO IHOP, (60,210)\r\n      END\r\n"
  },
  {
    "path": "mis/maxdgr.f",
    "content": "      FUNCTION MAXDGR (NC,IC,IDEG)\r\n      DIMENSION       IC(1),    IDEG(1)\r\n      COMMON /BANDS / NN\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS FUNCTION HAS AS ITS VALUE THE MAXIMUM DEGREE OF ANY NODE OF\r\nC     COMPONENT NC IF NC.GT.0\r\nC     IF NC.LE.0, ALL COMPONENTS ARE CONSIDERED.\r\nC\r\n      M=0\r\n      DO 100 I=1,NN\r\n      IF (NC) 40,50,40\r\n   40 IF (IC(I) -NC) 100,50,100\r\n   50 IF (IDEG(I)-M) 100,100,60\r\n   60 M=IDEG(I)\r\n  100 CONTINUE\r\n      MAXDGR=M\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbamg.f",
    "content": "      SUBROUTINE MBAMG (INPUT,AJJL,SKJ)\r\nC\r\nC     DRIVER FOR MACH BOX THEORY\r\nC\r\n      LOGICAL         CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM\r\n      INTEGER         SYSBUF,AJJL,SKJ,NAME(2),IZ(1),BUF1,SCR2\r\n      REAL            MACH\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MBOXA / X(12),Y(12),TANG(10),ANG(10),COTANG(10)\r\n      COMMON /MBOXC / NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,\r\n     1                NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,\r\n     2                EKM,BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,\r\n     3                KCT,KC1T,KC2T\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /PACKX / ITI,IT0,II,NN,INCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    NAME  / 4HMBAM,4HG    /\r\n      DATA    NHCORE, NHCAPF,NHCONT /4HCORE,4HCAPF,4HCONT/\r\n      DATA    SCR2  / 302 /\r\nC\r\nC     SCR2 CONTAINS THE INTERPOLATED POINTS\r\nC\r\nC     2 * KCT FOR NPTS0 POINTS\r\nC     2 * KC1T FOR NPTS1 POINTS\r\nC     2 * KC2T FOR NPTS2 POINTS\r\nC\r\nC\r\nC     OPEN CORE POINTERS FIXED DIMENSIONS\r\nC\r\n      NW1   = 1\r\n      NWN   = 51\r\n      NC21  = 101\r\n      NC2N  = 151\r\n      NC1   = 201\r\n      NCN   = 251\r\n      ND1   = 301\r\n      NDN   = 351\r\n      NXK   = 401\r\n      NYK   = 601\r\n      NXK1  = 801\r\n      NYK1  = 926\r\n      NXK2  = 1051\r\n      NYK2  = 1176\r\n      NXWTE = 1301\r\n      NYWTE = 1351\r\n      NKTE  = 1401\r\n      NKTE1 = 1451\r\n      NKTE2 = 1501\r\n      NPAREA=1551\r\n      ICORR = 9051\r\nC\r\nC     INITITALIZE  PUT HEADER DATA IN MBOXC\r\nC\r\n      ICORE = KORSZ(IZ) - 4*SYSBUF\r\n      BUF1  = ICORE - SYSBUF\r\n      CALL FREAD (INPUT,NJJ,9,0)\r\n      ASYM = .FALSE.\r\n      IF( ND .EQ. -1 ) ASYM = .TRUE.\r\n      MACH = FMACH\r\n      BETA = SQRT((MACH*MACH)-1.0)\r\n      CALL FREAD (INPUT,Z,24,0)\r\nC\r\nC     MOVE X AND Y TO MBOXA\r\nC\r\n      L = 0\r\n      DO 10 I = 1,23,2\r\n      L = L + 1\r\n      X(L)  = Z(I)\r\n      Y(L)  = Z(I+1)\r\n   10 CONTINUE\r\n      CALL MBGEOD\r\n      EK    = (2.0*CR/REFC)*RFK\r\n      CMAX  =  AMAX1(X(4),X(5),X(6))\r\n      BOXL  =  CMAX/(FLOAT(NBOX) + 0.50)\r\n      BOXW  =  BOXL/BETA\r\n      NSB   =  Y(3)/BOXW + 0.5\r\n      NSB   =  MIN0(NSB,50)\r\n      BOXW  =  Y(3)/(FLOAT(NSB) - 0.50)\r\n      BOXL  =  BOXW*BETA\r\n      NCB   =  CMAX/BOXL + 0.999\r\nC\r\nC     CALL MBREG TO GENERATE BOXES\r\nC\r\n      ICRQ = ICORR - BUF1\r\n      IF (ICORR .GT. BUF1) GO TO 996\r\n   20 CALL MBREG (IREG,Z(NW1),Z(NWN),Z(NC21),Z(NC2N),Z(NC1),Z(NCN),\r\n     1            Z(ND1),Z(NDN),Z(NXK),Z(NYK),Z(NXK1),Z(NYK1),Z(NXK2),\r\n     2            Z(NYK2),Z(NXWTE),Z(NYWTE),Z(NKTE),Z(NKTE1),Z(NKTE2),\r\n     3            Z(NPAREA))\r\n      IF (IREG .NE. 2) GO TO 30\r\n      IF (NBOX .LT. 2) GO TO 999\r\n      NBOX = NBOX - 1\r\n      GO TO 20\r\n   30 CALL MBPLOT (Z(NW1),Z(ND1),Z(NWN),Z(NC21),Z(NC2N),Z(NC1),\r\n     1             Z(NCN),Z(NDN))\r\nC\r\nC     CALL MBMODE TO GENERATE MODE LIKE DATA\r\nC\r\n      CALL GOPEN (SCR2,Z(BUF1),1)\r\n      CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS0,KCT,Z(NXK),Z(NYK),IS,\r\n     1             CR)\r\n      IF (IS .EQ. 2) GO TO 997\r\n      IF (CNTRL1) CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS1,KC1T,\r\n     1                         Z(NXK1),Z(NYK1),IS,CR)\r\n      IF (IS .EQ. 2) GO TO 997\r\n      IF (CNTRL2) CALL MBMODE (INPUT,SCR2,ICORR,BUF1,Z,NPTS2,KC2T,\r\n     1                         Z(NXK2),Z(NYK2),IS,CR)\r\n      IF (IS .EQ. 2) GO TO 997\r\n      CALL CLOSE (SCR2,1)\r\n      EKBAR = (EK*BOXL*MACH*MACH)/(BETA*BETA)\r\n      EKM   = EKBAR/MACH\r\n      CALL FREAD (INPUT,0,0,1)\r\n      CALL BUG (NHCORE,80,Z,NYK1-1)\r\n      CALL BUG (NHCORE,80,Z(NYK1),NPAREA-NYK1)\r\n      CALL DMPFIL (SCR2 ,Z(ICORR),BUF1-ICORR)\r\nC\r\nC     MORE DIMENSIONS\r\nC\r\n      IF (MOD(ICORR,2) .EQ. 0) ICORR = ICORR + 1\r\n      NCAP  = ICORR\r\n      NCAPH = NCB*(NCB+1)/2\r\nC\r\nC     COMPLEX PHIS\r\nC\r\n      ICORR = NCAP + NCAPH*2\r\n      ICRQ  = ICORR - BUF1\r\n      IF (ICORR .GT. BUF1) GO TO 996\r\n      CALL MBCAP (NCAPH,Z(NCAP))\r\n      ICORR = NCAP + NCAPH*2\r\n      CALL BUG (NHCAPF,80,Z(NCAP),NCAPH*2)\r\nC\r\nC     PUT OUT SKJ\r\nC\r\n      ITI = 1\r\n      IT0 = 3\r\n      II  = ISK\r\n      NSK = NSK + 1\r\n      NN  = NSK\r\n      RM  = 1.0\r\n      DO 100 I = 1,NJJ\r\n      CALL PACK (RM,SKJ,TSKJ)\r\n      II  = II + 1\r\n      IF (I .EQ. NJJ) GO TO 100\r\n      NN  = NN + 1\r\n  100 CONTINUE\r\n      ISK = II\r\n      NSK = NN\r\nC\r\nC     SET UP FOR COLUMN OF AJJL\r\nC\r\n      ITI = 3\r\n      IT0 = 3\r\n      II  = NROW + 1\r\n      NN  = NROW + NJJ\r\nC\r\nC     GET AJJL MATRIX TERMS\r\nC     MORE DIMENSIONS\r\nC\r\n      NPHIT = ICORR\r\n      NDSS  = NPHIT + (3*NSBD)*2\r\n      NQ    = NDSS  + (NCB*NSBD)*2\r\n      NQ1   = NQ + KCT*2\r\n      NQ2   = NQ1 + KC1T*2\r\n      NA    = NQ2 + KC2T*2\r\n      ICORR = NA + NJJ*2\r\n      CALL BUG (NHXECT,100,X,54)\r\n      CALL BUG (NHCONT,100,NJJ,30)\r\n      ICRQ  = ICORR - BUF1\r\n      IF (ICORR .GT. BUF1) GO TO 996\r\n      CALL MBDPDH (AJJL,Z(NXK),Z(NYK),Z(NXK1),Z(NYK1),Z(NXK2),Z(NYK2),\r\n     1             Z(NXWTE),Z(NYWTE),Z(NPAREA),Z(NCAP),Z(NPHIT),Z(NDSS),\r\n     2             Z(NQ),Z(NQ1),Z(NQ2),Z(NDN),Z(ND1),Z(NW1),Z(NWN),\r\n     3             Z(NKTE),Z(NKTE1),Z(NKTE2),Z(NC1),NCB,NSBD,SCR2,\r\n     4             Z(BUF1),Z(NA))\r\n      NROW = NROW + NJJ\r\n 1000 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  997 WRITE  (NOUT,9971) UFM\r\n 9971 FORMAT (A23,' 2424, MACH BOX CONTROL POINTS IMPROPER SINGULAR ',\r\n     1       'MATRIX RESULTED')\r\n      GO TO 998\r\n  999 WRITE  (NOUT,9991) UFM\r\n 9991 FORMAT (A23,' 2425, MACH BOX GENERATION OF BOXES FAILED')\r\n  998 CALL MESAGE (-37,0,NAME)\r\n  996 CALL MESAGE (-8,ICRQ,NAME)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/mbbslj.f",
    "content": "      SUBROUTINE MBBSLJ (ARG,N,BSL)\r\nC\r\nC     SUBROUTINE TO COMPUTE EVEN ORDERED BESSEL FUNCTIONS OF FIRST KIND\r\nC\r\nC     UNDERFLOW MAY OCCUR IN THIS ROUTINE. THE RESULTS ARE NOT AFFECTED\r\nC\r\n      DIMENSION       BSL(4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ SYSBUF,N6\r\nC\r\n      DO 1 I = 1,20\r\n    1 BSL(I) = 0.0\r\n      ASQ = ARG**2\r\n      IF (ASQ .LT. 0.01) GO TO 60\r\n      N  = AMIN1(17.0,(ARG+10.0))\r\n      F  = 2*N + 4\r\n      BSL(N+3) = 0.0\r\n      PF = (4.0*F*(F-1.0)/ASQ-(F-1.0)/F)*0.3\r\n      IF (PF .LE. 1.E-08) GO TO 70\r\n      BSL(N+2) = PF*1.E-30\r\n      PF = 0.0\r\n      J  = N + 1\r\n      DO 10 I = 1,J\r\n      M  = N - I + 2\r\n      F  = 2*M + 1\r\n      BSL(M) = ((4.*(F-1.)/ASQ-1./F-1./(F-2.))*BSL(M+1)-BSL(M+2)/F)*\r\n     1         (F-2.0)\r\n   10 PF = PF + 2.0*BSL(M+1)\r\n      PF = PF + BSL(1)\r\n      F  = 0.0\r\n      IF (ABS(PF) .LE. 1.0) GO TO 20\r\n      F  = ABS(PF)*1.E-10\r\n   20 N  = N + 2\r\n      DO 40 I = 1,N\r\n      IF (F .GE. ABS(BSL(I))) BSL(I) = 0.0\r\n      BSL(I) = BSL(I)/PF\r\n   40 CONTINUE\r\n      M  = N\r\n      DO 50 I = 1,M\r\n      IF (ABS(BSL(N)) .GT. 1.0E-07) RETURN\r\n      N  = N - 1\r\n   50 CONTINUE\r\n      RETURN\r\nC\r\n   60 BSL(2) = 0.125*ASQ\r\n      BSL(1) = 1.0 - 2.0*BSL(2)\r\n      N  = 2\r\n      GO TO 90\r\nC\r\n   70 CALL PAGE2 (3)\r\n      WRITE  (N6,80) SFM,ARG\r\n   80 FORMAT (A25,' 2435, MBBSLJ SUBROUTINE FAILED BECAUSE THE ARGUMEN',\r\n     1       'T IS TOO LARGE FOR THE BSL ARRAY', /5X,'ARG =',1P,E13.5)\r\n      CALL MESAGE (-61,0,0)\r\n   90 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbcap.f",
    "content": "      SUBROUTINE MBCAP(NPHI,CAPPHI)\r\nC\r\n      REAL  KM , KBAR , MACH , W(10), P(10)\r\n      COMPLEX  CAPPHI(1)\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,\r\n     *  NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,\r\n     *  BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      EQUIVALENCE  ( KM , EKM ) , ( KBAR , EKBAR )\r\n      DATA  W / 0.0506143,0.1111905,0.1568533,0.1813419,0.1813419,\r\n     *          0.1568533,0.1111905,0.0506143,0.0,0.0/,\r\n     *      P / 0.0198551,0.1016667,0.2372338,0.4082826,0.5917174,\r\n     *          0.7627662,0.8983333,0.9801449,0.0,0.0/\r\nC\r\n      DO   200   I = 1 , NPHI\r\n      CAPPHI(I)  =  ( 0.0 , 0.0 )\r\n 200  CONTINUE\r\nC\r\nC     COMPUTE CAPPHI FOR RECEIVING BOX\r\nC\r\n      IF ( KBAR .LE. 0.0 )   GO TO  400\r\n      DO   300   I = 1 , 8\r\n      J  =  9 - I\r\n      ARG  =  KBAR * P(J) / 2.0\r\n      ARG1  =  W(I) * ZJ ( ARG / MACH ) / 2.0\r\n      CAPPHI(1)  =  CAPPHI(1) + CMPLX ( -COS ( ARG ) * ARG1 ,\r\n     *              SIN ( ARG ) * ARG1 )\r\n 300  CONTINUE\r\n      GO TO 500\r\nC\r\n 400  CAPPHI(1)  =  ( -0.5 , 0.0 )\r\nC\r\nC     COMPUTE REMAINING CAPPHI\r\nC\r\n 500  NPHI  =  1\r\n      XB  =  0.5\r\n      XU  =  XB + 1.0\r\n      DO   900   I = 2 , NCB\r\n      XL  =  -0.5\r\n      XR  =  XL + 1.0\r\n      DO   700   J = 1 , I\r\n      NPHI  =  NPHI + 1\r\n      DO   600   L = 1 , 8\r\n      X  =  XB + P(L)\r\n      ARG  =  KBAR * X\r\n      ARG1  =  W(L) * GO ( X , XR , XL , KM ) / 3.14159265\r\n      CAPPHI(NPHI)  =  CAPPHI(NPHI) - CMPLX ( COS ( ARG ) * ARG1 ,\r\n     *                 -SIN ( ARG ) * ARG1 )\r\n 600  CONTINUE\r\n      XL  =  XR\r\n      XR  =  XR + 1.0\r\n 700  CONTINUE\r\nC\r\n      XB  =  XU\r\n      XU  =  XB + 1.0\r\n 900  CONTINUE\r\nC\r\n      DO   1000   I = 1 , NPHI\r\n      CAPPHI(I)  =  BOXW * CAPPHI(I)\r\n 1000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbctr.f",
    "content": "      SUBROUTINE MBCTR (ICTR,IL1,IR1,NCN,NC1,NWN,NW1,PAREA)\r\nC\r\nC     CONTROL1 SURFACE\r\nC\r\nC     CONVEX ONLY:\r\nC     MUST COMPILE WITH O1 OR LOWER OPTIMIZATION OPTION. IF O2 IS USED,\r\nC     THE COMPILER WOULD GO INTO INFINITE LOOP.\r\nC\r\n      LOGICAL        CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM\r\n      DIMENSION      NCN(1),NC1(1),NWN(1),NW1(1),PAREA(50,50,3),\r\n     1               X(5),Y(5),TANG(5),COTANG(5)\r\n      COMMON /MBOXA/ XX(12),YY(12),TG(10),ANG(10),COTG(10)\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1,\r\n     1               NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW,\r\n     2               BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\nC\r\n      IF (ICTR .EQ. 2) GO TO 1000\r\n      X(1) = XX( 7)\r\n      X(2) = XX( 8)\r\n      X(3) = XX( 9)\r\n      X(4) = XX(11)\r\n      Y(1) = YY( 7)\r\n      Y(2) = YY( 8)\r\n      Y(3) = YY( 9)\r\n      Y(4) = YY(11)\r\n      TANG(1) = TG(6)\r\n      TANG(2) = TG(7)\r\n      TANG(3) = TG(8)\r\n      COTANG(1) = COTG(6)\r\n      COTANG(2) = COTG(7)\r\n      COTANG(3) = COTG(8)\r\n      GO TO 2000\r\nC\r\nC     CONTROL2 SURFACE\r\nC\r\n 1000 X(1) = XX(11)\r\n      X(2) = XX( 9)\r\n      X(3) = XX(10)\r\n      X(4) = XX(12)\r\n      Y(1) = YY(11)\r\n      Y(2) = YY( 9)\r\n      Y(3) = YY(10)\r\n      Y(4) = YY(12)\r\n      TANG(1) = TG( 8)\r\n      TANG(2) = TG(10)\r\n      TANG(3) = TG( 9)\r\n      COTANG(1) = COTG( 8)\r\n      COTANG(2) = COTG(10)\r\n      COTANG(3) = COTG( 9)\r\nC\r\n 2000 X(5) = XX(5)\r\n      Y(5) = YY(5)\r\n      TANG(4) = TG(4)\r\n      TANG(5) = TG(5)\r\n      COTANG(4) = COTG(4)\r\n      COTANG(5) = COTG(5)\r\nC\r\n      IL1 = AMIN1(Y(2),Y(1))/BOXW + 1.5\r\n      IR1 = AMAX1(Y(3),Y(4))/BOXW + 1.4999\r\n      DO 6000 I = IL1,IR1\r\n      YR  = (FLOAT(I)-0.5)*BOXW\r\n      YL  = YR-BOXW\r\nC\r\n      XLL = (YL-Y(2))*TANG(1) + X(2)\r\n      XRL = (YR-Y(2))*TANG(1) + X(2)\r\n      XLH = (YL-Y(2))*TANG(2) + X(2)\r\n      XRH = (YR-Y(2))*TANG(2) + X(2)\r\n      XLR = (YL-Y(3))*TANG(3) + X(3)\r\n      XRR = (YR-Y(3))*TANG(3) + X(3)\r\nC\r\n      IF (CRANK2 .AND. Y(5).LE.Y(1)) GO TO 4515\r\nC\r\n      XLT = (YL-Y(1))*TANG(4) + X(1)\r\n      XRT = (YR-Y(1))*TANG(4) + X(1)\r\n      GO TO 4520\r\nC\r\n 4515 XLT = (YL-Y(1))*TANG(5) + X(1)\r\n      XRT = (YR-Y(1))*TANG(5) + X(1)\r\nC\r\n 4520 IF (YL.LE.Y(2) .AND. YR.GE.Y(2)) GO TO 4525\r\nC\r\n      IF (YR .LT. Y(2)) GO TO 4550\r\n      JT = (XLH-AMOD(XLH,BOXL)+BOXL)/BOXL + 0.01\r\n      GO TO 4600\r\nC\r\n 4525 JT = (X(2)-AMOD(X(2),BOXL)+BOXL)/BOXL + 0.01\r\n      GO TO 4600\r\nC\r\n 4550 JT = (XRL-AMOD(XRL,BOXL)+BOXL)/BOXL + 0.01\r\nC\r\n 4600 IF (YL.LT.Y(4) .AND. YR.GE.Y(4).AND.XRT.GE.XLT) GO TO 4625\r\n      IF (YL .GE. Y(4)) GO TO 4650\r\nC\r\n      JB = (AMAX1(XLT,XRT)-AMOD(AMAX1(XLT,XRT),BOXL)+BOXL)/BOXL + 0.01\r\n      GO TO 4700\r\n 4625 JB = (X(4)-AMOD(X(4),BOXL)+BOXL)/BOXL + 0.01\r\n      GO TO 4700\r\nC\r\n 4650 JB = (XLR-AMOD(XLR,BOXL)+BOXL)/BOXL + 0.01\r\nC\r\n 4700 DO 5400 J = JT,JB\r\nC\r\n      XB = FLOAT(J)*BOXL\r\n      XT = XB - BOXL\r\nC\r\n      YTL = (XT-X(2))*COTANG(1) + Y(2)\r\n      YBL = (XB-X(2))*COTANG(1) + Y(2)\r\n      YTH = (XT-X(2))*COTANG(2) + Y(2)\r\n      YBH = (XB-X(2))*COTANG(2) + Y(2)\r\n      YTR = (XT-X(3))*COTANG(3) + Y(3)\r\n      YBR = (XB-X(3))*COTANG(3) + Y(3)\r\nC\r\n      IF (CRANK2 .AND. Y(5).LE.Y(1)) GO TO 4706\r\nC\r\n      YTT = (XT-X(1))*COTANG(4) + Y(1)\r\n      YBT = (XB-X(1))*COTANG(4) + Y(1)\r\n      GO TO 4708\r\nC\r\n 4706 YTT = (XT-X(1))*COTANG(5) + Y(1)\r\n      YBT = (XB-X(1))*COTANG(5) + Y(1)\r\nC\r\nC     FULL BOXES\r\nC\r\n 4708 IF (YL.GE.YTL .AND. XT.GE.XRH .AND. YR.LT.YBR .AND.\r\n     1    XB.LT.XRT .AND. XB.LT.XLT) GO TO 4900\r\nC\r\nC     DOUBLE CORNER BOXES\r\nC\r\n      IF (YL.LE.Y(2) .AND. YR.GE.Y(2) .AND. XT.LT.X(2) .AND.\r\n     1    XB.GE.X(2) .AND. YL.LE.Y(1) .AND. YR.GE.Y(1) .AND.\r\n     2    XT.LT.X(1) .AND. XB.GE.X(1)) GO TO 4820\r\nC\r\n      IF (YL.LT.Y(3) .AND. YR.GE.Y(3) .AND. XT.LT.X(3) .AND.\r\n     1    XB.GE.X(3) .AND. YL.LT.Y(4) .AND. YR.GE.Y(4) .AND.\r\n     2    XT.LT.X(4) .AND. XB.GE.X(4)) GO TO 4840\r\nC\r\nC     SINGLE CORNER BOXES\r\nC\r\n      IF (YL.LE.Y(2) .AND. YR.GE.Y(2) .AND. XT.LT.X(2) .AND.\r\n     1    XB.GE.X(2)) GO TO 4710\r\n      IF (YL.LE.Y(1) .AND. YR.GE.Y(1) .AND. XT.LT.X(1) .AND.\r\n     1    XB.GE.X(1)) GO TO 4730\r\n      IF (YL.LT.Y(3) .AND. YR.GE.Y(3) .AND. XT.LT.X(3) .AND.\r\n     1    XB.GE.X(3)) GO TO 4750\r\n      IF (YL.LT.Y(4) .AND. YR.GE.Y(4) .AND. XT.LT.X(4) .AND.\r\n     1    XB.GE.X(4)) GO TO 4770\r\nC\r\nC     HINGE + T. E. BOXES\r\nC\r\n      IF (XT.LT.XRH .AND. (XB.GE.XLT .OR. XB.GE.XRT)) GO TO 4788\r\nC\r\nC     SIDE BOXES\r\nC\r\n      IF (XB.GE.XLH .AND. XT.LT.XRH .AND. YL.GE.YTL .AND. (XB.LT.X(3)\r\n     1   .OR. YR.LT.Y(3))) GO TO 4745\r\n      IF (YL.LE.YTL .AND. YR.GE.YBL .AND. XB.GE.X(2) .AND. XT.LT.X(1))\r\n     1    GO TO 4740\r\n      IF (YL.LT.YTR .AND. YR.GE.YBR .AND. XB.GE.X(3) .AND. XT.LT.X(4)\r\n     1   .AND. YR.GE.Y(4)) GO TO 4765\r\n      GO TO 4747\r\nC\r\nC     FWD LH CORNER\r\nC\r\n 4710 IF (YL.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     1   PA = .5*((Y(2)-YBL)*(XB-X(2))+(2.*XB-X(2)-XRH)*(YR-Y(2)))/BOXA\r\n      IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     1   PA = .5*((2.*XB-XLL-X(2))*(Y(2)-YL)+(2.*XB-XRH-X(2))*(YR-Y(2)))\r\n     2        /BOXA\r\n      IF (XT.LT.XLL .AND. XB.GE.XLL .AND. YL.LT.YBH .AND. YR.GE.YBH)\r\n     1   PA = .5*((2.*XB-X(2)-XLL)*(Y(2)-YL)+(YBH-Y(2))*(XB-X(2)))/BOXA\r\n      IF (YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LT.YBH .AND. YR.GE.YBH)\r\n     1   PA = 0.5*(XB-X(2))*(YBH-YBL)/BOXA\r\n      IF (I-1) 4799,5000,4799\r\nC\r\n 4720 IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH .AND\r\n     1.   XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     2    PA = 1.0 - 0.5*((XLL-XT)*(YTL-YL)+(YR-YTH)*(XRH-XT))/BOXA\r\n      IF (YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LE.YTL .AND. YR.GE.YTL .AND\r\n     1.   YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     2    PA = 1.0 - 0.5*((YTL+YBL-2.0*YL)*BOXL+(YR-YTH)*(XRH-XT))/BOXA\r\n      IF (YL.LT.YBH .AND. YR.GE.YBH .AND. XT.LT.XLL .AND. XB.GE.XLL .AND\r\n     1.   YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH)\r\n     2    PA = 1.0 - 0.5*((YTL-YL)*(XLL-XT)+(2.0*YR-YTH-YBH)*BOXL)/BOXA\r\n      IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LT.YTH .AND. YR.GE.YTH .AND\r\n     1.   YL.LE.YBL .AND. YR.GE.YBL .AND. YL.LT.YBH .AND. YR.GE.YBH)\r\n     2    PA = 0.5*(YTH+YBH-YTL-YBL)/BOXW\r\n      IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LE.YBL .AND. YR.GE.YBL .AND\r\n     1.   YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     2    PA = 0.5*((2.0*YR-YTL-YBL)*BOXL-(YR-YBT)*(XB-XRT))/BOXA\r\n      IF (YL.LT.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL .AND\r\n     1.   XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     2    PA = 1.0 - 0.5*((YTL-YL)*(XLL-XT)+(XB-XLT)*(YBT-YL))/BOXA\r\n      IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRL .AND. XB.GE.XRL .AND\r\n     1.   YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XLT .AND. XB.GE.XLT)\r\n     2    PA = 0.5*((2.0*XB-XLL-XRL)*BOXW-(XB-XLT)*(YBT-YL))/BOXA\r\n      IF (YL.LT.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL .AND\r\n     1.   XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     2    PA = 0.5*((XLT+XRT-2.0*XB)*BOXW-(YTL-YL)*(XLL-XT))/BOXA\r\n      IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XLT .AND. XB.GE.XLT .AND\r\n     1.   XT.LT.XRL .AND. XB.GE.XRL .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     2    PA = 0.5*(XLT+XRT-XLL-XRL)/BOXL\r\n      IF (I-1) 4799,5000,4799\r\nC\r\nC     AFT LH CORNER\r\nC\r\n 4730 IF (X(1) .GE. X(4)) GO TO 4735\r\n      IF (YL.LT.YBT .AND. YR.GE.YBT .AND. YL.LE.YTL .AND. YR.GE.YTL)\r\n     1   PA = .5*((2.*YR-YTL-Y(1))*(X(1)-XT)+(2.*YR-Y(1)-YBT)*(XB-X(1)))\r\n     2        /BOXA\r\n 4735 IF (YL.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1   PA = .5*((Y(1)-YTL)*(X(1)-XT)+(X(1)+XRT-2.*XT)*(YR-Y(1)))/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LE.YTL .AND. YR.GE.YTL .AND\r\n     1.   YTT.GE.YTL) PA = 0.5*(YTT-YTL)*(X(1)-XT)/BOXA\r\n      IF (XT.LT.XRL .AND. XB.GE.XRL .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1   PA = 0.5*(XRT-XRL)*(YR-Y(1))/BOXA\r\n      IF (YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRL .AND. XB.GE.XRL)\r\n     1   PA = .5*((X(1)-XRL)*(YR-Y(1))+(2.*YR-Y(1)-YBT)*(XB-X(1)))/BOXA\r\n      IF (I-1) 4799,5000,4799\r\nC\r\nC     LH EDGE\r\nC\r\n 4740 IF (I .EQ. 1) GO TO 4800\r\nC\r\n      IF (XT.LT.XLL .AND. XB.GE.XLL .AND. XT.LT.XRL .AND. XB.GE.XRL)\r\n     1   PA = 0.5*(2.0*XB-XLL-XRL)/BOXL\r\n      IF (YL.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRL .AND. XB.GE.XRL)\r\n     1   PA = 0.5*(YR-YBL)*(XB-XRL)/BOXA\r\n      IF (YL.LE.YTL .AND. YR.GE.YTL .AND. YL.LE.YBL .AND. YR.GE.YBL)\r\n     1   PA = 0.5*(2.0*YR-YTL-YBL)/BOXW\r\n      IF (YL.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL)\r\n     1   PA = 1.0 - 0.5*(XLL-XT)*(YTL-YL)/BOXA\r\n      GO TO 4720\r\nC\r\nC     HINGE LINE\r\nC\r\n 4745 IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     1   PA = 1.0 - 0.5*(YR-YTH)*(XRH-XT)/BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XRH .AND. XB.GE.XRH)\r\n     1   PA = 0.5*(2.0*XB-XLH-XRH)/BOXL\r\n      IF (YL.LT.YBH .AND. YR.GE.YBH .AND. XT.LT.XLH .AND. XB.GE.XLH)\r\n     1   PA = 0.5*(XB-XLH)*(YBH-YL)/BOXA\r\n      IF (YL.LT.YTH .AND. YR.GE.YTH .AND. YL.LT.YBH .AND. YR.GE.YBH)\r\n     1   PA = 0.5*(YTH+YBH-2.0*YL)/BOXW\r\n      GO TO 4760\r\nC\r\nC     TRAILING EDGE\r\nC\r\n 4747 IF (YL.LT.YTT .AND. YR.GE.YTT .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1   PA = 0.5*(YR-YTT)*(XRT-XT)/BOXA\r\n      IF (XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1   PA = 0.5*(XLT+XRT-2.0*XT)/BOXL\r\n      IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     1   PA = 1.0 - 0.5*(XB-XLT)*(YBT-YL)/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     1   PA = 0.5*(2.0*YR-YTT-YBT)/BOXW\r\n      IF (YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1   PA = 1.0 - 0.5*(YR-YBT)*(XB-XRT)/BOXA\r\n      IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YTT .AND. YR.GE.YTT)\r\n     1   PA = 0.5*(XLT-XT)*(YTT-YL)/BOXA\r\n      GO TO 4799\r\nC\r\nC     FWD RH CORNER\r\nC\r\n 4750 IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XLH .AND. XB.GE.XLH)\r\n     1   PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+YBR-2.0*YL)*(XB-X(3)))\r\n     2        /BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLR .AND. XB.GE.XLR)\r\n     1   PA = 0.5*(XLR-XLH)*(Y(3)-YL)/BOXA\r\n      IF (YR.GE.YTH .AND. YL.LT.YTH .AND. XT.LT.XLR .AND. XB.GE.XLR)\r\n     1   PA = .5*((YTH+Y(3)-2.*YL)*(X(3)-XT)+(Y(3)-YL)*(XLR-X(3)))/BOXA\r\n      IF (YR.GE.YTH .AND. YL.LT.YTH .AND. YR.GE.YBR .AND. YL.LT.YBR)\r\n     1   PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+YBR-2.0*YL)*\r\n     2        (XB-X(3)))/BOXA\r\n      GO TO 4799\r\nC\r\n 4760 IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR .AND\r\n     1.   XT.LT.XRH .AND. XB.GE.XRH .AND. YL.LT.YTH .AND. YR.GE.YTH)\r\n     2    PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XRR)*(YR-YBR))/BOXA\r\n      IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR .AND\r\n     1.   XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XLH .AND. XB.GE.XLH)\r\n     2    PA = 0.5*((2.0*XB-XLH-XRH)*BOXW-(YR-YBR)*(XB-XRR))/BOXA\r\n      IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XRH .AND. XB.GE.XRH .AND\r\n     1.   XT.LT.XRR .AND. XB.GE.XRR .AND. XT.LT.XLR .AND. XB.GE.XLR)\r\n     2    PA = 0.5*((XLR+XRR-2.0*XT)*BOXW-(YR-YTH)*(XRH-XT))/BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLR .AND. XB.GE.XLR .AND\r\n     1.   XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     2    PA = 0.5*(XLR+XRR-XLH-XRH)/BOXL\r\n      GO TO 4799\r\nC\r\nC     RH EDGE\r\nC\r\n 4765 IF (XT.LT.XRR .AND. XB.GE.XRR .AND. XT.LT.XLR .AND. XB.GE.XLR)\r\n     1   PA = 0.5*(XLR+XRR-2.0*XT)/BOXL\r\n      IF (YR.GE.YTR .AND. YL.LT.YTR .AND. XT.LT.XLR .AND. XB.GE.XLR)\r\n     1   PA = 0.5*(YTR-YL)*(XLR-XT)/BOXA\r\n      IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YR.GE.YBR .AND. YL.LT.YBR)\r\n     1   PA = 0.5*(YTR+YBR-2.0*YL)/BOXW\r\n      IF (YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     1   PA = 1.0 - 0.5*(XB-XRR)*(YR-YBR)/BOXA\r\n      GO TO 4780\r\nC\r\nC     AFT RH CORNER\r\nC\r\n 4770 IF (X(4) .GE. X(1)) GO TO 4775\r\n      IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     1   PA = 0.5*((YTR+Y(4)-2.0*YL)*(X(4)-XT)+(Y(4)+YBT-2.0*YL)*\r\n     2   (XB-X(4)))/BOXA\r\n 4775 IF (YR.GE.YTR .AND. YL.LT.YTR .AND. XT.LT.XLT .AND. XB.GE.XLT)\r\n     1   PA = .5*((XLT-X(4))*(Y(4)-YL)+(YTR+Y(4)-2.*YL)*(X(4)-XT))/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YR.GE.YTR .AND. YL.LT.YTR)\r\n     1   PA = 0.5*(YTR-YTT)*(X(4)-XT)/BOXA\r\n      IF (XT.LT.XLT .AND. XB.GE.XLT .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     1   PA = 0.5*((XLT+X(4)-2.0*XT)*(Y(4)-YL)+(X(4)+XRR-2.0*XT)*\r\n     2   (YR-Y(4)))/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     1   PA = .5*((Y(4)-YTT)*(X(4)-XT)+(X(4)+XRR-2.*XT)*(YR-Y(4)))/BOXA\r\n      GO TO 4799\r\nC\r\n 4780 IF (XT.LT.XLT .AND. XB.GE.XLT .AND. YR.GE.YBR .AND. YL.LT.YBR .AND\r\n     1.   YL.LT.YBT .AND. YR.GE.YBT .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     2    PA = 1.0 - 0.5*((XB-XLT)*(YBT-YL)+(YR-YBR)*(XB-XRR))/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YL.LT.YBT .AND. YR.GE.YBT .AND\r\n     1.   YR.GE.YBR .AND. YL.LT.YBR .AND. XT.LT.XRR .AND. XB.GE.XRR)\r\n     2    PA = 0.5*((2.0*YR-YTT-YBT)*BOXL-(YR-YBR)*(XB-XRR))/BOXA\r\n      IF (YR.GE.YTR .AND. YL.LT.YTR .AND. YR.GE.YBR .AND. YL.LT.YBR .AND\r\n     1.   XT.LT.XLT .AND. XB.GE.XLT .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     2    PA = 0.5*((YTR+YBR-2.0*YL)*BOXL-(XB-XLT)*(YBT-YL))/BOXA\r\n      IF (YL.LT.YTT .AND. YR.GE.YTT .AND. YR.GE.YTR .AND. YL.LT.YTR .AND\r\n     1.   YL.LT.YBT .AND. YR.GE.YBT .AND. YR.GE.YBR .AND. YL.LT.YBR)\r\n     2    PA = 0.5*(YTR-YTT+YBR-YBT)/BOXW\r\n      GO TO 4799\r\nC\r\n 4788 IF (XB.GE.XLT .AND. YR.GE.YBT .AND. YL.LT.YTH)\r\n     1    PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XLT)*(YBT-YL))/BOXA\r\n      IF (XB.GE.XRT .AND. YL.LT.YBT .AND. YL.LT.YTH)\r\n     1    PA = 1.0 - 0.5*((YR-YTH)*(XRH-XT)+(XB-XRT)*(YR-YBT))/BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLT .AND. XB.GE.XRT)\r\n     1    PA = 0.5*(XRT-XRH+XLT-XLH)/BOXL\r\n      IF (XT.LT.XLH .AND. YL.LT.YBT .AND. XB.GE.XRT)\r\n     1    PA = 1.0 - 0.5*((XLH+XRH-2.0*XT)*BOXW+(XB-XRT)*(YR-YBT))/BOXA\r\n      IF (YL.LT.YTH .AND. XB.GE.XLT .AND. XB.GE.XRT)\r\n     1    PA = 1.0 - 0.5*((2.0*XB-XLT-XRT)*BOXW+(XRH-XT)*(YR-YTH))/BOXA\r\n      IF (XT.LT.XLH .AND. YR.GE.YBT .AND. XB.GE.XLT)\r\n     1    PA = 1.0 - 0.5*((XLH+XRH-2.0*XT)*BOXW+(XB-XLT)*(YBT-YL))/BOXA\r\nC\r\n 4799 PAREA(J,I,2) = PA\r\n      PAREA(J,I,1) = PAREA(J,I,1) - PA\r\n      GO TO 5400\r\nC\r\n 4800 YL1  = 0.0\r\n      XLL1 = (YL1-Y(2))*TANG(1) + X(2)\r\nC\r\n      IF (XT.LT.XLL1 .AND. XB.GE.XLL1 .AND. XT.LT.XRL .AND. XB.GE.XRL)\r\n     1   PA = 0.5*(2.0*XB-XLL1-XRL)*(YR-YL1)/BOXA\r\n      IF (YL1.LE.YBL .AND. YR.GE.YBL .AND. XT.LT.XRL .AND. XB.GE.XRL)\r\n     1   PA = 0.5*(XB-XRL)*(YR-YBL)/BOXA\r\n      IF (YL1.LE.YTL .AND. YR.GE.YTL .AND. XT.LT.XLL .AND. XB.GE.XLL)\r\n     1   PA = 1.0 - 0.5*(YTL-YL1)*(XLL1-XT)/BOXA\r\n      IF (YL1.LE.YTL .AND. YR.GE.YTL .AND. YL1.LE.YBL .AND. YR.GE.YBL)\r\n     1   PA = 0.5*(2.0*YR-YTL-YBL)/BOXW\r\n      GO TO 4720\r\nC\r\nC     LH CORNERS\r\nC\r\n 4820 IF (YL.LE.YTH .AND. YR.GE.YTH .AND. YL.LE.YBT .AND. YR.GE.YBT)\r\n     1    PA = 0.5*((2.0*YR-YTH-Y(2))*(X(2)-XT)+(2.0*YR-Y(2)-Y(1))*\r\n     2         (X(1)-X(2))+(2.0*YR-Y(1)-YBT)*(XB-X(1)))/BOXA\r\n      IF (XT.LT.XRH .AND. XB.GE.XRH .AND. YL.LE.YBT .AND. YR.GE.YBT)\r\n     1    PA = 0.5*((X(2)-XRH)*(YR-Y(2))+(2.0*YR-Y(2)-Y(1))*(X(1)-X(2))\r\n     2         +(2.0*YR-Y(1)-YBT)*(XB-X(1)))/BOXA\r\n      IF (YL.LE.YTH .AND. YR.GE.YTH .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1    PA = 0.5*((2.0*YR-YTH-Y(2))*(X(2)-XT)+(2.0*YR-Y(2)-Y(1))*\r\n     2         (X(1)-X(2))+(XRT-X(1))*(YR-Y(1)))/BOXA\r\n      IF (XT.LT.XRH .AND. XB.GE.XRH .AND. XT.LT.XRT .AND. XB.GE.XRT)\r\n     1    PA = 0.5*((X(2)-XRH)*(YR-Y(2))+(2.0*YR-Y(2)-Y(1))*(X(1)-X(2))\r\n     2         +(XRT-X(1))*(YR-Y(1)))/BOXA\r\n      IF (I-1) 4799,5000,4799\r\nC\r\nC     RH CORNERS\r\nC\r\n 4840 IF (YL.LT.YTH .AND. YR.GE.YTH .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     1   PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+Y(4)-2.0*YL)*(X(4)\r\n     2        -X(3))+(Y(4)+YBT-2.0*YL)*(XB-X(4)))/BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLH .AND. YL.LT.YBT .AND. YR.GE.YBT)\r\n     1   PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+Y(4)-2.0*YL)*(X(4)-X(3))\r\n     2        +(Y(4)+YBT-2.0*YL)*(XB-X(4)))/BOXA\r\n      IF (YL.LT.YTH .AND. YR.GE.YTH .AND. XT.LT.XLT .AND. XB.GE.XLT)\r\n     1   PA = 0.5*((YTH+Y(3)-2.0*YL)*(X(3)-XT)+(Y(3)+Y(4)-2.0*YL)*(X(4)\r\n     2        -X(3))+(XLT-X(4))*(Y(4)-YL))/BOXA\r\n      IF (XT.LT.XLH .AND. XB.GE.XLH .AND. XT.LT.XLT .AND. XB.GE.XLT)\r\n     1   PA = 0.5*((X(3)-XLH)*(Y(3)-YL)+(Y(3)+Y(4)-2.0*YL)*(X(4)-X(3))\r\n     2        +(XLT-X(4))*(Y(4)-YL))/BOXA\r\n      GO TO 4799\r\nC\r\n 4900 PAREA(J,I,2) = 1.0\r\n      PAREA(J,I,1) = 0.0\r\n      GO TO 5400\r\nC\r\n 5000 PAREA(J,I,2) = 2.0*PA\r\n      PAREA(J,I,1) = PAREA(J,I,1) - PAREA(J,I,2)\r\nC\r\n 5400 CONTINUE\r\nC\r\n      YC = YR - BOXW/2.0\r\n      XF = (YL-Y(2))*TANG(2) + X(2)\r\nC\r\n      IF (YC .LT. Y(2)) GO TO 5600\r\n      IF (YC .LT. Y(3)) GO TO 5800\r\n      IF (YC .GE. Y(4)) GO TO 6000\r\n      XF2 = (YR-Y(3))*TANG(3) + X(3)\r\n      NC1(I) = XF2/BOXL + 1.0\r\n      IF (YC .LT. Y(1)) GO TO 5900\r\n 5500 NCN(I) =  NWN(I)\r\n      GO TO 6000\r\n 5600 IF (YC .LT. Y(1)) GO TO 6000\r\n      XF1 = (YR-Y(2))*TANG(1) + X(2)\r\n      NC1(I) = XF1/BOXL + 1.0\r\n 5700 NC1(I) = MAX0(NC1(I),NW1(I))\r\n      IF (YC .LT. Y(4)) GO TO 5500\r\n      XF2 = (YR-Y(3))*TANG(3) + X(3)\r\n      NCN(I) = XF2/BOXL + 1.0\r\n      GO TO 6000\r\n 5800 NC1(I) = XF/BOXL + 1.0\r\n      IF (YC .GE. Y(1)) GO TO 5700\r\n 5900 XF1 = (YR-Y(2))*TANG(1) + X(2)\r\n      NCN(I) = XF1/BOXL + 1.0\r\n 6000 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbdpdh.f",
    "content": "      SUBROUTINE MBDPDH (AJJL,F,DF,F1,DF1,F2,DF2,XWTE,YWTE,PAREA,CAPPHI,\r\n     1                   DPHITE,DSS,Q,Q1,Q2,NDN,ND1,NW1,NWN,KTE,KTE1,\r\n     2                   KTE2,NTE,NNCB,NNSBD,IN17,IBUF,A)\r\nC\r\n      LOGICAL        CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM,SURF,LPHI,TEBOX\r\n      DIMENSION      F(1),DF(1),F1(1),DF1(1),F2(1),DF2(1),XWTE(1),\r\n     1               YWTE(1),PAREA(50,50,3),NDN(1),ND1(1),NW1(1),NWN(1),\r\n     2               KTE(1),KTE1(1),KTE2(1),NTE(1),IBUF(1)\r\n      COMPLEX        CAPPHI(1),DPHITE(3,NNSBD),DSS(NNCB,NNSBD),DPHI,TDH,\r\n     1               WS,WF1,WF2,TEMPHI,WPHI,SUMPHI,TRAILE,Q(1),Q1(1),\r\n     2               Q2(1),A(1)\r\n      COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10)\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1,\r\n     1               NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW,\r\n     2               BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      DATA    NHCONT,NHDSS /4HCONT,4HDSS /\r\nC\r\n      NSKP   = 0\r\n      N1     = NPTS0 + NPTS1\r\n      CALL GOPEN (IN17,IBUF,0)\r\n      DO 4000 MOOD = 1,NJJ\r\n      DO 110 I = 1,NSBD\r\n      NTE(I) = 0\r\n      DPHITE(1,I) = (0.0, 0.0)\r\n      DPHITE(2,I) = (0.0, 0.0)\r\n      DPHITE(3,I) = (0.0, 0.0)\r\n  110 CONTINUE\r\n      DO 120 I = 1,NCB\r\n      DO 120 J = 1,NSBD\r\n      DSS(I,J) = (0.0, 0.0)\r\n  120 CONTINUE\r\n      DO 121 J = 1,KCT\r\n      Q (J)  = (0.0, 0.0)\r\n      F(J)   = 0.0\r\n  121 DF(J)  = 0.0\r\n      IF (.NOT.CNTRL1) GO TO 116\r\n      DO 115 J = 1,KC1T\r\n      Q1(J)  = (0.0, 0.0)\r\n      F1(J)  = 0.0\r\n      DF1(J) = 0.0\r\n  115 CONTINUE\r\n  116 IF (.NOT.CNTRL2) GO TO 118\r\n      DO 117 J = 1,KC2T\r\n      Q2(J)  = (0.0, 0.0)\r\n      F2(J)  = 0.0\r\n      DF2(J) = 0.0\r\n  117 CONTINUE\r\n  118 CALL FREAD (IN17,Z,-NSKP,0)\r\n      JJ = MOOD\r\n      IF (JJ .GT. NPTS0) GO TO 140\r\n      CALL FREAD (IN17,F,KCT,0)\r\n      CALL FREAD (IN17,DF,KCT,0)\r\n      NSKP = NSKP + 2*KCT\r\n      GO TO 160\r\n  140 IF (JJ .GT. N1) GO TO 150\r\n      CALL FREAD (IN17,F1 ,KC1T,0)\r\n      CALL FREAD (IN17,DF1,KC1T,0)\r\n      NSKP = NSKP + KC1T*2\r\n      GO TO 160\r\n  150 CALL FREAD (IN17,F2 ,KC2T,0)\r\n      CALL FREAD (IN17,DF2,KC2T,0)\r\n      NSKP = NSKP + KC2T*2\r\n  160 CALL BCKREC (IN17)\r\nC\r\nC     START LOOP FOR ROWS ON PLANFORM\r\nC\r\n      KC  = 0\r\n      KC1 = 0\r\n      KC2 = 0\r\n      DO 3000 I = 1,NCB\r\n      IXR = I - 1\r\n      XB  = BOXL*(FLOAT(IXR) + 0.5)\r\n      XBB = XB + BOXL/2.0\r\nC\r\nC     BOXES ON PLANE OF MAIN\r\nC\r\n      DO 1100 J = 1,NSBD\r\n      IF (.NOT.(I.GE.ND1(J) .AND. I.LE.NDN(J))) GO TO 1100\r\n      DPHI  = (0.0, 0.0)\r\n      WPHI  = DPHI\r\n      TDH   = (0.0 ,0.0)\r\n      LPHI  = .FALSE.\r\n      SURF  = .FALSE.\r\n      TEBOX = .FALSE.\r\n      IF (I .GE. (NW1(J)+NWN(J))/2) TEBOX = .TRUE.\r\n      IYR   = J - 1\r\n      YB    = BOXW*FLOAT(IYR)\r\n      K     = 1\r\n      IF (YB .GT. Y(2)) K = 2\r\n      PAW   = PAREA(I,J,1)\r\n      PAF1  = PAREA(I,J,2)\r\n      PAF2  = PAREA(I,J,3)\r\n      PAWF  = PAW + PAF1 + PAF2\r\n      IF (.NOT.TEBOX .AND. BETA.GT.TANG(K)) PAWF = 1.0\r\n      PAD   = 1.0 - PAWF\r\n      WS    = (0.0, 0.0)\r\n      WF1   = (0.0, 0.0)\r\n      WF2   = (0.0, 0.0)\r\n      IF (J.EQ.1 .AND. ASYM) GO TO  800\r\n      IF (J .GT. NSB) GO TO 500\r\n      IF (PAD .GE. 0.995) GO TO  400\r\n      IF (PAW .LT. 0.005) GO TO  200\r\nC\r\n      KC = KC + 1\r\n      WS = 2.0*PAW*CMPLX(DF(KC), EK*F(KC))\r\nC\r\n  200 IF (PAF1 .LT. 0.005) GO TO  250\r\nC\r\n      KC1 = KC1 + 1\r\n      WF1 = 2.0*PAF1*CMPLX(DF1(KC1), EK*F1(KC1))\r\nC\r\n  250 IF (PAF2 .LT. 0.005) GO TO 300\r\nC\r\n      KC2 = KC2 + 1\r\n      WF2 = 2.0*PAF2*CMPLX(DF2(KC2), EK*F2(KC2))\r\nC\r\n  300 TDH    = (WS+WF1+WF2)/(PAWF*CR)\r\n      LPHI   = .TRUE.\r\n      TEMPHI = SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,NNCB,NNSBD,ASYM)\r\n      DPHI   = TDH*CAPPHI(1) + TEMPHI\r\n      IF (PAWF .GE. .005) SURF = .TRUE.\r\n      IF (.NOT.SURF .OR. .NOT.TEBOX) GO TO 350\r\n      NTE(J) =  I\r\n      DPHITE(3,J) = DPHITE(2,J)\r\n      DPHITE(2,J) = DPHITE(1,J)\r\n      DPHITE(1,J) = DPHI\r\nC\r\n  350 IF (PAWF .GT. 0.995) GO TO  800\r\n  400 IF (.NOT.TEBOX) GO TO 500\r\n      XT = XWTE(J)\r\n      IF (XT .GE. XBB) GO TO 420\r\n      DPHITE(1,J) = TRAILE(XT,J,NTE,DPHITE,NNSBD,BOXL)\r\n      IF (XT .LE. XB) GO TO 450\r\n  420 IF (XT .GE. XBB+BOXL) GO TO 500\r\n      WPHI = DPHI\r\n      GO TO 800\r\n  450 EX   = EK*(XB-XT)/BOXL\r\n      WPHI = DPHITE(1,J)*CMPLX(COS(EX), -SIN(EX))\r\n      GO TO 800\r\n  500 DPHI = PAWF*DPHI\r\n      WPHI = (0.0, 0.0)\r\n      IF (.NOT.LPHI) TEMPHI = SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,NNCB,\r\n     1                               NNSBD,ASYM)\r\n      TDH  = PAD*(WPHI-TEMPHI)/CAPPHI(1) + PAWF*TDH\r\n      IF (.NOT.SURF) DPHI = WPHI\r\n  800 IF (SURF) CALL MBGAW (BOXL,DPHI,WS,PAW,PAF1,PAF2,Q,Q1,Q2,J,KC,KC1,\r\n     1                      KC2)\r\nC\r\n      DSS(I,J) = TDH\r\n 1100 CONTINUE\r\n 3000 CONTINUE\r\n      CALL MBGATE (NTOTE,DPHITE,NNSBD,YWTE,Q,Q1,Q2,KTE,KTE1,KTE2)\r\n      CALL MBGAE (AJJL,IN17,A,F,DF,F1,DF1,F2,DF2,Q,Q1,Q2,MOOD)\r\n      CALL BUG (NHCONT,3000,NJJ,30)\r\n      CALL BUG (NHDSS ,3000,DSS,4)\r\n 4000 CONTINUE\r\n      CALL CLOSE (IN17,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbgae.f",
    "content": "      SUBROUTINE MBGAE(AJJL,IN17,A,F,DF,F1,DF1,F2,DF2,Q,Q1,Q2,MOOD)\r\nC\r\nC     MULTIPLY SUM OBTAINED PREVIOUSLY BY SCRIPT A FACTOR\r\nC\r\n      LOGICAL  CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM , DEBUG\r\n      INTEGER AJJL\r\n      REAL MACH\r\n      DIMENSION F(1),DF(1),F1(1),DF1(1),F2(1),DF2(1)\r\n      COMPLEX A(1),Q(1),Q1(1),Q2(1)\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,\r\n     *  NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,\r\n     *  BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      COMMON /SYSTEM/ SYSBUF,N6\r\n      COMMON /AMGMN  / MCB(7)\r\n      DATA    DEBUG /.FALSE./\r\nC\r\n      GCK  =  GC * BOXW\r\n      DO 10 I=1,NJJ\r\n   10 A(I) = (0.0,0.0)\r\n      DO 1630 I=1,NPTS0\r\n      CALL FREAD(IN17,F  ,KCT ,0)\r\n      CALL FREAD(IN17,DF ,KCT ,0)\r\n      DO 1620 J=1,KC\r\n      A(I)      = A(I)      + CMPLX( DF(J),-EK*F(J))*Q(J)\r\n 1620 CONTINUE\r\n      IF( KC.EQ.KCT )  GO TO 1630\r\n      KCC  =  KC + 1\r\n      DO   1625   J = KCC,KCT\r\n      A(I)       = A(I)      + F(J)*Q(J)\r\n 1625 CONTINUE\r\n 1630 CONTINUE\r\n      IF( .NOT. CNTRL1 ) GO TO 1660\r\n      JJ = NPTS0\r\n      DO 1650 I=1,NPTS1\r\n      CALL FREAD(IN17,F1 ,KC1T,0)\r\n      CALL FREAD(IN17,DF1,KC1T,0)\r\n      DO 1640 J=1,KC1\r\n      A(I+JJ)   = A(I+JJ)   + CMPLX( DF1(J),-EK*F1(J))*Q1(J)\r\n 1640 CONTINUE\r\n      IF( KC1.EQ.KC1T )  GO TO 1650\r\n      KCC1  =  KC1 + 1\r\n      DO   1645   J = KCC1,KC1T\r\n      A(I+JJ)    =  A(I+JJ)   + F1(J)*Q1(J)\r\n 1645 CONTINUE\r\n 1650 CONTINUE\r\n 1660 IF( .NOT. CNTRL2 ) GO TO 1700\r\n      JJ = JJ + NPTS1\r\n      DO 1690 I=1,NPTS2\r\n      CALL FREAD(IN17,F2 ,KC2T,0)\r\n      CALL FREAD(IN17,DF2,KC2T,0)\r\n      DO 1680 J=1,KC2\r\n      A(I+JJ)   = A(I+JJ)   + CMPLX( DF2(J),-EK*F2(J))*Q2(J)\r\n 1680 CONTINUE\r\n      IF( KC2.EQ.KC2T )  GO TO 1690\r\n      KCC2  = KC2 + 1\r\n      DO   1685   J = KCC2,KC2T\r\n      A(I+JJ)    = A(I+JJ)   + F2(J)*Q2(J)\r\n 1685 CONTINUE\r\n 1690 CONTINUE\r\n 1700 CONTINUE\r\n      CALL BCKREC(IN17)\r\n      DO 1710 I=1,NJJ\r\n      A(I) = A(I) * GCK\r\n 1710 CONTINUE\r\n      CALL PACK(A,AJJL,MCB)\r\nC\r\nC     PRINT OUT GENERALIZED AERODYNAMIC FORCE COEFFICIENTS\r\nC\r\n      IF(.NOT.DEBUG) RETURN\r\n      IF(MOOD.GT.1) GO TO 2100\r\n      WRITE  (N6 , 1900 )  MACH ,  BOXL , EK , BOXW\r\n 1900 FORMAT  ( 1H1 , 31X , 30HGENERALIZED AERODYNAMIC FORCE\r\n     *      , 12HCOEFFICIENTS / 1H0 , 9X , 11HMACH NUMBER , F9.3 ,\r\n     *        40X , 10HBOX LENGTH , F12.6 / 1H0\r\n     *      , 9X , 33HREDUCED FREQUENCY  ( ROOT CHORD ) , F10.5 , 17X\r\n     *      , 9HBOX WIDTH , F13.6 / 1H0 , 42X , 21H- -  A ( I , J )  - -\r\n     *      / 6H-  ROW , 9X , 4HREAL , 10X , 4HIMAG , 14X , 4HREAL , 10X\r\n     *      , 4HIMAG , 14X , 4HREAL , 10X , 4HIMAG )\r\n 2100 WRITE(N6,2000) MOOD, (A(J),J=1,NJJ)\r\n 2000 FORMAT  ( 1H0 , I4 , 3 ( E18.4 , E14.4 ) / ( 1H0 , 4X , 3 ( E18.4\r\n     *        , E14.4 ) ) )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbgate.f",
    "content": "      SUBROUTINE MBGATE(NTOTE,DPHITE,N,YWTE,Q,Q1,Q2,KTE,KTE1,KTE2)\r\nC\r\nC     SUM ON TRAILING EDGE\r\nC\r\n      LOGICAL CNTRL1,CNTRL2\r\n      DIMENSION YWTE(1),KTE(1),KTE1(1),KTE2(1)\r\n      COMPLEX Q(1),Q1(1),Q2(1),DPHITE(3,N),DPHI\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2\r\n      COMMON /MBOXA/ X(12),Y(12)\r\n      DO   1400   J = 1 , NTOTE\r\n      DPHI  =  DPHITE(1,J) * 0.5 * AMIN0(J,2)\r\n      IF(CNTRL1.AND.YWTE(J).GE.Y(7).AND.YWTE(J).LE.Y(11)) GO TO 1100\r\n      IF(CNTRL2.AND.YWTE(J).GT.Y(11).AND.YWTE(J).LE.Y(12)) GO TO 1150\r\n      ISP=KTE(J)\r\n      Q(ISP) = DPHI\r\n      GO TO 1300\r\n 1100 ISP=KTE1(J)\r\n      Q1(ISP) = DPHI\r\n      GO TO 1300\r\n 1150 ISP=KTE2(J)\r\n      Q2(ISP) = DPHI\r\n 1300 CONTINUE\r\n 1400 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbgaw.f",
    "content": "      SUBROUTINE MBGAW(BOXL,DPHI,WS,PAW,PAF1,PAF2,Q,Q1,Q2,M,KC,KC1,KC2)\r\nC\r\nC     MAIN PLANE BOXES\r\nC     (NEW MSC METHOD USED)\r\nC\r\n      COMPLEX WS,DPHI,Q(1),Q1(1),Q2(1)\r\n      WS  =  (-0.5 * AMIN0(M,2) * BOXL ) * DPHI\r\n      IF( PAW .LT. 0.005 ) GO TO 120\r\n      Q(KC) = PAW * WS\r\n  120 IF( PAF1 .LT. 0.005 ) GO TO 140\r\n      Q1(KC1) = PAF1 * WS\r\n  140 IF( PAF2 .LT. 0.005 ) GO TO 300\r\n      Q2(KC2) = PAF2 * WS\r\n  300 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbgeod.f",
    "content": "      SUBROUTINE MBGEOD\r\nC\r\nC     SUBROUTINE TO COMPUTE GEOMETRY AND INDEXES OF REGIONS\r\nC\r\n      LOGICAL        CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM\r\n      COMMON /MBOXC/ NJJ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1,\r\n     1               NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW,\r\n     2               BOXA,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10)\r\nC\r\nC     MAIN GEOMETRY\r\nC\r\n      BIG = -1.0E35\r\n      DO 50 I = 1,10\r\n      TANG(I) = 0.0\r\n      ANG(I)  = 0.0\r\n   50 CONTINUE\r\n      Y(4) = Y(1)\r\n      Y(6) = Y(3)\r\nC\r\n      IF (CRANK1) GO TO 400\r\n      X(2) = X(3)\r\n      Y(2) = Y(3)\r\n      TANG(2) = 0.0\r\nC\r\n 400  IF (CRANK2) GO TO 500\r\n      X(5) = X(6)\r\n      Y(5) = Y(6)\r\n      TANG(5) = 0.0\r\nC\r\n 500  TANG(1) = (X(2)-X(1))/(Y(2)-Y(1))\r\n      ANG(1)  = 57.2958*ATAN(TANG(1))\r\n      IF (CRANK1) TANG(2) = (X(3)-X(2))/(Y(3)-Y(2))\r\n      ANG(2)  = 57.2958*ATAN(TANG(2))\r\n      TANG(4) = (X(5)-X(4))/(Y(5)-Y(4))\r\n      ANG(4)  = 57.2958*ATAN(TANG(4))\r\n      IF (CRANK2) TANG(5) = (X(6)-X(5))/(Y(6)-Y(5))\r\n      ANG(5)  = 57.2958*ATAN(TANG(5))\r\nC\r\n      AREAW   = 0.5*(X(1)*(Y(1)-Y(2)) + X(2)*(Y(1)-Y(3)) +\r\n     1               X(3)*(Y(2)-Y(3)) + X(4)*(Y(5)-Y(1)) +\r\n     2               X(5)*(Y(3)-Y(1)) + X(6)*(Y(3)-Y(5)))\r\nC\r\nC     CONTROL1 SURFACE GEOMETRY\r\nC\r\n      AREA1 = 0.0\r\n      IF (.NOT.CNTRL1) GO TO 1620\r\n      TANG(7) = (X(9)-X(8))/(Y(9)-Y(8))\r\n      ANG(7)  = 57.2958*ATAN(TANG(7))\r\nC\r\n      IF (ABS(Y(7)-Y(8)) .GT. 0.01) GO TO 1000\r\n      Y(7) = Y(8)\r\n      TM   = BIG\r\n      IF (Y(7) .GT. Y(5)) GO TO 900\r\n 800  X(7) = TANG(4)*(Y(7)-Y(4)) + X(4)\r\n      GO TO 1100\r\n 900  X(7) = TANG(5)*(Y(7)-Y(5)) + X(5)\r\n      GO TO 1100\r\nC\r\n 1000 TM   = (X(7)-X(8))/(Y(7)-Y(8))\r\n      IF (Y(5).EQ.Y(7) .AND. X(5).EQ.X(7)) GO TO 1100\r\n      Y(7) = (TM*Y(8)-TANG(4)*Y(4)+X(4)-X(8))/(TM-TANG(4))\r\n      IF (Y(7) .LE. Y(5)) GO TO 800\r\n      Y(7) = (TM*Y(8)-TANG(5)*Y(5)+X(5)-X(8))/(TM-TANG(5))\r\n      GO TO 900\r\n 1100 TANG(6) = TM\r\nC\r\n      IF (ABS(Y(11)-Y(9)) .GT. 0.01) GO TO 1400\r\n      Y(11) =  Y(9)\r\n      TM    =  BIG\r\n      IF (Y(11) .GT. Y(5)) GO TO 1300\r\n 1200 X(11) = TANG(4)*(Y(11)-Y(4)) + X(4)\r\n      GO TO 1500\r\n 1300 X(11) = TANG(5)*(Y(11)-Y(5)) + X(5)\r\n      GO TO 1500\r\nC\r\n 1400 TM    = (X(11)-X(9))/(Y(11)-Y(9))\r\n      IF (Y(5).EQ.Y(11) .AND. X(5).EQ.X(11)) GO TO 1500\r\n      Y(11) = (TM*Y(9)-TANG(4)*Y(4)+X(4)-X(9))/(TM-TANG(4))\r\n      IF (Y(11) .LE. Y(5)) GO TO 1200\r\n      Y(11) = (TM*Y(9)-TANG(5)*Y(5)+X(5)-X(9))/(TM-TANG(5))\r\n      GO TO 1300\r\n 1500 TANG(8) = TM\r\nC\r\n      IF (Y(7).LE.Y(5) .AND. Y(11).GE.Y(5)) GO TO 1600\r\n      AREA1 = 0.5*((X(8)-X(11))*(Y(7)-Y(9)) +\r\n     1             (X(9)-X(7))*(Y(8)-Y(11)))\r\n      GO TO 1620\r\nC\r\n 1600 AREA1 = 0.5*(X(5)*(Y(11)-Y(7)) + X(8)*(Y(7)-Y(9)) +\r\n     1             X(9)*(Y(8)-Y(11)) + X(7)*(Y(5)-Y(8)) +\r\n     2             X(11)*(Y(9)-Y(5)))\r\nC\r\nC     CONTROL2 SURFACE GEOMETRY\r\nC\r\n 1620 AREA2 = 0.0\r\n      IF (.NOT.CNTRL2) GO TO 1700\r\n      TANG(10) = (X(10)-X(9))/(Y(10)-Y(9))\r\n      ANG(10)  = 57.2958*ATAN(TANG(10))\r\n      IF (ABS(Y(12)-Y(10)) .GT. 0.01) GO TO 1660\r\n      Y(12) = Y(10)\r\n      TM    = BIG\r\n      IF (Y(12) .GT. Y(5)) GO TO 1650\r\n 1640 X(12) = TANG(4)*(Y(12)-Y(4)) + X(4)\r\n      GO TO 1670\r\n 1650 X(12) = TANG(5)*(Y(12)-Y(5)) + X(5)\r\n      GO TO 1670\r\n 1660 TM    = (X(12)-X(10))/(Y(12)-Y(10))\r\n      IF (Y(5).EQ.Y(12) .AND. X(5).EQ.X(12) ) GO TO 1670\r\n      Y(12) = (TM*Y(10)-TANG(4)*Y(4)+X(4)-X(10))/(TM-TANG(4))\r\n      IF (Y(12) .LE. Y(5)) GO TO 1640\r\n      Y(12) = (TM*Y(10)-TANG(5)*Y(5)+X(5)-X(10))/(TM-TANG(5))\r\n      GO TO 1650\r\n 1670 TANG(9) = TM\r\nC\r\n      IF (Y(11).LE.Y(5) .AND. Y(12).GE.Y(5)) GO TO 1680\r\n      AREA2 = 0.5*((X(9)-X(12))*(Y(11)-Y(10))\r\n     1           +(X(10)-X(11))*(Y(9)-Y(12)))\r\n      GO TO 1700\r\nC\r\n 1680 AREA2 = 0.5*(X(5)*(Y(12)-Y(11))+X(9)*(Y(11)\r\n     1      - Y(10))+X(10)*(Y(9)-Y(12))+X(11)*(Y(5)\r\n     2      - Y(9))+X(12)*(Y(10)-Y(5)))\r\nC\r\nC     PRINT GEOMETRY DATA\r\nC\r\n 1700 CR    = X(4) - X(1)\r\n      CALL MBPRIT (AREAW,AREA1,AREA2)\r\n      GC    = 2.0*CR**2\r\n      XCENT = (X(3)+X(4)+X(6))/4.0\r\n      YCENT = Y(3)*(0.333 + 0.167*(X(6)-X(3))/X(4))\r\nC\r\n      DO 2100 I = 1,10\r\n      IF (TANG(I) .NE. 0) GO TO 1900\r\n      COTANG(I) = BIG\r\n      GO TO 2100\r\n 1900 IF (TANG(I) .NE. BIG) GO TO 2000\r\n      COTANG(I) = 0.\r\n      GO TO 2100\r\n 2000 COTANG(I) = 1./TANG(I)\r\n 2100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbmode.f",
    "content": "      SUBROUTINE MBMODE(INPUT,OUT,ICOR,NCOR,Z,NI,ND,XD,YD,IS,CR)\r\nC\r\nC     MBMODE BUILDS THE MODE LIKE DATA ON OUT FROM SURFACE SPLINE INTER\r\nC\r\n      DIMENSION Z(1),XD(1),YD(1),NAME(2)\r\n      DATA NAME /4HMBMO,4HDE  /\r\n      NNI = NI*2\r\n      NND = ND*2\r\n      IF(ICOR+NNI+NND.GT.NCOR) CALL MESAGE(-8,0,NAME)\r\n      CALL FREAD(INPUT,Z(ICOR),NNI,0)\r\n      IDP = ICOR + NNI\r\n      L = 0\r\n      DO 10 I=1,ND\r\n      Z(IDP+L) = XD(I)\r\n      Z(IDP+L+1) = YD(I)\r\n      L = L+2\r\n   10 CONTINUE\r\n      ICC = IDP+L\r\n      NCORE = NCOR-ICC\r\nC\r\nC     CALL SSPLIN TO INTERPOLATE\r\nC\r\n      CALL SSPLIN(NI,Z(ICOR),ND,Z(IDP),0,0,1,0,0.0,Z(ICC),NCORE,IS)\r\n      IF(IS.EQ.2) GO TO 1000\r\nC\r\nC     REORDER INTO MACH BOX ORDER\r\nC\r\n      M = IDP+ND\r\n      ICC = ICC-1\r\n      DO 30 I=1,NI\r\n      L = 0\r\n      DO 20 J=1,NND,2\r\n      Z(IDP+L) = Z(ICC+J)\r\n      Z(M+L) = Z(ICC+J+1) * CR\r\n      L = L+1\r\n   20 CONTINUE\r\n      CALL WRITE(OUT,Z(IDP),NND,0)\r\n      ICC = ICC + NND\r\n   30 CONTINUE\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbplot.f",
    "content": "      SUBROUTINE MBPLOT (NW1,ND1,NWN,NC21,NC2N,NC1,NCN,NDN)\r\nC\r\nC     SUBROUTINE TO PRINT A REPRESENTATION OF PLANFORM BEING CONSIDERED\r\nC\r\n      REAL            MACH\r\n      DIMENSION       NW1(1),ND1(1),NWN(1),NC21(1),NC2N(1),NC1(1),\r\n     1                NCN(1),NDN(1),PL(50)\r\n      COMMON /SYSTEM/ SYS,N6\r\n      COMMON /MBOXC / NJJ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1,\r\n     1                NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW,\r\n     2                BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      DATA    BLANK , DIA, WG , FP , TP , WK  /\r\n     1        1H    , 1H., 1HS, 1H1,1H2 , 1H, /\r\nC\r\n      NSBM  = MAX0(NSB,NSBD)\r\n      NCBMX = MAX0(NCB,5   )\r\n      WRITE  (N6,200) MACH,BOXW,BOXL\r\n 200  FORMAT (1H1,29X,'GRAPHIC DISPLAY OF REGIONS ON MAIN SEMISPAN',\r\n     1        /10X,11HMACH NUMBER ,F8.3,11X,9HBOX WIDTH ,F11.6 ,10X,\r\n     2        10HBOX LENGTH ,F11.6, //)\r\n      DO 3100 I = 1,NCBMX\r\n      DO 1900 J = 1,NSBM\r\n      PL(J) = BLANK\r\n      IF (J .GT. NSB   ) GO TO 1500\r\n      IF (I .GE. NW1(J)) GO TO 1100\r\n      IF (I .LT. ND1(J)) GO TO 1900\r\n      PL(J) = DIA\r\n      GO TO 1900\r\n 1100 IF (I .GT. NWN(J)) GO TO 1300\r\n      IF (I.GE.NC21(J) .AND. I.LE.NC2N(J)) GO TO 1150\r\n      IF (I.GE.NC1(J)  .AND. I.LE.NCN(J) ) GO TO 1200\r\n      PL(J) = WG\r\n      GO TO 1900\r\n 1150 PL(J) = TP\r\n      GO TO 1900\r\n 1200 PL(J) = FP\r\n      GO TO 1900\r\n 1300 IF (I .GT. NDN(J)) GO TO 1900\r\n      PL(J) = WK\r\n      GO TO 1900\r\n 1500 IF ((I.GE.ND1(J) .AND. I.LE.NDN(J)) .OR. (I.GE.NC1(J) .AND.\r\n     1     I.LE.NCN(J))) PL(J) = DIA\r\n      GO TO 1900\r\n 1900 CONTINUE\r\nC\r\n      WRITE  (N6,2000) (PL(J),J=1,NSBM)\r\n 2000 FORMAT (30X,50A1)\r\nC\r\n      IF (I .GT. 5) GO TO 3100\r\n      GO TO (2100,2300,2500,2700,2900), I\r\n 2100 WRITE  (N6,2200)\r\n 2200 FORMAT (1H+,84X,9HS    MAIN )\r\n      GO TO  3100\r\n 2300 WRITE  (N6,2400)\r\n 2400 FORMAT (1H+,84X,11H1    CNTRL1 )\r\n      GO TO  3100\r\n 2500 WRITE  (N6,2600)\r\n 2600 FORMAT (1H+,84X,11H2    CNTRL2 )\r\n      GO TO  3100\r\n 2700 WRITE  (N6,2800)\r\n 2800 FORMAT (1H+,84X,14H.    DIAPHRAGM )\r\n      GO TO  3100\r\n 2900 WRITE  (N6,3000)\r\n 3000 FORMAT (1H+,84X,9H,    WAKE )\r\n 3100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbprit.f",
    "content": "      SUBROUTINE MBPRIT(AW,AC,AT)\r\nC\r\nC     SUBROUTINE TO PRINT GEOMETRY DATA\r\nC\r\n      LOGICAL  CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM\r\n      COMMON /SYSTEM/ SYS,N6\r\n      COMMON /MBOXA/ X(12),Y(12),TANG(10),ANG(10),COTANG(10)\r\n      COMMON /MBOXC/ NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,\r\n     *  NPTS0,NPTS1,NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,\r\n     *  BOXL,BOXW,BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\nC\r\n      WRITE  (N6 , 200 )  CNTRL2 , CNTRL1 , CRANK1 , CRANK2 , ASYM\r\n 200  FORMAT  ( 1H1 , 35X , 27HSUPERSONIC MACH BOX PROGRAM / 1H0 , 43X\r\n     *        , 12HCONTROL DATA / L20 , 9X , 6HCNTRL2 / L20 , 9X\r\n     *        , 6HCNTRL1 / L20 , 9X , 21HCRANK  (LEADING EDGE)\r\n     *        / L20 , 9X , 22HCRANK  (TRAILING EDGE) / L20 , 9X\r\n     *        , 14HANTI-SYMMETRIC / L20 )\r\nC\r\n      WRITE  (N6 , 300 )   ( I , X(I) , Y(I) , TANG(I) , ANG(I) , I=1,7)\r\n 300  FORMAT  (1H- , 42X , 13HGEOMETRY DATA / 1H0 , 8X , 1HN , 11X , 1HX\r\n     *        , 17X , 1HY , 16X , 4HTANG , 14X , 3HANG / ( I10\r\n     *        , 4E18.6 ) )\r\nC\r\n      WRITE  (N6 , 400 )  ( I , X(I) , Y(I) , TANG(I) , I = 8 , 10)\r\n     *                  , ( I , X(I) , Y(I) , I = 11 , 12 )\r\n 400  FORMAT(I10,3E18.6/I10,3E18.6/I10,3E18.6/(I10,2E18.6))\r\nC\r\n      WRITE  (N6 , 500 )   AW , AC , AT\r\n 500  FORMAT  ( 1H0 , 5X , 23HAREA OF MAIN (SEMISPAN) , 11X\r\n     *        , 15HAREA OF CNTRL1\r\n     *       , 18X , 14HAREA OF CNTRL2 / E22.6,E34.6,E29.6)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mbreg.f",
    "content": "      SUBROUTINE MBREG (IREG,NW1,NWN,NC21,NC2N,NC1,NCN,ND1,NDN,XK,YK,\r\n     1                  XK1,YK1,XK2,YK2,XWTE,YWTE,KTE,KTE1,KTE2,PAREA)\r\nC\r\nC     SUBROUTINE TO COMPUTE LIMITS OF REGION AND PERCENTAGE OF BOX IN\r\nC     EACH\r\nC\r\n      LOGICAL         CNTRL2,CNTRL1,CRANK1,CRANK2,ASYM,DEBUG\r\n      DIMENSION       NW1(1),NWN(1),NC21(1),NC2N(1),NC1(1),NCN(1),\r\n     1                ND1(1),NDN(1),XK(1),YK(1),XK1(1),YK1(1),XK2(1),\r\n     2                YK2(1),XWTE(1),YWTE(1),KTE(1),KTE1(1),KTE2(1)\r\n      DIMENSION PAREA(50,50,3)\r\n      COMMON /SYSTEM/ SYS,N6\r\n      COMMON /MBOXA / X(12),Y(12),TANG(10),ANG(10),COTANG(10)\r\n      COMMON /MBOXC / NJJ ,CRANK1,CRANK2,CNTRL1,CNTRL2,NBOX,NPTS0,NPTS1,\r\n     1                NPTS2,ASYM,GC,CR,MACH,BETA,EK,EKBAR,EKM,BOXL,BOXW,\r\n     2                BOXA ,NCB,NSB,NSBD,NTOTE,KC,KC1,KC2,KCT,KC1T,KC2T\r\n      DATA    DEBUG / .FALSE./\r\nC\r\n      IPRINT = 0\r\n      IF (DEBUG) IPRINT = 1\r\nC\r\n      IREG = 1\r\n      BOXA = BOXL*BOXW\r\n      KPT  = 0\r\n      KC1T = 0\r\n      KC2T = 0\r\n      DO 20 I = 1,50\r\n      NW1(I)  = 0\r\n      NWN(I)  = 0\r\n      NC1(I)  = 0\r\n      NCN(I)  = 0\r\n      NC21(I) = 0\r\n      NC2N(I) = 0\r\n      ND1(I)  = 0\r\n      NDN(I)  = 0\r\n      KTE(I)  = 0\r\n      KTE1(I) = 0\r\n      KTE2(I) = 0\r\n      XWTE(I) = 0.0\r\n      YWTE(I) = 0.0\r\n      DO 10 J = 1,50\r\n      DO 10 KP = 1,3\r\n      PAREA(I,J,KP) = 0.\r\n   10 CONTINUE\r\n   20 CONTINUE\r\n      DO 30 I = 1,200\r\n      XK(I) = 0.0\r\n   30 YK(I) = 0.0\r\n      DO 40 I = 1,125\r\n      XK1(I) = 0.0\r\n      YK1(I) = 0.0\r\n      XK2(I) = 0.0\r\n   40 YK2(I) = 0.0\r\nC\r\nC     LEADING EDGE OF MAIN\r\nC\r\n      XRE = 0.0\r\n      YBE = 0.0\r\n      K   = 1\r\n      YR  = -0.5*BOXW\r\n      DO 220 I = 1,NSB\r\n      YL  = YR\r\n      YR  = (FLOAT(I)-0.5)*BOXW\r\n      XLE = XRE\r\n      IF (YR .GT. Y(K+1)) GO TO 50\r\n      XRE = (YR-Y(K))*TANG(K) + X(K)\r\n      GO TO 60\r\n   50 XRE = (YR-Y(K+1))*TANG(K+1) + X(K+1)\r\n      KPT = 1\r\n   60 XT  = XLE - AMOD(XLE,BOXL)\r\n      XB  = XT + BOXL\r\n      J1  = XB/BOXL + 0.01\r\nC\r\nC\r\n      DO 170 J = J1,NCB\r\n      IF (XRE .GT. XB) GO TO 100\r\n      IF (XLE .GT. XT) GO TO 90\r\nC\r\n      IF (XT .LE. X(K+1)) GO TO 70\r\n      YTE  = (XT-X(K+1))*COTANG(K+1) + Y(K+1)\r\n      GO TO 80\r\n   70 YTE  = (XT-X(K))*COTANG(K) + Y(K)\r\n      IF (KPT .EQ. 1) KPT =  2\r\n   80 A = 0.5*(YR-YTE)*(XRE-XT)\r\n      IF (KPT .EQ. 2) A = A + (XT*(Y(K+1)-YR) - YTE*(X(K+1)-XRE) +\r\n     1                    X(K+1)*YR - XRE*Y(K+1))/2.0\r\n      PA = 1.0 - A/BOXA\r\n      GO TO 180\r\nC\r\n   90 A  = 0.5*(XLE+XRE-2.0*XT)*(YR-YL)\r\n      IF (KPT .GT. 0) A = A + (XLE*(Y(K+1)-YR) - YL*(X(K+1)-XRE) +\r\n     1                    X(K+1)*YR - XRE*Y(K+1))/2.0\r\n      PA = 1.0 - A/BOXA\r\n      GO TO 180\r\nC\r\n  100 IF (XLE .GT. XT) GO TO 130\r\nC\r\n      YTE = YBE\r\n      IF (XB .GT. X(K+1)) GO TO 110\r\n      YBE = (XB-X(K))*COTANG(K) + Y(K)\r\n      GO TO 120\r\n  110 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1)\r\n      IF (KPT .EQ. 1) KPT  =  2\r\n  120 A = 0.5*(YTE+YBE-2.0*YL)*BOXL\r\n      IF (KPT .EQ. 2) A = A + (XT*(YBE-Y(K+1)) - YTE*(XB-X(K+1)) +\r\n     1                    XB*Y(K+1) - YBE*X(K+1))/2.0\r\n      PA = A/BOXA\r\n      GO TO 160\r\nC\r\n  130 IF (XB .GT. X(K+1)) GO TO 140\r\n      YBE = (XB-X(K))*COTANG(K) + Y(K)\r\n      GO TO 150\r\n  140 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1)\r\n      IF (KPT .EQ. 1) KPT =  2\r\n  150 A   = 0.5*(XB-XLE)*(YBE-YL)\r\n      IF (KPT .EQ. 2) A = A + (XLE*(YBE-Y(K+1)) - YL*(XB-X(K+1)) +\r\n     1                    XB*Y(K+1) - YBE*X(K+1))/2.0\r\n      PA  = A/BOXA\r\n  160 XT  = XB\r\n      XB  = FLOAT(J+1)*BOXL\r\n      IF (KPT .EQ. 2) KPT = 3\r\n      IF (I .EQ. 1) PA = 2.0*PA - 1.0\r\n      PAREA(J,I,1) = PA\r\n  170 CONTINUE\r\n      GO TO 190\r\nC\r\n  180 IF (I .EQ. 1) PA = 2.0*PA - 1.0\r\n      PAREA(J,I,1) = PA\r\n  190 YC  = YR - 0.5*BOXW\r\n      IF (KPT .LE. 0) GO TO 200\r\n      IF (YC .LE. Y(K+1)) GO TO 200\r\n      XC  = (YC-Y(K+1))*TANG(K+1) + X(K+1)\r\n      GO TO 210\r\n  200 XC  =  (YC-Y(K))*TANG(K) + X(K)\r\n  210 NW1(I) = XLE/BOXL + 1.0001\r\n      IF (KPT .GT. 0) K = K + 1\r\n      KPT = 0\r\n  220 CONTINUE\r\n      IF (IPRINT .LE. 0) GO TO 250\r\n      WRITE  (N6,240)\r\n      WRITE  (N6,230) (NW1(I),I=1,NSB)\r\n  230 FORMAT (10I12)\r\n  240 FORMAT (4H NW1)\r\n  250 CONTINUE\r\nC\r\nC     TRAILING EDGE OF MAIN\r\nC\r\n      XRE = X(4)\r\n      K   = 4\r\n      YR  = 0.0\r\n      DO 460 I = 1,NSB\r\n      YL  = YR\r\n      YR  = (FLOAT(I)-0.5)*BOXW\r\n      XLE = XRE\r\n      IF (YR .GT. Y(K+1)) GO TO 260\r\n      XRE = (YR-Y(K))*TANG(K) + X(K)\r\n      GO TO 270\r\n  260 XRE = (YR-Y(K+1))*TANG(K+1) + X(K+1)\r\n      KPT = 1\r\n  270 XT  = XLE - AMOD(XLE,BOXL)\r\n      XB  = XT + BOXL\r\n      J   = XB/BOXL + 0.01\r\n      IF (J .GT. 50) GO TO 410\r\n      IPT = 0\r\n      IF (XRE.GT.XB .OR. XRE.LT.XT) GO TO 280\r\n      A   = 0.5*(XLE+XRE-2.0*XT)*(YR-YL)\r\n      IF (KPT .GT. 0) A = A + (XLE*(Y(K+1)-YR) - YL*(X(K+1)-XRE) +\r\n     1                    X(K+1)*YR - Y(K+1)*XRE)/2.0\r\n      IF (I .EQ. 1) A = 2.0*A\r\n      GO TO 430\r\nC\r\n  280 IPT = 1\r\n      IF (XLE .LT. XRE) GO TO 340\r\n      IPT = -1\r\n  290 IF (XRE .LT. XT) GO TO 300\r\nC\r\n      A  =  0.5*(XB-XRE)*(YR-YTE)\r\n      IF (KPT.GT.0 .AND. KPT.LT.3) A = A - (XRE*(YTE - Y(K+1)) -\r\n     1                   YR*(XB-X(K+1)) + XB*Y(K+1) - YTE*X(K+1))/2.0\r\n      IF (I .EQ. 1) A = 2.0*A\r\n      GO TO 420\r\nC\r\n  300 YBE = YTE\r\n      IF (XT .LT. X(K+1)) GO TO 310\r\n      YTE = (XT-X(K))*COTANG(K) + Y(K)\r\n      GO TO 320\r\n  310 YTE = (XT-X(K+1))*COTANG(K+1) + Y(K+1)\r\n      IF (KPT .EQ. 1) KPT =  2\r\n  320 IF (XLE .GT. XB) GO TO 330\r\nC\r\n      A = 0.5*(XLE-XT)*(YTE-YL)\r\n      IF (KPT .EQ. 2) A = A + (XT*(YL-Y(K+1)) - YTE*(XLE-X(K+1)) +\r\n     1                    XLE*Y(K+1) - YL*X(K+1))/2.0\r\n      GO TO 390\r\nC\r\n  330 A = 0.5*BOXL*(YTE+YBE - 2.0*YL)\r\n      IF (KPT .EQ. 2) A = A + (XT*(YBE-Y(K+1)) - YTE*(XB- X(K+1)) +\r\n     1                    XB*Y(K+1) - YBE*X(K+1))/2.0\r\n      GO TO 390\r\nC\r\n  340 IF (XRE .GT. XB) GO TO 350\r\nC\r\n      A = 0.5*(YR-YBE)*(XRE-XT)\r\n      IF (KPT.GT.0 .AND. KPT.LT.3) A = A + (XT*(Y(K+1)-YR) -\r\n     1                   YBE*(X(K+1)-XRE ) + X(K+1)*YR - Y(K+1)*XRE)/2.0\r\n      IF (I .EQ. 1) A = 2.0*A\r\n      GO TO 430\r\nC\r\n  350 YTE = YBE\r\n      IF (XB .GT. X(K+1)) GO TO 360\r\n      YBE = (XB-X(K))*COTANG(K) + Y(K)\r\n      GO TO 370\r\n  360 YBE = (XB-X(K+1))*COTANG(K+1) + Y(K+1)\r\n      IF (KPT .EQ.  1) KPT = 2\r\n  370 IF (XLE .LT. XT) GO TO 380\r\nC\r\n      A  = 0.5*(XB-XLE)*(YBE-YL)\r\n      IF (KPT .EQ. 2) A = A - (XLE*(Y(K+1)-YBE) - YL* (X(K+1)-XB) +\r\n     1                    X(K+1)*YBE - Y(K+1)*XB)/2.0\r\n      IF (I .EQ. 1) A = 2.0*A\r\n      A  =  BOXA - A\r\n      GO TO 400\r\nC\r\n  380 A  =  0.5*BOXL*(2.0*YR - YTE - YBE)\r\n      IF (KPT .EQ. 2) A = A + (XT*(Y(K+1)-YBE) - YTE*(X(K+1)-XB) +\r\n     1                    X(K+1)*YBE - Y(K+1)*XB)/2.0\r\nC\r\n  390 IF (I .EQ. 1) A = 2.0*A\r\n  400 PA = A/BOXA\r\n      A  = 1.0\r\n      IF (PAREA(J,I,1) .GT. 0.0) A = PAREA(J,I,1)\r\n      PAREA(J,I,1) = PA*A\r\n      J  = J + IPT\r\n      IF (J .GT. 50) GO TO 410\r\n      XB = FLOAT(J)*BOXL\r\n      XT = XB - BOXL\r\n      IF (KPT .EQ. 2) KPT = 3\r\n      IF (IPT .GT. 0) GO TO 340\r\n      GO TO 290\r\n  410 IREG = 2\r\n      RETURN\r\nC\r\n  420 A  = BOXA - A\r\n  430 YC = YR - 0.5*BOXW\r\n      IF (KPT .LE. 0) GO TO 440\r\n      IF (YC .LE. Y(K+1)) GO TO 440\r\n      XC = (YC-Y(K+1))*TANG(K+1) + X(K+1)\r\n      GO TO 450\r\n  440 XC = (YC-Y(K))*TANG(K) + X(K)\r\n  450 NWN(I) = AMAX1(XLE,XRE)/BOXL + 0.9999\r\n      PA = A/BOXA\r\n      A  = 1.0\r\n      IF (PAREA(J,I,1) .GT. 0.0) A = PAREA(J,I,1)\r\n      PAREA(J,I,1) = PA*A\r\n      XWTE(I) = XC\r\n      YWTE(I) = YC\r\n      IF (KPT .GT. 0) K = K + 1\r\n      KPT =  0\r\n  460 CONTINUE\r\n      IF (IPRINT .LE. 0) GO TO 480\r\n      WRITE  (N6,470)\r\n      WRITE  (N6,230) (NWN(I),I=1,NSB)\r\n  470 FORMAT (4H NWN)\r\n  480 CONTINUE\r\n      NTOTE = NSB\r\nC\r\nC     FILL IN MAIN PERCENTAGES\r\nC\r\n      DO 520 I = 1,NSB\r\n      N1 = NW1(I)\r\n      NN = NWN(I)\r\n      DO 490 J = N1,NN\r\n      IF (PAREA(J,I,1) .LE. 0.0) PAREA(J,I,1) = 1.0\r\n  490 CONTINUE\r\nC\r\nC     DIAPHRAGM INDEX\r\nC\r\n      IF (I .NE. 1) GO TO 500\r\n      ND1(1) = NW1(1)\r\n      NDN(1) = NWN(1)\r\n      GO TO 520\r\n  500 ND1(I) = MIN0(NW1(I),ND1(I-1)+1)\r\n      NDN(I) = MAX0(NWN(I),NDN(I-1)-1)\r\n      IF (NDN(I) .LE. NDN(I-1)+1) GO TO 520\r\n      DO 510 K = 2,I\r\n      KK = I - K + 1\r\n      IF (NDN(KK) .GE. NDN(KK+1)-1) GO TO 520\r\n      NDN(KK) = MAX0(NDN(KK),NDN(KK+1)-1)\r\n  510 CONTINUE\r\n  520 CONTINUE\r\n      J  =  NSB + 1\r\n  530 IF (ND1(J-1) .GE. NDN(J-1)-1) GO TO 540\r\n      ND1(J) = ND1(J-1) + 1\r\n      NDN(J) = NDN(J-1) - 1\r\n      J  = J + 1\r\n      IF (J .LE. 50) GO TO 530\r\n      IREG =  2\r\n      RETURN\r\nC\r\n  540 NSBD =  J - 1\r\n      IF (IPRINT .LE. 0) GO TO 580\r\n      WRITE  (N6,550)\r\n      WRITE  (N6,230) (ND1(I),I=1,NSBD)\r\n  550 FORMAT (4H ND1)\r\n      WRITE  (N6,560)\r\n      WRITE  (N6,230) (NDN(I),I=1,NSBD)\r\n  560 FORMAT (4H NDN)\r\nC\r\n      WRITE  (N6,610)\r\n      DO 570 I = 1,NCB\r\n      WRITE (N6,640) I\r\n      WRITE (N6,600) (PAREA(I,J,1),J=1,NSB)\r\n  570 CONTINUE\r\n  580 IF (CNTRL1) CALL MBCTR (1,IL1,IR1,NCN,NC1,NWN,NW1,PAREA)\r\n      IF (CNTRL2) CALL MBCTR (2,IL2,IR2,NC2N,NC21,NWN,NW1,PAREA)\r\n      IF (IPRINT .EQ. 0) GO TO 650\r\n      DO 590 KXYZ = 1,3\r\n      IF (KXYZ .EQ. 1) WRITE (N6,610)\r\n      IF (KXYZ .EQ. 2) WRITE (N6,620)\r\n      IF (KXYZ .EQ.3 ) WRITE (N6,630)\r\n      DO 590 I = 1,NCB\r\n      WRITE (N6,640) I\r\n      WRITE (N6,600) (PAREA(I,J,KXYZ),J=1,NSB)\r\n  590 CONTINUE\r\n  600 FORMAT (5X,10F9.5)\r\n  610 FORMAT (12H PAREA, MAIN)\r\n  620 FORMAT (14H PAREA, CNTRL1)\r\n  630 FORMAT (14H PAREA, CNTRL2)\r\n  640 FORMAT (4H ROW,I4)\r\nC\r\nC     MAIN BOX CTR. COORDINATES\r\nC\r\n  650 KC = 0\r\n      DO 660 I = 1,NCB\r\n      IXR = I - 1\r\n      DO 660 J = 1,NSB\r\n      IF (.NOT.(I.GE.(ND1(J)) .AND. I.LE.(NDN(J)))) GO TO 660\r\n      IF (PAREA(I,J,1) .LT. 0.005) GO TO 660\r\n      JXR = J  - 1\r\n      KC  = KC + 1\r\n      IF (KC .GE. 200) GO TO 830\r\n      XK(KC) = BOXL*(FLOAT(IXR)+0.5)\r\n      YK(KC) = BOXW*FLOAT(JXR)\r\n  660 CONTINUE\r\n      DO 670 J = 1,NSB\r\n      KC = KC + 1\r\n      IF (KC .GE. 200) GO TO 830\r\n      KTE(J) = KC\r\n      XK(KC) = XWTE(J)\r\n      YK(KC) = YWTE(J)\r\n  670 CONTINUE\r\n      KCT = KC\r\n      IF (IPRINT .LE. 0) GO TO 700\r\n      WRITE  (N6,680) (I,XK(I),I=1,KC)\r\n  680 FORMAT (1H1,23H MAIN BOX CTR. X COORD.,/(10(1X,I4,F8.2)))\r\n      WRITE  (N6,690) (I,YK(I),I=1,KC)\r\n  690 FORMAT (1H1,23H MAIN BOX CTR. Y COORD.,/(10(1X,I4,F8.2)))\r\n  700 CONTINUE\r\nC\r\nC     CNTRL1 BOX CTR. COORDINATES\r\nC\r\n      IF (.NOT.CNTRL1) GO TO 750\r\n      KC1 = 0\r\n      DO 710 I = 1,NCB\r\n      IXR = I - 1\r\n      DO 710 J = IL1,IR1\r\n      IF (PAREA(I,J,2) .LT. 0.005) GO TO 710\r\n      JXR = J - 1\r\n      KC1 = KC1 + 1\r\n      IF (KC1 .GE. 125) GO TO 830\r\n      XK1(KC1) = BOXL*(FLOAT(IXR)+0.5)\r\n      YK1(KC1) = BOXW*FLOAT(JXR)\r\n  710 CONTINUE\r\n      DO 720 J = IL1,IR1\r\n      KC1 = KC1 + 1\r\n      IF (KC1 .GE. 125) GO TO 830\r\n      KTE1(J)  = KC1\r\n      XK1(KC1) = XWTE(J)\r\n      YK1(KC1) = YWTE(J)\r\n  720 CONTINUE\r\n      KC1T = KC1\r\n      IF (IPRINT .LE. 0) GO TO 750\r\n      WRITE  (N6,730) (I,XK1(I),I=1,KC1)\r\n  730 FORMAT (1H1,25H CNTRL1 BOX CTR. X COORD.,/(10(1X,I4,F8.2)))\r\n      WRITE  (N6,740) (I,YK1(I),I=1,KC1)\r\n  740 FORMAT (1H1,25H CNTRL1 BOX CTR. Y COORD.,/(10(1X,I4,F8.2)))\r\nC\r\nC     CNTRL2 BOX CTR. COORDINATES\r\nC\r\n  750 IF (.NOT.CNTRL2) GO TO 800\r\n      KC2 = 0\r\n      DO 760 I = 1,NCB\r\n      IXR = I - 1\r\n      DO 760 J = IL2,IR2\r\n      IF (PAREA(I,J,3) .LT. 0.005) GO TO 760\r\n      JXR = J - 1\r\n      KC2 = KC2 + 1\r\n      IF (KC2 .GE. 125) GO TO 830\r\n      XK2(KC2) = BOXL*(FLOAT(IXR)+0.5)\r\n      YK2(KC2) = BOXW*FLOAT(JXR)\r\n  760 CONTINUE\r\n      DO 770 J = IL2,IR2\r\n      KC2 = KC2 + 1\r\n      IF (KC2 .GE. 125) GO TO 830\r\n      KTE2(J)  = KC2\r\n      XK2(KC2) = XWTE(J)\r\n      YK2(KC2) = YWTE(J)\r\n  770 CONTINUE\r\n      KC2T = KC2\r\n      IF (IPRINT .LE. 0) GO TO 800\r\n      WRITE  (N6,780) (I,XK2(I),I=1,KC2)\r\n  780 FORMAT (1H1,25H CNTRL2 BOX CTR. X COORD.,/(10(1X,I4,F8.2)))\r\n      WRITE  (N6,790) (I,YK2(I),I=1,KC2)\r\n  790 FORMAT (1H1,25H CNTRL2 BOX CTR. Y COORD.,/(10(1X,I4,F8.2)))\r\n  800 CONTINUE\r\n      BOXL = BOXL/CR\r\n      BOXW = BOXW/CR\r\n      BOXA = BOXA/CR**2\r\n      DO 810 I = 1,12\r\n      X(I) = X(I)/CR\r\n  810 Y(I) = Y(I)/CR\r\n      DO 820 I = 1,50\r\n      XWTE(I) = XWTE(I)/CR\r\n  820 YWTE(I) = YWTE(I)/CR\r\n      GO TO 840\r\n  830 IREG = 2\r\n  840 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce1.f",
    "content": "      SUBROUTINE MCE1\r\nC\r\nC     MCE1 PARTITIONS RG INTO RM AND RN\r\nC     THEN SOLVES THE MATRIX EQUATION RM * GM = -RN.\r\nC\r\nC\r\n      INTEGER        USET   ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM   ,\r\n     1               RN     ,L     ,U\r\n      COMMON /BLANK/ USET   ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM   ,\r\n     1               RN     ,L     ,U     ,MCB(7)\r\nC\r\nC     SET INPUT, OUTPUT AND SCRATCH FILES\r\nC\r\n      USET = 101\r\n      RG   = 102\r\n      GM   = 201\r\n      SCR1 = 304\r\n      SCR2 = 305\r\n      SCR3 = 301\r\n      RM   = 302\r\n      RN   = 303\r\n      L    = 306\r\n      U    = 307\r\nC\r\nC     PARTITION RG INTO RM AND RN\r\nC\r\n      CALL MCE1A\r\nC\r\nC     TEST FOR RM DIAGONAL\r\nC\r\n      MCB(1) = RM\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(5).EQ.1 .AND. MCB(6).EQ.1) GO TO 50\r\n      IF (MCB(5).EQ.2 .AND. MCB(6).EQ.2) GO TO 50\r\nC\r\nC     RM IS NOT DIAGONAL, DECOMPOSE RM THEN SOLVE FOR GM\r\nC     BY FORWARD-BACKWARD SUBSTITUTION.\r\nC\r\n      CALL MCE1B\r\n      CALL MCE1C\r\n      RETURN\r\nC\r\nC     RM IS DIAGONAL, COMPUTE GM = -RM(-1) * RN\r\nC\r\n   50 CALL MCE1D\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce1a.f",
    "content": "      SUBROUTINE MCE1A\r\nC\r\nC     MCE1A PARTITIONS RG INTO RM AND RN\r\nC\r\n      INTEGER USET   ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,RN    ,\r\n     1        UM     ,UN    ,UG    ,A     ,A11   ,A21   ,A12   ,A22   ,\r\n     2        RULE   ,USETXX,Z     ,RECT  ,SQUARE\r\n      COMMON /BLANK / USET  ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,\r\n     1                RN    ,L     ,U     ,MCB(7)\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA    ,\r\n     1                UF    ,US    ,UN    ,UG\r\n      COMMON /PARMEG/ A(7)  ,A11(7),A21(7),A12(7),A22(7),N     ,RULE\r\n      COMMON /PATX  / NZ    ,NSUB1 ,NSUB2 ,NSUB3 ,USETXX\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    RECT  / 2 /   ,SQUARE / 1 / ,I / 1 /\r\nC\r\nC     GENERATE ROW PARTITIONING VECTOR\r\nC\r\n      NZ = KORSZ(Z)\r\n      USETXX = USET\r\n      CALL CALCV (SCR1,UG,UN,UM,Z)\r\nC\r\nC     GENERATE NULL COLUMN PARTITIONING VECTOR\r\nC\r\n      Z(I  ) = 0\r\n      Z(I+2) = NSUB2\r\n      Z(I+7) = 1\r\n      Z(I+8) = 2\r\n      Z(I+9) =-16777215\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS\r\nC\r\n      N    = NZ\r\n      RULE = 0\r\n      A(1) = RG\r\n      CALL RDTRL (A)\r\n      A11(1) = RN\r\n      A11(2) = NSUB1\r\n      A11(3) = NSUB2\r\n      A11(4) = RECT\r\n      A11(5) = A(5)\r\n      A12(1) = RM\r\n      A12(2) = NSUB2\r\n      A12(3) = NSUB2\r\n      A12(4) = SQUARE\r\n      A12(5) = A(5)\r\n      MCB(1) = SCR1\r\n      CALL RDTRL (MCB)\r\n      A21(1) = 0\r\n      A22(1) = 0\r\nC\r\nC     PARTITION RG INTO RM AND RN\r\nC\r\n      CALL PARTN (MCB,Z,Z)\r\nC\r\nC     WRITE TRAILERS FOR RM AND RN\r\nC\r\n      CALL WRTTRL (A12)\r\n      CALL WRTTRL (A11)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce1b.f",
    "content": "      SUBROUTINE MCE1B\r\nC\r\nC     MCE1B DECOMPOSES RM INTO LOWER AND UPPER TRIANGULAR FACTORS\r\nC\r\n      INTEGER USET  , RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,RN   ,\r\n     1        A     , UX    ,SCRX1 ,SCRX2 ,SCRX3 ,NAM(2),U\r\n      DOUBLE PRECISION DET  ,MINDIA\r\n      COMMON /BLANK / USET  ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,\r\n     1                RN    ,L     ,U     ,MCB(7)\r\n      COMMON /DCOMPX/ A(7)  ,LX(7) ,UX(7) ,SCRX1 ,SCRX2 ,SCRX3 ,DET   ,\r\n     1                POWER ,NZ    ,MINDIA\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    NAM   / 4HMCE1,4HB   /\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS\r\nC\r\n      NZ    = KORSZ(Z)\r\n      A(1)  = RM\r\n      CALL RDTRL (A)\r\n      LX(1) = L\r\n      LX(3) = A(3)\r\n      LX(4) = 4\r\n      LX(5) = A(5)\r\n      UX(1) = U\r\n      UX(3) = A(3)\r\n      UX(4) = 5\r\n      UX(5) = A(5)\r\n      SCRX1 = SCR1\r\n      SCRX2 = SCR2\r\n      SCRX3 = SCR3\r\nC\r\nC     PERFORM DECOMPOSITION\r\nC\r\n      CALL DECOMP (*40,Z,Z,Z)\r\nC\r\nC     WRITE TRAILERS\r\nC\r\n      CALL WRTTRL (LX)\r\n      CALL WRTTRL (UX)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGE FOR SINGULAR MATRIX\r\nC\r\n   40 CALL MESAGE (-5,RM,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce1c.f",
    "content": "      SUBROUTINE MCE1C\r\nC\r\nC     MCE1C PERFORMS A FORWARD-BACKWARD SUBSTITUTION WITH THE\r\nC     TRIANGULAR FACTORS OF RM TO SOLVE FOR GM IN THE EQUATION\r\nC     RM*GM = -RN.\r\nC\r\nC\r\n      INTEGER USET  , RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,RN     ,\r\n     1        U     , UX    ,RNX   ,GMX   ,PREC  ,SIGN\r\n      COMMON /BLANK / USET  ,RG    ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM    ,\r\n     1                RN    ,L     ,U     ,MCB(7)\r\n      COMMON /GFBSX / LX (7),UX (7), RNX(7),GMX(7),NZ   ,PREC  ,SIGN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (KSYSTM(55),IPREC)\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS\r\nC\r\n      NZ = KORSZ(Z)\r\n      LX(1)  = L\r\n      CALL RDTRL (LX)\r\n      UX(1)  = U\r\n      CALL RDTRL (UX)\r\n      RNX(1) = RN\r\n      CALL RDTRL (RNX)\r\n      GMX(1) = GM\r\n      GMX(3) = RNX(3)\r\n      GMX(4) = RNX(4)\r\n      GMX(5) = IPREC\r\n      PREC   = IPREC\r\n      SIGN   =-1\r\nC\r\nC     PERFORM SOLUTION\r\nC\r\n      CALL GFBS (Z,Z)\r\nC\r\nC     WRITE TRAILER\r\nC\r\n      CALL WRTTRL (GMX)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce1d.f",
    "content": "      SUBROUTINE MCE1D\r\nC\r\nC     MCE1D SOLVES FOR GM IN THE MATRIX EQUATION RM*GM = -RN\r\nC     WHERE RM IS A DIAGONAL MATRIX.\r\nC\r\n      INTEGER         SYSBUF,EOL    ,EOR   ,TYPE  ,RDP   ,BCD  ,RM   ,\r\n     1                RN    ,GM\r\n      REAL            Z(1)  ,A(1)   ,B(1)\r\n      DOUBLE PRECISION ZD   ,AD     ,BD\r\n      DIMENSION       BCD(2),MCB1(7),MCB2(7)\r\n      COMMON /BLANK / USET  ,RG     ,GM    ,SCR1  ,SCR2  ,SCR3  ,RM  ,\r\n     1                RN    ,L      ,U     ,MCB(7)\r\n      COMMON /ZNTPKX/ AD (2),I      ,EOL   ,EOR\r\n      COMMON /ZBLPKX/ BD (2),J\r\n      COMMON /ZZZZZZ/ ZD (1)\r\n      COMMON /SYSTEM/ SYSBUF,SKP(53),IPR\r\n      EQUIVALENCE     (MCB(2),NCOL) ,(AD(1),A(1)) ,(MCB(5),TYPE) ,\r\n     1                (ZD(1) ,Z(1)) ,(BD(1),B(1)) ,(MCB1(2),NCOL1)\r\n      DATA    BCD   , RDP   /4HMCE1 ,4HD   ,  2   /\r\nC\r\nC     OPEN RM MATRIX,SKIP HEADER RECORD AND READ MATRIX CONTROL BLOCK\r\nC\r\n      NZ = KORSZ(Z)\r\n      N  = NZ - SYSBUF\r\n      CALL GOPEN (RM,Z(N+1),0)\r\n      MCB(1) = RM\r\n      CALL RDTRL (MCB)\r\nC\r\nC     FORM -RM\r\nC\r\n      NCOL = MCB(2)\r\n      DO 22 K = 1,NCOL\r\n      CALL INTPK (*83,RM,0,RDP,0)\r\n      CALL ZNTPKI\r\n      IF (I .NE. K) GO TO 84\r\n   22 ZD(K) = -AD(1)\r\n      CALL CLOSE (RM,1)\r\nC\r\nC     OPEN RN MATRIX,SKIP HEADER RECORD AND READ MATRIX CONTROL BLOCK\r\nC\r\n      CALL GOPEN (RN,Z(N+1),0)\r\n      MCB1(1) = RN\r\n      CALL RDTRL (MCB1)\r\nC\r\nC     SET UP MATRIX CONTROL BLOCK BLOCK FOR GM\r\nC\r\n      CALL MAKMCB (MCB2,GM,MCB1(3),MCB1(4),IPR)\r\nC\r\nC     OPEN OUTPUT FILE FOR GM AND WRITE HEADER RECORD\r\nC\r\n      N1 = N - SYSBUF\r\n      CALL GOPEN (GM,Z(N1+1),1)\r\nC\r\nC     FORM GM = -RM(-1)*RN\r\nC\r\n      NCOL1 = MCB1(2)\r\n      DO 62 K = 1,NCOL1\r\n      CALL BLDPK (RDP,IPR,GM,0,0)\r\n      CALL INTPK (*62,RN,0,RDP,0)\r\n   61 CALL ZNTPKI\r\n      J = I\r\n      BD(1) = AD(1)/ZD(J)\r\n      CALL ZBLPKI\r\n      IF (EOL) 62,61,62\r\n   62 CALL BLDPKN (GM,0,MCB2)\r\nC\r\nC     CLOSE GM AND RM FILES AND WRITE TRAILER FOR GM\r\nC\r\n      CALL CLOSE (GM,1)\r\n      CALL CLOSE (RN,1)\r\n      CALL WRTTRL (MCB2)\r\n      RETURN\r\nC\r\nC     CALL MESSAGE WRITER IF FATAL ERROR DETECTED\r\nC\r\n   83 L = -5\r\n      GO TO 86\r\n   84 L = -16\r\n   86 CALL MESAGE (L,RM,BCD)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mce2.f",
    "content": "      SUBROUTINE MCE2\r\nC\r\nC     MCE2 PARTITIONS KGG INTO KNNB, KMNB AND KMMB THEN COMPUTES\r\nC\r\nC     KNN = KNNB + GM(T)*KMNB + KMNB(T)*GM + GM(T)*KMMB*GM\r\nC\r\nC     SIMILAR OPERATIONS ARE PERFORMED ON MGG, BGG AND K4GG IF THE\r\nC     MATRIX HAS NOT BEEN PURGED.\r\nC\r\n      INTEGER         SCR1  ,SCR2  ,SCR6  ,USET  ,MCB(7),GM    ,UG    ,\r\n     1                UN    ,UM    ,BGG   ,BNNB  ,BMNB  ,BNN   ,BMMB\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA    ,\r\n     1                UF    ,US    ,UN    ,UG    ,UE    ,UP\r\nC\r\nC     INPUT AND OUTPUT FILES\r\nC\r\n      DATA    USET  , GM , KGG, MGG, BGG, K4GG,   KNN, MNN, BNN, K4NN /\r\n     1        101   , 102, 103, 104, 105, 106 ,   201, 202, 203, 204  /\r\nC\r\nC     SCRATCH FILES\r\nC\r\n      DATA    SCR1  , SCR2, SCR6 / 301, 302, 306 /\r\n      DATA    KNNB  , KMNB, KMMB / 303, 304, 305 /\r\n      DATA    MNNB  , MMNB, MMMB / 303, 304, 305 /\r\n      DATA    BNNB  , BMNB, BMMB / 303, 304, 305 /\r\n      DATA    K4NNB , K4MNB,K4MMB/ 303, 304, 305 /\r\nC\r\nC     ARITHMETIC TYPES\r\nC\r\nC     PARTITION KGG INTO KNNB, KMNB, AND KMMB\r\nC\r\n      CALL UPART (USET,SCR1,UG,UN,UM)\r\n      CALL MPART (KGG,KNNB,KMNB,0,KMMB)\r\nC\r\nC     COMPUTE KNN\r\nC\r\n      CALL ELIM (KNNB,KMNB,KMMB,GM,KNN,SCR1,SCR2,SCR6)\r\nC\r\nC     TEST TO SEE IF MGG IS PRESENT\r\nC\r\n      MCB(1) = MGG\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 110\r\nC\r\nC     IF MGG PRESENT, PARTITION INTO MNNB, MMNB, AND MMMB\r\nC     THEN COMPUTE MNN\r\nC\r\n      CALL UPART (USET,SCR1,UG,UN,UM)\r\n      CALL MPART (MGG,MNNB,MMNB,0,MMMB)\r\n      CALL ELIM  (MNNB,MMNB,MMMB,GM,MNN,SCR1,SCR2,SCR6)\r\nC\r\nC     TEST TO SEE IF BGG IS PRESENT\r\nC\r\n  110 MCB(1) = BGG\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 130\r\nC\r\nC     IF BGG PRESENT, PARTITION INTO BNNB, BMNB, AND BMMB\r\nC     THEN COMPUTE BNN\r\nC\r\n      CALL UPART (USET,SCR1,UG,UN,UM)\r\n      CALL MPART (BGG,BNNB,BMNB,0,BMMB)\r\n      CALL ELIM  (BNNB,BMNB,BMMB,GM,BNN,SCR1,SCR2,SCR6)\r\nC\r\nC     TEST TO SEE IF K4GG IS PRESENT\r\nC\r\n  130 MCB(1) = K4GG\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) RETURN\r\nC\r\nC     IF K4GG IS PRESENT, PARTITION INTO K4NNB, K4MNB, AND K4MMB\r\nC     THEN COMPUTE K4NN\r\nC\r\n      CALL UPART (USET,SCR1,UG,UN,UM)\r\n      CALL MPART (K4GG,K4NNB,K4MNB,0,K4MMB)\r\n      CALL ELIM  (K4NNB,K4MNB,K4MMB,GM,K4NN,SCR1,SCR2,SCR6)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mcone.f",
    "content": "      SUBROUTINE MCONE\r\nC\r\nC     MASS MATRIX GENERATION FOR AXIS-SYMETRIC CONICAL SHELL ELEMENT\r\nC\r\nC     ECPT( 1) = ELEMENT ID             INTEGER        ECT\r\nC     ECPT( 2) = SIL PT A               INTEGER        ECT\r\nC     ECPT( 3) = SIL PT B B             INTEGER        ECT\r\nC     ECPT( 4) = MATID 1                INTEGER        EPT\r\nC     ECPT( 5) = T   (MEMBRANE THICK)   REAL           EPT\r\nC     ECPT( 6) = MATID 2                INTEGER        EPT\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)   REAL           EPT\r\nC     ECPT( 8) = MATID 3                INTEGER        EPT\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)  REAL           EPT\r\nC     ECPT(10) = NON-STRUCTURAL-MASS    REAL           EPT\r\nC     ECPT(11) = Z1                     REAL           EPT\r\nC     ECPT(12) = Z2                     REAL           EPT\r\nC     ECPT(13) = PHI  1                 REAL           EPT\r\nC     ECPT(14) = PHI  2                 REAL           EPT\r\nC     ECPT(15) = PHI  3                 REAL           EPT\r\nC     ECPT(16) = PHI  4                 REAL           EPT\r\nC     ECPT(17) = PHI  5                 REAL           EPT\r\nC     ECPT(18) = PHI  6                 REAL           EPT\r\nC     ECPT(19) = PHI  7                 REAL           EPT\r\nC     ECPT(20) = PHI  8                 REAL           EPT\r\nC     ECPT(21) = PHI  9                 REAL           EPT\r\nC     ECPT(22) = PHI 10                 REAL           EPT\r\nC     ECPT(23) = PHI 11                 REAL           EPT\r\nC     ECPT(24) = PHI 12                 REAL           EPT\r\nC     ECPT(25) = PHI 13                 REAL           EPT\r\nC     ECPT(26) = PHI 14                 REAL           EPT\r\nC     ECPT(27) = COORD. SYS. ID PT.1    INTEGER        BGPDT\r\nC     ECPT(28) = RADIUS PT. 1           REAL           BGPDT\r\nC     ECPT(29) = DISTANCE TO PT.1       REAL           BGPDT\r\nC     ECPT(30) = NULL                   REAL           BGPDT\r\nC     ECPT(31) = COORD. SYS. ID PT.2    INTEGER        BGPDT\r\nC     ECPT(32) = RADIUS PT 2            REAL           BGPDT\r\nC     ECPT(33) = DISTANCE TO PT. 2      REAL           BGPDT\r\nC     ECPT(34) = NULL                   REAL           BGPDT\r\nC     ECPT(35) = ELEMENT TEMPERATURE    REAL           GEOM3\r\nC\r\n      INTEGER          NECPT(100)\r\n      REAL             L,MU\r\n      DOUBLE PRECISION MASS\r\n      COMMON /CONDAS/  PI, TWOPI, RADEG, DEGRA, S4PISQ\r\n      COMMON /MATIN /  MATID, INFLAG, ELTEMP\r\n      COMMON /MATOUT/  RHO\r\n      COMMON /SMA2ET/  ECPT(100)\r\n      COMMON /SMA2IO/  DUM4(10), IFMGG, DUM5(25)\r\n      COMMON /SMA2CL/  DUM3(2),NPVT\r\n      COMMON /SMA2DP/  MASS(36), TEMP, L, TERM, M1\r\n      EQUIVALENCE      (RA,ECPT(28)), (RB,ECPT(32)), (ZA,ECPT(29)),\r\n     1                 (ZB,ECPT(33)), (T,ECPT(5))  , (MU,ECPT(10)),\r\n     2                 (NECPT(1),ECPT(1))\r\nC\r\n      L = SQRT((RB-RA)**2 + (ZB-ZA)**2)\r\nC\r\nC     NEXT LINE WAS REMOVED BY M.H./NAVY. ERROR FOR CONICAL SHELL MASS\r\nC\r\nC\r\n      TEMP = RB/6.0 + RA/3.0\r\nC\r\n      IF (T) 30,40,30\r\n   30 INFLAG = 4\r\n      MATID  = NECPT(4)\r\n      ELTEMP = ECPT(35)\r\n      CALL MAT (NECPT(1))\r\n   40 DO 50 I = 1,36\r\n   50 MASS(I) = 0.0D0\r\n      TERM = PI*L*TEMP*(RHO*T + MU)\r\n      IF (NECPT(1)-(NECPT(1)/1000)*1000-1 .EQ. 0) TERM = TERM*2.0\r\n      MASS( 1) = TERM\r\n      MASS( 8) = TERM\r\n      MASS(15) = TERM\r\n      M1 = -1\r\n      CALL SMA2B (MASS(1),NPVT,M1,IFMGG,0.0D0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mdumx.f",
    "content": "      SUBROUTINE MDUMX\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4HMDUM/,     KK /\r\n     1        1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY MDUM9\r\nC     ===========\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM8\r\nC     ==========\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM7\r\nC     ==========\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM6\r\nC     ==========\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM5\r\nC     ==========\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM4\r\nC     ==========\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM3\r\nC     ==========\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM2\r\nC     ==========\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY MDUM1\r\nC     ==========\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1        'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/melbow.f",
    "content": "      SUBROUTINE MELBOW\r\nC\r\nC     THIS ROUTINE COMPUTES THE MASS MATRIX M(NPVT,NPVT) FOR AN ELBOW.\r\nC\r\nC     ECPT FOR THE ELBOW\r\nC\r\nC     ECPT( 1)  -  IELID        ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)    * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...        *\r\nC     ECPT( 9)  -  A            CROSS-SECTIONAL AREA\r\nC     ECPT(13)  -  NSM          NON-STRUCTURAL MASS\r\nC     ECPT(29)  -  R            RADIUS OF CURVATURE\r\nC     ECPT(30)  -  BETAR        ANGLE FROM GA TO GB\r\nC\r\n      LOGICAL          HEAT\r\n      INTEGER          IZ(1),EOR,CLSRW,CLSNRW,FROWIC,TNROWS,OUTRW,BGGIND\r\n      REAL             NSM\r\n      DOUBLE PRECISION TA(9),TB(9),DP(6),VECI(3),DELA(6),DELB(6),FL,\r\n     1                 M(36),DUMDP,FM\r\n      DIMENSION        ECPT(9),IECPT(1)\r\n      COMMON /SMA2HT/  HEAT\r\n      COMMON /SMA2IO/  IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT,\r\n     1                 IGGPCT,IDUM2,IDUM3,IFMGG,IGMGG,IFBGG,IGBGG,\r\n     2                 IDUM4,IDUM5,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR,\r\n     3                 MCBMGG(7),MCBBGG(7)\r\n      COMMON /ZZZZZZ/  Z(1)\r\nC\r\nC     SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON /SMA2BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6M,\r\n     1                 N6X6M,I6X6B,N6X6B\r\nC\r\nC     SMA2 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON /SMA2CL/  IOPT4,BGGIND,NPVT,LEFT,FROWIC,LROWIC,NROWSC,\r\n     1                 TNROWS,JMAX,NLINKS,LINK(10),NOGO\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /SMA2ET/  IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2,\r\n     1                 FJ,NSM,FE,DUM(14),R,BETAR,DUMM(8),TEMPEL\r\nC\r\nC     SMA2 LOCAL VARIABLES\r\nC\r\n      COMMON /SMA2DP/  TA,TB,DP,VECI,DELA,DELB,FL,M,DUMDP\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /HMTOUT/  CP\r\n      COMMON /MATOUT/  RHO,PROP(8)\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ),(ECPT(1),IECPT(1),IELID)\r\n      DATA    DCR   /  0.01745329/\r\nC\r\nC     COMPUTE LENGTH OF ELBOW, FL\r\nC\r\n      DP(1) = R\r\n      DP(2) = BETAR\r\n      DP(3) = DCR\r\n      FL    = DP(1)*DP(2)*DP(3)\r\n      IF (FL .EQ. 0.0D0) GO TO 200\r\n      IF (HEAT) GO TO 300\r\nC\r\nC     GET RHO FROM MPT BY CALLING MAT\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 4\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (ECPT(1))\r\n      DO 40 I = 1,36\r\n   40 M(I) = 0.0D0\r\n      FM = 0.5*FL*(RHO*A + NSM)\r\nC\r\nC     PUT MASS IN M-ARRAY\r\nC\r\n      M(1)  = FM\r\n      M(8)  = M(1)\r\n      M(15) = M(1)\r\nC\r\nC     INSERT THE 6 X 6\r\nC\r\n      CALL SMA2B (M,NPVT,-1,IFMGG,DUMDP)\r\n      RETURN\r\nC\r\n  200 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION\r\nC\r\nC     GET CP USING -HMAT- ROUTINE.\r\nC\r\n  300 MATIDC = IMATID\r\n      MATFLG = 4\r\n      CALL HMAT (IELID)\r\n      M(1) = FL*DBLE(ECPT(9))*DBLE(CP)/2.0D0\r\nC\r\nC     OUTPUT THE MASS FOR HEAT PROBLEM.\r\nC\r\n      CALL SMA2B (M(1),NPVT,NPVT,IFBGG,DUMDP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/merge.f",
    "content": "      SUBROUTINE MERGE (IRP,ICP,CORE)\r\nC\r\nC     MERGE WILL PUT UP TO 4 MATRICES, IA11,IA21,IA12,IA22, TOGETHER\r\nC     INTO NAMEA -- THIS ROUTINE IS THE INVERSE OF PARTN\r\nC\r\nC     THE ARGUMENTS ARE EXACTLY THE SAME IN MEANING AND OPTION AS FOR\r\nC     PARTITION\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF\r\n      DIMENSION       IRP(1),ICP(1),A11(4),B11(4),\r\n     1                CORE(1),BLOCK(40),NAME(2)\r\n      COMMON /PARMEG/ NAMEA,NCOLA,NROWA,IFORMA,ITYPA,IA(2),\r\n     1                IA11(7,4),LCARE,RULE\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /ZBLPKX/ IC11(4),II\r\n      DATA    NAME  / 4HMERG,4HE    /\r\nC\r\nC     CHECK FILES\r\nC\r\n      LCORE = IABS(LCARE)\r\n      K = NAMEA\r\n      DO 15 I = 1,4\r\n      IF (K .EQ. 0) GO TO 15\r\n      DO 10 J = I,4\r\n      IF (IA11(1,J) .EQ. K) GO TO 440\r\n   10 CONTINUE\r\n   15 K = IA11(1,I)\r\nC\r\nC     PICK UP PARAMETERS AND INITIALIZE\r\nC\r\n      IREW  = 0\r\n      IF (LCARE .LT. 0) IREW = 2\r\n      NCOLA1= NCOLA\r\n      NCOLA = 0\r\n      IA(1) = 0\r\n      IA(2) = 0\r\n      ISTOR = 0\r\n      IOTP  = ITYPA\r\n      NMAT  = 0\r\n      DO 30 I = 1,4\r\n      IF (IA11(1,I) .LE. 0) GO TO 30\r\nCWKBD 2/94 SPR93025 IF (IA11(5,I) .NE. ITYPA) IOTP = 4\r\n      NMAT = NMAT + 1\r\n      DO 20 J = 2,5\r\n      IF (IA11(J,I) .EQ. 0) GO TO 460\r\n   20 CONTINUE\r\n   30 CONTINUE\r\n      NTYPA = IOTP\r\n      IF (NTYPA .EQ. 3) NTYPA = 2\r\n      IBUF   = LCORE - SYSBUF + 1\r\n      IBUFCP = IBUF - NROWA\r\n      IF (IBUFCP) 420,420,40\r\n   40 LCORE = IBUFCP - 1\r\n      CALL RULER (RULE,ICP,ZCPCT,OCPCT,CORE(IBUFCP),NROWA,CORE(IBUF),1)\r\n      IF (IRP(1).EQ.ICP(1) .AND. IRP(1).NE.0) GO TO 60\r\n      IBUFRP = IBUFCP - (NCOLA1+31)/32\r\n      IF (IBUFRP) 420,420,50\r\n   50 CALL RULER (RULE,IRP,ZRPCT,ORPCT,CORE(IBUFRP),NCOLA1,CORE(IBUF),0)\r\n      LCORE = IBUFRP - 1\r\n      GO TO 70\r\n   60 ISTOR = 1\r\nC\r\nC     OPEN INPUT FILES\r\nC\r\n   70 IF (LCORE-NMAT*SYSBUF .LT. 0) GO TO 420\r\n      DO 100 I = 1,4\r\n      IF (IA11(1,I)) 90,100,80\r\n   80 LCORE = LCORE - SYSBUF\r\n      CALL OPEN (*90,IA11(1,I),CORE(LCORE+1),IREW)\r\n      CALL SKPREC (IA11(1,I),1)\r\n      GO TO 100\r\n   90 IA11(1,I) = 0\r\n  100 CONTINUE\r\nC\r\nC     OPEN OUTPUT FILE\r\nC\r\n      CALL GOPEN (NAMEA,CORE(IBUF),1)\r\nC\r\nC     FIX POINTERS -- SORT ON ABS VALUE\r\nC\r\n      K = IBUFCP - 1\r\n      L = IBUFCP\r\n      DO 120 I = 1,NROWA\r\n      K = K + 1\r\n      IF (CORE(K)) 110,120,120\r\n  110 CORE(L) = I\r\n      L = L + 1\r\n  120 CONTINUE\r\n      M = L - 1\r\n      K = IBUFCP\r\n      DO 160 I = 1,NROWA\r\n  130 IF (CORE(K)-I) 150,160,140\r\n  140 CORE(L) = I\r\n      L = L + 1\r\n      GO TO 160\r\n  150 IF (K .EQ. M) GO TO 140\r\n      K = K + 1\r\n      GO TO 130\r\n  160 CONTINUE\r\nC\r\nC     LOOP ON COLUMNS OF OUTPUT\r\nC\r\n      KM = 0\r\n      L2 = IBUFCP\r\n      L3 = IBUFCP + ZCPCT\r\n      DO 390 LOOP = 1,NCOLA1\r\n      CALL BLDPK (IOTP,ITYPA,NAMEA,0,0)\r\n      IF (ISTOR .EQ. 1) GO TO 190\r\n      J  = (LOOP-1)/32 + IBUFRP\r\n      KM = KM + 1\r\n      IF (KM .GT. 32) KM = 1\r\n      ITEMP = ANDF(CORE(J),TWO1(KM))\r\n      IF (KM .EQ. 1) ITEMP = RSHIFT(ANDF(CORE(J),TWO1(KM)),1)\r\n      IF (ITEMP .NE. 0) GO TO 180\r\nC\r\nC     IA11 AND IA21 BEING USED\r\nC\r\n  170 L1 = 0\r\n      IF (L2 .EQ. L3-1) GO TO 200\r\n      L2 = L2 + 1\r\n      GO TO 200\r\nC\r\nC     IA12 AND IA22 BEING USED\r\nC\r\n  180 L1 = 2\r\n      L3 = L3 + 1\r\n      GO TO 200\r\nC\r\nC     USE ROW STORE\r\nC\r\n  190 IF (CORE(L2) .EQ. LOOP) GO TO 170\r\n      IF (CORE(L3) .EQ. LOOP) GO TO 180\r\n      GO TO 460\r\nC\r\nC     BEGIN ON SUBMATRICES\r\nC\r\n  200 IO = 0\r\n      DO 220 J = 1,2\r\n      K = L1 + J\r\n      IF (IA11(1,K)) 210,220,210\r\n  210 M = 20*J - 19\r\n      CALL INTPK (*220,IA11(1,K),BLOCK(M),IOTP,1)\r\n      IO = IO + J\r\n  220 CONTINUE\r\n      IF (IO) 230,380,230\r\nC\r\nC     PICK UP NON ZERO\r\nC\r\n  230 IEOL = 0\r\n      JEOL = 0\r\n      IPOS = 9999999\r\n      JPOS = 9999999\r\n      IAZ  = 1\r\n      IBZ  = 1\r\n      NAM1 = IA11(1,L1+1)\r\n      NAM2 = IA11(1,L1+2)\r\n      IF (IO-2) 240,280,240\r\n  240 IAZ  = 0\r\n  250 IF (IEOL) 370,260,370\r\n  260 CALL INTPKI (A11(1),I,NAM1,BLOCK(1),IEOL)\r\n      K    = IBUFCP + I - 1\r\n      IPOS = CORE(K)\r\n      IF (IO .EQ. 1) GO TO 310\r\n      IO   = 1\r\n  280 IBZ  = 0\r\n  290 IF (JEOL) 340,300,340\r\n  300 CALL INTPKI (B11(1),J,NAM2,BLOCK(21),JEOL)\r\n      K = IBUFCP + ZCPCT + J - 1\r\n      JPOS = CORE(K)\r\n  310 IF (IPOS-JPOS) 350,320,320\r\nC\r\nC     PUT IN B11\r\nC\r\n  320 DO 330 M = 1,NTYPA\r\n  330 IC11(M) = B11(M)\r\n      II = JPOS\r\n      CALL ZBLPKI\r\n      GO TO 290\r\n  340 JPOS = 9999999\r\n      IBZ  = 1\r\n      IF (IAZ+IBZ .EQ. 2) GO TO 380\r\n  350 DO 360 M = 1,NTYPA\r\n  360 IC11(M) = A11(M)\r\n      II = IPOS\r\n      CALL ZBLPKI\r\n      GO TO 250\r\n  370 IAZ  = 1\r\n      IPOS = 9999999\r\n      IF (IAZ+IBZ .NE. 2) GO TO 320\r\nC\r\nC     OUTPUT COLUMN\r\nC\r\n  380 CALL BLDPKN (NAMEA,0,NAMEA)\r\nC\r\n  390 CONTINUE\r\nC\r\nC     DONE -- CLOSE OPEN MATRICES\r\nC\r\n      DO 400 I = 1,4\r\n      IF (IA11(1,I) .GT. 0) CALL CLOSE (IA11(1,I),1)\r\n  400 CONTINUE\r\n      CALL CLOSE (NAMEA,1)\r\n      GO TO 500\r\nC\r\n  420 MN = -8\r\n      GO TO 480\r\n  440 WRITE  (NOUT,450) K\r\n  450 FORMAT ('0*** SYSTEM OR USER ERROR, DUPLICATE GINO FILES AS ',\r\n     1        'DETECTED BY MERGE ROUTINE - ',I5)\r\n      NM = -37\r\n      GO  TO 480\r\n  460 MN = -7\r\n  480 CALL MESAGE (MN,0,NAME)\r\nC\r\n  500 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/merge1.f",
    "content": "      SUBROUTINE MERGE1\r\nC\r\nC     THIS IS THE DMAP MODULE MERGE WHICH MERGES 1 TO 4 PARTITIONS\r\nC     A11, A21, A12, A22, INTO A SINGLE MATRIX -A-.\r\nC\r\nC          **                  **           **                  **\r\nC          *       I            *           *                    *\r\nC          *  A11  I    A12     *           *                    *\r\nC          *       I            *           *                    *\r\nC          * ------+----------- *  BECOMES  *          A         *\r\nC          *       I            *           *                    *\r\nC          *       I            *           *                    *\r\nC          *  A21  I    A22     *           *                    *\r\nC          *       I            *           *                    *\r\nC          **                  **           **                  **\r\nC\r\nC     BASED ON THE ZEROS AND NON-ZEROS IN THE ROW PARTITIONING VECTOR\r\nC     -RP- AND THE COLUMN PARTITIONING VECTOR -CP-.\r\nC\r\nC     DMAP CALLING SEQUENCE.\r\nC\r\nC     MERGE  A11,A21,A12,A22,CP,RP/ A /V,Y,SYM  /V,Y,TYPE/V,Y,FORM/\r\nC                                      V,Y,CPCOL/V,Y,RPCOL  $\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT  ,ANDF\r\n      LOGICAL         CPNULL  ,RPNULL   ,CPHERE   ,RPHERE   ,ONLY    ,\r\n     1                PASS\r\n      DIMENSION       SUBR(2) ,HEAD(2)  ,AIJ(4)   ,MCB(7,4) ,MCBA(7) ,\r\n     1                ELEM1(4),ELEM2(4 ),REFUS(3) ,BLOCK(80)\r\n      CHARACTER       UFM*23  ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG / UFM     ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /SYSTEM/ SYSBUF  ,OUTPT    ,XXX(37)  ,NBPW\r\n      COMMON /NAMES / RD      ,RDREW    ,WRT      ,WRTREW   ,CLSREW  ,\r\n     1                CLS\r\n      COMMON /ZBLPKX/ ELEM(4) ,ROW\r\n      COMMON /PRTMRG/ CPSIZE  ,RPSIZE   ,CPONES   ,RPONES   ,CPNULL  ,\r\n     1                RPNULL  ,CPHERE   ,RPHERE   ,ICP      ,NCP     ,\r\n     2                IRP     ,NRP\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / SYM     ,TYPE     ,FORM     ,CPCOL    ,RPCOL   ,\r\n     1                DUMFOR(3)         ,IREQCL\r\n      DATA    SUBR  / 4HMERG  ,4HE1   /, EOR    / 1      /\r\n      DATA    AIJ   / 101,102 ,103,104/, CP,RP  / 105,106/     ,A /201/\r\n      DATA    NAFORM/ 4HFORM /,NATYPE /  4HTYPE /,REFUS/2*3H   ,3HREF /\r\nC\r\nC     OPEN MATRICES TO BE MERGED.  IF ALL ARE PURGED, RETURN IS MADE.\r\nC\r\n      CORE = KORSZ(Z)\r\n      M = 0\r\n      DO 20 I = 1,4\r\n      KFILE = AIJ(I)\r\n      MCB(1,I) = KFILE\r\n      CALL RDTRL (MCB(1,I))\r\n      IF (MCB(1,I)) 20,20,10\r\n   10 BUFF = CORE - SYSBUF - 2\r\n      CORE = BUFF - 1\r\n      IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR)\r\n      CALL OPEN (*20,KFILE,Z(BUFF),RDREW)\r\n      CALL SKPREC (KFILE,1)\r\n      M = 1\r\n   20 CONTINUE\r\n      IF (M .EQ. 0) RETURN\r\n      BUFF = CORE - SYSBUF - 2\r\n      CORE = BUFF - 1\r\n      IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR)\r\n      CALL OPEN (*440,A,Z(BUFF),WRTREW)\r\n      CALL CLOSE (A,CLSREW)\r\nC\r\nC     CALL TO PARTN2 WILL PROCESS -CP- AND -RP- INTO BIT STRINGS AND\r\nC     DETERMINE SIZES OF PARTITIONS REQUIRED.\r\nC\r\nC     STANDARDISE BLANK COMMON FOR PARTN2 CALLS FROM MERGE1-PARTN1\r\nC\r\n      DUMFOR(2) = CPCOL\r\n      DUMFOR(3) = RPCOL\r\n      CALL PARTN2 (CP,RP,CORE,Z(BUFF))\r\n      CPCOL = DUMFOR(2)\r\n      RPCOL = DUMFOR(3)\r\nC\r\nC     IF CPSIZE OR RPSIZE IS 0 AS A RESULT OF A NULL VECTOR (PURGED\r\nC     VECTOR) THERE SIZE IS ESTIMATED HERE FROM THEIR RESPECTIVE\r\nC     PARTITIONS.\r\nC\r\n      IF (CPSIZE .NE. 0) GO TO 24\r\n      IF (MCB(1,1)) 25,25,23\r\n   23 CPSIZE = MCB(2,1)\r\n      GO TO 24\r\nC\r\n   25 IF (MCB(1,2)) 24,24,26\r\n   26 CPSIZE = MCB(2,2)\r\n      GO TO 24\r\nC\r\n   24 IF (RPSIZE .NE. 0) GO TO 29\r\n      IF (MCB(1,1)) 21,21,22\r\n   22 RPSIZE = MCB(3,1)\r\n      GO TO 29\r\nC\r\n   21 IF (MCB(1,3)) 29,29,27\r\n   27 RPSIZE = MCB(3,3)\r\nC\r\nC     MATRIX COMPATIBILITY CHECKS.\r\nC\r\n   29 CPZERO = CPSIZE - CPONES\r\n      RPZERO = RPSIZE - RPONES\r\n      IPR    = 1\r\n      IRLCX  = 0\r\n      DO 70 I = 1,4\r\n      IF (MCB(1,I)) 70,70,30\r\n   30 COLS = MCB(2,I)\r\n      ROWS = MCB(3,I)\r\n      ICOL = CPZERO\r\n      IROW = RPZERO\r\n      IF (MCB(5,I).EQ.2 .OR. MCB(5,I).EQ.4) IPR   = 2\r\n      IF (MCB(5,I).EQ.3 .OR. MCB(5,I).EQ.4) IRLCX = 2\r\n      IF (I.EQ.3 .OR. I.EQ.4) ICOL = CPONES\r\n      IF (I.EQ.2 .OR. I.EQ.4) IROW = RPONES\r\n      IF (ICOL) 70,70,40\r\n   40 IF (IROW) 70,70,50\r\nC\r\nC     CHECK PARTITION SIZE WITH PARTITIONING VECTOR DEMANDS.\r\nC\r\n   50 IF (ROWS.EQ.IROW .AND. COLS.EQ.ICOL) GO TO 70\r\n      WRITE  (OUTPT,60) SWM,AIJ(I),ROWS,COLS,IROW,ICOL\r\n   60 FORMAT (A27,' 2161, PARTITION FILE',I4,' IS OF SIZE',I10,\r\n     1       ' ROWS BY',I10,' COLUMNS.', /5X,'PARTITIONING VECTORS ',\r\n     2       'INDICATE THAT THIS PARTITION SHOULD BE OF SIZE',I10,\r\n     3       ' ROWS BY',I10,' COLUMNS FOR A SUCCESSFUL MERGE.')\r\n   70 CONTINUE\r\nC\r\nC     CHECK OF FORM VALUE.\r\nC\r\n      NFORM = FORM\r\n      IF (NFORM.LT.1 .OR. NFORM.GT.8) GO TO 120\r\n      GO TO (80,140,110,80,80,80,110,80), NFORM\r\nC\r\nC     FORM = SQUARE\r\nC\r\n   80 IF (CPSIZE .EQ. RPSIZE) GO TO 140\r\n   90 WRITE  (OUTPT,100) SWM,NFORM,RPSIZE,CPSIZE\r\n  100 FORMAT (A27,' 2162, THE FORM PARAMETER AS GIVEN TO THE MERGE ',\r\n     1       'MODULE IS INCONSISTANT WITH THE SIZE OF THE', /5X,\r\n     2       'MERGED MATRIX, HOWEVER IT HAS BEEN USED.  FORM =',I9,\r\n     3       ' SIZE =',I10,' ROWS BY',I10,' COLUMNS.')\r\n      GO TO 140\r\n  110 IF (CPSIZE .EQ. 1) GO TO 140\r\n      GO TO 90\r\n  120 NFORM = 2\r\n      IF (ROWS.NE.COLS .AND. CPSIZE.NE.RPSIZE) GO TO 122\r\n      NFORM = 1\r\n      IF (SYM .LT. 0) NFORM= 6\r\n  122 IF (FORM.EQ.0 .OR. FORM.EQ.NFORM) GO TO 132\r\n      WRITE  (OUTPT,130) SWM,NAFORM,FORM,REFUS(3),SUBR,NFORM\r\n  130 FORMAT (A27,' 2163, REQUESTED VALUE OF ',A4,I10,2X,A3,'USED BY ',\r\n     1        2A4,'. LOGICAL CHOICE IS',I10)\r\n  132 FORM = NFORM\r\nC\r\nC     CHECK PARAMETER -TYPE-\r\nC\r\n  140 NTYPE =   IRLCX + IPR\r\n      IF (NTYPE .EQ. TYPE) GO TO 160\r\n      IF (TYPE  .EQ.    0) GO TO 154\r\n      IF (TYPE.LT.0 .OR. TYPE.GT.4) GO TO 152\r\n      WRITE (OUTPT,130) SWM,NATYPE,TYPE,REFUS(1),SUBR,NTYPE\r\n      NTYPE = TYPE\r\n      GO TO 160\r\n  152 WRITE (OUTPT,130) SWM,NATYPE,TYPE,REFUS(3),SUBR,NTYPE\r\n  154 TYPE = NTYPE\r\nC\r\nC     THE ROW PARTITIONING BIT STRING IS AT THIS POINT CONVERTED TO A\r\nC     CORE VECTOR ONE WORD PER BIT.  EACH WORD CONATINS THE ACTUAL ROW\r\nC     POSITION THE SUB-PARTITON ELEMENT WILL OCCUPY IN THE MERGED\r\nC     MATRIX.\r\nC\r\n  160 IZ = NRP + 1\r\n      NZ = IZ + RPSIZE - 1\r\n      IF (NZ .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IF (.NOT.RPNULL .AND. RPONES.NE.0) GO TO 180\r\n      K = 0\r\n      DO 170 I = IZ,NZ\r\n      K = K + 1\r\n      Z(I) = K\r\n  170 CONTINUE\r\n      GO TO 240\r\n  180 K = 0\r\n      ZERO = IZ - 1\r\n      ONES = ZERO + RPZERO\r\n      DO 230 I = IRP,NRP\r\n      DO 220 J = 1,NBPW\r\n      SHIFT = NBPW - J\r\n      BIT   = RSHIFT(Z(I),SHIFT)\r\n      K = K + 1\r\n      IF (K -  RPSIZE) 190,190,240\r\n  190 IF (ANDF(BIT,1)) 210,200,210\r\n  200 ZERO = ZERO + 1\r\n      Z(ZERO) = K\r\n      GO TO 220\r\n  210 ONES = ONES + 1\r\n      Z(ONES) = K\r\n  220 CONTINUE\r\n  230 CONTINUE\r\nC\r\nC     OPEN OUTPUT FILE AND FILL MCB.\r\nC\r\n  240 CALL OPEN (*440,A,Z(BUFF),WRTREW)\r\n      CALL FNAME (A,HEAD)\r\n      CALL WRITE (A,HEAD,2,EOR)\r\n      CALL MAKMCB (MCBA,A,RPSIZE,NFORM,NTYPE)\r\nC\r\nC     MERGE OPERATIONS.  LOOPING ON OUTPUT COLUMNS OF -A-.\r\nC\r\n      I1 = IZ - 1\r\n      I2 = I1 + RPZERO\r\n      DO 430 I = 1,CPSIZE\r\nC\r\nC     START A COLUMN OUT ON -A-\r\nC\r\n      CALL BLDPK (NTYPE,NTYPE,A,0,0)\r\n      IF (CPNULL) GO TO 250\r\n      IL1   = I - 1\r\n      BITWD = IL1/NBPW + ICP\r\n      SHIFT = NBPW - MOD(IL1,NBPW) - 1\r\n      BIT   = RSHIFT(Z(BITWD),SHIFT)\r\n      IF (ANDF(BIT,1)) 260,250,260\r\nC\r\nC     ZERO-S COLUMN (LEFT PARTITONS A11 AND A21 USED THIS PASS)\r\nC\r\n  250 IFILE  = 1\r\n      IBLOCK = 1\r\n      GO TO 270\r\nC\r\nC     ONE-S COLUMN (RIGHT PARTITIONS A12 AND A22 USED THIS PASS)\r\nC\r\n  260 IFILE  = 3\r\n      IBLOCK = 41\r\n      GO TO 270\r\nC\r\nC     START UNPACKING COLUMN OF EACH PARTITION BEING USED THIS PASS.\r\nC\r\n  270 KFILE  = IFILE\r\n      KBLOCK = IBLOCK\r\n      MPART  = 0\r\n      DO 300 J = 1,2\r\n      IF (MCB(1,KFILE)) 290,290,280\r\n  280 CALL INTPK (*290,MCB(1,KFILE),BLOCK(KBLOCK),NTYPE,1)\r\n      MPART  = MPART  + J\r\n  290 KFILE  = KFILE  + 1\r\n      KBLOCK = KBLOCK + 20\r\n  300 CONTINUE\r\n      IF (MPART) 420,420,310\r\nC\r\nC     UNPACK NON-ZEROS FROM EACH OF THE TWO PARTITIONS AS NEEDED UNTIL\r\nC     BOTH PARTITIONS HAVE THIS COLUMN EXHAUSED.\r\nC\r\n  310 EOL1  = 1\r\n      EOL2  = 1\r\n      NAM1  = MCB(1,IFILE)\r\n      NAM2  = MCB(1,IFILE+1)\r\n      IBLOC1= IBLOCK\r\n      IBLOC2= IBLOCK + 20\r\n      IF (MPART.EQ.1 .OR. MPART.EQ.3) EOL1 = 0\r\n      IF (MPART .GT. 1) EOL2 = 0\r\n      PASS = .FALSE.\r\n      ONLY = .FALSE.\r\n      IF (EOL1) 320,320,340\r\n  320 IF (EOL2) 350,350,330\r\n  330 ONLY = .TRUE.\r\n      GO TO 350\r\n  340 ONLY = .TRUE.\r\n      GO TO 360\r\nC\r\nC     UNPACK A NON-ZERO FROM THE ZEROS PARTITION\r\nC\r\n  350 CALL INTPKI (ELEM1,IROW1,NAM1,BLOCK(IBLOC1),EOL1)\r\nC\r\nC     SET OUTPUT ROW POSITION\r\nC\r\n      JROW  = I1 + IROW1\r\n      IPOS1 = Z(JROW)\r\n      IF (ONLY) GO TO 380\r\n      IF (PASS) GO TO 370\r\nC\r\nC     UNPACK A NON-ZERO FROM THE ONE-S PARTITION\r\nC\r\n  360 CALL INTPKI (ELEM2,IROW2,NAM2,BLOCK(IBLOC2),EOL2)\r\nC\r\nC     SET OUTPUT ROW POSITION\r\nC\r\n      JROW  = I2 + IROW2\r\n      IPOS2 = Z(JROW)\r\n      IF (ONLY) GO TO 400\r\n      PASS  = .TRUE.\r\nC\r\nC     OK COMING HERE MEANS THERE IS ONE ELEMENT FORM EACH PARTITION\r\nC     AVAILABLE FOR OUTPUT.  THUS OUTPUT THE ONE WITH THE LOWEST\r\nC     OUTPUT ROW NUMBER.\r\nC\r\n  370 IF (IPOS2 .LT. IPOS1) GO TO 400\r\nC\r\nC     OUTPUT ELEMENT FROM ZERO-S PARTITION.\r\nC\r\n  380 ROW     = IPOS1\r\n      ELEM(1) = ELEM1(1)\r\n      ELEM(2) = ELEM1(2)\r\n      ELEM(3) = ELEM1(3)\r\n      ELEM(4) = ELEM1(4)\r\n      CALL ZBLPKI\r\n      IF (EOL1) 350,350,390\r\n  390 IF (ONLY) GO TO 420\r\n      ONLY = .TRUE.\r\n      GO TO 400\r\nC\r\nC     OUTPUT ELEMENT FROM ONES-PARTITION.\r\nC\r\n  400 ROW     = IPOS2\r\n      ELEM(1) = ELEM2(1)\r\n      ELEM(2) = ELEM2(2)\r\n      ELEM(3) = ELEM2(3)\r\n      ELEM(4) = ELEM2(4)\r\n      CALL ZBLPKI\r\n      IF (EOL2) 360,360,410\r\n  410 IF (ONLY) GO TO 420\r\n      ONLY = .TRUE.\r\n      GO TO 380\r\nC\r\nC     COMPLETE THE COLUMN BEING OUTPUT\r\nC\r\n  420 CALL BLDPKN (A,0,MCBA)\r\n  430 CONTINUE\r\nC\r\nC     MERGE IS COMPLETE.  WRAP UP.\r\nC\r\n      CALL CLOSE (A,CLSREW)\r\n      CALL WRTTRL (MCBA)\r\n  440 DO 460 I = 1,4\r\n      IF (MCB(1,I)) 460,460,450\r\n  450 CALL CLOSE (MCB(1,I),CLSREW)\r\n  460 CONTINUE\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/merged.f",
    "content": "      SUBROUTINE MERGED (A11,A12,A21,A22,A,RP,CP,N1,N2)\r\nC\r\n      INTEGER         A11,A12,A21,A22,A,RP,CP,RULE,MCB(20),MCB1(20)\r\n      COMMON /PARMEG/ MCBA(7),MCBA11(7),MCBA21(7),MCBA12(7),MCBA22(7),\r\n     1                NX,RULE\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\n      IF (RP .NE. 0) GO TO 10\r\n      MCB(1) = 0\r\n      MCB(2) = 1\r\n      MCB(3) = N1\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      GO TO 20\r\nC\r\n   10 MCB(1) = RP\r\n      CALL RDTRL (MCB)\r\n   20 IF (CP .NE. 0) GO TO 30\r\n      MCB1(1) = 0\r\n      MCB1(2) = 1\r\n      MCB1(3) = N2\r\n      MCB1(4) = 2\r\n      MCB1(5) = 1\r\n      GO TO 40\r\nC\r\n   30 MCB1(1) = CP\r\n      CALL RDTRL (MCB1)\r\n   40 NX    = KORSZ (IZ)\r\n      RULE  = 0\r\n      IOTYP = 0\r\n      MCBA11(1) = A11\r\n      IF (A11 .EQ. 0) GO TO 50\r\n      CALL RDTRL (MCBA11)\r\n      IF (MCBA11(1) .LE. 0) MCBA11(1) = 0\r\nC\r\n   50 MCBA21(1) = A21\r\n      IF (A21 .EQ. 0) GO TO 60\r\n      CALL RDTRL (MCBA21)\r\n      IF (MCBA21(1) .LE. 0) MCBA21(1) = 0\r\nC\r\n   60 MCBA12(1) = A12\r\n      IF (A12 .EQ. 0) GO TO 70\r\n      CALL RDTRL (MCBA12)\r\n      IF (MCBA12(1) .LE. 0) MCBA12(1) = 0\r\nC\r\n   70 MCBA22(1) = A22\r\n      IF (A22 .EQ. 0) GO TO 80\r\n      CALL RDTRL (MCBA22)\r\n      IF (MCBA22(1) .LE. 0) MCBA22(1) = 0\r\nC\r\n   80 MCBA(1) = A\r\n      MCBA(2) = MCB(3)\r\n      MCBA(3) = MCB1(3)\r\n      DO 90 I = 1,28,7\r\n      IF (MCBA11(I) .EQ. 0) GO TO 90\r\n      IOTYP   = MAX0(IOTYP,MCBA11(I+4))\r\n   90 CONTINUE\r\n      MCBA(4) = 2\r\n      MCBA(5) = IOTYP\r\n      IF (MCBA(2) .EQ. MCBA(3)) MCBA(4) = 1\r\n      CALL MERGE (MCB,MCB1,IZ)\r\n      CALL WRTTRL (MCBA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mesage.f",
    "content": "      SUBROUTINE MESAGE (NO,PARM,NAME)\r\nC\r\nC     MESAGE IS USED TO QUEUE NON-FATAL MESSAGES DURING THE EXECUTION\r\nC     OF A MODULE, AND EXITS IF MESSAGE IS FATAL\r\nC\r\nC     REVISED 1/92 BY G.CHAN/UNISYS.\r\nC     IF MESSAGE IS FATAL AND DIAG 1 IS ON -\r\nC\r\nC     IBM, CDC AND UNIVAC - PRINT THE MESSAGE(S), GIVE A CORE DUMP AND\r\nC     CALL PEXIT\r\nC\r\nC     VAX OR UNIX (MACHINE TYPE .GE. 5) - IF LAST MESSAGE IS NOT INSUFF.\r\nC     CORE OR INSUFFICIENT TIME, AND FATAL ERROR IS NOT IN LINK 1, PRINT\r\nC     ONLY THE MESSAGE NO(S). AND GIVE AN ERROR TRACEBACK. NO CORE DUMP.\r\nC     TO MAKE SURE THAT THE CURRENT MODULE (WHICH CALLS FATAL MESSAGE)\r\nC     IS UTILL IN CORE, THE MESSAGE PRINTOUT MODULE CAN NOT BE CALLED,\r\nC     AND THEREFORE THE TEXT(S) OF THE MESSAGE(S) CAN NOT BE PRINTED.\r\nC\r\n      INTEGER         PARM,NAME(2)\r\n      COMMON /SYSTEM/ IBUF,NOUT,DUM(19),LINKNO\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /MSGX  / N,M,MSG(4,1)\r\n      DATA    LINK1 / 4HNS01 /\r\nC\r\nC     N        =  CURRENT NUMBER OF MESSAGES STORED\r\nC     M        =  MAXIMUM NUMBER POSSIBLE\r\nC     MSG(4,I) =  STORAGE SPACE FOR THE MESSAGE PARAMETERS\r\nC\r\n      N = N + 1\r\n      IF (N .LE. M) GO TO 10\r\n      N = M\r\n      IF (NO .GT. 0) GO TO 120\r\nC\r\n   10 MSG(1,N) = NO\r\n      MSG(2,N) = PARM\r\n      MSG(3,N) = NAME(1)\r\n      MSG(4,N) = NAME(2)\r\n      IF (NO .GT. 0) GO TO 120\r\nC\r\nC     MESSAGE IS FATAL, TERMINATE RUN\r\nC\r\n      CALL SSWTCH (1,J)\r\n      IF (J    .EQ. 0) GO TO 110\r\n      IF (MACH .EQ. 5) GO TO 20\r\nC\r\nC     ALL NON-VAX MACHINES\r\nC\r\n      GO TO 110\r\nC\r\nC     VAX, UNIX (MACHINE TYPE 5 AND HIGHER)\r\nC\r\n   20 IF (LINKNO .EQ. LINK1) GO TO 110\r\n      I  = IABS(MSG(1,N))\r\n      IF (I.EQ.8  .OR. I.EQ.119 .OR. I.EQ.45 .OR. I.EQ.50) GO TO 110\r\nC             INSUFF. CORE             INSUFFICIENT TIME\r\nC\r\n      IF (I .NE. 30) GO TO 30\r\n      J  = MSG(2,N)\r\nC\r\nC     INSUFFECIENT CORE\r\n      IF (J.EQ.142 .OR. J.EQ.289 .OR. J.EQ.296 .OR. J.EQ.253 .OR.\r\n     1    J.EQ.365) GO TO 110\r\nC\r\nC     INSUFFECIENT TIME\r\n      IF (J.EQ.234 .OR. J.EQ.228) GO TO 110\r\nC\r\n   30 WRITE (NOUT,40) N\r\n   40 FORMAT ('0*** DUE TO SYSTEM ERROR-TRACEBACK, THE TEXT(S) OF THE ',\r\n     1        'FOLLOWING',I3,' MSG NO(S). CAN NOT BE PRINTED')\r\n      DO 90 K = 1,N\r\n      I = MSG(1,K)\r\n      IF (IABS(I) .EQ. 30) GO TO 50\r\n      J = 3000 + IABS(I)\r\n      GO TO 60\r\n   50 I = MSG(2,K)\r\n      J = 2000 + IABS(I)\r\n   60 WRITE  (NOUT,70) I,J\r\n   70 FORMAT (5X,'ERROR',I4,' (or ',I5,1H))\r\n      IF (I.NE.30 .AND. MSG(2,K).GT.100 .AND. MSG(2,K).LT.400)\r\n     1    WRITE (NOUT,80) MSG(2,K)\r\n   80 FORMAT (1H+,30X,'GINO UNIT=',I4)\r\n   90 CONTINUE\r\n      WRITE  (NOUT,100)\r\n  100 FORMAT (/5X,'(SEE MESSAGES IN USER MANUAL SECTIONS 6.4 AND 6.5,',\r\n     1        ' AND IGNORE ANY COMPUTER FATAL MESSAGE HEREAFTER ',\r\n     2        'OR IN THE LOG FILE)')\r\nC\r\nC     FORCE A SYSTEM FATAL ERROR FOR TRACEBACK\r\nC\r\n      CALL ERRTRC ('MESAGE  ',105)\r\nC\r\n  110 CALL MSGWRT\r\n      CALL PEXIT\r\n  120 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mflud2.f",
    "content": "      SUBROUTINE MFLUD2\r\nC\r\nC     THIS ROUTINE GENERATES THE PSUEDO STIFFNESS MATRIX TERMS\r\nC     FOR THE CENTER PLUG FLUID ELEMENT\r\nC\r\nC     THE ECPT DATA BLOCK CONTAINS THE FOLLOWING DATA\r\nC\r\nC         FIELD    SYMBOL\r\nC           1        ID\r\nC           2        SIL1\r\nC           3        SIL2\r\nC           4        RHO\r\nC           5        BULK\r\nC           6        N\r\nC           7        CSF\r\nC           8        R1\r\nC           9        Z1\r\nC           10       -\r\nC           11       CSF\r\nC           12       R2\r\nC           13       Z2\r\nC           14       -\r\nC           15       -\r\nC\r\n      INTEGER          NECPT(100)\r\n      DOUBLE PRECISION CONSTD,DPI,R1,Z1,R2,Z2,Z1P,Z2P,Z1P1,Z2P1,RK,RI,\r\n     1                 KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2,DZ,HPQ,PIRHO,\r\n     2                 TWOPR,KH,K1,K2\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      COMMON /SMA2ET/  ECPT(100)\r\n      COMMON /SMA2IO/  DUM1(10),IFMGG\r\n      COMMON /SMA2CL/  DUN2(2),NPVT\r\n      COMMON /SMA2DP/  Z1P,Z2P,RK,RI,KFACT,F0,A,B,I2N0,I2N1,I2N2,I2NP2,\r\n     1                 DZ,HPQ(4),PIRHO,TWOPR,KH(4),K1,K2\r\n      EQUIVALENCE      (CONSTD(1),DPI),(ECPT(1),NECPT(1))\r\nC\r\nC\r\n      IF (ECPT(13) - ECPT(9)) 5,10,10\r\n    5 R1 = ECPT(12)\r\n      R2 = ECPT(8)\r\n      Z1 = ECPT(13)\r\n      Z2 = ECPT(9)\r\n      I  = NECPT(3)\r\n      NECPT(3) = NECPT(2)\r\n      NECPT(2) = I\r\n      GO TO 15\r\n   10 R1 = ECPT(8)\r\n      Z1 = ECPT(9)\r\n      R2 = ECPT(12)\r\n      Z2 = ECPT(13)\r\n   15 IF (ECPT(5) .LE. 0.0) RETURN\r\n      IF (R1.EQ.0.0 .OR. R2.EQ.0.0) GO TO 350\r\n      IF (Z1 .EQ. Z2) GO TO 350\r\nC\r\nC     CALCULATE THE INTEGRAL PARAMETERS I2N0,I2N1,I2N2,AND I2NP2\r\nC\r\n      K  = 2*NECPT(6) + 2\r\n      RK = K\r\n      B   = (R2-R1)/(Z2-Z1)\r\n      DUM = DABS(B)\r\n      IF (DUM .GT. 1.0E-6) GO TO 30\r\n      Z1P  = ((R1+R2)/2.0D0)**K\r\n      I2N0 = (Z1P/RK)*(Z2-Z1)\r\n      I2N1 = I2N0*(Z2+Z1)/2.0D0\r\n      I2N2 = I2N0*(Z2**2+Z2*Z1+Z1**2)/3.0D0\r\n      I2NP2= I2N0*RK/(RK+2.0D0)*R1**2\r\n      GO TO 300\r\nC\r\n   30 Z1P  = R1**(K+1)\r\n      Z2P  = R2**(K+1)\r\n      Z1P1 = Z1P*R1\r\n      Z2P1 = Z2P*R2\r\n      A    = 1.0D0/B\r\n      I2N0 = A/(RK*(RK+1.0D0))*(Z2P-Z1P)\r\n      I2N1 = A/(RK*(RK+1.0D0))*(Z2P*Z2-Z1P*Z1 -A/(RK+2.0D0)*(Z2P1-Z1P1))\r\n      I2N2 = A/(RK*(RK+1.0D0))*(Z2P*Z2**2 -Z1P*Z1**2 -A/(RK+2.0D0)*2.0D0\r\n     1     * (Z2P1*Z2 -Z1P1*Z1 -A/(RK+3.0D0)*(Z2P1*R2-Z1P1*R1)))\r\n      I2NP2= A/((RK+2.0D0)*(RK+3.0D0))*(Z2P1*R2-Z1P1*R1)\r\nC\r\n  300 DZ   = Z2 - Z1\r\n      N    = NECPT(6)\r\n      Z1P  = R1**N\r\n      Z2P  = R2**N\r\n      HPQ(1) = Z2/(DZ*Z1P)\r\n      HPQ(2) =-Z1/(DZ*Z2P)\r\n      HPQ(3) =-1.0D0/(DZ*Z1P)\r\n      HPQ(4) = 1.0D0/(DZ*Z2P)\r\n      LP = 1\r\n      IF (NPVT .EQ. NECPT(2)) GO TO 320\r\n      IF (NPVT .EQ. NECPT(3)) GO TO 310\r\n      GO TO 350\r\n  310 LP = 2\r\n  320 PIRHO = DPI/DBLE(ECPT(5))\r\n      IF (NECPT(6) .EQ. 0) PIRHO = 2.0D0*PIRHO\r\n      KH(1) = PIRHO*(I2N0*HPQ(LP)+I2N1*HPQ(LP+2))\r\n      KH(2) = PIRHO*(I2N1*HPQ(LP)+I2N2*HPQ(LP+2))\r\n      K1 = KH(1)*HPQ(1) + KH(2)*HPQ(3)\r\n      K2 = KH(1)*HPQ(2) + KH(2)*HPQ(4)\r\n      IFILE = IFMGG\r\n      I  = NPVT\r\n      J  = NECPT(2)\r\n      CALL SMA2B (K1,J,I,IFILE,0.0D0)\r\n      J  = NECPT(3)\r\n      CALL SMA2B (K2,J,I,IFILE,0.0D0)\r\n  350 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mflud3.f",
    "content": "      SUBROUTINE MFLUD3\r\nC*****\r\nC     THIS ROUTINE GENERATES THE PSUEDO   MASS    MATRIX TERMS\r\nC     FOR THE TRIANGULAR FLUID ELEMENT\r\nC*****\r\nC     THE ECPT DATA IS THE FOLLOWING\r\nC\r\nC         FIELD         SYMBOL\r\nC           1             ID\r\nC           2             SIL1\r\nC           3             SIL2\r\nC           4             SIL3\r\nC           5             RHO\r\nC           6             BULK\r\nC           7             N\r\nC           8             CSF\r\nC           9             R1\r\nC           10            Z1\r\nC           11            -\r\nC           12            CSF\r\nC           13            R2\r\nC           14            Z2\r\nC           15            -\r\nC           16            CSF\r\nC           17            R3\r\nC           18            Z3\r\nC           19            -\r\nC           20            -\r\nC****\r\n      DOUBLE PRECISION        R         ,Z        ,ARE2\r\n     1                        ,PIAB     ,EMASS\r\nC*****\r\n      INTEGER NECPT(100)\r\n      COMMON/SMA2CL/ DUM(2),NPVT\r\n      COMMON/SMA2IO/ DUM1(10),IFMGG\r\n      COMMON  /SMA2ET/ ECPT(100)\r\n      COMMON/SMA2DP/          R(3)      ,Z(3)     ,ARE2\r\n     1                       ,PIAB      ,EMASS    ,JP\r\n     2                       ,IR        ,JPVT     ,IGRID\r\n      EQUIVALENCE        (ECPT(1),NECPT(1))\r\nC*****\r\nC*****\r\nC\r\n      IF(ECPT(6).EQ. 0.0) RETURN\r\nC*****\r\nC     STORE THE POINT LOCATIONS AND FIND THE PIVOT POINT\r\nC*****\r\n      JP =0\r\n      DO 20 I=1,3\r\n      IR =  9 + 4*(I-1)\r\n      R(I)  = ECPT(IR)\r\n      IF(ECPT(IR).LE.0.0) GO TO 1000\r\n      Z(I)  = ECPT(IR+1)\r\n      IF( NPVT .NE. NECPT(I+1)) GO TO 20\r\n      JP = I\r\n   20 CONTINUE\r\n      IF( JP .EQ.0) GO TO 1000\r\n      ARE2=DABS((R(2) -R(1))*(Z(3)-Z(1)) - (R(3)-R(1))*(Z(2)-Z(1)) )\r\n      PIAB = 2.617994D-2 *ARE2 / DBLE( ECPT(6) )\r\n      IF (NECPT(7) .EQ. 0) PIAB = PIAB*2.0D0\r\n      JPVT = NPVT\r\n      DO 50  I = 1,3\r\n      IGRID = NECPT(I+1)\r\n      EMASS = PIAB*( R(1)+R(2)+R(3) +R(JP) +R(I))\r\n      IF (I .EQ. JP) EMASS = EMASS*2.0D0\r\n      CALL SMA2B ( EMASS, IGRID,JPVT,IFMGG,0.0D0)\r\n   50 CONTINUE\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mflud4.f",
    "content": "      SUBROUTINE MFLUD4\r\nC*****\r\nC     THIS ROUTINE IS USED FOR THE 4-SIDED FLUID ELEMENT. IT REARRANGES\r\nC      THE DATA AND  CALLS THE MFLUD3 ROUTINE FOR EACH SUBELEMENT.\r\nC****\r\nC     THE ECPT DATA FOR THE ELEMENT AND ITS SUBELEMENTS ARE\r\nC\r\nC        FIELD      SYMBOL(FLUID4)      SYMBOL(FLUID3)\r\nC           1            ID                  ID\r\nC           2            SIL1                SIL1\r\nC           3            SIL2                SIL2\r\nC           4            SIL3                SIL3\r\nC           5            SIL4                RHO\r\nC           6            RHO                 BULK\r\nC           7            BULK                N\r\nC           8            N                   CSF\r\nC           9            CSF                 R1\r\nC          10            R1                  Z1\r\nC          11            Z1                  -\r\nC          12            -                   CSF\r\nC          13            CSF                 R2\r\nC          14            R2                  Z2\r\nC          15            Z2                  -\r\nC          16            -                   CSF\r\nC          17            CSF                 R3\r\nC          18            R3                  Z3\r\nC          19            Z3                  -\r\nC          20            -\r\nC          21            CSF\r\nC          22            R4\r\nC          23            Z4\r\nC          24            -\r\nC          25            -\r\nC****\r\n      INTEGER  NECPT(100)\r\n      COMMON/SMA2IO/ DUM1(10),IFMGG\r\n      COMMON /SMA2CL/    IOPT1,K1GGSW,NPVT\r\n      COMMON /SMA2ET/    ECPT(100)\r\n      EQUIVALENCE   (ECPT(1),NECPT(1))\r\n      IF(ECPT(7) .EQ. 0.0) GO TO 120\r\n      ECPT(7)=ECPT(7)*2.0\r\n      DO 50 I=1,24\r\n   50 ECPT(I+50) =ECPT(I)\r\n      DO 60 I= 5,19\r\n   60 ECPT(I)= ECPT(I+1)\r\n      IRET =1\r\n      GO TO 100\r\n   70 ECPT(4) = ECPT(55)\r\n      ECPT(17)= ECPT(72)\r\n      ECPT(18)= ECPT(73)\r\n      IRET =2\r\n      GO TO 100\r\n   80 ECPT(13)= ECPT(68)\r\n      ECPT(14)= ECPT(69)\r\n      ECPT(3)= ECPT(54)\r\n      IRET=3\r\n      GO TO 100\r\n   90 ECPT(9) = ECPT(64)\r\n      ECPT(10)= ECPT(65)\r\n      ECPT(2)= ECPT(53)\r\n      IRET=4\r\nC*****\r\nC\r\n  100 IF((NECPT(2).NE.NPVT).AND.(NECPT(3).NE.NPVT).AND.\r\n     1   (NECPT(4).NE.NPVT))  GO TO 110\r\nC*****\r\n      CALL MFLUD3\r\n  110 GO TO (70,80,90,120),IRET\r\n  120 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mfree.f",
    "content": "      SUBROUTINE MFREE\r\nC     THIS ROUTINE GENERATES MASS TERMS FOR THE INTERNALLY CREATED\r\nC     ELEMENT WHICH DESCRIBES FREE SURFACE EFFECTS\r\nC*****\r\nC     THE ECPT DATA IS\r\nC         NO.       DESCRIPTION\r\nC         1         EL ID\r\nC         2         SIL 1\r\nC         3         SIL 2\r\nC         4         GAMMA\r\nC         5         N\r\nC         6         0\r\nC         7         R1\r\nC         8         Z1\r\nC         9         -\r\nC         10        0\r\nC         11        R2\r\nC         12        Z2\r\nC         13        -\r\n      DOUBLE PRECISION   RP             ,RN\r\n     1                  ,DR             ,CT\r\n     2                  ,EM\r\nC\r\n      INTEGER    NECPT(100)\r\nC\r\n      COMMON /SMA2DP/    RP             ,RN\r\n     1                  ,DR             ,CT\r\n     2                  ,EM\r\n      COMMON /SMA2IO/    IO(36)\r\nC\r\n      COMMON /SMA2CL/    DUM(2)        ,NPVT\r\nC\r\n      COMMON /SMA2ET/    ECPT(100)\r\n      EQUIVALENCE   (NECPT(1),ECPT(1))\r\n      IFILE = IO(11)\r\n      IF (ECPT(4).EQ.0.0) GO TO 1100\r\n      IF(NECPT(2).EQ. NECPT(3)) GO TO 500\r\n      DR = ECPT(11) - ECPT(7)\r\n      IF(NPVT .EQ.NECPT(2)) GO TO 20\r\n      IF(NPVT .NE.NECPT(3)) GO TO 1000\r\nC\r\n      RP = ECPT(11)\r\n      RN = ECPT(7)\r\n      IP = NECPT(3)\r\n      IN = NECPT(2)\r\nC\r\n      GO TO 50\r\nC\r\n   20 RP = ECPT(7)\r\n      RN = ECPT(11)\r\n      IP =NECPT(2)\r\n      IN =NECPT(3)\r\n   50 CT = (0.2617994D0/ECPT(4)) * DR\r\n      IF( NECPT(5) .EQ. 0) CT = 2.0D0 * CT\r\n      EM = CT * (3.0D0*RP +RN)\r\n      CALL SMA2B (EM,IP,IP,IFILE,0.0D0)\r\n      EM = CT * ( RP +RN)\r\n      CALL SMA2B (EM,IN,IP,IFILE,0.0D0)\r\n      GO TO 1100\r\nC\r\nC      CASE OF CENTER ELEMENT CONNECTED TO ONE POINT\r\nC\r\n  500 IF(NECPT(2).NE.NPVT) GO TO 1000\r\n       CT = 1.5707963D0 / DBLE( ECPT(4) )\r\n      RP = ECPT (7)\r\n      IF( NECPT(5).LE. 0 ) GO TO 510\r\n      RN =NECPT(5)\r\n      CT  = CT/ (2.0D0*RN +2.0D0)\r\n  510 EM = CT*RP**2\r\n      IP = NPVT\r\n      CALL SMA2B( EM,IP,IP,IFILE,0.0D0)\r\n 1000 RETURN\r\n 1100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mindeg.f",
    "content": "      FUNCTION MINDEG (NC,IC,IDEG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS FUNCTION HAS AS ITS VALUE THE MINIMUM DEGREE OF ANY NODE OF\r\nC     COMPONENT NC IF NC.GT.0\r\nC     IF NC.LE.0, ALL COMPONENTS ARE CONSIDERED.\r\nC\r\n      DIMENSION       IC(1),    IDEG(1)\r\n      COMMON /BANDS / NN\r\nC\r\n      M=600000\r\n      DO 100 I=1,NN\r\n      IF (NC) 40,50,40\r\n   40 IF (IC(I) -NC) 100,50,100\r\n   50 IF (M-IDEG(I)) 100,100,60\r\n   60 M=IDEG(I)\r\n  100 CONTINUE\r\n      MINDEG=M\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mintrp.f",
    "content": "      SUBROUTINE MINTRP(NI,XI,ND,XD,TYPE,SYMM1,SYMK1,DZ,INFILE,OUTFIL,\r\n     *                  SCR,SCR1,G,NCORE,NOGO,IPRES)\r\nC\r\n      INTEGER SYSBUF,SYMK1,SYMM1,ISNG,SCR,SCR1,OUTFIL,SCRM\r\n      INTEGER A,B,C,D,NAME(2),TYPE,BUFF,GPOINT\r\n      LOGICAL NIMAG\r\n      LOGICAL SPEC\r\n      COMPLEX ALPHA\r\n      DOUBLE PRECISION AR,AI\r\n      DIMENSION XI(1),XD(2),G(1)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON / PACKX/ ITI,ITO,II,NN,INCR\r\n      COMMON /MPYADX/ A(7),B(7),C(7),D(7),NWORDS,NT,ISAB,ISC,IPRE,SCRM\r\n      COMMON /SADDX / NMAT,LCORE,MA(7),ITA,ALPHA(2),DUM(48),MC(7)\r\n      COMMON /UNPAKX/ IOUT,IN,NNN,INCRU\r\nC\r\n      EQUIVALENCE (ALPHA(1),AR),(ALPHA(2),AI)\r\nC\r\n      DATA NAME /4HMINT,4HRP  /\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      SPEC = .FALSE.\r\n      NOGO = 0\r\nC\r\nC     DETERMINE TYPE OF CALL FOR G\r\nC     NEGATIVE VALUE FOR KO CALL LSPLIN, POSITIVE CALL SSPLIN\r\nC\r\nC\r\nC     CHECK CORE NEED AT LEAST 1 BUFFER + G\r\nC\r\n      ITY = IABS(TYPE)\r\n      KD = 0\r\n      IF(ITY.GT.3) KD=1\r\n      NCOL = (1+KD)*ND\r\n      IF(SYSBUF+NCOL*NI  .GT. NCORE) CALL MESAGE(-8,0,NAME)\r\nC\r\nC     PROTECT AGAINST BAD CALL\r\n      IF(SYMK1.LT.0) SYMK1 = -1\r\n      IF(SYMM1.LT.0) SYMM1 = -1\r\n      IF(SYMK1.GT.0) SYMK1 = 1\r\n      IF(SYMM1.GT.0) SYMM1 = 1\r\nC     TRANSPOSE FLAG ON\r\n      KT = 1\r\nC     SPECIAL CASE\r\n      IF(ND.EQ.1.AND.ITY.LT.4) GO TO 300\r\n   10 IF(TYPE.LT.0) GO TO 100\r\n      CALL SSPLIN(NI,XI,ND,XD,SYMM1,SYMK1,KD,KT,DZ,G,NCORE,ISNG)\r\n      IF(ISNG.EQ.2) GO TO 999\r\n      GO TO 200\r\n  100 NII = 2*NI\r\n      DO 110 I=1,NII,2\r\n      XI(I) = 0.0\r\n  110 CONTINUE\r\n      NII = 2*ND\r\n      DO 120 I = 1,NII,2\r\n      XD(I) = 0.0\r\n  120 CONTINUE\r\n      CALL LSPLIN(NI,XI,ND,XD,SYMK1,KD,KT,DZ,-1.0,-1.0,1.0,G,NCORE,ISNG)\r\n      IF(ISNG.EQ.2) GO TO 999\r\nC     PUT OUT G\r\n  200 BUFF = NCORE-SYSBUF+1\r\n      NIMAG = .TRUE.\r\n      IF(ITY.EQ.3.OR.ITY.EQ.6) NIMAG = .FALSE.\r\n      IF(NIMAG) GO TO 210\r\n      ITI = SCR\r\n      SCR = OUTFIL\r\n      OUTFIL = ITI\r\n  210 ITO = 1\r\n      JJ = NCOL\r\n      ITI = 1\r\n      NN = NI\r\n      B(3) = NI\r\n      B(5) = 1\r\n      GPOINT = 1\r\n  215 INCR = 1\r\n      J = 1\r\n      II = 1\r\n      B(1) = SCR\r\n      B(2) = 0\r\n      B(4) = 2\r\n      B(6) = 0\r\n      B(7) = 0\r\n      CALL GOPEN(SCR,G(BUFF),1)\r\n      DO 220 I = J,JJ\r\n      CALL PACK(G(GPOINT),SCR,B)\r\n      GPOINT = GPOINT + NI\r\n  220 CONTINUE\r\n      CALL CLOSE(SCR,1)\r\n      CALL WRTTRL(B)\r\n      IF(SPEC) GO TO 1000\r\nC\r\nC     MULT INFILE BY G\r\nC\r\n      C(1) = 0\r\n      A(1) = INFILE\r\n      CALL RDTRL(A)\r\n      D(1) = OUTFIL\r\n      D(3) = A(3)\r\n      D(4) = 2\r\n      D(5) = A(5)\r\n      IF(ITY.EQ.2.OR.ITY.EQ.5) D(5) = 1\r\n      IF(D(5).EQ.1.AND.A(5).EQ.4) D(5) = 2\r\n      NWORDS = NCORE\r\n      NT = 0\r\n      ISAB = 1\r\n      IPRE = IPRES\r\n      SCRM = SCR1\r\n      CALL MPYAD(G,G,G)\r\n      CALL WRTTRL(D)\r\n      IF(NIMAG) GO TO 1000\r\nC\r\nC     IMAG PART ONLY WANTED\r\nC\r\n      NMAT = 1\r\n      LCORE = NCORE\r\n      MA(1) = OUTFIL\r\n      CALL RDTRL(MA)\r\n      ITA = 3\r\n      ALPHA(1) = (0.0,-1.0)\r\n      MC(1) = SCR\r\n      MC(2) = MA(2)\r\n      MC(3) = MA(3)\r\n      MC(4) = 2\r\n      MC(5) = MA(5)\r\n      MC(6) = 0\r\n      MC(7) = 0\r\n      AI = -1.0D0\r\n      IF(MA(5) .EQ.4) ITA = 4\r\n      IF(ITA.EQ.4) AR = 0.0D0\r\n      CALL SADD(G,G)\r\n      CALL WRTTRL(MC)\r\n      GO TO 1000\r\nC\r\nC     TEST FOR SPECIAL CASE\r\nC\r\n  300 NII = 2*NI\r\n      K = 0\r\n      DO 310 I = 1,NII,2\r\n      K = K+1\r\n      IF(XI(I).EQ.XD(1).AND.XI(I+1).EQ.XD(2)) GO TO 315\r\n  310 CONTINUE\r\n      GO TO 10\r\nC\r\nC     PACK OUT COLUMN OF INFILE\r\nC\r\n  315 A(1) = INFILE\r\n      CALL RDTRL(A)\r\n      BUFF = NCORE-SYSBUF +1\r\n      CALL GOPEN(INFILE,G(BUFF),0)\r\n      INCRU = 1\r\n      IN = 1\r\n      NNN = A(3)\r\n      IOUT = A(5)\r\n      IF(K.EQ.1) GO TO 330\r\n      K = K-1\r\n      CALL SKPREC(INFILE,K)\r\n  330 CALL UNPACK(*998,INFILE,G)\r\n      CALL CLOSE(INFILE,1)\r\n      SPEC = .TRUE.\r\n      SCR = OUTFIL\r\n      ITI = A(5)\r\n      NN = A(3)\r\n      JJ = 1\r\n      GPOINT = 1\r\n      IF(ITY.EQ.3) GPOINT = 2\r\n      ITO = 1\r\n      IF(ITY .EQ.1) ITO = 3\r\n      IF(A(5).EQ.4) ITO = ITO+1\r\n      B(3) = A(3)\r\n      B(5) = ITO\r\n      GO TO 215\r\n  998 CALL MESAGE(-7,0,NAME)\r\n  999 NOGO = 1\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma.f",
    "content": "      SUBROUTINE MMA ( ZI, ZR, ZD )\r\nC\r\nC     MMA PERFORMS THE MATRIX OPERATION\r\nC       (+/-)A    * B (+/-)C = D   OR\r\nC       (+/-)A(T) * B (+/-)C = D\r\nC\r\nC     USING METHODS 10, 11, 20, 21, 30, 31, 32, 40, 41\r\nC\r\nC\r\nC  IN REGARDS TO THE METHODS BELOW, WHEN MULTIPLE COLUMNS OF A MATRIX\r\nC  ARE STORED AND READ BY GETSTR, THEN THE MATRIX IS STORED IN MEMORY IN \r\nC  COMPACT FORM.  SEE SUBROUTINES 'MMARM1,2,3,4' FOR A DESCRIPTION OF \r\nC  THIS COMPACT FORM.  WHEN ONLY A SINGLE COLUMN OF A MATRIX IS STORED \r\nC  AND IT IS BEING READ BY GETSTR, IT IS STORED IN COMPACT FORM IN MEMORY.  \r\nC  SEE SUBROUTINES 'MMARC1,2,3,4' FOR A DESCRIPTION OF THIS FORM.\r\nC\r\nC   ------------------------------------------------------------------------\r\nC   METHOD     METHOD OF READING MATRIX    MULTIPLE COLUMNS OF MATRIX STORED\r\nC                 A        B       C           A         B        D\r\nC   ------------------------------------------------------------------------\r\nC     10        UNPACK  UNPACK   UNPACK       YES        NO       NO\r\nC     11        UNPACK  GETSTR   UNPACK       YES        NO       NO\r\nC     20        UNPACK  UNPACK   UNPACK       NO         YES      YES\r\nC     21        GETSTR  UNPACK   UNPACK       NO         YES      YES\r\nC     30        GETSTR  UNPACK   UNPACK       YES        NO       NO\r\nC     31        GETSTR  GETSTR   UNPACK       YES        NO       NO   \r\nC     32        GETSTR  GETSTR   GETSTR       YES        NO       NO   \r\nC     40        UNPACK  GETSTR   UNPACK       NO         YES      YES\r\nC     41        GETSTR  GETSTR   UNPACK       NO         YES      YES\r\nC   ------------------------------------------------------------------------\r\nC\r\nC   TO DETERMINE WHICH METHOD TO USE, THE FOLLOWING RATIONAL IS USED.      \r\nC   \r\nC   1.  DETERMINE THE METHOD FOR READING MATRICES \"A\" AND \"B\".  THIS IS \r\nC       DETERMINED BY EXAMINING THE FOLLOWING PERCENTAGE:\r\nC \r\nC            (MEMORY TO CONTAIN ENTIRE MATRIX) \r\nC            ------------------------------------  = PERCENTAGE\r\nC            (MEMORY TO CONTAIN COMPACTED MATRIX)\r\nC\r\nC       IF THE PERCENTAGE IS .GE. THE VARIABLE \"TESTPCT\", THEN UNPACK IS\r\nC       USED.  OTHERWISE, GETSTR IS USED.\r\nC\r\nC            NiSTOR (i=A or B) = 1, CALL UNPACK TO READ MATRIX\r\nC                              = 2, CALL GETSTR TO READ MATRIX\r\nC\r\nC    2. THE RESULTS OF THE FIRST TEST WILL NARROW THE OPTIONS TO TWO\r\nC       DIFFERENT METHODS AS FOLLOWS:\r\nC\r\nC                                  CANDIDATE METHOD\r\nC                10     11     20     21     30     31     32     40     41\r\nC       NASTOR =  1      1      1      2      2      2      2      1      2\r\nC       NBSTOR =  1      2      1      1      1      2      2      2      2\r\nC\r\nC          FOR NASTOR = 1 AND NBSTOR = 1, METHODS 10 AND 20 ARE CONSIDERED\r\nC          FOR NASTOR = 1 AND NBSTOR = 2, METHODS 11 AND 40 ARE CONSIDERED\r\nC          FOR NASTOR = 2 AND NBSTOR = 1, METHODS 21 AND 30 ARE CONSIDERED\r\nC          FOR NASOTR = 2 AND NBSTOR = 2, METHODS 31,32 AND 41 ARE CONSIDERED\r\nC            (NOTE, METHOD 32 IS ONLY AVAILABLE WITH \"A\" TRANSPOSED)\r\nC\r\nC    3. LASTLY, DETERMINE THE ESTIMATED NUMBER OF PASSES FOR EACH OF THE\r\nC       TWO CANDIDATE METHODS.  THE METHOD WITH THE FEWER NUMBER OF PASSES\r\nC       IS CHOSEN.\r\nC        \r\nC       MPASSii (ii=10,11,20,21,30,31,32,40,41) = ESTIMATED NUMBER OF PASSES\r\nC                                                 FOR METHOD ii.\r\nC\r\nC       NiTOTAL (i=A,B,C) = MEMORY WORDS TO CONTAIN ENTIRE FULL MATRIX \r\nC       NiPACK  (i=A,B,C) = MEMORY WORDS TO CONTAIN ENTIRE MATRIX IN COMPACT \r\nC                           FORM.\r\nC       NWDD              = NUMBER OF WORDS FOR EACH ELEMENT OF THE \"D\" MATRIX \r\nC\r\nC\r\nC     THE FOLLOWING SUBROUTINES ARE CALLED FOR THE DIFFERENT METHODS AND\r\nC     MATRIX \"D\" TYPES (RS,RD,CS,CD).\r\nC\r\nC          METHODS  MAIN      OTHER SUBROUTINES DEPENDING ON TYPE\r\nC                 SUBROUTINE    RS     RD     CS     CD  \r\nC            10     MMA1      MMA101 MMA102 MMA103 MMA104 \r\nC            11     MMA1      MMA111 MMA112 MMA113 MMA114\r\nC            20     MMA2      MMA201 MMA202 MMA203 MMA204 \r\nC            21     MMA2      MMA211 MMA212 MMA213 MMA214\r\nC            30     MMA3      MMA301 MMA302 MMA303 MMA304 \r\nC            31     MMA3      MMA311 MMA312 MMA313 MMA314  \r\nC            32     MMA3      MMA321 MMA322 MMA323 MMA324 (TRANSPOSE ONLY)\r\nC            40     MMA4      MMA401 MMA402 MMA403 MMA404 \r\nC            41     MMA4      MMA411 MMA412 MMA413 MMA414\r\nC ---------------------------------------------------------------------------      \r\n      INTEGER           NAMEA(2) ,NAMEB(2)  ,NAMEC(2) , NAMED(2)\r\n      INTEGER           ZI(2)    ,PRNTYP(4) ,MODULE(3),PREC1\r\n      INTEGER           BLK1(15) ,BLK2(15)  ,EOL      ,EOR\r\n      INTEGER           SIGNAB   ,SIGNC     ,T        ,SCRTCH\r\n      INTEGER           FILEA    ,FILEB     ,FILEC    ,FILED\r\n      INTEGER           SYSBUF   ,TYPEI     ,TYPEP    ,TYPEU\r\n      INTEGER           ISAVE(9)\r\n      REAL              ZR(2)\r\n      DOUBLE PRECISION  ZD(2)    ,AD(2)   , DD(2)   \r\n      CHARACTER         UFM*23   ,UWM*25    ,UIM*29\r\n      CHARACTER*6       UPMETH(2)\r\n      CHARACTER*2       CT\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD       ,RDREW     ,WRT     ,WRTREW,CLSREW,CLS\r\n      COMMON / XMSSG  / UFM      ,UWM       ,UIM\r\n      COMMON / LOGOUT / LOUT\r\n      COMMON / MPYADX / FILEA(7) ,FILEB(7)  ,FILEC(7)    \r\n     1,                 FILED(7) ,NZ        ,T       ,SIGNAB,SIGNC,PREC1 \r\n     2,                 SCRTCH   ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / PACKX  / TYPEI    ,TYPEP     ,IROW1P  ,IROWNP, INCRP\r\n      COMMON / UNPAKX / TYPEU    ,IROWU     ,IROWNU  ,INCRU\r\n      COMMON / ZBLPKX / D(4)     ,IROWBK\r\n      COMMON / ZNTPKX / A(4)     ,IROWIN    ,EOL     ,EOR\r\n      EQUIVALENCE      (AD(1)     ,A(1)  ) , (DD(1)     ,D(1) )\r\n      EQUIVALENCE      (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),NOUT ) \r\n     1,                (KSYSTM(58),KSYS58) , (KSYSTM(40),NBPW )\r\n     2,                (KSYSTM(55),IPREC )\r\n      EQUIVALENCE      (FILEA(2)  ,NAC   ) , (FILEA(3)  ,NAR   )\r\n     1,                (FILEA(4)  ,NAFORM) , (FILEA(5)  ,NATYPE)\r\n     2,                (FILEA(6)  ,NANZWD) , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE      (FILEB(2)  ,NBC   ) , (FILEB(3)  ,NBR   )\r\n     1,                (FILEB(4)  ,NBFORM) , (FILEB(5)  ,NBTYPE)\r\n     2,                (FILEB(6)  ,NBNZWD) , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE      (FILEC(2)  ,NCC   ) , (FILEC(3)  ,NCR   )\r\n     1,                (FILEC(4)  ,NCFORM) , (FILEC(5)  ,NCTYPE)\r\n     2,                (FILEC(6)  ,NCNZWD) , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE      (FILED(2)  ,NDC   ) , (FILED(3)  ,NDR   )\r\n     1,                (FILED(4)  ,NDFORM) , (FILED(5)  ,NDTYPE)\r\n     2,                (FILED(6)  ,NDNZWD) , (FILED(7)  ,NDDENS)\r\nC\r\n      DATA    MODULE / 4HMMA , 2*4H    /\r\n      DATA    JBEGN  /  4HBEGN/, JEND  / 3HEND/\r\n      DATA    UPMETH / 'UNPACK', 'STRING' /\r\n      DATA PRNTYP / 2HRS, 2HRD, 2HCS, 2HCD /\r\n      DATA TESTPCT / .8 /\r\n      ISAVE( 1 ) = TYPEI\r\n      ISAVE( 2 ) = TYPEP\r\n      ISAVE( 3 ) = IROW1P\r\n      ISAVE( 4 ) = IROWNP\r\n      ISAVE( 5 ) = INCRP\r\n      ISAVE( 6 ) = TYPEU\r\n      ISAVE( 7 ) = IROWU\r\n      ISAVE( 8 ) = IROWNU\r\n      ISAVE( 9 ) = INCRU\r\n      CALL SSWTCH ( 19, L19 )\r\n      MODULE( 3 ) = JBEGN\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      NDR = NAR\r\n      NDC = NBC\r\n      IF ( T   .NE. 0   ) NDR = NAC\r\n      IF ( NDFORM .NE. 0 ) GO TO 50\r\n      NDFORM = 2\r\n      IF ( NDR .EQ. NDC ) NDFORM = 1\r\n50    CONTINUE\r\n      IF ( FILEA( 6 ) .EQ. 0 .OR. FILEB( 6 ) .EQ. 0 ) GO TO 5000\r\n      IF ( SIGNAB     .EQ. 0 ) GO TO 5000\r\n      IF ( T        .NE. 0   ) GO TO 100\r\n      IF ( NAC      .NE. NBR ) GO TO 7001\r\n      IF ( FILEC(1) .EQ. 0   ) GO TO 200\r\n      IF ( NAR      .NE. NCR ) GO TO 7001\r\n      IF ( NBC      .NE. NCC ) GO TO 7001\r\n      GO TO 200\r\n100   CONTINUE\r\n      IF ( NAR      .NE. NBR ) GO TO 7001\r\n      IF ( FILEC(1) .EQ. 0   ) GO TO 200\r\n      IF ( NAC      .NE. NCR ) GO TO 7001\r\n      IF ( NBC      .NE. NCC ) GO TO 7001\r\n200   CONTINUE\r\n      NWDC = 0\r\n      CALL DSSIZE ( FILEA, NCOLS, NATERMS, NASTRGS, NWDA )\r\n      CALL DSSIZE ( FILEB, NCOLS, NBTERMS, NBSTRGS, NWDB )\r\n      IF ( FILEC( 1 ) .NE. 0 ) \r\n     &  CALL DSSIZE ( FILEC, NCOLS, NCTERMS, NCSTRGS, NWDC )\r\n      NWDD    = MAX0 ( NWDA, NWDB, NWDC )\r\n      NDTYPE  = 2\r\n      IF ( NWDD .EQ. 4 ) NDTYPE = 4\r\n      IF ( NWDD .EQ. 1 ) NDTYPE = 1\r\n      IF ( NDTYPE .EQ. 1 .OR. NDTYPE .EQ. 4 ) GO TO 250\r\n      ITEST1  = MIN0 ( NATYPE, NBTYPE, NCTYPE )\r\n      ITEST2  = MAX0 ( NATYPE, NBTYPE, NCTYPE )\r\n      NDTYPE  = 3\r\n      IF ( ITEST2 .EQ. 3 .AND. \r\n     &  ( NATYPE.EQ.2 .OR. NBTYPE.EQ.2 .OR. NCTYPE.EQ.2 ) ) NDTYPE = 4\r\n      IF ( ITEST2 .LE. 2 ) NDTYPE = 2\r\n250   CONTINUE\r\n      NATOTAL = NAC * NAR * NWDD\r\n      NBTOTAL = NBC * NBR * NWDD\r\n      IF ( FILEC(1) .NE. 0 ) NCTOTAL = NCC * NCR * NWDD\r\n      NDTOTAL = NDC * NDR * NWDD\r\n      NAPACK  = 2*NAC + 2*NASTRGS + NATERMS*NWDD\r\n      NBPACK  = 2*NBC + 2*NBSTRGS + NBTERMS*NWDD   \r\n      IF ( FILEC(1) .NE. 0 ) NCPACK  = 2*NDC + 2*NCSTRGS + NCTERMS*NWDD   \r\n      DENSTYA = ( NADENS*1.) / 10000.\r\n      DENSTYB = ( NBDENS*1.) / 10000.\r\n      IF ( FILEC(1) .NE. 0 ) DENSTYC = ( NCDENS*1.) / 10000.\r\n      NASTOR  = 2\r\n      NBSTOR  = 2\r\n      NCSTOR  = 2\r\n      X = NATOTAL\r\n      Y = NAPACK\r\n      PERCNTA = Y / X\r\n      X = NBTOTAL\r\n      Y = NBPACK\r\n      PERCNTB = Y / X\r\n      IF ( FILEC( 1 ) .EQ. 0 ) GO TO 300\r\n      X = NCTOTAL\r\n      Y = NCPACK\r\n      PERCNTC = Y / X\r\n300   CONTINUE\r\n      IF ( PERCNTA .GE. TESTPCT ) NASTOR = 1\r\n      IF ( PERCNTB .GE. TESTPCT ) NBSTOR = 1 \r\n      IF ( FILEC(1) .NE. 0 .AND. PERCNTC .GE. TESTPCT ) NCSTOR = 1 \r\n      MEMAVL  = NZ - 4*SYSBUF\r\n      MPASS10 = (NATOTAL / ( MEMAVL - (NBR + NDR)*NWDD       ) ) + 1\r\n      MPASS11 = (NATOTAL / ( MEMAVL - NDR*NWDD - (NBPACK/NBC)) ) + 1\r\n      MPASS20 = ((NBTOTAL + NDTOTAL) / (MEMAVL - NAR*NWDD    ) ) + 1\r\n      MPASS21 = ((NBTOTAL + NDTOTAL) / (MEMAVL - (NAPACK/NAC)) ) + 1\r\n      MPASS30 = (NAPACK  / ( MEMAVL - (NBR + NDR)*NWDD       ) ) + 1\r\n      MPASS31 = (NAPACK  / ( MEMAVL - NDR*NWDD - (NBPACK/NBC)) ) + 1 \r\n      MPASS32 = (NAPACK  / ( MEMAVL - (NCPACK/NDC) - (NBPACK/NBC)) ) + 1 \r\n      MPASS40 = ((NBPACK + NDTOTAL) / (MEMAVL - NAR*NWDD     ) ) + 1\r\n      MPASS41 = ((NBPACK + NDTOTAL) / (MEMAVL - (NAPACK/NAC) ) ) + 1\r\n      IF ( NASTOR .EQ. 1 .AND. NBSTOR .EQ. 1 ) GO TO 1000\r\n      IF ( NASTOR .EQ. 2 .AND. NBSTOR .EQ. 1 ) GO TO 1100\r\n      IF ( NASTOR .EQ. 1 .AND. NBSTOR .EQ. 2 ) GO TO 1200\r\n      IF ( NASTOR .EQ. 2 .AND. NBSTOR .EQ. 2 ) GO TO 1300\r\n1000  CONTINUE   \r\nC---------USE UNPACK FOR MATRICES \"A\" AND \"B\"  (CHOOSE METHOD 10 OR 20)\r\n      METHOD = 10\r\n      IF ( MPASS10 .EQ. 1       ) GO TO 2000\r\n      IF ( MPASS10 .LE. MPASS20 ) GO TO 2000\r\n      METHOD = 20\r\n      GO TO 2000\r\n1100  CONTINUE \r\nC---------USE GETSTR FOR MATRIX \"A\"; UNPACK FOR MATRIX \"B\"  \r\nC         (CHOOSE METHOD 21 OR 30)\r\n      METHOD = 21\r\n      IF ( MPASS21 .EQ. 1       ) GO TO 2000\r\n      IF ( MPASS21 .LE. MPASS30 ) GO TO 2000\r\n      METHOD = 30\r\n      GO TO 2000\r\n1200  CONTINUE    \r\nC---------USE UNPACK FOR MATRIX \"A\"; GETSTR FOR MATRIX \"B\" \r\nC         (CHOOSE METHOD 11 OR 40)\r\n      METHOD = 11\r\n      IF ( MPASS11 .EQ. 1       ) GO TO 2000\r\n      IF ( MPASS11 .LE. MPASS40 ) GO TO 2000\r\n      METHOD = 40\r\n      GO TO 2000\r\n1300  CONTINUE\r\nC---------USE GETSTR FOR MATRICES \"A\" AND \"B\" (CHOOSE METHOD 31, 32 OR 41)\r\n      METHOD = 31\r\n      IF ( MPASS31 .EQ. 1       ) GO TO 1310\r\n      IF ( MPASS31 .LE. MPASS41 ) GO TO 1310\r\n      METHOD = 41\r\n      GO TO 2000\r\n1310  CONTINUE\r\n      IF ( NCSTOR .EQ. 2 .AND. T .NE. 0 ) METHOD = 32\r\n2000  CONTINUE\r\n      IF(L19.EQ.0) GO TO 3000\r\n      CALL FNAME ( FILEA, NAMEA )\r\n      CALL FNAME ( FILEB, NAMEB )\r\n      CALL FNAME ( FILEC, NAMEC )\r\n      CALL FNAME ( FILED, NAMED )\r\n      WRITE( LOUT,2001, IOSTAT=IERR )\r\n     &         NAMEA, NAR, NAC, NATERMS, DENSTYA, PRNTYP( NATYPE )\r\n     &,        NAMEB, NBR, NBC, NBTERMS, DENSTYB, PRNTYP( NBTYPE )\r\n2001  FORMAT(\r\n     & '  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'  /     MATRIX      ROWS   COLS     TERMS   DENS    TYPE      /'\r\n     &,/\r\n     &,'  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'     A- ',2A4,I8,I7,I10,F7.4, 5X, A2\r\n     &,/\r\n     &,'     B- ',2A4,I8,I7,I10,F7.4, 5X, A2 )\r\n      IF (FILEC(1) .EQ. 0) GO TO 2010\r\n      WRITE( LOUT,2002, IOSTAT=IERR )\r\n     &        NAMEC, NCR, NCC, NCTERMS, DENSTYC, PRNTYP( NCTYPE )\r\n2002  FORMAT(\r\n     & '     C- ',2A4,I8,I7,I10, F7.4, 5X, A2 )\r\n2010  WRITE( LOUT, 2003 ) NAMED, NDR, NDC, PRNTYP(NDTYPE)\r\n2003  FORMAT('     D- ',2A4, I8, I7, 10X, 7X,   5X, A2 )\r\n      WRITE( LOUT, 2004 ) SIGNAB, SIGNC, NZ, KSYS58\r\n2004  FORMAT('     SIGNAB =',I2,'  SIGNC =',I2,'  MEMORY =',I10\r\n     &,'  SYSTEM(58)=',I3 )\r\n      WRITE( LOUT, 2005 ) UPMETH( NASTOR ), NATOTAL, NAPACK\r\n     &,                   UPMETH( NBSTOR ), NBTOTAL, NBPACK  \r\n      IF ( FILEC( 1 ) .NE. 0 ) \r\n     &WRITE( LOUT, 20051) UPMETH( NCSTOR ), NCTOTAL, NCPACK  \r\n      WRITE( LOUT, 20052) T, METHOD, PRNTYP( NDTYPE )\r\n2005  FORMAT(\r\n     & '  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'  /    READ METHOD   MEMORY (FULL MATRIX)    MEMORY (STRINGS) /'\r\n     &,/\r\n     &,'  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'     A-  ',A6,I21,I21 \r\n     &,/\r\n     &,'     B-  ',A6,I21,I21 \r\n     &)\r\n20051 FORMAT(\r\n     & '     C-  ',A6,I21,I21 )\r\n20052 FORMAT(\r\n     & '     T =',I2,'    SUGGESTED METHOD =',I2\r\n     &,'    \"D\" MATRIX TYPE:',1X,A2)\r\n      WRITE( LOUT, 2006 ) MPASS10,MPASS11,MPASS20,MPASS21,MPASS30\r\n     &,                           MPASS31,MPASS32,MPASS40,MPASS41\r\n2006  FORMAT(\r\n     & '  /-----------------------------------------------------------/'\r\n     &,/\r\n     & '  /       ESTIMATED NUMBER OF PASSES REQUIRED PER METHOD      /'\r\n     &,/\r\n     &,'  /         10   11   20   21   30   31   32   40   41        /'\r\n     &,/\r\n     &,'  /-----------------------------------------------------------/' \r\n     &,/\r\n     &,'         ',9I5  \r\n     &,/\r\n     &,'  /-----------------------------------------------------------/' \r\n     & )\r\n3000  CONTINUE\r\n      IF ( FILED( 1 ) .LT. 0 ) GO TO 7777\r\n      IF (  KSYS58 .NE. 0 .AND. \r\n     &     (KSYS58 .GE.10 .AND. KSYS58 .LE. 11) .OR.\r\n     &     (KSYS58 .GE.20 .AND. KSYS58 .LE. 21) .OR.\r\n     &     (KSYS58 .GE.30 .AND. KSYS58 .LE. 31) .OR.\r\n     &     (KSYS58 .GE.40 .AND. KSYS58 .LE. 41) )  METHOD = KSYS58\r\n      IF ( KSYS58 .EQ. 32 .AND. T .NE. 0 ) METHOD = KSYS58\r\n      IF ( METHOD .EQ. 10 ) NBSTOR = 1\r\n      IF ( METHOD .EQ. 11 ) NBSTOR = 2\r\n      IF ( METHOD .EQ. 20 ) NASTOR = 1\r\n      IF ( METHOD .EQ. 21 ) NASTOR = 2\r\n      IF ( METHOD .EQ. 30 ) NBSTOR = 1\r\n      IF ( METHOD .EQ. 31 ) NBSTOR = 2     \r\n      IF ( METHOD .EQ. 32 ) NBSTOR = 2     \r\n      IF ( METHOD .EQ. 40 ) NASTOR = 1\r\n      IF ( METHOD .EQ. 41 ) NASTOR = 2\r\n      IF ( METHOD .EQ. 10 .OR. METHOD .EQ. 11 )  \r\n     &     CALL MMA1 ( ZI, ZR, ZD, ZR, ZD )   \r\n      IF ( METHOD .EQ. 20 .OR. METHOD .EQ. 21 )   \r\n     &     CALL MMA2 ( ZI, ZR, ZD, ZR, ZD )   \r\n      IF ( METHOD .GE. 30 .AND. METHOD .LE. 32 ) \r\n     &     CALL MMA3 ( ZI, ZR, ZD, ZR, ZD )   \r\n      IF ( METHOD .EQ. 40 .OR. METHOD .EQ. 41 ) \r\n     &     CALL MMA4 ( ZI, ZR, ZD, ZR, ZD )   \r\n      CT = 'NT'\r\n      IF ( T .NE. 0 ) CT = 'T '\r\n      WRITE ( LOUT, 2007 ) METHOD, CT, IPASS\r\n2007  FORMAT('   METHOD USED = ',I2,A2,'  ACTUAL NUMBER OF PASSES =',I4)\r\n      GO TO 7777\r\nC\r\nC \"A\" AND \"B\" MATRICES ARE NULL, MOVE \"C\" TO \"D\" IF \"C\" EXISTS\r\nC\r\n5000  CONTINUE\r\n      IF ( FILED( 1 ) .LT. 0 ) GO TO 7777\r\n      NDTYPE = NCTYPE\r\n      WRITE ( LOUT, 9002 ) \r\n9002  FORMAT('       MMA - NULL MATRIX PRODUCT')\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IF ( FILEC( 1 ) .EQ. 0 ) GO TO 5900\r\n      IF ( SIGNC      .EQ. 0 ) GO TO 5900\r\n      IF ( SIGNC      .LT. 0 ) GO TO 5500\r\nC\r\nC USE CPYSTR TO COPY \"C\" TO \"D\"\r\nC\r\n      BLK1( 1 ) = FILEC( 1 )\r\n      BLK2( 1 ) = FILED( 1 )\r\n      CALL GOPEN ( FILEC, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN ( FILED, ZR( IBUF2 ), WRTREW)\r\n      DO 5200 I = 1, NCC\r\n      CALL CPYSTR ( BLK1, BLK2, 0, 0 )\r\n5200  CONTINUE\r\n      CALL CLOSE ( FILED, CLSREW )\r\n      CALL CLOSE ( FILEC, CLSREW )\r\n      FILED( 2 ) = FILEC( 2 )\r\n      FILED( 3 ) = FILEC( 3 )\r\n      FILED( 4 ) = FILEC( 4 )\r\n      FILED( 5 ) = FILEC( 5 )\r\n      FILED( 6 ) = FILEC( 6 )\r\n      FILED( 7 ) = FILEC( 7 )\r\n      GO TO 7777\r\nC\r\nC USE INTPK/BLDPK TO COPY C TO D BECAUSE SIGNS CONFLICT\r\nC\r\n5500  CONTINUE\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      CALL GOPEN ( FILEC, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN ( FILED, ZR( IBUF2 ), WRTREW)\r\n      DO 5600 I = 1, NCC\r\n      CALL BLDPK ( NDTYPE, NDTYPE, FILED, BLK1, 1 )\r\n      CALL INTPK ( *5550 , FILEC , 0, NDTYPE*SIGNC, 0 )\r\n5510  CALL ZNTPKI\r\n      CALL BLDPKI ( A, IROWIN, FILED, BLK1 )\r\n      IF ( EOL .EQ. 0 ) GO TO 5510\r\n5550  CALL BLDPKN ( FILED, BLK1, FILED )\r\n5600  CONTINUE\r\n      FILED( 3 ) = FILEC( 3 )\r\n      FILED( 4 ) = FILEC( 4 )\r\n      FILED( 5 ) = FILEC( 5 )\r\n      CALL CLOSE ( FILEC, CLSREW )\r\n      CALL CLOSE ( FILED, CLSREW )\r\n      GO TO 7777\r\nC\r\nC CREATE NULL MATRIX BECAUSE \"C\" MATRIX IS NULL\r\nC\r\n5900  CONTINUE\r\n      NDR = 0\r\n      NDC = 0\r\n      CALL GOPEN ( FILED, ZR( IBUF1 ) , WRTREW )\r\n      NDC = NBC\r\n      NDR = NAR\r\n      IF ( NAR .EQ. NBC ) NDR = NAC\r\n      DD( 1 ) = 0.0D0\r\n      INCRP   = 1\r\n      IROW1P  = 1\r\n      IROWNP  = 1\r\n      TYPEI   = PREC1\r\n      IF ( TYPEI .EQ. 0 ) TYPEI = 1\r\n      TYPEP   = TYPEI\r\n      NUMC    = NDC\r\n      FILED( 2 ) = 0\r\n      FILED( 3 ) = NDR\r\n      FILED( 5 ) = IPREC\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      DO 5950 I = 1, NUMC\r\n      CALL PACK ( DD, FILED, FILED )\r\n5950  CONTINUE\r\n      CALL CLOSE ( FILED, CLSREW )\r\n      GO TO 7777\r\nC MATRICES ARE INCOMPATIBLE FOR MULTIPLICATION\r\n7001  CONTINUE\r\n      WRITE ( NOUT, 9001 ) UFM\r\n9001  FORMAT( A23, \r\n     &      ' MATRICES FOR MULTIPLICATION HAVE INCOMPATIBLE SIZES',/)\r\n      CALL FNAME ( FILEA, NAMEA )\r\n      CALL FNAME ( FILEB, NAMEB )\r\n      CALL FNAME ( FILEC, NAMEC )\r\n      CALL FNAME ( FILED, NAMED )\r\n      WRITE( NOUT,2001, IOSTAT=IERR )\r\n     &         NAMEA, NAR, NAC, NATERMS, DENSTYA, PRNTYP( NATYPE )\r\n     &,        NAMEB, NBR, NBC, NBTERMS, DENSTYB, PRNTYP( NBTYPE )\r\n      IF ( FILEC(1) .EQ. 0) GO TO 7002\r\n      WRITE( NOUT,2002, IOSTAT=IERR )\r\n     &         NAMEC, NCR, NCC, NCTERMS, DENSTYC, PRNTYP( NCTYPE )\r\n7002  CALL MESAGE ( -61, 0, 0 )\r\n7777  CONTINUE\r\n      MODULE( 3 ) = JEND\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      TYPEI  = ISAVE( 1 )\r\n      TYPEP  = ISAVE( 2 )\r\n      IROW1P = ISAVE( 3 )\r\n      IROWNP = ISAVE( 4 )\r\n      INCRP  = ISAVE( 5 )\r\n      TYPEU  = ISAVE( 6 )\r\n      IROWU  = ISAVE( 7 )\r\n      IROWNU = ISAVE( 8 )\r\n      INCRU  = ISAVE( 9 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma1.f",
    "content": "      SUBROUTINE MMA1 ( ZI, ZR, ZD, ZC, ZDC )\r\nC\r\nC     MMA1 PERFORMS THE MATRIX OPERATION USING METHODS 10 AND 11\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA1 IS DESIGNED AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"A\" AND \"C\".\r\nC       5.  FOR METHOD 10, CALL UNPACK TO READ COLUMNS OF MATRIX \"B\".\r\nC       6.  FOR METHOD 11, CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"B\"\r\nC           INTO MEMORY IN COMPACT FORM.\r\nC\r\nC\r\n      INTEGER           ZI(2)      ,MODULE(3),SYSBUF,SCRTCH\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      COMPLEX           ZC(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (KSYSTM(58),KSYS58)\r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\n      DATA    MODULE / 4HMMA1  , 4H     ,4H    /\r\n      DATA    KZERO  / 1H0   /   \r\n      DATA    KONE   / 1H1   /\r\n      DATA    JBEGN  / 4HBEGN/ , JEND  / 3HEND /\r\n      MODULE( 3 ) = JBEGN\r\n      IF ( NBSTOR .EQ. 1 ) MODULE( 2 ) = KZERO\r\n      IF ( NBSTOR .EQ. 2 ) MODULE( 2 ) = KONE\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      INCRU  = 1\r\n      TYPEI  = NDTYPE\r\n      TYPEP  = NDTYPE\r\n      SIGN   = SIGNAB\r\n      NWDD   = NWORDS( NDTYPE )\r\n      NWDB   = NWORDS( NBTYPE )\r\n      IRFILE = FILEB( 1 )\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IF ( NBSTOR .EQ. 1 .OR. KSYS58 .EQ. 10 ) IDX = 1 + NWDD*NBR  \r\n      IF ( NBSTOR .NE. 2 .AND. KSYS58 .NE. 11 ) GO TO 90\r\nC\r\nC REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE\r\nC\r\n      IDX = 1 + NWDD*NBR + NBR  \r\n      ITEST = MOD( IDX, 4 )\r\n      IF ( ITEST .EQ. 1 ) GO TO 90\r\n      IF ( ITEST .EQ. 0 ) IDX = IDX + 1\r\n      IF ( ITEST .EQ. 2 ) IDX = IDX + 3\r\n      IF ( ITEST .EQ. 3 ) IDX = IDX + 2\r\n90    CONTINUE\r\n      IDX2   = ( ( IDX+1 ) / 2 ) - 1  \r\n      IDX4   = ( IDX+1 ) / 4    \r\n      IAX    = IDX  + NWDD*NDR \r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = 0\r\n      IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 100\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      GO TO 200\r\n100   CONTINUE\r\n      IBUF4  = IBUF2 - SYSBUF\r\n200   CONTINUE\r\n      LASMEM = IBUF4 - 1\r\n      IPROW1 = 1\r\n      IPROWN = NDR\r\n      INCRP  = 1\r\n      CALL GOPEN  ( FILEA, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN  ( FILEB, ZR( IBUF2 ), RDREW )\r\nC\r\nC   DETERMINE HOW MANY COLUMNS OF A CAN BE READ INTO MEMORY IN ONE PASS\r\nC\r\n220   CONTINUE\r\n      IAVAIL = LASMEM - IAX + 1 \r\nC\r\nC   NCOLPP  -  NUMBER OF COLUMNS OF \"A\" THAT CAN BE READ IN ONE PASS\r\nC   NPASS   -  NUMBER OF PASSES NEEDED TO READ ENTIRE \"A\" MATRIX\r\nC      \r\n      NCOLPP = IAVAIL / ( 2+NWDD*NAR )\r\n      IF ( NCOLPP .GT. NAC ) NCOLPP = NAC\r\n      IF ( NCOLPP .LE. 0 )\r\n     &   CALL MESAGE ( -8, IAVAIL+NWDD*NAR, MODULE )\r\n      NPASS  = ( (NAC-1) / NCOLPP ) + 1\r\n      IF ( NPASS .EQ. 1 .OR. IBUF3 .NE. 0 ) GO TO 250\r\nC\r\nC MUST ALLOCATE TWO BUFFERS FOR MULTIPLE PASSES\r\nC\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      LASMEM = IBUF4 - 1\r\n      GO TO 220\r\n250   CONTINUE\r\n      DO 70000 M = 1, NPASS\r\n      IPASS = M\r\n      IBROW = ( M-1 ) * NCOLPP\r\n      IF ( M .EQ. NPASS ) GO TO 400\r\nC\r\nC MULTIPLE PASSES REQUIRED, DETERMINE PROPER FILE FOR OUTPUT SO THAT \r\nC REQUESTED OUTPUT FILE IS USED ON THE LAST PASS\r\nC      \r\n      ITEST = NPASS - M\r\n      ITEST = MOD( ITEST, 2 )\r\n      IF ( ITEST .NE. 0 ) GO TO 350\r\n      IFILE = SCRTCH\r\n      OFILE = FILED( 1 )\r\n      GO TO 380\r\n350   IFILE = FILED( 1 )\r\n      OFILE = SCRTCH\r\n380   CONTINUE\r\n      IF ( M .EQ. 1 ) GO TO 300\r\n      CALL REWIND( FILEB )\r\n      CALL SKPREC( FILEB, 1 )\r\n      CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW )\r\n      CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW)\r\n      GO TO 490\r\nC FIRST PASS, OPEN \"C\" FILE IF IT EXISTS\r\n300   CONTINUE\r\n      CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW)      \r\n310   IFILE = FILEC( 1 )\r\n      IF ( SIGNC .EQ. 0 ) IFILE = 0\r\n      IF ( IFILE .EQ. 0 ) GO TO 490 \r\n      CALL GOPEN  ( IFILE, ZR( IBUF3 ), RDREW )     \r\n      GO TO 490\r\nC LAST PASS, CREATE OUTPUT FILE\r\n400   CONTINUE\r\n      NCOLPP = NAC - NCOLPP*(NPASS-1)\r\n      OFILE = FILED( 1 )\r\n      IFILE = SCRTCH   \r\n      CALL REWIND( FILEB )\r\n      CALL SKPREC( FILEB, 1 )\r\n      CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW)\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IF ( M .EQ. 1 ) GO TO 310\r\n      CALL GOPEN  ( IFILE, ZR( IBUF3 ), RDREW )     \r\n490   CONTINUE\r\n      INDX   = IAX\r\n      TYPEU  = NDTYPE\r\n      DO 900 I = 1, NCOLPP\r\n      IUROW1 = -1\r\n      CALL UNPACK ( *500, FILEA, ZR( INDX+2 ) )\r\n      ZI( INDX   ) = IUROW1\r\n      ZI( INDX+1 ) = IUROWN\r\n      INDX    = INDX + 2 + NWDD*NAR   \r\n      GO TO 900\r\n500   CONTINUE\r\nC NULL COLUMN READ\r\n      ZI( INDX   ) = 0\r\n      ZI( INDX+1 ) = 0\r\n      INDX    = INDX + 2 + NWDD*NAR   \r\n900   CONTINUE\r\n      IF ( KSYS58 .EQ. 10 ) GO TO 950\r\n      IF ( KSYS58 .EQ. 11 ) GO TO 1000\r\n      IF ( NBSTOR .EQ. 2  ) GO TO 1000     \r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n950   CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA101( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA102( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA103( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA104( ZI, ZD, ZDC )\r\n      GO TO 60000\r\n1000  CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA111( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA112( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA113( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA114( ZI, ZD, ZDC )\r\n60000 CONTINUE\r\n      CALL CLOSE ( IFILE, CLSREW )\r\n      CALL CLOSE ( OFILE, CLSREW )\r\n70000 CONTINUE\r\n      CALL CLOSE ( FILEA, CLSREW )\r\n      CALL CLOSE ( FILEB, CLSREW )\r\n      MODULE( 3 ) = JEND\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma101.f",
    "content": "      SUBROUTINE MMA101 ( ZI, ZR )\r\nC\r\nC     MMA101 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND \r\nC       REAL SINGLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA10 USES METHOD 10 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE * SIGNAB \r\n      CALL UNPACK ( *930, FILEB, ZR( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZR( IDX ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZR( IDX+J-1 ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 1500\r\n      IBROWI = IBROWI - IROWB1 + 1\r\n      IF ( ZR( IBROWI ) .EQ. 0. ) GO TO 1500\r\n      INDXA  = IAX + 2*I + ( I-1 )*NAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 1500\r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA  = INDXA - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( IDX+K-1 ) = ZR( IDX+K-1 ) +  ZR( INDXA+K ) * ZR( IBROWI )\r\n1400  CONTINUE\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXA  = IAX + 2*I + ( I-1 )*NAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 15000   \r\n      IROWAN = ZI( INDXA-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 15000\r\n      INDXA  = INDXA - IROWA1\r\n      INDXB  = 1 - IROWB1\r\n      IDXX   = IDX + IDROW - 1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( IDXX+I ) = ZR( IDXX+I ) +  ZR( INDXA+K ) * ZR( INDXB+K )\r\n14000 CONTINUE\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZR( IDX ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma102.f",
    "content": "      SUBROUTINE MMA102 ( ZI,ZD )\r\nC\r\nC     MMA102 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND IN\r\nC       REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA10- USES METHOD 10 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE * SIGNAB \r\n      CALL UNPACK ( *930, FILEB, ZD( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZD( IDX2+J ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n2000  CONTINUE\r\n      DO 2500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 2500\r\n      IBROWI = IBROWI - IROWB1 + 1\r\n      IF ( ZD( IBROWI ) .EQ. 0.D0 ) GO TO 2500\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR\r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 2500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n      DO 2400 K = IROWA1, IROWAN\r\n      ZD( IDX2+K ) = ZD( IDX2+K ) +  ZD( INDXA+K ) * ZD( IBROWI )\r\n2400  CONTINUE\r\n2500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW  = IBROW\r\nC DOUBLE PRECISION\r\n20000 CONTINUE\r\n      DO 25000 I = 1, NCOLPP\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR\r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 25000\r\n      IROWAN = ZI( INDXA-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 25000\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n      IDX2X  = IDX2 + IDROW\r\n      INDXB  = 1 - IROWB1 \r\n      DO 24000 K = IROW1, IROWN\r\n      ZD( IDX2X+I ) = ZD( IDX2X+I ) +  ZD( INDXA+K ) * ZD( INDXB+K )\r\n24000 CONTINUE\r\n25000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZD( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n70000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma103.f",
    "content": "      SUBROUTINE MMA103 ( ZI, ZC )\r\nC\r\nC     MMA103 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND IN\r\nC       COMPLEX SINGLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA10 USES METHOD 10 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE * SIGNAB \r\n      CALL UNPACK ( *930, FILEB, ZC( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZC( IDX2+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n3000  CONTINUE\r\n      DO 3500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 3500\r\n      IBROWI = IBROWI - IROWB1 + 1\r\n      IF ( ZC( IBROWI ) .EQ. (0.0,0.0) ) GO TO 3500\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 3500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n      DO 3400 K = IROWA1, IROWAN\r\n      ZC( IDX2+K ) = ZC( IDX2+K ) +  ZC( INDXA+K ) * ZC( IBROWI )\r\n3400  CONTINUE\r\n3500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC COMPLEX SINGLE PRECISION\r\n30000 CONTINUE\r\n      DO 35000 I = 1, NCOLPP\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 35000\r\n      IROWAN = ZI( INDXA-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 35000\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n      IDX2X  = IDX2 + IDROW\r\n      INDXB  = 1 - IROWB1\r\n      DO 34000 K = IROW1, IROWN\r\n      ZC( IDX2X+I ) = ZC( IDX2X+I ) +  ZC( INDXA+K ) * ZC( INDXB+K )\r\n34000 CONTINUE\r\n35000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZC( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma104.f",
    "content": "      SUBROUTINE MMA104 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA10 PERFORMS THE MATRIX OPERATION USING METHOD 10 AND\r\nC       COMPLEX DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA104 USES METHOD 10 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE * SIGNAB \r\n      CALL UNPACK ( *930, FILEB, ZDC( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZDC( IDX4+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMLEX DOUBLE PRECISION\r\n4000  CONTINUE\r\n      DO 4500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      IF ( IBROWI .LT. IROWB1 .OR. IBROWI .GT. IROWBN ) GO TO 4500\r\n      IBROW2 = 2*( IBROW+I-IROWB1 ) + 1 \r\n      IF (   ZD( IBROW2  ) .EQ. 0.D0 \r\n     & .AND. ZD( IBROW2+1) .EQ. 0.D0 ) GO TO 4500\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 4500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) - 2  \r\n      DO 4400 K = IROWA1, IROWAN\r\n      INDXA  = INDXA + 2\r\n      ZDC( IDX4+K ) = ZDC( IDX4+K ) +  \r\n     &   DCMPLX( ZD(INDXA ), ZD(INDXA +1) ) *\r\n     &   DCMPLX( ZD(IBROW2), ZD(IBROW2+1) )\r\n4400  CONTINUE\r\n4500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC COMPLEX DOUBLE PRECISION\r\n40000 CONTINUE\r\n      DO 45000 I = 1, NCOLPP\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 45000\r\n      IROWAN = ZI( INDXA-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 45000\r\n      INDXA  = ( ( INDXA+1 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 \r\n      IDX4X  = IDX4 + IDROW\r\n      INDXB  = 2*( IROW1 - IROWB1 )\r\n      KCNT   = ( IROWN-IROW1 ) * 2  + 1\r\n      DO 44000 K = 1, KCNT, 2\r\n      ZDC( IDX4X+I ) = ZDC( IDX4X+I ) +  \r\n     &   DCMPLX( ZD(INDXA+K ), ZD(INDXA+K+1) ) *\r\n     &   DCMPLX( ZD(INDXB+K ), ZD(INDXB+K+1) )\r\n44000 CONTINUE\r\n45000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma111.f",
    "content": "      SUBROUTINE MMA111 ( ZI, ZR )\r\nC\r\nC     MMA111 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA111 USES METHOD 11 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      DO 60000 II = 1, NBC\r\nC\r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC1 ( ZI, ZR )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZR( IDX ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZR( IDX+J-1 ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDX   = 1\r\nC\r\nC CHECK FOR NULL COLUMN ON \"B\"\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      INDXA  = IAX + 2*I + ( I-1 )*NAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 1500\r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA  = INDXA - IROWA1\r\n1100  CONTINUE\r\n      IF ( IBROWI .LT. IROWB1 ) GO TO 1500\r\n      IF ( IBROWI .LE. IROWBN ) GO TO 1200\r\n      INDX   = INDX + 2 + IROWS\r\n      IF ( INDX .GT. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 1100\r\n1200  CONTINUE\r\n      INDXV  = IBROWI - IROWB1 + INDX + 2\r\n      IF ( ZR( INDXV ) .EQ. 0. ) GO TO 1500\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( IDX+K-1 ) = ZR( IDX+K-1 ) +  ZR( INDXA+K ) * ZR( INDXV )\r\n1400  CONTINUE\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      INDX   = 1\r\n      INDXA  = IAX + 2*I + ( I-1 )*NAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 15000   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXAV = INDXA - IROWA1  \r\n11000 IF ( INDX .GE. LASIND ) GO TO 15000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXV  = INDX+2\r\n      INDX   = INDX + 2 + IROWS\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 11000\r\n      INDXB  = INDXV - IROWB1\r\n      IDXX   = IDX + IDROW - 1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( IDXX+I ) = ZR( IDXX+I ) +  ZR( INDXAV+K ) * ZR( INDXB+K )\r\n14000 CONTINUE\r\n      GO TO 11000\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZR( IDX ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma112.f",
    "content": "      SUBROUTINE MMA112 ( ZI, ZD )\r\nC\r\nC     MMA112 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA112 USES METHOD 11 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      DO 60000 II = 1, NBC\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC2 ( ZI, ZD )\r\nC      \r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZD( IDX2+J ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDX   = 1\r\nC\r\nC CHECK IF \"B\" MATRIX COLUMN IS NULL\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n2000  CONTINUE\r\n      DO 2500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR         \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 2500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n2100  CONTINUE\r\n      IF ( IBROWI .LT. IROWB1 ) GO TO 2500\r\n      IF ( IBROWI .LE. IROWBN ) GO TO 2200\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 2100\r\n2200  CONTINUE\r\n      INDXV  = IBROWI - IROWB1 + (  INDX + 3 ) / 2\r\n      IF ( ZD( INDXV ) .EQ. 0.D0 ) GO TO 2500\r\n      DO 2400 K = IROWA1, IROWAN\r\n      ZD( IDX2+K ) = ZD( IDX2+K ) +  ZD( INDXAV+K ) * ZD( INDXV )\r\n2400  CONTINUE\r\n2500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC DOUBLE PRECISION\r\n20000 CONTINUE\r\n      DO 25000 I = 1, NCOLPP\r\n      INDX   = 1\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR\r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 25000\r\n      IROWAN = ZI( INDXA-1 )    \r\n      INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1  \r\n21000 IF ( INDX .GE. LASIND ) GO TO 25000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXV  = ( INDX+3 ) / 2\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 21000\r\n      IDX2X  = IDX2  + IDROW\r\n      INDXB  = INDXV - IROWB1 \r\n      DO 24000 K = IROW1, IROWN\r\n      ZD( IDX2X+I ) = ZD( IDX2X+I ) +  ZD( INDXAV+K ) * ZD( INDXB+K )\r\n24000 CONTINUE\r\n      GO TO 21000\r\n25000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZD( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma113.f",
    "content": "      SUBROUTINE MMA113( ZI, ZC )\r\nC\r\nC     MMA113 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA113 USES METHOD 11 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      DO 60000 II = 1, NBC\r\nC\r\nC READ COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC3 ( ZI, ZC )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN AS ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZC( IDX2+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDX   = 1\r\nC\r\nC CHECK FOR NULL COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n3000  CONTINUE\r\n      DO 3500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 3500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1\r\n3100  CONTINUE\r\n      IF ( IBROWI .LT. IROWB1 ) GO TO 3500\r\n      IF ( IBROWI .LE. IROWBN ) GO TO 3200\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 3100\r\n3200  CONTINUE\r\n      INDXV  = IBROWI - IROWB1 + ( INDX + 3 ) / 2\r\n      IF ( ZC( INDXV ) .EQ. (0.0,0.0) ) GO TO 3500\r\n      DO 3400 K = IROWA1, IROWAN\r\n      ZC( IDX2+K ) = ZC( IDX2+K ) +  ZC( INDXAV+K ) * ZC( INDXV )\r\n3400  CONTINUE\r\n3500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC COMPLEX SINGLE PRECISION\r\n30000 CONTINUE\r\n      DO 35000 I = 1, NCOLPP\r\n      INDX   = 1\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 35000\r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXAV = ( ( INDXA+1 ) / 2 ) - IROWA1    \r\n31000 IF ( INDX .GE. LASIND ) GO TO 35000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXV  = ( INDX+3 ) / 2\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 31000\r\n      IDX2X  = IDX2 + IDROW\r\n      INDXB  = INDXV - IROWB1\r\n      DO 34000 K = IROW1, IROWN\r\n      ZC( IDX2X+I ) = ZC( IDX2X+I ) +  ZC( INDXAV+K ) * ZC( INDXB+K )\r\n34000 CONTINUE\r\n      GO TO 31000\r\n35000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZC( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma114.f",
    "content": "      SUBROUTINE MMA114 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA114 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA114 USES METHOD 10 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"A\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      DO 60000 II = 1, NBC\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC4 ( ZI, ZD )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZDC( IDX4+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\n      NWDDNAR = NWDD*NAR\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1  = ZI( 1 )\r\n      IROWS   = ZI( 2 )\r\n      IROWBN  = IROWB1 + IROWS - 1\r\n      INDX    = 1\r\nC      \r\nC CHECK FOR NULL COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMLEX DOUBLE PRECISION\r\n4000  CONTINUE\r\n      DO 4500 I = 1, NCOLPP\r\n      IBROWI = IBROW+I\r\n      INDXA  = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 4500   \r\n      IROWAN = ZI( INDXA-1 )\r\n      INDXA1 = ( ( INDXA+1 ) / 2 ) - 2  \r\n4100  CONTINUE\r\n      IF ( IBROWI .LT. IROWB1 ) GO TO 4500\r\n      IF ( IBROWI .LE. IROWBN ) GO TO 4200\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 4100\r\n4200  CONTINUE\r\n      INDXV  =  2*( IBROWI - IROWB1 ) + ( ( INDX+3 ) / 2 )\r\n      IF (   ZD( INDXV  ) .EQ. 0.D0 \r\n     & .AND. ZD( INDXV+1) .EQ. 0.D0 ) GO TO 4500\r\n      INDXAV = INDXA1\r\n      DO 4400 K = IROWA1, IROWAN\r\n      INDXAV = INDXAV + 2\r\n      ZDC( IDX4+K ) = ZDC( IDX4+K ) +  \r\n     &   DCMPLX( ZD(INDXAV ), ZD(INDXAV +1) ) *\r\n     &   DCMPLX( ZD(INDXV  ), ZD(INDXV+1  ) )\r\n4400  CONTINUE\r\n4500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\nC COMLEX DOUBLE PRECISION\r\n40000 CONTINUE\r\n      DO 45000 I = 1, NCOLPP\r\n      INDX   = 1\r\n      INDXA1 = IAX + 2*I + ( I-1 )*NWDDNAR \r\n      IROWA1 = ZI( INDXA1-2 )\r\n      IF ( IROWA1 .EQ. 0 ) GO TO 45000\r\n      IROWAN = ZI( INDXA1-1 )\r\n41000 IF ( INDX .GE. LASIND ) GO TO 45000\r\n      IROWB1 = ZI( INDX )\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXV  = ( INDX+3 ) / 2\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 41000\r\n      INDXA  = ( ( INDXA1+1 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1 \r\n      IDX4X  = IDX4 + IDROW\r\n      INDXB  = INDXV + 2*( IROW1 - IROWB1 ) - 1\r\n      KCNT   = ( IROWN-IROW1 ) * 2  + 1\r\n      DO 44000 K = 1, KCNT, 2\r\n      ZDC( IDX4X+I ) = ZDC( IDX4X+I ) +  \r\n     &   DCMPLX( ZD(INDXA+K ), ZD(INDXA+K+1) ) *\r\n     &   DCMPLX( ZD(INDXB+K ), ZD(INDXB+K+1) )\r\n44000 CONTINUE\r\n      GO TO 41000\r\n45000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma2.f",
    "content": "      SUBROUTINE MMA2 ( ZI, ZR, ZD, ZC, ZDC )\r\nC\r\nC     MMA2 PERFORMS THE MATRIX OPERATION USING METHODS 20 AND 21 \r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA2 IS DESIGNED AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC       5.  FOR METHOD 20, CALL UNPACK TO READ COLUMNS OF MATRIX \"A\".\r\nC       6.  FOR METHOD 21, CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"A\"\r\nC           INTO MEMORY IN COMPACT FORM.\r\nC\r\n      INTEGER           ZI(2)      ,MODULE(3),SYSBUF,SCRTCH\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      COMPLEX           ZC(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n     1,                 (KSYSTM(58),KSYS58)\r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\n      DATA    MODULE / 4HMMA2  , 4H     ,4H    /\r\n      DATA    KZERO  / 1H0    /\r\n      DATA    KONE   / 1H1    /\r\n      DATA    JBEGN  / 4HBEGN/ , JEND  / 3HEND /\r\n      IF ( NASTOR .EQ. 1 .OR. KSYS58 .EQ. 20 ) MODULE( 2 ) = KZERO\r\n      IF ( NASTOR .EQ. 2 .OR. KSYS58 .EQ. 21 ) MODULE( 2 ) = KONE\r\n      MODULE( 3 ) = JBEGN\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      INCRU  = 1\r\n      TYPEI  = NDTYPE\r\n      TYPEP  = NDTYPE\r\n      NWDD   = NWORDS( NDTYPE )\r\n      IRFILE = FILEA( 1 )\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IDX    = 1 + NWDD*NAR  \r\n      IF ( NASTOR .NE. 2 .AND. KSYS58 .NE. 21 ) GO TO 90\r\nC\r\nC REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE\r\nC\r\n      IDX = 1 + NWDD*NAR + NAR\r\n      ITEST  = MOD ( IDX, 4 )\r\n      IF ( ITEST .EQ. 1 ) GO TO 90\r\n      IF ( ITEST .EQ. 0 ) IDX = IDX + 1\r\n      IF ( ITEST .EQ. 2 ) IDX = IDX + 3\r\n      IF ( ITEST .EQ. 3 ) IDX = IDX + 2\r\n90    CONTINUE\r\n      IDX2   = ( ( IDX+1 ) / 2 ) - 1\r\n      IDX4   = ( IDX+1 ) / 4\r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IF ( FILEC( 1 ) .EQ. 0 ) GO TO 100\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      GO TO 200\r\n100   CONTINUE\r\n      IBUF4  = IBUF2 - SYSBUF\r\n200   CONTINUE\r\n      LASMEM = IBUF4 - 1\r\n      IPROW1 = 1\r\n      IPROWN = NDR\r\n      INCRP  = 1\r\n      SIGN   = 1.0\r\n      CALL GOPEN  ( FILEA, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN  ( FILEB, ZR( IBUF2 ), RDREW )   \r\n      IF ( FILEC( 1 ) .NE. 0 ) CALL GOPEN  ( FILEC, ZR( IBUF3 ), RDREW )   \r\n      CALL GOPEN  ( FILED, ZR( IBUF4 ), WRTREW )   \r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\nC\r\nC   DETERMINE HOW MANY COLUMNS OF \"B\" CAN BE READ INTO MEMORY AND HOW\r\nC   MANY COLUMNS OF \"D\" CAN BE HELD IN MEMORY FOR ONE PASS\r\nC\r\n      IAVAIL = LASMEM - IDX + 1 \r\nC\r\nC   NCOLPP  -  NUMBER OF COLUMNS OF \"B\" THAT CAN BE READ IN ONE PASS\r\nC   NPASS   -  NUMBER OF PASSES NEEDED TO READ ENTIRE \"B\" MATRIX\r\nC      \r\n      NWDDNDR = NWDD * NDR\r\n      NWDDNBR = NWDD * NBR\r\n      NCOLPP  = IAVAIL / ( 2+ NWDDNBR + NWDDNDR )\r\n      IF ( NCOLPP .LE. 0 ) \r\n     &     CALL MESAGE ( -8, IAVAIL+NWDDNBR+NWDDNDR, MODULE)\r\n      IF ( NCOLPP .GT. NBC ) NCOLPP = NBC\r\n      NPASS   = ( (NBC-1) / NCOLPP ) + 1\r\n      IBX     = IDX + NCOLPP*NWDDNDR\r\n      DO 70000 M = 1, NPASS\r\n      IPASS   = M\r\n      IF ( M .EQ. NPASS ) NCOLPP = NBC - ( NCOLPP*(NPASS-1) )\r\n      CALL REWIND ( FILEA )\r\n      CALL SKPREC ( FILEA, 1 )\r\n      INDXB  = IBX\r\n      INDXD  = IDX\r\n      TYPEU  = NDTYPE * SIGNAB  \r\n      DO 600 I = 1, NCOLPP\r\n      IUROW1 = -1\r\n      CALL UNPACK ( *500, FILEB, ZR( INDXB+2 ) )\r\n      ZI( INDXB   ) = IUROW1\r\n      ZI( INDXB+1 ) = IUROWN\r\n      GO TO 550\r\n500   CONTINUE\r\nC NULL COLUMN READ ON \"B\"\r\n      ZI( INDXB   ) = 0\r\n      ZI( INDXB+1 ) = 0\r\n550   CONTINUE\r\n      INDXB   = INDXB + NWDDNBR + 2\r\n600   CONTINUE\r\n      IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 800\r\n      TYPEU   = NDTYPE * SIGNC  \r\n      IUROW1 = 1\r\n      IUROWN = NCR\r\n      DO 700 I = 1, NCOLPP\r\n      CALL UNPACK ( *650, FILEC, ZR( INDXD ) )\r\n      GO TO 680\r\nC\r\nC NULL COLUMN READ ON \"C\" \r\nC\r\n650   CONTINUE\r\n      LEN     = INDXD + NWDDNDR - 1\r\n      DO 620 K = INDXD, LEN\r\n      ZR( K ) = 0.0\r\n620   CONTINUE\r\n680   CONTINUE\r\n      INDXD   = INDXD + NWDDNDR  \r\n700   CONTINUE\r\n      GO TO 900\r\nC\r\nC \"C\" MATRIX IS NULL OR \"SIGNC\" IS ZERO\r\nC\r\n800   CONTINUE\r\n      LEN = IDX + NCOLPP*NWDDNDR - 1\r\n      DO 850 K = IDX, LEN\r\n      ZR( K ) = 0.\r\n850   CONTINUE\r\n900   CONTINUE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      IF ( KSYS58 .EQ. 21 ) GO TO 1000\r\n      IF ( KSYS58 .EQ. 20 ) GO TO 950\r\n      IF ( NASTOR .EQ. 2  ) GO TO 1000\r\n950   CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA201 ( ZI, ZR )        \r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA202 ( ZI, ZD )   \r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA203 ( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA204 ( ZI, ZD, ZDC )\r\n      GO TO 70000\r\n1000  CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA211 ( ZI, ZR )        \r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA212 ( ZI, ZD )   \r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA213 ( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA214 ( ZI, ZD, ZDC )\r\n70000 CONTINUE\r\n      CALL CLOSE ( FILEA, CLSREW )\r\n      CALL CLOSE ( FILEB, CLSREW )\r\n      CALL CLOSE ( FILEC, CLSREW )\r\n      CALL CLOSE ( FILED, CLSREW )\r\n      MODULE( 3 ) = JEND\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma201.f",
    "content": "      SUBROUTINE MMA201 ( ZI, ZR )\r\nC\r\nC     MMA201 PERFORMS THE MATRIX OPERATION USING METHOD 20 \r\nC       IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA201 USES METHOD 20 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZR( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXB  =   IBX + 2*I + ( I-1 )*NBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 1500\r\n      INDXB  = INDXB + II - IROWB1\r\n      IF ( ZR( INDXB ) .EQ. 0.0 ) GO TO 1500\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1    \r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXB )\r\n1400  CONTINUE\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXB  =   IBX + 2*I + ( I-1 )*NBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 15000\r\n      IROWBN = ZI( INDXB-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 15000\r\n      INDXB  = INDXB - IROWB1 \r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1 \r\n      INDXD  = INDXD + II\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXB+K )\r\n14000 CONTINUE\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX + ( K-1 ) * NWDDNDR\r\n      CALL PACK ( ZR( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma202.f",
    "content": "      SUBROUTINE MMA202 ( ZI, ZD )\r\nC\r\nC     MMA202 PERFORMS THE MATRIX OPERATION USING METHOD 20 IN\r\nC       REAL DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA202 USES METHOD 20 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZD( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1      \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC DOUBLE PRECISION\r\n2000  CONTINUE\r\n      DO 2500 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR\r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 2500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + II - IROWB1 \r\n      IF ( ZD( INDXB ) .EQ. 0.0D0 ) GO TO 2500\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1\r\n      DO 2400 K = IROWA1, IROWAN\r\n      ZD( INDXD+K ) = ZD( INDXD+K ) +  ZD( INDXA+K ) * ZD( INDXB )\r\n2400  CONTINUE\r\n2500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n20000 CONTINUE\r\n      DO 25000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR\r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 25000\r\n      IROWBN = ZI( INDXB-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 25000\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) - IROWB1\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 + II\r\n      DO 24000 K = IROW1, IROWN\r\n      ZD( INDXD ) = ZD( INDXD ) +  ZD( INDXA+K ) * ZD( INDXB+K )\r\n24000 CONTINUE\r\n25000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR\r\n      CALL PACK ( ZD( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma203.f",
    "content": "      SUBROUTINE MMA203 ( ZI, ZC )\r\nC\r\nC     MMA203 PERFORMS THE MATRIX OPERATION USING METHOD 20 \r\nC       IN COMPLEX SINGLE PRECISION.\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA203 USES METHOD 20 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZC( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n3000  CONTINUE\r\n      DO 3500 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 3500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + II - IROWB1 \r\n      IF ( ZC( INDXB ) .EQ. ( 0.0, 0.0 ) ) GO TO 3500\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 \r\n      DO 3400 K = IROWA1, IROWAN\r\n      ZC( INDXD+K ) = ZC( INDXD+K ) +  ZC( INDXA+K ) * ZC( INDXB )\r\n3400  CONTINUE\r\n3500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX SINGLE PRECISION\r\n30000 CONTINUE\r\n      DO 35000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF( IROWB1 .EQ. 0 ) GO TO 35000\r\n      IROWBN = ZI( INDXB-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 35000\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) - IROWB1\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 + II\r\n      DO 34000 K = IROW1, IROWN\r\n      ZC( INDXD ) = ZC( INDXD ) +  ZC( INDXA+K ) * ZC( INDXB+K )\r\n34000 CONTINUE\r\n35000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR\r\n      CALL PACK ( ZC( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma204.f",
    "content": "      SUBROUTINE MMA204 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA204 PERFORMS THE MATRIX OPERATION USING METHOD 20 \r\nC       IN COMPLEX DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA204 USES METHOD 20 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZD( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMLEX DOUBLE PRECISION\r\n4000  CONTINUE\r\n      DO 4500 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 4500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + 2*( II - IROWB1 ) \r\n      IF ( ZD( INDXB ) .EQ. 0.0D0 .AND. ZD( INDXB+1 ) .EQ. 0.0D0 ) \r\n     &   GO TO 4500\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 4 ) \r\n      DO 4400 K = IROWA1, IROWAN\r\n      ZDC( INDXD+K ) = ZDC( INDXD+K ) +  \r\n     &   ZDC( INDXA+K ) * DCMPLX( ZD(INDXB), ZD(INDXB+1 ) )\r\n4400  CONTINUE\r\n4500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMLEX DOUBLE PRECISION\r\n40000 CONTINUE\r\n      DO 45000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 45000\r\n      IROWBN = ZI( INDXB-1 )\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 45000\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + 2*( IROW1 - IROWB1 )  \r\n      INDXD  = IDX       + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 4 ) + II\r\n      DO 44000 K = IROW1, IROWN\r\n      ZDC( INDXD ) = ZDC( INDXD ) +  \r\n     &   ZDC( INDXA+K ) * DCMPLX( ZD(INDXB), ZD(INDXB+1 ) )\r\n      INDXB = INDXB + 2  \r\n44000 CONTINUE\r\n45000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX4 + ( K-1 ) * NDR\r\n      CALL PACK ( ZDC( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma211.f",
    "content": "      SUBROUTINE MMA211 ( ZI, ZR )\r\nC\r\nC     MMA211 PERFORMS THE MATRIX OPERATION USING METHOD 21 \r\nC       IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA211 USES METHOD 21 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE GETSTR TO READ MATRIX \"A\", (SEE SUBROUTINES MMARC1,2,3,4).\r\nC       5.  USE UNPACK TO READ MATRIX \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC\r\nC READ A COLUMN OF \"A\" MATRIX\r\nC\r\n      CALL MMARC1 ( ZI, ZR )\r\nC\r\nC CHECK FOR NULL COLUMN ON \"A\"\r\nC\r\n      IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXB  = IBX + 2*I + ( I-1 )*NBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 1500\r\n      INDXB  = INDXB + II - IROWB1\r\n      IF ( ZR( INDXB ) .EQ. 0.0 ) GO TO 1500\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1    \r\n1100  CONTINUE      \r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      INDXA  = INDX + 2 - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXB )\r\n1400  CONTINUE\r\n      INDX = INDX + 2 + IROWS\r\n      IF ( INDX .GE. LASIND ) GO TO 1500\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 1100\r\n1500  CONTINUE     \r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXB  =   IBX + 2*I + ( I-1 )*NBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 15000\r\n      IROWBN = ZI( INDXB-1 )\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1 + II\r\n      INDXB  = INDXB - IROWB1 \r\n11000 CONTINUE\r\n      IROWS  = ZI( INDX + 1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXA  = INDX + 2 - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXB+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDX = INDX + 2 + IROWS\r\n      IF ( INDX .GE. LASIND ) GO TO 15000\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 11000\r\n15000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX + ( K-1 ) * NWDDNDR\r\n      CALL PACK ( ZR( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma212.f",
    "content": "      SUBROUTINE MMA212 ( ZI, ZD )\r\nC\r\nC     MMA212 PERFORMS THE MATRIX OPERATION USING METHOD 21 IN\r\nC       REAL DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA212 USES METHOD 21 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE GETSTR TO READ MATRIX \"A\", (SEE SUBROUTINES MMARC1,2,3,4)\r\nC       5.  USE UNPACK TO READ MATRIX \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC\r\nC READ A COLUMN FROM \"A\" MATRIX\r\nC\r\n      CALL MMARC2 ( ZI, ZD )\r\nC\r\nC CHECK FOR NULL COLUMN ON \"A\"\r\nC\r\n      IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC DOUBLE PRECISION\r\n2000  CONTINUE\r\n      DO 2500 I = 1, NCOLPP\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR\r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 2500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + II - IROWB1 \r\n      IF ( ZD( INDXB ) .EQ. 0.0D0 ) GO TO 2500\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1\r\n2100  CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      INDXA  = ( (INDX+1)/2 ) + 1 - IROWA1\r\n      DO 2400 K = IROWA1, IROWAN\r\n      ZD( INDXD+K ) = ZD( INDXD+K ) +  ZD( INDXA+K ) * ZD( INDXB )\r\n2400  CONTINUE\r\n      INDX = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 2500\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 2100\r\n2500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n20000 CONTINUE\r\n      DO 25000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR\r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 25000\r\n      IROWBN = ZI( INDXB-1 )\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) - IROWB1 \r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 + II\r\n21000 CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 24100\r\n      INDXA  = ( (INDX+1)/2 ) + 1 - IROWA1\r\n      DO 24000 K = IROW1, IROWN\r\n      ZD( INDXD ) = ZD( INDXD ) +  ZD( INDXA+K ) * ZD( INDXB+K )\r\n24000 CONTINUE\r\n24100 CONTINUE\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 25000\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 21000\r\n25000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR\r\n      CALL PACK ( ZD( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma213.f",
    "content": "      SUBROUTINE MMA213 ( ZI, ZC )\r\nC\r\nC     MMA211 PERFORMS THE MATRIX OPERATION USING METHOD 21 \r\nC       IN COMPLEX SINGLE PRECISION.\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA213 USES METHOD 21 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC\r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC3 ( ZI, ZC )\r\nC\r\nC CHECK IF \"A\" COLUMN IS NULL\r\nC\r\n      IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n3000  CONTINUE\r\n      DO 3500 I = 1, NCOLPP\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 3500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + II - IROWB1 \r\n      IF ( ZC( INDXB ) .EQ. (0.0, 0.0) ) GO TO 3500\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 \r\n3100  CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      INDXA  = ( (INDX+1)/2 ) + 1 - IROWA1\r\n      DO 3400 K = IROWA1, IROWAN\r\n      ZC( INDXD+K ) = ZC( INDXD+K ) +  ZC( INDXA+K ) * ZC( INDXB )\r\n3400  CONTINUE\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 3500\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 3100\r\n3500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX SINGLE PRECISION\r\n30000 CONTINUE\r\n      DO 35000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF( IROWB1 .EQ. 0 ) GO TO 35000\r\n      IROWBN = ZI( INDXB-1 )\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) - IROWB1\r\n      INDXA  = 1 - IROWA1\r\n      INDXD  = IDX + ( I-1 )*NWDDNDR\r\n      INDXD  = ( ( INDXD+1 ) / 2 ) - 1 + II\r\n31000 CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 34100\r\n      INDXA  = ( (INDX+1)/2 ) + 1 - IROWA1\r\n      DO 34000 K = IROW1, IROWN\r\n      ZC( INDXD ) = ZC( INDXD ) +  ZC( INDXA+K ) * ZC( INDXB+K )\r\n34000 CONTINUE\r\n34100 CONTINUE\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 35000\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 31000\r\n35000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR\r\n      CALL PACK ( ZC( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma214.f",
    "content": "      SUBROUTINE MMA214 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA214 PERFORMS THE MATRIX OPERATION USING METHOD 21 \r\nC       IN COMPLEX DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA214 USES METHOD 21 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  UNPACK AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           LEAVING SPACE FOR A COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"B\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC\r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC4 ( ZI, ZD )\r\nC\r\nC CHECK IF COLUMN FROM \"A\" IS NULL\r\nC\r\n      IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMLEX DOUBLE PRECISION\r\n4000  CONTINUE\r\n      DO 4500 I = 1, NCOLPP\r\n      INDX   = 1\r\n      IROWA1 = ZI ( INDX )\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IROWBN = ZI( INDXB-1 )\r\n      IF ( II .LT. IROWB1 .OR. II .GT. IROWBN ) GO TO 4500\r\n      INDXB  = ( ( INDXB+1 ) / 2 ) + 2*( II - IROWB1 ) \r\n      IF ( ZD( INDXB ) .EQ. 0.0D0 .AND. ZD( INDXB+1 ) .EQ. 0.0D0 ) \r\n     &    GO TO 4500\r\n      INDXD  = IDX4 + ( I-1 )*NDR\r\n4100  CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      INDXA  = (INDX+3)/2 \r\n      DO 4400 K = IROWA1, IROWAN\r\n      ZDC( INDXD+K ) = ZDC( INDXD+K ) +  \r\n     &   DCMPLX( ZD( INDXA ), ZD( INDXA+1 ) ) * \r\n     &   DCMPLX( ZD( INDXB ), ZD( INDXB+1 ) )\r\n      INDXA  = INDXA + 2\r\n4400  CONTINUE\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 4500\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 4100\r\n4500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMLEX DOUBLE PRECISION\r\n40000 CONTINUE\r\n      DO 45000 I = 1, NCOLPP\r\n      INDXB  = IBX + 2*I + ( I-1 )*NWDDNBR \r\n      IROWB1 = ZI( INDXB-2 )\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 45000\r\n      IROWBN = ZI( INDXB-1 )\r\n      INDX   = 1\r\n      IROWA1 = ZI( INDX )\r\n      INDXD  = IDX4 + ( I-1 )*NDR + II\r\n41000 CONTINUE\r\n      IROWS  = ZI( INDX+1 )\r\n      IROWAN = IROWA1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 44100\r\n      INDXBV = ( ( ( INDXB+1 ) / 2 ) + 2*( IROW1 - IROWB1 ) ) - 1\r\n      INDXA  = ( ( ( INDX+3  ) / 2 ) + 2*( IROW1 - IROWA1 ) ) - 1\r\n      KCNT   = ( IROWN - IROW1 ) * 2 + 1\r\n      DO 44000 K = 1, KCNT, 2 \r\n      ZDC( INDXD ) = ZDC( INDXD ) +  \r\n     &   DCMPLX( ZD( INDXA +K ), ZD( INDXA +K+1 ) ) *\r\n     &   DCMPLX( ZD( INDXBV+K ), ZD( INDXBV+K+1 ) )\r\n44000 CONTINUE\r\n44100 CONTINUE\r\n      INDX   = INDX + 2 + IROWS*NWDD\r\n      IF ( INDX .GE. LASIND ) GO TO 45000\r\n      IROWA1 = ZI( INDX )\r\n      GO TO 41000\r\n45000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX4 + ( K-1 ) * NDR\r\n      CALL PACK ( ZDC( INDX+1 ), FILED, FILED )\r\n65000 CONTINUE\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma3.f",
    "content": "      SUBROUTINE MMA3 ( ZI, ZR, ZD, ZC, ZDC )\r\nC\r\nC     MMA3 PERFORMS THE MATRIX OPERATION USING METHODS 30, 31 AND 32\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA3 IS DESIGNED AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  PACK (IN COMPACT FORM) AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC           SEE SUBROUTINES MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  FOR METHODS 30 AND 31, CALL UNPACK TO READ MATRIX \"C\".\r\nC       5.  FOR METHOD 30, CALL UNPACK TO READ COLUMNS OF MATRIX \"B\".\r\nC       6.  FOR METHOD 31, CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" INTO\r\nC           MEMORY IN COMPACT FORM.\r\nC       7.  FOR METHOD 32, CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" AND\r\nC           \"C\" INTO MEMORY IN COMPACT FORM.\r\nC       8.  FOR METHODS 30 AND 31, CALL PACK TO WRITE \"D\" MATRIX.\r\nC       9.  FOR METHOD 32, CALL BLDPK TO WRITE \"D\" MATRIX.\r\nC\r\n      INTEGER           ZI(2)      ,MODULE(3),SYSBUF,SCRTCH\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      COMPLEX           ZC(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (KSYSTM(58),KSYS58)\r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\n      DATA    MODULE / 4HMMA3  , 4H     ,4H    /\r\n      DATA    KZERO  / 1H0   /   \r\n      DATA    KONE   / 1H1   /\r\n      DATA    KTWO   / 1H2   /\r\n      DATA    JBEGN  / 4HBEGN/ , JEND  / 3HEND /\r\n      MODULE( 3 ) = JBEGN\r\n      IF ( METHOD .EQ. 30 ) MODULE( 2 ) = KZERO\r\n      IF ( METHOD .EQ. 31 ) MODULE( 2 ) = KONE     \r\n      IF ( METHOD .EQ. 32 ) MODULE( 2 ) = KTWO   \r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      INCRU  = 1\r\n      TYPEI  = NDTYPE\r\n      TYPEP  = NDTYPE\r\n      NWDD   = NWORDS( NDTYPE )\r\n      NWDB   = NWORDS( NBTYPE )\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IDX = 1 + NWDD*NBR  \r\n      IF ( METHOD .NE. 31 .AND. METHOD .NE. 32) GO TO 90\r\nC\r\nC REDEFINE IDX AND INSURE A QUAD WORD BOUNDARY FOR COMPLEX DOUBLE\r\nC\r\n      IDX = 1 + NWDD*NBR + NBR  \r\n      ITEST = MOD( IDX, 4 )\r\n      IF ( ITEST .EQ. 1 ) GO TO 90\r\n      IF ( ITEST .EQ. 0 ) IDX = IDX + 1\r\n      IF ( ITEST .EQ. 2 ) IDX = IDX + 3\r\n      IF ( ITEST .EQ. 3 ) IDX = IDX + 2\r\n90    CONTINUE\r\n      IDX2   = ( ( IDX+1 ) / 2 ) - 1  \r\n      IDX4   = ( IDX+1 ) / 4    \r\n      IAX    = IDX  + NWDD*NDR     \r\n      IF ( METHOD .NE. 32 ) GO TO 96\r\nC\r\nC FOR METHOD 32, INSURE IAX IS ON QUAD WORD BOUNDARY FOR COMPLEX DOUBLE\r\nC \r\n      IAX    = IDX  + NWDD*NDR + NDR\r\n      ITEST = MOD( IAX, 4 )\r\n      IF ( ITEST .EQ. 1 ) GO TO 96\r\n      IF ( ITEST .EQ. 0 ) IAX = IAX + 1\r\n      IF ( ITEST .EQ. 2 ) IAX = IAX + 3\r\n      IF ( ITEST .EQ. 3 ) IAX = IAX + 2\r\n96    CONTINUE\r\n      IAX2   = ( ( IAX+1 ) / 2 ) \r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      LASMEM = IBUF4 - 1\r\n      LASMEM = LASMEM - IAX\r\n      IPROW1 = 1\r\n      IPROWN = NDR\r\n      INCRP  = 1\r\n      CALL GOPEN  ( FILEA, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN  ( FILEB, ZR( IBUF2 ), RDREW )\r\n      IPASS  = 0\r\n      IRCOLN = 0\r\n100   IPASS  = IPASS + 1\r\n      IRCOL1 = IRCOLN + 1\r\n      IRCOLN = NAC\r\n      IRFILE = FILEA( 1 )       \r\n      SIGN   = SIGNAB      \r\n      IF ( IPASS  .NE. 1 ) \r\n     &  CALL DSSPOS ( IRFILE, IRPOS( 1 ), IRPOS( 2 ),IRPOS( 3 ) )\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMARM1 ( ZI( IAX ), ZR( IAX  ), 0 )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMARM2 ( ZI( IAX ), ZD( IAX2 ), 0 )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMARM3 ( ZI( IAX ), ZC( IAX2 ), 0 )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMARM4 ( ZI( IAX ), ZD( IAX2 ), 0 )\r\n      NCOLPP = IRCOLN - IRCOL1 + 1\r\n      IBROW  = IRCOL1 - 1\r\n      IF ( IRCOLN .EQ. NAC ) GO TO 400\r\n      ITEST = MOD( IPASS, 2 )\r\n      IF ( ITEST .EQ. 0 ) GO TO 350\r\n      IFILE = SCRTCH\r\n      OFILE = FILED( 1 )\r\n      GO TO 380\r\n350   IFILE = FILED( 1 )\r\n      OFILE = SCRTCH\r\n380   CONTINUE\r\n      IF ( IPASS .EQ. 1 ) GO TO 300\r\n      CALL REWIND( FILEB )\r\n      CALL SKPREC( FILEB, 1 )\r\n      CALL GOPEN ( IFILE, ZR( IBUF3 ), RDREW )\r\n      CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW)\r\n      GO TO 490\r\nC FIRST PASS, OPEN \"C\" FILE IF IT EXISTS\r\n300   CONTINUE\r\n      CALL GOPEN ( OFILE, ZR( IBUF4 ), WRTREW)      \r\n310   IFILE = FILEC( 1 )\r\n      IF ( SIGNC .EQ. 0 ) IFILE = 0\r\n      IF ( IFILE .EQ. 0 ) GO TO 490 \r\n      CALL GOPEN  ( IFILE, ZR( IBUF3 ), RDREW )     \r\n      GO TO 490\r\nC LAST PASS, CREATE OUTPUT FILE\r\n400   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) IFILE = SCRTCH\r\n      IF ( OFILE .EQ. FILED( 1 ) .AND. IPASS .NE. 1 ) \r\n     &     CALL FILSWI( IFILE, OFILE )\r\n      OFILE = FILED( 1 )\r\n      IFILE = SCRTCH   \r\n      CALL REWIND( FILEB )\r\n      CALL SKPREC( FILEB, 1 )\r\n      CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW)\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IF ( IPASS .EQ. 1 ) GO TO 310\r\n      CALL GOPEN  ( IFILE, ZR( IBUF3 ), RDREW )     \r\n490   CONTINUE\r\n      SIGN = 1\r\n      IF ( METHOD .EQ. 30 ) GO TO 950\r\n      IF ( METHOD .EQ. 31 ) GO TO 1000  \r\n      IF ( METHOD .EQ. 32 ) GO TO 2000  \r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n950   CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA301( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA302( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA303( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA304( ZI, ZD, ZDC )\r\n      GO TO 60000\r\n1000  CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA311( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA312( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA313( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA314( ZI, ZD, ZDC )\r\n      GO TO 60000\r\n2000  CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA321( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA322( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA323( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA324( ZI, ZD )\r\n60000 CONTINUE\r\n      CALL CLOSE ( IFILE, CLSREW )\r\n      CALL CLOSE ( OFILE, CLSREW )\r\n      IF ( IRCOLN .LT. NAC ) GO TO 100\r\nC\r\nC ALL COLUMNS OF A HAVE BEEN PROCESSED, MULTIPLICATION COMPLETE\r\nC\r\n      CALL CLOSE ( FILEA, CLSREW )\r\n      CALL CLOSE ( FILEB, CLSREW )\r\n      MODULE( 3 ) = JEND\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma301.f",
    "content": "      SUBROUTINE MMA301 ( ZI, ZR )\r\nC\r\nC     MMA301 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND \r\nC       REAL SINGLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA301 USES METHOD 30 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL 'MMARM1' TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\";  ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE \r\n      CALL UNPACK ( *930, FILEB, ZR( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZR( IDX ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZR( IDX+J-1 ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      INDXA  = IAX\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450\r\n      IBROWI = ICOLA - IROWB1 + 1\r\n      IF ( ZR( IBROWI ) .EQ. 0. ) GO TO 1450\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA+2\r\n1100  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\nC\r\nC         D = C + A*B\r\nC      \r\n      ZR( IDX+K-1 ) = ZR( IDX+K-1 ) +  ZR( INDXAV+K ) * ZR( IBROWI )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      GO TO 1100\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = 1 - IROWB1\r\n      IDXX   = IDX + IBROW - 1\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I \r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA+2\r\n11000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXAV = INDXA + 2 - IROWA1\r\nC\r\nC         D = C + A*B\r\nC      \r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( IDXX+I ) = ZR( IDXX+I ) +  ZR( INDXAV+K ) * ZR( INDXB+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      GO TO 11000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZR( IDX ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IAX =',I7,'  INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma302.f",
    "content": "      SUBROUTINE MMA302 ( ZI, ZD )\r\nC\r\nC     MMA302 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND \r\nC       REAL DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA302 USES METHOD 30 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL 'MMARM1' TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)      ,DTEMP\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\";  ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN II=',II\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE \r\n      CALL UNPACK ( *930, FILEB, ZD( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n      IF ( IFILE .NE. 0 ) GO TO 940\r\n      IPROWN = 1\r\n      CALL PACK ( 0.0D0, OFILE, FILED )\r\n      IPROWN = NDR\r\n      GO TO 60000\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZD( IDX2+J ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      INDXA  = IAX\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450\r\n      IBROWI = ICOLA - IROWB1 + 1\r\n      DTEMP  = ZD( IBROWI )\r\n      IF ( DTEMP .EQ. 0.0D0 ) GO TO 1450\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA+2\r\n1100  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA+3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\nC\r\nC         D = C + A*B\r\nC      \r\nC      PRINT *,' K,D,A,B=',K,ZD(IDX2+K),ZD(INDXAV+K),ZD(IBROWI)\r\n      ZD( IDX2+K ) = ZD( IDX2+K ) +  ZD( INDXAV+K ) * DTEMP\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*2\r\n      GO TO 1100\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = 1 - IROWB1\r\n      IDXX   = IDX2 + IBROW \r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I \r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA+2\r\n11000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\nC\r\nC         D = C + A*B\r\nC      \r\n      DTEMP = 0.0\r\n      DO 14000 K = IROW1, IROWN\r\n      DTEMP = DTEMP +  ZD( INDXAV+K ) * ZD( INDXB+K ) \r\n14000 CONTINUE\r\n      ZD( IDXX+I ) = ZD( IDXX+I ) +  DTEMP \r\n14100 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*2\r\n      GO TO 11000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZD( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IAX =',I7,'  INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma303.f",
    "content": "      SUBROUTINE MMA303 ( ZI, ZC )\r\nC\r\nC     MMA303 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND \r\nC       COMPLEX SINGLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA303 USES METHOD 30 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL 'MMARM1' TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\";  ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE \r\n      CALL UNPACK ( *930, FILEB, ZC( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZC( IDX2+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      INDXA  = IAX\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450\r\n      IBROWI = ICOLA - IROWB1 + 1\r\n      IF ( ZC( IBROWI ) .EQ. 0. ) GO TO 1450\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA+2\r\n1100  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA+3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\nC\r\nC         D = C + A*B\r\nC      \r\n      ZC( IDX2+K ) = ZC( IDX2+K ) +  ZC( INDXAV+K ) * ZC( IBROWI )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*2\r\n      GO TO 1100\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX SINGLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = 1 - IROWB1\r\n      IDXX   = IDX2 + IBROW \r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I \r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA+2\r\n11000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\nC\r\nC         D = C + A*B\r\nC      \r\n      DO 14000 K = IROW1, IROWN\r\n      ZC( IDXX+I ) = ZC( IDXX+I ) +  ZC( INDXAV+K ) * ZC( INDXB+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*2\r\n      GO TO 11000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZC( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IAX =',I7,'  INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma304.f",
    "content": "      SUBROUTINE MMA304 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA304 PERFORMS THE MATRIX OPERATION USING METHOD 30 AND \r\nC       COMPLEX DOUBLE PRECISION\r\nC\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA304 USES METHOD 30 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL 'MMARM1' TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  USE UNPACK TO READ MATRICES \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"B\";  ADD \"C\" DATA ON FIRST PASS\r\n      DO 60000 II = 1, NBC\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE \r\n      CALL UNPACK ( *930, FILEB, ZDC( 1 ) )\r\n      IROWB1 = IUROW1\r\n      IROWBN = IUROWN\r\n      GO TO 940\r\n930   IROWB1 = 0\r\n      IROWBN = 0\r\n940   CONTINUE\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZDC( IDX4+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      INDXA  = IAX\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC COMPLEX DOUBLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .LT. IROWB1 .OR. ICOLA .GT. IROWBN ) GO TO 1450\r\n      IBROW2 = 2*( IBROW+I-IROWB1 ) + 1\r\n      IF (   ZD( IBROW2  ) .EQ. 0.D0\r\n     & .AND. ZD( IBROW2+1) .EQ. 0.D0 ) GO TO 1450\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA+2\r\n1100  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA+3 ) / 2 ) - 2\r\n      DO 1400 K = IROWA1, IROWAN\r\nC\r\nC         D = C + A*B\r\nC      \r\n      INDXAV = INDXAV + 2\r\n      ZDC( IDX4+K ) = ZDC( IDX4+K ) +  \r\n     &       DCMPLX( ZD( INDXAV ), ZD(INDXAV+1) ) * \r\n     &       DCMPLX( ZD( IBROW2 ), ZD(IBROW2+1) )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*4\r\n      GO TO 1100\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = 1 - IROWB1\r\n      IDXX   = IDX4 + IBROW \r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I \r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA+2\r\n11000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) + 2 * ( IROW1 - IROWA1 ) - 1\r\n      INDXB  = 2*( IROW1 - IROWB1 )\r\nC\r\nC         D = C + A*B\r\nC      \r\n      KCNT   = ( IROWN-IROW1 ) * 2 + 1\r\n      DO 14000 K = 1, KCNT, 2\r\n      ZDC( IDXX+I ) = ZDC( IDXX+I ) +\r\n     &  DCMPLX( ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) * \r\n     &  DCMPLX( ZD( INDXB +K ), ZD( INDXB +K+1 ) )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*4\r\n      GO TO 11000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IAX =',I7,'  INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma311.f",
    "content": "      SUBROUTINE MMA311 ( ZI, ZR )\r\nC\r\nC     MMA311 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA311 USES METHOD 31 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IRFILE = FILEB( 1 )\r\n      DO 60000 II = 1, NBC\r\nC      PRINT *,' PROCESSING COLUMN=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC1 ( ZI, ZR )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZR( IDX ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZR( IDX+J-1 ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\nC\r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA + 1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA + 2\r\n1100  CONTINUE\r\n      IF ( ICOLA .LT. IROWB1 ) GO TO 1450\r\n      IF ( ICOLA .LE. IROWBN ) GO TO 1200\r\n      INDXB  = INDXB + 2 + IROWS\r\n      IF ( INDXB .GT. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 1100\r\n1200  CONTINUE\r\n      INDXBV = ICOLA - IROWB1 + INDXB + 2\r\n      IF ( ZR( INDXBV ) .EQ. 0. ) GO TO 1450\r\n1300  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( IDX+K-1 ) = ZR( IDX+K-1 ) +  ZR( INDXAV+K ) * ZR( INDXBV )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      GO TO 1300\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\n      IDXX  = IDX + IDROW - 1     \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASIND ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = INDXB + 2 - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( IDXX+I ) = ZR( IDXX+I ) +  ZR( INDXAV+K ) * ZR( INDXBV+K )\r\n14000 CONTINUE                                                \r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZR( IDX ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma312.f",
    "content": "      SUBROUTINE MMA312 ( ZI, ZD )\r\nC\r\nC     MMA312 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA312 USES METHOD 31 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\nC     MEMORY FOR EACH COLUMN OF \"A\" IS AS FOLLOWS:\r\nC         Z(1)   = FIRST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(2)   = LAST NON-ZERO ROW NUMBER FOR COLUMN\r\nC         Z(3-N) = VALUES OF NON-ZERO ROWS\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)      ,DTEMP\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IRFILE = FILEB( 1 )\r\n      DO 60000 II = 1, NBC\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN, II=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC2 ( ZI, ZD )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZD( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      IF ( ZI( 1 ) .NE. 0 ) GO TO 960\r\n      IPROWN = 1\r\n      CALL PACK ( 0.0D0, OFILE, FILED )\r\n      IPROWN = NDR\r\n      GO TO 60000\r\n960   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZD( IDX2+J ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\nC      \r\nC CHECK FOR NULL COLUMN FRO \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA + 1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA + 2\r\n1100  CONTINUE\r\n      IF ( ICOLA .LT. IROWB1 ) GO TO 1450\r\n      IF ( ICOLA .LE. IROWBN ) GO TO 1200\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      IF ( INDXB .GT. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 1100\r\n1200  CONTINUE\r\n      INDXBV = ICOLA - IROWB1 + ( INDXB + 3 ) / 2\r\n      DTEMP  = ZD( INDXBV )\r\n      IF ( DTEMP .EQ. 0.0D0 ) GO TO 1450\r\n1300  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZD( IDX2+K ) = ZD( IDX2+K ) +  ZD( INDXAV+K ) * DTEMP\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 1300\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\n      IDXX  = IDX2 + IDROW      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASIND ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB+3 ) / 2 )  - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      DTEMP  = 0.0D0\r\n      DO 14000 K = IROW1, IROWN\r\n      DTEMP = DTEMP +  ZD( INDXAV+K ) * ZD( INDXBV+K ) \r\n14000 CONTINUE                                                \r\n      ZD( IDXX+I ) = ZD( IDXX+I ) +  DTEMP\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZD( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma313.f",
    "content": "      SUBROUTINE MMA313 ( ZI, ZC )\r\nC\r\nC     MMA313 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA313 USES METHOD 31 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IRFILE = FILEB( 1 )\r\n      DO 60000 II = 1, NBC\r\nC      PRINT *,' PROCESSING COLUMN=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC3 ( ZI, ZC )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZC( IDX2+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZC( IDX2+J ) = (0.0,0.0)\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\nC      \r\nC CHECK FOR A NULL COLUMN READ FROM THE \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA + 1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA + 2\r\n1100  CONTINUE\r\n      IF ( ICOLA .LT. IROWB1 ) GO TO 1450\r\n      IF ( ICOLA .LE. IROWBN ) GO TO 1200\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      IF ( INDXB .GT. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 1100\r\n1200  CONTINUE\r\n      INDXBV = ICOLA - IROWB1 + ( INDXB + 3 ) / 2\r\n      IF ( ZC( INDXBV ) .EQ. 0. ) GO TO 1450\r\n1300  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZC( IDX2+K ) = ZC( IDX2+K ) +  ZC( INDXAV+K ) * ZC( INDXBV )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 1300\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\n      IDXX  = IDX2 + IDROW      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASIND ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB+3 ) / 2 )  - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZC( IDXX+I ) = ZC( IDXX+I ) +  ZC( INDXAV+K ) * ZC( INDXBV+K )\r\n14000 CONTINUE                                                \r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZC( IDX2+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma314.f",
    "content": "      SUBROUTINE MMA314 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA314 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA314 USES METHOD 31 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  UNPACK COLUMNS OF \"C\" MATRIX BUT USE GETSTR (MMARC1,2,3,4)\r\nC           TO READ COLUMNS OF \"B\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IRFILE = FILEB( 1 )\r\n      DO 60000 II = 1, NBC\r\nC      PRINT *,' PROCESSING COLUMN=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      CALL MMARC4 ( ZI, ZD )\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IUROW1 = 1\r\n      IUROWN = NDR\r\n      TYPEU  = NDTYPE \r\n      IF ( IPASS .EQ. 1 ) TYPEU = NDTYPE * SIGNC\r\n      CALL UNPACK (*950, IFILE, ZDC( IDX4+1 ) )\r\n      GO TO 980\r\n950   CONTINUE\r\n      DO 970 J = 1, NDR\r\n      ZDC( IDX4+J ) = 0\r\n970   CONTINUE\r\n980   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A * B  +  C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      DO 1500 I = 1, NCOLPP\r\n      INDXAL = ZI( INDXA + 1 ) + IAX - 1\r\n      ICOLA  = IBROW+I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXA  = INDXA + 2\r\n1100  CONTINUE\r\n      IF ( ICOLA .LT. IROWB1 ) GO TO 1450\r\n      IF ( ICOLA .LE. IROWBN ) GO TO 1200\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      IF ( INDXB .GT. LASIND ) GO TO 50000\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      GO TO 1100\r\n1200  CONTINUE\r\n      INDXBV = 2 * ( ICOLA - IROWB1 ) + ( INDXB + 3 ) / 2\r\n      IF ( ZD( INDXBV ) .EQ. 0. ) GO TO 1450\r\n1300  CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 1450\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( (INDXA+3 ) / 2 ) \r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZDC( IDX4+K ) = ZDC( IDX4+K ) +\r\n     &                DCMPLX( ZD(INDXAV), ZD(INDXAV+1) ) * \r\n     &                DCMPLX( ZD(INDXBV), ZD(INDXBV+1) )\r\n      INDXAV = INDXAV + 2\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 1300\r\n1450  INDXA  = INDXAL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\n      IDROW = IBROW\r\n      IDXX  = IDX4 + IDROW      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASIND ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBS = INDXB\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( ( INDXA +3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1\r\n      INDXBV = ( ( INDXBS+3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1       \r\n      KCNT   = ( IROWN - IROW1 ) * 2 + 1\r\n      DO 14000 K = 1, KCNT, 2\r\n      ZDC( IDXX+I ) = ZDC( IDXX+I ) +  \r\n     &               DCMPLX(  ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) * \r\n     &               DCMPLX(  ZD( INDXBV+K ), ZD( INDXBV+K+1 ) )\r\n14000 CONTINUE                                                \r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n50000 CONTINUE\r\nC  NOW SAVE COLUMN \r\n      CALL PACK ( ZDC( IDX4+1 ), OFILE, FILED )\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma321.f",
    "content": "      SUBROUTINE MMA321 ( ZI, ZR )\r\nC\r\nC     MMA321 PERFORMS THE MATRIX OPERATION IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA321 USES METHOD 32 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  ADD EACH ROW TERM OF \"C\" TO \"D\" MATRIX COLUMN\r\nC       4.  CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  DD(2)\r\n      REAL              ZR(2)      ,DTEMP\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / ZBLPKX / D(4)       ,KDROW\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       ( D(1)     ,DD(1) )\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IDROW = IBROW \r\n      DO 60000 II = 1, NBC\r\n      CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 )\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN, II=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      SIGN   = 1\r\n      IRFILE = FILEB( 1 )        \r\n      CALL MMARC1 ( ZI, ZR )\r\n      LASINDB = LASIND\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IF ( IPASS .EQ. 1 ) SIGN = SIGNC\r\n      IRFILE = IFILE\r\nC      \r\nC READ A COLUMN FROM THE \"C\" MATRIX\r\nC\r\n      CALL MMARC1 ( ZI( IDX ), ZR( IDX ) )\r\n      LASINDC = LASIND + IDX - 1\r\n950   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( ZI( 1 ) .NE. 0 ) GO TO 1000\r\n      IF ( IFILE .NE. 0 ) GO TO 960\r\n951   D(1) = 0.0\r\n      KDROW = 1\r\n      CALL ZBLPKI\r\n      GO TO 55000\r\n960   IF ( ZI( IDX ) .EQ. 0 ) GO TO 951\r\n      INDXC = IDX     \r\n961   IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      INDXCV = INDXC+2 \r\n      DO 970 I = IROWC1, IROWCN\r\n      D( 1 ) = ZR( INDXCV )\r\n      KDROW  = I\r\n      CALL ZBLPKI\r\n      INDXCV = INDXCV + 1\r\n970   CONTINUE\r\n      INDXC  = INDXC + 2 + ICROWS*NWDD\r\n      GO TO 961\r\n1000  CONTINUE\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\n      INDXC  = IDX  \r\n      IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n1010  CONTINUE\r\nC\r\nC CHECK TO ADD TERMS FROM \"C\" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW\r\nC\r\n      IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000\r\n4000  CONTINUE\r\n      IROWN = IDROW\r\n      IF ( IROWCN .LT. IDROW ) IROWN = IROWCN\r\n5000  CONTINUE\r\n      INDXCV = INDXC + 2\r\n      NROWS  = IROWN - IROWC1 + 1\r\n      DO 6000 I = 1, NROWS\r\n      KDROW = IROWC1 + I - 1\r\n      D( 1 ) = ZR( INDXCV )\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n6000  CONTINUE\r\n      IF ( IROWCN .GE. IDROW ) GO TO 9000\r\n      INDXC = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI ( INDXC )\r\n      ICROWS = ZI ( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      GO TO 4000\r\n9000  CONTINUE\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      D(1)   = 0.0\r\n      KDROW  = IDROW + I\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASINDB ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = INDXB + 2 - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DTEMP  = 0.0\r\nC      PRINT *,' IROW1,N=',IROW1,IROWN\r\n      DO 14000 K = IROW1, IROWN\r\nC      PRINT *,' K,D,A,B=',K,DTEMP,ZR(INDXAV+K),ZR(INDXBV+K)\r\n      DTEMP = DTEMP +  ZR( INDXAV+K ) * ZR( INDXBV+K ) \r\n14000 CONTINUE                                                \r\n      D( 1 ) = D(1) + DTEMP\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600\r\n      IF ( KDROW .LT. IROWC1 ) GO TO 14600\r\n      IF ( KDROW .GT. IROWCN ) GO TO 14550\r\n      INDXCV  = INDXC + 2 + KDROW - IROWC1\r\nC      PRINT *,' ADDING C,D,C=',D(1),ZR(INDXCV)\r\n      D( 1 )  = D( 1 ) + ZR( INDXCV )\r\n      GO TO 14600\r\n14550 INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 14600\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 14510\r\n14600 CONTINUE\r\n      CALL ZBLPKI\r\n15000 CONTINUE\r\n50000 CONTINUE\r\n      IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) \r\n     &    GO TO 55000\r\nC\r\nC ADD REMAINING TERMS FROM EITHER THE \"C\" MATRIX OR INTERIM SCRATCH MATRIX\r\nC\r\n      IROW1 = KDROW + 1\r\n50100 CONTINUE\r\n      INDXCV = INDXC + 2\r\n      IF ( IROW1 .LT. IROWC1 ) GO TO 51000\r\n      IF ( IROW1 .LE. IROWCN ) GO TO 50900\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 50100\r\n50900 CONTINUE\r\n      INDXCV = INDXC+2 + IROW1 - IROWC1\r\n      IROWC1 = IROW1\r\n51000 CONTINUE\r\n      NROWS = IROWCN - IROWC1 + 1\r\n      DO 51500 K = 1, NROWS\r\n      KDROW = IROWC1 + K - 1\r\n      D( 1 ) = ZR( INDXCV )\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n51500 CONTINUE\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      INDXCV  = INDXC+2\r\n      GO TO 51000\r\n55000 CONTINUE\r\n      CALL BLDPKN ( OFILE, 0, FILED )\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma322.f",
    "content": "      SUBROUTINE MMA322 ( ZI, ZD )\r\nC\r\nC     MMA322 PERFORMS THE MATRIX OPERATION IN REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA322 USES METHOD 32 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  ADD EACH ROW TERM OF \"C\" TO \"D\" MATRIX COLUMN\r\nC       4.  CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)      ,DTEMP    ,DD(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / ZBLPKX / D(4)       ,KDROW\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       ( D(1)     ,DD(1) )\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IDROW = IBROW \r\n      DO 60000 II = 1, NBC\r\n      CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 )\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN, II=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      SIGN   = 1\r\n      IRFILE = FILEB( 1 )        \r\n      CALL MMARC2 ( ZI, ZD )\r\n      LASINDB = LASIND\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IF ( IPASS .EQ. 1 ) SIGN = SIGNC\r\n      IRFILE = IFILE\r\nC      \r\nC READ A COLUMN FROM THE \"C\" MATRIX\r\nC\r\n      CALL MMARC2 ( ZI( IDX ), ZD( IDX2+1 ) )\r\n      LASINDC = LASIND + IDX - 1\r\n950   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( ZI( 1 ) .NE. 0 ) GO TO 1000\r\n      IF ( IFILE .NE. 0 ) GO TO 960\r\n951   DD(1) = 0.0D0\r\n      KDROW = 1\r\n      CALL ZBLPKI\r\n      GO TO 55000\r\n960   IF ( ZI( IDX ) .EQ. 0 ) GO TO 951\r\n      INDXC = IDX     \r\n961   IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      INDXCV = ( INDXC+3 ) / 2 \r\n      DO 970 I = IROWC1, IROWCN\r\n      DD( 1 ) = ZD( INDXCV )\r\n      KDROW  = I\r\n      CALL ZBLPKI\r\n      INDXCV = INDXCV + 1\r\n970   CONTINUE\r\n      INDXC  = INDXC + 2 + ICROWS*NWDD\r\n      GO TO 961\r\n1000  CONTINUE\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\n      INDXC  = IDX  \r\n      IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n1010  CONTINUE\r\nC\r\nC CHECK TO ADD TERMS FROM \"C\" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW\r\nC\r\n      IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000\r\n4000  CONTINUE\r\n      IROWN = IDROW\r\n      IF ( IROWCN .LT. IDROW ) IROWN = IROWCN\r\n5000  CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2\r\n      NROWS = IROWN - IROWC1 + 1\r\n      DO 6000 I = 1, NROWS\r\n      KDROW = IROWC1 + I - 1\r\n      DD( 1 ) = ZD( INDXCV )\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n6000  CONTINUE\r\n      IF ( IROWCN .GE. IDROW ) GO TO 9000\r\n      INDXC = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI ( INDXC )\r\n      ICROWS = ZI ( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      GO TO 4000\r\n9000  CONTINUE\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      DD(1) = 0.0D0\r\n      KDROW  = IDROW + I\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASINDB ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB+3 ) / 2 )  - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      DTEMP  = 0.0D0\r\nC      PRINT *,' IROW1,N=',IROW1,IROWN\r\n      DO 14000 K = IROW1, IROWN\r\nC      PRINT *,' K,D,A,B=',K,DTEMP,ZD(INDXAV+K),ZD(INDXBV+K)\r\n      DTEMP = DTEMP +  ZD( INDXAV+K ) * ZD( INDXBV+K ) \r\n14000 CONTINUE                                                \r\n      DD( 1 ) = DD(1) + DTEMP\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600\r\n      IF ( KDROW .LT. IROWC1 ) GO TO 14600\r\n      IF ( KDROW .GT. IROWCN ) GO TO 14550\r\n      INDXCV  = ( INDXC+3 ) / 2 + KDROW - IROWC1\r\nC      PRINT *,' ADDING C,DD,C=',DD(1),ZD(INDXCV)\r\n      DD( 1 ) = DD( 1 ) + ZD( INDXCV )\r\n      GO TO 14600\r\n14550 INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 14600\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 14510\r\n14600 CONTINUE\r\n      CALL ZBLPKI\r\n15000 CONTINUE\r\n50000 CONTINUE\r\n      IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) \r\n     &    GO TO 55000\r\nC\r\nC ADD REMAINING TERMS FROM EITHER THE \"C\" MATRIX OR INTERIM SCRATCH MATRIX\r\nC\r\n      IROW1 = KDROW + 1\r\n50100 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2\r\n      IF ( IROW1 .LT. IROWC1 ) GO TO 51000\r\n      IF ( IROW1 .LE. IROWCN ) GO TO 50900\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 50100\r\n50900 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2 + IROW1 - IROWC1\r\n      IROWC1 = IROW1\r\n51000 CONTINUE\r\n      NROWS = IROWCN - IROWC1 + 1\r\n      DO 51500 K = 1, NROWS\r\n      KDROW = IROWC1 + K - 1\r\n      DD( 1 ) = ZD( INDXCV )\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n51500 CONTINUE\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      INDXCV  = ( INDXC+3 ) / 2\r\n      GO TO 51000\r\n55000 CONTINUE\r\n      CALL BLDPKN ( OFILE, 0, FILED )\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma323.f",
    "content": "      SUBROUTINE MMA323 ( ZI, ZC )\r\nC\r\nC     MMA323 PERFORMS THE MATRIX OPERATION IN COMPLEX SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA323 USES METHOD 32 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  ADD EACH ROW TERM OF \"C\" TO \"D\" MATRIX COLUMN\r\nC       4.  CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)      ,CTEMP    ,CS(2)\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / ZBLPKX / D(4)       ,KDROW\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       ( D(1)     ,CS(1) )\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IDROW = IBROW \r\n      DO 60000 II = 1, NBC\r\n      CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 )\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN, II=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      SIGN   = 1\r\n      IRFILE = FILEB( 1 )        \r\n      CALL MMARC3 ( ZI, ZC )\r\n      LASINDB = LASIND\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IF ( IPASS .EQ. 1 ) SIGN = SIGNC\r\n      IRFILE = IFILE\r\nC      \r\nC READ A COLUMN FROM THE \"C\" MATRIX\r\nC\r\n      CALL MMARC3 ( ZI( IDX ), ZC( IDX2+1 ) )\r\n      LASINDC = LASIND + IDX - 1\r\n950   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( ZI( 1 ) .NE. 0 ) GO TO 1000\r\n      IF ( IFILE .NE. 0 ) GO TO 960\r\n951   CS(1) = ( 0.0, 0.0)\r\n      KDROW = 1\r\n      CALL ZBLPKI\r\n      GO TO 55000\r\n960   IF ( ZI( IDX ) .EQ. 0 ) GO TO 951\r\n      INDXC = IDX     \r\n961   IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      INDXCV = ( INDXC+3 ) / 2 \r\n      DO 970 I = IROWC1, IROWCN\r\n      CS( 1 ) = ZC( INDXCV )\r\nC      PRINT *,' A970,ZC=',ZC(INDXCV)\r\n      KDROW  = I\r\n      CALL ZBLPKI\r\n      INDXCV = INDXCV + 1\r\n970   CONTINUE\r\n      INDXC  = INDXC + 2 + ICROWS*NWDD\r\n      GO TO 961\r\n1000  CONTINUE\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\n      INDXC  = IDX  \r\n      IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n1010  CONTINUE\r\nC\r\nC CHECK TO ADD TERMS FROM \"C\" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW\r\nC\r\n      IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000\r\n4000  CONTINUE\r\n      IROWN = IDROW\r\n      IF ( IROWCN .LT. IDROW ) IROWN = IROWCN\r\n5000  CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2\r\n      NROWS = IROWN - IROWC1 + 1\r\n      DO 6000 I = 1, NROWS\r\n      KDROW = IROWC1 + I - 1\r\n      CS( 1 ) = ZC( INDXCV )\r\nC      PRINT *,' AT 6000,ZC=',ZC(INDXCV)\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n6000  CONTINUE\r\n      IF ( IROWCN .GE. IDROW ) GO TO 9000\r\n      INDXC = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI ( INDXC )\r\n      ICROWS = ZI ( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      GO TO 4000\r\n9000  CONTINUE\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\nC COMPLEX SINGLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      CS(1)  = ( 0.0, 0.0 )\r\n      KDROW  = IDROW + I\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASINDB ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB+3 ) / 2 )  - IROWB1  \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( (INDXA+3 ) / 2 ) - IROWA1\r\n      CTEMP  = ( 0.0, 0.0)\r\nC      PRINT *,' IROW1,N=',IROW1,IROWN\r\n      DO 14000 K = IROW1, IROWN\r\nC      PRINT *,' K,D,A,B=',K,CTEMP,ZC(INDXAV+K),ZC(INDXBV+K)\r\n      CTEMP = CTEMP +  ZC( INDXAV+K ) * ZC( INDXBV+K ) \r\n14000 CONTINUE                                                \r\n      CS( 1 ) = CS(1) + CTEMP\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600\r\n      IF ( KDROW .LT. IROWC1 ) GO TO 14600\r\n      IF ( KDROW .GT. IROWCN ) GO TO 14550\r\n      INDXCV  = ( INDXC+3 ) / 2 + KDROW - IROWC1\r\nC      PRINT *,' ADDING C,DD,C=',CS(1),ZC(INDXCV)\r\n      CS( 1 ) = CS( 1 ) + ZC( INDXCV )\r\nC      PRINT *,' AT 14510,ZC=',ZC(INDXCV)\r\n      GO TO 14600\r\n14550 INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 14600\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 14510\r\n14600 CONTINUE\r\n      CALL ZBLPKI\r\n15000 CONTINUE\r\n50000 CONTINUE\r\n      IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) \r\n     &    GO TO 55000\r\nC\r\nC ADD REMAINING TERMS FROM EITHER THE \"C\" MATRIX OR INTERIM SCRATCH MATRIX\r\nC\r\n      IROW1  = KDROW + 1\r\n50100 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2 \r\n      IF ( IROW1 .LT. IROWC1 ) GO TO 51000\r\n      IF ( IROW1 .LE. IROWCN ) GO TO 50900\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 50100\r\n50900 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2 + IROW1 - IROWC1\r\n      IROWC1 = IROW1\r\n51000 CONTINUE\r\n      NROWS = IROWCN - IROWC1 + 1\r\n      DO 51500 K = 1, NROWS\r\n      KDROW = IROWC1 + K - 1\r\n      CS( 1 ) = ZC( INDXCV )\r\nC      PRINT *,' AT 51500,ZC=',ZC(INDXCV)\r\n      INDXCV = INDXCV + 1\r\n      CALL ZBLPKI\r\n51500 CONTINUE\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      INDXCV  = ( INDXC+3 ) / 2\r\n      GO TO 51000\r\n55000 CONTINUE\r\n      CALL BLDPKN ( OFILE, 0, FILED )\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma324.f",
    "content": "      SUBROUTINE MMA324 ( ZI, ZD )\r\nC\r\nC     MMA324 PERFORMS THE MATRIX OPERATION IN COMPLEX DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA324 USES METHOD 32 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  CALL MMARM1 TO PACK AS MANY COLUMNS OF \"A\" INTO MEMORY \r\nC           AS POSSIBLE LEAVING SPACE FOR ONE COLUMN OF \"B\" AND \"D\".\r\nC       3.  ADD EACH ROW TERM OF \"C\" TO \"D\" MATRIX COLUMN\r\nC       4.  CALL MMARC1,2,3,4 TO READ COLUMNS OF \"B\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      DOUBLE COMPLEX    CDTEMP    ,CD\r\n      INCLUDE           'MMACOM.COM'     \r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / ZBLPKX / D(4)       ,KDROW\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       ( D(1)     ,CD    )\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"B\" MATRIX IN COMPACT FORM\r\nC     Z( IDX      ) = ARRAY FOR ONE COLUMN OF \"D\" MATRIX\r\nC     Z( IAX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"A\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n      IDROW = IBROW \r\n      DO 60000 II = 1, NBC\r\n      CALL BLDPK ( NDTYPE, NDTYPE, OFILE, 0, 0 )\r\nC      PRINT *,' PROCESSING B MATRIX COLUMN, II=',II\r\nC      \r\nC READ A COLUMN FROM THE \"B\" MATRIX\r\nC\r\n      SIGN   = 1\r\n      IRFILE = FILEB( 1 )        \r\n      CALL MMARC4 ( ZI, ZD )\r\n      LASINDB = LASIND\r\nC\r\nC NOW READ \"C\", OR SCRATCH FILE WITH INTERMEDIATE RESULTS.\r\nC IF NO \"C\" FILE AND THIS IS THE FIRST PASS, INITIALIZE \"D\" COLUMN TO ZERO.\r\nC\r\n      IF ( IFILE .EQ. 0 ) GO TO 950            \r\n      IF ( IPASS .EQ. 1 ) SIGN = SIGNC\r\n      IRFILE = IFILE\r\nC      \r\nC READ A COLUMN FROM THE \"C\" MATRIX\r\nC\r\n      CALL MMARC4 ( ZI( IDX ), ZD( IDX2+1 ) )\r\n      LASINDC = LASIND + IDX - 1\r\n950   CONTINUE\r\nC\r\nC CHECK IF COLUMN OF \"B\" IS NULL\r\nC\r\n      IF ( ZI( 1 ) .NE. 0 ) GO TO 1000\r\n      IF ( IFILE .NE. 0 ) GO TO 960\r\n951   CD = ( 0.0D0, 0.0D0)\r\n      KDROW = 1\r\n      CALL ZBLPKI\r\n      GO TO 55000\r\n960   IF ( ZI( IDX ) .EQ. 0 ) GO TO 951\r\n      INDXC = IDX     \r\n961   IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      INDXCV = ( INDXC+3 ) / 2 \r\n      DO 970 I = IROWC1, IROWCN\r\n      CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) \r\n      KDROW  = I\r\n      CALL ZBLPKI\r\n      INDXCV = INDXCV + 2\r\n970   CONTINUE\r\n      INDXC  = INDXC + 2 + ICROWS*NWDD\r\n      GO TO 961\r\n1000  CONTINUE\r\n      IROWB1 = ZI( 1 )\r\n      IROWS  = ZI( 2 ) \r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXB  = 1\r\n      INDXA  = IAX\r\n      INDXC  = IDX  \r\n      IF ( IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI( INDXC )\r\n      ICROWS = ZI( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n1010  CONTINUE\r\nC\r\nC CHECK TO ADD TERMS FROM \"C\" OR INTERIM SCRATCH FILE BEFORE CURRENT ROW\r\nC\r\n      IF ( IDROW .EQ. 0 .OR. IROWC1 .GT. IDROW ) GO TO 9000\r\n4000  CONTINUE\r\n      IROWN = IDROW\r\n      IF ( IROWCN .LT. IDROW ) IROWN = IROWCN\r\n5000  CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2\r\n      NROWS = IROWN - IROWC1 + 1\r\n      DO 6000 I = 1, NROWS\r\n      KDROW = IROWC1 + I - 1\r\n      CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) \r\n      INDXCV = INDXCV + 2\r\n      CALL ZBLPKI\r\n6000  CONTINUE\r\n      IF ( IROWCN .GE. IDROW ) GO TO 9000\r\n      INDXC = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 9000\r\n      IROWC1 = ZI ( INDXC )\r\n      ICROWS = ZI ( INDXC+1 )\r\n      IROWCN = IROWC1 + ICROWS - 1\r\n      GO TO 4000\r\n9000  CONTINUE\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"B\" MATRIX\r\nC\r\n      IF ( IROWB1 .EQ. 0 ) GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\nC COMPLEX DOUBLE PRECISION\r\n10000 CONTINUE\r\n      DO 15000 I = 1, NCOLPP\r\n      CD  = ( 0.0D0, 0.0D0 )\r\n      KDROW  = IDROW + I\r\n      ICOLA  = IBROW + I\r\n      IF ( ICOLA .NE. IABS( ZI( INDXA ) ) ) GO TO 70001\r\n      INDXAL = ZI( INDXA+1 ) + IAX - 1\r\n      INDXA  = INDXA + 2\r\n      INDXB  = 1\r\n11000 IF ( INDXB .GE. LASINDB ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBS = INDXB\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IF ( INDXA .GE. INDXAL ) GO TO 14500\r\n      IROWA1 = ZI( INDXA )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      INDXAV = ( ( INDXA +3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1\r\n      INDXBV = ( ( INDXBS+3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1\r\n      CDTEMP = ( 0.0D0, 0.0D0)\r\n      KCNT   = ( IROWN - IROW1 ) * 2 + 1\r\n      DO 14000 K = 1, KCNT, 2\r\n      CDTEMP = CDTEMP +  \r\n     &         DCMPLX( ZD( INDXAV+K), ZD( INDXAV+K+1 ) ) * \r\n     &         DCMPLX( ZD( INDXBV+K), ZD( INDXBV+K+1 ) ) \r\n14000 CONTINUE                                                \r\n      CD = CD + CDTEMP\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      GO TO 12000\r\n14500 INDXA  = INDXAL\r\n14510 IF ( INDXC .GE. LASINDC .OR. IFILE .EQ. 0 ) GO TO 14600\r\n      IF ( KDROW .LT. IROWC1 ) GO TO 14600\r\n      IF ( KDROW .GT. IROWCN ) GO TO 14550\r\n      INDXCV  = ( INDXC+3 ) / 2 + 2*( KDROW - IROWC1 )\r\n      CD = CD + DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) )\r\n      GO TO 14600\r\n14550 INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 14600\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 14510\r\n14600 CONTINUE\r\n      CALL ZBLPKI\r\n15000 CONTINUE\r\n50000 CONTINUE\r\n      IF ( KDROW .EQ. NDR .OR. IFILE .EQ. 0 .OR. INDXC .GE. LASINDC ) \r\n     &    GO TO 55000\r\nC\r\nC ADD REMAINING TERMS FROM EITHER THE \"C\" MATRIX OR INTERIM SCRATCH MATRIX\r\nC\r\n      IROW1 = KDROW + 1\r\n50100 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2\r\n      IF ( IROW1 .LT. IROWC1 ) GO TO 51000\r\n      IF ( IROW1 .LE. IROWCN ) GO TO 50900\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      GO TO 50100\r\n50900 CONTINUE\r\n      INDXCV = ( INDXC+3 ) / 2 + 2*( IROW1 - IROWC1 )\r\n      IROWC1 = IROW1\r\n51000 CONTINUE\r\n      NROWS = IROWCN - IROWC1 + 1\r\n      DO 51500 K = 1, NROWS\r\n      KDROW = IROWC1 + K - 1\r\n      CD = DCMPLX( ZD( INDXCV ), ZD( INDXCV+1 ) ) \r\n      INDXCV = INDXCV + 2\r\n      CALL ZBLPKI\r\n51500 CONTINUE\r\n      INDXC   = INDXC + 2 + ICROWS*NWDD\r\n      IF ( INDXC .GE. LASINDC ) GO TO 55000\r\n      IROWC1  = ZI( INDXC )\r\n      ICROWS  = ZI( INDXC+1 )\r\n      IROWCN  = IROWC1 + ICROWS - 1\r\n      INDXCV  = ( INDXC+3 ) / 2\r\n      GO TO 51000\r\n55000 CONTINUE\r\n      CALL BLDPKN ( OFILE, 0, FILED )\r\nC END OF PROCESSING THIS COLUMN FOR THIS PASS\r\n60000 CONTINUE\r\n      GO TO 70000\r\n70001 CONTINUE\r\n      WRITE ( IWR, 90001 ) ICOLA, ZI( INDXA ), IAX, INDXA\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX A'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUND FOUND   :',I6\r\n     &,/,' IAX =',I7,' INDXA=',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma4.f",
    "content": "      SUBROUTINE MMA4 ( ZI, ZR, ZD, ZC, ZDC )\r\nC\r\nC     MMA4 PERFORMS THE MATRIX OPERATION USING METHODS 40 AND 41\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA4 IS DESIGNED AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  PACK (IN COMPACT FORM) AS MANY COLUMNS OF THE \"B\" MATRIX INTO \r\nC           MEMORY AS POSSIBLE LEAVING SPACE FOR A FULL COLUMN OF THE \r\nC           \"D\" MATRIX FOR EACH COLUMN OF THE \"B\" MATRIX READ.\r\nC           SEE SUBROUTINES MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRIX \"C\".\r\nC       5.  FOR METHOD 40, CALL UNPACK TO READ COLUMNS OF MATRIX \"A\".\r\nC       6.  FOR METHOD 41, CALL MMARC1,2,3,4 TO READ COLUMNS OF \"A\" INTO\r\nC           MEMORY IN COMPACT FORM.\r\nC\r\n      INTEGER           ZI(2)      ,MODULE(3),SYSBUF,SCRTCH\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           OFILE      ,FILEA    ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      COMPLEX           ZC(2)\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),NOUT  ) \r\n      EQUIVALENCE       (KSYSTM(58),KSYS58)\r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\n      DATA    MODULE / 4HMMA4  , 4H     ,4H    /\r\n      DATA    KZERO  / 1H0   /   \r\n      DATA    KONE   / 1H1   /\r\n      DATA    JBEGN  / 4HBEGN/ , JEND  / 3HEND /\r\n      MODULE( 3 ) = JBEGN\r\n      IF ( NASTOR .EQ. 1 ) MODULE( 2 ) = KZERO\r\n      IF ( NASTOR .EQ. 2 ) MODULE( 2 ) = KONE\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      INCRU  = 1\r\n      TYPEI  = NDTYPE\r\n      TYPEP  = NDTYPE\r\n      NWDD   = NWORDS( NDTYPE )\r\n      NWDB   = NWORDS( NBTYPE )\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\n      IBX = 1 + NWDD*NAR\r\n      IF ( NASTOR .EQ. 2 .OR.  KSYS58 .EQ. 41 ) IBX = 1 + NWDD*NAR + NAR\r\n      IF ( MOD ( IBX , 2 ) .EQ. 0 ) IBX = IBX + 1\r\n      IBX2   = ( ( IBX+1 ) / 2 )\r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      LASMEMS= IBUF4 - 1\r\nC\r\nC INSURE THAT LASMEM IS ON A QUAD WORD BOUNDARY TO ALLOW FOR COMPLEX\r\nC DOUBLE DATA TO BE REFERENCED FOR \"D\" MATRIX COLUMNS\r\nC\r\n      ITEST = MOD( LASMEMS, 4 )\r\n      IF ( ITEST .EQ. 1 ) GO TO 90\r\n      IF ( ITEST .EQ. 0 ) LASMEMS = LASMEMS - 3\r\n      IF ( ITEST .EQ. 2 ) LASMEMS = LASMEMS - 5\r\n      IF ( ITEST .EQ. 3 ) LASMEMS = LASMEMS - 6\r\n90    CONTINUE\r\n      IPROW1 = 1\r\n      IPROWN = NDR\r\n      INCRP  = 1\r\n      CALL GOPEN ( FILEA, ZR( IBUF1 ), RDREW )\r\n      CALL GOPEN ( FILEB, ZR( IBUF2 ), RDREW )\r\n      IF ( FILEC( 1 ) .NE. 0 .AND. SIGNC .NE. 0 ) \r\n     &CALL GOPEN ( FILEC, ZR( IBUF3 ), RDREW )\r\n      IPASS  = 0\r\n      IRCOLN = 0\r\n      NWDDNDR= NWDD*NDR\r\n      CALL GOPEN ( FILED, ZR( IBUF4 ), WRTREW)\r\n      FILED( 2 ) = 0\r\n      FILED( 6 ) = 0\r\n      FILED( 7 ) = 0\r\n100   IPASS  = IPASS + 1\r\n      IRCOL1 = IRCOLN + 1\r\n      IRCOLN = NBC\r\n      IRFILE = FILEB( 1 )       \r\n      SIGN   = SIGNAB      \r\n      LASMEM = LASMEMS - IBX\r\n      IF ( IPASS  .NE. 1 ) \r\n     &  CALL DSSPOS ( IRFILE, IRPOS( 1 ), IRPOS( 2 ),IRPOS( 3 ) )\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMARM1 ( ZI( IBX ), ZR( IBX  ), NWDDNDR)\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMARM2 ( ZI( IBX ), ZD( IBX2 ), NWDDNDR)\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMARM3 ( ZI( IBX ), ZC( IBX2 ), NWDDNDR)\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMARM4 ( ZI( IBX ), ZD( IBX2 ), NWDDNDR)\r\n      NCOLPP = IRCOLN - IRCOL1 + 1\r\n      IBROW  = IRCOL1 - 1\r\n      IDX    = LASMEM + IBX\r\n      IDX2   = ( ( IDX+1 ) / 2 ) - 1  \r\n      IDX4   = ( IDX+1 ) / 4    \r\n      IF ( IPASS .EQ. 1 ) GO TO 300\r\n      CALL REWIND( FILEA )\r\n      CALL SKPREC( FILEA, 1 )\r\n300   CONTINUE\r\nC\r\nC NOW READ INTO MEMORY THE \"C\" FILE.\r\nC READ AS MANY COLUMNS OF THIS AS WERE READ OF THE \"B\" MATRIX\r\nC\r\n      IF ( FILEC( 1 ) .EQ. 0 .OR. SIGNC .EQ. 0 ) GO TO 800\r\n      INDXD  = IDX\r\n      TYPEU  = NDTYPE * SIGNC\r\n      IUROW1 = 1\r\n      IUROWN = NCR\r\n      DO 700 I = 1, NCOLPP\r\n      CALL UNPACK( * 650, FILEC, ZR( INDXD ) )\r\n      GO TO 680\r\nC\r\nC NULL COLUMN READ ON \"C\"\r\nC\r\n650   CONTINUE\r\n      LEN = INDXD + NWDDNDR - 1\r\n      DO 620 K = INDXD, LEN\r\n      ZR( K ) = 0.0\r\n620   CONTINUE\r\n680   CONTINUE\r\n      INDXD   = INDXD + NWDDNDR\r\n700   CONTINUE\r\n      GO TO 900\r\nC\r\nC \"C\" MATRIX IS NULL OR \"SIGNC\" IS ZERO\r\nC\r\n800   CONTINUE\r\n      LEN = IDX + NCOLPP*NWDDNDR - 1\r\n      DO 850 K = IDX, LEN\r\n      ZR( K ) = 0.0\r\n850   CONTINUE\r\n900   CONTINUE\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" MATRIX\r\nC\r\n      SIGN = 1\r\n      IF ( KSYS58 .EQ. 40 ) GO TO 950\r\n      IF ( KSYS58 .EQ. 41 ) GO TO 1000\r\n      IF ( NASTOR .EQ. 2  ) GO TO 1000     \r\nC PROCESS ALL OF THE COLUMNS OF \"B\", ADD \"C\" DATA ON FIRST PASS\r\n950   CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA401( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA402( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA403( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA404( ZI, ZD, ZDC )\r\n      GO TO 60000\r\n1000  CONTINUE\r\n      IF ( NDTYPE .EQ. 1 ) CALL MMA411( ZI, ZR )\r\n      IF ( NDTYPE .EQ. 2 ) CALL MMA412( ZI, ZD )\r\n      IF ( NDTYPE .EQ. 3 ) CALL MMA413( ZI, ZC )\r\n      IF ( NDTYPE .EQ. 4 ) CALL MMA414( ZI, ZD, ZDC )\r\n60000 CONTINUE\r\n      IF ( IRCOLN .LT. NBC ) GO TO 100\r\nC\r\nC ALL COLUMNS OF A HAVE BEEN PROCESSED, MULTIPLICATION COMPLETE\r\nC\r\n      CALL CLOSE ( FILEA, CLSREW )\r\n      CALL CLOSE ( FILEB, CLSREW )\r\n      CALL CLOSE ( FILEC, CLSREW )\r\n      CALL CLOSE ( FILED, CLSREW )\r\n      MODULE( 3 ) = JEND\r\n      CALL CONMSG ( MODULE, 3, 0 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mma401.f",
    "content": "      SUBROUTINE MMA401 ( ZI, ZR )\r\nC\r\nC     MMA401 PERFORMS THE MATRIX OPERATION USING METHOD 40 \r\nC       IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA401 USES METHOD 40 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"A\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC      print *,' processing column of a, ii=',ii\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZR( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1    \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = INDXB + 2 + II - IROWB1\r\n      IF ( ZR( INDXBV ) .EQ. 0.0 ) GO TO 1450\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXA+K ) * ZR( INDXBV )\r\n1400  CONTINUE\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) + II - 1 \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXBV = INDXB + 2 - IROWB1 \r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( INDXD ) = ZR( INDXD ) + ZR( INDXA+K ) * ZR( INDXBV+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS\r\n      GO TO 11000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX + ( K-1 ) * NDR\r\n      CALL PACK ( ZR( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma402.f",
    "content": "      SUBROUTINE MMA402 ( ZI, ZD )\r\nC\r\nC     MMA402 PERFORMS THE MATRIX OPERATION USING METHOD 40 \r\nC       IN REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA402 USES METHOD 40 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"A\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC      print *,' processing column of a, ii=',ii\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZD( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX2 + ( I-1 )*NDR    \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1\r\n      IF ( ZD( INDXBV ) .EQ. 0.0D0 ) GO TO 1450\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZD( INDXDV+K ) = ZD( INDXDV+K ) + ZD( INDXA+K ) * ZD( INDXBV )\r\n1400  CONTINUE\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX2 + ( I-1 )*NDR  + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXBV = ( (INDXB + 3) / 2 ) - IROWB1 \r\n      DO 14000 K = IROW1, IROWN\r\n      ZD( INDXDV ) = ZD( INDXDV ) + ZD( INDXA+K ) * ZD( INDXBV+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 11000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZD( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma403.f",
    "content": "      SUBROUTINE MMA403 ( ZI, ZC )\r\nC\r\nC     MMA403 PERFORMS THE MATRIX OPERATION USING METHOD 40 \r\nC       IN COMPLEX SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA403 USES METHOD 40 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"A\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC      print *,' processing column of a, ii=',ii\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZC( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC DOUBLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX2 + ( I-1 )*NDR    \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1\r\n      IF ( ZC( INDXBV ) .EQ. 0.0D0 ) GO TO 1450\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZC( INDXDV+K ) = ZC( INDXDV+K ) + ZC( INDXA+K ) * ZC( INDXBV )\r\n1400  CONTINUE\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX2 + ( I-1 )*NDR  + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXBV = ( (INDXB + 3) / 2 ) - IROWB1 \r\n      DO 14000 K = IROW1, IROWN\r\n      ZC( INDXDV ) = ZC( INDXDV ) + ZC( INDXA+K ) * ZC( INDXBV+K )\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 11000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZC( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma404.f",
    "content": "      SUBROUTINE MMA404 ( ZI, ZD, ZDC )\r\nC\r\nC     MMA404 PERFORMS THE MATRIX OPERATION USING METHOD 40 \r\nC       IN COMPLEX DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA404 USES METHOD 40 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"A\" AND \"C\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      DO 60000 II = 1, NAC\r\nC      print *,' processing column of a, ii=',ii\r\n      IUROW1 = -1\r\n      TYPEU  = NDTYPE  \r\n      CALL UNPACK ( *50000, FILEA, ZDC( 1 ) )\r\n      IROWA1 = IUROW1\r\n      IROWAN = IUROWN\r\n      INDXA  = 1 - IROWA1    \r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC DOUBLE PRECISION\r\nC\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX4 + ( I-1 )*NDR    \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + 2*( II - IROWB1 )\r\n      IF ( ZD( INDXBV   ) .EQ. 0.0D0 .AND.\r\n     &     ZD( INDXBV+1 ) .EQ. 0.0D0  ) GO TO 1450\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZDC( INDXDV+K ) = ZDC( INDXDV+K ) + ZDC( INDXA+K ) * \r\n     &                 DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) )\r\n1400  CONTINUE\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 50000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXDV = IDX4 + ( I-1 )*NDR  + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 14100\r\n      INDXBV = ( (INDXB + 3) / 2 ) + 2*(IROW1-IROWB1) \r\n      DO 14000 K = IROW1, IROWN\r\n      ZDC( INDXDV ) = ZDC( INDXDV ) + ZDC( INDXA+K ) * \r\n     &               DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) )\r\n      INDXBV = INDXBV + 2\r\n14000 CONTINUE\r\n14100 CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 11000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\n      GO TO 50000\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n50000 CONTINUE\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX4 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZDC( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma411.f",
    "content": "      SUBROUTINE MMA411 ( ZI, ZR )\r\nC\r\nC     MMA411 PERFORMS THE MATRIX OPERATION USING METHOD 41 \r\nC       IN REAL SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA411 USES METHOD 41 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"C\".\r\nC       5.  CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"A\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      REAL              ZR(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      IRFILE = FILEA( 1 )\r\n      SIGN   = 1\r\n      DO 60000 II = 1, NAC\r\nC      print *,' processing column of a, ii=',ii\r\nC      \r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC1 ( ZI, ZR )\r\nC      \r\nC CHECK FOR NULL COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC SINGLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) - 1    \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = INDXB + 2 + II - IROWB1\r\n      IF ( ZR( INDXBV ) .EQ. 0.0 ) GO TO 1450\r\n      INDXA  = 1\r\n1200  CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZR( INDXD+K ) = ZR( INDXD+K ) + ZR( INDXAV+K ) * ZR( INDXBV )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      IF ( INDXA .LT. LASIND ) GO TO 1200\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC SINGLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXA  = 1\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX + ( I-1 )*NDR ) + II - 1 \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = INDXB + 2 - IROWB1    \r\n      INDXB  = INDXB + 2 + IROWS\r\n12000 CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 11000\r\n      INDXAV = INDXA + 2 - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZR( INDXD ) = ZR( INDXD ) + ZR( INDXAV+K ) * ZR( INDXBV+K )\r\n14000 CONTINUE\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS\r\n      IF ( INDXA .GE. LASIND ) GO TO 14500\r\n      GO TO 12000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX + ( K-1 ) * NDR\r\n      CALL PACK ( ZR( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma412.f",
    "content": "      SUBROUTINE MMA412 ( ZI, ZD )\r\nC           \r\nC     MMA412 PERFORMS THE MATRIX OPERATION USING METHOD 41 \r\nC       IN REAL DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA412 USES METHOD 41 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"C\".\r\nC       5.  CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"A\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      IRFILE = FILEA( 1 )\r\n      SIGN   = 1\r\n      DO 60000 II = 1, NAC\r\nC      \r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC2 ( ZI, ZD )\r\nC      \r\nC CHECK FOR NULL COLUMN FROM \"A\" MATRIX\r\nC\r\n      IF ( ZI( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC READ DOUBLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX2 + ( I-1 )*NDR )     \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1\r\n      IF ( ZD( INDXBV ) .EQ. 0.0 ) GO TO 1450\r\n      INDXA  = 1\r\n1200  CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZD( INDXD+K ) = ZD( INDXD+K ) + ZD( INDXAV+K ) * ZD( INDXBV )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .LT. LASIND ) GO TO 1200\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC READ DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXA  = 1\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX2 + ( I-1 )*NDR ) + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) - IROWB1    \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 11000\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZD( INDXD ) = ZD( INDXD ) + ZD( INDXAV+K ) * ZD( INDXBV+K )\r\n14000 CONTINUE\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .GE. LASIND ) GO TO 14500\r\n      GO TO 12000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZD( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma413.f",
    "content": "      SUBROUTINE MMA413 ( ZI, ZC )\r\nC           \r\nC     MMA413 PERFORMS THE MATRIX OPERATION USING METHOD 41 \r\nC       IN COMPLEX SINGLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA413 USES METHOD 41 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"C\".\r\nC       5.  CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"A\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      COMPLEX           ZC(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      IRFILE = FILEA( 1 )\r\n      SIGN   = 1\r\n      DO 60000 II = 1, NAC\r\nC      \r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC3 ( ZI, ZC )\r\nC      \r\nC CHECK FOR NULL COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMPLEX SINGLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX2 + ( I-1 )*NDR )     \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + II - IROWB1\r\n      IF ( ZC( INDXBV ) .EQ. 0.0 ) GO TO 1450\r\n      INDXA  = 1\r\n1200  CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZC( INDXD+K ) = ZC( INDXD+K ) + ZC( INDXAV+K ) * ZC( INDXBV )\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .LT. LASIND ) GO TO 1200\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX SINGLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXA  = 1\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX2 + ( I-1 )*NDR ) + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) - IROWB1    \r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 11000\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) - IROWA1\r\n      DO 14000 K = IROW1, IROWN\r\n      ZC( INDXD ) = ZC( INDXD ) + ZC( INDXAV+K ) * ZC( INDXBV+K )\r\n14000 CONTINUE\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .GE. LASIND ) GO TO 14500\r\n      GO TO 12000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX2 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZC( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mma414.f",
    "content": "      SUBROUTINE MMA414 ( ZI, ZD, ZDC )\r\nC           \r\nC     MMA414 PERFORMS THE MATRIX OPERATION USING METHOD 41 \r\nC       IN COMPLEX DOUBLE PRECISION\r\nC       (+/-)A(T & NT) * B (+/-)C = D\r\nC     \r\nC     MMA414 USES METHOD 41 WHICH IS AS FOLLOWS:\r\nC       1.  THIS IS FOR \"A\" NON-TRANSPOSED AND TRANSPOSED\r\nC       2.  READ AS MANY COLUMNS OF \"B\" INTO MEMORY AS POSSIBLE\r\nC           INTO MEMORY IN COMPACT FORM LEAVING SPACE FOR A FULL\r\nC           COLUMN OF \"D\" FOR EVERY COLUMN \"B\" READ.  SEE SUBROUTINES\r\nC           MMARM1,2,3,4 FOR FORMAT OF COMPACT FORM.\r\nC       3.  INITIALIZE EACH COLUMN OF \"D\" WITH THE DATA FROM \"C\".\r\nC       4.  CALL UNPACK TO READ MATRICES \"C\".\r\nC       5.  CALL MMARC1,2,3,4 TO READ COLUMNS OF MATRIX \"A\".\r\nC\r\n      INTEGER           ZI(2)      ,T\r\n      INTEGER           TYPEI      ,TYPEP    ,TYPEU ,SIGNAB, SIGNC\r\n      INTEGER           RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      INTEGER           FILEA      ,FILEB ,FILEC , FILED\r\n      DOUBLE COMPLEX    ZDC(2)\r\n      DOUBLE PRECISION  ZD(2)\r\n      INCLUDE           'MMACOM.COM'\r\n      COMMON / NAMES  / RD         ,RDREW    ,WRT   ,WRTREW, CLSREW,CLS\r\n      COMMON / TYPE   / IPRC(2)    ,NWORDS(4),IRC(4)\r\n      COMMON / MPYADX / FILEA(7)   ,FILEB(7) ,FILEC(7)    \r\n     1,                 FILED(7)   ,NZ       ,T     ,SIGNAB,SIGNC ,PREC1 \r\n     2,                 SCRTCH     ,TIME\r\n      COMMON / SYSTEM / KSYSTM(152)\r\n      COMMON / UNPAKX / TYPEU      ,IUROW1   ,IUROWN, INCRU\r\n      COMMON / PACKX  / TYPEI      ,TYPEP    ,IPROW1, IPROWN , INCRP\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  , (KSYSTM( 2),IWR   ) \r\n      EQUIVALENCE       (FILEA(2)  ,NAC   )  , (FILEA(3)  ,NAR   )\r\n     1,                 (FILEA(4)  ,NAFORM)  , (FILEA(5)  ,NATYPE)\r\n     2,                 (FILEA(6)  ,NANZWD)  , (FILEA(7)  ,NADENS)\r\n      EQUIVALENCE       (FILEB(2)  ,NBC   )  , (FILEB(3)  ,NBR   )\r\n     1,                 (FILEB(4)  ,NBFORM)  , (FILEB(5)  ,NBTYPE)\r\n     2,                 (FILEB(6)  ,NBNZWD)  , (FILEB(7)  ,NBDENS)\r\n      EQUIVALENCE       (FILEC(2)  ,NCC   )  , (FILEC(3)  ,NCR   )\r\n     1,                 (FILEC(4)  ,NCFORM)  , (FILEC(5)  ,NCTYPE)\r\n     2,                 (FILEC(6)  ,NCNZWD)  , (FILEC(7)  ,NCDENS)\r\n      EQUIVALENCE       (FILED(2)  ,NDC   )  , (FILED(3)  ,NDR   )\r\n     1,                 (FILED(4)  ,NDFORM)  , (FILED(5)  ,NDTYPE)\r\n     2,                 (FILED(6)  ,NDNZWD)  , (FILED(7)  ,NDDENS)\r\nC\r\nC\r\nC   OPEN CORE ALLOCATION AS FOLLOWS:\r\nC     Z( 1        ) = ARRAY FOR ONE COLUMN OF \"A\" MATRIX\r\nC     Z( IBX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"B\" MATRIX\r\nC                     (STORED IN COMPACT FORM)\r\nC     Z( IDX      ) = ARRAY FOR MULTIPLE COLUMNS OF \"D\" MATRIX\r\nC                     (FULL COLUMN SPACE ALLOCATION)\r\nC        THROUGH\r\nC     Z( LASMEM   )\r\nC     Z( IBUF4    ) = BUFFER FOR \"D\" FILE\r\nC     Z( IBUF3    ) = BUFFER FOR \"C\" FILE\r\nC     Z( IBUF2    ) = BUFFER FOR \"B\" FILE \r\nC     Z( IBUF1    ) = BUFFER FOR \"A\" FILE\r\nC     Z( NZ       ) = END OF OPEN CORE THAT IS AVAILABLE\r\nC\r\nC\r\nC PROCESS ALL OF THE COLUMNS OF \"A\" \r\nC      \r\n      IRFILE = FILEA( 1 )\r\n      SIGN   = 1\r\n      DO 60000 II = 1, NAC\r\nC      \r\nC READ A COLUMN FROM THE \"A\" MATRIX\r\nC\r\n      CALL MMARC4 ( ZI, ZD )\r\nC      \r\nC CHECK IF COLUMN FROM \"A\" MATRIX IS NULL\r\nC\r\n      IF ( ZI ( 1 ) .EQ. 0 ) GO TO 60000\r\n      IF ( T .NE. 0 ) GO TO 5000\r\nC      \r\nC \"A\" NON-TRANSPOSE CASE    ( A*B + C )      \r\nC\r\nC COMPLEX DOUBLE PRECISION\r\n1000  CONTINUE\r\n      INDXB  = IBX\r\n      DO 1500 I = 1, NCOLPP\r\n      ICOLB  = IBROW + I\r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX4 + ( I-1 )*NDR )     \r\n1100  CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 1450\r\n      IROWB1 = ZI( INDXB   )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      IF ( II .GT. IROWBN ) GO TO 1410\r\n      IF ( II .LT. IROWB1 ) GO TO 1450\r\n      INDXBV = ( ( INDXB + 3 ) / 2 ) + 2*( II - IROWB1 )\r\n      IF ( ZD( INDXBV   ) .EQ. 0.0D0 .AND.\r\n     &     ZD( INDXBV+1 ) .EQ. 0.0D0 ) GO TO 1450\r\n      INDXA  = 1\r\n1200  CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) \r\n      DO 1400 K = IROWA1, IROWAN\r\n      ZDC( INDXD+K ) = ZDC( INDXD+K ) + \r\n     &       DCMPLX( ZD( INDXAV ), ZD( INDXAV+1 ) ) * \r\n     &       DCMPLX( ZD( INDXBV ), ZD( INDXBV+1 ) )\r\n      INDXAV = INDXAV + 2\r\n1400  CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .LT. LASIND ) GO TO 1200\r\n      GO TO 1450\r\n1410  CONTINUE\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n      GO TO 1100\r\n1450  INDXB  = INDXBL\r\n1500  CONTINUE\r\n      GO TO 60000\r\nC\r\nC  TRANSPOSE CASE ( A(T) * B + C )\r\nC\r\n5000  CONTINUE      \r\nC COMPLEX DOUBLE PRECISION\r\n10000 CONTINUE\r\n      INDXB  = IBX\r\n      DO 15000 I = 1, NCOLPP\r\n      INDXA  = 1\r\n      ICOLB  = IBROW + I \r\n      IF ( ICOLB .NE. IABS( ZI( INDXB ) ) ) GO TO 70001\r\n      INDXBL = ZI( INDXB+1 ) + IBX - 1\r\n      INDXB  = INDXB + 2\r\n      INDXD  = ( IDX4 + ( I-1 )*NDR ) + II  \r\n11000 CONTINUE\r\n      IF ( INDXB .GE. INDXBL ) GO TO 14500\r\n      IROWB1 = ZI( INDXB )\r\n      IROWS  = ZI( INDXB+1 )\r\n      IROWBN = IROWB1 + IROWS - 1\r\n      INDXBS = INDXB\r\n      INDXB  = INDXB + 2 + IROWS*NWDD\r\n12000 CONTINUE\r\n      IROWA1 = ZI( INDXA   )\r\n      NTMS   = ZI( INDXA+1 )\r\n      IROWAN = IROWA1 + NTMS - 1\r\n      IF ( IROWBN .LT. IROWA1 ) GO TO 11000\r\n      IF ( IROWAN .LT. IROWB1 ) GO TO 14200\r\n      IROW1  = MAX0( IROWA1, IROWB1 )\r\n      IROWN  = MIN0( IROWAN, IROWBN )\r\n      IF ( IROWN .LT. IROW1 ) GO TO 11000\r\n      INDXBV = ( ( INDXBS+ 3 ) / 2 ) + 2*( IROW1 - IROWB1 ) - 1 \r\n      INDXAV = ( ( INDXA + 3 ) / 2 ) + 2*( IROW1 - IROWA1 ) - 1\r\n      ICNT   = 2*( IROWN - IROW1 ) + 1\r\n      DO 14000 K = 1, ICNT, 2\r\n      ZDC( INDXD ) = ZDC( INDXD ) +\r\n     &               DCMPLX( ZD( INDXAV+K ), ZD( INDXAV+K+1 ) ) *\r\n     &               DCMPLX( ZD( INDXBV+K ), ZD( INDXBV+K+1 ) )\r\n14000 CONTINUE\r\n      IF ( IROWAN .GT. IROWBN ) GO TO 11000\r\n14200 CONTINUE\r\n      INDXA  = INDXA + 2 + NTMS*NWDD\r\n      IF ( INDXA .GE. LASIND ) GO TO 14500\r\n      GO TO 12000\r\n14500 CONTINUE\r\n      INDXB  = INDXBL\r\n15000 CONTINUE\r\nC END OF PROCESSING THIS COLUMN OF \"A\" FOR THIS PASS\r\n60000 CONTINUE\r\nC  NOW SAVE COLUMNS COMPLETED \r\n      DO 65000 K = 1, NCOLPP\r\n      INDX = IDX4 + ( K-1 ) * NDR + 1\r\n      CALL PACK ( ZDC( INDX ), FILED, FILED )\r\n65000 CONTINUE\r\n      GO TO 70000\r\n70001 WRITE ( IWR, 90001 ) ICOLB, ZI( INDXB ), IBX, INDXB\r\n90001 FORMAT(' UNEXPECTED COLUMN FOUND IN PROCESSING MATRIX B'\r\n     &,/,' COLUMN EXPECTED:',I6\r\n     &,/,' COLUMN FOUND   :',I6\r\n     &,/,' IBX =',I7,'  INDXB =',I7 )\r\n      CALL MESAGE ( -61, 0, 0 )\r\n70000 RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mmarc1.f",
    "content": "      SUBROUTINE MMARC1 ( ZI, ZR )\r\nC  MMARC1 - This routine will store a matrix column in memory in compact\r\nC           form and in real single precision.  The input matrix is \r\nC           assumed to be stored as real single precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC\r\nC  1st word = row position of first element in following string \r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC\r\nC  The above data repeats for all strings within a column\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZR  - Same location as ZI but real single reference \r\nC\r\n      REAL             ZR(1)\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15) \r\n      INCLUDE          'MMACOM.COM'         \r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      MEM       = 1\r\n      DO 10 I   = 1,15\r\n10    IBLK(I)   = 0\r\n      IBLK(1)   = IRFILE\r\n      IBLK(8)   = -1\r\n      LASIND    = MEM - 1        \r\n      ZI( MEM ) = 0\r\n100   CALL GETSTR ( *7000, IBLK )\r\n      JROW      = IBLK( 4 )   \r\n      INDEX     = IBLK( 5 )\r\n      NTMS      = IBLK( 6 )\r\n      ZI(MEM)   = JROW\r\n      ZI(MEM+1) = NTMS\r\n      MEM       = MEM + 1\r\n      DO 200 II = 1,NTMS\r\n      ZR(MEM+II)= SIGN*RXL(INDEX+II-1)\r\n  200 CONTINUE\r\n      MEM       = MEM + 1 + NTMS  \r\n      CALL ENDGET ( IBLK )\r\n      GO TO 100\r\n 7000 CONTINUE  \r\n      LASIND    = MEM - 1        \r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarc2.f",
    "content": "      SUBROUTINE MMARC2 ( ZI, ZD )\r\nC  MMARC2 - This routine will store a matrix column in memory in compact\r\nC           form and in real double precision.  The input matrix is \r\nC           assumed to be stored as either real single or double precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC\r\nC  1st word = row position of first element in following string \r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC\r\nC  The above data repeats for all strings within a column \r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZD  - Same location as ZI but real double reference \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15) \r\n      REAL             RXL(1)       \r\n      DOUBLE PRECISION ZD(1), DXL     \r\n      INCLUDE          'MMACOM.COM'          \r\n      COMMON  /ZZZZZZ/ DXL(1)\r\n      EQUIVALENCE      ( DXL,RXL )\r\n      MEM      = 1\r\n      DO 10 I  = 1,15\r\n 10   IBLK(I)  = 0\r\n      IBLK(1)  = IRFILE\r\n      IBLK(8)  = -1     \r\n      LASIND   = MEM - 1        \r\n      ZI( MEM ) = 0\r\n  100 CALL GETSTR ( *7000, IBLK )\r\n      ITYPE    = IBLK( 2 )\r\n      JROW     = IBLK( 4 )      \r\n      INDEX    = IBLK( 5 )\r\n      NTMS     = IBLK( 6 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM/2 + 1\r\n      DO 115 II = 1,NTMS\r\n      ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  115 CONTINUE\r\n      GO TO 180\r\n  120 CONTINUE\r\n      MINDEX     = MEM/2+1\r\n      DO 125 II  = 1,NTMS\r\n      ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 )\r\n  125 CONTINUE\r\n  180 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*2  \r\n      CALL ENDGET ( IBLK )\r\n      GO TO 100\r\n 7000 CONTINUE  \r\n      LASIND     = MEM - 1        \r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarc3.f",
    "content": "      SUBROUTINE MMARC3 ( ZI, ZR )\r\nC\r\nC  MARRC3 - This routine will store a matrix column in memory in compact\r\nC           form and in complex single precision.  The input matrix is\r\nC           assumed to be stored as either real or complex single precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC  1st word = row position of first element in following string \r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC\r\nC  The above data repeats for all strings within a column\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZR  - Same location as ZI but real single reference \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15) \r\n      REAL             ZR(1)       \r\n      INCLUDE          'MMACOM.COM'        \r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      COMMON  /SYSTEM/ IBFSIZ, IWR\r\n      MEM      = 1\r\n      DO 10 I  = 1,15\r\n 10   IBLK(I)  = 0\r\n      IBLK(1)  = IRFILE\r\n      IBLK(8)  = -1     \r\n      LASIND   = MEM - 1        \r\n      ZI( MEM )= 0\r\n  100 CALL GETSTR ( *1000, IBLK )\r\n      ITYPE    = IBLK( 2 )\r\n      JROW     = IBLK( 4 )      \r\n      INDEX    = IBLK( 5 )\r\n      NTMS     = IBLK( 6 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120, 130 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM + 2\r\n      DO 115 II = 1,NTMS\r\n      ZR( MINDEX   ) = SIGN*RXL( INDEX+II-1 )\r\n      ZR( MINDEX+1 ) = 0.\r\n      MINDEX = MINDEX+2\r\n  115 CONTINUE\r\n      GO TO 180\r\nC\r\nC THE FOLLOWING LINE SHOULD NEVER BE REFERENCED\r\nC\r\n  120 CONTINUE\r\n      WRITE( IWR, * ) ' ERROR IN MMARC3'\r\n      STOP\r\n  130 CONTINUE\r\n      MINDEX   = MEM + 1\r\n      NTMS2    = NTMS*2\r\n      DO 135 II = 1,NTMS2\r\n      ZR( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  135 CONTINUE\r\n  180 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*2  \r\n      CALL ENDGET ( IBLK )\r\n      GO TO 100\r\n 1000 CONTINUE  \r\n      LASIND     = MEM - 1        \r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarc4.f",
    "content": "      SUBROUTINE MMARC4 ( ZI, ZD )\r\nC  MMARC4 - This routine will store a matrix column in memory in compact\r\nC           form and in complex double precision.  The input matrix can\r\nC           be stored in any precision or type.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC\r\nC  1st word = row position of first element in following string \r\nC  2nd word = number of terms in string (ntms)\r\nC  3rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  3+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC\r\nC  The above data repeats for all strings within a column\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZD  - Same location as ZI but real double reference   \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15) \r\n      DOUBLE PRECISION ZD(1), DXL(1)\r\n      INCLUDE          'MMACOM.COM'           \r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      EQUIVALENCE      ( RXL, DXL )\r\n      MEM      = 1\r\n      DO 10 I  = 1,15\r\n 10   IBLK(I)  = 0\r\n      IBLK(1)  = IRFILE\r\n      IBLK(8)  = -1     \r\n      LASIND   = MEM - 1        \r\n      ZI( MEM) = 0\r\n  100 CALL GETSTR ( *1000, IBLK )\r\n      ITYPE    = IBLK( 2 )\r\n      JROW     = IBLK( 4 )      \r\n      INDEX    = IBLK( 5 )\r\n      NTMS     = IBLK( 6 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120, 130, 140 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM/2 + 1\r\n      DO 115 II = 1,NTMS\r\n      ZD( MINDEX+1 ) = SIGN*RXL( INDEX+II-1 )\r\n      ZD( MINDEX+2 ) = 0.D0\r\n      MINDEX = MINDEX+2\r\n  115 CONTINUE\r\n      GO TO 180\r\n  120 CONTINUE\r\n      MINDEX = MEM/2 + 1\r\n      DO 125 II = 1,NTMS\r\n      ZD( MINDEX+1 ) = SIGN*DXL( INDEX+II-1 )\r\n      ZD( MINDEX+2 ) = 0.D0\r\n      MINDEX  = MINDEX + 2\r\n  125 CONTINUE\r\n      GO TO 180\r\n  130 CONTINUE\r\n      MINDEX  = MEM/2 + 1 \r\n      NTMS2   = NTMS*2\r\n      DO 135 II = 1,NTMS2\r\n      ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  135 CONTINUE\r\n      GO TO 180\r\n  140 CONTINUE\r\n      MINDEX  = MEM/2 + 1 \r\n      NTMS2   = NTMS*2\r\n      DO 145 II = 1,NTMS2\r\n      ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 )\r\n  145 CONTINUE\r\n  180 CONTINUE\r\n      MEM     = MEM + 2 + NTMS*4  \r\n      CALL ENDGET ( IBLK )\r\n      GO TO 100\r\n 1000 CONTINUE  \r\n      LASIND  = MEM - 1        \r\n      RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarm1.f",
    "content": "      SUBROUTINE MMARM1 ( ZI, ZR, MEMPCOL )\r\nC\r\nC  MMARM1 - This routine will store matrix columns in memory in compact\r\nC           form and in real single precision.  The input matrix is \r\nC           assumed to be stored as real single precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC  MEMPCOL  = Input, extra memory needed for each column that is stored\r\nC             in memory in compact form.  This is needed for methods 40\r\nC             and 41 where for each column of \"B\" stored in compact form\r\nC             in memory, there needs to be space available for a column\r\nC             of the \"D\" matrix.\r\nC\r\nC  1st word = column number (negative)\r\nC  2nd word = index to next column within this array\r\nC  3st word = row position of first element in following string \r\nC  4nd word = number of terms in string (ntms)\r\nC  5rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  5+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC     n               } Last value of last string for this column\r\nC\r\nC  Words 3 through 5+(ntms*prec) above data repeat for all strings \r\nC  within a column.  Words 1 through n repeat for all columns that are\r\nC  read into memory.\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZR  - Same location as ZI but real single reference \r\nC\r\n      REAL             ZR(1)\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15), MODULE( 2 )\r\n      INCLUDE          'MMACOM.COM'         \r\n      COMMON  /SYSTEM/ IBFSIZ, IWR\r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      DATA             MODULE / 4HMMAR, 4HM1   /\r\n      MEM       = 1\r\n      DO 10 I   = 1,15\r\n10    IBLK(I)   = 0\r\n      IBLK(1)   = IRFILE\r\nC\r\nC IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS\r\nC IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED \r\nC         ON OUTPUT, THIS IS THE LAST COLUMN READ\r\nC LASMEM, LAST AVAILABLE MEMORY INDEX TO THE \"ZI\" ARRAY\r\nC      \r\n      ICOL      = IRCOL1\r\n100   CONTINUE                   \r\n      IBLK(8)   = -1\r\n      LASINDM   = MEM - 1        \r\n      CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP )\r\n      CALL GETSTR ( *900, IBLK )\r\nC      IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001\r\n      ZI(MEM  ) = -ICOL\r\n      MEM1      = MEM + 1\r\n      MEM       = MEM + 2\r\n105   CONTINUE\r\n      NTMS      = IBLK( 6 )\r\n      IF ( ( MEM + 2 + NTMS ) .GT. LASMEM ) GO TO 2000 \r\n      JROW      = IBLK( 4 )   \r\n      INDEX     = IBLK( 5 )\r\n      ZI(MEM)   = JROW\r\n      ZI(MEM+1) = NTMS\r\n      MEM       = MEM + 1\r\n      DO 300 II = 1,NTMS\r\n      ZR(MEM+II)= SIGN*RXL(INDEX+II-1)\r\n300   CONTINUE\r\n      MEM       = MEM + 1 + NTMS  \r\n      CALL ENDGET ( IBLK )\r\n      CALL GETSTR ( *1000, IBLK )\r\n      GO TO 105\r\n900   CONTINUE\r\n      ZI( MEM )   = -ICOL\r\n      MEM1        = MEM + 1\r\n      MEM         = MEM + 2\r\n1000  CONTINUE\r\nC\r\nC CHECK If SPACE AVAILABLE FOR A FULL COLUMN OF \"D\" MATRIX, IF NECESSARY\r\nC\r\n      IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000\r\n      LASMEM      = LASMEM - MEMPCOL\r\n      ZI( MEM1 )  = MEM \r\n      ICOL        = ICOL + 1\r\n      IF ( ICOL .GT. IRCOLN ) GO TO 7000\r\n      GO TO 100\r\n2000  LASINDM   = MEM1 - 2\r\nC \r\nC SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS\r\nC\r\n      IRPOS( 1 ) = ICBLK\r\n      IRPOS( 2 ) = ICLR\r\n      IRPOS( 3 ) = ICBP\r\n      IRCOLN     = ICOL - 1\r\n      IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE )\r\n      GO TO 7777\r\n7000  CONTINUE  \r\n      LASINDM    = MEM - 1        \r\nC      GO TO 7777\r\nC7001  WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE\r\nC9001  FORMAT(' ERROR OCCURRED IN MMARM1, EXPECTED COLUMN =',I10\r\nC     &,/,    ' BUT READ COLUMN =',I10,' FROM FILE =',I5 )\r\nC      CALL DSMSG( 777 )\r\nC      CALL MESAGE ( -61, 0, 0 )\r\n7777  RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarm2.f",
    "content": "      SUBROUTINE MMARM2 ( ZI, ZD, MEMPCOL )\r\nC\r\nC  MMARM2 - This routine will store matrix columns in memory in compact\r\nC           form and in real double precision.  The input matrix is \r\nC           assumed to be stored as either real single or double precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC  MEMPCOL  = Input, extra memory needed for each column that is stored\r\nC             in memory in compact form.  This is needed for methods 40\r\nC             and 41 where for each column of \"B\" stored in compact form\r\nC             in memory, there needs to be space available for a column\r\nC             of the \"D\" matrix.\r\nC\r\nC\r\nC  1st word = column number (negative)\r\nC  2nd word = index to next column within this array\r\nC  3st word = row position of first element in following string \r\nC  4nd word = number of terms in string (ntms)\r\nC  5rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  5+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC     n               } Last value of last string for this column\r\nC\r\nC  Words 3 through 5+(ntms*prec) above data repeat for all strings \r\nC  within a column.  Words 1 through n repeat for all columns that are\r\nC  read into memory.\r\n\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZD  - Same location as ZI but real double reference \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15), MODULE(2) \r\n      REAL             RXL(1)       \r\n      DOUBLE PRECISION ZD(1), DXL     \r\n      INCLUDE          'MMACOM.COM'          \r\n      COMMON  /ZZZZZZ/ DXL(1)\r\n      COMMON  /SYSTEM/ IBFSIZ, IWR\r\n      EQUIVALENCE      ( DXL,RXL )\r\n      DATA             MODULE / 4HMMAR, 4HM2   /\r\n      MEM       = 1\r\n      DO 10 I   = 1,15\r\n10    IBLK(I)   = 0\r\n      IBLK(1)   = IRFILE\r\nC\r\nC IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS\r\nC IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED \r\nC         ON OUTPUT, THIS IS THE LAST COLUMN READ\r\nC LASMEM, LAST AVAILABLE MEMORY INDEX TO THE \"ZI\" ARRAY\r\nC      \r\n      ICOL      = IRCOL1\r\n100   CONTINUE                   \r\n      IBLK(8)   = -1\r\n      LASINDM   = MEM - 1        \r\n      CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP )\r\n      CALL GETSTR ( *900, IBLK )\r\nC      IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001\r\n      ZI( MEM ) = -ICOL\r\n      MEM1      = MEM + 1\r\n      MEM       = MEM + 2\r\n105   CONTINUE\r\n      NTMS     = IBLK( 6 )\r\n      IF ( ( MEM + 2 + NTMS*2 ) .GT. LASMEM ) GO TO 2000\r\n      ITYPE    = IBLK( 2 )\r\n      JROW     = IBLK( 4 )      \r\n      INDEX    = IBLK( 5 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM/2 + 1\r\n      DO 115 II = 1,NTMS\r\n      ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  115 CONTINUE\r\n      GO TO 180\r\n  120 CONTINUE\r\n      MINDEX     = MEM/2+1\r\n      DO 125 II  = 1,NTMS\r\n      ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 )\r\n  125 CONTINUE\r\n  180 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*2  \r\n      CALL ENDGET ( IBLK )\r\n      CALL GETSTR ( *1000, IBLK )\r\n      GO TO 105\r\n900   CONTINUE\r\n      ZI( MEM )   = -ICOL\r\n      MEM1        = MEM + 1\r\n      MEM         = MEM + 2\r\n1000  CONTINUE\r\nC\r\nC CHECK IF SPACE IS AVAILABLE FOR A FULL COLUMN OF \"D\" MATRIX, IF NECESSARY\r\nC\r\n      IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000\r\n      LASMEM      = LASMEM - MEMPCOL\r\n      ZI( MEM1 )  = MEM \r\n      ICOL        = ICOL + 1\r\n      IF ( ICOL .GT. IRCOLN ) GO TO 7000\r\n      GO TO 100\r\n2000  LASINDM    = MEM1 - 2\r\nC \r\nC SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS\r\nC\r\n      IRPOS( 1 ) = ICBLK\r\n      IRPOS( 2 ) = ICLR\r\n      IRPOS( 3 ) = ICBP\r\n      IRCOLN     = ICOL - 1\r\n      IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE )\r\n      GO TO 7777\r\n7000  CONTINUE  \r\n      LASINDM    = MEM - 1        \r\nC      GO TO 7777\r\nC7001  WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE\r\nC9001  FORMAT(' ERROR OCCURRED IN MMARM2, EXPECTED COLUMN =',I10\r\nC     &,/,    ' BUT READ COLUMN =',I10,' FROM FILE =',I5 )\r\nC      PRINT *,' IBLK=',IBLK\r\nC      CALL DSMSG ( 777 )\r\nC      CALL MESAGE ( -61, 0, 0 )\r\n7777  RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarm3.f",
    "content": "      SUBROUTINE MMARM3 ( ZI, ZR, MEMPCOL )\r\nC\r\nC  MMARM3 - This routine will store matrix columns in memory in compact\r\nC           form and in real complex precision.  The input matrix is \r\nC           assumed to be stored as real single or complex precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC  MEMPCOL  = Input, extra memory needed for each column that is stored\r\nC             in memory in compact form.  This is needed for methods 40\r\nC             and 41 where for each column of \"B\" stored in compact form\r\nC             in memory, there needs to be space available for a column\r\nC             of the \"D\" matrix.\r\nC\r\nC  1st word = column number (negative)\r\nC  2nd word = index to next column within this array\r\nC  3st word = row position of first element in following string \r\nC  4nd word = number of terms in string (ntms)\r\nC  5rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  5+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC     n               } Last value of last string for this column\r\nC\r\nC  Words 3 through 5+(ntms*prec) above data repeat for all strings \r\nC  within a column.  Words 1 through n repeat for all columns that are\r\nC  read into memory.\r\nC\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZR  - Same location as ZI but real single reference \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15), MODULE(2) \r\n      REAL             ZR(1)       \r\n      INCLUDE          'MMACOM.COM'        \r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      COMMON  /SYSTEM/ IBFSIZ, IWR\r\n      DATA             MODULE / 4HMMAR, 4HM3   /\r\n      MEM       = 1\r\n      DO 10 I   = 1,15\r\n10    IBLK(I)   = 0\r\n      IBLK(1)   = IRFILE\r\nC\r\nC IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS\r\nC IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED \r\nC         ON OUTPUT, THIS IS THE LAST COLUMN READ\r\nC LASMEM, LAST AVAILABLE MEMORY INDEX TO THE \"ZI\" ARRAY\r\nC      \r\n      ICOL      = IRCOL1\r\n100   CONTINUE                   \r\n      IBLK(8)   = -1\r\n      LASINDM   = MEM - 1        \r\n      CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP )\r\n      CALL GETSTR ( *900, IBLK )\r\nC      IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001\r\n      ZI(MEM  ) = -ICOL\r\n      MEM1      = MEM + 1\r\n      MEM       = MEM + 2\r\n105   CONTINUE\r\n      NTMS     = IBLK( 6 )\r\n      IF ( ( MEM + 2 + NTMS*2 ) .GT. LASMEM ) GO TO 2000 \r\n      ITYPE    = IBLK( 2 )    \r\n      JROW     = IBLK( 4 )   \r\n      INDEX    = IBLK( 5 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120, 130 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM + 2\r\n      DO 115 II = 1,NTMS\r\n      ZR( MINDEX   ) = SIGN*RXL( INDEX+II-1 )\r\n      ZR( MINDEX+1 ) = 0.\r\n      MINDEX = MINDEX+2\r\n  115 CONTINUE\r\n      GO TO 180\r\nC\r\nC THE FOLLOWING LINE SHOULD NEVER BE REFERENCED\r\nC\r\n  120 CONTINUE\r\n      WRITE( IWR, * )' ERROR IN MMARM3'\r\n      STOP\r\n  130 CONTINUE\r\n      MINDEX   = MEM + 1\r\n      NTMS2    = NTMS*2\r\n      DO 135 II = 1,NTMS2\r\n      ZR( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  135 CONTINUE\r\n  180 CONTINUE\r\n      MEM        = MEM + 2 + NTMS*2  \r\n      CALL ENDGET ( IBLK )\r\n      CALL GETSTR ( *1000, IBLK )\r\n      GO TO 105\r\n900   CONTINUE\r\n      ZI( MEM )   = -ICOL\r\n      MEM1        = MEM + 1\r\n      MEM         = MEM + 2\r\n1000  CONTINUE\r\nC\r\nC CHECK IF SPACE AVAILABLE FOR A FULL COLUMN OF \"D\" MATRIX, IF NECESSARY\r\nC\r\n      IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000\r\n      LASMEM      = LASMEM - MEMPCOL\r\n      ZI( MEM1 )  = MEM \r\n      ICOL        = ICOL + 1\r\n      IF ( ICOL .GT. IRCOLN ) GO TO 7000\r\n      GO TO 100\r\n2000  LASINDM    = MEM1 - 2\r\nC \r\nC SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS\r\nC\r\n      IRPOS( 1 ) = ICBLK\r\n      IRPOS( 2 ) = ICLR\r\n      IRPOS( 3 ) = ICBP\r\n      IRCOLN     = ICOL - 1\r\n      IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE )\r\n      GO TO 7777\r\n7000  CONTINUE  \r\n      LASINDM    = MEM - 1        \r\nC      GO TO 7777\r\nC7001  WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE\r\nC9001  FORMAT(' ERROR OCCURRED IN MMARM3, EXPECTED COLUMN =',I10\r\nC     &,/,    ' BUT READ COLUMN =',I10,' FROM FILE =',I5 )\r\nC      CALL MESAGE ( -61, 0, 0 )\r\n7777  RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/mmarm4.f",
    "content": "      SUBROUTINE MMARM4 ( ZI, ZD, MEMPCOL )\r\nC\r\nC  MMARM4 - This routine will store matrix columns in memory in compact\r\nC           form and in complex double precision.  The input matrix is \r\nC           can be any type and any precision.\r\nC           The column is stored in memory according to the following scheme:\r\nC\r\nC  MEMPCOL  = Input, extra memory needed for each column that is stored\r\nC             in memory in compact form.  This is needed for methods 40\r\nC             and 41 where for each column of \"B\" stored in compact form\r\nC             in memory, there needs to be space available for a column\r\nC             of the \"D\" matrix.\r\nC\r\nC  1st word = column number (negative)\r\nC  2nd word = index to next column within this array\r\nC  3st word = row position of first element in following string \r\nC  4nd word = number of terms in string (ntms)\r\nC  5rd word           }\r\nC     |               }\r\nC     |               } = actual\r\nC     |               }   matrix\r\nC     |               }   string\r\nC     |               }   data\r\nC     |               }\r\nC     |               }\r\nC  5+(ntms*prec)      } (where prec=1 for s.p.;  =2 for d.p. )\r\nC     n               } Last value of last string for this column\r\nC\r\nC  Words 3 through 5+(ntms*prec) above data repeat for all strings \r\nC  within a column.  Words 1 through n repeat for all columns that are\r\nC  read into memory.\r\nC\r\nC  Argument list :\r\nC     ZI  - Memory for storage of data (integer)\r\nC     ZD  - Same location as ZI but real double reference   \r\nC\r\n      INTEGER          ZI(1)\r\n      INTEGER          IBLK(15), MODULE(2) \r\n      DOUBLE PRECISION ZD(1), DXL(1)\r\n      INCLUDE          'MMACOM.COM'           \r\n      COMMON  /ZZZZZZ/ RXL(1)\r\n      COMMON  /SYSTEM/ IBFSIZ, IWR\r\n      EQUIVALENCE      ( RXL, DXL )\r\n      DATA             MODULE / 4HMMAR, 4HM4   /\r\n      MEM       = 1\r\n      DO 10 I   = 1,15\r\n10    IBLK(I)   = 0\r\n      IBLK(1)   = IRFILE\r\nC\r\nC IRCOL1, FIRST COLUMN EXPECTED FOR THIS PASS\r\nC IRCOLN, ON INPUT, THIS IS THE LAST COLUMN THAT IS NEEDED \r\nC         ON OUTPUT, THIS IS THE LAST COLUMN READ\r\nC LASMEM, LAST AVAILABLE MEMORY INDEX TO THE \"ZI\" ARRAY\r\nC      \r\n      ICOL      = IRCOL1\r\n100   CONTINUE                   \r\n      IBLK(8)   = -1\r\n      LASINDM   = MEM - 1        \r\n      CALL DSCPOS ( IRFILE, ICBLK, ICLR, ICBP )\r\n      CALL GETSTR ( *900, IBLK )\r\nC      IF ( ICOL .NE. IBLK( 12 ) ) GO TO 7001\r\n      ZI(MEM  ) = -ICOL\r\n      MEM1      = MEM + 1\r\n      MEM       = MEM + 2\r\n105   CONTINUE\r\n      NTMS     = IBLK( 6 )\r\n      IF ( ( MEM + 2 + NTMS*4 ) .GT. LASMEM ) GO TO 2000 \r\n      ITYPE    = IBLK( 2 )\r\n      JROW     = IBLK( 4 )      \r\n      INDEX    = IBLK( 5 )\r\n      ZI(MEM)  = JROW\r\n      ZI(MEM+1)= NTMS\r\n      GO TO ( 110, 120, 130, 140 ), ITYPE\r\n  110 CONTINUE\r\n      MINDEX   = MEM/2 + 1\r\n      DO 115 II = 1,NTMS\r\n      ZD( MINDEX+1 ) = SIGN*RXL( INDEX+II-1 )\r\n      ZD( MINDEX+2 ) = 0.D0\r\n      MINDEX = MINDEX+2\r\n  115 CONTINUE\r\n      GO TO 180\r\n  120 CONTINUE\r\n      MINDEX = MEM/2 + 1\r\n      DO 125 II = 1,NTMS\r\n      ZD( MINDEX+1 ) = SIGN*DXL( INDEX+II-1 )\r\n      ZD( MINDEX+2 ) = 0.D0\r\n      MINDEX  = MINDEX + 2\r\n  125 CONTINUE\r\n      GO TO 180\r\n  130 CONTINUE\r\n      MINDEX  = MEM/2 + 1 \r\n      NTMS2   = NTMS*2\r\n      DO 135 II = 1,NTMS2\r\n      ZD( MINDEX+II ) = SIGN*RXL( INDEX+II-1 )\r\n  135 CONTINUE\r\n      GO TO 180\r\n  140 CONTINUE\r\n      MINDEX  = MEM/2 + 1 \r\n      NTMS2   = NTMS*2\r\n      DO 145 II = 1,NTMS2\r\n      ZD( MINDEX+II ) = SIGN*DXL( INDEX+II-1 )\r\n  145 CONTINUE\r\n  180 CONTINUE\r\n      MEM     = MEM + 2 + NTMS*4\r\n      CALL ENDGET ( IBLK )\r\n      CALL GETSTR ( *1000, IBLK )\r\n      GO TO 105\r\n900   CONTINUE\r\n      ZI( MEM )   = -ICOL\r\n      MEM1        = MEM + 1\r\n      MEM         = MEM + 2\r\n1000  CONTINUE\r\nC      \r\nC CHECK IF SPACE AVAILABLE FOR A FULL COLUMN OF \"D\" MATRIX, IF NECESSARY\r\nC\r\n      IF ( MEM .GT. ( LASMEM-MEMPCOL ) ) GO TO 2000\r\n      LASMEM      = LASMEM - MEMPCOL\r\n      ZI( MEM1 )  = MEM \r\n      ICOL        = ICOL + 1\r\n      IF ( ICOL .GT. IRCOLN ) GO TO 7000\r\n      GO TO 100\r\n2000  LASINDM    = MEM1 - 2\r\nC \r\nC SAVE I/O LOCATION OF LAST COLUMN FOR NEXT PASS\r\nC\r\n      IRPOS( 1 ) = ICBLK\r\n      IRPOS( 2 ) = ICLR\r\n      IRPOS( 3 ) = ICBP\r\n      IRCOLN     = ICOL - 1\r\n      IF ( IRCOLN .LT. IRCOL1 ) CALL MESAGE ( -8, MEM+MEMPCOL, MODULE )\r\n      GO TO 7777\r\n7000  CONTINUE  \r\n      LASINDM    = MEM - 1        \r\nC      GO TO 7777\r\nC7001  WRITE( IWR, 9001 ) ICOL, IBLK(12), IRFILE\r\nC9001  FORMAT(' ERROR OCCURRED IN MMARM4, EXPECTED COLUMN =',I10\r\nC     &,/,    ' BUT READ COLUMN =',I10,' FROM FILE =',I5 )\r\nC      CALL MESAGE ( -61, 0, 0 )\r\n7777  RETURN        \r\n      END\r\n"
  },
  {
    "path": "mis/moda.f",
    "content": "      SUBROUTINE MODA\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE MODA   SEE USERS MANUAL SECTION 5.3\r\nC                                  FOR MODULE PROPERTIES CHECK XMPLBD\r\nC                                  OR USE DIAG 29\r\nC\r\nC*****\r\nC\r\n      INTEGER IPARM , PARM12 , PARM13\r\nC     INTEGER OUTFIL(4)\r\nC\r\n      COMMON /BLANK/ PARM(5),IPARM(5),PARM11,PARM12,PARM13\r\nC\r\nC     DATA OUTFIL /201,202,203,204/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/modac1.f",
    "content": "      SUBROUTINE MODAC1(CASECC,TOL,TOL1,CASEZZ,CASEYY)\r\nC\r\nC     MODAC1 REDUCES THE NUMBER OF ENTRIES ON TOL TO THE TIMES\r\nC         SPECIFIED BY THE OFREQ SET IN CASECC\r\nC\r\nC     CORE IS        OUT AS FOLLOWS ON RETURN\r\nC\r\nC         CONTENTS            LENGTH  TYPE   POINTER\r\nC         --------            ------  ----   -------\r\nC         NEW TIMES           NFN      R     IFN\r\nC         KEEP REMOVE         NFO      I     IKR\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\n      INTEGER SYSBUF,CASECC,TOL,NAME(2),TOL1,FILE,IHD(2),MCB(7),IBUF(6)\r\n      INTEGER CASEZZ,CASEYY,FLAG\r\n      REAL  Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /MODAC3/ NFO,NFN,NZ, ID\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE   ( Z(1), IZ(1) )\r\n      DATA NAME /4HMODA,4HC1  /\r\nC\r\nC     BRING  IN  CASECC\r\nC\r\n      LW = 6\r\n      IF(ID .EQ. 4) LW = 7\r\n      IBUF1 = NZ -SYSBUF+1\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2 -SYSBUF\r\n      CALL GOPEN(CASECC,IZ(IBUF1),0)\r\n      FILE = CASECC\r\n      CALL READ(*900,*10,CASECC,IZ,IBUF2-1,0,IVEC)\r\n      CALL MESAGE(-8,0,NAME)\r\n   10 CONTINUE\r\n      ICC = 0\r\n      CALL CLOSE(CASECC, 1)\r\n      IFROUT =145\r\n      ILSYM = 200\r\n      IVEC  = IVEC+1\r\n      ILIST = IVEC\r\n      IF(ID .EQ. 5) GO TO 600\r\nC\r\nC     BRING IN OLD TIME/FREQ  LIST\r\nC\r\n      FILE = TOL\r\n      CALL OPEN(*900,TOL,IZ(IBUF1),0)\r\n      I = ILIST\r\n      M = 3\r\n      IX= 2\r\n      NFO = NFO + I\r\n      IF(ID .EQ. 2 .OR. ID .EQ. 4) GO TO 25\r\n   20 CALL READ(*910,*30,TOL,IBUF,M,0,FLAG)\r\n      IZ(I) =IBUF(M)\r\n      IZ(I+1)= 0\r\n      I =  I + IX\r\n      M =1\r\n      GO TO 20\r\n   25 CALL FWDREC(*910,TOL)\r\n      CALL FWDREC(*910,TOL)\r\n   26 CALL READ(*910,*30,TOL,IBUF,LW,0,FLAG)\r\n      IZ(I) = IBUF(4)\r\nC     REIG SHOULD BE ON CYCLES\r\n      IF(ID .EQ. 4) IZ(I) = IBUF(5)\r\n      IZ(I+1) = 0\r\n      I = I+2\r\n      IF(I.EQ.NFO) GO TO 30\r\n      GO TO 26\r\n   30 CALL CLOSE(TOL,1)\r\n      NLIST = I -IX\r\nC\r\nC     MATCH LIST OF  SELECTED VALUES WITH TIME LIST IN CORE\r\nC\r\n   35 CONTINUE\r\n      IX = ICC + IFROUT\r\n      IFSET = IZ(IX)\r\n      IF ( IFSET  .LE. 0)  GO TO  70\r\n      IX = ICC +ILSYM\r\n      ISETNF = IX + IZ(IX)+1\r\n   40 ISETF  = ISETNF +2\r\n      NSETF  =IZ(ISETNF+1) + ISETF-1\r\n      IF( IZ(ISETNF).EQ. IFSET) GO TO 80\r\n      ISETNF = NSETF +1\r\n      IF ( ISETNF .LT. IVEC) GO TO 40\r\n      IFSET = -1\r\n   70 DO  75 J = ILIST,NLIST,2\r\n   75 IZ(J+1) = 1\r\n      GO TO 200\r\n   80 DO 100 I = ISETF,NSETF\r\n      K = 0\r\n      DIFF = 1.E25\r\n      REAL = Z(I)\r\n      DO 90  J = ILIST,NLIST,2\r\n      IF (IZ(J+1) .NE. 0) GO TO 90\r\n      DIFF1 =  ABS(Z(J) - REAL)\r\n      IF( DIFF1 .GE. DIFF) GO TO 90\r\n      DIFF = DIFF1\r\n      K = J\r\n   90 CONTINUE\r\n      IF ( K .NE. 0)  IZ(K+1) = 1\r\n  100 CONTINUE\r\nC\r\nC     SELECTED FREQUENCIES MARKED FOR OUTPUT\r\nC\r\n  200 NFO =(NLIST - ILIST +2)/2\r\nC\r\nC     MOVE NEW FREQ  TO UPPER\r\nC\r\n      K=1\r\n      DO 300 I= ILIST,NLIST,2\r\n      IF( IZ(I+1).EQ. 0) GO TO 300\r\n      Z(K) = Z(I)\r\n      K = K +1\r\n  300 CONTINUE\r\n      NFN = K-1\r\n      DO 400  I = ILIST,NLIST,2\r\n      IZ(K) = IZ(I+1)\r\n      K = K+1\r\n  400 CONTINUE\r\n      IF(ID .EQ. 5) RETURN\r\n      FILE =TOL1\r\n      CALL OPEN(*800,TOL1,IZ(IBUF1),1)\r\n      CALL FNAME(TOL1,IHD)\r\n      CALL WRITE(TOL1,IHD,2,0)\r\n      IF(ID .EQ. 2 .OR. ID .EQ. 4) GO TO 402\r\n      CALL WRITE(TOL1,Z,NFN,1)\r\n  401 CONTINUE\r\n      CALL CLOSE(TOL1,1)\r\n      MCB(1)= TOL1\r\n      MCB(2)= NFN\r\n      CALL WRTTRL(MCB )\r\n      IF(ID .EQ. 2) GO TO 500\r\n  800 RETURN\r\nC\r\nC     COPY OVER CLAMA STUFF\r\nC\r\n  402 CALL WRITE(TOL1,0,0,1)\r\n      K = NFN + NFO + 1\r\n      NZX  = IBUF3 -K\r\n      FILE = TOL\r\n      CALL GOPEN(TOL,IZ(IBUF2),0)\r\n      CALL READ(*910,*920,TOL,IZ(K),146,1,FLAG)\r\n      CALL WRITE(TOL1,IZ(K),146,1)\r\n      M = NFN+1\r\n      N = M+NFO -1\r\n      DO 410 I = M,N\r\n      CALL READ(*910,*920,TOL,IZ(K),LW,0,FLAG)\r\n      IF(IZ(I) .EQ. 0) GO TO 410\r\n      CALL WRITE(TOL1,IZ(K),LW,0)\r\n  410 CONTINUE\r\n      CALL CLOSE(TOL,1)\r\n      CALL WRITE(TOL1,0,0,1)\r\n      GO TO 401\r\nC\r\nC      COPY OVER CASECC\r\nC\r\n  500 CALL GOPEN(CASECC,IZ(IBUF1),0)\r\n      CALL GOPEN(CASEZZ,IZ(IBUF2),1)\r\n      M = NFN +1\r\n      N = M+NFO-1\r\n      DO 510 I = M,N\r\n      CALL READ(*511,*520,CASECC,IZ(K),NZX,0,FLAG)\r\n  520 IF(IZ(I) .EQ. 0) GO TO 510\r\n      CALL WRITE(CASEZZ,IZ(K),FLAG,1)\r\n  510 CONTINUE\r\n  511 CALL CLOSE(CASECC,1)\r\n      CALL CLOSE(CASEZZ,1)\r\n      MCB(1) = CASECC\r\n      CALL RDTRL(MCB)\r\n      MCB(1) = CASEZZ\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     STATIC ANALYSIS\r\nC\r\n  600 CONTINUE\r\n      R = 1.0\r\n      NFO = NFO+ILIST\r\n      NLIST = NFO-2\r\n      DO 610 I = ILIST,NFO,2\r\n      Z(I) = R\r\n      IZ(I+1) = 0\r\n      R = R+1.\r\n  610 CONTINUE\r\nC\r\nC     COPY EDT\r\nC\r\n      CALL OPEN(*670,TOL,IZ(IBUF1),0)\r\n      CALL OPEN(*670,TOL1,IZ(IBUF2),1)\r\n      FILE = TOL\r\n      CALL FNAME(TOL1,IHD)\r\n      CALL WRITE(TOL1,IHD,2,0)\r\n  620 CALL READ(*630,*920,TOL,IZ(NFO+2),NZ,0,FLAG)\r\n      CALL WRITE(TOL1,IZ(NFO+2),FLAG,1)\r\n      GO TO 620\r\n  630 CALL CLOSE(TOL,1)\r\n      CALL CLOSE(TOL1,1)\r\n      MCB(1) = TOL\r\n      CALL RDTRL(MCB)\r\n      MCB(1) = TOL1\r\n      CALL WRTTRL(MCB)\r\n  670 GO TO 35\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1=-1\r\n  901 CALL MESAGE(IP1,FILE,NAME)\r\n  910 IP1=-2\r\n      GO TO 901\r\n  920 IP1=-3\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/modac2.f",
    "content": "      SUBROUTINE MODAC2(     NV,INP1,IOUT)\r\nC\r\nC     MODAC2  REDUCES THE SIZE OF INP1 (BY REMOVING SELECTED COLUMNS)\r\nC\r\nC     CORE IS LAIDED OUT AS FOLLOWS\r\nC\r\nC         CONTENTS            LENGTH  TYPE   POINTER\r\nC         --------            ------  ----   -------\r\nC\r\nC         NEW TIMES           NFN      R     IFN\r\nC         KEEP/REMOVE         NFO      I     IKR\r\nC         COPIED COLUMN       MCB(3)   R     ICOL\r\nC\r\nC         2  BUFFERS          SYSBUF   I     IBUF1\r\nC                             SYSBUF   I     IBUF2\r\nC\r\nC     VARIABLES\r\nC\r\nC     NV       NUMBER OF COLUMS TO PROCESS TOGETHER (MINUS SAYS ADD HEAD\r\nC     INP1     COPY FROM THIS FILE\r\nC     IOUT     COPY TO  THIS  FILE\r\nC\r\nC\r\nC\r\n      INTEGER   IZ,SYSBUF,NAME(2),IHD(2),MCB(7),FILE\r\n      REAL  Z(1)\r\n      COMMON /UNPAKX/ITC,II,JJ,INCR\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /MODAC3/ NFO,NFN,NZ\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      DATA  NAME /4HMODA,4HC2  /\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      MCB(1) =IOUT\r\n      CALL RDTRL(MCB)\r\n      IF ( MCB(1) .LE. 0) RETURN\r\n      MCB(1) =  INP1\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(1)  .LE. 0) RETURN\r\n      NLOAD = MCB(2)/(NFO*IABS(NV))\r\n      IFN =1\r\n      IKR = IFN + NFN\r\n      ICOL = IKR + NFO\r\n      IBUF1 = NZ -SYSBUF+1\r\n      IBUF2 = IBUF1- SYSBUF\r\n      IF ( ICOL + MCB(3) + 2*SYSBUF .GT. NZ) CALL MESAGE(-8,0,NAME)\r\nC\r\nC     OPEN  FILES\r\nC\r\n      FILE = INP1\r\n      CALL GOPEN(INP1,IZ(IBUF1),0)\r\n      FILE = IOUT\r\n      CALL OPEN(*900,IOUT,IZ(IBUF2),1)\r\n      CALL FNAME(IOUT,IHD)\r\n      CALL WRITE(IOUT,IHD,2,0)\r\n      IF ( NV  .GT. 0) GO  TO  10\r\n      CALL  WRITE(IOUT,Z,NFN,0)\r\n   10 CALL  WRITE(IOUT,0,0,1)\r\nC\r\nC     SET UP MATRIX TRAILER\r\nC\r\n      FILE = INP1\r\n      MCB(2) =0\r\n      MCB(6) =0\r\n      MCB(7) =0\r\n      MCB(1) = IOUT\r\n      ITC = MCB(5)\r\n      INCR = 1\r\n      INV = IABS(NV)\r\n      DO 200 M = 1,NLOAD\r\n      K = IKR -1\r\n      DO  100  I =1,NFO\r\n      K  =K+1\r\n      IF( IZ(K) .EQ. 0)  GO TO 20\r\nC\r\nC     KEEP COLUMN\r\nC\r\n      CALL CYCT2B(INP1,IOUT,INV,IZ(ICOL),MCB)\r\n      GO TO 100\r\nC\r\nC     SKIP COLUMN\r\nC\r\n   20 DO 30 J = 1,INV\r\n      CALL FWDREC(*910,INP1)\r\n   30 CONTINUE\r\n  100 CONTINUE\r\n  200 CONTINUE\r\nC\r\nC     CLOSE  UP\r\nC\r\n      CALL CLOSE(INP1,1)\r\n      CALL CLOSE(IOUT,1)\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1= -1\r\n  901 CALL MESAGE(IP1,FILE,NAME)\r\n  910 IP1 = -2\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/modacc.f",
    "content": "      SUBROUTINE MODACC\r\nC\r\nC     THIS IS THE MODULE MODACC\r\nC\r\nC     DMAP CALL\r\nC\r\nC     MODACC  CASECC,TOL,UDV1T,PPT,PDT,PST/TOL1,UDV3T,PP3,PDT3,PST3/\r\nC             C,N,TRAN $\r\nC\r\nC     THE PURPOSE OF THIS MODULE IS TO REDUCE THE COLUMN LENCTHS OF\r\nC     UDV1T,PPT,PDT,PST  TO THE  LENGTH SPECIFIED BY OFREQ IN CASECC.\r\nC     THE CURRENT LIST OF TIMES IS ON  TOL\r\nC\r\n      INTEGER CASECC, TOL,UDV1T,PPT,PDT,PST,TOL1,UDV3T,PP3,PDT3,PST3\r\n      COMMON /BLANK / IOP(2)\r\n      COMMON /MODAC3/ NFO,NFN,NZ,ID\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      DATA    CASECC, TOL,UDV1T,PPT,PDT,PST,TOL1,UDV3T,PP3,PDT3,PST3 /\r\n     1        101   , 102,103  ,104,105,106,201 ,202  ,203,204 ,205  /\r\n      DATA    ITRAN / 4HTRAN/  ,ICEIGN /4HCEIG /\r\n      DATA    IREIG / 4HREIG/\r\n      DATA    ISTAT / 4HSTAT/\r\nC\r\n      ID = 1\r\n      IF (IOP(1) .EQ. ICEIGN) ID = 2\r\n      IF (IOP(1) .EQ.  ITRAN) ID = 3\r\n      IF (IOP(1) .EQ.  IREIG) ID = 4\r\n      IF (IOP(1) .EQ.  ISTAT) ID = 5\r\nC\r\nC     FOR EIGENVALUES STOP LIST AT NUMBER OF VECTORS\r\nC\r\n      NFO = 0\r\n      IZ(1) = UDV1T\r\n      CALL RDTRL(IZ)\r\n      J   = 2\r\n      NFO = 2 * IZ(J)\r\n      NZ  = KORSZ(IZ(1))\r\nC\r\nC     BUILD LIST OF NEW TIMES, KEEP/REMOVE LIST\r\nC\r\n      CALL MODAC1 (CASECC,TOL,TOL1,PP3,PPT)\r\nC\r\nC     COPY DISPLACEMENTS\r\nC\r\n      ID1 = 1\r\n      IF (ID .EQ. 3) ID1 = 3\r\n      CALL MODAC2 (ID1,UDV1T,UDV3T)\r\n      IF (ID.EQ.2 .OR. ID.EQ.4) RETURN\r\nC\r\nC     COPY P LOAD S  (+ HEAD STUFF FOR NOW)\r\nC\r\n      CALL MODAC2 (-1,PPT,PP3)\r\nC\r\nC     COPY D LOADS\r\nC\r\n      CALL MODAC2 (1,PDT,PDT3)\r\nC\r\nC     COPY S LOADS\r\nC\r\n      CALL MODAC2 (1,PST,PST3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/modb.f",
    "content": "      SUBROUTINE MODB\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE MODB   SEE USERS MANUAL SECTION 5.3\r\nC                                  FOR MODULE PROPERTIES CHECK XMPLBD\r\nC                                  OR USE DIAG 29\r\nC\r\nC*****\r\nC\r\n      INTEGER IPARM1   , IPARM2\r\nC     INTEGER INFILE(3), OUTFIL(4)\r\nC\r\n      COMMON /BLANK/ PARM(4),IPARM1(3),PARM8,IPARM2(3)\r\nC\r\nC     DATA INFILE /101,102,103/\r\nC     DATA OUTFIL /201,202,203,104/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/modc.f",
    "content": "      SUBROUTINE MODC\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE MODC   SEE USERS MANUAL SECTION 5.3\r\nC                                  FOR MODULE PROPERTIES CHECK XMPLBD\r\nC                                  OR USE DIAG 29\r\nC\r\nC*****\r\nC\r\nC     INTEGER INFILE(2)\r\nC\r\n      COMMON /BLANK/ IPARM\r\nC\r\nC     DATA INFILE /101,102/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mplprt.f",
    "content": "      SUBROUTINE MPLPRT\r\nC\r\nC     PRINTS MPL TABLE FOR DOCUMENTATION PURPOSES\r\nC     AND CHECKS VALIDITY OF MANY ITEMS.\r\nC\r\n      DOUBLE PRECISION XX\r\n      REAL            X(2,1)\r\n      INTEGER         KP(6),FLAG,FLAGB,FLAGS,TOT,FLGTOT,ADD(2),\r\n     1                T1,T2,T3,H1,H2,H3,H1X(32),H2X(32),H3X(32)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /SYSTEM/ NB,NO,JUNK1(6),NLPP,JUNK2(2),LINE\r\n      COMMON /XFIST / NFIST\r\n      COMMON /XPFIST/ NPFIST\r\n      COMMON /OUTPUT/ T1(32),T2(32),T3(32),H1(32),H2(32),H3(32)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XGPI2X/ XX(1)\r\nC\r\n      EQUIVALENCE    (XX(1),X(1,1))\r\nC\r\n      DATA KP    / 1,1,2,2,2,4 / ,  ADD   /4HADD ,4H    /\r\n      DATA FLAGB / 1H  /  ,  FLAGS /4H ***/\r\n      DATA H1X/4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     2        ,4H   M,4H O D,4H U L,4H E  ,4H P R,4H O P,4H E R,4H T I\r\n     3        ,4H E S,4H   L,4H I S,4H T  ,4H    ,4H    ,4H    ,4H\r\n     4        ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\n      DATA H2X/4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H    ,4H\r\n     2        ,4H    ,4H    ,4H    ,4H    ,4H    ,4H   -,4H - -,4H - -\r\n     3        ,4H - -,4H P A,4H R A,4H M E,4H T E,4H R S,4H - -,4H - -\r\n     4        ,4H - -,4H - -,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\n      DATA H3X/4H  MP,4HLID ,4HNWDS,4H  WD,4H1  M,4HOD-N,4HAME ,4HTYP\r\n     2        ,4H IN ,4H OUT,4H  SC,4HR  T,4HOT  ,4H   I,4HD TY,4HP\r\n     3        ,4HP   ,4H   D,4HEFAU,4HLT (,4HIF A,4HNY) ,4H    ,4H   W\r\n     4        ,4H1-W2,4H FLG,4H    ,4H    ,4H    ,4H    ,4H    ,4H    /\r\nC\r\n   21 FORMAT (7H0      ,3I5,2X ,2A4 ,I3,4I5  ,10X,A3)\r\n   22 FORMAT (7H0      ,3I5,2X ,2A4 ,I3,4I5\r\n     1       ,10X,50H----- N O   P A R A M E T E R S   E X I S T -----\r\n     2       ,10X,A3)\r\n   23 FORMAT (7H0      ,3I5,2X,8H (NONE) )\r\n   24 FORMAT (7H0      ,3I5,2X,2A4,I3    )\r\n   31 FORMAT (59X,I2,5H. INT,I5,7X,16H-- NO DEFAULT --,6X ,I2          )\r\n   32 FORMAT (59X,I2,5H. RSP,I5,7X,16H-- NO DEFAULT --,6X ,I2          )\r\n   33 FORMAT (59X,I2,5H. BCD,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2   )\r\n   34 FORMAT (59X,I2,5H. RDP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4)\r\n   35 FORMAT (59X,I2,5H. CSP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4)\r\n   36 FORMAT (59X,I2,5H. CDP,I5,7X,16H-- NO DEFAULT --,6X ,I2,1H-,I2,A4)\r\n   41 FORMAT (59X,I2,5H. INT,I5, I15,14X                  ,I2          )\r\n   42 FORMAT (59X,I2,5H. RSP,I5, 1P,E20.4,9X              ,I2          )\r\n   43 FORMAT (59X,I2,5H. BCD,I5, 11X,2A4,10X              ,I2,1H-,I2   )\r\n   44 FORMAT (59X,I2,5H. RDP,I5, 1P,D20.4,9X              ,I2,1H-,I2,A4)\r\n   45 FORMAT (59X,I2,5H. CSP,I5, 3H  (,1P,E11.4,1H, ,1P,E11.4,3H   ,\r\n     1                                                     I2,1H-,I2,A4)\r\n   46 FORMAT (59X,I2,5H. CDP,I5, 3H  (,1P,D11.4,1H, ,1P,D11.4,3H)  ,\r\n     1                                                     I2,1H-,I2,A4)\r\n   47 FORMAT (10X,'NOTE - THE ABOVE PARAMETER DEFAULTS WILL BE CHANGED',\r\n     1 ' TO ALL ZEROS BY THE ADD MODULE.  HOWEVER, IF ALL 4 PARAMETERS',\r\n     2 ' ARE NOT', /10X,'SPECIFIED, THEY WILL BE CHANGED TO 2*(1.,0.),',\r\n     3 ' 2*(0.D0,0.D0), OR 2*(0.,0.), 2*(1.D0,0.D0) DEPENDING ON ',\r\n     4 'MATRICES INVOLVED')\r\nC\r\nC     INITIALIZATION\r\nC\r\n      CALL PAGE\r\n      MPLID = 0\r\n      NPAD  = 0\r\n      I2    = 0\r\n      DO 80 I = 1,32\r\n      H1(I) = H1X(I)\r\n      H2(I) = H2X(I)\r\n      H3(I) = H3X(I)\r\n   80 CONTINUE\r\n      CALL PAGE\r\nC\r\nC     PROCESS NEXT ENTRY\r\nC\r\n  100 CONTINUE\r\n      IF (I2-LMPL) 110,900,9901\r\n  110 I0 = I2\r\n      I1 = I2 + 1\r\n      I2 = I0 + MPL(I1)\r\n      MPLID = MPLID + 1\r\nC\r\nC     TEST FOR MODULE TYPE\r\nC\r\n      IF (MPL(I1)-1) 9904,120,112\r\n  112 IF (MPL(I1+1) .EQ. 0) GO TO 120\r\n      IF (MPL(I0+4) .LT. 3) GO TO 130\r\nC\r\nC     EXECUTIVE MODULE\r\nC\r\n      CALL PAGE2 (-2)\r\n      L1 = I0 + 2\r\n      L2 = L1 + 2\r\n      WRITE (NO,24) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2)\r\n      GO TO 100\r\nC\r\nC     PAD SPACE\r\nC\r\n  120 CALL PAGE2 (-2)\r\n      WRITE (NO,23) MPLID,MPL(I1),I1\r\n      NPAD = NPAD + 1\r\n      GO TO 100\r\nC\r\nC     FUNCTIONAL MODULE\r\nC\r\n  130 IF (MPL(I1) .GT. 7) GO TO 140\r\nC\r\nC     NO PARAMETERS EXIST FOR THIS FUNCTIONAL MODULE\r\nC\r\n      CALL PAGE2 (-2)\r\n      L1  = I0 + 5\r\n      L2  = L1 + 2\r\n      TOT = 0\r\n      DO 137 L = L1,L2\r\n  137 TOT = TOT + MPL(L)\r\n      FLGTOT = FLAGB\r\n      IF (TOT .GT. NFIST-NPFIST) FLGTOT = FLAGS\r\n      L1  = I0 + 2\r\n      WRITE (NO,22) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2),TOT,FLGTOT\r\n      GO TO 100\r\nC\r\nC     PARAMETERS EXIST FOR THIS FUNCTIONAL MODULE\r\nC\r\n  140 CONTINUE\r\nC\r\nC     DETERMINE THE NUMBER OF PARAMETERS FOR FUNCTIONAL MODULE\r\nC\r\n      NP = 0\r\n      I  = I0 + 8\r\n  150 CONTINUE\r\n      IF ((I-1)-(I2)) 151,160,9903\r\n  151 IP = IABS(MPL(I))\r\n      IF (IP .GT. 6) GO TO 9902\r\n      IF (MPL(I)) 152,9902,154\r\n  152 NP = NP + 1\r\n      I  = I  + 1\r\n      GO TO 150\r\n  154 NP = NP + 1\r\n      I  = I + 1 + KP(IP)\r\n      GO TO 150\r\n  160 IF (NP .LE. 0) GO TO 9903\r\nC\r\n      CALL PAGE2 (-2-NP)\r\n      L1 = I0 + 5\r\n      L2 = L1 + 2\r\n      TOT= 0\r\n      DO 167 L = L1,L2\r\n  167 TOT = TOT + MPL(L)\r\n      FLGTOT = FLAGB\r\n      IF (TOT .GT. NFIST-NPFIST) FLGTOT = FLAGS\r\n      L1 = I0 + 2\r\n      WRITE (NO,21) MPLID,MPL(I1),I1,(MPL(L),L=L1,L2),TOT,FLGTOT\r\nC\r\nC     PRINT PARAMETERS\r\nC\r\n      NP = 0\r\n      I  = I0 + 8\r\n      J2 = 0\r\n  170 CONTINUE\r\n      NP = NP + 1\r\n      J1 = J2 + 1\r\n      IF ((I-1)-(I2)) 175,200,9903\r\n  175 IP = IABS(MPL(I))\r\n      IF (IP .GT. 6) GO TO 9902\r\n      IF (MPL(I)) 180,9902,190\r\nC\r\nC     PARAMETER HAS NO DEFAULT VALUE\r\nC\r\n  180 CONTINUE\r\n      J2 = J1\r\n      GO TO (181,182,183,184,185,186), IP\r\nC\r\nC     INTEGER\r\nC\r\n  181 WRITE (NO,31) NP,I,J1\r\n      GO TO 188\r\nC\r\nC     REAL SINGLE-PRECISION\r\nC\r\n  182 WRITE (NO,32) NP,I,J1\r\n      GO TO 188\r\nC\r\nC     ALPHANUMERIC (BCD)\r\nC\r\n  183 J2 = J2 + 1\r\n      WRITE (NO,33) NP,I,J1,J2\r\n      GO TO 188\r\nC\r\nC     REAL DOUBLE-PRECISION\r\nC\r\n  184 J2 = J2 + 1\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,34) NP,I,J1,J2,FLAG\r\n      GO TO 188\r\nC\r\nC     COMPLEX SINGLE-PRECISION\r\nC\r\n  185 J2   = J2 + 1\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,35) NP,I,J1,J2,FLAG\r\n      GO TO 188\r\nC\r\nC     COMPLEX DOUBLE-PRECISION\r\nC\r\n  186 J2   = J2 + 3\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,36) NP,I,J1,J2,FLAG\r\n      GO TO 188\r\n  188 CONTINUE\r\n      I = I + 1\r\n      GO TO 170\r\nC\r\nC     PARAMETER HAS A DEFAULT VALUE\r\nC\r\n  190 CONTINUE\r\n      GO TO (191,192,193,194,195,196), IP\r\nC\r\nC     INTEGER\r\nC\r\n  191 J2 = J1\r\n      WRITE (NO,41) NP,I,MPL(I+1),J1\r\n      I = I + 2\r\n      GO TO 198\r\nC\r\nC     REAL SINGLE-PRECISION\r\nC\r\n  192 J2 = J1\r\n      M  = MPL(I+1)\r\n      WRITE (NO,42) NP,I,X(1,M),J1\r\n      I  = I + 2\r\n      GO TO 198\r\nC\r\nC     ALPHANUMERIC (BCD)\r\nC\r\n  193 J2 = J1 + 1\r\n      WRITE (NO,43) NP,I,MPL(I+1),MPL(I+2),J1,J2\r\n      I = I + 3\r\n      GO TO 198\r\nC\r\nC     REAL DOUBLE-PRECISION\r\nC\r\n  194 J2 = J1 + 1\r\n      M  = MPL(I+1)\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,44) NP,I,XX(M),J1,J2,FLAG\r\n      I = I + 3\r\n      GO TO 198\r\nC\r\nC     COMPLEX SINGLE-PRECISION\r\nC\r\n  195 J2 = J1 + 1\r\n      M  = MPL(I+1)\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,45) NP,I,X(1,M),X(2,M),J1,J2,FLAG\r\n      I  = I + 3\r\n      GO TO 198\r\nC\r\nC     COMPLEX DOUBLE-PRECISION\r\nC\r\n  196 J2 = J1 + 3\r\n      M1 = MPL(I+1)\r\n      M2 = MPL(I+3)\r\n      FLAG = FLAGB\r\n      IF (MOD(J1,2) .EQ. 0) FLAG = FLAGS\r\n      WRITE (NO,46) NP,I,XX(M1),XX(M2),J1,J2,FLAG\r\n      I = I + 5\r\n      GO TO 198\r\n  198 CONTINUE\r\n      GO TO 170\r\nC\r\n  200 CONTINUE\r\n      IF (MPL(L1).NE.ADD(1) .OR. MPL(L1+1).NE.ADD(2)) GO TO 100\r\n      CALL PAGE2 (-2)\r\n      WRITE (NO,47)\r\n      GO TO 100\r\nC\r\nC     TERMINATION\r\nC\r\n  900 CONTINUE\r\n      CALL PAGE2 (-4)\r\n      WRITE  (NO,901)\r\n  901 FORMAT ('0*** END OF MPL PRINTOUT')\r\n      WRITE  (NO,902) MPLID,NPAD\r\n  902 FORMAT ('0*** THE MPL CONTAINS ',I3,' ENTRYS.  OF THESE, ',I3,\r\n     1       ' ARE PAD ENTRYS.')\r\nC\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 9901 WRITE  (NO,9951) SWM,I2,LMPL\r\n 9951 FORMAT (A27,' 65, POINTER I2 =',I10,' DOES NOT AGREE WITH LMPL =',\r\n     1        I11)\r\n      GO TO 9995\r\nC\r\n 9902 WRITE  (NO,9952) SWM\r\n 9952 FORMAT (A27,' 66, ILLEGAL PARAMETER TYPE CODE.')\r\n      GO TO 9995\r\nC\r\n 9903 WRITE  (NO,9953) SWM\r\n 9953 FORMAT (A27,' 67, ERROR IN PARAMETER SEQUENCE.')\r\n      GO TO 9995\r\nC\r\n 9904 WRITE  (NO,9954) SWM\r\n 9954 FORMAT (A27,' 68, ILLEGAL WORD COUNT.')\r\nC\r\nC\r\n 9995 CALL PAGE2 (4)\r\n      WRITE  (NO,9996)\r\n 9996 FORMAT (5X,'MPL TABLE LISTING CANCELLED.')\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3.f",
    "content": "      SUBROUTINE MPY3\r\nC*****\r\nC     PRIMARY DRIVER FOR MATRIX TRIPLE PRODUCT.\r\nC\r\nC     ASSOCIATED SUBROUTINES\r\nC         MPY3DR - SECONDARY DRIVER.  SETS UP OPEN CORE AND DETERMINES\r\nC                  SOLUTION METHOD.\r\nC         MPY3IC - IN-CORE PRODUCT.\r\nC         MPY3OC - OUT-OF-CORE PRODUCT.\r\nC         MPY3A  - PREPARES B AND A(T).\r\nC         MPY3B  - PROCESSES A AND PERFORMS FIRST PART OF PRODUCT.\r\nC         MPY3P  - PERFORMS MULTIPLICATION AND SUMMATION.\r\nC         MPY3NU - CALCULATES NEXT TIME USED FOR INDIVIDUAL COLUMNS OF B\r\nC                  OR ENTRIES OF A.\r\nC         MPY3C  - PERFORMS MULTIPLICATION AND SUMMATION FOR REMAINING\r\nC                  TERMS IN COLUMN OF A.\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC         MPY3     A,B,E / C / C,N,CODE/ C,N,PREC   $\r\nC*****\r\n      INTEGER         FILEA,FILEB,FILEE,FILEC,CODE,PREC, SCR1,SCR2,SCR3\r\nC\r\nC     DMAP PARAMETERS\r\n      COMMON /BLANK / IBCC,IBCP\r\nC     FILES\r\n      COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                SCR3,LCORE,CODE,PREC,DUMMY(13)\r\nC     OPEN CORE\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\nC*****\r\nC     ASSIGN GINO FILE NUMBERS.\r\nC*****\r\n      FILEA(1) = 101\r\n      FILEB(1) = 102\r\n      FILEE(1) = 103\r\n      SCR1  = 301\r\n      SCR2  = 302\r\n      SCR3  = 303\r\n      CODE  = IBCC\r\n      PREC  = IBCP\r\n      LCORE = KORSZ(Z)\r\nC*****\r\nC     GET MATRIX TRAILERS\r\nC*****\r\n      CALL RDTRL (FILEA)\r\n      CALL RDTRL (FILEB)\r\n      CALL RDTRL (FILEE)\r\n      IF (FILEE(1) .LT. 0) FILEE(1) = 0\r\nC\r\n      CALL MAKMCB (FILEC,201,FILEA(2),1,PREC)\r\n      IF (CODE .EQ. 0) GO TO 10\r\n      IF (CODE .EQ. 2) FILEC(3) = FILEB(3)\r\n      IF (CODE.EQ.1 .AND. FILEA(2).NE.FILEB(2)) FILEC(4) = 2\r\n      IF (CODE.EQ.2 .AND. FILEB(3).NE.FILEA(2)) FILEC(4) = 2\r\nC*****\r\nC     PERFORM MULTIPLY\r\nC*****\r\n   10 CALL MPY3DR (Z)\r\n      CALL WRTTRL (FILEC)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3a.f",
    "content": "      SUBROUTINE MPY3A (Z,IZ,DZ)\r\nC*****\r\nC    PREPARES B AND A(T).\r\nC*****\r\n      DOUBLE PRECISION DZ(1),DA\r\nC\r\nC\r\nC\r\n      INTEGER FILEA,FILEB,SCR1,SCR2,FILE\r\n      INTEGER BUF1,BUF2,BUF3\r\n      INTEGER PREC,PRECN\r\n      INTEGER ZPNTRS\r\n      INTEGER TYPIN,TYPOUT,ROW1,ROWM\r\n      INTEGER UTYP,UROW1,UROWN,UINCR\r\n      INTEGER EOL,EOR\r\n      INTEGER PRECL\r\nC\r\nC\r\nC\r\n      DIMENSION Z(1),IZ(1)\r\n      DIMENSION NAME(2)\r\n      DIMENSION MCB(7)\r\nC\r\nC\r\nC FILES\r\n      COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                  SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                  BUF3,BUF4,E\r\nC SUBROUTINE CALL PARAMETERS\r\n      COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,DUMCP(3),ZPNTRS(22),LAEND\r\nC PACK\r\n      COMMON / PACKX  / TYPIN,TYPOUT,ROW1,ROWM,INCR\r\nC UNPACK\r\n      COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR\r\nC TERMWISE MATRIX READ\r\n      COMMON / ZNTPKX / A(2),DUM(2),IROW,EOL,EOR\r\nC\r\nC\r\nC\r\n      EQUIVALENCE     (IPOINT,ZPNTRS(3)),      (NPOINT,ZPNTRS(4)),\r\n     *                (IACOLS,ZPNTRS(5)),      (ITRANS,ZPNTRS(7)),\r\n     *                (IBCOLS,ZPNTRS(11))\r\n      EQUIVALENCE     (A(1),DA)\r\nC\r\nC\r\nC\r\n      DATA NAME / 4HMPY3,4HA    /\r\nC*****\r\nC    FILE OPENING.\r\nC*****\r\n      FILE = SCR1\r\n      CALL OPEN(*901,SCR1,Z(BUF2),1)\r\n      FILE = FILEB(1)\r\n      CALL OPEN(*901,FILEB,Z(BUF3),0)\r\n      CALL FWDREC(*902,FILEB)\r\nC*****\r\nC    UNPACK B AND PACK INTO SCRATCH FILE 1.\r\nC*****\r\nC PACK PARAMETERS\r\n      TYPIN = PREC\r\n      TYPOUT = PREC\r\n      ROW1 = 1\r\n      ROWM = N\r\n      INCR = 1\r\nC UNPACK PARAMETERS\r\n      UTYP = PREC\r\n      UROW1 = 1\r\n      UROWN = N\r\n      UINCR = 1\r\n      PRECN = PREC*N\r\n      MCB(1) = 301\r\n      MCB(2) = 0\r\n      MCB(3) = N\r\n      MCB(4) = 1\r\n      MCB(5) = PREC\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 50 K=1,NCB\r\n      CALL UNPACK(*20,FILEB,Z(IBCOLS))\r\n      GO TO 40\r\n   20 IB = IBCOLS - 1\r\n      DO 30 L=1,PRECN\r\n      IB = IB + 1\r\n   30 Z(IB) = 0.\r\n   40 CALL PACK (Z(IBCOLS),SCR1,MCB)\r\n      CALL SAVPOS (SCR1,IZ(K))\r\n   50 CONTINUE\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (FILEB,1)\r\n      IF (ICORE .EQ. 1) GO TO 9999\r\nC*****\r\nC    INITIALIZE ARRAY CONTAINING POINTERS TO ROWS OF MATRIX A TO 0.\r\nC*****\r\n      DO 100 L=IPOINT,NPOINT\r\n  100 IZ(L) = 0\r\nC*****\r\nC    COUNT NO. OF NON-ZERO COLUMNS IN EACH ROW OF A.\r\nC*****\r\n      FILE = FILEA(1)\r\n      CALL OPEN(*901,FILEA,Z(BUF1),0)\r\n      CALL FWDREC(*902,FILEA)\r\n      DO 120 I=1,M\r\n      CALL INTPK(*120,FILEA,0,PREC,0)\r\n  110 CALL ZNTPKI\r\n      II = IPOINT + IROW - 1\r\n      IZ(II) = IZ(II) + 1\r\n      IF (EOL .EQ. 1) GO TO 120\r\n      GO TO 110\r\n  120 CONTINUE\r\nC*****\r\nC    CALCULATE POINTERS TO ROWS OF MATRIX A.\r\nC*****\r\n      JJ = 1\r\n      DO 130 L=IPOINT,NPOINT\r\n      IF (IZ(L) .EQ. 0) GO TO 130\r\n      INCRJJ = IZ(L)\r\n      IZ(L) = JJ\r\n      JJ = JJ + INCRJJ\r\n  130 CONTINUE\r\n      LAEND = JJ - 1\r\nC*****\r\nC    PROCESS A(T) MATRIX.\r\nC*****\r\n      FILE = FILEA(1)\r\n      CALL REWIND (FILEA)\r\n      CALL FWDREC(*902,FILEA)\r\n      JJ2 = IACOLS + LAEND - 1\r\n      DO 200 JJ=IACOLS,JJ2\r\n  200 IZ(JJ) = 0\r\n      DO 250 J=1,M\r\n      CALL INTPK(*250,FILEA,0,PREC,0)\r\n  210 CALL ZNTPKI\r\n      L = IPOINT + IROW - 1\r\n      JJ = IZ(L)\r\n      JJC = IACOLS + JJ - 1\r\n  220 IF (IZ(JJC) .EQ. 0) GO TO 230\r\n      JJ = JJ + 1\r\n      JJC = JJC + 1\r\n      GO TO 220\r\n  230 IZ(JJC) = J\r\n      IF (PREC .EQ. 2) GO TO 240\r\n      JJT = ITRANS + JJ - 1\r\n      Z(JJT) = A(1)\r\n      IF (EOL .EQ. 1) GO TO 250\r\n      GO TO 210\r\n  240 JJT = (ITRANS - 1)/2 + JJ\r\n      DZ(JJT) = DA\r\n      IF (EOL .EQ. 1) GO TO 250\r\n      GO TO 210\r\n  250 CONTINUE\r\n      PRECL = PREC*LAEND\r\n      CALL CLOSE (FILEA,1)\r\n      GO TO 9999\r\nC*****\r\nC    ERROR MESSAGES.\r\nC*****\r\n  901 NERR = -1\r\n      GO TO 1001\r\n  902 NERR = -2\r\n 1001 CALL MESAGE (NERR,FILE,NAME)\r\nC\r\n 9999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3b.f",
    "content": "      SUBROUTINE MPY3B (Z,IZ,DZ)\r\nC*****\r\nC    PROCESSES A AND PERFORMS FIRST PART OF PRODUCT.\r\nC*****\r\n      DOUBLE PRECISION DZ(1),DA\r\nC\r\nC\r\nC\r\n      INTEGER FILEA,SCR1,SCR2,FILE\r\n      INTEGER PREC,PRECN\r\n      INTEGER ZPNTRS\r\n      INTEGER UTYP,UROW1,UROWN,UINCR\r\n      INTEGER EOL,EOR\r\n      INTEGER PRECK\r\nC\r\nC\r\nC\r\n      LOGICAL FIRST1,FIRST2\r\nC\r\nC\r\nC\r\n      DIMENSION Z(1),IZ(1)\r\n      DIMENSION NAME(2)\r\nC\r\nC\r\nC FILES\r\n      COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                  SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                  BUF3,BUF4,E\r\nC SUBROUTINE CALL PARAMETERS\r\n      COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,NK,DUMCP(2),ZPNTRS(22),LAEND,\r\n     1                  FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,KB,J,I,NTBU\r\nC UNPACK\r\n      COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR\r\nC TERMWISE MATRIX READ\r\n      COMMON / ZNTPKX / A(2),DUM(2),IROW,EOL,EOR\r\nC\r\nC\r\nC\r\n      EQUIVALENCE     (A(1),DA)\r\nC OPEN CORE POINTERS\r\n      EQUIVALENCE     (IBCOLS,ZPNTRS(11)),     (IBCID,ZPNTRS(13)),\r\n     *                (IBNTU,ZPNTRS(15)),      (IKTBP,ZPNTRS(17)),\r\n     *                (IAKJ,ZPNTRS(21))\r\nC\r\nC\r\nC\r\n      DATA NAME / 4HMPY3,4HB    /\r\nC*****\r\nC    INITIALIZATION.\r\nC*****\r\n      FILE = SCR1\r\n      UTYP = PREC\r\n      UROW1 = 1\r\n      UROWN = N\r\n      UINCR = 1\r\n      PRECN = PREC*N\r\nC*****\r\nC    READ AND STORE COLUMN OF A.\r\nC*****\r\n      K = 0\r\n      KT = IKTBP - 1\r\n      IF (PREC .EQ. 2) GO TO 20\r\nC SINGLE PRECISION CASE\r\n      KJ = IAKJ - 1\r\n      CALL INTPK(*120,FILEA,0,1,0)\r\n   10 CALL ZNTPKI\r\n      K = K + 1\r\n      KT = KT + 1\r\n      IZ(KT) = IROW\r\n      KJ = KJ + 1\r\n      Z(KJ) = A(1)\r\n      IF (EOL .EQ. 1) GO TO 30\r\n      GO TO 10\r\nC DOUBLE PRECISION CASE\r\n   20 KJ = (IAKJ - 1)/2\r\n      CALL INTPK(*120,FILEA,0,2,0)\r\n   25 CALL ZNTPKI\r\n      K = K + 1\r\n      KT = KT + 1\r\n      IZ(KT) = IROW\r\n      KJ = KJ + 1\r\n      DZ(KJ) = DA\r\n      IF (EOL .EQ. 1) GO TO 30\r\n      GO TO 25\r\n   30 IF (.NOT. FIRST1) GO TO 80\r\nC*****\r\nC    READ COLUMNS OF B INTO CORE.\r\nC*****\r\n      FIRST1 = .FALSE.\r\n      IF (K .GT. NK) GO TO 40\r\n      K2 = K\r\n      GO TO 50\r\n   40 K2 = NK\r\n   50 KT = IKTBP - 1\r\n      KB = IBCOLS - PRECN\r\n      KBC = IBCID - 1\r\n      DO 60 KK=1,K2\r\n      KT = KT + 1\r\n      KKK = IZ(KT)\r\n      CALL FILPOS (SCR1,IZ(KKK))\r\n      KB = KB + PRECN\r\n      CALL UNPACK(*55,SCR1,Z(KB))\r\n      GO TO 59\r\n   55 IB = KB - 1\r\n      DO 57 L=1,PRECN\r\n      IB = IB + 1\r\n   57 Z(IB) = 0.\r\n   59 CONTINUE\r\n      KBC = KBC + 1\r\n      IZ(KBC) = KKK\r\n   60 CONTINUE\r\nC*****\r\nC    BEGIN CALCULATING MATRIX PRODUCT.\r\nC*****\r\n   80 KT = IKTBP - 1\r\n      KCOUNT = 0\r\n      PRECK = PREC*K\r\n      DO 110 KA=1,K\r\n      KT = KT + 1\r\n      KBC = IBCID - 1\r\n      DO 90 KB=1,K2\r\n      KBC = KBC + 1\r\n      IF (IZ(KT) .EQ. IZ(KBC)) GO TO 100\r\n   90 CONTINUE\r\n      GO TO 110\r\n  100 KKB = KB\r\n      CALL MPY3P (Z,Z,Z)\r\n      IZ(KT) = 0\r\n      KCOUNT = KCOUNT + 1\r\n      IF (FIRST2 .OR. ICORE .EQ. 1) GO TO 110\r\n      I = IZ(KBC)\r\n      CALL MPY3NU (Z)\r\n      KBN = IBNTU + KKB - 1\r\n      IZ(KBN) = NTBU\r\n  110 CONTINUE\r\nC*****\r\nC    SET RETURN FLAG.\r\nC*****\r\n      IF (KCOUNT .EQ. K) GO TO 120\r\n      IFLAG = 1\r\n      GO TO 9999\r\n  120 IFLAG = 0\r\n      IF (ICORE .NE. 1 .OR. FIRST2) GO TO 9999\r\n      IF (J .EQ. M) GO TO 9999\r\n      FILE = SCR2\r\n      CALL FWDREC(*902,SCR2)\r\n      GO TO 9999\r\nC*****\r\nC    ERROR MESSAGES.\r\nC*****\r\n  902 NERR = -2\r\n      CALL MESAGE (NERR, FILE, NAME)\r\nC\r\n 9999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3c.f",
    "content": "      SUBROUTINE MPY3C (Z,IZ,DZ)\r\nC*****\r\nC    PERFORMS MULTIPLICATION AND SUMMATION FOR REMAINING TERMS OF COLUMN\r\nC    OF A.\r\nC*****\r\n      INTEGER PREC\r\n      INTEGER SCR1,SCR2,FILE\r\n      INTEGER ZPNTRS\r\n      INTEGER UTYP,UROW1,UROWN,UINCR\r\n      INTEGER PRECN\r\nC\r\nC\r\nC\r\n      LOGICAL FIRST2\r\nC\r\nC\r\nC\r\n      DIMENSION Z(1),IZ(1)\r\nC     DIMENSION NAME(2)\r\nC\r\nC\r\nC FILES\r\n      COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                  SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                  BUF3,BUF4,E\r\nC SUBROUTINE CALL PARAMETERS\r\n      COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,NK,DUM1(2),ZPNTRS(22),\r\n     1                  DUM2(2),FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J,\r\n     2                  LTAC,NTBU\r\nC UNPACK\r\n      COMMON / UNPAKX / UTYP,UROW1,UROWN,UINCR\r\nC\r\nC\r\nC\r\n      EQUIVALENCE     (IBCOLS,ZPNTRS(11)),     (IBCID,ZPNTRS(13)),\r\n     *                (IBNTU,ZPNTRS(15)),      (IKTBP,ZPNTRS(17)),\r\n     *                (IANTU,ZPNTRS(19))\r\nC\r\nC\r\nC\r\nC     DATA NAME / 4HMPY3,4HC    /\r\nC*****\r\nC    INITIALIZATION.\r\nC*****\r\n      UTYP  = PREC\r\n      UROW1 = 1\r\n      UROWN = N\r\n      UINCR = 1\r\n      PRECN = PREC*N\r\n      FILE  = SCR1\r\nC*****\r\nC    TEST TO SEE IF LESS THAN NK COLUMNS OF B IN CORE.\r\nC*****\r\n      IF (FIRST2) GO TO 30\r\nC*****\r\nC    DETERMINE WHICH COLUMN OF B TO BE PUT INTO CORE.\r\nC*****\r\n      LTA = 0\r\n      IA  = IANTU - 1\r\n      DO 10 I=1,K\r\n      IA = IA + 1\r\n      IF (LTA .GE. IZ(IA)) GO TO 10\r\n      LTA = IZ(IA)\r\n      IK  = IKTBP + I - 1\r\n      LTAC= IZ(IK)\r\n      KA  = I\r\n   10 CONTINUE\r\nC*****\r\nC    DETERMINE WHICH COLUMN OF B TO BE REPLACED.\r\nC*****\r\n      LTB = 0\r\n      IB  = IBNTU - 1\r\n      DO 20 I=1,NK\r\n      IB = IB + 1\r\n      IF (LTB .GE. IZ(IB)) GO TO 20\r\n      LTB  = IZ(IB)\r\n      LTBC = I\r\n   20 CONTINUE\r\n      GO TO 50\r\nC*****\r\nC    LESS THAN NK COLUMNS OF B IN CORE.\r\nC*****\r\n   30 K2  = K2 + 1\r\n      LTBC= K2\r\n      KK  = IKTBP - 1\r\n      DO 40 KA=1,K\r\n      KK  = KK + 1\r\n      IF (IZ(KK) .EQ. 0) GO TO 40\r\n      LTAC = IZ(KK)\r\n      GO TO 50\r\n   40 CONTINUE\r\nC*****\r\nC    ADD OR REPLACE COLUMN OF B INTO CORE.\r\nC*****\r\n   50 CALL FILPOS (SCR1,IZ(LTAC))\r\n      KK = IBCOLS + PRECN*(LTBC - 1)\r\n      CALL UNPACK(*55,SCR1,Z(KK))\r\n      GO TO 59\r\n   55 IK = KK - 1\r\n      DO 57 L=1,PRECN\r\n      IK = IK + 1\r\n   57 Z(IK) = 0.\r\n   59 CONTINUE\r\n      IF (FIRST2) GO TO 70\r\n      IF (ICORE .EQ. 1) GO TO 60\r\n      CALL MPY3NU (Z)\r\n      KK = IBNTU + LTBC - 1\r\n      IZ(KK) = NTBU\r\n   60 KK = IANTU + KA - 1\r\n      IZ(KK) = 0\r\n   70 KK = IBCID + LTBC - 1\r\n      IZ(KK) = LTAC\r\n      KB = LTBC\r\nC*****\r\nC    PERFORM COMPUTATION.\r\nC*****\r\n      CALL MPY3P (Z,Z,Z)\r\n      LTBC = KB\r\n      KK = IKTBP + KA - 1\r\n      IZ(KK) = 0\r\n      KCOUNT = KCOUNT + 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3dr.f",
    "content": "      SUBROUTINE MPY3DR (Z)\r\nC\r\nC     SECONDARY DRIVER IF MPY3DR IS CALLED BY MPY3\r\nC     PRIMARY   DRIVER IF CALLED BY OTHERS (COMB2 AND MRED2 GROUP)\r\nC\r\nC     SETS UP OPEN CORE AND DETERMINES SOLUTION METHOD.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         ANDF,ORF,COMPLF,LSHIFT\r\n      LOGICAL          E\r\n      INTEGER          Z(1),MPY(3),MCB(7,3),NAME(2)\r\n      REAL             RHOA,RHOB,RHOE,TCOL,TIMCON,TIMEM,TIMEM1,TIMEM2,\r\n     1                 TIMEM3\r\n      DOUBLE PRECISION DD,NN,MM,PP,XX\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\nCWKBI 4/94\r\n      COMMON /LOGOUT/  LOUT\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /MPY3TL/  FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                 SCR3,LKORE,CODE,PREC,LCORE,SCR(7),BUF1,BUF2,\r\n     2                 BUF3,BUF4,E\r\n      COMMON /MPY3CP/  ITRL,ICORE,N,NCB,M,NK,D,MAXA,DUMCP(34)\r\n      COMMON /NTIME /  TIMCON(16)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,DUM1(22),DIAG,DUM2(32),METH\r\n      COMMON /MPYADX/  MFILEA(7),MFILEB(7),MFILEE(7),MFILEC(7),MCORE,\r\n     1                 MT,SIGNAB,SIGNC,MPREC,MSCR,TIMEM\r\n      EQUIVALENCE      (AC,FILEA(2)), (AR,FILEA(3)),\r\n     1                 (BC,FILEB(2)), (BR,FILEB(3)),\r\n     2                 (BF,FILEB(4)), (EC,FILEE(2)),\r\n     3                 (ER,FILEE(3)), (EF,FILEE(4))\r\n      EQUIVALENCE      (MCB(1,1),FILEA(1))\r\n      DATA    NAME  /  4HMPY3,4HDR          /\r\n      DATA    MPY   /  4HMPY3,4H    ,4H     /\r\n      DATA    JBEGN ,  JEND  /4HBEGN,4HEND  /\r\nC\r\nC     RETURN IF EITHER A OR B IS PURGED\r\nC\r\n      IF (FILEA(1) .LT. 0) RETURN\r\n      IF (FILEB(1) .LT. 0) RETURN\r\nC\r\nC     TEST FOR MATRIX COMPATABILITY.\r\nC\r\n      MPY(3) = JBEGN\r\n      CALL CONMSG (MPY,3,0)\r\nC\r\n      SCR(1) = SCR3\r\n      IF (CODE .NE. 0) GO TO 5\r\n      IF (BF.EQ.2  .OR.  BF.EQ.  7) GO TO 901\r\n    5 IF (AR.NE.BR .AND. CODE.EQ.1) GO TO 902\r\n      IF (AR.NE.BC .AND. CODE.NE.1) GO TO 903\r\n      IF (FILEE(1) .LE. 0) GO TO 15\r\n      E = .TRUE.\r\n      IF (CODE .NE. 0) GO TO 10\r\n      IF (EF.EQ.2 .OR. EF.EQ.7) GO TO 905\r\n   10 IF (EC.NE.BC .AND. CODE.EQ.1) GO TO 909\r\n      IF (EC.NE.AC .AND. CODE.NE.1) GO TO 904\r\n      IF (ER.NE.AC .AND. CODE.EQ.1) GO TO 910\r\n      IF (ER.NE.BR .AND. CODE.EQ.2) GO TO 906\r\n      GO TO 30\r\nC\r\n   15 E = .FALSE.\r\n      DO 20 I = 1,7\r\n   20 FILEE(I) = 0\r\nC\r\nC     CORE ALLOCATION.\r\nC\r\n   30 BUF1 = LKORE - SYSBUF\r\n      BUF2 = BUF1  - SYSBUF\r\n      BUF3 = BUF2  - SYSBUF\r\n      BUF4 = BUF3  - SYSBUF\r\n      LCORE= BUF4  - 1\r\n      IF (LCORE .LT. 0) GO TO 2008\r\nC\r\nC     IF REQUESTED CALCULATE THE OUTPUT PRECISION\r\nC\r\n      IF (PREC.GE.1 .AND. PREC.LE.4) GO TO 46\r\n      IPRC = 1\r\n      ITYP = 0\r\n      DO 45 I = 1,3\r\n      IF (MCB(5,I).EQ.2 .OR. MCB(5,I).EQ.4) IPRC = 2\r\n      IF (MCB(5,I) .GE. 3) ITYP = 2\r\n   45 CONTINUE\r\n      PREC = ITYP + IPRC\r\n      IF (PREC .LE. 2) FILEC(5) = PREC\r\n   46 CONTINUE\r\nC\r\nC     DETERMINE NK, THE NUMBER OF COLUMNS OF B MATRIX ABLE TO BE HELD\r\nC     IN CORE.\r\nC\r\n      N   = FILEB(3)\r\n      NCB = FILEB(2)\r\n      M   = FILEA(2)\r\n      D   = FILEA(7) + 1\r\n      MAXA= FILEA(6)/FILEA(5)\r\nC\r\nC     (NCB SHOULD BE USED IN THE ABOVE EQUATION INSTEAD OF N. SEE\r\nC     MPY3IC)\r\nC\r\n      DD = D\r\n      NN = NCB\r\n      MM = M\r\n      PP = 1 + PREC\r\n      XX = DD*PP*NN*MM/10000.D0\r\n      IXX= XX + 0.5D0\r\n      NK = (LCORE - 2*NCB - IXX - PREC*M - PREC - (2+PREC)*MAXA)/\r\n     1     (2+PREC*N)\r\nC\r\nC     SET UP CONSTANTS IN MPYADX COMMON\r\nC\r\n      MSCR  = SCR2\r\n      MCORE = LKORE\r\n      MPREC = 0\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\nC\r\nC     CALCULATE PROPERTIES OF THE MATRICES\r\nC\r\n      RHOA  = (FILEA(7)+1)/10000.\r\n      RHOB  = (FILEB(7)+1)/10000.\r\n      RHOE  = (FILEE(7)+1)/10000.\r\n      AELMS = AR*AC*RHOA\r\n      BELMS = BR*BC*RHOB\r\n      EELMS = ER*EC*RHOE\r\nC\r\nC     CALCULATE MPY3 TIME ESTIMATE - REMEMBER NO COMPLEX FOR MPY3\r\nC\r\n      CALL SSWTCH (19,L19)\r\n      TIMEM3 = 1.0E+10\r\n      IF (PREC .GE. 3) GO TO 100\r\n      IF (CODE .EQ. 1) GO TO 100\r\n      TIMEM3 = (RHOA + 2./FLOAT(M))*FLOAT(M)*FLOAT(N)*\r\n     1         (FLOAT(M) + FLOAT(N))*TIMCON(8+PREC) +\r\n     2         (FLOAT(N)**2 + FLOAT(M)**2 + RHOA*FLOAT(M)*\r\n     3         FLOAT(N)*(2. + FLOAT(M)))*TIMCON(5)\r\n      TIMEM3 = TIMEM3/1.0E6\r\nCWKBR 4/94 IF (L19 .NE. 0) WRITE (NOUT,50) FILEA(1),AR,AC,AELMS,RHOA,\r\n      IF (L19 .NE. 0) WRITE (LOUT,50) FILEA(1),AR,AC,AELMS,RHOA,\r\n     1                                FILEB(1),BR,BC,BELMS,RHOB,\r\n     2                                FILEE(1),ER,EC,EELMS,RHOE,\r\n     3                                CODE,LCORE,NK,TIMEM3\r\n   50 FORMAT (50H0(A MAT  ROWS  COLS   TERMS    DENS) (B MAT  ROWS ,\r\n     1        50H COLS   TERMS    DENS) (E MAT  ROWS  COLS   TERMS ,\r\n     2        32H   DENS) C  CORE    NK      TIME /\r\n     3        3(I6,I7,I6,I9,F7.4,1X),I2,I6,I6,F10.1 )\r\nC\r\n      IF (NK.GE.3 .OR. CODE.EQ.2) GO TO 70\r\n      DO 60 I = 1,7\r\n      MFILEA(I) = FILEA(I)\r\n   60 MFILEE(I) = FILEE(I)\r\n      CALL MAKMCB (MFILEB,SCR1,BR,2,PREC)\r\n      MFILEB(2) = AC\r\n      TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(AC)\r\n      MFILEB(6) = TCOL + 1.0\r\n      MFILEB(7) = TCOL/BR*1.0E+4\r\n      MFILEC(1) = -1\r\n      MFILEC(5) = PREC\r\n      MT = 1\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      TIMEM3 = TIMEM3 + TIMEM\r\nC\r\nCWKBR 4/94 70 WRITE  (NOUT,80) UIM,TIMEM3\r\n   70 WRITE  (LOUT,80) UIM,TIMEM3\r\n   80 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPY3 = ',\r\n     1        F10.1,' SECONDS.')\r\nC\r\nC     CALCULATE MPYAD TIME ESTIMATE FOR (AT*B)*A + E\r\nC\r\n  100 TIMEM1 = 1.0E+10\r\n      IF (CODE .EQ. 2) GO TO 200\r\n      DO 110 I = 1,7\r\n      MFILEA(I) = FILEA(I)\r\n      MFILEB(I) = FILEB(I)\r\n      IF (CODE .EQ. 1) MFILEE(I) = FILEE(I)\r\n      IF (CODE .NE. 1) MFILEE(I) = 0\r\n  110 CONTINUE\r\n      CALL MAKMCB (MFILEC,-1,AC,2,PREC)\r\n      MT = 1\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      TIMEM1 = TIMEM\r\n      IF (CODE .EQ. 1) GO TO 130\r\nC\r\n      DO 120 I = 1,7\r\n      MFILEB(I) = MFILEA(I)\r\n      MFILEA(I) = MFILEC(I)\r\n  120 MFILEE(I) = FILEE(I)\r\n      MFILEA(1) = SCR1\r\n      MFILEA(2) = BC\r\n      TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(BC)\r\n      MFILEA(6) = TCOL + 1.0\r\n      MFILEA(7) = TCOL/AC*1.0E+4\r\n      MT = 0\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      TIMEM1 = TIMEM1 + TIMEM\r\nC\r\nCWKBR 4/94  130 WRITE  (NOUT,140) UIM,TIMEM1\r\n  130 WRITE  (LOUT,140) UIM,TIMEM1\r\n  140 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPYAD - ',\r\n     1       '(AT*B)*A + E = ',F10.1,' SECONDS.')\r\nC\r\nC     CALCULATE MPYAD TIME ESTIMATE FOR AT*(B*A) + E\r\nC\r\n  200 TIMEM2 = 1.0E+10\r\n      IF (CODE .EQ. 1) GO TO 290\r\n      DO 210 I = 1,7\r\n      MFILEA(I) = FILEB(I)\r\n      MFILEB(I) = FILEA(I)\r\n      IF (CODE .EQ. 2) MFILEE(I) = FILEE(I)\r\n      IF (CODE .NE. 2) MFILEE(I) = 0\r\n  210 CONTINUE\r\n      CALL MAKMCB (MFILEC,-1,BR,2,PREC)\r\n      MT = 0\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      TIMEM2 = TIMEM\r\n      IF (CODE .EQ. 2) GO TO 230\r\nC\r\n      DO 220 I = 1,7\r\n      MFILEA(I) = MFILEB(I)\r\n      MFILEB(I) = MFILEC(I)\r\n  220 MFILEE(I) = FILEE(I)\r\n      MFILEB(1) = SCR1\r\n      MFILEB(2) = AC\r\n      TCOL = FLOAT(BELMS)*FLOAT(AELMS)/FLOAT(AR)/FLOAT(AC)\r\n      MFILEB(6) = TCOL + 1.0\r\n      MFILEB(7) = TCOL/BR*1.0E+4\r\n      MT = 1\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      TIMEM2 = TIMEM2 + TIMEM\r\nC\r\nCWKBR 4/94 230 WRITE  (NOUT,240) UIM,TIMEM2\r\n  230 WRITE  (LOUT,240) UIM,TIMEM2\r\n  240 FORMAT (A29,' 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MPYAD - ',\r\n     1        'AT*(B*A) + E = ',F10.1,' SECONDS.')\r\nC\r\nC     CHOOSE METHOD BASED ON THE BEST TIME ESTIMATE OR USER REQUEST\r\nC\r\n  290 CALL TMTOGO (TTG)\r\n      IF (FLOAT(TTG) .LE. 1.2*AMIN1(TIMEM3,TIMEM1,TIMEM2)) GO TO 908\r\n      DIAG  = ANDF(DIAG,COMPLF(LSHIFT(1,18)))\r\n      KMETH = METH\r\n      JMETH = METH\r\n      METH  = 0\r\n      IF (JMETH.LT.1 .OR. JMETH.GT.3) JMETH = 0\r\n      IF (JMETH.EQ.1 .AND. CODE.EQ.2) JMETH = 0\r\n      IF (JMETH.EQ.2 .AND. CODE.EQ.1) JMETH = 0\r\n      IF (JMETH.EQ.3 .AND. CODE.EQ.1) JMETH = 0\r\n      IF (JMETH .NE. 0) GO TO (400,500,300), JMETH\r\n      FILEC(4) = FILEB(4)\r\nC\r\n      IF (TIMEM3.LT.TIMEM1 .AND. TIMEM3.LT.TIMEM2) GO TO 300\r\n      IF (TIMEM1 .LT. TIMEM2) GO TO 400\r\n      GO TO 500\r\nC\r\nC     PERFORM MULTIPLY WITH MPY3\r\nC\r\n  300 IF (NK .LT. 3) GO TO 310\r\n      ICORE = 0\r\n      CALL MPY3IC (Z(1),Z(1),Z(1))\r\n      GO TO 9999\r\nC\r\nC     OUT OF CORE PROCESSING FOR MPY3\r\nC\r\n  310 ICORE = 1\r\nCWKBR 4/94      WRITE  (NOUT,320) UIM\r\n      WRITE  (LOUT,320) UIM\r\n  320 FORMAT (A29,' 6526,  THE CENTER MATRIX IS TOO LARGE FOR', /5X,\r\n     1       'IN-CORE PROCESSING.  OUT-OF-CORE PROCESSING WILL BE ',\r\n     2       'PERFORMED.')\r\nC\r\n      NK = (LCORE - 4*NCB - PREC*M - (2+PREC)*MAXA)/(2+PREC*N)\r\n      CALL MPY3OC (Z(1),Z(1),Z(1))\r\n      FILEC(4) = FILEB(4)\r\n      GO TO 9999\r\nC\r\nC     PERFORM MULTIPLY WITH MPYAD DOING (AT * B) FIRST\r\nC\r\n  400 DO 410 I = 1,7\r\n      MFILEA(I) = FILEA(I)\r\n      MFILEB(I) = FILEB(I)\r\n      IF (CODE .EQ. 1) MFILEE(I) = FILEE(I)\r\n      IF (CODE .NE. 1) MFILEE(I) = 0\r\n  410 CONTINUE\r\n      CALL MAKMCB (MFILEC,SCR1,AC,2,PREC)\r\n      IF (CODE .EQ. 1) MFILEC(1) = FILEC(1)\r\n      MT = 1\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      IF (CODE .EQ. 1) GO TO 425\r\n      CALL WRTTRL (MFILEC)\r\nC\r\n      DO 420 I = 1,7\r\n      MFILEB(I) = MFILEA(I)\r\n      MFILEA(I) = MFILEC(I)\r\n  420 MFILEE(I) = FILEE(I)\r\n      CALL MAKMCB (MFILEC,FILEC(1),AC,FILEB(4),PREC)\r\n      MT = 0\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n  425 DO 430 I = 1,7\r\n  430 FILEC(I) = MFILEC(I)\r\n      GO TO 9999\r\nC\r\nC     PERFORM MULTIPLY WITH MPYAD DOING (B*A) FIRST\r\nC\r\n  500 DO 510 I = 1,7\r\n      MFILEA(I) = FILEB(I)\r\n      MFILEB(I) = FILEA(I)\r\n      IF (CODE .EQ. 2) MFILEE(I) = FILEE(I)\r\n      IF (CODE .NE. 2) MFILEE(I) = 0\r\n  510 CONTINUE\r\n      CALL MAKMCB (MFILEC,SCR1,BR,2,PREC)\r\n      IF (CODE .EQ. 2) MFILEC(1) = FILEC(1)\r\n      MT = 0\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      IF (CODE .EQ. 2) GO TO 525\r\n      CALL WRTTRL (MFILEC)\r\nC\r\n      DO 520 I = 1,7\r\n      MFILEA(I) = MFILEB(I)\r\n      MFILEB(I) = MFILEC(I)\r\n  520 MFILEE(I) = FILEE(I)\r\n      CALL MAKMCB (MFILEC,FILEC(1),AC,FILEB(4),PREC)\r\n      MT = 1\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n  525 DO 530 I = 1,7\r\n  530 FILEC(I) = MFILEC(I)\r\n      GO TO 9999\r\nC\r\nC    ERROR MESSAGES.\r\nC\r\n  901 WRITE (NOUT,9001) UFM\r\n      GO TO 1001\r\n  902 WRITE (NOUT,9002) UFM\r\n      GO TO 1001\r\n  903 WRITE (NOUT,9003) UFM\r\n      GO TO 1001\r\n  904 WRITE (NOUT,9004) UFM\r\n      GO TO 1001\r\n  905 WRITE (NOUT,9005) UFM\r\n      GO TO 1001\r\n  906 WRITE (NOUT,9006) UFM\r\n      GO TO 1001\r\n  908 WRITE (NOUT,9008) UFM\r\n      GO TO 1001\r\n  909 WRITE (NOUT,9009) UFM\r\n      GO TO 1001\r\n  910 WRITE (NOUT,9010) UFM\r\n 1001 CALL MESAGE (-37,0,NAME)\r\n 2008 CALL MESAGE ( -8,0,NAME)\r\n 9001 FORMAT (A23,'6551, MATRIX B IN MPY3 IS NOT SQUARE FOR A(T)BA + E',\r\n     1       ' PROBLEM.')\r\n 9002 FORMAT (A23,' 6552, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO'\r\n     1,      /5X,'NO. OF ROWS OF MATRIX B FOR A(T)B + E PROBLEM.')\r\n 9003 FORMAT (A23,' 6553, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL TO'\r\n     1       /5X,'NO. OF COLUMNS OF MATRIX B FOR A(T)BA + E PROBLEM.')\r\n 9004 FORMAT (A23,' 6554, NO. OF COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL'\r\n     1,      /5X,'TO NO. OF COLUMNS OF MATRIX A FOR A(T)BA +E PROBLEM.')\r\n 9005 FORMAT (A23,' 6555, MATRIX E IN MPY3 IS NOT SQUARE FOR A(T)BA + ',\r\n     1       'E PROBLEM.')\r\n 9006 FORMAT (A23,' 6556, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO'\r\n     1,      /5X,'NO. OF ROWS OF MATRIX B FOR BA + E PROBLEM.')\r\n 9008 FORMAT (A23,' 6558, INSUFFICIENT TIME REMAINING FOR MPY3 ',\r\n     1       'EXECUTION.')\r\n 9009 FORMAT (A23,' 6524, NO. OF COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL'\r\n     1,      ' TO',/5X,'NO. OF COLUMNS OF MATRIX B FOR A(T)B + E ',\r\n     2       'PROBLEM.')\r\n 9010 FORMAT (A23,' 6559, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL TO'\r\n     1,      /5X,'NO. OF COLUMNS OF MATRIX A FOR A(T)B + E PROBLEM.')\r\nC\r\nC     RETURN\r\nC\r\n 9999 DIAG = ORF(DIAG,LSHIFT(L19,18))\r\n      METH = KMETH\r\n      MPY(3) = JEND\r\n      CALL CONMSG (MPY,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3ic.f",
    "content": "      SUBROUTINE MPY3IC (Z,IZ,DZ)\r\nC\r\nC     IN-CORE PRODUCT.\r\nC\r\n      LOGICAL         FIRST1,FIRST2,E\r\n      INTEGER         FILEA,FILEB,FILEE,FILEC,CODE,PREC,SCR1,SCR3,FILE,\r\n     1                BUF1,BUF2,BUF3,BUF4,D,ZPNTRS,TYPIN,TYPOUT,ROW1,\r\n     2                ROWM,UTYP,UROW1,UROWN,UINCR,EOL,EOR,PRECM\r\n      DOUBLE PRECISION DZ(1),DD,NN,MM,PP\r\n      DIMENSION       Z(1),IZ(1),NAME(2)\r\n      COMMON /MPY3TL/ FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                BUF3,BUF4,E\r\n      COMMON /MPY3CP/ ITRL,ICORE,N,NCB,M,NK,D,MAXA,ZPNTRS(22),LAEND,\r\n     1                FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J,I,NTBU\r\n      COMMON /PACKX / TYPIN,TYPOUT,ROW1,ROWM,INCR\r\n      COMMON /UNPAKX/ UTYP,UROW1,UROWN,UINCR\r\n      COMMON /ZNTPKX/ A(2),DUM(2),IROW,EOL,EOR\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      EQUIVALENCE     (ISAVP ,ZPNTRS( 1)), (NSAVP ,ZPNTRS( 2)),\r\n     1                (IPOINT,ZPNTRS( 3)), (NPOINT,ZPNTRS( 4)),\r\n     2                (IACOLS,ZPNTRS( 5)), (NACOLS,ZPNTRS( 6)),\r\n     3                (ITRANS,ZPNTRS( 7)), (NTRANS,ZPNTRS( 8)),\r\n     4                (IC    ,ZPNTRS( 9)), (NC    ,ZPNTRS(10)),\r\n     5                (IBCOLS,ZPNTRS(11)), (NBCOLS,ZPNTRS(12)),\r\n     6                (IBCID ,ZPNTRS(13)), (NBCID ,ZPNTRS(14)),\r\n     7                (IBNTU ,ZPNTRS(15)), (NBNTU ,ZPNTRS(16)),\r\n     8                (IKTBP ,ZPNTRS(17)), (NKTBP ,ZPNTRS(18)),\r\n     9                (IANTU ,ZPNTRS(19)), (NANTU ,ZPNTRS(20)),\r\n     O                (IAKJ  ,ZPNTRS(21)), (NAKJ  ,ZPNTRS(22))\r\n      DATA     NAME / 4HMPY3,4HIC   /\r\nC\r\nC\r\nC     INITIALIZATION.\r\nC\r\n      FIRST1 = .TRUE.\r\n      FIRST2 = .TRUE.\r\n      DD     = D\r\n      NN     = NCB\r\n      MM     = M\r\n      PP     = PREC\r\nC\r\nC     OPEN CORE POINTERS\r\nC\r\n      ISAVP  = 1\r\n      NSAVP  = NCB\r\n      IPOINT = NSAVP  + 1\r\n      NPOINT = NSAVP  + NCB\r\n      IACOLS = NPOINT + 1\r\nC     NACOLS = NPOINT + D*NCB*M/10000\r\n      NACOLS = NPOINT + (DD*NN*MM/10000.D0 + 0.5D0)\r\n      ITRANS = NACOLS + 1\r\n      IF (PREC.NE.1 .AND. MOD(ITRANS,2).NE.1) ITRANS = ITRANS + 1\r\nC     NTRANS = ITRANS + PREC*D*NCB*M/10000 - 1\r\n      NTRANS = ITRANS + (PP*DD*NN*MM/10000.D0 + 0.5D0) - 1\r\n      IC = NTRANS + 1\r\n      IF (PREC.NE.1 .AND. MOD(IC,2).NE.1) IC = IC + 1\r\n      NC = IC + PREC*M - 1\r\n      IBCOLS= NC + 1\r\n      NBCOLS= NC + PREC*N*NK\r\n      IBCID = NBCOLS + 1\r\n      NBCID = NBCOLS + NK\r\n      IBNTU = NBCID  + 1\r\n      NBNTU = NBCID  + NK\r\n      IKTBP = NBNTU  + 1\r\n      NKTBP = NBNTU  + MAXA\r\n      IANTU = NKTBP  + 1\r\n      NANTU = NKTBP  + MAXA\r\n      IAKJ  = NANTU  + 1\r\n      NAKJ  = NANTU  + PREC*MAXA\r\nC\r\nC     PACK PARAMETERS\r\nC\r\n      TYPIN = PREC\r\n      TYPOUT= PREC\r\n      ROW1  = 1\r\n      INCR  = 1\r\nC\r\nC     UNPACK PARAMETERS\r\nC\r\n      UTYP  = PREC\r\n      UROW1 = 1\r\n      UINCR = 1\r\nC\r\nC     PREPARE B AND A(T).\r\nC\r\n      CALL MPY3A (Z,Z,Z)\r\nC\r\nC     OPEN FILES AND CHECK EXISTENCE OF MATRIX E.\r\nC\r\n      IF (.NOT.E) GO TO 20\r\n      FILE = FILEE(1)\r\n      CALL OPEN (*5001,FILEE,Z(BUF4),2)\r\n      CALL FWDREC (*5002,FILEE)\r\n   20 FILE = FILEA(1)\r\n      CALL OPEN (*5001,FILEA,Z(BUF1),2)\r\n      CALL FWDREC (*5002,FILEA)\r\n      FILE = SCR1\r\n      CALL OPEN (*5001,SCR1,Z(BUF2),0)\r\n      FILE = FILEC(1)\r\n      CALL GOPEN (FILEC,Z(BUF3),1)\r\n      ROWM = FILEC(3)\r\nC\r\nC     PROCESS COLUMNS OF C ONE BY ONE.\r\nC\r\n      DO 1000 J = 1,M\r\nC\r\nC     INITIALIZE COLUMN OF C.\r\nC\r\n      DO 30 IX = IC,NC\r\n   30 Z(IX) = 0.\r\n      IF (.NOT.E) GO TO 50\r\n      UROWN = M\r\n      CALL UNPACK (*50,FILEE,Z(IC))\r\n   50 PRECM = PREC*M\r\nC\r\nC     PROCESS A AND PERFORM FIRST PART OF PRODUCT.\r\nC\r\n      CALL MPY3B (Z,Z,Z)\r\nC\r\nC     TEST IF PROCESSING IS COMPLETE\r\nC\r\n      IF (IFLAG .EQ. 0) GO TO 900\r\nC\r\nC     PROCESS REMAINING TERMS OF COLUMN J OF A.\r\nC\r\nC     TEST IF BCOLS IS FULL\r\nC\r\n  100 IF (K2 .LT. NK) GO TO 150\r\nC\r\nC     CALCULATE NEXT TIME USED FOR COLUMNS OF B AND/OR TERMS OF A\r\nC\r\n      IF (.NOT.FIRST2) GO TO 120\r\n      FIRST2 = .FALSE.\r\n      IBC = IBCID - 1\r\n      IB  = IBNTU - 1\r\n      DO 110 II = 1,NK\r\n      IBC= IBC + 1\r\n      I  = IZ(IBC)\r\n      CALL MPY3NU (Z)\r\n      IB = IB + 1\r\n  110 IZ(IB) = NTBU\r\n  120 IK = IKTBP - 1\r\n      IA = IANTU - 1\r\n      DO 140 II = 1,K\r\n      IK = IK + 1\r\n      IA = IA + 1\r\n      IF (IZ(IK) .EQ. 0) GO TO 130\r\n      I  = IZ(IK)\r\n      CALL MPY3NU (Z)\r\n      IZ(IA) = NTBU\r\n      GO TO 140\r\n  130 IZ(IA) = 0\r\n  140 CONTINUE\r\nC\r\nC     ADD OR REPLACE COLUMN OF B INTO CORE AND PERFORM COMPUTATION\r\nC\r\n  150 CALL MPY3C (Z,Z,Z)\r\n      IF (KCOUNT .EQ. K) GO TO 900\r\n      IF (FIRST2) GO TO 100\r\n      GO TO 150\r\nC\r\nC     PACK COLUMN OF C.\r\nC\r\n  900 CALL PACK (Z(IC),FILEC,FILEC)\r\n 1000 CONTINUE\r\nC\r\nC     CLOSE FILES.\r\nC\r\n      CALL CLOSE (FILEA,2)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (FILEC,1)\r\n      IF (E) CALL CLOSE (FILEE,2)\r\n      GO TO 9999\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 5001 NERR = -1\r\n      GO TO 6000\r\n 5002 NERR = -2\r\n 6000 CALL MESAGE (NERR,FILE,NAME)\r\nC\r\n 9999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3nu.f",
    "content": "      SUBROUTINE MPY3NU (IZ)\r\nC\r\nC     CALCULATES NEXT TIME USED FOR INDIVIDUAL COLUMNS OF B OR FOR ROWS\r\nC     CORRESPONDING TO NON-ZERO TERMS IN COLUMN OF A.\r\nC\r\n      INTEGER         ZPNTRS\r\n      DIMENSION       IZ(1),NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /MPY3CP/ ITRL,ICORE,N,NCB,DUM1(4),ZPNTRS(22),LAEND,\r\n     1                DUM2(8),J,ID,NTBU\r\n      EQUIVALENCE     (IPOINT,ZPNTRS(3)),(IACOLS,ZPNTRS(5))\r\n      DATA    NAME  / 4HMPY3,4HNU   /\r\nC\r\nC     CALCULATION BY SEARCH THROUGH ROW OF A IN QUESTION.\r\nC\r\n      LP = IPOINT + ID - 1\r\n      L1 = IZ(LP)\r\n      IF (L1 .EQ.   0) GO TO 60\r\n      IF (ID .EQ. NCB) GO TO 20\r\n      LL = ID + 1\r\n      DO 10 L = LL,NCB\r\n      LP = LP + 1\r\n      IF (IZ(LP) .EQ. 0) GO TO 10\r\n      L2 = IZ(LP) - 1\r\n      GO TO 30\r\n   10 CONTINUE\r\n   20 L2  = LAEND\r\n   30 LAC = IACOLS + L1 - 2\r\n      DO 40 L = L1,L2\r\n      LAC = LAC + 1\r\n      IF (J .LT. IZ(LAC)) GO TO 50\r\n   40 CONTINUE\r\n      NTBU = 99999999\r\n      GO TO 80\r\n   50 NTBU = IZ(LAC)\r\n      GO TO 80\r\nC\r\nC    ERROR MESSAGE.\r\nC\r\n   60 WRITE  (NOUT,70) UFM\r\n   70 FORMAT (A23,' 6557, UNEXPECTED NULL COLUMN OF A(T) ENCOUNTERED.')\r\n      CALL MESAGE (-37,0,NAME)\r\nC\r\n   80 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3oc.f",
    "content": "      SUBROUTINE MPY3OC (Z,IZ,DZ)\r\nC\r\nC     OUT-OF-CORE PRODUCT.\r\nC\r\n      LOGICAL          FIRST1,FIRST2,FIRST3,E\r\n      INTEGER          FILEA,FILEE,FILEC,CODE,PREC,SCR1,SCR2,SCR3,FILE,\r\n     1                 BUF1,BUF2,BUF3,BUF4,SYSBUF,ZPNTRS,EOL,EOR,PRECM,\r\n     2                 TYPIN,TYPOUT,ROW1,ROWM,UTYP,UROW1,UROWN,UINCR,\r\n     3                 BUF5,SIGNAB,SIGNC\r\n      DOUBLE PRECISION DZ(1),DA\r\n      DIMENSION        Z(1),IZ(1),NAME(2),NAMS(2)\r\nC\r\nC     MPYAD COMMON\r\n      COMMON /MPYADX/  MFILEA(7),MFILEB(7),MFILEE(7),MFILEC(7),MCORE,\r\n     1                 MT,SIGNAB,SIGNC,MPREC,MSCR\r\nC\r\nC     FILES\r\n      COMMON /MPY3TL/  FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                 SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                 BUF3,BUF4,E\r\nC\r\nC     SUBROUTINE CALL PARAMETERS\r\n      COMMON /MPY3CP/  DUM1(2),N,NCB,M,NK,D,MAXA,ZPNTRS(22),LAEND,\r\n     1                 FIRST1,FIRST2,K,K2,KCOUNT,IFLAG,KA,LTBC,J,LTAC\r\nC\r\nC     PACK\r\n      COMMON /PACKX /  TYPIN,TYPOUT,ROW1,ROWM,INCR\r\nC\r\nC     UNPACK\r\n      COMMON /UNPAKX/  UTYP,UROW1,UROWN,UINCR\r\nC\r\nC     TERMWISE MATRIX READ\r\n      COMMON /ZNTPKX/  A(2),DUM(2),IROW,EOL,EOR\r\nC\r\nC     SYSTEM PARAMETERS\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      EQUIVALENCE      (ISAVP,ZPNTRS(1)),  (NSAVP,ZPNTRS(2)),\r\n     1                 (INTBU,ZPNTRS(3)),  (NNTBU,ZPNTRS(4)),\r\n     2                 (ILAST,ZPNTRS(5)),  (NLAST,ZPNTRS(6)),\r\n     3                 (INTBU2,ZPNTRS(7)), (NNTBU2,ZPNTRS(8)),\r\n     4                 (IC,ZPNTRS(9)),     (NC,ZPNTRS(10)),\r\n     5                 (IBCOLS,ZPNTRS(11)),(NBCOLS,ZPNTRS(12)),\r\n     6                 (IBCID,ZPNTRS(13)), (NBCID,ZPNTRS(14)),\r\n     7                 (IBNTU,ZPNTRS(15)), (NBNTU,ZPNTRS(16)),\r\n     8                 (IKTBP,ZPNTRS(17)), (NKTBP,ZPNTRS(18)),\r\n     9                 (IANTU,ZPNTRS(19)), (NANTU,ZPNTRS(20)),\r\n     O                 (IAKJ,ZPNTRS(21)),  (NAKJ,ZPNTRS(22)),\r\n     1                 (A(1),DA)\r\n      DATA    NAME  /  4HMPY3,4HOC   /\r\n      DATA    NAMS  /  4HSCR3,4H     /\r\nC\r\nC     RECALCULATION OF NUMBER OF COLUMNS OF B ABLE TO BE PUT IN CORE.\r\nC\r\n      BUF5  = BUF4 - SYSBUF\r\n      LCORE = BUF5 - 1\r\n      NK = (LCORE - 4*N - PREC*M - (2 + PREC)*MAXA)/(2 + PREC*N)\r\n      IF (NK .LT. 1) GO TO 5008\r\nC\r\nC    INITIALIZATION.\r\nC\r\n      FIRST1 = .TRUE.\r\n      FIRST2 = .TRUE.\r\n      FIRST3 = .FALSE.\r\n      PRECM  = PREC*M\r\nC\r\nC     OPEN CORE POINTERS\r\nC\r\n      ISAVP  = 1\r\n      NSAVP  = NCB\r\n      INTBU  = NSAVP + 1\r\n      NNTBU  = NSAVP + NCB\r\n      ILAST  = NNTBU + 1\r\n      NLAST  = NNTBU + NCB\r\n      INTBU2 = NLAST + 1\r\n      NNTBU2 = NLAST + NCB\r\n      IC     = NNTBU2 + 1\r\n      NC     = NNTBU2 + PREC*M\r\n      IBCOLS = NC + 1\r\n      NBCOLS = NC + PREC*N*NK\r\n      IBCID  = NBCOLS + 1\r\n      NBCID  = NBCOLS + NK\r\n      IBNTU  = NBCID + 1\r\n      NBNTU  = NBCID + NK\r\n      IKTBP  = NBNTU + 1\r\n      NKTBP  = NBNTU + MAXA\r\n      IANTU  = NKTBP + 1\r\n      NANTU  = NKTBP + MAXA\r\n      IAKJ   = NANTU + 1\r\n      NAKJ   = NANTU + PREC*MAXA\r\n      KF     = NSAVP\r\n      KL     = NNTBU\r\n      KN2    = NLAST\r\n      KBC    = NBCOLS\r\n      KBN    = NBCID\r\n      KT     = NBNTU\r\n      KAN    = NKTBP\r\nC\r\nC     PACK PARAMETERS\r\nC\r\n      TYPIN = PREC\r\n      TYPOUT= PREC\r\n      ROW1  = 1\r\n      INCR  = 1\r\nC\r\nC     UNPACK PARAMETERS\r\nC\r\n      UTYP  = PREC\r\n      UROW1 = 1\r\n      UINCR = 1\r\nC\r\nC     MATRIX TRAILERS\r\nC\r\n      CALL MAKMCB (SCR3,SCR3(1),N,2,PREC)\r\n      IF (M .EQ. N) SCR3(4) = 1\r\nC\r\nC     PUT B ONTO SCRATCH FILE IN UNPACKED FORM.\r\nC\r\n      CALL MPY3A (Z,Z,Z)\r\nC\r\nC     OPEN FILES AND CHECK EXISTENCE OF MATRIX E.\r\nC\r\n      IF (CODE.EQ.0 .OR. .NOT.E) GO TO 15\r\n      FILE = FILEE(1)\r\n      CALL OPEN (*5001,FILEE,Z(BUF5),2)\r\n      CALL FWDREC (*5002,FILEE)\r\n   15 FILE = FILEA(1)\r\n      CALL OPEN (*5001,FILEA,Z(BUF1),0)\r\n      CALL FWDREC (*5002,FILEA)\r\n      FILE = SCR1\r\n      CALL OPEN (*5001,SCR1,Z(BUF2),0)\r\n      FILE = SCR2\r\n      CALL OPEN (*5001,SCR2,Z(BUF3),1)\r\n      IF (CODE .EQ. 0) GO TO 20\r\n      FILE = FILEC(1)\r\n      CALL GOPEN (FILEC,Z(BUF4),1)\r\n      ROWM = FILEC(3)\r\n      GO TO 30\r\n   20 FILE = SCR3(1)\r\n      CALL OPEN (*5001,SCR3,Z(BUF4),1)\r\n      CALL WRITE (SCR3,NAMS,2,1)\r\n      ROWM = SCR3(3)\r\nC\r\nC     PROCESS SCR2 AND SET FIRST-TIME-USED AND LAST-TIME-USED FOR EACH\r\nC     ROW OF A.\r\nC\r\n   30 DO 40 K = 1,NCB\r\n      IZ(KF+K) = 0\r\n   40 IZ(KL+K) = 0\r\n      DO 90 J = 1,M\r\n      K = 0\r\n      CALL INTPK (*80,FILEA,0,PREC,0)\r\n   50 CALL ZNTPKI\r\n      K = K + 1\r\n      IZ(KT+K) = IROW\r\n      IF (IZ(KF+IROW) .GT. 0) GO TO 60\r\n      IZ(KF+IROW) = J\r\n   60 IZ(KL+IROW) = J\r\n      IF (EOL .EQ. 1) GO TO 70\r\n      GO TO 50\r\n   70 CALL WRITE (SCR2,IZ(IKTBP),K,0)\r\n   80 CALL WRITE (SCR2,0,0,1)\r\n   90 CONTINUE\r\n      CALL CLOSE (FILEA,1)\r\n      CALL OPEN (*5001,FILEA,Z(BUF1),2)\r\n      CALL FWDREC (*5002,FILEA)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL OPEN (*5001,SCR2,Z(BUF3),0)\r\nC\r\nC     PROCESS COLUMNS OF A ONE AT A TIME.\r\nC\r\n      DO 360 J = 1,M\r\nC\r\nC     INITIALIZE SUM - ACCUMULATION MATRIX TO 0.\r\nC\r\n      DO 100 I = IC,NC\r\n  100 Z(I) = 0.\r\n      IF (CODE.EQ.0 .OR. .NOT.E) GO TO 105\r\n      UROWN = N\r\n      CALL UNPACK (*105,FILEE,Z(IC))\r\nC\r\nC     PROCESS A AND PERFORM FIRST PART OF PRODUCT BA(J).\r\nC\r\n  105 CALL MPY3B (Z,Z,Z)\r\nC\r\nC     TEST IF PROCESSING IS COMPLETE\r\nC\r\n      IF (IFLAG .EQ. 0) GO TO 340\r\nC\r\nC     PROCESS REMAINING TERMS OF COLUMN J OF A.\r\nC\r\nC     TEST IF BCOLS IS FULL\r\nC\r\n  110 IF (K2 .LT. NK) GO TO 330\r\nC\r\nC     CALCULATE NEW NEXT TIME USED VALUES\r\nC\r\n      IF (FIRST3) GO TO 130\r\n      FIRST2 = .FALSE.\r\n      FIRST3 = .TRUE.\r\n      DO 120 JJ = 1,J\r\n  120 CALL FWDREC (*5002,SCR2)\r\n  130 FILE = SCR2\r\n      KC = 0\r\n      KN = KF\r\n      DO 170 KA = 1,NCB\r\n      KN = KN + 1\r\n      IF (J .GE. IZ(KN)) GO TO 140\r\n      KC = KC + 1\r\n      IF (J+1 .LT. IZ(KN   )) GO TO 135\r\n      IF (J+1 .LT. IZ(KL+KA)) GO TO 160\r\n      IZ(KN2+KA) = 99999999\r\n      GO TO 136\r\n  135 IZ(KN2+KA) = IZ(KN)\r\n  136 KC = KC + 1\r\n      GO TO 170\r\n  140 IF (J .LT. IZ(KL+KA)) GO TO 150\r\n      IZ(KN) = 99999999\r\n      IZ(KN2+KA) = IZ(KN)\r\n      KC = KC + 2\r\n      GO TO 170\r\n  150 IZ(KN    ) = 0\r\n  160 IZ(KN2+KA) = 0\r\n  170 CONTINUE\r\n      IF (KC .EQ. 2*NCB) GO TO 240\r\n      JJ = J + 1\r\n  180 CALL READ (*5002,*210,SCR2,KA,1,0,KK)\r\n      IF (IZ(KN2+KA) .GT. 0) GO TO 180\r\n      IF (JJ .EQ. J+1) GO TO 190\r\n      IZ(KN2+KA) = JJ\r\n      KC = KC + 1\r\n  190 IF (IZ(KF+KA) .GT. 0) GO TO 200\r\n      IZ(KF+KA) = JJ\r\n      KC = KC + 1\r\n  200 IF (KC .EQ. 2*NCB) GO TO 220\r\n      GO TO 180\r\n  210 JJ = JJ + 1\r\n      GO TO 180\r\n  220 MM = M - 1\r\n      IF (J .EQ. MM) GO TO 290\r\nC\r\nC     POSITION SCRATCH FILE FOR NEXT PASS THROUGH\r\nC\r\n      JJ  = JJ - J\r\n      J2  = J  + 2\r\n      JJ1 = JJ - 1\r\n      IF (J2 .LT. JJ1) GO TO 250\r\n      IF (JJ1 .GT.  0) GO TO 270\r\n  230 CALL FWDREC (*5002,SCR2)\r\n      GO TO 290\r\n  240 IF (J .EQ. M) GO TO 290\r\n      GO TO 230\r\n  250 CALL REWIND (SCR2)\r\n      J1 = J + 1\r\n      DO 260 JFWD = 1,J1\r\n  260 CALL FWDREC (*5002,SCR2)\r\n      GO TO 290\r\n  270 DO 280 JBCK = 1,JJ1\r\n  280 CALL BCKREC (SCR2)\r\nC\r\nC     ASSIGN NEXT TIME USED TO COLUMNS OF B IN CORE\r\nC\r\n  290 DO 300 KK = 1,NK\r\n      I = IZ(KBC+KK)\r\n  300 IZ(KBN+KK) = IZ(KF+I)\r\nC\r\nC     ASSIGN NEXT TIME USED TO NON-ZERO TERMS IN COLUMN OF A\r\nC\r\n      DO 320 KK = 1,K\r\n      IF (IZ(KT+KK) .EQ. 0) GO TO 310\r\n      I = IZ(KT+KK)\r\n      IZ(KAN+KK) = IZ(KF+I)\r\n      GO TO 320\r\n  310 IZ(KAN+KK) = 0\r\n  320 CONTINUE\r\nC\r\nC     PERFORM MULTIPLICATION AND SUMMATION FOR NEXT TERM OF COLUMN OF A\r\nC\r\n  330 CALL MPY3C (Z,Z,Z)\r\nC\r\nC     TEST IF PROCESSING OF BA(J) IS COMPLETE\r\nC\r\n      IF (KCOUNT .EQ. K) GO TO 340\r\n      IF (FIRST2) GO TO 110\r\n      IZ(KBN+LTBC) = IZ(KN2+LTAC)\r\n      GO TO 330\r\nC\r\nC     PACK COLUMN OF C OR BA.\r\nC\r\n  340 IF (CODE .EQ. 0) GO TO 350\r\n      CALL PACK (Z(IC),FILEC,FILEC)\r\n      GO TO 360\r\n  350 CALL PACK (Z(IC),SCR3,SCR3)\r\n  360 CONTINUE\r\nC\r\nC     CLOSE FILES.\r\nC\r\n      CALL CLOSE (FILEA,2)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCR2,1)\r\n      IF (.NOT.E) GO TO 369\r\n      CALL CLOSE (FILEE,2)\r\n  369 IF (CODE .EQ. 0) GO TO 370\r\n      CALL CLOSE (FILEC,1)\r\n      GO TO 9999\r\n  370 CALL CLOSE (SCR3,1)\r\n      CALL WRTTRL (SCR3)\r\nC\r\nC     CALL MPYAD TO FINISH PRODUCT\r\nC\r\n      DO 380 I = 1,7\r\n      MFILEA(I) = FILEA(I)\r\n      MFILEB(I) = SCR3(I)\r\n      MFILEE(I) = FILEE(I)\r\n  380 MFILEC(I) = FILEC(I)\r\n      MT     = 1\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      MPREC  = PREC\r\n      MSCR   = SCR1\r\n      CALL MPYAD (Z,Z,Z)\r\n      GO TO 9999\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 5001 NERR = -1\r\n      GO TO 6000\r\n 5002 NERR = -2\r\n      GO TO 6000\r\n 5008 NERR = -8\r\n      FILE = 0\r\n 6000 CALL MESAGE (NERR,FILE,NAME)\r\nC\r\n 9999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy3p.f",
    "content": "      SUBROUTINE MPY3P (Z,IZ,DZ)\r\nC*****\r\nC    PERFORMS MULTIPLICATION AND SUMMATION.\r\nC*****\r\n      DOUBLE PRECISION DZ(1),DFACT\r\nC\r\nC\r\nC\r\n      INTEGER CODE,PREC\r\n      INTEGER ZPNTRS\r\nC\r\nC\r\nC\r\n      DIMENSION Z(1),IZ(1)\r\nC\r\nC\r\nC SUBROUTINE CALL PARAMETERS\r\n      COMMON / MPY3CP / ITRL,ICORE,N,NCB,M,DUM1(3),ZPNTRS(22),LAEND,\r\n     1                  DUM2(6),KA,KB\r\nC FILES\r\n      COMMON / MPY3TL / FILEA(7),FILEB(7),FILEE(7),FILEC(7),SCR1,SCR2,\r\n     1                  SCR,LKORE,CODE,PREC,LCORE,SCR3(7),BUF1,BUF2,\r\n     2                  BUF3,BUF4,E\r\nC\r\nC\r\nC\r\n      EQUIVALENCE     (FACT,DFACT)\r\nC OPEN CORE POINTERS\r\n      EQUIVALENCE     (IPOINT,ZPNTRS(3)),      (IACOLS,ZPNTRS(5)),\r\n     *                (ITRANS,ZPNTRS(7)),      (IC,ZPNTRS(9)),\r\n     *                (IBCOLS,ZPNTRS(11)),     (IAKJ,ZPNTRS(21))\r\nC*****\r\nC    LOOP FOR ACCUMULATING SUMS.\r\nC*****\r\n      KJ = IAKJ + KA - 1\r\n      KJ2 = (IAKJ - 1)/2 + KA\r\n      KB = IBCOLS + PREC*((KB - 1)*N - 1)\r\n      IF (CODE .EQ. 2 .OR. ICORE .EQ. 1) GO TO 100\r\nC*****\r\nC    A(T)BA CASE.\r\nC*****\r\n      LP = IPOINT - 1\r\n      DO 90 L=1,N\r\nC CALCULATE FACTOR = B(LK)*A(KJ) TO BE MULTIPLIED TO NON-ZERO TERMS IN\r\nC LTH COLUMN OF A(T)\r\n      KB = KB + PREC\r\n      LP = LP + 1\r\n      IF (IZ(LP) .EQ. 0) GO TO 90\r\n      IF (PREC .EQ. 2) GO TO 10\r\n      IF (Z(KB) .EQ. 0.0) GO TO 90\r\n      FACT = Z(KB)*Z(KJ)\r\n      GO TO 20\r\n   10 KB2 = (KB + 1)/2\r\n      IF (DZ(KB2) .EQ. 0.0D0) GO TO 90\r\n      DFACT = DZ(KB2)*DZ(KJ2)\r\n   20 I1 = IZ(LP)\r\n      IF (L .EQ. N) GO TO 40\r\nC ACCUMULATE SUMS FOR NON-ZERO TERMS IN COLUMN L OF A(T)\r\n      L1 = L + 1\r\n      LLP = LP\r\n      DO 30 LL=L1,N\r\n      LLP = LLP + 1\r\n      IF (IZ(LLP) .NE. 0) GO TO 50\r\n   30 CONTINUE\r\n   40 I2 = LAEND\r\n      GO TO 60\r\n   50 I2 = IZ(LLP) - 1\r\n   60 IAC = IACOLS + I1 - 2\r\n      IF (PREC .EQ. 2) GO TO 80\r\nC SINGLE PRECISION CASE\r\n      IAT = ITRANS + I1 - 2\r\n      DO 70 I=I1,I2\r\n      IAC = IAC + 1\r\n      IAT = IAT + 1\r\n      II = IC + IZ(IAC) - 1\r\n   70 Z(II) = Z(II) + Z(IAT)*FACT\r\n      GO TO 90\r\nC DOUBLE PRECISION CASE\r\n   80 IAT = (ITRANS - 3)/2 + I1\r\n      DO 85 I=I1,I2\r\n      IAC = IAC + 1\r\n      IAT = IAT + 1\r\n      II = (IC - 1)/2 + IZ(IAC)\r\n   85 DZ(II) = DZ(II) + DZ(IAT)*DFACT\r\n      III = (IC - 1)/2 + 1\r\n   90 CONTINUE\r\n      GO TO 999\r\nC*****\r\nC    BA CASE.\r\nC*****\r\n  100 IF (PREC .EQ. 2) GO TO 140\r\nC SINGLE PRECISION CASE\r\n      II = IC - 1\r\n      DO 130 I=1,N\r\n      II = II + 1\r\n      KB = KB + 1\r\n      IF (Z(KB) .EQ. 0.0) GO TO 130\r\n      Z(II) = Z(II) + Z(KB)*Z(KJ)\r\n  130 CONTINUE\r\n      GO TO 999\r\nC DOUBLE PRECISION CASE\r\n  140 II = (IC - 1)/2\r\n      KB = (KB + 1)/2\r\n      DO 150 I=1,N\r\n      II = II + 1\r\n      KB = KB + 1\r\n      IF (DZ(KB) .EQ. 0.0D0) GO TO 150\r\n      DZ(II) = DZ(II) + DZ(KB)*DZ(KJ2)\r\n  150 CONTINUE\r\nC\r\n  999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpy4t.f",
    "content": "      SUBROUTINE MPY4T (IZ,Z,DZ)\r\nC\r\nC     INNER LOOP FOR MPYAD, METHOD 4 WITH TRANSPOSE\r\nC\r\nC          T\r\nC         A * B + C = D\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY MPYAD WHEN METHOD 2 TRANSPOSE,\r\nC     MPY2T, IS SELECTED, AND DIAG 41 IS NOT TURNED ON BY USER.\r\nC\r\nC     MPY4T IS ABOUT 5 TIMES FASTER THAN MPY2T AS TESTED ON VAX\r\nC\r\nC     THERE IS A PICTORIAL DISCRIPTION ABOUT MPY4T IN MPYAD SUBROUTINE\r\nC\r\nC     THIS MACHINE INDEPENDENT ROUTINE CAN ACTUALLY BE INCORPORATED\r\nC     INTO MPYQ, WHICH IS PRESENTLY A .MDS ROUTINE\r\nC\r\nC     IF MATRIX A, OR B, OR BOTH,  IS COMPLEX, MATRIX D IS COMPLEX.\r\nC     MATRIX D CAN NOT BE COMPLEX, IF BOTH MATRICES A AND B ARE REAL.\r\nC\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   1/92\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      REAL             Z(1)    ,SUMR    ,SUMI\r\n      DOUBLE PRECISION DZ(1)   ,DSUMR   ,DSUMI   ,DZERO\r\n      DIMENSION        IZ(1)   ,NAM(2)\r\n      COMMON /MPYADX/  FILEA(7),FILEB(7),FILEC(7),FILED(7)\r\n      COMMON /TYPE  /  PRC(2)  ,NWDS(4) ,RC(4)\r\n      COMMON /MACHIN/  MACH    ,IHALF   ,JHALF\r\n      COMMON /UNPAKX/  TYP     ,II      ,JJ\r\n      COMMON /MPYADZ/  RCB     ,RCD     ,LL      ,LLL     ,JBB   ,\r\n     1                 NBX(3)  ,AROW    ,AROW1   ,AROWN   ,ACORE ,\r\n     2                 APOINT  ,BCOL    ,CROW    ,FIRSTL  ,NA(3) ,\r\n     3                 NWDA\r\n      COMMON /MPYQT4/  RCA     ,PRCA    ,ALL     ,JUMP    ,PRCD\r\n      EQUIVALENCE      (DSUMR  ,SUMR  ) ,(DSUMI  ,SUMI)\r\n      DATA    NAM   /  4HMPY4  ,1HT   / ,DZERO   / 0.0D+0 /\r\nC\r\nC*****\r\nC     ANDF(I,J)   = IAND(I,J)\r\nC     RSHIFT(I,J) = ISHFT(I,-J)\r\nC     WHERE         ISHFT(I,-J) IS RIGHT-SHIFT I BY J BITS, ZERO FILL\r\nC     AND           ISHFT IS SYSTEM ROUTINE\r\nC\r\nC UNIX:\r\nC     REMOVE ABOVE 2 ON-LINE FUNCTIONS IF IAND AND ISHFT SYSTEM\r\nC     FUNCTIONS ARE NOT AVAILABLE. ANDF AND RSHIFT ARE ALREADY ENTRY\r\nC     POINTS IN SUBROUTINE MAPFNS.\r\nC*****\r\nC\r\nC     METHOD 4T TRANSPOSE CASE\r\nC\r\nC     ARRAY Z(JBB) THRU Z(ACORE-1) HOLDS THE CURRENT COLUMN OF MATRIX B\r\nC     ARRAY Z(1) THRU Z(JBB-1) IS A WORKING COLUMN SPACE FOR MATRIX D\r\nC\r\nC     ON EACH ROW OF A, WE WANT TO MULTIPLY\r\nC\r\nC        A(ROW,J)*B(J,COL) + C(ROW,COL) = D(ROW,COL)\r\nC\r\nC     NOTICE B(J,COL) RUNS FROM B(II,COL) THRU B(JJ,COL) WITHOUT\r\nC     SKIPPING,\r\nC     WHILE A(ROW,J) RUNS IN MULTIPLE STRING SEGMENTS ALONG J.\r\nC     ALSO THE BEGINING OF J IN A(ROW,J) AND THE BEGINING OF J IN\r\nC     B(J,COL) MOST LIKELY START DIFFERNTLY\r\nC\r\nC     NOW, ON EACH ROW, WE START FROM FIRST STRING. SKIP THIS STRING\r\nC     IF IT IS NOT WITHIN B(II,) AND B(JJ,) RANGE. (ALSO, WE HAVE\r\nC     SAVED PREVIOUSLY THE LAST TERM OF THE LAST STRING, AND THEREFORE\r\nC     IF THE WHOLE ROW OF A(,J) WITH ITS STRINGS IS NOT WITHIN II,JJ\r\nC     RANGE OF COLUMN B, WE SKIP THE WHOLE ROW-AND-COLUMN COMPUTATION.)\r\nC     IF IT IS WITHIN THE RANGE, WE NEED TO SYNCHRONIZE THE J INDEX FOR\r\nC     BOTH A(ROW,J) AND B(J,COL), THEN MULTIPLY, AND SUM ON AN ELEMENT\r\nC     OF MATRIX D. THEN MOVE ON TO THE NEXT STRING, AND DO THE SAME.\r\nC     REPEAT THIS PROCESS UNTIL J IS EXHAUST EITHER ON A(ROW,J) OR ON\r\nC     B(J,COL).\r\nC     WHEN ALL ROWS OF MATRIX A CURRENTLY IN CORE HAVE PASSED THRU, WE\r\nC     HAVE ONE COLUMN OF MATRIX D DONE, FROM AROW1 THRU AROWN.\r\nC\r\nC     SINCE TRANSPOSE OF MATRIX A IS WHAT WE WANT, THE TERM 'ROW' IS\r\nC     ACTUALLY 'COLUMN' WHEN THE DATA WAS MOVED INTO Z SPACE IN MPYAD\r\nC\r\nC     RCA,RCB    = 1, MATRIX A,B  IS REAL, = 2 MATRIX A,B IS COMPLEX\r\nC     PRCA       = 1, MATRIX A IS IN S.P., = 2 MATRIX A IS IN D.P.\r\nC     PRCD       = 0, MATRIX D IS IN S.P., = 1 MATRIX A IS IN D.P.\r\nC     NWDA       = NUMBER OF WORDS PER ELEMENT OF MATRIX A\r\nC     JBB        = POINTER TO FIRST WORD OF COLUMN B\r\nC     II,JJ      = FIRST TO LAST NON-ZERO TERMS IN CURRENT COLUMN OF B\r\nC     ALL        = 1,2,3,4 ALL MATRICES ARE OF THE SAME TYPE - S.P.,\r\nC                  D.P., C.S.P., OR C.D.P. RESPECTIVELY\r\nC                = 5, MATRICES ARE OF MIXED TYPES\r\nC     JUMP       = BRANCHING INDEX TO MIXED TYPE MATRICES COMPUTATION.\r\nC\r\nC     APOINT     = POINTER TO STRING CONTROL WORD\r\nC                = 0, CURRENT ROW OF A IS EXHAULTED\r\nC     IZ(APOINT) = LEFT HALF OF WORD IS NBR, RIGHT HALF IS NBRSTR\r\nC     NBR        = NO. OF WORDS   IN THIS STRING\r\nC     NBRSTR     = NO. OF STRINGS IN THIS ROW A\r\nC     INIT       = COLUMN POSITION OF 1ST STRING WORD\r\nC     IF (INIT .GT. JJ) = 1ST STRING WORD IS BEYOND LAST WORD IN COLN B\r\nC     IF (INIT+NBR .LT. II) = LAST STRING WORD IS BEFORE 1ST WORD IN\r\nC                  COLUMN OF B\r\nC     JB,JE      = BEGINNING AND ENDING J-INDEX FOR COLUMN A AND ROW B\r\nC     IPOINT     = THE JB WORD POSITION IN ROW A\r\nC     JA         = POINTER TO ROW A ELEMENT\r\nC     KB         = POINTER TO COLUMN B ELEMENT\r\nC     LAST       = POSITION OF LAST NON-ZERO COLUMN TERM IN ROW OF A\r\nC\r\nC\r\nC     WE START FROM FIRST ROW AROW1, AND WILL RUN THRU TO LAST ROW AROWN\r\nC\r\n      AROW = AROW1\r\n      L    = FIRSTL\r\n   10 APOINT = IZ(L)\r\n      IF (APOINT .EQ. 0) GO TO 510\r\n      LAST = RSHIFT(IZ(L-1),IHALF)\r\n      INIT = ANDF(IZ(APOINT),JHALF)\r\n      IF (INIT.GT.JJ .OR. LAST.LT.II) GO TO 510\r\n      NBRSTR = ANDF(IZ(L-1),JHALF)\r\n      GO TO 30\r\n   20 INIT = ANDF(IZ(APOINT),JHALF)\r\n   30 NBR  = RSHIFT(IZ(APOINT),IHALF)\r\n      IF (INIT .GT. JJ) GO TO 510\r\n      IF (INIT+NBR .LT. II) GO TO 500\r\n      JB   = MAX0(INIT,II)\r\n      JE   = MIN0(INIT+NBR-1,JJ)\r\n      IF (JB .GT. JE) GO TO 500\r\n      IPOINT = APOINT + (JB-INIT+1)*PRCA\r\n      JA   = (IPOINT-1)/PRCA + 1\r\n      KB   = (JB-II)*RCB + JBB\r\n      DSUMR= DZERO\r\n      GO TO (40,60,80,100,120,520), ALL\r\nC\r\n   40 DO 50 J = JB,JE\r\n      SUMR = SUMR + Z(JA)*Z(KB)\r\nC\r\nC     DON'T BE SUPRISED TO SEE SOME Z(JA) ARE ZEROS\r\nC     (VAX PACKING ROUTINE ALLOWS UP TO 3 ZEROS BETWEEN STRINGS)\r\nC\r\n      JA   = JA + RCA\r\n   50 KB   = KB + RCB\r\n      Z(AROW) = Z(AROW) + SUMR\r\n      GO TO 500\r\nC\r\n   60 DO 70 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DZ(KB)\r\n      JA    = JA + RCA\r\n   70 KB    = KB + RCB\r\n      DZ(AROW) = DZ(AROW) + DSUMR\r\n      GO TO 500\r\nC\r\n   80 SUMI = 0.0\r\n      DO 90 J = JB,JE\r\n      SUMR = SUMR + Z(JA)*Z(KB  ) - Z(JA+1)*Z(KB+1)\r\n      SUMI = SUMI + Z(JA)*Z(KB+1) + Z(JA+1)*Z(KB  )\r\n      JA   = JA + RCA\r\n   90 KB   = KB + RCB\r\n      Z(AROW  ) = Z(AROW  ) + SUMR\r\n      Z(AROW+1) = Z(AROW+1) + SUMI\r\n      GO TO 500\r\nC\r\n  100 DSUMI = DZERO\r\n      DO 110 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DZ(KB  ) - DZ(JA+1)*DZ(KB+1)\r\n      DSUMI = DSUMI + DZ(JA)*DZ(KB+1) + DZ(JA+1)*DZ(KB  )\r\n      JA    = JA + RCA\r\n  110 KB    = KB + RCB\r\n      DZ(AROW  ) = DZ(AROW  ) + DSUMR\r\n      DZ(AROW+1) = DZ(AROW+1) + DSUMI\r\n      GO TO 500\r\nC\r\nC\r\n  120 GO TO (130,150,170,190, 210,230,250,270,\r\n     1       290,310,330,350, 370,390,410,430), JUMP\r\nC\r\nC                      +--------------- MATRIX  B -----------------+\r\nC        MATRIX          REAL        REAL       COMPLEX     COMPLEX\r\nC          A            SINGLE      DOUBLE      SINGLE      DOUBLE\r\nC     ---------------  ----------  ---------  ----------  ----------\r\nC     REAL SINGLE         130         150         170         190\r\nC     REAL DOUBLE         210         230         250         270\r\nC     COMPLEX SINGLE      290         310         330         350\r\nC     COMPLEX DOUBLE      370         390         410         430\r\nC\r\nC\r\n  130 DO 140 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA)*Z(KB))\r\n      JA    = JA + RCA\r\n  140 KB    = KB + RCB\r\n      GO TO 460\r\nC\r\n  150 DO 160 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA))*DZ(KB)\r\n      JA    = JA + RCA\r\n  160 KB    = KB + RCB\r\n      IF (PRCD) 470,470,460\r\nC\r\n  170 DSUMI = DZERO\r\n      DO 180 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA)*Z(KB  ))\r\n      DSUMI = DSUMI + DBLE(Z(JA)*Z(KB+1))\r\n      JA   = JA + RCA\r\n  180 KB   = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  190 DSUMI = DZERO\r\n      DO 200 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA))*DZ(KB  )\r\n      DSUMI = DSUMI + DBLE(Z(JA))*DZ(KB+1)\r\n      JA    = JA + RCA\r\n  200 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  210 DO 220 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DBLE(Z(KB))\r\n      JA    = JA + RCA\r\n  220 KB    = KB + RCB\r\n      IF (PRCD) 470,470,460\r\nC\r\n  230 DO 240 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DZ(KB)\r\n      JA    = JA + RCA\r\n  240 KB    = KB + RCB\r\n      GO TO 470\r\nC\r\n  250 DSUMI = DZERO\r\n      DO 260 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DBLE(DZ(KB  ))\r\n      DSUMI = DSUMI + DZ(JA)*DBLE(DZ(KB+1))\r\n      JA    = JA + RCA\r\n  260 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  270 DSUMI = DZERO\r\n      DO 280 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DZ(KB  )\r\n      DSUMI = DSUMI + DZ(JA)*DZ(KB+1)\r\n      JA    = JA + RCA\r\n  280 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  290 DSUMI = DZERO\r\n      DO 300 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA  )*Z(KB))\r\n      DSUMI = DSUMI + DBLE(Z(JA+1)*Z(KB))\r\n      JA   = JA + RCA\r\n  300 KB   = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  310 DSUMI = DZERO\r\n      DO 320 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA  ))*DZ(KB)\r\n      DSUMI = DSUMI + DBLE(Z(JA+1))*DZ(KB)\r\n      JA    = JA + RCA\r\n  320 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  330 DSUMI = DZERO\r\n      DO 340 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA)*Z(KB  )) - DBLE(Z(JA+1)*Z(KB+1))\r\n      DSUMI = DSUMI + DBLE(Z(JA)*Z(KB+1)) + DBLE(Z(JA+1)*Z(KB  ))\r\n      JA    = JA + RCA\r\n  340 KB    = KB + RCB\r\n      GO TO 480\r\nC\r\n  350 DSUMI = DZERO\r\n      DO 360 J = JB,JE\r\n      DSUMR = DSUMR + DBLE(Z(JA  ))*DZ(KB)\r\n      DSUMI = DSUMI + DBLE(Z(JA+1))*DZ(KB)\r\n      JA    = JA + RCA\r\n  360 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  370 DSUMI = DZERO\r\n      DO 380 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA  )*DBLE(Z(KB))\r\n      DSUMI = DSUMI + DZ(JA+1)*DBLE(Z(KB))\r\n      JA    = JA + RCA\r\n  380 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  390 DSUMI = DZERO\r\n      DO 400 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA  )*DZ(KB)\r\n      DSUMI = DSUMI + DZ(JA+1)*DZ(KB)\r\n      JA    = JA + RCA\r\n  400 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  410 DSUMI = DZERO\r\n      DO 420 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DBLE(Z(KB  )) - DZ(JA+1)*DBLE(Z(KB+1))\r\n      DSUMI = DSUMI + DZ(JA)*DBLE(Z(KB+1)) + DZ(JA+1)*DBLE(Z(KB  ))\r\n      JA    = JA + RCA\r\n  420 KB    = KB + RCB\r\n      IF (PRCD) 490,490,480\r\nC\r\n  430 DSUMI = DZERO\r\n      DO 440 J = JB,JE\r\n      DSUMR = DSUMR + DZ(JA)*DZ(KB  ) - DZ(JA+1)*DZ(KB+1)\r\n      DSUMI = DSUMI + DZ(JA)*DZ(KB+1) + DZ(JA+1)*DZ(KB  )\r\n      JA    = JA + RCA\r\n  440 KB    = KB + RCB\r\n      GO TO 490\r\nC\r\n  460 DZ(AROW) = DZ(AROW) + DSUMR\r\n      GO TO 500\r\n  470 Z(AROW)  = Z(AROW)  + SNGL(DSUMR)\r\n      GO TO 500\r\n  480 DZ(AROW  ) = DZ(AROW  ) + DSUMR\r\n      DZ(AROW+1) = DZ(AROW+1) + DSUMI\r\n      GO TO 500\r\n  490 Z(AROW  ) = Z(AROW  ) + SNGL(DSUMR)\r\n      Z(AROW+1) = Z(AROW+1) + SNGL(DSUMI)\r\nC\r\nC\r\nC     END OF STRING DATA. IF THIS IS NOT THE LAST STRING OF CURRENT\r\nC     ROW OF A, RETURN FOR NEXT STRING\r\nC\r\n  500 NBRSTR = NBRSTR - 1\r\n      APOINT = APOINT + NBR*NWDA + PRCA\r\n      IF (NBRSTR .GT. 0) GO TO 20\r\nC\r\nC     END OF A ROW OF MATRIX A.\r\nC     RETURN FOR NEXT ROW IF THIS IS NOT THE LAST ROW IN OPEN CORE.\r\nC     IF IT IS THE LAST ROW, RETURN TO CALLER FOR PACKING OUT THE\r\nC     CURRENT COLUMN OF MATRIX D (IN C ARRAY)\r\nC\r\n  510 L    = L - 2\r\n      AROW = AROW + 1\r\n      IF (AROW .LE. AROWN) GO TO 10\r\n      RETURN\r\nC\r\n  520 CALL MESAGE (-37,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpya3d.f",
    "content": "      SUBROUTINE MPYA3D (AA,BB,NROW,BAND,CC)\r\nC\r\nC     WITH ENTRY MPYA3S (A,B,NROW,BAND,C)\r\nC\r\nC     WAS NAMED DATBAD/DATBAS IN UAI CODE\r\nC\r\nC     THESE ROUTINES PERFORM TRIPLE MATRIX MULTIPLY OF THE FORM\r\nC\r\nC                          T\r\nC                 C = C + A * B * A\r\nC\r\nC     ON TWO INCOMING ROW-LOADED MATRICES A AND B, AND ADD THEM TO\r\nC     MATRIX C\r\nC\r\nC     THE INCOMING MATRICES MUST BE SQUARE (AND OBVIOUSLY OF THE SAME\r\nC     SIZE, NROW.) AND\r\nC     SYMMETRICAL (SINCE WE OPERATE ONLY ON LOWER TRIANGULAR MATRICES)\r\nC\r\nC     MATRIX A CAN BE A PSUEDO-DIAGONAL MATRIX, I.E. A MATRIX HAVING\r\nC     SQUARE PARTITIONS OF NON-ZERO TERMS ALONG ITS DIAGONAL.\r\nC     THESE PARTITIONS ARE OF THE SIZE  BAND X BAND.\r\nC     NOTE THAT NROW MUST BE AN INTEGER MULTIPLE OF BAND.\r\nC\r\nC     THIS ALGORITHM IS SUITABLE FOR TRIPLE MULTIPLIES INVOLVING GLOBAL\r\nC     TRANSFORMATIONS.\r\nC\r\nC\r\n      INTEGER          BAND\r\n      REAL             A(1) ,B(1) ,C(1)\r\n      DOUBLE PRECISION AA(1),BB(1),CC(1),DD\r\nC\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      II = 0\r\n      DO 50 IB = 1,NROW\r\n      IA1 = ((IB-1)/BAND+1)*BAND\r\nC\r\n      DO 40 ID1 = 1,NROW,BAND\r\n      ID2 = ID1 + BAND - 1\r\n      IF (ID1 .GT. IA1) GO TO 50\r\nC\r\n      ID11N = (ID1-1)*NROW\r\n      DO 30 ID = ID1,ID2\r\n      JJ = ID11N\r\n      DD = 0.0D0\r\nC\r\n      DO 10 IC = ID1,ID2\r\n      IBIC = II + IC\r\n      ICID = JJ + ID\r\n      IF (AA(ICID) .EQ. 0.0D0) GO TO 10\r\n      DD = DD + BB(IBIC)*AA(ICID)\r\n   10 JJ = JJ + NROW\r\nC\r\n      IF (DD .EQ. 0.0D0) GO TO 30\r\n      KK = (ID-1)*NROW\r\nC\r\n      DO 20 IA = ID,IA1\r\n      IBIA = II + IA\r\n      IF (AA(IBIA) .EQ. 0.0D0) GO TO 20\r\n      IAID = KK + ID\r\n      CC(IAID) = CC(IAID) + DD*AA(IBIA)\r\n   20 KK = KK + NROW\r\nC\r\n   30 CONTINUE\r\n   40 CONTINUE\r\n   50 II = II + NROW\r\nC\r\nC     COPY THE LOWER TRIANGLE TO THE UPPER\r\nC\r\n      KK = NROW - 1\r\n      II = 0\r\n      DO 70 I = 1,KK\r\n      IB = I + 1\r\n      JJ = I*NROW\r\n      DO 60 J = IB,NROW\r\n      CC(II+J) = CC(JJ+I)\r\n   60 JJ = JJ + NROW\r\n   70 II = II + NROW\r\nC\r\n      RETURN\r\nC\r\nC\r\n      ENTRY MPYA3S (A,B,NROW,BAND,C)\r\nC     ==============================\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      II = 0\r\n      DO 150 IB = 1,NROW\r\n      IA1 = ((IB-1)/BAND+1)*BAND\r\nC\r\n      DO 140 ID1 = 1,NROW,BAND\r\n      ID2 = ID1 + BAND - 1\r\n      IF (ID1 .GT. IA1) GO TO 150\r\nC\r\n      ID11N = (ID1-1)*NROW\r\n      DO 130 ID = ID1,ID2\r\n      JJ = ID11N\r\n      DD = 0.0D0\r\nC\r\n      DO 110 IC = ID1,ID2\r\n      IBIC = II + IC\r\n      ICID = JJ + ID\r\n      IF (A(ICID) .EQ. 0.0) GO TO 110\r\n      DD = DD + DBLE(B(IBIC))*DBLE(A(ICID))\r\n  110 JJ = JJ + NROW\r\n      IF (DD .EQ. 0.0D0) GO TO 130\r\n      KK = (ID-1)*NROW\r\nC\r\n      DO 120 IA = ID,IA1\r\n      IBIA = II + IA\r\n      IF (A(IBIA) .EQ. 0.0) GO TO 120\r\n      IAID = KK + ID\r\n      C(IAID) = SNGL(DBLE(C(IAID)) + DD*DBLE(A(IBIA)))\r\n  120 KK = KK + NROW\r\nC\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n  150 II = II + NROW\r\nC\r\nC     COPY THE LOWER TRIANGLE TO THE UPPER\r\nC\r\n      KK = NROW - 1\r\n      II = 0\r\n      DO 170 I = 1,KK\r\n      IB = I + 1\r\n      JJ = I*NROW\r\n      DO 160 J = IB,NROW\r\n      C(II+J) = C(JJ+I)\r\n  160 JJ = JJ + NROW\r\n  170 II = II + NROW\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpyad.f",
    "content": "      SUBROUTINE MPYAD (ZZ      ,Z      ,ZD      )\r\nC\r\nC     THE FOLLOWING DEFINES THE VARIOUS I/O METHODS AND STORAGE METHODS USED\r\nC  BY THE DIFFERENT MULTIPLY-ADD METHODS.  \r\nC\r\nC  IN REGARDS TO THE NEW METHODS BELOW, WHEN MULTIPLE COLUMNS OF A MATRIX\r\nC  ARE STORED AND READ BY GETSTR, THEN THE MATRIX IS STORED IN MEMORY IN \r\nC  COMPACT FORM.  SEE SUBROUTINES 'MMARM1,2,3,4' FOR A DESCRIPTION OF \r\nC  THIS COMPACT FORM.  WHEN ONLY A SINGLE COLUMN OF A MATRIX IS STORED \r\nC  AND IT IS BEING READ BY GETSTR, IT IS STORED IN COMPACT FORM IN MEMORY.  \r\nC  SEE SUBROUTINES 'MMARC1,2,3,4' FOR A DESCRIPTION OF THIS FORM.\r\nC\r\nC   METHOD     METHOD OF READING MATRIX    MULTIPLE COLUMNS OF MATRIX STORED\r\nC                 A        B       C           A         B        D\r\nC  OLD METHODS\r\nC     1         INTPK   UNPACK   UNPACK       NO         YES      YES\r\nC     2T        GETSTR  UNPACK   INTPK        YES        NO       NO\r\nC     2NT       GETSTR  INTPK    INTPK        YES        NO       NO\r\nC     3T        UNPACK  GETSTR   INTPK        YES        NO       NO\r\nC  NEW METHODS\r\nC     10        UNPACK  UNPACK   UNPACK       YES        NO       NO\r\nC     11        UNPACK  GETSTR   UNPACK       YES        NO       NO\r\nC     20        UNPACK  UNPACK   UNPACK       NO         YES      YES\r\nC     21        GETSTR  UNPACK   UNPACK       NO         YES      YES\r\nC     30        GETSTR  UNPACK   UNPACK       YES        NO       NO\r\nC     31        GETSTR  GETSTR   UNPACK       YES        NO       NO\r\nC     40        UNPACK  GETSTR   UNPACK       NO         YES      YES\r\nC     41        GETSTR  GETSTR   UNPACK       NO         YES      YES\r\nC\r\n      COMMON /MPYADX/ FILEA(7)     ,FILEB(7)     ,FILEC(7)     ,\r\n     1                FILED(7)     ,NZ    ,T     ,SIGNAB,SIGNC ,PREC1 ,\r\n     2                SCRTCH,TIME\r\n      COMMON /SYSTEM/ KSYSTM(152)\r\n      EQUIVALENCE     (KSYSTM(58), METHOD )\r\n      CALL SSWTCH ( 49, L49 )\r\n      IF ( METHOD .GE. 1 .AND. METHOD .LE. 3 ) L49 = 1 \r\n      IF ( L49 .NE. 0 ) CALL MPYADO ( ZZ, Z, ZD )\r\n      IF ( L49 .EQ. 0 ) CALL MMA    ( ZZ, Z, ZD )\r\n      RETURN\r\n      END\r\n\r\n"
  },
  {
    "path": "mis/mpyado.f",
    "content": "      SUBROUTINE MPYADO (ZZ      ,Z      ,ZD      )\r\nC\r\nC     MPYAD PERFORMS THE MATRIX OPERATION\r\nC       (+/-)A    * B (+/-)C = D   OR\r\nC       (+/-)A(T) * B (+/-)C = D\r\nC\r\nC     LAST REVISED  1/92 BY G.CHAN/UNISYS\r\nC     . NEW METHOD 4T WAS ADDED WHICH IS FASTER THAN METHOD 2T UNDER\r\nC       CERTAIN CONDITIONS.\r\nC     . NEW ROUTINE FOR DIAGONAL, IDENTITY, AND ROW VECTOR MATRICES\r\nC     . USER CAN REVERT TO ORIGINAL MPYAD ALL METHODS, BY DIAG 41\r\nC\r\nC\r\nC     LEGEND:\r\nC\r\nC     +---+ + +  IS A MATRIX       +-            \\    AN ELEMENT OF\r\nC     |   | | |  BY COLUMNS        |  IS A        \\   A, B, OR C IN\r\nC     |   | | |  IN MULTIPLE       |  COLUMN       \\     AND\r\nC     |   | | |  PASSES            |             OR   /  AN ELEMENT\r\nC     +---+ + +                    +-                /   OF D OUT\r\nC\r\nC     +-------+  IS A MATRIX\r\nC     |       |  BY ROWS           => OR   INDICATES MATRICES C AND D\r\nC     +-------+  IN MULTIPLE       <=      ARE USING SAME CORE SPACE\r\nC     +-------+  PASSES\r\nC     +-------+\r\nC\r\nC     UPPER CASE LETTER INDICATES UNPACKED MATRIX OR COLUMN\r\nC     LOWER CASE LETTER INDICATES MATRIX OR COLUMN IN STRINGS FORM\r\nC\r\nC\r\nC     METHOD 1NT AND 1T       METHOD 2NT               METHOD 2T\r\nC                                        B                        +-\r\nC         +----+ + +                    /                         |\r\nC         |    | | |                   /                          |B\r\nC     a   | B  | | |          + + +---+ +-                        |\r\nC      \\  |    | | |          | | |   | |            +----------+ +-\r\nC       \\ +----+ + +          | | | a | |C           |    a     |\r\nC         +----+              | | |   | |            +----------+\r\nC         |    |              + + +---+ +- +-        +----------+ \\\r\nC         | D  | <= C                      |         +----------+  \\\r\nC         |    |                        => |D                     \\ C\r\nC         |    |                           |                       \\\r\nC         +----+                           +-                       D\r\nC\r\nC      METHOD 3T     +-                  METHOD 4T     +-\r\nC                    |                                 |\r\nC                    |b                                |b(BANDED)\r\nC                    |                                 |\r\nC                    +-                                +-\r\nC         + + +----+ +-    +-              +---------+ +-\r\nC         | | |    | |     |               |         | |\r\nC         | | | A  | |D  + |C              |    a    | |C\r\nC         | | |    | |     |               |         | |\r\nC         + + +----+ +-    +-              +---------+ +-  +-\r\nC                        ADD ON            +---------+     |\r\nC                        LAST              +---------+     |D(FULL)\r\nC                        PASS                           => |\r\nC                                                          +-\r\nC\r\n      LOGICAL         LAST  ,NULL\r\n      EXTERNAL        ANDF  ,ORF   ,LSHIFT\r\nCWKBI 9/93\r\n      INTEGER PRNTYP(4), NAMEA(2), NAMEB(2), NAMEC(2), NAMED(2), PRCA\r\n      INTEGER         ZZ(6) ,P     ,Q     ,R     ,T     ,OP    ,OPA   ,\r\n     1                OPB   ,OPC   ,OPBC  ,OP2   ,ONE1  ,ONE2  ,P1    ,\r\n     2                PP1   ,PP2   ,PRC   ,PREC  ,PREC1 ,BCD   ,RCB   ,\r\n     3                RCD   ,RC    ,RD    ,RDREW ,WRT   ,WRTREW,CLS   ,\r\n     4                CLSREW,ANDF  ,ORF   ,EOL   ,EOR   ,ACOL  ,ACOL1 ,\r\n     5                ACOLN ,ACORE ,APOINT,POINT ,BCOL  ,BUF1  ,BUF2  ,\r\n     6                BUF3  ,BUF4  ,BUFI  ,BLK   ,BLOCK ,ROW   ,ROWA  ,\r\n     7                AROW  ,AROW1 ,AROWN ,CROW  ,DROW  ,TYPE  ,TYPEA ,\r\n     8                TYPEB ,TYPEC ,TYPED ,TYPEBD,TYPD  ,TYPD1 ,FILE  ,\r\n     9                FILEA ,FILEB ,FILEC ,FILED ,CFILE ,DFILE ,EFILE ,\r\n     O                SCRTCH,SIGNAB,SIGNC ,FIRSTL,SYSBUF,FORM  ,FLAG  ,\r\n     1                DENSC\r\n      DOUBLE PRECISION       AD(2) ,BD(2) ,DD(2) ,ZD(1) ,XND\r\n      DIMENSION       B(4)  ,Z(1)  ,MPY(3),BCD(2),ZERO(4)      ,XNS(1),\r\n     1                NAME(2)      ,BLK(15)      ,METHOD(6)\r\nCNVXNB\r\n      COMMON /LOGOUT/ LOUT\r\nCNVXNE\r\n      COMMON /MACHIN/ MACH  ,IHALF ,JHALF\r\n     1       /MPYQT4/ QT(2) ,LL4   ,JMP(2)\r\n      COMMON /MPYADX/ FILEA(7)     ,FILEB(7)     ,FILEC(7)     ,\r\n     1                FILED(7)     ,NZ    ,T     ,SIGNAB,SIGNC ,PREC1 ,\r\n     2                SCRTCH,TIME\r\n     3       /SYSTEM/ KSYSTM(152)\r\n     4       /TYPE  / PRC(2),NWDS(4)      ,RC(4)\r\n     5       /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n     6       /ZBLPKX/ D(4)  ,DROW\r\n     7       /ZNTPKX/ A(4)  ,IP    ,EOL   ,EOR\r\n     8       /PACKX / TYPED ,TYPD1 ,ONE1  ,PP1   ,INCR1\r\n     9       /UNPAKX/ TYPEBD,ONE2  ,PP2   ,INCR2\r\n      COMMON /NTIME / NITEMS,TMIO  ,TMBPAK,TMIPAK,TMPAK ,TMUPAK,TMGSTR,\r\n     1                TMPSTR,TMT(4),TML(4)\r\n     2       /MPYADZ/ RCB   ,RCD   ,LL    ,LLL   ,JB    ,NBX   ,NDX   ,\r\n     3                JMAX1X,ACOL  ,ACOL1 ,ACOLN ,ACORE ,APOINT,BCOL  ,\r\n     4                CROW  ,FIRSTL,NA    ,NB    ,ND    ,NWDA  ,NWDB  ,\r\n     5                NWDD  ,PREC  ,JMAX  ,INCRA ,BLOCK(20)\r\n     6       /ZZZZZZ/ XND(8500)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) , (KSYSTM( 2),MOUT ) ,\r\n     1                (KSYSTM(58),KSYS58) , (KSYSTM(40),NBPW )\r\nCWKBI 10/93\r\n     2               ,(KSYSTM(55),IPREC )\r\n      EQUIVALENCE     (A(1)    ,AD(1)   ) , (B(1)    ,BD(1)  ) ,\r\n     1                (D(1)    ,DD(1)   ) , (FILEA(2),M      ) ,\r\n     2                (FILEA(3),N,ROWA  ) , (FILEA(5),TYPEA  ) ,\r\n     3                (FILEB(2),Q       ) , (FILEB(3),R      ) ,\r\n     4                (FILEB(5),TYPEB   ) , (FILEC(5),TYPEC  ) ,\r\n     6                (FILED(5),TYPD    ) , (NZZ     ,BUF1   ) ,\r\n     7                (ACOLN   ,AROWN   ) , (FILEC(7),DENSC  )\r\n      EQUIVALENCE     (BLOCK(2),TYPE    ) , (BLOCK(3),FORM   ) ,\r\n     1                (BLOCK(4),ROW     ) , (BLOCK(5),POINT  ) ,\r\n     2                (BLOCK(6),NBRSTR  ) ,\r\n     3                (BLOCK(8),FLAG    ) , (XND(1)  ,XNS(1) ) ,\r\n     4                (ACOL1   ,AROW1   ) , (ACOL    ,AROW   ) ,\r\n     5                (MPY(1)  ,NAME(1) )\r\nC\r\n      DATA    NAME  / 4HMPYA, 4HD   /, JBEGN /  4HBEGN/, JEND  / 3HEND/\r\n     1        TIME1 / 0. /  , TIME2 /  0.    /, ZERO  /  4*0   /,\r\n     2        METHOD/ 4H1 NT, 4H1 T ,  4H2 NT,  4H2 T  , 4H3 T , 3H4 T/\r\nCWKBI 9/93\r\n      DATA PRNTYP / 2HRS, 2HRD, 2HCS, 2HCD /\r\nCNVXNB\r\n      IF (TYPEA .EQ. 0) TYPEA = IPREC\r\n      IF (TYPEB .EQ. 0) TYPEB = IPREC\r\n      IF (TYPEC .EQ. 0) TYPEC = IPREC\r\nCNVXNE\r\nCWKBNB 7/94 SPR94008\r\n      ITYPEA = TYPEA\r\n      ITYPEB = TYPEB\r\n      ITYPEC = TYPEC\r\nCWKBNE 7/94 SPR94008\r\nC\r\nC     CHECK TO SEE IF THE INPUT MATRICES ARE CONFORMABLE\r\nC\r\n      CALL SSWTCH (19,L19)\r\n      CALL SSWTCH (41,L41)\r\n      NOGO = 0\r\n      FILE = 0\r\n      NOAB = 0\r\n      IF (FILEA(6).EQ.0 .OR. FILEB(6).EQ.0) NOAB = 1\r\n      IROWB = FILEA(2)\r\n      IROWC = FILEA(3)\r\n      IF (T .NE. 0) T = 1\r\n      IF (T .EQ. 0) GO TO 30\r\n      IROWB = FILEA(3)\r\n      IROWC = FILEA(2)\r\n   30 IF (NOAB .EQ. 1) GO TO 50\r\n      IF (FILEB(3) .NE. IROWB) NOGO = 1\r\n      IF (FILEC(1) .LE. 0) GO TO 40\r\n      IF (FILEC(2).NE.FILEB(2) .OR. FILEC(3).NE.IROWC) NOGO = 1\r\n   40 IF (NOGO .EQ. 1) GO TO 560\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n   50 MPY(3) = JBEGN\r\n      IF (FILED(1) .GT. 0) CALL CONMSG (MPY,3,0)\r\n      NOUT  = LOUT\r\nC\r\nC  -- USE SINGLE PRECISION ON MACHINES WITH 60 OR 64 BITS PER WORD\r\nC\r\n      IF (NBPW .GE. 60) PREC1 = 1\r\n      OPB   = RDREW\r\n      OPC   = RDREW\r\n      OP2   = WRTREW\r\n      OP    = CLS\r\n      CFILE = FILEC(1)\r\n      IF (CFILE .EQ. 0) TYPEC = 1\r\n      B(2)  = 0.\r\n      B(3)  = 0.\r\n      B(4)  = 0.\r\n      TYPD1 = TYPD\r\n      ONE1  = 1\r\n      ONE2  = 1\r\n      P     = N\r\n      IF (T .NE. 0) P = M\r\n      PP1   = P\r\n      INCR1 = 1\r\n      IF (CFILE.EQ.0  .OR. FILEC(6).EQ.0) CFILE = 0\r\n      IF (FILEB(6).EQ.0 .AND. CFILE.EQ.0) PP1   = 1\r\n      INCR2    = 1\r\n      FILED(2) = 0\r\n      FILED(6) = 0\r\n      FILED(7) = 0\r\n      MPASS3   = 0\r\n      TIME3    = 1.0E+10\r\n      PREC     = PREC1\r\n      IF (PREC .NE. 2) PREC = 1\r\n      IF (PREC1.EQ.0 .AND. (PRC(TYPEA).EQ.2 .OR. PRC(TYPEB).EQ.2 .OR.\r\n     1    PRC(TYPEC).EQ.2)) PREC = 2\r\nC\r\nC     ELIMINATE METHOD THREE FROM SELECTION FOR THIS BAD CASE\r\nC     (I.E. TRANSPOSE AND MIXED MATRIX PRECISION)\r\nC\r\n      IT = T\r\n      IF (IT.NE.0 .AND. PREC.EQ.1 .AND. PRC(TYPEB).EQ.2) IT = 0\r\n      IF (IT.NE.T .AND. L19.NE.0) WRITE (NOUT,60) TYPEA,TYPEB,TYPEC\r\n   60 FORMAT ('0METHOD 3T IS ELIMINATED FROM SELECTION/MPYAD@60',/1X,\r\n     1        'MATRIX TYPES A,B,C =',3I3)\r\nC\r\nC     COMPUTE TYPE AND PRECISION OF D MATRIX\r\nC     RCD    = 1 FOR REAL,   2 FOR COMPLEX\r\nC     PREC   = 1 FOR SINGLE, 2 FOR DOUBLE\r\nC     TYPED  = 1 FOR RSP, 2 FOR RDP, 3 FOR CSP, AND 4 FOR CDP\r\nC     PRC(1) = 1 FOR S.P.   PRC(2) = 2 FOR D.P.\r\nC\r\n      RCD = 0\r\n      IF (PREC .EQ. 2) GO TO 70\r\n      IF (ANDF(TYPEA,1) .EQ. 0) TYPEA = TYPEA - 1\r\n      IF (ANDF(TYPEB,1) .EQ. 0) TYPEB = TYPEB - 1\r\n      IF (ANDF(TYPEC,1) .EQ. 0) TYPEC = TYPEC - 1\r\n   70 IF (TYPEA.GT.2 .OR. TYPEB.GT.2 .OR. TYPEC.GT.2) RCD = 2\r\n      TYPED = RCD + PREC\r\n      IF (RCD .EQ. 0) RCD = 1\r\nC\r\nC     RCA/B/D   = 1 IF A/B/D IS REAL, = 2 IF A/B/D IS COMPLEX\r\nC     NWDA/B/D  = NUMBER OF WORDS PER ELEMENT OF A/B/D\r\nC     NBX/DX    = NUMBER OF ELEMENTS PER COLUMN OF B/C ORD\r\nC     NB/D      = NUMBER OF WORDS PER COLUMN OF B/C OR D\r\nC     NZZ       = BUF1 = POINTER TO FIRST GINO BUFFER\r\nC     BUF2/3    = POINTER TO SECOND AND THIRD GINO BUFFERS\r\nC     JJ        = MAX. NO. OF COLNS OF B AND D THAT MAY BE HELD IN CORE\r\nC     MPASS1/2/3 = NUMBER OF PASSES REQUIRED FOR METHOD ONE/TWO/THREE\r\nC     JZB/JZDB  = POINTER TO FIRST ELEMENT OF B FOR SP/DP REFERENCE\r\nC     JB        = POINTER TO FIRST ELEMENT OF B FOR PRECISION OF PROBLEM\r\nC     ACORE     = POINTER TO FIRST WORD FOR STORAGE OF PACKED COLUMNS\r\nC                 OF A MATRIX FOR METHOD TWO\r\nC     KSYS58    = SYSTEM(58), METHOD REQUESTED BY USER IF IT IS NON-ZERO\r\nC\r\nC\r\nC     TURN TRANSPOSE FLAG OFF IF INPUT MATRIX A IS SYMMETRIC, AND SURELY\r\nC     THAT COLUMNS EQUEL ROWS, AND DIAG 41 IS OFF.\r\nC\r\nC     IF INPUT A OR B IS DIAGONAL, ROW VECTOR, OR IDENTITY MATRICES,\r\nC     MATRICES ARE NOT IN MIXED PRECISTION TYPES, AND DIAG 41 FLAG IS\r\nC     OFF AND SYSTEM(94) IS NOT 1, BRANCH OFF TO SPECIAL SUBROUTINE\r\nC     MPY-D-R-I\r\nC\r\n      K = FILEA(4)\r\n      IF (K.EQ.6 .AND. M.EQ.N .AND. L41.EQ.0) T = 0\r\nC        SYMMETRIC    COLN=ROW     DIAG41 OFF\r\n      IF (L41.EQ.1 .OR. MOD(KSYSTM(94),10).EQ.1) GO TO 80\r\n      J = FILEB(4)\r\n      IF (K.NE.3 .AND. K.NE.7 .AND. K.NE.8 .AND.\r\n     1    J.NE.3 .AND. J.NE.7 .AND. J.NE.8) GO TO 80\r\nC         DIAGONAL     ROW VCTR     IDENTITY\r\nC\r\n      IF (TYPEA.NE.TYPEB .OR. TYPEA.NE.TYPD) GO TO 80\r\n      K = MAX0(M,N,Q,R)\r\n      J = K*2 + 1\r\n      K = K + 1\r\n      CALL MPYDRI (Z,Z,Z(K),Z(K),Z(J),Z(J))\r\n      GO TO 380\r\nC\r\n   80 RCB   = RC(TYPEB)\r\n      NBX   = R*RCB\r\n      NWDB  = NWDS(TYPEB)\r\n      NWDB1 = NWDB + 1\r\n      NB    = R*NWDB\r\n      NDX   = P*RCD\r\n      ND    = P*NWDS(TYPED)\r\n      NZZ   = IABS(NZ) - SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      JJ    = (NZZ-1)/(NB+ND)\r\n      ICRQ  = NB + ND - NZZ + 1\r\n      IF (ICRQ .GT. 0) GO TO 530\r\n      MPASS1= (Q-1)/JJ + 1\r\n      JZB   = JJ*ND  + 1\r\n      JZDB  = JJ*NDX + 1\r\n      JB    = JZB\r\n      IF (PRC(TYPEB) .EQ. 2) JB = JZDB\r\n      NWDA  = NWDS(TYPEA)\r\n      PRCA  = PRC(TYPEA)\r\n      NA    = NWDA*N\r\n      NWDA1 = NWDA + 1\r\n      NWDD  = NWDS(TYPED)\r\n      ACORE = ND + 1\r\n      IF (T .NE. 0) ACORE = NB + 1\r\n      ACORE = ((ACORE+1)/2)*2 + 1\r\n      IF (SIGNAB.EQ.0 .AND. PREC.EQ.1 .AND. (PRC(TYPEA).EQ.2 .OR.\r\n     1    PRC(TYPEB).EQ.2)) TYPED = RCD + 1\r\n      IF (NOAB.EQ.1   .OR. SIGNAB.EQ. 0) GO TO 1100\r\n      IF (SIGNAB.EQ.1 .OR. SIGNAB.EQ.-1) GO TO 100\r\n      WRITE  (MOUT,90)\r\n   90 FORMAT ('0*** USER FATAL MESSAGE 2398, MPYAD REQUIRES SIGN OF ',\r\n     1        'A*B TO BE -1, 0, OR +1')\r\n      GO TO 540\r\n  100 CALL MPYQ (Z)\r\nC\r\nC     CALCULATE ESTIMATED EXECUTION TIMES AND SELECT METHOD.\r\nC\r\n      NCORE = BUF3 - ACORE\r\n      ICRQ  = -NCORE\r\n      IF (ICRQ .GT. 0) GO TO 530\r\n      CORE  = FLOAT(NCORE/NWDA)\r\n      FN    = FILEA(2)\r\n      FM    = FILEA(3)\r\n      FP    = FILEB(2)\r\n      RHOA  = AMIN1(1.E-4*FLOAT(FILEA(7)),1.0)\r\n      RHOB  = AMIN1(1.E-4*FLOAT(FILEB(7)),1.0)\r\n      RHOC  = AMIN1(1.E-4*FLOAT(FILEC(7)),1.0)\r\n      RHOD  = AMAX1(RHOA,RHOB)\r\n      ARITH = FM*FN*(TMT(TYPED) + (1.0-RHOA)*TML(TYPED))\r\n      ATERM = (FM*RHOA+5.0)*FN*TMIPAK\r\n      BTERM = FLOAT(R)*FP*0.5*(1.0+RHOB)*TMUPAK\r\n      DTERM = FM*FP*0.5*(1.0+RHOD)*TMPAK\r\n      CTERM = 0\r\n      IF (CFILE .NE. 0) CTERM = FM*FP*0.5*(1.0+RHOC)*TMUPAK\r\n      TIME1 = (FM*FN*FP*RHOA*TMT(TYPED) + FLOAT(MPASS1)*ATERM + BTERM\r\n     1      +  DTERM + CTERM)*1.0E-6\r\nC\r\n      MPASS2= (2.0-RHOA)*FM*FN*RHOA/CORE + 1.0\r\n      FR    = MPASS2\r\n      IF (T .NE. 0) GO TO 110\r\n      TIME2 = (FP*RHOA*RHOB*ARITH + ATERM\r\n     1      + (FR+1.0)/2.0*(FN*RHOB+10.0)*FP*TMIPAK + FR*DTERM\r\n     2      + (FR-1.0)*0.5*FM*FP*(1.0+RHOD)*TMUPAK\r\n     3      + CTERM)*1.0E-6\r\n      GO TO 120\r\nC\r\n  110 FNT   = FN*FM*RHOB\r\n      P1    = AMIN1((FNT/FLOAT(FILEB(6))+FP)/2.0,FNT,FP)\r\n      FP1   = P1\r\n      CTERM2= 0.\r\n      IF (CFILE .NE. 0) CTERM2 = (FN*RHOC+5.0)*FP*TMIPAK\r\n      BTERM = FM*FP*0.5*(1.0+RHOB)*TMUPAK\r\n      DTERM2= (FN*RHOD+5.0)*FP\r\n      TIME2 = (FP1*RHOA*ARITH + (FM*RHOA+5.0)*FN*TMIPAK + FR*BTERM\r\n     1      + (FR+1.0)/2.0*DTERM2*TMBPAK + (FR-1.0)/2.0*DTERM2*TMIPAK\r\n     2      + CTERM2)*1.0E-6\r\nC\r\n      BUFI  = BUF4\r\n      IF (FILEC(1) .EQ. 0) BUFI = BUF3\r\n      NBRROW= MIN0((BUFI-ORF(ND+1,1))/NA,M)\r\n      MPASS3= (M-1)/NBRROW + 1\r\n      FR    = MPASS3\r\n      TIME3 = (FM*FN*FP*RHOB*TMT(TYPED) + FM*FN*0.5*(1.0+RHOA)*TMUPAK\r\n     1      + FR*FP*(FN*RHOB+5.0 )*TMIPAK\r\n     2      + (FR+1.0)/4.0*FN*FP*(1.0+RHOD)*TMPAK\r\n     3      + (FR-1.0)/4.0*FN*FP*(1.0+RHOD)*TMUPAK + CTERM2)*1.E-6\r\n  120 CALL TMTOGO (ITIMGO)\r\n      IF (CORE .LE. 0.0) TIME2 = AMAX1(TIME1,TIME3) + 1.0\r\n      TIME  = AMIN1(TIME1,TIME2,TIME3)\r\n      ITIME = TIME + 1\r\n      IF (ITIMGO.LE.ITIME .AND. FILED(1).GT.0) GO TO 550\r\nC\r\nC     PRINT TIMING MESSAGE AND IF OUTPUT FILE IS PURGED RETURN\r\nC\r\n      IELEMS = FN*FM*RHOA + 0.5\r\n      JELEMS = FLOAT(R)*FP*RHOB\r\nCWKBNB 9/93\r\n      IF(L19.EQ.0) GO TO 137\r\n      CALL FNAME ( FILEA, NAMEA )\r\n      CALL FNAME ( FILEB, NAMEB )\r\n      CALL FNAME ( FILEC, NAMEC )\r\n      CALL FNAME ( FILED, NAMED )\r\n      WRITE( NOUT,136, IOSTAT=IERR )\r\nCWKBR 7/94/SPR 94008 *         NAMEA, N, M, IELEMS, RHOA, PRNTYP( TYPEA )\r\nCKWBR 7/94 SPR 94008 *,        NAMEB, R, Q, JELEMS, RHOB, PRNTYP( TYPEB )\r\n     *         NAMEA, N, M, IELEMS, RHOA, PRNTYP( ITYPEA )\r\n     *,        NAMEB, R, Q, JELEMS, RHOB, PRNTYP( ITYPEB )\r\n  136 FORMAT(\r\n     & '  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'  /     MATRIX      ROWS   COLS     TERMS  DENS    TYPE       /'\r\n     &,/\r\n     &,'  /-----------------------------------------------------------/'\r\n     &,/\r\n     &,'  /  A- ',2A4,I8,I7,I10,F7.4, 5X, A2\r\n     &,/\r\n     &,'  /  B- ',2A4,I8,I7,I10,F7.4, 5X, A2 )\r\n      IELEMS = FN*FM*RHOC + .5\r\n      IF (CFILE .EQ. 0) GO TO 11140\r\n      WRITE( NOUT,11136, IOSTAT=IERR )\r\n     *        NAMEC, FILEC(3), FILEC(2), IELEMS, RHOC, PRNTYP(ITYPEC)\r\n11136 FORMAT(\r\n     &   '  /  C- ',2A4,I8,I7,I10, F7.4, 5X, A2 )\r\n11140 WRITE( NOUT, 11137 ) NAMED, PRNTYP(TYPED)\r\n11137 FORMAT('  /  D- ',2A4,8X, 7X, 10X, 7X,   5X, A2 )\r\n      WRITE( NOUT, 11138 ) SIGNAB, SIGNC, T, CORE, MPASS1,MPASS2,\r\n     &                     MPASS3, TIME1, TIME2, TIME3\r\n11138 FORMAT('  /  SIGNAB =',I4,'  SIGNC =',I4,'  TIME EST=',I9\r\n     &,      ' MEMORY =',F8.0\r\n     &,/,    '  /  MPASS1 =',I4, '  MPASS2=',I4, '  MPASS3=',I4\r\n     &,/,    '  /  TIME1  =',E9.2,' TIME2=',E9.2,' TIME3=',E9.2,/\r\n     &,'  /-----------------------------------------------------------/'\r\n     &)\r\n  137 CONTINUE\r\nCWKBNE 9/93\r\nC\r\n  180 IF (FILED(1) .LT. 0) GO TO 1600\r\nC\r\n      J = KSYS58\r\n      IF (J.LT.0 .OR. J.GT.3 .OR. (J.EQ.3 .AND. IT.EQ.0)) J = 0\r\n      IF (J  .NE. 0) GO TO (200,600,1300), J\r\n      IF (IT .NE. 0) GO TO 190\r\nCWKBNB 2/95 NCL93004\r\n      IF ( MPASS1 .LT. MPASS2 ) GO TO 200\r\n      IF ( MPASS2 .LT. MPASS1 ) GO TO 600\r\nCWKBNE 2/95 NCL93004\r\n      IF (TIME1 .LT. TIME2) GO TO 200\r\n      GO TO 600\r\nCWKBD 2/95 NCL93004 190 IF (TIME1.LT.TIME2 .AND. TIME1.LT.TIME3) GO TO 200\r\nCWKBNB 2/95 NCL93004\r\n  190 CONTINUE\r\n      IF ( MPASS1 .LT. MPASS2 .AND. \r\n     &   ( TIME1 .LT. TIME3 .OR. MPASS1 .LT. MPASS3 ) ) GO TO 200\r\n      IF ( MPASS2 .LT. MPASS1 .AND. \r\n     &   ( TIME2 .LT. TIME3 .OR. MPASS2 .LT. MPASS3 ) ) GO TO 200\r\n      IF ( TIME1 .LT. TIME2 .AND. TIME1 .LT. TIME3 ) GO TO 200\r\n      IF (TIME2 .LT. TIME3) GO TO 600\r\nCWKBNE 2/95 NCL93004\r\n      GO TO 1300\r\nC\r\nC               *********************\r\nC               *                   *\r\nC               *    METHOD  ONE    *\r\nC               *    MPY1NT $ 1T    *\r\nC               *                   *\r\nC               *********************\r\nC\r\nC     BUILD MATRIX PRODUCT JMAX COLUMNS PER PASS OF A MATRIX\r\nC     WHERE JMAX=JJ EXCEPT ON FINAL PASS\r\nC\r\n  200 JCOL = 1\r\n  230 WRITE  (NOUT,240) METHOD(T+1),MPASS1,TIME1\r\n  240 FORMAT ('    METHOD TO BE USED:',A4,', NBR PASSES =',I4,\r\n     1        ',  EST. TIME =',F9.1)\r\n  250 JMAX  = MIN0(JCOL+JJ-1,Q)\r\n      IF (JMAX .EQ. Q) OP = CLSREW\r\n      JMAX1 = JMAX  - JCOL\r\n      JMAX  = JMAX1 + 1\r\n      JMAX1X= JMAX1*NDX\r\n      IF (FILEB(6) .EQ. 0) GO TO 270\r\nC\r\nC     READ AND UNPACK JMAX COLUMNS OF THE B MATRIX\r\nC\r\n      FILE = FILEB(1)\r\n      JZ   = JZB\r\n      TYPEBD = TYPEB*SIGNAB\r\n      NBD  = NB\r\n      OPBC = OPB\r\n      PP2  = R\r\n      ASSIGN 270 TO MM\r\n      GO TO 400\r\nC\r\nC     READ AND UNPACK JMAX COLUMNS OF THE C MATRIX\r\nC\r\n  270 FILE = FILEC(1)\r\n      JZ   = 1\r\n      TYPEBD = TYPED*SIGNC\r\n      NBD  = ND\r\n      OPBC = OPC\r\n      PP2  = P\r\n      ASSIGN 280 TO MM\r\n      GO TO 400\r\nC\r\nC     OPEN AND POSITION A MATRIX TO FIRST COLUMN\r\nC\r\n  280 IF (FILEB(6) .EQ. 0) GO TO 340\r\n      FILE = FILEA(1)\r\n      CALL OPEN (*500,FILEA,Z(NZZ),RDREW)\r\n  290 CALL FWDREC (*510,FILEA)\r\nC\r\nC     SET POINTERS\r\nC     L   = COLUMN NUMBER\r\nC     LL  = POINTER TO LTH ROW OF B MATRIX\r\nC     LLL = POINTER TO LTH ROW OF D MATRIX\r\nC\r\n      L   = 1\r\n      LL  = JB\r\n      LLL = 1\r\nC\r\nC     CALL INTPK TO INITIATE READING THE LTH COLUMN OF THE A MATRIX\r\nC     IF COLUMN IS NULL, BYPASS ARITHMETIC\r\nC\r\n  310 CALL INTPK (*320,FILEA,0,TYPED,0)\r\nC\r\nC     FORM EITHER  A(I,L)*B(L,J) + D(I,J)\r\nC              OR  A(L,I)*B(I,J) + D(L,J)\r\nC           WHERE  J RUNS ACROSS COLUMNS OF B AND D NOW IN CORE\r\nC\r\n      CALL MPY1V (ZZ,Z,ZD)\r\nC\r\nC     POSITION POINTERS FOR NEXT COLUMN OF A\r\nC\r\n  320 LL  = LL + RCB\r\n      LLL = LLL+ RCD\r\n      L   = L  + 1\r\n      IF (L .LE. M) GO TO 310\r\nC\r\nC     CLOSE AND REWIND FILE CONTAINING A MATRIX\r\nC\r\n      CALL CLOSE (FILEA,CLSREW)\r\nC\r\nC     OPEN FILE CONTAINING D MATRIX TO WRITE\r\nC\r\n  340 FILE = FILED(1)\r\n      CALL OPEN (*500,FILED,Z(NZZ),OP2)\r\nC\r\nC     IF FIRST COLUMNS OF D, WRITE HEADER\r\nC\r\n      IF (OP2 .EQ. WRT) GO TO 360\r\n      CALL FNAME (FILED,BCD)\r\n      CALL WRITE (FILED,BCD,2,1)\r\nC\r\nC     PACK AND WRITE JMAX COLUMNS OF THE D MATRIX\r\nC\r\n  360 JZ = 1\r\n      DO 370 J = 1,JMAX\r\n      CALL PACK (Z(JZ),FILED,FILED)\r\n  370 JZ = JZ + ND\r\nC\r\nC     TEST FOR END OF MULTIPLICATION\r\nC     CLOSE FILE CONTAINING D MATRIX\r\nC\r\n      CALL CLOSE (FILED,OP)\r\nC\r\nC     SET OP FLAGS FOR OPEN CALLS FOR NEXT PASS\r\nC\r\n      OPB = RD\r\n      OPC = RD\r\n      OP2 = WRT\r\nC\r\n      JCOL = JCOL + JJ\r\n      IF (JCOL .LE. Q) GO TO 250\r\n  380 MPY(3) = JEND\r\n      CALL CONMSG (MPY,3,0)\r\n      GO TO 1600\r\nC\r\nC     INTERNAL SUBROUTINE TO READ JMAX COLUMNS OF THE B OR C MATRICES\r\nC     ELEMENTS ARE SET TO ZERO IF COLUMN IS NULL OR MATRIX ABSENT\r\nC\r\nC     OPEN AND POSITION FILE IF MATRIX IS PRESENT\r\nC\r\n  400 IF (FILE) 410,420,410\r\n  410 CALL OPEN (*500,FILE,Z(NZZ),OPBC)\r\n      IF (JCOL .NE. 1) GO TO 420\r\n      CALL FWDREC (*510,FILE)\r\nC\r\nC     LOOP THROUGH JMAX COLUMNS OF MATRIX\r\nC\r\n  420 DO 470 J = 1,JMAX\r\nC\r\nC     UNPACK THE JTH COLUMN IF MATRIX IS PRESENT\r\nC\r\n      IF (FILE) 440,450,440\r\n  440 CALL UNPACK (*450,FILE,Z(JZ))\r\n      GO TO 470\r\nC\r\nC     ZERO COLUMN\r\nC\r\n  450 K2 = JZ + NBD - 1\r\n      DO 460 K = JZ,K2\r\n  460 Z(K) = 0.\r\nC\r\nC     POSITION POINTERS TO NEXT COLUMN OF MATRIX\r\nC\r\n  470 JZ = JZ + NBD\r\nC\r\nC     CLOSE FILE IF MATRIX IS PRESENT\r\nC\r\n      IF (FILE) 480,490,480\r\n  480 CALL CLOSE (FILE,OP)\r\nC\r\nC     RETURN\r\nC\r\n  490 GO TO MM, (270,280)\r\nC\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n  500 MM = -1\r\n      GO TO 520\r\n  510 MM = -2\r\n  520 CALL MESAGE (MM,FILE,NAME)\r\n      GO TO 1600\r\nC\r\n  530 MM = -8\r\n      FILE = ICRQ\r\n      GO TO 520\r\n  540 MM = -37\r\n      GO TO 520\r\n  550 MM = -50\r\n      FILE = ITIME\r\n      GO TO 520\r\n  560 CALL FNAME (FILEA,ZZ(1))\r\n      CALL FNAME (FILEB,ZZ(3))\r\n      CALL FNAME (FILEC,ZZ(5))\r\n      IF (FILEC(2).NE.FILEB(2) .OR. FILEC(3).NE.IROWC) NOGO = 1\r\n      WRITE (MOUT,570) ZZ(1),ZZ(2),FILEA(2),FILEA(3),ZZ(3),ZZ(4),\r\n     1                 FILEB(2),FILEB(3),ZZ(5),ZZ(6),FILEC(2),IROWC\r\n  570 FORMAT (3(4X,2A4,2I7))\r\n      MM = -55\r\n      GO TO 520\r\nC\r\nC\r\nC               *********************\r\nC               *                   *\r\nC               *    METHOD  TWO    *\r\nC               *    MPY2NT $ 2T    *\r\nC               *    AND   MPY4T    *\r\nC               *                   *\r\nC               *********************\r\nC\r\n  600 CONTINUE\r\nC\r\nC     INITIALIZE FOR METHODS 2NT, 2T AND 4T.\r\nC     METHOD 4T DOES NOT HANDLE COMPLEX MATRIX-D FROM REAL MATRICES A\r\nC     AND B (LL4 = 6).\r\nC\r\n      MT4   = 0\r\n      MT2   = T\r\n      IF (MOD(KSYSTM(94),100)/10 .EQ. 1) GO TO 620\r\n      IF (T.EQ.0 .OR. L41.EQ.1 .OR. LL4.EQ.6) GO TO 620\r\n      IF (MPASS2.LE.2 .OR. CFILE.EQ.0 .OR. DENSC.LT.700) GO TO 620\r\n      MT2   = 0\r\n      MT4   = 2\r\n      ACORE = NB + ND + 1\r\n      ACORE = ((ACORE+1)/2)*2 + 1\r\n      JZB   = ND + 1\r\n      JB    = ND/PREC1 + 1\r\n  620 DFILE = FILED(1)\r\n      EFILE = SCRTCH\r\n      BLOCK(1) = FILEA(1)\r\n      CFILE = FILEC(1)\r\n      OPA   = RDREW\r\n      TYPEC = TYPED*SIGNC\r\n      FIRSTL= BUF3 - 1\r\n  640 WRITE (NOUT,240) METHOD(T+3+MT4),MPASS2,TIME2\r\nC\r\nC     BEGIN PASS\r\nC\r\nC     OPEN DFILE TO WRITE.\r\nC     READ AS MANY COLUMNS (OR ROWS) OF A AS CAN BE HELD\r\nC     IN CORE IN PACKED FORM ON THIS PASS.\r\nC\r\n      ACOL1 = 1\r\n  650 FILE = DFILE\r\n      CALL OPEN  (*500,DFILE,Z(BUF3),WRTREW)\r\n      CALL FNAME (FILED(1),BCD)\r\n      CALL WRITE (DFILE,BCD,2,1)\r\n      FILED(2) = 0\r\n      FILED(6) = 0\r\n      FILED(7) = 0\r\n      FILE = FILEA(1)\r\n      CALL GOPEN (FILEA,Z(BUF2),OPA)\r\n      APOINT = ACORE\r\n      L    = FIRSTL\r\n      ACOL = ACOL1\r\nCWKBR 9/94   660 IF ( (APOINT+NA+2) .GE. L-2) GO TO 530   \r\nC ABOVE CHECK WAS OVER-ZEALOUS IN CHECKING FOR AVAILABLE MEMORY\r\nC BECAUSE OF THE CHECK TWO LINES AFTER STATEMENT 670\r\n  660 IF ( (APOINT+2) .GE. L-2) GO TO 750   \r\n      ZZ(L  ) = 0\r\n      ZZ(L-1) = 0\r\n      BLOCK(8)=-1\r\n      CALL GETSTR (*730,BLOCK)\r\n      INCRA = 1\r\n      IF (PRC(TYPE).EQ.2 .AND. PRC(TYPEA).EQ.1) INCRA = 2\r\n      ZZ(L) = APOINT\r\n  670 KR1 = APOINT + 2\r\n      KRN = KR1 + NBRSTR*NWDA - 1\r\n      IF (KRN .GE. L-2) GO TO 740\r\nC\r\nC     MOVE STRING FROM BUFFER TO CORE AND COMPLETE STRING DEFINITION\r\nC     WORDS\r\nC\r\n      IF (PRC(TYPE).NE.2 .OR. PRC(TYPEA).NE.1) GO TO 690\r\nC\r\nC  -- THIS CODE NECESSARY FOR UNIVAC DOUBLE PRECISION TO SINGLE PRC.\r\nC\r\n      INC   = 1\r\n      INCRA = 1\r\n      IF (TYPE .EQ. 4) INC = 2\r\n      KRN = KR1 + NBRSTR*INC - 1\r\n      DO 680 II = KR1,KRN\r\n      Z(II) = XND(POINT)\r\n      POINT = POINT + INCRA\r\n  680 CONTINUE\r\n      GO TO 710\r\n  690 IF (PRC(TYPE) .EQ. 2) POINT = POINT*2 - 1\r\n      DO 700 II = KR1,KRN\r\n      Z(II) = XNS(POINT)\r\n      POINT = POINT + INCRA\r\n  700 CONTINUE\r\n  710 ZZ(APOINT  ) = ROW\r\n      ZZ(APOINT+1) = NBRSTR\r\n      ZZ(L-1) = ZZ(L-1) + 1\r\n      APOINT  = KRN + 1\r\nC\r\nC     GET NEXT STRING DEFINITION\r\nC\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*730,BLOCK)\r\n      GO TO 670\r\nC\r\nC     END-OF-COLUMN -\r\nC     SAVE LAST NON-ZERO TERM POSTION FOR MTHOD 4T, THEN\r\nC     TEST FOR ALL COLUMNS\r\nC\r\nC     SINCE GINO IS MDS, MAKE SURE THAT THE LAST VALUES IN NBRSTR AND\r\nC     ROW HERE ARE STILL VALID. OTHERWISE THEY MUST BE SAVED FIRST (AT\r\nC     710) AND USED ON NEXT LINE.\r\nC\r\n  730 IF (MT4 .EQ. 2) ZZ(L-1) = ORF(ZZ(L-1),LSHIFT(ROW+NBRSTR-1,IHALF))\r\nC                                    NBR + LAST NON-ZERO TERM COLUMN NO.\r\nC\r\n      L = L - 2\r\n      ACOL = ACOL + 1\r\n      IF (ACOL .LE. M) GO TO 660\r\nC\r\nC     ALL COLUMNS OF A ARE IN - THIS IS THE LAST PASS\r\nC\r\n      ACOLN = M\r\n      CALL CLOSE (FILEA(1),CLSREW)\r\n      GO TO 760\r\nC\r\nC     ALL COLUMNS OF A WILL NOT FIT ON THIS PASS.\r\nC\r\n  740 CALL BCKREC (FILEA(1))\r\n  750 CALL CLOSE  (FILEA(1),CLS)\r\n      ACOLN = ACOL - 1\r\nC\r\nC     IF CFILE IS PRESENT, OPEN IT.\r\nC     IF THIS IS THE FIRST PASS, SKIP HEADER RECORD.\r\nC     OPEN BFILE AND SKIP HEADER RECORD.\r\nC     INITIALIZE COLUMN (OR ORW) COUNTER, BCOL, TO 1, AND BRANCH ON T.\r\nC\r\n  760 IF (CFILE .EQ. 0) GO TO 770\r\n      FILE = CFILE\r\n      CALL OPEN (*500,CFILE,Z(BUF1),RDREW)\r\n      CALL FWDREC (*510,CFILE)\r\n  770 FILE = FILEB(1)\r\n      CALL OPEN (*500,FILEB(1),Z(BUF2),RDREW)\r\n      CALL FWDREC (*510,FILEB(1))\r\n      BCOL = 1\r\n  780 IF (MT2 .EQ. 1) GO TO 900\r\nC\r\nC     UNPACK A COLUMN OF C.\r\nC\r\n      IF (CFILE .EQ. 0) GO TO 810\r\n      TYPEBD = TYPEC\r\n      IF (MT4 .NE. 0) ONE2 = 1\r\n      PP2    = P\r\n      CALL UNPACK (*810,CFILE,Z)\r\n      GO TO 830\r\n  810 DO 820 II = 1,ND\r\n      Z(II) = 0.\r\n  820 CONTINUE\r\n  830 IF (MT4 .NE. 0) GO TO 850\r\nC\r\nC     NON-TRANSPOSE CASE, METHOD 2NT\r\nC     ==============================\r\nC\r\nC     INITIATE INTERPRETATION OF A COLUMN OF B.\r\nC\r\nC     ITYPSG = TYPED*SIGNAB\r\n      ITYPSG = TYPEB*SIGNAB\r\n      CALL INTPK (*860,FILEB(1),0,ITYPSG,0)\r\nC\r\nC     FOR EACH NON-ZERO ELEMENT B(I) IN THE CURRENT COLMN OF B SUCH\r\nC     THAT FOR I.GE.ACOL1 .AND I.LE.ACOLN, FORM ALL PRODUCTS OF\r\nC     D(K,I) = A(K,I)*B(I) + C(K,I)\r\nC\r\n      CALL MPY2NV (ZZ,Z,ZD)\r\n      GO TO 860\r\nC\r\nC     TRNASPOSE CASE, METHOD 4T\r\nC     =========================\r\nC\r\nC     UNPACK A BANDED COLUMN OF MATRIX B, RANGING FROM ONE2 THRU PP2.\r\nC     FOR THE RANGE  MAX0(ONE2,ACOL1) THRU MIN0(PP2,ACOLN), FORM ALL\r\nC     PRODUCTS\r\nC     D(I,K) = A(I,J)*B(J,K) + C(I,K)\r\nC\r\n  850 TYPEBD = TYPEB*SIGNAB\r\n      ONE2   = 0\r\n      CALL UNPACK (*860,FILEB,Z(JZB))\r\nC\r\nC     WE HAVE HERE -\r\nC     ACLO1, ACOLN = COLUMNS OF MATRIX A IN CORE\r\nC     BCOL = CURRENTLY WE ARE WORKING ON THE BCOL COLUMN OF MATRIX B,\r\nC            WHICH IS ALSO THE WORKING COLUMNS OF MATRIX D AND MATRIX C\r\nC     Z(JZB) THRU Z(ACORE-1) CONTAIN THE BCOL COLUMN OF MATRIX B\r\nC\r\n      CALL MPY4T (Z,Z,Z)\r\nC\r\nC     PACK CURRENT COLUMN ONTO DFILE FOR BOTH 2NT AND 4T METHOD, AND\r\nC     GO TO TEST FOR END OF PASS.\r\nC\r\n  860 CALL PACK (Z,DFILE,FILED)\r\n      GO TO 980\r\nC\r\nC     TRANSPOSE CASE, METHOD 2T\r\nC     =========================\r\nC\r\nC     INITIATE BUILDING OF A PACKED COLUMN OF D.\r\nC     UNPACK A COLUMN OF B IN CORE. IF NULL, COPY COLUMN FROM C TO D.\r\nC     INITIATE INTERPRETATION OF A COLUMN OF C.\r\nC\r\n  900 CALL BLDPK (TYPED,TYPD,DFILE,0,0)\r\n      TYPEBD = TYPEB*SIGNAB\r\n      PP2  = R\r\n      CALL UNPACK (*910,FILEB(1),Z)\r\n      EOL  = 1\r\n      CROW = 16777215\r\nC            16777215 = 2**24 - 1\r\nC\r\n      IF (CFILE .EQ. 0) GO TO 960\r\n      CALL INTPK (*960,CFILE,0,TYPEC,0)\r\n      CROW = 0\r\n      GO TO 960\r\n  910 IF (CFILE .EQ. 0) GO TO 970\r\n      CALL INTPK (*970,CFILE,0,TYPEC,0)\r\n  920 CALL ZNTPKI\r\n      CROW = IP\r\n  930 DO 940 II = 1,NWDD\r\n      D(II) = A(II)\r\n  940 CONTINUE\r\n      DROW = CROW\r\n      CALL ZBLPKI\r\n  950 IF (EOL .EQ. 0) GO TO 920\r\n      GO TO 970\r\nC\r\nC     FOR ALL NON-NULL ROWS OF A IN CORE, FORM A(I,J)*B(J) + C(I)\r\nC\r\n  960 CALL MPY2TV (ZZ,Z,ZD)\r\n      IF (AROWN.EQ.M .OR. CROW.EQ.16777215) GO TO 970\r\n      IF (CROW .GT. AROWN) GO TO 930\r\n      GO TO 950\r\nC\r\nC     TERMINATE CURRENT COLUMN OF D.\r\nC\r\n  970 CALL BLDPKN (DFILE,0,FILED)\r\nC\r\nC     BOTH TRANSPOSE (2T AND 4T) AND NON-TRANSPOSE (2NT) CASES\r\nC\r\nC     TEST FOR COMPLETION OF PASS. IF COMPLETE, TEST ALL PASSES.\r\nC\r\n  980 BCOL = BCOL + 1\r\n      IF (BCOL .LE. Q) GO TO 780\r\n      CALL CLOSE (FILEB,CLSREW)\r\n      IF (CFILE .NE. 0) CALL CLOSE (CFILE,CLSREW)\r\n      CALL CLOSE (DFILE,CLSREW)\r\n      IF (ACOLN .EQ. M) GO TO 1010\r\nC\r\nC     NOT LAST PASS - SWITCH C AND D FILES AND CONTINUE\r\nC\r\n      OPA   = RD\r\n      TYPEC = TYPED\r\n      IF (ACOL1 .EQ. 1) GO TO 990\r\n      K     = CFILE\r\n      CFILE = DFILE\r\n      DFILE = K\r\n      GO TO 1000\r\n  990 CFILE = DFILE\r\n      DFILE = EFILE\r\n 1000 ACOL1 = ACOLN + 1\r\n      GO TO 650\r\nC\r\nC     LAST PASS -\r\nC     MAKE SURE D MATRIX IS ON PROPER FILE.\r\nC     IF NOT, SWITCH FIST AND FIAT UNIT NBRS IN /XFIAT/\r\nC\r\n 1010 IF (DFILE .NE. FILED(1)) CALL FILSWI (DFILE,FILED)\r\n      GO TO 380\r\nC\r\nC     A MATRIX OR B MATRIX IS NULL - COPY C MATRIX TO D MATRIX\r\nC\r\n 1100 TIME = 0.0\r\n      IF (FILED(1) .LT. 0) GO TO 1600\r\n      IF (Q .LE. 0) Q = FILEC(2)\r\n      FILED(2) = 0\r\n      FILED(6) = 0\r\n      FILED(7) = 0\r\n      WRITE  (NOUT,1140)\r\n 1140 FORMAT ('             MPYAD - NULL MATRIX PRODUCT')\r\n      CALL GOPEN (FILED,Z(BUF1),WRTREW)\r\n      IF (CFILE .EQ. 0) GO TO 1150\r\n      IF (TYPEC .EQ. SIGNC*TYPD) GO TO 1170\r\n      GO TO 1200\r\nC\r\nC     PACK NULL COLUMNS BECAUSE C MATRIX IS NULL\r\nC\r\n 1150 PP1 = 1\r\n      DO 1160 ACOL = 1,Q\r\n      CALL PACK (ZERO,FILED,FILED)\r\n 1160 CONTINUE\r\n      GO TO 1190\r\nC\r\nC     USE CPYSTR TO COPY C TO D\r\nC\r\n 1170 BLOCK(1) = CFILE\r\n      BLK(1)   = FILED(1)\r\n      CALL GOPEN (CFILE,Z(BUF2),RDREW)\r\n      DO 1180 II = 1,Q\r\n      CALL CPYSTR (BLOCK,BLK,0,0)\r\n 1180 CONTINUE\r\n      CALL CLOSE (CFILE,CLSREW)\r\n      FILED(2) = Q\r\n      FILED(5) = FILEC(5)\r\n      FILED(6) = FILEC(6)\r\n      FILED(7) = FILEC(7)\r\n 1190 IF (FILEC(1) .GT. 0) FILED(4) = FILEC(4)\r\n      CALL CLOSE (FILED,CLSREW)\r\n      GO TO 380\r\nC\r\nC     USE INTPK/BLDPK TO COPY C TO D BECAUSE TYPES CONFLICT\r\nC\r\n 1200 CALL GOPEN (CFILE,Z(BUF2),RDREW)\r\n      DO 1230 II = 1,Q\r\n      CALL BLDPK (TYPD,TYPD,FILED,BLOCK,1)\r\n      ITYPSG = SIGNC*TYPD\r\n      CALL INTPK (*1220,FILEC,0,ITYPSG,0)\r\n 1210 CALL ZNTPKI\r\n      CALL BLDPKI (A,IP,FILED,BLOCK)\r\n      IF (EOL .EQ. 0) GO TO 1210\r\n 1220 CALL BLDPKN (FILED,BLOCK,FILED)\r\n 1230 CONTINUE\r\n      CALL CLOSE (CFILE,CLSREW)\r\n      GO TO 1190\r\nC\r\nC\r\nC               *********************\r\nC               *                   *\r\nC               *    METHOD THREE   *\r\nC               *       MPY3T       *\r\nC               *                   *\r\nC               *********************\r\nC\r\nC     TRANSPOSE CASE ONLY, METHOD 3T\r\nC     ==============================\r\nC\r\n 1300 CONTINUE\r\n      WRITE (NOUT,240) METHOD(5),MPASS3,TIME3\r\n      BLOCK(1) = FILEB(1)\r\n      ACORE = ORF(ND+1,1)\r\n      CFILE = SCRTCH\r\n      DFILE = FILED(1)\r\n      IF (MOD(MPASS3,2) .NE. 0) GO TO 1340\r\n      CFILE = FILED(1)\r\n      DFILE = SCRTCH\r\n 1340 AROW1 = 1\r\n      LAST  = .FALSE.\r\n      OPA   = RDREW\r\nC\r\nC     BEGIN PASS BY FILLING CORE WITH UNPACKED COLUMNS OF A\r\nC\r\n 1350 AROWN = MIN0(AROW1+NBRROW-1,M)\r\n      IF (AROWN .EQ. M) LAST = .TRUE.\r\n      CALL GOPEN (FILEA,Z(BUF1),OPA)\r\n      TYPEBD = TYPEA*SIGNAB\r\n      PP2    = N\r\n      APOINT = ACORE\r\n      DO 1390 AROW = AROW1,AROWN\r\n      CALL UNPACK (*1360,FILEA,Z(APOINT))\r\n      GO TO 1380\r\n 1360 K2 = APOINT + NA - 1\r\n      DO 1370 II = APOINT,K2\r\n      Z(II) = 0.\r\n 1370 CONTINUE\r\n 1380 APOINT = APOINT + NA\r\n 1390 CONTINUE\r\n      II = CLS\r\n      IF (LAST) II = CLSREW\r\n      CALL CLOSE (FILEA,II)\r\n      INCRA = (AROWN-AROW1)*NA\r\nC\r\nC     PREPARE TO PASS B MATRIX AND C MATRIX FROM LAST PASS\r\nC\r\n      IF (AROW1 .NE. 1) CALL GOPEN (CFILE,Z(BUF2),RDREW)\r\n      CALL GOPEN (DFILE,Z(BUF3),WRTREW)\r\n      CALL GOPEN (FILEB,Z(BUF1),RDREW )\r\n      IF (LAST .AND. FILEC(1).NE.0) CALL GOPEN (FILEC,Z(BUF4),RDREW)\r\n      FILED(2) = 0\r\n      FILED(6) = 0\r\n      FILED(7) = 0\r\n      TYPEBD   = TYPED\r\n      PP2 = AROWN\r\n      K2  = AROWN*NWDD\r\nC\r\n      DO 1530 BCOL = 1,Q\r\n      IF (AROW1 .NE. 1) GO TO 1420\r\nC\r\nC     FIRST PASS OR NULL COLUMN ON CFILE - SET COLUMN OF D TO ZERO\r\nC\r\n 1400 DO 1410 II = 1,K2\r\n 1410 Z(II) = 0.\r\n      NULL  = .TRUE.\r\n      IF (LAST) GO TO 1430\r\n      GO TO 1500\r\nC\r\nC     INTERMEDIATE PASS OR LAST PASS - UNPACK COLUMN FROM PREVIOUS PASS\r\nC\r\n 1420 CALL UNPACK (*1400,CFILE,Z)\r\n      NULL = .FALSE.\r\n      IF (.NOT.LAST) GO TO 1500\r\nC\r\nC     LAST PASS - ADD COLUMN FROM C MATRIX (IF PRESENT)\r\nC\r\n 1430 IF (FILEC(1) .EQ. 0) GO TO 1500\r\n      ITYPSG = TYPED*SIGNC\r\n      CALL INTPK (*1500,FILEC,0,ITYPSG,0)\r\n      NULL = .FALSE.\r\n 1440 CALL ZNTPKI\r\n      GO TO (1450,1460,1470,1480), TYPED\r\n 1450 Z(IP) = Z(IP) + A(1)\r\n      GO TO 1490\r\n 1460 ZD(IP) = ZD(IP) + AD(1)\r\n      GO TO 1490\r\n 1470 Z(2*IP-1) = Z(2*IP-1) + A(1)\r\n      Z(2*IP  ) = Z(2*IP  ) + A(2)\r\n      GO TO 1490\r\n 1480 ZD(2*IP-1) = ZD(2*IP-1) + AD(1)\r\n      ZD(2*IP  ) = ZD(2*IP  ) + AD(2)\r\n 1490 IF (EOL .EQ. 0) GO TO 1440\r\nC\r\nC     FOR EACH NON-ZERO TERM B(J) IN THE CURRENT COLUMN OF B FORM\r\nC     D(I,K) = D(I,K) + A(I,J)*B(J,K)\r\nC\r\n 1500 CALL MPY3T (*1510,Z(ACORE),Z(ACORE),Z(1),Z(1))\r\n      GO TO 1520\r\nC\r\nC     PACK NULL COLUMN\r\nC\r\n 1510 IF (.NOT.NULL) GO TO 1520\r\n      PP1 = 1\r\n      CALL PACK (ZERO,DFILE,FILED)\r\n      GO TO 1530\r\nC\r\nC     PACK NON-NULL COLUMN\r\nC\r\n 1520 PP1 = AROWN\r\n      CALL PACK (Z,DFILE,FILED)\r\nC\r\nC     TEST FOR END OF CURRENT PASS\r\nC\r\n 1530 CONTINUE\r\nC\r\n      IF (AROW1 .NE. 1) CALL CLOSE (CFILE,CLSREW)\r\n      CALL CLOSE (DFILE,CLSREW)\r\n      CALL CLOSE (FILEB,CLSREW)\r\n      IF (LAST) GO TO 1540\r\nC\r\nC     NOT LAST PASS - SWITCH FILES AND CONTINUE\r\nC\r\n      II    = CFILE\r\n      CFILE = DFILE\r\n      DFILE = II\r\n      AROW1 = AROWN + 1\r\n      OPA   = RD\r\n      GO TO 1350\r\nC\r\nC     LAST PASS - SIGNAL END AND RETURN\r\nC\r\n 1540 IF (FILEC(1) .NE. 0) CALL CLOSE (FILEC,CLSREW)\r\n      GO TO 380\r\nC\r\n 1600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpydri.f",
    "content": "      SUBROUTINE MPYDRI (A,DA,B,DB,C,DC)\r\nC\r\nC     SPECIAL MPYAD PERFORMS THE MATRIX OPERATION\r\nC        (+/-)A   *B (+/-)C = D   OR\r\nC        (+/-)A(T)*B (+/-)C = D\r\nC\r\nC     WHERE A, OR B IS , OR BOTH ARE, DIAGONAL, ROW VECTOR, OR IDENTITY\r\nC     MATRIX.  MATRIX C CAN BE PURGED\r\nC\r\nC     THIS ROUITNE DOES NOT HANDEL A-TRANSPOSE, WHILE B IS DIAGNOL, ROW\r\nC     VECTOR, OR IDENTIY MASTRIX. ONLY EXCEPTION IS A IS TRULY (Nx1).\r\nC\r\nC     NOTE -\r\nC     1. IN NASTRAN GINO, THE TRAILER 2ND AND 3RD WORDS FOR A ROW-VECTOR\r\nC        IS (1xM), AND THE DIAGONAL MATRIX IS ALSO (1xM)\r\nC     2. THE ROW-VECTOR AND DIAGONAL MATRIX ARE PACKED IN ONE RECORD.\r\nC        AND THUS, THEY REQUIRE SPECIAL ATTENTION DEALING WITH THE FILEB\r\nC        WHILE FILEA IS ALREADY A ROW-VECTOR, OR A DIAGONAL MATRIX\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS,  1/92\r\nC     LAST MODIFIED FOR SPECIAL CASES THAT INVOLVE B MATRIX IS ALSO\r\nC     A DIAGONAL MATRIX OR A ROW-VECOTR,  2/93                 ----\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER          NAME(2),AD(7),SD(7)\r\n      REAL             A(1),B(1),C(1)\r\n      DOUBLE PRECISION DA(1),DB(1),DC(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /MPYADX/  FILEA(7),FILEB(7),FILEC(7),FILED(7),NZZ,T,SIGNAB,\r\n     1                 SIGNC,PREC,SCR\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /TYPE  /  PRC(2),WORDS(4)\r\n      COMMON /NAMES /  RD,RDREW,WRT,WRTREW,CLSREW\r\n      COMMON /PACKX /  TYPEP,TYPOUT,IP,JP,INCRP\r\n      COMMON /UNPAKX/  TYPEU,IU,JU,INCRU\r\n      COMMON /TRNSPX/  NAMEA(7),NAMEAT(7),LCORE,NSCR,ISCR\r\n      EQUIVALENCE      (FILEA(1),FA   ),(FILEA(4),FORMA),\r\n     2                 (FILEA(5),TYPEA),(FILEB(1),FB   ),\r\n     4                 (FILEB(4),FORMB),(FILEB(5),TYPEB),\r\n     5                 (FILEC(1),FC   ),(FILEC(4),FORMC),\r\n     7                 (FILEC(5),TYPEC),(FILED(1),FD   ),\r\n     8                 (FILED(2),COLD ),(FILED(4),FORMD),\r\n     9                 (FILED(5),TYPED)\r\n      DATA    NAME   / 4HMPYA , 4HDRI /,\r\n     1        DIAGNL , ROWVEC , IDENT / 3, 7, 8  /\r\nC\r\nC     MOVE TRUE ROWS AND COLUMNS INTO ROWA/B/C AND COLA/B/C\r\nC\r\n      COLA = FILEA(2)\r\n      ROWA = FILEA(3)\r\n      COLB = FILEB(2)\r\n      ROWB = FILEB(3)\r\n      COLC = FILEC(2)\r\n      ROWC = FILEC(3)\r\n      IF (FORMA.EQ.DIAGNL .OR. FORMA.EQ.ROWVEC) COLA = ROWA\r\n      IF (FORMA .EQ. ROWVEC) ROWA = 1\r\n      IF (FORMB.EQ.DIAGNL .OR. FORMB.EQ.ROWVEC) COLB = ROWB\r\n      IF (FORMB .EQ. ROWVEC) ROWB = 1\r\n      IF (FORMC.EQ.DIAGNL .OR. FORMC.EQ.ROWVEC) COLC = ROWC\r\n      IF (FORMC .EQ. ROWVEC) ROWC = 1\r\nC\r\n      IF (SIGNAB.EQ.0 .AND. FC.EQ.0) GO TO 1100\r\n      IF (SIGNAB.EQ.0 .AND. FC.NE.0) GO TO 780\r\n      BUF1  = NZZ  - SYSBUF\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      COLD  = 0\r\n      ROWD  = ROWA\r\n      IF (T .EQ. 1) ROWD = COLA\r\n      IF (PREC.EQ.1 .AND. (TYPED.EQ.2 .OR. TYPED.EQ.4)) TYPED = TYPED -1\r\n      TYPOUT= TYPED\r\n      NWDS  = WORDS(TYPED)\r\n      ROWA2 = ROWA*NWDS\r\n      ROWB2 = ROWB*NWDS\r\n      ROWD2 = ROWD*NWDS\r\n      COLB2 = COLB*2\r\n      NZ    = BUF3 - 1\r\n      SD(1) = SCR\r\n      IF (FC .NE. 0) GO TO 10\r\n      SD(1) = FD\r\n      NZ    = BUF2 - 1\r\n   10 CALL MAKMCB (SD,SD,ROWD,FORMD,TYPED)\r\nC\r\nC     REMEMBER, ONLY FILEA CAN HAVE TRANSPOSE, NOT FILEB.\r\nC     IF FILEA IS DIAGONAL, ROW VECTOR, OR IDENTITY MATRIX, THE ACTUAL\r\nC     TRANSPOSE OF FILEA HAS NEVER TAKEN PLACE.\r\nC\r\nC     FA, FB, FC AND FD ARE FILEA, FILEB, FILEC AND FILED RESPECTIVELY.\r\nC     AD(1) IS EITHER FILEA OR FILED, AND\r\nC     SD(1) IS EITHER SCRATCH FILE OR FILED\r\nC\r\n      IF (T .EQ. 1) GO TO 30\r\n      DO 20 I = 1,7\r\n   20 AD(I) = FILEA(I)\r\n      GO TO 50\r\n   30 DO 40 I = 1,7\r\n   40 AD(I) = FILED(I)\r\n   50 IP    = 1\r\n      JP    = ROWD\r\n      INCRP = 1\r\n      IU    = 1\r\n      INCRU = 1\r\n      IF (FA .LE. 0) GO TO 60\r\n      FILE = FA\r\n      CALL OPEN (*1010,FA,A(BUF1),RDREW)\r\n      CALL FWDREC (*1020,FA)\r\n   60 IF (FB .LE. 0) GO TO 70\r\n      FILE = FB\r\n      CALL OPEN (*1010,FB,A(BUF2),RDREW)\r\n      CALL FWDREC (*1020,FB)\r\nC\r\n   70 IF (FA .LE. 0) GO TO 80\r\n      IF (FORMA .EQ. DIAGNL) GO TO  90\r\n      IF (FORMA .EQ. ROWVEC) GO TO 200\r\n      IF (FORMA .EQ. IDENT ) GO TO 400\r\n   80 IF (T .EQ. 1)  GO TO 990\r\n      IF (FORMB .EQ. DIAGNL) GO TO 490\r\n      IF (FORMB .EQ. ROWVEC) GO TO 600\r\n      IF (FORMB .EQ. IDENT ) GO TO 750\r\n      FILE = 0\r\n      GO TO 1070\r\nC\r\nC                                         D   G   J   M\r\nC     FILEA IS                            E   H   K   N\r\nC     DIAGONAL -                          F   I   L   O\r\nC                      a      a  0  0    aD  aG  aJ  aM\r\nC                      b      0  b  0    bE  bH  bK  bN\r\nC                      c ==>  0  0  c    cF  cI  cL  cO\r\nC\r\nC     SPECIAL CASE NEEDS TO BE CONSIDERED -\r\nC     FILEB IS ALSO A DIAGONAL MATRIX. (FILEB CANNOT BE A ROW VECTOR)\r\nC\r\n   90 FILE  = FA\r\n      JU    = ROWA\r\n      TYPEU = TYPED*SIGNAB\r\n      CALL UNPACK (*1050,FA,A)\r\n      CALL CLOSE (FA,CLSREW)\r\n      CALL GOPEN (SD,A(BUF1),WRTREW)\r\n      FILE  = FB\r\n      JU    = ROWB\r\n      TYPEU = TYPED\r\n      IF (FORMB .EQ. DIAGNL) GO TO 150\r\n      DO 145 I = 1,COLB\r\n      CALL UNPACK (*1050,FB,B)\r\n      GO TO (100,110,120,130), TYPEB\r\n  100 DO 105 J = 1,ROWB\r\n  105 C(J) = A(J)*B(J)\r\n      GO TO 140\r\n  110 DO 115 J = 1,ROWB\r\n  115 DC(J) = DA(J)*DB(J)\r\n      GO TO 140\r\n  120 DO 125 J = 1,ROWB2,2\r\n      C(J  ) = A(J)*B(J  ) - A(J+1)*B(J+1)\r\n  125 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J  )\r\n      GO TO 140\r\n  130 DO 135 J = 1,ROWB2,2\r\n      DC(J  ) = DA(J)*DB(J  ) - DA(J+1)*DB(J+1)\r\n  135 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J  )\r\n  140 CALL PACK (C,SD,SD)\r\n  145 CONTINUE\r\n      GO TO 190\r\nC\r\nC     SPECIAL CASE - FILEB IS ALSO A DIAGONAL MATRIX\r\nC\r\n  150 CALL UNPACK (*1050,FB,B)\r\n      IF (TYPEB .GE. 3) GO TO 165\r\n      DO 155 J = 1,ROWB\r\n  155 C(J) = 0.0\r\n      DO 160 J = 1,ROWB\r\n      IF (TYPEB .EQ. 1)  C(J) =  A(J)* B(J)\r\n      IF (TYPEB .EQ. 2) DC(J) = DA(J)*DB(J)\r\n      CALL PACK (C,SD,SD)\r\n      C(J) = 0.0\r\n      IF (TYPEB .EQ. 2) DC(J) = 0.0D+0\r\n  160 CONTINUE\r\n      GO TO 190\r\nC\r\n  165 DO 170 J = 1,ROWB2\r\n  170 C(J) = 0.0\r\n      DO 180 J = 1,ROWB2,2\r\n      IF (TYPEB .EQ. 4) GO TO 175\r\n      C(J  ) = A(J)*B(J  ) - A(J+1)*B(J+1)\r\n      C(J+1) = A(J)*B(J+1) + A(J+1)*B(J  )\r\n      CALL PACK (C,SD,SD)\r\n      C(J  ) = 0.0\r\n      C(J+1) = 0.0\r\n      GO TO 180\r\n  175 DC(J  ) = DA(J)*DB(J  ) - DA(J+1)*DB(J+1)\r\n      DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J  )\r\n      CALL PACK (C,SD,SD)\r\n      DC(J  ) = 0.0D+0\r\n      DC(J+1) = 0.0D+0\r\n  180 CONTINUE\r\nC\r\n  190 CALL CLOSE (FB,CLSREW)\r\n      CALL CLOSE (SD,CLSREW)\r\n      GO TO 800\r\nC                                         E       I      M\r\nC     FILEA IS A ROW     a                F       J      N\r\nC     VECTOR -           b                G       K      O\r\nC     RESULT IN FILED,   c                H       L      P\r\nC     A (Nx1) RECT.      d ==> a b c d  aE+bF+  aI+bJ+  aM+bN+\r\nC     MATRIX or A ROW-                  cG+dH   cK+dL   cO+dP\r\nC     VECTOR\r\nC\r\nC     SPECIAL CASE NEEDS TO BE CONSIDERED -\r\nC     FILEB IS A DIAGONAL MATRIX. (FILEB CANNOT BE A ROW VECTOR)\r\nC\r\nC\r\nC     TRANSPOSE OF FILEA,                 E       F       G\r\nC     A ROW VECTOR -               a     aE      aF      aG\r\nC                                  b     bE      bF      bG\r\nC                                  c     cE      cF      cG\r\nC                                  d     dE      dF      dG\r\nC\r\nC     SPECIAL CASES NEED TO BE CONSIDERED -\r\nC     FILEB MUST BE A (Nx1) RECTANGULAR MATRIX, OR A ROW VECTOR\r\nC\r\n  200 FILE  = FA\r\n      JU    = ROWA\r\n      TYPEU = TYPED*SIGNAB\r\n      CALL UNPACK (*1050,FA,A)\r\n      CALL CLOSE (FA,CLSREW)\r\n      CALL GOPEN (SD,A(BUF1),WRTREW)\r\n      FILE  = FB\r\n      TYPEU = TYPED\r\n      IF (T .EQ. 1) GO TO 350\r\nC\r\nC     FILEA IS A ROW-VECTOR, RESULT IS ALSO A ROW-VECTOR, OR A\r\nC     (Nx1) RECTANGULAR MATRIX\r\nC\r\n      JU    = ROWB\r\n      IF (FORMB .EQ. DIAGNL) GO TO 260\r\n      IF (ROWB  .NE.   ROWA) GO TO 1030\r\n      COLB4 = COLB*4\r\n      DO 205 J = 1,COLB4\r\n  205 C(J) = 0.0\r\n      DO 250 J = 1,COLB\r\n      CALL UNPACK (*290,FB,B)\r\n      GO TO (210,220,230,240), TYPEB\r\n  210 DO 215 K = 1,ROWB\r\n  215 C(J) = C(J) + A(K)*B(K)\r\n      GO TO 250\r\n  220 DO 225 K = 1,ROWB\r\n  225 DC(J) = DC(J) + DA(K)*DB(K)\r\n      GO TO 250\r\n  230 DO 235 K = 1,ROWB2,2\r\n      C(J  ) = C(J  ) + A(K)*B(K  ) - A(K+1)*B(K+1)\r\n  235 C(J+1) = C(J+1) + A(K)*B(K+1) + A(K+1)*B(K  )\r\n      GO TO 250\r\n  240 DO 245 K = 1,ROWB,2\r\n      DC(J  ) = DC(J  ) + DA(K)*DB(K  ) - DA(K+1)*DB(K+1)\r\n  245 DC(J+1) = DC(J+1) + DA(K)*DB(K+1) + DA(K+1)*DB(K  )\r\n  250 CONTINUE\r\n      GO TO 300\r\nC\r\nC     SPECIAL CASE - FILEB IS A DIAGONAL MATRIX.\r\nC\r\n  260 CALL UNPACK (*1050,FB,B)\r\n      GO TO (270,280,290,300), TYPEB\r\n  270 DO 275 J = 1,COLB\r\n  275 C(J) = A(J)*B(J)\r\n      GO TO 310\r\n  280 DO 285 J = 1,COLB\r\n  285 DC(J) = DA(J)*DB(J)\r\n      GO TO 310\r\n  290 DO 295 J = 1,COLB2,2\r\n      C(J  ) = A(J)*B(J  ) - A(J+1)*B(J+1)\r\n  295 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J  )\r\n      GO TO 310\r\n  300 DO 305 J = 1,COLB2,2\r\n      DC(J  ) = DA(J)*DB(J  ) - DA(J+1)*DB(J+1)\r\n  305 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J  )\r\nC\r\n  310 CALL CLOSE (FB,CLSREW)\r\n      IF (FC .EQ. 0) GO TO 340\r\n      FILE  = FC\r\n      TYPEU = TYPEC*SIGNC\r\n      CALL GOPEN (FC,A(BUF2),RDREW)\r\n      IF (FORMC .NE. ROWVEC) GO TO 311\r\n      CALL UNPACK (*1050,FC,A(1))\r\n      GO TO 314\r\n  311 IP = 1\r\n      JP = 1\r\n      DO 313 J = 1,COLC\r\n      CALL UNPACK (*312,FC,A(J*NWDS-1))\r\n      GO TO 313\r\n  312 A(J*NWDS-1) = 0.\r\n      A(J*NWDS  ) = 0.\r\n  313 CONTINUE\r\nC\r\n  314 CALL CLOSE (FC,CLSREW)\r\n      GO TO (315,325), TYPED\r\n  315 DO 320 J = 1,ROWD2\r\n  320 C(J) = C(J) + A(J)\r\n      GO TO 340\r\n  325 DO 330 J = 1,ROWD2\r\n  330 DC(J) = DC(J) + DA(J)\r\nC\r\n  340 CALL PACK (C,SD,SD)\r\n      FORMD = ROWVEC\r\n      GO TO 970\r\nC\r\nC     FILEA (A ROW VECTOR) TRANSFPOSE\r\nC\r\n  350 IF (FORMB .EQ. ROWVEC) GO TO 390\r\n      IF (ROWB .NE. 1) GO TO 1030\r\n      IU = 0\r\n      J  = 1\r\n      DO 380 I = 1,ROWB\r\n      CALL UNPACK (*360,FB,B(J))\r\n      IF (IU .NE. I) GO TO 1030\r\n      GO TO 380\r\n  360 JE = J + NWDS\r\n      DO 370 K = J,JE\r\n  370 B(K) = 0.0\r\n  380 J  = J + NWDS\r\n      CALL CLOSE (FB,CLSREW)\r\n      IU = 1\r\n      GO TO 610\r\nC\r\nC     SPECAIL CASE - FILE B IS A ROW VECTOR\r\nC\r\n  390 IF (ROWB .NE. 1) GO TO 1030\r\n      JU = COLB\r\n      CALL UNPACK (*1030,FB,B(1))\r\n      CALL CLOSE (FB,CLSREW)\r\n      GO TO 610\r\nC\r\nC     FILEA IS IDENTITY -\r\nC\r\nC     SPECIAL CASEs NEED TO BE CONSIDERED -\r\nC     SIGNAB IS NEGATIVE, OR FILEB IS A DIAGONAL MATRIX\r\nC     (FILEB CANNOT BE A ROW-VECTOR)\r\nC\r\n  400 CALL CLOSE (FA,CLSREW)\r\n      IF (FORMB.EQ.DIAGNL .OR. SIGNAB.LT.0) GO TO 420\r\n      FILE = SD(1)\r\n      CALL OPEN (*1010,FA,A(BUF1),WRTREW)\r\n      CALL REWIND (FB)\r\n      CALL CPYFIL (FB,SD,A(1),NZ,K)\r\n      CALL CLOSE (FB,CLSREW)\r\n      CALL CLOSE (SD,CLSREW)\r\n      IF (FC .EQ. 0) GO TO 410\r\n      DO 405 I = 2,7\r\n  405 SD(I) = FILEB(I)\r\n      GO TO 800\r\n  410 DO 415 I = 2,7\r\n  415 FILED(I) = FILEB(I)\r\n      GO TO 1100\r\nC\r\nC     SPECIAL CASE - FILEB IS A DIAGONAL MATRIX\r\nC                    OR SIGNAB IS NEGATIVE\r\nC\r\n  420 CALL GOPEN (SD,A(BUF1),WRTREW)\r\n      JU    = ROWB\r\n      FILE  = FB\r\n      TYPEU = TYPED*SIGNAB\r\n      IF (FORMB .NE. DIAGNL) GO TO 430\r\n      CALL UNPACK (*1050,FB,B)\r\n      CALL CLOSE (FB,CLSREW)\r\n      J  = 1\r\n      DO 425 I = 1,ROWA\r\n      IP = I\r\n      JP = I\r\n      CALL PACK (B(J),SD,SD)\r\n  425 J = J + NWDS\r\n      CALL CLOSE (SD,CLSREW)\r\n      IF (FC) 800,950,800\r\nC\r\nC     SPECIAL CASE - SIGNAB IS NEGATIVE\r\nC\r\n  430 FILE = FB\r\n      DO 435 I = 1,COLB\r\n      CALL UNPACK (*1050,FB,B)\r\n      CALL PACK (B,SD,SD)\r\n  435 CONTINUE\r\n      CALL CLOSE (SD,CLSREW)\r\n      CALL CLOSE (FB,CLSREW)\r\n      IF (FC) 800,950,800\r\nC\r\nC     FILEA IS A COLUMN MATRIX -\r\nC     i.e. A (1,N) RECTANGULAR MATRIX OR A (Nx1) TRANSPOSE\r\nC\r\nC     FILEB MUST BE A (Nx1) RECTANGULAR MATRIX\r\nC\r\nC     CURRENTLY THIS CASE IS HANDLED IN MPYAD SUBROUINTE\r\nC\r\nC     HOWEVER, IF FILEB IS A ROW VECTOR,  IT IS HANDLED IN 600\r\nC     IF FILEA IS A ROW VECTOR TRANSPOSE, IT IS HANDLED IN 200/350\r\nC\r\nC 440 CONTINUE\r\nC\r\nC                                         X   0   0      X\r\nC     FILEB IS DIAGONAL -                 0   Y   0      Y\r\nC                                         0   0   Z <==  Z\r\nC                             a  e  i    aX  eY  iZ\r\nC                             b  f  j    bX  fY  jZ\r\nC                             c  g  k    cX  gY  kZ\r\nC                             d  h  l    dX  hY  lZ\r\nC\r\n  490 FILE  = FB\r\n      JU    = COLB\r\n      TYPEU = TYPED*SIGNAB\r\n      CALL UNPACK (*1050,FB,B)\r\n      CALL CLOSE (FB,CLSREW)\r\n      CALL GOPEN (SD,A(BUF2),WRTREW)\r\n      FILE  = FA\r\n      JU    = ROWA\r\n      TYPEU = TYPED\r\n      DO 590 I = 1,COLA\r\n      CALL UNPACK (*1050,FA,A)\r\n      GO TO (500,520,540,560) TYPEB\r\n  500 DO 510 J = 1,ROWA\r\n  510 C(J)  = A(J)*B(I)\r\n      GO TO 580\r\n  520 DO 530 J = 1,ROWA\r\n  530 DC(J) = DA(J)*DB(I)\r\n      GO TO 580\r\n  540 DO 550 J = 1,ROWA2,2\r\n      C(J  ) = A(J)*B(J  ) - A(J+1)*B(J+1)\r\n  550 C(J+1) = A(J)*B(J+1) + A(J+1)*B(J  )\r\n      GO TO 580\r\n  560 DO 570 J = 1,ROWA2,2\r\n      DC(J  ) = DA(J)*DB(J  ) - DA(J+1)*DB(J+1)\r\n  570 DC(J+1) = DA(J)*DB(J+1) + DA(J+1)*DB(J  )\r\n  580 CALL PACK (C,SD,SD)\r\n  590 CONTINUE\r\n      CALL CLOSE (AD,CLSREW)\r\n      CALL CLOSE (SD,CLSREW)\r\n      GO TO 800\r\nC\r\nC     FILEB IS A ROW VECTOR -                            E\r\nC                                                        F\r\nC     NOTE - FILEA MUST BE A               E   F   G <== G\r\nC     ONE-COLUMN MATRIX.             a    aE  aF  aG\r\nC     i.e. A(1xN) OR                 b    bE  bF  bG\r\nC          A(Nx1) TRNASPOSE          c    cE  cF  cG\r\nC                                    d    dE  dF  dG\r\nC     WE ALREADY HANDLED THE CASE\r\nC     WHERE FILEA IS A ROW-VECTOR TRANSPOSE IN 200\r\nC\r\n  600 FILE  = FB\r\n      JU    = COLB\r\n      TYPEU = TYPED*SIGNAB\r\n      IF (T .EQ. 1) GO TO 602\r\n      IF (COLA .NE. 1) GO TO 1030\r\n      CALL UNPACK (*1050,FB,B)\r\n      GO TO 608\r\n  602 IF (ROWA .NE. 1) GO TO 1030\r\n      J = COLA*NWDS\r\n      DO 604 I = 1,J\r\n  604 B(I) = 0.0\r\n      J = 1\r\n      DO 606 I = 1,COLA\r\n      CALL UNPACK (*606,FB,B(J))\r\n  606 J = J + NWDS\r\n  608 CALL CLOSE (FB,CLSREW)\r\n      FILE  = FA\r\n      JU    = ROWA\r\n      TYPEU = TYPED\r\n      CALL UNPACK (*1050,FA,A)\r\n      CALL CLOSE (AD,CLSREW)\r\n      CALL GOPEN (FD,A(BUF1),WRTREW)\r\n  610 DO 710 J = 1,COLB\r\n      GO TO (620,640,660,680), TYPEA\r\n  620 DO 630 I = 1,ROWA\r\n  630 C(I) = A(I)*B(J)\r\n      GO TO 700\r\n  640 DO 650 I = 1,ROWA\r\n  650 DA(I) = DA(I)*DB(J)\r\n      GO TO 700\r\n  660 DO 670 I = 1,ROWA2,2\r\n      C(I  ) = A(I)*B(J  ) - A(I+1)*B(J+1)\r\n  670 C(I+1) = A(I)*B(J+1) + A(I+1)*B(J  )\r\n      GO TO 700\r\n  680 DO 690 I = 1,ROWA2,2\r\n      DC(I  ) = DA(I)*DB(J  ) - DA(I+1)*DB(J+1)\r\n      DC(I+1) = DA(I)*DB(J+1) + DA(I+1)*DB(J  )\r\n  690 KX = KX + NWDS\r\n  700 CALL PACK (C,FD,FILED)\r\n  710 CONTINUE\r\n      CALL CLOSE (FD,CLSREW)\r\n      GO TO 800\r\nC\r\nC     FILEB IS IDENTITY -\r\nC\r\nC     SPECIAL CASE NEEDS TO BE CONSIDERED -\r\nC     NEGATIVE SIGNAB\r\nC\r\n  750 CALL CLOSE (FB,CLSREW)\r\n      FILE = SD(1)\r\n      CALL OPEN (*1010,SD,A(BUF2),WRTREW)\r\n      IF (SIGNAB .LT. 0) GO TO 760\r\n      CALL REWIND (FA)\r\n      CALL CPYFIL (FA,SD,A(1),NZ,K)\r\n      GO TO 770\r\nC\r\n  760 TYPEU = TYPED*SIGNAB\r\n      JU    = ROWA\r\n      FILE  = FA\r\n      DO 765 I = 1,COLA\r\n      CALL UNPACK (*1050,FA,A)\r\n      CALL PACK (A,SD,SD)\r\n  765 CONTINUE\r\n  770 CALL CLOSE (FA,CLSREW)\r\n      CALL CLOSE (SD,CLSREW)\r\n      IF (FC) 800,950,800\r\nC\r\nC     NULL MATRIX PRODUCT A*B, COPY FILEC TO FILED\r\nC\r\n  780 FILE = FC\r\n      CALL OPEN (*1010,FC,A(BUF1),RDREW)\r\n      FILE = FD\r\n      CALL OPEN (*1010,FD,A(BUF2),WRTREW)\r\n      CALL CPYFIL (FC,FD,A(1),NZ,K)\r\n      CALL CLOSE (FC,CLSREW)\r\n      CALL CLOSE (FD,CLSREW)\r\n      DO 790 I = 2,7\r\n      FILED(I) = FILEC(I)\r\n  790 CONTINUE\r\n      GO TO 1100\r\nC\r\nC     ADD PRODUCT OF A*B TO C\r\nC\r\n  800 IF (FC .EQ. 0) GO TO 950\r\n      CALL GOPEN (FD,A(BUF3),WRTREW)\r\n      FILE = FC\r\n      CALL OPEN (*1010,FC,A(BUF2),RDREW)\r\n      CALL FWDREC (*1020,FC)\r\n      FILE = SD(1)\r\n      CALL OPEN (*1010,SD,A(BUF1),RDREW)\r\n      CALL FWDREC (*1020,SD)\r\n      JU   = ROWC\r\n      TYPEP = TYPED\r\n      DO 920 I = 1,COLC\r\n      TYPEU = TYPED*SIGNC\r\n      CALL UNPACK (*810,FC,C)\r\n      GO TO 830\r\n  810 DO 820 J = 1,ROWD2\r\n  820 C(J) = 0.0\r\n  830 TYPEU = TYPED\r\n      CALL UNPACK (*840,SD,B)\r\n      GO TO 860\r\n  840 DO 850 J = 1,ROWD2\r\n  850 B(J) = 0.0\r\n  860 GO TO (870,890,870,890), TYPED\r\n  870 DO 880 J = 1,ROWD2\r\n  880 A(J) = B(J) + C(J)\r\n      GO TO 910\r\n  890 DO 900 J = 1,ROWD2\r\n  900 DA(J) = DB(J) + DC(J)\r\n  910 CALL PACK (A,FD,FILED)\r\n  920 CONTINUE\r\n      CALL CLOSE (FC,CLSREW)\r\n      CALL CLOSE (SD,CLSREW)\r\nC\r\n  950 IF (COLD .NE. 0) GO TO 970\r\n      DO 960 I = 2,7\r\n  960 FILED(I) = SD(I)\r\n  970 CALL CLOSE  (FD,CLSREW)\r\n      CALL WRTTRL (FILED)\r\n      GO TO 1100\r\nC\r\nC     ERROR\r\nC\r\n  990 WRITE  (NOUT,1000) SFM\r\n 1000 FORMAT (A25,'. MPYDRI DOES NOT HANDLE A-TRANSPOSE. SHOULD NOT BE',\r\n     1       ' CALLED BY MPYAD')\r\n      GO TO 1070\r\n 1010 J = -1\r\n      GO TO 1080\r\n 1020 J = -2\r\n      GO TO 1080\r\n 1030 WRITE  (NOUT,1040) UFM\r\n 1040 FORMAT (A23,' FROM MPYAD/MPYDRI.  FILES NOT COMPATIBLE')\r\n      GO TO 1070\r\n 1050 WRITE  (NOUT,1060) UFM\r\n 1060 FORMAT (A23,' FROM MPYAD/MPYDRI.  NULL COLUMN ENCOUNTERED DURING',\r\n     1        ' MATRIX UNPACK')\r\n 1070 J = -37\r\n 1080 CALL MESAGE (J,FILE,NAME)\r\nC\r\n 1100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpyl.f",
    "content": "      SUBROUTINE MPYL (A,B,NCOLA,NROWA,NCOLB,C)\r\nC\r\nC     SINCE CDC FORTRAN 5 IMPOSES NO LONGER EXACT NO. OF DUMMY ARGUMENT\r\nC     LIST FOR SUBROUTINE AND ENTRY POINTS, THIS ROUTINE IS NOW MACHINE\r\nC     INDEPENDENT.\r\nC\r\n      DIMENSION A(NCOLA,NROWA),B(NCOLB,NCOLA),C(NCOLB,NROWA)\r\n      DIMENSION D(NROWA,NCOLA),X(3),Y(3),VECT(3)\r\nC\r\nC     SIMPLE MATRIX MULTIPLICATION\r\nC\r\n      DO 10 N= 1,NCOLB\r\n      DO 10 L= 1,NROWA\r\n      C(N,L) = 0.0\r\n      DO 10 M= 1,NCOLA\r\n   10 C(N,L) = C(N,L)+B(N,M)*A(M,L)\r\n      RETURN\r\nC\r\n      ENTRY NORM (X,Y)\r\nC     ================\r\nC\r\nC     NORMALIZE X VECTOR\r\nC\r\n      Y(1) = X(1)*X(1)+X(2)*X(2)+X(3)*X(3)\r\n      IF (Y(1) .EQ. 0.0)  GO TO 15\r\n      W    = 1./SQRT(Y(1))\r\n      X(1) = X(1)*W\r\n      X(2) = X(2)*W\r\n      X(3) = X(3)*W\r\n   15 RETURN\r\nC\r\n      ENTRY CROSS (X,Y,VECT)\r\nC     ======================\r\nC\r\nC     CROSS PRODUCT\r\nC\r\n      VECT(1) = X(2)*Y(3)-X(3)*Y(2)\r\n      VECT(2) = Y(1)*X(3)-X(1)*Y(3)\r\n      VECT(3) = X(1)*Y(2)-Y(1)*X(2)\r\n      RETURN\r\nC\r\n      ENTRY MPYLT (D,B,NCOLA,NROWA,NCOLB,C)\r\nC     =====================================\r\nC\r\nC     TRANSPOSE MULTIPLY\r\nC\r\n      DO 20 N= 1,NCOLB\r\n      DO 20 L= 1,NROWA\r\n      C(N,L) = 0.0\r\n      DO 20 M= 1,NCOLA\r\n   20 C(N,L) = C(N,L)+D(L,M)*B(N,M)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mpyq.f",
    "content": "      SUBROUTINE MPYQ (Z      )\r\nC\r\nC     MPYQ IS CALLED ONCE PER EXECUTION OF MPYAD. IT PERFORMS GENERAL\r\nC     INITIALIZATION FOR EACH OF THE ENTRY POINTS\r\nC     I.E.  SETTING UP MPYAD GO-TO-BRANCHES, ARITH AND BPICK FOR METHOD\r\nC           1, AND ARITH2, APICK2 AND BPICK2 FOR METHOD 2\r\nC\r\nC     ENTRY POINTS -\r\nC           MPY1V   (PERFORMS THE INNER LOOP FOR MPYAD, METHOD 1,\r\nC                    TRANSPOSE AND NON-TRANSPOSE. IT IS CALLED ONCE FOR\r\nC                    EACH COLUMNN OF THE A MATRIX)\r\nC           MPY2NV  (PERFORMS THE INNER LOOP FOR THE NON-TRANSPOSE CASE\r\nC                    OF METHOD 2. IT IS CALLED ONCE FOR EACH COUMN OF\r\nC                    THE B MATRIX)\r\nC           MPY2TV  (SAME AS MPY2NV, EXECPT IT IS FOR THE TRANSPOSE\r\nC                    CASE)\r\nC           MPY3T   (PERFORMS THE INNER LOOP FOR THE TRANSPOSE CASE OF\r\nC                    METHOD 3. IT IS CALLED ONCE FOR EACH COLUMN OF THE\r\nC                    B MATRIX)\r\nC     (WHERE V STANDS FOR VAX VERSION, AND T IS THE TRANSPOSE FLAG)\r\nC\r\nC     THE MPYi ROUTINES PERFORM THE MATRIX MULTIPLICATION AND ADDITION\r\nC     FOR THE MPYAD INNER LOOPS\r\nC\r\nC           (+/-)A * B (+/-)C = D   OR (+/-)A(T) * B (+/-)C = D\r\nC\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS  1/91\r\nC     (1) MPY3T WAS PREVIOUSLY A .MDS SUBROUTINE. IT IS NOW AN ENTRY\r\nC         POINT IN THIS MPYQ ROUTINE\r\nC         (MPY3T IS AN ENTRY POINT IN MPYQ, IN IBM AND CDC VERSIONS)\r\nC     (2) TO IMPROVE MPYAD INNER LOOP LOGIC FOR THE COMMON CASES\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      REAL             A(4)    ,B(4)    ,D(4)    ,Z(1)    ,AA(4) ,AAA  ,\r\n     1                 BSR     ,AAS(1)  ,DDS(1)  ,BBB     ,BSI   ,BBS\r\n      DOUBLE PRECISION AD(2)   ,BD(2)   ,DD(2)   ,ZD(1)   ,ADD(2),BDR  ,\r\n     1                 BDI     ,AAD(1)  ,DDD(1)  ,BBD(1)\r\n      DIMENSION        ZZ(1)\r\n      COMMON /MPYADX/  FILEA(7),FILEB(7),FILEC(7),FILED(7),NZ    ,T    ,\r\n     1                 SIGNAB  ,SIGNC   ,PREC1   ,SCRTCH  ,TIME\r\n     2       /SYSTEM/  KSYSTM(65)\r\n     3       /TYPE  /  PRC(2)  ,NWDS(4) ,RC(4)\r\n     4       /NAMES /  RD      ,RDREW   ,WRT     ,WRTREW  ,CLSREW,CLS\r\n     5       /ZBLPKX/  D       ,DROW\r\n     6       /ZNTPKX/  A       ,I       ,EOL     ,EOR\r\n     7       /PACKX /  TYPED   ,TYPD1   ,ONE1    ,PP1     ,INCR1\r\n     8       /UNPAKX/  TYPEBD  ,ONE2    ,PP2     ,INCR2\r\n      COMMON /MPYADZ/  RCB     ,RCD     ,LL      ,LLL     ,JB    ,NBX  ,\r\n     1                 NDX     ,JMAX1X  ,ACOL    ,ACOL1   ,ACOLN ,ACORE,\r\n     2                 APOINT  ,BCOL    ,CROW    ,FIRSTL  ,NA    ,NB   ,\r\n     3                 ND      ,NWDA    ,NWDB    ,NWDD    ,PREC  ,JMAX ,\r\n     4                 INCRA   ,BLOCK(20)\r\n      COMMON /MPYQT4/  RCA     ,PRCA    ,ALL4    ,JUMP4   ,PREC4\r\n      COMMON /ZZZZZZ/  BBS(17000)\r\n      EQUIVALENCE      (KSYSTM( 1),SYSBUF)  ,(KSYSTM( 2),MOUT )  ,\r\n     1                 (KSYSTM(58),IPASS )\r\n      EQUIVALENCE      (A(1)    ,AD(1)   )  ,(B(1)      ,BD(1))  ,\r\n     1                 (D(1)    ,DD(1)   )  ,(FILEA(2),M      )  ,\r\n     2                 (FILEA(3),N       )  ,(FILEA(5),TYPEA  )  ,\r\n     3                 (FILEB(2),Q       )  ,(FILEB(3),R      )  ,\r\n     4                 (FILEB(5),TYPEB   )  ,(FILEC(5),TYPEC  )  ,\r\n     5                 (FILED(5),TYPD    )  ,(NZZ     ,BUF1   )  ,\r\n     6                 (ACOLN   ,AROWN   )  ,(AA(1)   ,ADD(1) )  ,\r\n     7                 (ACOL1   ,AROW1   )  ,(ACOL    ,AROW   )  ,\r\n     8                 (BBS(1)  ,BBD(1)  )\r\n      EQUIVALENCE      (BLOCK(2),TYPE    )  ,(BLOCK(3),FORM   )  ,\r\n     1                 (BLOCK(4),ROW, J3 )  ,(BLOCK(5),POINT  )  ,\r\n     2                 (BLOCK(6),NBRSTR  )  ,(BLOCK(8),FLAG   )\r\n      EQUIVALENCE      (BLOCK(5),JB31    )  ,(BLOCK(6),NTERM3 )  ,\r\n     1                 (BLOCK(7),JB3N    )  ,(BLOCK(8),B3FLAG )\r\nC     DATA    MASK6F / X'00FFFFFF'  /\r\n      DATA    MASK6F / 16777215 /\r\nC\r\nC     MASK6F= '00FFFFFF'X (OR X'00FFFFFF') = 16777215\r\nC     RCB   = 1 IF B IS REAL,2 IF B IS COMPLEX\r\nC     NWDB  = NUMBER OF WORDS PER ELEMENT OF B\r\nC     NBX   = NUMBER OF ELEMENTS PER COLUMN OF B\r\nC     NB    = NUMBER OF WORDS PER COLUMN OF B\r\nC     NDX   = NUMBER OF ELEMENTS PER COLUMN OF C AND D\r\nC     ND    = NUMBER OF WORDS PER COLUMN OF C AND D\r\nC     NZZ   = BUF1 = POINTER TO FIRST GINO BUFFER\r\nC     BUF2  = POINTER TO SECOND GINO BUFFER\r\nC     BUF3  = POINTER TO THIRD GINO BUFFER\r\nC     JJ    = MAX. NO. OF COLUMNS OF B AND D THAT MAY BE HELD IN CORE\r\nC     MPASS1= NUMBER OF PASSES REQUIRED FOR METHOD ONE\r\nC     JZB   = POINTER TO FIRST ELEMENT OF B FOR SP REFERENCE\r\nC     JZDB  = POINTER TO FIRST ELEMENT OF B FOR DP REFERENCE\r\nC     JB    = POINTER TO FIRST ELEMENT OF B FOR PRECISION OF PROBLEM\r\nC     NWDA  = NUMBER OF WORDS PER ELEMENT OF A\r\nC     NWDD  = NUMBER OF WORDS PER ELEMENT OF D\r\nC     ACORE = POINTER TO FIRST WORD FOR STORAGE OF PACKED COLUMNS\r\nC             OF A MATRIX FOR METHOD TWO\r\nC*****\r\n      RCA  = RC(TYPEA)\r\n      MODB = MOD(TYPEB,2)\r\n      MODA = MOD(TYPEA,2)\r\n      PRCA = PRC(TYPEA)\r\n      FA3  = FILEA(3)\r\nC\r\nC     IF DIAG 43 IS ON, SKIP ALL (1991) SPEED IMPROVEMENT LOGIC\r\nC     (THIS IS ONLY TEMPORARY)\r\nC\r\n      ALL  = 0\r\n      IF (TYPEA.EQ.TYPEB .AND. TYPEA.EQ.TYPED) ALL = TYPEA\r\n      ALL4 = ALL\r\n      IF (ALL4 .EQ. 0) ALL4 = 5\r\n      IF (TYPED.GE.3 .AND. TYPEA.LE.2 .AND. TYPEB.LE.2) ALL4 = 6\r\n      CALL SSWTCH (43,J)\r\n      IF (J .EQ. 1) ALL = 0\r\n      JUMP4 = TYPEB + (TYPEA-1)*4\r\n      PREC4 = PREC1 - 1\r\nC\r\nC     RCA, PRCA, ALL4 AND JUMP4 ARE USED IN MPY4T\r\nC\r\n      GO TO (20,40,100,300), TYPED\r\nC\r\nC     REAL SINGLE PRECISION\r\nC\r\n   20 ASSIGN 840 TO ARITH\r\n      ASSIGN 750 TO BPICK\r\n      IF (T .NE. 0)  GO TO 30\r\nC\r\n      ASSIGN 1210 TO ARITH2\r\n      ASSIGN 1010 TO BPICK2\r\n      ASSIGN 1100 TO APICK2\r\n      GO TO 600\r\nC\r\n   30 ASSIGN 1600 TO ARITH2\r\n      ASSIGN 1400 TO BPICK2\r\n      ASSIGN 1500 TO APICK2\r\n      GO TO 600\r\nC\r\nC     REAL DOUBLE PRECISION\r\nC\r\n   40 ASSIGN 850 TO ARITH\r\n      ASSIGN 770 TO BPICK\r\n      IF (MODB .EQ. 1) ASSIGN 790 TO BPICK\r\n      IF (T .NE. 0) GO TO 60\r\nC\r\n      ASSIGN 1220 TO ARITH2\r\n      ASSIGN 1030 TO BPICK2\r\n      IF (MODB .EQ. 1) ASSIGN 1050 TO BPICK2\r\n      ASSIGN 1120 TO APICK2\r\n   50 IF (MODA .EQ. 1) ASSIGN 1140 TO APICK2\r\n      GO TO 600\r\nC\r\n   60 ASSIGN 1610 TO ARITH2\r\n      ASSIGN 1420 TO BPICK2\r\n      IF (MODB .EQ. 1) ASSIGN 1440 TO BPICK2\r\n      ASSIGN 1520 TO APICK2\r\n   70 IF (MODA .EQ. 1) ASSIGN 1540 TO APICK2\r\n      GO TO 600\r\nC\r\nC     COMPLEX SINGLE PRECISION\r\nC\r\n  100 ASSIGN 860 TO ARITH\r\n      GO TO (110,110,120,130), TYPEB\r\n  110 ASSIGN 750 TO BPICK\r\n      GO TO 140\r\n  120 ASSIGN 760 TO BPICK\r\n      GO TO 140\r\n  130 ASSIGN 810 TO BPICK\r\n  140 IF (T .NE. 0)  GO TO 220\r\nC\r\n      ASSIGN 1230 TO ARITH2\r\n      GO TO (150,150,160,170), TYPEB\r\n  150 ASSIGN 1010 TO BPICK2\r\n      GO TO 180\r\n  160 ASSIGN 1020 TO BPICK2\r\n      GO TO 180\r\n  170 ASSIGN 1070 TO BPICK2\r\n  180 GO TO (190,190,200,210), TYPEA\r\n  190 ASSIGN 1100 TO APICK2\r\n      GO TO 600\r\n  200 ASSIGN 1110 TO APICK2\r\n      GO TO 600\r\n  210 ASSIGN 1160 TO APICK2\r\n      GO TO 600\r\n  220 ASSIGN 1620 TO ARITH2\r\nC\r\n      GO TO (230,230,240,250), TYPEB\r\n  230 ASSIGN 1400 TO BPICK2\r\n      GO TO 260\r\n  240 ASSIGN 1410 TO BPICK2\r\n      GO TO 260\r\n  250 ASSIGN 1460 TO BPICK2\r\n  260 GO TO (270,270,280,290), TYPEA\r\n  270 ASSIGN 1500 TO APICK2\r\n      GO TO 600\r\n  280 ASSIGN 1510 TO APICK2\r\n      GO TO 600\r\n  290 ASSIGN 1560 TO APICK2\r\n      GO TO 600\r\nC\r\nC     COMPLEX DOUBLE PRECISION\r\nC\r\n  300 ASSIGN 870 TO ARITH\r\n      GO TO (310,320,330,340), TYPEB\r\n  310 ASSIGN 790 TO BPICK\r\n      GO TO 350\r\n  320 ASSIGN 770 TO BPICK\r\n      GO TO 350\r\n  330 ASSIGN 800 TO BPICK\r\n      GO TO 350\r\n  340 ASSIGN 780 TO BPICK\r\n  350 IF (T .NE. 0) GO TO 440\r\nC\r\n      ASSIGN 1240 TO ARITH2\r\n      GO TO (360,370,380,390), TYPEB\r\n  360 ASSIGN 1050 TO BPICK2\r\n      GO TO 400\r\n  370 ASSIGN 1030 TO BPICK2\r\n      GO TO 400\r\n  380 ASSIGN 1060 TO BPICK2\r\n      GO TO 400\r\n  390 ASSIGN 1040 TO BPICK2\r\n  400 GO TO (50,410,420,430), TYPEA\r\n  410 ASSIGN 1120 TO APICK2\r\n      GO TO 600\r\n  420 ASSIGN 1150 TO APICK2\r\n      GO TO 600\r\n  430 ASSIGN 1130 TO APICK2\r\n      GO TO 600\r\nC\r\n  440 ASSIGN 1630 TO ARITH2\r\n      GO TO (450,460,470,480), TYPEB\r\n  450 ASSIGN 1440 TO BPICK2\r\n      GO TO 490\r\n  460 ASSIGN 1420 TO BPICK2\r\n      GO TO 490\r\n  470 ASSIGN 1450 TO BPICK2\r\n      GO TO 490\r\n  480 ASSIGN 1430 TO BPICK2\r\n  490 GO TO (70,500,510,520), TYPEA\r\n  500 ASSIGN 1520 TO APICK2\r\n      GO TO 600\r\n  510 ASSIGN 1550 TO APICK2\r\n      GO TO 600\r\n  520 ASSIGN 1530 TO APICK2\r\nC\r\nC     MPYQ INITIALIZATION DONE\r\nC\r\n  600 RETURN\r\nC\r\nC\r\n      ENTRY MPY1V (ZZ      ,Z      ,ZD      )\r\nC     =====================\r\nC\r\nC     METHOD 1  (TRANSPOSE AND NON-TRANSPOSE)\r\nC\r\n  700 B (2) = 0.\r\n      BD(2) = 0.D0\r\n  710 CALL ZNTPKI\r\n      I1 = I - 1\r\n      IF (T) 730,720,730\r\n  720 K1 = LL\r\n      K2 = I1*RCD + 1\r\n      GO TO 740\r\n  730 K1 = I1*RCB + JB\r\n      K2 = LLL\r\n  740 K3 = K2 + JMAX1X\r\n      IF (ALL .NE. 0) GO TO (900,920,940,960), ALL\r\n      DO 880 K = K2,K3,NDX\r\n      J  = K1\r\n      GO TO BPICK, (750,760,770,780,790,800,810)\r\n  750 IF (Z(J) .EQ. 0.0) GO TO 880\r\n      B(1) = Z(J)\r\n      GO TO 830\r\n  760 IF (Z(J).EQ.0.0 .AND. Z(J+1).EQ.0.0) GO TO 880\r\n      B(1) = Z(J  )\r\n      B(2) = Z(J+1)\r\n      GO TO 830\r\n  770 IF (ZD(J) .EQ. 0.D0) GO TO 880\r\n      BD(1) = ZD(J)\r\n      GO TO 830\r\n  780 IF (ZD(J).EQ.0.D0 .AND. ZD(J+1).EQ.0.D0) GO TO 880\r\n      BD(1) = ZD(J  )\r\n      BD(2) = ZD(J+1)\r\n      GO TO 830\r\n  790 IF (Z(J) .EQ. 0.0) GO TO 880\r\n      BD(1) = Z(J)\r\n      GO TO 830\r\n  800 IF (Z(J).EQ.0.0 .AND. Z(J+1).EQ.0.0) GO TO 880\r\n      BD(1) = Z(J  )\r\n      BD(2) = Z(J+1)\r\n      GO TO 830\r\n  810 IF (ZD(J).EQ.0.D0 .AND. ZD(J+1).EQ.0.D0) GO TO 880\r\n      B(1) = ZD(J  )\r\n      B(2) = ZD(J+1)\r\nC\r\n  830 GO TO ARITH, (840,850,860,870)\r\n  840 Z(K) = Z(K) + A(1)*B(1)\r\n      GO TO 880\r\n  850 ZD(K) = ZD(K) + AD(1)*BD(1)\r\n      GO TO 880\r\n  860 Z(K  ) = Z(K  ) + A(1)*B(1) - A(2)*B(2)\r\n      Z(K+1) = Z(K+1) + A(1)*B(2) + A(2)*B(1)\r\n      GO TO 880\r\n  870 ZD(K  ) = ZD(K  ) + AD(1)*BD(1) - AD(2)*BD(2)\r\n      ZD(K+1) = ZD(K+1) + AD(1)*BD(2) + AD(2)*BD(1)\r\n  880 K1 = K1 + NBX\r\n      IF (EOL) 980,710,980\r\nC\r\nC     COMMON CASES (TYPEA=TYPEB=TYPED=PREC)\r\nC\r\nC     PREC=1, ARITH(840) AND BPICK(750)\r\nC     PREC=2, ARITH(850) AND BPICK(770)\r\nC     PREC=3, ARITH(860) AND BPICK(760)\r\nC     PREC=4, ARITH(870) AND BPICK(780)\r\nC\r\n  900 DO 910 K = K2,K3,NDX\r\n      Z(K) = Z(K) + A(1)*Z(K1)\r\n  910 K1 = K1 + NBX\r\n      IF (EOL) 980,710,980\r\n  920 DO 930 K = K2,K3,NDX\r\n      ZD(K) = ZD(K) + AD(1)*ZD(K1)\r\n  930 K1 = K1 + NBX\r\n      IF (EOL) 980,710,980\r\n  940 DO 950 K = K2,K3,NDX\r\n      Z(K  ) = Z(K  ) + A(1)*Z(K1  ) - A(2)*Z(K1+1)\r\n      Z(K+1) = Z(K+1) + A(1)*Z(K1+1) + A(2)*Z(K1  )\r\n  950 K1 = K1 + NBX\r\n      IF (EOL) 980,710,980\r\n  960 DO 970 K = K2,K3,NDX\r\n      ZD(K  ) = ZD(K  ) + AD(1)*ZD(K1  ) - AD(2)*ZD(K1+1)\r\n      ZD(K+1) = ZD(K+1) + AD(1)*ZD(K1+1) + AD(2)*ZD(K1  )\r\n  970 K1 = K1 + NBX\r\n      IF (EOL) 980,710,980\r\n  980 RETURN\r\nC\r\nC\r\n      ENTRY MPY2NV (ZZ      ,Z      ,ZD      )\r\nC     ======================\r\nC\r\nC     METHOD 2 NON-TRANSPOSE CASE\r\nC\r\n      B(2)  = 0.\r\n      BD(2) = 0.D0\r\n      AA(2) = 0.\r\n      ADD(2)= 0.D0\r\n      L     = FIRSTL\r\n      ACOL  = ACOL1\r\n 1000 CALL ZNTPKI\r\n      IF (I.LT.ACOL1 .OR. I.GT.ACOLN .OR. I.LT.ACOL) GO TO 1290\r\n      L     = L - 2*(I-ACOL)\r\n      ACOL  = I\r\n      APOINT= ZZ(L)\r\n      IF (APOINT .EQ. 0) GO TO 1280\r\n      NBR   = ZZ(L-1)\r\n      IF (ALL .NE. 0) GO TO (1260,1265,1270,1275), ALL\r\n      GO TO BPICK2, (1010,1020,1030,1040,1050,1060,1070)\r\n 1010 B(1)  = A(1)\r\n      GO TO 1090\r\n 1020 B(1)  = A(1)\r\n      B(2)  = A(2)\r\n      GO TO 1090\r\n 1030 BD(1) = AD(1)\r\n      GO TO 1090\r\n 1040 BD(1) = AD(1)\r\n      BD(2) = AD(2)\r\n      GO TO 1090\r\n 1050 BD(1) = A(1)\r\n      GO TO 1090\r\n 1060 BD(1) = A(1)\r\n      BD(2) = A(2)\r\n      GO TO 1090\r\n 1070 B(1)  = AD(1)\r\n      B(2)  = AD(2)\r\nC\r\n 1090 NBRSTR = ZZ( APOINT+1 )\r\n      INIT   = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J      = APOINT\r\n      IF ( PRCA .EQ. 2 ) J = J/2 + 1\r\n      APOINT = APOINT+ NBRSTR*NWDA\r\n      IROW   = INIT*RCD - RCD + 1\r\n      NROW   = IROW + NBRSTR*RCD - 1\r\n      DO 1250 K = IROW,NROW,RCD\r\n      GO TO APICK2, (1100,1110,1120,1130,1140,1150,1160)\r\n 1100 AA(1) = Z(J)\r\n      GO TO 1200\r\n 1110 AA(1) = Z(J  )\r\n      AA(2) = Z(J+1)\r\n      GO TO 1200\r\n 1120 ADD(1)= ZD(J)\r\n      GO TO 1200\r\n 1130 ADD(1)= ZD(J  )\r\n      ADD(2)= ZD(J+1)\r\n      GO TO 1200\r\n 1140 ADD(1)= Z(J)\r\n      GO TO 1200\r\n 1150 ADD(1)= Z(J  )\r\n      ADD(2)= Z(J+1)\r\n      GO TO 1200\r\n 1160 AA(1) = ZD(J  )\r\n      AA(2) = ZD(J+1)\r\nC\r\n 1200 GO TO ARITH2, (1210,1220,1230,1240)\r\n 1210 Z(K)  = Z(K) + AA(1)*B(1)\r\n      GO TO 1250\r\n 1220 ZD(K) = ZD(K) + ADD(1)*BD(1)\r\n      GO TO 1250\r\n 1230 Z(K  )= Z(K  ) + AA(1)*B(1) - AA(2)*B(2)\r\n      Z(K+1)= Z(K+1) + AA(1)*B(2) + AA(2)*B(1)\r\n      GO TO 1250\r\n 1240 ZD(K  ) = ZD(K  ) + ADD(1)*BD(1) - ADD(2)*BD(2)\r\n      ZD(K+1) = ZD(K+1) + ADD(1)*BD(2) + ADD(2)*BD(1)\r\n 1250 J = J + RCA\r\n      NBR  = NBR - 1\r\n      IF (NBR) 1280,1280,1090\r\nC\r\nC     COMMON CASES (TYPEA=TYPEB=TYPED=PREC)\r\nC\r\nC     PREC=1, ARITH2(1210), APICK2(1100) AND BPICK2(1010)\r\nC     PREC=2, ARITH2(1220), APICK2(1120) AND BPICK2(1030)\r\nC     PREC=3, ARITH2(1230), APICK2(1110) AND BPICK2(1020)\r\nC     PREC=4, ARITH2(1620), APICK2(1510) AND BPICK2(1410)\r\nC\r\n 1260 NBRSTR = ZZ( APOINT+1 )\r\n      INIT   = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J      = APOINT\r\n      IF ( PRCA .EQ. 2 ) J = J/2 + 1\r\n      APOINT = APOINT+ NBRSTR*NWDA\r\n      IROW  = INIT*RCD - RCD + 1\r\n      NROW  = IROW + NBRSTR*RCD - 1\r\n      DO 1262 K = IROW,NROW,RCD\r\n      Z(K)  = Z(K) + Z(J)*A(1)\r\n 1262 J     = J + RCA\r\n      NBR   = NBR - 1\r\n      IF (NBR) 1280,1280,1260\r\nC\r\n 1265 NBRSTR = ZZ( APOINT+1 )\r\n      INIT   = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J      = APOINT\r\n      IF ( PRCA .EQ. 2 ) J = J/2 + 1\r\n      APOINT = APOINT+ NBRSTR*NWDA\r\n      IROW  = INIT*RCD - RCD + 1\r\n      NROW  = IROW + NBRSTR*RCD - 1\r\n      DO 1267 K = IROW,NROW,RCD\r\n      ZD(K) = ZD(K) + ZD(J)*AD(1)\r\n 1267 J     = J + RCA\r\n      NBR   = NBR - 1\r\n      IF (NBR) 1280,1280,1265\r\nC\r\n 1270 NBRSTR = ZZ( APOINT+1 )\r\n      INIT   = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J      = APOINT\r\n      IF ( PRCA .EQ. 2 ) J = J/2 + 1\r\n      APOINT = APOINT+ NBRSTR*NWDA\r\n      IROW  = INIT*RCD - RCD + 1\r\n      NROW  = IROW + NBRSTR*RCD - 1\r\n      DO 1272 K = IROW,NROW,RCD\r\n      Z(K  )  = Z(K  ) + Z(J)*A(1) - Z(J+1)*A(2)\r\n      Z(K+1)  = Z(K+1) + Z(J)*A(2) + Z(J+1)*A(1)\r\n 1272 J     = J + RCA\r\n      NBR   = NBR - 1\r\n      IF (NBR) 1280,1280,1270\r\nC\r\n 1275 NBRSTR = ZZ( APOINT+1 )\r\n      INIT   = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J      = APOINT\r\n      IF ( PRCA .EQ. 2 ) J = J/2 + 1\r\n      APOINT = APOINT+ NBRSTR*NWDA\r\n      IROW  = INIT*RCD - RCD + 1\r\n      NROW  = IROW + NBRSTR*RCD - 1\r\n      DO 1277 K = IROW,NROW,RCD\r\n      ZD(K  ) = ZD(K  ) + ZD(J)*AD(1) - ZD(J+1)*AD(2)\r\n      ZD(K+1) = ZD(K+1) + ZD(J)*AD(2) + ZD(J+1)*AD(1)\r\n 1277 J     = J + RCA\r\n      NBR   = NBR - 1\r\n      IF (NBR) 1280,1280,1275\r\nC\r\n 1280 L = L - 2\r\n      ACOL = ACOL + 1\r\n 1290 IF (EOL .EQ. 0) GO TO 1000\r\n      RETURN\r\nC\r\nC\r\n      ENTRY MPY2TV (ZZ      ,Z      ,ZD      )\r\nC     ======================\r\nC\r\nC     METHOD 2 - TRANSPOSE CASE\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS      1/91\r\nC     OBSERVE THAT THERE IS NO DO-LOOP IN THIS MPY2TV LOGIC. IT IS\r\nC     THEREFORE CONCLUDED THAT THE TRANSPOSE CASE WOULD TAKE MUCH MORE\r\nC     TIME THAN THE NON-TRANSPOSE CASE\r\nC\r\n      B(2)  = 0.\r\n      BD(2) = 0.D0\r\n      AA(2) = 0.\r\n      ADD(2)= 0.D0\r\n      DD(1) = 0.D0\r\n      DD(2) = 0.D0\r\n      L     = FIRSTL\r\n      APOINT= ZZ(L)\r\n      AROW  = AROW1\r\n      IF (CROW .EQ. MASK6F) GO TO 1350\r\n      GO TO 1330\r\n 1300 APOINT = ZZ(L)\r\n      IF (CROW-AROW) 1320,1340,1350\r\n 1310 DROW = CROW\r\n      CALL ZBLPKI\r\n 1320 IF (EOL .NE. 0) GO TO 1350\r\n 1330 CALL ZNTPKI\r\n      CROW  = I\r\n 1340 DD(1) = AD(1)\r\n      DD(2) = AD(2)\r\n      IF (CROW-AROW) 1310,1360,1350\r\n 1350 DD(1) = 0.D0\r\n      DD(2) = 0.D0\r\n      IF (APOINT .EQ. 0) GO TO 1690\r\n 1360 DROW  = AROW\r\n      IF (APOINT .EQ. 0) GO TO 1680\r\n      NBRSTR= ZZ(L-1)\r\n 1370 NBR   = ZZ( APOINT+1 )\r\n      NBR1  = NBR\r\n      INIT  = ZZ( APOINT )\r\n      APOINT = APOINT + 2\r\n      J = APOINT\r\n      IF ( PRCA .GT. 1 ) J = J/2 + 1\r\n      APOINT = APOINT + NBR*NWDA\r\n      K     = (INIT-1)*RCB + 1\r\n 1380 IF (ALL .NE. 0) GO TO (1640,1645,1650,1655), ALL\r\n      GO TO BPICK2, (1400,1410,1420,1430,1440,1450,1460)\r\n 1400 B(1)  = Z(K)\r\n      GO TO 1470\r\n 1410 B(1)  = Z(K  )\r\n      B(2)  = Z(K+1)\r\n      GO TO 1470\r\n 1420 BD(1) = ZD(K)\r\n      GO TO 1470\r\n 1430 BD(1) = ZD(K  )\r\n      BD(2) = ZD(K+1)\r\n      GO TO 1470\r\n 1440 BD(1) = Z(K)\r\n      GO TO 1470\r\n 1450 BD(1) = Z(K  )\r\n      BD(2) = Z(K+1)\r\n      GO TO 1470\r\n 1460 B(1)  = ZD(K  )\r\n      B(2)  = ZD(K+1)\r\nC\r\n 1470 GO TO APICK2, (1500,1510,1520,1530,1540,1550,1560)\r\n 1500 AA(1) = Z(J)\r\n      GO TO 1570\r\n 1510 AA(1) = Z(J  )\r\n      AA(2) = Z(J+1)\r\n      GO TO 1570\r\n 1520 ADD(1)= ZD(J)\r\n      GO TO 1570\r\n 1530 ADD(1)= ZD(J  )\r\n      ADD(2)= ZD(J+1)\r\n      GO TO 1570\r\n 1540 ADD(1)= Z(J)\r\n      GO TO 1570\r\n 1550 ADD(1)= Z(J  )\r\n      ADD(2)= Z(J+1)\r\n      GO TO 1570\r\n 1560 AA(1) = Z(J  )\r\n      AA(2) = Z(J+2)\r\nC\r\n 1570 GO TO ARITH2, (1600,1610,1620,1630)\r\n 1600 D(1)  = D(1) + AA(1)*B(1)\r\n      GO TO 1660\r\n 1610 DD(1) = DD(1) + ADD(1)*BD(1)\r\n      GO TO 1660\r\n 1620 D(1)  = D(1) + AA(1)*B(1) - AA(2)*B(2)\r\n      D(2)  = D(2) + AA(1)*B(2) + AA(2)*B(1)\r\n      GO TO 1660\r\n 1630 DD(1) = DD(1) + ADD(1)*BD(1) - ADD(2)*BD(2)\r\n      DD(2) = DD(2) + ADD(1)*BD(2) + ADD(2)*BD(1)\r\n      GO TO 1660\r\nC\r\nC     COMMON CASES (TYPEA=TYPEB=TYPED=PREC)\r\nC\r\nC     PREC=1, ARITH2(1600), APICK2(1500) AND BPICK2(1400)\r\nC     PREC=2, ARITH2(1610), APICK2(1520) AND BPICK2(1420)\r\nC     PREC=3, ARITH2(1620), APICK2(1510) AND BPICK2(1410)\r\nC     PREC=4, ARITH2(1630), APICK2(1530) AND BPICK2(1430)\r\nC\r\n 1640 D(1) = D(1) + Z(J)*Z(K)\r\n      J = J + RCA\r\n      K = K + RCB\r\n      NBR = NBR - 1\r\n      IF (NBR) 1670,1670,1640\r\nC\r\n 1645 DD(1) = DD(1) + ZD(J)*ZD(K)\r\n      J = J + RCA\r\n      K = K + RCB\r\n      NBR = NBR - 1\r\n      IF (NBR) 1670,1670,1645\r\nC\r\n 1650 D(1) = D(1) + Z(J)*Z(K  ) - Z(J+1)*Z(K+1)\r\n      D(2) = D(2) + Z(J)*Z(K+1) + Z(J+1)*Z(K  )\r\n      J = J + RCA\r\n      K = K + RCB\r\n      NBR = NBR - 1\r\n      IF (NBR) 1670,1670,1650\r\nC\r\n 1655 DD(1) = DD(1) + ZD(J)*ZD(K  ) - ZD(J+1)*ZD(K+1)\r\n      DD(2) = DD(2) + ZD(J)*ZD(K+1) + ZD(J+1)*ZD(K  )\r\n      J = J + RCA\r\n      K = K + RCB\r\n      NBR = NBR - 1\r\n      IF (NBR) 1670,1670,1655\r\nC\r\n 1660 J = J + RCA\r\n      K = K + RCB\r\n      NBR = NBR - 1\r\n      IF (NBR .GT. 0) GO TO 1380\r\n 1670 NBRSTR = NBRSTR - 1\r\n      IF (NBRSTR .GT. 0) GO TO 1370\r\n 1680 CALL ZBLPKI\r\n 1690 L = L - 2\r\n      AROW = AROW + 1\r\n      IF (AROW .LE. AROWN) GO TO 1300\r\n      RETURN\r\nC\r\nC\r\n      ENTRY MPY3T (*,AAS      ,AAD      ,DDS      ,DDD      )\r\nC     ===============================\r\nC\r\nC     METHOD 3 (TRANSPOSE ONLY)\r\nC\r\n      B3FLAG = -1\r\n      CALL GETSTR (*2400,BLOCK)\r\nCIBMNB 6/93\r\n      IF ( BLOCK( 2 ) .EQ. TYPEB ) GO TO 1699\r\n      TYPEB = BLOCK( 2 )\r\n      RCB   = RC( TYPEB )\r\n      ALL   = 0\r\n 1699 CONTINUE\r\nCIBMNE 6/93\r\n      IF (ALL .NE. 0) GO TO (1760,1920,2060,2270), ALL\r\n      GO TO (1700,1800,2000,2100), TYPED\r\nC\r\nC     PERFORM ARITHMETIC IN REAL SINGLE PRECISION\r\nC\r\n 1700 JB3N = JB31 + NTERM3 - 1\r\n      DO 1740 JB3 = JB31,JB3N\r\n      K = J3\r\n      BBB = BBS(JB3)\r\n      IF (BLOCK(2) .EQ. 2) BBB = BBD(JB3)\r\n      IF (TYPEA    .NE. 2) GO TO 1720\r\n      DO 1710 I = AROW1,AROWN\r\n      AAA = AAD(K)\r\n      DDS(I) = DDS(I) + AAA*BBB\r\n 1710 K  = K + NA\r\n      GO TO 1740\r\n 1720 DO 1730 I = AROW1,AROWN\r\n      DDS(I) = DDS(I) + AAS(K)*BBB\r\n 1730 K  = K + NA\r\n 1740 J3 = J3 + 1\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 1700\r\nC\r\nC     COMMON CASE (TYPEA=TYPEB=TYPED=PREC=1)\r\nC\r\n 1760 JB3N = JB31 + NTERM3 - 1\r\n      DO 1780 JB3 = JB31,JB3N\r\n      K  = J3\r\n      DO 1770 I = AROW1,AROWN\r\n      DDS(I) = DDS(I) + AAS(K)*BBS(JB3)\r\n 1770 K  = K  + NA\r\n 1780 J3 = J3 + 1\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 1760\r\nC\r\nC     PERFORM ARITHMETIC IN REAL DOUBLE PRECISION\r\nC\r\n 1800 K1 = 2*(PRCA-1) + PRC(TYPEB)\r\n 1810 JB3N = JB31 + NTERM3 - 1\r\n      DO 1900 JB3 = JB31,JB3N\r\n      K = J3\r\n      GO TO (1820,1840,1860,1880), K1\r\n 1820 DO 1830 I = AROW1,AROWN\r\n      DDD(I) = DDD(I) + AAS(K)*BBS(JB3)\r\n 1830 K = K + FA3\r\n      GO TO 1900\r\n 1840 DO 1850 I = AROW1,AROWN\r\n      DDD(I) = DDD(I) + AAS(K)*BBD(JB3)\r\n 1850 K = K + FA3\r\n      GO TO 1900\r\n 1860 DO 1870 I = AROW1,AROWN\r\n      DDD(I) = DDD(I) + AAD(K)*BBS(JB3)\r\n 1870 K = K + FA3\r\n      GO TO 1900\r\n 1880 DO 1890 I = AROW1,AROWN\r\n      DDD(I) = DDD(I) + AAD(K)*BBD(JB3)\r\n 1890 K = K + FA3\r\n 1900 J3 = J3 + 1\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 1810\r\nC\r\nC     COMMON CASE (TYPEA=TYPEB=TYPED=PREC=2)\r\nC\r\n 1920 JB3N = JB31 + NTERM3 - 1\r\n      DO 1940 JB3 = JB31,JB3N\r\n      K = J3\r\n      DO 1930 I = AROW1,AROWN\r\n      DDD(I) = DDD(I) + AAD(K)*BBD(JB3)\r\n 1930 K = K  + FA3\r\n 1940 J3 = J3 + 1\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 1920\r\nC\r\nC     PERFORM ARITHMETIC IN COMPLEX SINGLE PRECISION\r\nC\r\n 2000 BSI  = 0.\r\n      I1   = 2*AROW1 - 1\r\n      IN   = 2*AROWN - 1\r\n 2010 IF (RCA .EQ. 2) J3 = 2*J3 - 1\r\n      JB3N = JB31 + RCB*NTERM3 - RCB\r\n      DO 2050 JB3 = JB31,JB3N,RCB\r\n      BSR = BBS(JB3)\r\n      IF (RCB .EQ. 2) BSI = BBS(JB3+1)\r\n      K = J3\r\n      IF (RCA .EQ. 2) GO TO 2030\r\n      DO 2020 I = I1,IN,2\r\n      DDS(I  ) = DDS(I  ) + AAS(K)*BSR\r\n      DDS(I+1) = DDS(I+1) + AAS(K)*BSI\r\n 2020 K = K + NA\r\n      GO TO 2050\r\n 2030 DO 2040 I = I1,IN,2\r\n      DDS(I  ) = DDS(I  ) + AAS(K)*BSR - AAS(K+1)*BSI\r\n      DDS(I+1) = DDS(I+1) + AAS(K)*BSI + AAS(K+1)*BSR\r\n 2040 K = K + NA\r\n 2050 J3 = J3 + RCA\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 2010\r\nC\r\nC     COMMON CASE (TYPEA=TYPEB=TYPED=PREC=3)\r\nC\r\n 2060 I1 = 2*AROW1 - 1\r\n      IN = 2*AROWN - 1\r\n 2070 J3 = 2*J3 - 1\r\n      JB3N = JB31 + RCB*NTERM3 - RCB\r\n      DO 2090 JB3 = JB31,JB3N,RCB\r\n      K = J3\r\n      DO 2080 I = I1,IN,2\r\n      DDS(I  ) = DDS(I  ) + AAS(K)*BBS(JB3  ) - AAS(K+1)*BBS(JB3+1)\r\n      DDS(I+1) = DDS(I+1) + AAS(K)*BBS(JB3+1) + AAS(K+1)*BBS(JB3  )\r\n 2080 K = K + NA\r\n 2090 J3 = J3 + RCA\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 2070\r\nC\r\nC     PERFORM ARITHMETIC IN COMPLEX DOUBLE PRECISION\r\nC\r\n 2100 BDI = 0.\r\n      INCA= RCA*FA3\r\n      I1  = 2*AROW1 - 1\r\n      IN  = 2*AROWN - 1\r\n 2110 IF (RCA .EQ. 2) J3 = 2*J3 - 1\r\n      JB3N = JB31 + RCB*NTERM3 - RCB\r\n      DO 2260 JB3 = JB31,JB3N,RCB\r\n      K = J3\r\n      GO TO (2120,2130,2140,2150), TYPEB\r\n 2120 BDR = BBS(JB3)\r\n      GO TO 2160\r\n 2130 BDR = BBD(JB3)\r\n      GO TO 2160\r\n 2140 BDR = BBS(JB3  )\r\n      BDI = BBS(JB3+1)\r\n      GO TO 2160\r\n 2150 BDR = BBD(JB3  )\r\n      BDI = BBD(JB3+1)\r\n 2160 GO TO (2170,2190,2210,2230), TYPEA\r\n 2170 DO 2180 I = I1,IN,2\r\n      DDD(I  ) = DDD(I  ) + AAS(K)*BDR\r\n      DDD(I+1) = DDD(I+1) + AAS(K)*BDI\r\n 2180 K = K + INCA\r\n      GO TO 2250\r\n 2190 DO 2200 I = I1,IN,2\r\n      DDD(I  ) = DDD(I  ) + AAD(K)*BDR\r\n      DDD(I+1) = DDD(I+1) + AAD(K)*BDI\r\n 2200 K = K + INCA\r\n      GO TO 2250\r\n 2210 DO 2220 I = I1,IN,2\r\n      DDD(I  ) = DDD(I  ) + AAS(K)*BDR - AAS(K+1)*BDI\r\n      DDD(I+1) = DDD(I+1) + AAS(K)*BDI + AAS(K+1)*BDR\r\n 2220 K = K + INCA\r\n      GO TO 2250\r\n 2230 DO 2240 I = I1,IN,2\r\n      DDD(I  ) = DDD(I  ) + AAD(K)*BDR - AAD(K+1)*BDI\r\n      DDD(I+1) = DDD(I+1) + AAD(K)*BDI + AAD(K+1)*BDR\r\n 2240 K = K + INCA\r\n 2250 J3  = J3 + RCA\r\n 2260 CONTINUE\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 2110\r\nC\r\nC     COMMON CASE (TYPEA=TYPEB=TYPED=PREC=4)\r\nC\r\n 2270 INCA= RCA*FA3\r\n      I1  = 2*AROW1 - 1\r\n      IN  = 2*AROWN - 1\r\n 2280 J3 = 2*J3 - 1\r\n      JB3N = JB31 + RCB*NTERM3 - RCB\r\n      DO 2300 JB3 = JB31,JB3N,RCB\r\n      K = J3\r\n      DO 2290 I = I1,IN,2\r\n      DDD(I  ) = DDD(I  ) + AAD(K)*BBD(JB3  ) - AAD(K+1)*BBD(JB3+1)\r\n      DDD(I+1) = DDD(I+1) + AAD(K)*BBD(JB3+1) + AAD(K+1)*BBD(JB3  )\r\n 2290 K = K + INCA\r\n 2300 J3  = J3 + RCA\r\n      CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*2500,BLOCK)\r\n      GO TO 2280\r\nC\r\n 2400 RETURN 1\r\n 2500 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mqdplt.f",
    "content": "      SUBROUTINE MQDPLT\r\nC\r\nC     THIS ROUTINE GENERATES FOUR 6X6 STIFFNESS MATRICES WITH RESPECT\r\nC     TO ONE PIVOT POINT OF A QUADRILATERAL PLATE ELEMENT.\r\nC\r\nC     REF.  FMMS-66   JUNE 23, 1969   TRI.BENDING ELEMENT MASS\r\nC           FMMS-66   JUNE 23, 1969   QUAD. BENDING ELEMENT MASS\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           MTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC           TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC           SMA2B  - INSERTION ROUTINE\r\nC           GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN\r\nC     LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE.\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.-----TYPE       QUAD.PLT.---------TYPE\r\nC     ========   =============      =======    ===============   =======\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\n      INTEGER          SUBSCA,SUBSCB,SUBSCC\r\n      DOUBLE PRECISION MOUT,TITE,DPDUM1,TJTE,DPDUM2,IVECT,D1,JVECT,D2,\r\n     1                 KVECT,A1,MSUM,T,V,VV,XSUBB,XSUBC,YSUBC,PROD9,\r\n     2                 TEMP,TEMP9,TEMP36,U1,U2,H,E,A,REQUIV,R,IIZ,MIZ,\r\n     3                 SIGN,PTMASS,M6X6\r\n      DIMENSION        M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3),\r\n     1                 VQ4(3),A(1),MSUM(36)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222,SPACE(2)\r\n      COMMON /SMA2IO/  DUM1(10),IFMGG,DUM2(25)\r\n      COMMON /SMA2CL/  DUM3(2),NPVT,DUMCL(7),LINK(10),NOGO\r\n      COMMON /SMA2ET/  ECPT(100)\r\n      COMMON /SMA2DP/  MOUT(36),TITE(9),TJTE(36),TEMP36(36),DPDUM1(27),\r\n     1                 D1(3),D2(3),A1(3),T(9),V(2),VV(2),IIZ,MIZ,SIGN,\r\n     2                 SPDUM(20),M6X6(36),DPDUM2(10),PROD9(9),TEMP9(9),\r\n     3                 XSUBB,XSUBC,YSUBC,E(9),TEMP,SP1(33),KM,NBEGIN,\r\n     4                 JNOT,NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB,\r\n     5                 SUBSCC,SINANG,COSANG,NPOINT,IVECT(3),JVECT(3),\r\n     6                 KVECT(3),U1,U2,R(2,4),H,PTMASS\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)),\r\n     1                 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)),\r\n     2                 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)),\r\n     3                 (VQ4(1),ECPT(27)),(A(1),MOUT(1))\r\n      DATA    M     /  2,4,1,  3,1,2,  4,2,3,  1,3,4 /\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I = 1,4\r\n      IF (NPVT .NE. NECPT(I+1)) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\n   20 THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      IF (NPIVOT-2) 30,30,40\r\n   30 JNOT = NPIVOT + 2\r\n      GO TO 50\r\n   40 JNOT = NPIVOT - 2\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES.  (2X4) FOR QUADRILATERAL PLATE...\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n   50 DO 60 I = 1,8\r\n   60 REQUIV(I) = 0.0D0\r\nC\r\nC     SHIFT ECPT UP TO MATCH MTRBSC FOR CERTAIN VARIABLES.\r\nC\r\n      DO 80 I = 6,12\r\n   80 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 90 I = 1,3\r\n      D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I))\r\n      D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I))\r\n   90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I))\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 360\r\n      DO 100 I = 1,3\r\n  100 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = A1 DOT KVECT\r\nC\r\n      H = A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3)\r\nC\r\nC     WRITE (6,109)\r\nC     WRITE (6,119)\r\nC     WRITE (6,1195) H,(D1(I),D2(I),A1(I),I=1,3)\r\nC\r\nC     I-VECTOR = (A1) - H*(KVECT)  NON-NORMALIZED\r\nC\r\n      DO 110 I = 1,3\r\n  110 IVECT(I) = A1(I) - H*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 360\r\n      DO 120 I = 1,3\r\n  120 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K CROSS I, AND X3 CALCULATION\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP =  DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 360\r\n      DO 130 I = 1,3\r\n  130 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     WRITE (6,129) (IVECT(I),I=1,3),(JVECT(I),I=1,3),(KVECT(I),I=1,3),\r\nC    1              ((R(I,J),J=1,4),I=1,2)\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140\r\n      TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 140\r\n      TEMP = R(2,3)*R(1,4)/R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 150\r\n  140 CALL MESAGE (30,35,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC\r\nC     ZERO OUT MSUM MATRICES\r\nC\r\n  150 DO 160 I = 1,36\r\n  160 MSUM(I) = 0.0D0\r\n      PTMASS  = 0.0D0\r\n      ELTEMP  = ECPT(30)\r\nC\r\n      DO 220 J = 1,4\r\n      IF (J .EQ. JNOT) GO TO 220\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 170 I = 1,2\r\n      V(I)  = R(I,SUBSCB) - R(I,SUBSCA)\r\n  170 VV(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT(V(1)**2 + V(2)**2)\r\n      U1    = V(1)/XSUBB\r\n      U2    = V(2)/XSUBB\r\n      XSUBC = U1*VV(1) + U2*VV(2)\r\n      YSUBC = U1*VV(2) - U2*VV(1)\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\nC     WRITE(6,139) XSUBB,XSUBC,YSUBC\r\nC\r\n      CALL MTRBSC\r\nC                         U\r\nC     NOW HAVE AT HAND  M    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC     MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS...\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC\r\nC     FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE\r\nC     QUADRILATERAL\r\nC\r\n      DO 180 I = 1,3\r\n      NPOINT = KM + I\r\n      IF (M(NPOINT) .NE. NPIVOT) GO TO 180\r\n      NBEGIN = 27*I - 27\r\n      GO TO 190\r\n  180 CONTINUE\r\nC\r\n  190 DO 210 I = 1,3\r\n      NPOINT = NBEGIN + 9*I - 8\r\n      CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9)\r\n      CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9)\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\n      DO 200 K = 1,9\r\n      NPOINT = NPOINT + 1\r\n  200 MSUM(NPOINT) = MSUM(NPOINT) + PROD9(K)/2.0D0\r\nC\r\nC\r\n  210 CONTINUE\r\nC\r\n      PTMASS = PTMASS + DBLE(ECPT(10))/4.0D0 * XSUBB*YSUBC\r\n  220 CONTINUE\r\n      PTMASS = PTMASS/3.0D0\r\nC\r\n      DO 225 I = 1,36\r\n  225 TJTE(I) = 0.0D0\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 230 I = 1,9\r\n  230 E(I) = 0.0D0\r\n      DO 235 I = 1,3\r\n      NPOINT = 3*I - 2\r\n      E(NPOINT  ) = IVECT(I)\r\n      E(NPOINT+1) = JVECT(I)\r\n  235 E(NPOINT+2) = KVECT(I)\r\nC\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240\r\n      CALL TRANSD (NECPT(4*NPIVOT+10),T)\r\n      CALL GMMATD (T,3,3,1, E(1),3,3,0, TITE(1))\r\nC\r\nC\r\n      GO TO 260\r\nC\r\n  240 DO 250 K = 1,9\r\n  250 TITE(K) = E(K)\r\nC\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n  260 DO 350 J = 1,4\r\n      NBEGIN = 9*J - 9\r\n      DO 265 I = 1,36\r\n  265 M6X6(I) = 0.0D0\r\n      DO 270 I = 1,3\r\n      NPOINT = NBEGIN + I\r\n      M6X6(I+14) = MSUM(NPOINT  )\r\n      M6X6(I+20) = MSUM(NPOINT+3)\r\n  270 M6X6(I+26) = MSUM(NPOINT+6)\r\nC\r\nC\r\n      IF (NPIVOT .NE. J) GO TO 290\r\nC\r\n      SIGN     = (-1)**J\r\n      TEMP     = PTMASS*H\r\n      MIZ      = TEMP/2.0D0*SIGN\r\n      IIZ      = TEMP*H/2.0D0\r\n      M6X6( 1) = PTMASS\r\n      M6X6( 5) = MIZ\r\n      M6X6( 8) = M6X6(1)\r\n      M6X6(10) =-MIZ\r\n      M6X6(20) = M6X6(10)\r\n      M6X6(22) = M6X6(22) + IIZ\r\n      M6X6(25) = MIZ\r\n      M6X6(29) = M6X6(29) + IIZ\r\nC\r\nC\r\n  290 IF (NECPT(4*J+10) .EQ. 0) GO TO 320\r\n      CALL TRANSD (NECPT(4*J+10),T)\r\n      CALL GMMATD (E(1),3,3,1, T(1),3,3,0, TJTE(1))\r\n      DO 300 I = 1,3\r\n      NPOINT = I + 21\r\n      TJTE(NPOINT   ) = TJTE(I  )\r\n      TJTE(NPOINT+ 6) = TJTE(I+3)\r\n  300 TJTE(NPOINT+12) = TJTE(I+6)\r\n      DO 310 I = 1,3\r\n      NPOINT = I + 21\r\n      TJTE(I   ) = TJTE(NPOINT   )\r\n      TJTE(I+ 6) = TJTE(NPOINT+ 6)\r\n      TJTE(I+12) = TJTE(NPOINT+12)\r\n  310 TJTE(I+ 3) = 0.0D0\r\nC\r\n      GO TO 340\r\nC\r\n  320 DO 330 I = 1,3\r\n      NPOINT = 6*I - 5\r\n      NPT    = NPOINT + 21\r\n      TJTE(NPOINT  ) = E(I  )\r\n      TJTE(NPOINT+1) = E(I+3)\r\n      TJTE(NPOINT+2) = E(I+6)\r\n      TJTE(NPT     ) = E(I  )\r\n      TJTE(NPT   +1) = E(I+3)\r\n  330 TJTE(NPT   +2) = E(I+6)\r\nC\r\nC\r\n  340 CALL GMMATD (M6X6(1),6,6,0, TJTE(1),6,6,0, TEMP36(1))\r\n      CALL GMMATD (TITE(1),3,3,0, TEMP36( 1),3,6,0, MOUT( 1))\r\n      CALL GMMATD (TITE(1),3,3,0, TEMP36(19),3,6,0, MOUT(19))\r\nC\r\nC\r\n      CALL SMA2B (MOUT(1),NECPT(J+1),-1,IFMGG,0.0D0)\r\nC\r\n  350 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n  360 CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred1.f",
    "content": "      SUBROUTINE MRED1\r\nC\r\nC     THIS SUBROUTINE IS THE MRED1 MODULE WHICH INITIATES THE MODAL\r\nC     SYNTHESIS CALCULATIONS.\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC     MRED1    CASECC,GEOM4,DYNAMICS/USETX,EEDX,EQST,DMR/*NAMEA*/\r\nC              S,N,DRY/STEP/S,N,NOUS/S,N,SKIPM/S,N,GPARM/TYPE $\r\nC\r\nC     INPUT DATA\r\nC     GINO   - CASECC - CASE CONTROL\r\nC              GEOM4  - BDYC DATA\r\nC                     - BDYS DATA\r\nC                     - BDYS1 DATA\r\nC              DYNAMICS - EIGR DATA\r\nC     SOF    - EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE\r\nC              BGSS   - BASIC GRID POINT IDENTIFICATION TABLE\r\nC              CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRICES DATA\r\nC\r\nC     OUTPUT DATA\r\nC     GINO   - USETX  - S,R,B DEGREES OF FREEDOM\r\nC              EEDX   - EIGR DATA\r\nC              EQST   - TEMPORARY EQSS\r\nC              DMR    - RIGID BODY MATRIX\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - NAMEA  - INPUT SUBSTRUCTURE NAME (BCD)\r\nC              DRY    - OPERATION MODE (INTEGER)\r\nC              STEP   - CONTROL DATA CASECC RECORD (INTEGER)\r\nC              TYPE   - REAL OR COMPLEX (BCD)\r\nC     OUTPUT - DRY    - MODULE OPERATION FLAG (INTEGER)\r\nC              NOUS   - FIXED POINTS FLAG (INTEGER)\r\nC                     = +1 IF FIXED POINTS DEFINED\r\nC                     = -1 IF NO FIXED POINTS DEFINED\r\nC              SKIPM  - MODES FLAG (INTEGER)\r\nC                     =  0 IF MODES NOT PRESENT\r\nC                     = -1 IF MODES PRESENT\r\nC     OTHERS - GBUF   - GINO BUFFERS\r\nC              SBUF   - SOF  BUFFERS\r\nC              KORLEN - CORE LENGTH\r\nC              NEWNAM - NEW SUBSTRUCTURE NAME\r\nC              BNDSET - BOUNDARY SET IDENTIFICATION NUMBER\r\nC              FIXSET - FIXED SET IDENTIFICATION NUMBER\r\nC              IEIG   - EIGENVALUE SET IDENTIFICATION NUMBER\r\nC              IO     - OUTPUT FLAGS\r\nC              RGRID  - FREEBODY MODES FLAGS\r\nC              RNAME  - FREEBODY SUBSTRUCTURE NAME\r\nC              IRSAVE - RSAVE FLAG\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES\r\nC              NAMEBS - BEGINNING ADDRESS OF CONTRIBUTING SUBSTRUCTURE\r\nC                       NAMES\r\nC              EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES\r\nC              NSLBGN - BEGINNING ADDRESS OF SIL DATA\r\nC              NSIL   - NUMBER OF SIL GROUPS\r\nC              BDYCS  - BEGINNING ADDRESS OF BDYC DATA\r\nC              NBDYCC - NUMBER OF BDYC DATA GROUPS\r\nC              USETL  - LENGTH OF USET ARRAY\r\nC              USTLOC - BEGINNING ADDRESS OF USET ARRAY\r\nC              RGRIDX - FREEBODY MODE RELATIVE X COORDINATE\r\nC              RGRIDY - FREEBODY MODE RELATIVE Y COORDINATE\r\nC              RGRIDZ - FREEBODY MODE RELATIVE Z COORDINATE\r\nC              USRMOD - USERMODE  OPTION FLAG\r\nC              BOUNDS - OLDBOUNDS OPTION FLAG\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF,ORF\r\n      LOGICAL         USRMOD,BOUNDS,PONLY,ERRORS\r\n      REAL            RZ(1),RANGE(2),GPRM\r\n      DIMENSION       MODNAM(2),MTRLRA(7),MTRLRB(7),MTRLRC(7),MTRLRD(7),\r\n     1                NMONIC(16),CCTYPE(2),MTRLRE(7),ITMNAM(2),\r\n     2                LSTBIT(32),ERRNAM(6),LETRS(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / OLDNAM(2),DRY,STEP,NOUS,SKIPM,TYPE(2),GPRM,GBUF1,\r\n     1                GBUF2,SBUF1,SBUF2,SBUF3,KORLEN,NEWNAM(2),BNDSET,\r\n     2                FIXSET,IEIG,IO,RGRID(2),RNAME(2),IRSAVE,KORBGN,\r\n     3                NCSUBS,NAMEBS,EQSIND,NSLBGN,NSIL,BDYCS,NBDYCC,\r\n     4                USETL,USTLOC,RGRIDX,RGRIDY,RGRIDZ,USRMOD,BOUNDS,\r\n     5                PONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,IPRNTR\r\n      EQUIVALENCE     (Z(1),RZ(1))\r\n      DATA    NMONIC/ 4HNAMB,4HBOUN,4HFIXE,4HMETH,4HCMET,4HOUTP,4HRGRI,\r\n     1                4HOLDM,4HOLDB,4HRSAV,4HRNAM,4HRANG,4HNMAX,4HUSER,\r\n     2                4HNAMA,4HGPAR/\r\n      DATA    CASECC/ 101          /\r\n      DATA    MODNAM/ 4HMRED,4H1   /\r\n      DATA    ERRNAM/ 4HLAMS,4HPHIS,4HPHIL,4HGIMS,4HLMTX,4HUPRT/\r\n      DATA    IBLANK, YES,NO,ALL   /4H    ,4HYES ,4HNO  ,4HALL /\r\n      DATA    LETRS / 1HM,1HC      /\r\n      DATA    CCTYPE/ -1,-2        /\r\n      DATA    CRED  , NHLODS,NHLOAP,NHEQSS /4HCRED,4HLODS,4HLOAP,4HEQSS/\r\nC\r\nC     COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS\r\nC\r\n      NOZWDS = KORSZ(Z(1))\r\n      GBUF1  = NOZWDS- SYSBUF - 2\r\n      GBUF2  = GBUF1 - SYSBUF\r\n      SBUF1  = GBUF2 - SYSBUF\r\n      SBUF2  = SBUF1 - SYSBUF - 1\r\n      SBUF3  = SBUF2 - SYSBUF\r\n      KORLEN = SBUF3 - 1\r\n      KORBGN = 1\r\n      IF (KORLEN .LE. KORBGN) GO TO 430\r\nC\r\nC     INITIALIZE SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\nC\r\nC     INITIALIZE CASE CONTROL PARAMETERS\r\nC\r\n      DO 10 I = 1, 2\r\n      RGRID(I) = -1\r\n      NEWNAM(I)= IBLANK\r\n   10 RNAME(I) = IBLANK\r\n      BNDSET = 0\r\n      FIXSET = 0\r\n      IEIG   = 0\r\n      NOIEIG = YES\r\n      IO     = 0\r\n      SKIPM  = 0\r\n      MODES  = NO\r\n      BOUNDS = .FALSE.\r\n      PONLY  = .FALSE.\r\n      IBOUND = NO\r\n      IRSAVE = NO\r\n      NOUS   = 1\r\n      IFREE  = NO\r\n      NMAX   = 2147483647\r\n      IMAX   = ALL\r\n      IMODE  = NO\r\n      USRMOD = .FALSE.\r\n      IUSERM = 1\r\n      MODULE = 1\r\n      GPRM   = 0.0\r\n      IBF    = 0\r\n      NRANGE = 0\r\n      IRANGE = ALL\r\n      RANGE(1) =-1.0E+35\r\n      RANGE(2) = 1.0E+35\r\nC\r\nC     PROCESS CASE CONTROL\r\nC\r\n      IFILE = CASECC\r\n      CALL OPEN (*400,CASECC,Z(GBUF2),0)\r\n      IF (STEP) 20,40,20\r\n   20 DO 30 I = 1,STEP\r\n   30 CALL FWDREC (*420,CASECC)\r\nC\r\nC     READ CASECC AND EXTRACT DATA\r\nC\r\n   40 CALL READ (*410,*420,CASECC,Z(KORBGN),2,0,NOREAD)\r\n      IF (Z(KORBGN) .EQ. CRED) MODULE = 2\r\n      NOWDSC = Z(KORBGN+1)\r\n      DO 190 I = 1,NOWDSC,3\r\n      CALL READ (*410,*420,CASECC,Z(KORBGN),3,0,NOREAD)\r\nC\r\nC     TEST CASE CONTROL MNEMONICS\r\nC\r\n      DO 50 J = 1,16\r\n      IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60\r\n   50 CONTINUE\r\n      GO TO 190\r\nC\r\nC     SELECT DATA TO EXTRACT\r\nC\r\n   60 GO TO ( 70, 90,100,110,110,120,130,140,150,160,170,\r\n     1       102,115,125,132,155), J\r\nC\r\nC     EXTRACT NEW SUBSTRUCTURE NAME\r\nC\r\n   70 DO 80 K = 1,2\r\n   80 NEWNAM(K) = Z(KORBGN+K)\r\n      GO TO 190\r\nC\r\nC     EXTRACT BOUNDARY SET\r\nC\r\n   90 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      BNDSET = Z(KORBGN+2)\r\n      IBF = IBF + 2\r\n      GO TO 190\r\nC\r\nC     EXTRACT FIXED SET\r\nC\r\n  100 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      FIXSET = Z(KORBGN+2)\r\n      IBF = IBF + 1\r\n      GO TO 190\r\nC\r\nC     EXTRACT FREQUENCY RANGE\r\nC\r\n  102 IF (Z(KORBGN+1) .NE. CCTYPE(2)) GO TO 185\r\n      IRANGE = IBLANK\r\n      IF (NRANGE .EQ. 1) GO TO 104\r\n      NRANGE = 1\r\n      RANGE(1) = RZ(KORBGN+2)\r\n      GO TO 190\r\n  104 RANGE(2) = RZ(KORBGN+2)\r\n      GO TO 190\r\nC\r\nC     EXTRACT EIGENVALUE METHOD\r\nC\r\n  110 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      IEIG = Z(KORBGN+2)\r\n      NOIEIG = NO\r\n      GO TO 190\r\nC\r\nC     EXTRACT MAXIMUM NUMBER OF FREQUENCIES\r\nC\r\n  115 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      IF (Z(KORBGN+2) .EQ. 0) GO TO 190\r\n      NMAX = Z(KORBGN+2)\r\n      IMAX = IBLANK\r\n      GO TO 190\r\nC\r\nC     EXTRACT OUTPUT FLAGS\r\nC\r\n  120 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      IO = ORF(IO,Z(KORBGN+2))\r\n      GO TO 190\r\nC\r\nC     EXTRACT USERMODE FLAG\r\nC\r\n  125 IF (Z(KORBGN+1) .NE. CCTYPE(1)) GO TO 185\r\n      IMODE  = YES\r\n      SKIPM  = -1\r\n      USRMOD = .TRUE.\r\n      IF (Z(KORBGN+2) .EQ. 2) IUSERM = 2\r\n      GO TO 190\r\nC\r\nC     EXTRACT RIGID BODY GRID POINT ID\r\nC\r\n 130  RGRID(1) = Z(KORBGN+2)\r\n      IF (Z(KORBGN+1) .NE. CCTYPE(1)) RGRID(1) = 0\r\n      IFREE = YES\r\n      GO TO 190\r\nC\r\nC     EXTRACT OLD SUBSTRUCTURE NAME\r\nC\r\n  132 DO 134 K = 1,2\r\n  134 OLDNAM(K) = Z(KORBGN+K)\r\n      GO TO 190\r\nC\r\nC     SET OLDMODES FLAG\r\nC\r\n  140 IF ((Z(KORBGN+1).EQ.CCTYPE(1)) .OR. (Z(KORBGN+1).EQ.CCTYPE(2)))\r\n     1   GO TO 185\r\n      IF (Z(KORBGN+1) .NE. YES) GO TO 190\r\n      SKIPM = -1\r\n      MODES = YES\r\n      GO TO 190\r\nC\r\nC     SET OLDBOUND FLAG\r\nC\r\n  150 IF ((Z(KORBGN+1).EQ.CCTYPE(1)) .OR. (Z(KORBGN+1).EQ.CCTYPE(2)))\r\n     1   GO TO 185\r\n      IF (Z(KORBGN+1) .NE. YES) GO TO 190\r\n      BOUNDS = .TRUE.\r\n      IBOUND = YES\r\n      GO TO 190\r\nC\r\nC     EXTRACT GPARAM PARAMETER\r\nC\r\n  155 IF (Z(KORBGN+1) .NE. CCTYPE(2)) GO TO 185\r\n      GPRM = RZ(KORBGN+2)\r\n      GO TO 190\r\nC\r\nC     SET RSAVE FLAG\r\nC\r\n  160 IF (Z(KORBGN+1) .EQ. NO) GO TO 190\r\n      IRSAVE = YES\r\n      GO TO 190\r\nC\r\nC     EXTRACT RIGID BODY SUBSTRUCTURE NAME\r\nC\r\n  170 DO 180 K = 1,2\r\n  180 RNAME(K) = Z(KORBGN+K)\r\n      IF (RGRID(1) .LT. 0) RGRID(1) = 0\r\n      IFREE = YES\r\n      GO TO 190\r\nC\r\nC     CASECC COMMAND ERROR\r\nC\r\n  185 WRITE (IPRNTR,916) UWM,LETRS(MODULE),NMONIC(J)\r\n  190 CONTINUE\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     TEST MODULE OPERATION FLAG\r\nC\r\n      IF (DRY) 192,194,196\r\n  192 IF (DRY .EQ. -2) GO TO 198\r\n      WRITE (IPRNTR,909) UIM\r\n      DRY = -2\r\n      GO TO 198\r\n  194 SKIPM = -1\r\n      ITEST = 0\r\n      CALL FDSUB (NEWNAM,ITEST)\r\n      IF (ITEST .NE. -1) GO TO 510\r\n      WRITE (IPRNTR,922) UFM,LETRS(MODULE),NEWNAM\r\n      GO TO 500\r\n  196 ITEST = 0\r\n      CALL FDSUB (NEWNAM,ITEST)\r\n      IF (ITEST .EQ. -1) GO TO 198\r\n      IF (BOUNDS .OR. (SKIPM .EQ. -1)) GO TO 198\r\n      CALL SFETCH (NEWNAM,NHLODS,3,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 197\r\n      CALL SFETCH (NEWNAM,NHLOAP,3,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 197\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      GO TO 450\r\nC\r\nC     LOADS ONLY PROCESSING\r\nC\r\n  197 PONLY = .TRUE.\r\nC\r\nC     TEST OUTPUT OPTION\r\nC\r\n  198 IF (ANDF(IO,1) .EQ. 0) GO TO 200\r\n      CALL PAGE1\r\n      WRITE (IPRNTR,900) OLDNAM,NEWNAM\r\n      IF (IBF .EQ. 0) WRITE (IPRNTR,918)\r\n      IF (IBF .EQ. 1) WRITE (IPRNTR,919) FIXSET\r\n      IF (IBF .EQ. 2) WRITE (IPRNTR,920) BNDSET\r\n      IF (IBF .EQ. 3) WRITE (IPRNTR,921) BNDSET,FIXSET\r\n      IF (RGRID(1) .EQ. -1) WRITE (IPRNTR,906) RNAME\r\n      IF (RGRID(1) .NE. -1) WRITE (IPRNTR,907) RGRID(1),RNAME\r\n      IF (NOIEIG .EQ. NO) WRITE (IPRNTR,908) IBOUND,MODES,IFREE,IMODE,\r\n     1    IRSAVE,IEIG\r\n      IF (NOIEIG .NE. NO) WRITE (IPRNTR,908) IBOUND,MODES,IFREE,IMODE,\r\n     1    IRSAVE\r\n      IF (IMAX   .EQ. ALL) WRITE (IPRNTR,910) IMAX,GPRM\r\n      IF (IMAX   .NE. ALL) WRITE (IPRNTR,911) NMAX,GPRM\r\n      IF (IRANGE .EQ. ALL) WRITE (IPRNTR,912) OLDNAM,IRANGE\r\n      IF (IRANGE .NE. ALL) WRITE (IPRNTR,913) OLDNAM,RANGE(1)\r\nC\r\nC     CHECK FOR OLDMODES, OLDBOUND ERRORS\r\nC\r\n  200 ERRORS = .FALSE.\r\n      IF (PONLY) GO TO 290\r\n      CALL SFETCH (OLDNAM,ERRNAM(1),3,ITEST)\r\n      CALL SOFTRL (OLDNAM,ERRNAM(2),MTRLRA)\r\n      CALL SOFTRL (OLDNAM,ERRNAM(4),MTRLRB)\r\n      CALL SOFTRL (OLDNAM,ERRNAM(5),MTRLRC)\r\n      CALL SOFTRL (OLDNAM,ERRNAM(3),MTRLRD)\r\n      CALL SOFTRL (OLDNAM,ERRNAM(6),MTRLRE)\r\n      IFLAG = 1\r\n      IF (USRMOD) GO TO 290\r\n      IF (SKIPM) 210,230,230\r\nC\r\nC     OLDMODES SET - PHIS AND LAMS MUST BE ON SOF\r\nC\r\n  210 IF (ITEST .GT. 3) GO TO 360\r\n  220 IFLAG = 2\r\n      IF (MTRLRA(1) .GT. 2) GO TO 360\r\n      GO TO 260\r\nC\r\nC     OLDMODES NOT SET - PHIS, PHIL AND LAMS MUST BE DELETED\r\nC\r\n  230 IF (ITEST .LT. 3) GO TO 370\r\n  240 IFLAG = 2\r\n      IF (MTRLRA(1) .LT. 3) GO TO 370\r\n  250 IFLAG = 3\r\n      IF (MTRLRD(1) .LT. 3) GO TO 370\r\nC\r\nC     OLDBOUND SET - GIMS AND UPRT MUST BE ON SOF\r\nC\r\n  260 IFLAG = 4\r\n      IF (.NOT. BOUNDS) GO TO 270\r\n      IF (MTRLRB(1) .GT. 2) GO TO 380\r\n  265 IFLAG = 6\r\n      IF (MTRLRE(1) .GT. 2) GO TO 380\r\n      GO TO 290\r\nC\r\nC     OLDBOUND NOT SET - GIMS AND LMTX MUST BE DELETED\r\nC\r\n  270 IF (MTRLRB(1) .LT. 3) GO TO 390\r\n  280 IFLAG = 5\r\n      IF (MTRLRC(1) .LT. 3) GO TO 390\r\nC\r\nC     TEST FOR ERRORS\r\nC\r\n  290 IF (ERRORS) GO TO 500\r\n      IF (IUSERM .EQ. 2) WRITE (IPRNTR,917) UIM\r\nC\r\nC     READ EQSS GROUP 0 DATA AND TEST OPEN CORE LENGTH\r\nC\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL SFETCH (OLDNAM,NHEQSS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 460\r\n      IF (ITEST .EQ. 4) GO TO 470\r\n      IF (ITEST .EQ. 5) GO TO 480\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      IF (KORBGN+NWDSRD .GE. SBUF3) GO TO 430\r\nC\r\nC     COMPRESS BASIC SUBSTRUCTURE NAMES AND TEST OPEN CORE LENGTH\r\nC\r\n      NCSUBS = Z(KORBGN+2)\r\n      NAMEBS = KORBGN\r\n      I = 2*((NWDSRD - 4)/2)\r\n      K = 4\r\n      DO 300 J = 1,I,2\r\n      Z(KORBGN+J-1) = Z(KORBGN+K  )\r\n      Z(KORBGN+J  ) = Z(KORBGN+K+1)\r\n      IF (RGRID(1) .LT. 0) GO TO 300\r\n      IF (RNAME(1) .NE. IBLANK) GO TO 298\r\n      RNAME(1) = Z(KORBGN+J-1)\r\n      RNAME(2) = Z(KORBGN+J  )\r\n  298 CONTINUE\r\n      IF ((Z(KORBGN+J-1).NE.RNAME(1)) .OR. (Z(KORBGN+J).NE.RNAME(2)))\r\n     1   GO TO 300\r\n      RGRID(2) = (J+1)/2\r\n  300 K = K + 2\r\n      EQSIND = KORBGN + 2*NCSUBS\r\n      IF (EQSIND .GE. SBUF3) GO TO 430\r\nC\r\nC     TEST OUTPUT OPTION\r\nC\r\n      IF (ANDF(IO,1) .EQ. 0) GO TO 310\r\n      IF (IRANGE  .NE.  ALL) GO TO 302\r\n      I = 2*NCSUBS\r\n      WRITE (IPRNTR,901) (Z(KORBGN+J-1),Z(KORBGN+J),J=1,I,2)\r\n      GO TO 310\r\n  302 IF (NCSUBS .GE. 5) GO TO 306\r\n      I = 1 + 2*NCSUBS\r\n      DO 304 J = I,10\r\n  304 Z(KORBGN+J-1) = IBLANK\r\n  306 K = 10\r\n      WRITE (IPRNTR,914) (Z(KORBGN+J-1),Z(KORBGN+J),J=1,K,2),RANGE(2)\r\n      IF (NCSUBS .LE. 5) GO TO 310\r\n      K = K + 1\r\n      I = 2*NCSUBS\r\n      WRITE (IPRNTR,901) (Z(KORBGN+J-1),Z(KORBGN+J),J=K,I,2)\r\nC\r\nC     READ EQSS GROUPS TO END-OF-ITEM\r\nC\r\n  310 KORBGN = EQSIND + 2*NCSUBS\r\n      DO 320 I = 1, NCSUBS\r\n      IF (KORBGN .GE. SBUF3) GO TO 430\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      J = 2*(I - 1)\r\n      Z(EQSIND+J  ) = KORBGN\r\n      Z(EQSIND+J+1) = NWDSRD\r\n  320 KORBGN = KORBGN + NWDSRD\r\n      NSLBGN = KORBGN\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      NSIL = NWDSRD/2\r\nC\r\nC     TEST OUTPUT OPTION\r\nC\r\n      IF (ANDF(RSHIFT(IO,3),1) .EQ. 0) GO TO 350\r\n      DO 330 I = 1,NCSUBS\r\n      J = 2*(I-1)\r\n      CALL CMIWRT (1,OLDNAM,Z(NAMEBS+J),Z(EQSIND+J),Z(EQSIND+J+1),RZ,Z)\r\n  330 CONTINUE\r\n      ISIL = 2*NSIL\r\n      CALL CMIWRT (8,OLDNAM,OLDNAM,NSLBGN,ISIL,RZ,Z)\r\nC\r\nC     DETERMINE USET LENGTH\r\nC\r\n  350 KORBGN = NSLBGN + NWDSRD\r\n      USTLOC = KORBGN\r\n      ICODE  = Z(KORBGN-2)\r\n      CALL DECODE (ICODE,LSTBIT,NWDSD)\r\n      USETL = (Z(KORBGN-3) + NWDSD) - 1\r\nC\r\nC     PROCESS FIXED SET\r\nC\r\n      CALL MRED1A (1)\r\n      CALL MRED1B (1)\r\nC\r\nC     PROCESS BOUNDARY SET\r\nC\r\n      CALL MRED1A (2)\r\n      CALL MRED1B (2)\r\nC\r\nC     CONVERT EQSS DATA TO UB DATA\r\nC\r\n      IF (PONLY) GO TO 510\r\n      CALL MRED1C\r\nC\r\nC     PROCESS EIGENVALUE DATA\r\nC\r\n      IF (SKIPM .EQ. -1) GO TO 355\r\n      CALL MRED1D\r\nC\r\nC     PROCESS FREE BODY MODES\r\nC\r\n  355 CALL MRED1E\r\n      GO TO 510\r\nC\r\nC     PHIS, LAMS DO NOT EXIST\r\nC\r\n  360 WRITE (IPRNTR,902) UFM,ERRNAM(IFLAG),OLDNAM\r\n      ERRORS = .TRUE.\r\n      GO TO (220,260), IFLAG\r\nC\r\nC     PHIS, PHIR, LAMS NOT DELETED\r\nC\r\n  370 WRITE (IPRNTR,903) UFM,ERRNAM(IFLAG),OLDNAM\r\n      ERRORS = .TRUE.\r\n      GO TO (240,250,260), IFLAG\r\nC\r\nC     GIMS, UPRT DOES NOT EXIST\r\nC\r\n  380 WRITE (IPRNTR,904) UFM,ERRNAM(IFLAG),OLDNAM\r\n      ERRORS = .TRUE.\r\n      IF (IFLAG - 5) 265,265,290\r\nC\r\nC     GIMS, LMTX NOT DELETED\r\nC\r\n  390 WRITE (IPRNTR,905) UFM,ERRNAM(IFLAG),OLDNAM\r\n      ERRORS = .TRUE.\r\n      IFLAG = IFLAG - 3\r\n      GO TO (280,290), IFLAG\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  400 IMSG = -1\r\n      GO TO 440\r\n  410 IMSG = -2\r\n      GO TO 440\r\n  420 IMSG = -3\r\n      GO TO 440\r\n  430 IMSG = -8\r\n      IFILE = 0\r\n  440 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  450 IMSG = -4\r\n      GO TO 490\r\n  460 IMSG = -1\r\n      GO TO 490\r\n  470 IMSG = -2\r\n      GO TO 490\r\n  480 IMSG = -3\r\n  490 CALL SMSG (IMSG,NHEQSS,ITMNAM)\r\n      RETURN\r\nC\r\n  500 CALL SOFCLS\r\n      DRY = -2\r\n      RETURN\r\nC\r\nC     CLOSE ANY OPEN FILES\r\nC\r\n  510 CALL SOFCLS\r\n      IF (DRY .EQ. -2) WRITE (IPRNTR,915) LETRS(MODULE)\r\n      IF (PONLY) SKIPM = -1\r\n      RETURN\r\nC\r\n  900 FORMAT (//38X,46HS U M M A R Y    O F    C U R R E N T    P R O,\r\n     1       8H B L E M,//13X,38HNAME OF PSEUDOSTRUCTURE TO BE REDUCED ,\r\n     2       4(2H. ),2A4,6X,40HNAME GIVEN TO RESULTANT PSEUDOSTRUCTURE ,\r\n     3       2A4)\r\n  901 FORMAT (16X,2A4,2X,2A4,2X,2A4,2X,2A4,2X,2A4)\r\n  902 FORMAT (A23,' 6617, OLDMODES SET AND REQUESTED SOF ITEM DOES NOT',\r\n     1       ' EXIST.  ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.)\r\n  903 FORMAT (A23,' 6618, OLDMODES NOT SET AND REQUESTED SOF ITEM MUST',\r\n     1       ' BE DELETED.  ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.)\r\n  904 FORMAT (A23,' 6619, OLDBOUND SET AND REQUESTED SOF ITEM DOES NOT',\r\n     1       ' EXIST.  ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.)\r\n  905 FORMAT (A23,' 6620, OLDBOUND NOT SET AND REQUESTED SOF ITEM MUST',\r\n     1       ' BE DELETED.  ITEM ',A4,', SUBSTRUCTURE ',2A4,1H.)\r\n  906 FORMAT (13X,'RIGID BODY GRID POINT IDENTIFICATION NUMBER .',14X,\r\n     1       'RIGID BODY SUBSTRUCTURE NAME ',5(2H. ),2A4)\r\n  907 FORMAT (13X,46HRIGID BODY GRID POINT IDENTIFICATION NUMBER . ,I8,\r\n     1       6X,30HRIGID BODY SUBSTRUCTURE NAME  ,5(2H. ),2A4)\r\n  908 FORMAT (13X,18HOLDBOUND FLAG SET ,14(2H. ),A4,10X,12HOLDMODES FLA,\r\n     1       6HG SET ,11(2H. ),A4,/13X,29HFREE BODY MODES TO BE CALCULA,\r\n     2       5HTED  ,6(2H. ),A4,10X,20HUSER MODES FLAG SET ,10(2H. ),A4,\r\n     3       /13X,24HSAVE REDUCTION PRODUCTS ,11(2H. ),A4,10X,7HEIGENVA,\r\n     4       23HLUE EXTRACTION METHOD  ,5(2H. ),I8)\r\n  909 FORMAT (A29,' 6630, FOR DRY OPTION IN MODAL REDUCE, INPUT DATA ',\r\n     1       'WILL BE CHECKED', /36X,'BUT NO SOF TABLE ITEMS WILL BE ',\r\n     2       'CREATED.')\r\n  910 FORMAT (13X,42HMAXIMUM NUMBER OF FREQUENCIES TO BE USED  ,2(2H. ),\r\n     1       A4,10X,14HGPARAM VALUE  ,13(2H. ),1P,E12.6)\r\n  911 FORMAT (13X,42HMAXIMUM NUMBER OF FREQUENCIES TO BE USED  ,2(2H. ),\r\n     1       I8,6X,14HGPARAM VALUE  ,13(2H. ),1P,E12.6)\r\n  912 FORMAT (13X,46HNAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ,2A4,\r\n     1       6X,32HRANGE OF FREQUENCIES TO BE USED ,4(2H. ),A4)\r\n  913 FORMAT (13X,46HNAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ,2A4,\r\n     1       6X,32HRANGE OF FREQUENCIES TO BE USED ,4(2H. ),1P,E12.6)\r\n  914 FORMAT (16X,5(2A4,2X),47X,1P,E12.6)\r\n  915 FORMAT (10H0  MODULE ,A1,36HREDUCE TERMINATING DUE TO ABOVE ERRO,\r\n     1       3HRS.)\r\n  916 FORMAT (A25,' 6367, ILLEGAL FORMAT ON THE ',A1,'REDUCE OUTPUT ',\r\n     1       'COMMAND ',A4,'.  COMMAND IGNORED.')\r\n  917 FORMAT (A29,' 6636, NMAX AND RANGE SUB COMMANDS ARE IGNORED ',\r\n     1       'UNDER USERMODES = TYPE 2.')\r\n  918 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER  ,5(2H. ),14X,\r\n     1       32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ))\r\n  919 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER  ,5(2H. ),14X,\r\n     1       32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ),I8)\r\n  920 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER  ,5(2H. ),I8,6X,\r\n     1       32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ))\r\n  921 FORMAT (13X,36HBOUNDARY SET IDENTIFICATION NUMBER  ,5(2H. ),I8,6X,\r\n     1       32HFIXED SET IDENTIFICATION NUMBER ,4(2H. ),I8)\r\n  922 FORMAT (A23,' 6220, MODULE ',A1,'REDUCE - RUN EQUALS GO AND ',\r\n     1       'SUBSTRUCTURE ',2A4,' DOES NOT EXIST.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred1a.f",
    "content": "      SUBROUTINE MRED1A (MODE)\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE BDYC DATA FOR THE FIXED\r\nC     IDENTIFICATION SET (FIXSET) AND THE BOUNDARY IDENTIFICATION SET\r\nC     (BNDSET) FOR THE MRED1 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO - GEOM4    - BDYC DATA\r\nC     MODE            - PROCESSING OPERATION FLAG\r\nC                     = 1, PROCESS FIXED ID SET\r\nC                     = 2, PROCESS BOUNDARY ID SET\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - USETX    - S,R,B DEGREES OF FREEDOM\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF1  - GINO BUFFER\r\nC              KORLEN - CORE LENGTH\r\nC              BNDSET - BOUNDARY SET IDENTIFICATION NUMBER\r\nC              FIXSET - FIXED SET IDENTIFICATION NUMBER\r\nC              IO     - OUTPUT OPTION FLAG\r\nC              KORUST - STARTING ADDRESS OF USET ARRAY\r\nC              NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES\r\nC              NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURES NAMES\r\nC              KBDYC  - BEGINNING ADDRESS OF BDYC DATA\r\nC              NBDYCC - NUMBER OF BDYC CARDS\r\nC              USETL  - NUMBER OF WORDS IN USET ARRAY\r\nC     OUTPUT - NOUS   - FIXED POINTS FLAG\r\nC                       .GE.  0, FIXED POINTS DEFINED\r\nC                       .EQ. -1, NO FIXED POINTS DEFINED\r\nC              DRY    - MODULE OPERATION FLAG\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         PONLY\r\n      DIMENSION       ARRAY(3),BDYC(2),MODNAM(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / OLDNAM(2),DRY,IDUM1,NOUS,SKIPM,IDUM2(3),GBUF1,\r\n     1                IDUM3(4),KORLEN,IDUM4(2),BNDSET,FIXSET,IDUM5,IO,\r\n     2                IDUM6(6),NCSUBS,NAMEBS,IDUM7(3),KBDYC,NBDYCC,\r\n     3                USETL,KORUST,IDUM14(5),PONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM8,IPRNTR,IDUM9(6),NLPP,IDUM10(2),LINE\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IDUM11(5),UL,UA,UF,IDUM12,UN,IDUM13(11),UI\r\n      DATA    GEOM4 , BDYC  /102,910,9/\r\n      DATA    MODNAM/ 4HMRED,4H1A     /\r\nC\r\nC     TEST PROCESSING MODE FLAG\r\nC\r\n      IF (MODE .EQ. 2) GO TO 10\r\nC\r\nC     TEST FIXED SET ID FLAG AND SET FIXED INDEX\r\nC\r\n      IF (FIXSET.EQ.0 .OR. SKIPM.EQ.-1) GO TO 260\r\n      SETID  = FIXSET\r\n      ISHIFT = 10\r\n      GO TO 20\r\nC\r\nC     SET BOUNDARY INDEX\r\nC\r\n   10 IF (BNDSET .EQ. 0) GO TO 240\r\n      SETID  = BNDSET\r\n      ISHIFT = 1\r\nC\r\nC     ALLOCATE USET ARRAY AND TEST OPEN CORE LENGTH\r\nC\r\n      IF (NOUS .EQ. 1) GO TO 40\r\n   20 KBDYC = KORUST + USETL\r\n      IF (KBDYC .GE. KORLEN) GO TO 200\r\nC\r\nC     TURN UL, UA, UF, UN, AND UI BITS ON IN USET ARRAY\r\nC\r\n      IBITS = ITWO(UL) + ITWO(UA) + ITWO(UF) + ITWO(UN) + ITWO(UI)\r\n      DO 30 I = 1,USETL\r\n   30 Z(KORUST+I-1) = IBITS\r\nC\r\nC     READ BOUNDARY SET (BDYC) BULK DATA FOR REQUESTED FIXED SET\r\nC     ID (FIXSET) OR BOUNDARY SET ID (BNDSET)\r\nC\r\n   40 IFILE = GEOM4\r\n      CALL PRELOC (*170,Z(GBUF1),GEOM4)\r\n      CALL LOCATE (*230,Z(GBUF1),BDYC,IFLAG)\r\n   50 CALL READ (*180,*230,GEOM4,ARRAY,1,0,IFLAG)\r\n      IF (ARRAY(1) .EQ. SETID) GO TO 70\r\n   60 CALL READ (*180,*190,GEOM4,ARRAY,3,0,IFLAG)\r\n      IF (ARRAY(3) .EQ. -1) GO TO 50\r\n      GO TO 60\r\nC\r\nC     SET ID FOUND, STORE AT Z(KBDYC+NWDS)\r\nC\r\n   70 NWDS = 0\r\n   80 CALL READ (*180,*190,GEOM4,Z(KBDYC+NWDS),3,0,IFLAG)\r\n      IF (Z(KBDYC+NWDS+2) .EQ. -1) GO TO 110\r\nC\r\nC     CHECK THAT SUBSTRUCTURE IS A COMPONENT OF STRUCTURE BEING\r\nC     REDUCED\r\nC\r\n      DO 90 I = 1,NCSUBS\r\n      J = 2*(I-1)\r\n      IF ((Z(NAMEBS+J).EQ.Z(KBDYC+NWDS)) .AND. (Z(NAMEBS+J+1).EQ.\r\n     1     Z(KBDYC+NWDS+1))) GO TO 100\r\n   90 CONTINUE\r\nC\r\nC     SUBSTRUCTURE IS NOT A COMPONENT\r\nC\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,900) UWM,Z(KBDYC+NWDS),\r\n     1                                    Z(KBDYC+NWDS+1)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,901) UWM,Z(KBDYC+NWDS),\r\n     1                                    Z(KBDYC+NWDS+1)\r\n      DRY = -2\r\n      GO TO 80\r\nC\r\nC     SAVE BASIC SUBSTRUCTURE INDEX\r\nC\r\n  100 Z(KBDYC+NWDS+3) = I\r\n      NWDS = NWDS + 4\r\n      IF (KBDYC+NWDS .GE. KORLEN) GO TO 200\r\n      GO TO 80\r\nC\r\nC     CHECK FOR DUPLICATE BDYC SUBSTRUCTURE NAMES\r\nC\r\n  110 NWDS = NWDS/4\r\n      IF (NWDS .LE. 1) GO TO 125\r\n      I = NWDS - 1\r\n      DO 120 J = 1,I\r\n      K  = J + 1\r\n      II = 4*(J-1)\r\n      DO 120 L = K,NWDS\r\n      LL = 4*(L-1)\r\n      IF (Z(KBDYC+II  ) .NE. Z(KBDYC+LL  )) GO TO 120\r\n      IF (Z(KBDYC+II+1) .NE. Z(KBDYC+LL+1)) GO TO 120\r\n      WRITE (IPRNTR,902) UFM,OLDNAM,ARRAY(1)\r\n      DRY = -2\r\n  120 CONTINUE\r\nC\r\nC     TEST OUTPUT OPTION\r\nC\r\n  125 CONTINUE\r\n      IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 150\r\n      IF (NWDS .EQ. 0) GO TO 150\r\n      LINE = NLPP + 1\r\n      DO 140 I = 1,NWDS\r\n      IF (LINE .LE. NLPP) GO TO 130\r\n      CALL PAGE1\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,903) FIXSET\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,904) BNDSET\r\n      LINE = LINE + 7\r\n  130 J = 4*(I-1)\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,905) Z(KBDYC+J),Z(KBDYC+J+1),\r\n     1    Z(KBDYC+J+2)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,906) Z(KBDYC+J),Z(KBDYC+J+1),\r\n     1    Z(KBDYC+J+2)\r\n  140 LINE = LINE + 1\r\nC\r\nC     SORT BDYC DATA ON SET ID\r\nC\r\n  150 NBDYCC = NWDS\r\n      IF (NBDYCC .LE. 1) GO TO 270\r\n      NWDS = 4*NBDYCC\r\n      CALL SORT (0,0,4,3,Z(KBDYC),NWDS)\r\n      GO TO 270\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  170 IMSG = -1\r\n      GO TO 220\r\n  180 IMSG = -2\r\n      GO TO 210\r\n  190 IMSG = -3\r\n      GO TO 210\r\n  200 IMSG = -8\r\n      IFILE = 0\r\n  210 CALL CLOSE (GEOM4,1)\r\n  220 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  230 IF (MODE .EQ. 1) WRITE (IPRNTR,907) UWM,FIXSET\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,908) UWM,BNDSET\r\n      DRY = -1\r\n      GO TO 250\r\n  240 IF (PONLY) GO TO 280\r\n      WRITE (IPRNTR,909) UFM\r\n      DRY = -2\r\n  250 CALL SOFCLS\r\n      CALL CLOSE (GEOM4,1)\r\n      RETURN\r\nC\r\nC     NO FIXED ID SET DATA\r\nC\r\n  260 NOUS = -1\r\nC\r\nC     END OF PROCESSING\r\nC\r\n  270 CALL CLOSE (GEOM4,1)\r\n  280 CONTINUE\r\nC\r\n  900 FORMAT (A25,' 6622, A FIXED SET HAS BEEN SPECIFIED FOR ',2A4,\r\n     1       ', BUT IT IS NOT A COMPONENT OF',/32X,'THE PSEUDOSTRUCTURE'\r\n     2,      ' BEING PROCESSED.  THE FIXED SET WILL BE IGNORED.')\r\n  901 FORMAT (A25,' 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ',2A4,\r\n     1       ', BUT IT IS NOT A COMPONENT OF',/32X,'THE PSEUDOSTRUCTURE'\r\n     2,      ' BEING PROCESSED.  THE BOUNDARY SET WILL BE IGNORED.')\r\n  902 FORMAT (A23,' 6623, SUBSTRUCTURE ',2A4,\r\n     1       ' HAS DUPLICATE NAMES IN BDYC DATA SET ',I8,1H.)\r\n  903 FORMAT (1H0,43X,'SUMMARY OF COMBINED FIXED SET NUMBER ',I8, //57X,\r\n     1       'BASIC      FIXED', /54X,'SUBSTRUCTURE  SET ID', /58X,\r\n     2       'NAME      NUMBER',/)\r\n  904 FORMAT (1H0,43X,'SUMMARY OF COMBINED BOUNDARY SET NUMBER ',I8,\r\n     1       //57X,'BASIC      BOUNDARY', /54X,'SUBSTRUCTURE   SET ID',\r\n     2       /58X,'NAME       NUMBER',/)\r\n  905 FORMAT (56X,2A4,3X,I8)\r\n  906 FORMAT (56X,2A4,4X,I8)\r\n  907 FORMAT (A25,' 6621, FIXED SET',I9,' SPECIFIED IN CASE CONTROL ',\r\n     1       'HAS NOT BEEN DEFINED BY BULK DATA.')\r\n  908 FORMAT (A25,' 6606, BOUNDARY SET',I9,' SPECIFIED IN CASE CONTROL',\r\n     1       ' HAS NOT BEEN DEFINED BY BULK DATA.')\r\n  909 FORMAT (A23,' 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A REDUCE'\r\n     1,      ' OPERATION.')\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred1b.f",
    "content": "      SUBROUTINE MRED1B (MODE)\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE BDYS AND BDYS1 DATA FOR THE FIXED\r\nC     IDENTIFICATION SET (FIXSET) AND THE BOUNDARY IDENTIFICATION SET\r\nC     (BNDSET) FOR THE MRED1 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO   - GEOM4  - BDYS DATA\r\nC                     - BDYS1 DATA\r\nC     OTHERS - MODE   - SUBROUTINE PROCESSING FLAG\r\nC                     = 1, PROCESS FIXED ID SET\r\nC                     = 2, PROCESS BOUNDARY ID SET\r\nC\r\nC     OUTPUT DATA\r\nC     GINO   - USETX  - S,R,B DEGREES OF FREEDOM\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - NOUS   - FIXED POINTS FLAG\r\nC                       .GE.  0, FIXED POINTS DEFINED\r\nC                       .EQ. -1, NO FIXED POINTS DEFINED\r\nC              GBUF1  - GINO BUFFER\r\nC              KORLEN - CORE LENGTH\r\nC              IO     - OUTPUT OPTION FLAG\r\nC              NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURES NAMES\r\nC              EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES\r\nC              NSLBGN - BEGINNING ADDRESS OF SIL DATA\r\nC              KBDYC  - BEGINNING ADDRESS OF BDYC DATA\r\nC              USETX  - USETX OUTPUT FILE NUMBER\r\nC              NBDYCC - NUMBER OF BDYC WORDS\r\nC     OUTPUT - DRY    - MODULE OPERATION FLAG\r\nC     OTHERS - LOCUST - BEGINNING ADDRESS OF USET ARRAY\r\nC              IERR   - NO BDYS/BDYS1 DATA ERROR FLAG\r\nC                       .LT. 2, NO ERRORS\r\nC                       .EQ. 2, ERRORS\r\nC              GRPBGN - ABSOLUTE BEGINNING ADDRESS OF EQSS GROUP DATA\r\nC              GRPEND - ABSOLUTE ENDING ADDRESS OF EQSS GROUP DATA\r\nC              GRPIP  - ABSOLUTE ADDRESS OF EQSS DATA GROUP\r\nC              LOCBGN - BEGINNING ADDRESS OF EQSS DATA FOR SUBSTRUCTURE\r\nC              NFOUND - NUMBER OF EQSS DATA ITEMS FOUND FOR SET ID\r\nC              KPNTBD - ARRAY OF BDYC DOF COMPONENTS\r\nC              KPNTSL - ARRAY OF EQSS DOF COMPONENTS\r\nC              INDSIL - ABSOLUTE INDEX INTO SIL DATA\r\nC              NSILUS - ABSOLUTE INDEX INTO USET ARRAY\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         BOUNDS,PONLY\r\n      REAL            RZ(1)\r\n      DIMENSION       ARRAY(3),BDYI(2,2),BDY(2),EQSTRL(7),IDUM(3),\r\n     1                KPNTSL(32),IOSHFT(2),KPNTBD(9),MODNAM(2),USETRL(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / OLDNAM(2),DRY,IDUM13,NOUS,IDUM2(4),GBUF1,\r\n     1                IDUM14(4),KORLEN,IDUM4(5),IO,IDUM5(2),BNDSET,\r\n     2                FIXSET,IEIG,KORBGN,IDUM12,NAMEBS,EQSIND,NSLBGN,\r\n     3                IDUM6,KBDYC,NBDYCC,LUSET,LOCUST,IDUM3(4),BOUNDS,\r\n     4                PONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM7,IPRNTR,IDUM8(6),NLPP,IDUM9(2),LINE\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IDUM10(5),UL,UA,UF,US,UN,IDUM11(10),UB,UI\r\n      COMMON /PATX  / LCORE,NSUB(3),FUSET\r\n      COMMON /UNPAKX/ TYPEU,IROWU,NROWU,INCRU\r\n      EQUIVALENCE     (RZ(1),Z(1))\r\n      DATA    GEOM4 , BDYI,USETX/102,1210,12,1310,13,201/\r\n      DATA    MODNAM/ 4HMRED,4H1B   /\r\n      DATA    IOSHFT/ 11,2  /\r\n      DATA    ITEM  / 4HUPRT/\r\n      DATA    UPRT  , EQST  /301,203/\r\nC\r\nC     TEST FOR FIXED SET INPUT\r\nC\r\n      IF (NOUS.EQ.-1 .AND. MODE.EQ.1) GO TO 430\r\nC\r\nC     CHECK FOR LOADS PROCESSING ONLY\r\nC\r\n      IF (PONLY) GO TO 345\r\nC\r\nC     PROCESS BDY(S/S1) BULK DATA FOR SPECIFIED BDYC\r\nC\r\n      ISHIFT = IOSHFT(MODE)\r\n      IF (NBDYCC .EQ. 0) GO TO 335\r\n      KORBGN = KBDYC + 4*NBDYCC\r\n      IF (KORBGN .GE. KORLEN) GO TO 300\r\n      IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 10\r\n      CALL PAGE1\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,900)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,901)\r\n      LINE  = LINE + 7\r\n   10 IBITS = ITWO(UL) + ITWO(UA) + ITWO(UF)\r\n      IF (MODE .EQ. 2) IBITS = ITWO(UI)\r\n      IBITS = COMPLF(IBITS)\r\n      IERR  = 0\r\n      IBDY  = 0\r\n      IFILE = GEOM4\r\nC\r\nC     SET BULK DATA PROCESSING FLAG AND READ SET ID\r\nC     IBDY .EQ. 1 - BDYS\r\nC     IBDY .EQ. 2 - BDYS1\r\nC\r\n      NXTBDY = 1\r\n      IFOUND = 0\r\n      CALL PRELOC (*270,Z(GBUF1),GEOM4)\r\n   20 IBDY = IBDY + 1\r\n      IF (IBDY .EQ. 3) GO TO 260\r\n      DO 30 I = 1,2\r\n   30 BDY(I) = BDYI(I,IBDY)\r\n      CALL LOCATE (*250,Z(GBUF1),BDY,IFLAG)\r\n      GO TO 40\r\n   35 CALL BCKREC (GEOM4)\r\n      NXTBDY = NXTBDY + 1\r\n      IF (NXTBDY .GT. NBDYCC) GO TO 20\r\n      CALL READ (*280,*290,GEOM4,IDUM,3,0,IFLAG)\r\n   40 CALL READ (*280,*20,GEOM4,ARRAY,IBDY,0,IFLAG)\r\nC\r\nC     CHECK REQUEST ID\r\nC\r\n      BDYJ = 2\r\n      BDYK = 2\r\n      BDYL = 3\r\n      BDYM = 2\r\n      IF (IBDY .EQ. 1) GO TO 50\r\n      BDYJ = 3\r\n      BDYK = 1\r\n      BDYL = 2\r\n      BDYM = 3\r\n   50 IWDS = 2 + 4*(NXTBDY-1)\r\n      DO 55 I = NXTBDY, NBDYCC\r\n      IF (Z(KBDYC+IWDS) .EQ. ARRAY(1)) GO TO 90\r\n   55 IWDS = IWDS + 4\r\nC\r\nC     FINISH BDY(S/S1) SET ID READING\r\nC\r\n   60 CALL READ (*280,*290,GEOM4,ARRAY(BDYJ),BDYK,0,IFLAG)\r\n      IF (IBDY - 2) 70,80,80\r\n   70 IF (ARRAY(2).NE.-1 .AND. ARRAY(3).NE.-1) GO TO 60\r\n      GO TO 40\r\n   80 IF (ARRAY(3) .NE. -1) GO TO 60\r\n      GO TO 40\r\nC\r\nC     CONTINUE BDY(S/S1) SET ID PROCESSING\r\nC\r\n   90 CALL READ (*280,*290,GEOM4,ARRAY(BDYJ),BDYK,0,IFLAG)\r\n      IF (IBDY - 2) 100,110,110\r\n  100 IF (ARRAY(2).EQ.-1 .AND. ARRAY(3).EQ.-1) GO TO 115\r\n      GO TO 120\r\n  110 IF (ARRAY(3) .EQ. -1) GO TO 115\r\n      GO TO 120\r\nC\r\nC     CHECK FOR NEXT BDY(S/S1) CARD HAVING SAME SET ID AS CURRENT ID\r\nC\r\n  115 CALL READ (*280,*35,GEOM4,ARRAY,IBDY,0,IFLAG)\r\n      IF (Z(KBDYC+IWDS) .EQ. ARRAY(1)) GO TO 90\r\n      GO TO 35\r\nC\r\nC     LOCATE EQSS DATA FOR SUBSTRUCTURE\r\nC\r\n  120 IFOUND = 1\r\n      IP     = 2*(Z(KBDYC+IWDS+1)-1)\r\n      GRPBGN = Z(EQSIND+IP)\r\n      GRPEND = GRPBGN + Z(EQSIND+IP+1)\r\n      K = Z(EQSIND+IP+1)/3\r\n      CALL BISLOC (*170,ARRAY(BDYM),Z(GRPBGN),3,K,LOCBGN)\r\n      GRPIP  = GRPBGN + LOCBGN - 1\r\n      LOC    = GRPIP - 3\r\n  130 IF (LOC .LT. GRPBGN) GO TO 140\r\n      IF (Z(LOC) .LT. Z(GRPIP)) GO TO 140\r\n      LOC    = LOC - 3\r\n      GO TO 130\r\n  140 LOCBGN = LOC + 3\r\n      NFOUND = 1\r\n      LOC    = LOCBGN + 3\r\n  150 IF (LOC .GE. GRPEND) GO TO 180\r\n      IF (Z(LOCBGN) .LT. Z(LOC)) GO TO 180\r\n      LOC    = LOC + 3\r\n      NFOUND = NFOUND + 1\r\n      GO TO 150\r\nC\r\nC     CANNOT LOCATE EXTERNAL ID\r\nC\r\n 170  CALL PAGE1\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,902) UFM,ARRAY(3),ARRAY(2),\r\n     1                 ARRAY(1),Z(NAMEBS+IP),Z(NAMEBS+IP+1)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,903) UFM,ARRAY(3),ARRAY(2),\r\n     1                 ARRAY(1),Z(NAMEBS+IP),Z(NAMEBS+IP+1)\r\n      DRY = -2\r\n      GO TO 90\r\nC\r\nC     LOCATE CORRECT IP FOR THIS EXTERNAL ID\r\nC\r\n  180 CALL SPLT10 (ARRAY(BDYL),KPNTBD,JWDS)\r\n      M = 0\r\n      DO 230 I = 1, NFOUND\r\n      J = (3*(I-1)) + 2\r\n      ICODE = Z(LOCBGN+J)\r\n      CALL DECODE (ICODE,KPNTSL,KWDS)\r\n      DO 230 K = 1, KWDS\r\n      DO 190 L = 1, JWDS\r\n      IF (KPNTSL(K) .EQ. KPNTBD(L)-1) GO TO 200\r\n  190 CONTINUE\r\n      GO TO 230\r\nC\r\nC     CONVERT GRID ID AND COMPONENT TO SIL VALUE\r\nC\r\n  200 IF (ANDF(RSHIFT(IO,ISHIFT),1) .EQ. 0) GO TO 220\r\n      IF (LINE .LE. NLPP) GO TO 210\r\n      CALL PAGE1\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,900)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,901)\r\n      LINE = LINE + 7\r\n  210 IF (M .EQ. 0) WRITE (IPRNTR,906) ARRAY(1),ARRAY(BDYM),ARRAY(BDYL)\r\n      M    = 1\r\n      LINE = LINE + 1\r\n  220 INDSIL = NSLBGN + ((2*Z(LOCBGN+J-1))-2)\r\n      NSILUS = LOCUST + ((Z(INDSIL)-1)+(K-1))\r\n      KPNTBD(L) = 0\r\nC\r\nC     FILL USET ARRAY\r\nC     IF FIXSET - TURN OFF UL, UA, UF BITS AND TURN ON US BIT\r\nC     IF BNDSET - TURN OFF UI BIT AND TURN ON UB BIT\r\nC\r\n      UBORS = US\r\n      IF (MODE .EQ. 2) UBORS = UB\r\n      Z(NSILUS) = ANDF(Z(NSILUS),IBITS)\r\n      Z(NSILUS) = ORF(Z(NSILUS),ITWO(UBORS))\r\n  230 CONTINUE\r\nC\r\nC     CHECK THAT ALL IP FOUND\r\nC\r\n      DO 240 I = 1,JWDS\r\n      IF (KPNTBD(I) .EQ. 0) GO TO 240\r\n      IF (MODE .EQ. 1) WRITE (IPRNTR,904) UWM,ARRAY(BDYM),Z(NAMEBS+IP),\r\n     1                 Z(NAMEBS+IP+1)\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,905) UWM,ARRAY(BDYM),Z(NAMEBS+IP),\r\n     1                 Z(NAMEBS+IP+1)\r\n      GO TO 90\r\n  240 CONTINUE\r\n      GO TO 90\r\nC\r\nC     SET NO DATA AVAILABLE FLAG\r\nC\r\n  250 IERR = IERR + 1\r\n      GO TO 20\r\nC\r\nC     END OF ID SET PROCESSING\r\nC\r\n  260 CALL CLOSE (GEOM4,1)\r\n      IF (IERR   .EQ. 2) GO TO 330\r\n      IF (IFOUND .EQ. 0) GO TO 330\r\n      IF (MODE   .EQ. 1) GO TO 430\r\nC\r\nC     WRITE USETX DATA\r\nC\r\n      CALL GOPEN (USETX,Z(GBUF1),1)\r\n      CALL WRITE (USETX,Z(LOCUST),LUSET,1)\r\n      CALL CLOSE (USETX,1)\r\n      USETRL(1) = USETX\r\n      USETRL(2) = 1\r\n      USETRL(3) = LUSET\r\n      USETRL(4) = 7\r\n      USETRL(5) = 1\r\n      CALL WRTTRL (USETRL)\r\nC\r\nC     VERIFY OLD BOUNDARY UNCHANGED\r\nC\r\n      IF (.NOT.BOUNDS) GO TO 430\r\n      IF (LOCUST+2*LUSET .GE. KORLEN) GO TO 300\r\n  345 CALL SOFTRL (OLDNAM,ITEM,USETRL)\r\n      IF (USETRL(1) .NE. 1) GO TO 440\r\n      NROWU = USETRL(3)\r\n      IF (PONLY) LUSET = NROWU\r\n      IF (NROWU .NE. LUSET) GO TO 420\r\nC\r\nC     GET OLD UPRT VECTOR\r\nC\r\n      TYPEU = USETRL(5)\r\n      CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      NEWUST = LOCUST + LUSET\r\n      IF (PONLY) NEWUST = LOCUST\r\n      IF (PONLY .AND. NEWUST+NROWU.GE.KORLEN) GO TO 300\r\n      IROWU = 1\r\n      INCRU = 1\r\n      CALL GOPEN (UPRT,Z(GBUF1),0)\r\n      CALL UNPACK (*350,UPRT,RZ(NEWUST))\r\n      GO TO 370\r\n  350 DO 360 I = 1,LUSET\r\n  360 RZ(NEWUST+I-1) = 0.0\r\n  370 CALL CLOSE (UPRT,1)\r\n      IF (PONLY) GO TO 405\r\nC\r\nC     GET NEW UPRT VECTOR\r\nC\r\n      LCORE = KORLEN - (NEWUST+LUSET)\r\n      FUSET = USETX\r\n      CALL CALCV (UPRT,UN,UI,UB,Z(NEWUST+LUSET))\r\n      TYPEU = 1\r\n      NROWU = LUSET\r\n      CALL GOPEN (UPRT,Z(GBUF1),0)\r\n      CALL UNPACK (*380,UPRT,RZ(NEWUST+LUSET))\r\n      GO TO 400\r\n  380 DO 390 I = 1,LUSET\r\n  390 RZ(NEWUST+LUSET+I-1) = 0.0\r\n  400 CALL CLOSE (UPRT,1)\r\nC\r\nC     CHECK OLD, NEW UPRT VECTORS AND COUNT NUMBER OF ROWS IN 0, 1\r\nC     SUBSETS AND SAVE IN EQST TRAILER FOR USE IN MRED2A\r\nC\r\n  405 ISUB0 = 0\r\n      ISUB1 = 0\r\n      DO 410 I = 1,LUSET\r\n      IF (RZ(NEWUST+I-1) .EQ. 0.0) ISUB0 = ISUB0 + 1\r\n      IF (RZ(NEWUST+I-1) .EQ. 1.0) ISUB1 = ISUB1 + 1\r\n      IF (PONLY) GO TO 410\r\n      IF (RZ(NEWUST+I-1) .NE. RZ(NEWUST+LUSET+I-1)) GO TO 420\r\n  410 CONTINUE\r\n      EQSTRL(1) = EQST\r\n      EQSTRL(6) = ISUB0\r\n      EQSTRL(7) = ISUB1\r\n      CALL WRTTRL (EQSTRL)\r\n      GO TO 430\r\nC\r\nC     BOUNDARY POINTS ARE NOT THE SAME\r\nC\r\n  420 WRITE (IPRNTR,909) UFM,OLDNAM\r\n      DRY = -2\r\n  430 CONTINUE\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  270 IMSG = -1\r\n      GO TO 320\r\n  280 IMSG = -2\r\n      GO TO 310\r\n  290 IMSG = -3\r\n      GO TO 310\r\n  300 IMSG = -8\r\n      IFILE = 0\r\n  310 CALL CLOSE (GEOM4,1)\r\n  320 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  330 IF (MODE .EQ. 1) WRITE (IPRNTR,907) UFM,FIXSET\r\n      IF (MODE .EQ. 2) WRITE (IPRNTR,908) UFM,BNDSET\r\n  335 DRY = -2\r\n      CALL SOFCLS\r\n      CALL CLOSE (GEOM4,1)\r\n      RETURN\r\n  440 GO TO (450,450,460,470,480,480), ITEST\r\n  450 WRITE (IPRNTR,910) UFM,MODNAM,ITEM,OLDNAM\r\n      DRY = -2\r\n      RETURN\r\n  460 IMSG = -1\r\n      GO TO 490\r\n  470 IMSG = -2\r\n      GO TO 490\r\n  480 IMSG = -3\r\n  490 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      RETURN\r\nC\r\n  900 FORMAT (//45X,40HTABLE OF GRID POINTS COMPOSING FIXED SET,\r\n     1       //53X,5HFIXED,/53X,25HSET ID   GRID POINT   DOF, /53X,\r\n     2       26HNUMBER   ID NUMBER    CODE,/)\r\n  901 FORMAT (1H0,44X,43HTABLE OF GRID POINTS COMPOSING BOUNDARY SET,\r\n     1       //52X,8HBOUNDARY,/53X,25HSET ID   GRID POINT   DOF, /53X,\r\n     2       26HNUMBER   ID NUMBER    CODE,/)\r\n  902 FORMAT (A23,' 6624, GRID POINT',I9,' COMPONENT',I9,' SPECIFIED ',\r\n     1       'IN FIXED SET',I9, /5X,'FOR SUBSTRUCTURE ',2A4,\r\n     2       ' DOES NOT EXIST.',//////)\r\n  903 FORMAT (A23,' 6611, GRID POINT',I9,' COMPONENT',I9,' SPECIFIED ',\r\n     1       'IN BOUNDARY SET',I9, /5X,'FOR SUBSTRUCTURE ',2A4,\r\n     2       ' DOES NOT EXIST.',//////)\r\n  904 FORMAT (A25,' 6625, DEGREES OF FREEDOM AT GRID POINT',I9,\r\n     1       ' COMPONENT SUBSTRUCTURE ',2A4, /32X,'INCLUDED IN A FIXED',\r\n     2       ' SET DO NOT EXIST.  REQUEST WILL BE IGNORED.')\r\n  905 FORMAT (A25,' 6610, DEGREES OF FREEDOM AT GRID POINT',I9,\r\n     1       ' COMPONENT SUBSTRUCTURE ',2A4, /32X,'INCLUDED IN A NON-',\r\n     2       'EXISTING BOUNDARY SET.  REQUEST WILL BE IGNORED.')\r\n  906 FORMAT (52X,2(I8,3X),I6)\r\n  907 FORMAT (A23,' 6626, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO',\r\n     1       ' DEFINE FIXED SET',I9,1H.)\r\n  908 FORMAT (A23,' 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO',\r\n     1       ' DEFINE BOUNDARY SET',I9,1H.)\r\n  909 FORMAT (A23,' 6637, OLDBOUND HAS BEEN SPECIFIED BUT THE BOUNDARY',\r\n     1       ' POINTS FOR SUBSTRUCTURE ',2A4,' HAVE BEEN CHANGED.')\r\n  910 FORMAT (A23,' 6215, MODULE ',2A4,8H - ITEM ,A4,' OF SUBSTRUCTURE '\r\n     1,       2A4,' PSEUDO-EXISTS ONLY.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred1c.f",
    "content": "      SUBROUTINE MRED1C\r\nC\r\nC     THIS SUBROUTINE CONVERTS THE EQSS DATA AND BGSS DATA TO CORRESPOND\r\nC     TO THE BOUNDARY DEGREES OF FREEDOM (UB) FOR THE MRED1 MODULE\r\nC\r\nC     INPUT DATA\r\nC     SOF - BGSS - BASIC GRID POINT IDENTIFICATION TABLE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - EQST - TEMPORARY EQSS DATA FILE\r\nC\r\nC     PARAMETERS\r\nC     INPUT - GBUF1  - GINO BUFFER\r\nC             KORLEN - LENGTH OF OPEN CORE\r\nC             NEWNAM - NAME OF NEW SUBSTRUCTURE\r\nC             RGRID  - FREEBODY MODE IDENTIFICATION NUMBERS (SET IN\r\nC                      MRED1)\r\nC                      RGRID(1) .EQ. GRID POINT IDENTIFICATION NUMBER\r\nC                      RGRID(2) .EQ. NUMBER OF CONTRIBUTING SUBSTRUCTURE\r\nC             NCSUBS - NUMBER OF CONTRIBUTING SUBSTRUCTURES\r\nC             NAMEBS - BEGINNING ADDRESS OF BASIC SUBSTRUCTURE NAMES\r\nC             EQSIND - BEGINNING ADDRESS OF EQSS GROUP ADDRESSES\r\nC             NSLBGN - BEGINNING ADDRESS OF SIL DATA\r\nC             NSIL   - NUMBER OF SIL GROUPS\r\nC             LOCUST - BEGINNING ADDRESS OF USET ARRAY\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      LOGICAL         BOUNDS\r\n      INTEGER         OLDNAM,DRY,GBUF1,EQSIND,RGRID,Z,SILDOF,UB,ESTDTA,\r\n     1                SILIND,ESTWRT,BITPAT,EQST,EQSTRL,ANDF,ORF\r\n      DIMENSION       BITPAT(32),MODNAM(2),EQSTRL(7)\r\n      COMMON /BLANK / OLDNAM(2),DRY,IDUM1(6),GBUF1,IDUM2(4),KORLEN,\r\n     1                NEWNAM(2),IDUM3(4),RGRID(2),IDUM4(4),NCSUBS,\r\n     2                NAMEBS,EQSIND,NSLBGN,NSIL,IDUM6(3),LOCUST,\r\n     3                IDUM7(4),BOUNDS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IDUM5(20),UB\r\n      DATA    EQST  , NHBGSS,MODNAM / 203,4HBGSS,4HMRED,4H1C  /\r\nC\r\nC     IF OLDBOUNDS OPTION, GET EQST TRAILER\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      EQSTRL(1) = EQST\r\n      IF (.NOT. BOUNDS) GO TO 5\r\n      CALL RDTRL (EQSTRL)\r\nC\r\nC     GET SIL DOF AND DECODE\r\nC\r\n    5 NEWIPS = 0\r\n      DO 30 I = 1,NSIL\r\n      SILDOF = NSLBGN + ((2*I) - 1)\r\n      ICODE  = Z(SILDOF)\r\n      CALL DECODE (ICODE,BITPAT,NWDSD)\r\nC\r\nC     TEST FOR DOF REMAINING IN BOUNDARY SET\r\nC\r\n      NDOF = 0\r\n      KOMPNT = 0\r\n      DO 10 J = 1,NWDSD\r\n      K = LOCUST + (Z(SILDOF-1)-1) + (J-1)\r\n      IF (ANDF(Z(K),ITWO(UB)) .EQ. 0) GO TO 10\r\n      K = 32 - BITPAT(J)\r\n      KOMPNT = ORF(KOMPNT,ITWO(K))\r\n      NDOF = NDOF + 1\r\n   10 CONTINUE\r\nC\r\nC     SAVE NEW SIL DATA\r\nC\r\n      IF (NDOF .EQ. 0) GO TO 20\r\n      NEWIPS = NEWIPS + 1\r\n      Z(SILDOF-1) = (8*NEWIPS) + NDOF\r\n      Z(SILDOF) = KOMPNT\r\n      GO TO 30\r\nC\r\nC     SIL DATA NOT NEEDED\r\nC\r\n   20 Z(SILDOF-1) = -1\r\n   30 CONTINUE\r\nC\r\nC     WRITE EQSS GROUP 0 DATA ONTO TEMPORARY EQST TABLE\r\nC\r\n      CALL GOPEN (EQST,Z(GBUF1),1)\r\n      CALL WRITE (EQST,NEWNAM,2,0)\r\n      CALL WRITE (EQST,NCSUBS,1,0)\r\n      CALL WRITE (EQST,NEWIPS,1,0)\r\n      NWDS = EQSIND - NAMEBS\r\n      CALL WRITE (EQST,Z(NAMEBS),NWDS,1)\r\n      EQSTRL(2) = NWDS + 4\r\nC\r\nC     WRITE REMAINING EQSS GROUP DATA ONTO TEMPORARY EQST TABLE\r\nC\r\n      EQSTRL(3) = NCSUBS\r\n      DO 60 I = 1,NCSUBS\r\n      J = 2*(I-1)\r\n      ESTDTA = Z(EQSIND+J)\r\n      NWDS = Z(EQSIND+J+1)\r\nC\r\nC     TEST SUBSTRUCTURE COMPONENTS\r\nC\r\n      IF (NWDS .LE. 0) GO TO 60\r\n      DO 50 J = 1,NWDS,3\r\n      SILIND = NSLBGN + (2*(Z(ESTDTA+J) - 1))\r\n      IF (RGRID(1) .LE. 0) GO TO 40\r\n      IF (I .NE. RGRID(2)) GO TO 40\r\n      IF (RGRID(1) .NE. Z(ESTDTA+J-1)) GO TO 40\r\n      RGRID(1) = Z(ESTDTA+J)\r\n   40 IF (Z(SILIND) .EQ. -1) GO TO 50\r\nC\r\nC     REPLACE IP, SIL NUMBERS AND WRITE DATA\r\nC\r\n      ESTWRT = ESTDTA + J\r\n      Z(ESTWRT  ) = Z(SILIND)/8\r\n      Z(ESTWRT+1) = Z(SILIND+1)\r\n      CALL WRITE (EQST,Z(ESTWRT-1),3,0)\r\n   50 CONTINUE\r\n   60 CALL WRITE (EQST,0,0,1)\r\nC\r\nC     REDUCE SIL ENTRIES AND STORE NEW SIL DATA AT Z(2*NSIL)\r\nC\r\n      NDOF   = 1\r\n      LOINDX = 0\r\n      NEWSIL = NSLBGN + (2*NSIL)\r\n      IF ((NEWSIL+(2*NSIL)) .GE. KORLEN) GO TO 130\r\n      DO 70 I = 1,NSIL\r\n      J = 2*(I-1)\r\n      IF (Z(NSLBGN+J) .EQ. -1) GO TO 70\r\n      Z(NEWSIL+LOINDX  ) = NDOF\r\n      Z(NEWSIL+LOINDX+1) = Z(NSLBGN+J+1)\r\n      NDOF = NDOF + ANDF(Z(NSLBGN+J),7)\r\n      LOINDX = LOINDX + 2\r\n   70 CONTINUE\r\nC\r\nC     WRITE SIL DATA ONTO TEMPORARY EQST TABLE\r\nC\r\n      KORBGN = NAMEBS\r\n      IF (LOINDX .LE. 0) CALL WRITE (EQST,0,0,1)\r\n      IF (LOINDX .GT. 0) CALL WRITE (EQST,Z(NEWSIL),LOINDX,1)\r\n      EQSTRL(4) = LOINDX\r\nC\r\nC     READ AND WRITE BGSS GROUP 0 DATA\r\nC\r\n      CALL SFETCH (OLDNAM,NHBGSS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 90\r\n      IF (ITEST .EQ. 4) GO TO 100\r\n      IF (ITEST .EQ. 5) GO TO 110\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      Z(KORBGN  ) = OLDNAM(1)\r\n      Z(KORBGN+1) = OLDNAM(2)\r\n      NBGSS = Z(KORBGN+2)\r\n      Z(KORBGN+2) = LOINDX/2\r\n      CALL WRITE (EQST,Z(KORBGN),3,1)\r\nC\r\nC     ELIMINATE BGSS DATA NOT REQUIRED\r\nC\r\n      I = 0\r\n      EQSTRL(5) = 0\r\n      DO 80 J = 1,NBGSS\r\n      CALL SUREAD (Z(KORBGN),4,NWDSRD,ITEST)\r\n      IF (I .GT. (2*NSIL)) GO TO 80\r\n      IF (Z(NSLBGN+I) .EQ. -1) GO TO 80\r\n      CALL WRITE (EQST,Z(KORBGN),4,0)\r\n      EQSTRL(5) = EQSTRL(5) + 4\r\n   80 I = I + 2\r\n      CALL WRITE  (EQST,0,0,1)\r\n      CALL WRTTRL (EQSTRL)\r\nC\r\nC     CLOSE EQST FILE\r\nC\r\n      CALL CLOSE (EQST,1)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   90 IMSG = -1\r\n      GO TO 120\r\n  100 IMSG = -2\r\n      GO TO 120\r\n  110 IMSG = -3\r\n  120 CALL SMSG (IMSG,NHBGSS,OLDNAM)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  130 IMSG = -8\r\n      IFILE = 0\r\n      CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred1d.f",
    "content": "      SUBROUTINE MRED1D\r\nC\r\nC     THIS SUBROUTINE GENERATES THE EEDX DATA BLOCK USING THE EED DATA\r\nC     BLOCK FORMAT FROM THE EIGR OR EIGC AND EIGP BULK DATA FOR THE\r\nC     MRED1 MODULE.\r\nC\r\nC     INPUT  DATA\r\nC     GINO - DYNAMICS - EIGC DATA\r\nC                       EIGP DATA\r\nC                       EIGR DATA\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - EEDX     - EIGC DATA\r\nC                       EIGP DATA\r\nC                       EIGR DATA\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - DNAMIC - DYNAMICS DATA BLOCK INPUT FILE NUMBER\r\nC              GBUF1  - GINO BUFFER\r\nC              EEDX   - EEDX DATA BLOCK OUTPUT FILE NUMBER\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              IEIG   - EIGENVALUE EXTRACTION SET IDENTIFICATION NUMBER\r\nC     OUTPUT - DRY    - MODULE OPERATION FLAG\r\nC     OTHERS - EIGTYP - EIG CARD TYPE PROCESSING FLAG\r\nC                     = 1, PROCESS EIGC DATA\r\nC                     = 2, PROCESS EIGP DATA\r\nC                     = 3, PROCESS EIGR DATA\r\nC              EIGCP  - EIGC AND EIGP DATA ERROR FLAG\r\nC                     = 0, NO EIGC, EIGP DATA - NO ERROR\r\nC                     = 1, EIGC DATA ONLY - NO ERROR\r\nC                     = 2, EIGP DATA ONLY - ERROR\r\nC                     = 3, EIGC AND EIGP DATA - NO ERROR\r\nC              EIGTRL - EEDX TRAILER\r\nC              EIGCPR - DUMMY EIG(C,P,R) ARRAY\r\nC              EIG    - ARRAY OF EIG(C,P,R) CARD TYPES AND HEADER\r\nC                       INFORMATION\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              NWDS2R - NUMBER OF EIG(C,P,R) WORDS TO READ ON DYNAMIC\r\nC                       DATA FILE\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         USRMOD\r\n      INTEGER         ORF,OLDNAM,DRY,TYPE,GBUF1,GBUF2,Z,DNAMIC,\r\n     1                EIG(3,3),EIGCPR(3),EEDX,EIGTRL(7),EIGTYP,EIGCP\r\n      DIMENSION       MODNAM(2),LETR(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / OLDNAM(2),DRY,IDUM1(3),TYPE(2),IDUM5,GBUF1,GBUF2,\r\n     1                IDUM2(3),KORLEN,IDUM7(4),IEIG,IDUM3(6),KORBGN,\r\n     2                IDUM6(12),USRMOD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /SYSTEM/ IDUM4,IPRNTR\r\n      DATA    DNAMIC, EIG,EEDX/103,207,2,0,257,4,0,307,3,0,202/\r\n      DATA    MODNAM, LETR /4HMRED,4H1D  ,1HC,1HP,1HR/\r\n      DATA    KOMPLX, KREAL/4HCOMP,4HREAL/\r\nC\r\nC     OPEN DYNAMICS, EEDX DATA BLOCKS\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (USRMOD) GO TO 175\r\n      CALL PRELOC (*180,Z(GBUF1),DNAMIC)\r\n      CALL GOPEN (EEDX,Z(GBUF2),1)\r\nC\r\nC     SET PROCESSING FLAGS\r\nC\r\n      EIGTYP = 0\r\n      EIGCP  = 0\r\n      EIGTRL(1) = EEDX\r\n      DO 10 I = 2,7\r\n   10 EIGTRL(I) = 0\r\nC\r\nC     INCREMENT EIG PROCESSING FLAG\r\nC     EIGTYP .EQ. 1, PROCESS EIGC DATA\r\nC     EIGTYP .EQ. 2, PROCESS EIGP DATA\r\nC     EIGTYP .EQ. 3, PROCESS EIGR DATA\r\nC\r\n   20 EIGTYP = EIGTYP + 1\r\n      IF (EIGTYP .EQ. 4) GO TO 170\r\nC\r\nC     SELECT EIG MODE\r\nC\r\n      IF (TYPE(1).EQ.KREAL  .AND. EIGTYP.LT.3) GO TO 20\r\n      IF (TYPE(1).EQ.KOMPLX .AND. EIGTYP.EQ.3) GO TO 20\r\n      DO 30 I = 1,3\r\n   30 EIGCPR(I) = EIG(I,EIGTYP)\r\nC\r\nC     LOCATE EIG(C,P,R) DATA CARD\r\nC\r\n      CALL LOCATE (*20,Z(GBUF1),EIGCPR,ITEST)\r\nC\r\nC     SET UP EEDX DATA RECORD\r\nC\r\n      DO 40 I = 1,3\r\n   40 Z(KORBGN+I-1) = EIGCPR(I)\r\nC\r\nC     FIND CORRECT EIG(C,P,R) DATA CARD\r\nC\r\n      GO TO (50,60,70), EIGTYP\r\n   50 NWDS2R = 10\r\n      GO TO 80\r\n   60 NWDS2R = 4\r\n      GO TO 80\r\n   70 NWDS2R = 18\r\n   80 CALL READ (*190,*200,DNAMIC,Z(KORBGN+3),NWDS2R,0,NOWDSR)\r\n      IF (Z(KORBGN+3) .EQ. IEIG) GO TO 100\r\n      GO TO (90,80,80), EIGTYP\r\nC\r\nC     READ REST OF EIGC DATA\r\nC\r\n   90 CALL READ (*190,*200,DNAMIC,Z(KORBGN+3),7,0,NOWDSR)\r\n      IF (Z(KORBGN+3) .EQ. -1) GO TO 80\r\n      GO TO 90\r\nC\r\nC     SELECT EIG PROCESSING MODE\r\nC\r\n  100 GO TO (110,140,150), EIGTYP\r\nC\r\nC     WRITE EIGC DATA ONTO EEDX DATA BLOCK\r\nC\r\n  110 CALL WRITE (EEDX,Z(KORBGN),13,0)\r\n      EIGTRL(2) = ORF(EIGTRL(2),16384)\r\n      EIGCP = EIGCP + 1\r\n  120 CALL READ (*190,*200,DNAMIC,Z(KORBGN),7,0,NOWDSR)\r\n      IF (Z(KORBGN) .EQ. -1) GO TO 130\r\n      CALL WRITE (EEDX,Z(KORBGN),7,0)\r\n      GO TO 120\r\n  130 CALL WRITE (EEDX,Z(KORBGN),7,1)\r\n      GO TO 20\r\nC\r\nC     WRITE EIGP DATA ONTO EEDX DATA BLOCK\r\nC\r\n  140 CALL WRITE (EEDX,Z(KORBGN),7,1)\r\n      EIGCP = EIGCP + 2\r\n      EIGTRL(2) = ORF(EIGTRL(2),4096)\r\n      GO TO 20\r\nC\r\nC     WRITE EIGR DATA ONTO EEDX DATA BLOCK\r\nC\r\n  150 CALL WRITE (EEDX,Z(KORBGN),21,1)\r\n      EIGTRL(2) = ORF(EIGTRL(2),8192)\r\n      GO TO 20\r\nC\r\nC     CLOSE DYNAMICS, EEDX DATA BLOCKS\r\nC\r\n  170 CALL CLOSE (DNAMIC,1)\r\n      CALL CLOSE (EEDX,1)\r\nC\r\nC     TEST FOR EIG CARD ERRORS\r\nC\r\n      IF (EIGTRL(2) .EQ. 0) GO TO 230\r\n      IF (EIGCP .EQ. 2) GO TO 240\r\nC\r\nC     WRITE EEDX DATA BLOCK TRAILER\r\nC\r\n      CALL WRTTRL (EIGTRL)\r\n  175 CONTINUE\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  180 IMSG = -1\r\n      GO TO 220\r\n  190 IMSG = -2\r\n      IF (EIGTYP .EQ. 2) GO TO 20\r\n      GO TO 210\r\n  200 IMSG = -3\r\n      IF (EIGTYP .EQ. 2) GO TO 20\r\n  210 WRITE (IPRNTR,900) UFM,LETR(EIGTYP),IEIG,OLDNAM\r\n  220 CALL SOFCLS\r\n      CALL MESAGE (IMSG,DNAMIC,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  230 WRITE (IPRNTR,901) UFM,IEIG,OLDNAM\r\n      GO TO 250\r\n  240 WRITE (IPRNTR,902) UFM,IEIG,OLDNAM\r\n  250 DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6627, NO EIG',A1,' DATA CARD ',\r\n     1       'SPECIFIED FOR SET ID',I9,', SUBSTRUCTURE ',2A4,1H.)\r\n  901 FORMAT (A23,' 6628, NO EIGC OR EIGR CARD SPECIFIED FOR SET ID',I9,\r\n     1       ', SUBSTRUCTURE ',2A4,1H.)\r\n  902 FORMAT (A23,' 6629, NO EIGC DATA CARD SPECIFHIED WITH EIGP DATA ',\r\n     1       'CARD SET ID',I9,', SUBSTRUCTURE ',2A4,1H.)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred1e.f",
    "content": "      SUBROUTINE MRED1E\r\nC\r\nC     THIS SUBROUTINE GENERATES THE RIGID BODY MATRIX DMX IF FREEBODY\r\nC     MODES ARE REQUESTED FOR THE MRED1 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     SOF -    BGSS   - BASIC GRID POINT IDENTIFICATION TABLE\r\nC              EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE\r\nC              CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO -   SCR1   - SCRATCH FILE HOLDING UNTRANSPOSED DMX MATRIX\r\nC              DMR    - RIGID BODY MATRIX\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - DRY    - MODULE OPERATION FLAG\r\nC              RGRID  - FREEBODY MODES FLAGS\r\nC                       RGRID(1) .EQ. INTERNAL GRID POINT IDENTIFICATION\r\nC                                     NUMBER (SET IN MRED1C)\r\nC                       RGRID(2) .EQ. NUMBER OF THE CONTRIBUTING\r\nC                                     SUBSTRUCTURE (SET IN MRED1)\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              RGRID0 - FREE BODY MODE BASIC COORDINATES\r\nC     OTHERS - NBGSS  - NUMBER OF INTERNAL GRID IDENTIFICATION POINTS\r\nC              LOCBGS - BEGINNING ADDRESS OF BGSS DATA\r\nC              LOCSTM - BEGINNING ADDRESS OF CSTM DATA\r\nC              LOCSIL - BEGINNING ADDRESS OF SIL DATA\r\nC              SMALD  - MATRIX OF COORDINATE LOCATION DIFFERENCES (3X3)\r\nC              TI     - MATRIX OF COORDINATE TRANSFORMATIONS (3X3)\r\nC              BIGD   - PARTITIONED MATRIX OF TRANSFORMATIONS (6X6)\r\nC\r\nC                                                  T\r\nC              TTD    - TEMPORARY MATRIX HOLDING (T SMALD) (3X3)\r\nC              KOMPNT - ARRAY HOLDING DECODED SIL COMPONENTS\r\nC\r\n      INTEGER         OLDNAM,DRY,GBUF1,GBUF2,RGRID,RNAME,Z,TYPIN,TYPPCK,\r\n     1                TYPUNP,SCR1,DMR,TITTD,TIIJD1,TTDIJD,ZEROIJ,TIIJD2,\r\n     2                DMRNAM\r\n      DIMENSION       MODNAM(2),ITRLR(7),TI(9),SMALD(9),BIGD(36),TTD(9),\r\n     1                KOMPNT(32),RZ(1),DMRNAM(2)\r\n      COMMON /BLANK / OLDNAM(2),DRY,IDUM1(6),GBUF1,GBUF2,IDUM2(3),\r\n     1                KORLEN,IDUM3(6),RGRID(2),RNAME(2),IDUM4,KORBGN,\r\n     2                NCSUBS,IDUM5(3),NSIL,IDUM6(4),RGRID0(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN,TYPPCK,IROWP,LROWP,INCRP\r\n      COMMON /UNPAKX/ TYPUNP,IROWUP,LROWUP,INCRUP\r\n      EQUIVALENCE     (RZ(1),Z(1))\r\n      DATA    MODNAM/ 4HMRED,4H1E   /\r\n      DATA    NHBGSS, NHCSTM,NHEQSS /4HBGSS,4HCSTM,4HEQSS/\r\n      DATA    SCR1  , DMR /301,204  /\r\nC\r\nC     TEST FOR MODULE ERRORS\r\nC\r\n      IF (DRY .EQ. -2) GO TO 190\r\nC\r\nC     TEST FOR FREEBODY MODES REQUEST\r\nC\r\n      IF (RGRID(1) .EQ. -1) GO TO 190\r\nC\r\nC     READ BGSS DATA\r\nC\r\n      IT = 1\r\n      CALL SFETCH (OLDNAM,NHBGSS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 240\r\n      IF (ITEST .EQ. 4) GO TO 250\r\n      IF (ITEST .EQ. 5) GO TO 260\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\nC\r\nC     EXTRACT SUBSTRUCTURE IP DATA\r\nC\r\n      NBGSS  = Z(KORBGN+2)\r\n      LOCBGS = KORBGN\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      KORBGN = KORBGN + NWDSRD\r\nC\r\nC     READ CSTM DATA\r\nC\r\n      LOCSTM = KORBGN\r\n      IF (KORLEN .LE. LOCSTM) GO TO 200\r\n      IT = 2\r\n      CALL SFETCH (OLDNAM,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 30\r\n      IF (ITEST .EQ. 4) GO TO 250\r\n      IF (ITEST .EQ. 5) GO TO 260\r\n      CALL SUREAD (Z(LOCSTM),-2,NWDSRD,ITEST)\r\n      CALL PRETRS (Z(LOCSTM+3),NWDSRD-4)\r\nC\r\nC     CHECK FOR BASIC COORDINATES\r\nC\r\n   30 DO 40 I = 1, 3\r\n   40 RGRID0(I) = 0.0\r\n      IF (RGRID(1) .EQ. 0) GO TO 60\r\nC\r\nC     EXTRACT FREEBODY BASIC COORDINATES\r\nC\r\n      LOCRGR = LOCBGS + (4*(RGRID(1)-1))\r\n      DO 50 I = 1,3\r\n   50 RGRID0(I) = RZ(LOCRGR+I)\r\nC\r\nC     OPEN SCRATCH FILE\r\nC\r\n   60 IFILE = SCR1\r\n      ITRLR(1) = IFILE\r\n      CALL OPEN (*210,SCR1,Z(GBUF2),1)\r\n      TYPIN = 1\r\n      TYPPCK= 1\r\n      IROWP = 1\r\n      LROWP = 6\r\n      INCRP = 1\r\nC\r\nC     OPEN EQSS FILE AND CHECK OPEN CORE LENGTH\r\nC\r\n      IT = 3\r\n      CALL SFETCH (OLDNAM,NHEQSS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 240\r\n      IF (ITEST .EQ. 4) GO TO 250\r\n      IF (ITEST .EQ. 5) GO TO 260\r\n      LOCSIL = LOCSTM + NWDSRD\r\n      CALL SUREAD (Z(LOCSIL),-1,NWDSRD,ITEST)\r\n      IF (KORLEN .LE. LOCSIL) GO TO 240\r\nC\r\nC     READ UP TO SIL DATA\r\nC\r\n      IF (KORLEN .LE. 2*NSIL) GO TO 240\r\n      DO 70 I = 1,NCSUBS\r\n      CALL SUREAD (Z(LOCSIL),-1,NWDSRD,ITEST)\r\n      IF (KORLEN .LE. LOCSIL+NWDSRD) GO TO 240\r\n   70 CONTINUE\r\nC\r\nC     GENERATE SMALD MATRIX (3X3)\r\nC\r\nC                **                               **\r\nC                *                                 *\r\nC                *    0.0      DELTA(Z)  -DELTA(Y) *\r\nC                *                                 *\r\nC        SMALD = * -DELTA(Z)     0.0      DELTA(X) *\r\nC                *                                 *\r\nC                *  DELTA(Y)  -DELTA(X)     0.0    *\r\nC                *                                 *\r\nC                **                               **\r\nC\r\n      DO 140 I = 1,NBGSS\r\n      II       = 4*(I-1)\r\n      SMALD(1) = 0.0\r\n      SMALD(2) = RZ(LOCBGS+II+3) - RGRID0(3)\r\n      SMALD(3) =-RZ(LOCBGS+II+2) + RGRID0(2)\r\n      SMALD(4) =-SMALD(2)\r\n      SMALD(5) = 0.0\r\n      SMALD(6) = RZ(LOCBGS+II+1) - RGRID0(1)\r\n      SMALD(7) =-SMALD(3)\r\n      SMALD(8) =-SMALD(6)\r\n      SMALD(9) = 0.0\r\nC\r\nC     SELECT TI, TTD MATRIX GENERATION\r\nC\r\n      IF (Z(LOCBGS+II)) 120,85,80\r\nC\r\nC     GENERATE TI, TTD MATRICES (3X3)\r\nC     (CID .GT. 0)\r\nC\r\n 80   CALL TRANSS (Z(LOCBGS+II),TI)\r\n      CALL GMMATS (TI,3,3,0,SMALD,3,3,1,TTD)\r\n      GO TO 95\r\nC\r\nC     GENERATE TI, TTD MATRICES (3X3)\r\nC     (CID .EQ. 0)\r\nC\r\n   85 DO 90 J = 1,3\r\n      DO 90 K = 1,3\r\n      L = K + 3*(J-1)\r\n      TI(L) = 0.0\r\n      IF (J .EQ. K) TI(L) = 1.0\r\n   90 TTD(L) = SMALD(L)\r\nC\r\nC     GENERATE BIGD MATRIX (6X6)\r\nC\r\nC               **            **\r\nC               *    .         *\r\nC               *  T .  T      *\r\nC               * T  . T SMALD *\r\nC               *    .         *\r\nC        BIGD = *..............*\r\nC               *    .         *\r\nC               *    .    T    *\r\nC               * 0  .  T      *\r\nC               *    .         *\r\nC               **            **\r\nC\r\n   95 DO 100 J = 1,3\r\n      DO 100 K = 1,3\r\n      TITTD  = K + 3*(J-1)\r\n      TIIJD1 = K + 6*(J-1)\r\n      TTDIJD = TIIJD1 + 3\r\n      ZEROIJ = TIIJD1 + 18\r\n      TIIJD2 = TIIJD1 + 21\r\n      BIGD(TIIJD1) = TI(TITTD)\r\n      BIGD(TTDIJD) = TTD(TITTD)\r\n      BIGD(ZEROIJ) = 0.0\r\n  100 BIGD(TIIJD2) = TI(TITTD)\r\nC\r\nC     EXTRACT ROWS OF BIGD CORRESPONDING TO ACTIVE SIL COMPONENTS\r\nC\r\n      CALL SUREAD (Z(LOCSIL),2,NWDSRD,ITEST)\r\n      ICODE = Z(LOCSIL+1)\r\n      CALL DECODE (ICODE,KOMPNT,NWDSD)\r\n      DO 110 J = 1,NWDSD\r\n      IROWD = 1 + 6*KOMPNT(J)\r\n  110 CALL PACK (BIGD(IROWD),SCR1,ITRLR)\r\n      GO TO 140\r\nC\r\nC     SCALAR POINT ADDS NULL COLUMN TO BIGD\r\nC     (CID .LT. 0)\r\nC\r\n  120 DO 130 J = 1,6\r\n  130 BIGD(J) = 0.0\r\n      IROWP = 1\r\n      CALL PACK (BIGD(1),SCR1,ITRLR)\r\n  140 CONTINUE\r\n      CALL CLOSE (SCR1,1)\r\n      ITRLR(3) = LROWP\r\nC\r\nC     READ SCR1 INTO TRANSPOSED FORM\r\nC\r\n      CALL OPEN (*210,SCR1,Z(GBUF1),0)\r\n      TYPUNP = 1\r\n      IROWUP = 1\r\n      LROWUP = 6\r\n      INCRUP = ITRLR(2)\r\n      KOLMNS = ITRLR(2)\r\n      KORBGN = LOCBGS\r\n      IF (KORLEN .LE. KORBGN+LROWP*KOLMNS) GO TO 240\r\n      DO 170 I = 1,KOLMNS\r\n      CALL UNPACK (*150,SCR1,Z(KORBGN))\r\n      GO TO 170\r\n  150 J = KORBGN\r\n      DO 160 K = 1,6\r\n      RZ(J) = 0.0\r\n  160 J = J + INCRUP\r\n  170 KORBGN = KORBGN + 1\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     PLACE TRANSPOSED BIGD ONTO DMR OUTPUT FILE\r\nC\r\n      IFILE  = DMR\r\n      CALL OPEN (*210,DMR,Z(GBUF2),1)\r\n      CALL FNAME (DMR,DMRNAM)\r\n      CALL WRITE (DMR,DMRNAM,2,1)\r\n      LOCDMR = LOCBGS\r\n      LROWP  = KOLMNS\r\n      IFORM  = 2\r\n      CALL MAKMCB (ITRLR,DMR,LROWP,IFORM,TYPIN)\r\n      DO 180 I = 1,6\r\n      CALL PACK (Z(LOCDMR),DMR,ITRLR)\r\n  180 LOCDMR = LOCDMR + KOLMNS\r\n      CALL CLOSE (DMR,1)\r\n      CALL WRTTRL (ITRLR)\r\n  190 RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  200 IMSG  =-8\r\n      IFILE = 0\r\n      GO TO 230\r\n  210 IMSG = -1\r\n  230 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 190\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  240 IMSG = -1\r\n      GO TO 270\r\n  250 IMSG = -2\r\n      GO TO 270\r\n  260 IMSG = -3\r\n  270 IF (IT-2) 280,290,300\r\n  280 CALL SMSG (IMSG,NHBGSS,OLDNAM)\r\n      GO TO 190\r\nC\r\n  290 CALL SMSG (IMSG,NHCSTM,OLDNAM)\r\n      GO TO 190\r\nC\r\n  300 CALL SMSG (IMSG,NHEQSS,OLDNAM)\r\n      GO TO 190\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2.f",
    "content": "      SUBROUTINE MRED2\r\nC\r\nC     THIS SUBROUTINE IS THE MRED2 MODULE WHICH PERFORMS THE MAJOR\r\nC     COMPUTATIONS FOR THE REDUCE COMMAND.\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC     MRED2    CASECC,LAMAMR,PHISS,EQST,USETMR,KAA,MAA,BAA,K4AA,PAA,DMR,\r\nC              QSM/KHH,MHH,BHH,K4HH,PHH,POVE/STEP/S,N,DRY/POPT $\r\nC\r\nC     12 INPUT DATA BLOCKS\r\nC     GINO -   CASECC - CASE CONTROL DATA\r\nC              LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC              PHISS  - EIGENVECTORS FOR SUBSTRUCTURE BEING REDUCED\r\nC              EQST   - EQSS DATA FOR BOUNDARY SET FOR SUBSTRUCTURE\r\nC                       BEINGREDUCED\r\nC              USETMR - USET TABLE FOR REDUCED SUBSTRUCTURE\r\nC              KAA    - SUBSTRUCTURE STIFFNESS MATRIX\r\nC              MAA    - SUBSTRUCTURE MASS MATRIX\r\nC              BAA    - SUBSTRUCTURE VISCOUS DAMPING MATRIX\r\nC              K4AA   - SUBSTRUCTURE STRUCTURE DAMPINF MATRIX\r\nC              PAA    - SUBSTRUCTURE LOAD MATRIX\r\nC              DMR    - FREE BODY MATRIX\r\nC              QSM    - MODEL REACTION MATRIX\r\nC     SOF  -   LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC              PHIS   - EIGENVECTOR TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC              LMTX   - STIFFNESS DECOMPOSITION PRODUCT FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC              GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR\r\nC                       ORIGINAL SUBSTRUCTURE\r\nC              HORG   - H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC\r\nC     6 OUTPUT DATA BLOCKS\r\nC     GINO -   KHH    - REDUCED STIFFNESS MATRIX\r\nC              MHH    - REDUCED MASS MATRIX\r\nC              BHH    - REDUCED VISCOUS DAMPING MATRIX\r\nC              K4HH   - REDUCED STRUCTURE DAMPING MATRIX\r\nC              PHH    - REDUCED LOAD MATRIX\r\nC              POVE   - INTERIOR POINT LOAD MATRIX\r\nC     SOF  -   LAMS   - EIGENVALUE TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC              PHIS   - EIGENVECTOR TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC              LMTX   - STIFFNESS DECOMPOSITION PRODUCT FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC              GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS FOR\r\nC                       ORIGINAL SUBSTRUCTURE\r\nC              HORG   - H TRANSFORMATION MATRIX FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC              UPRT   - PARTITIONING VECTOR FOR MREDUCE FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC              POVE   - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE\r\nC              POAP   - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC              EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED\r\nC                       SUBSTRUCTURE\r\nC              BGSS   - BASIC GRID POINT DEFINITION TABLE FOR REDUCED\r\nC                       SUBSTRUCTURE\r\nC              CSTM   - COORDINATE SYSTEM TRANSFORMATION MATRICES FOR\r\nC                       REDUCED SUBSTRUCTURE\r\nC              LODS   - LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC              LOAP   - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC              PLTS   - PLOT SET DATA FOR REDUCED SUBSTRUCTURE\r\nC              KMTX   - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC              MMTX   - MASS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC              PVEC   - LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC              PAPD   - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC              BMTX   - VISCOUS DAMPING MATRIX FOR REDUCED SUBSTRUCTURE\r\nC              K4MX   - STRUCTURE DAMPING MATRIX FOR REDUCED\r\nC                       SUBSTRUCTURE\r\nC\r\nC     11 SCRATCH DATA BLOCKS\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - STEP   - CONTROL DATA CASECC RECORD (INTEGER)\r\nC              POPT   - PVEC OR PAPP OPTION FLAG (BCD)\r\nC     OUTPUT - DRY    - MODULE OPERATION FLAG (INTEGER)\r\nC     OTHERS - GBUF   - GINO BUFFERS\r\nC              SBUF   - SOF BUFFERS\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              OTFILE - OUTPUT FILE NUMBERS\r\nC              ISCR   - ARRAY OF SCRATCH FILE NUMBERS\r\nC              ISCR11 - LII PARTITION MATRIX USED IN MRED2B AND MRED2F\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC              NEWNAM - NAME OF REDUCED SUBSTRUCTURE\r\nC              FREBDY - FREE BODY MODES CALCULATION FLAG\r\nC              RANGE  - RANGE OF FREQUENCIES TO BE USED\r\nC              NMAX   - MAXIMUM NUMBER OF FREQUENCIES TO BE USED\r\nC              USRMOD - USERMODES CALCULATION FLAG\r\nC              IO     - IO OPTIONS FLAG\r\nC              BOUNDS - OLDBOUNDS OPTION FLAG\r\nC              MODES  - OLDMODES OPTION FLAG\r\nC              RSAVE  - SAVE REDUCTION PRODUCT FLAG\r\nC              LAMSAP - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY\r\nC              MODPTS - NUMBER OF MODAL POINTS\r\nC              MODLEN - LENGTH OF MODE USE ARRAY\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         FREBDY,BOUNDS,MODES,RSAVE,PONLY\r\n      INTEGER         STEP,DRY,POPT,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,\r\n     1                OTFILE,OLDNAM,USRMOD,GBUF3,Z,SYSBUF,CASECC,ORF\r\n      DIMENSION       MODNAM(2),NMONIC(10),RZ(1),ITRLR(7)\r\n      COMMON /BLANK / STEP,DRY,POPT,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,\r\n     1                INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                OLDNAM(2),NEWNAM(2),FREBDY,RANGE(2),NMAX,USRMOD,\r\n     3                IO,BOUNDS,MODES,RSAVE,LAMSAP,MODPTS,MODLEN,PONLY,\r\n     4                LSTZWD,ISCR11\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,IPRNTR\r\n      EQUIVALENCE     (CASECC,INFILE(1)), (RZ(1),Z(1))\r\n      DATA    NMONIC/ 4HNAMA,4HNAMB,4HFREE,4HRANG,4HNMAX,4HUSER,4HOUTP,\r\n     1                4HOLDB,4HOLDM,4HRSAV/\r\n      DATA    IBLANK, NHLODS,NHLOAP/4H    ,4HLODS,4HLOAP/\r\n      DATA    MODNAM/ 4HMRED,4H2   /\r\n      DATA    ITRLR / 106   ,6*0   /\r\nC\r\nC     COMPUTE OPEN CORE AND DEFINE GINO, SOF BUFFERS\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      NOZWDS = KORSZ(Z(1))\r\n      LSTZWD = NOZWDS- 1\r\n      GBUF1  = NOZWDS- SYSBUF - 2\r\n      GBUF2  = GBUF1 - SYSBUF\r\n      GBUF3  = GBUF2 - SYSBUF\r\n      SBUF1  = GBUF3 - SYSBUF\r\n      SBUF2  = SBUF1 - SYSBUF - 1\r\n      SBUF3  = SBUF2 - SYSBUF\r\n      KORLEN = SBUF3 - 1\r\n      KORBGN = 1\r\n      IF (KORLEN .LE. KORBGN) GO TO 290\r\nC\r\nC     INITIALIZE SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\nC\r\nC     INITIALIZE CASE CONTROL PARAMETERS\r\nC\r\n      DO 2 I = 1,12\r\n    2 INFILE(I) = 100 + I\r\n      DO 4 I = 1,6\r\n    4 OTFILE(I) = 200 + I\r\n      DO 6 I = 1, 10\r\n    6 ISCR(I) = 300 + I\r\n      ISCR11  = 311\r\n      DO 10 I = 1, 2\r\n      OLDNAM(I) = IBLANK\r\n   10 NEWNAM(I) = IBLANK\r\n      RANGE(1) = 0.0\r\n      RANGE(2) = 1.0E+35\r\n      FREBDY = .FALSE.\r\n      NMAX   = 2147483647\r\n      USRMOD = -1\r\n      IO     = 0\r\n      NRANGE = 0\r\n      BOUNDS = .FALSE.\r\n      MODES  = .FALSE.\r\n      RSAVE  = .FALSE.\r\n      PONLY  = .FALSE.\r\nC\r\nC     ** PROCESS CASE CONTROL\r\nC\r\n      IFILE  = CASECC\r\n      CALL OPEN (*260,CASECC,Z(GBUF2),0)\r\n      IF (STEP) 20,40,20\r\n   20 DO 30 I = 1, STEP\r\n   30 CALL FWDREC (*280,CASECC)\r\nC\r\nC     READ CASECC\r\nC\r\n   40 CALL READ (*270,*280,CASECC,Z(KORBGN),2,0,NWDSRD)\r\n      NWDSCC = Z(KORBGN+1)\r\n      DO 200 I = 1,NWDSCC,3\r\n      CALL READ (*270,*280,CASECC,Z(KORBGN),3,0,NWDSRD)\r\nC\r\nC     TEST CASE CONTROL MNEMONICS\r\nC\r\n      DO 50 J = 1,10\r\n      IF (Z(KORBGN) .EQ. NMONIC(J)) GO TO 60\r\n   50 CONTINUE\r\n      GO TO 200\r\nC\r\nC     SELECT DATA TO EXTRACT\r\nC\r\n   60 GO TO (70,90,110,120,140,150,160,170,180,190), J\r\nC\r\nC     EXTRACT NAME OF SUBSTRUCTURE BEING REDUCED\r\nC\r\n   70 DO 80 K = 1,2\r\n   80 OLDNAM(K) = Z(KORBGN+K)\r\n      GO TO 200\r\nC\r\nC     EXTRACT NAME OF REDUCED SUBSTRUCTURE\r\nC\r\n   90 DO 100 K = 1,2\r\n  100 NEWNAM(K) = Z(KORBGN+K)\r\n      GO TO 200\r\nC\r\nC     EXTRACT FREEBODY MODES FLAG\r\nC\r\n  110 FREBDY = .TRUE.\r\n      GO TO 200\r\nC\r\nC     EXTRACT FREQUENCY RANGE\r\nC\r\n  120 IF (NRANGE .EQ. 1) GO TO 130\r\n      NRANGE = 1\r\n      RANGE(1) = RZ(KORBGN+2)\r\n      GO TO 200\r\n  130 RANGE(2) = RZ(KORBGN+2)\r\n      GO TO 200\r\nC\r\nC     EXTRACT MAXIMUM NUMBER OF FREQUENCIES\r\nC\r\n  140 IF (Z(KORBGN+2) .EQ. 0) GO TO 200\r\n      NMAX = Z(KORBGN+2)\r\n      GO TO 200\r\nC\r\nC     EXTRACT USERMODE FLAG\r\nC\r\n  150 USRMOD = Z(KORBGN+2)\r\n      GO TO 200\r\nC\r\nC     EXTRACT OUTPUT FLAGS\r\nC\r\n  160 IO = ORF(IO,Z(KORBGN+2))\r\n      GO TO 200\r\nC\r\nC     EXTRACT OLDBOUND FLAG\r\nC\r\n  170 BOUNDS = .TRUE.\r\n      GO TO 200\r\nC\r\nC     EXTRACT OLDMODES FLAG\r\nC\r\n  180 MODES = .TRUE.\r\n      GO TO 200\r\nC\r\nC     EXTRACT REDUCTION SAVE FLAG\r\nC\r\n  190 RSAVE = .TRUE.\r\nC\r\n  200 CONTINUE\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     TEST FOR RUN = GO\r\nC\r\n      MRD2G = 1\r\n      IF (DRY .EQ. 0) GO TO 230\r\nC\r\nC     CHECK FOR USERMODE = TYPE 2\r\nC\r\n      IF (USRMOD .EQ. 2) GO TO 210\r\nC\r\nC     CHECK FOR STIFFNESS PROCESSING\r\nC\r\n      CALL RDTRL (ITRLR)\r\n      IF (ITRLR(1) .GT. 0) GO TO 208\r\nC\r\nC     CHECK FOR LOADS ONLY\r\nC\r\n      CALL SFETCH (NEWNAM,NHLODS,3,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 204\r\n      CALL SFETCH (NEWNAM,NHLOAP,3,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 204\r\n      MRD2G = 4\r\n      GO TO 230\r\n  204 MRD2G = 3\r\n      PONLY = .TRUE.\r\n      GO TO 230\r\nC\r\nC     PROCESS STIFFNESS MATRIX\r\nC\r\n  208 MRD2G = 2\r\n      CALL MRED2A\r\nC\r\nC     PROCESS OLDBOUND FLAG\r\nC\r\n      CALL MRED2B\r\nC\r\nC     PROCESS OLDMODES FLAG\r\nC\r\n      CALL MRED2C (1)\r\n      GO TO 220\r\nC\r\nC     PROCESS USERMODES FLAG\r\nC\r\n  210 CALL MRED2D\r\n      CALL MRED2C (3)\r\n      GO TO 240\r\nC\r\nC     CALCULATE MODAL TRANSFORMATION MATRIX\r\nC\r\n  220 CALL MRED2E\r\n      CALL MRED2C (2)\r\nC\r\nC     CALCULATE FREE BODY EFFECTS\r\nC\r\n      CALL MRED2F\r\nC\r\nC     CALCULATE STRUCTURAL MATRICES\r\nC\r\nC     MRD2G .EQ. 1, M,B,K4,P/PA PROCESSING (RUN = GO)\r\nC     MRD2G .EQ. 2, K,M,B,K4,P/PA PROCESSING\r\nC     MRD2G .EQ. 3, P/PA PROCESSING (ONLY)\r\nC     MRD2G .EQ. 4, M,B,K4,P/PA PROCESSING (RUN = STEP)\r\nC\r\n  230 CALL MRED2G (MRD2G)\r\n      IF (MRD2G .EQ. 1) GO TO 250\r\nC\r\nC     PROCESS NEW TABLE ITEMS\r\nC\r\n  240 CALL MRED2H\r\nC\r\nC     CLOSE ANY OPEN FILES\r\nC\r\n  250 CALL SOFCLS\r\n      IF (DRY .EQ. -2) WRITE (IPRNTR,900)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  260 IMSG = -1\r\n      GO TO 300\r\n  270 IMSG = -2\r\n      GO TO 300\r\n  280 IMSG = -3\r\n      GO TO 300\r\n  290 IMSG = -8\r\n      IFILE = 0\r\n  300 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\n  900 FORMAT (//,'  MODULE MREDUCE TERMINATING DUE TO ABOVE ERRORS.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2a.f",
    "content": "      SUBROUTINE MRED2A\r\nC\r\nC     THIS SUBROUTINE PARTITIONS THE STIFFNESS MATRIX INTO BOUNDARY AND\r\nC     INTERIOR POINTS AND THEN SAVES THE PARTITIONING VECTOR ON THE SOF\r\nC     AS THE UPRT ITEM FOR THE MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO - USETMR   - USET TABLE FOR REDUCED SUBSTRUCTURE\r\nC            KAA      - SUBSTRUCTURE STIFFNESS MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - KBB      - KBB PARTITION MATRIX\r\nC            KIB      - KIB PARTITION MATRIX\r\nC            KII      - KII PARTITION MATRIX\r\nC     SOF  - UPRT     - PARTITION VECTOR FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFER\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC     OTHERS - USETMR - USETMR INPUT FILE NUMBER\r\nC              KAA    - KAA INPUT FILE NUMBER\r\nC              KBB    - KBB OUTPUT FILE NUMBER\r\nC              KIB    - KIB OUTPUT FILE NUMBER\r\nC              KII    - KII OUTPUT FILE NUMBER\r\nC              UPRT   - KAA PARTITION VECTOR FILE NUMBER\r\nC\r\n      LOGICAL         BOUNDS\r\n      INTEGER         DRY,GBUF1,OLDNAM,USRMOD,Z,UN,UB,UI,FUSET,\r\n     1                USETMR,UPRT,EQST,MODNAM(2),ITRLR(7)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM6,GBUF1,IDUM2(5),INFILE(12),\r\n     1                IDUM3(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2),\r\n     2                IDUM7(6),USRMOD,IDUM9,BOUNDS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BITPOS/ IDUM4(9),UN,IDUM5(10),UB,UI\r\n      COMMON /PATX  / LCORE,NSUB(3),FUSET\r\n      COMMON /SYSTEM/ IDUM8,IPRNTR\r\n      EQUIVALENCE     (EQST,INFILE(4)),(USETMR,INFILE(5)),\r\n     1                (KAA,INFILE(6)),(KBB,ISCR(1)),(KIB,ISCR(2)),\r\n     2                (KII,ISCR(3)),(UPRT,ISCR(5))\r\n      DATA    MODNAM/ 4HMRED,4H2A  /\r\n      DATA    ITEM  / 4HUPRT/\r\nC\r\nC     LOCATE PARTITIONING VECTOR\r\nC\r\n      IF (DRY .EQ. -2) GO TO 100\r\n      IF (BOUNDS) GO TO 10\r\n      LCORE = KORLEN\r\n      FUSET = USETMR\r\n      CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN))\r\n      GO TO 20\r\n   10 CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 30\r\n      ITRLR(1) = EQST\r\n      CALL RDTRL (ITRLR)\r\n      NSUB(1) = ITRLR(6)\r\n      NSUB(2) = ITRLR(7)\r\nC\r\nC     PARTITION STIFFNESS MATRIX\r\nC\r\nC                  **         **\r\nC                  *     .     *\r\nC        **   **   * KBB . KBI *\r\nC        *     *   *     .     *\r\nC        * KAA * = *...........*\r\nC        *     *   *     .     *\r\nC        **   **   * KIB . KII *\r\nC                  *     .     *\r\nC                  **         **\r\nC\r\n   20 CONTINUE\r\n      CALL GMPRTN (KAA,KII,0,KIB,KBB,UPRT,UPRT,NSUB(1),NSUB(2),\r\n     1             Z(KORBGN),KORLEN)\r\nC\r\nC     SAVE PARTITIONING VECTOR\r\nC\r\n      IF (BOUNDS) GO TO 25\r\n      CALL MTRXO (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 30\r\n   25 CONTINUE\r\n      GO TO 100\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   30 GO TO (40,45,50,55,60,80), ITEST\r\n   40 IMSG = -9\r\n      GO TO 90\r\n   45 IMSG = -11\r\n      GO TO 90\r\n   50 IMSG = -1\r\n      GO TO 70\r\n   55 IMSG = -2\r\n      GO TO 70\r\n   60 IMSG = -3\r\n   70 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 100\r\n   80 IMSG = -10\r\n   90 DRY = -2\r\n      CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM)\r\n  100 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2b.f",
    "content": "      SUBROUTINE MRED2B\r\nC\r\nC     THIS SUBROUTINE PERFORMS THE GUYAN REDUCTION ON THE STRUCTURE\r\nC     POINTS FOR THE MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO   - KII    - KII PARTITION MATRIX\r\nC     SOF    - GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                       ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO   - LII    - LII PARTITION MATRIX\r\nC     SOF    - LMTX   - LII PARTITION MATRIX\r\nC              GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                       ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFER\r\nC              ISCR   - SCRATCH FILE NUMBER ARRAY\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEGING REDUCED\r\nC              BOUNDS - OLDBOUNDS OPTION FLAG\r\nC              RSAVE  - DECOMPOSITION SAVE FLAG\r\nC     OTHERS - KIB    - KIB PARTITION MATRIX FILE NUMBER\r\nC              KII    - KII PARTITION MATRIX FILE NUMBER\r\nC              LII    - LII PARTITION MATRIX FILE NUMBER (ISCR11)\r\nC\r\n      LOGICAL         BOUNDS,RSAVE\r\n      INTEGER         DRY,SBUF1,SBUF2,SBUF3,OLDNAM,Z,POWER,CHLSKY,U,\r\n     1                GIBT,PREC,SIGN,GIB,DBLKOR,DMR\r\n      DOUBLE          PRECISION DETR,DETI,MINDIA,DZ\r\n      DIMENSION       ITRLR(7),MODNAM(2),ITMLST(2),DZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /BLANK / IDUM1,DRY,IDUM4(4),SBUF1,SBUF2,SBUF3,INFILE(12),\r\n     1                IDUM6(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2),\r\n     2                IDUM2(8),BOUNDS,IDUM3,RSAVE,IDUM7(4),LSTZWD,ISCR11\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SFACT / KIIT(7),LIIT(7),ISCRQ(7),ISCRA,ISCRB,NZSF,\r\n     1                DETR,DETI,POWER,ISCRC,MINDIA,CHLSKY\r\n      COMMON /FBSX  / LIIFBS(7),U(7),KIBT(7),GIBT(7),NZFBS,PREC,SIGN\r\n      COMMON /SYSTEM/ IDUM5,IPRNTR\r\n      EQUIVALENCE     (DMR,INFILE(11)),(GIB,ISCR(6)),(DZ(1),Z(1)),\r\n     1                (KIB,ISCR(2)),(KII,ISCR(3)),(LII,ISCR11)\r\n      DATA    MODNAM/ 4HMRED,4H2B  /\r\n      DATA    LOWER / 4 /\r\n      DATA    ITMLST/ 4HLMTX,4HGIMS/\r\nC\r\nC     TEST FOR GUYAN REDUCTION\r\nC\r\n      IF (DRY .EQ. -2) GO TO 140\r\n      IF (.NOT.BOUNDS) GO TO 10\r\n      ITRLR(1) = DMR\r\n      CALL RDTRL (ITRLR)\r\n      IF (ITRLR(1) .LT. 0) GO TO 35\r\n      ITEM = ITMLST(1)\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR)\r\n      IF (ITRLR(1) .EQ. 1) GO TO 35\r\nC\r\nC     DECOMPOSE INTERIOR STIFFNESS MATRIX\r\nC\r\nC                                 T\r\nC        **   **   **   ** **   **\r\nC        *     *   *     * *     *\r\nC        * KII * = * LII * * LII *\r\nC        *     *   *     * *     *\r\nC        **   **   **   ** **   **\r\nC\r\n   10 CALL SOFCLS\r\n      KIIT(1) = KII\r\n      CALL RDTRL (KIIT)\r\n      CALL MAKMCB (LIIT,LII,KIIT(3),LOWER,KIIT(5))\r\n      ISCRQ(1) = ISCR(6)\r\n      ISCRA  = ISCR(7)\r\n      ISCRB  = ISCR(8)\r\n      ISCRC  = ISCR(9)\r\n      POWER  = 1\r\n      CHLSKY = 0\r\n      DBLKOR = 1 + KORBGN/2\r\n      NZSF   = LSTZWD - 2*DBLKOR - 1\r\n      CALL SDCOMP (*40,DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (LIIT)\r\nC\r\nC     SAVE LII AS LMTX ON SOF\r\nC\r\n      IF (.NOT. RSAVE) GO TO 20\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      IFILE = LII\r\n      ITEM  = ITMLST(1)\r\n      CALL MTRXO (LII,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 70\r\n      IF (BOUNDS) GO TO 35\r\n      CALL SOFCLS\r\nC\r\nC     SOLVE STRUCTURE REDUCTION TRANSFORMATION MATRIX\r\nC\r\nC                       T\r\nC        **   ** **   ** **   **    **   **\r\nC        *     * *     * *     *    *     *\r\nC        * LII * * LII * * GIB * = -* KIB *\r\nC        *     * *     * *     *    *     *\r\nC        **   ** **   ** **   **    **   **\r\nC\r\n   20 IF (BOUNDS) GO TO 32\r\n      KIBT(1) = KIB\r\n      CALL RDTRL (KIBT)\r\n      DO 30 I = 1,7\r\n   30 LIIFBS(I) = LIIT(I)\r\n      CALL MAKMCB (GIBT,GIB,KIBT(3),KIBT(4),KIBT(5))\r\n      NZFBS = LSTZWD - 2*DBLKOR\r\n      PREC  = KIBT(5)\r\n      SIGN  = -1\r\n      CALL FBS (DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (GIBT)\r\nC\r\nC     SAVE GIB AS GIMS ON SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      IFILE = GIB\r\n      ITEM  = ITMLST(2)\r\n      CALL MTRXO (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 70\r\n      GO TO 35\r\n   32 CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n   35 CONTINUE\r\n      GO TO 140\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   40 WRITE  (IPRNTR,45) SWM,OLDNAM\r\n   45 FORMAT (A27,' 6311, SDCOMP DECOMPOSITION FAILED ON KII MATRIX ',\r\n     1       'FOR SUBSTRUCTURE ',2A4)\r\n      IMSG  = -37\r\n      IFILE = 0\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 140\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   70 GO TO (80,80,80,90,100,120), ITEST\r\n   80 IMSG = -9\r\n      GO TO 130\r\n   90 IMSG = -2\r\n      GO TO 110\r\n  100 IMSG = -3\r\n  110 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 140\r\n  120 IMSG = -10\r\n  130 DRY = -2\r\n      CALL SMSG1 (IMSG,ITEM,OLDNAM,MODSAM)\r\n  140 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2c.f",
    "content": "      SUBROUTINE MRED2C (KODE)\r\nC\r\nC     THIS SUBROUTINE PROCESSES THE OLDMODES OPTION FLAG FOR THE MRED2\r\nC     MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO - LAMAMR   - EIGENVALUE TABLE  FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISS    - EIGENVCTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED\r\nC     SOF  - LAMS     - EIGENVALUE  TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS     - EIGENVCTOR  TABLE FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - LAMAMR   - EIGENVALUE TABLE  FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISS    - EIGENVCTOR MATRIX FOR SUBSTRUCTURE BEING REDUCED\r\nC     SOF  - LAMS     - EIGENVALUE TABLE  FOR ORIGINAL SUBSTRUCTURE\r\nC            PHIS     - EIGENVCTOR MATRIX FOR ORIGINAL SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFER\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC              MODES  - OLDMODES OPTION FLAG\r\nC              LAMAAP - BEGINNING ADDRESS OF LAMS RECORD TO BE APPENDED\r\nC              NFOUND - NUMBER OF MODAL POINTS USED\r\nC              MODLEN - LENGTH OF MODE USE ARRAY\r\nC     OTHERS - LAMAMR - LAMAMR INPUT FILE NUMBER\r\nC              PHIS   - PHIS INPUT FILE NUMBER\r\nC              LAMS   - LAMS INPUT FILE NUMBER\r\nC              PHISS  - PHISS INPUT FILE NUMBER\r\nC\r\n      LOGICAL         MODES\r\n      INTEGER         DRY,GBUF1,OLDNAM,Z,PHIS,PHISS,RGDFMT\r\n      DIMENSION       MODNAM(2),ITMLST(2)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM7,GBUF1,IDUM2(5),INFILE(12),\r\n     1                IDUM3(6),ISCR(10),KORLEN,KORBGN,OLDNAM(2),\r\n     2                IDUM5(9),MODES,IDUM6,LAMAAP,NFOUND,MODLEN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM4,IPRNTR\r\n      EQUIVALENCE     (LAMAMR,INFILE(2)),(PHIS,INFILE(3)),\r\n     1                (LAMS,ISCR(5)),(PHISS,ISCR(6))\r\n      DATA    MODNAM/ 4HMRED,4H2C  /\r\n      DATA    ITMLST/ 4HPHIS,4HLAMS/\r\n      DATA    RGDFMT/ 3 /\r\nC\r\nC     TEST OPERATION FLAG\r\nC\r\n      IF (DRY .EQ. -2) GO TO 200\r\n      IF (KODE .GT. 1) GO TO 20\r\nC\r\nC     TEST OLDMODES OPTION FLAG\r\nC\r\n      IF (MODES) GO TO 10\r\nC\r\nC     STORE GINO PHIS AS PHIS ON SOF\r\nC\r\n      IFILE = PHIS\r\n      CALL MTRXO (PHIS,OLDNAM,ITMLST(1),0,ITEST)\r\n      ITEM  = ITMLST(1)\r\n      IF (ITEST .NE. 3) GO TO 120\r\n      GO TO 200\r\nC\r\nC     READ SOF PHIS ONTO GINO PHIS SCRATCH FILE\r\nC\r\n   10 CALL MTRXI (PHISS,OLDNAM,ITMLST(1),0,ITEST)\r\n      ITEM = ITMLST(1)\r\n      IF (ITEST .NE. 1) GO TO 120\r\nC\r\nC     READ SOF LAMS ONTO GINO LAMAMR SCRATCH FILE\r\nC\r\n      CALL SFETCH (OLDNAM,ITMLST(2),1,ITEST)\r\n      ITEM = ITMLST(2)\r\n      IF (ITEST .GT. 1) GO TO 120\r\n      CALL GOPEN  (LAMS,Z(GBUF1),1)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL WRITE  (LAMS,Z(KORBGN),NWDSRD,1)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL WRITE  (LAMS,Z(KORBGN),NWDSRD,1)\r\n      CALL CLOSE  (LAMS,1)\r\nC\r\nC     SWITCH FILE NUMBERS\r\nC\r\n      PHIS   = PHISS\r\n      LAMAMR = LAMS\r\n      GO TO 200\r\nC\r\nC     STORE LAMAMR (TABLE) AS LAMS ON SOF\r\nC\r\n   20 IF (MODES) GO TO 70\r\n      ITEM = ITMLST(2)\r\n      CALL DELETE (OLDNAM,ITEM,ITEST)\r\n      IF (ITEST.EQ.2 .OR. ITEST.GT.3) GO TO 120\r\n      IFILE = LAMAMR\r\n      CALL GOPEN (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*100,LAMAMR)\r\n      ITEST = 3\r\n      CALL SFETCH (OLDNAM,ITMLST(2),2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 120\r\n      DO 30 I = 1,2\r\n   30 Z(KORBGN+I-1) = OLDNAM(I)\r\n      Z(KORBGN+2  ) = RGDFMT\r\n      Z(KORBGN+3  ) = MODLEN\r\n      CALL SUWRT (Z(KORBGN),4,2)\r\n      LAMWDS = MODLEN - 1\r\n      IF (LAMWDS .LT. 1) GO TO 55\r\n      DO 50 I = 1,LAMWDS\r\n      CALL READ  (*90,*100,LAMAMR,Z(KORBGN),7,0,NWDS)\r\n   50 CALL SUWRT (Z(KORBGN),7,1)\r\n   55 CALL READ  (*90,*100,LAMAMR,Z(KORBGN),7,0,NWDS)\r\n      CALL CLOSE (LAMAMR,1)\r\n      CALL SUWRT (Z(KORBGN),7,2)\r\n      IF (KODE .EQ. 3) GO TO 60\r\n      CALL SUWRT (Z(LAMAAP),MODLEN,2)\r\n      CALL SUWRT (Z(LAMAAP),0,3)\r\n      GO TO 70\r\n   60 DO 65 I = 1,MODLEN\r\n   65 Z(KORBGN+I-1) = 1\r\n      CALL SUWRT (Z(KORBGN),MODLEN,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\n   70 CONTINUE\r\n      GO TO 200\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   90 IMSG = -2\r\n      GO TO 110\r\n  100 IMSG = -3\r\n  110 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 200\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  120 GO TO (130,135,140,150,160,180), ITEST\r\n  130 IMSG = -9\r\n      GO TO 190\r\n  135 ISMG = -11\r\n      GO TO 190\r\n  140 IMSG = -1\r\n      GO TO 170\r\n  150 IMSG = -2\r\n      GO TO 170\r\n  160 IMSG = -3\r\n  170 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 200\r\n  180 IMSG = -10\r\n  190 DRY  = -2\r\n      CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2d.f",
    "content": "      SUBROUTINE MRED2D\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE MODAL MASS AND STIFFNESS MATRICES\r\nC     IF USERMODE = TYPE2 FOR THE MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO - USETMR  - USET TABLE FOR REDUCED SUBSTRUCTURE\r\nC            LAMAMR  - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC            PHISS   - EIGENVECTORS FOR SUBSTRUCTURE BEING REDUCED\r\nC            QSM     - MODEL REACTION MATRIX\r\nC            PAA     - SUBSTRUCTURE LOAD MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO - KHH     - REDUCED STIFFNESS MATRIX\r\nC            MHH     - REDUCED MASS MATRIX\r\nC            PHH     - REDUCED LOAD MATRIX\r\nC     SOF  - HORG    - H TRANSFORMATION MATRIX\r\nC            KMTX    - STIFFNESS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            MMTX    - MASS MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            PVEC    - LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            PAPP    - APPENDED LOAD MATRIX FOR REDUCED SUBSTRUCTURE\r\nC            POVE    - INTERNAL POINT LOADS FOR ORIGINAL SUBSTRUCTURE\r\nC            POAP    - INTERNAL POINTS APPENDED LOADS FOR ORIGINAL\r\nC                       SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT - DRY    - MODULE OPERATION FALG\r\nC             GBUF   - GINO BUFFERS\r\nC             INFILE - INPUT FILE NUMBERS\r\nC             OTFILE - OUTPUT FILE NUMBERS\r\nC             ISCR   - SCRATCH FILE NUMBERS\r\nC             KORLEN - LENGTH OF OPEN CORE\r\nC             KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC             OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC             NEWNAM - NAME OF REDUCED SUBSTRUCTURE\r\nC             USRMOD - USERMODE FLAG\r\nC\r\n      INTEGER         DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM,\r\n     1                USRMOD,Z,UL,UA,UF,US,UN,UB,TYPIN,TYPOUT,TYPEA,\r\n     2                TYPEB,PAA,PHH,RPRTN,CPRTN,BBZERO,ZERO,USETMR,SNB,\r\n     3                PAPP\r\n      DIMENSION       ITRLR(7),ITRLR1(7),ITRLR2(7),MODNAM(2),ITMLST(6),\r\n     1                BLOCK(11),ISUB(4),ITMNAM(2),RZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM3(2),SBUF1,SBUF2,SBUF3,\r\n     1                INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                OLDNAM(2),NEWNAM(2),IDUM4(4),USRMOD,IDUM2(5),\r\n     3                NMODES\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /BITPOS/ IDUM5(5),UL,UA,UF,US,UN,IDUM6(10),UB\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /SYSTEM/ IDUM7,IPRNTR\r\n      EQUIVALENCE     (USETMR,INFILE(5)),(KBB,INFILE(6)),\r\n     1                (MBB,INFILE(7)),(PAA,INFILE(10)),\r\n     2                (KHH,OTFILE(1)),(MHH,OTFILE(2)),(PHH,OTFILE(5)),\r\n     3                (RPRTN,ISCR(8)),(CPRTN,ISCR(8)),(K,ISCR(3)),\r\n     4                (BBZERO,ISCR(9)),(M,ISCR(10)),(ZERO,ISCR(3)),\r\n     5                (RZ(1),Z(1)),(TYPEA,BLOCK(1)),(TYPEB,BLOCK(7))\r\n      DATA    MODNAM/ 4HMRED,4H2D  /\r\n      DATA    PAPP  / 4HPAPP/\r\n      DATA    MRED2 / 27    /\r\n      DATA    ITMLST/ 4HKMTX,4HMMTX,4HPVEC,4HPAPP,4HPOVE,4HPOAP/\r\nC\r\nC     CHECK USERMODE OPTION FLAG\r\nC\r\n      IF (DRY .EQ. -2) GO TO 400\r\nC\r\nC     COUNT NUMBER OF FREE, FIXED POINTS WITHIN BOUNDARY SET\r\nC\r\n      ITRLR(1) = USETMR\r\n      CALL RDTRL(ITRLR)\r\n      IFILE = USETMR\r\n      IF (ITRLR(1) .LT. 0) GO TO 270\r\n      LUSET = ITRLR(3)\r\n      IF ((KORBGN + LUSET) .GE. KORLEN) GO TO 280\r\n      CALL GOPEN (USETMR,Z(GBUF1),0)\r\n      CALL READ  (*260,*270,USETMR,Z(KORBGN),LUSET,0,NWDSRD)\r\n      CALL CLOSE (USETMR,1)\r\n      NUF   = 0\r\n      NUS   = 0\r\n      SNB   = ITWO(US) + ITWO(UN) + ITWO(UB)\r\n      LAFNB = ITWO(UL) + ITWO(UA) + ITWO(UF) + ITWO(UN) + ITWO(UB)\r\n      DO 10 I = 1,LUSET\r\n      IF (Z(KORBGN+I-1) .EQ. LAFNB) NUF = NUF + 1\r\n      IF (Z(KORBGN+I-1) .EQ.   SNB) NUS = NUS + 1\r\n   10 CONTINUE\r\nC\r\nC     IF FIXED SET, COMPUTE GS MATRIX\r\nC\r\n      IF (NUS .EQ. 0) GO TO 20\r\n      CALL MRED2I (1,0,0)\r\nC\r\nC     IF FREE SET, PARTITION PHISS\r\nC\r\n   20 IF (NUF .EQ. 0) GO TO 50\r\n      CALL MRED2J (NUF,N2)\r\nC\r\nC     FORM HK MATRIX\r\nC\r\n      CALL MRED2L (NUF,N2,NUS,UFBITS)\r\n   50 CALL MRED2M (NUF,N2,NUS)\r\nC\r\nC     COMPUTE K MATRIX\r\nC\r\n      CALL MRED2N\r\nC\r\nC     COMPUTE HM MATRIX\r\nC\r\n      CALL MRED2O (NUS)\r\nC\r\nC     OUTPUT HORG\r\nC\r\n      CALL MRED2P (NUS,NUF,N2)\r\nC\r\nC     PROCESS STIFFNESS, MASS MATRICES\r\nC     II = 1, PROCESS STIFFNESS MATRIX\r\nC     II = 2, PROCESS MASS MATRIX\r\nC\r\n      IF (DRY .EQ. -2) GO TO 240\r\n      CALL SETLVL (NEWNAM,1,OLDNAM,ITEST,MRED2)\r\n      IF (ITEST .EQ. 8) GO TO 380\r\n      DO 190 II = 1,2\r\n      ITRLR1(1) = KBB\r\n      KM   = K\r\n      KMHH = KHH\r\n      IF (II .EQ. 1) GO TO 60\r\n      ITRLR1(1) = MBB\r\n      KM   = M\r\n      KMHH = MHH\r\n   60 KMBB = ITRLR1(1)\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 160\r\n      CALL SOFCLS\r\nC\r\nC     FORM MERGE VECTOR\r\nC\r\n      JROW   = ITRLR1(3)\r\n      KOLUMN = ITRLR1(2)\r\n      ITRLR2(1) = KM\r\n      CALL RDTRL (ITRLR2)\r\n      NROW   = ITRLR2(3)\r\n      KOLMNS = ITRLR2(2)\r\n      DO 130 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. JROW) RZ(KORBGN+I-1) = 1.0\r\n  130 CONTINUE\r\n      IFORM  = 7\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\n      CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),RPRTN,ITRLR1)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     MERGE (K,M)BB MATRIX WITH ZERO MATRICES\r\nC\r\n      ISUB(1) = KOLUMN\r\n      ISUB(2) = KOLMNS - KOLUMN\r\n      ISUB(3) = JROW\r\n      ISUB(4) = NROW - JROW\r\n      ITYPE   = 1\r\n      CALL GMMERG (BBZERO,KMBB,0,0,0,RPRTN,RPRTN,ISUB,ITYPE,Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     FORM STIFFNESS, MASS MATRICES\r\nC\r\nC                                  **           **\r\nC                                  *         .   *\r\nC        **       **   **     **   * (K,M)BB . 0 *\r\nC        *         *   *       *   *         .   *\r\nC        * (K,M)HH * = * (K,M) * + *.............*\r\nC        *         *   *       *   *         .   *\r\nC        **       **   **     **   *    0    . 0 *\r\nC                                  *         .   *\r\nC                                  **           **\r\n      DO 150 I = 1,11\r\n  150 BLOCK(I) = 0.0\r\n      BLOCK(2) = 1.0\r\n      BLOCK(8) = 1.0\r\n      TYPEA = ITRLR2(5)\r\n      TYPEB = ITRLR1(5)\r\n      IOP   = 1\r\n      CALL SSG2C (KM,BBZERO,KMHH,IOP,BLOCK)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      GO TO 170\r\nC\r\nC     NO BB MATRIX PARTITION\r\nC\r\n  160 KMHH = KM\r\nC\r\nC     STORE MATRIX ON SOF\r\nC     II = 1, STORE KHH AS KMTX\r\nC     II = 2, STORE MHH AS MMTX\r\nC\r\n  170 ITEM      = ITMLST(II)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL MTRXO (KMHH,NEWNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 300\r\n  190 CONTINUE\r\nC\r\nC     PROCESS LOAD DATA\r\nC\r\n      ITRLR1(1) = PAA\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 240\r\nC\r\nC     EXPAND PAA FOR MODAL DOF\r\nC\r\nC                  **   **\r\nC                  *     *\r\nC        **   **   * PAA *\r\nC        *     *   *     *\r\nC        * PHH * = *.....*\r\nC        *     *   *     *\r\nC        **   **   *  0  *\r\nC                  *     *\r\nC                  **   **\r\nC\r\n      NROW = ITRLR1(3) + N2\r\n      IF (N2 .EQ. 0) NROW = NROW + (NMODES - NUF)\r\n      IFORM  = 7\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\n      CALL MAKMCB (ITRLR2,CPRTN,NROW,IFORM,TYPIN)\r\n      DO 230 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. ITRLR1(3)) RZ(KORBGN+I-1) = 1.0\r\n  230 CONTINUE\r\n      CALL GOPEN (CPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),CPRTN,ITRLR2)\r\n      CALL CLOSE (CPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\nC\r\nC     MERGE PAA WITH ZERO MATRIX\r\nC\r\n      ISUB(3) = ITRLR1(3)\r\n      ISUB(4) = N2\r\n      IF (N2 .EQ. 0) ISUB(4) = NMODES - NUF\r\n      ITYPE   = 1\r\n      CALL GMMERG (PHH,PAA,0,0,0,0,CPRTN,ISUB,ITYPE,Z(KORBGN),KORLEN)\r\nC\r\nC     SAVE PHH AS PVEC OR PAPP ON SOF\r\nC\r\n      ITEM = ITMLST(3)\r\n      IF (POPT .EQ. PAPP) ITEM = ITMLST(4)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL MTRXO (PHH,NEWNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 300\r\nC\r\nC     STORE NULL MATRIX AS POVE OR POAP ON SOF\r\nC\r\n      IFORM  = 2\r\n      KOLMNS = ITRLR1(2)\r\n      NROW   = N2\r\n      IF (N2 .EQ. 0) NROW = NMODES - NUF\r\n      CALL MAKMCB (ITRLR2,ZERO,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (ZERO,Z(GBUF1),1)\r\n      DO 234 I = 1,KOLMNS\r\n      DO 232 J = 1,NROW\r\n  232 RZ(KORBGN+J-1) = 0.0\r\n  234 CALL PACK (Z(KORBGN),ZERO,ITRLR2)\r\n      CALL CLOSE (ZERO,1)\r\n      CALL WRTTRL (ITRLR2)\r\n      ITEM = ITMLST(5)\r\n      IF (POPT .EQ. PAPP) ITEM = ITMLST(6)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL MTRXO (ZERO1,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 300\r\n  240 CONTINUE\r\n      GO TO 400\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  260 IMSG = -2\r\n      GO TO 290\r\n  270 IMSG = -3\r\n      GO TO 290\r\n  280 IMSG = -8\r\n      IFILE = 0\r\n  290 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 400\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  300 GO TO (310,320,330,340,350,370), ITEST\r\n  310 IMSG = -9\r\n      GO TO 390\r\n  320 IMSG = -11\r\n      GO TO 390\r\n  330 IMSG = -1\r\n      GO TO 360\r\n  340 IMSG = -2\r\n      GO TO 360\r\n  350 IMSG = -3\r\n  360 CALL SMSG (IMSG,ITEM,ITMNAM)\r\n      GO TO 400\r\n  370 IMSG = -10\r\n      GO TO 390\r\n  380 WRITE  (IPRNTR,385) UFM\r\n  385 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ',\r\n     1       'USED IN A PREVIOUS COMBINE OR REDUCE.')\r\n      DRY = -2\r\n      GO TO 400\r\n  390 DRY = -2\r\n      CALL SMSG1 (IMSG,ITEM,ITMNAM,MODNAM)\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2e.f",
    "content": "      SUBROUTINE MRED2E\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE MODAL TRANSFORMATION MATRIX FOR THE\r\nC     MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO   - LAMAMR - EIGENVALUE TABLE FOR SUBSTRUCTURE BEING REDUCED\r\nC              PHISS  - EIGENVECTOR MATRIX FOR SUBSTRUCTURE BEING REDUCE\r\nC     SOF    - GIMS   - G TRANSFORMATION MATRIX FOR ORIGINAL SUBSTRUCTUR\r\nC\r\nC     OUTPUT DATA\r\nC     GINO   - HIM    - HIM MATRIX PARTITION\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFERS\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              OTFILE - OUTPUT FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC              NMAX   - MAXIMUM NUMBER OF FREQUENCIES TO BE USED\r\nC     OUTPUT - MODUSE - BEGINNING ADDRESS OF MODE USE DESCRIPTION ARRAY\r\nC              MODLEN - LENGTH OF MODE USE ARRAY\r\nC              NFOUND - NUMBER OF MODAL POINTS FOUND\r\nC     OTHERS - HIMPRT - HIM PARTITION VECTOR\r\nC              PPRTN  - PHISS MATRIX PARTITION VECTOR\r\nC              PHIAM  - PHIAM MATRIX PARTITION\r\nC              PHIBM  - PHIBM MATRIX PARTITION\r\nC              PHIIM  - PHIIM MATRIX PARTITION\r\nC              IPARTN - BEGINNING ADDRESS OF PHISS PARTITION VECTOR\r\nC              LAMAMR - LAMAMR INPUT FILE NUMBER\r\nC              PHISS  - PHISS INPUT FILE NUMBER\r\nC              PPRTN  - PARTITION VECTOR FILE NUMBER\r\nC              HIMPRT - HIM PARTITION VECTOR FILE NUMBER\r\nC              GIB    - GIB INPUT FILE NUMBER\r\nC              PHIAM  - PHIAM PARTITION MATRIX FILE NUMBER\r\nC              PHIBM  - PHIBM PARTITION MATRIX FILE NUMBER\r\nC              PHIIM  - PHIIM PARTITION MATRIX FILE NUMBER\r\nC              HIM    - HIM INPUT FILE NUMBER\r\nC              HIMSCR - HIM SCRATCH INPUT FILE NUMBER\r\nC\r\n      LOGICAL          FREBDY\r\n      INTEGER          DRY,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,SBUF3,OTFILE,\r\n     1                 OLDNAM,Z,TYPIN,TYPEP,FUSET,UN,UB,UI\r\n      INTEGER          T,SIGNAB,SIGNC,PREC,SCR,RULE,TYPEU,PHISS\r\n      INTEGER          PPRTN,GIB,PHIAM,PHIBM,PHIIM,HIM,HIMSCR,HIMPRT,\r\n     1                 USETMR,HIMTYP,FBMODS,DBLKOR,SGLKOR,DICORE\r\n      DOUBLE PRECISION DZ,DHIMSM,DHIMAG\r\n      DIMENSION        MODNAM(2),RZ(1),ITRLR(7),DZ(1)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  IDUM1,DRY,IDUM6,GBUF1,GBUF2,GBUF3,SBUF1,SBUF2,\r\n     1                 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,\r\n     2                 KORBGN,OLDNAM(2),IDUM4(2),FREBDY,RANGE(2),NMAX,\r\n     3                 IDUM5(5),MODUSE,NFOUND,MODLEN,IDUM2,LSTZWD\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /PACKX /  TYPIN,TYPEP,IROWP,NROWP,INCRP\r\n      COMMON /PATX  /  LCORE,NSUB(3),FUSET\r\n      COMMON /MPYADX/  ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T,\r\n     1                 SIGNAB,SIGNC,PREC,SCR\r\n      COMMON /BITPOS/  IDUM3(9),UN,IDUM7(10),UB,UI\r\n      COMMON /PARMEG/  IA(7),IA11(7),IA21(7),IA12(7),IA22(7),LCR,RULE\r\n      COMMON /UNPAKX/  TYPEU,IROWU,NROWU,INCRU\r\n      COMMON /SYSTEM/  IDUM8,IPRNTR\r\n      EQUIVALENCE      (LAMAMR,INFILE(2)),(PHISS,INFILE(3)),\r\n     1                 (USETMR,INFILE(5))\r\n      EQUIVALENCE      (GIB,ISCR(8)),(PPRTN,ISCR(5)),\r\n     1                 (HIM,ISCR(8)),\r\n     2                 (HIMPRT,ISCR(9)),(PHIBM,ISCR(9))\r\n      EQUIVALENCE      (RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/  4HMRED,4H2E  /\r\n      DATA    EPSLON,  ISCR4,FBMODS /1.0E-03,304,6/\r\n      DATA    ITEM  /  4HGIMS       /\r\nC\r\nC     READ LAMAMR FILE\r\nC\r\n      IF (DRY .EQ. -2) GO TO 300\r\n      KORE  = KORBGN\r\n      IFILE = LAMAMR\r\n      CALL GOPEN (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*170,LAMAMR)\r\n      ITER = 0\r\n    2 CALL READ (*160,*4,LAMAMR,Z(KORBGN),7,0,NWDS)\r\nC\r\nC     REJECT MODES WITH NO ASSOCIATED VECTORS\r\nC\r\n      IF (RZ(KORBGN+5) .LE. 0.0) GO TO 2\r\n      KORBGN = KORBGN + 7\r\n      IF (KORBGN .GE. KORLEN) GO TO 180\r\n      ITER = ITER + 1\r\n      GO TO 2\r\n    4 CALL CLOSE (LAMAMR,1)\r\nC\r\nC     ZERO OUT PARTITIONING VECTOR AND SET UP MODE USE DESCRIPTION\r\nC     RECORD\r\nC\r\n      MODEXT  = KORBGN\r\n      ITRLR(1)= PHISS\r\n      CALL RDTRL (ITRLR)\r\n      ITPHIS  = ITRLR(2)\r\n      NROWS   = ITRLR(3)\r\n      IF ((3*ITPHIS)+MODEXT .GE. KORLEN) GO TO 180\r\n      LAMLEN  = 7*ITPHIS\r\n      NNMAX   = MIN0(NMAX,ITPHIS)\r\n      MODUSE  = MODEXT + ITPHIS\r\n      IPARTN  = MODEXT + 2*ITPHIS\r\n      MODLEN  = ITPHIS\r\n      DO 10 I = 1,ITPHIS\r\n      Z(MODEXT+I-1) = 0\r\n      Z(MODUSE+I-1) = 3\r\n   10 RZ(IPARTN+I-1) = 0.0\r\nC\r\nC     SELECT DESIRED MODES\r\nC\r\n      KORBGN = MODEXT + 3*ITPHIS\r\n      IF (KORBGN .GE. KORLEN) GO TO 180\r\n      NFOUND = 0\r\n      DO 20 I = 1,ITPHIS\r\n      J = 4 + 7*(I-1)\r\n      IF (RZ(KORE+J).LE.RANGE(1) .OR. RZ(KORE+J).GE.RANGE(2)) GO TO 20\r\nC\r\nC     REMOVE MODES WITH NEGATIVE EIGENVALUES\r\nC\r\n      IF (RZ(KORE+J-2) .LT. 0.0) GO TO 20\r\n      Z(MODEXT+NFOUND) = I\r\n      NFOUND = NFOUND + 1\r\n      Z(MODUSE +I-1) = 1\r\n      RZ(IPARTN+I-1) = 1.0\r\n   20 CONTINUE\r\nC\r\nC     PACK OUT PARTITIONING VECTOR\r\nC\r\n      TYPIN = 1\r\n      TYPEP = 1\r\n      IROWP = 1\r\n      NROWP = ITRLR(2)\r\n      INCRP = 1\r\n      IFORM = 2\r\n      CALL MAKMCB (ITRLR,PPRTN,NROWP,IFORM,TYPIN)\r\n      CALL GOPEN (PPRTN,Z(GBUF1),1)\r\n      CALL PACK (RZ(IPARTN),PPRTN,ITRLR)\r\n      CALL CLOSE (PPRTN,1)\r\n      CALL WRTTRL (ITRLR)\r\nC\r\nC     PARTITION PHISS MATRIX\r\nC\r\nC        **     **   **         **\r\nC        *       *   *   .       *\r\nC        * PHISS * = * 0 . PHIAM *\r\nC        *       *   *   .       *\r\nC        **     **   **         **\r\nC\r\n      NSUB(1) = ITPHIS - NFOUND\r\n      NSUB(2) = NFOUND\r\n      NSUB(3) = 0\r\n      LCORE   = KORLEN - KORBGN\r\n      ICORE   = LCORE\r\nC\r\nC     TEST FOR ALL MODES\r\nC\r\n      IF (NSUB(1) .EQ. 0) GO TO 32\r\n      PHIAM = ISCR(8)\r\n      CALL GMPRTN (PHISS,0,0,PHIAM,0,PPRTN,0,NSUB(1),NSUB(2),Z(KORBGN),\r\n     1             ICORE)\r\nC\r\nC     PARTITION PHIAM MATRIX\r\nC\r\nC                    **     **\r\nC                    *       *\r\nC        **     **   * PHIBM *\r\nC        *       *   *       *\r\nC        * PHIAM * = *.......*\r\nC        *       *   *       *\r\nC        **     **   * PHIIM *\r\nC                    *       *\r\nC                    **     **\r\nC\r\n      GO TO 34\r\n   32 PHIAM = PHISS\r\n   34 CONTINUE\r\nC\r\nC     CALCULATE THE VECTOR MAGNITUDE\r\nC\r\n      IF (KORBGN+NROWS .GE. KORLEN) GO TO 180\r\n      CALL GOPEN (PHIAM,Z(GBUF1),0)\r\n      TYPEU = 1\r\n      IROWU = 1\r\n      NROWU = NROWS\r\n      INCRU = 1\r\n      DO 40 I = 1,NFOUND\r\n      L     = IPARTN + I - 1\r\n      RZ(L) = 0.0\r\n      CALL UNPACK (*40,PHIAM,RZ(KORBGN))\r\n      DO 38 J = 1,NROWS\r\n      K     = KORBGN + J - 1\r\n      RZ(L) = RZ(L) + RZ(K)**2\r\n   38 CONTINUE\r\n   40 CONTINUE\r\n      CALL CLOSE (PHIAM,1)\r\n      FUSET = USETMR\r\n      CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN))\r\nC\r\nC     TEST FOR NULL B SET\r\nC\r\n      ITRLR(1) = PPRTN\r\n      CALL RDTRL (ITRLR)\r\n      IF (ITRLR(6) .GT. 0) GO TO 44\r\n      PHIIM   = PHIAM\r\n      IA11(1) = PHIAM\r\n      CALL RDTRL (IA11)\r\n      DO 42 I = 1,7\r\n   42 IA21(I) = 0\r\n      GO TO 55\r\n   44 CONTINUE\r\n      PHIIM = ISCR(7)\r\n      CALL GMPRTN (PHIAM,PHIIM,PHIBM,0,0,0,PPRTN,NSUB(1),NSUB(2),\r\n     1             Z(KORBGN),ICORE)\r\n      JHIM = 0\r\nC\r\nC     COMPUTE MODAL TRANSFORMATION MATRIX\r\nC\r\nC        **   **   **     **   **   ** **     **\r\nC        *     *   *       *   *     * *       *\r\nC        * HIM * = * PHIIM * - * GIB * * PHIBM *\r\nC        *     *   *       *   *     * *       *\r\nC        **   **   **     **   **   ** **     **\r\nC\r\n      CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR)\r\n      ITEST = ITRLR(1)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      DO 50 I = 1, 7\r\n      ITRLRA(I) = ITRLR(I)\r\n      ITRLRB(I) = IA21(I)\r\n   50 ITRLRC(I) = IA11(I)\r\n      ITRLRA(1) = GIB\r\n      HIMSCR = ISCR(4)\r\n      IFORM  = 2\r\n      IPRC   = 1\r\n      ITYP   = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRC(5).EQ.2 .OR. ITRLRC(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRC(5) .GE. 3) ITYP = 2\r\n      ITYPE  = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,HIMSCR,ITRLR(3),IFORM,ITYPE)\r\n      CALL SOFCLS\r\n      T      = 0\r\n      SIGNAB = -1\r\n      SIGNC  = 1\r\n      PREC   = 0\r\n      SCR    = ISCR(6)\r\n      DBLKOR = KORBGN/2 + 1\r\n      NZ     = LSTZWD - ((2*DBLKOR)-1)\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      I      = ITRLRD(2)\r\n      II     = ITRLRD(3)\r\n      IFORM  = ITRLRD(4)\r\n      HIMTYP = ITRLRD(5)\r\n      GO TO 60\r\nC\r\nC     PHIBM IS NULL, HIM = PHIIM\r\nC\r\n   55 HIMSCR = PHIIM\r\n      I      = IA11(2)\r\n      II     = IA11(3)\r\n      IFORM  = IA11(4)\r\n      HIMTYP = IA11(5)\r\n      JHIM   = 1\r\nC\r\nC     TEST SELECTED MODES\r\nC\r\n   60 NCORE  = I\r\n      IF (KORBGN+NCORE .GE. KORLEN) GO TO 180\r\n      TYPIN  = HIMTYP\r\n      TYPEP  = HIMTYP\r\n      IROWP  = 1\r\n      NROWP  = II\r\n      INCRP  = 1\r\n      IROWU  = 1\r\n      CALL GOPEN (HIMSCR,Z(GBUF1),0)\r\n      CALL MAKMCB (ITRLR,HIM,II,IFORM,HIMTYP)\r\n      CALL GOPEN (HIM,Z(GBUF3),1)\r\n      NFOUND = 0\r\n      ITER   = I\r\n      DBLKOR = KORBGN/2 + 1\r\n      SGLKOR = 2*DBLKOR - 1\r\n      IF (HIMTYP .EQ. 1) DICORE = (SGLKOR+II)/2 + 1\r\n      IF (HIMTYP .EQ. 2) DICORE = DBLKOR + II\r\n      ICORE  = 2*DICORE - 1\r\nC\r\nC     UNPACK HIM COLUMN\r\nC\r\n      DO 140 I = 1,ITER\r\nC\r\nC     LIMIT VECTORS TO NMAX\r\nC\r\n      IF (NFOUND .LT. NNMAX) GO TO 65\r\n      J      = Z(MODEXT+I-1) + MODUSE - 1\r\n      Z(J)   = 3\r\n      GO TO 140\r\n   65 TYPEU  = HIMTYP\r\n      INCRU  = 1\r\n      NROWU  = II\r\n      IHIM   = NROWU\r\n      CALL UNPACK (*90,HIMSCR,DZ(DBLKOR))\r\nC\r\nC     SAVE LARGEST HIM COLUMN VALUE AND CALCULATE MAGNITUDE OF HIM,\r\nC     COLUMN\r\nC\r\n      IF (HIMTYP .EQ. 2) GO TO 74\r\n      ITYPE  = 0\r\n      HIMSUM = 0.0\r\n      HIMMAG = 0.0\r\n      DO 72 J = 1,IHIM\r\n      IF (ABS(RZ(SGLKOR+J-1)) .GE. ABS(HIMMAG)) HIMMAG = RZ(SGLKOR+J-1)\r\n   72 HIMSUM = HIMSUM + (RZ(SGLKOR+J-1)**2)\r\n      GO TO 78\r\n   74 ITYPE  = 2\r\n      DHIMSM = 0.0D0\r\n      DHIMAG = 0.0D0\r\n      DO 76 J = 1,IHIM\r\n      IF (DABS(DZ(DBLKOR+J-1)) .GE. DABS(DHIMAG))\r\n     1    DHIMAG = DZ(DBLKOR+J-1)\r\n   76 DHIMSM = DHIMSM + DZ(DBLKOR+J-1)**2\r\n      HIMSUM = DHIMSM\r\n   78 IF (JHIM .EQ. 1) GO TO 95\r\n      PHIMSM = RZ(IPARTN+I-1)\r\n      IF (PHIMSM .LE. 0.0) GO TO 90\r\n      PMSM   = PHIMSM*EPSLON*EPSLON\r\n      IF (HIMSUM .GE. PMSM) GO TO 95\r\nC\r\nC     REJECT MODE\r\nC\r\n   90 J = Z(MODEXT+I-1)\r\n      Z(MODUSE+J-1) = 2\r\n      GO TO 140\r\nC\r\nC     USE MODE\r\nC\r\n   95 NFOUND = NFOUND + 1\r\nC\r\nC     SCALE HIM COLUMN\r\nC\r\n      IF (HIMTYP .EQ. 2) GO TO 104\r\n      DO 102 J = 1,IHIM\r\n  102 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIMMAG\r\n      GO TO 130\r\n  104 DO 106 J = 1,IHIM\r\n  106 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIMAG\r\nC\r\nC     PACK HIM COLUMN\r\nC\r\n  130 NROWP = NROWU\r\n      CALL PACK(DZ (DBLKOR),HIM,ITRLR)\r\n  140 CONTINUE\r\n      CALL CLOSE (HIM,1)\r\n      IF (JHIM .EQ. 0) CALL CLOSE (PHIIM,1)\r\n      CALL CLOSE (HIMSCR,1)\r\n      CALL WRTTRL (ITRLR)\r\n      KORBGN = KORE\r\n      IF (JHIM .EQ. 1) HIMSCR = ISCR4\r\nC\r\nC     TEST NUMBER OF MODAL POINTS\r\nC\r\n      MODAL = ITRLR(2)\r\n      IF (FREBDY) MODAL = MODAL + FBMODS\r\n      IF (MODAL .LE. ITRLR(3)) GO TO 300\r\n      WRITE  (IPRNTR,145) UFM,OLDNAM,MODAL,ITRLR(3)\r\n  145 FORMAT (A23,' 6633, FOR SUBSTRUCTURE ',2A4,' THE TOTAL NUMBER OF',\r\n     1        ' MODAL COORDINATES (',I8,1H), /30X,\r\n     2        'IS LARGER THAN THE NUMBER OF INTERNAL DOF (',I8,2H).)\r\n      DRY = -2\r\n      GO TO 300\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  160 IMSG = -2\r\n      GO TO 190\r\n  170 IMSG = -3\r\n      GO TO 190\r\n  180 IMSG = -8\r\n      IFILE = 0\r\n  190 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 300\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  200 GO TO (210,210,220,230,240,260), ITEST\r\n  210 IMSG = -11\r\n      GO TO 270\r\n  220 IMSG = -1\r\n      GO TO 250\r\n  230 IMSG = -2\r\n      GO TO 250\r\n  240 IMSG = -3\r\n  250 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 300\r\n  260 IMSG = -10\r\n  270 CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM)\r\n      DRY = -2\r\n  300 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2f.f",
    "content": "      SUBROUTINE MRED2F\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE FREEBODY EFFECTS FOR THE MRED2\r\nC     MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO   - MAA    - SUBSTRUCTURE MASS MATRIX\r\nC              DMR    - FREEBODY MATRIX\r\nC     SOF    - GIMS   - G TRANSFORMATION MATRIX FOR BOUNDARY POINTS OF\r\nC                       ORIGINAL SUBSTRUCTURE\r\nC\r\nC     OUTPUT DATA\r\nC     GINO   - HGH    - HORG PARTITION MATRIX\r\nC     SOF    - HORG   - H TRANSFORMATION MATRIX FOR ORIG. SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - GBUF   - GINO BUFFERS\r\nC              INFILE - INPUT FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              FREBDY - FREEBODY MODES OPTION FLAG\r\nC     OTHERS - RPRTN  - ROW PARTITIONING VECTOR FILE NUMBER\r\nC              LII    - LII PARTITION MATRIX FILE NUMBER (ISCR11)\r\nC              IDENT  - IDENTITY MATRIX FILE NUMBER\r\nC              ZERO   - ZERO MATRIX FILE NUMBER\r\nC              HIE    - HIE PARTITION MATRIX FILE NUMBER\r\nC              HIR    - HIR PARTITION MATRIX FILE NUMBER\r\nC              HIRSCR - HIR SCRATCH PARTITION MATRIX FILE NUMBER\r\nC              FBR    - FBR PARTITION MATRIX FILE NUMBER\r\nC              FIR    - FIR PARTITION MATRIX FILE NUMBER\r\nC              GIB    - GIMS INPUT FILE NUMBER\r\nC              CPRTN  - COLUMN PARTITIONING VECTOR FILE NUMBER\r\nC              HIM    - HIM PARTITION MATRIX FILE NUMBER\r\nC              HGH    - HORG MATRIX FILE NUMBER\r\nC\r\n      LOGICAL          FREBDY,BOUNDS\r\n      INTEGER          DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OLDNAM,Z,T,\r\n     1                 SIGNAB,SIGNC,PRECMP,SCR,FUSET,PRECFB,SIGN,TYPINP,\r\n     2                 TYPEOP,TYPINU,UN,UB,UI,DMR,FAR,FIR,FARIND,ZERO,\r\n     3                 RPRTN,HIE,HIR,CPRTN,HIM,HGH,GIB,HIRSCR,USETMR,\r\n     4                 DBLKOR,SGLKOR\r\n      DOUBLE           PRECISION DZ,DHIRMG\r\n      DIMENSION MODNAM (2),ITRLR1(7),ITRLR2(7),RZ(1),ISUB(4),ITMLST(4),\r\n     1                 DZ(1)\r\n      COMMON /BLANK /  IDUM1,DRY,IDUM7,GBUF1,GBUF2,IDUM2,SBUF1,SBUF2,\r\n     1                 SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,\r\n     2                 KORBGN,OLDNAM(2),IDUM4(2),FREBDY,IDUM8(5),BOUNDS,\r\n     3                 IDUM9(6),LSTZWD,ISCR11\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /MPYADX/  ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZMPY,T,\r\n     1                 SIGNAB,SIGNC,PRECMP,SCR\r\n      COMMON /BITPOS/  IDUM5(9),UN,IDUM6(10),UB,UI\r\n      COMMON /PATX  /  LCORE,NSUB(3),FUSET\r\n      COMMON /FBSX  /  JTRLRL(7),JTRLRU(7),JTRLRB(7),JTRLRX(7),NZFBS,\r\n     1                 PRECFB,SIGN\r\n      COMMON /PACKX /  TYPINP,TYPEOP,IROWP,NROWP,INCRP\r\n      COMMON /UNPAKX/  TYPINU,IROWU,NROWU,INCRU\r\n      COMMON /SYSTEM/  IDUM3,IPRNTR\r\n      EQUIVALENCE      (USETMR,INFILE(5)),(MAA,INFILE(7)),\r\n     1                 (DMR,INFILE(11)),(RPRTN,ISCR(9)),(IDENT,ISCR(5)),\r\n     2                 (CPRTN,ISCR(10)),(PPRTN,ISCR(4)),(RZ(1),Z(1)),\r\n     3                 (DZ(1),Z(1)),(GIB,ISCR(4)),(LII ,ISCR11),\r\n     4                 (HIRSCR,ISCR(5)),(HGH,ISCR(8)),(ZERO,ISCR(6)),\r\n     5                 (HIM,ISCR(8)),(HIE,ISCR(7)),(HIR ,ISCR(9)),\r\n     6                 (FAR,ISCR(9)),(FIR,ISCR(10))\r\n      DATA    MODNAM/  4HMRED,4H2F  /\r\n      DATA    FARIND,  ISCR7 ,ISCR8 /6, 307, 308  /\r\n      DATA    ITMLST/  4HGIMS,4HHORG,4HUPRT,4HLMTX/\r\nC\r\nC     TEST FREEBODY MODES CALCULATION FLAG\r\nC\r\n      IF (DRY .EQ. -2) GO TO 300\r\n      ITRLR2(1) = DMR\r\n      CALL RDTRL (ITRLR2)\r\n      IF (ITRLR2(1) .LT. 0) GO TO 110\r\nC\r\nC     COMPUTE FREEBODY MATRIX\r\nC\r\nC        **   **   **   ** **   **\r\nC        *     *   *     * *     *\r\nC        * FAR * = * MAA * * DMR *\r\nC        *     *   *     * *     *\r\nC        **   **   **   ** **   **\r\nC\r\n      CALL SOFCLS\r\n      FREBDY = .TRUE.\r\n      ITRLR1(1) = MAA\r\n      CALL RDTRL (ITRLR1)\r\n      DO 10 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n      ITRLRB(I) = ITRLR2(I)\r\n   10 ITRLRC(I) = 0\r\n      IFORM = 2\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (ITRLRA(5).EQ.2 .OR. ITRLRA(5).EQ.4) IPRC = 2\r\n      IF (ITRLRB(5).EQ.2 .OR. ITRLRB(5).EQ.4) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,FAR,ITRLR1(3),IFORM,ITYPE)\r\n      T     = 0\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\n      PREC  = 0\r\n      SCR   = ISCR(4)\r\n      DBLKOR= 1 + KORBGN/2\r\n      NZMPY = LSTZWD - 2*DBLKOR - 1\r\n      CALL MPYAD  (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\nC\r\nC     PARTITION FAR INTO BOUNDARY, INTERIOR POINTS\r\nC\r\nC                  **   **\r\nC                  *     *\r\nC        **   **   * FBR *\r\nC        *     *   *     *\r\nC        * FAR * = *.....*\r\nC        *     *   *     *\r\nC        **   **   * FIR *\r\nC                  *     *\r\nC                  **   **\r\nC\r\n      LCORE = NZMPY\r\n      FUSET = USETMR\r\n      CALL CALCV (PPRTN,UN,UI,UB,Z(KORBGN))\r\n      CALL GMPRTN (FAR,FIR,0,0,0,0,PPRTN,NSUB(1),NSUB(2),Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     CALCULATE FREEBODY TRANSFORMATION MATRIX\r\nC\r\nC                       T\r\nC        **   ** **   ** **   **    **   **\r\nC        *     * *     * *     *    *     *\r\nC        * LII * * LII * * HIR * = -* FIR *\r\nC        *     * *     * *     *    *     *\r\nC        **   ** **   ** **   **    **   **\r\nC\r\n      IF (.NOT.BOUNDS) GO TO 20\r\n      ITEM = ITMLST(4)\r\n      CALL SOFTRL (OLDNAM,ITEM,JTRLRL)\r\n      ITEST = JTRLRL(1)\r\n      IF (ITEST .NE. 1) GO TO 20\r\n      JTRLRL(1) = LII\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      CALL MTRXI (LII,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 210\r\n      CALL SOFCLS\r\n      GO TO 30\r\n   20 JTRLRL(1) = LII\r\n      CALL RDTRL (JTRLRL)\r\n   30 JTRLRB(1) = FIR\r\n      CALL RDTRL (JTRLRB)\r\n      IFORM = 2\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (JTRLRL(5).EQ.2 .OR. JTRLRL(5).EQ.4) IPRC = 2\r\n      IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2\r\n      IF (JTRLRL(5) .GE. 3) ITYP = 2\r\n      IF (JTRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (JTRLRX,HIR,JTRLRB(3),IFORM,ITYPE)\r\n      NZFBS  = NZMPY\r\n      PRECFB = ITYPE\r\n      SIGN   = -1\r\n      CALL FBS (Z(KORBGN),Z(KORBGN))\r\n      CALL WRTTRL (JTRLRX)\r\nC\r\nC     UNPACK HIR COLUMNS FOR SCALING\r\nC\r\n      TYPINU = JTRLRX(5)\r\n      IROWU  = 1\r\n      NROWU  = JTRLRX(3)\r\n      INCRU  = JTRLRX(5)\r\n      TYPINP = JTRLRX(5)\r\n      TYPEOP = JTRLRX(5)\r\n      IROWP  = 1\r\n      NROWP  = JTRLRX(3)\r\n      INCRP  = JTRLRX(5)\r\n      CALL GOPEN (HIR,Z(GBUF1),0)\r\n      IFORM  = JTRLRX(4)\r\n      CALL MAKMCB (ITRLR1,HIRSCR,JTRLRX(3),IFORM,JTRLRX(5))\r\n      CALL GOPEN (HIRSCR,Z(GBUF2),1)\r\n      SGLKOR = 2*DBLKOR - 1\r\n      DO 80 I = 1,FARIND\r\n      CALL UNPACK (*60,HIR,DZ(DBLKOR))\r\nC\r\nC     CALCULATE MAGNITUDE OF HIR\r\nC\r\n      IF (JTRLRX(5) .EQ. 2) GO TO 42\r\n      HIRMAG = RZ(SGLKOR)\r\n      IF (NROWU .EQ. 1) GO TO 50\r\n      DO 40 J = 2,NROWU\r\n      IF (ABS(RZ(SGLKOR+J-1)) .GT. ABS(HIRMAG)) HIRMAG = RZ(SGLKOR+J-1)\r\n   40 CONTINUE\r\n      GO TO 50\r\n   42 DHIRMG = DZ(DBLKOR)\r\n      IF (NROWU .EQ. 1) GO TO 50\r\n      DO 44 J = 2,NROWU\r\n      IF (DABS(DZ(DBLKOR+J-1)) .GT. DABS(DHIRMG)) DHIRMG =DZ(DBLKOR+J-1)\r\n   44 CONTINUE\r\nC\r\nC     SCALE HIR COLUMN\r\nC\r\n   50 IF (JTRLRX(5) .EQ. 2) GO TO 54\r\n      DO 52 J = 1,NROWU\r\n   52 RZ(SGLKOR+J-1) = RZ(SGLKOR+J-1)/HIRMAG\r\n      GO TO 80\r\n   54 DO 56 J = 1,NROWU\r\n   56 DZ(DBLKOR+J-1) = DZ(DBLKOR+J-1)/DHIRMG\r\n      GO TO 80\r\nC\r\nC     NULL COLUMN\r\nC\r\n   60 IF (JTRLRX(5) .EQ. 2) GO TO 74\r\n      DO 72 J = 1,NROWU\r\n   72 RZ(SGLKOR+J-1) = 0.0\r\n      GO TO 80\r\n   74 DO 76 J = 1,NROWU\r\n   76 DZ(DBLKOR+J-1) = 0.0D0\r\nC\r\nC     PACK HIR COLUMN\r\nC\r\n   80 CALL PACK (DZ(DBLKOR),HIRSCR,ITRLR1)\r\n      CALL CLOSE (HIRSCR,1)\r\n      CALL CLOSE (HIR,1)\r\n      CALL WRTTRL (ITRLR1)\r\n      ISUB(1) = ITRLR1(2)\r\nC\r\nC     SET UP MERGE COLUMN PARTITION VECTOR\r\nC\r\n      ITRLR2(1) = HIM\r\n      CALL RDTRL (ITRLR2)\r\n      I = ITRLR1(2) + ITRLR2(2)\r\n      ISUB(2) = ITRLR2(2)\r\n      DO 100 J = 1,I\r\n      RZ(KORBGN+J-1) = 0.0\r\n      IF (J .GT. ISUB(1)) RZ(KORBGN+J-1) = 1.0\r\n  100 CONTINUE\r\n      TYPINP = 1\r\n      TYPEOP = 1\r\n      IROWP  = 1\r\n      NROWP  = I\r\n      INCRP  = 1\r\n      IFORM  = 7\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROWP,IFORM,TYPINP)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK(RZ (KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\nC\r\nC     MERGE FREEBODY, MODAL TRANSFORMATION MATRICES\r\nC\r\nC        **   **   **         **\r\nC        *     *   *     .     *\r\nC        * HIE * = * HIR . HIM *\r\nC        *     *   *     .     *\r\nC        **   **   **         **\r\nC\r\n      IF (HIE .NE. HIM) GO TO 105\r\n      HIE = ISCR8\r\n      HGH = ISCR7\r\n  105 ITYPE = 1\r\n      IF (I .NE. ITRLR2(3)) ITYPE = 2\r\n      CALL GMMERG (HIE,HIRSCR,0,HIM,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN),\r\n     1             KORLEN)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      GO TO 120\r\nC\r\nC     FREEBODY MODES NOT REQUESTED\r\nC\r\n  110 HIE = HIM\r\n      IF (HIE .EQ. ISCR7) HGH = ISCR8\r\n      IF (HIE .EQ. ISCR8) HGH = ISCR7\r\nC\r\nC     FORM HGH MATRIX\r\nC\r\nC                  **         **\r\nC                  *     .     *\r\nC        **   **   *  I  .  0  *\r\nC        *     *   *     .     *\r\nC        * HGH * = *...........*\r\nC        *     *   *     .     *\r\nC        **   **   * GIB . HIE *\r\nC                  *     .     *\r\nC                  **         **\r\nC\r\n  120 CALL SOFTRL (OLDNAM,ITMLST(2),ITRLR1)\r\n      IF (ITRLR1(1) .EQ. 1) GO TO 190\r\nC\r\nC     GENERATE IDENTITY MATRIX\r\nC\r\n      CALL SOFTRL (OLDNAM,ITMLST(1),ITRLR1)\r\n      ITEST = ITRLR1(1)\r\n      ITEM  = ITMLST(1)\r\n      IF (ITEST .NE. 1) GO TO 210\r\n      TYPINP = 1\r\n      TYPEOP = ITRLR1(5)\r\n      IROWP  = 1\r\n      NROWP  = ITRLR1(2)\r\n      INCRP  = 1\r\n      IFORM  = 8\r\n      II = ITRLR1(2)\r\n      CALL MAKMCB (ITRLR1,IDENT,NROWP,IFORM,TYPEOP)\r\n      CALL GOPEN  (IDENT,Z(GBUF1),1)\r\n      DO 140 I = 1,II\r\n      DO 130 J = 1,II\r\n      RZ(KORBGN+J-1) = 0.0\r\n      IF (I .EQ. J) RZ(KORBGN+J-1) = 1.0\r\n  130 CONTINUE\r\n  140 CALL PACK (RZ(KORBGN),IDENT,ITRLR1)\r\n      CALL CLOSE (IDENT,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     SET UP MERGE ROW PARTITION VECTOR\r\nC\r\n      ITRLR1(1) = HIE\r\n      CALL RDTRL (ITRLR1)\r\n      ITER  = ITRLR1(2)\r\n      NROWP = II + ITER\r\n      DO 170 I = 1,NROWP\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. II) RZ(KORBGN+I-1) = 1.0\r\n  170 CONTINUE\r\n      TYPINP = 1\r\n      TYPEOP = 1\r\n      INCRP  = 1\r\n      IFORM  = 7\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROWP,IFORM,TYPINP)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (RZ(KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\n      NROWS = NROWP\r\nC\r\nC     SET UP MERGE COLUMN PARTITION VECTOR\r\nC\r\n      ITEM = ITMLST(3)\r\n      CALL MTRXI (CPRTN,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 210\r\nC\r\nC     SET UP GIB MATRIX\r\nC\r\n      CALL MTRXI (GIB,OLDNAM,ITMLST(1),0,ITEST)\r\n      ITEM = ITMLST(1)\r\n      IF (ITEST .NE. 1) GO TO 210\r\nC\r\nC     MERGE ALL STRUCTURAL REDUCTION TRANSFORMATION MATRICES\r\nC\r\n      ISUB(1) = II\r\n      ISUB(2) = ITER\r\n      ISUB(3) = ITRLR1(3)\r\n      ISUB(4) = II\r\n      ITYPE   = 1\r\n      IF (NROWS .NE. NROWP) ITYPE = 2\r\n      CALL GMMERG (HGH,GIB,IDENT,HIE,0,RPRTN,CPRTN,ISUB,ITYPE,Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     SAVE HGH ON SOF AS HORG MATRIX\r\nC\r\n      CALL MTRXO (HGH,OLDNAM,ITMLST(2),0,ITEST)\r\n      ITEM = ITMLST(2)\r\n      IF (ITEST .NE. 3) GO TO 210\r\n  190 CONTINUE\r\n      GO TO 300\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  210 GO TO (220,230,240,250,260,280), ITEST\r\n  220 IMSG = -9\r\n      GO TO 290\r\n  230 IMSG = -11\r\n      GO TO 290\r\n  240 IMSG = -1\r\n      GO TO 270\r\n  250 IMSG = -2\r\n      GO TO 270\r\n  260 IMSG = -3\r\n  270 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 300\r\n  280 IMSG = -10\r\n  290 DRY  = -2\r\n      CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM)\r\n  300 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2g.f",
    "content": "      SUBROUTINE MRED2G (KODE)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE FINAL STRUCTURAL MATRICES FOR THE\r\nC     MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO -   KBB    - STIFFNESS PARTITION MATRIX\r\nC              KIB    - KIB  STIFFNESS PATTITION MATRIX\r\nC              HIE    - HIE  PARTITION MATRIX\r\nC              KII    - KII  PARTITION MATRIX\r\nC              HGH    - HORG PARTITION MATRIX\r\nC              MAA    - MASS INPUT MATRIX\r\nC              BAA    - DAMPING INPUT MATRIX\r\nC              K4AA   - STIFFNESS INPUT MATRIX\r\nC              PAA    - LOADS INPUT MATRIX\r\nC     SOF  -   GIMS   - G TRANSFORMATION MATRIX\r\nC\r\nC     OUTPUT DATA\r\nC     GINO -   KHH    - STIFFNESS MATRIX\r\nC              MHH    - MASS MATRIX\r\nC              BHH    - DAMPING MATRIX\r\nC              K4HH   - K4HH  MATRIX\r\nC              PHH    - LOADS MATRIX\r\nC     SOF  -   KMTX   - STIFFNESS MATRIX\r\nC              MMTX   - MASS  MATRIX\r\nC              PVEC   - LOADS MATRIX\r\nC              PAPP   - APPENDED LOADS MATRIX\r\nC              BMTX   - DAMPING MATRIX\r\nC              K4MX   - K4MX STIFFNESS MATRIX\r\nC\r\nC     PARAMETERS\r\nC     INPUT  - POPT   - LOADS OPTION FLAG\r\nC              GBUF   - GINO BUFFERS\r\nC              INFILE - INPUT   FILE NUMBERS\r\nC              OTFILE - OUTPUT  FILE NUMBERS\r\nC              ISCR   - SCRATCH FILE NUMBERS\r\nC              KORLEN - LENGTH OF OPEN CORE\r\nC              KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC              OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC     OTHERS - PAA    - LOADS INPUT FILE NUMBER\r\nC              KHH    - STIFFNESS I\r\nC              KHH    - STIFFNESS OUTPUT FILE NUMBER\r\nC              POVE   - LOADS OUTPUT FILE NUMBER\r\nC              UPRT   - PARTITION VECTOR FILE NUMBER\r\nC              ZEROEB - ZERO PARTITION FILE NUMBER\r\nC              KBB    - KBB INPUT FILE NUMBER\r\nC              ZEROBE - ZERO PARTITION MATRIX\r\nC              KIB    - KIB INPUT FILE NUMBER\r\nC              KII    - KII INPUT FILE NUMBER\r\nC              KBARBB - KBARBB FILE NU BER\r\nC              GIB    - GIB INPUT FILE NUMBER\r\nC              KEE    - KEE FILE NUMBER\r\nC              HGH    - HORG INPUT FILE NUMBER\r\nC\r\n      LOGICAL          FREBDY,BOUNDS,MODES,PONLY\r\n      INTEGER          DRY,POPT,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,OLDNAM,Z,\r\n     1                 T,SIGNAB,SIGNC,PREC,SCR,TYPIN,TYPOUT,UN,UB,UI,\r\n     2                 FUSET,PREC3,ZEROBE,ZEROEB,BLANKS,PAPP,PAA,POVE,\r\n     3                 UPRT,GIB,HGH,HIE,RPRTN,CPRTN,USETMR,DBLKOR,EQST\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION        MODNAM(2),ITRLR1(7),ITRLR2(7),ITRLR3(7),ISUB(4),\r\n     1                 ITMLST(11),ITMNAM(2),RZ(1),DZ(1)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  IDUM1,DRY,POPT,GBUF1,IDUM2(2),SBUF1,SBUF2,SBUF3,\r\n     1                 INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                 OLDNAM(2),NEWNAM(2),FREBDY,IDUM6(5),BOUNDS,MODES,\r\n     3                 IDUM7(4),PONLY,LSTZWD\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  IDUM3,IPRNTR\r\n      COMMON /MPYADX/  ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T,\r\n     1                 SIGNAB,SIGNC,PREC,SCR,DUMM\r\n      COMMON /PACKX /  TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /BITPOS/  IDUM4(9),UN,IDUM5(10),UB,UI\r\n      COMMON /PATX  /  LCORE,NSUB(3),FUSET\r\n      COMMON /MPY3TL/  JTRLRA(7),JTRLRB(7),JTRLRE(7),JTRLRC(7),JSCR(3),\r\n     1                 LKORE,ICODE,PREC3,DUMMY(13)\r\n      EQUIVALENCE      (EQST,INFILE(5)),(USETMR,INFILE(5)),\r\n     1                 (PAA,INFILE(10)),(KHH,OTFILE(1)),(POVE,OTFILE(6))\r\n      EQUIVALENCE      (ZEROBE,ISCR(1)),(UPRT,ISCR(1)),(KIB,ISCR(2)),\r\n     1                 (ZEROEB,ISCR(3)),(KII,ISCR(3)),(KBB,ISCR(1)),\r\n     2                 (GIB,ISCR(4)),(KBARBB,ISCR(5)),(KEE,ISCR(6)),\r\n     3                 (HIE,ISCR(7)),(HGH,ISCR(8)),(RPRTN,ISCR(2)),\r\n     4                 (CPRTN,ISCR(4)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/  4HMRED,4H2G  /,      PAPP  ,BLANKS/4HPAPP,4H    /\r\n      DATA    ITMLST/  4HKMTX,4HMMTX,4HBMTX,4HK4MX,4HPVEC,4HPAPP,4HPOVE,\r\n     1                 4HGIMS,4HHORG,4HPOAP,4HUPRT/\r\n      DATA    MRED2 /  27 /\r\nC\r\nC     SELECT OPERATION\r\nC     KODE = 1, NO SETLVL, NO STIFFNESS CALCULATIONS\r\nC     KODE = 2, SETLVL, STIFFNESS CALCULATIONS\r\nC     KODE = 3, NO SETLVL, NO STIFFNESS CALCULATIONS\r\nC     KODE = 4, SETLVL, NO STIFFNESS CALCULATIONS\r\nC\r\n      IF (DRY .EQ. -2) GO TO 300\r\n      GO TO (90,1,90,1), KODE\r\nC\r\nC     SET UP NEW SUBSTRUCTURE\r\nC\r\n    1 IF (BOUNDS .OR. MODES) GO TO 5\r\n      NUMB = 1\r\n      CALL SETLVL (NEWNAM,NUMB,OLDNAM,ITEST,MRED2)\r\n      IF (ITEST .EQ. 8) GO TO 290\r\n    5 IF (KODE  .EQ. 4) GO TO 90\r\nC\r\nC     FORM PRELIMINARY STIFFNESS CALCULATION\r\nC\r\nC                                      T\r\nC        **      **   **   **   **   ** **   **\r\nC        *        *   *     *   *     * *     *\r\nC        * KBARBB * = * KBB * + * GIB * * KIB *\r\nC        *        *   *     *   *     * *     *\r\nC        **      **   **   **   **   ** **   **\r\nC\r\n      ITRLR1(1) = KBB\r\n      CALL RDTRL (ITRLR1)\r\n      ITEM = ITMLST(8)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL SOFTRL (OLDNAM,ITEM,ITRLR2)\r\n      ITEST = ITRLR2(1)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      CALL MTRXI (GIB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      CALL SOFCLS\r\n      ITRLR2(1) = GIB\r\n      CALL RDTRL (ITRLR2)\r\n      ITRLR3(1) = KIB\r\n      CALL RDTRL (ITRLR3)\r\n      DO 10 I = 1,7\r\n      ITRLRA(I) = ITRLR2(I)\r\n      ITRLRB(I) = ITRLR3(I)\r\n   10 ITRLRC(I) = ITRLR1(I)\r\n      IFORM = 6\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2\r\n      IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2\r\n      IF ((ITRLRC(5) .EQ. 2) .OR. (ITRLRC(5) .EQ. 4)) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRC(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (ITRLRD,KBARBB,ITRLR1(3),IFORM,ITYPE)\r\n      T      = 1\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      PREC   = 0\r\n      SCR    = ISCR(9)\r\n      DBLKOR = KORBGN/2 + 1\r\n      NZ = LSTZWD - (2*DBLKOR - 1)\r\n      CALL MPYAD  (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      KBAROW = ITRLRD(3)\r\n      KCOL   = ITRLRD(2)\r\nC\r\nC     FORM PRELIMINARY STIFFNESS CALCULATION\r\nC\r\nC                         T\r\nC        **   **   **   ** **   ** **   **\r\nC        *     *   *     * *     * *     *\r\nC        * KEE * = * HIE * * KII * * HIE *\r\nC        *     *   *     * *     * *     *\r\nC        **   **   **   ** **   ** **   **\r\nC\r\n      ITRLR1(1) = HIE\r\n      ITRLR2(1) = KII\r\n      CALL RDTRL (ITRLR1)\r\n      CALL RDTRL (ITRLR2)\r\n      DO 20 I = 1,7\r\n      JTRLRA(I) = ITRLR1(I)\r\n      JTRLRB(I) = ITRLR2(I)\r\n   20 JTRLRE(I) = 0\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF (JTRLRA(5).EQ.2 .OR. JTRLRA(5).EQ.4) IPRC = 2\r\n      IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2\r\n      IF (JTRLRA(5).GE.3 .OR. JTRLRB(5).GE.3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (JTRLRC,KEE,ITRLR1(2),IFORM,ITYPE)\r\n      JSCR(1) = ISCR(9)\r\n      JSCR(2) = ISCR(2)\r\n      JSCR(3) = ISCR(1)\r\n      LKORE   = NZ\r\n      ICODE   = 0\r\n      PREC3   = 0\r\n      CALL MPY3DR (DZ(DBLKOR))\r\n      CALL WRTTRL (JTRLRC)\r\n      KEEROW = JTRLRC(3)\r\n      KEECOL = JTRLRC(2)\r\nC\r\nC     GENERATE MERGE PARTITION VECTOR\r\nC\r\n      NROW = KCOL + KEECOL\r\n      DO 80 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. KCOL) RZ(KORBGN+I-1) = 1.0\r\n   80 CONTINUE\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\n      IFORM  = 7\r\n      CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN  (RPRTN,Z(GBUF1),1)\r\n      CALL PACK   (RZ(KORBGN),RPRTN,ITRLR1)\r\n      CALL CLOSE  (RPRTN,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     FORM STIFFNESS MATRIX\r\nC\r\nC                  **            **\r\nC                  *        .     *\r\nC        **   **   * KBARBB .  0  *\r\nC        *     *   *        .     *\r\nC        * KHH * = *..............*\r\nC        *     *   *        .     *\r\nC        **   **   *   0    . KEE *\r\nC                  *        .     *\r\nC                  **            **\r\nC\r\n      ISUB(1) = KCOL\r\n      ISUB(2) = KEECOL\r\n      ISUB(3) = KBAROW\r\n      ISUB(4) = KEEROW\r\n      IFORM   = 6\r\n      CALL GMMERG (KHH,KBARBB,0,0,KEE,RPRTN,RPRTN,ISUB,IFORM,Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     STORE KHH AS KMTX ON SOF\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL MTRXO (KHH,NEWNAM,ITMLST(1),0,ITEST)\r\n      ITEM = ITMLST(1)\r\n      IF (ITEST .NE. 3) GO TO 200\r\n      GO TO 100\r\nC\r\nC     LOCATE HGH MATRIX\r\nC\r\n   90 CALL MTRXI (HGH,OLDNAM,ITMLST(9),0,ITEST)\r\n      ITEM = ITMLST(9)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n  100 SIGNAB = 1\r\n      SIGNC  = 1\r\n      SCR    = ISCR(1)\r\n      DBLKOR = KORBGN/2 + 1\r\n      LCORE  = LSTZWD - (2*DBLKOR - 1)\r\nC\r\nC     GENERATE MATRICES REQUESTED\r\nC     I = 2, GENERATE MHH MATRIX\r\nC     I = 3, GENERATE BHH MATRIX\r\nC     I = 4, GENERATE K4HH MATRIX\r\nC     I = 5, GENERATE PHH MATRIX\r\nC\r\n      DO 180 I = 2,5\r\n      ITRLR1(1) = INFILE(I+5)\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 180\r\n      CALL SOFCLS\r\nC\r\nC     CALCULATE MATRIX REQUIRED\r\nC\r\nC                                T\r\nC        **          **   **   ** **          ** **   **\r\nC        *            *   *     * *            * *     *\r\nC        * (M,B,K4)HH * = * HGH * * (M,B,K4)AA * * HGH *\r\nC        *            *   *     * *            * *     *\r\nC        **          **   **   ** **          ** **   **\r\nC\r\nC                         T\r\nC        **   **   **   ** **   **\r\nC        *     *   *     * *     *\r\nC        * PHH * = * HGH * * PAA *\r\nC        *     *   *     * *     *\r\nC        **   **   **   ** **   **\r\nC\r\n      ITRLR2(1) = HGH\r\n      CALL RDTRL (ITRLR2)\r\n      ITEM = ITMLST(I)\r\n      IF (I.EQ.5 .AND. POPT.EQ.PAPP) ITEM = ITMLST(6)\r\n      DO 120 J = 1,7\r\n      JTRLRA(J) = ITRLR2(J)\r\n      JTRLRB(J) = ITRLR1(J)\r\n  120 JTRLRE(J) = 0\r\n      IFORM = 6\r\n      IPRC  = 1\r\n      ITYP  = 0\r\n      IF (JTRLRA(5).EQ.2 .OR. JTRLRA(5).EQ.4) IPRC = 2\r\n      IF (JTRLRB(5).EQ.2 .OR. JTRLRB(5).EQ.4) IPRC = 2\r\n      IF (JTRLRA(5).GE.3 .OR. JTRLRB(5).GE.3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      CALL MAKMCB (JTRLRC,OTFILE(I),ITRLR2(2),IFORM,ITYPE)\r\n      JSCR(1) = ISCR(9)\r\n      JSCR(2) = ISCR(2)\r\n      JSCR(3) = ISCR(1)\r\n      ICODE   = 0\r\n      IF (I .EQ. 5) ICODE = 1\r\n      PREC3 = 0\r\n      CALL MPY3DR (DZ(DBLKOR))\r\n      CALL WRTTRL (JTRLRC)\r\nC\r\nC     STORE MATRIX ON SOF\r\nC     I = 2, STORE MHH AS MMTX\r\nC     I = 3, STORE BHH AS BMTX\r\nC     I = 4, STORE K4HH AS K4MX\r\nC     I = 5, STORE PHH AS PVEC OR PAPP\r\nC\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL MTRXO (OTFILE(I),NEWNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 200\r\n  180 CONTINUE\r\nC\r\nC     TEST FOR LOAD PROCESSING\r\nC\r\n      IF (POPT .EQ. BLANKS) GO TO 190\r\n      IF (.NOT. PONLY) GO TO 184\r\n      ITRLR1(1) = EQST\r\n      CALL RDTRL (ITRLR1)\r\n      NSUB(1 )  = ITRLR1(6)\r\n      NSUB(2)   = ITRLR1(7)\r\n      ITEM      = ITMLST(11)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL MTRXI (UPRT,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 200\r\n      GO TO 188\r\nC\r\nC     PARTITION PAA VECTOR\r\nC\r\n  184 LCORE = KORLEN\r\n      FUSET = USETMR\r\n      CALL CALCV (UPRT,UN,UI,UB,Z(KORBGN))\r\n  188 CONTINUE\r\n      CALL GMPRTN (PAA,POVE,0,0,0,0,UPRT,NSUB(1),NSUB(2),Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     SAVE POVE AS POVE OR POAP ON SOF\r\nC\r\n      IF (MODES) GO TO 190\r\n      ITEM = ITMLST(7)\r\n      IF (POPT .EQ. PAPP) ITEM = ITMLST(10)\r\n      CALL MTRXO (POVE,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 200\r\n  190 CONTINUE\r\n      GO TO 300\r\nC\r\nC     PROCESS MODULE ERRORS\r\nC\r\n  200 GO TO (210,220,230,240,250,270), ITEST\r\n  210 IMSG = -9\r\n      GO TO 280\r\n  220 IMSG = -11\r\n      GO TO 280\r\n  230 IMSG = -1\r\n      GO TO 260\r\n  240 IMSG = -2\r\n      GO TO 260\r\n  250 IMSG = -3\r\n  260 CALL SMSG (IMSG,ITEM,ITMNAM)\r\n      GO TO 300\r\n  270 IMSG = -10\r\n  280 DRY  = -2\r\n      CALL SMSG1 (IMSG,ITEM,ITMNAM,MODNAM)\r\n      GO TO 300\r\n  290 WRITE  (IPRNTR,295) UFM\r\n  295 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ',\r\n     1       'USED IN A PREVIOUS COMBINE OR REDUCE.')\r\n      DRY = -2\r\n  300 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2h.f",
    "content": "      SUBROUTINE MRED2H\r\nC\r\nC     THIS SUBROUTINE CREATES THE REDUCED SUBSTRUCTURE NEW TABLE ITEMS\r\nC     FOR THE MRED2 MODULE.\r\nC\r\nC     INPUT DATA\r\nC     GINO  - EQST   - TEMPORARY SUBSTRUCTURE EQUIVALENCE TABLE FOR\r\nC                      SUBSTRUCTURE BEING REDUCED\r\nC\r\nC     OUTPUT DATA\r\nC     SOF   - EQSS   - SUBSTRUCTURE EQUIVALENCE TABLE FOR REDUCED\r\nC                      SUBSTRUCTURE\r\nC             BGSS   - BASIC GRID POINT DEFINITION TABLE FOR REDUCED\r\nC                      SUBSTRUCTURE\r\nC             LODS   - LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC             LOAP   - APPENDED LOAD SET DATA FOR REDUCED SUBSTRUCTURE\r\nC             PLTS   - PLOT SET DATA FOR REDUCED SUBSTRUCTURE\r\nC             CSTM   - COORDINATE SYSTEM TRANSFORMATION DATA FOR REDUCED\r\nC                      SUBSTRUCTURE\r\nC\r\nC     PARAMETERS\r\nC     INPUT - DRY    - MODULE OPERATION FLAG\r\nC             POPT   - LOAD OPTION FLAG\r\nC             GBUF1  - GINO BUFFER\r\nC             INFILE - INPUT FILE NUMBERS\r\nC             KORLEN - LENGTH OF OPEN CORE\r\nC             KORBGN - BEGINNING ADDRESS OF OPEN CORE\r\nC             OLDNAM - NAME OF SUBSTRUCTURE BEING REDUCED\r\nC             NEWNAM - NAME OF REDUCED SUBSTRUCTURE\r\nC             FREBDY - FREEBODY OPR\r\nC             FREBDY - FREEBODY OPTIONS FLAG\r\nC             IO     - OUTPUT OPTIONS FLAG\r\nC             MODPTS - NUMBER OF MODAL POINTS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         FREBDY,PONLY\r\n      REAL            ZERO,RZ(1)\r\n      DIMENSION       MODNAM(2),LSTBIT(32),ITRLR(7),ITMLST(3),ITMNAM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDUM1,DRY,POPT,GBUF1,IDUM2(5),INFILE(12),\r\n     1                IDUM3(16),KORLEN,KORBGN,OLDNAM(2),NEWNAM(2),\r\n     2                FREBDY,IDUM4(3),USRMOD,IO,IDUM6(4),MODPTS,IDUM9,\r\n     3                PONLY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ IDUM5,IPRNTR,IDUM7(6),NLPP,IDUM8(2),LINE\r\n      EQUIVALENCE     (EQST,INFILE(4)), (RZ(1),Z(1))\r\n      DATA    MODNAM/ 4HMRED,4H2H  /\r\n      DATA    PAPP  , LODS,LOAP    /4HPAPP,4HLODS,4HLOAP/\r\n      DATA    FARIND, IZERO,ZERO   /6,0,0.0/\r\n      DATA    ITMLST/ 4HEQSS,4HBGSS,4HLAMS /\r\n      DATA    SOFEOG/ 4H$EOG       /\r\nC\r\nC     CHECK FOR LOADS PROCESSING ONLY\r\nC\r\n      IF (PONLY) GO TO 55\r\nC\r\nC     PROCESS EQSS, BGSS DATA\r\nC\r\n      IF (DRY .EQ. -2) GO TO 300\r\n      ITRLR(1) = EQST\r\n      CALL RDTRL (ITRLR)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      IFILE = EQST\r\n      IF (ITRLR(1) .LT. 0) GO TO 210\r\n      CALL GOPEN (EQST,Z(GBUF1),0)\r\n      ITEST = 3\r\n      ITEM  = ITMLST(1)\r\n      CALL SFETCH (NEWNAM,4HEQSS,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      NEWPTS = MODPTS\r\n      IF (FREBDY) NEWPTS = NEWPTS + FARIND\r\nC\r\nC     PROCESS EQSS GROUP 0 DATA\r\nC\r\n      IF (KORBGN+ITRLR(2)+2 .GE. KORLEN) GO TO 230\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(2),1,NWDSRD)\r\n      NCSUBS = Z(KORBGN+2)\r\n      Z(KORBGN+2) = Z(KORBGN+2) + 1\r\n      Z(KORBGN+3) = Z(KORBGN+3) + NEWPTS\r\n      NEWCS = ITRLR(2)\r\n      Z(KORBGN+NEWCS  ) = NEWNAM(1)\r\n      Z(KORBGN+NEWCS+1) = NEWNAM(2)\r\n      NEWCS = ITRLR(2) + 2\r\n      CALL SUWRT (Z(KORBGN),NEWCS,2)\r\nC\r\nC     PROCESS REMAINING EQSS GROUPS\r\nC\r\n      NWDS = KORLEN - KORBGN\r\n      DO 20 I = 1,NCSUBS\r\n      CALL READ (*215,*10,EQST,Z(KORBGN),NWDS,1,NWDSRD)\r\n      GO TO 230\r\n   10 IF (KORBGN+1+NWDSRD .GE. KORLEN) GO TO 230\r\n   20 CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\nC\r\nC     PROCESS MODAL AND FREE-BODY POINTS\r\nC\r\n      IF (KORBGN+3*NEWPTS .GE. KORLEN) GO TO 230\r\n      DO 30 I = 1,NEWPTS\r\n      KORE = 3*(I-1)\r\n      IF (.NOT.FREBDY) GO TO 24\r\n      IF (I .GT. FARIND) GO TO 22\r\n      Z(KORBGN+KORE) = I\r\n      GO TO 26\r\n   22 Z(KORBGN+KORE) = 100 + I - FARIND\r\n      GO TO 26\r\n   24 Z(KORBGN+KORE  ) = 100 + I\r\n   26 Z(KORBGN+KORE+1) = ITRLR(4)/2 + I\r\n   30 Z(KORBGN+KORE+2) = 1\r\n      NWDSRD = 3*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\nC\r\nC     PROCESS EQSS SIL DATA\r\nC\r\n      IF (KORBGN+ITRLR(4)+2*NEWPTS .GE. KORLEN) GO TO 230\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(4),1,NWDSRD)\r\n      NWDSRD = ITRLR(4) - 1\r\n      ICODE  = Z(KORBGN+NWDSRD)\r\n      CALL DECODE (ICODE,LSTBIT,NWDSD)\r\n      LSTSIL = Z(KORBGN+NWDSRD-1) + NWDSD - 1\r\n      DO 40 I = 1,NEWPTS\r\n      KORE = ITRLR(4) + 2*(I-1)\r\n      Z(KORBGN+KORE  ) = LSTSIL + I\r\n   40 Z(KORBGN+KORE+1) = 1\r\n      NWDSRD = ITRLR(4) + 2*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\nC\r\nC     PROCESS BGSS DATA\r\nC\r\n      IF (KORBGN+ITRLR(5)+4*NEWPTS .GE. KORLEN) GO TO 230\r\n      ITEM  = ITMLST(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,4HBGSS,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),3,1,NWDSRD)\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      Z(KORBGN+2) = Z(KORBGN+2) + NEWPTS\r\n      LOCBGS = KORBGN\r\n      CALL SUWRT (Z(KORBGN),3,2)\r\n      CALL READ (*215,*220,EQST,Z(KORBGN),ITRLR(5),1,NWDSRD)\r\n      DO 50 I = 1,NEWPTS\r\n      KORE = ITRLR(5) + 4*(I-1)\r\n      Z(KORBGN+KORE   ) = -1\r\n      RZ(KORBGN+KORE+1) = 0.0\r\n      RZ(KORBGN+KORE+2) = 0.0\r\n   50 RZ(KORBGN+KORE+3) = 0.0\r\n      NWDSRD = ITRLR(5) + 4*NEWPTS\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\n      KORBGN = KORBGN + ITRLR(5)\r\nC\r\nC     PROCESS LODS, LOAP ITEM\r\nC\r\n   55 ITEM = LODS\r\n      IF (POPT .EQ. PAPP) ITEM = LOAP\r\n      ITEST = 3\r\n      CALL SFETCH (OLDNAM,ITEM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 60\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      IF ((KORBGN + NWDSRD) .GE. KORLEN) GO TO 230\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      Z(KORBGN+3) = Z(KORBGN+3) + 1\r\n      Z(KORBGN+NWDSRD  ) = NEWNAM(1)\r\n      Z(KORBGN+NWDSRD+1) = NEWNAM(2)\r\n      Z(KORBGN+NWDSRD+2) = SOFEOG\r\n      IWDS  = NWDSRD + 3\r\n      CALL SUREAD (Z(KORBGN+IWDS),-2,NWDSRD,ITEST)\r\n      IF (KORBGN+IWDS+NWDSRD+2 .GE. KORLEN) GO TO 230\r\n      Z(KORBGN+IWDS+NWDSRD  ) = 0\r\n      Z(KORBGN+IWDS+NWDSRD+1) = SOFEOG\r\n      IWDS  = IWDS + NWDSRD + 2\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,ITEM,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      CALL SUWRT (Z(KORBGN),IWDS,3)\r\n      IF (PONLY) GO TO 130\r\nC\r\nC     PROCESS PLTS ITEM\r\nC\r\n   60 CALL SFETCH (OLDNAM,4HPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 70\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,4HPLTS,2,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 250\r\n      ITEST = 2\r\n      CALL SUWRT (Z(KORBGN),NWDSRD,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(KORBGN),0,ITEST)\r\nC\r\nC     PROCESS CSTM ITEM\r\nC\r\n   70 CALL SFETCH (OLDNAM,4HCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 130\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      IF (KORBGN+2*NWDSRD .GE. KORLEN) GO TO 230\r\n      Z(KORBGN  ) = NEWNAM(1)\r\n      Z(KORBGN+1) = NEWNAM(2)\r\n      KORE = NWDSRD - 4\r\n      CALL SORT(0,0,14,1,Z(KORBGN+3),KORE)\r\n      KORE = KORE/14\r\n      IF (KORBGN+2*NWDSRD+KORE .GE. KORLEN) GO TO 230\r\n      DO 80 I = 1, KORE\r\n   80 Z(KORBGN+NWDSRD+I-1) = 0\r\n      NBGSS = ITRLR(5)/4\r\n      DO 100 I = 1, NBGSS\r\n      K = 4*(I-1)\r\n      IF (Z(LOCBGS+K) .LE. 0) GO TO 100\r\n      DO 90 J = 1,KORE\r\n      LOC = 14*(J-1)\r\n      IF (Z(KORBGN+3+LOC) .NE. Z(LOCBGS+K)) GO TO 90\r\n      Z(KORBGN+NWDSRD+J-1) = 1\r\n      GO TO 100\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      LOCNEW = 0\r\n      DO 120 I = 1,KORE\r\n      IF (Z(KORBGN+NWDSRD+I-1) .EQ. 0) GO TO 120\r\n      LOCOLD = 14*(I-1)\r\n      DO 110 J = 1,14\r\n  110 Z(KORBGN+NWDSRD+KORE+LOCNEW+J-1) = Z(KORBGN+3+LOCOLD+J-1)\r\n      LOCNEW = LOCNEW + 14\r\n  120 CONTINUE\r\n      IF (LOCNEW .EQ. 0) GO TO 130\r\n      ITEST = 3\r\n      CALL SFETCH (NEWNAM,4HCSTM,2,ITEST)\r\n      CALL SUWRT (NEWNAM,2,2)\r\n      CALL SUWRT (Z(KORBGN+NWDSRD+KORE),LOCNEW,2)\r\n      CALL SUWRT (Z(KORBGN),0,3)\r\nC\r\nC     OUTPUT EQSS ITEM\r\nC\r\n  130 CALL CLOSE (EQST,1)\r\n      IF (ANDF(RSHIFT(IO,4),1) .NE. 1) GO TO 150\r\n      CALL SFETCH (NEWNAM,4HEQSS,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      CALL SUREAD (Z(KORBGN), 4,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      LOC = KORBGN + NWDSRD\r\n      NCSUBS = NCSUBS + 1\r\n      DO 140 I = 1, NCSUBS\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      NAMLOC = KORBGN + 2*(I-1)\r\n      CALL CMIWRT (1,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z)\r\n  140 CONTINUE\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      IF ((LOC + NWDSRD) .GE. KORLEN) GO TO 230\r\n      CALL CMIWRT (8,NEWNAM,0,LOC,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT BGSS ITEM\r\nC\r\n  150 IF (ANDF(RSHIFT(IO,5),1) .NE. 1) GO TO 160\r\n      CALL SFETCH (NEWNAM,4HBGSS,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (2,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT CSTM ITEM\r\nC\r\n  160 IF (ANDF(RSHIFT(IO,6),1) .NE. 1) GO TO 170\r\n      CALL SFETCH (NEWNAM,4HCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 170\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (3,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT PLTS ITEM\r\nC\r\n  170 IF (ANDF(RSHIFT(IO,7),1) .NE. 1) GO TO 180\r\n      CALL SFETCH (NEWNAM,4HPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 180\r\n      CALL SUREAD (Z(KORBGN), 3,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (4,NEWNAM,NEWNAM,KORBGN,NWDSRD,Z,Z)\r\nC\r\nC     OUTPUT LODS ITEM\r\nC\r\n  180 IF (ANDF(RSHIFT(IO,8),1) .NE. 1) GO TO 200\r\n      CALL SFETCH (NEWNAM,ITEM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 200\r\n      CALL SUREAD (Z(KORBGN), 4,NWDSRD,ITEST)\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      LOC = KORBGN + NWDSRD\r\n      ITYPE = 5\r\n      IF (ITEM .EQ. LOAP) ITYPE = 7\r\n      DO 190 I = 1,NCSUBS\r\n      NAMLOC = KORBGN + 2*(I-1)\r\n      CALL SUREAD (Z(LOC),-1,NWDSRD,ITEST)\r\n      CALL CMIWRT (ITYPE,NEWNAM,Z(NAMLOC),LOC,NWDSRD,Z,Z)\r\n      ITYPE = 6\r\n  190 CONTINUE\r\nC\r\nC     OUTPUT MODAL DOF SUMMARY\r\nC\r\n  200 IF (ANDF(RSHIFT(IO,9),1) .NE. 1) GO TO 209\r\n      ITEM = ITMLST(3)\r\n      ITMNAM(1) = OLDNAM(1)\r\n      ITMNAM(2) = OLDNAM(2)\r\n      CALL SFETCH (OLDNAM,ITEM,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      CALL PAGE1\r\n      WRITE (IPRNTR,901) NEWNAM\r\n      LINE = LINE + 11\r\n      NOFREQ = Z(KORBGN+3)\r\n      LAMLOC = KORBGN\r\n      MODUSE = LAMLOC + 7*NOFREQ + 1\r\n      CALL SUREAD (Z(KORBGN),-2,NWDSRD,ITEST)\r\n      IF ((KORBGN + NWDSRD) .GE. KORLEN) GO TO 230\r\n      IF (USRMOD .GT. 1) GO TO 205\r\n      ITEM = ITMLST(1)\r\n      ITMNAM(1) = NEWNAM(1)\r\n      ITMNAM(2) = NEWNAM(2)\r\n      CALL SFETCH (NEWNAM,ITEM,1,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 250\r\n      KORBGN = KORBGN + MODUSE + NOFREQ\r\n      IF (KORBGN .GE. KORLEN) GO TO 230\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      DO 201 I = 1,NCSUBS\r\n      CALL SUREAD (Z(KORBGN),-1,NWDSRD,ITEST)\r\n      IF (KORBGN+NWDSRD .GE. KORLEN) GO TO 230\r\n  201 CONTINUE\r\n      IPRB = 0\r\n      IF (FREBDY) IPRB = Z(KORBGN+1) - 1\r\n      NWDSRD = NWDSRD/3\r\n      LOCEQS = KORBGN\r\n      DO 202 I = 1,NWDSRD\r\n      J = 1 + 3*(I-1)\r\n      IPID = Z(LOCEQS+J)\r\n      IF (Z(LOCEQS+J-1) .GT. 100) GO TO 203\r\n  202 CONTINUE\r\n  203 KORBGN = KORBGN + 3*NWDSRD\r\n      IPID = 2*IPID\r\n      IF (KORBGN+IPID .GE. KORLEN) GO TO 230\r\n      CALL SUREAD (Z(KORBGN),IPID,NWDSRD,ITEST)\r\n      IPS = Z(KORBGN+IPID-2)\r\n      IF (.NOT. FREBDY) GO TO 205\r\n      DO 204 I = 1,FARIND\r\n      J = 3*(I-1)\r\n      K = 2*((I-1) + IPRB)\r\n  204 WRITE (IPRNTR,902) IZERO,ZERO,IZERO,Z(LOCEQS+J),Z(KORBGN+K)\r\n  205 INDEX1 = -3\r\n      IF (FREBDY) INDEX1 = 3*FARIND - 3\r\n      DO 208 I = 1,NOFREQ\r\n      IF (LINE .LE. NLPP) GO TO 206\r\n      CALL PAGE1\r\n      WRITE (IPRNTR,901) NEWNAM\r\n      LINE = LINE + 11\r\n  206 IF ((Z(MODUSE+I-1) .GT. 1) .OR. (USRMOD .GT. 1)) GO TO 207\r\n      INDEX1 = INDEX1 + 3\r\n      MODE = 7*(I-1)\r\n      WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1),\r\n     1       Z(LOCEQS+INDEX1),IPS\r\n      IPS = IPS + 1\r\n      GO TO 208\r\n  207 MODE = 7*(I-1)\r\n      WRITE (IPRNTR,902) Z(LAMLOC+MODE),RZ(LAMLOC+MODE+4),Z(MODUSE+I-1)\r\n  208 LINE = LINE + 1\r\n  209 CONTINUE\r\n      GO TO 300\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  210 IMSG = -1\r\n      GO TO 240\r\n  215 IMSG = -2\r\n      GO TO 240\r\n  220 IMSG = -3\r\n      GO TO 240\r\n  230 IMSG = -8\r\n      IFILE = 0\r\n  240 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      GO TO 300\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  250 GO TO (260,260,260,270,280,280), ITEST\r\n  260 CALL SMSG1 (-9,ITEM,ITMNAM,MODNAM)\r\n      DRY = -2\r\n      GO TO 300\r\n  270 IMSG = -2\r\n      GO TO 290\r\n  280 IMSG = -3\r\n  290 CALL SMSG (IMSG,ITEM,ITMNAM)\r\n  300 RETURN\r\nC\r\n  901 FORMAT (1H0,36X,43HMODAL DOF SUMMARY FOR REDUCED SUBSTRUCTURE ,\r\n     1       2A4, //30X,36HUSAGE CODES ARE 0 - RIGID BODY POINT, /46X,\r\n     2       25H1 - INCLUDED IN MODAL SET, /46X,20H2 - EXCLUDED FROM MO,\r\n     3       36HDAL SET BECAUSE OF NON-PARTICIPATION,/46X,10H3 - EXCLUD,\r\n     4       42HED FROM MODAL SET BECAUSE OF RANGE OR NMAX,//40X,4HMODE,\r\n     5       22X,15HUSAGE      GRID, /39X,6HNUMBER,8X,6HCYCLES,8X,\r\n     6       26HCODE    POINT ID       SIL,/)\r\n  902 FORMAT (39X,I5,5X,1P,E13.6,6X,I1,6X,I8,4X,I6)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2i.f",
    "content": "      SUBROUTINE MRED2I (KODE,NUF,N2)\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE GS MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER          DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,TYPINU,\r\n     1                 QSMROW,QSMCOL,GS,QSM,DBLKOR,SGLKOR,QSMTYP\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION        MODNAM(2),ITRLR1(7),RZ(1),DZ(1)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  IDUM1,DRY,IDUM2,GBUF1,IDUM3(5),INFILE(12),\r\n     1                 OTFILE(6),ISCR(10),KORLEN,KORBGN,IDUM6(14),\r\n     2                 NMODES,MODLEN\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  IDUM4,IPRNTR\r\n      COMMON /CONDAS/  IDUM5(4),FORPI2\r\n      COMMON /PACKX /  TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /UNPAKX/  TYPINU,IROWU,NROWU,INCRU\r\n      EQUIVALENCE      (LAMAMR,INFILE(2)),(QSM,INFILE(12)),\r\n     1                 (GS,ISCR(7)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/  4HMRED,4H2I  /, IDIAG / 3 /\r\nC\r\nC     TEST OPERATION MODE\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\nC\r\nC     FORM GS MATRIX\r\nC\r\nC                 **     **\r\nC                 *       *        T\r\nC        **  **   * .   0 * **   **\r\nC        *    *   *  .    * *     *                 2\r\nC        * GS * =-*  1/K  * * QSM *    WHERE K = M W\r\nC        *    *   *    .  * *     *               I I\r\nC        **  **   * 0   . * **   **\r\nC                 *       *\r\nC                 **     **\r\nC\r\n      ITRLR1(1) = QSM\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 100\r\n      QSMROW = ITRLR1(2)\r\n      QSMCOL = ITRLR1(3)\r\nC\r\nC                        2\r\nC     FORM K = 1.0 / (M W )\r\nC                      I I\r\nC\r\n      IF (KORBGN+7+QSMROW .GE. KORLEN) GO TO 80\r\n      IFILE = LAMAMR\r\n      CALL GOPEN (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*70,LAMAMR)\r\n      NMODES = 0\r\n   10 CALL READ (*60,*15,LAMAMR,Z(KORBGN),7,0,NWDSRD)\r\n      RZ(KORBGN+7+NMODES) = 1.0/(FORPI2*RZ(KORBGN+5)*(RZ(KORBGN+4)**2))\r\n      NMODES = NMODES + 1\r\n      IF (KORBGN+7+NMODES .GE. KORLEN) GO TO 80\r\n      GO TO 10\r\n   15 CALL CLOSE (LAMAMR,1)\r\n      IF (NMODES .NE. QSMROW) GO TO 110\r\n      MODLEN = NMODES\r\nC\r\nC     READ QSM INTO CORE\r\nC\r\n      KORE   = KORBGN\r\n      KORBGN = KORBGN + 7 + ITRLR1(2)\r\n      IF (KORBGN+QSMROW*(QSMCOL+1) .GE. KORLEN) GO TO 80\r\n      TYPINU = ITRLR1(5)\r\n      IROWU  = 1\r\n      NROWU  = ITRLR1(3)\r\n      INCRU  = 1\r\n      QSMTYP = ITRLR1(5)\r\n      DBLKOR = KORBGN/2 + 1\r\n      SGLKOR = 2*DBLKOR - 1\r\n      CALL GOPEN (QSM,Z(GBUF1),0)\r\n      IF (QSMTYP .EQ. 2) GO TO 26\r\n      LOCQSM = SGLKOR\r\n      DO 25 I = 1,QSMROW\r\n      CALL UNPACK (*20,QSM,RZ(SGLKOR))\r\n      GO TO 25\r\n   20 DO 22 J = 1,QSMCOL\r\n   22 RZ(SGLKOR+J-1) = 0.0E0\r\n   25 SGLKOR = SGLKOR + ITRLR1(3)\r\n      KORBGN = SGLKOR\r\n      GO TO 30\r\n   26 LOCQSM = DBLKOR\r\n      DO 29 I = 1,QSMROW\r\n      CALL UNPACK (*27,QSM,DZ(DBLKOR))\r\n      GO TO 29\r\n   27 DO 28 J = 1,QSMCOL\r\n   28 DZ(DBLKOR+J-1) = 0.0D0\r\n   29 DBLKOR = DBLKOR + ITRLR1(3)\r\n      KORBGN = DBLKOR\r\n   30 CALL CLOSE (QSM,1)\r\nC\r\nC     FORM GS MATRIX\r\nC\r\n      TYPIN  = ITRLR1(5)\r\n      TYPOUT = ITRLR1(5)\r\n      IROW   = 1\r\n      NROW   = QSMROW\r\n      INCR   = 1\r\n      CALL MAKMCB (ITRLR1,GS,QSMROW,IDIAG,TYPIN)\r\n      DBLKOR = KORBGN/2 + 1\r\n      SGLKOR = 2*DBLKOR - 1\r\n      CALL GOPEN (GS,Z(GBUF1),1)\r\n      DO 35 I = 1,QSMCOL\r\n      DO 34 J = 1,QSMROW\r\n      K = 3*(J-1)\r\n      IF (QSMTYP .EQ. 2) GO TO 32\r\n      RZ(SGLKOR+J-1) = RZ(KORE+7+J-1)*RZ(LOCQSM+K)\r\n      GO TO 34\r\n   32 CONTINUE\r\n      DZ(DBLKOR+J-1) = RZ(KORE+7+J-1)*DZ(LOCQSM+K)\r\n   34 CONTINUE\r\n   35 CALL PACK (DZ(DBLKOR),GS,ITRLR1)\r\n      KORBGN = KORE\r\n      CALL CLOSE (GS,1)\r\n      CALL WRTTRL (ITRLR1)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   60 IMSG = -2\r\n      GO TO 90\r\n   70 IMSG = -3\r\n      GO TO 90\r\n   80 IMSG = -8\r\n      IFILE = 0\r\n   90 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n  100 WRITE (IPRNTR,900) UFM\r\n      GO TO 120\r\n  110 WRITE (IPRNTR,901) UFM,QSMROW,QSMCOL,NMODES\r\n  120 DRY = -2\r\n      RETURN\r\nC\r\n  900 FORMAT (A23,' 6638, IN MODULE MREDUCE WITH USERMODE=2, THE ',\r\n     1       'CONSTRAINT FORCES MATRIX (QSM) CANNOT BE PURGED.')\r\n  901 FORMAT (A23,' 6634, IN MODULE MREDUCE WITH USERMODE=2, THE ',\r\n     1       'CONSTRAINT FORCES MATRIX (',I3,3H X ,I3,1H), /30X,\r\n     2       'IS INCOMPATABLE WITH THE NUMBER OF MODES (',I3,2H).)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2j.f",
    "content": "      SUBROUTINE MRED2J (NUF,N2)\r\nC\r\nC     THIS SUBROUTINE PARTITIONS THE PHISS MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER         DRY,GBUF1,OTFILE,TYPIN,TYPOUT,PHISS,RPRTN,\r\n     1                ITRLR1(7),MODNAM(2)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM4,GBUF1,IDUM2(5),INFILE(12),\r\n     1                OTFILE(6),ISCR(10),KORLEN,KORBGN,IDUM3(14),NMODES\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      EQUIVALENCE     (PHISS,INFILE(3)),(PHISS1,ISCR(8)),\r\n     1                (PHISS2,ISCR(9)) ,(RPRTN,ISCR(10))\r\n      DATA    MODNAM/ 4HMRED,4H2J  /\r\nC\r\nC     SET UP PARTITIONING VECTOR\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS    4/92\r\nC     ORIGINALLY AT THIS POINT, THE FOLLOWING DO 20 LOOP IS IN ERROR\r\nC       1. KOLUMN AND J ARE NOT DEFINED\r\nC       2. NROW AND ITRLR1 ARE ALSO NOT YET DEFINED\r\nC\r\nC     MY BEST GUESS IS THE NEXT 10 LINES THAT FOLLOW\r\nC\r\n      IFILE = PHISS\r\n      ITRLR1(1) = PHISS\r\n      CALL RDTRL (ITRLR1)\r\n      IF (ITRLR1(1) .LT. 0) GO TO 30\r\n      KOLUMN = ITRLR1(2)\r\n      NROW   = ITRLR1(3)\r\n      DO 20 I = 1,KOLUMN\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. NUF) RZ(KORBGN+I-1) = 1.0\r\n   20 CONTINUE\r\nC\r\n      IFORM = 7\r\n      CALL MAKMCB (ITRLR1,RPRTN,NROW,IFORM,ITRLR1(5))\r\n      CALL GOPEN  (RPRTN,RZ(GBUF1),1)\r\n      CALL PACK   (RZ(KORBGN),RPRTN,ITRLR1)\r\n      CALL CLOSE  (RPRTN,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     PARTITION PHISS MATRIX\r\nC\r\nC        **     **   **               **\r\nC        *       *   *        .        *\r\nC        * PHISS * = * PHISS1 . PHISS2 *\r\nC        *       *   *        .        *\r\nC        **     **   **               **\r\nC\r\n      ITRLR1(1) = PHISS\r\n      CALL RDTRL (ITRLR1)\r\n      N2 = NMODES - NUF\r\n      CALL GMPRTN (PHISS,PHISS1,0,PHISS2,0,RPRTN,0,NUF,N2,RZ(KORBGN),\r\n     1             KORLEN)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   30 IMSG = -1\r\n      CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2l.f",
    "content": "      SUBROUTINE MRED2L (NUF,N2,NUS,UFBITS)\r\nC\r\nC     THIS SUBROUTINE PREFORMS PRELIMINARY CALCULATIONS AND MERGES OF\r\nC     THE HK MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         DRY,GBUF1,SBUF1,SBUF2,SBUF3,OTFILE,T,SIGNAB,SIGNC,\r\n     1                PREC,SCR,TYPIN,TYPOUT,ANDF,ROWS,UFBITS,PHISS1,\r\n     2                PHISS,DBLKOR,SGLKOR\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION       ITRLR1(7),ITRLR2(7),MODNAM(2),ISUB(4),RZ(1),DZ(1)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,IDUM3(2),SBUF1,SBUF2,SBUF3,\r\n     1                INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                IDUM4(14),MODPTS,IDUM5(2),LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MPYADX/ ITRLRA(7),ITRLRB(7),ITRLRC(7),ITRLRD(7),NZ,T,\r\n     1                SIGNAB,SIGNC,PREC,SCR\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      EQUIVALENCE     (GS,ISCR(7)),(PHISS1,ISCR(8)),(PHISS2,ISCR(9)),\r\n     1                (IDENT,ISCR(5)),(PHISS,ISCR(6)),(PHIGS,ISCR(2)),\r\n     2                (PHIS12,ISCR(2)),(PHI12I,ISCR(8)),(RPRTN,ISCR(5)),\r\n     3                (CPRTN,ISCR(10)),(RZ(1),Z(1)),(DZ(1),Z(1))\r\n      DATA    MODNAM/ 4HMRED,4H2L  /\r\nC\r\nC                  -1\r\nC     COMPUTE PHISS1\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      CALL SOFCLS\r\n      IFILE = PHISS1\r\n      ITRLR1(1) = PHISS1\r\n      CALL RDTRL (ITRLR1)\r\n      CALL GOPEN (PHISS1,Z(GBUF1),0)\r\n      KOLUMN = ITRLR1(2)\r\n      ROWS  = ITRLR1(3)\r\n      ITEST = KOLUMN * ROWS\r\n      IF ((KORBGN+ITEST+(3*KOLUMN)) .GE. KORLEN) GO TO 190\r\n      KORE = 0\r\n      DBLKOR = (KORBGN/2) + 1\r\n      SGLKOR = (2*DBLKOR) - 1\r\n      IF (ITRLR1(5) .EQ. 2) GO TO 15\r\n      DO 10 I = 1,KOLUMN\r\n      CALL READ (*170,*180,PHISS1,Z(SGLKOR+KORE),ROWS,0,NWDSRD)\r\n   10 KORE  = KORE + ROWS\r\n      ICORE = ((SGLKOR+ITEST)/2) + 1\r\n      GO TO 19\r\n   15 DO 18 I = 1,KOLUMN\r\n      CALL READ (*170,*180,PHISS1,DZ(DBLKOR+KORE),ROWS,0,NWDSRD)\r\n   18 KORE  = KORE + ROWS\r\n      ICORE = DBLKOR + ITEST\r\n   19 CALL CLOSE (PHISS1,1)\r\n      INVERT = 0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (ROWS,DZ(DBLKOR),KOLUMN,B,INVERT,DETERM,ISING,\r\n     1             DZ(ICORE))\r\n      IF (ISING .EQ. 2) GO TO 192\r\n      KORE  = 0\r\n      INCR  = 1\r\n      TYPIN = 1\r\n      TYPOUT= 1\r\n      IROW  = 1\r\n      NROW  = KOLUMN\r\n      CALL MAKMCB (ITRLR2,PHISS1,NROW,ITRLR1(4),ITRLR1(5))\r\n      CALL GOPEN (PHISS1,Z(GBUF1),1)\r\n      DO 29 I = 1,ROWS\r\n      IF (ITRLR1(5) .EQ. 2) GO TO 25\r\n      CALL PACK (RZ(SGLKOR+KORE),PHISS1,ITRLR2)\r\n      GO TO 29\r\n   25 CALL PACK (DZ(DBLKOR+KORE),PHISS1,ITRLR2)\r\n   29 KORE = KORE + ROWS\r\n      CALL CLOSE (PHISS1,1)\r\nC\r\nC     COMPUTE PHIGS\r\nC\r\nC                               -1\r\nC        **     **    **      **  **     ** **  **\r\nC        *       *    *        *  *       * *    *\r\nC        * PHIGS * = -* PHISS1 *  * PHISS * * GS *\r\nC        *       *    *        *  *       * *    *\r\nC        **     **    **      **  **     ** **  **\r\nC\r\n      ITRLR1(1) = PHISS1\r\n      ITRLR2(1) = PHISS\r\n      CALL RDTRL (ITRLR1)\r\n      CALL RDTRL (ITRLR2)\r\n      ICOL = ITRLR2(3)\r\n      DO 30 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n      ITRLRB(I) = ITRLR2(I)\r\n   30 ITRLRC(I) = 0\r\n      CALL MAKMCB (ITRLRD,PHISSI,ITRLR2(3),ITRLR2(4),ITRLR2(5))\r\n      T = 0\r\n      SIGNAB = -1\r\n      SIGNC = 1\r\n      PREC = 0\r\n      SCR = ISCR(10)\r\n      NZ = LSTZWD - ((2*DBLKOR)-1)\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\n      ITRLR1(1) = GS\r\n      CALL RDTRL (ITRLR1)\r\n      DO 40 I = 1,7\r\n      ITRLRA(I) = ITRLRD(I)\r\n   40 ITRLRB(I) = ITRLR1(I)\r\n      CALL MAKMCB (ITRLRD,PHIGS,ITRLR1(3),ITRLR1(4),ITRLR1(5))\r\n      SIGNAB = 1\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\nC\r\nC     FORM HKPG MATRIX\r\nC\r\nC                   **               **\r\nC                   *       .         *\r\nC                   *       .      -1 *\r\nC        **    **   * PHIGS . PHISS   *\r\nC        *      *   *       .         *\r\nC        * HKPG * = *.................*\r\nC        *      *   *       .         *\r\nC        **    **   *   0   .    0    *\r\nC                   *       .         *\r\nC                   **               **\r\nC\r\n      NROW = NUF + N2\r\n      DO 90 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. N2) RZ(KORBGN+I-1) = 1.0\r\n   90 CONTINUE\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      INCR   = 1\r\n      IFORM  = 7\r\n      CALL MAKMCB (ITRLR1,CPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (CPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),CPRTN,ITRLR1)\r\n      CALL CLOSE (CPRTN,1)\r\n      CALL WRTTRL (ITRLR1)\r\n      NROW  = NUS + NUF\r\n      IFILE = USETMR\r\n      CALL GOPEN (USETMR,Z(GBUF1),0)\r\n      DO 100 I = 1,NROW\r\n      CALL READ (*170,*180,USETMR,Z(KORBGN),1,0,NWDSRD)\r\n      RZ(KORBGN+I) = 0.0\r\n      IF (ANDF(Z(KORBGN),UFBITS) .NE. 0) RZ(KORBGN+I) = 1.0\r\n  100 CONTINUE\r\n      CALL CLOSE (USETMR,1)\r\n      NROW = ROWS\r\n      ROWS = NUF + N2\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN+1),RPRTN,ITRLR2)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\n      ISUB(1) = NUF\r\n      ISUB(2) = N2\r\n      ISUB(3) = NUS\r\n      ISUB(4) = N2\r\n      ITYPE   = 2\r\n      CALL GMMERG (HKPG,PHIGSH,0,PHISS1,0,RPRTN,CPRTN,ISUB,ITYPE,\r\n     1             Z(KORBGN),KORLEN)\r\nC\r\nC     COMPUTE PHIS12\r\nC\r\nC                                -1\r\nC        **      **    **      **  **      **\r\nC        *        *    *        *  *        *\r\nC        * PHIS12 * = -* PHISS1 *  * PHISS2 *\r\nC        *        *    *        *  *        *\r\nC        **      **    **      **  **      **\r\nC\r\n      ITRLR1(1) = PHISS1\r\n      ITRLR2(1) = PHISS2\r\n      CALL RDTRL (ITRLR1)\r\n      CALL RDTRL (ITRLR2)\r\n      MODPTS = ITRLR1(3) + ITRLR2(3)\r\n      DO 110 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n  110 ITRLRB(I) = ITRLR2(I)\r\n      CALL MAKMCB (ITRLRD,PHIS12,ITRLR2(3),ITRLR2(4),ITRLR2(5))\r\n      SIGNAB = -1\r\n      CALL MPYAD (DZ(DBLKOR),DZ(DBLKOR),DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRD)\r\nC\r\nC     GENERATE IDENTITY MATRIX\r\nC\r\n      NROW = ITRLRD(3)\r\n      CALL MAKMCB (ITRLR1,IDENT,NROW,ITRLRD(4),ITRLRD(5))\r\n      CALL GOPEN (IDENT,Z(GBUF1),1)\r\n      DO 130 I = 1,NROW\r\n      DO 120 J = 1,NROW\r\n      RZ(KORBGN+J-1) = 0.0\r\n      IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0\r\n  120 CONTINUE\r\n  130 CALL PACK (Z(KORBGN),IDENT,ITRLR1)\r\n      CALL CLOSE (IDENT,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     GENERATE PHI12I MATRIX\r\nC\r\nC                     **      **\r\nC                     *        *\r\nC        **      **   * PHIS12 *\r\nC        *        *   *        *\r\nC        * PHI12I * = *........*\r\nC        *        *   *        *\r\nC        **      **   *   I    *\r\nC                     *        *\r\nC                     **      **\r\nC\r\n      ITRLR1(1) = PHIS12\r\n      CALL RDTRL (ITRLR1)\r\n      ISUB(3) = ITRLR1(3)\r\n      ISUB(4) = NROW\r\n      NROW = ITRLR1(2) + NROW\r\n      DO 140 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. ITRLR1(2)) RZ(KORBGN+I-1) = 1.0\r\n  140 CONTINUE\r\n      INCR = 1\r\n      CALL MAKMCB (ITRLR2,CPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (CPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE (CPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\n      CALL GMMERG (PHI12I,PHIS12,IDENT,0,0,0,CPRTN,ISUB,ITYPE,\r\n     1             Z(KORBGN),KORLEN)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  170 IMSG = -2\r\n      GO TO 200\r\n  180 IMSG = -3\r\n      GO TO 200\r\n  190 IMSG = -8\r\n      GO TO 194\r\n  192 IMSG = -37\r\n  194 IFILE = 0\r\n  200 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2m.f",
    "content": "      SUBROUTINE MRED2M (NUF,N2,NUS)\r\nC\r\nC     THIS SUBROUTINE FORMS THE HK MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER         DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,HKPG,PHI12I,HK,\r\n     1                RPRTN,CPRTN\r\n      DIMENSION       ITRLR1(7),MODNAM(2),ITRLR2(7),ISUB(4),RZ(1)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM4,GBUF1,IDUM2(17),OTFILE(6),\r\n     1                ISCR(10),KORLEN,KORBGN,IDUM3(14),NMODES\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      EQUIVALENCE     (HK,ISCR(2)),(IDENT,ISCR(8)),(HKPG,ISCR(3)),\r\n     1                (PHI12I,ISCR(8)),(CPRTN,ISCR(9)),(RPRTN,ISCR(9))\r\n      EQUIVALENCE     (RZ(1),Z(1))\r\n      DATA    MODNAM/ 4HMRED,4H2M  /\r\nC\r\nC     FORM HK MATRIX\r\nC\r\nC        **  **   **             **\r\nC        *    *   *      .        *\r\nC        * HK * = * HKPG . PHI12I *\r\nC        *    *   *      .        *\r\nC        **  **   **             **\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (NUF .EQ.  0) GO TO 30\r\n      ITRLR1(1) = HKPG\r\n      CALL RDTRL (ITRLR1)\r\n      ITRLR2(1) = PHI12I\r\n      CALL RDTRL (ITRLR2)\r\n      INCR    = 1\r\n      TYPIN   = 1\r\n      TYPOUT  = 1\r\n      IROW    = 1\r\n      NROW    = ITRLR1(3) + ITRLR2(3)\r\n      ISUB(1) = ITRLR1(3)\r\n      ISUB(2) = ITRLR2(3)\r\n      DO 20 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. ITRLR1(3)) RZ(KORBGN+I-1) = 1.0\r\n   20 CONTINUE\r\n      IFORM = 7\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\n      ITYPE = 2\r\n      CALL GMMERG (HK,HKPG,0,PHI12I,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN),\r\n     1            KORLEN)\r\n      RETURN\r\nC\r\nC     NO UF POINTS\r\nC\r\nC        **  **   **     **\r\nC        *    *   *   .   *\r\nC        * HK * = * 0 . I *\r\nC        *    *   *   .   *\r\nC        **  **   **     **\r\nC\r\n   30 TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      NROW   = NMODES\r\n      INCR   = 1\r\n      IFORM  = 8\r\n      IF (KORBGN+NMODES .GE. KORLEN) GO TO 100\r\nC\r\nC     GENERATE IDENTITY MATRIX\r\nC\r\n      CALL MAKMCB (ITRLR2,IDENT,NMODES,IFORM,TYPIN)\r\n      CALL GOPEN  (IDENT,Z(GBUF1),1)\r\n      DO 70 I = 1,NMODES\r\n      DO 60 J = 1,NMODES\r\n      RZ(KORBGN+J-1) = 0.0\r\n      IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0\r\n   60 CONTINUE\r\n   70 CALL PACK (Z(KORBGN),IDENT,ITRLR2)\r\n      CALL CLOSE (IDENT,1)\r\n      CALL WRTTRL (ITRLR2)\r\nC\r\nC     GENERATE ROW PARTITIONING VECTOR\r\nC\r\n      NROW = NUS + NMODES\r\n      IF (KORBGN+NROW .GE. KORLEN) GO TO 100\r\n      J = NROW\r\n      DO 90 I = 1,J\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. NUS) RZ(KORBGN+I-1) = 1.0\r\n   90 CONTINUE\r\n      IFORM = 7\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (RPRTN,Z(GBUF1),1)\r\n      CALL PACK (Z(KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\nC\r\nC     FORM HK MATRIX\r\nC\r\n      ISUB(1) = NUS\r\n      ISUB(2) = NMODES\r\n      ITYPE   = 2\r\n      CALL GMMERG (HK,0,0,IDENT,0,RPRTN,0,ISUB,ITYPE,Z(KORBGN),KORLEN)\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM ERRORS\r\nC\r\n  100 IMSG  =-8\r\n      IFILE = 0\r\n      CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mred2n.f",
    "content": "      SUBROUTINE MRED2N\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE K MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER         DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OTFILE,PREC,\r\n     1                TYPIN,TYPOUT,HK,DBLKOR\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION       ITRLR1(7),ITRLR2(7),MODNAM(2),RZ(1),DZ(1)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,GBUF2,IDUM3,SBUF1,SBUF2,\r\n     1                SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                IDUM4(14),NMODES,IDUM6(2),LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CONDAS/ IDUM5(4),FORPI2\r\n      COMMON /MPY3TL/ ITRLRA(7),ITRLRB(7),ITRLRE(7),ITRLRC(7),JSCR(3),\r\n     1                LKORE,ICODE,PREC,DUMMY(13)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      EQUIVALENCE     (LAMAMR,INFILE(2)),(RZ(1),Z(1)),(DZ(1),Z(1)),\r\n     1                (HK,ISCR(2)),(KMW2,ISCR(5)),(K,ISCR(3))\r\n      DATA    MODNAM/ 4HMRED,4H2N  /\r\nC\r\nC                    2\r\nC     FORM KMW2 = M W  MATRIX\r\nC                  I I\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (KORBGN+7+NMODES .GE. KORLEN) GO TO 75\r\n      IFILE = LAMAMR\r\n      CALL GOPEN  (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*70,LAMAMR)\r\n      IFORM = 3\r\n      ITYPE = 1\r\n      CALL MAKMCB (ITRLR1,KMW2,NMODES,IFORM,ITYPE)\r\n      TYPIN = 1\r\n      TYPOUT= 1\r\n      IROW  = 1\r\n      NROW  = NMODES\r\n      INCR  = 1\r\n      CALL GOPEN (KMW2,Z(GBUF2),1)\r\n      DO 20 I = 1,NMODES\r\n      CALL READ (*60,*70,LAMAMR,Z(KORBGN),7,0,NWDSRD)\r\n      DO 10 J = 1,NMODES\r\n      RZ(KORBGN+7+J-1) = 0.0\r\n      IF (J .EQ. I)\r\n     1    RZ(KORBGN+7+J-1) = FORPI2*RZ(KORBGN+5)*(RZ(KORBGN+4)**2)\r\n   10 CONTINUE\r\n   20 CALL PACK (Z(KORBGN+7),KMW2,ITRLR1)\r\n      CALL CLOSE (LAMAMR,1)\r\n      CALL CLOSE (KMW2,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     FORM K MATRIX\r\nC\r\nC                      T\r\nC                       **      **\r\nC        ** **   **  ** * .    0 * **  **\r\nC        *   *   *    * *  .     * *    *                  2\r\nC        * K * = * HK * *   K    * * HK *     WHERE K = M W\r\nC        *   *   *    * *    .   * *    *                I I\r\nC        ** **   **  ** * 0   .  * **  **\r\nC                       **      **\r\nC\r\n      ITRLR2(1) = HK\r\n      CALL RDTRL (ITRLR2)\r\n      DO 30 I = 1,7\r\n      ITRLRA(I) = ITRLR2(I)\r\n      ITRLRB(I) = ITRLR1(I)\r\n   30 ITRLRE(I) = 0\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2\r\n      IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      IFORM = 6\r\n      CALL MAKMCB (ITRLRC,K,ITRLR2(3),IFORM,ITYPE)\r\n      JSCR(1) = ISCR(8)\r\n      JSCR(2) = ISCR(6)\r\n      JSCR(3) = ISCR(2)\r\n      ICODE   = 0\r\n      PREC    = 0\r\n      DBLKOR  = (KORBGN/2) + 1\r\n      LKORE   = LSTZWD - (2*DBLKOR - 1)\r\n      CALL SOFCLS\r\n      CALL MPY3DR (DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRC)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n   60 IMSG = -2\r\n      GO TO 80\r\n   70 IMSG = -3\r\n      GO TO 80\r\n   75 IMSG = -8\r\n      IFILE = 0\r\n   80 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2o.f",
    "content": "      SUBROUTINE MRED2O (NUS)\r\nC\r\nC     THIS SUBROUTINE FORMS THE M MATRIX FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER         DRY,GBUF1,GBUF2,SBUF1,SBUF2,SBUF3,OTFILE,Z,\r\n     1                TYPIN,TYPOUT,PREC,TYPEA,TYPEB,HK,GS,RPRTN,HM,\r\n     2                GSZERO,DBLKOR\r\n      DOUBLE PRECISION DZ\r\n      DIMENSION       ITRLR1(7),ITRLR2(7),MODNAM(2),ISUB(4),\r\n     1                RZ(1),BLOCK(11),DZ(1)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,GBUF2,IDUM3,SBUF1,SBUF2,\r\n     1                SBUF3,INFILE(12),OTFILE(6),ISCR(10),KORLEN,KORBGN,\r\n     2                IDUM5(14),NMODES,IDUM4(2),LSTZWD\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MPY3TL/ ITRLRA(7),ITRLRB(7),ITRLRE(7),ITRLRC(7),JSCR(3),\r\n     1                LKORE,ICODE,PREC,DUMMY(13)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      EQUIVALENCE     (LAMAMR,INFILE(2)),(GS,ISCR(7)),(DZ(1),Z(1)),\r\n     1                (HK,ISCR(2)),(KMW2,ISCR(5)),(HM,ISCR(9)),\r\n     2                (GSZERO,ISCR(10)),(M,ISCR(10)),(RPRTN,ISCR(8)),\r\n     3                (RZ(1),Z(1)),(TYPEA,BLOCK(1)),(TYPEB,BLOCK(7))\r\n      DATA    MODNAM/ 4HMRED,4H2O  /\r\nC\r\nC     FORM HM MATRIX\r\nC\r\nC        **  **   **  **   **          **\r\nC        *    *   *    *   *    .   .   *\r\nC        * HM * = * HK * + * GS . 0 . 0 *\r\nC        *    *   *    *   *    .   .   *\r\nC        **  **   **  **   **          **\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IF (NUS .EQ.  0) GO TO 60\r\nC\r\nC     GENERATE ROW PARTITION VECTOR\r\nC\r\n      ITRLR1(1) = HK\r\n      CALL RDTRL (ITRLR1)\r\n      ITRLR2(1) = GS\r\n      CALL RDTRL (ITRLR2)\r\n      TYPIN = 1\r\n      TYPOUT= 1\r\n      IROW  = 1\r\n      NROW  = ITRLR1(2)\r\n      INCR  = 1\r\n      DO 40 I = 1,NROW\r\n      RZ(KORBGN+I-1) = 0.0\r\n      IF (I .GT. ITRLR2(2)) RZ(KORBGN+I-1) = 1.0\r\n   40 CONTINUE\r\n      IFORM = 7\r\n      CALL MAKMCB (ITRLR2,RPRTN,NROW,IFORM,TYPIN)\r\n      CALL GOPEN  (RPRTN,Z(GBUF1),1)\r\n      CALL PACK   (Z(KORBGN),RPRTN,ITRLR2)\r\n      CALL CLOSE  (RPRTN,1)\r\n      CALL WRTTRL (ITRLR2)\r\nC\r\nC     MERGE GS, ZERO MATRICES\r\nC\r\n      ISUB(1) = ITRLR2(2)\r\n      ISUB(2) = ITRLR1(2) - ITRLR2(2)\r\n      CALL GMMERG (GSZERO,GS,0,0,0,RPRTN,0,ISUB,ITRLR2(5),Z(KORBGN),\r\n     1             KORLEN)\r\nC\r\nC     FORM HM MATRIX\r\nC\r\n      ITRLR2(1) = GSZERO\r\n      CALL RDTRL (ITRLR2)\r\n      DO 50 I = 1,11\r\n   50 BLOCK(I) = 0.0\r\n      BLOCK(2) = 1.0\r\n      BLOCK(8) = 1.0\r\n      TYPEA = ITRLR1(5)\r\n      TYPEB = ITRLR2(5)\r\n      IOP   = 1\r\n      CALL SOFCLS\r\n      CALL SSG2C (HK,GSZERO,HM,IOP,BLOCK)\r\n      GO TO 70\r\nC\r\nC     IF NO US POINTS\r\nC\r\nC        **  **   **  **\r\nC        *    *   *    *\r\nC        * HM * = * HK *\r\nC        *    *   *    *\r\nC        **  **   **  **\r\nC\r\n   60 HM = HK\r\n      CALL SOFCLS\r\nC\r\nC     FORM KMW2 = M  MATRIX\r\nC                  I\r\nC\r\n   70 IFILE = LAMAMR\r\n      CALL GOPEN  (LAMAMR,Z(GBUF1),0)\r\n      CALL FWDREC (*140,LAMAMR)\r\n      IFORM = 3\r\n      ITYPE = 1\r\n      CALL MAKMCB (ITRLR1,KMW2,NMODES,IFORM,ITYPE)\r\n      TYPIN = 1\r\n      TYPOUT= 1\r\n      IROW  = 1\r\n      NROW  = NMODES\r\n      INCR  = 1\r\n      CALL GOPEN (KMW2,Z(GBUF2),1)\r\n      DO 90 I = 1,NMODES\r\n      CALL READ (*130,*140,LAMAMR,Z(KORBGN),7,0,NWDSRD)\r\n      DO 80 J = 1,NMODES\r\n      RZ(KORBGN+7+J-1) = 0.0\r\n      IF (J .EQ. I) RZ(KORBGN+7+J-1) = RZ(KORBGN+5)\r\n   80 CONTINUE\r\n   90 CALL PACK  (Z(KORBGN+7),KMW2,ITRLR1)\r\n      CALL CLOSE (LAMAMR,1)\r\n      CALL CLOSE (KMW2,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     FORM M MATRIX\r\nC\r\nC                      T\r\nC                **  ** **     ** **  **\r\nC        ** **   *    * * .     * *    *\r\nC        *   *   *    * *  .    * *    *\r\nC        * M * = * HM * *   M   * * HM *     WHERE M = M\r\nC        *   *   *    * *    .  * *    *                I\r\nC        ** **   *    * *     . * *    *\r\nC                **  ** **     ** **  **\r\nC\r\n      ITRLR1(1) = HM\r\n      ITRLR2(1) = KMW2\r\n      CALL RDTRL (ITRLR1)\r\n      CALL RDTRL (ITRLR2)\r\n      DO 100 I = 1,7\r\n      ITRLRA(I) = ITRLR1(I)\r\n      ITRLRB(I) = ITRLR2(I)\r\n  100 ITRLRE(I) = 0\r\n      IPRC = 1\r\n      ITYP = 0\r\n      IF ((ITRLRA(5) .EQ. 2) .OR. (ITRLRA(5) .EQ. 4)) IPRC = 2\r\n      IF ((ITRLRB(5) .EQ. 2) .OR. (ITRLRB(5) .EQ. 4)) IPRC = 2\r\n      IF (ITRLRA(5) .GE. 3) ITYP = 2\r\n      IF (ITRLRB(5) .GE. 3) ITYP = 2\r\n      ITYPE = IPRC + ITYP\r\n      IFORM = 6\r\n      CALL MAKMCB (ITRLRC,M,ITRLR1(3),IFORM,ITYPE)\r\n      JSCR(1) = ISCR(7)\r\n      JSCR(2) = ISCR(8)\r\n      JSCR(3) = ISCR(6)\r\n      ICODE   = 0\r\n      PREC    = 0\r\n      DBLKOR  = (KORBGN/2) + 1\r\n      LKORE   = LSTZWD - (2*DBLKOR - 1)\r\n      CALL MPY3DR (DZ(DBLKOR))\r\n      CALL WRTTRL (ITRLRC)\r\n      CALL SOFOPN (Z(SBUF1),Z(SBUF2),Z(SBUF3))\r\n      RETURN\r\nC\r\nC     PROCESS SYSTEM FATAL ERRORS\r\nC\r\n  130 IMSG = -2\r\n      GO TO 150\r\n  140 IMSG = -3\r\n  150 CALL SOFCLS\r\n      CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mred2p.f",
    "content": "      SUBROUTINE MRED2P (NUS,NUF,N2)\r\nC\r\nC     THIS SUBROUTINE OUTPUTS THE HAB MATRIX TO THE SOF AS THE HORG ITEM\r\nC     FOR THE MRED2 MODULE.\r\nC\r\n      INTEGER         DRY,GBUF1,OTFILE,Z,TYPIN,TYPOUT,HAB\r\n      DIMENSION       RZ(1),MODNAM(2),ITRLR1(7)\r\n      COMMON /BLANK / IDUM1,DRY,IDUM2,GBUF1,IDUM3(17),OTFILE(6),\r\n     1                ISCR(10),KORLEN,KORBGN,OLDNAM(2),IDUM4(12),NMODES\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /SYSTEM/ IDUM5,IPRNTR\r\n      EQUIVALENCE     (HAB,ISCR(2)),(RZ(1),Z(1))\r\n      DATA    MODNAM/ 4HMRED,4H2P  /\r\n      DATA    ITEM  / 4HHORG/\r\nC\r\nC     FORM HAB MATRIX\r\nC\r\nC        **   **   **     **\r\nC        *     *   *   .   *\r\nC        * HAB * = * I . 0 *\r\nC        *     *   *   .   *\r\nC        **   **   **     **\r\nC\r\n      IF (DRY .EQ. -2) GO TO 160\r\n      KOLMNS = NUS + NUF + N2\r\n      IF (N2 .EQ. 0) KOLMNS = KOLMNS + (NMODES - NUF)\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      IROW   = 1\r\n      NROW   = NUS + NUF\r\n      INCR   = 1\r\n      IFORM  = 2\r\n      CALL MAKMCB (ITRLR1,HAB,NROW,IFORM,TYPIN)\r\n      CALL GOPEN (HAB,Z(GBUF1),1)\r\n      DO 20 I = 1,KOLMNS\r\n      DO 10 J = 1,NROW\r\n      RZ(KORBGN+J-1) = 0.0\r\n      IF (I .GT. NUS+NUF) GO TO 10\r\n      IF (J .EQ. I) RZ(KORBGN+J-1) = 1.0\r\n   10 CONTINUE\r\n   20 CALL PACK (Z(KORBGN),HAB,ITRLR1)\r\n      CALL CLOSE (HAB,1)\r\n      CALL WRTTRL (ITRLR1)\r\nC\r\nC     STORE HAB MATRIX AS HORG ON SOF\r\nC\r\n      CALL MTRXO (HAB,OLDNAM,ITEM,0,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 70\r\n      GO TO 160\r\nC\r\nC     PROCESS MODULE FATAL ERRORS\r\nC\r\n   70 GO TO (80,90,100,110,120,140), ITEST\r\n   80 IMSG = -9\r\n      GO TO 150\r\n   90 IMSG = -11\r\n      GO TO 150\r\n  100 IMSG = -1\r\n      GO TO 130\r\n  110 IMSG = -2\r\n      GO TO 130\r\n  120 IMSG = -3\r\n  130 CALL SMSG (IMSG,ITEM,OLDNAM)\r\n      GO TO 160\r\n  140 IMSG = -10\r\n  150 DRY = -2\r\n      CALL SMSG1 (IMSG,ITEM,OLDNAM,MODNAM)\r\n  160 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mrge.f",
    "content": "      SUBROUTINE MRGE (LIST, N, STRING, M)\r\nC*****\r\nC MRGE IS A MERGE ROUTINE. GIVEN A SORTED LIST AND A SORTED STRING,\r\nC MRGE ADDS THE ENTRIES IN THE STRING TO THE LIST IN THEIR APPROPRIATE\r\nC POSITIONS.  DUPLICATES ARE DISCARDED.\r\nC\r\nC  ARGUMENTS\r\nC\r\nC     LIST   --- THE ARRAY CONTAINING THE SORTED LIST\r\nC     N      --- THE NUMBER OF TERMS BEFORE AND AFTER THE MERGE\r\nC     STRING --- THE ARRAY CONTAINING THE SORTED STRING\r\nC     M      --- THE NUMBER OF TERMS IN THE STRING\r\nC\r\nC*****\r\n      INTEGER LIST(1), STRING(1)\r\nC\r\nC LOCATE THE POSITION IN THE LIST OF THE FIRST TERM IN THE STRING\r\nC\r\n      KK = 1\r\n      ID = STRING(KK)\r\n      CALL BISLOC (*12, ID, LIST, 1, N, K)\r\n      KSTART = MIN0( K+1, N )\r\n      K2 = 2\r\n      GO TO 13\r\n   12 KSTART = MAX0( 1, K-1 )\r\n      K2 = 1\r\nC\r\nC CREATE A HOLE IN THE LIST BY MOVING THE END OF THE LIST.\r\nC\r\n   13 K = N\r\n   14 LIST(K+M) = LIST(K)\r\n      K = K - 1\r\n      IF( K .GE. KSTART ) GO TO 14\r\n      K1 = KSTART + M\r\n      NM = N + M\r\n      K = KSTART\r\nC\r\nC NOW ADD TO THE LIST BY MERGING FROM THE TWO STRINGS\r\nC\r\n   16 IF( K1 .GT. NM ) GO TO 60\r\n      IF( K2 .GT. M  ) GO TO 50\r\n      IF (LIST(K1) - STRING(K2)) 20, 40, 30\r\nC\r\nC    CHOOSE TERM FROM OLD LIST\r\nC\r\n   20 LIST(K) = LIST(K1)\r\n      K1 = K1 + 1\r\n      K  = K  + 1\r\n      GO TO 16\r\nC\r\nC    CHOOSE TERM FROM STRING\r\nC\r\n   30 LIST(K) = STRING(K2)\r\n      K2 = K2 + 1\r\n      K  = K  + 1\r\n      GO TO 16\r\nC\r\nC    DUPLICATES -- DISCARD TERM FROM STRING\r\nC\r\n   40 K2 = K2 + 1\r\n      GO TO 20\r\nC\r\nC    STRING EXHAUSTED -- COMPLETE LIST FROM OLD LIST\r\nC\r\n   50 DO 52 KX=K1,NM\r\n      LIST(K) = LIST(KX)\r\n      K = K + 1\r\n   52 CONTINUE\r\n      GO TO 68\r\nC\r\nC    OLD LIST EXHAUSTED -- COMPLETE LIST FROM STRING\r\nC\r\n   60 IF( K2 .GT. M ) GO TO 68\r\n      DO 62 KX=K2,M\r\n      LIST(K) = STRING(KX)\r\n      K = K + 1\r\n   62 CONTINUE\r\nC\r\nC RETURN NEW NUMBER OF TERMS IN LIST.\r\nC\r\n   68 N = K - 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mring.f",
    "content": "      SUBROUTINE MRING (POINTS)\r\nC\r\nC     HEAT CONDUCTIVITY SMA2 ROUITNE FOR TRIANGULAR (POINTS=3) AND\r\nC     TRAPEZOIDAL (POINTS=4) RING ELEMENTS.\r\nC     THIS ROUTINE IS SEPARATE FROM MTRAPR AND MTRIRG SO AS TO BE\r\nC     IN OVERLAY WITH MTRMEM AND MQDMEM.\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         POINTS   ,OUTPT    ,SYSBUF   ,TINT     ,MAP(15)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /SYSTEM/ SYSBUF   ,OUTPT    ,NOGO\r\n      COMMON /SMA2ET/ ECPT(100)\r\n      EQUIVALENCE     (T,TINT)\r\n      DATA    PI23  / 2.0943951024  /\r\n      DATA    MAP   / 1,2,3, 1,2,3, 2,3,4, 3,4,1, 4,1,2 /\r\nC\r\nC     ECPT LISTS\r\nC\r\nC     ECPT     TRIRG -------- TRMEM          TRAPRG ------- QDMEM\r\nC     ===========================================================\r\nC      1       EL-ID          EL-ID          EL-ID          EL-ID\r\nC      2       SIL-1          SIL-1          SIL-1          SIL-1\r\nC      3       SIL-2          SIL-2          SIL-2          SIL-2\r\nC      4       SIL-3          SIL-3          SIL-3          SIL-3\r\nC      5       THETA          THETA          SIL-4          SIL-4\r\nC      6       MATID          MATID          THETA          THETA\r\nC      7       CSID-1         T              MATID          MATID\r\nC      8       X1             NS-MASS        CSID-1         T\r\nC      9       Y1             CSID-1         X1             NS-MASS\r\nC     10       Z1             X1             Y1             CSID-1\r\nC     11       CSID-2         Y1             Z1             X1\r\nC     12       X2             Z1             CSID-2         Y1\r\nC     13       Y2             CSID-2         X2             Z1\r\nC     14       Z2             X2             Y2             CSID-2\r\nC     15       CSID-3         Y2             Z2             X2\r\nC     16       X3             Z2             CSID-3         Y2\r\nC     17       Y3             CSID-3         X3             Z2\r\nC     18       Z3             X3             Y3             CSID-3\r\nC     19       AVG-TEMP       Y3             Z3             X3\r\nC     20                      Z3             CSID-4         Y3\r\nC     21                      AVG-TEMP       X4             Z3\r\nC     22                                     Y4             CSID-4\r\nC     23                                     Z4             X4\r\nC     24                                     AVG-TEMP       Y4\r\nC     25                                                    Z4\r\nC     26                                                    AVG-TEMP\r\nC\r\nC     GEOMETRY CHECKS X  MUST BE .GT.0, AND Y = 0  FOR I = 1,2,..,POINTS\r\nC                      I                     I\r\nC\r\n      I1 = POINTS + 4\r\n      I2 = I1 + 4*POINTS - 1\r\n      DO 20 I = I1,I2,4\r\n      IF (ECPT(I+1)) 140,10,10\r\n   10 IF (ECPT(I+2)) 140,20,140\r\n   20 CONTINUE\r\nC\r\nC     POINT ORDERING CHECK.\r\nC\r\n      IF (POINTS .EQ. 4) GO TO 30\r\n      I1 = 1\r\n      I2 = 3\r\n      GO TO 40\r\n   30 I1 = 4\r\n      I2 = 15\r\n   40 JPOINT = POINTS + 1\r\n      DO 50 I = I1,I2,3\r\n      IR = MAP(I  )*4 + JPOINT\r\n      IS = MAP(I+1)*4 + JPOINT\r\n      IT = MAP(I+2)*4 + JPOINT\r\n      TEMP = (ECPT(IS) - ECPT(IR))*(ECPT(IT+2) - ECPT(IS+2))  -\r\n     1       (ECPT(IT) - ECPT(IS))*(ECPT(IS+2) - ECPT(IR+2))\r\n      IF (TEMP) 140,140,50\r\n   50 CONTINUE\r\nC\r\nC     TRAPEZOID TEST.\r\nC\r\n      IF (POINTS .NE. 4) GO TO 100\r\n      IF (ECPT(11) - ECPT(15)) 70,60,70\r\n   60 IF (ECPT(19) - ECPT(23)) 70,90,70\r\n   70 CALL PAGE2 (-2)\r\n      WRITE  (OUTPT,80) SWM,ECPT(1)\r\n   80 FORMAT (A27,' 3091, A TRAPRG ELEMENT =',I14,' DOES NOT HAVE ',\r\n     1       'SIDE 1-2 PARALLEL TO SIDE 3-4.')\r\nC\r\nC     THICKNESS OF TRMEM OR QDMEM TO BE CALLED BELOW.\r\nC     QDMEM WILL SUBDIVIDE THICKNESS FOR SUB-TRIANGLES AND THUS\r\nC     T IS SET = INTEGER 1 AS A FLAG TO QDMEM ROUTINE WHICH WILL\r\nC     COMPUTE T FOR EACH.\r\nC\r\nC     TEMP. PATH FOR APPROX. THICKNESS\r\nC\r\n   90 T = PI23*(ECPT(9) + ECPT(13) + ECPT(17) + ECPT(21))*3.0/4.0\r\n      GO TO 110\r\n  100 T = PI23*(ECPT(8) + ECPT(12) + ECPT(16))\r\nC\r\nC  CONVERT ECPT TO THAT OF A TRMEM OR QDMEM.\r\nC\r\n  110 J = 5*POINTS + 6\r\n      K = 4*POINTS + 1\r\n      DO 120 I = 1,K\r\n      ECPT(J) = ECPT(J-2)\r\n      J = J - 1\r\n  120 CONTINUE\r\n      ECPT(POINTS+4) = T\r\n      ECPT(POINTS+5) = 0.0\r\n      IF (POINTS .EQ. 4) GO TO 130\r\nC\r\nC     MTRMEM CALL\r\nC\r\n      CALL MASSTQ (4)\r\n      RETURN\r\nC\r\nC     MQDMEM CALL\r\nC\r\n  130 CALL MASSTQ (1)\r\n      RETURN\r\nC\r\nC     BAD GEOMETRY FATAL ERROR.\r\nC\r\n  140 WRITE  (OUTPT,150) UFM,ECPT(1)\r\n  150 FORMAT (A23,' 3092, TRIRG OR TRAPRG ELEMENT =',I14,' POSSESSES ',\r\n     1       'ILLEGAL GEOMETRY.')\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/msgwrt.f",
    "content": "      SUBROUTINE MSGWRT\r\nC\r\nC     MSGWRT WILL PRINT THE INDICATED ERROR MESSAGES ON THE OUTPUT TAPE\r\nC\r\n      INTEGER         OUTTAP,NAME(2),POS(2),NEG(2),PNG(2)\r\n      DIMENSION       XMSG(4,1),IPAG(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /MSGX  / N,M,MSG(4,1)\r\n      EQUIVALENCE     (XMSG(1,1),MSG(1,1))\r\n      DATA   POS,NEG/ 4HWARN,4HING ,4HFATA,4HL    /\r\n      DATA   NMSGS  / 117/ , IPAG / 4H PAG,4HE2   /\r\nC\r\n      DO 99 I = 1,N\r\n      L = IABS(MSG(1,I))\r\n      IF (MACH.EQ.3 .AND. L.GE.1125 .AND. L.LE.1320) GO TO 80\r\nC\r\nC     *** NOTE ***  CHANGE IF STATEMENT WHEN YOU CHANGE GO TO\r\nC                   MAKE SURE MESSAGE NO. IS WITHIN GO TO RANGE\r\nC\r\n      IF (L .GT. NMSGS) GO TO 98\r\n      IF (L .EQ.    30) GO TO 30\r\n      IF (MSG(3,I).NE.IPAG(1) .AND. MSG(4,I).NE.IPAG(2)) CALL PAGE2 (4)\r\n      IF (L.GE.71 .AND. L.LE.NMSGS) GO TO 210\r\nC\r\nC     --- NOTE --- INCREASE THE UPPER LIMIT TO ADD MORE MESSAGES\r\nC\r\n      LPLUS = L + 3000\r\n      DO 205 J = 1,2\r\n      PNG(J) = POS(J)\r\n      IF (MSG(1,I) .LT. 0) PNG(J) = NEG(J)\r\n  205 CONTINUE\r\n      CALL FNAME (MSG(2,I),NAME)\r\nC\r\n      GO TO (  1,  2,  3,  4,  5,  6,  7,  8,  9, 10,\r\n     1        11, 12, 13, 14, 15, 16, 17, 18, 19, 20,\r\n     2        21, 22, 23, 24, 25, 26, 27, 28, 29, 30,\r\n     3        31, 32, 33, 34, 35, 36, 37, 38, 39, 40,\r\n     4        41, 42, 43, 44, 45, 46, 47, 48, 49, 50,\r\n     5        51, 52, 53, 54, 55, 56, 57, 58, 59, 60,\r\n     6        61, 62, 63, 64, 65, 66, 67, 68, 69, 70), L\r\nC\r\nC     *** CHANGE L INTO CORRECT GINO.NASTIO.PACKUNPK ERROR NUMBER\r\nC\r\n  210 LPLUS = L + 1055\r\n      WRITE (OUTTAP,2005) SFM,LPLUS\r\nC\r\nC     *** BRANCH TO PRINT APPROPRIATE ERROR MESSAGE\r\nC     --- NOTE - EACH NEW MESSAGE REQUIRES A NEW PRINT STATEMENT\r\nC\r\n      LPLUS = L - 70\r\n      GO TO ( 226,  227,  228,  229,  230,  231,  232,  233,  234,\r\n     9  235,  236,  237,  238,  239,  240,  241,  242,  243,  244,\r\n     8  245,  246,  247,  248,  249,  250,  251,  252,  253,  254,\r\n     7  255,  256,  257,  258,  259,  260,  261,  262,  263,  264,\r\n     6  265,  266,  267,  268,  269,  270,  271,  272), LPLUS\r\nC\r\nC     *** GINO FORMAT NUMBERS MATCH THE MESSAGE NUMBER.\r\nC\r\n  226 WRITE (OUTTAP,1126)\r\n      GO TO 99\r\n  227 WRITE (OUTTAP,1127)\r\n      GO TO 99\r\n  228 WRITE (OUTTAP,1128)\r\n      GO TO 99\r\n  229 WRITE (OUTTAP,1129)\r\n      GO TO 99\r\n  230 WRITE (OUTTAP,1130)\r\n      GO TO 99\r\n  231 WRITE (OUTTAP,1131)\r\n      GO TO 99\r\n  232 WRITE (OUTTAP,1132)\r\n      GO TO 99\r\n  233 WRITE (OUTTAP,1133)\r\n      GO TO 99\r\n  234 WRITE (OUTTAP,1134)\r\n      GO TO 99\r\n  235 WRITE (OUTTAP,1135)\r\n      GO TO 99\r\n  236 WRITE (OUTTAP,1136)\r\n      GO TO 99\r\n  237 WRITE (OUTTAP,1137)\r\n      GO TO 99\r\n  238 WRITE (OUTTAP,1138)\r\n      GO TO 99\r\n  239 WRITE (OUTTAP,1139)\r\n      GO TO 99\r\n  240 WRITE (OUTTAP,1140)\r\n      GO TO 99\r\n  241 WRITE (OUTTAP,1141)\r\n      GO TO 99\r\n  242 WRITE (OUTTAP,1142)\r\n      GO TO 99\r\n  243 WRITE (OUTTAP,1143)\r\n      GO TO 99\r\n  244 WRITE (OUTTAP,1144)\r\n      GO TO 99\r\n  245 WRITE (OUTTAP,1145)\r\n      GO TO 99\r\n  246 WRITE (OUTTAP,1146)\r\n      GO TO 99\r\n  247 WRITE (OUTTAP,1147)\r\n      GO TO 99\r\n  248 WRITE (OUTTAP,1148)\r\n      GO TO 99\r\n  249 WRITE (OUTTAP,1149)\r\n      GO TO 99\r\n  250 WRITE (OUTTAP,1150)\r\n      GO TO 99\r\n  251 WRITE (OUTTAP,1151)\r\n      GO TO 99\r\n  252 WRITE (OUTTAP,1152)\r\n      GO TO 99\r\n  253 WRITE (OUTTAP,1153)\r\n      GO TO 99\r\n  254 WRITE (OUTTAP,1154)\r\n      GO TO 99\r\n  255 WRITE (OUTTAP,1155)\r\n      GO TO 99\r\n  256 WRITE (OUTTAP,1156)\r\n      GO TO 99\r\n  257 WRITE (OUTTAP,1157)\r\n      GO TO 99\r\n  258 WRITE (OUTTAP,1158)\r\n      GO TO 99\r\n  259 WRITE (OUTTAP,1159)\r\n      GO TO 99\r\n  260 WRITE (OUTTAP,1160)\r\n      GO TO 99\r\n  261 WRITE (OUTTAP,1161)\r\n      GO TO 99\r\n  262 WRITE (OUTTAP,1162) SFM\r\n      GO TO 99\r\n  263 WRITE (OUTTAP,1163) SFM\r\n      GO TO 99\r\n  264 WRITE (OUTTAP,1164)\r\n      GO TO 99\r\n  265 WRITE (OUTTAP,1165)\r\n      GO TO 99\r\n  266 WRITE (OUTTAP,1166) SFM\r\n      GO TO 99\r\n  267 WRITE (OUTTAP,1167) SFM\r\n      GO TO 99\r\n  268 WRITE (OUTTAP,1168)\r\n      GO TO 99\r\n  269 WRITE (OUTTAP,1169) SFM\r\n      GO TO 99\r\n  270 WRITE (OUTTAP,1170)\r\n      GO TO 99\r\n  271 WRITE (OUTTAP,1171)\r\n      GO TO 99\r\n  272 WRITE (OUTTAP,1172) SFM\r\n      GO TO 99\r\nC\r\nC    *** END OF GINO ERRORS SECTION\r\nC\r\n    1 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,101 ) MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n    2 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,102 ) NAME,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n    3 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,103 ) NAME,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n    4 WRITE (OUTTAP,2005) SFM,LPLUS\r\n      WRITE (OUTTAP,104 ) NAME\r\n      GO TO 99\r\n    5 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,105 ) NAME,MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n    6 WRITE (OUTTAP,106 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I)\r\n      GO TO 99\r\n    7 WRITE (OUTTAP,2005) SFM,LPLUS\r\n      WRITE (OUTTAP,107 ) MSG(3,I),MSG(4,I)\r\n      IF (MSG(1,I) .GE. 0) GO TO 99\r\n      CALL ERRTRC ('MSGWRT  ',0)\r\n      GO TO 99\r\n    8 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,108 ) MSG(3,I),MSG(4,I)\r\n      IF (MSG(2,I) .GT.0) WRITE (OUTTAP,1081) MSG(2,I)\r\n      J = -MSG(2,I)\r\n      IF (J .GT. 0) WRITE (OUTTAP,1082) J\r\n      IF (MACH.EQ.3 .OR. MACH.EQ.5) WRITE (OUTTAP,1083)\r\n      GO TO 99\r\n    9 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,109 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   10 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,110 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   11 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,111 ) MSG(2,I)\r\n      GO TO 99\r\n   12 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,112 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   13 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,113 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   14 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,114 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   15 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,115 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   16 WRITE (OUTTAP,2005) SFM,LPLUS\r\n      WRITE (OUTTAP,116 ) NAME,MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   17 WRITE (OUTTAP,2010) UWM,LPLUS\r\n      IF (MSG(2,I) .EQ. 0) WRITE (OUTTAP,117 )\r\n      IF (MSG(2,I) .NE. 0) WRITE (OUTTAP,1175)\r\n      GO TO 99\r\n   18 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,118 ) MSG(3,I),MSG(4,I),MSG(2,I)\r\n      GO TO 99\r\n   19 WRITE (OUTTAP,2015) UFM,LPLUS\r\n      WRITE (OUTTAP,119 ) MSG(3,I),MSG(4,I),MSG(2,I)\r\n      GO TO 99\r\n   20 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,120 ) MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   21 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,121 ) MSG(2,I)\r\n      GO TO 99\r\n   22 WRITE (OUTTAP,2025) SWM,LPLUS\r\n      WRITE (OUTTAP,2026)\r\n      WRITE (OUTTAP,122 ) MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   23 CONTINUE\r\n      WRITE (OUTTAP,123 ) UIM,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   24 WRITE (OUTTAP,2020) UIM,LPLUS\r\n      WRITE (OUTTAP,124 ) NAME,MSG(3,I)\r\n      GO TO 99\r\n   25 WRITE (OUTTAP,2005) SFM,LPLUS\r\n      WRITE (OUTTAP,125 ) MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   26 WRITE (OUTTAP,2005) SFM,LPLUS\r\n      WRITE (OUTTAP,126 ) NAME,MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   27 WRITE (OUTTAP,2020) UIM,LPLUS\r\n      WRITE (OUTTAP,127 ) MSG(2,I)\r\n      GO TO 99\r\n   28 CONTINUE\r\n      WRITE (OUTTAP,128 ) UIM,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   29 WRITE (OUTTAP,129 ) SFM,NAME,MSG(2,I)\r\n      GO TO 99\r\n   30 CALL USRMSG (I)\r\n      GO TO 99\r\n   31 CONTINUE\r\n   32 WRITE (OUTTAP,2015) UFM,LPLUS\r\n      WRITE (OUTTAP,132 ) MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   33 WRITE (OUTTAP,133 ) UFM,MSG(2,I)\r\n      GO TO 99\r\n   34 WRITE (OUTTAP,2010) UWM,LPLUS\r\n      WRITE (OUTTAP,134 ) XMSG(2,I),XMSG(3,I)\r\n      GO TO 99\r\n   35 WRITE (OUTTAP,2020) UIM,LPLUS\r\n      WRITE (OUTTAP,135 ) MSG(2,I),XMSG(3,I)\r\n      GO TO 99\r\n   36 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,136 ) MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   37 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,137 ) MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   38 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,138 ) MSG(2,I)\r\n      GO TO 99\r\n   39 WRITE (OUTTAP,139 ) SFM\r\n      GO TO 99\r\n   40 WRITE (OUTTAP,2000) PNG,LPLUS\r\n      WRITE (OUTTAP,140 ) NAME,MSG(2,I)\r\n      GO TO 99\r\n   41 WRITE (OUTTAP,2010) UWM,LPLUS\r\n      WRITE (OUTTAP,141 ) MSG(2,I)\r\n      GO TO 99\r\n   42 WRITE (OUTTAP,2010) UWM,LPLUS\r\n      WRITE (OUTTAP,142 ) XMSG(2,I)\r\n      GO TO 99\r\n   43 WRITE (OUTTAP,2015) UFM,LPLUS\r\n      WRITE (OUTTAP,143 ) MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   44 WRITE (OUTTAP,2015) UFM,LPLUS\r\n      WRITE (OUTTAP,144 ) MSG(2,I),MSG(3,I)\r\n      GO TO 99\r\n   45 WRITE (OUTTAP,145 ) UWM,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   46 WRITE (OUTTAP,146 ) UFM\r\n      GO TO 99\r\n   47 WRITE (OUTTAP,147 ) UFM\r\n      GO TO 99\r\n   48 WRITE (OUTTAP,148 ) SFM,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   49 WRITE (OUTTAP,149 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I)\r\n      GO TO 99\r\n   50 WRITE (OUTTAP,150 ) SFM,MSG(3,I),MSG(4,I),MSG(2,I)\r\n      GO TO 99\r\n   51 WRITE (OUTTAP,151 ) UFM,MSG(2,I)\r\n      GO TO 99\r\n   52 WRITE (OUTTAP,152 ) UWM,MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   53 WRITE (OUTTAP,153 ) UWM,MSG(2,I),MSG(3,I)\r\n      GO TO 99\r\n   54 WRITE (OUTTAP,154 ) UWM,MSG(2,I),XMSG(3,I)\r\n      GO TO 99\r\n   55 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,155 ) MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   56 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,156 )\r\n      GO TO 99\r\n   57 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,157 ) NAME\r\n      GO TO 99\r\n   58 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,158 ) XMSG(2,I),MSG(3,I)\r\n       GO TO 99\r\n   59 WRITE (OUTTAP,2001) PNG,LPLUS\r\n      WRITE (OUTTAP,159 ) MSG(2,I),MSG(3,I),MSG(4,I)\r\n      GO TO 99\r\n   60 WRITE (OUTTAP,160 ) UFM\r\n      GO TO 99\r\n   61 CONTINUE\r\n      GO TO 99\r\n   62 WRITE (OUTTAP,162 ) SFM\r\n      GO TO 99\r\n   63 WRITE (OUTTAP,163 ) SFM\r\n      GO TO 99\r\n   64 WRITE (OUTTAP,164 ) SFM\r\n      GO TO 99\r\n   65 WRITE (OUTTAP,165 ) SFM\r\n      GO TO 99\r\n   66 WRITE (OUTTAP,166 ) SFM\r\n      GO TO 99\r\n   67 WRITE (OUTTAP,167 ) SFM\r\n      GO TO 99\r\n   68 WRITE (OUTTAP,168 ) SFM\r\n      GO TO 99\r\n   69 WRITE (OUTTAP,169 ) SFM\r\n      GO TO 99\r\n   70 WRITE (OUTTAP,170 ) SFM\r\n      GO TO 99\r\n   80 CALL MSGUNI (L)\r\n      GO TO 99\r\n   98 WRITE (OUTTAP,198 ) MSG(1,I),MSG(2,I),MSG(3,I),MSG(4,I)\r\n   99 CONTINUE\r\n      IF (N .GE. M) WRITE (OUTTAP,199) UWM,M\r\n      I = N\r\n      N = 0\r\n      IF (MSG(1,I) .GE. 0) GO TO 1000\r\nCWKBI WRITE (OUTTAP,100)\r\n      CALL ERRTRC ('WRTMSG  ',100)\r\n 1000 RETURN\r\nC\r\nC\r\nC 100 FORMAT ('0FATAL ERROR')\r\n  101 FORMAT ('0ATTEMPT TO OPEN DATA SET',I4,' IN SUBROUTINE ',A4,A2,\r\n     1        ', WHICH WAS NOT DEFINED IN THE FIST')\r\n  102 FORMAT ('0EOF ENCOUNTERED WHILE READING DATA SET ',2A4,'(FILE',\r\n     1        I4,') IN SUBROUTINE ',2A4)\r\n  103 FORMAT ('0ATTEMPT TO READ PAST THE END OF A LOGICAL RECORD IN ',\r\n     1        'DATA SET ',2A4,'(FILE',I4,') IN SUBROUTINE ',2A4)\r\n  104 FORMAT ('0INCONSISTENT TYPE FLAGS ENCOUNTERED WHILE PACKING DATA',\r\n     1        'SET ',2A4)\r\n  105 FORMAT ('0ATTEMPT TO OPERATE ON THE SINGULAR MATRIX ',2A4,\r\n     1        ' IN SUBROUTINE ',2A4)\r\n  106 FORMAT (A25,' 3006, BUFFER ASSIGNED WHEN OPENING DATA BLOCK ',2A4,\r\n     1        6H,FILE ,I5,1H,, /5X,'CONFLICTS WITH BUFFERS CURRENTLY ',\r\n     2        'OPEN.')\r\n  107 FORMAT ('0ILLEGAL INPUT TO SUBROUTINE ',2A4)\r\n  108 FORMAT ('0INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE ',2A4)\r\n 1081 FORMAT (' ADDITIONAL CORE REQUIRED =',I10,' WORDS.')\r\n 1082 FORMAT (' PRESENT OPEN CORE SIZE =',I10,' WORDS.')\r\n 1083 FORMAT (' USE NASTRAN HICORE CARD TO INCREASE CORE SIZE')\r\n  109 FORMAT ('0DATA TRANSMISSION ERROR ON DATA SET ',2A4,'(FILE',I4,\r\n     1        1H))\r\n  110 FORMAT ('0ATTEMPT TO MANIPULATE DATA SET ',2A4,'(FILE',I4,\r\n     1        ' BEFORE OPENING THE FILE')\r\n  111 FORMAT ('0ATTEMPT TO WRITE A TRAILER ON FILE',I4,\r\n     1        ' WHEN IT HAS BEEN PURGED')\r\n  112 FORMAT ('0ATTEMPT TO OPEN DATA SET ',2A4,'(FILE',I4,\r\n     1        ') WHICH HAS ALREADY BEEN OPENED')\r\n  113 FORMAT ('0ATTEMPT TO READ DATA SET ',2A4,'(FILE',I4,\r\n     1        ') WHEN IT WAS OPENED FOR OUTPUT')\r\n  114 FORMAT ('0ATTEMPT TO WRITE DATA SET ',2A4,'(FILE',I4,\r\n     1        ') WHEN IT WAS OPENED FOR INPUT')\r\n  115 FORMAT ('0ATTEMPT TO FWDREC ON DATA SET ',2A4,'(FILE',I4,\r\n     1        ') WHEN IT WAS OPENED FOR OUTPUT')\r\n  116 FORMAT (1H0,2A4,' MATRIX IS NOT IN PROPER FORM IN SUBROUTINE ',\r\n     1        2A4)\r\n  117 FORMAT ('0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN ',\r\n     1        'REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.', /5X,\r\n     2        '(USER COULD REQUEST NASTRAN AUTOMATIC SPC GENERATION ',\r\n     3        'VIA A ''PARAM AUTOSPC'' BULK DATA CARD)')\r\n 1175 FORMAT ('0    ONE OR MORE POTENTIAL SINGULARITIES HAVE NOT BEEN ',\r\n     1        'REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.')\r\n  118 FORMAT ('0MODULE ',2A4,', SEQUENCE NO.',I5,\r\n     1        ', REQUIREMENTS EXCEED AVAILABLE FILES')\r\n  119 FORMAT ('0MAXIMUM LINE COUNT EXCEEDED IN SUBROUTINE ',2A4,\r\n     1        ' LINE COUNT EQUALS',I8)\r\n  120 FORMAT ('0GNFIST OVERFLOWED FIST TABLE AT SEQUENCE NO.',I5,\r\n     1        '  DATA SET ',2A4)\r\n  121 FORMAT ('0FILE',I4,' NOT DEFINED IN FIST')\r\n  122 FORMAT (5X,'DATA BLOCK ',2A4,' MAY BE REQUIRED AS INPUT AND IS ',\r\n     1        'NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ',\r\n     2        'ROUTE.')\r\n  123 FORMAT (A29,' 3028   B =',I5,' C =',I5,' R =',I5)\r\n  124 FORMAT ('0THE BANDWIDTH OF MATRIX ',2A4,' EXCEEDS THE MAXIMUM ',\r\n     1        'BANDWIDTH. A MAXIMUM BANDWIDTH OF',I5,' WILL BE USED')\r\n  125 FORMAT ('0ILLEGAL INDEX IN ACTIVE ROW OR COLUMN CALCULATION IN ',\r\n     1        2A4)\r\n  126 FORMAT ('0MATRIX ',2A4,' EXCEEDS MAXIMUM ALLOWABLE SIZE FOR BAND',\r\n     1        'WIDTH PLUS ACTIVE COLUMNS. BMAX =',I6,' CMAX =',I6)\r\n  127 FORMAT ('0DECOMPOSITION TIME ESTIMATE IS',I6)\r\n  128 FORMAT (A29,' 3028, BBAR =',I5,' CBAR =',I5,' R =',I5)\r\n  129 FORMAT (A25,' 3029, PHYSICAL EOF ENCOUNTERED ON DATA SET ',2A4,\r\n     1        ' (FILE',I4,3H ).)\r\n  132 FORMAT ('0UNABLE TO FIND SELECTED SET (',I8,') IN TABLE (',A4,\r\n     1        ') IN SUBROUTINE (',A4,2H).)\r\n  133 FORMAT (A23,' 3033, SUBCASE ID',I9,' IS REFERENCED ON ONE OR MORE'\r\n     1,       ' RANDPS CARDS', /5X,'BUT IS NOT A CURRENT SUBCASE ID.')\r\n  134 FORMAT ('0ORTHOGONALITY CHECK FAILED, LARGEST TERM = ',1P,E14.7,\r\n     1        ', EPSILON = ',1P,E14.7)\r\n  135 FORMAT (5X,'FOR SUBCASE NUMBER',I6,', EPSILON SUB E = ',1P,E15.7)\r\n  136 FORMAT ('0DATA SET ',2A4,' IS REQUIRED AS INPUT BUT HAS NOT ',\r\n     1        'BEEN GENERATED OR PURGED')\r\n  137 FORMAT ('0JOB TERMINATED IN SUBROUTINE ',2A4)\r\n  138 FORMAT ('0DATA SET ',A4,' DOES NOT HAVE MULTI-REEL CAPABILITY')\r\n  139 FORMAT (A25,' 3039, ENDSYS CANNOT FIND SAVE FILE.')\r\n  140 FORMAT ('0ATTEMPT TO WRITE DATA SET ',2A4,'(FILE',I4,\r\n     1        ') WHEN IT IS AN INPUT FILE')\r\n  141 FORMAT ('0EXTERNAL GRID POINT',I9,' DOES NOT EXIST OR IS NOT A ',\r\n     1        'GEOMETRIC GRID POINT.',\r\n     2        /5X,'THE BASIC ORIGIN WILL BE USED.')\r\n  142 FORMAT ('0INCONSISTENT SCALAR MASSES HAVE BEEN USED.  EPSILON/',\r\n     1        'DELTA = ',1P,E15.7)\r\n  143 FORMAT ('0UNCONNECTED EXTRA POINT (MODAL COORDINATE =',I9,\r\n     1        ') HAS BEEN DETECTED BY SUBROUTINE ',2A4)\r\n  144 FORMAT ('0A POINT ON NON-LINEAR LOAD SET',I9,' NOLIN',I1,\r\n     1        ' IS NOT AN EXTRA POINT.', /5X,'ONLY EXTRA POINTS MAY ',\r\n     2        'HAVE NON-LINEAR LOADS IN A MODAL FORMULATION.')\r\n  145 FORMAT (A25,' 3045, INSUFFICIENT TIME TO COMPLETE THE REMAINING',\r\n     1        I6,' SOLUTION(S) IN MODULE ',2A4)\r\n  146 FORMAT (A23,' 3046, YOUR SELECTED LOADING CONDITION, INITIAL ',\r\n     1        'CONDITION, AND NON-LINEAR FORCES ARE NULL', /5X,\r\n     2        'A ZERO SOLUTION WILL RESULT.')\r\n  147 FORMAT (A23,' 3047, NO MODES WITHIN RANGE AND LMODES = 0. A MODAL'\r\n     1,       ' FORMULATION CANNOT BE MADE.')\r\n  148 FORMAT (A25,' 3048, BUFFER CONTROL WORD INCORRECT FOR GINO ',A4,\r\n     1        ' OPERATION ON DATA BLOCK ',2A4)\r\n  149 FORMAT (A25,' 3049, GINO UNABLE TO POSITION DATA BLOCK ',2A4,\r\n     1        ' CORRECTLY DURING ',A4,' OPERATION.')\r\n  150 FORMAT (A25,' 3050, INSUFFICIENT TIME REMAINING FOR ',2A4,\r\n     1        '.  TIME ESTIMATE IS',I9,' SECONDS.')\r\n  151 FORMAT (A23,' 3051, INITIAL CONDITION SET',I9,' WAS SELECTED FOR',\r\n     1        ' A MODAL TRANSIENT PROBLEM.' ,/5X,\r\n     2        'INITIAL CONDITIONS ARE NOT ALLOWED IN SUCH A PROBLEM.')\r\n  152 FORMAT (A25,' 3052, A RANDOM REQUEST FOR CURVE TYPE - ',A4,\r\n     1        ' -, POINT -',I9, /5X,'COMPONENT -',I4,\r\n     2        ' -, SPECIFIES TOO LARGE A COMPONENT ID.  THE LAST ',\r\n     3        'COMPONENT WILL BE USED.')\r\n  153 FORMAT (A25,' 3053, THE ACCURACY OF EIGENVALUE',I6,' IS IN DOUBT.'\r\n     1,       ' GIVENS-QR FAILED TO CONVERGE IN',I4,' ITERATIONS.')\r\n  154 FORMAT (A25,' 3054, THE ACCURACY OF EIGENVECTOR',I6,' CORRESPOND',\r\n     1        'ING TO THE EIGENVALUE ',1P,E15.7,' IS IN DOUBT.')\r\n  155 FORMAT ('0AN ATTEMPT TO MULTIPLY OR MULTIPLY AND ADD NON-CONFOR',\r\n     1        'MABLE MATRICES TOGETHER WAS MADE IN SUBROUTINE ',2A4)\r\n  156 FORMAT ('0NO MASS MATRIX IS PRESENT BUT MASS DATA IS REQUIRED')\r\n  157 FORMAT ('0MATRIX ',2A4,' IS NOT POSITIVE DEFINITE.')\r\n  158 FORMAT ('0EPSILON IS LARGER THAN ',1P,E14.7,' FOR SUBCASE',I5)\r\n  159 FORMAT ('0SET IDENTIFIER ',A4,' DOES NOT EXIST. ERROR DETECTED ',\r\n     1        'IN SUBROUTINE ',2A4)\r\n  160 FORMAT (A23,' 3060, READ MODULE FINDS THAT THE INPUT STIFFNESS ',\r\n     1        'AND/OR MASS MATRIX IS NULL.')\r\n  162 FORMAT (A25,' 3062, NO MESSAGE.')\r\n  163 FORMAT (A25,' 3063, NO MESSAGE.')\r\n  164 FORMAT (A25,' 3064, NO MESSAGE.')\r\n  165 FORMAT (A25,' 3065, NO MESSAGE.')\r\n  166 FORMAT (A25,' 3066, NO MESSAGE.')\r\n  167 FORMAT (A25,' 3067, NO MESSAGE.')\r\n  168 FORMAT (A25,' 3068, NO MESSAGE.')\r\n  169 FORMAT (A25,' 3069, NO MESSAGE.')\r\n  170 FORMAT (A25,' 3070, NO MESSAGE.')\r\n  198 FORMAT ('0NO MESSAGE FOR MESSAGE NO. =',I5 ,/5X,'PARAMETERS = ',\r\n     1        3I20)\r\n  199 FORMAT (A25,' 3199, NON-FATAL MESSAGES MAY HAVE BEEN LOST BY ',\r\n     1        'ATTEMPTING TO QUEUE MORE THAN',I5,' MESSAGES')\r\n 1126 FORMAT ('0ADDRESS OF BUFFER LESS THAN ADDRESS OF /XNSTRN/.')\r\n 1127 FORMAT ('0BUFFER ASSIGNED EXTENDS INTO MASTER INDEX AREA.')\r\n 1128 FORMAT ('0ON AN OPEN CALL WITHOUT REWIND, THE BLOCK NUMBER READ ',\r\n     1        'DOES NOT MATCH EXPECTED VALUE.')\r\n 1129 FORMAT ('0ON A CALL WRITE THE WORD COUNT IS NEGATIVE.')\r\n 1130 FORMAT ('0ON A CALL READ THE CONTROL WORD AT WHICH THE FILE IS ',\r\n     1        'POSITIONED IS NOT ACCEPTABLE.')\r\n 1131 FORMAT ('0LOGICAL RECORD TRAILER NOT RECOGNIZABLE AS SUCH.')\r\n 1132 FORMAT ('0UNRECOGNIZABLE CONTROL WORD DURING PROCESSING OF A ',\r\n     1        'BCKREC CALL.')\r\n 1133 FORMAT ('0AFTER A POSITIONING CALL TO IO6600, DURING PROCESSING ',\r\n     1        'OF A BCKREC CALL THE BLOCK READ WAS NOT THE EXPECTED ',\r\n     2        'ONE.')\r\n 1134 FORMAT ('0CALL SKPFIL IN A FORWARD DIRECTION ON A FILE NOT ',\r\n     1        'OPENED FOR OUTPUT IS NOT SUPPORTED.')\r\n 1135 FORMAT ('0FILPOS WAS CALLED ON A FILE OPENED FOR OUTPUT.')\r\n 1136 FORMAT ('0ENDPUT WAS CALLED WITH BLOCK(8) EQUAL TO -1.')\r\n 1137 FORMAT ('0MORE TERMS WRITTEN IN STRING THAN WERE AVAILABLE TO ',\r\n     1        'WRITE.')\r\n 1138 FORMAT ('0CURRENT BUFFER POINTER EXCEEDS LAST DATA WORD IN BLOCK')\r\n 1139 FORMAT ('0ON AN INITIAL CALL TO GETSTR, THE RECORD IS NOT ',\r\n     1        'POSITIONED AT THE COLUMN HEADER.')\r\n 1140 FORMAT ('0STRING DEFINITION WORD NOT RECOGNIZABLE.')\r\n 1141 FORMAT ('0FIRST WORD OF A DOUBLE PRECISION STRING IS NOT ON A ',\r\n     1        'DOUBLE PRECISION BOUNDARY.')\r\n 1142 FORMAT ('0CURRENT BUFFER POINTER IS BEYOND RANGE OF INFORMATION ',\r\n     1        'IN BUFFER.')\r\n 1143 FORMAT ('0ON AN INITIAL CALL TO GETSTB, THE FILE IS NOT ',\r\n     1        'POSITIONED AT AN ACCEPTABLE POINT.')\r\n 1144 FORMAT ('0END-OF-SEGMENT CONTROL WORD SHOULD HAVE IMMEDIATELY ',\r\n     1        'PRECED CURRENT POSITION AND IT DID NOT.')\r\n 1145 FORMAT ('0COLUMN TRAILER NOT FOUND.')\r\n 1146 FORMAT ('0PREVIOUS RECORD TO BE READ BACKWARDS WAS NOT WRITTEN ',\r\n     1        'WITH STRING TRAILERS.')\r\n 1147 FORMAT ('0STRING RECOGNITION WORD NOT RECOGNIZED.')\r\n 1148 FORMAT ('0RECORD CONTROL WORD NOT IN EXPECTED POSITION.')\r\n 1149 FORMAT ('0RECTYP WAS CALLED FOR A FILE OPENED FOR OUTPUT.')\r\n 1150 FORMAT ('0RECTYP MUST BE CALLED WHEN THE FILE IS POSITIONED AT ',\r\n     1        'THE BEGINNING OF A RECORD.')\r\n 1151 FORMAT ('ON A CALL TO OPEN THE BUFFER ASSIGNED OVERLAPS A ',\r\n     1        'PREVIOUSLY ASSIGNED BUFFER.')\r\n 1152 FORMAT ('0A CALL TO OPEN FOR AN ALREADY OPEN FILE.')\r\n 1153 FORMAT ('0FILE NOT OPEN.')\r\n 1154 FORMAT ('0GINO REFERENCE NAME NOT IN FIST OR FILE NOT OPEN.')\r\n 1155 FORMAT ('0A CALL TO GETSTR OCCURRED WHEN THE FILE WAS POSITIONED',\r\n     1        'AT END-OF-FILE.')\r\n 1156 FORMAT ('0ATTEMPTED TO WRITE ON AN INPUT FILE.')\r\n 1157 FORMAT ('0ATTEMPTED TO READ FROM AN OUTPUT FILE.')\r\n 1158 FORMAT ('0A CALL TO BLDPK OR PACK IN WHICH EITHER TYPIN OR ',\r\n     1        'TYPOUT IS OUT OF RANGE.')\r\n 1159 FORMAT ('0ROW POSITIONS OF ELEMENTS FURNISHED TO ZBLPKI OR ',\r\n     1        'BLDPKI ARE NOT IN A MONOTONIC INCREASING SEQUENCE.', /,\r\n     2        ' (POSSIBLY DUE TO ROW OR COLUMN INDEX ERROR)')\r\n 1160 FORMAT ('0ON A CALL TO BLDPKN, FILE NAME DOES NOT MATCH PREVIOUS',\r\n     1        'CALLS.')\r\n 1161 FORMAT ('0A CALL TO INTPK OR UNPACK IN WHICH TYPOUT IS OUT OF ',\r\n     1        'RANGE.')\r\n 1162 FORMAT (A25,' 1162, NO MESSAGE.')\r\n 1163 FORMAT (A25,' 1163, NO MESSAGE.')\r\n 1164 FORMAT ('0 FOLLOWING A READ ATTEMPT ON AN INDEXED FILE, EITHER ',\r\n     1        'AN END-OF-FILE WAS ENCOUNTERED OR THE NUMBER OF WORDS ',\r\n     2        'READ WAS INCORRECT.')\r\n 1165 FORMAT ('0ON AN ATTEMPT TO READ A SEQUENTIAL FILE, AN END-OF-',\r\n     1        'FILE OR AN END-OF-INFORMATION WAS ENCOUNTERED.')\r\n 1166 FORMAT (A25,' 1166, NO MESSAGE.')\r\n 1167 FORMAT (A25,' 1167, NO MESSAGE.')\r\n 1168 FORMAT ('0A CALL TO IO6600 WITH OPCODE=5 (FORWARD SPACE) IS NOT ',\r\n     1        'SUPPORTED.')\r\n 1169 FORMAT (A25,' 1169, NO MESSAGE.')\r\n 1170 FORMAT ('0ILLEGAL CALL TO NASTIO, LOGIC ERROR IN IO6600.')\r\n 1171 FORMAT ('0ON A POSITION CALL, THE BLOCK NUMBER REQUESTED IS NOT ',\r\n     1        'FOUND IN CORE WHEN IT IS EXPECTED THERE.')\r\n 1172 FORMAT (A25,' 1172, NO MESSAGE.')\r\n 2000 FORMAT (12H0*** SYSTEM ,2A4,8H MESSAGE,I5)\r\n 2001 FORMAT (10H0*** USER ,2A4,9H MESSAGE ,I5)\r\n 2005 FORMAT (A25,I5)\r\n 2010 FORMAT (A25,I5)\r\n 2015 FORMAT (A23,I5)\r\n 2020 FORMAT (A29,I5)\r\n 2025 FORMAT (A27,I5)\r\n 2026 FORMAT (1H+,33X,'(SEE PROG. MANUAL SEC. 4.9.7, OR ',7HUSERS' ,\r\n     1        'MANUAL P. 6.5-3)')\r\n      END\r\n"
  },
  {
    "path": "mis/mslot.f",
    "content": "      SUBROUTINE MSLOT(ITYPE)\r\nC*****\r\nC     THIS ROUTINE CALCULATES THE MASS MATRIX TERMS FOR THE\r\nC         CSLOT3 AND CSLOT4 TWO DIMENSIONAL LAPLACE ELEMENTS\r\nC                  IOPT-  CSLOT3 = 0,  CSLOT4 = 1\r\nC*****\r\nC     THE ECPT DATA FOR THESE ELEMENTS ARE\r\nC\r\nC     FIELD   CSLOT3                CSLOT4\r\nC       1       ID                  ID\r\nC       2       SIL1                SIL1\r\nC       3       SIL2                SIL2\r\nC       4       SIL3                SIL3\r\nC       5       RHO                 SIL4\r\nC       6       BULK                RHO\r\nC       7       M                   BULK\r\nC       8       N                   M\r\nC       9       CID1                N\r\nC       10      R1                  CID1\r\nC      11       Z1                  R1\r\nC      12       W1                  Z1\r\nC      13       CID2                W1\r\nC      14       R2                  CID2\r\nC      15       Z2                  R2\r\nC      16       W2                  Z2\r\nC      17       CID3                W2\r\nC      18       R3                  CID3\r\nC      19       Z3                  R3\r\nC      20       W3                  Z3\r\nC      21       TEMP                W3\r\nC      22                           CID4\r\nC      23                           R4\r\nC      24                           Z4\r\nC***** 25                           W4\r\nC***** 26                           TEMP\r\nC\r\n      INTEGER NECPT(100)\r\n      DOUBLE PRECISION   COEF          ,A2            ,WB\r\n     1                  ,R             ,Z             ,W\r\n     2                  ,MIJ\r\nC*****\r\n      COMMON  /SMA2CL/  IOPT4,K4GGSW,NPVT\r\n      COMMON  /SMA2ET/  ECPT(100)\r\n      COMMON  /SMA2IO/  DUM1(10),IFILE\r\n      COMMON/SMA2DP/     COEF          ,A2            ,WB\r\n     1                  ,R(3)          ,Z(3)          ,W(3)\r\n     2                  ,MIJ           ,IRET          ,IP\r\n     3                  ,K\r\nC*****\r\n      EQUIVALENCE  (ECPT(1),NECPT(1))\r\nC*****\r\n      IF(ITYPE .GT. 0) GO TO 50\r\n      IF(ECPT(6) .EQ.0.0.OR.NECPT(7) .EQ. 0 ) RETURN\r\n      K=-1\r\n   10 K=K+1\r\n      IF(2*NECPT(8) - K*NECPT(7)  ) 30,20,10\r\n   20 NECPT(7) = NECPT(7)*2\r\n   30 ECPT(7) = FLOAT(NECPT(7))/2.0\r\n      DO 40 I=1,20\r\n   40 ECPT(I+50)= ECPT(I)\r\n      IRET =4\r\n      GO TO 140\r\nC*****\r\nC     THE CSLOT4 ELEMENT IS CHECKED FOR VALIDITY AND THE DATA ARE\r\nC     REARRANGED TO CONFORM TO THE CSLOT3 FORMAT\r\nC*****\r\n   50 IF(ECPT(7).EQ.0.0 .OR.NECPT(8).EQ.0 ) RETURN\r\n      K =-1\r\n   60 K =K+1\r\n      IF( 2*NECPT(9) - K*NECPT(8) ) 80,70,60\r\n   70 NECPT(8) =NECPT(8)*2\r\n   80 ECPT(8) = FLOAT(NECPT(8))/2.0\r\n      DO 90 I=1,4\r\n   90  ECPT(I+50) = ECPT(I)\r\n      DO 100 I=6,21\r\n  100  ECPT(I+49) = ECPT(I)\r\n       ECPT(56) = ECPT(7)*2.0\r\n      IRET =1\r\n      GO TO 140\r\n  110 ECPT(54)= ECPT(5)\r\n      ECPT(68) = ECPT(23)\r\n      ECPT(69) = ECPT(24)\r\n      ECPT(70) = ECPT(25)\r\n      IRET =2\r\n      GO TO 140\r\n  120 ECPT(53)= ECPT(4)\r\n      ECPT(64)= ECPT(19)\r\n      ECPT(65)= ECPT(20)\r\n      ECPT(66)= ECPT(21)\r\n      IRET =3\r\n      GO TO 140\r\n  130 ECPT(52)= ECPT(3)\r\n      ECPT(60)= ECPT(15)\r\n      ECPT(61)= ECPT(16)\r\n      ECPT(62)= ECPT(17)\r\n      IRET =4\r\nC*****\r\nC     EACH CSLOT3 ELEMENT OR SUBELEMENT IS FORMULATED AS FOLLOWS\r\nC*****\r\n  140 IF((NECPT(52).NE.NPVT).AND.(NECPT(53).NE.NPVT).AND.\r\n     1   (NECPT(54).NE.NPVT)) GO TO 170\r\n      DO 150 I=1,3\r\n      IP = 4*(I-1)+60\r\n      R(I) =ECPT(IP)\r\n      Z(I) =ECPT(IP+1)\r\n      W(I) =ECPT(IP+2)\r\n      IF(NPVT .EQ. NECPT(I+51)) IPVT=I\r\n  150 CONTINUE\r\n      A2 = (R(2)-R(1))*(Z(3)-Z(1))  -(R(3)-R(1))*(Z(2)-Z(1))\r\n      WB = W(1) +W(2) +W(3)+W(IPVT)\r\n      COEF = DABS(A2)*ECPT(57) /(120.0D0 *ECPT(56))\r\n      I=NPVT\r\n      DO 160 J=1,3\r\n      K = NECPT(J+51)\r\n      MIJ = COEF *( WB + W(J) )\r\n      IF (IPVT .EQ. J) MIJ =MIJ*2.0D0\r\n      CALL SMA2B(MIJ,K,I,IFILE,0.0D0)\r\n  160 CONTINUE\r\n  170 GO TO (110,120,130,180),IRET\r\n  180 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/msolid.f",
    "content": "      SUBROUTINE MSOLID (ITYPE)\r\nC\r\nC     THIS ROUTINE CALCULATES THE MASS MATRICES FOR THE SOLID ELEMENTS,\r\nC\r\nC          I =     ELEMENT\r\nC          ***     *******\r\nC          1       CTETRA\r\nC          2       CWEDGE\r\nC          3       CHEXA1\r\nC          4       CHEXA2\r\nC\r\nC     A SERIES OF 6 BY 6 DIAGONAL MATRICES ARE CALUCLATED, ONE PER\r\nC     CONNECTED GRID POINT\r\nC\r\nC     ECPT        TETRA          WEDGE          HEXA\r\nC     -------------------------------------------------\r\nC     ECPT( 1) =  EL ID          EL ID          EL ID\r\nC     ECPT( 2) =  MAT-ID         MAT-ID         MAT-ID\r\nC     ECPT( 3) =  GRID-1         GRID-1         GRID-1\r\nC     ECPT( 4) =  GRID-2         GRID-2         GRID-2\r\nC     ECPT( 5) =  GRID-3         GRID-3         GRID-3\r\nC     ECPT( 6) =  GRID-4         GRID-4         GRID-4\r\nC     ECPT( 7) =  CSID-1         GRID-5         GRID-5\r\nC     ECPT( 8) =  X1             GRID-6         GRID-6\r\nC     ECPT( 9) =  Y1             CSID-1         GRID-7\r\nC     ECPT(10) =  Z1             X1             GRID-8\r\nC     ECPT(11) =  CSID-2         Y1             CSID-1\r\nC     ECPT(12) =  X2             Z1             X1\r\nC     ECPT(13) =  Y2             CSID-2         Y1\r\nC     ECPT(14) =  Z2             X2             Z1\r\nC     ECPT(15) =  CSID-3         Y2             CSID-2\r\nC     ECPT(16) =  X3             Z2             X2\r\nC     ECPT(17) =  Y3             CSID-3         Y2\r\nC     ECPT(18) =  Z3             X3             Z2\r\nC     ECPT(19) =  CSID-4         Y3             CSID-3\r\nC     ECPT(20) =  X4             Z3             X3\r\nC     ECPT(21) =  Y4             CSID-4         Y3\r\nC     ECPT(22) =  Z4             X4             Z3\r\nC     ECPT(23) =  EL-TEM         Y4             CSID-4\r\nC     ECPT(24)                   Z4             X4\r\nC     ECPT(25)                   CSID-5         Y4\r\nC     ECPT(26)                   X5             Z4\r\nC     ECPT(27)                   Y5             CSID-5\r\nC     ECPT(28)                   Z5             X5\r\nC     ECPT(29)                   CSID-6         Y5\r\nC     ECPT(30)                   X6             Z5\r\nC     ECPT(31)                   Y6             CSID-6\r\nC     ECPT(32)                   Z6             X6\r\nC     ECPT(33)                   ELTEMP         Y6\r\nC     ECPT(34)                                  Z6\r\nC     ECPT(35)                                  CSID-7\r\nC     ECPT(36)                                  X7\r\nC     ECPT(37)                                  Y7\r\nC     ECPT(38)\r\nC     ECPT(39)                                  CSID-8\r\nC     ECPT(40)                                  X8\r\nC     ECPT(41)                                  Y8\r\nC     ECPT(42)                                  Z8\r\nC     ECPT(43)                                  EL-TEMP\r\nC\r\n      LOGICAL          HEAT\r\n      INTEGER          M(14,4),NECPT(100)\r\n      DOUBLE PRECISION PTMASS,EMASS,R(3,3),MGE(36)\r\n      COMMON /SMA2HT/  HEAT\r\n      COMMON /SMA2ET/  ECPT(100)\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  RHO\r\n      COMMON /HMTOUT/  CP\r\n      COMMON /SMA2DP/  PTMASS,EMASS,R,MGE,NPTS,NEL,MFIRST,KPT,NROW,JLOC,\r\n     1                 ITEST,J1,M1,ILOC(4)\r\n      COMMON /SMA2CL/  DUM1(2),NPVT\r\n      COMMON /SMA2IO/  DUM2(10),IFMGG,DUMXX(1),IFBGG\r\n      EQUIVALENCE      (ECPT(1),NECPT(1))\r\n      DATA    M( 1,1), M( 1,2),M( 1,3),M( 1,4) / 1   ,2   ,3   ,4 /\r\n      DATA    M( 2,1), M( 2,2),M( 2,3),M( 2,4) / 1   ,2   ,3   ,6 /\r\n      DATA    M( 3,1), M( 3,2),M( 3,3),M( 3,4) / 1   ,2   ,6   ,5 /\r\n      DATA    M( 4,1), M( 4,2),M( 4,3),M( 4,4) / 1   ,4   ,5   ,6 /\r\n      DATA    M( 5,1), M( 5,2),M( 5,3),M( 5,4) / 1   ,2   ,3   ,6 /\r\n      DATA    M( 6,1), M( 6,2),M( 6,3),M( 6,4) / 1   ,3   ,4   ,8 /\r\n      DATA    M( 7,1), M( 7,2),M( 7,3),M( 7,4) / 1   ,3   ,8   ,6 /\r\n      DATA    M( 8,1), M( 8,2),M( 8,3),M( 8,4) / 1   ,5   ,6   ,8 /\r\n      DATA    M( 9,1), M( 9,2),M( 9,3),M( 9,4) / 3   ,6   ,7   ,8 /\r\n      DATA    M(10,1), M(10,2),M(10,3),M(10,4) / 2   ,3   ,4   ,7 /\r\n      DATA    M(11,1), M(11,2),M(11,3),M(11,4) / 1   ,2   ,4   ,5 /\r\n      DATA    M(12,1), M(12,2),M(12,3),M(12,4) / 2   ,4   ,5   ,7 /\r\n      DATA    M(13,1), M(13,2),M(13,3),M(13,4) / 2   ,5   ,6   ,7 /\r\n      DATA    M(14,1), M(14,2),M(14,3),M(14,4) / 4   ,5   ,7   ,8 /\r\nC\r\nC     SET THE ELEMENT PARAMETERS ACCORDING TO THE TYPE\r\nC                               NPTS = NO. OF CONNECTED POINTS\r\nC                               NEL  = NO. OF SUBELEMENTS\r\nC                               MFIRST=POSITION OF FIRST ROW OF MAPPING\r\nC                                       MATRIX\r\nC\r\n      GO TO (100,110,120,130), ITYPE\r\n  100 NPTS  = 4\r\n      NEL   = 1\r\n      MFIRST= 1\r\n      GO TO 140\r\n  110 NPTS  = 6\r\n      NEL   = 3\r\n      MFIRST= 2\r\n      GO TO 140\r\n  120 NPTS  = 8\r\n      NEL   = 5\r\n      MFIRST= 5\r\n      GO TO 140\r\n  130 NPTS  = 8\r\n      NEL   = 10\r\n      MFIRST= 5\r\n  140 CONTINUE\r\nC\r\nC     FETCH THE MATERIAL ID AND THE DENSITY, RHO\r\nC\r\n      MATIDC = NECPT(2)\r\n      MATFLG = 4\r\n      NTEMP  = 5*NPTS + 3\r\n      ELTEMP = ECPT(NTEMP)\r\n      IF (.NOT.HEAT) CALL MAT (ECPT(1))\r\n      IF (HEAT) CALL HMAT (ECPT)\r\n      IF (HEAT) RHO = CP\r\n      IF (RHO .EQ. 0.0) GO TO 1200\r\nC\r\nC     ZERO OUT POINT MASS\r\nC\r\n      PTMASS = 0.0D0\r\nC\r\nC     LOOP ON SUBELEMENTS\r\nC\r\n      DO 1000 ME = 1,NEL\r\n      NROW = MFIRST + ME - 1\r\nC\r\nC     SET UP POINTERS TO LOCATION VECTORS AND TEST IF ELEMENT IS\r\nC     CONNECTED\r\nC\r\n      ITEST = 0\r\n      DO 300 I = 1,4\r\n      KPT = M(NROW,I)\r\n      IF (NECPT(KPT+2) .NE. NPVT) GO TO 250\r\n      ITEST = 1\r\nC\r\nC     THE LOCATION OF THE VECTOR DATA IN THE ECPT IS\r\nC\r\n  250 ILOC(I) = 4*KPT + NPTS\r\n  300 CONTINUE\r\n      IF (ITEST .EQ. 0) GO TO 1000\r\nC\r\nC     CALCULATE DIFFERENCE VECTORS FROM THE FIRST VECTOR\r\nC\r\n      DO 500 I = 2,4\r\n      DO 400 J = 1,3\r\n      JLOC = ILOC(I) + J - 1\r\n      J1   = ILOC(1) + J - 1\r\n  400 R(I-1,J) = ECPT(JLOC) - ECPT(J1)\r\n  500 CONTINUE\r\nC\r\nC     THE MASS ON EACH POINT DUE TO THE TETRAHEDRON IS\r\nC     (NEGATIVE VALUE OF RHO IS ALLOWED)\r\nC\r\n      EMASS = RHO/24.D0*DABS((R(3,1)*(R(1,2)*R(2,3) - R(1,3)*R(2,2))\r\n     1                      + R(3,2)*(R(1,3)*R(2,1) - R(1,1)*R(2,3))\r\n     2                      + R(3,3)*(R(1,1)*R(2,2) - R(1,2)*R(2,1))))\r\n      IF (ITYPE.NE.4) GO TO 600\r\n      EMASS = EMASS/2.0D0\r\nC\r\nC     THE MASS IS NOW ADDED TO THE APPROPRIATE POINT\r\nC\r\n  600 PTMASS = PTMASS + EMASS\r\n 1000 CONTINUE\r\nC\r\nC     THE MASSES ARE EXPANDED AND INSERTED\r\nC\r\n      IF (HEAT) GO TO 1150\r\n      DO 1100 I = 1,36\r\n 1100 MGE(I) = 0.0D0\r\n      M1     =-1\r\n      MGE(1) = PTMASS\r\n      MGE(8) = MGE(1)\r\n      MGE(15)= MGE(1)\r\n      CALL SMA2B (MGE(1),NPVT,M1,IFMGG,0.0D0)\r\n      GO TO 1200\r\n 1150 CALL SMA2B (PTMASS,NPVT,NPVT,IFBGG,0.0D0)\r\nC\r\nC     ALL DONE\r\nC\r\n 1200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mtimsu.f",
    "content": "      SUBROUTINE M TIMS U (Y,X,BUF)\r\nC\r\nC     M TIMS U  FORMS THE  PRODUCT  X = M*Y\r\nC\r\n      INTEGER            DIAG      ,EOL       ,FILEM    ,FILEK\r\n      DOUBLE PRECISION   X(1)      ,Y(1)      ,DA\r\n      DIMENSION          BUF(1)\r\n      COMMON   /INVPWX/  FILEK(7)  ,FILEM(7)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /INVPXX/  DUMM(13)  ,NZERO\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      EQUIVALENCE        (A(1),DA)\r\nC\r\nC\r\n      NCOL = FILEK(2)\r\n      DO 10 I = 1,NCOL\r\n   10 X(I) = 0.D0\r\nC\r\nC     MASS MATRIX IS NOT DIAGONAL\r\nC\r\n      NZERO = 0\r\n      DO 40 I = 1,NCOL\r\n      IF (Y(I) .EQ. 0.D0) GO TO 30\r\n      CALL INTPK (*40,FILEM(1),0,RDP,0)\r\n      NZERO = NZERO + 1\r\n   20 CALL ZNTPKI\r\n      X(II) = DA*Y(I) + X(II)\r\n      IF (EOL) 40,20,40\r\n   30 CALL SKPREC (FILEM,1)\r\n      NZERO = NZERO + 1\r\n   40 CONTINUE\r\n      GO TO 90\r\n   90 CALL REWIND (FILEM(1))\r\n      CALL SKPREC (FILEM,1)\r\n      NZERO = NCOL - NZERO\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mtmsu1.f",
    "content": "      SUBROUTINE MTMSU1 (Y,X,BUF)\r\nC\r\nC     M TIMS U  FORMS THE PRODUCT  X = M*Y\r\nC\r\n      INTEGER            DIAG      ,EOL      ,FILEM    ,FILEK\r\n      REAL               X(1)      ,Y(1)\r\n      DIMENSION          BUF(1)\r\n      COMMON   /INVPWX/  FILEK(7)  ,FILEM(7)\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                   RECT      ,DIAG     ,LOWTRI   ,UPRTRI   ,\r\n     4                   SYM       ,ROW      ,IDENTY\r\n      COMMON   /INVPXX/  DUMM(13)  ,NZERO\r\n      COMMON   /ZNTPKX/  A(4)      ,II       ,EOL\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      EQUIVALENCE        (A(1),DA)\r\nC\r\nC\r\n      NCOL = FILEK(2)\r\n      DO 10 I = 1,NCOL\r\n   10 X(I) = 0.0\r\nC\r\nC     MASS MATRIX IS NOT DIAGONAL\r\nC\r\n      NZERO = 0\r\n      DO 40 I = 1,NCOL\r\n      IF (Y(I) .EQ. 0.0) GO TO 30\r\n      CALL INTPK (*40,FILEM(1),0,RSP,0)\r\n      NZERO = NZERO + 1\r\n   20 CALL ZNTPKI\r\n      X(II) = DA*Y(I) + X(II)\r\n      IF (EOL) 40,20,40\r\n   30 CALL  SKPREC (FILEM,1)\r\n      NZERO = NZERO + 1\r\n   40 CONTINUE\r\n      GO TO 90\r\n   90 CALL REWIND (FILEM(1))\r\n      CALL SKPREC (FILEM,1)\r\n      NZERO = NCOL - NZERO\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mtrapr.f",
    "content": "      SUBROUTINE MTRAPR\r\nC\r\nC     THIS ROUTINE COMPUTES THE MASS MATRIX FOR A AXI-SYMMETRIC RING\r\nC     WITH A TRAPEZOIDAL CROSS SECTION\r\nC\r\nC     ECPT FOR THE TRAPEZOIDAL RING\r\nC                                                          TYPE\r\nC     ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC     ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC     ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC     ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC     ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D             I\r\nC     ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC     ECPT( 7) MATERIAL IDENTIFICATION                       I\r\nC     ECPT( 8) COOR. SYS. ID. FOR GRID POINT A               I\r\nC     ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(12) COOR. SYS. ID. FOR GRID POINT B               I\r\nC     ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(16) COOR. SYS. ID. FOR GRID POINT C               I\r\nC     ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(20) COOR. SYS. ID. FOR GRID POINT D               I\r\nC     ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\n      DOUBLE PRECISION CONSTD,D2PI,D,GAMBQ,R,Z,DELINT,AK,AKI,AKT,AM,\r\n     1                 R1,R2,R3,R4,Z1,Z2,Z3,Z4,ZMIN,DGAMA,RZINTD,\r\n     2                 RMIN,RMAX,RHOD,TWOPI\r\n      DIMENSION        JRZ(2),IECPT(24),AM(64)\r\n      COMMON /SYSTEM/  IBUF,IOUT\r\n      COMMON /CONDAD/  CONSTD(5)\r\n      COMMON /SMA2IO/  DUM1(10),IFMGG,DUM2(25)\r\n      COMMON /SMA2CL/  DUM3(2),NPVT,DUM4(7),LINK(10),NOGO\r\n      COMMON /SMA2ET/  ECPT(24),DUM5(76)\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  E(3),ANU(3),RHO,G(3),ALF(3),TZERO\r\n      COMMON /SMA2DP/  D(64),GAMBQ(64),R(4),Z(4),DELINT(12),AK(64),\r\n     1                 AKI(36),AKT(9),DGAMA,ZMIN,RHOD,TWOPI,IGP(4),\r\n     2                 ICS(4),SP(24),TEMPE\r\n      EQUIVALENCE      (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2),(R(3),R3),\r\n     1                 (R(4),R4),(Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4)\r\n     2,                (AM(1),AK(1)),(CONSTD(2),D2PI)\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT( 1)\r\n      IGP(1) = IECPT( 2)\r\n      IGP(2) = IECPT( 3)\r\n      IGP(3) = IECPT( 4)\r\n      IGP(4) = IECPT( 5)\r\n      MATID  = IECPT( 7)\r\n      ICS(1) = IECPT( 8)\r\n      ICS(2) = IECPT(12)\r\n      ICS(3) = IECPT(16)\r\n      ICS(4) = IECPT(20)\r\n      R(1)   = ECPT( 9)\r\n      D(1)   = ECPT(10)\r\n      Z(1)   = ECPT(11)\r\n      R(2)   = ECPT(13)\r\n      D(2)   = ECPT(14)\r\n      Z(2)   = ECPT(15)\r\n      R(3)   = ECPT(17)\r\n      D(3)   = ECPT(18)\r\n      Z(3)   = ECPT(19)\r\n      R(4)   = ECPT(21)\r\n      D(4)   = ECPT(22)\r\n      Z(4)   = ECPT(23)\r\n      TEMPE  = ECPT(24)\r\n      DGAMA  = ECPT( 6)\r\nC\r\nC     CHECK INTERNAL GRID POINTS FOR PIVOT POINT\r\nC\r\n      IPP = 0\r\n      DO 100 I = 1,4\r\n      IF (NPVT .EQ. IGP(I)) IPP = I\r\n  100 CONTINUE\r\n      IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LT. 0.0D0) GO TO 910\r\n      IF (D(I) .NE. 0.0D0) GO TO 910\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = DMIN1(Z1,Z2,Z3,Z4)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\n      Z4 = Z4 - ZMIN\r\nC\r\nC     FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE FOR IP=-1\r\nC\r\n      RMIN = DMIN1(R1,R2,R3,R4)\r\n      RMAX = DMAX1(R1,R2,R3,R4)\r\n      IF (RMIN .EQ. 0.D0) GO TO 206\r\n      IF (RMAX/RMIN .GT. 10.D0) GO TO 930\r\nC\r\n  206 CONTINUE\r\n      D(5) = (R1+R4)/2.0D0\r\n      D(6) = (R2+R3)/2.0D0\r\n      IF (D(5) .EQ. 0.0D0) GO TO 210\r\n      IF (DABS((R1-R4)/D(5)) .GT. 0.5D-2) GO TO 210\r\n      R1 = D(5)\r\n      R4 = D(5)\r\n  210 CONTINUE\r\n      IF (D(6) .EQ. 0.0D0) GO TO 220\r\n      IF (DABS((R2-R3)/D(6)) .GT. 0.5D-2) GO TO 220\r\n      R2 = D(6)\r\n      R3 = D(6)\r\n  220 CONTINUE\r\nC\r\n      ICORE = 0\r\n      J = 1\r\n      DO 230 I = 1,4\r\n      IF (R(I) .NE. 0.0D0) GO TO 230\r\n      ICORE = ICORE + 1\r\n      JRZ(J) = I\r\n      J = 2\r\n  230 CONTINUE\r\n      IF (ICORE.NE.0 .AND. ICORE.NE.2) GO TO 910\r\nC\r\nC     FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,64\r\n      GAMBQ(I) = 0.0D0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0D0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ( 4) = R1*Z1\r\n      GAMBQ(13) = 1.0D0\r\n      GAMBQ(14) = R1\r\n      GAMBQ(15) = Z1\r\n      GAMBQ(16) = GAMBQ(4)\r\n      GAMBQ(17) = 1.0D0\r\n      GAMBQ(18) = R2\r\n      GAMBQ(19) = Z2\r\n      GAMBQ(20) = R2*Z2\r\n      GAMBQ(29) = 1.0D0\r\n      GAMBQ(30) = R2\r\n      GAMBQ(31) = Z2\r\n      GAMBQ(32) = GAMBQ(20)\r\n      GAMBQ(33) = 1.0D0\r\n      GAMBQ(34) = R3\r\n      GAMBQ(35) = Z3\r\n      GAMBQ(36) = R3*Z3\r\n      GAMBQ(45) = 1.0D0\r\n      GAMBQ(46) = R3\r\n      GAMBQ(47) = Z3\r\n      GAMBQ(48) = GAMBQ(36)\r\n      GAMBQ(49) = 1.0D0\r\n      GAMBQ(50) = R4\r\n      GAMBQ(51) = Z4\r\n      GAMBQ(52) = R4*Z4\r\n      GAMBQ(61) = 1.0D0\r\n      GAMBQ(62) = R4\r\n      GAMBQ(63) = Z4\r\n      GAMBQ(64) = GAMBQ(52)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP)\r\n      IF (ISING .EQ. 2) GO TO 920\r\nC\r\nC     MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT\r\nC\r\n      IF (ICORE .EQ. 0) GO TO 305\r\n      JJ1 = 2*JRZ(1) - 1\r\n      JJ2 = 2*JRZ(2) - 1\r\nC\r\n      DO 303 I = 1,8\r\n      J = 8*(I-1)\r\n      GAMBQ(I    ) = 0.0D0\r\n      GAMBQ(I+ 16) = 0.0D0\r\n      GAMBQ(J+JJ1) = 0.0D0\r\n      GAMBQ(J+JJ2) = 0.0D0\r\n  303 CONTINUE\r\n  305 CONTINUE\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC     INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC     DELINT(1) - (1,0)\r\nC     DELINT(2) - (1,1)\r\nC     DELINT(3) - (1,2)\r\nC     DELINT(4) - (2,0)\r\nC     DELINT(5) - (2,1)\r\nC     DELINT(6) - (2,2)\r\nC     DELINT(7) - (3,0)\r\nC     DELINT(8) - (3,1)\r\nC     DELINT(9) - (3,2)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,3\r\n      IP = I\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      DELINT(I1) = RZINTD(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\nC\r\nC    SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      RHOD = RHO\r\nC\r\nC     GENERATE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES\r\nC\r\n      DO 600 I = 1,64\r\n      AM(I) = 0.0D0\r\n  600 CONTINUE\r\n      TWOPI  = D2PI*RHOD\r\n      AM( 1) = TWOPI*DELINT(1)\r\n      AM( 2) = TWOPI*DELINT(4)\r\n      AM( 3) = TWOPI*DELINT(2)\r\n      AM( 4) = TWOPI*DELINT(5)\r\n      AM( 9) = AM( 2)\r\n      AM(10) = TWOPI*DELINT(7)\r\n      AM(11) = TWOPI*DELINT(5)\r\n      AM(12) = TWOPI*DELINT(8)\r\n      AM(17) = AM( 3)\r\n      AM(18) = AM(11)\r\n      AM(19) = TWOPI*DELINT(3)\r\n      AM(20) = TWOPI*DELINT(6)\r\n      AM(25) = AM( 4)\r\n      AM(26) = AM(12)\r\n      AM(27) = AM(20)\r\n      AM(28) = TWOPI*DELINT(9)\r\n      DO 650 I = 1,4\r\n      K = (I-1)*8\r\n      DO 650 J = 1,4\r\n      K = K + 1\r\n      AM(K+36) = AM(K)\r\n  650 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO GRID\r\nC     POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATD (GAMBQ,8,8,1, AK,8,8,0, D)\r\n      CALL GMMATD (D,8,8,0, GAMBQ,8,8,0, AK)\r\nC\r\nC     ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE\r\nC\r\n      DO 700 I = 1,36\r\n      AKI(I) = 0.0D0\r\n  700 CONTINUE\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR  GRID POINTS\r\nC\r\n      DO 800 I = 1,4\r\n      IF (ICS(I) .EQ. 0) GO TO 800\r\n      K = 9*(I-1) + 1\r\n      CALL TRANSD (ICS(I),D(K))\r\n  800 CONTINUE\r\nC\r\nC     START THE LOOP FOR INSERTION OF THE FOUR  (6X6) MATRICES INTO THE\r\nC     MASTER MASS MATRIX\r\nC\r\n      IR1  = 2*IPP - 1\r\n      IAPP = 9*(IPP-1) + 1\r\n      DO 900 I = 1,4\r\nC\r\nC     PLACE THE APPROIATE (2X2) SUBMATRIX OF THE MASS MATRIX IN A (3X3)\r\nC     MATRIX FOR TRANSFORMATION\r\nC\r\n      IC1    = 2*I - 1\r\n      IRC    = (IR1-1)*8 + IC1\r\n      AKT(1) = AK(IRC)\r\n      AKT(2) = 0.0D0\r\n      AKT(3) = AK(IRC+1)\r\n      AKT(4) = 0.0D0\r\n      AKT(5) = 0.0D0\r\n      AKT(6) = 0.0D0\r\n      AKT(7) = AK(IRC+8)\r\n      AKT(8) = 0.0D0\r\n      AKT(9) = AK(IRC+9)\r\nC\r\nC     TRANSFORM THE (3X3) MASS MATRIX\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 820\r\n      CALL GMMATD (D(IAPP),3,3,1, AKT(1),3,3,0, D(37))\r\n      DO 810 J = 1,9\r\n      AKT(J) = D(J+36)\r\n  810 CONTINUE\r\n  820 CONTINUE\r\n      IF (ICS(I) .EQ. 0) GO TO 840\r\n      IAI = 9*(I-1) + 1\r\n      CALL GMMATD (AKT(1),3,3,0, D(IAI),3,3,0, D(37))\r\n      DO 830 J = 1,9\r\n      AKT(J) = D(J+36)\r\n  830 CONTINUE\r\n  840 CONTINUE\r\nC\r\nC     PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR THE\r\nC     INSERTION ROUTINE\r\nC\r\n      J = 0\r\n      DO 850 J1 = 1,18,6\r\n      DO 850 J2 = 1,3\r\n      J = J  + 1\r\n      K = J1 + J2 - 1\r\n      AKI(K) = AKT(J)\r\n  850 CONTINUE\r\nC\r\nC     CALL THE INSERTION ROUTINE\r\nC\r\n      CALL SMA2B (AKI(1),IGP(I),-1,IFMGG,0.0D0)\r\n  900 CONTINUE\r\n      RETURN\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n  910 I = 37\r\n      GO TO 950\r\n  920 I = 26\r\n      GO TO 950\r\n  930 I = 218\r\n      GO TO 960\r\nC\r\nC     ERROR TYPE 218 HAD BEEN ISSUED BY KTRAPR ALREADY.\r\nC\r\n  950 CALL MESAGE (30,I,IDEL)\r\n  960 NOGO = 1\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mtrbsc.f",
    "content": "      SUBROUTINE MTRBSC\r\nC\r\nCOMMENT.  ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN\r\nC         LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE.\r\nC\r\nC\r\nC      ************* BASIC BENDING TRIANGLE   ELEMENT ROUTINE **********\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO. . .\r\nC\r\nC          MAT    - MATERIAL DATA ROUTINE\r\nC          SMA2B  - INSERTION ROUTINE\r\nC          TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER\r\nC          INVERD - DOUBLE PRECISION INVERSE ROUTINE\r\nC          GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC          MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC\r\nC     ******************************************************************\r\nC\r\n      DOUBLE PRECISION        A        ,E        ,XSUBB    ,TEMP\r\n     1                       ,XSUBC    ,D        ,YSUBC    ,XCYC\r\n     2                       ,XCSQ     ,DETERM   ,YCSQ     ,XBSQ\r\n     3                       ,G2X2     ,J2X2     ,HYQ      ,AIJ\r\n     4                       ,BIJ      ,SIIJ     ,SIZERO   ,MBARAA\r\n     5                       ,MAR      ,MRR      ,S\r\n     6                       ,PROD9    ,TEMP9    ,G\r\n     7                       ,YPRODJ   ,XPRODI\r\n     8                       ,FJ       ,FJ2      ,FI       ,FIJ\r\nC\r\nC\r\n      DIMENSION D(9)      ,G(9)      ,G2X2(4)   ,J2X2(4)   , S(18)\r\n     1         ,ECPT(1)   ,HYQ(6)    ,SIIJ(7,7) ,MBARAA(9) , MAR(18)\r\n     2         ,MRR(36)\r\nC     DIMENSION MNAME(9)\r\nC     DIMENSION NASTER(130)\r\nC     DATA (MNAME(I), I = 1,9) /6H1(MAA),6H (MAB),6H (MAC),6H (MBA),\r\nC    $6H (MBB),6H (MBC),6H (MCA),6H (MCB),6H (MCC) /\r\nC     DATA NASTER /130*1H*/\r\nC\r\n      COMMON /SMA2IO/ DUM1(10), IFMGG, DUM2(25)\r\n      COMMON /SMA2CL/  DUM3(2), NPVT\r\n     2,                  DUMCL(7)\r\n     3,                  LINK(10)           ,NOGO\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222, SPACE(2)\r\nC\r\nC     ECPT BLOCK\r\n      COMMON /SMA2ET/\r\n     1                   NECPT(1)      ,NGRID(3)\r\n     2                  ,ANGLE         ,MATID1\r\n     3                  ,EYE           ,MATID2\r\n     4                  ,T2            ,FMU\r\n     5                  ,Z11           ,Z22\r\n     6                  ,DUMMY1        ,X1\r\n     7                  ,Y1            ,Z1\r\n     8                  ,DUMMY2        ,X2\r\n     9                  ,Y2            ,Z2\r\n     1                  ,DUMMY3        ,X3\r\n     2                  ,Y3            ,Z3            ,DUMB(76)\r\nC\r\n      COMMON /SMA2DP/    A(225)        ,PROD9(9)\r\n     1                  ,TEMP9(9)      ,XSUBB\r\n     2                  ,XSUBC         ,YSUBC\r\n     3                  ,E(9)          ,TEMP\r\n     4                  ,XCSQ          ,XBSQ\r\n     5                  ,YCSQ          ,XCYC\r\n     6                  ,AIJ           ,DETERM\r\n     7                  ,BIJ           ,SIZERO\r\n     8                  ,FJ            ,FJ2\r\n     9                  ,FI            ,FIJ\r\n     T                  ,YPRODJ        ,XPRODI\r\n     1\r\n     2                  ,ISING         ,DUMMY(59)\r\nC\r\n      EQUIVALENCE\r\n     1          (D(1),G(1),SIIJ(1,1),A(1))  ,(ECPT(1),NECPT(1))\r\n     2         ,(G2X2(1),A(10))             ,(J2X2(1),A(14))\r\n     3         ,(HYQ(1),A(50))              ,(MBARAA(1),A(136))\r\n     4         ,(MAR(1),A(145))             ,(MRR(1),A(163))\r\n     5         ,(S(1),A(82))\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE   TYPE\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC     ******************************************************************\r\nC\r\nC     SETTING UP G MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID = MATID1\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 50 I = 1,9\r\n   50 D(I) = G(I) * DBLE(EYE)\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(100). . .A(135)\r\n      XCSQ = XSUBC ** 2\r\n      YCSQ = YSUBC ** 2\r\n      XBSQ = XSUBB ** 2\r\n      XCYC = XSUBC * YSUBC\r\nC\r\n      DO 80 I = 100,135\r\n   80 A(I) = 0.0D0\r\nC\r\n      A(100) = XBSQ\r\n      A(103) = XBSQ * XSUBB\r\n      A(107) = XSUBB\r\n      A(112) = -2.0D0 * XSUBB\r\n      A(115) = -3.0D0 * XBSQ\r\n      A(118) = XCSQ\r\n      A(119) = XCYC\r\n      A(120) = YCSQ\r\n      A(121) = XCSQ * XSUBC\r\n      A(122) = YCSQ * XSUBC\r\n      A(123) = YCSQ * YSUBC\r\n      A(125) = XSUBC\r\n      A(126) = YSUBC * 2.0D0\r\n      A(128) = XCYC  * 2.0D0\r\n      A(129) = YCSQ  * 3.0D0\r\n      A(130) =-2.0D0 * XSUBC\r\n      A(131) =-YSUBC\r\n      A(133) =-3.0D0 * XCSQ\r\n      A(134) =-YCSQ\r\nC\r\nC\r\nC     ******************************************************************\r\nC\r\n      IF( T2 .EQ. 0.0E0 ) GO TO 110\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 110\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID = MATID2\r\n      INFLAG = 3\r\n      CALL MAT( ECPT(1) )\r\n      IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0)\r\n     1  GO TO 110\r\n      G2X2(1) = G2X211 * T2\r\n      G2X2(2) = G2X212 * T2\r\n      G2X2(3) = G2X2(2)\r\n      G2X2(4) = G2X222 * T2\r\nC\r\n      DETERM = G2X2(1) * G2X2(4)  -  G2X2(3) * G2X2(2)\r\n      J2X2(1) = G2X2(4) / DETERM\r\n      J2X2(2) =-G2X2(2) / DETERM\r\n      J2X2(3) = J2X2(2)\r\n      J2X2(4) = G2X2(1) / DETERM\r\nC\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(50)...A(55) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\nC\r\nC\r\n      TEMP  = 2.0D0 * D(2) + 4.0D0 * D(9)\r\n      HYQ(1) = -6.0D0 * (J2X2(1) * D(1) + J2X2(2) * D(3))\r\n      HYQ(2) = -J2X2(1) * TEMP - 6.0D0 * J2X2(2) * D(6)\r\n      HYQ(3) = -6.0D0 * (J2X2(1) * D(6) + J2X2(2) * D(5))\r\n      HYQ(4) = -6.0D0 * (J2X2(2) * D(1) + J2X2(4) * D(3))\r\n      HYQ(5) = -J2X2(2) * TEMP - 6.0D0 * J2X2(4) * D(6)\r\n      HYQ(6) = -6.0D0 * (J2X2(2) * D(6) + J2X2(4) * D(5))\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN STEP 6 PAGE 8, FMMS-66\r\nC\r\n      DO 100 I = 1,3\r\n      A(I + 102) = A(I + 102) + XSUBB * HYQ(I)\r\n  100 A(I + 120) = A(I + 120) + XSUBC * HYQ(I)    + YSUBC * HYQ(I + 3)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\nC     ******************************************************************\r\nC\r\n  110 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(100). . .A(135)\r\nC     STORE INVERSE BACK IN A(100). . A(135)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD(6,A(100),6,A(136),0,DETERM,ISING,A(142))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\n      IF( ISING .NE. 2 ) GO TO 120\r\nC\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\n      CALL MESAGE(30,33,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\nC\r\nCHURN OUT INTEGRAL VALUES I   USED IN REFERENCED M MATRICES\r\nC                          IJ                           SEE P.9, FMMS-66\r\nC\r\nC     THE CALCULATION FOR  (I  ) ARE AS FOLLOWS\r\nC                            IJ\r\nC                                                      ***\r\nC         A1  = XSUBB * YSUBC**(J+1) / ((J+1)*(J+2))      *\r\nC           0J                                            *\r\nC                                                         *\r\nC         B   = XSUBC * YSUBC**(J+1) / (J+2)              *\r\nC           0J                                            ** J=0,6\r\nC                                                         *\r\nC         A   = A1   + B                                  *\r\nC           0J    0J    0J                                *\r\nC                                                         *\r\nC         I   = MU * A1                                   *\r\nC           0J         0J                              ***\r\nC\r\nC                                                            ***\r\nC         A1  = I * XSUBB * A      /(I+J+2)                     *\r\nC           IJ               I-1,J                              *\r\nC                                                               *\r\nC         B   = XSUBC**(I+1) * YSUBC**(J+1) /((I+1)*(I+J+2))    *  I=1,6\r\nC           IJ                                                  ** J=0,6\r\nC                                                               *\r\nC         A   = A1   + B                                        *\r\nC           IJ    IJ    IJ                                      *\r\nC                                                               *\r\nC         I     MU * A1                                         *\r\nC           IJ=        IJ                                       *\r\nC                                                            ***\r\nC      NOTE.. LOOPS FOR PROGRAM BEGIN AT 1 INSTEAD OF 0\r\nC                                      I.E.  I = 1,7\r\nC                                            J = 1,7\r\nC\r\n  120 DO 140 J=1,7\r\n      YPRODJ = YSUBC **J\r\n      FJ  = J\r\n      FJ2 = J+1\r\n      AIJ       = XSUBB * YPRODJ /(FJ * FJ2)\r\n      BIJ       = XSUBC * YPRODJ / FJ2\r\n      SIIJ(1,J) = FMU   * AIJ\r\n      AIJ       = AIJ   + BIJ\r\n      IF(J .EQ. 7) GO TO 140\r\n      K = 8 - J\r\n      DO 130 I = 2,K\r\n          XPRODI = XSUBC **I\r\n          FI     = I\r\n          FIJ    = I + J\r\n          AIJ       = (FI-1.0D0) * XSUBB * AIJ / FIJ\r\n          BIJ       = XPRODI * YPRODJ /(FI * FIJ)\r\n          SIIJ(I,J) = FMU * AIJ\r\n  130     AIJ       = AIJ + BIJ\r\nC\r\n  140 CONTINUE\r\n      SIZERO = SIIJ(1,1) / 3.0D0\r\nC\r\nCHUNK IN NUMBERS FOR (M-BAR-AA)    3X3 MATRIX AS PER MS-48, PAGES 6-10\r\nC\r\nC                    (M  )         3X6 MATRIX\r\nC                      AR\r\nC\r\nC                    (M  )         6X6 MATRIX\r\nC                      RR\r\nC\r\nC     (M-BAR-AA) MATRIX\r\nC\r\n      MBARAA(1) =  SIIJ(1,1)\r\n      MBARAA(2) =  SIIJ(1,2)\r\n      MBARAA(3) = -SIIJ(2,1)\r\n      MBARAA(4) =  SIIJ(1,2)\r\n      MBARAA(5) =  SIIJ(1,3)\r\n      MBARAA(6) = -SIIJ(2,2)\r\n      MBARAA(7) = -SIIJ(2,1)\r\n      MBARAA(8) = -SIIJ(2,2)\r\n      MBARAA(9) =  SIIJ(3,1)\r\nC\r\nC     (M  ) MATRIX\r\nC       AR\r\n      MAR( 1) = SIIJ(3,1)\r\n      MAR( 2) = SIIJ(2,2)\r\n      MAR( 3) = SIIJ(1,3)\r\n      MAR( 4) = SIIJ(4,1)\r\n      MAR( 5) = SIIJ(2,3)\r\n      MAR( 6) = SIIJ(1,4)\r\n      MAR( 7) = SIIJ(3,2)\r\n      MAR( 8) = SIIJ(2,3)\r\n      MAR( 9) = SIIJ(1,4)\r\n      MAR(10) = SIIJ(4,2)\r\n      MAR(11) = SIIJ(2,4)\r\n      MAR(12) = SIIJ(1,5)\r\n      MAR(13) =-SIIJ(4,1)\r\n      MAR(14) =-SIIJ(3,2)\r\n      MAR(15) =-SIIJ(2,3)\r\n      MAR(16) =-SIIJ(5,1)\r\n      MAR(17) =-SIIJ(3,3)\r\n      MAR(18) =-SIIJ(2,4)\r\nC\r\nC     (M  ) MATRIX  A 6X6 SYMMETRIC MATRIX\r\nC       RR\r\n      MRR( 1) = SIIJ(5,1)\r\n      MRR( 2) = SIIJ(4,2)\r\n      MRR( 3) = SIIJ(3,3)\r\n      MRR( 4) = SIIJ(6,1)\r\n      MRR( 5) = SIIJ(4,3)\r\n      MRR( 6) = SIIJ(3,4)\r\n      MRR( 7) = MRR(2)\r\n      MRR( 8) = SIIJ(3,3)\r\n      MRR( 9) = SIIJ(2,4)\r\n      MRR(10) = SIIJ(5,2)\r\n      MRR(11) = SIIJ(3,4)\r\n      MRR(12) = SIIJ(2,5)\r\n      MRR(13) = MRR(3)\r\n      MRR(14) = MRR(9)\r\n      MRR(15) = SIIJ(1,5)\r\n      MRR(16) = SIIJ(4,3)\r\n      MRR(17) = SIIJ(2,5)\r\n      MRR(18) = SIIJ(1,6)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = SIIJ(7,1)\r\n      MRR(23) = SIIJ(5,3)\r\n      MRR(24) = SIIJ(4,4)\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = SIIJ(3,5)\r\n      MRR(30) = SIIJ(2,6)\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = SIIJ(1,7)\r\nC\r\n      IF(T2 .EQ. 0.0) GO TO 146\r\n      IF(G2X211.EQ.0.0E0 .AND. G2X212.EQ.0.0E0 .AND. G2X222.EQ.0.0E0)\r\n     1   GO TO 146\r\nC\r\n      MAR( 4) = MAR( 4)   + HYQ(1) * SIIJ(2,1) + HYQ(4) * SIIJ(1,2)\r\n      MAR( 5) = MAR( 5)   + HYQ(2) * SIIJ(2,1) + HYQ(5) * SIIJ(1,2)\r\n      MAR( 6) = MAR( 6)   + HYQ(3) * SIIJ(2,1) + HYQ(6) * SIIJ(1,2)\r\n      MAR(10) = MAR(10)   + HYQ(1) * SIIJ(2,2) + HYQ(4) * SIIJ(1,3)\r\n      MAR(11) = MAR(11)   + HYQ(2) * SIIJ(2,2) + HYQ(5) * SIIJ(1,3)\r\n      MAR(12) = MAR(12)   + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3)\r\n      MAR(16) = MAR(16)   - HYQ(1) * SIIJ(3,1) - HYQ(4) * SIIJ(2,2)\r\n      MAR(17) = MAR(17)   - HYQ(2) * SIIJ(3,1) - HYQ(5) * SIIJ(2,2)\r\n      MAR(18) = MAR(18)   - HYQ(3) * SIIJ(3,1) - HYQ(6) * SIIJ(2,2)\r\n      MRR( 4) = MRR( 4)   + HYQ(1) * SIIJ(4,1) + HYQ(4) * SIIJ(3,2)\r\n      MRR( 5) = MRR( 5)   + HYQ(2) * SIIJ(4,1) + HYQ(5) * SIIJ(3,2)\r\n      MRR( 6) = MRR( 6)   + HYQ(3) * SIIJ(4,1) + HYQ(6) * SIIJ(3,2)\r\n      MRR(10) = MRR(10)   + HYQ(1) * SIIJ(3,2) + HYQ(4) * SIIJ(2,3)\r\n      MRR(11) = MRR(11)   + HYQ(2) * SIIJ(3,2) + HYQ(5) * SIIJ(2,3)\r\n      MRR(12) = MRR(12)   + HYQ(3) * SIIJ(3,2) + HYQ(6) * SIIJ(2,3)\r\n      MRR(16) = MRR(16)   + HYQ(1) * SIIJ(2,3) + HYQ(4) * SIIJ(1,4)\r\n      MRR(17) = MRR(17)   + HYQ(2) * SIIJ(2,3) + HYQ(5) * SIIJ(1,4)\r\n      MRR(18) = MRR(18)   + HYQ(3) * SIIJ(2,3) + HYQ(6) * SIIJ(1,4)\r\n      MRR(19) = MRR( 4)\r\n      MRR(20) = MRR(10)\r\n      MRR(21) = MRR(16)\r\n      MRR(22) = MRR(22)   + HYQ(1) * (HYQ(1) * SIIJ(3,1) + 2.0D0\r\n     1 * (SIIJ(5,1) + HYQ(4) * SIIJ(2,2))) + HYQ(4) * (2.0D0 * SIIJ(4,2)\r\n     2 + HYQ(4) * SIIJ(1,3))\r\n      MRR(23) = MRR(23)   + HYQ(2) * SIIJ(5,1) + HYQ(5) * SIIJ(4,2)\r\n     1 + HYQ(1) * (SIIJ(3,3) + HYQ(2) * SIIJ(3,1) + HYQ(5) * SIIJ(2,2))\r\n     2 + HYQ(4) * (SIIJ(2,4) + HYQ(2) * SIIJ(2,2) + HYQ(5) * SIIJ(1,3))\r\n      MRR(24) = MRR(24)   + HYQ(3) * SIIJ(5,1) + HYQ(6) * SIIJ(4,2)\r\n     1 + HYQ(1) * (SIIJ(2,4) + HYQ(3) * SIIJ(3,1) + HYQ(6) * SIIJ(2,2))\r\n     2 + HYQ(4) * (SIIJ(1,5) + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3))\r\n      MRR(25) = MRR( 5)\r\n      MRR(26) = MRR(11)\r\n      MRR(27) = MRR(17)\r\n      MRR(28) = MRR(23)\r\n      MRR(29) = MRR(29)   + HYQ(2) * (HYQ(2) * SIIJ(3,1) + 2.0D0\r\n     1 * (SIIJ(3,3) + HYQ(5) * SIIJ(2,2))) + HYQ(5) * (2.0D0 * SIIJ(2,4)\r\n     2 + HYQ(5) * SIIJ(1,3))\r\n      MRR(30) = MRR(30)   + HYQ(3) * SIIJ(3,3) + HYQ(6) * SIIJ(2,4)\r\n     1 + HYQ(2) * (SIIJ(2,4) + HYQ(3) * SIIJ(3,1) + HYQ(6) * SIIJ(2,2))\r\n     2 + HYQ(5) * (SIIJ(1,5) + HYQ(3) * SIIJ(2,2) + HYQ(6) * SIIJ(1,3))\r\n      MRR(31) = MRR( 6)\r\n      MRR(32) = MRR(12)\r\n      MRR(33) = MRR(18)\r\n      MRR(34) = MRR(24)\r\n      MRR(35) = MRR(30)\r\n      MRR(36) = MRR(36)   + HYQ(3) * (HYQ(3) * SIIJ(3,1) + 2.0D0\r\n     1 * (SIIJ(2,4) + HYQ(6) * SIIJ(2,2))) + HYQ(6) * (2.0D0 * SIIJ(1,5)\r\n     2 + HYQ(6) * SIIJ(1,3))\r\nC\r\n  146 CONTINUE\r\nC\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS  6X3 )\r\nC\r\n      S( 1) = 1.0D0\r\n      S( 2) = 0.0D0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0D0\r\n      S( 5) = 1.0D0\r\n      S( 6) = 0.0D0\r\n      S( 7) = 0.0D0\r\n      S( 8) = 0.0D0\r\n      S( 9) = 1.0D0\r\n      S(10) = 1.0D0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0D0\r\n      S(14) = 1.0D0\r\n      S(15) = 0.0D0\r\n      S(16) = 0.0D0\r\n      S(17) = 0.0D0\r\n      S(18) = 1.0D0\r\nC\r\nCAN NOW COMPUTE 9 (3X3) MASS MATRICES (FMMS-66, PAGES 10-11)\r\nC\r\nC\r\nC                -1 T           -1\r\nC     ( M ) = ( H  )  ( M  ) ( H  )\r\nC                        RR\r\nC\r\nC              PARTITION (M)\r\nC                                           ///       ///\r\nC                                           /     *     /\r\nC                                           / MBB * MBC /\r\nC                                           /     *     /\r\nC                                ( M )  =   / ********* /\r\nC                                           /     *     /\r\nC                                           / MCB * MCC /\r\nC                                           /     *     /\r\nC                                           ///       ///\r\nC                                                       4 (3X3) MATRICES\r\nC                        -1\r\nC     ( M  ) = ( M  ) ( H  )\r\nC        AI       AR\r\nC\r\nC              PARTITION (M  )              ///                 ///\r\nC                          AI               /          *          /\r\nC                               ( M  )  =   / M-BAR-AB * M-BAR-AC /\r\nC                                  AI       /          *          /\r\nC                                           ///                 ///\r\nC                                                       2 (3X3) MATRICES\r\nC                               T            T\r\nC     ( MAB )  = (M-BAR-AB) - (S ) (MBB) - (S ) (MCB)\r\nC                               B            C\r\nC\r\nC                               T            T\r\nC     ( MAC )  = (M-BAR-AC) - (S ) (MBC) - (S ) (MCC)\r\nC                               B            C\r\nC\r\nC                               T     T      T      T\r\nC     ( MAA )  = (M-BAR-AA) - (S ) (M  ) - (S ) (MAC )\r\nC                               B    AB      C\r\nC\r\nC                           - (M-BAR-AB) (S ) - (M-BAR-AC) (S )\r\nC                                          B                 C\r\nC\r\nC                    T\r\nC     ( MBA )  = (MAB )\r\nC\r\nC                    T\r\nC     ( MCA )  = (MAC )\r\nC\r\nCHOOSE APPROPRIATE BLOCK OF A-ARRAY FOR STORAGE\r\nC\r\nC     (3X3)    STORED IN      (3X3)     STORED IN     (3X3)    STORED IN\r\nC     (MAA)   A( 1... 9)      (MAB)   A(10)...8)      (MAC)   A(19...27)\r\nC     (MBA)   A(28...36)      (MBB)   A(37)...45)     (MBC)   A(46...54)\r\nC     (MCA)   A(55...63)      (MCB)   A(64...72)      (MCC)   A(73...81)\r\nC\r\nC       -1\r\nC     (H  ) IS STORED AT A(100...135)\r\nC     (S)   EQUIVALENCED A( 81... 99)\r\nC     WORKING STORAGE IS A(181...216)\r\nC     (M-BAR-AB) STORED UNTIL NO LONGER NEEDED IN A(163...171)\r\nC     (M-BAR-AC) STORED UNTIL NO LONGER NEEDED IN A(172...180)\r\nC\r\nC               -1 T          -1\r\nCOMPUTE (M) = (H  )  ((M  ) (H  ))\r\nC                       RR\r\nC\r\n      CALL GMMATD(MRR(1),6,6,0,A(100),6,6,0,A(37))\r\n      CALL GMMATD(A(100),6,6,1,A( 37),6,6,0,A( 1))\r\nC\r\nCREATE PARTITION OF 4 (3X3)\r\n      DO 150 I=1,3\r\n        A(I+36) = A(I   )\r\n        A(I+39) = A(I+ 6)\r\n        A(I+42) = A(I+12)\r\nC\r\n        A(I+45) = A(I+ 3)\r\n        A(I+48) = A(I+ 9)\r\n        A(I+51) = A(I+15)\r\nC\r\n        A(I+63) = A(I+18)\r\n        A(I+66) = A(I+24)\r\n        A(I+69) = A(I+30)\r\nC\r\n        A(I+72) = A(I+21)\r\n        A(I+75) = A(I+27)\r\n  150   A(I+78) = A(I+33)\r\nC\r\nCOMPUTE                 -1\r\nC       (M  ) = (M  ) (H  )    AND  PARTITION INTO 2 (3X3)  (M-BAR-AB)\r\nC         AI      AR                                    AND (M-BAR-AC)\r\nC\r\n      CALL GMMATD(MAR(1),3,6,0,A(100),6,6,0,A(181))\r\n      DO 160 I=1,3\r\n        A(I+162) = A(I+180)\r\n        A(I+165) = A(I+186)\r\n        A(I+168) = A(I+192)\r\nC\r\n        A(I+171) = A(I+183)\r\n        A(I+174) = A(I+189)\r\n  160   A(I+177) = A(I+195)\r\nCOMPUTE (MAB)\r\n      CALL GMMATD(S( 1),3,3,1,A(37),3,3,0,A(181))\r\n      CALL GMMATD(S(10),3,3,1,A(64),3,3,0,A(190))\r\n      DO 170 I=1,9\r\n  170   A(I+9)=A(I+162) - A(I+180) - A(I+189)\r\nCOMPUTE (MAC)\r\n      CALL GMMATD(S( 1),3,3,1,A(46),3,3,0,A(181))\r\n      CALL GMMATD(S(10),3,3,1,A(73),3,3,0,A(190))\r\n      DO 180 I=1,9\r\n  180   A(I+18) = A(I+171) - A(I+180) - A(I+189)\r\nCOMPUTE (MAA)\r\n      CALL GMMATD(S(  1),3,3,1,A(10),3,3,1,A(181))\r\n      CALL GMMATD(S( 10),3,3,1,A(19),3,3,1,A(190))\r\n      CALL GMMATD(A(163),3,3,0,S( 1),3,3,0,A(199))\r\n      CALL GMMATD(A(172),3,3,0,S(10),3,3,0,A(208))\r\n      DO 190 I=1,9\r\n  190   A(I) = MBARAA(I) - A(I+180) - A(I+189) - A(I+198) - A(I+207)\r\nCOMPUTE (MBA) AND (MCA)\r\n      DO 200 I=1,3\r\n        NPT = 3 * I + 7\r\n        A(I+27) = A(NPT)\r\n        A(I+30) = A(NPT + 1)\r\n        A(I+33) = A(NPT + 2)\r\nC\r\n        A(I+54) = A(NPT +  9)\r\n        A(I+57) = A(NPT + 10)\r\n  200   A(I+60) = A(NPT + 11)\r\nC\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mtriqd.f",
    "content": "      SUBROUTINE MTRIQD (NTYPE)\r\nC\r\nC\r\nC     8/18/67           E C P T     L I S T I N G\r\nC\r\nC     ECPT    TRPLT     TRIA1     TRIA2     QDPLT     QUAD1     QUAD2\r\nC     *****************************************************************\r\nC\r\nC      1     ELEM ID   ELEM ID   ELEM ID   ELEM ID   ELEM ID   ELEM ID\r\nC      2     GRID A    GRID A    GRID A    GRID A    GRID A    GRID A\r\nC      3     GRID B    GRID B    GRID B    GRID B    GRID B    GRID B\r\nC      4     GRID C    GRID C    GRID C    GRID C    GRID C    GRID C\r\nC      5     THETA     THETA     THETA     GRID D    GRID D    GRID D\r\nC      6     MATID1    MATID1    MAT ID    THETA     THETA     THETA\r\nC      7     I         T1        T         MATID1    MATID1    MAT ID\r\nC      8     MATID2    MATID2    NS MASS   I         T1        T\r\nC      9     T2        I         CSID 1    MATID2    MATID2    NS MASS\r\nC     10     NS MASS   MATID3    X1        T2        I         CSID 1\r\nC     11     Z1        T2        Y1        NS MASS   MATID3    X1\r\nC     12     Z2        NS MASS   Z1        Z1        T2        Y1\r\nC     13     CSID 1    Z1        CSID 3    Z2        NS MASS   Z1\r\nC     14     X1        Z2        X2        CSID 1    Z1        CSID 2\r\nC     15     Y1        CSID 1    Y2        X1        Z2        X2\r\nC     16     Z1        X1        Z2        Y1        CSID 1    Y2\r\nC     17     CSID 2    Y1        CSID 3    Z1        X1        Z2\r\nC     18     X2        Z1        X3        CSID 2    Y1        CSID 3\r\nC     19     Y2        CSID 2    Y3        X2        Z1        X3\r\nC     20     Z2        X2        Z3        Y2        CSID 2    Y3\r\nC     21     CSID 3    Y2        TEMP      Z2        X2        Z3\r\nC     22     X3        Z2                  CSID 3    Y2        CSID 4\r\nC     23     Y3        CSID 3              X3        Z2        X4\r\nC     24     Z3        X3                  Y3        CSID 3    Y4\r\nC     25     TEMP      Y3                  Z3        X3        Z4\r\nC     26               Z3                  CSID 4    Y3        TEMP\r\nC     27               TEMP                X4        Z3\r\nC     28                                   Y4        CSID 4\r\nC     29                                   Z4        X4\r\nC     30                                   TEMP      Y4\r\nC     31                                             Z4\r\nC     32                                             TEMP\r\nC\r\nC\r\n      LOGICAL         HEAT\r\n      DIMENSION       SAVE(32),ISAVE(32)\r\n      COMMON /SMA2ET/ ECPT(100)\r\n      COMMON /SMA2HT/ HEAT\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ RHO\r\n      EQUIVALENCE     (SAVE(1),ISAVE(1),ECPT(50))\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC             NTYPE = 1  IMPLIES MTRIA1\r\nC             NTYPE = 2  IMPLIES MTRIA2\r\nC             NTYPE = 3  IMPLIES MQUAD1\r\nC             NTYPE = 4  IMPLIES MQUAD2\r\nC\r\nC     IF (I . EQ. 0) THEN COMPUTE UNCOUPLED MASS\r\nC\r\nC     CALL MASSTQ (NARG)\r\nC          WHERE   NARG = 5 FOR TRIA1\r\nC                  NARG = 4 FOR TRIA2\r\nC                  NARG = 2 FOR QUAD1\r\nC                  NARG = 1 FOR QUAD2\r\nC\r\nC     CALLS FROM THIS ROUTINE CAN BE MADE TO\r\nC\r\nC            MTRPLT - TRIANGULAR PLATE ROUTINE\r\nC            MQDPLT - QUADRILATERAL PLATE ROUTINE\r\nC            MASSTQ - UNCOUPLED MASS COMBINATION ELEMENT ROUTINE\r\nC\r\nC     ALL INSERTIONS OF 6X6 ELEMENT MASS MATRICES ARE HANDLED BY\r\nC     THE ABOVE ROUTINES.\r\nC\r\nC     THE SAVED ECPT IS EQUIVALENCED TO ECPT(50)\r\nC\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      INFLAG = 4\r\n      DO 10 I = 1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC            MTRIA1 MTRIA2 MQUAD1 MQUAD2\r\n      GO TO (   20,    60,   100,   150), NTYPE\r\nC\r\nC     *** MTRIA1 ***\r\nC\r\nC     SET UP ECPT FOR CALL TO MTRPLT.  FIRST CHECK I EQUAL ZERO\r\nC\r\n   20 IF (SAVE(9) .NE. 0.0) GO TO 30\r\n      NARG = 5\r\n      CALL MASSTQ (NARG)\r\n      GO TO 200\r\nC\r\n   30 DO 40 I = 1,5\r\n   40 ECPT(I) = SAVE(I)\r\n      DO 50 I = 6,25\r\n   50 ECPT(I) = SAVE(I+2)\r\n      MATID   = ISAVE(6)\r\n      IF (SAVE(7) .EQ. 0.0) GO TO 54\r\n      CALL MAT (ECPT(1))\r\n      ECPT(10) = SAVE(12) + RHO*SAVE(7)\r\nC\r\n      GO TO 56\r\n   54 ECPT(10) = SAVE(12)\r\n   56 IF (.NOT.HEAT) CALL MTRPLT\r\n      GO TO 200\r\nC\r\nC     *** MTRIA2 ***\r\nC\r\nC     SET UP ECPT FOR CALL TO MTRPLT\r\nC\r\n   60 IF (SAVE(7) .NE. 0.0) GO TO 70\r\n      NARG = 4\r\n      CALL MASSTQ (NARG)\r\n      GO TO 200\r\nC\r\n   70 DO 80 I = 1,6\r\n   80 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7)**3/12.0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      MATID   = ISAVE(6)\r\n      CALL MAT (ECPT(1))\r\n      ECPT(10) = SAVE(8) + RHO*SAVE(7)\r\n      DO 90 I = 13,25\r\n   90 ECPT(I) = SAVE(I-4)\r\nC\r\n      IF (.NOT. HEAT) CALL MTRPLT\r\n      GO TO 200\r\nC\r\nC     *** MQUAD1 ***\r\nC\r\nC      SET UP ECPT FOR CALL TO MQDPLT.  FIRST CHECK I EQUAL ZERO\r\nC\r\n  100 IF (SAVE(10) .NE. 0.0) GO TO 110\r\n      NARG = 2\r\n      CALL MASSTQ (NARG)\r\n      GO TO 200\r\nC\r\n  110 DO 130 I = 1,6\r\n  130 ECPT(I) = SAVE(I)\r\n      DO 140 I = 7,30\r\n  140 ECPT(I) = SAVE(I+2)\r\n      MATID = ISAVE(7)\r\n      IF (SAVE(8) .EQ. 0.0) GO TO 144\r\n      CALL MAT (ECPT(1))\r\n      ECPT(11) = SAVE(13) + RHO*SAVE(8)\r\nC\r\n      GO TO 146\r\n  144 ECPT(11) = SAVE(13)\r\n  146 IF (.NOT.HEAT) CALL MQDPLT\r\n      GO TO 200\r\nC\r\nC     *** MQUAD2 ***\r\nC\r\nC     SET UP ECPT FOR CALL TO MQDPLT\r\nC\r\n  150 IF (SAVE(8) .NE. 0.0) GO TO 160\r\n      NARG = 1\r\n      CALL MASSTQ (NARG)\r\n      GO TO 200\r\nC\r\n  160 DO 170 I = 1,7\r\n  170 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8)**3/12.0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      MATID   = ISAVE(7)\r\n      CALL MAT (ECPT(1))\r\n      ECPT(11) = SAVE(9) + RHO*SAVE(8)\r\n      DO 180 I = 14,30\r\n  180 ECPT(I) = SAVE(I-4)\r\nC\r\n      IF (.NOT. HEAT) CALL MQDPLT\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mtrirg.f",
    "content": "      SUBROUTINE MTRIRG\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE COMPUTES THE   MASS    MATRIX FOR A AXI-SYMMETRIC RING\r\nC WITH A TRIANGULAR CROSS SECTION\r\nC*****\r\nC\r\nC\r\nC                        ECPT FOR THE TRIANGULAR RING\r\nC\r\nC\r\nC                                                      TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC ECPT( 6) MATERIAL IDENTIFICATION                       I\r\nC ECPT( 7) COOR. SYS. ID. FOR GRID POINT A               I\r\nC ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(11) COOR. SYS. ID. FOR GRID POINT B               I\r\nC ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(15) COOR. SYS. ID. FOR GRID POINT C               I\r\nC ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\nC\r\n      DOUBLE PRECISION CONSTD, D2PI\r\n      DOUBLE PRECISION\r\n     1                   D ,  GAMBQ,    R,   Z\r\n     2,                            DELINT,   AK,  AKI\r\n     3,                  AKT,  AM\r\n      DOUBLE PRECISION   R1,  R2,  R3,  Z1,  Z2,  Z3,  ZMIN, DGAMA\r\n     1,                  DR,  RH,  DZ,  ZH,  RA,  ZA,  AREA\r\n     2,                  TWOPI,    RHOD,     DKI\r\nC\r\n      DIMENSION          IECPT(19)\r\n      DIMENSION  AM(36)\r\nC\r\n      COMMON /CONDAD/ CONSTD(5)\r\n      COMMON   /SMA2IO/\r\n     1                   DUM1(10)\r\n     2,                  IFMGG\r\n     3,                  DUM2(25)\r\n      COMMON   /SMA2CL/\r\n     1                   DUM3(2)\r\n     2,                  NPVT\r\n     3,                  DUM4(7)\r\n     4,                  LINK(10)           ,NOGO\r\n      COMMON   /SMA2ET/\r\n     1                   ECPT(19)\r\n     2,                  DUM5(81)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)               ,ANU(3)\r\n     2,                  RHO                ,G(3)\r\n     3,                  ALF(3)             ,TZERO\r\n      COMMON   /SMA2DP/\r\n     1                   D(36) ,   GAMBQ(36),     R(3) ,    Z(3)\r\n     2,                                      DELINT(8),     AK(36)\r\n     3,                  AKI(36),  AKT(9)\r\n     4,                  DGAMA,    ZMIN,     RHOD,     TWOPI\r\n     5,                  DR,  RH,  DZ,  ZH,  RA,  ZA,  AREA\r\n     8,                  IGP(3) , ICS(3) , SP(18)\r\n     9,                  TEMPE\r\nC\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE   (R(1),R1),     (R(2),R2),     (R(3),R3)\r\n     1,             (Z(1),Z1),     (Z(2),Z2),     (Z(3),Z3)\r\n      EQUIVALENCE  (AM(1) , AK(1))\r\n      EQUIVALENCE ( CONSTD(2) , D2PI   )\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL  = IECPT(1)\r\n      IGP(1)= IECPT(2)\r\n      IGP(2)= IECPT(3)\r\n      IGP(3)= IECPT(4)\r\n      MATID = IECPT(6)\r\n      ICS(1)= IECPT(7)\r\n      ICS(2)= IECPT(11)\r\n      ICS(3)= IECPT(15)\r\n      R(1)  = ECPT(8)\r\n      D(1)  = ECPT(9)\r\n      Z(1)  = ECPT(10)\r\n      R(2)  = ECPT(12)\r\n      D(2)  = ECPT(13)\r\n      Z(2)  = ECPT(14)\r\n      R(3)  = ECPT(16)\r\n      D(3)  = ECPT(17)\r\n      Z(3)  = ECPT(18)\r\n      TEMPE = ECPT(19)\r\n      DGAMA = ECPT(5)\r\nC\r\nC\r\nC CHECK INTERNAL GRID POINTS FOR PIVOT POINT\r\nC\r\n      IPP = 0\r\n      DO 100 I = 1,3\r\n      IF (NPVT .EQ. IGP(I)) IPP = I\r\n  100 CONTINUE\r\n      IF (IPP .EQ. 0) CALL MESAGE (-30,34,IDEL)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      IEROR1 = 0\r\n      DO 200 I = 1,3\r\n      IF (R(I).GT.0.0D0) GO TO 200\r\n      IF (IEROR1.NE.0) GO TO 200\r\n      CALL MESAGE (30, 211, IDEL)\r\n      IEROR1 = 1\r\n  200 CONTINUE\r\n      IEROR2 = 0\r\n      DO 210 I = 1, 3\r\n      IF (D(I).EQ.0.0D0) GO TO 210\r\n      IF (IEROR2.NE.0) GO TO 210\r\n      CALL MESAGE (30, 212, IDEL)\r\n      IEROR2 = 1\r\n  210 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      IF (IEROR1.EQ.0.AND.IEROR2.EQ.0) GO TO 220\r\n      NOGO = 2\r\n      RETURN\r\n  220 ZMIN = DMIN1 (Z1, Z2, Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,36\r\n      GAMBQ(I) = 0.0D0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0D0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ(10) = 1.0D0\r\n      GAMBQ(11) = R1\r\n      GAMBQ(12) = Z1\r\n      GAMBQ(13) = 1.0D0\r\n      GAMBQ(14) = R2\r\n      GAMBQ(15) = Z2\r\n      GAMBQ(22) = 1.0D0\r\n      GAMBQ(23) = R2\r\n      GAMBQ(24) = Z2\r\n      GAMBQ(25) = 1.0D0\r\n      GAMBQ(26) = R3\r\n      GAMBQ(27) = Z3\r\n      GAMBQ(34) = 1.0D0\r\n      GAMBQ(35) = R3\r\n      GAMBQ(36) = Z3\r\nC\r\nC\r\nC     NONEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP)\r\nC\r\n      IF (ISING.EQ.2) GO TO 920\r\nC\r\nC\r\nC\r\nC CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC              DELINT( 1) - ( 1,0)\r\nC              DELINT( 2) - ( 1,1)\r\nC              DELINT( 3) - ( 1,2)\r\nC              DELINT( 4) - ( 2,0)\r\nC              DELINT( 5) - ( 2,1)\r\nC              DELINT( 6) - ( 0,2)\r\nC              DELINT( 7) - ( 3,0)\r\nC              DELINT( 8) - (-1,2)\r\nC\r\nC\r\nC TEST FOR RELATIVE SMALL AREA OF INTEGRATION\r\nC AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS\r\nC\r\n      DR = DMAX1 ( DABS(R1-R2) , DABS(R2-R3) , DABS(R3-R1) )\r\n      RH = DMIN1 ( R1 , R2 , R3 ) / 10.0D0\r\n      DZ = DMAX1 ( DABS(Z1-Z2) , DABS(Z2-Z3) , DABS(Z3-Z1) )\r\n      ZH = DMIN1 ( Z1 , Z2 , Z3 ) / 10.0D0\r\n      RA = (R1 + R2 + R3) / 3.0D0\r\n      ZA = (Z1 + Z2 + Z3) / 3.0D0\r\n      AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0D0\r\n      KODE = 0\r\n      IF (DABS( (R2-R1)/R2 ) .LT. 1.0D-5) KODE = 1\r\n      IF ( DR .LE. RH  .OR.  DZ .LE. ZH ) KODE = -1\r\nC\r\nC\r\n  310 CONTINUE\r\n      I1 = 0\r\n      DO 400 I = 1,3\r\n      IP = I\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      IF (IP.EQ.2 .AND. IQ.EQ.2) IP = 0\r\n      IF (IP.EQ.3 .AND. IQ.EQ.2) IP = -1\r\n      IF (IP.EQ.3 .AND. IQ.EQ.1) GO TO 350\r\n      I1 = I1 + 1\r\n      IF (KODE) 320,330,340\r\n  320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA\r\n      GO TO 350\r\n  330 DELINT(I1) = DKI(1,3,1,2,1,3,IP,IQ,R,Z)\r\n     1           + DKI(3,2,1,2,3,2,IP,IQ,R,Z)\r\n      GO TO 350\r\n  340 CONTINUE\r\n      DELINT(I1) = DKI(1,3,3,2,1,3,IP,IQ,R,Z)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC\r\nC TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS\r\nC AND IF IT EXIST APPROXIMATE INTEGRALS\r\nC\r\n      IF (KODE .LT. 0) GO TO 500\r\n      DO 450 I = 1,8\r\n      IF (DELINT(I) .LT. 0.0D0) GO TO 475\r\n  450 CONTINUE\r\n      IF (DELINT(3) .LE. DELINT(6)) GO TO 475\r\n      IF (DELINT(8) .GE. DELINT(3)) GO TO 475\r\n      IF (DELINT(8) .GT. DELINT(6)) GO TO 475\r\n      GO TO 500\r\n  475 CONTINUE\r\n      KODE = -1\r\n      GO TO 310\r\n  500 CONTINUE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      RHOD = RHO\r\nC\r\nC GENERATE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES\r\nC\r\n      DO 600 I = 1,36\r\n      AM(I) = 0.0D0\r\n  600 CONTINUE\r\n      TWOPI = D2PI * RHOD\r\n      AM( 1)= TWOPI *       DELINT(1)\r\n      AM( 2)= TWOPI *       DELINT(4)\r\n      AM( 3)= TWOPI *       DELINT(2)\r\n      AM( 7)= AM( 2)\r\n      AM( 8)= TWOPI *       DELINT(7)\r\n      AM( 9)= TWOPI *       DELINT(5)\r\n      AM(13)= AM( 3)\r\n      AM(14)= AM( 9)\r\n      AM(15)= TWOPI *       DELINT(3)\r\n      AM(22)= AM( 1)\r\n      AM(23)= AM( 2)\r\n      AM(24)= AM( 3)\r\n      AM(28)= AM(23)\r\n      AM(29)= AM( 8)\r\n      AM(30)= AM( 9)\r\n      AM(34)= AM(24)\r\n      AM(35)= AM(30)\r\n      AM(36)= AM(15)\r\nC\r\nC TRANSFORM THE ELEMENT   MASS    MATRIX FROM FIELD COORDINATES\r\nC TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATD (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D )\r\n      CALL GMMATD (D  , 6, 6, 0, GAMBQ , 6, 6, 0, AK)\r\nC\r\nC\r\nC\r\nC ZERO OUT THE (6X6) MATRIX USED AS INPUT TO THE INSERTION ROUTINE\r\nC\r\n      DO 700 I = 1,36\r\n      AKI(I) = 0.0D0\r\n  700 CONTINUE\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC\r\n      DO 800 I = 1,3\r\n      IF (ICS(I) .EQ. 0) GO TO 800\r\n      K = 9 * (I-1) + 1\r\n      CALL TRANSD (ICS(I) , D(K))\r\n  800 CONTINUE\r\nC\r\nC\r\nC\r\nC START THE LOOP FOR INSERTION OF THE THREE (6X6) MATRICES\r\nC INTO THE MASTER MASS MATRIX\r\nC\r\n      IR1  = 2 * IPP - 1\r\n      IAPP = 9 * (IPP-1) + 1\r\n      DO 900 I = 1,3\r\nC\r\nC PLACE THE APPROIATE (2X2) SUBMATRIX OF THE MASS MATRIX\r\nC IN A (3X3) MATRIX FOR TRANSFORMATION\r\nC\r\n      IC1 = 2 * I - 1\r\n      IRC = (IR1 - 1) * 6 + IC1\r\n      AKT(1) = AK(IRC)\r\n      AKT(2) = 0.0D0\r\n      AKT(3) = AK(IRC+1)\r\n      AKT(4) = 0.0D0\r\n      AKT(5) = 0.0D0\r\n      AKT(6) = 0.0D0\r\n      AKT(7) = AK(IRC+6)\r\n      AKT(8) = 0.0D0\r\n      AKT(9) = AK(IRC+7)\r\nC\r\nC TRANSFORM THE (3X3) MASS MATRIX\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 820\r\n      CALL GMMATD (D(IAPP) , 3, 3, 1, AKT(1) , 3, 3, 0, D(28) )\r\n      DO 810 J = 1,9\r\n      AKT(J) = D(J+27)\r\n  810 CONTINUE\r\n  820 CONTINUE\r\n      IF (ICS(I) .EQ. 0) GO TO 840\r\n      IAI = 9 * (I - 1) + 1\r\n      CALL GMMATD (AKT(1) , 3, 3, 0, D(IAI) , 3, 3, 0, D(28) )\r\n      DO 830 J = 1,9\r\n      AKT(J) = D(J+27)\r\n  830 CONTINUE\r\n  840 CONTINUE\r\nC\r\nC PLACE THE TRANSFORMED (3X3) MATRIX INTO A (6X6) MATRIX FOR\r\nC THE INSERTION ROUTINE\r\nC\r\n      J = 0\r\n      DO 850 J1 = 1,18,6\r\n      DO 850 J2 = 1,3\r\n      J = J + 1\r\n      K = J1 + J2 - 1\r\n      AKI(K) = AKT(J)\r\n  850 CONTINUE\r\nC\r\nC CALL THE INSERTION ROUTINE\r\nC\r\n      CALL SMA2B (AKI(1) , IGP(I), -1, IFMGG, 0.0D0)\r\n  900 CONTINUE\r\n      RETURN\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n  915 NOGO=1\r\n      RETURN\r\n  920 CALL MESAGE(30,37,IDEL)\r\n      GO TO 915\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mtrplt.f",
    "content": "      SUBROUTINE MTRPLT\r\nC\r\nCOMMENT.  ALL WRITE STATEMENTS WHICH HAVE BEEN COMMENTED OUT, HAVE BEEN\r\nC         LEFT IN THE PROGRAMMING FOR ANY FUTURE DEBUGGING USE.\r\nC\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC                             3-6X6 STIFFNESS MATRICES WITH RESPECT\r\nC                             TO ONE PIVOT POINT OF A TRIANGULAR PLATE\r\nC                             ELEMENT.\r\nC\r\nC         REF. FMMS-66  JUNE 23, 1969\r\nC\r\nC         CALLS FROM THIS ROUTINE ARE MADE TO\r\nC                             MTRBSC - BASIC BENDING TRI. ROUTINE.\r\nC                             TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC                             INVERD - MATRIX INVERSION ROUTINE\r\nC                             SMA2B  - INSERTION ROUTINE\r\nC                             GMMATD - GENERAL MATRIX MULITPLY AND\r\nC                                      TRANSPOSE ROUTINE\r\nC                             MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC\r\n      INTEGER            SUBSCA        ,SUBSCB        ,SUBSCC\r\n      DOUBLE PRECISION\r\n     1                   R(2,4)        ,D1(3)         ,HABC(18)\r\n     2                  ,TEMP          ,D2(3)         ,HINV\r\n     3                  ,MSUM(63)      ,IVECT         ,G(36)\r\n     4                  ,V             ,JVECT         ,E\r\n     5                  ,VV            ,KVECT         ,TITE(9)\r\n     6                  ,XSUBB         ,TEMP9         ,TJTE(36)\r\n     7                  ,XSUBC         ,PROD9         ,ARR9\r\n     8                  ,YSUBC         ,U1            ,ARRAY9\r\n     9                  ,T             ,U2            ,TEMP36(36)\r\n     T                  ,A             ,TEMP1         ,PROD12(12)\r\n     1                  ,C1            ,TEMP2         ,HQ(12)\r\n     2                  ,C2            ,L1            ,Y1\r\n     3                  ,X1            ,L2            ,Y2\r\n     4                  ,X2            ,S1            ,DETERM\r\n     5                  ,S2            ,MOUT(36)      ,S ,REQUIV(8)\r\n     6                  ,EM3           ,M6X6\r\nC\r\nC     ******************************************************************\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION\r\nC       ECPT      TRI.PLATE AND BASIC BENDING TRI.\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC     ******************************************************************\r\n      DIMENSION\r\n     1                   NECPT(100)    ,M(9)          ,V1(3)\r\n     2                  ,V2(3)         ,V3(3)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222, SPACE(2)\r\n      COMMON /SMA2IO/ DUM1(10),IFMGG,DUM2(25)\r\n      COMMON /SMA2CL/ DUM3(2), NPVT\r\n     2,                  DUMCL(7)\r\n     3,                  LINK(10)           ,NOGO\r\n      COMMON /SMA2ET/ ECPT(100)\r\n      COMMON /SMA2DP/\r\n     1                   A(81)         ,S(18)         ,HINV(36)\r\n     2                  ,TEMP9(9)      ,PROD9(9)      ,ARR9(9)\r\n     3                  ,ARRAY9(9)     ,T(9)          ,M6X6(36),DUMX(54)\r\n     4                  ,XSUBB         ,XSUBC         ,YSUBC\r\n     5                  ,E(9)          ,TEMP          ,L1\r\n     6                  ,L2            ,S1            ,S2\r\n     7                  ,C1            ,C2            ,X1\r\n     8                  ,X2            ,Y1            ,Y2\r\n     9                  ,TEMP1         ,TEMP2         ,DUMTWO(20),DETERM\r\n     T                  ,NPOINT        ,KM            ,SUBSCA\r\n     1                  ,SUBSCB        ,SUBSCC        ,NPIVOT\r\n     2                  ,THETA         ,NSUBC         ,ISING\r\n     3                  ,NPT1          ,V(2)          ,VV(2)\r\n     4                  ,IVECT(3)      ,JVECT(3)      ,KVECT(3)\r\n     5                  ,U1            ,U2            ,SINANG\r\n     6                  ,COSANG\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE\r\n     1                                 (NECPT(1),ECPT(1))\r\n     2                                 ,(PROD12(1),A(13))\r\n     3                                 ,(HABC(1),A(25))\r\n     4                                 ,(TITE(1),A(37))\r\n     5                                 ,(TJTE(1),A(46))\r\n     6                                 ,(MOUT(1),A(1))\r\n     7                                 ,(TEMP36(1),HINV(1))\r\n     8                                 ,(V1(1),ECPT(14))\r\n     9                                 ,(V2(1),ECPT(18))\r\n     T                                 ,(V3(1),ECPT(22))\r\n     1                                 ,(REQUIV(1),R(1,1))\r\n     2                                 ,(D1(1),A(1))\r\n     3                                 ,(D2(1),A(4))\r\n     4                                 ,(HQ(1),A(1))\r\nC\r\n      DATA M/ 1,2,4,   2,3,4,   3,1,4 /\r\nC\r\n      ELTEMP = ECPT(25)\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I=1,3\r\n      IF( NPVT .NE. NECPT(I+1) ) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\n      CALL MESAGE(-30,34,ECPT(1))\r\nC\r\n   20 THETA = ECPT(5) * DEGRA\r\n      SINANG = SIN( THETA )\r\n      COSANG = COS( THETA )\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK)\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\n      DO 30 I=1,8\r\n   30 REQUIV(I)=0.0D0\r\nC\r\n      DO 40 I=1,3\r\n      D2(I) = DBLE( V2(I) ) - DBLE( V1(I) )\r\n   40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) )\r\nC\r\nC     X2  GOES IN R(1,2)\r\n      R(1,2) = DSQRT ( D2(1)**2  +  D2(2)**2  +  D2(3)**2 )\r\n      IF (R(1,2).EQ.0.0D0) GO TO 400\r\n      DO 50 I=1,3\r\n   50 IVECT(I) = D2(I) / R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\n      KVECT(1) = IVECT(2) * D1(3)    -    D1(2) * IVECT(3)\r\n      KVECT(2) = IVECT(3) * D1(1)    -    D1(3) * IVECT(1)\r\n      KVECT(3) = IVECT(1) * D1(2)    -    D1(1) * IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\n      R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 )\r\n      IF (R(2,3).EQ.0.0D0) GO TO 400\r\n      DO 60 I=1,3\r\n   60 KVECT(I) = KVECT(I) / R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\n      JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3)\r\n      JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1)\r\n      JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2)\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\n      TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 )\r\n      IF (TEMP.EQ.0.0D0) GO TO 400\r\n      DO 70 I=1,3\r\n   70 JVECT(I) = JVECT(I) / TEMP\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\n      R(1,3) = D1(1) * IVECT(1)  +  D1(2) * IVECT(2) + D1(3) * IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\n      R(1,4) = (  R(1,2) + R(1,3)  ) / 3.0D0\r\n      R(2,4) = R(2,3) / 3.0D0\r\nC\r\nC\r\nC     ******************************************************************\r\nC            THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     ******************************************************************\r\nC\r\nCOMMENCE CALCULATIONS FOR ALL THREE SUBTRIANGLES\r\nC  INITIALIZE TO ZERO..\r\nC          MSUM MATRIX 7 (3X3) = 63 LONG,\r\nC          G    MATRIX 4 (3X3) = 36 LONG.\r\nC\r\n      DO 80 I=1,63\r\n   80 MSUM(I) = 0.0D0\r\n      DO 90 I=1,36\r\n   90 G(I) = 0.0D0\r\nC\r\nCHOOSE APPROPRIATE COORDINATE POINTS FOR EACH SUBTRIANGLE J = 1,2,3\r\nC\r\n      DO 210 J=1,3\r\n      KM = 3*J - 3\r\nC\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I=1,2\r\n      V(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT ( V(1)**2 + V(2)**2 )\r\n      U1 = V(1) / XSUBB\r\n      U2 = V(2) / XSUBB\r\n      XSUBC = U1 * VV(1) + U2 * VV(2)\r\n      YSUBC = U1 * VV(2) - U2 * VV(1)\r\nC\r\n      SINTH = SINANG * U1  -  COSANG * U2\r\n      COSTH = COSANG * U1  +  SINANG * U2\r\n      IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL MTRBSC\r\nC                         U\r\nC     NOW HAVE AT HAND  M    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC           -1\r\nC     ALSO H   (6X6) AT A(100) TO A(135) AND S (6X3) AT A(82) TO A(99)\r\nC\r\nC\r\nC NOTE..SUB-MATRICES FOR THE PIVOT POINT AND THE CENTROID POINT\r\nC          ARE TRANSFORMED TO ELEMENT COORDINATES AND SUMMED WITH\r\nC          THEIR CORRESPONDING SUB-MATRIX OF THE TRIANGULAR PLATE\r\nC\r\nC                                     ***           ***\r\nC                   ***               * MSUM(28...36) *\r\nC  M     I = 1,2,3    * ARE STORED IN * MSUM(37...45) *\r\nC   I3   3 = CENTROID *               * MSUM(46...54) *\r\nC                   ***               * MSUM(54...63) *\r\nC                                     ***           ***\r\nC             WHERE I DENOTES A POINT ON THE SUB-TRIANGLE, AND\r\nC                     REFERENCES GRID POINTS 1, 2, OR 3\r\nC                     ON THE TRIANGULAR PLATE\r\nC\r\nC                                     ***           ***\r\nC                   ***               * MSUM( 1... 9) *\r\nC  M     I = PIVOT PT * ARE STORED IN * MSUM(10...18) *\r\nC   IJ   J = 1,2      *               * MSUM(19...27) *\r\nC                   ***               ***           ***\r\nC             WHERE I DENOTES A POINT ON THE SUB-TRIANGLE AND\r\nC                     REFERENCES POINTS 1, 2, 3, OR 4\r\nC                     ON THE TRIANGULAR PLATE\r\nC\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC\r\n      DO 120 I=1,3\r\n      CALL GMMATD( T(1),3,3,1,  A(27*I-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC     COMPUTE POINTER TO MSUM MATRIX DESIRED.  (ZERO POINTER)\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) + 18\r\nC\r\n      DO 110 K=1,9\r\n      NSUBC  = NPOINT + K\r\n  110 MSUM(NSUBC) = MSUM(NSUBC) + PROD9(K)\r\n  120 CONTINUE\r\nC\r\nC\r\n      DO 150 K=1,2\r\n      NPOINT = KM + K\r\n      IF( M(NPOINT) .NE. NPIVOT ) GO TO 150\r\n      CALL GMMATD( T(1),3,3,1,  A(36*K-35),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE POINTER TO MSUM MATRIX (ZERO POINTER)\r\nC\r\n      NPOINT = 9 * NPIVOT - 9\r\n      DO 130 I=1,9\r\n      NSUBC = NPOINT + I\r\n  130 MSUM(NSUBC) = MSUM(NSUBC) + PROD9(I)\r\nC\r\n      CALL GMMATD(T(1),3,3,1,  A(18*K-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE ZERO POINTER TO MSUM MATRIX DESIRED\r\nC\r\n      NPOINT = KM + 3 - K\r\n      NPOINT = 9 * M(NPOINT) - 9\r\n      DO 140 I=1,9\r\n      NSUBC = NPOINT + I\r\n  140 MSUM(NSUBC) = MSUM(NSUBC) +  PROD9(I)\r\n  150 CONTINUE\r\nC\r\nC\r\nC NOTE..THE CENTROID POINT IS A DUMMY POINT SO IT MUST BE REMOVED.\r\nC          THIS IS DONE BY TRANSFERRING THE DISPLACEMENTS IN THE\r\nC          MIDDLE TO BE A DIRECT FUNCTION OF THE OTHER DISPLACEMENTS.\r\nC       THE TRANSFERENCE IS DONE THROUGH THE CREATION OF 3 (2X3)\r\nC          HABC MATRICES, EACH CORRESPONDING TO A POINT OF THE\r\nC          SUB-TRIANGLE.  EACH HABC MATRIX IS SUMMED WITH ITS\r\nC          CORRESPONDENT IN THE G MATRIX 4 (3X3) ONE FOR EACH GRID POINT\r\nC                                                AND THE CENTROID  POINT\r\nC\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1 = XSUBB - XSUBC\r\n      TEMP2 = YSUBC ** 2\r\n      L1 = DSQRT( XSUBC**2 + TEMP2 )\r\n      L2 = DSQRT( TEMP1**2 + TEMP2 )\r\n      S1 = XSUBC / L1\r\n      S2 = TEMP1 / L2\r\n      C1 = YSUBC / L1\r\n      C2 = YSUBC / L2\r\n      X1 = XSUBC / 2.0D0\r\n      Y1 = YSUBC / 2.0D0\r\n      X2 = (XSUBB + XSUBC) / 2.0D0\r\n      Y2 = Y1\r\n      HQ( 1) = -XSUBC * C1\r\n      HQ( 2) = X1 * S1 - Y1 * C1\r\n      HQ( 3) = YSUBC * S1\r\n      HQ( 4) = -3.0D0 * X1 * X1 * C1\r\n      HQ( 5) = Y1 * (XSUBC * S1 - Y1 * C1 )\r\n      HQ( 6) = 3.0D0 * Y1 * Y1 * S1\r\n      HQ( 7) = 2.0D0 * X2 * C2\r\n      HQ( 8) = X2 * S2  + Y2 * C2\r\n      HQ( 9) = YSUBC * S2\r\n      HQ(10) = 3.0D0 * X2 * X2 * C2\r\n      HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 )\r\n      HQ(12) = 3.0D0 * Y2 * Y2 * S2\r\nC\r\nC\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\nC\r\n      CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0,  PROD12(1) )\r\nC\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0,  HABC(1) )\r\nC\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT (H     ) AND (H     )    PARTITION\r\nC             PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC.\r\nC\r\n      DO 200 I=1,3\r\nC\r\nC     POINTER TO H  = 6*I-6\r\nC                 I\r\nC\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATD( HABC(6*I-5),2,3,0,  T(1),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1    ROW 1 OF H INTO ROW 1 OF G.\r\nC              ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2    ROW 1 OF H INTO ROW 2 OF G.\r\nC              ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3    ROW 1 OF H INTO ROW 3 OF G.\r\nC              ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF( J-2 ) 170,160,190\r\nC\r\n  160 NPOINT = NPOINT + 3\r\n  170 DO 180 K=1,6\r\n      NPOINT = NPOINT + 1\r\n  180 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 200\r\n  190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1)\r\n      G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2)\r\n      G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3)\r\n      G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4)\r\n      G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5)\r\n      G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6)\r\nC\r\n  200 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP FOR BASIC TRIANGLES\r\nC\r\nC\r\n  210 CONTINUE\r\nC\r\nC     ******************************************************************\r\nC\r\nCALCULATE MASS MATRIX PARTITIONS FOR WHOLE PLATE , ACCOUNTING FOR\r\nC DISPLACEMENT OF CENTER.  EXPAND PARTITIONS TO (6X6) AND\r\nC TRANSFORM TO GLOBAL COORDINATES\r\nC\r\nC\r\nC\r\n      DO 215 I = 1,36\r\n  215 TJTE(I) = 0.0D0\r\n      EM3 = DBLE(ECPT(10)) / 6.0D0 * R(1,2) * R(2,3)\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 220 I=1,9\r\n  220 E(I) = 0.0D0\r\n      DO 225 I = 1,3\r\n        NPOINT = 3 * I - 2\r\n        E(NPOINT    ) = IVECT(I)\r\n        E(NPOINT + 1) = JVECT(I)\r\n  225   E(NPOINT + 2) = KVECT(I)\r\nC\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230\r\n      CALL TRANSD( NECPT(4*NPIVOT+9), T(1) )\r\n      CALL GMMATD( T(1),3,3,1,  E( 1),3,3,0,  TITE( 1) )\r\nC\r\n      GO TO 250\r\nC\r\n  230 DO 240 K=1,9\r\n  240 TITE(K) = E(K)\r\nC\r\nC\r\nC     SOLVE NOW FOR ....\r\nC\r\nC    E                   T     T                       T\r\nC (M  ) = (M  ) - (TERM ) (M  ) - (M  )(TERM ) + (TERM )(M  )(TERM )\r\nC   IJ      IJ         I    J4      I4      J         I   44      J\r\nC\r\nC                        -1                               I=NPIVOT\r\nC WHERE... (TERM ) = (G )  (G ) ,I=NPIVOT                 J=1,2,3\r\nC               I      4     I\r\nC\r\nC                        -1\r\nC          (TERM ) = (G )  (G ) ,J=1,2,3 AS ABOVE\r\nC               J      4     J\r\nC\r\nC     AND WITH TRANSFORMATIONS....\r\nC\r\nC    G        T      E   T\r\nC (M  ) = (C ) (E)(M  )(E )(C )\r\nC   IJ      I       IJ       J\r\nC\r\nC\r\nC     COMPUTE  (TERM        )  STORE IN PROD9\r\nC                   I=NPIVOT\r\nC\r\nC                   -1\r\nC     FIRST GET (G )\r\nC                 4\r\nC\r\n  250 CONTINUE\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USES SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 )\r\nC\r\nC     CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY.\r\n      GO TO(270,260),ISING\r\n  260 CALL MESAGE(30,36,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\n  270 CALL GMMATD ( G(28),3,3,0,  G(9*NPIVOT-8),3,3,0,  PROD9(1) )\r\nC\r\nC                       T\r\nC     GET  (TERM        )(M  )  STORE IN TEMP9\r\nC               I=NPIVOT   44\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  MSUM(55),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\nC\r\nC     THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9.\r\nC\r\n      DO 390 J=1,3\r\nC\r\nC                   T     T\r\nC     (TERM        ) (M  )    STORE IN ARR9\r\nC          I=NPIVOT    J4\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  MSUM(9*J+19),3,3,1,  ARR9(1) )\r\nC\r\nC     SUBTRACT FROM (M  )\r\nC                     IJ\r\nC\r\n      NBEGIN = 9*J-9\r\n      DO 275 I = 1,36\r\n  275 M6X6(I) = 0.0D0\r\n      DO 280 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  280 MSUM(NPOINT) = MSUM(NPOINT) - ARR9(I)\r\nC\r\nC\r\nC      COMPUTE  (TERM )  STORE IN ARR9\r\nC                   J\r\nC\r\n      CALL GMMATD( G(28),3,3,0,  G(9*J-8),3,3,0,  ARR9(1) )\r\nC\r\nC\r\nC     GET  (M  )(TERM )  STORE IN ARRAY9\r\nC            I4      J\r\nC\r\n      CALL GMMATD( MSUM(9*NPIVOT+19),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1))\r\nC\r\nC     SUBTRACT FROM MIJ\r\nC\r\n      DO 290 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  290 MSUM(NPOINT) = MSUM(NPOINT) - ARRAY9(I)\r\nC\r\nC                           T\r\nC     COMPUTE  (TERM        )(M  )(TERM ) = (TEMP9)(ARR9)\r\nC                   I=NPOINT   44      J\r\nC\r\n      CALL GMMATD( TEMP9(1),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1) )\r\nC\r\nC     ADD TO M\r\nC             IJ\r\nC\r\n      DO 300 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  300 MSUM(NPOINT) = MSUM(NPOINT) + ARRAY9(I)\r\nC\r\nC\r\nC       E\r\nC     M    COMPLETE\r\nC      IJ\r\nC\r\nC     TRANSFORM NOW, AND INSERT.\r\nC\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF( NECPT(4*J+9) .EQ. 0) GO TO 330\r\n      CALL TRANSD( NECPT(4*J+9), T(1) )\r\n        CALL GMMATD( E(1),3,3,1,T(1),3,3,0,TJTE(1) )\r\n        DO 310 I = 1,3\r\n        NPOINT = I + 21\r\n        TJTE(NPOINT     ) = TJTE(I)\r\n        TJTE(NPOINT +  6) = TJTE(I + 3)\r\n  310   TJTE(NPOINT + 12) = TJTE(I + 6)\r\n        DO 320 I = 1,3\r\n        NPOINT = I + 21\r\n        TJTE(I     ) = TJTE(NPOINT)\r\n        TJTE(I +  6) = TJTE(NPOINT +  6)\r\n        TJTE(I + 12) = TJTE(NPOINT + 12)\r\n  320   TJTE(I +  3) = 0.0D0\r\nC\r\n        GO TO 350\r\nC\r\n  330 DO 340 I = 1,3\r\n        NPOINT = 6*I - 5\r\n        NPT    = NPOINT + 21\r\n        TJTE(NPOINT    ) = E(I)\r\n        TJTE(NPOINT + 1) = E(I + 3)\r\n        TJTE(NPOINT + 2) = E(I + 6)\r\n        TJTE(NPT       ) = E(I)\r\n        TJTE(NPT    + 1) = E(I + 3)\r\n  340   TJTE(NPT    + 2) = E(I + 6)\r\nC\r\nC\r\nC  EXPAND THE MSUM MATRIX (3X3) TO M6X6 MATRIX (6X6)\r\n  350 IF(NPIVOT .NE. J) GO TO 370\r\n        M6X6(1) = EM3\r\n        M6X6(8) = EM3\r\n  370 DO 380 I = 1,3\r\n        NPOINT = NBEGIN + I\r\n        M6X6(I + 14) = MSUM(NPOINT)\r\n        M6X6(I + 20) = MSUM(NPOINT + 3)\r\n  380   M6X6(I + 26) = MSUM(NPOINT + 6)\r\nC\r\nC\r\n      CALL GMMATD(M6X6(1),6,6,0,TJTE(1),6,6,0,TEMP36(1))\r\n      CALL GMMATD(TITE(1),3,3,0,TEMP36(1) ,3,6,0,MOUT( 1))\r\n      CALL GMMATD(TITE(1),3,3,0,TEMP36(19),3,6,0,MOUT(19))\r\nC\r\nC\r\n      CALL SMA2B(MOUT(1),NECPT(J+1),-1,IFMGG,0.0D0)\r\nC\r\n  390 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n  400 CALL MESAGE(30,26,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mtrxi.f",
    "content": "      SUBROUTINE MTRXI (FILE,NAME,ITEM,DUMBUF,ITEST)\r\nC\r\nC     COPIES MATRIX ITEM OF SUBSTRUCTURE NAME FROM THE SOF TO THE\r\nC     NASTRAN FILE\r\nC     ITEST VALUES RETURNED ARE\r\nC        1 - NORMAL RETURN\r\nC        2 - ITEM PSEUDO-EXISTS ONLY ON THE SOF\r\nC        3 - ITEM DOES NOT EXIST ON THE SOF\r\nC        4 - NAME DOES NOT EXIT\r\nC        5 - ITEM IS NOT ONE OF THE ALLOWABLE MATRIX ITEMS\r\nC        6 - THE NASTRAN FILE HAS BEEN PURGED\r\nC\r\n      EXTERNAL        RSHIFT, ANDF\r\n      INTEGER         RSHIFT, ANDF, TRAIL(7), FILE, BUF(1), EOF,\r\n     1                NMSBR(2), NAME(2), OLDBUF, BLKSIZ\r\n      COMMON /MACHIN/ MACH, IHALF, JHALF\r\n      COMMON /SOF   / DITDUM(6), IO, IOPBN, IOLBN, IOMODE\r\n      COMMON /SYS   / BLKSIZ\r\n      COMMON /ZZZZZZ/ NSTRN\r\n      EQUIVALENCE     (BUF(1), NSTRN)\r\n      DATA    NMSBR / 4HMTRX,4HI   /\r\n      DATA    IRD   / 1 /,   IDLE  / 0 /,  IFETCH / -1 /\r\nC\r\nC     CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES.\r\nC     KMTX, MMTX, PVEC, POVE, UPRT, HORG, UVEC, QVEC, PAPP, POAP, LMTX\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ITM = ITTYPE(ITEM)\r\n      IF (ITM .NE. 1) GO TO 1030\r\nC\r\nC     MAKE SURE BUFFER IS DOUBLE WORD ALIGNED, OPEN NASTRAN FILE, AND\r\nC     ADUST SOF BUFFER TO COINCIDE WITH GINO\r\nC     ALSO DETERMINE PLACEMENT OF MATRIX NAME IN FIRST BUFFER\r\nC\r\n      IDISP = LOCFX(BUF(IO-2)) - LOCFX(NSTRN)\r\n      IF (ANDF(IDISP,1) .NE. 0) IO = IO + 1\r\n      IOPT = 1\r\n      CALL OPEN (*1000,FILE,BUF(IO-2),IOPT)\r\n      OLDBUF = IO\r\nC\r\n      IN = 4\r\n      IF (MACH .GT. 2) GO TO 40\r\n      IN = 7\r\nCIBMD 6/93 IF (BUF(IO-2) .EQ. FILE) GO TO 40\r\nCIBMD 6/93 IO = IO + 1\r\nCIBMD 6/93 IF (BUF(IO-2) .NE. FILE) GO TO 1010\r\nC\r\nC     OPEN ITEM TO READ AND FETCH FIRST BLOCK FROM SOF\r\nC\r\n   40 CONTINUE\r\n      CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 1050\r\nC\r\nC     INSERT CORRECT MATRIX NAME INTO BUFFER\r\nC\r\n      CALL FNAME (FILE,BUF(IO+IN))\r\nC\r\nC     WRITE BLOCK ON NASTRAN FILE\r\nC\r\n      ASSIGN 50 TO IJUMP\r\n      EOF = 0\r\n   50 IF (BUF(IO+1) .LE. 0) GO TO 90\r\n      CALL WRTBLK (FILE,EOF)\r\nC\r\nC     READ NEXT SOF BLOCK\r\nC\r\n   60 CALL FNXT (IOPBN,INXT)\r\n      IF (MOD(IOPBN,2) .EQ. 1) GO TO 70\r\n      NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF)\r\n      GO TO 80\r\n   70 NEXT = ANDF(BUF(INXT),JHALF)\r\n   80 IF (NEXT .EQ. 0) GO TO 1020\r\n      IOPBN = NEXT\r\n      IOLBN = IOLBN + 1\r\n      CALL SOFIO (IRD,IOPBN,BUF(IO-2))\r\n      GO TO IJUMP, (50,100)\r\nC\r\nC     LAST DATA BLOCK HAS BEEN READ FROM SOF\r\nC\r\n   90 ITRAIL = BUF(IO+1)\r\n      BUF(IO+1) = IOLBN\r\n      IF (ITRAIL .GE. 0) GO TO 97\r\n      TRAIL(1) = FILE\r\n      DO 95 I = 2,7\r\n      TRAIL(I) = BUF(IO+BLKSIZ-7+I)\r\n   95 CONTINUE\r\n      CALL WRTTRL (TRAIL)\r\n   97 EOF = 1\r\n      CALL WRTBLK (FILE,EOF)\r\n      CALL CLOSE (FILE,1)\r\n      IF (ITRAIL .NE. 0) GO TO 120\r\nC\r\nC     TRAILER IS STORED ON NEXT SOF BLOCK - READ IT\r\nC\r\n      ASSIGN 100 TO IJUMP\r\n      GO TO 60\r\nC\r\nC     WRITE TRAILER OF NASTRAN DATA BLOCK\r\nC\r\n  100 TRAIL(1) = FILE\r\n      DO 110 I = 2,7\r\n  110 TRAIL(I) = BUF(IO+BLKSIZ-7+I)\r\n      CALL WRTTRL (TRAIL)\r\n  120 ITEST = 1\r\n      IO = OLDBUF\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\nC\r\nC     NASTRAN FILE PURGED\r\nC\r\n 1000 ITEST = 6\r\n      IOMODE = IDLE\r\n      RETURN\r\nC\r\nC     BUFFER ALIGNMENT ERROR\r\nC\r\nCIBMD 6/93 1010 CALL SOFCLS\r\nCIBMD 6/93 CALL MESAGE (-8,0,NMSBR)\r\nC\r\nC     SOF CHAINING ERROR\r\nC\r\n 1020 CALL ERRMKN (19,9)\r\n      RETURN\r\nC\r\nC     INVALID ITEM NAME\r\nC\r\n 1030 ITEST = 5\r\n      RETURN\r\nC\r\nC     ERROR IN SFETCH CALL\r\nC\r\n 1050 CALL CLOSE (FILE,1)\r\n      IO = OLDBUF\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mtrxin.f",
    "content": "      SUBROUTINE MTRXIN\r\nC\r\nC     TWO CAPABILITIES -\r\nC\r\nC     (1) TO PROVIDE DIRECT INPUT MATRICES CAPABILITY, IN DYNAMIC RIGID\r\nC         FORMATS, AND\r\nC     (2) TO CONVERT DMIG TYPE MATRICES TO NASTRAN MATRIX FORMAT.\r\nC\r\nC     REVISED  1/90 BY G.CHAN/UNISYS\r\nC     NO INTEGER ROW AND COLUMN PACKING FOR 32-BIT WORD MACHINE, AND\r\nC     REAL AND COMPLEX DMIG MATRIX GENERATION FROM DMIG INPUT CARDS\r\nC     WITH DOUBLE PRECISION DATA\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         ORF,LSHIFT,RSHIFT,ANDF\r\n      LOGICAL          PACK\r\n      REAL             X,ALPHA(4),BETA(4),BUFR(13)\r\n      DOUBLE PRECISION XD(2),BUFD(2)\r\n      DIMENSION        BUF(20),MCB(50),DMIG(2),NAM(2),BLOCK(81),DB(13),\r\n     1                 FILEI(3),BUFI(3),FILEA(7),FILEB(7),FILEC(7)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /MACHIN/  MACH,IHALF,JHALF\r\n      COMMON /BLANK /  LUSET,NOMAT(3)\r\n     1       /ZZZZZZ/  Z(1)\r\n     2       /SYSTEM/  SYSBUF,NOUT,XX(5),LOADNN\r\n     3       /TYPE  /  PRC(2),NWDS(4)\r\n     4       /ZBLPKX/  X(4),ROW\r\n     5       /NAMES /  RD,RDREW,WRT,WRTREW,CLSREW\r\n     6       /SETUP /  IFILE(6)\r\n     7       /SADDX /  NOMATS,NZ,MCBS(67)\r\n      EQUIVALENCE      (BUF(1)  ,BUFR(1) ), (X(1)    ,XD(1)   ),\r\n     1                 (FILEI(1),FILE1   ), (FILEI(2),FILE2   ),\r\n     2                 (BUFI(1) ,BUF3    ), (BUFI(2) ,BUF4    ),\r\n     3                 (NOMAT(1),NOMAT1  ), (NOMAT(2),NOMAT2  ),\r\n     4                 (FILEI(3),FILE3   ), (BUFI(3) ,BUF5    ),\r\n     5                 (NOMAT(3),NOMAT3  ), (BUFD(1) ,DB(13)  ),\r\n     6                 (BUF(1)  ,DB(2)   )\r\n      EQUIVALENCE      (MCBS( 1),FILEA(1)), (MCBS( 8),TYPALP  ),\r\n     1                 (MCBS( 9),ALPHA(1)), (MCBS(13),FILEB(1)),\r\n     2                 (MCBS(20),TYPBET  ), (MCBS(21),BETA(1) ),\r\n     3                 (MCBS(61),FILEC(1))\r\n      DATA    MCB   /  201   ,9*0   ,202   ,9*0   ,203   ,29*0  /,\r\n     1        CASECC,  MPOOL ,EQEX  ,TFPOOL                     /\r\n     2        101   ,  102   ,103   ,105                        /,\r\n     3        SCR1  ,  SCR2  ,SCR3  ,SCR4  ,SCR5  ,SCR6  ,SCR7  /\r\n     4        301   ,  302   ,303   ,304   ,305   ,306   ,307   /,\r\n     5        BLOCK /  81*0         /,\r\n     6        NAM   /  4HMTRX,4HIN  /,\r\n     7        DMIG  /  114   ,1     /,\r\n     8        NFILES/  21           /,\r\n     9        IMAT1 ,  IMAT2 ,IMAT3 ,ITF /  139,   141,  143, 15/\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      BUF1  = KORSZ(Z) - SYSBUF - 2\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      NOMAT1= -1\r\n      NOMAT2= -1\r\n      NOMAT3= -1\r\n      MASK16= JHALF\r\nC\r\nC     IF MACHINE IS MORE THEN 32 BITS PER WORD, WE USE PACKING LOGIC\r\nC     OTHERWISE, WE DO NOT PACK ROW AND COLUMN INDICES INTO ONE WORD\r\nC\r\n      PACK  = .FALSE.\r\n      IF (IHALF .GT. 16) PACK = .TRUE.\r\n      DO 12 I = 1,NFILES,10\r\n      J1 = I + 1\r\n      JN = I + 9\r\n      DO 11 J = J1,JN\r\n      MCB(J)  = 0\r\n   11 CONTINUE\r\n   12 CONTINUE\r\n      TFSET   = 0\r\n      TYPALP  = 1\r\n      ALPHA(1)= 1.0\r\n      TYPBET  = 1\r\n      BETA(1) = 1.0\r\n      NOGO    = 0\r\nC\r\nC     OPEN MPOOL. IF PURGED, SET FLAG.\r\nC\r\n      FILE   = MPOOL\r\n      NOMPOO = 0\r\n      NODMIG = 0\r\n      CALL PRELOC (*30,Z(BUF1),MPOOL)\r\n      NOMPOO = 1\r\n      CALL LOCATE (*30,Z(BUF1),DMIG,FLAG)\r\n      NODMIG = 1\r\nC\r\nC     READ CASE CONTROL RECORD.\r\nC     SET NAMES OF REQUESTED MATRICES.\r\nC     IF CASE CONTROL IS PURGED, SET NAMES OF REQUESTED MATRICES EQUAL\r\nC     NAMES OF OUTPUT DATA BLOCKS.\r\nC\r\n   30 FILE = CASECC\r\n      CALL OPEN (*90,CASECC,Z(BUF2),RDREW)\r\n      CALL FWDREC (*680,CASECC)\r\n      CALL READ (*650,*50,CASECC,Z,BUF2,1,FLAG)\r\n      CALL MESAGE (-8,0,NAM)\r\n   50 CONTINUE\r\n      CALL CLOSE (CASECC,CLSREW)\r\n      TFSET = Z(ITF)\r\n      IF (Z(IMAT1) .EQ. 0) GO TO 70\r\n      NOMAT1 = 1\r\n      MCB(8) = Z(IMAT1  )\r\n      MCB(9) = Z(IMAT1+1)\r\n   70 IF (Z(IMAT2) .EQ. 0) GO TO 80\r\n      NOMAT2  = 1\r\n      MCB(18) = Z(IMAT2  )\r\n      MCB(19) = Z(IMAT2+1)\r\n   80 IF (Z(IMAT3) .EQ. 0) GO TO 110\r\n      NOMAT3  = 1\r\n      MCB(28) = Z(IMAT3  )\r\n      MCB(29) = Z(IMAT3+1)\r\n      GO TO 110\r\n   90 DO 100 I = 1,21,10\r\n      MCB(31)  = MCB(I)\r\n      CALL RDTRL (MCB(31))\r\n      IF (MCB(31) .EQ. MCB(I)) CALL FNAME (MCB(31),MCB(I+7))\r\n  100 CONTINUE\r\n      GO TO 290\r\nC\r\nC     IF TRANSFER FUNCTION MATRICES EXIST, BUILD THEM IN MATRIX FORMAT.\r\nC     WRITE THEM ON 201,202,203 IF NO DMIG MATRICES TO ADD, OTHERWISE,\r\nC     WRITE THEM ON SCR5,SCR6,SCR7.\r\nC     IF NO TRANSFER FUNCTION MATRICES AND NO DMIG MATRICES, EXIT.\r\nC\r\n  110 IF (NOMAT1+NOMAT2+NOMAT3 .EQ. -3) GO TO 114\r\n      IF (NODMIG) 116,630,116\r\n  114 NODMIG = 0\r\n  116 IF (NODMIG.EQ.0 .AND. TFSET.EQ.0) GO TO 650\r\n      IF (TFSET .EQ. 0) GO TO 290\r\n      FILE1 = SCR5\r\nC\r\nC     TEST FOR PURGED OUTPUT DATA BLOCKS.\r\nC\r\n      DO 102 I = 1,21,10\r\n  102 CALL RDTRL (MCB(I))\r\n      IF (NOMAT1 .EQ. -1) FILE1 = MCB( 1)\r\n      FILE2 = SCR7\r\n      IF (NOMAT3 .EQ. -1) FILE2 = MCB(21)\r\n      FILE3 = SCR6\r\n      IF (NOMAT2 .EQ. -1) FILE3 = MCB(11)\r\n      NOMAT1 = 1\r\n      NOMAT2 = 1\r\n      NOMAT3 = 1\r\nC\r\nC     OPEN TFPOOL AND POSITION TO REQUESTED SET.\r\nC     IF SET NOT IN TFPOOL, QUEUE MESSAGE AND TURN ON NOGO FLAG.\r\nC\r\n      FILE = TFPOOL\r\n      CALL OPEN (*140,TFPOOL,Z(BUF2),RDREW)\r\n  130 CALL FWDREC (*140,TFPOOL)\r\n      CALL READ (*140,*140,TFPOOL,BUF,1,0,FLAG)\r\n      IF (BUF(1) .EQ. TFSET) GO TO 150\r\n      GO TO 130\r\n  140 NOGO = 1\r\n      BUF(1) = TFSET\r\n      BUF(2) = 0\r\n      CALL MESAGE (30,74,BUF)\r\n      IF (DMIG(1) .EQ. TFSET) GO TO 150\r\n      CALL CLOSE (TFPOOL,CLSREW)\r\n      GO TO 290\r\nC\r\nC     OPEN OUTPUT FILES. WRITE HEADER RECORDS.\r\nC\r\n  150 DO 160 I = 1,3\r\nC\r\nC     CHECK FOR PURGED OUTPUT DATA BLOCKS.\r\nC\r\n      IF (FILEI(I) .GT. 0) GO TO 152\r\n      NOMAT(I) = -1\r\n      GO TO 160\r\n  152 FILE = FILEI(I)\r\n      BUFX = BUFI(I)\r\n      CALL GOPEN (FILE,Z(BUFX),WRTREW)\r\n  160 CONTINUE\r\nC\r\nC     PACK MATRICES ONTO OUTPUT FILES.\r\nC\r\n      NCOL = LUSET\r\n      ICOL = 1\r\n      JSW  = 0\r\n      ISW  = 0\r\n      I45  = 5\r\n      IF (PACK) I45 = 4\r\n      I12  = I45 - 3\r\n  180 DO 190 I = 1,3\r\n      IF (FILEI(I) .LE. 0) GO TO 190\r\n      CALL BLDPK (1,1,FILEI(I),BLOCK(20*I-19),1)\r\n  190 CONTINUE\r\n      IF (ISW .NE. 0) GO TO 210\r\n  200 IF (JSW .NE. 0) GO TO 240\r\n      CALL READ (*680,*260,TFPOOL,BUF,I45,0,FLAG)\r\n      ISW = 1\r\n      COL = BUF(1)\r\n      ROW = BUF(2)\r\n      IF (.NOT.PACK) GO TO 210\r\n      COL = RSHIFT(BUF(1),IHALF)\r\n      ROW = ANDF(BUF(1),MASK16)\r\n  210 IF (COL .GT. ICOL) GO TO 240\r\n      DO 230 I = 1,3\r\n      IF (FILEI(I) .LE. 0) GO TO 230\r\n      CALL BLDPKI (BUF(I+I12),ROW,FILEI(I),BLOCK(20*I-19))\r\n  230 CONTINUE\r\n      ISW = 0\r\n      GO TO 200\r\n  240 DO 250 I = 1,3\r\n      IF (FILEI(I) .LE. 0) GO TO 250\r\n      CALL BLDPKN (FILEI(I),BLOCK(20*I-19),BLOCK(7*I+54))\r\n  250 CONTINUE\r\n      ICOL = ICOL + 1\r\n      IF (ICOL .LE. NCOL) GO TO 180\r\n      GO TO 270\r\n  260 JSW = 1\r\n      GO TO 240\r\nC\r\nC     CLOSE FILES AND WRITE TRAILERS. IF NO DMIG MATRICES, RETURN\r\nC\r\n  270 CALL CLOSE (TFPOOL,CLSREW)\r\n      DO 280 I = 1,3\r\n      IF (FILEI(I) .LE. 0) GO TO 280\r\n      I7 = 7*I\r\n      BLOCK(I7+54) = FILEI(I)\r\n      BLOCK(I7+56) = NCOL\r\n      BLOCK(I7+57) = 1\r\n      BLOCK(I7+58) = 1\r\n      CALL CLOSE  (FILEI(I),1)\r\n      CALL WRTTRL (BLOCK(I7+54))\r\n  280 CONTINUE\r\n      IF (NODMIG .EQ. 0) GO TO 650\r\nC\r\nC     READ EQUIVALENCE TABLE INTO CORE\r\nC\r\n  290 FILE = EQEX\r\n      CALL GOPEN (EQEX,Z(BUF2),0)\r\n      CALL SKPREC (EQEX,1)\r\n      CALL READ (*680,*300,EQEX,Z,BUF2,1,NEQEX)\r\n      CALL MESAGE (-8,0,NAM)\r\n  300 CALL CLOSE (EQEX,CLSREW)\r\n      KN = NEQEX/2\r\n      NN = NEQEX - 1\r\n      DO 310 I = 1,NN,2\r\n      Z(I+1) = Z(I+1)/10\r\n  310 CONTINUE\r\nC\r\nC     READ MATRIX HEADER INFORMATION.\r\nC     LOOK UP MATRIX NAME IN NAME LIST. IF ABSENT, SKIP MATRIX.\r\nC\r\n  320 CALL READ (*680,*630,MPOOL,BUF,9,0,FLAG)\r\nC\r\nC     BUF(5)= INPUT MATRIX TYPE, BUF(6)= OUTOUT MATRIX TYPE\r\nC     BUF(1) AND BUF(2) ARE MATRIX NAME FROM DMIG CARDS.\r\nC\r\n      K    = BUF(6)\r\n      PREC = PRC(K)\r\n      K    = BUF(5)\r\n      IPRC = MOD(K,2)\r\n      NWD  = NWDS(K)\r\n      NWD1 = NWD + 1\r\n      I11  = 11\r\n      IF (PACK) GO TO 325\r\n      I11  = 10\r\n      NWD1 = NWD + 2\r\n  325 I10  = I11 - 1\r\n      DO 330 I = 1,NFILES,10\r\n      IF (MCB(I+7).EQ.BUF(1) .AND. MCB(I+8).EQ.BUF(2)) GO TO 360\r\n  330 CONTINUE\r\n  340 CALL FREAD (MPOOL,BUF,2,0)\r\n      IF (BUF(1) .EQ. -1) GO TO 320\r\n  350 CALL FREAD (MPOOL,BUF,2,0)\r\n      IF (BUF(1) .EQ. -1) GO TO 340\r\n      CALL FREAD (MPOOL,BUF,-NWD,0)\r\n      GO TO 350\r\nC\r\nC     OPEN SCRATCH FILE. SET POINTERS.\r\nC\r\n  360 IPTR = I\r\n      FILE = MCB(IPTR)\r\n      MCB(IPTR+2) = LUSET\r\n      MCB(IPTR+3) = BUF(4)\r\n      MCB(IPTR+4) = BUF(6)\r\n      MCB(IPTR+9) = 1\r\n      IQQ = (IPTR-1)/10\r\n      NOMAT(IQQ+1) = +1\r\n      ISW = 0\r\n      IMTRX = NEQEX + 1\r\n      I = IMTRX\r\nC\r\nC\r\n      CALL OPEN (*670,SCR1,Z(BUF2),WRTREW)\r\nC\r\nC     READ COLUMN GRID AND COMPONENT, AND CHECK DUPLICATE.\r\nC     CONVERT GRID AND COMPONENT TO SIL NO.\r\nC\r\nC     REMOVE DUPLICATE CHECK ADDED HERE IN 91 VERSION. CHECKING SHOULD\r\nC     BE DONE EARLY IN IFP MODULE, AND NOT HERE. REMOVED ALSO NOGOX AND\r\nC     ITS ASSOCIATED LINES.   3/93\r\nC\r\n  370 CALL FREAD (MPOOL,BUF(10),2,0)\r\n      IF (BUF(10) .EQ. -1) GO TO 450\r\nC\r\nC\r\n      ASSIGN 380 TO RET\r\n      GO TO 710\r\n  380 COL = Z(2*K)\r\n      IF (BUF(11) .NE. 0) COL = COL + BUF(11) - 1\r\n      IF (PACK) COL = LSHIFT(COL,IHALF)\r\nC\r\nC     READ A COLUMN OF THE MATRIX.\r\nC     STORE IN CORE OR ON SCRATCH FILE IF TOO BIG FOR CORE.\r\nC\r\n  390 CALL FREAD (MPOOL,BUF(10),2,0)\r\n      IF (BUF(10) .EQ. -1) GO TO 370\r\n      ASSIGN 400 TO RET\r\n      GO TO 710\r\n  400 ROW = Z(2*K)\r\n      IF (BUF(11) .NE. 0) ROW = ROW + BUF(11) - 1\r\n      BUF(11) = ROW\r\n      BUF(10) = COL\r\n      IF (PACK) BUF(11) = ROW + COL\r\n      CALL FREAD (MPOOL,BUF(12),NWD,0)\r\n      IF (ISW .EQ. 0) GO TO 420\r\n  410 CALL WRITE (SCR1,BUF(I11),NWD1,0)\r\n      GO TO 390\r\n  420 IF (I+NWD1 .LT. BUF2) GO TO 430\r\n      ISW = 1\r\n      CALL WRITE (SCR1,Z(IMTRX),I-IMTRX,0)\r\n      GO TO 410\r\n  430 DO 440 J = 1,NWD1\r\n      Z(I) = BUF(J+I10)\r\n  440 I = I + 1\r\n      GO TO 390\r\nC\r\nC     SORT MATRIX.\r\nC\r\n  450 IF (ISW   .EQ. 0) GO TO 460\r\n      CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      CALL OPEN  (*670,SCR1,Z(BUF2),RDREW)\r\n      IFILE(1) = SCR2\r\n      IFILE(2) = SCR3\r\n      IFILE(3) = SCR4\r\n      IF (     PACK) CALL SORTI  (SCR1,0,NWD1,1,Z(IMTRX),BUF2-IMTRX)\r\n      IF (.NOT.PACK) CALL SORTI2 (SCR1,0,NWD1,1,Z(IMTRX),BUF2-IMTRX)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      GO TO 470\r\n  460 N = I - IMTRX\r\n      NMTRX = I - NWD1\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      IF (     PACK) CALL SORTI  (0,0,NWD1,1,Z(IMTRX),N)\r\n      IF (.NOT.PACK) CALL SORTI2 (0,0,NWD1,1,Z(IMTRX),N)\r\nC\r\nC     OPEN OUTPUT FILE. WRITE HEADER RECORD\r\nC     IF SORTED MATRIX NOT IN CORE, OPEN FILE WITH MATRIX.\r\nC\r\n  470 IF (TFSET .NE. 0) FILE = SCR1\r\n      CALL OPEN  (*670,FILE,Z(BUF2),WRTREW)\r\n      CALL FNAME (FILE,BUF(19))\r\n      CALL WRITE (FILE,BUF(19),2,1)\r\n      IF (ISW .NE. 0) CALL OPEN (*670,IFILE(6),Z(BUF3),RDREW)\r\nC\r\nC     PACK MATRIX ONTO OUTPUT FILE.\r\nC\r\n      NCOL = LUSET\r\n      J    = IMTRX\r\n      ICOL = 1\r\n      JSW  = 0\r\n  490 CALL BLDPK (BUF(6),BUF(6),FILE,0,0)\r\n      IF (JSW .NE.   0) GO TO 540\r\n  500 IF (J .GT. NMTRX) GO TO 570\r\n      IF (ISW .EQ.   0) GO TO 510\r\n      CALL READ (*680,*580,IFILE(6),BUF(I11),NWD1,0,FLAG)\r\n      GO TO 530\r\n  510 DO 520 K = 1,NWD1\r\n      BUF(K+I10) = Z(J)\r\n  520 J   = J + 1\r\n  530 COL = BUF(10)\r\n      ROW = BUF(11)\r\n      IF (.NOT.PACK) GO TO 540\r\n      COL = RSHIFT(BUF(11),IHALF)\r\n      ROW = ANDF(BUF(11),MASK16)\r\n  540 IF (COL .GT. ICOL) GO TO 590\r\n      JSW = 0\r\n      IF (PREC .EQ. 2) GO TO 550\r\n      IF (IPRC .EQ. 0) GO TO 545\r\n      X(1) = BUFR(12)\r\n      X(2) = BUFR(13)\r\n      GO TO 560\r\n  545 X(1) = BUFD(1)\r\n      X(2) = BUFD(2)\r\n      GO TO 560\r\n  550 IF (IPRC .EQ. 0) GO TO 555\r\n      XD(1) = BUFR(12)\r\n      XD(2) = BUFR(13)\r\n      GO TO 560\r\n  555 XD(1) = BUFD(1)\r\n      XD(2) = BUFD(2)\r\n  560 CALL ZBLPKI\r\n      GO TO 500\r\n  570 CALL BLDPKN (FILE,0,MCB(IPTR))\r\n      ICOL = ICOL + 1\r\n      IF (ICOL .LE. NCOL) GO TO 490\r\n      GO TO 600\r\n  580 J = NMTRX + 1\r\n      GO TO 570\r\n  590 JSW = 1\r\n      GO TO 570\r\n  600 CALL CLOSE (FILE,CLSREW)\r\n      IF (ISW .NE. 0) CALL CLOSE (IFILE(6),CLSREW)\r\n      CALL WRTTRL (MCB(IPTR))\r\nC\r\nC     IF TRANSFER FUNCTION MATRICES ARE TO BE ADDED, CALL MATRIX ADD\r\nC     ROUTINE THEN RETURN TO READ NEXT MATRIX IN THE MATRIX POOL.\r\nC\r\n      IF (TFSET .EQ. 0) GO TO 320\r\n      J = 2\r\n      IF (IPTR .EQ.  1) J = 1\r\n      IF (IPTR .EQ. 11) J = 3\r\n      DO 620 I = 1,7\r\n      K = IPTR + I - 1\r\n      FILEA(I) = MCB(K)\r\n      K = 7*J + I\r\n      FILEB(I) = BLOCK(K+53)\r\n  620 FILEC(I) = 0\r\n      FILEA(1) = SCR1\r\n      FILEC(1) = MCB(IPTR)\r\n      FILEC(2) = NCOL\r\n      FILEC(3) = NCOL\r\n      FILEC(4) = FILEA(4)\r\n      FILEC(5) = FILEA(5)\r\n      NZ = BUF1 - IMTRX\r\n      NOMATS = 2\r\n      K = ORF(IMTRX,1)\r\n      CALL SADD (Z(K),Z(K))\r\n      CALL WRTTRL (FILEC)\r\n      GO TO 320\r\nC\r\nC     TEST FOR ALL REQUESTED MATRICES FOUND.\r\nC\r\n  630 DO 640 I = 1,NFILES,10\r\n      IF (MCB(I+7).EQ.0 .OR. MCB(I+9).NE.0) GO TO 640\r\n      CALL MESAGE (30,70,MCB(I+7))\r\n      NOGO = 1\r\n  640 CONTINUE\r\n  650 IF (NOMPOO .NE. 0) CALL CLOSE (MPOOL,CLSREW)\r\n      IF (NOGO   .NE. 0) CALL MESAGE (-61,0,NAM)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  670 N = -1\r\n      GO TO 700\r\n  680 N = -2\r\n  700 CALL MESAGE (N,FILE,NAM)\r\nC\r\nC     BINARY SEARCH ROUTINE\r\nC\r\n  710 KLO = 1\r\n      KHI = KN\r\n  720 K = (KLO+KHI+1)/2\r\n  730 IF (BUF(10)-Z(2*K-1)) 740,810,750\r\n  740 KHI = K\r\n      GO TO 760\r\n  750 KLO = K\r\n  760 IF (KHI-KLO-1) 800,770,720\r\n  770 IF (K.EQ.KLO) GO TO 780\r\n      K = KLO\r\n      GO TO 790\r\n  780 K = KHI\r\n  790 KLO = KHI\r\n      GO TO 730\r\n  800 NOGO = 1\r\n      BUF(11) = 0\r\n  810 GO TO RET, (380,400)\r\n      END\r\n"
  },
  {
    "path": "mis/mtrxo.f",
    "content": "      SUBROUTINE MTRXO (FILE,NAME,ITEM,DUMBUF,ITEST)\r\nC\r\nC     COPIES MATRIX ITEM OF SUBSTRUCTURE NAME FROM THE NASTRAN FILE\r\nC     TO THE SOF\r\nC     ITEST VALUES RETURNED ARE\r\nC        1 - ITEM ALREADY EXISTS ON THE SOF\r\nC        2 - THE ITEM WAS PESUDO WRITTEN\r\nC        3 - NORMAL RETURN\r\nC        4 - NAME DOES NOT EXIST\r\nC        5 - ITEM IS NOT ONE OF THE ALLOWABLE MATIX ITEMS\r\nC        6 - NASTRAN FILE HAS BEEN PURGED\r\nC\r\n      EXTERNAL        LSHIFT,ORF,ANDF\r\n      LOGICAL         MDIUP\r\n      INTEGER         NMSBR(2),BUF(1),FILE,TRAIL(7),OLDBUF,NAME(2),\r\n     1                BLKSIZ,FIRST,ORF,ANDF\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /SOF   / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,\r\n     1                IOITCD,IOBLK,SOFDUM(20),MDIUP\r\n      COMMON /SYSTEM/ NBUF,NOUT\r\n      COMMON /SYS   / BLKSIZ\r\n      COMMON /ZZZZZZ/ NSTRN\r\n      EQUIVALENCE     (BUF(1),NSTRN)\r\n      DATA    NMSBR / 4HMTRX, 4HO   /\r\n      DATA    IWRT  / 2 /\r\n      DATA    IFETCH/ -2/\r\n      DATA    IDLE  / 0 /\r\nC\r\nC     CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES.\r\nC     KMTX, MMTX, PVEC, POVE, UPRT, HORG, UVEC, QVEC, PAPP, POAP, LMTX\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ITM = ITTYPE(ITEM)\r\n      IF (ITM  .NE. 1) GO TO 1030\r\n      IF (FILE .GT. 0) GO TO 20\r\nC\r\nC     THE MATRIX ITEM IS TO BE PESUDO WRITTEN\r\nC\r\n      ITEST = 2\r\n      CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST)\r\n      GO TO 100\r\nC\r\nC     CHECK IF NASTRAN FILE HAS BEEN PURGED\r\nC\r\n   20 TRAIL(1) = FILE\r\n      CALL RDTRL (TRAIL)\r\n      IF (TRAIL(1) .LE. 0) GO TO 1020\r\nC\r\nC     OPEN ITEM TO WRITE AND FETCH FIRST BLOCK FOR SOF\r\nC\r\n      ITEST = 3\r\n      CALL SFETCH (NAME(1),ITEM,IFETCH,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 100\r\nC\r\nC     OPEN NASTRAN FILE\r\nC     MAKE SURE BUFFER IS  DOUBLE WORD ALIGNED.\r\nC\r\n      IDISP = LOCFX(BUF(IO-2)) - LOCFX(NSTRN)\r\n      IF (ANDF(IDISP,1) .NE. 0) IO = IO + 1\r\n      IOPT = 0\r\n      CALL OPEN (*1020,FILE,BUF(IO-2),IOPT)\r\nC\r\nC     ADJUST SOF BUFFER TO COINCIDE WITH GINO BUFFER\r\nC\r\n      OLDBUF = IO\r\nC\r\nCIBMD 6/93 IF (MACH .GT. 2) GO TO 50\r\nCIBMD 6/93 IF (BUF(IO-2) .EQ. FILE) GO TO 50\r\nCIBMD 6/93 IO = IO + 1\r\nCIBMD 6/93 IF (BUF(IO-2) .NE. FILE) GO TO 1000\r\nC\r\nC     BEGIN COPYING DATA TO SOF\r\nC\r\nC     FIRST CHECK IF CALL TO OPEN OBTAINED ONLY BLOCK IN FILE\r\nC\r\n   50 FIRST = 1\r\n      CALL RDBLK (*70,FILE,FIRST,LEFT)\r\n      FIRST = 0\r\nC\r\nC     WRITE OUT BLOCK IN BUFFER TO SOF AND OBTAIN A FREE SOF BLOCK\r\nC\r\n   60 CALL SOFIO (IWRT,IOPBN,BUF(IO-2))\r\n      CALL GETBLK (IOPBN,J)\r\n      IF (J .EQ. -1) GO TO 120\r\n      IOPBN = J\r\n      IOLBN = IOLBN + 1\r\nC\r\nC     OBTAIN A NEW BLOCK FROM THE GINO FILE\r\nC\r\n      CALL RDBLK (*70,FILE,FIRST,LEFT)\r\n      GO TO 60\r\nC\r\nC     THE LAST BUFFER OF THE GINO FILE HAS BEEN FOUND - DETERMINE\r\nC     IF SUFFICIENT SPACE IN BUFFER REMAINS FOR TRAILER\r\nC\r\n   70 CONTINUE\r\n      IF (LEFT .GE. 6) GO TO 80\r\nC\r\nC     INSUFFICIENT SPACE - OBTAIN NEW SOF BLOCK\r\nC     SET BLOCK NUMBER OF CURRENT BLOCK TO ZERO TO INDICATE TRAILER\r\nC     IS STORED IN NEXT BLOCK\r\nC\r\n      BUF(IO+1) = 0\r\n      CALL SOFIO (IWRT,IOPBN,BUF(IO-2))\r\n      CALL GETBLK (IOPBN,J)\r\n      IF (J .EQ. -1) GO TO 120\r\n      IOPBN = J\r\n      IOLBN = IOLBN + 1\r\nC\r\nC     STORE TRAILER IN LAST SIX WORDS OF BLOCK\r\nC     SET BLOCK NUMBER NEGATIVE TO INDICATE LAST BLOCK AND\r\nC     WRITE OUT FINAL BLOCK TO SOF\r\nC\r\n   80 DO 90 I = 2,7\r\n   90 BUF(IO+BLKSIZ-7+I) = TRAIL(I)\r\n      BUF(IO+1) = -IOLBN\r\n      CALL SOFIO (IWRT,IOPBN,BUF(IO-2))\r\nC\r\nC     CLOSE FILE AND UPDATE MDI\r\nC\r\n      CALL CLOSE (FILE,1)\r\n      CALL FMDI (IOSIND,IMDI)\r\n      BUF(IMDI+IOITCD) = ORF(ANDF(IOBLK,JHALF),LSHIFT(IOLBN,IHALF))\r\n      MDIUP = .TRUE.\r\nC\r\nC     RETURN\r\nC\r\n      ITEST  = 3\r\n      IO     = OLDBUF\r\n      IOMODE = IDLE\r\n  100 RETURN\r\nC\r\nC     THERE ARE NO MORE FREE BLOCKS ON THE SOF.\r\nC     RETURN THE BLOCKS THAT HAVE BEEN USED SO FAR BY THE ITEM BEING\r\nC     WRITTEN, CLOSE THE SOF AND ISSUE A FATAL MESSAGE\r\nC\r\n  120 CALL RETBLK (IOBLK)\r\n      CALL SOFCLS\r\n      GO TO 1010\r\nC\r\nC     ERROR RETURNS\r\nC\r\nC\r\nC     BUFFER ALIGNMENT ERROR\r\nC\r\nCIBMD 6/93 1000 CALL SOFCLS\r\nCIBMD 6/93      CALL MESAGE (-8,0,NMSBR)\r\nCIBMD 6/93      GO TO 100\r\nC\r\nC     NO MORE FREE BLOCKS ON THE SOF\r\nC\r\n 1010 WRITE  (NOUT,1011) UFM\r\n 1011 FORMAT (A23,' 6223, THERE ARE NO MORE FREE BLOCKS AVAILABLE ON ',\r\n     1       'THE SOF.')\r\n      CALL MESAGE (-37,0,NMSBR)\r\nC\r\nC     GINO FILE PURGED\r\nC\r\n 1020 ITEST = 6\r\n      GO TO 100\r\nC\r\nC     INVALID ITEM NAME\r\nC\r\n 1030 ITEST = 5\r\n      GO TO 100\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/mxcid.f",
    "content": "      SUBROUTINE MXCID (*,Z,MSET,MSZE,NWDS,USET,GPL,SIL,BUF1)\r\nC\r\nC     THIS SUBROUTINE CREATES AN ARRAY AT Z(1) OF LENGTH MSZE*NWDS\r\nC     WHICH CONTAINS THE EXTERNAL ID*10 + COMPONENT AT Z(1,M) FOR\r\nC     EACH DEGREE OF FREEDOM BELONGING TO SET -MSET-.\r\nC\r\nC     OPEN CORE IS Z(1) TO Z(BUF1-1).   TWO  BUFFERS NEEDED.\r\nC\r\nC     NONSTANDARD RETURN IF TASK NOT COMPLETED.\r\nC\r\nC     IF THIS IS A SUBSTRUCTURING PROBLEM, MXCIDS SHOULD BE CALLED\r\nC     INSTEAD\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,ANDF,ORF\r\n      INTEGER         FNAM(2),NAME(2),X(7),Z(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /SYSTEM/ NBUFSZ,KOUTP\r\n      COMMON /NAMES / KRD,KRDRW,KWR,KWRRW, KCLRW,KCL,KWEOF\r\n      COMMON /BITPOS/ MASK2(32),HSET(32)\r\n      COMMON /TWO   / ITWO(32)\r\n      DATA    NSET  / 20   /\r\n      DATA    NAME  , NONE / 4HMXCI,4HD   , 4H (NO  /\r\nC\r\nC     ALLOCATE CORE - CHECK DATA FILE AVAILABILITY\r\nC\r\n      BUF2 = BUF1 + NBUFSZ\r\n      IF (NWDS .LE. 0) NWDS = 1\r\n      LGP  = MSZE*NWDS + 1\r\n      X(1) = SIL\r\n      CALL FNAME (SIL,FNAM)\r\n      IF (FNAM(1) .EQ. NONE) GO TO 220\r\n      CALL RDTRL (X)\r\n      NGP = X(2)\r\n      LSIL= LGP + NGP\r\nC\r\nC     SEVEN WORDS NEEDED IF SIL AND USET OUT OF CORE\r\nC\r\n      IF (LSIL .GT. BUF1-7) GO TO 260\r\nC\r\nC     DETERMINE IF SIL (AND USET) FIT IN CORE\r\nC\r\n      LUSET = LSIL + NGP\r\n      X(1)  = USET\r\n      CALL FNAME (USET,FNAM)\r\n      IF (FNAM(1) .EQ. NONE) GO TO 220\r\n      CALL RDTRL (X)\r\n      NDOF = X(3)\r\n      L = ORF(LSHIFT(X(4),16),X(5))\r\nC\r\n      IF (LUSET+NDOF .GT. BUF1) LUSET = 0\r\n      IF (LUSET .GT. BUF1) LSIL = 0\r\nC\r\nC     CHECK SET REQUEST\r\nC\r\n      DO 10 ISET = 1,NSET\r\n      IF (HSET(ISET) .EQ. MSET) GO TO 20\r\n   10 CONTINUE\r\n       GO TO 240\r\n   20 CONTINUE\r\n      ISET = MASK2(ISET)\r\n      ISET = ITWO(ISET)\r\n      IF (ANDF(L,ISET) .EQ. 0) GO TO 240\r\nC\r\nC     LOAD GPL INTO CORE\r\nC\r\n      X(1) = GPL\r\n      CALL OPEN (*220,GPL,Z(BUF2),KRDRW)\r\n      CALL FREAD (GPL,0,0,1)\r\n      CALL FREAD (GPL,Z(LGP),NGP,0)\r\n      CALL CLOSE (GPL,KCL)\r\n      X(1) = SIL\r\n      CALL GOPEN (SIL,Z(BUF1),KRDRW)\r\n      CALL GOPEN (USET,Z(BUF2),KRDRW)\r\nC\r\nC     LOAD SIL AND USET IF POSSIBLE\r\nC\r\n      IF (LSIL .EQ. 0) GO TO 30\r\n      CALL FREAD (SIL,Z(LSIL),NGP,0)\r\n      CALL CLOSE (SIL,KCL)\r\n      SIL1 = Z(LSIL)\r\n      PSIL = LSIL + 1\r\n      I = NGP - 1\r\n      GO TO 40\r\n   30 CALL FREAD (SIL,SIL1,1,0)\r\n      I = 1\r\n      PSIL = LGP + NGP\r\n   40 IF (LUSET .EQ. 0) GO TO 50\r\n      CALL FREAD (USET,Z(LUSET),NDOF,0)\r\n      CALL CLOSE (USET,KCL)\r\n      PUSET = LUSET\r\n   50 IF (LUSET .EQ. 0) PUSET = PSIL + I\r\nC\r\nC     PSIL POINTS SECOND SIL ENTRY IF SIL IN CORE, ELSE LOCATION TO USE\r\nC     PUSET POINTS TO FIRST WORD USET, ELSE LOCATION IN Z TO USE\r\nC     LSIL, LUSET ARE ZERO IF FILES NOT IN CORE.\r\nC     LOOP ON NUMBER GRID POINTS - EXIT WHEN MSIZE ACHIEVED.\r\nC\r\n      MCOUNT = 1\r\nC\r\n      DO  130 LLL = 1,NGP\r\n      IF (LLL .EQ. NGP) GO TO 60\r\n      IF (LSIL.NE.   0) GO TO 70\r\n      CALL FREAD (SIL,Z(PSIL),1,0)\r\n      GO TO 70\r\n   60 SIL2 = NDOF + 1\r\n      GO TO 80\r\n   70 SIL2 = Z(PSIL)\r\n      IF (LSIL .NE. 0) PSIL = PSIL + 1\r\n   80 NDF = SIL2 - SIL1\r\n      IF (NDF.LT.1 .OR. NDF.GT.6) GO TO 240\r\nC\r\nC     GET NDF WORDS FROM USET\r\nC\r\n      IF (LUSET .EQ. 0) CALL FREAD (USET,Z(PUSET),NDF,0)\r\nC\r\nC     DETERMINE IF IN THE SET\r\nC\r\n      J = PUSET\r\n      K = J + NDF - 1\r\n  100 CONTINUE\r\n      DO 110 I = J,K\r\n      IF (ANDF(Z(I),ISET) .NE. 0) GO TO 120\r\n  110 CONTINUE\r\n       GO TO 125\r\nC\r\nC     LOCATED A POINT IN THE SET\r\nC\r\n  120 CONTINUE\r\n      LL = I - PUSET + 1\r\n      L  = LGP + LLL - 1\r\n      IF (NDF .EQ. 1) LL = 0\r\n      Z(MCOUNT) = Z(L)*10 + LL\r\n      MCOUNT = MCOUNT + NWDS\r\n      IF (MCOUNT .GE. LGP) GO TO 310\r\n      IF (I .EQ. K) GO TO 125\r\n      J = I + 1\r\n       GO TO 100\r\n  125 IF (LUSET .NE. 0) PUSET = PUSET + NDF\r\n      SIL1 = SIL2\r\n  130 CONTINUE\r\nC\r\nC     END OF ALL GRIDS AND MATRIX NOT FILLED - NEED IMMEDIATE MESSAGE.\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE  (KOUTP,210) SWM,NAME\r\n  210 FORMAT (A27,' 3016, MATRIX IS NOT IN PROPER FORM IN SUBROUTINE ',\r\n     1        2A4)\r\n      GO TO 300\r\nC\r\nC     PURGED FILES\r\nC\r\n  220 CALL PAGE2 (2)\r\n      WRITE  (KOUTP,230) SWM,X(1),NAME\r\n  230 FORMAT (A27,' 3001, ATTEMPT TO OPEN DATA SET',I4,' IN SUBROUTINE',\r\n     1        1X,2A4,' WHICH WAS NOT DEFINED IN FIST')\r\n      GO TO 300\r\nC\r\nC     ILLEGAL INPUT\r\nC\r\n  240 CALL PAGE2 (2)\r\n      WRITE  (KOUTP,250) SWM,NAME\r\n  250 FORMAT (A27,' 3007, ILLEGAL INPUT TO SUBROUTINE ',2A4)\r\n      GO TO 300\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  260 CALL PAGE2 (2)\r\n      WRITE  (KOUTP,270) SWM,NAME\r\n  270 FORMAT (A27,' 3008, INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE ',\r\n     1        2A4, 1H.)\r\nC\r\n  300 CONTINUE\r\n      CALL CLOSE (SIL ,KCL)\r\n      CALL CLOSE (USET,KCL)\r\n      RETURN 1\r\n  310 CONTINUE\r\n      CALL CLOSE (SIL ,KCL)\r\n      CALL CLOSE (USET,KCL)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/mxcids.f",
    "content": "      SUBROUTINE MXCIDS(*,Z,MSET,MSZE,NWDS,USET,NSTRT,SNAM)\r\nC-----\r\nC   THIS SUBROUTINE CREATES A LIST OF SUBSTRUCTURE NAMES AT Z(1)\r\nC AND AN ARRAY AT Z(NSTRT) OF LENGTH MSZE*NWDS WITH THE FIRST TWO WORDS\r\nC OF EACH ENTRY AS,\r\nC     1 - EXTERNAL ID * 10 + COMPONENT\r\nC     2 - POINTER TO FIRST WORD OF SUBSTRUCTURE NAME...\r\nC\r\nC INPUT\r\nC     Z     = OPEN CORE - Z(1) TO Z(NSTRT-1)\r\nC     MSET  = ONE WORD BCD IDENTIFING SET\r\nC     MSZE  = NUMBER OF COLUMNS IN MATRIX\r\nC     NWDS  = NUMBER WORDS/ENTRY DESIRED (2 MINIMUM)\r\nC     USET  = USET GINO FILE NAME\r\nC     NSTRT = LOCATION OF FIRST OF FOUR (4) BUFFERS.\r\nC     SNAM  = SUBSTRUCTURE NAME BEING SOLVED (2 WORD BCD).\r\nC OUTPUT\r\nC     *     = TASK NOT COMPLETED\r\nC     Z     = SUBSTRUCTURE NAMES + COLUMN IDENTIFIERS (SEE ABOVE)\r\nC     NSTRT = FIRST WORD OF COLUMN IDENTIFIERS\r\nC-----\r\nC\r\nC       N O T   C O D E D   Y E T\r\nC\r\n        IF (MSET.EQ.1) RETURN\r\n      RETURN 1\r\n        END\r\n"
  },
  {
    "path": "mis/na12a8.f",
    "content": "      SUBROUTINE NA1 2 A8 (*,A,N,B,NOTUSE)\r\nC\r\n      INTEGER         A(1),     B(2),    CDC\r\n      CHARACTER*1     C(1),     T(8)\r\n      CHARACTER*8     D(1)\r\n      CHARACTER*10    BLNK,     TEMP\r\n      COMMON /XREADX/ NOUT\r\n      COMMON /MACHIN/ MACH\r\n      EQUIVALENCE     (T(1),TEMP)\r\n      DATA            BLNK / '          '  /, CDC / 4  /\r\nC\r\nC     THESE ROUTTNES CONVERT N A1 BCD WORDS IN A, OR N A1 CHARACTERS IN\r\nC     C TO AN 8-BYTE BCD WORD IN B (CDC ONLY), (OR TO TWO 4-BYTE BCD\r\nC     WORDS IN B, ALL OTHER NON-CDC MACHINES), OR AN 8-CHARACTER WORD\r\nC     IN D, LEFT ADJUSTED.\r\nC     CALLING ROUTINE MUST NOT USE LOGICAL*1 FOR A-ARRAY.\r\nC     (NO SYSTEM ENCODE/DECODE FUNCTIONS ARE USED)\r\nC\r\nC     ENTRY POINTS   NA1 2 A8  (BCD-BYTE  VERSION)\r\nC                    NK1 2 K8  (CHARACTER VERSION)\r\nC\r\nC\r\nC     WRITTEN BY G.CHAN/SPERRY IN AUG. 1985\r\nC     PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD\r\nC     INPUT FORMAT.  THIS SUBROUTINE IS MACHINE INDEPENDENT\r\nC\r\nC     LAST REVISED  8/1988\r\nC\r\n      IF (N .GT. 8) GO TO 40\r\n      TEMP = BLNK\r\n      CALL B2K (A,TEMP,N)\r\n      IF (MACH .NE. CDC) CALL KHRBC2 (TEMP,B(1))\r\nCWKBD IF (MACH .EQ. CDC) B(1) = ISWAP(TEMP)\r\n      RETURN\r\nC\r\n      ENTRY NK1 2 K8 (*,C,N,D,NOTUSE)\r\nC     ===============================\r\nC\r\n      IF (N .GT. 8) GO TO 40\r\n      TEMP = BLNK\r\n      DO 30 I = 1,N\r\n 30   T(I) = C(I)\r\n      D(1) = TEMP\r\n      RETURN\r\nC\r\n 40   WRITE  (NOUT,50) N\r\n 50   FORMAT ('   N.GT.8/NA12A8',I6)\r\n      J = NOTUSE\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/na12if.f",
    "content": "      SUBROUTINE NA1 2 IF (*,A,N,B,INT)\r\nC\r\nC     VAX, IBM AND UNIVAC VERSION (CHARACTER FUNCTION PROCESSING)\r\nC     ===========================\r\nC\r\n      COMMON /XREADX/NOUT\r\n      INTEGER        A(1)\r\n      CHARACTER*1    BK,    PT,    TJ,   T(24), C(1), NUM(10)\r\n      CHARACTER*12   TEMP,  NEXT,  BLNK\r\n      EQUIVALENCE    (TEMP,T(1)), (NEXT,T(13)), (I,XI)\r\n      DATA           BK,    PT,    BLNK  / ' ', '.', '            ' /\r\n      DATA           NUM / '0','1','2','3','4','5','6','7','8','9'  /\r\nC\r\nC     ARRAY A, IN NA1 BCD WORDS (OR C IN CHARACTERS), IS DECODED TO\r\nC     AN INTEGER OR TO A F.P. NUMBER IN B.\r\nC     INT SHOULD BE SET TO +1 IF CALLER IS EXPECTING B TO BE AN INTEGER,\r\nC     OR SET TO -1 IF B IS TO BE A F.P. NUMBER.   SET INT TO ZERO IF\r\nC     CALLER IS NOT SURE.  IN THIS LAST CASE, INT WILL BE SET TO +1 OR\r\nC     -1 BY NA12IF/NK12IF ACCORDING TO THE INPUT DATA TYPE.\r\nC     THESE ROUTINES HANDLE UP TO 12 DIGITS INPUT DATA (N .LE. 12)\r\nC     (NO SYSTEM ENCODE/DECODE FUNCTIONS ARE USED)\r\nC\r\nC     ENTRY POINTS   NA1 2 IF  (BCD-INTEGER/FP VERSION)\r\nC                    NK1 2 IF  (CHARACTER-INTEGER/FP VERSION)\r\nC\r\nC     WRITTEN BY G.CHAN/SPERRY IN AUG. 1985\r\nC     PARTICULARLY FOR XREAD ROUTINE, IN SUPPORT OF ITS NEW FREE-FIELD\r\nC     INPUT FORMAT.  THIS SUBROUTINE IS MACHINE INDEPENDENT\r\nC\r\n      IF (N .GT. 12) GO TO 150\r\n      CALL B2K (A,TEMP,N)\r\n      GO TO 20\r\nC\r\n      ENTRY NK1 2 IF (*,C,N,B,INT)\r\nC     ****************************\r\nC\r\n      IF (N .GT. 12) GO TO 150\r\n      DO 15 I=1,N\r\n 15   T(I)=C(I)\r\nC\r\n 20   IF (INT .GE. 1) GO TO 110\r\n 25   NT=1\r\n      K =24\r\n      J =N\r\n      NEXT=BLNK\r\n      DO 50 I=1,12\r\n      IF (I    .GT.  N) GO TO 30\r\n      TJ=T(J)\r\n      IF (TJ .EQ. BK) GO TO 50\r\n      IF (TJ .EQ. PT) NT=NT-2\r\n      T(K)=TJ\r\n      GO TO 40\r\n 30   T(K)=BK\r\n 40   K=K-1\r\n 50   J=J-1\r\nC\r\n      IF (NT.LT.-1 .OR. INT*NT.LT.0) GO TO 170\r\n      IF (INT .EQ. 0) INT=NT\r\n      IF (INT) 60,170,80\r\n 60   READ (NEXT,70) B\r\n 70   FORMAT (F12.0)\r\n      RETURN\r\n 80   READ (NEXT,90) I\r\n 90   FORMAT (I12)\r\n 100  B=XI\r\n      RETURN\r\nC\r\nC     QUICK WAY TO GET THE INTEGER\r\nC\r\n 110  I=0\r\n      J=0\r\n 120  J=J+1\r\n      IF (J .GT. N) GO TO 100\r\n      TJ=T(J)\r\n      IF (TJ .EQ. BK) GO TO 120\r\n      DO 130 K=1,10\r\n      IF (TJ .EQ. NUM(K)) GO TO 140\r\n 130  CONTINUE\r\n      GO TO 25\r\n 140  I=I*10 + K-1\r\n      GO TO 120\r\nC\r\n 150  B=0.\r\n      WRITE (NOUT,160) N\r\n 160  FORMAT (5X,'*** N.GT.12/NA12IF',I6)\r\n 170  RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/nascar.f",
    "content": "      SUBROUTINE NASCAR\r\nC\r\nC     NASCAR READS THE NASTRAN CARD (IF PRESENT) AND CALLS TTLPGE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ORF,COMPLF\r\n      INTEGER         HDG(14),NSTRN(2),BDT(7),FILES(2),\r\n     1                MODCOM(9),KEYWDS(2,17),BUF(75)\r\n      REAL            S1,RTOLEL\r\n      CHARACTER       UFM*23,UWM*25,S2*16\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYSTEM(100)\r\n      COMMON /BLANK / FLAG,CARD(20)\r\n      COMMON /OUTPUT/ PGHDG(96)\r\n      COMMON /XFIST / NFIST,LFIST,FIST(2)\r\n      COMMON /XPFIST/ NPFIST\r\n      COMMON /LHPWX / LHPW(4),MXFL\r\n      EQUIVALENCE     (SYSTEM( 1),SYSBUF),\r\n     1                (SYSTEM( 2),OUTTAP),\r\n     2                (SYSTEM( 3),NOGO  ),\r\n     3                (SYSTEM( 4),INTAP ),\r\n     4                (SYSTEM( 7),LOGFL ),\r\n     5                (SYSTEM(20),PLTFLG),\r\n     6                (SYSTEM(29),MAXFIL),\r\n     7                (SYSTEM(30),MAXOPN),\r\n     8                (SYSTEM(34),IDRUM ),\r\n     O                (SYSTEM(57),MODCOM(1)),\r\n     A                (SYSTEM(70),ITOLEL,RTOLEL),\r\n     B                (SYSTEM(77),BANDIT)\r\nC\r\n      DATA NSTRN  /4HNAST,  4HRAN /\r\n      DATA FILES  /4HFILE,  1HS   /, BLANK / 1H  /\r\n      DATA LKEYWD /   17 /\r\n      DATA KEYWDS /4HBUFF,  4HSIZE,\r\n     2             4HCONF,  4HIG  ,\r\n     3             4HMAXF,  4HILES,\r\n     4             4HMAXO,  4HPEN ,\r\n     5             4HSYST,  4HEM  ,\r\n     6             4HKON3,  4H60  ,\r\n     7             4HNLIN,  4HES  ,\r\n     8             4HTITL,  4HEOPT,\r\n     9             4HMODC,  4HOM  ,\r\n     O             4HHICO,  4HRE  ,\r\n     1             4HDRUM,  4H    ,\r\n     2             4HTRAC,  4HKS  ,\r\n     3             4HSTST,  4H    ,\r\n     4             4HBAND,  4HIT  ,\r\n     5             4HBULK,  4HDATA,\r\n     6             4HPLOT,  4HOPT ,\r\n     7             4HLOGF,  4HL   /\r\n      DATA HDG    /4HN A ,4HS T ,4HR A ,4HN  S,4H Y S,4H T E,4H M  ,\r\n     1             4HP A ,4HR A ,4HM E ,4HT E ,4HR  E,4H C H,4H O  /\r\n      DATA BDT    /4HTCRI,4HTMTH,4HTMPC,4HTDEP,4HTPCH,4HTRUN,4HTDIM/\r\n      DATA TOPT   /  -9  /\r\nC     DATA ADD    /4H@ASG,4H,T  ,4HLOG-,4HFILE,4H.,F ,4H .  /\r\n      DATA S1,S2  /4HWORD, ' OF /SYSTEM/ IS '/\r\nC\r\nC\r\nC     CONMSG (BCD7,1,1)\r\n      MASK1 = COMPLF(0)\r\n      MASK2 = RSHIFT(MASK1,1)\r\nC\r\nC     CALL NSINFO TO OPEN NAINFO FILE AND PICK UP ANY PRESET SYSTEM\r\nC     PARAMETERS FROM THE SECOND SECTION OF THAT FILE\r\nC\r\n      J = 2\r\n      CALL NSINFO (J)\r\n      IF (J .NE. 2) TOPT = J\r\nC\r\nC     READ FIRST CARD IN DATA STREAM AND CALL XRCARD TO CONVERT IT.\r\nC     IF INPUT CARD IS BLANK, READ NEXT CARD\r\nC\r\n   10 CALL XREAD (*3500,CARD)\r\n      IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK .AND. CARD(3).EQ.BLANK\r\n     1   .AND. CARD(5).EQ.BLANK .AND. CARD(7).EQ.BLANK) GO TO 10\r\n      CALL XRCARD (BUF,75,CARD)\r\n      FLAG = 1\r\n      IF (BUF(1)) 4000,15,20\r\n   15 IF (NOGO .EQ. 0) GO TO 10\r\n      NOGO = 0\r\n      GO TO 4000\r\nC\r\nC     IF CARD IS NASTRAN PARAMETER CARD, ECHO IT.\r\nC\r\n   20 IF (BUF(2).NE.NSTRN(1) .OR. BUF(3).NE.NSTRN(2)) GO TO 4000\r\n      DO 25 I = 1,14\r\n   25 PGHDG(I+2) = HDG(I)\r\n      IF (SYSTEM(11) .LE. 0) CALL PAGE1\r\n      WRITE  (OUTTAP,30) (CARD(I),I=1,20)\r\n   30 FORMAT (5X,20A4)\r\nC\r\nC     RETURN IF NO KEYWORD ON NASTRAN CARD\r\nC\r\n      IF (BUF(4) .EQ. MASK2) GO TO 4000\r\n      FLAG = 0\r\nC\r\nC     IDENTIFY KEYWORDS AND BRANCH TO APPROPRIATE CODE.\r\nC\r\n      J  = 4\r\n   35 JN = 2*BUF(1) + 1\r\n      J1 = 1\r\n      GO TO 50\r\n   40 IF (BUF(J1)) 85,45,50\r\n   45 CALL XREAD  (*3500,CARD)\r\n      CALL XRCARD (BUF,75,CARD)\r\n      WRITE (OUTTAP,30) CARD\r\n      IF (BUF(1) .EQ. 0) GO TO 45\r\n      J = 2\r\n      GO TO 35\r\n   50 IF (BUF(J1) .EQ. MASK2) GO TO 4000\r\n      DO 55 I = 1,LKEYWD\r\n      IF (BUF(J).EQ.KEYWDS(1,I) .AND. BUF(J+1).EQ.KEYWDS(2,I)) GO TO 110\r\n   55 CONTINUE\r\n      IF (BUF(J) .EQ. KEYWDS(1,14)) GO TO 100\r\n      IF (BUF(J) .EQ. FILES(1)) GO TO 3000\r\n      IF (BUF(J) .NE. BLANK) GO TO 60\r\n      J = J + 2\r\n      IF (BUF(J+2) .EQ. MASK2) GO TO 4000\r\n      IF (BUF(J) .EQ. 0) GO TO 45\r\n      IF (J .LT. JN) GO TO 50\r\n      J1 = JN + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 4000\r\n      JN = 2*BUF(J1) + 1\r\n      J  = J1 + 1\r\n      GO TO 50\r\nC\r\nC     PRINT MESSAGE FOR UNIDENTIFIED KEYWORD.\r\nC\r\n   60 CONTINUE\r\n      WRITE  (OUTTAP,65) UFM,BUF(J),BUF(J+1)\r\n   65 FORMAT (A23,' 17, UNIDENTIFIED NASTRAN CARD KEYWORD ',2A4,\r\n     1        '.  ACCEPTABLE KEYWORDS FOLLOW ---', /1H0 )\r\n      DO 70 I = 1,LKEYWD\r\n      WRITE (OUTTAP,75) KEYWDS(1,I),KEYWDS(2,I)\r\n   70 CONTINUE\r\n   75 FORMAT (5X,2A4)\r\n      WRITE  (OUTTAP,80) (BDT(I),I=1,7)\r\n   80 FORMAT (7(5X,4HBAND,A4),\r\n     1        /5X,'FILES (MUST BE LAST IN INPUT LIST)')\r\n      NOGO = 1\r\n      GO TO 4000\r\nC\r\nC     PRINT MESSAGE FOR BAD FORMAT.\r\nC\r\n   85 WRITE  (OUTTAP,90) UFM\r\n   90 FORMAT (A23,' 43, INCORRECT FORMAT FOR NASTRAN CARD.')\r\n      NOGO = 1\r\n      GO TO 4000\r\nC\r\nC     . CHECK FOR LEGAL REAL NUMBER...\r\nC\r\n   95 CONTINUE\r\n      IF (BUF(J1-2) .NE. -2) GO TO 85\r\n      IF (BUF(J1-2) .EQ. -2) GO TO 120\r\n      IF (I .EQ. 11) GO TO 1100\r\nC\r\nC     . BANDIT KEYWORDS.\r\nC\r\n  100 I = 1400\r\n      K = BUF(J+1)\r\nC\r\nC     KEYWORD FOUND.\r\nC\r\n  110 CONTINUE\r\n      J1 = JN + 1\r\n      PARAM = BUF(J1+1)\r\n      J1 = J1 + 2\r\n      IF (BUF(J1) .NE. MASK2) JN = 2*BUF(J1) + J1\r\n      J  = J1 + 1\r\n      IF (BUF(J1-2) .NE. -1) GO TO 95\r\n  120 CONTINUE\r\n      IF (I .EQ. 1400) GO TO 1400\r\n      GO TO ( 150, 200, 300, 400, 500, 600, 700, 800, 900,1000,\r\n     1       1100,1200,1300,1450,1500,1600,1700),  I\r\nC\r\nC     BUFFSIZE\r\nC\r\n  150 CONTINUE\r\n      SYSBUF = PARAM\r\n      GO TO 40\r\nC\r\nC     IGNORE THE CONFIG PARAMETER\r\nC\r\n  200 CONTINUE\r\n      GO TO 40\r\nC\r\nC     MAXFILES UPPER LIMIT\r\nC\r\n  300 CONTINUE\r\n      M = MXFL\r\n      IF (PARAM .LE. M) GO TO 320\r\n      WRITE  (OUTTAP,310) M\r\n  310 FORMAT (' *** MAXFILES IS RESET TO THE LIMIT OF 74')\r\n      PARAM = M\r\n  320 MAXFIL = PARAM\r\n      GO TO 40\r\nC\r\nC     MAXOPEN\r\nC\r\n  400 CONTINUE\r\n      IF (PARAM .LE. MAXFIL) GO TO 420\r\n      IF (PARAM .GT.   MXFL) GO TO 430\r\n      WRITE  (OUTTAP,410) PARAM\r\n  410 FORMAT (' *** MAXOPEN EXCEEDS MAXFILES. MAXFILES IS AUTOMATICALLY'\r\n     1,       ' EXPANDED TO',I4)\r\n      MAXFIL = PARAM\r\n  420 MAXOPN = PARAM\r\n      GO TO 40\r\nC\r\n  430 M = MXFL\r\n      WRITE  (OUTTAP,440) M,M\r\n  440 FORMAT (' *** MAXOPEN EXCEEDS MAXFILES LIMIT OF ',I3,'.  BOTH ',\r\n     1        'MAXOPEN AND MAXFILES ARE RESET ONLY TO ',I3,' EACH')\r\n      MAXFIL = M\r\n      MAXOPN = M\r\n      GO TO 40\r\nC\r\nC     SYSTEM\r\nC\r\n  500 CONTINUE\r\n      IF (PARAM .LE.  0) GO TO 85\r\n      IF (PARAM .NE. 24) GO TO 510\r\n      WRITE (OUTTAP,505)\r\n  505 FORMAT ('0*** FATAL, USER SHOULD NOT CHANGE THE 24TH WORD OF ',\r\n     1       '/SYSTEM/')\r\n      NOGO = 1\r\n      GO TO 40\r\nC\r\n  510 IF (BUF(J1)) 530,40,520\r\n  520 J1 = JN + 1\r\n      J  = J1 + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 85\r\n      JN = J1 + 2*BUF(J1)\r\n      GO TO 510\r\n  530 IF (BUF(J1).EQ.-2 .AND. PARAM.NE.70) GO TO 85\r\nC\r\nC     IGNORE THE CONFIG PARAMETER\r\nC\r\n      IF (PARAM .NE. 28) SYSTEM(PARAM) = BUF(J)\r\nC\r\nC     SYSTEM WORD ECHO\r\nC\r\n      IF (PARAM .GE. 10) GO TO 531\r\n      IF (PARAM .EQ.  1) WRITE (OUTTAP,541) S1,PARAM,S2\r\n      IF (PARAM .EQ.  2) WRITE (OUTTAP,542) S1,PARAM,S2\r\n      IF (PARAM .EQ.  3) WRITE (OUTTAP,543) S1,PARAM,S2\r\n      IF (PARAM .EQ.  4) WRITE (OUTTAP,544) S1,PARAM,S2\r\n      IF (PARAM .EQ.  7) WRITE (OUTTAP,547) S1,PARAM,S2\r\n      IF (PARAM.EQ.7 .AND. MACH.EQ.3) WRITE (OUTTAP,548)\r\n      IF (PARAM .EQ.  9) WRITE (OUTTAP,549) S1,PARAM,S2\r\n      GO TO 590\r\n  531 K = PARAM/10\r\n      IF (K .LE. 9) GO TO (532,532,533,534,534,536,536,536,536), K\r\n      WRITE (OUTTAP,540) S1,PARAM,S2\r\n      GO TO 590\r\n  532 IF (PARAM .EQ. 20) WRITE (OUTTAP,550) S1,PARAM,S2\r\n      IF (PARAM .EQ. 28) WRITE (OUTTAP,558) S1,PARAM,S2\r\n      IF (PARAM .EQ. 29) WRITE (OUTTAP,559) S1,PARAM,S2\r\n      GO TO 590\r\n  533 IF (PARAM .EQ. 30) WRITE (OUTTAP,560) S1,PARAM,S2\r\n      IF (PARAM .EQ. 31) WRITE (OUTTAP,561) S1,PARAM,S2\r\n      IF (PARAM.EQ.34 .AND. MACH.NE.4) WRITE (OUTTAP,564) S1,PARAM,S2\r\n      IF (PARAM.EQ.34 .AND. MACH.EQ.4) WRITE (OUTTAP,565) S1,PARAM,S2\r\n      GO TO 590\r\n  534 IF (PARAM .EQ. 42) WRITE (OUTTAP,572) S1,PARAM,S2\r\n      IF (PARAM .EQ. 45) WRITE (OUTTAP,575) S1,PARAM,S2\r\n      IF (PARAM .EQ. 57) WRITE (OUTTAP,577) S1,PARAM,S2\r\n      IF (PARAM .EQ. 58) WRITE (OUTTAP,578) S1,PARAM,S2\r\n      IF (PARAM .EQ. 59) WRITE (OUTTAP,579) S1,PARAM,S2\r\n      GO TO 590\r\n  536 IF (PARAM.GE.60 .AND. PARAM.LE.65) WRITE (OUTTAP,577) S1,PARAM,S2\r\n      IF (PARAM .EQ. 70) WRITE (OUTTAP,580) S1,PARAM,S2\r\n      IF (PARAM .EQ. 77) WRITE (OUTTAP,587) S1,PARAM,S2\r\n      GO TO 590\r\n  540 FORMAT (5X,A4,I3,A16,'NOT AVAILABLE. INPUT IGNORED')\r\n  541 FORMAT (5X,A4,I3,A16,'GINO BUFFER SIZE')\r\n  542 FORMAT (5X,A4,I3,A16,'OUTPUT UNIT')\r\n  543 FORMAT (5X,A4,I3,A16,'NOGO FLAG')\r\n  544 FORMAT (5X,A4,I3,A16,'INPUT UNIT')\r\n  547 FORMAT (5X,A4,I3,A16,'NO. OF CONSOLE LOG MESSAGES')\r\n  548 FORMAT (1H+,31X,'. (95 MAX.)')\r\n  549 FORMAT (5X,A4,I3,A16,'NO. OF LINES PER PAGE. MINIMUM 10')\r\n  550 FORMAT (5X,A4,I3,A16,'PLOT OPTION')\r\n  558 FORMAT (5X,A4,I3,A16,'MACHINE CONFIGURATION (IGNORED)')\r\n  559 FORMAT (5X,A4,I3,A16,'MAX FILES')\r\n  560 FORMAT (5X,A4,I3,A16,'MAX FILES OPEN')\r\n  561 FORMAT (5X,A4,I3,A16,'HI-CORE')\r\n  564 FORMAT (5X,A4,I3,A16,'DRUM FLAG')\r\n  565 FORMAT (5X,A4,I3,A16,'NOS/NOS-BE FLAG')\r\n  572 FORMAT (5X,A4,I3,A16,'SYSTEM RELEASE DATE')\r\n  575 FORMAT (5X,A4,I3,A16,'TAPE BIT')\r\n  577 FORMAT (5X,A4,I3,A16,'DATA EXTRACTED FROM ADUM CARDS')\r\n  578 FORMAT (5X,A4,I3,A16,'MPYAD METHOD SELECTION')\r\n  579 FORMAT (5X,A4,I3,A16,'PLOT TAPE TRACK SPEC')\r\n  580 FORMAT (5X,A4,I3,A16,'SMA1 SINGULAR TOLERANCE')\r\n  587 FORMAT (5X,A4,I3,A16,'BANDIT/BULKDATA FLAG')\r\nC\r\nC     SET BOTTOM LIMIT OF 10 TO NUMBER OF LINES PER PAGE\r\nC     AND FOR UNIVAC ONLY, LIMIT THE CONSOLE LOG MESSAGES TO 95 MAXIMUM\r\nC\r\n  590 IF (PARAM.EQ.9 .AND. SYSTEM(9).LT.10) SYSTEM(9) = 10\r\n      IF (MACH .EQ.3 .AND. PARAM.EQ.7 .AND. SYSTEM(7).GT.95)\r\n     1    SYSTEM(7) = 95\r\n      J1 = J1 + 2\r\n      J  = J1 + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 4000\r\n      JN = J1 + 2*BUF(J1)\r\n      GO TO 40\r\nC\r\nC     KON360/HICORE\r\nC\r\n  600 CONTINUE\r\n      SYSTEM(31) = PARAM\r\n      GO TO 40\r\nC\r\nC     NLINES - BOTTOM-LIMITED TO 10\r\nC\r\n  700 CONTINUE\r\n      SYSTEM(9) = PARAM\r\n      IF (SYSTEM(9) .LT. 10) SYSTEM(9) = 10\r\n      GO TO 40\r\nC\r\nC     TITLEOPT\r\nC\r\n  800 CONTINUE\r\n      TOPT = PARAM\r\n      IF (MACH.EQ.3 .AND. TOPT.LE.-2) LOGFL = 3\r\n      GO TO 40\r\nC\r\nC     MODCOM COMMUNICATION AREA\r\nC\r\n  900 CONTINUE\r\n      IF (PARAM .LE. 0) GO TO 85\r\n  910 IF (BUF(J1)) 930,40,920\r\n  920 J1 = JN + 1\r\n      J  = J1 + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 85\r\n      JN = J1 + 2*BUF(J1)\r\n      GO TO 910\r\n  930 MODCOM(PARAM) = BUF(J)\r\n      J1 = J1 + 2\r\n      J  = J1 + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 4000\r\n      JN = J1 + 2*BUF(J1)\r\n      GO TO 40\r\nC\r\nC     HICORE = LENGTH OF CORE ON UNIVAC, VAX, AND UNIX\r\nC\r\n 1000 CONTINUE\r\n      SYSTEM(31) = PARAM\r\n      GO TO 40\r\nC\r\nC     UNIVAC - DRUM ALLOCATION, 1 BY POSITIONS, 2 BY TRACKS\r\nC              DEFAULT IS 1,  150 POSITIONS  (GOOD FOR LARGE JOB)\r\nC              IF DRUM IS 2, 1280 TRKS. IS ASSIGNED (SUITABLE FOR\r\nC                 SMALLER JOB)\r\nC\r\nC     CDC - IDRUM (34TH WORD OF /SYSTEM/) IS LENGTH OF FET + DUMMY INDEX\r\nC\r\n 1100 IDRUM = PARAM\r\n      GO TO 40\r\nC\r\nC     PLOT TAPE TRACK SIZE    TRACK=7 IMPLIES 7 TRACK\r\nC                             TRACK=9 IMPLIES 9 TRACK\r\nC\r\n 1200 IF (PARAM.NE.7 .AND. PARAM.NE.9) GO TO 1250\r\n      IF (PARAM .EQ. 7) SYSTEM(59) = 1\r\n      IF (PARAM .EQ. 9) SYSTEM(59) = 2\r\n      GO TO 40\r\n 1250 WRITE (OUTTAP,1480) UWM,PARAM,KEYWDS(1,12),KEYWDS(2,12)\r\n      NOGO = 1\r\n      GO TO 40\r\nC\r\nC     . ELEMENT SINGULARITY TOLERANCE (A REAL S.P. NUMBER)...\r\nC\r\n 1300 ITOLEL = PARAM\r\n      IF (BUF(J1-2).EQ.-1) RTOLEL = ITOLEL\r\n      GO TO 40\r\nC\r\nC     BANDIT (77TH WORD OF SYSTEM)\r\nC     BANDIT KEYWORDS (DEFAULT VALUES IN BRACKETS, SET BY BGRID ROUTINE)\r\nC        BANDTCRI = (1),2,3,4     CRITERION\r\nC        BANDTMTH = 1,2,(3)       METHOD\r\nC        BANDTMPC = (0),1,2       MPC EQUS. AND RIGID ELEMENTS\r\nC        BANDTDEP = (0),1         DEPENDANT GRID\r\nC        BANDTPCH = (0),1         PUNCH SEQGP CARDS\r\nC        BANDTRUN = (0),1         RUN/SEQGP\r\nC        BANDTDIM = (0),1,2,...,9 SCRATCH ARRAY DIMENSION\r\nC        BANDIT   = -1,(0)        BANDIT SKIP FLAG\r\nC     WHERE,\r\nC        CRITERION = 1, USE RMS WAVEFRONT TO DETERMINE BEST RESULT,\r\nC                  = 2, BANDWIDTH,  =3, PROFILE, OR  =4, MAX WAVEFRONT\r\nC        METHOD    = 1, CM METHOD IS USED,   3, GPS, OR     2, BOTH\r\nC        MPC       = 0, MPC'S AND RIGID ELEM ARE NOT CONSIDERED\r\nC                  = 1, MPC'S AND RIGID ELEM ARE USED IN RESEQUENCING\r\nC                  = 2, ONLY RIGID ELEMENTS ARE USED IN RESEQUENCING\r\nC        DEPEND    = 0, DEPENDANT GRID IS OMITTED IN RESEQUENCING\r\nC                       IF MPC IS NON-ZERO\r\nC                  = 1, DEPENDANT GRIDS ARE INCLUDED\r\nC        PUNCH     = 0, NO SEQGP CARDS PUNCHED\r\nC                  = 1, PUNCH OUT BANDIT GENERATED SEQGP CARDS AND\r\nC                       TERMINATE NASTRAN JOB\r\nC        RUN/SEQGP = 0, BANDIT WOULD QUIT IF THERE IS ONE OR MORE SEQGP\r\nC                       CARD IN THE INPUT DECK\r\nC                  = 1, TO FORCE BANDIT TO BE EXECUTED EVEN IF SEQGP\r\nC                       CARDS ARE PRESENT\r\nC        DIM       = 1,2,...,N, TO SET THE SCRATCH AREA, USED ONLY IN\r\nC                       GPS METHOD, TO N*100. (N IS 9 OR LESS)\r\nC                  = 0, DIMENSION IS SET TO 150\r\nC        BANDIT    =-1, BANDIT COMPUTATION IS SKIPPED UNCONDITIONALLY\r\nC                  = 0, BANDIT WOULD BE EXECUTED IF BULK DATA CONTAINS\r\nC                       NO INPUT ERROR\r\nC\r\n 1400 CONTINUE\r\n      IF (BANDIT .LT. 0) GO TO 40\r\n      IF (K.EQ.BDT(7) .AND. PARAM.GE.100) PARAM = PARAM/100\r\n      IF (PARAM.LT.0 .OR. PARAM.GT.9) GO TO 1470\r\n      DO 1420 I = 1,7\r\n      IF (K .NE. BDT(I)) GO TO 1420\r\n      K = PARAM*10**(I-1)\r\n      GO TO 1430\r\n 1420 CONTINUE\r\n      GO TO 60\r\n 1430 BANDIT = BANDIT + K\r\n      GO TO 40\r\n 1450 IF (PARAM .LT. 0) BANDIT = -1\r\n      IF (PARAM .LE. 0) GO TO 40\r\n      K = KEYWDS(2,14)\r\n 1470 WRITE  (OUTTAP,1480) UWM,PARAM,KEYWDS(1,14),K\r\n 1480 FORMAT (A25,' 65, ILLEGAL VALUE OF ',I7,' IN NASTRAN ',2A4,\r\n     1       ' CARD')\r\n      GO TO 40\r\nC\r\nC     BULK DATA CHECK ONLY\r\nC     TO TERMINATE JOB AFTER BULK DATA CHECK, AND SKIP OVER BANDIT\r\nC     (OPTION TO PRINTOUT TIME CONSTANTS IN /NTIME/, IF BULKDATA=-3)\r\nC\r\n 1500 CONTINUE\r\n      IF (PARAM  .NE.  0) BANDIT = -2\r\n      IF (BANDIT .EQ. -2) MAXFIL = 23\r\n      IF (PARAM  .EQ. -3) BANDIT = -3\r\n      GO TO 40\r\nC\r\nC     PLOT OPTIONS -\r\nC\r\nC     PLTFLG   BULKDATA    PLOT COMMANDS       ACTION TAKEN\r\nC     -----  ------- --   -------------  -------------------------------\r\nC      0      NO ERROR    NO ERROR       EXECUTES ALL LINKS, NO PLOTS\r\nC             NO ERROR       ERROR       STOPS AFTER LNK1 DATA CHECK\r\nC                ERROR  ERR OR NO ERR    STOPS AFTER LINK1 CHECK\r\nC      1      NO ERROR    NO ERROR       GO, ALL LINKS AND PLOTS\r\nC             NO ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC                ERROR    NO ERROR       STOP AFTER LINK1 DATA CHECK\r\nC                ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC      2      NO ERROR    NO ERROR       STOP AFTER UNDEFORM PLOT/LINK2\r\nC             NO ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC                ERROR    NO ERROR       STOP AFTER UNDEFORM PLOT/LINK2\r\nC                ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC      3      (ERROR OR   (ERROR OR      (ATTEMPT TO PLOT UNDEFORM MODEL\r\nC             NO ERROR)   NO ERROR)      THEN STOP/LINK2)\r\nC      4      NO ERROR    NO ERROR       GO, ALL LINKS AND PLOTS\r\nC             NO ERROR       ERROR       STOP AFTER UNDEFORM PLOT/LINK2\r\nC                ERROR    NO ERROR       STOP AFTER UNDEFORM PLOT/LINK2\r\nC                ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC      5      NO ERROR    NO ERROR       GO, ALL LINKS AND PLOTS\r\nC             NO ERROR       ERROR       GO, ALL LINKS BUT NO PLOTS\r\nC                ERROR    NO ERROR       STOP AFTER UNDEFORM PLOT/LINK2\r\nC                ERROR       ERROR       STOP AFTER LINK1 DATA CHECK\r\nC     PLTFLG 0 OR 1 IS SET BY THE PRESENCE OF THE PLOT TAPE.\r\nC     PLTFLG WILL BE RESET TO POSITIVE IN IFP1\r\nC     CUT MAXFIL TO HALF AND SKIP BANDIT IF PLOT OPTION IS 2 OR 3\r\nC\r\n 1600 CONTINUE\r\n      IF (PARAM.LT.2 .OR. PARAM.GT.5) GO TO 1650\r\n      IF (PARAM .GE. 2) PLTFLG = -PARAM\r\n      IF (PLTFLG.NE.-2 .AND. PLTFLG.NE.-3) GO TO 40\r\n      MAXFIL = 24\r\n      BANDIT = -1\r\n      GO TO 40\r\n 1650 WRITE (OUTTAP,1480) UWM,PARAM,KEYWDS(1,16),KEYWDS(2,16)\r\n      GO TO 40\r\nC\r\nC     LOGFL = LOGFILE MESSAGE CONTROL ON UNIVAC 1100\r\nC\r\n 1700 CONTINUE\r\n      LOGFL = PARAM\r\n      GO TO 40\r\nC\r\nC     FILES\r\nC\r\n 3000 IF (BUF(J+2) .NE. MASK1) GO TO 85\r\n      IF (J+4 .GE. JN) GO TO 85\r\n      IF (BUF(J+4).EQ.BLANK .AND. BUF(J+6).EQ.MASK1) GO TO 3010\r\n      J = J + 4\r\n      KHR = 0\r\n      GO TO 3020\r\n 3010 J = J + 8\r\n      KHR = 7\r\n 3020 IF (BUF(J).EQ.MASK1 .OR. KHR.EQ.1) GO TO 3090\r\n      DO 3030 II = 1,NPFIST\r\n      IF (BUF(J) .EQ. FIST(2*II-1)) GO TO 3060\r\n 3030 CONTINUE\r\n      DO 3040 I = 1,LKEYWD\r\n      IF (BUF(J).EQ.KEYWDS(1,I) .AND. BUF(J+1).EQ.KEYWDS(2,I)) GO TO 110\r\n 3040 CONTINUE\r\n      IF (BUF(J) .NE. BLANK) WRITE (OUTTAP,3050) UWM,BUF(J)\r\n 3050 FORMAT (A25,' 64, ',A4,' IS NOT DEFINED AS A NASTRAN FILE AND ',\r\n     1       'WILL BE IGNORED.')\r\n      GO TO 3070\r\n 3060 IXX = 2**(II-1)\r\n      SYSTEM(45) = ORF(SYSTEM(45),IXX)\r\n 3070 J = J + 2\r\n      KHR = KHR + 1\r\n      IF (J .LT. JN) GO TO 3020\r\n      J1 = JN + 1\r\n      IF (BUF(J1) .EQ. MASK2) GO TO 4000\r\n      IF (BUF(J1) .NE. 0) GO TO 85\r\n 3080 CALL XREAD  (*3500,CARD)\r\n      CALL XRCARD (BUF,75,CARD)\r\n      WRITE (OUTTAP,30) (CARD(I),I=1,20)\r\n      IF (BUF(1) .EQ. 0) GO TO 3080\r\n      J  = 2\r\n      J1 = 1\r\n      JN = 2*BUF(1) + 1\r\n      GO TO 3020\r\n 3090 J = J + 2\r\n      GO TO 40\r\nC\r\nC\r\nC     END-OF-FILE ENCOUNTERED ON INPUT FILE\r\nC\r\n 3500 WRITE  (OUTTAP,3600) UFM,INTAP\r\n 3600 FORMAT (A23,' 74, EOF ENCOUNTERED ON UNIT ',I4,\r\n     1        ' WHILE READING THE INPUT DATA IN SUBROUTINE NASCAR')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC\r\nC     GENERATE TITLE PAGE\r\nC\r\n 4000 DO 4100 I = 1,14\r\n 4100 PGHDG(I+2) = BLANK\r\n      CALL TTLPGE (TOPT)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/norm1.f",
    "content": "      SUBROUTINE NORM1 (X,DIV)\r\nC*******\r\nC     NORM WILL NORMALIZE X TO MAXIMUM ELEMENT EQUAL TO ONE AND STORE TH\r\nC     DIVISOR IN MAX\r\nC*******\r\n      DOUBLE PRECISION   X(1)      ,MAX      ,DIV\r\n      COMMON   /INVPWX/  FILEK(7)\r\n      EQUIVALENCE        (NCOL,FILEK(2))\r\n      DATA IND1 /1/\r\n      MAX = 0.D0\r\n      DO 10 I=1,NCOL\r\n      DIV = DABS( X(I) )\r\n      IF( DIV .LE. MAX ) GO TO 10\r\n      MAX = DIV\r\n      IND = I\r\n   10 CONTINUE\r\n      IF( X(IND) .LT. 0.D0 ) IND = -IND\r\n      I = IABS(IND1)\r\n      XX = X(I)\r\n      DIV = SIGN(1.,XX)*FLOAT(ISIGN(1,IND1))*MAX\r\n      XX = DIV\r\n      IND1 = IND*IFIX(SIGN(1.,XX))\r\n      MAX = 1.D0/DIV\r\n      DO 20 I=1,NCOL\r\n      XI = X(I)*MAX\r\n      IF (ABS(XI) .LT. 1.E-36) XI=0.\r\n   20 X(I)= XI\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/norm11.f",
    "content": "      SUBROUTINE NORM11(X,DIV)\r\nC\r\n      DOUBLE PRECISION DIV\r\n      REAL             X(1)      ,MAX\r\n      COMMON   /INVPWX/  FILEK(7)\r\n      EQUIVALENCE        (NCOL,FILEK(2))\r\n      DATA IND1 /1/\r\nC\r\n      MAX = 0.0\r\n      DO 10 I=1,NCOL\r\n      XX = ABS( X(I) )\r\n      IF( XX .LE. MAX ) GO TO 10\r\n      MAX = XX\r\n      IND = I\r\n   10 CONTINUE\r\n      IF( X(IND) .LT. 0.0 ) IND = -IND\r\n      I = IABS(IND1)\r\n      XX = X(I)\r\n      DIV = SIGN(1.,XX)*FLOAT(ISIGN(1,IND1))*MAX\r\n      XX = DIV\r\n      IND1 = IND*IFIX(SIGN(1.,XX))\r\n      MAX = 1.0 /DIV\r\n      DO 20 I=1,NCOL\r\n      XI = X(I)*MAX\r\n      IF (ABS(XI) .LT. 1.E-36) XI = 0.0\r\n   20 X(I)= XI\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/normal.f",
    "content": "      SUBROUTINE NORMAL\r\nC\r\nC     THIS IS THE DRIVER FOR THE NORM MODULE.\r\nC\r\nC     NORM        INMAT/OUTMAT/S,N,NCOL/S,N,NROW/S,N,XNORM/V,Y,IOPT $\r\nC\r\nC     DEPENDING ON THE VALUE OF IOPT, THIS MODULE PERFORMS THE\r\nC     FOLLOWING FUNCTIONS --\r\nC\r\nC     IOPT = 'MAX'\r\nC                 NORM GENERATES A MATRIX.  EACH COLUMN OF THIS OUTPUT\r\nC                 MATRIX REPRESENTS A COLUMN OF THE INPUT MATRIX\r\nC                 NORMALIZED BY ITS LARGEST ROW ELEMENT. (DEFAULT)\r\nC\r\nC     IOPT = 'SRSS'\r\nC                 NORM GENERATES A COLUMN VECTOR.  EACH ELEMENT OF THIS\r\nC                 VECTOR REPRESENTS THE SQUARE ROOT OF THE SUM OF THE\r\nC                 SQUARES (SRSS) OF THE CORRESPONDING ROW OF THE INPUT\r\nC                 MATRIX.\r\nC\r\nC\r\nC\r\nC     INPUT DATA BLOCK --\r\nC\r\nC     INMAT     - ANY MATRIX\r\nC\r\nC     OUTPUT DATA BLOCK --\r\nC\r\nC     OUTMAT    - OUTPUT MATRIX GENERATED AS DESCRIBED BELOW\r\nC\r\nC     PARAMETERS --\r\nC\r\nC     NCOL      - NO. OF COLUMNS OF THE INPUT MATRIX (OUTPUT/INTEGER)\r\nC\r\nC     NROW      - NO. OF ROWS OF THE INPUT MATRIX (OUTPUT/INTEGER)\r\nC\r\nC     XNORM     - MAX. NORMALIZING OR SRSS VALUE, DEPENDING UPON THE\r\nC                 IOPT VALUE SPECIFIED (OUTPUT/REAL)\r\nC     IOPT      - OPTION INDICATING WHETHER EACH COLUMN OF THE INPUT\r\nC                 MATRIX IS TO BE NORMALIZED BY THE MAXIMUM ROW ELEMENT\r\nC                 IN THAT COLUMN OR WHETHER THE SRSS VALUE FOR EACH ROW\r\nC                 OF THE INPUT MATRIX IS TO BE COMPUTED (INPUT/BCD)\r\nC\r\nC     THIS MODULE DEVELOPED BY P. R. PAMIDI OF RPK CORPORATION,\r\nC     MARCH 1988\r\nC\r\n      DIMENSION        MCB(7), Z(1)   , ISUBNM(2)\r\n      DOUBLE PRECISION DXMAX , ZD(1)  , DZERO\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  NCOL   , NROW   , XXMAX , IOPT(2)\r\n      COMMON /PACKX /  IPKOT1 , IPKOT2 , IP1   , IP2   , INCRP\r\n      COMMON /SYSTEM/  ISYSBF , NOUT\r\n      COMMON /TYPE  /  IPRC(2), NWDS(4), IRC(4)\r\n      COMMON /UNPAKX/  IUNOUT , IU1    , IU2   , INCRU\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      EQUIVALENCE      (IZ(1),Z(1),ZD(1)), (IOPT1,IOPT(1))\r\n      DATA    MATIN ,  MATOUT / 101, 201/\r\n      DATA    ISUBNM,           MAX     , ISRSS , IBLNK  , DZERO  /\r\n     1        4HNORM,  4HAL   , 4HMAX   , 4HSRSS, 4H     , 0.0D+0 /\r\nC\r\n      IF (IOPT(2).EQ.IBLNK .AND. (IOPT1.EQ.MAX .OR. IOPT1.EQ.ISRSS))\r\n     1    GO TO 20\r\n      WRITE  (NOUT,10) UFM,IOPT\r\n   10 FORMAT (A23,', ILLEGAL BCD VALUE (', 2A4,') FOR THE 4TH PARAMATER'\r\n     1,      ' IN MODULE NORM')\r\n      CALL MESAGE (-61,0,0)\r\n   20 INCRU  = 1\r\n      INCRP  = 1\r\n      ICORE  = KORSZ(IZ)\r\n      IBUF1  = ICORE - ISYSBF + 1\r\n      IBUF2  = IBUF1 - ISYSBF\r\n      ICORE  = IBUF2 - 1\r\n      CALL GOPEN (MATIN ,IZ(IBUF1),0)\r\n      CALL GOPEN (MATOUT,IZ(IBUF2),1)\r\n      MCB(1) = MATIN\r\n      CALL RDTRL (MCB)\r\n      NCOL   = MCB(2)\r\n      NROW   = MCB(3)\r\n      NROW2  = 2*NROW\r\n      ITYPE  = MCB(5)\r\n      IPREC  = ITYPE\r\n      IF (IPREC .GT. 2) IPREC = IPREC - 2\r\n      IUNOUT = ITYPE\r\n      IPKOT1 = ITYPE\r\n      IPKOT2 = ITYPE\r\n      NROWP  = IPREC*NROW\r\n      NWORDS = NWDS(ITYPE)\r\n      MWORDS = NROW*NWORDS\r\n      KWORDS = MWORDS\r\n      IF (IOPT1 .NE. MAX) KWORDS = KWORDS + NROWP\r\n      ICRREQ = KWORDS - ICORE\r\n      IF (ICRREQ .GT. 0) CALL MESAGE (-8,ICRREQ,ISUBNM)\r\n      IVEC   = MWORDS\r\n      IVEC1  = IVEC + 1\r\n      IVEC2  = IVEC + NROWP\r\n      IF (IOPT1 .EQ. MAX) GO TO 40\r\n      MCB(5) = IPREC\r\n      IPKOT1 = IPREC\r\n      IPKOT2 = IPREC\r\n      DO 30 I= IVEC1,IVEC2\r\n   30 Z(I)   = 0.0\r\n   40 MCB(1) = MATOUT\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IU1    = 1\r\n      IU2    = NROW\r\nC\r\n      XXMAX  = 0.0\r\n      DO 700 I = 1,NCOL\r\n      XX   = 0.0\r\n      CALL UNPACK (*50,MATIN,Z)\r\n      IP1  = IU1\r\n      IP2  = IU2\r\n      XMAX =-1.0\r\n      GO TO 70\r\n   50 IP1  = 1\r\n      IP2  = 1\r\n      XMAX = 0.0\r\n      DO 60 J = 1,NWORDS\r\n      Z(J) = 0.0\r\n   60 CONTINUE\r\nC\r\n   70 IF (IOPT1 .EQ. ISRSS) GO TO 600\r\n      IF (XMAX  .EQ.   0.0) GO TO 510\r\nC\r\nC     OPTION IS MAX\r\nC\r\n      GO TO (100,200,300,400), ITYPE\r\nC\r\n  100 XMAX = 0.0\r\n      DO 110 J = 1,NROW\r\n      X = ABS(Z(J))\r\n      IF (X .GT. XMAX) XMAX = X\r\n  110 CONTINUE\r\n      IF (XMAX .EQ. 0.0) GO TO 510\r\n      XX = XMAX\r\n      DO 120 J = 1,NROW\r\n      Z(J) = Z(J)/XMAX\r\n  120 CONTINUE\r\n      GO TO 500\r\nC\r\n  200 DXMAX = DZERO\r\n      DO 210 J = 1,NROW\r\n      DX = DABS(ZD(J))\r\n      IF (DX .GT. DXMAX) DXMAX = DX\r\n  210 CONTINUE\r\n      IF (DXMAX .EQ. DZERO) GO TO 510\r\n      XX = DXMAX\r\n      DO 220 J = 1,NROW\r\n      ZD(J) = ZD(J)/DXMAX\r\n  220 CONTINUE\r\n      GO TO 500\r\nC\r\n  300 XMAX = 0.0\r\n      DO 310 J = 1,NROW2,2\r\n      X = SQRT(Z(J)*Z(J) + Z(J+1)**2)\r\n      IF (X .GT. XMAX) XMAX = X\r\n  310 CONTINUE\r\n      IF (XMAX .EQ. 0.0) GO TO 510\r\n      XX = XMAX\r\n      DO 320 J = 1,NROW2,2\r\n      Z(J  ) = Z(J  )/XMAX\r\n      Z(J+1) = Z(J+1)/XMAX\r\n  320 CONTINUE\r\n      GO TO 500\r\nC\r\n  400 DXMAX = DZERO\r\n      DO 410 J = 1,NROW2,2\r\n      DX = DSQRT(ZD(J)*ZD(J) + ZD(J+1)**2)\r\n      IF (DX .GT. DXMAX) DXMAX = DX\r\n  410 CONTINUE\r\n      IF (DXMAX .EQ. DZERO) GO TO 510\r\n      XX = DXMAX\r\n      DO 420 J = 1,NROW2,2\r\n      ZD(J  ) = ZD(J  )/DXMAX\r\n      ZD(J+1) = ZD(J+1)/DXMAX\r\n  420 CONTINUE\r\nC\r\n  500 IF (XX .GT. XXMAX) XXMAX = XX\r\n  510 CALL PACK (Z,MATOUT,MCB)\r\n      GO TO 700\r\nC\r\nC     OPTION IS SRSS\r\nC\r\n  600 IF (XMAX .EQ. 0.0) GO TO 700\r\n      GO TO (610,630,650,670), ITYPE\r\nC\r\n  610 DO 620 J = 1,NROW\r\n      K = IVEC + J\r\n      Z(K) = Z(K) + Z(J)*Z(J)\r\n  620 CONTINUE\r\n      GO TO 700\r\nC\r\n  630 DO 640 J = 1,NROW\r\n      K = IVEC + J\r\n      ZD(K) = ZD(K) + ZD(J)*ZD(J)\r\n  640 CONTINUE\r\n      GO TO 700\r\nC\r\n  650 K = IVEC\r\n      DO 660 J = 1,NROW2,2\r\n      K = K + 1\r\n      Z(K) = Z(K) + Z(J)*Z(J) + Z(J+1)**2\r\n  660 CONTINUE\r\n      GO TO 700\r\nC\r\n  670 K = IVEC\r\n      DO 680 J = 1,NROW2,2\r\n      K = K + 1\r\n      ZD(K) = ZD(K) + ZD(J)*ZD(J) + ZD(J+1)**2\r\n  680 CONTINUE\r\nC\r\n  700 CONTINUE\r\n      CALL CLOSE (MATIN, 1)\r\n      IF (IOPT1 .EQ. MAX) GO TO 760\r\nC\r\n      IP1 = IU1\r\n      IP2 = IU2\r\n      GO TO (710,730), IPREC\r\nC\r\n  710 DO 720 I = IVEC1,IVEC2\r\n      Z(I) = SQRT(Z(I))\r\n      IF (Z(I) .GT. XXMAX) XXMAX = Z(I)\r\n  720 CONTINUE\r\n      GO TO 750\r\nC\r\n  730 DO 740 I = IVEC1,IVEC2\r\n      ZD(I) = DSQRT(ZD(I))\r\n      IF (ZD(I) .GT. XXMAX) XXMAX = ZD(I)\r\n  740 CONTINUE\r\nC\r\n  750 CALL PACK (Z(IVEC1),MATOUT,MCB)\r\nC\r\n  760 CALL CLOSE (MATOUT,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/nrlsum.f",
    "content": "      SUBROUTINE NRLSUM\r\nC\r\nC     NRLSUM   OES2,OEF2/NRLSTR,NRLFOR/V,N,NMODES/V,N,NSHOCK(NDIR)/\r\nC              C,Y,DIRECT=123/C,Y,SQRSS=0 $\r\nC\r\nC     NRLSUM COMPUTES NRL SUM STRESSES AND FORCES FOR DDAM. IT IS\r\nC     ASSUMED THAT THE USER HAS REQUESTED STRESSES AND FORCES IN SORT2\r\nC     FORMAT (BUT RESULTS WILL BE SORT1). NRLSUM READS ITEMS FOR AN\r\nC     ELEMENT (FOR ALL SUBCASES) AND COMPUTES THE NRL SUM.  UP TO 3\r\nC     SCRATCH FILES ARE USED TO STORE THE SUMS FOR EACH SHOCK DIRECTION.\r\nC     PRINCIPAL STRESSES WILL BE COMPUTED BASED ON THE SUMS. THE NUMBER\r\nC     OF SUBCASES IS NMODES*NSHOCK WITH THE ORDER 1-NMODES,\r\nC     NMODES+1 - 2*NMODES, ... NSHOCK*NMODES.\r\nC\r\nC     (IF (SQRSS.EQ.1), SQUARE ROOT OF THE SUM OF THE SQUARES IS USED\r\nC     INSTEAD OF NRL SUM\r\nC\r\n      INTEGER         FILE,BUF1,BUF2,BUF3,BUF4,OES2,SYSBUF,ELTYPE,SCR1,\r\n     1                SCR2,SCR3,ELID,OLDTYP,SCR(3),\r\n     2                OEF2,OFIL,IDIR(2),INUM(3),NSUB(3),DIRECT,SQRSS\r\n      DIMENSION       SIG(6),SIGP(3),SMAT(3,3),DCOS(3,3)\r\n      DIMENSION       Z(20),NAM(2),STRESS(146),ISTRES(146),MCB(7)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /BLANK / NMODES,NSHOCK,DIRECT,SQRSS\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE    (Z(1),IZ(1)), (STRESS(1),ISTRES(1))\r\n      EQUIVALENCE    (SIGP(1),SA), (SIGP(2),SB), (SIGP(3),SC)\r\n      EQUIVALENCE    (SIG(1) ,SX), (SIG(2) ,SY), (SIG(3) ,SZ),\r\n     1               (SIG(4),SXY), (SIG(5),SYZ), (SIG(6),SZX)\r\n      DATA    OES2  , NRLSTR,SCR1,SCR2,SCR3 / 101,201,301,302,303/\r\n      DATA    OEF2  , NRLFOR /102,202 /\r\n      DATA    SCR   / 301,302,303     /\r\n      DATA    IDIR  / 4HDIRE,4HCTIO   /\r\n      DATA    INUM  / 4HN 1 ,4HN 2 ,4HN 3 /\r\n      DATA    DTOR  / 0.0174532925E0  /\r\n      DATA    NAM   / 4HNRLS,4HUM     /, I0 / 0 /\r\nC\r\n      LCORE= KORSZ(Z)\r\n      BUF1 = LCORE- SYSBUF + 1\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      IF (NSHOCK .EQ. 3) GO TO 20\r\n      IF (NSHOCK .EQ. 2) GO TO 10\r\n      BUF4 = BUF2\r\n      BUF3 = BUF2\r\n      GO TO 20\r\nC\r\n   10 BUF4 = BUF3\r\nC\r\n   20 LCORE = BUF4 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\n      NDIR = NSHOCK\r\n      IF (NDIR  .GT. 1) GO TO 11\r\n      NSUB(1) = DIRECT\r\n      GO TO 14\r\n   11 IF (NDIR   .GT.  2) GO TO 13\r\n      IF (DIRECT .EQ. 23) GO TO 12\r\n      NSUB(1) = 1\r\n      NSUB(2) = 2\r\n      IF (DIRECT .EQ. 13) NSUB(2) = 3\r\n      GO TO 14\r\n   12 NSUB(1) = 2\r\n      NSUB(2) = 3\r\n      GO TO 14\r\n   13 NSUB(1) = 1\r\n      NSUB(2) = 2\r\n      NSUB(3) = 3\r\n   14 CONTINUE\r\n      IFIL = OES2\r\n      OFIL = NRLSTR\r\nC\r\n   15 FILE = IFIL\r\n      OLDTYP = 0\r\n      CALL OPEN (*710,IFIL,Z(BUF1),0)\r\n      CALL FWDREC (*1002,IFIL)\r\n      CALL GOPEN (SCR1,Z(BUF2),1)\r\n      IF (NSHOCK .GT. 1) CALL GOPEN (SCR2,Z(BUF3),1)\r\n      IF (NSHOCK .EQ. 3) CALL GOPEN (SCR3,Z(BUF4),1)\r\nC\r\n   30 CALL READ (*410,*1003,IFIL,STRESS,146,1,IWORDS)\r\n      ELTYPE= ISTRES(3)\r\n      NWDS  = ISTRES(10)\r\n      I5    = ISTRES(5)\r\n      ELID  = ISTRES(5)/10\r\nC\r\nC     REFORMULATE TO SORT 1 FORMAT\r\nC\r\n      ISTRES(2) = 5\r\n      IF (IFIL .EQ. OEF2) ISTRES(2) = 4\r\n      ISTRES(141) = IDIR(1)\r\n      ISTRES(142) = IDIR(2)\r\nC\r\nC     WRITE ONTO SCRATCH ONLY FOR NEW ELEMENT TYPE\r\nC\r\n      IF (ELTYPE .EQ. OLDTYP)  GO TO 45\r\n      DO 35 I = 1,NSHOCK\r\n      ISTRES(4) = I\r\n      ISTRES(5) = I\r\n      ISTRES(8) = I\r\n      ISUB = NSUB(I)\r\n      ISTRES(143) = INUM(ISUB)\r\n      IF (OLDTYP .NE. 0) CALL WRITE (SCR(I),0,0,1)\r\n      CALL WRITE (SCR(I),STRESS,146,1)\r\n   35 CONTINUE\r\nC\r\n      OLDTYP = ELTYPE\r\nC\r\nC     READ STRESS INFO FOR NUMBER OF MODES AND SHOCK DIRECTIONS\r\nC\r\n      IF (NMODES*NWDS .GT. LCORE)  GO TO 1008\r\n   45 DO 400 NS = 1,NSHOCK\r\n      ISCR = 300 + NS\r\nC\r\n      CALL FREAD (IFIL,Z(1),NWDS*NMODES,0)\r\nC\r\nC     GO TO PROPER SECTION FOR EACH ELEMENT TYPE\r\nC\r\nC     FOR FORCES, COMPUTATIONS ARE EASIER. SO LETS NOT HAVE A COMPUTED\r\nC     GO TO\r\nC\r\n      IF (IFIL .EQ. OES2) GO TO 46\r\nC\r\n      IF (ELTYPE.GE.20 .AND. ELTYPE.LE.33) GO TO 400\r\n      IF (ELTYPE.GE.39 .AND. ELTYPE.LE.52) GO TO 400\r\n      IF (ELTYPE.EQ.62 .OR.  ELTYPE.EQ.68 .OR. ELTYPE.EQ.69 .OR.\r\n     1    ELTYPE.EQ.72) GO TO 400\r\n      IF (ELTYPE.GE.65 .AND. ELTYPE.LE.67) GO TO 400\r\n      IF (ELTYPE.EQ. 9 .OR.  ELTYPE.EQ.16 .OR. ELTYPE.EQ.73 .OR.\r\n     1    ELTYPE.EQ.76) GO TO 400\r\n      I3 = 1\r\n      I2 = NWDS\r\n      I1 = 2\r\n      IF (ELTYPE.EQ.35 .OR.  ELTYPE.EQ.70 .OR. ELTYPE.EQ.71) I1 = 3\r\n      GO TO 105\r\nC\r\n   46 CONTINUE\r\nC\r\n      GO TO ( 50, 60, 50, 70, 70, 80, 80, 80, 90, 50,\r\n     1       100,100,100,400, 80, 90, 80, 80, 80,400,\r\n     2       400,400,400,400,400,400,400,400,400,400,\r\n     3       400,400,400,110,120,130,140,150,160,160,\r\n     4       160,160,400,400,400,400,400,400,400,400,\r\n     5       400,400,170,170,170,170,170,170,170,170,\r\n     6       170, 90, 90, 80,220,220,220,400,400,180,\r\n     7       190,400,200,200,200,210,400,400,400,400,\r\n     8       400,400, 80), ELTYPE\r\nC\r\nC     ROD, TUBE, CONROD\r\nC\r\n   50 I1 = 2\r\n      I2 = 4\r\n      I3 = 2\r\n      ASSIGN 55 TO IRET\r\n      GO TO 390\r\nC\r\nC     IGNORE MARGINS OF SAFETY\r\nC\r\n   55 IZ(I0+3) = 1\r\n      IZ(I0+5) = 1\r\n      GO TO 395\r\nC\r\nC     BEAM\r\nC\r\n   60 I1 = 2\r\n      I2 = 5\r\n      I3 = 1\r\n      ASSIGN 65 TO IRET\r\n      GO TO 390\r\n   65 Z(6) = Z(5) + AMAX1(Z(2),Z(3),Z(4))\r\n      Z(7) = Z(5) + AMIN1(Z(2),Z(3),Z(4))\r\n      IZ(I0+8) = 1\r\n      I1 = 9\r\n      I2 = 11\r\n      I3 = 1\r\n      ASSIGN 66 TO IRET\r\n      GO TO 390\r\n   66 Z(12) = Z(5) + AMAX1(Z(9),Z(10),Z(11))\r\n      Z(13) = Z(5) + AMIN1(Z(9),Z(10),Z(11))\r\n      IZ(I0+14) = 1\r\n      GO TO 395\r\nC\r\nC     SHEAR\r\nC\r\n   70 I1 = 2\r\n      I2 = 3\r\n      I3 = 1\r\n      ASSIGN 75 TO IRET\r\n      GO TO 390\r\n   75 IZ(I0+4) = 1\r\n      GO TO 395\r\nC\r\nC     TRBSC, TRPLT, QDPLT, TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4\r\nC\r\n   80 I1 = 3\r\n      I2 = 5\r\n      I3 = 1\r\n      J3 = 3\r\n      J4 = 4\r\n      J5 = 5\r\n      J6 = 6\r\n      J7 = 7\r\n      J8 = 8\r\n      J9 = 9\r\n      ASSIGN 85 TO IRET\r\n      GO TO 390\r\n   85 SS = .5*(Z(J3) + Z(J4))\r\n      ST = Z(J3) - Z(J4)\r\n      SQ = SQRT(.25*ST**2 + Z(J5)**2)\r\n      Z(J7) = SS + SQ\r\n      Z(J8) = SS - SQ\r\n      Z(J9) = SQ\r\n      SD = 2.*Z(J5)\r\n      IF (ABS(SD).LT.1.E-15 .AND. ABS(ST).LT.1.E-15) GO TO 87\r\n      Z(J6) = ATAN2(SD,ST)*28.6478898\r\n      GO TO 88\r\n   87 Z(J6) = 0.\r\n   88 IF (J3 .EQ. 11) GO TO 395\r\n      IF (ELTYPE.EQ. 9 .OR. ELTYPE.EQ.16) GO TO 395\r\nC                 TRMEM             QDMEM\r\n      IF (ELTYPE.EQ.62 .OR. ELTYPE.EQ.63) GO TO 395\r\nC                QDMEM1            QDMEM2\r\n      IF (ELTYPE .EQ. 35) GO TO 125\r\nC                  CONEAX\r\n      I1 = 11\r\n      I2 = 13\r\n      I3 = 1\r\n      J3 = 11\r\n      J4 = 12\r\n      J5 = 13\r\n      J6 = 14\r\n      J7 = 15\r\n      J8 = 16\r\n      J9 = 17\r\n      GO TO 390\r\nC\r\nC     TRMEM, QDMEM,  QDMEM1, QDMEM2\r\nC\r\n   90 I1 = 2\r\n      I2 = 4\r\n      I3 = 1\r\n      J3 = 2\r\n      J4 = 3\r\n      J5 = 4\r\n      J6 = 5\r\n      J7 = 6\r\n      J8 = 7\r\n      J9 = 8\r\n      ASSIGN 85 TO IRET\r\n      GO TO 390\r\nC\r\nC     CELAS1,2,3\r\nC\r\n  100 I1 = 2\r\n      I2 = 2\r\n      I3 = 1\r\n  105 ASSIGN 395 TO IRET\r\n      GO TO 390\r\nC\r\nC     BAR - ADD AXIAL STRESS TO EXTENSIONAL STRESSES DUE TO BENDING\r\nC           BEFORE COMPUTING NRL SUMS. THEN ZERO OUT AXIAL STRESS\r\nC           AND MAX AND MIN STRESSES\r\nC\r\n  110 I1 = 2\r\n      I2 = 5\r\n      I3 = 1\r\n      DO 113 J = 1,NMODES\r\n      ISUB = NWDS*(J-1)\r\n      DO 111 I = 2,5\r\n  111 Z(ISUB+I) = Z(ISUB+I)+Z(ISUB+6)\r\n      DO 112 I = 10,13\r\n  112 Z(ISUB+I) = Z(ISUB+I)+Z(ISUB+6)\r\n  113 CONTINUE\r\n      ASSIGN 115 TO IRET\r\n      GO TO 390\r\n  115 Z(6) = 0.\r\n      Z(7) = 0.\r\n      Z(8) = 0.\r\n      IZ(I0+9) = 1\r\n      I1   = 10\r\n      I2   = 13\r\n      I3   = 1\r\n      ASSIGN 116 TO IRET\r\n      GO TO 390\r\n  116 Z(14) = 0.\r\n      Z(15) = 0.\r\n      IZ(I0+16) = 1\r\n      GO TO 395\r\nC\r\nC     CONEAX\r\nC\r\n  120 I1 = 4\r\n      I2 = 6\r\n      I3 = 1\r\n      J3 = 4\r\n      J4 = 5\r\n      J5 = 6\r\n      J6 = 7\r\n      J7 = 8\r\n      J8 = 9\r\n      J9 = 10\r\n      ASSIGN 85 TO IRET\r\n      GO TO 390\r\n  125 IF (J3 .EQ. 12) GO TO 395\r\n      I1 = 12\r\n      I2 = 14\r\n      I3 = 1\r\n      J3 = 12\r\n      J4 = 13\r\n      J5 = 14\r\n      J6 = 15\r\n      J7 = 16\r\n      J8 = 17\r\n      J9 = 18\r\n      GO TO 390\r\nC\r\nC     TRIARG\r\nC\r\n  130 I1 = 2\r\n      I2 = 5\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TRAPRG\r\nC\r\n  140 I1 = 2\r\n      I2 = 21\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TORDRG\r\nC\r\n  150 I1 = 2\r\n      I2 = 16\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TETRA, WEDGE, HEXA1, HEXA2\r\nC\r\n  160 I1 = 2\r\n      I2 = 7\r\n      I3 = 1\r\n      ASSIGN 165 TO IRET\r\n      GO TO 390\r\n  165 Z(8) = SQRT((Z(2)-Z(3))**2 + (Z(3)-Z(4))**2 + (Z(4)-Z(2))**2 +\r\n     1               6.*(Z(5)**2 + Z(6)**2 + Z(7)**2)) / 3.\r\n      Z(9) = -(Z(2)+Z(3)+Z(4)) / 3.\r\n      GO TO 395\r\nC\r\nC     DUM1 - DUM9\r\nC\r\n  170 I1 = 2\r\n      I2 = 10\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TRIAAX\r\nC\r\n  180 I1 = 3\r\n      I2 = 11\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TRAPAX\r\nC\r\n  190 I1 = 3\r\n      I2 = 47\r\n      I3 = 1\r\n      GO TO 105\r\nC\r\nC     TRIM6, TRPLT1, TRSHL\r\nC\r\n  200 IEND = 8\r\n      ISKIP= 8\r\n      IF (ELTYPE .NE. 73) GO TO 201\r\n      IEND = 4\r\n      ISKIP= 7\r\n  201 J2 = -5\r\n      IJ = 0\r\n  202 IJ = IJ + 1\r\n      J2 = J2 + ISKIP\r\n      J4 = J2 + 2\r\n      I1 = J2\r\n      I2 = J4\r\n      I3 = 1\r\n      ASSIGN 205 TO IRET\r\n      GO TO 390\r\n  205 SS = .5*(Z(J2)+Z(J2+1))\r\n      ST = Z(J2) - Z(J2+1)\r\n      SQ = SQRT(.25*ST**2 + Z(J4)**2)\r\n      Z(J4+2) = SS + SQ\r\n      Z(J4+3) = SS - SQ\r\n      Z(J4+4) = SQ\r\n      SD = 2.*Z(J4)\r\n      IF (ABS(SD).LT.1.E-15 .AND. ABS(ST).LT.1.E-15) GO TO 206\r\n      Z(J4+1) = ATAN2(SD,ST) * 28.6478898\r\n      GO TO 207\r\n  206 Z(J4+1) = 0.\r\n  207 IF (IJ .LT. IEND) GO TO 202\r\n      GO TO 395\r\nC\r\nC     IS2D8\r\nC\r\n  210 IJ = 0\r\n      J2 = 1\r\n  211 IJ = IJ + 1\r\n      J2 = J2 + 5\r\n      J4 = J2 + 2\r\n      I1 = J2\r\n      I2 = J4\r\n      I3 = 1\r\n      ASSIGN 215 TO IRET\r\n      GO TO 390\r\n  215 IF (IJ .LT. 8) GO TO 211\r\n      GO TO 395\r\nC\r\nC     IHEX1,2,3\r\nC\r\n  220 I1 = 3\r\n      I2 = 4\r\n      I3 = 1\r\n      ASSIGN 221 TO IRET\r\n      GO TO 390\r\n  221 I1 = 11\r\n      IF (ELTYPE. EQ. 67) I1 = 12\r\nC                   IHEX3\r\n      I2 = I1+1\r\n      ASSIGN 222 TO IRET\r\n      GO TO 390\r\n  222 I1 = I1 + 6\r\n      I2 = I1 + 1\r\n      ASSIGN 223 TO IRET\r\n      GO TO 390\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\n  223 SIG(1) = Z( 3)\r\n      SIG(2) = Z(11)\r\n      SIG(3) = Z(17)\r\n      SIG(4) = Z( 4)\r\n      SIG(5) = Z(12)\r\n      SIG(6) = Z(18)\r\n      IF (ELTYPE .NE. 67) GO TO 224\r\nC                   IHEX3\r\n      SIG(2) = Z(12)\r\n      SIG(3) = Z(18)\r\n      SIG(5) = Z(13)\r\n      SIG(6) = Z(19)\r\n  224 CONTINUE\r\nC*****\r\nC     SOLVE CUBIC EQUATION FOR PRINCIPAL STRESSES\r\nC*****\r\nC\r\nC     S**3 + P*S**2 + Q*S + R = 0.0\r\nC\r\nC     REF. -- CRC STANDARD MATH TABLES 14TH ED., PP. 392,3\r\nC\r\n      RM = 0.0\r\n      DO 262 I = 1,6\r\n      IF (ABS(SIG(I)) .GT. RM) RM = ABS(SIG(I))\r\n  262 CONTINUE\r\n      IF (RM .LE. 0.0) GO TO 267\r\n      THRESH = 1.0E-5\r\n  264 DO 263 I = 1,6\r\n      IF (ABS(SIG(I)/RM) .LT. THRESH) SIG(I) = 0.0\r\n  263 CONTINUE\r\n      RX = SX/RM\r\n      RY = SY/RM\r\n      RZ = SZ/RM\r\n      RXY= SXY/RM\r\n      RYZ= SYZ/RM\r\n      RZX= SZX/RM\r\n      P  =-RX - RY - RZ\r\n      Q  = RX*RY + RY*RZ + RZ*RX - RXY**2 - RYZ**2 - RZX**2\r\n      R  =-(RX*RY*RZ +2.0*RXY*RYZ*RZX -RX*RYZ**2 -RY*RZX**2 -RZ*RXY**2)\r\n      A  = (3.0*Q - P**2)/3.0\r\n      B  = (2.0*P**3 - 9.0*P*Q + 27.0*R)/27.0\r\n      X  =-A**3/27.0\r\n      IF (X .GT. 0.0) GO TO 270\r\nC\r\nC     CHECK FOR IMAGINARY ROOTS\r\nC\r\n      IF (ABS(X) .GT. RM*1.0E-6) GO TO 265\r\nC\r\nC     CHECK FOR 3 EQUAL ROOTS\r\nC\r\n      IF (ABS(B) .GT. 1.0E-6) GO TO 265\r\n      X  = 0.0\r\n      PHI= 0.0\r\n      GO TO 275\r\n  265 THRESH = 10.0*THRESH\r\n      IF (THRESH .LT. 1.1E-3) GO TO 264\r\n  267 SA = 0.0\r\n      SB = 0.0\r\n      SC = 0.0\r\n      GO TO 280\r\n  270 COSPHI =-(B/2.0)/SQRT(X)\r\n      IF (ABS(COSPHI) .GT. 1.0) GO TO 265\r\n      PHI= ACOS(COSPHI)\r\n      X  = 2.0*SQRT(-A/3.0)\r\n  275 SA = (X*COS(PHI/3.0)-P/3.0)*RM\r\n      SB = (X*COS(PHI/3.0+120.0*DTOR)-P/3.0)*RM\r\n      SC = (X*COS(PHI/3.0+240.0*DTOR)-P/3.0)*RM\r\n      RM = 0.0\r\n      DO 276 I = 1,3\r\n      IF (ABS(SIGP(I)) .GT. RM) RM = ABS(SIGP(I))\r\n  276 CONTINUE\r\n      DO 277 I = 1,3\r\n      IF (ABS(SIGP(I)/RM) .LT. 1.0E-5) SIGP(I) = 0.0\r\n  277 CONTINUE\r\nC*****\r\nC     COMPUTE MEAN STRESS OR PRESSURE\r\nC*****\r\n  280 SN =-(SA+SB+SC)/3.0\r\nC*****\r\nC     COMPUTE OCTAHEDRAL SHEAR STRESS\r\nC*****\r\n      SO = SQRT(((SA+SN)**2 + (SB+SN)**2 + (SC+SN)**2)/3.0)\r\nC*****\r\nC     COMPUTE DIRECTION COSINES OF THE PRINCIPAL PLANES\r\nC*****\r\n      RM = 1.0E-6\r\n      DO 600 I = 1,3\r\n      IF (SIGP(I) .EQ. 0.0) GO TO 580\r\n      SMAT(1,1) = 1.0 - SX/SIGP(I)\r\n      SMAT(2,1) =-SXY/SIGP(I)\r\n      SMAT(3,1) =-SZX/SIGP(I)\r\n      SMAT(1,2) = SMAT(2,1)\r\n      SMAT(2,2) = 1.0 - SY/SIGP(I)\r\n      SMAT(3,2) =-SYZ/SIGP(I)\r\n      SMAT(1,3) = SMAT(3,1)\r\n      SMAT(2,3) = SMAT(3,2)\r\n      SMAT(3,3) = 1.0 - SZ/SIGP(I)\r\n      CALL SAXB (SMAT(1,1),SMAT(1,2),DCOS(1,I))\r\n      RX = SADOTB(DCOS(1,I),DCOS(1,I))\r\n      J  = 1\r\n      CALL SAXB (SMAT(1,2),SMAT(1,3),DCOS(1,I))\r\n      RY = SADOTB(DCOS(1,I),DCOS(1,I))\r\n      IF (RY .GT. RX) J = 2\r\n      CALL SAXB (SMAT(1,3),SMAT(1,1),DCOS(1,I))\r\n      RZ = SADOTB(DCOS(1,I),DCOS(1,I))\r\n      IF (RZ.GT.RY .AND. RZ.GT.RX) J = 3\r\n      P = SMAT(1,J)\r\n      Q = SMAT(2,J)\r\n      R = SMAT(3,J)\r\n      IF (J-2) 450,460,470\r\n  450 J = 2\r\n      GO TO 480\r\n  460 J = 3\r\n      GO TO 480\r\n  470 J = 1\r\n  480 S = SMAT(1,J)\r\n      T = SMAT(2,J)\r\n      V = SMAT(3,J)\r\n      IF (ABS(Q)  .LE. RM) GO TO 500\r\n      RX = V - T*R/Q\r\n      IF (ABS(RX) .LE. RM) GO TO 490\r\n      RZ =-(S - T*P/Q)/RX\r\n      RY =-(P + R*RZ)/Q\r\n  485 X  = 1.0 + RZ*RZ + RY*RY\r\n      DCOS(1,I) = 1.0/SQRT(X)\r\n      DCOS(2,I) = RY*DCOS(1,I)\r\n      DCOS(3,I) = RZ*DCOS(1,I)\r\n      GO TO 600\r\n  490 RX = S - T*P/Q\r\n      IF (ABS(RX) .LE. RM) GO TO 580\r\n      RY =-R/Q\r\n      X  = 1.0 + RY*RY\r\n      DCOS(1,I) = 0.0\r\n      DCOS(3,I) = 1.0/SQRT(X)\r\n      DCOS(2,I) = RY*DCOS(3,I)\r\n      GO TO 600\r\n  500 IF (ABS(R) .LE. RM) GO TO 520\r\n      RZ = -P/R\r\n      IF (ABS(T) .LE. RM) GO TO 510\r\n      RY =-(S - V*P/R)/T\r\n      GO TO 485\r\n  510 IF (ABS(S-V*P/R) .LE. RM) GO TO 580\r\n      DCOS(1,I) = 0.0\r\n      DCOS(2,I) = 1.0\r\n      DCOS(3,I) = 0.0\r\n      GO TO 600\r\n  520 IF (ABS(P) .LE. RM) GO TO 580\r\n      IF (ABS(V) .LE. RM) GO TO 530\r\n      RZ =-T/V\r\n      X  = 1.0 + RZ*RZ\r\n      DCOS(1,I) = 0.0\r\n      DCOS(2,I) = 1.0/SQRT(X)\r\n      DCOS(3,I) = RZ*DCOS(2,I)\r\n      GO TO 600\r\n  530 IF (ABS(T) .LE. RM) GO TO 580\r\n      DCOS(1,I) = 0.0\r\n      DCOS(2,I) = 0.0\r\n      DCOS(3,I) = 1.0\r\n      GO TO 600\r\n  580 DCOS(1,I) = 0.0\r\n      DCOS(2,I) = 0.0\r\n      DCOS(3,I) = 0.0\r\n  600 CONTINUE\r\n      IPTS = 0\r\n      IF (ELTYPE .EQ. 67) IPTS = 1\r\nC                   IHEX3\r\n      Z(5) = SA\r\n      Z(9) = SN\r\n      Z(10)= SO\r\n      Z(IPTS+13) = SB\r\n      Z(IPTS+19) = SC\r\n      DO 610 I = 1,3\r\n      Z(      5+I) = DCOS(1,I)\r\n      Z(IPTS+13+I) = DCOS(2,I)\r\n      Z(IPTS+19+I) = DCOS(3,I)\r\n  610 CONTINUE\r\n      GO TO 395\r\nC\r\nC     PERFORM NRL SUMS\r\nC\r\n  390 DO 393 I = I1,I2,I3\r\n      SUM  = 0.\r\n      RMAX = 0.\r\n      DO 392 J = 1,NMODES\r\n      ISUB = NWDS*(J-1) + I\r\n      SUM  = SUM + Z(ISUB)**2\r\n      IF (ABS(Z(ISUB)) .GT. RMAX) RMAX = ABS(Z(ISUB))\r\n  392 CONTINUE\r\n      IF (SQRSS .EQ. 1) RMAX = 0.\r\n      SUM = SUM  - RMAX**2\r\n      SUM = RMAX + SQRT(SUM)\r\n      Z(I)= SUM\r\n  393 CONTINUE\r\nC\r\n      GO TO IRET, (55,65,66,75,85,115,116,165,205,215,221,222,223,395)\r\nC\r\nC     WRITE NRL SUMS TO APPROPRIATE SCRATCH FILE\r\nC\r\n  395 IZ(1) = I5\r\n      CALL WRITE (ISCR,Z,NWDS,0)\r\nC\r\n  400 CONTINUE\r\nC\r\nC     DONE WITH THIS ELEMENT.  SINCE WE ARE WRITING IN SORT1, EOR IS\r\nC     NEEDED ON SCRATCH FILE ONLY IF ELEMENT TYPE CHANGES.  THIS WILL BE\r\nC     CHECKED ABOVE.  SKIP EOR ON OES2 AND GO BACK.\r\nC\r\n      FILE = IFIL\r\n      CALL FWDREC (*1002,IFIL)\r\n      GO TO 30\r\nC\r\nC     EOF ON OES2.  WRITE EOR ON SCRATCH FILE AND COPY THEM TO OUTPUT\r\nC     DATA BLOCK.\r\nC\r\n  410 CALL CLOSE (IFIL,1)\r\nC\r\n      DO 415 I = 2,7\r\n  415 MCB(I) = 1\r\n      DO 420 I = 1,NSHOCK\r\n      CALL WRITE (SCR(I),0,0,1)\r\n      CALL CLOSE (SCR(I),1)\r\n      MCB(1) = SCR(I)\r\n      CALL WRTTRL (MCB)\r\n  420 CONTINUE\r\nC\r\n      LCORE = BUF2 - 1\r\n      CALL GOPEN (OFIL,Z(BUF1),1)\r\n      DO 700 I = 1,NSHOCK\r\n      CALL GOPEN (SCR(I),Z(BUF2),0)\r\nC\r\n  430 CALL READ (*690,*440,SCR(I),Z,LCORE,0,IWORDS)\r\n      CALL WRITE (OFIL,Z,LCORE,0)\r\n      GO TO 430\r\nC\r\nC     EOR\r\nC\r\n  440 CALL WRITE (OFIL,Z,IWORDS,1)\r\n      GO TO 430\r\nC\r\nC     EOF\r\nC\r\n  690 CALL CLOSE (SCR(I),1)\r\nC\r\n  700 CONTINUE\r\nC\r\n      CALL CLOSE (OFIL,1)\r\n      MCB(1) = OFIL\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     GO BACK FOR FORCES\r\nC\r\n  710 IF (IFIL .EQ. OEF2) RETURN\r\n      IFIL = OEF2\r\n      OFIL = NRLFOR\r\n      GO TO 15\r\nC\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1003 N = -3\r\n      GO TO 1010\r\n 1008 N = -8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/nsinfo.f",
    "content": "      SUBROUTINE NSINFO (JUMP)\r\nC\r\nC     THIS ROUTINE READS AND PROCESSES DATA IN THE NASINFO FILE\r\nC\r\nC     JUMP = 2, NSINFO IS CALLED BY NASCAR TO OPEN NASINFO FILE AND\r\nC               PROCESS THE SYSTEM PRESET PARAMETERS IN THE 2ND SECTION\r\nC               OF THE FILE, AND THE BCD WORDS (USED ONLY BY NUMTYP\r\nC               SUBROUTINE) IN THE 3RD SECTION\r\nC     JUMP = 3, NSINFO IS CALLED BY TTLPGE TO PROCESS THE INSTALLATION-\r\nC               CENTER-TO-USER MESSAGES STORED IN THE 4TH SECTION OF\r\nC               THE NASINFO FILE\r\nC     JUMP = 4, NSINFO IS CALLED BY XCSA TO ECHO DIAG 48 MESSAGE STORED\r\nC               IN THE 5TH SECITON OF THE NASINFO FILE.\r\nC\r\nC     SINCE DIAG48 MAY NOT BE CALLED, NASINFO FILE IS CLOSED BY XCSA\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS    6/1990\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\nCWKBR 8/94 SUN INTEGER         NAME(2),NTAB(5),CARDX(4),CARD(20),DIAG48(4)                 \r\n      INTEGER         NAME(2),CARDX(4),CARD(20),DIAG48(4)           \r\n      REAL            TIME\r\nCWKBR CHARACTER*167   IFILE\r\n      CHARACTER*144   IFILE\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYS(100)\r\n      COMMON /NTIME / NT,TIME(16)\r\n      COMMON /OUTPUT/ DUM(64),PGHDG3(32)\r\n      COMMON /NUMTPX/ NBCD,BCD(1)\r\n      COMMON /BLANK / IBLNK(60)\r\n      EQUIVALENCE     (CARDX(1),CARD(1))\r\n      EQUIVALENCE     (SYS(1),SYSBUF), (SYS( 2),NOUT), (SYS( 9),NLPP  ),\r\n     1                (SYS(14),MXLNS), (SYS(19),EHCO), (SYS(31),HICORE),\r\n     2                (SYS(35),LPRUS), (SYS(37),LU  ), (SYS(36),NPRUS ),\r\n     3                (SYS(20),PLTOP), (SYS(92),DICT), (SYS(76),NOSBE ),\r\n     4                (SYS(77),BNDIT), (SYS(91),LPCH)\r\n      DATA    TTPG     / 0            /\r\nCWKBR 8/94 SUN DATA    EQU   , R  ,  S  ,  BNK      ,   EQUALS   , NAME         /\r\nCWKBR 8/94 SUN1        1H=   , 1HR,  1HS,  4H       ,   4H====   , 4HNSIN,2HFO  /\r\n      DATA    EQU   , S  ,  BNK      ,   EQUALS   , NAME         /\r\n     1        1H=   , 1HS,  4H       ,   4H====   , 4HNSIN,2HFO  /\r\n      \r\n      DATA    RELSE , TPG,  POP,  TIM,  MXL,   BSZ      , S3S   ,SKP3  /\r\n     1        4HELEA, 3HTPG,3HPOP,3HTIM,3HMXL, 3HBSZ    , 3HS3S ,0     /\r\n      DATA    LPP   , HIC,  BND,  ECH,  NOS,   PRU,  NPR,  PCH,  END   /\r\n     1        3HLPP , 3HHIC,3HBND,3HECH,3HNOS, 3HPRU,3HNPR,3HPCH,3HEND /\r\n      DATA    S88   , S89,  S90,  S92,  S94,   S96,  S97,  S98,  S99   /\r\n     1        3HS88 , 3HS89,3HS90,3HS92,3HS94, 3HS96,3HS97,3HS98,3HS99 /\r\n      DATA    DIAG48                         , DD   ,DIC  ,COD  ,KEY   /\r\n     1        4H D I, 4H A G, 4H   4, 2H 8   , 3H$. ,3HDIC,3HCOD,3HKEY /\r\nC\r\n      GO TO (550,200,350,400), JUMP\r\nC\r\nC     JUMP = 2\r\nC     ========\r\nC\r\nC     OPEN NASINFO FILE, AND SET LU, THE 37TH WORD OF /SYSTEM/\r\nC\r\nC     CURRENTLY 'NASINFO' IS USED FOR ALL MACHINES OF TYPE 5 AND HIGHER\r\nC\r\n 200  LU  = 99\r\n      CALL NASOPN (*280, LU, IFILE)\r\nC\r\nC     SEARCH FOR FIRST EQUAL-LINE\r\nC\r\n 210  READ (LU,220,ERR=275,END=275) CARDX\r\n 220  FORMAT (20A4)\r\n      IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 210\r\nC\r\nC     READ AND PROCESS THE 2ND SECTION OF NASINFO FILE\r\nC\r\n 230  READ (LU,235,END=500) SYMBOL,EQ,VALUE\r\n 235  FORMAT (A4,A1,I7)\r\n      IF (SYMBOL .EQ. BNK) GO TO 230\r\n      IF (EQ     .NE. EQU) GO TO 520\r\n      IF (SYMBOL .EQ. TIM) GO TO 250\r\n      IF (SYMBOL .EQ. END) GO TO 290\r\n      IF (VALUE  .EQ. -99) GO TO 230\r\n      IF (SYMBOL .EQ. S3S) GO TO 240\r\n      IF (SYMBOL .EQ. BSZ) SYSBUF  = VALUE\r\n      IF (SYMBOL .EQ. LPP) NLPP    = VALUE\r\n      IF (SYMBOL .EQ. HIC) HICORE  = VALUE\r\n      IF (SYMBOL .EQ. MXL) MXLNS   = VALUE\r\n      IF (SYMBOL .EQ. TPG) TTPG    = VALUE\r\n      IF (SYMBOL .EQ. ECH) ECHO    = VALUE\r\n      IF (SYMBOL .EQ. PCH) LPCH    = VALUE\r\n      IF (SYMBOL .EQ. DIC) DICT    = VALUE\r\n      IF (SYMBOL .EQ. BND) BNDIT   = VALUE\r\n      IF (SYMBOL .EQ. POP) PLTOP   = VALUE\r\n      IF (SYMBOL .EQ. PRU) LPRUS   = VALUE\r\n      IF (SYMBOL .EQ. NPR) NPRUS   = VALUE\r\n      IF (SYMBOL .EQ. NOS) NOSBE   = VALUE\r\n      IF (SYMBOL .EQ. COD) CODE    = VALUE\r\n      IF (SYMBOL .EQ. KEY) KEY     = VALUE\r\n      SYMB1 = KHRFN1(BNK,1,SYMBOL,1)\r\n      IF (SYMB1  .NE.   S) GO TO 230\r\n      IF (SYMBOL .EQ. S88) SYS(88) = VALUE\r\n      IF (SYMBOL .EQ. S89) SYS(89) = VALUE\r\n      IF (SYMBOL .EQ. S90) SYS(90) = VALUE\r\n      IF (SYMBOL .EQ. S92) SYS(92) = VALUE\r\n      IF (SYMBOL .EQ. S94) SYS(94) = VALUE\r\n      IF (SYMBOL .EQ. S96) SYS(96) = VALUE\r\n      IF (SYMBOL .EQ. S97) SYS(97) = VALUE\r\n      IF (SYMBOL .EQ. S98) SYS(98) = VALUE\r\n      IF (SYMBOL .EQ. S99) SYS(99) = VALUE\r\n      GO TO 230\r\nC\r\nC     SKIP JUMP 3 PRINTOUT\r\nC\r\n 240  SKP3 = 1\r\n      GO TO 230\r\nC\r\nC     READ IN 16 GINO TIME CONSTANTS (NT=16)\r\nC\r\n 250  IF (VALUE .NE. NT) GO TO 270\r\n      READ (LU,260,END=500) TIME\r\n 260  FORMAT (12X,8F7.2, /12X,8F7.2)\r\n      GO TO 230\r\n 270  READ (LU,235,END=500) SYMBOL\r\n      READ (LU,235,END=500) SYMBOL\r\n      GO TO 230\r\nC\r\nC     NASINFO DOES NOT EXIST (or IS WRITE-PROTECTED), SET LU TO ZERO\r\nC\r\n 275  CLOSE (UNIT=LU)\r\n      CALL MESAGE (2,0,NAME)\r\n 280  WRITE (NOUT, 285) IFILE\r\n 285  FORMAT ('0*** USER WARNING MESSAGE, UNABLE TO OPEN ',\r\n     *        'THE FOLLOWING NASINFO FILE -- '//\r\nCWKBR*        1X, A167/)\r\n     *        1X, A44/)\r\n      LU = 0\r\n      GO TO 550\r\nC\r\nC     READ PASS THE 2ND EQUAL-LINE. CONTINUE INTO 3RD SECTION\r\nC\r\n 290  READ (LU,220,END=500) CARDX\r\n      IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 290\r\nC\r\nC\r\nC     THIS 3RD SECTION CONTAINS BCD WORDS WHICH ARE REALLY REAL NUMBERS.\r\nC     (THE BINARY REPRESENTATIONS OF SOME REAL NUMBERS AND THEIR\r\nC     CORRESPONDING BCD WORDS ARE EXACTLY THE SAME. SUBROUTINE NUMTYP\r\nC     MAY IDENTIFY THEM AS TYPE BCD. ANY WORD ON THE BCD LIST WILL BE\r\nC     REVERTED BACK TO AS TYPE REAL. THE LIST IS MACHINE DEPENDENT)\r\nC\r\nC     SKIP FIRST 5 COMMENT LINES\r\nC\r\n      READ (LU,220,END=500)\r\n      READ (LU,220)\r\n      READ (LU,220)\r\n      READ (LU,220)\r\n      READ (LU,220)\r\nC\r\n 300  READ (LU,305,END=500) MACHX,NBCD\r\n 305  FORMAT (I2,I3)\r\n      IF (MACHX .EQ. MACH) GO TO 320\r\n      IF (NBCD .EQ. 0) GO TO 300\r\n      DO 310 I = 1,NBCD,19\r\n      READ (LU,325)\r\n 310  CONTINUE\r\n      GO TO 300\r\n 320  IF (NBCD .EQ. 0) GO TO 340\r\n      JB = 1\r\n      DO 330 I = 1,NBCD,19\r\n      JE = JB + 18\r\n      READ (LU,325) (BCD(J),J=JB,JE)\r\n 325  FORMAT (5X,19(A4,1X))\r\n 330  CONTINUE\r\nC\r\nC     READ PASS THE 3RD EQUAL-LINE, THEN RETURN\r\nC\r\n 340  READ (LU,220,END=500) CARDX\r\n      IF (CARD(1).NE.EQUALS .AND. CARD(2).NE.EQUALS) GO TO 340\r\n      IF (TTPG .NE. 0) JUMP = TTPG\r\n      GO TO 550\r\nC\r\nC     JUMP = 3\r\nC     ========\r\nC\r\nC     READ AND ECHO OUT INSTALLATION-CENTER-TO-USER MESSAGES, SAVED IN\r\nC     THE 4TH SECTION OF NASINFO FILE\r\nC     TERMINATE MESSAGES BY THE LAST EQUAL-LINE.\r\nC\r\nC     IN THIS MESSAGE SECTION ONLY, SKIP INPUT LINE IF A '$.  ' SYMBOL\r\nC     IS IN FIRST 4 COLUMNS.\r\nC\r\n 350  IF (LU.EQ.0 .OR. SKP3.EQ.1) GO TO 550\r\n      CALL PAGE1\r\n 360  READ (LU,220,END=500) CARD\r\n      IF (CARD(1) .EQ.     DD) GO TO 360\r\n      IF (CARD(1) .NE. EQUALS) GO TO 380\r\n      IF (CARD(2) .EQ. EQUALS) GO TO 550\r\n      CALL PAGE1\r\n      WRITE  (NOUT,370)\r\n 370  FORMAT (//)\r\n      GO TO 360\r\n 380  WRITE  (NOUT,390) CARD\r\n 390  FORMAT (25X,20A4)\r\n      GO TO 360\r\nC\r\nC     JUMP = 4\r\nC     ========\r\nC\r\nC     PROCESS DIAG48 MESSAGE, SAVED IN THE 5TH SECTION OF NASINFO FILE\r\nC\r\n 400  CALL SSWTCH (20,L20)\r\n      IF (LU .EQ. 0) GO TO 480\r\n      DO 410 I = 10,20\r\n 410  PGHDG3(I) = BNK\r\n      PGHDG3(6) = DIAG48(1)\r\n      PGHDG3(7) = DIAG48(2)\r\n      PGHDG3(8) = DIAG48(3)\r\n      PGHDG3(9) = DIAG48(4)\r\n      LINE  = NLPP + 1\r\n      COUNT = 0\r\nC\r\nC     READ AND PRINT RELEASE NEWS\r\nC     PRINT LAST TWO YEARS OF NEWS ONLY, IF DIAG 20 IS ON\r\nC     (MECHANISM - GEAR TO THE 'nn RELEASE' LINE AND '========' LINES)\r\nC\r\n      ONE = 1\r\n      IF (L20 .EQ. 1) ONE = 0\r\n 420  READ (LU,220,END=540) CARD\r\n      IF (CARD(1).EQ.EQUALS .AND. CARD(2).EQ.EQUALS) GO TO 470\r\n      IF (ONE .EQ. -1) GO TO 440\r\n      IF (CARD(2).NE.RELSE  .OR.  CARD(4).NE.   BNK) GO TO 440\r\n      COUNT = COUNT + ONE\r\n      IF (COUNT .LE. 2) GO TO 440\r\n 430  READ (LU,220,END=540) CARDX\r\n      IF (CARD(1).NE.EQUALS .OR. CARD(2).NE.EQUALS) GO TO 430\r\n      GO TO 470\r\n 440  IF (LINE .LT. NLPP) GO TO 460\r\n      CALL PAGE1\r\n      IF (LINE .EQ. NLPP) GO TO 450\r\n      LINE = 3\r\n      GO TO 460\r\n 450  WRITE (NOUT,370)\r\n      LINE = 5\r\n 460  LINE = LINE + 1\r\n      WRITE (NOUT,390) CARD\r\n      GO TO 420\r\nC\r\nC     READ AND PRINT THE REST OF SECTION 5\r\nC\r\n 470  IF (ONE .EQ. -1) GO TO 540\r\n      ONE  = -1\r\n      LINE = NLPP + 1\r\n      GO TO 420\r\nC\r\n 480  WRITE  (NOUT,490) UIM\r\n 490  FORMAT (A29,', DIAG48 MESSAGES ARE NOT AVAILABLE DUE TO ABSENCE ',\r\n     1       'OF THE NASINFO FILE')\r\n      GO TO 540\r\nC\r\nC     ERROR\r\nC\r\n 500  WRITE  (NOUT,510) SFM\r\n 510  FORMAT (A25,' 3002, EOF ENCOUNTERED WHILE READING NASINFO FILE')\r\n      STOP 'JOB TERMINATED IN SUBROUTINE NSINFO'\r\n 520  WRITE  (NOUT,530) SYMBOL,EQ,VALUE\r\n 530  FORMAT ('0*** ERROR IN NASINFO FILE - LINE - ',A4,A1,I7)\r\n      GO TO 230\r\nC\r\n 540  IF (L20 .EQ. 0) GO TO 550\r\n      CLOSE (UNIT=LU)\r\n      CALL PEXIT\r\n 550  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/number.f",
    "content": "      SUBROUTINE NUMBER (SND,NUM,NDSTK,LVLS2,NDEG,RENUM,LVLST,LSTPT,\r\n     1           NFLG,IBW2,IPF2,IPFA,ISDIR,STKA,STKB,STKC,STKD,NU,IDIM)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     NUMBER PRODUCES THE NUMBERING OF THE GRAPH FOR MIN BANDWIDTH\r\nC\r\nC     SND-      ON INPUT THE NODE TO BEGIN NUMBERING ON\r\nC     NUM-      ON INPUT AND OUTPUT, THE NEXT AVAILABLE NUMBER\r\nC     LVLS2-    THE LEVEL STRUCTURE TO BE USED IN NUMBERING\r\nC     RENUM-    THE ARRAY USED TO STORE THE NEW NUMBERING\r\nC     LVLST-    ON OUTPUT CONTAINS LEVEL STRUCTURE\r\nC     LSTPT(I)- ON OUTPUT, INDEX INTO LVLST TO FIRST NODE IN ITH LVL\r\nC               LSTPT(I+1) - LSTPT(I) = NUMBER OF NODES IN ITH LVL\r\nC     NFLG-     =+1 IF SND IS FORWARD END OF PSEUDO-DIAM\r\nC               =-1 IF SND IS REVERSE END OF PSEUDO-DIAM\r\nC     IBW2-     BANDWIDTH OF NEW NUMBERING COMPUTED BY NUMBER\r\nC     IPF2-     PROFILE OF NEW NUMBERING COMPUTED BY NUMBER\r\nC     IBW2 AND IPF2 HERE DO NOT INCLUDE DIAGONAL TERMS.\r\nC     IPFA-     WORKING STORAGE USED TO COMPUTE PROFILE AND BANDWIDTH\r\nC     ISDIR-    INDICATES STEP DIRECTION USED IN NUMBERING(+1 OR -1)\r\nC     STACKS HAVE DIMENSION OF IDIM\r\nC     NU-       WORK SPACE FOR BUNPAK\r\nC\r\n      INTEGER          SND,      STKA,     STKB,     STKC,     STKD,\r\n     1                 XA,       XB,       XC,       XD,       END,\r\n     2                 CX,       RENUM,    TEST\r\n      DIMENSION        STKA(1),  STKB(1),  STKC(1),  STKD(1),  LVLS2(1),\r\n     1                 NDEG(1),  RENUM(1), LVLST(1), LSTPT(1), NU(1),\r\n     2                 IPFA(1),  NDSTK(1)\r\n      COMMON /BANDB /  DUM3(3),  NGRID\r\n      COMMON /BANDG /  N,        IDPTH,    IDEG\r\n      COMMON /BANDS /  DUMS(4),  MAXGRD,   MAXDEG\r\n      COMMON /SYSTEM/  IBUF,     NOUT\r\nC\r\nC     SET UP LVLST AND LSTPT FROM LVLS2\r\nC\r\n      DO 10 I=1,N\r\n   10 IPFA(I)=0\r\n      NSTPT=1\r\n      DO 15 I=1,IDPTH\r\n      LSTPT(I)=NSTPT\r\n      DO 15 J=1,N\r\n      IF (LVLS2(J).NE.I) GO TO 15\r\n      LVLST(NSTPT)=J\r\n      NSTPT=NSTPT+1\r\n   15 CONTINUE\r\n      LSTPT(IDPTH+1)=NSTPT\r\nC\r\nC     THIS ROUTINE USES FOUR STACKS, A,B,C,AND D, WITH POINTERS\r\nC     XA,XB,XC, AND XD.  CX IS A SPECIAL POINTER INTO STKC WHICH\r\nC     INDICATES THE PARTICULAR NODE BEING PROCESSED.\r\nC     LVLN KEEPS TRACK OF THE LEVEL WE ARE WORKING AT.\r\nC     INITIALLY STKC CONTAINS ONLY THE INITIAL NODE, SND.\r\nC\r\n      LVLN=0\r\n      IF (NFLG.LT.0) LVLN=IDPTH+1\r\n      XC=1\r\n      STKC(XC)=SND\r\n   20 CX=1\r\n      XD=0\r\n      LVLN=LVLN+NFLG\r\n      LST=LSTPT(LVLN)\r\n      LND=LSTPT(LVLN+1)-1\r\nC\r\nC     BEGIN PROCESSING NODE STKC(CX)\r\nC\r\n   25 IPRO=STKC(CX)\r\n      RENUM(IPRO)=NUM\r\n      NUM=NUM+ISDIR\r\n      END=NDEG(IPRO)\r\n      XA=0\r\n      XB=0\r\nC\r\nC     CHECK ALL ADJACENT NODES\r\nC\r\n      CALL BUNPAK(NDSTK,IPRO,END,NU)\r\n      DO 40 I=1,END\r\n      TEST =NU(I)\r\n      INX=RENUM(TEST)\r\nC\r\nC     ONLY NODES NOT NUMBERED OR ALREADY ON A STACK ARE ADDED\r\nC\r\n      IF (INX.EQ.0) GO TO 30\r\n      IF (INX.LT.0) GO TO 40\r\nC\r\nC     DO PRELIMINARY BANDWIDTH AND PROFILE CALCULATIONS\r\nC\r\n      NBW=(RENUM(IPRO)-INX)*ISDIR\r\n      IF (ISDIR.GT.0) INX=RENUM(IPRO)\r\n      IF (IPFA(INX).LT.NBW) IPFA(INX)=NBW\r\n      GO TO 40\r\n   30 RENUM(TEST)=-1\r\nC\r\nC     PUT NODES ON SAME LEVEL ON STKA, ALL OTHERS ON STKB\r\nC\r\n      IF (LVLS2(TEST).EQ.LVLS2(IPRO)) GO TO 35\r\n      XB=XB+1\r\n      IF (XB.GT.IDIM) GO TO 100\r\n      STKB(XB)=TEST\r\n      GO TO 40\r\n   35 XA=XA+1\r\n      IF (XA.GT.IDIM) GO TO 100\r\n      STKA(XA)=TEST\r\n   40 CONTINUE\r\nC\r\nC     SORT STKA AND STKB INTO INCREASING DEGREE AND ADD STKA TO STKC\r\nC     AND STKB TO STKD\r\nC\r\n      IF (XA.EQ.0) GO TO 50\r\n      IF (XA.EQ.1) GO TO 45\r\n      CALL SORTDG (STKC,STKA,XC,XA,NDEG)\r\n      GO TO 50\r\n   45 XC=XC+1\r\n      IF (XC.GT.IDIM) GO TO 100\r\n      STKC(XC)=STKA(XA)\r\n   50 IF (XB.EQ.0) GO TO 65\r\n      IF (XB.EQ.1) GO TO 60\r\n      CALL SORTDG (STKD,STKB,XD,XB,NDEG)\r\n      GO TO 65\r\n   60 XD=XD+1\r\n      IF (XD.GT.IDIM) GO TO 100\r\n      STKD(XD)=STKB(XB)\r\nC\r\nC     BE SURE TO PROCESS ALL NODES IN STKC\r\nC\r\n   65 CX=CX+1\r\n      IF (XC.GE.CX) GO TO 25\r\nC\r\nC     WHEN STKC IS EXHAUSTED LOOK FOR MIN DEGREE NODE IN SAME LEVEL\r\nC     WHICH HAS NOT BEEN PROCESSED\r\nC\r\n      MAX=IDEG+1\r\n      SND=N+1\r\n      DO 70 I=LST,LND\r\n      TEST=LVLST(I)\r\n      IF (RENUM(TEST).NE. 0) GO TO 70\r\n      IF (NDEG(TEST).GE.MAX) GO TO 70\r\n      RENUM(SND)=0\r\n      RENUM(TEST)=-1\r\n      MAX=NDEG(TEST)\r\n      SND=TEST\r\n   70 CONTINUE\r\n      IF (SND.EQ.N+1) GO TO 75\r\n      XC=XC+1\r\n      IF (XC.GT.IDIM) GO TO 100\r\n      STKC(XC)=SND\r\n      GO TO 25\r\nC\r\nC     IF STKD IS EMPTY WE ARE DONE, OTHERWISE COPY STKD ONTO STKC\r\nC     AND BEGIN PROCESSING NEW STKC\r\nC\r\n   75 IF (XD.EQ.0) GO TO 90\r\n      DO 80 I=1,XD\r\n   80 STKC(I)=STKD(I)\r\n      XC=XD\r\n      GO TO 20\r\nC\r\nC     DO FINAL BANDWIDTH AND PROFILE CALCULATIONS\r\nC\r\n   90 DO 95 I=1,N\r\n      IF (IPFA(I).GT.IBW2) IBW2=IPFA(I)\r\n      IPF2=IPF2+IPFA(I)\r\n   95 CONTINUE\r\n      RETURN\r\nC\r\nC     DIMENSION EXCEEDED  . . .  STOP JOB.\r\nC\r\n  100 NGRID=-3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/odum.f",
    "content": "      SUBROUTINE ODUM (I1,IX,ITYPE,NMULT,NLINES,ID)\r\nC     OUTPUT DUMMY ROUTINE\r\n      IF (IX+IX+ITYPE .EQ. NMULT) NLINES=ID\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/odumx.f",
    "content": "      SUBROUTINE ODUMX (Z)\r\nC\r\n      ENTRY ODUM1 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM2 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM3 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM4 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM5 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM6 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM7 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM8 (Z)\r\n      GO TO 10\r\nC\r\n      ENTRY ODUM9 (Z)\r\nC\r\n   10 NOTUSE = Z\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofcomp.f",
    "content": "      SUBROUTINE OFCOMP (*,FILE,TYPE,ELTYP,IAPP,HEADNG,PNCHED,FORM)\r\nC\r\nC     OFP ROUTINE TO HANDLE PRINT AND PUNCH OF LAYERED COMPOSITE\r\nC     ELEMENT STRESSES AND FORCES.  CURRENTLY, THIS INVOLVES ONLY\r\nC     THE CQUAD4 AND CTRIA3 ELEMENTS.\r\nC\r\nC     FILE     = OUTPUT FILE UNDER PROCESSING\r\nC     TYPE     = TYPE OF DATA-  REAL   , SORT 1       = 1\r\nC                               COMPLEX, SORT 1       = 2\r\nC                               REAL   , SORT 2       = 3\r\nC                               COMPLEX, SORT 2       = 4\r\nC     ELTYP    = ELEMENT TYPE-  QUAD4                 = 64\r\nC                               TRIA3                 = 83\r\nC     IAPP     = SOLUTION TYPE\r\nC     HEADNG   = INDICATES PRINT HEADINGS ARE DONE FOR A PAGE\r\nC     PNCHED   = INDICATES PUNCH HEADINGS ARE DONE\r\nC     FORM     = DATA TYPE-     STRESSES              = 22\r\nC                               FORCES                = 23\r\nC                               STRAIN                = 21\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         HEAT,PNCHED,CMPXDT,SORT1,SORT2,HEADNG,MAGPHA,\r\n     1                QUAD4,TRIA3,STRESS,FORCE,STRN\r\n      INTEGER         IST(86),FILE,FLAG,NOUT,PUNCH,BUF(86),IBUF(3),\r\n     1                DEVICE,ANDF,HEAD,TYPE,ELTYP,FORM,STATIC,FREQ,\r\n     2                CEIG,ITITLE(32),ISUBTL(32),LABEL(32),ELEMID,\r\n     3                FAILTH,HILL(2),HOFFMN(2),TSAIWU(2),STRESF(2),\r\n     4                STRAIN(2),IFAIL(2),BLNK,ASTR,SUBST(3),\r\n     5                ID(50),OF(58)\r\nC     INTEGER         REIG,TRANS,BK1,ELEC\r\n      REAL            RST(86),RID(50),BUFR(86),RBUF(3)\r\nC     REAL            HARMON,PANGLE,BUFF(1)\r\n      CHARACTER*5     T3Q4,T3,Q4\r\n      COMMON /BLANK / ICARD\r\nC     COMMON /ZZOFPX/ L1,L2,L3,L4,L5,ID(50),HARMON,PANGLE,BUFF(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /OUTPUT/ HEAD(96)\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      EQUIVALENCE     (IST(1)    ,RST(1) ), (ID(1)     ,RID(1)  ),\r\n     1                (BUF(1)    ,BUFR(1)), (IBUF(1)   ,RBUF(1) ),\r\n     2                (IFAIL(1)  ,FAILMX ), (IFAIL(2)  ,MAXFLG  ),\r\n     3                (KSYSTM(2) ,NOUT   ), (KSYSTM(9) ,MAXLNS  ),\r\n     4                (KSYSTM(12),LINE   ), (KSYSTM(33),IFLG    ),\r\n     5                (KSYSTM(56),ITHERM ), (KSYSTM(69),ISUBS   ),\r\n     6                (KSYSTM(91),PUNCH  ), (HEAD( 1) ,ITITLE(1)),\r\n     7                (HEAD(65) ,LABEL(1)), (HEAD(33) ,ISUBTL(1)),\r\n     8                (L1, OF(1) ,CORE(1)), (L2,OF(2)),(L3,OF(3)),\r\n     9                (ID(1)     ,OF  (6)), (L4,OF(4)),(L5,OF(5))\r\nC     EQUIVALENCE     (HARMON    ,OF (56)), (PANGLE   ,OF   (57)),\r\nC    1                (BUFF(1)   ,OF (58))\r\nC\r\n      DATA  STATIC,FREQ,CEIG    / 1 , 5 , 9      /\r\nC     DATA  REIG,TRANS,BK1,ELEC / 2 , 6 , 8 , 11 /\r\n      DATA  HILL  ,       HOFFMN,       TSAIWU,       STRESF       /\r\n     1      4H   H,4HILL ,4HHOFF,4HMAN ,4HTSAI,4H-WU ,4H STR,4HESS /\r\n      DATA  STRAIN       /4H STR,4HAIN /\r\n      DATA  BLNK  ,ASTR  /4H    ,4H  * /\r\n      DATA  SUBST        /4HSUBS,4HTRUC,4HTURE /\r\n      DATA  T3Q4, T3, Q4 /' ', 'TRIA3', 'QUAD4'/\r\nC\r\nC     INITIALIZE\r\nC\r\n      CMPXDT = TYPE.EQ.2 .OR. TYPE.EQ.4\r\n      SORT1  = TYPE  .LE. 2\r\n      SORT2  = TYPE  .GT. 2\r\n      HEAT   = ITHERM.EQ. 1\r\n      MAGPHA = ID(9).EQ.3 .AND. (IAPP.EQ.FREQ .OR. IAPP.EQ.CEIG)\r\n      QUAD4  = ELTYP .EQ. 64\r\n      TRIA3  = ELTYP .EQ. 83\r\n      STRESS = FORM  .EQ. 22\r\n      FORCE  = FORM  .EQ. 23\r\n      STRN   = FORM  .EQ. 21\r\n      IF (HEAT .OR. SORT2 .OR. CMPXDT) GO TO 1800\r\nC\r\nC     GET THE DEVICE CODE IF SORT=2,  1=PRINT  2=POST  4=PUNCH\r\nC\r\n      IF (SORT1) GO TO 10\r\n      IDD = ID(5)/10\r\n      DEVICE = ID(5) - 10*IDD\r\n      IDEVCE = DEVICE\r\n      ID(5)  = IDD\r\n      ELEMID = IDD\r\n   10 CONTINUE\r\nC\r\nC     GET THE NUMBER OF OUTPUT WORDS PER ELEMENT.\r\nC\r\n      NWDS = ID(10)\r\n      IF (NWDS .EQ. 0) GO TO 1800\r\n      IF (FORCE) GO TO 40\r\nC\r\nC     ********************\r\nC     ******* READ *******\r\nC     ********************\r\nC\r\n   20 CALL READ (*1910,*1800,FILE,IST(1),3,0,FLAG)\r\n      IF (SORT1) ELEMID = IST(1)\r\n      IF (SORT2) TIME = RST(1)\r\n      NLAYER = IST(2)\r\n      FAILTH = IST(3)\r\n      IPLY = 0\r\n   30 IPLY = IPLY + 1\r\n      IF (IPLY .GT. NLAYER) GO TO 20\r\nC\r\n   40 CALL READ (*1910,*1900,FILE,IST(1),NWDS,0,FLAG)\r\n      IF (STRESS .AND. IPLY.EQ.NLAYER)\r\n     1    CALL READ (*1910,*1910,FILE,IFAIL,2,0,FLAG)\r\n      IF (FORCE) ELEMID = IST(1)\r\nC\r\nC     GET THE DEVICE CODE IF SORT=1,   1=PRINT  2=POST  4=PUNCH\r\nC\r\n      IF (SORT2) GO TO 100\r\n      IF (STRESS .AND. IPLY.GT.1) GO TO 100\r\n      ITEMP  = ELEMID / 10\r\n      DEVICE = ELEMID - 10*ITEMP\r\n      IDEVCE = DEVICE\r\n      ELEMID = ITEMP\r\nC\r\nC     *********************\r\nC     ******* PUNCH *******\r\nC     *********************\r\nC\r\n  100 IF (DEVICE .LT. 4) GO TO 820\r\nC\r\nC     TAKE OUT INDEX FAILURE FLAGS FOR STRESSES\r\nC\r\n      NUMWDS = NWDS\r\n      IF (STRESS) NUMWDS = NUMWDS - 2\r\n      DO 110 II=1,NWDS\r\n  110 BUF(II) = IST(II)\r\n      IF (FORCE) GO TO 120\r\n      BUF(6) = BUF(7)\r\n      BUF(7) = BUF(8)\r\n      BUF(8) = BUF(9)\r\n  120 CONTINUE\r\nC\r\n      IF (PNCHED) GO TO 500\r\nC\r\nC     PUNCH HEADINGS - TITLE, SUBTITLE, AND LABEL\r\nC\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,130) (ITITLE(J),J=1,15),ICARD\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,140) (ISUBTL(J),J=1,15),ICARD\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,150) ( LABEL(J),J=1,15),ICARD\r\n  130 FORMAT (10H$TITLE   =,15A4,2X,I8)\r\n  140 FORMAT (10H$SUBTITLE=,15A4,2X,I8)\r\n  150 FORMAT (10H$LABEL   =,15A4,2X,I8)\r\nC\r\nC     IF SUBSTRUCTURE (PHASE2) EXTRACTED ALSO SUBS-NAME AND COMPONENT\r\nC\r\n      IF (ISUBS .EQ. 0) GO TO 170\r\n      IF (ISUBTL(20).NE.SUBST(1) .OR. ISUBTL(21).NE.SUBST(2) .OR.\r\n     1    ISUBTL(22).NE.SUBST(3)) GO TO 170\r\n      ICARD = ICARD + 1\r\n      WRITE (PUNCH,160) (ISUBTL(J),J=20,26),ICARD\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,160) ( LABEL(J),J=20,26),ICARD\r\n  160 FORMAT (1H$,7A4,43X,I8)\r\nC\r\n  170 ICARD = ICARD + 1\r\n      IF (STRESS) WRITE (PUNCH,190) ICARD\r\n      IF (FORCE ) WRITE (PUNCH,180) ICARD\r\n  180 FORMAT (15H$ELEMENT FORCES,57X,I8)\r\n  190 FORMAT (17H$ELEMENT STRESSES,55X,I8)\r\nC\r\nC     REAL, REAL/IMAGINARY, MAGNITUDE/PHASE\r\nC\r\n      ICARD = ICARD + 1\r\n      IF (CMPXDT) GO TO 200\r\n      WRITE  (PUNCH,220) ICARD\r\n      GO TO 250\r\n  200 IF (MAGPHA) GO TO 210\r\n      WRITE  (PUNCH,230) ICARD\r\n      GO TO 250\r\n  210 WRITE  (PUNCH,240) ICARD\r\n  220 FORMAT (12H$REAL OUTPUT,60X,I8)\r\n  230 FORMAT (22H$REAL-IMAGINARY OUTPUT,50X,I8)\r\n  240 FORMAT (23H$MAGNITUDE-PHASE OUTPUT,49X,I8)\r\nC\r\nC     SUBCASE OR ELEMENT ID\r\nC\r\n  250 ICARD = ICARD + 1\r\n      IF (SORT2) GO TO 260\r\n      WRITE  (PUNCH,280) ID(4),ICARD\r\n      GO TO 270\r\n  260 WRITE  (PUNCH,290) ELEMID,ICARD\r\n  270 CONTINUE\r\n  280 FORMAT (13H$SUBCASE ID =,I12,47X,I8)\r\n  290 FORMAT (13H$ELEMENT ID =,I10,49X,I8)\r\nC\r\nC     PUNCH ELEMENT TYPE NUMBER,\r\nC     IT IS SWITCHED TO MATCH THOSE OF POST PROCESSOR.\r\nC\r\n      ICARD  = ICARD + 1\r\n      IELTYP = ID(3)\r\n      T3Q4   = T3\r\n      IF (IELTYP .EQ. 64) T3Q4 = Q4\r\n      WRITE  (PUNCH,300) IELTYP,T3Q4,ICARD\r\n  300 FORMAT (15H$ELEMENT TYPE =,I12,4H   (,A5,1H),37X,I8)\r\nC\r\nC     EIGENVALUE, FREQUENCY, OR TIME\r\nC\r\n      GO TO (480,400,480,480,440,450,480,400,400,480,480), IAPP\r\nC\r\nC     PUNCH EIGENVALUE\r\nC\r\n  400 ICARD = ICARD + 1\r\n      IF (SORT1 .AND. CMPXDT) GO TO 410\r\n      WRITE  (PUNCH,420) RID(6),ID(5),ICARD\r\n      GO TO 480\r\n  410 WRITE  (PUNCH,430) RID(6),RID(7),ID(5),ICARD\r\n      GO TO 480\r\n  420 FORMAT (13H$EIGENVALUE =,E15.7,2X,6HMODE =,I6,30X,I8)\r\n  430 FORMAT (15H$EIGENVALUE = (,E15.7,1H,,E15.7,8H) MODE =,I6,12X,I8)\r\nC\r\nC     FREQUENCY OR TIME\r\nC\r\n  440 IF (SORT2) GO TO 480\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,460) RID(5),ICARD\r\n      GO TO 480\r\n  450 IF (SORT2) GO TO 480\r\n      ICARD = ICARD + 1\r\n      WRITE  (PUNCH,470) RID(5),ICARD\r\n  460 FORMAT (12H$FREQUENCY =,E16.7,44X,I8)\r\n  470 FORMAT (7H$TIME =,E16.7,49X,I8)\r\nC\r\n  480 PNCHED = .TRUE.\r\nC\r\nC     PUNCH HEADINGS COMPLETE\r\nC\r\n  500 ICARD = ICARD + 1\r\nC\r\nC     ELEMENT STRESSES,  FIRST SUB-RECORD\r\nC\r\n      IF (FORCE) GO TO 570\r\n      IF (IPLY .LE. 1) GO TO 520\r\n      WRITE  (PUNCH,510) BUF(1),BUFR(2),BUFR(3),ICARD\r\n  510 FORMAT (6H-CONT-,12X,I10,8X,2(1P,E18.6),I8)\r\n      GO TO 560\r\nC\r\n  520 IF (SORT2 .AND. IAPP.NE.STATIC) GO TO 540\r\nC\r\nC     FIRST CARD BEGINS WITH AN INTEGER\r\nC\r\n      WRITE  (PUNCH,530) ELEMID,BUF(1),BUFR(2),BUFR(3),ICARD\r\n  530 FORMAT (I10,8X,I10,8X,2(1P,E18.6),I8)\r\n      GO TO 560\r\nC\r\nC     FIRST CARD BEGINS WITH A REAL\r\nC\r\n  540 WRITE  (PUNCH,550) TIME,BUF(1),BUFR(2),BUFR(3),ICARD\r\n  550 FORMAT (1P,E18.6,I10,8X,2(1P,E18.6),I8)\r\n  560 NWORD = 3\r\n      GO TO 620\r\nC\r\nC     ELEMENT FORCES,  FIRST SUB-RECORD\r\nC\r\n  570 IF (SORT2 .AND. IAPP.NE.STATIC) GO TO 590\r\nC\r\nC     FIRST CARD BEGINS WITH AN INTEGER\r\nC\r\n      WRITE  (PUNCH,580) BUF(1),BUFR(2),BUFR(3),BUFR(4),ICARD\r\n  580 FORMAT (I10,8X,3(1P,E18.6),I8)\r\n      GO TO 610\r\nC\r\nC     FIRST CARD BEGINS WITH A REAL\r\nC\r\n  590 WRITE  (PUNCH,600) BUFR(1),BUFR(2),BUFR(3),BUFR(4),ICARD\r\n  600 FORMAT (4(1P,E18.6),I8)\r\n  610 NWORD = 4\r\nC\r\n  620 LENGTH = 8\r\nC\r\nC     SUBSEQUENT SUB-RECORDS\r\nC\r\n  700 LEFT = NUMWDS - NWORD\r\n      IF (LEFT .GT. 0) GO TO 710\r\n      IF (SORT1) GO TO 810\r\n      GO TO 820\r\nC\r\nC     PUNCH THE SUB-RECORDS\r\nC\r\n  710 IF (NWORD .GE. LENGTH) GO TO 700\r\n      ICARD = ICARD + 1\r\n      NWORD = NWORD + 3\r\n      JOUT  = 3\r\n      IF (NWORD .LE. LENGTH) GO TO  720\r\n      NWORD = NWORD - 1\r\n      JOUT  = 2\r\n      IF (NWORD .EQ. LENGTH) GO TO  720\r\n      NWORD = NWORD - 1\r\n      JOUT  = 1\r\nC\r\n  720 JJ = NWORD - JOUT + 1\r\n      DO 730 II = 1,JOUT\r\n      IBUF(II) = BUF(JJ)\r\n  730 JJ = JJ + 1\r\n      GO TO (740,760,780), JOUT\r\nC\r\nC     1 WORD OUT\r\nC\r\n  740 WRITE  (PUNCH,750) RBUF(1),ICARD\r\n  750 FORMAT (6H-CONT-,12X,1P,E18.6,36X,I8)\r\n      GO TO 800\r\nC\r\nC     2 WORDS OUT\r\nC\r\n  760 IF (IPLY .LT. NLAYER) WRITE (PUNCH,770) RBUF(1),RBUF(2),ICARD\r\n      IF (IPLY .EQ. NLAYER) WRITE (PUNCH,775) RBUF(1),RBUF(2),RBUF(3),\r\n     1    ICARD\r\n  770 FORMAT (6H-CONT-,12X,1P,E18.6,0P,F18.4,18X,I8)\r\n  775 FORMAT (6H-CONT-,12X,1P,E18.6, 2(0P,F18.4),I8)\r\n      GO TO 800\r\nC\r\nC     3 WORDS OUT\r\nC\r\n  780 WRITE  (PUNCH,790) RBUF(1),RBUF(2),RBUF(3),ICARD\r\n  790 FORMAT (6H-CONT-,12X,1P,E18.6,0P,F18.4,1P,E18.6,I8)\r\n  800 IF (JOUT .LT. 3) GO TO 700\r\n      GO TO 710\r\nC\r\nC     END OF PUNCH, SEE IF PRINT IS REQUESTED\r\nC\r\n  810 IDEVCE = DEVICE - 4\r\n  820 IF (ANDF(IDEVCE,1) .NE. 0) GO TO 900\r\n      IF (STRESS) GO TO 30\r\n      GO TO 40\r\nC\r\nC     *********************\r\nC     ******* PRINT *******\r\nC     *********************\r\nC\r\nC     WRITE TITLES IF HAVE NOT DONE SO YET\r\nC\r\n  900 ICHECK = 0\r\n      IF (LINE.LE.MAXLNS-2 .AND. HEADNG) GO TO 910\r\n      IFLG = 1\r\n      CALL PAGE1\r\n      HEADNG = .TRUE.\r\n      ICHECK = 1\r\nC\r\nC     *** PRINT OF ELEMENT STRESSES ***\r\nC\r\n  910 IF (FORCE) GO TO 1500\r\nC\r\nC     BRANCH ON TYPE OF OUTPUT\r\nC\r\n      GO TO (920,1400,1410,1420), TYPE\r\nC\r\nC     *** REAL, SORT 1 ***\r\nC\r\n  920 IF (ICHECK .EQ. 0) GO TO 1200\r\n      GO TO (960,930,960,960,960,940,960,950,960,960,960), IAPP\r\nC\r\n  930 WRITE  (NOUT,970) ID(5),RID(8),RID(6)\r\n      GO TO 1010\r\n  940 WRITE  (NOUT,980) RID(5)\r\n      GO TO 1010\r\n  950 WRITE  (NOUT,990) RID(6)\r\n      GO TO 1010\r\n  960 WRITE  (NOUT,1000)\r\n  970 FORMAT (6X,'MODE NUMBER = ',I4,26X,'FREQUENCY = ',1P,E13.6,26X,\r\n     1       'EIGENVALUE = ',1P,E13.6)\r\n  980 FORMAT (6X,6HTIME =,1P,E14.6)\r\n  990 FORMAT (6X,12HEIGENVALUE =,1P,E14.6)\r\n 1000 FORMAT (1H )\r\nC\r\n 1010 CONTINUE\r\n      IF (QUAD4) GO TO 1020\r\n      IF (TRIA3) GO TO 1030\r\n      GO TO 1050\r\n 1020 WRITE  (NOUT,1070)\r\n      GO TO 1050\r\n 1030 WRITE  (NOUT,1080)\r\n      GO TO 1050\r\n 1050 WRITE  (NOUT,1100)\r\n      WRITE  (NOUT,1110)\r\n 1070 FORMAT (20X,'S T R E S S E S   I N   L A Y E R E D   ',\r\n     1        'C O M P O S I T E   E L E M E N T S   ( Q U A D 4 )')\r\n 1080 FORMAT (20X,'S T R E S S E S   I N   L A Y E R E D   ',\r\n     1        'C O M P O S I T E   E L E M E N T S   ( T R I A 3 )')\r\n 1100 FORMAT ('0 ELEMENT',3X,'PLY *STRESSES IN FIBER AND MATRIX',\r\n     1        ' DIRECTIONS*  *DIRECT FIBER *  *INTER-LAMINAR STRESS',\r\n     2        'ES*  * SHEAR BOND  *   *MAXIMUM*')\r\n 1110 FORMAT (4X, 'ID', 6X, 'ID  *  NORMAL-1', 6X, 'NORMAL-2', 6X,\r\n     1        'SHEAR-12 *  *FAILURE INDEX*  *SHEAR-1Z',6X,'SHEAR-2Z*',\r\n     2        '  *FAILURE INDEX*   * INDEX *',/)\r\nC\r\nC     WRITE THE DATA\r\nC     BUT FIRST, MODIFY THE FAILURE INDEX FLAGS FROM INTEGER TO BCD\r\nC\r\n 1200 IF (IST( 6) .EQ. 0) IST( 6) = BLNK\r\n      IF (IST( 6) .EQ. 1) IST( 6) = ASTR\r\n      IF (IST(10) .EQ. 0) IST(10) = BLNK\r\n      IF (IST(10) .EQ. 1) IST(10) = ASTR\r\nC\r\n      IF (IPLY .GT. 1) GO TO 1220\r\n      WRITE  (NOUT,1210) ELEMID,IST(1),(RST(K),K=2,5),IST(6),\r\n     1                                 (RST(K),K=7,9),IST(10)\r\n 1210 FORMAT (1H0,I8,2X,I4,3(1P,E14.5),2X,0P,F10.3,A4,2(1P,E14.5),\r\n     1        0P,F10.3,A4)\r\n      NLINES = 3\r\n      GO TO 1730\r\nC\r\n 1220 WRITE  (NOUT,1230) IST(1),(RST(K),K=2,5),IST(6),\r\n     1                          (RST(K),K=7,9),IST(10)\r\n 1230 FORMAT (11X,I4,3(1P,E14.5),2X,0P,F10.3,A4,2(1P,E14.5),0P,F10.3,A4)\r\n      NLINES = 1\r\n      IF (IPLY .LT. NLAYER) GO TO 1730\r\nC\r\nC     IF THE LAST LAYER, CHECK THE MAXIMUM FAILURE INDEX\r\nC\r\n      NLINES = 2\r\n      IF (MAXFLG .EQ. 0) MAXFLG = BLNK\r\n      IF (MAXFLG .EQ. 1) MAXFLG = ASTR\r\n      IF (FAILTH .NE. 0) GO TO (1250,1260,1270,1280,1290), FAILTH\r\n      FAILMX = 0.0\r\n      WRITE  (NOUT,1240) FAILMX\r\n 1240 FORMAT (1H ,116X,0P,F10.3)\r\n      GO TO 1730\r\n 1250 WRITE  (NOUT,1300) HILL(1),HILL(2),FAILMX,MAXFLG\r\n      GO TO 1730\r\n 1260 WRITE  (NOUT,1300) HOFFMN(1),HOFFMN(2),FAILMX,MAXFLG\r\n      GO TO 1730\r\n 1270 WRITE  (NOUT,1300) TSAIWU(1),TSAIWU(2),FAILMX,MAXFLG\r\n      GO TO 1730\r\n 1280 WRITE  (NOUT,1300) STRESF(1),STRESF(2),FAILMX,MAXFLG\r\n      GO TO 1730\r\n 1290 WRITE  (NOUT,1300) STRAIN(1),STRAIN(2),FAILMX,MAXFLG\r\n 1300 FORMAT (1H ,41X,2A4,'FAILURE THEORY WAS USED FOR THIS ELEMENT.',\r\n     1       26X,0P,F10.3,A4)\r\n      GO TO 1730\r\nC\r\nC     *** COMPLEX, SORT 1 ***\r\nC\r\n 1400 GO TO 1800\r\nC\r\nC     *** REAL, SORT 2 ***\r\nC\r\n 1410 GO TO 1800\r\nC\r\nC     *** COMPLEX, SORT 2 ***\r\nC\r\n 1420 GO TO 1800\r\nC\r\nC     *** PRINT OF ELEMENT FORCES ***\r\nC\r\n 1500 CONTINUE\r\nC\r\nC     BRANCH ON TYPE OF OUTPUT\r\nC\r\n      GO TO (1510,1700,1710,1720), TYPE\r\nC\r\nC     *** REAL, SORT 1 ***\r\nC\r\n 1510 IF (ICHECK .EQ. 0) GO TO 1670\r\n      GO TO (1550,1520,1550,1550,1550,1530,1550,1540,1550,1550,1550),\r\n     1       IAPP\r\nC\r\n 1520 WRITE (NOUT,970) ID(5),RID(8),RID(6)\r\n      GO TO 1560\r\n 1530 WRITE (NOUT,980) RID(5)\r\n      GO TO 1560\r\n 1540 WRITE (NOUT,990) RID(6)\r\n      GO TO 1560\r\n 1550 WRITE (NOUT,1000)\r\nC\r\n 1560 IF (QUAD4) GO TO 1570\r\n      IF (TRIA3) GO TO 1580\r\n      GO TO 1600\r\n 1570 WRITE  (NOUT,1620)\r\n      GO TO 1600\r\n 1580 WRITE  (NOUT,1630)\r\n      GO TO 1600\r\n 1600 WRITE  (NOUT,1650)\r\n      WRITE  (NOUT,1660)\r\n 1620 FORMAT (22X,'F O R C E S   I N   L A Y E R E D   C O M P O S ',\r\n     1        'I T E   E L E M E N T S   ( Q U A D 4 )'/)\r\n 1630 FORMAT (22X,'F O R C E S   I N   L A Y E R E D   C O M P O S ',\r\n     1        'I T E   E L E M E N T S   ( T R I A 3 )'/)\r\n 1650 FORMAT (6X,'ELEMENT',18X,'- MEMBRANE  FORCES -',22X,'- BENDING',\r\n     1        '   MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -')\r\n 1660 FORMAT (8X,'ID',16X,2HFX,12X,2HFY,12X,3HFXY,11X,\r\n     1        2HMX,12X,2HMY,12X,3HMXY,11X,2HVX,12X,2HVY)\r\nC\r\nC     WRITE THE DATA\r\nC\r\n 1670 WRITE  (NOUT,1680) ELEMID,(RST(K),K=2,9)\r\n 1680 FORMAT (1H0,4X,I8,6X,8(1X,1P,E13.5))\r\n      NLINES = 2\r\n      GO TO 1730\r\nC\r\nC     *** COMPLEX, SORT 1 ***\r\nC\r\n 1700 GO TO 1800\r\nC\r\nC     *** REAL, SORT 2 ***\r\nC\r\n 1710 GO TO 1800\r\nC\r\nC     *** COMPLEX, SORT 2 ***\r\nC\r\n 1720 GO TO 1800\r\nC\r\nC     DONE WITH ONE ENTRY, GO BACK AND READ ANOTHER ONE.\r\nC\r\n 1730 LINE = LINE + NLINES\r\n      IF (STRESS) GO TO 30\r\n      GO TO 40\r\nC\r\n 1800 CONTINUE\r\n      RETURN\r\nC\r\n 1900 IF (FORCE) RETURN\r\n 1910 CONTINUE\r\n      RETURN 1\r\nC\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ofp.f",
    "content": "      SUBROUTINE OFP\r\nC\r\nC     THE OUTPUT FILE PROCESSOR\r\nC\r\nC     THIS SUBROUTINE IS THE MAIN AND ONLY DRIVER.\r\nC     OFP1 OUTPUTS HEADINGS ONLY.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          AXIC,FLUID,TEMPER,ONEFIL,HEADNG,SOLSET,ELEMEN,\r\n     1                 PNCHED,HEAT,GPFB,ESE,DUMMY,GPST,EOR,PACK,STRAIN\r\n      INTEGER          REAL(10),IMAG(5),ISAVE(20),GSE(4),I15BLK(2),\r\n     1                 FILEX(6),B(23,4),FMT(300),IOUT(100),TSAVE(96),\r\n     2                 SCAN(2),ID(50),BUFF(1),OF(56)\r\n      REAL             FREAL(10),FIMAG(2),OUT(100)\r\n      DOUBLE PRECISION DOUT(50)\r\nCWKBI\r\n      CHARACTER*1      CFMT(300)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM\r\n      COMMON /BLANK /  ICARD,OPTION(2)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /OFPCOM/  TEMPER,MPUNCH\r\n      COMMON /OFPBD1/  D(1)\r\n      COMMON /OFPBD5/  ESINGL(64),E(1)\r\nCZZ   COMMON /ZZOFPX/  CORE(1)\r\n      COMMON /ZZZZZZ/  CORE(20000)\r\n      COMMON /OFP1ID/  IDM(2)\r\n      COMMON /OUTPUT/  HEAD(96)\r\n      EQUIVALENCE      (KSYSTM( 1),SYSBUF), (KSYSTM( 2),L     ),\r\n     1                 (KSYSTM( 9),MAXLNS), (KSYSTM(12),LINE  ),\r\n     2                 (KSYSTM(38),AXIF  ), (KSYSTM(56),ITHERM),\r\n     3                 (FREAL (1),REAL(1)), (FIMAG (1),IMAG(1)),\r\n     4                 (ID    (3),IELTYP ), (IOUT(1),OUT(1),DOUT(1)),\r\n     5                 (L1, OF(1),CORE(1)), (L2,OF(2)), (L3,OF(3)),\r\n     6                 (L4, OF(4)), (L5,OF(5)), (ID(1),OF(6)),\r\n     7                 (BUFF(1),OF(56))\r\nCWKBI\r\n      EQUIVALENCE      ( CFMT, FMT )\r\n      DATA    PE    /  4H1P,E /,   PF   / 4H0P,F /\r\n      DATA    E236  /  4H23.6 /,   F236 / 4H14.1 /\r\n      DATA    E156  /  4H15.6 /,   F156 / 4H6.1  /\r\n      DATA    I8    /  4H,I8, /,   I12  / 4H,I11 /\r\n      DATA    I2X   /  4H2X   /,   I2XX / 4H,2X  /\r\n      DATA    I1X   /  4H(1X  /,   I1XX / 4H,1X  /\r\n      DATA    ISTAR /  4H,1H* /,   I15X / 4H/14X /\r\n      DATA    IH0   /  4H/1H0 /,   I1H0 / 4H(1H0 /\r\n      DATA    I9X   /  4H,9X  /,   I6X  / 4H,6X  /\r\n      DATA    F174  /  4H17.4 /\r\n      DATA    STATIC,  REIGEN  ,   FREQ ,  TRANS  , BK1  , CEIGEN  /\r\n     1        1     ,  2       ,   5    ,  6      , 8    , 9       /\r\n      DATA    A4    ,  COMMA   ,   CPAREN, OPAREN  /\r\n     1        4HA4  ,  4H,     ,   4H)   , 4H(     /\r\n      DATA    EEND  /  195    /,   I15BLK/ 4HA4,  , 4H11X /,\r\n     1        GSE   /  4HG     ,   4HS   , 4HE    , 4HM   /\r\n      DATA    FILEX /  101, 102,  103,104, 105    , 106   /\r\n      DATA    IBLANK,  E9PT1  /    4H    , 195    /\r\n      DATA    IHEAT /  4HHEAT /,   CENTER/ 4HTER  /\r\n      DATA    PHASE /  4H1P9E /,   SCAN  / 4HSCAN , 4HNED /\r\n      DATA    HEX1  ,  HEX2, HEX3 /4HHEX1, 4HHEX2 , 4HHEX3/\r\nC\r\nC\r\nC     THE FOLLOWING ARE ZERO POINTERS TO THE DATA-BLOCK AND LINE-SET\r\nC     SELECTION LISTS.  TO THIS THE SUBSET SELECTION POINTER IS ADDED.\r\nC     THE SUBSET SELECTION POINTER IS BASED ON INFORMATION IN THE ID\r\nC     RECORD.\r\nC\r\nC     A MINUS ONE IN THE FOLLOWING ARRAY INDICATES AN UNDEFINED OUTPUT.\r\nC\r\nC            S O R T - I    S O R T - I I\r\nC          *************** ****************        ZERO-BASE\r\nC          REAL    COMPLEX REAL    COMPLEX    POINTERS INTO C-ARY\r\nC     *************************************   *******************\r\nC     DISPLACEMENT VECTOR\r\n      DATA B( 1,1),B( 1,2),B( 1,3),B( 1,4) /    0,   4,   2,   6 /\r\nC\r\nC     LOAD VECTOR\r\n      DATA B( 2,1),B( 2,2),B( 2,3),B( 2,4) /    8,  12,  10,  14 /\r\nC\r\nC     SPCF VECTOR\r\n      DATA B( 3,1),B( 3,2),B( 3,3),B( 3,4) /   16,  20,  18,  22 /\r\nC\r\nC     ELEMENT FORCE   (ZERO POINTERS INTO OVERLAY BLOCK DATA)\r\n      DATA B( 4,1),B( 4,2),B( 4,3),B( 4,4) /    0,   0,   0,   0 /\r\nC\r\nC     ELEMENT STRESS  (ZERO POINTERS FOR OVERLAY BLOCK DATA)\r\n      DATA B( 5,1),B( 5,2),B( 5,3),B( 5,4) /    0,   0,   0,   0 /\r\nC\r\nC     EIGENVALUE SUMMARY\r\n      DATA B( 6,1),B( 6,2),B( 6,3),B( 6,4) /   38,  39,  -1,  -1 /\r\nC\r\nC     EIGENVECTOR\r\n      DATA B( 7,1),B( 7,2),B( 7,3),B( 7,4) /   72,  40,  -1,  -1 /\r\nC\r\nC     GPST\r\n      DATA B( 8,1),B( 8,2),B( 8,3),B( 8,4) /   73,  -1,  -1,  -1 /\r\nC\r\nC     EIGENVALUE ANALYSIS SUMMARY\r\n      DATA B( 9,1),B( 9,2),B( 9,3),B( 9,4) /   64,  68,  -1,  -1 /\r\nC\r\nC     VELOCITY VECTOR\r\n      DATA B(10,1),B(10,2),B(10,3),B(10,4) /   24,  30,  26,  32 /\r\nC\r\nC     ACCELERATION VECTOR\r\n      DATA B(11,1),B(11,2),B(11,3),B(11,4) /   25,  34,  27,  36 /\r\nC\r\nC     NON-LINEAR-FORCE VECTOR\r\n      DATA B(12,1),B(12,2),B(12,3),B(12,4) /   28,  -1,  29,  -1 /\r\nC\r\nC     GRID-POINT-WEIGHT-OUTPUT\r\n      DATA B(13,1),B(13,2),B(13,3),B(13,4) /   -1,  -1,  -1,  -1 /\r\nC\r\nC     EIGENVECTOR (SOLUTION SET FROM VDR)\r\n      DATA B(14,1),B(14,2),B(14,3),B(14,4) /   -1,  60,  -1,  62 /\r\nC\r\nC     DISP-VECTOR (SOLUTION SET FROM VDR)\r\n      DATA B(15,1),B(15,2),B(15,3),B(15,4) /   42,  44,  43,  46 /\r\nC\r\nC     VELO-VECTOR (SOLUTION SET FROM VDR)\r\n      DATA B(16,1),B(16,2),B(16,3),B(16,4) /   48,  50,  49,  52 /\r\nC\r\nC     ACCE-VECTOR (SOLUTION SET FROM VDR)\r\n      DATA B(17,1),B(17,2),B(17,3),B(17,4) /   54,  56,  55,  58 /\r\nC\r\nC     ELEMENT STRAIN ENERGY (FROM GPFDR)\r\n      DATA B(18,1),B(18,2),B(18,3),B(18,4) /   74,  -1,  -1,  -1 /\r\nC\r\nC     GRID POINT FORCE BALANCE (FROM GPFDR)\r\n      DATA B(19,1),B(19,2),B(19,3),B(19,4) /   76,  -1,  -1,  -1 /\r\nC\r\nC     MPCFORCE VECTOR\r\n      DATA B(20,1),B(20,2),B(20,3),B(20,4) /   78,  -1,  -1,  -1 /\r\nC\r\nC     ELEMENT STRAIN/CURVATURE (ZERO POINTER FOR OVERLAY BLOCK DATA)\r\n      DATA B(21,1),B(21,2),B(21,3),B(21,4) /    0,  -1,  -1,  -1 /\r\nC\r\nC     STRESSES IN LAYERED COMPOSITE ELEMENTS (ZERO POINTER)\r\n      DATA B(22,1),B(22,2),B(22,3),B(22,4) /    0,   0,   0,   0 /\r\nC\r\nC     FORCES IN LAYERED COMPOSITE ELEMENTS   (ZERO POINTER)\r\n      DATA B(23,1),B(23,2),B(23,3),B(23,4) /    0,   0,   0,   0 /\r\nC     ************************************   *******************\r\nC\r\nC     SAVE OLD TITLES WHATEVER THEY BE AND RESTORE BEFORE RETURNING\r\nC\r\n      CALL TOTAPE (3,BUFF(1))\r\n      HEAT = .FALSE.\r\n      IF (ITHERM .NE. 0) HEAT = .TRUE.\r\n      OPTION(1) = 0\r\n      IF (HEAT) OPTION(1) = IHEAT\r\n      ONEFIL = .FALSE.\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY OFPDMP (IFILE1)\r\nC     =====================\r\nC\r\n      ONEFIL = .TRUE.\r\n   10 DO 20 I = 1,96\r\n   20 TSAVE(I) = HEAD(I)\r\nC\r\n      ICORE = KORSZ(BUFF)\r\n      IF (ICORE .GE. SYSBUF) GO TO 40\r\n      WRITE  (6,30) UWM,ICORE,SYSBUF\r\n   30 FORMAT (A25,' 2043, OFP HAS INSUFFICIENT CORE FOR ONE GINO ',\r\n     1       'BUFFER ****    OFP NOT EXECUTED.')\r\n      RETURN\r\nC\r\n   40 LINE  = 0\r\n      IFILE = 0\r\nC\r\nC     LOOP FOR 6 FILES\r\nC\r\n   50 IFILE = IFILE + 1\r\n      IF (ONEFIL .AND. IFILE.GT.1) GO TO 2060\r\n      FILE = FILEX(IFILE)\r\n      IF (ONEFIL) FILE = IFILE1\r\n      CALL OPEN (*2050,FILE,BUFF(1),0)\r\n      FROM = 55\r\n      CALL FWDREC (*2020,FILE)\r\n   60 CALL READ (*2040,*2040,FILE,  ID(1),50,0,FLAG)\r\n      CALL READ (*2040,*2040,FILE,HEAD(1),96,1,FLAG)\r\n      AXIC   = .FALSE.\r\n      TEMPER = .FALSE.\r\n      DUMMY  = .FALSE.\r\n      GPST   = .FALSE.\r\n      SORT   =  1\r\n      PNCHED = .FALSE.\r\n      HEADNG = .FALSE.\r\n      GPFB   = .FALSE.\r\n      ESE    = .FALSE.\r\n      STRAIN = .FALSE.\r\nC\r\nC     COMPUTE I AND J, THE B ARRAY SUBSCRIPTS\r\nC\r\n      J = ID(2)/1000\r\n      I = ID(2) - J*1000\r\n      J = J + 1\r\n      IF (I.NE.4 .AND. I.NE.5 .AND. I.NE.21) GO TO 70\r\n      ICURV = ID(3)/1000\r\n      ID(3) = ID(3) - 1000*ICURV\r\nC\r\n   70 PACK   = .FALSE.\r\n      SOLSET = .FALSE.\r\n      FLUID  = .FALSE.\r\n      IF (AXIF .NE. 0) FLUID = .TRUE.\r\n      ELEMEN = .FALSE.\r\n      IAPP = ID(1)/10\r\n      NADD = 1\r\n      FROM = 75\r\n      IF (J .GT. 4) GO TO 2020\r\n      FROM = 77\r\n      IF (J) 2020,80,80\r\n   80 FROM = 80\r\n      IF (I.LT.1 .OR. I.GT.23) GO TO 2020\r\n      IF (J .GT. 2) SORT = 2\r\n      IF (J.NE.3 .OR. IAPP.NE.STATIC) GO TO 120\r\n      IF (HEAD(74).EQ.SCAN(1) .AND. HEAD(75).EQ.SCAN(2)) GO TO 100\r\n      DO 90 IHD = 65,96\r\n   90 HEAD(IHD) = IBLANK\r\n      GO TO 120\r\n  100 DO 110 IHD = 65,72\r\n      IF (IHD .GE. 68) HEAD(IHD+22) = IBLANK\r\n  110 HEAD(IHD) = IBLANK\r\n  120 GO TO (150,150,150,230,240,270,150,290,300,150,\r\n     1       150,150,340,380,380,380,380,390,400,220,\r\n     2       410,420,420), I\r\n  150 PACK = .TRUE.\r\n      IF (ID(3) .EQ. 1000) AXIC = .TRUE.\r\n      GO TO (200,210,220,160,160,160,280,160,160,310,320,330), I\r\n  160 CALL MESAGE (-61,0,0)\r\nC\r\nC     DISPLACEMENT VECTOR\r\nC\r\n  200 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7\r\n      IF (OPTION(1) .NE. IHEAT) GO TO 500\r\n      IF (I.EQ.1 .AND. (J.EQ.1 .OR. J.EQ.3)) TEMPER =.TRUE.\r\n      GO TO 500\r\nC\r\nC     LOAD VECTOR\r\nC\r\n  210 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7\r\n      GO TO 500\r\nC\r\nC     SPCF VECTOR, MPCF VECTOR\r\nC\r\n  220 IF (J.EQ.3 .AND. IAPP.EQ.TRANS) NADD = 7\r\nCWKBI 11/93 SPR93007\r\n      PACK = .TRUE.\r\n      GO TO 500\r\nC\r\nC     ELEMENT FORCE, ELEMENT STRESS\r\nC\r\n  230 CONTINUE\r\n  240 FROM = 240\r\n      IF (ID(3).LT. 1 .OR.  ID(3).GT.100) GO TO 2020\r\n      IF (ID(3).GT.52 .AND. ID(3).LT. 62) DUMMY = .TRUE.\r\n      ELEMEN = .TRUE.\r\n      IOPT   = 2\r\n      IF (ICURV.GT.0 .AND. J.EQ.1) GO TO 260\r\n      IF (ICURV.GT.0 .AND. (J.EQ.2 .OR. J.EQ.4)) GO TO 250\r\n      NADD = 6*(ID(3)-1) + 1\r\n      IF (J.EQ.2 .OR. J.EQ.4) NADD = NADD*2 - 1\r\n      GO TO 500\r\n  250 FROM = 250\r\n      IF (ICURV .GT. 1) GO TO 2020\r\n      NADD = 0\r\n      IF (ID(3) .EQ.  6) NADD =  1\r\n      IF (ID(3) .EQ. 17) NADD = 13\r\n      IF (ID(3) .EQ. 18) NADD = 25\r\n      IF (ID(3) .EQ. 19) NADD = 37\r\n      GO TO 500\r\nC\r\nC     ELEMENT STRESS IN MATERIAL COORDINATE SYSTEM\r\nC\r\n  260 FROM = 260\r\n      IF (ICURV .GT. 2) GO TO 2020\r\n      NADD = 0\r\n      IF (ID(3) .EQ.  6) NADD =  1\r\n      IF (ID(3) .EQ. 17) NADD =  7\r\n      IF (ID(3) .EQ. 18) NADD = 13\r\n      IF (ID(3) .EQ. 19) NADD = 19\r\n      IF (ICURV .EQ.  2) NADD = 25\r\n      GO TO 500\r\nC\r\nC     EIGENVALUE SUMMARY\r\nC\r\n  270 CONTINUE\r\n      GO TO 500\r\nC\r\nC     EIGENVECTOR\r\nC\r\n  280 CONTINUE\r\n      GO TO 500\r\nC\r\nC     GPST\r\nC\r\n  290 GPST = .TRUE.\r\n      GO TO 500\r\nC\r\nC     EIGENVALUE ANALYSIS SUMMARY\r\nC       ID(3) = 1  DETERMINANT METHOD TABLE\r\nC       ID(3) = 2  INVERSE POWER TABLE\r\nC       ID(3) = 3  DETERMINANT METHOD SWEPT FUNCTION DATA VECTORS\r\nC       ID(3) = 4  UPPER HESSENBERG METHOD TABLE\r\nC\r\n  300 NADD = 6*(ID(3)-1) + 1\r\n      FROM = 300\r\n      IF (ID(3) .GT. 4) GO TO 2020\r\n      GO TO 500\r\nC\r\nC     VELOCITY VECTOR\r\nC\r\n  310 CONTINUE\r\n      GO TO 500\r\nC\r\nC     ACCELERATION VECTOR\r\nC\r\n  320 CONTINUE\r\n      GO TO 500\r\nC\r\nC     NON-LINERAR FORCE VECTOR\r\nC\r\n  330 SOLSET = .TRUE.\r\n      GO TO 500\r\nC\r\nC     GRID-POINT-WEIGHT-OUTPUT\r\nC     (FROM = 345 AND 355 ARE SETUP IN OFPGPW)\r\nC\r\n  340 FROM = 340\r\n      IF (J .GT. 1) GO TO 2020\r\n      CALL OFPGPW (*2020,FILE,DOUT,FROM)\r\n      GO TO 60\r\nC\r\nC     EIGENVECTOR, DISPLACEMENT, VELOCITY, ACCELERATION\r\nC     (VDR OUTPUT ONLY)\r\nC\r\n  380 PACK   = .TRUE.\r\n      SOLSET = .TRUE.\r\n      GO TO 500\r\nC\r\nC     ELEMENT STRAIN ENERGY.\r\nC\r\n  390 ESE  = .TRUE.\r\n      IOPT =  3\r\n      GO TO 500\r\nC\r\nC     GRID POINT FORCE BALANCE.\r\nC\r\n  400 GPFB = .TRUE.\r\n      IOPT =  4\r\n      LASTID = 0\r\n      GO TO 500\r\nC\r\nC     ELEMENT STRAIN/CURVATURE\r\nC\r\n  410 FROM = 410\r\n      IF (ID(3).NE.6 .AND. ID(3).NE.17 .AND. ID(3).NE.18 .AND.\r\nCWKBR NCL93012 3/94     1    ID(3).NE.19) GO TO 2020\r\n     1    ID(3).NE.19 .AND. ID(3).NE.64 .AND. ID(3).NE.83) GO TO 2020\r\n      FROM = 415\r\n      IF (ICURV .GT. 2) GO TO 2020\r\n      STRAIN = .TRUE.\r\n      ELEMEN = .TRUE.\r\n      IOPT = 2\r\n      NADD = 0\r\n      IF (ID(3) .EQ.  6) NADD =  1\r\n      IF (ID(3) .EQ. 17) NADD =  7\r\n      IF (ID(3) .EQ. 18) NADD = 13\r\n      IF (ID(3) .EQ. 19) NADD = 19\r\nCWKBNB NCL93012 3/94\r\n      IF (ID(3) .EQ. 64) NADD = 55\r\n      IF (ID(3) .EQ. 83) NADD = 61\r\nCWKBNE NCL93012 3/94\r\n      IF (ICURV .EQ.  1) NADD = NADD + 24\r\n      IF (ICURV .EQ.  2) NADD = 49\r\n      GO TO 500\r\nC\r\nC     STRESSES AND FORCES IN LAYERED COMPOSITE ELEMENTS\r\nC\r\n  420 CALL OFCOMP (*60,FILE,J,IELTYP,IAPP,HEADNG,PNCHED,I)\r\n      GO TO 60\r\nC\r\n  500 FROM = 500\r\n      IF (B(I,J) .EQ. -1) GO TO 2020\r\n      IF (PACK ) IOPT = 1\r\n      POINT = NADD + B(I,J)*6\r\nC\r\nC     IS THIS MAGNITUDE / PHASE OUTPUT\r\nC\r\n      IF (ID(9).EQ.3 .AND. (IAPP.EQ.FREQ .OR. IAPP.EQ.CEIGEN))\r\n     1    POINT = POINT + 6\r\nC\r\n      IF (STRAIN) GO TO 660\r\n      IF (ELEMEN) GO TO 510\r\nC\r\nC     CALL NON-STRESS AND NON-FORCE OVERLAY.\r\nC\r\n      CALL OFPMIS (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 505\r\n      GO TO 690\r\nC\r\nC     CALL PARTICULAR STRESS OR FORCE OVERLAY CONSIDERING\r\nC     REAL, COMPLEX, SORT1, SORT2.\r\nC\r\n  510 IF (DUMMY) GO TO 580\r\n      IF (ICURV .LE. 0) GO TO 515\r\n      IF (J .EQ. 1) GO TO 650\r\n      IF (J .EQ. 2) GO TO 670\r\n      IF (J .EQ. 4) GO TO 680\r\n  515 ITYPE = J + 4*(5-I)\r\n      GO TO (520,530,540,560,570,610,620,640), ITYPE\r\nC\r\n  520 CALL OFPRS1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 525\r\n      GO TO 690\r\nC\r\n  530 CALL OFPCS1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 535\r\n      GO TO 690\r\nC\r\n  540 IF (IAPP .NE. STATIC) GO TO 550\r\n      CALL OFRS2S (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 545\r\n      GO TO 690\r\n  550 CALL OFPRS2 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 555\r\n      GO TO 690\r\nC\r\n  560 CALL OFPCS2 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 565\r\n      GO TO 690\r\nC\r\n  570 CALL OFPRF1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 575\r\n      IF (.NOT.HEAT .OR. ID(3).EQ.82) GO TO 690\r\n      IF (ID(10) .NE. -9) GO TO 600\r\n      L2 = 405\r\n      L4 = 0\r\n      L5 = 406\r\n      ID(10) = 9\r\n      GO TO 700\r\nC\r\n  580 CALL ODUM (1,IX,ITYPE,NMULT,NLINES,ID)\r\n      DUMMY = .FALSE.\r\n      FROM = 580\r\n      GO TO 690\r\nC\r\nC     REAL FORCE SORT 1 (HEAT)\r\nC\r\n  600 L2 = 297\r\n      IF (ID(10) .EQ. 5) L2 = 302\r\n      L4 = 0\r\n      L5 = 298\r\n      IF (ID(10) .EQ. 5) L5 = 300\r\n      GO TO 700\r\nC\r\n  610 CALL OFPCF1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 615\r\n      IF (HEAT) GO TO 2020\r\n      GO TO 690\r\nC\r\n  620 IF (IAPP .NE. STATIC) GO TO 630\r\n      CALL OFRF2S (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 625\r\n      GO TO 690\r\n  630 CALL OFPRF2 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 635\r\n      IF (.NOT.HEAT .OR. ID(3).EQ.82) GO TO 690\r\nC\r\nC     REAL FORCE SORT 2 (HEAT)\r\nC\r\n      L1 = 108\r\n      L2 = 297\r\n      IF (ID(10) .EQ. 5) L2 = 302\r\n      L5 = 299\r\n      IF (ID(10) .EQ. 5) L5 = 301\r\n      GO TO 700\r\nC\r\n  640 CALL OFPCF2 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 645\r\n      IF (HEAT) GO TO 2020\r\n      GO TO 690\r\nC\r\n  650 CALL OFPSS1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 655\r\n      GO TO 690\r\n  660 CALL OFPSN1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 665\r\n      GO TO 690\r\nC\r\n  670 CALL OFPCC1 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 675\r\n      GO TO 690\r\nC\r\n  680 CALL OFPCC2 (IX,L1,L2,L3,L4,L5,POINT)\r\n      FROM = 685\r\nC\r\n  690 IF (IX .EQ. 0) GO TO 2000\r\nC\r\nC     IF THERMAL DISPLACEMENTS IN -HEAT- PROBLEMS, CHANGE HEADING\r\nC     FROM  DISPLACEMENT TO TEMPERATURE\r\nC\r\n  700 IF (TEMPER .AND. L2.EQ.1) L2 = 253\r\n      IF (TEMPER .AND. L3.EQ.1) L3 = 253\r\nC\r\nC     HEAT PROBLEMS REAL-SORT1-VECTORS ONLY\r\nC\r\n      IF (HEAT .AND. PACK .AND. J.EQ.1) L5 = 296\r\n      IF (HEAT .AND. SORT.EQ.2 .AND. .NOT.ELEMEN) L5 = 303\r\n      IF (AXIC) L4 = -1\r\n      IF (AXIC) L5 = 203\r\n      IF (AXIC .AND. IAPP.EQ.TRANS  .AND. J.EQ.3) L5 = 402\r\n      IF (AXIC .AND. IAPP.EQ.STATIC .AND. J.EQ.3) L5 = 403\r\n      IF (AXIC .AND. IAPP.EQ.FREQ   .AND. J.EQ.4) L5 = 404\r\n      IF (J .NE. 1) GO TO 710\r\n      IF (IAPP.EQ.TRANS .AND. I.NE.8) L1 = 106\r\n      IF ((IAPP.EQ.REIGEN .OR. IAPP.EQ.BK1) .AND. I.NE.6 .AND. I.NE.8\r\n     1   .AND. I.NE.9) L1 = 102\r\n      GO TO 720\r\n  710 IF (J .NE. 2) GO TO 720\r\n      IF (IAPP.EQ.CEIGEN .AND. I.NE.6 .AND. I.NE.9) L1 = 110\r\n  720 IDD = 0\r\n      IF (SORT .EQ. 1) GO TO 730\r\n      IDD   = ID(5)\r\n      ITEMP = IDD/10\r\n      DEVICE= IDD - 10*ITEMP\r\n      DEVICE= MOD(DEVICE,8)\r\n      IDD   = ITEMP\r\n      ID(5) = IDD\r\n      IF (HEAT .AND. .NOT.ELEMEN .AND. SORT.EQ.2) L5 = 303\r\n      IF (IAPP .EQ. STATIC) IDD = -1\r\nC\r\nC     SORT2 HARMONIC VECTOR OUTPUT\r\nC\r\n  730 IF (.NOT.PACK .OR. .NOT.FLUID .OR. SORT.EQ.1) GO TO 750\r\n      IF (ID(5) .LT. 500000) GO TO 740\r\n      IF (L1 .EQ. 107) L1 = 229\r\n  740 FLUID = .FALSE.\r\n      IF (ESE  .OR.   GPFB) GO TO 800\r\n  750 IF (PACK .OR. ELEMEN) GO TO 800\r\n      CALL OFP1\r\n      HEADNG = .TRUE.\r\nC\r\nC     OUTPUT THE DATA BLOCK\r\nC\r\n  800 EOR = .FALSE.\r\n      IF (ELEMEN  .AND. ID(3).EQ.35) AXIC = .TRUE.\r\n      IF (ELEMEN  .AND. ID(3).EQ.70) AXIC = .TRUE.\r\n      IF (ELEMEN  .AND. ID(3).EQ.71) AXIC = .TRUE.\r\n      IF (AXIC) SOLSET = .TRUE.\r\nC\r\nC     D(IX) CONTINS TWO VALUES IN A PACKED 4 DIGIT NUMBER.\r\nC     THE RIGHT 2 DIGITS GIVES THE NUMBER OF LINES FORMAT PRODUCES.\r\nC     THE LEFT 2 DIGITS GIVES THE NUMBER OF DATA VECTORS PER LINE.\r\nC     IF  THE LEFT 2 DIGITS ARE 0 OR NULL, 1 VECTOR IS ASSUMED.\r\nC\r\n      IF (HEAT ) GO TO 810\r\n      IF (DUMMY) GO TO 820\r\n      NMULT  = D(IX)/100\r\n      NLINES = D(IX) - NMULT*100\r\n      GO TO 820\r\n  810 NMULT  = 1\r\n      NLINES = 1\r\n  820 IF (NMULT .EQ. 0) NMULT = 1\r\n      NWDS  = ID(10)*NMULT\r\n      NWDSAV= NWDS\r\n      MAXN  = MAXLNS - NLINES\r\nC\r\n      IF (NWDS .EQ. 0) GO TO 60\r\n  900 IF (EOR) GO TO 60\r\n      FROM  = 900\r\n      CALL READ (*2020,*910,FILE,IOUT(1),NWDS,0,FLAG)\r\n      GO TO 920\r\n  910 IF (FLAG .EQ. 0) GO TO 60\r\n      IF (FLAG .EQ. 0) GO TO 60\r\n      NWDS  = FLAG\r\n      NWDSAV= NWDS\r\n      EOR   = .TRUE.\r\n  920 I1    = 0\r\n      IF (AXIC) GO TO 930\r\n      IGSE  = IOUT(2)\r\n      IF (PACK .OR. GPST) IOUT(2) = GSE(IGSE)\r\n      IF (ESE  .OR. GPFB) GO TO 930\r\n      IF (.NOT.PACK .AND. .NOT.ELEMEN) GO TO 1030\r\n  930 IF (SORT .EQ. 2) GO TO 990\r\n      INCR = ID(10)\r\n      I  = 1\r\n      K1 = 1\r\n  940 ITEMP  = IOUT(I)/10\r\n      DEVICE = IOUT(I) - 10*ITEMP\r\n      DEVICE = MOD(DEVICE,8)\r\n      IOUT(I)= ITEMP\r\n      IF (DEVICE .LT. 4) GO TO 950\r\n      CALL OFPPUN (IOUT(I),IOUT(I),INCR,IOPT,IDD,PNCHED)\r\n      DEVICE = DEVICE - 4\r\n  950 IF (DEVICE .GT. 0) GO TO 980\r\nC\r\nC     ELIMINATE VECTOR FROM MULTIPLE VECTOR PER LINE\r\nC\r\n      NWDS = NWDS - INCR\r\n      IF (NWDS .GT. I) GO TO 960\r\n      DEVICE = 1\r\n      IF (NWDS .GT. 0) GO TO 990\r\n      IF (EOR) GO TO 60\r\n      NWDS = NWDSAV\r\n      GO TO 900\r\n  960 K1 = K1 + INCR\r\n      K2 = K1 + INCR - 1\r\n      JJ = I - 1\r\n      DO 970 J = K1,K2\r\n      JJ = JJ + 1\r\n  970 IOUT(JJ) = IOUT(J)\r\n      GO TO 940\r\n  980 I = I + INCR\r\n      IF (I .LE. NWDS) GO TO 940\r\n  990 IF (DEVICE .LT. 4) GO TO 1020\r\n      IF (ELEMEN) GO TO 1000\r\n      CALL OFPPUN (IOUT(1),IOUT(1),NWDS,IOPT,IDD,PNCHED)\r\n      GO TO 1020\r\nC\r\nC     SORT 2 ELEMENT PUNCH\r\nC\r\n 1000 INCR = ID(10)\r\n      DO 1010 JJ = 1,NWDS,INCR\r\n      CALL OFPPUN (IOUT(JJ),IOUT(JJ),INCR,IOPT,IDD,PNCHED)\r\n 1010 CONTINUE\r\n 1020 IF (DEVICE.NE.1 .AND. DEVICE.NE.5) GO TO 900\r\n 1030 IF (.NOT.PACK .OR. AXIC) GO TO 1100\r\n      IF (FLUID .AND. SORT.EQ.1 .AND. IOUT(1).GE.500000) GO TO 1800\r\n 1040 IF (IOUT(2) .NE. GSE(1)) GO TO 1720\r\nC\r\nC     BUILD FORMAT CHECKING DATA FOR SPECIAL CASES.\r\nC\r\n 1100 I = 1\r\n      IF (HEAT .AND. ELEMEN .AND. ID(3).NE.82) GO TO 1400\r\n      IF (DUMMY) GO TO 1640\r\n      FMT(1) = OPAREN\r\n      IFMT = 1\r\n      J = IX + 1\r\n      GO TO 1120\r\n 1110 J = J + 1\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = COMMA\r\nC\r\nC     IF K IS NEGATIVE THEN BUILDING BLOCK IS NOT FOR A VARIABLE.\r\nC     IN THIS CASE THEN K IS ACTUAL POINTER TO BE USED IN THE ESINGL ARR\r\nC\r\n 1120 K = D(J)\r\n      IF (K) 1130,1300,1140\r\n 1130 K = -K\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = ESINGL(K)\r\n      GO TO 1110\r\nC\r\nC     CHECK FOR  SPECIAL PACKING FORMATS\r\nC\r\n 1140 K = 5*K - 5\r\n      IF (.NOT. AXIC) GO TO 1150\r\n      IF (K.NE.200 .AND. K.NE.275) GO TO 1160\r\n      IF (IOUT(2) .EQ. IBLANK) GO TO 1230\r\n      GO TO 1240\r\n 1150 IF (.NOT.PACK .OR. IOUT(2).EQ.GSE(1)) GO TO 1160\r\n      IF ((I.GE.I1 .AND. I.LE.8) .OR. (I.GE.I2 .AND. I.LE.14))\r\n     1   GO TO 1250\r\nC\r\nC     IF SOLSET AND K=0 OR K=80 OR K=365 OR K=75 USE I15BLK IF INTEGER 1\r\nC\r\n 1160 IF (.NOT. SOLSET) GO TO 1170\r\n      IF (K.NE.0 .AND. K.NE.80 .AND. K.NE.365 .AND. K.NE.75) GO TO 1170\r\n      IF (IOUT(I) .NE. 1) GO TO 1170\r\n      IOUT(I) = IBLANK\r\n      IFMT = IFMT + 2\r\n      FMT(IFMT-1) = I15BLK(1)\r\n      FMT(IFMT  ) = I15BLK(2)\r\n      IF (AXIC) FMT(IFMT) = I2X\r\n      GO TO 1260\r\nC\r\nC     CHECK FOR  0.0 ON AN E-FORMAT\r\nC\r\n 1170 IF (K .LT. EEND) IF (OUT(I)) 1230,1240,1230\r\n      IF (K .EQ.  440) IF (OUT(I)) 1230,1240,1230\r\nC\r\nC     CHECK FOR MID-EDGE OR CENTER STRESS POINTS ON ISOPARAMETRIC\r\nC     SOLID ELEMENTS\r\nC\r\n      IF ((K.NE.390 .AND. K.NE.395) .OR. IOUT(I).NE.0) GO TO 1190\r\n      IF (K .EQ. 395) GO TO 1180\r\n      IOUT(I) = CENTER\r\n      GO TO 1240\r\n 1180 IOUT(I) = IBLANK\r\n      GO TO 1240\r\nC\r\nC     CHECK FOR SPECIAL INTEGER ON E9.1 FORMAT ONLY\r\nC\r\n 1190 IF (K.NE.E9PT1 .OR. IOUT(I).NE.1) GO TO 1200\r\n      IOUT(I) = IBLANK\r\n      GO TO 1240\r\nC\r\nC     CHECK FOR SPECIAL GPST FORMATS\r\nC\r\n 1200 IF (IOUT(I).NE.0 .OR. K.LT.301 .OR. K.GT.325) GO TO 1210\r\n      IOUT(I) = IBLANK\r\n      GO TO 1240\r\nC\r\nC     CHECK FOR HARMONIC NUMBER OR POINT ANGLE\r\nC\r\n 1210 IF (K.NE.355 .AND. K.NE.360 .AND. K.NE.445) GO TO 1220\r\n      IF (IOUT(I).LE.0 .OR. IOUT(I).GE.1000) GO TO 1220\r\n      IOUT(I) = IOUT(I) - 1\r\n      GO TO 1240\r\nC\r\nC     CHECK FOR PHASE ANGLE ON STRESSES WITH TRAPAX AND TRIAAX ELEMENTS\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS   1/93\r\nC     FMT AND PHASE ARE LOCAL. I SEE NOBODY SETTING UP FMT() TO PHASE.\r\nC     PHASE IS '1PE9'. IN ANSI FORTRAN STANDARD, A COMMA IS NEEDED\r\nC     BETWEEN P AND E IF PHASE IS REALLY USED IN SETTING UP FMT().\r\nC\r\n 1220 IF (K.NE.430 .OR. ID(9).NE.3 .OR. IAPP.NE.FREQ .OR. FMT(IFMT-4)\r\n     1    .NE.PHASE) GO TO 1230\r\n      GO TO 1240\r\nC\r\nC     NO OTHER SPECIAL CHECKS AT THIS TIME\r\nC\r\nC     *** ADD FORMAT BLOCKS ***\r\nC\r\nC     STANDARD BLOCKS\r\nC\r\n 1230 IFMT = IFMT + 2\r\n      FMT(IFMT-1) = E(K+1)\r\n      FMT(IFMT  ) = E(K+2)\r\n      GO TO 1260\r\nC\r\nC     ALTERNATE BLOCKS\r\nC\r\n 1240 IFMT = IFMT + 3\r\n      FMT(IFMT-2) = E(K+3)\r\n      FMT(IFMT-1) = E(K+4)\r\n      FMT(IFMT  ) = E(K+5)\r\n      GO TO 1260\r\nC\r\nC     SPECIAL BLOCKS FOR PACKED OUTPUT\r\nC\r\n 1250 IFMT = IFMT + 1\r\n      FMT(IFMT) = A4\r\n      GO TO 1260\r\nC\r\n 1260 I = I + 1\r\n      GO TO 1110\r\nC\r\nC     OUTPUT THE LINE OR LINES OF DATA WITH THE NEW FORMAT\r\nC\r\n 1300 FMT(IFMT) = CPAREN\r\n      IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL OFP1\r\n      HEADNG = .TRUE.\r\n      NWDS = NWDSAV\r\nC\r\nC     IF GRID-POINT-FORCE-BALANCE ENTRY, BLANK OUT NONEXISTENT (ZERO)\r\nC     ELEMENT ID-S.\r\nC\r\n      IF (.NOT.GPFB) GO TO 1330\r\n      IF (IOUT(2)) 1320,1310,1320\r\n 1310 IOUT(2) = IBLANK\r\n      FMT( 9) = A4\r\n      FMT(10) = I9X\r\nC\r\nC     ALSO, FOR GPFB, SET FORMAT TO SPACE TWO LINES ON NEW POINT-ID.\r\nC\r\n 1320 IF (IOUT(1) .EQ. LASTID) GO TO 1330\r\n      LASTID = IOUT(1)\r\n      FMT(2) = IH0\r\n      LINE   = LINE + 2\r\n 1330 CALL OFPPNT (IOUT,NWDS,CFMT)                \r\n      GO TO 1700\r\nC\r\nC     ELEMENT FORCES IN HEAT PROBLEMS\r\nC\r\n 1400 IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL OFP1\r\n      HEADNG = .TRUE.\r\n      IF (SORT .EQ. 2) GO TO 1520\r\nC\r\nC     BRANCH ON SPECIAL HBDY OUTPUT\r\nC\r\n      IF (NWDS    .EQ. 5) GO TO 1460\r\n      IF (IOUT(5) .EQ. 1) GO TO 1440\r\n      IF (IOUT(6) .EQ. 1) GO TO 1420\r\n      IF (IOUT(2).EQ.HEX1 .OR. IOUT(2).EQ.HEX2) GO TO 1480\r\n      IF (IOUT(2) .EQ. HEX3) GO TO 1500\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nCRPKR WRITE  (L,1410) IOUT(1),(OUT(I),I=2,9)\r\n      WRITE  (L,1410) (IOUT(I),I=1,3), (OUT(I),I=4,9)\r\n 1410 FORMAT (I14,4X,2A4,6(1P,E17.6))\r\n      GO TO 1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1420 WRITE  (L,1430) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(5),OUT(7),OUT(8)\r\n 1420 WRITE  (L,1430) IOUT(1),IOUT(2),IOUT(3),OUT(4),OUT(5),\r\n     *                OUT(7),OUT(8)\r\n 1430 FORMAT (I14,4X,2A4,2(1P,E17.6),17X,2(1P,E17.6))\r\n      GO TO 1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1440 WRITE  (L,1450) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(7)\r\n 1440 WRITE  (L,1450) IOUT(1),IOUT(2),IOUT(3),OUT(4),OUT(7)\r\n 1450 FORMAT (I14,4X,2A4,1P,E17.6,34X,1P,E17.6)\r\n      GO TO 1700\r\nC\r\n 1460 WRITE  (L,1470) IOUT(1),OUT(2),OUT(3),OUT(4),OUT(5)\r\n 1470 FORMAT (18X,I18,4(1P,E18.6))\r\n      GO TO 1700\r\nC\r\n 1480 WRITE  (L,1490) (IOUT(I),I=1,3),(OUT(I),I=4,9)\r\n 1490 FORMAT (I14,1X,A4,I7,6(1P,E17.6))\r\n      GO TO 1700\r\n 1500 WRITE  (L,1510) (IOUT(I),I=1,3),(OUT(I),I=4,9)\r\n 1510 FORMAT (I14,2X,A4,2X,A4,6(1P,E17.6))\r\n      GO TO 1700\r\nC\r\nC     BRANCH ON SPECIAL HBDY FORCES\r\nC\r\n 1520 IF (NWDS    .EQ. 5) GO TO 1580\r\n      IF (IOUT(5) .EQ. 1) GO TO 1560\r\n      IF (IOUT(6) .EQ. 1) GO TO 1540\r\n      IF (IOUT(2).EQ.HEX1 .OR. IOUT(2).EQ.HEX2) GO TO 1600\r\n      IF (IOUT(2) .EQ. HEX3) GO TO 1620\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nCRPKR WRITE  (L,1530) (OUT(I),I=1,9)\r\n      WRITE  (L,1530) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9)\r\n 1530 FORMAT (1P,E14.6,4X,2A4,6(1P,E17.6))\r\n      GO TO  1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1540 WRITE  (L,1550) (OUT(KK),KK=1,5),OUT(7),OUT(8)\r\n 1540 WRITE  (L,1550) OUT(1),IOUT(2),IOUT(3),OUT(4),OUT(5),\r\n     *                OUT(7),OUT(8)\r\n 1550 FORMAT (1P,E14.6,4X,2A4,2(1P,E17.6),17X,2(1P,E17.6))\r\n      GO TO  1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1560 WRITE  (L,1570) (OUT(KK),KK= 1,4),OUT(7)\r\n 1560 WRITE  (L,1570) OUT(1),IOUT(2),IOUT(3),OUT(4),OUT(7)\r\n 1570 FORMAT (1P,E14.6,4X,2A4,1P,E17.6,34X,1P,E17.6)\r\n      GO TO  1700\r\n 1580 WRITE  (L,1590) (OUT(KK),KK=1,5)\r\n 1590 FORMAT (18X,5(1P,E18.6))\r\n      GO TO  1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1600 WRITE  (L,1610) OUT(1),OUT(2),IOUT(3),(OUT(I),I=4,9)\r\n 1600 WRITE  (L,1610) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9)\r\n 1610 FORMAT (1P,E14.6,1X,A4,I7,6(1P,E17.6))\r\n      GO TO  1700\r\nCRPKR THE FOLLOWING LINE HAS BEEN CHANGED\r\nC1620 WRITE  (L,1630) (OUT(I),I=1,9)\r\n 1620 WRITE  (L,1630) OUT(1),IOUT(2),IOUT(3),(OUT(I),I=4,9)\r\n 1630 FORMAT (1P,E14.6,2X,A4,2X,A4,6(1P,E17.6))\r\n      GO TO  1700\r\nC\r\nC     DUMMY ELEMENT\r\nC\r\n 1640 IF (LINE.GT.MAXN .OR. .NOT.HEADNG) CALL ODUM (2,L,ITYPE,IAPP,0,ID)\r\n      HEADNG = .TRUE.\r\n      NWDS   = NWDSAV\r\n      CALL ODUM (3,L,ITYPE,IAPP,NWDS,IOUT)\r\n      GO TO 1700\r\nC\r\n 1700 LINE = LINE + NLINES\r\n      IF (EOR ) GO TO 60\r\n      IF (AXIC) GO TO 900\r\n      IF (.NOT.PACK .OR. IOUT(2).EQ.GSE(1) .OR. I1.EQ.9) GO TO 900\r\nC\r\nC     TRANSFER THE SAVED BLOCK\r\nC\r\n      DO 1710 I = 1,NWDS\r\n 1710 IOUT(I) = ISAVE(I)\r\n      IF (.NOT.FLUID) GO TO 1040\r\n      IF (IOUT(1) .GE. 500000) GO TO 1800\r\n      GO TO 1040\r\nC\r\nC     SPECIAL ROUTINE TO PACK SCALAR OR EXTRA POINTS OUTPUT..\r\nC     PACKING IS PERFORMED ONLY WHEN IDS ARE SEQUENTIAL,\r\nC     AND THE TYPE REMAINS THE SAME.\r\nC\r\n 1720 I = 1\r\n      GRDPT = IOUT(1)\r\n      TYPE  = IOUT(2)\r\n 1730 IF (I .EQ. 6) GO TO 1760\r\n 1740 FROM = 1740\r\n      CALL READ (*2020,*1790,FILE,ISAVE(1),NWDS,0,FLAG)\r\n      IGSE = ISAVE(2)\r\n      IF (PACK) ISAVE(2) = GSE(IGSE)\r\n      IF (SORT .EQ. 2) GO TO 1750\r\n      ITEMP  = ISAVE(1)/10\r\n      DEVICE = ISAVE(1) - 10*ITEMP\r\n      DEVICE = MOD(DEVICE,8)\r\n      ISAVE(1) = ITEMP\r\n 1750 IF (DEVICE .GE. 4) CALL OFPPUN (ISAVE(1),ISAVE(1),NWDS,IOPT,IDD,\r\n     1                                PNCHED)\r\n      IF (DEVICE.NE.1 .AND. DEVICE.NE.3 .AND. DEVICE.NE.5 .AND.\r\n     1    DEVICE.NE.7) GO TO 1740\r\n      J = GRDPT + I\r\n      IF (FLUID .AND. ISAVE(1).GE.500000) GO TO 1760\r\n      IF (ISAVE(2).NE.TYPE .OR. ISAVE(1).NE.(GRDPT+I)) GO TO 1760\r\nC\r\nC     PACK THIS VECTOR INTO LINE OF DATA\r\nC     IF COMPLEX TWO LINES OF DATA\r\nC     IMAGINARY PART WILL BE PACKED EVEN IF IT DOES NOT EXIST.\r\nC\r\n      I = I + 1\r\n      IOUT(I+2) = ISAVE(3)\r\n      IOUT(I+8) = ISAVE(9)\r\n      GO TO 1730\r\nC\r\nC     PUT BLANKS IN ANY OPEN SLOTS\r\nC\r\n 1760 J = I + 3\r\n      IF (J .GT. 8) GO TO 1780\r\n      DO 1770 K  = J,8\r\n      IOUT(K  ) = IBLANK\r\n 1770 IOUT(K+6) = IBLANK\r\nC\r\n 1780 I1 = J\r\n      I2 = J + 6\r\n      GO TO 1100\r\nC\r\n 1790 EOR = .TRUE.\r\n      GO TO 1760\r\nC\r\nC     SPECIAL LOGIC FOR SORT-1 VECTOR OUTPUT IN A FLUID PROBLEM FOR\r\nC     HARMONIC POINTS ONLY\r\nC\r\n 1800 OLDHRM = -1\r\n      L5  = 230\r\n      LINE= MAXN + 1\r\n      K   = 0\r\n      EOR = .FALSE.\r\n      GO TO 1820\r\n 1810 FROM = 1810\r\n      CALL READ (*2020,*1840,FILE,IOUT(1),NWDS,0,FLAG)\r\nC\r\nC     PUNCH PROCESSING\r\nC\r\n      ITEMP  = IOUT(1)/10\r\n      DEVICE = IOUT(1) - 10*ITEMP\r\n      IOUT(1)= ITEMP\r\n      IF (DEVICE .LT. 4) GO TO 1820\r\n      DEVICE = MOD(DEVICE,8)\r\n      CALL OFPPUN (IOUT(1), IOUT(1),INCR,IOPT,IDD,PNCHED)\r\n      DEVICE = DEVICE - 4\r\n      IF (DEVICE .LE. 0) GO TO 1810\r\nC\r\nC     DECODE THE HARMONIC\r\nC\r\n 1820 ITEMP = MOD(IOUT(1),500000)\r\n      NHARM = (IOUT(1)-ITEMP)/500000\r\n      IOUT(1) = ITEMP\r\n      IF (OLDHRM .EQ. -1) OLDHRM = NHARM\r\n      IF (NHARM.NE.OLDHRM .OR. K.GE.5) GO TO 1850\r\n      K = K + 1\r\n 1830 REAL(2*K-1) = IOUT(1)\r\n      REAL(2*K  ) = IOUT(3)\r\n      IMAG(  K  ) = IOUT(9)\r\n      GO TO 1810\r\nC\r\nC     OUTPUT THE LINE OF DATA\r\nC\r\n 1840 EOR = .TRUE.\r\n      IF (K .LE. 0) GO TO 60\r\nC\r\nC     BUILD THE FORMAT\r\nC\r\n 1850 FMT(1) = I1X\r\n      IF (NLINES .GT. 1) FMT(1) = I1H0\r\n      FMT(2) = I12\r\n      FMT(3) = I2XX\r\n      IFMT   = 3\r\nC\r\nC     ADD STAR IF THIS IS AN UN-SYMETRIC HARMONIC\r\nC\r\n      IF (MOD(OLDHRM,2) .EQ. 0) GO TO 1860\r\n      FMT(3) = ISTAR\r\n      FMT(4) = I1XX\r\n      IFMT   = 4\r\nC\r\nC     VARIABLES IN MAIN LINE\r\nC\r\n 1860 DO 1890 I = 1,K\r\n      FMT(IFMT+1) = I8\r\n      IF (FREAL(2*I)) 1870,1880,1870\r\n 1870 FMT(IFMT+2) = PE\r\n      FMT(IFMT+3) = E156\r\n      IFMT = IFMT + 3\r\n      GO TO 1890\r\n 1880 FMT(IFMT+2) = PF\r\n      FMT(IFMT+3) = F156\r\n      FMT(IFMT+4) = I9X\r\n      IFMT = IFMT + 4\r\n 1890 CONTINUE\r\nC\r\nC     VARIABLES IN SECOND LINE IF COMPLEX\r\nC\r\n      IF (NLINES .LE. 1) GO TO 1940\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = I15X\r\n      DO 1930 I = 1,K\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = COMMA\r\n      IF (FIMAG(I)) 1910,1900,1910\r\n 1900 FMT(IFMT+1) = PF\r\n      FMT(IFMT+2) = F236\r\n      FMT(IFMT+3) = I9X\r\n      IFMT = IFMT + 3\r\n      GO TO 1930\r\n 1910 IF (L3 .EQ. 126) GO TO 1920\r\n      FMT(IFMT+1) = PE\r\n      FMT(IFMT+2) = E236\r\n      IFMT = IFMT + 2\r\n      GO TO 1930\r\n 1920 FMT(IFMT+1) = PF\r\n      FMT(IFMT+2) = F174\r\n      FMT(IFMT+3) = I6X\r\n      IFMT = IFMT + 3\r\n 1930 CONTINUE\r\nC\r\nC     COMPLETE FORMAT\r\nC\r\n 1940 FMT(IFMT+1) = CPAREN\r\n      IF (LINE .GT. MAXN) CALL OFP1\r\n      LINE = LINE + NLINES\r\n      K2   = 2*K\r\n      IHARM= (OLDHRM-1)/2\r\n      IF (NLINES .LE. 1) GO TO  1950\r\nCRPKR THE FOLLOWING LINE HAS BEEN REPLACED BY TWO LINES\r\nCRPKR WRITE (L,FMT) IHARM,(FREAL(I),I=1,K2),(FIMAG(I),I=1,K)\r\n      WRITE (L,FMT) IHARM,(REAL(I),FREAL(I+1),I=1,K2,2),\r\n     *                            (FIMAG(I),I=1,K)\r\n      GO TO 1960\r\nCRPKR THE FOLLOWING LINE HAS BEEN REPLACED\r\nC1950 WRITE (L,FMT) IHARM,(FREAL(I),I=1,K2)\r\n 1950 WRITE (L,FMT) IHARM,(REAL(I),FREAL(I+1),I=1,K2,2)\r\n 1960 K = 1\r\n      OLDHRM = NHARM\r\n      IF (.NOT. EOR) GO TO 1830\r\n      GO TO 60\r\nC\r\nC     ERROR CONDITION THIS FILE\r\nC\r\n 2000 WRITE  (L,2010) SWM,IX,POINT,FROM\r\n 2010 FORMAT (A27,', OFP BLOCK DATA ROUTINES UNAVAILABLE FOR THIS ',\r\n     1       'ELEMENT.',11X,'IX,POINT,FROM =,',3I5)\r\n 2020 WRITE  (L,2030) UWM,FROM\r\n 2030 FORMAT (A25,' 3030, OFP UNABLE TO PROCESS DATA BLOCK.  A TABLE ',\r\n     1       'PRINT OF THE DATA BLOCK FOLLOWS.   FROM =',I5,'/OFP')\r\n      CALL CLOSE  (FILE,1)\r\n      CALL TABPRT (FILE)\r\n      GO TO 2050\r\nC\r\nC     CLOSE FILE UP\r\nC\r\n 2040 CALL CLOSE (FILE,1)\r\n 2050 IF (IFILE .EQ. 6) GO TO 2060\r\n      GO TO 50\r\nC\r\nC     RESTORE TITLES TO WHATEVER THEY WERE AT ENTRY TO OFP\r\nC\r\n 2060 DO 2070 I = 1,96\r\n 2070 HEAD(I) = TSAVE(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofp1.f",
    "content": "      SUBROUTINE OFP1\r\nC\r\nC     THIS ROUTINE OUTPUTS A PAGE HEADING BASED ON PARAMETERS COMING\r\nC     THROUGH COMMON.\r\nC     THIS ROUTINE CALLS OPF1A, OFP1B OR OFP1C FOR ACTUAL PRINTING, SUCH\r\nC     THAT OFP1A, OFP1B AND OFP1C CAN BE OVERLAYED IN PARALLEL.\r\nC\r\n      INTEGER         L123(5),ID(50),OF(6)\r\n      COMMON /SYSTEM/ KSYS(100)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (CORE(1),OF(1),L123(1)), (ID(1),OF(6)),\r\n     1                (NOUT,KSYS(2)), (LINET,KSYS(12)), (IFLAG,KSYS(33))\r\nC\r\nC     IFLAG IS WORD 33 OF /SYSTEM/ AND IS SET TO INCIDATE OFP PRINTED\r\nC     LAST.\r\nC\r\n      CALL PAGE1\r\n      IFLAG = 1\r\n      DO 1000 I = 1,5\r\n      LINE = L123(I)\r\n      IF (LINE) 1000,800,500\r\n 500  IF (LINE .GT. 174) GO TO 600\r\nC\r\nC ... 1 THRU 174-\r\nC\r\n      CALL OFP1A (LINE)\r\n      GO TO 1000\r\n 600  IF (LINE .GT. 380) GO TO 700\r\nC\r\nC ... 175 THRU 380 -\r\nC\r\n      CALL OFP1B (LINE)\r\n      GO TO 1000\r\nC\r\nC ... 381 UP -\r\nC\r\n 700  CALL OFP1C (LINE)\r\n      GO TO 1000\r\nC\r\n 800  WRITE  (NOUT,900)\r\n 900  FORMAT (1H )\r\nC\r\n 1000 CONTINUE\r\n      LINET = LINET + 4\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofp1a.f",
    "content": "      SUBROUTINE OFP1A (LINE)\r\nC\r\nC     THIS ROUTINE WAS NAMED OFP1 BEFORE.\r\nC\r\n      INTEGER         L123(5),ID(50),OF(6)\r\n      REAL            FID(50),RT(8,15),SECTN(2)\r\n      COMMON /SYSTEM/ KSYS(80)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /OFP1ID/ ID22,M\r\n      EQUIVALENCE     (KSYS(2),L), (KSYS(12),LINET), (KSYS(33),IFLAG),\r\n     1                (KSYS(3),NOGO), (CORE(1),OF(1),L123(1)),\r\n     2                (FID(1) ,ID(1), OF(6))\r\nC\r\n      DATA   RT/\r\n     1 4HSING, 4HULAR, 4HITIE, 4HS EN, 4HCOUN, 4HTERE, 4HD.  , 4H    ,\r\n     2 4H4 SH, 4HIFT , 4HPTS., 4HPER , 4HROOT, 4H EXC, 4HEEDE, 4HD.  ,\r\n     3 4HALL , 4HEIGE, 4HNVAL, 4HUES , 4HFOUN, 4HD IN, 4H RAN, 4HGE. ,\r\n     4 4H3X E, 4HST.R, 4HOOTS, 4H IN , 4HRANG, 4HE SP, 4HECIF, 4HIED.,\r\n     5 4HNO M, 4HORE , 4HEIGE, 4HNVAL, 4HUES , 4HIN P, 4HROBL, 4HEM. ,\r\n     6 4HNO. , 4HOF R, 4HOOTS, 4H DES, 4HIRED, 4H WER, 4HE FO, 4HUND.,\r\n     7 4H1 OR, 4H MOR, 4HE RO, 4HOT O, 4HUTSI, 4HDE F, 4HR.RA, 4HNGE.,\r\n     8 4HINSU, 4HFFIC, 4HIENT, 4H TIM, 4HE FO, 4HR NE, 4HXT R, 4HOOT.,\r\n     9 4HUNAB, 4HLE T, 4HO CO, 4HNVER, 4HGE. , 4H    , 4H    , 4H    ,\r\n     O 4HNORM, 4HAL T, 4HERMI, 4HNATI, 4HON  , 4H    , 4H    , 4H    ,\r\n     1 4HEIGE, 4HNVAL, 4HUES , 4HOUTS, 4HIDE , 4HFREQ, 4H. RA, 4HNGE ,\r\n     2 4HINSU, 4HFFIC, 4HIENT, 4H TIM, 4HE RE, 4HMAIN, 4HING , 4H    ,\r\n     3 4HFEWE, 4HR TH, 4HAN R, 4HEQUE, 4HSTED, 4H ROO, 4HTS F, 4HOUND,\r\n     4 4HROOT, 4HS FO, 4HUND , 4HWITH, 4H REQ, 4H. AC, 4HCURA, 4HCY  ,\r\n     5 4HNO R, 4HOOTS ,4H FOU, 4HND, , 4HNONE, 4H PAS, 4HSED , 4HTEST/\r\n      DATA     SECTN / 4H.3.3, 4H.7.3  /     , TWOPI /6.283185307    /\r\nC\r\n      LOCAL = LINE - 100\r\n      IF (LOCAL) 2003,2003,2004\r\n 2003 GO TO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,\r\n     1 23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,\r\n     2 44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,\r\n     3 65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,\r\n     4 86,87,88,89,90,91,92,93,94,95,96,97,98,99,100), LINE\r\n 2004 GO TO (  101,102,103,104,105,106,107,108,109,110,111,112,113,114,\r\n     1 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,\r\n     2 131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,\r\n     3 147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,\r\n     4 163,164,165,166,167,168,169,170,171,172,173,174), LOCAL\r\nC\r\n    1 WRITE (L,501)\r\n      GO TO 1000\r\n    2 WRITE (L,502)\r\n      GO TO 1000\r\n    3 WRITE (L,503)\r\n      GO TO 1000\r\n    4 WRITE (L,504)\r\n      GO TO 1000\r\n    5 WRITE (L,505)\r\n      IF (ID22 .EQ. -999) GO TO 1000\r\n      IF (ID22) 2053,2052,2051\r\n 2051 WRITE (L,5050)\r\n      WRITE (L,5051) ID22\r\n      GO TO 2054\r\n 2052 IF (.NOT.((M.GE.3 .AND. M.LE.7) .OR. M.EQ.10 .OR. M.EQ.13))\r\n     1   GO TO 1000\r\n      WRITE (L,5050)\r\n      WRITE (L,5052)\r\n      GO TO 2054\r\n 2053 IF (M.NE.8 .AND. M.NE.12) GO TO 1000\r\n      WRITE (L,5050)\r\n      WRITE (L,5053)\r\n 2054 WRITE (L,5054)\r\n      LINET = LINET + 10\r\n      ID22  =-999\r\n      GO TO 1000\r\n    6 WRITE (L,506) ID(5)\r\n      GO TO 1000\r\n    7 WRITE (L,507)\r\n      GO TO 1000\r\n    8 WRITE (L,508)\r\n      GO TO 1000\r\n    9 WRITE (L,509)\r\n      GO TO 1000\r\n   10 WRITE (L,510)\r\n      GO TO 1000\r\n   11 WRITE (L,511)\r\n      GO TO 1000\r\n   12 WRITE (L,512)\r\n      GO TO 1000\r\n   13 WRITE (L,513)\r\n      GO TO 1000\r\n   14 WRITE (L,514)\r\n      GO TO 1000\r\n   15 WRITE (L,515)\r\n      GO TO 1000\r\n   16 WRITE (L,516)\r\n      GO TO 1000\r\n   17 WRITE (L,517)\r\n      GO TO 1000\r\n   18 WRITE (L,518)\r\n      GO TO 1000\r\n   19 WRITE (L,519)\r\n      GO TO 1000\r\n   20 WRITE (L,520)\r\n      GO TO 1000\r\n   21 WRITE (L,521)\r\n      GO TO 1000\r\n   22 WRITE (L,522)\r\n      GO TO 1000\r\n   23 WRITE (L,523)\r\n      GO TO 1000\r\n   24 WRITE (L,524)\r\n      GO TO 1000\r\n   25 WRITE (L,525)\r\n      GO TO 1000\r\n   26 WRITE (L,526)\r\n      GO TO 1000\r\n   27 WRITE (L,527)\r\n      GO TO 1000\r\n   28 WRITE (L,528)\r\n      GO TO 1000\r\n   29 WRITE (L,529)\r\n      GO TO 1000\r\nC\r\nC     PROCESS SPC AND MPC SET IDS PROPERLY TO ACCOUNT FOR AXISYMMETRIC\r\nC     PROBLEMS\r\nC\r\n   30 DO 3010 J = 3,4\r\n      IF (ID(J) .LT.  100000000) GO TO 3010\r\n      ID(J) = ID(J) - 100000000\r\n      IF (ID(J) .LT.  100000000) GO TO 3010\r\n      ID(J) = ID(J) - 100000000\r\n 3010 CONTINUE\r\n      WRITE (L,530) ID(3),ID(4)\r\n      LINET = LINET + 1\r\n      GO TO 1000\r\n   31 WRITE (L,531)\r\n      GO TO 1000\r\n   32 WRITE (L,532)\r\n      GO TO 1000\r\n   33 WRITE (L,533)\r\n      GO TO 1000\r\n   34 WRITE (L,534)\r\n      GO TO 1000\r\n   35 WRITE (L,535)\r\n      GO TO 1000\r\n   36 WRITE (L,536)\r\n      GO TO 1000\r\n   37 WRITE (L,537)\r\n      GO TO 1000\r\n   38 WRITE (L,538)\r\n      GO TO 1000\r\n   39 WRITE (L,539)\r\n      GO TO 1000\r\n   40 WRITE (L,540)\r\n      GO TO 1000\r\n   41 WRITE (L,541)\r\n      GO TO 1000\r\n   42 WRITE (L,542)\r\n      GO TO 1000\r\n   43 WRITE (L,543)\r\n      GO TO 1000\r\n   44 WRITE (L,544)\r\n      GO TO 1000\r\n   45 WRITE (L,545)\r\n      GO TO 1000\r\n   46 WRITE (L,546)\r\n      GO TO 1000\r\n   47 WRITE (L,547)\r\n      GO TO 1000\r\n   48 WRITE (L,548)\r\n      GO TO 1000\r\n   49 WRITE (L,549)\r\n      GO TO 1000\r\n   50 WRITE (L,550)\r\n      GO TO 1000\r\n   51 WRITE (L,551)\r\n      GO TO 1000\r\n   52 WRITE (L,552)\r\n      GO TO 1000\r\n   53 WRITE (L,553)\r\n      GO TO 1000\r\n   54 WRITE (L,554)\r\n      GO TO 1000\r\n   55 WRITE (L,555)\r\n      GO TO 1000\r\n   56 WRITE (L,556)\r\n      GO TO 1000\r\n   57 WRITE (L,557)\r\n      GO TO 1000\r\n   58 WRITE (L,558)\r\n      GO TO 1000\r\n   59 WRITE (L,559)\r\n      GO TO 1000\r\n   60 WRITE (L,560)\r\n      GO TO 1000\r\n   61 WRITE (L,561)\r\n      GO TO 1000\r\n   62 WRITE (L,562)\r\n      GO TO 1000\r\n   63 WRITE (L,563)\r\n      GO TO 1000\r\n   64 WRITE (L,564)\r\n      GO TO 1000\r\n   65 WRITE (L,565)\r\n      GO TO 1000\r\n   66 WRITE (L,566)\r\n      GO TO 1000\r\n   67 WRITE (L,567)\r\n      GO TO 1000\r\n   68 WRITE (L,568)\r\n      GO TO 1000\r\n   69 WRITE (L,569)\r\n      GO TO 1000\r\n   70 WRITE (L,570)\r\n      GO TO 1000\r\n   71 WRITE (L,571)\r\n      GO TO 1000\r\n   72 WRITE (L,572)\r\n      GO TO 1000\r\n   73 WRITE (L,573)\r\n      GO TO 1000\r\n   74 WRITE (L,574)\r\n      GO TO 1000\r\n   75 WRITE (L,575)\r\n      GO TO 1000\r\n   76 WRITE (L,576)\r\n      GO TO 1000\r\n   77 WRITE (L,577)\r\n      GO TO 1000\r\n   78 WRITE (L,578)\r\n      GO TO 1000\r\n   79 WRITE (L,579)\r\n      GO TO 1000\r\n   80 WRITE (L,580)\r\n      GO TO 1000\r\n   81 WRITE (L,581)\r\n      GO TO 1000\r\n   82 WRITE (L,582)\r\n      GO TO 1000\r\n   83 WRITE (L,583)\r\n      GO TO 1000\r\n   84 WRITE (L,584)\r\n      GO TO 1000\r\n   85 WRITE (L,585)\r\n      GO TO 1000\r\n   86 WRITE (L,586)\r\n      GO TO 1000\r\n   87 WRITE (L,587)\r\n      GO TO 1000\r\n   88 WRITE (L,588)\r\n      GO TO 1000\r\n   89 WRITE (L,589)\r\n      GO TO 1000\r\n   90 IF (ID(16) .EQ. 1) GO TO 905\r\n      WRITE (L,590)\r\n      GO TO 1000\r\n  905 WRITE (L,5905)\r\n      GO TO 1000\r\n   91 WRITE (L,591) (ID(K),K=11,15),ID(17),FID(18),(ID(K),K=19,21)\r\n      M = ID(17)\r\n      IF (M .GE. 8) NOGO = 14\r\n      IF (ID(16) .NE. 1) GO TO 911\r\n      IF (M.EQ.2 .OR. M.GT.3) NOGO = 14\r\n      IF (M .EQ. 0) M = 10\r\n      IF (M .EQ. 1) M = 13\r\n      IF (M .EQ. 3) M = 14\r\n  911 IF (M .GT. 0) WRITE (L,5911) (RT(K,M),K=1,8),SECTN(1)\r\n      ID22 = ID(22)\r\n      GO TO 1000\r\n   92 WRITE (L,592)\r\n      GO TO 1000\r\n   93 WRITE (L,593) (ID(K),K=11,17),FID(18),(ID(K),K=19,21)\r\n      M = ID(17)\r\n  933 IF (M .GE. 3) NOGO = 14\r\n      IF (M .EQ. 1) M = 6\r\n      IF (M .EQ. 2) M = 11\r\n      IF (M .EQ. 3) M = 8\r\n      IF (M .EQ. 4) M = 1\r\n      GO TO 911\r\n   94 WRITE (L,594)\r\n      GO TO 1000\r\n   95 WRITE (L,595)\r\n      GO TO 1000\r\n   96 WRITE (L,596)\r\n      SECTN(1) = SECTN(2)\r\n      GO TO 1000\r\n   97 WRITE (L,597)\r\n      GO TO 1000\r\n   98 WRITE (L,598) (ID(K),K=11,18)\r\n      M = ID(18)\r\n      GO TO 933\r\n   99 IF (ID(3) .EQ. 4) GO TO 1007\r\n      WRITE (L,599) (ID(K),K=11,16)\r\n      M = ID(16)\r\n      IF (ID(17) .NE. 1) GO TO 911\r\n      IF (M .GT. 2) NOGO = 14\r\n      IF (M .EQ. 0) M = 10\r\n      IF (M .EQ. 1) M = 13\r\n      IF (M .EQ. 2) M = 15\r\n      GO TO 911\r\nC\r\nC     ID(3)=2, ID(17)=0, METHOD IS COMPLEX INV\r\nC     ID(3)=2, ID(17)=1, METHOD IS COMPLEX FEER\r\nC     ID(3)=4, ID(17)=0, METHOD IS COMPLEX HESS\r\nC\r\n  100 SECTN(1) = SECTN(2)\r\n      IF (ID(17) .EQ. 1) GO TO 1005\r\n      IF (ID( 3) .EQ. 4) GO TO 1006\r\n      WRITE (L,600)\r\n      GO TO 1000\r\n 1005 WRITE (L,6005)\r\n      GO TO 1000\r\n 1006 WRITE (L,6006)\r\n      GO TO 1000\r\n 1007 WRITE (L,6007) ID(11),ID(12),ID(18)\r\n      M = ID(18)\r\n      GO TO 933\r\n  101 F = SQRT(ABS(FID(6)))/TWOPI\r\n      WRITE (L,601) FID(6),F\r\n      LINET = LINET + 1\r\n      GO TO 1000\r\n  102 F = SQRT(ABS(FID(6)))/TWOPI\r\n      WRITE (L,602) FID(6),F\r\n      LINET = LINET + 1\r\n      GO TO 1000\r\n  103 WRITE (L,603) FID(5)\r\n      GO TO 1000\r\n  104 CONTINUE\r\n      WRITE (L,604) FID(5)\r\n      GO TO 1000\r\n  105 WRITE (L,605) FID(5)\r\n      GO TO 1000\r\n  106 CONTINUE\r\n      WRITE (L,606) FID(5)\r\n      GO TO 1000\r\n  107 WRITE (L,607) ID(5)\r\n      GO TO 1000\r\n  108 WRITE (L,608) ID(5)\r\n      GO TO 1000\r\n  109 CYCFRQ = ABS(FID(7)) / TWOPI\r\n      WRITE (L,609) FID(6),FID(7),CYCFRQ\r\n      GO TO 1000\r\n  110 CONTINUE\r\n      CYCFRQ = ABS(FID(7)) / TWOPI\r\n      WRITE (L,610) FID(6),FID(7),CYCFRQ\r\n      GO TO 1000\r\n  111 WRITE (L,611)\r\n      GO TO 1000\r\n  112 WRITE (L,612)\r\n      GO TO 1000\r\n  113 WRITE (L,613)\r\n      GO TO 1000\r\n  114 WRITE (L,614)\r\n      GO TO 1000\r\n  115 WRITE (L,615)\r\n      GO TO 1000\r\n  116 WRITE (L,616)\r\n      GO TO 1000\r\n  117 WRITE (L,617)\r\n      GO TO 1000\r\n  118 WRITE (L,618)\r\n      GO TO 1000\r\n  119 WRITE (L,619)\r\n      GO TO 1000\r\n  120 WRITE (L,620)\r\n      GO TO 1000\r\n  121 WRITE (L,621)\r\n      GO TO 1000\r\n  122 WRITE (L,622)\r\n      GO TO 1000\r\n  123 WRITE (L,623)\r\n      GO TO 1000\r\n  124 WRITE (L,624) ID(5)\r\n      GO TO 1000\r\n  125 WRITE (L,625)\r\n      GO TO 1000\r\n  126 WRITE (L,626)\r\n      GO TO 1000\r\n  127 WRITE (L,627)\r\n      GO TO 1000\r\n  128 WRITE (L,628)\r\n      GO TO 1000\r\n  129 WRITE (L,629)\r\n      GO TO 1000\r\n  130 WRITE (L,630)\r\n      GO TO 1000\r\n  131 WRITE (L,631)\r\n      GO TO 1000\r\n  132 WRITE (L,632)\r\n      GO TO 1000\r\n  133 WRITE (L,633)\r\n      GO TO 1000\r\n  134 WRITE (L,634)\r\n      GO TO 1000\r\n  135 WRITE (L,635)\r\n      GO TO 1000\r\n  136 WRITE (L,636)\r\n      GO TO 1000\r\n  137 WRITE (L,637)\r\n      GO TO 1000\r\n  138 WRITE (L,638)\r\n      GO TO 1000\r\n  139 WRITE (L,639)\r\n      GO TO 1000\r\n  140 WRITE (L,640)\r\n      GO TO 1000\r\n  141 CONTINUE\r\n      GO TO 1000\r\n  142 WRITE (L,642)\r\n      GO TO 1000\r\n  143 WRITE (L,643)\r\n      GO TO 1000\r\n  144 WRITE (L,644)\r\n      GO TO 1000\r\n  145 WRITE (L,645)\r\n      GO TO 1000\r\n  146 WRITE (L,646)\r\n      GO TO 1000\r\n  147 CONTINUE\r\n      GO TO 1000\r\n  148 WRITE (L,648)\r\n      GO TO 1000\r\n  149 WRITE (L,649)\r\n      GO TO 1000\r\n  150 WRITE (L,650)\r\n      GO TO 1000\r\n  151 WRITE (L,651)\r\n      GO TO 1000\r\n  152 WRITE (L,652)\r\n      GO TO 1000\r\n  153 WRITE (L,653)\r\n      GO TO 1000\r\n  154 WRITE (L,654)\r\n      GO TO 1000\r\n  155 WRITE (L,655)\r\n      GO TO 1000\r\n  156 WRITE (L,656)\r\n      GO TO 1000\r\n  157 WRITE (L,657)\r\n      GO TO 1000\r\n  158 WRITE (L,658)\r\n      GO TO 1000\r\n  159 WRITE (L,659)\r\n      GO TO 1000\r\n  160 WRITE (L,660)\r\n      GO TO 1000\r\n  161 WRITE (L,661)\r\n      GO TO 1000\r\n  162 WRITE (L,662)\r\n      GO TO 1000\r\n  163 WRITE (L,663)\r\n      GO TO 1000\r\n  164 WRITE (L,664)\r\n      GO TO 1000\r\n  165 WRITE (L,665)\r\n      GO TO 1000\r\n  166 WRITE (L,666)\r\n      GO TO 1000\r\n  167 WRITE (L,667)\r\n      GO TO 1000\r\n  168 WRITE (L,668)\r\n      GO TO 1000\r\n  169 WRITE (L,669)\r\n      GO TO 1000\r\n  170 WRITE (L,670)\r\n      GO TO 1000\r\n  171 WRITE (L,671)\r\n      GO TO 1000\r\n  172 WRITE (L,672)\r\n      GO TO 1000\r\n  173 WRITE (L,673)\r\n      GO TO 1000\r\n  174 WRITE (L,674)\r\n 1000 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n  501 FORMAT (45X,37HD I S P L A C E M E N T   V E C T O R)\r\n  502 FORMAT (6X,16HPOINT ID.   TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X,\r\n     1       2HR1,13X,2HR2,13X,2HR3)\r\n  503 FORMAT (46X, 31HR E A L   E I G E N V A L U E S,/)\r\n  504 FORMAT (3X, 4HMODE, 4X, 10HEXTRACTION, 7X, 10HEIGENVALUE, 12X,\r\n     1       6HRADIAN, 14X, 6HCYCLIC, 2X, 2(9X, 11HGENERALIZED))\r\n  505 FORMAT (4X,3HNO., 7X, 5HORDER, 30X, 9HFREQUENCY, 11X, 9HFREQUENCY,\r\n     1       12X,4HMASS, 14X, 9HSTIFFNESS,/)\r\n 5050 FORMAT (/37X,16(4H****), /37X,1H*,62X,1H*, /37X,1H*)\r\n 5051 FORMAT (1H+,45X,'NASTRAN INFORMATION MESSAGE 3307, POTENTIALLY',\r\n     1       9X,1H*, /37X,1H*,I10,' EIGENVALUE(S) AT LOW FREQ. END NOT',\r\n     2       ' FOUND',11X,1H*)\r\n 5052 FORMAT (1H+,39X,'NASTRAN INFORMATION MESSAGE 3308, LOWEST EIGEN',\r\n     1       'VALUE FOUND',3X,1H*, /37X,1H*,2X,'AS INDICATED BY THE ',\r\n     2       'STURM''S SEQUENCE OF THE DYNAMIC MATRIX',2X,1H*)\r\n 5053 FORMAT (1H+,42X,'NASTRAN WARNING MESSAGE 3309, ALL LOWER EIGEN',\r\n     1       'VALUES',6X,1H*, /37X,1H*, 5X,'NOT NECESSARY FOUND.',37X,\r\n     2       1H*)\r\n 5054 FORMAT (37X,1H*,62X,1H*, /37X,1H*,8X,\r\n     1       43H(THIS MESSAGE CAN BE SUPPRESSED BY DIAG 37),11X,1H*,\r\n     1       /37X,16(4H****),/)\r\n  506 FORMAT (41X,39HR E A L   E I G E N V E C T O R   N O .,I11)\r\n  507 FORMAT (7X,7HELEMENT,11X,5HAXIAL,37X,7HELEMENT,11X,5HAXIAL)\r\n  508 FORMAT (9X,3HID.,13X,5HFORCE,10X,6HTORQUE,23X,3HID.,13X,5HFORCE,\r\n     1       10X,6HTORQUE)\r\n  509 FORMAT (12H0    ELEMENT,9X,17HBEND-MOMENT END-A,12X,17HBEND-MOMENT\r\n     1 END-B,16X,9H- SHEAR -,15X,5HAXIAL)\r\n  510 FORMAT (4X,9H   ID.   ,3(6X,7HPLANE 1,7X,7HPLANE 2,2X),7X,5HFORCE,\r\n     1       9X,6HTORQUE)\r\n  511 FORMAT (7X,7HELEMENT,11X,5HFORCE,10X,5HFORCE,22X,7HELEMENT,11X,\r\n     1       5HFORCE,10X,5HFORCE)\r\n  512 FORMAT (9X,3HID.,12X,7HPTS 1,3,8X,7HPTS 2,4,23X,3HID.,12X,\r\n     1       7HPTS 1,3,8X,7HPTS 2,4)\r\n  513 FORMAT (7X,7HELEMENT,10X,6HMOMENT,9X,6HMOMENT,22X,7HELEMENT,10X,\r\n     1       6HMOMENT,9X,6HMOMENT)\r\n  514 FORMAT (1H0,8X,7HELEMENT,2(11X,11HBEND-MOMENT),10X,12HTWIST-MOMENT\r\n     1,      2(13X,5HSHEAR,4X))\r\n  515 FORMAT (11X,3HID.,17X,1HX,21X,1HY,43X,1HX,21X,1HY)\r\n  516 FORMAT (6X,3(7HELEMENT,9X,5HFORCE,12X),7HELEMENT,9X,5HFORCE)\r\n  517 FORMAT (8X,3(3HID.,30X),3HID.)\r\n  518 FORMAT (2(7X,7HELEMENT,7X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X,\r\n     1       6HSAFETY))\r\n  519 FORMAT (2(9X,3HID.,8X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X,\r\n     1       6HMARGIN))\r\n  520 FORMAT (2X,7HELEMENT,8X,3HSA1,12X,3HSA2,12X,3HSA3,15X,1HS,14X,\r\n     1       6HSA-MAX,9X,6HSA-MIN,11X,6HM.S.-T)\r\n  521 FORMAT (4X,3HID.,10X,3HSB1,12X,3HSB2,12X,3HSB3,30X,6HSB-MAX,9X,\r\n     1       6HSB-MIN,11X,6HM.S.-C)\r\n  522 FORMAT (2(9X,7HELEMENT,12X,3HMAX,12X,3HAVG,8X,6HSAFETY))\r\n  523 FORMAT (2(11X,3HID.,13X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN))\r\n  524 FORMAT (2(11X,3HID.,40X,6HMARGIN))\r\n  525 FORMAT (2X,7HELEMENT,11X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X,\r\n     1       9HPRINCIPAL,11X,18HPRINCIPAL STRESSES,12X,3HMAX)\r\n  526 FORMAT (4X,3HID.,11X,8HNORMAL-X,7X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,\r\n     1       12HSTRESS ANGLE,9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  527 FORMAT (2X,7HELEMENT,6X,5HFIBRE,15X,'STRESSES IN ELEMENT COORD ',\r\n     1       'SYSTEM',13X,'PRINCIPAL STRESSES (ZERO SHEAR)',12X,3HMAX)\r\n  528 FORMAT (4X,3HID.,7X,8HDISTANCE,11X,8HNORMAL-X,7X,8HNORMAL-Y,6X,\r\n     1       8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR)\r\n  529 FORMAT (6X,3(7HELEMENT,9X,6HSTRESS,11X),7HELEMENT,9X,6HSTRESS)\r\n  530 FORMAT (30X,'G R I D   P O I N T   S I N G U L A R I T Y   ',\r\n     1       'T A B L E',6X,3HSPC,I9,3X,3HMPC,I9)\r\n  531 FORMAT (8X,5HPOINT,10X,11HSINGULARITY,18X,'LIST OF COORDINATE ',\r\n     1       'COMBINATIONS THAT WILL REMOVE SINGULARITY')\r\n  532 FORMAT (9X,3HID.,3X,4HTYPE,7X,5HORDER,7X,21HSTRONGEST COMBINATION,\r\n     1       15X,18HWEAKER COMBINATION,17X,19HWEAKEST COMBINATION)\r\n  533 FORMAT (53X,21HL O A D   V E C T O R)\r\n  534 FORMAT (2X,7HELEMENT,8X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,11X,\r\n     1       5HAXIAL,10X,6HSA-MAX,9X,17HSA-MIN     M.S.-T)\r\n  535 FORMAT (4X,3HID.,10X,3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,11X,\r\n     1       6HSTRESS,9X,6HSB-MAX,9X,17HSB-MIN     M.S.-C)\r\n  536 FORMAT (43X,'F O R C E S   I N   R O D   E L E M E N T S',5X,\r\n     1       '( C R O D )')\r\n  537 FORMAT (33X,'F O R C E S   I N   B E A M   E L E M E N T S',8X,\r\n     1       '( C B E A M )')\r\n  538 FORMAT (27X,'F O R C E S   A C T I N G   O N   S H E A R   ',\r\n     1       'P A N E L   E L E M E N T S   ( C S H E A R )')\r\n  539 FORMAT (37X,'F O R C E S   I N   T W I S T   P A N E L S',6X,\r\n     1       '( C T W I S T )')\r\n  540 FORMAT (21X,'F O R C E S   I N   B A S I C   B E N D I N G   ',\r\n     1       'T R I A N G L E S',7X,'( C T R B S C )')\r\n  541 FORMAT (30X,'F O R C E S   I N   S C A L A R   S P R I N G S',8X,\r\n     1       '( C E L A S 1 )')\r\n  542 FORMAT (30X,'F O R C E S   I N   S C A L A R   S P R I N G S',8X,\r\n     1       '( C E L A S 2 )')\r\n  543 FORMAT (30X,'F O R C E S   I N   S C A L A R   S P R I N G S',8X,\r\n     1       '( C E L A S 3 )')\r\n  544 FORMAT (30X,'F O R C E S   I N   S C A L A R   S P R I N G S',8X,\r\n     1       '( C E L A S 4 )')\r\n  545 FORMAT (31X,'F O R C E S   O F   S I N G L E - P O I N T   ',\r\n     1       'C O N S T R A I N T')\r\n  546 FORMAT (43X,'F O R C E S   I N   R O D   E L E M E N T S',5X,\r\n     1       '( C O N R O D )')\r\n  547 FORMAT (33X,'F O R C E S   I N   B A R   E L E M E N T S',9X,\r\n     1       '( C B A R )')\r\n  548 FORMAT (17X,'F O R C E S   I N   B E N D I N G   Q U A D R I L A',\r\n     1       ' T E R A L S',9X,'( C Q D P L T )')\r\n  549 FORMAT (17X,'F O R C E S   I N   G E N E R A L   Q U A D R I L A',\r\n     1       ' T E R A L   E L E M E N T S     ( C Q U A D 1 )')\r\n  550 FORMAT (17X,'F O R C E S   I N   G E N E R A L   Q U A D R I L A',\r\n     1       'T E R A L   E L E M E N T S     ( C Q U A D 2 )')\r\n  551 FORMAT (21X,'F O R C E S   I N   G E N E R A L   T R I A N G U L',\r\n     1       ' A R   E L E M E N T S',8X,'( C T R I A 1 )')\r\n  552 FORMAT (21X,'F O R C E S   I N   G E N E R A L   T R I A N G U L',\r\n     1       ' A R   E L E M E N T S',8X,'( C T R I A 2 )')\r\n  553 FORMAT (27X,'F O R C E S   I N   B E N D I N G   T R I A N G L E',\r\n     1       ' S       ( C T R P L T )')\r\n  554 FORMAT (33X,'F O R C E S   I N   R O D   E L E M E N T S     ',\r\n     1       '( C T U B E )')\r\n  555 FORMAT (37X,'S T R E S S E S   I N   R O D   E L E M E N T S',6X,\r\n     1       '( C R O D )')\r\n  556 FORMAT (34X,'S T R E S S E S   I N   B E A M   E L E M E N T S',\r\n     1       8X,'( C B E A M )')\r\n  557 FORMAT (40X,'S T R E S S E S   I N   S H E A R   P A N E L S',6X,\r\n     1       '( C S H E A R )')\r\n  558 FORMAT (40X,'S T R E S S E S   I N   T W I S T   P A N E L S',7X,\r\n     1       '( C T W I S T )')\r\n  559 FORMAT (22X,'S T R E S S E S   I N   T R I A N G U L A R   ',\r\n     1       'M E M B R A N E S      ( C T R M E M )')\r\n  560 FORMAT (19X,'S T R E S S E S   I N   B A S I C   B E N D I N G  ',\r\n     1       ' T R I A N G L E S',8X,'( C T R B S C )')\r\n  561 FORMAT (30X,'S T R E S S E S   I N   S C A L A R   S P R I N G S',\r\n     1       8X,'( C E L A S 1 )')\r\n  562 FORMAT (30X,'S T R E S S E S   I N   S C A L A R   S P R I N G S',\r\n     1       8X,'( C E L A S 2 )')\r\n  563 FORMAT (30X,'S T R E S S E S   I N   S C A L A R   S P R I N G S',\r\n     1       8X,'( C E L A S 3 )')\r\n  564 FORMAT (33X,'S T R E S S E S   I N   B A R   E L E M E N T S',10X,\r\n     1       '( C B A R )')\r\n  565 FORMAT (37X,'S T R E S S E S   I N   R O D   E L E M E N T S',6X,\r\n     1       '( C O N R O D )')\r\n  566 FORMAT (21X,'S T R E S S E S   I N   Q U A D R I L A T E R A L  ',\r\n     1       ' M E M B R A N E S      ( C Q D M E M )')\r\n  567 FORMAT (18X,'S T R E S S E S   I N   B E N D I N G   Q U A D R I',\r\n     1       ' L A T E R A L S',13X,'( C Q D P L T )')\r\n  568 FORMAT (18X,'S T R E S S E S   I N   G E N E R A L   Q U A D R I',\r\n     1       ' L A T E R A L   E L E M E N T S',6X,'( C Q U A D 1 )')\r\n  569 FORMAT (18X,'S T R E S S E S   I N   G E N E R A L   Q U A D R I',\r\n     1       ' L A T E R A L   E L E M E N T S',6X,'( C Q U A D 2 )')\r\n  570 FORMAT (18X,'S T R E S S E S   I N   G E N E R A L   T R I A N G',\r\n     1       ' U L A R   E L E M E N T S',7X,'( C T R I A 1 )')\r\n  571 FORMAT (18X,'S T R E S S E S   I N   G E N E R A L   T R I A N G',\r\n     1       ' U L A R   E L E M E N T S',7X,'( C T R I A 2 )')\r\n  572 FORMAT (24X,'S T R E S S E S   I N   B E N D I N G   T R I A N G',\r\n     1       ' L E S',8X,'( C T R P L T )')\r\n  573 FORMAT (36X,'S T R E S S E S   I N   R O D   E L E M E N T S',6X,\r\n     1       '( C T U B E )')\r\n  574 FORMAT (20X,'S T R E S S E S   F O R   T H E   T R I A N G U L A',\r\n     1       ' R   R I N G S',5X,'( C T R I A R G )')\r\n  575 FORMAT (5X,3HEL ,13X,6HRADIAL,20X,15HCIRCUMFERENTIAL,20X,5HAXIAL,\r\n     1       25X,5HSHEAR)\r\n  576 FORMAT (5X,3HID ,15X,3H(X),25X,7H(THETA),25X,3H(Z),27X,4H(ZX))\r\n  577 FORMAT (18X,'S T R E S S E S   F O R   T H E   T R A P E Z O I D',\r\n     1       ' A L   R I N G S',5X,'( C T R A P R G )')\r\n  578 FORMAT (5X,3HEL ,5X,6HSTRESS,15X,6HRADIAL,16X,15HCIRCUMFERENTIAL,\r\n     1       16X,5HAXIAL,21X,5HSHEAR)\r\n  579 FORMAT (5X,3HID ,6X,5HPOINT,17X,3H(X),21X,7H(THETA),21X,3H(Z),23X,\r\n     1       4H(ZX))\r\n  580 FORMAT (11X,'S T R E S S   R E S U L T A N T S   F O R   T H E  ',\r\n     1       ' T O R O I D A L   R I N G S     ( C T O R D R G )')\r\n  581 FORMAT (5X, 3HEL , 8H  STRESS, 15X, 17HMEMBRANE (FORCES), 26X,\r\n     1       17HFLEXURE (MOMENTS), 23X, 5HSHEAR)\r\n  582 FORMAT (5X,2HID,9H    POINT,8X,10HTANGENTIAL,10X,'CIRCUMFERENTIAL'\r\n     1,      8X,10HTANGENTIAL,11X,15HCIRCUMFERENTIAL,10X,7H(FORCE))\r\n  583 FORMAT (22X,'F O R C E S   F O R   T H E   T R I A N G U L A R  ',\r\n     1       ' R I N G S     ( C T R I A R G )')\r\n  584 FORMAT (5X,12HEL    CORNER,18X,6HRADIAL,26X,15HCIRCUMFERENTIAL,\r\n     1       26X,5HAXIAL)\r\n  585 FORMAT (5X,12HID     POINT,20X,3H(X),31X,7H(THETA),31X,3H(Z))\r\n  586 FORMAT (21X,'F O R C E S   F O R   T H E   T R A P E Z O I D A L',\r\n     1       '   R I N G S     ( C T R A P R G )')\r\n  587 FORMAT (23X,'F O R C E S   F O R   T H E   T O R O I D A L   ',\r\n     1       'R I N G S     ( C T O R D R G )')\r\n  588 FORMAT (5X,12HEL    CORNER,9X,6HRADIAL,8X,15HCIRCUMFERENTIAL,7X,\r\n     1       5HAXIAL,13X,6HMOMENT,9X,13HDIRECT STRAIN,7X,9HCURVATURE)\r\n  589 FORMAT (5X,12HID     POINT,11X,3H(X),13X,7H(THETA),12X,3H(Z),15X,\r\n     1       4H(ZX),14X,4H(XI),13X,7H(XI,XI))\r\n  590 FORMAT (30X,'E I G E N V A L U E   A N A L Y S I S   S U M M A R',\r\n     1       ' Y     (INVERSE POWER METHOD)')\r\n 5905 FORMAT (30X,'E I G E N V A L U E   A N A L Y S I S   S U M M A R',\r\n     1       ' Y',9X,'(FEER METHOD)')\r\n  591 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .),\r\n     1       I10,/1H0,39X,30HNUMBER OF STARTING POINTS USED,7(2H .),I10,\r\n     2       /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I10,\r\n     3       /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .),\r\n     4       I10,/1H0,39X,34HTOTAL NUMBER OF VECTOR ITERATIONS ,5(2H .),\r\n     4       I10,//1H0,39X,22HREASON FOR TERMINATION,11(2H .),I10,1H*,/,\r\n     5       /1H0,39X,36HLARGEST OFF-DIAGONAL MODAL MASS TERM,4(2H .),\r\n     6       E10.2, /1H0,77X,3(2H .),I10, /50X,9HMODE PAIR ,10(2H .),\r\n     7       /78X,3(2H .),I10, /1H0,39X,'NUMBER OF OFF-DIAGONAL MODAL ',\r\n     8       'MASS', /45X,23HTERMS FAILING CRITERION,8(2H .),I10)\r\n 5911 FORMAT (/1H0,39X,3H(* ,8A4, /41X,'SEE NASTRAN U.M. VOL II, ',\r\n     1       'SECTION 2',A4,1H))\r\n  592 FORMAT (26X,'E I G E N V A L U E   A N A L Y S I S   S U M M A R',\r\n     1       ' Y       (DETERMINANT METHOD)')\r\n  593 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .),\r\n     1       I9,/1H0,39X,44HNUMBER OF PASSES THROUGH STARTING POINTS . .\r\n     2,      I9,/1H0,39X,26HNUMBER OF CRITERIA CHANGES,9(2H .),I9,\r\n     3       /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I9,\r\n     4       /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .),\r\n     5       I9,/1H0,39X,44HNUMBER OF FAILURES TO ITERATE TO A ROOT  . .\r\n     6,      I9, //1H0,39X,22HREASON FOR TERMINATION,11(2H .),I9,1H*,\r\n     7       //,1H0,39X,36HLARGEST OFF-DIAGONAL MODAL MASS TERM,4(2H .),\r\n     8       E9.2,/1H0,77X,3(2H .),I9,/50X, 9HMODE PAIR ,10(2H .), /78X,\r\n     9       3(2H .),I9, /1H0,39X,33HNUMBER OF OFF-DIAGONAL MODAL MASS,\r\n     O       /45X,23HTERMS FAILING CRITERION,8(2H .),I9)\r\n  594 FORMAT (10X,14HSTARTING POINT,6X,6HLAMBDA,9X,'RADIAN FREQUENCY  ',\r\n     1       '  CYCLIC FREQUENCY    DETERMINANT',9X,'SCALE FACTOR',/)\r\n  595 FORMAT (1H0,40X,'S W E P T   D E T E R M I N A N T   F U N C T I',\r\n     1       ' O N',/)\r\n  596 FORMAT (20X,'C O M P L E X   E I G E N V A L U E   A N A L Y S I',\r\n     1       ' S   S U M M A R Y     (DETERMINANT METHOD)')\r\n  597 FORMAT (42X,5H- P -,35X,10H- DET(P) -, /10X,14HSTARTING POINT,10X,\r\n     1       4HREAL,13X,4HIMAG,20X,9HMAGNITUDE,9X,5HPHASE,5X,\r\n     2       12HSCALE FACTOR)\r\n  598 FORMAT (1H0, /1H0,39X,32HNUMBER OF EIGENVALUES EXTRACTED ,6(2H .),\r\n     1       I9,/1H0,39X,44HNUMBER OF PASSES THROUGH STARTING POINTS . .\r\n     2,      I9,/1H0,39X,26HNUMBER OF CRITERIA CHANGES,9(2H .),I9,\r\n     3       /1H0,39X,30HNUMBER OF STARTING POINT MOVES,7(2H .),I9,\r\n     4       /1H0,39X,36HNUMBER OF TRIANGULAR DECOMPOSITIONS ,4(2H .),\r\n     5       I9,/1H0,39X,44HNUMBER OF FAILURES TO ITERATE TO A ROOT  . .\r\n     6,      I9,/1H0,39X,36HNUMBER OF PREDICTIONS OUTSIDE REGION,4(2H .)\r\n     7,      I9,/1H0,/1H0,39X,22HREASON FOR TERMINATION,11(2H .),I9,1H*)\r\n  599 FORMAT (1H0, /1H0, /1H0,35X,32HNUMBER OF EIGENVALUES EXTRACTED ,\r\n     1       9(2H .),I9, /1H0,35X,30HNUMBER OF STARTING POINTS USED,\r\n     2       10(2H .),I9, /1H0,35X,\r\n     3       50HNUMBER OF STARTING POINT OR SHIFT POINT MOVES  . .,I9,\r\n     4       /1H0,35X,42HTOTAL NUMBER OF TRIANGULAR DECOMPOSITIONS ,\r\n     5       4(2H .),I9, /1H0,35X,34HTOTAL NUMBER OF VECTOR ITERATIONS ,\r\n     6       8(2H .),I9, /1H0, /1H0,35X,22HREASON FOR TERMINATION,\r\n     7       14(2H .),I9,1H*)\r\n  600 FORMAT (19X,'C O M P L E X   E I G E N V A L U E   A N A L Y S I',\r\n     1       ' S   S U M M A R Y   (INVERSE POWER METHOD)')\r\n 6005 FORMAT (23X,'C O M P L E X   E I G E N V A L U E   A N A L Y S I',\r\n     1       ' S   S U M M A R Y     (FEER METHOD)')\r\n 6006 FORMAT (20X,'C O M P L E X   E I G E N V A L U E   A N A L Y S I',\r\n     1       ' S   S U M M A R Y     (HESSENBERG METHOD)')\r\n 6007 FORMAT (1H0, /1H0, /,1H0,35X,32HNUMBER OF EIGENVALUES EXTRACTED ,\r\n     1       9(2H .),I9, /,1H0,35X,30HNUMBER OF EIGENVALUES DESIRED ,\r\n     2       10(2H .),I9, /,1H0,35X,22HREASON FOR TERMINATION,14(2H .),\r\n     3       I9,1H*)\r\n  601 FORMAT (6X, 'EIGENVALUE =',E14.6,\r\n     *        4X, '(CYCLIC FREQUENCY =', E14.6, ' HZ)'/)\r\n  602 FORMAT (6X, 'EIGENVALUE =',E14.6,\r\n     *        4X, '(CYCLIC FREQUENCY =', 1P,E14.6, ' HZ)'/)\r\n  603 FORMAT (6X,11HFREQUENCY =,E14.6)\r\n  604 FORMAT (6X,11HFREQUENCY =,1P,E14.6)\r\n  605 FORMAT (6X,6HTIME =,E14.6)\r\n  606 FORMAT (6X,6HTIME =,1P,E14.6)\r\n  607 FORMAT (6X,10HPOINT-ID =,I8)\r\n  608 FORMAT (6X,12HELEMENT-ID =,I8,/)\r\n  609 FORMAT (6X,20HCOMPLEX EIGENVALUE =,E14.6,1H,,E14.6,\r\n     *        4X, '(CYCLIC FREQUENCY =', E14.6, 'HZ)')\r\n  610 FORMAT (6X,20HCOMPLEX EIGENVALUE =,1P,E14.6,1H,,1P,E14.6,\r\n     *        4X, '(CYCLIC FREQUENCY =', 1P,E14.6, 'HZ)')\r\n  611 FORMAT (6X,16HFREQUENCY   TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X,\r\n     1       2HR1,13X,2HR2,13X,2HR3)\r\n  612 FORMAT (6X,16H TIME       TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X,\r\n     1       2HR1,13X,2HR2,13X,2HR3)\r\n  613 FORMAT (48X,30HV E L O C I T Y    V E C T O R )\r\n  614 FORMAT (44X,38HA C C E L E R A T I O N    V E C T O R )\r\n  615 FORMAT (41X,45HN O N - L I N E A R - F O R C E   V E C T O R )\r\n  616 FORMAT (40X,'C O M P L E X   E I G E N V A L U E   S U M M A R Y')\r\n  617 FORMAT (1H0,16X,19HROOT     EXTRACTION,18X,10HEIGENVALUE,21X,\r\n     1       9HFREQUENCY,14X,7HDAMPING)\r\n  618 FORMAT (18X,3HNO.,8X,5HORDER,13X,6H(REAL),11X,6H(IMAG),16X,\r\n     1       8H(CYCLES),12X,11HCOEFFICIENT)\r\n  619 FORMAT (39X,'C O M P L E X   D I S P L A C E M E N T   V E C T O R\r\n     1'      )\r\n  620 FORMAT (43X,'C O M P L E X   V E L O C I T Y   V E C T O R')\r\n  621 FORMAT (39X,'C O M P L E X   A C C E L E R A T I O N   V E C T O R\r\n     1'      )\r\n  622 FORMAT (25X,'C O M P L E X   F O R C E S   O F   S I N G L E   ',\r\n     1       'P O I N T   C O N S T R A I N T')\r\n  623 FORMAT (47X,'C O M P L E X   L O A D   V E C T O R')\r\n  624 FORMAT (39X,'C O M P L E X   E I G E N V E C T O R   NO.',I11)\r\n  625 FORMAT (58X,'(REAL/IMAGINARY)')\r\n  626 FORMAT (57X,'(MAGNITUDE/PHASE)')\r\n  627 FORMAT (27X,'C O M P L E X   S T R E S S E S   I N   B A R   E L',\r\n     1       ' E M E N T S   ( C B A R )')\r\n  628 FORMAT (23X,'C O M P L E X   S T R E S S E S   I N   S C A L A R',\r\n     1       '   S P R I N G S   ( C E L A S 1 )')\r\n  629 FORMAT (23X,'C O M P L E X   S T R E S S E S   I N   S C A L A R',\r\n     1       '   S P R I N G S   ( C E L A S 2 )')\r\n  630 FORMAT (23X,'C O M P L E X   S T R E S S E S   I N   S C A L A R',\r\n     1       '   S P R I N G S   ( C E L A S 3 )')\r\n  631 FORMAT (25X,'C O M P L E X   S T R E S S E S   I N   R O D   E L',\r\n     1       ' E M E N T S   ( C O N R O D )')\r\n  632 FORMAT (14X,'C O M P L E X   S T R E S S E S   I N   Q U A D R I',\r\n     1       ' L A T E R A L   M E M B R A N E S   ( C Q D M E M )')\r\n  633 FORMAT (16X,'C O M P L E X   S T R E S S E S   I N   B E N D I N',\r\n     1       ' G   Q U A D R I L A T E R A L S   ( C Q D P L T )')\r\n  634 FORMAT (6X,'C O M P L E X   S T R E S S E S   I N   G E N E R A L'\r\n     1,      '   Q U A D R I L I A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 1)')\r\n  635 FORMAT (6X,'C O M P L E X   S T R E S S E S   I N   G E N E R A L'\r\n     1,      '   Q U A D R I L I A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 2 )')\r\n  636 FORMAT (27X,'C O M P L E X   S T R E S S E S   I N   R O D   E L',\r\n     1       ' E M E N T S   ( C R O D )')\r\n  637 FORMAT (25X,'C O M P L E X   S T R E S S E S   I N   S H E A R  ',\r\n     1       ' P A N E L S   ( C S H E A R )')\r\n  638 FORMAT (14X,'C O M P L E X   S T R E S S E S   I N   B A S I C  ',\r\n     1       ' B E N D I N G   T R I A N G L E S   ( C T R B S C )')\r\n  639 FORMAT (10X,'C O M P L E X   S T R E S S E S   I N   G E N E R A',\r\n     1       ' L   T R I A N G U L A R   E L E M E N T S   ',\r\n     2       '( C T R I A 1 )')\r\n  640 FORMAT (11X,'C O M P L E X   S T R E S S E S   I N   G E N E R A',\r\n     1       ' L  T R I A N G U L A R   E L E M E N T S   ',\r\n     2       '( C T R I A 2 )')\r\n  642 FORMAT (17X,'C O M P L E X   S T R E S S E S   I N   T R I A N G',\r\n     1       ' U L A R   M E M B R A N E S   ( C T R M E M )')\r\n  643 FORMAT (20X,'C O M P L E X   S T R E S S E S   I N   B E N D I N',\r\n     1       ' G   T R I A N G L E S   ( C T R P L T )')\r\n  644 FORMAT (26X,'C O M P L E X   S T R E S S E S   I N   R O D   ',\r\n     1       'E L E M E N T S   ( C T U B E )')\r\n  645 FORMAT (25X,'C O M P L E X   S T R E S S E S   I N   T W I S T  ',\r\n     1       ' P A N E L S   ( C T W I S T )')\r\n  646 FORMAT (29X,'C O M P L E X   F O R C E S   I N   B A R   E L E M',\r\n     1       ' E N T S   ( C B A R )')\r\n  648 FORMAT (25X,'C O M P L E X   F O R C E S   I N   S C A L A R   ',\r\n     1       'S P R I N G S   ( C E L A S 1 )')\r\n  649 FORMAT (25X,'C O M P L E X   F O R C E S   I N   S C A L A R   ',\r\n     1       'S P R I N G S   ( C E L A S 2 )')\r\n  650 FORMAT (25X,'C O M P L E X   F O R C E S   I N   S C A L A R   ',\r\n     1       'S P R I N G S   ( C E L A S 3 )')\r\n  651 FORMAT (25X,'C O M P L E X   F O R C E S   I N   S C A L A R   ',\r\n     1       'S P R I N G S   ( C E L A S 4 )')\r\n  652 FORMAT (27X,'C O M P L E X   F O R C E S   I N   R O D   E L E M',\r\n     1       ' E N T S   ( C O N R O D )')\r\n  653 FORMAT (17X,'C O M P L E X   F O R C E S   I N   B E N D I N G  ',\r\n     1       ' Q U A D R I L A T E R A L S   ( C Q D P L T )')\r\n  654 FORMAT (9X,'C O M P L E X   F O R C E S   I N   G E N E R A L   ',\r\n     1       'Q U A D R I L A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 1 )')\r\n  655 FORMAT (9X,'C O M P L E X   F O R C E S   I N   G E N E R A L   ',\r\n     1       'Q U A D R I L A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 2 )')\r\n  656 FORMAT (29X,'C O M P L E X   F O R C E S   I N   R O D   E L E M',\r\n     1       ' E N T S   ( C R O D )')\r\n  657 FORMAT (7X,'C O M P L E X   F O R C E S   A C T I N G   O N   ',\r\n     1       'S H E A R   P A N E L   E L E M E N T S   (C S H E A R)')\r\n  658 FORMAT (16X,'C O M P L E X   F O R C E S   I N   B A S I C   B E',\r\n     1       ' N D I N G   T R I A N G L E S   ( C T R B S C )')\r\n  659 FORMAT (12X,'C O M P L E X   F O R C E S   I N   G E N E R A L  ',\r\n     1       ' T R I A N G U L A R   E L E M E N T S   ( C T R I A 1 )')\r\n  660 FORMAT (12X,'C O M P L E X   F O R C E S   I N   G E N E R A L  ',\r\n     1       ' T R I A N G U L A R   E L E M E N T S   ( C T R I A 2 )')\r\n  661 FORMAT (22X, 'C O M P L E X   F O R C E S   I N   B E N D I N G ',\r\n     1       '  T R I A N G L E S   ( C T R P L T )')\r\n  662 FORMAT (28X,'C O M P L E X   F O R C E S   I N   R O D   E L E M',\r\n     1       ' E N T S   ( C T U B E )')\r\n  663 FORMAT (27X,'C O M P L E X   F O R C E S   I N   T W I S T   P A',\r\n     1       ' N E L S   ( C T W I S T )')\r\n  664 FORMAT (12X,7HELEMENT,20X,4(8HLOCATION,7X ),6X,7HAVERAGE, /14X,\r\n     1       3HID.,26X,1H1,14X,1H2,14X,1H3,14X,1H4,13X,12HAXIAL STRESS)\r\n  665 FORMAT (17X,7HELEMENT,29X,5HAXIAL,39X,9HTORSIONAL, /19X,3HID.,30X,\r\n     1       6HSTRESS,41X,6HSTRESS)\r\n  666 FORMAT (17X,7HELEMENT,28X,7HMAXIMUM,39X,7HAVERAGE, /19X,3HID.,31X,\r\n     1       5HSHEAR,41X,5HSHEAR)\r\n  667 FORMAT (17X,7HELEMENT,29X,5HAXIAL,41X,6HTORQUE, /19X,3HID.,31X,\r\n     1       5HFORCE)\r\n  668 FORMAT (9H  ELEMENT,7X,5HFIBRE,37X,'- STRESSES IN ELEMENT COORDI',\r\n     1       'NATE SYSTEM -', /4X,3HID.,8X,8HDISTANCE,18X,8HNORMAL-X,\r\n     2       26X,8HNORMAL-Y,25X,8HSHEAR-XY)\r\n  669 FORMAT (13X,7HELEMENT,33X,'- STRESSES IN ELEMENT COORDINATE SYST',\r\n     1       'EM -', /15X,3HID.,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,\r\n     2       8HSHEAR-XY)\r\n  670 FORMAT (2(16X,7HELEMENT,35X), /2(18X,3HID.,20X,5HFORCE,12X))\r\n  671 FORMAT (2(16X,7HELEMENT,35X), /2(18X,3HID.,19X,6HSTRESS,12X))\r\n  672 FORMAT (17X,7HELEMENT,29X,5HFORCE,42X,5HFORCE)\r\n  673 FORMAT (19X,3HID.,30X,7HPTS 1,3,40X,7HPTS 2,4)\r\n  674 FORMAT (17X,7HELEMENT,28X,6HMOMENT,41X,6HMOMENT)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ofp1b.f",
    "content": "      SUBROUTINE OFP1B (LINE)\r\nC\r\nC     THIS SUBROUTINE WAS FORMED ONLY TO REDUCE THE SIZE OF OFP1 FOR\r\nC     COMPILATION PURPOSES.  IT IS CALLED ONLY BY OFP1.\r\nC     PREVIOUSLY THIS ROUTINE WAS NAMED OPF1A.\r\nC\r\n      DIMENSION       FD(50),ID(50),OF(6)\r\n      COMMON /SYSTEM/ IBUF,L,NOGO\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (CORE(1),OF(1)),(ID(1),FD(1),OF(6))\r\n      DATA            IDUM1, IDUM2, IDUM3, IDUM4, IDUM5, IDUM6 /\r\n     1                4HDUM1,4HDUM2,4HDUM3,4HDUM4,4HDUM5,4HDUM6/,\r\n     2                IDUM7, IDUM8, IDUM9 /\r\n     3                4HDUM7,4HDUM8,4HDUM9/\r\nC\r\n      IF (LINE .GT. 294) GO TO 10\r\n      LOCAL = LINE - 174\r\n      GO TO (175,176,177,178,179,180,181,182,183,184,185,186,187,188,189\r\n     1      ,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204\r\n     2      ,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219\r\n     3      ,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234\r\n     4      ,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249\r\n     5      ,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264\r\n     6      ,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279\r\n     7      ,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294\r\n     8      ), LOCAL\r\n   10 IF (LINE .GT. 380) RETURN\r\n      LOCAL = LINE - 294\r\n      GO TO (295,296,297,298,299,300,301,302,303,304,305,306,307,308,309\r\n     9      ,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324\r\n     X      ,325,326,327,328,329,330,331,332,333,334,335,336,337,338,339\r\n     B      ,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354\r\n     C      ,355,356,357,358,359,360,361,362,363,364,365,366,367,368,369\r\n     D      ,370,371,372,373,374,375,376,377,378,379,380) LOCAL\r\n  175 CONTINUE\r\n      GO TO 1000\r\n  176 WRITE (L,676)\r\n      GO TO 1000\r\n  177 WRITE (L,677)\r\n      GO TO 1000\r\n  178 WRITE (L,678)\r\n      GO TO 1000\r\n  179 WRITE (L,679)\r\n      GO TO 1000\r\n  180 WRITE (L,680)\r\n      GO TO 1000\r\n  181 WRITE (L,681)\r\n      GO TO 1000\r\n  182 WRITE (L,682)\r\n      GO TO 1000\r\n  183 WRITE (L,683)\r\n      GO TO 1000\r\n  184 WRITE (L,684)\r\n      GO TO 1000\r\n  185 WRITE (L,685)\r\n      GO TO 1000\r\n  186 WRITE (L,686)\r\n      GO TO 1000\r\n  187 WRITE (L,687)\r\n      GO TO 1000\r\n  188 WRITE (L,688)\r\n      GO TO 1000\r\n  189 WRITE (L,689)\r\n      GO TO 1000\r\n  190 WRITE (L,690)\r\n      GO TO 1000\r\n  191 WRITE (L,691)\r\n      GO TO 1000\r\n  192 WRITE (L,692)\r\n      GO TO 1000\r\n  193 WRITE (L,693)\r\n      GO TO 1000\r\n  194 WRITE (L,694)\r\n      GO TO 1000\r\n  195 WRITE (L,695)\r\n      GO TO 1000\r\n  196 WRITE (L,696)\r\n      GO TO 1000\r\n  197 WRITE (L,697)\r\n      GO TO 1000\r\n  198 WRITE (L,698)\r\n      GO TO 1000\r\n  199 WRITE (L,699)\r\n      GO TO 1000\r\n  200 WRITE (L,700)\r\n      GO TO 1000\r\n  201 WRITE (L,701)\r\n      GO TO 1000\r\n  202 WRITE (L,702) ID(3)\r\n      GO TO 1000\r\n  203 WRITE (L,703)\r\n      GO TO 1000\r\n  204 WRITE (L,704)\r\n      GO TO 1000\r\n  205 WRITE (L,705)\r\n      GO TO 1000\r\n  206 WRITE (L,706)\r\n      GO TO 1000\r\n  207 WRITE (L,707)\r\n      GO TO 1000\r\n  208 WRITE (L,708)\r\n      GO TO 1000\r\n  209 WRITE (L,709)\r\n      GO TO 1000\r\n  210 WRITE (L,710)\r\n      GO TO 1000\r\n  211 WRITE (L,711)\r\n      GO TO 1000\r\n  212 WRITE (L,712)\r\n      GO TO 1000\r\n  213 WRITE (L,713)\r\n      GO TO 1000\r\n  214 WRITE (L,714) ID(5)\r\n      GO TO 1000\r\n  215 WRITE (L,715)\r\n      GO TO 1000\r\n  216 WRITE (L,716) (ID(K),K=11,14),ID(17),FD(18),(ID(K),K=19,21)\r\n      IF (ID(17) .EQ. 1) WRITE (L,7161)\r\n      IF (ID(17) .NE. 1) WRITE (L,7162)\r\n      IF (ID(17) .NE. 1) NOGO = 14\r\n      GO TO 1000\r\n  217 WRITE (L,717)\r\n      GO TO 1000\r\n  218 WRITE (L,718)\r\n      GO TO 1000\r\n  219 WRITE (L,719)\r\n      GO TO 1000\r\n  220 WRITE (L,720)\r\n      GO TO 1000\r\n  221 WRITE (L,721)\r\n      GO TO 1000\r\n  222 WRITE (L,722)\r\n      GO TO 1000\r\n  223 WRITE (L,723)\r\n      GO TO 1000\r\n  224 WRITE (L,724)\r\n      GO TO 1000\r\n  225 WRITE (L,725)\r\n      GO TO 1000\r\n  226 WRITE (L,726)\r\n      GO TO 1000\r\n  227 WRITE (L,727)\r\n      GO TO 1000\r\n  228 WRITE (L,728)\r\n      GO TO 1000\r\n  229 IDD   = MOD(ID(5),500000)\r\n      JHARM = (ID(5)-IDD)/500000\r\n      IHARM = (JHARM-1)/2\r\n      IF (MOD(JHARM,2) .EQ. 1) GO TO 1229\r\n      WRITE (L,729) IDD,IHARM\r\n      GO TO 1000\r\n 1229 WRITE (L,1729) IDD,IHARM\r\n      GO TO 1000\r\n  230 WRITE (L,730)\r\n      GO TO 1000\r\n  231 WRITE (L,731)\r\n      GO TO 1000\r\n  232 WRITE (L,732)\r\n      GO TO 1000\r\n  233 WRITE (L,733)\r\n      GO TO 1000\r\n  234 WRITE (L,734)\r\n      GO TO 1000\r\n  235 WRITE (L,735)\r\n      GO TO 1000\r\n  236 WRITE (L,736)\r\n      GO TO 1000\r\n  237 WRITE (L,737)\r\n      GO TO 1000\r\n  238 WRITE (L,738)\r\n      GO TO 1000\r\n  239 WRITE (L,739)\r\n      GO TO 1000\r\n  240 WRITE (L,740)\r\n      GO TO 1000\r\n  241 WRITE (L,741)\r\n      GO TO 1000\r\n  242 WRITE (L,742)\r\n      GO TO 1000\r\n  243 WRITE (L,743)\r\n      GO TO 1000\r\n  244 WRITE (L,744)\r\n      GO TO 1000\r\n  245 WRITE (L,745)\r\n      GO TO 1000\r\n  246 WRITE (L,746)\r\n      GO TO 1000\r\n  247 WRITE (L,747)\r\n      GO TO 1000\r\n  248 WRITE (L,748)\r\n      GO TO 1000\r\n  249 WRITE (L,749)\r\n      GO TO 1000\r\n  250 WRITE (L,750)\r\n      GO TO 1000\r\n  251 WRITE (L,751)\r\n      GO TO 1000\r\n  252 WRITE (L,752)\r\n      GO TO 1000\r\n  253 WRITE (L,753)\r\n      GO TO 1000\r\n  254 IDX = IDUM1\r\n      GO TO 1754\r\n  255 IDX = IDUM2\r\n      GO TO 1754\r\n  256 IDX = IDUM3\r\n      GO TO 1754\r\n  257 IDX = IDUM4\r\n      GO TO 1754\r\n  258 IDX = IDUM5\r\n      GO TO 1754\r\n  259 IDX = IDUM1\r\n      GO TO 1759\r\n  260 IDX = IDUM2\r\n      GO TO 1759\r\n  261 IDX = IDUM3\r\n      GO TO 1759\r\n  262 IDX = IDUM4\r\n      GO TO 1759\r\n  263 IDX = IDUM5\r\n      GO TO 1759\r\n  264 WRITE (L,764)\r\n      GO TO 1000\r\n  265 WRITE (L,765)\r\n      GO TO 1000\r\n  266 IDX = IDUM1\r\n      GO TO 1766\r\n  267 IDX = IDUM2\r\n      GO TO 1766\r\n  268 IDX = IDUM3\r\n      GO TO 1766\r\n  269 IDX = IDUM4\r\n      GO TO 1766\r\n  270 IDX = IDUM5\r\n      GO TO 1766\r\n  271 IDX = IDUM1\r\n      GO TO 1771\r\n  272 IDX = IDUM2\r\n      GO TO 1771\r\n  273 IDX = IDUM3\r\n      GO TO 1771\r\n  274 IDX = IDUM4\r\n      GO TO 1771\r\n  275 IDX = IDUM5\r\n      GO TO 1771\r\n  276 WRITE (L,776)\r\n      GO TO 1000\r\n  277 WRITE (L,777)\r\n      GO TO 1000\r\n  278 WRITE (L,778)\r\n      GO TO 1000\r\n  279 WRITE (L,779)\r\n      GO TO 1000\r\n  280 IDX = IDUM6\r\n      GO TO 1754\r\n  281 IDX = IDUM7\r\n      GO TO 1754\r\n  282 IDX = IDUM8\r\n      GO TO 1754\r\n  283 IDX = IDUM9\r\n      GO TO 1754\r\n  284 IDX = IDUM6\r\n      GO TO 1759\r\n  285 IDX = IDUM7\r\n      GO TO 1759\r\n  286 IDX = IDUM8\r\n      GO TO 1759\r\n  287 IDX = IDUM9\r\n      GO TO 1759\r\n  288 IDX = IDUM6\r\n      GO TO 1766\r\n  289 IDX = IDUM7\r\n      GO TO 1766\r\n  290 IDX = IDUM8\r\n      GO TO 1766\r\n  291 IDX = IDUM9\r\n      GO TO 1766\r\n  292 IDX = IDUM6\r\n      GO TO 1771\r\n  293 IDX = IDUM7\r\n      GO TO 1771\r\n  294 IDX = IDUM8\r\n      GO TO 1771\r\n  295 IDX = IDUM9\r\n      GO TO 1771\r\n  296 WRITE (L,796)\r\n      GO TO 1000\r\n  297 WRITE (L,797)\r\n      GO TO 1000\r\n  298 WRITE (L,798)\r\n      GO TO 1000\r\n  299 WRITE (L,799)\r\n      GO TO 1000\r\n  300 WRITE (L,800)\r\n      GO TO 1000\r\n  301 WRITE (L,801)\r\n      GO TO 1000\r\n  302 WRITE (L,802)\r\n      GO TO 1000\r\n  303 WRITE (L,803)\r\n      GO TO 1000\r\n  304 WRITE (L,804)\r\n      GO TO 1000\r\n  305 WRITE (L,805)\r\n      GO TO 1000\r\n  306 WRITE (L,806)\r\n      GO TO 1000\r\n  307 WRITE (L,807)\r\n      GO TO 1000\r\n  308 WRITE (L,808)\r\n      GO TO 1000\r\n  309 WRITE (L,809)\r\n      GO TO 1000\r\n  310 WRITE (L,810)\r\n      GO TO 1000\r\n  311 WRITE (L,811)\r\n      GO TO 1000\r\n  312 WRITE (L,812)\r\n      GO TO 1000\r\n  313 WRITE (L,813)\r\n      GO TO 1000\r\n  314 WRITE (L,814)\r\n      GO TO 1000\r\n  315 WRITE (L,815)\r\n      GO TO 1000\r\n  316 WRITE (L,816)\r\n      GO TO 1000\r\n  317 WRITE (L,817)\r\n      GO TO 1000\r\n  318 WRITE (L,818)\r\n      GO TO 1000\r\n  319 WRITE (L,819)\r\n      GO TO 1000\r\n  320 WRITE (L,820)\r\n      GO TO 1000\r\n  321 WRITE (L,821)\r\n      GO TO 1000\r\n  322 WRITE (L,822)\r\n      GO TO 1000\r\n  323 WRITE (L,823)\r\n      GO TO 1000\r\n  324 WRITE (L,824)\r\n      GO TO 1000\r\n  325 WRITE (L,825)\r\n      GO TO 1000\r\n  326 WRITE (L,826)\r\n      GO TO 1000\r\n  327 WRITE (L,827)\r\n      GO TO 1000\r\n  328 IDD = ID(3) - 64\r\n      WRITE (L,828) IDD\r\n      GO TO 1000\r\n  329 WRITE (L,829)\r\n      GO TO 1000\r\n  330 WRITE (L,830)\r\n      GO TO 1000\r\n  331 IDD = ID(3) - 64\r\n      WRITE (L,831) IDD\r\n      GO TO 1000\r\n  332 WRITE (L,832)\r\n      GO TO 1000\r\n  333 WRITE (L,833)\r\n      GO TO 1000\r\n  334 WRITE (L,834)\r\n      GO TO 1000\r\n  335 WRITE (L,835)\r\n      GO TO 1000\r\n  336 WRITE (L,836)\r\n      GO TO 1000\r\n  337 WRITE (L,837)\r\n      GO TO 1000\r\n  338 WRITE (L,838)\r\n      GO TO 1000\r\n  339 WRITE (L,839)\r\n      GO TO 1000\r\n  340 WRITE (L,840)\r\n      GO TO 1000\r\n  341 WRITE (L,841)\r\n      GO TO 1000\r\n  342 WRITE (L,842)\r\n      GO TO 1000\r\n  343 WRITE (L,843)\r\n      GO TO 1000\r\n  344 WRITE (L,844)\r\n      GO TO 1000\r\n  345 WRITE (L,845)\r\n      GO TO 1000\r\n  346 WRITE (L,846)\r\n      GO TO 1000\r\n  347 WRITE (L,847)\r\n      GO TO 1000\r\n  348 WRITE (L,848)\r\n      GO TO 1000\r\n  349 WRITE (L,849)\r\n      GO TO 1000\r\n  350 WRITE (L,850)\r\n      GO TO 1000\r\n  351 WRITE (L,851)\r\n      GO TO 1000\r\n  352 WRITE (L,852)\r\n      GO TO 1000\r\n  353 WRITE (L,853)\r\n      GO TO 1000\r\n  354 WRITE (L,854) ID(6),ID(7),FD(3)\r\n      GO TO 1000\r\n  355 WRITE (L,855)\r\n      GO TO 1000\r\n  356 WRITE (L,856)\r\n      GO TO 1000\r\n  357 WRITE (L,857)\r\n      GO TO 1000\r\n  358 WRITE (L,858)\r\n      GO TO 1000\r\n  359 WRITE (L,859)\r\n      GO TO 1000\r\n  360 WRITE (L,860)\r\n      GO TO 1000\r\n  361 WRITE (L,861)\r\n      GO TO 1000\r\n  362 WRITE (L,862)\r\n      GO TO 1000\r\n  363 WRITE (L,863)\r\n      GO TO 1000\r\n  364 WRITE (L,864)\r\n      GO TO 1000\r\n  365 WRITE (L,865)\r\n      GO TO 1000\r\n  366 WRITE (L,866)\r\n      GO TO 1000\r\n  367 WRITE (L,867)\r\n      GO TO 1000\r\n  368 WRITE (L,868)\r\n      GO TO 1000\r\n  369 WRITE (L,869)\r\n      GO TO 1000\r\n  370 WRITE (L,870)\r\n      GO TO 1000\r\n  371 WRITE (L,871)\r\n      GO TO 1000\r\n  372 WRITE (L,872)\r\n      GO TO 1000\r\n  373 WRITE (L,873)\r\n      GO TO 1000\r\n  374 WRITE (L,874)\r\n      GO TO 1000\r\n  375 WRITE (L,875)\r\n      GO TO 990\r\n  376 WRITE (L,876)\r\n      GO TO 1000\r\n  377 WRITE (L,877)\r\n      GO TO 1000\r\n  378 WRITE (L,878)\r\n      GO TO 1000\r\n  379 WRITE (L,879)\r\n      GO TO 1000\r\n  380 WRITE (L,880)\r\n      GO TO 1000\r\n  990 WRITE  (L,995)\r\n  995 FORMAT (1H )\r\n 1000 RETURN\r\nC\r\nC     ******************************************************************\r\nC\r\n  676 FORMAT (2(25X,5HAXIAL,30X), /2(7X,4HTIME,14X,5HFORCE,9X,6HTORQUE,\r\n     1       15X))\r\n  677 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X,\r\n     1       5HSHEAR,17X, /7X,4HTIME,3(8X,7HPLANE 1,7X,7HPLANE 2),9X,\r\n     2       5HFORCE,10X,6HTORQUE)\r\n  678 FORMAT (2(25X,5HFORCE,10X,5HFORCE,15X), /2(7X,4HTIME,13X,\r\n     1       7HPTS 1,3,8X,7HPTS 2,4,14X))\r\n  679 FORMAT (2(24X,6HMOMENT,9X,6HMOMENT,15X), /2(7X,4HTIME,13X,\r\n     1       7HPTS 1,3,8X,7HPTS 2,4,14X))\r\n  680 FORMAT (8X,4HTIME,3X,2(11X,11HBEND-MOMENT),11X,12HTWIST-MOMENT,\r\n     1       13X,5HSHEAR,17X,5HSHEAR, /31X,1HX,21X,1HY,43X,1HX,21X,1HY)\r\n  681 FORMAT (4(8X,4HTIME,10X,5HFORCE,6X))\r\n  682 FORMAT (2(21X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X,6HSAFETY), /\r\n     1       2(7X,4HTIME,9X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X,\r\n     2       6HMARGIN))\r\n  683 FORMAT (7X,4HTIME,12X,3HSA1,12X,3HSA2,12X,3HSA3,10X,\r\n     1       12HAXIAL-STRESS,8X,6HSA-MAX,9X,6HSA-MIN,11X,6HM.S.-T, /23X,\r\n     2       3HSB1,12X,3HSB2,12X,3HSB3,30X,6HSB-MAX,9X,6HSB-MIN,11X,\r\n     3       6HM.S.-C)\r\n  684 FORMAT (2(26X,7HMAXIMUM,8X,7HAVERAGE,6X,6HSAFETY), /2(8X,4HTIME,\r\n     1       15X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN))\r\n  685 FORMAT (2(54X,6HSAFETY), /2(7X,4HTIME,15X,7HMAXIMUM,8X,7HAVERAGE,\r\n     1       6X,6HMARGIN))\r\n  686 FORMAT (19X,5HFIBRE,11X,32HSTRESSES IN ELEMENT COORD SYSTEM,13X,\r\n     1       31HPRINCIPAL STRESSES (ZERO SHEAR),10X,7HMAXIMUM, /7X,\r\n     2       4HTIME,7X,8HDISTANCE,7X,8HNORMAL-X,7X,8HNORMAL-Y,6X,\r\n     3       8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR)\r\n  687 FORMAT (20X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X,9HPRINCIPAL,\r\n     1       11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /7X,4HTIME,8X,\r\n     2       8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE,\r\n     3       9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  688 FORMAT (4(8X,4HTIME, 9X,6HSTRESS,6X))\r\n  689 FORMAT (5X,4HTIME,15X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,8X,\r\n     1       12HAXIAL-STRESS,6X,6HSA-MAX,9X,6HSA-MIN,5X,6HM.S.-T, /24X,\r\n     2       3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,26X,6HSB-MAX,9X,\r\n     3       6HSB-MIN,5X,6HM.S.-C)\r\n  690 FORMAT (53X,5HAXIAL, /13X,9HFREQUENCY,31X,5HFORCE,41X,6HTORQUE)\r\n  691 FORMAT (11X,2(42X,5HFORCE), /13X,9HFREQUENCY,30X,7HPTS 1,3,40X,\r\n     1       7HPTS 2,4)\r\n  692 FORMAT (11X,2(41X,6HMOMENT), /13X,9HFREQUENCY,30X,7HPTS 1,3,40X,\r\n     1       7HPTS 2,4)\r\n  693 FORMAT (5X,9HFREQUENCY,2X,2(11X,11HBEND-MOMENT),10X,\r\n     1       12HTWIST-MOMENT,2(13X,5HSHEAR,4X), /2(31X,1HX,21X,1HY,12X))\r\n  694 FORMAT (2(12X,9HFREQUENCY,20X,5HFORCE,12X))\r\n  695 FORMAT (53X,5HAXIAL,39X,9HTORSIONAL, /13X,9HFREQUENCY,\r\n     1       2(30X,6HSTRESS,11X))\r\n  696 FORMAT (52X,7HMAXIMUM,39X,7HAVERAGE, /13X,9HFREQUENCY,\r\n     1       2(31X,5HSHEAR,10X))\r\n  697 FORMAT (20X,5HFIBRE,37X,'- STRESSES IN ELEMENT COORDINATE SYSTEM',\r\n     1       2H -, /4X,'FREQUENCY,6X,8HDISTANCE',18X,8HNORMAL-X,26X,\r\n     2       8HNORMAL-Y,25X,8HSHEAR-XY)\r\n  698 FORMAT (53X,41H- STRESSES IN ELEMENT COORDINATE SYSTEM -, /9X,\r\n     1       9HFREQUENCY,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,8HSHEAR-XY)\r\n  699 FORMAT (2(12X,9HFREQUENCY,19X,6HSTRESS,12X))\r\n  700 FORMAT (39X,4(8HLOCATION,7X),6X,7HAVERAGE, /8X,9HFREQUENCY,26X,\r\n     1       1H1,14X,1H2,14X,1H3,14X,1H4,13X,12HAXIAL STRESS)\r\n  701 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X,\r\n     1       5HSHEAR,17X, /4X,9HFREQUENCY,3(6X,7HPLANE 1,7X,\r\n     2       9HPLANE 2  ),6X,5HFORCE,10X,6HTORQUE)\r\n  702 FORMAT (27X,'O U T P U T   F R O M   G R I D   P O I N T   W E I',\r\n     1       ' G H T   G E N E R A T O R', /1H0,53X,\r\n     2       17HREFERENCE POINT =,I9)\r\n  703 FORMAT (5X,9HSECTOR-ID,/6X,8HPOINT-ID,/7X,7HRING-ID,2X,8HHARMONIC,\r\n     1       8X,2HT1,13X,2HT2,13X,2HT3,13X,2HR1,13X,2HR2,13X,2HR3)\r\n  704 FORMAT (11X,'S T R E S S E S   I N   A X I S - S Y M M E T R I C',\r\n     1       '   C O N I C A L   S H E L L   E L E M E N T S   ',\r\n     2       '(CCONEAX)')\r\n  705 FORMAT (13X,'F O R C E S   I N   A X I S - S Y M M E T R I C   ',\r\n     1       'C O N I C A L   S H E L L   E L E M E N T S   (CCONEAX)')\r\n  706 FORMAT (8H ELEMENT,10X,5HPOINT,5X,5HFIBRE,11X,'STRESSES IN ELEM',\r\n     1       'ENT COORD SYSTEM',8X,'PRINCIPAL STRESSES (ZERO SHEAR)',\r\n     2       8X,7HMAXIMUM, /3X,'ID.  HARMONIC  ANGLE    DISTANCE',7X,\r\n     3       8HNORMAL-V,6X,8HNORMAL-U,6X,8HSHEAR-UV,6X,5HANGLE,7X,\r\n     4       5HMAJOR,9X,5HMINOR,9X,5HSHEAR)\r\n  707 FORMAT (9H  ELEMENT,5X,8HHARMONIC,4X,5HPOINT,4X,2(7X,5HBEND-,\r\n     1       6HMOMENT),6X,12HTWIST-MOMENT,2(11X,5HSHEAR,1X), /3X,3HID.,\r\n     2       9X,6HNUMBER,5X,5HANGLE,15X,1HV,17X,1HU,37X,1HV,16X,1HU)\r\n  708 FORMAT (31X,'C O M P L E X   D I S P L A C E M E N T   ',\r\n     1       'V E C T O R  (SOLUTION SET)')\r\n  709 FORMAT (35X,'C O M P L E X   V E L O C I T Y   V E C T O R  ',\r\n     1       '(SOLUTION SET)')\r\n  710 FORMAT (31X,'C O M P L E X   A C C E L E R A T I O N   ',\r\n     1       'V E C T O R   (SOLUTION SET)')\r\n  711 FORMAT (43X,46HV E L O C I T Y   V E C T O R   (SOLUTION SET))\r\n  712 FORMAT (39X,'D I S P L A C E M E N T   V E C T O R   ',\r\n     1       '(SOLUTION SET)')\r\n  713 FORMAT (39X,'A C C E L E R A T I O N   V E C T O R   ',\r\n     1       '(SOLUTION SET)')\r\n  714 FORMAT (29X,'C O M P L E X   E I G E N V E C T O R   N O .',I11,\r\n     1       3X,14H(SOLUTION SET))\r\n  715 FORMAT (30X,'E I G E N V A L U E   A N A L Y S I S   ',\r\n     1       'S U M M A R Y   (GIVENS METHOD)')\r\n  716 FORMAT (///,36X,45HNUMBER OF EIGENVALUES EXTRACTED . . . . . . .,\r\n     1       I10,//36X,45HNUMBER OF EIGENVECTORS COMPUTED . . . . . . .,\r\n     2       I10,//36X,45HNUMBER OF EIGENVALUE CONVERGENCE FAILURES . .,\r\n     3       I10,//36X,45HNUMBER OF EIGENVECTOR CONVERGENCE FAILURES. .,\r\n     4      I10,///36X,45HREASON FOR TERMINATION. . . . . . . . . . . .,\r\n     5  I10,1H*,///36X,45HLARGEST OFF-DIAGONAL MODAL MASS TERM. . . . .,\r\n     6 1P,E10.2,//76X,5H. . .,I10,/46X,'MODE PAIR. . . . . . . . . . .',\r\n     7     /76X,5H. . .,I10,//36X,33HNUMBER OF OFF-DIAG0NAL MODAL MASS ,\r\n     8     /41X,40HTERMS FAILING CRITERION. . . . . . . . .,I10)\r\n 7161 FORMAT (//36X,22H(* NORMAL TERMINATION))\r\n 7162 FORMAT (//36X,31H(* INSUFFICIENT TIME REMAINING))\r\n  717 FORMAT (107X,22HOCTAHEDRAL    PRESSURE, /6X,10HELEMENT-ID,8X,\r\n     1       8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X,\r\n     2       6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP)\r\n  718 FORMAT (107X,22HOCTAHEDRAL    PRESSURE, /6X,10H TIME     ,8X,\r\n     1       8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X,\r\n     2       6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP)\r\n  719 FORMAT (18X,10HELEMENT-ID,8X,8HSIGMA-XX,6X,8HSIGMA-YY,6X,\r\n     1       8HSIGMA-ZZ,7X,6HTAU-YZ,8X,6HTAU-XZ,8X,6HTAU-XY)\r\n  720 FORMAT (18X,10HFREQUENCY ,8X,8HSIGMA-XX,6X,8HSIGMA-YY,6X,\r\n     1       8HSIGMA-ZZ,7X,6HTAU-YZ,8X,6HTAU-XZ,8X,6HTAU-XY)\r\n  721 FORMAT (19X,'S T R E S S E S   I N   S O L I D   T E T R A H E D',\r\n     1       ' R O N   E L E M E N T S   ( C T E T R A )')\r\n  722 FORMAT (11X,'C O M P L E X   S T R E S S E S   I N   S O L I D  ',\r\n     1     ' T E T R A H E D R O N   E L E M E N T S   ( C T E T R A )')\r\n  723 FORMAT (25X,'S T R E S S E S   I N   S O L I D   W E D G E   ',\r\n     1       'E L E M E N T S   ( C W E D G E )')\r\n  724 FORMAT (17X,'C O M P L E X   S T R E S S E S   I N   S O L I D  ',\r\n     1       ' W E D G E   E L E M E N T S   ( C W E D G E )')\r\n  725 FORMAT (20X,'S T R E S S E S   I N   S O L I D   H E X A H E D R',\r\n     1       ' O N   E L E M E N T S   ( C H E X A 1 )')\r\n  726 FORMAT (12X,'C O M P L E X   S T R E S S E S   I N   S O L I D  ',\r\n     1       ' H E X A H E D R O N   E L E M E N T S   ( C H E X A 1 )')\r\n  727 FORMAT (20X,'S T R E S S E S   I N   S O L I D   H E X A H E D R',\r\n     1       ' O N   E L E M E N T S   ( C H E X A 2 )')\r\n  728 FORMAT (12X,'C O M P L E X   S T R E S S E S   I N   S O L I D  ',\r\n     1       ' H E X A H E D R O N   E L E M E N T S   ( C H E X A 2 )')\r\n  729 FORMAT (6X,10HPOINT-ID =,I7,4X,10HHARMONIC =,I4)\r\n 1729 FORMAT (6X,10HPOINT-ID =,I7,4X,10HHARMONIC =,I4,1H*)\r\n  730 FORMAT (5X,8HHARMONIC,5(3X,8HPOINT-ID,5X,2HT1,5X))\r\n  731 FORMAT (10X,'V E L O C I T I E S   I N   A X I S Y M M E T R I C',\r\n     1       '   F L U I D   E L E M E N T S   ( C A X I F 2 - ',\r\n     2       'S T R E S S )')\r\n  732 FORMAT (10X,'V E L O C I T I E S   I N   A X I S Y M M E T R I C',\r\n     1       '   F L U I D   E L E M E N T S   ( C A X I F 3 - ',\r\n     2       'S T R E S S )')\r\n  733 FORMAT (10X,'V E L O C I T I E S   I N   A X I S Y M M E T R I C',\r\n     1       '   F L U I D   E L E M E N T S   ( C A X I F 4 - ',\r\n     2       'S T R E S S )')\r\n  734 FORMAT (24X,'V E L O C I T I E S   I N   S L O T   E L E M E N T',\r\n     1       ' S   ( C S L O T 3 - S T R E S S )')\r\n  735 FORMAT (24X,'V E L O C I T I E S   I N   S L O T   E L E M E N T',\r\n     1       ' S   ( C S L O T 4 - S T R E S S )')\r\n  736 FORMAT (2X,'C O M P L E X   V E L O C I T I E S   I N   A X I S ',\r\n     1       'Y M M E T R I C   F L U I D   E L E M E N T S   ',\r\n     2       '( C A X I F 2 - S T R E S S )')\r\n  737 FORMAT (2X,'C O M P L E X   V E L O C I T I E S   I N   A X I S ',\r\n     1       'Y M M E T R I C   F L U I D   E L E M E N T S   ',\r\n     2       '( C A X I F 3 - S T R E S S )')\r\n  738 FORMAT (2X,'C O M P L E X   V E L O C I T I E S   I N   A X I S ',\r\n     1       'Y M M E T R I C   F L U I D   E L E M E N T S   ',\r\n     2       '( C A X I F 4 - S T R E S S )')\r\n  739 FORMAT (15X,'C O M P L E X   V E L O C I T I E S   I N   S L O T',\r\n     1       '  E L E M E N T S   ( C S L O T 3 - S T R E S S )')\r\n  740 FORMAT (15X,'C O M P L E X   V E L O C I T I E S   I N   S L O T',\r\n     1       '  E L E M E N T S   ( C S L O T 4 - S T R E S S )')\r\n  741 FORMAT (8X,7HELEMENT,17X,6HCENTER,25X,7HEDGE  1,19X,7HEDGE  2,19X,\r\n     1       7HEDGE  3,/10X,3HID., 8X,27HR --------- PHI --------- Z,\r\n     2       12X,15HS --------- PHI,11X,15HS --------- PHI,11X,\r\n     3       15HS --------- PHI)\r\n  742 FORMAT (31X,6HCENTER,25X,7HEDGE  1,19X,7HEDGE  2,19X,7HEDGE  3,\r\n     1       /2X,8H   TIME ,10X,27HR --------- PHI --------- Z,12X,\r\n     2       15HS --------- PHI,11X,15HS --------- PHI,11X,\r\n     3       15HS --------- PHI)\r\n  743 FORMAT (32X,6HCENTER,25X,7HEDGE  1,19X,7HEDGE  2,19X,7HEDGE  3,\r\n     1       /4X,9HFREQUENCY,8X,27HR --------- PHI --------- Z,12X,\r\n     2       15HS --------- PHI,11X,15HS --------- PHI,11X,\r\n     3       15HS --------- PHI)\r\n  744 FORMAT (13X,7HELEMENT,18X,6HCENTER,20X,7HEDGE  1,11X,7HEDGE  2,\r\n     1       11X,7HEDGE  3,11X,7HEDGE  4,/15X,3HID.,13X,\r\n     2       19HR --------------- Z,17X,1HS,17X,1HS,17X,1HS,17X,1HS)\r\n  745 FORMAT (38X,6HCENTER,20X,7HEDGE  1,11X,7HEDGE  2,11X,7HEDGE  3,\r\n     1       11X,7HEDGE  4, /11X,4HTIME,16X,19HR --------------- Z,17X,\r\n     2       1HS,17X,1HS,17X,1HS,17X,1HS)\r\n  746 FORMAT (38X,6HCENTER,20X,7HEDGE  1,11X,7HEDGE  2,11X,7HEDGE  3,\r\n     1       11X,7HEDGE  4,/9X,9HFREQUENCY,13X,19HR --------------- Z,\r\n     2       17X,1HS,17X,1HS,17X,1HS,17X,1HS)\r\n  747 FORMAT (9X,7HELEMENT,24X,6HCENTER,26X,7HEDGE  1,15X,7HEDGE  2,\r\n     1       15X,7HEDGE  3,/11X,3HID.,17X,23HR ------------------- Z,\r\n     2       21X,1HS,21X,1HS,21X,1HS)\r\n  748 FORMAT (40X,6HCENTER,26X,7HEDGE  1,15X,7HEDGE  2,15X,7HEDGE  3,\r\n     1       /7X,4HTIME,20X,23HR ------------------- Z,21X,1HS,21X,1HS,\r\n     2       21X,1HS)\r\n  749 FORMAT (40X,6HCENTER,26X,7HEDGE  1,15X,7HEDGE  2,15X,7HEDGE  3,\r\n     1       /5X,9HFREQUENCY,17X,23HR ------------------- Z,21X,1HS,21X,\r\n     2       1HS,21X,1HS)\r\n  750 FORMAT (14X,7HELEMENT,30X,6HCENTER,47X,4HEDGE,/16X,3HID.,21X,\r\n     1       27HR ----------------------- Z,25X,\r\n     2       28HS ---------------------- PHI)\r\n  751 FORMAT (51X,6HCENTER,47X,4HEDGE, /12X,4HTIME,24X,\r\n     1       27HR ----------------------- Z,25X,\r\n     2       28HS ---------------------- PHI)\r\n  752 FORMAT (51X,6HCENTER,47X,4HEDGE, /10X,9HFREQUENCY,21X,\r\n     1       27HR ----------------------- Z,25X,\r\n     2       28HS ---------------------- PHI)\r\n  753 FORMAT (46X,35HT E M P E R A T U R E   V E C T O R)\r\n 1754 WRITE  (L,754) IDX\r\n      GO TO  1000\r\n  754 FORMAT (36X,'S T R E S S E S   I N   U S E R   E L E M E N T S',\r\n     1       '  (C',A4,1H))\r\n 1759 WRITE  (L,759) IDX\r\n      GO TO  1000\r\n  759 FORMAT (38X,'F O R C E S   I N   U S E R   E L E M E N T S   (C',\r\n     1       A4,1H) )\r\n  764 FORMAT (5X,9H    EL-ID,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X,\r\n     1       2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9)\r\n  765 FORMAT (5X,9H    EL-ID,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X,\r\n     1       2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9)\r\n 1766 WRITE  (L,766) IDX\r\n      GO TO  1000\r\n  766 FORMAT (28X,'C O M P L E X   S T R E S S E S   I N   U S E R   ',\r\n     1       'E L E M E N T S   (C',A4,1H))\r\n 1771 WRITE  (L,771) IDX\r\n      GO TO  1000\r\n  771 FORMAT (30X,'C O M P L E X   F O R C E S   I N   U S E R   E L E',\r\n     1       ' M E N T S   (C',A4,1H))\r\n  776 FORMAT (5X,9H     TIME,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X,\r\n     1       2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9)\r\n  777 FORMAT (5X,9H     TIME,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X,\r\n     1       2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9)\r\n  778 FORMAT (5X,9HFREQUENCY,6X,2HS1,11X,2HS2,11X,2HS3,11X,2HS4,11X,\r\n     1       2HS5,11X,2HS6,11X,2HS7,11X,2HS8,11X,2HS9)\r\n  779 FORMAT (5X,9HFREQUENCY,6X,2HF1,11X,2HF2,11X,2HF3,11X,2HF4,11X,\r\n     1       2HF5,11X,2HF6,11X,2HF7,11X,2HF8,11X,2HF9)\r\n  796 FORMAT (6X,'POINT ID.   TYPE',6X,'ID   VALUE     ID+1 VALUE    ',\r\n     1       'ID+2 VALUE     ID+3 VALUE     ID+4 VALUE     ID+5 VALUE')\r\n  797 FORMAT (19X,'F I N I T E   E L E M E N T   T E M P E R A T U R E',\r\n     1       '   G R A D I E N T S   A N D   F L U X E S')\r\n  798 FORMAT (4X,'ELEMENT-ID   EL-TYPE        X-GRADIENT       Y-',\r\n     1       'GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX',\r\n     2       '           Z-FLUX')\r\n  799 FORMAT (4X,'TIME         EL-TYPE        X-GRADIENT       Y-',\r\n     1       'GRADIENT       Z-GRADIENT        X-FLUX           Y-FLUX',\r\n     2       '           Z-FLUX')\r\n  800 FORMAT (26X,'ELEMENT-ID      APPLIED-LOAD       CONVECTION      ',\r\n     1       ' RADIATION           TOTAL')\r\n  801 FORMAT (26X,'TIME            APPLIED-LOAD       CONVECTION      ',\r\n     1       ' RADIATION           TOTAL')\r\n  802 FORMAT (33X,'H E A T   F L O W   I N T O   H B D Y   E L E M E N',\r\n     1       ' T S   (CHBDY)')\r\n  803 FORMAT (6X,16HTIME        TYPE  ,6X,7H  VALUE)\r\n  804 FORMAT (21X,'S T R E S S E S   I N   Q U A D R I L A T E R A L',\r\n     1       '   M E M B R A N E S      ( C Q D M E M 1 )')\r\n  805 FORMAT (14X,'C O M P L E X   S T R E S S E S   I N   Q U A D R I',\r\n     1       ' L A T E R A L   M E M B R A N E S   ( C Q D M E M 1 )')\r\n  806 FORMAT (26X,'S T R E S S E S   A C T I N G   I N   Q D M E M 2  ',\r\n     1       ' E L E M E N T S   (CQDMEM2)')\r\n  807 FORMAT (19X,'C O M P L E X   S T R E S S E S   A C T I N G   I N',\r\n     1       '   Q D M E M 2   E L E M E N T S   (CQDMEM2)')\r\n  808 FORMAT (18X,'S T R E S S E S   I N   G E N E R A L   Q U A D R I',\r\n     1       ' L A T E R A L   E L E M E N T S', 6X,15H( C Q U A D 4 ))\r\n  809 FORMAT ('0*** THIS FORMAT 809/OFP1B NOT USED ***')\r\nC                   ==============================\r\n  810 FORMAT (28X,'F O R C E S   A C T I N G   O N   Q D M E M 2   E L',\r\n     1       ' E M E N T S   (CQDMEM2)')\r\n  811 FORMAT (20X,'C O M P L E X   F O R C E S   A C T I N G   O N   ',\r\n     1       'Q D M E M 2   E L E M E N T S   (CQDMEM2)')\r\n  812 FORMAT (18X,106H====== POINT  1 ======      ====== POINT  2 ======\r\n     1      ====== POINT  3 ======      ====== POINT  4 ====== , /7X,\r\n     2       7HELEMENT,4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,\r\n     3       8HF-FROM-3,6X,8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,\r\n     4       8HF-FROM-1, /9X,2HID,15X,6HKICK-1,7X,8HSHEAR-12,7X,\r\n     5       6HKICK-2,7X,8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X,\r\n     6       6HKICK-4,7X,8HSHEAR-41 )\r\n  813 FORMAT (18X,106H====== POINT  1 ======      ====== POINT  2 ======\r\n     1      ====== POINT  3 ======      ====== POINT  4 ====== , /14X,\r\n     2       4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X,\r\n     3       8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /5X,\r\n     4       9HFREQUENCY,12X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X,\r\n     5       8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X,\r\n     6       8HSHEAR-41)\r\n  814 FORMAT (18X,106H====== POINT  1 ======      ====== POINT  2 ======\r\n     1      ====== POINT  3 ======      ====== POINT  4 ====== , /14X,\r\n     2       4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X,\r\n     3       8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /10X,\r\n     4       4HTIME,12X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X,8HSHEAR-23\r\n     5,      7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X,8HSHEAR-41)\r\n  815 FORMAT (6X,16HSUBCASE     TYPE,10X,2HT1,13X,2HT2,13X,2HT3,13X,\r\n     1       2HR1,13X,2HR2,13X,2HR3)\r\n  816 FORMAT (2(26X,7HMAXIMUM,8X,7HAVERAGE,6X,6HSAFETY),/2(6X,7HSUBCASE,\r\n     1       14X,5HSHEAR,10X,5HSHEAR,7X,6HMARGIN))\r\n  817 FORMAT (20X,32HSTRESSES IN ELEMENT COORD SYSTEM,12X,9HPRINCIPAL,\r\n     1       11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /6X,7HSUBCASE,6X,\r\n     2       8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE,\r\n     3       9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  818 FORMAT (6X,7HSUBCASE,11X,3HSA1,12X,3HSA2,12X,3HSA3,12X,3HSA4,8X,\r\n     1       12HAXIAL-STRESS,6X,6HSA-MAX,9X,6HSA-MIN,5X,6HM.S.-T, /24X,\r\n     2       3HSB1,12X,3HSB2,12X,3HSB3,12X,3HSB4,26X,6HSB-MAX,9X,\r\n     3       6HSB-MIN,5X,6HM.S.-C)\r\n  819 FORMAT (18X,106H====== POINT  1 ======      ====== POINT  2 ======\r\n     1      ====== POINT  3 ======      ====== POINT  4 ====== , /14X,\r\n     2       4X,8HF-FROM-4,6X,8HF-FROM-2,6X,8HF-FROM-1,6X,8HF-FROM-3,6X,\r\n     3       8HF-FROM-2,6X,8HF-FROM-4,6X,8HF-FROM-3,6X,8HF-FROM-1, /5X,\r\n     4       7HSUBCASE,14X,6HKICK-1,7X,8HSHEAR-12,7X,6HKICK-2,7X,\r\n     5       8HSHEAR-23,7X,6HKICK-3,7X,8HSHEAR-34,7X,6HKICK-4,7X,\r\n     6       8HSHEAR-41 )\r\n  820 FORMAT (21X,17HBEND-MOMENT-END-A,12X,17HBEND-MOMENT-END-B,18X,\r\n     1       5HSHEAR, /6X,7HSUBCASE,6X,3(7HPLANE 1,7X,7HPLANE 2,8X),\r\n     2       6H FORCE,10X,6HTORQUE)\r\n  821 FORMAT (2(21X,5HAXIAL,7X,6HSAFETY,6X,9HTORSIONAL,5X,6HSAFETY), /\r\n     1       2(6X,7HSUBCASE,7X,6HSTRESS,7X,6HMARGIN,8X,6HSTRESS,6X,\r\n     2       6HMARGIN))\r\n  822 FORMAT (2(25X,5HAXIAL,30X) , /2(6X,7HSUBCASE,12X,5HFORCE, 9X,\r\n     1       6HTORQUE,15X))\r\n  823 FORMAT (5X,7HELEMENT,8X,33HSTRESSES IN MATERIAL COORD SYSTEM,12X,\r\n     1       9HPRINCIPAL,11X,18HPRINCIPAL STRESSES,12X,3HMAX)\r\n  824 FORMAT (13X,7HELEMENT,33X,'- STRESSES IN MATERIAL COORDINATE ',\r\n     1       'SYSTEM -', /15X,3HID.,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,\r\n     2       8HSHEAR-XY)\r\n  825 FORMAT (20X,33HSTRESSES IN MATERIAL COORD SYSTEM,11X,9HPRINCIPAL,\r\n     1       11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /7X,4HTIME,8X,\r\n     2       8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE,\r\n     3       9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  826 FORMAT (53X,42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /9X,\r\n     1       9HFREQUENCY,18X,8HNORMAL-X,26X,8HNORMAL-Y,26X,8HSHEAR-XY)\r\n  827 FORMAT (20X,33HSTRESSES IN MATERIAL COORD SYSTEM,11X,9HPRINCIPAL,\r\n     1       11X,18HPRINCIPAL STRESSES,10X,7HMAXIMUM, /6X,7HSUBCASE,6X,\r\n     2       8HNORMAL-X,6X,8HNORMAL-Y,7X,8HSHEAR-XY,6X,12HSTRESS ANGLE,\r\n     3       9X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  828 FORMAT (21X,'S T R E S S E S   I N   I S O P A R A M E T R I C  ',\r\n     1       ' S O L I D   ( C I H E X',I2,2H ))\r\n  829 FORMAT (2X,7HELEMENT,5X,4HGRID,11X,'STRESSES IN BASIC COORDINATE',\r\n     1       'SYSTEM',13X,12HDIR. COSINES)\r\n  830 FORMAT (7X,2HID,4X,5HPOINT,8X,6HNORMAL,12X,5HSHEAR,10X,9HPRINCIPAL\r\n     1,      10X,1HA,4X,1HB,4X,1HC,4X,11HMEAN STRESS,5X,9HMAX SHEAR)\r\n  831 FORMAT (13X,'C O M P L E X   S T R E S S E S   I N   I S O P A R',\r\n     1       ' A M E T R I C   S O L I D   ( C I H E X',I2,2H ))\r\n  832 FORMAT (7X,2HID,3X,6HPOINTS,5X,8HNORMAL-X,9X,8HNORMAL-Y,9X,\r\n     1       8HNORMAL-Z,9X,8HSHEAR-XY,9X,8HSHEAR-YZ,9X,8HSHEAR-ZX)\r\n  833 FORMAT (25X,'F O R C E   D I S T R I B U T I O N   I N   B A R',\r\n     1       '   E L E M E N T S,10X,11H( C B A R )')\r\n  834 FORMAT (21H0    ELEMENT  STATION,9X,11HBEND-MOMENT,22X,\r\n     1       11HSHEAR FORCE,21X,5HAXIAL)\r\n  835 FORMAT (7X,3HID.,5X,5H(PCT),5X,7HPLANE 1,8X,7HPLANE 2,11X,\r\n     1       7HPLANE 1,8X,7HPLANE 2,15X,5HFORCE,14X,6HTORQUE)\r\n  836 FORMAT (25X,'S T R E S S   D I S T R I B U T I O N   I N   B A R',\r\n     1       '  E L E M E N T S,7X,11H( C B A R )')\r\n  837 FORMAT (21H0    ELEMENT  STATION,4X,3HSXC,11X,3HSXD,11X,3HSXF,11X,\r\n     1        3HSXG,12X,5HAXIAL,10X,5HS-MAX, 9X,5HS-MIN,9X,4HM.S.)\r\n  838 FORMAT (7X,3HID.,5X,5H(PCT))\r\n  839 FORMAT (21X,'F O R C E S  F O R  T H E  Q U A D R I L A T E R A L'\r\n     1,      '  T H I N  S H E L L     ( C Q U A D T S )')\r\n  840 FORMAT (6X,2HEL,            36X,6HFORCES,51X,7HMOMENTS )\r\n  841 FORMAT (6X,2HID,5X,5HPOINT,9X,2HFX,17X,2HFY,17X,2HFZ,17X,2HMX,17X,\r\n     1       2HMY,17X,2HMZ )\r\n  842 FORMAT (17X,'F O R C E S   I N   T R I A N G U L A R   T H I N  ',\r\n     1       'S H E L L   E L E M E N T S   ( C T R S H L )')\r\n  843 FORMAT (19X,'S T R E S S E S  F O R  T H E  Q U A D R I L A T E ',\r\n     1      'R A L  T H I N  S H E L L     ( C Q U A D T S )')\r\n  844 FORMAT (3X,9HEL STRESS,8X,28HMEMBRANE  STRESS  RESULTANTS,24X,\r\n     1       17HFLEXURAL  MOMENTS,27X,5HSHEAR )\r\n  845 FORMAT (3X,'ID  POINT   NORMAL(NX)     NORMAL(NY)     SHEAR(NXY)',\r\n     1       '     NORMAL(MX)     NORMAL(MY)     TORQUE(MXY)     ',\r\n     2       'NORMAL(QX)     NORMAL(QY)')\r\n  846 FORMAT (18X,'S T R E S S E S   I N   T R I A N G U L A R   T H I',\r\n     1       ' N   S H E L L   E L E M E N T S   ( C T R S H L )')\r\n  847 FORMAT (5X,'S T R E S S E S  I N  A X I S - S Y M M E T R I C  ',\r\n     1       'T R I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)')\r\n  848 FORMAT (' ELEMENT   HARMONIC    POINT    RADIAL      AXIAL',6X,\r\n     1       'CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   ',\r\n     2       'D E N S I T I E S', /,' ID.       NUMBER      ANGLE     ',\r\n     3       '(R)         (Z)     (THETA-T)    (ZR)       (RT)       ',\r\n     4       '(ZT)        (R)        (Z)        (T)')\r\n  849 FORMAT (11X,'F O R C E S  I N  A X I S - S Y M M E T R I C  T R ',\r\n     1       'I A N G U L A R  R I N G  E L E M E N T S  (CTRIAAX)')\r\n  850 FORMAT (1X,113H  ELEMENT   HARMONIC    POINT            RADIAL\r\n     1        CIRCUMFERENTIAL            AXIAL                CHARGE,\r\n     1        /1X,'    ID.      NUMBER     ANGLE             (R)',17X,\r\n     3        '(THETA-T)                (Z)')\r\n  851 FORMAT (5X,'S T R E S S E S  I N  A X I S - S Y M M E T R I C  T',\r\n     1      ' R A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)')\r\n  852 FORMAT (11X,'F O R C E S  I N  A X I S - S Y M M E T R I C  T R ',\r\n     1       'A P E Z O I D A L  R I N G  E L E M E N T S  (CTRAPAX)')\r\n  853 FORMAT (43X,45HE L E M E N T   S T R A I N   E N E R G I E S )\r\n  854 FORMAT (30X,15HELEMENT-TYPE = ,2A4,9X,23H* TOTAL FOR ALL TYPES = ,\r\n     1       1P,E16.7, /1H0,95X,1H*, /36X,10HELEMENT-ID,10X,\r\n     2       13HSTRAIN-ENERGY,11X,16HPERCENT OF TOTAL )\r\n  855 FORMAT (42X,47HG R I D   P O I N T   F O R C E   B A L A N C E )\r\n  856 FORMAT (11H   POINT-ID,4X,10HELEMENT-ID,5X,6HSOURCE,13X,2HT1,13X,\r\n     1       2HT2,13X,2HT3,13X,2HR1,13X,2HR2,13X,2HR3)\r\n  857 FORMAT (22X,'F O R C E S   I N   T R I A N G U L A R   P L A T E',\r\n     1       '  E L E M E N T S   ( C T R P L T 1 )')\r\n  858 FORMAT (20X,'S T R E S S E S   I N   T R I A N G U L A R   ',\r\n     1       'P L A T E   E L E M E N T S   ( C T R P L T 1 )')\r\n  859 FORMAT (1H0,9X,7HELEMENT,4X,5HPOINT,7X,2(11HBEND-MOMENT, 9X),\r\n     1       12HTWIST-MOMENT,2(11X,5HSHEAR,4X))\r\n  860 FORMAT (12X,3HID.,7X,3HNO.,13X,1HX,19X,1HY,39X,1HX,19X,1HY)\r\n  861 FORMAT (1H0, 8H ELEMENT, 2X, 5HPOINT, 5X, 5HFIBER, 11X,\r\n     1       32HSTRESSES IN ELEMENT COORD SYSTEM, 12X,\r\n     2       31HPRINCIPAL STRESSES (ZERO SHEAR), 11X, 3HMAX)\r\n  862 FORMAT (3X,3HID.,6X,3HNO.,5X,8HDISTANCE, 7X,8HNORMAL-X,6X,\r\n     1       8HNORMAL-Y,6X,8HSHEAR-XY,8X,5HANGLE,9X,5HMAJOR,9X,5HMINOR,\r\n     2       10X,5HSHEAR)\r\n  863 FORMAT (18X,'S T R E S S E S   I N   T R I A N G U L A R   ',\r\n     1       'M E M B R A N E   E L E M E N T S   ( C T R I M 6 )')\r\n  864 FORMAT (1H0, 8H ELEMENT, 5X, 5HPOINT, 7X,\r\n     1       32HSTRESSES IN ELEMENT COORD SYSTEM, 13X,\r\n     2       31HPRINCIPAL STRESSES (ZERO SHEAR), 13X, 3HMAX)\r\n  865 FORMAT (4X,3HID.,8X,3HNO., 5X,8HNORMAL-X,7X,8HNORMAL-Y,7X,\r\n     1       8HSHEAR-XY,8X,5HANGLE,10X,5HMAJOR,10X,5HMINOR,10X,5HSHEAR)\r\n  866 FORMAT (2(24X, 6HMOMENT, 9X, 6HMOMENT, 15X), /2(6X, 7HSUBCASE,11X,\r\n     1       7HPTS 1,3, 8X, 7HPTS 2,4, 14X))\r\n  867 FORMAT (6X, 7HSUBCASE, 2X, 2(11X, 11HBEND-MOMENT), 11X,\r\n     1       12HTWIST-MOMENT, 13X, 5HSHEAR, 17X, 5HSHEAR,\r\n     2       /31X, 1HX, 21X, 1HY, 43X, 1HX, 21X, 1HY)\r\n  868 FORMAT (4(6X, 7HSUBCASE, 9X, 5HFORCE, 6X))\r\n  869 FORMAT (5X, 7HSUBCASE, 11X, 3HSA1, 12X, 3HSA2, 12X, 3HSA3, 10X,\r\n     1       12HAXIAL-STRESS, 8X, 6HSA-MAX, 9X, 6HSA-MIN, 11X,6HM.S.-T,\r\n     2       /23X, 3HSB1, 12X, 3HSB2, 12X, 3HSB3, 30X, 6HSB-MAX, 9X,\r\n     3       6HSB-MIN, 11X, 6HM.S.-C)\r\n  870 FORMAT (2(54X, 6HSAFETY), /2(5X, 7HSUBCASE, 14X, 7HMAXIMUM, 8X,\r\n     1       7HAVERAGE, 6X, 6HMARGIN))\r\n  871 FORMAT (19X, 5HFIBRE, 11X, 32HSTRESSES IN ELEMENT COORD SYSTEM,\r\n     1       13X, 31HPRINCIPAL STRESSES (ZERO SHEAR), 10X, 7HMAXIMUM,/\r\n     2       5X, 7HSUBCASE, 6X, 8HDISTANCE, 7X, 8HNORMAL-X, 7X,\r\n     3       8HNORMAL-Y, 6X, 8HSHEAR-XY, 7X, 5HANGLE, 9X, 5HMAJOR,\r\n     4       11X, 5HMINOR, 10X, 5HSHEAR)\r\n  872 FORMAT (4(6X, 7HSUBCASE, 8X, 6HSTRESS, 6X))\r\n  873 FORMAT (107X, 22HOCTAHEDRAL    PRESSURE,/5X, 10HSUBCASE   , 8X,\r\n     1       8HSIGMA-XX, 6X, 8HSIGMA-YY, 6X, 8HSIGMA-ZZ, 7X, 6HTAU-YZ,\r\n     2       8X, 6HTAU-XZ, 8X, 6HTAU-XY, 8X, 5HTAU-0, 10X, 1HP)\r\n  874 FORMAT (107X, 22HOCTAHEDRAL    PRESSURE,/5X, 11HSUBCASE    , 8X,\r\n     1       8HSIGMA-XX, 6X, 8HSIGMA-YY, 6X, 8HSIGMA-ZZ, 7X, 6HTAU-YZ,\r\n     2       8X, 6HTAU-XZ, 8X, 6HTAU-XY, 8X, 5HTAU-0, 10X, 1HP)\r\n  875 FORMAT (32X,'F O R C E S   O F   M U L T I - P O I N T   C O N S',\r\n     1       ' T R A I N T')\r\n  876 FORMAT (2X,7HELEMENT,4X,16HMAT. COORD. SYS.,6X,\r\n     1       33HSTRESSES IN MATERIAL COORD SYSTEM,12X,\r\n     2       31HPRINCIPAL STRESSES (ZERO SHEAR),12X,3HMAX)\r\n  877 FORMAT (4X, 3HID., 6X, 15HID./OUTPUT CODE,\r\n     1       5X, 8HNORMAL-X, 7X, 8HNORMAL-Y, 6X, 8HSHEAR-XY,\r\n     2       7X, 5HANGLE, 9X, 5HMAJOR, 11X, 5HMINOR, 10X, 5HSHEAR)\r\n  878 FORMAT (43X,'S T R E S S E S   A T   G R I D   P O I N T S')\r\n  879 FORMAT (7X,'S T R A I N S / C U R V A T U R E S   I N   G E N E ',\r\n     1       'R A L   T R I A N G U L A R   E L E M E N T S',6X,\r\n     2       '( C T R I A 1 )')\r\n  880 FORMAT (7X,'S T R A I N S / C U R V A T U R E S   I N   G E N E ',\r\n     1       'R A L   T R I A N G U L A R   E L E M E N T S',6X,\r\n     2       '( C T R I A 2 )')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ofp1c.f",
    "content": "      SUBROUTINE OFP1C (LINE)\r\nC\r\nC     THIS SUBROUTINE WAS FORMED ONLY TO REDUCE THE SIZE OF OFP1 FOR\r\nC     COMPILATION PURPOSES.  IT IS CALLED ONLY BY OFP1.\r\nC     THIS ROUTINE WAS PART OF OFP1B BEFORE.\r\nC\r\n      COMMON /SYSTEM/ IBUF,L\r\nCZZ   COMMON /ZZOFPX/ L123(1)\r\n      COMMON /ZZZZZZ/ L123(20000)\r\nC\r\nC\r\nCWKBR NCL93012 3/94      IF (LINE .GT. 467) GO TO 100             \r\nCWKBR SPR94001 7/94      IF (LINE .GT. 470) GO TO 100\r\n      IF (LINE .GT. 474) GO TO 100       \r\n      LOCAL = LINE - 380\r\n      GO TO (381,382,383,384,385,386,387,388,389,390,\r\n     1       391,392,393,394,395,396,397,398,399,400,\r\n     2       401,402,403,404,405,406,407,408,409,410,\r\n     3       411,412,413,414,415,416,417,418,419,420,\r\n     4       421,422,423,424,425,426,427,428,429,430,\r\n     5       431,432,433,434,435,436,437,438,439,440,\r\n     6       441,442,443,444,445,446,447,448,449,450,\r\n     7       451,452,453,454,455,456,457,458,459,460,\r\nCWKBR NCL93012 3/94 8       461,462,463,464,465,466,467), LOCAL     \r\nCWKBD SPR94001 7/94 8       461,462,463,464,465,466,467,100,469,470), LOCAL \r\nCWKBNB SPR94001 7/94\r\n     8       461,462,463,464,465,466,467,100,469,470,\r\n     9       471,472,473,474), LOCAL\r\nCWKBNE SPR94001 7/94\r\nC\r\n  100 WRITE  (L,110) LINE\r\n  110 FORMAT ('0*** OFP ERROR/OFP1C,  LINE=',I9)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n  381 WRITE (L,881)\r\n      GO TO 1000\r\n  382 WRITE (L,882)\r\n      GO TO 1000\r\n  383 WRITE (L,883)\r\n      GO TO 1000\r\n  384 WRITE (L,884)\r\n      GO TO 1000\r\n  385 WRITE (L,885)\r\n      GO TO 1000\r\n  386 WRITE (L,886)\r\n      GO TO 1000\r\n  387 WRITE (L,887)\r\n      GO TO 1000\r\n  388 WRITE (L,888)\r\n      GO TO 1000\r\n  389 WRITE (L,889)\r\n      GO TO 1000\r\n  390 WRITE (L,890)\r\n      GO TO 1000\r\n  391 WRITE (L,891)\r\n      GO TO 1000\r\n  392 WRITE (L,892)\r\n      GO TO 1000\r\n  393 WRITE (L,893)\r\n      GO TO 1000\r\n  394 WRITE (L,894)\r\n      GO TO 1000\r\n  395 WRITE (L,895)\r\n      GO TO 1000\r\n  396 WRITE (L,896)\r\n      GO TO 1000\r\n  397 WRITE (L,897)\r\n      GO TO 1000\r\n  398 WRITE (L,898)\r\n      GO TO 1000\r\n  399 WRITE (L,899)\r\n      GO TO 1000\r\n  400 WRITE (L,900)\r\n      GO TO 1000\r\n  401 WRITE (L,901)\r\n      GO TO 1000\r\n  402 WRITE (L,902)\r\n      GO TO 1000\r\n  403 WRITE (L,903)\r\n      GO TO 1000\r\n  404 WRITE (L,904)\r\n      GO TO 1000\r\n  405 WRITE (L,905)\r\n      GO TO 1000\r\n  406 WRITE (L,906)\r\n      GO TO 1000\r\n  407 WRITE (L,907)\r\n      GO TO 1000\r\n  408 WRITE (L,908)\r\n      GO TO 1000\r\n  409 WRITE (L,909)\r\n      GO TO 1000\r\n  410 WRITE (L,910)\r\n      GO TO 1000\r\n  411 WRITE (L,911)\r\n      GO TO 1000\r\n  412 WRITE (L,912)\r\n      GO TO 1000\r\n  413 WRITE (L,913)\r\n      GO TO 1000\r\n  414 WRITE (L,914)\r\n      GO TO 1000\r\n  415 WRITE (L,915)\r\n      GO TO 1000\r\n  416 WRITE (L,916)\r\n      GO TO 1000\r\n  417 WRITE (L,917)\r\n      GO TO 1000\r\n  418 WRITE (L,918)\r\n      GO TO 1000\r\n  419 WRITE (L,919)\r\n      GO TO 1000\r\n  420 WRITE (L,920)\r\n      GO TO 1000\r\n  421 WRITE (L,921)\r\n      GO TO 1000\r\n  422 WRITE (L,922)\r\n      GO TO 1000\r\n  423 WRITE (L,923)\r\n      GO TO 1000\r\n  424 WRITE (L,924)\r\n      GO TO 1000\r\n  425 WRITE (L,925)\r\n      GO TO 1000\r\n  426 WRITE (L,926)\r\n      GO TO 1000\r\n  427 WRITE (L,927)\r\n      GO TO 1000\r\n  428 WRITE (L,928)\r\n      GO TO 1000\r\n  429 WRITE (L,929)\r\n      GO TO 1000\r\n  430 WRITE (L,930)\r\n      GO TO 1000\r\n  431 WRITE (L,931)\r\n      GO TO 1000\r\n  432 WRITE (L,932)\r\n      GO TO 1000\r\n  433 WRITE (L,933)\r\n      GO TO 1000\r\n  434 WRITE (L,934)\r\n      GO TO 1000\r\n  435 WRITE (L,935)\r\n      GO TO 1000\r\n  436 WRITE (L,936)\r\n      GO TO 1000\r\n  437 WRITE (L,937)\r\n      GO TO 1000\r\n  438 WRITE (L,938)\r\n      GO TO 1000\r\n  439 WRITE (L,939)\r\n      GO TO 1000\r\n  440 WRITE (L,940)\r\n      GO TO 1000\r\n  441 WRITE (L,941)\r\n      GO TO 1000\r\n  442 WRITE (L,942)\r\n      GO TO 1000\r\n  443 WRITE (L,943)\r\n      GO TO 1000\r\n  444 WRITE (L,944)\r\n      GO TO 1000\r\n  445 WRITE (L,945)\r\n      GO TO 1000\r\n  446 WRITE (L,946)\r\n      GO TO 1000\r\n  447 WRITE (L,947)\r\n      GO TO 1000\r\n  448 WRITE (L,948)\r\n      GO TO 1000\r\n  449 WRITE (L,949)\r\n      GO TO 1000\r\n  450 WRITE (L,950)\r\n      GO TO 1000\r\n  451 WRITE (L,951)\r\n      GO TO 1000\r\n  452 WRITE (L,952)\r\n      GO TO 1000\r\n  453 WRITE (L,953)\r\n      GO TO 1000\r\n  454 WRITE (L,954)\r\n      GO TO 1000\r\n  455 WRITE (L,955)\r\n      GO TO 1000\r\n  456 WRITE (L,956)\r\n      GO TO 1000\r\n  457 WRITE (L,957)\r\n      GO TO 1000\r\n  458 WRITE (L,958)\r\n      GO TO 1000\r\n  459 WRITE (L,959)\r\n      GO TO 1000\r\n  460 WRITE (L,960)\r\n      GO TO 1000\r\n  461 WRITE (L,961)\r\n      GO TO 1000\r\n  462 WRITE (L,962)\r\n      GO TO 1000\r\n  463 WRITE (L,963)\r\n      GO TO 1000\r\n  464 WRITE (L,964)\r\n      GO TO 1000\r\n  465 WRITE (L,965)\r\n      GO TO 1000\r\n  466 WRITE (L,966)\r\n      GO TO 1000\r\n  467 WRITE (L,967)\r\n      GO TO 1000\r\nCWKBNB NCL93012 3/94\r\n469   WRITE ( L,969)\r\n      GO TO 1000\r\n470   WRITE ( L,970)\r\n      GO TO 1000\r\nCWKBNE NCL93012 3/94\r\nCWKBNB SPR94001 7/94\r\n471   WRITE (L,971)\r\n      GO TO 1000\r\n472   WRITE (L,972)\r\n      GO TO 1000\r\n473   WRITE (L,973)\r\n      GO TO 1000\r\n474   WRITE (L,974)\r\n      GO TO 1000\r\nCWKBNE SPR94001 7/94\r\n 1000 RETURN\r\nC\r\nC     ******************************************************************\r\nC\r\n  881 FORMAT (4X,'S T R A I N S / C U R V A T U R E S   I N   G E N E ',\r\n     1       'R A L   Q U A D R I L A T E R A L   E L E M E N T S',6X,\r\n     2       '( C Q U A D 2 )')\r\n  882 FORMAT (4X,'S T R A I N S / C U R V A T U R E S   I N   G E N E ',\r\n     1       'R A L   Q U A D R I L A T E R A L   E L E M E N T S',6X,\r\n     2       '( C Q U A D 1 )')\r\nCWKBRB NCL93012 3/94  \r\nC  883 FORMAT (2X,7HELEMENT,24X,37HSTRNS./CURVS. IN ELEMENT COORD SYSTEM,\r\nC     1       6X,38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM)\r\nCWKBRE NCL93012 3/94  \r\n  883 FORMAT (2X,7HELEMENT,8X,'STRAIN',8X\r\n     1,      37HSTRNS./CURVS. IN ELEMENT COORD SYSTEM\r\n     2,      6X,38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM)\r\n  884 FORMAT (4X,3HID.,6X,15HID./OUTPUT CODE,5X,8HNORMAL-X,7X,\r\n     1       8HNORMAL-Y,6X,8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,\r\n     3       7X,11HSHEAR/TWIST)\r\n  885 FORMAT (2X,7HELEMENT,4X,16HMAT. COORD. SYS.,4X,'STRNS./CURVS. ',\r\n     1       ' IN MATERIAL COORD SYSTEM',5X,\r\n     2       38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST),7X,7HMAXIMUM)\r\n  886 FORMAT (33X,'S T R A I N S / C U R V A T U R E S   A T   G R I D',\r\n     1       '   P O I N T S')\r\n  887 FORMAT (2X,7H POINT ,4X,16HMAT. COORD. SYS.,6X,\r\n     1       33HSTRESSES INMATERIAL COORD SYSTEM , 12X,\r\n     2       31HPRINCIPAL STRESSES (ZERO SHEAR), 12X,3HMAX)\r\n  888 FORMAT (2X,7H POINT ,4X,16HMAT. COORD. SYS.,4X,\r\n     1       38HSTRNS./CURVS. IN MATERIAL COORD SYSTEM, 5X,\r\n     2       38HPRIN. STRNS./CURVS. (ZERO SHEAR/TWIST), 7X,7HMAXIMUM)\r\n  889 FORMAT (50X,30H(IN ELEMENT COORDINATE SYSTEM),/)\r\n  890 FORMAT (50X,31H(IN MATERIAL COORDINATE SYSTEM),/)\r\nCWKBRB NCL93012 3/94  \r\nC  891 FORMAT (4X,3HID.,26X,8HNORMAL-X, 7X,8HNORMAL-Y, 6X,8HSHEAR-XY,\r\nC     1       7X,5HANGLE, 9X,5HMAJOR, 11X,5HMINOR, 7X,11HSHEAR/TWIST)\r\nCWKBRE NCL93012 3/94\r\n  891 FORMAT (4X,3HID.,9X,'CURVATURE',7X\r\n     1,      8HNORMAL-X, 7X,8HNORMAL-Y, 6X,8HSHEAR-XY\r\n     2,      7X,5HANGLE, 9X,5HMAJOR, 11X,5HMINOR, 7X,11HSHEAR/TWIST)\r\n  892 FORMAT (4X,'C O M P L E X   F O R C E S   I N   A X I S - S Y M ',\r\n     1       'M E T R I C   T R I A N G U L A R   R I N G   E L E M E ',\r\n     2       'N T S   (CTRIAAX)',/)\r\n  893 FORMAT (2X,'C O M P L E X   S T R E S S E S   I N   A X I S - S ',\r\n     1       'Y M M E T R I C   T R I A N G U L A R   R I N G   E L E ',\r\n     2       'M E N T S   (CTRIAAX)',/)\r\n  894 FORMAT (3X,'C O M P L E X   F O R C E S   I N   A X I S - S Y M ',\r\n     1       'M E T R I C   T R A P E Z O I D A L   R I N G   E L E M ',\r\n     2       'E N T S   (CTRAPAX)',/)\r\n  895 FORMAT (' C O M P L E X   S T R E S S E S   I N   A X I S - S Y ',\r\n     1       ' M M E T R I C   T R A P E Z O I D A L   R I N G   E L E',\r\n     2       ' M E N T S   (CTRAPAX)',/)\r\n  896 FORMAT (3X,'SUBCASE   HARMONIC    POINT',12X,'RADIAL',12X,\r\n     1       'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X,\r\n     2       'NUMBER     ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)')\r\n  897 FORMAT (' SUBCASE   HARMONIC    POINT    RADIAL      AXIAL     ',\r\n     1       'CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   ',\r\n     2       'D E N S I T I E S', /11X,'NUMBER      ANGLE     (R)',9X,\r\n     3       '(Z)     (THETA-T)    (ZR)       (RT)       (ZT)',8X,\r\n     4       '(R)        (Z)        (T)')\r\n  898 FORMAT ('   FREQUENCY  HARMONIC    POINT            RADIAL',12X,\r\n     1       'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X,\r\n     2       'NUMBER     ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)')\r\n  899 FORMAT (' FREQUENCY HARMONIC    POINT    RADIAL      AXIAL     ',\r\n     1       'CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   ',\r\n     2       'D E N S I T I E S', /10X,'NUMBER      ANGLE     (R)',9X,\r\n     3       '(Z)     (THETA-T)    (ZR)       (RT)       (ZT)',8X,\r\n     4       '(R)        (Z)        (T)')\r\n  900 FORMAT (4X,'TIME     HARMONIC    POINT            RADIAL',12X,\r\n     1       'CIRCUMFERENTIAL',12X,'AXIAL',16X,'CHARGE', /14X,\r\n     2       'NUMBER     ANGLE',13X,'(R)',17X,'(THETA-T)',16X,'(Z)')\r\n  901 FORMAT (2X,'TIME     HARMONIC    POINT    RADIAL      AXIAL     ',\r\n     1       'CIRCUM.     SHEAR      SHEAR      SHEAR      F L U X   ',\r\n     2       'D E N S I T I E S', /11X,'NUMBER      ANGLE     (R)',9X,\r\n     3       '(Z)     (THETA-T)    (ZR)       (RT)       (ZT)',8X,\r\n     4       '(R)        (Z)        (T)')\r\n  902 FORMAT (5X,4HTIME,7X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3,13X,\r\n     1       2HR1,13X,2HR2,13X,2HR3)\r\n  903 FORMAT (4X,7HSUBCASE,5X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3,\r\n     1       13X,2HR1,13X,2HR2,13X,2HR3)\r\n  904 FORMAT (3X,9HFREQUENCY,4X,8HHARMONIC,8X,2HT1,13X,2HT2,13X,2HT3,\r\n     1       13X,2HR1,13X,2HR2,13X,2HR3)\r\n  905 FORMAT (19X,'F I N I T E   E L E M E N T   M A G N E T I C   F I',\r\n     1       ' E L D   A N D   I N D U C T I O N',/)\r\n  906 FORMAT (4X,'ELEMENT-ID   EL-TYPE         X-FIELD',10X,'Y-FIELD',\r\n     1       10X,'Z-FIELD        X-INDUCTION      Y-INDUCTION',6X,\r\n     2       'Z-INDUCTION')\r\n  907 FORMAT (28X,'G R I D   P O I N T   S T R E S S E S   F O R   I S',\r\n     1       ' 2 D 8   E L E M E N T S',/)\r\n  908 FORMAT (2X,7HELEMENT,3X,5HNO.OF,4X,5HNO.OF,7X,4HGRID,3X,6HCOORD.)\r\n  909 FORMAT (4X,3HID.,4X,9HGRID PTS.,1X,8HSTRESSES,3X,5HPOINT,2X,\r\n     1       7HSYS ID.,5X,5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY)\r\n  910 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD.)\r\n  911 FORMAT (4X,4HTIME,3X,9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,\r\n     1       7HSYS ID.,5X,5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY)\r\n  912 FORMAT (20X,'C O M P L E X   G R I D   P O I N T   S T R E S S E',\r\n     1       ' S   F O R   I S 2 D 8   E L E M E N T S',/)\r\n  913 FORMAT (2X,7HELEMENT,3X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD.,/4X,3HID.,\r\n     1       4X,9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,11X,\r\n     2       5HSIG-X,22X,5HSIG-Y,22X,6HTAU-XY)\r\n  914 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD., /1X,9HFREQUENCY,1X,\r\n     1       9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,11X,\r\n     2       5HSIG-X,22X,5HSIG-Y,22X,6HTAU-XY)\r\n  915 FORMAT (12X,5HNO.OF,4X,5HNO.OF,13X,6HCOORD., /2X,7HSUBCASE,2X,\r\n     1       9HGRID PTS.,1X,8HSTRESSES,2X,7HGRID PT,1X,7HSYS ID.,5X,\r\n     2       5HSIG-X,8X,5HSIG-Y,8X,6HTAU-XY)\r\n  916 FORMAT (26X,'F O R C E S    I N    C U R V E D    B E A M    E L',\r\n     1       ' E M E N T S',8X,'( C E L B O W )',/)\r\n  917 FORMAT (5X,7HELEMENT,11X,16H-BENDING MOMENT-,21X,7H-SHEAR-,18X,\r\n     1       13H-AXIAL FORCE-,7X,8H-TORQUE-)\r\n  918 FORMAT (7X,3HID.,7X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X,\r\n     1       13HPLANE-1 END-A,2X,13HPLANE-2 END-A,13X,5HEND-A,13X,\r\n     2       5HEND-A)\r\n  919 FORMAT (25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B,13X,\r\n     1       5HEND-B)\r\n  920 FORMAT (26X,'S T R E S S E S    I N    C U R V E D    B E A M   ',\r\n     1       ' E L E M E N T S',8X,'( C E L B O W )',/)\r\n  921 FORMAT (23X,16H-BENDING MOMENT-,21X,7H-SHEAR-,18X,\r\n     1       13H-AXIAL FORCE-,7X,8H-TORQUE-)\r\n  922 FORMAT (4X,4HTIME,9X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X,\r\n     1       13HPLANE-1 END-A,8X,7HPLANE-2,13X,5HEND-A,13X,5HEND-A,\r\n     2       /25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B,13X,\r\n     3       5HEND-B)\r\n  923 FORMAT (6X,7HSUBCASE,4X,13HPLANE-1 END-A,2X,13HPLANE-2 END-A,5X,\r\n     1       13HPLANE-1 END-A,2X,13HPLANE-2 END-A,13X,5HEND-A,13X,\r\n     2       5HEND-A, /25X,5HEND-B,10X,5HEND-B,13X,5HEND-B,28X,5HEND-B,\r\n     3       13X,5HEND-B)\r\n  924 FORMAT (19X,'C O M P L E X   F O R C E S   I N   C U R V E D   ',\r\n     1       'B E A M   E L E M E N T S   ( C E L B O W )',/)\r\n  925 FORMAT (7X,9HFREQUENCY,21X,14HBENDING-MOMENT,19X,11HSHEAR-FORCE,\r\n     1       22X,5HAXIAL,10X,6HTORQUE, /35X,7HPLANE 1,8X,7HPLANE 2,11X,\r\n     2       7HPLANE 1,8X,7HPLANE 2,13X,5HFORCE)\r\n  926 FORMAT (18X,'C O M P L E X   S T R E S S E S   I N   C U R V E D',\r\n     1       '   B E A M   E L E M E N T S   ( C E L B O W )',/)\r\n  927 FORMAT (7X,9HELEMENT  ,21X,14HBENDING-MOMENT,19X,11HSHEAR-FORCE,\r\n     1       22X,5HAXIAL,10X,6HTORQUE, /35X,7HPLANE 1,8X,7HPLANE 2,11X,\r\n     2       7HPLANE 1,8X,7HPLANE 2,13X,5HFORCE)\r\n  928 FORMAT (23X,'F O R C E S   I N   F L U I D   H E X A H E D R A L',\r\n     1       '   E L E M E N T S   ( C F H E X 2 )',/)\r\n  929 FORMAT (23X,'F O R C E S   I N   F L U I D   H E X A H E D R A L',\r\n     1       '   E L E M E N T S   ( C F H E X 1 )',/)\r\n  930 FORMAT (19X,'F O R C E S   I N   F L U I D   T E T R A H E D R A',\r\n     1       ' L   E L E M E N T S   ( C F T E T R A )',/)\r\n  931 FORMAT (26X,'F O R C E S   I N   F L U I D   W E D G E   E L E M',\r\n     1       ' E N T S    ( C F W E D G E )',/)\r\n  932 FORMAT (24X,'P O W E R   C O N V E C T E D   B Y   F T U B E   ',\r\n     1       'E L E M E N T S   ( C F T U B E )',/)\r\n  933 FORMAT (47X,4HTIME,26X,5HPOWER)\r\n  934 FORMAT (45X,10HELEMENT-ID ,22X,5HPOWER)\r\n  935 FORMAT (2X,7HELEMENT,3X,16HMAT. COORD. SYS.,30X,\r\n     1       42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /4X,\r\n     2       3HID., 5X,16HID./OUTPUT CODED, 14X,8HNORMAL-X, 26X,\r\n     3       8HNORAML-Y, 25X,8HSHEAR-XY )\r\n  936 FORMAT (16X,16HMAT. COORD. SYS., 30X,\r\n     1       42H- STRESSES IN MATERIAL COORDINATE SYSTEM -, /4X,\r\n     2       9HFREQUENCY, 3X,15HID./OUTPUT CODE,\r\n     3       14X,8HNORAML-X, 26X,8HNORMAL-Y, 25X,8HSHEAR-XY )\r\n  937 FORMAT (50X, 29H(IN STRESS COORDINATE SYSTEM),/)\r\n  938 FORMAT (2X,7HELEMENT,6X,5HFIBRE,15X,'STRESSES IN STRESS COORD. ',\r\n     1       'SYSTEM',13X,31HPRINCIPAL STRESSES (ZERO SHEAR),12X,3HMAX)\r\n  939 FORMAT (4X,3HID.,7X,8HDISTANCE,11X,8HNORMAL-X,7X,8HNORMAL-Y,6X,\r\n     1       8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR)\r\n  940 FORMAT (20X,'F O R C E S   I N   G E N E R A L   Q U A D R I ',\r\n     1       'L A T E R A L   E L E M E N T S     ( Q U A D 4 )',/)\r\n  941 FORMAT (6X,'ELEMENT',12X,'- MEMBRANE  FORCES -',22X,'- BENDING',\r\n     1       '   MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -')\r\n  942 FORMAT (8X,'ID',10X,2HFX,12X,2HFY,12X,3HFXY,11X,2HMX,12X,2HMY,\r\n     1       12X,3HMXY,11X,2HVX,12X,2HVY)\r\n  943 FORMAT (19X,5HFIBRE,11X,32HSTRESSES IN STRESS COORD. SYSTEM,13X,\r\n     1       31HPRINCIPAL STRESSES (ZERO SHEAR),10X,7HMAXIMUM, /7X,\r\n     2       4HTIME,7X,8HDISTANCE,7X,8HNORMAL-X,7X,8HNORMAL-Y,6X,\r\n     3       8HSHEAR-XY,7X,5HANGLE,9X,5HMAJOR,11X,5HMINOR,10X,5HSHEAR)\r\n  944 FORMAT (19X, 5HFIBRE, 11X, 32HSTRESSES IN STRESS COORD. SYSTEM,\r\n     1       13X, 31HPRINCIPAL STRESSES (ZERO SHEAR), 10X, 7HMAXIMUM,\r\n     2       /5X, 7HSUBCASE, 6X, 8HDISTANCE, 7X, 8HNORMAL-X, 7X,\r\n     3       8HNORMAL-Y, 6X, 8HSHEAR-XY, 7X, 5HANGLE, 9X, 5HMAJOR,\r\n     4       11X, 5HMINOR, 10X, 5HSHEAR)\r\n  945 FORMAT (6X,' TIME  ',18X,'- MEMBRANE  FORCES -',22X,'- BENDING',\r\n     1       '   MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -')\r\n  946 FORMAT (26X,2HFX,12X,2HFY,12X,3HFXY,11X,2HMX,12X,2HMY,12X,3HMXY,\r\n     1       11X,2HVX,12X,2HVY)\r\n  947 FORMAT (6X,'SUBCASE',18X,'- MEMBRANE  FORCES -',22X,'- BENDING',\r\n     1       '   MOMENTS -',11X,'- TRANSVERSE SHEAR FORCES -')\r\n  948 FORMAT (6X,'C O M P L E X   S T R E S S E S   I N   G E N E R A ',\r\n     1       'L   Q U A D R I L I A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 4 )')\r\n  949 FORMAT (9H  ELEMENT,7X,5HFIBRE,38X,'- STRESSES IN STRESS COORDI',\r\n     1       'NATE SYSTEM -', /4X,3HID.,8X,8HDISTANCE,18X,8HNORMAL-X,\r\n     2       26X,8HNORMAL-Y,25X,8HSHEAR-XY)\r\n  950 FORMAT (20X,5HFIBRE,38X,'- STRESSES IN STRESS COORDINATE SYSTEM -'\r\n     1,      /4X,9HFREQUENCY,6X,8HDISTANCE,18X,8HNORMAL-X,26X,\r\n     2       8HNORMAL-Y,25X,8HSHEAR-XY)\r\n  951 FORMAT (6X,7HELEMENT,15X,6HCENTER,22X,7HEDGE  1,14X,7HEDGE  2,14X,\r\n     1       7HEDGE  3,14X,7HEDGE  4, /8X,3HID.,9X,'R ------- PHI ----',\r\n     2       '-- Z',4X,4(8X,13HS ------- PHI))\r\n  952 FORMAT (28X,6HCENTER,22X,7HEDGE  1,14X,7HEDGE  2,14X,7HEDGE  3,\r\n     1       14X,7HEDGE 4, /7X,4HTIME,9X,22HR ------- PHI ------ Z,4X,\r\n     2       4(8X,13HS ------- PHI))\r\n  953 FORMAT (29X,6HCENTER,21X,7HEDGE  1,14X,7HEDGE  2, 14X,7HEDGE  3,\r\n     1       14X,7HEDGE  4,/4X,9HFREQUENCY,7X,22HR ------- PHI ------ Z,\r\n     2       4X,4(8X,13HS ------- PHI))\r\n  954 FORMAT (9X,'C O M P L E X   S T R E S S E S   I N   T R I A N G ',\r\n     1       'U L A R   M E M B R A N E   E L E M E N T S   ',\r\n     2       '( C T R I M 6 )')\r\n  955 FORMAT (11X,'C O M P L E X   F O R C E S   I N   T R I A N G U L',\r\n     1     ' A R   M E M B R A N E   E L E M E N T S   ( C T R I M 6 )')\r\n  956 FORMAT (9X,'C O M P L E X   S T R E S S E S   I N   T R I A N G ',\r\n     1       'U L A R   B E N D I N G   E L E M E N T S   ',\r\n     2       '( C T R P L T 1 )')\r\n  957 FORMAT (11X,'C O M P L E X   F O R C E S   I N   T R I A N G U L',\r\n     1     ' A R   B E N D I N G   E L E M E N T S   ( C T R P L T 1 )')\r\n  958 FORMAT (12X,'C O M P L E X   S T R E S S E S   I N   T R I A N G',\r\n     1       ' U L A R   S H E L L   E L E M E N T S   ( C T R S H L )')\r\n  959 FORMAT (14X,'C O M P L E X   F O R C E S   I N   T R I A N G U L',\r\n     1       ' A R   S H E L L   E L E M E N T S   ( C T R S H L )')\r\n  960 FORMAT (9X,'C O M P L E X   F O R C E S   I N   G E N E R A L   ',\r\n     1       'Q U A D R I L A T E R A L   E L E M E N T S   ',\r\n     2       '( C Q U A D 4 )')\r\n  961 FORMAT (3X,'FREQUENCY',14X,'- MEMBRANE  FORCES -',23X,'- BENDING',\r\n     1       '   MOMENTS -',10X,'- TRANSVERSE SHEAR FORCES -',\r\n     2       /22X,2HFX,12X,2HFY,11X,3HFXY,13X,2HMX,12X,2HMY,11X,3HMXY,\r\n     3       13X,2HVX,12X,2HVY)\r\n  962 FORMAT (16X,4HGRID,11X,35HSTRESSES IN BASIC COORDINATE SYSTEM,13X,\r\n     1       12HDIR. COSINES, /3X,9HFREQUENCY,3X,5HPOINT,5X,8HNORMAL-X,\r\n     2       9X,8HNORMAL-Y,9X,8HNORMAL-Z,9X,8HSHEAR-XY,9X,8HSHEAR-YZ,9X,\r\n     3       8HSHEAR-ZX)\r\n  963 FORMAT (22X,'F O R C E S   I N   G E N E R A L   T R I A N G ',\r\n     1       'U L A R   E L E M E N T S     ( C T R I A 3 )',/)\r\n  964 FORMAT (12X,'C O M P L E X   F O R C E S   I N   G E N E R A L  ',\r\n     1       ' T R I A N G U L A R   E L E M E N T S   ( C T R I A 3 )')\r\n  965 FORMAT (21X,'S T R E S S E S   I N   G E N E R A L   T R I A N G',\r\n     1       ' U L A R   E L E M E N T S',6X,'( C T R I A 3 )')\r\n  966 FORMAT (9X,'C O M P L E X   S T R E S S E S   I N   G E N E R A ',\r\n     1       'L   T R I A N G U L A R   E L E M E N T S   ',\r\n     2       '( C T R I A 3 )')\r\n  967 FORMAT (107X,22HOCTAHEDRAL    PRESSURE, /6X,10H   SUBCASE,8X,\r\n     1       8HSIGMA-XX,6X,8HSIGMA-YY,6X,8HSIGMA-ZZ,7X,6HTAU-YZ,8X,\r\n     2       6HTAU-XZ,8X,6HTAU-XY,8X,5HTAU-0,10X,1HP)\r\nCWKBNB NCL93012 3/94\r\n  969 FORMAT ( 4X, 'S T R A I N S / C U R V A T U R E S   I N   G E N '\r\n     1,'E R A L   Q U A D R I L A T E R A L   E L E M E N T S ',6X\r\n     2,'( Q U A D 4 )' )\r\n  970 FORMAT ( 4X, 'S T R A I N S / C U R V A T U R E S   I N   G E N '\r\n     1,'E R A L   T R I A N G U L A R   E L E M E N T S ',6X\r\n     2,'( T R I A 3 )' )\r\nCWKBNE NCL93012 3/94\r\nCWKBNB SPR94001 7/94\r\n  971 FORMAT (' SUBCASE',5X,'STRESS',15X,'RADIAL',16X\r\n     1,       'CIRCUMFERENTIAL',16X,'AXIAL',21X,'SHEAR')                    \r\n  972 FORMAT (5X,'NO ',6X,'POINT',17X,'(X)',21X,'(THETA)',21X,'(Z)',23X,\r\n     1       '(ZX)')\r\n  973 FORMAT (' SUBCASE   CORNER',18X,'RADIAL',26X,'CIRCUMFERENTIAL',\r\n     1       26X,'AXIAL')\r\n  974 FORMAT ('     NO     POINT',20X,'(X)',31X,'(THETA)',31X,'(Z)')\r\nCWKBNE SPR94001 7/94\r\n      END   \r\n"
  },
  {
    "path": "mis/ofpcc1.f",
    "content": "      SUBROUTINE OFPCC1 (IX, L1, L2, L3, L4, L5, IPOINT)\r\nC*****\r\nC     SETS HEADER LINE FORMATS FOR COMPLEX ELEMENT STRESSES IN\r\nC     MATERIAL COORDINATE SYSTEM  --  SORT 1 OUTPUT\r\nC*****\r\n      DIMENSION IDATA(48)\r\nC\r\n      DATA IDATA/3951,104, 139, 125, 0, 432, 3977,104, 139, 126, 0, 432,\r\n     *           3951,104, 140, 125, 0, 432, 3977,104, 140, 126, 0, 432,\r\n     *           3951,104, 135, 125, 0, 432, 3977,104, 135, 126, 0, 432,\r\n     *           3951,104, 134, 125, 0, 432, 3977,104, 134, 126, 0, 432/\r\nC\r\n      IX = IDATA(IPOINT  )\r\n      L1 = IDATA(IPOINT+1)\r\n      L2 = IDATA(IPOINT+2)\r\n      L3 = IDATA(IPOINT+3)\r\n      L4 = IDATA(IPOINT+4)\r\n      L5 = IDATA(IPOINT+5)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpcc2.f",
    "content": "      SUBROUTINE OFPCC2 (IX, L1, L2, L3, L4, L5, IPOINT)\r\nC*****\r\nC     SETS HEADER LINE FORMATS FOR COMPLEX ELEMENT STRESSES IN\r\nC     MATERIAL COORDINATE SYSTEM  --  SORT 2 OUTPUT\r\nC*****\r\n      DIMENSION IDATA(48)\r\nC\r\n      DATA IDATA/4003,108, 139, 125, 0, 433, 4031,108, 139, 126, 0, 433,\r\n     *           4003,108, 140, 125, 0, 433, 4031,108, 140, 126, 0, 433,\r\n     *           4003,108, 135, 125, 0, 433, 4031,108, 135, 126, 0, 433,\r\n     *           4003,108, 134, 125, 0, 433, 4031,108, 134, 126, 0, 433/\r\nC\r\n      IX = IDATA(IPOINT  )\r\n      L1 = IDATA(IPOINT+1)\r\n      L2 = IDATA(IPOINT+2)\r\n      L3 = IDATA(IPOINT+3)\r\n      L4 = IDATA(IPOINT+4)\r\n      L5 = IDATA(IPOINT+5)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpcf1.f",
    "content": "      SUBROUTINE OFPCF1(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR COMPLEX FORCES SORT1\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB6/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpcf2.f",
    "content": "      SUBROUTINE OFPCF2(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR COMPLEX FORCES SORT2\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB8/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpcs1.f",
    "content": "      SUBROUTINE OFPCS1(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR COMPLEX STRESSES SORT1\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB2/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpcs2.f",
    "content": "      SUBROUTINE OFPCS2(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR COMPLEX STRESSES SORT2\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB4/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpgpw.f",
    "content": "      SUBROUTINE OFPGPW (*,FILE,OUT,FROM)\r\nC\r\nC     PRINT GRID POINT WEIGHT GENERATORN TABLE\r\nC     (SOURCE PROGRAM ORIGINALLY CODED IN OFP)\r\nC\r\n      INTEGER          FILE,FLAG,FROM,OF(5)\r\n      DOUBLE PRECISION OUT(1)\r\n      COMMON /SYSTEM/  IBUF,L,DUMMY(10),LINE\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      EQUIVALENCE      (L1,OF(1),CORE(1)), (L2,OF(2)), (L3,OF(3)),\r\n     1                 (L4,OF(4)), (L5,OF(5))\r\nC\r\nC     FOR GRIDPOINT WEIGHT OUTPUT ONLY ONE DATA VECTOR OF 78 WORDS\r\nC     IS EXPECTED AND IT IS THUS READ AND OUTPUT EXPLICITLY\r\nC     (CHANGED TO D.P. BY G.CHAN/UNISYS, AND THEREFORE 156 WORDS.\r\nC     THIS RECORD IS SENT OVER BY GPWG1B, WHICH IS NOW A D.P. ROUTINE)\r\nC\r\n      FROM = 345\r\n      CALL READ (*2020,*60,FILE,OUT(1),90,0,FLAG)\r\n      L1 = 0\r\n      L2 = 0\r\n      L3 = 202\r\n      L4 = 0\r\n      L5 = 0\r\n      CALL OFP1\r\n      LINE = LINE + 44\r\n      WRITE  (L,350) (OUT(I),I=1,45)\r\n  350 FORMAT (37X,\r\n     1       'MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM',\r\n     2       /16X,3H***,93X,3H***, /6(16X,1H*,1P,6D16.8,2H *,/),16X,\r\n     3       3H***,93X,3H***, /40X,\r\n     4       51HS - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION,\r\n     5       /2(40X,3H***,5X), /3(40X,1H*,1P,3D16.8,2H *,/),2(40X,3H***,\r\n     4       5X),  /25X,9HDIRECTION, /20X,20HMASS AXIS SYSTEM (S),7X,\r\n     5       4HMASS,17X,6HX-C.G.,11X,6HY-C.G.,11X,6HZ-C.G.)\r\n      FROM = 355\r\n      CALL READ (*2020,*60,FILE,OUT(1),66,1,FLAG)\r\n      WRITE  (L,360) (OUT(I),I=1,12)\r\n  360 FORMAT (28X,1HX,1P,D27.9,1P,D21.9,1P,2D17.9,/\r\n     1        28X,1HY,1P,D27.9,1P,D21.9,1P,2D17.9,/\r\n     2        28X,1HZ,1P,D27.9,1P,D21.9,1P,2D17.9)\r\n      WRITE  (L,370) (OUT(I),I=13,33)\r\n  370 FORMAT (/49X,33HI(S) - INERTIAS RELATIVE TO C.G. , /2(38X,3H***,\r\n     1       11X), /3(38X,1H*,1P,3D17.9,3H  *,/),2(38X,3H***,11X), /54X,\r\n     2       25HI(Q) - PRINCIPAL INERTIAS, /2(38X,3H***,11X), /38X,1H*,\r\n     3       1P,D17.9,36X,1H*, /38X,1H*,1P,D34.9,19X,1H*, /38X,1H*,1P,\r\n     4       D51.9,3H  *, /2(38X,3H***,11X), /44X,\r\n     5       44HQ - TRANSFORMATION MATRIX - I(Q) = QT*I(S)*Q, /2(38X,\r\n     6       3H***,11X),/3(38X,1H*,1P,3D17.9,3H  *,/),2(38X,3H***,11X))\r\n  60  RETURN\r\nC\r\n 2020 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/ofpmis.f",
    "content": "      SUBROUTINE OFPMIS(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR ALL NON-STRESS AND NON-FORCE\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB9/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofppnt.f",
    "content": "      SUBROUTINE OFPPNT (OUT,NWDS,FMT)\r\nC\r\nCWKBD LOGICAL         DEBUG\r\nCWKBR INTEGER         OUT(NWDS), FMT(300)\r\n      INTEGER         OUT(NWDS)\r\n      CHARACTER*1     FMT(1200)\r\nCWKBI\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /SYSTEM/ SYSBUF,    L\r\nCWKBD DATA    DEBUG / .FALSE. /\r\nC\r\nCWKBD IF (DEBUG) WRITE (L,10) (FMT(K),K=1,32)\r\n 10   FORMAT (' FMT=',32A4)\r\nCWKBR 5/95     IF ( MACHX.EQ.2 .OR. MACHX.EQ.5  )  \r\n      IF ( MACHX.EQ.2 .OR. MACHX.EQ.5 .OR. MACHX .EQ. 21  )  \r\n     *     WRITE (L,FMT,IOSTAT=IOSXX) (OUT(K),K=1,NWDS)\r\nCWKBR 5/95      IF ( MACHX.NE.2 .AND. MACHX.NE.5 )  \r\n      IF ( MACHX.NE.2 .AND. MACHX.NE.5 .AND. MACHX .NE. 21 )  \r\n     *     CALL FORWRT (FMT, OUT, NWDS)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofppun.f",
    "content": "      SUBROUTINE OFPPUN (IBUF,BUF,NWDS,IOPT,IDD,PNCHED)\r\nC\r\nC     MAIN OFP PUNCH ROUTINE FOR PUNCHING OF DATA LINES ONLY\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      LOGICAL         TEMPER,PNCHED\r\n      INTEGER         IBUF(NWDS),VECTOR,ID(50),OF(56)\r\n      REAL            BUF(NWDS),RID(50)\r\n      COMMON /SYSTEM/ SYSBUF,L,DUM53(53),ITHERM,DUM34(34),LPCH\r\n      COMMON /OUTPUT/ HD(96)\r\nC     COMMON /ZZOFPX/ L1,L2,L3,L4,L5,ID(50)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /BLANK / ICARD\r\n      COMMON /OFPCOM/ TEMPER, M\r\n      COMMON /GPTA1 / NELM,LAST,INCR,IE(25,1)\r\n      EQUIVALENCE     (RID(1),ID(1),OF(6)), (L1,OF(1),CORE(1)),\r\n     1                (L2,OF(2)), (L3,OF(3)), (L4,OF(4)), (L5,OF(5))\r\n      DATA    VECTOR, IDTEMP / 1, 0 /\r\nC\r\nC\r\n      IF (.NOT. PNCHED) GO TO 700\r\n   20 IF (NWDS .LT.  0) GO TO 1710\r\nC\r\nC     FIRST CARD OUT\r\nC\r\n      ICARD = ICARD + 1\r\n      IF (IOPT .EQ. VECTOR) GO TO 200\r\nC\r\nC     GENERAL 1-ST CARD (FIRST WORD OF BUF ASSUMED INTEGER)\r\nC\r\n      N = MIN0(4,NWDS)\r\n      IF (IDD) 30,90,40\r\n   30 IF (IDD .EQ. -1) GO TO 90\r\n   40 GO TO (50,60,70,80), N\r\n   50 WRITE (LPCH,440,ERR=180) BUF(1),ICARD\r\n      GO TO 180\r\n   60 WRITE (LPCH,450,ERR=180) BUF(1),BUF(2),ICARD\r\n      GO TO 180\r\n   70 WRITE (LPCH,460,ERR=180) BUF(1),BUF(2),BUF(3),ICARD\r\n      GO TO 180\r\n   80 WRITE (LPCH,470,ERR=180) BUF(1),BUF(2),BUF(3),BUF(4),ICARD\r\n      GO TO 180\r\n   90 GO TO (100,110,120,130), N\r\n  100 WRITE (LPCH,400) IBUF(1),ICARD\r\n      GO TO 180\r\n  110 WRITE (LPCH,410,ERR=180) IBUF(1),BUF(2),ICARD\r\n      GO TO 180\r\n  120 WRITE (LPCH,420,ERR=180) IBUF(1),BUF(2),BUF(3),ICARD\r\n      GO TO 180\r\nC\r\nC     CHECK FOR THERMAL FORCES FOR ISOPARAMETRICS\r\nC\r\n  130 IF (ITHERM.EQ.0 .OR. M.NE.4) GO TO 150\r\n      IF (ID(3).LT.65 .OR. ID(3).GT.67) GO TO 150\r\n      WRITE  (LPCH,140) IBUF(1),BUF(2),IBUF(3),BUF(4),ICARD\r\n  140 FORMAT (I10,8X,A4,14X,I10,8X,1P,E18.6,I8)\r\n      GO TO 180\r\nC\r\nC     CHECK FOR INTEGER IN SECOND ARGUMENT ALSO.\r\nC\r\n  150 IF (M .EQ. 19) GO TO 170\r\n      IF (NUMTYP(BUF(2)) .LE. 1) GO TO 160\r\n      WRITE (LPCH,430,ERR=180) IBUF(1),BUF(2),BUF(3),BUF(4),ICARD\r\n      GO TO 180\r\n  160 WRITE (LPCH,500,ERR=180) IBUF(1),IBUF(2),BUF(3),BUF(4),ICARD\r\n      GO TO 180\r\n  170 WRITE (LPCH,510) IBUF(1),IBUF(2),BUF(3),BUF(4),ICARD\r\n      GO TO 180\r\n  180 NWORD = 4\r\n      GO TO 230\r\nC\r\nC     VECTOR 1-ST CARD (FIRST WORD INTEGER, SECOND WORD BCD)\r\nC\r\n  200 IF (TEMPER) GO TO 280\r\n      IF (IDD.NE.0 .AND. IDD.NE.-1) GO TO 210\r\n      WRITE (LPCH,520,ERR=220) IBUF(1),BUF(2),BUF(3),BUF(4),BUF(5),ICARD\r\n      GO TO 220\r\n  210 WRITE (LPCH,530,ERR=220)  BUF(1),BUF(2),BUF(3),BUF(4),BUF(5),ICARD\r\n  220 NWORD = 5\r\nC\r\nC     CONTINUATION CARDS IF ANY.\r\nC\r\n  230 IF (NWORD .GE. NWDS) GO TO 1710\r\n      ICARD = ICARD + 1\r\n      NWORD = NWORD + 3\r\n      IF (NWORD .LE. NWDS) GO TO 250\r\n      NWORD = NWORD - 1\r\n      IF (NWORD .EQ. NWDS) GO TO 240\r\n      NWORD = NWORD - 1\r\nC\r\nC     1 WORD OUT\r\nC\r\n      WRITE (LPCH,610,ERR=1710) BUF(NWORD),ICARD\r\n      GO TO 1710\r\nC\r\nC     2 WORDS OUT\r\nC\r\n  240 WRITE (LPCH,600,ERR=1710) BUF(NWORD-1),BUF(NWORD),ICARD\r\n      GO TO 1710\r\nC\r\nC     3 WORDS OUT\r\nC\r\n  250 IF (IBUF(NWORD-1) .EQ. VECTOR) GO TO 260\r\n      IF (IBUF(NWORD  ) .EQ. VECTOR) GO TO 270\r\n      WRITE (LPCH,590,ERR=230) BUF(NWORD-2),BUF(NWORD-1),BUF(NWORD),\r\n     1                         ICARD\r\n      GO TO 230\r\n  260 WRITE (LPCH,620) BUF(NWORD-2),BUF(NWORD),ICARD\r\n      GO TO 230\r\n  270 WRITE (LPCH,600) BUF(NWORD-2),BUF(NWORD-1),ICARD\r\n      GO TO 230\r\nC\r\nC     SPECIAL PUNCH ONLY WHEN TEMPER FLAG IS ON IN A -HEAT- FORMULATION.\r\nC\r\n  280 IC1 = IBUF(1)\r\n      IF (IDD.EQ.0 .OR. IDD.EQ.-1) GO TO 290\r\n      IDTEMP = IDTEMP + 1\r\n      IC1 = IDD\r\n  290 CONTINUE\r\n      WRITE  (LPCH,300) IDTEMP,IC1,BUF(3),ICARD\r\n  300 FORMAT (8HTEMP*    ,I16,I16,1P,E16.6,16X,I8)\r\n      GO TO 1710\r\nC\r\n  400 FORMAT (I10,62X,I8)\r\n  410 FORMAT (I10,8X,1P,E18.6,36X,I8)\r\n  420 FORMAT (I10,8X,2(1P,E18.6),18X,I8)\r\n  430 FORMAT (I10,8X,3(1P,E18.6),I8)\r\n  440 FORMAT (1P,E18.6,54X,I8)\r\n  450 FORMAT (2(1P,E18.6),36X,I8)\r\n  460 FORMAT (3(1P,E18.6),18X,I8)\r\n  470 FORMAT (4(1P,E18.6),I8)\r\n  500 FORMAT (I10,8X,I10,8X,2(1P,E18.6),I8)\r\n  510 FORMAT (I10,8X,I10,8X,2A4,28X,I8)\r\n  520 FORMAT (I10,7X,A1,3(1P,E18.6),I8)\r\n  530 FORMAT (1P,E16.6,1X,A1,3(1P,E18.6),I8)\r\n  590 FORMAT (6H-CONT-,12X,3(1P,E18.6),I8)\r\n  600 FORMAT (6H-CONT-,12X,2(1P,E18.6),18X,I8)\r\n  610 FORMAT (6H-CONT-,12X,1P,E18.6,36X,I8)\r\n  620 FORMAT (6H-CONT-,12X,1P,E18.6,18X,1P,E18.6,I8)\r\nC\r\nC\r\nC     PUNCH HEADING CARDS\r\nC\r\nC\r\nC     TITLE,SUBTITLE,AND LABEL\r\nC\r\n  700 DO 740 I = 1,3\r\n      ICARD = ICARD + 1\r\n      GO TO (710,720,730), I\r\n  710 WRITE (LPCH,750) (HD(J),J= 1,15),ICARD\r\n      GO TO 740\r\n  720 WRITE (LPCH,760) (HD(J),J=33,47),ICARD\r\n      GO TO 740\r\n  730 WRITE (LPCH,770) (HD(J),J=65,79),ICARD\r\n  740 CONTINUE\r\nC\r\n  750 FORMAT (10H$TITLE   =,15A4,2X,I8)\r\n  760 FORMAT (10H$SUBTITLE=,15A4,2X,I8)\r\n  770 FORMAT (10H$LABEL   =,15A4,2X,I8)\r\nC\r\n      KTYPE = ID(2)/1000\r\n      M = ID(2) - (KTYPE)*1000\r\n      IF (M.LT.1 .OR. M.GT.19) GO TO 1200\r\n      ICARD = ICARD + 1\r\n      GO TO (780,790,800 ,810,900,1170,910,1170,1170,920,\r\n     1       930,940,1170,950,960,970 ,980,990 ,1000), M\r\n  780 WRITE (LPCH,1010) ICARD\r\n      GO TO 1200\r\n  790 WRITE (LPCH,1020) ICARD\r\n      GO TO 1200\r\n  800 WRITE (LPCH,1030) ICARD\r\n      GO TO 1200\r\n  810 WRITE (LPCH,1040) ICARD\r\n      GO TO 1200\r\nC\r\nC     PUNCH ELEMENT STRESS OR GRID POINT STRESS HEADING LINE\r\nC\r\n  900 IF (L2 .NE. 378) WRITE(LPCH,1050) ICARD\r\n      IF (L2 .EQ. 378) WRITE(LPCH,1060) ICARD\r\n      GO TO 1200\r\n  910 WRITE (LPCH,1070) ICARD\r\n      GO TO 1200\r\n  920 WRITE (LPCH,1080) ICARD\r\n      GO TO 1200\r\n  930 WRITE (LPCH,1090) ICARD\r\n      GO TO 1200\r\n  940 WRITE (LPCH,1100) ICARD\r\n      GO TO 1200\r\n  950 WRITE (LPCH,1110) ICARD\r\n      GO TO 1200\r\n  960 WRITE (LPCH,1120) ICARD\r\n      GO TO 1200\r\n  970 WRITE (LPCH,1130) ICARD\r\n      GO TO 1200\r\n  980 WRITE (LPCH,1140) ICARD\r\n      GO TO 1200\r\n  990 WRITE (LPCH,1150) ICARD\r\n      GO TO 1200\r\n 1000 WRITE (LPCH,1160) ICARD\r\n      GO TO 1200\r\nC\r\n 1010 FORMAT (14H$DISPLACEMENTS,58X,I8)\r\n 1020 FORMAT (7H$OLOADS,65X,I8)\r\n 1030 FORMAT (5H$SPCF,67X,I8)\r\n 1040 FORMAT (15H$ELEMENT FORCES,57X,I8)\r\n 1050 FORMAT (17H$ELEMENT STRESSES,55X,I8)\r\n 1060 FORMAT (24H$STRESSES AT GRID POINTS,48X,I8)\r\n 1070 FORMAT (12H$EIGENVECTOR,60X,I8)\r\n 1080 FORMAT (9H$VELOCITY,63X,I8)\r\n 1090 FORMAT (13H$ACCELERATION,59X,I8)\r\n 1100 FORMAT (18H$NON-LINEAR-FORCES,54X,I8)\r\n 1110 FORMAT (27H$EIGENVECTOR (SOLUTION SET),45X,I8)\r\n 1120 FORMAT (29H$DISPLACEMENTS (SOLUTION SET),43X,I8)\r\n 1130 FORMAT (24H$VELOCITY (SOLUTION SET),48X,I8)\r\n 1140 FORMAT (28H$ACCELERATION (SOLUTION SET),43X,I8)\r\n 1150 FORMAT (23HELEMENT STRAIN ENERGIES ,49X,I8)\r\n 1160 FORMAT (24HGRID POINT FORCE BALANCE ,48X,I8)\r\n 1170 ICARD = ICARD - 1\r\nC\r\nC     REAL, REAL/IMAGINARY, MAGNITUDE/PHASE\r\nC\r\n 1200 ICARD = ICARD + 1\r\n      IF (KTYPE.LT.1 .OR. KTYPE.EQ.2) GO TO 1210\r\n      IF (ID(9).EQ. 3) GO TO 1230\r\n      GO TO 1220\r\n 1210 WRITE (LPCH,1240) ICARD\r\n      GO TO 1300\r\n 1220 WRITE (LPCH,1250) ICARD\r\n      GO TO 1300\r\nC\r\n 1230 WRITE  (LPCH,1260) ICARD\r\n 1240 FORMAT (12H$REAL OUTPUT,60X,I8)\r\n 1250 FORMAT (22H$REAL-IMAGINARY OUTPUT, 50X,I8)\r\n 1260 FORMAT (23H$MAGNITUDE-PHASE OUTPUT,49X,I8)\r\nC\r\nC     SUBCASE NUMBER FOR SORT1 OUTPUT, OR\r\nC     SUBCASE NUMBER FOR SORT2, FREQUENCY AND TRANSIENT RESPONSE ONLY\r\nC\r\n 1300 IF (KTYPE .LE. 1) GO TO 1310\r\n      IAPP = ID(1)/10\r\n      IF (IAPP.NE.5 .AND. IAPP.NE.6) GO TO 1400\r\n 1310 ICARD = ICARD + 1\r\n      WRITE  (LPCH,1320) ID(4),ICARD\r\n 1320 FORMAT (13H$SUBCASE ID =,I12,47X,I8)\r\nC\r\nC     IF ELEMENT STRESS OR FORCE PUNCH ELEMENT TYPE NUMBER\r\nC\r\n 1400 IF (M.NE.4 .AND. M.NE.5) GO TO 1500\r\n      ICARD = ICARD + 1\r\n      ID3   = ID(3)\r\n      IF (L2 .NE. 378) WRITE (LPCH,1410) ID3,IE(1,ID3),IE(2,ID3),ICARD\r\n      IF (L2 .EQ. 378) WRITE (LPCH,1420) ICARD\r\n 1410 FORMAT (15H$ELEMENT TYPE =,I12,3X,1H(,2A4,1H),32X,I8)\r\n 1420 FORMAT (38H$PUNCHED IN MATERIAL COORDINATE SYSTEM,34X,I8)\r\nC\r\nC     PUNCH EIGENVALUE, FREQUENCY, POINT OR ELEMENT ID, OR TIME\r\nC\r\n 1500 IAPP = ID(1)/10\r\n      IF (IAPP.LT.1 .OR. IAPP.GT.10) GO TO 1700\r\n      GO TO (1590,1510,1590,1590,1550,1570,1590,1510,1510,1590), IAPP\r\nC\r\nC     PUNCH EIGENVALUE\r\nC\r\n 1510 ICARD = ICARD + 1\r\n      IF (KTYPE .EQ. 1) GO TO 1530\r\n      WRITE  (LPCH,1520,ERR=1700) RID(6),ID(5),ICARD\r\n 1520 FORMAT (13H$EIGENVALUE =,E15.7,2X,6HMODE =,I6,30X,I8)\r\n      GO TO 1700\r\n 1530 WRITE  (LPCH,1540,ERR=1700) RID(6),RID(7),ID(5),ICARD\r\n 1540 FORMAT (15H$EIGENVALUE = (,E15.7,1H,,E15.7,8H) MODE =,I6,12X,I8)\r\n      GO TO 1700\r\nC\r\nC     FREQUENCY OR TIME, POINT OR ELEMENT ID\r\nC\r\n 1550 IF (KTYPE .GT. 1) GO TO 1590\r\n      ICARD = ICARD + 1\r\n      WRITE  (LPCH,1560,ERR=1700) RID(5),ICARD\r\n 1560 FORMAT (12H$FREQUENCY =,E16.7,44X,I8)\r\n      GO TO 1700\r\n 1570 IF (KTYPE .GT. 1) GO TO 1590\r\n      ICARD = ICARD + 1\r\n      WRITE  (LPCH,1580,ERR=1700) RID(5),ICARD\r\n 1580 FORMAT (7H$TIME =,E16.7,49X,I8)\r\n      GO TO 1700\r\n 1590 IF (KTYPE .LE. 1) GO TO 1700\r\n      ICARD = ICARD + 1\r\n      IF (M.EQ.4 .OR. M.EQ.5) GO TO 1610\r\n      WRITE  (LPCH,1600) ID(5),ICARD\r\n 1600 FORMAT (11H$POINT ID =,I12,49X,I8)\r\n      GO TO 1700\r\n 1610 WRITE  (LPCH,1620) ID(5),ICARD\r\n 1620 FORMAT (13H$ELEMENT ID =,I10,49X,I8)\r\nC\r\nC     CARD HEADING COMPLETE\r\nC\r\n 1700 PNCHED = .TRUE.\r\n      IF (.NOT.TEMPER) GO TO 20\r\n      IDTEMP = IDTEMP + 1\r\n      IF (IDD .GT. 0) IDTEMP = 0\r\n      GO TO 20\r\nC\r\n 1710 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofprf1.f",
    "content": "      SUBROUTINE OFPRF1(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL FORCES SORT1\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB5/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofprf2.f",
    "content": "      SUBROUTINE OFPRF2(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL FORCES SORT2\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB7/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofprs1.f",
    "content": "      SUBROUTINE OFPRS1(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL STREESES SORT1\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB1/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofprs2.f",
    "content": "      SUBROUTINE OFPRS2(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL STREESES SORT2\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB3/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpsn1.f",
    "content": "      SUBROUTINE OFPSN1 (IX, L1, L2, L3, L4, L5, POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL STRAINS SORT1\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFSN1/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofpss1.f",
    "content": "      SUBROUTINE OFPSS1 (IX, L1, L2, L3, L4, L5, POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL STRESSES SORT1 (IN MATERIAL\r\nC  COORDINATES)\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFSS1/ C(10)\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofrf2s.f",
    "content": "      SUBROUTINE OFRF2S(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL FORCES SORT2 - STATICS\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB7S/ C(10)\r\nC*****\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofrs2s.f",
    "content": "      SUBROUTINE OFRS2S(IX,L1,L2,L3,L4,L5,POINT)\r\nC*****\r\nC  SETS HEADER LINE FORMATS FOR REAL STRESSES SORT2 - STATICS\r\nC*****\r\n      INTEGER C, POINT\r\n      COMMON/OFPB3S/ C(10)\r\nC*****\r\n      IX = C(POINT)\r\n      L1 = C(POINT+1)\r\n      L2 = C(POINT+2)\r\n      L3 = C(POINT+3)\r\n      L4 = C(POINT+4)\r\n      L5 = C(POINT+5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ofsplt.f",
    "content": "      SUBROUTINE OFSPLT (*,ESYM,ELID,G,OFFSET,X,DEFORM,GPLST)\r\nC\r\nC     CALLED ONLY BY LINEL TO PRCESS ELEMENT OFFSET PLOT\r\nC     THIS ROUTINE DRAW THE CBAR, CTRIA3, AND CQUAD4, WITH OFFSET IN\r\nC     PLACE.\r\nC\r\nC     INPUT:\r\nC         ESYM   = BCD, SHOULD BE 'BR', 'T3', OR 'Q4'                BCD\r\nC         ELID   = ELEMENT ID                                         I\r\nC         G      = SIL LIST                                           I\r\nC         OFFSET = 6 COORDINATES (GLOBAL) FOR CBAR,                   I\r\nC                = 1 OFFSET, NORMAL TO PLATE, FOR CTRIA3 OR CQUAD4\r\nC         X      = GRID POINT COORDINATE, ALREADY CONVERTED TO SCREEN\r\nC                  (X-Y) COORDINATES                                  R\r\nC         DEFORM = 0, FOR UNDEFORM PLOT,  .NE.0 FOR DEFORMED OR BOTH  I\r\nC                  THIS ROUTINE WILL NOT PROCESS DEFORMED-OFFSET PLOT\r\nC         OFFSCL = OFFSET MULTIPLICATION FACTOR                       I\r\nC         PEDGE  = OFFSET PLOT FLAG                                   I\r\nC                = 3, PLOT OFFSET ELEMENTS ONLY, SKIP OTHER ELEMNETS\r\nC            NOT = 3, PLOT OFFSET ELEMENTS, RETURN TO PLOT OTHERS\r\nC         PLABEL = FLAG FOR ELEM ID LABEL                             I\r\nC         PEN    = PEN SELECTION, 1-31.  32-62 FOR COLOR FILL         I\r\nC         OFFLAG = HEADING CONTROL                                    I\r\nC         ELSET  = ECT DATA BLOCK. THIS DATA BLOCK WAS MODIFIED IN    I\r\nC                  COMECT TO INCLUDE OFFSET DATA FOR BAR,TRIA3,QUAD4\r\nC         GPLST  = A SUBSET OF GRID POINTS PERTAININGS TO THOSE GRID  I\r\nC                  POINTS USED ONLY IN THIS PLOT\r\nC     LOCAL:\r\nC         SCALE  = REAL NUMBER OF OFFSCL\r\nC         OFF    = OFFSET VALUES FROM ELEMENT DATA IN ELSET DATA BLOCK\r\nC         PN1    = PEN COLOR FOR OFFSET LEG.\r\nC                  IF PEN.GT.1, PN1 = PEN-1. IF PEN.LE.1, PN1 = PEN+1\r\nC         NL     = NO. OF LINES TO BE DRAWN PER ELEMENT\r\nC         DELX   = SMALL OFFSET FROM MIDDLE OF LINE FOR ELEM ID PRINTING\r\nC         0.707  = AN ABITRARY FACTOR TO PUT OFFSET 45 DEGREE OFF GRID\r\nC                  POINT\r\nC\r\nC     TWO METHODS\r\nC     (1) PEDGE .NE. 3\r\nC         AN OFFSET PLOT WITHOUT CONSIDERING ITS TRUE DIRECTION, OFFSET\r\nC         VALUE(S) MAGNIFIED 20 TIMES\r\nC     (2) PEDGE .EQ. 3\r\nC         PLOT WITH TRUE OFFSET DIRECTIONS, AND PLOT, WITH COLOR OPTION,\r\nC         GRID(A)-OFFSET(A)-OFFSET(B)-GRID(B)\r\nC         OFFSET CAN BE SCALE UP BY USER VIA PLOT OFFSET COMMAND,\r\nC         DEFAULT IS NO SCALE UP. (NEW 93)\r\nC\r\nC     A SYMBOL * IS ADDED AT THE TIP OF EACH OFFSET\r\nC     CURRENTLY THE SYMBOLS KBAR,KT3 AND KQ4 ARE NOT USED\r\nC\r\nC     CURRENTLY ONLY CBAR (OFFSET=6), CTRIA3 AND CQUAD4 (OFFSET=1 BOTH)\r\nC     HAVE OFFSET CAPABILITY\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   10/1990\r\nC\r\nC     COMMENTS FORM G.C.  3/93\r\nC     THE LOGIC IN COMPUTING THE TRUE OFFSET INVOLVING COORDINATE\r\nC     TRANSFORMATION AT EACH POINT POINT SEEMS SHAKY. MAKE SURE THAT\r\nC     AXIS AND SIGN DATA (FROM PROCES) ARE TRUELY AVAILBLE. ARE THE\r\nC     GIRD POINT XYZ COORDINATES AT HAND IN GLOBAL ALREADY?\r\nC     THE OFFSET PLOT IS QUESTIONABLE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         G(3),OFFHDG(5),SYM(2),GPLST(1)\r\n      REAL            X(3,1),OFF(3,2),V(3),CSTM,SIGN,X1,X2,X3,Y1,Y2,Y3,\r\n     1                XMAX,YMAX,YMAX1,CNTX,CNTY,CNTY4,SCALE,DELX,\r\n     2                OFV(3,2)\r\n      COMMON /BLANK / SKP1(12),ELSET\r\n      COMMON /SYSTEM/ SKP2,NOUT\r\n      COMMON /RSTXXX/ CSTM(3,3),SKP3(12),AXIS(3),SIGN(3)\r\n      COMMON /XXPARM/ SKP4(235),OFFSCL\r\n      COMMON /DRWDAT/ SKP5,PLABEL,SKP6,PEN,SKP7(11),PEDGE,OFFLAG\r\n      COMMON /PLTDAT/ SKP8(6),XMAX,YMAX,SKP9(15),CNTX,CNTY\r\n      DATA    KBAR  , KT3,KQ4 / 2HBR,2HT3,2HQ4 /, SYM / 2,0 /\r\n      DATA    OFFHDG/ 4H OFF,4HSET ,4HSCAL,4HE = ,4H   X    /\r\nC\r\n      CALL FREAD (ELSET,OFF,OFFSET,0)\r\nC\r\n      IF (DEFORM.NE.0 .OR. OFFSCL.LT.0) GO TO 200\r\n      IF (PEDGE.NE.3 .OR. OFFLAG.EQ.1) GO TO 20\r\n      OFFLAG= 1\r\n      CNTY4 = 4.*CNTY\r\n      YMAX1 = YMAX - CNTY\r\n      SCALE = 1.0\r\n      IF (PEDGE .NE. 3) SCALE = 20.0\r\n      IF (PEDGE .EQ. 3) SCALE = FLOAT(OFFSCL)\r\n      MPEN  = MOD(PEN,31)\r\n      IF (MPEN .GT. 1) PN1  = MPEN - 1\r\n      IF (MPEN .LE. 1) PN1  = MPEN + 1\r\nC\r\nC     ADD OFFSET HEADER LINE\r\nC\r\n      CALL PRINT  (30.*CNTX,YMAX,1,OFFHDG,5,0)\r\n      X1 = 48.\r\n      IF (OFFSCL .GE. 100) X1 = 47.\r\n      CALL TYPINT (X1*CNTX,YMAX,1,OFFSCL,1,0)\r\nC\r\n   20 X1 = 0.0\r\n      DO 30 I = 1,OFFSET\r\n      X1 = X1 + ABS(OFF(I,1))\r\n      OFV(I,1) = OFF(I,1)\r\n   30 CONTINUE\r\n      IF (ABS(X1) .LT. 1.0E-7) GO TO 200\r\nC\r\n      NL = 1\r\n      IF (ESYM .EQ. KT3) NL = 3\r\n      IF (ESYM .EQ. KQ4) NL = 4\r\n      IF (PEDGE  .NE. 3) GO TO 150\r\nC\r\n      J    = ALOG10(FLOAT(ELID)) + 1.0\r\n      DELX = (J+.03)*CNTX\r\nC\r\nC     COMPUTE THE TRUE OFFSET DIRECTION IF PEDGE = 3,\r\nC     OTHERWISE, JUST PLOT OFFSET AT 45 DEGREE\r\nC\r\n      IF (OFFSET .EQ. 1) GO TO 90\r\nC\r\nC     CBAR, OFFSET = 6\r\nC     CONVERT OFFSET FROM GLOBAL TO PLOT COORDINATES\r\nC\r\nC     AXIS AND SIGN DATA FROM SUBROUTINE PROCES\r\nC\r\n      DO 80 K = 1,2\r\n      DO 50 I = 1,3\r\n      J    = AXIS(I)\r\n      V(J) = SIGN(I)*OFV(J,K)\r\n   50 CONTINUE\r\n      DO 70 J = 1,3\r\n                                L = AXIS(J)\r\n      X1 = 0.0\r\n      DO 60 I = 1,3\r\n                                X1 = X1 + CSTM(L,I)*V(I)\r\n   60 CONTINUE\r\n      OFF(J,K) = X1*SCALE\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      GO TO 110\r\nC\r\nC     CTRIA3 AND CQUAD4, OFFSET = 1\r\nC     COMPUTE UNIT NORMAL TO THE PLATE BY CROSS PRODUCT, THEN\r\nC     THE MAGNITUDE OF OFFSET\r\nC\r\n   90 I = G(1)\r\n      J = G(2)\r\n      K = G(3)\r\n      I = GPLST(I)\r\n      J = GPLST(J)\r\n      K = GPLST(K)\r\n      V(1) = (X(2,J)-X(2,I))*(X(3,K)-X(3,I))\r\n     1     - (X(3,J)-X(3,I))*(X(2,K)-X(2,I))\r\n      V(2) = (X(3,J)-X(3,I))*(X(1,K)-X(1,I))\r\n     1     - (X(1,J)-X(1,I))*(X(3,K)-X(3,I))\r\n      V(3) = (X(1,J)-X(1,I))*(X(2,K)-X(2,I))\r\n     1     - (X(2,J)-X(2,I))*(X(1,K)-X(1,I))\r\n      X1   = 0.5*SQRT(V(1)*V(1) + V(2)*V(2) + V(3)*V(3))\r\n      V(2) = V(2)/X1\r\n      V(3) = V(3)/X1\r\n      OFF(2,1) = OFV(1,1)*V(2)*SCALE\r\n      OFF(3,1) = OFV(1,1)*V(3)*SCALE\r\n      OFF(2,2) = OFF(2,1)\r\n      OFF(3,2) = OFF(3,1)\r\nC\r\nC     DRAW THE ELEMENT LINES AND ELEMENT ID\r\nC     IF COLOR FILL IS REQUESTED, SET PEN TO ZERO ON THE LAST CLOSING-IN\r\nC     EDGE (2- OR 3-DIMESIONAL ELEMENTS ONLY)\r\nC\r\n  110 DO 130 L = 1,NL\r\n      I  = G(L  )\r\n      J  = G(L+1)\r\n      I  = GPLST(I)\r\n      J  = GPLST(J)\r\n      X1 = X(2,I)\r\n      Y1 = X(3,I)\r\n      X2 = X(2,I) + OFF(2,1)\r\n      Y2 = X(3,I) + OFF(3,1)\r\n      IF (X2 .LT.   0.1) X2 = 0.1\r\n      IF (X2 .GT.  XMAX) X2 = XMAX\r\n      IF (Y2 .LT. CNTY4) Y2 = CNTY4\r\n      IF (Y2 .GT. YMAX1) Y2 = YMAX1\r\n      CALL LINE (X1,Y1,X2,Y2,PN1,0)\r\n      CALL SYMBOL (X2,Y2,SYM,0)\r\n      X3 = X(2,J) + OFF(2,2)\r\n      Y3 = X(3,J) + OFF(3,2)\r\n      IF (X3 .LT.   0.1) X3 = 0.1\r\n      IF (X3 .GT.  XMAX) X3 = XMAX\r\n      IF (Y3 .LT. CNTY4) Y3 = CNTY4\r\n      IF (Y3 .GT. YMAX1) Y3 = YMAX1\r\n      IPEN = PEN\r\n      IF (PEN.GT.31 .AND. NL.GE.3 .AND. L.EQ.NL) IPEN = 0\r\n      CALL LINE (X2,Y2,X3,Y3,IPEN,0)\r\nC\r\n      IF (L .GT. 1) GO TO 130\r\n      IF (PLABEL.NE.3 .AND. PLABEL.NE.6) GO TO 120\r\n      IF (X2 .GE. X1) DELX = -DELX\r\n      X1 = 0.5*(X3 + X2) + DELX\r\n      Y1 = 0.5*(Y3 + Y2)\r\n      CALL TYPINT (X1,Y1,1,ELID,1,0)\r\n  120 IF (NL .GT. 1) GO TO 130\r\n      CALL SYMBOL (X3,Y3,SYM,0)\r\n      X2 = X(2,J)\r\n      Y2 = X(3,J)\r\n      CALL LINE (X3,Y3,X2,Y2,PEN,0)\r\n  130 CONTINUE\r\n      GO TO 210\r\nC\r\nC     PLOT OFFSET WITHOUT CONSIDERING ITS TRUE OFFSET DIRECTION IN\r\nC     GENERAL PLOT. (SEE 130 LOOP FOR ELEMENTS WITH COLOR FILL)\r\nC\r\n  150 IF (OFFSET .EQ. 1) GO TO 160\r\n      V(1) = OFF(1,1)*OFF(1,1) + OFF(2,1)*OFF(2,1) + OFF(3,1)*OFF(3,1)\r\n      V(2) = OFF(1,2)*OFF(1,2) + OFF(2,2)*OFF(2,2) + OFF(3,2)*OFF(3,2)\r\n      V(1) = 0.707*SQRT(V(1))\r\n      V(2) = 0.707*SQRT(V(2))\r\n      GO TO 170\r\nC\r\n  160 V(1) = 0.707*OFF(1,1)\r\n      V(2) = V(1)\r\nC\r\n  170       V(1) = V(1)*SCALE\r\n            V(2) = V(2)*SCALE\r\n            DO 180 L = 1,NL\r\n      I  = G(L  )\r\n      J  = G(L+1)\r\n      I  = GPLST(I)\r\n      J  = GPLST(J)\r\n      X1 = X(2,I) + V(1)\r\n      Y1 = X(3,I) + V(1)\r\n      X2 = X(2,J) + V(2)\r\n      Y2 = X(3,J) + V(2)\r\n      IPEN = PEN\r\n      IF (PEN.GT.31 .AND. NL.GE.3 .AND. L.EQ.NL) IPEN = 0\r\n      CALL LINE (X1,Y1,X2,Y2,IPEN,0)\r\n      CALL SYMBOL (X1,Y1,SYM,0)\r\n      IF (NL .EQ. 1) CALL SYMBOL (X2,Y2,SYM,0)\r\n  180 CONTINUE\r\n      GO TO 210\r\nC\r\n  200 IF (PEDGE.NE.3 .OR. OFFSCL.LT.0) RETURN\r\n  210 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/oldel1.f",
    "content": "      SUBROUTINE OLDEL1\r\nC\r\nC     ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE\r\nC     EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3\r\nC     ***************************************************************\r\nC\r\n      ENTRY AXIF2S\r\n      GO TO 10\r\n      ENTRY AXIF2D\r\n      GO TO 10\r\n      ENTRY AXIF3S\r\n      GO TO 10\r\n      ENTRY AXIF3D\r\n      GO TO 10\r\n      ENTRY AXIF4S\r\n      GO TO 10\r\n      ENTRY AXIF4D\r\n      GO TO 10\r\n      ENTRY CONES\r\n      GO TO 10\r\n      ENTRY CONED\r\n      GO TO 10\r\n      ENTRY ELBOWS\r\n      GO TO 10\r\n      ENTRY ELBOWD\r\n      GO TO 10\r\n      ENTRY FLMASS\r\n      GO TO 10\r\n      ENTRY FLMASD\r\n      GO TO 10\r\n      ENTRY FLUD2S\r\n      GO TO 10\r\n      ENTRY FLUD2D\r\n      GO TO 10\r\n      ENTRY FLUD3S\r\n      GO TO 10\r\n      ENTRY FLUD3D\r\n      GO TO 10\r\n      ENTRY FLUD4S\r\n      GO TO 10\r\n      ENTRY FLUD4D\r\nC\r\n 10   CALL EMGOLD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/oldel2.f",
    "content": "      SUBROUTINE OLDEL2\r\nC\r\nC     ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE\r\nC     EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3\r\nC     ***************************************************************\r\nC\r\n      ENTRY HEXA1S\r\n      GO TO 10\r\n      ENTRY HEXA1D\r\n      GO TO 10\r\n      ENTRY HEXA2S\r\n      GO TO 10\r\n      ENTRY HEXA2D\r\n      GO TO 10\r\n      ENTRY PLOTLS\r\n      GO TO 10\r\n      ENTRY PLOTLD\r\n      GO TO 10\r\n      ENTRY QDMEMS\r\n      GO TO 10\r\n      ENTRY QDMEMD\r\n      GO TO 10\r\n      ENTRY QDPLTS\r\n      GO TO 10\r\n      ENTRY QDPLTD\r\n      GO TO 10\r\n      ENTRY QUAD1S\r\n      GO TO 10\r\n      ENTRY QUAD1D\r\n      GO TO 10\r\n      ENTRY QUAD2S\r\n      GO TO 10\r\n      ENTRY QUAD2D\r\n      GO TO 10\r\n      ENTRY SLOT3S\r\n      GO TO 10\r\n      ENTRY SLOT3D\r\n      GO TO 10\r\n      ENTRY SLOT4S\r\n      GO TO 10\r\n      ENTRY SLOT4D\r\nC\r\n 10   CALL EMGOLD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/oldel3.f",
    "content": "      SUBROUTINE OLDEL3\r\nC\r\nC     ANY ELEMENT (NEW OR OLD) WHICH HAS NOT BEEN CONVERTED TO USE\r\nC     EMGPRO SHOULD HAVE AN ENTRY POINT IN OLDEL1, OLDEL2, OR OLDEL3\r\nC     ***************************************************************\r\nC\r\n      ENTRY TETRAS\r\n      GO TO 10\r\n      ENTRY TETRAD\r\n      GO TO 10\r\n      ENTRY TRAPRS\r\n      GO TO 10\r\n      ENTRY TRAPRD\r\n      GO TO 10\r\n      ENTRY TRIARS\r\n      GO TO 10\r\n      ENTRY TRIARD\r\n      GO TO 10\r\n      ENTRY TRIA1S\r\n      GO TO 10\r\n      ENTRY TRIA1D\r\n      GO TO 10\r\n      ENTRY TRIA2S\r\n      GO TO 10\r\n      ENTRY TRIA2D\r\n      GO TO 10\r\n      ENTRY TRPLTS\r\n      GO TO 10\r\n      ENTRY TRPLTD\r\n      GO TO 10\r\n      ENTRY WEDGES\r\n      GO TO 10\r\n      ENTRY WEDGED\r\nC\r\n 10   CALL EMGOLD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/olplot.f",
    "content": "      SUBROUTINE OLPLOT\r\nC\r\nC     DRIVER FOR USER SUPPLIED INTERACTIVE PLOTTER\r\nC\r\nC     NOTE - ALL FORTRAN STOPS MUST BE CHANGED TO RETURNS\r\nC     OTHERWISE THE FORTRAN STOPS WILL KILL THE INTERACTIVE SESSION.\r\nC\r\n      INTEGER PLT2\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA PLT2/13/\r\nC\r\n      WRITE (NOUT,10)\r\n   10 FORMAT ('    USER MUST SUPPLY SITE DEPENDENT PLOTTING PACKAGE',\r\n     1       /4X, 'IN SUBROUTINE OLPLOT FOR INTERACTIVE PLOTS')\r\nC\r\nC\r\n      REWIND PLT2\r\nC     CALL THE SITE DEPENDENT PLOTTING ROUTINES HERE.\r\nC     CALL NASPLOT\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/onetwo.f",
    "content": "      SUBROUTINE ONETWO(*,IX,X,DX,ITERMM)\r\nC*******\r\nC     PROGRAM TO SOLVE A MATRIX OF ORDER ONE OR TWO FOR DECOMP\r\nC*******\r\n      DOUBLE PRECISION DX(6),DET,MINDIA,DZ  ,DA\r\n      INTEGER SYSBUF,RDP,DUM\r\n      INTEGER TYPEL\r\n      INTEGER SCRFLG,JPOSL,BBAR,CBCNT,R,BBBAR1\r\n     1 ,BBBAR,SR2FL ,SR2FIL\r\n      INTEGER RD,WRT,REW,EOFNRW\r\n      DIMENSION SUB(2),X(1),IX(1)\r\nC\r\n      COMMON /SYSTEM/SYSBUF\r\n      COMMON /DCOMPX/IFILA(7),IFILL(7),IFILU(7),DUM(3),DET,POWER,\r\n     1 NX,MINDIA\r\n      COMMON /NAMES/ RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW ,RSP,RDP\r\n      COMMON /ZBLPKX/DZ(2),JJ\r\n      COMMON /PACKX/ITYPE1,ITYPE2,IY,JY,INCRY\r\n      COMMON /UNPAKX/ITYPEX,IXY,JXY,INCRX\r\nC\r\n      EQUIVALENCE (IFILA(2),NCOL),(IFILL(5),TYPEL),(SR2FIL,DUM(2))\r\nC\r\n      DATA SUB/4HONET,4HWO  /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IBUF1 = NX-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2-SYSBUF\r\n      IFILE = IFILU(1)\r\n      CALL CLOSE(DUM(2),REW)\r\n      IF(ITERMM.EQ.1)IFILE = DUM(2)\r\n      CALL GOPEN(IFILE,IX(IBUF3),1)\r\n      CALL GOPEN(IFILA,IX(IBUF1),0)\r\n      ITYPEX = RDP\r\n      ITYPE1 = RDP\r\n      ITYPE2 = TYPEL\r\n      INCRX = 1\r\n      INCRY = 1\r\n      IF(NCOL .EQ. 2)GO TO 100\r\n      IF( NCOL .NE. 1)GO TO 5000\r\nC*******\r\nC     SOLVE A (1X1)\r\nC*******\r\n      IXY = 1\r\n      JXY = 1\r\n      CALL UNPACK(*5060,IFILA(1),DX)\r\n      DET = DX(1)\r\n      MINDIA = DABS(DX(1))\r\n      IY = 1\r\n      JY = 1\r\n      CALL PACK(DX,IFILE,IFILU)\r\n      DX(1) = 0.D0\r\n      CALL PACK(DX,IFILL(1),IFILL)\r\n      IF(ITERMM.EQ.0)GO TO 90\r\n      CALL CLOSE(IFILE,EOFNRW)\r\n      GO TO 95\r\n   90 CALL CLOSE(IFILE,REW)\r\n   95 CALL CLOSE(IFILA(1),REW)\r\n      CALL CLOSE(IFILL(1),REW)\r\n      RETURN\r\n  100 IXY = 1\r\nC*******\r\nC     SOLVE A (2X2)\r\nC*******\r\n      JXY = 2\r\n      CALL UNPACK(*5060,IFILA(1),DX)\r\n      CALL UNPACK(*5060,IFILA(1),DX(3))\r\n      A = 1.\r\n      IF(DABS(DX(1)) .GE. DABS(DX(2)))GO TO 150\r\nC*******\r\nC     PERFORM INTERCHANGE\r\nC*******\r\n      DET = DX(1)\r\n      DX(1) = DX(2)\r\n      DX(2) = DET\r\n      DET = DX(3)\r\n      DX(3) = DX(4)\r\n      DX(4) = DET\r\n      A = -1.\r\n  150 CONTINUE\r\n      DX(2) = DX(2)/DX(1)\r\n      DX(4) = DX(4)-DX(2)*DX(3)\r\n      DET = DX(4)*DX(1)*A\r\n      IF(DX(1) .EQ. 0.D0 .OR. DX(4) .EQ. 0.D0)GO TO 5060\r\n      MINDIA = DMIN1 (DABS(DX(1)),DABS(DX(4)))\r\n      IY = 1\r\n      JY = 2\r\n      DX(5) = 0.0D0\r\n      IF(A.LT.0.0)  DX(5) = 1.0D0\r\n      DX(6) = DX(2)\r\n      CALL PACK(DX(5),IFILL(1),IFILL)\r\n      DX(6) = 0.\r\n      JY = 1\r\n      CALL PACK(DX(6),IFILL(1),IFILL)\r\n      IF(ITERMM .EQ. 1)GO TO 160\r\n      DX(2) = DX(3)\r\n      DX(3) = DX(4)\r\n      DX(4) = DX(2)\r\n      JY = 2\r\n      CALL PACK(DX(3),IFILE,IFILU)\r\n      IY = 2\r\n      CALL PACK(DX,IFILE,IFILU)\r\n      GO TO 90\r\n  160 JY = 1\r\n      CALL PACK(DX,IFILE,IFILU)\r\n      JY=2\r\n      CALL PACK(DX(3),IFILE,IFILU)\r\n      CALL CLOSE(IFILE,EOFNRW)\r\n      GO TO 95\r\n      ENTRY FINWRT(ITERM,SCRFLG,SR2FL,JPOSL,I1SP,BBAR,I1,CBCNT,\r\n     1IPAK,R,BBBAR1,BBBAR,I6SP,I4,I4SP,IX,DX,X,LCOL)\r\n      IBUF1 = NX-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2-SYSBUF\r\n      CALL CLOSE(IFILA(1),REW)\r\n      CALL GOPEN(SR2FIL,IX(IBUF1),WRT)\r\n      CALL CLOSE(SR2FIL,EOFNRW)\r\n      K=0\r\n      CALL GOPEN(IFILL,IX(IBUF2),WRT)\r\n      IF(SCRFLG.EQ.0)GO TO 2005\r\n      CALL GOPEN(SR2FL,IX(IBUF3),RD)\r\n 2005 LL = 0\r\n 2010 JPOSL = JPOSL+1\r\n      CALL BLDPK(RDP,TYPEL,IFILL(1),0,0)\r\n      IN1 = I1SP+K\r\n      JJ = JPOSL\r\n      DZ(1) = IX(IN1)\r\n      CALL ZBLPKI\r\n      KK = 0\r\n      IEND = MIN0(BBAR,NCOL-JJ)\r\n      IF(IEND .EQ. 0)GO TO 2030\r\n      IN1 = I1+LL*BBAR\r\n 2020 JJ = JJ+1\r\n      IN2 = IN1+KK\r\n      DZ(1) =DX(IN2)\r\n      CALL ZBLPKI\r\n      KK = KK+1\r\n      IF(KK-IEND)2020,2030,5050\r\n 2030 IF(CBCNT.EQ.0)GO TO 2050\r\nC*******\r\nC     PACK ACTIVE ROW ELEMENTS ALSO\r\nC*******\r\n      KK = 0\r\n 2035 IN1 = I6SP + KK\r\n      IN2 = I4 + IX(IN1)*BBBAR + K\r\n      DZ(1) = DX(IN2)\r\n      IF(DZ(1) .EQ. 0.D0)GO TO 2040\r\n      IN1 = I4SP + IX(IN1)\r\n      JJ = IX(IN1)\r\n      CALL ZBLPKI\r\n 2040 KK = KK + 1\r\n      IF(KK .LT. CBCNT)GO TO 2035\r\n 2050 CALL BLDPKN(IFILL(1),0,IFILL)\r\n      LL = LL + 1\r\n      K = K + 1\r\n      IF(K.EQ.LCOL)GO TO 2080\r\n      IF(K-R+1)2010,2060,2070\r\n 2060 IF(R-BBBAR1)2070,2010,5050\r\n 2070 LL =LL-1\r\n      IN1 = I1+LL*BBAR\r\n      CALL FREAD(SR2FL,DX(IN1),2*BBAR,0)\r\n      GO TO 2010\r\n 2080 CALL CLOSE(IFILL(1),REW)\r\n      IF(SCRFLG.GT.0)CALL CLOSE(SR2FL,REW)\r\n      IF(ITERM .NE. 0)RETURN\r\nC*******\r\nC     RE-WRITE THE UPPER TRIANGLE WITH THE RECORDS IN THE REVERSE ORDER\r\nC*******\r\n      INCRX = 1\r\n      INCRY = 1\r\n      ITYPE1 = TYPEL\r\n      ITYPE2 = TYPEL\r\n      ITYPEX = TYPEL\r\n      IFILU(2) = 0\r\n      IFILU(6) = 0\r\n      IFILU(7) = 0\r\n      CALL GOPEN(SR2FIL,IX(IBUF1),RD)\r\n      CALL GOPEN(IFILU,IX(IBUF2),1)\r\n      DO 2300 I = 1,NCOL\r\n      IXY = 0\r\n      CALL BCKREC(SR2FIL)\r\n      CALL UNPACK(*5060,SR2FIL,IX)\r\n      CALL BCKREC(SR2FIL)\r\n      KK = JXY-IXY+1\r\n      K = KK/2\r\n      KK = KK + 1\r\n      IF(TYPEL .EQ. 1)GO TO 2095\r\n      DO 2090 J = 1,K\r\n      L = KK-J\r\n      DA = DX(J)\r\n      DX(J) = DX(L)\r\n 2090 DX(L) = DA\r\n      GO TO 2100\r\n 2095 DO 2097 J = 1,K\r\n      L = KK-J\r\n      A    = X(J)\r\n      X(J) = X(L)\r\n 2097 X(L) = A\r\n 2100 IY = NCOL-JXY+1\r\n      JY = NCOL-IXY+1\r\n      CALL PACK(IX,IFILU(1),IFILU)\r\n 2300 CONTINUE\r\n      CALL CLOSE(IFILU(1),REW)\r\n      CALL CLOSE(SR2FIL,REW)\r\n      RETURN\r\n 5000 NO = -8\r\n      GO TO 5500\r\n 5050 NO = -25\r\n      GO TO 5500\r\n 5060 RETURN 1\r\n 5500 CALL MESAGE(NO,0,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/onlins.f",
    "content": "      SUBROUTINE ONLINS (*,LX)\r\nC\r\nC     ON-LINE SCAN ROUTINE, CALLED ONLY BY SCAN\r\nC\r\nC     WRITTEN FEBY G.CHAN/SPERRY,  FEB. 1986\r\nC\r\n      IMPLICIT INTEGER          (A-Z)\r\n      EXTERNAL        LSHIFT,   RSHIFT,   ANDF,     ORF,      COMPLF\r\n      LOGICAL         DEBUG\r\n      INTEGER         NAME(2),  CARD(20), IZ(1)\r\n      REAL            R(2),     Z(30)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /BLANK / IELT(2),  ICOMP,    NTOP,     AMAX,     AMIN,\r\n     1                IBEG,     IEND,     ICOMPX\r\n      COMMON /SYSTEM/ IBUF,     OUTTAP,   NOGO,     IN,       DUM(74),\r\n     1                SWTCH1,   JDUM(6),  INTRA\r\n      COMMON /XSCANX/ SKIP(2),  LCORE,    LBEG,     LEND,     DUMM(2),\r\n     1                IEL,      IOPT,     ISET,     ISORT,    IDUM(4),\r\n     2                DEBUG\r\n      COMMON /IFP1A / SCR1,     CASECC,   IS,       NWPC,     NCPW,\r\n     1                NMODES,   ICC,      NSET,     DUMMY(3), ISUB,\r\n     2                LENCC,    IBLNK,    IEQUAL,   IEOR\r\nC\r\nC            /ZZIFP1/ IS THE OPEN CORE FOR SCAN\r\n      COMMON /ZZZZZZ/ LCSE(400),CORE(1)\r\n      EQUIVALENCE     (IZ(1),LCSE(1))\r\n      EQUIVALENCE     (IMAX,AMAX),        (IMIN,AMIN),\r\n     1                (IDUPL,IBEG),       (INC,IEND),\r\n     2                (CARD(1),CORE(1)),  (IZ(1),Z(1))\r\n      DATA    BLANK , EQUAL ,   STOP  ,   ALL   ,   NAME             /\r\n     1        4H    , 4H=   ,   4HSTOP,   4HALL ,   4HONLI,   4HNS   /\r\n      DATA    LU    , DEBUG1,   DEBUG2,   DEBUG3,   I0               /\r\n     1        1     , 4HDEBU,   4HG ON,   4HG OF,   0                /\r\nC\r\nC     INITIALIZE /IFP1A/\r\nC\r\n      SCR1   = 301\r\n      CASECC = 101\r\n      IS     = 0\r\n      NWPC   = 20\r\n      NCPW   = 4\r\n      NMODES = 0\r\n      ICC    = 0\r\n      ISUB   = 1\r\n      IBLNK  = BLANK\r\n      IEQUAL = EQUAL\r\n      IEOR   = COMPLF(0)\r\n      IEOR   = RSHIFT(IEOR,1)\r\nC\r\nC     SET INTERACTIVE FLAG TO POSITIVE, A SIGNAL TO SCAN, TOTAPE, IFP1C\r\nC\r\n      INTRA  = IABS(INTRA)\r\n      IF (INTRA .EQ. 0) INTRA = 1\r\nC\r\n      ICOMP = LX\r\n      NWPC1 = NWPC + 1\r\n      NOUT  = OUTTAP\r\n      WRITE  (NOUT,10)\r\n 10   FORMAT (///1X,'*** SCAN INTERACTIVE INPUT ***')\r\nC\r\nC     READ CASECC FILE AND SAVE DATA IN LCSE, ONE SUBCASE AT A TIME\r\nC     SAVE SET DATA IN CORE BEGIN AT CORE(BGN)\r\nC\r\n 15   LCSE(166) = 200\r\n      LCSE(199) = 0\r\n      LCSE(200) = 0\r\n      NZ    = KORSZ(CORE(1)) - 3*IBUF - 1\r\n      NZ    = MIN0(NZ,LCORE)\r\n      ISCAN = 0\r\n      NSET  = 0\r\n      I81   = NWPC1\r\n      SUBID =-1\r\n      LX    = 0\r\n      IF (ICOMP .EQ. -2) GO TO 30\r\nC\r\nC     NO QUESTION ASKED IF SORT2 DATA TYPE IS USED.\r\nC\r\n      LX = 1\r\n 20   WRITE  (NOUT,25)\r\n 25   FORMAT (//,' ENTER SUBCASE ID (DEFAULT=FIRST SUBCASE)')\r\n      READ   (IN,26) R\r\n 26   FORMAT (2A4)\r\n      CALL A82INT (*20,R,8,SUBID,I)\r\n      IF (SUBID .EQ.  0) SUBID = -1\r\n      IF (INTRA .GT. 10) WRITE (LU,27) SUBID\r\n 27   FORMAT (///3X,'SUBCASE ID',I8)\r\n 30   JJ = 1\r\n      CALL REWIND (CASECC)\r\n      CALL FWDREC (*110,CASECC)\r\n 32   JJ = JJ + 1\r\n      CALL READ (*110,*110,CASECC,LCSE(JJ),1,0,I)\r\n      IF (SUBID .EQ. -1) SUBID = LCSE(JJ)\r\n      IF (LCSE(JJ) .EQ. SUBID) GO TO 35\r\n      CALL FWDREC (*110,CASECC)\r\n      GO TO 32\r\n 35   LCSE(1) = LCSE(JJ)\r\n      CALL READ (*110,*125,CASECC,LCSE(2),199,0,I)\r\n      LENCC = LCSE(166)\r\n      LSEM  = LCSE(LENCC)\r\n      NSET  = LCSE(LENCC-1)\r\n      IF (LSEM .GT. 0) CALL READ (*110,*125,CASECC,CORE(I81),LSEM,0,I)\r\n      I81   = I81 + LSEM\r\n      BGN   = I81\r\n      END   = I81\r\n 37   CALL READ (*40,*40,CASECC,CORE(I81),2,0,I)\r\n      JMP   = CORE(I81+1)\r\n      CORE(I81+2) = JJ\r\n      I81  = I81 + 3\r\n      CALL READ (*110,*125,CASECC,CORE(I81),JMP,0,I)\r\n      NSET = NSET + 1\r\n      I81  = I81 + JMP\r\n      GO TO 37\r\nC\r\nC     SET CARD\r\nC\r\n 40   WRITE  (NOUT,43)\r\n 43   FORMAT (//,' ENTER A BLANK, OR A SET CARD (SEE USER MANUAL P. ',\r\n     1       '2.3-44)', /,' E.G.  SET 101 = 1, 5 THRU 20')\r\n 45   CORE(I81) = IEOR\r\n      NOGO  = 0\r\n      CALL XREAD (*40,CARD)\r\n      IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 60\r\n      WRITE (LU,77) CARD\r\n      IF (CARD(1) .NE. DEBUG1) GO TO 46\r\n      J  = LSHIFT(1,20)\r\n      IF (CARD(2) .EQ. DEBUG2) SWTCH1 = ORF(J,SWTCH1)\r\n      J  = COMPLF(J)\r\n      IF (CARD(2) .EQ. DEBUG3) SWTCH1 = ANDF(J,SWTCH1)\r\n      DEBUG = .FALSE.\r\n      IF (CARD(2) .EQ. DEBUG2) DEBUG = .TRUE.\r\n      GO TO 40\r\n 46   IB  = I81\r\n      NZZ = NZ - I81\r\n      CALL XRCARD (CORE(I81),NZZ,CARD(1))\r\n      IF (CORE(I81+8) .NE. ALL) GO TO 47\r\n      CORE(I81  ) = CORE(I81+4)\r\n      CORE(I81+1) = 1\r\n      CORE(I81+2) = JJ\r\n      CORE(I81+3) =-1\r\n      I81 = I81 + 4\r\n      GO TO 50\r\n 47   ICC = 1\r\n      CALL IFP1C (I81,NZZ)\r\nC\r\nC     CONTINUATION CARDS FOR SET ARE READ IN BY IFP1C\r\nC\r\n      IF (NOGO .EQ. 0) GO TO 50\r\n      I81  = IB\r\n      GO TO 40\r\n 50   NSET = NSET + 1\r\n      WRITE  (NOUT,52) CORE(IB)\r\n 52   FORMAT (/,' THIS NEW SET',I6,' IS DEFINED FOR LOCAL USE ONLY',\r\n     1       //,' ENTER A BLANK, OR ANOTHER SET CARD')\r\n      KK = 55\r\n      IF (DEBUG) WRITE (6,55) KK,I81\r\n 55   FORMAT ('   ONLINS/',I2,4X,'I81 =',I7)\r\n      GO TO 45\r\nC\r\nC     SET DATA - FROM CORE(BGN) THRU CORE(END)\r\nC\r\n 60   END = I81 - 1\r\n      NZZ = NZ - I81\r\nC\r\nC     SCAN CARD\r\nC\r\n 70   WRITE  (NOUT,72)\r\n 72   FORMAT (//,' ENTER A BLANK, OR A SCAN CARD (SEE USER MANUAL P.2.3-\r\n     141A',   /,'  E.G. SCAN (STRESS,CBAR,AXIAL,SA/MAX) = 15, SET 102',\r\n     2        /,'       SCAN (FORCE,3,ROD,2) = +2000.,-1500.',\r\n     3        /,'       SCAN (HELP)' )\r\nC\r\n 75   JUMPH = 0\r\n      CALL XREAD (*70,CARD)\r\n      IF (CARD(1).EQ.STOP  .AND. CARD(2).EQ.BLANK) GO TO 135\r\n      IF (CARD(1).EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 90\r\n      WRITE  (LU,77) CARD\r\n 77   FORMAT (20A4)\r\n      IB = I81\r\n      CALL XRCARD (CORE(I81),NZZ,CARD(1))\r\n      CALL IFP1H (I81,NZZ,JUMPH)\r\n      IF (NOGO  .NE. 0) GO TO 80\r\n      IF (JUMPH .EQ. 0) GO TO 82\r\n      CALL IFP1H (0,0,2)\r\n 80   I81 = IB\r\n      IF (NOGO) 70,75,70\r\nC\r\n 82   J = CORE(IB)\r\n      IF (ISCAN .EQ. 0) ISCAN = J\r\n      IF (ISCAN .EQ. J) ISCAN = 30000000\r\n      WRITE  (NOUT,85)\r\n 85   FORMAT (/,' ENTER A BLANK, OR ANOTHER SCAN CARD')\r\n      KK = 87\r\n      IF (DEBUG) WRITE (6,55) KK,I81\r\n      GO TO 75\r\nC\r\nC     MOVE SET AND SCAN DATA TO THE END OF CASECC ARRAY IN /ZZIFP1/\r\nC     THEN, MOVE THE ENTIRE CASECC DATA (SET AND SCAN INCLUDED) TO\r\nC     THE END OF THE OPEN CORE. FINALLY, MOVE THE SAME DATA BLOCK\r\nC     TO THE BEGINNING OF THE OPEN CORE SPACE IN /ZZSCAN/ FOR SCAN\r\nC     OPERATION\r\nC\r\n 90   L   = LENCC\r\n      IF (I81 .LE. NWPC1) GO TO 100\r\n      J   = BGN + 2\r\n      I81 = I81 - 1\r\n      DO 95 I = NWPC1,I81\r\n      IF (I .NE. J) GO TO 92\r\n      J   = J + CORE(J-1) + 3\r\n      GO TO 95\r\n 92   L   = L + 1\r\n      LCSE(L) = CORE(I)\r\n 95   CONTINUE\r\n      J   = LCORE\r\n      DO 96 I = 1,L\r\n      LCSE(J) = LCSE(I)\r\n 96   J   = J - 1\r\n      IF (I .GT. J) CALL MESAGE (+8,0,NAME)\r\n      J   = LCORE\r\n      DO 97 I = 1,L\r\n      Z(I) = LCSE(J)\r\n 97   J   = J - 1\r\n      IF (DEBUG) WRITE (6,99) (Z(I),I=1,L)\r\n 99   FORMAT (//,' Z(1...200+) =', (/4X,10I7))\r\n 100  IF (LX .GT. 0) LX = L\r\nC\r\n      IF (ISCAN .EQ. 20000000) GO TO 103\r\n      IF (Z(25) .EQ. 0) GO TO 140\r\nC\r\nC     STRESS SCAN\r\nC\r\n      Z(24) =-1\r\n      Z(25) = 1\r\n      Z(26) = 1\r\n 103  IF (ISCAN .NE. 20000000) GO TO 105\r\n      IF (Z(28) .EQ. 0) GO TO 150\r\nC\r\nC     FORCE SCAN\r\nC\r\n      Z(27) =-1\r\n      Z(28) = 1\r\n      Z(29) = 1\r\n 105  IF (INTRA .GT. 10) OUTTAP = LU\r\n      RETURN\r\nC\r\n 110  JJ = JJ - 1\r\n      WRITE  (NOUT,115) SUBID,(Z(I),I=1,JJ)\r\n 115  FORMAT (//,' SUBCASE',I5,' NOT FOUND',\r\n     1        //,' EXISTING SUBCASES ARE -', (/5X,10I7))\r\n      GO TO 15\r\nC\r\n 125  CALL MESAGE (+2,CASECC,NAME)\r\n      GO TO 105\r\n 135  RETURN 1\r\nC\r\n 140  WRITE  (NOUT,145)\r\n 145  FORMAT (//,' STRESS OUTPUT FILE NOT AVAILABLE FOR SCAN',//)\r\n      GO TO 75\r\n 150  WRITE  (NOUT,155)\r\n 155  FORMAT (//,' FORCE  OUTPUT FILE NOT AVAILABLE FOR SCAN',//)\r\n      GO TO 75\r\n      END\r\n"
  },
  {
    "path": "mis/opt2a.f",
    "content": "      SUBROUTINE OPT2A (IP,EL,IEL,PR,IPR,RR)\r\nC\r\n      LOGICAL         FIRST,UNSAFE\r\n      INTEGER         COUNT,ETYP,IEL(1),IP(2,1),IPR(1),IZ(10),NAME(2),\r\n     1                OES1,OUTTAP,PEST,PSTRES,PTELT,ZCOR,OLDTYP,EID(20),\r\n     2                PLUS(5),IY(1)\r\n      REAL            EL(1),PR(1),RR(1),Y(1),PARM(8)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / SKP(2),COUNT,SKQ(2),KORE,SKR(2),NWDSE,NWDSP,SKS,\r\n     1                OES1,SKT(3),NELW,NPRW,SKU,NTOTL,CONV\r\n      COMMON /OPTPW2/ ZCOR,Z(16)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NEXT\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\nC     EQUIVALENT ARE  (EL,IEL), (PR,IPR)\r\n      EQUIVALENCE     (Z(1),IZ(1)), (CORE(1),PARM(1),MAX),\r\n     1                (IY(1),Y(1),PARM(8))\r\n      DATA    NAME  / 4H OPT,4H2A   /\r\n      DATA    PLUS  / 4H    , 4H+   , 4H++  , 4H+++ , 4H++++ /\r\nC\r\n      NELR  = 0\r\n      NE    = 0\r\n      PTELT = 0\r\n      IDEL  = 0\r\n      KEL   = KORE\r\n      KCONV = 0\r\n      CONV  = 1.0\r\n      ICP   = NTOTL - 4\r\n      FIRST =.TRUE.\r\nC\r\nC     READ HEADER, ODD RECORDS\r\nC\r\n      GO TO 10\r\n    5 CALL FREAD (OES1,0,0,NEXT)\r\n   10 CALL READ  (*630,*100,OES1,Z(1),10,NEXT,I)\r\n      ETYP  = IZ(3)\r\n      NESW  = IZ(10)\r\n      OLDTYP= PTELT\r\n      PTELT = IY(ETYP)\r\n      IF (PTELT .GT. 0) GO TO 15\r\nC\r\nC     ELEMENT TYPE NOT TO OPTIMIZE\r\nC\r\n      GO TO 5\r\n   15 IF (PTELT.GE.OLDTYP .OR. OLDTYP.EQ.0) GO TO 20\r\n      IF (KEL .NE. -1) KEL = KORE\r\n      IF (NE  .EQ.  0) GO TO 16\r\n      CALL PAGE2 (1)\r\n      WRITE (OUTTAP,580) (EID(J),J=1,NE)\r\n      NE = 0\r\n   16 WRITE  (OUTTAP,17)\r\n   17 FORMAT (/5X,15HNEXT SUBCASE...)\r\nC\r\nC     SET POINTERS TO ELEMENT TYPE AND PROPERTIES IN CORE.\r\nC     L = LOCATION OF FIRST, M = MAX LOCATION\r\nC\r\n   20 LEL = IP(1,PTELT)\r\n      MEL = IP(1,PTELT+1) - 1\r\n      IF (MEL .LE. LEL) GO TO 5\r\n      LOCE  = LEL\r\n      LOCP1 = IP(2,PTELT) - 1\r\n      IF (NESW .GT. ZCOR) GO TO 70\r\nC\r\nC     SEQUENTIALLY READ ONE ELEMENT FROM EVEN NUMBERED RECORDS.\r\nC     LOCE IS CURRENT ELEMENT TO COMPARE TO.\r\nC\r\n   30 CALL READ (*90,*10,OES1,Z(1),NESW,NOEOR,I)\r\n      IDES = IZ(1)/10\r\n   50 IF (IDES .EQ. IEL(LOCE)) GO TO 110\r\nC\r\nC     SCAN THE CORE FILE UNTIL ELEMENT ID .GT. IDES\r\nC\r\n      IF (IDES .LT. IEL(LOCE)) GO TO 30\r\nC\r\nC     CORE ELEMENT NOT TO BE OPTIMIZED\r\nC\r\n      LOCE = LOCE + NWDSE\r\n      IF (LOCE .LT. MEL) GO TO 50\r\nC\r\nC     END OF ELEMENT SEARCH FOR THIS TYPE (EOR NOT READ)\r\nC\r\n      GO TO 5\r\nC\r\nC     ELEMENT TYPE EXCEEDS CORE\r\nC\r\n   70 IER = -8\r\n      IFLE = NESW - ZCOR\r\n      GO TO 105\r\nC\r\nC     ILLEGAL EOF, EOR\r\nC\r\n   90 IER = -2\r\n      GO TO 101\r\n  100 IER = -3\r\n  101 IFLE = OES1\r\nC\r\n  105 CALL MESAGE (IER,IFLE,NAME)\r\nC\r\nC     PROCES THIS ELEMENT\r\nC\r\n  110 CONTINUE\r\n      NELR = NELR + 1\r\n      LOCP = IEL(LOCE+4) + LOCP1\r\n      PEST = IPR(LOCP+1)/100\r\n      MEST = IPR(LOCP+1) - PEST*100\r\n      RC   = 1.0\r\n      X1A  = 0.0\r\n      X2A  = 0.0\r\n      E1   = 999.\r\n      UNSAFE = .FALSE.\r\nC\r\n      GO TO (160,160,180,150,150,150,140,140,140,120,\r\n     1       130,140,140,140,170,150,140,120,140,140), PTELT\r\nC\r\nC     ROD, TUBE\r\nC\r\n  120 LIMIT  = 1\r\n      PSTRES = 4\r\n      ASSIGN 121 TO IRET\r\n      GO TO 500\r\n  121 LIMIT  = 2\r\n      PSTRES = 2\r\n      ASSIGN  540 TO IRET\r\n      GO TO 500\r\nC\r\nC     SHEAR\r\nC\r\n  130 LIMIT  = 1\r\n      PSTRES = 2\r\n      ASSIGN  540 TO IRET\r\n      GO TO 500\r\nC\r\nC     TRBSC, TRPLT, QDPLT, TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4\r\nC\r\n  140 IF (MEST .EQ. 1) GO TO 144\r\n      LIMIT  = 2\r\n      PSTRES = 7\r\n      ASSIGN 141 TO IRET\r\n      GO TO 500\r\n  141 PSTRES = 8\r\n      ASSIGN 142 TO IRET\r\n      GO TO 500\r\n  142 PSTRES = 15\r\n      ASSIGN 143 TO IRET\r\n      GO TO 500\r\n  143 PSTRES = 16\r\n      ASSIGN 144 TO IRET\r\n      X1A = AMAX1(ABS(Z( 7)),ABS(Z( 8)))\r\n      X2A = AMAX1(ABS(Z(15)),ABS(Z(16)))\r\n      X1A = AMAX1(X1A,X2A)\r\n      K   = 0\r\n      IF (X1A.EQ.ABS(Z(8)) .OR. X1A.EQ.ABS(Z(15))) K = 1\r\n      X1A = Z( 7+K)\r\n      X2A = Z(16-K)\r\n      GO TO 500\r\n  144 IF (MEST .EQ. 2) GO TO 540\r\n      LIMIT  = 1\r\n      PSTRES = 9\r\n      ASSIGN 145 TO IRET\r\n      GO TO 500\r\n  145 PSTRES = 17\r\n      ASSIGN  540 TO IRET\r\n      GO TO 500\r\nC\r\nC     TRMEM, QDMEM, QDMEM1, QDMEM2\r\nC\r\n  150 IF (MEST .EQ. 1) GO TO 152\r\n      LIMIT  = 2\r\n      PSTRES = 6\r\n      ASSIGN 151 TO IRET\r\n      GO TO 500\r\n  151 PSTRES = 7\r\n      ASSIGN 152 TO IRET\r\n      GO TO 500\r\n  152 IF (MEST .EQ. 2) GO TO 30\r\n      LIMIT  = 1\r\n      PSTRES = 8\r\n      ASSIGN  540 TO IRET\r\n      GO TO 500\r\nC\r\nC     BAR, ELBOW\r\nC\r\n  160 LIMIT  = 2\r\n      PSTRES = 7\r\n      X2A = ABS(Z(7))\r\n      ASSIGN 161 TO IRET\r\n      GO TO 500\r\n  161 PSTRES = 8\r\n      X1A = ABS(Z(8))\r\n      ASSIGN 162 TO IRET\r\n      GO TO 500\r\n  162 PSTRES = 14\r\n      ASSIGN 163 TO IRET\r\n      GO TO 500\r\n  163 PSTRES = 15\r\n      ASSIGN  540 TO IRET\r\n      GO TO 500\r\nC\r\nC     TRIM6\r\nC\r\n  170 IF (IEL(LOCE) .EQ. IDEL) GO TO 172\r\n      IDEL = IEL(LOCE)\r\n      ICP  = ICP + 4\r\n      IF (KEL.NE.-1 .AND. ICP.GE.KEL) CALL MESAGE (-8,0,NAME)\r\n      IY(ICP) = LOCP\r\n      IY(ICP+4) =-1\r\n  172 K  = 0\r\n      M1 =-1\r\n      DO 175 I = 1,3\r\n      M1 = M1 + 7\r\n      II = 3 + LOCE\r\n      S1S = 0.0\r\n      S3S = 0.0\r\n      IF (MEST .NE. 2) S3S = ABS(Z(M1+2)/EL(II))\r\n      II = II - 2\r\n      IF (Z(M1) .LT. 0.0) II = II + 1\r\n      IF (MEST .NE. 1) S1S = ABS(Z(M1)/EL(II))\r\n      II = 1 + LOCE\r\n      IF (Z(M1+1) .LT. 0.0) II = II + 1\r\n      S2S = ABS(Z(M1+1)/EL(II))\r\n      S13 = AMAX1(S1S,S2S)\r\n      S13 = AMAX1(S13,S3S)\r\n      Y(ICP+I) = AMAX1(Y(ICP+I),S13)\r\n      PR(LOCP+4) = AMAX1(PR(LOCP+4),S13)\r\n      E1 = ABS(S13) - 1.0\r\n      IF (ABS(E1) .LE. PARM(2)) K = K + 1\r\n  175 CONTINUE\r\n      ASSIGN 540 TO IRET\r\n      IF (K-3) 550,520,520\r\nC\r\nC     IS2D8\r\nC\r\n  180 M1  = 1\r\n      S1S = 0.0\r\n      S2S = 0.0\r\n      S3S = 0.0\r\n      DO 185 M = 1,8\r\n      M1 = M1 + 5\r\n      II = 3 + LOCE\r\n      IF (MEST .NE. 2) S3S = AMAX1(S3S,ABS(Z(M1+2)/EL(II)))\r\n      II = II - 2\r\n      IF (Z(M1) .LT. 0.0) II = II + 1\r\n      IF (MEST .NE. 1) S1S = AMAX1(S1S,ABS(Z(M1)/EL(II)))\r\n      II = 1 + LOCE\r\n      IF (Z(M1+1) .LT. 0.0) II = II + 1\r\n      S2S = AMAX1(S2S,ABS(Z(M1+1)/EL(II)))\r\n      S13 = AMAX1(S1S,S2S)\r\n      S13 = AMAX1(S13,S3S)\r\n  185 CONTINUE\r\n      E1 = ABS(S13) - 1.0\r\n      PR(LOCP+4) = AMAX1(PR(LOCP+4),S13)\r\n      ASSIGN 540 TO IRET\r\n      GO TO 520\r\nC\r\nC     FUNCTION E1  -  RATIO STRESS MINUS LIMIT DIVIDED BY LIMIT,\r\nC     WITH RESET OF -ALPHA-\r\nC     LOCP   = POINTER TO PID OF PROPERTY.\r\nC     LOCE   = POINTER TO EID OF ELEMENT.\r\nC     LIMIT  = 1=SHEAR, 2= COMPRESSION/TENSION.\r\nC     PSTRES = CORRESPONDING STRESS, POINTER TO Z ARRAY.\r\nC\r\n  500 II = 3 + LOCE\r\n      IF (LIMIT .EQ. 1) GO TO 510\r\n      II = II - 2\r\n      IF (Z(PSTRES) .LT. 0.0) II = II + 1\r\n  510 IF (EL(II) .LE. 0.0) GO TO 530\r\nC\r\nC     POSITIVE LIMIT\r\nC\r\n      PR(LOCP+4) = AMAX1(PR(LOCP+4),ABS(Z(PSTRES)/EL(II)))\r\nC\r\nC                                        I\r\nC                  NEGATIVE E1, SAFE     I    POSITIVE E1, UNSAFE\r\nC                                        I\r\nC   --+------+------+------+------+------+------+------------------- E1\r\nC    UL     4P     3P     2P      P      0      P  (WHERE P=PARM(2),\r\nC      ++++    +++    ++     +    I             I        UL=UNLOADED)\r\nC            OVER DESIGNED        I REGION WHEREI  UNDER DESIGNED\r\nC            REGION               I  AE1 .LE. P I          REGION\r\nC                      (UNSAFE=.FALSE.)         I  (UNSAFE=.TRUE.)\r\nC\r\n      E1 = ABS(Z(PSTRES)/EL(II)) - 1.0\r\n  520 IF (E1 .GT. PARM(2)) UNSAFE = .TRUE.\r\n      IF (UNSAFE) KEL = -1\r\n      AE1 = AMIN1(AE1,ABS(E1))\r\n  530 GO TO IRET, (121,141,142,143,144,145,151,152,161,162,163,540)\r\nC\r\n  540 X1 = ABS(X1A)\r\n      X2 = ABS(X2A)\r\n      IF (X1.EQ.0.0 .OR. X2.EQ.0.0) GO TO 550\r\n      X1A= AMIN1(X1A,X2A)\r\n      X1 = AMIN1(X1,X2)/AMAX1(X1,X2)\r\n      X1 = SIGN(X1,X1A)\r\n      IF (ABS(X1) .GT. 1.0E-8) RC = X1\r\nC\r\nC     SAVE IN RR AN EMPIRICAL ALPHA MODIFIER FOR SPEEDY CONVERGENCE\r\nC\r\n  550 IRR = (LOCP+NWDSP)/NWDSP\r\n      RR(IRR) = RC\r\nC\r\n      IF (UNSAFE) GO TO 30\r\nC\r\nC     PRINT ELEMENT IDS THAT HAVE CONVERGED, OR OVER DESIGNED\r\nC\r\n      IF (.NOT.FIRST) GO TO 570\r\n      FIRST = .FALSE.\r\n      CALL PAGE2 (-3)\r\n      WRITE  (OUTTAP,560) UIM\r\n  560 FORMAT (A29,' 2304A, THE FOLLOWING ELEMENTS EITHER CONVERGED (NO',\r\n     1       ' PLUS) OR OVER-DESIGNED (PLUS(ES))',/5X,'IN ONE OR MORE ',\r\n     2       'SUBCASES,  (EACH PLUS INDICATES AN INCREMENTAL PERCENTAGE'\r\n     3,      ' OF OVER-DESIGN BASED ON CONVERGENCE CRITERION, EPS)',/)\r\n  570 XSTAR = (PR(LOCP+4)-1.0) - PARM(2)\r\n      J  = IFIX(ABS(XSTAR)/PARM(2))\r\n      IF (J .GT. 3) J = 3\r\n      II = 1\r\n      IF (PR(LOCP+4) .LT. 1.0E-8) II = 0\r\n      IF (II .EQ. 0) J = 4\r\n      EID(NE+1) = IEL(LOCE)\r\n      EID(NE+2) = PLUS(J+1)\r\n      NE = NE + 2\r\n      IF (NE .LT. 20) GO TO 590\r\n      NE = 0\r\n      CALL PAGE2 (1)\r\n      WRITE  (OUTTAP,580) EID\r\n  580 FORMAT (5X,10(I8,A4))\r\n  590 IF (KEL .EQ. -1) GO TO 30\r\n      KEL = KEL - 1\r\nCWKBR 9/93 IZK = IZ(KEL)\r\n      IZK = IY(KEL)\r\n      IF (PR(LOCP+3) .LT. 1.0E-6) II = 0\r\n      IF (J.GT.0 .AND. IZK.EQ.-1 .AND. II.NE.0) KCONV = KCONV - 1\r\n      IF (II .EQ. 0) GO TO 600\r\n      IF (AE1 .GT. PARM(2)) GO TO 30\r\n  600 IF (IEL(LOCE) .EQ. IZK) GO TO 30\r\n      IF (AE1.LE.PARM(2) .AND. IZK.EQ.-1) GO TO 610\r\n      IF (II.EQ.0 .AND. IZK.EQ.-1) GO TO 30\r\nCWKBR 9/93 IZ(KEL) = IEL(LOCE)\r\n      IY(KEL) = IEL(LOCE)\r\nCWKBR 9/93 IF (II .EQ. 0) IZ(KEL) = -1\r\n      IF (II .EQ. 0) IY(KEL) = -1\r\n      KCONV = KCONV + 1\r\n      GO TO 30\r\nCWKBR 9/93  610 IZ(KEL) = IEL(LOCE)\r\n  610 IY(KEL) = IEL(LOCE)\r\n      GO TO 30\r\nC\r\nC     EOF\r\nC\r\n  630 CONTINUE\r\n      IF (NE .GT. 0) WRITE (OUTTAP,580) (EID(J),J=1,NE)\r\nC\r\nC     IF KEL=-1 HERE, OR\r\nC     IF NUMBER OF ELEMENTS CONVERGED, KORE-KEL, IS LESS THAN NUMBER OF\r\nC     ELEMENTS IN THE PROBLEM, NELW/NWDSE, CONVERGENCE IS INCOMPLETE\r\nC\r\n      IF (KEL .EQ. -1) GO TO 650\r\n      IF (KCONV .LT. NELW/NWDSE) GO TO 650\r\nCWKBR CALL PAGE (-4)\r\n      CALL PAGE2 (-4)\r\n      WRITE  (OUTTAP,640) UIM\r\n  640 FORMAT (A29,' 2304B, CONVERGENCE ACHIEVED FOR ALL ELEMENTS ',\r\n     1       'REQUESTED, AND IN ALL SUBCASE(S)', /5X,\r\n     2       'FULLY-STRESSED DESIGN COMPLETED',/)\r\n      CONV = 2.0\r\n      GO TO 670\r\nC\r\nC     IF NELR IS ZERO, NO ELEMENT MATCH MADE\r\nC\r\n  650 IF (NELR .GT. 0) GO TO 670\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,660) UFM\r\n  660 FORMAT (A23,' 2295, NO ELEMENTS EXIST FOR OPTIMIZATION.')\r\n      COUNT = MAX + 1\r\nC\r\n  670 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/opt2b.f",
    "content": "      SUBROUTINE OPT2B (IPR,PR,PL,RR)\r\nC\r\n      INTEGER         COUNT,IPR(1),OUTTAP,SYSBUF,IY(1)\r\n      REAL            PL(1),PR(1),RR(1),Y(1),Z(8)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(6),NWDSP,\r\n     1                SKP3(6),NPRW,NKLW,NTOTL,CONV\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      EQUIVALENCE     (CORE(1),Z(1),MAX), (EPS,Z(2)), (GAMA,Z(3)),\r\n     1                (IPRNT,Z(7)), (IY(1),Y(1),Z(8))\r\nC     EQUIVALENT ARE  (IPR,PR)\r\nC\r\n      NMES = 0\r\n      CH   = 1.0\r\nC\r\n      DO 100 NP = 1,NPRW,NWDSP\r\n      ALPH= PR(NP+4)\r\n      I   = 1\r\n      ICP = NTOTL - 4\r\n    3 ICP = ICP+4\r\n      IF (IY(ICP) .LE.  0) GO  TO 5\r\n      IF (IY(ICP) .NE. NP) GO  TO 3\r\nC\r\nC     SPECIAL HANDLING OF TRIM6\r\nC\r\n    4 ALPH = Y(ICP+I)\r\nC\r\n    5 IF (ALPH) 70,40,10\r\nC\r\nC     POSITIVE ALPHA, CALCULATE PNEW\r\nC\r\n   10 IRR = (NP+NWDSP)/NWDSP\r\n      IF (ABS(GAMA-1.0) .LT. 1.0E-4) CH = 0.25*RR(IRR) + 0.75\r\n      PNEW = PR(NP+3)*((ALPH/(ALPH+(1.0-ALPH)*GAMA))**CH)\r\n      IF (IPR(NP+5) .EQ. 0) GO TO 30\r\nC\r\nC     COMPARE TO LIMIT DATA\r\nC\r\n      KPL  = IPR(NP+5)\r\n      DELP = PNEW/PR(NP+2)\r\n      IF (DELP .LT. PL(KPL)) GO TO 20\r\n      KPL = KPL + 1\r\n      IF (DELP.LE.PL(KPL) .OR. PL(KPL).EQ.0) GO TO 30\r\nC\r\nC     RECALCULATE ALPHA, PNEW  BASED ON THE LIMIT\r\nC\r\n   20 PNEW = PR(NP+2)*PL(KPL)\r\n      ALPH =-PNEW*GAMA/(PNEW*(1.0-GAMA)-PR(NP+3))\r\nC\r\n   30 PR(NP+4) = ALPH\r\n      IF (NP .EQ. IY(ICP)) Y(ICP+I) = ALPH\r\n      GO TO 80\r\nC\r\nC     ZERO STRESS INPUT, CHANGE ALPH TO 0.0001\r\nC\r\n   40 IF (IPRNT.EQ.0 .OR. NMES.GE.100) GO TO 60\r\n      NMES = NMES + 1\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,50) UWM,IPR(NP)\r\n   50 FORMAT (A25,' 2303, FULLY-STRESSED DESIGN DETECTED ZERO STRESS ',\r\n     1       'FOR PROPERTY',I9, /5X,'CHECK PROPERTY CARD OR UNLOADED ',\r\n     2       'ELEMENT(S)')\r\n   60 ALPH = 1.0E-4\r\n      GO TO 10\r\nC\r\nC     NO CHANGE IN ALPH (-1.0 DETECTED)\r\nC\r\n   70 ALPH = -1.0E0\r\n      IF (NP .EQ. IY(ICP)) GO TO 30\r\nC\r\n   80 IF (NP .NE. IY(ICP)) GO TO 100\r\n      I = I + 1\r\n      IF (I .LE. 3) GO TO 4\r\n      ICP = ICP + 4\r\nC\r\n  100 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/opt2c.f",
    "content": "      SUBROUTINE OPT2C (PT,IEL,IPR,PR,RR)\r\nC\r\n      LOGICAL         KPUN\r\n      INTEGER         B1,PT(2,1),COUNT,EID,EJECT,EST1,EST2,ETYP,HEADNG,\r\n     1                OUTTAP,IEL(1),IPR(1),IZ(100),NAME(2),NEOP(21),\r\n     2                SYSBUF,WDOPT(42),YCOR,ZCOR,MCB(7),IY(1),\r\n     3                TUBE,QUAD4,TRIM6,TRIA3\r\n      REAL            PR(1),RR(1),Y(1),BLK,PCD(2,21),G(2,10),PARM(8)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / SKP1(2),COUNT,NCARD,SKP2,YCOR,B1,NELOP,NWDSE,\r\n     1                NWDSP,SKP3(2),EST1,SKP4,EST2,NELW,NPRW,NKLW,NTOTL,\r\n     2                CONV\r\n      COMMON /OPTPW2/ ZCOR,Z(100)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP,SKPS1(6),NLPP,SKPS2(2),NLINES,\r\n     1                SKPS3(78),LPCH\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (IZ(1),Z(1)),   (EID,Z(1)), (CORE(1),PARM(1),MAX),\r\n     1                (G(1,1),IZ(100)), (G(1,10),IG10), (IPRNT,PARM(7)),\r\n     2                (IY(1),Y(1),PARM(8))\r\nC     EQUIVALENT ARE  (IPR,PR)\r\nC\r\nC\r\nC     NOTE - CHANGE EQUIVALENCE IF AN ELEMENT TO BE OPTIMIZED HAS EST\r\nC     (EPT ONLY) ENTRIES BEYOND 100 WORDS.\r\nC\r\n      DATA   NAME   / 4H OPT, 4H2C   /\r\n      DATA   NMES   , YES,PLUS,BLK   /  0, 4HYES , 4H+AAA, 4H    /\r\n      DATA   TUBE   , QUAD4,TRIM6,TRIA3  / 3, 64 , 73, 83        /\r\n      DATA   PCD    /\r\n     1       4HPBAR,4H    , 4HPELB,4HOW  , 4HPIS2,4HD8  , 4HPQDM,4HEM  ,\r\n     2       4HPQDM,4HEM1 , 4HPQDM,4HEM2 , 4HPQDP,4HLT  , 4HPQUA,4HD1  ,\r\n     3       4HPQUA,4HD2  , 4HPROD,4H    , 4HPSHE,4HAR  , 4HPTRB,4HSC  ,\r\n     4       4HPTRI,4HA1  , 4HPTRI,4HA2  , 4HPTRI,4HM6  , 4HPTRM,4HEM  ,\r\n     5       4HPTRP,4HLT  , 4HPTUB,4HE   , 4HPSHE,4HLL  , 4HPSHE,4HLL  ,\r\n     6       4HYYYY,4H    /\r\nC\r\nC     POINTERS TO WORDS ON EST TO CONVERT.  NEOP(ITP) IS POINTER INTO\r\nC     -WDOPT- ARRAY.  THE -WDOPT- FIRST ENTRY FOR THE ELEMENT IS THE\r\nC     NUMBER OF ENTRIES ON -EST- TO CONVERT FOLLOWED BY THE WORD NUMBERS\r\nC     TO OPTIMIZE.\r\nC\r\n      DATA   NEOP   / 21,30,39,15,15,  15,27,17,15,1,  6,12,8,6,35,\r\n     1                 6,12, 4,41,41,   0/\r\n      DATA WDOPT /\r\nC\r\nC     ROD (A,J)\r\n     1  2,   5,6\r\nC\r\nC     TUBE (O.D.)\r\n     2, 1,   5\r\nC\r\nC     SHEAR(T), TRMEM(T), TRIA2(T)\r\n     3, 1,   7\r\nC\r\nC     TRIA1(T1,T2,I)\r\n     4, 3,   7,9,11\r\nC\r\nC     TRBSC(T2,I),TRPLT(T2,I)\r\n     5, 2,   7,9\r\nC\r\nC     QDMEM(T), QDMEM1(T), QDMEM2(T), QUAD2(T)\r\n     6, 1,   8\r\nC\r\nC     QUAD1(T1,T2,I)\r\n     7, 3,   8,10,12\r\nC\r\nC     BAR(A,J,I1,I2,I12)\r\n     8, 5,   17,18,19,20,33\r\nC\r\nC     QDPLT(T2,I)\r\n     9, 2,   8,10\r\nC\r\nC     ELBOW(A,J,I1,I2)\r\n     O, 4,   9,10,11,12\r\nC\r\nC     TRIM6(T1,T3,T5)\r\n     1, 3,   10,11,12\r\nC\r\nC     IS2D8(T)\r\n     2, 1,   13\r\nC\r\nC     QUAD4(T), TRIA3(T) PSHELL ONLY\r\n     3, 1,   14\r\n     * /\r\nC\r\nC     DETERMINE IF PROPTETY CARDS ARE TO BE PUNCHED\r\nC\r\n      KPUN = .FALSE.\r\n      KOUNT  = 0\r\n      HEADNG = 0\r\n      CH     = 1.0\r\n      ICP    = NTOTL\r\n      IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) KPUN =.TRUE.\r\n      IF (PARM(5) .NE. YES) KPUN = .FALSE.\r\n      IF (IPRNT .NE. 0) NLINES = NLPP\r\n      IE2 = 1\r\n      LEL = 0\r\nC\r\nC     READ EST1 ELEMENT TYPE\r\nC\r\n   10 CALL READ (*400,*360,EST1,ETYP,1,NOEOR,I)\r\n      CALL WRITE (EST2,ETYP,1,NOEOR)\r\n      ITP = IY(ETYP)\r\n      IF (ITP .EQ. 0) GO TO 20\r\n      IE1 = PT(1,ITP)\r\nC\r\nC     CHECK IF CORE ELEMENTS SKIPPED BECAUSE TYPE NOT ON EST\r\nC\r\n      IF (IE1 .GT. IE2) GO TO 60\r\n      IE2 = PT(1,ITP+1)\r\n      LEL = IEL(IE1)\r\n      IP1 = PT(2,ITP) - 1\r\n      IF (IE2 .GT. IE1) GO TO 40\r\nC\r\nC     SKIP THIS ELEMENT TYPE.  COPY RECORD TO EST2\r\nC\r\n   20 J = 1\r\n      N = ZCOR\r\n      CALL READ (*30,*30,EST1,Z,ZCOR,NOEOR,N)\r\n      J = 0\r\n   30 CALL WRITE (EST2,Z(1),N,J)\r\n      IF (J) 10,20,10\r\nC\r\nC     ELEMENT TYPE HAS CORE ENTRIES\r\nC\r\n   40 CONTINUE\r\n      NWDS = INCR*(ETYP-1) + 12\r\n      NWDS = NE(NWDS)\r\n      NPCARD = 0\r\n      IF (NWDS .GT. ZCOR) CALL MESAGE (-8,ZCOR,NAME)\r\nC\r\nC     READ ONE EST1 ELEMENT INTO CORE\r\nC\r\n   50 CALL READ (*350,*340,EST1,Z,NWDS,NOEOR,I)\r\n      IF (EID-LEL) 55,80,60\r\nC\r\nC     ELEMENT ID NOT IN CORE\r\nC\r\n   55 CALL WRITE (EST2,IZ(1),NWDS,NOEOR)\r\n      GO TO 50\r\nC\r\nC     ELEMENT IN CORE NOT ON EST\r\nC\r\n   60 I = EJECT(2)\r\n      IF (I .EQ. 0) GO TO 68\r\n      IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 66\r\n      WRITE  (OUTTAP,65) COUNT\r\n   65 FORMAT (1H0,8X,45HPROPERTIES USED DURING INTERMEDIATE ITERATION,\r\n     1        I5, 10H BY OPTPR2/)\r\n      GO TO 68\r\n   66 WRITE  (OUTTAP,67) COUNT\r\n   67 FORMAT (1H0,8X,38HPROPERTIES USED DURING FINAL ITERATION,\r\n     1        I5, 10H BY OPTPR2/)\r\n   68 WRITE  (OUTTAP,70) SFM,ETYP,LEL,NAME\r\n   70 FORMAT (A25,' 2297, INCORRECT LOGIC FOR ELEMENT TYPE',I4,\r\n     1        ', ELEMENT',I8,2H (,2A4,2H).)\r\n      CALL MESAGE (-61,LEL,NAME)\r\nC\r\nC     ELEMENT IN CORE - CONVERT THE ENTRIES\r\nC\r\n   80 IPL = IEL(IE1+4) + IP1\r\n      IE1 = IE1 + NWDSE\r\n      LEL = IEL(IE1)\r\n      IF (IE1 .GT. IE2) LEL = 100000000\r\n      A = PR(IPL+4)\r\n      IF (A .GT. 0.0) GO TO 100\r\n      NMES = NMES + 1\r\n      IF (IPRNT.EQ.0 .OR. NMES.GT.100) GO TO 55\r\n      I = EJECT (2)\r\n      IF (I .EQ. 0) GO TO 88\r\n      IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 84\r\n      WRITE (OUTTAP,65) COUNT\r\n      GO TO 88\r\n   84 WRITE  (OUTTAP,65) COUNT\r\n   88 WRITE  (OUTTAP,90) UIM,EID\r\n   90 FORMAT (A29,' 2305, OPTPR2 DETECTED NEGATIVE ALPHA FOR ELEMENT',\r\n     1        I8)\r\n      GO TO 55\r\nC\r\n  100 LOCF = NEOP(ITP)\r\n      J = LOCF\r\n      K = WDOPT(LOCF)\r\n      IRR = (IPL+NWDSP)/NWDSP\r\n      IF (ABS(PARM(3)-1.0) .LT. 0.0001) CH = 0.25*RR(IRR) + 0.75\r\n      C = (A/(A+(1.0-A)*PARM(3)))**CH\r\n      IF (ETYP .NE. TRIM6) GO TO 105\r\nC\r\nC     SPECIAL HANDLING FOR TRIM6\r\nC     IF THICKNESS-3 OR THICKNESS-5 IS ZERO, SET EQUAL TO THICKNESS-1\r\nC\r\n      DO 102 JJ = 1,K\r\n      J = J +1\r\n      L = WDOPT(J)\r\n      IF (JJ.NE.K .AND. ABS(Z(L+1)).LT.1.E-7) Z(L+1) = Z(L)\r\n      PC = Y(ICP+JJ)\r\n  102 Z(L) = Z(L)*(PC/(PC+(1.0-PC)*PARM(3)))\r\n      ICP = ICP + 4\r\n      GO TO 115\r\nC\r\n  105 DO 110 I = 1,K\r\n      J = J + 1\r\n      L = WDOPT(J)\r\n  110 Z(L) = C*Z(L)\r\n      IF (ETYP.NE.QUAD4 .AND. ETYP.NE.TRIA3) GO TO 112\r\n      Z(L+6) =  0.5*Z(L)\r\n      Z(L+7) = -0.5*Z(L)\r\n  112 IF (ETYP.EQ.TUBE .AND. Z(L).LT.2.*Z(L+1)) Z(L+1) = .5*Z(L)\r\n  115 CALL WRITE (EST2,Z(1),NWDS,NOEOR)\r\nC\r\nC     PUNCH AND/OR PRINT PROPERTY CARDS\r\nC\r\n      IF (IPRNT.EQ.0 .OR. IPR(IPL).LE.0) GO TO 50\r\n      GO TO (120,130,140,150,150,150,160,170,150,180,150,160,170,150,\r\n     1       180,150,160,190,170,170), ITP\r\nC\r\nC     PBAR\r\nC\r\n  120 K1 = 02222211\r\n      K2 = 22222222\r\n      K3 = 00000222\r\n      GO TO 250\r\nC\r\nC     PELBOW\r\nC\r\n  130 K1 = 02222211\r\n      K2 = 22222222\r\n      K3 = 22222222\r\n      GO TO 250\r\nC\r\nC     PIS2D8\r\nC\r\n  140 K1 = 00000211\r\n      GO TO 230\r\nC\r\nC     PQDMEM, PQDMEM1, PQDMEM2, PQUAD2, PSHEAR, PTRIA2, PTRMEM\r\nC\r\n  150 K1 = 00002211\r\n      GO TO 230\r\nC\r\nC     PQDPLT, PTRBSC, PTRPLT\r\nC\r\n  160 K1 = 22221211\r\n      GO TO 230\r\nC\r\nC     PQUAD1, PTRIA1, PSHELL\r\nC\r\n  170 K1 = 22121211\r\n      K2 = 00000022\r\n      GO TO 240\r\nC\r\nC     PROD, PTRIM6\r\nC\r\n  180 K1 = 00222211\r\n      GO TO 230\r\nC\r\nC     PTUBE\r\nC\r\n  190 K1 = 00022211\r\nC\r\nC     OUTPUT THE CARD(S)\r\nC\r\n  230 K2 = 0\r\n  240 K3 = 0\r\n  250 II = WDOPT(LOCF+1) - 4\r\n      KK = K1\r\n      G(1,1)   = PCD(1,ITP)\r\n      G(2,1)   = PCD(2,ITP)\r\n      IZ(II+2) = IPR(IPL)\r\n      IPR(IPL) =-IPR(IPL)\r\n  260 DO 270 I = 2,9\r\n      G(1,I) = BLK\r\n      G(2,I) = BLK\r\n      J = MOD(KK,10)\r\n      IF (J .EQ. 0) GO TO 270\r\n      IF (J .EQ. 1) CALL INT2A8 (*370,IZ(I+II),G(1,I))\r\n      IF (J .EQ. 2) CALL  FP2A8 (*380, Z(I+II),G(1,I))\r\n  270 KK = KK/10\r\n      G(1,10) = BLK\r\n      G(2,10) = BLK\r\n      IF (K2.EQ.0 .OR. (K2.EQ.-1 .AND. K3.EQ.0) .OR. K3.EQ.-1) GO TO 320\r\n      KOUNT = KOUNT + 1\r\n      CALL INT2A8 (*375,KOUNT,G(1,10))\r\n      G(2,10) = G(1,10)\r\n      IG10 = KHRFN3(G(1,1),PLUS,-3,1)\r\n      IF (HEADNG .EQ. 0) GO TO 320\r\n  280 WRITE  (OUTTAP,290) G\r\n  290 FORMAT (5X,10(2A4,1X))\r\n      IF (.NOT.KPUN) GO TO 300\r\n      WRITE  (LPCH,295) G\r\n  295 FORMAT (20A4)\r\n      NCARD = NCARD + 1\r\nC\r\nC     SET UP FOR CONTINUATION CARD(S)\r\nC\r\n  300 IF (K2.EQ.0 .OR. (K2.EQ.-1 .AND. K3.EQ.0) .OR. K3.EQ.-1) GO TO 50\r\n      G(1,1) = G(1,10)\r\n      G(2,1) = G(2,10)\r\n      II     = II + 8\r\n      IF (K2) 315,50,310\r\n  310 KK = K2\r\n      K2 = -1\r\n      GO TO 260\r\n  315 KK = K3\r\n      K3 = -1\r\n      GO TO 260\r\nC\r\nC     PRINT HEADING\r\nC\r\n  320 HEADNG = 1\r\n      IF (EJECT(1) .EQ. 0) GO TO 280\r\n      IF (COUNT.EQ.MAX .OR. CONV.EQ.2.0) GO TO 330\r\n      WRITE (OUTTAP,65) COUNT\r\n      GO TO 280\r\n  330 WRITE (OUTTAP,67) COUNT\r\n      GO TO 280\r\nC\r\nC     EOR ON EST1\r\nC\r\n  340 CALL WRITE (EST2,0,0,NWEOR)\r\n      IF (IE1-IE2) 60,10,10\r\nC\r\nC     ERRORS\r\nC\r\n  350 CALL MESAGE (-2,EST1,NAME)\r\n  360 CALL MESAGE (-3,EST1,NAME)\r\n  370 J = 370\r\n      GO TO 390\r\n  375 J = 375\r\n      I = KOUNT\r\n      GO TO 390\r\n  380 J = 380\r\n  390 WRITE  (OUTTAP,395) J,G(1,1),G(2,1),I,II,IZ(I+II),Z(I+II)\r\n  395 FORMAT (16H0*** OPT2C/ERROR,I5,9X,5HELEM ,2A4,3I9,E10.4 )\r\n      GO TO 50\r\nC\r\n  400 CALL EOF (EST2)\r\n      MCB(1) = EST1\r\n      CALL RDTRL(MCB)\r\n      MCB(1) = EST2\r\n      CALL WRTTRL(MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/opt2d.f",
    "content": "      SUBROUTINE OPT2D (IPR,PR)\r\nC-----\r\nC   COPY OPTP1 TO OPTP2 DATA FILE.\r\nC  CHANGE RECORD 3      WORD 1 = IABS (PID).\r\nC                       WORD 4 = PLST\r\nC                       WORD 5 = ALPH\r\nC-----\r\n      REAL PR(1)\r\n      INTEGER ZCOR     ,EOR      ,IPR(1)   ,OPTP1    ,OPTP2    ,IZ(1)\r\nC\r\n      COMMON /BLANK/ SKP1(9),NWDSP,OPTP1,SKP3(2),OPTP2,SKP4(2),NPRW\r\n      COMMON /NAMES / NRD,NRREW,NWRT,NWREW,NEXT\r\n      COMMON /OPTPW2/ ZCOR,Z(1)\r\n      EQUIVALENCE (IZ(1),Z(1))\r\nC\r\nC  . RECORD ZERO - COPY NAME AND 6 PARAMETERS...\r\nC\r\n      CALL FREAD (OPTP1,Z(1),8,NEXT)\r\n      CALL FNAME(OPTP2,Z(1))\r\n      CALL WRITE (OPTP2,Z(1),8,NEXT)\r\nC\r\nC  . RECORD ONE (POINTERS) AND TWO (ELEMENT DATA)...\r\nC\r\n      DO 30 I = 1,2\r\n      N = ZCOR\r\n   10 EOR = NEXT\r\n      CALL READ(*20,*20,OPTP1,Z,ZCOR,0,N)\r\n      EOR = 0\r\n   20 CALL WRITE (OPTP2,Z(1),N,EOR)\r\n      IF (EOR.EQ.0) GO TO 10\r\n   30 CONTINUE\r\nC\r\nC  . RECORD THREE - PROPERTY DATA...\r\nC\r\n      EOR = 0\r\n      DO 40 I = 1,NPRW,NWDSP\r\n      IPR(I) = IABS(IPR(I) )\r\n      PR(I+4) = -1.0\r\n      CALL WRITE (OPTP2,IPR(I),NWDSP,EOR)\r\n   40 CONTINUE\r\n      CALL WRITE (OPTP2,0,0,NEXT)\r\nC\r\nC  . RECORD FOUR - PLIMIT DATA...\r\nC\r\n      CALL FREAD (OPTP1,0,0,NEXT)\r\n      N = ZCOR\r\n   50 EOR = NEXT\r\n      CALL READ(*60,*60,OPTP1,Z,ZCOR,0,N)\r\n      EOR = 0\r\n   60 CALL WRITE (OPTP2,Z(1),N,EOR)\r\n      IF (EOR.EQ.0) GO TO 50\r\nC\r\n      CALL EOF (OPTP2)\r\n      IZ(1) = OPTP1\r\n      CALL RDTRL(IZ(1))\r\n      IZ(1) = OPTP2\r\n      CALL WRTTRL (IZ(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/optp1a.f",
    "content": "      SUBROUTINE OPTP1A (ELT,ELOP,ELE,DTYP)\r\nC\r\n      INTEGER         ELT(1),IWD(28),COUNT,EST,SYSBUF,OUTTAP,ELOP(2,1),\r\n     1                YCOR,ECOR,B1P1,IE(1),IPT(21),IMAT(1),NAME(2),\r\n     2                DTYP(1)\r\n      REAL            ELE(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,\r\n     1                NELW,NWDSE,NPRW,NWDSP,SKP3,\r\n     2                MPT,SKP4(3),EST,SKP5(2),NELTYP,ITYPE(21)\r\n      COMMON /OPTPW1/ ECOR,E(1)\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /MATIN / MATID,INFLAG,TEMP,PLA,SINTH,COSTH\r\n      COMMON /MATOUT/ OMAT(20)\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      EQUIVALENCE     (E(1),IE(1)), (OMAT(1),IMAT(1)), (K1,C1)\r\n      DATA    NAME  / 4H OPT,4HP1A  /\r\nC\r\nC     POINTER TO IPT ARRAY - ZERO MEANS ELEMENT NOT USED.\r\nC     UPDATE IPT DIMENSIONS AS NEW ELEMENTS ARE ADDED\r\nC\r\n      DATA    IPT   / 15,17,21,11,23,  25,11,13,11, 1,  5,9,7,9,19,\r\n     1                 9, 9, 3,27,27,   0/\r\nC\r\nC     WORD POINTER TO EST AND MATERIAL STRESS LIMITS\r\nC     WORD 1 = 100*WORD TO OPTIMIZE (EST - IF.NE.0) + ALTERNATE\r\nC     WORD 2 = 100*WORD FOR STRESS LIMIT + ALTERNATE\r\nC              WHERE 1 = SHEAR\r\nC                    2 = TENSION/COMPRESSION\r\nC                    3 = ANY/ALL NONZERO\r\nC\r\n      DATA    IWD   / 506,201 , 500,200 , 700,100 , 709,303 , 700,300 ,\r\nC                      11        13        15        17        19\r\n     1                800,300 , 810,303 ,1718,202 , 910,202 ,1011,303 ,\r\nC                      21        23        25       27\r\n     2               1300,303 , 800,303 , 800,303 ,1400,300 /\r\nC\r\n      NELW   = 0\r\n      SINTH  = 0.0\r\n      COSTH  = 1.0\r\n      PLA    = 0.0\r\n      INFLAG = 2\r\nC\r\nC     COPY POINTER ARRAY INTO CORE\r\nC\r\n      DO 10 I = 1,NTYPES\r\n      ELT(I) = DTYP(I)\r\n   10 CONTINUE\r\nC\r\nC     ZERO OUT POINTER ARRAY\r\nC\r\n      I1 = 2*(NPOW+1)\r\n      DO 20 I = 2,I1\r\n   20 ELOP(I,1) = 0\r\n      ELOP(1,1) = 1\r\nC\r\nC     READ IN ELEMENT TYPE\r\nC\r\n   30 CALL READ (*120,*170,EST,IETYP,1,NOEOR,I)\r\n      IF (IETYP .GT. NTYPES) GO TO 110\r\n      INTYP = DTYP(IETYP)\r\n      IF (INTYP .LE. 0) GO TO 110\r\nC\r\nC     DECODE LIMITS NEEDED\r\nC\r\n      I  = IPT(INTYP)\r\n      J2 = IWD(I)\r\n      J1 = J2/100\r\n      J2 = J2 - J1*100\r\n      I2 = IWD(I+1)\r\n      I1 = I2/100\r\n      I2 = I2 - I1*100\r\n      NEST = (IETYP-1)*INCR + 12\r\n      NEST = NE(NEST)\r\n      IF (NEST .GT. ECOR) GO TO 200\r\n   40 CALL READ (*160,*115,EST,E,NEST,NOEOR,K1)\r\n      MATID = IE(J1-1)\r\n      IF (MATID .EQ. 0) MATID = IE(J2-1)\r\n      TEMP = E(NEST)\r\n      CALL MAT (IE(1))\r\nC\r\nC     TEST IF PERTINENT STRESS LIMITS ARE ZERO\r\nC\r\n      K1 = 0\r\n      K2 = 0\r\n      IF (I1.EQ.2 .AND. I2.EQ.2) GO TO 50\r\nC\r\nC     SHEAR\r\nC\r\n      IF (OMAT(15) .NE. 0.0 ) GO TO 50\r\n      IF (I1 .NE. 2) K1 = 1\r\n      IF (I2.EQ.1  .OR. I2.EQ.3) K2 = 1\r\n   50 IF (I1.EQ.1 .AND. I2.LE.1) GO TO 70\r\nC\r\nC     TENSION\r\nC\r\n      IF (OMAT(13) .NE. 0.0) GO TO 60\r\n      IF (I1 .GT. 1) K1 = K1 + 1\r\n      IF (I2 .GT. 1) K2 = K2 + 1\r\nC\r\nC     COMPRESSION\r\nC\r\n   60 IF (OMAT(14) .NE. 0.0) GO TO 70\r\n      IF (I1 .GT. 1) K1 = K1 + 1\r\n      IF (I2 .GT. 1) K2 = K2 + 1\r\nC\r\n   70 IF (K1.GE.I1 .AND. K2.GE.I2) GO TO 40\r\nC\r\nC     CHECK IF PROPERTY IS NONZERO AND STORE INFO IN PID POINTER\r\nC\r\n      IF (E(J1) .NE. 0.0) GO TO 90\r\n   80 IF (E(J2) .EQ. 0.0) GO TO 40\r\nC\r\n      IF (K2 .GE. I2) GO TO 40\r\nC\r\nC     ALTERNATE PROPERTY USED\r\nC\r\n      K1 = J2*100 + I2\r\n      GO TO 100\r\nC\r\n   90 IF (K1 .GE. I1) GO TO 80\r\nC\r\nC     PRIMARY PROPERTY USED\r\nC\r\n      K1 = J1*100 + I1\r\n  100 IF (NELW+5 .GT. YCOR) GO TO 180\r\n      ELE(NELW+1) = E(1)\r\n      ELE(NELW+2) = OMAT(13)\r\n      ELE(NELW+3) = OMAT(14)\r\n      ELE(NELW+4) = OMAT(15)\r\nC\r\nC     NOTE, K1 = C1\r\nC\r\n      ELE(NELW+5) = C1\r\n      NELW = NELW + NWDSE\r\n       GO TO 40\r\nC\r\nC     NEW ELEMENT TYPE\r\nC\r\n  110 CONTINUE\r\n      CALL FREAD (EST,0,0,NWEOR)\r\n      IF (IETYP .GT. NTYPES) GO TO 120\r\n      IF (INTYP .LE. 0) GO TO 30\r\n  115 ELOP(1,INTYP+1) = NELW + 1\r\n      GO TO 30\r\nC\r\nC     EOF\r\nC\r\n  120 I1 = NPOW + 1\r\n      DO 130 I = 2,I1\r\n      IF (ELOP(1,I) .GT. 0) GO TO 130\r\n      ELOP(1,I) = ELOP(1,I-1)\r\n  130 CONTINUE\r\n      IF (NELW .NE. 0) GO TO 150\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,140) UFM\r\n  140 FORMAT (A23,' 2295, NO ELEMENTS EXIST FOR OPTIMIZATION.')\r\n      COUNT = -1\r\n  150 RETURN\r\nC\r\nC     ILLEGAL EOF\r\nC\r\n  160 CALL MESAGE (-2,EST,NAME)\r\nC\r\nC     ILLEGAL EOR\r\nC\r\n  170 CALL MESAGE (-3,EST,NAME)\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  180 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,190) UFM,NAME,B1P1,IE(1)\r\n  190 FORMAT (A23,' 2296, INSUFFICIENT CORE ',2A4,1H(,I10,' ), ELEMENT',\r\n     1        I9)\r\n      NELW = 0\r\n      GO TO 150\r\n  200 CALL PAGE2 (-2)\r\n      WRITE (OUTTAP,190) NAME,ECOR,IETYP\r\n      NELW = 0\r\n      GO TO 150\r\n      END\r\n"
  },
  {
    "path": "mis/optp1b.f",
    "content": "      SUBROUTINE OPTP1B (ELT,ELOP,ELE,PR)\r\nC\r\n      INTEGER         ELT(1),ELOP(2,1),ELE(1),PR(1),COUNT,ECT,SYSBUF,\r\n     1                OUTTAP,YCOR,PRCOR,PRC,NAME(2),CARD(2),ELCR,ELPT,\r\n     2                PID,PRPT,PRPT1,B1P1\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,\r\n     1                NELW,NWDSE,NPRW,NWDSP,SKP3,\r\n     2                SKP4(2),ECT,SKP5(4),NUMELM,ITYPE(21)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /OPTPW1/ PRCOR,PRC(2)\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      DATA    NAME  / 4H OPT,4HP1B  /\r\nC\r\nC\r\n      IEOP  = 1\r\n      IDES  = ELOP(1,IEOP  )\r\n      IDEE  = ELOP(1,IEOP+1)\r\n      PRPT  = 1\r\n      PRPT1 = 1\r\n      ELOP(2,1) = 1\r\nC\r\nC     IN CASE OF ERROR SET PRC(1)\r\nC\r\n      PRC(1) = -1\r\nC\r\n      DO 130 K = 1,NUMELM\r\n      NELE = (IDEE-IDES)/NWDSE\r\n      IF (NELE) 30,120,10\r\nC\r\n   10 IDX = INCR*(ITYPE(K)-1)\r\n      IDP = IDX + 4\r\n      CARD(1) = NE(IDP  )\r\n      CARD(2) = NE(IDP+1)\r\n      IF (NE(IDP+2).GT.PRCOR) GO TO 150\r\n      CALL LOCATE (*160,X(B1P1),CARD(1),I)\r\nC\r\nC     SEQUENTIAL ELEMENT SEARCH\r\nC\r\n      NPR  = 0\r\n      ELPT = IDES\r\n      ELCR = ELE(ELPT)\r\nC\r\n   20 CALL READ (*160,*160,ECT,PRC,NE(IDP+2),NOEOR,I)\r\n      IF (PRC(1)-ELCR) 20,50,30\r\nC\r\nC     LOGIC OR FILE FAILURE\r\nC\r\n   30 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,40) SFM,ITYPE(K),PRC(1),NAME\r\n   40 FORMAT (A25,' 2297, INCORRECT LOGIC FOR ELEMENT TYPE',I4,\r\n     1       ', ELEMENT',I8,2H (,2A4,2H).)\r\n      GO TO 170\r\nC\r\nC     ELEMENT ID IN CORE .EQ. ECT ID - ELEMENT TO BE OPTIMIZED\r\nC\r\n   50 PID = PRC(2)\r\n      CARD(1) = PID\r\n      CARD(2) = ELE(ELPT+4)\r\nC\r\nC     TEST FOR CORE NEEDED AFTER EXPANDING TO NWDSP WORDS\r\nC\r\n      IF (PRPT1+NWDSP*(NPR/2+1) .GT. YCOR) GO TO 180\r\n      CALL BISHEL (*60,CARD,NPR,2,PR(PRPT1))\r\n   60 ELE(ELPT+4) = PID\r\n      ELPT = ELPT + NWDSE\r\n      IF (ELPT .GE. IDEE) GO TO 70\r\n      ELCR = ELE(ELPT)\r\n      GO TO 20\r\nC\r\nC     NEW ELEMENT TYPE COMING\r\nC\r\n   70 CALL FREAD (ECT,0,0,NWEOR)\r\nC\r\nC     EXPAND PROPERTIES TO NWDSP WORDS/PROPERTY\r\nC\r\n      NX = NPR/2\r\n      IF (NX-1) 30,100,80\r\n   80 CONTINUE\r\n      DO 90 I = 1,NX\r\n      J = NX - I\r\n      L = PRPT1 + J*NWDSP\r\n      M = PRPT1 + J*2\r\n      PR(L  ) = PR(M  )\r\n   90 PR(L+1) = PR(M+1)\r\nC\r\n  100 PRPT = PRPT1 + NX*NWDSP\r\nC\r\nC     PLACE POINTERS IN ELEMENT ARRAY\r\nC\r\n      L = IDEE - 1\r\n      DO 110 I = IDES,L,NWDSE\r\n      KID = ELE(I+4)\r\n      CALL BISLOC (*30,KID,PR(PRPT1),NWDSP,NX,J)\r\n      ELE(I+4) = J\r\n  110 CONTINUE\r\nC\r\nC     SETUP FOR NEXT ELEMENT\r\nC\r\n  120 IEOP = IEOP + 1\r\n      ELOP(2,IEOP) = PRPT\r\n      PRPT1 = PRPT\r\n      IDES  = IDEE\r\n      IF (IEOP .GT. NPOW) GO TO 140\r\n      IDEE = ELOP(1,IEOP+1)\r\n  130 CONTINUE\r\nC\r\nC\r\n  140 NPRW = PRPT - 1\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\nC     INSUFFICIENT CORE IN /OPTPW1/ OR /XXOPT1/\r\nC\r\n  150 COUNT = -1\r\n      GO TO 140\r\nC\r\nC     FILE ERRORS\r\nC\r\n  160 CALL MESAGE (-7,ECT,NAME)\r\n  170 PRPT = 1\r\n      GO TO 140\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  180 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,190) UFM,NAME,B1P1,PID\r\n  190 FORMAT (A23,' 2298, INSUFFICIENT CORE ',2A4,1H(,I10,'), PROPERTY',\r\n     1        I9)\r\n      GO TO 150\r\n      END\r\n"
  },
  {
    "path": "mis/optp1c.f",
    "content": "       SUBROUTINE OPTP1C (ELT,ELOP,PR)\r\nC\r\n      INTEGER         COUNT,ELT(1),ELOP(2,2),EPT,PR(1),SYSBUF,OUTTAP,\r\n     1                YCOR,PRCOR,PRC,NAME(2),CARD(2),DTYP(21),B1P1,ENTRY\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,\r\n     1                SKP3(2),NPRW,NWDSP,SKP4,\r\n     2                SKP5,EPT,SKP6(6),ENTRY(21)\r\n      COMMON /OPTPW1/ PRCOR,PRC(1)\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      EQUIVALENCE     (M1,RM1)\r\n      DATA    NAME  / 4H OPT,4HP1C  /,  RM1 / -1.0 /\r\nC\r\nC      PROPERTY CORRELATOR TO EST DESIGN VARIABLE (100*EST LOCATION).\r\nC      THIS VALUE ADDS/SUBTRACTS FROM EST ENTRY TO GET EPT LOCATION.\r\nC      ENTRY IS MADE BY THE ELT ARRAY (SEQUENTIAL LIST OF NUMBERS WITH\r\nC      ZEROS FOR ELEMENTS NOT USED).\r\nC\r\n      DATA    DTYP  /\r\n     1        -14, -6, -10, -5, -5, -5, -5, -5, -5, -2,\r\nC              BR  EB   IS  QM  M1  M2  QP  Q1  Q2  RD\r\n     2         -4, -4,  -4, -4, -7, -4, -4, -2, -5, -5,\r\nC              SH  TB   T1  T2  T6  TM  TP  TU  Q4  T3\r\n     3          0/\r\nC\r\n      JETYP = 1\r\n      IDPS  = ELOP(2,1)\r\n      IDPE  = ELOP(2,2) - 1\r\nC\r\n      DO 80 IETYP = 1,NTYPES\r\n      IF (ELT(IETYP) .LE. 0) GO TO 80\r\n      NPR = (IDPE+1-IDPS)/NWDSP\r\n      IF (NPR) 30,70,10\r\nC\r\n   10 IDX = ENTRY(JETYP)\r\n      IDX = INCR*(IDX-1)\r\n      IDP = IDX + 7\r\n      CARD(1) = NE(IDP  )\r\n      CARD(2) = NE(IDP+1)\r\n      IF (NE(IDP+2) .GT. PRCOR) GO TO 130\r\nC\r\n      CALL LOCATE (*110,X(B1P1),CARD,I)\r\n      ICPR = PR(IDPS)\r\n      ICPT = IDPS\r\nC\r\n   20 CALL READ (*150,*160,EPT,PRC,NE(IDP+2),NOEOR,I)\r\nC\r\nC     SEQUENTIAL PROPERTY SEARCH.  PROPERTIES THAT ARE UNSORTED ON EPT\r\nC     WILL FAIL.  THIS MAY OCCUR FOR 2 PID/CARD (E.G., QDMEM, QUAD2,\r\nC     SHEAR, TRIA2, TRMEM).\r\nC\r\n      IF (PRC(1)-ICPR) 20,50,30\r\nC\r\nC     LOGIC OR UNSORTED FILE ERROR\r\nC\r\n   30 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,40) SFM,IETYP,PRC(1),NAME\r\n   40 FORMAT (A25,' 2299, INCORRECT LOGIC FOR ELEMENT TYPE',I4,\r\n     1        ', PROPERTY',I9,2H (,2A4,2H).)\r\n      GO TO 100\r\nC\r\nC     PROPERTY IN CORE LOCATED.\r\nC\r\n   50 NPR = NPR - 1\r\n      PR(ICPT+5) = 0\r\n      PR(ICPT+4) = M1\r\nC\r\nC     LOCATE VARIABLE AS SET BY OPTP1A\r\nC\r\n      J1 = PR(ICPT+1)/100\r\n      J2 = J1+DTYP(JETYP)\r\n      PR(ICPT+3) = PRC(J2)\r\n      PR(ICPT+2) = PRC(J2)\r\nC\r\nC     ICPT+0, +1 SET BY OPTP1A\r\nC\r\n      ICPT = ICPT + NWDSP\r\n      IF (ICPT .GT. IDPE) GO TO 60\r\n      ICPR = PR(ICPT)\r\n      GO TO 20\r\nC\r\nC     NEW ELEMENT TYPE COMING\r\nC\r\n   60 IF (NPR .GT. 0) GO TO 30\r\n      CALL FREAD (EPT,0,0,NWEOR)\r\n   70 IDPS  = IDPE  + 1\r\n      JETYP = JETYP + 1\r\n      IF (JETYP .GT. NPOW) GO TO 90\r\n      IDPE = ELOP(2,JETYP+1) - 1\r\n   80 CONTINUE\r\nC\r\nC\r\n   90 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  100 COUNT = -1\r\n      GO TO 90\r\nC\r\nC     UNABLE TO LOCATE SORTED PID\r\nC\r\n  110 WRITE  (OUTTAP,120) SFM,NAME,PRC(1)\r\n  120 FORMAT (A25,' 2300, ',2A4,'UNABLE TO LOCATE PROPERTY',I10,\r\n     1       ' ON EPT OR IN CORE.')\r\n      GO TO 100\r\nC\r\nC     INSUFFICIENT CORE /OPTPW1/\r\nC\r\n  130 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,140) UFM,NAME,PRCOR,IETYP\r\n  140 FORMAT (A23,' 2296. INSUFFICIENT CORE ',2A4,1H(,I10,' ), ELEMENT',\r\n     1        I9)\r\n       GO TO 100\r\nC\r\nC     ILLEGAL EOF\r\nC\r\n  150 CALL MESAGE (-2,EPT,NAME)\r\nC\r\nC     ILLEGAL EOR\r\nC\r\n  160 CALL MESAGE (-3,EPT,NAME)\r\n      GO TO 100\r\n      END\r\n"
  },
  {
    "path": "mis/optp1d.f",
    "content": "      SUBROUTINE OPTP1D (ELOP,PR,PL)\r\nC\r\nC     PROPERTY OPTIMIZER   SET POINTERS TO PLIMIT\r\nC\r\n      INTEGER         ELOP(2,1),PR(1),COUNT,YCOR,B1P1,SCRTH1,\r\n     1                SYSBUF,OUTTAP,PLP,PID,NAME(2),NKL(2)\r\n      REAL            PL(1),KL\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,\r\n     1                SKP3(2),NPRW,NWDSP,NKLW,SKP4(6),SCRTH1\r\n      COMMON /OPTPW1/ KLWDS,KL(4)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      EQUIVALENCE     (NKL(1),KL(1))\r\n      DATA    NAME  / 4H OPT,4HPID  /\r\nC\r\n      NOGO = 0\r\n      PLP  = 1\r\n      GO TO 15\r\nC\r\nC     READ A NEW ELEMENT TYPE\r\nC\r\n   10 CALL FREAD (SCRTH1,0,0,NWEOR)\r\n   15 L   = 0\r\n      NPL = 0\r\n      CALL READ (*150,*180,SCRTH1,ITP,1,NOEOR,I)\r\n      IF (ITP .LE. NPOW) GO TO 40\r\nC\r\n   20 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,30) SFM,NAME,ITP,L\r\n   30 FORMAT (A25,' 2301,',2A4,' FILE OPTIMIZATION PARAMETER INCORRECT',\r\n     1       ' AS',2I8)\r\n      NOGO = NOGO + 1\r\n      GO TO 140\r\nC\r\n   40 IP1 = ELOP(2,ITP)\r\n      IP2 = ELOP(2,ITP+1) - 1\r\n      NPR = IP2 - IP1\r\n      IF (NPR .LE. 0) GO TO 10\r\n      CALL FREAD (SCRTH1,L,1,NOEOR)\r\n      IF (L .LE. 0) GO TO 20\r\nC\r\n      CALL FREAD (SCRTH1,NKL(1),4,NOEOR)\r\n      L = L - 1\r\nC\r\nC     SEQUENTIAL SEARCH ON PLIMIT AND PROPERTY DATA\r\nC     LPL -- LAST PLIMIT POINTED TO (BY ILL).\r\nC     NPL -- NUMBER OF PLIMIT FOR THIS ELEMENT TYPE IN CORE.\r\nC     PLP -- POINTER FIRST PLIMIT  --    --     -- .\r\nC\r\n      LPL = -9877\r\nC\r\n      DO 130 IPR = IP1,IP2,NWDSP\r\n      PID = PR(IPR)\r\nC\r\n   50 IF (PID-NKL(1)) 70,80,60\r\nC\r\nC     CHECK UPPER RANGE PLIMIT\r\nC\r\n   60 CONTINUE\r\n      IF (PID-NKL(2)) 80,80,70\r\nC\r\nC     READ NEXT PLIMIT INTO CORE\r\nC\r\n   70 IF (L.LE.0) GO TO 140\r\n      CALL FREAD (SCRTH1,NKL(1),4,NOEOR)\r\n      L = L - 1\r\n      GO TO 50\r\nC\r\nC     PLIMIT EXISTS - SEE IF MATCHES LAST\r\nC\r\n   80 IF (LPL .EQ. L) GO TO 120\r\nC\r\nC     DOESNOT - CHECK IF PREVIOUS ENTRY\r\nC\r\n      IF (NPL .EQ. 0) GO TO 100\r\n      DO 90 LPL = PLP,LOC,2\r\n      IF (PL(LPL)   .NE. KL(3)) GO TO 90\r\n      IF (PL(LPL+1) .EQ. KL(4)) GO TO 110\r\n   90 CONTINUE\r\nC\r\nC     NEW PLIMIT\r\nC\r\n  100 IF (NPL+PLP+1 .GT.YCOR) GO TO 190\r\n      NPL = NPL + 2\r\n      LOC = NPL + PLP - 2\r\n      PL(LOC  ) = KL(3)\r\n      PL(LOC+1) = KL(4)\r\n      LPL = L\r\n      ILL = LOC\r\n      GO TO 120\r\nC\r\nC     PREVIOUS MATCH\r\nC\r\n  110 ILL = LPL\r\n      LPL = L\r\nC\r\nC     LOAD POINTER\r\nC\r\n  120 PR(IPR+5) = ILL\r\nC\r\n  130 CONTINUE\r\nC\r\n  140 PLP = PLP + NPL\r\n      GO TO 10\r\nC\r\nC     END-OF-FILE\r\nC\r\n  150 NKLW = PLP + NPL - 1\r\n  160 IF (NOGO .GT. 0) COUNT = -1\r\n      RETURN\r\nC\r\nC     ILLEGAL EOR\r\nC\r\n  180 CALL MESAGE (-3,SCRTH1,NAME)\r\nC\r\nC     INSUFFICIENT COREINTERNAL ELEMENT NUMBER PRINTED\r\nC\r\n  190 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,200) UFM,NAME,B1P1,ITP\r\n  200 FORMAT (A23,' 2298, INSUFFICIENT CORE ',2A4,1H(,I10,\r\n     1       ' ), PROPERTY',I9)\r\n      NKLW = -PLP\r\n      GO TO 160\r\n      END\r\n"
  },
  {
    "path": "mis/optpr1.f",
    "content": "      SUBROUTINE OPTPR1\r\nC\r\nC     THIS ROUTINE IS THE DRIVER FOR PROPERTY OPTIMIZATION, PHASE 1.\r\nC\r\nC\r\nC     OPTPR1  MPT,EPT,ECT,DIT,EST/OPTP1/V,N,PRINT/V,N,TSTART/\r\nC                                       V,N,COUNT $\r\nC\r\nC     WHERE PRINT  = OUTPUT, INTEGER = 1\r\nC           TSTART = OUTPUT, INTEGER = TIME AT EXIT OF OPTPR1.\r\nC           COUNT  = OUTPUT, INTEGER =-1 NOT PROPERTY OPTIMIZATION.\r\nC                                    = 1 IS  PROPERTY OPTIMIZATION.\r\nC     CRITERIA FOR OPTIMIZATION\r\nC\r\nC        1. OUTPUT FILE NOT PURGED.\r\nC        2. BULK DATA CARD -POPT IS PRESENT.\r\nC           AFTER THESE TESTS ALL ERRORS ARE FATAL.\r\nC\r\nC\r\nC      SUBROUTINES USED\r\nC\r\nC      OPTP1A - READS ELEMENT DATA INTO CORE (NWDSE PER ELEMENT).\r\nC      OPTP1B - READS PROPERTY IDS INTO CORE AND SETS ELEMENT DATA\r\nC               POINTER (V1) TO ITS LOCATION. (NWDSP PER PROPERTY).\r\nC      OPTP1C - READS DESIGN PROPERTIES INTO CORE.\r\nC      OPTP1D - READS PLIMIT DATA INTO CORE AND SETS PROPERTY DATA\r\nC               POINTER (PLIM) TO ITS LOCATION. (NWDSK PER LIMIT)\r\nC\r\nC\r\nC     LOGICAL         DEBUG\r\n      INTEGER         DATTYP(21),DATDTY(90),DTYP(90),SYSBUF,B2,B1P1,\r\n     1                NAME(2),CREW,FILE,YCOR,PCOR1,ECOR1,PRCOR1,FNAM(2),\r\n     2                PRINT,COUNT,POPH(2),HPOP(2),PLMH(2),NONE(2),\r\n     3                EPT,ECT,DIT,EST,OPTP1,OUTTAP,Y(1),SCRTH1,ZCOR,\r\n     4                PCOR2,TSTART\r\n      REAL            X(7)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / PRINT,TSTART,COUNT,SKP(2),YCOR,B1P1,NPOW,\r\n     1                NELW,NWDSE,NPRW,NWDSP,NKLW,MPT,EPT,ECT,DIT,EST,\r\n     2                OPTP1,SCRTH1,NELTYP,ITYPE(21)\r\n      COMMON /OPTPW1/ ZCOR,Z(100)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /NAMES / NRD,NRREW,NWRT,NWREW,CREW\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (X(1),CORE(1)), (X(7),Y(1))\r\nC     DATA    DEBUG / .FALSE. /\r\n      DATA    POPH  , PLMH / 404,4, 304,3 /,  NAME / 4H OPT,3HPR1 /,\r\n     1        HPOP  / 4H   P,4HOPT  /      ,  NONE / 4H (NO,4HNE) /,\r\n     2        LTYPE / 90 /  ,NUMTYP / 20  /\r\nC\r\nC     NELTYP      = NO. ELEMENT TYPES THAT MAY BE OPTIMIZED\r\nC     LTYPE       = DIMENSION OF DATDTY AND DTYP\r\nC     DATTYP/DTYP = ARRAY TO GIVE RELATIVE LOCATIONS OF ELEMENTS IN\r\nC                   /GPTA1/\r\nC\r\n      DATA    DATTYP/\r\n     1        34, 81, 80, 16, 62, 63, 15, 19, 18, 1,  4,  7,  6,  17,\r\nC             BR  EB  IS  QM  M1  M2  QP  Q1  Q2  RD  SH  TB  T1  T2\r\n     2        73,  9,  8,  3, 64, 83,  0 /\r\nC             T6  TM  TP  TU  Q4  T3\r\nC\r\nC     SETUP DATDYP/DTYP IN ALPHABETICAL ORDER AND IN /GPTA1/ SEQUENCE\r\nC\r\n      DATA    DATDTY  / 10, 0, 18, 11,  0, 13, 12, 17, 16,  0\r\nC             ELEMENT   RD  2  TU  SH   5  T1  TB  TP  TM  10\r\n     1,                 4*0  ,  7,  4, 14,  9,  8,  0\r\nC             ELEMENT   11-14  QP  QM  T2  Q2  Q1  20\r\n     2,                 10*0\r\nC             ELEMENT   21-30\r\n     3,                 3*0  ,  1,   6*0\r\nC             ELEMENT   31-33  BR   35-40\r\n     4,                 10*0\r\nC             ELEMENT   41-50\r\n     5,                 10*0\r\nC             ELEMENT   51-60\r\n     6,                  0, 5,  6,  19,  6*0\r\nC             ELEMENT   61 M1  M2   Q4  65-70\r\n     7,                 2*0,   15,  6*0,   3\r\nC             ELEMENT   71-72  T6  74-79  D8\r\n     8,                  2, 0, 20,  7*0 /\r\nC             ELEMENT   EB 82  T3  84-90\r\nC\r\nC     SET UP ELEMENT TYPES\r\nC\r\n      NELTYP = NUMTYP\r\n      DO 1 I = 1,21\r\n      IF (NTYPES .GT. LTYPE) GO TO 140\r\n    1 ITYPE(I) = DATTYP(I)\r\n      DO 2 I = 1,NTYPES\r\n    2 DTYP(I) = DATDTY(I)\r\nC\r\nC\r\n      ZCOR  = 100\r\n      MPT   = 101\r\n      EPT   = 102\r\n      ECT   = 103\r\n      DIT   = 104\r\n      EST   = 105\r\n      OPTP1 = 201\r\n      SCRTH1= 301\r\nC\r\nC     STEP 1.  INITIALIZE AND CHECK FOR OUTPUT FILE\r\nC\r\n      COUNT = 0\r\n      PRINT = 1\r\n      CALL FNAME (OPTP1,FNAM)\r\n      IF (FNAM(1).EQ.NONE(1) .AND. FNAM(2).EQ.NONE(2)) GO TO 120\r\nC\r\n      B1P1  = KORSZ(CORE(1)) - SYSBUF\r\n      B2    = B1P1 - SYSBUF\r\n      YCOR  = B2 - 7\r\n      PCOR1 =-1\r\n      ECOR1 =-1\r\n      PRCOR1=-1\r\n      KCOR1 =-1\r\n      NWDSE = 5\r\n      NWDSP = 6\r\n      NPOW  = NELTYP\r\n      CALL DELSET\r\nC\r\nC     STEP 2.  FIND POPT CARD\r\nC\r\n      CALL PRELOC (*120,X(B1P1),MPT)\r\n      CALL LOCATE (*110,X(B1P1),POPH,I)\r\n      CALL READ (*10,*30,MPT,X,7,1,NWDS)\r\nC\r\nC     ILLEGAL NUMBER OF WORDS\r\nC\r\n   10 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,20) SFM,NAME,NWDS,HPOP\r\n   20 FORMAT (A25,' 2288, ',2A4,'READ INCORRECT NUMBER WORDS (',I2,2A4,\r\n     1        2H).)\r\n      GO TO 80\r\nC\r\n   30 IF (NWDS.NE.6) GO TO 10\r\nC\r\nC     STEP 2A.  PROCESS PLIMIT CARDS ON SCRATCH FILE\r\nC\r\n      IF (YCOR .LE. 11) GO TO 60\r\n      NKLW = 0\r\n      CALL LOCATE (*40,X(B1P1),PLMH,I)\r\n      CALL GOPEN (SCRTH1,X(B2),NWREW)\r\n      CALL OPTPX (DTYP)\r\n      CALL CLOSE (SCRTH1,CREW)\r\n   40 CALL CLOSE (MPT,CREW)\r\n      IF (NKLW    .LT. 0) GO TO 60\r\n      IF (COUNT+1 .EQ. 0) GO TO 80\r\nC\r\nC     STEP 3.  LOAD MATERIAL DATA\r\nC\r\n      CALL PREMAT (Y(1),Y(1),X(B1P1),YCOR,MCOR,MPT,DIT)\r\n      PCOR1 = MCOR  + 1\r\n      PCOR2 = PCOR1 + NTYPES\r\n      ECOR1 = PCOR2 + 2*(NPOW+1)\r\n      YCOR  = YCOR  - ECOR1\r\n      IF (YCOR .LT. (NWDSE+NWDSP)) GO TO 60\r\nC\r\nC     STEP 4.  READ ELEMENTS INTO CORE\r\nC\r\n      CALL GOPEN (EST,X(B2),0)\r\n      CALL OPTP1A (Y(PCOR1),Y(PCOR2),Y(ECOR1),DTYP)\r\n      CALL CLOSE (EST,CREW)\r\n      IF (COUNT+1 .EQ. 0) GO TO 80\r\n      IF (NELW    .LE. 0) GO TO 60\r\nC\r\nC     STEP 5.  READ IN PROPERTIES IDS, SET V1.  SECOND BUFFER NOT NEEDED\r\nC\r\n      PRCOR1 = ECOR1 + NELW\r\n      YCOR   = YCOR  - NELW + SYSBUF\r\n      IF (YCOR .LT. NWDSP) GO TO 60\r\n      FILE = ECT\r\n      CALL PRELOC (*90,X(B1P1),ECT)\r\n      CALL OPTP1B (Y(PCOR1),Y(PCOR2),Y(ECOR1),Y(PRCOR1))\r\n      CALL CLOSE (ECT,CREW)\r\n      IF (COUNT+1 .EQ. 0) GO TO 60\r\n      IF (NPRW    .LE. 0) GO TO 80\r\nC\r\nC     STEP 6.  READ PROPERTY DATA INTO CORE\r\nC\r\n      KCOR1 = PRCOR1 + NPRW\r\n      YCOR  = YCOR   - NPRW\r\nC\r\n      FILE = EPT\r\n      CALL PRELOC (*90,X(B1P1),EPT)\r\n      CALL OPTP1C (Y(PCOR1),Y(PCOR2),Y(PRCOR1))\r\n      CALL CLOSE (EPT,CREW)\r\n      IF (COUNT+1 .EQ.0) GO TO 80\r\nC\r\nC     STEP 7.  PROCESS PLIMIT CARDS\r\nC\r\n      IF (NKLW .LE. 0) GO TO 50\r\n      IF (YCOR .LT. 4) GO TO 60\r\n      CALL GOPEN (SCRTH1,X(B1P1),NRREW)\r\n      CALL OPTP1D (Y(PCOR2),Y(PRCOR1),Y(KCOR1))\r\n      CALL CLOSE (SCRTH1,CREW)\r\n      IF (NKLW    .LT. 0) GO TO 60\r\n      IF (COUNT+1 .EQ. 0) GO TO 80\r\nC\r\nC     STEP 7.  COUNT=0, OUTPUT FILE OPTPR1\r\nC\r\n   50 FILE = OPTP1\r\n      CALL OPEN  (*90,OPTP1,X(B1P1),NWREW)\r\n      CALL WRITE (OPTP1,FNAM,2,0)\r\n      CALL WRITE (OPTP1,X(1),6,1)\r\nC\r\n      CALL WRITE (OPTP1,Y(PCOR1),NTYPES,0)\r\n      CALL WRITE (OPTP1,NPOW,1,0)\r\n      CALL WRITE (OPTP1,Y(PCOR2),2*(NPOW+1),1)\r\n      CALL WRITE (OPTP1,Y(ECOR1),NELW,1)\r\n      CALL WRITE (OPTP1,Y(PRCOR1),NPRW,1)\r\n      CALL WRITE (OPTP1,Y(KCOR1),NKLW,1)\r\n      CALL EOF   (OPTP1)\r\n      J      = 0\r\n      Y(J+1) = OPTP1\r\n      Y(J+2) = 0\r\n      Y(J+3) = NELW\r\n      Y(J+4) = NPRW\r\n      Y(J+5) = NKLW\r\n      Y(J+6) = 0\r\n      Y(J+7) = NTYPES\r\n      CALL WRTTRL (Y(1))\r\n      CALL CLOSE (OPTP1,CREW)\r\n      GO TO 130\r\nC\r\nC     ERROR MESSAGES - FILE NOT CREATED\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n   60 CALL PAGE2 (-3)\r\n      WRITE  (OUTTAP,70) UFM,NAME,B1P1,PCOR1,ECOR1,PRCOR1,KCOR1\r\n   70 FORMAT (A23,' 2289, ',2A4,'INSUFFICIENT CORE (',I10,2H ), /9X,I9,\r\n     1       ' = MATERIAL',I9,' = POINTERS',I9,' = ELEMENTS',I9,\r\n     2       ' = PROPERTIES')\r\n   80 CALL MESAGE(-61,EPT,NAME)\r\nC\r\nC    INPUT FILE PURGED - ILLEGALLY\r\nC\r\n   90 CALL MESAGE (-1,FILE,NAME)\r\nC\r\nC    OPTPR1 NOT CREATED\r\nC\r\n  110 CALL CLOSE (MPT,CREW)\r\n  120 COUNT = -1\r\nC\r\nC     OPTPR1 CREATED\r\nC\r\n  130 CONTINUE\r\n      CALL KLOCK (TSTART)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE\r\nC\r\n  140 WRITE  (OUTTAP,150) SFM\r\n  150 FORMAT (A25,', DATDTY AND DTYP ARRAYS TOO SMALL')\r\n      CALL MESAGE (-37,0,NAME)\r\n      END\r\n"
  },
  {
    "path": "mis/optpr2.f",
    "content": "      SUBROUTINE OPTPR2\r\nC\r\nC     THIS ROUTINE IS THE DRIVER FOR PROPERTY OPTIMIZATION, PHASE 2.\r\nC\r\nC     CALLING SEQUENCE\r\nC\r\nC     OPTPR2  OPTP1,OES1,EST1 / OPTP2,EST2 / V,N,PRINT / V,N,TSTART /\r\nC                                            V,N,COUNT / V,N,CARDNO $\r\nC     WHERE   PRINT  = INPUT/OUTPUT - INTEGER, CALL OFP IF 1, SKIP OFP\r\nC                      IF -1\r\nC             TSTART = INPUT - INTEGER, END TIME AT OPTPR1.\r\nC             COUNT  = INPUT/OUTPUT - INTEGER, ITERATION LOOP COUNTER.\r\nC             CARDNO = INPUT/OUTPUT - INTEGER, PUNCHED CARD COUNT\r\nC\r\nC     LOGICAL         DEBUG\r\n      INTEGER         PRINT,COUNT,YCOR,PARM(8),B1,NAME(2),CREW,FILE,\r\n     1                SYSBUF,OUTTAP,IY(1),NONE(2),OPTP1,OES1,EST1,OPTP2,\r\n     2                PTRRY,EST2,B2,PTPTY,PTELY,PTPRY,PTPLY,TG,TL,\r\n     3                TSTART,ZCOR\r\n      REAL            Y(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / PRINT,TSTART,COUNT,NCARD,SKP,YCOR,B1,NELOP,NWDSE,\r\n     1                NWDSP,OPTP1,OES1,EST1,OPTP2,EST2,\r\n     2                NELW,NPRW,NKLW,NTOTL,CONV\r\n      COMMON /OPTPW2/ ZCOR,Z(200)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /NAMES / NRD,NRREW,NWRT,NWREW,CREW\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (Y(1),IY(1),PARM(8)), (CORE(1),MAX,PARM(1)),\r\n     1                (PARM(4),IPRN ), (PARM(7),IPRNT)\r\n      DATA    NAME  / 4H OPT,4HPR2  /,   NONE / 4H (NO,4HNE)   /\r\n      DATA    PTPTY , PTELY,PTPRY,PTPLY,PTRRY / 5*0 /\r\nC     DATA    DEBUG / .FALSE /\r\nC\r\n      OPTP1 = 101\r\n      OES1  = 102\r\n      EST1  = 103\r\n      OPTP2 = 201\r\n      EST2  = 202\r\n      ZCOR  = 200\r\n      NWDSE = 5\r\n      NWDSP = 6\r\nC\r\nC     LOAD /GPTA1/ ON 1108\r\nC\r\n      CALL DELSET\r\nC\r\nC     STEP 1.  INITIALIZE AND READ POPT DATA\r\nC\r\n      B1  = KORSZ(CORE(1)) - SYSBUF + 1\r\n      B2  = B1 - SYSBUF\r\n      YCOR= B2 -1\r\n      IF (B2 .LE. 6) GO TO 10\r\n      COUNT = COUNT + 1\r\n      CONV  = 0.0\r\n      FILE  = OPTP1\r\n      CALL OPEN  (*105,FILE,PARM(B1),NRREW)\r\n      CALL FREAD (OPTP1,PARM(1),2,0)\r\n      CALL FREAD (OPTP1,PARM(1),6,1)\r\nC\r\nC     PARM NOW CONTAINS\r\nC\r\nC       1 = MAX  - MAX NUMBER OF ITERATIONS (I)\r\nC       2 = EPS  - CONVERGENCE TEST (R)\r\nC       3 = GAMA - ITERATION FACTOR (R)\r\nC       4 = IPRN - PRINT CONTROL (I)\r\nC     5,6 = KPUN - PUNCH CONTROL (BCD, YES OR NO)\r\nC\r\nC     NEW PROPERTIES ARE CALCULATED BY,\r\nC     PNEW = (PLST*ALPH) / (ALPH + (1-ALPH)GAMA)\r\nC\r\nC     STEP 2. CHECK TIME TO GO\r\nC\r\n      IF (COUNT .GT. MAX) GO TO 105\r\n      CALL TMTOGO (TG)\r\n      IF (TG .GT. 0) GO TO 5\r\n      CALL MESAGE (45,COUNT,NAME)\r\n      COUNT = 0\r\n      GO TO 110\r\n    5 CALL KLOCK (TL)\r\n      TL = (TL-TSTART)/COUNT\r\n      IF (TG .LE. TL) COUNT = MAX\r\n      IPRNT = 0\r\nC\r\nC     STEP 3. READ OPTP1 INTO CORE\r\nC\r\nC     RECORD 1 - POINTERS\r\nC\r\n      YCOR = YCOR - 7\r\n      IF (YCOR .LT. NTYPES) GO TO 10\r\nC\r\nC     POINTERS TO OPTIMIZING POINTERS\r\nC\r\n      CALL FREAD (OPTP1,Y(1),NTYPES,0)\r\nC\r\nC     NUMBER OF ELEMENT TYPES THAT MAY BE OPTIMIZED\r\nC\r\n      CALL FREAD (OPTP1,NELOP,1,0)\r\nC\r\nC     ELEMENT AND PROPERTY POINTERS OF (2,NELOP+1) LENGTH\r\nC\r\n      YCOR = YCOR - NTYPES\r\n      I    = 2*(NELOP+1)\r\n      PTPTY= NTYPES + 1\r\n      IF (YCOR .LT. I) GO TO 10\r\n      CALL FREAD (OPTP1,Y(PTPTY),I,1)\r\nC\r\nC     RECORD 2 - ELEMENT DATA\r\nC\r\n      YCOR  = YCOR  - I\r\n      PTELY = PTPTY + I\r\n      IF (YCOR .LT. NWDSE+NWDSP) GO TO 10\r\n      CALL READ (*10,*30,OPTP1,Y(PTELY),YCOR,1,NELW)\r\nC\r\nC     INSUFFICIENT CORE - PRINT START OF EACH SECTION\r\nC\r\nC\r\n   10 CALL PAGE2 (-3)\r\n      I = NTYPES + 1\r\n      WRITE  (OUTTAP,20) UFM,NAME,B1,I,PTPTY,PTELY,PTPRY\r\n   20 FORMAT (A23,' 2289, ',2A4,'INSUFFICIENT CORE (',I10,2H ), /9X,I9,\r\n     1       ' = MATERIAL',I9,' = POINTERS',I9,' = ELEMENTS',I9,\r\n     2       ' = PROPERTIES')\r\n      CALL CLOSE (FILE,CREW)\r\n      GO TO 100\r\nC\r\nC     RECORD 3 - PROPERTY DATA\r\nC\r\n   30 IF (NELW .LT. NWDSE) GO TO 50\r\n      PTPRY = PTELY + NELW\r\n      YCOR  = YCOR  - NELW\r\n      IF (YCOR .LT. NWDSP) GO TO 10\r\n      CALL READ (*10,*40,OPTP1,Y(PTPRY),YCOR,1,NPRW)\r\n      GO TO 10\r\nC\r\nC     RECORD 4 - PLIMIT DATA\r\nC\r\n   40 IF (NPRW .LT. NWDSP) GO TO 50\r\n      PTPLY = PTPRY + NPRW\r\n      YCOR  = YCOR  - NPRW\r\n      IF (YCOR .LT. 0) GO TO 10\r\n      CALL READ (*10,*70,OPTP1,Y(PTPLY),YCOR,1,NKLW)\r\n      GO TO 10\r\nC\r\nC     INSUFFICIENT DATA\r\nC\r\n   50 CALL CLOSE (FILE,CREW)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,60) UFM,NAME\r\n   60 FORMAT (A23,' 2302, SUBROUTINE ',2A4,' HAS NO PROPERTY OR ',\r\n     1        'ELEMENT DATA.')\r\n      GO TO 100\r\nC\r\nC     CLOSE OPTP1 FILE.\r\nC     ALLOCATE AN ARRAY WITH STARTING POINTER PTRRY, OF LENGTH EQUALS TO\r\nC     THE NO. OF PROPERTY CARDS (TO BE USED IN OPT2A, 2B, AND 2C)\r\nC     SET VARIABLE NTOTL TO THE TOTAL LENGTH OF WORDS USED IN OPEN CORE\r\nC     RE-ESTABLISH OPEN CORE UPPER LIMIT, YCOR\r\nC\r\n   70 CALL CLOSE (FILE,CREW)\r\n      PTRRY = PTPLY + NKLW\r\n      NTOTL = PTRRY + NPRW/NWDSP + 1\r\n      IY(NTOTL-1) = -1234567\r\n      IF (NTOTL .GT. YCOR) GO TO 10\r\n      YCOR = B2 - 1\r\n      DO 80 J = NTOTL,YCOR\r\n   80 IY(J) = 0\r\nC\r\nC     READ STRESS DATA, SET ALPH\r\nC\r\n      FILE = OES1\r\n      CALL GOPEN (FILE,PARM(B1),NRREW)\r\n      CALL OPT2A (IY(PTPTY),Y(PTELY),IY(PTELY),Y(PTPRY),IY(PTPRY),\r\n     1            Y(PTRRY))\r\n      IF (IY(NTOTL-1) .NE. -1234567) GO TO 120\r\n      CALL CLOSE (FILE,CREW)\r\n      IF (COUNT .GT. MAX) GO TO 105\r\nC\r\nC     SET NEW PROPERTY, CHECK FOR CONVERGENCE\r\nC\r\n      CALL OPT2B (IY(PTPRY),Y(PTPRY),Y(PTPLY),Y(PTRRY))\r\nC\r\nC     CREATE EST2, PUNCH PROPERTIES IF CONVERGED\r\nC\r\n      PRINT = -1\r\n      IF (COUNT.GE.MAX .OR. COUNT.LE.1 .OR. CONV.EQ. 2.) PRINT = 1\r\n      IF (IPRN .LT.0  .AND. MOD(COUNT,IABS(IPRN)).EQ. 0) PRINT = 1\r\n      IF (COUNT.GT.MAX .OR. COUNT.LT.0) GO TO 90\r\n      IF (COUNT.EQ.1 .OR. COUNT.GE.MAX .OR. MOD(COUNT,IABS(IPRN)).EQ.0\r\n     1   .OR. CONV.EQ.2.) IPRNT = 1\r\n      FILE = EST1\r\n      CALL OPEN  (*95,FILE,PARM(B1),NRREW)\r\n      CALL FREAD (FILE,NONE(1),2,1)\r\n      FILE = EST2\r\n      CALL GOPEN (FILE,PARM(B2),NWREW)\r\n      CALL OPT2C (Y(PTPTY),IY(PTELY),IY(PTPRY),Y(PTPRY),Y(PTRRY))\r\n      CALL CLOSE (FILE,CREW)\r\n      CALL CLOSE (EST1,CREW)\r\nC\r\nC     COPY OPTPR1 TO OPTPR2 - CHANGE RECORD 3\r\nC\r\n   90 IF (COUNT .GT. MAX) GO TO 105\r\n      CALL OPEN (*95,OPTP1,PARM(B1),NRREW)\r\n      FILE = OPTP2\r\n      CALL OPEN  (*95,FILE,PARM(B2),NWREW)\r\n      CALL OPT2D (IY(PTPRY),Y(PTPRY))\r\n      CALL CLOSE (FILE,CREW)\r\n      CALL CLOSE (OPTP1,CREW)\r\n      GO TO 110\r\nC\r\nC     FILE NOT PRESENT\r\nC\r\n   95 CALL MESAGE (-1 ,FILE,NAME)\r\n  100 CALL MESAGE (-61,B2,NAME)\r\n  105 COUNT = -1\r\n      CALL CLOSE (OPTP1,1)\r\n  110 IF (CONV .EQ. 2.0) COUNT = MAX\r\n      IF (COUNT .LE.  0) PRINT = 1\r\n      IF (COUNT .EQ.  0) COUNT =-1\r\n      RETURN\r\nC\r\n  120 WRITE  (OUTTAP,125) NTOTL,PTRRY\r\n  125 FORMAT (32H0*** RR DIMENSION ERROR/OPTPR2  ,2I7)\r\n      GO TO 100\r\n      END\r\n"
  },
  {
    "path": "mis/optpx.f",
    "content": "      SUBROUTINE OPTPX (DTYP)\r\nC\r\nC     PROCESS PLIMIT CARDS INTO ELEMENT SECTIONS THAT MAY BE READ BY\r\nC     OPTP1D\r\nC     MPT ASSUMED PREPOSITIONED TO PLIMIT CARDS.\r\nC\r\n      INTEGER         COUNT,YCOR,B1P1,NPOW,EPT,NAME(2),SYSBUF,OUTTAP,\r\n     1                DTYP(1),ETP(21),ANY,ALL,STOR(21),BLANK,EJECT,\r\n     2                SCRTH1,ENTRY,X(7),IY(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / SKP1(2),COUNT,SKP2(2),YCOR,B1P1,NPOW,SKP3(4),NKLW,\r\n     1                MPT,EPT,SKP5(4),SCRTH1,NELTYP,ENTRY(21)\r\n      COMMON /OPTPW1/ KCOR,K(10)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /NAMES / NRD,NOEOR,NWRT,NWEOR\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /GPTA1 / NTYPES,LAST,INCR,NE(1)\r\n      EQUIVALENCE     (STOR(1),K(10)),(CORE(1),X(1)),(X(7),IY(1))\r\n      DATA    ETP   / 21*0 /,  ALL / 4HALL /,  BLANK / 1H  /,\r\n     1        NAME  / 4H OPT,  4HPX        /\r\nC\r\n      MAXW  = 0\r\n      IALL  = 0\r\n      ANY   = 0\r\n      NOCOR = 0\r\n      NOGO  = 0\r\n      NX    = 1\r\n      ASSIGN 10 TO IRET\r\nC\r\nC     MAKE PRELIMINARY PASS\r\nC\r\n   10 IMHERE = 10\r\n      CALL READ (*310,*110,MPT,K,9,0,NWDS)\r\n      IF (K(1) .EQ. ALL) GO TO 30\r\n      DO 20 I = 1,NTYPES\r\n      IF (DTYP(I) .EQ. 0) GO TO 20\r\n      IDX = INCR*(I-1) + 1\r\n      IF (NE(IDX  ) .NE. K(1)) GO TO 20\r\n      IF (NE(IDX+1) .EQ. K(2)) GO TO 40\r\n   20 CONTINUE\r\n      GO TO 50\r\nC\r\nC     ALL SPECIFIED\r\nC\r\n   30 IALL = IALL + 1\r\n      GO TO 10\r\nC\r\nC     LEGAL ELEMENT TYPE\r\nC\r\n   40 I = DTYP(I)\r\n      ETP(I) = ETP(I) + 1\r\n      ANY = ANY + 1\r\n      GO TO 10\r\nC\r\nC     ILLEGAL ELEMENT TYPE\r\nC\r\n   50 NOGO = NOGO + 1\r\n      IF (NOGO .GT. 1) GO TO  70\r\n      CALL PAGE2 (-4)\r\n      WRITE  (OUTTAP,60) UFM\r\n   60 FORMAT (A23,' 2290, THE FOLLOWING ILLEGAL ELEMENT TYPES FOUND ON',\r\n     1       ' PLIMIT CARD')\r\n   70 STOR(NX  ) = K(1)\r\n      STOR(NX+1) = K(2)\r\n      NX = NX + 2\r\n      IF (NX .LT. 20) GO TO 10\r\n   80 I = EJECT(2)\r\n      IF (I .EQ. 0) GO TO 90\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,60) UFM\r\n   90 WRITE  (OUTTAP,100) STOR\r\n  100 FORMAT (1H0,9X,10(2A4,1X))\r\n      NX = 1\r\n      GO TO IRET, (10,130)\r\nC\r\nC     LAST PLIMIT\r\nC\r\n  110 IF (NX .LE. 1) GO TO 130\r\n      ASSIGN 130 TO IRET\r\n      DO 120 I = NX,20\r\n  120 STOR(I) = BLANK\r\n      GO TO 80\r\nC\r\nC     CONTINUE PROCESSING LEGAL CARDS UNLESS ANY = 0\r\nC\r\n  130 IF (ANY.EQ.0 .AND. IALL.EQ.0) GO TO 300\r\n      CALL BCKREC (MPT)\r\n      IMHERE = 130\r\n      CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS)\r\nC\r\n      LOC1 = 1\r\nC\r\nC     START OF OUTPUT LOOP\r\nC\r\n      DO 290 N = 1,NTYPES\r\n      IDE = DTYP(N)\r\n      IF (IDE .LE. 0) GO TO 290\r\n      IDX = ENTRY(IDE)\r\n      IDX = INCR*(IDX-1)\r\n      NEN = 0\r\n      NDE = ETP(IDE)\r\n      IF (NDE .LE. 0) GO TO 160\r\n      NWDS = 0\r\nC\r\n      IMHERE = 140\r\n      DO 150 M = 1,NDE\r\n  140 CALL READ (*310,*320,MPT,STOR(1),9,NOEOR,NWDS)\r\n      IF (STOR(1) .NE. NE(IDX+1)) GO TO 140\r\n      IF (STOR(2) .NE. NE(IDX+2)) GO TO 140\r\n      CALL OPTPX1 (*260,STOR,NOGO,NEN,LOC1)\r\n  150 CONTINUE\r\n      CALL BCKREC (MPT)\r\n      IMHERE = 150\r\n      CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS)\r\nC\r\nC     CHECK IF ALL SPECIFIED\r\nC\r\n  160 IF (IALL .LE. 0) GO TO 190\r\n      IMHERE = 170\r\n      DO 180 M = 1,IALL\r\n  170 CALL READ (*310,*320,MPT,STOR(1),9,NOEOR,NWDS)\r\n      IF (STOR(1) .NE. ALL) GO TO 170\r\n      CALL OPTPX1 (*260,STOR,NOGO,NEN,LOC1)\r\n  180 CONTINUE\r\n      CALL BCKREC (MPT)\r\n      IMHERE = 180\r\n      CALL READ (*310,*320,MPT,STOR(1),3,NOEOR,NWDS)\r\nC\r\nC     CONTINUE PROCESSING LEGAL CARDS - SORT ON SECOND WORD\r\nC\r\n  190 IF (NEN .EQ. 0) GO TO 290\r\n      CALL SORT (0,0,4,2,IY(LOC1),NEN)\r\nC\r\nC     CHECK SECOND WORD\r\nC\r\n      I1  = IY(LOC1  )\r\n      I2  = IY(LOC1+1)\r\n      I3  = IY(LOC1+2)\r\n      I4  = IY(LOC1+3)\r\n      LOC2= LOC1 + NEN\r\n      L   = LOC2\r\n      IF (L+4 .GT. YCOR) NWDS = 1\r\n      NX = NEN - 3\r\n      IF (NX .LT. 5) GO TO 250\r\n      DO 240 M = 5,NX,4\r\n      J  = LOC1 + M - 1\r\n      J1 = IY(J  )\r\n      J2 = IY(J+1)\r\nC\r\n      IF (I1 .GE. J1) GO TO 220\r\n      IF (I2 .GE. J1) GO TO 220\r\nC\r\nC     CHECK FOR EXPANDING THE THRU\r\nC\r\n      IF (I2 .NE.    J1-1) GO TO 200\r\n      IF (I3 .NE. IY(J+2)) GO TO 200\r\n      IF (I4 .NE. IY(J+3)) GO TO 200\r\n      I2 = J2\r\n      IF (M .NE. NX) GO TO 240\r\n      IY(NX) = I1\r\n      GO TO 250\r\nC\r\nC     OUTPUT PLIMIT DATA IN SETS OF 4\r\nC\r\n  200 IF (NOGO.GT.0 .OR. NWDS.GT.0) GO TO 210\r\n      IY(L  ) = I1\r\n      IY(L+1) = I2\r\n      IY(L+2) = I3\r\n      IY(L+3) = I4\r\n  210 L = L + 4\r\n      IF (L+3 .GT. YCOR) NWDS = NWDS + 4\r\n      I1 = J1\r\n      I2 = J2\r\n      I3 = IY(J+2)\r\n      I4 = IY(J+3)\r\n      GO TO 240\r\nC\r\nC     OVERLAPPING RANGE ERROR CONDITION\r\nC\r\n  220 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,230) UFM,I1,I2,J1,J2\r\n  230 FORMAT (A23,' 2291, PLIMIT RANGE INCORRECT FOR',I8,' THRU',I8,\r\n     1       ' AND',I8,' THRU',I8,'.')\r\n      I1 = J1\r\n      I2 = J2\r\n      NOGO = NOGO + 1\r\n  240 CONTINUE\r\nC\r\nC     AFTER ELEMENTS THAT MAY BE OPTIMIZED, FLUSH BUFFER.\r\nC\r\n  250 IF (L+3 .GT. YCOR) GO TO 260\r\n      IY(L  ) = IY(NX  )\r\n      IY(L+1) = IY(NX+1)\r\n      IY(L+2) = IY(NX+2)\r\n      IY(L+3) = IY(NX+3)\r\n      L = L + 3\r\n      GO TO 280\r\nC\r\nC     INSUFFICIENT CORE FOR ELEMENTS OF THIS TYPE\r\nC\r\n  260 CALL PAGE2 (-2)\r\n      NOCOR = 1\r\n      NWDS  = NWDS + 3\r\n      WRITE  (OUTTAP,270) UFM,NE(IDX+1),NE(IDX+2),NWDS\r\n  270 FORMAT (A23,' 2292, INSUFFICIENT CORE FOR PLIMIT DATA, ELEMENT ',\r\n     1       2A4,I5,' WORDS SKIPPED.')\r\n      NOGO = NOGO + 1\r\nC\r\nC     WRITE ONTO SCRATCH FILE\r\nC\r\n  280 IF (NOGO .GT. 0) GO TO 290\r\n      MAXW = MAX0(L,MAXW)\r\n      STOR(1) = IDE\r\n      STOR(2) = (L-LOC2+1)/4\r\n      CALL WRITE (SCRTH1,STOR(1),2,NOEOR)\r\nC\r\nC     AFTER ELEMENT TYPE, NUMBER WORDS - WRITE DATA\r\nC\r\n      CALL WRITE (SCRTH1,IY(LOC2),L-LOC2+1,NWEOR)\r\nC\r\n  290 CONTINUE\r\nC\r\nC     END OF OUTPUT LOOP\r\nC\r\n      CALL EOF (SCRTH1)\r\n  300 IF (NOGO  .EQ. 0) NKLW  = MAXW\r\n      IF (NOGO  .GT. 0) COUNT = -1\r\n      IF (NOCOR .NE. 0) NKLW  = -64\r\n      RETURN\r\nC\r\nC     ILLEGAL EOF (310), EOR (320)\r\nC\r\n  310 J = -2\r\n      NWDS = -222\r\n      GO TO 330\r\n  320 J = -3\r\n  330 WRITE  (OUTTAP,340) IMHERE,NWDS\r\n  340 FORMAT ('  ERROR IN OPTPX.  IMHERE=',I4,',  NWDS=',I6)\r\n      CALL MESAGE (J,MPT,NAME)\r\n      GO TO 300\r\n      END\r\n"
  },
  {
    "path": "mis/optpx1.f",
    "content": "      SUBROUTINE OPTPX1 (*,STOR,NOGO,NEN,LOC1)\r\nC\r\nC     PROCESS PID DATA ON PLIMIT CARD\r\nC\r\n      INTEGER         STOR(15),SYSBUF,OUTTAP,YCOR,THRU,NAM(2),X(7),IY(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / SKP1(5),YCOR\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      EQUIVALENCE     (CORE(1),X(1)),(X(7),IY(1))\r\n      DATA    THRU  / 4HTHRU  /\r\nC\r\n      NAM(1) = STOR(1)\r\n      NAM(2) = STOR(2)\r\n      IF (STOR(6) .EQ. THRU) GO TO 100\r\nC\r\nC     USER SPECIFIED BY EXPLICIT ID-S\r\nC\r\n      CALL SORT (0,0,1,1,STOR(5),5)\r\nC\r\nC     CREATE PSEUDO THRU RANGE\r\nC     LOCATE FIRST NONZERO\r\nC\r\n      DO 10 L = 5,9\r\n      IF (STOR(L) .NE. 0) GO TO 30\r\n   10 CONTINUE\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,20) UFM,NAM\r\n   20 FORMAT (A23,' 2293, NO PID ENTRIES ON PLIMIT CARD (',2A4,2H).)\r\n      NOGO = NOGO + 1\r\n      GO TO 110\r\nC\r\nC     LOOP ON ENTRIES\r\nC\r\n   30 CONTINUE\r\n      I1 = STOR(L)\r\n      I3 = 1\r\n   35 I2 = STOR(L+1)\r\n      IF (L-9) 40,60,130\r\n   40 IF (I2-I1-I3) 80,50,60\r\nC\r\nC     THRU CAN BE EXPANDED\r\nC\r\n   50 L  = L  + 1\r\n      I3 = I3 + 1\r\n      GO TO 35\r\nC\r\nC     PUT OUT I1,I2\r\nC\r\n   60 STOR(1) = I1\r\n      STOR(2) = STOR(L)\r\n      IF (LOC1+3+NEN .GT. YCOR) GO TO 120\r\n      CALL BISHEL (*80,STOR,NEN,4,IY(LOC1))\r\n   70 L = L + 1\r\n      IF (L-9) 30,30,110\r\nC\r\nC     DUPLICATE ENTRIES FOUND\r\nC\r\n   80 CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,90) UFM,I1,I2,NAM\r\n   90 FORMAT (A23,' 2294, DUPLICATE',I8,' THRU',I8,' RANGE FOR ELEMENT',\r\n     1        1X,2A4,' REJECTED PLIMIT. SCAN CONTINUED.')\r\n      NOGO = NOGO + 1\r\n      GO TO 70\r\nC\r\nC     USER SPECIFIED BY USING THRU\r\nC\r\n  100 L = 8\r\n      STOR(9) = STOR(8)\r\n      STOR(8) = STOR(5)\r\n      GO TO 30\r\nC\r\nC     THIS PLIMIT FINISHED\r\nC\r\n  110 CONTINUE\r\n      RETURN\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  120 CONTINUE\r\n      STOR(1) = NAM(1)\r\n      STOR(2) = NAM(2)\r\n      RETURN 1\r\nC\r\n  130 CALL MESAGE (-7,0,NAM)\r\n      GO TO 120\r\n      END\r\n"
  },
  {
    "path": "mis/order.f",
    "content": "      SUBROUTINE ORDER (GPLST,ID,REST,GRIDS,IDTAB,LCOR,B1,B2,B3)\r\nC\r\n      LOGICAL         SPILL\r\n      INTEGER         GRIDS(1),ID(1),IDTAB(2),TP,GPLST(1),IGRD(2),SCR4,\r\n     1                ISYM(14),ITYPE(14),HOLD(3),ELID,SILS(34),REST(2),\r\n     2                EST,SIL,SCR2,ECPT,B1,B2,B3,THREE(3),OFFSET\r\n      COMMON /BLANK / NGP,SKP(11),EST,SKIP1(3),SIL,SKIP2(5),ECPT,OES1,\r\n     1                SCR1,SCR2,NEWOES,SCR4\r\n      EQUIVALENCE     (THREE(1),IFLAG),(THREE(2),NELMT),(THREE(3),IGDPT)\r\n      EQUIVALENCE     (KQ4,ISYM(13)),(KT3,ISYM(14))\r\n      DATA    ISYM  / 2HSH,2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1,\r\n     1                2HM1,2HM2,2HQ4,2HT3/    ,KBAR/2HBR/\r\n      DATA    ITYPE / 4,6,7,8,9,15,16,17,18,19,62,63,64,83/\r\n      DATA    NTYPE / 14 /\r\nC\r\nC     BUILD A TABLE FOR GPECT POINTERS TO ELID AND ITS ORDERED GRID PTS\r\nC\r\n      SPILL = .FALSE.\r\n      J = 1\r\n      I = 3\r\n      IDTAB(1) = 0\r\n      JSPILL = 1\r\n      LCORX  = LCOR\r\n      NEWIN  = SCR4\r\n      NEWOUT = SCR2\r\n 2    CALL READ (*130,*12,EST,TP,1,0,M)\r\n      OFFSET = 0\r\n      IF (TP .EQ. KBAR) OFFSET = 6\r\n      IF (TP.EQ.KT3 .OR. TP.EQ.KQ4) OFFSET = 1\r\n 3    CALL FREAD (EST,NGPPE,1,0)\r\n      IDTAB(I-1) = NGPPE\r\nC\r\nC     SKIP PAST THE NON-CONTOUR ELEMENTS\r\nC\r\n      DO 4 K = 1,NTYPE\r\n      IF (TP .EQ. ISYM(K)) GO TO 8\r\n 4    CONTINUE\r\n 6    CALL FREAD (EST,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO 2\r\n      J = 1 + NGPPE + OFFSET\r\n      CALL FREAD (EST,0,-J,0)\r\n      GO TO 6\r\nC\r\nC     CONSTRUCT IDTAB  1. 0, 2.NGPPE, 3.ELID, 4.ELIDPTR, 5.REPEAT.  3,4\r\nC     FOR ALL ELEMENTS OF THIS TYPE, 6.REPEAT 1-5 FOR ALL ELEMENTS IN\r\nC     THE SET. CONSTRUCT GRIDS  1-NGPPE. GRIDS FOR 1ST ELEMENT, NEXT.\r\nC     REPEAT 1ST FOR ALL ELEMENTS IN THE IDTAB\r\nC\r\n 8    CALL READ (*12,*12,EST,IDTAB(I),2,0,M)\r\n      I = I + 2\r\n      IF (IDTAB(I-2) .NE. 0) GO TO 10\r\nC\r\nC     END OF ELEMENTS OF THIS TYPE\r\nC\r\n      TP = IDTAB(I-1)\r\n      GO TO 3\r\nC\r\n 10   CALL FREAD (EST,GRIDS(J),NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (EST,0,-OFFSET,0)\r\n      J = J + NGPPE\r\n      IF (I .GE. LCORX) GO TO 14\r\n      GO TO 8\r\nC\r\nC     TABLE FIT INTO CORE\r\nC\r\n 12   CALL BCKREC (EST)\r\n      GO TO 16\r\nC\r\nC     SPILL OCCURS - TABLE DID NOT FIT\r\nC\r\n 14   SPILL = .TRUE.\r\nC\r\nC     END OF TABLE\r\nC\r\n 16   LIDTAB = I - 1\r\n      IF (LIDTAB .LE. 2) GO TO (130,140), JSPILL\r\n      LGRIDS = J - 1\r\n      LASTNG = NGPPE\r\n      GO TO (18,140), JSPILL\r\n 18   CALL OPEN (*130,ECPT,GPLST(B2),0)\r\n      CALL GOPEN (SCR2,GPLST(B1),1)\r\n      CALL FWDREC (*120,ECPT)\r\n      IGDPT = 0\r\n 20   IGDPT = IGDPT + 1\r\n      IEOR  = 0\r\n      IF (GPLST(IGDPT) .NE. 0) GO TO 25\r\n      CALL FWDREC (*120,ECPT)\r\n      GO TO 20\r\n 25   NELMT = 0\r\n      IFLAG =-1\r\nC\r\nC      ECPT--1. PIVOT POINT, 2. DEG.FREEDOM, 3. -LENGTH, 4. ELID POINTER\r\nC      5. ELTYPE, 6.SILS (THERE ARE (LENGTH-2) OF THEM), 7. REPEAT ITEMS\r\nC      (3-6) FOR ALL ELEMENTS ATTACHED TO PIVOT, 8. EOR, 9. REPEAT ITEMS\r\nC      (1-8) FOR ALL GRIDS IN THE PROBLEM.\r\nC\r\n      CALL READ (*120,*120,ECPT,IGRD,2,0,M)\r\n 30   CALL READ (*120,*75,ECPT,LENGTH,1,0,M)\r\n      CALL FREAD (ECPT,SILS,-LENGTH,0)\r\n      TP = SILS(2)\r\n      DO 32 I = 1,NTYPE\r\n      IF (TP .EQ. ITYPE(I)) GO TO 33\r\n 32   CONTINUE\r\n      GO TO 30\r\nC\r\nC     MATCH ELIDPTR WITH ITS ELID AND GRID POINTS IF POSSIBLE\r\nC\r\n 33   J = 1\r\n      DO 50 I = 1,LIDTAB,2\r\n      IF (IDTAB(I)) 40,35,40\r\n 35   NGPPE = IDTAB(I+1)\r\n      GO TO 50\r\n 40   IF (IDTAB(I+1) .EQ. SILS(1)) GO TO 55\r\n      J = J + NGPPE\r\n 50   CONTINUE\r\nC\r\nC     IF NOT IN THE TABLE, IS THERE SPILL(IE IS TABLE NOT COMPLETE).\r\nC     NO SPILL, SKIP HIM.  YES SPILL, FLAG HIM.\r\nC\r\n      IF (.NOT.SPILL) GO TO (30,145), JSPILL\r\n      ELID  =-SILS(1)\r\n      NELMT = NELMT + 1\r\n      GO TO 70\r\nC\r\nC     FOUND ELEMENT IN THE TABLE\r\nC\r\n 55   ELID = IDTAB(I)\r\n      DO 60 I = 1,NGPPE\r\n      K = J + I - 1\r\n      IF (IGDPT .EQ. GRIDS(K)) GO TO 65\r\n 60   CONTINUE\r\n 65   IAFTER = I - (I/NGPPE)*NGPPE + J\r\n      IBEFOR = J + I - 2\r\n      IF (I .EQ. 1) IBEFOR = IBEFOR + NGPPE\r\n      NELMT = NELMT + 1\r\n      REST(2*NELMT-1) = GRIDS(IAFTER)\r\n      REST(2*NELMT  ) = GRIDS(IBEFOR)\r\n 70   ID(NELMT) = ELID\r\n      IF (NELMT .LT. LCOR/2) GO TO (30,145), JSPILL\r\n      GO TO 80\r\n 75   IF (NELMT .EQ. 0) GO TO (20,140), JSPILL\r\n      IEOR = 1\r\nC\r\nC     ORDER ELEMENTS IF WE HAVE REACHED END OF EST FILE\r\nC\r\n 80   IF (SPILL) GO TO 112\r\n      IF (NELMT .LE.2)  GO TO 110\r\n      INDEX = 3\r\n      IALL  = 2*NELMT\r\n      IONE  = REST(1)\r\n      ITWO  = REST(2)\r\n 85   IF (IONE .EQ. ITWO) GO TO 105\r\n      DO 90 I = INDEX,IALL,2\r\n      IF (ITWO .EQ. REST(I)) GO TO 95\r\n 90   CONTINUE\r\n      GO TO 110\r\n 95   IF (I .EQ. INDEX) GO TO 100\r\n      J = (INDEX+1)/2\r\n      K = (I+1)/2\r\n      HOLD(1) = ID(J)\r\n      ID(J)   = ID(K)\r\n      ID(K)   = HOLD(1)\r\n      HOLD(2) = REST(INDEX  )\r\n      HOLD(3) = REST(INDEX+1)\r\n      REST(INDEX  ) = REST(I  )\r\n      REST(INDEX+1) = REST(I+1)\r\n      REST(I  ) = HOLD(2)\r\n      REST(I+1) = HOLD(3)\r\n 100  INDEX = INDEX + 2\r\n      ITWO  = REST(INDEX-1)\r\n      IF (INDEX .LT. IALL) GO TO 85\r\n      IF (IONE  .NE. ITWO) GO TO 110\r\nC\r\nC     INTERIOR ELEMENTS\r\nC\r\n 105  CALL WRITE (NEWOUT,THREE,3,0)\r\n      CALL WRITE (NEWOUT,ID,NELMT,1)\r\n      IF (IGDPT .LT. NGP) GO TO (20,140), JSPILL\r\n      GO TO 120\r\nC\r\nC     BORDER ELEMENTS\r\nC\r\n 110  IFLAG = -2\r\n 112  CALL WRITE (NEWOUT,THREE,3,0)\r\n      J = -1\r\n      DO 115 I = 1,NELMT\r\n      J = J + 2\r\n      CALL WRITE (NEWOUT,ID(I),1,0)\r\n      CALL WRITE (NEWOUT,REST(J),2,0)\r\n 115  CONTINUE\r\n      IQ = 2*NELMT\r\n      CALL WRITE (NEWOUT,0,0,1)\r\n      GO TO (118,140), JSPILL\r\n 118  IF (IEOR) 25,25,119\r\n 119  IF (IGDPT .LT.NGP) GO TO 20\r\n 120  CALL CLOSE (ECPT,1)\r\n 125  CALL WRITE (NEWOUT,0,1,1)\r\n      CALL CLOSE (NEWOUT,1)\r\nC\r\nC     IF NO SPILL -  RETURN\r\nC\r\n 130  IF (.NOT.SPILL) GO TO 170\r\nC\r\nC    COME HERE IF WE HAVE SPILL\r\nC\r\n      I = NEWOUT\r\n      NEWOUT = NEWIN\r\n      NEWIN  = I\r\n      CALL GOPEN (NEWIN,GPLST(B1),0)\r\n      CALL GOPEN (NEWOUT,GPLST(B2),1)\r\n      JSPILL = 2\r\n      NGPPE  = LASTNG\r\n      IDTAB(1) = 0\r\n      IDTAB(2) = LASTNG\r\n      I = 3\r\n      J = 1\r\n      SPILL = .FALSE.\r\n      GO TO 8\r\nC\r\nC     TABLE CONSTRUCTED SO RETURN HERE\r\nC\r\n 140  CALL READ (*160,*160,NEWIN,THREE,3,0,M)\r\n      NELMT = 0\r\n 145  CALL READ (*160,*75,NEWIN,SILS(1),3,0,M)\r\n      IF (SILS(1)) 150,150,155\r\n 150  SILS(1) = -SILS(1)\r\n      GO TO 33\r\n 155  ELID  = SILS(1)\r\n      NELMT = NELMT + 1\r\n      REST(2*NELMT-1) = SILS(2)\r\n      REST(2*NELMT  ) = SILS(3)\r\n      GO TO 70\r\nC\r\nC     END OF FILE\r\nC\r\n 160  CALL CLOSE (NEWIN,1)\r\n      GO TO 125\r\nC\r\nC     OUTPUT FILE MUST BE SCRATCH 2\r\nC\r\n 170  IF (NEWOUT .EQ. SCR2) RETURN\r\n      CALL GOPEN  (NEWOUT,GPLST(B1),0)\r\n      CALL GOPEN  (SCR2,GPLST(B2),1)\r\n      CALL CPYFIL (NEWOUT,SCR2,REST,LCOR,M)\r\n      CALL CLOSE  (SCR2,1)\r\n      CALL CLOSE  (NEWOUT,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ortck.f",
    "content": "      SUBROUTINE ORTCK (X,MASS,IBUF,NUM,NDIM,GM,ACCUM,EPS)\r\nC\r\nC     ORTCK WILL GENERATE THE GENERALIZED MASS MATRIX FOR CLOSE ROOTS\r\nC     AND MAKE THE EPSILON TEST TO DETERMINE IF THE VECTORS SHOULD BE\r\nC     ORTHOGONALIZED\r\nC\r\n      DOUBLE PRECISION   ACCUM(1)\r\n      DIMENSION          IBUF(1)   ,X(NDIM,1),GM(NUM,1),IM(7)\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR(1)\r\n      COMMON   /ZNTPKX/  Z(4)      ,II       ,IEOL\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP\r\nC\r\n      IDEN  = 0\r\n      IM(1) = MASS\r\n      CALL RDTRL (IM)\r\n      IF (IM(4) .EQ. 8) IDEN = 1\r\n      IF (IDEN  .EQ. 1) GO TO 10\r\n      CALL GOPEN (MASS,IBUF,0)\r\n   10 K = 1\r\n   20 DO 30 I = 1,NUM\r\n      DO 30 J = 1,NUM\r\n   30 GM(I,J) = 0.\r\n      DO 110 I = 1,NDIM\r\n      DO 40 J = 1,NUM\r\n   40 ACCUM(J) = 0.D0\r\n      IF (IDEN .EQ. 1) GO TO 80\r\n      CALL INTPK (*110,MASS,0,RSP,0)\r\n   50 IF (IEOL .EQ. 1)GO TO 90\r\n      CALL ZNTPKI\r\n   60 DO 70 J = 1,NUM\r\n   70 ACCUM(J) = ACCUM(J) + Z(1)*X(II,J)\r\n      GO TO 50\r\nC\r\nC     IDENTITY\r\nC\r\n   80 IEOL = 1\r\n      II   = I\r\n      Z(1) = 1.0\r\n      GO TO 60\r\n   90 DO 100 J = 1,NUM\r\n      DO 100 M = 1,NUM\r\n  100 GM(J,M) = GM(J,M) + ACCUM(J)*X(I,M)\r\n  110 CONTINUE\r\n      IF (IDEN .EQ. 1) GO TO 120\r\n      CALL REWIND (MASS)\r\n      CALL SKPREC (MASS,1)\r\n  120 GM(1,1) = SQRT(GM(1,1))\r\n      DO 130 I = 2,NUM\r\n      GM(I,I) = SQRT(GM(I,I))\r\n      II = I - 1\r\n      DO 130 J = 1,II\r\n  130 GM(I,J) = GM(I,J)/(GM(I,I)*GM(J,J))\r\n      DO 140 I = 1,NUM\r\n      DO 140 J = 1,NDIM\r\n  140 X(J,I) = X(J,I)/GM(I,I)\r\n      J = 0\r\n  150 DO 170 KK = 1,K\r\n      IF (ABS(GM(K+1,KK)) .LT. EPS) GO TO 170\r\n      J = 1\r\n      DO 160 I = 1,NDIM\r\n  160 X(I,K+1) = X(I,K+1) - GM(K+1,KK)*X(I,KK)\r\n  170 CONTINUE\r\n      K = K + 1\r\n      IF (K .GE. NUM) GO TO 180\r\n      IF (J .EQ.   0) GO TO 150\r\n      GO TO 20\r\n  180 IF (IDEN .EQ. 1) GO TO 190\r\n      CALL CLOSE (MASS,REW)\r\n  190 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ortho.f",
    "content": "      SUBROUTINE ORTHO (U,V,X1,X2,X3,X4,X5,NZ,IBUF1,IBUF2,IBUF3,IBUF4)\r\nC\r\nC     ORTHO WILL ORTHOGONALIZE THE CURRENT ITERANT WITH RESPECT TO\r\nC     THE PREVIOUSLY EXTRACTED EIGENVECTORS\r\nC\r\n      INTEGER          FILEM     ,FILEK    ,FILEB    ,FILELM   ,\r\n     1                 FILEVC    ,SR0FIL   ,SR5FIL   ,REAL     ,\r\n     2                 SUB(2)    ,IBUF1(1) ,IBUF2(1) ,IBUF3(1) ,\r\n     3                 SQR       ,CDP      ,IBUF4(1)\r\n      DOUBLE PRECISION U(1)      ,V(1)     ,X1(1)    ,X2(1)    ,\r\n     1                 X3(1)     ,X4(1)    ,X5(1)    ,PJ(2)    ,\r\n     2                 CONST1(2) ,CONST2(2),ALPHA(2),BETA(2)\r\n      COMMON /CINVPX/  FILEK(7)  ,FILEM(7) ,FILEB(7),FILELM(7) ,\r\n     1                 FILEVC(7),DMPFIL    ,SCRFIL(10)\r\n      COMMON /CINVXX/  DUM(17)   ,REAL     ,XXXX     ,NORTHO\r\n      COMMON /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                 RDP       ,CSP      ,CDP      ,SQR\r\n      EQUIVALENCE      (SR0FIL,SCRFIL(10)) ,(SR5FIL,SCRFIL(5)) ,\r\n     1                 (NCOL,FILEK(2))\r\n      DATA    SUB   /  4HORTH ,4HO   /\r\nC\r\n      NCOL2 = NCOL  + NCOL\r\n      NCOL4 = NCOL2 + NCOL2\r\n      IF (FILEB(1) .EQ. 0) GO TO 5\r\n      CALL CMTIMU (V,X1,0,IBUF4)\r\n      CALL CMTIMU (U,X2,FILEB,IBUF4)\r\n      GO TO 7\r\n    5 DO 6 I = 1,NCOL2\r\n    6 X2(I) = 0.D0\r\n    7 CONTINUE\r\n      CALL CMTIMU (U,X3,0,IBUF4)\r\n      CALL SSWTCH (12,L7)\r\n      CONST1(1) = 1.0D0\r\n      CONST1(2) = 0.\r\n      CONST2(1) =-1.0D0\r\n      CONST2(2) = 0.\r\n      CALL CSUB (X1,X2,X2,CONST1,CONST2)\r\nC\r\nC     REWIND EIGENVALUE AND EIGENVECTOR FILES\r\nC\r\n      IFILE = FILELM(1)\r\n      CALL OPEN (*1000,IFILE,IBUF1,RDREW)\r\n      IFILE = FILEVC(1)\r\n      CALL OPEN (*1000,IFILE,IBUF2,RDREW)\r\n      IFILE = SR0FIL\r\n      CALL OPEN (*1000,IFILE,IBUF3,RDREW)\r\n      DO 100 K = 1,NORTHO\r\nC\r\nC     READ AN EIGENVALUE\r\nC\r\n      IFILE = FILELM(1)\r\n      CALL READ (*1010,*1020,IFILE,PJ(1),4,1,FLAG)\r\n      CONST1(1) = -1.D0\r\n      CONST1(2) = 0.\r\n      CALL CSUB (X3,X2,X5,PJ,CONST1)\r\nC\r\nC     READ THE RIGHT EIGENVECTOR\r\nC\r\n      IFILE = FILEVC(1)\r\n      CALL READ (*1010,*1020,IFILE,X1(1),NCOL4,1,FLAG)\r\nC\r\nC     READ THE LEFT EIGENVECTOR\r\nC\r\n      IFILE = SR0FIL\r\n      CALL READ (*1010,*1020,IFILE,X4(1),NCOL4,1,FLAG)\r\nC\r\n      IF (FILEB(1) .NE. 0) GO TO 40\r\nC\r\nC    COMPUTE ALPHA USING REAL FORMULA\r\nC\r\n      CALL CX TRN Y (X4,X3,CONST1)\r\n      GO TO 55\r\n   40 CALL CX TRN Y (X4(1),X5(1),CONST1(1))\r\n   55 ALPHA(1) = CONST1(1)\r\n      ALPHA(2) = CONST1(2)\r\n      BETA(1)  = ALPHA(1)*PJ(1) - ALPHA(2)*PJ(2)\r\n      BETA(2)  = ALPHA(1)*PJ(2) + ALPHA(2)*PJ(1)\r\n      IF (L7 .EQ. 0) GO TO 1901\r\n      WRITE  (6,500) CONST1,CONST2,ALPHA\r\n  500 FORMAT (4H NUM ,2D12.5,6H DENOM ,2D12.5,6H ALPHA ,2D12.5 )\r\n 1901 CONTINUE\r\n      DO 60 I = 1,NCOL2,2\r\n      U(I  ) = U(I  ) - ALPHA(1)*X1(I) + ALPHA(2)*X1(I+1)\r\n      U(I+1) = U(I+1) - ALPHA(2)*X1(I) - ALPHA(1)*X1(I+1)\r\n      IF (FILEB(1) .EQ. 0) GO TO 60\r\n      V(I  ) = V(I  ) - BETA(1)*X1(I  ) + BETA(2)*X1(I+1)\r\n      V(I+1) = V(I+1) - BETA(1)*X1(I+1) - BETA(2)*X1(I  )\r\n   60 CONTINUE\r\n  100 CONTINUE\r\n      CALL CLOSE (FILELM,NOREW)\r\n      CALL CLOSE (FILEVC,NOREW)\r\n      CALL CLOSE (SR0FIL,NOREW)\r\n      RETURN\r\nC\r\n 1000 NO = -1\r\n      GO TO 1500\r\n 1010 NO = -2\r\n      GO TO 1500\r\n 1020 NO = -3\r\n 1500 CALL MESAGE (NO,IFILE,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/oscxrf.f",
    "content": "      SUBROUTINE OSCXRF (IOP,AVAIL)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      INTEGER         DBENT(3),BLOCK(6),LAB(6),IOUT(32),IHD1(32),\r\n     1                IHD2(32),IHD3(32),IHD4(32),IHD5(32)\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /MODDMP/ IFLG(5)\r\n      COMMON /SYSTEM/ KSYS(65)\r\n      COMMON /LNKLST/ I,NVAIL,ISEQN,KIND,ITYPE,MASK3,MASK4,MASK5\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /XVPS  / VPS(3)\r\n      EQUIVALENCE     (KSYS(2),OP), (KSYS(9),NLPP), (KSYS(12),NLINE)\r\n      DATA    IHD1  / 7*4H    ,4HCOSM,4HIC /,4H NAS,4HTRAN,4H DMA,\r\n     1                4HP CO  ,4HMPIL,4HER -,4H DMA,4HP CR,4HOSS ,\r\n     2                4HREFE  ,4HRENC,4HE LI,4HSTIN,4HG   ,9*4H    /\r\n      DATA    IHD2  / 32*4H     /\r\n      DATA    IHD3  / 4HMODU,4HLE N,4HAME ,4HDMAP,4H STA,4HTEME,\r\n     1                4HNT N,4HUMBE,4HRS  ,23*4H     /\r\n      DATA    IHD4  / 4HDATA,4H BLO,4HCK  ,4HDMAP,4H STA,4HTEME,\r\n     1                4HNT N,4HUMBE,4HRS  ,23*4H     /\r\n      DATA    IHD5  / 4HPARA,4HMETE,4HR   ,4HTYPE,4H    ,4HDMAP,\r\n     1                4H STA,4HTEME,4HNT N,4HUMBE,4HRS  ,21*4H     /\r\n      DATA    LAB   / 4HI   ,4HR   ,4HBCD ,4HRDP ,4HCSP ,4HCDP     /\r\n      DATA    POOL  / 4HPOOL  /\r\n      DATA    NBLANK/ 4H      /    ,IOUT  /32*4H     /\r\n      DATA    NASTK / 4H*     /    ,NOTAPP/4HN.A.    /\r\nC\r\nC     RESTRICT OPEN CORE DUE TO LIMITED FIELD SIZE FOR POINTERS\r\nC\r\n      NVAIL = AVAIL\r\n      IF (NVAIL .GT. 16350) NVAIL = 16350\r\nC\r\nC     PROCESS VARAIABLE PARAMETER LIST\r\nC\r\n      MASK2 = LSHIFT(1,16) - 1\r\n      MASK1 = ANDF(LSHIFT(1,20)-1,COMPLF(MASK2))\r\n      MASK3 = LSHIFT(1,14) - 1\r\n      MASK4 = LSHIFT(MASK3,14)\r\n      MASK5 = COMPLF(ORF(MASK3,MASK4))\r\n      NOSGN = COMPLF(LSHIFT(1,KSYS(40)-1))\r\nC\r\n      DO 14 I = 1,1600\r\n   14 Z(I) = 0\r\n      K = 3\r\n      I = 1\r\n      KIND  =-5\r\n      NPARAM= 1\r\n   20 ITYPE = ANDF(VPS(K+2),MASK1)\r\n      ITYPE = RSHIFT(ITYPE,16)\r\n      LEN   = ANDF(VPS(K+2),MASK2)\r\n      CALL LINKUP (*999,VPS(K))\r\n      K = K + LEN + 3\r\n      IF (K .GT. VPS(2)) GO TO 30\r\n      NPARAM = NPARAM + 1\r\n      GO TO 20\r\nC\r\nC     PROCESS NAMES OF MODULES AND DATA BLOCKS\r\nC\r\n   30 PSEQ = 0\r\n   40 CALL READ (*200,*998,POOL,BLOCK,6,0,Q)\r\n      IAUTO = 0\r\n      MI    = RSHIFT(BLOCK(3),16)\r\n      ITYPE = ANDF(MASK2,BLOCK(3))\r\n      ISEQN = ANDF(NOSGN,BLOCK(6))\r\n      KIND  = 1\r\n      IF (PSEQ.EQ.ISEQN .AND. (MI.EQ.3 .OR. MI.EQ.8)) IAUTO = 1\r\n      IF (IAUTO .EQ. 1) KIND = 2\r\n      PSEQ = ISEQN\r\n      CALL LINKUP (*999,BLOCK(4))\r\n      KIND = 3\r\n      GO TO (50,50,70,90), ITYPE\r\nC\r\nC     PROCESS FUNCTIONAL MODULE IO SECTIONS\r\nC\r\n   50 IRLH = 0\r\n   51 IRLH = IRLH + 1\r\n      CALL READ (*998,*998,POOL,NDB,1,0,Q)\r\n      DO 52 J = 1,NDB\r\n      CALL READ (*998,*998,POOL,DBENT,3,0,Q)\r\n      IF (DBENT(1) .EQ. 0) GO TO 52\r\n      CALL LINKUP (*999,DBENT)\r\n   52 CONTINUE\r\n      KIND = 4\r\n      IF (ITYPE.EQ.1 .AND. IRLH.EQ.1) GO TO 51\r\n      KIND = 5\r\n      CALL READ (*998,*998,POOL,NDB, -1,0,Q)\r\n      CALL READ (*998,*998,POOL,NPARM,1,0,Q)\r\n      IF (NPARM .EQ. 0) GO TO 80\r\n      DO 65 J = 1,NPARM\r\n      CALL READ (*998,*998,POOL,IL,1,0,Q)\r\n      IF (IL) 60,55,55\r\n   55 CALL READ (*998,*998,POOL,DBENT,-IL,0,Q)\r\n      GO TO 65\r\n   60 IL = ANDF(NOSGN,IL)\r\n      CALL LINKUP (*999,VPS(IL-3))\r\n   65 CONTINUE\r\n      GO TO 80\r\n   70 IF (MI .NE. 7) GO TO 80\r\n      KIND = 5\r\n      CALL READ (*998,*998,POOL,IL,1,0,Q)\r\n      IL = ANDF(MASK2,IL)\r\n      CALL LINKUP (*999,VPS(IL-3))\r\n   80 CALL FWDREC (*998,POOL)\r\n      GO TO 40\r\n   90 MI = MI - 7\r\n      IF (MI .LT. 0) MI = 4\r\n      GO TO (100,120,170,120) ,MI\r\n  100 CALL READ (*998,*998,POOL,NDB,1,0,Q)\r\n      KIND = 5\r\n      IF (IAUTO .EQ. 1) KIND = 6\r\n      DO 110 J = 1,NDB\r\n      CALL READ (*998,*998,POOL,DBENT,2,0,Q)\r\n      IL = DBENT(1)\r\n      CALL LINKUP (*999,VPS(IL-3))\r\n  110 CONTINUE\r\n      GO TO 80\r\n  120 CALL READ (*998,*40,POOL,NDB,1,0,Q)\r\n      KIND = 3\r\n  130 DO 140 J = 1,NDB\r\n      CALL READ (*998,*998,POOL,DBENT,2,0,Q)\r\n      IF (DBENT(1) .EQ. 0) GO TO 140\r\n      CALL LINKUP (*999,DBENT)\r\n  140 CONTINUE\r\n      IF (MI .EQ. 4) GO TO 80\r\n      CALL READ (*998,*998,POOL,IL,1,0,Q)\r\n      IF (IL) 160,160,150\r\n  150 KIND = 5\r\n      CALL LINKUP (*999,VPS(IL-3))\r\n  160 IF (MI .EQ. 2) GO TO 120\r\n  170 CALL READ (*998,*40,POOL,NDB,1,0,Q)\r\n      KIND = 3\r\n      CALL READ (*998,*998,POOL,DBENT,3,0,Q)\r\n      IF (DBENT(1) .EQ. 0) GO TO 180\r\n      CALL LINKUP (*999,DBENT)\r\n  180 NDB = NDB - 1\r\n      GO TO 130\r\nC\r\nC     SORT PARAMETER AND MODULE NAMES, 8-BCD WORD SORT\r\nC\r\n  200 NWDS = 4*NPARAM\r\n      CALL SORTA8 (0,0,4,1,Z(1),NWDS)\r\n      IST = NWDS + 1\r\n      J   = I - 1 - NWDS\r\n      CALL SORTA8 (0,0,4,1,Z(IST),J)\r\n      NWDS = I - 1\r\nC\r\nC     TRAVERSE LINKED LISTS AND GENERATE OUTPUT\r\nC\r\n      K   = 1\r\n      KDH = 0\r\n      DO 260 J = 1,32\r\n      IHEAD(J   ) = IHD1(J)\r\n      IHEAD(J+32) = IHD2(J)\r\n      IHEAD(J+64) = IHD5(J)\r\n  260 CONTINUE\r\n      CALL PAGE\r\n      WRITE (OP,900)\r\n      NLINE = NLINE + 1\r\nC\r\nC     PROCESS PARAMETER NAMES\r\nC\r\n  270 IOUT(2) = Z(K  )\r\n      IOUT(3) = Z(K+1)\r\n      NTYPE   = RSHIFT(Z(K+2),28)\r\n      IOUT(4) = NBLANK\r\n      IOUT(5) = LAB(NTYPE)\r\n      IF (NTYPE.EQ.0 .OR. NTYPE.GT.6) IOUT(5) = NOTAPP\r\n      IOUT(6) = NBLANK\r\nC\r\nC     TRACE THROUGH LINKED LIST\r\nC\r\n      II = 7\r\n  280 LINK = ANDF(MASK3,Z(K+2))\r\n  310 ISN  = ANDF(MASK3,Z(LINK))\r\n      IF (KDH .EQ. 0) ISN = -ISN\r\n      CALL OUTPAK (II,IOUT,ISN)\r\n      ITEMP = RSHIFT(Z(LINK),28)\r\n      IF (ITEMP.EQ.2 .OR. ITEMP.EQ.4 .OR. ITEMP.EQ.6) IOUT(II+1) = NASTK\r\n      LINK = RSHIFT(ANDF(Z(LINK),MASK4),14)\r\n      IF (LINK .EQ. 0) GO TO 320\r\n      II = II + 2\r\n      GO TO 310\r\nC\r\nC     PRINT OUTPUT\r\nC\r\n  320 NLINE = NLINE + 1\r\n      IF (NLINE .LE. NLPP) GO TO 321\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n      WRITE (OP,900)\r\n      NLINE = NLINE + 1\r\n  321 WRITE (OP,902) (IOUT(LL),LL=2,32)\r\n      DO 325 LL = 2,32\r\n      IOUT(LL) = NBLANK\r\n  325 CONTINUE\r\n  328 K = K + 4\r\n      IF (K .GE. IST) GO TO 330\r\n      IF (KDH .EQ. 1) GO TO 337\r\n      IF (KDH .EQ. 2) GO TO 425\r\n      GO TO 270\r\nC\r\nC     PROCESS MODULE NAMES\r\nC\r\n  330 IF (KDH .GT. 0) GO TO 340\r\n      KDH = 1\r\n      DO 335 J = 1,32\r\n      IHEAD(J+64) = IHD3(J)\r\n  335 CONTINUE\r\n      WRITE (OP,910)\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n      WRITE (OP,900)\r\n      K   = IST\r\n      IST = NWDS\r\n  337 IF (RSHIFT(Z(K+3),28) .GE. 3) GO TO 328\r\n  339 IOUT(2) = Z(K  )\r\n      IOUT(3) = Z(K+1)\r\n      IOUT(4) = NBLANK\r\n      II = 5\r\n      GO TO 280\r\nC\r\nC     PROCESS DATA BLOCKS\r\nC\r\n  340 IF (KDH .GT. 1) GO TO 430\r\n      KDH = 2\r\n      DO 420 J = 1,32\r\n      IHEAD(J+64) = IHD4(J)\r\n  420 CONTINUE\r\n      WRITE (OP,905)\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n      WRITE (OP,900)\r\n      K   = 4*NPARAM + 1\r\n      IST = NWDS\r\n  425 IF (RSHIFT(Z(K+3),28) .GE. 3) GO TO 339\r\n      GO TO 328\r\n  430 WRITE (OP,906)\r\n      CALL REWIND (POOL)\r\n      CALL SKPFIL (POOL,IOP)\r\n      CALL FWDREC (*998,POOL)\r\n      GO TO 1000\r\n  998 CALL XGPIDG (59,0,0,0)\r\n      GO TO 1000\r\n  999 CALL XGPIDG (60,0,0,0)\r\n 1000 RETURN\r\nC\r\n  900 FORMAT (1H )\r\n  902 FORMAT (5X,31A4)\r\n  905 FORMAT (//6X,'* DENOTES AUTOMATICALLY GENERATED INSTRUCTIONS',\r\n     1        /8X,'STATEMENT NUMBER REFERS TO DMAP SEQUENCE NUMBER OF ',\r\n     2        'PREVIOUS INSTRUCTION')\r\n  906 FORMAT (//6X,'* DENOTES STATEMENTS IN WHICH THE DATA BLOCK ',\r\n     1        'APPEARSRS AS OUTPUT.')\r\n  910 FORMAT (//6X,'* DENOTES APPEARANCE OF PARAMETER IN AUTOMATICALLY',\r\n     1        ' GENERATED SAVE INSTRUCTION')\r\n      END\r\n"
  },
  {
    "path": "mis/outmsc.f",
    "content": "      SUBROUTINE OUTMSC (*,*)\r\nC\r\nC     COPY DATA BLOCK(S) TO FORTRAN UNIT, IN MSC/OUTPUT2 COMPATIBLE\r\nC     RECORD FORMATS.\r\nC\r\nC     DMAP CALL -\r\nC     OUTPUT2  IN1,IN2,IN3,IN4,IN5/ /V,N,P1/V,N,P2/V,N,P3/V,N,P4/V,N,P5/\r\nC                                    V,N,P6 $\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY OUTPT2\r\nC     SEE OUTPT2 FOR PARAMETERS P1,P2,...,P6. (P6 = *MSC*)\r\nC\r\nC     IF P1 .NE. -9, ALTERNATE RETURN 1, OTHERWISE RETURN 2.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS  3/93\r\nC\r\n      LOGICAL          DP\r\n      INTEGER          P1,P2,P3,P4,P5,P6,ENDREC,ENDFIL,OUT,BUF1,D,\r\n     1                 INP(13),MCB(7),NAME(2),NONE(2),SUB(2),TMP(2),\r\n     2                 DX(3),HDR(7),HDRX(7),TAPCOD(2),BLOCK(20)\r\n      REAL             XNS(1)\r\n      DOUBLE PRECISION DXNS(1)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,MO2*19\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3(2),P4,P5,P6(2)\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  IBUF,NOUT,IDUM4(6),NLPP,IDUM5(5),D(3)\r\n      COMMON /TYPE  /  IDUM6(2),NWDS(4)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (XNS(1),Z(1))\r\n      EQUIVALENCE      (XNS(1),DXNS(1))\r\n      DATA    HDR   /  4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,4HE - /\r\n      DATA    INP   /  4HUT1 ,4HUT2 ,4HUT3 ,4HINPT,4HINP1,4HINP2,4HINP3,\r\n     1                 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9       /\r\n      DATA    MO2   /  '. MODULE OUTPUT2 - '      /\r\n      DATA    NONE  ,  SUB   /4H (NO,4HNE) ,4HOUTP,4HUT2*              /\r\nC\r\n      WRITE  (NOUT,10) UIM\r\n   10 FORMAT (A29,'. USER REQUESTED RECORDS IN MSC/OUTPUT2 COMPATIBLE',\r\n     1       ' RECORDS')\r\n      ENDFIL = 0\r\n      ENDREC = 0\r\n      LCOR   = KORSZ(Z(1))\r\n      BUF1   = LCOR - IBUF + 1\r\n      IF (BUF1 .LE. 0) CALL MESAGE (-8,LCOR,SUB)\r\n      LEND   = BUF1 - 1\r\n      OUT    = P2\r\n      TAPCOD(1) = P3(1)\r\n      TAPCOD(2) = P3(2)\r\n      IF (P1 .EQ. -9) GO TO 210\r\n      IF (P1 .EQ. -3) GO TO 300\r\n      IF (P1 .LE. -2) GO TO 620\r\n      IF (P1 .LE.  0) GO TO 40\r\nC\r\nC     SKIP FORWARD n DATA BLOCKS, P1 = n\r\nC\r\n      I = 1\r\n   20 READ (OUT) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 720\r\n      READ (OUT) TMP\r\n      READ (OUT) KEY\r\n      IF (KEY .GE. 0) GO TO 740\r\n      ASSIGN 30 TO IRET\r\n      NSKIP = 1\r\n      GO TO 500\r\n   30 I = I + 1\r\n      IF (I .LE. P1) GO TO 20\r\nC\r\n   40 IF (P1 .NE. -1) GO TO 80\r\n      REWIND OUT\r\n      KEY = 3\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) D\r\n      KEY = 7\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) HDR\r\n      KEY = 2\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) P3\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC\r\n      WRITE (OUT) ENDFIL\r\n      ENDREC = 0\r\n      WRITE  (NOUT,50) UIM,P3\r\n   50 FORMAT (A29,' FROM OUPUT2 MODULE.  THE LABEL IS ',2A4)\r\nC\r\n   80 DO 200 II = 1,5\r\n      INPUT  = 100 + II\r\n      MCB(1) = INPUT\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) GO TO 200\r\n      CALL FNAME (INPUT,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 200\r\n      BLOCK(1) = INPUT\r\n      NWD = NWDS(MCB(5))\r\n      DP  = MCB(5).EQ.2 .OR. MCB(5).EQ.4\r\nC\r\nC     OPEN INPUT DATA BLOCK TO READ WITH REWIND\r\nC\r\n      CALL OPEN (*600,INPUT,Z(BUF1),0)\r\n      KEY = 2\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) NAME\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC\r\n      KEY = 7\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) MCB\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC\r\nC\r\nC     COPY CONTENTS OF INPUT DATA BLOCK ONTO FILE\r\nC\r\n   90 CALL RECTYP (INPUT,K)\r\n      KEY = 1\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) K\r\n      IF (K .EQ. 0) GO TO 130\r\nC\r\nC     STRING RECORD\r\nC     BLOCK(2) = STRING TYPE, 1,2,3 OR 4\r\nC     BLOCK(4) = FIRST (OR LAST) ROW POSITION ON A MATRIX COLUMN\r\nC     BLOCK(5) = POINTER TO STRING, W.R.T. XNS ARRAY\r\nC     BLOCK(6) = NO. OF TERMS IN STRING\r\nC\r\n      BLOCK(8) = -1\r\n  100 CALL GETSTR (*170,BLOCK)\r\n      KEY = BLOCK(6)*NWD\r\n      WRITE (OUT) KEY\r\nC\r\nC     NEXT 3 LINES, ORIGINATED FROM MSC/OUTPUT2, DO NOT WORK FOR D.P.\r\nC     DATA ON VAX, AND POSSIBLY SILICON-GRAPHICS. THEY ARE REPLACED BY\r\nC     NEXT 8 LINES BELOW. BESIDE, TO WORK ON PROPER D.P. DATA BOUNDARY,\r\nC     THE K1 IN THE FOLLOWING LINE SHOULD BE  K1 = (BLOCK(5)-1)*NWD+1\r\nC\r\nC     K1  = BLOCK(5)\r\nC     K2  = K1 + KEY - 1\r\nC     WRITE (OUT) BLOCK(4),(XNS(K),K=K1,K2)\r\nC\r\n      K1  = BLOCK(5)*NWD\r\n      K2  = K1 + KEY -1\r\n      IF (DP) GO TO 110\r\n      WRITE (OUT) BLOCK(4),(XNS(K),K=K1,K2)\r\n      GO TO 120\r\n  110 K1  = K1/2\r\n      K2  = K2/2\r\n      WRITE (OUT) BLOCK(4),(DXNS(K),K=K1,K2)\r\nC\r\n  120 CALL ENDGET (BLOCK)\r\n      GO TO 100\r\nC\r\nC     NON-STRING RECORD\r\nC     MAKE SURE EACH RECORD IS NOT LONGER THAN P4 WORDS\r\nC\r\n  130 CALL READ (*180,*150,INPUT,Z(1),LEND,0,K1)\r\n      DO 140 I = 1,LEND,P4\r\n      KEY = LEND - I + 1\r\n      IF (KEY .GE. P4) KEY = P4\r\n      K2 = I + KEY - 1\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) (Z(K),K=I,K2)\r\n  140 CONTINUE\r\n      GO TO 130\r\n  150 DO 160 I = 1,K1,P4\r\n      KEY = K1 - I + 1\r\n      IF (KEY .GE. P4) KEY = P4\r\n      K2 = I + KEY - 1\r\n      WRITE (OUT) KEY\r\n      WRITE (OUT) (Z(K),K=I,K2)\r\n  160 CONTINUE\r\nC\r\n  170 ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC\r\n      GO TO 90\r\nC\r\nC     CLOSE INPUT DATA BLOCK WITH REWIND\r\nC\r\n  180 CALL CLOSE (INPUT,1)\r\n      WRITE (OUT) ENDFIL\r\n      ENDREC = 0\r\n      WRITE  (NOUT,190) UIM,NAME,OUT,INP(P2-10),MCB\r\n  190 FORMAT (A29,' 4144. DATA BLOCK ',2A4,' WRITTEN ON FORTRAN UNIT ',\r\n     1       I3,2H (,A4,1H), /5X,'TRAILER =',6I7,I11)\r\nC\r\n  200 CONTINUE\r\nC\r\nC     CLOSE FORTRAN TAPE WITHOUT END-OF-FILE AND WITHOUT REWIND\r\nC\r\n      RETURN 1\r\nC\r\nC     FINAL CALL TO OUTPUT2, P1 = -9\r\nC\r\n  210 WRITE (OUT) ENDFIL\r\n      RETURN 2\r\nC\r\nC     OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE, P1 = -3\r\nC\r\n  300 REWIND OUT\r\n      READ (OUT) KEY\r\n      KEYX = 3\r\n      IF (KEY .NE. KEYX) GO TO 720\r\n      READ (OUT) DX\r\n      READ (OUT) KEY\r\n      KEYX = 7\r\n      IF (KEY .NE. KEYX) GO TO 720\r\n      READ (OUT) HDRX\r\n      DO 310 K = 1,7\r\n      IF (HDRX(K) .NE. HDR(K)) GO TO 640\r\n  310 CONTINUE\r\n      READ (OUT) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 720\r\n      READ (OUT) TMP\r\n      IF (TMP(1).NE.P3(1) .OR. TMP(2).NE.P3(2)) GO TO 660\r\n  320 ASSIGN 330 TO IRET\r\n      NSKIP = 1\r\n      GO TO 500\r\n  330 K = 0\r\n  340 CALL PAGE1\r\n      WRITE  (NOUT,350) INP(P2-10),OUT\r\n  350 FORMAT (//42X,'CONTENTS OF ',A4,', FORTRAN UNIT',I3, /46X,\r\n     1       'FILE',18X,'NAME',/)\r\n  360 READ (OUT) KEY\r\n      IF (KEY) 680,400,370\r\n  370 READ (OUT) TMP\r\n      ASSIGN 380 TO IRET\r\n      NSKIP = 1\r\n      GO TO 500\r\n  380 K = K + 1\r\n      WRITE  (NOUT,390) K,TMP\r\n  390 FORMAT (45X,I5,18X,2A4)\r\n      IF (MOD(K,NLPP)) 360,340,360\r\n  400 ASSIGN 80 TO IRET\r\n      NSKIP = K + 1\r\n      IF (NSKIP .GT. 0) REWIND OUT\r\n      GO TO 500\r\nC\r\nC     SKIP NSKIP FILES ON FORTRAN TAPE\r\nC\r\n  500 IF (NSKIP .EQ. 0) GO TO 540\r\n      DO 530 J = 1,NSKIP\r\n  510 READ (OUT) KEYX\r\n      IF (KEYX) 510,530,520\r\n  520 IF (KEYX .GT. LCOR) GO TO 700\r\n      READ (OUT) (Z(L),L=1,KEYX)\r\n      GO TO 510\r\n  530 CONTINUE\r\n  540 GO TO IRET, (30,80,330,380)\r\nC\r\nC     ERRORS\r\nC\r\n  600 CALL FNAME (INPUT,TMP)\r\n      WRITE  (NOUT,610) SFM,MO2,TMP\r\n  610 FORMAT (A25,' 4116',A19,'UNABLE TO OPEN INPUT DATA BLOCK ',2A4)\r\n      GO TO  800\r\n  620 WRITE  (NOUT,630) UFM,MO2,P1\r\n  630 FORMAT (A23,' 4120',A19,'ILLEGAL FIRST PARAMETER ',I3)\r\n      GO TO  800\r\n  640 WRITE  (NOUT,650) UFM,MO2,HDRX\r\n  650 FORMAT (A23,' 4130',A19,'ILLEGAL TAPE HEADER CODE ',7A4)\r\n      GO TO  800\r\n  660 WRITE  (NOUT,670) UWM,TMP,P3\r\n  670 FORMAT (A25,' 4141. FORTRAN TAPE ID CODE - ',2A4,\r\n     1       ' DOES NOT MATCH OUTPUT2 THIRD PARAMETER NAME - ',2A4)\r\n      GO TO  320\r\n  680 WRITE  (NOUT,690) SFM,MO2\r\n  690 FORMAT (A25,' 4415',A19,'SHORT RECORD ENCOUNTERED')\r\n      GO TO  800\r\n  700 WRITE  (NOUT,710) UFM,LCOR,KEY\r\n  710 FORMAT (A23,' 2187. INSUFFICIENT WORKING CORE TO HOLD FORTRAN ',\r\n     1       'LOGICAL RECORD.', /5X,'LENGHT OF WORKING CORE =',I11,\r\n     2       '.   LENGTH OF FORTRAN LOGICAL RECORD =',I11)\r\n      GO TO  800\r\n  720 WRITE  (NOUT,730) SFM,KEY,KEYX\r\n  730 FORMAT (A25,' 2190. ILLEGAL VLUE FOR KEY =',I10,1H.,5X,\r\n     1       'EXPECTED VALUE =',I10)\r\n      GO TO  800\r\n  740 WRITE  (NOUT,750) SFM,KEY\r\n  750 FORMAT (A25,' 2190. ILLEGAL VALUE FOR KEY =',I10)\r\n  800 CALL MESAGE (-61,0,SUB)\r\n      RETURN 1\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/outpak.f",
    "content": "      SUBROUTINE OUTPAK (II,IOUT,ISN)\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         IOUT(1),NUMBER(10),IDIG(4),ORF,OP\r\n      COMMON /SYSTEM/ KSYS(65)\r\n      EQUIVALENCE     (KSYS(2),OP),(KSYS(9),NLPP),(KSYS(12),NLINE),\r\n     1                (KSYS(41),NCPW)\r\n      DATA    NUMBER/ 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0/\r\n      DATA    NBLANK/ 4H    /\r\nC\r\n      KCODE = 0\r\n      IF (ISN .LT. 0) KCODE = 1\r\n      ISN = IABS(ISN)\r\n      ICODE = 0\r\n      IF (II .GT. 32) ICODE = 1\r\n      IF (ICODE .EQ. 1) GO TO 50\r\nC\r\nC     TRANSLATE ISN TO DIGITS\r\nC\r\n   10 IDIG(1) = ISN/1000\r\n      IDIG(2) = (ISN-IDIG(1)*1000)/100\r\n      IDIG(3) = (ISN-IDIG(1)*1000 - IDIG(2)*100)/10\r\n      IDIG(4) = ISN - IDIG(1)*1000 - IDIG(2)*100 - IDIG(3)*10\r\n      DO 20 I = 1,4\r\n      IF (IDIG(I) .EQ. 0) IDIG(I) = 10\r\n   20 CONTINUE\r\nC\r\nC     FORM WORD AND STORE IN IOUT ARRAY\r\nC\r\n      K = 0\r\n      DO 30 I = 1,4\r\n      J = IDIG(I)\r\n      K = ORF(KLSHFT(KRSHFT(NUMBER(J),NCPW-1),NCPW-I),K)\r\n   30 CONTINUE\r\n      IOUT(II) = K\r\n      GO TO 80\r\n   50 NLINE = NLINE + 1\r\n      IF (NLINE .LE. NLPP) GO TO 60\r\n      CALL PAGE\r\n      NLINE = NLINE + 1\r\n      WRITE (OP,100)\r\n      NLINE = NLINE + 1\r\n   60 WRITE (OP,90) (IOUT(I),I=2,32)\r\n      II = 5\r\n      IF (KCODE .EQ. 1) II = 7\r\n      DO 70 LL = 2,32\r\n      IOUT(LL) = NBLANK\r\n   70 CONTINUE\r\n      GO TO 10\r\n   80 RETURN\r\nC\r\n   90 FORMAT (5X,31A4)\r\n  100 FORMAT (/,1H )\r\n      END\r\n"
  },
  {
    "path": "mis/outpt.f",
    "content": "      SUBROUTINE OUTPT\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE OUTPUT    SEE USERS MANUAL SECTION 5.3\r\nC                                     FOR MODULE PROPERTIES CHECK XMPLBD\r\nC                                     OR USE DIAG 29\r\nC\r\nC*****\r\nC\r\n      INTEGER PARM\r\nC\r\n      COMMON /BLANK/ PARM\r\nC\r\nC     DATA INFILE /101/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/outpt1.f",
    "content": "      SUBROUTINE OUTPT1\r\nC\r\nC     COPY DATA BLOCK(S) ONTO NASTRAN USER TAPE WHICH MUST BE SET-UP.\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     OUTPUT1   IN1,IN2,IN3,IN4,IN5//V,N,P1/V,N,P2/V,N,P3 $\r\nC\r\nC               P1 = 0, NO ACTION TAKEN BEFORE WRITE (DEFAULT)\r\nC                  =+N, SKIP FORWARD N DATA BLOCKS BEFORE WRITE\r\nC                  =-1, USER TAPE IS REWOUND BEFORE WRITE\r\nC                  =-2, A NEW REEL IS MOUNTED BEFORE WRITE\r\nC                  =-3, THE NAMES OF ALL DATA BLOCKS ON USER TAPE ARE\r\nC                       PRINTED AND WRITE OCCURS AT THE END OF TAPE\r\nC                  =-4, AN INPUT TAPE IS TO BE DISMOUNTED.\r\nC                       A NEW OUTPUT REEL WILL THEN BE MOUNTED.\r\nC                  =-9, WRITE EOF, REWIND AND UNLOAD.\r\nC\r\nC               P2 = 0, FILE NAME IS INPT (DEFAULT)\r\nC                  = 1, FILE NAME IS INP1\r\nC                  = 2, FILE NAME IS INP2\r\nC                  = 3, FILE NAME IS INP3\r\nC                  = 4, FILE NAME IS INP4\r\nC                  = 5, FILE NAME IS INP5\r\nC                  = 6, FILE NAME IS INP6\r\nC                  = 7, FILE NAME IS INP7\r\nC                  = 8, FILE NAME IS INP8\r\nC                  = 9, FILE NAME IS INP9\r\nC\r\nC               P3 = TAPE ID CODE FOR USER TAPE, AN ALPHANUMERIC\r\nC                    VARIABLE WHOSE VALUE WILL BE WRITTEN ON A USER\r\nC                    TAPE. THE WRITTING OF THIS ITEM IS DEPENDENT ON\r\nC                    THE VALUE OF P1 AS FOLLOWS..\r\nC                          *P1*             *TAPE ID WRITTEN*\r\nC                           +N                     NO\r\nC                            0                     NO\r\nC                           -1                    YES\r\nC                           -2                    YES (ON NEW REEL)\r\nC                           -3                     NO (WARNING CHECK)\r\nC                           -4                    YES (ON NEW REEL)\r\nC                           -9                     NO\r\nC                    DEFAULT VALUE FOR P3 IS XXXXXXXX\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         TAPEUP,TAPBIT\r\n      INTEGER         TRL(7),NAME(2),SUBNAM(2),IN(5),NAMEX(2),OTT(10),\r\n     1                IDHDR(7),IDHDRX(7),P3X(2),D(3),DX(3),TAPCOD(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /BLANK / P1,P2,P3(2)\r\n     1       /SYSTEM/ KSYSTM(65)\r\n     2       /ZZZZZZ/ X(1)\r\n      EQUIVALENCE     (KSYSTM( 1),NB  ),(KSYSTM( 2),NOUT),\r\n     1                (KSYSTM( 9),NLPP),(KSYSTM(12),LINE),\r\n     2                (KSYSTM(15),D(1))\r\n      DATA    SUBNAM/ 4HOUTP,4HT1        /\r\n      DATA    IN    / 101,102,103,104,105/\r\n      DATA    ZERO  , MONE,MTWO,MTRE,MFOR,MNIN/ 0,-1,-2,-3,-4,-9/\r\n      DATA    OTT   / 4HINPT,4HINP1,4HINP2,4HINP3,4HINP4,\r\n     1                4HINP5,4HINP6,4HINP7,4HINP8,4HINP9/\r\n      DATA    IDHDR / 4HNAST,4HRAN ,4HUSER,4H TAP,4HE ID,4H COD,4HE - /\r\nC\r\nC\r\n      LCOR = KORSZ(X) - 2*NB\r\n      IF (LCOR .LE. 0) GO TO 9908\r\n      INBUF = LCOR  + 1\r\n      OUBUF = INBUF + NB\r\n      TAPCOD(1) = P3(1)\r\n      TAPCOD(2) = P3(2)\r\n      IF (P2.LT.0 .OR. P2.GT.9) GO TO 9904\r\n      OUT = OTT(P2+1)\r\n      IF (MACH .GE. 5) GO TO 120\r\n      TAPEUP = TAPBIT(OUT)\r\n      IF (.NOT.TAPEUP ) GO TO 9909\r\n  120 IF (P1 .LT. MNIN) GO TO 9905\r\n      IF (P1.GT.MNIN .AND. P1.LT.MFOR) GO TO 9905\r\nC\r\n      IF (P1 .EQ. MNIN) GO TO 5000\r\n      IF (P1 .EQ. MTRE) GO TO 2000\r\n      IF (P1 .LE. ZERO) GO TO 150\r\nC\r\n      CALL GOPEN (OUT,X(OUBUF),2)\r\n      DO 130 I = 1,P1\r\n      CALL READ (*9903,*9903,OUT,NAMEX,2,1,NF)\r\n  130 CALL SKPFIL (OUT,1)\r\n      CALL CLOSE (OUT,2)\r\n      GO TO 190\r\nC\r\n  150 IF (P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 190\r\nC\r\nC     P1 = -2 OR P1 = -4 IS ACCEPTABLE ONLY ON IBM OR UNIVAC\r\nC\r\n      IF (MACH.NE.2 .AND. MACH.NE.3) GO TO 9905\r\nC\r\n      IOLD = 3 + P1/2\r\n      CALL GOPEN  (OUT,X(OUBUF),3)\r\n      CALL TPSWIT (OUT,IOLD,2,TAPCOD)\r\nC\r\nC     OPEN USER TAPE TO WRITE WITHOUT REWIND\r\nC\r\n  190 CALL GOPEN (OUT,X(OUBUF),3)\r\n      IF (P1.NE.MONE .AND. P1.NE.MTWO .AND. P1.NE.MFOR) GO TO 195\r\n      CALL REWIND (OUT)\r\n      CALL WRITE (OUT,D,3,0)\r\n      CALL WRITE (OUT,IDHDR,7,0)\r\n      CALL WRITE (OUT,P3,2,1)\r\n      CALL EOF (OUT)\r\n      GO TO 195\r\nC\r\n  193 CALL CLOSE (OUT,2)\r\n      CALL GOPEN (OUT,X(OUBUF),3)\r\nC\r\n  195 DO 1000 I = 1,5\r\n      INPUT  = IN(I)\r\n      TRL(1) = INPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 1000\r\n      CALL FNAME (INPUT,NAME)\r\nC\r\nC     OPEN INPUT DATA BLOCK TO READ WITH REWIND.\r\nC\r\n      CALL OPEN  (*9901,INPUT,X(INBUF),0)\r\n      CALL WRITE (OUT,NAME,2,0)\r\n      CALL WRITE (OUT,TRL(2),6,1)\r\nC\r\nC     LEVEL 17.5, THE ABOVE 8 WORD RECORD WAS WRITTEN OUT IN 2 RECORDS\r\nC     2 BCD WORD NAME, AND 7 TRAILER WORDS\r\nC\r\nC     COPY CONTENTS OF INPUT DATA BLOCK ONTO USER TAPE.\r\nC\r\n      CALL CPYFIL (INPUT,OUT,X,LCOR,NF)\r\nC\r\nC     CLOSE INPUT DATA BLOCK WITH REWIND\r\nC\r\n      CALL CLOSE (INPUT,1)\r\nC\r\n      CALL EOF (OUT)\r\n      CALL PAGE2 (-4)\r\n      WRITE  (NOUT,350) UIM,NAME,OUT,(TRL(II),II=2,7)\r\n  350 FORMAT (A29,' 4114', //5X,'DATA BLOCK ',2A4,\r\n     1       ' WRITTEN ON NASTRAN FILE ',A4,', TRLR  =',6I10)\r\nC\r\n 1000 CONTINUE\r\nC\r\nC     CLOSE NASTRAN USER TAPE WITHOUT REWIND, BUT WITH END-OF-FILE\r\nC\r\n      CALL CLOSE (OUT,3)\r\n      RETURN\r\nC\r\nC     OBTAIN LIST OF DATA BLOCKS ON USER TAPE.\r\nC\r\n 2000 CALL OPEN (*9902,OUT,X(OUBUF),0)\r\n      CALL READ (*9911,*9912,OUT,DX,3,0,NF)\r\n      CALL READ (*9911,*9912,OUT,IDHDRX,7,0,NF)\r\n      DO 2005 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 9913\r\n 2005 CONTINUE\r\n      CALL READ (*9911,*9912,OUT,P3X,2,1,NF)\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 9914\r\n 2006 CALL SKPFIL (OUT,1)\r\n      KF = 0\r\n 2007 CALL PAGE1\r\n      LINE = LINE + 5\r\n      WRITE  (NOUT,2010) OUT\r\n 2010 FORMAT (//50X,A4,14H FILE CONTENTS ,/46X,4HFILE,18X,4HNAME,//)\r\n 2020 CALL READ (*2050,*9915,OUT,NAMEX,2,1,NF)\r\n      CALL SKPFIL (OUT,1)\r\n      KF = KF + 1\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,2030) KF,NAMEX\r\n 2030 FORMAT (45X,I5,18X,2A4)\r\n      IF (LINE-NLPP) 2020,2007,2007\r\n 2050 CALL SKPFIL (OUT,-1)\r\n      GO TO 193\r\nC\r\n 5000 CONTINUE\r\n      CALL EOF (OUT)\r\n      CALL UNLOAD( OUT)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 9901 MM = -1\r\n      GO TO 9996\r\n 9902 WRITE  (NOUT,9952) SFM,OUT\r\n 9952 FORMAT (A25,' 4117, SUBROUTINE OUTPT1 UNABLE TO OPEN NASTRAN FILE'\r\n     1,       A4,1H.)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9903 WRITE  (NOUT,9953) UFM,P1,OUT,I\r\n 9953 FORMAT (A23,' 4118, MODULE OUTPUT1 IS UNABLE TO SKIP FORWARD',I10,\r\n     2        ' DATA BLOCKS ON PERMANENT NASTRAN FILE ',A4,1H., /5X,\r\n     3        'NUMBER OF DATA BLOCKS SKIPPED =',I6)\r\n      LINE = LINE + 3\r\n      GO TO 9995\r\n 9904 WRITE  (NOUT,9954) UFM,P2\r\n 9954 FORMAT (A23,' 4119, MODULE OUTPUT1 - ILLEGAL VALUE FOR SECOND ',\r\n     1       'PARAMETER =',I20)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9905 WRITE  (NOUT,9955) UFM,P1\r\n 9955 FORMAT (A23,' 4120, MODULE OUTPUT1 - ILLEGAL VALUE FOR FIRST ',\r\n     1       'PARAMETER =',I20)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9908 MM = -8\r\n      INPUT = -LCOR\r\n      GO TO 9996\r\n 9909 WRITE  (NOUT,9959) UFM,OUT\r\n 9959 FORMAT (A23,' 4127, USER TAPE ',A4,' NOT SET UP.')\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9911 WRITE  (NOUT,9961) UFM,OUT\r\n 9961 FORMAT (A23,' 4128, MODULE OUTPUT1 - END-OF-FILE ENCOUNTERED ',\r\n     1       'WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9912 WRITE  (NOUT,9962) UFM,OUT\r\n 9962 FORMAT (A23,' 4129, MODULE OUTPUT1 - END-OF-RECORD ENCOUNTERED ',\r\n     1       'WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ',A4)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9913 WRITE  (NOUT,9963) UFM,(IDHDRX(KF),KF=1,7)\r\n 9963 FORMAT (A23,' 4130, MODULE OUTPUT1 - ILLEGAL TAPE CODE HEADER = ',\r\n     1        7A4)\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\n 9914 WRITE  (NOUT,9964) UWM,P3X,P3\r\n 9964 FORMAT (A25,' 4131, USER TAPE ID CODE -',2A4,'- DOES NOT MATCH ',\r\n     1       'THIRD OUTPUT1 DMAP PARAMETER -',2A4,2H-.)\r\n      LINE = LINE + 2\r\n      GO TO 2006\r\n 9915 WRITE  (NOUT,9965) SFM\r\n 9965 FORMAT (A25,' 4115, MODULE OUTPUT1 - SHORT RECORD.')\r\n      LINE = LINE + 2\r\n      GO TO 9995\r\nC\r\n 9995 MM = -37\r\n 9996 CALL MESAGE (MM,INPUT,SUBNAM)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/outpt2.f",
    "content": "      SUBROUTINE OUTPT2\r\nC\r\nC     COPY DATA BLOCK(S) ONTO FORTRAN UNIT.\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     OUTPUT2    IN1,IN2,IN3,IN4,IN5/ /V,N,P1/V,N,P2/V,N,P3/\r\nC                                      V,N,P4/V,N,P5/V,N,P6 $\r\nC\r\nC             P1 = 0, NO ACTION TAKEN BEFORE WRITE\r\nC                     (DEFAULT P1=0)\r\nC                =+N, SKIP FORWARD N DATA BLOCKS BEFORE WRITE\r\nC                =-1, BEFORE WRITE, FORTRAN TAPE IS REWOUND AND A\r\nC                     HEADER RECORD (RECORD NUMBER 0) ADDED TO TAPE\r\nC                =-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE\r\nC                     ARE PRINTED AND WRITE OCCURS AT THE END OF TAPE\r\nC                =-9, WRITE A NULL FILE, ENDFILE AND REWIND FORTRAN\r\nC                     TAPE.\r\nC\r\nC             P2 =    THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL\r\nC                     BE WRITTEN. (DEFAULT P2=11).\r\nC\r\nC             P3 =    TAPE ID CODE FOR FORTRAN TAPE, AN ALPHANUMERIC\r\nC                     VARIABLE WHOSE VALUE WILL BE WRITTEN ON A FORTRAN\r\nC                     TAPE.\r\nC                     THE WRITING OF THIS ITEM IS DEPENDENT ON THE\r\nC                     VALUE OF P1 AS FOLLOWS.\r\nC                          *P1*             *TAPE ID WRITTEN*\r\nC                           +N                     NO\r\nC                            0                     NO\r\nC                           -1                    YES\r\nC                           -3                     NO (WARNING CHECK)\r\nC                    (DEFAULT P3 = XXXXXXXX).\r\nC\r\nC             P4 = 0, FORTRAN WRITTEN RECORD SIZE IS UNLIMITTED\r\nC                     (DEFAULT FOR ALL MACHINES, EXECPT IBM)\r\nC                =-N, MAXIMUM FORTRAN WRITTEN RECORD SIZE IS N TIMES\r\nC                     THE SYSTEM BUFFER SIZE, N*BUFFSIZE\r\nC                = N, MAXIMUM FORTRAN WRITTEN RECORD SIZE IS N WORDS.\r\nC                -    IN ALL CASES, THE MAXIMUM FORTRAN WRITTEN RECORD\r\nC                     SIZE SHOLD BE .GE. BUFFSIZE, AND .LE. AVAILABLE\r\nC                     CORE\r\nC                IBM, IF P4=0, AND SINCE IBM CAN NOT HANDLE UNLIMITED\r\nC                     RECORD SIZE, RECORD SIZE P4 OF 1024 WORDS IS USED\r\nC\r\nC             P5 = 0  FOR NON-SPARSE, AND NON-ZERO FOR SPARSE MATRIX\r\nC                     OUTPUT\r\nC                = 0, KEY-WORD RECORD CONTAINS EFFECTIVELY ONE SINGLE\r\nC                     WORD OF DATA (THIS IS THE ORIGINAL COSMIC/OUTPT2)\r\nC                = NOT 0, KEY-WORD RECORD CONTAINS 2 WORDS, THUS ALLOW\r\nC                     SPARSE MATRIX TO BE COPIED OUT.\r\nC                     FIRST KEY WORD:\r\nC                        >0, DEFINES THE LENGTH OF NEXT DATA RECORD\r\nC                        =0, END-OF-FILE\r\nC                        <0, END-OF-RECORD WITH ANOTHER RECORD TO FOLLOW\r\nC                     SECOND KEY WORD:\r\nC                        =0, TABLE DATA, OR P5 SPARSE MATRIX OPTION NOT\r\nC                            REQUESTED\r\nC                        >0, ROW-BASE FOR NEXT RECORD. FOR EXAMPLE:\r\nC                            KEYS = 10,200 INDICATE NEXT DATA RECORD IS\r\nC                            FOR ROW(200+1) THRU ROW(200+10)\r\nC                            i.e. (ROW(KEY2+J),J=1,KEY1)\r\nC\r\nC             P6 = BLANK (DEFAULT)\r\nC                = *MSC*,    OUTPUT2 WILL ISSUE RECORDS IN MSC/OUTPUT2\r\nC                            FORMAT WHICH IS SLIGHTLY DIFFERENT FROM\r\nC                            COSMIC/OUTPUT2.\r\nC                            (P5 OPTION IS NOT AVAILABLE)\r\nC\r\nC     NOTES ABOUT P5\r\nC             (1) P5 IS IGNORED IN TABLE DATA\r\nC             (2) POSSIBLY, NON-ZERO ROW ELEMENT MAY START AT 2ND HALF\r\nC                 OF A COMPLEX WORD\r\nC             (3) UP TO 3 ZEROS MAY BE IMBEDDED IN NON-ZERO STRING\r\nC             (4) THE CHOICE OF 2 KEY WORDS IN ONE KEY RECORD OVER 2 KEY\r\nC                 WORDS IN TWO RECORDS (AS IN MSC/NASTRAN), IS NOT TO\r\nC                 MAKE THE ORIGINAL COSMIC OUTPT2/INPTT2 OBSOLETE.\r\nC                 (i.e. WE DON'T FOLLOW OTHER PEOPLE BLINDLY SO TO MAKE\r\nC                 OURSELVES OBSOLETE)\r\nC             (5) ALTHOUGH OUTPT2 ALWAYS WRITES 2 KEY WORDS OUT IN A\r\nC                 RECORD. ONE MAY CHOOSE TO READ BACK ONE OR BOTH KEYS.\r\nC\r\nC     REVISED  11/90 BY G.CHAN/UNISYS TO INCLUDE P4 AND P5 PARAMETERS\r\nC     LAST REVISED  2/93 BY G.CHAN    TO INCLUDE P6 PARAMETER\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         SPARSE,DP\r\n      CHARACTER*6     MT,MATRIX,TABLE\r\n      DIMENSION       DX(3),TRL(8),NAME(2),SUBNAM(2),INP(3),NAMEX(2),\r\n     1                IDHDR(7),IDHDRX(7),P3X(2),TAPCOD(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\nCWKBNB\r\n      CHARACTER*80    DSNAMES\r\n      COMMON /DSNAME/ DSNAMES(80)\r\nCWKBNE\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / P1,P2,P3(2),P4,P5,P6(2)\r\n     1       /SYSTEM/ BUFFSZ,NOUT,DUM6(6),NLPP,DUM2(2),LINE,DUM(2),D(3)\r\n     2       /ZZZZZZ/ X(1)\r\n     3       /MACHIN/ MACH\r\n      COMMON /UNPAKX/ ITYPE,IROW,NROW,INCR\r\n      DATA    SUBNAM/ 4HOUTP, 4HT2  /, MATRIX,TABLE /'MATRIX',' TABLE'/\r\n      DATA    INP   / 1HT, 1H1, 1H2 /, MSC   / 4HMSC   /\r\n      DATA    ZERO  , MONE,MTWO,MTRE,MNIN    / 0,-1,-2,-3,-9 /\r\n      DATA    IDHDR / 4HNAST,4HRAN ,4HFORT,4H TAP,4HE ID,4H COD,4HE - /\r\nCWKBI\r\n      DATA    IFIRST/0/\r\nC\r\nC     CHECK P2 AND P4 PARAMETERS\r\nC\r\nCWKBI 3/95 SPR94016      \r\n      LCOR   = KORSZ(X) - BUFFSZ           \r\n      IF (P2 .GE. 11 .AND. P2 .LE. 21 ) GO TO 20\r\n      J = 11\r\n      WRITE  (NOUT,10) UWM,P2,J,INP(I)\r\n   10 FORMAT (A25,' FROM OUTPUT2 MODULE. UNACCEPTABLE FORTRAN UNIT',I3,\r\n     1       ' WAS CHANGED TO',I3,' (INP',A1,1H))\r\n      P2 = J\r\n   20 IF (P4) 25,30,35\r\n   25 LREC = -P4*BUFFSZ\r\n      GO TO 40\r\n   30 LREC = LCOR\r\n      IF (MACH  .EQ.   2) LREC = 1024\r\n      IF (P6(1) .EQ. MSC) LREC = 2*BUFFSZ\r\n      GO TO 40\r\n   35 LREC = P4\r\n   40 IF (LREC .GT.   LCOR) LREC = LCOR\r\n      IF (LREC .LT. BUFFSZ) LREC = BUFFSZ\r\n      IF (P4 .NE. 0) WRITE (NOUT,50) UIM,LREC\r\n   50 FORMAT (A29,' 4116, MAXIMUM FORTRAN RECORD SIZE USED IN OUTPUT2 ',\r\n     1        'WAS',I8,' WORDS')\r\n      P4 = LREC\r\nCWKBNB\r\n      IF ( IFIRST .NE. 0 ) GO TO 51\r\n      CLOSE ( UNIT=P2 )\r\n      OPEN ( UNIT=P2, FILE=DSNAMES(P2), FORM='UNFORMATTED',\r\n     1       STATUS='UNKNOWN' )\r\n      IFIRST = 1\r\n51    CONTINUE\r\nCWKBNE\r\n      IF (P6(1) .EQ. MSC) CALL OUTMSC (*1000,*420)\r\nC\r\n      SPARSE = .FALSE.\r\n      IF (P5 .NE. 0) SPARSE = .TRUE.\r\n      ENDFIL = 0\r\n      ENDREC = 0\r\nCWKBD 3/95 SPR94016      LCOR   = KORSZ(X) - BUFFSZ           \r\n      ICRQ   =-LCOR\r\n      IF (LCOR .LE. 0) GO TO 890\r\n      INBUF  = LCOR + 1\r\n      TAPCOD(1) = P3(1)\r\n      TAPCOD(2) = P3(2)\r\n      OUT = P2\r\n      IF (P1 .EQ. MNIN) GO TO 410\r\n      IF (P1.LT.MTRE .OR. P1.EQ.MTWO) GO TO 810\r\nC\r\n      IF (P1 .EQ. MTRE) GO TO 500\r\n      IF (P1 .LE. ZERO) GO TO 80\r\nC\r\n      I = 1\r\n   60 READ (OUT) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 900\r\n      READ (OUT) NAMEX\r\n      READ (OUT) KEY\r\n      IF (KEY .GE. 0) GO TO 920\r\n      ASSIGN 70 TO RET\r\n      NSKIP = 1\r\n      GO TO 700\r\n   70 I = I + 1\r\n      IF (I .LE. P1) GO TO 60\r\nC\r\n   80 IF (P1 .NE. MONE) GO TO 90\r\nC\r\nC     REWIND OUTPUT TAPE. (P1 = -1)\r\nC\r\n      REWIND OUT\r\n      KEY = 3\r\n      WRITE (OUT) KEY,ZERO\r\n      WRITE (OUT) D\r\n      KEY = 7\r\n      WRITE (OUT) KEY,ZERO\r\n      WRITE (OUT) IDHDR\r\n      KEY = 2\r\n      WRITE (OUT) KEY,ZERO\r\n      WRITE (OUT) P3\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\n      WRITE (OUT) ENDFIL,ZERO\r\n      ENDREC = 0\r\nC\r\n   90 DO 400 I = 1,5\r\n      INPUT  = 100 + I\r\n      TRL(1) = INPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 400\r\n      CALL FNAME (INPUT,NAME)\r\nC\r\nC     OPEN INPUT DATA BLOCK TO READ WITH REWIND.\r\nC\r\n      CALL OPEN (*800,INPUT,X(INBUF),0)\r\n      CALL SKPREC (INPUT,1)\r\n      TRL(8) = 1\r\n      CALL RECTYP (INPUT,IREC1)\r\n      IF (IREC1 .NE. 0) GO TO 100\r\n      TRL(8) = 0\r\n      CALL READ (*100,*100,INPUT,X(1),1,1,NF)\r\n      CALL RECTYP (INPUT,IREC2)\r\n      IF (IREC2 .EQ. 0) GO TO 100\r\n      TRL(8) = 2\r\n  100 CALL REWIND (INPUT)\r\n      KEY = 2\r\n      WRITE (OUT) KEY,ZERO\r\n      WRITE (OUT) NAME\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\n      KEY = 8\r\n      WRITE (OUT) KEY,ZERO\r\n      WRITE (OUT) TRL\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\n      INDEX = 0\r\nC\r\nC     COPY CONTENTS OF INPUT DATA BLOCK ONTO FILE.\r\nC     (OR THE HEADER RECORD OF A MATRIX DATA BLOCK)\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS  2/93\r\nC     THE WRITES IN LOOP 110 AND 120 SEEM DATA TYPE (S.P. OR D.P.)\r\nC     INCENSITIVE. THE D.P. DATA IN KELM, MELM AND BELM TABLES SHOULD\r\nC     WORK OK.\r\nC\r\n  110 CALL READ (*310,*120,INPUT,X(1),LREC,0,NF)\r\n      WRITE (OUT) LREC,ZERO\r\n      WRITE (OUT) (X(L),L=1,LREC)\r\n      GO TO 110\r\nC\r\n  120 WRITE (OUT) NF,ZERO\r\n      WRITE (OUT) (X(L),L=1,NF)\r\n      ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\n      IF (TRL(8) .EQ. 0) GO TO 110\r\n      IF (TRL(8) .EQ. 1) GO TO 130\r\n      IF (INDEX  .GT. 0) GO TO 130\r\n      INDEX = 1\r\n      GO TO 110\r\nC\r\nC     COPY STRING FORMATTED MATRIX\r\nC\r\n  130 IF (TRL(8).EQ.2 .AND. INDEX.EQ.2) GO TO 140\r\n      INDEX = 2\r\n      NWDS  = TRL(5)\r\n      DP    = .FALSE.\r\n      IF (NWDS.EQ.2 .OR. NWDS.EQ. 4) DP = .TRUE.\r\n      DSP   = 1\r\n      IF (DP) DSP = 2\r\n      IF (NWDS .EQ. 3) NWDS = 2\r\nC         NWDS=1,SP  -  =2,DP,CS  -  =4,CDP\r\nC\r\n      INCR = 1\r\n      NWDS = TRL(3)*NWDS\r\nC\r\nC     CHECK FOR NULL MATRIX\r\nC\r\n      IF (TRL(2).EQ.0 .OR. TRL(3).EQ.0) GO TO 310\r\nC\r\nC     NWDS HAS NUMBER WORDS NEEDED PER COLUMN\r\nC\r\n      ICRQ = NWDS - LCOR\r\n      IF (NWDS .GT. LCOR) GO TO 890\r\n      ITYPE = TRL(5)\r\n      IROW  = 1\r\n      NROW  = TRL(3)\r\n      NCOL  = TRL(2)\r\n      IF (TRL(8) .EQ. 2) NCOL = 1\r\n  140 DO 300 L = 1,NCOL\r\n      CALL UNPACK (*180,INPUT,X)\r\n      IF (SPARSE) GO TO 200\r\n  150 DO 160 KB = 1,NWDS,LREC\r\n      KE = KB + LREC - 1\r\n      IF (KE .GT. NWDS) KE = NWDS\r\n      KBE = KE - KB + 1\r\n      WRITE (OUT) KBE,ZERO\r\n      WRITE (OUT) (X(K),K=KB,KE)\r\n  160 CONTINUE\r\nC\r\n  170 ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\n      GO TO 300\r\n  180 IF (SPARSE) GO TO 170\r\n      DO 190 K = 1,NWDS\r\n      X(K) = 0\r\n  190 CONTINUE\r\n      GO TO 150\r\nC\r\nC     SPARSE MASTRIX OUT\r\nC\r\n  200 J12 = -1\r\n      DO 260 J = 1,NWDS,DSP\r\n      IF (J12  .GE.  +1) GO TO 220\r\n      IF (X(J) .NE. 0.0) GO TO 210\r\n      IF (DP) IF (X(J+1)) 210,260,210\r\n      GO TO 260\r\n  210 J12 = +1\r\n      K2  = J - 1\r\n      GO TO 260\r\n  220 IF (X(J) .NE. 0.0) GO TO 260\r\n      IF (DP) IF (X(J+1)) 260,230,260\r\n  230 IF (J12 .EQ. -1) CALL MESAGE (-37,0,SUBNAM)\r\n      J12 = J12 + 1\r\nC\r\nC     ALLOW UP TO 3 IMBEDDED ZEROS\r\nC\r\n      IF (J12 .LE. 3) GO TO 260\r\n      IF (X(J-1).NE.0.0 .OR. X(J-2).NE. 0.0) GO TO 260\r\n      J12 = -1\r\n      K1  = J - K2\r\n      IF (K1 .GT. LREC) GO TO 240\r\n      WRITE (OUT) K1,K2\r\n      WRITE (OUT) (X(K2+K),K=1,K1)\r\n      GO TO 260\r\n  240 KE = J\r\n      KB = K2 + 1\r\n      DO 250 KK = KB,KE,LREC\r\n      K2 = KK - 1\r\n      K1 = K2 + LREC\r\n      IF (K1 .GT. KE) K1 = KE\r\n      WRITE (OUT) K1,K2\r\n      WRITE (OUT) (X(K2+K),K=1,K1)\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\n      IF (J12 .EQ. -1) GO TO 290\r\n      J12 = -1\r\n      K1  = NWDS - K2\r\n      IF (K1 .GE. LREC) GO TO 270\r\n      WRITE (OUT) K1,K2\r\n      WRITE (OUT) (X(K2+K),K=1,K1)\r\n      GO TO 290\r\n  270 KE = NWDS\r\n      KB = K2 + 1\r\n      DO 280 KK = KB,KE,LREC\r\n      K2 = KK - 1\r\n      K1 = K2 + LREC\r\n      IF (K1 .GT. KE) K1 = KE\r\n      WRITE (OUT) K1,K2\r\n      WRITE (OUT) (X(K2+K),K=1,K1)\r\n  280 CONTINUE\r\nC\r\n  290 ENDREC = ENDREC - 1\r\n      WRITE (OUT) ENDREC,ZERO\r\nC\r\n  300 CONTINUE\r\nC\r\n      IF (TRL(8) .EQ. 2) GO TO 110\r\nC\r\nC     CLOSE INPUT DATA BLOCK WITH REWIND\r\nC\r\n  310 CALL CLOSE (INPUT,1)\r\nC\r\n      WRITE (OUT) ENDFIL,ZERO\r\n      ENDREC = 0\r\n      CALL PAGE2 (-4)\r\n      MT = MATRIX\r\n      IF (TRL(8) .EQ. 0) MT = TABLE\r\n      WRITE  (NOUT,320) UIM,MT,NAME,OUT,(TRL(II),II=2,7)\r\n  320 FORMAT (A29,' 4114, ',A6,' DATA BLOCK ',2A4,\r\n     1       ' WRITTEN ON FORTRAN UNIT',I4, /5X,'TRAILR =',5I6,I9)\r\n      IF (SPARSE .AND. TRL(8).NE.0) WRITE (NOUT,330)\r\n  330 FORMAT (1H+,55X,'(SPARSE MATRIX)')\r\nC\r\n  400 CONTINUE\r\n      GO TO 1000\r\nC\r\nC     FINAL CALL TO OUTPUT2. (P1 = -9)\r\nC\r\n  410 WRITE (OUT) ENDFIL,ZERO\r\n  420 ENDREC = 0\r\n      ENDFILE OUT\r\n      REWIND OUT\r\n      WRITE  (NOUT,430) UIM\r\n  430 FORMAT (A29,'. OUTPUT2 MODULE WROTE AN E-O-F RECORD, A SYSTEM ',\r\n     1       'E-O-F MARK, AND REWOUND THE OUTPUT TAPE. (P1=-9)')\r\n      GO TO 1000\r\nC\r\nC     OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE.  (P1 = -3)\r\nC\r\n  500 REWIND OUT\r\n      READ (OUT) KEY\r\n      KEYX = 3\r\n      IF (KEY .NE. KEYX) GO TO 900\r\n      READ (OUT) DX\r\n      READ (OUT) KEY\r\n      KEYX = 7\r\n      IF (KEY .NE. KEYX) GO TO 900\r\n      READ (OUT) IDHDRX\r\n      DO 510 KF = 1,7\r\n      IF (IDHDRX(KF) .NE. IDHDR(KF)) GO TO 830\r\n  510 CONTINUE\r\n      READ (OUT) KEY\r\n      KEYX = 2\r\n      IF (KEY .NE. KEYX) GO TO 900\r\n      READ (OUT) P3X\r\n      IF (P3X(1).NE.P3(1) .OR. P3X(2).NE.P3(2)) GO TO 850\r\n  520 ASSIGN 530 TO RET\r\n      NSKIP = 1\r\n      GO TO 700\r\n  530 KF = 0\r\n  540 CALL PAGE1\r\n      LINE = LINE + 8\r\n      WRITE  (NOUT,550) OUT\r\n  550 FORMAT (1H0, 50X, 30HFILE CONTENTS ON FORTRAN UNIT , I2,\r\n     1            /51X, 32(1H-), ///54X, 4HFILE, 18X, 4HNAME/1H0)\r\n  560 READ (OUT) KEY\r\n      IF (KEY) 870,600,570\r\n  570 READ (OUT) NAMEX\r\n      ASSIGN 580 TO RET\r\n      NSKIP = 1\r\n      GO TO 700\r\n  580 KF   = KF + 1\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,590) KF,NAMEX\r\n  590 FORMAT (53X,I5,18X,2A4)\r\n      IF (LINE-NLPP) 560,540,540\r\n  600 ASSIGN 90 TO RET\r\n      NSKIP = -(KF+1)\r\n      GO TO 700\r\nC\r\nC     SIMULATION OF SKPFIL (OUT,NSKIP)\r\nC\r\n  700 IF (NSKIP) 720,710,730\r\n  710 GO TO RET, (70,90,530,580)\r\n  720 REWIND OUT\r\nC\r\nC     NSKIP IS THE NEGATIVE OF THE NUMBER OF FILES TO BE SKIPPED\r\nC\r\n      NSKIP = -NSKIP\r\n  730 DO 770 NS = 1,NSKIP\r\n  740 READ (OUT) KEY\r\n      IF (KEY) 740,760,750\r\n  750 CONTINUE\r\nC     ICRQ = KEY - LCOR\r\nC     IF (KEY .GT. LCOR) GO TO 9917\r\n      READ (OUT) L\r\n      GO TO 740\r\n  760 CONTINUE\r\n  770 CONTINUE\r\n      GO TO 710\r\nC\r\nC\r\nC     ERRORS\r\nC\r\n  800 MM = -1\r\n      GO TO 950\r\nC\r\n  810 WRITE  (NOUT,820) UFM,P1\r\n  820 FORMAT (A23,' 4120, MODULE OUTPUT2 - ILLEGAL VALUE FOR FIRST ',\r\n     1       'PARAMETER =',I20)\r\n      LINE = LINE + 2\r\n      GO TO 940\r\n  830 WRITE  (NOUT,840) UFM,(IDHDRX(KF),KF=1,7)\r\n  840 FORMAT (A23,' 4130, MODULE OUTPUT2 - ILLEGAL TAPE CODE HEADER = ',\r\n     1        7A4)\r\n      LINE = LINE + 2\r\n      GO TO 940\r\n  850 WRITE  (NOUT,860) UWM,P3X,P3\r\n  860 FORMAT (A25,' 4131, FORTRAN TAPE ID CODE -',2A4,'- DOES NOT MATCH'\r\n     1,       ' THIRD OUTPUT2 DMAP PARAMETER -',2A4,2H-.)\r\n      LINE = LINE + 2\r\n      GO TO 520\r\n  870 WRITE  (NOUT,880) SFM\r\n  880 FORMAT (A25,' 4115, MODULE OUTPUT2 - SHORT RECORD.')\r\n      LINE = LINE + 2\r\n      GO TO 940\r\n  890 MM = -8\r\n      INPUT = ICRQ\r\n      GO TO 950\r\n  900 WRITE  (NOUT,930) SFM,KEY\r\n      WRITE  (NOUT,910) KEYX\r\n  910 FORMAT (10X,17HEXPECTED VALUE = ,I10,1H.)\r\n      LINE = LINE + 3\r\n      GO TO 940\r\n  920 WRITE  (NOUT,930) SFM,KEY\r\n  930 FORMAT (A25,' 2190, ILLEGAL VALUE FOR KEY =',I10,1H.)\r\n      LINE = LINE + 2\r\n      GO TO 940\r\nC\r\n  940 MM = -37\r\n  950 CALL MESAGE (MM,INPUT,SUBNAM)\r\nC\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/outpt3.f",
    "content": "      SUBROUTINE OUTPT3\r\nC\r\nC     PUNCH UP TO 5 MATRIX DATA BLOCK ONTO DMI CARDS\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     OUTPUT3   M1,M2,M3,M4,M5//C,N,PO/C,Y,N1=AB/C,Y,N2=CD/C,Y,N3=EF/\r\nC                                      C,Y,N4=GH/C,Y,N5=IJ   $\r\nC\r\nC               PO = FORTRAN OUTPUT FILE UNIT NO. (DEFAULT = 0)\r\nC                    .GE.0 MEANS NO LISTING OF  CARD IMAGES WILL BE MADE\r\nC                    .LT.0 MEANS LISTING OF DMI CARD IMAGES WILL BE MADE\r\nC                          ON FORTRAN UNIT = IABS(PO).\r\nC\r\nC\r\nC\r\n      LOGICAL         FIRST\r\n      INTEGER         IN(5),SUBNAM(2),NAME(2),TRL(7),ERNO,PARAM,\r\n     1                TRL1,TRL2,TRL3,TRL4,TRL5,TRL6,TRL7,EOL,EOR\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / JO,PARAM(2,5)\r\n     1       /SYSTEM/ NB,NO,JUNK(6),NLPP\r\n     2       /ZZZZZZ/ X(1)\r\n     3       /ZNTPKX/ Z(4),IZ,EOL,EOR\r\n     4       /PHDMIX/ NAMEX(2),NAM,IFO,ITIN,ITOUT,IR,IC,NOUTPT,KPP,NLP,\r\n     5                ERNO,ICOL,IRO,XX,ICARD1\r\n      EQUIVALENCE     (TRL(1),TRL1), (TRL(2),TRL2), (TRL(3),TRL3),\r\n     1                (TRL(4),TRL4), (TRL(5),TRL5), (TRL(6),TRL6),\r\n     2                (TRL(7),TRL7)\r\n      DATA    SUBNAM/ 4HOUTP,4HUT3 /,  IN/ 101,102,103,104,105 /\r\n      DATA    ITYP  / 1 /\r\nC\r\nC\r\n      LCOR = KORSZ(X) - NB\r\n      IF (LCOR .LE. 0) CALL MESAGE (-8,LCOR,SUBNAM)\r\n      IBUF = LCOR+1\r\n      JONO = 0\r\n      IF (JO .LT. 0) JONO = IABS(JO)\r\n      NOUTPT = JONO\r\n      ITIN = 1\r\n      KPP  = 2\r\n      NLP  = NLPP\r\nC\r\n      DO 1000 II = 1,5\r\n      TRL1 = IN(II)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL1 .LE. 0) GO TO 1000\r\n      CALL FNAME (IN(II),NAME)\r\n      CALL GOPEN (IN(II),X(IBUF),0)\r\n      NAMEX(1) = NAME(1)\r\n      NAMEX(2) = NAME(2)\r\n      NAM  = PARAM(1,II)\r\n      IFO  = TRL4\r\n      ITOUT= 0\r\n      IR   = TRL3\r\n      IC   = TRL2\r\n      CALL PHDMIA\r\n      IF (ERNO .NE. 0) GO TO 9400\r\nC\r\n      DO 900 J = 1,TRL2\r\n      CALL INTPK (*900,IN(II),0,ITYP,0)\r\n      FIRST = .FALSE.\r\n      ICOL  = J\r\nC\r\n      DO 800 I = 1,TRL3\r\n      IF (EOL .NE. 0) GO TO 850\r\n      CALL ZNTPKI\r\n      IRO = IZ\r\n      XX  = Z(1)\r\nC\r\nC     VAX MAY HAVE A FEW IMBEDED ZEROS\r\nC\r\n      IF (XX .EQ. 0.0) GO TO 800\r\n      IF (FIRST) GO TO 100\r\n      FIRST = .TRUE.\r\n      CALL PHDMIB\r\n      IF (ERNO) 9400,200,9400\r\n  100 CALL PHDMIC\r\n      IF (ERNO) 9400,200,9400\r\n  200 CONTINUE\r\n  800 CONTINUE\r\nC\r\n  850 CALL PHDMID\r\n      IF (ERNO .NE. 0) GO TO 9400\r\n  900 CONTINUE\r\nC\r\n      NCARDS = ICARD1 + 1\r\n      CALL PAGE2 (-2)\r\n      WRITE  (NO,1) UIM,NAME,NCARDS\r\n    1 FORMAT (A29,' 4103, OUTPUT3 HAS PUNCHED MATRIX DATA BLOCK ',2A4,\r\n     1       ' ONTO ',I5,' DMI CARDS.')\r\n      CALL CLOSE (IN(II),1)\r\n 1000 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE\r\nC\r\n 9400 CALL PAGE2 (-2)\r\n      WRITE  (NO,9450) UFM\r\n 9450 FORMAT (A23,' 4104, ATTEMPT TO PUNCH MORE THAN 99999 DMI CARDS ',\r\n     1       'FOR A SINGLE MATRIX.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/outpt4.f",
    "content": "      SUBROUTINE OUTPT4\r\nC\r\nC     COPY MATRIX DATA BLOCKS ONTO A FORTRAN TAPE, BINARY OR ASCII\r\nC     FORMATS, IN DENSE MATRIX FORM (FROM FIRST TO LAST NON-ZERO TERMS\r\nC     OF COLUMNS), OR IN SPARSE FORM (BY STRINGS)\r\nC\r\nC     A LOGICAL OUTPUT RECORD, WHICH CAN BE ONE OR MORE PHYSICAL RECORES\r\nC     BEGINS WITH 3 INTEGER WORD THEN AN ARRAY OF DATA\r\nC\r\nC     FIRST  INTEGER WORD = LOGICAL RECORD NUMBER, OR COLUMN NUMBER\r\nC     SECOND INTEGER WORD = ROW POSITION OF 1ST NONZERO TERM IN COLUMN\r\nC                         = 0, SPARSE MATRIX (BINARY ONLY)\r\nC                       .LT.0, SPARSE MATRIX ROW POSITION (ASCII ONLY)\r\nC     THIRD  INTEGER WORD = NW, LENGTH OF ARRAY DATA THAT FOLLOW\r\nC                           NW IS BASED ON S.P. WORD COUNT (BINARY ONLY)\r\nC                           NW IS DATA PRECISION TYPE DEPENDENT (ASCII)\r\nC\r\nC     OUTPUT4 DOES NOT HANDLE TABLE DATA BLOCK, EXECPT 6 SPECIAL TABLES\r\nC     KELM, MELM, BELM, KDICT, MDICT, AND BDICT.\r\nC\r\nC\r\nC     OUTPUT4   IN1,IN2,IN3,IN4,IN5 // V,N,P1 / V,N,P2 / V,N,P3  $\r\nC\r\nC     PARAMETERS P1, P2 AND P3 ARE INTEGERS\r\nC\r\nC     P1 = 0, NO ACTION TAKEN BEFORE WRITE (DEFAULT)\r\nC        =-1, REWIND TAPE BEFORE WRITE\r\nC        =-2, AT END, WRITE E-O-F MARK AND REWIND TAPE\r\nC        =-3, BOTH -1 AND -2\r\nC        =-9, NOT AVAILABLE\r\nC\r\nC     P2 = N, FORTRAN OUTPUT UNIT N (N = 11,...,24)\r\nC        =-N, MATRIX WILL BE WRITTEN OUT IN SPARSE FORMAT ONTO UNIT N.\r\nC\r\nC     P3 = 1, FILE OUTPUT IN FORTRAN BINARY FORMAT (UNFORMATTED)\r\nC        = 2, FILE OUTPUT IN BCD FORMAT (ASCII, FORMATTED)\r\nC          .  NO MIXED INTEGERS AND REAL NUMBERS IN A FORMATTED RECORD.\r\nC             THE RECORD LENGTH IS LESS THAN 132 BYTES.\r\nC          .  IF INPUT MATRIX TO BE COPIED OUT IS IN S.P., INTEGERS ARE\r\nC             WRITTEN OUT IN I13, AND S.P.REAL DATA IN 10E13.6.\r\nC          .  IF INPUT MATRIX TO BE COPIED OUT IS IN D.P., INTEGERS ARE\r\nC             WRITTEN OUT IN I16, AND D.P.REAL DATA IN 8D16.9.\r\nC        = 3, FORMATS I16 AHD 8E16.9 ARE USED TO COPY INTEGERS AND S.P.\r\nC             REAL DATA OUT TO OUTPUT TAPE. P3=3 IS USED ONLY FOR\r\nC             MACHINE WITH LONG WORDS (60 OR MORE BITS PER WORD)\r\nC\r\nC     THESE OUTPUT FORMATS CAN BE CHANGED EASILY BY ALTERING FORMATS\r\nC     40, 50, 60 AND 370. MAKE SURE AN OUTPUT LINE DOES NOT EXCEED 132\r\nC     COLUMNS. OTHERWISE, IT WOULD BE FOLDED IN PRINTOUT OR SCREEN\r\nC     LISTING.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS  3/93\r\nC\r\n      LOGICAL          SPARSE,BO,SP,DP,CP\r\n      INTEGER          P1,P2,P3,BUF1,D,ZERO,TRL(8),NAME(2),NONE(2),\r\n     1                 IX(3),BLOCK(20),INP(13),SUB(2),TAB1(6),TAB2(6)\r\n      REAL             XNS(1)\r\n      DOUBLE PRECISION DX(1),DXNS(1)\r\n      CHARACTER*6      DNS,SPA,DS\r\n      CHARACTER*11     FMD,UNF,FM\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\nCWKBI\r\n      CHARACTER*80    DSNAMES\r\nCWKBI\r\n      COMMON / DSNAME / DSNAMES(80)\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  P1,P2,P3\r\n      COMMON /SYSTEM/  IBUFF,NOUT,DUM1(6),NLPP,DUM2(2),LINE,DUM3(2),\r\n     1                 D(3),DUM22(22),NBPW\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /UNPAKX/  ITU,II,JJ,INCR\r\n      COMMON /TYPE  /  PRC(2),NWD(4)\r\n      COMMON /ZZZZZZ/  X(1)\r\n      EQUIVALENCE      (X(1),XNS(1))\r\n      EQUIVALENCE      (X(1),IX(1),DX(1)),(XNS(1),DXNS(1)),(NM1,NAME(1))\r\n      DATA    INP   /  4HUT1 ,4HUT2 ,4HUT3 ,4HINPT,4HINP1,4HINP2,4HINP3,\r\n     1                 4HINP4,4HINP5,4HINP6,4HINP7,4HINP8,4HINP9/\r\n      DATA    TAB1  /  4HKELM,4HMELM,4HBELM,4HKDIC,4HMDIC,4HBDIC/,\r\n     1        TAB2  /  4HHKEL,4HHMEL,4HHBEL,4HHKDI,4HHMDI,4HHBDI/\r\n      DATA    DNS   ,  SPA  / 'DENSE ', 'SPARSE' /  RZERO,ZERO  / 0.,0 /\r\n      DATA    FMD   ,  UNF  / 'FORMATTED  ','UNFORMATTED' /\r\n      DATA    NONE  ,  SUB  / 4H (NO,4HNE) ,4HOUTP,4HT4   /\r\nCWKBI\r\n      DATA    IFIRST / 0 /\r\nC\r\n      SPARSE = P2.LT.0\r\n      P2   = IABS(P2)\r\n      IF (P2.LE.10 .OR. P2.GT.24) GO TO 500\r\n      BO   = P3.NE.1\r\n      II   = 1\r\n      INCR = 1\r\n      LCOR = KORSZ(X(1))\r\n      BUF1 = LCOR - IBUFF\r\nC\r\n      FM = UNF\r\n      IF (BO) FM = FMD\r\nCWKBNB\r\n      IF ( BO .OR. IFIRST .NE. 0 ) GO TO 1\r\n      CLOSE ( UNIT=P2 )\r\n      OPEN (UNIT=P2,STATUS='NEW',ACCESS='SEQUENTIAL',FORM=FM,ERR=500\r\n     1      ,FILE=DSNAMES(P2) )\r\n1     CONTINUE\r\n      IFIRST = 1\r\nCWBKNE\r\n      IF (P1.EQ.-1 .OR. P1.EQ.-3) REWIND P2\r\nC\r\n      DO 400 IPT = 1,5\r\n      NDICT = 0\r\n      INPUT = 100 + IPT\r\n      TRL(1)= INPUT\r\n      CALL RDTRL (TRL(1))\r\n      IF (TRL(1) .LE. 0) GO TO 400\r\n      CALL FNAME (INPUT,NAME)\r\n      IF (NM1.EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 400\r\n      IF (TRL(7).EQ.0 .AND. TRL(8).EQ.0) GO TO 250\r\n      IF (TRL(4).LT.1 .OR.  TRL(4).GT.8) GO TO 250\r\n      NC   = TRL(2)\r\n      NR   = TRL(3)\r\n      ITU  = TRL(5)\r\n      IF (NC.EQ.0 .OR. NR.EQ.0 .OR. (ITU.LT.1 .OR. ITU.GT.4)) GO TO 250\r\n      NWDS = NWD(ITU)\r\n      IF (NR*NWDS .GE. BUF1) CALL MESAGE (-8,LCOR,SUB)\r\n      DP   = ITU.EQ.2 .OR. ITU.EQ.4\r\n      SP   = .NOT.DP\r\n      CP   = SP .AND. P3.EQ.3 .AND. NBPW.GE.60\r\n      IF (CP) SP = .FALSE.\r\n      IF (BO .AND. SPARSE .AND. NC.GT.2000) WRITE (NOUT,10) UWM\r\n   10 FORMAT (A25,' FROM OUTPUT4 MODULE. ON ASCII TAPE AND SPARSE ',\r\n     1       'MATRIX OUTPUT, EACH STRING OF DATA IS WRITTEN OUT TO THE',\r\n     2   /5X,'OUTPUT TAPE AS A FORTRAN FORMATTED REDORD. FATAL ERROR',\r\n     3       ' COULD OCCUR WHEN NO. OF RECORDS EXCEED SYSTEM I/O LIMIT')\r\nC\r\nC     OPEN INPUT DATA BLOCK TO READ WITH REWIND\r\nC\r\n      CALL OPEN (*520,INPUT,X(BUF1),0)\r\n      CALL FWDREC (*520,INPUT)\r\nC\r\n      BLOCK(1) = INPUT\r\nC\r\nC     WRITE TRAILER RECORD ON OUTPUT TAPE.\r\nC     SET FORM (TRL(4)) TO NEGATIVE IF ASCII RECORDS IS REQUESTED\r\nC\r\n      K = -TRL(4)\r\n      IF (.NOT.BO) WRITE (P2   ) NC,NR,TRL(4),ITU,NAME\r\n      IF (     BO) WRITE (P2,20) NC,NR,K     ,ITU,NAME\r\n   20 FORMAT (1X,4I13,5X,2A4)\r\nC\r\n      IF (SPARSE) GO TO 100\r\nC\r\nC     DENSE MATRIX OUTPUT -\r\nC     WRITE THE MATRIX COLUMNS FROM FIRST TO LAST NON-ZERO TERMS\r\nC\r\n   30 DO 80 K = 1,NC\r\n      II = 0\r\n      CALL UNPACK (*40,INPUT,X)\r\n      JJ = (JJ-II+1)*NWDS\r\n      IF (BO) GO TO 40\r\nC\r\n      WRITE (P2) K,II,JJ,(X(L),L=1,JJ)\r\n      GO TO 80\r\nC\r\n   40 M = JJ/2\r\n      IF (SP) WRITE (P2,50) K,II,JJ,( X(L),L=1,JJ)\r\n      IF (CP) WRITE (P2,60) K,II,JJ,( X(L),L=1,JJ)\r\n      IF (DP) WRITE (P2,70) K,II,JJ,(DX(L),L=1,M )\r\n   50 FORMAT (1X,3I13,/,(1X,10E13.6))\r\n   60 FORMAT (1X,3I16,/,(1X, 8E16.9))\r\n   70 FORMAT (1X,3I16,/,(1X, 8D16.9))\r\nC\r\n   80 CONTINUE\r\nC\r\n      GO TO 210\r\nC\r\nC     SPARSE MATRIX OUPUT -\r\nC     WRITE A RECORD FOR EACH MATRIX COLUMN, IN PACKED STRINGS DATA\r\nC     IF MATRIX IS NOT WRITTEN IN STRINGS, SEND THE MATRIX TO THE DENSE\r\nC     MATRIX METHOD\r\nC\r\n  100 CALL RECTYP (INPUT,K)\r\n      IF (K .NE. 0) GO TO 110\r\n      CALL REWIND (INPUT)\r\n      CALL FWDREC (*520,INPUT)\r\n      GO TO 30\r\nC\r\nC     BLOCK(2) = STRING TYPE, 1,2,3 OR 4\r\nC     BLOCK(4) = FIRST ROW POSITION ON A MATRIX COLUMN\r\nC     BLOCK(5) = POINTER TO STRING IN XNS ARRAY\r\nC     BLOCK(6) = NO. OF TERMS IN STRING\r\nC\r\n  110 NWORDS   = NWD(ITU)\r\n      NWORD1   = NWORDS - 1\r\n      DO 200 K = 1,NC\r\n      BLOCK(8) = -1\r\n      NW = 0\r\n  120 CALL GETSTR (*150,BLOCK)\r\n      IF (BO) GO TO 160\r\n      LN = BLOCK(6)*NWORDS\r\n      J1 = BLOCK(5)*NWORDS - NWORD1\r\n      J2 = J1 + LN - 1\r\nC\r\n      NW = NW + 1\r\n      IX(NW) = BLOCK(4) + 65536*BLOCK(6)\r\n      L  = 1\r\n      DO 130 J = J1,J2\r\n      X(L+NW) = XNS(J)\r\n  130 L  = L + 1\r\n      NW = NW + LN\r\n      IF (NW .GE. BUF1) CALL MESAGE (-8,LCOR,SUB)\r\n  140 CALL ENDGET (BLOCK)\r\n      GO TO 120\r\n  150 IF (NW .GT. 0) WRITE (P2) K,ZERO,NW,(X(J),J=1,NW)\r\n      GO TO 200\r\nC\r\nC     NOTE - FOR THE BCD OUTPUT RECORD, THE 2ND INTEGER WORD, ZERO\r\nC     BEFORE, IS REPLACED BY THE NEGATIVE OF THE ROW POSITION (IN A\r\nC     MATRIX COLUMN).\r\nC     DOUBLE THE POINTER TO THE STRING IN XNS ARRAY, J1, IF DATA TYPE IS\r\nC     COMPLEX, BUT NOT THE LENGTH LN.\r\nC\r\n  160 LN = BLOCK(6)\r\n      J1 = BLOCK(5)\r\n      IF (BLOCK(2) .GE. 3) J1 = J1*2\r\n      J2 = J1 + LN - 1\r\n      MROW = -BLOCK(4)\r\nC\r\nC                   ZERO REPLACED   EXACT LENGTH OF XNS, OR DXNS\r\nC                               /   /\r\n      IF (SP) WRITE (P2,50) K,MROW,LN,( XNS(J),J=J1,J2)\r\n      IF (CP) WRITE (P2,60) K,MROW,LN,( XNS(J),J=J1,J2)\r\n      IF (DP) WRITE (P2,70) K,MROW,LN,(DXNS(J),J=J1,J2)\r\n      GO TO 140\r\nC\r\n  200 CONTINUE\r\nC\r\nC     WRITE AN EXTRA NCOL+1 COLUMN RECORD OUT TO P2, AND AT LEAST ONE\r\nC     VALUE OF ZERO\r\nC\r\n  210 M  = 1\r\n      K  = NC + 1\r\n      IF (BO) GO TO 220\r\n      WRITE (P2) K,M,M,RZERO\r\n      GO TO 230\r\n  220 IF (SP) WRITE (P2,50) K,M,M,RZERO\r\n      IF (CP .OR. DP) WRITE (P2,60) K,M,M,RZERO\r\n  230 DS = DNS\r\n      IF (SPARSE) DS = SPA\r\n      WRITE  (NOUT,240) UIM,NAME,P2,INP(P2-10),FM,DS,(TRL(L),L=2,7)\r\n  240 FORMAT (A29,' FROM OUTPUT4 MODULE. DATA BLOCK ',2A4,' WAS WRITTEN'\r\n     1,       ' OUT TO FORTRAN TAPE',I3,' (',A4,')', /5X,'IN ',A11,\r\n     2        ' RECORDS. ',A6,' MATRIX FORM.  TRAILER =',5I6,I9)\r\n      GO TO 280\r\nC\r\nC     INPUT FILE IS A TABLE DATA BLOCK\r\nC     ONLY 6 SPECIAL TABLES ARE ALLOWED\r\nC\r\n  250 DO 260 I = 1,6\r\n      IF (NM1.EQ.TAB1(I) .OR. NM1.EQ.TAB2(I)) GO TO 290\r\n  260 CONTINUE\r\n      IF (BO) WRITE (P2,270) UWM,INPUT,NAME,(TRL(J),J=2,7)\r\n      WRITE  (NOUT,270) UWM,INPUT,NAME,(TRL(J),J=2,7)\r\n  270 FORMAT (A25,'. INPUT DATA BLOCK',I5,2H, ,2A4,', IS A TABLE OR A ',\r\n     1       'NULL MATRIX. OUTPUT4 MODULE HANDLES ONLY MATRICES', /5X,\r\n     2       'TRAILER =',6I6)\r\n  280 CALL CLOSE (INPUT,1)\r\n      GO TO 400\r\nC\r\nC     KELM, MELM AND BELM (AND HKELM, HMELM AND HBELM) TALBES\r\nC\r\n  290 IF (SPARSE) WRITE (NOUT,300) UWM,NAME,P2,P3\r\n  300 FORMAT (A25,'. PARAMETER P2 FOR SPARSE MATRIX IS MEANINGLESS FOR',\r\n     1       ' THE ',2A8,' INPUT FILE.   P2,P3 =',2I4,/)\r\n      CALL OPEN (*520,INPUT,X(BUF1),0)\r\n      CALL FWDREC (*520,INPUT)\r\n      K = -TRL(4)\r\n      IF (.NOT.BO) WRITE (P2   ) NC,NR,TRL(4),ITU,NAME\r\n      IF (     BO) WRITE (P2,20) NC,NR,K     ,ITU,NAME\r\n      J = 1\r\n      K = 0\r\n      IF (I .GE. 4) GO TO 310\r\n      DP = TRL(2).EQ.2\r\n      SP = .NOT.DP\r\n      CP = SP .AND. P3.EQ.3 .AND. NBPW.GE.60\r\n      IF (CP) SP = .FALSE.\r\n  310 K = K + 1\r\n      CALL READ (*380,*320,INPUT,X,BUF1-1,1,M)\r\n      CALL MESAGE (-8,0,SUB)\r\n  320 IF (I .GE. 4) GO TO 350\r\n      IF (BO) GO TO 330\r\n      WRITE (P2) K,J,M,(X(L),L=1,M)\r\n      GO TO 310\r\nC\r\n  330 IF (DP) GO TO 340\r\n      IF (SP) WRITE (P2,50) K,J,M,( X(L),L=1,M)\r\n      IF (CP) WRITE (P2,60) K,J,M,( X(L),L=1,M)\r\n      GO TO 310\r\n  340 M = M/2\r\n      WRITE (P2,70) K,J,M,(DX(L),L=1,M)\r\n      GO TO 310\r\nC\r\nC     KDICT, MDICT AND BDICT (AND HKDICT, HMDICT AND HBDICT) TABLES.\r\nC     INTEGERIZE THE DAMPING CONSTANT (BY 10**8) BEFORE OUTPUT THE ARRAY\r\nC\r\n  350 NDICT = IX(3) + 5\r\n      DO 360 I = 8,M,NDICT\r\n      IX(I) = IFIX(X(I)*100000000.)\r\n  360 CONTINUE\r\n      IF (.NOT.BO) WRITE (P2) K,J,M,(IX(L),L=1,M)\r\n      IF (BO .AND. .NOT.CP) WRITE (P2,370) K,J,M,(IX(L),L=1,M)\r\n      IF (BO .AND.      CP) WRITE (P2,375) K,J,M,(IX(L),L=1,M)\r\n  370 FORMAT (1X,3I13,/,(1X,10I13))\r\n  375 FORMAT (1X,3I13,/,(1X, 8I16))\r\n      GO TO 310\r\nC\r\n  380 IF (.NOT.BO) WRITE (P2) K,J,J,ZERO\r\n      IF (BO .AND. .NOT.CP) WRITE (P2,370) K,J,J,ZERO\r\n      IF (BO .AND.      CP) WRITE (P2,375) K,J,J,ZERO\r\n      IF (NDICT .NE. 0) WRITE  (NOUT,390) UIM,NAME,INP(P2-10)\r\n  390 FORMAT (A29,'. THE DAMPING CONSTANT TERMS FROM ',2A4,' WERE ',\r\n     1       'MULTIPLIED BY 10**8, AND INTEGERIZED', /5X,\r\n     2       'BEFORE WRITING OUT TO ',A4,' OUTPUT FILE')\r\n      GO TO 280\r\nC\r\n  400 CONTINUE\r\nC\r\n      IF (P1.NE.-2 .AND. P1.NE.-3) GO TO 600\r\n      ENDFILE P2\r\n      REWIND  P2\r\n      CLOSE (UNIT=P2)\r\n      GO TO 600\r\nC\r\nC     ERRORS\r\nC\r\n  500 WRITE  (NOUT,510) UFM,P2\r\n  510 FORMAT (A23,'. CANNOT OPEN OUTPUT FORTRAN FILE. UNIT =',I4)\r\n      GO TO  540\r\n  520 WRITE  (NOUT,530) UWM,INPUT\r\n  530 FORMAT (A25,'. OUTPT4 CANNOT OPEN INPUT DATA BLOCK',I5)\r\nC\r\n  540 CALL MESAGE (-37,0,SUB)\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/outpt5.f",
    "content": "      SUBROUTINE OUTPT5\r\nC\r\nC     DRIVER OF OUTPUT5 MODULE\r\nC     COPIES UP TO 5 GINO DATA BLOCKS TO TAPE, BY FORTRAN WRITE,\r\nC     FORMATTED (ASCII), OR UNFORMATTED (BINARY)\r\nC\r\nC     THIS MODULE HAS BEEN EXPANDED TO INCLUDE TABLE DATA BLOCKS.\r\nC     ORIGINALLY IT HANDLES ONLY MATRIX DATA BLOCKS.  G.CHAN/MAY 88\r\nC\r\nC     ==== TABLE  ====\r\nC     OUTPT5 CALLS TABLE5 TO PROCESS TABLE DATA BLOCKS\r\nC      . UNFORMATTED (BINARY) OR FORMATTED (UNDER P4 CONTROL)\r\nC      . IF BINARY, EACH RECORD IS WRITTEN OUT BY -\r\nC           WRITE (OUT) L,(Z(J),J=1,L)\r\nC      . IF FORMATTED,  5 BYTES ARE USED FOR BCD WORD,\r\nC                      10 BYTES FOR INTEGER,\r\nC                      15 BYTES FOR REAL, S.P. OR D.P.\r\nC      . A HEADER RECORD, WHICH CONFORMS TO OUTPT5 HEADER STANDARD,\r\nC           IS WRITTEN OUT FIRST, PRECEEDING THE TABLE DATA RECORDS.\r\nC\r\nC     ==== MATRIX ====\r\nC     COPY GINO MATRIX DATA BLOCK(S) ONTO FORTRAN UNIT IN\r\nC      . UNPACKED BANDED RECORD\r\nC      . BANDED COLUMN  RECORD (FIRST TO LAST NON-ZERO ELEMENTS),\r\nC      . UNFORMATTED (BINARY) OR FORMATTED\r\nC      . SINGLE PRECISION OR DOUBLE, REAL OR COMPLEX DATA\r\nC      . OUTPUT FORTRAN TAPE INPI (I=T,1,2,..,9) FOR UNIVAC, IBM, VAX\r\nC                    OR TAPE UTI  (I=  1,2,..,5) FOR CDC\r\nC        (DEFAULT=INP1, UNIT 15, OR UT1, UNIT 11)\r\nC\r\nC     THIS MODULE HANDLES ONLY MATRIX DATA BLOCKS, NOT TRUE ANY MORE\r\nC\r\nC     UNFORMATTED RECORDS CAN ONLY BE USED BY THE SAME COMPUTER SYSTEM,\r\nC     WHILE FORMATTED RECORDS CAN BE USED ACROSS COMPUTER BOUNDARY\r\nC     (E.G. WRITTEN BY CDC MACHINE AND READ BY IBM) AND ALSO, CAN BE\r\nC     EDITED BY SYSTEM EDITOR, OR PRINTED OUT BY SYSTEM PRINT COMMAND.\r\nC\r\nC     CALL TO THIS MODULE IS\r\nC\r\nC     OUTPUT5  IN1,IN2,IN3,IN4,IN5//C,N,P1/C,N,P2/C,N,P3/C,N,P4\r\nC                                  /C,N,T1/C,N,T2/C,N,T3/C,N,T4... $\r\nC\r\nC              P1=+N, SKIP FORWARD N MATRIX DATA BLOCKS OR TABLES BEFORE\r\nC                     WRITE. (EXCEPT THE FIRST HEADER RECORD. EACH\r\nC                     MATRIX DATA BLOCK OR TABLE, PRECEEDED BY A HEADER\r\nC                     RECORD, IS A COMPLETE MATRIX OR TABLE, MADE UP OF\r\nC                     MANY PHYSICAL RECORDS.\r\nC                     SKIP TO THE END OF TAPE IF P1 EXCEEDS THE\r\nC                     NO. OF DATA BLOCKS AVAILABLE ON THE OUTPUT FILE)\r\nC              P1= 0, NO ACTION TAKEN BEFORE WRITE. (DEFAULT)\r\nC              P1=-1, FORTRAN TAPE IS REWOUND, A TAPE HEADER RECORD IS\r\nC                     WRITTEN TO TAPE. DATA IN FIRST GINO DATA BLOCK IS\r\nC                     COPIED TO TAPE, FOLLOWED BY 4 MORE GINO DATA\r\nC                     BLOCKS IF THEY ARE PRESENT.\r\nC                     AT END, NO EOF WRITTEN, AND TAPE NOT REWOUND\r\nC              P1=-3, THE NAMES OF ALL DATA BLOCKS ON FORTRAN TAPE\r\nC                     ARE PRINTED AND WRITE OCCURS AT THE END OF TAPE\r\nC              P1=-9, WRITE AN INTERNAL END-OF-FILE RECORD, FOLLOWED BY\r\nC                     A SYSTEM ENDFILE MARK, AND REWIND FORTRAN TAPE\r\nC              P2  IS THE FORTRAN UNIT NO. ON WHICH THE DATA BLOCKS WILL\r\nC                     BE WRITTEN.  DEFAULT IS 15 (INP1 FOR UNIVAC, IBM,\r\nC                     VAX), OR UNIT 11 (UT1 FOR CDC)\r\nC\r\nC              P3  IS TAPE ID IF GIVEN BY USER. DEFAULT IS XXXXXXXX\r\nC\r\nC              P4= 0, OUTPUT FILE IS FORTRAN WRITTEN, UNFORMATTED\r\nC              P4= 1, OUTPUT FILE IS FORTRAN WRITTEN, FORMATTED\r\nC                     (BCD IN 2A4, INTEGER IN I8, REAL IN 10E13.6 AND\r\nC                      D.P. IN 5D26.17)\r\nC              P4= 2, SAME AS P4=1, EXECPT 5E26.17 IS USED FOR S.P. REAL\r\nC                     DATA. P4=2 IS USED ONLY IN MACHINES WITH LONG WORD\r\nC                     FOR ACCURACY (60 OR MORE BITS PER WORD)\r\nC\r\nC              TI     10 WORD ARRAY USED ONLY BY TABLE BLOCK DATA.\r\nC                     TO OVERRIDE AUTOMATIC FORMAT TYPE SETTING.\r\nC\r\nC     OUTPT5 LOGIC -\r\nC                                                       (P4=0)   (P4=1)\r\nC     RECORD  WORD        CONTENTS                      BINARY   FORMAT\r\nC     ------  ----  --------------------------------   -------  -------\r\nC        0            TAPE HEADER RECORD -\r\nC              1,2    TAPEID                             2*BCD      2A4\r\nC              3,4    MACHINE (2ND WORD BLANK)           2*BCD      2A4\r\nC              5-7    DATE                               3*INT      3I8\r\nC               8     SYSTEM BUFFSIZE                      INT       I8\r\nC               9     P4 (0,1, OR 2)                       INT       I8\r\nC      1A,1B%         FIRST MATRIX HEADER RECORD -\r\nC               1     ZERO                                 INT       I8\r\nC              2,3    ONE,ONE                            2*INT      2I8\r\nC               4     D.P. ZERO                           F.P.   D26.17\r\nC              5-10   MATRIX TRAILER                     6*INT      6I8\r\nC                     (COL,ROW,FORM,TYPE,MAX,DENSITY)\r\nC             11,12   DMAP NAME OF FIRST INPUT MATRIX    2*BCD      2A4\r\nC      2A,2B    1     1 (FIRST MATRIX COLUMN ID)           INT       I8\r\nC               2     COLUMN LOC. OF FIRST NON-ZERO ELEM.  INT       I8\r\nC               3     COLUMN LOC. OF LAST  NON-ZERO ELEM.  INT       I8\r\nC              1-W    FIRST BANDED COLUMN DATA            F.P.     (**)\r\nC                     (W=WORD3-WORD2)\r\nC      3A,3B    1     2 (SECOND MATRIX COLUMN ID)          INT       I8\r\nC              2-3    FIRST AND LAST NON-ZERO ELEM LOC.  2*INT      2I8\r\nC              1-W    SECOND BANDED COLUMN DATA           F.P.     (**)\r\nC      4A,4B   1-3    THIRD  MATRIX COLUMN, SAME FORMAT  3*INT      3I8\r\nC              1-W    AS RECORD 1                         F.P.     (**)\r\nC        :      :       :\r\nC      ZA,ZB    1     (A NULL COLUMN ID)                   INT       I8\r\nC              2,3    1,1                                2*INT      2I8\r\nC               1     0.0                                 F.P.     (**)\r\nC        :      :       :\r\nC      MA,MB   1-3    LAST MATRIX COLUMN, SAME AS REC #2 3*INT      3I8\r\nC              1-W    LAST BANDED COLUMN DATA             F.P.     (**)\r\nC\r\nC      SA,SB    :     SECOND MATRIX HEADER RECORD   3*INT+F.P. 3I8+D26.\r\nC                                                       +2*BCD   +2*BCD\r\nC                                                       +6*INT     +6I8\r\nC    S+1A,S+1B 1-W    FIRST THRU LAST COLS OF 2ND MATRIX\r\nC        :      :     REPEAT FOR MORE MATRICES\r\nC        :      :     (UP TO 5 MATRIX DATA BLOCKS PER ONE OUTPUT FILE)\r\nC\r\nC    EOFA,EOFB  1     -1                                   INT       I8\r\nC              2,3    1,1                                2*INT      2I8\r\nC               1     D.P. ZERO                           F.P.   D26.17\r\nC\r\nC                                                               - NOTE -\r\nC                                                  BCD AND INTEGERS IN 8\r\nC                                         SINGLE PRECISION REAL IN  13.6\r\nC                                         DOUBLE PRECISION DATA IN 26.17\r\nC                                         S.P. LOGN WORD MACHINE   26.17\r\nC\r\nC     WHERE   %  RECORDS A AND B ARE 2 (OR MORE) RECORDS ON FORMATTED\r\nC                OUTPUT FILE, WHILE\r\nC                A & B ARE 1 CONTINUOUS RECORD IN UNFORMATTED TAPE\r\nC           (**) IS (10E13.6) FOR S.P.REAL, OR (5D26.17) FOR D.P. DATA.\r\nC                OR (5E26.17) FOR S.P. AND D.P. DATA (P4=2 ONLY)\r\nC     NOTE -\r\nC     NO SYSTEM END-OF-FILE MARK WRITTEN BETWEEN MATRICES.\r\nC\r\nC     TO READ BINARY TAPE              TO READ FORMATTED TAPE\r\nC     ----------------------------     --------------------------------\r\nC                LOGICAL SP,DP\r\nC                INTEGER COL,ROW,FORM,TYPE,DENS,FILE(2),IZ(M,N)\r\nC    *                   TAPEID(2),MAC(2),DATE(3),BUFSZ,P4\r\nC                DOUBLE PRECISION DZ(M/2,N/2),DTEMP\r\nC                COMMON  /ZZZZZZ/ Z(M,N)\r\nC                EQUIVALENCE      (Z,IZ,DZ)\r\nC                DATA     SP,DP / .TRUE.,.FALSE./\r\nC     READ (TAPE,ERR=7)                READ (TAPE,10,ERR=7)\r\nC    *           TAPEID,MAC,DATE,BUFSZ,P4\r\nC   1            K = 0\r\nC   2            K = K + 1\r\nC     READ (TAPE,ERR=7,END=3) I,JB,    IF (SP) READ (TAPE,8,ERR=7,END=3)\r\nC    *                        JE               I,JB,JE,( Z(J,K),J=JB,JE)\r\nC                                      IF (DP) READ (TAPE,9,ERR=7,END=3)\r\nC    *                                         I,JB,JE,(DZ(J,K),J=JB,JE)\r\nC                IF (I)   3,            4,     6\r\nCC                      EOF,MATRIX-HEADER,COLUMN\r\nC   3            CONTINUE\r\nCC               (EOF ENCOUNTERED, COMPLETE TAPE READ)\r\nC                CALL EXIT\r\nC   4            BACKSPACE TAPE\r\nC                                      BACKSPACE TAPE\r\nCC               (MATRIX-HEADER READ)\r\nC     READ (TAPE) J,J,J,               READ (TAPE,11) J,J,J\r\nC    *           DTEMP,COL,ROW,FORM,TYPE,MAX,DENS,FILE\r\nC                DP = .FALSE.\r\nC                IF (TYPE.EQ.2 .OR. TYPE.EQ.4) DP=.TRUE.\r\nC                SP = .NOT.DP\r\nC                JTYP = TYPE\r\nC                IF (TYPE .EQ. 3) JTYP = 2\r\nC                IF (COL*JTYP.GT.M .OR. ROW*JTYP.GT.N) STOP 'Z DIM ERR'\r\nC                J = COL*ROW*JTYP\r\nC                DO 5 I = 1,J\r\nC   5            Z(I,1) = 0.0\r\nC                GO TO 1\r\nC   6            CONTINUE\r\nCC               (A COLUMN OF MATRIX READ)\r\nC                IF (I .NE. K) STOP 'COLUMN COUNTER MISSMATCH'\r\nC                GO TO 2\r\nC   7            STOP 'READ ERROR. CHECK TAPE FORMAT TYPE'\r\nC                                     8 FORMAT (3I8,/,(10E13.6))\r\nC                                     9 FORMAT (3I8,/,(5D26.17))\r\nC                                    10 FORMAT (4A4,5I8)\r\nC                                    11 FORMAT (3I8,/,D26.17,6I8,2A4)\r\nCC             FOR LONG WORD MACHINE  8 FORMAT (3I8,/,(5E26.17))\r\nC\r\nC     SEE SUBROUTINE INPTT5 FOR MORE COMPREHENSIVE DETAILS IN RECOVERING\r\nC     MATRIX DATA FROM THE TAPE GENERATED IN THIS OUTPT5 ROUTINE.\r\nC     OR SUBROUTINE TABLE-V FOR TABLE DATA BLOCK RECOVERY.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   1987\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          P40,P40S,P40D,P41,P41S,P41D,P41C,COMPLX\r\n      INTEGER          TRL(9),NAME(2),TAPEID(2),SUBNAM(2),TI,DT(3),\r\n     1                 FN(3,10),NONE(2)\r\n      REAL             RZ(1),X,ZERO\r\n      DOUBLE PRECISION DZ(1),DX,DZERO\r\n      CHARACTER*8      BINARY,FORMTD,BF\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\nCWKBNB\r\n      CHARACTER*80     DSNAMES\r\n      COMMON /DSNAME/  DSNAMES(80)\r\nCWKBNE\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /BLANK /  P1,P2,P3(2),P4,TI(10)\r\n      COMMON /MACHIN/  MACH,IJHALF(3),MCHNAM\r\n      COMMON /SYSTEM/  IBUF,NOUT,DUM6(7),LINE,DUMM4(4),DATE(3),\r\n     1                 DUM22(22),NBPW,DUM50(50),LPCH\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      COMMON /UNPAKX/  ITYP,II,JJ,INCR\r\n      EQUIVALENCE      (RZ(1),DZ(1),IZ(1))\r\n      DATA    BINARY,           FORMTD,         SUBNAM             /\r\n     1       'BINARY  ',        'FORMATTD',     4HOUTP, 2HT5       /\r\n      DATA    ZERO,    DZERO,   IZERO,  ONE,    MONE,   FN         /\r\n     1        0.0,     0.0D0,   0,      1,      -1,     30*4H      /\r\n      DATA    MTRX,    TBLE,    BLANK / 4HMTRX, 4HTBLE, 4H         /\r\n      DATA    NONE  /  4H (NO,  4HNE) /\r\nC\r\nC     IF MACHINE IS CDC OR UNIVAC, CALL CDCOPN OR UNVOPN TO OPEN OUTPUT\r\nC     FILE, A FORMATTED SEQUENTIAL TAPE.  NO CONTROL WORDS ARE TO BE\r\nC     ADDED TO EACH FORMATTED RECORD. RECORD LENGTH IS 132 CHARACTERS,\r\nC     AN ANSI STANDARD.\r\nC\r\nCWKBD IF (MACH .EQ. 3) CALL UNVOPN (P2)\r\nCWKBD IF (MACH .EQ. 4) CALL CDCOPN (P2)\r\n      BF = BINARY\r\n      IF (P4 .GE. 1) BF = FORMTD\r\n      CALL PAGE\r\n      CALL PAGE2 (1)\r\n      WRITE  (NOUT,3) UIM,BF,P1\r\n 3    FORMAT (A29,', MODULE OUTPUT5 CALLED BY USER DMAP ALTER, ON ',A8,\r\n     1        ' TAPE,', /5X,'WITH FOLLOWING REQUEST  (P1=',I2,1H))\r\n      IF (P1 .EQ. -9) WRITE (NOUT,4)\r\n      IF (P1 .EQ. -3) WRITE (NOUT,5)\r\n      IF (P1 .EQ. -1) WRITE (NOUT,6)\r\n      IF (P1 .EQ.  0) WRITE (NOUT,7)\r\n      IF (P1 .GT.  0) WRITE (NOUT,8) P1\r\n 4    FORMAT (5X,'WRITE AN INTERNAL E-O-F RECORD, FOLLOWED BY A SYSTEM',\r\n     1       ' E-O-F MARK, AND REWIND OUTPUT TAPE')\r\n 5    FORMAT (5X,'REWIND TAPE, PRINT DATA BLOCK NAMES AND THEN WRITE ',\r\n     1        'AFTER THE LAST DATA BLOCK ON TAPE')\r\n 6    FORMAT (5X,'REWIND, WRITE A TAPE HEADER RECORD, THEN FOLLOWED BY '\r\n     1,       'DATA BLOCKS WRITING.',/5X,'AT END, NO EOF AND NO REWIND')\r\n 7    FORMAT (5X,'DATA BLOCKS ARE WRITTEN STARTING AT CURRENT TAPE ',\r\n     1        'POSITION. AT END, NO EOF AND NO REWIND')\r\n 8    FORMAT (5X,'SKIP FORWARD',I4,' DATA BLOCKS BEFORE WRITING (TAPE ',\r\n     1       'HEADER RECORD NOT COUNTED AS A DATA BLOCK).', /5X,\r\n     2       'NO REWIND BEFORE SKIPPING. AT END, NO EOF AND NO REWIND')\r\nC\r\n      BUF1 = KORSZ(RZ(1)) - IBUF - 1\r\n      IF (BUF1 .LE. 0) CALL MESAGE (-8,0,SUBNAM)\r\n      OUT = P2\r\n      WRT = 0\r\n      LFN = -1\r\n      IF (P1 .EQ. -3) LFN = 0\r\nC\r\nC     SET P4 FLAGS\r\nC\r\nC     SET P40  TO .TRUE. IF USER SPECIFIES P4 TO ZERO (BINARY)\r\nC     SET P41  TO .TRUE. IF USER SPECIFIES P4 TO ONE  (FORMATTED)\r\nC     SET P40D TO .TRUE. IF P40 IS TRUE AND DATA IS IN D.P.\r\nC     SET P40S TO .TRUE. IF P40 IS TRUE AND DATA IS IN S.P.\r\nC     SET P41D TO .TRUE. IF P41 IS TRUE AND DATA IS IN D.P.\r\nC     SET P41S TO .TRUE. IF P41 IS TRUE AND DATA IS IN S.P.\r\nC     SET P41C TO .TRUE. IF P4=2, AND RESET P41S AND P41D TO .FALSE.\r\nC\r\n      P40D = .FALSE.\r\n      P41S = .FALSE.\r\n      P41D = .FALSE.\r\n      P41C =  P4.EQ.2 .AND. NBPW.GE.60\r\n      P41  = .FALSE.\r\n      IF (P4 .GE. 1) P41 = .TRUE.\r\nCWKBNB\r\n      CLOSE ( UNIT=OUT )\r\n      IF ( P4 .NE. 0  ) GO TO 1\r\n      OPEN ( UNIT=OUT, FILE=DSNAMES(OUT), FORM='UNFORMATTED'\r\n     1      ,STATUS='UNKNOWN' )\r\n      GO TO 2\r\n1     CONTINUE\r\n      OPEN ( UNIT=OUT, FILE=DSNAMES(OUT), STATUS='UNKNOWN' ) \r\n2     CONTINUE\r\nCWKBNE\r\n      IF (P41C) GO TO 10\r\n      P41S =  P41\r\n      IF (P41 ) P41D = .NOT.P41S\r\n 10   P40  = .NOT.P41\r\n      P40S =  P40\r\n      IF (P40) P40D = .NOT.P40S\r\n      IF (P1 .NE. -9) GO TO 20\r\nC\r\nC     FINAL CALL TO OUTPUT5\r\nC\r\n      IF (P40) WRITE (OUT    ) MONE,ONE,ONE,DZERO\r\n      IF (P41) WRITE (OUT,290) MONE,ONE,ONE,DZERO\r\n      ENDFILE OUT\r\n      REWIND OUT\r\n      RETURN\r\nC\r\n 20   IF (P1 .EQ. -3) GO TO 60\r\n      IF (P1 .EQ. -1) GO TO 180\r\n      IF (P1) 30,190,65\r\nC\r\n 30   WRITE  (NOUT,35) UFM,P1\r\n 35   FORMAT (A23,' 4120, MODULE OUTPUT5 - ILLEGAL VALUE FOR FIRST ',\r\n     1       'PARAMETER = ',I8)\r\n 40   ERR = -37\r\n 50   CALL MESAGE (ERR,INPUT,SUBNAM)\r\n      RETURN\r\nC\r\nC     OLD TAPE. CHECK TAPE ID\r\nC\r\n 60   REWIND OUT\r\n 65   IF (P40) READ (OUT,    END=150) TAPEID,NAME,DT,I,K\r\n      IF (P41) READ (OUT,185,END=150) TAPEID,NAME,DT,I,K\r\n      IF (TAPEID(1).EQ.P3(1) .AND. TAPEID(2).EQ.P3(2)) GO TO 70\r\n      WRITE  (NOUT,67) TAPEID,P3\r\n 67   FORMAT ('0*** WRONG TAPE MOUNTED - TAPEID =',2A4,', NOT ',2A4)\r\n      GO TO 40\r\n 70   CALL PAGE2 (6)\r\n      WRITE  (NOUT,75) TAPEID,NAME,DT,I\r\n 75   FORMAT (/5X,'MODULE OUTPUT5 IS PROCESSING TAPE ',2A4, /5X,\r\n     1       'WRITTEN BY ',2A4, /5X,'ON ',I2,1H/,I2,1H/,I2,  /5X,\r\n     2       'BUFFSIZE USED =',I7,/)\r\n      IF (K .EQ. 0) WRITE (NOUT,80) BINARY\r\n      IF (K .GE. 1) WRITE (NOUT,80) FORMTD\r\n 80   FORMAT (5X,'ORIGINAL TAPE IS ',A8)\r\n      IF (K .EQ. P4) GO TO 90\r\n      WRITE  (NOUT,85) UFM,P4\r\n 85   FORMAT (A23,', THE 4TH PARAMETER TO OUTPUT5 DOES NOT AGREE WITH ',\r\n     1       'ORIG. TAPE FORMAT    P4=',I5,/)\r\n      CALL MESAGE (-37,0,SUBNAM)\r\nC\r\nC     TO SKIP P1 MATRIX DATA BLOCKS OR TABLES ON THE OLD OUTPUT FILE\r\nC     OR TO TABULATE TAPE CONTENTS IF P1 = -3\r\nC\r\n 90   LFN = 0\r\n 100  IF (P40 ) READ (OUT,    ERR=160,END=150) NC,JB,JE\r\n      IF (P41S) READ (OUT,280,ERR=100,END=150) NC,JB,JE,( X,J=JB,JE)\r\n      IF (P41C) READ (OUT,285,ERR=100,END=150) NC,JB,JE,( X,J=JB,JE)\r\n      IF (P41D) READ (OUT,290,ERR=100,END=150) NC,JB,JE,(DX,J=JB,JE)\r\n      IF (NC) 140,120,100\r\n 110  IF (P40 ) READ (OUT,    ERR=160,END=150) L\r\n      IF (P41 ) READ (OUT,115,ERR=100,END=150) L,(TABLE,J=1,L)\r\n 115  FORMAT (I10,24A5,/,(26A5))\r\n      IF (L) 140,120,110\r\n 120  IF (P1.NE.-3 .AND. LFN.GE.P1) GO TO 140\r\n      LFN = LFN + 1\r\n      BACKSPACE OUT\r\n      IF (P41) BACKSPACE OUT\r\n      IF (P40) READ (OUT    ) I,I,I,DX,J,J,J,J,K,K,FN(1,LFN),FN(2,LFN)\r\n      IF (P41) READ (OUT,250) I,I,I,DX,J,J,J,J,K,K,FN(1,LFN),FN(2,LFN)\r\n      IF (K.GT.0 .AND. J.GE.1 .AND. J.LE.4) GO TO 130\r\n      FN(3,LFN) = TBLE\r\n      GO TO 110\r\n 130  FN(3,LFN) = MTRX\r\n      IF (P40) GO TO 100\r\n      P41S = .FALSE.\r\n      P41D = .FALSE.\r\n      P41C =  P4.EQ.2 .AND. NBPW.GE.60\r\n      IF (P41C) GO TO 100\r\n      IF (J.EQ.1 .OR. J.EQ.3) P41S = .TRUE.\r\n      P41D = .NOT.P41S\r\n      GO TO 100\r\n 140  IF (P41) BACKSPACE OUT\r\n 150  BACKSPACE OUT\r\n      IF (P1.EQ.-3 .AND. LFN.GT.0) GO TO 430\r\n      GO TO 200\r\nC\r\n 160  WRITE  (NOUT,170) UWM,TAPEID\r\n 170  FORMAT (A25,' FROM OUTPUT5 MODULE. ERROR WHILE READING ',2A4)\r\n      GO TO 40\r\nC\r\nC     NEW TAPE (P1=-1)\r\nC\r\nC     WRITE A TAPE IDENTIFICATION RECORD (NOTE -THIS IS THE ONLY TIME\r\nC     A TAPE HEADER RECORD IS WRITTEN)\r\nC\r\n 180  IF (P1 .NE. -1) GO TO 200\r\n      REWIND OUT\r\n      TRL(1) = P3(1)\r\n      TRL(2) = P3(2)\r\n      TRL(3) = MCHNAM\r\n      TRL(4) = BLANK\r\n      TRL(5) = DATE(1)\r\n      TRL(6) = DATE(2)\r\n      TRL(7) = DATE(3)\r\n      IF (P40) WRITE (OUT    ) (TRL(J),J=1,7),IBUF,P4\r\n      IF (P41) WRITE (OUT,185) (TRL(J),J=1,7),IBUF,P4\r\n 185  FORMAT (4A4,5I8)\r\n 190  LFN = 0\r\nC\r\nC     COPY MATRICES OR TABLES OUT TO TAPE\r\nC\r\n 200  DO 400 MX = 1,5\r\n      INPUT = MX + 100\r\n      CALL FNAME (INPUT,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 390\r\n      TRL(1) = INPUT\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LE. 0) GO TO 390\r\n      IF (TRL(1) .GT. 0) GO TO 220\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,210) INPUT,NAME\r\n 210  FORMAT (/5X,'INPUT FILE ',2A4,'(',I3,') IS PURGED. NO DATA ',\r\n     1       'TRANSFERRED TO OUTPUT FILE')\r\n      GO TO 400\r\n 220  IF (TRL(4).GT.8 .OR. TRL(5).GT.4 .OR. TRL(6).LE.0 .OR. TRL(7).LE.0\r\n     1   ) CALL TABLE5 (*400,INPUT,OUT,TRL,BUF1,WRT,LFN,FN)\r\n      COL  = TRL(2)\r\n      ROW  = TRL(3)\r\n      TYPE = TRL(5)\r\n      COMPLX = .FALSE.\r\n      IF (TYPE .GE. 3) COMPLX = .TRUE.\r\nC\r\nC     CHECK FOR NULL MATRIX\r\nC\r\n      IF (ROW.EQ.0 .OR. COL.EQ.0 .OR. TYPE.EQ.0) GO TO 380\r\nC\r\nC     SET FLAGS FOR FORMATTED OR UNFORMATTED WRITE, SINGLE OR DOUBLE\r\nC     PRECISION DATA, THEN WRITE THE MATRIX HEADER WITH PROPER FORMAT.\r\nC     MATRIX HEADER CONSISTS OF ONE SCRATCH WORD, ORIGINAL MATRIX\r\nC     TRAILER, AND MATRIX DMAP NAME\r\nC\r\n      P40S = .FALSE.\r\n      P40D = .FALSE.\r\n      P41S = .FALSE.\r\n      P41D = .FALSE.\r\n      P41C =  P4.EQ.2 .AND. NBPW.GE.60\r\n      IF (P41) GO TO 230\r\n      IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P40S = .TRUE.\r\n      P40D = .NOT.P40S\r\n      GO TO 240\r\n 230  IF (P41C) GO TO 240\r\n      IF (TYPE.EQ.1 .OR. TYPE.EQ.3) P41S = .TRUE.\r\n      P41D = .NOT.P41S\r\n 240  IF (P40) WRITE (OUT    ) IZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),NAME\r\n      IF (P41) WRITE (OUT,250) IZERO,ONE,ONE,DZERO,(TRL(K),K=2,7),NAME\r\n 250  FORMAT (3I8,/,D26.17,6I8,2A4)\r\n      WRT = 1\r\nC\r\nC     OPEN INPUT DATA BLOCK AND SAVE DMAP NAME IN FN ARRAY\r\nC\r\n      ERR = -1\r\n      CALL OPEN (*50,INPUT,RZ(BUF1),0)\r\n      CALL FWDREC (*50,INPUT)\r\n      IF (LFN.EQ.-1 .OR. LFN.GE.10) GO TO 260\r\n      LFN = LFN + 1\r\n      FN(1,LFN) = NAME(1)\r\n      FN(2,LFN) = NAME(2)\r\n      FN(3,LFN) = MTRX\r\nC\r\nC     UNPACK A MATRIX COLUMN, AND WRITE TO OUTPUT FILE THE BANDED DATA\r\nC     (FROM FIRST TO LAST NON-ZERO ELEMENTS)\r\nC\r\n 260  ITYP = TYPE\r\n      INCR = 1\r\n      DO 320 NC = 1,COL\r\n      II = 0\r\n      JJ = 0\r\n      CALL UNPACK (*300,INPUT,RZ)\r\n      JB = II\r\n      JE = JJ\r\n      NWDS = JJ - II + 1\r\n      IF (.NOT.COMPLX) GO TO 270\r\n      NWDS = NWDS + NWDS\r\n      JE   = NWDS + JB - 1\r\n 270  IF (NWDS .GT. BUF1) CALL MESAGE (-8,0,SUBNAM)\r\n      IF (P40S) WRITE (OUT) NC,JB,JE,(RZ(J),J=1,NWDS)\r\n      IF (P40D) WRITE (OUT) NC,JB,JE,(DZ(J),J=1,NWDS)\r\n      IF (P41S) WRITE (OUT,280,ERR=480) NC,JB,JE,(RZ(J),J=1,NWDS)\r\n      IF (P41C) WRITE (OUT,285,ERR=480) NC,JB,JE,(RZ(J),J=1,NWDS)\r\n      IF (P41D) WRITE (OUT,290,ERR=480) NC,JB,JE,(DZ(J),J=1,NWDS)\r\n 280  FORMAT (3I8,/,(10E13.6))\r\n 285  FORMAT (3I8,/,(5E26.17))\r\n 290  FORMAT (3I8,/,(5D26.17))\r\n      GO TO 320\r\nC\r\nC     A NULL COLUMN\r\nC\r\n 300  JE = 1\r\n      IF (COMPLX) JE = 2\r\n      IF (P40S) WRITE (OUT    ) NC,ONE,JE,( ZERO,I=1,JE)\r\n      IF (P40D) WRITE (OUT    ) NC,ONE,JE,(DZERO,I=1,JE)\r\n      IF (P41S) WRITE (OUT,280) NC,ONE,JE,( ZERO,I=1,JE)\r\n      IF (P41C) WRITE (OUT,285) NC,ONE,JE,( ZERO,I=1,JE)\r\n      IF (P41D) WRITE (OUT,290) NC,ONE,JE,(DZERO,I=1,JE)\r\n 320  CONTINUE\r\nC\r\nC     CLOSE INPUT DATA BLOCK WITH REWIND.\r\nC\r\n      CALL CLOSE (INPUT,1)\r\n      CALL PAGE2 (10)\r\n      WRITE  (NOUT,350) NAME,OUT,(TRL(J),J=2,5),IBUF\r\n 350  FORMAT (/5X,'MODULE OUTPUT5 UNPACKED MATRIX DATA BLOCK ',2A4,\r\n     1       ' AND WROTE IT OUT TO', /5X,'FORTRAN UNIT',I4,\r\n     2       ', IN BANDED DATA FORM (FIRST TO LAST NON-ZERO ELEMENTS)',\r\n     3       /9X,'NO. OF COLS =',I8, /9X,'NO. OF ROWS =',I8, /16X,\r\n     4       'FORM =',I8, /16X,'TYPE =',I8, /5X,'SYSTEM BUFFSIZE =',I8)\r\n      IF (P40 ) WRITE (NOUT,360)\r\n      IF (P41S) WRITE (NOUT,365)\r\n      IF (P41C) WRITE (NOUT,370)\r\n      IF (P41D) WRITE (NOUT,375)\r\n 360  FORMAT (5X,'IN FORTRAN BINARY RECORDS')\r\n 365  FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(10E13.6))')\r\n 370  FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(5E26.17))')\r\n 375  FORMAT (5X,'IN FORTRAN FORMATTED RECORDS - (3I8,/,(5D26.17))')\r\n      GO TO 400\r\nC\r\nC     NULL MATRIX, OR GINO DATA BLOCK IS NOT A MTRIX FILE\r\nC\r\n 380  CALL PAGE2 (5)\r\n      WRITE  (NOUT,385) UWM,NAME\r\n 385  FORMAT (A25,' FROM OUTPUT5 MODULE. ',2A4,' IS EITHER A NULL ',\r\n     1       'MATRIX OR NOT A MATRIX DATA BLOCK', /5X,\r\n     2       'NO DATA WERE COPIED TO OUTPUT FILE',/)\r\n      GO TO 400\r\nC\r\n 390  TRL(1) = INPUT + 1\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) WRITE (NOUT,395) UWM,INPUT,NAME\r\n 395  FORMAT (A25,' FROM OUTPUT5 MODULE. INPUT DATA BLOCK',I5,2H, ,2A4,\r\n     1       ' IS EITHER PURGED OR DOES NOT EXIST')\r\nC\r\n 400  CONTINUE\r\nC\r\n      IF (WRT .EQ. 0) WRITE (NOUT,410) UWM\r\n 410  FORMAT (A25,' FROM OUTPUT5 MODULE. NO DATA BLOCK WRITTEN TO ',\r\n     1        'OUTPUT FILE')\r\n      ENDFILE OUT\r\n      BACKSPACE OUT\r\n      IF (P1 .EQ. -3) GO TO 460\r\nC\r\nC     PRINT LIST OF DATA BLOCKS ON FORTRAN TAPE (P1=-3).\r\nC\r\n      IF (LFN .LE. 0) RETURN\r\n 430  CALL PAGE2 (LFN+10)\r\n      WRITE  (NOUT,440) OUT,MCHNAM,BF,(J,FN(1,J),FN(2,J),FN(3,J),\r\n     1                  J=1,LFN)\r\n 440  FORMAT (/5X,'SUMMARY FROM OUTPUT5 MODULE', //16X,'DATA BLOCKS ',\r\n     1       'WRITTEN TO FORTRAN UNIT',I4, /17X,'(BY ',A4,' MACHINE, ',\r\n     2       A8,' RECORDS)', ///22X,'FILE',8X,'NAME',8X,'TYPE' /17X,\r\n     3       9(4H----), /,(22X,I3,9X,2A4,4X,A4))\r\n      IF (P1 .EQ. -3) GO TO 200\r\n      IF (P40) GO TO 460\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,450)\r\n 450  FORMAT (/5X,'THIS FORMATTED OUTPUT FILE CAN BE VIEWED OR EDITED',\r\n     1        ' VIA SYSTEM EDITOR',/)\r\nC\r\n 460  IF (MACH .EQ. 3) CALL UNVCLS (P2)\r\n      IF (MACH .EQ. 4) CALL CDCCLS (P2)\r\n      RETURN\r\nC\r\nC     WRITE ERROR\r\nC\r\n 480  WRITE  (NOUT,490) SFM\r\n 490  FORMAT (A25,' IN WRITING OUTPUT FILE', /5X,'IBM USER - CHECK FILE'\r\n     1,      ' ASSIGNMENT FOR DCB PARAMETER OF 132 BYTES')\r\n      CALL MESAGE (-37,0,SUBNAM)\r\n      END\r\n"
  },
  {
    "path": "mis/page.f",
    "content": "      SUBROUTINE PAGE\r\nC\r\nC     MASTER PAGING ROUTINE FOR NASTRAN.\r\nC\r\n      INTEGER         OTPE,DATE,CRDATE,SYM,TITLEX(18),NAME(2),FCHAR\r\n      CHARACTER       MONTH(12)*3,AHEAD*30,MCHNAM*11,MACHOS*7\r\n      COMMON /CHMACH/ MCHNAM, MACHOS\r\n      COMMON /MACHIN/ MACH(4)\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,MPCN(3),SPCN,METHOD,LOADN,SYM,ST,\r\n     1                IPAGE,LINE,ITLINE,MAXLIN,DATE(3),DUM15(15),IOFP,\r\n     2                X(8),CRDATE(3)\r\n      COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32),\r\n     1                HEAD2(32),HEAD3(32)\r\n      EQUIVALENCE     (TITLEX(1),TITLE(1))\r\n      DATA    MONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', \r\n     1               'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/\r\n      DATA    NAME  / 4HPAGE, 4H    /\r\nC\r\n      IOUT  = 1\r\n   10 IPAGE = IPAGE  + 1\r\n      ITLINE= ITLINE + LINE\r\n      LINE  = 0\r\n      IF (ITLINE .GT. MAXLIN) GO TO 70\r\n      IN = DATE(1)\r\nC\r\nC   ASSEMBLE PAGE HEADING\r\nC\r\n      AHEAD = ' '\r\n      NCMNAM = INDEX(MCHNAM,' ') - 1\r\n      IF (NCMNAM .LE. -1) NCMNAM = 11\r\n      NCMOS  = INDEX(MACHOS,' ') - 1\r\n      IF (NCMOS .LE. -1) NCMOS = 7\r\n      FCHAR = (18 - NCMNAM - NCMOS)/2 + 1\r\n      WRITE (AHEAD(FCHAR:FCHAR+1),15) CRDATE(3)\r\n   15 FORMAT (A2)\r\n      FCHAR = FCHAR + 3\r\n      AHEAD(FCHAR:30) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) //\r\n     1 ' NASTRAN'\r\nC\r\n      WRITE  (OTPE,20) TITLEX, AHEAD, MONTH(IN),DATE(2),DATE(3),IPAGE\r\n   20 FORMAT (1H1,4X,17A4,A2,' /',A30,'/ ',A3,1X,I2,', ',I2, \r\n     1        ' / PAGE',I6)\r\n      WRITE  (OTPE,30) SUBTIT\r\n   30 FORMAT (5X,31A4,A3)\r\n      WRITE  (OTPE,40) LABEL\r\n   40 FORMAT (1H0,4X,31A4,A3)\r\n      LINE = LINE + 4\r\n      IF (IOUT .EQ.0) GO TO 60\r\n      WRITE (OTPE,40) (HEAD1(I),I=1,32)\r\n      WRITE (OTPE,30) (HEAD2(I),I=1,32)\r\n      WRITE (OTPE,30) (HEAD3(I),I=1,32)\r\n      LINE = LINE + 4\r\n   60 RETURN\r\nC\r\nC     MAX LINES EXCEEDED.  BUMP MAXLINES BY 3000 AND CALL MESAGE\r\nC\r\n   70 MAXLIN = MAXLIN + 3000\r\n      CALL MESAGE (-19,ITLINE,NAME)\r\n      GO TO 60\r\nC\r\nC\r\n      ENTRY PAGE1\r\nC     ===========\r\nC\r\n      IOUT = 0\r\n      GO TO 10\r\n      END\r\n"
  },
  {
    "path": "mis/page2.f",
    "content": "      SUBROUTINE PAGE2 (LINES)\r\nC\r\nC     2ND MASTER PAGING ROUTINE FOR NASTRAN\r\nC\r\nC     IABS(LINES) = NO. OF LINES TO BE ADDED FOR OUTPUT\r\nC     IF CURRENT PAGE CAN NOT ACCOMODATE THE INCOMING LINES, A NEW PAGE\r\nC     IS INITIATED WITH PROPER HEADINGS.\r\nC\r\nC     IF LINES IS NEGATIVE, A 6-LINE HEADER IS PRINTED.\r\nC     IF LINES IS POSITIVE, A 3-LINE HEADER IS PRINTED AND FOLLOWED BY\r\nC        3 BLANK LINES.\r\nC\r\nC     ENTRY POINT PAGE3 -\r\nC     A 3-LINE HEADER IS PRINTED, NO BLANK LINES FOLLOWED. LINES CAN BE\r\nC     NEGATIVE OR POSITIVE.\r\nC\r\nC     SIMPLIFIED BY G.CHAN/UNISYS, AND PAGE3 ADDED  12/92\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER         TITLEX(18),NAME(2),FCHAR\r\n      CHARACTER       MONTH(12)*3,AHEAD*30,MCHNAM*11,MACHOS*7\r\n      COMMON /CHMACH/ MCHNAM, MACHOS\r\n      COMMON /MACHIN/ MACH(4)\r\n      COMMON /SYSTEM/ IBUF,NOUT,DUM6(6),SYM,ST,PAGE,LINE,TLINE,MAXLIN,\r\n     1                DATE(3),DUM15(15),OFP,DUM8(8),CRDATE(3)\r\n      COMMON /OUTPUT/ TITLE(32),SUBTIT(32),LABEL(32),HEAD1(32),\r\n     1                HEAD2(32),HEAD3(32)\r\n      EQUIVALENCE     (TITLEX(1),TITLE(1))\r\n      DATA    MONTH /'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', \r\n     1               'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/\r\n      DATA    NAME  / 4H PAG, 4HE2  /\r\nC\r\n      FLAG  = 2\r\nC\r\n   10 IF (LINES .EQ. 0) GO TO 100\r\n      LL    = IABS(LINES)\r\n      IF (SYM-LINE.LT.LL .OR. OFP.NE.0) GO TO 30\r\n   20 LINE  = LINE + LL\r\n      GO TO 100\r\nC\r\n   30 PAGE  = PAGE  + 1\r\n      TLINE = TLINE + LINE\r\n      LINE  = 0\r\n      IF (TLINE .GT. MAXLIN) GO TO 90\r\n      IN    = DATE(1)\r\nC\r\nC   ASSEMBLE PAGE HEADING\r\nC\r\n      AHEAD = ' '\r\n      NCMNAM = INDEX(MCHNAM,' ') - 1\r\n      IF (NCMNAM .LE. -1) NCMNAM = 11\r\n      NCMOS  = INDEX(MACHOS,' ') - 1\r\n      IF (NCMOS .LE. -1) NCMOS = 7\r\n      FCHAR = (18 - NCMNAM - NCMOS)/2 + 1\r\n      WRITE (AHEAD(FCHAR:FCHAR+1),35) CRDATE(3)\r\n   35 FORMAT (A2)\r\n      FCHAR = FCHAR + 3\r\n      AHEAD(FCHAR:30) = MCHNAM(1:NCMNAM) // ' ' // MACHOS(1:NCMOS) //\r\n     1 ' NASTRAN'\r\nC\r\n      WRITE  (NOUT,40) TITLEX, AHEAD, MONTH(IN),DATE(2),DATE(3),PAGE\r\n   40 FORMAT (1H1,4X,17A4,A2,' /',A30,'/ ',A3,1X,I2,', ',I2, \r\n     1        ' / PAGE',I6)\r\n      WRITE  (NOUT,50) SUBTIT\r\n   50 FORMAT ( 5X,31A4,A3)\r\n      WRITE  (NOUT,60) LABEL\r\n   60 FORMAT (/5X,31A4,A3)\r\n      LINE  = LINE + 4\r\n      IF (FLAG  .LT. 0) GO TO 20\r\n      IF (LINES .GT. 0) GO TO 70\r\nC\r\n      WRITE (NOUT,60) (HEAD1(I),I=1,32)\r\n      WRITE (NOUT,50) (HEAD2(I),I=1,32)\r\n      WRITE (NOUT,50) (HEAD3(I),I=1,32)\r\n      LINE  = LINE + 4\r\n      GO TO 20\r\nC\r\n   70 WRITE  (NOUT,80)\r\n   80 FORMAT (///)\r\n      LINE  = LINE + 4\r\n      GO TO 20\r\nC\r\nC     MAX LINES EXCEEDED.  BUMP MAXLINES BY 3000 AND CALL MESAGE\r\nC\r\n   90 MAXLIN = MAXLIN + 3000\r\n      CALL MESAGE (-19,TLINE,NAME)\r\nC\r\n  100 OFP  = 0\r\n      RETURN\r\nC\r\nC\r\n      ENTRY PAGE3 (LINES)\r\nC     ===================\r\nC\r\n      FLAG = -3\r\n      GO TO 10\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/pakcol.f",
    "content": "      SUBROUTINE PAKCOL(TERMS,NTERMS)\r\nC\r\nC     PACKS OUT A COLUMN OF AF OR DKGG MATRIX - DATA IS IN THE\r\nC     FOLLOWING SAMPLE FORMATS.\r\nC\r\nC                  ---------------------\r\nC                  I  NEGATIVE ROWSIL  I\r\nC                  I-------------------I\r\nC                  I  1 MATRIX TERM    I\r\nC                  I-------------------I\r\nC                  I  POSITIVE ROWSIL  I\r\nC                  I-------------------I\r\nC                  I                   I\r\nC                  I  3 MATRIX TERMS   I\r\nC                  I                   I\r\nC                  ---------------------\r\nC\r\nC     MATRIX TERMS ARE IN DOUBLE PRECISION\r\nC\r\nC\r\n      DOUBLE PRECISION        VAL      ,TVAL\r\nC\r\n      INTEGER       TERMS(1) ,A        ,TEMP(7)\r\nC\r\nC     PACK COMMON BLOCK\r\nC\r\n      COMMON / ZBLPKX /       A(4)     ,IROW\r\nC\r\n      EQUIVALENCE  ( VAL , A(1) )\r\n      EQUIVALENCE  ( TVAL , A(3) )\r\nC\r\nC***********************************************************************\r\nC\r\nC     SORT THE MATRIX ENTRIES BY ABSOULUTE SIL VALUES\r\nC\r\n      ILOC = 1\r\n   10 ISIL = TERMS(ILOC)\r\n      JLOC = ILOC\r\n      JSIL = ISIL\r\n   20 JLOC = JLOC + 3\r\n      IF(JSIL .GT. 0) JLOC = JLOC + 4\r\n      IF(JLOC .GE. NTERMS) GO TO 60\r\n      JSIL = TERMS(JLOC)\r\n      IF(IABS(JSIL) .GE. IABS(ISIL)) GO TO 20\r\nC\r\n      NT = 3\r\n      IF(JSIL .GT. 0) NT = 7\r\n      DO 30 I=1,NT\r\n   30 TEMP(I) = TERMS(JLOC+I-1)\r\nC\r\n      KLOC = JLOC - 1\r\n      DO 40 I=ILOC,KLOC\r\n      J = KLOC - I + ILOC\r\n   40 TERMS(J+NT) = TERMS(J)\r\nC\r\n      DO 50 I=1,NT\r\n   50 TERMS(ILOC+I-1) = TEMP(I)\r\n      ISIL = JSIL\r\n      GO TO 20\r\nC\r\n   60 ILOC = ILOC + 3\r\n      IF(ISIL .GT. 0) ILOC = ILOC + 4\r\n      IF(ILOC .LT. NTERMS) GO TO 10\r\nC\r\nC     PACK OUT TERMS - ADDING ANY IDENTICAL SIL\r\nC\r\n      ILOC = 1\r\n   70 IROW = IABS(TERMS(ILOC))\r\n      NT = 2\r\n      IF(TERMS(ILOC) .GT. 0) NT = 6\r\nC\r\n      DO 100 I=1,NT,2\r\n      A(1) = TERMS(ILOC+I)\r\n      A(2) = TERMS(ILOC+I+1)\r\n      JLOC = ILOC\r\n   80 J = JLOC\r\n      JLOC = J + 3\r\n      IF(TERMS(J) .GT. 0) JLOC = J + 7\r\n      IF(JLOC .GE. NTERMS) GO TO 90\r\n      IF(TERMS(JLOC) .NE. TERMS(ILOC)) GO TO 90\r\nC\r\nC     DUPLICATE SILS - ADD THEM\r\nC\r\n      A(3) = TERMS(JLOC+I)\r\n      A(4) = TERMS(JLOC+I+1)\r\n      VAL = VAL + TVAL\r\n      J = JLOC\r\n      GO TO 80\r\nC\r\nC     PACK OUT TERM\r\nC\r\n   90 CONTINUE\r\n      CALL ZBLPKI\r\n  100 IROW = IROW + 1\r\nC\r\n      ILOC = JLOC\r\n      IF(ILOC .LT. NTERMS) GO TO 70\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/param.f",
    "content": "      SUBROUTINE PARAM (SETID,XX,BUF4)\r\nC\r\nC     THIS PARAM ROUTINE IS CALLED ONLY BY DPLOT, WHICH IS THE DRIVER\r\nC     OF THE PLOT MODULE           ==== == =====\r\nC\r\nC     THE DRIVER FOR THE PARAM MODULE IS QPARAM\r\nC\r\n      LOGICAL TEST\r\n      INTEGER SETID(1),XX(1)    ,BUF4     ,BUF1     ,BUFSIZ   ,TITLE   ,\r\n     1        PRNT    ,PARM     ,PLTBUF   ,CAMERA   ,BFRAMS   ,PLTMOD  ,\r\n     2        TAPDEN  ,PENSIZ   ,PENCLR   ,PAPTYP   ,AXIS     ,DAXIS   ,\r\n     3        FVP     ,PRJECT   ,FOR      ,ORG      ,ORIGIN   ,PLOTER  ,\r\n     4        WORD    ,AWRD(2)  ,ERR(3)   ,BLANK    ,PLTNAM(2),EOR     ,\r\n     5        TRA     ,WHERE    ,DIRECT   ,FSCALE   ,PLTYPE   ,FPLTIT  ,\r\n     6        PLTITL  ,SAVTIT(96),MSG1(20),MSG2(20) ,MSG4(22) ,MSG5(16),\r\n     7        ANTI    ,AXISD(7) ,BOTH     ,BPI      ,BY       ,COLO    ,\r\n     8        COMM    ,DEFO     ,DENS     ,DISP     ,EVEN     ,FILM    ,\r\n     9        FRAM    ,HMODE    ,HPLOT(2) ,HKEY(19) ,HX       ,OESX    ,\r\n     O        NKWD(3) ,ICNDA(20),PLAN     ,POIN     ,PAPE     ,SEPA    ,\r\n     1        SIZE    ,STRE     ,SYMM     ,TYPE     ,Z1       ,Z2      ,\r\n     2        FILL    ,COLOR    ,LAYER    ,OES1     ,OES1L    ,ONRGY1\r\n      REAL    MAXDEF\r\n      DOUBLE PRECISION DWRD\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /OUTPUT/  TITLE(96)\r\n      COMMON /BLANK /  SKP11(3) ,PRNT     ,SKP12(6) ,PARM     ,SKP2(9) ,\r\n     1                 MERR     ,SKPIT(2) ,OESX\r\n      COMMON /XXPARM/  PLTBUF   ,CAMERA   ,BFRAMS   ,PLTMOD(2),TAPDEN  ,\r\n     1                 NPENS    ,PAPSIZ(2),PAPTYP(2),PENSIZ(8)         ,\r\n     2                 PENCLR(8,2),PENPAP ,SCALE(2) ,FSCALE   ,MAXDEF  ,\r\n     3                 DEFMAX   ,AXIS(3)  ,DAXIS(3) ,VANGLE(3)         ,\r\n     4                 SKPVUE(6),FVP      ,VANPNT(5),D02      ,D03     ,\r\n     5                 PRJECT   ,S0S      ,FOR      ,ORG      ,NORG    ,\r\n     6                 ORIGIN(11),EDGE(11,4),XY(11,3),NCNTR   ,CNTR(50),\r\n     7                 ICNTVL   ,WHERE    ,DIRECT   ,SUBCAS   ,FLAG    ,\r\n     8                 DATA     ,LASSET   ,FPLTIT   ,PLTITL(17)        ,\r\n     9                 COLOR    ,LAYER\r\n      COMMON /PLTDAT/  MODEL    ,PLOTER   ,SKPPLT(17),CHRSCL  ,SKPA(2) ,\r\n     1                 CNTSIN   ,SKPD1(6) ,PLTYPE    ,SKPD2(3),CNTIN3\r\n      EQUIVALENCE      (KSYSTM(1),BUFSIZ) ,(PAPE,HKEY(10))    ,\r\n     1                 (WORD,AWRD(1),DWRD ,FWRD,IWRD)\r\nC\r\nC     THE FOLLOWING ARE THE ALLOWABLE FIRST WORDS ON THE LOGICAL CARD.\r\nC     THE PROJECTION DETERMINES HOW MANY WORDS ARE CHECKED.\r\nC\r\nC     OES1   IS THE NORMAL STRESS FILE, 111\r\nC     OES1L  IS THE LAYER COMPOSITE STRESS FILE, 112\r\nC     ONRGY1 IS THE ELEMENT  STRAIN ENERGY FILE, 113\r\nC\r\n      DATA OES1 , OES1L , ONRGY1 /111,112,113   /\r\n      DATA NKWD / 17,19,19/     , BLANK4 /4H    /\r\n      DATA HKEY / 4HFIND, 4HVIEW, 4HAXES, 4HMAXI, 4HORTH, 4HPERS,\r\n     1            4HSTER, 4HCONT, 4HCAME, 4HPAPE, 4HPEN , 4HBLAN,\r\n     2            4HORIG, 4HSCAL, 4HCSCA, 4HPROJ, 4HPTIT, 4HOCUL,\r\n     3            4HVANT/\r\nC\r\nC     THE FOLLOWING ARE RECOGNIZABLE PARAMETERS\r\nC\r\n      DATA AXISD/ 2HMZ   , 2HMY, 2HMX, 0, 1HX,  1HY,     1HZ        /,\r\n     1     ANTI / 4HANTI/, BOTH/ 4HBOTH/, BPI / 4HBPI /, BY  /4HBY  /,\r\n     2     COLO / 4HCOLO/, DEFO/ 4HDEFO/, DENS/ 4HDENS/, FILM/4HFILM/,\r\n     3     FRAM / 4HFRAM/,HMODE/ 4HMODE/,HPLOT/ 4HPLOT,  4HTER      /,\r\n     4     HX   / 4HX   /, PLAN/ 4HPLAN/, POIN/ 4HPOIN/, SEPA/4HSEPA/,\r\n     5     SIZE / 4HSIZE/, SYMM/ 4HSYMM/, TYPE/ 4HTYPE/,\r\nC\r\nC     CONTOUR PLOTTING\r\nC\r\n     6     DISP / 4HDISP/, STRE/ 4HSTRE/, EVEN/ 4HEVEN/, LAYE/ 4HLAYE/,\r\n     7     LIST / 4HLIST/, Z1  / 2HZ1  /, Z2  / 2HZ2  /, MAX / 3HMAX /,\r\n     8     MID  / 3HMID /, COMM/ 4HCOMM/, LOCA/ 4HLOCA/, FILL/ 4HFILL/\r\nC\r\n      DATA  ICNDA  /4HMAJP, 4HMINP, 4HMAXS, 4HXNOR, 4HYNOR, 4HZNOR,\r\n     1      4HXYSH, 4HXZSH, 4HYZSH, 4HXDIS, 4HYDIS, 4HZDIS, 4HMAGN,\r\n     2      4HNRM1, 4HNRM2, 4HSH12, 4HSH1Z, 4HSH2Z, 4HBDSH, 4HSTRA/\r\nC\r\n      DATA  EOR   , BLANK/ 1000000, 1H  /,\r\n     1      NMSG5 , MSG5 / 16,4H(25X, 4H,31H, 4HMORE, 4H THA, 4HN 50,\r\n     2      4H CON, 4HTOUR,   4HS SP, 4HECIF, 4HIED,, 4H1P,E, 4H14.6,\r\n     3      4H,9H , 4HREJE,   4HCTED, 4H)   /\r\n      DATA  NMSG1 / 20   /\r\n      DATA  MSG1  / 4H(34X  ,4H,45H   ,4HAN A   ,4HTTEM   ,4HPT H   ,\r\n     1              4HAS B  ,4HEEN    ,4HMADE   ,4H TO    ,4HDEFI   ,\r\n     2              4HNE M  ,4HORE    ,4HTHAN   ,4H ,I2   ,4H,17H   ,\r\n     3              4H DIS  ,4HTINC   ,4HT OR   ,4HIGIN   ,4HS)     /\r\n      DATA  NMSG2 / 20   /\r\n      DATA  MSG2  / 4H(30X  ,4H,34H   ,4HAN U   ,4HNREC   ,4HOGNI   ,\r\n     1              4HZABL  ,4HE PL   ,4HOT P   ,4HARAM   ,4HETER   ,\r\n     2              4H (,2  ,4HA4,2   ,4H9H)    ,4HHAS    ,4HBEEN   ,\r\n     3              4H DET  ,4HECTE   ,4HD -    ,4HIGNO   ,4HRED)   /\r\n      DATA  NMSG4 / 22   /\r\n      DATA  MSG4  / 4H(25X  ,4H,4HP   ,4HEN ,   ,4HI4,6   ,4H9H I   ,\r\n     1              4HS NO  ,4HT A    ,4HLEGA   ,4HL PE   ,4HN NU   ,\r\n     2              4HMBER  ,4H FOR   ,4H THI   ,4HS PL   ,4HOTTE   ,\r\n     3              4HR. P  ,4HEN 1   ,4H WIL   ,4HL BE   ,4H RED   ,\r\n     4              4HEFIN  ,4HED.)    /\r\n      DATA  TEST  / .FALSE. /\r\nC\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS ABOUT THE NOFIND FLAG       11/1990\r\nC\r\nC     THE NOFIND FLAG WAS TOO CONFUSING BEFORE. I'M SETTING THE NEW RULE\r\nC     HERE\r\nC\r\nC     NOFIND FLAG IS USED IN PARAM AND PLOT ROUTINES ONLY. ITS USE IS\r\nC     TO INDICATE WHETHER SUBROUTINE FIND SHOULD BE CALLED.\r\nC     (SUBROUTINE FIND COMPUTES THE NEW ORIGIN, FRAME SIZE, NEW VIEW,\r\nC     VANTAGE POINT ETC. DUE TO CERTAIN PLOT PARAMETERS).\r\nC     NOFIND FLAG CAN BE SET BY USER VIA THE FIND AND NOFIND COMMANDS,\r\nC     OR IT IS SET AUTOMATICALLY BY THIS PARAM SUBROUTINE.\r\nC\r\nC      NOFIND                  ACTION\r\nC     --------    ----------------------------------------------------\r\nC        -1       FIND ROUTINE SHOULD BE CALLED IN NEXT OPPORTUNITY\r\nC                 BEFORE THE ACTUAL PLOTTING\r\nC        +1       (1) A NOFIND CARD WAS ENCOUNTERED. USER WANTS TO KEEP\r\nC                 ALL PARAMETERS AS IN THE PREVIOUS PLOT CASE, OR\r\nC                 (2) FIND ROUTINE WAS JUST CALLED. PROGRAM SHOULD NOT\r\nC                 CALL FIND AGAIN\r\nC         0       THE CURRENT STATUS OF ALL PARAMETERS THAT WERE FOUND\r\nC                 BY PREVIOUS FIND REMAIN UNCHANGED. HOWEVER, ANY\r\nC                 CHANGE IN THE PLOT PARAMETERS BY THE USER (SCALE,\r\nC                 CSCALE, VIEW, VENTAGE POINT, REGION, ORIGIN, PLOTTER,\r\nC                 MAX.DEFORMATION, PROJECTION AND PAPER SIZE) WILL\r\nC                 CHANGE NOFIND FLAG TO -1\r\nC\r\nC     IF A FIND COMMAND IS ENCOUNTERED, SUBROUTINE FIND IS CALLED\r\nC     IMMEDIATELY AND UNCONDISIONALLY, THEN NOFIND FLAG IS SET TO +1\r\nC\r\nC     IF USER HAS ALREADY ONE OR MORE ORIGINS, AND IF HE USES A FIND\r\nC     CARD TO FIND ANOTHER ORIGIN, BUT THE NEXT PLOT CARD DOES NOT USE\r\nC     THIS NEWLY DEFINED ORIGIN, A WARNING MESSAGE SHOULD BE ISSUED TO\r\nC     INFORM THE USER THAT THE DEFAULT ORIGIN, WHICH IS THE FIRST\r\nC     DEFINDED ORIGIN, IS GOING TO BE USED, NOT THE ONE HE JUST DEFINED\r\nC\r\n      NOFIND = -1\r\n      LASSET = 0\r\n      CALL PLTSET\r\n      BUF1 = BUF4 + 3*BUFSIZ\r\nC\r\nC     SAVE THE TITLE, SUBTITLE AND LABEL IF DEFORMED PLOTS ...\r\nC\r\n      IF (PRNT .GE. 0) GO TO 30\r\n      DO 10 I = 1,96\r\n   10 SAVTIT(I) = TITLE(I)\r\n   20 NOFIND = 0\r\n   30 CALL RDMODX (PARM,MODE,WORD)\r\n   40 CALL READ (*1800,*1800,PARM,MODE,1,0,I)\r\n      IF (MODE) 50,40,60\r\n   50 I = 1\r\n      IF (MODE .EQ. -4) I = 2\r\n      CALL FREAD (PARM,0,-I,0)\r\n      GO TO 40\r\n   60 IF (MODE .LT. EOR) GO TO 70\r\n      CALL FREAD (PARM,0,0,1)\r\n      GO TO 40\r\n   70 MODE = MODE + 1\r\n      CALL RDWORD (MODE,WORD)\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (AWRD(1) .NE. HPLOT(1)) GO TO 160\r\n      IF (AWRD(2) .EQ.    BLANK) GO TO 110\r\n      IF (AWRD(2) .EQ. HPLOT(2)) GO TO 900\r\n      GO TO 1750\r\nC\r\nC     FIND\r\nC\r\n  100 CALL FIND (MODE,BUF1,BUF4,SETID,XX)\r\n      NOFIND = +1\r\n      IF (MODE .GE. 0) GO TO 30\r\n      MODE = MODEX\r\n      GO TO 130\r\nC\r\nC     PLOT\r\nC\r\n  110 IF (TEST) GO TO 130\r\nC\r\nC         WHEN PLOTTER OR PROJECTION WERE HIT\r\nC              FSCALE=FOR=FVP=1\r\nC              PROJECTION=KWRD-4, SOME NUMBER\r\nC         WHEN SCALE IS HIT,       FSCALE SET TO 0\r\nC         WHEN VANTAGE POINT IS HEIT, FVP SET TO 0\r\nC         WHEN ORIGIN IS HIT,         ORG SET TO 0\r\nC\r\n      IF (FSCALE.NE.0 .OR. FOR.NE.0) GO TO 120\r\n      IF (PRJECT.EQ.1 .OR. FVP.EQ.0) GO TO 130\r\n  120 MODEX = MODE\r\n      MODE  = -1\r\n      ORG   = MAX0(1,ORG)\r\n      GO TO 100\r\n  130 CALL PLOT (MODE,BUF1,BUF4,SETID,XX,NOFIND)\r\n      OESX = OES1\r\n      IF (NOFIND .EQ. -1) ORG = MAX0(1,ORG)\r\n      GO TO 20\r\nC\r\nC     PLOT PARAMETER CARD.\r\nC\r\n  140 IF (MODE .LE. 0) CALL RDMODE (*140,*150,*40,MODE,WORD)\r\n  150 CALL RDWORD (MODE,WORD)\r\n  160 I = NKWD(PRJECT)\r\n      DO 170 KWRD = 1,I\r\n      IF (HKEY(KWRD) .EQ. WORD) GO TO 200\r\n  170 CONTINUE\r\n      GO TO 1750\r\nC\r\n  200 GO TO (100, 1230,  250,  500,  230,  230,  230, 1300,  400,  700,\r\n     1       800,  440,  600, 1120, 1700, 1100, 1720,  520, 1200), KWRD\r\nC\r\nC           FIND  VIEW  AXES  MAXI  ORTH  PERS  STER  CONT  CAME  PAPE\r\nC    1       PEN  BLAN  ORIG  SCAL  CSCA  PROJ  PTIT  OCUL  VANT\r\nC\r\nC\r\nC     RECHECK IF PROJECTION CARD\r\nC\r\n  210 DO 220 KWRD = 5,7\r\n      IF (WORD .EQ. HKEY(KWRD)) GO TO 230\r\n  220 CONTINUE\r\n      GO TO 1750\r\nC\r\nC     PROJECTION\r\nC\r\n  230 PRJECT    = KWRD-4\r\n      VANGLE(1) = 0.\r\n      VANGLE(2) =-1.E10\r\n      VANGLE(3) = 34.27\r\n      FSCALE    = 1\r\n      FVP = 1\r\n      FOR = 1\r\n      IF (NOFIND .EQ. 0) NOFIND = -1\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD .NE. HKEY(16)) GO TO 140\r\nC\r\nC     READ SECOND WORD OF ORTHO.,PERS.,OR STERO. SHOULD BE PROJECTION\r\nC\r\n      IF (ORG .EQ. 0) GO TO 140\r\n      DO 240 I  = 1,ORG\r\n      EDGE(I,1) = 0.\r\n      EDGE(I,2) = 0.\r\n      EDGE(I,3) = 1.\r\n      EDGE(I,4) = 1.\r\n  240 CONTINUE\r\n      ORG = 0\r\n      GO TO 140\r\nC\r\nC     AXES\r\nC\r\n  250 DO 290 J = 1,3\r\n      IF (MODE .EQ. 0) CALL RDMODE (*140,*260,*40,MODE,WORD)\r\n  260 CALL RDWORD (MODE,WORD)\r\n      DO 270 I = 1,7\r\n      IF (WORD .EQ. AXISD(I)) GO TO 280\r\n  270 CONTINUE\r\n      GO TO 310\r\n  280 AXIS(J) = I - 4\r\n  290 CONTINUE\r\n      IF (MODE .EQ. 0) CALL RDMODE (*320,*300,*320,MODE,WORD)\r\n  300 CALL RDWORD (MODE,WORD)\r\n  310 IF (WORD .EQ. ANTI) GO TO 330\r\n  320 K = 1\r\n      GO TO 340\r\n  330 K = -1\r\n  340 DO 350 J = 1,3\r\n      DAXIS(J) = K*AXIS(J)\r\n  350 CONTINUE\r\n      IF (MODE .GE. EOR) GO TO 40\r\n      IF (MODE.LT.0 .OR. WORD.EQ.SYMM .OR. WORD.EQ.ANTI) GO TO 140\r\n      GO TO 160\r\nC\r\nC     CAMERA\r\nC\r\n  400 ASSIGN 420 TO TRA\r\n      IF (MODE .LE. 0) CALL RDMODE (*1910,*410,*40,MODE,WORD)\r\n  410 CALL RDWORD (MODE,WORD)\r\n      N = 2\r\n      IF (WORD .EQ. FILM) N = 1\r\n      IF (WORD .EQ. PAPE) N = 2\r\n      IF (WORD .EQ. BOTH) N = 3\r\n      IF (N) 430,1750,430\r\n  420 N = IWRD\r\n  430 CAMERA = N\r\n      GO TO 140\r\nC\r\nC     BLANK FRAMES\r\nC\r\n  440 IF (MODE .EQ. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.FRAM .OR. MODE.NE.0) GO TO 1750\r\n      ASSIGN 450 TO TRA\r\n      GO TO 1900\r\n  450 BFRAMS = IWRD\r\n      GO TO 140\r\nC\r\nC     MAXIMUM DEFORMATION\r\nC\r\n  500 IF (MODE .LE. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.DEFO .OR. MODE.NE.0) GO TO 1750\r\n      ASSIGN 510 TO TRA\r\n      GO TO 1940\r\n  510 MAXDEF = FWRD\r\n      GO TO 140\r\nC\r\nC     OCULAR SEPARATION\r\nC\r\n  520 IF (MODE .LE. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.SEPA .OR. MODE.NE.0) GO TO 1750\r\n      ASSIGN 530 TO TRA\r\n      GO TO 1940\r\n  530 S0S = FWRD\r\n      GO TO 140\r\nC\r\nC     ORIGIN\r\nC\r\n  600 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 610 TO TRA\r\n      GO TO 1900\r\nC\r\nC     ORIGIN ID\r\nC\r\n  610 ID = IWRD\r\n      ASSIGN 620 TO TRA\r\n      GO TO 1940\r\nC\r\nC     HORIZONTAL LOCATION (LEFT EYE - STEREO)\r\nC\r\n  620 X = FWRD*CNTSIN\r\n      ASSIGN 630 TO TRA\r\n      GO TO 1940\r\nC\r\nC     VERTICAL LOCATION\r\nC\r\n  630 Y = FWRD*CNTSIN\r\n      IF (ORG .EQ. 0) GO TO 670\r\n      DO 640 J = 1,ORG\r\n      IF (ORIGIN(J) .EQ. ID) GO TO 680\r\n  640 CONTINUE\r\n      IF (ORG .LT. NORG) GO TO 670\r\n      IF (PRNT .LT.   0) GO TO 650\r\n      ERR(1) = 1\r\n      ERR(2) = NORG\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\n  650 ORG = NORG\r\n      DO 660 I = 1,2\r\n      EDGE(ORG+1,I+0) = 0.\r\n      EDGE(ORG+1,I+2) = 1.\r\n  660 CONTINUE\r\n  670 ORG = ORG + 1\r\n      J   = ORG\r\n      ORIGIN(J) = ID\r\n      IF (NOFIND .EQ. 0) NOFIND = -1\r\n  680 XY(J,1) = X\r\n      XY(J,3) = Y\r\n      FOR = 0\r\n      ASSIGN 690 TO TRA\r\n      GO TO 1940\r\nC\r\nC     HORIZONTAL LOCATION (RIGHT EYE - STEREO)\r\nC\r\n  690 XY(J,2) = FWRD*CNTSIN\r\n      GO TO 140\r\nC\r\nC     PAPER SIZE, TYPE\r\nC\r\n  700 IF (MODE .LE. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. TYPE) GO TO 760\r\n      IF (WORD.NE.SIZE .OR. MODE.NE.0) GO TO 1750\r\n      ASSIGN 710 TO TRA\r\n      GO TO 1940\r\n  710 X = FWRD\r\n      CALL RDMODE (*730,*720,*40,MODE,WORD)\r\n  720 CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.BY .AND. WORD.NE.HX) GO TO 1750\r\n      IF (MODE .NE. 0) GO TO 1750\r\n  730 ASSIGN 740 TO TRA\r\n      GO TO 1940\r\n  740 PAPSIZ(1) = X\r\n      PAPSIZ(2) = FWRD\r\n      CALL PLTSET\r\n      CALL RDMODE (*140,*750,*40,MODE,WORD)\r\n  750 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .NE. TYPE) GO TO 160\r\nC\r\nC     PAPER TYPE\r\nC\r\n  760 IF (MODE .EQ. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      PAPTYP(1) = AWRD(1)\r\n      PAPTYP(2) = AWRD(2)\r\n      IF (MODE) 140,140,700\r\nC\r\nC     PEN SIZE / COLOR\r\nC\r\n  800 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 810 TO TRA\r\n      GO TO 1900\r\n  810 IF (IWRD.NE.1 .AND. IWRD.LE. NPENS) GO TO 820\r\n      ERR(1) = 1\r\n      ERR(2) = IWRD\r\n      CALL WRTPRT (MERR,ERR,MSG4,NMSG4)\r\n      IWRD = 1\r\n  820 ID = IWRD\r\n  830 CALL RDMODE (*140,*840,*40,MODE,WORD)\r\n  840 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. SIZE) GO TO 850\r\n      IF (WORD .NE. COLO) GO TO 160\r\n      IF (MODE .EQ.    0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      PENCLR(ID,1) = AWRD(1)\r\n      PENCLR(ID,2) = AWRD(2)\r\n      IF (MODE) 140,830,840\r\nC\r\nC     PEN SIZE\r\nC\r\n  850 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 860 TO TRA\r\n      GO TO 1900\r\n  860 PENSIZ(ID) = IWRD\r\n      GO TO 830\r\nC\r\nC     PLOTTER\r\nC\r\n  900 IF (MODE .EQ. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      PLTNAM(1) = AWRD(1)\r\n      PLTNAM(2) = AWRD(2)\r\n      PLTMOD(1) = 0\r\n      PLTMOD(2) = 0\r\n      CAMERA = 2\r\n      FSCALE = 1\r\n      FVP = 1\r\n      FOR = 1\r\n      IF (ORG .EQ. 0) GO TO 920\r\n      DO 910 I  = 1,ORG\r\n      EDGE(I,1) = 0.\r\n      EDGE(I,2) = 0.\r\n      EDGE(I,3) = 1.\r\n      EDGE(I,4) = 1.\r\n  910 CONTINUE\r\n      ORG = 0\r\nC\r\nC     CHECK FOR A MODEL NUMBER\r\nC\r\n  920 ASSIGN 960 TO TRA\r\n      J = 1\r\n      IF (MODE .LE. 0) CALL RDMODE (*1910,*930,*970,MODE,WORD)\r\n  930 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. DENS ) GO TO 970\r\n      IF (WORD .NE. HMODE) GO TO 960\r\n  940 IF (MODE .LE. 0) CALL RDMODE (*1910,*950,*970,MODE,WORD)\r\n  950 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. DENS) GO TO 970\r\n  960 PLTMOD(J) = WORD\r\n      J = J + 1\r\n      IF (J .EQ. 2) GO TO 940\r\n  970 CALL FNDPLT (ID,N,PLTMOD)\r\n      PLOTER = ID\r\n      MODEL  = N\r\n      CALL PLTSET\r\n      IF (WORD .EQ. DENS) GO TO 1000\r\n      IF (MODE .GE.  EOR) GO TO 40\r\nC\r\nC     TAPE DENSITY ON PLOTTER CARD\r\nC\r\n  980 IF (MODE .LE. 0) CALL RDMODE (*980,*990,*40,MODE,WORD)\r\n  990 CALL RDWORD (MODE,WORD)\r\n 1000 IF (WORD .NE. DENS) GO TO 160\r\n      IF (MODE .NE.    0) GO TO 140\r\n      ASSIGN 1010 TO TRA\r\n      GO TO 1900\r\n 1010 TAPDEN = IWRD\r\n      CALL RDMODE (*140,*1020,*40,MODE,WORD)\r\n 1020 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. BPI) GO TO 140\r\n      GO TO 160\r\nC\r\nC     PROJECTION PLANE SEPARATION\r\nC\r\n 1100 IF (MODE .EQ. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\nC\r\nC     USER MAY HAVE REVERSE ENGLISH\r\nC\r\n      IF (WORD .NE. PLAN) GO TO 210\r\n      IF (MODE .EQ.    0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (MODE.NE.0 .OR. WORD.NE.SEPA) GO TO 1750\r\n      ASSIGN 1110 TO TRA\r\n      GO TO 1940\r\n 1110 IF (PRJECT .EQ. 2) D02 = FWRD\r\n      IF (PRJECT .EQ. 3) D03 = FWRD\r\n      GO TO 140\r\nC\r\nC     SCALE\r\nC\r\n 1120 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 1130 TO TRA\r\n      GO TO 1940\r\n 1130 IF (FWRD  .EQ. 0.) GO TO 1140\r\n      IF (PRJECT .NE. 3) SCALE(1) = CNTSIN*FWRD\r\n      IF (PRJECT .EQ. 3) SCALE(1) = CNTIN3*FWRD\r\n 1140 FSCALE = 0\r\n      ASSIGN 1150 TO TRA\r\n      GO TO 1940\r\n 1150 IF (FWRD  .NE. 0.) SCALE(2) = FWRD\r\n      IF (NOFIND .EQ. 0) NOFIND = -1\r\n      GO TO 140\r\nC\r\nC     VANTAGE POINT\r\nC\r\n 1200 IF (MODE .EQ. 0) GO TO 1750\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.POIN .OR. MODE.NE.0) GO TO 1750\r\n      ASSIGN 1220 TO TRA\r\n      J = 0\r\n 1210 J = J + 1\r\n      IF (J .EQ. 3) J = 4\r\n      IF (PRJECT.EQ.3 .AND. J.EQ.6) J = 3\r\n      GO TO 1940\r\n 1220 VANPNT(J) = FWRD\r\n      IF ((PRJECT.NE.3 .AND. J.NE.5) .OR. (PRJECT.EQ.3 .AND. J.NE.3))\r\n     1   GO TO 1210\r\n      FVP =  0\r\n      IF (NOFIND .EQ. 0) NOFIND = -1\r\n      GO TO 140\r\nC\r\nC     VIEW\r\nC\r\n 1230 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 1250 TO TRA\r\n      J = 4\r\n 1240 J = J - 1\r\n      GO TO 1940\r\n 1250 VANGLE(J) = FWRD\r\n      IF (NOFIND .EQ. 0) NOFIND = -1\r\n      IF (J-1) 1240,140,1240\r\nC\r\nC     CONTOUR\r\nC\r\nC     RESTORE DEFAULTS\r\nC\r\n 1300 ICNTVL = 1\r\n      NCNTR  = 10\r\n      COLOR  = 0\r\n      LAYER  = 0\r\n      WHERE  = 1\r\n      DIRECT = 2\r\n      CNTR(1)= 0.0\r\n      CNTR(2)= 0.0\r\nC\r\nC     FLAG AND LASSET SET IN PLOT AND CONPLT\r\nC\r\n 1310 IF (MODE .LE. 0) CALL RDMODE (*1310,*1320,*40,MODE,WORD)\r\n 1320 CALL RDWORD (MODE,WORD)\r\n      IF (WORD.EQ.COLO .OR. WORD.EQ.FILL .OR. WORD.EQ.LAYE) GO TO 1340\r\n      IF (WORD .NE. EVEN) GO TO 1370\r\n      ASSIGN 1330 TO TRA\r\n      GO TO 1900\r\n 1330 NCNTR = MIN0 (50,IWRD)\r\n      GO TO 1310\r\n 1340 IF (WORD .EQ. COLO) ASSIGN 1350 TO TRA\r\n      IF (WORD .EQ. FILL) ASSIGN 1360 TO TRA\r\n      IF (WORD .EQ. LAYE) GO TO 1600\r\n      GO TO 1900\r\n 1350 COLOR = IWRD\r\n      GO TO 1310\r\n 1360 COLOR = -IWRD\r\n      GO TO 1310\r\nC\r\n 1370 IF (WORD .NE. LIST) GO TO 1500\r\n      IF (MODE .GT.    0) GO TO 1580\r\n      NCNTR = 0\r\n      ASSIGN 1390 TO TRA\r\n 1380 CALL RDMODE (*1950,*1320,*40,MODE,WORD)\r\n 1390 IF (NCNTR .LT. 50) GO TO 1400\r\n      IF (PRNT  .LT.  0) GO TO 1380\r\n      ERR(1) = 1\r\n      ERR(2) = IWRD\r\n      CALL WRTPRT (MERR,ERR,MSG5,NMSG5)\r\n      GO TO 1380\r\n 1400 NCNTR = NCNTR + 1\r\n      CNTR(NCNTR) = FWRD\r\n      GO TO 1380\r\nC\r\n 1500 IF (WORD .EQ. Z1  ) GO TO 1510\r\n      IF (WORD .EQ. Z2  ) GO TO 1520\r\n      IF (WORD .EQ. MAX ) GO TO 1530\r\n      IF (WORD .EQ. MID ) GO TO 1540\r\n      IF (WORD .EQ. COMM) GO TO 1550\r\n      IF (WORD .EQ. DISP) GO TO 1310\r\n      IF (WORD .EQ. STRE) GO TO 1310\r\n      IF (WORD .NE. LOCA) GO TO 1560\r\n      DIRECT = 1\r\n      GO TO 1310\r\n 1510 WHERE  = 1\r\n      GO TO 1310\r\n 1520 WHERE  =-1\r\n      GO TO 1310\r\n 1530 WHERE  = 2\r\n      GO TO 1310\r\n 1540 WHERE  = 3\r\n      GO TO 1310\r\n 1550 DIRECT = 2\r\n      GO TO 1310\r\nC\r\n 1560 DO 1570 J = 1,20\r\n      IF (WORD .EQ. ICNDA(J)) GO TO 1590\r\n 1570 CONTINUE\r\n 1580 IF (PRNT .LT. 0) GO TO 1310\r\n      ERR(1) = 2\r\n      ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n      CALL WRTPRT (MERR,ERR,MSG2,NMSG2)\r\n      GO TO 1310\r\nC\r\n 1590 ICNTVL = J\r\nC\r\nC     SET STRESS FILE TO STRAIN FILE\r\nC\r\n      IF (ICNTVL .EQ. 20) OESX = ONRGY1\r\n      GO TO 1310\r\nC\r\nC     ASSIGN LAYER NUMBER HERE FOR COMPOSITS\r\nC\r\n 1600 ASSIGN 1610 TO TRA\r\nC\r\nC     SET STRESS FILE TO LAYER STRESS\r\nC\r\n      OESX = OES1L\r\n      GO TO 1900\r\n 1610 LAYER = IWRD\r\n      GO TO 1310\r\nC\r\nC     CSCALE\r\nC\r\n 1700 IF (MODE .NE. 0) GO TO 1750\r\n      ASSIGN 1710 TO TRA\r\n      GO TO 1940\r\n 1710 CHRSCL = FWRD\r\n      IF (NOFIND .EQ.   0) NOFIND = -1\r\n      IF (CHRSCL .LT. 1.0) CHRSCL = 1.0\r\n      CALL PLTSET\r\n      GO TO 140\r\nC\r\nC     PTITLE\r\nC\r\n 1720 FPLTIT = 1\r\n      DO 1730 I = 1,17\r\n 1730 PLTITL(I) = BLANK4\r\n      J = COLOR\r\n      DO 1740 I = 1,17,2\r\n      CALL RDWORD (MODE,WORD)\r\n      PLTITL(I  ) = AWRD(1)\r\n      PLTITL(I+1) = AWRD(2)\r\n      IF (MODE .EQ. 0) GO TO 140\r\n 1740 CONTINUE\r\n      COLOR = J\r\n      IF (MODE .NE. 0) CALL RDWORD (MODE,WORD)\r\n      GO TO 140\r\nC\r\nC     UNRECOGNIZABLE PLOT PARAMETER.\r\nC\r\n 1750 IF (PRNT.LT. 0) GO TO 140\r\n      ERR(1) = 2\r\n      ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n      CALL WRTPRT (MERR,ERR,MSG2,NMSG2)\r\n      GO TO 140\r\nC\r\nC     END OF PLOT INPUT\r\nC\r\n 1800 IF (PRNT .GE. 0) GO TO 1820\r\n      DO 1810 I = 1,96\r\n 1810 TITLE(I) = SAVTIT(I)\r\n 1820 CONTINUE\r\n      RETURN\r\nC\r\nC\r\nC     READ AN INTEGER ON A PARAMETER CARD\r\nC\r\n 1900 CALL RDMODE (*1910,*140,*40,MODE,WORD)\r\n 1910 IF (MODE .EQ. -1) GO TO 1930\r\n      IF (MODE .EQ. -4) GO TO 1920\r\n      IWRD = FWRD\r\n      GO TO 1930\r\n 1920 IWRD = DWRD\r\n 1930 GO TO TRA, (420,450,610,810,860,1330,1350,1360,1610,960,1010)\r\nC\r\nC     READ A DECIMAL NUMBER ON A PARAMETER CARD\r\nC\r\n 1940 CALL RDMODE (*1950,*140,*40,MODE,WORD)\r\n 1950 IF (MODE .EQ. -4) GO TO 1960\r\n      IF (MODE .NE. -1) GO TO 1970\r\n      FWRD = IWRD\r\n      GO TO 1970\r\n 1960 FWRD = DWRD\r\n 1970 GO TO TRA, ( 510, 530, 620, 630, 690, 710, 740,1110,1130,1150,\r\n     1            1220,1250,1390,1710)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/paraml.f",
    "content": "      SUBROUTINE PARAML\r\nC\r\nC     TO SELECT PARAMETERS FROM A GINO DATA BLOCK\r\nC\r\nC     PARAML  DB/ /C,N,OP/V,N,P1/V,N,P2/V,N,RSP/V,N,INTEG/V,N,RDP/\r\nC                  V,N,BCD/V,N,SPLX/V,N,DPLX $\r\nC\r\nC     INPUT GINO FILE -\r\nC       DB = TABLE  INPUT FILE IF OP='TABLEi'\r\nC       DB = MATRIX INPUT FILE IF OP='MATRIX','NULL', etc.\r\nC     OUTPUT GINO FILE -\r\nC       NONE\r\nC     INPUT PARAMETER -\r\nC       OP    = OPERATION FLAG, ONE OF THE FOLLOWING KEY WORDS,\r\nC               'MATRIX', 'NULL', 'PRESENCE', 'TRAILER', OR\r\nC               'TABLE1' - ABSTRACT FROM 1 INPUT WORD TO FORM ALL OUTPUT\r\nC                          DATA TYPE (INTEGER, S.P /D.P. REAL S.P./D.P.\r\nC                          COMPLEX) AND 4-BYTE BCD WORD (1 WORD)\r\nC               'TABLE2' - ABSTRACT FROM 2 INPUT WORDS TO FORM ALL\r\nC                          OUTPUT DATA TYPE, AND 8-BYTE BCD (2 WORDS)\r\nC               'TABLE4' - ABSTRACT FORM 4 INPUT WORDS TO FORM S.P./D.P.\r\nC                          COMPLEX NUMBER\r\nC               'TABLE1/2/4' OPERATES ONLY IN TABLE  DATA BLOCK, AND\r\nC                THE OTHERS  OPERATE  ONLY IN MATRIX DATA BLOCK.\r\nC\r\nC                IF 'PRESENCE' IS ABBREVIATED AS 'PRES  ', THE USER\r\nC                PARAML INFORMATION MESSAGE IS NOT ECHOED OUT.\r\nC\r\nC     INPUT/OUTPUT PARAMETERS -\r\nC       P1    = RECORD NO. IF DB IS A TABLE, OR\r\nC       P1    = ROW NO. IF DB IS A MATRIX\r\nC               (DEFAULT=1)\r\nC       P2    = WORD POSITION INDEX (BASED ON S.P.REAL WORD COUNT)\r\nC               IF DB IS A TABLE, OR\r\nC       P2    = COLUMN NUMBER, IF DB IS A MATRIX DATA BLOCK, S.P. OR\r\nC               D.P.\r\nC               (DEFAULT=1)\r\nC       (ROW FIRST AND COLUMN SECOND - IN CONSISTANT WITH SCALAR MODULE)\r\nC     OUTPUT PARAMETERS -\r\nC       RSP   = SINGLE PRECISION REAL\r\nC               (DATA ABSTRACTED FROM 1 OR 2 INPUT WORDS)\r\nC       INTEG = INTEGER (DATA ABSTRACTED FROM 1 INPUT WORD)\r\nC       RDP   = DOUBLE PREC. FLOATING NUMBERS (FROM 1 OR 2 INPUT WORDS)\r\nC       BCD   = 8-BYTE BCD WORD, BLANK FILLED IF NECCESSARY\r\nC       SPLX  = SINGLE PRECISION COMPLEX (FROM 1 TO 4 INPUT WORDS)\r\nC       DPLX  = DOUBLE PRECISION COMPLEX (FROM 1 TO 4 INPUT WORDS)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          TB1,TB2,TB4,MAT,PRT\r\n      INTEGER          MCB(7),NAME(2),IVPS(1),OPCD(7),FNM(2),\r\n     1                 NMVPS(2),EI(3),AT(2)\r\n      REAL             Z(1),RSP,SPLX,SP(4),VPS,X,Y\r\n      DOUBLE PRECISION DZ(1),RDP,DPLX,DP(2)\r\n      CHARACTER*7      NTY(4)\r\n      CHARACTER*10     TYPE(4)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /XVPS  /  VPS(2)\r\n      COMMON /UNPAKX/  ITYP,II,JJ,INCR\r\n      COMMON /ILOCAL/  IL(2),IL3,IL4,IL5,IL6,IL7,IL8,IL9\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /BLANK /  OP(2),P1,P2,RSP,INTEG,RDP,BCD(2),SPLX(2),DPLX(2)\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      EQUIVALENCE      (VPS(1),IVPS(1)) ,(Z(1),IZ(1),DZ(1))\r\n      EQUIVALENCE      (SP(1) ,  DP(1))\r\n      DATA NAME / 4HPARA,4HML  /,BLANK/4H     /, AT/ 4HAND ,4HTHRU /\r\n      DATA OPCD / 4HTABL,4HMATR,4HPRES,4HNULL,4HTRAI,4HDTI ,4HDMI  /\r\n      DATA FIRST/ 12 /  ,IN1   / 101  /,   EI /2HE1, 2HE2, 2HE4    /\r\n      DATA NTY  / 'ZERO', 'INTEGER', 'REAL',  'BCD' /\r\n      DATA TYPE / 'S.P. REAL ', 'D.P. REAL ', 'S.P. CMPLX', 'D.P.CMPLX'/\r\nC\r\nC     SUPPRESS ALL PARAML CHECKING MESSAGES IF DIAG 37 IS ON\r\nC\r\n      CALL SSWTCH (37,I)\r\n      PRT   = I .EQ. 0\r\n      NZ    = KORSZ(IZ)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IF (IBUF1 .LE. 0) GO TO 1220\r\n      FLAG  = 1\r\n      MCB(1)= IN1\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .GT. 0) GO TO 20\r\nC\r\nC     INPUT PURGED.  RETURN IF OP(1) IS NOT 'PRES'\r\nC\r\n      IF (OP(1) .NE. OPCD(3)) GO TO 1240\r\n      FLAG  =-1\r\n      CALL FNDPAR (-5,IL5)\r\n      IF (PRT .AND. OP(2).NE.BLANK) WRITE (NOUT,40) UIM,OP\r\n   10 INTEG = FLAG\r\n      IVPS(IL5) = FLAG\r\n      NMVPS(1) = IVPS(IL5-3)\r\n      NMVPS(2) = IVPS(IL5-2)\r\n      IF (PRT .AND. OP(2).NE.BLANK) WRITE (NOUT,510) INTEG,NMVPS\r\n      GO TO 1240\r\nC\r\n   20 PREC = MCB(5)\r\n      CALL FNAME (IN1,FNM)\r\n      DO 30 J=3,9\r\n      CALL FNDPAR (-J,IL(J))\r\n   30 CONTINUE\r\n      IF (OP(1).EQ.OPCD(3) .AND. OP(2).EQ.BLANK) GO TO 200\r\n      IF (OP(1) .EQ. OPCD(4)) GO TO 210\r\n      IF (.NOT.PRT) GO TO 45\r\n      CALL PAGE2 (FIRST)\r\n      FIRST = 5\r\n      WRITE  (NOUT,40) UIM,OP\r\n   40 FORMAT (A29,' FROM PARAML MODULE  - ',2A4,2H -, /5X,\r\n     1       '(ALL PARAML MESSAGES CAN BE SUPPRESSED BY DIAG 37)',/)\r\nC\r\nC     IDENTIFY OPCODE\r\nC\r\n   45 DO 50 I = 1,7\r\n      IF (OP(1) .EQ. OPCD(I)) GO TO (300,800,200,210,220,90,90), I\r\n   50 CONTINUE\r\n   60 WRITE  (NOUT,70) UFM,OP\r\n   70 FORMAT (A23,', ILLEGAL OP REQUEST TO MODULE PARAML - ',2A4)\r\n   80 CALL MESAGE (-37,0,NAME)\r\nC\r\n   90 IF (.NOT.PRT) GO TO 60\r\n      WRITE  (NOUT,100) UIM\r\n  100 FORMAT (A29,', NEW PARAMETERS USED IN PARAML MODULE:', //5X,\r\n     1 'PARAML  DB//C,N,OP/C,N,P1/V,N,P2/V,N,RSP/V,N,INT/V,N,RDP/',\r\n     2 'V,N,BCD/V,N,CSX/V,N,CDX  $', /13X,\r\n     3 'OP      = OPCODE, ONE OF THE FOLLOWING KEY WORDS, BCD INPUT, N',\r\n     4 'O DEFAULT', /23X,43H'MATRIX', 'NULL', 'PRESENCE', 'TRAILER', OR,\r\n     5 /23X,28H'TABLE1', 'TABLE2', 'TABLE4',\r\n     6 /13X,'P1,P2   = RECORD NO. AND WORD POSITION IF OP= TABLEi',\r\n     7 /21X,'= ROW AND COLUMN INDEXES IF OP= MATRIX,  INTEGERS INPUT',\r\n     8 /21X,'= P2 GIVES THE VALUE OF P1 TRAILER WORD IF OP= TRAILER',\r\n     9 /13X,'RSP,RDP = SINGLE PRECISION AND DOUBLE PREC. REAL, OUTPUT',\r\n     O /23X,'(DEFAULTS ARE 0.0 AND 0.D+0,  PREVIOUS DEFAULTS WARE ONES',\r\n     1 /13X,'INT,BCD = INTEGER AND 2-BCD WORDS OUTPUT', /23X,'INT =-1,',\r\n     2 ' IF NULL MATRIX AND OP= NULL, OR PURGED DB AND OP= PRESENCE',\r\n     3 /13X,'CSX,CDX = SINGLE PRECISION AND DOUBLE PRECISION COMPLEX, ',\r\n     4 'OUTPUT', //5X,'EXAMPLE - ',\r\n     5 'ABSTRACT THE 3RD COL. 9TH ROW ELEMENT OF KGG MATRIX, AND', /15X,\r\n     6 'ABSTRACT THE 3RD RECORD AND 9TH WORD  OF EPT DATA BLCOK', //5X,\r\n     7 'PARAML  KGG//*MATRIX*/C,N,9/C,N,3/V,N,R93//V,N,D93//V,N,CS93',\r\n     8 /5X,'PARAML  EPT//*TABLE1*/C,N,3/C,N,9//V,N,I39/V,N,D39',/)\r\n      IF (I .EQ. 6) WRITE (NOUT,110)\r\n      IF (I .EQ. 7) WRITE (NOUT,120)\r\n 110  FORMAT (5X,'SUGGESTION- REPLACE THE OPCODE ''DTI'' BY ''TABLE1''')\r\n 120  FORMAT (5X,'SUGGESTION- REPLACE THE OPCODE ''DMI'' BY ''MATRIX''',\r\n     1      /18X,'AND NOTE THAT P1 IS ROW NUMBER AND P2 IS COLUMN NO.')\r\n      GO TO 60\r\nC\r\nC     OP = PRESENCE\r\nC     TEST FOR PRESENCE OF DATA BLOCK\r\nC\r\n  200 GO TO 10\r\nC\r\nC     OP = NULL\r\nC     TEST FOR NULL MATRIX DATA BLOCK\r\nC\r\n  210 IF (MCB(7) .EQ. 0) FLAG =-1\r\n      GO TO 10\r\nC\r\nC     OP = TRAILER\r\nC     PLACE THE (P1+1) WORD OF THE TRAILER IN P2\r\nC\r\n  220 IF (P1.LE.0 .OR. P1.GE.7) GO TO 230\r\n      P2 = MCB(P1+1)\r\n      IVPS(IL3) = P2\r\n      NMVPS(1) = IVPS(IL3-3)\r\n      NMVPS(2) = IVPS(IL3-2)\r\n      IF (PRT) WRITE (NOUT,510) P2,NMVPS\r\n      GO TO 1240\r\n  230 WRITE  (NOUT,240) UFM,P1\r\n  240 FORMAT (A23,', 2ND PARAMETER IN PARAML MODULE IS ILLEGAL',I5)\r\n      GO TO 80\r\nC\r\nC     OP = TABLE\r\nC     PROCESS TABLE TYPE DATA BLOCK\r\nC\r\n  300 TB1 = .FALSE.\r\n      TB2 = .FALSE.\r\n      TB4 = .FALSE.\r\n      IF (OP(2) .EQ. EI(1)) TB1 = .TRUE.\r\n      IF (OP(2) .EQ. EI(2)) TB2 = .TRUE.\r\n      IF (OP(2) .EQ. EI(3)) TB4 = .TRUE.\r\n      IF (.NOT.TB1 .AND. .NOT.TB2 .AND. .NOT.TB4) GO TO 60\r\n      MAT = .FALSE.\r\n      RECNO = P1\r\n      INDEX = P2\r\n      IF (TB2) IXP1 = INDEX+1\r\n      IF (TB4) IXP1 = INDEX+3\r\n      ATX = AT(1)\r\n      IF (TB4) ATX = AT(2)\r\n      CALL OPEN (*1200,IN1,IZ(IBUF1),0)\r\n      CALL SKPREC (IN1,RECNO)\r\n      CALL READ (*1210,*310,IN1,IZ,IBUF1-1,1,RL)\r\n      GO TO 1220\r\n  310 IF (INDEX .GT. RL) GO TO 1210\r\n      IF (IL4 .LE. 0) GO TO 500\r\nC\r\nC     OUTPUT REQUEST IN S.P. REAL\r\nC\r\n      IF (.NOT.PRT) GO TO 350\r\n      IF (.NOT.TB1) GO TO 330\r\n      WRITE  (NOUT,320) FNM,RECNO,INDEX\r\n  320 FORMAT (5X,'INPUT FILE ',2A4,' RECORD',I6,' WORD',I6,13X,1H=)\r\n      GO TO 350\r\n  330 WRITE  (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  340 FORMAT (5X,'INPUT FILE ',2A4,' RECORD',I6,' WORDS',I6,1X,A4,I5,\r\n     1       '  =')\r\n  350 NMVPS(1) = IVPS(IL4-3)\r\n      NMVPS(2) = IVPS(IL4-2)\r\n      IF (TB4) GO TO 400\r\n      IF (TB2) GO TO 355\r\n      RSP = Z(INDEX)\r\n      IF (MAT) GO TO 360\r\n      K = NUMTYP(RSP)+1\r\n      IF (K.EQ.2 .OR. K.EQ.4) GO TO 400\r\n      GO TO 360\r\n  355 K = -1\r\n      IF (INDEX+1 .GT. RL) GO TO 400\r\n      SP(1) = Z(INDEX  )\r\n      SP(2) = Z(INDEX+1)\r\nCWKBI\r\n      IF ( SP(2) .EQ. 0.0 ) DP(1) = SP(1)\r\nCWKBR RSP = SNGL(DP(1))\r\n      RSP = SP(1)\r\n      K = NUMTYP(RSP)+1\r\n      IF (K.EQ.2 .OR. K.EQ.4) GO TO 400\r\n  360 IF (PRT) WRITE (NOUT,370) RSP,NMVPS\r\n  370 FORMAT (1H+,70X,E15.8,'   = ',2A4)\r\n      VPS(IL4) = RSP\r\n      GO TO 500\r\nC\r\n  400 IF (.NOT.PRT) GO TO 500\r\n      WRITE  (NOUT,410) NMVPS\r\n  410 FORMAT (1H+,70X,'(INVALID REQUEST) = ',2A4)\r\n      IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS\r\n  420 FORMAT (A25,' - ILLEGAL OUTPUT REQUESTED. ORIG. DATA TYPE IS ',A7,\r\n     1       ',  PARAMETER ',2A4,' NOT SAVED')\r\n  430 FORMAT (A25,' - E-O-R ENCOUNTERED.  PARAMETER ',2A4,' NOT SAVED')\r\nC\r\n  500 IF (IL5.LE.0 .OR. MAT) GO TO 540\r\nC\r\nC     OUTPUT REQUEST IS INTEGER\r\nC\r\n      IF (.NOT.PRT) GO TO 505\r\n      IF (     TB1) WRITE (NOUT,320) FNM,RECNO,INDEX\r\n      IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  505 NMVPS(1) = IVPS(IL5-3)\r\n      NMVPS(2) = IVPS(IL5-2)\r\n      K = 0\r\n      IF (TB2 .OR. TB4) GO TO 520\r\n      INTEG = IZ(INDEX)\r\n      K = NUMTYP(INTEG)+1\r\n      IF (K .GT. 2) GO TO 520\r\n      IVPS(IL5) = INTEG\r\n      IF (PRT) WRITE (NOUT,510) INTEG,NMVPS\r\n  510 FORMAT (1H+,70X,I15,'   = ',2A4)\r\n      GO TO 540\r\nC\r\n  520 IF (.NOT.PRT) GO TO 540\r\n      WRITE (NOUT,410) NMVPS\r\n      IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ. 0) WRITE (NOUT,530) UWM,NMVPS\r\n  530 FORMAT (A25,' - ILLEGAL INTEGER ABSTRACTION FROM 2 OR 4 DATA ',\r\n     1       'WORDS.  OUPUT PARAMETER ',2A4,' NOT SAVED')\r\n      GO TO 540\r\nC\r\n  540 IF (IL6 .LE. 0) GO TO 600\r\nC\r\nC     OUTPUT REQUEST IN D.P. REAL\r\nC\r\n      IF (.NOT.PRT) GO TO 545\r\n      IF (     TB1) WRITE (NOUT,320) FNM,RECNO,INDEX\r\n      IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  545 NMVPS(1) = IVPS(IL6-3)\r\n      NMVPS(2) = IVPS(IL6-2)\r\n      IF (MAT) GO TO 560\r\n      IF (TB2) GO TO 550\r\n      IF (TB4) GO TO 590\r\n      K = NUMTYP(Z(INDEX))+1\r\n      IF (K.EQ.2 .OR. K.EQ.4) GO TO 590\r\n      DP(1) = DBLE(Z(INDEX))\r\n      GO TO 570\r\n  550 K =-1\r\n      J = 0\r\n      IF (INDEX+1 .GT. RL) GO TO 590\r\n      SP(1) = Z(INDEX  )\r\n      SP(2) = Z(INDEX+1)\r\nCWKBD 9/93      X = SNGL(DP(1))\r\n      X = SP(1)\r\n      J = NUMTYP(X)+1\r\n      IF (J.EQ.2 .OR. J.EQ.4) GO TO 590\r\n      GO TO 570\r\n  560 IF (PREC .EQ. 1) DP(1) = DBLE(Z(INDEX))\r\nCWKBI\r\n  570 IF ( SP(2) .EQ. 0.0 ) DP(1) = SP(1)\r\nCWKBR  570 RDP = DP(1)\r\n      RDP = DP(1)\r\n      VPS(IL6  ) = SP(1)\r\n      VPS(IL6+1) = SP(2)\r\n      IF (PRT) WRITE (NOUT,580) RDP,NMVPS\r\n  580 FORMAT (1H+,70X,D15.8,'   = ',2A4)\r\n      GO TO 600\r\nC\r\n  590 IF (.NOT.PRT) GO TO 600\r\n      WRITE (NOUT,410) NMVPS\r\n      IF (J.EQ.2 .OR. J.EQ.4) K = J\r\n      IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS\r\nC\r\n  600 IF (IL7.LE.0 .OR. MAT) GO TO 650\r\nC\r\nC     OUTPUT REQUEST IN BCD\r\nC\r\n      IF (.NOT.PRT) GO TO 605\r\n      IF (     TB1) WRITE (NOUT,320) FNM,RECNO,INDEX\r\n      IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  605 NMVPS(1) = IVPS(IL7-3)\r\n      NMVPS(2) = IVPS(IL7-2)\r\n      K = 0\r\n      IF (TB4) GO TO 630\r\n      BCD(1) = IZ(INDEX)\r\n      BCD(2) = BLANK\r\n      K = NUMTYP(BCD(1))+1\r\n      IF (K .NE. 4) GO TO 630\r\n      IF (TB1) GO TO 610\r\n      K = -1\r\n      IF (INDEX+1 .GT. RL) GO TO 630\r\n      BCD(2) = IZ(INDEX+1)\r\n      K = NUMTYP(BCD(2))+1\r\n      IF (K .NE. 4) GO TO 630\r\n  610 IVPS(IL7  ) = BCD(1)\r\n      IVPS(IL7+1) = BCD(2)\r\n      IF (PRT) WRITE (NOUT,620) BCD,NMVPS\r\n  620 FORMAT (1H+,70X,2A4,'   = ',2A4)\r\n      GO TO 650\r\nC\r\n  630 IF (.NOT.PRT) GO TO 650\r\n      WRITE (NOUT,410) NMVPS\r\n      IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ. 0) WRITE (NOUT,640) UWM,NMVPS\r\n      IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS\r\n  640 FORMAT (A25,' - ILLEGAL BCD ABSTRACTION FROM 4 DATA WORDS. ',\r\n     1       ' PARAMETER ',2A4,'NOT SAVED')\r\nC\r\n  650 IF (IL8 .LE. 0) GO TO 700\r\nC\r\nC     OUTPUT REQUEST IN S.P. COMPLEX\r\nC\r\n      IF (.NOT.PRT) GO TO 655\r\n      IF (     TB1) WRITE (NOUT,320) FNM,RECNO,INDEX\r\n      IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  655 NMVPS(1) = IVPS(IL8-3)\r\n      NMVPS(2) = IVPS(IL8-2)\r\n      K =-1\r\n      J = 0\r\n      IF (TB4) GO TO 660\r\n      SPLX(1) = Z(INDEX)\r\n      SPLX(2) = 0.0\r\n      IF (TB1 .OR. MAT) GO TO 670\r\n      IF (INDEX+1 .GT. RL) GO TO 690\r\n      SPLX(2) = Z(INDEX+1)\r\n      GO TO 670\r\n  660 IF (INDEX+3 .GT. RL) GO TO 690\r\n      SP(1)   = Z(INDEX  )\r\n      SP(2)   = Z(INDEX+1)\r\n      SP(3)   = Z(INDEX+2)\r\n      SP(4)   = Z(INDEX+3)\r\nCWKBR SPLX(1) = SNGL(DP(1))\r\n      SPLX(1) = SP(1)\r\nCWKBR SPLX(2) = SNGL(DP(2))\r\n      SPLX(2) = SP(3)\r\n  670 J = NUMTYP(SPLX(1))+1\r\n      K = NUMTYP(SPLX(2))+1\r\n      IF (J.EQ.2 .OR. J.EQ.4 .OR. K.EQ.2 .OR. J.EQ.4) GO TO 690\r\n      VPS(IL8  ) = SPLX(1)\r\n      VPS(IL8+1) = SPLX(2)\r\n      IF (PRT) WRITE (NOUT,680) SPLX,NMVPS\r\n  680 FORMAT (1H+,70X,1H(,E15.8,1H,,E15.8,1H),'  = ',2A4)\r\n      GO TO 700\r\nC\r\n  690 IF (.NOT.PRT) GO TO 700\r\n      WRITE (NOUT,410) NMVPS\r\n      IF (J.EQ.2 .OR. J.EQ.4) K = J\r\n      IF (K .EQ. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS\r\nC\r\n  700 IF (IL9 .LE. 0) GO TO 1100\r\nC\r\nC     OUTPUT REQUEST IN D.P. COMPLEX\r\nC\r\n      IF (.NOT.PRT) GO TO 705\r\n      IF (     TB1) WRITE (NOUT,320) FNM,RECNO,INDEX\r\n      IF (.NOT.TB1) WRITE (NOUT,340) FNM,RECNO,INDEX,ATX,IXP1\r\n  705 NMVPS(1) = IVPS(IL9-3)\r\n      NMVPS(2) = IVPS(IL9-2)\r\n      K =-1\r\n      J = 0\r\n      IF (TB4) GO TO 710\r\n      K = NUMTYP(Z(INDEX))+1\r\n      IF (K.EQ.2 .OR. K.EQ.4) GO TO 740\r\n      DP(1) = DBLE(Z(INDEX))\r\n      DP(2) = 0.D0\r\n      IF (TB1 .OR. MAT) GO TO 720\r\n      IF (INDEX+1 .GT. RL) GO TO 740\r\n      K = NUMTYP(Z(INDEX+1))+1\r\n      IF (K.EQ.2 .OR. K.EQ.4) GO TO 740\r\n      DP(2) = DBLE(Z(INDEX+1))\r\n      GO TO 720\r\n  710 IF (INDEX+3 .GT. RL) GO TO 740\r\n      SP(1) = Z(INDEX  )\r\n      SP(2) = Z(INDEX+1)\r\n      SP(3) = Z(INDEX+2)\r\n      SP(4) = Z(INDEX+3)\r\nCWKBR X = SNGL(DP(1))\r\n      X = SP(1)\r\nCWKBR Y = SNGL(DP(2))\r\n      Y = SP(3)\r\n      J = NUMTYP(X)+1\r\n      K = NUMTYP(Y)+1\r\n      IF (J.EQ.2 .OR. J.EQ.4 .OR. K.EQ.2 .OR. K.EQ.4) GO TO 740\r\n      DP(1)   = DBLE(Z(INDEX))\r\n      DP(2)   = 0.D0\r\n  720 DPLX(1) = DP(1)\r\n      DPLX(2) = DP(2)\r\n      VPS(IL9  ) = SP(1)\r\n      VPS(IL9+1) = SP(2)\r\n      VPS(IL9+2) = SP(3)\r\n      VPS(IL9+3) = SP(4)\r\n      IF (PRT) WRITE (NOUT,730) DPLX,NMVPS\r\n  730 FORMAT (1H+,70X,1H(,D15.8,1H,,D15.8,1H),'  = ',2A4)\r\n      GO TO 1100\r\nC\r\n  740 IF (.NOT.PRT) GO TO 1100\r\n      WRITE (NOUT,410) NMVPS\r\n      IF (J.EQ.2 .OR. J.EQ.4) K = J\r\n      IF (K .GT. 0) WRITE (NOUT,420) UWM,NTY(K),NMVPS\r\n      IF (K .EQ.-1) WRITE (NOUT,430) UWM,NMVPS\r\n      GO TO 1100\r\nC\r\nC     OP = MATRIX\r\nC     PROCESS MATRIX TYPE DATA BLOCK\r\nC\r\n  800 ROW  = P1\r\n      COL  = P2\r\n      ITYP = MCB(5)\r\n      IF (IL5 .LE. 0) GO TO 840\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n  810 FORMAT (5X,'ELEMENT (',I5,'-ROW,',I5,'-COL) OF ',A10,' INPUT ',\r\n     1       'FILE ',2A4,2H =)\r\n      NMVPS(1) = IVPS(IL5-3)\r\n      NMVPS(2) = IVPS(IL5-2)\r\n      IF (.NOT.PRT) GO TO 840\r\n      WRITE  (NOUT,820) NMVPS\r\n  820 FORMAT (1H+,70X,'(INVALID INTEGER) = ',2A4)\r\n      WRITE  (NOUT,830) UWM,NMVPS\r\n  830 FORMAT (A25,' - OUTPUT PARAMETER ',2A4,' NOT SAVED')\r\n  840 IF (IL7 .LE. 0) GO TO 860\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      NMVPS(1) = IVPS(IL7-3)\r\n      NMVPS(2) = IVPS(IL7-2)\r\n      IF (.NOT.PRT) GO TO 860\r\n      WRITE  (NOUT,850) NMVPS\r\n  850 FORMAT (1H+,70X,'(INVALID BCD WORD)= ',2A4)\r\n      WRITE  (NOUT,830) UWM,NMVPS\r\nC\r\n  860 IF (IL4.LE.0 .AND. IL6.LE.0 .AND. IL8.LE.0 .AND. IL9.LE.0)\r\n     1   GO TO 1240\r\nC\r\nC     OUTPUT REQUEST - IL4 - S.P. REAL\r\nC                      IL5 - INTEGER\r\nC                      IL6 - D.P. REAL\r\nC                      IL7 - BCD\r\nC                      IL8 - S.P. COMPLEX\r\nC                      IL9 - D.P. COMPLEX\r\nC\r\n      MAT   = .TRUE.\r\n      TB1   = .FALSE.\r\n      TB2   = .FALSE.\r\n      TB4   = .FALSE.\r\n      RECNO = P2\r\n      INDEX = P1\r\n      RL    = 999999\r\n      II    = 1\r\n      JJ    = MCB(3)\r\n      INCR  = 1\r\n      CALL GOPEN (IN1,IZ(IBUF1),0)\r\n      CALL SKPREC (IN1,COL-1)\r\n      CALL UNPACK (*1030,IN1,Z)\r\n      GO TO (900,910,950,950), ITYP\r\nC\r\nC     INPUT MATRIX PRECISION TYPE = 1, S.P. REAL\r\nC\r\n  900 GO TO 350\r\nC\r\nC     MATRIX PRECISION TYPE = 2, D.P. REAL\r\nC\r\n  910 IF (IL4 .LE. 0) GO TO 920\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      RSP = DZ(ROW)\r\n      VPS(IL4) = RSP\r\n      NMVPS(1) = IVPS(IL4-3)\r\n      NMVPS(2) = IVPS(IL4-2)\r\n      IF (PRT) WRITE (NOUT,370) RSP,NMVPS\r\n  920 IF (IL6 .LE. 0) GO TO 930\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      RDP   = DZ(ROW)\r\n      DP(1) = RDP\r\n      VPS(IL6  ) = SP(1)\r\n      VPS(IL6+1) = SP(2)\r\n      NMVPS(1) = IVPS(IL6-3)\r\n      NMVPS(2) = IVPS(IL6-2)\r\n      IF (PRT) WRITE (NOUT,580) RDP,NMVPS\r\n  930 IF (IL8 .LE. 0) GO TO 940\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      SPLX(1) = DZ(ROW)\r\n      SPLX(2) = 0.0\r\n      VPS(IL8  ) = SPLX(1)\r\n      VPS(IL8+1) = SPLX(2)\r\n      NMVPS(1) = IVPS(IL8-3)\r\n      NMVPS(2) = IVPS(IL8-2)\r\n      IF (PRT) WRITE (NOUT,680) SPLX,NMVPS\r\n  940 IF (IL9 .LE. 0) GO TO 1100\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      DP(1) = DZ(ROW)\r\n      DP(2) = 0.D0\r\n      NMVPS(1) = IVPS(IL9-3)\r\n      NMVPS(2) = IVPS(IL9-2)\r\n      GO TO 720\r\nC\r\nC     INPUT MATRIX PRECISION TYPE = 3 OR 4, COMPLEX\r\nC\r\n  950 IF (IL4 .LE. 0) GO TO 970\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      NMVPS(1) = IVPS(IL4-3)\r\n      NMVPS(2) = IVPS(IL4-2)\r\n      IF (.NOT.PRT) GO TO 970\r\n      WRITE  (NOUT,960) NMVPS\r\n  960 FORMAT (1H+,70X,' (INVALID S.P. REAL NUMBER)  = ',2A4)\r\n      WRITE  (NOUT,830) UWM,NMVPS\r\n  970 IF (IL6 .LE. 0) GO TO 990\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      NMVPS(1) = IVPS(IL6-3)\r\n      NMVPS(2) = IVPS(IL6-2)\r\n      IF (PRT) WRITE (NOUT,980) NMVPS\r\n  980 FORMAT (1H+,70X,' (INVALID D.P.REAL NUMBER)  = ',2A4)\r\n  990 IF (IL8.LE.0 .AND. IL9.LE.0) GO TO 1100\r\n      IF (ITYP .EQ. 4) GO TO 1010\r\nC\r\nC     INPUT MATRIX PRECISION TYPE = 3, S.P.COMPLEX\r\nC\r\n      IF (IL8 .LE. 0) GO TO 1000\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      SPLX(1) = Z(ROW  )\r\n      SPLX(2) = Z(ROW+1)\r\n      VPS(IL8  ) = SPLX(1)\r\n      VPS(IL8+1) = SPLX(2)\r\n      NMVPS(1) = IVPS(IL8-3)\r\n      NMVPS(2) = IVPS(IL8-2)\r\n      IF (PRT) WRITE (NOUT,680) SPLX,NMVPS\r\n 1000 IF (IL9 .LE. 0) GO TO 1100\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      DP(1) = DBLE(Z(ROW  ))\r\n      DP(2) = DBLE(Z(ROW+1))\r\n      NMVPS(1) = IVPS(IL9-3)\r\n      NMVPS(2) = IVPS(IL9-2)\r\n      GO TO 720\r\nC\r\nC     INPUT MATRIX PRECISION TYPE = 4, D.P.COMPLEX\r\nC\r\n 1010 IF (IL8 .LE. 0) GO TO 1020\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      SPLX(1) = SNGL(DZ(ROW  ))\r\n      SPLX(2) = SNGL(DZ(ROW+1))\r\n      VPS(IL8  ) = SPLX(1)\r\n      VPS(IL8+1) = SPLX(2)\r\n      NMVPS(1) = IVPS(IL8-3)\r\n      NMVPS(2) = IVPS(IL8-2)\r\n      IF (PRT) WRITE (NOUT,680) SPLX,NMVPS\r\n 1020 IF (IL9 .LE. 0) GO TO 1100\r\n      IF (PRT) WRITE (NOUT,810) ROW,COL,TYPE(ITYP),FNM\r\n      DP(1) = DZ(ROW  )\r\n      DP(2) = DZ(ROW+1)\r\n      NMVPS(1) = IVPS(IL9-3)\r\n      NMVPS(2) = IVPS(IL9-2)\r\n      GO TO 720\r\nC\r\nC     NULL INPUT MATRIX ELEMENT\r\nC\r\n 1030 Z (ROW  ) = 0.\r\n      Z (ROW+1) = 0.\r\n      DZ(ROW  ) = 0.D0\r\n      DZ(ROW+1) = 0.D0\r\n      GO TO (900,910,950,950), ITYP\r\nC\r\n 1100 CALL CLOSE (IN1,1)\r\n      GO TO 1240\r\nC\r\nC     ERRORS\r\nC\r\n 1200 J = -1\r\n      GO TO 1230\r\n 1210 J = -2\r\n      GO TO 1230\r\n 1220 J = -8\r\n 1230 CALL MESAGE (J,IN1,NAME)\r\nC\r\n 1240 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/partn.f",
    "content": "      SUBROUTINE PARTN (IRP,ICP,CORE)\r\nC\r\n      EXTERNAL         RSHIFT,ANDF\r\n      INTEGER          ANDF,TWO1,CORE,SYSBUF,RSHIFT\r\n      DIMENSION        ICP(1),IRP(1)\r\n      DIMENSION        CORE(1),IAS(7,4),HEAD(2),BLOCK1(40),NAME(2)\r\n      COMMON /PARMEG/  NAMEA,NCOLA,NROWA,IFORMA,ITYPA,IA(2),\r\n     1                 IA11(7),IA21(7),IA12(7),IA22(7),LCARE,RULE\r\n      COMMON /SYSTEM/  SYSBUF\r\n      COMMON /TWO   /  TWO1(32)\r\n      COMMON /ZNTPKX/  A11(4),II,IEOL,IEOR\r\n      EQUIVALENCE     (IAS(1,1),IA11(1))\r\n      DATA    ILN   /  20 /, NAME / 4HPART,4HN   /\r\nC\r\nC     ZERO 6 AND 7 OF OUTPUT BLOCKS\r\nC\r\n      IOTP  = ITYPA\r\n      IOPEN = 0\r\n      DO 40 I = 1,4\r\n      DO 10 J = 6,7\r\n   10 IAS(J,I) = 0\r\n      IF (IAS(1,I)) 20,40,20\r\n   20 IF (IAS(5,I) .NE. ITYPA) IOTP = 4\r\n      IOPEN = IOPEN + 1\r\n      DO 30 J = 2,5\r\n      IF (IAS(J,I)) 340,340,30\r\n   30 CONTINUE\r\n      IAS(2,I) = 0\r\n   40 CONTINUE\r\n      LCORE  = LCARE\r\n      IBUF   = LCORE- SYSBUF + 1\r\n      IBUFCP = IBUF - NROWA\r\n      IBUFRP = IBUFCP - (NCOLA+31)/32\r\n      IF (IBUFRP) 300,300,50\r\n   50 LCORE = IBUFRP - 1\r\n      INORP = 0\r\n      CALL RULER (RULE,ICP,ZCPCT,OCPCT,CORE(IBUFCP),NROWA,CORE(IBUF),1)\r\n      IF (IRP(1).EQ.ICP(1) .AND. IRP(1).NE.0 .AND. NROWA.EQ.NCOLA)\r\n     1    GO TO 60\r\n      CALL RULER (RULE,IRP,ZRPCT,ORPCT,CORE(IBUFRP),NCOLA,CORE(IBUF),0)\r\n      GO TO 70\r\n   60 INORP = 1\r\n      LCORE = IBUFCP - 1\r\nC\r\nC     OPEN OUTPUT MATRICES\r\nC\r\n   70 IF (IOPEN*SYSBUF .GT. LCORE) GO TO 300\r\n      DO 100 I = 1,4\r\n      IF (IAS(1,I)) 80,100,80\r\n   80 LCORE = LCORE - SYSBUF\r\n      CALL OPEN  (*90,IAS(1,I),CORE(LCORE+1),1)\r\n      CALL FNAME (IAS(1,I),HEAD)\r\n      CALL WRITE (IAS(1,I),HEAD,2,1)\r\n      GO TO 100\r\n   90 IAS(1,I) = 0\r\n  100 CONTINUE\r\nC\r\nC     OPEN INPUT MATRIX\r\nC\r\n      CALL GOPEN (NAMEA,CORE(IBUF),0)\r\nC\r\nC     LOOP FOR EACH COLUMN\r\nC\r\n      KM = 0\r\n      DO 270 LOOP = 1,NCOLA\r\n      IF (INORP .NE. 0) GO TO 110\r\nC\r\nC     COLUMN PARTITION A SEQ. OF ZEROS AND ONES\r\nC\r\n      KM = KM + 1\r\n      IF (KM .GT. 32) KM = 1\r\n      L = IBUFRP + (LOOP-1)/32\r\n      ITEMP = ANDF(CORE(L),TWO1(KM))\r\n      IF (KM .EQ. 1) ITEMP = RSHIFT(ANDF(CORE(L),TWO1(KM)),1)\r\n      IF (ITEMP) 120,130,120\r\n  110 L  = IBUFCP + LOOP - 1\r\n      IF (CORE(L)) 130,120,120\r\n  120 L1 = 2\r\n      GO TO 140\r\n  130 L1 = 0\r\nC\r\nC     BEGIN BLDPK ON TWO SUBS\r\nC\r\n  140 J = 0\r\n      DO 160 L = 1,2\r\n      K = L1 + L\r\n      M = ILN*(L-1) + 1\r\n      IF (IAS(1,K)) 150,160,150\r\n  150 CALL BLDPK (IOTP,IAS(5,K),IAS(1,K),BLOCK1(M),1)\r\n      J = J + 1\r\n  160 CONTINUE\r\n      IF (J) 170,260,170\r\nC\r\nC     SEARCH COLUMN FOR NON-ZERO ELEMENTS\r\nC\r\n  170 CALL INTPK (*230,NAMEA,0,IOTP,0)\r\nC\r\nC     LOOP FOR ROWS WITHIN COLUMN\r\nC\r\n  180 IF (IEOL) 230,190,230\r\n  190 CALL ZNTPKI\r\nC\r\nC     COMPUTE ROW POSITION AND OUTPUT MATRIX\r\nC\r\n      L = IBUFCP + II - 1\r\n      IPOS = IABS(CORE(L))\r\n      IF (CORE(L)) 200,210,210\r\n  200 M1 = L1 + 1\r\n      M  = 1\r\n      GO TO 220\r\n  210 M1 = L1 + 2\r\n      M  = ILN+ 1\r\n  220 IF (IAS(1,M1) .EQ. 0) GO TO 180\r\n      CALL BLDPKI (A11(1),IPOS,IAS(1,M1),BLOCK1(M))\r\n      GO TO 180\r\n  230 DO 250 L = 1,2\r\n      K = L + L1\r\n      M = ILN*(L-1) + 1\r\n      IF (IAS(1,K)) 240,250,240\r\n  240 CALL BLDPKN (IAS(1,K),BLOCK1(M),IAS(1,K))\r\n  250 CONTINUE\r\n      GO TO 270\r\n  260 CALL SKPREC (NAMEA,1)\r\n  270 CONTINUE\r\nC\r\nC     ALL DONE - CLOSE OPEN MATRICES\r\nC\r\n      CALL CLOSE (NAMEA,1)\r\n      DO 290 I = 1,4\r\n      IF (IAS(1,I)) 280,290,280\r\n  280 CALL CLOSE (IAS(1,I),1)\r\n  290 CONTINUE\r\n      RETURN\r\nC\r\n  300 IPM1 =-8\r\n  310 CALL MESAGE (IPM1,IPM2,NAME)\r\n  340 IPM1 =-7\r\n      GO TO 310\r\n      END\r\n"
  },
  {
    "path": "mis/partn1.f",
    "content": "      SUBROUTINE PARTN1\r\nC\r\nC     THIS IS THE DMAP MODULE PARTN WHICH PARTITIONS A MATRIX -A- INTO\r\nC     FOUR PARTITIONS, SOME OR ALL OF WHICH MAY BE PURGED.\r\nC\r\nC\r\nC                             **                  **\r\nC                             *       I            *\r\nC                             *  A11  I    A12     *\r\nC          **   **            *       I            *\r\nC          *     *            * ------+----------- *\r\nC          *  A  *  BECOMES   *       I            *\r\nC          *     *            *       I            *\r\nC          **   **            *  A21  I    A22     *\r\nC                             *       I            *\r\nC                             **                  **\r\nC\r\nC\r\nC     BASED ON ROW PARTITION MATRIX -RP- AND COLUMN PARTITION MATRIX\r\nC     -CP-\r\nC\r\nC     DMAP SEQUENCE.\r\nC\r\nC     PARTN A,CP,RP/A11,A21,A12,A22/V,Y,SYM/V,Y,TYPE/V,Y,F11/V,Y,F21/\r\nC                                   V,Y,F12/V,Y,F22 $\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         CPHERE,RPHERE,CPNULL,RPNULL\r\n      DIMENSION       MCB(7,4),BLOCK(80),SUBR(2),AIJ(4),BUFFS(5),\r\n     1                HEAD(2),MCBA(7),REFUS(3)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MAHCIN/ MACHX\r\n      COMMON /ZNTPKX/ ELEM(4),ROW,EOL\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /SYSTEM/ SYSBUF,OUTPT,XXX(37),NBPW\r\n      COMMON /PRTMRG/ CPSIZE,RPSIZE,CPONES,RPONES,CPNULL,RPNULL,CPHERE,\r\n     1                RPHERE,ICP,NCP,IRP,NRP\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / SYM,TYPE,FORM(4),CPCOL,RPCOL,IREQCL\r\n      DATA    SUBR  / 4HPART,4HN1    /, A,CP,RP /101,102,103/,\r\n     1        AIJ   / 201,202,203,204/\r\n      DATA    NAFORM/ 4HFORM /, NATYPE/ 4HTYPE /, REFUS/2*3H   ,3HREF /\r\n      DATA    EOR   / 1      /\r\nC\r\n      CORE = KORSZ(Z)\r\n      BUFFS(1) = CORE - SYSBUF - 2\r\n      DO 10 I = 2,5\r\n      BUFFS(I) = BUFFS(I-1) - SYSBUF - 2\r\n   10 CONTINUE\r\n      CORE = BUFFS(5) - 1\r\n      IF (CORE .LT. 10) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     OPEN MATRIX TO BE PARTITIONED.  IF PURGED RETURN IS MADE\r\nC\r\n      BUFF = BUFFS(5)\r\n      CALL OPEN (*425,A,Z(BUFF),RDREW)\r\n      CALL SKPREC (A,1)\r\n      MCBA(1) = A\r\n      CALL RDTRL (MCBA)\r\n      INFORM = MCBA(4)\r\nC\r\nC     CALL TO PARTN2 WILL PROCESS -CP- AND -RP- INTO BIT STRINGS AND\r\nC     DETERMINE SIZES OF THE PARTITIONS.\r\nC\r\n      BUFF = BUFFS(4)\r\n      CALL PARTN2 (CP,RP,CORE,Z(BUFF))\r\nC\r\nC     IF RPSIZE OR CPSIZE ARE 0 THEY ARE SET EQUAL TO THE RESPECTIVE\r\nC     SIZE OF A\r\nC\r\n      IF (CPSIZE .EQ. 0) CPSIZE = MCBA(2)\r\n      IF (RPSIZE .EQ. 0) RPSIZE = MCBA(3)\r\nC\r\nC     MATRIX COMPATIBILITY CHECKS\r\nC\r\n      IF (RPSIZE.EQ.MCBA(3) .AND. CPSIZE.EQ.MCBA(2)) GO TO 40\r\n      WRITE  (OUTPT,30) SWM,MCBA(3),MCBA(2),RPSIZE,CPSIZE\r\n   30 FORMAT (A27,' 2166, MATRIX TO BE PARTITIONED IS OF SIZE',I10,\r\n     1       ' ROWS BY',I10,' COLUMNS.', /5X,'ROW PARTITION SIZE IS',\r\n     2       I10,' COLUMN PARTITION SIZE IS',I10,' (INCOMPATIBLE).')\r\nC\r\nC     PREPARE OUTPUT DATA BLOCKS AS REQUIRED.\r\nC\r\n   40 CPZERO = MCBA(2) - CPONES\r\n      RPZERO = MCBA(3) - RPONES\r\nC\r\nC     CHECK OF TYPE PARAMETER\r\nC\r\n      NTYPE = MCBA(5)\r\n      IF (NTYPE .EQ. TYPE) GO TO 60\r\n      IF (TYPE  .EQ.    0) GO TO 54\r\n      IF (TYPE.LT.0 .OR. TYPE.GT.4) GO TO 52\r\n      WRITE  (OUTPT,50) SWM,NATYPE,TYPE,REFUS(1),SUBR,NTYPE\r\n   50 FORMAT (A27,' 2163, REQUESTED VALUE OF ',A4,I10,2X,A3,\r\n     1        'USED BY ',2A4,'. LOGICAL CHOICE IS',I10)\r\n      NTYPE = TYPE\r\n      GO TO 60\r\n   52 WRITE (OUTPT,50) SWM,NATYPE,TYPE,REFUS(3),SUBR,NTYPE\r\n   54 TYPE = NTYPE\r\nC\r\n   60 DO 140 I = 1,4\r\n      FILE = AIJ(I)\r\n      MCB(1,I) = 0\r\n      COLS = CPZERO\r\n      ROWS = RPZERO\r\n      IF (I.EQ.3 .OR. I.EQ.4) COLS = CPONES\r\n      IF (I.EQ.2 .OR. I.EQ.4) ROWS = RPONES\r\nC\r\nC     IF ROWS OR COLS EQUAL ZERO NOTHING IS WRITTEN ON THIS PARTITION\r\nC\r\n      IF (ROWS.EQ.0 .OR. COLS.EQ.0) GO TO 140\r\n      BUFF = BUFFS(I)\r\n      CALL OPEN (*140,FILE,Z(BUFF),WRTREW)\r\n      CALL FNAME (FILE,HEAD)\r\n      CALL WRITE (FILE,HEAD,2,EOR)\r\nC\r\nC     CHECK OF THE FORM PARAMETER\r\nC\r\n      NFORM = FORM(I)\r\n      IF (NFORM.LT.1 .OR. NFORM.GT.8) GO TO 110\r\n      GO TO (70,130,100,70,70,70,100,70), NFORM\r\nC\r\nC     FORM IMPLIES SQUARE\r\nC\r\n   70 IF (ROWS .EQ. COLS) GO TO 130\r\n   80 WRITE  (OUTPT,90) SWM,HEAD,NFORM,ROWS,COLS\r\n   90 FORMAT (A27,' 2168, THE FORM PARAMETER AS GIVEN TO THE PARTITION',\r\n     1        'ING MODULE FOR SUB-PARTITION ',2A4, /5X,'IS INCONSISTANT'\r\n     2,       ' WITH ITS SIZE.  FORM =',I9,' SIZE =',I9,' ROWS BY',I9,\r\n     3        ' COLUMNS.')\r\n      GO TO 130\r\nC\r\nC     DIAGONAL OR ROW MATRIX\r\nC\r\n  100 IF (COLS .EQ. 1) GO TO 130\r\n      GO TO 80\r\nC\r\nC     NO FORM SPECIFIED THUS IT IS SQUARE IF ROWS = COLS OR RECTANGULAR\r\nC     OTHERWISE.\r\nC\r\n  110 NFORM = 2\r\n      IF (ROWS .EQ. COLS) NFORM = 1\r\n      IF (SYM.LT.0 .AND. INFORM.EQ.6 .AND. NFORM.EQ.1 .AND.\r\n     1   (I.EQ.1 .OR. I.EQ.4)) NFORM = 6\r\n      IF (FORM(I) .EQ. 0) GO TO 128\r\n      JJ = 1\r\n      IF (FORM(I).LT.1 .OR. FORM(I).GT.8) JJ = 3\r\n      WRITE (OUTPT,50) SWM,NAFORM,FORM(I),REFUS(JJ),SUBR,NFORM\r\n      IF (JJ .NE. 3) NFORM = FORM(I)\r\n  128 FORM(I) = NFORM\r\nC\r\nC     TRAILER INITIALIZATION.  BLDPKN WILL SET MCB(2) AND MCB(6) LATER.\r\nC\r\n  130 CALL MAKMCB (MCB(1,I),FILE,ROWS,NFORM,NTYPE)\r\n  140 CONTINUE\r\nC\r\nC     ROW PARTITIONING BIT STRING IS AT THIS POINT CONVERTED TO A CORE\r\nC     VECTOR ONE WORD PER BIT.  EACH WORD CONTAINS THE ROW NUMBER OF THE\r\nC     PARTITION TO WHICH THE ELEMENT OF -A- IS TO BE MOVED TO.  IF THE\r\nC     NUMBER IS NEGATIVE THE ELEMENT IS MOVED TO THE LOWER PARTITIONS\r\nC     AND IF THE NUMBER IS POSITIVE THE ELEMENT IS MOVED TO THE UPPER\r\nC     PARTITION\r\nC\r\n      IZ = NRP + 1\r\n      NZ = IZ  + RPSIZE - 1\r\n      IF (NZ+NBPW .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IF (.NOT.RPNULL .AND. RPONES.NE.0) GO TO 160\r\n      K  = 0\r\n      DO 150 I = IZ,NZ\r\n      K  = K + 1\r\n      Z(I) = K\r\n  150 CONTINUE\r\n      GO TO 210\r\n  160 JZ   = IZ - 1\r\n      ZERO = 0\r\n      ONES = 0\r\nC\r\nC     NOTE THIS LOGIC WORKS ON CRAY WITH 48 OF 64 BIT INTEGER WORD\r\nC\r\n      DO 200 I = IRP,NRP\r\n      DO 190 J = 1,NBPW\r\n      SHIFT = NBPW - J\r\n      BIT   = RSHIFT(Z(I),SHIFT)\r\n      JZ    = JZ + 1\r\n      IF (ANDF(BIT,1)) 180,170,180\r\n  170 ZERO  = ZERO + 1\r\n      Z(JZ) = ZERO\r\n      GO TO 190\r\n  180 ONES  = ONES - 1\r\n      Z(JZ) = ONES\r\n  190 CONTINUE\r\n  200 CONTINUE\r\nC\r\nC     LOOP ON ALL THE COLUMNS OF -A-.\r\nC\r\n  210 IZM1  = IZ - 1\r\n      DO 400 I = 1,CPSIZE\r\n      IF (CPNULL) GO TO 220\r\n      IL1   = I - 1\r\n      BITWD = IL1/NBPW + ICP\r\n      SHIFT = NBPW - MOD(IL1,NBPW) - 1\r\n      BIT   = RSHIFT(Z(BITWD),SHIFT)\r\n      IF (ANDF(BIT,1)) 230,220,230\r\nC\r\nC     ZERO-S COLUMN (LEFT PARTITIONS A11 AND A21)\r\nC\r\n  220 IFILE  = 1\r\n      IBLOCK = 1\r\n      GO TO 240\r\nC\r\nC     ONE-S COLUMN (RIGHT PARTITIONS A12 AND A22)\r\nC\r\n  230 IFILE  = 3\r\n      IBLOCK = 41\r\n      GO TO 240\r\nC\r\nC     START COLUMNS OF THE 2 AIJ PARTITIONS.\r\nC\r\n  240 KFILE  = IFILE\r\n      KBLOCK = IBLOCK\r\n      M = 0\r\n      DO 270 J = 1,2\r\n      IF (MCB(1,KFILE)) 260,260,250\r\n  250 CALL BLDPK (NTYPE,MCB(5,KFILE),MCB(1,KFILE),BLOCK(KBLOCK),1)\r\n      M = 1\r\n  260 KFILE  = KFILE + 1\r\n      KBLOCK = KBLOCK + 20\r\n  270 CONTINUE\r\n      IF (M) 280,390,280\r\nC\r\nC     START THE I-TH COLUMN OF THE MATRIX BEING PARTITIONED -A-.\r\nC\r\n  280 CALL INTPK (*350,A,0,NTYPE,0)\r\nC\r\nC     LOOP ON NON-ZEROS OF THE COLUMN\r\nC\r\n  290 IF (EOL) 300,300,350\r\nC\r\nC     PICK UP A NON-ZERO ELEMENT\r\nC\r\n  300 CALL ZNTPKI\r\nC\r\nC     DETERMINE ROW POSITION AND FILE DESTINATION.\r\nC\r\n      L = IZM1 + ROW\r\n      IF (Z(L)) 320,310,310\r\nC\r\nC     ZERO-S ROW PARTITION.\r\nC\r\n  310 JROW   = Z(L)\r\n      KFILE  = IFILE\r\n      KBLOCK = IBLOCK\r\n      GO TO 330\r\nC\r\nC     ONE-S ROW PARTITION.\r\nC\r\n  320 JROW   = -Z(L)\r\n      KFILE  = IFILE  + 1\r\n      KBLOCK = IBLOCK + 20\r\nC\r\nC     OUTPUT THE ELEMENT.\r\nC\r\n  330 IF (MCB(1,KFILE)) 290,290,340\r\n  340 CALL BLDPKI (ELEM,JROW,MCB(1,KFILE),BLOCK(KBLOCK))\r\n      GO TO 290\r\nC\r\nC     COMPLETE COLUMNS OF THE 2 AIJ PARTITIONS BEING WORKED ON.\r\nC\r\n  350 KFILE  = IFILE\r\n      KBLOCK = IBLOCK\r\n      DO 380 J = 1,2\r\n      IF (MCB(1,KFILE)) 370,370,360\r\n  360 CALL BLDPKN (MCB(1,KFILE),BLOCK(KBLOCK),MCB(1,KFILE))\r\n  370 KFILE  = KFILE  + 1\r\n      KBLOCK = KBLOCK + 20\r\n  380 CONTINUE\r\n      GO TO 400\r\nC\r\nC     COLUMN NOT BEING OUTPUT TO ANY PARTITIONS AT ALL THUS SKIP IT.\r\nC\r\n  390 CALL SKPREC (A,1)\r\nC\r\n  400 CONTINUE\r\nC\r\nC     WRAP UP.\r\nC\r\n      CALL CLOSE (A,CLSREW)\r\n      DO 420 I = 1,4\r\n      IF (MCB(1,I)) 420,420,410\r\n  410 CALL WRTTRL (MCB(1,I))\r\n      CALL CLOSE (MCB(1,I),CLSREW)\r\n  420 CONTINUE\r\n  425 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/partn2.f",
    "content": "      SUBROUTINE PARTN2 (CP,RP,CORE,BUF)\r\nC\r\nC     THIS IS AN INITIALIZATION ROUTINE FOR PARTN1 AND MERGE1.\r\nC     IT CALLS PARTN3 TO BUILD THE BIT STRINGS FROM THE PARTITIONING\r\nC     VECTORS -CP- AND -RP- AND SETS DEFAULT OPTIONS FOR -CP- AND  -RP-\r\nC     BASED ON -SYM-.\r\nC\r\nC\r\n      LOGICAL         CPNULL  ,RPNULL  ,CPHERE  ,RPHERE\r\n      INTEGER         CP      ,RP      ,CORE    ,BUF(4)  ,SUBR(2) ,\r\n     1                CPSIZE  ,RPSIZE  ,CPONES  ,RPONES  ,Z       ,\r\n     2                SYM     ,TYPE    ,FORM    ,SYSBUF  ,OUTPT   ,\r\n     3                CPCOL   ,RPCOL\r\n      CHARACTER       UFM*23  ,UWM*25  ,UIM*29  ,SFM*25  ,SWM*27\r\n      COMMON /XMSSG / UFM     ,UWM     ,UIM     ,SFM     ,SWM\r\n      COMMON /SYSTEM/ SYSBUF  ,OUTPT\r\n      COMMON /PRTMRG/ CPSIZE  ,RPSIZE  ,CPONES  ,RPONES  ,CPNULL  ,\r\n     1                RPNULL  ,CPHERE  ,RPHERE  ,ICP     ,NCP     ,\r\n     2                IRP     ,NRP\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / SYM     ,TYPE    ,FORM(4) ,CPCOL   ,RPCOL   ,\r\n     1                IREQCL\r\n      DATA    SUBR  / 4HPART  ,4HN2    /\r\nC\r\nC\r\nC              I             I             I                I\r\nC       SYM    I  RP-PURGED  I  CP-PURGED  I NEITHER-PURGED I\r\nC     ---------+-------------+-------------+----------------+--------\r\nC              I             I             I                I\r\nC       .LT.0  I  RP IS SET  I  CP IS SET  I  RP MUST HAVE  I\r\nC              I  = TO CP    I  = TO RP    I  SAME ONES-S   I\r\nC              I             I             I  COUNT AS CP   I\r\nC     ---------+-------------+-------------+----------------+--------\r\nC              I             I             I                I\r\nC       .GE.0  I  RP IS SET  I  CP IS SET  I  USE CP AND RP I\r\nC              I  TO ALL 0   I  TO ALL 0   I                I\r\nC              I             I             I                I\r\nC\r\nC     IN ALL CASES, RESULTANT -CP- AND -RP- DIMENSIONS MUST BE\r\nC     COMPATIBLE TO THOSE OF  -A-\r\nC\r\nC\r\nC     CONVERT COLUMN PARTITIONING VECTOR TO BIT STRING.\r\nC\r\n      ICP = 1\r\n      IREQCL = CPCOL\r\n      CALL PARTN3 (CP,CPSIZE,CPONES,ICP,NCP,CPHERE,BUF,CORE)\r\n      CPCOL = IREQCL\r\n      IF (CPHERE) GO TO 10\r\n      IRP = 1\r\n      GO TO 20\r\n   10 IRP = NCP + 1\r\nC\r\nC     CONVERT ROW PARTITIONING VECTOR TO BIT STRING.\r\nC\r\n   20 IREQCL = RPCOL\r\n      CALL PARTN3 (RP,RPSIZE,RPONES,IRP,NRP,RPHERE,BUF,CORE)\r\n      RPCOL = IREQCL\r\nC\r\nC     BRANCH ON SYMMETRIC OR  NON-SYMMETRIC DMAP VARIABLE SYM\r\nC\r\n      CPNULL = .FALSE.\r\n      RPNULL = .FALSE.\r\n      IF (SYM) 30,140,140\r\nC\r\nC     DMAP USER CLAIMS SYMMETRIC INPUT AND OUTPUT\r\nC\r\n   30 IF (CPHERE) GO TO 70\r\nC\r\nC     -CP- IS PURGED.  CHECK FOR -RP- PURGED (ERROR), AND IF NOT SET\r\nC     -CP- BITS EQUAL TO -RP- BITS\r\nC\r\n      IF (RPHERE) GO TO 60\r\nC\r\nC     BOTH -RP- AND -CP- PURGED AND -A- IS NOT PURGED (ERROR).\r\nC\r\n   40 WRITE  (OUTPT,50) SFM\r\n   50 FORMAT (A25,' 2170, BOTH THE ROW AND COLUMN PARTITIONING VECTORS',\r\n     1       ' ARE PURGED AND ONLY ONE MAY BE.')\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC     SET CP-ONES = RP-ONES BY SIMPLE EQUIVALENCE OF CORE SPACE\r\nC\r\n   60 ICP = IRP\r\n      NCP = NRP\r\n      CPONES = RPONES\r\n      CPSIZE = RPSIZE\r\n      GO TO 170\r\nC\r\nC     -CP- IS NOT PURGED.  IF -RP- IS PURGED IT IS SET EQUAL TO -CP-.\r\nC\r\n   70 IF (RPHERE) GO TO 80\r\n      IRP = ICP\r\n      NRP = NCP\r\n      RPONES = CPONES\r\n      RPSIZE = CPSIZE\r\n      GO TO 170\r\nC\r\nC     BOTH -RP- AND -CP- ARE PRESENT AND SINCE USER HAS SPECIFIED A\r\nC     SYMMETRIC OUTPUT PARTITION IS DESIRED THE NUMBER OF\r\nC     NON-ZEROS IN-CP- MUST EQUAL THE NUMBER OF NON-ZEROS IN -RP- FOR NO\r\nC     ERROR HERE.\r\nC\r\n   80 IF (CPONES.EQ.RPONES .AND. CPSIZE.EQ.RPSIZE) GO TO 100\r\n      WRITE  (OUTPT,90) SWM,CP,RP\r\n   90 FORMAT (A27,' 2171, SYM FLAG INDICATES TO THE PARTITION OR MERGE',\r\n     1       ' MODULE THAT A SYMMETRIC MATRIX IS TO BE', /5X,\r\n     2       ' OUTPUT.  THE PARTITIONING VECTORS',2I4,' HOWEVER DO NOT',\r\n     3       ' CONTAIN AN IDENTICAL NUMBER OF ZEROS AND NON-ZEROS.')\r\nC\r\nC     CHECK FOR ORDER OF ONES IN ROW AND COLUMN PARTITIONING VECTOR.\r\nC\r\n  100 IF (CPSIZE .NE. RPSIZE) GO TO 170\r\n      J = IRP\r\n      DO 110 I = ICP,NCP\r\n      IF (Z(I) .NE. Z(J)) GO TO 120\r\n      J = J + 1\r\n  110 CONTINUE\r\n      GO TO 170\r\nC\r\nC     ROW AND COLUMN PARTITIONING VECTORS DO NOT HAVE SAME ORDER.\r\nC\r\n  120 WRITE  (OUTPT,130) SWM\r\n  130 FORMAT (A27,' 2172, ROW AND COLUMN PARTITIONING VECTORS DO NOT ',\r\n     1       'HAVE IDENTICAL ORDERING OF ZERO', /5X,' AND NON-ZERO ',\r\n     2       'ELEMENTS, AND SYM FLAG INDICATES THAT A SYMMETRIC ',\r\n     3       'PARTITION OR MERGE IS TO BE PERFORMED.')\r\n      GO TO 170\r\nC\r\nC     DMAP USER DOES NOT REQUIRE SYMMETRY\r\nC\r\n  140 IF (CPHERE) GO TO 160\r\nC\r\nC     -CP- IS PURGED.  THUS -RP- MUST BE PRESENT FOR NO ERROR.\r\nC\r\n      IF (RPHERE) GO TO 150\r\n      GO TO 40\r\nC\r\nC     SET CP-ONES EQUAL TO 0 AND CPSIZE = 0\r\nC\r\n  150 CPNULL = .TRUE.\r\n      CPSIZE = 0\r\n      CPONES = 0\r\n      GO TO 170\r\nC\r\nC     -CP- NOT PURGED.  IF -RP- IS PURGED SET IT NULL.\r\nC\r\n  160 IF (RPHERE) GO TO 170\r\n      RPNULL = .TRUE.\r\n      NRP    = IRP - 1\r\n      RPSIZE = 0\r\n      RPONES = 0\r\n  170 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/partn3.f",
    "content": "      SUBROUTINE PARTN3 (FILE,SIZE,ONES,IZ,NZ,HERE,BUF,CORE)\r\nCDIR$ INTEGER=64\r\nC\r\nC     CDIR$ IS CRAY COMPILER DIRECTIVE. 64-BIT INTEGER IS USED LOCALLY\r\nC     DO LOOP 10 MAY NOT WORK PROPERLY WITH 48 BIT INTEGER\r\nC\r\nC     PARTN3 CALLED BY PARTN1 AND MERGE1 (VIA PARTN2) BUILDS A BIT\r\nC     STRING AT Z(IZ) THROUGH Z(NZ) AND CONTAINING ONE-BITS ONLY IN\r\nC     THE RESPECTIVE POSITIONS OCCUPIED BY NON-ZERO ELEMENTS IN THE\r\nC     COLUMN VECTOR WHICH IS STORED ON FILE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ORF\r\n      LOGICAL         HERE,PASS\r\n      DIMENSION       BUF(4),MCB(7),TRL(6),BIT(64),SUBR(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /SYSTEM/ SYSBUF,OUTPT,XXX(37),NBPW\r\n      COMMON /ZNTPKX/ ELEM(4),ROW,EOL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / SYM,TYPE,FORM(4),CPCOL,RPCOL,IREQCL\r\n      EQUIVALENCE     (TRL(1),MCB(2))\r\n      DATA    SUBR  / 4HPART,4HN3  /\r\n      DATA    PASS  / .FALSE.      /\r\nC\r\nC     SET UP TABLE OF BITS ON FIRST PASS THROUGH THIS ROUTINE.\r\nC\r\n      IF (PASS) GO TO 20\r\n      PASS = .TRUE.\r\n      J = NBPW - 1\r\n      K = LSHIFT(1,J)\r\n      DO 10 I = 1,NBPW\r\n      BIT(I) = K\r\n      K = RSHIFT(K,1)\r\n   10 CONTINUE\r\nC\r\n   20 CALL OPEN (*130,FILE,BUF,RDREW)\r\n      HERE   = .TRUE.\r\n      MCB(1) = FILE\r\n      CALL RDTRL (MCB)\r\nC\r\nC     NUMBER OF WORDS IN COLUMN INCLUDING ZEROS\r\nC\r\n      SIZE = TRL(2)\r\n      IF (IREQCL .EQ. 0) GO TO 37\r\n      IF (IREQCL.GT.0 .AND. IREQCL.LE.TRL(1)) GO TO 38\r\n      IF (TRL(1) .LE. 0) GO TO 37\r\n      WRITE  (OUTPT,30) SWM,FILE,TRL(1),IREQCL\r\n   30 FORMAT (A27,' 2173, PARTITIONING VECTOR FILE',I5,' CONTAINS',I10,\r\n     1       ' COLUMNS.', /5X,' THE FIRST COLUMN WILL BE USED, NOT THE',\r\n     2       ' REQUESTED COLUMN',I10)\r\n   37 IREQCL = 1\r\n   38 CALL SKPREC (FILE,IREQCL)\r\n      IF (TRL(4).EQ.1 .OR. TRL(4).EQ.2) GO TO 60\r\n      WRITE  (OUTPT,50) SWM,FILE\r\n   50 FORMAT (A27,' 2174, PARTITIONING VECTOR ON FILE',I5,\r\n     1       ' IS NOT REAL-SINGLE OR REAL-DOUBLE PRECISION.')\r\nC\r\nC     ZERO THE BIT STRING\r\nC\r\n   60 NZ = IZ + (SIZE-1)/NBPW\r\n      IF (NZ .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      DO 70 I = IZ,NZ\r\n      Z(I) = 0\r\n   70 CONTINUE\r\nC\r\nC     SET UP TO UNPACK THE COLUMN\r\nC\r\n      ONES = 0\r\n      EOL  = 0\r\n      CALL INTPK (*120,FILE,0,1,0)\r\n      GO TO 90\r\nC\r\nC     UNPACK THE ELEMENTS AND TURN ON BITS IN THE BIT STRING.  MAINTAIN\r\nC     COUNT OF BITS IN -ONES-.\r\nC\r\n   80 IF (EOL) 90,90,120\r\n   90 CALL ZNTPKI\r\n      IF (ROW .GT. SIZE) GO TO 100\r\n      K     = ROW - 1\r\n      ZWORD = K/NBPW + IZ\r\n      ZBIT  = MOD(K,NBPW) + 1\r\n      Z(ZWORD) = ORF(Z(ZWORD),BIT(ZBIT))\r\n      ONES  = ONES + 1\r\n      GO TO 80\r\nC\r\nC     ELEMENT OF COLUMN LIES OUT OF RANGE INDICATED BY TRAILER\r\nC\r\n  100 WRITE  (OUTPT,110) SFM,FILE\r\n  110 FORMAT (A25,' 2175, THE ROW POSITION OF AN ELEMENT OF A COLUMN ',\r\n     1       'ON FILE',I5, /5X,'IS GREATER THAN NUMBER OF ROWS ',\r\n     2       'SPECIFIED BY TRAILER.')\r\n      GO TO 160\r\nC\r\nC     BIT STRING IS COMPLETE.\r\nC\r\n  120 CALL CLOSE (FILE,CLSREW)\r\n      RETURN\r\nC\r\nC     FILE IS PURGED\r\nC\r\n  130 SIZE = 0\r\n      ONES = 0\r\n      HERE = .FALSE.\r\n      RETURN\r\nC\r\nC     FATAL ERROR\r\nC\r\n  160 CALL CLOSE  (FILE,CLSREW)\r\n      CALL MESAGE (-61,0,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pcoord.f",
    "content": "      SUBROUTINE PCOORD (PEN)\r\nC\r\nC     PLOTS A COORDINATE TRIAD AT THE LOWER RIGHT CORNER OF A STRUCTURAL\r\nC     PLOT. THIS ROUTINE IS CALLED ONLY BY DRAW\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS      10/1990\r\nC\r\n      INTEGER         PEN,FPLTIT,SYM(2)\r\n      COMMON /XXPARM/ IDUMM(215),FPLTIT\r\n      COMMON /PLTDAT/ IDUM20(20),SIZE,IDUM2(2),CNTCHR(2)\r\n      COMMON /DRWAXS/ G(3,4)\r\nC\r\nC\r\nC     COMPUTE THE ORIGIN, WHICH IS A FUNCTION OF FRAME SIZE, CHARACTER\r\nC     VERTICAL AND HORIZONTAL SCALES, PRESENCE OF PTITLE LINE, AND THE\r\nC     OVERALL SIZE OF THE TRIAD\r\nC\r\nC     ALL THE NUMERIC MULTIPLIERS USED BELOW WERE WORKED OUT WITH FRAME\r\nC     SIZE OF 1023.0. THEY SHOULD BE APPLICABLE TO FRAME SIZE OF 3000.\r\nC\r\n      X2 = 0.0\r\n      Y2 = 0.0\r\n      Y1 = 0.0\r\n      DO 10 I = 1,3\r\n      IF (G(2,I) .GT. X2) X2 = G(2,I)\r\n      IF (G(3,I) .LT. Y2) Y2 = G(3,I)\r\n      IF (G(3,I) .GT. Y1) Y1 = G(3,I)\r\n   10 CONTINUE\r\n      DE = 1.8*CNTCHR(1)\r\n      SF = 2.7*CNTCHR(2)\r\n      IF (FPLTIT .EQ. 0) SF = 1.3*SF\r\n      SF = SF/(Y1-Y2)\r\n      X1 = SIZE - X2*SF - DE\r\n      Y1 = -Y2*SF\r\n      IF (FPLTIT .NE. 0) Y1 = Y1 + 0.8*CNTCHR(2)\r\n      EP = 0.0001\r\n      OF = -1.\r\n      IF (G(2,1).LE.EP .AND. G(2,2).LE.EP .AND. G(2,3).LE.EP) OF = +1.\r\n      IF (OF .EQ. +1.) X1 = X1 - DE\r\nC\r\nC     DRAW THE X-Y-Z COORDINATE TRIAD\r\nC     DRAW A CIRCLE AT THE ORIGIN IF ANY AXIS IS IN LINE WITH VIEWER\r\nC\r\n      SYM(1) = 6\r\n      SYM(2) = 0\r\n      DE = 0.8*CNTCHR(1)\r\n      OF = 1.3*OF*CNTCHR(1)\r\n      DO 30 I = 1,3\r\n      X2 = G(2,I)*SF + X1\r\n      Y2 = G(3,I)*SF + Y1\r\n      CALL LINE (X1,Y1,X2,Y2,PEN,0)\r\n      IF (ABS(G(2,I))+ABS(G(3,I)) .GE. EP) GO TO 20\r\n      CALL SYMBOL (X1,Y1,SYM,0)\r\n      CALL TIPE (X2+OF,Y2,1,G(I,4),1,0)\r\n      GO TO 30\r\n   20 IF (G(2,I) .GT. 0.0) CALL TIPE (X2+DE,Y2,1,G(I,4),1,0)\r\n      IF (G(2,I) .LE. 0.0) CALL TIPE (X2-DE,Y2,1,G(I,4),1,0)\r\n   30 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/permut.f",
    "content": "      SUBROUTINE PERMUT(IA,ID,N,ISW)\r\n      DIMENSION IA(1),IB(32),IC(32),ID(10)\r\n      DO 10 I=1,N\r\n      IC(I)=IA(I)\r\n   10 IB(I)=I\r\n      N1=N-1\r\n      DO 20 I=1,N1\r\n      I1=I+1\r\n      DO 30 J=I1,N\r\n      IF(IC(J)-IC(I))40,30,30\r\n   40 IS1=IB(J)\r\n      IB(J)=IB(I)\r\n      IB(I)=IS1\r\n      IS1 = IC(J)\r\n      IC(J)=IC(I)\r\n      IC(I) = IS1\r\n   30 CONTINUE\r\n   20 CONTINUE\r\n      DO 50 I = 1,N\r\n      IF(IC(I)-ISW)50,60,60\r\n   50 CONTINUE\r\n      K=1\r\n      GO TO 71\r\n   60 DO 70 J=I,N\r\n      K=J-I+1\r\n   70 ID(K)=IB(J)\r\n      IF(K .EQ. N) GO TO 90\r\n      K=K+1\r\n   71 DO 80 J=K,N\r\n      L=J-K+1\r\n   80 ID(J)=IB(L)\r\n   90 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/perpec.f",
    "content": "      SUBROUTINE PERPEC (X,STEREO)\r\nC\r\n      INTEGER          FVP,PRJECT,GP,STEREO\r\n      REAL             X(3,1),MIN,MAX\r\n      DOUBLE PRECISION DIAM,R\r\n      COMMON /BLANK /  SKP(5),NGPSET\r\n      COMMON /XXPARM/  SKPPLT(6),PENPAP(30),SCALX1,OBJMOD,SCALX2(3),\r\n     1                 VIEW(15),FVP,R0,S0L,S0R,T0,D0,D02,D03,PRJECT,S0S\r\n      COMMON /RSTXXX/  CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3)\r\n      DATA    RDIST /  29. /\r\nC\r\nC                               I====================I\r\nC                         T     I                    I\r\nC                         1     I     PROJECTION     I\r\nC                         1     I                    I\r\nC                         1     I       PLANE        I\r\nC                         1     I                    I\r\nC                         1     I====================I\r\nC                         1    /                    /\r\nC                         1   /                    /\r\nC                         1  /   * OBSERVER       /\r\nC                         1 /    1               /D0\r\nC                         1/     1              /\r\nC                         +--------------------/-----S\r\nC                        /       1  /         /\r\nC                       /      T01 /R0\r\nC                      /         1/         /\r\nC                     /----------+- - - - -/\r\nC                    /    S0\r\nC                   R\r\nC\r\n      IF (PRJECT .EQ. 1) GO TO 140\r\n      IF (FVP    .EQ. 0) GO TO 110\r\n      IF (PRJECT .EQ. 3) GO TO 100\r\nC\r\nC     PERSPECTIVE PROJECTION...FIND VANTAGE POINT\r\nC\r\n      R    = D(1)**2 + D(2)**2 + D(3)**2\r\n      DIAM = DSQRT(R)\r\n      R0   = 2.*DIAM + AVER(1)\r\n      S0L  = AVER(2)\r\n      T0   = DIAM + AVER(3)\r\n      D0   = 1.5*DIAM\r\n      GO TO 110\r\nC\r\nC     STEREO PROJECTION...FIND VANTAGE POINT\r\nC\r\n  100 R0  = RDIST + AVER(1)*OBJMOD\r\n      S0L = AVER(2)*OBJMOD - S0S/2.\r\n      S0R = AVER(2)*OBJMOD + S0S/2.\r\n      T0  = AVER(3)*OBJMOD\r\n      D0  = D03\r\n      GO TO 140\r\nC\r\n  110 SCAL = 1.\r\n      IF (PRJECT .EQ. 3) SCAL = OBJMOD\r\n      SLR = S0L\r\n      IF (STEREO .NE. 0) SLR = S0R\r\n      DO 120 GP = 1,NGPSET\r\n      R = D0/(R0-SCAL*X(1,GP))\r\n      S = SLR + R*(SCAL*X(2,GP)-SLR)\r\n      T = T0  + R*(SCAL*X(3,GP)-T0 )\r\n      X(2,GP) = S\r\n      X(3,GP) = T\r\n      IF (PRJECT .EQ. 3) GO TO 120\r\n      MIN(2) = AMIN1(MIN(2),S)\r\n      MIN(3) = AMIN1(MIN(3),T)\r\n      MAX(2) = AMAX1(MAX(2),S)\r\n      MAX(3) = AMAX1(MAX(3),T)\r\n  120 CONTINUE\r\n      IF (PRJECT .EQ. 3) GO TO 140\r\nC\r\nC     FIND MINIMA + MAXIMA DIFFERENCES + AVERAGES\r\nC\r\n      DO 130 I = 2,3\r\n      D(I) = MAX(I) - MIN(I)\r\n      AVER(I) = (MAX(I)+MIN(I))/2.\r\n  130 CONTINUE\r\nC\r\n  140 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pexit.f",
    "content": "      SUBROUTINE PEXIT\r\nC\r\n      INTEGER         HH,SS,DATE(3)\r\n      COMMON /OUTPUT/ LE(17)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /MSGX  / NMSG\r\n      COMMON /RESDIC/ IRDICT\r\n      COMMON /SYSTEM/ ISYSTM(100)\r\n      EQUIVALENCE     (ISYSTM( 2),NOUT  ), (ISYSTM(76),NOSBE),\r\n     1                (ISYSTM(82),ICPFLG), \r\n     2                (ISYSTM(15),DATE  )\r\nC\r\nC     SEE IF ANY MESSAGES ARE IN THE QUEUE\r\nC\r\n      IF (NMSG   .GT. 0) CALL MSGWRT\r\n      IF (ICPFLG .NE. 0) WRITE (IRDICT,10)\r\n   10 FORMAT ('$ END OF CHECKPOINT DICTIONARY')\r\nC\r\nC     JOB DONE. PRINT LAST 4 MESSAGE LINES\r\nC\r\n      CALL WALTIM (I)\r\n      HH = I/3600\r\n      MM = (I-HH*3600)/60\r\n      SS = I - HH*3600 - MM*60\r\n      CALL CPUTIM (I,T,0)\r\n      IF (MACH .EQ. 4) I = T\r\n      IF (LE(1).EQ.-1 .AND. LE(2).EQ.-1) GO TO 70\r\n      WRITE  (NOUT,20) LE,DATE,HH,MM,SS\r\n   20 FORMAT (////40X,'* * * END OF JOB * * *', /1H1, /,' JOB TITLE = ',\r\n     1       17A4, /,' DATE:',I3,1H/,I2,1H/,I2, /,' END TIME:',I3,1H:,\r\n     2       I2,1H:,I2)\r\nC\r\nC     CDC TOTAL CPU TIME IS A BIG NUMBER. DON'T PRINT IT\r\nC\r\n      IF (MACH.EQ.4 .OR. LE(1).EQ.-1) GO TO 50\r\n      IF (MACH .LE. 5) WRITE (NOUT,30) I\r\n      IF (MACH .GT. 5) WRITE (NOUT,40) I\r\n   30 FORMAT (' TOTAL CPU TIME',I6,' SEC.')\r\n   40 FORMAT (' TOTAL WALL CLOCK TIME',I7,' SEC.')\r\nC\r\nC     FLUSH O/P BUFFERS\r\nC\r\n   50 WRITE  (NOUT,60)\r\n   60 FORMAT (1H )\r\nC\r\n      IF (MACH.EQ.4 .AND. NOSBE.GT.0) CALL LINK (-1,NOSBE,1)\r\n      GO TO 90\r\nC\r\n   70 J = 5\r\n      IF (LE(9) .GE. 0) J = 3\r\n      WRITE  (NOUT,80) (LE(I),I=J,8)\r\n   80 FORMAT (//1X,6A4)\r\nC\r\n   90 CONTINUE\r\n      CALL DBMSTF \r\n      DO 100 I = 1,4\r\n      CLOSE ( I )\r\n100   CONTINUE\r\n      DO 200 I = 7,22\r\n      CLOSE ( I )\r\n200   CONTINUE\r\nCWKBR 8/94 SUN  CALL EXIT\r\n      CALL EXIT( 0 )\r\n      END\r\n"
  },
  {
    "path": "mis/phdmia.f",
    "content": "      SUBROUTINE PHDMIA\r\nC\r\nC     PUNCH SINGLE- OR DOUBLE-FIELD DMI CARDS FOR REAL, SINGLE-\r\nC     PRECISION MATRICES.\r\nC\r\nC  $MIXED_FORMAT\r\nC\r\n      LOGICAL          FIRST\r\n      INTEGER          FMT(8),IQX(8),KFMT(22),RET,NAME(2),RET1,LFMT(23),\r\n     1                 H1,H2,H3,C1,C2,C3,H1A,C1A,ERNO\r\n      REAL             QX(8)\r\n      COMMON /PHDMIX/  NAME,NAM,IFO,ITIN,ITOUT,IR,IC,NOUTPT,KPP,NLPP,\r\n     1                 ERNO,ICOL,IRO,X,ICARD1\r\n      COMMON /SYSTEM/  DUM90(90),NP\r\n      COMMON /MAHCIN/  MACH\r\n      EQUIVALENCE      (QX(1),IQX(1)), (LFMT(2),KFMT(1))\r\n      DATA    DMI   ,  IZ, P  , DMIS  , S       /\r\n     1        3HDMI ,  0 , 1H+, 4HDMI*, 1H*     /\r\n      DATA    KFMT  /  3*4H$$$$,16*4H**** , 4HA1,A,4H2,I5,4H)   /\r\n      DATA    KFMTI ,  KFMTR1,KFMTR2/4HI8 ,,4HF8.1,4H,          /\r\n      DATA    KDMTI ,  KDMTR1,KDMTR2/4HI16,,4H1PE1,4H6.8,       /\r\n      DATA    KFMTB ,  KFMT8 ,KDMTR0/4H    ,4H4X, ,4H  E1       /\r\n      DATA    KDMTB ,  KDMT8 /4H    ,4H8X,      /\r\n      DATA    H1    ,  H2    ,H3    ,C1    ,C2    ,C3    ,H1A   ,C1A   /\r\n     1        4H(A4,,  4H4X, ,4H2A4,,4H(A1,,4HA2, ,4HI5, ,4H A4,,4H A1,/\r\n      DATA   LFMT(1)/  4H(1X,/\r\nC\r\nC     IBM/AIX (MACH=8) DOES NOT LIKE THE NON-ANSI STANDARD FORMAT\r\nC     1PE16.8 (THE STANDARD IS 1P,E16.8).\r\nC\r\n      IF (MACH .EQ. 8) KDMTR1 = KDMTR0\r\nC\r\nC     CALLED INITIALLY FOR EACH MATRIX.\r\nC\r\nC     SET PUNCH UNIT TO 7 FOR IBM AND CDC AND TO 1 FOR UNIVAC\r\nC\r\n      ERNO  = 0\r\n      NOUT  = NOUTPT\r\n      KP    = KPP\r\n      NKP   = 8/KP\r\n      ICARD =-1\r\n      ICARD1= 0\r\n      GO TO (10,20), KP\r\n   10 DMIPS = DMI\r\n      PS = P\r\n      GO TO 30\r\n   20 DMIPS = DMIS\r\n      PS = S\r\n      DO 25 I = 12,19\r\n   25 KFMT(I) = KDMTB\r\n   30 WRITE  (NP,1) DMI,NAME,IZ,IFO,ITIN,ITOUT,IR,IC,P,NAM,ICARD1\r\n    1 FORMAT (A3,5X,2A4,4I8,8X,2I8,A1,A2,I5)\r\n      IF (NOUT .LE. 0) GO TO 40\r\n      WRITE  (NOUT,2) DMI,NAME,IZ,IFO,ITIN,ITOUT,IR,IC,P,NAM,ICARD1\r\n    2 FORMAT (1H1,/1X,A3,5X,2A4,4I8,8X,2I8,A1,A2,I5)\r\n      L = 1\r\n   40 RETURN\r\nC\r\nC\r\n      ENTRY PHDMIB\r\nC     ============\r\nC\r\nC     CALLED FOR FIRST NON-ZERO ELEMENT OF EACH COLUMN.\r\nC\r\n      IQ   = 0\r\n      IROW = IRO\r\n      FIRST=.TRUE.\r\n      IQ   = IQ + 1\r\n      FMT(IQ) = 0\r\n      IQX(IQ) = 0\r\n      IQ   = IQ + 1\r\n      FMT(IQ) = 1\r\n      IQX(IQ) = ICOL\r\n      IQ   = IQ + 1\r\n      FMT(IQ) = 1\r\n      IQX(IQ) = IROW\r\n      IQ   = IQ + 1\r\n      FMT(IQ) = 2\r\n      QX(IQ)  = X\r\n      RETURN\r\nC\r\nC\r\n      ENTRY PHDMIC\r\nC     ============\r\nC\r\nC     CALLED FOR EACH NON-ZERO ELEMENT OF COLUMN EXCEPT FIRST ONE.\r\nC\r\nC     LOOK FOR FULL CARD\r\nC\r\n      IF (IQ .LT. NKP) GO TO 100\r\n      ASSIGN 100 TO RET\r\n      GO TO 700\r\nC\r\nC     DETERMINE IF NEW ENTRY IS CONSECUTIVE OR NON-CONSECUTIVE.\r\nC\r\n  100 IF (IRO .NE. IROW+1) GO TO 200\r\n      IROW = IRO\r\n      IQ   = IQ + 1\r\n      FMT(IQ) = 2\r\n      QX(IQ)  = X\r\n      RETURN\r\nC\r\n  200 IQ   = IQ + 1\r\n      IROW = IRO\r\n      FMT(IQ) = 1\r\n      IQX(IQ) = IRO\r\n      IF (IQ .LT. NKP) GO TO 300\r\n      ASSIGN 300 TO RET\r\n      GO TO 700\r\n  300 IQ = IQ + 1\r\n      FMT(IQ) = 2\r\n      QX(IQ)  = X\r\n      RETURN\r\nC\r\nC\r\n      ENTRY PHDMID\r\nC     ============\r\nC\r\nC     ENTRY POINT FOR COLUMN TERMINATION CALL\r\nC\r\n      IF (IQ .LE. 0) RETURN\r\n      ASSIGN 500 TO RET\r\n      GO TO 700\r\n  500 RETURN\r\nC\r\nC     PUNCH CARD\r\nC\r\n  700 N = IQ\r\n      ASSIGN 800 TO RET1\r\n      GO TO 1000\r\n  800 IF (FIRST) GO TO 900\r\n      WRITE (NP,KFMT,ERR=810) PS,NAM,ICARD,(QX(L),L=1,IQ),PS,NAM,ICARD1\r\n  810 LFMT(2) = C1A\r\n      IF (NOUT .LE. 0) GO TO 850\r\n      IF (L .LT. NLPP) GO TO 830\r\n      WRITE  (NOUT,3)\r\n    3 FORMAT (1H1)\r\n      L = 0\r\n  830 WRITE (NOUT,LFMT,ERR=840) PS,NAM,ICARD,(QX(L),L=1,IQ),\r\n     1                          PS,NAM,ICARD1\r\n  840 L  = L + 1\r\n  850 IQ = 0\r\n      GO TO 950\r\n  900 WRITE (NP,KFMT,ERR=910) DMIPS,NAME,(QX(L),L=2,IQ),PS,NAM,ICARD1\r\n  910 LFMT(2) = H1A\r\n      IF (NOUT .LE. 0) GO TO 940\r\n      IF (L .LT. NLPP) GO TO 920\r\n      WRITE (NOUT,3)\r\n      L  = 0\r\n  920 WRITE (NOUT,LFMT,ERR=930) DMIPS,NAME,(QX(L),L=2,IQ),PS,NAM,ICARD1\r\n  930 L  = L + 1\r\n  940 FIRST = .FALSE.\r\n      IQ = 0\r\n  950 GO TO RET, (100,300,500)\r\nC\r\nC     BUILD FORMAT FOR CARD IMAGE.\r\nC\r\n 1000 ICARD  = ICARD + 1\r\n      ICARD1 = ICARD + 1\r\n      IF (ICARD1 .GT. 99999) GO TO 9901\r\n      GO TO (1001,1101), KP\r\n 1001 IF (FIRST) GO TO 1005\r\n      I1 = 1\r\n      KFMT(1) = C1\r\n      KFMT(2) = C2\r\n      KFMT(3) = C3\r\n      GO TO 1009\r\n 1005 I1 = 2\r\n      KFMT(1) = H1\r\n      KFMT(2) = H2\r\n      KFMT(3) = H3\r\n      KFMT(4) = KFMTB\r\n      KFMT(5) = KFMTB\r\n 1009 DO 1030 I = I1,N\r\n      K  = FMT(I)\r\n      IF (K .EQ. 2) GO TO 1020\r\n 1010 KFMT(2*I+2) = KFMTI\r\n      KFMT(2*I+3) = KFMTB\r\n      GO TO 1030\r\n 1020 KFMT(2*I+2) = KFMTR1\r\n      KFMT(2*I+3) = KFMTR2\r\n 1030 CONTINUE\r\n      IF (N .GE. NKP) GO TO 1999\r\n      N1 = N + 1\r\n      DO 1040 I = N1,NKP\r\n      KFMT(2*I+2) = KFMT8\r\n      KFMT(2*I+3) = KFMT8\r\n 1040 CONTINUE\r\n      GO TO 1999\r\n 1101 IF (FIRST) GO TO 1105\r\n      I1 = 1\r\n      KFMT(1) = C1\r\n      KFMT(2) = C2\r\n      KFMT(3) = C3\r\n      GO TO 1109\r\n 1105 I1 = 2\r\n      KFMT(1) = H1\r\n      KFMT(2) = H2\r\n      KFMT(3) = H3\r\n      KFMT(4) = KDMT8\r\n      KFMT(5) = KDMTB\r\n 1109 DO 1130 I = I1,N\r\n      K  = FMT(I)\r\n      IF (K .EQ. 2) GO TO 1120\r\n 1110 KFMT(2*I+2) = KDMTI\r\n      KFMT(2*I+3) = KDMTB\r\n      GO TO 1130\r\n 1120 KFMT(2*I+2) = KDMTR1\r\n      KFMT(2*I+3) = KDMTR2\r\n 1130 CONTINUE\r\n      IF (N .GE. NKP) GO TO 1999\r\n      N1  = N + 1\r\n      DO 1140 I = N1,NKP\r\n      KFMT(2*I+2) = KDMT8\r\n      KFMT(2*I+3) = KDMT8\r\n 1140 CONTINUE\r\n      GO TO 1999\r\n 1999 GO TO RET1, (800)\r\nC\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 9901 ERNO = 1\r\n      GO TO 9999\r\nC\r\nC\r\n 9999 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/pidck.f",
    "content": "      SUBROUTINE PIDCK (PFILE,GEOM2,NOPID,Z)\r\nC\r\nC     THIS ROUTINE CHECKS THE UNIQUNESS OF PROPERTY IDS FOR ALL ELEMENTS\r\nC     THAT HAVE PID FIELDS\r\nC\r\nC     IT SHOULD BE CALLED ONLY ONCE BY IFP\r\nC     IT DOES NOT OPEN NOR CLOSE ANY GINO FILE.\r\nC\r\nC     DESIGN REQUIREMENT -\r\nC\r\nC     IF PID IS REFERENCED BY AN ELEMENT, THE PID MUST RESIDE ON THE\r\nC     THIRD FIELD OF THE ELEMENT INPUT CARD.\r\nC     INPUT FILES - GEOM2 AND PROPERTY FILE (EPT).\r\nC\r\nC     THIS VERSION INCLUDES SPECIAL HANDLING OF THE CQUAD4 AND CTRIA3\r\nC     ELEMENTS WHICH USE AND SHARE MORE THAN ONE STANDARD PROPERTY CARD.\r\nC     THE PROPERTY TYPE IDS OF THE PSHELL, PCOMP, PCOMP1 AND PCOMP2\r\nC     MUST NOT BE INTERRUPTED BY ANOTHER PROPERTY TYPE. (I.E. NO OTHER\r\nC     PROPERTY TYPE SHOULD HAVE AN ID PLACED IN BETWEEN 5502 THRU 5802).\r\nC     NOTICE THAT THE PSHELL CARD HAS FIXED LENGTH WHILE THE 3 PCOMPI\r\nC     CARDS HAVE VARIABLE LENGTH.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS, SEPT. 1983\r\nC\r\n      LOGICAL         ABORT\r\n      INTEGER         PFILE,    GEOM2,    Z(1),     NAME(2),\r\n     1                FLAG,     X(3),     QUAD4,    PSHELL,\r\n     2                PCOMP(3)\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /SYSTEM/ IBUF,     NOUT,     ABORT,    SKIP(42),\r\n     1                KDUM(9)\r\n      COMMON /GPTA1 / NELEM,    LAST,     INCR,     NE(1)\r\n      DATA    QUAD4 , PSHELL,   PCOMP                      /\r\n     1         5408 , 5802,     5502,     5602,     5702   /\r\n      DATA    NAME  / 4HPIDC,   4HK       /\r\nC\r\nC     UPDATE /GPTA1/ IF DUMMY ELEMENTS ARE PRESENT\r\nC\r\n      DO 90 I = 1,9\r\n      IF (KDUM(I) .EQ. 0) GO TO 90\r\n      K  = KDUM(I)\r\n      NG = K/10000000\r\n      NC = (K-NG*10000000)/10000\r\n      NP = (K-NG*10000000 - NC*10000)/10\r\n      K  = (51+I)*INCR\r\n      NE(K+ 6) = 2 + NG + NC\r\n      NE(K+ 9) = 2 + NP\r\n      NE(K+10) = NG\r\n 90   CONTINUE\r\nC\r\nC     CREATE A PROPERTY ID TABLE IN Z FROM /GPTA1/ DATA BLOCK FOR THOSE\r\nC     ELEMENTS THAT HAVE PROPERTY CARDS\r\nC     4 WORDS PER ENTRY\r\nC       WORD 1, PROPERTY TYPE CODE  (EPT-ID)\r\nC       WORD 2, LENGTH OF PROPERTY CARD  (EPTWDS)\r\nC       WORD 3, ELEMENT TYPE CODE   (ECT-ID)\r\nC       WORD 4, LENGTH OF ELEMENT CARD (ECTWDS), PLUS POINTER TO GPTA1\r\nC\r\n      II = 0\r\n      DO 100 I = 1,LAST,INCR\r\n      IF (NE(I+6) .EQ. 0) GO TO 100\r\n      Z(II+1) = NE(I+6)\r\n      Z(II+2) =-NE(I+8)\r\n      Z(II+3) = NE(I+3)\r\n      Z(II+4) = NE(I+5)*10000 + I\r\n      II = II + 4\r\n 100  CONTINUE\r\nC\r\nC     ADD 3 MORE PROPERTY CARDS (PCOMP, PCOMP1, PCOMP2) FOR CQUAD4 (64)\r\nC     AND CTRIA3\r\nC     NOTE - THESE THREE ARE OPEN-ENDED, AND WE SET WORD 2 TO -8888\r\nC          - WE GIVE THEM LOCALLY NEW QUAD4 IDS IN THE 3RD WORD, SO THAT\r\nC            ELEMENT CQUAD4 AND ELEMENT CTRIA3 WILL PICK THEM UP VIA\r\nC            THE PSEHLL DATA LATER.\r\nC\r\n      I = (64-1)*INCR + 1\r\n      IF (NE(I+3) .NE. QUAD4) CALL MESAGE (-37,0,NAME)\r\n      DO 105 J = 1,3\r\n      Z(II+1) = PCOMP(J)\r\n      Z(II+2) = -8888\r\n      Z(II+3) = QUAD4 - J\r\n      Z(II+4) = NE(I+5)*10000 + I\r\n      II = II + 4\r\n 105  CONTINUE\r\nC\r\nC     SORT THIS 4-ENTRY Z-TABLE BY THE FIRST WORD.\r\nC     SET WORD 2 TO -9999 IF ELEMENT USES THE SAME PROPERTY CARD AS THE\r\nC     PREVIOUS ELEMENT.\r\nC\r\n      I4 = II/4\r\n      CALL SORT (0,0,4,1,Z,II)\r\n      DO 110 I = 5,II,4\r\n      IF (Z(I) .EQ. Z(I-4)) Z(I+1) = -9999\r\n 110  CONTINUE\r\nC\r\nC     READ FROM PFILE ALL PID INTO REMAINING CORE. REPLACE WORD 2 IN THE\r\nC     Z-TABLE BY PID BEGIN-ENDING POINTERS\r\nC\r\n      JJ = II + 1\r\n      IF (NOPID .EQ. 1) GO TO 210\r\n      CALL REWIND (PFILE)\r\n 120  CALL FWDREC (*360,PFILE)\r\n 130  CALL READ (*190,*190,PFILE,X,3,0,FLAG)\r\nC     2147483647  = 2**31-1\r\n      IF (X(1) .EQ. 2147483647) GO TO 190\r\n      CALL BISLOC (*120,X(1),Z,4,I4,K)\r\n 140  KP1 = K + 1\r\n      IF (Z(KP1) .NE. -9999) GO TO 150\r\n      K = K - 4\r\n      GO TO 140\r\n 150  NWDS = -Z(KP1)\r\n      IF (NWDS .LE. 0) GO TO 120\r\n      KOMP = 0\r\n      IF (NWDS .NE. 8888) GO TO 155\r\n      KOMP = 1\r\n      NWDS = 8\r\n 155  Z(KP1) = (JJ*10000) + (JJ-1)\r\n      JB = JJ\r\n 160  CALL READ (*360,*130,PFILE,Z(JJ),NWDS,0,FLAG)\r\n      IF (KOMP .EQ. 0) GO TO 167\r\n 165  CALL READ (*360,*130,PFILE,J,1,0,FLAG)\r\n      IF (J .NE. -1) GO TO 165\r\n 167  JE = MOD(Z(KP1),10000)\r\n      IF (JE .LT. JB) GO TO 180\r\n      DO 170 J = JB,JE\r\n      IF (Z(JJ) .EQ. Z(J)) GO TO 160\r\n 170  CONTINUE\r\n 180  Z(KP1) = Z(KP1) + 1\r\n      JJ = JJ + 1\r\n      GO TO 160\r\n 190  CALL REWIND (PFILE)\r\n      JJ = JJ - 1\r\n      IF (JJ .LE. II) NOPID = -1\r\nC\r\nC     RESET THE PSHELL POINTERS TO INCLUDE THE PCOMP GROUP IDS.\r\nC     MAKE SURE THIS GROUP ARE ALL TOGETHER, NOT SEPERATED BY OTHER\r\nC     PROPERTY CARD\r\nC     THERE ARE 2 PSHELL CARDS, ONE FROM CQUAD4 AND ONE FROM CTRIA3,\r\nC     MAKE SURE THE FIRST PSHELL POINTER IS USED\r\nC\r\n      CALL BISLOC (*210,PSHELL,Z,4,I4,KP1)\r\n      IF (Z(KP1+1) .EQ. -9999) KP1 = KP1 - 4\r\n      IF (Z(KP1- 4).NE.PCOMP(3) .OR. Z(KP1-8).NE.PCOMP(2) .OR.\r\n     1    Z(KP1-12).NE.PCOMP(1)) GO TO 380\r\n      J = Z(KP1+1)\r\n      IF (J .LE. 0) J = 0\r\n      JB = J/10000\r\n      JE = MOD(J,10000)\r\n      IF (JB .EQ. 0) JB = 9999999\r\n      DO 200 I = 1,3\r\n      CALL BISLOC (*370,PCOMP(I),Z,4,I4,K)\r\n      IF (Z(K+1) .LE. 0) GO TO 200\r\n      J = Z(K+1)/10000\r\n      K = MOD(Z(K+1),10000)\r\n      IF (J .LT. JB) JB = J\r\n      IF (K .GT. JE) JE = K\r\n 200  CONTINUE\r\n      IF (JB .NE. 9999999) Z(KP1+1) = (JB*10000) + JE\r\nC\r\nC     RESET POINTERS FOR THOSE PROPERTY ID COMMON TO MORE THAN ONE TYPE\r\nC     OF ELEMENTS, AND\r\nC     MOVE THE THIRD ENTRY IN THE Z-TABLE TO FIRST, FOR ELEMENT SORT\r\nC\r\n 210  DO 220 I = 1,II,4\r\n      Z(I) = Z(I+2)\r\n      J = I + 1\r\n      IF (Z(J) .GT. 0) GO TO 220\r\n      IF (Z(J) .EQ. -9999) Z(J) = Z(J-4)\r\n 220  CONTINUE\r\n      CALL SORT (0,0,4,1,Z,II)\r\nC\r\nC     READ IN CONNECTING ELEMENTS, ONE BY ONE, FROM GEOM2 FILE, AND\r\nC     CHECK THE EXISTENCE OF THE PROPERTY ID IF IT IS SPECIFIED.\r\nC\r\n      KK = JJ + 1\r\n      CALL REWIND (GEOM2)\r\n 230  CALL FWDREC (*360,GEOM2)\r\n 240  CALL READ (*300,*300,GEOM2,X,3,0,FLAG)\r\n      CALL BISLOC (*230,X(1),Z,4,I4,K)\r\n      NWDS = Z(K+3)/10000\r\n      IF (NWDS .LE. 0) GO TO 230\r\n      J = Z(K+1)\r\n      IF (J .LE. 0) GO TO 270\r\n      JB = J/10000\r\n      JE = MOD(J,10000)\r\n 250  CALL READ (*360,*240,GEOM2,Z(KK),NWDS,0,FLAG)\r\n      JJ1 = Z(KK+1)\r\n      DO 260 J = JB,JE\r\n      IZ = IABS(Z(J))\r\n      IF (JJ1 .NE. IZ) GO TO 260\r\n      Z(J) = -IZ\r\n      GO TO 250\r\n 260  CONTINUE\r\n      CALL MESAGE (30,10,Z(KK))\r\n      ABORT = .TRUE.\r\n      GO TO 250\r\n 270  J = MOD(Z(K+3),10000)\r\n      CALL MESAGE (30,11,NE(J))\r\n      ABORT = .TRUE.\r\n      GO TO 230\r\n 300  CALL REWIND (GEOM2)\r\n      IF (ABORT .OR. NOPID.NE.0) GO TO 350\r\nC\r\nC     PREPARE AN ACTIVE PROPERTY ID LIST FOR SUBROUTINE MATCK\r\nC\r\n      J  = II + 1\r\n      II = 1\r\n      DO 320 I = J,JJ\r\n      IF (Z(I) .GE. 0) GO TO 310\r\n      II = II + 1\r\n      Z(II) = -Z(I)\r\n      GO TO 320\r\n 310  Z(KK) = Z(I)\r\n      KK = KK + 1\r\n 320  CONTINUE\r\n      Z(1) = II\r\nC\r\nC     Z(2,...II) CONTAINS A LIST OF ACTIVE PROPERTY IDS, UN-SORTED,\r\nC     REFERENCED BY ELEMENTS IN GEOM2 FILE.  Z(1) = LENGTH OF THIS LIST\r\nC\r\n      JJ1 = JJ + 1\r\n      KK  = KK - 1\r\n      IF (KK .LT. JJ1) RETURN\r\n      WRITE  (NOUT,330) UIM\r\n 330  FORMAT (A29,', THE FOLLOWING PROPERTY IDS ARE PRESENT BUT NOT ',\r\n     1        'USED -')\r\n      WRITE  (NOUT,340) (Z(J),J=JJ1,KK)\r\n 340  FORMAT (/5X,12I9)\r\n      RETURN\r\nC\r\nC     SET Z(1) TO ZERO IF NO ACTIVE PROPERTY LIST EXISTS.\r\nC\r\n 350  Z(1) = 0\r\n      RETURN\r\nC\r\n 360  J = -2\r\n      GO TO 400\r\n 370  WRITE  (NOUT,375)\r\n 375  FORMAT ('0*** CAN NOT LOCATE PSHELL OR PCOMP DATA IN /GPTA1/')\r\n      GO TO 390\r\n 380  WRITE  (NOUT,385) Z(KP1),PSHELL,Z(KP1-4),PCOMP(3),\r\n     1                  Z(KP1-8),PCOMP(2),Z(KP1-12),PCOMP(1)\r\n 385  FORMAT ('0*** ERROR IN /GPTA1/ PCOMP ARRANGEMENT',(/3X,2I7))\r\n 390  J = -37\r\n 400  CALL MESAGE (J,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/piklvl.f",
    "content": "      SUBROUTINE PIKLVL (*,LVLS1,LVLS2,CCSTOR,IDFLT,ISDIR,XC,NHIGH,\r\n     1                   NLOW,NACUM,SIZE,STPT)\r\nC\r\n      INTEGER          CCSTOR(1), SIZE(1), STPT(1),  XC,  END, TEMP\r\n      DIMENSION        NHIGH(1),  NLOW(1), NACUM(1), LVLS1(1), LVLS2(1)\r\n      COMMON /BANDG /  IDUM,      IDPTH\r\nC\r\nC     THIS ROUTINE IS USED ONLY BY GIBSTK OF BANDIT MODULE\r\nC\r\nC     PIKLVL CHOOSES THE LEVEL STRUCTURE  USED IN NUMBERING GRAPH\r\nC\r\nC     LVLS1-    ON INPUT CONTAINS FORWARD LEVELING INFO\r\nC     LVLS2-    ON INPUT CONTAINS REVERSE LEVELING INFO\r\nC               ON OUTPUT THE FINAL LEVEL STRUCTURE CHOSEN\r\nC     CCSTOR-   ON INPUT CONTAINS CONNECTED COMPONENT INFO\r\nC     IDFLT-    ON INPUT =1 IF WDTH LVLS1'WDTH LVLS2, =2 OTHERWISE\r\nC     NHIGH     KEEPS TRACK OF LEVEL WIDTHS FOR HIGH NUMBERING\r\nC               DIMENSION OF NHIGH IS MAXIMUM ALLOWABLE NUMBER OF LEVELS\r\nC     NLOW-     KEEPS TRACK OF LEVEL WIDTHS FOR LOW NUMBERING\r\nC     NACUM-    KEEPS TRACK OF LEVEL WIDTHS FOR CHOSEN LEVEL STRUCTURE\r\nC     XC-       NUMBER OF MAXIMUM ALLOWABLE CONNECTED COMPONENTS\r\nC               (IS THE DIMENSION FOR SIZE AND STPT)\r\nC     SIZE(I)-  SIZE OF ITH CONNECTED COMPONENT\r\nC     STPT(I)-  INDEX INTO CCSTORE OF 1ST NODE IN ITH CON COMPT\r\nC     ISDIR-    FLAG WHICH INDICATES WHICH WAY THE LARGEST CONNECTED\r\nC               COMPONENT FELL.  =+1 IF LOW AND -1 IF HIGH\r\nC\r\nC\r\nC     PART 1 -\r\nC     ========\r\nC     SORTS SIZE AND STPT HERE, IN DECENDING ORDER\r\nC     (PREVIOUS SORT2 ROUTINE IS NOW MOVED INTO HERE.\r\nC     THE ORIGINAL BUBBLE SORT HAS BEEN REPLACED BY THE MODIFIED SHELL\r\nC     SORT WHICH IS MUCH FASTER   /G.CHAN,  MAY 1988)\r\nC\r\n      IF (XC .EQ. 0) RETURN 1\r\n      M=XC\r\n   10 M=M/2\r\n      IF (M .EQ. 0) GO TO 70\r\n      J=1\r\n      K=XC-M\r\n   20 I=J\r\n   30 N=I+M\r\n      IF (SIZE(N)-SIZE(I)) 60,60,50\r\n   50 TEMP   =SIZE(I)\r\n      SIZE(I)=SIZE(N)\r\n      SIZE(N)=TEMP\r\n      TEMP   =STPT(I)\r\n      STPT(I)=STPT(N)\r\n      STPT(N)=TEMP\r\n      I=I-M\r\n      IF (I .GE. 1) GO TO 30\r\n   60 J=J+1\r\n      IF (J-K) 20,20,10\r\n   70 CONTINUE\r\nC\r\nC\r\nC     PART 2 -\r\nC     ========\r\nC     CHOOSES THE LEVEL STRUCTURE USED IN NUMBERING GRAPH\r\nC\r\nC\r\nC     FOR EACH CONNECTED COMPONENT DO\r\nC\r\n      DO 270 I=1,XC\r\n      J  =STPT(I)\r\n      END=SIZE(I)+J-1\r\nC\r\nC     SET NHIGH AND NLOW EQUAL TO NACUM\r\nC\r\n      DO 200 K=1,IDPTH\r\n      NHIGH(K)=NACUM(K)\r\n      NLOW(K) =NACUM(K)\r\n  200 CONTINUE\r\nC\r\nC     UPDATE NHIGH AND NLOW FOR EACH NODE IN CONNECTED COMPONENT\r\nC\r\n      DO 210 K=J,END\r\n      INODE=CCSTOR(K)\r\n      LVLNH=LVLS1(INODE)\r\n      NHIGH(LVLNH)=NHIGH(LVLNH)+1\r\n      LVLNL=LVLS2(INODE)\r\n      NLOW(LVLNL)=NLOW(LVLNL)+1\r\n  210 CONTINUE\r\n      MAX1=0\r\n      MAX2=0\r\nC\r\nC     SET MAX1=LARGEST NEW NUMBER IN NHIGH\r\nC     SET MAX2=LARGEST NEW NUMBER IN NLOW\r\nC\r\n      DO 220 K=1,IDPTH\r\n      IF (2*NACUM(K).EQ.NLOW(K)+NHIGH(K)) GO TO 220\r\n      IF (NHIGH(K).GT.MAX1) MAX1=NHIGH(K)\r\n      IF (NLOW(K) .GT.MAX2) MAX2=NLOW(K)\r\n  220 CONTINUE\r\nC\r\nC     SET IT= NUMBER OF LEVEL STRUCTURE TO BE USED\r\nC\r\n      IT=1\r\n      IF (MAX1.GT.MAX2) IT=2\r\n      IF (MAX1.EQ.MAX2) IT=IDFLT\r\n      IF (IT.EQ.2) GO TO 250\r\n      IF (I .EQ.1) ISDIR=-1\r\nC\r\nC     COPY LVLS1 INTO LVLS2 FOR EACH NODE IN CONNECTED COMPONENT\r\nC\r\n      DO 230 K=J,END\r\n      INODE=CCSTOR(K)\r\n      LVLS2(INODE)=LVLS1(INODE)\r\n  230 CONTINUE\r\nC\r\nC     UPDATE NACUM TO BE THE SAME AS NHIGH\r\nC\r\n      DO 240 K=1,IDPTH\r\n      NACUM(K)=NHIGH(K)\r\n  240 CONTINUE\r\n      GO TO 270\r\nC\r\nC     UPDATE NACUM TO BE THE SAME AS NLOW\r\nC\r\n  250 DO 260 K=1,IDPTH\r\n      NACUM(K)=NLOW(K)\r\n  260 CONTINUE\r\n  270 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkbar.f",
    "content": "      SUBROUTINE PKBAR\r\nC\r\nC     THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND\r\nC     K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J.\r\nC\r\nC     ECPT FOR THE BAR\r\nC\r\nC     ECPT( 1)  -  IELID       ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)   * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...       *\r\nC     ECPT( 4)  -  SMALLV(3)   $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...       $\r\nC     ECPT( 6)  -    ...       $\r\nC     ECPT( 7)  -  ICSSV       COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)   * PIN FLAGS\r\nC     ECPT( 9)  -    ...       *\r\nC     ECPT(10)  -  ZA(3)       $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -    ...       $\r\nC     ECPT(12)  -    ...       $\r\nC     ECPT(13)  -  ZB(3)       * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -    ...       *\r\nC     ECPT(15)  -    ...       *\r\nC     ECPT(16)  -  IMATID      MATERIAL ID.\r\nC     ECPT(17)  -  A           CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1          $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2          $\r\nC     ECPT(20)  -  FJ          POLAR MOMENT OF INERTIA\r\nC     ECPT(21)  -  NSM         NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE          FORCE ELEMENT DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1          * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2          *\r\nC     ECPT(25)  -  D1          *\r\nC     ECPT(26)  -  D2          *\r\nC     ECPT(27)  -  F1          *\r\nC     ECPT(28)  -  F2          *\r\nC     ECPT(29)  -  G1          *\r\nC     ECPT(30)  -  G2          *\r\nC     ECPT(31)  -  K1          $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2          $\r\nC     ECPT(33)  -  I12         AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA      COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)      * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -   ...        *\r\nC     ECPT(37)  -   ...        *\r\nC     ECPT(38)  -  MCSIDB      COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)      $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -   ...        $\r\nC     ECPT(41)  -   ...        $\r\nC     ECPT(42)  -  ELTEMP      AVG. ELEMENT TEMPERATURE\r\nC     ECPT(43)  -  EPS1SP      PREVIOUS STRAIN VALUE ONCE REMOVED\r\nC     ECPT(44)  -  EPS2SP      PREVIOUS STRAIN VALUE\r\nC     ECPT(45)  -  ESTAR       PREVIOUSLY COMPUTED MODULUS OF ELASTICITY\r\nC     ECPT(46)  -  UASP(6)     * INCREMENTAL DISPLACEMENT VECTOR AT PT.A\r\nC     ECPT(47)  -   ...        *\r\nC     ECPT(48)  -   ...        *\r\nC     ECPT(49)  -   ...        *\r\nC     ECPT(50)  -   ...        *\r\nC     ECPT(51)  -   ...        *\r\nC     ECPT(52)  -  UBSP(6)     $ INCREMENTAL DISPLACEMENT VECTOR AT PT.B\r\nC     ECPT(53)  -   ...        $\r\nC     ECPT(54)  -   ...        $\r\nC     ECPT(55)  -   ...        $\r\nC     ECPT(56)  -   ...        $\r\nC     ECPT(57)  -   ...        $\r\nC\r\n      LOGICAL          ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET\r\n      REAL             K1,K2,I1,I2,I12,NSM\r\n      DOUBLE PRECISION TA(18),TB(9),SMALV0(6),DELA,DELB,KE,KEP,VECI,\r\n     1                 VECJ,VECK,FL,FLL,EI1,EI2,GAK1,GAK2,R1,R2,SK1,\r\n     2                 SK2,SK3,SK4,AEL,GJL,LR1,LR2,L,LSQ,LCUBE,DP(8)\r\n      DOUBLE PRECISION BETA,LB,L2B3,L2B6,U(24),D(9),EPSIN1,EPSIN2,DEPS1,\r\n     1                 DEPS2,EPS1,EPS2,GAMMA,GAMMAS,SIGMA1,SIGMA2,\r\n     2                 E SUB 0 D,G SUB 0 D,E,G\r\n      DIMENSION        VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100),\r\n     1                 IPIN(10)\r\nC\r\nC     PLA42 COMMUNICATIONS BLOCK\r\n      COMMON /PLA42C/  NPVT,G NEW,G OLD,DUMCL(146),NOGO\r\nC\r\nC     ECPT COMMON BLOCK\r\n      COMMON /PLA42E/  IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3),\r\n     1                 ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2,\r\n     2                 G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3),\r\n     3                 ELTEMP,EPS1SP,EPS2SP,ESTAR,UASP(6),UBSP(6)\r\nC\r\nC     PKBAR LOCAL VARIABLES IN PLA42 SCRATCH BLOCK\r\n      COMMON /PLA42D/  KE(144),KEP(144),DELA(6),DELB(6)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\n      COMMON /MATIN /  MATIDC,MATFLG,TDUM,PLAARG\r\nC\r\n      COMMON /MATOUT/  E SUB 0,G SUB 0,MATDUM(18)\r\n      EQUIVALENCE      (IELID,ECPT(1),IECPT(1)),(TA(10),TB(1)),\r\n     1                 (ECPT(71),DP(1),D(1)),(E SUB 0,PLAANS)\r\nC\r\nC\r\nC     DETERMINE WHICH POINT IS THE PIVOT POINT.\r\nC\r\n      IPVT = 1\r\n      IF (ISILNO(1) .EQ. NPVT) GO TO 20\r\n      IPVT = 2\r\n      IF (ISILNO(2) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n   20 JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC     WE STORE SMALLV IN SMALV0 SO THAT ARITHMETIC WILL BE DOUBLE\r\nC     PRECISION\r\nC\r\n      DO 50 I = 1,3\r\n   50 SMALV0(I) = SMALLV(I)\r\n      FL = DSQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2)\r\n      IF (FL .LE. 0.0D0) GO TO 1010\r\n      DO 60 I = 1,3\r\n   60 SMALV0(I) = SMALV0(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT.ABASIC) CALL TRANSD (ECPT(JCSIDA),TA)\r\n      IF (.NOT.BBASIC) CALL TRANSD (ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC     FIRST WE STORE THE COORDINATES IN THE ARRAY DP SO THAT ALL\r\nC     ARITHMETIC WILL BE DOUBLE PRECISION.\r\nC\r\n  100 DP(1) = ECPT(JCSIDA+1)\r\n      DP(2) = ECPT(JCSIDA+2)\r\n      DP(3) = ECPT(JCSIDA+3)\r\n      DP(4) = ECPT(JCSIDB+1)\r\n      DP(5) = ECPT(JCSIDB+2)\r\n      DP(6) = ECPT(JCSIDB+3)\r\n      VECI(1) = DP(1) - DP(4)\r\n      VECI(2) = DP(2) - DP(5)\r\n      VECI(3) = DP(3) - DP(6)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATD (TA,3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATD (TB,3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 VECI(1) = -VECI(1)\r\n      VECI(2) = -VECI(2)\r\n      VECI(3) = -VECI(3)\r\n      FL = DSQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (FL .EQ. 0.0D0) GO TO 1010\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ***CHECK THIS LOGIC***\r\nC\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATD (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1)\r\n      VECK(2) = VECI(3)*SMALV0(ISV  ) - VECI(1)*SMALV0(ISV+2)\r\n      VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV)\r\n      FLL = DSQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF ( FLL .EQ. 0.0D0 ) GO TO 1010\r\n      VECK(1) = VECK(1)/FLL\r\n      VECK(2) = VECK(2)/FLL\r\n      VECK(3) = VECK(3)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL = DSQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      IF ( FLL .EQ. 0.0D0 ) GO TO 1010\r\n      VECJ(1) = VECJ(1)/FLL\r\n      VECJ(2) = VECJ(2)/FLL\r\n      VECJ(3) = VECJ(3)/FLL\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      L = FL\r\n      LSQ = L**2\r\n      LCUBE = LSQ*L\r\nC\r\nC     STORE INCREMENTAL DISPLACEMENT VECTORS IN DOUBLE PRECISION\r\nC     LOCATIONS\r\nC\r\n      DO 182 I = 1,6\r\n      U(I)    = UASP(I)\r\n  182 U(I+12) = UBSP(I)\r\nC\r\nC     COMPUTE ON FIRST PASS C * E * U   AND C * E * U  ON SECOND PASS\r\nC                            B   B   B       A   A   A\r\nC\r\n      IPASS  = 1\r\n      BASIC  = BBASIC\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      JCSID  = 10\r\n      INDEX  = 13\r\nC\r\nC     IF THERE ARE OFFSETS FOR THIS POINT, CONSTRUCT THE 3 X 3 MATRIX D.\r\nC\r\n  184 IF (.NOT. OFFSET) GO TO 188\r\n      D(1) =  0.0D0\r\n      D(2) =  ECPT(JOFSET+2)\r\n      D(3) = -ECPT(JOFSET+1)\r\n      D(4) = -D(2)\r\n      D(5) =  0.0D0\r\n      D(6) =  ECPT(JOFSET)\r\n      D(7) = -D(3)\r\n      D(8) = -D(6)\r\n      D(9) =  0.0D0\r\nC\r\nC     COMPUTE THE 3 VECTOR  D * U , WHERE U  IS THE VECTOR OF THE 3\r\nC                                R         R\r\nC     ROTATIONAL DISPLACEMENTS\r\nC\r\n      CALL GMMATD (D,3,3,0, U(INDEX+3),3,1,0, U(INDEX+6))\r\nC\r\nC     ADD OFFSET CONTRIBUTION TO THE TRANSLATION COMPONENTS OF THE\r\nC     DISPLACEMENT VECTOR\r\nC\r\n      J = INDEX\r\n      DO 186 I = 1,3\r\n      U(J) = U(J) + U(J+6)\r\n  186 J = J + 1\r\nC\r\nC     TRANSFORM TRANSLATIONAL COMPONENTS TO BASIC COORDINATES IF\r\nC     NECESSARY\r\nC\r\n  188 IF (BASIC) GO TO 190\r\n      CALL GMMATD (TA(JCSID),3,3,0, U(INDEX),3,1,0, U(INDEX+3))\r\nC\r\nC     STORE TRANSFORMED VECTOR BACK INTO ITS ORIGINAL D.P. LOCATION\r\nC\r\n      U(INDEX  ) = U(INDEX+3)\r\n      U(INDEX+1) = U(INDEX+4)\r\n      U(INDEX+2) = U(INDEX+5)\r\n  190 IF (IPASS .EQ. 2) GO TO 192\r\n      IPASS  = 2\r\n      BASIC  = ABASIC\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      JCSID  = 1\r\n      INDEX  = 1\r\n      GO TO 184\r\nC\r\nC     FORM THE DIFFERENCE OF THE TRANSLATIONAL COMPONENTS OF THE\r\nC     TRANSFORMED DISPLACEMENT VECTORS\r\nC\r\n  192 DO 194 I = 1,3\r\n  194 U(I+12) = U(I+12) - U(I)\r\nC\r\nC     FORM DOT PRODUCT\r\nC\r\n      CALL GMMATD (VECI,3,1,1, U(13),3,1,0, D(1))\r\nC\r\nC     CALCULATE THE INCREMENTAL ELEMENT STRAIN\r\nC\r\n      DEPS1 = D(1)/L\r\nC\r\nC     PERFORM EXTENSIONAL STRAIN CALCULATIONS IN DOUBLE PRECISION\r\nC\r\n      EPSIN1 = EPS1SP\r\n      EPSIN2 = EPS2SP\r\n      DEPS2  = EPSIN2 - EPSIN1\r\n      EPS1   = EPSIN2 + DEPS1\r\n      GAMMA  = G NEW\r\n      GAMMAS = G OLD\r\n      EPS2   = EPS1 + GAMMA*DEPS1\r\nC\r\nC     CALL MAT ROUTINE TO GET SIGMA1 AND SIGMA2 AS FUNCTIONS OF EPS1,\r\nC     EPS2\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      CALL MAT (IECPT(1))\r\n      E SUB 0 D = E SUB 0\r\n      G SUB 0 D = G SUB 0\r\n      MATFLG = 6\r\n      PLAARG = EPS1\r\n      CALL MAT (IECPT(1))\r\n      SIGMA1 = PLAANS\r\n      PLAARG = EPS2\r\n      CALL MAT (IECPT(1))\r\n      SIGMA2 = PLAANS\r\n      IF (EPS1 .EQ. EPS2) GO TO 200\r\n      E = (SIGMA2-SIGMA1)/(EPS2-EPS1)\r\n      GO TO 202\r\n  200 E = ESTAR\r\n  202 G = E*G SUB 0 D/E SUB 0 D\r\nC\r\nC     STORE ECPT VARIABLES IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      DP(3) = I1\r\n      DP(4) = I2\r\n      DP(5) = A\r\n      EI1   = E*DP(3)\r\n      EI2   = E*DP(4)\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210\r\n      DP(6) = K1\r\n      GAK1  = G*DP(5)*DP(6)\r\n      R1    = (12.0D0*EI1*GAK1)/(GAK1*LCUBE + 12.0D0*L*EI1)\r\n      GO TO 220\r\n  210 R1    =  12.0D0*EI1/LCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      DP(7) = K2\r\n      GAK2  = G*DP(5)*DP(7)\r\n      R2    = (12.0D0*EI2*GAK2)/(GAK2*LCUBE + 12.0D0*L*EI2)\r\n      GO TO 240\r\n  230 R2    =  12.0D0*EI2/LCUBE\r\nC\r\nC     COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4\r\nC\r\n  240 SK1 = 0.25D0*R1*LSQ + EI1/L\r\n      SK2 = 0.25D0*R2*LSQ + EI2/L\r\n      SK3 = 0.25D0*R1*LSQ - EI1/L\r\n      SK4 = 0.25D0*R2*LSQ - EI2/L\r\nC\r\nC     COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      AEL  = DP(5)*E/L\r\n      LR1  = L*R1/2.0D0\r\n      LR2  = L*R2/2.0D0\r\n      DP(8)= FJ\r\n      GJL  = G*DP(8)/L\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(I) = 0.0D0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.0) GO TO 255\r\n      DP(8)   =  I12\r\n      BETA    =  12.0D0*DP(1)*DP(8)/LCUBE\r\n      LB      =  L*BETA/2.0D0\r\n      L2B3    =  LSQ*BETA/3.0D0\r\n      L2B6    =  LSQ*BETA/6.0D0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  255 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  260 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.0D0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0D0\r\n      KE(IL) = 0.0D0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI  = 12*(J-1) + IPIN(I)\r\n      IJ  = 12*(IPIN(I)-1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ ) = 0.0D0\r\n      KEP(JI ) = 0.0D0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC            E\r\nC     STORE K       AT KEP(1),...,KEP(36)   AND\r\nC            NPVT,A\r\nC\r\nC            E\r\nC           K        AT KEP(37),...,KEP(72)\r\nC            NPVT,B\r\nC\r\n  325 J = 0\r\n      IF (IPVT .EQ. 2) GO TO 327\r\n      ILOW = 1\r\n      ILIM = 72\r\n      GO TO 329\r\n  327 ILOW = 73\r\n      ILIM = 144\r\n  329 DO 340 I = ILOW,ILIM,12\r\n      LOW  = I\r\n      LIM  = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J    = J + 1\r\n      KEP(J   ) = KE(K  )\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3X3 MATRIX H AND THE W  AND W  6X6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0D0\r\n      IPASS = 1\r\n      IWBEG = 0\r\nC\r\nC     SET UP POINTERS\r\nC\r\n      IF (IPVT - 1) 365,360,365\r\n  360 BASIC  = ABASIC\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      IKEL   = 1\r\n      INDEX  = ISILNO(1)\r\n      GO TO 368\r\n  365 BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IKEL   = 37\r\n      INDEX  = ISILNO(2)\r\nC\r\nC     SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX.\r\nC     G = AT X TI\r\nC\r\n  368 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL TRANSD (ECPT(JCSID),KE(10))\r\n      CALL GMMATD (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3X3\r\nC     MATRIX.\r\nC\r\n  370 IF (.NOT.OFFSET) GO TO 380\r\n      KE(10) =  0.0D0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.0D0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.0D0\r\nC\r\nC     FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATD (KE(IG),3,3,0, KE(10),3,3,0, KE(28))\r\nC\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC\r\nC                       T      E\r\nC     FORM THE PRODUCT W   X  K   AND STORE IN KEP(73)\r\nC                       NPVT\r\nC\r\n  390 CALL GMMATD (KE(37),6,6,1, KEP(IKEL),6,6,0, KEP(73))\r\nC\r\nC     COMPUTE THE FINAL ANSWER AND STORE IN KEP(109)\r\nC\r\n      CALL GMMATD (KEP(73),6,6,0, KE(IWBEG+37),6,6,0, KEP(109))\r\nC\r\nC     INSERT THIS 6 X 6\r\nC\r\n      CALL PLA4B (KEP(109),INDEX)\r\nC\r\nC     IF IPASS = 2, WE ARE DONE.  OTHERWISE COMPUTE THE OFF-DIAGONAL\r\nC     6 X 6.\r\nC\r\n      IF (IPASS .EQ. 2) GO TO 500\r\n      IWBEG = 36\r\n      IPASS = 2\r\n      DO 410 I = 28,36\r\n  410 KE(I) = 0.0D0\r\n      IF (IPVT-1) 360,365,360\r\nC\r\nC     UPDATE ECPT ENTRY\r\nC\r\n  500 EPS1SP = EPS2SP\r\n      EPS2SP = EPS1\r\n      ESTAR  = E\r\n      RETURN\r\n 1010 CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC      SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC      ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqad1.f",
    "content": "      SUBROUTINE PKQAD1\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD1 CALCULATIONS IN\r\nC  PLA4\r\nC\r\nC     ECPT  FOR  QUAD1\r\nC\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  GRID D\r\nC  6  THETA\r\nC  7  MATID1\r\nC  8  T1\r\nC  9  MATID2\r\nC 10  I\r\nC 11  MATID3\r\nC 12  T2\r\nC 13  MS MASS\r\nC 14  Z1\r\nC 15  Z2\r\nC 16  CSID 1\r\nC 17  X1\r\nC 18  Y1\r\nC 19  Z1\r\nC 20  CSID 2\r\nC 21  X2\r\nC 22  Y2\r\nC 23  Z2\r\nC 24  CSID 3\r\nC 25  X3\r\nC 26  Y3\r\nC 27  Z3\r\nC 28  CSID 4\r\nC 29  X4\r\nC 30  Y4\r\nC 31  Z4\r\nC 32  TEMP\r\nC 33  EPS0\r\nC 34  EPSS\r\nC 35  ESTAR\r\nC 36  SIGXS\r\nC 37  SIGYS\r\nC 38  SIGXYS\r\nC 39  U(A) (3X1)\r\nC 42  U(B) (3X1)\r\nC 45  U(C) (3X1)\r\nC 48  U(D) (3X1)\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(32), NECPTS(32)\r\nC\r\n      COMMON /PLA42E/ ECPT(32),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1    UI(12),  DUMMY(50)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF (IDUM2.EQ.2) GO TO 150\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\n      NECPTS(5) = 10\r\nC\r\n      CALL PKTQ1(3)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTQ2(4)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\nC\r\n   80 ESTAR = 0.0\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKTRQD(3)\r\n      RETURN\r\n  150 CALL MESAGE(30,38,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqad2.f",
    "content": "      SUBROUTINE PKQAD2\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD2 CALCULATIONS IN\r\nC  PLA4\r\nC\r\nC     ECPT FOR QUAD2\r\nC\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  GRID D\r\nC  6  THETA\r\nC  7  MAT ID\r\nC  8  T\r\nC  9  MS MASS\r\nC 10  CSID 1\r\nC 11  X1\r\nC 12  Y1\r\nC 13  Z1\r\nC 14  CSID 2\r\nC 15  X2\r\nC 16  Y2\r\nC 17  Z2\r\nC 18  CSID 3\r\nC 19  X3\r\nC 20  Y3\r\nC 21  Z3\r\nC 22  CSID 4\r\nC 23  X4\r\nC 24  Y4\r\nC 25  Z4\r\nC 26  TEMP\r\nC 27  EPS0\r\nC 28  EPSS\r\nC 29  ESTAR\r\nC 30  SIGXS\r\nC 31  SIGYS\r\nC 32  SIGXXS\r\nC 33  U(A) (3X1)\r\nC 36  U(B) (3X1)\r\nC 39  U(C) (3X1)\r\nC 42  U(D) (3X1)\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(26), NECPTS(26)\r\nC\r\n      COMMON /PLA42E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1     UI(12),  DUMMY(56)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF (IDUM2.EQ.2) GO TO 150\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\n      NECPTS(5) = 10\r\nC\r\n      CALL PKTQ1(4)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTQ2(4)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\nC\r\n   80 ESTAR = 0.0\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKTRQD(4)\r\n      RETURN\r\n  150 CALL MESAGE(30,38,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqdm.f",
    "content": "      SUBROUTINE PKQDM\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD-MEMBRANE CALCULATIONS IN\r\nC  PLA4\r\nC\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = GRID POINT D                        NGRID(4)  INTEGER\r\nC       ECPT( 6) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 7) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 8) = T                                   T         REAL\r\nC       ECPT( 9) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT(10) = COORD. SYSTEM ID 1                  NECPT(10) INTEGER\r\nC       ECPT(11) = X1                                  X1        REAL\r\nC       ECPT(12) = Y1                                  Y1        REAL\r\nC       ECPT(13) = Z1                                  Z1        REAL\r\nC       ECPT(14) = COORD. SYSTEM ID 2                  NECPT(14) INTEGER\r\nC       ECPT(15) = X2                                  X2        REAL\r\nC       ECPT(16) = Y2                                  Y2        REAL\r\nC       ECPT(17) = Z2                                  Z2        REAL\r\nC       ECPT(18) = COORD. SYSTEM ID 3                  NECPT(18) INTEGER\r\nC       ECPT(19) = X3                                  X3        REAL\r\nC       ECPT(20) = Y3                                  Y3        REAL\r\nC       ECPT(21) = Z3                                  Z3        REAL\r\nC       ECPT(22) = COORD. SYSTEM ID 4                  NECPT(22) INTEGER\r\nC       ECPT(23) = X4                                  X4        REAL\r\nC       ECPT(24) = Y4                                  Y4        REAL\r\nC       ECPT(25) = Z4                                  Z4        REAL\r\nC       ECPT(26) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC       ECPT(27) = STRAIN (MINUS ONE)                  EPS0      REAL\r\nC       ECPT(28) = STRAIN (PRESENT)                    EPSS      REAL\r\nC       ECPT(29) = MODULUS OF ELASTICITY               ESTAR     REAL\r\nC       ECPT(30) = STRESS SUB X                        SIGXS     REAL\r\nC       ECPT(31) = STRESS SUB Y                        SIGYS     REAL\r\nC       ECPT(32) = STRESS SUB XY                       SIGXYS    REAL\r\nC       ECPT(33) = DISPLACEMENT VECTOR   A1            UI(1)     REAL\r\nC       ECPT(34) = DISPLACEMENT VECTOR   A2            UI(2)     REAL\r\nC       ECPT(35) = DISPLACEMENT VECTOR   A3            UI(3)     REAL\r\nC       ECPT(36) = DISPLACEMENT VECTOR   B1            UI(4)     REAL\r\nC       ECPT(37) = DISPLACEMENT VECTOR   B2            UI(5)     REAL\r\nC       ECPT(38) = DISPLACEMENT VECTOR   B3            UI(6)     REAL\r\nC       ECPT(39) = DISPLACEMENT VECTOR   C1            UI(7)     REAL\r\nC       ECPT(40) = DISPLACEMENT VECTOR   C2            UI(8)     REAL\r\nC       ECPT(41) = DISPLACEMENT VECTOR   C3            UI(9)     REAL\r\nC       ECPT(42) = DISPLACEMENT VECTOR   D1            UI(10)    REAL\r\nC       ECPT(43) = DISPLACEMENT VECTOR   D2            UI(11)    REAL\r\nC       ECPT(44) = DISPLACEMENT VECTOR   D3            UI(12)    REAL\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(26), NECPTS(26)\r\nC\r\n      COMMON /PLA42E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1              UI(12),DUMMY(56)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\nC  TAKE THIS OUT   AND THE -C- IN THE NEXT CARD\r\nC     IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\n      NECPTS(5) = 10\r\nC\r\n      CALL PKQDM1\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTRQ2(2)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 +GAMMA*DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\nC\r\n   80 ESTAR = 0.0\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKQDMS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqdm1.f",
    "content": "      SUBROUTINE PKQDM1\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR THE QUAD-MEMBRAND IN\r\nC   PLA4\r\nC\r\n      REAL IVEC,JVEC,KVEC\r\n      INTEGER NECPT(100)\r\n      DIMENSION M(12),R(6),NGRID(4),COORD(16),S(27)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA42C/ DUMCL(149),NOGO\r\n      COMMON /PLA42S/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3),\r\n     1 A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H,V(8),ECPTSA(36),\r\n     2 ST(3),NCOORD,NPOINT,NSUB1,NSUB2,NSUB3,T(9),COSANG,SINANG,U1,U2,\r\n     3  THETA, DUMY(85)\r\n      COMMON /PLA4ES/ ECPT(100),PH1OUT(200)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (NECPT(1),ECPT(1))\r\n      EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)),\r\n     1   (COORD(1),ECPTSA(10))  ,  (S(1),PH1OUT(10))\r\nC\r\n      DATA  M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         SQDME1                     STRME1\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4    NOTE. THE FOLLOWING ARE INTEGERS...\r\nC     ECPT(23) = X4                  GRID POINTS, MAT ID, EL.ID,\r\nC     ECPT(24) = Y4                  COORD. SYS. IDS.\r\nC     ECPT(25) = Z4                  ALL OTHERS ARE REAL IN THE ECPT.\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ******************************************************************\r\nC\r\nC\r\nC     VECTORS D1 AND D2  FMMS-46 PAGE 6\r\nC     A1 A2 A3 A4\r\nC\r\n      DO 10 I=1,3\r\n      D1(I) = ECPT(I + 18) - ECPT(I + 10)\r\n      D2(I) = ECPT(I + 22) - ECPT(I + 14)\r\n      A1(I) = ECPT(I + 14) - ECPT(I + 10)\r\n      A2(I) = ECPT(I + 18) - ECPT(I + 14)\r\n      A3(I) = ECPT(I + 22) - ECPT(I + 18)\r\n   10 A4(I) = ECPT(I + 10) - ECPT(I + 22)\r\nC\r\nC     K-VECTOR = NORMALIZED D1 CROSS D2\r\nC\r\n      KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2)\r\n      KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3)\r\n      KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1)\r\n      VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 )\r\n      IF (VECL.LT.1.0E-06) GO TO 120\r\n      KVEC(1) = KVEC(1)/VECL\r\n      KVEC(2) = KVEC(2)/VECL\r\n      KVEC(3) = KVEC(3)/VECL\r\nC\r\nC     I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR\r\nC     GET H FIRST = ( A SUB 12 DOT KVECTOR)/2\r\nC\r\n      H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0\r\nC\r\n      IVEC(1) = A1(1) - H * KVEC(1)\r\n      IVEC(2) = A1(2) - H * KVEC(2)\r\n      IVEC(3) = A1(3) - H * KVEC(3)\r\n      VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 )\r\n      IF (VECL.LT.1.0E-06) GO TO 120\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\nC\r\nC     J-VECTOR = K CROSS I\r\nC\r\n      JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2)\r\n      JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3)\r\n      JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1)\r\nC\r\n      VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2)\r\n      JVEC(1) = JVEC(1)/VECL\r\n      JVEC(2) = JVEC(2)/VECL\r\n      JVEC(3) = JVEC(3)/VECL\r\nC\r\n      THETA = ECPT(6) * DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      V(1) = 1.0E0\r\n      V(2) = 0.0E0\r\nC\r\nC     R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR\r\nC\r\n      CALL GMMATS(R,2,3,0,  A2,3,1,0,  V(3))\r\n      CALL GMMATS(R,2,3,0,  A3,3,1,0,  V(5))\r\n      CALL GMMATS(R,2,3,0,  A4,3,1,0,  V(7))\r\nC\r\nC     NORMALIZE THE 4 2X1 V ARRAYS\r\nC\r\n      DO 20 I=1,4\r\n      VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 )\r\n      IF(VECL .LT. 1.0E-10) CALL MESAGE(-30,26,ECPT(1))\r\n      V(2*I-1) = V(2*I-1)/VECL\r\n   20 V(2*I  ) = V(2*I  )/VECL\r\nC\r\nC     MAPPING MATRIX M IS IN DATA STATEMENT.\r\nC\r\nC     NOW MAKE 4 CALLS TO PKTRM1 WHICH WILL RETURN\r\nC     S , S , S , S , T SUB 0\r\nC      A   B   C   T\r\nC\r\nC     SAVE GRID SILS AND COORDINATE SYSTEMS.\r\nC\r\n      DO 30 I=1,36\r\n   30 ECPTSA(I) = ECPT(I)\r\nC\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)\r\n      ECPT(8) = ECPT(9)\r\nC\r\nC     ZERO OUT SUM MATRICES\r\nC\r\n      DO 40 I=1,36\r\n   40 SUM(I) = 0.0E0\r\n      ST(1) = 0.0E0\r\n      ST(2) = 0.0E0\r\n      ST(3) = 0.0E0\r\nC\r\n      DO 90 I=1,4\r\nC\r\nC     POINTER TO THE SILS IN THE MAPPING MATRIX\r\n      NCOORD = 8\r\n      NPOINT = 3*I-3\r\n      DO 60 J=2,4\r\n      NPOINT = NPOINT + 1\r\n      NSUB1 = M(NPOINT)\r\n      DO 50 K=1,4\r\n      NSUB3 = 4*NSUB1 - 4 + K\r\n      NCOORD = NCOORD + 1\r\n   50 ECPT(NCOORD) = COORD(NSUB3)\r\n   60 NECPT(J) = NGRID( NSUB1 )\r\nC\r\nC     SET UP T MATRIX FOR THIS TRIANGLE.  T IS 3X3\r\nC\r\n      U1 = V(2*I-1)\r\n      U2 = V(2*I  )\r\nC\r\n      T(1) = U1 ** 2\r\n      T(2) = U2 ** 2\r\n      T(7) = U1 * U2\r\n      T(3) = -2.0E0 * T(7)\r\n      T(4) = T(2)\r\n      T(5) = T(1)\r\n      T(6) = -T(3)\r\n      T(8) = -T(7)\r\n      T(9) = T(1) - T(2)\r\nC\r\nC     COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY\r\nC\r\n      SINTH = SINANG * U1 - COSANG * U2\r\n      COSTH = COSANG * U1 + SINANG * U2\r\nC\r\n      CALL PKTRM1 (1)\r\nC\r\nC\r\nC     NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM\r\nC     MATRICES.\r\nC\r\n      DO 80 J=1,3\r\nC\r\nC     POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX\r\nC\r\n      NPOINT = 3*I-3\r\nC\r\nC     TRANSFORM S\r\nC\r\n      CALL GMMATS( T,3,3,0,  S(9*J-8),3,3,0,  STEMP )\r\nC\r\nC     ADD STEMP INTO RESPECTIVE KSUM POSITIONS\r\nC\r\nC     ZERO POINTER INTO KSUM MATRICES\r\n      NSUB1 = NPOINT + J\r\n      NSUB1 = M(NSUB1)*9 - 9\r\n      DO 70 K=1,9\r\n      NSUB1 = NSUB1 + 1\r\n   70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K)\r\n   80 CONTINUE\r\n   90 CONTINUE\r\nC\r\nC     ALL MATRICES COMPLETE\r\nC\r\nC     FILL OUTPUT BLOCK\r\nC\r\n      DO 100 I=1,5\r\n  100 PH1OUT(I) = ECPTSA(I)\r\n      DO 110 I=1,36\r\n  110 PH1OUT(I+9) = 0.25E0 * SUM(I)\r\nC     PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS\r\nC\r\n      RETURN\r\n  120 CALL MESAGE(30,26,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqdms.f",
    "content": "      SUBROUTINE PKQDMS\r\nC THIS SUBROUTINE CALCULATES AND SHIPS TO PLA4B THE STIFFNESS MATRIX FOR\r\nC PLA4\r\nC     *** QUADRILATERAL MEMBRANE SUBROUTINE ***\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING\r\nC\r\nC                 PKTRMS - TRIANGULAR MEMBRANE SUBROUTINE\r\nC                 PLA4B  - INSERTION ROUTINE\r\nC                MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      DOUBLE PRECISION KIJ,KSUM,K3X3,TEMP\r\n      REAL IVEC,JVEC,KVEC\r\nC\r\n      DIMENSION          M(12)\r\n     1                  ,K3X3(27)\r\n     2                  ,NECPT(5)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA4ES/ ECPT(100)\r\n      COMMON /PLA42C/ NPVT   , DUM1(3)\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLA42D/  KIJ(36),DUM7(156),KSUM(36),TEMP,COSANG,SINANG,\r\n     1VECL,IVEC(3),JVEC(3),KVEC(3),PVEC(3),VSUBK(3),V(3),SI(3),\r\n     2  NPIVOT,MPOINT,MI,NSUBSC,NGRID(4),U1,U2,COORD(16),DUMM8(248)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (K3X3  ( 1),KIJ   ( 1))\r\n     1                  ,(NECPT ( 1),ECPT  ( 1))\r\nC\r\n      DATA  M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         KQDMEM                     KTRMEM\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4    NOTE. THE FOLLOWING ARE INTEGERS...\r\nC     ECPT(23) = X4                  GRID POINTS, MAT ID, EL.ID,\r\nC     ECPT(24) = Y4                  COORD. SYS. IDS.\r\nC     ECPT(25) = Z4                  ALL OTHERS ARE REAL IN THE ECPT.\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ******************************************************************\r\nC\r\nC     THE FOLLOWING COMPUTATION IS PERFORMED FOR USE WITH THE\r\nC     COMPUTATION OF SINTH AND COSTH BELOW (ANISOTROPIC MATERIAL\r\nC     POSSIBILITY)  NOTE  FMMS-46 PAGE -9-\r\nC\r\n      ANGL = ECPT(6) * DEGRA\r\n      COSANG = COS( ANGL )\r\n      SINANG = SIN( ANGL )\r\n      IVEC(1) = ECPT(15) - ECPT(11)\r\n      IVEC(2) = ECPT(16) - ECPT(12)\r\n      IVEC(3) = ECPT(17) - ECPT(13)\r\n      VECL = SQRT( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 200\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\n      VSUBK(1) =IVEC(2) *(ECPT(25)-ECPT(13))-IVEC(3)*(ECPT(24)-ECPT(12))\r\n      VSUBK(2) =IVEC(3) *(ECPT(23)-ECPT(11))-IVEC(1)*(ECPT(25)-ECPT(13))\r\n      VSUBK(3) =IVEC(1) *(ECPT(24)-ECPT(12))-IVEC(2)*(ECPT(23)-ECPT(11))\r\n      VECL = SQRT(VSUBK(1)**2 + VSUBK(2)**2 + VSUBK(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 200\r\n      KVEC(1) = VSUBK(1)/VECL\r\n      KVEC(2) = VSUBK(2)/VECL\r\n      KVEC(3) = VSUBK(3)/VECL\r\n      JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2)\r\n      JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3)\r\n      JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1)\r\n      DO 10 I=1,3\r\n   10 PVEC(I) = COSANG * IVEC(I) + SINANG * JVEC(I)\r\nC\r\nC\r\nC     SAVE COORDINATE SYSTEMS AND GRID POINT SIL NUMBERS\r\nC\r\n      NGRID(1) = NECPT(2)\r\n      NGRID(2) = NECPT(3)\r\n      NGRID(3) = NECPT(4)\r\n      NGRID(4) = NECPT(5)\r\n      DO 20 I=1,16\r\n   20 COORD(I) = ECPT(I + 9)\r\nC\r\nC     NOTE. COORD 1, 5, 9, AND 13  ARE INTEGER CSID NUMBERS.\r\nC\r\nC     CORRECT ECPT FOR MEMBRANE USE\r\n      ECPT(5) = ECPT(6)\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)/2.0E0\r\n      ECPT(8) = ECPT(9)\r\nC\r\nC     FOR EACH TRIANGLE THEN THE THREE GRID POINTS AND COORDINATES\r\nC     ARE INSERTED INTO THE ECPT BEFORE THE CALL TO KTRMEM.\r\nC\r\nC     FILL MAP MATRIX  (PERFORMED IN DATA STATEMENT - DO NOT ALTER)\r\nC              A              B              C\r\nC           M1 = 1         M2 = 2         M3 = 4      (TRIANGLE    I)\r\nC\r\nC           M4 = 2         M5 = 3         M6 = 1      (TRIANGLE   II)\r\nC\r\nC           M7 = 3         M8 = 4         M9 = 2      (TRIANGLE  III)\r\nC\r\nC           M10= 4         M11= 1         M12= 3      (TRIANGLE   IV)\r\nC\r\nC     ******************************************************************\r\nC     FIND WHICH POINT IS THE PIVOT POINT.\r\n      DO 30 I=1,4\r\n      IF(NPVT .NE. NGRID(I)) GO TO 30\r\n      NPIVOT = I\r\n      GO TO 40\r\n   30 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES AN ERROR CONDITION.\r\nC\r\n      CALL MESAGE(-30,34,ECPT(1))\r\nC\r\nC     COMPUTE JNOT WHICH EQUALS THE ONE TRIANGLE OF THE FOUR NOT USED\r\nC     AND THUS NOT COMPUTED FOR THE PIVOT POINT IN QUESTION.  (NOTE THE\r\nC     ROWS OF THE MAPPING MATRIX ABOVE AND THE TRIANGLE NUMBERS)\r\nC\r\n   40 IF(NPIVOT - 2)50,50,60\r\n   50 JNOT = NPIVOT + 2\r\n      GO TO 70\r\n   60 JNOT = NPIVOT - 2\r\nC\r\nC     ZERO OUT KSUM FOR 36\r\n   70 DO 80 I=1,36\r\n   80 KSUM(I) = 0.0D0\r\nC\r\n      DO 150 J=1,4\r\n      IF (J .EQ. JNOT) GO TO 150\r\nC\r\nC     FILL IN ECPT FOR TRIANGLE J\r\n      MPOINT = 3*J - 3\r\n      DO 100 I=1,3\r\n      NPT1 = MPOINT + I\r\n      NSUBSC = M(NPT1)\r\n      NECPT(I+1) = NGRID(NSUBSC)\r\nC\r\n      NPT1 = 4*NSUBSC - 4\r\n      DO 90 K=1,4\r\n      NPT2 = NPT1 + K\r\n      NPT3 = 4*I + 4 + K\r\n   90 ECPT(NPT3) = COORD(NPT2)\r\n  100 CONTINUE\r\nC\r\nC     ECPT IS COMPLETE FOR TRIANGLE J\r\nC\r\nC     SET UP SINTH AND COSTH FOR THIS SUB TRIANGLE\r\nC\r\n      IF( J.NE.1 ) GO TO 110\r\n      SINTH = SINANG\r\n      COSTH = COSANG\r\n      GO TO 120\r\nC\r\nC     NOTE FMMS-46 PAGE-9 FOR FOLLOWING\r\nC\r\n  110 V(1) = ECPT(14) - ECPT(10)\r\n      V(2) = ECPT(15) - ECPT(11)\r\n      V(3) = ECPT(16) - ECPT(12)\r\n      VECL = SQRT( V(1)**2 + V(2)**2 + V(3)**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 200\r\n      U1 = ( V(1)*PVEC(1) + V(2)*PVEC(2) + V(3)*PVEC(3) )/VECL\r\n      SI(1) = V(2) * PVEC(3) - V(3) * PVEC(2)\r\n      SI(2) = V(3) * PVEC(1) - V(1) * PVEC(3)\r\n      SI(3) = V(1) * PVEC(2) - V(2) * PVEC(1)\r\n      U2 = ( SI(1)*KVEC(1) + SI(2)*KVEC(2) + SI(3)*KVEC(3) )/VECL\r\n      VECL = SQRT( U1**2 + U2**2 )\r\n      IF (VECL.EQ.0.0E0) GO TO 200\r\n      U1 = U1 / VECL\r\n      U2 = U2 / VECL\r\n      SINTH = SINANG * U1 - COSANG * U2\r\n      COSTH = COSANG * U1 + SINANG * U2\r\n  120 IF( ABS(SINTH) .LT. 1.0E-06 ) SINTH = 0.0E0\r\nC\r\n      CALL PKTRMS(1)\r\nC\r\nC     RETURNING FROM PKTRMS THE 3 3X3 ARRAYS FOR THE PIVOT ARE STORED IN\r\nC     COMMON UNDER THE NAME   K3X3(27)\r\nC\r\nC     NOW ADD THE 3 3X3 ARRAYS INTO THE 4 3X3 ARRAYS OF KSUM\r\nC\r\n      DO 140 I=1,3\r\n      NPT1 = 9*I - 9\r\nC     NPT1   POINTS TO THE ZERO POSITION OF THE I-TH K3X3.\r\nC     MPOINT POINTS TO THE ZERO POSITION OF THE J-TH ROW OF MAP MATRIX\r\nC\r\n      MI = MPOINT + I\r\n      NPT2 = 9 * M(MI) - 9\r\nC     NPT2 NOW POINTS TO THE ZERO POSITION OF THE  M(MI) TH  SUM MATRIX\r\nC\r\n      DO 130 K=1,9\r\n      NPT3 = NPT2 + K\r\n      MI   = NPT1 + K\r\n  130 KSUM(NPT3) = KSUM(NPT3) + K3X3(MI)\r\n  140 CONTINUE\r\nC\r\n  150 C O N T I N U E\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW INSERT EACH OF THE 4-KSUM (3X3) MATRICES INTO A 6X6 AND\r\nC     SHIP TO PLA4B\r\nC\r\n      DO 160 I=1,36\r\n  160 KIJ(I) = 0.0D0\r\nC\r\n      DO 190 J=1,4\r\n      MPOINT = 9*J - 9\r\nC     MPOINT POINTS TO THE ZERO POSITION OF THE J-TH KSUM 3X3.\r\n      KIJ( 1) = KSUM(MPOINT + 1)\r\n      KIJ( 2) = KSUM(MPOINT + 2)\r\n      KIJ( 3) = KSUM(MPOINT + 3)\r\n      KIJ( 7) = KSUM(MPOINT + 4)\r\n      KIJ( 8) = KSUM(MPOINT + 5)\r\n      KIJ( 9) = KSUM(MPOINT + 6)\r\n      KIJ(13) = KSUM(MPOINT + 7)\r\n      KIJ(14) = KSUM(MPOINT + 8)\r\n      KIJ(15) = KSUM(MPOINT + 9)\r\nC\r\nC     SHIP TO PLA4B\r\n      CALL PLA4B (KIJ(1), NGRID(J))\r\nC\r\n  190 CONTINUE\r\nC\r\n      RETURN\r\n  200 CALL MESAGE(30,26,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkqdpl.f",
    "content": "      SUBROUTINE PKQDPL\r\nC\r\nC     THIS ROUTINE CALCULATES THE STIFFNESS MATRIX FOR QUAD-PLATES IN\r\nC     PLA4\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC     FOUR 6X6 STIFFNESS MATRICES WITH RESPECT TO ONE PIVOT POINT OF A\r\nC     QUADRILATERAL PLATE ELEMENT.\r\nC\r\nC     REF.  FMMS-44   JULY  18, 1967   TRI.BENDING ELEMENT STIFF.\r\nC           FMMS-48   AUGUST 1, 1967   QUAD. BENDING ELEMENT STIFF.\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           PKTRBS - BASIC BENDING TRIANGLE\r\nC           TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC           PLA4B  - INSERTION ROUTINE\r\nC           GMMATD - GENERAL MATRIX MULITPLY AND TRANSPOSE ROUTINE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.-----TYPE       QUAD.PLT.---------TYPE\r\nC     ==================================================================\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\n      INTEGER          SUBSCA,SUBSCB,SUBSCC\r\n      DOUBLE PRECISION KOUT,TITE,TJTE,DPDUM1,DPDUM2,D1,D2,IVECT,JVECT,\r\n     1                 KVECT,A1,KSUM,T,V,VV,XSUBB,XSUBC,YSUBC,PROD9,\r\n     2                 TEMP,TEMP9,H,U1,U2,E,A,TEMP18,REQUIV,R\r\n      DIMENSION        M(12),NECPT(100),REQUIV(8),VQ1(3),VQ2(3),VQ3(3),\r\n     1                 VQ4(3),A(1)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                 G2X211,G2X212,G2X222\r\n      COMMON /PLA42C/  NPVT,DUM1(148),NOGO\r\n      COMMON /PLA4ES/  ECPT(100)\r\n      COMMON /PLA42D/  KOUT(36),TITE(18),TJTE(18),TEMP18(18),DPDUM1(54),\r\n     1                 IVECT(3),JVECT(3),KVECT(3),D1(3),D2(3),A1(3),\r\n     2                 T(9),V(2),VV(2),H,U1,U2,R(2,4),KSUM(36),\r\n     3                 DPDUM2(3),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,\r\n     4                 E(18),TEMP,SP1(28),SP2(2),KM,NBEGIN,JNOT,NPIVOT,\r\n     5                 THETA,NSUBC,ISING,SUBSCA,SUBSCB,SUBSCC,SINANG,\r\n     6                 COSANG,NPOINT\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)),\r\n     1                 (R(1,1),REQUIV(1)),(VQ1(1),ECPT(15)),\r\n     4                 (VQ2(1),ECPT(19)),(VQ3(1),ECPT(23)),\r\n     6                 (VQ4(1),ECPT(27)),(A(1),KOUT(1))\r\n      DATA    M     /  2,4,1, 3,1,2, 4,2,3, 1,3,4 /\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I = 1,4\r\n      IF (NPVT .NE. NECPT(I+1)) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\n   20 THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      IF (NPIVOT-2) 30,30,40\r\n   30 JNOT = NPIVOT + 2\r\n      GO TO 50\r\n   40 JNOT = NPIVOT - 2\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES.  (2X4) FOR QUADRILATERAL PLATE...\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n   50 DO 60 I = 1,8\r\n   60 REQUIV(I) = 0.0D0\r\nC\r\nC     SHIFT ECPT UP TO MATCH PKTRBS FOR CERTAIN VARIABLES.\r\nC\r\n      DO 80 I = 6,12\r\n   80 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 90 I = 1,3\r\n      D1(I) = DBLE(VQ3(I)) - DBLE(VQ1(I))\r\n      D2(I) = DBLE(VQ4(I)) - DBLE(VQ2(I))\r\n   90 A1(I) = DBLE(VQ2(I)) - DBLE(VQ1(I))\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = DSQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 100 I = 1,3\r\n  100 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT)/2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0D0\r\nC\r\nC     I-VECTOR =(A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 110 I = 1,3\r\n  110 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = DSQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 120 I = 1,3\r\n  120 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K CROSS I, AND X3 CALCULATION\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP =  DSQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      IF (TEMP .EQ. 0.0D0) GO TO 330\r\n      DO 130 I = 1,3\r\n  130 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0D0 .OR. R(2,4).LE.0.0D0) GO TO 140\r\n      TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 140\r\n      TEMP = R(2,3)*R(1,4)/ R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 150\r\n  140 CALL MESAGE (30,35,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC 140 AT 140 THE COORDINATES OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC\r\nC     ZERO OUT KSUM MATRICES\r\nC\r\n  150 DO 160 I = 1,36\r\n  160 KSUM(I) = 0.0D0\r\nC\r\n      DO 220 J = 1,4\r\n      IF (J .EQ. JNOT) GO TO 220\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 170 I = 1,2\r\n      V(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  170 VV(I)= R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT(V(1)**2 + V(2)**2)\r\n      U1 = V(1)/XSUBB\r\n      U2 = V(2)/XSUBB\r\n      XSUBC = U1*VV(1) + U2*VV(2)\r\n      YSUBC = U1*VV(2) - U2*VV(1)\r\nC\r\n      SINTH = SINANG*U1  -  COSANG*U2\r\n      COSTH = COSANG*U1  +  SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL PKTRBS (1)\r\nC                         U\r\nC     NOW HAVE AT HAND  K    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC     MAP THE 3 3X3-S FOR THE PIVOT ROW INTO THE SUMMATION ARRAYS...\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     FIND WHICH POINT OF THE SUBTRIANGLE IS ALSO THE PIVOT OF THE\r\nC     QUADRILATERAL\r\nC\r\n      DO 180 I = 1,3\r\n      NPOINT = KM + I\r\n      IF (M(NPOINT) .NE. NPIVOT) GO TO 180\r\n      NBEGIN = 27*I - 27\r\n      GO TO 190\r\n  180 CONTINUE\r\nC\r\n  190 DO 210 I = 1,3\r\n      NPOINT = NBEGIN + 9*I - 8\r\n      CALL GMMATD (T,3,3,1, A(NPOINT),3,3,0, TEMP9)\r\n      CALL GMMATD (TEMP9,3,3,0, T,3,3,0, PROD9)\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\n      DO 200 K = 1,9\r\n      NPOINT = NPOINT + 1\r\n  200 KSUM(NPOINT) = KSUM(NPOINT) + PROD9(K)/2.0D0\r\n  210 CONTINUE\r\nC\r\n  220 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 230 I = 1,18\r\n  230 E(I)  = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF (NECPT(4*NPIVOT+10) .EQ. 0) GO TO 240\r\n      CALL TRANSD (NECPT(4*NPIVOT+10),T)\r\n      CALL GMMATD (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 260\r\nC\r\n  240 DO 250 K = 1,18\r\n  250 TITE(K) = E(K)\r\nC\r\n  260 DO 320 J = 1,4\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF (NECPT(4*J+10) .EQ. 0) GO TO 270\r\n      CALL TRANSD (NECPT(4*J+10),T)\r\n      CALL GMMATD (T,3,3,1,  E(1),3,3,0, TJTE(1 ))\r\n      CALL GMMATD (T,3,3,1, E(10),3,3,0, TJTE(10))\r\n      GO TO 290\r\n  270 DO 280 K = 1,18\r\n  280 TJTE(K) = E(K)\r\n  290 CALL GMMATD (KSUM(9*J-8),3,3,0, TJTE,6,3,1, TEMP18(1))\r\n      CALL GMMATD (TITE(1),6,3,0, TEMP18(1),3,6,0, KOUT(1))\r\n      CALL PLA4B (KOUT(1),NECPT(J+1))\r\nC\r\n  320 CONTINUE\r\n      RETURN\r\nC\r\n  330 CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pkrod.f",
    "content": "      SUBROUTINE PKROD\r\nC\r\nC     THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES  K(NPVT,NPVT) AND\r\nC     K(NPVT,J) FOR A ROD HAVING END POINTS NUMBERED NPVT AND J.\r\nC\r\nC     ECPT FOR THE ROD\r\nC     ================                                              CARD\r\nC                                                      TYPE  TABLE  TYPE\r\nC     ECPT( 1)ELEMENT ID.                                I    ECT   CROD\r\nC     ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A       I    ECT   CROD\r\nC     ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B       I    ECT   CROD\r\nC     ECPT( 4)MATERIAL ID.                               I    EPT   PROD\r\nC     ECPT( 5)AREA  (A)                                  R    EPT   PROD\r\nC     ECPT( 6)POLAR MOMENT OF INERTIA (J)                R    EPT   PROD\r\nC     ECPT( 7) TORSIONAL STRESS COEFF (C)                R    EPT   PROD\r\nC     ECPT( 8) NON-STRUCTRAL MASS (MU)                   R    EPT   PROD\r\nC     ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A       I   BGPDT  GRID\r\nC     ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC     ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC     ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC     ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B       I   BGPDT\r\nC     ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC     ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC     ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC     ECPT(17) ELEMENT TEMPERATURE\r\nC     ECPT(18) PREVIOUS STRAIN VALUE, ONCE REMOVED (EPSIN1)\r\nC     ECPT(19) PREVIOUS STRAIN VALUE (EPSIN2)\r\nC     ECPT(20) PREVIOUSLY COMPUTED VALUE OF MODULUS OF ELASTICITY, ESTAR\r\nC     ECPT(21) DISPLACEMENT COORDINATES FOR GRID POINT A\r\nC     ECPT(22)                   . . .\r\nC     ECPT(23)                   . . .\r\nC     ECPT(24) DISPLACEMENT COORDINATES FOR GRID POINT B\r\nC     ECPT(25)                   . . .\r\nC     ECPT(26)                   . . .\r\nC\r\n      DOUBLE PRECISION D(18),X,Y,Z,XL,XN(3),UA(6),UB(6),TA(9),TB(9),E,G,\r\n     1                 DIFF(3),DPTERM,EPSIN1,EPSIN2,DEPS1,DEPS2,EPS1,\r\n     2                 EPS2,GAMMA,GAMMAS,SIGMA1,SIGMA2,DSCL,DSCR,KE(36)\r\n      DIMENSION        IECPT(200)\r\nC\r\nC     PLA42 PARAMETERS COMMUNICATION BLOCK\r\n      COMMON /PLA42C/  NPVT,G NEW,G OLD,DUMCL(146),NOGO\r\n     1\r\nC\r\nC     ECPT COMMON BLOCK\r\n      COMMON /PLA42E/  ECPT(100)\r\nC\r\nC     PLA42 LOCAL VARIABLE (SCRATCH) BLOCK\r\n      COMMON /PLA42D/  D,X,Y,Z,XL,XN,UA,UB,TA,TB,DIFF,DPTERM,EPSIN1,\r\n     1                 EPSIN2,DEPS1,DEPS2,EPS1,EPS2,GAMMA,GAMMAS,\r\n     2                 SIGMA1,SIGMA2,DSCL,DSCR,E,G,KE\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\n      COMMON /MATIN /  MATIDC,MATFLG,TEMDUM,PLAARG,MATDUM(2)\r\n      COMMON /MATOUT/  E SUB 0,G SUB 0,DUMMAT(18)\r\n      EQUIVALENCE      (IECPT(1),ECPT(1)) ,(PLAANS,ESUB0)\r\nC\r\nC     BEGIN EXECUTION\r\nC\r\n      IND = 0\r\n      IF (IECPT(2) .EQ. NPVT) GO TO 10\r\n      IF (IECPT(3) .NE. NPVT) CALL MESAGE (-30,34,IECPT(1))\r\n      IND = 1\r\n      ITEMP = IECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = ITEMP\r\n      KA  = 13\r\n      KB  =  9\r\n      IDISPA = 23\r\n      IDISPB = 20\r\n      GO TO 20\r\n   10 KA  =  9\r\n      KB  = 13\r\n      IDISPA = 20\r\n      IDISPB = 23\r\nC\r\nC     AT THIS POINT KA POINTS TO THE COOR. SYS. ID. OF THE PIVOT GRID\r\nC     POINT. SIMILARLY FOR KB AND THE NON-PIVOT GRID POINT.\r\nC     NOW COMPUTE THE LENGTH OF THE ROD.\r\nC\r\nC     WE STORE THE COORDINATES IN THE D ARRAY SO THAT ALL ARITHMETIC\r\nC     WILL BE DOUBLE PRECISION\r\nC\r\n   20 D(1) = ECPT(KA+1)\r\n      D(2) = ECPT(KA+2)\r\n      D(3) = ECPT(KA+3)\r\n      D(4) = ECPT(KB+1)\r\n      D(5) = ECPT(KB+2)\r\n      D(6) = ECPT(KB+3)\r\n      X    = D(1) - D(4)\r\n      Y    = D(2) - D(5)\r\n      Z    = D(3) - D(6)\r\n      XL = DSQRT(X**2 + Y**2 + Z**2)\r\n      IF (XL .NE. 0.0D0) GO TO 25\r\n      CALL MESAGE (30,26,IECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC     CALCULATE A NORMALIZED DIRECTION VECTOR IN BASIC COORDINATES.\r\nC\r\n   25 XN(1) = X/XL\r\n      XN(2) = Y/XL\r\n      XN(3) = Z/XL\r\nC\r\nC     STORE DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      UA(1) = ECPT(IDISPA+1)\r\n      UA(2) = ECPT(IDISPA+2)\r\n      UA(3) = ECPT(IDISPA+3)\r\n      UB(1) = ECPT(IDISPB+1)\r\n      UB(2) = ECPT(IDISPB+2)\r\n      UB(3) = ECPT(IDISPB+3)\r\nC\r\nC\r\nC     COMPUTE THE DIFFERENCE VECTOR DIFF =  T  * U   -  T  * U\r\nC                                            A    A      B    B\r\nC\r\n      IBASEA = 0\r\n      IF (IECPT(KA) .EQ. 0) GO TO 30\r\n      CALL TRANSD (ECPT(KA),TA)\r\n      IBASEA = 3\r\n      CALL GMMATD (TA,3,3,0, UA(1),3,1,0, UA(4))\r\n   30 IBASEB = 0\r\n      IF (IECPT(KB) .EQ. 0) GO TO 40\r\n      CALL TRANSD (ECPT(KB),TB)\r\n      IBASEB = 3\r\n      CALL GMMATD (TB,3,3,0, UB(1),3,1,0, UB(4))\r\n   40 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1)\r\n      DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2)\r\n      DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3)\r\nC\r\nC     COMPUTE DOT PRODUCT XN . DIFF\r\nC\r\n      CALL GMMATD (XN,3,1,1, DIFF,3,1,0, DPTERM)\r\nC\r\nC     COMPUTE INCREMENT OF STRAIN\r\nC\r\n      DEPS1  = DPTERM/XL\r\n      EPSIN1 = ECPT(18)\r\n      EPSIN2 = ECPT(19)\r\n      DEPS2  = EPSIN2 - EPSIN1\r\nC\r\nC     COMPUTE CURRENT STRAIN AND ESTIMATED NEXT STRAIN\r\nC\r\n      EPS1   = EPSIN2 + DEPS1\r\n      GAMMA  = G NEW\r\n      GAMMAS = G OLD\r\n      EPS2   = EPS1 + GAMMA*DEPS1\r\nC\r\nC     CALL MAT ROUTINE TWICE TO GET SIGMA1 AND SIGMA2 AS A FUNCTION OF\r\nC     EPS1 AND EPS2\r\nC\r\n      MATIDC = IECPT(4)\r\n      MATFLG = 6\r\n      PLAARG = EPS1\r\n      CALL MAT (IECPT(1))\r\n      SIGMA1 = PLAANS\r\n      PLAARG = EPS2\r\n      CALL MAT (IECPT(1))\r\n      SIGMA2 = PLAANS\r\nC\r\nC     ON THE FIRST PASS, I.E. WHEN ECPT(19) = 0.0, SIGMA1 = E  * EPS1\r\nC                                                            0\r\nC\r\n      IF (ECPT(19) .NE. 0.0) GO TO 41\r\n      MATFLG = 1\r\n      CALL MAT (IECPT(1))\r\n      D(2)   = E SUB 0\r\n      SIGMA1 = D(2)*EPS1\r\nC\r\nC     FOR STIFFNESS MATRIX GENERATION, COMPUTE THE NEW MATERIAL\r\nC     PROPERTIES\r\nC\r\n   41 IF (EPS1 .EQ. EPS2) GO TO 42\r\n      E = (SIGMA2-SIGMA1)/(EPS2-EPS1)\r\n      GO TO 44\r\n   42 E = ECPT(20)\r\nC\r\nC     CALL MAT ROUTINE TO GET ELASTIC MODULI.  STORE IN D.P. LOCATIONS.\r\nC\r\n   44 MATFLG = 1\r\n      CALL MAT (IECPT(1))\r\n      D(2) = E SUB 0\r\n      D(4) = GSUB0\r\nC\r\nC     SET UP STIFFNESS MATRIX CONSTANTS IN DSCL AND DSCR\r\nC\r\n      G    = E*D(4)/D(2)\r\n      D(1) = ECPT(5)\r\n      D(3) = ECPT(6)\r\n      DSCL = D(1)*E/XL\r\n      DSCR = D(3)*G/XL\r\nC\r\nC     SET UP THE -N- MATRIX AND STORE AT D(1)\r\nC\r\n      D(1) = XN(1)*XN(1)\r\n      D(2) = XN(1)*XN(2)\r\n      D(3) = XN(1)*XN(3)\r\n      D(4) = D(2)\r\n      D(5) = XN(2)*XN(2)\r\n      D(6) = XN(2)*XN(3)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = XN(3)*XN(3)\r\nC\r\nC     ZERO OUT THE 6X6 WHICH WILL BE USED FOR STORAGE OF\r\nC     KGG(NPVT,NONPVT), NONPVT = NPVT,J\r\nC\r\n      DO 50 I = 1,36\r\n   50 KE(I) = 0.0D0\r\n      NONPVT = 2\r\n      K2 = 1\r\nC\r\nC     IF PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 70\r\nC\r\n      IF (IECPT(KA) .EQ. 0) GO TO 70\r\n      CALL GMMATD (TA(1),3,3,1, D(1),3,3,0, D(10))\r\n      CALL GMMATD (D(10),3,3,0, TA(1),3,3,0, D(1))\r\nC\r\nC     AT THIS POINT D(1) CONTAINS THE MATRIX PRODUCT TAT*N*TA\r\nC     AND D(10) CONTAINS THE MATRIX PRODUCT TAT*N.\r\nC\r\n      ASSIGN 100 TO IRETRN\r\n      GO TO  80\r\n   70 ASSIGN 90 TO IRETRN\r\nC\r\nC     FILL THE KE MATRIX\r\nC\r\n   80 KE( 1) = DSCL*D(K2  )\r\n      KE( 2) = DSCL*D(K2+1)\r\n      KE( 3) = DSCL*D(K2+2)\r\n      KE( 7) = DSCL*D(K2+3)\r\n      KE( 8) = DSCL*D(K2+4)\r\n      KE( 9) = DSCL*D(K2+5)\r\n      KE(13) = DSCL*D(K2+6)\r\n      KE(14) = DSCL*D(K2+7)\r\n      KE(15) = DSCL*D(K2+8)\r\n      KE(22) = DSCR*D(K2  )\r\n      KE(23) = DSCR*D(K2+1)\r\n      KE(24) = DSCR*D(K2+2)\r\n      KE(28) = DSCR*D(K2+3)\r\n      KE(29) = DSCR*D(K2+4)\r\n      KE(30) = DSCR*D(K2+5)\r\n      KE(34) = DSCR*D(K2+6)\r\n      KE(35) = DSCR*D(K2+7)\r\n      KE(36) = DSCR*D(K2+8)\r\n      CALL PLA4B (KE,IECPT(NONPVT))\r\nC\r\nC     RETURN FROM FILL CODE W/ IRETRN =  90 IMPLIES G.P. A WAS IN BASIC\r\nC       .     .    .     .      .     = 100 IMPLIES G.P. A WAS NOT BASIC\r\nC       .     .    .     .      .     = 140 IMPLIES THE K(NPVT,NONPVT)\r\nC                                       HAS BEEN COMPUTED AND INSERTED\r\nC                                       AND HENCE WE ARE FINISHED.\r\nC\r\n      GO TO IRETRN, (90,100,140)\r\n   90 K1 = 1\r\n      K2 = 10\r\n      GO TO 110\r\n  100 K1 = 10\r\n      K2 = 1\r\n  110 NONPVT = 3\r\nC\r\nC     IF NON-PIVOT GRID POINT IS IN BASIC COORDINATES, GO TO 120\r\nC\r\n      IF (IECPT(KB) .EQ. 0) GO TO 120\r\nC\r\nC     RECALL THAT D(K1) CONTAINS TAT*N.\r\nC\r\n      CALL GMMATD (D(K1),3,3,0, TB(1),3,3,0, D(K2))\r\nC\r\nC     AT THIS POINT D(K2) CONTAINS TAT*N*TB.\r\nC\r\n      GO TO 130\r\n  120 K2 = K1\r\n  130 ASSIGN 140 TO IRETRN\r\nC\r\nC     SET CONSTANTS NEGATIVE TO PROPERLY COMPUTE K(NPVT,NONPVT)\r\nC\r\n      DSCR = -DSCR\r\n      DSCL = -DSCL\r\n      GO TO 80\r\nC\r\nC     A TRANSFER TO STATEMENT NO. 140 IMPLIES KGGNL CALCULATIONS HAVE\r\nC     BEEN COMPLETED.  UPDATE ECPT ARRAY.\r\nC\r\n  140 IF (IND .EQ. 0) GO TO 150\r\n      ITEMP    = IECPT(2)\r\n      IECPT(2) = IECPT(3)\r\n      IECPT(3) = ITEMP\r\n  150 ECPT(18) = ECPT(19)\r\n      ECPT(19) = EPS1\r\n      ECPT(20) = E\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktq1.f",
    "content": "      SUBROUTINE PKTQ1(NTYPE)\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA4\r\nC  FOR COMBINATION ELEMENTS\r\nC\r\nC**************** PHASE I  STRESS DATA RECOVERY ************************\r\nC *********************************************************-************\r\nC\r\nC     9/12/67         E C P T     L I S T I N G\r\nC                    ***************************\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC **********************************************************************\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC **********************************************************************\r\nC\r\n      DIMENSION SAVE(32)\r\nC\r\n      COMMON /PLA4ES/ ECPT(100), PH1OUT(173) ,DUMMY(27)\r\nC\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC              NTYPE = 1  IMPLIES STRIA1\r\nC              NTYPE = 2  IMPLIES STRIA2\r\nC              NTYPE = 3  IMPLIES SQUAD1\r\nC              NTYPE = 4  IMPLIES SQUAD2\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I=1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC              STRIA1    STRIA2    SQUAD1    SQUAD2\r\n      GO TO(20,100,150,230),NTYPE\r\nC\r\nC     **************\r\nC     *** STRIA1 ***\r\nC     **************\r\nC\r\nC     SET UP ECPT FOR PKTRM1, FIRST CHECK T1 FOR ZERO\r\n   20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50\r\n      DO 30 I=9,21\r\n   30 ECPT(I) = SAVE(I + 6)\r\nC\r\n      CALL PKTRM1 (0)\r\nC\r\nC     MOVE OUTPUT FROM PKTRM1 TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (99 THRU 134)\r\nC\r\nC\r\n      DO 40 I=1,36\r\n   40 PH1OUT(I + 98) = PH1OUT(I)\r\n      RETURN\r\n   50 PH1OUT( 99) = ECPT(1)\r\n      PH1OUT(100) = 0.0E0\r\n      RETURN\r\nC\r\nC\r\nC     **************\r\nC     *** STRIA2 ***\r\nC     **************\r\n  100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140\r\nC     SET UP CALL TO PKTRM1\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PKTRM1(0)\r\nC\r\nC     MOVE OUTPUT FROM PKTRM1 TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (99 THRU 134)\r\nC\r\n      DO 110 I=1,36\r\n  110 PH1OUT(I + 98) = PH1OUT(I)\r\n      RETURN\r\nC\r\n  140 PH1OUT( 99) = ECPT(1)\r\n      PH1OUT(100) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC     *** SQUAD1 ***\r\nC     **************\r\nC\r\n  150 IF(SAVE(8).EQ.0.0E0)GO TO 180\r\nC\r\nC     SET UP CALL TO PKQDM1\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 160 I=10,26\r\n  160 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL PKQDM1\r\nC\r\nC     MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (129 THRU 173)\r\nC\r\n      DO 170 I=1,45\r\n  170 PH1OUT(I + 128) = PH1OUT(I)\r\nC\r\n      RETURN\r\n  180 PH1OUT(129) = ECPT(1)\r\n      PH1OUT(130) = 0.0E0\r\n      RETURN\r\nC\r\nC\r\nC     **************\r\nC     *** SQUAD2 ***\r\nC     **************\r\nC\r\n  230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270\r\nC\r\nC     SET UP CALL TO PKQDM1\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PKQDM1\r\nC\r\nC     MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (129 THRU 173)\r\nC\r\n      DO 240 I=1,45\r\n  240 PH1OUT(I + 128) = PH1OUT(I)\r\n      RETURN\r\nC\r\n  270 PH1OUT(129) = ECPT(1)\r\n      PH1OUT(130) = 0.0E0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktq2.f",
    "content": "      SUBROUTINE PKTQ2 (NPTS)\r\nC\r\nC     THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA4 FOR COMBINATION\r\nC     ELEMENTS\r\nC\r\nC     **** PHASE II OF STRESS DATA RECOVERY *********\r\nC\r\nC     NPTS = 3 IMPLIES STRIA1 OR STRIA2  (PHASE II)\r\nC     NPTS = 4 IMPLIES SQUAD1 OR SQUAD2  (PHASE II)\r\nC\r\n      DIMENSION       NSIL(4),NPH1OU(1),SI(36)\r\n      COMMON /PLA4UV/ IVEC,Z(24)\r\n      COMMON /PLA4ES/ PH1OUT(300)\r\n      COMMON /PLA42S/ STRESS(3),TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM,\r\n     1                Z1OVRI, Z2OVRI,DUM1(308)\r\n      EQUIVALENCE     (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)),\r\n     1                (SI(1),PH1OUT(9))\r\nC\r\nC     PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING\r\nC     NOTE..BEGIN = 30*NPTS+8\r\nC\r\nC     PH1OUT(BEGIN+ 1)               ELEMENT ID\r\nC     PH1OUT(BEGIN+ 2 THRU BEGIN +5) 3 SILS AND DUMMY OR 4 SILS\r\nC     PH1OUT(BEGIN+ 6 THRU BEGIN +9) DUMMY\r\nC     PH1OUT(BEGIN+10 THRU BEGIN +9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS\r\nC\r\nC\r\nC     FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION\r\nC\r\n      IF (NPH1OU(30*NPTS+10) .EQ. 0) RETURN\r\nC\r\nC                       I=NPTS\r\nC     STRESS VECTOR = (SUMMATION(S )(U ))\r\nC                       I=1       I   I\r\nC\r\n      DO 60 I = 1,NPTS\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\nC\r\n      NPOINT = 30*NPTS + 9 + I\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NPH1OU(NPOINT) - 1\r\nC\r\nC     POINTER TO S SUB I 3X3\r\nC\r\n      NPT1 = 30*NPTS + 9 + 9*I\r\nC\r\n      CALL GMMATS (PH1OUT(NPT1),3,3,0, Z(NPOINT),3,1,0, VEC(1))\r\nC\r\n      DO 50 J = 1,3\r\n   50 STRESS(J) = STRESS(J) + VEC(J)\r\nC\r\n   60 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrbs.f",
    "content": "      SUBROUTINE PKTRBS (IOPT)\r\nC\r\nC     BASIC BENDING TRIANGLE ELEMENT ROUTINE\r\nC\r\nC     THIS ROUTINE DOES SUB-CALCULATIONS FOR TRI OR QUAD PLATES IN PLA4\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC          MAT    - MATERIAL DATA ROUTINE\r\nC\r\nC     PLAMAT - ROTATES AND RETURNS GP MATRIX\r\nC          TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER\r\nC          INVERD - DOUBLE PRECISION INVERSE ROUTINE\r\nC          GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC          MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IOPT = 1   IMPLIES COMPUTE ONLY THE NINE (3X3)MATRICES\r\nC                WHICH FORM THE 9X9 K SUPER U - MATRIX.\r\nC     IOPT = 2   SAME AS IOPT = 1,BUT SAVE H-INVERSE AND S\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE          NAME IN\r\nC                                                   THIS\r\nC     ECPT                                          ROUTINE   TYPE\r\nC     ------------------------------------        -------------------\r\nC     ECPT( 1) = ELEMENT ID                         NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                       NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                       NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                       NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL          ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                      MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA              EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                      MATID2    INTEGER\r\nC     ECPT( 9) = T2                                 T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                FMU       REAL\r\nC     ECPT(11) = Z1                                 Z11       REAL\r\nC     ECPT(12) = Z2                                 Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                 NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                 X1        REAL\r\nC     ECPT(15) = Y1                                 Y1        REAL\r\nC     ECPT(16) = Z1                                 Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                 NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                 X2        REAL\r\nC     ECPT(19) = Y2                                 Y2        REAL\r\nC     ECPT(20) = Z2                                 Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                 NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                 X3        REAL\r\nC     ECPT(23) = Y3                                 Y3        REAL\r\nC     ECPT(24) = Z3                                 Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                ELTEMP    REAL\r\nC\r\n      INTEGER          SUBSCA,SUBSCB\r\n      DOUBLE PRECISION A,E,XSUBB,TEMP,XSUBC,D,YSUBC,XCYC,XCSQ,DETERM,\r\n     1                 YCSQ,XBSQ,G2X2,TITE,TJTE,S,TI,J2X2,AREA,G,XBAR,\r\n     2                 YBAR,PX2,PY2,PXY2,XBAR3,YBAR2,YBAR3,PROD9,TEMP9\r\n      DIMENSION        D(9),G2X2(4),J2X2(4),S(18),ECPT(1),G(9),TJTE(18),\r\n     1                 TITE(18),TI(9)\r\n      COMMON /PLA42C/  NPVT,DUM1(148),NOGO\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                 T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                 G2X211, G2X212, G2X222\r\nC\r\nC     ECPT BLOCK\r\n      COMMON /PLA4ES/  NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                 Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                 X3,Y3,Z3,DUMB(76)\r\n      COMMON /PLA42D/  A(225),PROD9(9),TEMP9(9),XSUBB,XSUBC,YSUBC,E(18),\r\n     1                 TEMP,XBAR,AREA,XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,\r\n     2                 XCYC,PY2,PXY2,XBAR3,YBAR3,DETERM,NSIZED,\r\n     3                 DUMDUM(4),NPIVOT,THETA,NSUBC,ISING,SUBSCA,SUBSCB,\r\n     4                 NBEGIN,DUMMY(30)\r\n      EQUIVALENCE      (D(1),G(1),A(79)),(ECPT(1),NECPT(1)),\r\n     1                 (G2X2(1),A(88)),(TJTE(1),A(100)),\r\n     2                 (TITE(1),S(1),A(82)),(J2X2(1),A(92)),\r\n     3                 (TI(1),A(118))\r\nC\r\nC\r\n      MATID  = MATID1\r\n      INFLAG = -1\r\nC\r\n      CALL PLAMAT\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 90 I = 1,9\r\n   90 D(I) = G(I)*DBLE(EYE)\r\nC\r\n      AREA = XSUBB*YSUBC/2.0D0\r\n      XBAR =(XSUBB + XSUBC)/3.0D0\r\n      YBAR = YSUBC/3.0D0\r\nC\r\n      XCSQ  = XSUBC**2\r\n      YCSQ  = YSUBC**2\r\n      XBSQ  = XSUBB**2\r\n      XCYC  = XSUBC*YSUBC\r\n      PX2   = (XBSQ + XSUBB*XSUBC + XCSQ)/6.0D0\r\n      PY2   = YCSQ/6.0D0\r\n      PXY2  = YSUBC*(XSUBB + 2.0D0*XSUBC)/12.0D0\r\n      XBAR3 = 3.0D0*XBAR\r\n      YBAR3 = 3.0D0*YBAR\r\n      YBAR2 = 2.0D0*YBAR\r\nC\r\nC                 X\r\nC     FILL THE  (K ) MATRIX STORING IN  A(1) THRU A(36)\r\nC\r\n      A( 1) = D( 1)\r\n      A( 2) = D( 3)\r\n      A( 3) = D( 2)\r\n      A( 4) = D( 1)*XBAR3\r\n      A( 5) = D( 2)*XBAR + YBAR2*D(3)\r\n      A( 6) = D( 2)*YBAR3\r\n      A( 7) = A( 2)\r\n      A( 8) = D( 9)\r\n      A( 9) = D( 6)\r\n      A(10) = D( 3)*XBAR3\r\n      A(11) = D( 6)*XBAR + YBAR2*D(9)\r\n      A(12) = D( 6)*YBAR3\r\n      A(13) = A( 3)\r\n      A(14) = A( 9)\r\n      A(15) = D( 5)\r\n      A(16) = D( 2)*XBAR3\r\n      A(17) = D( 5)*XBAR + YBAR2*D(6)\r\n      A(18) = D( 5)*YBAR3\r\n      A(19) = A( 4)\r\n      A(20) = A(10)\r\n      A(21) = A(16)\r\n      A(22) = D( 1)*9.0D0*PX2\r\n      A(23) = D( 2)*3.0D0*PX2 + 6.0D0*PXY2*D(3)\r\n      A(24) = D( 2)*9.0D0*PXY2\r\n      A(25) = A( 5)\r\n      A(26) = A(11)\r\n      A(27) = A(17)\r\n      A(28) = A(23)\r\n      A(29) = D( 5)*PX2 + 4.0D0*PXY2*D(6) + 4.0D0*PY2*D(9)\r\n      A(30) = D( 5)*3.0D0*PXY2 + 6.0D0*PY2*D(6)\r\n      A(31) = A( 6)\r\n      A(32) = A(12)\r\n      A(33) = A(18)\r\n      A(34) = A(24)\r\n      A(35) = A(30)\r\n      A(36) = D( 5)*9.0D0*PY2\r\n      TEMP  = 4.0D0*AREA\r\n      DO 70 I = 1,36\r\n   70 A(I)  = A(I)*TEMP\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37) THRU A(72)\r\nC\r\n      DO 130 I = 37,72\r\n  130 A(I) = 0.0D0\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0D0*XSUBB\r\n      A(52) =-3.0D0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.0D0\r\n      A(65) = XCYC *2.0D0\r\n      A(66) = YCSQ *3.0D0\r\n      A(67) =-2.0D0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0D0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.0E0) GO TO 500\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 500\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP  =  2.0D0*D(2) + 4.0D0*D(9)\r\n      A(73) = -6.0D0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) = -J2X2(1)*TEMP + 6.0D0*J2X2(2)*D(6)\r\n      A(75) = -6.0D0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) = -6.0D0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) = -J2X2(2)*TEMP + 6.0D0*J2X2(4)*D(6)\r\n      A(78) = -6.0D0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     NOW FORMING  PRODUCT (G2X2)(H  ) AND STORING AS AN INTERMEDIATE\r\nC     STEP.                        YQ\r\nC\r\n      CALL GMMATD (G2X2(1),2,2,0, A(73),2,3,0, A(79))\r\nC\r\nC                                                               Y\r\nC     WITH LAST PRODUCT  FORM  LOWER RIGHT 3 X 3 PARTITION OF (K )\r\nC\r\nC              Y                   T\r\nC     THUS   (K ) PARTITION = (H  ) (LAST PRODUCT)   STORE AT A(85)\r\nC                               YQ\r\nC\r\n      CALL GMMATD (A(73),2,3,1, A(79),2,3,0, A(85))\r\nC\r\nC                                                     X\r\nC     NOW ADD THE 9 ELEMENTS OF THIS 3X3 PORTION TO (K )\r\nC     PER STEP 5 PAGE -16- MS-17                            Y\r\nC     MULTIPLY IN AREA AT SAME TIME WHICH WAS LEFT OUT OF (K ) ABOVE.\r\nC\r\n      DO 60 I = 1,3\r\n      A(I+21) = A(I+21) + A(I+84)*AREA\r\n      A(I+27) = A(I+27) + A(I+87)*AREA\r\n   60 A(I+33) = A(I+33) + A(I+90)*AREA\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF (H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 75 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n   75 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  500 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .NE. 2) GO TO 440\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (30,33,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC              Q   -1\r\nC 440 FORM   (K )(H  )  AND STORE AT  A(73) THRU A(108)\r\nC\r\nC                 X                     Q\r\nC     NOTE THAT (K ) AT THIS POINT IS (K )\r\nC\r\n  440 CALL GMMATD (A(1),6,6,0, A(37),6,6,0, A(73))\r\nC\r\nC                    -1 T\r\nC     FORM(K  ) = (H  ) (LAST PRODUCT) STORE AT A(109) THRU A(144)\r\nC            II\r\nC\r\n      CALL GMMATD (A(37),6,6,1, A(73),6,6,0, A(109))\r\nC\r\nC     FILL S-MATRIX EQUIVALENCED TO A(82)  (S IS 6X3)\r\nC\r\n      IF (IOPT .NE. 2) GO TO 700\r\nC\r\nC     SAVE H-INVERSE TO BE USED BY TRIANGULAR PLATE ROUTINE.\r\nC\r\n      DO 710 I = 37,72\r\n  710 A(I+108) = A(I)\r\nC\r\n  700 S( 1) = 1.0D0\r\n      S( 2) = 0.0D0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0D0\r\n      S( 5) = 1.0D0\r\n      S( 6) = 0.0D0\r\n      S( 7) = 0.0D0\r\n      S( 8) = 0.0D0\r\n      S( 9) = 1.0D0\r\n      S(10) = 1.0D0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0D0\r\n      S(14) = 1.0D0\r\n      S(15) = 0.0D0\r\n      S(16) = 0.0D0\r\n      S(17) = 0.0D0\r\n      S(18) = 1.0D0\r\nC\r\nC                     T\r\nC     FORM   K   = K   = -K   S  STORING AT A(46)   (K   IS 6X3)\r\nC             IA    AI     II                         IA\r\nC\r\n       CALL GMMATD (A(109),6,6,0, S(1),6,3,0, A(46))\r\nC\r\nC     THIS PRODUCT IS MULTIPLIED BY SCALER -1 BELOW.\r\nC\r\nC                    T\r\nC          (K  ) = (S )(-K  )\r\nC            AA           IA\r\nC\r\nC     NOTE K    HAS NOT BEEN MULTIPLIED ABOVE BY -1, THUS IGNORE MINUS\r\nC           IA                                                   HERE.\r\nC\r\n      CALL GMMATD (S(1),6,3,1, A(46),6,3,0, A(1))\r\nC\r\nC     NOW MULTIPLY  K   BY SCALER (-1)\r\nC                    IA\r\nC\r\n      DO 190 I = 46,63\r\n  190 A(I) = -A(I)\r\nC\r\nC     AT THIS POINT, STORED BY ROWS ARE\r\nC\r\nC        K     (6X6) AT A(109) THRU A(144)\r\nC         II\r\nC\r\nC        K     (6,3) AT  A(46) THRU A(63)\r\nC         IA\r\nC\r\nC        K     (3X3) AT A(1) THRU A(9)\r\nC         AA\r\nC\r\nC     ARRANGE NINE 3X3 MATRICES OF K SUPER U\r\nC\r\n      A( I) = A(I+18)\r\n      A(10) = A( 46)\r\n      A(11) = A( 49)\r\n      A(12) = A( 52)\r\n      A(13) = A( 47)\r\n      A(14) = A( 50)\r\n      A(15) = A( 53)\r\n      A(16) = A( 48)\r\n      A(17) = A( 51)\r\n      A(18) = A( 54)\r\n      A(19) = A( 55)\r\n      A(20) = A( 58)\r\n      A(21) = A( 61)\r\n      A(22) = A( 56)\r\n      A(23) = A( 59)\r\n      A(24) = A( 62)\r\n      A(25) = A( 57)\r\n      A(26) = A( 60)\r\n      A(27) = A( 63)\r\n      A(37) = A(109)\r\n      A(38) = A(110)\r\n      A(39) = A(111)\r\n      A(40) = A(115)\r\n      A(41) = A(116)\r\n      A(42) = A(117)\r\n      A(43) = A(121)\r\n      A(44) = A(122)\r\n      A(45) = A(123)\r\n      A(46) = A(112)\r\n      A(47) = A(113)\r\n      A(48) = A(114)\r\n      A(49) = A(118)\r\n      A(50) = A(119)\r\n      A(51) = A(120)\r\n      A(52) = A(124)\r\n      A(53) = A(125)\r\n      A(54) = A(126)\r\n      A(64) = A(127)\r\n      A(65) = A(128)\r\n      A(66) = A(129)\r\n      A(67) = A(133)\r\n      A(68) = A(134)\r\n      A(69) = A(135)\r\n      A(70) = A(139)\r\n      A(71) = A(140)\r\n      A(72) = A(141)\r\n      A(73) = A(130)\r\n      A(74) = A(131)\r\n      A(75) = A(132)\r\n      A(76) = A(136)\r\n      A(77) = A(137)\r\n      A(78) = A(138)\r\n      A(79) = A(142)\r\n      A(80) = A(143)\r\n      A(81) = A(144)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktri1.f",
    "content": "      SUBROUTINE PKTRI1\r\nC  THIS ROUTINE CALCULATES GP,SET-S UP THE ECPT AND UPDATES THE ECPT\r\nC  FOR THE TRIA1 ELEMENTS\r\nC  PLA4\r\nC\r\nC     ECPT FOR TRIA1\r\nC\r\nC     EL.ID                                       ECPT( 1)\r\nC     GRID A                                      ECPT( 2)\r\nC     GRID B                                      ECPT( 3)\r\nC     GRID C                                      ECPT( 4)\r\nC     THETA                                       ECPT( 5)\r\nC     MATID1                                      ECPT( 6)\r\nC     T1                                          ECPT( 7)\r\nC     MATID2                                      ECPT( 8)\r\nC     I                                           ECPT( 9)\r\nC     MATID3                                      ECPT(10)\r\nC     T2                                          ECPT(11)\r\nC     NS MASS                                     ECPT(12)\r\nC     Z1                                          ECPT(13)\r\nC     Z2                                          ECPT(14)\r\nC     CSID 1                                      ECPT(15)\r\nC     X1                                          ECPT(16)\r\nC     Y1                                          ECPT(17)\r\nC     Z1                                          ECPT(18)\r\nC     CSID 2                                      ECPT(19)\r\nC     X2                                          ECPT(20)\r\nC     Y2                                          ECPT(21)\r\nC     Z2                                          ECPT(22)\r\nC     CSID3                                       ECPT(23)\r\nC     X3                                          ECPT(24)\r\nC     Y3                                          ECPT(25)\r\nC     Z3                                          ECPT(26)\r\nC     TEMP                                        ECPT(27)\r\nC     EPS SUB 0      (PREVIOUS  STRAIN)           ECPT(28)\r\nC     EPS SUB STAR   (LAST STRAIN)                ECPT(29)\r\nC     MODULUS OF ELASTICITY                       ECPT(30)\r\nC     SIGMA X        STRESS                       ECPT(31)\r\nC     SIGMA Y        STRESS                       ECPT(32)\r\nC     SIGMA XY       STRESS                       ECPT(33)\r\nC     U A       (3X1 DISPLACEMENT VECTOR)         ECPT(34)\r\nC     U B       (3X1 DISPLACEMENT VECTOR)         ECPT(37)\r\nC     U C       (3X1 DISPLACEMENT VECTOR)         ECPT(40)\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(27), NECPTS(27)\r\nC\r\n      COMMON /PLA42E/ ECPT(27),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1    UI(09),  DUMMY(58)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLAGP/  GP(9) , MIDGP  , ELID\r\nC\r\n      EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS)\r\n     1,           (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF(IDUM2.EQ.2) GO TO 150\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\nC\r\n      CALL PKTQ1(1)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTQ2(3)\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\n   80 ESTAR = 0.0\r\nC\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKTRQD(1)\r\n      RETURN\r\n  150 CALL MESAGE(30,38,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktri2.f",
    "content": "      SUBROUTINE PKTRI2\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE  TRIA2 CALCULATIONS IN\r\nC  PLA4\r\nC\r\nC     ECPT FOR  TRIA2\r\nC\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  THETA\r\nC  6  MAT ID\r\nC  7  T\r\nC  8  MS MASS\r\nC  9  CSID 1\r\nC 10  X1\r\nC 11  Y1\r\nC 12  Z1\r\nC 13  CSID 2\r\nC 14  X2\r\nC 15  Y2\r\nC 16  Z2\r\nC 17  CSID 3\r\nC 18  X3\r\nC 19  Y3\r\nC 20  Z3\r\nC 21  TEMP\r\nC 22  EPS0\r\nC 23  EPSS\r\nC 24  ESTAR\r\nC 25  SIGXS\r\nC 26  SIGYS\r\nC 27  SIGXYS\r\nC 28  U(A) (3X1)\r\nC 31  U(B) (3X1)\r\nC 34  U(C) (3X1)\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(21), NECPTS(21)\r\nC\r\n      COMMON /PLA42E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1    UI(09),  DUMMY(64)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLAGP/  GP(9) , MIDGP  , ELID\r\nC\r\n      EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS)\r\n     1,           (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF (IDUM2.EQ.2) GO TO 150\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\nC\r\n      CALL PKTQ1(2)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTQ2(3)\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\n   80 ESTAR = 0.0\r\nC\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKTRQD(2)\r\n      RETURN\r\n  150 CALL MESAGE(30,38,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrm.f",
    "content": "       SUBROUTINE PKTRM\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE  TRI-MEMBRANE CALCULATIONS IN\r\nC  PLA4\r\nC\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC       ECPT(22) = STRAIN (MINUS ONE)                  EPS0      REAL\r\nC       ECPT(23) = STRAIN (PRESENT)                    EPSS      REAL\r\nC       ECPT(24) = MODULUS OF ELASTICITY               ESTAR     REAL\r\nC       ECPT(25) = STRESS SUB X                        SIGXS     REAL\r\nC       ECPT(26) = STRESS SUB Y                        SIGYS     REAL\r\nC       ECPT(27) = STRESS SUB XY                       SIGXYS    REAL\r\nC       ECPT(28) = DISPLACEMENT VECTOR   A1            UI(1)     REAL\r\nC       ECPT(29) = DISPLACEMENT VECTOR   A2            UI(2)     REAL\r\nC       ECPT(30) = DISPLACEMENT VECTOR   A3            UI(3)     REAL\r\nC       ECPT(31) = DISPLACEMENT VECTOR   B1            UI(4)     REAL\r\nC       ECPT(32) = DISPLACEMENT VECTOR   B2            UI(5)     REAL\r\nC       ECPT(33) = DISPLACEMENT VECTOR   B3            UI(6)     REAL\r\nC       ECPT(34) = DISPLACEMENT VECTOR   C1            UI(7)     REAL\r\nC       ECPT(35) = DISPLACEMENT VECTOR   C2            UI(8)     REAL\r\nC       ECPT(36) = DISPLACEMENT VECTOR   C3            UI(9)     REAL\r\nC\r\nC     ******************************************************************\r\nC\r\n      LOGICAL ISTIFF\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(21), NECPTS(21)\r\nC\r\n      COMMON /PLA42E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1              UI(9),DUMMY(64)\r\n      COMMON /PLA4ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA42S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/  NPVT, GAMMA, GAMMAS, IPASS\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLAGP/  GP(9) , MIDGP  , ELID\r\nC\r\n      EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS)\r\n     1,           (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ISTIFF = .FALSE.\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n  120 MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF (IDUM2.EQ.2) GO TO 150\r\nC\r\n   50 IF(ISTIFF) GO TO 130\r\n      ISTIFF = .TRUE.\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n      DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\nC\r\n      CALL PKTRM1(0)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PKTRQ2(1)\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      GO TO 100\r\n   80 ESTAR = 0.0\r\nC\r\nC  SETUP STIFFNESS CALCULATIONS FOR GP\r\nC\r\n  100 DO 110 I = 1,9\r\n  110 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF( ESTAR .NE. 0.0 .AND. TAU0 .NE. 0.0) GO TO 120\r\nC\r\nC  SETUP CALL TO ELEMENT STIFFNESS ROUTINE IT WILL ALSO INSERT\r\nC\r\n  130 DO 140 I = 1,32\r\n  140 ECPTSA(I) = ECPT(I)\r\n      CALL PKTRMS(0)\r\n      RETURN\r\n  150 CALL MESAGE(30,38,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrm1.f",
    "content": "      SUBROUTINE PKTRM1(NTYPE)\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA4\r\nC  BOTH FOR THE TRI-MEMBRANE AND SUB-CALCULATIONS FOR THE QUAD MEMBRANE\r\nC\r\nC     ******** PHASE I OF STRESS DATA RECOVERY *************************\r\nC     ******** TRIANGULAR MEMBRANE ELEMENT *****************************\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO. . .\r\nC\r\nC     PLAMAT - RETURNS STANDARD GP MATRIS ROTATED\r\nC     TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC     GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IF NTYPE = 0 TRI-MEMBRANE CALCULATIONS WILL BE DONE\r\nC\r\nC     IF NTYPE = 1 QUAD-MEMBRANE CALCULATIONS WILL BE DONE\r\nC\r\nC\r\n      DIMENSION G(9), ECPT(4)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA4ES/\r\n     1                   NECPT(1)           ,NGRID(3)\r\n     2                  ,ANGLE              ,MATID1\r\n     3                  ,T                  ,FMU\r\n     4                  ,DUMMY1             ,X1\r\n     5                  ,Y1                 ,Z1\r\n     6                  ,DUMMY2             ,X2\r\n     7                  ,Y2                 ,Z2\r\n     8                  ,DUMMY3             ,X3\r\n     9                  ,Y3                 ,Z3            ,DUMB(80)\r\n     T                  ,PH1OUT(200)\r\n      COMMON /PLA42S/ C(18), E(18), TI(9), TEMPAR(27), TEMP\r\n     2      ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(244)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42C/    DUMCL(149)         ,NOGO\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (G(1),TEMPAR(19)),(ECPT(1),NECPT(1))\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\n      E(1) = X2 - X1\r\n      E(3) = Y2 - Y1\r\n      E(5) = Z2 - Z1\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\n      XSUBB =  SQRT( E(1)**2 + E(3)**2 + E(5)**2 )\r\n      IF(XSUBB .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE(30,31,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\nC     NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\n   20 E(1) = E(1) / XSUBB\r\n      E(3) = E(3) / XSUBB\r\n      E(5) = E(5) / XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = X3 - X1\r\n      E(4) = Y3 - Y1\r\n      E(6) = Z3 - Z1\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA) ,  THUS\r\n      XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3) * E(6)  -  E(5) * E(4)\r\n      E(8) = E(5) * E(2)  -  E(1) * E(6)\r\n      E(9) = E(1) * E(4)  -  E(3) * E(2)\r\nC\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\n      YSUBC =  SQRT( E(7)**2 + E(8)**2 + E(9)**2 )\r\n      IF(YSUBC .GT. 1.0E-06) GO TO 25\r\n      CALL MESAGE(30,32,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\nC     NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   25 E(7) = E(7) / YSUBC\r\n      E(8) = E(8) / YSUBC\r\n      E(9) = E(9) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS.GET J = I CROSS K AND\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5) * E(8) - E(3) * E(9)\r\n      E(4) = E(1) * E(9) - E(5) * E(7)\r\n      E(6) = E(3) * E(7) - E(1) * E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\n      TEMP =  SQRT( E(2)**2 + E(4)**2 + E(6)**2 )\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      REELMU = 1.0E0 / XSUBB\r\n      FLAMDA = 1.0E0 / YSUBC\r\n      DELTA  = XSUBC / XSUBB - 1.0E0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC                 CSUBA = (3X2) STORED IN C(1) . . .C(6)  BY ROWS\r\nC                 CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS\r\nC                 CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0E0\r\n      C(3)  =  0.0E0\r\n      C(4)  =  FLAMDA * DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0E0\r\n      C(9)  =  0.0E0\r\n      C(10) = -FLAMDA * REELMU * XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0E0\r\n      C(14) =  0.0E0\r\n      C(15) =  0.0E0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0E0\r\nC\r\n      IF( NTYPE .EQ. 1 ) GO TO 30\r\n      THETA = ANGLE * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n   30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      MATID = MATID1\r\n      INFLAG = -1\r\n      CALL PLAMAT\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     ******************************************************************\r\nC\r\nC     G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC\r\nC\r\nC                           T\r\nC     COMPUTE  S  = G  C   E   T   , I = 1,2,3.\r\nC               I       I       I\r\nC\r\n      DO 100 I = 1,3\r\nC\r\nC     POINTER TO C   = 6*I - 5\r\nC                 I\r\nC\r\n      CALL GMMATS ( G,3,3,0,  C(6*I-5),3,2,0,  TEMPAR(1))\r\n      CALL GMMATS ( TEMPAR(1),3,2,0,  E,3,2,1,  TEMPAR(10) )\r\nC\r\nC     DO WE NEED TRANSFORMATION TI\r\nC\r\n      IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60\r\n      CALL TRANSS( NECPT(4*I + 5), TI )\r\n      CALL GMMATS( TEMPAR(10),3,3,0,  TI,3,3,0,  PH1OUT(9*I+1) )\r\n      GO TO 100\r\n   60 NPT1 = 9 * I\r\n      DO 80 J = 10,18\r\n      NPT1 = NPT1 + 1\r\n   80 PH1OUT(NPT1) = TEMPAR(J)\r\n  100 CONTINUE\r\n      PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = ECPT(4)\r\nC\r\nC     THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION\r\nC     TO ANOTHER ROUTINE...\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/pktrms.f",
    "content": "      SUBROUTINE PKTRMS (NTYPE)\r\nC\r\nC     THIS ROUTINE CALCULATES AND SHIPS TO PLA4B THE STIFFNESS MATRIX\r\nC     FOR PLA4\r\nC\r\nC     *** TRIANGULAR MEMBRANE ELEMENT ***\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC\r\nC     PLAMAT - ROTATES AND RETURNS GP\r\nC     PLA4B  - INSERTION ROUTINE\r\nC     TRANSD - DOUBLE PRECISION TRANSFORMATION SUPPLIER\r\nC     GMMATD - DOUBLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IF NTYPE = 0  COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC\r\nC     IF NTYPE = 1 RETURN 3 TRANSFORMED  3X3 MATRICES ONLY FOR THE PIVOT\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC     ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ===============================================================\r\nC     ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC     ECPT( 7) = T                                   T         REAL\r\nC     ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC     ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC     ECPT(10) = X1                                  X1        REAL\r\nC     ECPT(11) = Y1                                  Y1        REAL\r\nC     ECPT(12) = Z1                                  Z1        REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC     ECPT(14) = X2                                  X2        REAL\r\nC     ECPT(15) = Y2                                  Y2        REAL\r\nC     ECPT(16) = Z2                                  Z2        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC     ECPT(18) = X3                                  X3        REAL\r\nC     ECPT(19) = Y3                                  Y3        REAL\r\nC     ECPT(20) = Z3                                  Z3        REAL\r\nC     ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\n      DOUBLE PRECISION TEMPAR,C,E,TI,TEMP,G,XSUBC,VOL,XSUBB,YSUBC,\r\n     1                 REELMU,FLAMDA,DELTA,KIJ\r\n      DIMENSION        G(9),ECPT(1)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /PLA42C/  NPVT,DUM1(148),NOGO\r\n      COMMON /PLA4ES/  NECPT(1),NGRID(3),ANGLE,MATID1,T,FMU,DUMMY1,X1,\r\n     1                 Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,DUMB(80)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA42D/  KIJ(36),C(18),E(9),TEMPAR(27),TI(9),TEMP,XSUBB,\r\n     1                 XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA,KA,\r\n     2                 NPOINT,NSAVE,DUMMY(382)\r\n      EQUIVALENCE      (CONSTS(4),DEGRA),(G(1),TEMPAR(19)),\r\n     1                 (ECPT(1),NECPT(1))\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\nC\r\n      E(1) = DBLE(X2) - DBLE(X1)\r\n      E(3) = DBLE(Y2) - DBLE(Y1)\r\n      E(5) = DBLE(Z2) - DBLE(Z1)\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = DSQRT(E(1)**2 + E(3)**2 + E(5)**2)\r\n      IF (XSUBB .GT. 1.0D-06) GO TO 20\r\n      CALL MESAGE (30,31,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC  20 NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n   20 E(1) = E(1)/XSUBB\r\n      E(3) = E(3)/XSUBB\r\n      E(5) = E(5)/XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = DBLE(X3) - DBLE(X1)\r\n      E(4) = DBLE(Y3) - DBLE(Y1)\r\n      E(6) = DBLE(Z3) - DBLE(Z1)\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA),  THUS\r\nC\r\n      XSUBC = E(1)*E(2) + E(3)*E(4) + E(5)*E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3)*E(6) - E(5)*E(4)\r\n      E(8) = E(5)*E(2) - E(1)*E(6)\r\n      E(9) = E(1)*E(4) - E(3)*E(2)\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = DSQRT(E(7)**2 + E(8)**2 + E(9)**2)\r\n      IF (YSUBC .GT. 1.0D-06) GO TO 25\r\n      CALL MESAGE (30,32,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\nC  25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   25 E(7) = E(7)/YSUBC\r\n      E(8) = E(8)/YSUBC\r\n      E(9) = E(9)/YSUBC\r\nC\r\nC     J VECTOR = K CROSS I\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5)*E(8) - E(3)*E(9)\r\n      E(4) = E(1)*E(9) - E(5)*E(7)\r\n      E(6) = E(3)*E(7) - E(1)*E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\nC\r\n      TEMP = DSQRT(E(2)**2 + E(4)**2 + E(6)**2)\r\n      IF (TEMP .NE. 0.0D0) GO TO 26\r\n      CALL MESAGE (30,26,ECPT(1))\r\nC\r\nC     SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO\r\nC     ACCUMULATE\r\nC\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n   26 E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      VOL = XSUBB*YSUBC*DBLE(T)/2.0D0\r\n      REELMU = 1.0D0/XSUBB\r\n      FLAMDA = 1.0D0/YSUBC\r\n      DELTA  = XSUBC/XSUBB - 1.0D0\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC         CSUBA = (3X2) STORED IN C( 1) THRU C( 6) BY ROWS\r\nC         CSUBB = (3X2) STORED IN C( 7) THRU C(12) BY ROWS\r\nC         CSUBC = (3X2) STORED IN C(13) THRU C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0D0\r\n      C(3)  =  0.0D0\r\n      C(4)  =  FLAMDA*DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0D0\r\n      C(9)  =  0.0D0\r\n      C(10) = -FLAMDA*REELMU*XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0D0\r\n      C(14) =  0.0D0\r\n      C(15) =  0.0D0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0D0\r\n      IF (NTYPE .EQ. 1) GO TO 30\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   30 IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      MATID = MATID1\r\n      INFLAG = -1\r\n      CALL PLAMAT\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     AT THIS POINT, G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC     AT THIS POINT THE FOLLOWING EQUATION CAN BE SOLVED FOR K-SUB-IJ\r\nC\r\nC                     T        T             T\r\nC       K   = VOL . T  * E * C  * G * C  * E  * T\r\nC        IJ          I        I        J         J\r\nC\r\nC     T-SUB-I WILL BE USED IN THE ABOVE ONLY IF THE PIVOT COORDINATE\r\nC     SYSTEM ID IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE\r\nC     IDENTITY MATRIX.\r\nC\r\nC     THE I SUBSCRIPT IMPLIES THE PIVOT POINT  1,2, OR 3 (ELEMENT SYST)\r\nC     THE J SUBSCRIPT IMPLIES  1 THRU 3  FOR EACH CALL TO THIS ROUTINE.\r\nC\r\nC     FIRST LOCATE WHICH POINT IS THE PIVOT\r\nC\r\n      DO 100 I = 1,3\r\n      IF (NGRID(I) .NE. NPVT) GO TO 100\r\n      KA = 4*I + 5\r\n      NPOINT = 6*I - 5\r\n      GO TO 150\r\n  100 CONTINUE\r\nC\r\nC     FALLING THRU ABOVE LOOP INDICATES THE PIVOT POINT SPECIFIED BY\r\nC     NPVT WAS NOT FOUND EQUAL TO ANY OF THE 3 GRID POINTS IN THE ECPT\r\nC     THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,34,ECPT(1))\r\nC\r\nC                     T\r\nC     COMPUTE   E * C   * G       AND STORE IN TEMPAR( 1 THRU 9 )\r\nC                    I\r\nC\r\n  150 CALL GMMATD (E,3,2,0, C(NPOINT),3,2,1, TEMPAR(10))\r\n      CALL GMMATD (TEMPAR(10),3,3,0, G,3,3,0, TEMPAR(1))\r\nC\r\nC     NCOM WILL ALWAYS POINT TO THE COMMON 3 X 3 PRODUCT ABOVE\r\nC     NPT1 WILL POINT TO FREE WORKING SPACE LENGTH 9\r\nC\r\n      NCOM = 1\r\n      NPT1 = 10\r\nC\r\nC     MULTIPLY COMMON PRODUCT BY SCALER VOL\r\nC\r\n      DO 90 I = 1,9\r\n   90 TEMPAR(I) = TEMPAR(I)*VOL\r\nC\r\nC     CHECK FOR PIVOT  CSID = 0,  IF ZERO SKIP TRANSFORMATION TSUBI.\r\nC\r\n      IF (NECPT(KA) .EQ. 0) GO TO 80\r\nC\r\nC     NOT-ZERO THUS GET TI\r\nC\r\n      CALL TRANSD (NECPT(KA),TI)\r\nC\r\nC     INTRODUCE TI INTO THE COMMON PRODUCT AND STORE AT\r\nC     TEMPAR(10 THRU 18)\r\nC\r\n      CALL GMMATD (TI,3,3,1, TEMPAR(1),3,3,0, TEMPAR(10))\r\nC\r\nC     COMMON PRODUCT NOW STARTS AT TEMPAR(10) THUS CHANGE NCOM AND NPT1\r\nC\r\n      NCOM = 10\r\n      NPT1 =  1\r\nC\r\nC  80 NOW HAVE COMMON PRODUCT STORED BEGINNING TEMPAR(NCOM),  (3X3).\r\nC     NPT1 POINTS TO FREE WORKING SPACE LENGTH 9.\r\nC\r\nC     PROCEED NOW AND RUN OUT THE 3 6X6 MATRICES KIJ-SUB-1,2,3.\r\nC\r\nC     FIRST ZERO OUT (6 X 6) K\r\nC                             IJ\r\nC\r\n   80 NSAVE = NPT1\r\n      DO 700 I = 1,36\r\n  700 KIJ(I) = 0.0D0\r\n      NPOINT = 0\r\nC\r\n      DO 500 I = 1,3\r\n      CALL GMMATD (C(6*I-5),3,2,0, E,3,2,1, TEMPAR(NSAVE))\r\nC\r\nC                                                                 T\r\nC     NPT2 IS SET TO POINT TO THE BEGINNING OF THE PRODUCT  C  * E  * T\r\nC                                                            J         J\r\nC\r\n      NPT2 = NSAVE\r\n      NPT1 = 19\r\nC\r\nC     CHECK FOR ZERO CSID IN WHICH CASE TJ IS NOT NEEDED\r\nC\r\n      IF (NECPT(4*I+5) .EQ. 0) GO TO 60\r\nC\r\nC     COMMING HERE IMPLIES NEED FOR TJ\r\nC     WILL STORE TJ IN TI\r\nC\r\n      CALL TRANSD (NECPT(4*I+5),TI)\r\n      CALL GMMATD (TEMPAR(NPT2),3,3,0, TI,3,3,0, TEMPAR(19))\r\n      NPT1 = NPT2\r\n      NPT2 = 19\r\nC\r\nC  60 AT THIS POINT COMPLETE COMPUTATION FOR  K-SUB-I,J\r\nC\r\n   60 CALL GMMATD (TEMPAR(NCOM),3,3,0, TEMPAR(NPT2),3,3,0, TEMPAR(NPT1))\r\nC\r\n      IF (NTYPE .EQ. 0) GO TO 95\r\n      DO 96 J = 1,9\r\n      NPOINT = NPOINT + 1\r\n      NPT2   = NPT1 + J - 1\r\n   96 KIJ(NPOINT) = TEMPAR(NPT2)\r\n      GO TO 500\r\nC\r\n   95 KIJ( 1) = TEMPAR(NPT1  )\r\n      KIJ( 2) = TEMPAR(NPT1+1)\r\n      KIJ( 3) = TEMPAR(NPT1+2)\r\n      KIJ( 7) = TEMPAR(NPT1+3)\r\n      KIJ( 8) = TEMPAR(NPT1+4)\r\n      KIJ( 9) = TEMPAR(NPT1+5)\r\n      KIJ(13) = TEMPAR(NPT1+6)\r\n      KIJ(14) = TEMPAR(NPT1+7)\r\n      KIJ(15) = TEMPAR(NPT1+8)\r\n      CALL PLA4B (KIJ(1),NECPT(I+1))\r\nC\r\n  500 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrpl.f",
    "content": "      SUBROUTINE PKTRPL\r\nC  THIR ROUTINE CALCULATES THE STIFFNESS MATRIX FOR TRI-PLATES IN  PLA4\r\nC\r\nC     THIS ROUTINE GENERATES THE FOLLOWING\r\nC\r\nC                             3-6X6 STIFFNESS MATRICES WITH RESPECT\r\nC                             TO ONE PIVOT POINT OF A TRIANGULAR PLATE\r\nC                             ELEMENT.\r\nC\r\nC         REF. FMMS-55  NOVEMBER 1ST, 1967\r\nC\r\nC         CALLS FROM THIS ROUTINE ARE MADE TO\r\nC                             PKTRBS - BASIC BENDING TRIANGLE\r\nC                             TRANSD - SUPPLIES 3X3 TRANSFORMATIONS\r\nC                             INVERD - MATRIX INVERSION ROUTINE\r\nC                             PLA4B  - INSERTION ROUTINE\r\nC                             GMMATD - GENERAL MATRIX MULITPLY AND\r\nC                                      TRANSPOSE ROUTINE\r\nC                             MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC\r\n      INTEGER            SUBSCA        ,SUBSCB        ,SUBSCC\r\n      DOUBLE PRECISION\r\n     1                   R             ,D1            ,HABC\r\n     2                  ,TEMP          ,D2            ,HINV\r\n     3                  ,KSUM          ,IVECT         ,G\r\n     4                  ,V             ,JVECT         ,E\r\n     5                  ,VV            ,KVECT         ,TITE\r\n     6                  ,XSUBB         ,TEMP9         ,TJTE\r\n     7                  ,XSUBC         ,PROD9         ,ARR9\r\n     8                  ,YSUBC         ,U1            ,ARRAY9\r\n     9                  ,T             ,U2            ,TEMP18\r\n     T                  ,A             ,TEMP1         ,PROD12\r\n     1                  ,C1            ,TEMP2         ,HQ\r\n     2                  ,C2            ,L1            ,Y1\r\n     3                  ,X1            ,L2            ,Y2\r\n     4                  ,X2            ,S1            ,DETERM\r\n     5                  ,S2            ,KOUT          ,S ,REQUIV\r\nC     ******************************************************************\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION\r\nC       ECPT      TRI.PLATE AND BASIC BENDING TRI.\r\nC     ******************************************************************\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC     ******************************************************************\r\n      DIMENSION\r\n     1                   NECPT(100)    ,M(9)          ,REQUIV(8)\r\n     2                  ,HQ(12)        ,PROD12(12)    ,HABC(18)\r\n     3                  ,G(36)         ,TITE(18)      ,TJTE(18)\r\n     4                  ,KOUT(36)      ,TEMP18(18)    ,V1(3)\r\n     5                  ,V2(3)         ,V3(3)         ,R(2,4)\r\n     6                  ,D1(3)         ,D2(3)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\n      COMMON /PLA42C/ NPVT, DUM1(3)\r\n     1,                  DUMCL(145)         ,NOGO\r\n      COMMON /PLA4ES/ ECPT(100)\r\n      COMMON /PLA42D/\r\n     1                   A(81)         ,S(18)         ,T(9)\r\n     2                  ,TEMP9(9)      ,PROD9(9)      ,ARR9(9)\r\n     3                  ,ARRAY9(9)     ,HINV(36)      ,KSUM(63)\r\n     4                  ,XSUBB         ,XSUBC         ,YSUBC\r\n     5                  ,E(18)         ,TEMP          ,L1\r\n     6                  ,L2            ,S1            ,S2\r\n     7                  ,C1            ,C2            ,X1\r\n     8                  ,X2            ,Y1            ,Y2\r\n     9                  ,TEMP1         ,TEMP2         ,DUMTWO(2) ,DETERM\r\n     T                  ,NPOINT        ,KM            ,SUBSCA\r\n     1                  ,SUBSCB        ,SUBSCC        ,NPIVOT\r\n     2                  ,THETA         ,NSUBC         ,ISING\r\n     3                  ,NPT1          ,V(2)          ,VV(2)\r\n     4                  ,IVECT(3)      ,JVECT(3)      ,KVECT(3)\r\n     5                  ,U1            ,U2            ,SINANG\r\n     6                  ,COSANG\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE\r\n     1                                 (NECPT(1),ECPT(1))\r\n     2                                 ,(PROD12(1),A(13))\r\n     3                                 ,(HABC(1),A(25))\r\n     4                                 ,(TITE(1),A(37))\r\n     5                                 ,(TJTE(1),A(55))\r\n     6                                 ,(KOUT(1),A(1))\r\n     7                                 ,(TEMP18(1),HINV(1))\r\n     8                                 ,(V1(1),ECPT(14))\r\n     9                                 ,(V2(1),ECPT(18))\r\n     T                                 ,(V3(1),ECPT(22))\r\n     1                                 ,(REQUIV(1),R(1,1))\r\n     2                                 ,(D1(1),A(1))\r\n     3                                 ,(D2(1),A(4))\r\n     4                                 ,(HQ(1),A(1))\r\nC\r\n      DATA M/ 1,2,4,   2,3,4,   3,1,4 /\r\nC\r\nC     DETERMINE PIVOT POINT NUMBER\r\nC\r\n      DO 10 I=1,3\r\n      IF( NPVT .NE. NECPT(I+1) ) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES ERROR CONDITION\r\n      CALL MESAGE(-30,34,ECPT(1))\r\nC\r\n   20 THETA = ECPT(5) * DEGRA\r\n      SINANG = SIN( THETA )\r\n      COSANG = COS( THETA )\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR TRIANGULAR PLATE. (COLUMN 4 BLANK)\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\n      DO 30 I=1,8\r\n   30 REQUIV(I)=0.0D0\r\nC\r\n      DO 40 I=1,3\r\n      D2(I) = DBLE( V2(I) ) - DBLE( V1(I) )\r\n   40 D1(I) = DBLE( V3(I) ) - DBLE( V1(I) )\r\nC\r\nC     X2  GOES IN R(1,2)\r\n      R(1,2) = DSQRT ( D2(1)**2  +  D2(2)**2  +  D2(3)**2 )\r\n      IF (R(1,2).EQ.0.0D0) GO TO 370\r\n      DO 50 I=1,3\r\n   50 IVECT(I) = D2(I) / R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\n      KVECT(1) = IVECT(2) * D1(3)    -    D1(2) * IVECT(3)\r\n      KVECT(2) = IVECT(3) * D1(1)    -    D1(3) * IVECT(1)\r\n      KVECT(3) = IVECT(1) * D1(2)    -    D1(1) * IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\n      R(2,3) = DSQRT ( KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2 )\r\n      IF (R(2,3).EQ.0.0D0) GO TO 370\r\n      DO 60 I=1,3\r\n   60 KVECT(I) = KVECT(I) / R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\n      JVECT(1) = KVECT(2) * IVECT(3) - IVECT(2) * KVECT(3)\r\n      JVECT(2) = KVECT(3) * IVECT(1) - IVECT(3) * KVECT(1)\r\n      JVECT(3) = KVECT(1) * IVECT(2) - IVECT(1) * KVECT(2)\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\n      TEMP = DSQRT ( JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2 )\r\n      IF (TEMP.EQ.0.0D0) GO TO 370\r\n      DO 70 I=1,3\r\n   70 JVECT(I) = JVECT(I) / TEMP\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\n      R(1,3) = D1(1) * IVECT(1)  +  D1(2) * IVECT(2) + D1(3) * IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\n      R(1,4) = (  R(1,2) + R(1,3)  ) / 3.0D0\r\n      R(2,4) = R(2,3) / 3.0D0\r\nC     ******************************************************************\r\nC            THE COORDINATES AND CENTROID OF THE PLATE IN THE ELEMENT\r\nC     SYSTEM ARE STORED IN THE R-MATRIX WHERE THE COLUMN DENOTES THE\r\nC     POINT AND THE ROW DENOTES THE X OR Y COORDINATE FOR ROW 1 OR\r\nC     ROW 2 RESPECTIVELY.\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT.\r\nC\r\nC     ******************************************************************\r\nC     ZERO OUT THE KSUM MATRIX FOR 63 AND THE GSUM MATRIX FOR 36...\r\nC\r\n      DO 80 I=1,63\r\n   80 KSUM(I) = 0.0D0\r\n      DO 90 I=1,36\r\n   90 G(I) = 0.0D0\r\nC\r\nC\r\n      DO 210 J=1,3\r\n      KM = 3*J - 3\r\nC\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I=1,2\r\n      V(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV(I)= R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB = DSQRT ( V(1)**2 + V(2)**2 )\r\n      U1 = V(1) / XSUBB\r\n      U2 = V(2) / XSUBB\r\n      XSUBC = U1 * VV(1) + U2 * VV(2)\r\n      YSUBC = U1 * VV(2) - U2 * VV(1)\r\nC\r\n      SINTH = SINANG * U1  -  COSANG * U2\r\n      COSTH = COSANG * U1  +  SINANG * U2\r\n      IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL PKTRBS(2)\r\nC                         U\r\nC     NOW HAVE AT HAND  K    I,J, =1,2,3.   9-3X3 MATRICES STORED AT\r\nC                        IJ                 A(1) THROUGH A(81).\r\nC\r\nC           -1\r\nC     ALSO H   (6X6) AT A(145) TO A(181) AND S (6X3) AT A(82) TO A(99)\r\nC\r\nC     NOW ADD CERTAIN OF THESE INTO THE SUMMED MATRICES\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0D0\r\n      T(2) = 0.0D0\r\n      T(3) = 0.0D0\r\n      T(4) = 0.0D0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0D0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\n      DO 120 I=1,3\r\n      CALL GMMATD( T(1),3,3,1,  A(27*I-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     ADD THIS PRODUCT IN NOW.\r\nC     COMPUTE POINTER TO KSUM MATRIX DESIRED.  (ZERO POINTER)\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) + 18\r\nC\r\n      DO 110 K=1,9\r\n      NSUBC  = NPOINT + K\r\n  110 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(K)\r\n  120 CONTINUE\r\n      DO 150 K=1,2\r\n      NPOINT = KM + K\r\n      IF( M(NPOINT) .NE. NPIVOT ) GO TO 150\r\n      CALL GMMATD( T(1),3,3,1,  A(36*K-35),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE POINTER TO KSUM MATRIX (ZERO POINTER)\r\nC\r\n      NPOINT = 9 * NPIVOT - 9\r\n      DO 130 I=1,9\r\n      NSUBC = NPOINT + I\r\n  130 KSUM(NSUBC) = KSUM(NSUBC) + PROD9(I)\r\nC\r\n      CALL GMMATD(T(1),3,3,1,  A(18*K-8),3,3,0,  TEMP9(1) )\r\n      CALL GMMATD( TEMP9(1),3,3,0,  T(1),3,3,0,  PROD9(1) )\r\nC\r\nC     COMPUTE ZERO POINTER TO KSUM MATRIX DESIRED\r\nC\r\n      NPOINT = KM + 3 - K\r\n      NPOINT = 9 * M(NPOINT) - 9\r\n      DO 140 I=1,9\r\n      NSUBC = NPOINT + I\r\n  140 KSUM(NSUBC) = KSUM(NSUBC) +  PROD9(I)\r\n  150 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1 = XSUBB - XSUBC\r\n      TEMP2 = YSUBC ** 2\r\n      L1 = DSQRT( XSUBC**2 + TEMP2 )\r\n      L2 = DSQRT( TEMP1**2 + TEMP2 )\r\n      S1 = XSUBC / L1\r\n      S2 = TEMP1 / L2\r\n      C1 = YSUBC / L1\r\n      C2 = YSUBC / L2\r\n      X1 = XSUBC / 2.0D0\r\n      Y1 = YSUBC / 2.0D0\r\n      X2 = (XSUBB + XSUBC) / 2.0D0\r\n      Y2 = Y1\r\n      HQ( 1) = -XSUBC * C1\r\n      HQ( 2) = X1 * S1 - Y1 * C1\r\n      HQ( 3) = 2.0D0 * Y1 * S1\r\n      HQ( 4) = -3.0D0 * X1 * X1 * C1\r\n      HQ( 5) = Y1 * (2.0D0 * X1 * S1 - Y1 * C1 )\r\n      HQ( 6) = 3.0D0 * Y1 * Y1 * S1\r\n      HQ( 7) = 2.0D0 * X2 * C2\r\n      HQ( 8) = X2 * S2  + Y2 * C2\r\n      HQ( 9) = 2.0D0 * Y2 * S2\r\n      HQ(10) = 3.0D0 * X2 * X2 * C2\r\n      HQ(11) = Y2 * ( 2.0D0 * X2 * S2 + Y2 * C2 )\r\n      HQ(12) = 3.0D0 * Y2 * Y2 * S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\nC\r\n      CALL GMMATD( HQ(1),2,6,0, HINV(1),6,6,0,  PROD12(1) )\r\nC\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATD( PROD12(1),2,6,0, S(1),6,3,0,  HABC(1) )\r\nC\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT (H     ) AND (H     )    PARTITION\r\nC             PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA, SUBSCB, SUBSCC.\r\nC\r\n      DO 200 I=1,3\r\nC\r\nC     POINTER TO H  = 6*I-6\r\nC                 I\r\nC\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATD( HABC(6*I-5),2,3,0,  T(1),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1    ROW 1 OF H INTO ROW 1 OF G.\r\nC              ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2    ROW 1 OF H INTO ROW 2 OF G.\r\nC              ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3    ROW 1 OF H INTO ROW 3 OF G.\r\nC              ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF( J-2 ) 170,160,190\r\nC\r\n  160 NPOINT = NPOINT + 3\r\n  170 DO 180 K=1,6\r\n      NPOINT = NPOINT + 1\r\n  180 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 200\r\n  190 G(NPOINT + 7) = G(NPOINT + 7) + TEMP9(1)\r\n      G(NPOINT + 8) = G(NPOINT + 8) + TEMP9(2)\r\n      G(NPOINT + 9) = G(NPOINT + 9) + TEMP9(3)\r\n      G(NPOINT + 1) = G(NPOINT + 1) + TEMP9(4)\r\n      G(NPOINT + 2) = G(NPOINT + 2) + TEMP9(5)\r\n      G(NPOINT + 3) = G(NPOINT + 3) + TEMP9(6)\r\nC\r\n  200 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP FOR BASIC TRIANGLES\r\nC\r\n  210 CONTINUE\r\nC     ******************************************************************\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 220 I=1,18\r\n  220 E(I) = 0.0D0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC              T\r\nC     FORM   T   E      STORE IN TITE-MATRIX (6X3)\r\nC             I\r\nC\r\n      IF( NECPT(4*NPIVOT+9) .EQ. 0 ) GO TO 230\r\n      CALL TRANSD( NECPT(4*NPIVOT+9), T(1) )\r\n      CALL GMMATD( T(1),3,3,1,  E( 1),3,3,0,  TITE( 1) )\r\n      CALL GMMATD( T(1),3,3,1,  E(10),3,3,0,  TITE(10) )\r\n      GO TO 250\r\n  230 DO 240 K=1,18\r\n  240 TITE(K) = E(K)\r\nC\r\nC     SOLVE NOW FOR ....\r\nC\r\nC    E                   T     T                       T\r\nC (K  ) = (K  ) - (TERM ) (K  ) - (K  )(TERM ) + (TERM )(K  )(TERM )\r\nC   IJ      IJ         I    J4      I4      J         I   44      J\r\nC\r\nC                        -1                               I=NPIVOT\r\nC WHERE... (TERM ) = (G )  (G ) ,I=NPIVOT                 J=1,2,3\r\nC               I      4     I\r\nC\r\nC                        -1\r\nC          (TERM ) = (G )  (G ) ,J=1,2,3 AS ABOVE\r\nC               J      4     J\r\nC\r\nC     AND WITH TRANSFORMATIONS....\r\nC\r\nC    G        T      E   T\r\nC (K  ) = (C ) (E)(K  )(E )(C )\r\nC   IJ      I       IJ       J\r\nC\r\nC\r\nC     COMPUTE  (TERM        )  STORE IN PROD9\r\nC                   I=NPIVOT\r\nC\r\nC                   -1\r\nC     FIRST GET (G )\r\nC                 4\r\nC\r\n  250 CONTINUE\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD( 3,G(28),3,PROD9,0,DETERM,ISING,TEMP9 )\r\nC\r\nC     CHECK FOR SINGULARITY. ISING=2 IMPLIES SINGULARITY.\r\n      GO TO(270,260),ISING\r\n  260 CALL MESAGE(30,36,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\nC\r\n  270 CALL GMMATD ( G(28),3,3,0,  G(9*NPIVOT-8),3,3,0,  PROD9(1) )\r\nC\r\nC                       T\r\nC     GET  (TERM        )(K  )  STORE IN TEMP9\r\nC               I=NPIVOT   44\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  KSUM(55),3,3,0,  TEMP9(1) )\r\nC\r\nC\r\nC\r\nC     THE TWO COMMON PRODUCTS ARE NOW AT HAND IN PROD9 AND TEMP9.\r\nC\r\n      DO 360 J=1,3\r\nC\r\nC                   T     T\r\nC     (TERM        ) (K  )    STORE IN ARR9\r\nC          I=NPIVOT    J4\r\nC\r\n      CALL GMMATD( PROD9(1),3,3,1,  KSUM(9*J+19),3,3,1,  ARR9(1) )\r\nC\r\nC     SUBTRACT FROM (K  )\r\nC                     IJ\r\nC\r\n      NBEGIN = 9*J-9\r\n      DO 280 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  280 KSUM(NPOINT) = KSUM(NPOINT) - ARR9(I)\r\nC\r\nC\r\nC      COMPUTE  (TERM )  STORE IN ARR9\r\nC                   J\r\nC\r\n      CALL GMMATD( G(28),3,3,0,  G(9*J-8),3,3,0,  ARR9(1) )\r\nC\r\nC\r\nC     GET  (K  )(TERM )  STORE IN ARRAY9\r\nC            I4      J\r\nC\r\n      CALL GMMATD( KSUM(9*NPIVOT+19),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1))\r\nC\r\nC     SUBTRACT FROM KIJ\r\nC\r\n      DO 290 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  290 KSUM(NPOINT) = KSUM(NPOINT) - ARRAY9(I)\r\nC\r\nC                           T\r\nC     COMPUTE  (TERM        )(K  )(TERM ) = (TEMP9)(ARR9)\r\nC                   I=NPOINT   44      J\r\nC\r\n      CALL GMMATD( TEMP9(1),3,3,0,  ARR9(1),3,3,0,  ARRAY9(1) )\r\nC\r\nC     ADD TO K\r\nC             IJ\r\nC\r\n      DO 300 I=1,9\r\n      NPOINT = NBEGIN + I\r\n  300 KSUM(NPOINT) = KSUM(NPOINT) + ARRAY9(I)\r\nC\r\nC       E\r\nC     K    COMPLETE\r\nC      IJ\r\nC\r\nC     TRANSFORM NOW, AND INSERT.\r\nC\r\nC\r\nC     TRANSFORMATIONS AND INSERTION\r\nC\r\n      IF( NECPT(4*J+9) .EQ. 0) GO TO 310\r\n      CALL TRANSD( NECPT(4*J+9), T(1) )\r\n      CALL GMMATD( T(1),3,3,1,  E( 1),3,3,0,  TJTE( 1) )\r\n      CALL GMMATD( T(1),3,3,1,  E(10),3,3,0,  TJTE(10) )\r\n      GO TO 330\r\n  310 DO 320 K=1,18\r\n  320 TJTE(K) = E(K)\r\n  330 CALL GMMATD( KSUM(NBEGIN+1),3,3,0,  TJTE(1),6,3,1,  TEMP18(1) )\r\n      CALL GMMATD ( TITE(1),6,3,0,  TEMP18(1),3,6,0,  KOUT(1))\r\n      CALL PLA4B(KOUT(1),NECPT(J+1))\r\nC\r\n  360 CONTINUE\r\n      RETURN\r\n  370 CALL MESAGE(30,26,ECPT(1))\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n      NOGO=1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrq2.f",
    "content": "      SUBROUTINE PKTRQ2 (NTYPE)\r\nC THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA4\r\nC\r\nC     NTYPE = 1 TRI-MEMBRANE\r\nC     NTYPE = 2 QUAD-MEMBRANE\r\nC\r\nC     PH1OUT CONTAINS THE FOLLOWING\r\nC     *** NTYPE = 1 ***\r\nC     ELEMENT ID\r\nC     3 SILS\r\nC     5 DUMMY-S\r\nC     3 S ARRAYS EACH 3X3\r\nC\r\nC     *** NTYPE = 2 ***\r\nC     ELEMENT ID\r\nC     4 SILS\r\nC     4 DUMMY-S\r\nC     4 S ARRAYS EACH 3X3\r\nC\r\n      DIMENSION NSIL(4), SI(36)\r\nC\r\n      COMMON /PLA4UV/ IVEC, Z(24)\r\n      COMMON /PLA4ES/ PH1OUT(300)\r\n      COMMON /PLA42S/ STRESS(3),VEC(3),TEMP,DELTA,NSIZE,NPOINT,\r\n     1   DUM(315)\r\nC\r\n      EQUIVALENCE\r\n     1            (NSIL(1),PH1OUT(2))\r\n     2,           (SI(1),PH1OUT(10))\r\nC\r\nC\r\nC                        I=NSIZE\r\nC     STRESS VECTOR = (SUMMATION  (S ) (U ))\r\nC                        I=1        I    I\r\nC\r\n      NSIZE = NTYPE + 2\r\n      DO 20 I = 1,NSIZE\r\nC     POINTER TO DISPLACEMENT VECTOR\r\n      NPOINT = IVEC + NSIL(I) -1\r\nC\r\n      CALL GMMATS( SI(9*I-8),3,3,0,  Z(NPOINT),3,1,0, VEC(1))\r\nC\r\n      DO 30 J=1,3\r\n   30 STRESS(J) = STRESS(J) + VEC(J)\r\n   20 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pktrqd.f",
    "content": "      SUBROUTINE PKTRQD (NTYPE)\r\nC  THIS ROUTINE SETS UP THE ECPT FOR COMBINATION ELEMENTS IN PLA4\r\nC\r\nC\r\nC **********************************************************************\r\nC\r\nC     8/18/67         E C P T     L I S T I N G\r\nC                    ***************************\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC **********************************************************************\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC **********************************************************************\r\nC\r\n      DIMENSION SAVE(32)\r\n      COMMON /PLA4ES/ ECPT(100)\r\n      COMMON /PLA42D/ DUMMY(600)\r\n      EQUIVALENCE (SAVE(1),ECPT(50))\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC              NTYPE = 1  IMPLIES KTRIA1\r\nC              NTYPE = 2  IMPLIES KTRIA2\r\nC              NTYPE = 3  IMPLIES KQUAD1\r\nC              NTYPE = 4  IMPLIES KQUAD2\r\nC\r\nC\r\nC     THE SAVED ECPT IS EQUIVALENCED TO ECPT(50)\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I=1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC              KTRIA1    KTRIA2    KQUAD1    KQUAD2\r\n      GO TO(20,70,100,150),NTYPE\r\nC\r\nC     *** KTRIA1 ***\r\nC\r\nC     SET UP ECPT FOR CALL TO PKTRMS\r\n   20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 40\r\n      DO 30 I=9,21\r\n   30 ECPT(I) = SAVE(I + 6)\r\nC\r\n      CALL PKTRMS(0)\r\nC\r\nC     SET UP CALL TO PKTRPL\r\n   40 IF( SAVE(9) .EQ. 0.0E0 ) RETURN\r\n      DO 50 I=1,5\r\n   50 ECPT(I) = SAVE(I)\r\n      DO 60 I=6,25\r\n   60 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL PKTRPL\r\n      RETURN\r\nC\r\nC     *** KTRIA2 ***\r\nC\r\n   70 IF( SAVE(7) .EQ. 0.0E0 ) RETURN\r\nC     SET UP CALL TO PKTRMS\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PKTRMS(0)\r\nC\r\nC     SET UP CALL TO PKTRPL\r\nC\r\n      DO 80 I=1,6\r\n   80 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7) ** 3  / 12.0E0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      DO 90 I=13,25\r\n   90 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL PKTRPL\r\n      RETURN\r\nC\r\nC     *** KQUAD1 ***\r\nC\r\n  100 IF(SAVE(8).EQ.0.0E0)GO TO 120\r\nC\r\nC     SET UP CALL TO PKQDMS\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 110 I=10,26\r\n  110 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL PKQDMS\r\nC\r\n  120 IF( SAVE(10) .EQ. 0.0E0 ) RETURN\r\nC\r\nC     SET UP CALL TO PKQDPL\r\nC\r\n      DO 130 I=1,6\r\n  130 ECPT(I) = SAVE(I)\r\n      DO 140 I=7,30\r\n  140 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL PKQDPL\r\n      RETURN\r\nC\r\nC     *** KQUAD2 ***\r\nC\r\n  150 IF( SAVE(8) .EQ. 0.0E0 ) RETURN\r\nC\r\nC     SET UP CALL TO PKQDMS\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PKQDMS\r\nC\r\nC     SET UP CALL TO PKQDPL\r\nC\r\n      DO 160 I=1,7\r\n  160 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8) **3 / 12.0E0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11)= SAVE(9)\r\n      DO 170 I=14,30\r\n  170 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL PKQDPL\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla1.f",
    "content": "      SUBROUTINE PLA1\r\nC\r\nC     THIS FUNCTIONAL MODULE IS THE FIRST OF FOUR FUNCTIONAL MODULES\r\nC     UNIQUE TO THE PIECE-WISE LINEAR ANALYSIS (DISPLACEMENT METHOD)\r\nC     RIGID FORMAT\r\nC\r\nC\r\nC     PLA1   CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST /KGGL,ECPTNL,ESTL,ESTNL/\r\nC            V,N,KGGLPG/V,N,NPLALIM/V,N,ECPTNLPG/V,N,PLSETNO/\r\nC            V,N,NONLSTR/V,N,PLFACT/ $\r\nC\r\nC     THE OUTPUT DATA BLOCKS AND PARAMETERS ARE DEFINED AS FOLLOWS -\r\nC\r\nC     KGGL   IS THE STIFFNESS MATRIX OF LINEAR (NON-STRESS DEPENDENT)\r\nC            ELEMENTS\r\nC     ECPTNL IS A SUBSET OF THE ECPT WHICH CONTAINS ECPT PLUS STRESS\r\nC            INFORMATION FOR THE NON-LINEAR (STRESS DEPENDENT) ELEMENTS\r\nC     ESTL,  A SUBSET OF THE EST, CONTAINS ALL LINEAR ELEMENTS\r\nC     ESTNL, THE COMPLEMENT OF THE ESTL, CONTAINS INFORMATION FOR THE\r\nC            NON-LINEAR ELEMENTS\r\nC\r\nC     PARAMETER NAMES BELOW ARE FORTRAN VARIABLE NAMES RATHER THAN DMAP\r\nC     PARAMETER NAMES\r\nC\r\nC     KGGLPG IS THE PURGE FLAG FOR THE KGGL AND ESTL DATA BLOCKS.  IT IS\r\nC            SET = -1 (PURGE=YES) IF ALL ELEMENTS ARE STRESS DEPENDENT\r\nC     NPLALP IS THE NUMBER OF PASSES THAT WILL BE MADE THRU THE PLA LOOP\r\nC     KICKOF IS SET = -1 (KICK THE USER OFF THE MACHINE = YES) IF THE\r\nC            DIT IS PURGED OR ALL ELEMENTS ARE NON-STRESS DEPENDENT\r\nC     PLASET IS THE SET NUMBER ON THE PLFACT CARD THAT IS OBTAINED FROM\r\nC            THE FIRST RECORD OF CASECC\r\nC     NONLST IS THE FLAG SUCH THAT IF IT IS A -1 THE USER DOES NOT WISH\r\nC            TO OUTPUT HIS NON-LINEAR STRESSES.  HENCE PLA3 WILL NOT BE\r\nC            CALLED\r\nC     PLFACT IS THE FIRST PIECE-WISE LINEAR FACTOR TO BE USED FROM\r\nC            PLASET\r\nC\r\n      LOGICAL          PHASE1,ALL,HEAT\r\n      INTEGER          BUFR1,BUFR2,BUFR3,BUFR4,BUFSZ,IZ(1),EOR,CLSRW,\r\n     1                 CLSNRW,OUTRW,FROWIC,TNROWS,CSTM,DIT,ECPT,GPCT,\r\n     2                 ECPTNL,ESTL,ESTNL,PLAARY(90),FILE,TRAIL,PLASET,\r\n     3                 PLANOS(2),SETNO,OUTFIL,IECPT(100),ESTLTR(7),\r\n     4                 ESTNLT(7),YESSD,EST,CASECC\r\n      DOUBLE PRECISION DZ(1),DPDUM,DPWORD\r\n      DIMENSION        NAME(2),INPVT(2)\r\n      CHARACTER        UFM*23,UWM*25\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /BLANK /  KGGLPG,NPLALP,KICKOF,PLASET,NONLST,PLFACT(2)\r\n      COMMON /SYSTEM/  BUFSZ,ISYSPT,ISP1(37),NBPW,ISP2(14),IPREC\r\n      COMMON /SMA1IO/  CSTM,MPT,DIT,BUFR1,ECPT,BUFR2,GPCT,BUFR3,BUFR4,\r\n     1                 ITYPE,KGGL,ESTNL,ECPTNL,DUM1,ESTL,DUM2,INRW,\r\n     2                 OUTRW,CLSNRW,CLSRW,NEOR,EOR,MCBKGG(7),TRAIL(7)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SMA1BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K,\r\n     1                 DUM4,DUM5,DUM6\r\n      COMMON /SMA1CL/  IOPT4,DUM7,NPVT,LEFT,FROWIC,LROWIC,NROWSC,\r\n     1                 TNROWS,JMAX,NLINKS,LINK(10),DUM8,DUM9,NOGO\r\n      COMMON /GPTA1 /  NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SMA1ET/  XECPT(100)\r\n      COMMON /SMA1DP/  DPDUM(300)\r\n      COMMON /SMA1HT/  HEAT\r\n      COMMON /ZBLPKX/  DPWORD,LLLLLL(2),INDEX\r\n      COMMON /MATIN /  MATID,INFLAG,FILLER(4)\r\n      COMMON /MATOUT/  INDSTR,YYYYYY(19)\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1)) ,(IECPT(1),XECPT(1)),\r\n     1                 (MCBKGG(1),ESTLTR(1)), (TRAIL(1),ESTNLT(1)),\r\n     2                 (TRAIL(2),NNLEL), (ESTLTR(2),NLEL),\r\n     3                 (FNN,NN), (INDSTR,E)\r\n      DATA             CASECC,JSTSET,JPLSET,JSYM /106,23,164,200 /\r\n      DATA             NAME  / 4HPLA1,4H    /, HMPT  / 4HMPT     /\r\n      DATA             PLANOS/ 1103, 11     /\r\n      DATA             PLAARY/ 1,  0,  1,  0,  0,    1,  0,  0,  1,  1,\r\n     1                         0,  0,  0,  0,  0,    1,  1,  1,  1,  0,\r\n     2                         0,  0,  0,  0,  0,    0,  0,  0,  0,  0,\r\n     3                         0,  0,  0,  1,  0,    0,  0,  0,  0,  0,\r\n     4                         0,  0,  0,  0,  0,    0,  0,  0,  0,  0,\r\n     5                         0,  0,  0,  0,  0,    0,  0,  0,  0,  0,\r\n     6                      30*0 /\r\nC\r\nC     IF THE DIT HAS BEEN PURGED, WE CANNOT PROCEED FURTHER\r\nC\r\n      IPR = IPREC\r\n      CALL DELSET\r\n      TRAIL(1) = DIT\r\n      CALL RDTRL (TRAIL)\r\n      IF (TRAIL(1) .LT. 0) CALL MESAGE (-1,DIT,NAME)\r\nC\r\nC     INITIALIZE HEAT PARAMETER\r\nC\r\n      HEAT = .FALSE.\r\nC\r\nC     INITIALIZE MODULE PARAMETERS AND SET IOPT4 = 0, SO THAT ELEMENT\r\nC     ROUTINES WILL NOT CALCULATE STRUCTURAL DAMPING MATRICES.\r\nC\r\n      KGGLPG =-1\r\n      NPLALP = 1\r\n      KICKOF =-1\r\n      PLASET =-1\r\n      NONLST = 1\r\n      PLFACT(1) = 1.0\r\n      IOPT4  = 0\r\n      ESTNL  = 204\r\n      EST    = 107\r\n      PHASE1 = .TRUE.\r\n      ASSIGN 290 TO NOSD\r\nC\r\nC     SET UP BUFFERS AND INITIALIZE FILE TRAILERS.\r\nC\r\n      IZMAX = KORSZ (Z)\r\n      BUFR1 = IZMAX - BUFSZ\r\n      BUFR2 = BUFR1 - BUFSZ\r\n      BUFR3 = BUFR2 - BUFSZ\r\n      BUFR4 = BUFR3 - BUFSZ\r\n      LEFT  = BUFR4 - 1\r\n      CALL MAKMCB (MCBKGG,KGGL,0,6,IPR)\r\n      CALL MAKMCB (TRAIL,ECPTNL,0,0,0)\r\nC\r\nC     CHECK PLAARY SIZE\r\nC\r\n      IF (NELEMS .GT. 90) WRITE (ISYSPT,1) UWM\r\n    1 FORMAT (A25,' 2151, -PLAARY- ARRAY IS SMALLER THAN MAXIMUM ',\r\n     1       'NUMBER OF ELEMENT TYPES.')\r\nC\r\nC     OPEN THE KGGL FILE FOR OUTPUT\r\nC\r\n      CALL GOPEN (KGGL,Z(BUFR1),1)\r\nC\r\nC     ATTEMPT TO READ THE CSTM INTO CORE\r\nC\r\n      ICSTM = 0\r\n      NCSTM = 0\r\n      FILE  = CSTM\r\n      CALL OPEN (*20,CSTM,Z(BUFR2),INRW)\r\n      CALL FWDREC (*870,CSTM)\r\n      CALL READ (*870,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM)\r\nC\r\nC     INSUFFICIENT CORE - CALL MESAGE\r\nC\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 LEFT = LEFT - NCSTM\r\n      CALL CLOSE (CSTM,CLSRW)\r\nC\r\nC     CALL PRETRD TO SET UP FUTURE CALLS TO TRANSD.\r\nC\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      CALL PRETRS (Z(ICSTM+1),NCSTM)\r\nC\r\nC     CALL PREMAT TO READ THE MPT AND THE DIT AND TO SET UP FUTURE CALLS\r\nC     TO SUBROUTINE MAT.  NOTE NEGATIVE ISGN FOR DIT TO TRIGGER PLA FLAG\r\nC     IN MAT.\r\nC\r\n   20 IMAT  = NCSTM\r\n      CALL PREMAT (IZ(IMAT+1),Z(IMAT+1),Z(BUFR2-3),LEFT,MUSED,MPT,-DIT)\r\n      LEFT  = LEFT  - MUSED\r\n      IGPCT = NCSTM + MUSED\r\nC\r\nC     OPEN THE INPUT FILES ECPT AND GPCT AND THE OUTPUT FILE ECPTNL.\r\nC\r\n      CALL GOPEN (ECPT,  Z(BUFR2),0)\r\n      CALL GOPEN (GPCT,  Z(BUFR3),0)\r\n      CALL GOPEN (ECPTNL,Z(BUFR4),1)\r\n      ILEFT = LEFT\r\nC\r\nC     BEGIN MAIN LOOP FOR PROCESSING THE ECPT.\r\nC\r\n   30 CALL READ (*650,*630,GPCT,INPVT(1),2,NEOR,IFLAG)\r\n      NGPCT = INPVT(2)\r\n      LEFT  = ILEFT - 2*NGPCT\r\n      IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,EOR)\r\nC\r\nC     FROWIC IS THE FIRST ROW IN CORE (1 .LE. FROWIC .LE. 6)\r\nC\r\n      FROWIC = 1\r\n      IPOINT = IGPCT  + NGPCT\r\n      NPOINT = NGPCT\r\n      I6X6K  = IPOINT + NPOINT\r\nC\r\nC     MAKE I6X6K A DOUBLE PRECISION INDEX (I6X6K POINTS TO THE 0TH\r\nC     LOCATION OF THE 6 X 6 SUBMATRIX OF KGGL IN CORE)\r\nC\r\n      I6X6K = (I6X6K-1)/2 + 2\r\nC\r\nC     CONSTRUCT THE POINTER TABLE WHICH WILL ENABLE SUBROUTINE SMA1B TO\r\nC     ADD THE ELEMENT STIFFNESS MATRICES TO KGGL.\r\nC\r\n      IZ(IPOINT+1) = 1\r\n      I1 = 1\r\n      I  = IGPCT\r\n      J  = IPOINT + 1\r\n   40 I1 = I1 + 1\r\n      IF (I1 .GT. NGPCT) GO TO 50\r\n      I  = I + 1\r\n      J  = J + 1\r\n      INC= 6\r\n      IF (IZ(I) .LT. 0) INC = 1\r\n      IZ(J) = IZ(J-1) + INC\r\n      GO TO 40\r\nC\r\nC     JMAX = THE NO. OF COLUMNS OF KGGL THAT WILL BE GENERATED WITH THE\r\nC     CURRENT PIVOT POINT.\r\nC\r\n   50 INC   = 5\r\n      ILAST = IGPCT  + NGPCT\r\n      JLAST = IPOINT + NPOINT\r\n      IF (IZ(ILAST) .LT. 0) INC = 0\r\n      JMAX  = IZ(JLAST) + INC\r\nC\r\nC     TNROWS = TOTAL NO. OF ROWS OF THE MATRIX TO BE GENERATED\r\nC\r\n      TNROWS = 6\r\n      IF (INPVT(1) .LT. 0) TNROWS = 1\r\n      IF (2*TNROWS*JMAX .LT. LEFT) GO TO 70\r\nC\r\nC     THE WHOLE SUBMATRIX CANNOT FIT IN CORE\r\nC\r\n      IF (TNROWS .EQ. 1) CALL MESAGE (-8,0,NAME)\r\n      NROWSC = 3\r\n      PLAARY(39) = NAME(1)\r\n   60 PLAARY(40) = NPVT\r\n      CALL MESAGE (30,85,PLAARY(39))\r\n      IF (2*NROWSC*JMAX .LT. LEFT) GO TO 80\r\n      NROWSC = NROWSC - 1\r\n      IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 60\r\n   70 NROWSC = TNROWS\r\n   80 FROWIC = 1\r\n      LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     ZERO OUT THE KGGL SUBMATRIX IN CORE.\r\nC\r\n      LOW = I6X6K + 1\r\n      LIM = I6X6K + JMAX*NROWSC\r\n      DO 90 I = LOW,LIM\r\n   90 DZ(I) = 0.0D0\r\nC\r\nC     INITIALIZE THE LINK VECTOR TO -1\r\nC\r\n      DO 100 I = 1,NLINKS\r\n  100 LINK(I) = -1\r\n      LINCOR  =  1\r\n      FILE = ECPT\r\nC\r\nC     TURN FIRST PASS, FIRST ELEMENT READ ON THE CURRENT PASS OF THE\r\nC     ECPT RECORD, AND PIVOT POINT WRITTEN INDICATORS ON.\r\nC\r\n      IPASS  = 1\r\n      NPVTWR = 0\r\n  110 IFIRST = 1\r\nC\r\nC     READ THE FIRST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT\r\nC\r\n      CALL FREAD (ECPT,NPVT,1,NEOR)\r\nC\r\nC     READ THE NEXT ELEMENT TYPE INTO ITYPE, AND READ THE PRESCRIBED NO.\r\nC     OF WORDS INTO THE XECPT ARRAY.\r\nC\r\n  120 CALL READ (*870,*520,ECPT,ITYPE,1,NEOR,IFLAG)\r\n      IDX = (ITYPE-1)*INCR\r\n      NN  = NE(IDX+12)\r\n      CALL FREAD (ECPT,XECPT,NN,NEOR)\r\n      ITEMP = NE(IDX+22)\r\n      IF (IPASS .NE. 1) GO TO 290\r\nC\r\nC     THIS IS THE FIRST PASS.  IF THE ELEMENT IS IN THE PLA SET, CALL\r\nC     THE MAT ROUTINE TO FIND OUT IF ANY OF THE MATERIAL PROPERTIES IS\r\nC     STRESS DEPENDENT.\r\nC\r\nC\r\nC              CROD      CBEAM     CTUBE     CSHEAR    CTWIST    CTRIA1\r\nC                 1        2         3          4         5         6\r\nC              CTRBSC    CTRPLT    CTRMEM    CONROD    ELAS1     ELAS2\r\nC               7           8         9        10        11        12\r\nC              ELAS3     ELAS4     CQDPLT    CQDMEM    CTRIA2    CQUAD2\r\nC               13        14         15        16        17        18\r\nC              CQUAD1    CDAMP1    CDAMP2    CDAMP3    CDAMP4    CVISC\r\nC               19        20        21         22        23        24\r\nC              MASS1     CMASS2    CMASS3    CMASS4    CONM1     CONM2\r\nC                25        26        27        28        29        30\r\nC              PLOTEL    REACT     QUAD3     CBAR      CCONE\r\nC                31        32        33       34         35\r\n      IF (ITYPE .GT. 35) GO TO 120\r\n      GO TO (130,890,150,290,290,160,290,290,170,130,\r\n     1       290,290,290,290,290,180,190,200,210,120,\r\n     2       120,120,120,120,120,120,120,120,120,120,\r\n     3       120,890,890,220,290), ITYPE\r\nC\r\nC     ROD\r\nC\r\n  130 MATID = IECPT(4)\r\n      ASSIGN 140 TO YESSD\r\n      GO TO 230\r\n  140 XECPT(18) = 0.0\r\n      XECPT(19) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(20) = E\r\n      IF (PHASE1) GO TO 145\r\n      XECPT(21) = 0.0\r\n      NWDS = 21\r\n      GO TO 765\r\n  145 NWDS = 20\r\n      GO TO 260\r\nC\r\nC     TUBE\r\nC\r\n  150 MATID = IECPT(4)\r\n      ASSIGN 155 TO YESSD\r\n      GO TO 230\r\n  155 XECPT(17) = 0.0\r\n      XECPT(18) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(19) = E\r\n      IF (PHASE1) GO TO 157\r\n      XECPT(20) = 0.0\r\n      NWDS = 20\r\n      GO TO 765\r\n  157 NWDS = 19\r\n      GO TO 260\r\nC\r\nC     TRIA1\r\nC\r\n  160 MATID = IECPT(6)\r\n      ASSIGN 165 TO YESSD\r\n      GO TO 230\r\n  165 DO 166 I = 28,33\r\n  166 XECPT(I) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(30) = E\r\n      IF (PHASE1) GO TO 168\r\n      DO 167 I = 34,38\r\n  167 XECPT(I) = 0.0\r\n      NWDS = 38\r\n      GO TO 765\r\n  168 NWDS = 33\r\n      GO TO 260\r\nC\r\nC     TRMEM\r\nC\r\n  170 MATID = IECPT(6)\r\n      ASSIGN 175 TO YESSD\r\n      GO TO 230\r\n  175 DO 176 I = 22,27\r\n  176 XECPT(I) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(24) = E\r\n      NWDS = 27\r\n      IF (PHASE1) GO TO 260\r\n      GO TO 765\r\nC\r\nC     QDMEM\r\nC\r\n  180 MATID = IECPT(7)\r\n      ASSIGN 185 TO YESSD\r\n      GO TO 230\r\n  185 DO 186 I = 27,32\r\n  186 XECPT(I) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(29) = E\r\n      NWDS = 32\r\n      IF (PHASE1) GO TO 260\r\n      GO TO 765\r\nC\r\nC     TRIA2\r\nC\r\n  190 MATID = IECPT(6)\r\n      ASSIGN 195 TO YESSD\r\n      GO TO 230\r\n  195 DO 196 I = 22,27\r\n  196 XECPT(I) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(24) = E\r\n      IF (PHASE1) GO TO 198\r\n      DO 197 I = 28,32\r\n  197 XECPT(I) = 0.0\r\n      NWDS = 32\r\n      GO TO 765\r\n  198 NWDS = 27\r\n      GO TO 260\r\nC\r\nC     QUAD2\r\nC\r\n  200 MATID = IECPT(7)\r\n      ASSIGN 205 TO YESSD\r\n      GO TO 230\r\n  205 DO 206 I = 27,32\r\n  206 XECPT(I) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(29) = E\r\n      IF (PHASE1) GO TO 208\r\n      DO 207 I = 33,37\r\n  207 XECPT(I) = 0.0\r\n      NWDS = 37\r\n      GO TO 765\r\n  208 NWDS = 32\r\n      GO TO 260\r\nC\r\nC     QUAD1\r\nC\r\n  210 MATID = IECPT(7)\r\n      ASSIGN 215 TO YESSD\r\n      GO TO 230\r\n  215 DO 216 I = 33,38\r\n  216 XECPT(I) =0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(35) = E\r\n      IF (PHASE1) GO TO 218\r\n      DO 217 I = 39,43\r\n  217 XECPT(I) = 0.0\r\n      NWDS = 43\r\n      GO TO 765\r\n  218 NWDS = 38\r\n      GO TO 260\r\nC\r\nC     BAR - IF COORDINATE 1 OF EITHER PT. A OR PT. B IS PINNED THE\r\nC           ELEMENT IS TREATED AS LINEAR (NON-STRESS DEPENDENT)\r\nC\r\n  220 IF (IECPT(8).EQ.0 .AND. IECPT(9).EQ.0) GO TO 224\r\n      KA = IECPT(8)\r\n      KB = IECPT(9)\r\n  222 IF (MOD(KA,10).EQ.1 .OR. MOD(KB,10).EQ.1) GO TO 290\r\n      KA = KA/10\r\n      KB = KB/10\r\n      IF (KA.LE.0 .AND. KB.LE.0) GO TO 224\r\n      GO TO 222\r\n  224 MATID = IECPT(16)\r\n      ASSIGN 226 TO YESSD\r\n      GO TO 230\r\n  226 XECPT(43) = 0.0\r\n      XECPT(44) = 0.0\r\n      INFLAG = 1\r\n      CALL MAT (IECPT(1))\r\n      XECPT(45) = E\r\n      IF (PHASE1) GO TO 228\r\n      DO 227 I = 46,50\r\n  227 XECPT(I) = 0.0\r\n      NWDS = 50\r\n      GO TO 765\r\n  228 NWDS = 45\r\n      GO TO 260\r\nC\r\nC     TEST TO SEE IF ELEMENT IS STRESS DEPENDENT.\r\nC\r\n  230 INFLAG = 5\r\n      CALL MAT (IECPT(1))\r\n      IF (INDSTR) 240,240,250\r\n  240 GO TO NOSD,  (290,820)\r\n  250 GO TO YESSD, (140,155,165,175,185,195,205,215,226)\r\nC\r\nC     WRITE AN ENTRY ONTO ECPTNL\r\nC\r\n  260 IF (NPVTWR) 270,270,280\r\n  270 NPVTWR = 1\r\n      CALL WRITE (ECPTNL,NPVT,1,NEOR)\r\n      KICKOF = 1\r\n  280 CALL WRITE (ECPTNL,ITYPE,1,NEOR)\r\n      CALL WRITE (ECPTNL,XECPT,NWDS,NEOR)\r\n      NNLEL = NNLEL + 1\r\n      GO TO 120\r\nC\r\nC     IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT,\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN\r\nC     PROCESSED.\r\nC\r\n  290 KGGLPG = 1\r\n      IF (IFIRST .EQ. 1) GO TO 300\r\nC\r\nC     THIS IS NOT THE FIRST PASS.  IF ITYPE(TH) ELEMENT ROUTINE IS IN\r\nC     CORE, PROCESS IT.\r\nC\r\n      IF (ITEMP .EQ. LINCOR) GO TO 310\r\nC\r\nC     THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE.  IF THIS ELEMENT\r\nC     ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT\r\nC     ELEMENT.\r\nC\r\n      IF (LINK(ITEMP) .EQ. 1) GO TO 120\r\nC\r\nC     SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT\r\nC     RESIDES\r\nC\r\n      LINK(ITEMP) = 0\r\n      GO TO 120\r\nC\r\nC     SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS\r\nC     OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT\r\nC     IS IN A LINK THAT HAS ALREADY BEEN PROCESSED.  IF IT IS SUCH AN\r\nC     ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT.\r\nC\r\n  300 IF (LINK(ITEMP) .EQ. 1) GO TO 120\r\nC\r\nC     SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0\r\nC\r\n      LINCOR = ITEMP\r\n      IFIRST = 0\r\nC\r\nC     CALL THE PROPER ELEMENT ROUTINE.\r\nC\r\nC            CROD  CBEAM  CTUBE  CSHEAR  CTWIST  CTRIA1  CTRBSC\r\nC              1     2      3       4       5       6       7\r\nC          CTRPLT  CTRMEM  CONROD  ELAS1  ELAS2  ELAS3  ELAS4\r\nC             8       9      10      11     12     13     14\r\nC          CQDPLT  CQDMEM  CTRIA2  CQUAD2 CQUAD1  CDAMP1  CDAMP2\r\nC            15      16      17      18      19     20      21\r\nC          CDAMP3  CDAMP4  CVISC  CMASS1  CMASS2  CMASS3  CMASS4\r\nC            22      23      24     25      26      27      28\r\nC           CONM1  CONM2   PLOTEL REACT   QUAD3   CBAR    CCONE\r\nC             29     30      31     32      33     34       35\r\n  310 IF (ITYPE .GT. 35) GO TO 120\r\n      GO TO (320,890,340,350,360,370,380,390,400,320,\r\n     1       410,420,430,440,450,460,470,480,490,120,\r\n     2       120,120,120,120,120,120,120,120,120,120,\r\n     3       120,890,890,500,510), ITYPE\r\n  320 CALL KROD\r\n      GO TO 120\r\n  340 CALL KTUBE\r\n      GO TO 120\r\n  350 CALL KPANEL (4)\r\n      GO TO 120\r\n  360 CALL KPANEL (5)\r\n      GO TO 120\r\n  370 CALL KTRIQD (1)\r\n      GO TO 120\r\n  380 CALL KTRBSC (0)\r\n      GO TO 120\r\n  390 CALL KTRPLT\r\n      GO TO 120\r\n  400 CALL KTRMEM (0)\r\n      GO TO 120\r\n  410 CALL KELAS (1)\r\n      GO TO 120\r\n  420 CALL KELAS (2)\r\n      GO TO 120\r\n  430 CALL KELAS (3)\r\n      GO TO 120\r\n  440 CALL KELAS (4)\r\n      GO TO 120\r\n  450 CALL KQDPLT\r\n      GO TO 120\r\n  460 CALL KQDMEM\r\n      GO TO 120\r\n  470 CALL KTRIQD (2)\r\n      GO TO 120\r\n  480 CALL KTRIQD (4)\r\n      GO TO 120\r\n  490 CALL KTRIQD (3)\r\n      GO TO 120\r\n  500 CALL KBAR\r\n      GO TO 120\r\n  510 IF (NBPW .LE. 32) CALL KCONED\r\n      IF (NBPW .GT. 32) CALL KCONES\r\n      GO TO 120\r\nC\r\nC     AN END OF LOGICAL RECORD HAS BEEN HIT ON THE ECPT.  IF NPVTWR = 0,\r\nC     THE PIVOT POINT HAS NOT BEEN WRITTEN ON ECPTNL AND NO ELEMENTS IN\r\nC     THE CURRENT ECPT RECORD ARE PLASTIC.\r\nC\r\n  520 IF (IPASS .NE. 1) GO TO 550\r\n      IF (NPVTWR) 530,530,540\r\n  530 CALL WRITE (ECPTNL,-NPVT,1,EOR)\r\n      GO TO 550\r\n  540 CALL WRITE (ECPTNL,0,0,EOR)\r\n  550 IPASS = 2\r\n      LINK(LINCOR) = 1\r\n      DO 560 I = 1,NLINKS\r\n      IF (LINK(I) .EQ. 0) GO TO 570\r\n  560 CONTINUE\r\n      GO TO 580\r\nC\r\nC     SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST\r\nC     BE BACKSPACED\r\nC\r\n  570 CALL BCKREC (ECPT)\r\n      GO TO 110\r\nC\r\nC     WRITE THE NO. OF ROWS IN CORE UNTO THE KGGL FILE USING ZBLPKI.\r\nC\r\n  580 I1  = 0\r\n  590 I2  = 0\r\n      IBEG = I6X6K + I1*JMAX\r\n      CALL BLDPK (2,IPR,KGGL,0,0)\r\n  600 I2  = I2 + 1\r\n      IF (I2 .GT. NGPCT) GO TO 620\r\n      JJ  = IGPCT + I2\r\n      INDEX = IABS(IZ(JJ)) - 1\r\n      LIM = 6\r\n      IF (IZ(JJ) .LT. 0) LIM = 1\r\n      JJJ = IPOINT + I2\r\n      KKK = IBEG + IZ(JJJ) - 1\r\n      I3  = 0\r\n  610 I3  = I3 + 1\r\n      IF (I3 .GT. LIM) GO TO 600\r\n      INDEX = INDEX + 1\r\n      KKK = KKK + 1\r\n      DPWORD = DZ(KKK)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n      GO TO 610\r\n  620 CALL BLDPKN (KGGL,0,MCBKGG)\r\n      I1  = I1 + 1\r\n      IF (I1 .LT. NROWSC) GO TO 590\r\nC\r\nC     IF LROWIC = TNROWS, PROCESSING OF THE CURRENT ECPT RECORD HAS BEEN\r\nC     COMPLETED.\r\nC\r\n      IF (LROWIC .EQ. TNROWS) GO TO 30\r\n      CALL BCKREC (ECPT)\r\n      FROWIC = FROWIC + NROWSC\r\n      LROWIC = LROWIC + NROWSC\r\n      IPASS  = 2\r\n      GO TO 110\r\nC\r\nC     NO ELEMENTS ARE CONNECTED TO THE PIVOT POINT.  OUTPUT ZERO\r\nC     COLUMN(S).  ALSO, WRITE NEGATIVE PIVOT POINT ON ECPTNL.\r\nC\r\n  630 LIM = 6\r\n      IF (INPVT(1) .LT. 0) LIM = 1\r\n      DO 640 I = 1,LIM\r\n      CALL BLDPK (2,IPR,KGGL,0,0)\r\n  640 CALL BLDPKN (KGGL,0,MCBKGG)\r\n      CALL SKPREC (ECPT,1)\r\n      CALL WRITE (ECPTNL,-IABS(INPVT(1)),1,EOR)\r\n      GO TO 30\r\nC\r\nC     ECPT PROCESSING HAS BEEN COMPLETED SINCE AN EOF HAS BEEN READ ON\r\nC     GPCT.\r\nC\r\n  650 CALL CLOSE (GPCT,CLSRW)\r\n      CALL CLOSE (ECPT,CLSRW)\r\n      CALL CLOSE (KGGL,CLSRW)\r\n      CALL CLOSE (ECPTNL,CLSRW)\r\n      IF (KICKOF   .EQ. -1) GO TO 865\r\n      IF (MCBKGG(6) .NE. 0) GO TO 654\r\n      DO 652 I = 2,7\r\n  652 MCBKGG(I) = 0\r\n      GO TO 656\r\n  654 MCBKGG(3) = MCBKGG(2)\r\n  656 CALL WRTTRL (MCBKGG)\r\n      CALL WRTTRL (TRAIL)\r\nC\r\nC     BEGIN EST PROCESSING\r\nC\r\n      LEFT = BUFR4 - 1\r\n      ICC  = NCSTM +  MUSED\r\n      ALL  = .FALSE.\r\n      PHASE1 = .FALSE.\r\nC\r\nC     READ THE FIRST RECORD OF CASECC INTO CORE.\r\nC\r\n      FILE = CASECC\r\n      CALL GOPEN (CASECC,Z(BUFR1),0)\r\n      CALL READ (*870,*658,CASECC,IZ(ICC+1),LEFT,EOR,NCC)\r\n      CALL MESAGE (-8,0,NAME)\r\n  658 IPLSET = ICC + JPLSET\r\n      PLASET = IZ(IPLSET)\r\n      ISTSET = ICC + JSTSET\r\n      IF (IZ(ISTSET)) 660,670,680\r\n  660 ALL = .TRUE.\r\n      GO TO 705\r\n  670 NONLST = -1\r\n      GO TO 705\r\nC\r\nC     THE USER HAS REQUESTED A PROPER SUBSET OF HIS SET OF ELEMENTS FOR\r\nC     WHICH HE WANTS STRESS OUTPUT.  FIND THE SET IN OPEN CORE AND\r\nC     DETERMINE ZERO POINTER AND LENGTH OF THE SET.\r\nC\r\n  680 ISYM = ICC + JSYM\r\n      ISETNO = ISYM + IZ(ISYM) + 1\r\n      LSET = IZ(ISETNO+1)\r\n  690 ISET = ISETNO + 2\r\n      NSET = IZ(ISETNO+1) + ISET - 1\r\n      IF (IZ(ISETNO) .EQ. IZ(ISTSET)) GO TO 700\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. NCC) GO TO 690\r\n      ALL = .TRUE.\r\n  700 IZ(NSET+1) = 2**14 + 1\r\n  705 CALL CLOSE (CASECC,CLSRW)\r\n      IF (PLASET .NE. -1) GO TO 706\r\n      JJ = 1\r\n      PLFACT(1) = 1.0\r\n      GO TO 731\r\n  706 CONTINUE\r\nC\r\nC     SEARCH THE MPT FOR THE PLA SET\r\nC\r\n      FILE = MPT\r\n      CALL PRELOC (*860,Z(BUFR1-3),MPT)\r\n      CALL LOCATE (*895,Z(BUFR1-3),PLANOS,IFLAG)\r\nC\r\nC     READ A PLA SET NO.\r\nC\r\n  710 CALL READ (*895,*895,MPT,SETNO,1,NEOR,IFLAG)\r\n      JJ = 0\r\n  720 CALL READ (*895,*895,MPT,NN,1,NEOR,IFLAG)\r\n      IF (NN .EQ. -1) GO TO 730\r\n      JJ = JJ + 1\r\n      IF (JJ .EQ. 1) PLFACT(1) = FNN\r\n      GO TO 720\r\n  730 IF (SETNO .NE. PLASET) GO TO 710\r\n      NPLALP = JJ\r\n      PLFACT(2) = 0.0\r\n      CALL CLOSE (MPT,CLSRW)\r\n  731 CONTINUE\r\nC\r\nC     PROCESS THE EST\r\nC\r\n      ESTLTR(1) = ESTL\r\n      ESTNLT(1) = ESTNL\r\n      DO 740 I = 2,7\r\n      ESTLTR(I) = 0\r\n  740 ESTNLT(I) = 0\r\n      ASSIGN 820 TO NOSD\r\n      CALL GOPEN (  EST,Z(BUFR1),0)\r\n      CALL GOPEN ( ESTL,Z(BUFR2),1)\r\n      CALL GOPEN (ESTNL,Z(BUFR3),1)\r\n      FILE = EST\r\nC\r\nC     READ THE ELEMENT TYPE.  IF THE ELEMENT TYPE IS ADMISSIBLE TO\r\nC     PIECEWISE LINEAR ANALYSIS, WRITE IT TWICE.  OTHERWISE GO TO NEXT\r\nC     RECORD.\r\nC\r\n  750 CALL READ (*850,*880,EST,ITYPE,1,NEOR,IFLAG)\r\n      IF (PLAARY(ITYPE) .EQ. 1) GO TO 755\r\n      CALL SKPREC (EST,1)\r\n      GO TO 750\r\n  755 CALL WRITE (ESTL, ITYPE,1,NEOR)\r\n      CALL WRITE (ESTNL,ITYPE,1,NEOR)\r\nC\r\nC     READ THE EST ENTRY\r\nC\r\n  760 IDX  = (ITYPE-1)*INCR\r\n      NWDS = NE(IDX+12)\r\n      CALL READ (*870,*840,EST,XECPT,NWDS,NEOR,IFLAG)\r\n      IF (PLAARY(ITYPE) .EQ. 0) GO TO 820\r\n      IF (ITYPE .GT. 38) GO TO 820\r\nC              CROD      CBEAM     CTUBE     CSHEAR    CTWIST\r\nC                1         2         3         4         5\r\n      GO TO (   130,      820,      150,      820,      820,\r\nC              CTRIA1    CTRBSC    CTRPLT    CTRMEM    CONROD\r\nC                6         7         8          9       10\r\n     1          160,      820,      820,      170,      130,\r\nC              CELAS1    CELAS2    CELAS3    CELAS4    CQDPLT\r\nC                11        12        13        14        15\r\n     2          820,      820,      820,      820,      820,\r\nC              CQDMEM    CTRIA2    CQUAD2    CQUAD1    CDAMP1\r\nC                16        17        18        19        20\r\n     3          180,      190,      200,      210,      820,\r\nC              CDAMP2    CDAMP3    CDAMP4    CVISC     CMASS1\r\nC                21        22        23        24        25\r\n     4          820,      820,      820,      820,      820,\r\nC              CMASS2    CMASS3    CMASS4    CONM1     CONM2\r\nC                26        27        28        29        30\r\n     5          820,      820,      820,      820,      820,\r\nC              PLOTEL    REACT     QUAD3     CBAR      CCONE\r\nC                31        32        33        34        35\r\n     6          820,      820,      820,      220,      820,\r\nC              CTRIARG   CTRAPRG   CTORDRG\r\nC                36        37        38\r\n     7          820,      820,      820), ITYPE\r\nC\r\nC     THE ELEMENT IS STRESS DEPENDENT.  DETERMINE IF STRESS OUTPUT IS\r\nC     REQUESTED.\r\nC     AN EXAMPLE... IF WE HAVE IN CASE CONTROL\r\nC     SET 5 = 1,2,3,98THRU100,4THRU15,81,18,82,90,92\r\nC     THEN THE WORDS IN CASE CONTROL ARE...\r\nC       IZ(ISETNO) = 5,12,1,2,3,4,-15,18,81,82,90,92,98,-100 = IZ(NSET)\r\nC\r\n  765 IF (ALL) GO TO 800\r\n      IF (NONLST .EQ. -1) GO TO 760\r\n      IELID = IECPT(1)\r\n      I = ISET\r\n  770 IF (I    .GT. NSET) GO TO 760\r\n      IF (IZ(I+1) .LT. 0) GO TO 780\r\n      IF (IELID .EQ. IZ(I)) GO TO 800\r\n      IF (IELID .LT. IZ(I)) GO TO 760\r\n      I = I + 1\r\n      GO TO 790\r\n  780 IF (IELID.GE.IZ(I) .AND. IELID.LE.IABS(IZ(I+1))) GO TO 800\r\n      IF (IELID .LT. IZ(I)) GO TO 760\r\n      I = I + 2\r\n  790 IF (IZ(I) .GT. 0) GO TO 770\r\n      ALL = .TRUE.\r\n      LLLLLL(1) = IZ(ISTSET)\r\n      LLLLLL(2) = IZ(I)\r\n      CALL MESAGE (30,92,LLLLLL)\r\n  800 OUTFIL = ESTNL\r\n      NNLEL  = NNLEL + 1\r\n      GO TO 830\r\n  820 OUTFIL = ESTL\r\n      NLEL   = NLEL + 1\r\n  830 CALL WRITE (OUTFIL,XECPT,NWDS,NEOR)\r\n      GO TO 760\r\n  840 CALL WRITE (ESTL,0,0,EOR)\r\n      CALL WRITE (ESTNL,0,0,EOR)\r\n      GO TO 750\r\nC\r\nC     WRAP UP ROUTINE\r\nC\r\n  850 CALL CLOSE  (EST,CLSRW)\r\n      CALL CLOSE  (ESTL,CLSRW)\r\n      CALL CLOSE  (ESTNL,CLSRW)\r\n      CALL WRTTRL (ESTLTR)\r\n      CALL WRTTRL (ESTNLT)\r\n  865 RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  860 CALL MESAGE (-1,FILE,NAME)\r\n  870 CALL MESAGE (-2,FILE,NAME)\r\n  880 CALL MESAGE (-3,FILE,NAME)\r\n  890 CALL MESAGE (-30,87,ITYPE)\r\nC\r\nC     UNABLE TO FIND PLFACT CARD IN THE MPT WHICH WAS CHOSEN BY THE USER\r\nC     IN CASECC.\r\nC\r\n  895 TRAIL(1) = HMPT\r\n      TRAIL(2) = NAME(1)\r\n      CALL MESAGE (-32,PLASET,TRAIL)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla2.f",
    "content": "      SUBROUTINE PLA2\r\nC*****\r\nC THIS ROUTINE IS THE SECOND FUNCTIONAL MODULE UNIQUE TO THE PIECE-WISE\r\nC LINEAR ANALYSIS (PLA) RIGID FORMAT FOR THE DISPLACEMENT APPROACH.\r\nC\r\nC DMAP CALL...\r\nC\r\nC PLA2   DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/V,N,PLACOUNT/ $\r\nC\r\nC CONCERNING DELTAUGV AND UGV1, THE ROUTINE WORKS AS FOLLOWS...\r\nC DELTAUGV IS THE CURRENT INCREMENTAL DISPLACEMENT VECTOR IN THE PLA\r\nC RIGID FORMAT LOOP AND UGV1 IS AN APPENDED FILE OF DISPLACEMENT VECTORS\r\nC IF PLACOUNT .EQ. 1, THAT IS, THIS IS THE FIRST TIME PLA2 HAS BEEN\r\nC CALLED IN THE PLA LOOP, THEN DELTAUGV IS COPIED ONTO UGV1.  IF\r\nC PLACOUNT .GT. 1, THE PREVIOUS, OR LAST, DISPLACEMENT VECTOR IS READ\r\nC INTO CORE FROM THE UGV1 DATA BLOCK, AND THE UGV1 FILE IS CLOSED WITH-\r\nC OUT REWIND, THEN OPENED WITHOUT REWIND TO WRITE.  THE DELTAUGV VECTOR\r\nC IS READ AN ELEMENT AT A TIME USING SUBROUTINE ZNTPKI AND ADDED TO\r\nC THE VECTOR IN CORE.  THEN THE NEW DISPLACEMENT VECTOR IS WRITTEN ONTO\r\nC THE UGV1 FILE.\r\nC\r\nC THEN THE PLA DMAP LOOP COUNTER PLACOUNT IS INCREMENTED.\r\nC\r\nC DELTAPG IS THE CURRENT INCREMENTAL LOAD VECTOR AND PGV1 IS THE\r\nC CORRESPONDING MATRIX OF RUNNING SUM LOAD VECTORS.  PROCESSING IS\r\nC SIMILAR TO THE ABOVE.  NOTE THAT NEITHER DATA BLOCK, LIKE THE TWO\r\nC DISCUSSED ABOVE, CAN BE PURGED.\r\nC\r\nC DELTAQG IS THE CURRENT INCREMENTAL VECTOR OF SINGLE POINT CONSTRAINT\r\nC FORCES AND QG1 IS THE APPENDED FILE OF VECTORS OF SPCF.  THESE TWO\r\nC DATA BLOCKS ARE PROCESSED IDENTICALLY TO DELTAUGV AND UGV1 EXCECT\r\nC THAT NO FATAL ERROR EXISTS IF ONE OR THE OTHER HAS BEEN PURGED.\r\nC*****\r\nC\r\n      INTEGER\r\n     1                   BUFSZ\r\n     2,                  BUFFR1             ,BUFFR2\r\n     3,                  OFILE              ,PLACNT\r\n     4,                  EOR                ,CLSRW\r\n     5,                  CLSNRW             ,OUTRW\r\n     6,                  EOL                ,TYPEA\r\n     7,                  TYPEB              ,OUTNRW\r\n      INTEGER INBLK(15),OUBLK(15)\r\nC\r\n      DIMENSION\r\n     1                   NAME(2)            ,DUMMY(2)\r\n     2,                  MCB(7)\r\n      COMMON /BLANK/PLACNT\r\n      COMMON   /SYSTEM/  BUFSZ\r\n      COMMON   /ZZZZZZ /  Z(1)\r\n      COMMON   /ZNTPKX/\r\n     1                   A(4)               ,INDEX\r\n     2,                  EOL                ,IDUMMY\r\n      COMMON   /PACKX /\r\n     1                   TYPEA              ,TYPEB\r\n     2,                  IPACK              ,JPACK\r\n     3,                  INCPK\r\n      COMMON   /UNPAKX/\r\n     1                   IUNPKB             ,IUNPK\r\n     2,                  JUNPK              ,INCUPK\r\nC\r\n      DATA               NAME /4HPLA2,4H    /\r\n      DATA               INRW,OUTRW,OUTNRW,CLSRW,CLSNRW,EOR/0,1,3,1,2,1/\r\nC\r\nC INITIALIZE\r\nC\r\n      IZMAX = KORSZ (Z)\r\n      BUFFR1 = IZMAX - BUFSZ\r\n      BUFFR2 = BUFFR1 - BUFSZ\r\n      LEFT = BUFFR2 - 1\r\n      ILOOP = 1\r\n      IFILE = 101\r\n      OFILE = 201\r\nC\r\nC OPEN INPUT FILE TO READ AND OUTPUT FILE TO WRITE (IF PLACNT .EQ. 1)\r\nC OR TO READ (IF PLACNT .GT. 1)\r\nC\r\n   10 JFILE = IFILE\r\n      INBLK(1) = IFILE\r\n      OUBLK(1) = OFILE\r\n      DO 15 I = 2,7\r\n   15 MCB(I) = 0\r\n      MCB(1) = OFILE\r\n      IF (PLACNT .EQ. 1) MCB(1) = IFILE\r\n      CALL RDTRL (MCB)\r\n      CALL OPEN(*100,IFILE,Z(BUFFR1),INRW)\r\n      CALL FWDREC(*9020,IFILE)\r\n      IOPT = INRW\r\n      IF (PLACNT .EQ. 1) IOPT = OUTRW\r\n      CALL OPEN(*110,OFILE,Z(BUFFR2),IOPT)\r\n      IF (PLACNT .NE. 1) GO TO 30\r\nC\r\nC THIS IS THE FIRST TIME THROUGH THE PLA LOOP.  COPY THE VECTOR ON THE\r\nC INPUT FILE ONTO THE OUTPUT FILE.\r\nC\r\n      CALL FNAME (OFILE,DUMMY)\r\n      CALL WRITE (OFILE,DUMMY,2,EOR)\r\n      CALL CPYSTR(INBLK,OUBLK,0,0)\r\n      CALL CLOSE (OFILE,CLSRW)\r\n      CALL CLOSE(IFILE,CLSRW)\r\n      GO TO 70\r\nC\r\nC THIS IS NOT THE FIRST PASS\r\nC\r\n   30 JFILE = OFILE\r\n      CALL FWDREC(*9020,OFILE)\r\n      NRECS = PLACNT - 2\r\n      IF (NRECS .LE. 0) GO TO 50\r\n      DO 40 I = 1,NRECS\r\n   40 CALL FWDREC(*9020,OFILE)\r\n   50 MCB(1) = OFILE\r\n      CALL RDTRL (MCB)\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      IF (LEFT .LT. MCB(3)) CALL MESAGE (-8,0,NAME)\r\n      IUNPKB = 1\r\n      IUNPK  = 1\r\n      JUNPK  = MCB(3)\r\n      INCUPK = 1\r\n      CALL UNPACK(*9030,OFILE,Z)\r\n      CALL CLOSE (OFILE,CLSNRW)\r\n      CALL OPEN(*9010,OFILE,Z(BUFFR2),OUTNRW)\r\nC\r\nC READ THE INCREMENTAL VECTOR.  INTPK INITIALIZES AND ZNTPKI RETURNS\r\nC ONE ELEMENT AT A TIME\r\nC\r\n      KTYPE = 1\r\n      CALL INTPK(*9040,IFILE,0,KTYPE,0)\r\nC\r\nC READ AND ADD LOOP.\r\nC\r\n   60 CALL ZNTPKI\r\n      Z(INDEX) = Z(INDEX) + A(1)\r\n      IF (EOL .EQ. 0) GO TO 60\r\nC\r\nC ADDITION HAS BEEN COMPLETED\r\nC\r\n      CALL CLOSE (IFILE,CLSRW)\r\nC\r\nC WRITE VECTOR ON OUTPUT FILE IN PACKED FORMAT.\r\nC\r\n      TYPEA = 1\r\n      TYPEB = 1\r\n      IPACK = 1\r\n      JPACK = MCB(3)\r\n      INCPK = 1\r\n      CALL PACK(Z,OFILE,MCB)\r\n      CALL CLOSE (OFILE,CLSRW)\r\nC\r\nC WRITE TRAILER\r\nC\r\n   70 MCB(1) = OFILE\r\n      CALL WRTTRL (MCB)\r\n   90 ILOOP = ILOOP + 1\r\n      IF (ILOOP .GT. 3) GO TO 200\r\n      IFILE = IFILE + 1\r\n      OFILE = OFILE + 1\r\n      GO TO 10\r\n  100 IF (ILOOP .EQ. 1  .OR.  ILOOP .EQ. 2) CALL MESAGE (-30,127,IFILE)\r\n      GO TO 90\r\n  110 IF (ILOOP .EQ. 1  .OR.  ILOOP .EQ. 2) CALL MESAGE (-30,128,OFILE)\r\n      GO TO 90\r\nC\r\nC INCREMENT THE PLA DMAP LOOP COUNTER\r\nC\r\n  200 PLACNT = PLACNT + 1\r\n      RETURN\r\nC\r\nC FATAL ERRORS\r\nC\r\n 9010 CALL MESAGE (-1,JFILE,NAME)\r\n 9020 CALL MESAGE (-2,JFILE,NAME)\r\n 9030 CALL MESAGE (-30,129,ILOOP+200)\r\n 9040 CALL MESAGE (-30,130,ILOOP+100)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla3.f",
    "content": "      SUBROUTINE PLA3\r\nC*****\r\nC THIS ROUTINE COMPUTES ELEMENT STRESSES FOR NON-LINEAR (STRESS DEPEN-\r\nC DENT) ELEMENTS FOR WHICH THE USER HAS REQUESTED STRESS OUTPUT.  IT\r\nC ALSO UPDATES THE ESTNL DATA BLOCK SO THAT THE OUTPUT FILE, ESTNL1,\r\nC CONTAINS UP-TO-DATE ELEMENT STRESS INFORMATION.\r\nC\r\nC DMAP CALL...\r\nC\r\nC  PLA3  CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/V,N,PLACOUNT/\r\nC        V,N,PLSETNO/ $\r\nC\r\nC THIS ROUTINE IS THE MODULE DRIVER...  SUBROUTINE PLA31 READS THE\r\nC INCREMENTAL DISPLACEMENT VECTOR INTO CORE AND APPENDS THE PROPER\r\nC DISPLACEMENT VALUES TO THE ESTNL ENTRY FOR EACH ELEMENT, THEREBY\r\nC CREATING THE ESTNLS, THE ESTNL SCRATCH FILE.  IN PLA32, THE ESTNLS\r\nC FILE IS READ, AND THE PROPER ELEMENT ROUTINE IS CALLED.  THE ELEMENT\r\nC ROUTINE COMPUTES THE ELEMENT STRESSES AND STORES THIS INFORMATION IN\r\nC THE BLOCK /SOUT/.  THE ELEMENT ROUTINE ALSO UPDATES THE EST ENTRY\r\nC WHICH HAS BEEN COMMUNICATED TO TI VIA /PLA32E/.\r\nC*****\r\nC\r\nC\r\nC\r\n      CALL PLA31\r\n      CALL PLA32\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla31.f",
    "content": "      SUBROUTINE PLA31\r\nC\r\nC     THIS ROUTINE READS THE INCREMENTAL DISPLACEMENT VECTOR INTO CORE\r\nC     AND APPENDS THE PROPER DISPLACEMENT VALUES TO THE ESTNL ENTRY FOR\r\nC     EACH ELEMENT, THEREBY CREATING THE ESTNLS, THE ESTNL SCRATCH FILE,\r\nC     WHICH IS PROCESSED BY SUBROUTINE PLA32.\r\nC\r\n      INTEGER         BUFSZ,BUFR1,BUFR2,DELUGV,ESTNL,ESTNLS,FILE,EOR,\r\n     1                CLSRW,IZ(1),IESTBK(100),ESTWDS(40),ELTYPE\r\n      DIMENSION       NAME(2),NGPTS(40),MCBUGV(7),ESTBK(100)\r\n      COMMON /BLANK / ICOM\r\n      COMMON /SYSTEM/ BUFSZ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK\r\n      EQUIVALENCE     (Z(1),IZ(1)),(ESTBK(1),IESTBK(1))\r\n      DATA    NAME  / 4HPLA3,4H1   /\r\n      DATA    DELUGV, ESTNL,ESTNLS / 104,105,301/\r\n      DATA    EOR   , NEOR,CLSRW   / 1,0,1      /\r\nC\r\nC    1        ROD       BEAM      TUBE      SHEAR     TWIST\r\nC    2        TRIA1     TRBSC     TRPLT     TRMEM     CONROD\r\nC    3        ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\nC    4        QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\nC    5        DAMP2     DAMP3     DAMP4     VISC      MASS1\r\nC    6        MASS2     MASS3     MASS4     CONM1     CONM2\r\nC    7        PLOTEL    REACT     QUAD3     BAR       CONE\r\nC    8        TRIARG    TRAPRG    TORDRG    CORE      CAP\r\nC\r\n      DATA    ESTWDS/\r\n     1           21,        0,       20,        0,        0,\r\n     2           38,        0,        0,       27,       21,\r\n     3            0,        0,        0,        0,        0,\r\n     4           32,       32,       37,       43,        0,\r\n     5            0,        0,        0,        0,        0,\r\n     6            0,        0,        0,        0,        0,\r\n     7            0,        0,        0,       50,        0,\r\n     8            0,        0,        0,        0,        0 /\r\n      DATA    NGPTS /\r\n     1            2,        2,        2,        4,        4,\r\n     2            3,        3,        3,        3,        2,\r\n     3            2,        2,        2,        2,        4,\r\n     4            4,        3,        4,        4,        2,\r\n     5            2,        2,        2,        2,        2,\r\n     6            2,        2,        2,        2,        2,\r\n     7            2,        0,        0,        2,        2,\r\n     8            3,        4,        2,        4,        2 /\r\nC\r\nC     DETERMINE SIZE OF CORE, DEFINE BUFFERS AND INITIALIZE CORE\r\nC     POINTERS AND COUNTERS\r\nC\r\n      IZMAX = KORSZ (Z)\r\n      BUFR1 = IZMAX - BUFSZ\r\n      BUFR2 = BUFR1 - BUFSZ\r\n      LEFT  = BUFR2 - 1\r\n      IDISP = 0\r\nC\r\nC     OPEN THE DISPLACEMENT VECTOR FILE AND READ THE DISPLACEMENT VECTOR\r\nC     INTO OPEN CORE.\r\nC\r\n      FILE = DELUGV\r\n      CALL GOPEN (DELUGV,Z(BUFR1),0)\r\n      MCBUGV(1) = DELUGV\r\n      CALL RDTRL (MCBUGV)\r\n      IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME)\r\n      ITYPEB = 1\r\n      IUNPK  = 1\r\n      JUNPK  = MCBUGV(3)\r\n      INCUPK = 1\r\n      CALL UNPACK (*9040,DELUGV,Z(IDISP+1))\r\n      CALL CLOSE (DELUGV,CLSRW)\r\nC\r\nC     BUILD THE SCRATCH FILE ESTNLS\r\nC\r\n      CALL GOPEN (ESTNL,Z(BUFR1),0)\r\n      CALL GOPEN (ESTNLS,Z(BUFR2),1)\r\nC\r\nC     READ AN ELEMENT TYPE FROM ESTNL AND WRITE IT ON ESTNLS.\r\nC\r\n   10 CALL READ (*60,*9030,ESTNL,ELTYPE,1,NEOR,IFLAG)\r\n      NWDSRD = ESTWDS(ELTYPE)\r\n      IF (NWDSRD .LE. 0) CALL MESAGE (-30,91,ELTYPE)\r\n      CALL WRITE (ESTNLS,ELTYPE,1,NEOR)\r\nC\r\nC     READ AN ESTNL ENTRY\r\nC\r\n   20 J = NWDSRD\r\n      CALL READ (*9020,*50,ESTNL,ESTBK,J,NEOR,IFLAG)\r\n      NOGPTS = NGPTS(ELTYPE)\r\n      IF (NOGPTS .LE. 0) CALL MESAGE (-30,92,ELTYPE)\r\nC\r\nC     APPEND THE DISPLACEMENT VECTORS ONTO THE ESTBK.\r\nC\r\n      NWDS = 3\r\n      J = J + 1\r\n      IF (ELTYPE.EQ. 1 .OR. ELTYPE.EQ. 3 .OR. ELTYPE.EQ.10 .OR.\r\n     1    ELTYPE.EQ. 6 .OR. ELTYPE.EQ.17 .OR. ELTYPE.EQ.18 .OR.\r\n     2    ELTYPE.EQ.19 .OR. ELTYPE.EQ.34) NWDS = 6\r\n      DO 40 I = 1,NOGPTS\r\n      INDEX = IDISP + IESTBK(I+1)\r\n      DO 30 K = 1,NWDS\r\n      ESTBK(J) = Z(INDEX)\r\n      INDEX = INDEX + 1\r\n   30 J = J + 1\r\n   40 CONTINUE\r\nC\r\nC     THE APPENDED ESTNL ENTRY, WHICH IS AT ESTBK IS NOW COMPLETE.\r\nC\r\n      CALL WRITE (ESTNLS,ESTBK,J-1,NEOR)\r\n      GO TO 20\r\nC\r\nC     WRITE AN EOR ON THE ESTNLS FILE.\r\nC\r\n   50 CALL WRITE (ESTNLS,0,0,EOR)\r\n      GO TO 10\r\nC\r\nC     PROCESSING IS NOW COMPLETE\r\nC\r\n   60 CALL CLOSE (ESTNL,CLSRW)\r\n      CALL CLOSE (ESTNLS,CLSRW)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n 9020 CALL MESAGE (-2,FILE,NAME)\r\n 9030 CALL MESAGE (-3,FILE,NAME)\r\n 9040 CALL MESAGE (-5,DELUGV,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla32.f",
    "content": "      SUBROUTINE PLA32\r\nC\r\nC     THIS ROUTINE READS THE ESTNLS DATA BLOCK CREATED IN SUBROUTINE\r\nC     PLA31, AND CALLS THE PROPER ELEMENT ROUTINE TO COMPUTE ELEMENT\r\nC     STRESSES.\r\nC     ELEMENT STRESS INFORMATION IS STORED BY THE ELEMENT ROUTINE IN\r\nC     /STROUT/.  THE ELEMENT ROUTINE ALSO UPDATES THE EST ENTRY WHICH\r\nC     HAS BEEN COMMUNICATED TO IT VIA /PLA32E/.  NOTE THAT THIS UPDATED\r\nC     EST ENTRY DOES NOT CONTAIN DISPLACEMENT VECTOR INFORMATION.\r\nC\r\n      INTEGER         BUFSZ,BUFR1,BUFR2,BUFR3,CSTM,DIT,ESTNLS,CASECC,\r\n     1                ONLES,ESTNL1,EOR,CLSRW,FILE,IZ(1),IESTBK(100),\r\n     9                ESTWDS(40),ELTYPE,OUTRW,PLACNT,PLSETN,PLANOS(2),\r\n     2                OSTRT(7),ESTT(7),SETNO\r\n      DIMENSION       NAME(2),NSTWDS(40),NWDSP2(40),P(4),IP(4),DUM2(2),\r\n     1                TUBSAV(20),ICHAR(9),ITITLE(3),IY(30)\r\n      COMMON /BLANK / PLACNT,PLSETN\r\n      COMMON /SYSTEM/ BUFSZ\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PLA32C/ GAMMA,GAMMAS,IPASS\r\n      COMMON /PLA32E/ ESTBK(100)\r\nC\r\nC     SCRATCH BLOCK USED BY ELEMENT ROUTINES (325 SINGLE PRECISION\r\nC     CELLS)  AND OUTPUT BLOCK FOR ELEMENT STRESSES\r\nC\r\n      COMMON /PLA32S/ XXXXXX(325)\r\n      COMMON /SOUT  / YYYYYY(30)\r\n      EQUIVALENCE     (Z(1),IZ(1)),(ESTBK(1),IESTBK(1)),(P(1),IP(1)),\r\n     1                (YYYYYY(1),IY(1))\r\n      DATA    NAME  / 4HPLA3, 4H2          /\r\n      DATA    ITITLE/ 4HLOAD, 4H FAC,4HTOR /\r\n      DATA    CSTM  , MPT,DIT,ESTNLS,CASECC/ 101,102,103,301,106 /\r\n      DATA    ONLES , ESTNL1  / 201,202    /\r\n      DATA    INRW  , OUTRW,EOR,NEOR,CLSRW / 0,1,1,0,1 /\r\n      DATA    PLANOS/ 1103,11 /\r\nC\r\nC    1        ROD       BEAM      TUBE      SHEAR     TWIST\r\nC    2        TRIA1     TRBSC     TRPLT     TRMEM     CONROD\r\nC    3        ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\nC    4        QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\nC    5        DAMP2     DAMP3     DAMP4     VISC      MASS1\r\nC    6        MASS2     MASS3     MASS4     CONM1     CONM2\r\nC    7        PLOTEL    REACT     QUAD3     BAR       CONE\r\nC    8        TRIARG    TRAPRG    TORDRG    CORE      CAP\r\nC\r\n      DATA    ESTWDS/\r\n     1           21,        0,       20,        0,        0,\r\n     2           38,        0,        0,       27,       21,\r\n     3            0,        0,        0,        0,        0,\r\n     4           32,       32,       37,       43,        0,\r\n     5            0,        0,        0,        0,        0,\r\n     6            0,        0,        0,        0,        0,\r\n     7            0,        0,        0,       50,        0,\r\n     8            0,        0,        0,        0,        0 /\r\n      DATA    NSTWDS/\r\n     1            5,        0,        5,        0,        0,\r\n     2           17,        0,        0,        8,        5,\r\n     3            0,        0,        0,        0,        0,\r\n     4            8,       17,       17,       17,        0,\r\n     5            0,        0,        0,        0,        0,\r\n     6            0,        0,        0,        0,        0,\r\n     7            0,        0,        0,       16,        0,\r\n     8            0,        0,        0,        0,        0 /\r\n      DATA    NWDSP2/\r\n     1           33,        0,       32,        0,        0,\r\n     2           56,        0,        0,       36,       33,\r\n     3            0,        0,        0,        0,        0,\r\n     4           44,       50,       61,       67,        0,\r\n     5            0,        0,        0,        0,        0,\r\n     6            0,        0,        0,        0,        0,\r\n     7            0,        0,        0,       62,        0,\r\n     8            0,        0,        0,        0,        0 /\r\nC\r\nC     DEFINE POSITION IN CASECC RECORD OF DESTINATION (PRINTER, PUNCH,\r\nC     ETC.) OF ELEMENT STRESSES.\r\nC\r\n      DATA          IDEST /24/\r\nC\r\nC\r\nC     DETERMINE SIZE OF CORE, DEFINE BUFFERS AND INITIALIZE CORE POINTER\r\nC     AND COUNTERS\r\nC\r\n      IZMAX = KORSZ(Z)\r\n      BUFR1 = IZMAX - BUFSZ\r\n      BUFR2 = BUFR1 - BUFSZ\r\n      BUFR3 = BUFR2 - BUFSZ\r\n      LEFT  = BUFR3 - 1\r\n      IPASS = PLACNT- 1\r\n      ICSTM = 0\r\n      NCSTM = 0\r\n      DO 5 I = 1,7\r\n      OSTRT(I) = 0\r\n    5 ESTT(I)  = 0\r\nC\r\nC     ATTEMPT TO READ CSTM INTO CORE\r\nC\r\n      FILE = CSTM\r\n      CALL OPEN (*20,CSTM,Z(BUFR1),INRW)\r\n      CALL FWDREC (*9020,CSTM)\r\n      CALL READ (*9020,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 LEFT = LEFT - NCSTM\r\n      CALL CLOSE (CSTM,CLSRW)\r\n      CALL PRETRS (Z(ICSTM+1),NCSTM)\r\n   20 IMAT = NCSTM\r\nC\r\nC     COMPUTE GAMMA AND GAMMAS FROM THE PROPER PLFACT CARD\r\nC\r\n      FILE = MPT\r\n      CALL PRELOC (*9010,Z(BUFR1-3),MPT)\r\n      CALL LOCATE (*9040,Z(BUFR1-3),PLANOS,IFLAG)\r\n   30 CALL READ (*9020,*9030,MPT,SETNO,1,NEOR,IFLAG)\r\n      IF (SETNO .EQ. PLSETN) GO TO 40\r\n   35 CALL READ (*9020,*9030,MPT,NN,1,NEOR,IFLAG)\r\n      IF (NN .EQ. -1) GO TO 30\r\n      GO TO 35\r\n   40 IF (PLACNT .LE. 4) GO TO 45\r\n      CALL READ (*9020,*9030,MPT,0,-(PLACNT-4),NEOR,IFLAG)\r\n   45 NWDSRD = 4\r\n      IF (PLACNT .LT. 4) NWDSRD = PLACNT\r\n      CALL READ (*9020,*9030,MPT,P,NWDSRD,NEOR,IFLAG)\r\n      IF (IP(NWDSRD) .NE. -1) GO TO 48\r\n      IF (PLACNT-3) 42,43,44\r\n  42  GAMMAS = 1.0\r\n      GO TO 46\r\n  43  GAMMAS = (P(2) - P(1))/P(1)\r\n      GO TO 46\r\n  44  GAMMAS = (P(3) - P(2))/(P(2) - P(1))\r\n  46  GAMMA = 1.0\r\n      GO TO 65\r\n  48  A = P(2) - P(1)\r\n      IF (PLACNT-3) 50,55,60\r\n   50 GAMMAS = 0.0\r\n      GAMMA  = A/P(1)\r\n      GO TO 65\r\n  55  GAMMAS = A/P(1)\r\n      GAMMA = (P(3) - P(2))/A\r\n      GO TO 65\r\n   60 WORD = P(3) - P(2)\r\n      GAMMAS = WORD/A\r\n      GAMMA  = (P(4) - P(3))/WORD\r\n   65 CALL CLOSE (MPT,CLSRW)\r\nC\r\nC     READ MPT AND DIT FILES.  NOTE MINUS SIGN ON DIT TO TRIGGER PLA\r\nC     FLAG.\r\nC\r\n      CALL PREMAT (IZ(IMAT+1),Z(IMAT+1),Z(BUFR1-3),LEFT,MUSED,MPT,-DIT)\r\n      LEFT = LEFT  - MUSED\r\n      ICC  = NCSTM + MUSED\r\nC\r\nC     READ CASECC INTO OPEN CORE\r\nC\r\n      FILE = CASECC\r\n      CALL OPEN (*9010,CASECC,Z(BUFR1),INRW)\r\n      CALL FWDREC (*9020,CASECC)\r\n      CALL READ (*9020,*68,CASECC,Z(ICC+1),LEFT,EOR,NCC)\r\n      CALL MESAGE (-8,0,NAME)\r\n   68 LEFT = LEFT - NCC\r\n      CALL CLOSE (CASECC,CLSRW)\r\nC\r\nC OPEN INPUT FILE\r\nC\r\n      FILE = ESTNLS\r\n      CALL OPEN (*9010,ESTNLS,Z(BUFR1),INRW)\r\n      CALL FWDREC (*9020,ESTNLS)\r\nC\r\nC     OPEN THE ELEMENT STRESS FILE FOR OUTPUT AND BUILD HEADER WHICH IS\r\nC     NON-CHANGING.\r\nC\r\n      FILE = ONLES\r\n      CALL OPEN (*9010,ONLES,Z(BUFR2),OUTRW)\r\n      CALL FNAME (ONLES,DUM2)\r\n      CALL WRITE (ONLES,DUM2,2,EOR)\r\nC\r\nC     THE FOLLOWING INDICES HAVE TO CHANGE  WHEN THERE ARE CHANGES IN\r\nC     THE FORMAT OF THE CASECC DATA BLOCK\r\nC\r\n      IONLES = ICC + NCC\r\n      IZ(IONLES+1) = IZ(ICC+18) + 100\r\n      IZ(IONLES+2) = 5\r\n      IZ(IONLES+4) = IZ(ICC+1)\r\n      IZ(IONLES+5) = IZ(ICC+4)\r\n      IZ(IONLES+6) = 0\r\n      IZ(IONLES+7) = 0\r\n      IZ(IONLES+8) = 0\r\n      IZ(IONLES+9) = 0\r\n      ILOW  = IONLES + 51\r\n      IHIGH = IONLES + 146\r\n      LEFT  = LEFT - 146\r\n      IF (LEFT .LT. 0) CALL MESAGE (-8,0,NAME)\r\n      J = ICC + 38\r\n      DO 70 I = ILOW,IHIGH\r\n      J = J + 1\r\n   70 IZ(I) = IZ(J)\r\nC\r\nC     STORE LOAD FACTOR AND INTEGER IN LABEL PORTION OF OUTPUT\r\nC\r\n      IZ(IONLES+135) = ITITLE(1)\r\n      IZ(IONLES+136) = ITITLE(2)\r\n      IZ(IONLES+137) = ITITLE(3)\r\n      III = PLACNT - 1\r\n      CALL INT2AL (III,IZ(IONLES+138),ICHAR)\r\nC\r\nC     DEFINE DESTINATION OF OUTPUT\r\nC\r\n      I = ICC + IDEST\r\n      JDEST = IZ(I)\r\nC\r\nC     OPEN THE ESTNL1 FILE FOR OUTPUT.\r\nC\r\n      FILE = ESTNL1\r\n      CALL OPEN (*9010,ESTNL1,Z(BUFR3),OUTRW)\r\n      CALL FNAME (ESTNL1,DUM2)\r\n      CALL WRITE (ESTNL1,DUM2,2,EOR)\r\n      FILE = ESTNLS\r\nC\r\nC     READ ELEMENT TYPE\r\nC\r\n   80 CALL READ (*220,*9030,ESTNLS,ELTYPE,1,NEOR,IFLAG)\r\nC\r\nC     FILL IN REMAINDER OF ID RECORD FOR THE ONLES FILE\r\nC\r\n      IZ(IONLES+3)  = ELTYPE\r\n      IZ(IONLES+10) = NSTWDS(ELTYPE)\r\n      IF (NSTWDS(ELTYPE) .LE. 0) CALL MESAGE (-30,91,ELTYPE)\r\nC\r\nC     WRITE ID RECORD FOR ONLES FILE\r\nC\r\n      CALL WRITE (ONLES,IZ(IONLES+1),146,EOR)\r\n      CALL WRITE (ESTNL1,ELTYPE,1,NEOR)\r\nC\r\nC     READ AN ENTRY FROM THE APPENDED ESTNL FILE AND CALL THE PROPER\r\nC     ROUTINE\r\nC\r\n   90 CALL READ (*9020,*210,ESTNLS,ESTBK,NWDSP2(ELTYPE),NEOR,IFLAG)\r\nC\r\nC               1,ROD    2,BEAM    3,TUBE   4,SHEAR   5,TWIST\r\n      GO TO (     110,      999,      120,      999,      999,\r\nC             6,TRIA1   7,TRBSC   8,TRPLT   9,TRMEM 10,CONROD\r\n     1            130,      999,      999,      140,      110,\r\nC            11,ELAS1  12,ELAS2  13,ELAS3  14,ELAS4  15,QDPLT\r\n     2            999,      999,      999,      999,      999,\r\nC            16,QDMEM  17,TRIA2  18,QUAD2  19,QUAD1  20,DAMP1\r\n     3            150,      160,      170,      180,      999,\r\nC            21,DAMP2  22,DAMP3  23,DAMP4   24,VISC  25,MASS1\r\n     4            999,      999,      999,      999,      999,\r\nC            26,MASS2  27,MASS3  28,MASS4  29,CONM1  30,CONM2\r\n     5            999,      999,      999,      999,      999,\r\nC           31,PLOTEL  32,REACT  33,QUAD3    34,BAR   35,CONE\r\n     6            999,      999,      999,      190,      999,\r\nC           36,TRIARG 37,TRAPRG 38,TORDRG   39,CORE?   40,CAP?\r\n     7            999,      999,      999,      999,      999), ELTYPE\r\nC\r\nC     ROD, CONROD\r\nC\r\n  110 CALL PSROD\r\nC\r\nC     IF ELEMENT IS A TUBE, RESTORE SAVED EST ENTRY AND STORE UPDATED\r\nC     STRESS VARIABLES IN PROPER SLOTS.\r\nC\r\n      IF (ELTYPE .NE. 3) GO TO 200\r\n      DO 115 I = 1,16\r\n  115 ESTBK(I) = TUBSAV(I)\r\n      ESTBK(17) = ESTBK(18)\r\n      ESTBK(18) = ESTBK(19)\r\n      ESTBK(19) = ESTBK(20)\r\n      ESTBK(20) = ESTBK(21)\r\n      GO TO 200\r\nC\r\nC\r\nC     TUBE - REARRANGE ESTBK FOR THE TUBE SO THAT IT IS IDENTICAL TO THE\r\nC            ONE FOR THE ROD\r\nC\r\nC     SAVE THE EST ENTRY FOR THE TUBE EXCEPT THE 4 WORDS WHICH WILL BE\r\nC     UPDATED BY THE THE ROD ROUTINE AND THE DISPLACEMENT VECTORS\r\nC\r\n  120 DO 125 I = 1,16\r\n  125 TUBSAV(I) = ESTBK(I)\r\nC\r\nC     COMPUTE AREA, TORSIONAL INERTIA TERM AND STRESS COEFFICIENT\r\nC\r\n      D  = ESTBK(5)\r\n      T  = ESTBK(6)\r\n      DMT= D - T\r\n      A  = DMT*T* PI\r\n      FJ = .25*A*(DMT**2 + T**2)\r\n      C  = D/2.0\r\nC\r\nC     MOVE THE END OF THE ESTBK ARRAY DOWN ONE SLOT SO THAT ENTRIES 7\r\nC     THRU 32 WILL BE MOVED TO POSITIONS 8 THRU 33.\r\nC\r\n      M = 33\r\n      DO 127 I = 1,26\r\n      ESTBK(M) = ESTBK(M-1)\r\n  127 M = M - 1\r\n      ESTBK(5) = A\r\n      ESTBK(6) = FJ\r\n      ESTBK(7) = C\r\n      GO TO 110\r\nC\r\nC     TRIA1\r\nC\r\n  130 CALL PSTRI1\r\n      GO TO 200\r\nC\r\nC     TRMEM\r\nC\r\n  140 CALL PSTRM\r\n      GO TO 200\r\nC\r\nC     QDMEM\r\nC\r\n  150 CALL PSQDM\r\n      GO TO 200\r\nC\r\nC     TRIA2\r\nC\r\n  160 CALL PSTRI2\r\n      GO TO 200\r\nC\r\nC     QUAD2\r\nC\r\n  170 CALL PSQAD2\r\n      GO TO 200\r\nC\r\nC     QUAD1\r\nC\r\n  180 CALL PSQAD1\r\n      GO TO 200\r\nC\r\nC     BAR\r\nC\r\n  190 CALL PSBAR\r\n      GO TO 200\r\nC\r\nC     ALTER ELEMENT IDENTIFICATION FROM EXTERNAL (USER) IDENTIFICATION\r\nC     TO INTERNAL ID., AND WRITE OUTPUT FILES.\r\nC\r\n  200 IY(1) = 10*IY(1) + JDEST\r\n      CALL WRITE (ONLES,IY,NSTWDS(ELTYPE),NEOR)\r\n      CALL WRITE (ESTNL1,ESTBK,ESTWDS(ELTYPE),NEOR)\r\n      OSTRT(2) = OSTRT(2) + 1\r\n      ESTT(2)  = ESTT(2)  + 1\r\n      GO TO 90\r\nC\r\nC     WRITE EORS\r\nC\r\n  210 CALL WRITE (ONLES,0,0,EOR)\r\n      CALL WRITE (ESTNL1,0,0,EOR)\r\n      GO TO 80\r\nC\r\nC     CLOSE FILES AND WRITE TRAILERS\r\nC\r\n  220 CALL CLOSE (ONLES,CLSRW)\r\n      CALL CLOSE (ESTNL1,CLSRW)\r\n      CALL CLOSE (ESTNLS,CLSRW)\r\n      OSTRT(1) = ONLES\r\n      ESTT(1)  = ESTNL1\r\n      CALL WRTTRL (OSTRT)\r\n      CALL WRTTRL (ESTT)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  999 CALL MESAGE (-30,92,ELTYPE)\r\n 9010 J = -1\r\n      GO TO 9050\r\n 9020 J = -2\r\n      GO TO 9050\r\n 9030 J = -3\r\n      GO TO 9050\r\n 9040 J = -5\r\n 9050 CALL MESAGE (J,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla4.f",
    "content": "      SUBROUTINE PLA4\r\nC*****\r\nC THIS FUNCTIONAL MODULE IS THE LAST OF FOUR FUNCTIONAL MODULES UNIQUE\r\nC TO THE PIECE-WISE LINEAR ANALYSIS (DISPLACEMENT METHOD) RIGID FORMAT.\r\nC*****\r\nC DMAP CALL...\r\nC\r\nC PLA4   CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/V,N,PLACOUNT/V,\r\nC        N,PLSETNO/V,N,PLFACT/ $\r\nC\r\nC THE OUTPUT DATA BLOCKS AND PARAMETERS ARE DEFINED AS FOLLOWS...\r\nC\r\nC KGGNL IS THE STIFFNESS MATRIX OF NON-LINEAR (STRESS DEPENDENT)\r\nC       ELEMENTS.\r\nC ECPTNL1 IS THE UP-TO-DATE VERSION OF THE INPUT DATA BLOCK, ECPTNL.\r\nC         THAT IS, THE ECPTNL1 DATA BLOCK CONTAINS THE SAME INFORMATION\r\nC         AS ECPTNL EXCEPT THE STRESS INFORMATION IS UPDATED.\r\nC\r\nC PARAMETER NAMES BELOW ARE FORTRAN RATHER THAN DMAP NAMES\r\nC\r\nC PLACNT IS PIECE-WISE LINEAR ANALYSIS RIGID FORMAT DMAP LOOP COUNTER.\r\nC PLSETN IS THE PLFACT CARD SET NUMBER CHOSEN BY THE USER IN HIS CASE\r\nC        CONTROL PACKAGE.\r\nC PLFACT IS THE FACTOR BY WHICH THE LOAD VECTOR WILL MULTIPLIED THE NEXT\r\nC        TIME THROUGH THE PLA DMAP LOOP\r\nC*****\r\nC THIS ROUTINE IS THE MODULE DRIVER.  PLA41 APPENDS DISPLACEMENT INFOR-\r\nC MATION TO THE ECPTNL DATA BLOCK AND A SCRATCH DATA BLOCK, ECPTS, OF\r\nC THIS MERGED INFORMATION IS CREATED.  SUBROUTINE PLA42 USES THE DATA\r\nC BLOCK ECPTS TO CREATE THE KGGNL MATRIX.  ALSO THE UPDATED ECPT INFOR-\r\nC MATION IS OUTPUT AS DATA BLOCK ECPTNL1 BY PLA42.\r\nC*****\r\n      CALL PLA41\r\n      CALL PLA42\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla41.f",
    "content": "      SUBROUTINE PLA41\r\nC\r\nC     THIS ROUTINE APPENDS DISPLACEMENT VECTOR INFORMATION TO THE\r\nC     ECPTNL DATA BLOCK AND CREATES A SCRATCH DATA BLOCK, ECPTS, OF\r\nC     THIS MERGED INFORMATION.  ECPTS IS PROCESSED BY SUBROUTINE PLA41.\r\nC\r\n      INTEGER         SYSBUF,CLSRW,BUFFR1,BUFFR2,UGV,ECPTNL,ECPTS,\r\n     1                EOR,FILE,ELTYPE\r\n      DIMENSION       NAME(2),MCBUGV(7),NWORDS(40),NGPTS(40),\r\n     1                XECPT(100),IECPT(100)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /UNPAKX/ ITYPEB,IUNPK,JUNPK,INCUPK\r\n      EQUIVALENCE     (XECPT(1),IECPT(1))\r\n      DATA    UGV   , ECPTNL,ECPTS / 106,103,301   /\r\n      DATA    NAME  / 4HPLA4,4H1   /\r\n      DATA    EOR   , NEOR,CLSRW   / 1,0,1         /\r\nC\r\nC    1        ROD       BEAM      TUBE      SHEAR     TWIST\r\nC    2        TRIA1     TRBSC     TRPLT     TRMEM     CONROD\r\nC    3        ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\nC    4        QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\nC    5        DAMP2     DAMP3     DAMP4     VISC      MASS1\r\nC    6        MASS2     MASS3     MASS4     CONM1     CONM2\r\nC    7        PLOTEL    REACT     QUAD3     BAR       CONE\r\nC    8          X         X         X         X         X\r\nC\r\n      DATA   NWORDS/\r\n     1         20,        0,       19,        0,        0,\r\n     2         33,        0,        0,       27,       20,\r\n     3          0,        0,        0,        0,        0,\r\n     4         32,       27,       32,       38,        0,\r\n     5          0,        0,        0,        0,        0,\r\n     6          0,        0,        0,        0,        0,\r\n     7          0,        0,        0,       45,        0,\r\n     8          0,        0,        0,        0,        0 /\r\n      DATA   NGPTS /\r\n     1          2,        2,        2,        4,        4,\r\n     2          3,        3,        3,        3,        2,\r\n     3          2,        2,        2,        2,        4,\r\n     4          4,        3,        4,        4,        2,\r\n     5          2,        2,        2,        2,        2,\r\n     6          2,        2,        2,        2,        2,\r\n     7          2,        0,        0,        2,        2,\r\n     8          0,        0,        0,        0,        0 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IZMAX  = KORSZ(Z)\r\n      BUFFR1 = IZMAX  - SYSBUF\r\n      BUFFR2 = BUFFR1 - SYSBUF\r\n      LEFT   = BUFFR2 - 1\r\nC\r\nC     READ THE DISPLACEMENT VECTOR INTO OPEN CORE.\r\nC\r\n      FILE = UGV\r\n      CALL GOPEN (UGV,Z(BUFFR1),0)\r\n      MCBUGV(1) = UGV\r\n      CALL RDTRL (MCBUGV)\r\n      IF (LEFT .LT. MCBUGV(3)) CALL MESAGE (-8,0,NAME)\r\n      ITYPEB = 1\r\n      IUNPK  = 1\r\n      JUNPK  = MCBUGV(3)\r\n      INCUPK = 1\r\n      CALL UNPACK (*9050,UGV,Z(1))\r\n      CALL CLOSE  (UGV,CLSRW)\r\nC\r\nC     OPEN THE ECPTNL AND ECPTS FILES.\r\nC\r\n      CALL GOPEN (ECPTS ,Z(BUFFR1),1)\r\n      CALL GOPEN (ECPTNL,Z(BUFFR2),0)\r\nC\r\nC     READ AND WRITE THE PIVOT POINT\r\nC\r\n   10 CALL READ  (*60,*9030,ECPTNL,NPVT,1,NEOR,IFLAG)\r\n      CALL WRITE (ECPTS,NPVT,1,NEOR)\r\nC\r\nC     READ ELEMENT TYPE\r\nC\r\n   20 CALL READ (*9020,*50,ECPTNL,ELTYPE,1,NEOR,IFLAG)\r\n      J = NWORDS(ELTYPE)\r\n      IF (J .LE. 0) CALL MESAGE (-30,114,IECPT(1))\r\nC\r\nC     READ THE ECPT ENTRY FOR THIS ELEMENT.\r\nC\r\n      CALL FREAD (ECPTNL,XECPT,J,0)\r\nC\r\nC     APPEND DISPLACEMENT VECTOR TO THE ECPT ENTRY\r\nC\r\n      J = J + 1\r\n      NWDS = 3\r\n      IF (ELTYPE .EQ. 34) NWDS = 6\r\n      NOGPTS = NGPTS(ELTYPE)\r\n      DO 40 I = 1,NOGPTS\r\n      INDEX = IECPT(I+1)\r\n      DO 30 K = 1,NWDS\r\n      XECPT(J) = Z(INDEX)\r\n      INDEX = INDEX + 1\r\n   30 J = J + 1\r\n   40 CONTINUE\r\nC\r\nC     THE ECPT ENTRY IS NOW COMPLETE.  WRITE IT OUT.\r\nC\r\n      CALL WRITE (ECPTS,ELTYPE, 1,NEOR)\r\n      CALL WRITE (ECPTS,XECPT,J-1,NEOR)\r\n      GO TO 20\r\nC\r\nC     AN EOR HAS BEEN READ ON ECPTNL.  WRITE EOR ON ECPTS.\r\nC\r\n   50 CALL WRITE (ECPTS,0,0,EOR)\r\n      GO TO 10\r\nC\r\nC     PROCESSING IS COMPLETE.  CLOSE FILES.\r\nC\r\n   60 CALL CLOSE (ECPTNL,CLSRW)\r\n      CALL CLOSE (ECPTS,CLSRW)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n 9020 CALL MESAGE (-2,FILE,NAME)\r\n 9030 CALL MESAGE (-3,FILE,NAME)\r\n 9050 CALL MESAGE (-30,83,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla42.f",
    "content": "      SUBROUTINE PLA42\r\nC\r\nC     THIS ROUTINE PROCESSES THE SCRATCH DATA BLOCK ECPTS, WHICH IS THE\r\nC     ECPTNL DATA BLOCK APPENDED WITH THE PROPER DISPLACEMENT VECTOR\r\nC     COMPONENTS, AND CREATES THE STIFFNESS MATRIX KGGNL AND THE UPDATED\r\nC     ECPTNL, ECPTNL1.  ECPTNL1, NAMED ECPTO IN THIS ROUTINE, DOES NOT\r\nC     CONTAIN DISPLACEMENT VECTOR COMPONENTS.\r\nC\r\n      INTEGER         SYSBUF,BUFFR1,BUFFR2,BUFFR3,CSTM,ECPTS,ECPTO,GPCT,\r\n     1                DIT,PLACNT,PLANOS,SETNO,FROWIC,EOR,CLSRW,OUTRW,\r\n     2                BUFFR4,PLSETN,FILE,ECPTOT\r\n      DOUBLE PRECISION DZ,DPWORD,DDDDDD\r\n      DIMENSION       DZ(1),IZ(1),INPVT(2),NAME(2),MCBKGG(7),P(4),\r\n     1                ECPTOT(7),PLANOS(2),IP(4),NWDSP2(40),TUBSAV(16)\r\n      COMMON /BLANK / PLACNT,PLSETN,PLFACT(2)\r\n      COMMON /SYSTEM/ SYSBUF,ISKPU(53),IPREC\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PLA42S/ XXXXXX(325)\r\n      COMMON /PLA42D/ DDDDDD(300)\r\n      COMMON /PLA42E/ ECPT(100)\r\n      COMMON /PLA42C/ NPVT,GAMMA,GAMMAS,IPASS,ICSTM,NCSTM,IGPCT,NGPCT,\r\n     1                IPOINT,NPOINT,I6X6K,N6X6K,CSTM,MPT,ECPTS,GPCT,\r\n     2                DIT,KGGNL,ECPTO,INRW,OUTRW,EOR,NEOR,CLSRW,JMAX,\r\n     3                FROWIC,LROWIC,NROWSC,NLINKS,NWORDS(40),IOVRLY(40),\r\n     4                LINK(40),NOGO\r\n      COMMON /ZBLPKX/ DPWORD,DUM(2),INDEX\r\n      COMMON /PLA4ES/ WORDES(300)\r\n      COMMON /PLA4UV/ WORDUV(25)\r\n      EQUIVALENCE     (Z(1),IZ(1),DZ(1)) ,(P(1),IP(1))\r\n      DATA    NAME  / 4HPLA4,4H2   /, PLANOS / 1103,  11    /\r\n      DATA    NWDSP2/ 20,   0,  19,   0,   0,\r\n     1                33,   0,   0,  27,  20,\r\n     2                5*0,\r\n     3                32,  27,  32,  38,   0,\r\n     4                13*0,     45,      6*0/\r\nC\r\nC\r\n      DO 5 I = 1,40\r\n    5 IOVRLY(I) = 1\r\nC\r\nC     DETERMINE SIZE OF VARIABLE CORE AND SET UP BUFFERS\r\nC\r\n      IZMAX  = KORSZ(Z)\r\n      BUFFR1 = IZMAX  - SYSBUF\r\n      BUFFR2 = BUFFR1 - SYSBUF\r\n      BUFFR3 = BUFFR2 - SYSBUF\r\n      BUFFR4 = BUFFR3 - SYSBUF\r\n      LEFTT  = BUFFR4 - 1\r\n      IPASS  = PLACNT - 1\r\n      IPR    = IPREC\r\nC\r\nC     READ THE CSTM INTO CORE\r\nC\r\n      FILE  = CSTM\r\n      NCSTM = 0\r\n      ICSTM = 0\r\n      CALL OPEN (*20,CSTM,Z(BUFFR1),INRW)\r\n      CALL SKPREC (CSTM,1)\r\n      CALL READ (*9020,*10,CSTM,Z(ICSTM+1),LEFTT,EOR,NCSTM)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 LEFTT = LEFTT - NCSTM\r\nC\r\nC     PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD\r\nC\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      CALL PRETRS (Z(ICSTM+1),NCSTM)\r\n      CALL CLOSE  (CSTM,CLSRW)\r\n   20 IMAT = NCSTM\r\nC\r\nC     SEARCH THE MPT FOR THE PLAFACT CARDS.\r\nC\r\n      FILE = MPT\r\n      CALL PRELOC (*9010,Z(BUFFR1-3),MPT)\r\n      CALL LOCATE (*9040,Z(BUFFR1-3),PLANOS,IFLAG)\r\nC\r\nC     FIND THE CORRECT PLA SET NO.\r\nC\r\n   30 CALL FREAD (MPT,SETNO,1,0)\r\n      IF (SETNO .EQ. PLSETN) GO TO 50\r\n   40 CALL FREAD (MPT,NN,1,0)\r\n      IF (NN .EQ. (-1)) GO TO 30\r\n      GO TO 40\r\nC\r\nC     SKIP THE PROPER NO. OF WORDS ON THE PLFACT CARD SO THAT GAMMA AND\r\nC     GAMMAS (GAMMA STAR) WILL BE CORRECTLY COMPUTED.\r\nC\r\n   50 IF (PLACNT .LE. 4) GO TO 60\r\n      CALL FREAD (MPT,0,-(PLACNT-4),0)\r\n   60 NWDSRD = 4\r\n      IF (PLACNT .LT. 4) NWDSRD = PLACNT\r\n      CALL FREAD (MPT,P,NWDSRD,0)\r\n      IF (PLACNT - 3) 70,80,90\r\n   70 GAMMAS = 0.0\r\n      PLFACT(1) = P(2) - P(1)\r\n      GAMMA = PLFACT(1)/P(1)\r\n      GO TO 100\r\n   80 WORD = P(2) - P(1)\r\n      PLFACT(1) = P(3) - P(2)\r\n      GAMMAS = WORD/P(1)\r\n      GAMMA  = PLFACT(1)/WORD\r\n      GO TO 100\r\n   90 WORD = P(3) - P(2)\r\n      PLFACT(1) = P(4) - P(3)\r\n      GAMMAS = WORD/(P(2)-P(1))\r\n      GAMMA  = PLFACT(1)/WORD\r\n  100 PLFACT(2) = 0.0\r\n      CALL CLOSE (MPT,CLSRW)\r\nC\r\nC     CALL PREMAT TO READ MPT AND DIT INTO CORE.  NOTE NEGATIVE FILE NO.\r\nC     FOR DIT TO TRIGGER PLA FLAG IN SUBROUTINE PREMAT.\r\nC\r\n      CALL PREMAT (Z(IMAT+1),Z(IMAT+1),Z(BUFFR1),LEFTT,MATCR,MPT,-DIT)\r\n      LEFTT = LEFTT - MATCR\r\n      IGPCT = NCSTM + MATCR\r\nC\r\nC     OPEN KGGNL, ECPTO, ECPTS, AND GPCT\r\nC\r\n      IFILE = KGGNL\r\n      CALL GOPEN  (KGGNL,Z(BUFFR1),1)\r\n      CALL MAKMCB (MCBKGG,KGGNL,0,6,IPR)\r\n      CALL GOPEN  (ECPTO,Z(BUFFR2),1)\r\n      CALL MAKMCB (ECPTOT,ECPTO,0,0,0)\r\n      CALL GOPEN  (ECPTS,Z(BUFFR3),0)\r\n      CALL GOPEN  (GPCT,Z(BUFFR4),0)\r\nC\r\nC     READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1).\r\nC     INPVT(1) IS THE PIVOT POINT.  INPVT(1) .GT. 0 IMPLIES THE PIVOT\r\nC     POINT IS A GRID POINT.  INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT\r\nC     IS A SCALAR POINT.  INPVT(2) IS THE NUMBER OF WORDS IN THE\r\nC     REMAINDER OF THIS RECORD OF THE GPCT.\r\nC\r\n  130 FILE = GPCT\r\n      CALL READ (*1000,*700,GPCT,INPVT(1),2,NEOR,IFLAG)\r\n      NGPCT = INPVT(2)\r\n      CALL FREAD (GPCT,IZ(IGPCT+1),NGPCT,1)\r\n      IF (INPVT(1) .LT. 0) GO TO 700\r\nC\r\nC     FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6)\r\nC\r\n      FROWIC = 1\r\nC\r\nC     DECREMENT THE AMOUNT OF CORE REMAINING.\r\nC\r\n      LEFT = LEFTT - 2*NGPCT\r\n      IF (LEFT .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      IPOINT = IGPCT + NGPCT\r\n      NPOINT = NGPCT\r\n      I6X6K  = IPOINT + NPOINT\r\n      I6X6K  = (I6X6K - 1)/2 + 2\r\nC\r\nC     CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE PLA4B TO\r\nC     INSERT THE 6 X 6 MATRICES INTO KGGNL.\r\nC\r\n      IZ(IPOINT+1) = 1\r\n      I1 = 1\r\n      I  = IGPCT\r\n      J  = IPOINT + 1\r\n  140 I1 = I1 + 1\r\n      IF (I1 .GT. NGPCT) GO TO 150\r\n      I  = I + 1\r\n      J  = J + 1\r\n      INC= 6\r\n      IF (IZ(I) .LT. 0) INC = 1\r\n      IZ(J) = IZ(J-1) + INC\r\n      GO TO 140\r\nC\r\nC     JMAX = NO. OF COLUMNS OF KGGNL THAT WILL BE GENERATED WITH THE\r\nC     CURRENT GRID POINT.\r\nC\r\n  150 INC   = 5\r\n      ILAST = IGPCT  + NGPCT\r\n      JLAST = IPOINT + NPOINT\r\n      IF (IZ(ILAST) .LT. 0) INC = 0\r\n      JMAX  = IZ(JLAST) + INC\r\nC\r\nC     IF 2*6*JMAX .LT. LEFT, THERE ARE NO SPILL LOGIC PROBLEMS FOR KGGNL\r\nC     SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER 6 X JMAX CAN\r\nC     FIT IN CORE.\r\nC\r\n      ITEMP = 6*JMAX\r\n      IF (2*ITEMP .LT. LEFT) GO TO 170\r\n      NAME(2) = INPVT(1)\r\n      CALL MESAGE (30,85,NAME)\r\n      NROWSC = 3\r\n  160 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 180\r\n      NROWSC = NROWSC - 1\r\n      IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 160\r\n  170 NROWSC = 6\r\nC\r\nC     LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6)\r\nC\r\n  180 LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     ZERO OUT THE KGGD SUBMATRIX IN CORE.\r\nC\r\n  185 LOW = I6X6K + 1\r\n      LIM = I6X6K + JMAX*NROWSC\r\n      DO 190 I = LOW,LIM\r\n  190 DZ(I) = 0.0D0\r\nC\r\nC     INITIALIZE THE LINK VECTOR TO -1.\r\nC\r\n      DO 200 I = 1,NLINKS\r\n  200 LINK(I) = -1\r\nC\r\nC     TURN FIRST PASS INDICATOR ON.\r\nC\r\n      IFIRST = 1\r\nC\r\nC     READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT.\r\nC     IF NPVT .LT. 0, THE REMAINDER OF THE ECPT RECORD IS NULL SO THAT\r\nC     1 OR 6 NULL COLUMNS MUST BE GENERATED\r\nC\r\n      FILE = ECPTS\r\n      CALL FREAD (ECPTS,NPVT,1,0)\r\n      IF (NPVT .LT. 0) GO TO 700\r\nC\r\nC     WRITE PIVOT POINT ON ECPTNL1 (ECPTO)\r\nC\r\n      CALL WRITE (ECPTO,NPVT,1,NEOR)\r\nC\r\nC     READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE.\r\nC\r\n  220 CALL READ (*9020,*500,ECPTS,ITYPE,1,NEOR,IFLAG)\r\nC\r\nC     READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE\r\nC     NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE).\r\nC\r\n      IF (NWORDS(ITYPE) .LE. 0) CALL MESAGE (-30,61,NAME)\r\n      CALL FREAD (ECPTS,ECPT,NWORDS(ITYPE),0)\r\n      ITEMP = IOVRLY(ITYPE)\r\nC\r\nC     IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN\r\nC     PROCESSED.\r\nC\r\n      IF (IFIRST .EQ. 1) GO TO 230\r\nC\r\nC     THIS IS NOT THE FIRST PASS.  IF ITYPE(TH) ELEMENT ROUTINE IS IN\r\nC     CORE, PROCESS IT.\r\nC\r\n      IF (ITEMP .EQ. LINCOR) GO TO 235\r\nC\r\nC     THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE.  IF THIS ELEMENT\r\nC     ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT\r\nC     ELEMENT.\r\nC\r\n      IF (LINK(ITEMP) .EQ. 1) GO TO 220\r\nC\r\nC     SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT\r\nC     RESIDES\r\nC\r\n      LINK(ITEMP) = 0\r\n      GO TO 220\r\nC\r\nC     SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS\r\nC     OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT\r\nC     IS IN A LINK THAT HAS ALREADY BEEN PROCESSED.  IF IT IS SUCH AN\r\nC     ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT.\r\nC\r\n  230 IF (LINK(ITEMP) .EQ. 1) GO TO 220\r\nC\r\nC     SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0\r\nC\r\n      LINCOR = ITEMP\r\n      IFIRST = 0\r\nC\r\nC     CALL THE PROPER ELEMENT ROUTINE.\r\nC\r\nC                     ROD      BEAM      TUBE     SHEAR     TWIST\r\nC                       1         2         3         4         5\r\n  235 GO TO   (       240,      999,      250,      999,      999,\r\nC                   TRIA1     TRBSC     TRPLT     TRMEM    CONROD\r\nC                       6         7         8         9        10\r\n     1                260,      999,      999,      270,      240,\r\nC                   ELAS1     ELAS2     ELAS3     ELAS4     QDPLT\r\nC                      11        12        13        14        15\r\n     2                999,      999,      999,      999,      999,\r\nC                   QDMEM     TRIA2     QUAD2     QUAD1     DAMP1\r\nC                      16        17        18        19        20\r\n     3                280,      290,      300,      310,      999,\r\nC                   DAMP2     DAMP3     DAMP4      VISC     MASS1\r\nC                      21        22        23        24        25\r\n     4                999,      999,      999,      999,      999,\r\nC                   MASS2     MASS3     MASS4     CONM1     CONM2\r\nC                      26        27        28        29        30\r\n     5                999,      999,      999,      999,      999,\r\nC                  PLOTEL     REACT     QUAD3       BAR      CONE\r\nC                      31        32        33        34        35\r\n     6                999,      999,      999,      320,      999,\r\nC                   TRIARG    TRAPRG    CTORDRG    CORE      CAP\r\nC                      36        37        38        39        40\r\n     7                999,      999,      999,      999,     999),ITYPE\r\nC\r\nC     ROD, CONROD\r\nC\r\n  240 CALL PKROD\r\nC\r\nC     IF THE ELEMENT IS A TUBE, RESTORE THE SAVED ECPTNL ENTRY AND STORE\r\nC     THE UPDATED VARIABLES IN PROPER SLOTS.\r\nC\r\n      IF (ITYPE .NE. 3) GO TO 400\r\n      DO 245 I = 1,16\r\n  245 ECPT(I)  = TUBSAV(I)\r\n      ECPT(17) = ECPT(18)\r\n      ECPT(18) = ECPT(19)\r\n      ECPT(19) = ECPT(20)\r\n      GO TO 400\r\nC\r\nC     THIS IS A TUBE ELEMENT.  REARRANGE THE ECPT FOR THE TUBE SO THAT\r\nC     IT IS IDENTICAL TO THE ONE FOR THE ROD.\r\nC\r\nC     SAVE THE ECPT ENTRY FOR THE TUBE EXCEPT FOR THE 3 WORDS WHICH WILL\r\nC     BE UPDATED BY THE PKROD ROUTINE AND THE TRANSLATIONAL COMPONENTS\r\nC     OF THE DISPLACEMENTS VECTORS.\r\nC\r\n  250 DO 255 I = 1,16\r\n  255 TUBSAV(I) = ECPT(I)\r\nC\r\nC     COMPUTE AREA, TORSIONAL INERTIA TERM AND STRESS COEFFICIENT.\r\nC\r\n      D = ECPT(5)\r\n      T = ECPT(6)\r\n      DMT = D - T\r\n      A = DMT*T*PI\r\n      FJ= .25*A*(DMT**2 + T**2)\r\n      C = D/2.0\r\nC\r\nC     MOVE THE END OF THE ECPT ARRAY DOWN ONE SLOT SO THAT ENTRIES 7\r\nC     THROUGH  25 WILL BE MOVED TO POSITIONS 8 THROUGH 26.\r\nC\r\n      M = 26\r\n      DO 257 I = 1,19\r\n      ECPT(M) = ECPT(M-1)\r\n  257 M = M - 1\r\n      ECPT(5) = A\r\n      ECPT(6) = FJ\r\n      ECPT(7) = C\r\n      GO TO 240\r\nC\r\nC     TRIA1\r\nC\r\n  260 CALL PKTRI1\r\n      GO TO 400\r\nC\r\nC     TRMEM\r\nC\r\n  270 CALL PKTRM\r\n      GO TO 400\r\nC\r\nC     QDMEM\r\nC\r\n  280 CALL PKQDM\r\n      GO TO 400\r\nC\r\nC     TRIA2\r\nC\r\n  290 CALL PKTRI2\r\n      GO TO 400\r\nC\r\nC     QUAD2\r\nC\r\n  300 CALL PKQAD2\r\n      GO TO 400\r\nC\r\nC     QUAD1\r\nC\r\n  310 CALL PKQAD1\r\n      GO TO 400\r\nC\r\nC     BAR\r\nC\r\n  320 CALL PKBAR\r\nC\r\nC     WRITE ELEMENT TYPE AND UPDATED ECPT ENTRY ONTO ECPTNL1 (ECPTO)\r\nC\r\n  400 CALL WRITE (ECPTO,ITYPE,1,NEOR)\r\n      CALL WRITE (ECPTO,ECPT,NWDSP2(ITYPE),NEOR)\r\n      ECPTOT(2) = ECPTOT(2) + 1\r\n      GO TO 220\r\nC\r\nC     AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE.  SEARCH\r\nC     THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED.\r\nC\r\n  500 LINK(LINCOR) = 1\r\n      DO  510 I = 1,NLINKS\r\n      IF (LINK(I) .EQ. 0) GO TO 520\r\n  510 CONTINUE\r\n      GO TO 525\r\nC\r\nC     SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST\r\nC     BE BACKSPACED.\r\nC\r\n  520 CALL BCKREC (ECPTS)\r\n      GO TO 150\r\n  525 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0)\r\nC\r\nC     AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE ONTO THE KGGNL FILE\r\nC\r\n      I1 = 0\r\n  540 I2 = 0\r\n      IBEG = I6X6K + I1*JMAX\r\n      CALL BLDPK (2,IPR,IFILE,0,0)\r\n  550 I2 = I2 + 1\r\n      IF (I2 .GT. NGPCT) GO TO 570\r\n      JJ = IGPCT + I2\r\n      INDEX = IABS(IZ(JJ)) - 1\r\n      LIM = 6\r\n      IF (IZ(JJ) .LT. 0) LIM = 1\r\n      JJJ = IPOINT + I2\r\n      KKK = IBEG + IZ(JJJ) - 1\r\n      I3  = 0\r\n  560 I3  = I3 + 1\r\n      IF (I3 .GT. LIM) GO TO 550\r\n      INDEX = INDEX + 1\r\n      KKK = KKK + 1\r\n      DPWORD = DZ(KKK)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n      GO TO 560\r\n  570 CALL BLDPKN (IFILE,0,MCBKGG)\r\n      I1 = I1 + 1\r\n      IF (I1 .LT. NROWSC) GO TO 540\r\nC\r\nC     WRITE AN EOR ON ECPTO\r\nC\r\n      CALL WRITE (ECPTO,0,0,EOR)\r\nC\r\nC     TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF\r\nC     ROWS TO BE COMPUTED = 6.  IF IT IS, WE ARE DONE.  IF NOT, THE\r\nC     ECPTS MUST BE BACKSPACED.\r\nC\r\n      IF (LROWIC .EQ. 6) GO TO 130\r\n      CALL BCKREC (ECPTS)\r\n      FROWIC = FROWIC + NROWSC\r\n      LROWIC = LROWIC + NROWSC\r\n      GO TO 185\r\n  700 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0)\r\nC\r\nC     HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT\r\nC     NULL COLUMNS MUST BE OUTPUT ON THE KGGD FILE.\r\nC\r\n      FILE = ECPTS\r\n      LIM  = 6\r\n      IF (INPVT(1) .LT. 0) LIM = 1\r\n      DO 710 I = 1,LIM\r\n      CALL BLDPK  (2,IPR,IFILE,0,0)\r\n  710 CALL BLDPKN (KGGNL,0,MCBKGG)\r\n      CALL SKPREC (ECPTS,1)\r\nC\r\nC     WRITE PIVOT POINT ON ECPTO\r\nC\r\n      CALL WRITE (ECPTO,NPVT,1,EOR)\r\n      GO TO 130\r\nC\r\nC     CHECK NOGO FLAG. IF NOGO = 1, TERMINATE EXECUTION\r\nC\r\n 1000 IF (NOGO .EQ. 1) CALL MESAGE (-61,0,0)\r\nC\r\nC     WRAP UP BEFORE RETURN\r\nC\r\n      CALL CLOSE (ECPTS,CLSRW)\r\n      CALL CLOSE (ECPTO,CLSRW)\r\n      CALL CLOSE (GPCT,CLSRW)\r\n      CALL CLOSE (KGGNL,CLSRW)\r\n      MCBKGG(3) = MCBKGG(2)\r\n      CALL WRTTRL (MCBKGG)\r\n      CALL WRTTRL (ECPTOT)\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 9010 CALL MESAGE (-1,FILE,NAME)\r\n 9020 CALL MESAGE (-2,FILE,NAME)\r\n 9040 CALL MESAGE (-4,FILE,NAME)\r\n  999 CALL MESAGE (-30,92,ITYPE)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pla4b.f",
    "content": "      SUBROUTINE PLA4B (KE,J)\r\nC*****\r\nC THIS ROUTINE IS THE INSERTION ROUTINE FOR THE PLA4 MODULE.  IT ADDS\r\nC THE 6 X 6 DOUBLE PRECISION MATRIX KE TO THE SUBMATRIX OF ORDER\r\nC 6 X JMAX\r\nC*****\r\n      DOUBLE PRECISION\r\n     1                   DZ(1)              ,KE(36)\r\nC\r\nC\r\nC\r\n      INTEGER\r\n     1                   FROWIC             ,IZ(1)\r\nC\r\nC VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/\r\n     1                   Z(1)\r\nC\r\nC PLA42 COMMUNICATIONS BLOCK\r\nC\r\n      COMMON   /PLA42C/\r\n     1                   IDUM5(6)\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  IDUM11(12)\r\n     6,                  JMAX               ,FROWIC\r\n     7,                  LROWIC             ,NROWSC\r\n     8,                  IDUM(121)\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (DZ(1),Z(1),IZ(1))\r\nC\r\nC SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT\r\nC IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1))\r\nC\r\n      LOW = IGPCT + 1\r\n      LIM = NGPCT + LOW - 2\r\n      IF (LOW .GT. LIM) GO TO 15\r\n      DO 10 I = LOW,LIM\r\n      ISAVE = I\r\n      IF (J .GE. IABS(IZ(I+1)) ) GO TO 10\r\n      IF (J .GE. IABS(IZ(I)) ) GO TO 20\r\n   10 CONTINUE\r\n      IF (J .GE. IABS(IZ(ISAVE+1)) ) ISAVE = ISAVE + 1\r\n      GO TO 20\r\n   15 ISAVE = LOW\r\nC\r\nC ADD KE TO THE SUBMATRIX\r\nC\r\n   20 L1 = FROWIC - 1\r\n      JJ = IPOINT + ISAVE - IGPCT\r\n      J2 = IZ(JJ) - 1\r\n      I1 = 0\r\n      LIM = NROWSC - 1\r\n   30 IF (I1 .GT. LIM) RETURN\r\n      K1 = I6X6K + I1*JMAX + J2\r\n      J1 = 0\r\n      L  = 6*L1\r\n      K  = K1\r\n   40 J1 = J1 + 1\r\n      IF (J1 .GT. 6) GO TO 50\r\n      K  = K + 1\r\n      L  = L + 1\r\n      DZ(K) = DZ(K) + KE(L)\r\n      GO TO 40\r\n   50 I1 = I1 + 1\r\n      L1 = L1 + 1\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/plamat.f",
    "content": "      SUBROUTINE PLAMAT\r\nC THIS ROUTINE RETURNS GP ROTATED FOR PLA3 AND PLA4\r\nC\r\n      DIMENSION X(27)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33 , DUMMY(14)\r\n      COMMON /PLAGP / GP(9) , MIDGP , ELID\r\nC\r\nC  TEST TO SEE IF INCOMING MATERIAL ID IS EQUAL TO MATERIAL ID IN\r\nC  PLAGP.  IF NOT USE REGULAR CALL TO MAT TO GET GP\r\nC\r\n      IF( MIDGP .NE. MATID ) GO TO 10\r\nC\r\nC                           T\r\nC  TRANSFORM G   ,  G  =   U  *  G   * U\r\nC             P      P            P\r\nC\r\n      X(1)  = COSTH**2\r\n      X(2)  = SINTH**2\r\n      X(3)  = COSTH * SINTH\r\n      X(4)  = X(2)\r\n      X(5)  = X(1)\r\n      X(6)  = -X(3)\r\n      X(7)  = 2.0 * X(6)\r\n      X(8)  = -X(7)\r\n      X(9)  = X(1) - X(2)\r\n      CALL GMMATS(GP(1),3,3,0,X( 1),3,3,0,X(19))\r\n      CALL GMMATS(X( 1),3,3,1,X(19),3,3,0,X(10))\r\n      G11 = X(10)\r\n      G12 = X(11)\r\n      G13 = X(12)\r\n      G22 = X(14)\r\n      G23 = X(15)\r\n      G33 = X(18)\r\n      RETURN\r\n   10 INFLAG = 2\r\n      CALL MAT (ELID)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pload.f",
    "content": "      SUBROUTINE PLOAD\r\nC\r\n      INTEGER         NAME(2),GRIDP,PONT\r\n      DIMENSION       GRIDP(5),IGPCO(4,4),GPCO1(3),GPCO2(3),GPCO3(3),\r\n     1                PONT(4),IORD(4),VECT(3),VECT1(3),VECT2(3),\r\n     2                PLOADS(3,4),GPCO4(3),VECT3(3)\r\n      COMMON /LOADX / LCORE,SLT,BGPDT,OLD,CSTM,NN(11),NOBLD\r\n      COMMON /SYSTEM/ KSYS(87),KSYS88\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (PMAG,GRIDP(1)),\r\n     1                (IGPCO(2,1),GPCO1(1)),(IGPCO(2,2),GPCO2(1)),\r\n     2                (IGPCO(2,3),GPCO3(1)),(IGPCO(2,4),GPCO4(1))\r\n      DATA    NAME  / 4HPLOA,4HD   /, PI / 3.141592654 /\r\nC\r\nC\r\n      DO 10 I = 1,3\r\n   10 PLOADS(I,4) = 0.0\r\n      CALL READ (*150,*150,SLT,GRIDP(1),5,0,FLAG)\r\n      PONT(1) = GRIDP(2)\r\n      PONT(2) = GRIDP(3)\r\n      PONT(3) = GRIDP(4)\r\n      PONT(4) = GRIDP(5)\r\n      N1 = 4\r\n      IF (GRIDP(5) .EQ. 0) N1 = 3\r\n      CALL PERMUT (PONT(1),IORD(1),N1,OLD)\r\n      DO 20 I = 1,N1\r\n      L = IORD(I)\r\n   20 CALL FNDPNT (IGPCO(1,L),PONT(L))\r\n      IF (N1 .EQ. 4) GO TO 160\r\nC\r\nC     THREE  POINTS\r\nC\r\n      DO 30 I = 1,3\r\n      VECT3(I) = GPCO1(I) - GPCO2(I)\r\n      VECT2(I) = GPCO3(I) - GPCO1(I)\r\n   30 VECT1(I) = GPCO2(I) - GPCO3(I)\r\n      CALL CROSS (VECT3(1),VECT1(1),VECT(1))\r\nC\r\n      DO 40 I = 1,3\r\n      DO 40 J = 1,3\r\n   40 PLOADS(J,I) = -VECT(J)\r\nC\r\n      IF (KSYS88 .EQ. 1) GO TO 50\r\nC\r\nC     KSYS88 = 0, PRESSURE LOAD IS DISTRIBUTED EVENLY (ONE-THIRD) TO\r\nC     EACH OF THE 3 GRID POINTS. TRIANGULAR GEOMETRY IS NOT CONSIDERED.\r\nC\r\n      PMAG    = PMAG/6\r\n      VECT(1) = PMAG\r\n      VECT(2) = PMAG\r\n      VECT(3) = PMAG\r\n      GO TO 80\r\nC\r\nC     IMPLEMENTED BY G.CHAN/UNISYS   3/1990\r\nC     KSYS88 = 1, PRESSURE LOAD IS DISTRIBUTED PROPORTIONALLY TO THE\r\nC     THREE ANGLE SIZES.\r\nC     E.G. A 45-90-45 DEGREE TRIANGLE ELEMENT WILL HAVE TWICE THE LOAD\r\nC     AT THE 90 DEGREE ANGLE TO THAT OF THE 45 DEGREE ANGLE.\r\nC     RECTANGULAR ELEMENT (4 POINTS) IS NOT AFFECTED\r\nC\r\nC     GET AREA(2X), SIDES (VI) AND ANGLES (AI) OF THE TRIANGLE\r\nC\r\n   50 CONTINUE\r\n      AREA = SQRT(VECT (1)**2 + VECT (2)**2 + VECT (3)**2)\r\n      V1   = SQRT(VECT1(1)**2 + VECT1(2)**2 + VECT1(3)**2)\r\n      V2   = SQRT(VECT2(1)**2 + VECT2(2)**2 + VECT2(3)**2)\r\n      V3   = SQRT(VECT3(1)**2 + VECT3(2)**2 + VECT3(3)**2)\r\nC\r\nC     CHOOSE AN ANGLE, WHICH IS NOT THE LARGEST, TO START COMPUTING\r\nC     THE THREE ANGLES\r\nC\r\n      IF (V2.GT.V1 .AND. V2.GT.V3) GO TO 60\r\n      SIN2 = AREA/(V3*V1)\r\n      SIN1 = V1*SIN2/V2\r\n      SIN3 = V3*SIN2/V2\r\n      A2   = ASIN(SIN2)\r\n      IF (SIN1 .GE. 0.0) A1 = ASIN(SIN1)\r\n      IF (SIN3 .GE. 0.0) A3 = ASIN(SIN3)\r\n      IF (V1 .GT. V3) A1 = PI - A2 - A3\r\n      IF (V3 .GT. V1) A3 = PI - A2 - A1\r\n      GO TO 70\r\nC\r\n   60 SIN3 = AREA/(V2*V1)\r\n      SIN2 = V2*SIN3/V3\r\n      SIN1 = V1*SIN3/V3\r\n      A3   = ASIN(SIN3)\r\n      IF (SIN2 .GE. 0.0) A2 = ASIN(SIN2)\r\n      IF (SIN1 .GE. 0.0) A1 = ASIN(SIN1)\r\n      IF (V1 .GT. V2) A1 = PI - A3 - A2\r\n      IF (V2 .GT. V1) A2 = PI - A3 - A1\r\n   70 PMAG    = 0.5*PMAG/PI\r\n      VECT(1) = PMAG*A1\r\n      VECT(2) = PMAG*A2\r\n      VECT(3) = PMAG*A3\r\nC\r\nC     TRANSFORM TO GLOBAL AND ADD CONTRIBUTIONS\r\nC\r\n   80 DO 130 I = 1,N1\r\n      DO 90  J = 1,3\r\n      IF (N1 .EQ. 4) PLOADS(J,I) = -PLOADS(J,I)*PMAG\r\n      IF (N1 .EQ. 3) PLOADS(J,I) = -PLOADS(J,I)*VECT(I)\r\n   90 CONTINUE\r\n      IF (IGPCO(1,I) .NE. 0) CALL BASGLB (PLOADS(1,I),PLOADS(1,I),\r\n     1                                    IGPCO(2,I),IGPCO(1,I))\r\n      CALL FNDSIL (PONT(I))\r\n      DO 120 J = 1,3\r\n      IN = PONT(I) + J - 1\r\n      CORE(IN) = PLOADS(J,I) + CORE(IN)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\n  140 RETURN\r\nC\r\n  150 CALL MESAGE (-1,SLT,NAME)\r\n      GO TO 140\r\nC\r\nC     FOUR  POINTS\r\nC\r\nC\r\nC     TRIANGLE  1,2,3\r\nC\r\n  160 DO 170 I = 1,3\r\n      VECT1(I) = GPCO1(I) - GPCO2(I)\r\n  170 VECT2(I) = GPCO3(I) - GPCO2(I)\r\n      CALL CROSS (VECT1(1),VECT2(1),VECT(1))\r\n      DO 180 I = 1,3\r\n      DO 180 J = 1,3\r\n  180 PLOADS(J,I) = VECT(J)\r\nC\r\nC     TRIANGLE  2,3,4\r\nC\r\n      DO 190 I  =1,3\r\n      VECT1(I) = GPCO2(I) - GPCO3(I)\r\n  190 VECT2(I) = GPCO4(I) - GPCO3(I)\r\n      CALL CROSS (VECT1(1),VECT2(1),VECT(1))\r\n      DO 200 I = 2,4\r\n      DO 200 J = 1,3\r\n  200 PLOADS(J,I) = PLOADS(J,I) + VECT(J)\r\nC\r\nC     TRIANGLE  3,1,4\r\nC\r\n      DO 210 I = 1,3\r\n      VECT1(I) = GPCO4(I) - GPCO1(I)\r\n  210 VECT2(I) = GPCO3(I) - GPCO1(I)\r\n      CALL CROSS (VECT1(1),VECT2(1),VECT(1))\r\n      DO 230 I = 1,4\r\n      IF (I .EQ. 2) GO TO 230\r\n      DO 220 J = 1,3\r\n  220 PLOADS(J,I) = PLOADS(J,I)+VECT(J)\r\n  230 CONTINUE\r\nC\r\nC     TRIANGLE (4,1,2)\r\nC\r\n      DO 240 I = 1,3\r\n      VECT1(I) = GPCO4(I) - GPCO1(I)\r\n  240 VECT2(I) = GPCO2(I) - GPCO1(I)\r\n      CALL CROSS (VECT1(1),VECT2(1),VECT(1))\r\n      DO 260 I = 1,4\r\n      IF (I .EQ. 3) GO TO 260\r\n      DO 250 J = 1,3\r\n  250 PLOADS(J,I) = PLOADS(J,I) + VECT(J)\r\n  260 CONTINUE\r\n      PMAG = PMAG/12.0\r\n      GO TO 80\r\n      END\r\n"
  },
  {
    "path": "mis/pload1.f",
    "content": "      SUBROUTINE PLOAD1 (OPT,ISLT,V,SA,SB,BA,BB,PA,PB,TA,TB,SLT,EPT)\r\nC\r\nC     PLOAD1 CALCULATES THE END LOADS ON A BAR ELEMENT FOR PLOAD1 LOADS\r\nC     IT IS CALLED ONLY BY PLBAR1\r\nC\r\nC     OPT   = 1, CALLED FROM PLBAR1/EXTERN,  2, CALLED FROM SDRX\r\nC     SLT   = PLOAD1 CARD\r\nC     V     = REFERENCE VECTOR IN BASIC\r\nC     SA    = OFFSET VECTOR IN BASIC POINT A\r\nC     SB    = OFFSET VECTOR IN BASIC POINT B\r\nC     BA    = BASIC  COORD  FOR POINT A\r\nC     BB    = BASIC  COORD  FOR POINT B\r\nC     PA    = LOAD   VECOTR FOR POINT A\r\nC     PB    = LOAD   VECOTR FOR POINT B\r\nC     TA,TB = TRANSFORMATION MATRICES FOR A AND B ONLY USED WITH OPT 1\r\nC     EPT   = POINTER TO EST\r\nC\r\n      INTEGER          OPT,OLDID,TYPE,SCALE,ISLT(7)\r\n      REAL             LEN\r\n      DOUBLE PRECISION AX,AY,AZ,BX,BY,BZ,DX1,DX2,DL,DT,DFX1,DFY1,DFZ1,\r\n     1                 DFX2,DFY2,DFZ2,S1,S2,S3,S4,S5,\r\n     2                 I01,I11,I21,I31,I41,I02,I12,I22,I32,I42\r\n      DIMENSION        V(3),SA(3),SB(3),BA(3),BB(3),PA(6),PB(6),EPT(32),\r\n     1                 A(3),B(3),C(3),D(9),E(9),SLT(7),TA(9),TB(9),TP(3)\r\n      COMMON /MATOUT/  F,G\r\n      EQUIVALENCE      (A(1),E(1)),(B(1),E(7)),(C(1),E(4))\r\n      DATA    OLDID ,  D / 10*0 /\r\nC\r\n      IF (OLDID .EQ. ISLT(1)) GO TO 20\r\n      OLDID = ISLT(1)\r\nC\r\nC     CALCULATE AXIS AND LENGTH, AND THE E MATRIX\r\nC\r\n      A(1) = BB(1)-BA(1) + SB(1)-SA(1)\r\n      A(2) = BB(2)-BA(2) + SB(2)-SA(2)\r\n      A(3) = BB(3)-BA(3) + SB(3)-SA(3)\r\n      LEN  = SQRT(SADOTB(A,A))\r\n      IF (LEN .EQ. 0.0) GO TO 380\r\n      A(1) = A(1)/LEN\r\n      A(2) = A(2)/LEN\r\n      A(3) = A(3)/LEN\r\n      CALL SAXB (A,V,B)\r\nC\r\n      TEMP = SQRT(SADOTB(B,B))\r\n      IF (TEMP .EQ. 0.0) GO TO 380\r\n      B(1) = B(1)/TEMP\r\n      B(2) = B(2)/TEMP\r\n      B(3) = B(3)/TEMP\r\n      CALL SAXB (B,A,C)\r\nC\r\nC     TRANSVERSE SHEAR\r\nC\r\n      TEMP = EPT(31)*EPT(17)*G*LEN**2\r\n      TMP  = 12.0*F*EPT(18)\r\n      ALY  = 0.0\r\n      IF (ABS(TEMP+TMP) .GT. 1.0E-14) ALY = TMP/(TMP+TEMP)\r\n      OMALY = 1.0 - ALY\r\nC\r\n      TEMP = (TEMP/EPT(31))*EPT(32)\r\n      TMP  = 12.0*F*EPT(19)\r\n      ALZ  = 0.0\r\n      IF (ABS(TEMP+TMP) .GT. 1.0E-14) ALZ = TMP/(TMP+TEMP)\r\n      OMALZ = 1.0 - ALZ\r\nC\r\nC     START BUILDING THE FORCES AND MOMENTS\r\nC\r\n   20 TYPE  = ISLT(2)\r\n      SCALE = ISLT(3)\r\n      X1  =  SLT(4)\r\n      F1  =  SLT(5)\r\n      X2  =  SLT(6)\r\n      F2  =  SLT(7)\r\n      I   = (TYPE-1)/6 + 1\r\n      J   = MOD(TYPE,6)\r\n      IF (J .EQ. 0) GO TO 60\r\n      GO TO (30,30,30,40,50,60), J\r\n   30 FX1 = A(J)*F1\r\n      FY1 = C(J)*F1\r\n      FZ1 = B(J)*F1\r\n      FX2 = A(J)*F2\r\n      FY2 = C(J)*F2\r\n      FZ2 = B(J)*F2\r\n      GO TO 100\r\n   40 FX1 = F1\r\n      FY1 = 0.0\r\n      FZ1 = 0.0\r\n      FX2 = F2\r\n      FY2 = 0.0\r\n      FZ2 = 0.0\r\n      GO TO 100\r\n   50 FX1 = 0.0\r\n      FY1 = F1\r\n      FZ1 = 0.0\r\n      FX2 = 0.0\r\n      FY2 = F2\r\n      FZ2 = 0.0\r\n      GO TO 70\r\n   60 FX1 = 0.0\r\n      FY1 = 0.0\r\n      FZ1 = F1\r\n      FX2 = 0.0\r\n      FY2 = 0.0\r\n      FZ2 = F2\r\n   70 J   = 4\r\nC\r\nC     SCALED\r\nC\r\n  100 IF (SCALE.EQ.2 .OR. SCALE.EQ.4) GO TO 110\r\n      X1  = X1/LEN\r\n      X2  = X2/LEN\r\nC\r\nC     DISTRIBUTED SCALED LOADS\r\nC\r\n  110 IF (X1 .EQ. X2) GO TO 220\r\n      IF (SCALE.LE.2 .OR. J.EQ.4) GO TO 120\r\n      FSCALE = SQRT(1.0-A(J)**2)\r\n      FX1  = FSCALE*FX1\r\n      FY1  = FSCALE*FY1\r\n      FZ1  = FSCALE*FZ1\r\n      FX2  = FSCALE*FX2\r\n      FY2  = FSCALE*FY2\r\n      FZ2  = FSCALE*FZ2\r\nC\r\nC     DISTRIBUTED LOADS\r\nC\r\n  120 DX1  = X1\r\n      DX2  = X2\r\n      DL   = LEN\r\n      DFX1 = FX1\r\n      DFY1 = FY1\r\n      DFZ1 = FZ1\r\n      DFX2 = FX2\r\n      DFY2 = FY2\r\n      DFZ2 = FZ2\r\n      S1   = DX2 - DX1\r\n      S2   = .5000000D0*(DX2**2 - DX1**2)\r\n      S3   = .3333333D0*(DX2**3 - DX1**3)\r\n      S4   = .2500000D0*(DX2**4 - DX1**4)\r\n      S5   = .2000000D0*(DX2**5 - DX1**5)\r\n      IF (I .EQ. 2) GO TO 140\r\nC\r\nC     FORCES\r\nC\r\n      I01  = DL*(S1-S2)\r\n      I11  = DL*(S1-3.0D0*S3 + 2.0D0*S4)\r\n      I21  = DL*(   3.0D0*S3 - 2.0D0*S4)\r\n      I31  = DL*(S2-2.0D0*S3 + S4)\r\n      I41  = DL*(S4-S3)\r\n      DT   = DL*DL\r\n      I02  = DT*(S2-S3)\r\n      IF (F1 .EQ. F2) GO TO 130\r\n      I12  = DT*(S2-3.0D0*S4 + 2.0D0*S5)\r\n      I22  = DT*(   3.0D0*S4 - 2.0D0*S5)\r\n      I32  = DT*(S3-2.0D0*S4 + S5)\r\n      I42  = DT*(S5-S4)\r\n      DT   = DL*(DX2-DX1)\r\n      BX   = (DFX2-DFX1)/DT\r\n      BY   = (DFY2-DFY1)/DT\r\n      BZ   = (DFZ2-DFZ1)/DT\r\n      AX   = DFX1 - DX1*BX*DL\r\n      AY   = DFY1 - DX1*BY*DL\r\n      AZ   = DFZ1 - DX1*BZ*DL\r\n      GO TO 170\r\n  130 AX   = DFX1\r\n      AY   = DFY1\r\n      AZ   = DFZ1\r\n      GO TO 160\r\nC\r\nC     MOMENTS\r\nC\r\n  140 I01  = DL*(S1-S2)\r\n      I11  =-6.0D0*(S2-S3)\r\n      I21  =-I11\r\n      I31  = S1 - 4.0D0*S2 + 3.0D0*S3\r\n      I41  =    - 2.0D0*S2 + 3.0D0*S3\r\n      IF (F1 .EQ. F2) GO TO 150\r\n      I02  = (S2-S3)*DL**2\r\n      I12  =-6.0D0*DL*(S3-S4)\r\n      I22  =-I12\r\n      I32  = DL*(S2-4.0D0*S3 + 3.0D0*S4)\r\n      I42  =-DL*(   2.0D0*S3 - 3.0D0*S4)\r\n      DT   = (DX2 -DX1)*DL\r\n      BX   = (DFX2-DFX1)/DT\r\n      BY   = (DFZ2-DFZ1)/DT\r\n      BZ   =-(DFY2-DFY1)/DT\r\n      AX   = DFX1 + DX1*BX*DL\r\n      AY   = DFZ1 + DX1*BY*DL\r\n      AZ   =-DFY1 + DX1*BZ*DL\r\n      GO TO 170\r\n  150 AX   = DFX1\r\n      AY   = DFZ1\r\n      AZ   =-DFY1\r\n  160 BX   = 0.0D0\r\n      BY   = 0.0D0\r\n      BZ   = 0.0D0\r\n      I12  = 0.0D0\r\n      I22  = 0.0D0\r\n      I32  = 0.0D0\r\n      I42  = 0.0D0\r\nC\r\nC     LOADS\r\nC\r\n  170 PA(1) = I01*AX + I02*BX\r\n      PA(2) = I11*AY + I12*BY\r\n      PA(3) = I11*AZ + I22*BZ\r\n      PA(4) = 0.0\r\n      PA(5) =-DL*(I31*AZ + I32*BZ)\r\n      PA(6) = DL*(I31*AY + I32*BY)\r\n      DT    = DL*DL\r\n      PB(1) = DL*S2*AX + DT*S3*BX\r\n      PB(2) = I21  *AY + I22  *BY\r\n      PB(3) = I21  *AZ + I22  *BZ\r\n      PB(4) = 0.0\r\n      PB(5) =-DL*(I41*AZ + I42*BZ)\r\n      PB(6) = DL*(I41*AY + I42*BY)\r\n      IF (I .EQ. 2) GO TO 190\r\n      IF (ALY .EQ. 0.0) GO TO 180\r\n      PA(2) = OMALY*PA(2) + ALY*(  I01*AY + I02*BY   )\r\n      PA(6) = OMALY*PA(6) + ALY*(  I02*AY - I41*BY*DT)*.50\r\n      PB(2) = OMALY*PB(2) + ALY*(DL*S2*AY + S3 *BY*DT)\r\n      PB(6) = OMALY*PB(6) - ALY*(  I02*AY - I41*BY*DT)*.50\r\n  180 IF (ALZ .EQ. 0.0) GO TO 300\r\n      PA(3) = OMALZ*PA(3) + ALZ*(  I01*AZ + I02*BZ   )\r\n      PA(5) = OMALZ*PA(5) - ALZ*(  I02*AZ - I41*BZ*DT)*.50\r\n      PB(3) = OMALZ*PB(3) + ALZ*(DL*S2*AZ + S3 *BZ*DT)\r\n      PB(5) = OMALZ*PB(5) + ALZ*(  I02*AZ - I41*BZ*DT)*.50\r\n      GO TO 300\r\n  190 TEMP  = PA(1)\r\n      PA(1) = PA(4)\r\n      PA(4) = TEMP\r\n      TEMP  = PB(1)\r\n      PB(1) = PB(4)\r\n      PB(4) = TEMP\r\n      IF (ALY .EQ. 0.0) GO TO 200\r\n      PA(2) = OMALY*PA(2)\r\n      PA(6) = OMALY*PA(6) + ALY*(I01*AY + I02*BY)\r\n      PB(2) = OMALY*PB(2)\r\n      PB(6) = OMALY*PB(6) + ALY*(DL*S2*AY + S3*BY*DT)\r\n  200 IF (ALZ .EQ. 0.0) GO TO 300\r\n      PA(3) = OMALZ*PA(3)\r\n      PA(5) = OMALZ*PA(5) + ALZ*(I01*AZ + I02*BZ)\r\n      PB(3) = OMALZ*PB(3)\r\n      PB(5) = OMALZ*PB(5) + ALZ*(DL*S2*AZ + S3*BZ*DT)\r\n      GO TO 300\r\nC\r\nC     CONCENTRATED LOADS\r\nC\r\n  220 TMP = 1.0 - X1\r\n      IF (I .EQ. 2) GO TO 230\r\nC\r\nC     FORCES\r\nC\r\n      TEMP  = 1.0 - 3.0*X1**2 + 2.0*X1**3\r\n      PA(1) = TMP*FX1\r\n      PA(2) = TEMP*FY1*OMALY + FY1*TMP*ALY\r\n      PA(3) = TEMP*FZ1*OMALZ + FZ1*TMP*ALZ\r\n      PA(4) = 0.0\r\n      TEMP  =-LEN*X1*TMP**2\r\n      TMP   = TMP*LEN*X1*.50\r\n      PA(5) = TEMP*FZ1*OMALZ - FZ1*TMP*ALZ\r\n      PA(6) =-TEMP*FY1*OMALY + FY1*TMP*ALY\r\n      TEMP  = 3.0*X1**2 - 2.0*X1**3\r\n      PB(1) = X1*FX1\r\n      PB(2) = TEMP*FY1*OMALY + FY1*X1*ALY\r\n      PB(3) = TEMP*FZ1*OMALZ + FZ1*X1*ALZ\r\n      PB(4) = 0.0\r\n      TEMP  = (1.0-X1)*LEN*X1**2\r\n      PB(5) = TEMP*FZ1*OMALZ + FZ1*TMP*ALZ\r\n      PB(6) =-TEMP*FY1*OMALY - FY1*TMP*ALY\r\n      GO TO 300\r\nC\r\nC     MOMENTS\r\nC\r\n  230 TEMP  =-(6.0/LEN*X1)*TMP\r\n      PA(1) = 0.0\r\n      PA(2) = TEMP*FZ1*OMALY\r\n      PA(3) =-TEMP*FY1*OMALZ\r\n      PA(4) = TMP*FX1\r\n      TEMP  = 1.0 - 4.0*X1 + 3.0*X1**2\r\n      PA(5) = TEMP*FY1*OMALZ + FY1*TMP*ALZ\r\n      PA(6) = TEMP*FZ1*OMALY + FZ1*TMP*ALY\r\n      PB(1) = 0.0\r\n      PB(2) =-PA(2)\r\n      PB(3) =-PA(3)\r\n      PB(4) = X1*FX1\r\n      TEMP  = 3.0*X1**2 - 2.0*X1\r\n      PB(5) = TEMP*FY1*OMALZ + FY1*X1*ALZ\r\n      PB(6) = TEMP*FZ1*OMALY + FZ1*X1*ALY\r\n      GO TO 300\r\nC\r\nC     PIN FLAGS\r\nC\r\n  300 CALL PLOAPF (EPT,EPT,LEN,PA,PB)\r\nC\r\nC     LOAD VECTORS DONE FOR SDRX\r\nC\r\n      IF (OPT .EQ. 2) GO TO 400\r\nC\r\nC     TRANSFORM LOAD VECTOR TO GLOBAL\r\nC\r\n      CALL GMMATS (E ,3,3,1,PA(1),3,1,0,TP   )\r\n      CALL GMMATS (TA,3,3,1,TP   ,3,1,0,PA(1))\r\n      CALL GMMATS (E ,3,3,1,PB(1),3,1,0,TP   )\r\n      CALL GMMATS (TB,3,3,1,TP   ,3,1,0,PB(1))\r\n      CALL GMMATS (E ,3,3,1,PA(4),3,1,0,TP   )\r\n      CALL GMMATS (TA,3,3,1,TP   ,3,1,0,PA(4))\r\n      CALL GMMATS (E ,3,3,1,PB(4),3,1,0,TP   )\r\n      CALL GMMATS (TB,3,3,1,TP   ,3,1,0,PB(4))\r\nC\r\n      DO 310 I = 1,3\r\n      IF (SA(I) .NE. 0.0) GO TO 320\r\n  310 CONTINUE\r\n      GO TO 330\r\n  320 D(2)  =-SA(3)\r\n      D(3)  = SA(2)\r\n      D(4)  = SA(3)\r\n      D(6)  =-SA(1)\r\n      D(7)  =-SA(2)\r\n      D(8)  = SA(1)\r\n      CALL GMMATS (D,3,3,0,PA(1),3,1,0,TP)\r\n      PA(4) = PA(4) + TP(1)\r\n      PA(5) = PA(5) + TP(2)\r\n      PA(6) = PA(6) + TP(3)\r\nC\r\n  330 DO 340 I = 1,3\r\n      IF (SB(I) .NE. 0.0) GO TO 350\r\n  340 CONTINUE\r\n      GO TO 400\r\n  350 D(2)  =-SB(3)\r\n      D(3)  = SB(2)\r\n      D(4)  = SB(3)\r\n      D(6)  =-SB(1)\r\n      D(7)  =-SB(2)\r\n      D(8)  = SB(1)\r\n      CALL GMMATS (D,3,3,0,PB(1),3,1,0,TP)\r\n      PB(4) = PB(4) + TP(1)\r\n      PB(5) = PB(5) + TP(2)\r\n      PB(6) = PB(6) + TP(3)\r\n      GO TO 400\r\nC\r\nC     ERROR\r\nC\r\n  380 CALL MESAGE (-30,31,OLDID)\r\nC\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pload3.f",
    "content": "      SUBROUTINE PLOAD3\r\nC\r\nC     COMPUTES THE CONTRIBUTION TO THE LOAD VECTOR DUE TO PRESSURES\r\nC     APPLIED TO THE FACES OF ISOPARAMETRIC SOLID ELEMENTS\r\nC\r\n      INTEGER     GP(32)     ,SEQ(32)    ,FACE       ,SGNCOL(6)  ,\r\n     1            COL        ,TYPE       ,CID(32)    ,N(3)       ,\r\n     2            IBGPD(4)\r\nC\r\n      DOUBLE PRECISION  SHP(32)    ,DSHP(3,32) ,JINV(3,3)  ,DETJ\r\n     1,     S(3,2)     ,ABSISA     ,PFACT      ,F(3,32)\r\nC\r\n      REAL  BXYZ(3,32) ,BGPD(4)    ,P(6)       ,RF(3,32)\r\nC\r\n      COMMON /LOADX /         LCORE      ,SLT        ,BGPDT      ,\r\n     1                        OLD\r\n      COMMON /ZZZZZZ/         CORE(1)\r\nC\r\n      EQUIVALENCE (BGPD(1),IBGPD(1),DSHP(1,1))\r\n      EQUIVALENCE (SEQ(1),SHP(1))\r\n      EQUIVALENCE (N(1),NI)  ,(N(2),NJ)  ,(N(3),NK)\r\n      EQUIVALENCE (F(1,1),RF(1,1))\r\nC\r\n      DATA ABSISA/0.577350269189626D0/\r\n      DATA SGNCOL/-3,-2,1,2,-1,3/\r\nC\r\nC     READ PRESSURES AND GRID POINT ID S FROM THE SLT, DETERMINE\r\nC     ELEMENT TYPE AND NUMBER OF GRID POINTS AND GET BASIC COORDINATES.\r\nC\r\n      CALL READ(*500,*500,SLT,P,6,0,I)\r\n      CALL READ(*500,*500,SLT,GP,32,0,I)\r\n      TYPE=1\r\n      NGP=8\r\n      IF (GP(9) .EQ. 0) GO TO 10\r\n      TYPE=2\r\n      NGP=20\r\n      IF (GP(21) .EQ. 0) GO TO 10\r\n      TYPE=3\r\n      NGP=32\r\n   10 CALL PERMUT(GP,SEQ,NGP,OLD)\r\n      DO 30 I=1,NGP\r\n      J=SEQ(I)\r\n      CALL FNDPNT(BGPD,GP(J))\r\n      CID(J)=IBGPD(1)\r\n      DO 20 K=1,3\r\n      F(K,I)=0.0\r\n      BXYZ(K,J)=BGPD(K+1)\r\n   20 CONTINUE\r\n   30 CONTINUE\r\nC\r\nC     LOOP OVER SIX ELEMENT FACES\r\nC\r\n      DO 300 FACE=1,6\r\n      IF (P(FACE) .EQ. 0.0) GO TO 300\r\n      J=1\r\n      I=ISIGN(J,SGNCOL(FACE))\r\n      SGN=FLOAT(I)\r\n      COL=IABS(SGNCOL(FACE))\r\n      DO 50 I=1,3\r\n      IF (I .NE. COL) GO TO 40\r\n      S(I,1)=SGN\r\n      N(I)=1\r\n      GO TO 50\r\n   40 S(I,1)=-ABSISA\r\n      S(I,2)= ABSISA\r\n      N(I)=2\r\n   50 CONTINUE\r\nC\r\nC     INTEGRATION LOOPS\r\nC\r\n      DO 200 I=1,NI\r\n      DO 200 J=1,NJ\r\n      DO 200 K=1,NK\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE.\r\nC\r\n      CALL IHEXSD(TYPE,SHP,DSHP,JINV,DETJ,0,S(1,I),S(2,J),S(3,K),BXYZ)\r\n      IF (DETJ .EQ. 0.0) CALL MESAGE(-61,0,0)\r\n      PFACT=DETJ*DBLE(SGN*P(FACE))\r\nC\r\nC     LOOP OVER GRID POINTS\r\nC\r\n      DO 100 L=1,NGP\r\n      IF (SHP(L) .EQ. 0.0) GO TO 100\r\n      DO 60 M=1,3\r\n   60 F(M,L)=PFACT*JINV(M,COL)*SHP(L)+F(M,L)\r\n  100 CONTINUE\r\n  200 CONTINUE\r\n  300 CONTINUE\r\n      J=3*NGP\r\n      DO 305 I=1,J\r\n  305 RF(I,1)=F(I,1)\r\nC\r\nC     TRANSFORM VECTOR TO GLOBAL AND ADD TO GLOBAL LOAD VECTOR.\r\nC\r\n      DO 400 I=1,NGP\r\n      IF (CID(I) .EQ. 0) GO TO 310\r\n      CALL BASGLB(RF(1,I),RF(1,I),BXYZ(1,I),CID(I))\r\n  310 CALL FNDSIL(GP(I))\r\n      DO 320 J=1,3\r\n      K=GP(I)+J-1\r\n      CORE(K)=CORE(K)+RF(J,I)\r\n  320 CONTINUE\r\n  400 CONTINUE\r\n      RETURN\r\n  500 CALL MESAGE(-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pload4.f",
    "content": "      SUBROUTINE PLOAD4 (IBUF5,IDO,JOPEN)\r\nC\r\nC     TO GENERATE PLOAD4 PRESSURE LOAD FOR QUAD4 AND TRIA3 ELEMENTS.\r\nC\r\nC     BOTH ELEMENT TYPES MAY BE PRESENT, OR ONLY ONE OF THE TWO IS\r\nC     PRESENT.\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY EXTERN IN SSG1 MODULE, LINK5\r\nC\r\nC     THIS ROUTINE  CALLS PLOD4D OR PLOD4S TO COMPUTE LOAD FOR QUAD4\r\nC     ELEMENTS, AND CALLS T3PL4D OR T3PL4S TO COMPUTE LOAD FOR TRIA3\r\nC\r\nC     IN OVERLAY TREE, THIS ROUTINE SHOULD BE IN PARALLELED WITH FPONT\r\nC     ROUTINE, AND FOLLOWED BY PLOD4D/S AND T3PL4D/S. I.E.\r\nC\r\nC                   ( FPONT\r\nC            EXTERN (        ( PLOD4D  (/ZZSSA1/\r\nC                   ( PLOAD4 ( PLOD4S\r\nC                            ( T3PL4D\r\nC                            ( T3PL4S\r\nC\r\n      LOGICAL         ALLIN,DEBUG\r\n      INTEGER         IZ(1),NAME(2),FILE,SLT,EST,QUAD4,TRIA3,T3,Q4\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /LOADX / LCARE,SLT,IDUM(5),EST\r\n      COMMON /SYSTEM/ IBUF,NOUT,JDUM(52),IPREC\r\n      COMMON /PINDEX/ IEST(45),ISLT(11)\r\n      COMMON /GPTA1 / NELEM,LAST,INCR,IELEM(1)\r\n      EQUIVALENCE     (CORE(1),IZ(1))\r\n      DATA    QUAD4 , TRIA3 , NAME          /\r\n     1        64    , 83    , 4HPLOA,4HD4   /\r\n      DATA    DEBUG / .FALSE. /\r\nC\r\nC\r\nC     T3 AND Q4 KEEP TRACK OF THE PRESENCE OF THE CTRIA3 AND CQUAD4\r\nC     ELEMENTS\r\nC\r\n      T3    = 0\r\n      Q4    = 0\r\n      LCORE = IBUF5 - IBUF\r\n      IDO11 = IDO*11\r\n      ALLIN = .FALSE.\r\n      IF (IDO11 .GT. LCORE) GO TO 400\r\n      IF (DEBUG) WRITE (NOUT,300)\r\n  300 FORMAT (/,' * PLOAD4 IS CALLED FOR ONE LOAD CASE')\r\nC\r\nC     OPEN CORE IS BIG ENOUGH TO HOLD ALL PLOAD4 DATA.\r\nC     READ THEM ALL INTO CORE\r\nC     (BAD NEWS - OPEN CORE AT THIS TIME IS NOT AVAILABLE)\r\nC\r\n      IF (.NOT.ALLIN) GO TO 400\r\nC\r\n      ALLIN = .TRUE.\r\n      FILE  = SLT\r\n      IMHERE= 350\r\n      CALL READ (*620,*630,SLT,CORE,IDO11,0,FLAG)\r\nC\r\nC     OPEN CORE NOT LARGE ENOUGH TO HOLD ALL PLOAD4 DATA\r\nC\r\n  400 IF (JOPEN .EQ. 1) GO TO 415\r\n      JOPEN = 1\r\n      FILE  = EST\r\n      CALL OPEN  (*610,EST,CORE(IBUF5),0)\r\n      CALL FWDREC (*620,EST)\r\n      FILE = EST\r\n  410 CALL READ (*430,*560,EST,IELTYP,1,0,FLAG)\r\n  415 IF (IELTYP .EQ. QUAD4) GO TO 440\r\n      IF (IELTYP .EQ. TRIA3) GO TO 445\r\n  420 CALL FWDREC (*430,EST)\r\n      GO TO 410\r\n  430 IF (T3+Q4 .NE. 0) GO TO 560\r\n      WRITE  (NOUT,435) UFM\r\n  435 FORMAT (A23,', PLOAD4 PRESSURE LOAD IS USED WITHOUT THE PRESENCE',\r\n     1       ' OF QUAD4 OR TRIA3 ELEMENT')\r\n      IMHERE = 435\r\n      GO TO 620\r\nC\r\n  440 IF (Q4 .GE. 1) GO TO 420\r\n      Q4 = 1\r\n      IF (DEBUG) WRITE (NOUT,441) T3\r\n  441 FORMAT (/,'   QUAD4 ELEM FOUND. SETTING Q4 TO 1.  T3 =',I3)\r\n      GO TO 450\r\n  445 IF (T3 .EQ. 1) GO TO 420\r\n      T3 = 1\r\n      IF (DEBUG) WRITE (NOUT,446) Q4\r\n  446 FORMAT (/,'   TRIA3 ELEM FOUND. SETTING T3 TO 1.  Q4 =',I3)\r\n  450 J  = INCR*(IELTYP-1)\r\n      NWORDS = IELEM(J+12)\r\n      IEST(1)= 0\r\nC\r\n      FILE = SLT\r\n      IB   = 0\r\n      IMHERE = 550\r\n      DO 550 J = 1,IDO\r\n      IF (ALLIN) GO TO 460\r\n      JSAVE = J\r\n      IF (J.EQ.1 .AND. T3+Q4.GE.2) GO TO 470\r\n      CALL READ (*620,*630,SLT,ISLT,11,0,FLAG)\r\n      GO TO 470\r\n  460 DO 465 I = 1,11\r\n  465 ISLT(I) = IZ(I+IB)\r\n      IB = IB + 11\r\n  470 IF (ISLT(1)-IEST(1)) 550,490,480\r\n  480 CALL READ (*560,*560,EST,IEST,NWORDS,0,FLAG)\r\n      GO TO 470\r\nC\r\n  490 IF (IELTYP .EQ. TRIA3) GO TO 520\r\nC\r\nC     PLOAD4 FOR QUAD4 ELEMENT\r\nC\r\n      IF (DEBUG) WRITE (NOUT,500) IEST(1)\r\n  500 FORMAT (' ==> PROCESS PLOAD4 FOR QUAD ELEM',I8)\r\n      GO TO (505,510), IPREC\r\n  505 CALL PLOD4S\r\n      GO TO 550\r\n  510 CALL PLOD4D\r\n      GO TO 550\r\nC\r\nC     PLOAD4 FOR TRIA3 ELEMENT\r\nC     SET ISLT(1) TO NEGATIVE FOR PLOAD4/TRIA3 COMPUTATION\r\nC\r\n  520 IF (DEBUG) WRITE (NOUT,525) IEST(1)\r\n  525 FORMAT (' ==> PROCESS PLOAD4 FOR TRIA3 ELEM',I8)\r\n      ISLT(1) = -IABS(ISLT(1))\r\n      GO TO (530,540), IPREC\r\n  530 CALL T3PL4S\r\n      GO TO 550\r\n  540 CALL T3PL4D\r\nC\r\n  550 CONTINUE\r\nC\r\n  560 IF (T3+Q4 .GE. 2) GO TO 580\r\nC\r\nC     JUST FINISHED EITHER QUAD4 OR TRIA3 ELEMENT. BACKSPACE EST FILE,\r\nC     AND BACKSPACE SLT FILE IF SLT DATA ARE NOT ALREADY IN CORE.\r\nC     REPEAT PLOAD4 (LOAD TYPE 25) COMPUTAION FOR THE OTHER ELEMENT\r\nC     (TRIA3 OR QUAD4) WHICH WE HAVE NOT YET PROCESSED IN THE FIRST\r\nC     PASS. MUST STEP OVER OTHER LOADS THAT MIGHT BE PRESENT\r\nC\r\n      CALL BCKREC (EST)\r\n      Q4    = Q4 + 1\r\n      JSAVE = 0\r\n      IF (ALLIN) GO TO 410\r\nC\r\n      CALL BCKREC (SLT)\r\n      IMHERE = 570\r\n  570 CALL READ (*620,*630,SLT,I,1,0,FLAG)\r\n      IF (I .NE. 25) GO TO 570\r\n      IMHERE = 573\r\n      CALL READ (*620,*630,SLT,I,1,0,FLAG)\r\n      IF (I .NE. IDO) GO TO 570\r\n      IMHERE = 575\r\n      CALL READ (*620,*630,SLT,ISLT,6,0,FLAG)\r\n      IF (ISLT(6) .NE. -1) GO TO 570\r\n      IMHERE = 577\r\n      CALL READ (*620,*630,SLT,ISLT(7),5,0,FLAG)\r\n      IF (ISLT(7) .NE. 0) GO TO 570\r\n      JSAVE = 1\r\n      GO TO 410\r\nC\r\n  580 IF (JOPEN .EQ. 1) CALL CLOSE (EST,1)\r\n      JOPEN = 0\r\n      IF (ALLIN .OR. JSAVE.GE.IDO) GO TO 600\r\n      IMHERE = 590\r\n      J = (IDO-JSAVE)*11\r\n      CALL READ (*640,*640,SLT,0,-J,0,FLAG)\r\n  600 RETURN\r\nC\r\n  610 J = -1\r\n      GO TO 650\r\n  620 J = -2\r\n      GO TO 650\r\n  630 J = -3\r\n      GO TO 650\r\n  640 J = 1\r\n  650 WRITE  (NOUT,660) IMHERE,T3,Q4,IDO,JSAVE\r\n  660 FORMAT ('   IMHERE =',I5,'   T3,Q4 =',2I3,'   IDO,JSAVE =',2I5)\r\n      CALL MESAGE (J,FILE,NAME(1))\r\n      GO TO 600\r\n      END\r\n"
  },
  {
    "path": "mis/ploapf.f",
    "content": "      SUBROUTINE PLOAPF (ECPT,IECPT,L,PA,PB)\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY PLOAD1 FOR HANDLING PIN FLAGS OF\r\nC     THE CBAR\r\nC\r\n      REAL            I1,I2,I12,K1,K2,L,L2,L3,KE,KEP,LB,LR1,LR2,\r\n     1                L2B3,L2B6\r\n      DIMENSION       ECPT(33),IECPT(9),PA(1),PB(1),PE(12),PEP(12),\r\n     1                IPIN(10),KE(144),KEP(144)\r\n      COMMON /MATOUT/ E,G\r\nC\r\n      KA = IECPT(8)\r\n      KB = IECPT(9)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 200\r\n      DO 10 I = 1,6\r\n      PE(I  ) = PA(I)\r\n   10 PE(I+6) = PB(I)\r\n      L2  = L**2\r\n      L3  = L2*L\r\n      A   = ECPT(17)\r\n      I1  = ECPT(18)\r\n      I2  = ECPT(19)\r\n      FJ  = ECPT(20)\r\n      K1  = ECPT(31)\r\n      K2  = ECPT(32)\r\n      I12 = ECPT(33)\r\n      EI1 = E*I1\r\n      EI2 = E*I2\r\n      R1  = 12.0*EI1/L3\r\n      R2  = 12.0*EI2/L3\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 20\r\n      GAK = G*A*K1\r\n      R1  = (12.0*EI1*GAK)/(GAK*L3 + 12.0*L*EI1)\r\n   20 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 30\r\n      GAK = G*A*K2\r\n      R2  = (12.0*EI2*GAK)/(GAK*L3 + 12.0*L*EI2)\r\nC\r\nC     COMPUTE THE -SMALL-K-S. SK1, SK2, SK3 AND SK4\r\nC\r\n   30 SK1 = 0.25*R1*L2 + EI1/L\r\n      SK2 = 0.25*R2*L2 + EI2/L\r\n      SK3 = 0.25*R1*L2 - EI1/L\r\n      SK4 = 0.25*R2*L2 - EI2/L\r\nC\r\nC     COMPUTE THE 12 X 12 MATRIX KE\r\nC\r\n      AEL = A*E /L\r\n      LR1 = L*R1/2.0\r\n      LR2 = L*R2/2.0\r\n      GJL = G*FJ/L\r\nC\r\n      DO 40 I = 1,144\r\n   40 KE(I) = 0.0\r\n      KE(  1) = AEL\r\n      KE(  7) =-AEL\r\n      KE( 14) = R1\r\n      KE( 18) = LR1\r\n      KE( 20) =-R1\r\n      KE( 24) = LR1\r\n      KE( 27) = R2\r\n      KE( 29) =-LR2\r\n      KE( 33) =-R2\r\n      KE( 35) =-LR2\r\n      KE( 40) = GJL\r\n      KE( 46) =-GJL\r\n      KE( 51) =-LR2\r\n      KE( 53) = SK2\r\n      KE( 57) = LR2\r\n      KE( 59) = SK4\r\n      KE( 62) = LR1\r\n      KE( 66) = SK1\r\n      KE( 68) =-LR1\r\n      KE( 72) = SK3\r\n      KE( 73) =-AEL\r\n      KE( 79) = AEL\r\n      KE( 86) =-R1\r\n      KE( 90) =-LR1\r\n      KE( 92) = R1\r\n      KE( 96) =-LR1\r\n      KE( 99) =-R2\r\n      KE(101) = LR2\r\n      KE(105) = R2\r\n      KE(107) = LR2\r\n      KE(112) =-GJL\r\n      KE(118) = GJL\r\n      KE(123) =-LR2\r\n      KE(125) = SK4\r\n      KE(129) = LR2\r\n      KE(131) = SK2\r\n      KE(134) = LR1\r\n      KE(138) = SK3\r\n      KE(140) =-LR1\r\n      KE(144) = SK1\r\n      IF (I12 .EQ. 0.0) GO TO 50\r\n      BETA    =-12.0*E*I12/L3\r\n      LB      = L *BETA/2.0\r\n      L2B3    = L2*BETA/3.0\r\n      L2B6    = L2*BETA/6.0\r\n      KE( 15) =-BETA\r\n      KE( 17) = LB\r\n      KE( 21) = BETA\r\n      KE( 23) = LB\r\n      KE( 26) =-BETA\r\n      KE( 30) =-LB\r\n      KE( 32) = BETA\r\n      KE( 36) =-LB\r\n      KE( 50) = LB\r\n      KE( 54) = L2B3\r\n      KE( 56) =-LB\r\n      KE( 60) = L2B6\r\n      KE( 63) =-LB\r\n      KE( 65) = L2B3\r\n      KE( 69) = LB\r\n      KE( 71) = L2B6\r\n      KE( 87) = BETA\r\n      KE( 89) =-LB\r\n      KE( 93) =-BETA\r\n      KE( 95) =-LB\r\n      KE( 98) = BETA\r\n      KE(102) = LB\r\n      KE(104) =-BETA\r\n      KE(108) = LB\r\n      KE(122) = LB\r\n      KE(126) = L2B6\r\n      KE(128) =-LB\r\n      KE(132) = L2B3\r\n      KE(135) =-LB\r\n      KE(137) = L2B6\r\n      KE(141) = LB\r\n      KE(143) = L2B3\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n   50 DO 60 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n   60 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS\r\nC\r\n      DO 130 I = 1,10\r\n      IP = IPIN(I)\r\n      IF (IP .EQ. 0) GO TO 130\r\n      II = IP*13 - 12\r\n      IF (KE(II) .NE. 0.0) GO TO 80\r\n      IL = IP\r\n      II = II - IL\r\n      DO 70 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0\r\n      KE(IL) = 0.0\r\n   70 IL = IL + 12\r\n      GO TO 130\r\n   80 IP12 = (IP-1)*12\r\n      DO 100 J = 1,12\r\n      J12 = (J-1)*12\r\n      JI  = J12  + IP\r\n      IJ  = IP12 + J\r\n      DO 90 LL = 1,12\r\n      JLL = J12  + LL\r\n      ILL = IP12 + LL\r\n   90 KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n      PEP(J  ) = PE(J  ) - (KE(JI )/KE(II))*PE(IP)\r\n      KEP(IJ ) = 0.0\r\n      KEP(JI ) = 0.0\r\n  100 CONTINUE\r\n      PEP(IP ) = 0.0\r\n      DO 110 K = 1,144\r\n  110 KE(K) = KEP(K)\r\n      DO 120 K = 1,12\r\n  120 PE(K) = PEP(K)\r\n  130 CONTINUE\r\nC\r\n      DO 140 I = 1,10\r\n      IP = IPIN(I)\r\n      IF (IP .EQ. 0) GO TO 140\r\n      PE(IP) = 0.0\r\n  140 CONTINUE\r\n      DO 150 I = 1,6\r\n      PA(I) = PE(I  )\r\n  150 PB(I) = PE(I+6)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/plod4d.f",
    "content": "      SUBROUTINE PLOD4D\r\nC\r\nC     ROUTINE TO PROCESS PLOAD4 BULK DATA TO CREATE LOADS ON QUAD4\r\nC     ELEMENTS\r\nC\r\nC     DOUBLE PRECISION VERSION.\r\nC\r\nC     GRID POINT NUMBERING IS COUNTER-CLOCKWISE\r\nC     GRIDS 1,2,3, AND 4 ARE AT THE CORNERS\r\nC\r\n      INTEGER          NEST(125),IORDER(4),SIL(4),KSIL(4),NOUT,\r\n     1                 CID,NSURF,SWP,SYSBUF,IZ(1),ITGRID(4,4),\r\n     2                 IBGPDT(4,4),ISLT(11),NOGO\r\n      REAL             PE(3,4),BGPDT(4,4),PPP(4),NV(3),NVX(3),\r\n     1                 LOCATE(3)\r\n      DOUBLE PRECISION DPE(3,4),WEIGHT,XSI,ETA,EPS,AREA,SHP(4),\r\n     1                 DSHP(8),TMPSHP(4),DSHPTP(8),VI(3),VJ(3),\r\n     2                 V3T(3),GAUSS(3),WTGAUS(3)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\n      COMMON /LOADX /  IDUM1(4),CSTM,IDUM2(13),ICM\r\n      COMMON /PINDEX/  BEST(45),SLT(11)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO\r\n      EQUIVALENCE      (IZ(1)  ,Z(1)   ), (SLT(1),ISLT(1) )\r\n      EQUIVALENCE      (NEST(1),BEST(1)), (NUMINT,NEST(25))\r\n      EQUIVALENCE      (SIL(1) ,NEST(2)), (BGPDT(1,1),BEST(29))\r\n      EQUIVALENCE      (IBGPDT(1,1),BGPDT(1,1))\r\n      DATA    NDOF  /  3 /\r\nC\r\nC                 EST LISTING\r\nC     --------------------------------------------------\r\nC      1          EID\r\nC      2 THRU 5   SILS, GRIDS 1 THRU 4\r\nC      6 THRU 9   T (MEMBRANE), GRIDS 1 THRU 4\r\nC     10          THETA (MATERIAL)\r\nC     11          TYPE FLAG FOR WORD 10\r\nC     12          ZOFF  (OFFSET)\r\nC     13          MATERIAL ID FOR MEMBRANE\r\nC     14          T (MEMBRANE)\r\nC     15          MATERIAL ID FOR BENDING\r\nC     16          I FACTOR (BENDING)\r\nC     17          MATERIAL ID FOR TRANSVERSE SHEAR\r\nC     18          FACTOR FOR T(S)\r\nC     19          NSM (NON-STRUCTURAL MASS)\r\nC     20 THRU 21  Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC     22          MATERIAL ID FOR MEMBRANE-BENDING COUPLING\r\nC     23          THETA (MATERIAL) FROM PSHELL CARD\r\nC     24          TYPE FLAG FOR WORD 23\r\nC     25          INTEGRATION ORDER\r\nC     26          THETA (STRESS)\r\nC     27          TYPE FLAG FOR WORD 26\r\nC     28          ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC     29 THRU 44  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC     45          ELEMENT TEMPERATURE\r\nC\r\nC                 DATA FROM THE PLOAD4 CARD DESCRIBED HERE\r\nC     ------------------------------------------------------------\r\nC     EID  ELEMENT ID\r\nC     P1,P2,P3,P4 CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA\r\nC     G1,G3  DEFINES QUADRILATERAL SURFACE OF HEXA, QUAD8, AND\r\nC                 PENTA SURFACES ON WHICH PRESSURE LOADS EXIST\r\nC                 OTHERWISE SURFACE IS TRIANGULAR IF G3 IS ZERO OR\r\nC                 BLANK, SURFACE IS TRIANGULAR\r\nC     CID    COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR\r\nC     N1,N2,N3 COMPONENTS OF PRESSURE DIRECTION VECTOR IF CID\r\nC                 'BLANK' OR ZERO, THE PRESSURE ACTS NORMAL TO THE\r\nC                 SURFACE OF THE ELEMENT\r\nC\r\nC     EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE\r\nC     OBTAINED VIA BI-LINEAR INTERPOLATION\r\nC\r\nC     GENERAL INITIALIZATION.\r\nC\r\nC     BEST(45) IS THE DATA FOR EST WHICH IS READ IN EXTERN AND IS\r\nC     READY TO BE USED.\r\nC\r\nC     READ FROM PLOAD4 CARDS\r\nC     P1 = PPP(1)\r\nC     P2 = PPP(2)\r\nC     P3 = PPP(3)\r\nC     P4 = PPP(4)\r\nC     CID,N1,N2,N3\r\nC\r\nC     X WILL BE THE LENGTH OF THE PRESSURE VECTOR FOR NORMALIZATION.\r\nC     NV(I) WILL BE THE NORMALIZED PRESSURE VECTOR\r\nC\r\n      X = 0.0\r\n      DO 10 I = 1,4\r\n   10 PPP(I) = SLT(I+1)\r\n      DO 20 I = 1,3\r\n      NV(I) = SLT(I+8)\r\n      X = X + NV(I)*NV(I)\r\n   20 CONTINUE\r\n      CID = ISLT(8)\r\nC\r\n      IF (X .EQ. 0.0) GO TO 40\r\n      X = SQRT(X)\r\n      DO 30 I = 1,3\r\n   30 NV(I) = NV(I)/X\r\nC\r\n   40 NCRD = 3\r\nC\r\nC     PERFORM TEST FOR PRESENCE OF CONSTANT PRESSURE SET SWP\r\nC\r\n      SWP = 1\r\n      IF (PPP(2).EQ.0.D0 .AND. PPP(3).EQ.0.D0 .AND. PPP(4).EQ.0.D0)\r\n     1    SWP = 0\r\n      NSURF = 4\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL\r\nC     ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4.\r\nC     THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE\r\nC     CONNECTIVITY  BULK DATA CARD DESCRIPTION.\r\nC\r\n      KSILD = 99999995\r\n      DO 100 I = 1,4\r\n      IORDER(I) = 0\r\n      KSIL(I) = SIL(I)\r\n  100 CONTINUE\r\n      DO 120 I = 1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 110 J = 2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 110\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n  110 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  120 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC\r\n      DO 140 I = 1,4\r\n      KSIL(I) = SIL(I)\r\n      DO 130 J = 1,4\r\n      ITGRID(J,I) = IBGPDT(J,I)\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n      DO 160 I = 1,4\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      DO 150 J = 1,4\r\n      IBGPDT(J,I) = ITGRID(J,IPOINT)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\nC\r\n      NVCT = NCRD*4\r\n      EPS  = 0.001D0\r\nC\r\nC     SET VALUES FOR NUMERICAL INTEGRATION POINTS AND WEIGHT FACTORS\r\nC\r\nC     DEFAULT INTEGRATION ORDER IS 2X2\r\nC\r\n      NUMINT = 2\r\n      GAUSS(1)  = -0.57735026918962D0\r\n      GAUSS(2)  = +0.57735026918962D0\r\n      WTGAUS(1) = 1.0D0\r\n      WTGAUS(2) = 1.0D0\r\nC\r\nC     ZERO OUT THE LOAD ROW SET\r\nC\r\n      DO 170 I = 1,NDOF\r\n      DO 170 J = 1,4\r\n  170 DPE(I,J) = 0.0D0\r\nC\r\nC     SET UP THE LOOPS FOR NUMERICAL INTEGRATION\r\nC\r\n      DO 350 IETA = 1,NUMINT\r\n      ETA = GAUSS(IETA)\r\n      DO 350 IXSI = 1,NUMINT\r\n      XSI = GAUSS(IXSI)\r\n      WEIGHT = WTGAUS(IXSI)*WTGAUS(IETA)\r\n      P = 0.0D0\r\nC\r\nC     P1,P2,P3,P4 ARE THE GRID POINT PRESSURE LOADS PER UNIT\r\nC     AREA FROM THE PLOAD4 CARD.  THESE WILL BE USED WITH A\r\nC     BILINEAR SHAPE FUNCTION ROUTINE TO CALCULATE THE NODAL\r\nC     LOADS.\r\nC\r\nC     BILINEAR CASE WHERE THE VALUES OF XSI,ETA ARE INPUT IN\r\nC     EXPLICIT FORM DEPENDING UPON WHICH NUMERICAL INTEGRATION\r\nC     SCHEME IS BEING USED.\r\nC\r\nC\r\nC     NSURF IS AN INTEGER WHICH KEEPS TRACK OF THE SURFACE TYPE\r\nC              NSURF = 3 . . .  TRIANGULAR SURFACE\r\nC              NSURF = 4 . . .  QUADRILATERAL SURFACE\r\nC\r\nC\r\nC     CALL SHAPE FCN. ROUTINE FOR THE BILINEAR QUAD4.  INPUT IS\r\nC     XSI,ETA,III AND EVALUATION OF SHAPE FCN. AT INTEG.PTS\r\nC     WILL BE PERFORMED.\r\nC\r\n      CALL Q4SHPD (XSI,ETA,SHP,DSHP)\r\nC\r\n      IF (SWP .EQ. 0) P = PPP(1)\r\n      IF (SWP .EQ. 0) GO TO 200\r\nC\r\n      DO 180 III = 1,NSURF\r\n  180 P = P + SHP(III)*PPP(III)\r\n  200 CONTINUE\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 210 I = 1,4\r\n      TMPSHP(I  ) =  SHP(I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  210 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 220 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  220 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\nC     COMPUTE THE UNIT NORMALS V3T AT EACH GRID POINT.  THESE WILL\r\nC     BE USED TO GET COMPONENTS OF PRESSURE VECTOR ACTING NORMAL TO\r\nC     THE SURFACE.  AREA CALCULATION CHECKS THE GEOMETRY OF THE\r\nC     ELEMENT.\r\nC\r\n      DO 230 I = 1,3\r\n      VI(I) = 0.0D0\r\n      VJ(I) = 0.0D0\r\n      DO 230 J = 1,4\r\n      II = I + 1\r\n      VI(I) = VI(I) + BGPDT(II,J)*DSHP(J  )\r\n  230 VJ(I) = VJ(I) + BGPDT(II,J)*DSHP(J+4)\r\nC\r\nC     CHECK FOR USER INPUT VECTOR TO ROTATE LOADS\r\nC\r\n      CALL DAXB (VI,VJ,V3T)\r\n      AREA = DSQRT(V3T(1)**2 + V3T(2)**2 + V3T(3)**2)\r\n      IF (AREA .GT. 0.0D0) GO TO 300\r\nC\r\n      WRITE  (NOUT,240) SFM,NEST(1)\r\n  240 FORMAT (A25,'.  BAD GEOMETRY DETECTED FOR QUAD4 ELEMENT ',I8,\r\n     1        ' WHILE PROCESSING PLOAD4 DATA.')\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n  300 CONTINUE\r\n      IF (X .EQ. 0.0) GO TO 330\r\nC\r\nC     CHECK FOR NON-ZERO CID AND NEED TO ROTATE USER'S VECTOR\r\nC\r\n      IF (CID .EQ. 0)  GO TO 320\r\nC\r\nC     COMPUTE THE LOCATION OF THE INTEGRATION POINT SO THAT WE CAN\r\nC     ROTATE THE USER VECTOR PER CID. THIS LOCATION REQUIRED ONLY IF\r\nC     CID IS CYLINDRICAL OR SPHERICAL.\r\nC\r\n      LOCATE(1) = 0.\r\n      LOCATE(2) = 0.\r\n      LOCATE(3) = 0.\r\n      DO 310 J  = 1,4\r\n      LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J)\r\n      LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J)\r\n      LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J)\r\n  310 CONTINUE\r\n      CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID)\r\nC\r\nC     NOW ROTATE THE PRESSURE LOAD\r\nC\r\n      V3T(1) = NVX(1)*AREA\r\n      V3T(2) = NVX(2)*AREA\r\n      V3T(3) = NVX(3)*AREA\r\n      GO TO 330\r\nC\r\nC     NOW ROTATE THE PRESSURE LOAD\r\nC\r\n  320 V3T(1) = NV(1)*AREA\r\n      V3T(2) = NV(2)*AREA\r\n      V3T(3) = NV(3)*AREA\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS\r\nC     INTEGRATION POINT AS NT*P*V3T\r\nC\r\n  330 DO 340 I = 1,4\r\n      DO 340 J = 1,NDOF\r\n  340 DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J)\r\nC\r\n  350 CONTINUE\r\nC\r\nC     END OF NUMERICAL INTEGRATION LOOPS\r\nC\r\nC     MOVE DATA FROM DOUBLE PRECISION ARRAY TO SINGLE PRECISION\r\nC\r\n      DO 400 J = 1,4\r\n      PE(1,J) = DPE(1,J)\r\n      PE(2,J) = DPE(2,J)\r\n      PE(3,J) = DPE(3,J)\r\n  400 CONTINUE\r\nC\r\nC     ADD ELEMENT LOAD TO OVERALL LOAD.\r\nC\r\n      JB = 25\r\n      DO 430 J = 1,4\r\n      JB = JB + 4\r\n      IF (NEST(JB) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BEST(JB+1),\r\n     1                                  NEST(JB))\r\n      JP = SIL(J) - 1\r\n      DO 420 I = 1,3\r\n      Z(JP+I) = Z(JP+I) + PE(I,J)\r\n  420 CONTINUE\r\n  430 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/plod4s.f",
    "content": "      SUBROUTINE PLOD4S\r\nC\r\nC     ROUTINE TO PROCESS PLOAD4 BULK DATA TO CREATE LOADS ON\r\nC     QUAD4 ELEMENTS\r\nC\r\nC     SINGLE PRECISION VERSION.\r\nC\r\nC     GRID POINT NUMBERING IS COUNTER-CLOCKWISE\r\nC     GRIDS 1,2,3, AND 4 ARE AT THE CORNERS\r\nC\r\n      INTEGER         NEST(125),IORDER(4),SIL(4),KSIL(4),NOUT,CID,\r\n     1                NSURF,SWP,SYSBUF,IZ(1),ITGRID(4,4),IBGPDT(4,4),\r\n     2                ISLT(11),NOGO\r\n      REAL            PE(3,4),BGPDT(4,4),PPP(4),NV(3),NVX(3),LOCATE(3)\r\n      REAL            DPE(3,4),WEIGHT,XSI,ETA,EPS,AREA,SHP(4),\r\n     1                DSHP(8),TMPSHP(4),DSHPTP(8),VI(3),VJ(3),V3T(3),\r\n     2                GAUSS(3),WTGAUS(3)\r\n      COMMON /LOADX / IDUM1(4),CSTM,IDUM2(13),ICM\r\n      COMMON /PINDEX/ BEST(45),SLT(11)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,NOGO\r\n      EQUIVALENCE     (IZ(1)  ,Z(1)   ), (SLT(1),ISLT(1) )\r\n      EQUIVALENCE     (NEST(1),BEST(1)), (NUMINT,NEST(25))\r\n      EQUIVALENCE     (SIL(1) ,NEST(2)), (BGPDT(1,1),BEST(29))\r\n      EQUIVALENCE     (IBGPDT(1,1),BGPDT(1,1))\r\n      EQUIVALENCE     (PE(1,1),DPE(1,1))\r\nC\r\n      DATA    NDOF  / 3 /\r\nC\r\nC                 EST LISTING\r\nC     ----------------------------------------------------------\r\nC      1          EID\r\nC      2 THRU 5   SILS, GRIDS 1 THRU 4\r\nC      6 THRU 9   T (MEMBRANE), GRIDS 1 THRU 4\r\nC     10          THETA (MATERIAL)\r\nC     11          TYPE FLAG FOR WORD 10\r\nC     12          ZOFF  (OFFSET)\r\nC     13          MATERIAL ID FOR MEMBRANE\r\nC     14          T (MEMBRANE)\r\nC     15          MATERIAL ID FOR BENDING\r\nC     16          I FACTOR (BENDING)\r\nC     17          MATERIAL ID FOR TRANSVERSE SHEAR\r\nC     18          FACTOR FOR T(S)\r\nC     19          NSM (NON-STRUCTURAL MASS)\r\nC     20 THRU 21  Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC     22          MATERIAL ID FOR MEMBRANE-BENDING COUPLING\r\nC     23          THETA (MATERIAL) FROM PSHELL CARD\r\nC     24          TYPE FLAG FOR WORD 23\r\nC     25          INTEGRATION ORDER\r\nC     26          THETA (STRESS)\r\nC     27          TYPE FLAG FOR WORD 26\r\nC     28          ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC     29 THRU 44  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC     45          ELEMENT TEMPERATURE\r\nC\r\nC\r\nC          DATA FROM THE PLOAD4 CARD DESCRIBED HERE\r\nC     ----------------------------------------------------------\r\nC     EID  ELEMENT ID\r\nC     P1,P2,P3,P4 CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA\r\nC     G1,G3  DEFINES QUADRILATERAL SURFACE OF HEXA, QUAD8, AND\r\nC                 PENTA SURFACES ON WHICH PRESSURE LOADS EXIST\r\nC                 OTHERWISE SURFACE IS TRIANGULAR IF G3 IS ZERO OR\r\nC                 BLANK, SURFACE IS TRIANGULAR\r\nC     CID  COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR\r\nC     N1,N2,N3 COMPONENTS OF PRESSURE DIRECTION VECTOR IF CID\r\nC                 'BLANK' OR ZERO, THE PRESSURE ACTS NORMAL TO THE\r\nC                 SURFACE OF THE ELEMENT\r\nC\r\nC     EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE\r\nC     OBTAINED VIA BI-LINEAR INTERPOLATION\r\nC*****\r\nC     GENERAL INITIALIZATION.\r\nC*****\r\nC     BEST(45) IS THE DATA FOR EST WHICH IS READ IN EXTERN AND IS\r\nC     READY TO BE USED.\r\nC\r\nC     READ FROM PLOAD4 CARDS\r\nC     P1 = PPP(1)\r\nC     P2 = PPP(2)\r\nC     P3 = PPP(3)\r\nC     P4 = PPP(4)\r\nC     CID,N1,N2,N3\r\nC*****\r\nC\r\nC\r\nC     X WILL BE THE LENGTH OF THE PRESSURE VECTOR FOR NORMALIZATION.\r\nC     NV(I) WILL BE THE NORMALIZED PRESSURE VECTOR\r\nC\r\n      X = 0.0\r\n      DO 10 I = 1,4\r\n   10 PPP(I) = SLT(I+1)\r\n      DO 20 I = 1,3\r\n      NV(I)  = SLT(I+8)\r\n      X = X + NV(I)**2\r\n   20 CONTINUE\r\n      CID = ISLT(8)\r\nC\r\n      IF (X .EQ. 0.0) GO TO 40\r\n      X = SQRT( X )\r\n      DO 30 I = 1,3\r\n   30 NV(I) = NV(I) / X\r\nC\r\n   40 NCRD = 3\r\nC*****\r\nC     PERFORM TEST FOR PRESENCE OF CONSTANT PRESSURE SET SWP\r\nC*****\r\n      SWP = 1\r\n      IF (PPP(2).EQ.0. .AND. PPP(3).EQ.0. .AND. PPP(4).EQ.0.)\r\n     1    SWP = 0\r\n      NSURF = 4\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4.\r\nC     THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE\r\nC     CONNECTIVITY BULK DATA CARD DESCRIPTION.\r\nC\r\n      KSILD = 99999995\r\n      DO 100 I=1,4\r\n      IORDER(I) = 0\r\n      KSIL(I) = SIL(I)\r\n  100 CONTINUE\r\n      DO 120 I=1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 110 J=2,4\r\n      IF (ISIL.LE.KSIL(J)) GO TO 110\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n  110 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  120 CONTINUE\r\nC*****\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC*****\r\n      DO 140 I=1,4\r\n      KSIL(I) = SIL(I)\r\n      DO 130 J=1,4\r\n      ITGRID(J,I) = IBGPDT(J,I)\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n      DO 160 I=1,4\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      DO 150 J=1,4\r\n      IBGPDT(J,I) = ITGRID(J,IPOINT)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\nC\r\n      NVCT = NCRD*4\r\n      EPS  = 0.001\r\nC*****\r\nC     SET VALUES FOR NUMERICAL INTEGRATION POINTS AND WEIGHT FACTORS\r\nC\r\nC     DEFAULT INTEGRATION ORDER IS 2X2\r\nC*****\r\n      NUMINT = 2\r\n      GAUSS(1) = -0.57735026918962\r\n      GAUSS(2) = +0.57735026918962\r\n      WTGAUS(1) = 1.0\r\n      WTGAUS(2) = 1.0\r\nC*****\r\nC     ZERO OUT THE LOAD ROW SET\r\nC*****\r\n      DO 170 I=1,NDOF\r\n      DO 170 J=1,4\r\n  170 DPE(I,J) = 0.0\r\nC*****\r\nC     SET UP THE LOOPS FOR NUMERICAL INTEGRATION\r\nC*****\r\n      DO 350 IETA=1,NUMINT\r\n      ETA = GAUSS(IETA)\r\n      DO 350 IXSI=1,NUMINT\r\n      XSI = GAUSS(IXSI)\r\n      WEIGHT = WTGAUS(IXSI)*WTGAUS(IETA)\r\n      P = 0.0\r\nC*****\r\nC     P1,P2,P3,P4 ARE THE GRID POINT PRESSURE LOADS PER UNIT\r\nC     AREA FROM THE PLOAD4 CARD.  THESE WILL BE USED WITH A\r\nC     BILINEAR SHAPE FUNCTION ROUTINE TO CALCULATE THE NODAL\r\nC     LOADS.\r\nC\r\nC     BILINEAR CASE WHERE THE VALUES OF XSI,ETA ARE INPUT IN\r\nC     EXPLICIT FORM DEPENDING UPON WHICH NUMERICAL INTEGRATION\r\nC     SCHEME IS BEING USED.\r\nC\r\nC\r\nC     NSURF IS AN INTEGER WHICH KEEPS TRACK OF THE SURFACE TYPE\r\nC              NSURF = 3 . . .  TRIANGULAR SURFACE\r\nC              NSURF = 4 . . .  QUADRILATERAL SURFACE\r\nC\r\nC*****\r\nC     CALL SHAPE FCN. ROUTINE FOR THE BILINEAR QUAD4.  INPUT IS\r\nC     XSI,ETA,III AND EVALUATION OF SHAPE FCN. AT INTEG.PTS\r\nC     WILL BE PERFORMED.\r\nC*****\r\n      CALL Q4SHPS (XSI,ETA,SHP,DSHP)\r\nC\r\n      IF (SWP .EQ. 0) P=PPP(1)\r\n      IF (SWP .EQ. 0) GO TO 200\r\nC\r\n      DO 180 III=1,NSURF\r\n  180 P = P + SHP(III)*PPP(III)\r\n  200 CONTINUE\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 210 I=1,4\r\n      TMPSHP(I) = SHP(I)\r\n      DSHPTP(I) = DSHP(I)\r\n  210 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 220 I=1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK)\r\n      DSHP(I  ) = DSHPTP(KK)\r\n  220 DSHP(I+4) = DSHPTP(KK+4)\r\nC*****\r\nC     COMPUTE THE UNIT NORMALS V3T AT EACH GRID POINT.  THESE WILL\r\nC     BE USED TO GET COMPONENTS OF PRESSURE VECTOR ACTING NORMAL TO\r\nC     THE SURFACE.  AREA CALCULATION CHECKS THE GEOMETRY OF THE\r\nC     ELEMENT.\r\nC*****\r\n      DO 230 I=1,3\r\n      VI(I) = 0.0\r\n      VJ(I) = 0.0\r\n      DO 230 J=1,4\r\n      II=I+1\r\n      VI(I) = VI(I) + BGPDT(II,J) * DSHP(J)\r\n  230 VJ(I) = VJ(I) + BGPDT(II,J) * DSHP(J+4)\r\nC\r\nC     CHECK FOR USER INPUT VECTOR TO ROTATE LOADS\r\nC\r\n      CALL SAXB (VI,VJ,V3T)\r\n      AREA = SQRT(V3T(1)**2+V3T(2)**2+V3T(3)**2)\r\n      IF (AREA .GT. 0.0) GO TO 300\r\nC\r\n      WRITE (NOUT,240) NEST(1)\r\n  240 FORMAT ('0*** SYSTEM FATAL ERROR.  BAD GEOMETRY DETECTED FOR ',\r\n     1        'QUAD4 ELEMENT ',I8,' WHILE PROCESSING PLOAD4 DATA.')\r\n      NOGO = 1\r\n      RETURN\r\nC\r\n  300 CONTINUE\r\n      IF (X .EQ. 0.0) GO TO 330\r\nC\r\nC     CHECK FOR NON-ZERO CID AND NEED TO ROTATE USER'S VECTOR\r\nC\r\n      IF (CID .EQ. 0) GO TO 320\r\nC\r\nC     COMPUTE THE LOCATION OF THE INTEGRATION POINT SO THAT WE CAN\r\nC     ROTATE THE USER VECTOR PER CID. THIS LOCATION REQUIRED ONLY IF\r\nC     CID IS CYLINDRICAL OR SPHERICAL.\r\nC\r\n      LOCATE(1) = 0.\r\n      LOCATE(2) = 0.\r\n      LOCATE(3) = 0.\r\n      DO 310 J=1,4\r\n      LOCATE(1) = LOCATE(1) + BGPDT(2,J) * SHP(J)\r\n      LOCATE(2) = LOCATE(2) + BGPDT(3,J) * SHP(J)\r\n      LOCATE(3) = LOCATE(3) + BGPDT(4,J) * SHP(J)\r\n  310 CONTINUE\r\n      CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID)\r\nC\r\nC     NOW ROTATE THE PRESSURE LOAD\r\nC\r\n      V3T(1) = NVX(1) * AREA\r\n      V3T(2) = NVX(2) * AREA\r\n      V3T(3) = NVX(3) * AREA\r\n      GO TO 330\r\n  320 CONTINUE\r\nC\r\nC     NOW ROTATE THE PRESSURE LOAD\r\nC\r\n      V3T(1) = NV(1) * AREA\r\n      V3T(2) = NV(2) * AREA\r\n      V3T(3) = NV(3) * AREA\r\n  330 CONTINUE\r\nC\r\nC*****\r\nC     COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS\r\nC     INTEGRATION POINT AS NT * P * V3T\r\nC*****\r\n      DO 340 I=1,4\r\n      DO 340 J=1,NDOF\r\n  340 DPE(J,I) = DPE(J,I) + WEIGHT * P * SHP(I) * V3T(J)\r\n  350 CONTINUE\r\nC*****\r\nC     END OF NUMERICAL INTEGRATION LOOPS\r\nC\r\nC     MOVE DATA FROM REAL ARRAY DPE TO SINGLE PRECISION PE\r\nC     (NO MOVE, SINCE DPE IS EQUIVALENT TO PE)\r\nC*****\r\nC     DO 400 J=1,4\r\nC     PE(1,J) = DPE(1,J)\r\nC     PE(2,J) = DPE(2,J)\r\nC     PE(3,J) = DPE(3,J)\r\nC 400 CONTINUE\r\nC*****\r\nC     ADD ELEMENT LOAD TO OVERALL LOAD.\r\nC*****\r\n      JB = 25\r\n      DO 430 J=1,4\r\n      JB = JB + 4\r\n      IF (NEST(JB) .EQ. 0) GO TO 410\r\n      CALL BASGLB (PE(1,J),PE(1,J),BEST(JB+1),NEST(JB))\r\n  410 CONTINUE\r\n      JP = SIL(J) - 1\r\n      DO 420 I=1,3\r\n      Z(JP+I) = Z(JP+I) + PE(I,J)\r\n  420 CONTINUE\r\n  430 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/plot.f",
    "content": "      SUBROUTINE PLOT (MODE,BUF1,B1,SETID,DEFLST,NOFIND)\r\nC\r\nC     THIS PLOT ROUTINE IS CALLED ONLY BY PARAM\r\nC\r\n      EXTERNAL          ANDF\r\n      LOGICAL TAPBIT   ,STRESS   ,DISP\r\n      INTEGER ANDF     ,ANYDEF   ,AWRD(2)  ,BFRMS    ,B1       ,BUF1   ,\r\n     1        BUFSIZ   ,CASECC   ,D1       ,D2       ,DEFBUF   ,DEFILE ,\r\n     2        DEFID    ,DIRECT   ,DTYPE    ,DEFLST(2),EOR      ,ELSET  ,\r\n     3        ERR(17)  ,GPSET    ,OES1     ,ORIGIN   ,FOR      ,PARM   ,\r\n     4        PBUFSZ   ,PCON     ,PEDGE    ,PLABEL   ,PLTBUF   ,PLTNUM ,\r\n     5        PLTTAP   ,PLTTYP   ,PORIG    ,PPEN     ,PRNT     ,PRJECT ,\r\n     6        PSET     ,PSYMM    ,PSHAPE   ,PSYMBL   ,PVECTR   ,REW    ,\r\n     7        SETID(1) ,SETD     ,SKPTTL   ,STEREO   ,SUBC(2)  ,SUBCAS ,\r\n     8        TRA      ,WHERE    ,WORD     ,NAME(2)  ,SKPLOD   ,THLID  ,\r\n     9        FSCALE   ,FVP      ,OFFSCL   ,ORG\r\n      INTEGER NF(2)    ,F1(10)   ,F2(20)   ,MSG1(19) ,MSG2(17) ,MF4(6) ,\r\n     1        MSG7(13) ,MF3(3,3) ,USED(10)\r\n      INTEGER ALL      ,BOTH     ,CONTUR   ,DEFO     ,ELEM     ,EPID   ,\r\n     1        KEYWD    ,GRID     ,GSPC     ,LAG(2)   ,MAGC(2)  ,TO     ,\r\n     2        MF1(2,5) ,MF2(2,5) ,POIN     ,RANG     ,RQST(17) ,THRU   ,\r\n     3        TIME\r\n      REAL    FRR(17)  ,MAXDEF\r\n      DOUBLE  PRECISION DWRD\r\n      CHARACTER         UFM*23   ,UWM*25\r\n      COMMON /XMSSG /   UFM      ,UWM\r\n      COMMON / PLTSCR / NCOR, PLTSC(50)\r\n      COMMON /BLANK /   NGP      ,SKP11    ,NSETS    ,PRNT     ,PLTNUM ,\r\n     1        NGPSET   ,ANYDEF   ,SKP12(3) ,PARM     ,GPSET    ,ELSET  ,\r\n     2        CASECC   ,SKP21(3) ,DEFILE(3),MERR     ,SETD     ,SKP31  ,\r\n     3        OES1\r\n      COMMON /SYSTEM/   BUFSIZ   ,NOUT     ,DUMMY(66),ISUBS\r\n      COMMON /OUTPUT/   TITLE(32,3)\r\n      COMMON /PLTDAT/   SKPPLT(20),SKPA(10),PLTTAP\r\n      COMMON /XXPARM/   PBUFSZ   ,CAMERA   ,BFRMS    ,SKPCAM(3),\r\n     1        PENPAP(30),SCALE(4),DEFMAX   ,VIEW(15) ,VANPNT(8),PRJECT ,\r\n     2        PROJCT   ,FOR      ,ORG      ,NORG     ,ORIGIN(11),\r\n     3        SKPPAR(77),NCNTR   ,CNTR(50) ,ICNTVL   ,WHERE    ,DIRECT ,\r\n     4        SUBCAS   ,FLAG     ,DATA     ,SKP19(19),ICOLOR   ,SKP235 ,\r\n     5        OFFSCL\r\n      COMMON /DRWDAT/   PSET     ,PLABEL   ,PORIG    ,PPEN     ,PSHAPE ,\r\n     1        PSYMBL(2),PSYMM(6) ,PVECTR   ,PCON     ,PEDGE    ,OFFLAG\r\n      COMMON /PLOTHD/   IUSED\r\n      EQUIVALENCE       (ERR(1),FRR(1))  , (WORD,AWRD(1),IWRD,FWRD,DWRD)\r\n      EQUIVALENCE       (FSCALE,SCALE(3)), (FVP,VANPNT(1))\r\n      EQUIVALENCE       (SKP19(1), LASSET )\r\n      DATA EOR , INPREW,NOREW,REW,SKPTTL,SKPLOD / 1000000,0,2,1,37,5 /\r\n      DATA SUBC/ 4HSUBC, 4HASES/\r\n      DATA NAME/ 4H  PL, 4HOT  /\r\nC\r\n      DATA NF  / 10, 20 /      ,\r\n     1     F1  / 4H(49X, 4H,4HP, 4HLOT,, 4HI9,2, 4HX,16, 4HHUND, 4HEFOR,\r\n     2           4HMED , 4HSHAP, 4HE)   /       ,\r\n     3     F2  / 4H(10X, 4H,4HP, 4HLOT,, 4HI5,3, 4HX,2(, 4HA4,A, 4H3),I,\r\n     4           4H6,10, 4HH - , 4HSUBC, 4HASE,, 4HI8,3, 4HH - , 4H,A4,,\r\n     5           4H1P,E, 4H15.6, 4H,1X,, 4H6A4,, 4HE11., 4H3)  /\r\nC\r\nC     DATA FOR FORMAT F2 - ORDER CORRESPONDING TO DTYPE, +10=VEL,+20=ACC\r\nC\r\n      DATA MF1 / 4HSTAT, 2HIC  , 4HFREQ, 1H.   , 4HTRAN,2HS.  ,\r\n     1           4HMODA, 1HL   , 4HCMOD, 2HAL  /       ,\r\n     2     MF2 / 4HDEFO, 3HRM. , 4HVELO, 1H.   , 4HACCE,2HL.  ,\r\n     3           4HSTRE, 2HSS  , 4HSTRA, 2HIN  /\r\n      DATA IMOD, LOAD  /         4HMODE, 4HLOAD/\r\n      DATA MF3 / 4H- FR, 4HEQUE, 4HNCY , 4H- EI, 4HGENV,4HALUE,\r\n     1           4H- TI, 2HME  , 1H    /       ,\r\n     2     MF4 / 4H PHA, 4HSE L, 4HAG  , 4H MAG, 4HNITU,2HDE  /\r\nC\r\n      DATA NMSG1,NMSG2,  NMSG7 / 19, 17, 13/   ,\r\n     1     MSG1/ 4H(33X, 4H,26H, 4HAN U, 4HNREC, 4HOGNI, 4HZABL, 4HE OP,\r\n     2           4HTION, 4H (,2, 4HA4,3, 4H1H) , 4HWAS , 4HDETE, 4HCTED,\r\n     3           4H ON , 4HA -P, 4HLOT-, 4H CAR, 4HD)  /       ,\r\n     4     MSG2/ 4H(34X, 4H,21H, 4HA NO, 4HN-EX, 4HISTE, 4HNT O, 4HRIGI,\r\n     5           4HN,I7, 4H,31H, 4H  IS, 4H SPE, 4HCIFI, 4HED O, 4HN A ,\r\n     6           4H-PLO, 4HT- C, 4HARD)/       ,\r\n     7     MSG7/ 4H(33X, 4H,41H, 4H*** , 4HINCO, 4HMPLE, 4HTE P, 4HLOT ,\r\n     8           4HDUE , 4HTO I, 4HNPUT, 4H OR , 4HFILE, 4H.)  /\r\nC\r\nC     SET OPTIONS - FOLLOWING THE SET REQUEST(S)\r\nC\r\n      DATA RQST/ 4HSET , 4HORIG, 4HSHAP, 4HSYMB, 4HLABE, 4HVECT, 4HDENS,\r\n     1           4HPEN , 4HSYMM, 4HANTI, 4HMAXI, 4HOUTL, 4HHIDD, 4HSHRI,\r\n     2           4HNOFI, 4HFILL, 4HOFFS/\r\nC\r\n      DATA USED/ 4H(49X, 4H,6HO, 4HRIGI, 4HN,I7, 4H,19H, 4H  US, 4HED I,\r\n     1           4HN TH, 4HIS P, 4HLOT)/\r\nC\r\nC     THE FOLLOWING ARE POSSIBLE OPTIONS ON THE PLOT CARD\r\nC\r\n      DATA DEFO/ 4HDEFO/, LORIG/ 0     /,\r\n     1     ALL / 3HALL /, TO   / 2HTO  /, THRU/ 4HTHRU/, RANG / 4HRANG/,\r\n     2     TIME/ 4HTIME/, BOTH / 4HBOTH/, GRID/ 4HGRID/, POIN / 4HPOIN/,\r\n     3     ELEM/ 4HELEM/, GSPC / 4HGSPC/, LAG / 4HPHAS , 4HLAG        /,\r\n     4     MAGC/ 4HMAGN , 4HIT.        /, EPID/ 4HEPID/,CONTUR/ 4HCONT/\r\nC\r\n      NCNTR  = 10\r\n      ICNTVL = 1\r\n      WHERE  = 1\r\n      LASSET = 0\r\n      DIRECT = 2\r\n      NCOR   = 50\r\n      DO 1 I = 1, 50\r\n      PLTSC(I) = 0\r\n      CNTR(I)  = 0\r\n1     CONTINUE\r\n      PLTBUF = B1 - PBUFSZ\r\n      DEFBUF = PLTBUF - BUFSIZ\r\n      IF (DEFBUF .LE. 0) GO TO 1400\r\n      V1     =-1.E+30\r\n      V2     =+1.E+30\r\n      PH     = 0.0\r\n      MAG    = 0\r\n      PCON   = 0\r\n      LOADID = 0\r\n      LPCON  = 0\r\n      FLAG   = 0.0\r\n      SUBCAS = 0\r\n      DEFID  = 0\r\n      DISP   =.FALSE.\r\n      STRESS =.FALSE.\r\n      TWOPI  = 8.0*ATAN(1.0)\r\n      NDEF   = 0\r\n      NOGO   = 0\r\n      CALL RDMODX (PARM,MODE,WORD)\r\nC\r\n   10 IF (MODE .LE. 0) CALL RDMODE (*10,*20,*40,MODE,WORD)\r\n   20 CALL RDWORD (MODE,WORD)\r\nC\r\nC     CHECK FOR A DEFORMATION TYPE\r\nC\r\n      DO 30 DTYPE = 1,5\r\n      IF (WORD .EQ. MF1(1,DTYPE)) GO TO 50\r\n   30 CONTINUE\r\n   40 DTYPE = 0\r\n      IF (WORD.NE.CONTUR .OR. MODE.GE.EOR) GO TO 180\r\n      PCON  = 1\r\n      PLTTYP= 1\r\n      GO TO 90\r\nC\r\nC     DEFORMATION TYPE SPECIFIED. CHECK IF ALL ARE TO BE PLOTTED\r\nC\r\n   50 PLTTYP = 1\r\n      IF (MODE .LE. 0) CALL RDMODE (*120,*60,*110,MODE,WORD)\r\n   60 CALL RDWORD (MODE,WORD)\r\n      DO 70 PLTTYP = 1,3\r\n      IF (WORD .EQ. MF2(1,PLTTYP)) GO TO 80\r\n   70 CONTINUE\r\n      PLTTYP = 1\r\n      IF (WORD .NE. CONTUR) GO TO 110\r\n      PCON = 1\r\n      GO TO 80\r\nC\r\nC     ACCEL, VELOCITY ONLY ALLOWED FOR TRANS OR FREQUENCY RESPONSE.\r\nC     NOTE THAT A COMPLEX  IGENVALUE WOULD BE NEEDED FOR -CMODAL-\r\nC\r\n   80 IF ((DTYPE.EQ.2 .OR. DTYPE.EQ.3) .OR. PLTTYP.EQ.1) GO TO 90\r\n      ERR(1) = 2\r\n      ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\n      PLTTYP = 1\r\n   90 IF (MODE .LE. 0) CALL RDMODE (*120,*100,*110,MODE,WORD)\r\n  100 CALL RDWORD (MODE,WORD)\r\n  110 NDEF = 1\r\n      DEFLST(1) = ALL\r\n      GO TO 180\r\nC\r\nC     THE DEFORMATIONS MAY BE EXPLICITLY LISTED AND/OR A RANGE MAY BE\r\nC     LISTED (I.E., N1,N2 AND/OR N1 -TO/THRU- N2)\r\nC\r\n  120 ASSIGN 130 TO TRA\r\n      GO TO 1450\r\n  130 NDEF = NDEF + 1\r\n      DEFLST(NDEF) = IWRD\r\n      CALL RDMODE (*1450,*140,*170,MODE,WORD)\r\n  140 CALL RDWORD (MODE,WORD)\r\n      IF (MODE.NE.0 .OR. (WORD.NE.TO .AND. WORD.NE.THRU)) GO TO 170\r\n      ASSIGN 150 TO TRA\r\n      CALL RDMODE (*1450,*160,*170,MODE,WORD)\r\n  150 DEFLST(NDEF+1) = TO\r\n      DEFLST(NDEF+2) = IWRD\r\n      NDEF = NDEF + 2\r\n      CALL RDMODE (*120,*160,*170,MODE,WORD)\r\n  160 CALL RDWORD (MODE,WORD)\r\n  170 IF (NDEF.NE.1 .OR. DEFLST(1).NE.0) GO TO 180\r\n      NDEF = 2\r\n      DEFLST(2) = ALL\r\nC\r\nC     ALL THE LISTED DEFORMATION ID-S HAVE BEEN READ\r\nC\r\n  180 DEFLST(NDEF+1) = 0\r\n      IF (MODE .GE. EOR) GO TO 340\r\nC\r\nC     TEST FOR CONTOUR REQUEST\r\nC\r\n  190 IF (WORD .NE. CONTUR) GO TO 240\r\n      IF (PCON .EQ.      0) GO TO 220\r\n  200 ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n  210 ERR(1) = 2\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\n      GO TO 320\r\nC\r\n  220 PCON = 1\r\n      IF (DTYPE .EQ. 0) PLTTYP = 1\r\n      IF (NDEF  .NE. 1) GO TO 230\r\n      NDEF = 0\r\n      GO TO 90\r\n  230 IF (MODE .GT. 0) GO TO 320\r\n      ERR(2) = SUBC(1)\r\n      ERR(3) = SUBC(2)\r\n      GO TO 210\r\nC\r\nC     TEST FOR RANGE / TIME  (UNITS=LAMDA,F, OR TIME)\r\nC\r\n  240 IF (WORD.NE.RANG .AND. WORD.NE.TIME) GO TO 270\r\n      IF (PCON.EQ.0 .AND. DTYPE.EQ.1) GO TO 200\r\n      ASSIGN 250 TO TRA\r\n      IF (MODE .GT. 0) GO TO 200\r\n      CALL RDMODE (*1490,*330,*340,MODE,WORD)\r\n  250 V1 = FWRD\r\n      ASSIGN 260 TO TRA\r\n      CALL RDMODE (*1490,*330,*340,MODE,WORD)\r\n  260 V2 = FWRD\r\n      GO TO 320\r\nC\r\nC     TEST FOR PHASE LAG (COMPLEX DATA)\r\nC\r\n  270 IF (WORD .NE. LAG(1)) GO TO 310\r\n      IF (DTYPE.NE.2 .AND. DTYPE.NE.5) GO TO 200\r\n      ASSIGN 300 TO TRA\r\n  280 IF (MODE .LE. 0) CALL RDMODE (*1490,*290,*340,MODE,WORD)\r\n  290 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. LAG(2)) GO TO 280\r\n      GO TO 340\r\n  300 IF (MAG.EQ.0) PH = FWRD\r\n      GO TO 320\r\nC\r\nC     TEST FOR MAGNITUDE (COMPLEX DATA)\r\nC\r\n  310 IF (WORD .NE. MAGC(1)) GO TO 340\r\n      IF (DTYPE.NE.2 .AND. DTYPE.NE.5) GO TO 200\r\n      IF (PH .EQ. 0.0) MAG = 1\r\n      GO TO 320\r\nC\r\n  320 IF (MODE .LE. 0) CALL RDMODE (*320,*330,*340,MODE,WORD)\r\n  330 CALL RDWORD (MODE,WORD)\r\n      GO TO 190\r\nC\r\nC     READ THE REST OF THE PLOT CARD INTO STORAGE - DEFLST(N1-N2)\r\nC\r\n  340 N1 = NDEF + 1\r\n      N2 = N1 + 1\r\n      IF (MODE .LT. EOR) GO TO 350\r\n      DEFLST(N2) = MODE\r\n      N2 = N2 + 1\r\n      GO TO 400\r\n  350 N  = 0\r\n  360 DEFLST(N2+1) = AWRD(1)\r\n      DEFLST(N2+2) = AWRD(2)\r\n      N2 = N2 + 2\r\n      N  = N  + 1\r\n      IF (MODE .EQ. 0) GO TO 370\r\n      CALL RDWORD (MODE,WORD)\r\n      GO TO 360\r\n  370 N2 = N2 + 1\r\n      DEFLST(N1+1) = N\r\n  380 CALL READ (*1520,*390,PARM,DEFLST(N2),DEFBUF-N2+1,0,N)\r\n      GO TO 1400\r\n  390 N2 = N2 + N\r\nC\r\nC     SAVE LENGTH OF OPEN CORE USED IN IUSED FOR HDPLOT\r\nC\r\n      IUSED = N2 + NSETS\r\n      IF (DEFLST(N2-1) .EQ. 0) GO TO 380\r\n  400 N2 = N2 - 1\r\nC\r\nC     INITIATE THE PLOTS OF THE REQUESTED DEFORMATIONS.\r\nC\r\n      NPLOTS = 0\r\n      IF (PRNT .LT. 0) GO TO 420\r\n      IF (DTYPE.EQ.0 .AND. PCON.EQ.0) GO TO 410\r\n      ANYDEF = 1\r\n      GO TO 1430\r\nC\r\nC     DO THE UNDEFORMED PLOT\r\nC\r\n  410 DEFID  = 0\r\n      DEFBUF = DEFBUF + BUFSIZ\r\n      IF (ISUBS.EQ.0 .AND. .NOT.TAPBIT(PLTTAP)) GO TO 1520\r\n      GO TO 700\r\n  420 IF (DTYPE.EQ.0 .AND. PCON.EQ.0) GO TO 1430\r\nC\r\nC     DO THE DEFORMED PLOT\r\nC\r\nC     STRESS IS TRUE IF CONTOUR REQUEST IS FOR STRESS\r\nC\r\n      LPCON = PCON\r\n      IF (.NOT.TAPBIT(PLTTAP)) GO TO 1520\r\n      IF (PCON.NE.0 .AND. ICNTVL.LE. 9) STRESS = .TRUE.\r\n      IF (PCON.NE.0 .AND. ICNTVL.GT.13) STRESS = .TRUE.\r\n      IF ((PCON.NE.0 .AND. (ICNTVL.GT.9.AND.ICNTVL.LT.14)) .OR.\r\n     1    DTYPE.NE.0) DISP = .TRUE.\r\n      IF (.NOT.DISP) GO TO 470\r\n      MDEF = DEFILE(1)\r\n      IF (DTYPE .GT. 1) MDEF = DEFILE(2)\r\n      IF (DTYPE .GT. 0) GO TO 460\r\nC\r\nC     USER SPECIFIED CONTOUR DISP AND NOT THE TYPE\r\nC     USE FIRST NON-NULL FILE\r\nC\r\n  430 CALL OPEN (*440,MDEF,DEFLST(DEFBUF),INPREW)\r\n      CALL SKPREC (MDEF,1)\r\n      GO TO 450\r\n  440 IF (MDEF .EQ. DEFILE(2)) CALL MESAGE (-1,MDEF,NAME)\r\n      MDEF = DEFILE(2)\r\n      GO TO 430\r\nC\r\nC     SET DTYPE BY MFILE\r\nC\r\n  450 CALL READ (*1390,*1390,MDEF,ERR(1),2,0,I)\r\n      MFILE = MOD(ERR(2),10)\r\n      DTYPE = MFILE\r\n      CALL CLOSE (MDEF,REW)\r\n  460 CONTINUE\r\nC\r\nC     CALCULATE HEADER WORD 2 NEEDED FOR PLOT FILE CHECK\r\nC\r\n      MFILE = DTYPE\r\n      IF (DTYPE .EQ. 3) MFILE = 3 + (PLTTYP-1)*10\r\nC\r\nC     OPEN OES1 AND MDEF\r\nC\r\n      IF (.NOT.DISP) GO TO 470\r\n      CALL OPEN (*1430,MDEF,DEFLST(DEFBUF),INPREW)\r\n      CALL SKPREC (MDEF,1)\r\n  470 IF (.NOT.STRESS) GO TO 500\r\n      CALL OPEN (*1390,OES1,DEFLST(B1),INPREW)\r\n      CALL SKPREC (OES1,1)\r\n      IF (.NOT.DISP) PLTTYP = 4\r\n      CALL FREAD  (OES1,I,1,0)\r\n      CALL BCKREC (OES1)\r\n      I = I/10\r\n      JAPP = I\r\n      IF (DTYPE .NE. 0) GO TO 475\r\n      IF (I.EQ.1 .OR. I.EQ.3 .OR. I.EQ.4 .OR. I.EQ.7 .OR. I.EQ.10)\r\n     1    DTYPE = 1\r\n      IF (I.EQ.2 .OR. I.EQ.8) DTYPE = 4\r\n      IF (I .EQ. 6) DTYPE = 3\r\nC\r\nC     FOR STRESS PLOTS SET -FLAG- SO FNDSET KNOWS WHICH WORD TO COMPARE\r\nC\r\n  475 IF (DTYPE .EQ. 1) GO TO 480\r\n      IF (DTYPE .GT. 1) FLAG = 1.0\r\n      IF (DTYPE .GT. 3) FLAG = 2.0\r\n  480 IF (DTYPE .EQ. 0) GO TO 1410\r\n      IF (.NOT.DISP) DEFBUF = DEFBUF + BUFSIZ\r\nC\r\nC     READ THE PLOT TITLES FOR EACH DEFORMED SHAPE TO BE DRAWN\r\nC\r\n  500 PCON = LPCON\r\n      IF (.NOT.DISP) GO TO 540\r\n  510 CALL READ  (*1385,*1385,MDEF,DEFID,1,0,I)\r\n      CALL FREAD (MDEF,N,1,0)\r\n      IF (N .EQ. MFILE) GO TO 515\r\n      CALL SKPREC (MDEF,1)\r\n      GO TO 530\r\n  515 CONTINUE\r\n      CALL FREAD (MDEF,LOADID,1,0)\r\n      CALL FREAD (MDEF,VALUE, 1,1)\r\n      IF (VALUE.LT.V1 .OR. VALUE.GT.V2) GO TO 530\r\n      DATA   = VALUE\r\n      SUBCAS = DEFID\r\n      N = 1\r\n  520 IF (DEFLST(N) .EQ. ALL) GO TO 540\r\n      CALL INTLST (DEFLST,N,I,D1,D2)\r\n      IF (DEFID.GE.D1 .AND. DEFID.LE.D2) GO TO 540\r\n      IF (N .LT. N1) GO TO 520\r\n  530 CALL SKPREC (MDEF,1)\r\n      GO TO 510\r\nC\r\nC     POSITION OES1 IF NEEDED\r\nC\r\n  540 IF (.NOT.STRESS) GO TO 660\r\n      IF (NPLOTS .NE. 0) CALL OPEN (*1390,OES1,DEFLST(B1),NOREW)\r\n  550 CALL READ (*1385,*1385,OES1,IAPP,1,0,I)\r\nC\r\nC     VERIFY OES1 IS FOR CURRENT DTYPE\r\nC\r\n      IAPP = IAPP/10\r\n      IF (IAPP .NE. JAPP) GO TO 1385\r\n      CALL FREAD (OES1,0,-2,0)\r\n      CALL FREAD (OES1,I,1,0)\r\n      IF (.NOT.DISP ) GO TO 570\r\n      IF (I.NE.DEFID) GO TO 620\r\n  570 SUBCAS = I\r\n      V = VALUE\r\n      CALL FREAD (OES1,ERR(1),4,0)\r\n      IF (DTYPE .EQ. 1) GO TO 575\r\n      IF (DTYPE .GE. 4) GO TO 580\r\nC\r\nC     TRANSIENT\r\nC\r\n      V = FRR(1)\r\nC\r\nC     STATICS\r\nC\r\n  575 J = ERR(4)\r\n      GO TO 590\r\nC\r\nC     MODAL\r\nC\r\n  580 J = ERR(1)\r\n      V = FRR(2)\r\n      IF (DTYPE.EQ.4 .AND. IAPP.EQ.2) V = SQRT(ABS(V))/TWOPI\r\n  590 IF (.NOT.DISP) GO TO 600\r\nC\r\nC     ACCOUNT FOR ROUNDOFF\r\nC\r\n      IF (ABS(V-VALUE) .GT. 1.0E-6) GO TO 620\r\n      DATA = VALUE\r\n      GO TO 650\r\n  600 IF (V.LT.V1 .OR. V.GT.V2) GO TO 620\r\n      DATA = V\r\n      N = 1\r\n  610 IF (DEFLST(N) .EQ. ALL) GO TO 650\r\n      CALL INTLST (DEFLST,N,I,D1,D2)\r\n      IF (SUBCAS.GE.D1 .AND. SUBCAS.LE.D2) GO TO 650\r\n      IF (N .LT. N1) GO TO 610\r\nC\r\nC     WRONG CASE\r\nC\r\n  620 CALL FWDREC (*1410,OES1)\r\n      CALL FWDREC (*1410,OES1)\r\n      GO TO 550\r\nC\r\nC     LOCATED CASE TO PLOT\r\nC\r\n  650 CALL BCKREC (OES1)\r\n      LOADID = J\r\n      DEFID  = SUBCAS\r\n      VALUE  = DATA\r\nC\r\n  660 CALL GOPEN (CASECC,DEFLST(BUF1),INPREW)\r\n  670 CALL READ  (*690,*690,CASECC,N,1,0,I)\r\n      IF (N .EQ. DEFID) GO TO 675\r\n      CALL FREAD (CASECC,0,0,1)\r\n      GO TO 670\r\n  675 CALL FREAD (CASECC,0,-SKPLOD,0)\r\n      CALL FREAD (CASECC,THLID,1,0)\r\n      IF (LOADID .EQ. 0) LOADID = THLID\r\n      SKPTTL = 31\r\n      CALL FREAD (CASECC,0,-SKPTTL,0)\r\n      CALL FREAD (CASECC,TITLE,3*32,0)\r\n      CALL CLOSE (CASECC,REW)\r\n      GO TO 700\r\n  690 CALL CLOSE (CASECC,REW)\r\n      IF (.NOT.DISP) GO TO 550\r\n      CALL FREAD (MDEF,0,0,1)\r\n      GO TO 510\r\nC\r\nC     IDENTIFY THE PLOT\r\nC\r\n  700 PLTNUM = PLTNUM + 1\r\n      IF (STRESS) CALL CLOSE (OES1,NOREW)\r\n      CALL SOPEN (*1430,PLTTAP,DEFLST(PLTBUF),PBUFSZ)\r\n      NCNTR = -IABS(NCNTR)\r\n      IF (NPLOTS .EQ. 0) CALL PLTOPR\r\n      NPLOTS = NPLOTS + 1\r\n      STEREO = 0\r\n      MTYP   = 0\r\n      ERR(2) = PLTNUM\r\n      IF (.NOT.(DISP .OR. STRESS)) GO TO 720\r\n      ERR(3) = MF1(1,DTYPE)\r\n      ERR(4) = MF1(2,DTYPE)\r\n      IF (ICNTVL .EQ. 20) PLTTYP = 4\r\n      ERR(5) = MF2(1,PLTTYP)\r\n      ERR(6) = MF2(2,PLTTYP)\r\n      ERR(7) = DEFID\r\n      ERR(8) = LOADID\r\n      ERR(9) = LOAD\r\n      IF (DTYPE .NE. 1) GO TO 710\r\n      ERR(1) = 8\r\n      GO TO 730\r\n  710 ERR(1) = 12\r\n      IF (DTYPE .GT. 3) ERR(9) = IMOD\r\n      FRR(10) = VALUE\r\n      MTYP = 1\r\n      IF (DTYPE .EQ. 3) MTYP = 3\r\n      IF (DTYPE.EQ.4 .AND. LOADID.LT.0) MTYP = 2\r\n      IF (MTYP .EQ. 2) ERR(8) = -LOADID\r\n      ERR(11) = MF3(1,MTYP)\r\n      ERR(12) = MF3(2,MTYP)\r\n      ERR(13) = MF3(3,MTYP)\r\n      IF (DTYPE.EQ.3 .OR. DTYPE.EQ.4) GO TO 730\r\n      ERR(1) = 15\r\n      M = 0\r\n      IF (MAG .NE. 0) M = 3\r\n      ERR(14) = MF4(M+1)\r\n      ERR(15) = MF4(M+2)\r\n      ERR(16) = MF4(M+3)\r\n      IF (MAG .NE. 0) GO TO 730\r\n      ERR(1)  = 16\r\n      FRR(17) = PH\r\n      GO TO 730\r\n  720 ERR(1) = 1\r\n      CALL WRTPRT (MERR,ERR,F1,NF(1))\r\n      GO TO 740\r\n  730 CALL WRTPRT (MERR,ERR,F2,NF(2))\r\n  740 CALL STPLOT (PLTNUM)\r\n      CALL HEAD (DTYPE,PLTTYP,MTYP,ERR)\r\nC\r\nC     PLOT EACH SET REQUESTED. INTERPRET THE ASSOCIATED REQUESTS.\r\nC\r\n  750 CALL RDMODY (DEFLST(N1+1),MODE,WORD)\r\n      MODE   = 0\r\n      MAXDEF = 0.\r\n      PORIG  = 1\r\n      PPEN   = 1\r\n      PSET   = 0\r\n  760 PLABEL = -1\r\n      PCON   = LPCON\r\n      PSHAPE = 1\r\n      PVECTR = 0\r\n      OFFLAG = 0\r\n      PEDGE  = 0\r\n      PSYMBL(1) = 0\r\n      PSYMBL(2) = 0\r\n      PSYMM(1) = 1\r\n      PSYMM(2) = 1\r\n      PSYMM(3) = 1\r\n      PSYMM(4) = 1\r\n      PSYMM(5) = 1\r\n      PSYMM(6) = 1\r\n  780 IF (MODE .LE. 0) CALL RDMODE (*780,*790,*1180,MODE,WORD)\r\n  790 CALL RDWORD (MODE,WORD)\r\nC\r\nC     CHECK FOR THE KEYWORD. THIS MAY BE FOLLOWED BY QUALIFIERS\r\nC\r\n  800 CONTINUE\r\n      DO 802 KEYWD = 1,17\r\n      IF (WORD .EQ. RQST(KEYWD)) GO TO 804\r\n  802 CONTINUE\r\n      GO TO 1170\r\n  804 GO TO (1080, 910, 960, 990, 830,1060, 810, 810,1020,1020,\r\n     1        880,1140,1148,1142,1175, 805,1160), KEYWD\r\nC\r\nC             SET ORIG SHAP SYMB LABE VECT DENS  PEN SYMM ANTI\r\nC    1       MAXI OUTL HIDD SHRI NOFI FILL OFFS\r\nC\r\nC     FILL ELEMENTS BY SET HERE\r\nC     FILL PRESENTLY DOES NOT WORK TOGETHER WITH SHRINK AND HIDDEN\r\nC\r\n  805 PPEN  = PPEN + 31\r\n      PEDGE = 100\r\n      GO TO 780\r\nC\r\nC     DENSITY I, PEN I\r\nC\r\n  810 IF (MODE .NE. 0) GO TO 1170\r\n      ASSIGN 820 TO TRA\r\n      GO TO 1440\r\n  820 PPEN = IWRD\r\n      GO TO 780\r\nC\r\nC     LABEL GRID / ELEMENTS\r\nC\r\n  830 PLABEL = 0\r\n      IF (MODE .LE. 0) CALL RDMODE (*780,*840,*1180,MODE,WORD)\r\n  840 CALL RDWORD (MODE,WORD)\r\n      IF (WORD .EQ. BOTH) GO TO 870\r\n      IF (WORD .EQ. ELEM) GO TO 860\r\n      IF (WORD .NE. GRID) GO TO 872\r\n      IF (MODE .LE. 0) CALL RDMODE (*780,*850,*1180,MODE,WORD)\r\n  850 CALL RDWORD (MODE,WORD)\r\n      IF (WORD-POIN) 800,780,800\r\n  860 PLABEL = 3\r\n      GO TO 780\r\n  870 PLABEL = 6\r\n      GO TO 780\r\n  872 IF (WORD .EQ. GSPC) PLABEL = 1\r\n      IF (WORD .EQ. EPID) PLABEL = 4\r\n      IF (PLABEL .NE.  0) GO TO 780\r\n      GO TO 800\r\nC\r\nC     MAXIMUM DEFORMATION X.X\r\nC\r\n  880 CONTINUE\r\n      ASSIGN 900 TO TRA\r\n      IF (MODE .LE. 0) CALL RDMODE (*1490,*890,*1180,MODE,WORD)\r\n  890 CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.DEFO .OR. MODE.NE.0) GO TO 800\r\n      GO TO 1480\r\n  900 MAXDEF = ABS(FWRD)\r\n      GO TO 780\r\nC\r\nC     ORIGIN I\r\nC\r\n  910 IF (MODE .NE. 0) GO TO 1170\r\n      ASSIGN 920 TO TRA\r\n      GO TO 1440\r\n  920 DO 930 I = 1,ORG\r\n      IF (ORIGIN(I) .EQ. IWRD) GO TO 940\r\n  930 CONTINUE\r\n      IF (STEREO .NE. 0) GO TO 780\r\n      ERR(1) = 1\r\n      ERR(2) = IWRD\r\n      CALL WRTPRT (MERR,ERR,MSG2,NMSG2)\r\n      GO TO 780\r\n  940 PORIG  = I\r\n      GO TO 780\r\nC\r\nC     SHAPE\r\nC\r\n  960 IF (PEDGE .NE. 0) GO TO 1170\r\n      IF ((.NOT.(DISP .OR. STRESS) .AND. DTYPE .NE. 0)) GO TO 1170\r\n      IF (.NOT.DISP) GO TO 780\r\n      PSHAPE = 2\r\n      DO 970 I = 1,NDEF\r\n      IF (DEFLST(I) .EQ. 0) GO TO 980\r\n  970 CONTINUE\r\n      GO TO 780\r\n  980 PSHAPE = 3\r\n      GO TO 780\r\nC\r\nC     SYMBOL I,I\r\nC\r\n  990 PSYMBL(1) = 1\r\n      IF (MODE .NE. 0) GO TO 1170\r\n      ASSIGN 1010 TO TRA\r\n      I = 0\r\n 1000 I = I + 1\r\n      GO TO 1440\r\n 1010 PSYMBL(I) = IWRD\r\n      IF (I-2) 1000,780,780\r\nC\r\nC     SYMMETRY B / ANTISYMMETRY B\r\nC\r\n 1020 N = 1\r\n      IF (KEYWD .EQ. 10) N = -1\r\n      IF (MODE  .LE.  0) GO TO 1170\r\n      CALL RDWORD (MODE,WORD)\r\n      CALL INTVEC (WORD)\r\n      IF (WORD.LT.1 .OR. WORD.GT.7) GO TO 1170\r\n      DO 1050 I = 1,3\r\n      PSYMM(I) = 1\r\n      IF (ANDF(WORD,2**(I-1)) .NE. 0) PSYMM(I) = -1\r\n      PSYMM(I+3) = N*PSYMM(I)\r\n 1050 CONTINUE\r\n      GO TO 780\r\nC\r\nC     VECTOR B\r\nC\r\n 1060 IF (.NOT.DISP .OR. MODE .EQ. 0) GO TO 1170\r\n      CALL RDWORD (MODE,WORD)\r\n      PVECTR = WORD\r\n      GO TO 780\r\nC\r\nC     SET -  SAVE FIRST ENCOUNTERED, DO PLOT WHEN EOR OR ANOTHER SET\r\nC\r\n 1080 IF (MODE .NE. 0) GO TO 1170\r\n      ASSIGN 1090 TO TRA\r\n      GO TO 1440\r\n 1090 IWRD = IABS(IWRD)\r\n      DO 1100 I = SETD,NSETS\r\n      IF (IWRD .EQ. SETID(I)) GO TO 1120\r\n 1100 CONTINUE\r\n      IF (STEREO .NE. 0) GO TO 1110\r\n      WRITE  (NOUT,1105) UFM,IWRD\r\n 1105 FORMAT (A23,' 700, SET',I9,' REQUESTED ON PLOT CARD HAS NOT BEEN',\r\n     1       ' DEFINED.')\r\n      NOGO = 1\r\n 1110 IWRD = SETD\r\n      GO TO 1130\r\n 1120 IWRD = I\r\n 1130 IF (PSET .NE. 0) GO TO 1180\r\n      PSET = IWRD\r\n      GO TO 780\r\nC\r\nC     OUTLINE\r\nC\r\n 1140 IF (PSHAPE .NE. 1) GO TO 1170\r\n      IF (PCON   .EQ. 0) GO TO 780\r\n      PEDGE = 1\r\n      GO TO 1149\r\nC\r\nC     SHRINK\r\nC\r\n 1142 IF (PEDGE .NE. 2) PEDGE = 75\r\n      IF (PEDGE .EQ. 2) PEDGE = 75 + 200\r\nC                           SHRINK + HIDDEN\r\nC\r\n      IF (MODE .GT. 0) GO TO 780\r\n      CALL RDMODE (*1144,*1143,*1180,MODE,WORD)\r\n 1143 CALL RDWORD (MODE,WORD)\r\n      GO TO 1149\r\n 1144 IF (MODE.EQ.-2 .AND. FWRD.GT.0.0 .AND. FWRD.LE.1.0) GO TO 1147\r\n      WRITE  (NOUT,1145) UWM\r\n 1145 FORMAT (A25,', INPUT VALUE ERROR FOR SHRINK.  0.85 IS SUBSTITUED')\r\n      IF (MODE .EQ. -1) WRITE (NOUT,1146) IWRD\r\n 1146 FORMAT (5X,'FOR INTEGER VALUE',I5)\r\n      FWRD = 0.85\r\n 1147 J = FWRD*100\r\n      IF (J .LT.  10) J =  10\r\n      IF (J .GT. 100) J = 100\r\n      IF (PEDGE .NE. 2) PEDGE = J\r\n      IF (PEDGE .EQ. 2) PEDGE = J + 200\r\nC                          SHRINK + HIDDEN\r\nC\r\n      GO TO 1149\r\nC\r\nC     HIDDEN\r\nC\r\n 1148 IF (PEDGE .LT. 10) PEDGE = 2\r\n      IF (PEDGE.GE.10 .AND. PEDGE.LE.100) PEDGE = 200 + PEDGE\r\nC                                              HIDDEN + SHRINK\r\n 1149 IF (.NOT.DISP) GO TO 780\r\n      DO 1150 I = 1,NDEF\r\n      IF (DEFLST(I) .EQ. 0) GO TO 1155\r\n 1150 CONTINUE\r\n      PSHAPE = 2\r\n      GO TO 780\r\n 1155 PSHAPE = 3\r\n      GO TO 780\r\nC\r\nC     OFFSET n\r\nC     TURN OFFSET PLOT ON  IF n IS .GE. 0. +n IS MAGNIFYING FACTOR\r\nC     TURN OFFSET PLOT OFF IF n IS .LT. 0\r\nC\r\nC\r\n 1160 IF (MODE .NE. 0) GO TO 1170\r\n      ASSIGN 1165 TO TRA\r\n      GO TO 1440\r\n 1165 OFFSCL = IWRD\r\n      IF (OFFSCL .GE. 0) PEDGE = 3\r\n      GO TO 780\r\nC\r\nC     UNRECOGNIZABLE OPTION ON THE -PLOT- CARD.\r\nC\r\n 1170 IF (STEREO .NE. 0) GO TO 780\r\n      ERR(1) = 2\r\n      ERR(2) = AWRD(1)\r\n      ERR(3) = AWRD(2)\r\n      CALL WRTPRT (MERR,ERR,MSG1,NMSG1)\r\n      GO TO 780\r\nC\r\nC     NOFIND\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS  11/1990\r\nC     THE 'NOFIND' FEATURE IN NASTRAN PLOTTING COMMANDS IS REALLY NOT\r\nC     NEEDED. IT ONLY LIMITS TO PREVIOUS PLOT CASE. THE FOLLOWING TWO\r\nC     EXAMPLES GIVE EXACTLY THE SAME RESULT IN $ PLOT 2\r\nC\r\nC     $ PLOT 1                           $ PLOT 1\r\nC     FIND SCALE, ORIGIN 100, SET 2      FIND SCALE, ORIGIN 100, SET 2\r\nC     PLOT ORIGIN 100                    PLOT ORIGIN 100\r\nC     $ PLOT 2                           $ PLOT 2\r\nC     PLOT ORIGIN 100                    PLOT NOFIND\r\nC       :\r\nC     (NOTE - ORIGIN 100 IS STILL AVAILABLE\r\nC      IN ANY FOLLOWING PLOT)\r\nC     $ PLOT N\r\nC     PLOT ORIGIN 100\r\nC\r\n 1175 NOFIND = +1\r\n      IF (LORIG .EQ. 0) GO TO 1530\r\n      PORIG  = LORIG\r\n      GO TO 780\r\nC\r\nC\r\n 1180 IF (NOFIND .GE. 0) GO TO 1185\r\n      IF (FSCALE.NE.0 .OR. FOR.NE.0) GO TO 1182\r\n      IF (PRJECT.EQ.1 .OR. FVP.EQ.0) GO TO 1185\r\n 1182 FORG  = 1\r\n      FSCALE= 1\r\n      ISETD = SETD\r\n      SETD  = MAX0(SETD,PSET)\r\n      MODEX = MODE\r\n      MODE  = -1\r\n      ORG   = MAX0(1,ORG)\r\n      CALL FIND (MODE,BUF1,B1,SETID,DEFLST)\r\n      NOFIND= +1\r\n      SETD  = ISETD\r\n      MODE  = MODEX\r\nC\r\nC     PLOT THIS SET\r\nC\r\n 1185 IF (.NOT.DISP) GO TO 1210\r\n      IF (PVECTR.NE.0 .OR. PSHAPE.NE.1 .OR. PEDGE.NE.0) GO TO 1210\r\n      IF (PCON.NE.0 .AND. ICNTVL.GT. 9) GO TO 1210\r\n      IF (PCON.NE.0 .AND. ICNTVL.GT.13) GO TO 1210\r\nC\r\nC     CREATE A DEFAULT OF SHAPE OR SHAPE + UNDERLAY\r\nC\r\n      DO 1190 I = 1,NDEF\r\n      IF (DEFLST(I) .EQ. 0) GO TO 1200\r\n 1190 CONTINUE\r\n      PSHAPE = 2\r\n      GO TO 1210\r\n 1200 PSHAPE = 3\r\n 1210 PSET = MAX0(PSET,SETD)\r\nC\r\nC     DEFAULT OF FIRST DEFINED SET WILL BE USED\r\nC\r\n      CALL GOPEN  (GPSET,DEFLST(B1),INPREW)\r\n      CALL SKPREC (GPSET,PSET)\r\n      CALL FREAD  (GPSET,NGPSET,1,0)\r\nC\r\nC     TEST FOR CORE NEEDED FOR BOTH UNDEF, DEFOR PLOTS, GRID INDEX\r\nC\r\n      I1 = N2 + NGP + 1\r\nC\r\nC     UNDEFORMED COORDINATES\r\nC\r\n      I2 = I1 + 3*NGPSET\r\nC\r\nC     DEFORMATION VALUES\r\nC\r\n      I3 = I2 + 3*NGPSET\r\nC\r\nC     REDUCE CORE FOR UNDEFORMED PLOTS\r\nC\r\n      IF (DISP) GO TO 1230\r\n      I3 = I2\r\n      N  = 0\r\n      GO TO 1240\r\nC\r\nC     DEFORMED PLOTS NEED X-Y LOCATIONS OF RESULTANT DEFLECTIONS ON\r\nC     FRAME\r\nC\r\n 1230 N = 2*NGPSET\r\nC\r\n 1240 IF (I3+N-1 .GE. DEFBUF) GO TO 1400\r\n      IUSED = MAX0(I3+N-1,IUSED+NGP)\r\nC\r\n      CALL FREAD (GPSET,DEFLST(N2+1),NGP,0)\r\n      CALL CLOSE (GPSET,REW)\r\n      CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,0)\r\nC\r\n      CALL GOPEN (ELSET,DEFLST(B1),INPREW)\r\n      IF (PSET .EQ. 1) GO TO 1280\r\n      CALL SKPREC (ELSET,PSET-1)\r\nC\r\n 1280 IF (.NOT.STRESS) GO TO 1290\r\n      IF (ICNTVL.LT.4 .OR. DIRECT.NE.2) GO TO 1290\r\n      I = B1 + BUFSIZ\r\n      CALL CLOSE (PARM,NOREW)\r\n      CALL GOPEN (OES1,DEFLST(I),NOREW)\r\nC\r\n      CALL ROTAT (ELSET,BUF1-N2,DEFLST(N2+1),DEFLST(I1))\r\nC\r\n      CALL CLOSE (OES1,NOREW)\r\n      CALL GOPEN (PARM,DEFLST(I),NOREW)\r\nC\r\n 1290 IF (.NOT.DISP) GO TO 1320\r\nC\r\nC     CONVERSION FOR ACCEL OR VELOCITY\r\nC\r\n      CONV = 1.0\r\n      IF (PLTTYP .EQ. 1) GO TO 1310\r\n      IF (PLTTYP.EQ.3 .OR. PLTTYP.EQ.4) GO TO 1300\r\nC\r\nC     VELOCITY\r\nC\r\n      CONV = VALUE*TWOPI\r\n      GO TO 1310\r\nC\r\nC     ACCEL\r\nC\r\n 1300 CONV = (VALUE*TWOPI)**2\r\n 1310 I = 3*BUFSIZ + B1\r\n      PH1 = PH * TWOPI/360.0\r\n      CALL GETDEF (MDEF,PH1,MAG,CONV,PLTTYP,DEFLST(I),DEFLST(N2+1),\r\n     1             DEFLST(I2))\r\nC                  FILE PH  MAG   W   RESP   BUF(1)     GPLST\r\nC                  DEFLECTION\r\nC\r\nC     PRINT THE MAXIMUM FOUND ON THE PLOT FILE\r\nC\r\n      IF (MODE.GE.EOR .AND. ICOLOR.EQ.0) CALL HEAD (0,0,-1,DEFMAX)\r\n      ASSIGN 1320 TO INCOM\r\n      IF (MAXDEF .NE. 0.0) DEFMAX = MAXDEF\r\n      IF (DEFMAX.EQ.0.0 .OR. SCALE(4).EQ.0.0) GO TO 1420\r\nC\r\nC                GPLST       ,X         ,U         ,S         ,\r\n 1320 CALL DRAW (DEFLST(N2+1),DEFLST(I1),DEFLST(I2),DEFLST(I3),\r\n     1           DISP,STEREO,DEFBUF-(I3+N),BUF1-N2)\r\nC\r\nC     NOTE - THE NEXT TO LAST ARGUMENT, DEFBUF-(I3+N), IS THE SIZE OF\r\nC            AVAILABLE OPEN CORE. IT IS NOT A POINTER, AND IT IS NOT AN\r\nC            OPEN CORE ARRAY\r\nC\r\nC     OPEN CORE /ZZPLOT/\r\nC     SETID NSETS NDOF      NGP 3*NGPSET 3*NGPSET SCRATCH  N\r\nC     -----+-----+----+----+---+--------+--------+-------+--+--+-+-+-+-+\r\nC          !          N1   N2  I1 (X)   I2 (U)   I3 (S)   DEFBUF ..BUF..\r\nC          !(DEFLST)         /\r\nC                       (GPLST)                      N=2*NGPSET\r\nC\r\n      CALL CLOSE (ELSET,REW)\r\n      IF (MODE .GE. EOR) GO TO 1360\r\n      IF (.NOT.DISP) GO TO 1350\r\n      CALL BCKREC (MDEF)\r\n 1350 PSET = IWRD\r\n      IF (.NOT.STRESS) GO TO 760\r\nC\r\nC     POSITION OES1\r\nC\r\n      I = 1\r\n      ASSIGN 1360 TO INCOM\r\n      CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,I)\r\n      IF (I .EQ. 1) GO TO 760\r\n      GO TO 1420\r\nC\r\nC     END OF A DEFORMATION\r\nC\r\n 1360 CALL STPLOT (-1)\r\n      IF (PRJECT.NE.3 .OR. STEREO.NE.0) GO TO 1380\r\n      STEREO = 1\r\n      CALL SOPEN (*1430,PLTTAP,DEFLST(PLTBUF),PBUFSZ)\r\n      J = BFRMS\r\n      BFRMS = 2\r\n      CALL STPLOT (PLTNUM)\r\n      BFRMS  = J\r\n      PLTNUM = PLTNUM + 1\r\n      IF (.NOT.DISP) GO TO 1370\r\n      CALL BCKREC (MDEF)\r\n 1370 IF (.NOT.STRESS) GO TO 750\r\nC\r\nC     POSITION OES1\r\nC\r\n      I = 1\r\n      ASSIGN 1360 TO INCOM\r\n      CALL FNDSET (DEFLST(N2+1),DEFLST(I1),BUF1-N2,I)\r\n      IF (I .NE. 1) GO TO 1420\r\n      GO TO 750\r\n 1380 IF (DISP .OR. STRESS) GO TO 500\r\nC\r\nC     END OF THIS PLOT CARD.\r\nC\r\n 1385 IF (STRESS) CALL CLOSE (OES1,REW)\r\n 1390 IF (DISP  ) CALL CLOSE (MDEF,REW)\r\n      GO TO 1430\r\nC\r\nC     INSUFFICIENT CORE TO START PROCESSING\r\nC\r\n 1400 CALL MESAGE (-8,DEFBUF,NAME)\r\nC\r\n 1410 CONTINUE\r\n      GO TO 1385\r\nC\r\nC     INCOMPLETE PLOT RESULTED\r\nC\r\n 1420 ERR(1) = 0\r\n      CALL WRTPRT (MERR,ERR,MSG7,NMSG7)\r\n      GO TO INCOM, (1360,1320)\r\nC\r\nC     FINISHING ONE PLOT\r\nC     ECHO OUT WHICH ORIGIN WAS USED\r\nC\r\n 1430 IF (NOGO  .NE. 0) CALL MESAGE (-61,0,0)\r\n      IF (PORIG .EQ. 0) GO TO 1550\r\n      ERR(1) = 1\r\n      ERR(2) = ORIGIN(PORIG)\r\n      CALL WRTPRT (MERR,ERR,USED,10)\r\n      CALL WRITE (MERR,0,0,1)\r\n      LORIG = PORIG\r\n      PORIG = 0\r\n      GO TO 1550\r\nC\r\nC     READ AN INTEGER VALUE FROM THE -PLOT- CARD\r\nC\r\n 1440 CALL RDMODE (*1450,*790,*1180,MODE,WORD)\r\n 1450 IF (MODE .EQ. -1) GO TO 1470\r\n      IF (MODE .EQ. -4) GO TO 1460\r\n      IWRD = FWRD\r\n      GO TO 1470\r\n 1460 IWRD = DWRD\r\n 1470 GO TO TRA, (130,150,820,920,1010,1090,1165)\r\nC\r\nC     READ A REAL VALUE FROM THE -PLOT- CARD\r\nC\r\n 1480 CALL RDMODE (*1490,*790,*1180,MODE,WORD)\r\n 1490 IF (MODE .EQ. -4) GO TO 1500\r\n      IF (MODE .EQ. -1) FWRD = IWRD\r\n      GO TO 1510\r\n 1500 FWRD = DWRD\r\n 1510 GO TO TRA, (250,260,900,300)\r\nC\r\n 1520 WRITE  (NOUT,1525) UFM,PLTTAP\r\n 1525 FORMAT (A23,' 702, PLOT FILE ',A4,' DOES NOT EXIST.')\r\n      NOGO = 1\r\n      GO TO 1390\r\n 1530 WRITE  (NOUT,1535) UWM,LORIG\r\n 1535 FORMAT (A25,' 704, NO PREVIOUS PLOT TO INITIATE NOFIND OPERATION')\r\nC\r\n 1550 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pltmrg.f",
    "content": "      SUBROUTINE PLTMRG\r\nC\r\nC     MODULE PLTMRG WRITES GINO DATA BLOCKS WHICH ARE USED AS INPUT TO\r\nC     THE PLOT MODULE FOR PLOTTING A SUBSTRUCTURE.\r\nC\r\nC     APRIL 1974\r\nC\r\n      LOGICAL IDENT\r\n      INTEGER BUF      ,SYSBUF   ,Z(3)     ,CASESS   ,PCDB    ,\r\n     1        PLTP     ,GPS      ,ELS      ,BGP      ,CASEP   ,\r\n     2        EQEX     ,SCR1     ,SRD      ,PLTS     ,FILE    ,\r\n     3        EQSS     ,SUBR(2)  ,CASECC(2),BUF1     ,ELID    ,\r\n     4        BUF2     ,BUF3     ,BUF4     ,BUF5     ,RC      ,\r\n     5        BAR      ,QUAD4    ,TRIA3    ,OFFSET\r\n      REAL    RZ\r\n      COMMON /BLANK /   NAME(2)  ,NGPTOT   ,LSIL     ,NPSET   ,\r\n     1                  NM(2)    ,BUF(7)\r\n      COMMON /SYSTEM/   SYSBUF\r\n      COMMON /NAMES /   RD       ,RDREW    ,WRT      ,WRTREW  ,\r\n     1                  REW      ,NOREW\r\n      COMMON /ZZZZZZ/   RZ(1)\r\n      EQUIVALENCE       (Z(1),RZ(1))\r\n      DATA    PLTS  ,   EQSS     ,SUBR               ,CASECC          /\r\n     1        4HPLTS,   4HEQSS   ,4HPLTM   ,4HRG     ,4HCASE   ,4HCC  /\r\n      DATA    CASESS,   PCDB     ,PLTP     ,GPS      ,ELS      /\r\n     1        101   ,   102      ,201      ,202      ,203      /,\r\n     2        BGP   ,   CASEP    ,EQEX     ,SCR1     ,SRD      /\r\n     3        204   ,   205      ,206      ,301      ,1        /,\r\n     4        BAR   ,   QUAD4    ,TRIA3                        /\r\n     5        2HBR  ,   2HQ4     ,2HT3                         /\r\nC\r\nC     INITIALIZE\r\nC\r\n      NCORE = KORSZ(Z)\r\n      BUF1  = NCORE- SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      NCORE = BUF5 - 1\r\n      NGPTOT= 0\r\n      LSIL  = 0\r\n      NPSET =-1\r\n      IF (NCORE .LE. 0) GO TO 9008\r\n      CALL SOFOPN (Z(BUF3),Z(BUF4),Z(BUF5))\r\nC\r\nC     STRIP SUBSTRUCTURE RECORDS FROM CASESS AND WRITE CASEP (CASECC)\r\nC\r\n      FILE = CASESS\r\n      CALL OPEN (*9001,CASESS,Z(BUF1),RDREW)\r\n      FILE = CASEP\r\n      CALL OPEN  (*9001,CASEP,Z(BUF2),WRTREW)\r\n      CALL FNAME (CASEP,BUF)\r\n      CALL WRITE (CASEP,BUF,2,1)\r\n      FILE = CASESS\r\n   10 CALL READ (*9002,*9003,CASESS,Z,2,1,NWDS)\r\n      IF (Z(1).NE.CASECC(1) .OR. Z(2).NE.CASECC(2)) GO TO 10\r\n   20 CALL READ (*40,*30,CASESS,Z,NCORE,1,NWDS)\r\n      GO TO 9008\r\n   30 CALL WRITE (CASEP,Z,NWDS,1)\r\n      GO TO 20\r\n   40 CALL CLSTAB (CASEP,REW)\r\n      CALL CLOSE  (CASESS,REW)\r\nC\r\nC     BASIC GRID POINT DATA\r\nC\r\n      NM(1) = NAME(1)\r\n      NM(2) = NAME(2)\r\n      ITEM  = PLTS\r\n      CALL SFETCH (NAME,PLTS,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\nC\r\nC     READ SUBSTRUCTURE NAMES AND TRANSFORMATION DATA INTO OPEN CORE.\r\nC\r\n      CALL SUREAD (Z,3,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n      NSS = Z(3)\r\n      IF (14*NSS .GT. NCORE) GO TO 9008\r\n      CALL SUREAD (Z,14*NSS,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n      ICORE = 14*NSS + 1\r\nC\r\nC     READ THE BASIC GRID POINT DATA FROM THE PLTS ITEM OF EACH BASIC\r\nC     SUBSTRUCTURE COMPRISING THE PSEUDOSTRUCTURE TO BE PLOTTED.\r\nC     TRANSFORM THE COORDINATES TO THE BASIC COORDINATE SYSTEM OF THE\r\nC     PSEUDOSTRUCTURE AND WRITE THEM ON BGP (BGPDT).\r\nC\r\n      FILE = BGP\r\n      CALL OPEN (*9001,BGP,Z(BUF1),WRTREW)\r\n      CALL FNAME (BGP,BUF)\r\n      CALL WRITE (BGP,BUF,2,1)\r\n      J = 1\r\n  120 NM(1) = Z(J  )\r\n      NM(2) = Z(J+1)\r\n      NGP = 0\r\n      CALL SFETCH (NM,PLTS,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 130\r\n      CALL SMSG (RC-2,PLTS,NM)\r\n      GO TO 170\r\n  130 I = 1\r\n      CALL SJUMP (I)\r\n      IDENT = .FALSE.\r\n      DO 140 I = 1,3\r\n      IF (Z(J+I+1) .NE. 0) GO TO 150\r\n      IF (Z(J+I+5) .NE. 0) GO TO 150\r\n      IF (Z(J+I+9) .NE. 0) GO TO 150\r\n      IF (ABS(RZ(J+4*I+1)-1.0) .GT. 1.0E-4) GO TO 150\r\n  140 CONTINUE\r\n      IDENT = .TRUE.\r\n  150 CALL SUREAD (BUF,4,NWDS,RC)\r\n      IF (RC .EQ. 2) GO TO 170\r\n      NGP = NGP + 1\r\n      IF (IDENT .OR. BUF(1).LT.0) GO TO 160\r\n      BUF(5) = Z(J+2)\r\n      BUF(6) = Z(J+3)\r\n      BUF(7) = Z(J+4)\r\n      CALL GMMATS (Z(J+5),3,3,-2,BUF(2),3,1,0,BUF(5))\r\n      CALL WRITE (BGP,BUF,1,0)\r\n      CALL WRITE (BGP,BUF(5),3,0)\r\n      GO TO 150\r\n  160 CALL WRITE (BGP,BUF,4,0)\r\n      GO TO 150\r\n  170 NGPTOT = NGPTOT+NGP\r\n      Z(J+2) = NGP\r\n      J = J + 14\r\n      IF (J .LT. ICORE) GO TO 120\r\n      CALL WRITE (BGP,0,0,1)\r\n      CALL CLOSE (BGP,REW)\r\n      BUF(1) = BGP\r\n      BUF(2) = NGPTOT\r\n      DO 180 I = 3,7\r\n  180 BUF(I) = 0\r\n      CALL WRTTRL (BUF)\r\nC\r\nC     ALLOCATE 5 WORDS PER COMPONENT BASIC SUBSTRUCTURE AT THE TOP OF\r\nC     OPEN CORE.  THIS ARRAY IS HEREINAFTER REFERRED TO AS *SDATA*\r\nC\r\nC     SAVE THE BASIC SUBSTRUCTURE NAMES AND THE NUMBER OF STRUCTURAL\r\nC     GRID POINTS IN EACH IN SDATA.  DO NOT SAVE SUBSTRUCTURES FOR\r\nC     WHICH NO PLTS ITEM WAS FOUND.\r\nC\r\n      J = 1\r\n      DO 190 I = 1,NSS\r\n      IF (Z(14*I-11) .EQ. 0) GO TO 190\r\n      Z(J  ) = Z(14*I-13)\r\n      Z(J+1) = Z(14*I-12)\r\n      Z(J+2) = Z(14*I-11)\r\n      J = J + 5\r\n  190 CONTINUE\r\n      IF (J .LE. 1) GO TO 9200\r\n      NSS = J/5\r\n      ISX = NSS*5\r\n      ICORE = J\r\n      LCORE = NCORE - J + 1\r\nC\r\nC     COMPUTE EQEX (EQEXIN)\r\nC\r\nC\r\nC     READ THE EQEXIN DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE\r\nC     USE THREE WORDS IN OPEN CORE FOR EACH GRID POINT   (1) EXTERNAL\r\nC     ID, (2) INTERNAL ID, (3) SUBSTRUCTURE SEQUENCE NUMBER IN SDATA.\r\nC     INCREMENT THE INTERNAL IDS BY THE NUMBER OF GRID POINTS ON THE\r\nC     PRECEDING SUBSTRUCTURES.\r\nC\r\n      K   = ICORE\r\n      NGP = 0\r\n      DO 210 I = 1,NSS\r\n      NM(1) = Z(5*I-4)\r\n      NM(2) = Z(5*I-3)\r\n      CALL SFETCH (NM,PLTS,SRD,RC)\r\n      N = 2\r\n      CALL SJUMP (N)\r\n      RC = 3\r\n      IF (N .LT. 0) GO TO 6106\r\n      N = Z(5*I-2)\r\n      DO 200 J = 1,N\r\n      CALL SUREAD (Z(K),2,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n      Z(K+1) = Z(K+1) + NGP\r\n      Z(K+2) = I\r\n      K = K + 3\r\n      IF (K+2 .GT. NCORE) GO TO 9008\r\n  200 CONTINUE\r\n      NGP = NGP + N\r\n  210 CONTINUE\r\nC\r\nC     SORT ON EXTERNAL IDS AND WRITE RECORD 1 OF EQEX.\r\nC\r\n      CALL SORT (0,0,3,1,Z(ICORE),3*NGP)\r\n      FILE = EQEX\r\n      CALL OPEN (*9001,EQEX,Z(BUF1),WRTREW)\r\n      CALL FNAME (EQEX,BUF)\r\n      CALL WRITE (EQEX,BUF,2,1)\r\n      DO 220 I = 1,NGP\r\n  220 CALL WRITE (EQEX,Z(ICORE+3*I-3),2,0)\r\n      CALL WRITE (EQEX,0,0,1)\r\nC\r\nC     SAVE THE TABLE IN OPEN CORE ON SCR1 TO USE IN COMPUTING RECORD 2\r\nC     OF EQEX\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN  (*9001,SCR1,Z(BUF2),WRTREW)\r\n      CALL WRITE (SCR1,Z(ICORE),3*NGP,1)\r\n      CALL CLOSE (SCR1,REW)\r\n      CALL OPEN  (*9001,SCR1,Z(BUF2),RDREW)\r\nC\r\nC     READ GROUP 0 OF THE EQSS ITEM OF THE SUBSTRUCTURE TO BE PLOTTED\r\nC     INTO OPEN CORE AT ICORE.  READ THE EXTERNAL AND INTERNAL IDS FOR\r\nC     EACH CONTRIBUTING BASIC SUBSTRUCTURE INTO OPEN CORE FOLLOWING\r\nC     GROUP 0.  SAVE THE CORE POINTERS FOR EACH GROUP IN SDATA.\r\nC\r\n      NM(1) = NAME(1)\r\n      NM(2) = NAME(2)\r\n      ITEM  = EQSS\r\n      CALL SFETCH (NAME,EQSS,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      K   = ICORE + NWDS\r\n      N   = Z(ICORE+2)\r\n      ISS = 1\r\n      DO 250 I = 1,N\r\n      IF (ISS .GT. ISX) GO TO 240\r\n      IF (Z(ICORE+2*I+2).NE.Z(ISS) .OR. Z(ICORE+2*I+3).NE.Z(ISS+1))\r\n     1    GO TO 240\r\n      Z(ISS+3) = K\r\n  230 IF (K+2 .GT. NCORE) GO TO 9008\r\n      CALL SUREAD (Z(K),3,NWDS,RC)\r\n      K = K + 2\r\n      IF (RC .EQ. 1) GO TO 230\r\n      Z(ISS+4) = (K-Z(ISS+3))/2\r\n      ISS = ISS + 5\r\n      GO TO 250\r\n  240 J = 1\r\n      CALL SJUMP (J)\r\n  250 CONTINUE\r\nC\r\nC     READ SIL NUMBERS INTO OPEN CORE.\r\nC\r\n      KSIL = K - 1\r\n      N = Z(ICORE+3)\r\n      IF (KSIL+N+1 .GT. NCORE) GO TO 9008\r\n      DO 260 I = 1,N\r\n      CALL SUREAD (Z(KSIL+I),2,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n  260 CONTINUE\r\n      LSIL = Z(KSIL+N)\r\nC\r\nC     READ THE TABLE OF EXTERNAL ID (GP), INTERNAL ID (IP), AND SUB-\r\nC     STRUCTURE NUMBER (SSN) FROM SCR1 ONE ENTRY AT A TIME.  LOCATE\r\nC     THE GP IN THE EQSS DATA INDICATED BY SSN AND LOOK UP THE SIL\r\nC     NUMBER.  WRITE GP AND SIL ON EQEX.  IF GP NOT FOUND, THEN SIL=-1.\r\nC\r\n  270 CALL READ (*9002,*290,SCR1,BUF,3,0,N)\r\n      I  = BUF(3)\r\n      J  = Z(5*I-1)\r\n      I5 = 5*I\r\n      CALL BISLOC (*280,BUF(1),Z(J),2,Z(I5),K)\r\n      I = Z(J+K) + KSIL\r\n      BUF(2) = 10*Z(I) + 1\r\n      CALL WRITE (EQEX,BUF,2,0)\r\n      GO TO 270\r\n  280 BUF(2) = -1\r\n      CALL WRITE (EQEX,BUF,2,0)\r\n      GO TO 270\r\n  290 CALL WRITE (EQEX,0,0,1)\r\n      CALL CLOSE (EQEX,REW)\r\n      CALL CLOSE (SCR1,REW)\r\n      BUF(1) = EQEX\r\n      BUF(2) = NGPTOT\r\n      DO 300 I = 3,7\r\n  300 BUF(I) = 0\r\n      CALL WRTTRL (BUF)\r\nC\r\nC     INTERPRET PLOT SETS AND GENERATE PLTP (PLTPAR)\r\nC\r\nC\r\nC     AT PRESENT, ONLY ONE PLOT SET (DEFINED IN PHASE 1) IS ALLOWED.\r\nC\r\nC     PHASE 2 PLOT SET DEFINITIONS ARE IGNORED.\r\nC\r\nC     COPY PCDB TO PLTP\r\nC\r\n      FILE = PCDB\r\n      CALL OPEN (*9001,PCDB,Z(BUF1),RDREW)\r\n      CALL FWDREC (*9002,PCDB)\r\n      FILE = PLTP\r\n      CALL OPEN  (*9001,PLTP,Z(BUF2),WRTREW)\r\n      CALL FNAME (PLTP,BUF)\r\n      CALL WRITE (PLTP,BUF,2,1)\r\n  310 CALL READ  (*330,*320,PCDB,Z(ICORE),LCORE,1,NWDS)\r\n      GO TO 9008\r\n  320 CALL WRITE (PLTP,Z(ICORE),NWDS,1)\r\n      GO TO 310\r\n  330 CALL CLOSE (PCDB,REW)\r\n      CALL CLOSE (PLTP,REW)\r\n      BUF(1) = PCDB\r\n      CALL RDTRL (BUF)\r\n      BUF(1) = PLTP\r\n      CALL WRTTRL (BUF)\r\n      DO 340 I = 1,NSS\r\n      Z(5*I-1) = 0\r\n      Z(5*I  ) = 1\r\n  340 CONTINUE\r\n      NPSET = 1\r\nC\r\nC     GPSETS\r\nC\r\nC\r\nC     LOCATE THE GPSETS DATA OF THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE\r\nC     AND READ THE NUMBER OF GRID POINTS IN THE ELEMENT SET.  STORE THIS\r\nC     AS THE FOURTH ENTRY IN SDATA\r\nC\r\n      N = 3\r\n      NGPSET = 0\r\n      ITEM   = PLTS\r\n      DO 1010 I = 1,NSS\r\n      NM(1) = Z(5*I-4)\r\n      NM(2) = Z(5*I-3)\r\n      CALL SFETCH (NM,PLTS,SRD,RC)\r\n      CALL SJUMP (N)\r\n      RC = 3\r\n      IF (N .LT. 0) GO TO 6106\r\n      CALL SUREAD (Z(5*I-1),1,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n      NGPSET = NGPSET + Z(5*I-1)\r\n 1010 CONTINUE\r\nC\r\nC     WRITE RECORDS 0 AND 1 OF GPS AND FIRST WORD OF RECORD 2.\r\nC\r\n      FILE = GPS\r\n      CALL OPEN  (*9001,GPS,Z(BUF1),WRTREW)\r\n      CALL FNAME (GPS,BUF)\r\n      CALL WRITE (GPS,BUF,2,1)\r\n      CALL WRITE (GPS,1,1,1)\r\n      CALL WRITE (GPS,NGPSET,1,0)\r\nC\r\nC     READ GPSETS DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE.\r\nC     INCREMENT THE ABSOLUTE VALUE OF THE POINTERS IN IT BY THE NUMBER\r\nC     OF GRID POINTS IN THE ELEMENT SETS OF THE PRECEDING BASIC\r\nC     SUBSTRUCTURES.  WRITE THE RESULT ON GPS (GPSETS).\r\nC\r\n      N = 3\r\n      NGPSET = 0\r\n      DO 1050 I = 1,NSS\r\n      CALL SFETCH (Z(5*I-4),PLTS,SRD,RC)\r\n      CALL SJUMP (N)\r\n      CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      NWDS = NWDS - 1\r\n      DO 1040 J = 1,NWDS\r\n      IF (Z(ICORE+J)) 1020,1040,1030\r\n 1020 Z(ICORE+J) = Z(ICORE+J) - NGPSET\r\n      GO TO 1040\r\n 1030 Z(ICORE+J) = Z(ICORE+J) + NGPSET\r\n 1040 CONTINUE\r\n      CALL WRITE (GPS,Z(ICORE+1),NWDS,0)\r\n      NGPSET = NGPSET + Z(5*I-1)\r\n 1050 CONTINUE\r\n      CALL CLSTAB (GPS,REW)\r\nC\r\nC     ELSETS\r\nC\r\nC\r\nC     READ THE ELSETS DATA FROM THE PLTS ITEM OF EACH BASIC SUBSTRUCTURE\r\nC     INCREMENT ALL NON-ZERO GRID POINT CONNECTION INDICES BY THE NUMBER\r\nC     OF STRUCTURAL GRID POINTS OF THE PRECEDING SUBSTRUCTURES.  WRITE\r\nC     THE RESULT ON ELS (ELSETS).\r\nC\r\nC     NOTE   THE ELEMENT TYPES WILL BE SCRAMBLED.  LIKE ELEMENT TYPES\r\nC            FROM THE CONTRIBUTING BASIC SUBSTRUCTURES WILL NOT BE\r\nC            GROUPED TOGETHER.\r\nC\r\nC     NOTE   THE BAR HAS ADDITIONALLY 6 OFFSET DATA VALUES. QUAD4 AND\r\nC            TRIA3 HAS 1 OFFSET DATA EACH\r\nC\r\n      FILE = ELS\r\n      CALL OPEN  (*9001,ELS,Z(BUF1),WRTREW)\r\n      CALL FNAME (ELS,BUF)\r\n      CALL WRITE (ELS,BUF,2,1)\r\n      NGP = 0\r\nC\r\nC     LOOP OVER BASIC SUBSTRUCTURES\r\nC\r\n      DO 2050 I = 1,NSS\r\n      NM(1) = Z(5*I-4)\r\n      NM(2) = Z(5*I-3)\r\n      CALL SFETCH (NM,PLTS,SRD,RC)\r\n      N  = 4\r\n      CALL SJUMP (N)\r\n      RC = 3\r\n      IF (N .LT. 0) GO TO 6106\r\nC\r\nC     LOOP OVER ELEMENT TYPES\r\nC\r\n 2010 CALL SUREAD (BUF,2,N,RC)\r\n      IF (RC .EQ. 2) GO TO 2040\r\n      IF (RC .NE. 1) GO TO 6106\r\n      CALL WRITE (ELS,BUF,2,0)\r\n      NGPEL  = BUF(2)\r\n      OFFSET = 0\r\n      IF (BUF(1) .EQ. BAR) OFFSET = 6\r\n      IF (BUF(1).EQ.QUAD4 .OR. BUF(1).EQ.TRIA3) OFFSET = 1\r\nC\r\nC     LOOP OVER ELEMENTS\r\nC\r\n 2020 CALL SUREAD (ELID,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\n      CALL WRITE (ELS,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 2010\r\n      CALL SUREAD (INDX,1,N,RC)\r\n      CALL WRITE (ELS,INDX,1,0)\r\n      CALL SUREAD (Z(ICORE),NGPEL+OFFSET,N,RC)\r\n      IF (RC .NE. 1) GO TO 6106\r\nC\r\nC     LOOP OVER CONNECTIONS\r\nC\r\n      K = ICORE\r\n      DO 2030 J = 1,NGPEL\r\n      IF (Z(K) .NE. 0) Z(K) = Z(K) + NGP\r\n 2030 K = K + 1\r\n      CALL WRITE (ELS,Z(ICORE),NGPEL+OFFSET,0)\r\n      GO TO 2020\r\n 2040 NGP = NGP + Z(5*I-2)\r\n 2050 CONTINUE\r\nC\r\n      CALL WRITE  (ELS,0,0,1)\r\n      CALL CLSTAB (ELS,REW)\r\nC\r\nC     NORMAL MODULE COMPLETION\r\nC\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ABNORMAL MODULE COMPLETION\r\nC\r\n 6100 IF (RC .EQ. 2) RC = 3\r\n      CALL SMSG (RC-2,ITEM,NM)\r\n      GO TO 9200\r\n 6106 CALL SMSG (RC+4,ITEM,NM)\r\n      GO TO 9200\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9003 N = 3\r\n      GO TO 9100\r\n 9008 N = 8\r\n 9100 CALL MESAGE (N,FILE,SUBR)\r\n      CALL CLOSE  (FILE,REW)\r\n 9200 CALL SOFCLS\r\n      NPSET = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pltopr.f",
    "content": "      SUBROUTINE PLTOPR\r\nC\r\n      INTEGER         PRNT,PLOTER,PLTYPE,EOF,ITYPE(4),LIST(20),SKIP,\r\n     1                PLTTYP(3,3),A1(9),A2(12),A3(25),A4(13),A5(17),\r\n     2                A6(6),B1(16),B2(16),B5(10),C1(16),C2(17),C3(24),\r\n     3                FILM(2),PAPER(2),ILAY(20),D1(11),D2(6),D3(29),\r\n     4                PRJ(3,3),PLUS,MINUS,XYZ(3),SYMM(4),BLANK,E1(12),\r\n     5                E2(20),E3(14),E4(18),F1(22),F2(25),F3(12),F4(23),\r\n     6                STRESS(34),DIST(12),WAY(4),G1(13),G2(11),G3(16),\r\n     7                G4(6),G5(11),G6(8),G7(4),DISPLA(10),SPACE,LAYER,\r\n     8                CAMERA,BFRAMS,PLTMDL,TAPDEN,PAPTYP,PENSIZ,PENCLR,\r\n     9                AXIS,DAXIS,PRJECT,ORIGIN,STRAIN(4),P6(23),ORG,\r\n     O                H1(11)\r\n      REAL            ALST(20),CSCALE\r\n      COMMON /BLANK / SKPCOM(20),PRNT\r\n      COMMON /XXPARM/ PBUFSZ,CAMERA,BFRAMS,PLTMDL(2),TAPDEN,NPENS,\r\n     1                PAPSIZ(2),PAPTYP(2),PENSIZ(8),PENCLR(8,2),PENPAP,\r\n     2                SCALE(2),SKPSCL(3),AXIS(3),DAXIS(3),VANGLE(9),\r\n     3                VANTX1,R0,S0L,S0R,T0,D0,VANTX2(2),PRJECT,S0S,\r\n     4                FOR,ORG,NORG,ORIGIN(11),ORIGX3(11,4),\r\n     5                XY(11,3),NCNTR,CNTR(50),ICNTVL,IWHERE,IDIREC,\r\n     6                SKIP23(23),LAYER\r\n      COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(17),CSCALE,SKPA(2),CNTSIN,\r\n     1                SKPB(3),NOPENS,SKPC(2),PLTYPE,SKPD(2),EOF,CNTIN3\r\n      EQUIVALENCE     (LIST(1),ALST(1))\r\nC\r\n      DATA    NSKIP , SKIP    /1        ,4H(1X)                     /\r\n      DATA    FILM  , PAPER   /4HFILM   ,1H       ,4HPAPE   ,1HR    /\r\nC\r\nC     PLOTTER TYPE FORMATS.\r\nC\r\n      DATA    NP6   / 23 /\r\n      DATA    P6    / 4H(10X  ,4H,38H   ,4HTHE    ,4HFOLL   ,4HOWIN  ,\r\n     1                4HG PL  ,4HOTS    ,4HARE    ,4HFOR    ,4HA NA  ,\r\n     2                4HSTPL  ,4HT ,2   ,4HA4,A   ,4H2,8H   ,4HPLOT  ,\r\n     3                4HTER   ,4H,2A4   ,4H,17H   ,4HTYPI   ,4HNG C  ,\r\n     4                4HAPAB  ,4HILIT   ,4HY,/)   /\r\n      DATA    PLTTYP/ 4HMICR  ,4HOFIL   ,1HM      ,\r\n     1                4H  TA  ,4HBLE    ,1H       ,\r\n     2                4H  DR  ,4HUM     ,1H       /\r\n      DATA    ITYPE / 4HWITH  ,4H       ,\r\n     1                4HWITH  ,4HOUT    /\r\nC\r\nC     GENERAL PLOTTER FORMATS.\r\nC\r\n      DATA    NA1   / 9 /\r\n      DATA    A1    / 4H(//,  ,4H25H    ,4HP L    ,4HO T    ,4HT E   ,\r\n     1                4HR     ,4H D A   ,4H T A   ,4H,/)    /\r\n      DATA    NA2   / 12 /\r\n      DATA    A2    / 4H(10X  ,4H,27H   ,4HTHE    ,4HPLOT   ,4H TAP  ,\r\n     1                4HE IS  ,4H WRI   ,4HTTEN   ,4H AT,   ,4HI4,4  ,\r\n     2                4HH BP  ,4HI,/)   /\r\n      DATA    NA3   / 25 /\r\n      DATA    A3    / 4H(10X  ,4H,89H   ,4HTHE    ,4HPLOT   ,4HS AR  ,\r\n     1                4HE SE  ,4HPARA   ,4HTED    ,4HBY E   ,4HND-O  ,\r\n     2                4HF-FI  ,4HLE M   ,4HARKS   ,4H...T   ,4HWO E  ,\r\n     3                4HND-O  ,4HF-FI   ,4HLE M   ,4HARKS   ,4H FOL  ,\r\n     4                4HLOW   ,4HTHE    ,4HLAST   ,4H PLO   ,4HT,/)  /\r\n      DATA    NA4   / 13 /\r\n      DATA    A4    / 4H(10X  ,4H,41H   ,4HAN E   ,4HND-O   ,4HF-FI  ,\r\n     1                4HLE M  ,4HARK    ,4HFOLL   ,4HOWS    ,4HTHE   ,\r\n     2                4HLAST  ,4H PLO   ,4HT,/)   /\r\n      DATA    NA5   / 17 /\r\n      DATA    A5    / 4H(10X  ,4H,56H   ,4HTHE    ,4HFIRS   ,4HT CO  ,\r\n     1                4HMMAN  ,4HD FO   ,4HR EA   ,4HCH P   ,4HLOT   ,\r\n     2                4HCONT  ,4HAINS   ,4H THE   ,4H PLO   ,4HT NU  ,\r\n     3                4HMBER  ,4H,/)    /\r\n      DATA    NA6   / 6  /\r\n      DATA    A6    / 4H(10X  ,4H,9HC   ,4HSCAL   ,4HE =    ,4H,F5.  ,\r\n     1                4H2,/)  /\r\nC\r\nC     TABLE PLOTTER FORMATS.\r\nC\r\n      DATA    NB1   / 16 /\r\n      DATA    B1    / 4H(10X  ,4H,30H   ,4HSET    ,4HTHE    ,4HX +   ,\r\n     1                4HY SC  ,4HALE    ,4HFACT   ,4HORS    ,4HAT,F  ,\r\n     2                4H6.1,  ,4H12H    ,4HCOUN   ,4HTS/I   ,4HNCH,  ,\r\n     3                4H/)    /\r\n      DATA    NB2   / 16 /\r\n      DATA    B2    / 4H(10X  ,4H,12H   ,4HPAPE   ,4HR SI   ,4HZE =  ,\r\n     1                4H,F5.  ,4H1,2H   ,4H X,F   ,4H5.1,   ,4H16H,  ,\r\n     2                4H  PA  ,4HPER    ,4HTYPE   ,4H = ,   ,4H2A4,  ,\r\n     3                4H/)    /\r\n      DATA    NB5   / 10 /\r\n      DATA    B5    / 4H(10X  ,4H,3HP   ,4HEN,I   ,4H2,7H   ,4H - S  ,\r\n     1                4HIZE,  ,4HI2,2   ,4HH, ,   ,4H2A4,   ,4H/)    /\r\nC\r\nC     ELECTRONIC PLOTTER FORMATS.\r\nC\r\n      DATA    NC1   / 16 /\r\n      DATA    C1    / 4H(10X  ,4H,37H   ,4HTHE    ,4HFOLL   ,4HOWIN   ,\r\n     1                4HG PL  ,4HOTS    ,4HARE    ,4HREQU   ,4HESTE   ,\r\n     2                4HD ON  ,4H ,A4   ,4H,A1,   ,4H5H O   ,4HNLY,   ,\r\n     3                4H/)    /\r\n      DATA    NC2   / 17 /\r\n      DATA    C2    / 4H(10X  ,4H,54H   ,4HTHE    ,4HFOLL   ,4HOWIN   ,\r\n     1                4HG PL  ,4HOTS    ,4HARE    ,4HREQU   ,4HESTE   ,\r\n     2                4HD ON  ,4H BOT   ,4HH FI   ,4HLM +   ,4H PAP   ,\r\n     3                4HER,/  ,4H)      /\r\n      DATA    NC3   / 24 /\r\n      DATA    C3    / 4H(10X  ,4H,I1,   ,4H79H    ,4HBLAN   ,4HK FR   ,\r\n     1                4HAMES  ,4H WIL   ,4HL BE   ,4H INS   ,4HERTE   ,\r\n     2                4HD ON  ,4H FIL   ,4HM ON   ,4HLY B   ,4HETWE   ,\r\n     3                4HEN E  ,4HACH    ,4HOF T   ,4HHE F   ,4HOLLO   ,\r\n     4                4HWING  ,4H PLO   ,4HTS,/   ,4H)      /\r\nC\r\nC     ENGINEERING DATA FORMATS.\r\nC\r\n      DATA    ND1   / 11 /\r\n      DATA    D1    / 4H(//3  ,4H3H E   ,4H N G   ,4H I N   ,4H E E   ,\r\n     1                4H R I  ,4H N G   ,4H       ,4HD A    ,4HT A,   ,\r\n     2                4H/)    /\r\n      DATA    ND2   / 6  /\r\n      DATA    D2    / 4H(10X  ,4H,3A4   ,4H,11H   ,4H PRO   ,4HJECT   ,\r\n     1                4HION)  /\r\n      DATA    ND3   / 29 /\r\n      DATA    D3    / 4H(10X  ,4H,29H   ,4HROTA   ,4HTION   ,4HS (D   ,\r\n     1                4HEGRE  ,4HES)    ,4H- GA   ,4HMMA    ,4H=,F7   ,\r\n     2                4H.2,8  ,4HH, B   ,4HETA    ,4H=,F7   ,4H.2,9   ,\r\n     3                4HH, A  ,4HLPHA   ,4H =,F   ,4H7.2,   ,4H10H,   ,\r\n     4                4H  AX  ,4HES =   ,4H ,2A   ,4H1,2(   ,4H1H,,   ,\r\n     5                4H2A1)  ,4H,2H,   ,4H ,4A   ,4H4)     /\r\n     5\r\n      DATA    PRJ   , PLUS    ,MINUS    ,XYZ      ,SYMM     ,BLANK    /\r\n     1                4HORTH  ,4HOGRA   ,4HPHIC   ,4HPERS   ,4HPECT   ,\r\n     2                4HIVE   ,4HSTER   ,4HEOSC   ,4HOPIC   ,1H+,1H-  ,\r\n     3                1HX     ,1HY      ,1HZ      ,4HANTI   ,4HSYMM   ,\r\n     4                4HETRI  ,1HC      ,1H       /\r\nC\r\nC     ORTHOGRAPHIC + PERSPECTIVE ENGINEERING DATA FORMATS.\r\nC\r\n      DATA    NE1   / 12 /\r\n      DATA    E1    / 4H(10X  ,4H,29H   ,4HSCAL   ,4HE (O   ,4HBJEC   ,\r\n     1                4HT-TO  ,4H-PLO   ,4HT SI   ,4HZE)    ,4H=,1P   ,\r\n     2                4H,E13  ,4H.6)    /\r\n      DATA    NE2   / 20 /\r\n      DATA    E2    / 4H(10X  ,4H,29H   ,4HVANT   ,4HAGE    ,4HPOIN   ,\r\n     1                4HT (I  ,4HNCHE   ,4HS) -   ,4H RO    ,4H=,1P   ,\r\n     2                4H,E13  ,4H.6,6   ,4HH, S   ,4H0 =,   ,4HE13.   ,\r\n     3                4H6,6H  ,4H, T0   ,4H =,E   ,4H13.6   ,4H)      /\r\n      DATA    NE3   / 14 /\r\n      DATA    E3    / 4H(10X  ,4H,38H   ,4HPROJ   ,4HECTI   ,4HON P   ,\r\n     1                4HLANE  ,4H SEP   ,4HARAT   ,4HION    ,4H(INC   ,\r\n     2                4HHES)  ,4H =,1   ,4HP,E1   ,4H3.6)   /\r\n      DATA    NE4   / 18 /\r\n      DATA    E4    / 4H(10X  ,4H,6HO   ,4HRIGI   ,4HN,I8   ,4H,11H   ,\r\n     1                4H   -  ,4H   X   ,4H0 =,   ,4H1P,E   ,4H14.6   ,\r\n     2                4H,6H,  ,4H Y0    ,4H=,E1   ,4H4.6,   ,4H5X,8   ,\r\n     3                4HH(IN  ,4HCHES   ,4H))      /\r\nC\r\nC     STEREO ENGINEERING DATA FORMATS.\r\nC\r\n      DATA    NF1   / 22 /\r\n      DATA    F1    / 4H(10X  ,4H,30H   ,4HSCAL   ,4HES -   ,4H (MO   ,\r\n     1                4HDEL-  ,4HTO-P   ,4HLOT    ,4HSIZE   ,4H =,1   ,\r\n     2                4HP,E1  ,4H3.6,   ,4H25H,   ,4H  OB   ,4HJECT   ,\r\n     3                4H-TO-  ,4HMODE   ,4HL SI   ,4HZE =   ,4H,E13   ,\r\n     4                4H.6,1  ,4HH))    /\r\n      DATA    NF2   / 25 /\r\n      DATA    F2    / 4H(10X  ,4H,29H   ,4HVANT   ,4HAGE    ,4HPOIN   ,\r\n     1                4HT (I  ,4HNCHE   ,4HS) -   ,4H R0    ,4H=,1P   ,\r\n     2                4H,E13  ,4H.6,9   ,4HH, S   ,4H0(L)   ,4H =,E   ,\r\n     3                4H13.6  ,4H,9H,   ,4H S0(   ,4HR) =   ,4H,E13   ,\r\n     4                4H.6,6  ,4HH, T   ,4H0 =,   ,4HE13.   ,4H6)     /\r\n      DATA    NF3   / 12 /\r\n      DATA    F3    / 4H(10X  ,4H,28H   ,4HOCUL   ,4HAR S   ,4HEPAR   ,\r\n     1                4HATIO  ,4HN (I   ,4HNCHE   ,4HS) =   ,4H,1P,   ,\r\n     2                4HE13.  ,4H6)     /\r\n      DATA    NF4   / 23 /\r\n      DATA    F4    / 4H(10X  ,4H,6HO   ,4HRIGI   ,4HN,I8   ,4H,14H   ,\r\n     1                4H   -  ,4H   X   ,4H0(L)   ,4H =,1   ,4HP,E1   ,\r\n     2                4H4.6,  ,4H9H,    ,4HX0(R   ,4H) =,   ,4HE14.   ,\r\n     3                4H6,6H  ,4H, Y0   ,4H =,E   ,4H14.6   ,4H,5X,   ,\r\n     4                4H8H(I  ,4HNCHE   ,4HS))    /\r\nC\r\nC     CONTOUR PLOTTING DATA FORMATS\r\nC\r\n      DATA    NG1   / 13 /\r\n     1        G1    / 4H(//4  ,4H2H C   ,4H O N   ,4H T O   ,4H U R   ,\r\n     2                4H   P  ,4H L O   ,4H T T   ,4H I N   ,4H G     ,\r\n     3                4H D A  ,4H T A   ,4H,/)    /\r\n      DATA    NG2   / 11 /\r\n     1        G2    / 4H(9X,  ,4H32HA   ,4HBOVE   ,4H PLO   ,4HT IS   ,\r\n     2                4H A C  ,4HONTO   ,4HUR P   ,4HLOT    ,4HOF ,   ,\r\n     3                4H4A4)  /\r\n      DATA    NG3   / 16 /\r\n     1        G3    / 4H(9X,  ,4H52HT   ,4HHE C   ,4HONTO   ,4HUR V   ,\r\n     2                4HALUE  ,4HS AR   ,4HE CA   ,4HLCUL   ,4HATED   ,\r\n     3                4H AT   ,4HFIBR   ,4HE DI   ,4HSTAN   ,4HCE ,   ,\r\n     4                4H3A4)  /\r\n      DATA    NG4   / 6  /\r\n     1        G4    / 4H(9X,  ,4H4HIN   ,4H A,2   ,4HA4,6   ,4HHSYS   ,\r\n     2                4HTEM)  /\r\n      DATA    NG5   / 11 /\r\n     1        G5    / 4H(//,  ,4H51X,   ,4H28HT   ,4HABLE   ,4H  OF   ,\r\n     2                4H  PL  ,4HOTTI   ,4HNG     ,4HSYMB   ,4HOLS,   ,\r\n     3                4H/)    /\r\n      DATA    NG6   / 8  /\r\n     1        G6    / 4H(5(5  ,4HX,13   ,4HHSYM   ,4HBOL    ,4H VAL   ,\r\n     2                4HUE,6  ,4HX),/   ,4H)      /\r\n      DATA    NG7   / 4  /\r\n     1        G7    / 4H(5(I  ,4H9,1P   ,4H,E15   ,4H.6))   /\r\nC\r\n      DATA    NH1   / 11 /\r\n      DATA    H1    / 4H(//5  ,4H0X,2   ,4H9HPL   ,4HOT M   ,4HODUL   ,\r\n     1                4HE ME  ,4HSSAG   ,4HES C   ,4HONTI   ,4HNUE    ,\r\n     2                4H,/)   /\r\nC\r\n      DATA   STRAIN / 4HSTRA  ,4HIN E   ,4HNERG   ,4HIES    /,\r\n     1       DIST   / 4H Z2   ,2*1H     ,4H Z1    ,2*1H     ,4HMAX    ,\r\n     2                4H- Z1  ,4H,Z2    ,4HAVER   ,4H-Z1,   ,4HZ2     /,\r\n     3       WAY    / 4H LOC  ,4HAL     ,4H COM   ,4HMON    /\r\nC\r\n      DATA   SPACE  / 4H      /\r\n     1       DISPLA / 4HDEFO  ,4HRMAT   ,4HION    ,1HX,1HY,1HZ, 3HMAG ,\r\n     2                3*0     /\r\nC\r\nC                              1              3\r\n      DATA   STRESS /       4HSTRE,4HSS,  ,4HSHEA,4HR -  ,\r\nC               5 (1)          7 (2)          9 (3)         11 (4)\r\n     1       4HMAJO,4HR-PR ,4HMINO,4HR-PR ,4HMAXI,4HMUM  ,4HNORM,4HAL X,\r\nC              13 (5)         15 (6)         17     18      19\r\n     2       4HNORM,4HAL Y ,4HNORM,4HAL Z ,4HXY  ,4HXZ   ,4HYZ   ,\r\nC              20 (14)        22 (15)        24(16)         26 (17)\r\n     3       4HNORM,4HAL 1 ,4HNORM,4HAL 2 ,4HSHEA,4HR 12 ,4HSHEA,4HR 1Z,\r\nC              28 (18)        30 (19)        32             34\r\n     4       4HSHEA,4HR 1Z ,4HBOND,4HSH12 ,4HLAYE,4HR NU ,4HMBER /\r\nC\r\n      DATA   ILAY   / 4H  1 ,4H  2 ,4H  3 ,4H  4 ,4H  5 ,4H  6 ,\r\n     1                4H  7 ,4H  8 ,4H  9 ,4H 10 ,4H 11 ,4H 12 ,\r\n     2                4H 13 ,4H 14 ,4H 15 ,4H 16 ,4H 17 ,4H 18 ,\r\n     3                4H 19 ,4H 20 /\r\nC\r\n      IF (NCNTR .GT. 0) GO TO 201\r\nC\r\nC     PRINT THE PLOTTER ID.\r\nC\r\n      LIST(1) = 0\r\n      CALL WRITE  (PRNT,LIST,1,0)\r\n      CALL WRTPRT (PRNT,LIST,A1,NA1)\r\nC\r\nC     NASTRAN GENERAL PURPOSE PLOTTER.\r\nC\r\n      LIST(1) = 5\r\n      J = IABS(PLTYPE)\r\n      DO 126 I = 1,3\r\n      LIST(I+1) = PLTTYP(I,J)\r\n  126 CONTINUE\r\n      MM = 1\r\n      IF (PLTYPE .LT. 0) MM = 3\r\n      LIST(5) = ITYPE(MM  )\r\n      LIST(6) = ITYPE(MM+1)\r\n      CALL WRTPRT (PRNT,LIST,P6,NP6)\r\nC\r\nC     GENERAL PLOTTER INFORMATION.\r\nC\r\n      IF (TAPDEN .LE. 0) GO TO 151\r\n      LIST(1) = 1\r\n      LIST(2) = TAPDEN\r\n      CALL WRTPRT (PRNT,LIST,A2,NA2)\r\n  151 IF (EOF .NE. 0) GO TO 152\r\n      CALL WRTPRT (PRNT,0,A3,NA3)\r\n      GO TO 154\r\n  152 CALL WRTPRT (PRNT,0,A4,NA4)\r\n  154 CALL WRTPRT (PRNT,0,A5,NA5)\r\n      LIST(1) = 1\r\n      ALST(2) = CSCALE\r\n      CALL WRTPRT (PRNT,LIST,A6,NA6)\r\n      IF (IABS(PLTYPE)-2) 170,160,163\r\nC\r\nC     TABLE PLOTTER INFORMATION.\r\nC\r\n  160 LIST(1) = 1\r\n      ALST(2) = CNTSIN\r\n      CALL WRTPRT (PRNT,LIST,B1,NB1)\r\n  163 LIST(1) = 4\r\n      ALST(2) = PAPSIZ(1)\r\n      ALST(3) = PAPSIZ(2)\r\n      LIST(4) = PAPTYP(1)\r\n      LIST(5) = PAPTYP(2)\r\n      CALL WRTPRT (PRNT,LIST,B2,NB2)\r\nC\r\n      LIST(1) = 4\r\n      N = MIN0(NPENS,NOPENS)\r\n      DO 168 I = 1,N\r\n      LIST(2) = I\r\n      LIST(3) = PENSIZ(I)\r\n      IF (LIST(3) .LT. 0) GO TO 168\r\n      LIST(4) = PENCLR(I,1)\r\n      LIST(5) = PENCLR(I,2)\r\n      IF (LIST(4).EQ.BLANK .AND. LIST(5).EQ.BLANK) GO TO 168\r\n      CALL WRTPRT (PRNT,LIST,B5,NB5)\r\n  168 CONTINUE\r\n      CALL WRTPRT (PRNT,0,SKIP,NSKIP)\r\n      GO TO 180\r\nC\r\nC     ELECTRONIC PLOTTER INFORMATION.\r\nC\r\n  170 IF (CAMERA-2) 171,172,174\r\n  171 LIST(2) = FILM(1)\r\n      LIST(3) = FILM(2)\r\n      GO TO 173\r\n  172 LIST(2) = PAPER(1)\r\n      LIST(3) = PAPER(2)\r\n  173 LIST(1) = 2\r\n      CALL WRTPRT (PRNT,LIST,C1,NC1)\r\n      GO TO 175\r\n  174 CALL WRTPRT (PRNT,0,C2,NC2)\r\n  175 IF (CAMERA.EQ.2 .OR. BFRAMS.EQ.0) GO TO 180\r\n      LIST(1) = 1\r\n      LIST(2) = BFRAMS\r\n      CALL WRTPRT (PRNT,LIST,C3,NC3)\r\nC\r\nC     ENGINEERING DATA.\r\nC\r\n  180 CALL WRTPRT (PRNT,0,D1,ND1)\r\n      LIST(1) = 3\r\n      DO 181 I = 1,3\r\n      LIST(I+1) = PRJ(I,PRJECT)\r\n  181 CONTINUE\r\n      CALL WRTPRT (PRNT,LIST,D2,ND2)\r\nC\r\n      LIST(1) = 13\r\n      ALST(2) = VANGLE(3)\r\n      IF (VANGLE(2) .GT. -1.E10) GO TO 1815\r\n      IF (PRJECT .NE. 2) VANGLE(2) = VANGLE(4)\r\n      IF (PRJECT .EQ. 2) VANGLE(2) = VANGLE(5)\r\n 1815 ALST(3) = VANGLE(2)\r\n      ALST(4) = VANGLE(1)\r\n      DO 182 I = 1,3\r\n      J = 2*I + 3\r\n      K = IABS(AXIS(I))\r\n      LIST(J) = PLUS\r\n      IF (AXIS(I) .LT. 0) LIST(J) = MINUS\r\n      LIST(J+1) = XYZ(K)\r\n  182 CONTINUE\r\n      N = 1\r\n      IF (AXIS(1) .EQ. DAXIS(1)) N = 2\r\n      LIST(14) = BLANK\r\n      J = 1\r\n      DO 183 I = N,4\r\n      LIST(J+10) = SYMM(I)\r\n      J = J + 1\r\n  183 CONTINUE\r\n      CALL WRTPRT (PRNT,LIST,D3,ND3)\r\n      IF (PRJECT .EQ. 3) GO TO 195\r\nC\r\nC     ORTHOGRAPHIC + PERSPECTIVE ENGINEERING DATA.\r\nC\r\n      LIST(1) = 1\r\n      ALST(2) = SCALE(1)/CNTSIN\r\n      CALL WRTPRT (PRNT,LIST,E1,NE1)\r\n      IF (PRJECT .EQ. 1) GO TO 191\r\n      LIST(1) = 3\r\n      ALST(2) = R0\r\n      ALST(3) = S0L\r\n      ALST(4) = T0\r\n      CALL WRTPRT (PRNT,LIST,E2,NE2)\r\n      LIST(1) = 1\r\n      ALST(2) = D0\r\n      CALL WRTPRT (PRNT,LIST,E3,NE3)\r\nC\r\n  191 CALL WRTPRT (PRNT,0,SKIP,NSKIP)\r\n      LIST(1) = 3\r\n      DO 192 I = 1,ORG\r\n      LIST(2) = ORIGIN(I)\r\n      ALST(3) = XY(I,1)/CNTSIN\r\n      ALST(4) = XY(I,3)/CNTSIN\r\n      CALL WRTPRT (PRNT,LIST,E4,NE4)\r\n  192 CONTINUE\r\n      GO TO 260\r\nC\r\nC     STEREO ENGINEERING DATA.\r\nC\r\n  195 LIST(1) = 2\r\n      ALST(2) = SCALE(1)/CNTIN3\r\n      ALST(3) = SCALE(2)\r\n      CALL WRTPRT (PRNT,LIST,F1,NF1)\r\n      LIST(1) = 4\r\n      ALST(2) = R0\r\n      ALST(3) = S0L\r\n      ALST(4) = S0R\r\n      ALST(5) = T0\r\n      CALL WRTPRT (PRNT,LIST,F2,NF2)\r\n      LIST(1) = 1\r\n      ALST(2) = D0\r\n      CALL WRTPRT (PRNT,LIST,E3,NE3)\r\n      ALST(2) = S0S\r\n      CALL WRTPRT (PRNT,LIST,F3,NF3)\r\nC\r\n      CALL WRTPRT (PRNT,0,SKIP,NSKIP)\r\n      LIST(1) = 4\r\n      DO 196 I = 1,ORG\r\n      LIST(2) = ORIGIN(I)\r\n      ALST(3) = XY(I,1)/CNTSIN\r\n      ALST(4) = XY(I,2)/CNTSIN\r\n      ALST(5) = XY(I,3)/CNTSIN\r\n      CALL WRTPRT (PRNT,LIST,F4,NF4)\r\n  196 CONTINUE\r\n      GO TO 260\r\nC\r\nC     CONTOUR PLOTTING DATA\r\nC\r\n  201 LIST(1) = 0\r\n      CALL WRTPRT (PRNT,LIST,G1,NG1)\r\n      LIST(1) = 4\r\n      IF (ICNTVL.GT.9 .AND. ICNTVL.LT.14) GO TO 210\r\nC\r\nC     STRESS CONTOURS\r\nC\r\n      I = 1\r\n      IF (ICNTVL.GT. 6 .OR. ICNTVL.EQ. 3) I = 3\r\n      IF (ICNTVL.GE.14 .AND.ICNTVL.LE.19) I = 1\r\n      IF (ICNTVL .NE. 20) GO TO 203\r\nC\r\nC     STRAIN CONTOURS\r\nC\r\n      LIST(1) = 4\r\n      LIST(2) = STRAIN(1)\r\n      LIST(3) = STRAIN(2)\r\n      LIST(4) = STRAIN(3)\r\n      LIST(5) = STRAIN(4)\r\n      CALL WRTPRT (PRNT,LIST,G2,NG2)\r\n      GO TO 205\r\nC\r\n  203 LIST(2) = STRESS(I)\r\n      LIST(3) = STRESS(I+1)\r\n      I = ICNTVL*2 + 3\r\n      IF (ICNTVL.GT.13 .AND. ICNTVL.LT.20) I = (ICNTVL-14)*2 + 20\r\n      IF (ICNTVL.GT. 6 .AND. ICNTVL.LE. 9) I = ICNTVL + 10\r\n      LIST(4) = STRESS(I)\r\n      LIST(5) = SPACE\r\n      IF (ICNTVL.LT.7 .OR. ICNTVL .GE.14) LIST(5) = STRESS(I+1)\r\n      CALL WRTPRT (PRNT,LIST,G2,NG2)\r\nC\r\nC     ADDING LAYER NUMBER TO OUTPUT WHEN REQUESTED\r\nC\r\n      IF (ICNTVL.LT.14 .OR. ICNTVL.EQ.20) GO TO 204\r\n      LIST(1) = 4\r\n      LIST(2) = STRESS(32)\r\n      LIST(3) = STRESS(33)\r\n      LIST(4) = STRESS(34)\r\n      LIST(5) = ILAY(LAYER)\r\n      CALL WRTPRT (PRNT,LIST,G2,NG2)\r\n      GO TO 205\r\nC\r\n  204 LIST(1) = 3\r\n      I = IWHERE\r\n      IF (IWHERE .LE. 0) I = 0\r\n      I = I*3 + 1\r\n      LIST(2) = DIST(I)\r\n      LIST(3) = DIST(I+1)\r\n      LIST(4) = DIST(I+2)\r\n      CALL WRTPRT (PRNT,LIST,G3,NG3)\r\nC\r\n  205 J = 2*(IDIREC-1) + 1\r\n      GO TO 220\r\nC\r\nC     DISPLACEMENT CONTOURS\r\nC\r\n  210 I = 1\r\n      LIST(2) = DISPLA(I  )\r\n      LIST(3) = DISPLA(I+1)\r\n      LIST(4) = DISPLA(I+2)\r\n      LIST(5) = DISPLA(ICNTVL-6)\r\n      CALL WRTPRT (PRNT,LIST,G2,NG2)\r\n      J = 3\r\n  220 IF (ICNTVL.LT.4 .OR. ICNTVL.EQ.13) GO TO 235\r\n      LIST(1) = 2\r\n      LIST(2) = WAY(J  )\r\n      LIST(3) = WAY(J+1)\r\n      CALL WRTPRT (PRNT,LIST,G4,NG4)\r\n  235 LIST(1) = 0\r\n      CALL WRTPRT (PRNT,LIST,G5,NG5)\r\n      CALL WRTPRT (PRNT,LIST,G6,NG6)\r\n      L = (NCNTR-1)/10 + 1\r\n      LIST(1) = 2*L\r\n      K = MIN0(NCNTR,10)\r\n      DO 250 J = 1,K\r\n      N = J + (L-1)*10\r\n      M = 2\r\n      DO 240 I = J,N,10\r\n      IF (I .GT. NCNTR) GO TO 245\r\n      LIST(M  ) = I\r\n      ALST(M+1) = CNTR(I)\r\n  240 M = M + 2\r\n      GO TO 247\r\n  245 LIST(1) = LIST(1) - 2\r\n      L = L - 1\r\n  247 CALL WRTPRT (PRNT,LIST,G7,NG7)\r\n  250 CONTINUE\r\nC\r\n  260 LIST(1) = 0\r\n      CALL WRTPRT (PRNT,LIST,H1,NH1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pltset.f",
    "content": "      SUBROUTINE PLTSET\r\nC\r\nC     COMMENTS FROM G.C. -\r\nC     THE DRIVER FOR DMAP MODULE PLTSET IS DPLTST\r\nC     THIS ROUTINE HAS NOTHING TO DO WITH DPLTST.  IT IS CALLED ONLY\r\nC     BY PARAM (IN MODULE PLOT), XYPLOT, AND SEEMAT\r\nC\r\nC\r\n      LOGICAL         TAPBIT\r\n      INTEGER         CHRWRD,PBFSIZ,PBUFSZ,PDATA,PLTDAT,PLTYPE,\r\n     1                PLOTER,PLT1,PLT2,PLTNUM,OFFSCL\r\n      REAL            XYMAX(2),CNTCHR(2),XYSIZE(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /BLANK / SKP4(4),PLTNUM\r\n      COMMON /XXPARM/ PBUFSZ,SKPARM(6),PAPSIZ(2),SKP235(226),OFFSCL\r\n      COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),AXYMAX(2),XYEDGE(11),CHRSCL,\r\n     1                PDATA(20),PLTDAT(20,1)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (PDATA(1),XYMAX(1)) ,  (PDATA(3),CNTSIN)  ,\r\n     1                (PDATA(4),CNTCHR(1)),  (PDATA(10),PLTYPE) ,\r\n     2                (PDATA(12),PBFSIZ)  ,  (NOUT  ,KSYSTM( 2)),\r\n     3                (CHRWRD,KSYSTM(41)) ,  (ITRACK,KSYSTM(59))\r\n      DATA    XYSIZE/ 11.0, 8.5 /,  PLT1,PLT2 / 4HPLT1, 4HPLT2  /\r\nC\r\nC     INITIALIZE -PDATA-\r\nC\r\n      DO 100 I = 1,20\r\n      PDATA(I) = PLTDAT(I,PLOTER)\r\n  100 CONTINUE\r\nC\r\nC     PLT2 FILE WAS HARD CODED INTO THE 11TH WORD OF PLTDAT(11,PLOTER)\r\nC     BY PLOTBD. IF USER REQUESTS PLT1 FILE, WE MUST MAKE A SWITCH HERE\r\nC\r\n      IF (.NOT.TAPBIT(PLT2) .AND. TAPBIT(PLT1)) PDATA(11) = PLT1\r\n      IF (PLTNUM.EQ.0 .AND. OFFSCL.EQ.0) WRITE (NOUT,110) UIM,PDATA(11)\r\n  110 FORMAT (A29,', PLOT FILE GOES TO ',A4)\r\nC\r\n      IF (OFFSCL .EQ. 0) OFFSCL = 1\r\nC\r\nC     SCALE THE CHARACTURE SIZE BEFORE SETTING BORDERS\r\nC\r\n      CNTCHR(1) = CHRSCL*CNTCHR(1)\r\n      CNTCHR(2) = CHRSCL*CNTCHR(2)\r\n      PBUFSZ    = PBFSIZ/CHRWRD\r\nC\r\nC     FOR UNIVAC 9 TRACK CALCOMP PLOT TAPES QUARTER WORD MODE WILL\r\nC     BE USED LIMITING THE NUMBER OF CHARACTERS PER WORD TO 4\r\nC     ITRACK = 2 FOR 9 TRACK TAPES - OTHERWISE 1 FOR 7 TRACK TAPES\r\nC     THE DEFAULT IS FOR 7 TRACK TAPES\r\nC\r\nC     IF (MACH.EQ.3 .AND. ITRACK.EQ.2) PBUFSZ = PBFSIZ/4\r\nC\r\nC     SINCE GENERAL PLOTTER IS THE ONLY ONE SUPPORTED BY NASTRAN, THE\r\nC     PLOT BUFFER FOR UNIVAC MUST BE 500 WORDS FOR BOTH FORTRAN V AND\r\nC     ASCII FORTRAN. (SEE PROG. MANUAL PAGE 6.10-15)\r\nC\r\n      IF (MACH .EQ. 3) PBUFSZ = PBFSIZ/6\r\nC\r\n      PLTYPE = MODEL\r\nC\r\nC     INITIALIZE PAPER SIZE AND BORDERS\r\nC\r\n      DO 130 I = 1,2\r\n      IF (IABS(PLTYPE)-2) 121,125,124\r\n  121 IF (PLTYPE) 122,122,123\r\nC\r\nC     CRT PLOTTERS\r\nC\r\n  122 AXYMAX(I) = XYMAX(I) - CNTCHR(I)\r\n      XYEDGE(I) = CNTCHR(I)*.5\r\n      GO TO 129\r\n  123 AXYMAX(I) = XYMAX(I)\r\n      XYEDGE(I) = 0.\r\n      GO TO 129\r\nC\r\nC     DRUM PLOTTERS\r\nC\r\n  124 IF (PAPSIZ(I) .LE. 0.0) PAPSIZ(I) = XYMAX(I)/CNTSIN\r\n      GO TO (127,126), I\r\nC\r\nC     TABLE PLOTTERS\r\nC\r\n  125 IF (PAPSIZ(I) .LE. 0.0) PAPSIZ(I) = XYSIZE(I)\r\nC\r\n  126 IF (CNTSIN*PAPSIZ(I) .GT. XYMAX(I)) PAPSIZ(I) = XYMAX(I)/CNTSIN\r\n  127 AXYMAX(I) = CNTSIN*PAPSIZ(I) - CNTSIN\r\n      XYEDGE(I) = CNTSIN*.5\r\n  129 REG(I,1)  = 0.\r\n      REG(I,2)  = AXYMAX(I)\r\n  130 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/plttra.f",
    "content": "      SUBROUTINE PLTTRA\r\nC\r\nC     PLTTRA MODIFIES THE SIL AND BGPDT TABLES FOR THE PURPOSE OF\r\nC     PLOTTING SPECIAL SCALAR GRID POINTS\r\nC\r\nC     INPUT  SIL  BGPDT  LUSET\r\nC     OUTPUT SIP  BGPDP  LUSEP\r\nC\r\nC     SPECIAL SCALAR GRID POINTS\r\nC     BGPDT(I,1)= 1  SIL(I+1)-SIL(I)=1\r\nC     BGPDP(I,1)=-2  SIP(I+1)-SIP(I)=6\r\nC\r\nC     LUSET IS THE VALUE OF SIL(LAST+1) IF IT EXISTED\r\nC     LUSEP IS THE VALUE OF SIP(LAST+1) IF IT EXISTED\r\nC\r\n      LOGICAL         LEOF\r\n      INTEGER         SYSBUF,BUF1,BUF2,BUF3,BUF4,FILE,SIL,BGPDT,SIP,\r\n     1                BGPDP,NAME(2),Z,PLT(2),FLAG,A,B,S1,S2,DELTA\r\n      DIMENSION       A(4),B(2),MCB(7)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / LUSET,LUSEP\r\n      COMMON /SYSTEM/ SYSBUF,NOT\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (A(3),B(1)),(FILE,MCB(1))\r\n      DATA    BGPDT , SIL,BGPDP,SIP/ 101,102,201,202 /\r\n      DATA    PLT   / 4HPLTT,4HRA  /,   MCB / 7*0    /\r\n      DATA    LEOF  / .FALSE./\r\nC\r\n      NADD = 0\r\n      NS   = 0\r\nC\r\nC     LOCATE STORAGE AREA FOR FILE BUFFERS\r\nC\r\n      NZ   = KORSZ(Z)\r\n      BUF1 = NZ   - SYSBUF + 1\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      IF (BUF4 .LE. 0) CALL MESAGE (-8,NZ,PLT)\r\nC\r\nC     READ TRAILER RECORDS OF INPUT FILES AND CHECK COMPATABILITY\r\nC     OPEN AND FOREWARD SPACE LABEL RECORD OF INPUT FILES\r\nC     OPEN AND WRITE LABEL RECORD OF OUTPUT FILES\r\nC\r\n      FILE = BGPDT\r\n      CALL RDTRL (MCB)\r\n      CALL FNAME (FILE,NAME)\r\n      IF (FILE .LE. 0) GO TO 900\r\n      CALL OPEN (*900, BGPDT, Z(BUF2), RDREW)\r\n      CALL FWDREC (*1010,BGPDT)\r\nC\r\n      FILE = SIL\r\n      CALL RDTRL (MCB)\r\n      CALL FNAME (FILE,NAME)\r\n      IF (FILE .LE. 0) GO TO 900\r\n      IF (MCB(3) .NE. LUSET) GO TO 1130\r\n      CALL OPEN (*900,SIL,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1010,SIL)\r\nC\r\n      FILE = SIP\r\n      CALL FNAME (SIP,A)\r\n      CALL OPEN  (*1000,SIP,Z(BUF3),WRTREW)\r\n      CALL WRITE (SIP,A,2,1)\r\nC\r\n      FILE = BGPDP\r\n      CALL OPEN  (*1000,BGPDP,Z(BUF4),WRTREW)\r\n      CALL FNAME (BGPDP,B)\r\n      CALL WRITE (BGPDP,B,2,1)\r\nC\r\nC     READ SIL(I)\r\nC\r\n      FILE = SIL\r\n      CALL READ (*1010,*1020,SIL,S1,1,0,FLAG)\r\nC\r\nC     READ SIL(I+1)\r\nC\r\n   10 FILE = SIL\r\n      CALL READ (*1010,*30,SIL,S2,1,0,FLAG)\r\nC\r\nC     READ BGPDT(I,J)\r\nC\r\n   15 FILE = BGPDT\r\n      CALL READ (*1010,*1020,BGPDT,A,4,0,FLAG)\r\n      DELTA = 0\r\n      NS = NS + 1\r\nC\r\nC     CHECK IF SPECIAL SCALAR GRID POINT\r\nC\r\n      IF (A(1).LT.0 .OR. S2-S1.EQ.6) GO TO 20\r\n      IF (S2-S1 .NE. 1) GO TO 1110\r\nC\r\nC     SPECIAL SCALAR GRID POINT\r\nC\r\n      DELTA = 5\r\n      A(1)  =-2\r\n   20 S1 = S1 + NADD\r\nC\r\nC     WRITE SIP AND BGPDP TABLE ENTRIES\r\nC\r\n      CALL WRITE (SIP,S1,1,0)\r\n      CALL WRITE (BGPDP,A,4,0)\r\n      NADD = NADD + DELTA\r\n      IF (LEOF) GO TO 40\r\n      S1 = S2\r\n      GO TO 10\r\nC\r\nC     SIL(I) IS SIL(LAST)\r\nC\r\n   30 LEOF = .TRUE.\r\n      S2   = LUSET + 1\r\n      GO TO 15\r\n   40 LUSEP = LUSET + NADD\r\nC\r\nC     CLOSE OUTPUT FILES AND WRITE TRAILER RECORDS\r\nC\r\n      CALL CLOSE (SIL  ,CLSREW)\r\n      CALL CLOSE (BGPDT,CLSREW)\r\n      CALL CLOSE (SIP  ,CLSREW)\r\n      CALL CLOSE (BGPDP,CLSREW)\r\n      MCB(1) = BGPDP\r\n      MCB(3) = 0\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = SIP\r\n      MCB(3) = LUSEP\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\n  900 LUSEP = LUSET\r\n      RETURN\r\nC\r\nC     ERROR DIAGNOSTICS\r\nC\r\n 1000 NDX = -1\r\n      GO TO 1100\r\n 1010 NDX = -2\r\n      GO TO 1100\r\n 1020 NDX = -3\r\n 1100 CALL MESAGE (NDX,FILE,PLT)\r\n      GO TO 1150\r\n 1130 WRITE  (NOT,2001) UFM,LUSET,MCB(3)\r\n 2001 FORMAT (A23,' 5011, FIRST PARAMETER',I6,' NE TRAILER RECORD ',\r\n     1       'PARAMETER',I6)\r\n      GO TO 1150\r\n 1110 WRITE  (NOT,2002) UFM,NS\r\n 2002 FORMAT (A23,' 5012, ENTRY',I6,' OF SIL TABLE INCOMPATIBLE WITH ',\r\n     1       'NEXT ENTRY')\r\n 1150 CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pnm.f",
    "content": "      SUBROUTINE PNM(M,N,X,IR,V)\r\n      DIMENSION GAMMA(81)\r\n      IF(N.LT.M) GO TO 2\r\n      IF(N.EQ.0) GO TO 1\r\n      GO TO 3\r\n    1 V=1.0\r\n      RETURN\r\n    2 V=0.0\r\n      RETURN\r\n    3 Z=1.0\r\n      W=Z\r\n      IF(N.EQ.M) GO TO 4\r\n      NMM=N-M\r\n      DO 5 I=1,NMM\r\n    5 Z=X*Z\r\n    4 GAMMA(1)=1.0\r\n      NPNN1=N+N+1\r\n      DO 6 I=2,NPNN1\r\n      GAMMA(I)=W*GAMMA(I-1)\r\n    6 W=W+1.0\r\n      W=1.0\r\n      ABXX=ABS(X)\r\n      IF(ABXX.LT.0.001) GO TO 7\r\n      GO TO 8\r\n    7 I=(N-M)/2\r\n      I2=2*I\r\n      NMM=N-M\r\n      IF(I2.NE.NMM) GO TO 9\r\n      V=GAMMA(M+N+1)/(GAMMA(I+1)*GAMMA(M+I+1))\r\n      IF(IR.NE.0) GO TO 100\r\n      V=V*(-1.0)**I\r\n      GO TO 100\r\n    9 V=0.0\r\n      RETURN\r\n    8 Y=W/(X*X)\r\n      IF(IR.EQ.0) GO TO 11\r\n      GO TO 12\r\n   11 Y=-Y\r\n      W=-W\r\n   12 J=3\r\n      V=0.0\r\n      DO 13 I=1,22\r\n      II=(N-M+2)/2\r\n      IF(II.LT.I) GO TO 100\r\n      V=V+GAMMA(N+N-I-I+3)*Z/(GAMMA(I)*GAMMA(N-I+2)*GAMMA(N-I-I-M+J))\r\n   13 Z=Z*Y\r\n  100 Z=1.0\r\n      DO 101 I=1,N\r\n  101 Z=Z+Z\r\n      V=V/Z\r\n      IF(IR.NE.0) GO TO 102\r\n      GO TO 103\r\n  102 II=N/4\r\n      I=N-4*II\r\n      IF(I.GT.1) GO TO 104\r\n      GO TO 103\r\n  104  V=-V\r\n  103  IF(M.EQ.0) RETURN\r\n      J=M/2\r\n      CF=W+X*X\r\n      Z=ABS(CF)\r\n      J2=J+J\r\n      IF(M.NE.J2) GO TO 107\r\n      GO TO 105\r\n  107 Z=SQRT(Z)\r\n      J=M\r\n  105 IF(J.LT.1) J=1\r\n      DO 106 I=1,J\r\n  106 V=V*Z\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/polypt.f",
    "content": "      SUBROUTINE POLYPT( LOCTOF,STEDGE,TR, NGRIDF,FLEDGE,FL,LOCFOS, EPS,\r\n     1  NPOLY,P)\r\nC\r\nC     POLYPT DETERMINES PERIMETER POINTS OF AREA COMMON TO STRUCTURAL\r\nC        TRIANGLE BOUNDED BY TR POINTS AND FLUID ELEMENT BOUNDED BY\r\nC        (3 OR 4) FL POINTS\r\nC\r\n      DOUBLE PRECISION P(2,7)\r\n      DOUBLE PRECISION TR(3,3), FL(3,4), SS(2), P1(2), EPS(2)\r\n      INTEGER   STEDGE(2,3), FLEDGE(2,4), KEDGE(2,5), JEDGE(2,7)\r\n     1, LOCTOF(3), LOCFOS(4)\r\nC\r\n      IP= 0\r\n      NPOLY= 0\r\nC\r\n      DO 10 I=1,2\r\n      DO 10 J=1,7\r\n   10 P(I,J)= 0.D0\r\nC\r\n      DO 20 K=1,3\r\n      IF ( LOCTOF(K) .LT. 0)  GO TO 40\r\n   20 CONTINUE\r\nC\r\nC     STRUCTURAL TRIANGLE IS COMMON AREA WHEN NO STR PTS LIE OUTSIDE\r\nC        FLUID ELEMENT BOUNDRY\r\n      IP= 3\r\n      DO 30 K=1,3\r\n      DO 30 I=1,2\r\n   30 P(I,K)= TR(I,K)\r\n      GO TO 9000\r\nC\r\n   40 CONTINUE\r\nC\r\n      K= NGRIDF -1\r\n      DO 50 I=1,2\r\n      DO 45 J=1,K\r\n      JEDGE(I,J)= FLEDGE(I,J)\r\n   45 JEDGE(I,J+NGRIDF)= FLEDGE(I,J)\r\n   50 JEDGE(I,NGRIDF)= FLEDGE(I,NGRIDF)\r\nC\r\n      DO 60 I=1,2\r\n      DO 55 J=1,2\r\n      KEDGE(I,J)= STEDGE(I,J)\r\n   55 KEDGE(I,J+3)= STEDGE(I,J)\r\n   60 KEDGE(I,3)= STEDGE(I,3)\r\nC\r\nC\r\n      DO 100 K=1,3\r\n      K1= KEDGE(1,K)\r\n      K2= KEDGE(2,K)\r\n      DO 100 J=1,NGRIDF\r\n      J1= JEDGE(1,J)\r\n      J2= JEDGE(2,J)\r\n      CALL PTINTR( TR(1,K1),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS)\r\n      IF (INTER .EQ. 1)  GO TO 200\r\n  100 CONTINUE\r\nC\r\nC - - AREAS ARE DISJOINT\r\n      GO TO 9000\r\nC\r\nC\r\n  200 JLAST= J\r\n      JJ1= J\r\n      JJ2= J +NGRIDF -1\r\n      KLAST= K\r\n      KK1= K +1\r\n      KK2= K+2\r\nC\r\n      IF (LOCTOF(K1) .EQ. 1)  GO TO 1800\r\nC     1ST TRI POINT IS OUTSIDE FLUID BOUNDRY\r\n      P1(2)= SS(2)\r\n      P1(1)= SS(1)\r\n      AP1= (P1(1)-TR(1,K1))**2 +(P1(2)-TR(2,K1))**2\r\n      JP1= JLAST\r\n      JJ1= JLAST+1\r\nC\r\n      DO 300 J=JJ1,JJ2\r\n      J1= JEDGE(1,J)\r\n      J2= JEDGE(2,J)\r\n      CALL PTINTR( TR(1,K1),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS)\r\n      IF (INTER .EQ. 1)  GO TO 400\r\n  300 CONTINUE\r\nC\r\n      IP= IP+1\r\n      P(1,IP)= P1(1)\r\n      P(2,IP)= P1(2)\r\n      GO TO 1000\r\nC\r\n  400 AP2= (SS(1)-TR(1,K1))**2 + (SS(2)-TR(2,K1))**2\r\n      IF (AP1 .LT. AP2)  GO TO 500\r\nC\r\n      P(1,IP+1)= SS(1)\r\n      P(2,IP+1)= SS(2)\r\n      P(1,IP+2)= P1(1)\r\n      P(2,IP+2)= P1(2)\r\n      IP= IP+2\r\n      JLAST= JP1\r\n      GO TO 600\r\nC\r\n  500 P(1,IP+1)= P1(1)\r\n      P(2,IP+1)= P1(2)\r\n      P(1,IP+2)= SS(1)\r\n      P(2,IP+2)= SS(2)\r\n      IP= IP+2\r\n      JLAST= J\r\nC\r\n  600 CONTINUE\r\n      IF ( JLAST .GT. NGRIDF)  JLAST= JLAST -NGRIDF\r\n      JJ1= JLAST\r\n      JJ2= JJ1 +NGRIDF -1\r\n      J2= JEDGE(2,JLAST)\r\n      GO TO 2000\r\nC\r\nC     SEARCH ALONG LAST STRUCTURAL TRIANGLE EDGE FOR NEXT PTINTR\r\nC\r\n 1000 IF ( LOCTOF(K2) .LT. 0)  GO TO 1100\r\n      IF (TR(1,K2) .EQ. P(1,1)  .AND. TR(2,K2) .EQ. P(2,1))  GO TO 9000\r\n      IP= IP+1\r\n      P(1,IP)= TR(1,K2)\r\n      P(2,IP)= TR(2,K2)\r\n      KLAST= KLAST +1\r\n      IF ( KLAST .EQ. KK2)   GO TO 9000\r\n      K2= KEDGE(2,KLAST)\r\n      GO TO 1000\r\nC\r\n 1100 CONTINUE\r\n      JJ1= JLAST\r\n      IF (JJ1 .GT. JJ2)  GO TO 9000\r\n      DO 1150 J= JJ1,JJ2\r\n      J1= JEDGE(1,J)\r\n      J2= JEDGE(2,J)\r\n      CALL PTINTR( P(1,IP),TR(1,K2), FL(1,J1),FL(1,J2), SS, INTER, EPS)\r\n      IF ( INTER .EQ. 1)  GO TO 1200\r\n 1150 CONTINUE\r\nC\r\n      GO TO 9000\r\nC\r\n 1200 IF (SS(1) .EQ. P(1,1)  .AND.  SS(2) .EQ. P(2,1))  GO TO 9000\r\n      IP= IP +1\r\n      P(1,IP)= SS(1)\r\n      P(2,IP)= SS(2)\r\n      JLAST= J\r\n      GO TO 2000\r\nC\r\n 1800 P(1,IP+1)= TR(1,K1)\r\n      P(2,IP+1)= TR(2,K1)\r\n      P(1,IP+2)= SS(1)\r\n      P(2,IP+2)= SS(2)\r\n      IP= IP+2\r\nC\r\nC     SEARCH ALONG LAST FLUID EDGE FOR NEXT PTINTR\r\nC\r\n 2000 IF ( LOCFOS(J2) .LT. 0)  GO TO 2100\r\n      IF (FL(1,J2) .EQ. P(1,1)  .AND.  FL(2,J2) .EQ. P(2,1))  GO TO 9000\r\n      IP= IP+1\r\n      P(1,IP)= FL(1,J2)\r\n      P(2,IP)= FL(2,J2)\r\n      JLAST= JLAST +1\r\n      IF ( JLAST .GT. JJ2)   GO TO 9000\r\n      J2= JEDGE(2,JLAST)\r\n      GO TO 2000\r\nC\r\n 2100 CONTINUE\r\n      KK1= KLAST\r\n      IF (KK1 .GT. KK2)  GO TO 9000\r\n      DO 2150 K=KK1,KK2\r\n      K1= KEDGE(1,K)\r\n      K2= KEDGE(2,K)\r\n      CALL PTINTR( P(1,IP),FL(1,J2), TR(1,K1),TR(1,K2), SS, INTER, EPS)\r\n      IF ( INTER .EQ. 1)  GO TO 2200\r\n 2150 CONTINUE\r\nC\r\n      GO TO 9000\r\nC\r\n 2200 IF (SS(1) .EQ. P(1,1)  .AND.  SS(2) .EQ. P(2,1))  GO TO 9000\r\n      IP= IP +1\r\n      P(1,IP)= SS(1)\r\n      P(2,IP)= SS(2)\r\n      KLAST= K\r\n      GO TO 1000\r\nC\r\nC\r\n 9000 CONTINUE\r\n      NPOLY= IP\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/prefix.f",
    "content": "      SUBROUTINE PREFIX (IPREFX,NAME)\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ORF\r\n      INTEGER         NAME(2),RSHIFT,ORF,RWORD\r\n      COMMON /SYSTEM/ JUNK(38),NBPC,NBPW,NCPW\r\n      DATA    IBLNK / 4H     /\r\nC\r\n      IBLANK = IBLNK\r\nC\r\nC     THIS ROUTINE PREFIXES THE TWO WORD VARIABLE 'NAME' WITH THE SINGLE\r\nC     CHARACTER PREFIX 'IPREFX'.\r\nC\r\nC     SET RIGHT HAND PORTION OF WORDS TO ZERO.\r\nC\r\n      LWORD  = LSHIFT( RSHIFT( NAME(1),NBPW-4*NBPC ) , NBPW-4*NBPC )\r\n      RWORD  = LSHIFT( RSHIFT( NAME(2),NBPW-4*NBPC ) , NBPW-4*NBPC )\r\n      IPREFX = LSHIFT( RSHIFT( IPREFX,NBPW-NBPC ) , NBPW-NBPC )\r\n      IBLANK = RSHIFT( LSHIFT( IBLANK,4*NBPC ) , 4*NBPC )\r\nC\r\nC     MOVE RIGHT WORD ONE CHARACTER AND PREFIX WITH LAST CHARACTER\r\nC     OF LEFT WORD.\r\nC\r\n      RWORD = ORF( LSHIFT( LWORD,3*NBPC ) , RSHIFT( RWORD,NBPC ) )\r\n      RWORD = LSHIFT( RSHIFT( RWORD  ,NBPW-4*NBPC ) , NBPW-4*NBPC )\r\n      RWORD = ORF( RWORD , IBLANK )\r\nC\r\nC     MOVE LEFT WORD ONE CHARACTER TO RIGHT AND PREFIX WITH INPUT\r\nC     VALUE.\r\nC\r\n      LWORD = ORF( IPREFX , RSHIFT( LWORD,NBPC))\r\n      LWORD = LSHIFT( RSHIFT( LWORD  ,NBPW-4*NBPC ) , NBPW-4*NBPC )\r\n      LWORD = ORF( LWORD , IBLANK )\r\nC\r\n      NAME(1) = LWORD\r\n      NAME(2) = RWORD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/preloc.f",
    "content": "      SUBROUTINE PRELOC (*,BUF,FILE)\r\nC\r\nC     PRELOC OPENS AND POSITIONS REQUESTED FILE TO FIRST DATA RECORD.\r\nC     LOCATE POSITIONS FILE TO REQUESTED DATA RECORD WITHIN FILE.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         BUF(2),FILE  ,NAM(2),TRL(7),NM1(2),FLAG  ,ANDF  ,\r\n     1                TWO   ,RET   ,BFF(1),ID(2) ,FLG\r\n      COMMON /TWO   / TWO(32)\r\n      DATA    NAM   ,        NM1          /\r\n     1        4HPREL, 4HOC  ,4HLOCA,4HTE  /\r\nC\r\nC     OPEN FILE. IF PURGED, GIVE ALTERNATE RETURN.\r\nC     OTHERWISE SKIP HEADER RECORD\r\nC\r\n      TRL(1) = FILE\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) GO TO 10\r\n      IF (TRL(2)+TRL(3)+TRL(4)+TRL(5)+TRL(6)+TRL(7) .EQ. 0) GO TO 10\r\n      CALL OPEN (*10,FILE,BUF(2),0)\r\n      CALL FWDREC (*2,FILE)\r\n      BUF(1) = FILE\r\n      ICHECK = 123456789\r\n      RETURN\r\n   10 RETURN 1\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n    2 CALL MESAGE (-2,FILE,NAM)\r\n    3 CALL MESAGE (-3,TRL,NM1)\r\nC\r\nC\r\n      ENTRY LOCATE (*,BFF,ID,FLG)\r\nC     ===========================\r\nC\r\nC     ENTRY TO POSITION DATA RECORD.\r\nC\r\nC     READ TRAILER FOR FILE. IF BIT NOT ON OR FILE PURGED,\r\nC     GIVE ALTERNATE RETURN.\r\nC\r\nCWKBD IF (ICHECK .NE. 123456789) CALL ERRTRC ('LOCATE  ',10)\r\n      TRL(1) = BFF(1)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0) RETURN 1\r\n      K = (ID(2)-1)/16\r\n      L =  ID(2)- 16*K\r\n      IF (ANDF(TRL(K+2),TWO(L+16)) .EQ. 0) RETURN 1\r\nC\r\nC     READ THREE ID WORDS FROM DATA RECORD.\r\nC     IF END-OF-FILE, REPOSITION FILE TO FIRST DATA RECORD AND RETRY.\r\nC     IF ID WORD MATCHES USER, RETURN.\r\nC\r\n      LAST = 0\r\n      ASSIGN 20 TO RET\r\n   20 CALL READ (*50,*20,TRL(1),TRL(2),3,0,FLAG)\r\n      IF (TRL(2) .NE. ID(1)) GO TO 22\r\n      FLG = TRL(4)\r\n      RETURN\r\nC\r\nC     SKIP RECORD. READ ID WORDS FROM NEXT RECORD. IF MATCH,RETURN.\r\nC     IF END-OF FILE, REPOSITION TO FIRST DATA RECORD AND RETRY.\r\nC     IF NO MATCH, TEST FOR RETURN TO ORIGINAL FILE POSITION. IF SO,\r\nC     QUEUE MESSAGE AND GIVE ALTERNATE RETURN. IF NOT, CONTINUE SEARCH.\r\nC\r\n   22 ASSIGN 30 TO RET\r\n   25 CALL FWDREC (*2,TRL(1))\r\n   30 CALL READ (*50,*3,TRL(1),TRL(5),3,0,FLAG)\r\n      IF (TRL(5) .NE. ID(1)) GO TO 32\r\n      FLG = TRL(7)\r\n      RETURN\r\nC\r\n   32 IF (TRL(5) .NE. TRL(2)) GO TO 25\r\n   35 CALL SSWTCH (40,J)\r\nCWKBD IF (J .NE. 0) CALL ERRTRC ('LOCATE  ',35)\r\n      CALL MESAGE (30,72,ID)\r\n      CALL FWDREC (*2,TRL(1))\r\n      RETURN 1\r\nC\r\nC     CODE TO POSITION FILE TO FIRST DATA RECORD.\r\nC\r\n   50 CALL REWIND (TRL(1))\r\n      IF (LAST .NE. 0) GO TO 35\r\n      LAST = 1\r\n      CALL FWDREC (*2,TRL(1))\r\n      GO TO RET, (20,30)\r\n      END\r\n"
  },
  {
    "path": "mis/premat.f",
    "content": "      SUBROUTINE PREMAT (IZ,RZ,BFR,NIMAT,N2MAT,MPTF,DITF)\r\nC\r\nC     REVISED 7/92, BY G.CHAN, NEW REFERENCE TO OPEN CORE ARRAY, SUCH\r\nC     THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANADARD\r\nC\r\n      LOGICAL         PART1 ,PLA   ,TDEP\r\n      INTEGER         IZ(1) ,BFR(1),DITF  ,QMAT1 ,QMAT2 ,QMATX ,FLAG  ,\r\n     1                MAT1(2)      ,MATT1(2)     ,DIT   ,BUF(3),TEMPID,\r\n     2                NAM(2),BACK  ,RET   ,MAT2(2)      ,MATT2(2)     ,\r\n     3                RET1  ,PASS  ,TABLID,TABLEI(16)   ,MATS1(2)     ,\r\n     4                MAT3(2)      ,MATT3(2)     ,QMAT3 ,QMAT8 ,MAT8(2)\r\n      INTEGER         QMATF ,ELEMID,QMTPZ1,QMTPZ2,QMAT6 ,SYSBUF,MATF(2)\r\n      INTEGER         Z     ,OFFSET\r\n      REAL            NU    ,RZ(1) ,X(27) ,Y(25) ,NUX   ,NUXX  ,J11   ,\r\n     1                J12   ,J22   ,NUXY3 ,NUYZ3 ,NUZX3 ,MATSET,ZZ(1)\r\n      DIMENSION       MATPZ1(2)    ,MATPZ2(2)    ,MTTPZ1(2)    ,\r\n     1                MTTPZ2(2)    ,BUFPZ(51)    ,MAT6(2)      ,\r\n     2                MATT6(2)     ,BUFTM6(39)   ,XY(108)      ,\r\n     3                IB(46)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT  ,SKP(7),TEMPID\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /MATIN / MATID ,INFLAG,TEMP  ,PLAARG,SINTH ,COSTH\r\n      COMMON /MATOUT/ E     ,G     ,NU    ,RHO   ,ALPHA ,TO    ,GE    ,\r\n     1                SIGMAT,SIGMAC,SIGMAS,SPACE(15)    ,TDEP  ,\r\n     2                DUM26(26)\r\nC\r\nC     COMMON FOR PIEZOELECTRIC MATERIAL\r\n      COMMON /MATPZ / PZOUT(51)\r\nC\r\nC     ISOPARAMETRIC MATERIALS\r\nC     COMMON /MATISO/ G11   ,G12   ,G13   ,G14   ,G15   ,G16   ,G12   ,\r\nC                     G22,..,G56   ,G66   ,RHO   ,\r\nC                     AXX   ,AYY   ,AZZ   ,AXY   ,AYZ   ,AZX   ,TREF  ,\r\nC                     GE    ,IER\r\nC\r\n      COMMON /MATISO/ BUFM6(46)\r\n      EQUIVALENCE     (E    ,BUF(1),Y(1) ),\r\n     1                (Y( 1),G11   ,EX3  ,PLAANS ,INDSTR),\r\n     2                (Y( 2),G12   ,EY3  ,ICELL2),\r\n     3                (Y( 3),G13   ,EZ3  ),\r\n     4                (Y( 4),G22   ,NUXY3),\r\n     5                (Y( 5),G23   ,NUYZ3),\r\n     6                (Y( 6),G33   ,NUZX3),\r\n     7                (Y( 7),RHOY  ,RHO3 ),\r\n     8                (Y( 8),ALPH1 ,GXY3 ),\r\n     9                (Y( 9),ALPH2 ,GYZ3 ),\r\n     O                (Y(10),ALPH12,GZX3 ),\r\n     1                (Y(11),TOY   ,AX3  ),\r\n     2                (Y(12),GEY   ,AY3  ),\r\n     3                (Y(13),SIGTY ,AZ3  ),\r\n     4                (Y(14),SIGCY ,TREF3),\r\n     5                (Y(15),SIGSY ,GE3  )\r\n      EQUIVALENCE     (Y(16),J11   ,G113 ),\r\n     1                (Y(17),J12   ,G123 ),\r\n     2                (Y(18),J22   ,G133 ),\r\n     3                (Y(19),       G223 ),\r\n     4                (Y(20),       G233 ),\r\n     5                (Y(21),       G333 ),\r\n     6                (Y(22),     SIGTY3 ),\r\n     7                (Y(23),     SIGCY3 ),\r\n     8                (Y(24),     SIGSY3 ),\r\n     9                (Y(25),     MATSET )\r\n      EQUIVALENCE     (X( 1)    , EX     ),\r\n     1                (X( 2)    , GX     ),\r\n     2                (X( 3)    , NUX    ),\r\n     3                (X( 4)    , RHOX   ),\r\n     4                (X( 5)    , ALPHX  ),\r\n     5                (X( 6)    , TOX    ),\r\n     6                (X( 7)    , GEX    ),\r\n     7                (X( 8)    , SIGTX  ),\r\n     8                (X( 9)    , SIGCX  ),\r\n     9                (X(10)    , SIGSX  )\r\n      EQUIVALENCE     (BUFM6(1) , IB(1)  )\r\n      EQUIVALENCE     (ZZ(1)    , Z(1)   )\r\nC\r\nC     DATA DEFINING CARDS TO BE READ\r\nC\r\n      DATA    MAT1   ,  KMAT1  ,  LMAT1  /  103, 1,   11,     31 /  ,\r\n     2        MAT2   ,  KMAT2  ,  LMAT2  /  203, 2,   16,     46 /  ,\r\n     3        MAT3   ,  KMAT3  ,  LMAT3  / 1403,14,   16,     46 /  ,\r\n     6        MAT6   ,  KMAT6  ,  LMAT6  / 2503,25,   40,    118 /  ,\r\n     8        MAT8   ,  KMAT8  ,  LMAT8  /  603, 6,   18,     52 /  ,\r\n     1        MATT1                      /  703, 7               /  ,\r\n     2        MATT2                      /  803, 8               /  ,\r\n     3        MATT3                      / 1503,15               /  ,\r\n     6        MATT6                      / 2603,26               /  ,\r\n     1        MATS1                      /  503, 5               /  ,\r\n     1        MATPZ1 ,  KMTPZ1 ,  LMTPZ1 / 1603,16,   15,     43 /  ,\r\n     2        MATPZ2 ,  KMTPZ2 ,  LMTPZ2 / 1703,17,   52,    154 /  ,\r\n     1        MTTPZ1                     / 1803,18               /  ,\r\n     2        MTTPZ2                     / 1903,19               /  ,\r\n     F        MATF   ,  KMATF  ,  LMATF  / 5110,51,    3,      3 /\r\n      DATA    NTYPES,   TABLEI /  8,\r\n     1        105 , 1,  205 , 2,  305 , 3,  405 , 4,  3105,31,  3205,32,\r\n     2        3305,33,  3405,34/\r\n      DATA    NAM    /  4HMAT ,   4H     /\r\nC\r\nC     MAT1 AND MAT2 HAVE ONE EXTRA WORD AT END\r\nC\r\n      DATA NWMAT1 /  12 /  ,   NWMAT2 / 17  /\r\nC\r\nC      - DATA IN /MATOUT/ IN VARIOUS MAT FORMATS, AND INFLAGS -\r\nC\r\nC     FORMAT  MAT1    MAT2                     MAT3      MAT6  MAT8 MATP\r\nC     INFLAG=   1   2,3,12    4      5    6,8     7   11   10    12\r\nC     -WORD- -----  ------  --- ------ ------ ----- ---- ---- ----- ----\r\nC       1       E     G11   RHO INDSTR PLAANS    EX         :    E1    E\r\nC       2       G     G12             ICDLL/8    EY         :  NU12    E\r\nC       3      NU     G13                        EZ              E2\r\nC       4     PHO     G22                      NUXY  RHO        G12\r\nC       5    ALPH     G23                      NUYZ             G2Z\r\nC       6      T0     G33                      NUZX             G1Z\r\nC       7      GE     RHO                       RHO             RHO\r\nC       8    SIGT   ALPH1    (X/N INDICATES     GXY           ALPH1\r\nC       9    SIGC   ALPH2     ITEM X IS FOR     GYZ           ALPH2\r\nC      10    SIGS  ALPH12     INFLAG=N ONLY)    GZX              TO\r\nC      11              TO                        AX              TL\r\nC      12              GE                        AY              CL\r\nC      13            SIGT                        AZ              TT\r\nC      14            SIGC                        TO              CT\r\nC      15            SIGS                        GE              IS\r\nC      16         E/12 J11/3                     G11             GE\r\nC      17         E/12 J12/3                     G12            F12\r\nC      18              J22/3                     G13\r\nC      19                                        G22\r\nC      20                                        G23\r\nC      21                                        G33\r\nC      22                                       SIGT\r\nC      23                                       SIGC\r\nC      24                                       SIGS\r\nC      25  MATSET  MATSET                     MATSET          MATSET\r\nC      26    TDEP\r\nC       :\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      QMAT1  = 0\r\n      QMAT2  = 0\r\n      QMAT3  = 0\r\n      QMAT6  = 0\r\n      QMAT8  = 0\r\n      QMATF  = 0\r\n      QMATX  = 0\r\n      QMTPZ1 = 0\r\n      QMTPZ2 = 0\r\n      PLA    = .FALSE.\r\n      IF (DITF .LT. 0) PLA = .TRUE.\r\n      PART1  = .TRUE.\r\n      I      =-1\r\n      MPT    = MPTF\r\n      DIT    = IABS(DITF)\r\n      OFFSET = LOCFX(IZ(1)) - LOCFX(Z(1))\r\n      IF (OFFSET .LT. 0) CALL ERRTRC ('PREMAT  ',10)\r\n      N1MAT  = NIMAT + OFFSET\r\nC\r\nC     READ MAT1,MAT2 AND MAT3 CARDS.  SPREAD FORMAT SO THAT MATTI AND\r\nC     MATSI TEMPERATURE AND STRESS-STRAIN TABLE NUMBERS CAN BE MERGED\r\nC\r\n      CALL PRELOC (*350,BFR,MPT)\r\n      IMAT1 = 1 + OFFSET\r\n      I     = 1 + OFFSET\r\n      CALL LOCATE (*60,BFR,MAT1,FLAG)\r\n      QMAT1 = 1\r\n      IMHERE= 30\r\n   30 CALL READ (*1350,*50,MPT,BUF,NWMAT1,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 40 J = 2,KMAT1\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n   40 I = I + 3\r\n      GO TO 30\r\n   50 NMAT1 = I - LMAT1\r\n   60 IMAT2 = I\r\n      CALL LOCATE (*100,BFR,MAT2,FLAG)\r\n      QMAT2 = 1\r\n      IMHERE= 70\r\n   70 CALL READ (*1350,*90,MPT,BUF,NWMAT2,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 80 J = 2,KMAT2\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n   80 I = I + 3\r\n      GO TO 70\r\n   90 NMAT2 = I - LMAT2\r\n  100 IMAT3 = I\r\n      CALL LOCATE (*131,BFR,MAT3,FLAG)\r\n      QMAT3 = 1\r\n      IMHERE= 110\r\n  110 CALL READ (*1350,*130,MPT,BUF,KMAT3,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 120 J = 2,KMAT3\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n  120 I = I + 3\r\n      GO TO 110\r\n  130 NMAT3  = I - LMAT3\r\n  131 IMTPZ1 = I\r\n      CALL LOCATE (*135,BFR,MATPZ1,FLAG)\r\n      QMTPZ1 = 1\r\n      IMHERE = 132\r\n  132 CALL READ (*1350,*134,MPT,BUF,KMTPZ1,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 133 J = 2,KMTPZ1\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n  133 I = I + 3\r\n      GO TO 132\r\n  134 NMTPZ1 = I - LMTPZ1\r\n  135 IMTPZ2 = I\r\n      CALL LOCATE (*140,BFR,MATPZ2,FLAG)\r\n      QMTPZ2 = 1\r\n      IMHERE = 136\r\n  136 CALL READ (*1350,*138,MPT,BUF,KMTPZ2,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 137 J = 2,KMTPZ2\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n  137 I = I + 3\r\n      GO TO 136\r\n  138 NMTPZ2 = I - LMTPZ2\r\n  140 IMAT6  = I\r\n      CALL LOCATE (*144,BFR,MAT6,FLAG)\r\n      QMAT6  = 1\r\n      IMHERE = 141\r\n  141 FLAG   = 0\r\n      CALL READ (*1350,*143,MPT,BUF,KMAT6,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 142 J = 2,KMAT6\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n  142 I = I + 3\r\n      GO TO 141\r\n  143 NMAT6 = I - LMAT6\r\n      IF (FLAG .NE. 0) GO TO 1570\r\n  144 IMAT8 = I\r\n      CALL LOCATE (*1444,BFR,MAT8,FLAG)\r\n      QMAT8 = 1\r\n      IMHERE= 1441\r\n 1441 FLAG  = 0\r\n      CALL READ (*1350,*1443,MPT,BUF,KMAT8,0,FLAG)\r\n      Z(I) = BUF(1)\r\n      I    = I + 1\r\n      DO 1442 J = 2,KMAT8\r\n      Z(I  ) = BUF(J)\r\n      Z(I+1) = 0\r\n      Z(I+2) = 0\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n 1442 I = I + 3\r\n      GO TO 1441\r\n 1443 NMAT8 = I - LMAT8\r\n      IF (FLAG .NE. 0) GO TO 1570\r\n 1444 IMATF = I\r\n      CALL LOCATE (*149,BFR,MATF,FLAG)\r\n      QMATF  = 1\r\n      IMHERE = 145\r\n  145 CALL READ (*1350,*148,MPT,BUF,KMATF,0,FLAG)\r\n      Z(I  ) = BUF(1)\r\n      Z(I+1) = BUF(2)\r\n      Z(I+2) = BUF(3)\r\n      I = I + 3\r\n      GO TO 145\r\n  148 NMATF = I - LMATF\r\n  149 ILIST = I\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n      CALL CLOSE (MPT,CLSREW)\r\nC\r\nC     IF TEMPERATURE OR PLA PROBLEM, READ THE MATTI OR MATSI CARDS.\r\nC     MERGE MATSI AND MATTI DATA WITH MATI DATA.\r\nC     SAVE A LIST OF TABLES REFERENCED.\r\nC\r\n      IF (     PLA .AND. TEMPID.NE.0) GO TO 1540\r\n      IF (.NOT.PLA .AND. TEMPID.EQ.0) GO TO 350\r\n      CALL PRELOC (*350,BFR,MPT)\r\n      IF (TEMPID .NE. 0) GO TO 160\r\n      NX = 3\r\n      CALL LOCATE (*150,BFR,MATS1,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  150 TO BACK\r\n      ASSIGN 1420 TO RET1\r\n      ASSIGN  820 TO PASS\r\n      N = KMAT1\r\n      GO TO 910\r\n  150 CONTINUE\r\n  160 NX = 2\r\n      CALL LOCATE (*170,BFR,MATT1,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  170 TO BACK\r\n      ASSIGN 1450 TO RET1\r\n      ASSIGN  820 TO PASS\r\n      N = KMAT1\r\n      GO TO 910\r\n  170 CALL LOCATE (*180,BFR,MATT2,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  180 TO BACK\r\n      ASSIGN 1460 TO RET1\r\n      ASSIGN  850 TO PASS\r\n      N = KMAT2\r\n      GO TO 910\r\n  180 CALL LOCATE (*181,BFR,MATT3,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  181 TO BACK\r\n      ASSIGN 1520 TO RET1\r\n      ASSIGN  880 TO PASS\r\n      N = KMAT3\r\n      GO TO 910\r\n  181 CALL LOCATE (*182,BFR,MTTPZ1,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  182 TO BACK\r\n      ASSIGN 1551 TO RET1\r\n      ASSIGN  901 TO PASS\r\n      N = KMTPZ1\r\n      GO TO 910\r\n  182 CALL LOCATE (*183,BFR,MTTPZ2,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  183 TO BACK\r\n      ASSIGN 1552 TO RET1\r\n      ASSIGN  904 TO PASS\r\n      N = KMTPZ2\r\n      GO TO 910\r\n  183 CALL LOCATE (*190,BFR,MATT6,FLAG)\r\n      QMATX = 1\r\n      ASSIGN  190 TO BACK\r\n      ASSIGN 1560 TO RET1\r\n      ASSIGN  907 TO PASS\r\n      N = 31\r\n      GO TO 910\r\n  190 ITABL = I\r\n      IMHERE= 190\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n      NLIST = ITABL - 11\r\n      CALL CLOSE (MPT,CLSREW)\r\nC\r\nC     IF ANY MATTI OR MATSI CARDS WERE READ, FORM A SORTED LIST OF TABLE\r\nC     NUMBERS REFERENCED ON THESE CARDS. THEN, DISCARD ANY DUPLICATES IN\r\nC     THE LIST SO THAT THE LIST CONTAINS UNIQUE TABLE NOS. TO BE READ.\r\nC\r\n      IF (QMATX .EQ. 0) GO TO 350\r\n      DO 220 II = ILIST,NLIST,11\r\n      MIN = 999999999\r\n      DO 210 JJ = II,NLIST,11\r\n      IF (Z(JJ) .GE. MIN) GO TO 210\r\n      MIN = Z(JJ)\r\n      JX  = JJ\r\n  210 CONTINUE\r\n      Z(JX) = Z(II)\r\n  220 Z(II) = MIN\r\n      Z(ITABL) = 0\r\n      JJ = ILIST\r\n      DO 230 II = ILIST,NLIST,11\r\n      IF (Z(II+11) .EQ. Z(II)) GO TO 230\r\n      Z(JJ) = Z(II)\r\n      JJ = JJ + 11\r\n  230 CONTINUE\r\n      ITABL = JJ\r\n      NLIST = JJ - 11\r\nC\r\nC     READ THE DIT BY TABLE TYPE. FOR EACH TABLE IN THE DIT, LOOK UP IN\r\nC     TABLE NO. LIST TO DETERMINE IF THE TABLE IS REQUIRED FOR PROBLEM\r\nC     SOLUTION. IF NOT, SKIP THE TABLE. IF SO, READ THE TABLE INTO CORE\r\nC     AND STORE POINTERS TO THE FIRST AND LAST ENTRIES IN THE TABLE AND\r\nC     THE TYPE OF TABLE. THIS INFORMATION IS STORED IN THE TABLE NO.\r\nC     LIST\r\nC\r\n      CALL PRELOC (*1370,BFR,DIT)\r\n      I = ITABL\r\n      J = 1\r\n      ASSIGN 260 TO RET\r\n      ASSIGN 280 TO RET1\r\n  240 JJ = J + J - 1\r\n      CALL LOCATE (*290,BFR,TABLEI(JJ),FLAG)\r\n  250 CALL READ (*1380,*290,DIT,BUF,8,0,FLAG)\r\n      NWDS = 2\r\n      IF (J.EQ.4 .OR. J.EQ.8) NWDS = 1\r\n      TABLID = BUF(1)\r\n      GO TO 960\r\n  260 Z(L+1) = J\r\n      IF (J .GT. 4) Z(L+1) = J - 4\r\n      Z(L+2) = I\r\n      IMHERE = 270\r\n  270 CALL READ (*1380,*1390,DIT,Z(I),NWDS,0,FLAG)\r\n      IF (Z(I) .EQ. -1) GO TO 300\r\n      I = I + NWDS\r\n      IF (I .GT. N1MAT) GO TO 1398\r\n      GO TO 270\r\n  280 CALL READ (*1380,*1390,DIT,BUF,NWDS,0,FLAG)\r\n      IF (BUF(1) .EQ. -1) GO TO 250\r\n      GO TO 280\r\n  290 J = J + 1\r\n      IF (J .LE. NTYPES) GO TO 240\r\n      CALL CLOSE (DIT,CLSREW)\r\n      GO TO 330\r\n  300 Z(L+3) = I - NWDS\r\nC\r\nC     STORE THE PARAMETERS ON THE TABLEI CARD IN LOCATIONS\r\nC     Z(L+4),Z(L+5),...,Z(L+10)\r\nC\r\n      DO 310 K = 2,8\r\n      LX = L + K\r\n  310 Z(LX+2) = BUF(K)\r\nC\r\nC     IF THIS TABLE IS A POLYNOMIAL (TABLE4), EVALUATE THE END POINTS\r\nC     AND STORE AT ZZ(L+8) AND ZZ(L+9)\r\nC\r\n      IF (J .NE. 4) GO TO 250\r\n      XX = (ZZ(L+6) - ZZ(L+4))/ZZ(L+5)\r\n      ASSIGN 1330 TO IGOTO\r\n      GO TO 1280\r\n  320 ASSIGN 1340 TO IGOTO\r\n      XX = (ZZ(L+7) - ZZ(L+4))/ZZ(L+5)\r\n      GO TO 1280\r\nC\r\nC     TEST TO FOR ALL REFERENCED TABLES IN CORE\r\nC\r\n  330 FLAG = 0\r\n      DO 340 L = ILIST,NLIST,11\r\n      IF (Z(L+1) .NE. 0) GO TO 340\r\n      FLAG = 1\r\n      BUF(1) = Z(L)\r\n      BUF(2) = 0\r\n      CALL MESAGE (30,41,BUF)\r\n  340 CONTINUE\r\n      IF (FLAG .NE. 0) CALL MESAGE (-37,0,NAM)\r\nC\r\nC     WRAP UP PREMAT\r\nC\r\n  350 N2MAT  = I + 1 - OFFSET\r\n      MATIDO = 0\r\n      SINTHO = 2.0\r\n      COSTHO = 2.0\r\n      INFLGO = 0\r\n      PART1  =.FALSE.\r\n      MAPCK  =+999\r\n      RETURN\r\nC\r\nC     THE FOLLOWING POINTERS AND FLAGS ARE SET IN PREMAT FOR USE BY MAT-\r\nC     QMAT1 = 0, NO MAT1 TABLE, = 1, MAT1 TABLE PRESENT\r\nC     IMAT1 = POINTER TO FIRST ENTRY IN MAT1 TABLE\r\nC     LMAT1 = LENGTH  OF EACH  ENTRY IN MAT1 TABLE\r\nC     NAMT1 = POINTER TO LAST  ENTRY IN MAT1 TABLE\r\nC     QMAT2,  IMAT2, LMAT2 AND NMAT2 ARE DEFINED AS ABOVE FOR MAT2 TABLE\r\nC     QMATX = 0, NO TEMP OR STRESS TABLES PRESENT, = 1, OTHERWISW\r\nC     ILIST = POINTER TO FIRST ENTRY IN TABLE LIST\r\nC     NLIST = POINTER TO  LAST ENTRY IN TABLE LIST\r\nC\r\nC     THE TABLE LIST HAS 11 WORDS PER ENTRY AS FOLLOWS--\r\nC      1. TABLE NUMBER (I.E. ID NO.)\r\nC      2. TABLE TYPE (I.E. 1 = TABLE1, 2 = TABLE2 ETC.)\r\nC      3. POINTER TO FIRST ENTRY IN TABLE\r\nC      4. POINTER TO  LAST ENTRY IN TABLE\r\nC      5. THRU 11. PARAMETERS ON TABLEI CARD\r\nC     MATIDO = OLD MATERIAL ID (INITIALIZED TO  0 BY PREMAT)\r\nC     SINTHO = OLD SIN THETA   (INITIALIZED TO 2. BY PREMAT)\r\nC     INFLGO = OLD INFLAG      (INITIALIZED TO  0 BY PREMAT)\r\nC\r\nC\r\nC\r\n      ENTRY MAT (ELEMID)\r\nC     ==================\r\nC\r\nC     IF MAPCK .NE. +999 PREMAT HAS BEEN CORRUPTED.  (OVERLAY ERROR)\r\nC\r\n      IF (MAPCK .EQ. +999) GO TO 355\r\n      WRITE  (NOUT,353) MAPCK\r\n  353 FORMAT (//,' *** PREMAT OVERLEY ERROR',I12)\r\n      CALL ERRTRC ('PREMAT  ',353)\r\nC\r\nC\r\nC     INFLAG DESCRIBES PROCESSING REQUESTED BY CALLER\r\nC\r\n  355 GO TO (360 ,400 ,480 ,560 ,620 ,640 ,680 ,2000,2200,2400,2600,\r\n     1      2700), INFLAG\r\nC\r\nC     INFLAG = 1 MEANS CALLER WANTS ONLY MAT1 PROPERTIES IN MAT1 FORMAT\r\nC     IF NO TEMPERATURE DEPENDENT PROPERTIES AND MATID = OLD MATID,\r\nC     RETURN SINCE DATA IS ALREADY IN MATOUT\r\nC\r\n  360 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND.\r\n     1   .NOT. PLA) RETURN\r\n      MATIDO = MATID\r\n      INFLGO = INFLAG\r\n      TDEP   =.FALSE.\r\nC\r\nC     LOOK UP MATID IN MAT1 TABLE\r\nC\r\n      ASSIGN  380 TO RET\r\n      ASSIGN 1480 TO RET1\r\n      GO TO 820\r\nC\r\nC     PICK UP MATERIAL PROPERTIES FROM MAT1 ENTRY.\r\nC\r\n  380 I = K + 1\r\n      J = 1\r\n      ASSIGN 390 TO BACK\r\n      GO TO 980\r\n  390 Y(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT1) GO TO 980\r\n      RETURN\r\nC\r\nC     INFLAG = 2 MEANS CALLER WANTS MAT2 FORMAT WHETHER PROPERTIES ARE\r\nC     DEFINED IN MAT1 OR MAT2 TABLE.\r\nC     IF NO TEMPERATURE DEPENDENT PROPERTIES AND MATID = OLD MATID AND\r\nC     SIN THETA = OLD SIN THETA, RETURN\r\nC\r\n  400 IF (TEMPID.EQ.0 .AND.  MATID.EQ.MATIDO .AND. SINTH.EQ.SINTHO .AND.\r\n     1    .NOT.PLA    .AND. INFLAG.EQ.INFLGO .AND. COSTH.EQ.COSTHO)\r\n     2    RETURN\r\n      INFLGO = INFLAG\r\n      MATIDO = MATID\r\n      SINTHO = SINTH\r\n      COSTHO = COSTH\r\nC\r\nC     LOOK UP MATID IN MAT1 TABLE\r\nC\r\n  410 ASSIGN 420 TO RET1\r\n      ASSIGN 430 TO RET\r\n      GO TO 820\r\nC\r\nC     MATID NOT IN MAT1 TABLE, LOOK UP IN MAT2 TABLE\r\nC     - IF NOT PRESENT, FATAL ERROR IF INFLAG = 2\r\nC     - IF NOT PRESENT, SEARCH MAT8 TABLE IF INFLAG = 12\r\nC\r\n  420 ASSIGN 450 TO RET\r\n      ASSIGN 425 TO RET1\r\n      GO TO 850\r\n  425 IF (INFLGO .EQ. 12) GO TO 2710\r\n      GO TO 1480\r\nC\r\nC     MATID FOUND IN MAT1 TABLE.\r\nC     COMPUTE G MATRIX FROM MAT1 PROPERTIES.\r\nC     COMPLETE REMAINDER OF OUTPUT BUFFER IN MAT2 FORMAT.\r\nC\r\n  430 I = K + 1\r\n      J = 1\r\n      ASSIGN 440 TO BACK\r\n      MMAT = 1\r\n      GO TO 980\r\n  440 X(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT1) GO TO 980\r\n      NUXX  = 1.0 - NUX**2\r\n      G11   = EX/NUXX\r\n      G12   = NUX*G11\r\n      G13   = 0.\r\n      G22   = G11\r\n      G23   = 0.\r\n      G33   = GX\r\n      RHOY  = RHOX\r\n      ALPH1 = ALPHX\r\n      ALPH2 = ALPHX\r\n      ALPH12= 0.\r\n      TOY   = TOX\r\n      GEY   = GEX\r\n      SIGTY = SIGTX\r\n      SIGCY = SIGCX\r\n      SIGSY = SIGSX\r\n      IF (INFLGO .EQ. 12) GO TO 2701\r\n      RETURN\r\nC\r\nC     MATID FOUND IN MAT2 TABLE.\r\nC     PLACE PROPERTIES IN OUTPUT AREA IN MAT2 FORMAT\r\nC     THEN TEST FOR TRANSFORMATION. IF IDENTITY, RETURN. 3THERWISE,\r\nC     PERFORM  U(T)*G*U .\r\nC\r\n  450 I = K + 1\r\n      J = 1\r\n      MMAT = 2\r\n      ASSIGN 460 TO BACK\r\n      GO TO 980\r\n  460 Y(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J    .LT. KMAT2) GO TO 980\r\n      IF (INFLGO .EQ.  12) GO TO 2705\r\n      IF (SINTH  .EQ. 0.0) GO TO 470\r\n      IF (ABS(SINTH**2 + COSTH**2 - 1.0) .GT. .0001) GO TO 1485\r\nC\r\nC     TRANSFORM G , THE MATERIAL STIFFNESS PROPERTY MATRIX.\r\nC                M                   T\r\nC                            G   =  U * G * U\r\nC                             E          M\r\nC\r\n      X( 1) = COSTH**2\r\n      X( 2) = SINTH**2\r\n      X( 3) = COSTH*SINTH\r\n      X( 4) = X(2)\r\n      X( 5) = X(1)\r\n      X( 6) =-X(3)\r\n      X( 7) = 2.0*X(6)\r\n      X( 8) =-X(7)\r\n      X( 9) = X(1) - X(2)\r\n      X(10) = G11\r\n      X(11) = G12\r\n      X(12) = G13\r\n      X(13) = G12\r\n      X(14) = G22\r\n      X(15) = G23\r\n      X(16) = G13\r\n      X(17) = G23\r\n      X(18) = G33\r\n      CALL GMMATS (X(10),3,3,0,X( 1),3,3,0,X(19))\r\n      CALL GMMATS (X( 1),3,3,1,X(19),3,3,0,X(10))\r\n      G11   = X(10)\r\n      G12   = X(11)\r\n      G13   = X(12)\r\n      G22   = X(14)\r\n      G23   = X(15)\r\n      G33   = X(18)\r\nC\r\nC     COMPUTE THE TRANSFORMED TEMPERATURE EXPANSION VECTOR\r\nC               (ALPHA) = (U)*(ALPHA)\r\nC                                    M\r\nC\r\n      X(3)  = -X(3)\r\n      X(6)  = -X(6)\r\n      X(7)  = -X(7)\r\n      X(8)  = -X(8)\r\n      CALL GMMATS (X(1),3,3,0, Y(8),3,1,0, X(10))\r\n      ALPH1 = X(10)\r\n      ALPH2 = X(11)\r\n      ALPH12= X(12)\r\n  470 IF (INFLAG .EQ. 7) GO TO 813\r\n      RETURN\r\nC\r\nC     INFLAG = 3 IMPLIES THE CALLER WANTS\r\nC             (1) ONLY J11, J12 AND J22, AND\r\nC             (2) THE FIRST 15 LOCATIONS OF /MATOUT/ TO BE UNDISTURBED.\r\nC\r\n  480 IF (MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND. .NOT.PLA) RETURN\r\n      IF (MATID  .NE. MATIDO) GO TO 490\r\n      IF (INFLGO .NE.      2) GO TO 490\r\n      IF (MMAT-2) 530,540,540\r\nC\r\nC     SEARCH MAT1 TABLE FOR MATID\r\nC\r\n  490 ASSIGN 500 TO RET1\r\n      ASSIGN 510 TO RET\r\n      GO TO 820\r\nC\r\nC     MATID NOT IN MAT1 TABLE. LOOK IN MAT2 TABLE - ERROR IF NOT PRESENT\r\nC\r\n  500 ASSIGN 1480 TO RET1\r\n      ASSIGN  540 TO RET\r\n      GO TO 850\r\n  510 I = K + 4\r\n      ASSIGN 520 TO BACK\r\n      GO TO 980\r\n  520 J11 = PROP\r\n      J12 = 0.0\r\n      J22 = PROP\r\n      GO TO 550\r\n  530 J11 = GX\r\n      J12 = 0.0\r\n      J22 = GX\r\n      GO TO 550\r\n  540 J11 = 0.0\r\n      J12 = 0.0\r\n      J22 = 0.0\r\n  550 INFLGO = INFLAG\r\n      MATIDO = MATID\r\n      RETURN\r\nC\r\nC     INFLAG = 4 MEANS CALLER DESIRES ONLY THE DENSITY PROPERTY (RHO)\r\nC     LOOK UP MATID IN MAT1 TABLE.\r\nC\r\n  560 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND.\r\n     1   .NOT.PLA) RETURN\r\n      ASSIGN 580 TO RET\r\n      ASSIGN 570 TO RET1\r\n      GO TO 820\r\nC\r\nC     MATID NOT IN MAT1 TABLE, LOOK UP IN MAT2 TABLE - ERROR IF NOT\r\nC     PRESENT\r\nC\r\n  570 ASSIGN  610 TO RET\r\n      ASSIGN 1480 TO RET1\r\n      GO TO 850\r\nC\r\nC     MATID FOUND IN MAT1 TABLE. PICK UP RHO\r\nC\r\n  580 I = K + 10\r\n  590 ASSIGN 600 TO BACK\r\n      GO TO 980\r\n  600 Y(1)   = PROP\r\n      MATIDO = MATID\r\n      INFLGO = INFLAG\r\n      RETURN\r\nC\r\nC     MATID FOUND IN MAT2 TABLE. PICK UP RHO.\r\nC\r\n  610 I = K + 19\r\n      GO TO 590\r\nC\r\nC     INFLAG = 5, USED ONLY IN MODULE PLA1, DETERMINES IF THE MAT CARD\r\nC     REFERENCED IS A MAT1 WITH E, YOUNGS MODULUS, DEFINED AS STRESS\r\nC     DEPENDENT.  IF IT IS STRESS DEPENDENT, INDSTR, THE FIRST WORD OF\r\nC     THE /MATOUT/ BLOCK IS SET = 1.  IF NOT STRESS DEPENDENT, INDSTR\r\nC     IS SET = 0 ONLY MAT1 CARDS ARE ADMISSIBLE FOR THIS TEST.\r\nC\r\n  620 IF (PLA .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO) RETURN\r\n      MATIDO = MATID\r\n      INFLGO = INFLAG\r\n      ASSIGN 630 TO RET\r\n      ASSIGN 635 TO RET1\r\n      INDSTR = 0\r\n      GO TO 820\r\nC\r\nC     TEST TO SEE IF THE MATERIAL PROPERTY E IS DEPENDENT ON A TABLE OF\r\nC     STRAIN VS. STRESS (EPSILON VS. SIGMA)\r\nC\r\n  630 TABLID = Z(K+3)\r\n      IF (TABLID .NE. 0) INDSTR = 1\r\n  635 RETURN\r\nC\r\nC     INFLAG = 6, USED ONLY IN SUBROUTINES PLA3 AND PLA4, ACCEPTS\r\nC     EPSILON - STRAIN - IN THE /MATIN/ BLOCK (PLAARG) AND LOOKS-UP\r\nC     SIGMA   - STRESS - AND STORES THIS VALUE IN PLAANS IN /MATOUT/.\r\nC     ONLY MAT1 AND MATS1 CARDS ARE ADMISSIBLE FOR THIS INFLAG.\r\nC\r\n  640 ASSIGN  650 TO RET\r\n      ASSIGN 1500 TO RET1\r\n      MATIDO = MATID\r\n      INFLGO = INFLAG\r\n      GO TO 820\r\n  650 TABLID = Z(K+3)\r\n      IF (TABLID .LE. 0) GO TO 1510\r\n      XX = PLAARG\r\n      ASSIGN  660 TO RET\r\n      ASSIGN 1490 TO RET1\r\n      GO TO 960\r\n  660 ITYPE = Z(L+1)\r\n      IF (ITYPE .NE. 1) GO TO 1530\r\n      ASSIGN 670 TO IRET\r\n      GO TO 1080\r\n  670 PLAANS = PROP\r\n      RETURN\r\nC\r\nC     INFLAG = 7, USED CURRENTLY ONLY BY BELL AEROSYSTEMS ELEMENTS,\r\nC     IMPLIES THE USER WANTS HIS DATA IN MAT3 FORMAT.  IF THE MATID IS\r\nC     FOUND IN THE MAT1 SET, THE DATA IS STORED IN MAT3 FORMAT.  IF NOT\r\nC     FOUND IN THE MAT1 SET, THE MAT3 SET IS SEARCHED. IF NOT FOUND IN\r\nC     THE MAT3 SET THE MAT2 SET IS SEARCHED. IF NOT FOUND HERE, A FATAL\r\nC     ERROR EXISTS.\r\nC\r\n  680 IF (TEMPID.EQ.0 .AND. INFLAG.EQ.INFLGO .AND. MATID.EQ.MATIDO)\r\n     1    RETURN\r\n      INFLGO = INFLAG\r\n      MATIDO = MATID\r\n      ASSIGN 690 TO RET\r\n  685 CONTINUE\r\n      ASSIGN 790 TO RET1\r\n      GO TO 820\r\n  690 I = K + 1\r\n      J = 1\r\n      ASSIGN 700 TO BACK\r\n      GO TO 980\r\n  700 GO TO (710,720,730,740,750,760,770,771,772,773), J\r\n  710 EX3   = PROP\r\n      EY3   = PROP\r\n      EZ3   = PROP\r\n      GO TO 780\r\n  720 GXY3  = PROP\r\n      GYZ3  = PROP\r\n      GZX3  = PROP\r\n      GO TO 780\r\n  730 NUXY3 = PROP\r\n      NUYZ3 = PROP\r\n      NUZX3 = PROP\r\n      GO TO 780\r\n  740 RHO3  = PROP\r\n      GO TO 780\r\n  750 AX3   = PROP\r\n      AY3   = PROP\r\n      AZ3   = PROP\r\n      GO TO 780\r\n  760 TREF3 = PROP\r\n      GO TO 780\r\n  770 GE3   = PROP\r\n      GO TO 780\r\n  771 SIGTY3 = PROP\r\n      GO TO 780\r\n  772 SIGCY3 = PROP\r\n      GO TO 780\r\n  773 SIGSY3 = PROP\r\n      MATSET = 1.0\r\n      RETURN\r\nC\r\n  780 J = J + 1\r\n      I = I + 3\r\n      GO TO 980\r\nC\r\nC     SEARCH FOR MATID IN THE MAT3 SET\r\nC\r\n  790 ASSIGN 800 TO RET\r\n      ASSIGN 811 TO RET1\r\n      GO TO 880\r\nC\r\nC     PICK UP MATERIAL PROPERTIES FROM MAT3 ENTRY\r\nC\r\n  800 I = K + 1\r\n      J = 1\r\n      ASSIGN 810 TO BACK\r\n      GO TO 980\r\n  810 Y(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT3) GO TO 980\r\n      MATSET = 3.0\r\n      RETURN\r\nC\r\nC     SEARCH FOR MATID IN THE MAT2 SET\r\nC\r\n  811 ASSIGN  812 TO RET\r\n      ASSIGN 1480 TO RET1\r\n      GO TO 850\r\nC\r\nC     GO TO INFLAG = 2 CODE TO PICK UP MAT2 PROPERTIES\r\nC\r\n  812 GO TO 450\r\n  813 SIGTY3 = SIGTY\r\n      SIGCY3 = SIGCY\r\n      SIGSY3 = SIGSY\r\n      TREF3  = TOY\r\n      GE3    = GEY\r\n      AX3    = ALPH1\r\n      AY3    = ALPH2\r\n      AZ3    = ALPH12\r\n      G113   = G11\r\n      G123   = G12\r\n      G133   = G13\r\n      G223   = G22\r\n      G233   = G23\r\n      G333   = G33\r\n      MATSET = 2.0\r\n      RETURN\r\nC\r\nC     INFLAG = 8 IS USED ONLY BY TWO-DIMENSIONAL ELEMENTS IN PIECEWISE\r\nC     LINEAR ANALYSIS.  HERE WE PERFORM AN INVERSE INTERPOLATION TO\r\nC     OBTAIN STRAIN (EPS) GIVEN STRESS (TAU)\r\nC\r\n 2000 ASSIGN 2010 TO RET\r\n      ASSIGN 1500 TO RET1\r\n      MATIDO = MATID\r\n      INFLGO = INFLAG\r\n      YY     = PLAARG\r\n      GO TO 820\r\n 2010 TABLID = Z(K+3)\r\n      IF (TABLID .LE. 0) GO TO 1510\r\n      ASSIGN 2020 TO RET\r\n      ASSIGN 1490 TO RET1\r\n      GO TO 960\r\n 2020 ITYPE = Z(L+1)\r\n      IF (ITYPE .NE. 1) GO TO 1530\r\nC\r\nC     ROUTINE TO PERFORM INVERSE LINEAR INTERPOLATION OR EXTRAPOLATION.\r\nC\r\n      ITABL = Z(L+2)\r\n      NTABL = Z(L+3)\r\n      UP    = 1.0\r\n      IF (ZZ(ITABL) .GT. ZZ(ITABL+2)) UP = -1.0\r\n      KXX1 = ITABL\r\n      IF ((YY - ZZ(ITABL+1))*UP .LT. 0.0) GO TO 2180\r\n      KXX1 = NTABL - 2\r\n      IF ((YY - ZZ(NTABL+1))*UP .LE. 0.0) GO TO 2030\r\n      IF (ZZ(NTABL+1) .EQ. ZZ(NTABL-1)) GO TO 2180\r\n 2030 KLO = 1\r\n      KHI = (NTABL - ITABL)/2 + 1\r\n 2090 KX  = (KLO + KHI + 1)/2\r\n      KXX = (KX - 1)*2 + ITABL\r\n      IF ((YY - ZZ(KXX+1))*UP) 2100,2150,2110\r\n 2100 KHI = KX\r\n      GO TO 2120\r\n 2110 KLO = KX\r\n 2120 IF (KHI-KLO .NE. 1) GO TO 2090\r\n      KXX1 = 2*(KLO-1) + ITABL\r\n      IF (KXX .EQ.       KXX1) GO TO 2130\r\n      IF (YY  .EQ. ZZ(KXX1+3)) GO TO 2140\r\n 2130 PLAANS = (YY - ZZ(KXX1+1))*(ZZ(KXX1+2) - ZZ(KXX1))/(ZZ(KXX1+3)\r\n     1       - ZZ(KXX1+1)) + ZZ(KXX1)\r\n 2135 ICELL2 = 0\r\n      RETURN\r\nC\r\n 2140 KXX = KXX1 + 2\r\n 2150 IF (YY .EQ. ZZ(KXX-1)) GO TO 2160\r\n      IF (YY .EQ. ZZ(KXX+3)) GO TO 2170\r\n      PLAANS = ZZ(KXX)\r\n      GO TO 2135\r\n 2160 PLAANS = (ZZ(KXX) + ZZ(KXX-2))/2.0\r\n      GO TO 2135\r\n 2170 PLAANS = (ZZ(KXX) + ZZ(KXX+2))/2.0\r\n      GO TO 2135\r\nC\r\nC     YY IS OUT OF THE RANGE OF THE FUNCTION, SET THE SECOND CELL OF\r\nC     /MATOUT/ EQUAL TO ONE.\r\nC\r\n 2180 PLAANS = 0.0\r\n      ICELL2 = 1\r\n      RETURN\r\nC\r\nC     INFLAG = 9 IS USED ONLY BY TRAPAX AND TRIAAX WHEN PIEZOELECTRIC\r\nC     MATERIALS ARE SELECTED.  WANT MATERIALS RETURNED INTO MATPZ2\r\nC     FORMAT.\r\nC\r\nC     MATPZ1 CODE TRANSFORMS 1,2,3 MATERIAL DIRECTIONS INTO Z, THETA,\r\nC     R = 0 DIRECTIONS, RESPECTIVLELY, AND INTERCHANGES 4TH AND 6TH ROWS\r\nC     AND COLUMNS TO ACCOUNT FOR DIFFERENT SHEAR ORDERING.\r\nC     ELEMENT ROUTINE WILL TRANSFORM FOR R-POLARIZATION\r\nC     MATPZ2 CODE ASSUMES USER HAS PERFO-MED ALL TRANSFORMATIONS AS\r\nC     EXPLAINED FOR MATPZ1\r\nC\r\n 2200 IF (TEMPID.EQ.0 .AND. INFLAG.EQ.INFLGO .AND. MATID.EQ.MATIDO)\r\n     1    RETURN\r\n      INFLGO = INFLAG\r\n      MATIDO = MATID\r\nC\r\nC     LOOK UP MATID IN MATPZ1 TABLE\r\nC\r\n      ASSIGN 2210 TO RET1\r\n      ASSIGN 2220 TO RET\r\n      GO TO 901\r\nC\r\nC     NOT IN MATPZ1, LOOK AT MATPZ2\r\nC\r\n 2210 ASSIGN 2300 TO RET\r\n      ASSIGN 685 TO RET1\r\n      GO TO 904\r\nC\r\nC     FOUND IN MATPZ1 - PUT OUT LIKE MATPZ2\r\nC\r\n 2220 I = K + 1\r\n      J = 1\r\n      ASSIGN 2230 TO BACK\r\n      GO TO 980\r\n 2230 BUFPZ(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMTPZ1)  GO TO 980\r\n      EPSO = 8.854E-12\r\n      DO 2240 IJK = 1,8\r\n 2240 BUFPZ(IJK) = BUFPZ(IJK)*1.E-12\r\n      SE1   = (BUFPZ(4)-BUFPZ(1))*2.*BUFPZ(5)**2 - BUFPZ(2)*\r\n     1        (BUFPZ(4)**2-BUFPZ(1)**2)\r\n      SE2   = 2.*BUFPZ(5)**2 - BUFPZ(2)*(BUFPZ(4) + BUFPZ(1))\r\n      IF (SE1.EQ.0. .OR. SE2.EQ.0.)GO TO 1556\r\n      CE11  =-(BUFPZ(5)**2-BUFPZ(1)*BUFPZ(2))/SE1\r\n      CE12  = (BUFPZ(5)**2-BUFPZ(2)*BUFPZ(4))/SE1\r\n      CE13  =  BUFPZ(5)/SE2\r\n      CE33  =-(BUFPZ(4)+BUFPZ(1))/SE2\r\n      CE44  = 1./BUFPZ(3)\r\n      CE66  = 0.5/(BUFPZ(1) - BUFPZ(4))\r\n      E15   = BUFPZ(8)*CE44\r\n      E31   = BUFPZ(6)*(CE11+CE12) + BUFPZ(7)*CE13\r\n      E33   = BUFPZ(6)*CE13*2. + BUFPZ(7)*CE33\r\n      EPS11 = BUFPZ(9)*EPSO\r\n      EPS33 = BUFPZ(10)*EPSO\r\n      DO 2250 IJK = 4,44\r\n 2250 PZOUT(IJK)= 0.\r\n      PZOUT( 1) = CE33\r\n      PZOUT( 2) = CE13\r\n      PZOUT( 3) = CE13\r\n      PZOUT( 7) = CE11\r\n      PZOUT( 8) = CE12\r\n      PZOUT(12) = CE11\r\n      PZOUT(16) = CE44\r\n      PZOUT(19) = CE44\r\n      PZOUT(21) = CE66\r\n      PZOUT(22) = E33\r\n      PZOUT(23) = E31\r\n      PZOUT(24) = E31\r\n      PZOUT(31) = E15\r\n      PZOUT(38) = E15\r\n      PZOUT(40) = EPS33\r\n      PZOUT(43) = EPS11\r\n      PZOUT(45) = EPS11\r\n      PZOUT(46) = BUFPZ(11)\r\n      PZOUT(47) = BUFPZ(12)\r\n      PZOUT(48) = BUFPZ(12)\r\n      PZOUT(49) = BUFPZ(12)\r\n      PZOUT(50) = BUFPZ(13)\r\n      PZOUT(51) = BUFPZ(14)\r\n      MATSET = 4.0\r\n      RETURN\r\nC\r\nC     FOUND IN MATPZ2 FORMAT\r\nC\r\n 2300 I = K + 1\r\n      J = 1\r\n      ASSIGN 2310 TO BACK\r\n      GO TO 980\r\n 2310 PZOUT(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMTPZ2) GO TO 980\r\n      MATSET = 5.0\r\n      RETURN\r\nC\r\nC     INFLAG = 10, USED CURRENTLY ONLY BY ISOPARAMETRIC SOLIDS IHEX1,2,3\r\nC     IMPLIES CALLER WANTS HIS DATA IN MAT6 FORMAT STORED IN MATISO.\r\nC     MATERIALS COULD BE ON MAT1 OR ON MAT6. IN EITHER CASE,MATERIALS\r\nC     WILL BE COMPUTED FOR MAT6 OUTPUT. IF NOT FOUND ON MAT1 OR MAT6,\r\nC     FATAL.\r\nC\r\n 2400 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO)\r\n     1    RETURN\r\n      INFLGO = INFLAG\r\n      MATIDO = MATID\r\n      TDEP   =.FALSE.\r\nC\r\nC     LOOK UP MATID IN MAT1 TABLE\r\nC\r\n      ASSIGN 2420 TO RET1\r\n      ASSIGN 2430 TO RET\r\n      GO TO 820\r\nC\r\nC     MATID NOT IN MAT1. CHECK MAT6\r\nC\r\n 2420 ASSIGN 2470 TO RET\r\n      ASSIGN 1480 TO RET1\r\n      GO TO 907\r\nC\r\nC     MATID FOUND IN MAT1 TABLE. COMPUTE G MATRIX,ETC.\r\nC\r\n 2430 IB(46) = 1\r\n      I = K + 1\r\n      J = 1\r\n      ASSIGN 2440 TO BACK\r\n      GO TO 980\r\n 2440 X(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT1) GO TO 980\r\n      DD = (1.+NUX)*(1.-2.*NUX)\r\n      IF (DD .NE. 0.) GO TO 2450\r\n      IB(46) = 0\r\n      RETURN\r\nC\r\n 2450 DD   =  EX*(1.-NUX)/DD\r\n      DDN1 = NUX/(1.-NUX)\r\n      DDN2 = 0.5*(1.-2.*NUX)/(1.-NUX)\r\n      DO 2460 IJKL = 1,45\r\n 2460 BUFM6(IJKL) = 0.\r\n      BUFM6( 1) = DD\r\n      BUFM6( 2) = DD*DDN1\r\n      BUFM6( 3) = BUFM6(2)\r\n      BUFM6( 7) = BUFM6(2)\r\n      BUFM6( 8) = BUFM6(1)\r\n      BUFM6( 9) = BUFM6(2)\r\n      BUFM6(13) = BUFM6(2)\r\n      BUFM6(14) = BUFM6(2)\r\n      BUFM6(15) = BUFM6(1)\r\n      BUFM6(22) = DD*DDN2\r\n      BUFM6(29) = BUFM6(22)\r\n      BUFM6(36) = BUFM6(22)\r\n      BUFM6(37) = RHOX\r\n      BUFM6(38) = ALPHX\r\n      BUFM6(39) = ALPHX\r\n      BUFM6(40) = ALPHX\r\n      BUFM6(44) = TOX\r\n      BUFM6(45) = GEX\r\n      RETURN\r\nC\r\nC     MATID FOUND IN MAT6 TABLE. PUT PROPERTIES IN MAT6 FORMAT AND\r\nC     TRANSFORM USING DIRECTION COSINES\r\nC\r\n 2470 IB(46) = 6\r\n      I = K + 1\r\n      J = 1\r\n      ASSIGN 2480 TO BACK\r\n      GO TO 980\r\n 2480 BUFTM6(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT6) GO TO 980\r\nC\r\nC     PUT SYMMETRIC PORTION OF G INTO A FULL 6 X 6 AND CREATE A 6 X 6\r\nC     DIRECTION COSINE MATRIX BY COOK PP. 212-213. THEN TRANSFORM\r\nC     (U-TRANSPOSE)*G*U\r\nC\r\n      KKK = 0\r\n      LLL = 0\r\n      DO 2500 III = 1,6\r\n      DO 2490 JJJ = III,6\r\n      KKK = KKK + 1\r\n      LLL = LLL + 1\r\n      XY(LLL) = BUFTM6(KKK)\r\n      IF (JJJ .EQ. III) GO TO 2490\r\n      L5   = 5*(JJJ-III)\r\n      ISUB = LLL + L5\r\n      XY(ISUB) = XY(LLL)\r\n 2490 CONTINUE\r\n      LLL = LLL + III\r\n 2500 CONTINUE\r\n      XL1 = BUFTM6(31)\r\n      XM1 = BUFTM6(32)\r\n      XN1 = BUFTM6(33)\r\n      XL2 = BUFTM6(34)\r\n      XM2 = BUFTM6(35)\r\n      XN2 = BUFTM6(36)\r\n      XL3 = BUFTM6(37)\r\n      XM3 = BUFTM6(38)\r\n      XN3 = BUFTM6(39)\r\n      XY(37) = XL1**2\r\n      XY(38) = XM1**2\r\n      XY(39) = XN1**2\r\n      XY(40) = XL1*XM1\r\n      XY(41) = XM1*XN1\r\n      XY(42) = XN1*XL1\r\n      XY(43) = XL2**2\r\n      XY(44) = XM2**2\r\n      XY(45) = XN2**2\r\n      XY(46) = XL2*XM2\r\n      XY(47) = XM2*XN2\r\n      XY(48) = XN2*XL2\r\n      XY(49) = XL3**2\r\n      XY(50) = XM3**2\r\n      XY(51) = XN3**2\r\n      XY(52) = XL3*XM3\r\n      XY(53) = XM3*XN3\r\n      XY(54) = XN3*XL3\r\n      XY(55) = XL1*XL2*2.\r\n      XY(56) = XM1*XM2*2.\r\n      XY(57) = XN1*XN2*2.\r\n      XY(58) = XL1*XM2 + XL2*XM1\r\n      XY(59) = XM1*XN2 + XM2*XN1\r\n      XY(60) = XN1*XL2 + XN2*XL1\r\n      XY(61) = XL2*XL3*2.\r\n      XY(62) = XM2*XM3*2.\r\n      XY(63) = XN2*XN3*2.\r\n      XY(64) = XL2*XM3 + XL3*XM2\r\n      XY(65) = XM2*XN3 + XM3*XN2\r\n      XY(66) = XN2*XL3 + XN3*XL2\r\n      XY(67) = XL3*XL1*2.\r\n      XY(68) = XM3*XM1*2.\r\n      XY(69) = XN3*XN1*2.\r\n      XY(70) = XL3*XM1 + XL1*XM3\r\n      XY(71) = XM3*XN1 + XM1*XN3\r\n      XY(72) = XN3*XL1 + XN1*XL3\r\nC\r\n      CALL GMMATS (XY(1),6,6,0,XY(37),6,6,0,XY(73))\r\n      CALL GMMATS (XY(37),6,6,1,XY(73),6,6,0,BUFM6(1))\r\nC\r\nC     MUST ALSO TRANSFORM THERMAL EXPANSION VECOT= (U-INVERSE)*ALPHA\r\nC     BY COOK P.212, THE INVERSE OF U IS THE TRANSPOSE OF THE\r\nC     MATRIX WHICH TRANSFORMS STRESSES\r\nC\r\n      KKK = 72\r\n      DO 2540 III = 1,6\r\n      DO 2530 JJJ = 1,36,6\r\n      KKK = KKK + 1\r\n      LLL = JJJ + III + 35\r\n      XY(KKK) = XY(LLL)\r\n 2530 CONTINUE\r\n 2540 CONTINUE\r\n      DO 2545 III = 75,87,6\r\n      DO 2545 JJJ = 1,3\r\n      KKK = III + JJJ\r\n      XY(KKK) = XY(KKK)*0.5\r\n 2545 CONTINUE\r\n      DO 2550 III = 90,102,6\r\n      DO 2550 JJJ = 1,3\r\n      KKK = III + JJJ\r\n      XY(KKK) = XY(KKK)*2.0\r\n 2550 CONTINUE\r\nC\r\n      CALL GMMATS (XY(73),6,6,0,BUFTM6(23),6,1,0,BUFM6(38))\r\nC\r\n      BUFM6(37) = BUFTM6(22)\r\n      BUFM6(44) = BUFTM6(29)\r\n      BUFM6(45) = BUFTM6(30)\r\n      RETURN\r\nC\r\nC     INFLAG = 11 IS USED ONLY BY A HYDROELASTIC ANALYSIS TO FIND THE\r\nC     DENSITY FOR THREE DIMENSIONAL FLUID ELEMENTS FROM MATF CARDS.\r\nC\r\n 2600 IF (QMATF .EQ. 0) GO TO 1480\r\n      DO 2610 K = IMATF,NMATF,LMATF\r\n      IF (Z(K) .EQ. MATID) GO TO 2620\r\n 2610 CONTINUE\r\n      GO TO 1480\r\n 2620 RHO = ZZ(K+1)\r\n      RETURN\r\nC\r\nC     INFLAG = 12 IS USED ONLY BY SHELL ELEMENTS QUAD4 AND TRIA3.\r\nC     MAT1 IS FIRST SEARCHED, IF NOT FOUND, MAT2 IS SEARCHED. IF FOUND\r\nC     IN EITHER CASE, /MATOUT/ WILL BE FILLED WITH MAT2 FORMAT DATA.\r\nC     IF NOT FOUND IN MAT1 OR MAT2, MAT8 IS SEARCHED AND MAT8 FORMAT IS\r\nC     USED IN /MATOUT/. FATAL ERROR IF MAT8 IS NOT FOUND.\r\nC\r\n 2700 IF (TEMPID.EQ.0 .AND. MATID.EQ.MATIDO .AND. INFLAG.EQ.INFLGO .AND.\r\n     1    SINTH.EQ.SINTHO .AND. COSTH.EQ.COSTHO .AND. .NOT.PLA)  RETURN\r\n      INFLGO = INFLAG\r\n      MATIDO = MATID\r\n      SINTHO = SINTH\r\n      COSTHO = COSTH\r\nC\r\nC     GO TO INFLAG = 2 CODE TO PICK UP MAT1 OR MAT2 PROPERTIES\r\nC     SET MATSET TO 1.0 IF PROPERTY DATA COMES FROM MAT1, OR\r\nC     TO 2.0 IF FROM MAT2\r\nC\r\n      GO TO 410\r\nC\r\n 2701 MATSET = 1.0\r\n      Y(16)  = EX\r\n      Y(17)  = EX\r\n      RETURN\r\n 2705 MATSET = 2.0\r\n      RETURN\r\nC\r\nC     NOT FOUND IN MAT1 AND MAT2.  LOOK FOR MAT8, ERROR IF NOT FOUND\r\nC\r\n 2710 IF (QMAT8 .EQ. 0) GO TO 1480\r\n      DO 2720 K = IMAT8,NMAT8,LMAT8\r\n      IF (Z(K) .EQ. MATID) GO TO 2730\r\n 2720 CONTINUE\r\n      GO TO 1480\r\n 2730 I = K + 1\r\n      J = 1\r\n      ASSIGN 2740 TO BACK\r\n      GO TO 980\r\nC\r\nC     OUTPUT IN MAT8 FORMAT AND SET MATSET TO 8.0\r\nC\r\n 2740 X(J) = PROP\r\n      I = I + 3\r\n      J = J + 1\r\n      IF (J .LT. KMAT8) GO TO 980\r\n      DO 2760 K = 1,17\r\n      Y(K) = X(K)\r\n 2760 CONTINUE\r\n      Y(2) = X(3)\r\n      Y(3) = X(2)\r\n      Y(5) = X(6)\r\n      Y(6) = X(5)\r\n      MATSET = 8.0\r\n      RETURN\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT1 TABLE\r\nC\r\n  820 IF (QMAT1 .EQ. 0) GO TO 840\r\n      DO 830 K = IMAT1,NMAT1,LMAT1\r\n      IF (Z(K) .EQ. MATID) GO TO RET, ( 380,430,510,580,630,650,690,930,\r\n     1                                 2010,2430)\r\n  830 CONTINUE\r\n  840 GO TO RET1, (420,500,570,635,790,1420,1450,1480,1500,2420)\r\nC\r\nC     INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT2 TABLE\r\nC\r\n  850 IF (QMAT2 .EQ. 0) GO TO 870\r\n      DO 860 K = IMAT2,NMAT2,LMAT2\r\n      IF (Z(K) .EQ. MATID) GO TO RET, (930,450,610,540,812)\r\n  860 CONTINUE\r\n  870 GO TO RET1, (425,1460,1480)\r\nC\r\nC     INTERNAL ROUTINE TO SEARCH FOR MATERIAL IN MAT3 TABLE.\r\nC\r\n  880 IF (QMAT3 .EQ. 0) GO TO 900\r\n      DO 890 K = IMAT3,NMAT3,LMAT3\r\n      IF (Z(K) .EQ. MATID) GO TO RET, (800,930)\r\n  890 CONTINUE\r\n  900 GO TO RET1, (811)\r\nC\r\nC     PIEZOELECTRIC MATERIALS\r\nC\r\n  901 IF (QMTPZ1 .EQ. 0)  GO TO 903\r\n      DO 902 K = IMTPZ1,NMTPZ1,LMTPZ1\r\n      IF (Z(K) .EQ. MATID) GO TO RET, (2220,930)\r\n  902 CONTINUE\r\n  903 GO TO RET1, (1551,2210)\r\n  904 IF (QMTPZ2 .EQ. 0)  GO TO 906\r\n      DO 905 K = IMTPZ2,NMTPZ2,LMTPZ2\r\n      IF (Z(K) .EQ. MATID) GO TO RET, (2300,930)\r\n  905 CONTINUE\r\n  906 GO TO RET1, (1552,1480,685)\r\nC\r\nC     SEARCH FOR MATERIAL IN MAT6 TABLE(ISOPARAMETRIC SOLIDS)\r\nC\r\n  907 IF (QMAT6 .EQ. 0) GO TO 909\r\n      DO 908 K = IMAT6,NMAT6,LMAT6\r\n      IF (Z(K) .EQ. MATID) GO TO RET, (2470,930)\r\n  908 CONTINUE\r\n  909 GO TO RET1, (1560,1480)\r\nC\r\nC     INTERNAL ROUTINE TO READ MATXI CARDS, MERGE DATA IN MATI TABLE\r\nC     AND STORE TABLE IDS IN CORE.\r\nC\r\n  910 ASSIGN 930 TO RET\r\n  920 CALL READ (*1350,*950,MPT,BUF,N,0,FLAG)\r\n      MATID = BUF(1)\r\n      GO TO PASS, (820,850,880,901,904,907)\r\n  930 DO 940 J = 2,N\r\n      IF (BUF(J) .EQ. 0) GO TO 940\r\n      JX    = K + 3*(J-2) + NX\r\n      Z(JX) = BUF(J)\r\n      Z(I ) = BUF(J)\r\n      Z(I+1)= 0\r\n      I     = I + 11\r\n  940 CONTINUE\r\n      GO TO 920\r\n  950 GO TO BACK, (150,170,180,181,182,183,190)\r\nC\r\nC     INTERNAL ROUTINE TO SEARCH FOR A TABLE IN THE TABLE LIST\r\nC\r\n  960 DO 970 L = ILIST,NLIST,11\r\n      IF (Z(L) .EQ. TABLID) GO TO RET, (260,660,990,1030,2020)\r\n  970 CONTINUE\r\n      GO TO RET1, (280,1490,1520)\r\nC\r\nC     ROUTINE TO TEST FOR DEPENDENCE OF A MATERIAL PROPERTY ON\r\nC     TEMPERATURE OR STRESS. IF DEPENDENT, APPROPRIATE TABLE LOOK UP\r\nC     PROCEDURE IS EMPLOYED. IN EITHER CASE, THE PROPERTY IS RETURNED\r\nC     IN PROP.\r\nC\r\n  980 IF (QMATX .EQ. 0) GO TO 1060\r\n      FLAG   = 0\r\n      TABLID = Z(I+1)\r\n      IF (ELEMID .LT. 0) GO TO 1020\r\n      IF (TABLID .EQ. 0) GO TO 1060\r\n      XX   = TEMP\r\n      TDEP =.TRUE.\r\n      FLAG = 1\r\n      ASSIGN  990 TO RET\r\n      ASSIGN 1490 TO RET1\r\n      GO TO 960\r\n  990 ASSIGN 1010 TO RET\r\n 1000 ITYPE = Z(L+1)\r\n      GO TO (1180,1200,1230,1240), ITYPE\r\n 1010 PROPT = PROP\r\n      GO TO 1070\r\nC\r\nC     SINCE THIS IS NOT A PIECEWISE LINEAR ANALYSIS PROBLEM, NO STRESS\r\nC     DEPENDENT MATERIAL PROPERTIES ARE ALLOWED.  IF AND WHEN THIS\r\nC     RESTRICTION IS LIFTED THE FOLLOWING CODE CAN BE IMPLEMENTED.\r\nC     CURRENTLY A TRANSFER IS ALWAYS MADE TO STATEMENT 1060, SINCE THE\r\nC     ELEMENT ID. IS ALWAYS POSITIVE.\r\nC\r\n 1020 IF (PLA) GO TO 1550\r\n      IF (ELEMID .GT. 0) GO TO 1060\r\n      TABLID = Z(I+2)\r\n      IF (TABLID .EQ. 0) GO TO 1050\r\n      ASSIGN 1030 TO RET\r\n      ASSIGN 1490 TO RET1\r\n      GO TO 960\r\n 1030 ASSIGN 1040 TO RET\r\n      XX = PLAARG\r\n      GO TO 1000\r\n 1040 IF (FLAG .NE. 0) PROP = PROP*PROPT\r\n      GO TO 1070\r\n 1050 IF (FLAG .NE. 0) GO TO 1070\r\n 1060 PROP = ZZ(I)\r\n 1070 GO TO BACK, ( 390,440,460,520,600,700,810,2230,2310,2440,2480,\r\n     1             2740)\r\nC\r\nC     ROUTINE TO PERFORM LINEAR INTERPOLATION FOR FUNCTION IN TABLE.\r\nC     L POINTS TO THE ENTRY IN THE TABLE LIST WHICH DEFINES THE TABLE.\r\nC     ARGUMENT IS XX. FUNCTION VALUE IS RETURNED IN PROP. EXTRAPOLATION\r\nC     IS MADE IF XX IS OUTSIDE THE LIMITS OF THE TABLE.\r\nC\r\n 1080 ITABL = Z(L+2)\r\n      NTABL = Z(L+3)\r\n      UP    = 1.0\r\n      IF (ZZ(ITABL) .GT. ZZ(ITABL+2)) UP = -1.0\r\n      KXX1 = ITABL\r\n      IF ((XX - ZZ(ITABL))*UP .LE. 0.) GO TO 1130\r\n      KXX1 = NTABL - 2\r\n      IF ((XX - ZZ(NTABL))*UP .GE. 0.) GO TO 1130\r\n      KLO = 1\r\n      KHI = (NTABL-ITABL)/2 + 1\r\n 1090 KX  = (KLO+KHI+1)/2\r\n      KXX = (KX-1)*2 + ITABL\r\n      IF ((XX - ZZ(KXX))*UP) 1100,1150,1110\r\n 1100 KHI = KX\r\n      GO TO 1120\r\n 1110 KLO = KX\r\n 1120 IF (KHI-KLO .NE. 1) GO TO 1090\r\n      KXX1 = (KLO-1)*2 + ITABL\r\n      IF (KXX .EQ. KXX1) GO TO 1130\r\n      IF (XX  .EQ. ZZ(KXX1+2)) GO TO 1140\r\n 1130 PROP = (XX - ZZ(KXX1))*(ZZ(KXX1+3) - ZZ(KXX1+1))/(ZZ(KXX1+2)\r\n     1     - ZZ(KXX1)) + ZZ(KXX1+1)\r\n      GO TO IRET, (670,1190,1220)\r\n 1140 KXX = KXX1 + 2\r\n 1150 IF (XX .EQ. ZZ(KXX-2)) GO TO 1160\r\n      IF (XX .EQ. ZZ(KXX+2)) GO TO 1170\r\n      PROP = ZZ(KXX+1)\r\n      GO TO IRET, (670,1190,1220)\r\n 1160 PROP = (ZZ(KXX-1) + ZZ(KXX+1))/2.0\r\n      GO TO IRET, (670,1190,1220)\r\n 1170 PROP = (ZZ(KXX+1) + ZZ(KXX+3))/2.0\r\nC\r\nC     TABLE TYPE = 1\r\nC     ARGUMENT = XX\r\nC\r\n 1180 ASSIGN 1190 TO IRET\r\n      GO TO 1080\r\n 1190 GO TO RET, (1010,1040)\r\nC\r\nC     TABLE TYPE = 2\r\nC     ARGUMENT = (XX-X1)\r\nC\r\n 1200 XX = XX - ZZ(L+4)\r\n 1210 ASSIGN 1220 TO IRET\r\n      GO TO 1080\r\n 1220 PROP = ZZ(I)*PROP\r\n      GO TO RET, (1010,1040)\r\nC\r\nC     TABLE TYPE = 3\r\nC     ARGUMENT = (XX-X1)/X2\r\nC\r\n 1230 XX = (XX - ZZ(L+4))/ZZ(L+5)\r\n      GO TO 1210\r\nC\r\nC     TABLE TYPE = 4\r\nC     PERFORM POLYNOMIAL INTERPOLATION\r\nC\r\nC\r\nC     NOTE...\r\nC         ZZ(L+4) = X1\r\nC         ZZ(L+5) = X2\r\nC         ZZ(L+6) = X3\r\nC         ZZ(L+7) = X4\r\nC         ZZ(L+8) = F((X3-X1)/X2)\r\nC         ZZ(L+9) = F((X4-X1)/X2)\r\nC         WHERE X1 AND X2 ARE TRANSLATION AND SCALE FACTORS RESPECTIVELY\r\nC         AND X3 AND X4 (X3 .LT. X4) ARE THE END POINTS OF THE\r\nC         INTERVAL OVER WHICH THE POLYNOMIAL IS DEFINED.\r\nC\r\n 1240 FACTOR = ZZ(I)\r\nC\r\nC     DETERMINE THE ARGUMENT XX\r\nC\r\n      XX = (XX - ZZ(L+4))/ZZ(L+5)\r\n      IF   (XX - (ZZ(L+6) - ZZ(L+4))/ZZ(L+5)) 1250,1250,1260\r\n 1250 PROP = ZZ(L+8)\r\n      GO TO 1310\r\n 1260 IF   (XX - (ZZ(L+7) - ZZ(L+4))/ZZ(L+5)) 1280,1270,1270\r\n 1270 PROP = ZZ(L+9)\r\n      GO TO 1310\r\n 1280 NN   = Z(L+3)\r\n      PROP = ZZ(NN)\r\n 1290 IF (NN .LE. Z(L+2)) GO TO 1300\r\n      PROP = PROP*XX + ZZ(NN-1)\r\n      NN   = NN - 1\r\n      GO TO 1290\r\n 1300 IF (PART1) GO TO IGOTO, (1330,1340)\r\n 1310 PROP = PROP*FACTOR\r\n      GO TO RET, (1010,1040)\r\n 1330 ZZ(L+8) = PROP\r\n      GO TO 320\r\n 1340 ZZ(L+9) = PROP\r\n      GO TO 250\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1350 N = -2\r\n      DIT = MPT\r\n      GO TO 1400\r\n 1370 N = -1\r\n      GO TO 1400\r\n 1380 N = -2\r\n      GO TO 1400\r\n 1390 N = -3\r\n      GO TO 1400\r\n 1385 WRITE  (NOUT,1386) IMHERE,I,N1MAT,OFFSET,NIMAT\r\n 1386 FORMAT ('0*** NIMAT SPACE TOO SMALL.  ERROR AT',I5,'/PREMAT', /5X,\r\n     1        'I,N1MAT,OFFSET,NIMAT =',3I12,I7,/)\r\n      GO TO 1472\r\n 1398 IF (NIMAT .LE. 2*SYSBUF+4) GO TO 1385\r\n      N = -8\r\n      DIT = I - N1MAT\r\n 1400 CALL MESAGE (N,DIT,NAM)\r\n      N = 16\r\n      BUF(1) = 0\r\n      BUF(2) = 0\r\n      GO TO 1470\r\n 1420 N =  17\r\n 1430 BUF(1) = MATID\r\n      BUF(2) = 0\r\n      GO TO 1470\r\n 1450 N =  19\r\n      GO TO 1430\r\n 1460 N =  20\r\n      GO TO 1430\r\nC\r\n 1470 CALL SSWTCH (20,J)\r\n      IF (J .EQ. 0) GO TO 1475\r\n      WRITE  (NOUT,1471) BUF(1),BUF(2)\r\n 1471 FORMAT (' PREMAT/1471 - BUF(1),BUF(2) =',2I10)\r\n 1472 CALL ERRTRC ('MAT     ',1472)\r\nC\r\n 1475 CALL MESAGE (-30,N,BUF)\r\nC\r\n 1480 N = 42\r\n      BUF(1) = ELEMID\r\n      BUF(2) = MATID\r\n      GO TO 1470\r\n 1485 N = 103\r\n      BUF(1) = 0\r\n      BUF(2) = 0\r\n      GO TO 1470\r\n 1490 N = 112\r\n      BUF(1) = TABLID\r\n      GO TO 1470\r\n 1500 N = 113\r\n      GO TO 1430\r\n 1510 N = 116\r\n      BUF(1) = MATID\r\n      BUF(2) = TABLID\r\n      GO TO 1470\r\n 1520 N = 114\r\n      GO TO 1430\r\n 1530 N = 115\r\n      BUF(1) = TABLID\r\n      BUF(2) = ITYPE\r\n      GO TO 1470\r\n 1540 BUF(1) = TEMPID\r\n 1541 BUF(2) = 0\r\n      N = 117\r\n      GO TO 1470\r\n 1550 BUF(1) = ELEMID\r\n      GO TO 1541\r\n 1551 BUF(2) = 1\r\n      GO TO 1553\r\n 1552 BUF(2) = 2\r\n 1553 N = 216\r\n 1554 BUF(1) = MATID\r\n      GO TO 1470\r\n 1556 N = 214\r\n      GO TO 1554\r\n 1560 N = 217\r\n      GO TO 1554\r\n 1570 N = 219\r\n      GO TO 1554\r\n      END\r\n"
  },
  {
    "path": "mis/presax.f",
    "content": "      SUBROUTINE PRESAX (IHARM)\r\nC\r\nC     THIS ROUTINE APPLIES PRESSURE LOADS TO AXISYMMETRIC SHELL\r\nC\r\n      LOGICAL         PIEZ\r\n      INTEGER         FILE,SLT,ICARD(6),IORD(2),NAME(2)\r\n      REAL            CARD(6),GPCO(4,2)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRAD,S4PISQ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /LOADX / LC,SLT,BGPDT,OLD\r\n      COMMON /SYSTEM/ KSYSTM(80)\r\n      EQUIVALENCE     (ICARD(1),CARD(1))\r\n      DATA    NAME  / 4HPRES,4HAX  /\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     N        NUMBER OF CURRENT HARMONIC\r\nC     FILE     FILE NAME FOR ERROR MESAGES\r\nC     SLT      STATIC LOADS TABLE\r\nC     CARD     CARD IMAGE OF PRESAX CARD\r\nC     DEGRAD   CONVERSION FACTOR FOR DEGREES TO RADIANS\r\nC     IORD     ARRAY GIVING OPTIMUM ORDER FOR LOOKING UP POINTS IN BGPDT\r\nC     OLD      CURRENT POSITION OF BGPDT\r\nC     GPCO     ARRAY HOLDING BGPDT DATA FOR EACH RING\r\nC     XL       DISTANCE  BETWEEN  RINGS\r\nC     SINSI    SIN  ANGLE BETWEEN RINGS\r\nC     COSSI    COS  ANGLE BETWEEN RINGS\r\nC     ISILA    SIL VALUE  OF CURRENT HARMONIC - RING A\r\nC     ISILB    SIL VALUE  OF CURRENT HARMONIC - RING B\r\nC     IHARM    SUBCASE  INDICATOR  1 = SINE  2 = COSINE\r\nC\r\nC\r\nC     BRING IN PRESAX CARD\r\nC\r\n      FILE = SLT\r\n      CALL READ (*910,*920,SLT,CARD(1),6,0,IFLAG)\r\n      N  = ICARD(6) + 1\r\n      XI = N - 1\r\nC\r\nC     CONVERT PHI1,PHI2 TO RADIANS\r\nC\r\n      CARD(4) = CARD(4)*DEGRAD\r\n      CARD(5) = CARD(5)*DEGRAD\r\nC\r\nC     PICK UP BGPDT DATA FOR RINGS\r\nC\r\nC     IF 1ST. RING IS NEGATIVE, THIS IS A SURFACE CHARGE LOAD IN A\r\nC     PIEZOELECTRIC PROBLEM\r\nC\r\n      PIEZ = .FALSE.\r\n      IF (KSYSTM(78).NE.1 .OR. ICARD(2).GT.0) GO TO 5\r\n      PIEZ = .TRUE.\r\n      ICARD(2) = -ICARD(2)\r\n    5 CONTINUE\r\n      CALL PERMUT (ICARD(2),IORD(1),2,OLD)\r\n      DO 10 I = 1,2\r\n      J = IORD(I) + 1\r\n      CALL FNDPNT (GPCO(1,J-1),ICARD(J) )\r\n   10 CONTINUE\r\n      XL = SQRT((GPCO(2,2) - GPCO(2,1))**2 + (GPCO(3,2) - GPCO(3,1))**2)\r\n      IF (XL .EQ. 0.0) CALL MESAGE (-30,26,-1)\r\n      SINSI = (GPCO(2,2) - GPCO(2,1))/XL\r\n      COSSI = (GPCO(3,2) - GPCO(3,1))/XL\r\n      CALL FNDSIL (ICARD(2))\r\n      ISILA = ICARD(2)\r\n      CALL FNDSIL (ICARD(3))\r\n      ISILB = ICARD(3)\r\nC\r\nC     APPLY LOADS TO ALL HARMONICS\r\nC\r\n      IF (N .NE. 1) GO TO 20\r\nC\r\nC     APPLY LOADS TO ZERO HARMONIC - COSINE SUBCASE ONLY\r\nC\r\n      IF (IHARM .NE. 2) GO TO 90\r\n      PR = (CARD(5) - CARD(4))\r\n      GO TO 30\r\nC\r\nC     I .GT. 1  APPLY  SINE AND COSINE FACTORS\r\nC\r\n   20 IF (IHARM .EQ. 1) GO TO 40\r\nC\r\nC     COSINE CASE\r\nC\r\n      PR = (SIN(XI*CARD(5)) - SIN(XI*CARD(4)))/XI\r\n      GO TO 30\r\nC\r\nC     SINE CASE\r\nC\r\n   40 PR = -(COS(XI*CARD(5)) - COS(XI*CARD(4)))/XI\r\nC\r\nC     APPLY LOADS\r\nC\r\n   30 PR = PR*CARD(1)*XL\r\n      PRPIEZ = PR\r\n      PRC = PR*COSSI\r\n      PRS =-PR*SINSI\r\n      PR  = GPCO(2,1)/3.0 + GPCO(2,2)/6.0\r\n      IF (.NOT.PIEZ) GO TO 35\r\nC\r\nC     PIEZOELECTRIC\r\nC\r\n      PRC = 0.\r\n      PRS = 0.\r\n   35 CONTINUE\r\n      Z(ISILA  ) = Z(ISILA  ) + PRC*PR\r\n      Z(ISILA+2) = Z(ISILA+2) + PRS*PR\r\n      IF (PIEZ)  Z(ISILA+3) = Z(ISILA+3) + PRPIEZ*PR\r\n      PR = GPCO(2,2)/3.0 + GPCO(2,1)/6.0\r\n      Z(ISILB  ) = Z(ISILB  ) + PRC*PR\r\n      Z(ISILB+2) = Z(ISILB+2) + PRS*PR\r\n      IF (PIEZ)  Z(ISILB+3) = Z(ISILB+3) + PRPIEZ*PR\r\n   90 RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n  910 IP1 = -2\r\n  911 CALL MESAGE (IP1,FILE,NAME(1))\r\n  920 IP1 = -3\r\n      GO TO 911\r\n      END\r\n"
  },
  {
    "path": "mis/pretab.f",
    "content": "      SUBROUTINE PRETAB (DITF,RZ,INZ,BUF,LCRGVN,LCUSED,TABNOL,LIST)\r\nC\r\nC     SUBROUTINE PRETAB READS TABLES INTO OPEN CORE, SETS UP TABLE\r\nC     DICTIONARIES WHICH ARE LATER USED WHEN THE CALLING ROUTINE\r\nC     REQUESTS A FUNCTIONAL VALUE FROM A TABLE VIA A CALL TO THE ENTRY\r\nC     POINT TAB.\r\nC\r\nC     REVISED  7/92, BY G.CHAN/UNISYS.\r\nC     1. NEW REFERENCE TO THE OPEN CORE ARRAY SUCH THAT THE SOURCE CODE\r\nC        IS UP TO ANSI FORTRAN 77 STANDARD\r\nC     2. LOGARITHMIC SCALE ENHANCEMENT\r\nC\r\nC     ARGUMENT LIST -\r\nC\r\nC     DITF     THE GINO NAME OF THE FILE ON WHICH THE TABLES RESIDE.\r\nC     RZ       THE OPEN CORE ARRAY. RZ IS USED AS REAL BY THIS ROUTINE.\r\nC     INZ      SAME ADDRESS AS RZ.  USED AS INTEGER IN THIS ROUTINE.\r\nC     BUF      A BUFFER TO BE USED BY SUBROUTINE PRELOC.\r\nC     LCRGVN   THE LENGTH OF OPEN CORE GIVEN TO PRETAB.\r\nC     LCUSED   THE AMOUNT OF CORE USED BY PRETAB.\r\nC     TABNOL   LIST OF TABLE NUMBERS THAT THE USER WILL BE REFERENCING.\r\nC              TABNOL(1) = N IS THE NUMBER OF TABLES TO BE REFERENCED.\r\nC              TABNOL(2),...,TABNOL(N+1) CONTAIN THE TABLE NUMBERS. NOTE\r\nC              THAT 0 IS AN ADMISSIBLE TABLE NUMBER IN THE TABLE NO.\r\nC              LIST.  TABLE NO. 0 DEFINES A FUNCTION WHICH IS IDENTICAL-\r\nC              LY = 0 FOR ALL VALUES OF THE INDEPENDENT VARIABLE.\r\nC     LIST     ARRAY OF CONTROL WORDS FOR SUBROUTINE LOCATE AND TABLE\r\nC              TYPES.\r\nC              LIST(1) = M IS THE NO. OF TRIPLES WHICH FOLLOW IN LIST.\r\nC              THE FIRST TWO WORDS OF EACH TRIPLE ARE THE SUBROUTINE\r\nC              LOCATE CONTROL WORDS AND THE THIRD WORD IS THE TABLE TYPE\r\nC              = 1,2,3,4, OR 5.\r\nC     LNTH     = 12 WORDS PER TABLE ENTRY\r\nC\r\n      LOGICAL         PART1\r\n      INTEGER         DITF   ,INZ(1) ,TABNOL(1)      ,DIT     ,LIST(1),\r\n     1                IARY(8),TABNO  ,TABTYP ,TABIDO ,NAME(2) ,\r\n     2                CLSRW  ,TABID  ,OFFSET ,SCTYP\r\n      REAL            Y(2)   ,RZ(1)  ,Z(1)   ,BUF(1) ,PX(2,2)\r\n      COMPLEX         SUM    ,A      ,B      ,TERM\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CONDAS/ PI     ,TWOPI  ,RADEG  ,DEGRA  ,S4PISQ\r\n      COMMON /SYSTEM/ IBUF   ,NOUT\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA     CLSRW, NEOR  ,NAME         ,PX              , LNTH  /\r\n     1         1    , 0     ,4HPRET,4HAB  ,3.,2.,1.339,1.0 , 12    /\r\nC\r\nC     INITIALIZE\r\nC\r\n      OFFSET = LOCFX(INZ(1)) - LOCFX(IZ(1))\r\n      IF (OFFSET .LT. 0) CALL ERRTRC ('PRETAB  ',5)\r\n      DIT  = DITF\r\n      IDIC = 0 + OFFSET\r\n      PART1= .TRUE.\r\n      LIM  = TABNOL(1)\r\n      ICRQ = LNTH*LIM - LCRGVN\r\n      IF (ICRQ .GE. 0) GO TO 1080\r\nC\r\nC     SET UP TABLE NUMBERS IN DICTIONARY\r\nC\r\nC     FOR EACH TABLE THE DICTIONARY ENTRY IS AS FOLLOWS -\r\nC\r\nC       LOC.  1      TABLE NUMBER\r\nC       LOC.  2      TABLE TYPE(1,2,3, 4, OR 5)\r\nC       LOC.  3      POINTER TO 1ST  ENTRY IN TABLE.\r\nC       LOC.  4      POINTER TO LAST ENTRY IN TABLE.\r\nC       LOC.  5      *\r\nC       LOC.  6      *\r\nC       LOC.  7      *\r\nC       LOC.  8      * LOCATIONS 5 THRU 11 CONTAIN TABLE PARAMETERS.\r\nC       LOC.  9      *\r\nC       LOC. 10      *\r\nC       LOC. 11      *\r\nC       LOC. 12      SCALE TYPE - LINEAR-LINER(0), LOG-LOG(1), LINEAR-\r\nC                                 LOG(2), LOG-LINEAR(3)\r\nC\r\n      DO 20 I = 1,LIM\r\n      IZ(IDIC+1) = TABNOL(I+1)\r\n      JLOW = IDIC + 2\r\n      JLIM = IDIC + LNTH\r\n      DO 10 J = JLOW,JLIM\r\n   10 IZ(J) = 0\r\n   20 IDIC  = IDIC + LNTH\r\n      IDICL = 1 + OFFSET\r\n      IDICH = IDIC\r\nC\r\nC     READ THE CARDS REFERENCED VIA THE TABNOL AND LIST ARRAY.\r\nC\r\n      ITABLE = IDIC\r\n      CALL PRELOC (*1010,BUF,DIT)\r\n      LIMJJ = TABNOL(1)\r\n      LIM   = LIST(1)\r\n      JJ    = 1\r\n   30 JJ3   = 3*JJ - 1\r\n      CALL LOCATE (*110,BUF,LIST(JJ3),FLAG)\r\nC\r\nC     READ 8 WORDS INTO THE ARRAY IARY\r\nC\r\n   40 CALL READ (*1020,*110,DIT,IARY,8,NEOR,FLAG)\r\n      TABNO = IARY(1)\r\n      SCTYP = IARY(8)\r\nC\r\nC     DETERMINE IF THIS TABLE NUMBER IS IN THE USER SUPPLIED LIST OF\r\nC     TABLE NUMBERS\r\nC\r\n      DO 50 J = 1,LIMJJ\r\n      IF (TABNO .EQ. IABS(TABNOL(J+1))) IF (TABNO-TABNOL(J+1)) 60,70,60\r\n   50 CONTINUE\r\nC\r\nC     THIS TABLE IS NOT CALLED FOR.  READ THE TABLE SERIALLY UNTIL AN\r\nC     END OF TABLE INDICATOR (TWO MINUS ONES FOR TABLE TYPES 1,2,3 AND\r\nC     ONE MINUS ONE FOR TABLE TYPE 4\r\nC\r\n      NWDS = 2\r\n      IF (LIST(3*JJ+1) .EQ. 4) NWDS = 1\r\n   55 CALL READ (*1020,*1040,DIT,IARY(2),NWDS,NEOR,IFLAG)\r\n      IF (IARY(2) .EQ. -1) GO TO 40\r\n      GO TO 55\r\nC\r\nC     THERE ARE TWO DIFFERENT TABLES WITH THE SAME NUMBER -- FATAL ERROR\r\nC\r\n   60 IARY(1) = TABNO\r\n      IARY(2) = LIST(3*JJ-1)\r\n      CALL MESAGE (-30,88,IARY)\r\nC\r\nC     THIS IS A NEW TABLE.  SET TABLE NUMBER NEGATIVE AND DEFINE WORDS\r\nC     2 AND 3 OF THE PROPER DICTIONARY ENTRY.\r\nC\r\n   70 TABTYP = LIST(3*JJ+1)\r\n      TABNOL(J+1) = -TABNOL(J+1)\r\n      INDEX  = LNTH*(J-1) + OFFSET\r\n      IZ(INDEX+2) = TABTYP\r\n      IZ(INDEX+3) = ITABLE + 1\r\nC\r\nC     READ THE TABLE INTO CORE.\r\nC\r\n      NWDSRD = 2\r\n      IF (TABTYP .EQ. 4) NWDSRD = 1\r\n      II = ITABLE + 1\r\n   80 CALL READ (*1020,*1040,DIT,Z(II),NWDSRD,NEOR,FLAG)\r\n      IF (IZ(II) .EQ. -1) GO TO 90\r\n      II   = II + NWDSRD\r\n      ICRQ = II - LCRGVN - OFFSET\r\n      IF (ICRQ .GE. 0) GO TO 1080\r\n      GO TO 80\r\nC\r\nC     STORE THE LAST LOCATION OF THE TABLE IN IZ(INDEX+4)\r\nC\r\n   90 IZ(INDEX+4) = II - NWDSRD\r\nC\r\nC     STORE THE PARAMETERS ON THE TABLE CARD IN WORDS 5 THRU 11 OF THE\r\nC     PROPER DICTIONARY ENTRY.\r\nC\r\n      LX = INDEX + 4\r\n      DO 100 K = 2,8\r\n      LX = LX + 1\r\n  100 IZ(LX) = IARY(K)\r\n      IZ(LX+1) = SCTYP\r\nC\r\nC     STORE THE CORRECT 0TH ADDRESS OF THE NEXT TABLE IN ITABLE\r\nC\r\n      ITABLE = IZ(INDEX+4)\r\nC\r\nC     IF THE TABLE IS A POLYNOMIAL EVALUATE THE END POINTS.\r\nC\r\n      IF (TABTYP .NE. 4) GO TO 108\r\n      L  = INDEX + 1\r\n      XX = (Z(L+6) - Z(L+4))/Z(L+5)\r\n      ASSIGN 470 TO IGOTO\r\n      GO TO  440\r\n  102 ASSIGN 480 TO IGOTO\r\n      XX = (Z(L+7) - Z(L+4))/Z(L+5)\r\n      GO TO 440\r\n  108 ITABLE = ITABLE + 1\r\n      GO TO 40\r\nC\r\nC     TEST TO SEE IF ALL OF THE REQUESTED TABLES HAVE BEEN FOUND. IF\r\nC     ALL TABLES HAVE NOT BEEN FOUND, GO TO NEXT TRIPLE IN LIST ARRAY\r\nC\r\n  110 IF (JJ .GE. LIM) GO TO 120\r\n      DO 115 I = 1,LIMJJ\r\n      IF (TABNOL(I+1) .GT. 0) GO TO 117\r\n  115 CONTINUE\r\n      GO TO 120\r\n  117 JJ = JJ + 1\r\n      GO TO 30\r\nC\r\nC     SET ALL ENTRIES IN TABNOL BACK TO THEIR ORIGINAL POSITIVE STATUS.\r\nC     IF AN ENTRY IS STILL POSITIVE, THIS IMPLIES THE TABLE WAS NOT\r\nC     FOUND IN THE DIT AND A FATAL ERROR CONDITION EXISTS.\r\nC\r\n  120 IFLAG = 0\r\n      DO 140 I = 1,LIMJJ\r\n      IF (TABNOL(I+1) .LE. 0) GO TO 130\r\n      CALL MESAGE (30,89,TABNOL(I+1))\r\n      IFLAG = 1\r\n      GO TO 140\r\n  130 TABNOL(I+1) = -TABNOL(I+1)\r\n  140 CONTINUE\r\n      IF (IFLAG .NE. 0) CALL MESAGE (-37,0,NAME)\r\nC\r\nC     WRAP-UP PRETAB\r\nC\r\n      CALL CLOSE (DIT,CLSRW)\r\n      PART1  = .FALSE.\r\n      TABIDO = -1\r\n      XO     = -10.0E+37\r\n      LCUSED = ITABLE + 1 - OFFSET\r\n      ICHECK = 123456789\r\n      RETURN\r\nC\r\nC     ENTRY TAB COMPUTES THE FUNCTIONAL VALUE Y AT THE ABSCISSA X FOR\r\nC     THE FUNCTION DEFINED BY THE TABLE WHOSE NUMBER IS TABID\r\nC\r\nC\r\n      ENTRY TAB (TABID,X,Y)\r\nC     =====================\r\nC\r\n      IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETAB  ',200)\r\n      ASSIGN 251 TO IHOP\r\nC\r\n      IF (TABID.EQ.TABIDO .AND. X.EQ.XO) GO TO 210\r\n      TABIDO = TABID\r\n      XO     = X\r\n      GO TO 220\r\n  210 Y(1) = YO\r\n      RETURN\r\n  220 IF (TABID .NE. 0) GO TO 230\r\n      Y(1) = 0.0\r\n      YO   = 0.0\r\n      RETURN\r\nC\r\nC     SEARCH THE TABLE DICTIONARY TO FIND THE TABLE NUMBER\r\nC\r\n  230 DO 240 II = IDICL,IDICH,LNTH\r\n      IF (TABID .EQ. IZ(II)) GO TO 250\r\n  240 CONTINUE\r\nC\r\nC     TABID COULD NOT BE FOUND IN THE DICTIONARY - FATAL ERROR\r\nC\r\n      CALL MESAGE (-30,90,TABID)\r\n  250 L = II\r\n      ITYPE = IZ(L+ 1)\r\n      SCTYP = IZ(L+11) + 1\r\n      GO TO IHOP, (251,501)\r\n  251 CONTINUE\r\n      GO TO (260,270,280,290,295), ITYPE\r\nC\r\nC     TABLE TYPE = 1\r\nC\r\nC     A  RGUMENT = X\r\nC\r\n  260 XX = X\r\n      GO TO 300\r\nC\r\nC     TABLE TYPE = 2\r\nC\r\nC     ARGUMENT = (X - X1)\r\nC\r\n  270 XX = X - Z(L+4)\r\n      GO TO 300\r\nC\r\nC     TABLE TYPE = 3\r\nC\r\nC     ARGUMENT = (X - X1)/X2\r\nC\r\n  280 XX = (X - Z(L+4))/Z(L+5)\r\n      GO TO 300\r\nC\r\nC     TABLE TYPE = 4\r\nC\r\nC     ARGUMENT = (X - X1)/X2\r\nC\r\n  290 XX = (X - Z(L+4))/Z(L+5)\r\n      GO TO 400\r\nC\r\nC     TABLE TYPE = 5\r\nC\r\nC     TABRNDG CARD FUNTION ONLY\r\nC\r\n  295 CONTINUE\r\nC\r\nC     PICK UP TYPE\r\nC\r\n      LX = IZ(L+4)\r\nC\r\nC     P US ONE OVER TERM IN PX TABLE BASED ONL TYPE\r\nC\r\n      P = 1./PX(LX,1)\r\nC\r\nC     CONPUTE K SQUARED FROM PX TABLE\r\nC\r\n      XKSQ = PX(LX,2)*PX(LX,2)\r\nC\r\nC     RETRIEVE LU (L/U) FROM TABLE PARAMS\r\nC\r\n      XLU = Z(L+5)\r\n      XX  = 2.*Z(L+6)**2*XLU\r\n      XLU = XLU*XLU\r\n      WSQ = S4PISQ*XO*XO\r\n      TR  = XKSQ*XLU*WSQ\r\n      PROP= XX*(1.+2.*(P+1.)*TR)/(1.+TR)**(P+1.5)\r\n      GO TO 500\r\nC\r\nC     ROUTINE TO PERFORM LINEAR INTERPOLATION FOR FUNCTION IN A TABLE.\r\nC     L POINTS TO THE ENTRY IN THE TABLE DICTIONARY WHICH DEFINES THE\r\nC     TABLE. THE ARGUMENT IS XX. THE FUNCTIONAL VALUE IS STORED IN PROP.\r\nC     EXTRAPOLATION IS MADE IF XX IS OUTSIDE THE LIMITS OF THE TABLE.\r\nC     HENCE THERE ARE NO ERROR RETURNS.\r\nC     HOWEVER, IF FUNCTION OVERFLOWED ON EXTRAPOLATION OUTSIDE TABLE\r\nC     LIMITS, A FATAL MESSAGE IS ISSUED.\r\nC\r\n  300 ITABL = IZ(L+2)\r\n      NTABL = IZ(L+3)\r\n      UP    = 1.0\r\n      IF (Z(ITABL) .GT. Z(ITABL+2)) UP = -1.0\r\n      KXX1  = ITABL\r\n      IF ((XX - Z(ITABL))*UP .LE. 0.0) GO TO 350\r\n      KXX1  = NTABL - 2\r\n      IF ((XX - Z(NTABL))*UP .GE. 0.0) GO TO 350\r\n      KLO = 1\r\n      KHI = (NTABL - ITABL)/2  +  1\r\n  310 KX  = (KLO + KHI + 1)/2\r\n      KXX = (KX - 1)*2 + ITABL\r\n      IF ((XX - Z(KXX))*UP) 320,370,330\r\n  320 KHI = KX\r\n      GO TO 340\r\n  330 KLO = KX\r\n  340 IF (KHI-KLO .NE. 1) GO TO 310\r\n      KXX1 = (KLO - 1)*2 + ITABL\r\n      IF (KXX .EQ.      KXX1) GO TO 350\r\n      IF (XX  .EQ. Z(KXX1+2)) GO TO 360\r\n  350 GO TO (355,351,352,353), SCTYP\r\n  351 CALL LOGLOG (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP)\r\n      GO TO 500\r\n  352 CALL SMILOG (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP)\r\n      GO TO 500\r\n  353 CALL LOGSMI (Z(KXX1),Z(KXX1+1),Z(KXX1+2),Z(KXX1+3),XX,PROP)\r\n      GO TO 500\r\n  355 PROP = (XX - Z(KXX1))*(Z(KXX1+3) - Z(KXX1+1))/(Z(KXX1+2)\r\n     1     - Z(KXX1)) + Z(KXX1+1)\r\n      IF (ABS(PROP) .LT. 1.0E-36) PROP = 0.0\r\n      IF (ABS(PROP) .LT. 1.0E+36) GO TO 500\r\n      IF (UP.GT.0. .AND. (XX.LT.Z(ITABL) .OR. XX.GT.Z(NTABL)))GO TO 1050\r\n      IF (UP.LT.0. .AND. (XX.GT.Z(ITABL) .OR. XX.LT.Z(NTABL)))GO TO 1050\r\n      GO TO 500\r\n  360 KXX = KXX1 + 2\r\n  370 IF (XX .EQ. Z(KXX-2)) GO TO 380\r\n      IF (XX .EQ. Z(KXX+2)) GO TO 390\r\n      PROP = Z(KXX+1)\r\n      GO TO 500\r\n  380 PROP = (Z(KXX-1) + Z(KXX+1))/2.0\r\n      GO TO 500\r\n  390 PROP = (Z(KXX+1) + Z(KXX+3))/2.0\r\n      GO TO 500\r\nC\r\nC     POLYNOMIAL EVALUATION\r\nC\r\n  400 IF (XX - (Z(L+6) - Z(L+4))/Z(L+5)) 410,410,420\r\n  410 PROP = Z(L+8)\r\n      GO TO 500\r\n  420 IF (XX - (Z(L+7) - Z(L+4))/Z(L+5)) 440,430,430\r\n  430 PROP = Z(L+9)\r\n      GO TO 500\r\n  440 NN   = IZ(L+3)\r\n      PROP = Z(NN)\r\n  450 IF (NN .LE. IZ(L+2)) GO TO 460\r\n      PROP = PROP*XX + Z(NN-1)\r\n      NN   = NN - 1\r\n      GO TO 450\r\n  460 IF (PART1) GO TO IGOTO, (470,480)\r\n      GO TO 500\r\n  470 Z(L+8) = PROP\r\n      GO TO 102\r\n  480 Z(L+9) = PROP\r\n      GO TO 40\r\nC\r\nC     TAB WRAP-UP\r\nC\r\n  500 Y(1) = PROP\r\n      YO   = Y(1)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY TAB1 (TABID,X,Y)\r\nC     ======================\r\nC\r\nC     ENRTY FOR TABLE TRANSFORM\r\nC\r\n      ASSIGN 501 TO IHOP\r\n      GO TO 220\r\n  501 CONTINUE\r\nC\r\nC     L  POINTS  TO TABLE\r\nC     ITYPE IS THE TABLE TYPE\r\nC\r\n      ITABL = IZ(L+2)\r\n      NTABL = IZ(L+3)\r\n      OMEGA = TWOPI*X\r\n      GO TO (510,520,530,540), ITYPE\r\nC\r\nC     TABLED1\r\nC\r\n  510 CONTINUE\r\n      X1 = 0.0\r\n      X2 = 1.0\r\n      GO TO 550\r\nC\r\nC     TABLED2\r\nC\r\n  520 CONTINUE\r\n      X1 = Z(L+4)\r\n      X2 = 1.0\r\n      GO TO 550\r\nC\r\nC     TABLED3\r\nC\r\n  530 CONTINUE\r\n      X1 = Z(L+4)\r\n      X2 = Z(L+5)\r\n      GO TO 550\r\nC\r\nC     TABLED4\r\nC\r\n  540 CONTINUE\r\nC\r\nC     EVALUATE SUM\r\nC\r\n  550 CONTINUE\r\n      SUM = CMPLX(0.0,0.0)\r\n      K   = ITABL\r\n  551 CONTINUE\r\n      YI   = Z(K+1)\r\n      XI   = Z(K)\r\n      YIP1 = Z(K+3)\r\n      XIP1 = Z(K+2)\r\n      OMEGAX = OMEGA*X2*(XIP1-XI)\r\n      CALL IFTE2 (OMEGAX,RP,CP)\r\n      P    =-OMEGA*(X1 + X2*XIP1)\r\n      A    = CMPLX(0.,P)\r\n      B    = CMPLX(RP,CP)\r\n      TERM = CEXP(A)*B*YIP1\r\n      P    =-OMEGA*(X1 + X2*XI)\r\n      A    = CMPLX(0.,P)\r\n      B    = CMPLX(RP,-CP)\r\n      TERM = TERM + CEXP(A)*B*YI\r\n      TERM = TERM*(XIP1- XI)*.5\r\n      SUM  = SUM  + TERM\r\n      K    = K + 2\r\n      IF (K .LT. NTABL) GO TO 551\r\nC\r\nC     FINISH FUNCTION\r\nC\r\n      SUM  = SUM*X2\r\n      Y(1) = REAL(SUM)\r\n      Y(2) = AIMAG(SUM)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1010 MN = -1\r\n      GO TO 1100\r\n 1020 MN = -2\r\n      GO TO 1100\r\n 1040 MN = -3\r\n      GO TO 1100\r\n 1050 WRITE  (NOUT,1055) UFM,IZ(L)\r\n 1055 FORMAT (A23,' 3308, TABLE',I9,' INTERPOLATION ERROR', /5X,\r\n     1       'FUNCTION OVERFLOWED WHEN EXTRAPOLATION WAS MADE OUTSIDE ',\r\n     2       'TABLE GIVEN RANGE.')\r\n      MN = -37\r\n      GO TO 1100\r\n 1080 MN = -8\r\n      DIT= ICRQ\r\n 1100 CALL MESAGE (MN,DIT,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pretrd.f",
    "content": "      SUBROUTINE PRETRD (CSTMX,NCSTMX)\r\nC\r\nC     PRETRD SETS UP EVENTUAL CALLS TO TRANSD.  FOR A MODULE TO USE\r\nC     TRANSD A CALL TO PRETRD MUST BE INITIATED BY THE MODULE DRIVER\r\nC     ONCE AND ONLY ONCE.  CSTMX IS ARRAY OF COORDINATE SYSTEM\r\nC     TRANSFORMATION MATRICES AND MCSTMX IS THE LENGTH OF THIS ARRAY.\r\nC\r\nC     THE ARRAY CSTMX MUST BE WITHIN OPEN CORE BOUND, AND THERE IS NO\r\nC     CHECK ON THIS CONDITION.\r\nC\r\nC     GIVEN THE ECPT ARRAY OF LENGTH 4, THE FIRST WORD BEING AN INTEGER\r\nC     COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING\r\nC     THE REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE\r\nC     COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH\r\nC     WILL MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC\r\nC     COORDINATES.  TA IS A DOUBLE PRECISION MATRIX.\r\nC\r\nC     REVISED  7/92 BY G.CHAN/UNISYS. NEW REFERENCE TO CSTM ARRAY SUCH\r\nC     THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANDARD.\r\nC\r\n      INTEGER          OFFSET\r\n      DOUBLE PRECISION TA(9),TL(9),XN(3),X,Y,Z,R,KE(9),XL\r\n      DIMENSION        CSTMX(1),ECPT(4)\r\n      COMMON /ZZZZZZ/  CSTM(1)\r\n      EQUIVALENCE      (FL1,INT1),(FL2,INT2)\r\nC\r\n      NCSTM  = NCSTMX\r\n      OFFSET = LOCFX(CSTMX(1)) - LOCFX(CSTM(1))\r\n      IF (OFFSET .LT. 0) CALL ERRTRC ('PRETRD  ',1)\r\n      ICHECK = 123456789\r\n      RETURN\r\nC\r\nC\r\n      ENTRY TRANSD (ECPT,TA)\r\nC     ======================\r\nC\r\n      FL1 = ECPT(1)\r\n      IF (INT1 .EQ. 0) GO TO 90\r\n      IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETRD  ',10)\r\n      DO 10 J = 1,NCSTM,14\r\n      I   = J + OFFSET\r\n      FL2 = CSTM(I)\r\n      IF (INT1 .NE. INT2) GO TO 10\r\n      KK  = I\r\n      FL2 = CSTM(I+1)\r\n      GO TO (20,40,40), INT2\r\n   10 CONTINUE\r\nC\r\nC     THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM.\r\nC\r\n      CALL MESAGE (-30,25,INT1)\r\nC\r\nC     THE COORDINATE SYSTEM IS RECTANGULAR.\r\nC\r\n   20 DO 30 J = 1,9\r\n      K = KK + 4 + J\r\n   30 TA(J) = CSTM(K)\r\n      RETURN\r\nC\r\n   40 XN(1) = ECPT(2) - CSTM(KK+2)\r\n      XN(2) = ECPT(3) - CSTM(KK+3)\r\n      XN(3) = ECPT(4) - CSTM(KK+4)\r\n      X = CSTM(KK+5)*XN(1) + CSTM(KK+ 8)*XN(2) + CSTM(KK+11)*XN(3)\r\n      Y = CSTM(KK+6)*XN(1) + CSTM(KK+ 9)*XN(2) + CSTM(KK+12)*XN(3)\r\n      Z = CSTM(KK+7)*XN(1) + CSTM(KK+10)*XN(2) + CSTM(KK+13)*XN(3)\r\n      R = DSQRT(X**2+Y**2)\r\n      IF (R .EQ. 0.0D0) GO TO 20\r\n      DO 50 J = 1,9\r\n      K = KK + 4 + J\r\n   50 KE(J) = CSTM(K)\r\n      GO TO (60,60,70), INT2\r\nC\r\nC     THE COORDINATE SYSTEM IS CYLINDRICAL.\r\nC\r\n   60 TL(1) = X/R\r\n      TL(2) =-Y/R\r\n      TL(3) = 0.0D0\r\n      TL(4) =-TL(2)\r\n      TL(5) = TL(1)\r\n      TL(6) = 0.0D0\r\n      TL(7) = 0.0D0\r\n      TL(8) = 0.0D0\r\n      TL(9) = 1.0D0\r\n      GO TO 80\r\nC\r\nC     THE COORDINATE SYSTEM IS SPHERICAL.\r\nC\r\n   70 XL = DSQRT(X*X + Y*Y + Z*Z)\r\n      TL(1) = X/XL\r\n      TL(2) = (X*Z)/(R*XL)\r\n      TL(3) =-Y/R\r\n      TL(4) = Y/XL\r\n      TL(5) = (Y*Z)/(R*XL)\r\n      TL(6) = X/R\r\n      TL(7) = Z/XL\r\n      TL(8) =-R/XL\r\n      TL(9) = 0.0D0\r\n   80 CALL GMMATD (KE(1),3,3,0, TL(1),3,3,0, TA(1))\r\n      RETURN\r\nC\r\nC     THE LOCAL SYSTEM IS BASIC.\r\nC\r\n   90 DO 100 I = 1,9\r\n  100 TA(I) = 0.0D0\r\n      TA(1) = 1.0D0\r\n      TA(5) = 1.0D0\r\n      TA(9) = 1.0D0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pretrs.f",
    "content": "      SUBROUTINE PRETRS (CSTMX,NCSTMX)\r\nC\r\nC     PRETRS SETS UP EVENTUAL CALLS TO TRANSS.  FOR A MODULE TO USE\r\nC     TRANSS A CALL TO PRETRS MUST BE INITIATED BY THE MODULE DRIVER\r\nC     ONCE AND ONLY ONCE.  CSTMX IS ARRAY OF COORDINATE SYSTEM\r\nC     TRANSFORMATION MATRICES AND MCSTMX IS THE LENGTH OF THIS ARRAY.\r\nC\r\nC     THE CSTMX ARRAY MUST BE WITHIN OPEN CORE BOUND, AND THERE IS NO\r\nC     CHECK ON THIS CONDITION\r\nC\r\nC     GIVEN THE ARRAY ECPT OF LENGTH 4, THE FIRST WORD BEING AN INTEGER\r\nC     COORDINATE SYSTEM IDENTIFICATION NUMBER AND THE NEXT WORDS BEING\r\nC     THE REAL COORDINATES OF A POINT IN BASIC COORDINATES, THIS ROUTINE\r\nC     COMPUTES THE TRANSFORMATION (DIRECTION COSINE) MATRIX TA WHICH\r\nC     WILL MAP A VECTOR FROM THE LOCAL SYSTEM LABELED ECPT(1) TO BASIC\r\nC     COORDINATES.\r\nC\r\nC     REVISED  7/92 BY G.CHAN/UNISYS. NEW REFERENCE TO CSTM ARRAY SUCH\r\nC     THAT THE SOURCE CODE IS UP TO ANSI FORTRAN 77 STANDARD.\r\nC\r\n      INTEGER         OFFSET\r\n      REAL            KE\r\n      DIMENSION       CSTMX(1),ECPT(4),TA(9),TL(9),KE(9),XN(3)\r\n      COMMON /ZZZZZZ/ CSTM(1)\r\n      EQUIVALENCE     (FL1,INT1),(FL2,INT2)\r\nC\r\n      NCSTM  = NCSTMX\r\n      OFFSET = LOCFX(CSTMX(1)) - LOCFX(CSTM(1))\r\n      IF (OFFSET .LT. 0) CALL ERRTRC ('PRETRS  ',1)\r\n      ICHECK = 123456789\r\n      RETURN\r\nC\r\nC\r\n      ENTRY TRANSS (ECPT,TA)\r\nC     ======================\r\nC\r\n      FL1 = ECPT(1)\r\n      IF (INT1 .EQ. 0) GO TO 90\r\n      IF (ICHECK .NE. 123456789) CALL ERRTRC ('PRETRS  ',10)\r\n      DO 10 J = 1,NCSTM,14\r\n      I   = J + OFFSET\r\n      FL2 = CSTM(I)\r\n      IF (INT1 .NE. INT2) GO TO 10\r\n      KK = I\r\n      FL2 = CSTM(I+1)\r\n      GO TO (20,40,40), INT2\r\n   10 CONTINUE\r\nC\r\nC     THE COORDINATE SYSTEM ID. COULD NOT BE FOUND IN THE CSTM.\r\nC\r\n      CALL MESAGE (-30,25,INT1)\r\nC\r\nC     THE COORDINATE SYSTEM IS RECTANGULAR.\r\nC\r\n   20 DO 30 J = 1,9\r\n      K = KK + 4 + J\r\n   30 TA(J) = CSTM(K)\r\n      RETURN\r\nC\r\n   40 XN(1) = ECPT(2) - CSTM(KK+2)\r\n      XN(2) = ECPT(3) - CSTM(KK+3)\r\n      XN(3) = ECPT(4) - CSTM(KK+4)\r\n      X = CSTM(KK+5)*XN(1) + CSTM(KK+ 8)*XN(2) + CSTM(KK+11)*XN(3)\r\n      Y = CSTM(KK+6)*XN(1) + CSTM(KK+ 9)*XN(2) + CSTM(KK+12)*XN(3)\r\n      Z = CSTM(KK+7)*XN(1) + CSTM(KK+10)*XN(2) + CSTM(KK+13)*XN(3)\r\n      R = SQRT(X**2 + Y**2)\r\n      IF (R .EQ. 0.0) GO TO 20\r\n      DO 50 J = 1,9\r\n      K = KK + 4 + J\r\n   50 KE(J) = CSTM(K)\r\n      GO TO (60,60,70), INT2\r\nC\r\nC     THE COORDINATE SYSTEM IS CYLINDRICAL.\r\nC\r\n   60 TL(1) = X/R\r\n      TL(2) =-Y/R\r\n      TL(3) = 0.0\r\n      TL(4) =-TL(2)\r\n      TL(5) = TL(1)\r\n      TL(6) = 0.0\r\n      TL(7) = 0.0\r\n      TL(8) = 0.0\r\n      TL(9) = 1.0\r\n      GO TO 80\r\nC\r\nC     THE COORDINATE SYSTEM IS SPHERICAL.\r\nC\r\n   70 XL = SQRT(X**2 + Y**2 + Z**2)\r\n      TL(1) = X/XL\r\n      TL(2) = (X*Z)/(R*XL)\r\n      TL(3) =-Y/R\r\n      TL(4) = Y/XL\r\n      TL(5) = (Y*Z)/(R*XL)\r\n      TL(6) = X/R\r\n      TL(7) = Z/XL\r\n      TL(8) =-R/XL\r\n      TL(9) = 0.0\r\n   80 CALL GMMATS (KE(1),3,3,0, TL(1),3,3,0, TA(1))\r\n      RETURN\r\nC\r\nC     THE LOCAL SYSTEM IS BASIC.\r\nC\r\n   90 DO 100 I = 1,9\r\n  100 TA(I) = 0.0\r\n      TA(1) = 1.0\r\n      TA(5) = 1.0\r\n      TA(9) = 1.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/print.f",
    "content": "      SUBROUTINE PRINT (X,Y,XYD,CHR,N,OPT)\r\nC\r\nC     (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE PRINTED (ALWAYS\r\nC             LEFT-TO-RIGHT OR TOP-TO-BOTTOM).\r\nC     CHR   = CHARACTERS TO BE PRINTED (4 PER WORD).\r\nC     N     = NUMBER OF 4 CHARACTER WORDS.\r\nC     XYD   = +/-1 IF X = STARTING OR ENDING POINT OF THE LINE.\r\nC     ...   = +/-2 .. Y = ........ .. ...... ..... .. ... .....\r\nC     OPT   = -1 TO INITIATE  THE TYPING MODE.\r\nC     ...   = +1 .. TERMINATE ... ...... .....\r\nC     ...   =  0 .. PRINT A LINE.\r\nC\r\n      EXTERNAL        ORF,KRSHFT,KLSHFT\r\n      INTEGER         XYD,CHR(1),OPT,ORF,C(80),BLANK,BLNK,CHARX,D\r\n      REAL            XY(2,2)\r\n      COMMON /PLTDAT/ SKPPLT(20),SKPA(3),CNTCHR(2)\r\n      COMMON /SYSTEM/ SKPSYS(40),NCPW\r\n      DATA    BLANK / 1H /\r\nC\r\n      IF (OPT .NE. 0) GO TO 150\r\n      BLNK = KRSHFT(KLSHFT(BLANK,1),1)\r\n      D = MAX0(IABS(XYD),1)\r\n      S = CNTCHR(D)\r\n      IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S\r\n      XY(1,1) = X\r\n      XY(2,1) = Y\r\n      XY(1,2) = XY(1,1)\r\n      XY(2,2) = XY(2,1)\r\nC\r\nC     SEPARATE 80 CHARACTERS AT A TIME.\r\nC\r\n      DO 130 J = 1,N,20\r\n      IF (XYD .LT. 0) GO TO 105\r\n      L1 = J\r\n      L2 = L1 + 19\r\n      IF (L2 .GT. N) L2 = N\r\n      GO TO 106\r\n  105 L2 = N - J + 1\r\n      L1 = L2 - 19\r\n      IF (L1 .LE. 0) L1 = 1\r\nC\r\n  106 NC = 0\r\n      DO 120 L = L1,L2\r\n      DO 110 I = 1,4\r\n      CHARX = KRSHFT(CHR(L),NCPW-I)\r\n      NC = NC + 1\r\n      C(NC) = ORF(KLSHFT(CHARX,NCPW-1),BLNK)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     TYPE THE -NC- CHARACTERS JUST SEPARATED.\r\nC\r\n      XY(D,2) = XY(D,1) + S*FLOAT(L1-1)\r\n      CALL TIPE (XY(1,2),XY(2,2),XYD,C,NC,0)\r\n  130 CONTINUE\r\n      GO TO 200\r\nC\r\nC     OPT = +/-1\r\nC\r\n  150 CALL TIPE (0,0,0,0,0,OPT)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/proces.f",
    "content": "      SUBROUTINE PROCES (X)\r\nC\r\n      INTEGER          AXES,AXIS,GP,PRJECT\r\n      REAL             X(3,1),XMIN(3),XMAX(3),MIN,MAX\r\n      DOUBLE PRECISION SUM,V(3)\r\n      COMMON /CONDAS/  CONSTS(5)\r\n      COMMON /BLANK /  SKPCOM(5),NGPSET\r\n      COMMON /XXPARM/  PBUFSZ,PLOTER(5),PENPAP(30),SCALE(5),AXES(6),\r\n     1                 ALPHA,BETA,GAMMA,BETA13,BETA2,VIEW(4),\r\n     2                 VANPUT(8),PRJECT\r\n      COMMON /RSTXXX/  CSTM(3,3),MIN(3),MAX(3),D(3),AVER(3),\r\n     1                 AXIS(3),SIGN(3)\r\n      COMMON /DRWAXS/  G(3,3)\r\n      EQUIVALENCE      (CONSTS(3),RAD)\r\nC\r\nC     INITIALIZATION.\r\nC\r\n      DO 10 I = 1,3\r\n      AXIS(I) = IABS(AXES(I))\r\n      SIGN(I) = 1.\r\n      IF (AXES(I) .LT. 0) SIGN(I) = -1.\r\n      MIN(I)  = +1.E+20\r\n      MAX(I)  = -1.E+20\r\n      IF (PRJECT  .NE. 3) GO TO 10\r\n      XMIN(I) = +1.E+20\r\n      XMAX(I) = -1.E+20\r\n   10 CONTINUE\r\nC\r\nC     CALCULATE THE CO-ORDINATE SYSTEM ROTATION MATRIX.\r\nC\r\n      IF (BETA .GT. -1.E+10) GO TO 20\r\n      IF (PRJECT .NE. 2) BETA = BETA13\r\n      IF (PRJECT .EQ. 2) BETA = BETA2\r\n   20 SINA = SIN(ALPHA/RAD)\r\n      SINB = SIN(BETA /RAD)\r\n      SING = SIN(GAMMA/RAD)\r\n      COSA = COS(ALPHA/RAD)\r\n      COSB = COS(BETA /RAD)\r\n      COSG = COS(GAMMA/RAD)\r\nC\r\n      CSTM(1,1) = COSB*COSG\r\n      CSTM(2,1) = COSA*SING + SINA*SINB*COSG\r\n      CSTM(3,1) = SINA*SING - COSA*SINB*COSG\r\n      CSTM(1,2) =-COSB*SING\r\n      CSTM(2,2) = COSA*COSG - SINA*SINB*SING\r\n      CSTM(3,2) = SINA*COSG + COSA*SINB*SING\r\n      CSTM(1,3) = SINB\r\n      CSTM(2,3) =-SINA*COSB\r\n      CSTM(3,3) = COSA*COSB\r\nC\r\nC     SWITCH AXES + ROTATE THE GRID POINT CO-ORDINATES.\r\nC\r\n      DO 60 GP = 1,NGPSET\r\n      DO 30  I = 1,3\r\n      J    = AXIS(I)\r\n      V(I) = SIGN(I)*X(J,GP)\r\n      IF (PRJECT .NE. 3) GO TO 30\r\n      VAL  = V(I)\r\n      XMIN(I) = AMIN1(XMIN(I),VAL)\r\n      XMAX(I) = AMAX1(XMAX(I),VAL)\r\n   30 CONTINUE\r\n      DO 50 J = 1,3\r\n      SUM = 0.D0\r\n      DO 40 I = 1,3\r\n      SUM = SUM + CSTM(J,I)*V(I)\r\n   40 CONTINUE\r\n      VAL = SUM\r\n      X(J,GP) = VAL\r\n      MIN(J)  = AMIN1(MIN(J),VAL)\r\n      MAX(J)  = AMAX1(MAX(J),VAL)\r\n   50 CONTINUE\r\n   60 CONTINUE\r\nC\r\nC     CALCULATE THE MINIMA-MAXIMA DIFFERENCES + AVERAGES.\r\nC\r\n      DO 70 I = 1,3\r\n      IF (PRJECT .NE. 3) D(I) =  MAX(I) -  MIN(I)\r\n      IF (PRJECT .EQ. 3) D(I) = XMAX(I) - XMIN(I)\r\n      AVER(I) = (MAX(I)+MIN(I))/2.\r\n   70 CONTINUE\r\nC\r\nC     CREATE A X-Y-Z UNIT COORDINATES IN /DRWAXS/ FOR VIEW PLOTTING\r\nC\r\n      DO 90 I = 1,9\r\n   90 G(I,1) = 0.0\r\n      G(1,1) = 1.0\r\n      G(2,2) = 1.0\r\n      G(3,3) = 1.0\r\nC\r\n      DO 130 GP = 1,3\r\n      DO 100  I = 1,3\r\n      J    = AXIS(I)\r\n      V(I) = SIGN(I)*G(J,GP)\r\n  100 CONTINUE\r\n      DO 120 J = 1,3\r\n      SUM = 0.D0\r\n      DO 110 I = 1,3\r\n      SUM = SUM + CSTM(J,I)*V(I)\r\n  110 CONTINUE\r\n  120 G(J,GP) = SUM\r\n  130 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/procom.f",
    "content": "      SUBROUTINE PROCOM (PROCOS,PROCOF,CASECC,NCOEFS,NGRIDS)\r\nC\r\nC     PROCOM COMBINES PROCOF CASES FOR SUBCOM-S AND REPCASES\r\nC\r\n      INTEGER         PROCOF,CASECC,BUF1,BUF2,BUF3,FILE,PROCOS,INFO(7),\r\n     1                IZ(1),NAM(2)\r\n      COMMON /SYSTEM/ IBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    I166  , I16  ,NAM   / 166, 16, 4HPROC,4HOM  /\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - IBUF + 1\r\n      BUF2  = BUF1  - IBUF\r\n      BUF3  = BUF2  - IBUF\r\n      LCORE = BUF3  - 1\r\n      IF (LCORE.LT.NCOEFS .OR. LCORE.LT.NGRIDS) GO TO 108\r\n      CALL GOPEN (PROCOS,Z(BUF1),0)\r\n      CALL GOPEN (PROCOF,Z(BUF2),1)\r\nC\r\nC     CHECK EACH SUBCASE FOR REPCASE OR SUBCOM-IF NONE(JUST COPY SET OF\r\nC     5 RECORDS FROM PROCOS TO PROCOF\r\nC\r\n      FILE = CASECC\r\n      CALL GOPEN (CASECC,Z(BUF3),0)\r\n   10 FILE = CASECC\r\n      CALL READ (*90,*20,CASECC,Z(1),LCORE,0,IWORDS)\r\n      GO TO 108\r\n   20 IF (IZ(I16) .NE. 0) GO TO 30\r\nC\r\nC     NOT A SUBCOM - MIGHT BE REPCASE\r\nC\r\n   25 FILE = PROCOS\r\n      CALL FREAD (PROCOS,Z,103,1)\r\n      CALL WRITE (PROCOF,Z,103,1)\r\n      CALL FREAD (PROCOS,Z,NCOEFS,1)\r\n      CALL WRITE (PROCOF,Z,NCOEFS,1)\r\n      CALL FREAD (PROCOS,Z,NCOEFS,1)\r\n      CALL WRITE (PROCOF,Z,NCOEFS,1)\r\n      CALL FREAD (PROCOS,Z,NGRIDS,1)\r\n      CALL WRITE (PROCOF,Z,NGRIDS,1)\r\n      CALL FREAD (PROCOS,Z,NGRIDS,1)\r\n      CALL WRITE (PROCOF,Z,NGRIDS,1)\r\nC\r\nC     GO BACK FOR ANOTHER CASE CONTROL RECORD\r\nC\r\n      GO TO 10\r\nC\r\nC     REPCASE OR SUBCOM\r\nC\r\n   30 IF (IZ(I16) .GT. 0) GO TO 45\r\nC\r\nC     REPCASE\r\nC\r\n      DO 40 I = 1,5\r\n      CALL BCKREC (PROCOS)\r\n   40 CONTINUE\r\n      GO TO 25\r\nC\r\nC     SUBCOM\r\nC\r\n   45 LCC  = IZ(I166)\r\n      LSYM = IZ(LCC)\r\n      DO 50 I = 1,LSYM\r\n      DO 50 J = 1,5\r\n      CALL BCKREC (PROCOS)\r\n   50 CONTINUE\r\n      NTOT = 2*(NCOEFS+NGRIDS)\r\n      IF (IWORDS+2*NTOT .GT. LCORE) GO TO 108\r\n      INEW = IWORDS + NTOT\r\n      DO 60 I = 1,NTOT\r\n   60 Z(INEW+I) = 0.\r\n      DO 80 I = 1,LSYM\r\n      COEF = Z(LCC+I)\r\n      IF (COEF .EQ. 0.) GO TO 75\r\n      CALL FREAD (PROCOS,INFO,103,1)\r\n      CALL FREAD (PROCOS,Z(IWORDS+1),NCOEFS,1)\r\n      CALL FREAD (PROCOS,Z(IWORDS+NCOEFS+1),NCOEFS,1)\r\n      CALL FREAD (PROCOS,Z(IWORDS+2*NCOEFS+1),NGRIDS,1)\r\n      CALL FREAD (PROCOS,Z(IWORDS+2*NCOEFS+NGRIDS+1),NGRIDS,1)\r\n      DO 70 J = 1,NTOT\r\n      Z(INEW+J) = Z(INEW+J) + COEF*Z(IWORDS+J)\r\n   70 CONTINUE\r\n      GO TO 80\r\n   75 DO 76 K = 1,5\r\n      CALL FWDREC (*102,PROCOS)\r\n   76 CONTINUE\r\nC\r\n   80 CONTINUE\r\nC\r\nC     WRITE TO PROCOF- 1ST BE SURE THAT ISYM IS 0 TO ACCOUNT FOR\r\nC     POSSIBLE SYMMETRY-ANTISYMMETRY COMBINATION\r\nC\r\n      INFO(6) = 0\r\n      CALL WRITE (PROCOF,INFO,103,1)\r\n      CALL WRITE (PROCOF,Z(INEW+1),NCOEFS,1)\r\n      CALL WRITE (PROCOF,Z(INEW+NCOEFS+1),NCOEFS,1)\r\n      CALL WRITE (PROCOF,Z(INEW+2*NCOEFS+1),NGRIDS,1)\r\n      CALL WRITE (PROCOF,Z(INEW+2*NCOEFS+NGRIDS+1),NGRIDS,1)\r\nC\r\nC     GO BACK FOR ANOTHER SUBCASE\r\nC\r\n      GO TO 10\r\nC\r\nC     DONE\r\nC\r\n   90 CALL CLOSE (CASECC,1)\r\n      CALL CLOSE (PROCOS,1)\r\n      CALL CLOSE (PROCOF,1)\r\n      INFO(1) = PROCOS\r\n      CALL RDTRL (INFO)\r\n      INFO(1) = PROCOF\r\n      CALL WRTTRL (INFO)\r\n      RETURN\r\nC\r\n  102 CALL MESAGE (-2,0,NAM)\r\n  108 CALL MESAGE (-8,0,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/prolat.f",
    "content": "      SUBROUTINE PROLAT\r\nC\r\nC     PROLATE COMPUTES COEFFICIENTS FOR A PROLATE SPHEROIDAL HARMONIC\r\nC     EXPANSION FOR MAGNETOSTATICS PROBLEMS. A PROLATE SPHEROID IA\r\nC     ASSUMED TO ENCLOSE THE FERROMAGNETIC BODY AND ALL MAGNETIC\r\nC     SOURCES. A PROLATE BULK DATA CARD DEFINES THE GRIDS ON HTE SURFACE\r\nC     OF TEH PROLATE SPHEROID, THE NUMBER OF TERMS IN THE SERIES\r\nC     EXPANSION,ETC. CASE CONTROL CARD AXISYM CONTROLS SYMMETRY OR ANTI-\r\nC     SYMMETRY(OR LACK OF) OF THE POTENTIAL W.R.T. THE X-Y PLANE FOR\r\nC     EACH SUBCASE.\r\nC\r\nC     PROLATE  GEOM1,EQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLD,HEST,MPT,DIT/\r\nC              PROCF\r\nC\r\n      LOGICAL         REMFL,ONLYAR,ANOM,WRIT\r\n      INTEGER         BUF1,BUF2,FILE,GEOM1,EQEXIN,BGPDT,CASECC,HUGV,\r\n     1                PROCOF,SYSBUF,OTPE,TYPOUT,SCR1,PROLTE(2),INFO(7),\r\n     2                SUBCAS,HEST,PROCOS,TRAIL(7)\r\nC     INTEGER         DIT,REMFLD,MPT\r\n      REAL            INTER(4,4),J11,J12,J21,J22\r\n      DIMENSION       IZ(6),NAM(2),MCB(7),V13(3),V24(3),VX(3),POTI(4),\r\n     1                POTV(4),XII(4),ETAI(4),XDETJ(4),IPT(4),XX(4),\r\n     2                YY(4),ZZ(4),PNMV(4),XETA(4),XPHI(4),TRIGC(4),\r\n     3                TRIGS(4),ETAINT(4),PHIINT(4),XN(4),FO(7),TITLE(96)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM\r\n      COMMON /BIOT  / NG1,NG2,IST,SUBCAS,X1,Y1,Z1,X2,Y2,Z2,BUF2,REMFL,\r\n     1                MCORE,LOAD,NSLT,SCR1,HEST,NTOT\r\n      COMMON /SYSTEM/ SYSBUF,OTPE\r\n      COMMON /UNPAKX/ TYPOUT,II,NN,INCR\r\n      COMMON /PACKX / ITYPIN,ITYPOU,III,NNN,JNCR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1)) , (INFO(1),FO(1))\r\n      DATA    NAM   / 4HPROL,4HATE /\r\n      DATA    PROCOS/ 302    /\r\n      DATA    PROLTE/ 4101,41/\r\n      DATA    GEOM1,  EQEXIN,BGPDT,CASECC/101,102,103,104/\r\n      DATA    HUGV,   PROCOF /106,201    /\r\nC     DATA    REMFLD, MPT,DIT/107,109,110/\r\n      DATA    PT1,    PT2    /.211324865,.788675135/\r\n      DATA    INTER(1,1),INTER(2,2),INTER(3,3),INTER(4,4)/4*.622008469/\r\n      DATA    INTER(1,2),INTER(1,4),INTER(2,1),INTER(2,3)/4*.16666667 /\r\n      DATA    INTER(3,2),INTER(3,4),INTER(4,1),INTER(4,3)/4*.16666667 /\r\n      DATA    INTER(1,3),INTER(2,4),INTER(3,1),INTER(4,2)/4*.044658199/\r\n      DATA    PI    / 3.1415927/\r\nC\r\n      TPI    = 2.*PI\r\n      WRIT   = .FALSE.\r\n      NSLT   = 105\r\n      HEST   = 108\r\n      SCR1   = 301\r\n      LCORE  = KORSZ(Z)\r\n      LLCORE = LCORE\r\n      BUF1   = LCORE - SYSBUF\r\n      LCORE  = BUF1 - 1\r\n      IF (LCORE .LE. 0) GO TO 1008\r\nC\r\n      XII(1) = PT1\r\n      XII(2) = PT1\r\n      XII(3) = PT2\r\n      XII(4) = PT2\r\n      ETAI(1)= PT2\r\n      ETAI(2)= PT1\r\n      ETAI(3)= PT1\r\n      ETAI(4)= PT2\r\nC\r\nC     CHECK TO SEE IF PROLATE CARD EXISTS.IF NOT, WARNING AND OUT\r\nC\r\n      FILE = GEOM1\r\n      CALL PRELOC (*1001,Z(BUF1),GEOM1)\r\n      CALL LOCATE (*10,Z(BUF1),PROLTE,IDX)\r\n      GO TO 20\r\n   10 WRITE  (OTPE,15) SIM\r\n   15 FORMAT (A31,', NO PROLAT CARD FOUND')\r\n      CALL CLOSE (GEOM1,1)\r\n      RETURN\r\nC\r\nC     THERE IS ONLY ONE PROLAT CARD IN THE DECK-READ IT IN\r\nC\r\n   20 CALL READ (*1002,*30,GEOM1,Z,LCORE,0,NGRIDS)\r\n      GO TO 1008\r\n   30 CALL CLOSE (GEOM1,1)\r\n      SEMAJ  = Z(1)\r\n      J      = 2\r\n      SEMIN  = Z(J)\r\n      NSEGS  = IZ(3)\r\n      MSEGS  = IZ(4)\r\n      NNHARM = IZ(5)\r\n      NMHARM = IZ(6)\r\n      IGRID  = 6\r\nC\r\nC     CREATE A LIST OF COORDINATES FOR THE GRID POINTS. WE WILL NEED\r\nC     BOTH INTERNAL AND SIL VALUES FOR THE GRIDS.BUT THESE ARE THE SAME\r\nC     IN HEAT TRANSFER. SO READ IN ONLY THE 1ST RECORD OF EQEXIN\r\nC\r\n      MCORE = LCORE-NGRIDS\r\n      IEQEX = NGRIDS\r\n      CALL GOPEN (EQEXIN,Z(BUF1),0)\r\n      FILE = EQEXIN\r\n      CALL READ (*1002,*40,EQEXIN,Z(IEQEX+1),MCORE,0,NEQEX)\r\n      GO TO 1008\r\n   40 CALL CLOSE (EQEXIN,1)\r\nC\r\nC     CREATE A LIST OF INTERNAL VALUES OF THE GRIDS ON PROLAT-CHECK CORE\r\nC\r\n      INEXT = IEQEX + NEQEX\r\n      IF (INEXT+NGRIDS-6 .GT. LCORE) GO TO 1008\r\nC\r\n      IGRID1 = IGRID + 1\r\n      K = 0\r\n      DO 50 I = IGRID1,NGRIDS\r\n      K = K + 1\r\n      CALL BISLOC (*60,IZ(I),IZ(IEQEX+1),2,NEQEX/2,JLOC)\r\nC\r\nC     STORE  THE INTERNAL VALUE\r\nC\r\n      IZ(INEXT+K) = IZ(IEQEX+JLOC+1)\r\n   50 CONTINUE\r\n      GO TO 70\r\n   60 WRITE  (OTPE,65) UFM,IZ(I)\r\n   65 FORMAT (A23,', GRID',I8,' ON PROLAT CARD DOES NOT EXIST')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     MOVE THIS LIST UP IN CORE  / ALL ELSE IN OPEN CORE IS EXPENDABLE\r\nC\r\n   70 DO 80 I = 1,K\r\n   80 IZ(I)  = IZ(INEXT+I)\r\n      NGRIDS = NGRIDS - 6\r\nC\r\nC     CREATE SCRATCH FILE OF HC VALUES FOR EACH REMFLUX CARD(FOR LATER\r\nC     USE IN HC LINE INTEGRALS)\r\nC\r\n      BUF2 = BUF1\r\n      MCORE= LCORE\r\n      CALL REMFLX (NGRIDS)\r\nC\r\nC     NOW PICK UP COORDINATES OF THESE POINTS-OPEN CORE 1-NGRIDS GIVES\r\nC     THE POINTERS\r\nC\r\n      IBG  = NGRIDS\r\n      CALL GOPEN (BGPDT,Z(BUF1),0)\r\n      FILE = BGPDT\r\n      CALL READ (*1002,*90,BGPDT,Z(IBG+1),LCORE-NGRIDS,0,NBG)\r\n      GO TO 1008\r\n   90 CALL CLOSE (BGPDT,1)\r\nC\r\n      K = IBG + NBG\r\n      IF (K+3*NGRIDS .GT. LCORE) GO TO 1008\r\n      DO 100 I = 1,NGRIDS\r\n      IPZ  = IZ(I)\r\n      ISUB = 4*(IPZ-1) + IBG\r\n      ISUB1= ISUB + 1\r\n      DO 95 J = 1,3\r\n   95 Z(K+J) = Z(ISUB1+J)\r\n      K = K + 3\r\n  100 CONTINUE\r\nC\r\nC     MOVE THESE UP IN CORE SO THAT TOTAL WORDS OF OPEN CORE IS NOW\r\nC     4*NGRIDS\r\nC\r\n      K = IBG + NBG\r\n      DO 110 I = 1,NGRIDS\r\n      IJ = NGRIDS + 3*(I-1)\r\n      DO 105 J = 1,3\r\n  105 Z(IJ+J) = Z(K+J)\r\n      K = K + 3\r\n  110 CONTINUE\r\n      IBG = NGRIDS\r\n      IOP = 0\r\n      IOP1= 1\r\nC\r\nC     NOW PICK UP POTENTIAL VALUES AY THESE GRIDS\r\nC\r\n      MCB(1) = HUGV\r\n      CALL RDTRL (MCB)\r\n      NCOL  = MCB(2)\r\n      NROW  = MCB(3)\r\n      TYPOUT= 1\r\n      II    = 1\r\n      NN    = NROW\r\n      INCR  = 1\r\n      SUBCAS= 0\r\n  115 INEXT = 4*NGRIDS\r\n      IPOT  = INEXT\r\n      IF (INEXT+NROW+NGRIDS .GT. LCORE) GO TO 1008\r\n      SUBCAS = SUBCAS + 1\r\n      CALL GOPEN  (HUGV,Z(BUF1),IOP)\r\n      CALL UNPACK (*131,HUGV,Z(INEXT+1))\r\n      CALL CLOSE  (HUGV,2)\r\nC\r\nC     PICK UP POTENTIALS OF ASSOCIATED POINTS\r\nC\r\n      ISUB = INEXT + NROW\r\n      DO 120 I = 1,NGRIDS\r\n      IPZ = IZ(I)\r\n      Z(ISUB+I) = Z(INEXT+IPZ)\r\n  120 CONTINUE\r\nC\r\nC     MOVE THESE  UP\r\nC\r\n      DO 130 I = 1,NGRIDS\r\n  130 Z(IPOT+I) = Z(ISUB+I)\r\n      GO TO 150\r\nC\r\nC     ZERO POTENTIALS\r\nC\r\n  131 DO 132 I = 1,NGRIDS\r\n  132 Z(IPOT+I) = 0.\r\n      CALL CLOSE (HUGV,2)\r\nC\r\nC     OPEN CORE ARRANGEMENT\r\nC\r\nC     1 - NGRIDS                            SIL VALUES\r\nC     NGRIDS + 1 - 4*NGRIDS                 BGPDT VALUES OF THESE POINTS\r\nC     4*NGRIDS + 1 - 5*NGRIDS               ANOMALY POTENTIALS\r\nC     5*NGRIDS + 1 - 5*NGRIDS + NTOT        LOAD INFO IF NEEDED\r\nC     5*NGRIDS + NTOT + 1 - 6*NGRIDS + NTOT HC POTENTIALS\r\nC\r\nC     PICK UP SYMMETRY INDICATOR FOR THIS CASE. 0 MEANS NO SYMMETRY,\r\nC     1(SINE) MEANS ANTI-SYMMETRY, 2(COSINE) MEANS SYMMETRY. 0 IMPLIES\r\nC     360 DEGREE MODELING, 1 AND 2 IMPLY 180 DEGREE MODELING(SKIP SUBCOM\r\nC     REPCASE. IF LOAD=0, THEN BIOT SAVART LOADS ARE ZERO)\r\nC\r\nC     INDICATOR=10,20, OR 30 MEANS ANOMALY ONLY, IE DO NOT INCLUDE\r\nC     EFFECTS OF   APPLIED FIELD(USED MAINLY IN INDUCING FIELDS)\r\nC     IF THIS IS THE CASE, SET ANOM TO TRUE AND GO  BACK TO 0,1,2\r\nC\r\n  150 INEXT = 5*NGRIDS\r\n      IF (INEXT+136 .GT. LCORE) GO TO 1008\r\n      CALL GOPEN (CASECC,Z(BUF1),IOP)\r\n  135 CALL FREAD (CASECC,Z(INEXT+1),136,1)\r\n      NSYM = IZ(INEXT+16)\r\n      LOAD = IZ(INEXT+4)\r\n      ISYM = IZ(INEXT+136)\r\n      DO 136 I = 1,96\r\n  136 TITLE(I) = Z(INEXT+38+I)\r\n      ANOM = .FALSE.\r\n      IF (ISYM.LE.2) GO TO 140\r\n      ANOM = .TRUE.\r\n      IF (ISYM.EQ.30) ISYM = 0\r\n      ISYM = ISYM/10\r\n  140 CONTINUE\r\n      IF (NSYM .NE. 0) GO TO 135\r\n      CALL CLOSE (CASECC,2)\r\nC\r\nC     PROLATE SPHEROID COORDINATE XI IS CONSTANT OVER THE REFERNCE\r\nC     SPHEROID. DFOC=DISTANCE BETWEEN FOCI\r\nC\r\n      INEXT = 5*NGRIDS\r\n      DFOC = 2.*SQRT(SEMAJ**2-SEMIN**2)\r\n      XI   = 2.*SEMAJ/DFOC\r\n      DXI  = 2./DFOC/XI\r\nC\r\nC     IF BIOT-SAVART LOAD ARE ZERO OR ANOMALY ONLY, SKIP HC POTENTIALS\r\nC\r\n      IF (LOAD .EQ. 0) GO TO 192\r\n      IF (ANOM) GO TO 192\r\nC\r\nC     SET UP LOADS FOR LINE INTEGRAL COMPUTATIONS\r\nC\r\n      BUF2  = BUF1\r\n      MCORE = LCORE\r\n      IST   = INEXT\r\nC\r\n      CALL LOADSU\r\nC\r\n      INEXT = INEXT + NTOT\r\n      IF (INEXT+NGRIDS .GT. LCORE) GO TO 1008\r\nC\r\nC     CHECK CORE FOR BIOTSV\r\nC\r\n      IF (REMFL .AND. INEXT+4*NGRIDS.GT.LCORE) GO TO 1008\r\nC\r\nC     FIRST INTEGRATE THE BIOT-SAVART FIELD ON THE PROLATE SPHEROID TO\r\nC     COME UP WITH AN EQUIVALENT POTENTIAL AT EACH POINT TO BE ADDED TO\r\nC     THE ANOMALY POTENTIAL. STORE THESE POTENTIALS IN 5*NGRIDS+NTOT+1\r\nC     THRU 6*NGRIDS+NTOT\r\nC\r\nC\r\n      DO 160 I = 1,NGRIDS\r\n  160 Z(INEXT+I) = 0.\r\n      IHCPOT = INEXT\r\n      MLONG  = MSEGS + 1\r\n      IF (ISYM .EQ. 0) MLONG = MSEGS\r\n      MCIRC = MSEGS\r\n      IF (ISYM .EQ. 0) MCIRC = MSEGS - 1\r\nC\r\n      DO 190 N = 1,NSEGS\r\nC\r\n      DO 170 M = 1,MLONG\r\nC\r\nC     INTEGRATE HC LONGITUDINALLY. PERFORM LINE INTEGRAL OF HC.DL\r\nC     RETRIEVE COORDINATES OF POINTS\r\nC\r\n      IPT1 = (M-1)*(NSEGS-1) + 2 + (N-1)\r\n      IPT2 = IPT1 + 1\r\n      IF (N .EQ.     1) IPT1 = 1\r\n      IF (N .EQ. NSEGS) IPT2 = 2\r\nC\r\n      ISUB = 3*(IPT1-1) + IBG\r\n      X1   = Z(ISUB+1)\r\n      Y1   = Z(ISUB+2)\r\n      Z1   = Z(ISUB+3)\r\n      ISUB = 3*(IPT2-1) + IBG\r\n      X2   = Z(ISUB+1)\r\n      Y2   = Z(ISUB+2)\r\n      Z2   = Z(ISUB+3)\r\n      NG1  = IZ(IPT1)\r\n      NG2  = IZ(IPT2)\r\nC\r\n      CALL LINEIN (X1,Y1,Z1,X2,Y2,Z2,HCDL)\r\nC\r\nC     NOW ADD POTENTIAL FROM 1ST POINT TO INTEGRAL AT 2ND TO GIVE\r\nC     INITIAL POTENTIAL AT 2ND POINT. IF 2ND POINT IS RIGHT END POINT\r\nC     (POINT 2 ON PROLAT), ACCUMULATE FOR AVERAGING\r\nC\r\n      ADD = 0.\r\n      IF (IPT2 .EQ. 2) ADD = Z(IHCPOT+2)\r\n      Z(IHCPOT+IPT2) = Z(IHCPOT+IPT1) + HCDL + ADD\r\nC\r\nC     GET ANOTHER CIRCUMFERENTIAL SEGMENT\r\nC\r\n  170 CONTINUE\r\nC\r\nC     AVERAGE THE INTEGRALS AT RIGHT END POINT\r\nC\r\n      Z(IHCPOT+2) = Z(IHCPOT+2)/FLOAT(MLONG)\r\nC\r\nC     LONGITUDINAL INTEGRATIONS FOR THIS LONGITUDINAL SEGMENT ARE\r\nC     COMPLETE.\r\nC     NOW INTEGRATE CIRCUMFERENTIALLY DOWN THE RIGHT HAND SIDE OF THE\r\nC     LONGITUDINAL SEGMENT AND AVERGAE WITH THE LONGITUDINAL RESULTS.\r\nC     IF WE ARE AT THE LAST SET OF LONGITUDINAL SEGMENTS, DO NOT DO ANY\r\nC     CIRCUMFERENTIAL INTEGRATIONS SINCE WE HAVE ONLY THE RIGHT END\r\nC     POINT.\r\nC\r\n      IF (N .EQ. NSEGS) GO TO 190\r\n      DO 180 M = 1,MCIRC\r\n      IPT1 = (M-1)*(NSEGS-1) + 2 + N\r\n      IPT2 = IPT1 + (NSEGS-1)\r\n      ISUB = 3*(IPT1-1) + IBG\r\n      X1   = Z(ISUB+1)\r\n      Y1   = Z(ISUB+2)\r\n      Z1   = Z(ISUB+3)\r\n      ISUB = 3*(IPT2-1) + IBG\r\n      X2   = Z(ISUB+1)\r\n      Y2   = Z(ISUB+2)\r\n      Z2   = Z(ISUB+3)\r\n      NG1  = IZ(IPT1)\r\n      NG2  = IZ(IPT2)\r\nC\r\n      CALL LINEIN (X1,Y1,Z1,X2,Y2,Z2,HCDL)\r\nC\r\nC     TO GET FINAL HC POTENTIAL AT 2ND POINT, ADD PRESENT POTENTIAL AT\r\nC     POINT 2(WHICH RESULTED FROM LONGITUDINAL INTEGRATION) TO THE SUM\r\nC     OF THE POTENTIAL AT POINT 1 AND PRESENT INTEGRAL. THEN AVERAGE\r\nC\r\n      Z(IHCPOT+IPT2) = (Z(IHCPOT+IPT2) + Z(IHCPOT+IPT1) + HCDL)/2.\r\nC\r\n  180 CONTINUE\r\nC\r\nC     GET ANOTHER SET OF LONGITUDINAL SEGMENTS\r\nC\r\n  190 CONTINUE\r\nC\r\n      CALL CLOSE (NSLT,1)\r\nC\r\nC     USING THE POTENTIALS JUST COMPUTED, COMPUTE AN AVERAGE REFERNCE\r\nC     POTENTIAL TO BE SUBTRACTED FROM THESE POTENTIALS SO THAT THE\r\nC     AVERAGE POTENTIAL IS ZERO GIVING A ZERO MONOPOLE.\r\nC     (AVERAGE POTENTIAL=(U/AREA)*(INTEGRAL OF PHI*D(AREA))-INTEGRATE\r\nC     OVER EACH SURFACE PATCH. ALSO COMPARE COMPUTED AREA TO ANALYTICAL\r\nC     AREA. IF THIS SUBCASE IS A SINE CASE, THEN AVERGAE IS\r\nC     AUTOMATICALLY ZERO AND WE CAN SKIP THIS.(THE AREA IN THE\r\nC     INTEGRATION IS 4*PI-MORSE+FESCHBACH-PAGES 1265 AND 1285--OR THE\r\nC     A00 TE-M OF THE EXPANSION)\r\nC     THE REASON FOR THE REFERENCE POTENTIAL IS THAT WE MUST ARBITRARILY\r\nC     SET PHI=0 AT SOME POINT AND THEN THEN INTEGRATE TO GET PHIC.\r\nC     REFF COMPENSATES FOR THAT\r\nC\r\n      REFF = 0.\r\n  192 ONLYAR = .FALSE.\r\n      IF (LOAD.EQ.0 .OR. ISYM.EQ.1) ONLYAR = .TRUE.\r\n      IF (ANOM) ONLYAR = .TRUE.\r\nC\r\n      SUMP = 0.\r\n      SUMA = 0.\r\n      SUMEP= 0.\r\n      DO 240 N = 1,NSEGS\r\n      DO 240 M = 1,MSEGS\r\nC\r\nC     GET THE COORDINATES OF THE 4 CORNERS OF THE PATCH(3 CORNERS IF\r\nC     1ST OR LAST SET OF SEGMENTS)\r\nC\r\n      IPT(1) = (M-1)*(NSEGS-1) + 2 + (N-1)\r\n      IPT(2) = IPT(1) + (NSEGS-1)\r\n      IPT(3) = IPT(2) + 1\r\n      IPT(4) = IPT(1) + 1\r\n      IF (M .NE. MSEGS) GO TO 195\r\n      IF (ISYM  .NE. 0) GO TO 195\r\n      IPT(2) = N + 1\r\n      IPT(3) = IPT(2) + 1\r\n  195 IF (N .NE. 1) GO TO 200\r\n      IPT(1) = 1\r\n      IPT(2) = 1\r\n      GO TO 210\r\n  200 IF (N .NE. NSEGS) GO TO 210\r\n      IPT(3) = 2\r\n      IPT(4) = 2\r\nC\r\nC     COMPITE VECTOR COMPONENTS FOR THE DIAGONALS AND TAKE 1/2 THE CROSS\r\nC     PRODUCT TO GET THE PATCH AREA\r\nC\r\n  210 DO 215 I = 1,4\r\n      ISUB  = 3*(IPT(I)-1) + IBG\r\n      XX(I) = Z(ISUB+1)\r\n      YY(I) = Z(ISUB+2)\r\n      ZZ(I) = Z(ISUB+3)\r\n      XETA(I) = DXI*XX(I)\r\n      IF (ZZ(I).EQ.0. .AND. YY(I).EQ.0.) GO TO 215\r\n      XPHI(I) = ATAN2(ZZ(I),YY(I))\r\n      IF (XPHI(I) .LT. 0.) XPHI(I) = XPHI(I) + TPI\r\n  215 CONTINUE\r\n      IF (ISYM.NE.0 .OR. M.NE.MSEGS) GO TO 216\r\n      XPHI(2) = TPI\r\n      XPHI(3) = TPI\r\n  216 IF (N .NE. 1) GO TO 217\r\n      XPHI(1) = XPHI(4)\r\n      XPHI(2) = XPHI(3)\r\n      GO TO 218\r\n  217 IF (N .NE. NSEGS) GO TO 218\r\n      XPHI(4) = XPHI(1)\r\n      XPHI(3) = XPHI(2)\r\n  218 CONTINUE\r\nC\r\n      V13(1) = XX(3) - XX(1)\r\n      V13(2) = YY(3) - YY(1)\r\n      V13(3) = ZZ(3) - ZZ(1)\r\n      V24(1) = XX(4) - XX(2)\r\n      V24(2) = YY(4) - YY(2)\r\n      V24(3) = ZZ(4) - ZZ(2)\r\nC\r\n      VX(1) = V13(2)*V24(3) - V13(3)*V24(2)\r\n      VX(2) = V13(3)*V24(1) - V13(1)*V24(3)\r\n      VX(3) = V13(1)*V24(2) - V13(2)*V24(1)\r\nC\r\n      AREA   = .5*SQRT(VX(1)**2+VX(2)**2+VX(3)**2)\r\n      AREAEP = .5*((XETA(4)-XETA(2))*(XPHI(1)-XPHI(3))\r\n     1           -(XETA(1)-XETA(3))*(XPHI(4)-XPHI(2)))\r\nC\r\nC     FOLLOWING IS BECAUSE OF BACKWARDS DEFINITION OF XPHI\r\nC\r\n      AREAEP = -AREAEP\r\n      IF (ONLYAR) GO TO 235\r\nC\r\nC     PERFORM LINEAR INTERPOLATION OF TEH POTENTIALS FROM THE VERTICES\r\nC     TO THE INTEGRATION POINTS USING ISOPARAMETRIC SHAPE FUNCTIONS AND\r\nC     THEN INTEGRATE. 1ST PICK UP VERTEX POTENTIALS\r\nC\r\nC\r\n      IPT1 = IPT(1)\r\n      IPT2 = IPT(2)\r\n      IPT3 = IPT(3)\r\n      IPT4 = IPT(4)\r\n      POTV(1) = Z(IHCPOT+IPT1)\r\n      POTV(2) = Z(IHCPOT+IPT2)\r\n      POTV(3) = Z(IHCPOT+IPT3)\r\n      POTV(4) = Z(IHCPOT+IPT4)\r\nC\r\n      DO 220 I = 1,4\r\n      POTI(I) = 0.\r\n      DO 220 J = 1,4\r\n      POTI(I) = POTI(I)+INTER(I,J)*POTV(J)\r\n  220 CONTINUE\r\nC\r\n      SUM = 0.\r\n      DO 230 I = 1,4\r\nC\r\nC     COMPUTE DETREMINANT OF JACOBIAN\r\nC\r\n      J11 = ETAI(I)*(XETA(4)-XETA(1)) + (1.-ETAI(I))*(XETA(3)-XETA(2))\r\n      J12 = ETAI(I)*(XPHI(4)-XPHI(1)) + (1.-ETAI(I))*(XPHI(3)-XPHI(2))\r\n      J21 = XII(I)*(XETA(4)-XETA(3)) + (1.- XII(I))*(XETA(1)-XETA(2))\r\n      J22 = XII(I)*(XPHI(4)-XPHI(3)) + (1.- XII(I))*(XPHI(1)-XPHI(2))\r\n      J12 =-J12\r\n      J22 =-J22\r\n      DETJ= J11*J22 - J12*J21\r\n  230 SUM = SUM + POTI(I)*DETJ*.25\r\nC\r\nC     NOTE---  .25 * SUM OF THE 4 DETJ-S EQUALS AREAEP\r\nC\r\n      SUMP = SUMP + SUM\r\n  235 SUMA = SUMA + AREA\r\n      SUMEP= SUMEP + AREAEP\r\nC\r\nC     GET ANOTHER PATCH\r\nC\r\n  240 CONTINUE\r\nC\r\n      IF (SUMA .GT. 0.) GO TO 260\r\n      WRITE  (OTPE,250) UFM\r\n  250 FORMAT (A23,', AREA OF PROLATE SPHEROID IS ZERO')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     COMPUTE ANALYTICAL AREA\r\nC\r\n  260 EPS  = .5*DFOC/SEMAJ\r\n      AREA = 2.*PI*(SEMIN**2+SEMAJ*SEMIN*ASIN(EPS)/EPS)\r\n      IF (ISYM .NE. 0) SUMA = 2.*SUMA\r\nC\r\n      IF (.NOT.WRIT) WRITE (OTPE,270) UIM,AREA,SUMA\r\n  270 FORMAT (A29,', THE EXACT SURFACE AREA OF THE PROLATE SPHEROID IS',\r\n     1       1X,1P,E15.3,',  THE COMPUTED AREA IS ',1P,E15.3)\r\n      WRIT = .TRUE.\r\n      IF (LOAD .EQ. 0) GO TO 295\r\n      IF (ANOM) GO TO 295\r\n      IF (ISYM .EQ. 1) GO TO 280\r\nC\r\nC     GET REFERNCE POTENTIAL AND SUBTRACT FROM SUM OF ANOMALY AND HC\r\nC     POTENTI\r\nC\r\n      REFF = SUMP/SUMEP\r\n  280 DO 290 I = 1,NGRIDS\r\n  290 Z(IPOT+I) = Z(IPOT+I) + Z(IHCPOT+I) - REFF\r\nC\r\nC     FINALLY NOW WE CAN COMPUTE THE COEFFICIENTS A(M,N) AND B(M,N).\r\nC     MORSE ABD FESCHBACH P. 1285--CHAECK FOR ENOUGH OPEN VORE SPACE TO\r\nC     STORE THE A-S AND B-S. FOR EACH TYPE, THE NUMBER OF COEFFICIENTS\r\nC     IS THE SUM OF TH+ INTEGERS FROM 1 TO (\\+1), UNLESS M HAS A MAXIMUM\r\nC     LESS THAN N, IN WHICH CASE, THE COUNT IS (M+1)*(N+1-M)+SUM OF\r\nC     INTEGERS FROM 1 TO M. THE COEFFICIENTS WE NEED ARE\r\nC\r\nC              M=0       M=1       M=2       M=4       ETC\r\nC        N=0   A00\r\nC        N=1   A01       A11\r\nC        N=2   A02       A12       A22\r\nC        N=3   A03       A13       A23       A33\r\nC         .\r\nC        ETC\r\nC\r\nC     WE NO LONGER NEED THE HC POTENTIALS OR LOAD INFO. SO STORE\r\nC     COEFFICIENTS STARTING AT 5*NGRIDS+1\r\nC\r\n  295 IACOEF = IPOT + NGRIDS\r\n      NCOEFS = ((NNHARM+1)*(NNHARM+2))/2\r\n      IF (NMHARM .LT. NNHARM) NCOEFS = (NMHARM+1)*(NNHARM+1-NMHARM)+\r\n     1                                 (NMHARM*(NMHARM+1))/2\r\n      IBCOEF = IACOEF + NCOEFS\r\n      IF (IBCOEF+NCOEFS .GT. LCORE) GO TO 1008\r\n      N2 = 2*NCOEFS\r\n      DO 300 I = 1,N2\r\n  300 Z(IACOEF+I) = 0.\r\nC\r\nC     START THE INTEGRATIONS - FOR EACH PATCH IN TURN, DO ALL THE M-S\r\nC     AND N-\r\nC\r\n      DO 460 NS = 1,NSEGS\r\n      DO 460 MS = 1,MSEGS\r\nC\r\nC     INITIAL PART IS SAME AS FOR REFERNEC POTENTIAL\r\nC\r\n      IPT(1) = (MS-1)*(NSEGS-1) + 2 + (NS-1)\r\n      IPT(2) = IPT(1) + (NSEGS-1)\r\n      IPT(3) = IPT(2) + 1\r\n      IPT(4) = IPT(1) + 1\r\n      IF (MS .NE. MSEGS) GO TO 310\r\n      IF (ISYM  .NE.  0) GO TO 310\r\n      IPT(2) = NS + 1\r\n      IPT(3) = IPT(2) + 1\r\n  310 IF (NS .NE. 1) GO TO 320\r\n      IPT(1) = 1\r\n      IPT(2) = 1\r\n      GO TO 330\r\n  320 IF (NS .NE. NSEGS) GO TO 330\r\n      IPT(3) = 2\r\n      IPT(4) = 2\r\n  330 DO 335 I = 1,4\r\n      ISUB  = 3*(IPT(I)-1) + IBG\r\n      XX(I) = Z(ISUB+1)\r\n      YY(I) = Z(ISUB+2)\r\n      ZZ(I) = Z(ISUB+3)\r\n      XETA(I) = DXI*XX(I)\r\n      IF (ZZ(I).EQ.0. .AND. YY(I).EQ.0.) GO TO 335\r\n      XPHI(I) = ATAN2(ZZ(I),YY(I))\r\n      IF (XPHI(I) .LT. 0.) XPHI(I) = XPHI(I) + TPI\r\n  335 CONTINUE\r\n      IF (ISYM.NE.0 .OR. MS.NE.MSEGS) GO TO 337\r\n      XPHI(2) = TPI\r\n      XPHI(3) = TPI\r\n  337 IF (NS .NE. 1) GO TO 338\r\n      XPHI(1) = XPHI(4)\r\n      XPHI(2) = XPHI(3)\r\n      GO TO 339\r\n  338 IF (NS .NE. NSEGS) GO TO 339\r\n      XPHI(4) = XPHI(1)\r\n      XPHI(3) = XPHI(2)\r\n  339 CONTINUE\r\nC\r\nC     GET POTENTAILS AT VERTICES\r\nC\r\n      DO 336 I = 1,4\r\n      ISUB = IPT(I)\r\n      POTV(I) = Z(IPOT+ISUB)\r\n  336 CONTINUE\r\nC\r\nC     INTERPOLATE TO GET POTENTIALS AT EACH INTEGRATION POINT\r\nC\r\n      DO 340 I = 1,4\r\n      POTI(I) = 0.\r\n      DO 340 J = 1,4\r\n      POTI(I) = POTI(I) + INTER(I,J)*POTV(J)\r\n  340 CONTINUE\r\nC\r\nC     SAVE JACOBIAN DETERMINA5TS AT THE INTEGRATION POINTS\r\nC\r\n      DO 350 I = 1,4\r\n      J11 = ETAI(I)*(XETA(4)-XETA(1)) + (1.-ETAI(I))*(XETA(3)-XETA(2))\r\n      J12 = ETAI(I)*(XPHI(4)-XPHI(1)) + (1.-ETAI(I))*(XPHI(3)-XPHI(2))\r\n      J21 = XII(I)*(XETA(4)-XETA(3))  + (1.- XII(I))*(XETA(1)-XETA(2))\r\n      J22 = XII(I)*(XPHI(4)-XPHI(3))  + (1.- XII(I))*(XPHI(1)-XPHI(2))\r\nC\r\nC     BECAUSE OF MY INCONSISTENCY IN DIRECTIONS BETWEEN PROLATE SPHEROID\r\nC     COORDINATES IN ANGLE DIRECTION AND ISOPARAMETRIC COORDINATES IN\r\nC     THAT DIRECTION, WE MUST SWITCH SIGNS FOR XPHI DIFFERENCES- OR ELSE\r\nC     WE WE WILL GET NEGATIVE AREAS\r\nC\r\n      J12 = -J12\r\n      J22 = -J22\r\nC\r\n      XDETJ(I) = J11*J22 - J12*J21\r\n  350 CONTINUE\r\nC\r\nC     COMPUTE 4 (ETA,PHI) COORDINATES AT THE INTEGRATION POINTS. USE\r\nC     SHAPE FUNCTIONS FOR UNIT SQUARE. (ETAINT AND PHIINT ARE PROLATE\r\nC     SPHEROIDAL COORDINATES AT INTEGRATION POINTS. XETA,XHPI ARE\r\nC     PROLATE SPHEROIDAL COORDS. AT VERTICES. XII,ETAI ARE ISOPARAMETRIC\r\nC     COORDS AT INTEGRATION POINTS FOR UNIT ISOPARAMEQRIC SPUARE.\r\nC\r\n      DO 358 I = 1,4\r\n      XN(1) = (1.-XII(I))*ETAI(I)\r\n      XN(2) = (1.-XII(I))*(1.-ETAI(I))\r\n      XN(3) = XII(I)*(1.-ETAI(I))\r\n      XN(4) = XII(I)*ETAI(I)\r\n      ETAINT(I) = 0.\r\n      PHIINT(I) = 0.\r\n      DO 357 J  = 1,4\r\n      ETAINT(I) = ETAINT(I) + XN(J)*XETA(J)\r\n      PHIINT(I) = PHIINT(I) + XN(J)*XPHI(J)\r\n  357 CONTINUE\r\n  358 CONTINUE\r\nC\r\nC     START ACTUAL INTEGRATION FOR A GIVEN N,M\r\nC\r\n      KOUNT = 0\r\n      NNP1  = NNHARM + 1\r\n      DO 450 N = 1,NNP1\r\n      IAN = N - 1\r\n      CN  = IAN\r\nC\r\nC     SINCE M SUMMATION GOES ONLY TO N, COMPUTE MIN(N,NNHARM)\r\nC\r\n      NMP1 = NMHARM + 1\r\n      IF (NMP1 .GT. N) NMP1 = N\r\nC\r\n      DO 450 M = 1,NMP1\r\n      IAM = M - 1\r\n      CM  = IAM\r\n      KOUNT = KOUNT + 1\r\nC\r\nC     COMPUTE ASSOCIATED LEGENDRE FUNCTION OF 1ST KIND AT EAC\r\nC     INTEGRATION POINT\r\nC\r\n      DO 360 I = 1,4\r\n      CALL PNM (IAM,IAN,ETAINT(I),0,PNMV(I))\r\n  360 CONTINUE\r\nC\r\nC     COMPUTE TRIG FUNCTION AT EAC INTEGRATION POINT\r\nC\r\n      DO 370 I = 1,4\r\n      ANG = CM*PHIINT(I)\r\n      TRIGS(I) = SIN(ANG)\r\n      TRIGC(I) = COS(ANG)\r\n  370 CONTINUE\r\nC\r\n      SUMA = 0.\r\n      SUMB = 0.\r\n      DO 380 I = 1,4\r\n      IF (ISYM.EQ.0 .OR. ISYM.EQ.1)\r\n     1    SUMB = SUMB + TRIGS(I)*PNMV(I)*POTI(I)*XDETJ(I)*.25\r\n      IF (ISYM.EQ.0 .OR. ISYM.EQ.2)\r\n     1    SUMA = SUMA + TRIGC(I)*PNMV(I)*POTI(I)*XDETJ(I)*.25\r\n  380 CONTINUE\r\nC\r\nC     NOW FORM MULTIPLICATICE CONSTANT BASED ON N,M\r\nC\r\n      EM = 1.\r\n      IF (IAM .GT. 0) EM = 2.\r\nC\r\nC     ADJUST EM FOR 1/2 MODEL IF NECESSARY\r\nC\r\n      IF (ISYM .GT. 0) EM = 2.*EM\r\nC\r\nC     COMPUTE FACTORIALS\r\nC\r\n      NMM = IAN - IAM\r\n      IF (NMM .NE. 0) GO TO 390\r\n      FNUM = 1.\r\n      GO TO 410\r\n  390 FNUM = 1.\r\n      C = 1.\r\n      DO 400 I = 1,NMM\r\n      FNUM = FNUM*C\r\n      C = C + 1.\r\n  400 CONTINUE\r\n  410 NPM = IAN+IAM\r\n      IF (NPM .NE. 0) GO TO 420\r\n      FDEN = 1.\r\n      GO TO 440\r\n  420 FDEN = 1.\r\n      C = 1.\r\n      DO 430 I = 1,NPM\r\n      FDEN = FDEN*C\r\n      C = C + 1.\r\n  430 CONTINUE\r\n  440 CON = EM*(2.*CN+1.)*FNUM/FDEN/4./PI\r\nC\r\n      SUMA = SUMA*CON\r\n      SUMB = SUMB*CON\r\nC\r\nC     STORE THE COEFFICIENTS\r\nC\r\n      Z(IACOEF+KOUNT) = SUMA+Z(IACOEF+KOUNT)\r\n      Z(IBCOEF+KOUNT) = SUMB+Z(IBCOEF+KOUNT)\r\nC\r\nC     GET ANOTHER N OR M\r\nC\r\n  450 CONTINUE\r\nC\r\nC     GET ANOTHER AREA PATCH\r\nC\r\n  460 CONTINUE\r\nC\r\nC     DONE - THE SCARATCH DATA BLOCK PROCOS WILL HAVE 5 RECORDS FOR EACH\r\nC     SUBCASE. 1ST IS 7 WORD INFO ARRAY, 2ND IS A(M,N) 3RD IS B(M,N)\r\nC     4TH IS POTENTIALS ON SURFACE FROM ANOMALY+HC POTENTIALS-REFF,\r\nC     5TH IS POTENTAILS ON SURFACE USING EXPANSION(WHICH WE WILL DO NOW)\r\nC\r\n      ISUMP = IBCOEF + NCOEFS\r\n      IF (ISUMP+NGRIDS .GT. LCORE) GO TO 1008\r\nC\r\n      DO 480 I = 1,NGRIDS\r\nC\r\nC     PICK UP COORDINATES OF POINT\r\nC\r\n      ISUB = 3*(I-1) + IBG\r\n      X1 = Z(ISUB+1)\r\n      Y1 = Z(ISUB+2)\r\n      Z1 = Z(ISUB+3)\r\nC\r\nC     COMPUTE PROLATE SPHEROIDAL COORDINATES\r\nC\r\n      ETA = DXI*X1\r\n      PHI = 0.\r\n      IF (Z1.EQ.0. .AND. Y1.EQ.0.) GO TO 465\r\n      PHI = ATAN2(Z1,Y1)\r\nC\r\nC     START SUMMATION\r\nC\r\n  465 KOUNT = 0\r\n      SUM   = 0.\r\n      DO 470 N = 1,NNP1\r\n      IAN = N - 1\r\n      CN  = IAN\r\n      NMP1= NMHARM + 1\r\n      IF (NMP1 .GT. N) NMP1 = N\r\n      DO 470 M = 1,NMP1\r\n      IAM = M - 1\r\n      CM  = IAM\r\n      KOUNT = KOUNT + 1\r\nC\r\nC     GET LEGENDRE AND TRIG FUNCTIONS\r\nC\r\n      CALL PNM (IAM,IAN,ETA,0,V)\r\n      ANG   = CM*PHI\r\n      TRIG1 = COS(ANG)\r\n      TRIG2 = SIN(ANG)\r\n      AB    = 0.\r\n      IF (ISYM.EQ.0 .OR. ISYM.EQ.1) AB = AB+Z(IBCOEF+KOUNT)*TRIG2\r\n      IF (ISYM.EQ.0 .OR. ISYM.EQ.2) AB = AB+Z(IACOEF+KOUNT)*TRIG1\r\nC\r\n      SUM = SUM + AB*V\r\n  470 CONTINUE\r\nC\r\nC     STORE VALUE\r\nC\r\n      Z(ISUMP+I) = SUM\r\nC\r\nC     GET ANOTHER POINT\r\nC\r\n  480 CONTINUE\r\nC\r\nC     WRITE RESULTS TO PROCOS\r\nC\r\n      FO(1)   = SEMAJ\r\n      FO(2)   = SEMIN\r\n      INFO(3) = NNHARM\r\n      INFO(4) = NMHARM\r\n      INFO(5) = NCOEFS\r\n      INFO(6) = ISYM\r\n      INFO(7) = NGRIDS\r\n      CALL GOPEN (PROCOS,Z(BUF1),IOP1)\r\n      CALL WRITE (PROCOS,INFO,7,0)\r\n      CALL WRITE (PROCOS,TITLE,96,1)\r\n      CALL WRITE (PROCOS,Z(IACOEF+1),NCOEFS,1)\r\n      CALL WRITE (PROCOS,Z(IBCOEF+1),NCOEFS,1)\r\n      CALL WRITE (PROCOS,Z(IPOT  +1),NGRIDS,1)\r\n      CALL WRITE (PROCOS,Z(ISUMP +1),NGRIDS,1)\r\n      CALL CLOSE (PROCOS,2)\r\nC\r\nC     NOW THAT WE ARE FINISHED ALL THIS WORK, WE SHOULD SEE IF THERE\r\nC     ARE OTHER SUBCASES WE MUST DO IT FOR\r\nC\r\n      IF (SUBCAS .GE. NCOL) GO TO 490\r\n      IOP  = 2\r\n      IOP1 = 3\r\n      GO TO 115\r\nC\r\nC     DONE\r\nC\r\n  490 TRAIL(1) = PROCOS\r\n      TRAIL(2) = SUBCAS\r\n      DO 500 I = 3,7\r\n  500 TRAIL(I) = 0\r\n      CALL WRTTRL (TRAIL)\r\nC\r\nC     CHECK FOR SUBCOMS AND REPCASES AND WRITE ( TO OUTPUT FILE\r\nC\r\n      CALL PROCOM (PROCOS,PROCOF,CASECC,NCOEFS,NGRIDS)\r\nC\r\n      RETURN\r\nC\r\n 1001 N =-1\r\n      GO TO 1010\r\n 1002 N =-2\r\n      GO TO 1010\r\n 1008 N =-8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/prompt.f",
    "content": "      SUBROUTINE PROMPT\r\nC\r\nC     DRIVER FOR  INTERACTIVE MODULE - PROMPT\r\nC\r\nC        PROMPT    //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/\r\nC                    S,N,SCAN1/S,N,SCAN2/DUM1/DUM2/DUM3/DUM4 $\r\nC\r\n      IMPLICIT INTEGER  (A-Z)\r\n      COMMON /BLANK / PARAM(10)\r\n      COMMON /SYSTEM/ KSYSM(100)\r\n      EQUIVALENCE     (NOUT ,KSYSM(2)),  (SOLN ,KSYSM(22)),\r\n     1                (IN   ,KSYSM(4)),  (INTRA,KSYSM(86))\r\n      DATA    P,S,C,B / 1HP, 1HS, 1HC, 1H /\r\nC\r\n      INTRA=IABS(INTRA)\r\n      NOUT = 6\r\n      DO 10 I=1,10\r\n 10   PARAM(I)=0\r\nC\r\n 20   WRITE (NOUT,110)\r\n      READ (IN,130,ERR=20) J\r\n      IF (J.LT.1 .OR. J.GT.6) GO TO 20\r\n      IF (SOLN.EQ.3 .AND. (J.EQ.4 .OR. J.EQ.6)) GO TO 70\r\n      PARAM(J)=-1\r\n      IF (J .EQ. 1) RETURN\r\n 40   WRITE (NOUT,120)\r\n      I=B\r\n      READ (IN,140,END=50) I\r\n 50   IF (I .EQ. B) RETURN\r\n      IF (I .EQ. C) GO TO 60\r\n      IF (I.NE.P .AND. I.NE.S) GO TO 40\r\n      IF (I .EQ. S) INTRA = MOD(INTRA,10)\r\n      IF (I .EQ. P) INTRA = MOD(INTRA,10) + 10\r\n      RETURN\r\nC\r\n 60   PARAM(J)=0\r\n      GO TO 20\r\n 70   WRITE (NOUT,80) J,SOLN\r\n 80   FORMAT (/,' OPTION',I3,' IS NOT AVAILABLE FOR SOLUTION',I3)\r\n      GO TO 20\r\nC\r\n 110  FORMAT (9X,'1. EXIT',\r\n     1       /9X,'2. STRUCTURE PLOTS - UNDEFORMED',\r\n     3       /9X,'3. STRUCTURE PLOTS - DEFORMED',\r\n     4       /9X,'4. XYPLOTS',\r\n     5       /9X,'5. SCAN OUTPUT - SORT1',\r\n     6       /9X,'6. SCAN OUTPUT - SORT2',\r\n     7       //9X,'SELECT ONE OPTION FROM MENU -')\r\n 120  FORMAT (/9X,'OUTPUT TO SCREEN, OR TO PRINTFILE, OR CANCEL OPTION (\r\n     1S/P/C) -')\r\n 130  FORMAT (I1)\r\n 140  FORMAT (A1)\r\n      END\r\n"
  },
  {
    "path": "mis/prtint.f",
    "content": "      SUBROUTINE PRTINT\r\nC\r\n      INTEGER TRLR\r\n      INTEGER OPT, PRT\r\nC\r\nC     OPT = 0 IF MATRIX BY COLUMNS...1 IF BY ROWS.\r\nC\r\n      REAL NAME(2)\r\nC\r\n      COMMON /BLANK/ OPT, PRT\r\n      COMMON /XXMPRT/ TRLR(7)\r\n      COMMON /ZZZZZZ/ X(1)\r\nC\r\n      IF (PRT.LT.0)  GO TO 100\r\n      TRLR(1) = 101\r\n      CALL RDTRL (TRLR)\r\n      IF (TRLR(1).LE.0)  GO TO 100\r\n      CALL FNAME (TRLR,NAME)\r\n      CALL INTPRT (X,OPT,1,NAME)\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/prtmsg.f",
    "content": "      SUBROUTINE PRTMSG\r\nC\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /OUTPUT/ TITLE(32,6)\r\nC\r\n      DATA INPREW,MSG,BLANK / 0,101,4H    /\r\nC\r\n      CALL OPEN (*110,MSG,BUF,INPREW)\r\n      CALL READ (*110,*110,MSG,0,0,1,J)\r\n      DO 100 J = 4,6\r\n      DO 100 I = 1,32\r\n      TITLE(I,J) = BLANK\r\n  100 CONTINUE\r\n      CALL WRTMSG (MSG)\r\n  110 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/prtprm.f",
    "content": "      SUBROUTINE PRTPRM\r\nC\r\nC     PRINTS NASTRAN PARAMETERS\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         LSHIFT,RSHIFT\r\n      LOGICAL          KICKK\r\n      REAL             WAL(32)\r\n      DOUBLE PRECISION DAL(2)\r\n      DIMENSION        BT(26),KT(26),K1(32),K2(32),K3(32),K4(32),\r\n     1                 K5(32),K6(32),NAME(2),VAL(2)\r\n      COMMON /MACHIN/  MACHX\r\n      COMMON /BLANK /  IC,B1,B2\r\n      COMMON /XVPS  /  V(2)\r\n      COMMON /SYSTEM/  NB,NOUT,JUNK1(6),LNMAX,JUNK2(2),LN\r\n      COMMON /OUTPUT/  DUMHED(96),H1(32),H2(32),H3(32)\r\n      EQUIVALENCE      (V(2),L), (DAL(1),VAL(1),WAL(1))\r\n      DATA    XXXX  /  4HXXXX   /,   OO/27/\r\n      DATA    KT    /  5,6,4,5,6,5,3,4,3,5,7,6,6,6,6,5,0,0,0,4,3,2,\r\n     1                 7,5,4,1  /\r\n      DATA    K1    /  32*4H    /\r\n      DATA    K2    /  7*4H    ,4HC O ,4HN T ,4HE N ,4HT S ,4H  O ,\r\n     1                 4HF     ,4HP A ,4HR A ,4HM E ,4HT E ,4HR   ,\r\n     2                 4HT A   ,4HB L ,4HE   ,11*4H        /\r\n      DATA    K3    /  32*4H    /\r\n      DATA    K4    /  32*4H    /\r\n      DATA    K5    /  32*4H    /\r\n      DATA    K6    /  32*4H    /\r\n      DATA    BT    /  4HSTAT,4HINER,4HMODE,4HDIFF,4HBUCK,4HPLA ,4HDIRC,\r\n     1                 4HDIRF,4HDIRT,4HMDLC,4HMDLF,4HMDLT,4HNMDS,4HCYCS,\r\n     2                 4HCYCM,4HASTA,4HDDRM,4HFVDA,4HMVDA,4HHSTA,4HHNLI,\r\n     3                 4HHTRD,4HBLAD,4HFLUT,4HAERO,4HDMAP/\r\nC\r\nC\r\n      IF (IC .NE. 0) GO TO 550\r\n      DO 10 M = 1,32\r\n      H1(M) = K1(M)\r\n      H2(M) = K2(M)\r\n   10 H3(M) = K3(M)\r\n      CALL PAGE\r\n      I = 3\r\n      IF (I .GT. L) GO TO 510\r\n      KICKK = .FALSE.\r\n      IF (B1.NE.XXXX .OR. B2.NE.XXXX) KICKK = .TRUE.\r\n      IF (KICKK) GO TO 180\r\nC\r\n   20 IF (I .GT. L) GO TO 7820\r\n      ASSIGN 30 TO R\r\n      GO TO 300\r\n   30 I = I + NW + 3\r\n      IF (LN .GE. LNMAX) CALL PAGE\r\n      GO TO (40,60,80,100,120,150), TYPE\r\n   40 WRITE  (NOUT,50) NAME(1),NAME(2),VAL(1)\r\n   50 FORMAT (20X,2A4,10X,I10)\r\n      GO TO  170\r\n   60 WRITE  (NOUT,70) NAME(1),NAME(2),WAL(1)\r\n   70 FORMAT (20X,2A4,10X,1P,E14.6)\r\n      GO TO  170\r\n   80 WRITE  (NOUT,90) NAME(1),NAME(2),VAL(1),VAL(2)\r\n   90 FORMAT (20X,2A4,10X,2A4)\r\n      GO TO  170\r\n  100 WRITE  (NOUT,110) NAME(1),NAME(2),DAL(1)\r\n  110 FORMAT (20X,2A4,10X,1P,D24.16)\r\n      GO TO  170\r\n  120 WRITE  (NOUT,130) NAME(1),NAME(2),WAL(1),WAL(2)\r\n  130 FORMAT (20X,2A4,10X,1H(,1P,2E14.6,1H))\r\n      IF (MACHX .EQ. 5) WRITE (NOUT,140,ERR=170) DAL(1)\r\n  140 FORMAT (1H+,69X,'OR',D24.16)\r\n      GO TO  170\r\n  150 WRITE  (NOUT,160) NAME(1),NAME(2),DAL(1),DAL(2)\r\n  160 FORMAT (20X,2A4,10X,1H(,1P,2D24.16,1H))\r\n  170 IF (KICKK) GO TO 200\r\n      LN = LN + 2\r\n      GO TO 20\r\nC\r\n  180 IF (I .GT. L) GO TO 530\r\n      IF (V(I).NE.B1 .OR. V(I+1).NE.B2) GO TO 210\r\n      ASSIGN 190 TO R\r\n      GO TO 300\r\n  190 GO TO (40,60,80,100,120,150), TYPE\r\n  200 GO TO 7820\r\n  210 I = I + V(I+2) + 3\r\n      GO TO 180\r\nC\r\n  300 NAME(1) = V(I  )\r\n      NAME(2) = V(I+1)\r\n      NW = V(I+2)\r\n      DO 310 M = 1,NW\r\n      MI = M + I\r\n  310 VAL(M) = V(MI+2)\r\n      M = NUMTYP(VAL(1)) + 1\r\n      GO TO ( 320, 490, 320, 480), M\r\nC            ZERO,INTG,REAL, BCD\r\nC\r\n  320 IF (NW .GT. 1) GO TO 330\r\n      TYPE = 2\r\n      GO TO 500\r\n  330 IF (NW .LT. 4) GO TO 340\r\n      TYPE = 6\r\n      GO TO 500\r\nC\r\nC     THE 7094 AND 6600 SHOULD BE CORRECT\r\nC     THE 360 AND 1108 CAN STILL HAVE SOME MISTAKES\r\nC     VAX IS OK, OTHER UNIX MACHINES FOLLOW VAX              ** MACHX **\r\nC     MACHINES ABOVE 12 NEED TO BE SET CORRECTLY IN NEXT GO TO STATEMENT\r\nC\r\nC            DUMMY  360  1108  6600   VAX  ULTRIX   SUN   AIX     HP\r\nC             S/G   MAC  CRAY  CNVX   NEC  FUJISU    DG  AMDL  PRIME\r\nC             486  DUMMY\r\nC            ----  ----- ----  ----  ----  ------  ----  ----  -----\r\n  340 GO TO ( 420,  430,  440,  450,  350,    350,  350,  350,   350,\r\n     1        350,  350,  410,  350,  350,    350,  350,  350,   350,\r\n     2        350,  350), MACHX\r\nC\r\nC     ****** NEED TEST FOR RDP VS CSP.  I ASSUME CSP FOR NOW.\r\nC\r\n  350 GO TO 430\r\nC\r\nC     ****** OH MY GOSH, HOW CAN I SOLVE THIS PROBLEM FOR THE VAX\r\nC\r\n  410 IF (RSHIFT(VAL(2),48) .EQ. 0) GO TO 470\r\n      GO TO 460\r\n  420 IF (MACHX.EQ.1 .AND. IABS(RSHIFT(VAL(1),27)).EQ.\r\n     1    OO+IABS(RSHIFT(VAL(2),27))) GO TO 470\r\n      GO TO 460\r\n  430 IF (RSHIFT(LSHIFT(VAL(2),9),28).EQ.0 .AND. VAL(2).NE.0) GO TO 470\r\n      GO TO 460\r\n  440 IF (RSHIFT(LSHIFT(VAL(1),9),35).EQ.1 .AND. RSHIFT(LSHIFT(VAL(2),9)\r\n     1   ,35).EQ.1) GO TO 460\r\n      IF (VAL(2) .EQ. 0) GO TO 460\r\n      GO TO 470\r\n  450 IF (IABS(RSHIFT(VAL(1),48)) .EQ. 48+IABS(RSHIFT(VAL(2),48)))\r\n     1    GO TO 470\r\n  460 TYPE = 5\r\n      GO TO 500\r\n  470 TYPE = 4\r\n      GO TO 500\r\n  480 TYPE = 3\r\n      GO TO 500\r\n  490 TYPE = 1\r\n  500 GO TO R, (30,190)\r\nC\r\n  510 WRITE  (NOUT,520)\r\n  520 FORMAT (1H0,19X,'NO PARAMETERS EXIST')\r\n      LN = LN + 2\r\n      GO TO 7820\r\n  530 WRITE  (NOUT,540) B1,B2\r\n  540 FORMAT (1H0,19X,'PARAMETER NAMED ',2A4,' IS NOT IN VPS.')\r\n      LN = LN + 2\r\n      GO TO 7820\r\nC\r\n  550 DO 560 M = 1,32\r\n      H1(M) = K4(M)\r\n      H2(M) = K5(M)\r\n  560 H3(M) = K6(M)\r\n      CALL PAGE\r\n      KICK = IABS(IC)\r\n      DO 570 M = 1,26\r\n      IF (B1 .NE. BT(M)) GO TO 570\r\n      MM = M\r\n      GO TO 590\r\n  570 CONTINUE\r\n      LN = LN + 2\r\n      WRITE  (NOUT,580) B1,B2\r\n  580 FORMAT ('0SECOND PRTPARM PARAMETER VALUE -',2A4,'- IMPROPER.')\r\n      GO TO 7810\r\n  590 IF (KICK.GT.KT(MM) .AND. MM.LE.26) GO TO 600\r\n      LN = LN + 5\r\n      GO TO ( 700, 800, 900,1000,1100,1200,1300,1400,1500,1600,\r\n     1       1700,1800,1900,2000,2100,2200,2300,2400,2500,3000,\r\n     2       3100,3200,3600,3700,3800,4100), MM\r\n  600 WRITE  (NOUT,610) KICK\r\n  610 FORMAT ('0PRTPARM DIAGNOSTIC',I20,' NOT IN TABLE.')\r\n      LN = LN + 2\r\n      GO TO 7810\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 1\r\nC\r\n  700 GO TO (710,720,730,740,750), KICK\r\n  710 WRITE (NOUT,4200)\r\n      GO TO 7800\r\n  720 WRITE (NOUT,4210)\r\n      GO TO 7800\r\n  730 WRITE (NOUT,4220)\r\n      GO TO 7800\r\n  740 WRITE (NOUT,4230)\r\n      GO TO 7800\r\n  750 WRITE (NOUT,4240)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 2\r\nC\r\n  800 GO TO (810,820,830,840,850,860), KICK\r\n  810 WRITE (NOUT,4300)\r\n      GO TO 7800\r\n  820 WRITE (NOUT,4310)\r\n      GO TO 7800\r\n  830 WRITE (NOUT,4320)\r\n      GO TO 7800\r\n  840 WRITE (NOUT,4330)\r\n      GO TO 7800\r\n  850 WRITE (NOUT,4340)\r\n      GO TO 7800\r\n  860 WRITE (NOUT,4350)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 3\r\nC\r\n  900 GO TO (910,920,930,940), KICK\r\n  910 WRITE (NOUT,4400)\r\n      GO TO 7800\r\n  920 WRITE (NOUT,4410)\r\n      GO TO 7800\r\n  930 WRITE (NOUT,4420)\r\n      GO TO 7800\r\n  940 WRITE (NOUT,4430)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 4\r\nC\r\n 1000 GO TO (1010,1020,1030,1040,1050), KICK\r\n 1010 WRITE (NOUT,4500)\r\n      GO TO 7800\r\n 1020 WRITE (NOUT,4510)\r\n      GO TO 7800\r\n 1030 WRITE (NOUT,4520)\r\n      GO TO 7800\r\n 1040 WRITE (NOUT,4530)\r\n      GO TO 7800\r\n 1050 WRITE (NOUT,4540)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 5\r\nC\r\n 1100 GO TO (1110,1120,1130,1140,1150,1160), KICK\r\n 1110 WRITE (NOUT,4600)\r\n      GO TO 7800\r\n 1120 WRITE (NOUT,4610)\r\n      GO TO 7800\r\n 1130 WRITE (NOUT,4620)\r\n      GO TO 7800\r\n 1140 WRITE (NOUT,4630)\r\n      GO TO 7800\r\n 1150 WRITE (NOUT,4640)\r\n      GO TO 7800\r\n 1160 WRITE (NOUT,4650)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 6\r\nC\r\n 1200 GO TO (1210,1220,1230,1240,1250), KICK\r\n 1210 WRITE (NOUT,4700)\r\n      GO TO 7800\r\n 1220 WRITE (NOUT,4710)\r\n      GO TO 7800\r\n 1230 WRITE (NOUT,4720)\r\n      GO TO 7800\r\n 1240 WRITE (NOUT,4730)\r\n      GO TO 7800\r\n 1250 WRITE (NOUT,4740)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 7\r\nC\r\n 1300 GO TO (1310,1320,1330), KICK\r\n 1310 WRITE (NOUT,4800)\r\n      GO TO 7800\r\n 1320 WRITE (NOUT,4810)\r\n      GO TO 7800\r\n 1330 WRITE (NOUT,4820)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 8\r\nC\r\n 1400 GO TO (1410,1420,1430,1440), KICK\r\n 1410 WRITE (NOUT,4900)\r\n      GO TO 7800\r\n 1420 WRITE (NOUT,4910)\r\n      GO TO 7800\r\n 1430 WRITE (NOUT,4920)\r\n      GO TO 7800\r\n 1440 WRITE (NOUT,4930)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 9\r\nC\r\n 1500 GO TO (1510,1520,1530), KICK\r\n 1510 WRITE (NOUT,5000)\r\n      GO TO 7800\r\n 1520 WRITE (NOUT,5010)\r\n      GO TO 7800\r\n 1530 WRITE (NOUT,5020)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 10\r\nC\r\n 1600 GO TO (1610,1620,1630,1640,1650), KICK\r\n 1610 WRITE (NOUT,5100)\r\n      GO TO 7800\r\n 1620 WRITE (NOUT,5110)\r\n      GO TO 7800\r\n 1630 WRITE (NOUT,5120)\r\n      GO TO 7800\r\n 1640 WRITE (NOUT,5130)\r\n      GO TO 7800\r\n 1650 WRITE (NOUT,5140)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 11\r\nC\r\n 1700 GO TO (1710,1720,1730,1740,1750,1760,1770), KICK\r\n 1710 WRITE (NOUT,5200)\r\n      GO TO 7800\r\n 1720 WRITE (NOUT,5210)\r\n      GO TO 7800\r\n 1730 WRITE (NOUT,5220)\r\n      GO TO 7800\r\n 1740 WRITE (NOUT,5230)\r\n      GO TO 7800\r\n 1750 WRITE (NOUT,5240)\r\n      GO TO 7800\r\n 1760 WRITE (NOUT,5250)\r\n      GO TO 7800\r\n 1770 WRITE (NOUT,5260)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 12\r\nC\r\n 1800 GO TO (1810,1820,1830,1840,1850,1860), KICK\r\n 1810 WRITE (NOUT,5300)\r\n      GO TO 7800\r\n 1820 WRITE (NOUT,5310)\r\n      GO TO 7800\r\n 1830 WRITE (NOUT,5320)\r\n      GO TO 7800\r\n 1840 WRITE (NOUT,5330)\r\n      GO TO 7800\r\n 1850 WRITE (NOUT,5340)\r\n      GO TO 7800\r\n 1860 WRITE (NOUT,5350)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 13\r\nC\r\n 1900 GO TO (1910,1920,1930,1940,1950,1960), KICK\r\n 1910 WRITE (NOUT,5400)\r\n      GO TO 7800\r\n 1920 WRITE (NOUT,5410)\r\n      GO TO 7800\r\n 1930 WRITE (NOUT,5420)\r\n      GO TO 7800\r\n 1940 WRITE (NOUT,5430)\r\n      GO TO 7800\r\n 1950 WRITE (NOUT,5440)\r\n      GO TO 7800\r\n 1960 WRITE (NOUT,5450)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 14\r\nC\r\n 2000 GO TO (2010,2020,2030,2040,2050,2060), KICK\r\n 2010 WRITE (NOUT,5500)\r\n      GO TO 7800\r\n 2020 WRITE (NOUT,5510)\r\n      GO TO 7800\r\n 2030 WRITE (NOUT,5520)\r\n      GO TO 7800\r\n 2040 WRITE (NOUT,5530)\r\n      GO TO 7800\r\n 2050 WRITE (NOUT,5540)\r\n      GO TO 7800\r\n 2060 WRITE (NOUT,5550)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 15\r\nC\r\n 2100 GO TO (2110,2120,2130,2140,2150,2160), KICK\r\n 2110 WRITE (NOUT,5600)\r\n      GO TO 7800\r\n 2120 WRITE (NOUT,5610)\r\n      GO TO 7800\r\n 2130 WRITE (NOUT,5620)\r\n      GO TO 7800\r\n 2140 WRITE (NOUT,5630)\r\n      GO TO 7800\r\n 2150 WRITE (NOUT,5640)\r\n      GO TO 7800\r\n 2160 WRITE (NOUT,5650)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 16\r\nC\r\n 2200 GO TO (2210,2220,2230,2240,2250), KICK\r\n 2210 WRITE (NOUT,5700)\r\n      GO TO 7800\r\n 2220 WRITE (NOUT,5710)\r\n      GO TO 7800\r\n 2230 WRITE (NOUT,5720)\r\n      GO TO 7800\r\n 2240 WRITE (NOUT,5730)\r\n      GO TO 7800\r\n 2250 WRITE (NOUT,5740)\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 17\r\nC\r\n 2300 CONTINUE\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 18\r\nC\r\n 2400 CONTINUE\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 19\r\nC\r\n 2500 CONTINUE\r\n      GO TO 7800\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 1\r\nC\r\n 3000 GO TO (3010,3020,3030,3040), KICK\r\n 3010 WRITE (NOUT,6600)\r\n      GO TO 7800\r\n 3020 WRITE (NOUT,6610)\r\n      GO TO 7800\r\n 3030 WRITE (NOUT,6620)\r\n      GO TO 7800\r\n 3040 WRITE (NOUT,6630)\r\n      GO TO 7800\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 3\r\nC\r\n 3100 GO TO (3110,3120,3130), KICK\r\n 3110 WRITE (NOUT,6700)\r\n      GO TO 7800\r\n 3120 WRITE (NOUT,6710)\r\n      GO TO 7800\r\n 3130 WRITE (NOUT,6720)\r\n      GO TO 7800\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 9\r\nC\r\n 3200 GO TO (3210,3220), KICK\r\n 3210 WRITE (NOUT,6800)\r\n      GO TO 7800\r\n 3220 WRITE (NOUT,6810)\r\n      GO TO 7800\r\nC\r\nC     AERO APPROACH - RIGID FORMAT 9\r\nC\r\n 3600 GO TO (3610,3620,3630,3640,3650,3660,3670), KICK\r\n 3610 WRITE (NOUT,7200)\r\n      GO TO 7800\r\n 3620 WRITE (NOUT,7210)\r\n      GO TO 7800\r\n 3630 WRITE (NOUT,7220)\r\n      GO TO 7800\r\n 3640 WRITE (NOUT,7230)\r\n      GO TO 7800\r\n 3650 WRITE (NOUT,7240)\r\n      GO TO 7800\r\n 3660 WRITE (NOUT,7250)\r\n      GO TO 7800\r\n 3670 WRITE (NOUT,7260)\r\n      GO TO 7800\r\nC\r\nC     AERO APPROACH - RIGID FORMAT 10\r\nC\r\n 3700 GO TO (3710,3720,3730,3740,3750), KICK\r\n 3710 WRITE (NOUT,7300)\r\n      GO TO 7800\r\n 3720 WRITE (NOUT,7310)\r\n      GO TO 7800\r\n 3730 WRITE (NOUT,7320)\r\n      GO TO 7800\r\n 3740 WRITE (NOUT,7330)\r\n      GO TO 7800\r\n 3750 WRITE (NOUT,7340)\r\n      GO TO 7800\r\nC\r\nC     AERO APPROACH - RIGID FORMAT 11\r\nC\r\n 3800 GO TO (3810,3820,3830,3840), KICK\r\n 3810 WRITE (NOUT,7400)\r\n      GO TO 7800\r\n 3820 WRITE (NOUT,7410)\r\n      GO TO 7800\r\n 3830 WRITE (NOUT,7420)\r\n      GO TO 7800\r\n 3840 WRITE (NOUT,7430)\r\n      GO TO 7800\r\nC\r\nC     DMAP APPROACH\r\nC\r\n 4100 WRITE (NOUT,7700) KICK\r\n      GO TO 7800\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 1\r\nC\r\n 4200 FORMAT (//////,' STATIC ANALYSIS ERROR NO.1  ATTEMPT TO EXECUTE ',\r\n     1       'MORE THAN 360 LOOPS.')\r\n 4210 FORMAT (//////,' STATIC ANALYSIS ERROR NO.2  MASS MATRIX REQUIRED'\r\n     1,      ' FOR WEIGHT AND BALANCE CALCULATIONS.')\r\n 4220 FORMAT (//////,' STATIC ANALYSIS ERROR NO.3  NO INDEPENDENT ',\r\n     1       'DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\n 4230 FORMAT (//////,' STATIC ANALYSIS ERROR NO.4  NO ELEMENTS HAVE ',\r\n     1       'BEEN DEFINED.')\r\n 4240 FORMAT (//////,' STATIC ANALYSIS ERROR NO.5  A LOOPING PROBLEM ',\r\n     1       'RUN ON A NON-LOOPING SUBSET.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 2\r\nC\r\n 4300 FORMAT (//////,' INERTIA RELIEF ERROR NO.1  MASS MATRIX REQUIRED',\r\n     1       ' FOR CALCULATION OF INERTIA LOADS.')\r\n 4310 FORMAT (//////,' INERTIA RELIEF ERROR NO.2  ATTEMPT TO EXECUTE ',\r\n     1       'MORE THAN 360 LOOPS.')\r\n 4320 FORMAT (//////,' INERTIA RELIEF ERROR NO.3  NO INDEPENDENT ',\r\n     1       'DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\n 4330 FORMAT (//////,' INERTIA RELIEF ERROR NO.4  FREE BODY SUPPORTS ',\r\n     1       'ARE REQUIRED.')\r\n 4340 FORMAT (//////,' INERTIA RELIEF ERROR NO.5  A LOOPING PROBLEM ',\r\n     1       'RUN ON A NON-LOOPING SUBSET.')\r\n 4350 FORMAT (//////,' INERTIA RELIEF ERROR NO.6  NO STRUCTURAL ',\r\n     1       'ELEMENTS HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 3\r\nC\r\n 4400 FORMAT (//////,' NORMAL MODES ERROR NO.1  MASS MATRIX REQUIRED ',\r\n     1       'FOR REAL EIGENVALUE ANALYSIS.')\r\n 4410 FORMAT (//////,' NORMAL MODES ERROR NO.2  EIGENVALUE EXTRACTION ',\r\n     1       'DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 4420 FORMAT (//////,' NORMAL MODES ERROR NO.3  NO INDEPENDENT DEGREES',\r\n     1       ' OF FREEDOM HAVE BEEN DEFINED.')\r\n 4430 FORMAT (//////,' NORMAL MODES ERROR NO.4  NO STRUCTURAL ELEMENTS',\r\n     1       ' HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 4\r\nC\r\n 4500 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.1  NO STRUCTURAL'\r\n     1,      ' ELEMENTS HAVE BEEN DEFINED.')\r\n 4510 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.2  FREE BODY ',\r\n     1       'SUPPORTS NOT ALLOWED.')\r\n 4520 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.3  NO GRID POINT'\r\n     1,      ' DATA IS SPECIFIED.')\r\n 4530 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.4  MASS MATRIX ',\r\n     1       'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\n 4540 FORMAT (//////,' DIFFERENTIAL STIFFNESS ERROR NO.5  NO ',\r\n     1       'INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 5\r\nC\r\n 4600 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.1  NO STRUCTURAL ',\r\n     1       'ELEMENTS HAVE BEEN DEFINED.')\r\n 4610 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.2  FREE BODY SUPPORTS'\r\n     1,      ' NOT ALLOWED.')\r\n 4620 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.3  EIGENVALUE ',\r\n     1       'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 4630 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.4  NO EIGENVALUES ',\r\n     1       'FOUND.')\r\n 4640 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.5  MASS MATRIX ',\r\n     1       'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\n 4650 FORMAT (//////,' BUCKLING ANALYSIS ERROR NO.6  NO INDEPENDENT ',\r\n     1       'DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 6\r\nC\r\n 4700 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.1  NO NONLINEAR ',\r\n     1       'ELEMENTS HAVE BEEN DEFINED.')\r\n 4710 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.2  ATTEMPT TO EXECUTE',\r\n     1       ' MORE THAN 360 LOOPS.')\r\n 4720 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.3  MASS MATRIX ',\r\n     1       'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\n 4730 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.4  NO ELEMENTS HAVE ',\r\n     1       'BEEN DEFINED.')\r\n 4740 FORMAT (//////,' PIECEWISE LINEAR ERROR NO.5  STIFFNESS MATRIX ',\r\n     1       'SINGULAR DUE TO MATERIAL PLASTICITY.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 7\r\nC\r\n 4800 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.1  ',\r\n     1       'EIGENVALUE EXTRACTION DATA REQUIRED FOR COMPLEX ',\r\n     2       'EIGENVALUE ANALYSIS.')\r\n 4810 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.2  ATTEMPT ',\r\n     1       'TO EXECUTE MORE THAN 100 LOOPS.')\r\n 4820 FORMAT (//////,' DIRECT COMPLEX EIGENVALUE ERROR NO.3  MASS ',\r\n     1       'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 8\r\nC\r\n 4900 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.1  FREQUENCY',\r\n     1       ' RESPONSE LIST REQUIRED FOR FREQUENCY RESPONSE ',\r\n     2       'CALCULATIONS.')\r\n 4910 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.2  DYNAMIC ',\r\n     1       'LOADS TABLE REQUIRED FOR FREQUENCY RESPONSE CALCULATIONS')\r\n 4920 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.3  ATTEMPT ',\r\n     1       'TO EXECUTE MORE THAN 100 LOOPS.')\r\n 4930 FORMAT (//////,' DIRECT FREQUENCY RESPONSE ERROR NO.4  MASS ',\r\n     1       'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 9\r\nC\r\n 5000 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.1  TRANSIENT',\r\n     1       ' RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ',\r\n     2       'CALCULATIONS.')\r\n 5010 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.2  ATTEMPT ',\r\n     1       'TO EXECUTE MORE THAN 100 LOOPS.')\r\n 5020 FORMAT (//////,' DIRECT TRANSIENT RESPONSE ERROR NO.3  MASS ',\r\n     1       'MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 10\r\nC\r\n 5100 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.1  MASS MATRIX'\r\n     1,      ' REQUIRED FOR MODAL FORMULATION.')\r\n 5110 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.2  EIGENVALUE',\r\n     1       ' EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 5120 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.3  ATTEMPT TO',\r\n     1       ' EXECUTE MORE THAN 100 LOOPS.')\r\n 5130 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.4  REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\n 5140 FORMAT (//////,' MODAL COMPLEX EIGENVALUE ERROR NO.5  NO ',\r\n     1       'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 11\r\nC\r\n 5200 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.1  MASS MATRIX'\r\n     1,      ' REQUIRED FOR MODAL FORMULATION.')\r\n 5210 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.2  EIGENVALUE',\r\n     1       ' EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 5220 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.3  ATTEMPT TO',\r\n     1       ' EXECUTE MORE THAN 100 LOOPS.')\r\n 5230 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.4  REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\n 5240 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.5  FREQUENCY ',\r\n     1       'RESPONSE LIST REQUIRED FOR FREQUENCY RESPONSE ',\r\n     2       'CALCULATIONS.')\r\n 5250 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.6  DYNAMIC ',\r\n     1       'LOADS TABLE REQUIRED FOR FREQUENCY RESPONSE CALCULATIONS')\r\n 5260 FORMAT (//////,' MODAL FREQUENCY RESPONSE ERROR NO.7  NO ',\r\n     1       'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 12\r\nC\r\n 5300 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.1  MASS MATRIX'\r\n     1,      ' REQUIRED FOR MODAL FORMULATION.')\r\n 5310 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.2 EIGENVALUE ',\r\n     1       'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 5320 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.3 ATTEMPT TO ',\r\n     1       'EXECUTE MORE THAN 100 LOOPS.')\r\n 5330 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.4 REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\n 5340 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.5 TRANSIENT ',\r\n     1       'RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ',\r\n     2       'CALCULATIONS.')\r\n 5350 FORMAT (//////,' MODAL TRANSIENT RESPONSE ERROR NO.6 NO ',\r\n     1       'STRUCTURAL ELEMENTS HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 13\r\nC\r\n 5400 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO.1  NO STRUCTURAL ELEMENTS HAVE BEEN DEFINED.')\r\n 5410 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO.2  FREE BODY SUPPORTS NOT ALLOWED.')\r\n 5420 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO.3  EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL ',\r\n     2       'EIGENVALUE ANALYSIS.')\r\n 5430 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO.4  NO EIGENVALUE FOUND.')\r\n 5440 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO. 5  MASS MATRIX REQUIRED FOR REAL EIGENVALUE ANALYSIS')\r\n 5450 FORMAT (//////,' NORMAL MODES WITH DIFFERENTIAL STIFFNESS ERROR ',\r\n     1       'NO. 6  NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN ',\r\n     2       'DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 14\r\nC\r\n 5500 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 1 ',\r\n     1       ' ATTEMPT TO EXECUTE MORE THAN 360 LOOPS.')\r\n 5510 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 2  '\r\n     1,      'MASS MATRIX REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS')\r\n 5520 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 3 ',\r\n     1       ' NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\n 5530 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 4 ',\r\n     1       ' NO ELEMENTS HAVE BEEN DEFINED.')\r\n 5540 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 5 ',\r\n     1       ' CYCLIC TRANSFORMATION DATA ERROR.')\r\n 5550 FORMAT (//////,' STATICS WITH CYCLIC TRANSFORMATION ERROR NO. 6 ',\r\n     1       ' FREE BODY SUPPORTS NOT ALLOWED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 15\r\nC\r\n 5600 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 1  MASS MATRIX REQUIRED FOR REAL EIGENVALUE ANALYSIS')\r\n 5610 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 2  EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL ',\r\n     2       'EIGENVALUE ANALYSIS.')\r\n 5620 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 3  NO INDEPENDENT DEGREES OF FREEDOM HAVE BEEN ',\r\n     2       'DEFINED.')\r\n 5630 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 4  FREE BODY SUPPORTS NOT ALLOWED.')\r\n 5640 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 5  CYCLIC TRANSFORMATION DATA ERROR.')\r\n 5650 FORMAT (//////,' NORMAL MODES WITH CYCLIC TRANSFORMATION ERROR ',\r\n     1       'NO. 6  NO STRUCTURAL ELEMENTS HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 16\r\nC\r\n 5700 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 1  NO STRUCTURAL ',\r\n     1       'ELEMENTS HAVE BEEN DEFINED.')\r\n 5710 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 2  FREE BODY ',\r\n     1       'SUPPORTS NOT ALLOWED.')\r\n 5720 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 3  NO GRID POINT ',\r\n     1       'DATA IS SPECIFIED.')\r\n 5730 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 4  MASS MATRIX ',\r\n     1       'REQUIRED FOR WEIGHT AND BALANCE CALCULATIONS.')\r\n 5740 FORMAT (//////,' AEROTHERMOELASTIC ERROR NO. 5  NO INDEPENDENT ',\r\n     1       'DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 17\r\nC\r\nC5800 FORMAT (//)\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 18\r\nC\r\nC5900 FORMAT (//)\r\nC\r\nC     DISPLACEMENT APPROACH - RIGID FORMAT 19\r\nC\r\nC6000 FORMAT (//)\r\nC\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 1\r\nC\r\n 6600 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 1  ATTEMPT TO ',\r\n     1       'EXECUTE MORE THAN 100 LOOPS.')\r\n 6610 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 2  LOOPING ',\r\n     1       'PROBLEM RUN ON A NON-LOOPING SUBSET.')\r\n 6620 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 3  NO INDEPENDENT'\r\n     1,      ' DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\n 6630 FORMAT (//////,' STATIC HEAT TRANSFER ERROR NO. 4  NO ELEMENTS ',\r\n     1       'HAVE BEEN DEFINED.')\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 3\r\nC\r\n 6700 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 1  NO ',\r\n     1       'INDEPENDENT DEGREES OF FREEDOM HAVE BEEN DEFINED.')\r\n 6710 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 2  NO ',\r\n     1       'SIMPLE STRUCTURAL ELEMENTS.')\r\n 6720 FORMAT (//////,' NONLINEAR STATIC HEAT TRANSFER ERROR NO. 3  ',\r\n     1       'STIFFNESS MATRIX SINGULAR.')\r\nC\r\nC     HEAT APPROACH - RIGID FORMAT 9\r\nC\r\n 6800 FORMAT (//////,' TRANSIENT HEAT TRANSFER ERROR NO. 1  TRANSIENT ',\r\n     1       'RESPONSE LIST REQUIRED FOR TRANSIENT RESPONSE ',\r\n     2       'CALCULATIONS.')\r\n 6810 FORMAT (//////,' TRANSIENT HEAT TRANSFER ERROR NO. 2  ATTEMPT ',\r\n     1       'TO EXECUTE MORE THAN 100 LOOPS.')\r\nC\r\nC     AERO APPROACH - RIGID FORMAT 9\r\nC\r\n 7200 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 1  MASS MATRIX',\r\n     1       ' REQUIRED FOR MODAL FORMULATION.')\r\n 7210 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 2  EIGENVALUE ',\r\n     1       'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 7220 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 3  ATTEMPT TO ',\r\n     1       'EXECUTE MORE THAN 100 LOOPS.')\r\n 7230 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 4  REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\n 7240 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 5  NO GRID ',\r\n     1       'POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ',\r\n     2       'BEEN DEFINED.')\r\n 7250 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 6  FREE BODY ',\r\n     1       'SUPPORTS NOT ALLOWED.')\r\n 7260 FORMAT (//////,' BLADE FLUTTER ANALYSIS ERROR NO. 7  CYCLIC ',\r\n     1       'TRANSFORMATION DATA ERROR.')\r\nC\r\nC     AERO APPROACH - RIGID FORMAT 10\r\nC\r\n 7300 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 1  MASS MATRIX',\r\n     1       ' REQUIRED FOR MODAL FORMULATION.')\r\n 7310 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 2  EIGENVALUE ',\r\n     1       'EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ANALYSIS.')\r\n 7320 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 3  ATTEMPT TO ',\r\n     1       'EXECUTE MORE THAN 100 LOOPS.')\r\n 7330 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 4  REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\n 7340 FORMAT (//////,' MODAL FLUTTER ANALYSIS ERROR NO. 5  NO GRID ',\r\n     1       'POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ',\r\n     2       'BEEN DEFINED.')\r\nC\r\nC    AERO APPROACH - RIGID FORMAT 11\r\nC\r\n 7400 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 1  MASS ',\r\n     1       'MATRIX REQUIRED FOR MODAL FORMULATION.')\r\n 7410 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 2  ',\r\n     1       'EIGENVALUE EXTRACTION DATA REQUIRED FOR REAL EIGENVALUE ',\r\n     2       'ANALYSIS.')\r\n 7420 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 3  NO GRID',\r\n     1       ' POINT DATA IS SPECIFIED OR NO STRUCTURAL ELEMENTS HAVE ',\r\n     2       'BEEN DEFINED.')\r\n 7430 FORMAT (//////,' MODAL AEROELASTIC RESPONSE ERROR NO. 4  REAL ',\r\n     1       'EIGENVALUES REQUIRED FOR MODAL FORMULATION.')\r\nC\r\nC     DMAP APPROACH\r\nC\r\n 7700 FORMAT (//////,10X,'DMAP ERROR',3X,I20)\r\n 7800 IF (IC .GE. 0) RETURN\r\nC\r\n 7810 CONTINUE\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n 7820 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/psbar.f",
    "content": "      SUBROUTINE PSBAR\r\nC*****\r\nC THIS ROUTINE COMPUTES THE TWO 6 X 6 MATRICES K(NPVT,NPVT) AND\r\nC K(NPVT,J) FOR A BAR ELEMENT HAVING END POINTS NUMBERED NPVT AND J.\r\nC*****\r\nC\r\nC                     E C P T  F O R  T H E  B A R\r\nC\r\nC ECPT( 1)  -  IELID          ELEMENT ID. NUMBER\r\nC ECPT( 2)  -  ISILNO(2)      * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC ECPT( 3)  -    ...          *\r\nC ECPT( 4)  -  SMALLV(3)      $ REFERENCE VECTOR\r\nC ECPT( 5)  -    ...          $\r\nC ECPT( 6)  -    ...          $\r\nC ECPT( 7)  -  ICSSV          COOR. SYS. ID FOR SMALLV VECTOR\r\nC ECPT( 8)  -  IPINFL(2)      * PIN FLAGS\r\nC ECPT( 9)  -    ...          *\r\nC ECPT(10)  -  ZA(3)          $ OFFSET VECTOR FOR POINT A\r\nC ECPT(11)  -    ...          $\r\nC ECPT(12)  -    ...          $\r\nC ECPT(13)  -  ZB(3)          * OFFSET VECTOR FOR POINT B\r\nC ECPT(14)  -    ...          *\r\nC ECPT(15)  -    ...          *\r\nC ECPT(16)  -  IMATID         MATERIAL ID.\r\nC ECPT(17)  -  A              CROSS-SECTIONAL AREA\r\nC ECPT(18)  -  I1             $ AREA MOMENTS OF INERTIA\r\nC ECPT(19)  -  I2             $\r\nC ECPT(20)  -  FJ             POLAR MOMENT OF INERTIA\r\nC ECPT(21)  -  NSM            NON-STRUCTURAL MASS\r\nC ECPT(22)  -  FE             FORCE ELEMENT DESCRIPTIONS (FORCE METHOD)\r\nC ECPT(23)  -  C1             * STRESS RECOVERY COEFFICIENTS\r\nC ECPT(24)  -  C2             *\r\nC ECPT(25)  -  D1             *\r\nC ECPT(26)  -  D2             *\r\nC ECPT(27)  -  F1             *\r\nC ECPT(28)  -  F2             *\r\nC ECPT(29)  -  G1             *\r\nC ECPT(30)  -  G2             *\r\nC ECPT(31)  -  K1             $ AREA FACTORS FOR SHEAR\r\nC ECPT(32)  -  K2             $\r\nC ECPT(33)  -  I12            AREA MOMENT OF INERTIA\r\nC ECPT(34)  -  MCSIDA         COOR. SYS. ID. FOR GRID POINT A\r\nC ECPT(35)  -  GPA(3)         * BASIC COORDINATES FOR GRID POINT A\r\nC ECPT(36)  -    ...          *\r\nC ECPT(37)  -    ...          *\r\nC ECPT(38)  -  MCSIDB         COOR. SYS. ID. FOR GRID POINT B\r\nC ECPT(39)  -  GPB(3)         $ BASIC COORDINATES FOR GRID POINT B\r\nC ECPT(40)  -    ...          $\r\nC ECPT(41)  -    ...          $\r\nC ECPT(42)  -  ELTEMP         AVG. ELEMENT TEMPERATURE\r\nC ECPT(43)  -  EPSIN1         PREVIOUS STRAIN VALUE ONCE REMOVED\r\nC ECPT(44)  -  EPSIN2         PREVIOUS STRAIN VALUE\r\nC ECPT(45)  -  ESTAR          PREVIOUSLY COMPUTED MODULUS OF ELASTICITY\r\nC ECPT(46)  -  V1STAR         * ELEMENT FORCES, INITIALLY ZERO\r\nC ECPT(47)  -   V2STAR        *\r\nC ECPT(48)  -   TSTAR         *\r\nC ECPT(49)  -   M1ASTR        *\r\nC ECPT(50)  -   M2ASTR        *\r\nC ECPT(51)  -   UAIN(6)       $ INCREMENTAL DISPLACEMENT VECTOR AT PT. A\r\nC ECPT(52)  -   ...           $\r\nC ECPT(53)  -   ...           $\r\nC ECPT(54)  -   ...           $\r\nC ECPT(55)  -   ...           $\r\nC ECPT(56)  -   ...           $\r\nC ECPT(57)  -   UBIN(6)       * INCREMENTAL DISPLACEMENT VECTOR AT PT. B\r\nC ECPT(58)  -   ...           *\r\nC ECPT(59)  -   ...           *\r\nC ECPT(60)  -   ...           *\r\nC ECPT(61)  -   ...           *\r\nC ECPT(62)  -   ...           *\r\nC\r\n      REAL\r\n     1                   L                  ,LSQ\r\n     2,                  LCUBE              ,I1\r\n     3,                  I2                 ,K1\r\n     4,                  K2                 ,KE\r\n     5,                  KEP                ,I12\r\n     6,                  NSM                ,LR1\r\n     7,                  LR2                ,LB\r\n     8,                  L2B3               ,L2B6\r\n      REAL\r\n     1                   M1ASTR             ,M2ASTR\r\n     2,                  M1A                ,M2A\r\n     3,                  M1B                ,M2B\r\n     4,                  K1A                ,K2A\r\n     5,                  K1B                ,K2B\r\n      LOGICAL\r\n     1                   ABASIC             ,BBASIC\r\n     2,                  BASIC              ,AOFSET\r\n     3,                  BOFSET             ,OFFSET\r\n      DIMENSION\r\n     1                   VECI(3)            ,VECJ(3)\r\n     2,                  VECK(3)            ,ECPT(100)\r\n     3,                  IECPT(100)         ,IPIN(10)\r\n     5,                  TA(18)             ,TB(9)\r\n     6,                  SMALV0(6)          ,U(24)\r\n     7,                  D(9)               ,SA(72)\r\n     8,                  SB(36)             ,FA(6)\r\n     9,                  FB(6)\r\nC\r\n      COMMON   /PLA32E/\r\n     1                   IELID              ,ISILNO(2)\r\n     2,                  SMALLV(3)          ,ICSSV\r\n     3,                  IPINFL(2)          ,ZA(3)\r\n     4,                  ZB(3)              ,IMATID\r\n     5,                  A                  ,I1\r\n     6,                  I2                 ,FJ\r\n     7,                  NSM                ,FE\r\n     8,                  C1                 ,C2\r\n     9,                  D1                 ,D2\r\n     T,                  F1                 ,F2\r\n     1,                  G1                 ,G2\r\n     2,                  K1                 ,K2\r\n     3,                  I12\r\n     4,                  MCSIDA             ,GPA(3)\r\n     5,                  MCSIDB             ,GPB(3)\r\n     6,                  ELTEMP             ,EPSIN1\r\n     7,                  EPSIN2             ,ESTAR\r\n     8,                  V1STAR             ,V2STAR\r\n      COMMON   /PLA32E/\r\n     1                   TSTAR              ,M1ASTR\r\n     2,                  M2ASTR             ,UAIN(6)\r\n     3,                  UBIN(6)\r\n      COMMON   /PLA32S/\r\n     1                   KE(144)            ,KEP(144)\r\n     2,                  DELA(6)            ,DELB(6)\r\n      COMMON   /PLA32C/\r\n     1                   GAMMA              ,GAMMAS\r\n      COMMON   /SOUT/\r\n     1                   ISELID             ,SIG1A\r\n     2,                  SIG2A              ,SIG3A\r\n     3,                  SIG4A              ,SIGAX\r\n     4,                  SIGAMX             ,SIGAMN\r\n     5,                  MSTEN              ,SIG1B\r\n     6,                  SIG2B              ,SIG3B\r\n     7,                  SIG4B              ,SIGBMX\r\n     8,                  SIGBMN             ,MSCOM\r\n     9,                  DUM14(14)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  TEMDUM             ,PLAARG\r\n     3,                  DUM2(2)\r\n      COMMON   /MATOUT/\r\n     1                   E SUB 0            ,G SUB 0\r\n     2,                  NU                 ,RHO\r\n     3,                  ALPHA              ,T SUB 0\r\n     4,                  GSUBE              ,SIGMAT\r\n     5,                  SIGMAC             ,SIGMAS\r\nC\r\n      EQUIVALENCE\r\n     1                   (IELID,ECPT(1),IECPT(1))\r\n     2,                  (TA(10),TB(1))\r\n     3,                  (ECPT(71),D(1))\r\n     4,                  (E SUB 0,PLAANS)\r\n     5,                  (SA(37),SB(1))\r\n     6,                  (MSTEN,SMTEN)\r\n     7,                  (MSCOM,SMCOM)\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\nC SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n      JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\nC\r\nC NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL AXIS\r\nC PLANE  (FMMS - 36 P. 4)\r\nC\r\n      FL = 0.0\r\n      DO 50 I = 1,3\r\n   50 FL = FL + SMALLV(I)**2\r\n      FL = SQRT(FL)\r\n      DO 60 I = 1,3\r\n   60 SMALLV(I) = SMALLV(I) / FL\r\nC\r\nC DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT. ABASIC) CALL TRANSS (ECPT(JCSIDA),TA)\r\n      IF (.NOT. BBASIC) CALL TRANSS (ECPT(JCSIDA),TB)\r\nC\r\nC DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC\r\n  100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1)\r\n      VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2)\r\n      VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3)\r\nC\r\nC TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF ( .NOT. AOFSET  .AND.  .NOT. BOFSET )  GO TO 150\r\nC\r\nC TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4) )\r\nC\r\nC TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4) )\r\nC\r\nC SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 VECI(1) = -VECI(1)\r\n      VECI(2) = -VECI(2)\r\n      VECI(3) = -VECI(3)\r\n      FL = SQRT (VECI(1)**2  +  VECI(2)**2  +  VECI(3)**2)\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I) / FL\r\nC\r\nC COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ****CHECK THIS LOGIC****\r\nC\r\n      DO 165 I = 1,3\r\n  165 SMALV0(I) = SMALLV(I)\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4) )\r\nC\r\nC COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) =  VECI(2) * SMALV0(ISV+2)  -  VECI(3) * SMALV0(ISV+1)\r\n      VECK(2) =  VECI(3) * SMALV0(ISV  )  -  VECI(1) * SMALV0(ISV+2)\r\n      VECK(3) =  VECI(1) * SMALV0(ISV+1)  -  VECI(2) * SMALV0(ISV)\r\n      FLL     =  SQRT ( VECK(1)**2  +  VECK(2)**2  +  VECK(3)**2  )\r\n      VECK(1) =  VECK(1) / FLL\r\n      VECK(2) =  VECK(2) / FLL\r\n      VECK(3) =  VECK(3) / FLL\r\nC\r\nC COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) =  VECK(2) * VECI(3)  -  VECK(3) * VECI(2)\r\n      VECJ(2) =  VECK(3) * VECI(1)  -  VECK(1) * VECI(3)\r\n      VECJ(3) =  VECK(1) * VECI(2)  -  VECK(2) * VECI(1)\r\n      FLL     =  SQRT ( VECJ(1)**2  +  VECJ(2)**2  +  VECJ(3)**2 )\r\n      VECJ(1) =  VECJ(1) / FLL\r\n      VECJ(2) =  VECJ(2) / FLL\r\n      VECJ(3) =  VECJ(3) / FLL\r\nC\r\nC SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX CALCULATION\r\nC\r\n      L = FL\r\n      LSQ = L**2\r\n      LCUBE = LSQ * L\r\nC\r\nC STORE INCREMENTAL DISPLACEMENT VECTORS IN DOUBLE PRECISION LOCATIONS\r\nC\r\n      DO 182 I = 1,6\r\n      U(I)    = UAIN(I)\r\n  182 U(I+12) = UBIN(I)\r\nC*****\r\nC COMPUTE ON FIRST PASS C  * E  * U   AND C  * E  * U  ON SECOND PASS\r\nC                        B    B    B       A    A    A\r\nC*****\r\n      IPASS = 1\r\n      BASIC = BBASIC\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      JCSID = 10\r\n      INDEX = 13\r\nC\r\nC IF THERE ARE OFFSETS FOR THIS POINT, CONSTRUCT THE 3 X 3 MATRIX D.\r\nC\r\n  184 IF (.NOT. OFFSET) GO TO 188\r\n      D(1) = 0.0\r\n      D(2) =  ECPT(JOFSET+2)\r\n      D(3) = -ECPT(JOFSET+1)\r\n      D(4) = -D(2)\r\n      D(5) = 0.0\r\n      D(6) =  ECPT(JOFSET)\r\n      D(7) = -D(3)\r\n      D(8) = -D(6)\r\n      D(9) = 0.0\r\nC\r\nC COMPUTE THE 3 VECTOR  D * U , WHERE U  IS THE VECTOR OF THE 3\r\nC                            R         R\r\nC ROTATIONAL DISPLACEMENTS\r\nC\r\n      CALL GMMATS (D,3,3,0, U(INDEX+3),3,1,0, U(INDEX+6))\r\nC\r\nC ADD OFFSET CONTRIBUTION TO THE TRANSLATION COMPONENTS OF THE DISPLACE-\r\nC MENT VECTOR\r\nC\r\n      J = INDEX\r\n      DO 186 I = 1,3\r\n      U(J) = U(J) + U(J+6)\r\n  186 J = J + 1\r\nC\r\nC TRANSFORM TRANSLATIONAL COMPONENTS TO BASIC COORDINATES IF NECESSARY\r\nC\r\n  188 IF (BASIC) GO TO 190\r\n      CALL GMMATS (TA(JCSID),3,3,0, U(INDEX),3,1,0, U(INDEX+3) )\r\nC\r\nC STORE TRANSFORMED VECTOR BACK INTO ITS ORIGINAL D.P. LOCATION\r\nC\r\n      U(INDEX  ) = U(INDEX+3)\r\n      U(INDEX+1) = U(INDEX+4)\r\n      U(INDEX+2) = U(INDEX+5)\r\n  190 IF (IPASS .EQ. 2) GO TO 192\r\n      IPASS = 2\r\n      BASIC  = ABASIC\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      JCSID  = 1\r\n      INDEX  = 1\r\n      GO TO 184\r\nC\r\nC FORM THE DIFFERENCE OF THE TRANSLATIONAL COMPONENTS OF THE TRANSFORMED\r\nC DISPLACEMENT VECTORS\r\nC\r\n  192 DO 194 I = 1,3\r\n  194 U(I+12) = U(I+12) - U(I)\r\nC\r\nC FORM DOT PRODUCT\r\nC\r\n      CALL GMMATS (VECI,3,1,1, U(13),3,1,0, D(1) )\r\nC\r\nC CALCULATE THE INCREMENTAL ELEMENT STRAIN\r\nC\r\n      DEPS1 = D(1) / L\r\nC\r\nC PERFORM EXTENSIONAL STRAIN CALCULATIONS\r\nC\r\n      DEPS2  = EPSIN2 - EPSIN1\r\n      EPS1   = EPSIN2 + DEPS1\r\n      EPS2 = EPSIN2 + (DEPS1 + GAMMAS**2 * DEPS2)* (GAMMA + 1.0E0)\r\n     1                /(GAMMAS + 1.0E0)\r\n     2              + GAMMAS * (DEPS1 - GAMMAS*DEPS2) * (GAMMA+1.0E0)**2\r\n     3                /(GAMMAS + 1.0E0)\r\nC\r\nC CALL MAT ROUTINE TO GET SIGMA1 AND SIGMA2 AS FUNCTIONS OF EPS1,EPS2\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      CALL MAT (IECPT(1))\r\n      E SUB 0 L = E SUB 0\r\n      G SUB 0 L = G SUB 0\r\n      MATFLG = 6\r\n      PLAARG = EPS1\r\n      CALL MAT (IECPT(1))\r\n      SIGMA1 = PLAANS\r\n      PLAARG = EPS2\r\n      CALL MAT (IECPT(1))\r\n      SIGMA2 = PLAANS\r\nC\r\nC NOTE THAT E1 IS USED IN THIS ROUTINE ONLY TO UPDATE THE EST (ECPT)\r\nC ENTRY\r\nC\r\n      IF (EPS1 .EQ. EPS2) GO TO 200\r\n      E1 = (SIGMA2 - SIGMA1) / (EPS2 - EPS1)\r\n      GO TO 202\r\n  200 E1 = ESTAR\r\nC\r\nC BEGIN ELEMENT STRESS MATRIX CALCULATIONS.\r\nC\r\n  202 E = ESTAR\r\n      G = ESTAR * G SUB 0 L / E SUB 0 L\r\n      EI1  = E * I1\r\n      EI2  = E * I2\r\n      IF (K1 .EQ. 0.0  .OR.  I12 .NE. 0.0) GO TO 210\r\n      GAK1 = G * A * K1\r\n      R1 = (12.0 * EI1 * GAK1) / (GAK1 * LCUBE + 12.0 * L * EI1)\r\n      GO TO 220\r\n  210 R1 =  12.0 * EI1 / LCUBE\r\n  220 IF (K2 .EQ. 0.0  .OR.  I12 .NE. 0.0) GO TO 230\r\n      GAK2 = G * A * K2\r\n      R2 = (12.0 * EI2 * GAK2) / (GAK2 * LCUBE + 12.0 * L * EI2)\r\n      GO TO 240\r\n  230 R2 =  12.0 * EI2 / LCUBE\r\nC\r\nC COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4\r\nC\r\n  240 SK1 = 0.25 * R1 * LSQ  +  EI1 / L\r\n      SK2 = 0.25 * R2 * LSQ  +  EI2 / L\r\n      SK3 = 0.25 * R1 * LSQ  -  EI1 / L\r\n      SK4 = 0.25 * R2 * LSQ  -  EI2 / L\r\nC\r\nC COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      AEL = A * E / L\r\n      LR1 = L * R1 / 2.0\r\n      LR2 = L * R2 / 2.0\r\n      GJL = G * FJ / L\r\nC\r\nC CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(I) = 0.0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.0) GO TO 255\r\n      BETA = 12.0 * E * I12 / LCUBE\r\n      LB   = L * BETA / 2.0\r\n      L2B3 = LSQ * BETA / 3.0\r\n      L2B6 = LSQ * BETA / 6.0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\nC\r\nC DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  255 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA .EQ. 0  .AND.  KB .EQ. 0) GO TO 325\r\nC\r\nC SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA / 10\r\n  260 KB = KB / 10\r\nC\r\nC ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13 * IPIN(I)  -  12\r\n      IF (KE(II) .NE. 0.0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0\r\n      KE(IL) = 0.0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI  = 12 * (J-1) + IPIN(I)\r\n      IJ = 12 * (IPIN(I) - 1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12 * (J-1) + LL\r\n      ILL = 12 * (IPIN(I) - 1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II)) * KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ) = 0.0\r\n      KEP(JI) = 0.0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC        E\r\nC STORE K   IN KEP(1),...,KEP(36) AND\r\nC        AA\r\nC\r\nC        E\r\nC STORE K   IN KEP(37),...,KEP(72)\r\nC        AB\r\nC\r\n  325 J = 0\r\n      DO 340 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J) = KE(K)\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC                                                        T\r\nC STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A.\r\nC\r\n      BASIC = ABASIC\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      IWBEG  = 0\r\n      IKEL   = 1\r\n      IAB = 1\r\n      INDEX = ISILNO(1)\r\nC\r\nC ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W  AND W  6 X 6\r\nC MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0\r\nC\r\nC SET UP THE -G- MATRIX.  IG POINTS TO THE BEGINNING OF THE G MATRIX.\r\nC G = AT X TI\r\nC\r\n  360 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL TRANSS (ECPT(JCSID),KE(10))\r\n      CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19) )\r\n      IG = 19\r\nC\r\nC IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X3 MATRIX.\r\nC\r\n  370 IF ( .NOT. OFFSET ) GO TO 380\r\n      KE(10) = 0.0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) = 0.0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) = 0.0\r\nC\r\nC FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28) )\r\nC\r\nC\r\nC FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC           A                B\r\nC UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE STORED\r\nC IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO, WILL BE\r\nC STORED IN THE UPPER RIGHT CORNER.\r\nC\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF ( .NOT. OFFSET ) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC\r\nC                          E                      E\r\nC FORM THE PRODUCT  S  =  K    X  W   OR  S   = K    X  W  , DEPENDING\r\nC                    A     AA      A       B     AB      B\r\nC UPON WHICH POINT WE ARE WORKING WITH.\r\nC\r\n  390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB) )\r\nC\r\nC IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED.  IF NOT,\r\nC SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B.\r\nC\r\n      IF (IWBEG .EQ. 36) GO TO 500\r\n      BASIC = BBASIC\r\n      JCSID = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IWBEG  = 36\r\n      IKEL   = 37\r\n      IAB = 37\r\n      INDEX  = ISILNO(2)\r\n      DO 400 I = 28,36\r\n  400 KE(I) = 0.0\r\n      GO TO 360\r\nC\r\nC COMPUTE FORCES AND MOMENTS FROM  S   AND   S   AND DISPLACEMENT\r\nC                                   A         B\r\nC VECTORS\r\nC\r\n  500 CALL GMMATS (SA,6,6,0, UAIN,6,1,0, FA)\r\n      CALL GMMATS (SB,6,6,0, UBIN,6,1,0, FB)\r\n      FX = A * SIGMA1\r\n      V1  = -FA(2) - FB(2) + V1STAR\r\n      V2  = -FA(3) - FB(3) + V2STAR\r\n      T   = -FA(4) - FB(4) + TSTAR\r\n      M2A =  FA(5) + FB(5) + M2ASTR\r\n      M1A = -FA(6) - FB(6) + M1ASTR\r\n      M1B = M1A - V1*L\r\n      M2B = M2A - V2*L\r\nC*****\r\nC COMPUTE ELEMENT STRESSES AT 4 POINTS\r\nC*****\r\nC\r\nC COMPUTE K1A AND K2A\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 530\r\n      IF (I1 .NE. 0.0) GO TO 520\r\n      K1A = 0.0\r\n      GO TO 540\r\n  520 K1A = -M1A / I1\r\n      GO TO 540\r\n  530 K1A = (M2A * I12  -  M1A * I2) / (I1 * I2  -  I12**2)\r\n      K2A = (M1A * I12  -  M2A * I1) / (I1 * I2  -  I12**2)\r\n      GO TO 560\r\n  540 IF (I2 .NE. 0.0) GO TO 550\r\n      K2A = 0.0\r\n      GO TO 560\r\n  550 K2A = -M2A / I2\r\nC\r\nC COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A\r\nC\r\n  560 SIG1A = K1A * C1  +  K2A * C2\r\n      SIG2A = K1A * D1  +  K2A * D2\r\n      SIG3A = K1A * F1  +  K2A * F2\r\n      SIG4A = K1A * G1  +  K2A * G2\r\nC\r\nC COMPUTE K1B AND K2B\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 580\r\n      IF (I1 .NE. 0.0) GO TO 570\r\n      K1B = 0.0\r\n      GO TO 590\r\n  570 K1B = -M1B / I1\r\n      GO TO 590\r\n  580 K1B = (M2B * I12  -  M1B * I2) / (I1 * I2  -  I12**2)\r\n      K2B = (M1B * I12  -  M2B * I1) / (I1 * I2  -  I12**2)\r\n      GO TO 610\r\n  590 IF (I2 .NE. 0.0) GO TO 600\r\n      K2B = 0.0\r\n      GO TO 610\r\n  600 K2B = -M2B / I2\r\nC\r\nC COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B\r\nC\r\n  610 SIG1B = K1B * C1  +  K2B * C2\r\n      SIG2B = K1B * D1  +  K2B * D2\r\n      SIG3B = K1B * F1  +  K2B * F2\r\n      SIG4B = K1B * G1  +  K2B * G2\r\nC\r\nC COMPUTE AXIAL STRESS\r\nC\r\n      SIGAX = 0.0\r\n      IF (A .NE. 0.0) SIGAX = FX / A\r\nC\r\nC COMPUTE MAXIMA AND MINIMA\r\nC\r\n      SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMX = SIGAX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B)\r\n      SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMN = SIGAX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B)\r\nC\r\nC COMPUTE MARGIN OF SAFETY IN TENSION\r\nC\r\n      IF(SIGMAT.LE.0.0)GO TO 620\r\n      IF(AMAX1(SIGAMX,SIGBMX).LE.0.0) GO TO 620\r\n      Q=SIGMAT/AMAX1(SIGAMX,SIGBMX)\r\n      SMTEN=Q-1.0\r\n      GO TO 630\r\n  620 MSTEN=1\r\nC\r\nC      COMPUTE MARGIN OF SAFETY IN COMPRESSION\r\nC\r\n  630 SIGMAC=-ABS(SIGMAC)\r\n      IF(AMIN1(SIGAMN,SIGBMN).GE.0.0) GO TO 640\r\n      W=SIGMAC/AMIN1(SIGAMN,SIGBMN)\r\n      SMCOM=W-1.0\r\n      GO TO 650\r\n  640 MSCOM=1\r\n  650 ISELID = IELID\r\nC\r\nC UPDATE EST (ECPT) ENTRIES\r\nC\r\n      EPSIN1 = EPSIN2\r\n      EPSIN2 = EPS1\r\n      ESTAR  = E1\r\n      V1STAR = V1\r\n      V2STAR = V2\r\n      TSTAR  = T\r\n      M1ASTR = M1A\r\n      M2ASTR = M2A\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psqad1.f",
    "content": "      SUBROUTINE PSQAD1\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD1 CALCULATIONS IN\r\nC  PLA3\r\nC\r\nC     ECPT  FOR  QUAD1\r\nC\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  GRID D\r\nC  6  THETA\r\nC  7  MATID1\r\nC  8  T1\r\nC  9  MATID2\r\nC 10  I\r\nC 11  MATID3\r\nC 12  T2\r\nC 13  MS MASS\r\nC 14  Z1\r\nC 15  Z2\r\nC 16  CSID 1\r\nC 17  X1\r\nC 18  Y1\r\nC 19  Z1\r\nC 20  CSID 2\r\nC 21  X2\r\nC 22  Y2\r\nC 23  Z2\r\nC 24  CSID 3\r\nC 25  X3\r\nC 26  Y3\r\nC 27  Z3\r\nC 28  CSID 4\r\nC 29  X4\r\nC 30  Y4\r\nC 31  Z4\r\nC 32  TEMP\r\nC 33  EPS0\r\nC 34  EPSS\r\nC 35  ESTAR\r\nC 36  SIGXS\r\nC 37  SIGYS\r\nC 38  SIGXYS\r\nC 39  MXS\r\nC 40  MYS\r\nC 41  MXYS\r\nC 42  VXS\r\nC 43  VYS\r\nC 44  U(A) (6X1)\r\nC 50  U(B) (6X1)\r\nC 56  U(C) (6X1)\r\nC 62  U(D) (6X1)\r\nC\r\nC     ******************************************************************\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(32), NECPTS(32)\r\nC\r\n      COMMON /PLA32E/ ECPT(32),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1      FORVEC(5),  UI(24),  DUMMY(33)\r\n      COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200)\r\n      COMMON /PLA3UV/  IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 7\r\n      NECPTS(4) = 13\r\n      NECPTS(5) = 19\r\nC\r\n      CALL PSTQ1(3)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\n      I201 = 201\r\n      ECPTSA(I201) = ECPT(1)\r\n      DO 75 I=1,5\r\n   75 ECPTSA(I+201) = FORVEC(I)\r\nC\r\n      CALL PSTQ2 (4)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\nC\r\nC     NEW FORCES ARE IN  /PLA3ES/ AT LOCATIONS 202-206\r\nC\r\n      DO 76 I=1,5\r\n   76 FORVEC(I)   = ECPTSA(I+201)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psqad2.f",
    "content": "      SUBROUTINE PSQAD2\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD2 CALCULATIONS IN\r\nC  PLA3\r\nC\r\nC     ECPT FOR QUAD2\r\nC\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  GRID D\r\nC  6  THETA\r\nC  7  MAT ID\r\nC  8  T\r\nC  9  MS MASS\r\nC 10  CSID 1\r\nC 11  X1\r\nC 12  Y1\r\nC 13  Z1\r\nC 14  CSID 2\r\nC 15  X2\r\nC 16  Y2\r\nC 17  Z2\r\nC 18  CSID 3\r\nC 19  X3\r\nC 20  Y3\r\nC 21  Z3\r\nC 22  CSID 4\r\nC 23  X4\r\nC 24  Y4\r\nC 25  Z4\r\nC 26  TEMP\r\nC 27  EPS0\r\nC 28  EPSS\r\nC 29  ESTAR\r\nC 30  SIGXS\r\nC 31  SIGYS\r\nC 32  SIGXXS\r\nC 33  MXS\r\nC 34  MYS\r\nC 35  MXYS\r\nC 36  VXS\r\nC 37  VYS\r\nC 38  U(A) (6X1)\r\nC 44  U(B) (6X1)\r\nC 50  U(C) (6X1)\r\nC 56  U(D) (6X1)\r\nC\r\nC     ******************************************************************\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(26), NECPTS(26)\r\nC\r\n      COMMON /PLA32E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1     FORVEC(5), UI(24),  DUMMY(39)\r\n      COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200)\r\n      COMMON /PLA3UV/  IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 7\r\n      NECPTS(4) = 13\r\n      NECPTS(5) = 19\r\nC\r\n      CALL PSTQ1(4)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\n      I201 = 201\r\n      ECPTSA(I201) = ECPT(1)\r\n      DO 75 I=1,5\r\n   75 ECPTSA(I+201) = FORVEC(I)\r\nC\r\n      CALL PSTQ2(4)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\nC\r\nC     NEW FORCES ARE IN  /PLA3ES/ AT LOCATIONS 202-206\r\nC\r\n      DO 76 I=1,5\r\n   76 FORVEC(I)   = ECPTSA(I+201)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psqdm.f",
    "content": "       SUBROUTINE PSQDM\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE QUAD-MEMBRANE CALCULATIONS IN\r\nC  PLA3\r\nC\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = GRID POINT D                        NGRID(4)  INTEGER\r\nC       ECPT( 6) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 7) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 8) = T                                   T         REAL\r\nC       ECPT( 9) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT(10) = COORD. SYSTEM ID 1                  NECPT(10) INTEGER\r\nC       ECPT(11) = X1                                  X1        REAL\r\nC       ECPT(12) = Y1                                  Y1        REAL\r\nC       ECPT(13) = Z1                                  Z1        REAL\r\nC       ECPT(14) = COORD. SYSTEM ID 2                  NECPT(14) INTEGER\r\nC       ECPT(15) = X2                                  X2        REAL\r\nC       ECPT(16) = Y2                                  Y2        REAL\r\nC       ECPT(17) = Z2                                  Z2        REAL\r\nC       ECPT(18) = COORD. SYSTEM ID 3                  NECPT(18) INTEGER\r\nC       ECPT(19) = X3                                  X3        REAL\r\nC       ECPT(20) = Y3                                  Y3        REAL\r\nC       ECPT(21) = Z3                                  Z3        REAL\r\nC       ECPT(22) = COORD. SYSTEM ID 4                  NECPT(22) INTEGER\r\nC       ECPT(23) = X4                                  X4        REAL\r\nC       ECPT(24) = Y4                                  Y4        REAL\r\nC       ECPT(25) = Z4                                  Z4        REAL\r\nC       ECPT(26) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC       ECPT(27) = STRAIN (MINUS ONE)                  EPS0      REAL\r\nC       ECPT(28) = STRAIN (PRESENT)                    EPSS      REAL\r\nC       ECPT(29) = MODULUS OF ELASTICITY               ESTAR     REAL\r\nC       ECPT(30) = STRESS SUB X                        SIGXS     REAL\r\nC       ECPT(31) = STRESS SUB Y                        SIGYS     REAL\r\nC       ECPT(32) = STRESS SUB XY                       SIGXYS    REAL\r\nC       ECPT(33) = DISPLACEMENT VECTOR   A1            UI(1)     REAL\r\nC       ECPT(34) = DISPLACEMENT VECTOR   A2            UI(2)     REAL\r\nC       ECPT(35) = DISPLACEMENT VECTOR   A3            UI(3)     REAL\r\nC       ECPT(36) = DISPLACEMENT VECTOR   B1            UI(4)     REAL\r\nC       ECPT(37) = DISPLACEMENT VECTOR   B2            UI(5)     REAL\r\nC       ECPT(38) = DISPLACEMENT VECTOR   B3            UI(6)     REAL\r\nC       ECPT(39) = DISPLACEMENT VECTOR   C1            UI(7)     REAL\r\nC       ECPT(40) = DISPLACEMENT VECTOR   C2            UI(8)     REAL\r\nC       ECPT(41) = DISPLACEMENT VECTOR   C3            UI(9)     REAL\r\nC       ECPT(42) = DISPLACEMENT VECTOR   D1            UI(10)    REAL\r\nC       ECPT(43) = DISPLACEMENT VECTOR   D2            UI(11)    REAL\r\nC       ECPT(44) = DISPLACEMENT VECTOR   D3            UI(12)    REAL\r\nC\r\nC     ******************************************************************\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(26), NECPTS(26)\r\nC\r\n      COMMON /PLA32E/ ECPT(26),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1              UI(12),DUMMY(56)\r\n      COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200)\r\n      COMMON /PLA3UV/  IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9), MIDGP   , ELID\r\nC\r\n      EQUIVALENCE (NECPT(7),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS),\r\n     1            (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\n      NECPTS(5) = 10\r\nC\r\n      CALL PSQDM1\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PSTRQ2(2)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psqdm1.f",
    "content": "      SUBROUTINE PSQDM1\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR THE QUAD-MEMBRAND IN\r\nC   PLA3\r\nC\r\n      REAL IVEC,JVEC,KVEC\r\n      INTEGER NECPT(100)\r\n      DIMENSION M(12),R(6),NGRID(4),COORD(16),S(27)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA32S/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3),\r\n     1 A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H,V(8),ECPTSA(36),\r\n     2 ST(3),NCOORD,NPOINT,NSUB1,NSUB2,NSUB3,T(9),COSANG,SINANG,U1,U2,\r\n     3  THETA, DUMY(85)\r\n      COMMON /PLA3ES/ ECPT(100),PH1OUT(200)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (NECPT(1),ECPT(1))\r\n      EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)),\r\n     1   (COORD(1),ECPTSA(10))  ,  (S(1),PH1OUT(10))\r\nC\r\n      DATA  M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         SQDME1                     STRME1\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4    NOTE. THE FOLLOWING ARE INTEGERS...\r\nC     ECPT(23) = X4                  GRID POINTS, MAT ID, EL.ID,\r\nC     ECPT(24) = Y4                  COORD. SYS. IDS.\r\nC     ECPT(25) = Z4                  ALL OTHERS ARE REAL IN THE ECPT.\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ******************************************************************\r\nC\r\nC\r\nC     VECTORS D1 AND D2  FMMS-46 PAGE 6\r\nC     A1 A2 A3 A4\r\nC\r\n      DO 10 I=1,3\r\n      D1(I) = ECPT(I + 18) - ECPT(I + 10)\r\n      D2(I) = ECPT(I + 22) - ECPT(I + 14)\r\n      A1(I) = ECPT(I + 14) - ECPT(I + 10)\r\n      A2(I) = ECPT(I + 18) - ECPT(I + 14)\r\n      A3(I) = ECPT(I + 22) - ECPT(I + 18)\r\n   10 A4(I) = ECPT(I + 10) - ECPT(I + 22)\r\nC\r\nC     K-VECTOR = NORMALIZED D1 CROSS D2\r\nC\r\n      KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2)\r\n      KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3)\r\n      KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1)\r\n      VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 )\r\n      IF(VECL.LT.1.0E-06) CALL MESAGE(-30,26,ECPT(1))\r\n      KVEC(1) = KVEC(1)/VECL\r\n      KVEC(2) = KVEC(2)/VECL\r\n      KVEC(3) = KVEC(3)/VECL\r\nC\r\nC     I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR\r\nC     GET H FIRST = ( A SUB 12 DOT KVECTOR)/2\r\nC\r\n      H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0\r\nC\r\n      IVEC(1) = A1(1) - H * KVEC(1)\r\n      IVEC(2) = A1(2) - H * KVEC(2)\r\n      IVEC(3) = A1(3) - H * KVEC(3)\r\n      VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 )\r\n      IF( VECL .LT. 1.0E-06) CALL MESAGE(-30,26,ECPT(1))\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\nC\r\nC     J-VECTOR = K CROSS I\r\nC\r\n      JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2)\r\n      JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3)\r\n      JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1)\r\nC\r\n      VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2)\r\n      JVEC(1) = JVEC(1)/VECL\r\n      JVEC(2) = JVEC(2)/VECL\r\n      JVEC(3) = JVEC(3)/VECL\r\nC\r\n      THETA = ECPT(6) * DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\n      V(1) = 1.0E0\r\n      V(2) = 0.0E0\r\nC\r\nC     R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR\r\nC\r\n      CALL GMMATS(R,2,3,0,  A2,3,1,0,  V(3))\r\n      CALL GMMATS(R,2,3,0,  A3,3,1,0,  V(5))\r\n      CALL GMMATS(R,2,3,0,  A4,3,1,0,  V(7))\r\nC\r\nC     NORMALIZE THE 4 2X1 V ARRAYS\r\nC\r\n      DO 20 I=1,4\r\n      VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 )\r\n      IF(VECL .LT. 1.0E-10) CALL MESAGE(-30,26,ECPT(1))\r\n      V(2*I-1) = V(2*I-1)/VECL\r\n   20 V(2*I  ) = V(2*I  )/VECL\r\nC\r\nC     MAPPING MATRIX M IS IN DATA STATEMENT.\r\nC\r\nC     NOW MAKE 4 CALLS TO PSTRM1 WHICH WILL RETURN\r\nC     S , S , S , S , T SUB 0\r\nC      A   B   C   T\r\nC\r\nC     SAVE GRID SILS AND COORDINATE SYSTEMS.\r\nC\r\n      DO 30 I=1,36\r\n   30 ECPTSA(I) = ECPT(I)\r\nC\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)\r\n      ECPT(8) = ECPT(9)\r\nC\r\nC     ZERO OUT SUM MATRICES\r\nC\r\n      DO 40 I=1,36\r\n   40 SUM(I) = 0.0E0\r\n      ST(1) = 0.0E0\r\n      ST(2) = 0.0E0\r\n      ST(3) = 0.0E0\r\nC\r\n      DO 90 I=1,4\r\nC\r\nC     POINTER TO THE SILS IN THE MAPPING MATRIX\r\n      NCOORD = 8\r\n      NPOINT = 3*I-3\r\n      DO 60 J=2,4\r\n      NPOINT = NPOINT + 1\r\n      NSUB1 = M(NPOINT)\r\n      DO 50 K=1,4\r\n      NSUB3 = 4*NSUB1 - 4 + K\r\n      NCOORD = NCOORD + 1\r\n   50 ECPT(NCOORD) = COORD(NSUB3)\r\n   60 NECPT(J) = NGRID( NSUB1 )\r\nC\r\nC     SET UP T MATRIX FOR THIS TRIANGLE.  T IS 3X3\r\nC\r\n      U1 = V(2*I-1)\r\n      U2 = V(2*I  )\r\nC\r\n      T(1) = U1 ** 2\r\n      T(2) = U2 ** 2\r\n      T(7) = U1 * U2\r\n      T(3) = -2.0E0 * T(7)\r\n      T(4) = T(2)\r\n      T(5) = T(1)\r\n      T(6) = -T(3)\r\n      T(8) = -T(7)\r\n      T(9) = T(1) - T(2)\r\nC\r\nC     COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY\r\nC\r\n      SINTH = SINANG * U1 - COSANG * U2\r\n      COSTH = COSANG * U1 + SINANG * U2\r\nC\r\n      CALL PSTRM1(1)\r\nC\r\nC\r\nC     NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM\r\nC     MATRICES.\r\nC\r\n      DO 80 J=1,3\r\nC\r\nC     POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX\r\nC\r\n      NPOINT = 3*I-3\r\nC\r\nC     TRANSFORM S\r\nC\r\n      CALL GMMATS( T,3,3,0,  S(9*J-8),3,3,0,  STEMP )\r\nC\r\nC     ADD STEMP INTO RESPECTIVE KSUM POSITIONS\r\nC\r\nC     ZERO POINTER INTO KSUM MATRICES\r\n      NSUB1 = NPOINT + J\r\n      NSUB1 = M(NSUB1)*9 - 9\r\n      DO 70 K=1,9\r\n      NSUB1 = NSUB1 + 1\r\n   70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K)\r\n   80 CONTINUE\r\n   90 CONTINUE\r\nC\r\nC     ALL MATRICES COMPLETE\r\nC\r\nC     FILL OUTPUT BLOCK\r\nC\r\n      DO 100 I=1,5\r\n  100 PH1OUT(I) = ECPTSA(I)\r\n      DO 110 I=1,36\r\n  110 PH1OUT(I+9) = 0.25E0 * SUM(I)\r\nC     PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psqpl1.f",
    "content": "      SUBROUTINE PSQPL1\r\nC\r\nC     THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3\r\nC     FOR  THE QUAD-PLATE PART OF COMBINATION ELEMENTS\r\nC\r\nC     PHASE I OF STRESS DATA RECOVERY FOR TRI OR QUAD PLATE.\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING.\r\nC\r\nC     1) ELEMENT ID\r\nC     2) 4 SILS\r\nC     3) I\r\nC     4) Z1 AND Z2\r\nC     5) 4  5X6 S-SUB-I ARRAYS\r\nC     THUS, 128 WORDS FOR QUAD-PLATE\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.-----TYPE       QUAD.PLT.---------TYPE\r\nC     ========   ==============     =======    ==============    =======\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB,SUBSCC\r\n      REAL            IVECT,JVECT,KVECT\r\n      DIMENSION       NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3),\r\n     1                REQUIV(10)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA3ES/ ECPT(100),PH1OUT(200)\r\n      COMMON /PLA32S/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25),\r\n     1                D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG,\r\n     2                SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP,\r\n     3                VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3),\r\n     4                JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC,\r\n     5                SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC,\r\n     6                SPDUM6(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)),\r\n     1                (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)),\r\n     2                (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)),\r\n     3                (REQUIV(1),R(1,1))\r\n      DATA    M     / 2,4,1,  3,1,2,  4,2,3,  1,3,4/\r\nC\r\n      THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,10\r\n   10 REQUIV(I) = 0.0\r\nC\r\nC     SHIFT ECPT UP TO MATCH PSTRB1 FOR CERTAIN VARIABLES.\r\nC\r\n      DO 30 I = 6,12\r\n   30 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 40 I = 1,3\r\n      D1(I) = VQ3(I) - VQ1(I)\r\n      D2(I) = VQ4(I) - VQ2(I)\r\n   40 A1(I) = VQ2(I) - VQ1(I)\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 50 I = 1,3\r\n   50 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT)/2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0\r\nC\r\nC     I-VECTOR =(A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 60 I = 1,3\r\n   60 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      DO 70 I = 1,3\r\n   70 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 80 I = 1,3\r\n   80 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION.\r\nC\r\n      FTEMP = R(1,3)*R(2,4) + R(2,3)*(R(1,2) - R(1,4))\r\n      IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1))\r\n      R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP\r\n      R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90\r\n      TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 90\r\n      TEMP = R(2,3)*R(1,4)/R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 100\r\n   90 CALL MESAGE (-30,35,ECPT(1))\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT...\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n  100 DO 110 I = 1,60\r\n  110 SSUM(I) = 0.0\r\nC\r\n      DO 160 J = 1,4\r\n      KM     = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 120 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1     = VV1(1)/XSUBB\r\n      U2     = VV1(2)/XSUBB\r\n      XSUBC  = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC  = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2)\r\n      YC = 0.0\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J-\r\nC\r\n      CALL PSTRB1 (1)\r\nC\r\nC     RETURNING FROM PSTRB1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S , S , S , EACH 5X3.   45 WORDS STORED IN A(1) THRU A(45)\r\nC        A   B   C\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1*0.25\r\n      V( 2) = U2*U2*0.25\r\n      V(11) = U1*U2*0.25\r\n      V( 3) =-V(11)*2.00\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1*0.25\r\n      V(20) =-U2*0.25\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 150 I = 1,3\r\n      CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15)\r\n      CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15)\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 140 K = 1,15\r\n      NSUBC  = NPOINT + K\r\n  140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  150 CONTINUE\r\nC\r\n  160 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 170 I = 1,18\r\n  170 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\n      DO 210 I = 1,4\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 10\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 180\r\n      CALL TRANSS (NECPT(NSUBC),T)\r\n      CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 200\r\nC\r\n  180 DO 190 K = 1,18\r\n  190 TITE(K) = E(K)\r\nC\r\n  200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21))\r\nC\r\n  210 CONTINUE\r\nC\r\nC     I, Z1, Z2, ELEM ID, 4 SILS FOR PHASE 2\r\nC\r\n      PH1OUT(1) = ECPT( 1)\r\n      PH1OUT(2) = ECPT( 2)\r\n      PH1OUT(3) = ECPT( 3)\r\n      PH1OUT(4) = ECPT( 4)\r\n      PH1OUT(5) = ECPT( 5)\r\n      PH1OUT(6) = ECPT( 7)\r\n      PH1OUT(7) = ECPT(11)\r\n      PH1OUT(8) = ECPT(12)\r\nC\r\nC     ALL PHASE ONE COMPLETE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psrod.f",
    "content": "      SUBROUTINE PSROD\r\nC*****\r\nC THIS ROUTINE COMPUTES STRESSES AND FORCES FOR THE ROD ELEMENT FOR THE\r\nC PLA3 FUNCTIONAL MODULE.\r\nC*****\r\nC\r\nC                        E C P T  F O R  T H E  R O D\r\nC\r\nC                                                                CARD\r\nC                                                 TYPE   TABLE   TYPE\r\nC ECPT( 1)ELEMENT ID.                               I     ECT    CROD\r\nC ECPT( 2)SCALAR INDEX NUMBER FOR GRID POINT A      I     ECT    CROD\r\nC ECPT( 3)SCALAR INDEX NUMBER FOR GRID POINT B      I     ECT    CROD\r\nC ECPT( 4)MATERIAL ID.                              I     EPT    PROD\r\nC ECPT( 5)AREA  (A)                                 R     EPT    PROD\r\nC ECPT( 6)POLAR MOMENT OF INERTIA (J)               R     EPT    PROD\r\nC ECPT( 7) TORSIONAL STRESS COEFF (C)                R    EPT    PROD\r\nC ECPT( 8) NON-STRUCTRAL MASS (MU)                   R    EPT    PROD\r\nC ECPT( 9) COOR. SYS. ID. NO. FOR GRID POINT A       I   BGPDT   GRID\r\nC ECPT(10) X-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(11) Y-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(12) Z-COORDINATE OF GRID PT. A (IN BASIC COOR)R   BGPDT\r\nC ECPT(13) COOR. SYS. ID. NO. FOR GRID POINT B       I   BGPDT\r\nC ECPT(14) X-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(15) Y-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(16) Z-COORDINATE OF GRID PT. B (IN BASIC COOR)R   BGPDT\r\nC ECPT(17) ELEMENT TEMPERATURE\r\nC ECPT(18) PREVIOUS STRAIN VALUE, ONCE REMOVED (EPS STAR SUB 0)\r\nC ECPT(19) PREVIOUS STRAIN VALUE  (EPS STAR)\r\nC ECPT(20) PREVIOUSLY COMPUTED VALUE OF MODULUS OF ELASTICITY (ESTAR)\r\nC ECPT(21) PREVIOUSLY COMPUTED TORSIONAL MOMENT (TSTAR)\r\nC ECPT(22) INCREMENTAL DISPLACEMENT VECTOR FOR GRID POINT A\r\nC ECPT(23)                       ...\r\nC ECPT(24)                       ...\r\nC ECPT(25)                       ...\r\nC ECPT(26)                       ...\r\nC ECPT(27)                       ...\r\nC ECPT(28) INCREMENTAL DISPLACEMENT VECTOR FOR GRID POINT B\r\nC ECPT(29)                       ...\r\nC ECPT(30)                       ...\r\nC ECPT(31)                       ...\r\nC ECPT(32)                       ...\r\nC ECPT(33)                       ...\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   ECPT(100)          ,IECPT(100)\r\n     2,                  XN(3)              ,UA(9)\r\n     3,                  UB(9)              ,DIFF(3)\r\n     4,                  TA(9)              ,TB(9)\r\nC\r\nC EST (ECPT) COMMON BLOCK\r\nC\r\n      COMMON   /PLA32E/\r\n     1                   ECPT\r\nC\r\nC SCRATCH BLOCK FOR VARIABLES LOCAL TO PLA3 ELEMENT ROUTINES.\r\nC\r\n      COMMON   /PLA32S/\r\n     1                   XL                 ,XN\r\n     2,                  UA                 ,UB\r\n     3,                  TA                 ,TB\r\n     4,                  DIFF\r\nC\r\nC PLA32 COMMUNICATION BLOCK\r\nC\r\n      COMMON   /PLA32C/  GAMMA              ,GAMMAS\r\nC\r\nC OUTPUT BLOCK FOR ELEMENT STRESSES\r\nC\r\n      COMMON   /SOUT  /\r\n     1                   JSELID             ,SIGMA\r\n     2,                  SMSIG              ,TAU\r\n     3,                  SMTAU\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  TEMDUM             ,PLAARG\r\n     3,                  DUM2(2)\r\nC\r\nC\r\nC\r\n      COMMON   /MATOUT/\r\n     1                   E SUB 0            ,G SUB 0\r\n     2,                  MATDUM(5)          ,SIGMAT\r\n     3,                  SIGMAC             ,SIGMAS\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (IECPT(1),ECPT(1)) ,(E SUB 0,PLAANS)\r\n     2,                  (SMSIG,MSSIG)      ,(SMTAU,MSTAU)\r\nC\r\nC CALL MAT ROUTINE TO GET MATERIAL PROPERTIES AND STORE IN LOCAL NAMES.\r\nC\r\n      MATIDC = IECPT(4)\r\n      MATFLG = 1\r\n      CALL MAT (IECPT(1))\r\n      E SUB 0 L = E SUB 0\r\n      G SUB 0 L = G SUB 0\r\nC\r\nC SET UP VECTOR ALONG THE ROD, COMPUTE LENGTH AND NORMALIZE\r\nC\r\n      XN(1) = ECPT(10) - ECPT(14)\r\n      XN(2) = ECPT(11) - ECPT(15)\r\n      XN(3) = ECPT(12) - ECPT(16)\r\n      XL    =  XN(1)**2 + XN(2)**2 + XN(3)**2\r\n      XL    = SQRT (XL)\r\n      XN(1) = XN(1) / XL\r\n      XN(2) = XN(2) / XL\r\n      XN(3) = XN(3) / XL\r\nC\r\nC STORE DISPLACEMENT VECTORS IN LOCAL VARIABLES\r\nC\r\n      DO 10 I = 1,6\r\n      UA(I) = ECPT(I+21)\r\n   10 UB(I) = ECPT(I+27)\r\nC\r\nC TRANSFORM DISPLACEMENT VECTOR TRANSLATIONAL COMPONENTS IF NECESSARY\r\nC\r\n      IBASEA = 0\r\n      IF (IECPT(9) .EQ. 0) GO TO 20\r\n      IBASEA = 6\r\n      CALL TRANSS (IECPT(9),TA)\r\n      CALL GMMATS (TA,3,3,0, UA(1),3,1,0, UA(7))\r\n   20 IBASEB = 0\r\n      IF (IECPT(13) .EQ. 0) GO TO 30\r\n      IBASEB = 6\r\n      CALL TRANSS (IECPT(13),TB)\r\n      CALL GMMATS (TB,3,3,0, UB(1),3,1,0, UB(7))\r\nC\r\nC FORM DIFFERENCE VECTOR, DOT PRODUCT AND INCREMENT OF STRAIN\r\nC\r\n   30 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1)\r\n      DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2)\r\n      DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3)\r\n      CALL GMMATS (XN,3,1,1, DIFF,3,1,0, TERM)\r\n      DEPS1 = TERM / XL\r\n      EPSIN2 = ECPT(19)\r\n      EPSIN1 = ECPT(18)\r\n      DEPS2 = EPSIN2 - EPSIN1\r\nC\r\nC COMPUTE EPS1 AND EPS2 AND FETCH VIA MAT STRESSES SIGMA1 AND SIGMA2\r\nC\r\n      EPS1 = EPSIN2 + DEPS1\r\n      EPS2 = EPSIN2  +  (DEPS1+GAMMAS**2*DEPS2)*(GAMMA+1.0)/(GAMMAS+1.0)\r\n     1     + GAMMAS*(DEPS1-GAMMAS*DEPS2)*(GAMMA+1.0)**2 / (GAMMAS+1.0)\r\n      MATFLG = 6\r\n      PLAARG = EPS1\r\n      CALL MAT (IECPT(1))\r\n      SIGMA1 = PLAANS\r\n      PLAARG = EPS2\r\n      CALL MAT (IECPT(1))\r\n      SIGMA2 = PLAANS\r\n      IF (EPS1 .EQ. EPS2) GO TO 42\r\n      E = (SIGMA2 - SIGMA1) / (EPS2 - EPS1)\r\n      GO TO 44\r\n   42 E = ECPT(20)\r\n   44 G = ECPT(20) * G SUB 0 L / E SUB 0 L\r\nC\r\nC COMPUTE STRESSES\r\nC\r\n      ISELID = IECPT(1)\r\n      SIGMA  = SIGMA1\r\n      P      =  ECPT(5) * SIGMA1\r\nC\r\nC TRANSFORM DISPLACEMENT VECTOR ROTATIONAL DISPLACEMENTS IF NECESSARY.\r\nC\r\n      IBASEA = 3\r\n      IF (IECPT(9) .EQ. 0) GO TO 60\r\n      CALL GMMATS (TA,3,3,0, UA(4),3,1,0, UA(7))\r\n      IBASEA = 6\r\n   60 IBASEB = 3\r\n      IF (IECPT(13) .EQ. 0) GO TO 70\r\n      IBASEB = 6\r\n      CALL GMMATS (TB,3,3,0, UB(4),3,1,0, UB(7))\r\n   70 DIFF(1) = UA(IBASEA+1) - UB(IBASEB+1)\r\n      DIFF(2) = UA(IBASEA+2) - UB(IBASEB+2)\r\n      DIFF(3) = UA(IBASEA+3) - UB(IBASEB+3)\r\n      CALL GMMATS (XN,3,1,1, DIFF,3,1,0, TERM)\r\n      T = ECPT(6) * G * TERM / XL  +  ECPT(21)\r\n      IF (ECPT(6) .EQ. 0.0) GO TO 80\r\n      TAU = ECPT(7) * T / ECPT(6)\r\n      GO TO 90\r\n   80 TAU = 0.0\r\nC\r\nC COMPUTE MARGIN OF SAFETY IN EXTENSION\r\nC\r\n   90 IF(SIGMA.LE.0.0)GO TO 101\r\n      IF(SIGMAT.LE.0.0)GO TO 102\r\n      SMSIG=SIGMAT/SIGMA-1.0\r\n      GO TO 180\r\n  101 IF(SIGMA.NE.0.0) GO TO 103\r\n      GO TO 102\r\n  103 SIGMAC=-ABS(SIGMAC)\r\n      SMSIG=SIGMAC/SIGMA - 1.0\r\n      GO TO 180\r\n  102 MSSIG=1\r\nC\r\nC     COMPUTE MARGIN OF SAFETY IN TORSION\r\nC\r\n  180 IF(SIGMAS.LE.0.0) GO TO 190\r\n      IF(TAU.EQ.0.0)GO TO 190\r\n      SMTAU= SIGMAS/ABS(TAU) - 1.0\r\n      GO TO 210\r\n  190 MSTAU=1\r\n  210 JSELID = IECPT(1)\r\nC\r\nC UPDATE EST (ECPT) ENTRY\r\nC\r\n      ECPT(18) = ECPT(19)\r\n      ECPT(19) = EPS1\r\n      ECPT(20) = E\r\n      ECPT(21) = T\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/psta.f",
    "content": "      SUBROUTINE PSTA(DELTAY,BI,CA,ALPH,THI,AJJL)\r\n      DIMENSION A(3,3),AI(6),AJ(6),H(3,3),EK(6),G(3,3),GI(3,3),Q(3,3)\r\n      DIMENSION DELTAY(1),BI(1),CA(1),ALPH(1),THI(13)\r\n      DIMENSION P(3,6),QI(3,3)\r\n      COMPLEX PC(3)\r\n      COMMON /PACKX/ ITI,IT0,II,NN,INCR\r\n      COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,EMACH,RFK\r\n      COMMON /PSTONC/ NJJ,NMACH,NTHRY,NTHICK,NALPHA,NXIS,NTAUS,NSTRIP,\r\n     *                SECLAM\r\n      COMMON / CONDAS / PI,TWOPI,RADG,DEGRA\r\n      DATA A /9*0.0/ , H /9*0.0/\r\n      BREF = REFC * .5\r\n      RFC = RFK/BREF\r\n      II = NROW +1\r\n      NN = NROW\r\nC\r\nC     BUILD AJJL FOR EACH STRIP\r\nC\r\n      DO 200 I=1,NSTRIP\r\n      B = BI(I)\r\n      CONST = 8.0 * DELTAY(I) * (RFC * B)**2\r\n      A(1,1) = -1.0\r\n      A(2,1) = -.5 * B\r\n      A(2,2) = B\r\n      A(3,3) = B\r\n      H(1,1) = -1.0\r\n      H(1,2) = A(2,1)\r\n      H(2,2) = B\r\n      H(3,3) = B\r\n      ALPHA = ALPH(1)\r\n      IF(NALPHA.NE.1 ) ALPHA = ALPH(I)\r\n      ALPHA = ALPHA * DEGRA\r\n      ALPHA2 = ALPHA*ALPHA\r\n      N = 2\r\n      IF(CA(I) .NE. 0.0 ) N = 3\r\n      IF( NTHICK .EQ. 0 ) GO TO 20\r\n      DO 10 J=1,6\r\n      AI(J) = THI(J)\r\n      AJ(J) = 0.0\r\n      IF(N .EQ. 3 ) AJ(J) = THI(J+6)\r\n   10 CONTINUE\r\n      ZETAH = 1.0\r\n      IF( NXIS .EQ. 1 ) ZETAH = THI(13)\r\n      IF( NXIS.GT.1) ZETAH = THI(I+12)\r\n      GO TO 70\r\n   20 IF( NTAUS .NE. 1 ) GO TO 30\r\n      TAU = THI(1)\r\n      TAUH = THI(2)\r\n      TAUT = THI(3)\r\n      IF( N .EQ. 2 ) TAUT = 0.\r\n      T = TAUH-TAUT\r\n      ZETAM = THI(4)\r\n      ZETAH = THI(5)\r\n      GO TO 50\r\n   30 K = (I-1) * 3+1\r\n      TAU = THI(K)\r\n      TAUH = THI(K+1)\r\n      TAUT = THI(K+2)\r\n      IF( N .EQ. 2 ) TAUT = 0.\r\n      T = TAUH - TAUT\r\n      K = (I-1)*2+1 + 3*NSTRIP\r\n      ZETAM = THI(K)\r\n      ZETAH = THI(K+1)\r\n      DO 40 J=1,6\r\n   40 AJ(J) = 0.\r\n   50 IF(N .EQ. 2 ) ZETAH = 1.0\r\n      IF( N .EQ. 2 ) GO TO 60\r\n      AJ(1) = -.5 * T\r\n      AJ(2) = -.25*T*(1.0+ZETAH)\r\n      AJ(3) = -(1./6.)*T*(1.+ZETAH+ZETAH*ZETAH)\r\n      AJ(4) = .25*T*T/ (1.-ZETAH)\r\n      AJ(5) = .125*T*T*(1.0+ZETAH) / (1.-ZETAH)\r\n      AJ(6) = (1./12.)*T*T*(1.+ZETAH+ZETAH*ZETAH) / (1.-ZETAH)\r\n   60 TS = TAU-TAUH*(TAU-TAUH)\r\n      AI(1) = TAUH*.5 + AJ(1)\r\n      AI(2) = -(TAU/3.)*ZETAH + (TAUH/6.) * (2.*ZETAH+ZETAM) + AJ(2)\r\n      AI(3) = -(TAU/12.)*ZETAH *(3.*ZETAH+2.*ZETAM) + (TAUH/12.) *\r\n     *          (3. *ZETAH*ZETAH + 2.*ZETAH*ZETAM+ZETAM*ZETAM) + AJ(3)\r\n      AI(4) = (TAU*TAU/(3. *ZETAM)) + (1./3.)*TS*(ZETAH-ZETAM) + AJ(4)\r\n      AI(5) = (TAU*TAU/12.) + (1./12.)*TS*(3.*ZETAH + ZETAM) /\r\n     *         (ZETAH-ZETAM) + AJ(5)\r\n      AI(6) = (TAU*TAU/30.) * ZETAM + (1./30.)*TS*(6.*ZETAH*ZETAH +\r\n     *         3.*ZETAH*ZETAM + ZETAM*ZETAM) / (ZETAH-ZETAM) + AJ(6)\r\n   70 EMS = EMACH*EMACH\r\n      SECS = SECLAM*SECLAM\r\n      IF( NTHRY .NE. 0 ) GO TO 80\r\n      CBAR1 = 1.\r\n      CBAR2 = (1.4+1.)/4.\r\n      GO TO 90\r\n   80 CBAR1 = EMACH / SQRT(EMS-SECS)\r\n      CBAR2 = (EMS*EMS*(1.4+1.)- 4.*SECS*(EMS-SECS)) /(4.*(EMS-SECS)**2)\r\n   90 CBAR3 = (1.4+1.) / 12.\r\n      EK(1) = (1./EMACH ) *(CBAR1+2.*CBAR2*EMACH*AI(1)\r\n     *       + 3.*CBAR3*EMS*(AI(4)+ALPHA2))\r\n      EK(2) = (1./EMACH) * (CBAR1+4.*CBAR2*EMACH * AI(2)\r\n     *       + 3.*CBAR3*EMS*(2.*AI(5)+ALPHA2))\r\n      EK(3) = (4./(3.*EMACH)) * (CBAR1+6.*CBAR2*EMACH*AI(3)\r\n     *       + 3.*CBAR3*EMS*(3.*AI(6)+ALPHA2))\r\n      IF( N .EQ. 3 ) GO TO 100\r\n      EK(4) = (1./EMACH) * (CBAR1*(1.-ZETAH) + 2.*CBAR2*EMACH*AJ(1)\r\n     *       +3.*CBAR3*EMS*AJ(4) + ALPHA2*(1.-ZETAH))\r\n      EK(5) = (1./EMACH) * (CBAR1*(1.-ZETAH*ZETAH) + 4.*CBAR2*EMACH*\r\n     *       AJ(2) + 3.*CBAR3*EMS*(2.*AJ(5)+ALPHA2*(1.-ZETAH*ZETAH)))\r\n      EK(6) = (4./(3.*EMACH))*(CBAR1*(1.-ZETAH**3) + 6.*CBAR2*EMACH*\r\n     *       AJ(3) + 3.*CBAR3*EMS*(3.*AJ(6)+ ALPHA2*(1.-ZETAH**3)))\r\n      E1K = 1.0/(RFC *B)\r\n      E1KS = E1K*E1K\r\n      G(1,1) = 0.\r\n      G(1,2) = -EK(1) * E1KS\r\n      G(2,1) = 0.\r\n      G(2,2) = -EK(2) * E1KS\r\n      GI(1,1) = -EK(1) * E1K\r\n      GI(1,2) = -EK(2) * E1K\r\n      GI(2,1) = GI(1,2)\r\n      GI(2,2) = -EK(3) * E1K\r\n      IF( N .EQ. 3 ) GO TO 100\r\n      G(1,3) = -EK(4) * E1KS\r\n      G(2,3) = -EK(5) * E1KS\r\n      G(3,1) = 0.\r\n      G(3,2) =-(EK(5)-2.*EK(4)*ZETAH) * E1KS\r\n      G(3,3) = G(3,2)\r\n      GI(1,3) = -(EK(5)-2.*EK(4)*ZETAH) * E1K\r\n      GI(2,3) = -(EK(6)-2.*EK(5)*ZETAH) * E1K\r\n      GI(3,1) = GI(1,3)\r\n      GI(3,2) = -(EK(6) -2.*EK(5)*ZETAH) * E1K\r\n      GI(3,3) = -(EK(6)-4.*EK(5)*ZETAH+4.*EK(4)*ZETAH*ZETAH) * E1K\r\nC\r\nC     MATRICES BUILT TIME TO MULTIPLY\r\nC\r\n  100 DO 110 K=1,N\r\n      DO 110 L=1,N\r\n      Q(K,L) = 0.\r\n      QI(K,L) = 0.\r\n      DO 110 M1=1,N\r\n      Q(K,L) = Q(K,L) + A(K,M1) * G(M1,L)\r\n      QI(K,L) = QI(K,L) + A(K,M1) * GI(M1,L)\r\n  110 CONTINUE\r\n      N2 = 2*N\r\n      DO 130 K=1,N\r\n      DO 130 L=1,N2,2\r\n      IT = L/2+1\r\n      P(K,L) = 0.\r\n      P(K,L+1) = 0.\r\n      DO 120 M1=1,N\r\n      P(K,L) = P(K,L) + Q(K,M1) * H(M1,IT)\r\n      P(K,L+1) = P(K,L+1) + QI(K,M1)*H(M1,IT)\r\n  120 CONTINUE\r\n      P(K,L) = P(K,L) * CONST\r\n      P(K,L+1) = P(K,L+1) * CONST\r\n  130 CONTINUE\r\nC\r\nC     PACK OUT\r\nC\r\n      NN = NN+N\r\n      DO 150 J=1,N2,2\r\n      DO 140 K=1,N\r\n      PC(K) = CMPLX(P(K,J),P(K,J+1))\r\n  140 CONTINUE\r\n      CALL PACK(PC,AJJL,MCB)\r\n  150 CONTINUE\r\n      II = II+N\r\n  200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstamg.f",
    "content": "      SUBROUTINE PSTAMG (INPUT,AJJL,SKJ)\r\nC\r\nC     DRIVER FOR PISTON THEORY\r\nC\r\n      INTEGER         SYSBUF,AJJL,SKJ,NAME(2),IZ(1)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /PSTONC/ NNJ,NMACH,NTHRY,NTHICK,NALPHA,NXIS,NTAUS,NSTRIP,\r\n     1                SECLAM\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    NHACPT, NHCOMM,NAME /4HACPT,4HCOMM,4HPSTA,4HMG  /\r\nC\r\n      ICORE = KORSZ(IZ) - 4*SYSBUF\r\nC\r\nC     BRING IN DATA AND ALLOCATE CORE\r\nC\r\n      CALL FREAD (INPUT,NNJ,9,0)\r\n      IDEL = 1\r\n      IB   = IDEL + NSTRIP\r\n      ICA  = IB  + NSTRIP\r\n      IPALP= ICA + NSTRIP\r\nC\r\nC     READ FIXED ARRAYS\r\nC\r\n      NW = 3*NSTRIP\r\n      CALL FREAD (INPUT,Z,NW,0)\r\nC\r\nC     READ ALPHA ARRAY AND STUFF  AT END (INTEGRALS OR TAUS)\r\nC\r\n      IEND = 0\r\n      DO 20 I = 1,NMACH\r\n      CALL FREAD (INPUT,RM,1,0)\r\n      IF (RM .NE. FMACH) GO TO 10\r\n      IEND = 1\r\n      CALL FREAD (INPUT,Z(IPALP),NALPHA,0)\r\n      GO TO 20\r\n   10 CALL FREAD (INPUT,Z,-NALPHA,0)\r\n   20 CONTINUE\r\n      IF (IEND .EQ. 0) GO TO 50\r\n      IPT = IPALP + NALPHA\r\n      CALL READ (*30,*30,INPUT,Z(IPT),ICORE,1,N)\r\n   30 NT = IPT + N\r\n      CALL BUG (NHACPT,30,Z,NT)\r\n      CALL BUG (NHCOMM,30,NNJ,9)\r\nC\r\nC     OUTPUT SKJ\r\nC\r\n      RM  = 1.0\r\n      ITI = 1\r\n      ITO = 3\r\n      II  = ISK\r\n      NSK = NSK + 1\r\n      NN  = NSK\r\n      DO 40 I = 1,NNJ\r\n      CALL PACK (RM,SKJ,TSKJ)\r\n      II  = II + 1\r\n      IF (I .EQ. NNJ) GO TO 40\r\n      NN  = NN + 1\r\n   40 CONTINUE\r\n      ISK = II\r\n      NSK = NN\r\n      ITI = 3\r\n      ITO = 3\r\n      CALL PSTA (Z(IDEL),Z(IB),Z(ICA),Z(IPALP),Z(IPT),AJJL)\r\n      NROW = NROW + NNJ\r\n      GO TO 70\r\nC\r\nC     ERROR MESSAGE\r\nC\r\n   50 WRITE  (IOUT,60) UFM,FMACH\r\n   60 FORMAT (A23,' 2428, MACH NUMBER ',F10.5,' WAS NOT FOUND IN ',\r\n     1       'PISTON THEORY ALPHA ARRAY.')\r\n      CALL MESAGE (-61,0,NAME)\r\nC\r\n   70 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstpl1.f",
    "content": "      SUBROUTINE PSTPL1\r\nC\r\nC     THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3\r\nC     FOR THE TRI-PLATE PART OF COMBINATION ELEMENTS\r\nC\r\nC     PHASE I OF STRESS DATA RECOVERY FOR TRI-PLATE\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING.\r\nC\r\nC     1) ELEMENT ID\r\nC     2) 3 SILS AND A DUMMY\r\nC     3) I\r\nC     4) Z1 AND Z2\r\nC     5) 3  5X6 S-SUB-I ARRAYS\r\nC     THUS, 98 WORDS FOR THE TRI-PLATE\r\nC\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION\r\nC       ECPT      BSC.BEND.TRI. AND THE TRI-PLATE\r\nC     ========   =================  =======\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC\r\n      INTEGER         SUBSCA   ,SUBSCB    ,SUBSCC\r\n      REAL            L1       ,L2        ,IVECT     ,JVECT   ,KVECT\r\n      DIMENSION       M(9)     ,REQUIV(9) ,G(36)     ,TITE(10),V(25) ,\r\n     1                HQ(12)   ,TEMP15(15),PROD15(15),NECPT(25)      ,\r\n     2                V1(3)    ,V2(3)     ,V3(3)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA3ES/ ECPT(100),PH1OUT(200)\r\n      COMMON /PLA32S/ A(45)    ,T(9)      ,S(18)     ,\r\n     2                HINV(36) ,PROD12(12),D1(3)     ,\r\n     3                D2(3)    ,HABC(18)  ,SSUM(60)  ,\r\n     4                R(2,4)   ,IVECT(3)  ,JVECT(3)  ,\r\n     5                KVECT(3) ,VV1(2)    ,VV2(2)    ,XSUBB  ,XSUBC  ,\r\n     6                YSUBC    ,E(18)     ,TEMP      ,\r\n     7                L1       ,L2        ,C1        ,\r\n     8                C2       ,S1        ,S2        ,\r\n     9                X1       ,X2        ,Y1        ,\r\n     T                Y2       ,NPOINT    ,DUM9      ,\r\n     1                TEMP1    ,TEMP2     ,PROD9(9)  ,\r\n     2                TEMP9(9) ,DUM8      ,KM        ,\r\n     3                SUBSCA   ,SUBSCB    ,SUBSCC    ,DUM11   ,\r\n     4                THETA    ,NSUBC     ,ISING     ,\r\n     5                U1       ,U2        ,SINANG    ,\r\n     6                COSANG   ,DUM10     ,XC        ,\r\n     7                YC       ,DETERM    ,DUM12(29)\r\n      COMMON /MATIN / MATID    ,INFLAG    ,ELTEMP    ,STRESS  ,SINTH  ,\r\n     1                COSTH\r\n      EQUIVALENCE     (CONSTS(4),DEGRA)   ,(PROD15(1),PROD9(1))       ,\r\n     1                (REQUIV(1),R(1,1))  ,(NECPT(1) ,ECPT(1) )       ,\r\n     2                (ECPT(14) ,V1(1))   ,(V2(1)    ,ECPT(18))       ,\r\n     3                (ECPT(22) ,V3(1))   ,(TITE(1)  ,A(1)    )       ,\r\n     4                (PROD12(1),V(1))    ,(HQ(1)    ,A(1)    )\r\n      DATA    M     / 1,2,4,  2,3,4,  3,1,4 /\r\nC\r\n      THETA  = ECPT(5)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,8\r\n   10 REQUIV(I) = 0.0\r\nC\r\n      DO 20 I = 1,3\r\n      D2(I) = V2(I) - V1(I)\r\n   20 D1(I) = V3(I) - V1(I)\r\nC\r\nC     X2  GOES IN R(1,2)\r\nC\r\n      R(1,2) = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2)\r\n      DO 30 I = 1,3\r\n   30 IVECT(I) = D2(I)/R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\nC\r\n      KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3)\r\n      KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1)\r\n      KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\nC\r\n      R(2,3) = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 40 I = 1,3\r\n   40 KVECT(I) = KVECT(I)/R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 60 I = 1,3\r\n   60 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\nC\r\n      R(1,4) = (R(1,2)+R(1,3))/3.0\r\n      R(2,4) = R(2,3)/3.0\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n      DO 80 I = 1,60\r\n   80 SSUM(I) = 0.0\r\n      DO 90 I = 1,36\r\n   90 G(I)   = 0.0\r\nC\r\n      DO 180 J = 1,3\r\n      KM     = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1     = VV1(1)/XSUBB\r\n      U2     = VV1(2)/XSUBB\r\n      XSUBC  = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC  = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC     = XSUBC\r\n      YC     = YSUBC\r\nC\r\n      SINTH  = SINANG*U1 - COSANG*U2\r\n      COSTH  = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL PSTRB1 (2)\r\nC\r\nC     RETURNING FROM PSTRB1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S , S , S , EACH 5X3.   45 WORDS STORED IN A( 1) THRU A(45)\r\nC        A   B   C\r\nC\r\nC     AND ALSO H-INVERSE IS AT A(73) THRU A(108) AND S IS AT A(55) THRU\r\nC     A(72)\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1/3.0\r\n      V( 2) = U2*U2/3.0\r\n      V(11) = U1*U2/3.0\r\n      V( 3) =-V(11)*2.0\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1/3.0\r\n      V(20) =-U2/3.0\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 120 I = 1,3\r\n      CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1))\r\n      CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0, PROD15(1))\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 110 K = 1,15\r\n      NSUBC  = NPOINT + K\r\n  110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  120 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1  = XSUBB - XSUBC\r\n      TEMP2  = YSUBC**2\r\n      L1     = SQRT(XSUBC**2 + TEMP2)\r\n      L2     = SQRT(TEMP1**2 + TEMP2)\r\n      S1     = XSUBC/L1\r\n      S2     = TEMP1/L2\r\n      C1     = YSUBC/L1\r\n      C2     = YSUBC/L2\r\n      X1     = XSUBC/2.0\r\n      Y1     = YSUBC/2.0\r\n      X2     = (XSUBB + XSUBC)/2.0\r\n      Y2     = Y1\r\n      HQ( 1) =-XSUBC*C1\r\n      HQ( 2) = X1*S1 - Y1*C1\r\n      HQ( 3) = 2.0*Y1*S1\r\n      HQ( 4) =-3.0*X1*X1*C1\r\n      HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1)\r\n      HQ( 6) = 3.0*Y1*Y1*S1\r\n      HQ( 7) = 2.0*X2*C2\r\n      HQ( 8) = X2*S2 + Y2*C2\r\n      HQ( 9) = 2.0*Y2*S2\r\n      HQ(10) = 3.0*X2*X2*C2\r\n      HQ(11) = Y2*(2.0*X2*S2 + Y2*C2)\r\n      HQ(12) = 3.0*Y2*Y2*S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\n      CALL GMMATS (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1))\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1))\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT(H     ) AND (H     )  PARTITION\r\nC            PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\n      DO 170 I = 1,3\r\nC\r\nC     POINTER TO H  = 6*I-6\r\nC                 I\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1))\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1  ROW 1 OF H INTO ROW 1 OF G.\r\nC            ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2  ROW 1 OF H INTO ROW 2 OF G.\r\nC            ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3  ROW 1 OF H INTO ROW 3 OF G.\r\nC            ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF (J-2) 140,130,160\r\nC\r\n  130 NPOINT = NPOINT + 3\r\n  140 DO 150 K = 1,6\r\n      NPOINT = NPOINT + 1\r\n  150 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 170\r\n  160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1)\r\n      G(NPOINT+8) = G(NPOINT+8) + TEMP9(2)\r\n      G(NPOINT+9) = G(NPOINT+9) + TEMP9(3)\r\n      G(NPOINT+1) = G(NPOINT+1) + TEMP9(4)\r\n      G(NPOINT+2) = G(NPOINT+2) + TEMP9(5)\r\n      G(NPOINT+3) = G(NPOINT+3) + TEMP9(6)\r\nC\r\n  170 CONTINUE\r\n  180 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 190 I = 1,18\r\n  190 E(I)  = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC               *         *     -1\r\nC     (S ) = (S  )  -  (S  )(G )  (G )           I=A,B,C\r\nC       I      I         4    4     I\r\nC\r\nC        E            T                  T\r\nC     (S  ) = (S ) (E) (C ) = (S ) (TITE)    I=A,B,C\r\nC       I       I        I      I\r\nC\r\nC                                 *     -1\r\nC     FIRST GET COMMON PRODUCT (S  )(G )\r\nC                                4    4\r\nC\r\nC     INVERT  (G )  STORE INVERSE BACK INTO  (G )\r\nC               4                              4\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1))\r\nC\r\nC     CHECK FOR SINGULARITY.  ISING = 2 IMPLIES SINGULARITY\r\nC\r\n      GO TO (210,200), ISING\r\n  200 CALL MESAGE (-30,36,ECPT(1))\r\nC\r\n  210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1))\r\nC\r\n      DO 260 I = 1,3\r\nC\r\nC    (PROD15)(G )\r\nC              I\r\nC\r\n      CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1))\r\nC\r\nC     SUBTRACT TEMP15 FROM S\r\nC                          I\r\nC\r\n      NPOINT = 15*I - 15\r\n      DO 220 K = 1,15\r\n      NPOINT = NPOINT + 1\r\n  220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K)\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 9\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 230\r\n      CALL TRANSS (NECPT(NSUBC),T(1))\r\n      CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 250\r\nC\r\n  230 DO 240 K = 1,18\r\n  240 TITE(K) = E(K)\r\nC\r\n  250 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE(1),6,3,1, PH1OUT(30*I-21))\r\nC\r\n  260 CONTINUE\r\nC\r\nC     I, Z1, Z2, ELEM ID, 3 SILS FOR PHASE 2.  PH1OUT(5) IS A DUMMY\r\nC\r\n      PH1OUT(1) = ECPT( 1)\r\n      PH1OUT(2) = ECPT( 2)\r\n      PH1OUT(3) = ECPT( 3)\r\n      PH1OUT(4) = ECPT( 4)\r\n      PH1OUT(6) = ECPT( 7)\r\n      PH1OUT(7) = ECPT(11)\r\n      PH1OUT(8) = ECPT(12)\r\nC\r\nC     ALL PHASE ONE COMPLETE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstq1.f",
    "content": "      SUBROUTINE PSTQ1(NTYPE)\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3\r\nC  FOR COMBINATION ELEMENTS\r\nC\r\nC**************** PHASE I  STRESS DATA RECOVERY ************************\r\nC **********************************************************************\r\nC\r\nC     9/12/67         E C P T     L I S T I N G\r\nC                    ***************************\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC **********************************************************************\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC **********************************************************************\r\nC\r\n      DIMENSION SAVE(32)\r\nC\r\n      COMMON /PLA3ES/ ECPT(100), PH1OUT(173) ,DUMMY(27)\r\nC\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC              NTYPE = 1  IMPLIES STRIA1\r\nC              NTYPE = 2  IMPLIES STRIA2\r\nC              NTYPE = 3  IMPLIES SQUAD1\r\nC              NTYPE = 4  IMPLIES SQUAD2\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I=1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC              STRIA1    STRIA2    SQUAD1    SQUAD2\r\n      GO TO(20,100,150,230),NTYPE\r\nC\r\nC     **************\r\nC     *** STRIA1 ***\r\nC     **************\r\nC\r\nC     SET UP ECPT FOR PSTRM1, FIRST CHECK T1 FOR ZERO\r\n   20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50\r\n      DO 30 I=9,21\r\n   30 ECPT(I) = SAVE(I + 6)\r\nC\r\n      CALL PSTRM1 (0)\r\nC\r\nC     MOVE OUTPUT FROM PSTRM1 TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (99 THRU 134)\r\nC\r\nC\r\n      DO 40 I=1,36\r\n   40 PH1OUT(I + 98) = PH1OUT(I)\r\n      GO TO 60\r\nC\r\n   50 PH1OUT( 99) = ECPT(1)\r\n      PH1OUT(100) = 0.0E0\r\nC\r\nC     SET UP CALL TO PSTPL1, CHECK I EQUAL TO ZERO\r\n   60 IF( SAVE(9) .EQ. 0.0E0 ) GO TO 90\r\n      DO 70 I=1,5\r\n   70 ECPT(I) = SAVE(I)\r\n      DO 80 I=6,25\r\n   80 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL PSTPL1\r\n      RETURN\r\nC\r\n   90 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC     *** STRIA2 ***\r\nC     **************\r\n  100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140\r\nC     SET UP CALL TO PSTRM1\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PSTRM1(0)\r\nC\r\nC     MOVE OUTPUT FROM PSTRM1 TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (99 THRU 134)\r\nC\r\n      DO 110 I=1,36\r\n  110 PH1OUT(I + 98) = PH1OUT(I)\r\nC\r\nC     SET UP CALL TO PSTPL1\r\nC\r\n      DO 120 I=1,6\r\n  120 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7) ** 3  / 12.0E0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11) = SAVE(7)/2.0E0\r\n      ECPT(12) = -ECPT(11)\r\n      DO 130 I=13,25\r\n  130 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL PSTPL1\r\n      RETURN\r\nC\r\n  140 PH1OUT(  1) = ECPT(1)\r\n      PH1OUT(  2) = 0.0E0\r\n      PH1OUT( 99) = ECPT(1)\r\n      PH1OUT(100) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC     *** SQUAD1 ***\r\nC     **************\r\nC\r\n  150 IF(SAVE(8).EQ.0.0E0)GO TO 180\r\nC\r\nC     SET UP CALL TO PSQDM1\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 160 I=10,26\r\n  160 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL PSQDM1\r\nC\r\nC     MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (129 THRU 173)\r\nC\r\n      DO 170 I=1,45\r\n  170 PH1OUT(I + 128) = PH1OUT(I)\r\nC\r\n      GO TO 190\r\n  180 PH1OUT(129) = ECPT(1)\r\n      PH1OUT(130) = 0.0E0\r\nC\r\n  190 IF( SAVE(10) .EQ. 0.0E0 ) GO TO 220\r\nC\r\nC     SET UP CALL TO PSQPL1\r\nC\r\n      DO 200 I=1,6\r\n  200 ECPT(I) = SAVE(I)\r\n      DO 210 I=7,30\r\n  210 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL PSQPL1\r\n      RETURN\r\nC\r\n  220 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC     *** SQUAD2 ***\r\nC     **************\r\nC\r\n  230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270\r\nC\r\nC     SET UP CALL TO PSQDM1\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL PSQDM1\r\nC\r\nC     MOVE OUTPUT DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (129 THRU 173)\r\nC\r\n      DO 240 I=1,45\r\n  240 PH1OUT(I + 128) = PH1OUT(I)\r\nC\r\nC\r\nC     SET UP CALL TO PSQPL1\r\nC\r\n      DO 250 I=1,7\r\n  250 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8) **3 / 12.0E0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11)= SAVE(9)\r\n      ECPT(12) = SAVE(8)/2.0E0\r\n      ECPT(13) =-ECPT(12)\r\n      DO 260 I=14,30\r\n  260 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL PSQPL1\r\nC\r\n      RETURN\r\nC\r\n  270 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      PH1OUT(129) = ECPT(1)\r\n      PH1OUT(130) = 0.0E0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstq2.f",
    "content": "      SUBROUTINE PSTQ2 (NPTS)\r\nC  THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA3\r\nC  FOR COMBINATION ELEMENTS\r\nC\r\nC     ****PHASE II OF STRESS DATA RECOVERY*********\r\nC\r\nC     NPTS = 3 IMPLIES STRIA1 OR STRIA2  (PHASE II)\r\nC     NPTS = 4 IMPLIES SQUAD1 OR SQUAD2  (PHASE II)\r\nC\r\n      DIMENSION  NSIL(4), NPH1OU(2), SI(36)\r\nC\r\n      COMMON /PLA3UV/ IVEC,Z(24)\r\n      COMMON /PLA3ES/ PH1OUT(200),FORVEC(6),DUMMY(94)\r\n      COMMON /PLA32S/ STRESS(3),TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM,\r\n     1                Z1OVRI, Z2OVRI,DUM1(308)\r\n      COMMON /SOUT/ STR(18)\r\n      EQUIVALENCE\r\n     1  (NSIL(1),PH1OUT(2))\r\n     2 ,(NPH1OU(1),PH1OUT(1))\r\n     3 ,(SI(1),PH1OUT(9))\r\nC\r\nC **********************************************************************\r\nC **********************************************************************\r\nC\r\nC     PHASE I OUTPUT FROM THE PLATE IS THE FOLLWOING\r\nC\r\nC     PH1OUT(1)                        ELEMENT ID\r\nC     PH1OUT(2 THRU 5)                 3 SILS AND DUMMY OR 4 SILS\r\nC     PH1OUT(6)                        I\r\nC     PH1OUT(7 THRU 8)                 Z1 AND Z2\r\nC     PH1OUT(9 THRU 30*NPTS+8)         3 OR 4 S SUB I  5X6 ARRAYS\r\nC\r\nC **********************************************************************\r\nC\r\nC     PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING\r\nC     NOTE..BEGIN = 30*NPTS+8\r\nC\r\nC     PH1OUT(BEGIN + 1)                ELEMENT ID\r\nC     PH1OUT(BEGIN + 2 THRU BEGIN + 5) 3 SILS AND DUMMY OR 4 SILS\r\nC     PH1OUT(BEGIN + 6)                T SUB 0\r\nC     PH1OUT(BEGIN + 7 THRU BEGIN + 9) S SUB T  3X1 ARRAY\r\nC     PH1OUT(BEGIN + 10 THRU BEGIN + 9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS\r\nC\r\nC **********************************************************************\r\nC **********************************************************************\r\nC\r\nC     THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES...\r\nC     SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN\r\nC     MEMBRANES.\r\nC     A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH\r\nC     INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW\r\nC\r\nC\r\nC\r\nC     FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION\r\nC\r\nC     M ,  M ,  M  ,  V ,  V\r\nC      X    Y    XY    X    Y\r\nC\r\nC                                NPTS\r\nC     THE  5X1 FORCE VECTOR = SUMMATION  (S )(U )\r\nC                                I=1       I   I\r\nC\r\nC\r\nC     ZERO OUT LOCAL STRESSES\r\nC\r\n      SIG X  1 = 0.0E0\r\n      SIG Y  1 = 0.0E0\r\n      SIG XY 1 = 0.0E0\r\n      SIG X  2 = 0.0E0\r\n      SIG Y  2 = 0.0E0\r\n      SIG XY 2 = 0.0E0\r\nC\r\n      IF( NSIL(1) .EQ. 0 ) GO TO 30\r\nC\r\nC     FORM SUMMATION\r\nC\r\n      DO 20 I=1,NPTS\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      CALL GMMATS( SI(30*I-29),5,6,0,  Z(NPOINT),6,1,0,  VEC(1)  )\r\nC\r\n      DO 10 J=2,6\r\n   10 FORVEC(J) = FORVEC(J) + VEC(J-1)\r\nC\r\n   20 CONTINUE\r\nC\r\nC     FORCE VECTOR IS NOW COMPLETE\r\nC\r\n      Z1 = PH1OUT(7)\r\n      Z2 = PH1OUT(8)\r\nC\r\n      Z1 OVR I = - PH1OUT(7) / PH1OUT(6)\r\n      Z2 OVR I = - PH1OUT(8) / PH1OUT(6)\r\nC\r\n      SIG X  1 = FORVEC(2) * Z1 OVR I\r\n      SIG Y  1 = FORVEC(3) * Z1 OVR I\r\n      SIG XY 1 = FORVEC(4) * Z1 OVR I\r\n      SIG X  2 = FORVEC(2) * Z2 OVR I\r\n      SIG Y  2 = FORVEC(3) * Z2 OVR I\r\n      SIG XY 2 = FORVEC(4) * Z2 OVR I\r\nC     *******************************\r\nC\r\n      GO TO 40\r\n   30 Z1 = 0.0E0\r\n      Z2 = 0.0E0\r\nC\r\nC     FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION\r\n   40 IF( NPH1OU(30*NPTS+10) .EQ. 0 ) GO TO 90\r\nC\r\nC\r\nC                        I=NPTS\r\nC     STRESS VECTOR = ( SUMMATION(S )(U ) )\r\nC                        I=1       I   I\r\nC\r\n      DO 60 I=1,NPTS\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\n      NPOINT = 30*NPTS + 9 + I\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\n      NPOINT = IVEC + NPH1OU (NPOINT) - 1\r\nC\r\nC     POINTER TO S SUB I 3X3\r\n      NPT1 = 30 * NPTS + 9 + 9 * I\r\nC\r\n      CALL GMMATS ( PH1OUT(NPT1),3,3,0,  Z(NPOINT),3,1,0,  VEC(1)  )\r\nC\r\n      DO 50 J=1,3\r\n   50 STRESS(J) = STRESS(J) + VEC(J)\r\nC\r\n   60 CONTINUE\r\nC\r\nC\r\nC     ADD MEMBRANE STRESSES TO PLATE STRESSES\r\nC\r\n      SIG X  1 = SIG X  1 + STRESS(1)\r\n      SIG Y  1 = SIG Y  1 + STRESS(2)\r\n      SIG XY 1 = SIG XY 1 + STRESS(3)\r\n      SIG X  2 = SIG X  2 + STRESS(1)\r\n      SIG Y  2 = SIG Y  2 + STRESS(2)\r\n      SIG XY 2 = SIG XY 2 + STRESS(3)\r\nC\r\nC     STRESS OUTPUT VECTOR IS THE FOLLOWING\r\nC\r\nC      1) ELEMENT ID\r\nC      2) Z1 = FIBER DISTANCE 1\r\nC      3) SIG X  1\r\nC      4) SIG Y  1\r\nC      5) SIG XY 1\r\nC      6) ANGLE OF ZERO SHEAR AT Z1\r\nC      7) SIG P1 AT Z1\r\nC      8) SIG P2 AT Z1\r\nC      9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1\r\nC\r\nC     10) ELEMENT ID\r\nC     11) Z2 = FIBER DISTANCE 2\r\nC     12) SIG X  2\r\nC     13) SIG Y  2\r\nC     14) SIG XY 2\r\nC     15) ANGLE OF ZERO SHEAR AT Z2\r\nC     16) SIG P1 AT Z2\r\nC     17) SIG P2 AT Z2\r\nC     S7) SIG P2 AT Z2\r\nC     18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2\r\nC\r\nC\r\n   90 IF( NPH1OU(2) .EQ. 0 .AND. NPH1OU(30*NPTS+10) .EQ. 0 ) GO TO 120\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\n      STR( 1) = PH1OUT(1)\r\n      STR( 2) = Z1\r\n      STR( 3) = SIG X  1\r\n      STR( 4) = SIG Y  1\r\n      STR( 5) = SIG XY 1\r\n      STR(10) = PH1OUT(1)\r\n      STR(11) = Z2\r\n      STR(12) = SIG X  2\r\n      STR(13) = SIG Y  2\r\n      STR(14) = SIG XY 2\r\nC\r\n      DO 110 I=3,12,9\r\n      TEMP = STR(I) - STR(I+1)\r\n      STR(I+6) = SQRT( (TEMP/2.0E0)**2 + STR(I+2)**2 )\r\n      DELTA = (  STR(I)  +  STR(I+1)  )  /  2.0E0\r\n      STR(I+4) = DELTA + STR(I+6)\r\n      STR(I+5) = DELTA - STR(I+6)\r\n      DELTA = 2.0E0 * STR(I+2)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 100\r\n      STR(I+3) = ATAN2( DELTA,TEMP ) * 28.6478898E0\r\n      GO TO 110\r\n  100 STR(I+3) = 0.0E0\r\n  110 CONTINUE\r\nC\r\n      GO TO 140\r\n  120 DO 130 I=2,18\r\n  130 STR(I) = 0.0E0\r\n  140 STR(1) = PH1OUT(1)\r\n      STR(10) = PH1OUT(1)\r\nC\r\nC\r\nC     ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT\r\nC\r\n      DO 150 I=10,17\r\n  150 STR(I) = STR(I+1)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstrb1.f",
    "content": "      SUBROUTINE PSTRB1 (IOPT)\r\nC\r\nC     THIS ROUTINE DOES SUB-CALCULATIONS FOR PLATE ELEMENTS IN PLA3\r\nC\r\nC     THIS ROUTINE IS SIMILAR TO STRBS1, BUT SINCE THE BASIC BENDING\r\nC     TRIANGLE (IOPT = 0) IS NOT USED IN PLA, THE CORRESPONDING\r\nC     EXECUTIABLE CODE FOR THAT CASE IS NOT USED.\r\nC\r\nC     PHASE ONE FOR STRESS RECOVERY\r\nC\r\nC              IOPT   = 0  (BASIC BENDING TRIANGLE)\r\nC              IOPT   = 1  (SUB-CALCULATIONS FOR SQDPL1)\r\nC              IOPT   = 2  (SUB-CALCULATIONS FOR STRPL1)\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC\r\nC     PLAMAT - ROTATES AND RETURNS GP MATRIX\r\nC              MAT    - MATERIAL DATA ROUTINE\r\nC              TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC              INVERS - SINGLE PRECISION INVERSE ROUTINE\r\nC              GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC              MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      INTEGER         SUBSCA,SUBSCB\r\n      REAL            KS,J2X2\r\n      DIMENSION       D(9),G2X2(4),J2X2(4),S(18),ECPT(1),G(9),HIC(18),\r\n     1                HIB(18),TITE(18),T(9),KS(30),HINV(36)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\n      COMMON /PLA32S/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA,\r\n     1                XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3,\r\n     2                YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4),\r\n     3                NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR,\r\n     4                NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(26)\r\n      COMMON /PLA3ES/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,\r\n     2                Y3,Z3,DUMB(76),PH1OUT(200)\r\n      EQUIVALENCE     (D(1),G(1),A(79)),(ECPT(1),NECPT(1)),\r\n     1                (KS(1),PH1OUT(1)),(G2X2(1),A(88)),(S(1),A(55)),\r\n     2                (TITE(1),A(127)),(J2X2(1),A(92)),(T(1),A(118)),\r\n     3                (HIB(1),A(109)),(HIC(1),A(127)),(HINV(1),A(73))\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE           NAME IN\r\nC                                                    THIS\r\nC     ECPT                                           ROUTINE   TYPE\r\nC     ==========================================     ========  =======\r\nC     ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                       MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA               EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                       MATID2    INTEGER\r\nC     ECPT( 9) = T2                                  T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                 FMU       REAL\r\nC     ECPT(11) = Z1                                  Z11       REAL\r\nC     ECPT(12) = Z2                                  Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                  NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                  X1        REAL\r\nC     ECPT(15) = Y1                                  Y1        REAL\r\nC     ECPT(16) = Z1                                  Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                  NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                  X2        REAL\r\nC     ECPT(19) = Y2                                  Y2        REAL\r\nC     ECPT(20) = Z2                                  Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                  NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                  X3        REAL\r\nC     ECPT(23) = Y3                                  Y3        REAL\r\nC     ECPT(24) = Z3                                  Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\n      MATID  = MATID1\r\n      INFLAG = -1\r\nC\r\n      CALL PLAMAT\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 50 I = 1,9\r\n   50 D(I) = G(I)*EYE\r\nC\r\n      XBAR = (XSUBB+XSUBC)/3.0\r\n      YBAR = YSUBC/3.0\r\nC\r\nC     FORMING K  5X6 AND STORING TEMPORARILY IN PH1OUT OUTPUT SPACE.\r\nC              S                             (EQUIVALENCED)\r\nC\r\n      XC3    = 3.0*XC\r\n      YC3    = 3.0*YC\r\n      YC2    = 2.0*YC\r\n      KS( 1) = D(1)\r\n      KS( 2) = D(3)\r\n      KS( 3) = D(2)\r\n      KS( 4) = D(1)*XC3\r\n      KS( 5) = D(2)*XC + D(3)*YC2\r\n      KS( 6) = D(2)*YC3\r\n      KS( 7) = D(2)\r\n      KS( 8) = D(6)\r\n      KS( 9) = D(5)\r\n      KS(10) = D(2)*XC3\r\n      KS(11) = D(5)*XC + D(6)*YC2\r\n      KS(12) = D(5)*YC3\r\n      KS(13) = D(3)\r\n      KS(14) = D(9)\r\n      KS(15) = D(6)\r\n      KS(16) = D(3)*XC3\r\n      KS(17) = D(6)*XC + D(9)*YC2\r\n      KS(18) = D(6)*YC3\r\nC\r\nC     ROWS 4 AND 5\r\nC\r\n      KS(19) = 0.0\r\n      KS(20) = 0.0\r\n      KS(21) = 0.0\r\n      KS(22) =-D(1)*6.0\r\n      KS(23) =-D(2)*2.0 - D(9)*4.0\r\n      KS(24) =-D(6)*6.0\r\n      KS(25) = 0.0\r\n      KS(26) = 0.0\r\n      KS(27) = 0.0\r\n      KS(28) =-D(3)*6.0\r\n      KS(29) =-D(6)*6.0\r\n      KS(30) =-D(5)*6.0\r\nC\r\nC     MULTIPLY FIRST 3 ROWS BY 2.0\r\nC\r\n      DO 70 I = 1,18\r\n   70 KS(I) = KS(I)*2.0\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\nC\r\nC     F1LL (HBAR) MATRIX STORING AT A(37) THRU A(72)\r\nC\r\n      DO 90 I = 37,72\r\n   90 A(I)  = 0.0\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0*XSUBB\r\n      A(52) =-3.0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.0\r\n      A(65) = XCYC *2.0\r\n      A(66) = YCSQ *3.0\r\n      A(67) =-2.0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.0) GO TO 110\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 100\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 110\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP  =  2.0*D(2) + 4.0*D(9)\r\n      A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6)\r\n      A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6)\r\n      A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 100 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n  100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  110 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUNTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .NE. 2) GO TO 120\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,38,ECPT(1))\r\nC\r\nC     SAVE H-INVERSE IF TRI-PLATE IS CALLING\r\nC\r\n  120 DO 130 I = 1,36\r\n  130 HINV(I) = A(I+36)\r\nC\r\nC     FILL  S-MATRIX, EQUIVALENCED TO A(55).  (6X3)\r\nC\r\n      S( 1) = 1.0\r\n      S( 2) = 0.0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0\r\n      S( 5) = 1.0\r\n      S( 6) = 0.0\r\n      S( 7) = 0.0\r\n      S( 8) = 0.0\r\n      S( 9) = 1.0\r\n      S(10) = 1.0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0\r\n      S(14) = 1.0\r\n      S(15) = 0.0\r\n      S(16) = 0.0\r\n      S(17) = 0.0\r\n      S(18) = 1.0\r\nC\r\nC     COMPUTE  S , S ,  AND S    NO TRANSFORMATIONS\r\nC               A   B        C\r\nC\r\nC                -1\r\nC     S  = - K  H  S ,   S  = K  H   ,   S  = K  H\r\nC      A      S           B    S  IB      C    S  IC\r\nC\r\nC     S   COMPUTATION.\r\nC      A\r\nC\r\n      CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16))\r\nC\r\nC     DIVIDE  H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION.\r\nC\r\n      I = 0\r\n      J =-6\r\n  150 J = J + 6\r\n      K = 0\r\n  160 K = K + 1\r\n      I = I + 1\r\n      ISUB = J + K\r\n      HIB(I) = HINV(ISUB    )\r\n      HIC(I) = HINV(ISUB + 3)\r\n      IF (K .LT.  3) GO TO 160\r\n      IF (J .LT. 30) GO TO 150\r\nC\r\n      CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1))\r\nC\r\nC     MULTIPLY S SUB A BY -1\r\nC\r\n      DO 170 I = 1,15\r\n  170 A(I) = -A(I)\r\nC\r\nC     S  COMPUTATION\r\nC      B\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16))\r\nC\r\nC     S  COMPUTATION\r\nC      C\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31))\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstri1.f",
    "content": "      SUBROUTINE PSTRI1\r\nC  THIS ROUTINE CALCULATES GP,SET-S UP THE ECPT AND UPDATES THE ECPT\r\nC  FOR THE TRIA1 ELEMENTS\r\nC\r\nC     ECPT FOR TRIA1\r\nC     EL.ID                                       ECPT( 1)\r\nC     GRID A                                      ECPT( 2)\r\nC     GRID B                                      ECPT( 3)\r\nC     GRID C                                      ECPT( 4)\r\nC     THETA                                       ECPT( 5)\r\nC     MATID1                                      ECPT( 6)\r\nC     T1                                          ECPT( 7)\r\nC     MATID2                                      ECPT( 8)\r\nC     I                                           ECPT( 9)\r\nC     MATID3                                      ECPT(10)\r\nC     T2                                          ECPT(11)\r\nC     NS MASS                                     ECPT(12)\r\nC     Z1                                          ECPT(13)\r\nC     Z2                                          ECPT(14)\r\nC     CSID 1                                      ECPT(15)\r\nC     X1                                          ECPT(16)\r\nC     Y1                                          ECPT(17)\r\nC     Z1                                          ECPT(18)\r\nC     CSID 2                                      ECPT(19)\r\nC     X2                                          ECPT(20)\r\nC     Y2                                          ECPT(21)\r\nC     Z2                                          ECPT(22)\r\nC     CSID3                                       ECPT(23)\r\nC     X3                                          ECPT(24)\r\nC     Y3                                          ECPT(25)\r\nC     Z3                                          ECPT(26)\r\nC     TEMP                                        ECPT(27)\r\nC     EPS SUB 0      (PREVIOUS  STRAIN)           ECPT(28)\r\nC     EPS SUB STAR   (LAST STRAIN)                ECPT(29)\r\nC     MODULUS OF ELASTICITY                       ECPT(30)\r\nC     SIGMA X        STRESS                       ECPT(31)\r\nC     SIGMA Y        STRESS                       ECPT(32)\r\nC     SIGMA XY       STRESS                       ECPT(33)\r\nC     M X STAR       FORCE                        ECPT(34)\r\nC     M Y STAR       FORCE                        ECPT(35)\r\nC     M XX STAR      FORCE                        ECPT(36)\r\nC     V X  STAR      FORCE                        ECPT(37)\r\nC     V Y  STAR      FORCE                        ECPT(38)\r\nC     U A       (6X1 DISPLACEMENT VECTOR)         ECPT(39)\r\nC     U B       (6X1 DISPLACEMENT VECTOR)         ECPT(45)\r\nC     U C       (6X1 DISPLACEMENT VECTOR)         ECPT(51)\r\nC\r\nC     ******************************************************************\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(27),NECPTS(27)\r\n      COMMON /PLA32E/ ECPT(27), EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1                FORVEC(5),UI(18),DUMMY(44)\r\n      COMMON /PLA3ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA3UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9),  MIDGP  , ELID\r\nC\r\n      EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS)\r\n     1,           (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 7\r\n      NECPTS(4) = 13\r\nC\r\n      CALL PSTQ1 (1)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\n      I201 = 201\r\n      ECPTSA(I201) = ECPT(1)\r\n      DO 75 I=1,5\r\n   75 ECPTSA(I+201) = FORVEC(I)\r\nC\r\n      CALL PSTQ2 (3)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\nC\r\nC     NEW FORCES ARE IN  /PLA3ES/ AT LOCATIONS 202-206\r\nC\r\n      DO 76 I=1,5\r\n   76 FORVEC(I)   = ECPTSA(I+201)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstri2.f",
    "content": "      SUBROUTINE PSTRI2\r\nC  THIS SUBROUTINE IS THE DRIVER FOR THE  TRIA2 CALCULATIONS IN\r\nC  PLA3\r\nC\r\nC\r\nC     ECPT FOR  TRIA2\r\nC     ******************************************************************\r\nC  1  EL.ID\r\nC  2  GRID A\r\nC  3  GRID B\r\nC  4  GRID C\r\nC  5  THETA\r\nC  6  MAT ID\r\nC  7  T\r\nC  8  MS MASS\r\nC  9  CSID 1\r\nC 10  X1\r\nC 11  Y1\r\nC 12  Z1\r\nC 13  CSID 2\r\nC 14  X2\r\nC 15  Y2\r\nC 16  Z2\r\nC 17  CSID 3\r\nC 18  X3\r\nC 19  Y3\r\nC 20  Z3\r\nC 21  TEMP\r\nC 22  EPS0\r\nC 23  EPSS\r\nC 24  ESTAR\r\nC 25  SIGXS\r\nC 26  SIGYS\r\nC 27  SIGXYS\r\nC 28  MXS\r\nC 29  MYS\r\nC 30  MXYS\r\nC 31  VXS\r\nC 32  VYS\r\nC 33  U(A) (6X1)\r\nC 39  U(B) (6X1)\r\nC 45  U(C) (6X1)\r\nC\r\nC     ******************************************************************\r\nC\r\n      REAL NU\r\nC\r\n      DIMENSION NECPT(21), NECPTS(21)\r\n      COMMON /PLA32E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1   FORVEC(5),  UI(18), DUMMY(50)\r\n      COMMON /PLA3ES/ ECPTSA(100), PH1OUT(200)\r\n      COMMON /PLA3UV/ IVEC, Z(24)\r\nC\r\nC SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/S(3),DUM(297),TAU0 ,TAU1 ,TAU2 ,F,SX,SY,DEPS,DEPSS,\r\n     1                EPS1,EPS2, DUM1,IDUM2,IDUM3(3,3)\r\n     2,              EXTRA(4)\r\n      COMMON /MATIN/ MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA, GAMMAS, IPASS\r\n      COMMON /PLAGP/  GP(9),  MIDGP  , ELID\r\nC\r\n      EQUIVALENCE (NECPT(6),MATID1) , (ECPT(1),NECPT(1)) , (G11,PLAANS)\r\n     1,           (G13,NU)   , (G11,ESUB0)\r\n     2,  (NECPTS(1),ECPTSA(1))\r\n     3,   (G12,NIROF)\r\nC\r\nC SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I=1,9\r\n   10 GP(I)=0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF(ESTAR .EQ. 0.0) GO TO 50\r\n      IF(IPASS .NE. 1  ) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0E0\r\n      INFLAG= 2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF(TAU0  .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\n      F =   9.0*(ESUB0 - ESTAR) / (4.0 * TAU0**2 * ESTAR)\r\n      SX = (2.0*SIGXS - SIGYS)/ 3.0\r\n      SY = (2.0*SIGYS - SIGXS)/ 3.0\r\n      GP(1) = (1.0+SX**2*F) / ESUB0\r\n      GP(2) = (-NU+SX*SY*F) / ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F) / ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F) / ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F) / ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2) / ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      IDUM2 = -1\r\n      CALL INVERS(3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC CHECK SINGULARITY\r\nC\r\n      IF( IDUM2 .EQ. 2) CALL MESAGE(-30,38,ECPT(1))\r\nC\r\nC CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 7\r\n      NECPTS(4) = 13\r\nC\r\n      CALL PSTQ1 (2)\r\nC\r\nC\r\nC CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\n      I201 = 201\r\n      ECPTSA(I201) = ECPT(1)\r\n      DO 75 I=1,5\r\n   75 ECPTSA(I+201) = FORVEC(I)\r\nC\r\n      CALL PSTQ2 (3)\r\nC\r\nC\r\nC  UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS = S(1)\r\n      SIGYS = S(2)\r\n      SIGXYS = S(3)\r\nC\r\nC     NEW FORCES ARE IN  /PLA3ES/ AT LOCATIONS 202-206\r\nC\r\n      DO 76 I=1,5\r\n   76 FORVEC(I)   = ECPTSA(I+201)\r\n      TAU1  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID= MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF ( NIROF . EQ. 1 ) GO TO 80\r\nC\r\nC RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG=6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT(ECPT(1))\r\nC\r\nC RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF( (EPS2 - EPS1) .NE. 0.0) ESTAR = (TAU2 - TAU1) / (EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstrm.f",
    "content": "      SUBROUTINE PSTRM\r\nC\r\nC     THIS SUBROUTINE IS THE DRIVER FOR THE  TRI-MEMBRANE CALCULATIONS\r\nC     IN PLA3\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC       ECPT(22) = STRAIN (MINUS ONE)                  EPS0      REAL\r\nC       ECPT(23) = STRAIN (PRESENT)                    EPSS      REAL\r\nC       ECPT(24) = MODULUS OF ELASTICITY               ESTAR     REAL\r\nC       ECPT(25) = STRESS SUB X                        SIGXS     REAL\r\nC       ECPT(26) = STRESS SUB Y                        SIGYS     REAL\r\nC       ECPT(27) = STRESS SUB XY                       SIGXYS    REAL\r\nC       ECPT(28) = DISPLACEMENT VECTOR   A1            UI(1)     REAL\r\nC       ECPT(29) = DISPLACEMENT VECTOR   A2            UI(2)     REAL\r\nC       ECPT(30) = DISPLACEMENT VECTOR   A3            UI(3)     REAL\r\nC       ECPT(31) = DISPLACEMENT VECTOR   B1            UI(4)     REAL\r\nC       ECPT(32) = DISPLACEMENT VECTOR   B2            UI(5)     REAL\r\nC       ECPT(33) = DISPLACEMENT VECTOR   B3            UI(6)     REAL\r\nC       ECPT(34) = DISPLACEMENT VECTOR   C1            UI(7)     REAL\r\nC       ECPT(35) = DISPLACEMENT VECTOR   C2            UI(8)     REAL\r\nC       ECPT(36) = DISPLACEMENT VECTOR   C3            UI(9)     REAL\r\nC\r\nC     ******************************************************************\r\nC\r\n      REAL            NU\r\n      DIMENSION       NECPT(21),NECPTS(21)\r\n      COMMON /PLA32E/ ECPT(21),EPS0,EPSS,ESTAR,SIGXS,SIGYS,SIGXYS,\r\n     1                UI(9),DUMMY(64)\r\n      COMMON /PLA3ES/ ECPTSA(100),PH1OUT(200)\r\n      COMMON /PLA3UV/ IVEC,Z(24)\r\nC\r\nC     SCRATCH BLOCK  325 CELLS\r\nC\r\n      COMMON /PLA32S/ S(3),DUM(297),TAU0,TAU1,TAU2,F,SX,SY,DEPS,\r\n     1                DEPSS,EPS1,EPS2,DUM1,IDUM2,IDUM3(3,3),EXTRA(4)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,PLAARG,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33\r\n      COMMON /PLA32C/ GAMMA,GAMMAS,IPASS\r\n      COMMON /PLAGP / GP(9),MIDGP,ELID\r\n      EQUIVALENCE     (NECPT(6),MATID1),(ECPT(1),NECPT(1)),(G11,PLAANS),\r\n     1                (G13,NU),(G11,ESUB0),(NECPTS(1),ECPTSA(1)),\r\n     2                (G12,NIROF)\r\nC\r\nC     SETUP GP MATRIX FOR PLAMAT\r\nC\r\n      ELID  = ECPT(1)\r\n      MIDGP = MATID1\r\n      DO 10 I = 1,9\r\n   10 GP(I) = 0.0\r\n      TAU0  = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      IF (ESTAR .EQ. 0.) GO TO 50\r\n      IF (IPASS .NE.  1) GO TO 20\r\n      MATID = MATID1\r\n      COSTH = 1.0\r\n      SINTH = 0.0\r\n      INFLAG = 2\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\n      GP(1) = G11\r\n      GP(2) = G12\r\n      GP(3) = G13\r\n      GP(4) = G12\r\n      GP(5) = G22\r\n      GP(6) = G23\r\n      GP(7) = G13\r\n      GP(8) = G23\r\n      GP(9) = G33\r\n      GO TO 50\r\n   20 IF (TAU0 .EQ. 0.0) GO TO 50\r\n      MATID = MATID1\r\n      INFLAG = 1\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\n      F     =  9.0*(ESUB0-ESTAR)/(4.0*TAU0**2*ESTAR)\r\n      SX    = (2.0*SIGXS-SIGYS)/3.0\r\n      SY    = (2.0*SIGYS-SIGXS)/3.0\r\n      GP(1) = (1.0+SX**2*F) /ESUB0\r\n      GP(2) = (-NU+SX*SY*F) /ESUB0\r\n      GP(3) = (2.0*SIGXYS*SX*F)/ESUB0\r\n      GP(4) = GP(2)\r\n      GP(5) = (1.0+SY**2*F)/ESUB0\r\n      GP(6) = (2.0*SIGXYS*SY*F)/ESUB0\r\n      GP(7) = GP(3)\r\n      GP(8) = GP(6)\r\n      GP(9) = (2.0*(1.0+NU) + 4.0*F*SIGXYS**2)/ESUB0\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUNTLY.\r\nC\r\n      IDUM2 = -1\r\n      CALL INVERS (3,GP,3,0,0,DUM1,IDUM2,IDUM3)\r\nC\r\nC     CHECK SINGULARITY\r\nC\r\n      IF (IDUM2 .EQ. 2) CALL MESAGE (-30,38,ECPT(1))\r\nC\r\nC     CALCULATE PHASE I STRESSES\r\nC\r\n   50 DO 30 I = 1,32\r\n   30 ECPTSA(I) = ECPT(I)\r\n      NECPTS(2) = 1\r\n      NECPTS(3) = 4\r\n      NECPTS(4) = 7\r\nC\r\n      CALL PSTRM1 (0)\r\nC\r\nC     CALCULATE PHASE II STRESSES\r\nC\r\n      IVEC = 1\r\n      DO 60 I = 1,24\r\n   60 Z(I) = UI(I)\r\n      DO 70 I = 1,200\r\n   70 ECPTSA(I) = PH1OUT(I)\r\n      S(1) = SIGXS\r\n      S(2) = SIGYS\r\n      S(3) = SIGXYS\r\nC\r\n      CALL PSTRQ2 (1)\r\nC\r\nC     UPDATE ECPT FOR STRESSES\r\nC\r\n      SIGXS  = S(1)\r\n      SIGYS  = S(2)\r\n      SIGXYS = S(3)\r\n      TAU1   = SQRT(SIGXS**2 - SIGXS*SIGYS + SIGYS**2 + 3.0*SIGXYS**2)\r\n      MATID  = MATID1\r\n      INFLAG = 8\r\n      PLAARG = TAU1\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     TEST FOR TAU 1 OUTSIDE THE RANGE OF FUNCTION\r\nC\r\n      IF (NIROF .EQ. 1) GO TO 80\r\nC\r\nC     RETURNS EPS SUB 1 GIVEN TAU1\r\nC\r\n      EPS1 = PLAANS\r\n      DEPS = EPS1 - EPSS\r\n      DEPSS= EPSS - EPS0\r\n      EPS2 = EPS1 + GAMMA * DEPS\r\n      INFLAG = 6\r\n      PLAARG = EPS2\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     RETURNS  TAU2 GIVEN EPS2\r\nC\r\n      TAU2  = PLAANS\r\n      ESTAR = 0.0\r\n      IF (EPS2-EPS1 .NE. 0.0) ESTAR = (TAU2-TAU1)/(EPS2-EPS1)\r\n      EPS0  = EPSS\r\n      EPSS  = EPS1\r\n      RETURN\r\nC\r\n   80 ESTAR = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pstrm1.f",
    "content": "      SUBROUTINE PSTRM1 (NTYPE)\r\nC  THIS ROUTINE CALCULATES PHASE I OUTPUT FOR PLA3\r\nC  BOTH FOR THE TRI-MEMBRANE AND SUB-CALCULATIONS FOR THE QUAD MEMBRANE\r\nC\r\nC     ******** PHASE I OF STRESS DATA RECOVERY *************************\r\nC     ******** TRIANGULAR MEMBRANE ELEMENT *****************************\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO. . .\r\nC\r\nC     PLAMAT - RETURNS STANDARD GP MATRIS ROTATED\r\nC     TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC     GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IF NTYPE = 0 TRI-MEMBRANE CALCULATIONS WILL BE DONE\r\nC\r\nC     IF NTYPE = 1 QUAD-MEMBRANE CALCULATIONS WILL BE DONE\r\nC\r\nC\r\n      DIMENSION G(9), ECPT(4)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /PLA3ES/\r\n     1                   NECPT(1)           ,NGRID(3)\r\n     2                  ,ANGLE              ,MATID1\r\n     3                  ,T                  ,FMU\r\n     4                  ,DUMMY1             ,X1\r\n     5                  ,Y1                 ,Z1\r\n     6                  ,DUMMY2             ,X2\r\n     7                  ,Y2                 ,Z2\r\n     8                  ,DUMMY3             ,X3\r\n     9                  ,Y3                 ,Z3            ,DUMB(80)\r\n     T                  ,PH1OUT(200)\r\n      COMMON /PLA32S/ C(18), E(18), TI(9), TEMPAR(27), TEMP\r\n     2      ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(244)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/G11,G12,G13,G22,G23,G33\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (G(1),TEMPAR(19)) ,(ECPT(1),NECPT(1))\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     ******************************************************************\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\n      E(1) = X2 - X1\r\n      E(3) = Y2 - Y1\r\n      E(5) = Z2 - Z1\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\n      XSUBB =  SQRT( E(1)**2 + E(3)**2 + E(5)**2 )\r\n      IF(XSUBB .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE(-30,31,ECPT(1))\r\nC\r\nC     NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\n   20 E(1) = E(1) / XSUBB\r\n      E(3) = E(3) / XSUBB\r\n      E(5) = E(5) / XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = X3 - X1\r\n      E(4) = Y3 - Y1\r\n      E(6) = Z3 - Z1\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA) ,  THUS\r\n      XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3) * E(6)  -  E(5) * E(4)\r\n      E(8) = E(5) * E(2)  -  E(1) * E(6)\r\n      E(9) = E(1) * E(4)  -  E(3) * E(2)\r\nC\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\n      YSUBC =  SQRT( E(7)**2 + E(8)**2 + E(9)**2 )\r\n      IF(YSUBC .GT. 1.0E-06) GO TO 25\r\n      CALL MESAGE(-30,32,ECPT(1))\r\nC\r\nC     NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   25 E(7) = E(7) / YSUBC\r\n      E(8) = E(8) / YSUBC\r\n      E(9) = E(9) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS.GET J = I CROSS K AND\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5) * E(8) - E(3) * E(9)\r\n      E(4) = E(1) * E(9) - E(5) * E(7)\r\n      E(6) = E(3) * E(7) - E(1) * E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\n      TEMP =  SQRT( E(2)**2 + E(4)**2 + E(6)**2 )\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      REELMU = 1.0E0 / XSUBB\r\n      FLAMDA = 1.0E0 / YSUBC\r\n      DELTA  = XSUBC / XSUBB - 1.0E0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC                 CSUBA = (3X2) STORED IN C(1) . . .C(6)  BY ROWS\r\nC                 CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS\r\nC                 CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0E0\r\n      C(3)  =  0.0E0\r\n      C(4)  =  FLAMDA * DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0E0\r\n      C(9)  =  0.0E0\r\n      C(10) = -FLAMDA * REELMU * XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0E0\r\n      C(14) =  0.0E0\r\n      C(15) =  0.0E0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0E0\r\nC\r\n      IF( NTYPE .EQ. 1 ) GO TO 30\r\n      THETA = ANGLE * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n   30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      MATID = MATID1\r\n      INFLAG = -1\r\n      CALL PLAMAT\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     ******************************************************************\r\nC\r\nC     G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC\r\nC\r\nC                           T\r\nC     COMPUTE  S  = G  C   E   T   , I = 1,2,3.\r\nC               I       I       I\r\nC\r\n      DO 100 I = 1,3\r\nC\r\nC     POINTER TO C   = 6*I - 5\r\nC                 I\r\nC\r\n      CALL GMMATS ( G,3,3,0,  C(6*I-5),3,2,0,  TEMPAR(1))\r\n      CALL GMMATS ( TEMPAR(1),3,2,0,  E,3,2,1,  TEMPAR(10) )\r\nC\r\nC     DO WE NEED TRANSFORMATION TI\r\nC\r\n      IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60\r\n      CALL TRANSS( NECPT(4*I + 5), TI )\r\n      CALL GMMATS( TEMPAR(10),3,3,0,  TI,3,3,0,  PH1OUT(9*I+1) )\r\n      GO TO 100\r\n   60 NPT1 = 9 * I\r\n      DO 80 J = 10,18\r\n      NPT1 = NPT1 + 1\r\n   80 PH1OUT(NPT1) = TEMPAR(J)\r\n  100 CONTINUE\r\n      PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = ECPT(4)\r\nC\r\nC     THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION\r\nC     TO ANOTHER ROUTINE...\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/pstrq2.f",
    "content": "      SUBROUTINE PSTRQ2 (NTYPE)\r\nC THIS ROUTINE CALCULATES PHASE II OUTPUT FOR PLA3\r\nC\r\nC     NTYPE = 1 TRI-MEMBRANE\r\nC     NTYPE = 2 QUAD-MEMBRANE\r\nC\r\nC     PH1OUT CONTAINS THE FOLLOWING\r\nC     *** NTYPE = 1 ***\r\nC     ELEMENT ID\r\nC     3 SILS\r\nC     5 DUMMY-S\r\nC     3 S ARRAYS EACH 3X3\r\nC\r\nC     *** NTYPE = 2 ***\r\nC     ELEMENT ID\r\nC     4 SILS\r\nC     4 DUMMY-S\r\nC     4 S ARRAYS EACH 3X3\r\nC\r\n      DIMENSION NSIL(4), SI(36)\r\nC\r\n      COMMON /PLA3UV/ IVEC, Z(24)\r\n      COMMON /PLA3ES/ PH1OUT(300)\r\n      COMMON /PLA32S/ STRESS(3),VEC(3),TEMP,DELTA,NSIZE,NPOINT,\r\n     1   DUM(315)\r\n      COMMON /SOUT/  STRES(9)\r\nC\r\n      EQUIVALENCE\r\n     1            (NSIL(1),PH1OUT(2))\r\n     2,           (SI(1),PH1OUT(10))\r\nC\r\nC\r\nC                        I=NSIZE\r\nC     STRESS VECTOR = (SUMMATION  (S ) (U ))\r\nC                        I=1        I    I\r\nC\r\n      NSIZE = NTYPE + 2\r\n      DO 20 I = 1,NSIZE\r\nC     POINTER TO DISPLACEMENT VECTOR\r\n      NPOINT = IVEC + NSIL(I) -1\r\nC\r\n      CALL GMMATS( SI(9*I-8),3,3,0,  Z(NPOINT),3,1,0, VEC(1))\r\nC\r\n      DO 30 J=1,3\r\n   30 STRESS(J) = STRESS(J) + VEC(J)\r\n   20 CONTINUE\r\nC\r\n      STRES(1) = PH1OUT(1)\r\n      STRES(2) = STRESS(1)\r\n      STRES(3) = STRESS(2)\r\n      STRES(4) = STRESS(3)\r\nC\r\nC     ******************************************************************\r\nC\r\nC     PRINCIPAL STRESSES AND ANGLE OF ACTION PHI\r\n      TEMP = STRES(2) - STRES(3)\r\n      STRES(8) = SQRT( (TEMP/2.0E0)**2 + STRES(4)**2 )\r\n      DELTA = (STRES(2) + STRES(3))/2.0E0\r\n      STRES(6) = DELTA + STRES(8)\r\n      STRES(7) = DELTA - STRES(8)\r\n      DELTA = 2.0E0 * STRES(4)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101\r\n      STRES(5) = ATAN2( DELTA,TEMP ) * 28.6478898 E00\r\n      RETURN\r\n  101 STRES(5) = 0.0E0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pthbdy.f",
    "content": "      SUBROUTINE PTHBDY\r\nC\r\nC     PTHBDY MODIFIES THE SIL,ECT,EQEXIN AND BGBDT FOR CHBDY ELEMENTS\r\nC     SO THEY CAN BE PLOTTED.\r\nC\r\nC     THE SIL BGPDT AND EQEXIN OUTPUT LOOKALIKES ARE ADD ON FILES\r\nC     THE ECT OUTPUT FILE HAS THE CHBDY FLAG SET NEGATIVE\r\nC     SO PLTSET CAN TELL THE ECTS APART IT ALSO HAS THE NEW GRID POINTS\r\nC\r\n      INTEGER         NAME(2),EPT,ECT,SIL,IEQ,BGPDT,HECT,HSIL,OEQ,\r\n     1                HBGPDT,GEOM2,SCR1,SCR2,FLAG,IZ(1),SYSBUF,OUT,\r\n     2                CBS(20),OSIL,FILE1,FILE2,VIEW(2),CHBDY(2),\r\n     3                PHBDY(2),BUF1,BUF2,BUF3,BUF4,BUF5,BUF6,TRL(7)\r\n      DIMENSION       NSIL(7),NEQ(14),TEM(3),E(3),V(3),R21(3)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / NHBDY,MESH(2)\r\n      COMMON /SYSTEM/ SYSBUF,OUT,DUM(6),NLPP\r\n      COMMON /CONDAS/ PI\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA    GEOM2 , ECT, EPT, SIL, IEQ, BGPDT                   /\r\n     1        101   , 102, 103, 104, 105,   106                   /\r\n      DATA    HECT  , HSIL, OEQ, HBGPDT, SCR1, SCR2               /\r\n     1        201   , 202,  203,    204,  301,  302               /\r\n      DATA    IYES  , NO    , NAME  ,         NPHBDY, NVIEW, NCB2 /\r\n     1        4HYES , 4HNO  , 4HPLNB, 4HDY  , 7     , 6    , 15   /\r\n      DATA    VIEW  ,         CHBDY  ,        PHBDY        , NECT /\r\n     1        2606  , 26    , 4208,42,        2502,25      , 15   /\r\nC\r\nC     PRINT FLAG CHBDY FLAG\r\nC\r\n      IPRT  = 0\r\n      IF (MESH(1) .EQ. IYES) IPRT = 1\r\n      NHBDY = -1\r\n      LINE  = NLPP\r\nC\r\nC     INITIALIZE\r\nC\r\n      BUF1 = KORSZ(Z(1)) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF  - 1\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      BUF5 = BUF4 - SYSBUF\r\n      BUF6 = BUF5 - SYSBUF\r\n      CALL PRELOC (*1000,Z(BUF1),GEOM2)\r\n      CALL LOCATE (*1000,Z(BUF1),CHBDY,N)\r\nC\r\nC     MAKE A SCRATCH FILE WITH EID AF DISLIN FOR CHBDY\r\nC\r\n      IPN  = 0\r\n      IVEW = 0\r\n      CALL PRELOC (*25,Z(BUF2),EPT)\r\n      FILE1 = EPT\r\n      CALL LOCATE (*15,Z(BUF2),PHBDY,N)\r\n      CALL READ (*1002,*10,EPT,Z(1),BUF3,0,N)\r\n      GO TO 1008\r\n   10 IPN = N\r\n   15 IPV = IPN + 1\r\n      NRD = BUF3 - IPV\r\n      CALL LOCATE (*25,Z(BUF2),VIEW,N)\r\n      CALL READ (*1002,*20,EPT,Z(IPV),NRD,0,N)\r\n      GO TO 1008\r\n   20 IVEW = N\r\n   25 CALL CLOSE (EPT,1)\r\n      CALL GOPEN (SCR1,Z(BUF2),1)\r\n      FILE1 = GEOM2\r\n   30 CALL READ (*1002,*70,GEOM2,CBS,NCB2,0,N)\r\n      TEM(1) = 0.0\r\n      TEM(2) = 0.0\r\n      IF (IPN .EQ. 0) GO TO 40\r\n      DO 35 I = 1,IPN,NPHBDY\r\n      IF (CBS(2) .NE. IZ(I)) GO TO 35\r\n      TEM(1) = Z(I+2)\r\n      GO TO 40\r\n   35 CONTINUE\r\n   40 IF (IVEW    .EQ. 0) GO TO 65\r\n      IF (CBS(15) .EQ. 0) GO TO 65\r\n      DO 60 I = 1,IVEW,NVIEW\r\n      IF (CBS(15) .NE. IZ(IPN+I)) GO TO 60\r\n      TEM(2) = Z(IPN+I+5)\r\n      IF (IPRT .EQ.    0) GO TO 65\r\n      IF (LINE .LT. NLPP) GO TO 50\r\n      LINE = 1\r\n      CALL PAGE1\r\n      WRITE  (OUT,45)\r\n   45 FORMAT (1H0,17X,5HIDENT,8X,4HBETA,7X,5HGAMMA,9X,3HCAN,6X,6HCAN BE,\r\n     1       /6X,5HCHBDY,6X,6HNUMBER,8X,4HMESH,8X,4HMESH,7X,5HSHADE,6X,\r\n     2       6HSHADED,5X,7HDISLIN ,/)\r\n   50 NB = IYES\r\n      NS = IYES\r\n      IF (IZ(IPN+I+1) .EQ. 0) NB = NO\r\n      IF (IZ(IPN+I+2) .EQ. 0) NS = NO\r\n      LINE = LINE+1\r\n      WRITE (OUT,55) CBS(1),IZ(IPN+I),IZ(IPN+I+3),IZ(IPN+I+4),NB,NS,\r\n     1               TEM(2)\r\n   55 FORMAT (1H ,4(I10,2X),6X,A4,8X,A4,2X,1P,E10.4)\r\n      GO TO 65\r\n   60 CONTINUE\r\n   65 CALL WRITE (SCR1,TEM,2,0)\r\n      GO TO 30\r\n   70 CALL WRITE (SCR1,0,0,1)\r\n      CALL CLOSE (SCR1 ,1)\r\n      CALL CLOSE (GEOM2,1)\r\n      CALL GOPEN (SCR1,Z(BUF1),0)\r\n      TRL(1) = SIL\r\n      CALL RDTRL (TRL)\r\n      OSIL   = TRL(3)\r\n      TRL(1) = BGPDT\r\n      CALL RDTRL (TRL)\r\n      NIN = TRL(2)\r\n      NRD = 4*TRL(2)\r\n      IF (5*SYSBUF+NRD+50 .GT. BUF1) GO TO 1008\r\nC\r\nC     FIND CHBDY CARDS COPY ECT TO CHBDY CARDS\r\nC\r\n      CALL GOPEN (ECT,Z(BUF2),0)\r\n      CALL GOPEN (HECT,Z(BUF3),1)\r\n      FILE1 = ECT\r\n   80 CALL READ (*1000,*1000,ECT,CBS,3,0,N)\r\n      CALL WRITE (HECT,CBS,3,0)\r\n      IF (CBS(1).EQ.CHBDY(1) .AND. CBS(2).EQ.CHBDY(2)) GO TO 95\r\nC\r\nC     DUPE REST OF RECORD\r\nC\r\n   85 CALL READ (*1002,*90,ECT,Z(1),BUF6-1,0,N)\r\n      CALL WRITE (HECT,Z(1),BUF6-1,0)\r\n      GO TO 85\r\n   90 CALL WRITE (HECT,Z(1),N,1)\r\n      GO TO 80\r\nC\r\nC     COPY SIL EQEXIN TO NEW FILES\r\nC\r\n   95 ICORE = BUF6 - 1\r\n      ILFT  = 1\r\n      FILE1 = SIL\r\n      FILE2 = HSIL\r\n      N     = BUF4\r\n      LEQ   = 0\r\n  100 CALL GOPEN (FILE1,Z(BUF6),0)\r\n      CALL GOPEN (FILE2,Z(N),1)\r\n  105 CALL READ (*1002,*120,FILE1,Z(ILFT),ICORE,0,M)\r\n      IF (FILE1 .NE. IEQ) GO TO 115\r\n      DO 110 I = 1,ICORE,2\r\n      IF (IZ(I) .GT. LEQ) LEQ = IZ(I)\r\n  110 CONTINUE\r\n  115 CALL WRITE (FILE2,Z(ILFT),ICORE,0)\r\n      GO TO 105\r\n  120 IF (FILE1 .NE. IEQ) GO TO 130\r\n      DO 125 I = 1,M,2\r\n      IF (IZ(I) .GT. LEQ) LEQ = IZ(I)\r\n  125 CONTINUE\r\n  130 CALL WRITE (FILE2,Z(ILFT),M,0)\r\n      CALL CLOSE (FILE1,1)\r\n      IF (N .EQ. BUF5) GO TO 150\r\n      FILE1 = IEQ\r\n      FILE2 = OEQ\r\n      N     = BUF5\r\n      GO TO 100\r\nC\r\nC     BRING IN BGPDT\r\nC\r\n  150 CALL GOPEN (BGPDT,Z(BUF6),0)\r\n      FILE1 = BGPDT\r\n      CALL READ (*1002,*1002,BGPDT,Z(1),NRD,0,N)\r\n      CALL CLOSE (BGPDT,1)\r\nC\r\nC     FINALLY TIME TO GO TO WORK\r\nC\r\n      NHBDY = 0\r\n      NNGP  = 0\r\n      NBGP  = NRD + 1\r\n      DO 155 I = 1,24\r\n      IZ(NRD+I) = 0\r\n  155 CONTINUE\r\n      FILE1 = ECT\r\n      CALL GOPEN (SCR2,Z(BUF6),1)\r\n  160 CALL READ (*1002,*350,ECT,CBS,NECT,0,N)\r\n      CBS(NECT) = 0.0\r\n      IF (CBS(3) .GT. 6) CBS(3) = 3\r\n      CALL READ (*1002,*1002,SCR1,TEM,2,0,N)\r\n      FLAG  = CBS(3)\r\n      NHBDY = NHBDY + 1\r\n      GO TO (200,250,260,270,280,260), FLAG\r\nC\r\nC     POINT\r\nC\r\nC\r\nC     BGPDT DATA FOR POINT\r\nC\r\n  200 I1 = (CBS(4)-1)*4 + 2\r\n      ITRY = 1\r\n      E(1) = 0.0\r\n      E(2) = 0.0\r\n      E(3) = 0.0\r\n      CALL SAPB (CBS(12),E,V)\r\n      CALL SANORM (*400,V)\r\n      E(1) = 1.0\r\n  205 XL = SADOTB(V,E)\r\n      R21(1) = E(1) - XL*V(1)\r\n      R21(2) = E(2) - XL*V(2)\r\n      R21(3) = E(3) - XL*V(3)\r\n      XL = SADOTB(R21,R21)\r\n      IF (XL  .GT. .2) GO TO 210\r\n      IF (ITRY .EQ. 2) GO TO 400\r\n      ITRY = 2\r\n      E(1) = 0.0\r\n      E(2) = 1.0\r\n      GO TO 205\r\n  210 CALL SANORM (*215,R21)\r\n  215 CALL SAXB (V,R21,E)\r\n      XL = 0.0\r\n      IF (TEM(1) .NE. 0.0) XL = SQRT(TEM(1)/PI)\r\n      ZS3 = .8660254\r\n      Z(NBGP+ 1) = Z(I1  ) + XL*R21(1)\r\n      Z(NBGP+ 2) = Z(I1+1) + XL*R21(2)\r\n      Z(NBGP+ 3) = Z(I1+2) + XL*R21(3)\r\n      Z(NBGP+ 5) = Z(I1  ) + XL*( .5*R21(1) + ZS3*E(1))\r\n      Z(NBGP+ 6) = Z(I1+1) + XL*( .5*R21(2) + ZS3*E(2))\r\n      Z(NBGP+ 7) = Z(I1+2) + XL*( .5*R21(3) + ZS3*E(3))\r\n      Z(NBGP+ 9) = Z(I1  ) + XL*(-.5*R21(1) + ZS3*E(1))\r\n      Z(NBGP+10) = Z(I1+1) + XL*(-.5*R21(2) + ZS3*E(2))\r\n      Z(NBGP+11) = Z(I1+2) + XL*(-.5*R21(3) + ZS3*E(3))\r\n      Z(NBGP+14) = Z(I1+1) - XL* R21(2)\r\n      Z(NBGP+15) = Z(I1+2) - XL* R21(3)\r\n      Z(NBGP+17) = Z(I1  ) + XL*(-.5*R21(1) - ZS3*E(1))\r\n      Z(NBGP+18) = Z(I1+1) + XL*(-.5*R21(2) - ZS3*E(2))\r\n      Z(NBGP+19) = Z(I1+2) + XL*(-.5*R21(3) - ZS3*E(3))\r\n      Z(NBGP+21) = Z(I1  ) + XL*(+.5*R21(1) - ZS3*E(1))\r\n      Z(NBGP+22) = Z(I1+1) + XL*(+.5*R21(2) - ZS3*E(2))\r\n      Z(NBGP+23) = Z(I1+2) + XL*(+.5*R21(3) - ZS3*E(3))\r\n      Z(NBGP+25) = Z(I1  ) + XL*V(1)\r\n      Z(NBGP+26) = Z(I1+1) + XL*V(2)\r\n      Z(NBGP+27) = Z(I1+2) + XL*V(3)\r\n      NNGP= NNGP + 7\r\n      NS  = 7\r\n      NEA = 14\r\n      NB  = 28\r\n      M   = 7\r\n      N   = 5\r\n  220 NN  = 1\r\n      DO 225 I = 1,M\r\n      LEQ = LEQ + 1\r\n      NIN = NIN + 1\r\n      NSIL(I) = NIN\r\n      NEQ(NN) = LEQ\r\n      NEQ(NN+1) = NIN\r\n      CBS(N   ) = NIN\r\n      NN  = NN + 2\r\n      N   = N  + 1\r\n  225 CONTINUE\r\n      GO TO 300\r\nC\r\nC     LINE\r\nC\r\nC\r\nC     BGPDT DATA FOR LINE\r\nC\r\n  250 I1 = (CBS(4)-1)*4 + 2\r\n      I2 = (CBS(5)-1)*4 + 2\r\n      CALL SAMB (Z(I2),Z(I1),R21)\r\n      XL = SADOTB(R21,R21)\r\n      IF (XL .EQ. 0.0) GO TO 400\r\n      X1 = SADOTB(R21,CBS(12))\r\n      XL = X1/XL\r\n      E(1) = XL*R21(1)\r\n      E(2) = XL*R21(2)\r\n      E(3) = XL*R21(3)\r\n      CALL SAMB (CBS(12),E,V)\r\n      CALL SANORM (*400,V)\r\n      CALL SAXB   (V,R21,E)\r\n      CALL SANORM (*400,E)\r\n      D  = TEM(2)\r\n      AF = TEM(1)*.5\r\n      Z(NBGP+ 1) = Z(I1  ) + D*V(1) - AF*E(1)\r\n      Z(NBGP+ 2) = Z(I1+1) + D*V(2) - AF*E(2)\r\n      Z(NBGP+ 3) = Z(I1+2) + D*V(3) - AF*E(3)\r\n      Z(NBGP+ 5) = Z(I2  ) + D*V(1) - AF*E(1)\r\n      Z(NBGP+ 6) = Z(I2+1) + D*V(2) - AF*E(2)\r\n      Z(NBGP+ 7) = Z(I2+2) + D*V(3) - AF*E(3)\r\n      Z(NBGP+ 9) = Z(I2  ) + D*V(1) + AF*E(1)\r\n      Z(NBGP+10) = Z(I2+1) + D*V(2) + AF*E(2)\r\n      Z(NBGP+11) = Z(I2+2) + D*V(3) + AF*E(3)\r\n      Z(NBGP+13) = Z(I1  ) + D*V(1) + AF*E(1)\r\n      Z(NBGP+14) = Z(I1+1) + D*V(2) + AF*E(2)\r\n      Z(NBGP+15) = Z(I1+2) + D*V(3) + AF*E(3)\r\n      Z(NBGP+17) = Z(I1  ) + D*V(1) + .5*R21(1)\r\n      Z(NBGP+18) = Z(I1+1) + D*V(2) + .5*R21(2)\r\n      Z(NBGP+19) = Z(I1+2) + D*V(3) + .5*R21(3)\r\n      Z(NBGP+21) = Z(NBGP+17) + 2.*AF*V(1)\r\n      Z(NBGP+22) = Z(NBGP+18) + 2.*AF*V(2)\r\n      Z(NBGP+23) = Z(NBGP+19) + 2.*AF*V(3)\r\n      NNGP= NNGP + 6\r\n      NS  = 6\r\n      NEA = 12\r\n      NB  = 24\r\n      M   = 6\r\n      N   = 6\r\n      GO TO 220\r\nC\r\nC     REV  OR  ELIP   DO NOTHING\r\nC\r\n  260 GO TO 310\r\nC\r\nC     AREA3\r\nC\r\nC     BGPDT DATA FOR AREA3\r\nC\r\n  270 I1 = (CBS(4)-1)*4 + 2\r\n      I2 = (CBS(5)-1)*4 + 2\r\n      I3 = (CBS(6)-1)*4 + 2\r\n      CALL SAMB (Z(I2),Z(I1),E)\r\n      CALL SAMB (Z(I3),Z(I1),V)\r\n      CALL SAXB (E,V,E)\r\n      CALL SANORM (*400,E)\r\n      CALL SAMB (Z(I2),Z(I1),V)\r\n      X1 = SADOTB(V,V)\r\n      CALL SAMB (Z(I3),Z(I1),V)\r\n      X2 = SADOTB(V,V)\r\n      CALL SAMB (Z(I3),Z(I2),V)\r\n      X3 = SADOTB(V,V)\r\n      X1 = AMAX1(X1,X2)\r\n      X1 = AMAX1(X1,X3)\r\n      XL = .25* SQRT(X1)\r\n      CALL SAPB (Z(I1),Z(I2),V)\r\n      CALL SAPB (Z(I3),V,V)\r\n      Z(NBGP+1) = V(1)/3.0\r\n      Z(NBGP+2) = V(2)/3.0\r\n      Z(NBGP+3) = V(3)/3.0\r\n      Z(NBGP+5) = Z(NBGP+1) + XL*E(1)\r\n      Z(NBGP+6) = Z(NBGP+2) + XL*E(2)\r\n      Z(NBGP+7) = Z(NBGP+3) + XL*E(3)\r\n  275 NNGP= NNGP + 2\r\n      NS  = 2\r\n      NEA = 4\r\n      NB  = 8\r\n      LEQ = LEQ + 1\r\n      NIN = NIN + 1\r\n      N   = 7\r\n      IF (FLAG .EQ. 5) N = 8\r\n      NSIL(1)= NIN\r\n      NEQ(1) = LEQ\r\n      NEQ(2) = NIN\r\n      CBS(N) = NIN\r\n      LEQ = LEQ + 1\r\n      NIN = NIN + 1\r\n      NSIL( 2) = NIN\r\n      NEQ ( 3) = LEQ\r\n      NEQ ( 4) = NIN\r\n      CBS(N+1) = NIN\r\n      CBS(N+2) = NIN\r\n      CBS(N+3) = NIN\r\n      IF (FLAG .EQ. 4) CBS(N+4) = NIN\r\n      GO TO 300\r\nC\r\nC     AREA4\r\nC\r\nC     BGPDT DATA FOR AREA4\r\nC\r\n  280 I1 = (CBS(4)-1)*4 + 2\r\n      I2 = (CBS(5)-1)*4 + 2\r\n      I3 = (CBS(6)-1)*4 + 2\r\n      I4 = (CBS(7)-1)*4 + 2\r\n      CALL SAMB (Z(I3),Z(I1),E)\r\n      CALL SAMB (Z(I4),Z(I2),V)\r\n      CALL SAXB (E,V,E)\r\n      CALL SANORM (*400,E)\r\n      CALL SAMB (Z(I2),Z(I1),V)\r\n      X1 = SADOTB(V,V)\r\n      CALL SAMB (Z(I3),Z(I2),V)\r\n      X2 = SADOTB(V,V)\r\n      CALL SAMB (Z(I4),Z(I3),V)\r\n      X3 = SADOTB(V,V)\r\n      CALL SAMB (Z(I4),Z(I1),V)\r\n      X4 = SADOTB(V,V)\r\n      X1 = AMAX1(X1,X2)\r\n      X1 = AMAX1(X1,X3)\r\n      X1 = AMAX1(X1,X4)\r\n      XL = .25* SQRT(X1)\r\n      CALL SAPB (Z(I1),Z(I2),V)\r\n      CALL SAPB (V,Z(I3),V)\r\n      CALL SAPB (V,Z(I4),V)\r\n      Z(NBGP+1) = .25*V(1)\r\n      Z(NBGP+2) = .25*V(2)\r\n      Z(NBGP+3) = .25*V(3)\r\n      Z(NBGP+5) = Z(NBGP+1) + XL*E(1)\r\n      Z(NBGP+6) = Z(NBGP+2) + XL*E(2)\r\n      Z(NBGP+7) = Z(NBGP+3) + XL*E(3)\r\n      GO TO 275\r\nC\r\nC     ADD TO HSIL HEQEXIN  HECT\r\nC     BGPDT\r\nC\r\n  300 CALL WRITE (HSIL,NSIL,NS,0)\r\n      CALL WRITE (OEQ,NEQ,NEA,0)\r\n      CALL WRITE (SCR2,Z(NBGP),NB,0)\r\n  310 CBS(3) = -CBS(3)\r\n      CALL WRITE (HECT,CBS,NECT,0)\r\n      GO TO 160\r\nC\r\nC     END CLOSE FILES, WRITE NBGPDT, WRITE TRAILERS THEN FINISH ECT COPY\r\nC\r\n  350 CALL WRITE (HSIL,0,0,1)\r\n      CALL WRITE (OEQ ,0,0,1)\r\n      CALL WRITE (HECT,0,0,1)\r\n      CALL WRITE (SCR2,0,0,1)\r\n      CALL CLOSE (SCR2,1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (HSIL,1)\r\n      CALL CLOSE (OEQ ,1)\r\n      CALL GOPEN (HBGPDT,Z(BUF1),1)\r\n      CALL WRITE (HBGPDT,Z,NRD,0)\r\n      IF (NNGP .EQ. 0) GO TO 380\r\n      FILE1 = SCR2\r\n      CALL GOPEN (SCR2,Z(BUF6),0)\r\n  360 CALL READ (*1002,*370,SCR2,Z(1),BUF6-1,0,N)\r\n      CALL WRITE (HBGPDT,Z(1),BUF6-1,0)\r\n      GO TO 360\r\n  370 CALL WRITE (HBGPDT,Z(1),N,1)\r\n      CALL CLOSE (SCR2,1)\r\n  380 CALL CLOSE (HBGPDT,1)\r\n      TRL(1) = HBGPDT\r\n      TRL(2) = NRD/4  + NNGP\r\n      CALL WRTTRL (TRL)\r\n      TRL(1) = OEQ\r\n      CALL WRTTRL (TRL)\r\n      TRL(1) = HSIL\r\n      TRL(3) = NNGP + OSIL\r\n      CALL WRTTRL (TRL)\r\n      TRL(1) = ECT\r\n      CALL RDTRL (TRL)\r\n      TRL(1) = HECT\r\n      CALL WRTTRL (TRL)\r\n      FILE1  = ECT\r\n      GO TO 80\r\nC\r\nC     BAD GEOMETRY FOR ELEMENT\r\nC\r\n  400 CBS(3) = -CBS(3)\r\n      NHBDY  = NHBDY - 1\r\n      WRITE  (OUT,410) UWM,CBS(1)\r\n  410 FORMAT (A25,', CHBDY ELEMENT',I9,' HAS NO NORMAL OR BAD GEOMETRY',\r\n     1       ' WHICH MAKES IT UNPLOTTABLE')\r\n      GO TO 310\r\nC\r\nC     RETURN OR ERROR MESSAGES\r\nC\r\n 1000 CALL CLOSE (ECT,1)\r\n      CALL CLOSE (HECT,1)\r\n      CALL CLOSE (GEOM2,1)\r\n      RETURN\r\nC\r\n 1002 CALL MESAGE (-2,0,FILE1)\r\n 1008 CALL MESAGE (-8,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ptintr.f",
    "content": "      SUBROUTINE PTINTR (A,AA,B,BB,S,K,EPS)\r\nC\r\nC     RETURNS DOUBLE PRECISION VALUES OF X,Y COORDINATES (S) OF\r\nC         POINT OF INTERSECTION (IF ANY) OF LINE SEGMENTS\r\nC         FROM A TO AA AND B TO BB\r\nC           A .NE. AA  AND  B .NE. BB\r\nC     K IS CONDITION FLAG RETURNED --\r\nC         K = 1   LINES INTERSECT AT S\r\nC         K = 0   LINES INTERSECT AT S, AN ENDPOINT OF ONE LINE SEGMENT\r\nC         K =-1   LINES DO NOT INTERSECT\r\nC\r\n      DOUBLE PRECISION A(2),AA(2),B(2),BB(2),P(2),S(2)\r\n      DOUBLE PRECISION AX,AY,BX,BY,AAA,PA,PAA,BBB,PB,PBB\r\n      DOUBLE PRECISION EPS(2),D\r\n      DOUBLE PRECISION DIST,X,Y,U,V\r\nC\r\nC     EPS ARRAY FOR SIGNIFICANCE TESTING\r\nC         EPS(1) IS AREA, ANGLE LIMIT\r\nC         EPS(2) IS LENGTH LIMIT\r\nC\r\nC\r\nC     DOUBLE PRECISION FUNCTION FOR DISTANCE BETWEEN 2 POINTS\r\nC\r\n      DIST(X,Y,U,V) = (X-U)**2 +(Y-V)**2\r\nC\r\n      X    = 0.D0\r\n      Y    = X\r\n      U    = X\r\n      V    = X\r\n      P(1) = 0.D0\r\n      P(2) = 0.D0\r\n      S(1) = 0.D0\r\n      S(2) = 0.D0\r\nC\r\n      K  =-1\r\nC\r\n      AX = AA(1) - A(1)\r\n      AY = AA(2) - A(2)\r\n      BX = BB(1) - B(1)\r\n      BY = BB(2) - B(2)\r\nC\r\n      AAA= AX**2 + AY**2\r\n      BBB= BX**2 + BY**2\r\n      D  = BX*AY - AX*BY\r\nC\r\nC     IS EITHER LINE TOO SHORT?\r\nC\r\n      IF (AAA.LE.EPS(1) .OR. BBB.LE.EPS(1)) RETURN\r\nC\r\nC     ARE A AND B PARALLEL?\r\nC\r\n      IF (DABS(D) .GT. EPS(1)) GO TO 80\r\nC\r\nC     A AND B ARE PARALLEL -- ARE THEY SAME LINE?\r\nC\r\n      P(1) = B(1)\r\n      P(2) = B(2)\r\n      IF (DIST(B(1),B(2), A(1), A(2)) .LE. EPS(1) .OR.\r\n     1    DIST(B(1),B(2),AA(1),AA(2)) .LE. EPS(1)) GO TO 100\r\n      P(1) = BB(1)\r\n      P(2) = BB(2)\r\n      IF (DIST(BB(1),BB(2), A(1), A(2)) .LE. EPS(1) .OR.\r\n     1    DIST(BB(1),BB(2),AA(1),AA(2)) .LE. EPS(1)) GO TO 100\r\nC\r\nC     A PARALLEL TO B AND NOT SAME LINE\r\nC\r\n      RETURN\r\nC\r\nC     IS A PARALLEL TO Y AXIS?\r\nC\r\n   80 IF (DABS(AX) .GT. EPS(2)) GO TO 90\r\n      P(1) = A(1)\r\n      P(2) = B(2) + (P(1)-B(1))*BY/BX\r\n      GO TO 100\r\n   90 P(1) = ((B(2)-A(2))*AX*BX + A(1)*AY*BX-B(1)*AX*BY)/D\r\n      P(2) =  A(2) + (P(1)-A(1))*AY/AX\r\nC\r\n  100 AAA = AAA + EPS(1)\r\n      BBB = BBB + EPS(1)\r\n      PA  = DIST(P(1),P(2), A(1), A(2))\r\n      PB  = DIST(P(1),P(2), B(1), B(2))\r\n      PAA = DIST(P(1),P(2),AA(1),AA(2))\r\n      PBB = DIST(P(1),P(2),BB(1),BB(2))\r\nC\r\nC     POINT OF INTERSECTION NOT ON EITHER SEGMENT\r\nC\r\n      IF (PA.GT.AAA .OR. PAA.GT.AAA .OR. PB.GT.BBB .OR. PBB.GT.BBB)\r\n     1    RETURN\r\nC\r\nC     LINES INTERSECT AT P\r\nC\r\n      K    = 1\r\n      S(1) = P(1)\r\n      S(2) = P(2)\r\nC\r\nC     LINES INTERSECT AT P, AN ENDPOINT OF ONE SEGMENT\r\nC\r\n      IF ((PA.LT.EPS(2) .OR. PAA.LT.EPS(2)) .OR.\r\n     1    (PB.LT.EPS(2) .OR. PBB.LT.EPS(2))) K= 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/pull.f",
    "content": "      SUBROUTINE PULL (BCD,OUT,ICOL,NCHAR,FLAG)\r\nC\r\nC     THIS ROUTINE EXTRACTS BCD DATA (OUT) FROM A STRING,(BCD)\r\nC     STARTING AT POSITION ICOL\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         FIRST\r\n      INTEGER         BCD(1),OUT(1),FLAG,CPERWD,BLANK,ORF\r\n      COMMON /SYSTEM/ IDUM(38),NBPC,NBPW,NCPW\r\n      DATA    CPERWD/ 4 /, BLANK / 4H     /, FIRST / .TRUE. /\r\nC\r\n      NWDS  = (NCHAR-1)/CPERWD + 1\r\n      IF (.NOT.FIRST) GO TO 5\r\n      FIRST = .FALSE.\r\n      NX    = NCPW - CPERWD\r\n      IXTRA = NX*NBPC\r\n      IBL   = 0\r\n      IB1   = KRSHFT(BLANK,NCPW-1)\r\n      IF (NX .EQ. 0) GO TO 5\r\n      DO 2 I = 1,NX\r\n      IBL = ORF(IBL,KLSHFT(IB1,I-1))\r\n    2 CONTINUE\r\n    5 DO 10 I = 1,NWDS\r\n   10 OUT(I) = IBL\r\nC\r\n      IWD = (ICOL-1)/CPERWD + 1\r\n      M1  = (ICOL-(IWD-1)*CPERWD-1)*NBPC\r\n      M2  = CPERWD*NBPC - M1\r\nC\r\n      DO 20 I = 1,NWDS\r\n      IBCD   = IWD + I - 1\r\n      ITEMP  = KRSHFT(BCD(IBCD),IXTRA/NBPC)\r\n      OUT(I) = ORF(OUT(I),KLSHFT(ITEMP,(M1+IXTRA)/NBPC))\r\n      ITEMP  = KRSHFT(BCD(IBCD+1),(M2+IXTRA)/NBPC)\r\n      OUT(I) = ORF(OUT(I),KLSHFT(ITEMP,IXTRA/NBPC))\r\n   20 CONTINUE\r\n      IF (NWDS*CPERWD .EQ. NCHAR) RETURN\r\nC\r\nC     REMOVE EXTRA CHARACTERS FROM LAST OUT WORD\r\nC\r\n      NBL   = (NWDS-1)*CPERWD + NCPW - NCHAR\r\n      LWORD = KRSHFT(OUT(NWDS),NBL)\r\n      OUT(NWDS) = KLSHFT(LWORD,NBL)\r\nC\r\n      ITEMP = 0\r\n      DO 40 I = 1,NBL\r\n      ITEMP = ORF(ITEMP,KLSHFT(IB1,I-1))\r\n   40 CONTINUE\r\n      OUT(NWDS) = ORF(OUT(NWDS),ITEMP)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/push.f",
    "content": "      SUBROUTINE PUSH (IN,BCD,ICOL,NCHAR,FLAG)\r\nC\r\nC     THIS ROUTINE IS USED TO PLACE BCD CHARACTERS OR INTEGERS FROM II\r\nC     ARRAY INTO THE BCD STRING . IF FLAG = 1 AN INTEGER IS INPUT\r\nC\r\n      EXTERNAL        ORF\r\n      LOGICAL         FIRST\r\n      INTEGER         ORF,FLAG,BCD(1),CPERWD,IN(1),II(18),BLANK,\r\n     1                DIGIT,NUMBS(10)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ ISYS,IOUT,NOGO,IDUM(35),NBPC,NBPW,NCPW\r\n      DATA    NUMBS / 1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9 /\r\n      DATA    CPERWD/ 4 /, FIRST / .TRUE. /, BLANK /1H  /,\r\n     1        MINUS / 4H-   /\r\nC\r\n      IF (.NOT.FIRST) GO TO 15\r\n      FIRST = .FALSE.\r\nC\r\nC     REMOVE BLANKS FROM NUMBERS, AND ZERO FILL\r\nC\r\n      ISH   = NCPW - 1\r\n      DO 5 I = 1,10\r\n      ISAVE = KRSHFT(NUMBS(I),ISH)\r\n      NUMBS(I) = KLSHFT(ISAVE,ISH)\r\n    5 CONTINUE\r\n      ISAVE = KRSHFT(MINUS,ISH)\r\n      MINUS = KLSHFT(ISAVE,ISH)\r\n      NX    = NCPW - CPERWD\r\n      IXTRA = NX*NBPC\r\n      IBL   = 0\r\n      IF (NX .EQ. 0) GO TO 15\r\n      IB1   = KRSHFT(BLANK,ISH)\r\n      DO 10 I = 1,NX\r\n      IBL   = ORF(IBL,KLSHFT(IB1,I-1))\r\n   10 CONTINUE\r\nC\r\n   15 IF (NCHAR .LE. 0) RETURN\r\n      IF (NCHAR+ICOL .GT. 128) GO TO 70\r\n      NIN   = (NCHAR-1)/CPERWD + 1\r\n      DO 20 I = 1,NIN\r\n   20 II(I) = IN(I)\r\n      IF (FLAG .NE. 1) GO TO 50\r\nC\r\nC     INTEGER HAS BEEN INPUT - 1 WORD ONLY\r\nC\r\nC     FIND POWER OF 10 = NUMBER OF CHARACTERS\r\nC\r\n      IX    = IABS(IN(1))\r\n      DO 25 I = 1,8\r\n      IX    = IX/10\r\n      IF (IX .EQ. 0) GO TO 30\r\n   25 CONTINUE\r\n      GO TO 80\r\n   30 IC    = I\r\n      IF (IN(1) .LT.  0) IC = IC + 1\r\n      IF (IC .GT. NCHAR) GO TO 80\r\n      II(2) = BLANK\r\n      IX    = IABS(IN(1))\r\n      IF (IC .LE. CPERWD) GO TO 40\r\nC\r\nC     NUMBER TAKES TWO WORDS\r\nC\r\n      M     = IC - CPERWD\r\n      II(2) = KRSHFT(BLANK,M)\r\n      DO 35 I = 1,M\r\n      IJ    = IX/10\r\n      DIGIT = IABS(IX-10*IJ) + 1\r\n      IX    = IJ\r\n      IADD  = NUMBS(DIGIT)\r\n      II(2) = ORF(II(2),KRSHFT(IADD,M-I))\r\n   35 CONTINUE\r\nC\r\n      IC    = CPERWD\r\nC\r\nC     FIRST WORD SET HERE FOR BOTH CASES\r\nC\r\n   40 II(1) = KRSHFT(BLANK,IC)\r\n      DO 45 I = 1,IC\r\n      IF (I.EQ.IC .AND. IN(1).LT.0) GO TO 45\r\n      IJ    = IX/10\r\n      DIGIT = IABS(IX-10*IJ) + 1\r\n      IX    = IJ\r\n      IADD  = NUMBS(DIGIT)\r\n      II(1) = ORF(II(1),KRSHFT(IADD,IC-I))\r\n   45 CONTINUE\r\n      IF (IN(1) .LT. 0) II(1) = ORF(II(1),MINUS)\r\nC\r\n   50 IWRD  = (ICOL-1)/CPERWD + 1\r\n      ICL   = ICOL - (IWRD-1)*CPERWD\r\n      LWRD  = (ICOL+NCHAR-2)/CPERWD + 1\r\n      LCOL  = ICOL + NCHAR - (LWRD-1)*CPERWD - 1\r\n      M1    = (ICL-1)*NBPC\r\n      M2    = CPERWD*NBPC - M1\r\n      M3    = M2 + (NCPW-CPERWD)*NBPC\r\nC\r\nC     M1 IS THE NUMBER OF BITS FOR THE  FIRST SET OF CHARACTERS\r\nC     M2 IS THE NUMBER OF BITS FOR THE SECOND SET OF CHARACTERS\r\nC     M3 IS THE NUMBER OF BITS FOR THE RIGHT HALF OF THE WORD\r\nC\r\nC     IADD IS THE CURRENT WORKING WORD, IADD1 IS THE SPILL\r\nC\r\n      ISAVE = KRSHFT(BCD(IWRD),M3/NBPC)\r\n      IADD1 = KLSHFT(ISAVE,M3/NBPC)\r\n      K = 0\r\n      DO 60 I = IWRD,LWRD\r\n      K = K + 1\r\nC\r\nC     SPLIT INPUT WORD INTO TWO SETS\r\nC\r\nC     MOVE LEFT HALF TO RIGHT SIDE OF IADD AND ADD IADD1\r\nC\r\n      ISAVE = KRSHFT(II(K),(M1+IXTRA)/NBPC)\r\n      IADD  = ORF(KLSHFT(ISAVE,IXTRA/NBPC),IADD1)\r\nC\r\nC     IF THIS ISNT THE LAST WORD MOVE THE RIGHT HALF TO IADD1 AND INSERT\r\nC\r\n      IF (I .GE. LWRD) GO TO 60\r\n      ISAVE = KRSHFT(II(K),IXTRA/NBPC)\r\n      IADD1 = KLSHFT(ISAVE,M3/NBPC)\r\nC\r\n      BCD(I) = ORF(IADD,IBL)\r\nC\r\n   60 CONTINUE\r\nC\r\nC     LAST WORD PROCESSED HERE, REMOVE EXTRA CHARACTERS\r\nC\r\n      ISH   = NCPW - LCOL\r\n      ISAVE = KRSHFT(IADD ,ISH)\r\n      IADD  = KLSHFT(ISAVE,ISH)\r\n      ISAVE = KLSHFT(BCD(LWRD),LCOL)\r\n      BCD(LWRD) = ORF(IADD,KRSHFT(ISAVE,LCOL))\r\n      RETURN\r\nC\r\n   70 WRITE  (IOUT,75) UFM,NCHAR,IN\r\n   75 FORMAT (A23,' 6015. TOO MANY CHARACTERS TO BE INSERTED IN A DMAP',\r\n     1       ' LINE', /6X,4H N = , I8 ,6X, 6HWORD =,A4)\r\n      GO TO 90\r\n   80 WRITE  (IOUT,85) UFM,IN\r\n   85 FORMAT (A23,' 6016. TOO MANY DIGITS TO BE INSERTED IN DMAP.',\r\n     1       2X,'VALUE =',I12)\r\nC\r\n   90 NOGO = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q2bcd.f",
    "content": "      SUBROUTINE Q2BCD (EST,PLANAR,RMAT,ET,IERROR)\r\nC\r\nC     BASIC CALCULATIONS ARE PERFORMED FOR THE QDMEM2 ELEMENT IN THIS\r\nC     ROUTINE (DOUBLE-PRECISION VERSION)\r\nC\r\n      LOGICAL          PLANAR\r\n      REAL             EST(1)\r\n      DOUBLE PRECISION MAG    ,D12(3) ,G1(3) ,IAREA  ,D13(3),GRID(3,5),\r\n     1                 G2(3)  ,ITWOH  ,D24(3),VEC(3) ,G3(3) ,ET(3,3)  ,\r\n     2                 G5(3)  ,G4(3)  ,DADOTB,RMAT(3,5)\r\n      EQUIVALENCE      (GRID(1,1),G1(1)),(GRID(1,2),G2(1)),\r\n     1                 (GRID(1,3),G3(1)),(GRID(1,4),G4(1)),\r\n     2                 (GRID(1,5),G5(1))\r\nC\r\nC     MOVE GRID COORDINATES AND MAKE DOUBLE-PRECISION IF THIS IS THE\r\nC     DOUBLE-PRECISION VERSION.\r\nC\r\n      DO 10 I = 1,3\r\n      G1(I) = EST(I+10)\r\n      G2(I) = EST(I+14)\r\n      G3(I) = EST(I+18)\r\n      G4(I) = EST(I+22)\r\n   10 CONTINUE\r\nC\r\nC     FORM  D   , D   AND  D   VECTORS\r\nC            13    24       12\r\nC\r\n      DO 20 I = 1,3\r\n      D12(I) = G2(I) - G1(I)\r\n      D13(I) = G3(I) - G1(I)\r\n      D24(I) = G4(I) - G2(I)\r\n   20 CONTINUE\r\nC\r\nC     NVEC = D13 CROSS D24 = K-VECTOR (UN-NORMALIZED)\r\nC\r\n      CALL DAXB (D13,D24,VEC)\r\n      MAG   = DSQRT(DADOTB(VEC,VEC))\r\n      IAREA = 0.5D0*MAG\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      IF (MAG) 100,100,30\r\n   30 ET(1,3) = VEC(1)/MAG\r\n      ET(2,3) = VEC(2)/MAG\r\n      ET(3,3) = VEC(3)/MAG\r\nC\r\nC     H = .5 * (D   DOT K-VEC)\r\nC                12\r\nC\r\n      ITWOH = DADOTB(D12,ET(1,3))\r\nC\r\nC     I-VECTOR (UN-NORMALIZED) = (D  ) - 2 H (K-VECTOR)\r\nC                                  12\r\nC\r\n      DO 40 I = 1,3\r\n      VEC(I) = D12(I) - ITWOH*ET(I,3)\r\n   40 CONTINUE\r\n      MAG = DSQRT(DADOTB(VEC,VEC))\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      IF (MAG) 100,100,50\r\n   50 ET(1,1) = VEC(1)/MAG\r\n      ET(2,1) = VEC(2)/MAG\r\n      ET(3,1) = VEC(3)/MAG\r\nC\r\nC     JVEC = KVEC CROSS IVEC\r\nC\r\n      CALL DAXB (ET(1,3),ET(1,1),ET(1,2))\r\nC\r\nC     FILL THE SUB-TRIANGLE ELEMENT COORDINATE MATRIX\r\nC\r\n      DO 60 I = 1,3\r\n      G5(I) = 0.25D0*(G1(I) + G2(I) + G3(I) + G4(I))\r\n   60 CONTINUE\r\n      RMAT(1,1) = 0.0D0\r\n      RMAT(2,1) = 0.0D0\r\n      RMAT(3,1) =-ITWOH/2.0D0\r\n      DO 70 I = 2,5\r\n      VEC(1) = GRID(1,I) - G1(1)\r\n      VEC(2) = GRID(2,I) - G1(2)\r\n      VEC(3) = GRID(3,I) - G1(3)\r\n      CALL GMMATD (ET,3,3,0, VEC,3,1,0, RMAT(1,I))\r\n      RMAT(1,I) = RMAT(1,I) + RMAT(1,1)\r\n      RMAT(2,I) = RMAT(2,I) + RMAT(2,1)\r\n      RMAT(3,I) = RMAT(3,I) + RMAT(3,1)\r\n   70 CONTINUE\r\nC\r\nC     SET PLANAR FLAG .TRUE. OR .FALSE.\r\nC\r\n      IF ((ITWOH/2.0D0)**2/IAREA .LE. 0.01D0) GO TO 80\r\n      PLANAR = .FALSE.\r\n      GO TO 90\r\n   80 PLANAR = .TRUE.\r\nC\r\nC     ALL BASIC CALCULATIONS NOW COMPLETE\r\nC\r\n   90 IERROR = 0\r\n      RETURN\r\nC\r\nC     ERROR CONDITION, BAD ELEMENT GEOMETRY.\r\nC\r\n  100 IERROR = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q2bcs.f",
    "content": "      SUBROUTINE Q2BCS (EST,PLANAR,RMAT,ET,IERROR)\r\nC\r\nC     BASIC CALCULATIONS ARE PERFORMED FOR THE QDMEM2 ELEMENT IN THIS\r\nC     ROUTINE (SINGLE-PRECISION VERSION)\r\nC\r\n      LOGICAL     PLANAR\r\n      REAL        EST(1)\r\n      REAL        MAG   ,D12(3),G1(3) ,IAREA  ,D13(3) ,GRID(3,5),\r\n     1            G2(3) ,ITWOH ,D24(3),VEC(3) ,G3(3)  ,ET(3,3)  ,\r\n     2            G5(3) ,G4(3) ,SADOTB,RMAT(3,5)\r\n      EQUIVALENCE (GRID(1,1),G1(1)),(GRID(1,2),G2(1)),(GRID(1,3),G3(1)),\r\n     1            (GRID(1,4),G4(1)),(GRID(1,5),G5(1))\r\nC\r\nC     MOVE GRID COORDINATES\r\nC\r\n      DO 10 I = 1,3\r\n      G1(I) = EST(I+10)\r\n      G2(I) = EST(I+14)\r\n      G3(I) = EST(I+18)\r\n      G4(I) = EST(I+22)\r\n   10 CONTINUE\r\nC\r\nC     FORM  D   , D   AND  D   VECTORS\r\nC            13    24       12\r\nC\r\n      DO 20 I = 1,3\r\n      D12(I) = G2(I) - G1(I)\r\n      D13(I) = G3(I) - G1(I)\r\n      D24(I) = G4(I) - G2(I)\r\n   20 CONTINUE\r\nC\r\nC     NVEC  =  D13 CROSS D24 = K-VECTOR (UN-NORMALIZED)\r\nC\r\n      CALL SAXB (D13,D24,VEC)\r\n      MAG   =  SQRT (SADOTB(VEC,VEC))\r\n      IAREA = 0.5*MAG\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      IF (MAG) 100,100,30\r\n   30 ET(1,3) = VEC(1)/MAG\r\n      ET(2,3) = VEC(2)/MAG\r\n      ET(3,3) = VEC(3)/MAG\r\nC\r\nC     H = .5 * (D   DOT K-VEC)\r\nC                12\r\nC\r\n      ITWOH = SADOTB(D12,ET(1,3))\r\nC\r\nC     I-VECTOR (UN-NORMALIZED) = (D  ) - 2 H (K-VECTOR)\r\nC                                  12\r\nC\r\n      DO 40 I = 1,3\r\n      VEC(I) = D12(I) - ITWOH*ET(I,3)\r\n   40 CONTINUE\r\n      MAG =  SQRT(SADOTB(VEC,VEC))\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      IF (MAG) 100,100,50\r\n   50 ET(1,1) = VEC(1)/MAG\r\n      ET(2,1) = VEC(2)/MAG\r\n      ET(3,1) = VEC(3)/MAG\r\nC\r\nC     JVEC = KVEC CROSS IVEC\r\nC\r\n      CALL SAXB (ET(1,3),ET(1,1),ET(1,2))\r\nC\r\nC     FILL THE SUB-TRIANGLE ELEMENT COORDINATE MATRIX\r\nC\r\n      DO 60 I = 1,3\r\n      G5(I) = 0.25*(G1(I) + G2(I) + G3(I) + G4(I))\r\n   60 CONTINUE\r\n      RMAT(1,1) = 0.0\r\n      RMAT(2,1) = 0.0\r\n      RMAT(3,1) =-ITWOH/2.0\r\n      DO 70 I = 2,5\r\n      VEC(1) = GRID(1,I) - G1(1)\r\n      VEC(2) = GRID(2,I) - G1(2)\r\n      VEC(3) = GRID(3,I) - G1(3)\r\n      CALL GMMATS (ET,3,3,0, VEC,3,1,0, RMAT(1,I))\r\n      RMAT(1,I) = RMAT(1,I) + RMAT(1,1)\r\n      RMAT(2,I) = RMAT(2,I) + RMAT(2,1)\r\n      RMAT(3,I) = RMAT(3,I) + RMAT(3,1)\r\n   70 CONTINUE\r\nC\r\nC     SET PLANAR FLAG .TRUE. OR .FALSE.\r\nC\r\n      IF ((ITWOH/2.0)**2/IAREA .LE. 0.01) GO TO 80\r\n      PLANAR = .FALSE.\r\n      GO TO 90\r\n   80 PLANAR = .TRUE.\r\nC\r\nC     ALL BASIC CALCULATIONS NOW COMPLETE\r\nC\r\n   90 IERROR = 0\r\n      RETURN\r\nC\r\nC     ERROR CONDITION, BAD ELEMENT GEOMETRY.\r\nC\r\n  100 IERROR = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q2trmd.f",
    "content": "      SUBROUTINE Q2TRMD(RA,RB,RC,ALPHA,ISINTH,ICOSTH,GSUBE,IT,\r\n     1                  IERROR,IOPT,KMAT,PMAT,SMAT,ZMAT)\r\nC*****\r\nC  SUB-TRIANGLE COMPUTATION ROUTINE FOR THE QDMEM2 ELEMENT\r\nC\r\nC  ON INPUT\r\nC  ========\r\nC            RA,RB,RC = 3 (3X1) COORDINATE VECTORS FOR TRIANGLE\r\nC            IOPT     = 1  CALL FROM STIFFNESS GENERATION MODULE\r\nC                     = 2  CALL FROM STATIC LOAD MODULE\r\nC                     = 3  CALL FROM STRESS RECOVERY MODULE\r\nC            ALPHA    = 3X1 VECTOR APPROPRIATE FOR CALL\r\nC            ISINTH   = SIN OF MATERIAL ANGLE(WHOLE - ELEMENT)\r\nC            ICOSTH   = COS OF MATERIAL ANGLE(WHOLE - ELEMENT)\r\nC            GSUBE    = MATERIAL MATRIX (3X3)\r\nC            IT       = THICKNESS OF ELEMENT\r\nC\r\nC  ON OUTPUT\r\nC  =========\r\nC            IERROR = 0  IF NO ERROR\r\nC                   = 1  IF BAD ELEMENT GEOMETRY\r\nC\r\nC            KMAT,PMAT,SMAT,ZMAT = FOLLOWING PER IOPT VALUE SENT\r\nC\r\nC\r\nC            IOPT=1\r\nC            ------\r\nC            KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC            PMAT = UNCHANGED\r\nC            SMAT = UNCHANGED\r\nC            ZMAT = UNCHANGED\r\nC\r\nC            IOPT=2\r\nC            ------\r\nC            KMAT = 3 (3X3)-S = KCA,KCB,KCC\r\nC            PMAT = 3 (3X1)-S = PA,PB,PC\r\nC            SMAT = UNCHANGED\r\nC            ZMAT = UNCHANGED\r\nC\r\nC            IOPT=3\r\nC            ------\r\nC            KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC            PMAT = 3 (3X1)-S = PTA,PTB,PTC\r\nC            SMAT = 3 (3X3)-S = SA,SB,SC\r\nC            ZMAT = 3 (3X1)-S = ZA,ZB,ZC\r\nC\r\nC*****\r\n      DOUBLE PRECISION  ALPHA(3) ,E(9)     ,IAREAT   ,I33\r\n      DOUBLE PRECISION  RA(3)    ,KMAT(1)  ,ZMAT(1)  ,MAG      ,IVEC(3)\r\n      DOUBLE PRECISION  RB(3)    ,PMAT(1)  ,V12(3)   ,IAREA    ,JVEC(3)\r\n      DOUBLE PRECISION  RC(3)    ,SMAT(1)  ,V13(3)   ,IXSUBB   ,KVEC(3)\r\n      DOUBLE PRECISION  IC       ,ISINTH   ,CA(6)    ,IXSUBC   ,TM(9)\r\n      DOUBLE PRECISION  IS       ,ICOSTH   ,CB(6)    ,IYSUBC   ,TM3(3)\r\n      DOUBLE PRECISION  IT                 ,CC(6)    ,C(3,6)   ,ALP(3)\r\n      DOUBLE PRECISION  TEMP9(9) ,HI(27)   ,HITGE(9) ,GSUBE(9)\r\nC\r\n      DOUBLE PRECISION  DADOTB\r\nC\r\n      INTEGER           IPART(3,3)\r\nC\r\n      EQUIVALENCE (C(1,1),CA(1)), (C(1,3),CB(1)), (C(1,5),CC(1))\r\n      EQUIVALENCE (E(1),IVEC(1)), (E(4),JVEC(1)), (E(7),KVEC(1))\r\nC\r\n      DATA IPART/ 28,46,1,   37,55,10,   0,0,19 /\r\nC\r\nC     V    = R   - R   ,      V    = R   - R\r\nC      12     B     A          13     C     B\r\nC\r\n      DO 10 I = 1,3\r\n      V12(I) = RB(I) - RA(I)\r\n      V13(I) = RC(I) - RA(I)\r\n   10 CONTINUE\r\nC\r\nC     KVEC(UN-NORMALIZED)  =  V     X  V\r\nC                              12       13\r\nC\r\n      CALL DAXB( V12, V13, KVEC )\r\n      MAG = DSQRT( DADOTB(KVEC,KVEC) )\r\n      IF( MAG ) 190,190,20\r\nC\r\nC     NORMALIZE  K-VECTOR, AND AREA\r\nC\r\n   20 KVEC(1) = KVEC(1) / MAG\r\n      KVEC(2) = KVEC(2) / MAG\r\n      KVEC(3) = KVEC(3) / MAG\r\n      IAREA = 0.50D0 * MAG\r\nC\r\nC     I-VECTOR = V   (NORMALIZED) THUS\r\nC                 12\r\nC\r\n      MAG = DSQRT( DADOTB( V12, V12 ) )\r\n      IF( MAG ) 190,190,30\r\n   30 IVEC(1) = V12(1) / MAG\r\n      IVEC(2) = V12(2) / MAG\r\n      IVEC(3) = V12(3) / MAG\r\n      IXSUBB = MAG\r\nC\r\nC     J-VECTOR = K-VECTOR CROSS I-VECTOR THUS\r\nC\r\n      CALL DAXB( KVEC, IVEC, JVEC )\r\nC\r\nC     MATERIAL COEFFICIENTS C AND S    U,V,W = I-VECTOR\r\nC\r\n      MAG = DSQRT( IVEC(1)**2 + IVEC(2)**2 )\r\n      IF( MAG .LE. 0.D0 ) GO TO 190\r\n      IC =(IVEC(1)*ICOSTH + IVEC(2)*ISINTH)/MAG\r\n      IS =(IVEC(1)*ISINTH - IVEC(2)*ICOSTH)/MAG\r\nC\r\nC     X = MAGNITUDE OF V  , X = I-VEC DOT V  , Y = J-VEC DOT V\r\nC      B                12   C             13   C             13\r\nC\r\n      IXSUBC = DADOTB( IVEC, V13 )\r\n      IYSUBC = DADOTB( JVEC, V13 )\r\n      IF( IXSUBB ) 40,190,40\r\n   40 IF( IYSUBC ) 50,190,50\r\nC\r\n   50 CA(1) = -1.0D0 / IXSUBB\r\n      CA(2) = 0.0D0\r\n      I33 = 1.0D0 / IYSUBC\r\n      CA(3) = I33 * (IXSUBC/IXSUBB - 1.0D0)\r\n      CA(4) = 0.0D0\r\n      CA(5) = CA(3)\r\n      CA(6) = CA(1)\r\nC\r\n      CB(1) = -CA(1)\r\n      CB(2) = 0.0D0\r\n      CB(3) = - I33   * (IXSUBC / IXSUBB )\r\n      CB(4) = 0.0D0\r\n      CB(5) = CB(3)\r\n      CB(6) = CB(1)\r\nC\r\n      CC(1) = 0.0D0\r\n      CC(2) = 0.0D0\r\n      CC(3) = I33\r\n      CC(4) = 0.0D0\r\n      CC(5) = I33\r\n      CC(6) = 0.0D0\r\nC\r\nC     FORM MATERIAL-ORIENTATION-TRANSFORMATION-MATRIX  (BY-ROWS)\r\nC\r\n      TM(1) = IC * IC\r\n      TM(2) = IS * IS\r\n      TM(3) = IC * IS\r\n      TM(4) = TM(2)\r\n      TM(5) = TM(1)\r\n      TM(6) = -TM(3)\r\n      TM(7) = 2.0D0 * TM(6)\r\n      TM(8) = -TM(7)\r\n      TM(9) = TM(1) - TM(2)\r\n      IAREAT= IAREA * IT\r\nC\r\nC     IF SSG CALL MULTIPLY ALPHA(T-TO) VECTOR BY IAREAT\r\nC\r\n      IF( IOPT .NE. 2 ) GO TO 60\r\n      ALP(1) = ALPHA(1) * IAREAT\r\n      ALP(2) = ALPHA(2) * IAREAT\r\n      ALP(3) = ALPHA(3) * IAREAT\r\nC\r\nC     IF SDR CALL COMPUTE AREA   = X  * T\r\nC                                   B\r\n   60 IF( IOPT .NE. 3 ) GO TO 70\r\n      TM3(1) = TM(3) * IT\r\n      TM3(2) = TM(6) * IT\r\n      TM3(3) = TM(9) * IT\r\nC\r\nC     SET FIRST PARTITION ROW TO COMPUTE FOR STIFFNESS MATRICES.\r\nC\r\n   70 IROW1 = 1\r\n      IF( IOPT .EQ. 2 ) IROW1 = 3\r\nC*****\r\nC           M\r\nC     H  = T  C  E\r\nC      I       I\r\nC\r\nC*****\r\n      DO 80 I = 1,3\r\n      CALL GMMATD( TM,3,3,0, C(1,2*I-1),2,3,1, TEMP9 )\r\n      CALL GMMATD( TEMP9,3,2,0, E,2,3,0, HI(9*I-8) )\r\n   80 CONTINUE\r\nC*****\r\nC     FORM OUTPUTS FOR POINTS I = A,B,C\r\nC*****\r\n      DO 180 I = 1,3\r\nC\r\nC              T\r\nC     HITGE= H  G\r\nC             I  E\r\nC\r\n      CALL GMMATD( HI(9*I-8),3,3,1, GSUBE,3,3,0, HITGE )\r\nC\r\nC     STIFFNESS MATRIX CALCULATIONS\r\nC\r\nC     ONLY KAA,KAB     ARE FORMED.  OUTPUT ORDER WITH EACH 3X3 STORED\r\nC          KBA,KBB                  BY ROWS =\r\nC          KCA,KCB,KCC              KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC\r\n      IF( I .LT. IROW1 ) GO TO 150\r\n      KK = 0\r\n      DO 140 J = 1,3\r\n      IPARTN = IPART(I,J)\r\n      IF( IPARTN )140,140,90\r\n   90 DO 100 K = 1,9\r\n      KK = KK + 1\r\n      TEMP9(K) = HI(KK)*IAREAT\r\n  100 CONTINUE\r\n      CALL GMMATD( HITGE,3,3,0, TEMP9,3,3,0, KMAT(IPARTN) )\r\n  140 CONTINUE\r\n  150 GO TO(180,160,170),IOPT\r\nC****\r\nC  SSG LOAD GENERATION CALL ADDITIONAL DATA TO OUTPUT.\r\nC\r\nC  ONLY PA,PB,PC ARE FORMED.\r\nC*****\r\n  160 CALL GMMATD( HITGE,3,3,0,   ALP,3,1,0, PMAT(3*I-2) )\r\n      GO TO 180\r\nC*****\r\nC  SDR ADDITIONAL PHASE-1 STRESS OUTPUTS\r\nC*****\r\n  170 JPARTN = 9*I-8\r\n      CALL GMMATD( GSUBE,3,3,0, HI(JPARTN),3,3,0, SMAT(JPARTN) )\r\n      IPARTN = 3*I - 2\r\n      CALL GMMATD( HITGE,3,3,0, ALPHA,3,1,0, PMAT(IPARTN)  )\r\n      CALL GMMATD( TM3,3,1,1, SMAT(JPARTN),3,3,0, ZMAT(IPARTN) )\r\n      DO 175 J=1,3\r\n      K = IPARTN + J - 1\r\n      PMAT(K) = PMAT(K)*IAREAT\r\n  175 CONTINUE\r\nC\r\n  180 CONTINUE\r\n      IERROR = 0\r\n      RETURN\r\nC*****\r\nC  ERROR CONDITION, BAD GEOMETRY.\r\nC*****\r\n  190 IERROR = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q2trms.f",
    "content": "      SUBROUTINE Q2TRMS(RA,RB,RC,ALPHA,ISINTH,ICOSTH,GSUBE,IT,\r\n     1                  IERROR,IOPT,KMAT,PMAT,SMAT,ZMAT)\r\nC*****\r\nC  SUB-TRIANGLE COMPUTATION ROUTINE FOR THE QDMEM2 ELEMENT\r\nC\r\nC  ON INPUT\r\nC  ========\r\nC            RA,RB,RC = 3 (3X1) COORDINATE VECTORS FOR TRIANGLE\r\nC            IOPT     = 1  CALL FROM STIFFNESS GENERATION MODULE\r\nC                     = 2  CALL FROM STATIC LOAD MODULE\r\nC                     = 3  CALL FROM STRESS RECOVERY MODULE\r\nC            ALPHA    = 3X1 VECTOR APPROPRIATE FOR CALL\r\nC            ISINTH   = SIN OF MATERIAL ANGLE(WHOLE - ELEMENT)\r\nC            ICOSTH   = COS OF MATERIAL ANGLE(WHOLE - ELEMENT)\r\nC            GSUBE    = MATERIAL MATRIX (3X3)\r\nC            IT       = THICKNESS OF ELEMENT\r\nC\r\nC  ON OUTPUT\r\nC  =========\r\nC            IERROR = 0  IF NO ERROR\r\nC                   = 1  IF BAD ELEMENT GEOMETRY\r\nC\r\nC            KMAT,PMAT,SMAT,ZMAT = FOLLOWING PER IOPT VALUE SENT\r\nC\r\nC\r\nC            IOPT=1\r\nC            ------\r\nC            KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC            PMAT = UNCHANGED\r\nC            SMAT = UNCHANGED\r\nC            ZMAT = UNCHANGED\r\nC\r\nC            IOPT=2\r\nC            ------\r\nC            KMAT = 3 (3X3)-S = KCA,KCB,KCC\r\nC            PMAT = 3 (3X1)-S = PA,PB,PC\r\nC            SMAT = UNCHANGED\r\nC            ZMAT = UNCHANGED\r\nC\r\nC            IOPT=3\r\nC            ------\r\nC            KMAT = 7 (3X3)-S = KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC            PMAT = 3 (3X1)-S = PTA,PTB,PTC\r\nC            SMAT = 3 (3X3)-S = SA,SB,SC\r\nC            ZMAT = 3 (3X1)-S = ZA,ZB,ZC\r\nC\r\nC*****\r\n      REAL              ALPHA(3) ,E(9)     ,IAREAT   ,I33\r\n      REAL              RA(3)    ,KMAT(1)  ,ZMAT(1)  ,MAG      ,IVEC(3)\r\n      REAL              RB(3)    ,PMAT(1)  ,V12(3)   ,IAREA    ,JVEC(3)\r\n      REAL              RC(3)    ,SMAT(1)  ,V13(3)   ,IXSUBB   ,KVEC(3)\r\n      REAL              IC       ,ISINTH   ,CA(6)    ,IXSUBC   ,TM(9)\r\n      REAL              IS       ,ICOSTH   ,CB(6)    ,IYSUBC   ,TM3(3)\r\n      REAL              IT                 ,CC(6)    ,C(3,6)   ,ALP(3)\r\n      REAL              TEMP9(9) ,HI(27)   ,HITGE(9) ,GSUBE(9)\r\nC\r\n      REAL              SADOTB\r\nC\r\n      INTEGER           IPART(3,3)\r\nC\r\n      EQUIVALENCE (C(1,1),CA(1)), (C(1,3),CB(1)), (C(1,5),CC(1))\r\n      EQUIVALENCE (E(1),IVEC(1)), (E(4),JVEC(1)), (E(7),KVEC(1))\r\nC\r\n      DATA IPART/ 28,46,1,   37,55,10,   0,0,19 /\r\nC\r\nC     V    = R   - R   ,      V    = R   - R\r\nC      12     B     A          13     C     B\r\nC\r\n      DO 10 I = 1,3\r\n      V12(I) = RB(I) - RA(I)\r\n      V13(I) = RC(I) - RA(I)\r\n   10 CONTINUE\r\nC\r\nC     KVEC(UN-NORMALIZED)  =  V     X  V\r\nC                              12       13\r\nC\r\n      CALL SAXB( V12, V13, KVEC )\r\n      MAG =  SQRT( SADOTB( KVEC, KVEC ) )\r\n      IF( MAG ) 190,190,20\r\nC\r\nC     NORMALIZE  K-VECTOR, AND AREA\r\nC\r\n   20 KVEC(1) = KVEC(1) / MAG\r\n      KVEC(2) = KVEC(2) / MAG\r\n      KVEC(3) = KVEC(3) / MAG\r\n      IAREA = 0.50 * MAG\r\nC\r\nC     I-VECTOR = V   (NORMALIZED) THUS\r\nC                 12\r\nC\r\n      MAG =  SQRT( SADOTB( V12, V12 ) )\r\n      IF( MAG ) 190,190,30\r\n   30 IVEC(1) = V12(1) / MAG\r\n      IVEC(2) = V12(2) / MAG\r\n      IVEC(3) = V12(3) / MAG\r\n      IXSUBB = MAG\r\nC\r\nC     J-VECTOR = K-VECTOR CROSS I-VECTOR THUS\r\nC\r\n      CALL SAXB( KVEC, IVEC, JVEC )\r\nC\r\nC     MATERIAL COEFFICIENTS C AND S    U,V,W = I-VECTOR\r\nC\r\n      MAG = SQRT( IVEC(1)**2 + IVEC(2)**2 )\r\n      IF( MAG .LE. 0.E0 ) GO TO 190\r\n      IF( MAG .LE. 0 ) GO TO 190\r\n      IC =(IVEC(1)*ICOSTH + IVEC(2)*ISINTH)/MAG\r\n      IS =(IVEC(1)*ISINTH - IVEC(2)*ICOSTH)/MAG\r\nC\r\nC     X = MAGNITUDE OF V  , X = I-VEC DOT V  , Y = J-VEC DOT V\r\nC      B                12   C             13   C             13\r\nC\r\n      IXSUBC = SADOTB( IVEC, V13 )\r\n      IYSUBC = SADOTB( JVEC, V13 )\r\n      IF( IXSUBB ) 40,190,40\r\n   40 IF( IYSUBC ) 50,190,50\r\nC\r\n   50 CA(1) = -1.0E0 / IXSUBB\r\n      CA(2) = 0.0E0\r\n      I33 = 1.0E0 / IYSUBC\r\n      CA(3) = I33 * (IXSUBC/IXSUBB - 1.0E0)\r\n      CA(4) = 0.0E0\r\n      CA(5) = CA(3)\r\n      CA(6) = CA(1)\r\nC\r\n      CB(1) = -CA(1)\r\n      CB(2) = 0.0E0\r\n      CB(3) = - I33   * (IXSUBC / IXSUBB )\r\n      CB(4) = 0.0E0\r\n      CB(5) = CB(3)\r\n      CB(6) = CB(1)\r\nC\r\n      CC(1) = 0.0E0\r\n      CC(2) = 0.0E0\r\n      CC(3) = I33\r\n      CC(4) = 0.0E0\r\n      CC(5) = I33\r\n      CC(6) = 0.0E0\r\nC\r\nC     FORM MATERIAL-ORIENTATION-TRANSFORMATION-MATRIX  (BY-ROWS)\r\nC\r\n      TM(1) = IC * IC\r\n      TM(2) = IS * IS\r\n      TM(3) = IC * IS\r\n      TM(4) = TM(2)\r\n      TM(5) = TM(1)\r\n      TM(6) = -TM(3)\r\n      TM(7) = 2.0E0 * TM(6)\r\n      TM(8) = -TM(7)\r\n      TM(9) = TM(1) - TM(2)\r\n      IAREAT= IAREA * IT\r\nC\r\nC     IF SSG CALL MULTIPLY ALPHA(T-TO) VECTOR BY IAREAT\r\nC\r\n      IF( IOPT .NE. 2 ) GO TO 60\r\n      ALP(1) = ALPHA(1) * IAREAT\r\n      ALP(2) = ALPHA(2) * IAREAT\r\n      ALP(3) = ALPHA(3) * IAREAT\r\nC\r\nC     IF SDR CALL COMPUTE AREA   = X  * T\r\nC                                   B\r\n   60 IF( IOPT .NE. 3 ) GO TO 70\r\n      TM3(1) = TM(3) * IT\r\n      TM3(2) = TM(6) * IT\r\n      TM3(3) = TM(9) * IT\r\nC\r\nC     SET FIRST PARTITION ROW TO COMPUTE FOR STIFFNESS MATRICES.\r\nC\r\n   70 IROW1 = 1\r\n      IF( IOPT .EQ. 2 ) IROW1 = 3\r\nC*****\r\nC           M\r\nC     H  = T  C  E\r\nC      I       I\r\nC\r\nC*****\r\n      DO 80 I = 1,3\r\n      CALL GMMATS( TM,3,3,0, C(1,2*I-1),2,3,1, TEMP9 )\r\n      CALL GMMATS( TEMP9,3,2,0, E,2,3,0, HI(9*I-8) )\r\n   80 CONTINUE\r\nC*****\r\nC     FORM OUTPUTS FOR POINTS I = A,B,C\r\nC*****\r\n      DO 180 I = 1,3\r\nC\r\nC              T\r\nC     HITGE= H  G\r\nC             I  E\r\nC\r\n      CALL GMMATS( HI(9*I-8),3,3,1, GSUBE,3,3,0, HITGE )\r\nC\r\nC     STIFFNESS MATRIX CALCULATIONS\r\nC\r\nC     ONLY KAA,KAB     ARE FORMED.  OUTPUT ORDER WITH EACH 3X3 STORED\r\nC          KBA,KBB                  BY ROWS =\r\nC          KCA,KCB,KCC              KCA,KCB,KCC,KAA,KAB,KBA,KBB\r\nC\r\n      IF( I .LT. IROW1 ) GO TO 150\r\n      KK = 0\r\n      DO 140 J = 1,3\r\n      IPARTN = IPART(I,J)\r\n      IF( IPARTN )140,140,90\r\n   90 DO 100 K = 1,9\r\n      KK = KK + 1\r\n      TEMP9(K) = HI(KK)*IAREAT\r\n  100 CONTINUE\r\n      CALL GMMATS( HITGE,3,3,0, TEMP9,3,3,0, KMAT(IPARTN) )\r\n  140 CONTINUE\r\n  150 GO TO(180,160,170),IOPT\r\nC****\r\nC  SSG LOAD GENERATION CALL ADDITIONAL DATA TO OUTPUT.\r\nC\r\nC  ONLY PA,PB,PC ARE FORMED.\r\nC*****\r\n  160 CALL GMMATS( HITGE,3,3,0,   ALP,3,1,0, PMAT(3*I-2) )\r\n      GO TO 180\r\nC*****\r\nC  SDR ADDITIONAL PHASE-1 STRESS OUTPUTS\r\nC*****\r\n  170 JPARTN = 9*I-8\r\n      CALL GMMATS( GSUBE,3,3,0, HI(JPARTN),3,3,0, SMAT(JPARTN) )\r\n      IPARTN = 3*I - 2\r\n      CALL GMMATS( HITGE,3,3,0, ALPHA,3,1,0, PMAT(IPARTN)  )\r\n      CALL GMMATS( TM3,3,1,1, SMAT(JPARTN),3,3,0, ZMAT(IPARTN) )\r\n      DO 175 J=1,3\r\n      K = IPARTN + J - 1\r\n      PMAT(K) = PMAT(K)*IAREAT\r\n  175 CONTINUE\r\nC\r\n  180 CONTINUE\r\n      IERROR = 0\r\n      RETURN\r\nC*****\r\nC  ERROR CONDITION, BAD GEOMETRY.\r\nC*****\r\n  190 IERROR = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q4bmgd.f",
    "content": "      SUBROUTINE Q4BMGD (DSHP,GPTH,BGPDT,GPNORM,PHI,BMATRX)\r\nC\r\nC     THIS ROUTINE ASSEMBLES PORTIONS OF B-MATRIX FOR QUAD4\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJ\r\n      INTEGER          ROWFLG\r\n      REAL             GPNORM(4,1),BGPDT(4,1)\r\n      DOUBLE PRECISION BMATRX(1),PSITRN(9),BBAR(120),ATRANS(6),PHI(9),\r\n     1                 DSHP(1),GPTH(1),DERIV,THICK,HZTA,TERM,DETJ,\r\n     2                 UEV,UNV,ANGLEI,EDGEL,EDGSHR,BB1,BB2,BB3,\r\n     3                 BSBAR1(6),BSBAR(48),TEE(9)\r\n      COMMON /Q4DT  /  DETJ,HZTA,PSITRN,NNODE,BADJ,N1\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMD/  ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                 UEV(3,4),ROWFLG,IORDER(4)\r\nC*****\r\nC     INITIALIZE\r\nC*****\r\n      NDOF =NNODE*6\r\n      NDOF3=NNODE*3\r\n      ND2=NDOF*2\r\n      ND3=NDOF*3\r\n      ND4=NDOF*4\r\n      ND5=NDOF*5\r\n      ND6=NDOF*6\r\nC\r\nC     SET THE SIZE OF B-MATRIX BASED ON THE ROW FLAG.\r\nC     ROWFLG = 1      OUT OF PLANE SHEAR (LAST 2 ROWS)   ND2\r\nC     ROWFLG = 2      IN-PLANE SHEAR (THIRD  ROW)        NDOF\r\nC     ROWFLG = 3      THE FIRST SIX (THREE) ROWS         ND6 (ND3)\r\nC\r\n      NN = ND6\r\n      IF (NORPTH) NN = ND3\r\n      IF (ROWFLG .EQ. 1) NN = ND2\r\n      IF (ROWFLG .EQ. 2) NN = ND2\r\nC*****\r\nC     SET UP TERMS TO BE FILLED IN B-MATRIX\r\nC*****\r\n      DO 50 K=1,NNODE\r\n      KPOINT=6*(K-1)\r\n      THICK =GPTH(K)\r\nC\r\nC     COMPUTE THE TERMS WHICH GO IN THE FIRST 6(3) ROWS.\r\nC\r\n      IF (ROWFLG .EQ. 1) GO TO 20\r\n      ATRANS(1)=-PSITRN(2)*GPNORM(4,K)+PSITRN(3)*GPNORM(3,K)\r\n      ATRANS(2)= PSITRN(1)*GPNORM(4,K)-PSITRN(3)*GPNORM(2,K)\r\n      ATRANS(3)=-PSITRN(1)*GPNORM(3,K)+PSITRN(2)*GPNORM(2,K)\r\n      ATRANS(4)=-PSITRN(5)*GPNORM(4,K)+PSITRN(6)*GPNORM(3,K)\r\n      ATRANS(5)= PSITRN(4)*GPNORM(4,K)-PSITRN(6)*GPNORM(2,K)\r\n      ATRANS(6)=-PSITRN(4)*GPNORM(3,K)+PSITRN(5)*GPNORM(2,K)\r\nC\r\n      DO 10 I=1,2\r\n      IPOINT=ND3*(I-1)\r\n      ITOT =IPOINT+KPOINT\r\n      DERIV=DSHP(N1*(I-1)+K)\r\n      BBAR(     1+ITOT)=DERIV*PSITRN(1)\r\n      BBAR(     2+ITOT)=DERIV*PSITRN(2)\r\n      BBAR(     3+ITOT)=DERIV*PSITRN(3)\r\n      BBAR(NDOF+1+ITOT)=DERIV*PSITRN(4)\r\n      BBAR(NDOF+2+ITOT)=DERIV*PSITRN(5)\r\n      BBAR(NDOF+3+ITOT)=DERIV*PSITRN(6)\r\n      TERM=HZTA*THICK*DERIV\r\n      BBAR(     4+ITOT)=TERM*ATRANS(1)\r\n      BBAR(     5+ITOT)=TERM*ATRANS(2)\r\n      BBAR(     6+ITOT)=TERM*ATRANS(3)\r\n      BBAR(NDOF+4+ITOT)=TERM*ATRANS(4)\r\n      BBAR(NDOF+5+ITOT)=TERM*ATRANS(5)\r\n      BBAR(NDOF+6+ITOT)=TERM*ATRANS(6)\r\n   10 CONTINUE\r\n      GO TO 50\r\nC\r\nC     COMPUTE THE TERMS WHICH GO IN THE LAST 2 ROWS.\r\nC\r\n   20 IF (.NOT.BENDNG) RETURN\r\n      TEE(1)= 0.0D0\r\n      TEE(2)=-GPNORM(4,K)\r\n      TEE(3)= GPNORM(3,K)\r\n      TEE(4)=-TEE(2)\r\n      TEE(5)= 0.0D0\r\n      TEE(6)=-GPNORM(2,K)\r\n      TEE(7)=-TEE(3)\r\n      TEE(8)=-TEE(6)\r\n      TEE(9)= 0.0D0\r\nC\r\n      KP1=KPOINT*2\r\n      KP2=KP1+7\r\n      J=IORDER(K)\r\n      I=J-1\r\n      IF (I .EQ. 0) I=4\r\nC\r\n      IB=0\r\n   30 IB=IB+1\r\n      BB1=-UNV(IB,J)*EDGSHR(1,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(1,I)/EDGEL(I)\r\n      BB2=-UNV(IB,J)*EDGSHR(2,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(2,I)/EDGEL(I)\r\n      BB3=-UNV(IB,J)*EDGSHR(3,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(3,I)/EDGEL(I)\r\n      BSBAR(KP1+IB  )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3\r\n      BSBAR(KP1+IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3\r\n      IF (IB .LT. 3) GO TO 30\r\nC\r\n      IB=0\r\n   40 IB=IB+1\r\n      BB1=-(UEV(IB,J)*EDGSHR(1,J)+UEV(IB,I)*EDGSHR(1,I))*0.5D0\r\n      BB2=-(UEV(IB,J)*EDGSHR(2,J)+UEV(IB,I)*EDGSHR(2,I))*0.5D0\r\n      BB3=-(UEV(IB,J)*EDGSHR(3,J)+UEV(IB,I)*EDGSHR(3,I))*0.5D0\r\n      BSBAR1(IB  )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3\r\n      BSBAR1(IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3\r\n      IF (IB .LT. 3) GO TO 40\r\n      CALL GMMATD (BSBAR1,2,3,0,TEE,3,3,0,BSBAR(KP2))\r\nC\r\nC*****\r\nC     FILL IN B-MATRIX FOR THE NORMAL PATH\r\nC*****\r\nC\r\n   50 CONTINUE\r\n      IF (.NOT.NORPTH) GO TO 200\r\n      GO TO (140,120,100), ROWFLG\r\nC\r\nC     ROWFLG = 3       FIRST THREE ROWS\r\nC\r\n  100 DO 110 KBAR=1,NDOF\r\n      BMATRX(KBAR     )=PHI(1)*BBAR(KBAR     )+PHI(2)*BBAR(KBAR+ND3 )\r\n      BMATRX(KBAR+NDOF)=PHI(4)*BBAR(KBAR+NDOF)+PHI(5)*BBAR(KBAR+ND4 )\r\n      BMATRX(KBAR+ND2 )=PHI(4)*BBAR(KBAR     )+PHI(1)*BBAR(KBAR+NDOF)\r\n     1                 +PHI(5)*BBAR(KBAR+ND3 )+PHI(2)*BBAR(KBAR+ND4 )\r\n  110 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 2       IN-PLANE SHEAR (3RD ROW)\r\nC\r\n  120 DO 130 KBAR=1,NDOF\r\n      BMATRX(KBAR)=PHI(4)*BBAR(KBAR    )+PHI(1)*BBAR(KBAR+NDOF)\r\n     1            +PHI(5)*BBAR(KBAR+ND3)+PHI(2)*BBAR(KBAR+ND4 )\r\n  130 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 1       OUT-OF-PLANE SHEAR (LAST 2 ROWS)\r\nC\r\n  140 DO 150 KBAR=1,NDOF\r\n      IBAR=((KBAR-1)/3)*3+KBAR\r\n      BMATRX(KBAR+NDOF)=BSBAR(IBAR  )\r\n      BMATRX(KBAR     )=BSBAR(IBAR+3)\r\n  150 CONTINUE\r\n      GO TO 300\r\nC\r\nC*****\r\nC     FILL IN B-MATRIX FOR THE MIDI PATH\r\nC*****\r\nC\r\n  200 DO 210 IJI=1,NN\r\n  210 BMATRX(IJI)=0.0D0\r\n      GO TO (280,260,220), ROWFLG\r\nC\r\nC     ROWFLG = 3       FIRST SIX ROWS\r\nC\r\n  220 IF (.NOT.MEMBRN) GO TO 240\r\n      DO 230 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 230 M=1,3\r\n      BMATRX(M+KK     )=PHI(1)*BBAR(M+KK     )+PHI(2)*BBAR(M+KK+ND3)\r\n      BMATRX(M+KK+NDOF)=PHI(4)*BBAR(M+KK+NDOF)+PHI(5)*BBAR(M+KK+ND4)\r\n  230 CONTINUE\r\nC\r\n  240 IF (.NOT.BENDNG) GO TO 300\r\n      DO 250 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 250 N=4,6\r\n      BMATRX(N+KK+ND3)=PHI(1)*BBAR(N+KK     )+PHI(2)*BBAR(N+KK+ND3)\r\n      BMATRX(N+KK+ND4)=PHI(4)*BBAR(N+KK+NDOF)+PHI(5)*BBAR(N+KK+ND4)\r\n  250 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 2       IN-PLANE SHEAR (3RD AND 6TH ROWS)\r\nC\r\n  260 DO 270 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 270 M=1,3\r\n      N=3+M\r\n      BMATRX(M+KK     )=PHI(4)*BBAR(M+KK    )+PHI(1)*BBAR(M+KK+NDOF)\r\n     1                 +PHI(5)*BBAR(M+KK+ND3)+PHI(2)*BBAR(M+KK+ND4)\r\n      BMATRX(N+KK+NDOF)=PHI(4)*BBAR(N+KK    )+PHI(1)*BBAR(N+KK+NDOF)\r\n     1                 +PHI(5)*BBAR(N+KK+ND3)+PHI(2)*BBAR(N+KK+ND4)\r\n  270 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 1       OUT-OF-PLANE SHEAR (LAST 2 ROWS)\r\nC\r\n  280 DO 290 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 290 M=1,3\r\n      N=3+M\r\n      KKK=KK*2\r\n      BMATRX(M+KK+NDOF)=BSBAR(M+KKK  )\r\n      BMATRX(N+KK+NDOF)=BSBAR(M+KKK+6)\r\n      BMATRX(M+KK     )=BSBAR(N+KKK  )\r\n      BMATRX(N+KK     )=BSBAR(N+KKK+6)\r\n  290 CONTINUE\r\nC\r\n  300 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q4bmgs.f",
    "content": "      SUBROUTINE Q4BMGS (DSHP,GPTH,BGPDT,GPNORM,PHI,BMATRX)\r\nC\r\nC     THIS ROUTINE ASSEMBLES PORTIONS OF B-MATRIX FOR QUAD4\r\nC\r\n      LOGICAL         MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJ\r\n      INTEGER         ROWFLG\r\n      REAL            GPNORM(4,1),BGPDT(4,1)\r\n      REAL            BMATRX(1),PSITRN(9),BBAR(120),ATRANS(6),PHI(9),\r\n     1                DSHP(1),GPTH(1),DERIV,THICK ,HZTA,TERM,DETJ,\r\n     2                UEV,UNV,ANGLEI,EDGEL,EDGSHR,BB1,BB2,BB3,\r\n     3                BSBAR1(6),BSBAR(48),TEE(9)\r\n      COMMON /Q4DT  / DETJ,HZTA,PSITRN,NNODE,BADJ,N1\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                UEV(3,4),ROWFLG,IORDER(4)\r\nC*****\r\nC     INITIALIZE\r\nC*****\r\n      NDOF=NNODE*6\r\n      NDOF3=NNODE*3\r\n      ND2=NDOF*2\r\n      ND3=NDOF*3\r\n      ND4=NDOF*4\r\n      ND5=NDOF*5\r\n      ND6=NDOF*6\r\nC\r\nC     SET THE SIZE OF B-MATRIX BASED ON THE ROW FLAG.\r\nC     ROWFLG = 1      OUT OF PLANE SHEAR (LAST 2 ROWS)   ND2\r\nC     ROWFLG = 2      IN-PLANE SHEAR (THIRD  ROW)        NDOF\r\nC     ROWFLG = 3      THE FIRST SIX (THREE) ROWS         ND6 (ND3)\r\nC\r\n      NN = ND6\r\n      IF (NORPTH) NN = ND3\r\n      IF (ROWFLG .EQ. 1) NN = ND2\r\n      IF (ROWFLG .EQ. 2) NN = ND2\r\nC*****\r\nC     SET UP TERMS TO BE FILLED IN B-MATRIX\r\nC*****\r\n      DO 50 K=1,NNODE\r\n      KPOINT=6*(K-1)\r\n      THICK=GPTH(K)\r\nC\r\nC     COMPUTE THE TERMS WHICH GO IN THE FIRST 6(3) ROWS.\r\nC\r\n      IF (ROWFLG .EQ. 1) GO TO 20\r\n      ATRANS(1)=-PSITRN(2)*GPNORM(4,K)+PSITRN(3)*GPNORM(3,K)\r\n      ATRANS(2)= PSITRN(1)*GPNORM(4,K)-PSITRN(3)*GPNORM(2,K)\r\n      ATRANS(3)=-PSITRN(1)*GPNORM(3,K)+PSITRN(2)*GPNORM(2,K)\r\n      ATRANS(4)=-PSITRN(5)*GPNORM(4,K)+PSITRN(6)*GPNORM(3,K)\r\n      ATRANS(5)= PSITRN(4)*GPNORM(4,K)-PSITRN(6)*GPNORM(2,K)\r\n      ATRANS(6)=-PSITRN(4)*GPNORM(3,K)+PSITRN(5)*GPNORM(2,K)\r\nC\r\n      DO 10 I=1,2\r\n      IPOINT=ND3*(I-1)\r\n      ITOT =IPOINT+KPOINT\r\n      DERIV=DSHP(N1*(I-1)+K)\r\n      BBAR(     1+ITOT)=DERIV*PSITRN(1)\r\n      BBAR(     2+ITOT)=DERIV*PSITRN(2)\r\n      BBAR(     3+ITOT)=DERIV*PSITRN(3)\r\n      BBAR(NDOF+1+ITOT)=DERIV*PSITRN(4)\r\n      BBAR(NDOF+2+ITOT)=DERIV*PSITRN(5)\r\n      BBAR(NDOF+3+ITOT)=DERIV*PSITRN(6)\r\n      TERM=HZTA*THICK*DERIV\r\n      BBAR(     4+ITOT)=TERM*ATRANS(1)\r\n      BBAR(     5+ITOT)=TERM*ATRANS(2)\r\n      BBAR(     6+ITOT)=TERM*ATRANS(3)\r\n      BBAR(NDOF+4+ITOT)=TERM*ATRANS(4)\r\n      BBAR(NDOF+5+ITOT)=TERM*ATRANS(5)\r\n      BBAR(NDOF+6+ITOT)=TERM*ATRANS(6)\r\n   10 CONTINUE\r\n      GO TO 50\r\nC\r\nC     COMPUTE THE TERMS WHICH GO IN THE LAST 2 ROWS.\r\nC\r\n   20 IF (.NOT.BENDNG) RETURN\r\n      TEE(1)= 0.0\r\n      TEE(2)=-GPNORM(4,K)\r\n      TEE(3)= GPNORM(3,K)\r\n      TEE(4)=-TEE(2)\r\n      TEE(5)= 0.0\r\n      TEE(6)=-GPNORM(2,K)\r\n      TEE(7)=-TEE(3)\r\n      TEE(8)=-TEE(6)\r\n      TEE(9)= 0.0\r\nC\r\n      KP1=KPOINT*2\r\n      KP2=KP1+7\r\n      J=IORDER(K)\r\n      I=J-1\r\n      IF (I .EQ. 0) I=4\r\nC\r\n      IB=0\r\n   30 IB=IB+1\r\n      BB1=-UNV(IB,J)*EDGSHR(1,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(1,I)/EDGEL(I)\r\n      BB2=-UNV(IB,J)*EDGSHR(2,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(2,I)/EDGEL(I)\r\n      BB3=-UNV(IB,J)*EDGSHR(3,J)/EDGEL(J)\r\n     1    +UNV(IB,I)*EDGSHR(3,I)/EDGEL(I)\r\n      BSBAR(KP1+IB  )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3\r\n      BSBAR(KP1+IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3\r\n      IF (IB.LT.3) GO TO 30\r\nC\r\n      IB=0\r\n   40 IB=IB+1\r\n      BB1=-(UEV(IB,J)*EDGSHR(1,J)+UEV(IB,I)*EDGSHR(1,I))*0.5\r\n      BB2=-(UEV(IB,J)*EDGSHR(2,J)+UEV(IB,I)*EDGSHR(2,I))*0.5\r\n      BB3=-(UEV(IB,J)*EDGSHR(3,J)+UEV(IB,I)*EDGSHR(3,I))*0.5\r\n      BSBAR1(IB  )=PSITRN(1)*BB1+PSITRN(2)*BB2+PSITRN(3)*BB3\r\n      BSBAR1(IB+3)=PSITRN(4)*BB1+PSITRN(5)*BB2+PSITRN(6)*BB3\r\n      IF (IB .LT. 3) GO TO 40\r\n      CALL GMMATS (BSBAR1,2,3,0,TEE,3,3,0,BSBAR(KP2))\r\n   50 CONTINUE\r\nC\r\nC*****\r\nC     FILL IN B-MATRIX FOR THE NORMAL PATH\r\nC*****\r\nC\r\n      IF (.NOT.NORPTH) GO TO 200\r\n      GO TO (140,120,100), ROWFLG\r\nC\r\nC     ROWFLG = 3       FIRST THREE ROWS\r\nC\r\n  100 DO 110 KBAR=1,NDOF\r\n      BMATRX(KBAR     )=PHI(1)*BBAR(KBAR     )+PHI(2)*BBAR(KBAR+ND3 )\r\n      BMATRX(KBAR+NDOF)=PHI(4)*BBAR(KBAR+NDOF)+PHI(5)*BBAR(KBAR+ND4 )\r\n      BMATRX(KBAR+ND2 )=PHI(4)*BBAR(KBAR     )+PHI(1)*BBAR(KBAR+NDOF)\r\n     1                 +PHI(5)*BBAR(KBAR+ND3 )+PHI(2)*BBAR(KBAR+ND4 )\r\n  110 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 2       IN-PLANE SHEAR (3RD ROW)\r\nC\r\n  120 DO 130 KBAR=1,NDOF\r\n      BMATRX(KBAR)=PHI(4)*BBAR(KBAR    )+PHI(1)*BBAR(KBAR+NDOF)\r\n     1            +PHI(5)*BBAR(KBAR+ND3)+PHI(2)*BBAR(KBAR+ND4 )\r\n  130 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 1       OUT-OF-PLANE SHEAR (LAST 2 ROWS)\r\nC\r\n  140 DO 150 KBAR=1,NDOF\r\n      IBAR=((KBAR-1)/3)*3+KBAR\r\n      BMATRX(KBAR+NDOF)=BSBAR(IBAR  )\r\n      BMATRX(KBAR     )=BSBAR(IBAR+3)\r\n  150 CONTINUE\r\n      GO TO 300\r\nC\r\nC*****\r\nC     FILL IN B-MATRIX FOR THE MIDI PATH\r\nC*****\r\nC\r\n  200 DO 210 IJI=1,NN\r\n  210 BMATRX(IJI)=0.0E0\r\n      GO TO (280,260,220), ROWFLG\r\nC\r\nC     ROWFLG = 3       FIRST SIX ROWS\r\nC\r\n  220 IF (.NOT.MEMBRN) GO TO 240\r\n      DO 230 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 230 M=1,3\r\n      BMATRX(M+KK     )=PHI(1)*BBAR(M+KK     )+PHI(2)*BBAR(M+KK+ND3)\r\n      BMATRX(M+KK+NDOF)=PHI(4)*BBAR(M+KK+NDOF)+PHI(5)*BBAR(M+KK+ND4)\r\n  230 CONTINUE\r\nC\r\n  240 IF (.NOT.BENDNG) GO TO 300\r\n      DO 250 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 250 N=4,6\r\n      BMATRX(N+KK+ND3)=PHI(1)*BBAR(N+KK     )+PHI(2)*BBAR(N+KK+ND3)\r\n      BMATRX(N+KK+ND4)=PHI(4)*BBAR(N+KK+NDOF)+PHI(5)*BBAR(N+KK+ND4)\r\n  250 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 2       IN-PLANE SHEAR (3RD AND 6TH ROWS)\r\nC\r\n  260 DO 270 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 270 M=1,3\r\n      N=3+M\r\n      BMATRX(M+KK     )=PHI(4)*BBAR(M+KK    )+PHI(1)*BBAR(M+KK+NDOF)\r\n     1                 +PHI(5)*BBAR(M+KK+ND3)+PHI(2)*BBAR(M+KK+ND4 )\r\n      BMATRX(N+KK+NDOF)=PHI(4)*BBAR(N+KK    )+PHI(1)*BBAR(N+KK+NDOF)\r\n     1                 +PHI(5)*BBAR(N+KK+ND3)+PHI(2)*BBAR(N+KK+ND4 )\r\n  270 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ROWFLG = 1       OUT-OF-PLANE SHEAR (LAST 2 ROWS)\r\nC\r\n  280 DO 290 KA=1,NNODE\r\n      KK=(KA-1)*6\r\n      DO 290 M=1,3\r\n      N=3+M\r\n      KKK=KK*2\r\n      BMATRX(M+KK+NDOF)=BSBAR(M+KKK  )\r\n      BMATRX(N+KK+NDOF)=BSBAR(M+KKK+6)\r\n      BMATRX(M+KK     )=BSBAR(N+KKK  )\r\n      BMATRX(N+KK     )=BSBAR(N+KKK+6)\r\n  290 CONTINUE\r\nC\r\n  300 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q4gmgs.f",
    "content": "      SUBROUTINE Q4GMGS (MID,FACTOR,G)\r\nC     &    ENTRY Q4GMGD (MID,FACTOD,D)\r\nC\r\nC\r\nC     MATERIAL PROPERTY MATRIX GENERATOR ROUTINE FOR QUAD4 ELEMENT\r\nC\r\nC     THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX, G, USING THE\r\nC     OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/).\r\nC\r\nC     ALL THE MATERIAL OPTIONS, ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC,\r\nC     ARE AVAILABLE.\r\nC\r\nC     OUTPUT WILL BE G(9) OR D(9) FOR MID1, MID2 AND MID4.\r\nC     FOR MID3,  G(4) OR D(4) IS SENT BACK.\r\nC\r\n      REAL             FACTOR,G(9),CONST,MTYPE,NU12,NU21\r\n      DOUBLE PRECISION FACTOD,D(9),DONST\r\n      COMMON  /MATOUT/ RMTOUT(25)\r\n      EQUIVALENCE      (RMTOUT(1),E1),(RMTOUT(2),NU12),(RMTOUT(3),E2)\r\nC\r\nC     SINGLE PRECISION SECTION -\r\nC\r\n      DO 10 I=1,9\r\n   10 G(I) = 0.0\r\n      MTYPE= RMTOUT(25)\r\n      MTYP = IFIX(MTYPE+.05) - 2\r\n      IF (MTYP) 20,30,80\r\nC\r\nC     ISOTROPIC MATERIALS (MAT1)\r\nC\r\n   20 IF (MID .NE. 3) GO TO 40\r\n      G(1) = RMTOUT(6)\r\n      G(4) = G(1)\r\n      GO TO 100\r\nC\r\nC     ANISOTROPIC MATERIALS (MAT2)\r\nC\r\n   30 IF (MID .EQ. 3) GO TO 60\r\n   40 DO 50 I=1,3\r\n   50 G(I) = RMTOUT(I)\r\n      G(4) = G(2)\r\n      G(5) = RMTOUT(4)\r\n      G(6) = RMTOUT(5)\r\n      G(7) = G(3)\r\n      G(8) = G(6)\r\n      G(9) = RMTOUT(6)\r\n      GO TO 100\r\nC\r\n   60 DO 70 I=1,4\r\n   70 G(I) = RMTOUT(I)\r\n      G(3) = G(2)\r\n      GO TO 100\r\nC\r\nC     ORTHOTROPIC MATERIALS (MAT8)\r\nC\r\n   80 IF (MID .EQ. 3) GO TO 90\r\n      NU21 = NU12 * E2 / E1\r\n      CONST= 1.0 - (NU21*NU12)\r\n      G(1) = E1 / CONST\r\n      G(2) = NU12 * E2 / CONST\r\n      G(4) = G(2)\r\n      G(5) = E2 / CONST\r\n      G(9) = RMTOUT(4)\r\n      GO TO 100\r\nC\r\n   90 G(1) = RMTOUT(6)\r\n      G(4) = RMTOUT(5)\r\n      IF (G(1).EQ.0.0 .AND. G(4).EQ.0.0) GO TO 120\r\nC\r\nC     STANDARD RETURN\r\nC\r\n  100 DO 110 I=1,9\r\n  110 G(I) = G(I)*FACTOR\r\n      GO TO 310\r\nC\r\nC     FATAL RETURN\r\nC\r\n  120 MID = -MID\r\n      GO TO 310\r\nC\r\n      ENTRY Q4GMGD (MID,FACTOD,D)\r\nC     ===========================\r\nC\r\n      DO 200 I=1,9\r\n  200 D(I) = 0.0D0\r\n      MTYPE= RMTOUT(25)\r\n      MTYP = IFIX(MTYPE+.05) - 2\r\n      IF (MTYP) 210,220,270\r\nC\r\nC     ISOTROPIC MATERIALS (MAT1)\r\nC\r\n  210 IF (MID .NE. 3) GO TO 230\r\n      D(1) = RMTOUT(6)\r\n      D(4) = D(1)\r\n      GO TO 290\r\nC\r\nC     ANISOTROPIC MATERIALS (MAT2)\r\nC\r\n  220 IF (MID .EQ. 3) GO TO 250\r\n  230 DO 240 I=1,3\r\n  240 D(I) = RMTOUT(I)\r\n      D(4) = D(2)\r\n      D(5) = RMTOUT(4)\r\n      D(6) = RMTOUT(5)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = RMTOUT(6)\r\n      GO TO 290\r\nC\r\n  250 DO 260 I=1,4\r\n  260 D(I) = RMTOUT(I)\r\n      D(3) = D(2)\r\n      GO TO 290\r\nC\r\nC     ORTHOTROPIC MATERIALS (MAT8)\r\nC\r\n  270 IF (MID .EQ. 3) GO TO 280\r\n      NU21 = NU12 * E2 / E1\r\n      DONST= 1.0D0 - DBLE(NU21*NU12)\r\n      D(1) = E1 / DONST\r\n      D(2) = NU12 * E2 / DONST\r\n      D(4) = D(2)\r\n      D(5) = E2 / DONST\r\n      D(9) = RMTOUT(4)\r\n      GO TO 290\r\nC\r\n  280 D(1) = RMTOUT(6)\r\n      D(4) = RMTOUT(5)\r\n      IF (D(1).EQ.0.0D0 .AND. D(4).EQ.0.0D0) GO TO 120\r\nC\r\nC     STANDARD RETURN\r\nC\r\n  290 DO 300 I=1,9\r\n  300 D(I) = D(I)*FACTOD\r\nC\r\n  310 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q4nrms.f",
    "content": "      SUBROUTINE Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG)\r\nC     &    ENTRY Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG)\r\nC\r\nC*****\r\nC     COMPUTES UNIT NORMAL VECTORS FOR QUAD4 GRID POINTS.\r\nC*****\r\n      INTEGER          IORDER(4)\r\n      REAL             BGPDT(4,4),GPNORM(4,4),\r\n     1                 SHP(4), SSHP(4,2),  V(3,3), TSHP(4), TSSHP(4,2),\r\n     2                 AXI(4),AETA(4),ETA,VMAG,XI\r\n      DOUBLE PRECISION DSHP(4),DSSHP(4,2),DV(3,3),TDSHP(4),TDSSHP(4,2),\r\n     1                 ADI(4),AETD(4),ETD,DMAG,DI\r\n      DATA   AXI     / -1.0  ,  1.0  , 1.0  , -1.0   /\r\n      DATA   AETA    / -1.0  , -1.0  , 1.0  ,  1.0   /\r\n      DATA   ADI     / -1.0D0,  1.0D0, 1.0D0, -1.0D0 /\r\n      DATA   AETD    / -1.0D0, -1.0D0, 1.0D0,  1.0D0 /\r\nC\r\nC     SINGLE PRECISION SECTION -\r\nC*****\r\nC     COMPUTE SHAPE FUNCTION DERIVATIVES\r\nC*****\r\n      IFLAG = 0\r\n      DO 50 II=1,4\r\n      IO  = IORDER(II)\r\n      XI  = AXI(IO)\r\n      ETA = AETA(IO)\r\n      CALL Q4SHPS (XI,ETA,SHP,SSHP)\r\nC*****\r\nC     SORT THE SHAPE FUNCTIONS\r\nC*****\r\n      DO 10 I=1,4\r\n      TSHP(I) = SHP(I)\r\n      DO 10 J=1,2\r\n   10 TSSHP(I,J) = SSHP(I,J)\r\nC\r\n      DO 20 IK=1,4\r\n      I = IORDER(IK)\r\n      SHP(IK) = TSHP(I)\r\n      DO 20 J=1,2\r\n   20 SSHP(IK,J) = TSSHP(I,J)\r\nC*****\r\nC     COMPUTE VECTOR\r\nC*****\r\n      DO 30 I=1,2\r\n      DO 30 J=1,3\r\n      V(I,J) = 0.0\r\n      J1 = J + 1\r\n      DO 30 K=1,4\r\n   30 V(I,J) = V(I,J) + SSHP(K,I)*BGPDT(J1,K)\r\nC\r\n      V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3)\r\n      V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1)\r\n      V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2)\r\n      VMAG   = V(3,1)**2+V(3,2)**2+V(3,3)**2\r\nC\r\n      IF (VMAG .GT. 1.0E-11) GO TO 40\r\n      IFLAG = 1\r\n      GO TO 200\r\nC\r\n   40 VMAG =  SQRT(VMAG)\r\n      GPNORM(2,II) = V(3,1)/VMAG\r\n      GPNORM(3,II) = V(3,2)/VMAG\r\n      GPNORM(4,II) = V(3,3)/VMAG\r\n   50 CONTINUE\r\n      GO TO 200\r\nC\r\n      ENTRY Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG)\r\nC     =======================================\r\nC\r\nC     DOUBLE PRECISION SECTION -\r\nC\r\nC*****\r\nC     COMPUTE SHAPE FUNCTION DERIVATIVES\r\nC*****\r\n      IFLAG = 0\r\n      DO 150 II=1,4\r\n      IO = IORDER(II)\r\n      DI = ADI(IO)\r\n      ETD = AETD(IO)\r\n      CALL Q4SHPD (DI,ETD,DSHP,DSSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS\r\nC\r\n      DO 110 I=1,4\r\n      TDSHP(I) = DSHP(I)\r\n      DO 110 J=1,2\r\n  110 TDSSHP(I,J) = DSSHP(I,J)\r\nC\r\n      DO 120 IK=1,4\r\n      I = IORDER(IK)\r\n      DSHP(IK) = TDSHP(I)\r\n      DO 120 J=1,2\r\n  120 DSSHP(IK,J) = TDSSHP(I,J)\r\nC*****\r\nC     COMPUTE VECTOR\r\nC*****\r\n      DO 130 I=1,2\r\n      DO 130 J=1,3\r\n      DV(I,J) = 0.0D0\r\n      J1 = J + 1\r\n      DO 130 K=1,4\r\n  130 DV(I,J) = DV(I,J) + DSSHP(K,I)*BGPDT(J1,K)\r\nC\r\n      DV(3,1) = DV(1,2)*DV(2,3) - DV(2,2)*DV(1,3)\r\n      DV(3,2) = DV(1,3)*DV(2,1) - DV(2,3)*DV(1,1)\r\n      DV(3,3) = DV(1,1)*DV(2,2) - DV(2,1)*DV(1,2)\r\n      DMAG    = DV(3,1)**2+DV(3,2)**2+DV(3,3)**2\r\nC\r\n      IF (DMAG .GT. 1.0D-11) GO TO 140\r\n      IFLAG = 1\r\n      GO TO 200\r\nC\r\n  140 DMAG = DSQRT(DMAG)\r\n      GPNORM(2,II) = DV(3,1)/DMAG\r\n      GPNORM(3,II) = DV(3,2)/DMAG\r\n      GPNORM(4,II) = DV(3,3)/DMAG\r\n  150 CONTINUE\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/q4shps.f",
    "content": "      SUBROUTINE Q4SHPS (XI,ETA, SHP, SSHP)\r\nC     &    ENTRY Q4SHPD (DI,ETD,DSHP,DSSHP)\r\nC\r\nC*****\r\nC     COMPUTES SHAPE FUNCTIONS AND THEIR DERIVATIVES\r\nC     FOR THE QUAD4 ELEMENT\r\nC*****\r\nC\r\n      REAL             XI,ETA, SHP(4), SSHP(8),CLC(2,4)\r\n      DOUBLE PRECISION DI,ETD,DSHP(4),DSSHP(8),DLD(2,4)\r\n      DATA   CLC /-1.0  ,-1.0  ,1.0  ,-1.0  ,1.0  ,1.0  ,-1.0  ,1.0  /\r\n      DATA   DLD /-1.0D0,-1.0D0,1.0D0,-1.0D0,1.0D0,1.0D0,-1.0D0,1.0D0/\r\nC\r\nC     SINGLE PRECISION -\r\nC\r\n      DO 10 I=1,4\r\n      SHP (I  ) = 0.25 * (1.0+XI *CLC(1,I)) * (1.0+ETA*CLC(2,I))\r\n      SSHP(I  ) = 0.25 * (1.0+ETA*CLC(2,I)) * CLC(1,I)\r\n      SSHP(I+4) = 0.25 * (1.0+XI *CLC(1,I)) * CLC(2,I)\r\n   10 CONTINUE\r\n      RETURN\r\nC\r\n      ENTRY Q4SHPD (DI,ETD,DSHP,DSSHP)\r\nC     ================================\r\nC\r\nC     DOUBLE PRECISION -\r\nC\r\n      DO 20 I=1,4\r\n      DSHP (I  ) = .25D0 * (1.D0+DI *DLD(1,I)) * (1.D0+ETD*DLD(2,I))\r\n      DSSHP(I  ) = .25D0 * (1.D0+ETD*DLD(2,I)) * DLD(1,I)\r\n      DSSHP(I+4) = .25D0 * (1.D0+DI *DLD(1,I)) * DLD(2,I)\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmem.f",
    "content": "      SUBROUTINE QDMEM(T,CORE)\r\n      REAL IVEC,JVEC,KVEC,NGRID\r\n      DIMENSION M(12),R(6),NGRID(4),COORD(16)\r\n      DIMENSION D1(3),D2(3),A1(3),A2(3),A3(3),A4(3),IVEC(3),JVEC(3),\r\n     1  KVEC(3),V(8),ECPTSA(36),T(1),CORE(1)\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\n      COMMON /TRIMEX/ ECPT(26)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      EQUIVALENCE (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)),\r\n     1  (COORD(1),ECPTSA(10)),(R(4),JVEC(1))\r\nC\r\n      DATA  M / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC     ******************************************************************\r\nC          ECPT                       ECPT\r\nC       RECEIVED BY                REQUIRED BY\r\nC         SQDME1                     STRME1\r\nC     ******************************************************************\r\nC     ECPT( 1) = EL. ID          ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A      ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B      ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C      ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D      ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA           ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID     ECPT( 7) = T\r\nC     ECPT( 8) = T               ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASSECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1ECPT(10) = X1\r\nC     ECPT(11) = X1              ECPT(11) = Y1\r\nC     ECPT(12) = Y1              ECPT(12) = Z1\r\nC     ECPT(13) = Z1              ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2ECPT(14) = X2\r\nC     ECPT(15) = X2              ECPT(15) = Y2\r\nC     ECPT(16) = Y2              ECPT(16) = Z2\r\nC     ECPT(17) = Z2              ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3ECPT(18) = X3\r\nC     ECPT(19) = X3              ECPT(19) = Y3\r\nC     ECPT(20) = Y3              ECPT(20) = Z3\r\nC     ECPT(21) = Z3              ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4    NOTE. THE FOLLOWING ARE INTEGERS...\r\nC     ECPT(23) = X4                  GRID POINTS, MAT ID, EL.ID,\r\nC     ECPT(24) = Y4                  COORD. SYS. IDS.\r\nC     ECPT(25) = Z4                  ALL OTHERS ARE REAL IN THE ECPT.\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC     ******************************************************************\r\nC\r\nC\r\nC     VECTORS D1 AND D2  FMMS-46 PAGE 6\r\nC     A1 A2 A3 A4\r\nC\r\n      DO 10 I=1,3\r\n      D1(I) = ECPT(I + 18) - ECPT(I + 10)\r\n      D2(I) = ECPT(I + 22) - ECPT(I + 14)\r\n      A1(I) = ECPT(I + 14) - ECPT(I + 10)\r\n      A2(I) = ECPT(I + 18) - ECPT(I + 14)\r\n      A3(I) = ECPT(I + 22) - ECPT(I + 18)\r\n   10 A4(I) = ECPT(I + 10) - ECPT(I + 22)\r\nC\r\nC     K-VECTOR = NORMALIZED D1 CROSS D2\r\nC\r\n      KVEC(1) = D1(2) * D2(3) - D1(3) * D2(2)\r\n      KVEC(2) = D1(3) * D2(1) - D1(1) * D2(3)\r\n      KVEC(3) = D1(1) * D2(2) - D1(2) * D2(1)\r\n      VECL = SQRT ( KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2 )\r\n      IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1))\r\n      KVEC(1) = KVEC(1)/VECL\r\n      KVEC(2) = KVEC(2)/VECL\r\n      KVEC(3) = KVEC(3)/VECL\r\nC\r\nC     I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR\r\nC     GET H FIRST = ( A SUB 12 DOT KVECTOR)/2\r\nC\r\n      H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0E0\r\nC\r\n      IVEC(1) = A1(1) - H * KVEC(1)\r\n      IVEC(2) = A1(2) - H * KVEC(2)\r\n      IVEC(3) = A1(3) - H * KVEC(3)\r\n      VECL = SQRT ( IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2 )\r\n      IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1))\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\nC\r\nC     J-VECTOR = K CROSS I\r\nC\r\n      JVEC(1) = KVEC(2) * IVEC(3) - KVEC(3) * IVEC(2)\r\n      JVEC(2) = KVEC(3) * IVEC(1) - KVEC(1) * IVEC(3)\r\n      JVEC(3) = KVEC(1) * IVEC(2) - KVEC(2) * IVEC(1)\r\nC\r\n      VECL = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2)\r\n      JVEC(1) = JVEC(1)/VECL\r\n      JVEC(2) = JVEC(2)/VECL\r\n      JVEC(3) = JVEC(3)/VECL\r\nC\r\n      THETA=ECPT(6)*DEGRA\r\n      SINANG=SIN(THETA)\r\n      COSANG=COS(THETA)\r\nC\r\n      V(1) = 1.0E0\r\n      V(2) = 0.0E0\r\nC\r\nC     R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR\r\nC\r\n      CALL GMMATS(R,2,3,0,  A2,3,1,0,  V(3))\r\n      CALL GMMATS(R,2,3,0,  A3,3,1,0,  V(5))\r\n      CALL GMMATS(R,2,3,0,  A4,3,1,0,  V(7))\r\nC\r\nC     NORMALIZE THE 4 2X1 V ARRAYS\r\nC\r\n      DO 20 I=1,4\r\n      VECL = SQRT ( V(2*I-1)**2 + V(2*I)**2 )\r\n      IF(VECL .EQ. 0.0) CALL MESAGE(-30,26,ECPT(1))\r\n      V(2*I-1) = V(2*I-1)/VECL\r\n   20 V(2*I  ) = V(2*I  )/VECL\r\nC\r\nC     MAPPING MATRIX M IS IN DATA STATEMENT.\r\nC\r\nC     NOW MAKE 4 CALLS TO STRME1 WHICH WILL RETURN\r\nC\r\nC     SAVE GRID SILS AND COORDINATE SYSTEMS.\r\nC\r\nC\r\nC     REDUCE THICKNESS BY 0.5\r\nC\r\n      ECPT(8) = ECPT(8)/2.0\r\n      DO 30 I=1,36\r\n   30 ECPTSA(I) = ECPT(I)\r\nC\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)\r\n      ECPT(8) = ECPT(9)\r\nC\r\n      ECPT(21) = ECPT(26)\r\nC\r\n      DO 60 I=1,4\r\nC\r\nC     POINTER TO THE SILS IN THE MAPPING MATRIX\r\n      NCOORD = 8\r\n      NPOINT = 3*I-3\r\n      TBAR = T(1)\r\n      DO 50 J=2,4\r\n      NPOINT = NPOINT + 1\r\n      NSUB1 = M(NPOINT)\r\n      DO 40 K=1,4\r\n      NSUB3 = 4*NSUB1 - 4 + K\r\n      NCOORD = NCOORD + 1\r\n   40 ECPT(NCOORD) = COORD(NSUB3)\r\n   50 ECPT(J) = NGRID(NSUB1)\r\nC\r\nC     SET UP T MATRIX FOR THIS TRIANGLE.  T IS 3X3\r\nC\r\n      U1 = V(2*I-1)\r\n      U2 = V(2*I  )\r\nC\r\nC\r\nC     COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY\r\nC\r\n      SINTH = SINANG * U1 - COSANG * U2\r\n      COSTH = COSANG * U1 + SINANG * U2\r\nC\r\n      CALL TRIMEM(1,TBAR,CORE)\r\n   60 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm1.f",
    "content": "      SUBROUTINE QDMM1 (TBAR,PG)\r\nC\r\nC     QUADRILATERAL MEMBRANE ELEMENT\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC           MAT    - MATERIAL DATA ROUTINE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC           BASGLB - TRANSFER COORDINATES FROM BASIC TO GLOBAL\r\nC           GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC           TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC\r\nC     ECPT LIST\r\nC                                                    IN THIS\r\nC      ECPT       DESCRIPTION                        ROUTINE   TYPE\r\nC     ========   =================================   ========  =======\r\nC     ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC     ECPT( 2)   GRID POINT A                        NGRID(1)  INTEGER\r\nC     ECPT( 3)   GRID POINT B                        NGRID(2)  INTEGER\r\nC     ECPT( 4)   GRID POINT C                        NGRID(3)  INTEGER\r\nC     ECPT( 5)   GRID POINT D                        NGRID(4)  INTEGER\r\nC     ECPT( 6) = THETA = ANGLE OF MATERIAL           ANGLE      REAL\r\nC     ECPT( 7)   MATERIAL ID                         MATID1    INTEGER\r\nC     ECPT( 8) = THICKNESS                           T          REAL\r\nC     ECPT( 9) = NON-STRUCTURAL MASS                 FMU        REAL\r\nC     ECPT(10)   COORD. SYSTEM ID 1                  NECPT(10) INTEGER\r\nC     ECPT(11) = X1                                   X1        REAL\r\nC     ECPT(12) = Y1                                   Y1        REAL\r\nC     ECPT(13) = Z1                                   Z1        REAL\r\nC     ECPT(14)   COORD. SYSTEM ID 2                  NECPT(14) INTEGER\r\nC     ECPT(15) = X2                                   X2        REAL\r\nC     ECPT(16) = Y2                                   Y2        REAL\r\nC     ECPT(17) = Z2                                   Z2        REAL\r\nC     ECPT(18)   COORD. SYSTEM ID 3                  NECPT(18) INTEGER\r\nC     ECPT(19) = X3                                   X3        REAL\r\nC     ECPT(20) = Y3                                   Y3        REAL\r\nC     ECPT(21) = Z3                                   Z3        REAL\r\nC     ECPT(22)   COORD. SYSTEM ID 4                  NECPT(22) INTEGER\r\nC     ECPT(23) = X4                                   X4        REAL\r\nC     ECPT(24) = Y4                                   Y4        REAL\r\nC     ECPT(25)   Z4                                   Z4        REAL\r\nC\r\n      REAL            LA,LB,LC,LD,LDD2,LBD1,LCD1,LCD2,MAGI,MAGJ,MAGK\r\n      DIMENSION       ECPT(26),PG(1),G(9),E(9)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /TRIMEX/ NECPT(1),NGRID(4),ANGLE,MATID1,T,FMU,\r\n     1                DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,X3,Y3,Z3,\r\n     2                DUMMY4,X4,Y4,Z4\r\n      COMMON /SSGWRK/ EE(144),B(96),TEMPAR(24),C(24),TI(9)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3),\r\n     1                T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                G2X211,G2X212,G2X222\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1))\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (12X12) FOR THE QUAD-MEMBRANE PROJECT\r\nC                         ONTO THE MEAN PLANE\r\nC\r\n      DO 2 I = 1,144\r\n      EE(I) = 0.\r\n    2 CONTINUE\r\nC\r\nC     E(1), E(4), E(7) WILL BE THE I-VECTOR\r\nC     E(2), E(5), E(8) WILL BE THE J-VECTOR\r\nC     E(3), E(6), E(9) WILL BE THE K-VECTOR\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS\r\nC\r\n      X21 = X2 - X1\r\n      Y21 = Y2 - Y1\r\n      Z21 = Z2 - Z1\r\n      X31 = X3 - X1\r\n      Y31 = Y3 - Y1\r\n      Z31 = Z3 - Z1\r\n      X41 = X4 - X1\r\n      Y41 = Y4 - Y1\r\n      Z41 = Z4 - Z1\r\n      X42 = X4 - X2\r\n      Y42 = Y4 - Y2\r\n      Z42 = Z4 - Z2\r\nC\r\nC     COMPUTE THE ELEMENTS OF THE (3X3) E MATRIX\r\nC\r\n      PK1  = Y31*Z42 - Z31*Y42\r\n      PK2  = Z31*X42 - X31*Z42\r\n      PK3  = X31*Y42 - Y31*X42\r\n      MAGK = SQRT(PK1**2 + PK2**2 + PK3**2)\r\n      IF (MAGK .GT. 1.0E-06) GO TO 40\r\n      CALL MESAGE (-30,32,ECPT(1))\r\n   40 PK1  = PK1/MAGK\r\n      PK2  = PK2/MAGK\r\n      PK3  = PK3/MAGK\r\nC\r\nC     HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT\r\nC\r\n      HH   = X21*PK1 + Y21*PK2 + Z21*PK3\r\n      PI1  = X21 - HH*PK1\r\n      PI2  = Y21 - HH*PK2\r\n      PI3  = Z21 - HH*PK3\r\n      MAGI = SQRT(PI1**2 + PI2**2 + PI3**2)\r\n      IF (MAGI.GT.1.0E-06) GO TO 41\r\n      CALL MESAGE (-30,31,ECPT(1))\r\n   41 PI1  = PI1/MAGI\r\n      PI2  = PI2/MAGI\r\n      PI3  = PI3/MAGI\r\n      HH   =-HH/2.\r\nC\r\nC     THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON\r\nC     PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG\r\nC\r\n      PJ1  = PK2*PI3 - PK3*PI2\r\n      PJ2  = PK3*PI1 - PK1*PI3\r\n      PJ3  = PK1*PI2 - PK2*PI1\r\n      MAGJ = SQRT(PJ1**2 + PJ2**2 + PJ3**2)\r\n      PJ1  = PJ1/MAGJ\r\n      PJ2  = PJ2/MAGJ\r\n      PJ3  = PJ3/MAGJ\r\nC\r\nC     INSERT ELEMENTS INTO THE (3X3) E MATRIX\r\nC\r\n      E(1) = PI1\r\n      E(2) = PJ1\r\n      E(3) = PK1\r\n      E(4) = PI2\r\n      E(5) = PJ2\r\n      E(6) = PK2\r\n      E(7) = PI3\r\n      E(8) = PJ3\r\n      E(9) = PK3\r\nC\r\nC     STORE FOUR (3X3) E MATRICES INTO (12X12) E MATRIX\r\nC\r\n      LLCT = -39\r\n      DO 5 IICT = 1,12,3\r\n      LLCT = LLCT + 39\r\n      NNCT = 0\r\n      MMCT =-12\r\n      DO 4 JJCT = 1,3\r\n      MMCT = MMCT + 12\r\n      DO 3 KKCT = 1,3\r\n      NNCT = NNCT + 1\r\n      KTOT = KKCT + LLCT + MMCT\r\n      EE(KTOT) = E(NNCT)\r\n    3 CONTINUE\r\n    4 CONTINUE\r\n    5 CONTINUE\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN\r\nC\r\n      X12 = -X21*E(1) - Y21*E(4) - Z21*E(7)\r\n      X13 = -X31*E(1) - Y31*E(4) - Z31*E(7)\r\n      X14 = -X41*E(1) - Y41*E(4) - Z41*E(7)\r\n      Y3A =  X31*E(2) + Y31*E(5) + Z31*E(8)\r\n      Y4A =  X42*E(2) + Y42*E(5) + Z42*E(8)\r\n      X24 =  X14 - X12\r\n      X23 =  X13 - X12\r\n      X34 =  X14 - X13\r\n      Y34 =  Y3A - Y4A\r\nC\r\nC     COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      LA = ABS(X12)\r\n      LB = SQRT(X23**2 + Y3A**2)\r\n      LC = SQRT(X34**2 + Y34**2)\r\n      LD = SQRT(X14**2 + Y4A**2)\r\nC\r\nC     COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      CTH1  =-X14/LD\r\n      STH1  = Y4A/LD\r\n      CTH2  = X23/LB\r\n      STH2  = Y3A/LB\r\n      CTH31 = X34/LC\r\n      STH31 =-Y34/LC\r\n      CTH41 = CTH1\r\n      STH41 = STH1\r\n      CTH32 = STH2\r\n      STH32 = CTH2\r\n      CTH42 = STH31\r\n      STH42 = CTH31\r\n      DLT1  = CTH31*CTH32 - STH31*STH32\r\n      DLT2  = CTH42*CTH41 + STH41*STH42\r\n      LDD2  = LD*DLT2\r\n      LBD1  = LB*DLT1\r\n      LCD1  = LC*DLT1\r\n      LCD2  = LC*DLT2\r\nC\r\nC     SET UP THE (12X12) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE\r\nC                        AND ACTUAL GRID POINTS\r\nC\r\n      DO 6 I = 1,96\r\n    6 B( I) = 0.\r\n      B( 1) = 1.\r\n      B(10) = 1.\r\n      B(17) =-HH/LA\r\n      B(18) =-HH/(LD*STH1)+((HH*CTH1)/(LA*STH1))\r\n      B(19) = HH/LA\r\n      B(20) = (HH*CTH2)/(LA*STH2)\r\n      B(23) = (HH*CTH42)/LDD2\r\n      B(24) = (HH*STH42)/LDD2\r\n      B(27) = 1.\r\n      B(36) = 1.\r\n      B(41) =-B(17)\r\n      B(42) =-(HH*CTH1)/(LA*STH1)\r\n      B(43) = B(17)\r\n      B(44) = ((-HH*CTH2)/(LA*STH2))+(HH/(LB*STH2))\r\n      B(45) =-(HH*STH31)/LBD1\r\n      B(46) =-(HH*CTH31)/LBD1\r\n      B(53) = 1.\r\n      B(62) = 1.\r\n      B(68) =-HH/(LB*STH2)\r\n      B(69) = HH*((STH31/LBD1)+(CTH32/LCD1))\r\n      B(70) = HH*((CTH31/LBD1)+(STH32/LCD1))\r\n      B(71) =-(HH*STH41)/LCD2\r\n      B(72) = (HH*CTH41)/LCD2\r\n      B(79) = 1.\r\n      B(88) = 1.\r\n      B(90) = HH/(LD*STH1)\r\n      B(93) =-(HH*CTH32)/LCD1\r\n      B(94) =-(HH*STH32)/LCD1\r\n      B(95) = HH*((-CTH42/LDD2)+(STH41/LCD2))\r\n      B(96) = HH*((-STH42/LDD2)-(CTH41/LCD2))\r\n      H     = ECPT( 8)\r\n      ELTEMP= ECPT(26)\r\nC\r\nC     SET UP (3X8) C MATRIX (SEE FMMS)\r\nC\r\n      C( 1) =-(H*Y4A)/2.\r\n      C( 2) = 0.\r\n      C( 3) =-(H*X24)/2.\r\n      C( 4) = 0.\r\n      C( 5) =-(H*X24)/2.\r\n      C( 6) =-(H*Y4A)/2.\r\n      C( 7) = (H*Y3A)/2.\r\n      C( 8) = 0.\r\n      C( 9) = (H*X13)/2.\r\n      C(10) = 0.\r\n      C(11) = (H*X13)/2.\r\n      C(12) = (H*Y3A)/2.\r\n      C(13) = (H*Y4A)/2.\r\n      C(14) = 0.\r\n      C(15) = (H*X24)/2.\r\n      C(16) = 0.\r\n      C(17) = (H*X24)/2.\r\n      C(18) = (H*Y4A)/2.\r\n      C(19) =-(H*Y3A)/2.\r\n      C(20) = 0.\r\n      C(21) =-(H*X13)/2.\r\n      C(22) = 0.\r\n      C(23) =-(H*X13)/2.\r\n      C(24) =-(H*Y3A)/2.\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\nC                                                     T\r\nC     COMPUTE TRANSFORMED MATRIX OF STIFFNESSES  G = P  * G * P\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     STORE INTO G MATRIX\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC                   T                            -\r\nC     COMPUTE PG = T  * E * B * C * G * ALPHA * (T - T )\r\nC                                                     0\r\nC\r\n      TEMP = TBAR - TSUB0\r\n      TEMPAR(1) = ALPHAS(1)*TEMP\r\n      TEMPAR(2) = ALPHAS(2)*TEMP\r\n      TEMPAR(3) = ALPHAS(3)*TEMP\r\n      CALL GMMATS (G(1),3,3,0,TEMPAR(1),3,1,0,TEMPAR(13))\r\n      CALL GMMATS (C(1),8,3,0,TEMPAR(13),3,1,0,TEMPAR(1))\r\n      CALL GMMATS (B(1),12,8,0,TEMPAR(1),8,1,0,TEMPAR(13))\r\n      CALL GMMATS (EE(1),12,12,0,TEMPAR(13),12,1,0,TEMPAR(1))\r\n      DO 13 I = 1,4\r\nC\r\nC     T-SUB-I WILL BE USED BELOW ONLY IF THE PIVOT COORDINATE SYSTEM ID\r\nC     IS NOT ZERO, OTHERWISE IT IS ASSUMED TO BE THE IDENTITY MATRIX.\r\nC\r\n      KA = 4*I + 6\r\nC\r\nC     DO WE NEED TRANSFORMATION TI\r\nC\r\n      ISW = 0\r\n      JJ  = 3*I - 2\r\n      IF (NECPT(KA) .EQ. 0) GO TO 9\r\n      ISW = 1\r\n      CALL BASGLB (TEMPAR(JJ),TEMPAR(20),NECPT(KA+1),NECPT(KA))\r\nC\r\nC     COMPUTE PG VECTOR\r\nC\r\n    9 DO 12 K = 1,3\r\n      JJK = JJ + K - 1\r\n      K19 = K + 19\r\n      IF (ISW .EQ. 0) TEMPAR(K19) = TEMPAR(JJK)\r\n      I1 = I + 1\r\n      L  = NECPT(I1) + K - 1\r\n      PG(L) = PG(L) + TEMPAR(K19)\r\n   12 CONTINUE\r\n   13 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm1d.f",
    "content": "      SUBROUTINE QDMM1D\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRIX FOR THE\r\nC     FIRST QUADRILATERAL MEMBRANE ELEMENT.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT LIST\r\nC                                                   IN THIS\r\nC        ECPT       DESCRIPTION                     ROUTINE    TYPE\r\nC     ========   ===============================    ========  =======\r\nC     ECPT( 1) = ELEMENT ID                         NECPT(1)  INTEGER\r\nC     ECPT( 2)   GRID POINT A                       NGRID(1)  INTEGER\r\nC     ECPT( 3)   GRID POINT B                       NGRID(2)  INTEGER\r\nC     ECPT( 4)   GRID POINT C                       NGRID(3)  INTEGER\r\nC     ECPT( 5)   GRID POINT D                       NGRID(4)  INTEGER\r\nC     ECPT( 6) = THETA = ANGLE OF MATERIAL          ANGLE     REAL\r\nC     ECPT( 7)   MATERIAL ID                        MATID     INTEGER\r\nC     ECPT( 8) = THICKNESS                          T         REAL\r\nC     ECPT( 9) = NON-STRUCTURAL MASS                FMU       REAL\r\nC     ECPT(10)   COORD. SYSTEM ID 1                 NECPT(10) INTEGER\r\nC     ECPT(11) = X1                                 X1        REAL\r\nC     ECPT(12) = Y1                                 Y1        REAL\r\nC     ECPT(13) = Z1                                 Z1        REAL\r\nC     ECPT(14)   COORD. SYSTEM ID 2                 NECPT(14) INTEGER\r\nC     ECPT(15) = X2                                 X2        REAL\r\nC     ECPT(16) = Y2                                 Y2        REAL\r\nC     ECPT(17) = Z2                                 Z2        REAL\r\nC     ECPT(18)   COORD. SYSTEM ID 3                 NECPT(18) INTEGER\r\nC     ECPT(19) = X3                                 X3        REAL\r\nC     ECPT(20) = Y3                                 Y3        REAL\r\nC     ECPT(21) = Z3                                 Z3        REAL\r\nC     ECPT(22)   COORD. SYSTEM ID 4                 NECPT(22) INTEGER\r\nC     ECPT(23) = X4                                 X4        REAL\r\nC     ECPT(24) = Y4                                 Y4        REAL\r\nC     ECPT(25)   Z4                                 Z4        REAL\r\nC     ECPT(26) = ELEMENT TEMPERATURE                ELTEMP    REAL\r\nC\r\n      LOGICAL         NOGO,     HEAT,     PLANAR\r\n      INTEGER         OUTPT,    DICT(9),  MAP(2,4), ELID,     ESTID\r\n      REAL            ECPT(26)\r\n      DOUBLE PRECISION          AQ,       BQ,       CQ,       B,\r\n     1                C,        D,        E,        F,        H,\r\n     2                O,        P,        Q,        U,        H1,\r\n     3                HH,       LA,       LB,       LC,       LD,\r\n     4                LBD1,     LCD1,     LCD2,     LDD2,     DLT1,\r\n     5                DLT2,     PI1,      PI2,      PI3,      PJ1,\r\n     6                PJ2,      PJ3,      PK1,      PK2,      PK3,\r\n     7                AT1,      AT2,      AT3,      AT4,      MGG(4),\r\n     8                CTH1,     CTH2,     CTH31,    CTH32,    CTH41,\r\n     9                CTH42,    STH1,     STH2,     STH31,    STH32,\r\n     O                STH41,    STH42,    BTXK,     TIE,      TI,\r\n     1                FACT,     TEMP,     ETA01(2), YSUB4,    MAGI,\r\n     2                MAGJ,     MAGK,     X12,      X13,      X14,\r\n     3                X21,      X23,      X24,      X31,      X34,\r\n     4                X41,      X42,      Y21,      Y31,      Y34,\r\n     5                Y41,      Y42,      Y3A,      Y4A,      Z21,\r\n     6                Z31,      Z41,      Z42,      KIJ,      ETA,\r\n     7                TEA,      V,        ETJ,      TEMPAR(144)\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /SYSTEM/ KSYSTM,   OUTPT\r\n      COMMON /CONDAS/ CONSTS(4),DEGRA\r\n      COMMON /EMGEST/ NECPT(1), NGRID(4), ANGLE,    MATID1,   THICK,\r\n     1                FMU,      DUMMY1,   X1,       Y1,       Z1,\r\n     2                          DUMMY2,   X2,       Y2,       Z2,\r\n     3                          DUMMY3,   X3,       Y3,       Z3,\r\n     4                          DUMMY4,   X4,       Y4,       Z4,\r\n     5                DUM(75)\r\n      COMMON /EMGPRM/ DUM2(16), MASS,     DUM3,     IPREC,    NOGO,\r\n     1                HEAT\r\n      COMMON /MATIN / MATID,    INFLAG,   ELTEMP,   STRESS,   SINTH,\r\n     1                COSTH\r\n      COMMON /MATOUT/ G11,      G12,      G13,      G22,      G23,\r\n     1                G33,      RHO,      ALPHA1,   ALPHA2,   ALP12,\r\n     2                TSUB0,    GSUBE,    SIGTEN,   SIGCOM,   SIGSHE,\r\n     3                G2X211,   G2X212,   G2X222\r\n      COMMON /SMA1DP/ TIE(9,4), KIJ(3,3), B(144),   E(9),     ETJ(9,4)\r\n      COMMON /SMA2DP/ U(64),    C(6),     AQ(24),   BQ(24),   CQ(30),\r\n     1                TI(9),    BTXK(96)\r\n      COMMON /EMGDIC/ DMMM(2),  NLOCS,    ELID,     ESTID\r\n      EQUIVALENCE     (DICT5,DICT(5)),    (ECPT(1),NECPT(1)),\r\n     1                (U(1),TEMPAR(1))\r\nC\r\n      O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) =\r\n     1 (D + (V*TEA) + (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA))\r\n     2 /((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA)\r\nC\r\n      ETA = 1.D0\r\n      TEA = 1.D0\r\n      IF (HEAT) GO TO 450\r\n      ETA01(1) = 0.211324865D0\r\n      ETA01(2) = 0.788675135D0\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS\r\nC\r\n      X21 = X2 - X1\r\n      Y21 = Y2 - Y1\r\n      Z21 = Z2 - Z1\r\n      X31 = X3 - X1\r\n      Y31 = Y3 - Y1\r\n      Z31 = Z3 - Z1\r\n      X41 = X4 - X1\r\n      Y41 = Y4 - Y1\r\n      Z41 = Z4 - Z1\r\n      X42 = X4 - X2\r\n      Y42 = Y4 - Y2\r\n      Z42 = Z4 - Z2\r\nC\r\nC     COMPUTE ELEMENTS OF THE E MATRIX\r\nC\r\n      PK1 = Y31*Z42 - Z31*Y42\r\n      PK2 = Z31*X42 - X31*Z42\r\n      PK3 = X31*Y42 - Y31*X42\r\n      MAGK= DSQRT(PK1**2 + PK2**2 + PK3**2)\r\n      IF (MAGK .LE. 1.D-6) GO TO 410\r\n      PK1 = PK1/MAGK\r\n      PK2 = PK2/MAGK\r\n      PK3 = PK3/MAGK\r\nC\r\nC     HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT\r\nC\r\n      HH  = X21*PK1 + Y21*PK2 + Z21*PK3\r\n      PI1 = X21 - HH*PK1\r\n      PI2 = Y21 - HH*PK2\r\n      PI3 = Z21 - HH*PK3\r\n      MAGI= DSQRT(PI1**2 + PI2**2 + PI3**2)\r\n      IF (MAGI .LE. 1.D-6) GO TO 420\r\n      PI1 = PI1/MAGI\r\n      PI2 = PI2/MAGI\r\n      PI3 = PI3/MAGI\r\n      HH  =-HH/2.D0\r\nC\r\nC     THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON\r\nC     PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG\r\nC\r\n      TEMP = DSQRT(X31**2 + Y31**2 + Z31**2)\r\n      YSUB4= DSQRT(X42**2 + Y42**2 + Z42**2)\r\n      H1   = (2.0*HH)/(TEMP+YSUB4)\r\n      PLANAR = .TRUE.\r\n      IF (H1 .GT. 1.0D-6) PLANAR = .FALSE.\r\n      IF (H1 .GE. 1.0D-2) WRITE (OUTPT,28) UIM,H1,NECPT(1)\r\n   28 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',D13.5,\r\n     1       ' FOR ELEMENT NUMBER',I9)\r\n      PJ1 = PK2*PI3 - PK3*PI2\r\n      PJ2 = PK3*PI1 - PK1*PI3\r\n      PJ3 = PK1*PI2 - PK2*PI1\r\n      MAGJ= DSQRT(PJ1**2 + PJ2**2 + PJ3**2)\r\n      IF (MAGJ .LE. 1.D-6) GO TO 430\r\n      PJ1 = PJ1/MAGJ\r\n      PJ2 = PJ2/MAGJ\r\n      PJ3 = PJ3/MAGJ\r\nC\r\nC  *  SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO\r\nC     MEAN PLANE\r\nC     E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL\r\nC\r\nC     E(1),E(4),E(7) IS I-VECTOR\r\nC     E(2),E(5),E(8) IS J-VECTOR\r\nC     E(3),E(6),E(9) IS K-VECTOR\r\nC\r\n      E(1) = PI1\r\n      E(2) = PJ1\r\n      E(3) = PK1\r\n      E(4) = PI2\r\n      E(5) = PJ2\r\n      E(6) = PK2\r\n      E(7) = PI3\r\n      E(8) = PJ3\r\n      E(9) = PK3\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN\r\nC\r\n      X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7))\r\n      X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7))\r\n      X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7))\r\n      X14 = X12 + X24\r\n      Y3A = X31*E(2) + Y31*E(5) + Z31*E(8)\r\n      Y4A = X42*E(2) + Y42*E(5) + Z42*E(8)\r\n      X34 = X14 - X13\r\n      Y34 = Y3A - Y4A\r\n      X23 = X13 - X12\r\n      IF (Y3A.LE.0.0D0 .OR. Y4A.LE.0.0D0) GO TO 430\r\n      TEMP = X12 + X23*(Y4A/Y3A)\r\n      YSUB4= (Y3A/Y4A)*X14\r\nC\r\nC                                              0\r\nC     CHECK FOR INTERNAL ANGLE GREATER THAN 180\r\nC\r\n      IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430\r\nC\r\nC     GET MASS MATRIX DIAGONALS\r\nC\r\n      IF( MASS .EQ. 0) GO TO 60\r\n      INFLAG = 4\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     GET TRIANGULAR AREA TIMES TWO\r\nC\r\n      AT1 = -X12*Y4A\r\n      AT2 = -X12*Y3A\r\n      AT3 = -X23*Y4A + X24*Y3A\r\n      AT4 = -X13*Y4A + X14*Y3A\r\nC\r\n      FACT   = (FMU + G11*THICK)/12.0D0\r\n      MGG(1) = (AT4 + AT1 + AT2)*FACT\r\n      MGG(2) = (AT1 + AT2 + AT3)*FACT\r\n      MGG(3) = (AT2 + AT3 + AT4)*FACT\r\n      MGG(4) = (AT3 + AT4 + AT1)*FACT\r\nC\r\nC     COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n   60 LA = DABS(X12)\r\n      LB = DSQRT(X23**2 + Y3A**2)\r\n      LC = DSQRT(X34**2 + Y34**2)\r\n      LD = DSQRT(X14**2 + Y4A**2)\r\n      IF (LA.EQ.0.D0 .OR. LB.EQ.0.D0 .OR. LC.EQ.0.D0 .OR. LD.EQ.0.D0)\r\n     1   GO TO 430\r\nC\r\nC     COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      IF (PLANAR) GO TO 75\r\n      CTH1  =-X14/LD\r\n      STH1  = Y4A/LD\r\n      CTH2  = X23/LB\r\n      STH2  = Y3A/LB\r\n      CTH31 = X34/LC\r\n      STH31 =-Y34/LC\r\n      CTH41 = CTH1\r\n      STH41 = STH1\r\n      CTH32 = STH2\r\n      STH32 = CTH2\r\n      CTH42 = STH31\r\n      STH42 = CTH31\r\n      DLT1  = CTH31*CTH32 - STH31*STH32\r\n      DLT2  = CTH42*CTH41 + STH41*STH42\r\n      LDD2  = LD*DLT2\r\n      LBD1  = LB*DLT1\r\n      LCD1  = LC*DLT1\r\n      LCD2  = LC*DLT2\r\nC\r\nC     SET UP THE (12X8)  TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE\r\nC                        AND ACTUAL GRID POINTS\r\nC\r\n      DO70 I = 2,92\r\n      B(I) = 0.0\r\n   70 CONTINUE\r\nC\r\n      B( 1) = 1.0\r\n      B(10) = 1.0\r\n      B(17) =-HH/LA\r\n      B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1))\r\n      B(19) = HH/LA\r\n      B(20) = (HH*CTH2)/(LA*STH2)\r\n      B(23) = (HH*CTH42)/LDD2\r\n      B(24) = (HH*STH42)/LDD2\r\n      B(27) = 1.0\r\n      B(36) = 1.\r\n      B(41) =-B(17)\r\n      B(42) = (-HH*CTH1)/(LA*STH1)\r\n      B(43) = B(17)\r\n      B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2))\r\n      B(45) = (-HH*STH31)/LBD1\r\n      B(46) = (-HH*CTH31)/LBD1\r\n      B(53) = 1.\r\n      B(62) = 1.\r\n      B(68) =-HH/(LB*STH2)\r\n      B(69) = HH*((STH31/LBD1) + (CTH32/LCD1))\r\n      B(70) = HH*((CTH31/LBD1) + (STH32/LCD1))\r\n      B(71) = (-HH*STH41)/LCD2\r\n      B(72) = (HH*CTH41)/LCD2\r\n      B(79) = 1.0\r\n      B(88) = 1.0\r\n      B(90) = HH/(LD*STH1)\r\n      B(93) = (-HH*CTH32)/LCD1\r\n      B(94) = (-HH*STH32)/LCD1\r\n      B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2))\r\n      B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2))\r\nC\r\n   75 THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      ELTEMP = ECPT(26)\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\nC\r\nC                                                     T\r\nC     COMPUTE TRANSFORMED MATRIX OF STIFFNESSES  C = P  * G * P\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     STORE INTO G MATRIX\r\nC\r\n      C(1) = G11\r\n      C(2) = G12\r\n      C(3) = G22\r\n      C(4) = G13\r\n      C(5) = G23\r\n      C(6) = 0.D0\r\n      FACT = G33*DBLE(THICK)/(X24*Y3A - X13*Y4A)*2.0D0\r\nC\r\nC     COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL\r\nC\r\nC                                            2         2\r\nC     D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA  + Q*ZETA\r\nC     --------------------------------------------------\r\nC     Y *X   +Y  *X  *ZETA + (Y *X   - Y *X  ) * ETA\r\nC      4  21   34  21          4  32    3  41\r\nC\r\n      AQ( 1) =-Y4A\r\n      AQ( 3) =-X24\r\n      AQ( 5) =-X24\r\n      AQ( 6) =-Y4A\r\n      AQ( 7) = Y4A\r\n      AQ( 9) = X14\r\n      AQ(11) = X14\r\n      AQ(12) = Y4A\r\n      AQ(13) = 0.0\r\n      AQ(15) = 0.0\r\n      AQ(17) = 0.0\r\n      AQ(18) = 0.0\r\n      AQ(19) = 0.0\r\n      AQ(21) =-X12\r\n      AQ(23) =-X12\r\n      AQ(24) = 0.0\r\nC\r\n      BQ( 1) = Y3A\r\n      BQ( 3) = X23\r\n      BQ( 5) = X23\r\n      BQ( 6) = Y3A\r\n      BQ( 7) =-Y4A\r\n      BQ( 9) =-X14\r\n      BQ(11) =-X14\r\n      BQ(12) =-Y4A\r\n      BQ(13) = Y4A\r\n      BQ(15) = X14\r\n      BQ(17) = X14\r\n      BQ(18) = Y4A\r\n      BQ(19) =-Y3A\r\n      BQ(21) =-X23\r\n      BQ(23) =-X23\r\n      BQ(24) =-Y3A\r\nC\r\n      CQ( 1) =-Y34\r\n      CQ( 3) = X34\r\n      CQ( 5) = X34\r\n      CQ( 6) =-Y34\r\n      CQ( 7) = Y34\r\n      CQ( 9) =-X34\r\n      CQ(11) =-X34\r\n      CQ(12) = Y34\r\n      CQ(13) = 0.0\r\n      CQ(15) =-X12\r\n      CQ(17) =-X12\r\n      CQ(18) = 0.0\r\n      CQ(19) = 0.0\r\n      CQ(21) = X12\r\n      CQ(23) = X12\r\n      CQ(24) = 0.0\r\nC\r\n      NN = 0\r\n      DO 120 I = 1,4\r\n      DO 110 K = 1,2\r\n      DO 100 J = 1,4\r\n      DO  90 L = 1,2\r\n      NN  = NN + 1\r\n      IM1 = I  - 1\r\n      JM1 = J  - 1\r\n      KM1 = K  - 1\r\n      LM1 = L  - 1\r\n      K1  = 6*IM1 + 4*KM1 + 1\r\n      K2  = 6*IM1 + 3*KM1 + 3\r\n      L1  = 6*JM1 + 4*LM1 + 1\r\n      L2  = 6*JM1 + 3*LM1 + 3\r\n      KL  = K + L - 1\r\n      K3  = K + 3\r\n      L3  = L + 3\r\n      D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1)\r\nC\r\n      V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2))\r\n     1  + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1)))\r\nC\r\n      F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1)))\r\nC\r\n      H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1)))\r\nC\r\n      P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1)\r\nC\r\n      Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1)\r\nC\r\nC     USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF\r\nC     THE STIFFNESS MATRIX FOR THE MEAN PLANE ELEMENT\r\nC\r\n      U(NN) = 0.0D0\r\n      DO 80 IA01 = 1,2\r\n      DO 80 JA01 = 1,2\r\n      U(NN) = U(NN) +\r\n     1    O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01))\r\n   80 CONTINUE\r\n      U(NN) = U(NN)/4.0D0*DBLE(THICK)\r\nC\r\nC     ADD SHEAR TERMS HERE\r\nC\r\n      U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2)))\r\n     1                    *(AQ(L2)+0.5*(BQ(L2)+CQ(L2)))\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS\r\nC\r\nC                   T\r\nC      K = B * K * B\r\nC\r\nC     EXPAND MATRIX TO INCLUDE Z COORDINATES\r\nC     IF NON-PLANAR,\r\nC\r\n      IF (PLANAR) GO TO 130\r\n      CALL GMMATD (B(1),12,8,0, U(1),8,8,0, BTXK(1))\r\n      CALL GMMATD (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1))\r\n      GO TO 200\r\nC\r\nC  *  IF PLANAR, TEMPAR(12X12) .EQ. U(8X8)\r\nC\r\n  130 IJ1 =-12\r\n      I2  = 144\r\n      DO 140 I = 1,64\r\n  140 TEMPAR(I2+I) = U(I)\r\n      DO 190 I = 1,12\r\n      IJ1 = IJ1 + 12\r\n      IF (MOD(I,3) .NE. 0) GO TO 160\r\n      DO 150 J = 1,12\r\n      IJ = IJ1 + J\r\n  150 TEMPAR(IJ) = 0.0D0\r\n      GO TO 190\r\n  160 DO 180 J = 1,12\r\n      IJ = IJ1 + J\r\n      IF (MOD(J,3) .NE. 0) GO TO 170\r\n      TEMPAR(IJ) = 0.0D0\r\n      GO TO 180\r\n  170 I2 = I2 + 1\r\n      TEMPAR(IJ) = TEMPAR(I2)\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC\r\nC                T            T\r\nC  *  GENERATE (T  * E) AND (E  * T )\r\nC                I                 J\r\nC\r\n  200 DO 230 I = 1,4\r\n      KA = 4*I + 6\r\n      IF (NECPT(KA) .EQ. 0) GO TO 210\r\n      CALL TRANSD (NECPT(KA),TI)\r\n      CALL GMMATD (TI,3,3,1, E,3,3,0, TIE(1,I))\r\n      CALL GMMATD (E,3,3,1, TI,3,3,0, ETJ(1,I))\r\n      GO TO 230\r\n  210 DO 220 II = 1,9\r\n      TIE(II,I) = E(II)\r\n  220 CONTINUE\r\n      ETJ(1,I) = E(1)\r\n      ETJ(2,I) = E(4)\r\n      ETJ(3,I) = E(7)\r\n      ETJ(4,I) = E(2)\r\n      ETJ(5,I) = E(5)\r\n      ETJ(6,I) = E(8)\r\n      ETJ(7,I) = E(3)\r\n      ETJ(8,I) = E(6)\r\n      ETJ(9,I) = E(9)\r\n  230 CONTINUE\r\nC                                      T              T\r\nC     COMPUTE STIFFNESS MATRIX  K   = T  * E * S   * E  * T\r\nC                                IJ    I        IJ         J\r\nC\r\nC     EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT\r\nC     BY ORDER OF SILS INTO A 12 BY 12 MATRIX\r\nC\r\n      DO 260 I = 1,4\r\n      J = NGRID(I)\r\n      DO 240 K = 2,5\r\n      IF (NECPT(K) .EQ. J) GO TO 250\r\n  240 CONTINUE\r\n      CALL MESAGE (-30,34,ECPT(1))\r\n  250 MAP(1,I) = J\r\n  260 MAP(2,I) = I\r\n      CALL SORT (0,0,2,1,MAP(1,1),8)\r\nC\r\nC     REPLACE SILS WITH INDICES\r\nC     RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION\r\nC\r\n      DO 270 I = 1,4\r\n  270 MAP(1,I) = I\r\n      CALL SORT (0,0,2,2,MAP(1,1),8)\r\nC\r\nC     MOVE AND TRANSFORM HERE\r\nC     ROW LOOP\r\nC\r\n      DO 300 I = 1,4\r\n      IOR = 36*(I-1)\r\n      INR = 36*(MAP(1,I)-1)\r\nC\r\nC     COLUMN LOOP\r\nC\r\n      DO 300 J = 1,4\r\n      IOCL = IOR + 3*(J-1)\r\n      INCL = INR + 3*(MAP(1,J)-1)\r\nC\r\nC     INNER LOOPS\r\nC\r\n      DO 280 K = 1,3\r\n      KL = IOCL + 12*(K-1)\r\n      DO 280 L = 1,3\r\n      KIJ(L,K) = TEMPAR(KL+L)\r\n  280 CONTINUE\r\nC\r\nC     TRANSFORM 3 BY 3\r\nC\r\n      CALL GMMATD (KIJ,3,3,0, ETJ(1,J),3,3,0, E)\r\n      CALL GMMATD (TIE(1,I),3,3,0, E,3,3,0, KIJ)\r\nC\r\nC     INSERT\r\nC\r\n      DO 290 K = 1,3\r\n      KL = INCL + 12*(K-1)\r\n      DO 290 L = 1,3\r\n      B(KL+L) = KIJ(L,K)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\nC\r\nC     INSERT WHOLE 12 BY 12 USING EMGOUT\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = GSUBE\r\n      LDATA   = 144\r\n      IEOE    = 1\r\n      IFILE   = 1\r\n      CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC)\r\nC\r\nC     DO MASS IF NECESSARY\r\nC\r\n      IF (MASS .EQ. 0) RETURN\r\n      DO 350 I = 1,4\r\n      KL = 3*(MAP(1,I) - 1)\r\n      DO 350 J = 1,3\r\n      B(KL+J) = MGG(I)\r\n  350 CONTINUE\r\n      DICT(2) = 2\r\n      DICT(5) = 0\r\n      LDATA   = 12\r\n      IFILE   = 2\r\n      CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n  410 J = 32\r\n      GO TO 440\r\n  420 J = 31\r\n      GO TO 440\r\n  430 J = 26\r\n  440 CALL MESAGE (30,J,ECPT(1))\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n  450 WRITE  (OUTPT,460) UWM,NECPT(1)\r\n  460 FORMAT (A25,' 3115, QDMM1D FINDS ELEMENT NO.',I9,' PRESENT IN A',\r\n     1       ' HEAT FORMULATION AND IS IGNORING SAME.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm1s.f",
    "content": "      SUBROUTINE QDMM1S\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRIX FOR THE\r\nC     FIRST QUADRILATERAL MEMBRANE ELEMENT.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT LIST\r\nC                                                   IN THIS\r\nC        ECPT       DESCRIPTION                     ROUTINE    TYPE\r\nC     ========   ================================   ========  =======\r\nC     ECPT( 1) = ELEMENT ID                         NECPT(1)  INTEGER\r\nC     ECPT( 2)   GRID POINT A                       NGRID(1)  INTEGER\r\nC     ECPT( 3)   GRID POINT B                       NGRID(2)  INTEGER\r\nC     ECPT( 4)   GRID POINT C                       NGRID(3)  INTEGER\r\nC     ECPT( 5)   GRID POINT D                       NGRID(4)  INTEGER\r\nC     ECPT( 6) = THETA = ANGLE OF MATERIAL          ANGLE     REAL\r\nC     ECPT( 7)   MATERIAL ID                        MATID     INTEGER\r\nC     ECPT( 8) = THICKNESS                          T         REAL\r\nC     ECPT( 9) = NON-STRUCTURAL MASS                FMU       REAL\r\nC     ECPT(10)   COORD. SYSTEM ID 1                 NECPT(10) INTEGER\r\nC     ECPT(11) = X1                                 X1        REAL\r\nC     ECPT(12) = Y1                                 Y1        REAL\r\nC     ECPT(13) = Z1                                 Z1        REAL\r\nC     ECPT(14)   COORD. SYSTEM ID 2                 NECPT(14) INTEGER\r\nC     ECPT(15) = X2                                 X2        REAL\r\nC     ECPT(16) = Y2                                 Y2        REAL\r\nC     ECPT(17) = Z2                                 Z2        REAL\r\nC     ECPT(18)   COORD. SYSTEM ID 3                 NECPT(18) INTEGER\r\nC     ECPT(19) = X3                                 X3        REAL\r\nC     ECPT(20) = Y3                                 Y3        REAL\r\nC     ECPT(21) = Z3                                 Z3        REAL\r\nC     ECPT(22)   COORD. SYSTEM ID 4                 NECPT(22) INTEGER\r\nC     ECPT(23) = X4                                 X4        REAL\r\nC     ECPT(24) = Y4                                 Y4        REAL\r\nC     ECPT(25)   Z4                                 Z4        REAL\r\nC     ECPT(26) = ELEMENT TEMPERATURE                ELTEMP    REAL\r\nC\r\n      LOGICAL         NOGO,     HEAT,     PLANAR\r\n      INTEGER         OUTPT,    DICT(9),  MAP(2,4), ELID,     ESTID\r\n      REAL            KIJ,      LA,       LB,       LC,       LD,\r\n     1                LBD1,     LCD1,     LCD2,     LDD2,     MGG(4),\r\n     2                MAGI,     MAGJ,     MAGK,     ETA01(2), ECPT(26),\r\n     3                TEMPAR(144)\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /SYSTEM/ KSYSTM,   OUTPT\r\n      COMMON /CONDAS/ CONSTS(4),DEGRA\r\n      COMMON /EMGEST/ NECPT(1), NGRID(4), ANGLE,    MATID1,   THICK,\r\n     1                FMU,      DUMMY1,   X1,       Y1,       Z1,\r\n     2                          DUMMY2,   X2,       Y2,       Z2,\r\n     3                          DUMMY3,   X3,       Y3,       Z3,\r\n     4                          DUMMY4,   X4,       Y4,       Z4,\r\n     5                DUM(75)\r\n      COMMON /EMGPRM/ DUM2(16), MASS,     DUM3,     IPREC,    NOGO,\r\n     1                HEAT\r\n      COMMON /MATIN / MATID,    INFLAG,   ELTEMP,   STRESS,   SINTH,\r\n     1                COSTH\r\n      COMMON /MATOUT/ G11,      G12,      G13,      G22,      G23,\r\n     1                G33,      RHO,      ALPHA1,   ALPHA2,   ALP12,\r\n     2                TSUB0,    GSUBE,    SIGTEN,   SIGCOM,   SIGSHE,\r\n     3                G2X211,   G2X212,   G2X222\r\n      COMMON /SMA1DP/ TIE(9,4), KIJ(3,3), B(144),   E(9),     ETJ(9,4)\r\n      COMMON /SMA2DP/ U(64),    C(6),     AQ(24),   BQ(24),   CQ(30),\r\n     1                TI(9),    BTXK(96)\r\n      COMMON /EMGDIC/ DMMM(2),  NLOCS,    ELID,     ESTID\r\n      EQUIVALENCE     (DICT5,DICT(5)),    (ECPT(1),NECPT(1)),\r\n     1                (U(1),TEMPAR(1))\r\nC\r\n      O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) = (D+(V*TEA) +\r\n     1 (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA))/\r\n     2 ((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA)\r\nC\r\n      ETA = 1.0\r\n      TEA = 1.0\r\n      IF (HEAT) GO TO 450\r\n      ETA01(1) = 0.211324865\r\n      ETA01(2) = 0.788675135\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS\r\nC\r\n      X21 = X2 - X1\r\n      Y21 = Y2 - Y1\r\n      Z21 = Z2 - Z1\r\n      X31 = X3 - X1\r\n      Y31 = Y3 - Y1\r\n      Z31 = Z3 - Z1\r\n      X41 = X4 - X1\r\n      Y41 = Y4 - Y1\r\n      Z41 = Z4 - Z1\r\n      X42 = X4 - X2\r\n      Y42 = Y4 - Y2\r\n      Z42 = Z4 - Z2\r\nC\r\nC     COMPUTE ELEMENTS OF THE E MATRIX\r\nC\r\n      PK1 = Y31*Z42 - Z31*Y42\r\n      PK2 = Z31*X42 - X31*Z42\r\n      PK3 = X31*Y42 - Y31*X42\r\n      MAGK= SQRT(PK1**2 + PK2**2 + PK3**2)\r\n      IF (MAGK .LE. 1.0E-6) GO TO 410\r\n      PK1 = PK1/MAGK\r\n      PK2 = PK2/MAGK\r\n      PK3 = PK3/MAGK\r\nC\r\nC     HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT\r\nC\r\n      HH  = X21*PK1 + Y21*PK2 + Z21*PK3\r\n      PI1 = X21 - HH*PK1\r\n      PI2 = Y21 - HH*PK2\r\n      PI3 = Z21 - HH*PK3\r\n      MAGI= SQRT(PI1**2 + PI2**2 + PI3**2)\r\n      IF (MAGI .LE. 1.0E-6) GO TO 420\r\n      PI1 = PI1/MAGI\r\n      PI2 = PI2/MAGI\r\n      PI3 = PI3/MAGI\r\n      HH  =-HH/2.0\r\nC\r\nC     THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON\r\nC     PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG\r\nC\r\n      TEMP  = SQRT(X31**2 + Y31**2 + Z31**2)\r\n      YSUB4 = SQRT(X42**2 + Y42**2 + Z42**2)\r\n      H1    = (2.0*HH)/(TEMP + YSUB4)\r\n      PLANAR= .TRUE.\r\n      IF (H1 .GT. 1.0E-6) PLANAR = .FALSE.\r\n      IF (H1 .GE. 1.0E-2) WRITE (OUTPT,28) UIM,H1,NECPT(1)\r\n   28 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',E13.5,\r\n     1       ' FOR ELEMENT NUMBER',I9)\r\n      PJ1 = PK2*PI3 - PK3*PI2\r\n      PJ2 = PK3*PI1 - PK1*PI3\r\n      PJ3 = PK1*PI2 - PK2*PI1\r\n      MAGJ= SQRT(PJ1**2 + PJ2**2 + PJ3**2)\r\n      IF (MAGJ .LE. 1.0E-6) GO TO 430\r\n      PJ1 = PJ1/MAGJ\r\n      PJ2 = PJ2/MAGJ\r\n      PJ3 = PJ3/MAGJ\r\nC\r\nC  *  SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO MEAN PLANE\r\nC     E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL\r\nC\r\nC     E(1),E(4),E(7) IS I-VECTOR\r\nC     E(2),E(5),E(8) IS J-VECTOR\r\nC     E(3),E(6),E(9) IS K-VECTOR\r\nC\r\n      E(1) = PI1\r\n      E(2) = PJ1\r\n      E(3) = PK1\r\n      E(4) = PI2\r\n      E(5) = PJ2\r\n      E(6) = PK2\r\n      E(7) = PI3\r\n      E(8) = PJ3\r\n      E(9) = PK3\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN\r\nC\r\n      X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7))\r\n      X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7))\r\n      X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7))\r\n      X14 = X12 + X24\r\n      Y3A = X31*E(2) + Y31*E(5) + Z31*E(8)\r\n      Y4A = X42*E(2) + Y42*E(5) + Z42*E(8)\r\n      X34 = X14 - X13\r\n      Y34 = Y3A - Y4A\r\n      X23 = X13 - X12\r\n      IF (Y3A.LE.0. .OR. Y4A.LE.0.) GO TO 430\r\n      TEMP  = X12 + X23*(Y4A/Y3A)\r\n      YSUB4 = (Y3A/Y4A)*X14\r\nC\r\nC                                              0\r\nC     CHECK FOR INTERNAL ANGLE GREATER THAN 180\r\nC\r\n      IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430\r\nC\r\nC     GET MASS MATRIX DIAGONALS\r\nC\r\n      IF( MASS .EQ. 0) GO TO 60\r\n      INFLAG = 4\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     GET TRIANGULAR AREA TIMES TWO\r\nC\r\n      AT1 = -X12*Y4A\r\n      AT2 = -X12*Y3A\r\n      AT3 = -X23*Y4A + X24*Y3A\r\n      AT4 = -X13*Y4A + X14*Y3A\r\nC\r\n      FACT   = (FMU + G11*THICK)/12.0\r\n      MGG(1) = (AT4 + AT1 + AT2)*FACT\r\n      MGG(2) = (AT1 + AT2 + AT3)*FACT\r\n      MGG(3) = (AT2 + AT3 + AT4)*FACT\r\n      MGG(4) = (AT3 + AT4 + AT1)*FACT\r\nC\r\nC     COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n   60 LA = ABS(X12)\r\n      LB = SQRT(X23**2 + Y3A**2)\r\n      LC = SQRT(X34**2 + Y34**2)\r\n      LD = SQRT(X14**2 + Y4A**2)\r\n      IF (LA.EQ.0. .OR. LB.EQ.0. .OR. LC.EQ.0. .OR. LD.EQ.0.) GO TO 430\r\nC\r\nC     COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      IF (PLANAR) GO TO 75\r\n      CTH1  =-X14/LD\r\n      STH1  = Y4A/LD\r\n      CTH2  = X23/LB\r\n      STH2  = Y3A/LB\r\n      CTH31 = X34/LC\r\n      STH31 =-Y34/LC\r\n      CTH41 = CTH1\r\n      STH41 = STH1\r\n      CTH32 = STH2\r\n      STH32 = CTH2\r\n      CTH42 = STH31\r\n      STH42 = CTH31\r\n      DLT1  = CTH31*CTH32 - STH31*STH32\r\n      DLT2  = CTH42*CTH41 + STH41*STH42\r\n      LDD2  = LD*DLT2\r\n      LBD1  = LB*DLT1\r\n      LCD1  = LC*DLT1\r\n      LCD2  = LC*DLT2\r\nC\r\nC     SET UP THE (12X8)  TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE\r\nC                        AND ACTUAL GRID POINTS\r\nC\r\n      DO70 I = 2,92\r\n      B(I) = 0.0\r\n   70 CONTINUE\r\nC\r\n      B( 1) = 1.0\r\n      B(10) = 1.0\r\n      B(17) =-HH/LA\r\n      B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1))\r\n      B(19) = HH/LA\r\n      B(20) = (HH*CTH2)/(LA*STH2)\r\n      B(23) = (HH*CTH42)/LDD2\r\n      B(24) = (HH*STH42)/LDD2\r\n      B(27) = 1.0\r\n      B(36) = 1.\r\n      B(41) =-B(17)\r\n      B(42) = (-HH*CTH1)/(LA*STH1)\r\n      B(43) = B(17)\r\n      B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2))\r\n      B(45) = (-HH*STH31)/LBD1\r\n      B(46) = (-HH*CTH31)/LBD1\r\n      B(53) = 1.\r\n      B(62) = 1.\r\n      B(68) =-HH/(LB*STH2)\r\n      B(69) = HH*((STH31/LBD1) + (CTH32/LCD1))\r\n      B(70) = HH*((CTH31/LBD1) + (STH32/LCD1))\r\n      B(71) = (-HH*STH41)/LCD2\r\n      B(72) = (HH*CTH41)/LCD2\r\n      B(79) = 1.0\r\n      B(88) = 1.0\r\n      B(90) = HH/(LD*STH1)\r\n      B(93) = (-HH*CTH32)/LCD1\r\n      B(94) = (-HH*STH32)/LCD1\r\n      B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2))\r\n      B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2))\r\nC\r\n   75 THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH).LT.1.0E-06) SINTH = 0.0E0\r\n      ELTEMP = ECPT(26)\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\nC\r\nC                                                     T\r\nC     COMPUTE TRANSFORMED MATRIX OF STIFFNESSES  C = P  * G * P\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     STORE INTO G MATRIX\r\nC\r\n      C(1) = G11\r\n      C(2) = G12\r\n      C(3) = G22\r\n      C(4) = G13\r\n      C(5) = G23\r\n      C(6) = 0.\r\n      FACT = G33*THICK/(X24*Y3A - X13*Y4A)*2.\r\nC\r\nC     COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL\r\nC\r\nC                                            2         2\r\nC     D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA  + Q*ZETA\r\nC     --------------------------------------------------\r\nC     Y *X   +Y  *X  *ZETA + (Y *X   - Y *X  ) * ETA\r\nC      4  21   34  21          4  32    3  41\r\nC\r\n      AQ( 1) =-Y4A\r\n      AQ( 3) =-X24\r\n      AQ( 5) =-X24\r\n      AQ( 6) =-Y4A\r\n      AQ( 7) = Y4A\r\n      AQ( 9) = X14\r\n      AQ(11) = X14\r\n      AQ(12) = Y4A\r\n      AQ(13) = 0.0\r\n      AQ(15) = 0.0\r\n      AQ(17) = 0.0\r\n      AQ(18) = 0.0\r\n      AQ(19) = 0.0\r\n      AQ(21) =-X12\r\n      AQ(23) =-X12\r\n      AQ(24) = 0.0\r\nC\r\n      BQ( 1) = Y3A\r\n      BQ( 3) = X23\r\n      BQ( 5) = X23\r\n      BQ( 6) = Y3A\r\n      BQ( 7) =-Y4A\r\n      BQ( 9) =-X14\r\n      BQ(11) =-X14\r\n      BQ(12) =-Y4A\r\n      BQ(13) = Y4A\r\n      BQ(15) = X14\r\n      BQ(17) = X14\r\n      BQ(18) = Y4A\r\n      BQ(19) =-Y3A\r\n      BQ(21) =-X23\r\n      BQ(23) =-X23\r\n      BQ(24) =-Y3A\r\nC\r\n      CQ( 1) =-Y34\r\n      CQ( 3) = X34\r\n      CQ( 5) = X34\r\n      CQ( 6) =-Y34\r\n      CQ( 7) = Y34\r\n      CQ( 9) =-X34\r\n      CQ(11) =-X34\r\n      CQ(12) = Y34\r\n      CQ(13) = 0.0\r\n      CQ(15) =-X12\r\n      CQ(17) =-X12\r\n      CQ(18) = 0.0\r\n      CQ(19) = 0.0\r\n      CQ(21) = X12\r\n      CQ(23) = X12\r\n      CQ(24) = 0.0\r\nC\r\n      NN = 0\r\n      DO 120 I = 1,4\r\n      DO 110 K = 1,2\r\n      DO 100 J = 1,4\r\n      DO  90 L = 1,2\r\n      NN  = NN + 1\r\n      IM1 = I  - 1\r\n      JM1 = J  - 1\r\n      KM1 = K  - 1\r\n      LM1 = L  - 1\r\n      K1  = 6*IM1 + 4*KM1 + 1\r\n      K2  = 6*IM1 + 3*KM1 + 3\r\n      L1  = 6*JM1 + 4*LM1 + 1\r\n      L2  = 6*JM1 + 3*LM1 + 3\r\n      KL  = K + L - 1\r\n      K3  = K + 3\r\n      L3  = L + 3\r\n      D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1)\r\nC\r\n      V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2))\r\n     1  + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1)))\r\nC\r\n      F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1)))\r\nC\r\n      H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1)))\r\nC\r\n      P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1)\r\nC\r\n      Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1)\r\nC\r\nC     USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF\r\nC     THE STIFFNESS MATRIX FOR THE MEAN PLANE ELEMENT\r\nC\r\n      U(NN) = 0.0\r\n      DO 80 IA01 = 1,2\r\n      DO 80 JA01 = 1,2\r\n      U(NN) = U(NN) +\r\n     1    O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01))\r\n   80 CONTINUE\r\n      U(NN) = U(NN)/4.0*THICK\r\nC\r\nC     ADD SHEAR TERMS HERE\r\n      U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2)))\r\n     1                    *(AQ(L2)+0.5*(BQ(L2)+CQ(L2)))\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS\r\nC\r\nC                   T\r\nC      K = B * K * B\r\nC\r\nC     EXPAND MATRIX TO INCLUDE Z COORDINATES\r\nC     IF NON-PLANAR,\r\nC\r\n      IF (PLANAR) GO TO 130\r\n      CALL GMMATS (B(1),12,8,0, U(1),8,8,0, BTXK(1))\r\n      CALL GMMATS (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1))\r\n      GO TO 200\r\nC\r\nC  *  IF PLANAR, TEMPAR(12X12) .EQ. U(8X8)\r\nC\r\n  130 IJ1 =-12\r\n      I2  = 144\r\n      DO 140 I = 1,64\r\n  140 TEMPAR(I2+I) = U(I)\r\n      DO 190 I = 1,12\r\n      IJ1 = IJ1 + 12\r\n      IF (MOD(I,3) .NE. 0) GO TO 160\r\n      DO 150 J = 1,12\r\n      IJ = IJ1 + J\r\n  150 TEMPAR(IJ) = 0.0\r\n      GO TO 190\r\n  160 DO 180 J = 1,12\r\n      IJ = IJ1 + J\r\n      IF (MOD(J,3) .NE. 0) GO TO 170\r\n      TEMPAR(IJ) = 0.0\r\n      GO TO 180\r\n  170 I2 = I2 + 1\r\n      TEMPAR(IJ) = TEMPAR(I2)\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC\r\nC                T            T\r\nC  *  GENERATE (T  * E) AND (E  * T )\r\nC                I                 J\r\nC\r\n  200 DO 230 I = 1,4\r\n      KA = 4*I + 6\r\n      IF (NECPT(KA) .EQ. 0) GO TO 210\r\n      CALL TRANSS (NECPT(KA),TI)\r\n      CALL GMMATS (TI,3,3,1, E,3,3,0, TIE(1,I))\r\n      CALL GMMATS (E,3,3,1, TI,3,3,0, ETJ(1,I))\r\n      GO TO 230\r\n  210 DO 220 II = 1,9\r\n      TIE(II,I) = E(II)\r\n  220 CONTINUE\r\n      ETJ(1,I) = E(1)\r\n      ETJ(2,I) = E(4)\r\n      ETJ(3,I) = E(7)\r\n      ETJ(4,I) = E(2)\r\n      ETJ(5,I) = E(5)\r\n      ETJ(6,I) = E(8)\r\n      ETJ(7,I) = E(3)\r\n      ETJ(8,I) = E(6)\r\n      ETJ(9,I) = E(9)\r\n  230 CONTINUE\r\nC                                      T              T\r\nC     COMPUTE STIFFNESS MATRIX  K   = T  * E * S   * E  * T\r\nC                                IJ    I        IJ         J\r\nC\r\nC     EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT BY\r\nC     ORDER OF SILS INTO A 12 BY 12 MATRIX\r\nC\r\n      DO 260 I = 1,4\r\n      J = NGRID(I)\r\n      DO 240 K = 2,5\r\n      IF (NECPT(K) .EQ. J) GO TO 250\r\n  240 CONTINUE\r\n      CALL MESAGE (-30,34,ECPT(1))\r\n  250 MAP(1,I) = J\r\n  260 MAP(2,I) = I\r\n      CALL SORT (0,0,2,1,MAP(1,1),8)\r\nC\r\nC     REPLACE SILS WITH INDICES\r\nC     RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION\r\nC\r\n      DO 270 I = 1,4\r\n  270 MAP(1,I) = I\r\n      CALL SORT (0,0,2,2,MAP(1,1),8)\r\nC\r\nC     MOVE AND TRANSFORM HERE\r\nC     ROW LOOP\r\nC\r\n      DO 300 I = 1,4\r\n      IOR = 36*(I-1)\r\n      INR = 36*(MAP(1,I) - 1)\r\nC\r\nC     COLUMN LOOP\r\nC\r\n      DO 300 J = 1,4\r\n      IOCL = IOR + 3*(J-1)\r\n      INCL = INR + 3*(MAP(1,J) - 1)\r\nC\r\nC     INNER LOOPS\r\nC\r\n      DO 280 K = 1,3\r\n      KL = IOCL + 12*(K-1)\r\n      DO 280 L = 1,3\r\n      KIJ(L,K) = TEMPAR(KL+L)\r\n  280 CONTINUE\r\nC\r\nC     TRANSFORM 3 BY 3\r\nC\r\n      CALL GMMATS (KIJ,3,3,0, ETJ(1,J),3,3,0, E)\r\n      CALL GMMATS (TIE(1,I),3,3,0, E,3,3,0, KIJ)\r\nC\r\nC     INSERT\r\nC\r\n      DO 290 K = 1,3\r\n      KL = INCL + 12*(K-1)\r\n      DO 290 L = 1,3\r\n      B(KL+L) = KIJ(L,K)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\nC\r\nC     INSERT WHOLE 12 BY 12 USING EMGOUT\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = GSUBE\r\n      LDATA   = 144\r\n      IEOE    = 1\r\n      IFILE   = 1\r\n      CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC)\r\nC\r\nC     DO MASS IF NECESSARY\r\nC\r\n      IF (MASS .EQ. 0) RETURN\r\n      DO 350 I = 1,4\r\n      KL = 3*(MAP(1,I) - 1)\r\n      DO 350 J = 1,3\r\n      B(KL+J) = MGG(I)\r\n  350 CONTINUE\r\n      DICT(2) = 2\r\n      DICT(5) = 0\r\n      LDATA   = 12\r\n      IFILE   = 2\r\n      CALL EMGOUT (B,B,LDATA,IEOE,DICT,IFILE,IPREC)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n  410 J = 32\r\n      GO TO 440\r\n  420 J = 31\r\n      GO TO 440\r\n  430 J = 26\r\n  440 CALL MESAGE (30,J,ECPT(1))\r\n      NOGO = .TRUE.\r\n      RETURN\r\nC\r\n  450 WRITE  (OUTPT,460) UWM,NECPT(1)\r\n  460 FORMAT (A25,' 3115, QDMM1S FINDS ELEMENT NO.',I9,' PRESENT IN A',\r\n     1       ' HEAT FORMULATION AND IS IGNORING SAME.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm1x.f",
    "content": "      SUBROUTINE QDMM1X\r\nC\r\nC     THIS ROUTINE IS SAME AS QDMM1D EXCEPT IT USES EMGOLD/SMA1B LOGIC.\r\nC     (QDMM1D USE EMGOUT LOGIC). IT IS CALLED ONLY BY KTRIQD TO IMPROVE\r\nC     QUAD2 MEMBRANE COMPUTATION. KTRIQD BELONGS TO THE EMGOLD FAMILY OF\r\nC     ELEMENTS.\r\nC\r\nC     QDMM1D COMPUTE THE STIFFNESS MATRIX FOR THE FIRST QUADRILATERAL\r\nC     MEMBRANE ELEMENT. MASS MATRIX IS NOT COMPUTE HERE.\r\nC\r\nC     THIS ROUTINE WAS RE-ASSEMBLED BY G.CHAN/UNISYS   5/91\r\nC\r\nC     ECPT LIST\r\nC                                                   IN THIS\r\nC        ECPT       DESCRIPTION                     ROUTINE    TYPE\r\nC     ========   ================================   ========  =======\r\nC     ECPT( 1) = ELEMENT ID                         NECPT(1)  INTEGER\r\nC     ECPT( 2)   GRID POINT A                       NGRID(1)  INTEGER\r\nC     ECPT( 3)   GRID POINT B                       NGRID(2)  INTEGER\r\nC     ECPT( 4)   GRID POINT C                       NGRID(3)  INTEGER\r\nC     ECPT( 5)   GRID POINT D                       NGRID(4)  INTEGER\r\nC     ECPT( 6) = THETA = ANGLE OF MATERIAL          ANGLE     REAL\r\nC     ECPT( 7)   MATERIAL ID                        MATID     INTEGER\r\nC     ECPT( 8) = THICKNESS                          T         REAL\r\nC     ECPT( 9) = NON-STRUCTURAL MASS                FMU       REAL\r\nC     ECPT(10)   COORD. SYSTEM ID 1                 NECPT(10) INTEGER\r\nC     ECPT(11) = X1                                 X1        REAL\r\nC     ECPT(12) = Y1                                 Y1        REAL\r\nC     ECPT(13) = Z1                                 Z1        REAL\r\nC     ECPT(14)   COORD. SYSTEM ID 2                 NECPT(14) INTEGER\r\nC     ECPT(15) = X2                                 X2        REAL\r\nC     ECPT(16) = Y2                                 Y2        REAL\r\nC     ECPT(17) = Z2                                 Z2        REAL\r\nC     ECPT(18)   COORD. SYSTEM ID 3                 NECPT(18) INTEGER\r\nC     ECPT(19) = X3                                 X3        REAL\r\nC     ECPT(20) = Y3                                 Y3        REAL\r\nC     ECPT(21) = Z3                                 Z3        REAL\r\nC     ECPT(22)   COORD. SYSTEM ID 4                 NECPT(22) INTEGER\r\nC     ECPT(23) = X4                                 X4        REAL\r\nC     ECPT(24) = Y4                                 Y4        REAL\r\nC     ECPT(25)   Z4                                 Z4        REAL\r\nC     ECPT(26) = ELEMENT TEMPERATURE                ELTEMP    REAL\r\nC\r\n      LOGICAL         NOGO,     HEAT,     PLANAR\r\n      INTEGER         OUTPT,    MAP(2,4), ELID\r\n      REAL            ECPT(26)\r\n      DOUBLE PRECISION          AQ,       BQ,       CQ,       B,\r\n     1                C,        D,        E,        F,        H,\r\n     2                O,        P,        Q,        U,        H1,\r\n     3                HH,       LA,       LB,       LC,       LD,\r\n     4                LBD1,     LCD1,     LCD2,     LDD2,     DLT1,\r\n     5                DLT2,     PI1,      PI2,      PI3,      PJ1,\r\n     6                PJ2,      PJ3,      PK1,      PK2,      PK3,\r\n     7                CTH1,     CTH2,     CTH31,    CTH32,    CTH41,\r\n     8                CTH42,    STH1,     STH2,     STH31,    STH32,\r\n     9                STH41,    STH42,    BTXK,     TIE,      TI,\r\n     O                FACT,     TEMP,     ETA01(2), YSUB4,    MAGI,\r\n     1                MAGJ,     MAGK,     X12,      X13,      X14,\r\n     2                X21,      X23,      X24,      X31,      X34,\r\n     3                X41,      X42,      Y21,      Y31,      Y34,\r\n     4                Y41,      Y42,      Y3A,      Y4A,      Z21,\r\n     5                Z31,      Z41,      Z42,      KJJ(3,3), ETA,\r\n     6                TEA,      V,        ETJ,      TEMPAR(144),\r\n     7                KIJ,      ZERO\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /SYSTEM/ KSYSTM,   OUTPT\r\n      COMMON /CONDAS/ CONSTS(4),DEGRA\r\n      COMMON /SMA1ET/ NECPT(1), NGRID(4), ANGLE,    MATID1,   THICK,\r\n     1                FMU,      DUMMY1,   X1,       Y1,       Z1,\r\n     2                          DUMMY2,   X2,       Y2,       Z2,\r\n     3                          DUMMY3,   X3,       Y3,       Z3,\r\n     4                          DUMMY4,   X4,       Y4,       Z4\r\n      COMMON /SMA1CL/ IOPT4,    K4GGSW,   NPVT,     DUM19(19),NOGO\r\n      COMMON /SMA1IO/ DUM1(10), IFKGG,    DUM2,     IF4GG\r\n      COMMON /SMA1HT/ HEAT\r\n      COMMON /SMA1DP/ KIJ(36),  TIE(9,4), B(144),   E(9),     ETJ(9,4),\r\n     1                U(64),    C(6),     AQ(24),   BQ(24),   CQ(30),\r\n     2                TI(9),    BTXK(96)\r\n      COMMON /MATIN / MATID,    INFLAG,   ELTEMP,   STRESS,   SINTH,\r\n     1                COSTH\r\n      COMMON /MATOUT/ G11,      G12,      G13,      G22,      G23,\r\n     1                G33,      RHO,      ALPHA1,   ALPHA2,   ALP12,\r\n     2                TSUB0,    GSUBE,    SIGTEN,   SIGCOM,   SIGSHE,\r\n     3                G2X211,   G2X212,   G2X222\r\n      EQUIVALENCE     (ECPT(1),NECPT(1),ELID),      (KJJ(1,1),KIJ(1)),\r\n     1                (U(1),TEMPAR(1))\r\n      DATA    ZERO  / 0.0D0 /\r\nC     DATA    M     / 1, 2, 4,  2, 3, 1,  3, 4, 2,  4, 1, 3 /\r\nC           TRIANGLES 1-2-4,    2-3-1,    3-4-2, AND  4-1-3\r\nC\r\n      O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA,TEA) =\r\n     1 (D + (V*TEA) + (F*ETA) + (H*TEA*ETA) + (P*TEA*TEA) + (Q*ETA*ETA))\r\n     2 /((-Y4A*X12) + (-Y34*X12*ETA) + ((-Y4A*X23) + (Y3A*X14))*TEA)\r\nC\r\nC     FIND WHICH POINT IS THE PIVOT POINT\r\nC\r\n      DO 10 I = 1,4\r\n      IF (NPVT .NE. NGRID(I)) GO TO 10\r\n      NPIVOT = I\r\n      GO TO 15\r\n   10 CONTINUE\r\n      GO TO 450\r\nC\r\n   15 ETA = 1.D0\r\n      TEA = 1.D0\r\n      ETA01(1) = 0.211324865D0\r\n      ETA01(2) = 0.788675135D0\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS\r\nC\r\n      X21 = X2 - X1\r\n      Y21 = Y2 - Y1\r\n      Z21 = Z2 - Z1\r\n      X31 = X3 - X1\r\n      Y31 = Y3 - Y1\r\n      Z31 = Z3 - Z1\r\n      X41 = X4 - X1\r\n      Y41 = Y4 - Y1\r\n      Z41 = Z4 - Z1\r\n      X42 = X4 - X2\r\n      Y42 = Y4 - Y2\r\n      Z42 = Z4 - Z2\r\nC\r\nC     COMPUTE ELEMENTS OF THE E MATRIX\r\nC\r\n      PK1 = Y31*Z42 - Z31*Y42\r\n      PK2 = Z31*X42 - X31*Z42\r\n      PK3 = X31*Y42 - Y31*X42\r\n      MAGK= DSQRT(PK1**2 + PK2**2 + PK3**2)\r\n      IF (MAGK .LE. 1.D-6) GO TO 410\r\n      PK1 = PK1/MAGK\r\n      PK2 = PK2/MAGK\r\n      PK3 = PK3/MAGK\r\nC\r\nC     HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT\r\nC\r\n      HH  = X21*PK1 + Y21*PK2 + Z21*PK3\r\n      PI1 = X21 - HH*PK1\r\n      PI2 = Y21 - HH*PK2\r\n      PI3 = Z21 - HH*PK3\r\n      MAGI= DSQRT(PI1**2 + PI2**2 + PI3**2)\r\n      IF (MAGI .LE. 1.D-6) GO TO 420\r\n      PI1 = PI1/MAGI\r\n      PI2 = PI2/MAGI\r\n      PI3 = PI3/MAGI\r\n      HH  =-HH/2.D0\r\nC\r\nC     THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON PP 4.87-105\r\nC     OF PROGRAMMERS MANUAL IS WRONG\r\nC\r\n      TEMP = DSQRT(X31**2 + Y31**2 + Z31**2)\r\n      YSUB4= DSQRT(X42**2 + Y42**2 + Z42**2)\r\n      H1   = (2.0*HH)/(TEMP+YSUB4)\r\n      PLANAR = .TRUE.\r\n      IF (H1 .GT. 1.0D-6) PLANAR = .FALSE.\r\n      IF (H1 .GE. 1.0D-2) WRITE (OUTPT,35) UIM,H1,NECPT(1)\r\n   35 FORMAT (A29,' 3061, THE MEASURE OF NON-PLANARITY IS ',D13.5,\r\n     1       ' FOR ELEMENT NUMBER',I9)\r\n      PJ1 = PK2*PI3 - PK3*PI2\r\n      PJ2 = PK3*PI1 - PK1*PI3\r\n      PJ3 = PK1*PI2 - PK2*PI1\r\n      MAGJ= DSQRT(PJ1**2 + PJ2**2 + PJ3**2)\r\n      IF (MAGJ .LE. 1.D-6) GO TO 430\r\n      PJ1 = PJ1/MAGJ\r\n      PJ2 = PJ2/MAGJ\r\n      PJ3 = PJ3/MAGJ\r\nC\r\nC     SET UP E MATRIX (3X3) FOR QUAD-MEMBRANE PROJECTION ONTO MEAN PLANE\r\nC     E IS TRANSPOSE OF E MATRIX IN THEORETICAL MANUAL\r\nC\r\nC     E(1),E(4),E(7) IS I-VECTOR\r\nC     E(2),E(5),E(8) IS J-VECTOR\r\nC     E(3),E(6),E(9) IS K-VECTOR\r\nC\r\n      E(1) = PI1\r\n      E(2) = PJ1\r\n      E(3) = PK1\r\n      E(4) = PI2\r\n      E(5) = PJ2\r\n      E(6) = PK2\r\n      E(7) = PI3\r\n      E(8) = PJ3\r\n      E(9) = PK3\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN\r\nC\r\n      X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7))\r\n      X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7))\r\n      X24 =-(X42*E(1) + Y42*E(4) + Z42*E(7))\r\n      X14 = X12 + X24\r\n      Y3A = X31*E(2)  + Y31*E(5) + Z31*E(8)\r\n      Y4A = X42*E(2)  + Y42*E(5) + Z42*E(8)\r\n      X34 = X14 - X13\r\n      Y34 = Y3A - Y4A\r\n      X23 = X13 - X12\r\n      IF (Y3A.LE.ZERO .OR. Y4A.LE.ZERO) GO TO 430\r\n      TEMP = X12 + X23*(Y4A/Y3A)\r\n      YSUB4= (Y3A/Y4A)*X14\r\nC\r\nC                                              0\r\nC     CHECK FOR INTERNAL ANGLE GREATER THAN 180\r\nC\r\n      IF (X13.GE.YSUB4 .OR. X14.LE.TEMP) GO TO 430\r\nC\r\nC     COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      LA = DABS(X12)\r\n      LB = DSQRT(X23**2 + Y3A**2)\r\n      LC = DSQRT(X34**2 + Y34**2)\r\n      LD = DSQRT(X14**2 + Y4A**2)\r\n      IF (LA.EQ.ZERO .OR. LB.EQ.ZERO .OR. LC.EQ.ZERO .OR. LD.EQ.ZERO)\r\n     1   GO TO 430\r\nC\r\nC     COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      IF (PLANAR) GO TO 70\r\n      CTH1  =-X14/LD\r\n      STH1  = Y4A/LD\r\n      CTH2  = X23/LB\r\n      STH2  = Y3A/LB\r\n      CTH31 = X34/LC\r\n      STH31 =-Y34/LC\r\n      CTH41 = CTH1\r\n      STH41 = STH1\r\n      CTH32 = STH2\r\n      STH32 = CTH2\r\n      CTH42 = STH31\r\n      STH42 = CTH31\r\n      DLT1  = CTH31*CTH32 - STH31*STH32\r\n      DLT2  = CTH42*CTH41 + STH41*STH42\r\n      LDD2  = LD*DLT2\r\n      LBD1  = LB*DLT1\r\n      LCD1  = LC*DLT1\r\n      LCD2  = LC*DLT2\r\nC\r\nC     SET UP THE (12X8) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE\r\nC     AND ACTUAL GRID POINTS\r\nC\r\n      DO 60 I = 2,92\r\n      B(I) = 0.0\r\n   60 CONTINUE\r\nC\r\n      B( 1) = 1.0\r\n      B(10) = 1.0\r\n      B(17) =-HH/LA\r\n      B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1))\r\n      B(19) = HH/LA\r\n      B(20) = (HH*CTH2)/(LA*STH2)\r\n      B(23) = (HH*CTH42)/LDD2\r\n      B(24) = (HH*STH42)/LDD2\r\n      B(27) = 1.0\r\n      B(36) = 1.\r\n      B(41) =-B(17)\r\n      B(42) = (-HH*CTH1)/(LA*STH1)\r\n      B(43) = B(17)\r\n      B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2))\r\n      B(45) = (-HH*STH31)/LBD1\r\n      B(46) = (-HH*CTH31)/LBD1\r\n      B(53) = 1.\r\n      B(62) = 1.\r\n      B(68) =-HH/(LB*STH2)\r\n      B(69) = HH*((STH31/LBD1) + (CTH32/LCD1))\r\n      B(70) = HH*((CTH31/LBD1) + (STH32/LCD1))\r\n      B(71) = (-HH*STH41)/LCD2\r\n      B(72) = (HH*CTH41)/LCD2\r\n      B(79) = 1.0\r\n      B(88) = 1.0\r\n      B(90) = HH/(LD*STH1)\r\n      B(93) = (-HH*CTH32)/LCD1\r\n      B(94) = (-HH*STH32)/LCD1\r\n      B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2))\r\n      B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2))\r\nC\r\n   70 THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\n      ELTEMP = ECPT(26)\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\nC\r\nC                                                     T\r\nC     COMPUTE TRANSFORMED MATRIX OF STIFFNESSES  C = P  * G * P\r\nC\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     STORE INTO G MATRIX\r\nC\r\n      C(1) = G11\r\n      C(2) = G12\r\n      C(3) = G22\r\n      C(4) = G13\r\n      C(5) = G23\r\n      C(6) = ZERO\r\n      FACT = G33*DBLE(THICK)/(X24*Y3A - X13*Y4A)*2.0D0\r\nC\r\nC     COMPUTE COEFFICIENTS OF THE GENERAL INTEGRAL\r\nC\r\nC                                            2         2\r\nC     D + E*ETA + F*ZETA + H*ETA*ZETA + P*ETA  + Q*ZETA\r\nC     --------------------------------------------------\r\nC     Y *X   +Y  *X  *ZETA + (Y *X   - Y *X  ) * ETA\r\nC      4  21   34  21          4  32    3  41\r\nC\r\n      AQ( 1) =-Y4A\r\n      AQ( 3) =-X24\r\n      AQ( 5) =-X24\r\n      AQ( 6) =-Y4A\r\n      AQ( 7) = Y4A\r\n      AQ( 9) = X14\r\n      AQ(11) = X14\r\n      AQ(12) = Y4A\r\n      AQ(13) = 0.0\r\n      AQ(15) = 0.0\r\n      AQ(17) = 0.0\r\n      AQ(18) = 0.0\r\n      AQ(19) = 0.0\r\n      AQ(21) =-X12\r\n      AQ(23) =-X12\r\n      AQ(24) = 0.0\r\nC\r\n      BQ( 1) = Y3A\r\n      BQ( 3) = X23\r\n      BQ( 5) = X23\r\n      BQ( 6) = Y3A\r\n      BQ( 7) =-Y4A\r\n      BQ( 9) =-X14\r\n      BQ(11) =-X14\r\n      BQ(12) =-Y4A\r\n      BQ(13) = Y4A\r\n      BQ(15) = X14\r\n      BQ(17) = X14\r\n      BQ(18) = Y4A\r\n      BQ(19) =-Y3A\r\n      BQ(21) =-X23\r\n      BQ(23) =-X23\r\n      BQ(24) =-Y3A\r\nC\r\n      CQ( 1) =-Y34\r\n      CQ( 3) = X34\r\n      CQ( 5) = X34\r\n      CQ( 6) =-Y34\r\n      CQ( 7) = Y34\r\n      CQ( 9) =-X34\r\n      CQ(11) =-X34\r\n      CQ(12) = Y34\r\n      CQ(13) = 0.0\r\n      CQ(15) =-X12\r\n      CQ(17) =-X12\r\n      CQ(18) = 0.0\r\n      CQ(19) = 0.0\r\n      CQ(21) = X12\r\n      CQ(23) = X12\r\n      CQ(24) = 0.0\r\nC\r\n      NN = 0\r\n      DO 120 I = 1,4\r\n      DO 110 K = 1,2\r\n      DO 100 J = 1,4\r\n      DO  90 L = 1,2\r\n      NN  = NN + 1\r\n      IM1 = I  - 1\r\n      JM1 = J  - 1\r\n      KM1 = K  - 1\r\n      LM1 = L  - 1\r\n      K1  = 6*IM1 + 4*KM1 + 1\r\n      K2  = 6*IM1 + 3*KM1 + 3\r\n      L1  = 6*JM1 + 4*LM1 + 1\r\n      L2  = 6*JM1 + 3*LM1 + 3\r\n      KL  = K + L - 1\r\n      K3  = K + 3\r\n      L3  = L + 3\r\n      D = C(KL)*AQ(K1)*AQ(L1)+C(K3)*AQ(K1)*AQ(L2)+C(L3)*AQ(K2)*AQ(L1)\r\nC\r\n      V = C(KL)*((AQ(K1)*BQ(L1))+(BQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*BQ(L2))\r\n     1  + (BQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*BQ(L1))+(BQ(K2)*AQ(L1)))\r\nC\r\n      F = C(KL)*((AQ(K1)*CQ(L1))+(CQ(K1)*AQ(L1)))+C(K3)*((AQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*AQ(L2)))+C(L3)*((AQ(K2)*CQ(L1))+(CQ(K2)*AQ(L1)))\r\nC\r\n      H = C(KL)*((BQ(K1)*CQ(L1))+(CQ(K1)*BQ(L1)))+C(K3)*((BQ(K1)*CQ(L2))\r\n     1  + (CQ(K1)*BQ(L2)))+C(L3)*((BQ(K2)*CQ(L1))+(CQ(K2)*BQ(L1)))\r\nC\r\n      P = C(KL)*BQ(K1)*BQ(L1)+C(K3)*BQ(K1)*BQ(L2)+C(L3)*BQ(K2)*BQ(L1)\r\nC\r\n      Q = C(KL)*CQ(K1)*CQ(L1)+C(K3)*CQ(K1)*CQ(L2)+C(L3)*CQ(K2)*CQ(L1)\r\nC\r\nC     USE GAUSSIAN INTEGRATION TO FIND THE PARTITIONS OF THE STIFFNESS\r\nC     MATRIX FOR THE MEAN PLANE ELEMENT\r\nC\r\n      U(NN) = ZERO\r\n      DO 80 IA01 = 1,2\r\n      DO 80 JA01 = 1,2\r\n      U(NN) = U(NN) +\r\n     1    O(D,V,F,H,P,Q,Y4A,X12,Y34,Y3A,X23,X14,ETA01(IA01),ETA01(JA01))\r\n   80 CONTINUE\r\n      U(NN) = U(NN)/4.0D0*DBLE(THICK)\r\nC\r\nC     ADD SHEAR TERMS HERE\r\nC\r\n      U(NN) = U(NN) + FACT*(AQ(K2)+0.5*(BQ(K2)+CQ(K2)))\r\n     1                    *(AQ(L2)+0.5*(BQ(L2)+CQ(L2)))\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     TRANSFORM FROM MEAN PLANE TO ACTUAL GRID POINTS\r\nC\r\nC                   T\r\nC      K = B * K * B\r\nC\r\nC     EXPAND MATRIX TO INCLUDE Z COORDINATES\r\nC\r\nC     IF NON-PLANAR,\r\nC\r\n      IF (PLANAR) GO TO 130\r\n      CALL GMMATD (B(1),12,8,0, U(1),8,8,0, BTXK(1))\r\n      CALL GMMATD (BTXK(1),12,8,0, B(1),12,8,1, TEMPAR(1))\r\n      GO TO 200\r\nC\r\nC     IF PLANAR, TEMPAR(12X12) .EQ. U(8X8)\r\nC\r\n  130 IJ1 =-12\r\n      I2  = 144\r\n      DO 140 I = 1,64\r\n  140 TEMPAR(I2+I) = U(I)\r\n      DO 190 I = 1,12\r\n      IJ1 = IJ1 + 12\r\n      IF (MOD(I,3) .NE. 0) GO TO 160\r\n      DO 150 J = 1,12\r\n      IJ = IJ1 + J\r\n  150 TEMPAR(IJ) = ZERO\r\n      GO TO 190\r\n  160 DO 180 J = 1,12\r\n      IJ = IJ1 + J\r\n      IF (MOD(J,3) .NE. 0) GO TO 170\r\n      TEMPAR(IJ) = ZERO\r\n      GO TO 180\r\n  170 I2 = I2 + 1\r\n      TEMPAR(IJ) = TEMPAR(I2)\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC\r\nC                T            T\r\nC     GENERATE (T  * E) AND (E  * T )\r\nC                I                 J\r\nC\r\n  200 DO 230 I = 1,4\r\n      KA = 4*I + 6\r\n      IF (NECPT(KA) .EQ. 0) GO TO 210\r\n      CALL TRANSD (NECPT(KA),TI)\r\n      CALL GMMATD (TI,3,3,1, E,3,3,0, TIE(1,I))\r\n      CALL GMMATD (E,3,3,1, TI,3,3,0, ETJ(1,I))\r\n      GO TO 230\r\n  210 DO 220 II = 1,9\r\n      TIE(II,I) = E(II)\r\n  220 CONTINUE\r\n      ETJ(1,I) = E(1)\r\n      ETJ(2,I) = E(4)\r\n      ETJ(3,I) = E(7)\r\n      ETJ(4,I) = E(2)\r\n      ETJ(5,I) = E(5)\r\n      ETJ(6,I) = E(8)\r\n      ETJ(7,I) = E(3)\r\n      ETJ(8,I) = E(6)\r\n      ETJ(9,I) = E(9)\r\n  230 CONTINUE\r\nC                                      T              T\r\nC     COMPUTE STIFFNESS MATRIX  K   = T  * E * S   * E  * T\r\nC                                IJ    I        IJ         J\r\nC\r\nC     EXTRACT 3 BY 3 PARTITIONS, TRANSFORM TO GLOBAL, AND INSERT BY\r\nC     ORDER OF SILS INTO A 12X12 MATRIX\r\nC\r\n      DO 260 I = 1,4\r\n      J = NGRID(I)\r\n      DO 240 K = 2,5\r\n      IF (NECPT(K) .EQ. J) GO TO 250\r\n  240 CONTINUE\r\n      GO TO 450\r\n  250 MAP(1,I) = J\r\n  260 MAP(2,I) = I\r\n      CALL SORT (0,0,2,1,MAP(1,1),8)\r\nC\r\nC     REPLACE SILS WITH INDICES\r\nC     RESORT FOR ORIGINAL ORDER - WORD 1 WILL CONTAIN NEW LOCATION\r\nC\r\n      DO 270 I = 1,4\r\n  270 MAP(1,I) = I\r\n      CALL SORT (0,0,2,2,MAP(1,1),8)\r\nC\r\nC     MOVE AND TRANSFORM HERE\r\nC\r\nC     ROW LOOP\r\nC\r\n      DO 300 I = 1,4\r\n      IOR = 36*(I-1)\r\n      INR = 36*(MAP(1,I)-1)\r\nC\r\nC     COLUMN LOOP\r\nC\r\n      DO 300 J = 1,4\r\n      IOCL = IOR + 3*(J-1)\r\n      INCL = INR + 3*(MAP(1,J)-1)\r\nC\r\nC     INNER LOOPS\r\nC\r\n      DO 280 K = 1,3\r\n      KL = IOCL + 12*(K-1)\r\n      DO 280 L = 1,3\r\n      KJJ(L,K) = TEMPAR(KL+L)\r\n  280 CONTINUE\r\nC\r\nC     TRANSFORM 3 BY 3\r\nC\r\n      CALL GMMATD (KJJ,3,3,0, ETJ(1,J),3,3,0, E)\r\n      CALL GMMATD (TIE(1,I),3,3,0, E,3,3,0, KJJ)\r\nC\r\nC     INSERT\r\nC\r\n      DO 290 K = 1,3\r\n      KL = INCL + 12*(K-1)\r\n      DO 290 L = 1,3\r\n      B(KL+L) = KJJ(L,K)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\nC\r\nC     PREPARE OUTPUT TO SMA1B\r\nC\r\n      CALL SORT (0,0,4,1,NGRID(1),4)\r\n      DO 350 J = 1,4\r\n      IF (NPVT .NE. NGRID(J)) GO TO 350\r\n      MPOINT = (J-1)*36\r\n      IF (HEAT) GO TO 330\r\nC\r\nC     SEND ONLY THE 4 6X6 SUBMATRICES ASSOCIATED TO THE PIVOT POINT TO\r\nC     SMA1B\r\nC\r\n      DO 320 K = 1,4\r\n      DO 310 I = 1,36\r\n  310 KIJ(I) = ZERO\r\nC\r\n      KIJ( 1) = B(MPOINT+ 1)\r\n      KIJ( 2) = B(MPOINT+ 2)\r\n      KIJ( 3) = B(MPOINT+ 3)\r\n      KIJ( 7) = B(MPOINT+13)\r\n      KIJ( 8) = B(MPOINT+14)\r\n      KIJ( 9) = B(MPOINT+15)\r\n      KIJ(13) = B(MPOINT+25)\r\n      KIJ(14) = B(MPOINT+26)\r\n      KIJ(15) = B(MPOINT+27)\r\n      CALL SMA1B (KIJ(1),NGRID(K),-1,IFKGG,ZERO)\r\n  320 MPOINT = MPOINT + 3\r\nC\r\n      IF (IOPT4.EQ.0 .OR. GSUBE.EQ. 0.0) GO TO 350\r\n      TEMP = GSUBE\r\n      CALL SMA1B (KIJ(1),NGRID(J),-1,IF4GG,TEMP)\r\n      K4GGW = 1\r\n      GO TO 350\r\nC\r\nC     HEAT FORMULATION\r\nC\r\n  330 CALL SMA1B (B(MPOINT+1),NGRID(I),NPVT,IFKGG,ZERO)\r\nC\r\n  350 CONTINUE\r\n      GO TO 470\r\nC\r\nC     ERROR EXITS\r\nC\r\n  410 J = 32\r\n      GO TO 440\r\n  420 J = 31\r\n      GO TO 440\r\n  430 J = 26\r\n  440 K = 30\r\n      GO TO 460\r\n  450 K =-30\r\n      J = 34\r\n  460 CALL MESAGE (K,J,ECPT(1))\r\n      NOGO = .TRUE.\r\nC\r\n  470 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm2.f",
    "content": "      SUBROUTINE QDMM2 (TEMPS,PG)\r\nC\r\nC     THERMAL LOAD GENERATION FOR THE QDMEM2 ELEMENT.\r\nC\r\nC     ELEMENT EST ENTRY CONTENTS\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC     +   1 = ID                                        +\r\nC     +   2 = SIL-PT-A            (ELEMENT CONNECTS     +\r\nC     +   3 = SIL-PT-B             GRID POINTS A,B,     +\r\nC     +   4 = SIL-PT-C             C,D IN THAT ORDER)   +\r\nC     +   5 = SIL-PT-D                                  +\r\nC     +   6 = MATERIAL-ANGLE                            +\r\nC     +   7 = MATERIAL-ID                               +\r\nC     +   8 = THICKNESS OF ELEMENT                      +\r\nC     +   9 = NON-STRUCTURAL-MASS                       +\r\nC     +  10 = COORD-SYS-ID PT-A OR 0                    +\r\nC     +  11 = XA                                        +\r\nC     +  12 = YA                                        +\r\nC     +  13 = ZA                                        +\r\nC     +  14 = COORD-SYS-ID PT-B OR 0                    +\r\nC     +  15 = XB                                        +\r\nC     +  16 = YB                                        +\r\nC     +  17 = ZB                                        +\r\nC     +  18 = COORD-SYS-ID PT-C OR 0                    +\r\nC     +  19 = XC                                        +\r\nC     +  20 = YC                                        +\r\nC     +  21 = ZC                                        +\r\nC     +  22 = COORD-SYS-ID PT-D OR 0                    +\r\nC     +  23 = XD                                        +\r\nC     +  24 = YD                                        +\r\nC     +  25 = ZD                                        +\r\nC     +  26 = AVERAGE OF CONNECTED GRID TEMPERATURES    +\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC\r\n      LOGICAL         PLANAR\r\n      INTEGER         NEST(7),MAP(4,3)\r\n      REAL            RMAT(3,5),ET(9),K5SUM(9,5),ISINTH,KMAT(27),\r\n     1                ITEMP9(9),ALPHA(3),PMAT(9),JTEMP9(9),ICOSTH,\r\n     2                GSUBE(9),TEMPS(1),PG(1),PSUM(3,5),IT\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33, RHO, ALPS(3), TSUB0\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /TRIMEX/ EST(26)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(NEST(1),EST(1))\r\n      DATA    MAP   / 1, 2, 3, 4,\r\n     1                2, 3, 4, 1,\r\n     2                5, 5, 5, 5 /\r\nC\r\nC     COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE.\r\nC\r\n      ANGL   = EST(6)*DEGRA\r\n      ISINTH = SIN(ANGL)\r\n      ICOSTH = COS(ANGL)\r\nC\r\nC     COMPUTE GSUBE MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID  = NEST(7)\r\n      ELTEMP = EST(26)\r\n      SINTH  = 0.0\r\n      COSTH  = 1.0\r\n      CALL MAT (NEST(1))\r\n      GSUBE(1) = G11\r\n      GSUBE(2) = G12\r\n      GSUBE(3) = G13\r\n      GSUBE(4) = G12\r\n      GSUBE(5) = G22\r\n      GSUBE(6) = G23\r\n      GSUBE(7) = G13\r\n      GSUBE(8) = G23\r\n      GSUBE(9) = G33\r\nC\r\nC     FORM  ALPHA = ALPS *(T-T )  3X1 VECTOR USED IN SUB-TRIANGLE CALCS\r\nC                       E     0\r\nC\r\n      TBAR     = TEMPS(1) - TSUB0\r\n      ALPHA(1) = ALPS(1)*TBAR\r\n      ALPHA(2) = ALPS(2)*TBAR\r\n      ALPHA(3) = ALPS(3)*TBAR\r\nC\r\nC     NOTE THE ABOVE MAY BE MOVED TO BELOW AND COMPUTED USING THE\r\nC     GRID TEMPS OF SUB-TRIANGLE.  (I.E. TOTAL AVERAGE FOR CENTER POINT\r\nC     ONLY.)  AVERAGE OF WHOLE ELEMENT IS USED EXCLUSIVELY NOW.\r\nC\r\nC     BASIC WHOLE-ELEMENT CALCULATIONS\r\nC\r\n      CALL Q2BCS (EST,PLANAR,RMAT,ET,IERROR)\r\n      IF (IERROR) 10,10,140\r\nC\r\nC     ZERO SUMMATION ARRAYS\r\nC\r\n   10 DO 30 I = 1,5\r\n      DO 20 J = 1,9\r\n      K5SUM(J,I) = 0.0\r\n   20 CONTINUE\r\n      PSUM(1,I) = 0.0\r\n      PSUM(2,I) = 0.0\r\n      PSUM(3,I) = 0.0\r\n   30 CONTINUE\r\nC\r\nC     SUB-TRIANGLE COMPUTATIONS AND SUMMATIONS.\r\nC\r\n      DO 70 I = 1,4\r\n      IA = MAP(I,1)\r\n      IB = MAP(I,2)\r\n      IC = MAP(I,3)\r\n      IT = EST(8)\r\n      CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),ALPHA(1),ISINTH,\r\n     1             ICOSTH,GSUBE,IT,IERROR,2,KMAT,PMAT,DUMMY,DUMMY)\r\n      IF (IERROR) 40,40,140\r\nC\r\nC     SUM IN KCA,KCB,KCC\r\nC\r\n   40 DO 50 K = 1,9\r\n      K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K   )\r\n      K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9)\r\n      K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18)\r\n   50 CONTINUE\r\nC\r\nC     SUM IN PA,PB,PC\r\nC\r\n      DO 60 K = 1,3\r\n      PSUM(K,IA) = PSUM(K,IA) + PMAT(K  )\r\n      PSUM(K,IB) = PSUM(K,IB) + PMAT(K+3)\r\n      PSUM(K,IC) = PSUM(K,IC) + PMAT(K+6)\r\n   60 CONTINUE\r\nC\r\n   70 CONTINUE\r\nC\r\nC     IF -PLANAR- MODIFY THE K5SUM MATRICES.\r\nC\r\n      IF (.NOT.PLANAR) GO TO 90\r\n      DO 80 I = 1,5\r\n      K5SUM(7,I) = 0.0\r\n      K5SUM(8,I) = 0.0\r\n      K5SUM(9,I) =-0.25\r\n   80 CONTINUE\r\n      K5SUM(9,5) = 1.0\r\nC\r\nC     INVERT K   AND NEGATE THE RESULT.\r\nC             55\r\nC\r\n   90 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,K5SUM(1,5),3,DUMMY,0,DETERM,ISING,ITEMP9)\r\n      IF (ISING .EQ. 2) GO TO 140\r\nC\r\n      DO 100 I = 1,9\r\n      K5SUM(I,5) = -K5SUM(I,5)\r\n  100 CONTINUE\r\nC\r\nC     4 (3X1) LOAD VECTORS ARE COMPUTED AND ADDED INTO THE P-VECTOR IN\r\nC     CORE\r\nC\r\nC       G        T   T                  -1      T\r\nC     (P ) = (T ) (E) ((PSUM ) + ((-K  ) (K  )) (PSUM ))\r\nC       I      I            I        55    5I        5\r\nC\r\n      DO 130 I = 1,4\r\n      CALL GMMATS (K5SUM(1,5),3,3,0,K5SUM(1,I),3,3,0,ITEMP9)\r\n      CALL GMMATS (ITEMP9,3,3,1,PSUM(1,5),3,1,0,JTEMP9)\r\n      DO 110 J = 1,3\r\n      PSUM(J,I) = PSUM(J,I) + JTEMP9(J)\r\n  110 CONTINUE\r\n      CALL GMMATS (ET,3,3,1,PSUM(1,I),3,1,0,JTEMP9)\r\n      JTEMP9(4) = 0.0\r\n      JTEMP9(5) = 0.0\r\n      JTEMP9(6) = 0.0\r\n      K = 4*I + 6\r\n      IF (NEST(K) .NE. 0) CALL BASGLB (JTEMP9,JTEMP9,NEST(K+1),NEST(K))\r\nC\r\nC     ADD LOAD TO CORE FOR THIS GRID\r\nC                                   I\r\n      L = NEST(I+1)\r\n      DO 120 J = 1,3\r\n      PG(L) = PG(L) + JTEMP9(J)\r\n      L = L + 1\r\n  120 CONTINUE\r\nC\r\n  130 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n  140 WRITE  (IOUTPT,150) UWM,NEST(1)\r\n  150 FORMAT (A25,' 3100, ELEMENT THERMAL LOAD COMPUTATION FOR QDMEM2 ',\r\n     1       'ELEMENT ID =',I9, /5X,'FINDS ILLEGAL GEOMETRY THUS NO ',\r\n     2       'LOADS OUTPUT FOR ELEMENT-ID NOTED.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm2d.f",
    "content": "      SUBROUTINE QDMM2D\r\nC\r\nC     THIS ROUTINE CALCULATES THE STIFFNESS, MASS AND DAMPING MATRICES\r\nC     FOR THE QDMM2 ELEMENT.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS SUBROUTINE USES SUBROUTINE E MA D TQ TO CALCULATE THE LUMPED\r\nC     MASS USING THE SAME METHOD AS WITH THE QDMEM ELEMENT.\r\nC\r\nC     THIS ROUTINE MAY NOT BE CALLED IN A HEAT PROBLEM.\r\nC\r\nC     ELEMENT EST ENTRY CONTENTS\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC     +   1 = ID                                        +\r\nC     +   2 = SIL-PT-A            (ELEMENT CONNECTS     +\r\nC     +   3 = SIL-PT-B             GRID POINTS A,B,     +\r\nC     +   4 = SIL-PT-C             C,D IN THAT ORDER)   +\r\nC     +   5 = SIL-PT-D                                  +\r\nC     +   6 = MATERIAL-ANGLE                            +\r\nC     +   7 = MATERIAL-ID                               +\r\nC     +   8 = THICKNESS OF ELEMENT                      +\r\nC     +   9 = NON-STRUCTURAL-MASS                       +\r\nC     +  10 = COORD-SYS-ID PT-A OR 0                    +\r\nC     +  11 = XA                                        +\r\nC     +  12 = YA                                        +\r\nC     +  13 = ZA                                        +\r\nC     +  14 = COORD-SYS-ID PT-B OR 0                    +\r\nC     +  15 = XB                                        +\r\nC     +  16 = YB                                        +\r\nC     +  17 = ZB                                        +\r\nC     +  18 = COORD-SYS-ID PT-C OR 0                    +\r\nC     +  19 = XC                                        +\r\nC     +  20 = YC                                        +\r\nC     +  21 = ZC                                        +\r\nC     +  22 = COORD-SYS-ID PT-D OR 0                    +\r\nC     +  23 = XD                                        +\r\nC     +  24 = YD                                        +\r\nC     +  25 = ZD                                        +\r\nC     +  26 = AVERAGE OF CONNECTED GRID TEMPERATURES    +\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC\r\n      LOGICAL          PLANAR,NOGO,IHEAT\r\n      INTEGER          DICT(11),ELID,ESTID,IPART(4),NEST(7),MAP(4,3)\r\n      DOUBLE PRECISION KIJ(1),KOUT(144),RMAT(3,5),ET(9),K1SUM(9,16),\r\n     1                 ISINTH,KMAT(63),K5SUM(9,5),ICOSTH,GSUBE(9),IT,\r\n     2                 G(36),ITEMP9(9),K5MOD(9,5),TMAT(36),JTEMP9(9),\r\n     3                 IDETRM,KTEMP9(9)\r\n      CHARACTER        UFM*23,UWM*25\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /EMGEST/  EST(26)\r\n      COMMON /EMGPRM/  DUMM(15),ISMD(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/  DUM(2),NGRIDS,ELID,ESTID\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHO,ALPS(3),TSUB0,GE\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /CONDAS/  PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      EQUIVALENCE      (KSYSTM(2),IOUTPT),(NEST(1),EST(1)),\r\n     1                 (DICT(5),DICT5),(K1SUM(1,1),KIJ(1)),\r\n     2                 (KSYSTM(56),IHEAT)\r\n      DATA    MAP   /  1, 2, 3, 4,\r\n     1                 2, 3, 4, 1,\r\n     2                 5, 5, 5, 5  /\r\nC\r\nC     THIS ELEMENT NOT USED IN A HEAT PROBLEM\r\nC\r\n      IF (IHEAT) GO TO 320\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRID POINTS ACCORDING TO\r\nC     INCREASING SIL VALUE\r\nC\r\n      DO 2 I = 1,4\r\n      IPART(I) = NEST(I+1)\r\n    2 CONTINUE\r\n      I = -4\r\n    4 J = 0\r\n      DO 6 K = 1,4\r\n      IF (IPART(K) .LT. J) GO TO 6\r\n      J = IPART(K)\r\n      L = K\r\n    6 CONTINUE\r\n      IPART(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 4\r\n      DO 8 I = 1,4\r\n      IPART(I) = -IPART(I)\r\n    8 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX NEEDED\r\nC     SET UP DICT ARRAY AND FOR STIFFNESS MATRIX\r\nC     CALCULATIONS, OTHERWISE SKIP\r\nC\r\n      IF (ISMD(1) .EQ. 0) GO TO 400\r\nC\r\nC     COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE.\r\nC\r\n      ANGL   = EST(6)*DEGRA\r\n      ISINTH = SIN(ANGL)\r\n      ICOSTH = COS(ANGL)\r\nC\r\nC     COMPUTE GSUBE MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID  = NEST(7)\r\n      ELTEMP = EST(26)\r\n      SINTH  = 0.0\r\n      COSTH  = 1.0\r\n      CALL MAT (NEST(1))\r\n      GSUBE(1) = G11\r\n      GSUBE(2) = G12\r\n      GSUBE(3) = G13\r\n      GSUBE(4) = G12\r\n      GSUBE(5) = G22\r\n      GSUBE(6) = G23\r\n      GSUBE(7) = G13\r\n      GSUBE(8) = G23\r\n      GSUBE(9) = G33\r\nC\r\nC     BASIC WHOLE-ELEMENT CALCULATIONS\r\nC\r\n      CALL Q2BCD (EST,PLANAR,RMAT,ET,IERROR)\r\n      IF (IERROR) 10,10,270\r\nC\r\nC     ZERO SUMMATION ARRAYS\r\nC\r\n   10 DO 40 I = 1,9\r\n      DO 20 J = 1,16\r\n      K1SUM(I,J) = 0.0D0\r\n   20 CONTINUE\r\n      DO 30 J = 1,5\r\n      K5SUM(I,J) = 0.0D0\r\n   30 CONTINUE\r\n   40 CONTINUE\r\nC\r\nC     SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED.\r\nC\r\n      DO 70 I = 1,4\r\nC\r\nC     CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS\r\nC\r\n      IA = MAP(I,1)\r\n      IB = MAP(I,2)\r\n      IC = MAP(I,3)\r\n      IT = EST(8)\r\nC\r\n      CALL Q2TRMD (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),DUMMY,ISINTH,ICOSTH,\r\n     1             GSUBE,IT,IERROR,1,KMAT,DUMMY,DUMMY,DUMMY)\r\n      IF (IERROR) 50,50,270\r\nC\r\nC     SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT\r\nC\r\nC     ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT.\r\nC     THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = ,\r\nC\r\nC     K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44\r\nC\r\nC     J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S.\r\nC\r\n   50 J1 = 5*IA - 4\r\n      J2 = 4*IA - 4 + IB\r\n      J3 = 4*IB - 4 + IA\r\n      J4 = 5*IB - 4\r\nC\r\n      DO 60 K = 1,9\r\n      K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K   )\r\n      K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9)\r\n      K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18)\r\n      K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27)\r\n      K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36)\r\n      K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45)\r\n      K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54)\r\n   60 CONTINUE\r\nC\r\n   70 CONTINUE\r\nC\r\nC     FORMATION OF THE FOUR (3X3) G MATRICES.\r\nC                     -1\r\nC     (G ) = -(K5SUM  ) (K  )   NOTE.  IF -PLANAR- THEN MODIFIED\r\nC       I           55    5I           K5SUM MATRICES ARE USED.\r\nC\r\n      IF (PLANAR) GO TO 90\r\n      DO 80 I = 1,5\r\n      DO 80 J = 1,9\r\n      K5MOD(J,I) = K5SUM(J,I)\r\n   80 CONTINUE\r\n      GO TO 110\r\nC\r\n   90 DO 100 I = 1,5\r\n      K5MOD(1,I) = K5SUM(1,I)\r\n      K5MOD(2,I) = K5SUM(2,I)\r\n      K5MOD(3,I) = K5SUM(3,I)\r\n      K5MOD(4,I) = K5SUM(4,I)\r\n      K5MOD(5,I) = K5SUM(5,I)\r\n      K5MOD(6,I) = K5SUM(6,I)\r\n      K5MOD(7,I) = 0.0D0\r\n      K5MOD(8,I) = 0.0D0\r\n      K5MOD(9,I) =-0.25D0\r\n  100 CONTINUE\r\n      K5MOD(9,5) = 1.0D0\r\nC\r\nC     INVERT K5MOD   AND NEGATE RESULT.\r\nC                 55\r\nC\r\n  110 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (3,K5MOD(1,5),3,DUMMY,0,IDETRM,ISING,ITEMP9)\r\n      IF (ISING .EQ. 2) GO TO 290\r\nC\r\n      DO 120 I = 1,9\r\n      K5MOD(I,5) = -K5MOD(I,5)\r\n  120 CONTINUE\r\nC\r\nC     FORM G MATRICES\r\nC\r\n      DO 130 I = 1,4\r\n      CALL GMMATD (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8))\r\n  130 CONTINUE\r\nC\r\nC     FORMATION OF THE 4 TRANSFORMATION MATRICES EACH (3X3)\r\nC\r\n      DO 170 I = 1,4\r\n      IEST = 4*I + 6\r\n      IF (NEST(IEST)) 140,150,140\r\nC\r\nC     GET TRANSFORMATION MATRIX\r\nC\r\n  140 CALL TRANSD (NEST(IEST),ITEMP9)\r\n      CALL GMMATD (ET,3,3,0, ITEMP9,3,3,0, TMAT(9*I-8))\r\n      GO TO 170\r\nC\r\n  150 K = 9*I - 9\r\n      DO 160 J = 1,9\r\n      K = K + 1\r\n      TMAT(K) = ET(J)\r\n  160 CONTINUE\r\nC\r\n  170 CONTINUE\r\nC\r\nC     FORM STIFFNESS MATRIX BY ROW-PARTIONS.\r\nC\r\n      DO 260 I = 1,4\r\nC                          T\r\nC     IF -PLANAR- FORM (G ) (K  ) FOR USE IN COLUMN-PARTITIONS LOOP.\r\nC                        I    55\r\nC\r\n      IF (.NOT.PLANAR) GO TO 190\r\n      CALL GMMATD (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9)\r\nC\r\nC     COLUMN-PARTITIONS-LOOP\r\nC\r\n  190 DO 250 J = 1,4\r\nC                                   T\r\nC     FORM (K  ) = (K5SUM  ) + (K  ) (G )\r\nC            IJ          IJ      5I    J\r\nC\r\n      CALL GMMATD (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9)\r\n      LPART = 4*I - 4 + J\r\n      DO 200 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K)\r\n  200 CONTINUE\r\nC\r\nC     BALANCE OF TERMS IF -PLANAR-\r\nC\r\nC                T            T\r\nC     ADD IN (G ) (K  ) + (G ) (K  )(G )\r\nC              I    5J      I    55   J\r\nC\r\n      IF (.NOT.PLANAR) GO TO 220\r\n      CALL GMMATD (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9)\r\n      CALL GMMATD (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9)\r\n      DO 210 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K)\r\n  210 CONTINUE\r\nC\r\nC     TRANSFORM THIS RESULTANT K   (3X3) STORED AT K1SUM(1,LPART)\r\nC                               IJ\r\nC     TO GLOBAL.\r\nC\r\n  220 CALL GMMATD (TMAT(9*I-8),3,3,1, K1SUM(1,LPART),3,3,0, JTEMP9)\r\n      CALL GMMATD (JTEMP9,3,3,0, TMAT(9*J-8),3,3,0, K1SUM(1,LPART))\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\nC     FOR THE MATRIX ASSEMBLER -EMG- THE 16 (3X3) PARTITIONS IN K1SUM\r\nC     ARE REARRANGED TO STORE THEM BY ROWS TO A TOTAL OF\r\nC     12X12 RATHER THAN 3X3.  BUT FIRST DICT MUST BE\r\nC     SET UP.  THE SILS MUST BE SORTED SO THAT THE 12X12 WILL\r\nC     BE BY INCREASING SIL VALUE\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = GE\r\n      IP      = IPREC\r\nC\r\nC     REORDER K1SUM INTO KOUT AS DESCRIBED ABOVE\r\nC\r\nC         ****          ****\r\nC         * K   K   K   K  *\r\nC         *  AA  AB  AC  AD*\r\nC     K = * K   K   K   K  *\r\nC         *  BA  BB  BC  BD*\r\nC         * K   K   K   K  *\r\nC         *  CA  CB  CC  CD*\r\nC         * K   K   K   K  *\r\nC         *  DA  DB  DC  DD*\r\nC         ****          ****\r\nC\r\nC     WHERE SUBSCRIPTS ARE ARRANGED BY INCREASING SIL VALUE\r\nC\r\n      DO 390 I = 1,4\r\n      II = IPART(I)\r\n      DO 380 J = 1,4\r\n      JTT = IPART(J)\r\n      JT = (I-1)*4  + J\r\n      DO 370 K= 1,9\r\n      MODK = MOD(K,3)\r\n      IF(MODK .EQ. 0) MODK = 3\r\n       L = (II-1)*36 + ((K-1)/3)*12 + (JTT-1)*3 + MODK\r\n      KOUT(L) = K1SUM(K,JT)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     CALCULATE THE MASS MATRIX HERE.  SUBROUTINE\r\nC     E MAS TQ IS USED TO GENERATE A LUMPED\r\nC     MASS MATRIX EXACTLY LIKE A QDMEM ELEMENT\r\nC\r\n  400 IF (ISMD(2) .EQ. 0) RETURN\r\nC\r\n      CALL E MA D TQ (1,K1SUM)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT(5) = 0\r\nC\r\nC     REARRANGE KIJ BY INCREASING SIL VALUE\r\nC\r\n      DO 440 I = 1,4\r\n      II = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      KOUT(IJ  ) = KIJ(II  )\r\n      KOUT(IJ+1) = KIJ(II+1)\r\n  440 KOUT(IJ+2) = KIJ(II+2)\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ELEMENT ERRORS DETECTED.\r\nC\r\n  270 WRITE  (IOUTPT,280) UFM,NEST(1)\r\n  280 FORMAT (A23,' 3098,  QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS ',\r\n     1       'ILLEGAL GEOMETRY FOR ELEMENT ID =',I10)\r\n      GO TO 310\r\n  290 WRITE  (IOUTPT,300) UFM,NEST(1)\r\n  300 FORMAT (A23,' 3099.  ELEMENT STIFFNESS COMPUTATION FOR QDMEM2 ',\r\n     1       'ELEMENT ID =',I10, /5X,'IS IMPOSSIBLE DUE TO SINGULARITY',\r\n     2       ' IN CONSTRAINT EQUATION.')\r\n  310 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n  320 WRITE (IOUTPT,330) UWM,NEST(1)\r\n  330 FORMAT (A25,' 3115, QDMM2 FINDS ELEMENT NUMBER',I10,\r\n     1       ' PRESENT IN A HEAT FORMULATION AND IS IGNORING SAME.')\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdmm2s.f",
    "content": "      SUBROUTINE QDMM2S\r\nC\r\nC     THIS ROUTINE CALCULATES THE STIFFNESS, MASS AND DAMPING MATRICES\r\nC     FOR THE QDMM2 ELEMENT.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS ROUTINE USES SUBROUTINE E MAS TQ TO CALCULATE THE LUMPED\r\nC     MASS USING THE SAME METHOD AS WITH THE QDMEM ELEMENT.\r\nC\r\nC     THIS ROUTINE MAY NOT BE CALLED IN A HEAT PROBLEM.\r\nC\r\nC     ELEMENT EST ENTRY CONTENTS\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC     +   1 = ID                                        +\r\nC     +   2 = SIL-PT-A            (ELEMENT CONNECTS     +\r\nC     +   3 = SIL-PT-B             GRID POINTS A,B,     +\r\nC     +   4 = SIL-PT-C             C,D IN THAT ORDER)   +\r\nC     +   5 = SIL-PT-D                                  +\r\nC     +   6 = MATERIAL-ANGLE                            +\r\nC     +   7 = MATERIAL-ID                               +\r\nC     +   8 = THICKNESS OF ELEMENT                      +\r\nC     +   9 = NON-STRUCTURAL-MASS                       +\r\nC     +  10 = COORD-SYS-ID PT-A OR 0                    +\r\nC     +  11 = XA                                        +\r\nC     +  12 = YA                                        +\r\nC     +  13 = ZA                                        +\r\nC     +  14 = COORD-SYS-ID PT-B OR 0                    +\r\nC     +  15 = XB                                        +\r\nC     +  16 = YB                                        +\r\nC     +  17 = ZB                                        +\r\nC     +  18 = COORD-SYS-ID PT-C OR 0                    +\r\nC     +  19 = XC                                        +\r\nC     +  20 = YC                                        +\r\nC     +  21 = ZC                                        +\r\nC     +  22 = COORD-SYS-ID PT-D OR 0                    +\r\nC     +  23 = XD                                        +\r\nC     +  24 = YD                                        +\r\nC     +  25 = ZD                                        +\r\nC     +  26 = AVERAGE OF CONNECTED GRID TEMPERATURES    +\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC\r\n      LOGICAL         PLANAR,NOGO,IHEAT\r\n      INTEGER         DICT(11),ELID,ESTID,IPART(4),NEST(7),MAP(4,3)\r\n      REAL            RMAT(3,5),ET(9),K1SUM(9,16),KIJ(1),ISINTH,\r\n     1                KMAT(63),K5SUM(9,5),ICOSTH,GSUBE(9),IT,G(36),\r\n     2                ITEMP9(9),K5MOD(9,5),TMAT(36),JTEMP9(9),IDETRM,\r\n     3                KTEMP9(9),KOUT(144)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /EMGEST/ EST(26)\r\n      COMMON /EMGPRM/ DUMM(15),ISMD(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/ DUM(2),NGRIDS,ELID,ESTID\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPS(3),TSUB0,GE\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(NEST(1),EST(1)),\r\n     1                (DICT(5),DICT5),(K1SUM(1,1),KIJ(1)),\r\n     2                (KSYSTM(56),IHEAT)\r\n      DATA    MAP   / 1, 2, 3, 4,\r\n     1                2, 3, 4, 1,\r\n     2                5, 5, 5, 5  /\r\nC\r\nC\r\nC     THIS ELEMENT NOT USED IN A HEAT PROBLEM\r\nC\r\n      IF (IHEAT) GO TO 320\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRID POINTS ACCORDING TO\r\nC     INCREASING SIL VALUE\r\nC\r\n      DO 2 I = 1,4\r\n      IPART(I) = NEST(I+1)\r\n    2 CONTINUE\r\n      I = -4\r\n    4 J = 0\r\n      DO 6 K = 1,4\r\n      IF (IPART(K) .LT. J) GO TO 6\r\n      J = IPART(K)\r\n      L = K\r\n    6 CONTINUE\r\n      IPART(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 4\r\n      DO 8 I = 1,4\r\n      IPART(I) = -IPART(I)\r\n    8 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX NEEDED\r\nC     SET UP DICT ARRAY AND FOR STIFFNESS MATRIX\r\nC     CALCULATIONS, OTHERWISE SKIP\r\nC\r\n      IF (ISMD(1) .EQ. 0) GO TO 400\r\nC\r\nC      COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE.\r\nC\r\n      ANGL   = EST(6)*DEGRA\r\n      ISINTH = SIN(ANGL)\r\n      ICOSTH = COS(ANGL)\r\nC\r\nC     COMPUTE GSUBE MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID  = NEST(7)\r\n      ELTEMP = EST(26)\r\n      SINTH  = 0.0\r\n      COSTH  = 1.0\r\n      CALL MAT (NEST(1))\r\n      GSUBE(1) = G11\r\n      GSUBE(2) = G12\r\n      GSUBE(3) = G13\r\n      GSUBE(4) = G12\r\n      GSUBE(5) = G22\r\n      GSUBE(6) = G23\r\n      GSUBE(7) = G13\r\n      GSUBE(8) = G23\r\n      GSUBE(9) = G33\r\nC\r\nC     BASIC WHOLE-ELEMENT CALCULATIONS\r\nC\r\n      CALL Q2BCS (EST,PLANAR,RMAT,ET,IERROR)\r\n      IF (IERROR) 10,10,270\r\nC\r\nC     ZERO SUMMATION ARRAYS\r\nC\r\n   10 DO 40 I = 1,9\r\n      DO 20 J = 1,16\r\n      K1SUM(I,J) = 0.0\r\n   20 CONTINUE\r\n      DO 30 J = 1,5\r\n      K5SUM(I,J) = 0.0\r\n   30 CONTINUE\r\n   40 CONTINUE\r\nC\r\nC     SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED.\r\nC\r\n      DO 70 I = 1,4\r\nC\r\nC     CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS\r\nC\r\n      IA = MAP(I,1)\r\n      IB = MAP(I,2)\r\n      IC = MAP(I,3)\r\n      IT = EST(8)\r\nC\r\n      CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),DUMMY,ISINTH,ICOSTH,\r\n     1             GSUBE,IT,IERROR,1,KMAT,DUMMY,DUMMY,DUMMY)\r\n      IF (IERROR) 50,50,270\r\nC\r\nC     SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT\r\nC\r\nC     ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT.\r\nC     THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = ,\r\nC\r\nC     K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44\r\nC\r\nC     J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S.\r\nC\r\n   50 J1 = 5*IA - 4\r\n      J2 = 4*IA - 4 + IB\r\n      J3 = 4*IB - 4 + IA\r\n      J4 = 5*IB - 4\r\nC\r\n      DO 60 K = 1,9\r\n      K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K   )\r\n      K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9)\r\n      K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18)\r\n      K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27)\r\n      K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36)\r\n      K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45)\r\n      K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54)\r\n   60 CONTINUE\r\nC\r\n   70 CONTINUE\r\nC\r\nC     FORMATION OF THE FOUR (3X3) G MATRICES.\r\nC                     -1\r\nC     (G ) = -(K5SUM  ) (K  )   NOTE.  IF -PLANAR- THEN MODIFIED\r\nC       I           55    5I           K5SUM MATRICES ARE USED.\r\nC\r\n      IF (PLANAR) GO TO 90\r\n      DO 80 I = 1,5\r\n      DO 80 J = 1,9\r\n      K5MOD(J,I) = K5SUM(J,I)\r\n   80 CONTINUE\r\n      GO TO 110\r\nC\r\n   90 DO 100 I = 1,5\r\n      K5MOD(1,I) = K5SUM(1,I)\r\n      K5MOD(2,I) = K5SUM(2,I)\r\n      K5MOD(3,I) = K5SUM(3,I)\r\n      K5MOD(4,I) = K5SUM(4,I)\r\n      K5MOD(5,I) = K5SUM(5,I)\r\n      K5MOD(6,I) = K5SUM(6,I)\r\n      K5MOD(7,I) = 0.0\r\n      K5MOD(8,I) = 0.0\r\n      K5MOD(9,I) =-0.25\r\n  100 CONTINUE\r\n      K5MOD(9,5) = 1.0\r\nC\r\nC     INVERT K5MOD   AND NEGATE RESULT.\r\nC                 55\r\nC\r\n  110 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,K5MOD(1,5),3,DUMMY,0,IDETRM,ISING,ITEMP9)\r\n      IF (ISING .EQ. 2) GO TO 290\r\nC\r\n      DO 120 I = 1,9\r\n      K5MOD(I,5) = -K5MOD(I,5)\r\n  120 CONTINUE\r\nC\r\nC     FORM G MATRICES\r\nC\r\n      DO 130 I = 1,4\r\n      CALL GMMATS (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8))\r\n  130 CONTINUE\r\nC\r\nC     FORMATION OF THE 4 TRANSFORMATION MATRICES EACH (3X3)\r\nC\r\n      DO 170 I = 1,4\r\n      IEST = 4*I + 6\r\n      IF (NEST(IEST)) 140,150,140\r\nC\r\nC     GET TRANSFORMATION MATRIX\r\nC\r\n  140 CALL TRANSS (NEST(IEST),ITEMP9)\r\n      CALL GMMATS (ET,3,3,0, ITEMP9,3,3,0, TMAT(9*I-8))\r\n      GO TO 170\r\nC\r\n  150 K = 9*I - 9\r\n      DO 160 J = 1,9\r\n      K = K + 1\r\n      TMAT(K) = ET(J)\r\n  160 CONTINUE\r\nC\r\n  170 CONTINUE\r\nC\r\nC     FORM STIFFNESS MATRIX BY ROW-PARTIONS.\r\nC\r\n      DO 260 I = 1,4\r\nC                          T\r\nC     IF -PLANAR- FORM (G ) (K  ) FOR USE IN COLUMN-PARTITIONS LOOP.\r\nC                        I    55\r\nC\r\n      IF (.NOT.PLANAR) GO TO 190\r\n      CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9)\r\nC\r\nC     COLUMN-PARTITIONS-LOOP\r\nC\r\n  190 DO 250 J = 1,4\r\nC                                   T\r\nC     FORM (K  ) = (K5SUM  ) + (K  ) (G )\r\nC            IJ          IJ      5I    J\r\nC\r\n      CALL GMMATS (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9)\r\n      LPART = 4*I - 4 + J\r\n      DO 200 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K)\r\n  200 CONTINUE\r\nC\r\nC     BALANCE OF TERMS IF -PLANAR-\r\nC\r\nC                T            T\r\nC     ADD IN (G ) (K  ) + (G ) (K  )(G )\r\nC              I    5J      I    55   J\r\nC\r\n      IF (.NOT.PLANAR) GO TO 220\r\n      CALL GMMATS (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9)\r\n      CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9)\r\n      DO 210 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K)\r\n  210 CONTINUE\r\nC\r\nC     TRANSFORM THIS RESULTANT K   (3X3) STORED AT K1SUM(1,LPART)\r\nC                               IJ\r\nC     TO GLOBAL.\r\nC\r\n  220 CALL GMMATS (TMAT(9*I-8),3,3,1, K1SUM(1,LPART),3,3,0, JTEMP9)\r\n      CALL GMMATS (JTEMP9,3,3,0, TMAT(9*J-8),3,3,0, K1SUM(1,LPART))\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\nC     FOR THE MATRIX ASSEMBLER -EMG- THE 16 (3X3) PARTITIONS IN K1SUM\r\nC     ARE REARRANGED TO STORE THEM BY ROWS TO A TOTAL OF\r\nC     12X12 RATHER THAN 3X3.  BUT FIRST DICT MUST BE\r\nC     SET UP.  THE SILS MUST BE SORTED SO THAT THE 12X12 WILL\r\nC     BE BY INCREASING SIL VALUE\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = GE\r\n      IP      = IPREC\r\nC\r\nC     REORDER K1SUM INTO KOUT AS DESCRIBED ABOVE\r\nC\r\nC         ****          ****\r\nC         * K   K   K   K  *\r\nC         *  AA  AB  AC  AD*\r\nC     K = * K   K   K   K  *\r\nC         *  BA  BB  BC  BD*\r\nC         * K   K   K   K  *\r\nC         *  CA  CB  CC  CD*\r\nC         * K   K   K   K  *\r\nC         *  DA  DB  DC  DD*\r\nC         ****          ****\r\nC\r\nC     WHERE SUBSCRIPTS ARE ARRANGED BY INCREASING SIL VALUE\r\nC\r\n      DO 390 I = 1,4\r\n      II = IPART(I)\r\n      DO 380 J = 1,4\r\n      JTT = IPART(J)\r\n      JT = (I-1)*4  + J\r\n      DO 370 K = 1,9\r\n      MODK = MOD(K,3)\r\n      IF (MODK .EQ. 0) MODK = 3\r\n      L = (II-1)*36 + ((K-1)/3)*12 + (JTT-1)*3 + MODK\r\n      KOUT(L) = K1SUM(K,JT)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n  390 CONTINUE\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     CALCULATE THE MASS MATRIX HERE.  SUBROUTINE\r\nC     E MAS TQ IS USED TO GENERATE A LUMPED\r\nC     MASS MATRIX EXACTLY LIKE A QDMEM ELEMENT\r\nC\r\n  400 IF (ISMD(2) .EQ. 0) RETURN\r\nC\r\n      CALL E MAS TQ (1,K1SUM)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT(5) = 0\r\nC\r\nC     REARRANGE KIJ BY INCREASING SIL VALUE\r\nC\r\n      DO 440 I = 1,4\r\n      II = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      KOUT(IJ  ) = KIJ(II  )\r\n      KOUT(IJ+1) = KIJ(II+1)\r\n  440 KOUT(IJ+2) = KIJ(II+2)\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ELEMENT ERRORS DETECTED.\r\nC\r\n  270 WRITE  (IOUTPT,280) UFM,NEST(1)\r\n  280 FORMAT (A23,' 3098,  QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS ',\r\n     1        'ILLEGAL GEOMETRY FOR ELEMENT ID =',I10)\r\n      GO TO 310\r\n  290 WRITE  (IOUTPT,300) UFM,NEST(1)\r\n  300 FORMAT (A23,' 3099.  ELEMENT STIFFNESS COMPUTATION FOR QDMEM2 ',\r\n     1       'ELEMENT ID =',I10, /5X,'IS IMPOSSIBLE DUE TO SINGULARITY',\r\n     2       ' IN CONSTRAINT EQUATION.')\r\n  310 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n  320 WRITE  (IOUTPT,330) UWM,NEST(1)\r\n  330 FORMAT (A25,' 3115, QDMM2 FINDS ELEMENT NUMBER',I10,\r\n     1        ' PRESENT IN A HEAT FORMULATION AND IS IGNORING SAME.')\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qdplt.f",
    "content": "      SUBROUTINE QDPLT (TI)\r\nC\r\nC     THERMAL LOADING FOR THE BENDING QUADRILATERAL\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.------TYPE      QUAD.PLT.----------TYPE\r\nC     ========   =================  ======     ================  =======\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB,SUBSCC\r\n      REAL            IVECT,JVECT,KVECT,KHI,TI(6),KS\r\n      DIMENSION       NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3),\r\n     1                REQUIV(10)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /TRIMEX/ ECPT(100)\r\n      COMMON /SSGWRK/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25),\r\n     1                D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG,\r\n     2                SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP,\r\n     3                VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3),\r\n     4                JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC,\r\n     5                SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC,\r\n     6                SPDUM6(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /SSGTRI/ D(9), KHI(5), KS(30), P(5)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)),\r\n     1                (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)),\r\n     2                (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)),\r\n     3                (REQUIV(1),R(1,1))\r\n      DATA    M     / 2,4,1, 3,1,2, 4,2,3, 1,3,4 /\r\nC\r\n      THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,10\r\n   10 REQUIV(I) = 0.0\r\nC\r\nC     SHIFT ECPT UP TO MATCH STRBS1 FOR CERTAIN VARIABLES.\r\nC\r\n      DO 30 I = 6,12\r\n   30 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 40 I = 1,3\r\n      D1(I) = VQ3(I) - VQ1(I)\r\n      D2(I) = VQ4(I) - VQ2(I)\r\n   40 A1(I) = VQ2(I) - VQ1(I)\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 50 I = 1,3\r\n   50 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT)/2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0\r\nC\r\nC     I-VECTOR = (A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 60 I = 1,3\r\n   60 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP = SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      DO 70 I = 1,3\r\n   70 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 80 I = 1,3\r\n   80 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION.\r\nC\r\n      FTEMP = R(1,3)*R(2,4) + R(2,3)*(R(1,2)-R(1,4))\r\n      IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1))\r\n      R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP\r\n      R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90\r\n      TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 90\r\n      TEMP = R(2,3)*R(1,4)/R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 100\r\n   90 CALL MESAGE (-30,35,ECPT(1))\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT...\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n  100 ELTEMP = ECPT(30)\r\n      DO 110 I = 1,60\r\n  110 SSUM(I) = 0.0\r\nC\r\n      DO 160 J = 1,4\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 120 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1 = VV1(1)/XSUBB\r\n      U2 = VV1(2)/XSUBB\r\n      XSUBC = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2)\r\n      YC = 0.0\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL TRBSC (1,TI(1))\r\nC\r\nC     RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S  , S  , S  , EACH 5X3.   45 WORDS STORED IN A(1) THRU A(45)\r\nC        A    B    C\r\nC\r\nC     COMPUTE KHI   (5X1)  AFTER THE FIRST SUB-TRIANGLE ONLY.\r\nC                E\r\nC\r\nC     NFACTOR FOR THE QUADRILATERAL IS 2.0\r\nC\r\n      IF (J .NE. 1) GO TO 125\r\nC\r\nC     SINTH  = SINANG\r\nC     COSTH  = COSANG\r\nC     STRESS = 0\r\nC     MATID  = NECPT(6)\r\nC     INFLAG = 2\r\nC     CALL MAT (NECPT(1))\r\nC\r\n      CALL SSGKHI (TI(1),TI(1),2.0)\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n  125 T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1*0.250\r\n      V( 2) = U2*U2*0.250\r\n      V(11) = U1*U2*0.250\r\n      V( 3) =-V(11)*2.0\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1*0.250\r\n      V(20) =-U2*0.250\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 150 I = 1,3\r\n      CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15)\r\n      CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15)\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 140 K = 1,15\r\n      NSUBC = NPOINT + K\r\n  140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  150 CONTINUE\r\nC\r\n  160 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 170 I = 1,18\r\n  170 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\n      DO 210 I = 1,4\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 10\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 180\r\n      CALL GBTRAN (NECPT(NSUBC), NECPT(NSUBC+1), T(1))\r\n      CALL GMMATS (T,3,3,1, E (1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 200\r\nC\r\n  180 DO 190 K = 1,18\r\n  190 TITE(K) = E(K)\r\nC\r\n  200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, KS(1))\r\nC\r\nC     COMPUTE LOAD VECTOR AND INSERT IT IN OPEN CORE\r\nC\r\n      CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1))\r\n      K = NECPT(I+1) - 1\r\n      DO 225 L = 1,6\r\n      K = K + 1\r\n  225 Z(K) = Z(K) + P(L)\r\nC\r\n  210 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qhbdy.f",
    "content": "      SUBROUTINE QHBDY\r\nC*****\r\nC\r\nC  THIS ROUTINE APPLIES THE LOADS DUE TO A SELECTED HEAT FLUX\r\nC  LOADING CONDITION.\r\nC\r\nC  DATA CARD IS...\r\nC\r\nC  QHBDY  SETID  FLAG  Q0  AF  G1  G2  G3  G4\r\nC                ============================\r\nC                ABOVE FIELDS AVAILABLE TO THIS ROUTINE ONLY.\r\nC                GRIDS ARE IN INTERNAL NOTATION AT THIS POINT.\r\nC*****\r\n      INTEGER  MAP(15)  ,CARD(7)  ,IGRIDS(5),SLT      ,OLD      ,BG\r\n      INTEGER  SILS(4)  ,GRIDS(4) ,ORDER(4) ,SUBR(2)\r\nC\r\n      REAL     BGPDT(4,4)         ,X(4)     ,Y(4)     ,Z(4)\r\n      REAL     DATA4(4) ,P(4)     ,R12(3)   ,R13(3)   ,LENGTH\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON/LOADX / LC, SLT, BG, OLD, N(12), IFM\r\n      COMMON/ZZZZZZ/ CORE(1)\r\nC\r\n      EQUIVALENCE ( CONSTS(1) , PI     )\r\n      EQUIVALENCE(X(1),BGPDT(1,2)), (Y(1),BGPDT(1,3)), (Z(1),BGPDT(1,4))\r\n      EQUIVALENCE(IFLAG,CARD(1)), (Q0,CARD(2)), (AF,CARD(3))\r\n      EQUIVALENCE(GRIDS(1),CARD(4),SILS(1))\r\nC\r\n      DATA MAP/ 1,2,3,  1,2,4,  2,3,1,  3,4,2,  4,1,3 /\r\n      DATA IGRIDS/ 1,2,2,3,4 /\r\n      DATA SUBR/ 4HQHBD,4HY    /\r\nC*****\r\nC  READ AND PROCESS ONE QHBDY IMAGE PER CALL TO THIS ROUTINE.\r\nC*****\r\n      CALL READ(*902,*903,SLT,CARD(1),7,0,FLAG)\r\n      NGRIDS = IGRIDS(IFLAG)\r\nC*****\r\nC  OBTAIN A GRID (INTERNAL) POINT SORT VECTOR SO AS TO CALL FOR BGPDT\r\nC  DATA EFFICIENTLY.\r\nC*****\r\n      IF( NGRIDS .LE. 1 ) GO TO 35\r\n      CALL PERMUT( GRIDS(1), ORDER(1), NGRIDS, OLD )\r\n      GO TO 38\r\n   35 ORDER(1) = 1\r\nC*****\r\nC  PICK UP BGPDT FOR THE 1 TO 4 POINTS AND OBTAIN THE SILS.\r\nC*****\r\n   38 DO 40 I = 1,NGRIDS\r\n      L = ORDER(I)\r\n      CALL FNDPNT( DATA4(1), GRIDS(L) )\r\n      BGPDT(L,1) = DATA4(1)\r\n      BGPDT(L,2) = DATA4(2)\r\n      BGPDT(L,3) = DATA4(3)\r\n      BGPDT(L,4) = DATA4(4)\r\n      CALL FNDSIL( GRIDS(L) )\r\n   40 CONTINUE\r\nC*****\r\nC  ALL DATA IS AT HAND FOR LOAD CALCULATIONS\r\nC*****\r\n      AF = AF * Q0\r\n      GO TO (100,200,300,400,500),IFLAG\r\nC*****\r\nC  IFLAG=1   A POINT...\r\nC*****\r\n  100 P(1) = AF\r\n      GO TO 700\r\nC*****\r\nC  IFLAG=2  A LINE...\r\nC*****\r\n  200 LENGTH = SQRT( (X(2)-X(1))**2 + (Y(2)-Y(1))**2 +  (Z(2)-Z(1))**2 )\r\n      P(1) = AF * LENGTH * 0.50E0\r\n      P(2) = P(1)\r\n      GO TO 700\r\nC*****\r\nC  IFLAG=3  A LINE OF REVOLUTION...\r\nC*****\r\n  300 FACT = PI*Q0*SQRT( (X(2)-X(1))**2 + (Z(2)-Z(1))**2 ) / 3.0E0\r\n      P(1) = FACT * (2.0E0*X(1) + X(2))\r\n      P(2) = FACT * (X(1) + 2.0E0*X(2))\r\n      GO TO 700\r\nC*****\r\nC  IFLAG=4  A TRIANGLE...\r\nC*****\r\n  400 FACT = Q0 / 6.0E0\r\n      IMAP = 1\r\n      NMAP = 3\r\n      GO TO 600\r\nC*****\r\nC  IFLAG=5  A QUADRILATERAL...\r\nC*****\r\n  500 FACT = Q0 / 12.0E0\r\n      IMAP = 4\r\n      NMAP = 15\r\nC*****\r\nC  MAP 1 OR 4 TRIANGLES INTO 3 OR 4 POINTS.\r\nC*****\r\n  600 P(1) = 0.0E0\r\n      P(2) = 0.0E0\r\n      P(3) = 0.0E0\r\n      P(4) = 0.0E0\r\n      DO 650 I = IMAP,NMAP,3\r\n      I1 = MAP(I)\r\n      I2 = MAP(I+1)\r\n      I3 = MAP(I+2)\r\n      R12(1) = X(I2) - X(I1)\r\n      R12(2) = Y(I2) - Y(I1)\r\n      R12(3) = Z(I2) - Z(I1)\r\n      R13(1) = X(I3) - X(I1)\r\n      R13(2) = Y(I3) - Y(I1)\r\n      R13(3) = Z(I3) - Z(I1)\r\n      CALL SAXB( R12(1), R13(1), R12(1) )\r\n      FACTX= FACT * SQRT( R12(1)**2  + R12(2)**2  + R12(3)**2 )\r\n      P(I1) = P(I1) + FACTX\r\n      P(I2) = P(I2) + FACTX\r\n      P(I3) = P(I3) + FACTX\r\n  650 CONTINUE\r\nC*****\r\nC  LOAD VALUES COMPLETE.\r\nC*****\r\n  700 DO 800 I = 1,NGRIDS\r\n      ISIL = SILS(I)\r\n      CORE(ISIL  ) = CORE(ISIL  ) + P(I)\r\n  800 CONTINUE\r\n      RETURN\r\nC*****\r\nC  END OF FILE OR END OF RECORD HIT ERROR.\r\nC*****\r\n  902 CALL MESAGE(-2,SLT,SUBR)\r\n  903 CALL MESAGE(-3,SLT,SUBR)\r\n      GO TO 902\r\n      END\r\n"
  },
  {
    "path": "mis/qloadl.f",
    "content": "      SUBROUTINE QLOADL (IOPT)\r\nC\r\nC     THIS ROUTINE CALCULATES THERMAL LOADS FROM QBDY1, QBDY2, OR\r\nC     QVECT DATA. THE INPUT DATA, READ FROM FILE SLT, IS -\r\nC\r\nC     ENTRY       QBDY1         QBDY2          QVECT\r\nC     -----       -----         -----          -----\r\nC       1          TYPE         EL.ID.          SIL1\r\nC       2         EL.ID.         TYPE           SIL2\r\nC       3          SIL1          SIL1           SIL3\r\nC       4          SIL2          SIL2           SIL4\r\nC       5          SIL3          SIL3          EL.ID.\r\nC       6          SIL4          SIL4           TYPE\r\nC      7-10      C1,C2,C3,C4    -SAME          -SAME\r\nC     11-13       E VECTOR       NONE           NONE\r\nC     14-16      V1 VECTOR         *             *\r\nC     17-19      V2 VECTOR         *             *\r\nC\r\n      LOGICAL         NOGO,TRANST\r\n      INTEGER         SLT,OLD,BG,SUBR(2),IGRIDS(6),TYPE,SILS(4),IE(3),\r\n     1                MINUS(2)\r\n      REAL            E(3),COEF(4),V1(3),V2(3),CARD(19)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /LOADX / LC,SLT,BG,OLD,NXN(12),IFM,NYN(2),ILID\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /QVECT / ITRAN,IQVECT\r\n      EQUIVALENCE     (TYPE,CARD(1)),(ID,CARD(2)),(SILS(1),CARD(3)),\r\n     1                (COEF(1),CARD(7)),(E(1),IE(1),CARD(11)),\r\n     2                (V1(1),CARD(14)),(V2(1),CARD(17))\r\n      DATA    IGRIDS/ 1,2,2,3,4,2   /\r\n      DATA    SUBR  / 4HQLOA,4HDL   /\r\n      DATA    ITRAN1, IOLD,MINUS    / 4HTRAN,0,-1,-1 /\r\nC\r\n      TRANST = .FALSE.\r\n      IF (ITRAN .EQ. ITRAN1) TRANST = .TRUE.\r\n      NWORDS = 10\r\n      IF (IOPT .EQ. 3) NWORDS = 19\r\nC\r\n      CALL READ (*100,*110,SLT,CARD(1),NWORDS,0,FLAG)\r\nC\r\nC     REARRANGE CARD ARRAY FOR UNIFORMITY.\r\nC\r\n      GO TO (20,10,40), IOPT\r\n   10 DOT = CARD(1)\r\n      CARD(1) = CARD(2)\r\n      CARD(2) = DOT\r\n   20 N = IGRIDS(TYPE)\r\nC\r\nC     QBDY1 OR QBDY2\r\nC\r\n      DO 30 I = 1,N\r\n      ISIL = SILS(I)\r\n      CORE(ISIL) = CORE(ISIL) + COEF(I)\r\n   30 CONTINUE\r\n      RETURN\r\nC\r\nC     QVECT LOADS\r\nC\r\n   40 DOT     = CARD(5)\r\n      DOT2    = CARD(6)\r\n      CARD(6) = CARD(4)\r\n      CARD(5) = CARD(3)\r\n      CARD(4) = CARD(2)\r\n      CARD(3) = CARD(1)\r\n      CARD(2) = DOT\r\n      CARD(1) = DOT2\r\n      N       = IGRIDS(TYPE)\r\n      DOT     = 0.0\r\n      INT     = 0\r\n      IF (TYPE .EQ. 6) GO TO 70\r\n      DO 50 I = 1,3\r\n      IF (NUMTYP(IE(I)) .EQ. 1) GO TO 51\r\n      DOT = DOT + E(I)*V1(I)\r\n      GO TO 50\r\n   51 INT = INT + 1\r\n   50 CONTINUE\r\n      IF (INT .GT.   0) GO TO 90\r\n      IF (DOT .GE. 0.0) RETURN\r\n      DO 60 I = 1,N\r\n      ISIL = SILS(I)\r\n   60 CORE(ISIL) = CORE(ISIL) - DOT*COEF(I)\r\n      RETURN\r\nC\r\nC     QVECT ON ELCYL ELEMENT\r\nC\r\n   70 DOT2 = 0.0\r\n      DO 80 I = 1,3\r\n      IF (NUMTYP(IE(I)) .EQ. 1) GO TO 81\r\n      DOT  = DOT  + E(I)*V1(I)\r\n      DOT2 = DOT2 + E(I)*V2(I)\r\n      GO TO 80\r\n   81 INT = INT + 1\r\n   80 CONTINUE\r\n      IF (INT .GT. 0) GO TO 90\r\n      COEF(1) = COEF(1)*SQRT(DOT**2 + DOT2**2)\r\n      COEF(2) = COEF(1)\r\n      ISIL = SILS(1)\r\n      CORE(ISIL) = CORE(ISIL) + COEF(1)\r\n      ISIL = SILS(2)\r\n      CORE(ISIL) = CORE(ISIL) + COEF(2)\r\n      RETURN\r\nC\r\nC     GOES HERE IF INTEGERS ARE FOUND IN E VECTOR\r\nC\r\n   90 IF (.NOT. TRANST) GO TO 120\r\nC\r\nC     BUILD QVECT RECORDS FOR TRANSIENT\r\nC\r\n      IF (ILID .EQ. IOLD) GO TO 91\r\n      IF (IOLD .EQ.    0) GO TO 92\r\nC\r\nC     TERMINATE OLD RECORD\r\nC\r\n      CALL WRITE (IQVECT,MINUS,2,0)\r\n   92 IOLD = ILID\r\n      CALL WRITE (IQVECT,ILID,1,0)\r\nC\r\nC     DUMP DATA ON IQVECT\r\nC\r\n   91 CALL WRITE (IQVECT,N,1,0)\r\n      DO 93 I = 1,N\r\n      CALL WRITE (IQVECT,SILS(I),1,0)\r\n      CALL WRITE (IQVECT,COEF(I),1,0)\r\n   93 CONTINUE\r\n      CALL WRITE (IQVECT,IE,3,0)\r\n      CALL WRITE (IQVECT,V1,6,0)\r\n      RETURN\r\nC\r\n  100 CALL MESAGE (-2,SLT,SUBR)\r\n  110 CALL MESAGE (-3,SLT,SUBR)\r\n  120 NOGO = .TRUE.\r\n      WRITE  (IOUT,130) UFM,ID\r\n  130 FORMAT (A23,' 3080, ERROR IN QVECT DATA, INTEGER VALUES SPECIFIED'\r\n     1,      ' FOR THERMAL FLUX VECTOR COMPONENTS', /30X,\r\n     2       'IN A NON-TRANSIENT ANALYSIS.', /30X,'ELEMENT ID = ',I9)\r\n      CALL MESAGE (-61,0,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qparam.f",
    "content": "      SUBROUTINE QPARAM\r\nC\r\nC     PARAM PERFORMS THE FOLLOWING OPERATIONS ON PARAMETERS--\r\nC      1. OUT = IN1 .AND. IN2\r\nC      2. OUT = IN1 .OR . IN2\r\nC      3. OUT = IN1   +   IN2\r\nC      4. OUT = IN1   -   IN2\r\nC      5. OUT = IN1   *   IN2\r\nC      6. OUT = IN1   /   IN2\r\nC      7. OUT = .NOT. IN1\r\nC      8. OUT = IN1  .IMP. IN2\r\nC      9. STORE VALUE OF OUT IN VPS.\r\nC     10. OUT = VALUE OF PRECISION CELL FROM /SYSTEM/\r\nC     11. OUT = CURRENT TIME\r\nC     12. OUT = TIME TO GO\r\nC     13. OUT = SYSTEM(IN1) = IN2\r\nC     14. OUT = SYSTEM(25) WITH BITS IN1 THRU IN2 TURNED ON OR OFF.\r\nC     15. OUT = SYSTEM CELL IN1.\r\nC     16. SAVE AND RESTORES SENSE SWITCHES\r\nC     17. SETS SENSE SWITCHES\r\nC     18. SAVE AND RESTORES SYSTEM CELLS\r\nC     19. OUT = -1 IF IN1 .EQ. IN2, OUT = +1 OTHERWISE.\r\nC     20. OUT = -1 IF IN1 .GT. IN2, OUT = +1 OTHERWISE.\r\nC     21. OUT = -1 IF IN1 .LT. IN2, OUT = +1 OTHERWISE.\r\nC     22. OUT = -1 IF IN1 .LE. IN2, OUT = +1 OTHERWISE.\r\nC     23. OUT = -1 IF IN1 .GE. IN2, OUT = +1 OTHERWISE.\r\nC     24. OUT = -1 IF IN1 .NE. IN2, OUT = +1 OTHERWISE.\r\nC     25. UNDEFINED.\r\nC     26. UNDEFINED.\r\nC     27. UNDEFINED.\r\nC     28. UNDEFINED.\r\nC     29. UNDEFINED.\r\nC     30. UNDEFINED.\r\nC\r\n      EXTERNAL        LSHIFT,ORF,ANDF\r\n      INTEGER         SWITCH,OFF,ORF,XORF,OP,OPCODE,OUT,OUTTAP,ANDF,VPS,\r\n     1                OSCAR\r\n      DIMENSION       OPCODE(30),SWITCH(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / OP(2),OUT,IN1,IN2\r\n      COMMON /SYSTEM/ KSYSTM(80)\r\n      COMMON /OSCENT/ OSCAR(16)\r\n      COMMON /XVPS  / VPS(1)\r\n      EQUIVALENCE     (KSYSTM( 2),OUTTAP),(KSYSTM(23),LSYSTM),\r\n     1                (KSYSTM(55),IPREC ),(KSYSTM(79),SWITCH(1))\r\n      DATA    OPCODE/ 4HAND ,4HOR  ,4HADD ,4HSUB ,4HMPY\r\n     1              , 4HDIV ,4HNOT ,4HIMPL,4HNOP ,4HPREC\r\n     2              , 4HKLOC,4HTMTO,4HSYST,4HDIAG,4HSYSR\r\n     3              , 4HSSSR,4HSSST,4HSTSR,4HEQ  ,4HGT\r\n     4              , 4HLT  ,4HLE  ,4HGE  ,4HNE  ,4H****\r\n     5              , 4H****,4H****,4H****,4H****,4H****\r\n     Z              /\r\n      DATA    OFF   / 4HOFF /\r\nC\r\nC     BRANCH ON OPERATION CODE.\r\nC\r\n      DO 5 I = 1,30\r\n      IF (OP(1) .EQ. OPCODE(I)) GO TO (\r\n     1     10, 20, 30, 40, 50, 60, 70, 80, 90,100,\r\n     2    110,120,130,140,150,160,170,180,190,200,\r\n     3    210,220,230,240,250,260,270,280,290,300), I\r\n    5 CONTINUE\r\n      GO TO 990\r\nC\r\nC     .AND.\r\nC\r\n   10 OUT = -1\r\n      IF (IN1.GE.0 .OR. IN2.GE.0) OUT = +1\r\n      GO TO 900\r\nC\r\nC     .OR.\r\nC\r\n   20 OUT = +1\r\n      IF (IN1.LT.0 .OR . IN2.LT.0) OUT = -1\r\n      GO TO 900\r\nC\r\nC     ADD\r\nC\r\n   30 OUT = IN1 + IN2\r\n      GO TO 900\r\nC\r\nC     SUB\r\nC\r\n   40 OUT = IN1 - IN2\r\n      GO TO 900\r\nC\r\nC     MPY\r\nC\r\n   50 OUT = IN1*IN2\r\n      GO TO 900\r\nC\r\nC     DIV\r\nC\r\n   60 OUT = IN1/IN2\r\n      GO TO 900\r\nC\r\nC     NOT\r\nC\r\n   70 OUT = -IN1\r\n      GO TO 900\r\nC\r\nC     IMPLY\r\nC\r\n   80 OUT = +1\r\n      IF (IN1.GE.0 .OR. IN2.LT.0) OUT = -1\r\n      GO TO 900\r\nC\r\nC     NOP\r\nC\r\n   90 GO TO 900\r\nC\r\nC     PROVIDE PRECISION FROM /SYSTEM/.\r\nC\r\n  100 OUT = IPREC\r\n      GO TO 900\r\nC\r\nC     PROVIDE CURRENT TIME\r\nC\r\n  110 CALL KLOCK (OUT)\r\n      GO TO 900\r\nC\r\nC     PROVIDE TIME-TO-GO\r\nC\r\n  120 CALL TMTOGO (OUT)\r\n      GO TO 900\r\nC\r\nC     MODIFY SYSTEM CELL.\r\nC\r\n  130 OUT = IN2\r\n      KSYSTM(IN1) = IN2\r\n      IF (IN1.LE.0 .OR. IN1.GT.LSYSTM) WRITE (OUTTAP,135) UWM,IN1\r\n  135 FORMAT (A25,' 2317, PARAM HAS STORED OUTSIDE DEFINED RANGE OF ',\r\n     1       'COMMON BLOCK /SYSTEM/.', /32X,'INDEX VALUE =',I20)\r\n      GO TO 900\r\nC\r\nC     TURN DIAG SWITCH ON OR OFF.\r\nC\r\n  140 IF (IN2 .LT. IN1) IN2 = IN1\r\n      DO 145 I = IN1,IN2\r\n      IF (I .GT. 31) GO TO 142\r\n      OUT = LSHIFT(1,I-1)\r\n      SWITCH(1) = ORF(SWITCH(1),OUT)\r\n      IF (OP(2) .EQ. OFF) SWITCH(1) = SWITCH(1) - OUT\r\n      GO TO 145\r\n  142 OUT = I - 31\r\n      OUT = LSHIFT(1,OUT-1)\r\n      SWITCH(2) = ORF(SWITCH(2),OUT)\r\n      IF (OP(2) .EQ. OFF) SWITCH(2) = SWITCH(2) - OUT\r\n      OUT = OUT + 31\r\n  145 CONTINUE\r\n      OUT = SWITCH(1)\r\n      IF (I .GT. 31) OUT = SWITCH(2)\r\n      GO TO 900\r\nC\r\nC     RETURN VALUE OF IN1-TH WORD OF /SYSTEM/.\r\nC\r\n  150 OUT = KSYSTM(IN1)\r\n      GO TO 900\r\nC\r\nC     SAVE OR RESTORE SSWITCH WORD\r\nC\r\n  160 IF (IN1 .LT.  0) GO TO 165\r\n      IF (IN1 .GT. 31) GO TO 161\r\n      OUT = SWITCH(1)\r\n      GO TO 900\r\n  161 CONTINUE\r\n      OUT = SWITCH(2)\r\n      GO TO 900\r\n  165 IF (IABS(IN1) .GT. 31) GO TO 166\r\n      SWITCH(1) = OUT\r\n      GO TO 900\r\n  166 SWITCH(2) = OUT\r\n      GO TO 900\r\nC\r\nC     TURN SSWITCH ON OR OFF\r\nC\r\n  170 IF (OUT .EQ. 0) GO TO 900\r\n      IF (OUT .GT. 0) GO TO 175\r\n      IF (IABS(OUT) .GT. 31) GO TO 171\r\n      MASK = LSHIFT(1,IABS(OUT)-1)\r\n      SWITCH(1) = XORF(MASK,ORF(MASK,SWITCH(1)))\r\n      GO TO 900\r\n  171 CONTINUE\r\n      OUT  = OUT + 31\r\n      MASK = LSHIFT(1,IABS(OUT)-1)\r\n      SWITCH(2) = XORF(MASK,ORF(MASK,SWITCH(2)))\r\n      OUT  = OUT - 31\r\n      GO TO 900\r\n  175 CONTINUE\r\n      IF (OUT .GT. 31) GO TO 176\r\n      SWITCH(1) = ORF(LSHIFT(1,OUT-1),SWITCH(1))\r\n      GO TO 900\r\n  176 CONTINUE\r\n      OUT = OUT - 31\r\n      SWITCH(2) = ORF(LSHIFT(1,OUT-1),SWITCH(2))\r\n      OUT = OUT + 31\r\n      GO TO 900\r\nC\r\nC     SAVE OR RESTORE A CELL OF SYSTEM\r\nC\r\nC     SAVE\r\nC\r\n  180 CONTINUE\r\n      IF (IN1 .LT. 0) GO TO 185\r\n      OUT = KSYSTM(IN1)\r\n      GO TO 900\r\nC\r\nC     RESTORE\r\nC\r\n  185 IN1 = IABS(IN1)\r\n      KSYSTM(IN1) = OUT\r\n      GO TO 900\r\nC\r\nC     ARITHMETIC RELATIONAL OPERATORS.\r\nC\r\n  190 IF (IN1-IN2) 191,192,191\r\n  191 OUT = +1\r\n      GO TO 900\r\n  192 OUT = -1\r\n      GO TO 900\r\n  200 IF (IN1-IN2) 191,191,192\r\n  210 IF (IN1-IN2) 192,191,191\r\n  220 IF (IN1-IN2) 192,192,191\r\n  230 IF (IN1-IN2) 191,192,192\r\n  240 IF (IN1-IN2) 192,191,192\r\nC\r\nC     UNDEFINED.\r\nC\r\n  250 GO TO 900\r\nC\r\nC     UNDEFINED.\r\nC\r\n  260 GO TO 900\r\nC\r\nC     UNDEFINED.\r\nC\r\n  270 GO TO 900\r\nC\r\nC     UNDEFINED.\r\nC\r\n  280 GO TO 900\r\nC\r\nC     UNDEFINED.\r\nC\r\n  290 GO TO 900\r\nC\r\nC     UNDEFINED.\r\nC\r\n  300 GO TO 900\r\nC\r\nC     SAVE OUT IN THE VPS.\r\nC\r\n  900 I = ANDF(OSCAR(16),65535)\r\n      VPS(I) = OUT\r\n      RETURN\r\nC\r\nC     OPERATION CODE NOT DEFINED-- WRITE MESSAGE.\r\nC\r\n  990 WRITE  (OUTTAP,998) UFM,OP(1),OP(2)\r\n  998 FORMAT (A23,' 2024, OPERATION CODE ',2A4,' NOT DEFINED FOR ',\r\n     1       'MODULE PARAM.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qparmd.f",
    "content": "      SUBROUTINE QPARMD\r\nC\r\nC     MODULE PARAMD PERFORMS THE FOLLOW OP ON PARAMETERS IN DOUBLE\r\nC     PRECISION\r\nC     (REFERENCE - MODULE PARAMR AND SUBROUTINE QPARMR)\r\nC\r\nC     DMAP\r\nC     PARAMD  / /C,N,OP/ V,N,OUTD/V,N,IND1/V,N,IND2/\r\nC                        V,N,OUTC/V,N,INC1/V,N,INC2/V,N,FLAG $\r\nC\r\nC         OP        COMPUTE\r\nC         --        -------------------------------------------\r\nC      BY DEFAULT   FLAG = 0\r\nC      1  ADD       OUTD = IND1 + IND2\r\nC      2  SUB       OUTD = IND1 - IND2\r\nC      3  MPY       OUTD = IND1 * IND2\r\nC      4  DIV       OUTD = IND1 / IND2 (IF IND2 = 0, FLAG IS SET TO +1)\r\nC      5  NOP       RETURN\r\nC      6  SQRT      OUTD = DSQRT(IND1)\r\nC      7  SIN       OUTD = DSIN(IND1) WHERE IND1 IS IN RADIANS\r\nC      8  COS       OUTD = DCOS(IND1) WHERE IND1 IS IN RADIANS\r\nC      9  ABS       OUTD = DABS(IND1)\r\nC     10  EXP       OUTD = DEXP(IND1)\r\nC     11  TAN       OUTD = DTAN(IND1) WHERE IND1 IS IN RADIANS\r\nC     12  ADDC      OUTC = INC1 + INC2\r\nC     13  SUBC      OUTC = INC1 - INC2\r\nC     14  MPYC      OUTC = INC1 * INC2\r\nC     15  DIVC      OUTC = INC1 / INC2 (IF INC2 = 0, FLAG IS SET TO +1)\r\nC     16  COMPLEX   OUTC = (IND1,IND2)\r\nC     17  CSQRT     OUTC = DCSQRT(INC1)\r\nC     18  NORM      OUTD = DSQRT(OUTC(1)**2 + OUTC(2)**2)\r\nC     19  REAL      IND1 = OUTC(1),  IND2 = OUTC(2)\r\nC     20  POWER     OUTD = IND1**IND2\r\nC     21  CONJ      OUTC = DCONJG(INC1)\r\nC     22  EQ        FLAG =-1 IF IND1 COMPARES WITH IND2\r\nC     23  GT        FLAG =-1 IF IND1 IS GT IND2\r\nC     24  GE        FLAG =-1 IF IND1 IS GE IND2\r\nC     25  LT        FLAG =-1 IF IND1 IS LT IND2\r\nC     26  LE        FLAG =-1 IF IND1 IS LE IND2\r\nC     27  NE        FLAG =-1 IF IND1 IS NE IND2\r\nC     28  LOG       OUTD = DLOG10(IND1)\r\nC     29  LN        OUTD = DLOG(IND1)\r\nC     30  FIX       FLAG = OUTD\r\nC     31  FLOAT     OUTD = FLOAT(FLAG)\r\nC\r\nC     NEW OP CODE ADDED IN THIS NEW VERSION, 12/1988 -\r\nC\r\nC     32  ERR       IF FLAG IS 0, SYSTEM NOGO FLAG IS SET TO ZERO\r\nC                   IF FLAG IS NON-ZERO, JOB TERMINATED IF ANY PREVIOUS\r\nC                      PARAMD (OR PARAMR) CONTAINS NON-FATAL ERROR(S)\r\nC\r\n      LOGICAL          PRT\r\n      INTEGER          OP,OPCODE(50),FLAG,IVPS(1),NAME(2),IL(8),ILX(8),\r\n     1                 NAM(2),BLNK\r\n      REAL             TEMP(2)\r\n      DOUBLE PRECISION OUTD,IND1,IND2,OUTC,INC1,INC2,DENOM,TEMPD\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  OP(2),OUTD,IND1,IND2,OUTC(2),INC1(2),INC2(2),FLAG\r\n      COMMON /XVPS  /  VPS(1)\r\n      COMMON /ILXXD /  IL1,IL2,IL3,IL4,IL5,IL6,IL7,IL8\r\n      COMMON /SYSTEM/  IBUF,NOUT,NOGO,DUMMY(33),KSYS37\r\n      EQUIVALENCE      (VPS(1),IVPS(1)), (TEMPD,TEMP(1)), (IL,IL1)\r\n      DATA NAME     /  4HQPAR,4HMD  /      ,IFIRST / 15  /\r\n      DATA OPCODE   /  4HADD ,4HSUB ,4HMPY ,4HDIV ,4HNOP ,\r\n     1                 4HSQRT,4HSIN ,4HCOS ,4HABS ,4HEXP ,\r\n     2                 4HTAN ,4HADDC,4HSUBC,4HMPYC,4HDIVC,\r\n     3                 4HCOMP,4HCSQR,4HNORM,4HREAL,4HPOWE,\r\n     4                 4HCONJ,4HEQ  ,4HGT  ,4HGE  ,4HLT  ,\r\n     5                 4HLE  ,4HNE  ,4HLOG ,4HLN  ,4HFIX ,\r\n     6                 4HFLOA,4HERR ,4H    ,4H    ,4H    ,\r\n     7                 4H    ,4H    ,4H    ,4H    ,4H    ,\r\n     8                 4H    ,4H    ,4H    ,4H    ,4H    ,\r\n     9                 4H    ,4H    ,4H    ,4H    ,4H    /\r\n      DATA ILX      /  4H1ST ,4H2ND ,4H3RD ,4H4TH ,4H5TH ,\r\n     1                 4H6TH ,4H7TH ,4H8TH               /\r\n      DATA PARM,NAM /  4HPARM,4H/PAR,3HAMD/,BLNK  /4H    /\r\nC\r\nC     SUPPRESS ALL PARAMETER CHECK MESSAGES IF DIAG 37 IS ON\r\nC\r\n      CALL SSWTCH (37,I)\r\n      PRT = I .EQ. 0\r\n      IF (PRT) NAM(1) = BLNK\r\n      IF (PRT) NAM(2) = BLNK\r\nC\r\nC     COMPUTE VPS INDEXES AND PARAMETER NAMES\r\nC\r\n      DO 2 I = 2,8\r\n      CALL FNDPAR (-I,IL(I))\r\n    2 CONTINUE\r\n      IF (.NOT.PRT) GO TO 4\r\n      CALL PAGE2 (IFIRST)\r\n      IFIRST = 6\r\n      WRITE  (NOUT,3) UIM,OP\r\n    3 FORMAT (A29,' FROM PARAMD MODULE - OP CODE = ',2A4, /5X,\r\n     1        '(ALL PARAMD MESSAGES CAN BE SUPPRESSED BY DIAG 37)')\r\nC\r\nC     BRANCH ON OPERATION CODE\r\nC\r\n    4 IFLAG = FLAG\r\n      FLAG  = 0\r\n      IERR  = 0\r\nC\r\n      DO 5 IOP = 1,32\r\n      IF (OP(1) .EQ. OPCODE(IOP)) GO TO\r\n     1   (  10,  20,  30,  40,  50,  60,  70,  80,  90, 100,\r\n     2     110, 120, 130, 140, 150, 160, 170, 180, 190, 200,\r\n     3     210, 220, 230, 240, 250, 260, 270, 280, 290, 300,\r\n     4     310, 320    ), IOP\r\n    5 CONTINUE\r\n      WRITE  (NOUT,6) OP(1),NAM\r\n    6 FORMAT (22X,'UNRECOGNIZABLE OP CODE = ',A4,' (INPUT ERROR)  ',2A4)\r\n      CALL MESAGE (-7,0,NAME)\r\nC\r\nC *******\r\nC     D.P. REAL NUMBER FUNCTIONS\r\nC *******\r\nC\r\nC     ADD\r\nC\r\n   10 OUTD = IND1 + IND2\r\n      GO TO 600\r\nC\r\nC     SUBTRACT\r\nC\r\n   20 OUTD = IND1 - IND2\r\n      GO TO 600\r\nC\r\nC     MULTIPLY\r\nC\r\n   30 OUTD = IND1*IND2\r\n      GO TO 600\r\nC\r\nC     DIVIDE\r\nC\r\n   40 OUTD = 0.D+0\r\n      IF (IND2 .EQ. 0.D+0) GO TO 45\r\n      OUTD = IND1/IND2\r\n      GO TO 600\r\n   45 WRITE  (NOUT,47) NAM\r\n   47 FORMAT (5X,'ERROR - DIVIDED BY ZERO  ',2A4)\r\n      IERR = 1\r\n      FLAG =+1\r\n      IF (IL8 .LE. 0) GO TO 730\r\n      IVPS(IL8) = FLAG\r\n      I = IL8 - 3\r\n      IF (PRT) WRITE (NOUT,48) IVPS(I),IVPS(I+1),FLAG\r\n   48 FORMAT (22X,2A4,2H =,I10,'   (OUTPUT)')\r\n      GO TO 730\r\nC\r\nC     NOP\r\nC\r\n   50 RETURN\r\nC\r\nC     SQUARE ROOT\r\nC\r\n   60 IF (IND1 .LT. 0.D+0) GO TO 65\r\n      OUTD = DSQRT(IND1)\r\n      GO TO 650\r\n   65 WRITE  (NOUT,67) NAM\r\n   67 FORMAT (5X,'ERROR - OPERATING ON A NEGATIVE NUMBER  ',2A4)\r\n      OUTD = 0.D+0\r\n      IERR = 1\r\n      GO TO 650\r\nC\r\nC     SINE\r\nC\r\n   70 OUTD = DSIN(IND1)\r\n      GO TO 650\r\nC\r\nC     COSINE\r\nC\r\n   80 OUTD = DCOS(IND1)\r\n      GO TO 650\r\nC\r\nC     ABSOLUTE VALUE\r\nC\r\n   90 OUTD = DABS(IND1)\r\n      GO TO 650\r\nC\r\nC     EXPONENTIAL\r\nC\r\n  100 OUTD = DEXP(IND1)\r\n      GO TO 650\r\nC\r\nC     TANGENT\r\nC\r\n  110 OUTD = DTAN(IND1)\r\n      GO TO 650\r\nC\r\nC     NORM\r\nC\r\n  180 OUTD = DSQRT(OUTC(1)**2 + OUTC(2)**2)\r\n      GO TO 690\r\nC\r\nC     POWER\r\nC\r\n  200 OUTD  = IND1**IND2\r\n      GO TO 600\r\nC\r\nC     LOG\r\nC\r\n  280 IF (IND1 .LT. 0.D+0) GO TO 65\r\n      OUTD = DLOG10(IND1)\r\n      GO TO 650\r\nC\r\nC     NATURAL LOG\r\nC\r\n  290 IF (IND1 .LT. 0.D+0) GO TO 65\r\n      OUTD = DLOG(IND1)\r\n      GO TO 650\r\nC\r\nC     FLOAT\r\nC\r\n  310 OUTD = IFLAG\r\n      GO TO 670\r\nC\r\nC     ERR\r\nC\r\n  320 IF (IFLAG.NE.0 .AND. KSYS37.NE.0) GO TO 970\r\n      KSYS37 = 0\r\n      NOGO   = 0\r\n      IF (PRT) WRITE (NOUT,325)\r\n  325 FORMAT (5X,'SYSTEM NOGO FLAG IS RESET TO INTEGER ZERO',/)\r\n      GO TO 990\r\nC\r\nC *******\r\nC     COMPLEX FUNCTIONS\r\nC *******\r\nC\r\nC     ADD COMPLEX\r\nC\r\n  120 OUTC(1) = INC1(1) + INC2(1)\r\n      OUTC(2) = INC1(2) + INC2(2)\r\n      GO TO 730\r\nC\r\nC     SUBTRACT COMPLEX\r\nC\r\n  130 OUTC(1) = INC1(1) - INC2(1)\r\n      OUTC(2) = INC1(2) - INC2(2)\r\n      GO TO 730\r\nC\r\nC     MULTIPLY COMPLEX\r\nC\r\n  140 OUTC(1) = INC1(1)*INC2(1) - INC1(2)*INC2(2)\r\n      OUTC(2) = INC1(1)*INC2(2) + INC1(2)*INC2(1)\r\n      GO TO 730\r\nC\r\nC     DIVIDE COMPLEX\r\nC\r\n  150 DENOM = INC2(1)**2 + INC2(2)**2\r\n      IF (DENOM .EQ. 0.D+0) GO TO 155\r\n      OUTC(1) = (INC1(1)*INC2(1) + INC1(2)*INC2(2))/DENOM\r\n      OUTC(2) = (INC1(2)*INC2(1) - INC1(1)*INC2(2))/DENOM\r\n      GO TO 730\r\n  155 OUTC(1) = 0.D+0\r\n      OUTC(2) = 0.D+0\r\n      GO TO 45\r\nC\r\nC     COMPLEX\r\nC\r\n  160 OUTC(1) = IND1\r\n      OUTC(2) = IND2\r\n      GO TO 710\r\nC\r\nC     COMPLEX SQUARE ROOT\r\nC\r\n  170 OUTC(1) = (INC1(1)**2 + INC1(2)**2)**0.25D0\r\n     1          *DCOS(0.5D0*DATAN2(INC1(2),INC1(1)))\r\n      OUTC(2) = (INC1(1)**2 + INC1(2)**2)**0.25D0\r\n     1          *DSIN(0.5D0*DATAN2(INC1(2),INC1(1)))\r\n      GO TO 760\r\nC\r\nC     CONJUGATE\r\nC\r\n  210 OUTC(1) = INC1(1)\r\n      OUTC(2) =-INC1(2)\r\n      GO TO 760\r\nC\r\nC     REAL\r\nC\r\n  190 IND1 = OUTC(1)\r\n      IND2 = OUTC(2)\r\n      GO TO 770\r\nC\r\nC     EQUAL\r\nC\r\n  220 IF (IND1 .EQ. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     GREATER THAN\r\nC\r\n  230 IF (IND1 .GT. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     GREATER THAN OR EQUAL\r\nC\r\n  240 IF (IND1 .GE. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     LESS THAN\r\nC\r\n  250 IF (IND1 .LT. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     LESS THAN OR EQUAL\r\nC\r\n  260 IF (IND1 .LE. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     NOT EQUAL\r\nC\r\n  270 IF (IND1 .NE. IND2) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     FIX\r\nC\r\n  300 FLAG = OUTD\r\n      GO TO 720\r\nC\r\nC ---------------------------------------------------\r\nC\r\nC     INPUT PARAMETER ECHO\r\nC\r\n  600 ASSIGN 620 TO IRTN3\r\n      ASSIGN 800 TO IRTN4\r\n  610 IF (.NOT.PRT) GO TO 615\r\n      I = IL3 - 3\r\n      IF (IL3 .LE. 0) WRITE (NOUT,640) ILX(3),PARM,IND1\r\n      IF (IL3 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),IND1\r\n  615 IF (IL3 .EQ. 0) IERR = 1\r\n      GO TO IRTN3, (620,800)\r\n  620 IF (.NOT.PRT) GO TO 645\r\n      J = IL4 - 3\r\n      IF (IL4 .LE. 0) WRITE (NOUT,640) ILX(4),PARM,IND2\r\n      IF (IL4 .GT. 0) WRITE (NOUT,640) IVPS(J),IVPS(J+1),IND2\r\n  640 FORMAT (22X,2A4,3H = ,D15.8,'  (INPUT)')\r\n  645 IF (IL4 .EQ. 0) IERR = 1\r\n      GO TO IRTN4, (800,880,910)\r\nC\r\n  650 ASSIGN 800 TO IRTN3\r\n      GO TO 610\r\nC\r\n  660 ASSIGN 620 TO IRTN3\r\n      ASSIGN 910 TO IRTN4\r\n      GO TO 610\r\nC\r\n  670 IF (.NOT.PRT) GO TO 685\r\n      I = IL8 - 3\r\n      IF (IL8 .LE. 0) WRITE (NOUT,680) ILX(8),PARM,IFLAG\r\n      IF (IL8 .GT. 0) WRITE (NOUT,680) IVPS(I),IVPS(I+1),IFLAG\r\n  680 FORMAT (22X,2A4,2H =,I10,'   (INPUT)')\r\n  685 IF (IL8 .EQ. 0) IERR = 1\r\n      GO TO 800\r\nC\r\n  690 IF (.NOT.PRT) GO TO 705\r\n      I = IL5 - 3\r\n      IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC\r\n      IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC\r\n  700 FORMAT (22X,2A4,4H = (,D15.8,1H,,D15.8,')   (INPUT)')\r\n  705 IF (IL5 .EQ. 0) IERR = 1\r\n      GO TO 800\r\nC\r\n  710 ASSIGN 620 TO IRTN3\r\n      ASSIGN 880 TO IRTN4\r\n      GO TO 610\r\nC\r\n  720 IF (.NOT.PRT) GO TO 725\r\n      I = IL2 - 3\r\n      IF (IL2 .LE. 0) WRITE (NOUT,640) ILX(2),PARM,OUTD\r\n      IF (IL2 .GT. 2) WRITE (NOUT,640) IVPS(I),IVPS(I+1),OUTD\r\n  725 IF (IL2 .EQ. 0) IERR = 1\r\n      GO TO 910\r\nC\r\n  730 ASSIGN 750 TO IRTN6\r\n  740 IF (.NOT.PRT) GO TO 745\r\n      I = IL6 - 3\r\n      IF (IL6 .LE. 0) WRITE (NOUT,700) ILX(6),PARM,INC1\r\n      IF (IL6 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),INC1\r\n      IF (IL6 .EQ. 0) IERR = 1\r\n  745 GO TO IRTN6, (750,880)\r\n  750 IF (.NOT.PRT) GO TO 755\r\n      J = IL7 - 3\r\n      IF (IL7 .LE. 0) WRITE (NOUT,700) ILX(7),PARM,INC2\r\n      IF (IL7 .GT. 0) WRITE (NOUT,700) IVPS(J),IVPS(J+1),INC2\r\n  755 IF (IL7 .EQ. 0) IERR = 1\r\n      GO TO 880\r\nC\r\n  760 ASSIGN 880 TO IRTN6\r\n      GO TO 740\r\nC\r\n  770 IF (.NOT.PRT) GO TO 775\r\n      I = IL5 - 3\r\n      IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC\r\n      IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC\r\n  775 IF (IL5 .EQ. 0) IERR = 1\r\n      GO TO 840\r\nC\r\nC     OUTPUT PARAMETER CHECK\r\nC\r\nC     SECOND PARAMETER - OUTD\r\nC\r\n  800 IF (IL2  .GT.  0) GO TO 820\r\n      WRITE  (NOUT,810) ILX(2),NAM\r\n  810 FORMAT (22X,A4,'PARAMETER IS MISSING    (OUTPUT ERROR)  ',2A4)\r\n      IERR = 1\r\n      GO TO 950\r\n  820 IF (IERR .EQ. 0) GO TO 825\r\n      TEMP(1) = VPS(IL2  )\r\n      TEMP(2) = VPS(IL2+1)\r\n      OUTD  = TEMPD\r\n  825 TEMPD = OUTD\r\n      VPS(IL2  ) = TEMP(1)\r\n      VPS(IL2+1) = TEMP(2)\r\n      I = IL2 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),OUTD\r\n  830 FORMAT (22X,2A4,3H = ,D15.8,'  (OUTPUT)')\r\n      GO TO 950\r\nC\r\nC     THIRD AND FOURTH PARAMETERS - IND1, IND2\r\nC\r\n  840 IF (IL3 .GT.  0) GO TO 850\r\n      WRITE (NOUT,810) ILX(3),NAM\r\n      IERR = 1\r\n      GO TO 860\r\n  850 IF (IERR .EQ. 0) GO TO 855\r\n      TEMP(1) = VPS(IL3  )\r\n      TEMP(2) = VPS(IL3+1)\r\n      IND1  = TEMPD\r\n  855 TEMPD = IND1\r\n      VPS(IL3  ) = TEMP(1)\r\n      VPS(IL3+1) = TEMP(2)\r\n      I = IL3 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),IND1\r\n  860 IF (IL4 .GT.  0) GO TO 870\r\n      WRITE (NOUT,810) ILX(4),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  870 IF (IERR .EQ. 0) GO TO 875\r\n      TEMP(1) = VPS(IL4  )\r\n      TEMP(2) = VPS(IL4+1)\r\n      IND2  = TEMPD\r\n  875 TEMPD = IND2\r\n      VPS(IL4  ) = TEMP(1)\r\n      VPS(IL4+1) = TEMP(2)\r\n      J = IL4 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(J),IVPS(J+1),IND2\r\n      GO TO 950\r\nC\r\nC     FIFTH PARAMETER - OUTC\r\nC\r\n  880 IF (IL5 .GT.  0) GO TO 890\r\n      WRITE (NOUT,810) ILX(5),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  890 IF (IERR .EQ. 0) GO TO 895\r\n      TEMP(1) = VPS(IL5  )\r\n      TEMP(2) = VPS(IL5+1)\r\n      OUTC(1) = TEMPD\r\n      TEMP(1) = VPS(IL5+2)\r\n      TEMP(2) = VPS(IL5+3)\r\n      OUTC(2) = TEMPD\r\n  895 TEMPD = OUTC(1)\r\n      VPS(IL5  ) = TEMP(1)\r\n      VPS(IL5+1) = TEMP(2)\r\n      TEMPD = OUTC(2)\r\n      VPS(IL5+2) = TEMP(1)\r\n      VPS(IL5+3) = TEMP(2)\r\n      I = IL5 - 3\r\n      IF (PRT) WRITE (NOUT,900) IVPS(I),IVPS(I+1),OUTC\r\n  900 FORMAT (22X,2A4,4H = (,D15.8,1H,,D15.8,')   (OUTPUT)')\r\n      GO TO 950\r\nC\r\nC     EIGHTH PARAMETER - FLAG\r\nC\r\n  910 IF (IL8 .GT.  0) GO TO 920\r\n      WRITE (NOUT,810) ILX(8),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  920 IF (IERR .EQ. 0) IVPS(IL8) = FLAG\r\n      I = IL8 - 3\r\n      IF (PRT) WRITE (NOUT,930) IVPS(I),IVPS(I+1),IVPS(IL8)\r\n  930 FORMAT (22X,2A4,2H =,I12,6X,'(OUTPUT)')\r\nC\r\n  950 IF (IERR .EQ.  0) GO TO 990\r\n      WRITE  (NOUT,960) UWM,NAM\r\n  960 FORMAT (A25,' - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT ',\r\n     1       'VALUE REMAINS ',2A4,/)\r\n      GO TO 990\r\n  970 WRITE  (NOUT,980) NAM\r\n  980 FORMAT (5X,'JOB TERMINTATED DUE TO PREVIOUS ERROR(S)  ',2A4,/)\r\n      CALL PEXIT\r\n  990 IF (KSYS37 .EQ. 0) KSYS37 = IERR\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/qparmr.f",
    "content": "      SUBROUTINE QPARMR\r\nC\r\nC     MODULE PARAMR PERFORMS THE FOLLOW OP ON PARAMETERS IN SINGLE\r\nC     PRECISION\r\nC     (COMPANION MODULE PARAMD AND SUBROUTINE QPARMD)\r\nC\r\nC     DMAP\r\nC     PARAMR  / /C,N,OP/ V,N,OUTR/V,N,IN1R/V,N,IN2R/\r\nC                        V,N,OUTC/V,N,IN1C/V,N,IN2C/V,N,FLAG $\r\nC\r\nC         OP        COMPUTE\r\nC         --        -------------------------------------------\r\nC      BY DEFAULT   FLAG = 0\r\nC      1  ADD       OUTR = IN1R + IN2R\r\nC      2  SUB       OUTR = IN1R - IN2R\r\nC      3  MPY       OUTR = IN1R * IN2R\r\nC      4  DIV       OUTR = IN1R / IN2R (IF IN2R = 0, FLAG IS SET TO +1)\r\nC      5  NOP       RETURN\r\nC      6  SQRT      OUTR = SQRT(IN1R)\r\nC      7  SIN       OUTR = SIN(IN1R) WHERE IN1R IS IN RADIANS\r\nC      8  COS       OUTR = COS(IN1R) WHERE IN1R IS IN RADIANS\r\nC      9  ABS       OUTR = ABS(IN1R)\r\nC     10  EXP       OUTR = EXP(IN1R)\r\nC     11  TAN       OUTR = TAN(IN1R) WHERE IN1R IS IN RADIANS\r\nC     12  ADDC      OUTC = IN1C + IN2C\r\nC     13  SUBC      OUTC = IN1C - IN2C\r\nC     14  MPYC      OUTC = IN1C * IN2C\r\nC     15  DIVC      OUTC = IN1C / IN2C (IF IN2C = 0, FLAG IS SET TO +1)\r\nC     16  COMPLEX   OUTC = (IN1R,IN2R)\r\nC     17  CSQRT     OUTC = CSQRT(IN1C)\r\nC     18  NORM      OUTR = SQRT(OUTC(1)**2 + OUTC(2)**2)\r\nC     19  REAL      IN1R = OUTC(1),   IN2R = OUTC(2)\r\nC     20  POWER     OUTR = IN1R**IN2R\r\nC     21  CONJ      OUTC = CONJG(IN1C)\r\nC     22  EQ        FLAG =-1 IF IN1R COMPARES WITH IN2R\r\nC     23  GT        FLAG =-1 IF IN1R IS GT IN2R\r\nC     24  GE        FLAG =-1 IF IN1R IS GE IN2R\r\nC     25  LT        FLAG =-1 IF IN1R IS LT IN2R\r\nC     26  LE        FLAG =-1 IF IN1R IS LE IN2R\r\nC     27  NE        FLAG =-1 IF IN1R IS NE IN2R\r\nC     28  LOG       OUTR = ALOG10(IN1R)\r\nC     29  LN        OUTR = ALOG(IN1R)\r\nC     30  FIX       FLAG = OUTR\r\nC     31  FLOAT     OUTR = FLOAT(FLAG)\r\nC\r\nC     NEW OP CODE ADDED IN THIS NEW VERSION, 12/1988 -\r\nC\r\nC     32  ERR       IF FLAG IS 0, SYSTEM NOGO FLAG IS SET TO ZERO\r\nC                   IF FLAG IS NON-ZERO, JOB TERMINATED IF ANY PREVIOUS\r\nC                      PARAMR (OR PARAMD) CONTAINS NON-FATAL ERROR(S)\r\nC\r\n      LOGICAL          PRT\r\n      INTEGER          OP,OPCODE(50),FLAG,IVPS(1),NAME(2),IL(8),ILX(8),\r\n     1                 NAM(2),BLNK\r\n      REAL             IN1R,IN2R,IN1C,IN2C\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  OP(2),OUTR,IN1R,IN2R,OUTC(2),IN1C(2),IN2C(2),FLAG\r\n      COMMON /XVPS  /  VPS(1)\r\n      COMMON /ILXXR /  IL1,IL2,IL3,IL4,IL5,IL6,IL7,IL8\r\n      COMMON /SYSTEM/  IBUF,NOUT,NOGO,DUMMY(33),KSYS37\r\n      EQUIVALENCE      (VPS(1),IVPS(1)), (IL,IL1)\r\n      DATA NAME     /  4HQPAR,4HMR  /      ,IFIRST / 15  /\r\n      DATA OPCODE   /  4HADD ,4HSUB ,4HMPY ,4HDIV ,4HNOP ,\r\n     1                 4HSQRT,4HSIN ,4HCOS ,4HABS ,4HEXP ,\r\n     2                 4HTAN ,4HADDC,4HSUBC,4HMPYC,4HDIVC,\r\n     3                 4HCOMP,4HCSQR,4HNORM,4HREAL,4HPOWE,\r\n     4                 4HCONJ,4HEQ  ,4HGT  ,4HGE  ,4HLT  ,\r\n     5                 4HLE  ,4HNE  ,4HLOG ,4HLN  ,4HFIX ,\r\n     6                 4HFLOA,4HERR ,4H    ,4H    ,4H    ,\r\n     7                 4H    ,4H    ,4H    ,4H    ,4H    ,\r\n     8                 4H    ,4H    ,4H    ,4H    ,4H    ,\r\n     9                 4H    ,4H    ,4H    ,4H    ,4H    /\r\n      DATA ILX      /  4H1ST ,4H2ND ,4H3RD ,4H4TH ,4H5TH ,\r\n     1                 4H6TH ,4H7TH ,4H8TH               /\r\n      DATA PARM,NAM /  4HPARM,4H/PAR,3HAMR/,BLNK  /4H    /\r\nC\r\nC     SUPPRESSED ALL INPUT/OUTPUT CHECK MESSAGES IF DIAG 37 IS ON\r\nC\r\n      CALL SSWTCH (37,I)\r\n      PRT = I .EQ. 0\r\n      IF (PRT) NAM(1) = BLNK\r\n      IF (PRT) NAM(2) = BLNK\r\nC\r\nC     COMPUTE VPS INDEXES AND PARAMETER NAMES\r\nC\r\n      DO 2 I = 2,8\r\n      CALL FNDPAR (-I,IL(I))\r\n    2 CONTINUE\r\n      IF (.NOT.PRT) GO TO 4\r\n      CALL PAGE2 (IFIRST)\r\n      IFIRST = 6\r\n      WRITE  (NOUT,3) UIM,OP\r\n    3 FORMAT (A29,' FROM PARAMR MODULE - OP CODE = ',2A4, /5X,\r\n     1        '(ALL PARAMR MESSAGES CAN BE SUPPRESED BY DIAG 37)')\r\nC\r\nC     BRANCH ON OPERATION CODE\r\nC\r\n    4 IFLAG = FLAG\r\n      FLAG  = 0\r\n      IERR  = 0\r\nC\r\n      DO 5 IOP = 1,32\r\n      IF (OP(1) .EQ. OPCODE(IOP)) GO TO\r\n     1   (  10,  20,  30,  40,  50,  60,  70,  80,  90, 100,\r\n     2     110, 120, 130, 140, 150, 160, 170, 180, 190, 200,\r\n     3     210, 220, 230, 240, 250, 260, 270, 280, 290, 300,\r\n     4     310, 320    ), IOP\r\n    5 CONTINUE\r\n      WRITE  (NOUT,6) OP(1),NAM\r\n    6 FORMAT (22X,'UNRECOGNIZABLE OP CODE = ',A4,'  (INPUT ERROR) ',2A4)\r\n      CALL MESAGE (-7,0,NAME)\r\nC\r\nC *******\r\nC     REAL NUMBER FUNCTIONS\r\nC *******\r\nC\r\nC     ADD\r\nC\r\n   10 OUTR = IN1R + IN2R\r\n      GO TO 600\r\nC\r\nC     SUBTRACT\r\nC\r\n   20 OUTR = IN1R - IN2R\r\n      GO TO 600\r\nC\r\nC     MULTIPLY\r\nC\r\n   30 OUTR = IN1R*IN2R\r\n      GO TO 600\r\nC\r\nC     DIVIDE\r\nC\r\n   40 OUTR = 0.0\r\n      IF (IN2R .EQ. 0.D0) GO TO 45\r\n      OUTR = IN1R/IN2R\r\n      GO TO 600\r\n   45 WRITE  (NOUT,47) NAM\r\n   47 FORMAT (5X,'ERROR - DIVIDED BY ZERO  ',2A4)\r\n      IERR = 1\r\n      FLAG =+1\r\n      IF (IL8 .LE. 0) GO TO 730\r\n      IVPS(IL8) = FLAG\r\n      I = IL8 - 3\r\n      WRITE  (NOUT,48) IVPS(I),IVPS(I+1),FLAG,NAM\r\n   48 FORMAT (22X,2A4,2H =,I10,'   (OUTPUT)  ',2A4)\r\n      GO TO 730\r\nC\r\nC     NOP\r\nC\r\n   50 RETURN\r\nC\r\nC     SQUARE ROOT\r\nC\r\n   60 IF (IN1R .LT. 0.0) GO TO 65\r\n      OUTR = SQRT(IN1R)\r\n      GO TO 650\r\n   65 WRITE  (NOUT,67) NAM\r\n   67 FORMAT (5X,'ERROR - OPERATING ON A NEGATIVE NUMBER  ',2A4)\r\n      OUTR = 0.0\r\n      IERR = 1\r\n      GO TO 650\r\nC\r\nC     SINE\r\nC\r\n   70 OUTR = SIN(IN1R)\r\n      GO TO 650\r\nC\r\nC     COSINE\r\nC\r\n   80 OUTR = COS(IN1R)\r\n      GO TO 650\r\nC\r\nC     ABSOLUTE VALUE\r\nC\r\n   90 OUTR = ABS(IN1R)\r\n      GO TO 650\r\nC\r\nC     EXPONENTIAL\r\nC\r\n  100 OUTR = EXP(IN1R)\r\n      GO TO 650\r\nC\r\nC     TANGENT\r\nC\r\n  110 OUTR = TAN(IN1R)\r\n      GO TO 650\r\nC\r\nC     NORM\r\nC\r\n  180 OUTR = SQRT(OUTC(1)**2 + OUTC(2)**2)\r\n      GO TO 690\r\nC\r\nC     POWER\r\nC\r\n  200 OUTR  = IN1R**IN2R\r\n      GO TO 600\r\nC\r\nC     LOG\r\nC\r\n  280 IF (IN1R .LT. 0.0) GO TO 65\r\n      OUTR = ALOG10(IN1R)\r\n      GO TO 650\r\nC\r\nC     NATURAL LOG\r\nC\r\n  290 IF (IN1R .LT. 0.0) GO TO 65\r\n      OUTR = ALOG(IN1R)\r\n      GO TO 650\r\nC\r\nC     FLOAT\r\nC\r\n  310 OUTR = IFLAG\r\n      GO TO 670\r\nC\r\nC     ERR\r\nC\r\n  320 IF (IFLAG.NE.0 .AND. KSYS37.NE.0) GO TO 970\r\n      KSYS37 = 0\r\n      NOGO   = 0\r\n      IF (PRT) WRITE (NOUT,325)\r\n  325 FORMAT (5X,'SYSTEM NOGO FLAG IS RESET TO INTEGER ZERO',/)\r\n      GO TO 990\r\nC\r\nC *******\r\nC     COMPLEX FUNCTIONS\r\nC *******\r\nC\r\nC     ADD COMPLEX\r\nC\r\n  120 OUTC(1) = IN1C(1) + IN2C(1)\r\n      OUTC(2) = IN1C(2) + IN2C(2)\r\n      GO TO 730\r\nC\r\nC     SUBTRACT COMPLEX\r\nC\r\n  130 OUTC(1) = IN1C(1) - IN2C(1)\r\n      OUTC(2) = IN1C(2) - IN2C(2)\r\n      GO TO 730\r\nC\r\nC     MULTIPLY COMPLEX\r\nC\r\n  140 OUTC(1) = IN1C(1)*IN2C(1) - IN1C(2)*IN2C(2)\r\n      OUTC(2) = IN1C(1)*IN2C(2) + IN1C(2)*IN2C(1)\r\n      GO TO 730\r\nC\r\nC     DIVIDE COMPLEX\r\nC\r\n  150 DENOM = IN2C(1)**2 + IN2C(2)**2\r\n      IF (DENOM .EQ. 0.0) GO TO 155\r\n      OUTC(1) = (IN1C(1)*IN2C(1) + IN1C(2)*IN2C(2))/DENOM\r\n      OUTC(2) = (IN1C(2)*IN2C(1) - IN1C(1)*IN2C(2))/DENOM\r\n      GO TO 730\r\n  155 OUTC(1) = 0.0\r\n      OUTC(2) = 0.0\r\n      GO TO 45\r\nC\r\nC     COMPLEX\r\nC\r\n  160 OUTC(1) = IN1R\r\n      OUTC(2) = IN2R\r\n      GO TO 710\r\nC\r\nC     COMPLEX SQUARE ROOT\r\nC\r\n  170 OUTC(1) = (IN1C(1)**2 + IN1C(2)**2)**0.25\r\n     1          *COS(0.5*ATAN2(IN1C(2),IN1C(1)))\r\n      OUTC(2) = (IN1C(1)**2 + IN1C(2)**2)**0.25\r\n     1          *SIN(0.5*ATAN2(IN1C(2),IN1C(1)))\r\n      GO TO 760\r\nC\r\nC     CONJUGATE\r\nC\r\n  210 OUTC(1) = IN1C(1)\r\n      OUTC(2) =-IN1C(2)\r\n      GO TO 760\r\nC\r\nC     REAL\r\nC\r\n  190 IN1R = OUTC(1)\r\n      IN2R = OUTC(2)\r\n      GO TO 770\r\nC\r\nC     EQUAL\r\nC\r\n  220 IF (IN1R .EQ. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     GREATER THAN\r\nC\r\n  230 IF (IN1R .GT. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     GREATER THAN OR EQUAL\r\nC\r\n  240 IF (IN1R .GE. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     LESS THAN\r\nC\r\n  250 IF (IN1R .LT. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     LESS THAN OR EQUAL\r\nC\r\n  260 IF (IN1R .LE. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     NOT EQUAL\r\nC\r\n  270 IF (IN1R .NE. IN2R) FLAG = -1\r\n      GO TO 660\r\nC\r\nC     FIX\r\nC\r\n  300 FLAG = OUTR\r\n      GO TO 720\r\nC\r\nC ---------------------------------------------------\r\nC\r\nC     INPUT PARAMETER ECHO\r\nC\r\n  600 ASSIGN 620 TO IRTN3\r\n      ASSIGN 800 TO IRTN4\r\n  610 IF (.NOT.PRT) GO TO 615\r\n      I = IL3 - 3\r\n      IF (IL3 .LE. 0) WRITE (NOUT,640) ILX(3),PARM,IN1R\r\n      IF (IL3 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),IN1R\r\n  615 IF (IL3 .EQ. 0) IERR = 1\r\n      GO TO IRTN3, (620,800)\r\n  620 IF (.NOT.PRT) GO TO 645\r\n      J = IL4 - 3\r\n      IF (IL4 .LE. 0) WRITE (NOUT,640) ILX(4),PARM,IN2R\r\n      IF (IL4 .GT. 0) WRITE (NOUT,640) IVPS(J),IVPS(J+1),IN2R\r\n  640 FORMAT (22X,2A4,3H = ,E13.6,'  (INPUT)')\r\n  645 IF (IL4 .EQ. 0) IERR = 1\r\n      GO TO IRTN4, (800,880,910)\r\nC\r\n  650 ASSIGN 800 TO IRTN3\r\n      GO TO 610\r\nC\r\n  660 ASSIGN 620 TO IRTN3\r\n      ASSIGN 910 TO IRTN4\r\n      GO TO 610\r\nC\r\n  670 IF (.NOT.PRT) GO TO 685\r\n      I = IL8 - 3\r\n      IF (IL8 .LE. 0) WRITE (NOUT,680) ILX(8),PARM,IFLAG\r\n      IF (IL8 .GT. 0) WRITE (NOUT,680) IVPS(I),IVPS(I+1),IFLAG\r\n  680 FORMAT (22X,2A4,2H =,I10,'   (INPUT)')\r\n  685 IF (IL8 .EQ. 0) IERR = 1\r\n      GO TO 800\r\nC\r\n  690 IF (.NOT.PRT) GO TO 705\r\n      I = IL5 - 3\r\n      IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC\r\n      IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC\r\n  700 FORMAT (22X,2A4,4H = (,E13.6,1H,,E13.6,')   (INPUT)')\r\n  705 IF (IL5 .EQ. 0) IERR = 1\r\n      GO TO 800\r\nC\r\n  710 ASSIGN 620 TO IRTN3\r\n      ASSIGN 880 TO IRTN4\r\n      GO TO 610\r\nC\r\n  720 IF (.NOT.PRT) GO TO 725\r\n      I = IL2 - 3\r\n      IF (IL2 .LE. 0) WRITE (NOUT,640) ILX(2),PARM,OUTR\r\n      IF (IL2 .GT. 0) WRITE (NOUT,640) IVPS(I),IVPS(I+1),OUTR\r\n  725 IF (IL2 .EQ. 0) IERR = 1\r\n      GO TO 910\r\nC\r\n  730 ASSIGN 750 TO IRTN6\r\n  740 IF (.NOT.PRT) GO TO 745\r\n      I = IL6 - 3\r\n      IF (IL6 .LE. 0) WRITE (NOUT,700) ILX(6),PARM,IN1C\r\n      IF (IL6 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),IN1C\r\n  745 IF (IL6 .EQ. 0) IERR = 1\r\n      GO TO IRTN6, (750,880)\r\n  750 IF (.NOT.PRT) GO TO 755\r\n      J = IL7 - 3\r\n      IF (IL7 .LE. 0) WRITE (NOUT,700) ILX(7),PARM,IN2C\r\n      IF (IL7 .GT. 0) WRITE (NOUT,700) IVPS(J),IVPS(J+1),IN2C\r\n  755 IF (IL7 .EQ. 0) IERR = 1\r\n      GO TO 880\r\nC\r\n  760 ASSIGN 880 TO IRTN6\r\n      GO TO 740\r\nC\r\n  770 IF (.NOT.PRT) GO TO 775\r\n      I = IL5 - 3\r\n      IF (IL5 .LE. 0) WRITE (NOUT,700) ILX(5),PARM,OUTC\r\n      IF (IL5 .GT. 0) WRITE (NOUT,700) IVPS(I),IVPS(I+1),OUTC\r\n  775 IF (IL5 .EQ. 0) IERR = 1\r\n      GO TO 840\r\nC\r\nC     OUTPUT PARAMETER CHECK\r\nC\r\nC     SECOND PARAMETER - OUTR\r\nC\r\n  800 IF (IL2 .GT. 0) GO TO 820\r\n      WRITE  (NOUT,810) ILX(2),NAM\r\n  810 FORMAT (22X,A4,'PARAMETER IS MISSING  (OUTPUT ERROR)  ',2A4)\r\n      IERR = 1\r\n      GO TO 950\r\n  820 IF (IERR .EQ. 0) VPS(IL2) = OUTR\r\n      I = IL2 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),VPS(IL2)\r\n  830 FORMAT (22X,2A4,3H = ,E13.6,'  (OUTPUT)')\r\n      GO TO 950\r\nC\r\nC     THIRD AND FOURTH PARAMETERS - INR1, INR2\r\nC\r\n  840 IF (IL3 .GT. 0) GO TO 850\r\n      WRITE (NOUT,810) ILX(3),NAM\r\n      IERR = 1\r\n      GO TO 860\r\n  850 IF (IERR .EQ. 0) VPS(IL3) = IN1R\r\n      I = IL3 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(I),IVPS(I+1),VPS(IL3)\r\n  860 IF (IL4 .GT. 0) GO TO 870\r\n      WRITE (NOUT,810) ILX(4),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  870 IF (IERR .EQ. 0) VPS(IL4) = IN2R\r\n      J = IL4 - 3\r\n      IF (PRT) WRITE (NOUT,830) IVPS(J),IVPS(J+1),VPS(IL4)\r\n      GO TO 950\r\nC\r\nC     FIFTH PARAMETER - OUTC\r\nC\r\n  880 IF (IL5 .GT. 0) GO TO 890\r\n      WRITE (NOUT,810) ILX(5),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  890 IF (IERR .EQ. 1) GO TO 895\r\n      VPS(IL5  ) = OUTC(1)\r\n      VPS(IL5+1) = OUTC(2)\r\n  895 I = IL5 - 3\r\n      IF (PRT) WRITE (NOUT,900) IVPS(I),IVPS(I+1),VPS(IL5),VPS(IL5+1)\r\n  900 FORMAT (22X,2A4,4H = (,E13.6,1H,,E13.6,')   (OUTPUT)')\r\n      GO TO 950\r\nC\r\nC     EIGHTH PARAMETER - FLAG\r\nC\r\n  910 IF (IL8 .GT.  0) GO TO 920\r\n      WRITE (NOUT,810) ILX(8),NAM\r\n      IERR = 1\r\n      GO TO 950\r\n  920 IF (IERR .EQ. 0) IVPS(IL8) = FLAG\r\n      I = IL8 - 3\r\n      IF (PRT) WRITE (NOUT,930) IVPS(I),IVPS(I+1),IVPS(IL8)\r\n  930 FORMAT (22X,2A4,2H =,I10,6X,'(OUTPUT)')\r\nC\r\n  950 IF (IERR  .EQ. 0) GO TO 990\r\n      WRITE  (NOUT,960) UWM,NAM\r\n  960 FORMAT (A25,' - I/O ERROR, OUTPUT NOT SAVED. OUTPUT DEFAULT ',\r\n     1       'VALUE REMAINS ',2A4,/)\r\n      GO TO 990\r\n  970 WRITE  (NOUT,980)\r\n  980 FORMAT (5X,'JOB TERMINATED DUE TO PREVIOUS ERROR(S)',/)\r\n      CALL PEXIT\r\n  990 IF (KSYS37 .EQ. 0) KSYS37 = IERR\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/qriter.f",
    "content": "      SUBROUTINE QRITER (VAL,O,LOC,QR)\r\nC\r\nC     ORTEGA-KAISER QR ITERATION FOR A LARGE TRIDIAGONAL MATRIX\r\nC\r\n      INTEGER          LOC(1),QR,SYSBUF,MSG(10)\r\n      REAL             LFREQ\r\n      DOUBLE PRECISION VAL(1),O(1),SHIFT,ZERO,ONE,ONES,EPSI,G,R,S,T,U,\r\n     1                 DLMDAS\r\n      CHARACTER*5      BELOW,ABOVE,BELABV\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /GIVN  /  IDUM0(100),N,LFREQ,IDUM3,IDUM4,HFREQ,LAMA,NV,\r\n     1                 NE,IDUM9,NFOUND,IDUM11,IDUM12,IDUM13,NEVER,MAX\r\n      COMMON /REIGKR/  IOPTN\r\n      COMMON /MGIVXX/  DLMDAS\r\n      DATA    EPSI  ,  ZERO,ONE,MSG/ 1.0D-10, 0.0D+0, 1.0D+0, 53,9*0 /\r\n      DATA    MGIV  ,  BELOW,ABOVE / 4HMGIV, 'BELOW', 'ABOVE'        /\r\nC\r\nC     VAL    = DIAGONAL TERMS OF THE TRIDIAGONAL.\r\nC              REORDERED EIGENVALUES UPON RETURN.\r\nC     O      = SQUARE OF THE OFF-DIAGIONAL TERMS OF THE TRIDIAGONAL.\r\nC     LOC    = ORIGINAL LOCATIONS OF THE REORDERED EIGENVALUES.\r\nC     QR     = 1 MEANS  VAL= EIGENVALUES--JUST REORDER THEM\r\nC     N      = ORDER OF THE PROBLEM = ALSO NO. OF FREQ. EXTRACTED\r\nC     MAX    = MAXIMUM NUMBER OF ITERATIONS\r\nC     SHIFT  = SHIFT FACTOR (SMALLEST DIAGONAL TERM\r\nC     LFREQ  , HFREQ = FREQ. RANGE OF INTEREST IF NV IS ZERO\r\nC     NV     = NUMBER OF EIGENVECTORS TO BE COMPUTED, SAVED AND OUTPUT.\r\nC              IF NV IS ZERO (INPUT), AND LFREQ-HFREQ ARE PRESENT, NV IS\r\nC              SET TO BE NO. OF MODES WITHIN THE FREQ. RANGE (OUTPUT)\r\nC     NE     = NO. OF EIGENVALUES (INCLUDING RIGID MODES) TO BE PRINTED.\r\nC              ALL, IF NE IS NOT SPECIFIED.\r\nC              IF NE .LT. NV, NE IS SET EQUAL TO NV\r\nC\r\n      MAX = 100*N\r\n      IF (NV .GT.  N) NV = N\r\n      IF (NE .EQ.  0) NE = N\r\n      IF (NE .LT. NV) NE = NV\r\nC\r\nC     IS THIS AN ORDERING ONLY CALL\r\nC\r\n      NEVER = 0\r\n      IF (QR .NE. 0) GO TO 150\r\nC\r\nC     SEARCH FOR A DECOUPLED SUBMATRIX.\r\nC\r\n      M2 = N\r\n  100 M2M1 = M2 - 1\r\n      DO 101 K = 1,M2M1\r\n      M1 = M2 - K\r\n      IF (O(M1) .NE. ZERO) GO TO 102\r\n  101 CONTINUE\r\nC\r\nC     ALL OFF-DIAGONAL TERMS ARE ZEROS, JOB DONE. GO TO 150\r\nC     THE DIAGONALS CONTAIN THE EIGENVALUES.\r\nC\r\n      GO TO 150\r\nC\r\nC     DECOUPLED SUBMATRIX\r\nC\r\n  102 M2M1 = M1\r\n      M2   = M1 + 1\r\n      IF (M2M1 .EQ. 1) GO TO 105\r\n      DO 103 K = 2,M2M1\r\n      M1 = M2 - K\r\n      IF (O(M1) .EQ. ZERO) GO TO 104\r\n  103 CONTINUE\r\n      GO TO 105\r\n  104 M1 = M1 + 1\r\n  105 MM = M1\r\nC\r\nC     Q-R ITERATION FOR THE DECOUPLED SUBMATRIX\r\nC\r\n  110 DO 135 ITER = 1,MAX\r\n      IF (DABS(VAL(M2))+O(M2M1) .EQ. DABS(VAL(M2))) GO TO 140\r\n      DO 111 K = M1,M2M1\r\n      IF (VAL(K) .NE. VAL(K+1)) GO TO 115\r\n  111 CONTINUE\r\n      SHIFT = ZERO\r\n      GO TO 120\r\nC\r\nC     FIND THE SMALLEST DIAGONAL TERM = SHIFT\r\nC\r\n  115 SHIFT = VAL(M2)\r\n      DO 116 I = M1,M2M1\r\n      IF (DABS(VAL(I)) .LT. DABS(SHIFT)) SHIFT = VAL(I)\r\n  116 CONTINUE\r\nC\r\nC     REDUCE ALL TERMS BY SHIFT\r\nC\r\n      DO 117  I = M1,M2\r\n      VAL(I) = VAL(I) - SHIFT\r\n  117 CONTINUE\r\nC\r\nC     Q-R ITERATION\r\nC\r\n  120 R = VAL(M1)**2\r\n      S = O(M1)/(R+O(M1))\r\n      T = ZERO\r\n      U = S*(VAL(M1) + VAL(M1+1))\r\n      VAL(M1) = VAL(M1) + U\r\n      IF (M1 .EQ. M2M1) GO TO 125\r\n      M1P1 = M1 + 1\r\n      DO 123 I = M1P1,M2M1\r\n      G = VAL(I) - U\r\n      R = (ONE-T)*O(I-1)\r\n      ONES = ONE - S\r\n      IF (DABS(ONES) .GT. EPSI) R = G*G/ONES\r\n      R = R + O(I)\r\n      O(I-1) = S*R\r\n      IF (O(I-1) .EQ. ZERO) MM = I\r\n      T = S\r\nC\r\nC     IBM MAY FLAG AN EXPONENT UNDERFLOW ON NEXT LINE.\r\nC     IT IS PERFECTLY OK SINCE O(I) SHOULD BE APPROACHING ZERO.\r\nC\r\n      S = O(I)/R\r\n      U = S*(G + VAL(I+1))\r\n      VAL(I) = U + G\r\n  123 CONTINUE\r\nC\r\n  125 VAL(M2) = VAL(M2) - U\r\n      R = (ONE-T)*O(M2M1)\r\n      ONES = ONE - S\r\n      IF (DABS(ONES) .GT. EPSI) R = VAL(M2)**2/ONES\r\n      O(M2M1) = S*R\r\nC\r\nC     SHIFT BACK\r\nC\r\n      IF (SHIFT .EQ. ZERO) GO TO 133\r\n      DO 130 I = M1,M2\r\n      VAL(I) = VAL(I) + SHIFT\r\n  130 CONTINUE\r\n  133 M1 = MM\r\n  135 CONTINUE\r\nC\r\nC     TOO MANY ITERATIONS\r\nC\r\nC\r\nC     THE ACCURACY OF EIGENVALUE  XXXXX  IS IN DOUBT--QRITER FAILED TO\r\nC     CONVERGE IN  XX  ITERATIONS\r\nC\r\n      NEVER = NEVER + 1\r\n      CALL MESAGE (MSG(1),VAL(M2),MAX)\r\nC\r\nC     CONVERGENCE ACHIEVED\r\nC\r\n  140 IF (M1 .EQ. M2M1) GO TO 145\r\n      M2   = M2M1\r\n      M2M1 = M2 -1\r\n      GO TO 110\r\n  145 IF (M1 .LE. 2) GO TO 150\r\n      M2 = M1 - 1\r\n      GO TO 100\r\n  150 IF (N .EQ. 1) GO TO 205\r\nC\r\nC     REORDER EIGENVALUES ALGEBRAICALLY IN ASCENDING ORDER\r\nC\r\n      IF (IOPTN .NE. MGIV) GO TO 155\r\nC\r\nC     FOR MGIV METHOD, RECOMPUTE LAMBDA\r\nC\r\n      DO 153 K = 1,N\r\n      VAL(K) = (1.0D0/VAL(K)) - DLMDAS\r\n  153 CONTINUE\r\n  155 CONTINUE\r\n      DO 190 K = 1,N\r\n      DO 160 M = 1,N\r\n      IF (VAL(M) .NE. -10000.0D0) GO TO 170\r\n  160 CONTINUE\r\n  170 IF (M .EQ. N) GO TO 185\r\n      MP1 = M + 1\r\n      DO 180 I = MP1,N\r\n      IF (VAL(I) .EQ. -10000.0D0) GO TO 180\r\n      IF (VAL(M) .GT. VAL(I)) M = I\r\n  180 CONTINUE\r\n  185 O(K)   = VAL(M)\r\n      VAL(M) =-10000.0D0\r\n      LOC(K) = M\r\n  190 CONTINUE\r\n      DO 195 I = 1,N\r\n      VAL(I) = O(I)\r\n  195 CONTINUE\r\nC\r\nC     IF RIGID MODES WERE FOUND BEFORE, REPLACE RIGID FREQ. BY ZERO\r\nC\r\n      IF (NFOUND .EQ. 0) GO TO 205\r\n      DO 200 I = 1,NFOUND\r\n      VAL(I) = ZERO\r\n  200 CONTINUE\r\nC\r\nC     OUTPUT OPTION CHECK - BY FREQ. RANGE OR BY NO. OF FREQ.\r\nC     REQUESTED\r\nC\r\n  205 IB    = 1\r\n      IF (NV .NE. 0) GO TO 225\r\n      IF (LFREQ .LE. 0.0) GO TO 225\r\nC\r\nC     LOCATE PONTER THAT POINTS TO EIGENVALUE ABOVE OR EQUAL THE\r\nC     LOWEST LFREQ. AS REQUESTED.\r\nC\r\n      DO 215 I = 1,N\r\n      IF (VAL(I) .GE. LFREQ) GO TO 220\r\n  215 CONTINUE\r\n      I  = 0\r\n  220 IB = I\r\nC\r\nC     OPEN LAMA FOR OUTPUT\r\nC     PUT EIGENVALUES ON LAMA FOLLOWED BY ORDER FOUND\r\nC\r\n  225 IBUF1 = (KORSZ(O)-SYSBUF+1)/2\r\n      CALL GOPEN (LAMA,O(IBUF1),1)\r\n      NN = 0\r\n      IF (IB .EQ. 0) GO TO 240\r\n      DO 230 I = IB,N\r\n      VALX = VAL(I)\r\n      IF (NV.NE.0 .AND.    I.GT.   NE) GO TO 240\r\n      IF (NV.EQ.0 .AND. VALX.GT.HFREQ) GO TO 240\r\n      CALL WRITE (LAMA,VALX,1,0)\r\n      NN = NN + 1\r\n  230 CONTINUE\r\nC\r\n  240 CONTINUE\r\nC\r\nC     IF FREQ. RANGE IS REQUESTED, AND ALL FREQ. FOUND ARE OUTSIDE THE\r\nC     RANGE, OUTPUT AT LEAST ONE FREQ.\r\nC\r\n      IF (NN .GT. 0) GO TO 260\r\n      IF (IB .EQ. 0) BELABV = BELOW\r\n      IF (IB .NE. 0) BELABV = ABOVE\r\n      WRITE (NOUT,250) UIM,BELABV\r\n  250 FORMAT (A29,', ALL ROOTS FOUND WERE ',A5,' FREQ. RANGE SPECIFIED',\r\n     1       /5X,'HOWEVER, ONE EIGENVALUE OUTSIDE THIS FREQ. RANGE WAS',\r\n     2       ' SAVED AND PRINTED')\r\n      NN = 1\r\n      IF (IB .NE. 0) IB = N\r\n      IF (IB .EQ. 0) IB = 1\r\n      CALL WRITE (LAMA,VAL(IB),1,0)\r\n  260 CALL WRITE (LAMA,0,0,1)\r\n      CALL WRITE (LAMA,LOC(IB),NN,1)\r\n      CALL CLOSE (LAMA,1)\r\n      MSG(2) = LAMA\r\n      MSG(3) = NN\r\n      CALL WRTTRL (MSG(2))\r\nC\r\nC     IF FREQ. DOES NOT START FROM FIRST FUNDAMENTAL MODE, ADJUST VAL\r\nC     AND LOC TABLES SO THAT WILVEC WILL PICK UP FREQUENCIES CORRECTLY\r\nC\r\n      IF (IB .LE. 1) GO TO 280\r\n      J = 1\r\n      DO 270 I = IB,N\r\n      VAL(J) = VAL(I)\r\n      LOC(J) = LOC(I)\r\n  270 J = J + 1\r\nC\r\n  280 IF (NV.EQ.0 .AND. IB.GT.1 .AND. NN.LT.NFOUND .AND. VAL(1).LE.ZERO)\r\n     1    NFOUND = 0\r\n      IF (NV .EQ. 0) NV = NN\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/qriter1.f",
    "content": "      SUBROUTINE QRITER1 (VAL,O,LOC,QR)\r\nC\r\nC     ORTEGA-KAISER QR ITERATION FOR A LARGE TRIDIAGONAL MATRIX\r\nC\r\n      INTEGER          LOC(1),QR,SYSBUF,MSG(10)\r\n      REAL             LFREQ\r\n      REAL             VAL(1),O(1),SHIFT,ZERO,ONE,ONES,EPSI,G,R,S,T,U,\r\n     1                 DLMDAS\r\n      CHARACTER*5      BELOW,ABOVE,BELABV\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\nCWKBR 2/94 SPR93027      COMMON /SYSTEM/  SYSBUF,NOUT  \r\n      COMMON /SYSTEM/  SYSBUF,NOUT, IDUM(52), IPREC  \r\n      COMMON /GIVN  /  IDUM0(100),N,LFREQ,IDUM3,IDUM4,HFREQ,LAMA,NV,\r\n     1                 NE,IDUM9,NFOUND,IDUM11,IDUM12,IDUM13,NEVER,MAX\r\n      COMMON /REIGKR/  IOPTN\r\n      COMMON /MGIVXX/  DLMDAS\r\n      DATA    EPSI  ,  ZERO,ONE,MSG/ 1.0D-10, 0.0D+0, 1.0D+0, 53,9*0 /\r\n      DATA    MGIV  ,  BELOW,ABOVE / 4HMGIV, 'BELOW', 'ABOVE'        /\r\nC\r\nC     VAL    = DIAGONAL TERMS OF THE TRIDIAGONAL.\r\nC              REORDERED EIGENVALUES UPON RETURN.\r\nC     O      = SQUARE OF THE OFF-DIAGIONAL TERMS OF THE TRIDIAGONAL.\r\nC     LOC    = ORIGINAL LOCATIONS OF THE REORDERED EIGENVALUES.\r\nC     QR     = 1 MEANS  VAL= EIGENVALUES--JUST REORDER THEM\r\nC     N      = ORDER OF THE PROBLEM = ALSO NO. OF FREQ. EXTRACTED\r\nC     MAX    = MAXIMUM NUMBER OF ITERATIONS\r\nC     SHIFT  = SHIFT FACTOR (SMALLEST DIAGONAL TERM\r\nC     LFREQ  , HFREQ = FREQ. RANGE OF INTEREST IF NV IS ZERO\r\nC     NV     = NUMBER OF EIGENVECTORS TO BE COMPUTED, SAVED AND OUTPUT.\r\nC              IF NV IS ZERO (INPUT), AND LFREQ-HFREQ ARE PRESENT, NV IS\r\nC              SET TO BE NO. OF MODES WITHIN THE FREQ. RANGE (OUTPUT)\r\nC     NE     = NO. OF EIGENVALUES (INCLUDING RIGID MODES) TO BE PRINTED.\r\nC              ALL, IF NE IS NOT SPECIFIED.\r\nC              IF NE .LT. NV, NE IS SET EQUAL TO NV\r\nC\r\n      MAX = 100*N\r\n      IF (NV .GT.  N) NV = N\r\n      IF (NE .EQ.  0) NE = N\r\n      IF (NE .LT. NV) NE = NV\r\nC\r\nC     IS THIS AN ORDERING ONLY CALL\r\nC\r\n      NEVER = 0\r\n      IF (QR .NE. 0) GO TO 150\r\nC\r\nC     SEARCH FOR A DECOUPLED SUBMATRIX.\r\nC\r\n      M2 = N\r\n  100 M2M1 = M2 - 1\r\n      DO 101 K = 1,M2M1\r\n      M1 = M2 - K\r\n      IF (O(M1) .NE. ZERO) GO TO 102\r\n  101 CONTINUE\r\nC\r\nC     ALL OFF-DIAGONAL TERMS ARE ZEROS, JOB DONE. GO TO 150\r\nC     THE DIAGONALS CONTAIN THE EIGENVALUES.\r\nC\r\n      GO TO 150\r\nC\r\nC     DECOUPLED SUBMATRIX\r\nC\r\n  102 M2M1 = M1\r\n      M2   = M1 + 1\r\n      IF (M2M1 .EQ. 1) GO TO 105\r\n      DO 103 K = 2,M2M1\r\n      M1 = M2 - K\r\n      IF (O(M1) .EQ. ZERO) GO TO 104\r\n  103 CONTINUE\r\n      GO TO 105\r\n  104 M1 = M1 + 1\r\n  105 MM = M1\r\nC\r\nC     Q-R ITERATION FOR THE DECOUPLED SUBMATRIX\r\nC\r\n  110 DO 135 ITER = 1,MAX\r\n      IF (ABS(VAL(M2))+O(M2M1) .EQ. ABS(VAL(M2))) GO TO 140\r\n      DO 111 K = M1,M2M1\r\n      IF (VAL(K) .NE. VAL(K+1)) GO TO 115\r\n  111 CONTINUE\r\n      SHIFT = ZERO\r\n      GO TO 120\r\nC\r\nC     FIND THE SMALLEST DIAGONAL TERM = SHIFT\r\nC\r\n  115 SHIFT = VAL(M2)\r\n      DO 116 I = M1,M2M1\r\n      IF (ABS(VAL(I)) .LT. ABS(SHIFT)) SHIFT = VAL(I)\r\n  116 CONTINUE\r\nC\r\nC     REDUCE ALL TERMS BY SHIFT\r\nC\r\n      DO 117  I = M1,M2\r\n      VAL(I) = VAL(I) - SHIFT\r\n  117 CONTINUE\r\nC\r\nC     Q-R ITERATION\r\nC\r\n  120 R = VAL(M1)**2\r\n      S = O(M1)/(R+O(M1))\r\n      T = ZERO\r\n      U = S*(VAL(M1) + VAL(M1+1))\r\n      VAL(M1) = VAL(M1) + U\r\n      IF (M1 .EQ. M2M1) GO TO 125\r\n      M1P1 = M1 + 1\r\n      DO 123 I = M1P1,M2M1\r\n      G = VAL(I) - U\r\n      R = (ONE-T)*O(I-1)\r\n      ONES = ONE - S\r\n      IF (ABS(ONES) .GT. EPSI) R = G*G/ONES\r\n      R = R + O(I)\r\n      O(I-1) = S*R\r\n      IF (O(I-1) .EQ. ZERO) MM = I\r\n      T = S\r\nC\r\nC     IBM MAY FLAG AN EXPONENT UNDERFLOW ON NEXT LINE.\r\nC     IT IS PERFECTLY OK SINCE O(I) SHOULD BE APPROACHING ZERO.\r\nC\r\n      S = O(I)/R\r\n      U = S*(G + VAL(I+1))\r\n      VAL(I) = U + G\r\n  123 CONTINUE\r\nC\r\n  125 VAL(M2) = VAL(M2) - U\r\n      R = (ONE-T)*O(M2M1)\r\n      ONES = ONE - S\r\n      IF (ABS(ONES) .GT. EPSI) R = VAL(M2)**2/ONES\r\n      O(M2M1) = S*R\r\nC\r\nC     SHIFT BACK\r\nC\r\n      IF (SHIFT .EQ. ZERO) GO TO 133\r\n      DO 130 I = M1,M2\r\n      VAL(I) = VAL(I) + SHIFT\r\n  130 CONTINUE\r\n  133 M1 = MM\r\n  135 CONTINUE\r\nC\r\nC     TOO MANY ITERATIONS\r\nC\r\nC\r\nC     THE ACCURACY OF EIGENVALUE  XXXXX  IS IN DOUBT--QRITER FAILED TO\r\nC     CONVERGE IN  XX  ITERATIONS\r\nC\r\n      NEVER = NEVER + 1\r\n      CALL MESAGE (MSG(1),VAL(M2),MAX)\r\nC\r\nC     CONVERGENCE ACHIEVED\r\nC\r\n  140 IF (M1 .EQ. M2M1) GO TO 145\r\n      M2   = M2M1\r\n      M2M1 = M2 -1\r\n      GO TO 110\r\n  145 IF (M1 .LE. 2) GO TO 150\r\n      M2 = M1 - 1\r\n      GO TO 100\r\n  150 IF (N .EQ. 1) GO TO 205\r\nC\r\nC     REORDER EIGENVALUES ALGEBRAICALLY IN ASCENDING ORDER\r\nC\r\n      IF (IOPTN .NE. MGIV) GO TO 155\r\nC\r\nC     FOR MGIV METHOD, RECOMPUTE LAMBDA\r\nC\r\n      DO 153 K = 1,N\r\n      VAL(K) = (1.0/VAL(K)) - DLMDAS\r\n  153 CONTINUE\r\n  155 CONTINUE\r\n      DO 190 K = 1,N\r\n      DO 160 M = 1,N\r\n      IF (VAL(M) .NE. -10000.0) GO TO 170\r\n  160 CONTINUE\r\n  170 IF (M .EQ. N) GO TO 185\r\n      MP1 = M + 1\r\n      DO 180 I = MP1,N\r\n      IF (VAL(I) .EQ. -10000.0) GO TO 180\r\n      IF (VAL(M) .GT. VAL(I)) M = I\r\n  180 CONTINUE\r\n  185 O(K)   = VAL(M)\r\n      VAL(M) =-10000.0\r\n      LOC(K) = M\r\n  190 CONTINUE\r\n      DO 195 I = 1,N\r\n      VAL(I) = O(I)\r\n  195 CONTINUE\r\nC\r\nC     IF RIGID MODES WERE FOUND BEFORE, REPLACE RIGID FREQ. BY ZERO\r\nC\r\n      IF (NFOUND .EQ. 0) GO TO 205\r\n      DO 200 I = 1,NFOUND\r\n      VAL(I) = ZERO\r\n  200 CONTINUE\r\nC\r\nC     OUTPUT OPTION CHECK - BY FREQ. RANGE OR BY NO. OF FREQ.\r\nC     REQUESTED\r\nC\r\n  205 IB    = 1\r\n      IF (NV .NE. 0) GO TO 225\r\n      IF (LFREQ .LE. 0.0) GO TO 225\r\nC\r\nC     LOCATE PONTER THAT POINTS TO EIGENVALUE ABOVE OR EQUAL THE\r\nC     LOWEST LFREQ. AS REQUESTED.\r\nC\r\n      DO 215 I = 1,N\r\n      IF (VAL(I) .GE. LFREQ) GO TO 220\r\n  215 CONTINUE\r\n      I  = 0\r\n  220 IB = I\r\nC\r\nC     OPEN LAMA FOR OUTPUT\r\nC     PUT EIGENVALUES ON LAMA FOLLOWED BY ORDER FOUND\r\nC\r\nCWKBR 2/94 SPR93027  225 IBUF1 = (KORSZ(O)-SYSBUF+1)/2   \r\n  225 IBUF1 = (KORSZ(O)-SYSBUF+1)/IPREC  \r\n      CALL GOPEN (LAMA,O(IBUF1),1)\r\n      NN = 0\r\n      IF (IB .EQ. 0) GO TO 240\r\n      DO 230 I = IB,N\r\n      VALX = VAL(I)\r\n      IF (NV.NE.0 .AND.    I.GT.   NE) GO TO 240\r\n      IF (NV.EQ.0 .AND. VALX.GT.HFREQ) GO TO 240\r\n      CALL WRITE (LAMA,VALX,1,0)\r\n      NN = NN + 1\r\n  230 CONTINUE\r\nC\r\n  240 CONTINUE\r\nC\r\nC     IF FREQ. RANGE IS REQUESTED, AND ALL FREQ. FOUND ARE OUTSIDE THE\r\nC     RANGE, OUTPUT AT LEAST ONE FREQ.\r\nC\r\n      IF (NN .GT. 0) GO TO 260\r\n      IF (IB .EQ. 0) BELABV = BELOW\r\n      IF (IB .NE. 0) BELABV = ABOVE\r\n      WRITE (NOUT,250) UIM,BELABV\r\n  250 FORMAT (A29,', ALL ROOTS FOUND WERE ',A5,' FREQ. RANGE SPECIFIED',\r\n     1       /5X,'HOWEVER, ONE EIGENVALUE OUTSIDE THIS FREQ. RANGE WAS',\r\n     2       ' SAVED AND PRINTED')\r\n      NN = 1\r\n      IF (IB .NE. 0) IB = N\r\n      IF (IB .EQ. 0) IB = 1\r\n      CALL WRITE (LAMA,VAL(IB),1,0)\r\n  260 CALL WRITE (LAMA,0,0,1)\r\n      CALL WRITE (LAMA,LOC(IB),NN,1)\r\n      CALL CLOSE (LAMA,1)\r\n      MSG(2) = LAMA\r\n      MSG(3) = NN\r\n      CALL WRTTRL (MSG(2))\r\nC\r\nC     IF FREQ. DOES NOT START FROM FIRST FUNDAMENTAL MODE, ADJUST VAL\r\nC     AND LOC TABLES SO THAT WILVEC WILL PICK UP FREQUENCIES CORRECTLY\r\nC\r\n      IF (IB .LE. 1) GO TO 280\r\n      J = 1\r\n      DO 270 I = IB,N\r\n      VAL(J) = VAL(I)\r\n      LOC(J) = LOC(I)\r\n  270 J = J + 1\r\nC\r\n  280 IF (NV.EQ.0 .AND. IB.GT.1 .AND. NN.LT.NFOUND .AND. VAL(1).LE.ZERO)\r\n     1    NFOUND = 0\r\n      IF (NV .EQ. 0) NV = NN\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/quad4d.f",
    "content": "      SUBROUTINE QUAD4D\r\nC\r\nC     FORMS STIFFNESS AND MASS MATRICES FOR THE QUAD4 PLATE ELEMENT\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     EST  LISTING\r\nC\r\nC     WORD       TYPE         DESCRIPTION\r\nC     --------------------------------------------------------------\r\nC       1          I    ELEMENT ID, EID\r\nC       2 THRU 5   I    SILS, GRIDS 1 THRU 4\r\nC       6 THRU 9   R    MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4\r\nC      10          R    MATERIAL PROPERTY ORIENTATION ANGLE, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD)\r\nC      11          I    TYPE FLAG FOR WORD 10\r\nC      12          R    GRID ZOFF  (OFFSET)\r\nC      13          I    MATERIAL ID FOR MEMBRANE, MID1\r\nC      14          R    ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED)\r\nC      15          I    MATERIAL ID FOR BENDING, MID2\r\nC      16          R    BENDING INERTIA FACTOR, I\r\nC      17          I    MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC      18          R    TRANSV. SHEAR CORRECTION FACTOR TS/T\r\nC      19          R    NON-STRUCTURAL MASS, NSM\r\nC      20 THRU 21  R    Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC      22          I    MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC      23          R    MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC      24          I    TYPE FLAG FOR WORD 23\r\nC      25          I    INTEGRATION ORDER\r\nC      26          R    STRESS ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC      27          I    TYPE FLAG FOR WORD 26\r\nC      28          R    ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC      29 THRU 44  I/R  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC      45          R    ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL          HEAT,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJAC,\r\n     1                 ANIS,NOCSUB,NOGO\r\n      INTEGER          NEST(45),IEGPDT(4,4),CPMASS,FLAGS,NOUT,ELTYPE,\r\n     1                 ELID,ESTID,SIL(4),KSIL(4),KCID(4),DICT(9),\r\n     2                 IGPDT(4,4),IGPTH(4),NAM(2),MID(4),TYPE,NECPT(4),\r\n     3                 ROWFLG,NOTRAN(4),HSIL(8),HORDER(8)\r\n      REAL             TSFACT,EPSI,EPST,EPS,GPTH(4),MATOUT,EGPDT(4,4),\r\n     1                 GSUBE,BGPDM(3,4),GPNORM(4,4),BGPDT(4,4),ADAMP,\r\n     2                 MATSET,NSM,EPNORM(4,4),KHEAT,HTCP,SINMAT,COSMAT,\r\n     3                 ECPT(4),SAVE(20)\r\n      DOUBLE PRECISION AMGG(1),AKGG,DGPTH(4),BMAT1(384),XYBMAT(96),\r\n     1                 ZETA,MOMINR,VOL,VOLI,TH,AREA,AREA2,DETJ,\r\n     2                 PTINT(2),EPS1,XI,ETA,ZTA,HZTA,THK,\r\n     3                 XMASSO,V(3,3),COEFF,XMTMP(16),XMASS(16),\r\n     4                 TMPMAS(9),JACOB(3,3),TMPSHP(4),TMPTHK(4),\r\n     5                 DSHPTP(8),PSITRN(9),PHI(9),SHP(4),DSHP(8),\r\n     6                 TGRID(4,4),COLSTF(144),TRANS(36),TRANS1(36),\r\n     7                 COLTMP(144),AVGTHK,TEMP\r\nCWKBD 2/94 SPR93020      DOUBLE PRECISION EIX,EIY,TGX,TGY\r\nCWKBI 9/94 SPR93020\r\n      DOUBLE PRECISION VKL, V12DK, VP12L, VJL\r\nCWKBI 2/94 SPR93020\r\n      DOUBLE PRECISION DNUX, DNUY\r\nC\r\nC     DOUBLE PRECISION PTINTZ(2),BMATRX(144),STRESR(240)\r\nC\r\nC     DATA FOR ADDING ELEMENT, USER AND MATERIAL COORDINATE SYSTEMS\r\nC\r\n      DOUBLE PRECISION AA,BB,CC,X31,Y31,X42,Y42,EXI,EXJ,UGPDM(3,4),\r\n     1                 CENT(3),CENTE(3),TBM(9),TEB(9),TEM(9),TUB(9),\r\n     2                 TUM(9),TEU(9),TBG(9),GGE(9),GGU(9)\r\nC\r\nC     DATA FOR ADDING CSUBB, MIDI, MATERIAL TRANS., AND HEAT\r\nC\r\n      DOUBLE PRECISION RHO,TS,TSI,REALI,RHOX,THETAM,XM,YM,U(9),A,B,\r\n     1                 ASPECT,THLEN,XA(4),YB(4),GT(9),GI(36),\r\n     2                 ENORX,ENORY,GNORX,GNORY,NUNORX,NUNORY,DSUB,DSUB4,\r\n     3                 PSIINX,PSIINY,TSMFX,TSMFY,CURVTR(3,4),CURVE(3),\r\n     4                 SINEAX,SINEAY,W1,PI,TWOPI,RADDEG,DEGRAD,\r\n     5                 HTFLX(12),HTCAP(16),HTCON(16),DVOL,DHEAT,WEITC,\r\n     6                 BTERMS(32),DETERM\r\nCWKBNB 11/93 SPR 93020\r\n      DOUBLE PRECISION VD1(3), VD2(3), VKN(3), VKS(3)\r\n     1,                V12(3), V41(3), VP12(3),VIS(3), VJS(3)\r\nCWKBNE 11/93 SPR 93020\r\nC\r\nC     DATA FOR IRREGULAR 4-NODE\r\nC\r\n      DOUBLE PRECISION ZC(4),UEV,ANGLEI,EDGEL,EDGSHR,UNV,VNT(3,4),CONST,\r\n     1                 ASPCTX,ASPCTY,GFOUR(10,10),DFOUR(7,7),BFOUR(240),\r\n     2                 CSUBB4,CSUBX,CSUBY,CSUBT,CSUBTX,CSUBTY,OFFSET,\r\n     3                 SFCTR1,SFCTR2,SFCTX1,SFCTX2,SFCTY1,SFCTY2\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM\r\nC\r\nC     ICORE = FIRST WORD OF OPEN CORE\r\nC     JCORE = NEXT AVAILABLE LOCATION IN OPEN CORE.\r\nC     NCORE = CURRENT LAST AVAILABLE LOCATION IN OPEN CORE\r\nC\r\n      COMMON /EMGPRM/  ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT,\r\n     1                 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON,\r\n     2                 FLAGS(3),PRECIS,ERROR,HEAT,CPMASS,LCSTM,LMAT,\r\n     3                 LHMAT,KFLAGS(3),L38\r\n      COMMON /EMGEST/  EST(45)\r\n      COMMON /EMGDIC/  ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /SYSTEM/  SYS(100)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /MATOUT/  MATOUT(25)\r\n      COMMON /HMTOUT/  KHEAT(7),TYPE\r\nCZZ   COMMON /ZZEMGX/  AKGG(1)\r\n      COMMON /ZZZZZZ/  AKGG(20000)\r\n      COMMON /Q4DT  /  DETJ,HZTA,PSITRN,NNODE,BADJAC,N1\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMD/  ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                 UEV(3,4),ROWFLG,IORDER(4)\r\n      COMMON /CONDAD/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /COMJAC/  XI,ETA,ZETA,DETERM,DUM2,LTYPFL\r\n      COMMON /CJACOB/  TH,VI(3),VJ(3),VN(3)\r\n      COMMON /TRPLM /  NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2\r\n      EQUIVALENCE      (SYS(01) ,SYSBUF  ), (SYS(02) ,NOUT      ),\r\n     1                 (SYS(03) ,NOGO    ), (SYS(55) ,IPREC     )\r\nC     EQUIVALENCE      (SYS(48) ,ICSUB4  ), (SYS(49) ,ICSUBB    ),\r\nC    1                 (SYS(50) ,ICSUBT  ), (SYS(75) ,ICSUB8    )\r\n      EQUIVALENCE      (FLAGS(1),KGG1    ), (FLAGS(2),MGG1      ),\r\n     1                 (ADAMP   ,DICT(5) ), (IGPTH(1),GPTH(1)   ),\r\n     2                 (EST(1)  ,NEST(1) ), (INT     ,NEST(25)  ),\r\n     3                 (ELTH    ,EST(14) ), (GPTH(1) ,EST(6)    ),\r\n     4                 (ZOFF    ,EST(12) ), (ZOFF1   ,EST(28)   ),\r\n     5                 (SIL(1)  ,NEST(2) ), (MATSET  ,MATOUT(25)),\r\n     6                 (NSM     ,EST(19) ), (AMGG(1) ,AKGG(1)   ),\r\n     7                 (HTCP    ,KHEAT(4)), (HTFLX(1),TMPMAS(1) ),\r\n     8                 (HTCAP(1),XMASS(1)), (HTCON(1),XMTMP(1)  ),\r\n     9                 (NECPT(1),ECPT(1) ),\r\n     O                 (BGPDT(1,1) ,EST(29)   ),\r\n     1                 (IEGPDT(1,1),EGPDT(1,1)),\r\n     2                 (IGPDT(1,1) ,BGPDT(1,1))\r\n      DATA    EPS1  /  1.0D-7 /\r\n      DATA    CONST /  0.57735026918962D0/\r\n      DATA    NAM   /  4HQUAD,4H4D       /\r\nC\r\n      ELID   = NEST(1)\r\n      LTYPFL = 1\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS\r\nC\r\n      JCORED = JCORE/IPREC + 1\r\n      NCORED = NCORE/IPREC - 1\r\n      IF ((JCORED+576).LE.NCORED .OR. HEAT .OR. KGG1.EQ.0) GO TO 10\r\n      GO TO 1730\r\nC\r\nC     COPY THE SILS AND BGPDT DATA INTO SAVE ARRAY SINCE THE DATA\r\nC     WILL BE REORDERED BASED ON INCREASING SILS.\r\nC\r\n   10 J = 1\r\n      DO 15 I = 1,20\r\n      SAVE(I) = EST(I+J)\r\n      IF (I .EQ. 4) J = 24\r\n   15 CONTINUE\r\nC\r\n      NNODE = 4\r\n      N1    = 4\r\n      NODESQ= NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NDOF3 = NNODE*3\r\n      ND2   = NDOF*2\r\n      ND3   = NDOF*3\r\n      ND4   = NDOF*4\r\n      ND5   = NDOF*5\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1, 2 AND 4.\r\nC     THIS ARRAY WILL BE USED LATER TO DEFINE THE USER COORD. SYSTEM\r\nC     WHILE CALCULATING TRANSFORMATIONS INVOLVING THIS COORD. SYSTEM.\r\nC\r\n      DO 20 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (IJ .EQ. 3) IJ = 4\r\n      DO 20 J = 1,3\r\n      JJ = J + 1\r\n   20 GGU(II+J) = BGPDT(JJ,IJ)\r\nCWKBD 11/93 SPR93020      CALL BETRND (TUB,GGU,0,ELID)\r\nCWKBNB 11/93 SPR93020\r\nC    ADD FROM SHEAR ELEMENT\r\nC\r\nC    COMPUTE DIAGONAL VECTORS\r\nC\r\n      DO 21 I = 1,3\r\n      II=I+1\r\n      VD1(I) = BGPDT(II,3) - BGPDT(II,1)\r\n   21 VD2(I) = BGPDT(II,4) - BGPDT(II,2)\r\nC\r\nC    COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC    AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL = DSQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 )\r\n      IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1)\r\n2070  FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 )\r\n      VKS(1) = VKN(1)/VKL\r\n      VKS(2) = VKN(2)/VKL\r\n      VKS(3) = VKN(3)/VKL\r\n      PA = VKL/2.D0\r\nC\r\nC  COMPUTE SIDES -12- AND -41-\r\n      DO 25 I = 1,3\r\n      II = I + 1\r\n      V12(I) = BGPDT(II,2) - BGPDT(II,1)\r\n      V41(I) = BGPDT(II,1) - BGPDT(II,4)\r\n25    CONTINUE\r\nC\r\nC  COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK   = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3)\r\n      VP12(1) = V12(1) - V12DK*VKS(1)\r\n      VP12(2) = V12(2) - V12DK*VKS(2)\r\n      VP12(3) = V12(3) - V12DK*VKS(3)\r\n      VP12L   = DSQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 )\r\n      IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1)\r\n      VIS(1) = VP12(1) / VP12L\r\n      VIS(2) = VP12(2) / VP12L\r\n      VIS(3) = VP12(3) / VP12L\r\n      VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2)\r\n      VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3)\r\n      VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1)\r\nC\r\nC   NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = DSQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 )\r\n      IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) NEST(1)\r\n      VJS(1) = VJS(1) / VJL\r\n      VJS(2) = VJS(2) / VJL\r\n      VJS(3) = VJS(3) / VJL\r\n      DO 29 I = 1,3\r\n      TUB(I)   = VIS(I)\r\n      TUB(I+3) = VJS(I)\r\n      TUB(I+6) = VKS(I)\r\n29    CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT C.S.\r\nC\r\n      DO 30 I = 1,3\r\n      I1 = I + 1\r\n      DO 30 J = 1,4\r\n   30 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER C.S.\r\nC\r\n      DO 40 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 40 J = 1,4\r\n      UGPDM(I,J) = 0.0D0\r\n      DO 40 K = 1,3\r\n      KK = IP + K\r\n   40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K))\r\nC\r\nC\r\nC     THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT\r\nC\r\n      DO 50 J = 1,3\r\n      CENT(J) = 0.0D0\r\n      DO 50 I = 1,4\r\n   50 CENT(J) = CENT(J)+UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER C.S.\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = DSQRT(X31*X31 + Y31*Y31)\r\n      BB  = DSQRT(X42*X42 + Y42*Y42)\r\n      IF (AA.EQ.0.D0 .OR. BB.EQ.0.D0) GO TO 1700\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S.\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE\r\nC     LIST  G1,G2,G3,G4 .  THAT IS, THE 'I' PART\r\nC     OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY\r\nC     BULK DATA CARD DESCRIPTION.\r\nC\r\n      DO 60 I = 1,4\r\n      IORDER(I) = 0\r\n      HORDER(I) = 0\r\n      KSIL(I) = SIL(I)\r\n      HSIL(I) = SIL(I)\r\n   60 CONTINUE\r\nC\r\n      DO 80 I = 1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 70 J = 2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 70\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n   70 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      HORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n   80 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE\r\nC     FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\n      DO 100 I = 1,4\r\n      KSIL(I) = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      KCID(I) = IGPDT(1,I)\r\n      DO 90 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      DO 120 I = 1,4\r\n      IPOINT  = IORDER(I)\r\n      SIL(I)  = KSIL(IPOINT)\r\n      GPTH(I) = TMPTHK(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      DO 110 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n      CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .EQ. 0) GO TO 130\r\n      GO TO 1700\r\nC\r\nC     DETERMINE NODAL THICKNESSES\r\nC\r\n  130 AVGTHK = 0.0D0\r\n      DO 160 I = 1,NNODE\r\n      IORD = IORDER(I)\r\n      DO 140 IC = 1,3\r\n  140 CURVTR(IC,IORD) = GPNORM(IC+1,I)\r\nC\r\n      IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH\r\n      IF (NEST(13).EQ.0 .AND. ELTH.EQ.0.0) GPTH(I) = 1.0E-14\r\n      IF (GPTH(I) .GT. 0.0) GO TO 150\r\n      WRITE (NOUT,2010) UFM,ELID\r\n      NOGO = .TRUE.\r\n      GO TO 1710\r\n  150 DGPTH(I) = GPTH(I)\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  160 CONTINUE\r\nC\r\nC     NEST(13) = MID1 ID FOR MEMBRANE\r\nC     NEST(15) = MID2 ID FOR BENDING\r\nC     NEST(17) = MID3 ID FOR TRANSVERSE SHEAR\r\nC     NEST(22) = MID4 ID FOR MEMBRANE-BENDING COUPLING\r\nC                MID4 MUST BE BLANK UNLESS MID1 AND MID2 ARE NON-ZERO\r\nC                MID4 ID MUST NOT EQUAL MID1 OR MID2 ID\r\nC     (WHEN LAYER COMPOSITE IS USED, MID ID IS RAISED TO ID*100000000)\r\nC      EST(14) = MEMBRANE THICKNESS, T\r\nC      EST(16) = BENDING STIFFNESS PARAMETER, 12I/T**3\r\nC      EST(18) = TRANSVERSE SHEAR  PARAMETER, TS/T\r\nC\r\nC     0.8333333 = 5.0/6.0\r\nC\r\n      MOMINR = 0.0D0\r\n      TSFACT = .8333333\r\n      NOCSUB = .FALSE.\r\n      IF (NEST(15) .NE.  0) MOMINR = EST(16)\r\n      IF (NEST(17) .NE.  0) TS = EST(18)\r\n      IF ( EST(18) .EQ. .0) TS = .833333D0\r\nC\r\nC     FIX FOR LAMINATED COMPOSITE WITH MEMBRANE BEHAVIOUR ONLY.\r\nC     REQUIRED TO PREVENT ZERO DIVIDE ERRORS.\r\nC\r\n      IF (NEST(15).EQ.0 .AND. NEST(13).GT.100000000) TS = .833333D0\r\nC\r\nC     SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT\r\nC     VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS.\r\nC     I.E. DEFAULT VALUES OF UNITY ARE USED.\r\nC\r\n      EPSI = ABS(MOMINR - 1.0)\r\n      EPST = ABS(TS  - TSFACT)\r\n      EPS  = .05\r\nC     NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS\r\n      IF (NEST(13) .GT. 100000000) NOCSUB = .FALSE.\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE\r\nC     TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S.\r\nC\r\n      CALL BETRND (TEU,GGE,0,ELID)\r\n      CALL GMMATD (TEU,3,3,0,TUB ,3,3,0,TEB  )\r\n      CALL GMMATD (TUB,3,3,1,CENT,3,1,0,CENTE)\r\n      IDENTT = 0\r\n      IF (TEB(1).EQ.1.D0 .AND. TEB(5).EQ.1.D0 .AND. TEB(9).EQ.1.D0 .AND.\r\n     1    TEB(2).EQ.0.D0 .AND. TEB(3).EQ.0.D0 .AND. TEB(4).EQ.0.D0 .AND.\r\n     2    TEB(6).EQ.0.D0 .AND. TEB(7).EQ.0.D0 .AND. TEB(8).EQ.0.D0\r\n     3    ) IDENTT = 1\r\n      IP = -3\r\n      DO 170 II = 2,4\r\n      IP = IP + 3\r\n      DO 170 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0\r\n      EGPDT(II,J)  = 0.0\r\n      DO 170 K = 1,3\r\n      KK = IP + K\r\n      K1 = K  + 1\r\n      CC = DBLE(BGPDT(K1,J)) - GGU(K)-CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n  170 EGPDT(II,J)  = EGPDT(II,J)  + SNGL(TEB(KK)*CC)\r\nC\r\nC     BEGIN INITIALIZING MATERIAL VARIABLES\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR-\r\nC     ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      INFLAG = 12\r\n      RHO    = 0.0D0\r\n      ELTEMP = EST(45)\r\n      MID(1) = NEST(13)\r\n      MID(2) = NEST(15)\r\n      MID(3) = NEST(17)\r\n      MID(4) = NEST(22)\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\nC\r\nC     FIGURE OUT PATH OF THE TRIPLE MULTIPLY AND THE NO. OF ROWS IN\r\nC     THE B-MATRIX (I.E. STRAIN-NODAL DISPLACEMENT MATRIX)\r\nC\r\nC     NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0\r\nC    1        .AND. DABS(MOMINR-1.0D0).LE.EPS1\r\nC\r\n      NORPTH = .FALSE.\r\nC\r\nC     DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS\r\nC\r\nC     IF (.NOT.BENDNG) GO TO 290\r\n      DO 210 I = 1,4\r\n      DO 200 J = 1,NNODE\r\n      JO = IORDER(J)\r\n      IF (I .NE. JO) GO TO 200\r\n      XA(I) = EGPDT(2,J)\r\n      YB(I) = EGPDT(3,J)\r\n      ZC(I) = EGPDT(4,J)\r\n      VNT(1,I) = EPNORM(2,J)\r\n      VNT(2,I) = EPNORM(3,J)\r\n      VNT(3,I) = EPNORM(4,J)\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\n      A = 0.5D0*DABS(XA(2)+XA(3)-XA(1)-XA(4))\r\n      B = 0.5D0*DABS(YB(4)+YB(3)-YB(1)-YB(2))\r\n      IF (A .GT. B) ASPECT = B/A\r\n      IF (A .LE. B) ASPECT = A/B\r\n      THLEN = AVGTHK/A\r\n      IF (A .LT. B) THLEN = AVGTHK/B\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     PRELIMINARY FACTORS\r\nC\r\n      ASPCTX = A/B\r\n      ASPCTY = B/A\r\n      CSUBB4 = 1.6D0\r\n      CSUBT  = 71.D0*ASPECT*(1.6D0/CSUBB4)*(1.D0+415.D0*ASPECT*THLEN**2)\r\n      CSUBTX = CSUBT*ASPCTX**2\r\n      CSUBTY = CSUBT*ASPCTY**2\r\nC\r\n      I  = 2\r\n      J  = 2\r\n      JJ = 3\r\n      SINEAX = 0.0D0\r\n      SINEAY = 0.0D0\r\n  220 CALL DAXB (CURVTR(1,I-1),CURVTR(1,I),CURVE)\r\n      CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3)\r\n      IF (CC .LT. EPS1) GO TO 230\r\n      CC = 0.5D0*DSQRT(CC)\r\n  230 SINEAX = SINEAX + CC\r\n      IF (I .NE. 2) GO TO 240\r\n      I = 4\r\n      GO TO 220\r\nC\r\n  240 CALL DAXB (CURVTR(1,J),CURVTR(1,JJ),CURVE)\r\n      CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3)\r\n      IF (CC .LT. EPS1) GO TO 250\r\n      CC = 0.5D0*DSQRT(CC)\r\n  250 SINEAY = SINEAY+CC\r\n      IF (J .NE. 2) GO TO 260\r\n      J  = 1\r\n      JJ = 4\r\n      GO TO 240\r\n  260 CC = 28.0D0\r\n      SINEAX = CC*SINEAX + 1.0D0\r\n      SINEAY = CC*SINEAY + 1.0D0\r\n      IF (SINEAX .GT. SINEAY) SINEAY = SINEAX\r\n      IF (SINEAY .GT. SINEAX) SINEAX = SINEAY\r\nC\r\nC     IRREGULAR 4-NODE CODE-  GEOMETRIC VARIABLES\r\nC\r\nC     CALCULATE AND NORMALIZE- UNIT EDGE VECTORS, UNIT NORMAL VECTORS\r\nC\r\n      DO 270 I = 1,4\r\n      J = I + 1\r\n      IF (J .EQ. 5) J = 1\r\n      UEV(1,I) = XA(J) - XA(I)\r\n      UEV(2,I) = YB(J) - YB(I)\r\n      UEV(3,I) = ZC(J) - ZC(I)\r\n      UNV(1,I) = (VNT(1,J) + VNT(1,I))*0.50D0\r\n      UNV(2,I) = (VNT(2,J) + VNT(2,I))*0.50D0\r\n      UNV(3,I) = (VNT(3,J) + VNT(3,I))*0.50D0\r\n      CC = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2\r\n      IF (CC .EQ. 0.D0) GO TO 1700\r\n      IF (CC .GE. EPS1) CC = DSQRT(CC)\r\n      EDGEL(I) = CC\r\n      UEV(1,I) = UEV(1,I)/CC\r\n      UEV(2,I) = UEV(2,I)/CC\r\n      UEV(3,I) = UEV(3,I)/CC\r\n      CC = UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2\r\n      IF (CC .EQ. 0.D0) GO TO 1700\r\n      IF (CC .GE. EPS1) CC = DSQRT(CC)\r\n      UNV(1,I) = UNV(1,I)/CC\r\n      UNV(2,I) = UNV(2,I)/CC\r\n      UNV(3,I) = UNV(3,I)/CC\r\n  270 CONTINUE\r\nC\r\nC     CALCULATE INTERNAL NODAL ANGLES\r\nC\r\n      DO 280 I = 1,4\r\n      J = I - 1\r\n      IF (J .EQ. 0) J = 4\r\n      ANGLEI(I)=-UEV(1,I)*UEV(1,J) -UEV(2,I)*UEV(2,J) -UEV(3,I)*UEV(3,J)\r\n      IF (DABS(ANGLEI(I)) .LT .EPS1) ANGLEI(I) = 0.0D0\r\n  280 CONTINUE\r\nC\r\nC     SET THE INTEGRATION POINTS\r\nC\r\nC 290 CONTINUE\r\n      PTINT(1)  = -CONST\r\n      PTINT(2)  =  CONST\r\nC     PTINTZ(1) = -CONST\r\nC     PTINTZ(2) =  CONST\r\nC     JZTA = 2\r\nC     IF (.NOT.BENDNG) PTINTZ(1) = 0.0D0\r\nC     IF (.NOT.BENDNG) JZTA = 1\r\n      IF (HEAT) GO TO 1790\r\nC\r\nC     TRIPLE LOOP TO SAVE THE LAST 2 ROWS OF B-MATRIX AT 2X2X2\r\nC     INTEGRATION POINTS FOR LATER MANIPULATION.\r\nC\r\n      IF (KGG1 .EQ. 0) GO TO 400\r\nC     IF (.NOT.BENDNG) GO TO 360\r\n      I  = 1\r\n      KPT= 1\r\nC\r\n      DO 350 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\nC\r\n      DO 350 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\nC\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\nC\r\nC     IRREGULAR 4-NODE CODE-  CALCULATION OF NODAL EDGE SHEARS\r\nC                             AT THIS INTEGRATION POINT\r\nC\r\n      DO 310 IJ = 1,4\r\n      II = IJ - 1\r\n      IF (II .EQ. 0) II = 4\r\n      IK = IJ + 1\r\n      IF (IK .EQ. 5) IK = 1\r\n      AA = SHP(IJ)\r\n      BB = SHP(IK)\r\nC\r\n      DO 300 IS = 1,3\r\n      EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/\r\n     1                (1.0D0-ANGLEI(IJ)*ANGLEI(IJ))\r\n     2              + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/\r\n     3                (1.0D0-ANGLEI(IK)*ANGLEI(IK))\r\n  300 CONTINUE\r\n  310 CONTINUE\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 320 IS = 1,4\r\n      TMPSHP(IS  ) =  SHP(IS  )\r\n      DSHPTP(IS  ) = DSHP(IS  )\r\n  320 DSHPTP(IS+4) = DSHP(IS+4)\r\n      DO 330 IS = 1,4\r\n      KK = IORDER(IS)\r\n      SHP (IS  ) = TMPSHP(KK  )\r\n      DSHP(IS  ) = DSHPTP(KK  )\r\n  330 DSHP(IS+4) = DSHPTP(KK+4)\r\nC\r\n      DO 340 IZTA = 1,2\r\n      ZTA = PTINT(IZTA)\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      HZTA = ZTA/2.0D0\r\n      CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION\r\nC     BETWEEN INVER AND GMMAT.\r\nC\r\n      CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGD TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 1. IT SIGNALS SAVING THE LAST 2 ROWS.\r\nC\r\n      ROWFLG = 1\r\n      CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMAT1(KPT))\r\n  340 KPT = KPT + ND2\r\n  350 CONTINUE\r\nC\r\nC     IN PLANE SHEAR REDUCTION\r\nC\r\nC     IF (.NOT.MEMBRN) GO TO 400\r\nC 360 CONTINUE\r\n      XI  = 0.0D0\r\n      ETA = 0.0D0\r\n      KPT = 1\r\n      KPNT= ND2\r\nC     IF (NORPTH) KPNT = NDOF\r\nC\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 370 I = 1,4\r\n      TMPSHP(I  ) =  SHP(I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  370 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 380 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP(I   ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  380 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\nC     DO 390 IZTA = 1,JZTA\r\n      DO 390 IZTA = 1,2\r\nC     ZTA  = PTINTZ(IZTA)\r\n      ZTA  = PTINT(IZTA)\r\n      HZTA = ZTA/2.0D0\r\n      CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\n      CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGD TO GET B-MATRIX\r\nC     SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT\r\nC     THE TWO INTEGRATION POINTS.\r\nC\r\n      ROWFLG = 2\r\n      CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT))\r\n  390 KPT = KPT + KPNT\r\nC\r\nC     SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSD.\r\nC     NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH\r\nC     WILL BE SET IN POSITION LATER.\r\nC\r\n  400 DO 410 IEC = 2,4\r\n  410 ECPT(IEC) = 0.0\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC\r\nC     EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM\r\nC     THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE\r\nC     SYSTEM. THESE STEPS ARE TO BE FOLLOWED-\r\nC\r\nC     1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED\r\nC        TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION).\r\nC        TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN\r\nC        TEM-MATRIX.\r\nC        THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED\r\nC        UPON WHICH STEP 2 IS TAKEN.\r\nC\r\nC     2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRD IS CALLED\r\nC        TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION).\r\nC\r\nC                          T\r\nC     3-           G  =   U   G   U\r\nC                   E          M\r\nC\r\nC\r\n      IF (NEST(11) .EQ. 0) GO TO 470\r\n      MCSID = NEST(10)\r\nC\r\nC     CALCULATE TEM-MATRIX USING MCSID\r\nC\r\n  420 IF (MCSID .GT. 0) GO TO 440\r\n      DO 430 I = 1,9\r\n  430 TEM(I) = TEB(I)\r\n      GO TO 450\r\n  440 NECPT(1) = MCSID\r\n      CALL TRANSD (ECPT,TBM)\r\nC\r\nC     MULTIPLY TEB AND TBM MATRICES\r\nC\r\n      CALL GMMATD (TEB,3,3,0,TBM,3,3,0,TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n  450 CONTINUE\r\n      XM = TEM(1)\r\n      YM = TEM(4)\r\n      IF (DABS(XM).GT.EPS1 .OR. DABS(YM).GT.EPS1) GO TO 460\r\n      NEST(2) = MCSID\r\n      J = 231\r\n      GO TO 1720\r\n  460 THETAM = DATAN2(YM,XM)\r\n      GO TO 480\r\nC\r\nC     CALCULATE TEM-MATRIX USING THETAM\r\nC\r\n  470 THETAM = DBLE(EST(10))*DEGRAD\r\nC     IF (THETAM .EQ. 0.0D0) GO TO 490\r\n      IF (THETAM .EQ. 0.0D0) GO TO 490\r\n  480 CALL ANGTRD (THETAM,1,TUM)\r\n      CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      GO TO 510\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM\r\nC     ON THE PSHELL CARD.\r\nC\r\n  490 IF (NEST(24) .EQ. 0) GO TO 500\r\n      MCSID = NEST(23)\r\n      GO TO 420\r\nC\r\n  500 THETAM = DBLE(EST(23))*DEGRAD\r\n      GO TO 480\r\nC\r\n  510 CONTINUE\r\n      IF (HEAT) GO TO 1810\r\nC\r\n      DO 600 M = 1,36\r\n  600 GI(M)  = 0.0D0\r\n      SINMAT = 0.\r\n      COSMAT = 0.\r\n      IGOBK  = 0\r\nC\r\nC     BEGIN M-LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID\r\nC\r\n      M = 0\r\n  610 M = M + 1\r\n      IF (M .GT. 4) GO TO 790\r\n      IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 800\r\n      MATID = MID(M)\r\n      IF (MATID.EQ.0 .AND. M.NE.3) GO TO 610\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 610\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2)\r\nC\r\n      IF (M-1) 640,630,620\r\n  620 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 640\r\n  630 CALL MAT (ELID)\r\n  640 CONTINUE\r\nC\r\n      IF (MEMBRN .AND. M.EQ.1) RHO = MATOUT(7)\r\n      RHOX = RHO\r\n      IF (RHO .EQ. 0.0D0) RHOX = 1.0D0\r\n      IF (KGG1 .EQ.    0) GO TO 610\r\nC\r\n      IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 650\r\n      GSUBE = MATOUT(12)\r\n      IF (MATSET .EQ. 8.) GSUBE = MATOUT(16)\r\n  650 CONTINUE\r\nC\r\n      IF (M.EQ.2 .AND. NORPTH) GO TO 670\r\n      COEFF  = 1.0D0\r\n      LPOINT = (M-1)*9 + 1\r\nC\r\n      CALL Q4GMGD (M,COEFF,GI(LPOINT))\r\nC\r\nCWKBDB 11/93 SPR93020\r\nC      IF (M .GT. 0) GO TO 670\r\nC      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660\r\nC      NEST(2) = MATID\r\nC      J = 232\r\nC      GO TO 1720\r\nC\r\nC  660 M = -M\r\nC ALREADY DELETED BEFORE SPR93020 670 IF (.NOT.BENDNG) GO TO 760\r\nC  670 CONTINUE\r\nC      MTYPE = IFIX(MATSET+.05) - 2\r\nC      IF (NOCSUB) GO TO 760\r\nC      GO TO (760,680,720,760), M\r\nC\r\nC  680 IF (MTYPE) 690,700,710\r\nC  690 ENORX = MATOUT(16)\r\nC      ENORY = MATOUT(16)\r\nC      GO TO 760\r\nC  700 ENORX = MATOUT(1)\r\nC      ENORY = MATOUT(4)\r\nC      GO TO 760\r\nC  710 ENORX = MATOUT(1)\r\nC      ENORY = MATOUT(3)\r\nC      GO TO 760\r\nC\r\nC  720 IF (MTYPE) 730,740,750\r\nC  730 GNORX = MATOUT(6)\r\nC      GNORY = MATOUT(6)\r\nC      GO TO 760\r\nC\r\nC  740 GNORX = MATOUT(1)\r\nC      GNORY = MATOUT(4)\r\nC      GO TO 760\r\nC\r\nC  750 GNORX = MATOUT(6)\r\nC      GNORY = MATOUT(5)\r\nC      IF (GNORX .EQ. 0.0D0) GNORX = MATOUT(4)\r\nC      IF (GNORY .EQ. 0.0D0) GNORY = MATOUT(4)\r\nC  760 CONTINUE\r\nC\r\nCWKBDE 11/93 SPR93020\r\nC     IF (MATSET .EQ. 1.0) GO TO 610\r\n      IF (M .EQ. 3) GO TO 770\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(4)*TEM(4)\r\n      U(3) = TEM(1)*TEM(4)\r\n      U(4) = TEM(2)*TEM(2)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(2)*TEM(5)\r\n      U(7) = TEM(1)*TEM(2)*2.0D0\r\n      U(8) = TEM(4)*TEM(5)*2.0D0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L=3\r\n      GO TO 780\r\nC\r\n  770 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8)\r\n      U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3)\r\n      U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6)\r\n      U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7)\r\n      L    = 2\r\nC\r\n  780 CALL GMMATD (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1))\r\n      CALL GMMATD (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT))\r\nCWKBNB 11/93 SPR93020\r\n      IF (M .GT. 0) GO TO 670\r\n      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660\r\n      NEST(2) = MATID\r\n      J = 232\r\n      GO TO 1720\r\n  660 M = -M\r\n  670 CONTINUE\r\n      MTYPE = IFIX(MATSET+.05) - 2\r\n      IF (NOCSUB) GO TO 760\r\n      GO TO (760,680,720,760), M\r\nCWKBNE 11/93 SPR93020\r\nCWKBNB 2/94 SPR93020\r\n  680 IF ( MTYPE ) 690, 700, 710\r\n  690 ENORX = MATOUT(16)\r\n      ENORY = MATOUT(16)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 ) \r\n      GO TO 760\r\n  700 ENORX = MATOUT(1)\r\n      ENORY = MATOUT(4)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 760\r\n  710 ENORX = MATOUT(1)\r\n      ENORY = MATOUT(3)\r\n      DNUX  = GI(LPOINT+1)/GI(LPOINT)\r\n      DNUY  = GI(LPOINT+3)/GI(LPOINT+4)\r\nCWKBNE 2/94 SPR93020\r\n      GO TO 760\r\n  720 IF ( MTYPE ) 730, 740, 750\r\n  730 GNORX = MATOUT(6)\r\n      GNORY = MATOUT(6)\r\n      GO TO 760\r\n  740 GNORX = MATOUT(1)\r\n      GNORY = MATOUT(4)\r\n      GO TO 760\r\n  750 GNORX = MATOUT(6)\r\n      GNORY = MATOUT(5)\r\n      IF ( GNORX .EQ. 0.0D0 ) GNORX = MATOUT(4)\r\n      IF ( GNORY .EQ. 0.0D0 ) GNORY = MATOUT(4)\r\n  760 CONTINUE\r\n      GO TO 610\r\nC\r\nC     END OF M-LOOP\r\nC\r\n  790 CONTINUE\r\n      IF (MID(3) .LT. 100000000) GO TO 800\r\n      IF (GI(19).NE.0.D0 .OR. GI(20).NE.0.D0 .OR. GI(21).NE.0.D0 .OR.\r\n     1    GI(22).NE.0.D0) GO TO 800\r\n      IGOBK = 1\r\n      M = 2\r\n      MID(3) = MID(2)\r\n      GO TO 610\r\n  800 CONTINUE\r\nC\r\n      NOCSUB = ENORX.EQ.0.0D0 .OR. ENORY.EQ.0.0D0 .OR.\r\n     1         GNORX.EQ.0.0D0 .OR. GNORY.EQ.0.0D0 .OR.\r\n     2        MOMINR.EQ.0.0D0\r\nC\r\n      MATTYP = IFIX(MATSET+.05)\r\nC\r\nC     IF MGG1 IS NON-ZERO AND RHO IS GREATER THAN 0.0,\r\nC     THEN COMPUTE THE MASS MATRIX.\r\nC\r\n      IF (MGG1 .EQ. 0) GO TO 810\r\n      IF (JCORED+144 .LE. NCORED) GO TO 810\r\n  810 CONTINUE\r\nC\r\n      LIMIT = JCORED + NDOF*NDOF\r\n      DO 820 I = JCORED,LIMIT\r\n  820 AKGG(I)  = 0.0D0\r\n      DO 830 I = 1,NODESQ\r\n      XMASS(I) = 0.0D0\r\n  830 XMTMP(I) = 0.0D0\r\n      AREA     = 0.0D0\r\n      VOL      = 0.0D0\r\nC\r\nC\r\nC     HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 1310 AND 1300 TO\r\nC     GAUSS INTEGRATE FOR THE ELEMENT MASS AND STIFFNESS MATRICES.\r\nC     -----------------------------------------------------------\r\nC\r\n      DO 1310 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\n      DO 1310 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 900 I = 1,4\r\n      TMPSHP(I  ) =  SHP(I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  900 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 910 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  910 DSHP(I+4) = DSHPTP(KK+4)\r\n      CALL GMMATD (SHP,1,NNODE,0,DGPTH,1,NNODE,1,THK)\r\n      REALI = MOMINR*THK*THK*THK/12.0D0\r\nC     REALI =        THK*THK*THK/12.0D0\r\n      TSI   = TS*THK\r\nC\r\nC     SKIP MASS CALCULATIONS IF NOT REQUESTED\r\nC\r\n      IF (NSM .NE.  0.0) GO TO 920\r\n      IF (MGG1 .EQ.   0) GO TO 1020\r\n      IF (RHO .EQ. 0.D0) GO TO 1020\r\n      IF (RHO .GT. 0.D0) GO TO 920\r\n      WRITE (NOUT,2030) UWM,RHO,MID(1),NEST(1)\r\nC     NOGO = .TRUE.\r\nC     GO TO 1710\r\nC\r\nC     COMPUTE S AND T VECTORS AT THE MID-SURFACE\r\nC     FOR MASS CALCULATIONS ONLY.\r\nC\r\n  920 CONTINUE\r\n      DO 930 I = 1,2\r\n      IPOINT = 4*(I-1)\r\n      DO 930 J = 1,3\r\n      V(I,J) = 0.0D0\r\n      DO 930 K = 1,NNODE\r\n      KTEMP = K + IPOINT\r\n      JTEMP = J + 1\r\n      V(I,J)= V(I,J) + DSHP(KTEMP)*BGPDT(JTEMP,K)\r\n  930 CONTINUE\r\nC\r\nC     COMPUTE S CROSS T AT THE MID-SURFACE FOR MASS CALCULATIONS.\r\nC\r\n      V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3)\r\n      V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1)\r\n      V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2)\r\n      AREA2  = V(3,1)*V(3,1) + V(3,2)*V(3,2) + V(3,3)*V(3,3)\r\nC\r\nC     AREA2 = NORM OF S CROSS T IS THE AREA OF THE ELEMENT\r\nC     AS COMPUTED AT THIS GAUSS POINT.\r\nC\r\nCWKBR 11/93 SPR 93015 IF (AREA2 .LT. EPS1) GO TO 1700\r\n      IF ( AREA2 .LE. 0.0 ) GO TO 1700\r\nC\r\n      AREA2 = DSQRT(AREA2)\r\n      AREA  = AREA + AREA2\r\n      VOLI  = AREA2*THK\r\n      VOL   = VOL + VOLI\r\nC\r\n      IF (MGG1 .EQ.   0) GO TO 1020\r\n      IF (CPMASS .GT. 0) GO TO 1000\r\n      I4 = 1\r\n      DO 960 J4 = 1,NNODE\r\n      XMASS(I4) = XMASS(I4) + VOLI*RHOX*SHP(J4)\r\n  960 I4 = I4 + NNODE + 1\r\n      GO TO 1020\r\nC\r\nC     COMPUTE CONSISTENT MASS MATRIX\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE MASS MATRIX\r\nC     FROM THIS INTEGRATION POINT.\r\nC\r\n 1000 CALL GMMATD (SHP,1,NNODE,1,SHP,1,NNODE,0,XMTMP)\r\nC\r\nC     ADD MASS CONTRIBUTION FROM THIS INTEGRATION POINT\r\nC     TO THE ELEMENT MASS MATRIX.\r\nC\r\n      DO 1010 I = 1,NODESQ\r\n 1010 XMASS(I) = XMASS(I) + VOLI*RHOX*XMTMP(I)\r\nC\r\n 1020 IF (KGG1 .EQ. 0) GO TO 1330\r\nC\r\nC     BEGIN STIFFNESS COMPUTATIONS\r\nC\r\nC     SET DEFAULT VALUES OF CSUBB FACTORS\r\nC\r\n      SFCTY1 = 1.0D0\r\n      SFCTY2 = 1.0D0\r\n      SFCTX1 = 1.0D0\r\n      SFCTX2 = 1.0D0\r\n      TSMFX  = 1.0D0\r\n      TSMFY  = 1.0D0\r\n      IF (NOCSUB) GO TO 1090\r\n      IF (.NOT.BENDNG) GO TO 1090\r\nC      NUNORX = MOMINR*ENORX/(2.0D0*GNORX) - 1.0D0\r\nC      NUNORY = MOMINR*ENORY/(2.0D0*GNORY) - 1.0D0\r\nCWKBNB 2/94 SPR93020\r\n      NUNORX = MOMINR*ENORX/(2.0D0*GNORX) - 1.0D0\r\n      NUNORY = MOMINR*ENORY/(2.0D0*GNORY) - 1.0D0\r\nCWKBNE 2/94 SPR93020\r\nC\r\nC     NOTE- THE ABOVE EXPRESSIONS FOR NUNORX AND NUNORY WERE MODIFIED\r\nC           BY G.CHAN/UNISYS    1988\r\nC\r\nCWKBDB 2/94 SPR93020\r\nC      EIX = MOMINR*ENORX\r\nC      EIY = MOMINR*ENORY\r\nC      TGX = 2.0D0*GNORX\r\nC      TGY = 2.0D0*GNORY\r\nC      NUNORX = EIX/TGX - 1.0D0\r\nC      NUNORY = EIY/TGY - 1.0D0\r\nC      IF (EIX .GT. TGX) NUNORX= 1.0D0 - TGX/EIX\r\nC      IF (EIY .GT. TGY) NUNORY= 1.0D0 - TGY/EIY\r\nCWKBDE 2/94 SPR93020\r\n      IF (NUNORX .GT. 0.999999D0) NUNORX = 0.999999D0\r\n      IF (NUNORY .GT. 0.999999D0) NUNORY = 0.999999D0\r\nCWKBNB 2/94 SPR93020\r\n      IF ( NUNORX .LE. 0. ) NUNORX = DNUX\r\n      IF ( NUNORY .LE. 0. ) NUNORY = DNUY\r\nCWKBNE 2/94 SPR93020\r\nC     IF (NUNORX .GT. .49D0) NUNORX = 0.49D0\r\nC     IF (NUNORY .GT. .49D0) NUNORY = 0.49D0\r\n      CC = ASPECT\r\nC\r\nC     NOTE- THE FOLLOWING 2 FORMULATIONS WERE PUT IN ON 4/30/85 IN\r\nC           CONJUNCTION WITH THE OUT-OF-PLANE SHEAR CORRECTION BASED\r\nC           ON T.J.R HUGHES. THE FLEXIBLE SOLUTION PROVIDES MORE\r\nC           ACCURATE RESULTS FOR PLATES, ALTHOUGH IT MIGHT CONVERGE\r\nC           SLOWLY. THE STIFFER SOLUTION (COMMENTED OUT) IS O.K. FOR\r\nC           PLATES AND SHOULD HAVE A BETTER CONVERGENCE.\r\nC\r\nC           THEY WERE MODIFIED ON 5/3/85\r\nC\r\nC     4-NODE CSUBB FORMULATION AS OF 5/3/85 (FLEXIBLE SOLUTION)\r\nC     REPLACES THE ONE COMMENTED OUT IMMEDIATELY ABOVE\r\nC\r\n      W1 = 1.0D0 + 4400.0D0*THLEN*THLEN*THLEN*THLEN\r\n      IF (CC .LT. 0.2D0) GO TO 1030\r\n      DSUB4 = (18.375D0-11.875D0*CC)*W1\r\n      GO TO 1040\r\n 1030 DSUB4 = (159.85D0*CC-15.97D0)*W1\r\nC\r\nC     4-NODE CSUBB FORMULATION AS OF 5/3/85 (STIFFER SOLUTION)\r\nC\r\nC     W1 = 1.0D0 + 2.5D0*THLEN + 1.0D04*THLEN**5\r\nC     IF (CC .LT. 0.2D0) GO TO 1030\r\nC     DSUB4 = 18.0D0*W1\r\nC     GO TO 1040\r\nC1030 DSUB4 = (179.85D0*CC-17.97D0)*W1\r\n 1040 IF (DSUB4 .LT. .01D0) DSUB4 = 0.01D0\r\n      IF (DSUB4 .GT. 2.0D3) DSUB4 = 2000.0D0\r\n      DSUB  = DSUB4\r\n      COEFT = CONST\r\n      AX    = A\r\n      IF (ETA .LT .0.0D0) AX = A + COEFT*(XA(2)-XA(1)-A)\r\n      IF (ETA .GT. 0.0D0) AX = A + COEFT*(XA(3)-XA(4)-A)\r\n      PSIINX = 20.0D0*DSUB*REALI*SINEAX*(1.0D0+ASPECT*ASPECT)/\r\n     1         (TSI*(1.0D0-NUNORX)*AX*AX)\r\n      DSUB  = DSUB4\r\n      COEFT = CONST\r\n      BY    = B\r\n      IF (XI .LT. 0.0D0) BY = B + COEFT*(YB(4)-YB(1)-B)\r\n      IF (XI .GT. 0.0D0) BY = B + COEFT*(YB(3)-YB(2)-B)\r\n      PSIINY = 20.0D0*DSUB*REALI*SINEAY*(1.0D0+ASPECT*ASPECT)/\r\n     1         (TSI*(1.0D0-NUNORY)*BY*BY)\r\n      IF (.NOT.SHRFLX) GO TO 1050\r\n      TSMFX = PSIINX/(1.0D0+PSIINX)\r\n      TSMFY = PSIINY/(1.0D0+PSIINY)\r\n      GO TO 1060\r\n 1050 TSMFX = PSIINX\r\n      TSMFY = PSIINY\r\nC\r\n 1060 CONTINUE\r\n      IF (TSMFX .LE. 0.0D0) TSMFX = EPS1\r\n      IF (TSMFY .LE. 0.0D0) TSMFY = EPS1\r\nC\r\nC     FILL IN THE 7X7 MATERIAL PROPERTY MATRIX D FOR NORPTH\r\nC\r\n      IF (.NOT.NORPTH) GO TO 1090\r\n      DO 1070 IG = 1,7\r\n      DO 1070 JG = 1,7\r\n 1070 DFOUR(IG,JG) = 0.0D0\r\nC\r\n      DO 1080 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1080 JG = 1,3\r\n      JG1 = JG + IG1\r\n 1080 DFOUR(IG,JG) = GI(JG1)\r\n      GO TO 1150\r\nC\r\nC     FILL IN THE 10X10 G-MATRIX WHEN MID4 IS NOT PRESENT\r\nC\r\n 1090 DO 1100 IG = 1,10\r\n      DO 1100 JG = 1,10\r\n 1100 GFOUR(IG,JG) = 0.0D0\r\n      IF (MBCOUP) GO TO 1150\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1120\r\n      DO 1110 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1110 JG = 1,3\r\n      JG1 = JG + IG1\r\n 1110 GFOUR(IG,JG) = GI(JG1)\r\nC\r\n 1120 IF (.NOT.BENDNG) GO TO 1250\r\n      DO 1130 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 1130 JG = 4,6\r\n      JG2 = JG + IG2\r\n 1130 GFOUR(IG,JG) = GI(JG2)*MOMINR\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1150\r\n      DO 1140 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      KG  = IG + 3\r\n      DO 1140 JG = 1,3\r\n      JG1 = JG + IG1\r\n      LG  = JG + 3\r\n      GFOUR(IG,LG) = GI(JG1)\r\n 1140 GFOUR(KG,JG) = GI(JG1)\r\n 1150 CONTINUE\r\nC\r\nC     IRREGULAR 4-NODE CODE-  CALCULATION OF NODAL EDGE SHEARS\r\nC                             AT THIS INTEGRATION POINT\r\nC\r\n      DO 1210 IJ = 1,4\r\n      II = IJ - 1\r\n      IF (II .EQ. 0) II = 4\r\n      IK = IJ + 1\r\n      IF (IK .EQ. 5) IK = 1\r\nC\r\n      DO 1160 IR = 1,4\r\n      IF (IJ .NE. IORDER(IR)) GO TO 1160\r\n      IOJ = IR\r\n      GO TO 1170\r\n 1160 CONTINUE\r\n 1170 DO 1180 IR = 1,4\r\n      IF (IK .NE. IORDER(IR)) GO TO 1180\r\n      IOK = IR\r\n      GO TO 1190\r\n 1180 CONTINUE\r\n 1190 AA = SHP(IOJ)\r\n      BB = SHP(IOK)\r\nC\r\n      DO 1200 IS = 1,3\r\n      EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/\r\n     1                (1.0D0-ANGLEI(IJ)*ANGLEI(IJ))\r\n     2              + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/\r\n     3                (1.0D0-ANGLEI(IK)*ANGLEI(IK))\r\n 1200 CONTINUE\r\n 1210 CONTINUE\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     SET-UP OF EXPANDED SHEAR MATERIAL PROPERTY MATRICES (G OR D)\r\nC\r\n      CSUBX  = 20.0D0*REALI/(TSI*(1.0D0-NUNORX)*A*A)\r\n      CSUBY  = 20.0D0*REALI/(TSI*(1.0D0-NUNORY)*B*B)\r\n      SFCTR1 = CSUBB4*CSUBX\r\n      SFCTR2 = CSUBTX*CSUBX\r\n      IF (.NOT.SHRFLX) GO TO 1220\r\n      SFCTR1 = SFCTR1/(1.0D0+SFCTR1)\r\n      SFCTR2 = SFCTR2/(1.0D0+SFCTR2)\r\n 1220 CONTINUE\r\n      SFCTX1 = SFCTR1 + SFCTR2\r\n      SFCTX2 = SFCTR1 - SFCTR2\r\n      SFCTR1 = CSUBB4*CSUBY\r\n      SFCTR2 = CSUBTY*CSUBY\r\n      IF (.NOT.SHRFLX) GO TO 1230\r\n      SFCTR1 = SFCTR1/(1.0D0+SFCTR1)\r\n      SFCTR2 = SFCTR2/(1.0D0+SFCTR2)\r\n 1230 CONTINUE\r\n      SFCTY1 = SFCTR1 + SFCTR2\r\n      SFCTY2 = SFCTR1 - SFCTR2\r\nC\r\nC     FILL IN THE EXPANDED MATERIAL PROPERTY MATRIX\r\nC\r\n      IF (NORPTH) GO TO 1240\r\n      GFOUR( 7, 7) = 0.25D0*SFCTY1*TS*GI(19)\r\n      GFOUR( 8, 8) = 0.25D0*SFCTY1*TS*GI(19)\r\n      GFOUR( 8, 7) = 0.25D0*SFCTY2*TS*GI(19)\r\n      GFOUR( 7, 8) = GFOUR(8,7)\r\n      GFOUR( 9, 9) = 0.25D0*SFCTX1*TS*GI(22)\r\n      GFOUR(10,10) = 0.25D0*SFCTX1*TS*GI(22)\r\n      GFOUR(10, 9) = 0.25D0*SFCTX2*TS*GI(22)\r\n      GFOUR( 9,10) = GFOUR(10,9)\r\n      GFOUR( 7, 9) = DSQRT(TSMFX*TSMFY)*TS*GI(20)\r\n      GFOUR( 9, 7) = GFOUR(7,9)\r\n      GO TO 1250\r\nC\r\n 1240 DFOUR(4,4) = 0.25D0*SFCTY1*TS*GI(19)\r\n      DFOUR(5,5) = 0.25D0*SFCTY1*TS*GI(19)\r\n      DFOUR(5,4) = 0.25D0*SFCTY2*TS*GI(19)\r\n      DFOUR(4,5) = DFOUR(5,4)\r\n      DFOUR(6,6) = 0.25D0*SFCTX1*TS*GI(22)\r\n      DFOUR(7,7) = 0.25D0*SFCTX1*TS*GI(22)\r\n      DFOUR(7,6) = 0.25D0*SFCTX2*TS*GI(22)\r\n      DFOUR(6,7) = DFOUR(7,6)\r\n      DFOUR(4,6) = DSQRT(TSMFX*TSMFY)*TS*GI(20)\r\n      DFOUR(6,4) = DFOUR(4,6)\r\n 1250 CONTINUE\r\nC\r\nC     DO 1300 IZTA = 1,JZTA\r\n      DO 1300 IZTA = 1,2\r\n      ZTA  = PTINT(IZTA)\r\n      IBOT = (IZTA-1)*ND2\r\nC\r\n      HZTA = ZTA/2.0D0\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     SET-UP OF POINTERS TO THE SAVED B-MATRIX\r\nC\r\n      IPTX1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT\r\n      IPTX2 = ((IXSI-1)*2+2-IETA)*2*ND2 + IBOT\r\n      IPTY1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT\r\n      IPTY2 = ((2-IXSI)*2+IETA-1)*2*ND2 + IBOT\r\nC     IF (NORPTH) IBOT = IBOT/2\r\nC\r\nC     FILL IN THE 10X10 G-MATRIX IF MID4 IS PRESENT\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 1290\r\n      DO 1260 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1260 JG = 1,3\r\n      JG1 = JG  + IG1\r\n      JG4 = JG1 + 27\r\n 1260 GFOUR(IG,JG) = GI(JG1)\r\nC\r\n      DO 1270 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 1270 JG = 4,6\r\n      JG2 = JG  + IG2\r\n      JG4 = JG2 + 18\r\n 1270 GFOUR(IG,JG) = GI(JG2)*MOMINR\r\nC\r\n      DO 1280 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      KG  = IG  + 3\r\n      DO 1280 JG = 1,3\r\n      JG4 = JG  + IG4\r\n      JG1 = JG4 - 27\r\n      LG  = JG  + 3\r\n      GFOUR(IG,LG) = -GI(JG4)*ZTA*6.0D0+GI(JG1)\r\n 1280 GFOUR(KG,JG) = -GI(JG4)*ZTA*6.0D0+GI(JG1)\r\n 1290 CONTINUE\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION\r\nC     BETWEEN INVER AND GMMAT.\r\nC\r\n      CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGD TO GET B-MATRIX. SET THE ROW FLAG TO 3.\r\nC     IT WILL RETURN THE FIRST 6 ROWS OF B-MATRIX.\r\nC\r\n      ROWFLG = 3\r\n      CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BFOUR(1))\r\nC\r\nC     REPLACE ABOVE Q4BMGD BY THE FOLLOWING LINE IF TRPLMD IS NOT USED\r\nC     CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX)\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE -\r\nC     SET-UP OF B-MATRIX AND TRIPLE MULTIPLY\r\nC\r\nC\r\n      CALL TRPLMD (GFOUR,DFOUR,BFOUR,BMAT1,XYBMAT,MATTYP,JCORED,DETJ)\r\nC     (TRPLMD CAN BE REPLACED BY NEXT 40 (APROX.) LINES)\r\nC\r\nC     ND63 = ND6\r\nC     ND74 = ND7\r\nC     IF (.NOT.NORPTH) GO TO 1291\r\nC     ND63 = ND3\r\nC     ND74 = ND4\r\nC1291 DO 1292 IX = 1,NDOF\r\nC     BFOUR(IX) = BMATRX(IX)\r\nC     BFOUR(IX+NDOF) = BMATRX(IX+NDOF)\r\nC     BFOUR(IX+ND2 ) = XYBMAT(IX+IBOT)\r\nC     BFOUR(IX+ND5 ) = XYBMAT(IX+IBOT+NDOF)\r\nC     BFOUR(IX+ND63) = BMAT1(IX+IPTY1)\r\nC     BFOUR(IX+ND74) = BMAT1(IX+IPTY2)\r\nC     BFOUR(IX+ND74+NDOF) = BMAT1(IX+IPTX1+NDOF)\r\nC1292 BFOUR(IX+ND74+ND2 ) = BMAT1(IX+IPTX2+NDOF)\r\nC\r\nC     IF (NORPTH) GO TO 1294\r\nC     DO 1293 IX = 1,NDOF\r\nC     BFOUR(IX+ND3) = BMATRX(IX+ND3)\r\nC     BFOUR(IX+ND4) = BMATRX(IX+ND4)\r\nC1293 CONTINUE\r\nC     NNX = 10\r\nC     CALL GMMATD (GFOUR,NNX,NNX,0,BFOUR,NNX,NDOF,0,STRESR)\r\nC     GO TO 1295\r\nC\r\nC1294 NNX = 7\r\nC     CALL GMMATD (DFOUR,NNX,NNX,0,BFOUR,NNX,NDOF,0,STRESR)\r\nC1295 NNY = NNX*NDOF\r\nC     DO 1296 KBAR = 1,NNY\r\nC1296 BFOUR(KBAR) = BFOUR(KBAR)*DETJ\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS GAUSS\r\nC     INTEGRATION POINT.  NOTE THAT THE -1 IN THE GMMATD CALL KEEPS A\r\nC     RUNNING SUM ON AKGG.\r\nC\r\nC     CALL GMMATD (BFOUR,NNX,NDOF,-1,STRESR,NNX,NDOF,0,AKGG(JCORED))\r\nC\r\n 1300 CONTINUE\r\n 1310 CONTINUE\r\nC\r\nC     EQUALIZE THE OFF- DIAGNOAL TERMS TO GUARANTEE PERFECT SYMMETRIC\r\nC     MATRIX IF NO DAMPING INVLOVED\r\nC\r\n      IF (GSUBE .NE. 0.0) GO TO 1330\r\n      IJ = JCORED - 1\r\n      NDOFM1 = NDOF - 1\r\n      DO 1320 II = 1,NDOFM1\r\n      IP1 = II + 1\r\n      IM1 = (II-1)*NDOF + IJ\r\n      DO 1320 JJ = IP1,NDOF\r\n      I = IM1 + JJ\r\n      J = (JJ-1)*NDOF + II + IJ\r\n      TEMP = (AKGG(I) + AKGG(J))*.5D0\r\n      IF (DABS(TEMP) .LT. 1.0D-17) TEMP = 0.0D0\r\n      AKGG(I) = TEMP\r\n      AKGG(J) = TEMP\r\n 1320 CONTINUE\r\nC\r\nC     END OF STIFFNESS LOOP\r\nC\r\nC     ADD NON-STRUCTURAL MASS\r\nC\r\n 1330 CONTINUE\r\n      IF (MGG1 .EQ. 0) GO TO 1410\r\n      IF (RHO.EQ.0.D0 .AND. NSM.EQ.0.0) GO TO 1410\r\nC     IF (CPMASS .GT. 0) GO TO 1410\r\n      IF (NSM .EQ.  0.0) GO TO 1410\r\n      IF (VOL.EQ.0.D0 .OR. RHOX.EQ.0.D0) WRITE (NOUT,2060) SFM,ELID,\r\n     1                                   AREA,VOL,RHOX,MGG1,KGG1\r\n      FACTOR = (VOL*RHO+NSM*AREA)/(VOL*RHOX)\r\n      DO 1400 I = 1,NODESQ\r\n 1400 XMASS(I) = XMASS(I)*FACTOR\r\n 1410 CONTINUE\r\nC\r\nC     PICK UP THE GLOBAL TO BASIC TRANSFORMATIONS FROM THE CSTM.\r\nC\r\n      DO 1412 I = 1,36\r\n 1412 TRANS(I)  = 0.0D0\r\nC     DO 1414 I = 2,8\r\nC1414 TRANS1(I) = 0.0D0\r\nC     TRANS1(1) = 1.0D0\r\nC     TRANS1(5) = 1.0D0\r\nC     TRANS1(9) = 1.0D0\r\nC\r\n      DO 1450 I = 1,NNODE\r\n      NOTRAN(I) = 0\r\n      IPOINT = 9*(I-1) + 1\r\n      IF (IGPDT(1,I) .LE. 0) GO TO 1420\r\n      IGPTH(1) = IGPDT(1,I)\r\n      GPTH (2) = BGPDT(2,I)\r\n      GPTH (3) = BGPDT(3,I)\r\n      GPTH (4) = BGPDT(4,I)\r\nC\r\nC     NOTE THAT THE 6X6 TRANSFORMATION WHICH WILL BE USED LATER\r\nC     IN THE TRIPLE MULTIPLICATION TO TRANSFORM THE ELEMENT\r\nC     STIFFNESS MATRIX FROM BASIC TO GLOBAL COORDINATES, IS BUILT\r\nC     UPON THE 3X3 TRANSFORMATION FROM GLOBAL TO BASIC TBG-MATRIX.\r\nC     THIS IS DUE TO THE DIFFERENCE IN TRANSFORMATION OF ARRAYS\r\nC     AND MATRICES.\r\nC\r\n      CALL TRANSD (GPTH,TBG)\r\n      CALL GMMATD (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT))\r\n      GO TO 1450\r\nC\r\n 1420 IF (IDENTT.NE.1 .OR. OFFSET.NE.0.0D0) GO TO 1430\r\n      NOTRAN(I) = 1\r\n      GO TO 1450\r\nC\r\n 1430 DO 1440 J = 1,9\r\n 1440 TRANS(IPOINT+J-1) = TEB(J)\r\n 1450 CONTINUE\r\nC\r\nC\r\nC     HERE WE SHIP OUT THE STIFFNESS AND DAMPING MATRICES.\r\nC     ----------------------------------------------------\r\nC\r\n      IF (KGG1 .EQ. 0) GO TO 1600\r\nC\r\nC     SET UP I-LOOP TO DUMP OUT BASIC TO GLOBAL TRANSFORMED, NODAL\r\nC     PARTITIONED (6 D.O.F. PER NODE) COLUMNS OF THE ELEM. STIFFNESS.\r\nC\r\nC     THIS MEANS WE ARE SENDING TO EMGOUT 6 COLUMNS OF THE ELEMENT\r\nC     STIFFNESS MATRIX AT A TIME.  EACH BUNCH OF 6 COLUMNS CORRESPOND\r\nC     TO ONE PARTICULAR NODE OF THE ELEMENT.  FOR THE MASS MATRIX, WE\r\nC     ONLY SEND 3 COLUMNS PER NODE TO EMGOUT SINCE THE OTHER 3 D.O.F.\r\nC     ARE ZERO ANYWAY.  THE CODE WORD (DICT(4)) TELLS EMGOUT WHICH\r\nC     COLUMNS ARE THE NON ZERO ONES THAT WE ARE SENDING. (SEE SECTION\r\nC     6.8.3.5.1 OF THE PROGRAMMER MANUAL)\r\nC\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 63\r\n      NPART   = NDOF*6\r\n      DO 1560 I = 1,NNODE\r\n      IBEGIN = 6*(I-1) + JCORED - 1\r\nC\r\nC     DUMP AN UNTRANSFORMED NODAL COLUMN PARTITION.\r\nC\r\n      DO 1500 J = 1,NDOF\r\n      KPOINT = NDOF*(J-1) + IBEGIN\r\n      LPOINT = 6*(J-1)\r\n      DO 1500 K = 1,6\r\n 1500 COLSTF(LPOINT+K) = AKGG(KPOINT+K)\r\n      IF (NOTRAN(I) .EQ. 1) GO TO 1515\r\nC\r\nC     THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED TO GLOBAL\r\nC     COORDINATES. (SEE PAGE 2.3-43 OF THE PROGRAMMER MANUAL)\r\nC\r\nC     LOAD THE 6X6 TRANSFORMATION\r\nC\r\n      CALL TLDRD (OFFSET,I,TRANS,TRANS1)\r\nC\r\nC     TRANSFORM THE NODAL COLUMN PARTITION.\r\nC\r\n      CALL GMMATD (COLSTF,NDOF,6,0,TRANS1,6,6,0,COLTMP)\r\n      DO 1510 II = 1,NPART\r\n 1510 COLSTF(II) = COLTMP(II)\r\nC\r\nC     NOW TRANSFORM THE ROWS OF THIS PARTITION.\r\nC\r\n 1515 DO 1530 M = 1,NNODE\r\n      IF (NOTRAN(M) .EQ. 1) GO TO 1530\r\n      MPOINT = 36*(M-1) + 1\r\nC\r\nC     LOAD THE 6X6 TRANSFORMATION\r\nC\r\n      CALL TLDRD (OFFSET,M,TRANS,TRANS1)\r\nC\r\nC     TRANSFORM THE 6 ROWS FOR THIS SUBPARTITION\r\nC\r\n      CALL GMMATD (TRANS1,6,6,1,COLSTF(MPOINT),6,6,0,COLTMP)\r\n      IIPNT = MPOINT - 1\r\n      DO 1520 II = 1,36\r\n 1520 COLSTF(IIPNT+II) = COLTMP(II)\r\n 1530 CONTINUE\r\nC\r\nC     HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION\r\nC     FOR GMMATD TO THE COLUMN LOADING CONVENTION FOR EMGOUT.\r\nC\r\n      DO 1550 II = 1,6\r\n      IPOINT = NDOF*(II-1)\r\n      DO 1550 JJ = 1,NDOF\r\n      JPOINT = 6*(JJ-1)\r\n      COLTMP(IPOINT+JJ) = COLSTF(JPOINT+II)\r\n 1550 CONTINUE\r\nC\r\nC     DUMP THE TRANSFORMED NODAL COLUMN PARTITION\r\nC\r\n      IEOE = 0\r\n      IF (I .EQ. NNODE) IEOE = 1\r\n      ADAMP = GSUBE\r\nC\r\nC     INTEGER 1 IN THE NEXT TO LAST FORMAL PARAMETER OF\r\nC     EMGOUT MEANS WE ARE SENDING STIFFNESS DATA.\r\nC\r\n      CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,1,IPREC)\r\n 1560 CONTINUE\r\nC\r\nC\r\nC     HERE WE SHIP OUT THE MASS MATRIX.\r\nC     ---------------------------------\r\nC\r\n 1600 IF (MGG1 .EQ. 0) GO TO 1710\r\nC\r\n      NDOF  = NNODE*3\r\n      NPART = NDOF*3\r\n      DICT(3) = NDOF\r\n      DICT(4) = 7\r\n      ADAMP = 0.0D0\r\nC\r\nC     SET UP I-LOOP TO PROCESS AND DUMP THE NODAL COLUMN PARTITIONS.\r\nC\r\n      DO 1690 I = 1,NNODE\r\n      DO 1610 IJK = 1,NPART\r\n 1610 AMGG(JCORED-1+IJK) = 0.0D0\r\nC\r\nC     SET UP J-LOOP TO LOAD THE UNTRANSFORMED NODAL COLUMN PARTITION.\r\nC\r\n      DO 1620 J = 1,NNODE\r\n      IPOINT = 9*(J-1) + JCORED\r\n      JPOINT = IPOINT  + 4\r\n      KPOINT = IPOINT  + 8\r\n      IFROM  = NNODE*(J-1) + I\r\n      XMASSO = XMASS(IFROM)\r\n      AMGG(IPOINT) = XMASSO\r\n      AMGG(JPOINT) = XMASSO\r\n      AMGG(KPOINT) = XMASSO\r\n 1620 CONTINUE\r\n      IF (NOTRAN(I) .EQ. 1) GO TO 1670\r\nC\r\nC     THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED\r\nC     TO GLOBAL COORDINATES.\r\nC\r\n      DO 1640 M = 1,NNODE\r\n      MPOINT = 9*(M-1) + JCORED\r\n      CALL GMMATD (AMGG(MPOINT),3,3,0,TRANS(9*I-8),3,3,0,TMPMAS)\r\n      IICORE = MPOINT - 1\r\n      DO 1630 K = 1,9\r\n 1630 AMGG(IICORE+K) = TMPMAS(K)\r\n 1640 CONTINUE\r\nC\r\nC     SET UP M-LOOP TO TRANSFORM THE NODAL ROW PARTITIONS\r\nC     OF THIS NODAL COLUMN PARTITION.\r\nC\r\n      DO 1660 M = 1,NNODE\r\n      MPOINT = 9*(M-1) + JCORED\r\nC\r\nC     TRANSFORM THE 3 ROWS FOR THIS SUBPARTITION.  THIS IS CORRECT\r\nC     (3 ROWS).  REMEMBER THAT FOR THE MASS MATIIX FOR THIS ELEMENT\r\nC     THERE ARE NO MASS MOMENT OF INERTIA TERMS.  THIS GIVES THREE\r\nC     ROWS OF ZERO TERMS INTERSPERSED BETWEEN 3 ROWS OF NONZERO\r\nC     TRANSLATIONAL MASS TERMS FOR EACH NODE.\r\nC\r\n      CALL GMMATD (TRANS(9*M-8),3,3,1,AMGG(MPOINT),3,3,0,TMPMAS)\r\n      IICORE = MPOINT - 1\r\n      DO 1650 K = 1,9\r\n 1650 AMGG(IICORE+K) = TMPMAS(K)\r\n 1660 CONTINUE\r\nC\r\nC     HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION\r\nC     FOR GMMATD TO THE COLUMN LOADING CONVENTION FOR EMGOUT.\r\nC\r\n 1670 DO 1680 II = 1,3\r\n      IPOINT = NDOF*(II-1)\r\n      DO 1680 JJ = 1,NDOF\r\n      JPOINT = 3*(JJ-1) + JCORED - 1\r\n 1680 COLTMP(IPOINT+JJ) = AMGG(JPOINT+II)\r\nC\r\nC     DUMP THIS TRANSFORMED MASS NODAL COLUMN PARTITION.\r\nC\r\n      IEOE = 0\r\n      IF (I .EQ. NNODE) IEOE = 1\r\nC\r\nC     INTEGER 2 IN THE NEXT TO LAST FORMAL PARAMETER OF\r\nC     EMGOUT MEANS WE ARE SENDING MASS DATA.\r\nC\r\n      CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,2,IPREC)\r\n 1690 CONTINUE\r\n      GO TO 1710\r\nC\r\n 1700 J = 230\r\n      GO TO 1720\r\nC\r\n 1710 CONTINUE\r\n      RETURN\r\nC\r\n 1720 CALL MESAGE (30,J,NEST)\r\n      IF (L38 .EQ. 1) CALL MESAGE (-61,0,0)\r\n      NOGO = .TRUE.\r\n      GO TO 1710\r\n 1730 CALL MESAGE (-30,234,NAM)\r\nC\r\nC\r\nC     HEAT FLOW OPTION STARTS HERE.\r\nC\r\nC     WE NEED TO RESTORE THE ORIGINAL ORDER OF SILS AND BGPDT DATA\r\nC\r\n 1790 J = 1\r\n      DO 1800 I = 1,20\r\n      EST(I+J) = SAVE(I)\r\n      IF (I .EQ. 4) J = 24\r\n 1800 CONTINUE\r\nC\r\n      INFLAG = 2\r\n      COSMAT = 1.0\r\n      SINMAT = 0.0\r\n      MATID  = NEST(13)\r\n      CALL HMAT (ELID)\r\n      GI(1) = DBLE(KHEAT(1))\r\n      GI(2) = DBLE(KHEAT(2))\r\n      GI(3) = GI(2)\r\n      GI(4) = DBLE(KHEAT(3))\r\n      ANIS  = TYPE.NE.4 .AND. TYPE.NE.-1\r\nC     COMMENT-  ANIS = .FALSE. MEANS ISOTROPIC THERMAL CONDUCTIVITY.\r\nC\r\n      IF (ANIS) GO TO 400\r\n      GO TO 1820\r\n 1810 CONTINUE\r\n      TEM(3) = TEM(4)\r\n      TEM(4) = TEM(5)\r\n      CALL GMMATD (TEM,2,2,0,GI,2,2,0,GT)\r\n      CALL GMMATD (GT,2,2,0,TEM,2,2,1,GI)\r\n 1820 CONTINUE\r\n      DO 1830 I = 1,16\r\n      HTCON(I) = 0.0D0\r\n      HTCAP(I) = 0.0D0\r\n 1830 CONTINUE\r\n      DO 1840 I = 5,8\r\n      HSIL(I)   = 0\r\n 1840 HORDER(I) = 0\r\nC\r\n      DO 1890 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\n      DO 1890 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\n      DO 1870 IZTA = 1,2\r\n      ZETA = PTINT(IZTA)\r\nC\r\n      CALL TERMSD (NNODE,DGPTH,EPNORM,EGPDT,HORDER,HSIL,BTERMS)\r\n      DVOL = DETERM\r\nC\r\n      DO 1850 I = 1,4\r\n 1850 ECPT(I) = GI(I)*DVOL\r\n      WEITC = DVOL*HTCP\r\nC\r\n      IP = 1\r\n      DO 1860 I = 1,NNODE\r\n      IDN = I + NNODE\r\n      HTFLX(IP+1) = ECPT(3)*BTERMS(I) + ECPT(4)*BTERMS(IDN)\r\n      HTFLX(IP  ) = ECPT(1)*BTERMS(I) + ECPT(2)*BTERMS(IDN)\r\n 1860 IP = IP + 2\r\n      CALL GMMATD (BTERMS,2,NNODE,-1,HTFLX,NNODE,2,1,HTCON)\r\nC\r\n 1870 CONTINUE\r\n      IF (HTCP .EQ. 0.0) GO TO 1890\r\n      IP = 0\r\n      DO 1880 I = 1,NNODE\r\n      DHEAT = WEITC*SHP(I)\r\n      DO 1880 J = 1,NNODE\r\n      IP = IP + 1\r\n      HTCAP(IP) = HTCAP(IP) + DHEAT*SHP(J)\r\n 1880 CONTINUE\r\n 1890 CONTINUE\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NNODE\r\n      DICT(4) = 1\r\n      IF (HTCP .EQ. 0.0) GO TO 1900\r\n      ADAMP = 1.0\r\n      CALL EMGOUT (HTCAP,HTCAP,NODESQ,1,DICT,3,IPREC)\r\n 1900 CONTINUE\r\n      ADAMP = 0.0\r\n      CALL EMGOUT (HTCON,HTCON,NODESQ,1,DICT,1,IPREC)\r\n      GO TO 1710\r\nC\r\n 2010 FORMAT (A23,', THE ELEMENT THICKNESS FOR QUAD4 EID =',I9,\r\n     1       ' IS NOT COMPLETELY DEFINED.')\r\n 2030 FORMAT (A25,', RHO = ',1P,D12.4,' IS ILLEGAL FROM MATERIAL ID =',\r\n     1       I9,' FOR QUAD4 EID =',I9)\r\n 2060 FORMAT (A25,', ZERO VOLUME OR DENSITY FOR QUAD4 ELEMENT ID =',I9,\r\n     1       ', AREA,VOL,RHO =',3D12.3, /70X,'MGG1,KGG1 =',2I8)\r\n      END\r\n"
  },
  {
    "path": "mis/quad4s.f",
    "content": "      SUBROUTINE QUAD4S\r\nC\r\nC     FORMS STIFFNESS AND MASS MATRICES FOR THE QUAD4 PLATE ELEMENT\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC\r\nC     EST  LISTING\r\nC\r\nC     WORD       TYPE         DESCRIPTION\r\nC     --------------------------------------------------------------\r\nC       1          I    ELEMENT ID, EID\r\nC       2 THRU 5   I    SILS, GRIDS 1 THRU 4\r\nC       6 THRU 9   R    MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4\r\nC      10          R    MATERIAL PROPERTY ORIENTATION ANGLE, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD)\r\nC      11          I    TYPE FLAG FOR WORD 10\r\nC      12          R    GRID ZOFF  (OFFSET)\r\nC      13          I    MATERIAL ID FOR MEMBRANE, MID1\r\nC      14          R    ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED)\r\nC      15          I    MATERIAL ID FOR BENDING, MID2\r\nC      16          R    BENDING INERTIA FACTOR, I\r\nC      17          I    MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC      18          R    TRANSV. SHEAR CORRECTION FACTOR TS/T\r\nC      19          R    NON-STRUCTURAL MASS, NSM\r\nC      20 THRU 21  R    Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC      22          I    MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC      23          R    MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC      24          I    TYPE FLAG FOR WORD 23\r\nC      25          I    INTEGRATION ORDER\r\nC      26          R    STRESS ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC      27          I    TYPE FLAG FOR WORD 26\r\nC      28          R    ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC      29 THRU 44  I/R  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC      45          R    ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL         HEAT,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,BADJAC,\r\n     1                ANIS,NOCSUB,NOGO\r\n      INTEGER         NEST(45),IEGPDT(4,4),CPMASS,FLAGS,NOUT,ELTYPE,\r\n     1                ELID,ESTID,SIL(4),KSIL(4),KCID(4),DICT(9),\r\n     2                IGPDT(4,4),IGPTH(4),NAM(2),MID(4),TYPE,NECPT(4),\r\n     3                ROWFLG,NOTRAN(4),HSIL(8),HORDER(8)\r\n      REAL            TSFACT,EPSI,EPST,EPS,GPTH(4),MATOUT,EGPDT(4,4),\r\n     1                GSUBE,BGPDM(3,4),GPNORM(4,4),BGPDT(4,4),ADAMP,\r\n     2                MATSET,NSM,EPNORM(4,4),KHEAT,HTCP,SINMAT,COSMAT,\r\n     3                ECPT(4),SAVE(20)\r\n      REAL            AMGG(1),AKGG,DGPTH(4),BMAT1(384),XYBMAT(96),ZETA,\r\n     1                MOMINR,VOL,VOLI,TH,AREA,AREA2,DETJ,PTINT(2),\r\n     2                EPS1,XI,ETA,ZTA,HZTA,THK,XMASSO,V(3,3),\r\n     3                COEFF,XMTMP(16),XMASS(16),TMPMAS(9),JACOB(3,3),\r\n     4                TMPSHP(4),TMPTHK(4),DSHPTP(8),PSITRN(9),PHI(9),\r\n     5                SHP(4),DSHP(8),TGRID(4,4),COLSTF(144),TRANS(36),\r\n     6                TRANS1(36),COLTMP(144),AVGTHK,TEMP\r\n      REAL            AA,BB,CC,X31,Y31,X42,Y42,EXI,EXJ,UGPDM(3,4),\r\n     1                CENT(3),CENTE(3),TBM(9),TEB(9),TEM(9),TUB(9),\r\n     2                TUM(9),TEU(9),TBG(9),GGE(9),GGU(9)\r\n      REAL            RHO,TS,TSI,REALI,RHOX,THETAM,XM,YM,U(9),A,B,\r\n     1                ASPECT,THLEN,XA(4),YB(4),GT(9),GI(36),ENORX,ENORY,\r\n     2                GNORX,GNORY,NUNORX,NUNORY,DSUB,DSUB4,PSIINX,\r\n     3                PSIINY,TSMFX,TSMFY,CURVTR(3,4),CURVE(3),SINEAX,\r\n     4                SINEAY,W1,PI,TWOPI,RADDEG,DEGRAD,HTFLX(12),DETERM,\r\n     5                HTCAP(16),HTCON(16),DVOL,DHEAT,WEITC,BTERMS(32)\r\n      REAL            ZC(4),UEV,ANGLEI,EDGEL,EDGSHR,UNV,VNT(3,4),ASPCTX,\r\n     1                ASPCTY,GFOUR(10,10),DFOUR(7,7),BFOUR(240),CSUBB4,\r\n     2                CSUBX,CSUBY,CSUBT,CSUBTX,CSUBTY,SFCTR1,SFCTR2,\r\n     3                SFCTX1,SFCTX2,SFCTY1,SFCTY2,OFFSET,CONST\r\nCWKBD 2/94 SPR93020      REAL            EIX,EIY,TGX,TGY\r\nCWKBI 2/94 SPR 93020\r\n      REAL            DNUX, DNUY\r\nCWKBNB 11/93 SPR 93020\r\n      REAL            VD1(3), VD2(3), VKN(3), VKS(3)\r\n     1,               V12(3), V41(3), VP12(3),VIS(3), VJS(3)\r\nCWKBNE 11/93 SPR 93020\r\n      \r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\nC\r\nC     ICORE = FIRST WORD OF OPEN CORE\r\nC     JCORE = NEXT AVAILABLE LOCATION IN OPEN CORE.\r\nC     NCORE = CURRENT LAST AVAILABLE LOCATION IN OPEN CORE\r\nC\r\n      COMMON /EMGPRM/ ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT,\r\n     1                NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON,FLAGS(3),\r\n     2                PRECIS,ERROR,HEAT,CPMASS,LCSTM,LMAT,LHMAT,\r\n     3                KFLAGS(3),L38\r\n      COMMON /EMGEST/ EST(45)\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /SYSTEM/ SYS(100)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /MATOUT/ MATOUT(25)\r\n      COMMON /HMTOUT/ KHEAT(7),TYPE\r\nCZZ   COMMON /ZZEMGX/ AKGG(1)\r\n      COMMON /ZZZZZZ/ AKGG(1)\r\n      COMMON /Q4DT  / DETJ,HZTA,PSITRN,NNODE,BADJAC,N1\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                UEV(3,4),ROWFLG,IORDER(4)\r\n      COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /COMJAC/ XI,ETA,ZETA,DETERM,DUM2,LTYPFL\r\n      COMMON /CJACOB/ TH,VI(3),VJ(3),VN(3)\r\n      COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2\r\n      EQUIVALENCE     (SYS(01)   ,SYSBUF  ), (SYS(02) ,NOUT      ),\r\n     1                (SYS(03)   ,NOGO    ), (SYS(55) ,IPREC     )\r\nC     EQUIVALENCE     (SYS(48)   ,ICSUB4  ), (SYS(49) ,ICSUBB    ),\r\nC    1                (SYS(50)   ,ICSUBT  ), (SYS(75) ,ICSUB8    )\r\n      EQUIVALENCE     (FLAGS(1)  ,KGG1    ), (FLAGS(2),MGG1      ),\r\n     1                (ADAMP     ,DICT(5) ), (IGPTH(1),GPTH(1)   ),\r\n     2                (EST(1)    ,NEST(1) ), (INT     ,NEST(25)  ),\r\n     3                (BGPDT(1,1),EST(29) ), (GPTH(1) ,EST(6)    ),\r\n     4                (ELTH      ,EST(14) ), (SIL(1)  ,NEST(2)   ),\r\n     5                (ZOFF      ,EST(12) ), (ZOFF1   ,EST(28)   ),\r\n     6                (AMGG(1)   ,AKGG(1) ), (NECPT(1),ECPT(1)   ),\r\n     7                (HTCP      ,KHEAT(4)), (HTFLX(1),TMPMAS(1) ),\r\n     8                (HTCAP(1)  ,XMASS(1)), (HTCON(1),XMTMP(1)  ),\r\n     9                (NSM       ,EST(19) ), (MATSET  ,MATOUT(25)),\r\n     O                (IEGPDT(1,1),EGPDT(1,1)),\r\n     1                (IGPDT(1,1) ,BGPDT(1,1))\r\n      DATA    EPS1  / 1.0E-7 /\r\n      DATA    CONST / 0.57735026918962/\r\n      DATA    NAM   / 4HQUAD,4H4S     /\r\nC\r\n      ELID   = NEST(1)\r\n      LTYPFL = 1\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS\r\nC\r\n      JCORED = JCORE\r\n      NCORED = NCORE- 1\r\n      IF (JCORED+576.LE.NCORED .OR. HEAT .OR. KGG1.EQ.0) GO TO 10\r\n      GO TO 1730\r\nC\r\nC     COPY THE SILS AND BGPDT DATA INTO SAVE ARRAY SINCE THE DATA\r\nC     WILL BE REORDERED BASED ON INCREASING SILS.\r\nC\r\n   10 J = 1\r\n      DO 15 I = 1,20\r\n      SAVE(I) = EST(I+J)\r\n      IF (I .EQ. 4) J = 24\r\n   15 CONTINUE\r\nC\r\n      NNODE = 4\r\n      N1    = 4\r\n      NODESQ= NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NDOF3 = NNODE*3\r\n      ND2   = NDOF*2\r\n      ND3   = NDOF*3\r\n      ND4   = NDOF*4\r\n      ND5   = NDOF*5\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS\r\nC     1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE\r\nC     THE USER COORDINATE SYSTEM WHILE CALCULATING\r\nC     TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM.\r\nC\r\n      DO 20 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (IJ .EQ. 3) IJ = 4\r\n      DO 20 J = 1,3\r\n      JJ = J + 1\r\n   20 GGU(II+J) = BGPDT(JJ,IJ)\r\nCWKBD 11/93 SPR93020      CALL BETRNS (TUB,GGU,0,ELID)\r\nCWKBNB 11/93 SPR93020\r\nC    ADD FROM SHEAR ELEMENT\r\nC\r\nC    COMPUTE DIAGONAL VECTORS\r\nC\r\n      DO 21 I = 1,3\r\n      II=I+1\r\n      VD1(I) = BGPDT(II,3) - BGPDT(II,1)\r\n   21 VD2(I) = BGPDT(II,4) - BGPDT(II,2)\r\nC\r\nC    COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC    AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 )\r\n      IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1)\r\n2070  FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 )\r\n      VKS(1) = VKN(1)/VKL\r\n      VKS(2) = VKN(2)/VKL\r\n      VKS(3) = VKN(3)/VKL\r\nCWKBR 9/94      PA = VKL/2.D0           \r\n      PA = VKL/2.0     \r\nC\r\nC  COMPUTE SIDES -12- AND -41-\r\n      DO 25 I = 1,3\r\n      II = I + 1\r\n      V12(I) = BGPDT(II,2) - BGPDT(II,1)\r\n      V41(I) = BGPDT(II,1) - BGPDT(II,4)\r\n25    CONTINUE\r\nC\r\nC  COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK   = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3)\r\n      VP12(1) = V12(1) - V12DK*VKS(1)\r\n      VP12(2) = V12(2) - V12DK*VKS(2)\r\n      VP12(3) = V12(3) - V12DK*VKS(3)\r\n      VP12L   = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 )\r\n      IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) NEST(1)\r\n      VIS(1) = VP12(1) / VP12L\r\n      VIS(2) = VP12(2) / VP12L\r\n      VIS(3) = VP12(3) / VP12L\r\n      VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2)\r\n      VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3)\r\n      VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1)\r\nC\r\nC   NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 )\r\n      IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) NEST(1)\r\n      VJS(1) = VJS(1) / VJL\r\n      VJS(2) = VJS(2) / VJL\r\n      VJS(3) = VJS(3) / VJL\r\n      DO 29 I = 1,3\r\n      TUB(I)   = VIS(I)\r\n      TUB(I+3) = VJS(I)\r\n      TUB(I+6) = VKS(I)\r\n29    CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT C.S.\r\nC\r\n      DO 30 I = 1,3\r\n      I1 = I + 1\r\n      DO 30 J = 1,4\r\n   30 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER C.S.\r\nC\r\n      DO 40 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 40 J = 1,4\r\n      UGPDM(I,J) = 0.0\r\n      DO 40 K = 1,3\r\n      KK = IP + K\r\n   40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*((BGPDM(K,J)) - GGU(K))\r\nC\r\nC\r\nC     THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT\r\nC\r\n      DO 50 J = 1,3\r\n      CENT(J) = 0.0\r\n      DO 50 I = 1,4\r\n   50 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER C.S.\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = SQRT(X31*X31 + Y31*Y31)\r\n      BB  = SQRT(X42*X42 + Y42*Y42)\r\n      IF (AA.EQ.0.0 .OR. BB.EQ.0.0) GO TO 1700\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S.\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE\r\nC     LIST  G1,G2,G3,G4 .  THAT IS, THE 'I' PART\r\nC     OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY\r\nC     BULK DATA CARD DESCRIPTION.\r\nC\r\n      DO 60 I = 1,4\r\n      IORDER(I) = 0\r\n      HORDER(I) = 0\r\n      KSIL(I) = SIL(I)\r\n      HSIL(I) = SIL(I)\r\n   60 CONTINUE\r\nC\r\n      DO 80 I = 1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 70 J = 2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 70\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n   70 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      HORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n   80 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE\r\nC     FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\n      DO 100 I = 1,4\r\n      KSIL(I) = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      KCID(I) = IGPDT(1,I)\r\n      DO 90 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      DO 120 I = 1,4\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      GPTH(I)= TMPTHK(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      DO 110 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n      CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .EQ. 0) GO TO 130\r\n      GO TO 1700\r\nC\r\nC     DETERMINE NODAL THICKNESSES\r\nC\r\n  130 AVGTHK = 0.0\r\n      DO 160 I = 1,NNODE\r\n      IORD = IORDER(I)\r\n      DO 140 IC = 1,3\r\n  140 CURVTR(IC,IORD) = GPNORM(IC+1,I)\r\nC\r\n      IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH\r\n      IF (NEST(13).EQ.0 .AND. ELTH.EQ.0.) GPTH(I) = 1.0E-14\r\n      IF (GPTH(I) .GT. 0.0) GO TO 150\r\n      WRITE (NOUT,2010) UFM,ELID\r\n      NOGO =.TRUE.\r\n      GO TO 1710\r\n  150 DGPTH(I) = GPTH(I)\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  160 CONTINUE\r\nC\r\nC     NEST(13) = MID1 ID FOR MEMBRANE\r\nC     NEST(15) = MID2 ID FOR BENDING\r\nC     NEST(17) = MID3 ID FOR TRANSVERSE SHEAR\r\nC     NEST(22) = MID4 ID FOR MEMBRANE-BENDING COUPLING\r\nC                MID4 MUST BE BLANK UNLESS MID1 AND MID2 ARE NON-ZERO\r\nC                MID4 ID MUST NOT EQUAL MID1 OR MID2 ID\r\nC     (WHEN LAYER COMPOSITE IS USED, MID ID IS RAISED TO ID*100000000)\r\nC      EST(14) = MEMBRANE THICKNESS, T\r\nC      EST(16) = BENDING STIFFNESS PARAMETER, 12I/T**3\r\nC      EST(18) = TRNASVERSE SHEAR  PARAMETER, TS/T\r\nC\r\nC     0.8333333 = 5.0/6.0\r\nC\r\n      MOMINR = 0.0\r\n      TSFACT = .8333333\r\n      NOCSUB = .FALSE.\r\n      IF (NEST(15) .NE.  0) MOMINR = EST(16)\r\n      IF (NEST(17) .NE.  0) TS = EST(18)\r\n      IF ( EST(18) .EQ. 0.) TS = .8333333\r\nC\r\nC     FIX FOR LAMINATED COMPOSITE WITH MEMBRANE BEHAVIOUR ONLY.\r\nC     REQUIRED TO PREVENT ZERO DIVIDE ERRORS.\r\nC\r\n      IF (NEST(15).EQ.0 .AND. NEST(13).GT.100000000) TS = .8333333\r\nC\r\nC     SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT\r\nC     VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS.\r\nC     I.E. DEFAULT VALUES OF UNITY ARE USED.\r\nC\r\n      EPSI = ABS(MOMINR - 1.0)\r\n      EPST = ABS(TS  - TSFACT)\r\n      EPS  = .05\r\nC     NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS\r\n      IF (NEST(13) .GT. 100000000) NOCSUB = .FALSE.\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE\r\nC     TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S.\r\nC\r\nC     SET IDENTT FLAG TO 1 IF TEB IS AN IDENTITY MATRIX\r\nC\r\n      CALL BETRNS (TEU,GGE,0,ELID)\r\n      CALL GMMATS (TEU,3,3,0,TUB ,3,3,0,TEB  )\r\n      CALL GMMATS (TUB,3,3,1,CENT,3,1,0,CENTE)\r\n      IDENTT = 0\r\n      IF (TEB(1).EQ.1.0 .AND. TEB(5).EQ.1.0 .AND. TEB(9).EQ.1.0 .AND.\r\n     1    TEB(2).EQ.0.0 .AND. TEB(3).EQ.0.0 .AND. TEB(4).EQ.0.0 .AND.\r\n     2    TEB(6).EQ.0.0 .AND. TEB(7).EQ.0.0 .AND. TEB(8).EQ.0.0\r\n     3    ) IDENTT = 1\r\n      IP = -3\r\n      DO 170 II = 2,4\r\n      IP = IP + 3\r\n      DO 170 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0\r\n      EGPDT(II,J)  = 0.0\r\n      DO 170 K = 1,3\r\n      KK = IP + K\r\n      K1 = K + 1\r\n      CC = BGPDT(K1,J) - GGU(K) - CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n  170 EGPDT(II,J)  = EGPDT(II,J)  + (TEB(KK)*CC)\r\nC\r\nC     BEGIN INITIALIZING MATERIAL VARIABLES\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR-\r\nC     ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      INFLAG = 12\r\n      RHO    = 0.0\r\n      ELTEMP = EST(45)\r\n      MID(1) = NEST(13)\r\n      MID(2) = NEST(15)\r\n      MID(3) = NEST(17)\r\n      MID(4) = NEST(22)\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\nC\r\nC     FIGURE OUT PATH OF THE TRIPLE MULTIPLY AND THE NO. OF ROWS\r\nC     IN B-MATRIX\r\nC\r\nC     NORPTH = MID(1).EQ.MID(2).AND.MID(1).EQ.MID(3).AND.MID(4).EQ.0\r\nC    1        .AND. ABS(MOMINR-1.0).LE.EPS1\r\n      NORPTH = .FALSE.\r\nC\r\nC     DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS\r\nC\r\nC     IF (.NOT.BENDNG) GO TO 290\r\n      DO 210 I = 1,4\r\n      DO 200 J = 1,NNODE\r\n      JO = IORDER(J)\r\n      IF (I .NE. JO) GO TO 200\r\n      XA(I) = EGPDT(2,J)\r\n      YB(I) = EGPDT(3,J)\r\n      ZC(I) = EGPDT(4,J)\r\n      VNT(1,I) = EPNORM(2,J)\r\n      VNT(2,I) = EPNORM(3,J)\r\n      VNT(3,I) = EPNORM(4,J)\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\n      A = 0.5*ABS(XA(2)+XA(3)-XA(1)-XA(4))\r\n      B = 0.5*ABS(YB(4)+YB(3)-YB(1)-YB(2))\r\n      IF (A .GT. B) ASPECT = B/A\r\n      IF (A .LE. B) ASPECT = A/B\r\n      THLEN = AVGTHK/A\r\n      IF (A .LT. B) THLEN = AVGTHK/B\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     PRELIMINARY FACTORS\r\nC\r\n      ASPCTX = A/B\r\n      ASPCTY = B/A\r\n      CSUBB4 = 1.6\r\nC     IF (ICSUBB .NE. 0) CSUBB4 = SYS(49)\r\n      CSUBT  = 71.0*ASPECT*(1.60/CSUBB4)*(1.0+415.0*ASPECT*THLEN**2)\r\n      CSUBTX = CSUBT*ASPCTX**2\r\n      CSUBTY = CSUBT*ASPCTY**2\r\nC\r\n      I  = 2\r\n      J  = 2\r\n      JJ = 3\r\n      SINEAX = 0.0\r\n      SINEAY = 0.0\r\n  220 CALL SAXB (CURVTR(1,I-1),CURVTR(1,I),CURVE)\r\n      CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3)\r\n      IF (CC .LT. EPS1) GO TO 230\r\n      CC = 0.5*SQRT(CC)\r\n  230 SINEAX = SINEAX + CC\r\n      IF (I .NE. 2) GO TO 240\r\n      I  = 4\r\n      GO TO 220\r\nC\r\n  240 CALL SAXB (CURVTR(1,J),CURVTR(1,JJ),CURVE)\r\n      CC = CURVE(1)*CURVE(1) + CURVE(2)*CURVE(2) + CURVE(3)*CURVE(3)\r\n      IF (CC .LT. EPS1) GO TO 250\r\n      CC = 0.5*SQRT(CC)\r\n  250 SINEAY = SINEAY + CC\r\n      IF (J .NE. 2) GO TO 260\r\n      J  = 1\r\n      JJ = 4\r\n      GO TO 240\r\n  260 CC = 28.0\r\n      SINEAX =CC*SINEAX + 1.0\r\n      SINEAY =CC*SINEAY + 1.0\r\n      IF (SINEAX .GT. SINEAY) SINEAY = SINEAX\r\n      IF (SINEAY .GT. SINEAX) SINEAX = SINEAY\r\nC\r\nC     IRREGULAR 4-NODE CODE-  GEOMETRIC VARIABLES\r\nC\r\nC     CALCULATE AND NORMALIZE- UNIT EDGE VECTORS,UNIT NORMAL VECTORS\r\nC\r\n      DO 270 I = 1,4\r\n      J = I + 1\r\n      IF (J .EQ. 5) J = 1\r\n      UEV(1,I) = XA(J) - XA(I)\r\n      UEV(2,I) = YB(J) - YB(I)\r\n      UEV(3,I) = ZC(J) - ZC(I)\r\n      UNV(1,I) = (VNT(1,J) + VNT(1,I))*0.50\r\n      UNV(2,I) = (VNT(2,J) + VNT(2,I))*0.50\r\n      UNV(3,I) = (VNT(3,J) + VNT(3,I))*0.50\r\n      CC = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2\r\n      IF (CC .EQ.  0.0) GO TO 1700\r\n      IF (CC .GE. EPS1) CC = SQRT(CC)\r\n      EDGEL(I) = CC\r\n      UEV(1,I) = UEV(1,I)/CC\r\n      UEV(2,I) = UEV(2,I)/CC\r\n      UEV(3,I) = UEV(3,I)/CC\r\n      CC = UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2\r\n      IF (CC .EQ.  0.0) GO TO 1700\r\n      IF (CC .GE. EPS1) CC = SQRT(CC)\r\n      UNV(1,I) = UNV(1,I)/CC\r\n      UNV(2,I) = UNV(2,I)/CC\r\n      UNV(3,I) = UNV(3,I)/CC\r\n  270 CONTINUE\r\nC\r\nC     CALCULATE INTERNAL NODAL ANGLES\r\nC\r\n      DO 280 I = 1,4\r\n      J = I - 1\r\n      IF (J .EQ. 0) J = 4\r\n      ANGLEI(I) =-UEV(1,I)*UEV(1,J)-UEV(2,I)*UEV(2,J)-UEV(3,I)*UEV(3,J)\r\n      IF (ABS(ANGLEI(I)) .LT. EPS1) ANGLEI(I) = 0.0\r\n  280 CONTINUE\r\nC 290 CONTINUE\r\nC\r\nC     SET THE INTEGRATION POINTS\r\nC\r\n      PTINT(1)  = -CONST\r\n      PTINT(2)  =  CONST\r\nC     JZTA = 2\r\nC     IF (.NOT.BENDNG) PTINTZ(1) = 0.0\r\nC     IF (.NOT.BENDNG) JZTA = 1\r\n      IF (HEAT) GO TO 1790\r\nC\r\nC     TRIPLE LOOP TO SAVE THE LAST 2 ROWS OF B-MATRIX AT 2X2X2\r\nC     INTEGRATION POINTS FOR LATER MANIPULATION.\r\nC\r\n      IF (KGG1 .EQ. 0) GO TO 400\r\nC     IF (.NOT.BENDNG) GO TO 360\r\n      I  = 1\r\n      KPT= 1\r\nC\r\n      DO 350 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\nC\r\n      DO 350 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     IRREGULAR 4-NODE CODE-  CALCULATION OF NODAL EDGE SHEARS\r\nC                             AT THIS INTEGRATION POINT\r\nC\r\n      DO 310 IJ = 1,4\r\n      II = IJ - 1\r\n      IF (II .EQ. 0) II = 4\r\n      IK = IJ + 1\r\n      IF (IK .EQ. 5) IK = 1\r\n      AA = SHP(IJ)\r\n      BB = SHP(IK)\r\nC\r\n      DO 300 IS = 1,3\r\n      EDGSHR(IS,IJ)=(UEV(IS,IJ) + ANGLEI(IJ)*UEV(IS,II))*AA/\r\n     1              (1.0-ANGLEI(IJ)*ANGLEI(IJ))\r\n     2             +(UEV(IS,IJ) + ANGLEI(IK)*UEV(IS,IK))*BB/\r\n     3              (1.0-ANGLEI(IK)*ANGLEI(IK))\r\n  300 CONTINUE\r\n  310 CONTINUE\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 320 IS = 1,4\r\n      TMPSHP(IS  ) =  SHP(IS  )\r\n      DSHPTP(IS  ) = DSHP(IS  )\r\n  320 DSHPTP(IS+4) = DSHP(IS+4)\r\n      DO 330 IS = 1,4\r\n      KK = IORDER(IS)\r\n      SHP (IS  ) = TMPSHP(KK  )\r\n      DSHP(IS  ) = DSHPTP(KK  )\r\n  330 DSHP(IS+4) = DSHPTP(KK+4)\r\nC\r\n      DO 340 IZTA = 1,2\r\n      ZTA = PTINT(IZTA)\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      HZTA = ZTA/2.0\r\n      CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION\r\nC     BETWEEN INVER AND GMMAT.\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 1. IT SIGNALS SAVING THE LAST 2 ROWS.\r\nC\r\n      ROWFLG = 1\r\n      CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMAT1(KPT))\r\n  340 KPT = KPT + ND2\r\n  350 CONTINUE\r\nC\r\nC     IN PLANE SHEAR REDUCTION\r\nC\r\nC     IF (.NOT.MEMBRN) GO TO 400\r\nC 360 CONTINUE\r\n      XI  = 0.0\r\n      ETA = 0.0\r\n      KPT = 1\r\n      KPNT= ND2\r\nC     IF (NORPTH) KPNT = NDOF\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 370 I = 1,4\r\n      TMPSHP(I  ) =  SHP(I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  370 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 380 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  380 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\nC     DO 390 IZTA = 1,JZTA\r\n      DO 390 IZTA = 1,2\r\n      ZTA  = PTINT(IZTA)\r\n      HZTA = ZTA/2.0\r\n      CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B-MATRIX\r\nC     SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT\r\nC     THE TWO INTEGRATION POINTS.\r\nC\r\n      ROWFLG = 2\r\n      CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT))\r\n  390 KPT = KPT + KPNT\r\nC\r\nC     SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS.\r\nC     NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH\r\nC     WILL BE SET IN POSITION LATER.\r\nC\r\n  400 DO 410 IEC = 2,4\r\n  410 ECPT(IEC) = 0.0\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC\r\nC     EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM\r\nC     THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE\r\nC     SYSTEM. THESE STEPS ARE TO BE FOLLOWED-\r\nC\r\nC     1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED\r\nC        TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION).\r\nC        TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN\r\nC        TEM-MATRIX.\r\nC        THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED\r\nC        UPON WHICH STEP 2 IS TAKEN.\r\nC\r\nC     2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED\r\nC        TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION).\r\nC\r\nC                         T\r\nC     3-           G  =  U   G   U\r\nC                   E         M\r\nC\r\nC\r\n      IF (NEST(11) .EQ. 0) GO TO 470\r\n      MCSID = NEST(10)\r\nC\r\nC     CALCULATE TEM-MATRIX USING MCSID\r\nC\r\n  420 IF (MCSID .GT. 0) GO TO 440\r\n      DO 430 I = 1,9\r\n  430 TEM(I) = TEB(I)\r\n      GO TO 450\r\n  440 NECPT(1) = MCSID\r\n      CALL TRANSS (ECPT,TBM)\r\nC\r\nC     MULTIPLY TEB AND TBM MATRICES\r\nC\r\n      CALL GMMATS (TEB,3,3,0,TBM,3,3,0,TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n  450 CONTINUE\r\n      XM = TEM(1)\r\n      YM = TEM(4)\r\n      IF (ABS(XM).GT.EPS1 .OR. ABS(YM).GT.EPS1) GO TO 460\r\n      NEST(2) = MCSID\r\n      J = 231\r\n      GO TO 1720\r\n  460 THETAM = ATAN2(YM,XM)\r\n      GO TO 480\r\nC\r\nC     CALCULATE TEM-MATRIX USING THETAM\r\nC\r\n  470 THETAM = EST(10)*DEGRAD\r\n      IF (THETAM .EQ. 0.0) GO TO 490\r\n  480 CALL ANGTRS (THETAM,1,TUM)\r\n      CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      GO TO 510\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM\r\nC     ON THE PSHELL CARD.\r\nC\r\n  490 IF (NEST(24) .EQ. 0) GO TO 500\r\n      MCSID = NEST(23)\r\n      GO TO 420\r\nC\r\n  500 THETAM = EST(23)*DEGRAD\r\n      GO TO 480\r\nC\r\n  510 CONTINUE\r\n      IF (HEAT) GO TO 1810\r\nC\r\n      DO 600 M = 1,36\r\n  600 GI(M)  = 0.0\r\n      SINMAT = 0.0\r\n      COSMAT = 0.0\r\n      IGOBK  = 0\r\nC\r\nC     BEGIN M-LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID\r\nC\r\n      M = 0\r\n  610 M = M + 1\r\n      IF (M .GT. 4) GO TO 790\r\n      IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 800\r\n      MATID = MID(M)\r\n      IF (MATID.EQ.0 .AND. M.NE.3) GO TO 610\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 610\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2)\r\nC\r\n      IF (M-1) 640,630,620\r\n  620 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 640\r\n  630 CALL MAT (ELID)\r\n  640 CONTINUE\r\nC\r\n      IF (MEMBRN .AND. M.EQ.1) RHO=MATOUT(7)\r\n      RHOX = RHO\r\n      IF (RHO .EQ. 0.0) RHOX = 1.0\r\n      IF (KGG1 .EQ.  0) GO TO 610\r\nC\r\n      IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 650\r\n      GSUBE = MATOUT(12)\r\n      IF (MATSET .EQ. 8.) GSUBE = MATOUT(16)\r\n  650 CONTINUE\r\nC\r\n      IF (M.EQ.2 .AND. NORPTH) GO TO 670\r\n      COEFF  = 1.0\r\n      LPOINT = (M-1)*9 + 1\r\nC\r\n      CALL Q4GMGS (M,COEFF,GI(LPOINT))\r\nC\r\nCWKBDB 11/93 SPR93020\r\nC      IF (M .GT. 0) GO TO 670\r\nC      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660\r\nC      NEST(2) = MATID\r\nC      J = 232\r\nC      GO TO 1720\r\nC\r\nC  660 M = -M\r\nC 11/93 ALREADY DELETED 670 IF (.NOT.BENDNG) GO TO 760\r\nC  670 CONTINUE\r\nC      MTYPE = IFIX(MATSET+.05) - 2\r\nC      IF (NOCSUB) GO TO 760\r\nC      GO TO (760,680,720,760), M\r\nC\r\nC  680 IF (MTYPE) 690,700,710\r\nC  690 ENORX = MATOUT(16)\r\nC      ENORY = MATOUT(16)\r\nC      GO TO 760\r\nC  700 ENORX = MATOUT(1)\r\nC      ENORY = MATOUT(4)\r\nC      GO TO 760\r\nC  710 ENORX = MATOUT(1)\r\nC      ENORY = MATOUT(3)\r\nC      GO TO 760\r\nC\r\nC  720 IF (MTYPE) 730,740,750\r\nC  730 GNORX = MATOUT(6)\r\nC      GNORY = MATOUT(6)\r\nC      GO TO 760\r\nC\r\nC  740 GNORX = MATOUT(1)\r\nC      GNORY = MATOUT(4)\r\nC      GO TO 760\r\nC\r\nC  750 GNORX = MATOUT(6)\r\nC      GNORY = MATOUT(5)\r\nC      IF (GNORX .EQ. 0.0) GNORX = MATOUT(4)\r\nC      IF (GNORY .EQ. 0.0) GNORY = MATOUT(4)\r\nC  760 CONTINUE\r\nCWKBDE 11/93 SPR93020\r\nC\r\nC\r\nC     IF (MATSET .EQ. 1.0) GO TO 610\r\n      IF (M .EQ. 3) GO TO 770\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(4)*TEM(4)\r\n      U(3) = TEM(1)*TEM(4)\r\n      U(4) = TEM(2)*TEM(2)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(2)*TEM(5)\r\n      U(7) = TEM(1)*TEM(2)*2.0\r\n      U(8) = TEM(4)*TEM(5)*2.0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L = 3\r\n      GO TO 780\r\nC\r\n  770 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8)\r\n      U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3)\r\n      U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6)\r\n      U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7)\r\n      L=2\r\nC\r\n  780 CALL GMMATS (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1))\r\n      CALL GMMATS (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT))\r\nCWKBNB 11/93 SPR93020\r\n      IF (M .GT. 0) GO TO 670\r\n      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 660\r\n      NEST(2) = MATID\r\n      J = 232\r\n      GO TO 1720\r\n  660 M = -M\r\n  670 CONTINUE\r\n      MTYPE = IFIX(MATSET+.05) - 2\r\n      IF (NOCSUB) GO TO 760\r\n      GO TO (760,680,720,760), M\r\nCWKBNE 11/93 SPR93020\r\nCWKBNB 2/94 SPR93020\r\n  680 IF ( MTYPE ) 690, 700, 710\r\n  690 ENORX = MATOUT(16)\r\n      ENORY = MATOUT(16)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 760\r\n  700 ENORX = MATOUT(1)\r\n      ENORY = MATOUT(4)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 760\r\n  710 ENORX = MATOUT(1)\r\n      ENORY = MATOUT(3)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 760\r\n  720 IF ( MTYPE ) 730, 740, 750\r\n  730 GNORX = MATOUT(6)\r\n      GNORY = MATOUT(6)\r\n      GO TO 760\r\n  740 GNORX = MATOUT(1)\r\n      GNORY = MATOUT(4)\r\n      GO TO 760\r\n  750 GNORX = MATOUT(6)\r\n      GNORY = MATOUT(5)\r\nCWKBDB 9/94\r\nC      IF ( GNORX .EQ. 0.0D0 ) GNORX = MATOUT(4)\r\nC      IF ( GNORY .EQ. 0.0D0 ) GNORY = MATOUT(4)\r\nCWKBDE 9/94      \r\nCWKBNB 9/94\r\n      IF ( GNORX .EQ. 0.0 ) GNORX = MATOUT(4)\r\n      IF ( GNORY .EQ. 0.0 ) GNORY = MATOUT(4)\r\nCWKBNE 9/94  \r\n  760 CONTINUE\r\nCWKBNE 2/94 SPR93020\r\n      GO TO 610\r\nC\r\nC     END OF M-LOOP\r\nC\r\n  790 CONTINUE\r\n      IF (MID(3) .LT. 100000000) GO TO 800\r\n      IF (GI(19).NE.0.0 .OR. GI(20).NE.0.0 .OR. GI(21).NE.0.0 .OR.\r\n     1    GI(22).NE.0.0) GO TO 800\r\n      IGOBK = 1\r\n      M = 2\r\n      MID(3) = MID(2)\r\n      GO TO 610\r\n  800 CONTINUE\r\nC\r\n      NOCSUB = ENORX.EQ.0.0 .OR. ENORY.EQ.0.0 .OR.\r\n     1         GNORX.EQ.0.0 .OR. GNORY.EQ.0.0 .OR.\r\n     2         MOMINR.EQ.0.0\r\nC\r\n      MATTYP = IFIX(MATSET+.05)\r\nC\r\nC     IF MGG1 IS NON-ZERO AND RHO IS GREATER THAN 0.0,\r\nC     THEN COMPUTE THE MASS MATRIX.\r\nC\r\n      IF (MGG1 .EQ. 0) GO TO 810\r\n      IF (JCORED+144 .LE. NCORED) GO TO 810\r\n      GO TO 1730\r\n  810 CONTINUE\r\nC\r\n      LIMIT = JCORED + NDOF*NDOF\r\n      DO 820 I = JCORED,LIMIT\r\n  820 AKGG(I)  = 0.0\r\n      DO 830 I = 1,NODESQ\r\n      XMASS(I) = 0.0\r\n  830 XMTMP(I) = 0.0\r\n      AREA = 0.0\r\n      VOL  = 0.0\r\nC\r\nC\r\nC     HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 1310 AND 1300 TO\r\nC     GAUSS INTEGRATE FOR THE ELEMENT MASS AND STIFFNESS MATRICES.\r\nC     -----------------------------------------------------------\r\nC\r\n      DO 1310 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\n      DO 1310 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 900 I = 1,4\r\n      TMPSHP(I  ) =  SHP(I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  900 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 910 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  910 DSHP(I+4) = DSHPTP(KK+4)\r\n      CALL GMMATS (SHP,1,NNODE,0,DGPTH,1,NNODE,1,THK)\r\n      REALI = MOMINR*THK*THK*THK/12.0\r\nC     REALI =        THK*THK*THK/12.0\r\n      TSI   = TS*THK\r\nC\r\nC     SKIP MASS CALCULATIONS IF NOT REQUESTED\r\nC\r\n      IF (NSM  .NE. 0.) GO TO 920\r\n      IF (MGG1 .EQ. 0 ) GO TO 1020\r\n      IF (RHO  .EQ. 0.) GO TO 1020\r\n      IF (RHO  .GT. 0.) GO TO 920\r\n      WRITE (NOUT,2030) UWM,RHO,MID(1),NEST(1)\r\nC     NOGO =.TRUE.\r\nC     GO TO 1710\r\n  920 CONTINUE\r\nC\r\nC     COMPUTE S AND T VECTORS AT THE MID-SURFACE\r\nC     FOR MASS CALCULATIONS ONLY.\r\nC\r\n      DO 930 I = 1,2\r\n      IPOINT = 4*(I-1)\r\n      DO 930 J = 1,3\r\n      V(I,J) = 0.0\r\n      DO 930 K = 1,NNODE\r\n      KTEMP = K + IPOINT\r\n      JTEMP = J + 1\r\n      V(I,J)= V(I,J) + DSHP(KTEMP)*BGPDT(JTEMP,K)\r\n  930 CONTINUE\r\nC\r\nC     COMPUTE S CROSS T AT THE MID-SURFACE FOR MASS CALCULATIONS.\r\nC\r\n      V(3,1) = V(1,2)*V(2,3) - V(2,2)*V(1,3)\r\n      V(3,2) = V(1,3)*V(2,1) - V(2,3)*V(1,1)\r\n      V(3,3) = V(1,1)*V(2,2) - V(2,1)*V(1,2)\r\n      AREA2  = V(3,1)*V(3,1) + V(3,2)*V(3,2) + V(3,3)*V(3,3)\r\nC\r\nC     AREA2 = NORM OF S CROSS T IS THE AREA OF THE ELEMENT\r\nC     AS COMPUTED AT THIS GAUSS POINT.\r\nC\r\nCWKBR spr 93015  IF (AREA2 .LT. EPS1) GO TO 1700\r\n      IF ( AREA2 .LE. 0.0 ) GO TO 1700\r\nC\r\n      AREA2 = SQRT(AREA2)\r\n      AREA  = AREA + AREA2\r\n      VOLI  = AREA2*THK\r\n      VOL   = VOL + VOLI\r\nC\r\n      IF (MGG1   .EQ. 0) GO TO 1020\r\n      IF (CPMASS .GT. 0) GO TO 1000\r\n      I4 = 1\r\n      DO 960 J4 = 1,NNODE\r\n      XMASS(I4) = XMASS(I4) + VOLI*RHOX*SHP(J4)\r\n  960 I4 = I4 + NNODE + 1\r\n      GO TO 1020\r\nC\r\nC     COMPUTE CONSISTENT MASS MATRIX\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE MASS MATRIX\r\nC     FROM THIS INTEGRATION POINT.\r\nC\r\n 1000 CALL GMMATS (SHP,1,NNODE,1,SHP,1,NNODE,0,XMTMP)\r\nC\r\nC     ADD MASS CONTRIBUTION FROM THIS INTEGRATION POINT\r\nC     TO THE ELEMENT MASS MATRIX.\r\nC\r\n      DO 1010 I = 1,NODESQ\r\n 1010 XMASS(I) = XMASS(I) + VOLI*RHOX*XMTMP(I)\r\nC\r\n 1020 IF (KGG1 .EQ. 0) GO TO 1330\r\nC\r\nC     BEGIN STIFFNESS COMPUTATIONS\r\nC\r\nC     SET DEFAULT VALUES OF CSUBB FACTORS\r\nC\r\n      SFCTY1 = 1.0\r\n      SFCTY2 = 1.0\r\n      SFCTX1 = 1.0\r\n      SFCTX2 = 1.0\r\n      TSMFX  = 1.0\r\n      TSMFY  = 1.0\r\n      IF (NOCSUB) GO TO 1090\r\n      IF (.NOT.BENDNG) GO TO 1090\r\nC      NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0\r\nC      NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0\r\nCWKBNB 2/94 SPR93020\r\n      NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0\r\n      NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0\r\nCWKBNE 2/94 SPR93020\r\nC\r\nC     NOTE- THE ABOVE EXPRESSIONS FOR NUNORX AND NUNORY WERE MODIFIED\r\nC           BY G.CHAN/UNISYS    1988\r\nC\r\nCWKBDB 2/94 SPR93020\r\nC      EIX = MOMINR*ENORX\r\nC      EIY = MOMINR*ENORY\r\nC      TGX = 2.0*GNORX\r\nC      TGY = 2.0*GNORY\r\nC      NUNORX = EIX/TGX - 1.0\r\nC      NUNORY = EIY/TGY - 1.0\r\nC      IF (EIX .GT. TGX) NUNORX = 1.0 - TGX/EIX\r\nC      IF (EIY .GT. TGY) NUNORY = 1.0 - TGY/EIY\r\nCWKBDE 2/94 SPR93020\r\n      IF (NUNORX .GT. 0.999999) NUNORX = 0.999999\r\n      IF (NUNORY .GT. 0.999999) NUNORY = 0.999999\r\nCWKBNB 2/94 SPR93020\r\n      IF ( NUNORX .LE. 0. ) NUNORX = DNUX\r\n      IF ( NUNORY .LE. 0. ) NUNORY = DNUY\r\nCWKBNE 2/94 SPR93020\r\nC     IF (NUNORX .GT. .49) NUNORX = 0.49\r\nC     IF (NUNORY .GT. .49) NUNORY = 0.49\r\n      CC = ASPECT\r\nC\r\nC     NOTE- THE FOLLOWING 2 FORMULATIONS WERE PUT IN ON 4/30/85 IN\r\nC           CONJUNCTION WITH THE OUT-OF-PLANE SHEAR CORRECTION A LA\r\nC           HUGHES. THE FLEXIBLE SOLUTION PROVIDES MORE ACCURATE\r\nC           RESULTS FOR PLATES, ALTHOUGH IT MIGHT CONVERGE SLOWLY.\r\nC           THE STIFFER SOLUTION (COMMENTED OUT) IS O.K. FOR PLATES\r\nC           AND SHOULD HAVE A BETTER CONVERGENCE.\r\nC\r\nC           THEY WERE MODIFIED ON 5/3/85\r\nC\r\nC\r\nC     4-NODE CSUBB FORMULATION AS OF 5/3/85 (FLEXIBLE SOLUTION)\r\nC     REPLACES THE ONE COMMENTED OUT IMMEDIATELY ABOVE\r\nC\r\n      W1 = 1.0 + 4400.0*THLEN*THLEN*THLEN*THLEN\r\n      IF (CC .LT. 0.2) GO TO 1030\r\n      DSUB4 = (18.375-11.875*CC)*W1\r\n      GO TO 1040\r\n 1030 DSUB4 = (159.85*CC-15.97)*W1\r\nC\r\nC     4-NODE CSUBB FORMULATION AS OF 5/3/85 (STIFFER SOLUTION)\r\nC\r\nC     W1 = 1.0 + 2.5*THLEN + 1.04*THLEN**5\r\nC     IF (CC .LT. 0.2) GO TO 1030\r\nC     DSUB4 = 18.0*W1\r\nC     GO TO 1040\r\nC1030 DSUB4 = (179.85*CC-17.97)*W1\r\n 1040 IF (DSUB4 .LT.   0.01) DSUB4 = 0.01\r\n      IF (DSUB4 .GT. 2000.0) DSUB4 = 2000.0\r\n      DSUB  = DSUB4\r\n      COEFT = CONST\r\n      AX    = A\r\n      IF (ETA .LT. 0.0) AX = A + COEFT*(XA(2)-XA(1)-A)\r\n      IF (ETA .GT. 0.0) AX = A + COEFT*(XA(3)-XA(4)-A)\r\n      PSIINX = 20.0*DSUB*REALI*SINEAX*(1.0+ASPECT*ASPECT)/\r\n     1         (TSI*(1.0-NUNORX)*AX*AX)\r\n      DSUB  = DSUB4\r\n      COEFT = CONST\r\n      BY    = B\r\n      IF (XI .LT. 0.0) BY = B + COEFT*(YB(4)-YB(1)-B)\r\n      IF (XI .GT. 0.0) BY = B + COEFT*(YB(3)-YB(2)-B)\r\n      PSIINY = 20.0*DSUB*REALI*SINEAY*(1.0+ASPECT*ASPECT)/\r\n     1         (TSI*(1.0-NUNORY)*BY*BY)\r\n      IF (.NOT.SHRFLX) GO TO 1050\r\n      TSMFX = PSIINX/(1.0+PSIINX)\r\n      TSMFY = PSIINY/(1.0+PSIINY)\r\n      GO TO 1060\r\n 1050 TSMFX = PSIINX\r\n      TSMFY = PSIINY\r\n      GO TO 1060\r\nC\r\n 1060 CONTINUE\r\n      IF (TSMFX .LE. 0.0) TSMFX = EPS1\r\n      IF (TSMFY .LE. 0.0) TSMFY = EPS1\r\nC\r\nC     FILL IN THE 7X7 MATERIAL PROPERTY MATRIX D FOR NORPTH\r\nC\r\n      IF (.NOT.NORPTH) GO TO 1090\r\n      DO 1070 IG = 1,7\r\n      DO 1070 JG = 1,7\r\n 1070 DFOUR(IG,JG) = 0.0\r\nC\r\n      DO 1080 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1080 JG = 1,3\r\n      JG1 = JG + IG1\r\n 1080 DFOUR(IG,JG) = GI(JG1)\r\n      GO TO 1150\r\nC\r\nC     FILL IN THE 10X10 G-MATRIX WHEN MID4 IS NOT PRESENT\r\nC\r\n 1090 DO 1100 IG = 1,10\r\n      DO 1100 JG = 1,10\r\n 1100 GFOUR(IG,JG) = 0.0\r\n      IF (MBCOUP) GO TO 1150\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1120\r\n      DO 1110 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1110 JG = 1,3\r\n      JG1 = JG + IG1\r\n 1110 GFOUR(IG,JG) = GI(JG1)\r\nC\r\n 1120 IF (.NOT.BENDNG) GO TO 1250\r\n      DO 1130 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 1130 JG = 4,6\r\n      JG2 = JG + IG2\r\n 1130 GFOUR(IG,JG) = GI(JG2)*MOMINR\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1150\r\n      DO 1140 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      KG  = IG + 3\r\n      DO 1140 JG = 1,3\r\n      JG1 = JG + IG1\r\n      LG  = JG + 3\r\n      GFOUR(IG,LG) = GI(JG1)\r\n 1140 GFOUR(KG,JG) = GI(JG1)\r\n 1150 CONTINUE\r\nC\r\nC     IRREGULAR 4-NODE CODE-  CALCULATION OF NODAL EDGE SHEARS\r\nC                             AT THIS INTEGRATION POINT\r\nC\r\n      DO 1210 IJ = 1,4\r\n      II = IJ - 1\r\n      IF (II .EQ. 0) II = 4\r\n      IK = IJ + 1\r\n      IF (IK .EQ. 5) IK = 1\r\nC\r\n      DO 1160 IR = 1,4\r\n      IF (IJ .NE. IORDER(IR)) GO TO 1160\r\n      IOJ = IR\r\n      GO TO 1170\r\n 1160 CONTINUE\r\n 1170 DO 1180 IR = 1,4\r\n      IF (IK .NE. IORDER(IR)) GO TO 1180\r\n      IOK = IR\r\n      GO TO 1190\r\n 1180 CONTINUE\r\n 1190 AA = SHP(IOJ)\r\n      BB = SHP(IOK)\r\nC\r\n      DO 1200 IS = 1,3\r\n      EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/\r\n     1                (1.0-ANGLEI(IJ)*ANGLEI(IJ))\r\n     2              + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/\r\n     3                (1.0-ANGLEI(IK)*ANGLEI(IK))\r\n 1200 CONTINUE\r\n 1210 CONTINUE\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     SET-UP OF EXPANDED SHEAR MATERIAL PROPERTY MATRICES (G OR D)\r\nC\r\n      CSUBX  = 20.0*REALI/(TSI*(1.0-NUNORX)*A*A)\r\n      CSUBY  = 20.0*REALI/(TSI*(1.0-NUNORY)*B*B)\r\n      SFCTR1 = CSUBB4*CSUBX\r\n      SFCTR2 = CSUBTX*CSUBX\r\n      IF (.NOT.SHRFLX) GO TO 1220\r\n      SFCTR1 = SFCTR1/(1.0+SFCTR1)\r\n      SFCTR2 = SFCTR2/(1.0+SFCTR2)\r\n 1220 CONTINUE\r\n      SFCTX1 = SFCTR1 + SFCTR2\r\n      SFCTX2 = SFCTR1 - SFCTR2\r\n      SFCTR1 = CSUBB4*CSUBY\r\n      SFCTR2 = CSUBTY*CSUBY\r\n      IF (.NOT.SHRFLX) GO TO 1230\r\n      SFCTR1 = SFCTR1/(1.0+SFCTR1)\r\n      SFCTR2 = SFCTR2/(1.0+SFCTR2)\r\n 1230 CONTINUE\r\n      SFCTY1 = SFCTR1 + SFCTR2\r\n      SFCTY2 = SFCTR1 - SFCTR2\r\nC\r\nC     FILL IN THE EXPANDED MATERIAL PROPERTY MATRIX\r\nC\r\n      IF (NORPTH) GO TO 1240\r\n      GFOUR( 7, 7) = 0.25*SFCTY1*TS*GI(19)\r\n      GFOUR( 8, 8) = 0.25*SFCTY1*TS*GI(19)\r\n      GFOUR( 8, 7) = 0.25*SFCTY2*TS*GI(19)\r\n      GFOUR( 7, 8) = GFOUR(8,7)\r\n      GFOUR( 9, 9) = 0.25*SFCTX1*TS*GI(22)\r\n      GFOUR(10,10) = 0.25*SFCTX1*TS*GI(22)\r\n      GFOUR(10, 9) = 0.25*SFCTX2*TS*GI(22)\r\n      GFOUR( 9,10) = GFOUR(10,9)\r\n      GFOUR( 7, 9) = SQRT(TSMFX*TSMFY)*TS*GI(20)\r\n      GFOUR( 9, 7) = GFOUR(7,9)\r\n      GO TO 1250\r\nC\r\n 1240 DFOUR(4,4) = 0.25*SFCTY1*TS*GI(19)\r\n      DFOUR(5,5) = 0.25*SFCTY1*TS*GI(19)\r\n      DFOUR(5,4) = 0.25*SFCTY2*TS*GI(19)\r\n      DFOUR(4,5) = DFOUR(5,4)\r\n      DFOUR(6,6) = 0.25*SFCTX1*TS*GI(22)\r\n      DFOUR(7,7) = 0.25*SFCTX1*TS*GI(22)\r\n      DFOUR(7,6) = 0.25*SFCTX2*TS*GI(22)\r\n      DFOUR(6,7) = DFOUR(7,6)\r\n      DFOUR(4,6) = SQRT(TSMFX*TSMFY)*TS*GI(20)\r\n      DFOUR(6,4) = DFOUR(4,6)\r\n 1250 CONTINUE\r\nC\r\nC     DO 1300 IZTA = 1,JZTA\r\n      DO 1300 IZTA = 1,2\r\n      ZTA  = PTINT(IZTA)\r\n      IBOT = (IZTA-1)*ND2\r\nC\r\n      HZTA = ZTA/2.0\r\nC\r\nC     TORSION-RELATED SHEAR CORRECTION FOR 4-NODE-\r\nC     SET-UP OF POINTERS TO THE SAVED B-MATRIX\r\nC\r\n      IPTX1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT\r\n      IPTX2 = ((IXSI-1)*2+2-IETA)*2*ND2 + IBOT\r\n      IPTY1 = ((IXSI-1)*2+IETA-1)*2*ND2 + IBOT\r\n      IPTY2 = ((2-IXSI)*2+IETA-1)*2*ND2 + IBOT\r\nC     IF (NORPTH) IBOT = IBOT/2\r\nC\r\nC     FILL IN THE 10X10 G-MATRIX IF MID4 IS PRESENT\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 1290\r\n      DO 1260 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1260 JG = 1,3\r\n      JG1 = JG  + IG1\r\n      JG4 = JG1 + 27\r\n 1260 GFOUR(IG,JG) = GI(JG1)\r\nC\r\n      DO 1270 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 1270 JG = 4,6\r\n      JG2 = JG  + IG2\r\n      JG4 = JG2 + 18\r\n 1270 GFOUR(IG,JG) = GI(JG2)*MOMINR\r\nC\r\n      DO 1280 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      KG  = IG + 3\r\n      DO 1280 JG = 1,3\r\n      JG4 = JG  + IG4\r\n      JG1 = JG4 - 27\r\n      LG  = JG  + 3\r\n      GFOUR(IG,LG) =-GI(JG4)*ZTA*6.0+GI(JG1)\r\n 1280 GFOUR(KG,JG) =-GI(JG4)*ZTA*6.0+GI(JG1)\r\n 1290 CONTINUE\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1710\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION\r\nC     BETWEEN INVER AND GMMAT.\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B-MATRIX.  SET THE ROW FLAG TO 3.\r\nC     IT WILL RETURN THE FIRST 6 ROWS OF B-MATRIX.\r\nC\r\n      ROWFLG = 3\r\n      CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BFOUR(1))\r\nC\r\nC     SET-UP OF B-MATRIX AND TRIPLE MULTIPLY\r\nC\r\n      CALL TRPLMS (GFOUR,DFOUR,BFOUR,BMAT1,XYBMAT,MATTYP,JCORED,DETJ)\r\n 1300 CONTINUE\r\n 1310 CONTINUE\r\nC\r\nC     EQUALIZE THE OFF-DIAGONAL TERMS TO GUARANTEE PERFECT SYMMETRIC\r\nC     MATRIX IF NO DAMPING INVOLVED\r\nC\r\n      IF (GSUBE .NE. 0.0) GO TO 1330\r\n      IJ = JCORED - 1\r\n      NDOFM1 = NDOF - 1\r\n      DO 1320 II = 1,NDOFM1\r\n      IP1 = II + 1\r\n      IM1 =(II-1)*NDOF + IJ\r\n      DO 1320 JJ = IP1,NDOF\r\n      I = IM1 + JJ\r\n      J = (JJ-1)*NDOF + II + IJ\r\n      TEMP = (AKGG(I) + AKGG(J))*.5\r\n      IF (ABS(TEMP) .LT. 1.0E-17) TEMP = 0.0\r\n      AKGG(I) = TEMP\r\n      AKGG(J) = TEMP\r\n 1320 CONTINUE\r\nC\r\nC     END OF STIFFNESS LOOP\r\nC\r\nC     ADD NON-STRUCTURAL MASS\r\nC\r\n 1330 CONTINUE\r\n      IF (MGG1 .EQ. 0) GO TO 1410\r\n      IF (RHO.EQ.0.0 .AND. NSM.EQ.0.0) GO TO 1410\r\nC     IF (CPMASS .GT. 0) GO TO 1410\r\n      IF (NSM  .EQ. 0.0) GO TO 1410\r\n      IF (VOL.EQ.0. .OR. RHOX.EQ.0.) WRITE (NOUT,2060) SFM,ELID,AREA,\r\n     1                               VOL,RHOX,MGG1,KGG1\r\n      FACTOR = (VOL*RHO+NSM*AREA)/(VOL*RHOX)\r\n      DO 1400 I = 1,NODESQ\r\n 1400 XMASS(I) = XMASS(I)*FACTOR\r\n 1410 CONTINUE\r\nC\r\nC     PICK UP THE GLOBAL TO BASIC TRANSFORMATIONS FROM THE CSTM.\r\nC\r\n      DO 1412 I = 1,36\r\n 1412 TRANS(I) = 0.0\r\nC     DO 1414 I = 2,8\r\nC1414 TRANS1(I) = 0.0\r\nC     TRANS1(1) = 1.0\r\nC     TRANS1(5) = 1.0\r\nC     TRANS1(9) = 1.0\r\nC\r\n      DO 1450 I = 1,NNODE\r\n      NOTRAN(I) = 0\r\n      IPOINT = 9*(I-1) + 1\r\n      IF (IGPDT(1,I) .LE. 0) GO TO 1420\r\n      IGPTH(1) = IGPDT(1,I)\r\n      GPTH(2)  = BGPDT(2,I)\r\n      GPTH(3)  = BGPDT(3,I)\r\n      GPTH(4)  = BGPDT(4,I)\r\nC\r\nC     NOTE THAT THE 6X6 TRANSFORMATION WHICH WILL BE USED LATER\r\nC     IN THE TRIPLE MULTIPLICATION TO TRANSFORM THE ELEMENT\r\nC     STIFFNESS MATRIX FROM BASIC TO GLOBAL COORDINATES, IS BUILT\r\nC     UPON THE 3X3 TRANSFORMATION FROM GLOBAL TO BASIC TBG-MATRIX.\r\nC     THIS IS DUE TO THE DIFFERENCE IN TRANSFORMATION OF ARRAYS\r\nC     AND MATRICES.\r\nC\r\n      CALL TRANSS (GPTH,TBG)\r\n      CALL GMMATS (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT))\r\n      GO TO 1450\r\nC\r\n 1420 IF (IDENTT.NE.1 .OR. OFFSET.NE.0.0) GO TO 1430\r\n      NOTRAN(I) = 1\r\n      GO TO 1450\r\nC\r\n 1430 DO 1440 J = 1,9\r\n 1440 TRANS(IPOINT+J-1) = TEB(J)\r\n 1450 CONTINUE\r\nC\r\nC\r\nC     HERE WE SHIP OUT THE STIFFNESS AND DAMPING MATRICES.\r\nC     ---------------------------------------------------\r\nC\r\n      IF (KGG1 .EQ. 0) GO TO 1600\r\nC\r\nC     SET UP I-LOOP TO DUMP OUT BASIC TO GLOBAL TRANSFORMED, NODAL\r\nC     PARTITIONED (6 D.O.F. PER NODE) COLUMNS OF THE ELEMENT STIFFNESS.\r\nC\r\nC     THIS MEANS WE ARE SENDING TO EMGOUT 6 COLUMNS OF THE ELEMENT\r\nC     STIFFNESS MATRIX AT TIME.  EACH BUNCH OF 6 COLUMNS CORRESPOND\r\nC     TO ONE PARTICULAR NODE OF THE ELEMENT. FOR THE MASS MATRIX, WE\r\nC     ONLY SEND 3 COLUMNS PER NODE TO EMGOUT SINCE THE OTHER 3 D.O.F.\r\nC     ARE ZERO ANYWAY.  THE CODE WORD (DICT(4)) TELLS EMGOUT WHICH\r\nC     COLUMNS ARE THE NON ZERO ONES THAT WE ARE SENDING. (SEE SECTION\r\nC     6.8.3.5.1 OF THE PROGRAMMER MANUAL)\r\nC\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 63\r\n      NPART   = NDOF*6\r\n      DO 1560 I = 1,NNODE\r\n      IBEGIN = 6*(I-1) + JCORED - 1\r\nC\r\nC     DUMP AN UNTRANSFORMED NODAL COLUMN PARTITION.\r\nC\r\n      DO 1500 J = 1,NDOF\r\n      KPOINT = NDOF*(J-1) + IBEGIN\r\n      LPOINT = 6*(J-1)\r\n      DO 1500 K = 1,6\r\n 1500 COLSTF(LPOINT+K) = AKGG(KPOINT+K)\r\n      IF (NOTRAN(I) .EQ. 1) GO TO 1515\r\nC\r\nC     THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED TO GLOBAL\r\nC     COORDINATES. (SEE PAGE 2.3-43 OF THE PROGRAMMER)\r\nC\r\nC     LOAD THE 6X6 TRANSFORMATION\r\nC\r\n      CALL TLDRS (OFFSET,I,TRANS,TRANS1)\r\nC\r\nC     TRANSFORM THE NODAL COLUMN PARTITION.\r\nC\r\n      CALL GMMATS (COLSTF,NDOF,6,0,TRANS1,6,6,0,COLTMP)\r\n      DO 1510 II = 1,NPART\r\n 1510 COLSTF(II) = COLTMP(II)\r\nC\r\nC     NOW TRANSFORM THE ROWS OF THIS PARTITION.\r\nC\r\n 1515 DO 1530 M = 1,NNODE\r\n      IF (NOTRAN(M) .EQ. 1) GO TO 1530\r\n      MPOINT = 36*(M-1) + 1\r\nC\r\nC     LOAD THE 6X6 TRANSFORMATION\r\nC\r\n      CALL TLDRS (OFFSET,M,TRANS,TRANS1)\r\nC\r\nC     TRANSFORM THE 6 ROWS FOR THIS SUBPARTITION\r\nC\r\n      CALL GMMATS (TRANS1,6,6,1,COLSTF(MPOINT),6,6,0,COLTMP)\r\n      IIPNT = MPOINT - 1\r\n      DO 1520 II = 1,36\r\n 1520 COLSTF(IIPNT+II) = COLTMP(II)\r\n 1530 CONTINUE\r\nC\r\nC     HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION\r\nC     FOR GMMATS TO THE COLUMN LOADING CONVENTION FOR EMGOUT.\r\nC\r\n      DO 1550 II = 1,6\r\n      IPOINT = NDOF*(II-1)\r\n      DO 1550 JJ = 1,NDOF\r\n      JPOINT = 6*(JJ-1)\r\n      COLTMP(IPOINT+JJ) = COLSTF(JPOINT+II)\r\n 1550 CONTINUE\r\nC\r\nC     DUMP THE TRANSFORMED NODAL COLUMN PARTITION\r\nC\r\n      IEOE = 0\r\n      IF (I .EQ. NNODE) IEOE = 1\r\n      ADAMP = GSUBE\r\nC\r\nC     INTEGER 1 IN THE NEXT TO LAST FORMAL PARAMETER OF\r\nC     EMGOUT MEANS WE ARE SENDING STIFFNESS DATA.\r\nC\r\n      CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,1,IPREC)\r\n 1560 CONTINUE\r\nC\r\nC\r\nC     HERE WE SHIP OUT THE MASS MATRIX.\r\nC     --------------------------------\r\nC\r\n 1600 IF (MGG1 .EQ. 0) GO TO 1710\r\nC\r\n      NDOF  = NNODE*3\r\n      NPART = NDOF*3\r\n      DICT(3) = NDOF\r\n      DICT(4) = 7\r\n      ADAMP = 0.0\r\nC\r\nC     SET UP I-LOOP TO PROCESS AND DUMP THE NODAL COLUMN PARTITIONS.\r\nC\r\n      DO 1690 I = 1,NNODE\r\n      DO 1610 IJK = 1,NPART\r\n 1610 AMGG(JCORED-1+IJK) = 0.0\r\nC\r\nC     SET UP J-LOOP TO LOAD THE UNTRANSFORMED NODAL COLUMN PARTITION.\r\nC\r\n      DO 1620 J = 1,NNODE\r\n      IPOINT = 9*(J-1) + JCORED\r\n      JPOINT = IPOINT  + 4\r\n      KPOINT = IPOINT  + 8\r\n      IFROM  = NNODE*(J-1) + I\r\n      XMASSO = XMASS(IFROM)\r\n      AMGG(IPOINT) = XMASSO\r\n      AMGG(JPOINT) = XMASSO\r\n      AMGG(KPOINT) = XMASSO\r\n 1620 CONTINUE\r\n      IF (NOTRAN(I) .EQ. 1) GO TO 1670\r\nC\r\nC     THIS COLUMN PARTITION NEEDS TO BE TRANSFORMED\r\nC     TO GLOBAL COORDINATES.\r\nC\r\n      DO 1640 M = 1,NNODE\r\n      MPOINT = 9*(M-1) + JCORED\r\n      CALL GMMATS (AMGG(MPOINT),3,3,0,TRANS(9*I-8),3,3,0,TMPMAS)\r\n      IICORE = MPOINT - 1\r\n      DO 1630 K = 1,9\r\n 1630 AMGG(IICORE+K) = TMPMAS(K)\r\n 1640 CONTINUE\r\nC\r\nC     SET UP M-LOOP TO TRANSFORM THE NODAL ROW PARTITIONS\r\nC     OF THIS NODAL COLUMN PARTITION.\r\nC\r\n      DO 1660 M = 1,NNODE\r\n      MPOINT = 9*(M-1) + JCORED\r\nC\r\nC     TRANSFORM THE 3 ROWS FOR THIS SUBPARTITION.  THIS IS CORRECT\r\nC     (3 ROWS).  REMEMBER THAT FOR THE MASS MATIIX FOR THIS ELEMENT\r\nC     THERE ARE NO MASS MOMENT OF INERTIA TERMS.  THIS GIVES THREE\r\nC     ROWS OF ZERO TERMS INTERSPERSED BETWEEN 3 ROWS OF NONZERO\r\nC     TRANSLATIONAL MASS TERMS FOR EACH NODE.\r\nC\r\n      CALL GMMATS (TRANS(9*M-8),3,3,1,AMGG(MPOINT),3,3,0,TMPMAS)\r\n      IICORE = MPOINT - 1\r\n      DO 1650 K = 1,9\r\n 1650 AMGG(IICORE+K) = TMPMAS(K)\r\n 1660 CONTINUE\r\nC\r\nC     HERE WE MUST CHANGE FROM THE ROW LOADING CONVENTION\r\nC     FOR GMMATS TO THE COLUMN LOADING CONVENTION FOR EMGOUT.\r\nC\r\n 1670 DO 1680 II = 1,3\r\n      IPOINT = NDOF*(II-1)\r\n      DO 1680 JJ = 1,NDOF\r\n      JPOINT = 3*(JJ-1) + JCORED - 1\r\n 1680 COLTMP(IPOINT+JJ) = AMGG(JPOINT+II)\r\nC\r\nC     DUMP THIS TRANSFORMED MASS NODAL COLUMN PARTITION.\r\nC\r\n      IEOE = 0\r\n      IF (I .EQ. NNODE) IEOE = 1\r\nC\r\nC     INTEGER 2 IN THE NEXT TO LAST FORMAL PARAMETER OF\r\nC     EMGOUT MEANS WE ARE SENDING MASS DATA.\r\nC\r\n      CALL EMGOUT (COLTMP,COLTMP,NPART,IEOE,DICT,2,IPREC)\r\n 1690 CONTINUE\r\n      GO TO 1710\r\nC\r\n 1700 J = 230\r\n      GO TO 1720\r\nC\r\n 1710 CONTINUE\r\n      RETURN\r\nC\r\n 1720 CALL MESAGE (30,J,NEST)\r\n      IF (L38 .EQ. 1) CALL MESAGE (-61,0,0)\r\n      NOGO = .TRUE.\r\n      GO TO 1710\r\n 1730 CALL MESAGE (-30,234,NAM)\r\nC\r\nC\r\nC     HEAT FLOW OPTION STARTS HERE.\r\nC\r\nC     WE NEED TO RESTORE THE ORIGIANL ORDER OF SILS AND BGPDT DATA\r\nC\r\n 1790 J = 1\r\n      DO 1800 I = 1,20\r\n      EST(I+J) = SAVE(I)\r\n      IF (I .EQ. 4) J = 24\r\n 1800 CONTINUE\r\nC\r\n      INFLAG = 2\r\n      COSMAT = 1.0\r\n      SINMAT = 0.0\r\n      MATID  = NEST(13)\r\n      CALL HMAT (ELID)\r\n      GI(1) = KHEAT(1)\r\n      GI(2) = KHEAT(2)\r\n      GI(3) = GI(2)\r\n      GI(4) = KHEAT(3)\r\n      ANIS  = TYPE.NE.4 .AND. TYPE.NE.-1\r\nC     OMMENT . ANIS = .FALSE. MEANS ISOTROPIC THERMAL CONDUCTIVITY.\r\n      IF (ANIS) GO TO 400\r\n      GO TO 1820\r\n 1810 CONTINUE\r\n      TEM(3) = TEM(4)\r\n      TEM(4) = TEM(5)\r\n      CALL GMMATS (TEM,2,2,0,GI,2,2,0,GT)\r\n      CALL GMMATS (GT,2,2,0,TEM,2,2,1,GI)\r\n 1820 CONTINUE\r\n      DO 1830 I = 1,16\r\n      HTCON(I) = 0.0\r\n      HTCAP(I) = 0.0\r\n 1830 CONTINUE\r\n      DO 1840 I = 5,8\r\n      HSIL(I) = 0\r\n 1840 HORDER(I) = 0\r\nC\r\n      DO 1890 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\n      DO 1890 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\nC\r\n      DO 1870 IZTA = 1,2\r\n      ZETA = PTINT(IZTA)\r\nC\r\n      CALL TERMSS (NNODE,DGPTH,EPNORM,EGPDT,HORDER,HSIL,BTERMS)\r\n      DVOL = DETERM\r\nC\r\n      DO 1850 I = 1,4\r\n 1850 ECPT(I) = GI(I)*DVOL\r\n      WEITC = DVOL*HTCP\r\nC\r\n      IP = 1\r\n      DO 1860 I = 1,NNODE\r\n      IDN = I + NNODE\r\n      HTFLX(IP+1) = ECPT(3)*BTERMS(I) + ECPT(4)*BTERMS(IDN)\r\n      HTFLX(IP  ) = ECPT(1)*BTERMS(I) + ECPT(2)*BTERMS(IDN)\r\n 1860 IP = IP + 2\r\n      CALL GMMATS (BTERMS,2,NNODE,-1,HTFLX,NNODE,2,1,HTCON)\r\nC\r\n 1870 CONTINUE\r\n      IF (HTCP .EQ. 0.0) GO TO 1890\r\n      IP = 0\r\n      DO 1880 I = 1,NNODE\r\n      DHEAT = WEITC*SHP(I)\r\n      DO 1880 J = 1,NNODE\r\n      IP = IP + 1\r\n      HTCAP(IP) = HTCAP(IP) + DHEAT*SHP(J)\r\n 1880 CONTINUE\r\n 1890 CONTINUE\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NNODE\r\n      DICT(4) = 1\r\n      IF (HTCP .EQ. 0.0) GO TO 1900\r\n      ADAMP = 1.0\r\n      CALL EMGOUT (HTCAP,HTCAP,NODESQ,1,DICT,3,IPREC)\r\n 1900 CONTINUE\r\n      ADAMP = 0.0\r\n      CALL EMGOUT (HTCON,HTCON,NODESQ,1,DICT,1,IPREC)\r\n      GO TO 1710\r\nC\r\n 2010 FORMAT (A23,', THE ELEMENT THICKNESS FOR QUAD4 EID =',I9,\r\n     1       ' IS NOT COMPLETELY DEFINED.')\r\n 2030 FORMAT (A25,', RHO = ',1PD12.4,' IS ILLEGAL FROM MATERIAL ID =',\r\n     1       I9,' FOR QUAD4 EID =',I9)\r\n 2060 FORMAT (A25,', ZERO VOLUME OR DENSITY FOR QUAD4 ELEMENT ID =',I9,\r\n     1       ', AREA,VOL,RHO=',3E12.3, /70X,'MGG1,KGG1=',2I8)\r\n      END\r\n"
  },
  {
    "path": "mis/qvol.f",
    "content": "      SUBROUTINE QVOL\r\nC\r\nC     CALCULATES THERMAL LOADS DUE TO QVOL CARDS\r\nC\r\n      INTEGER         IP(3),NSIL(8),MAP(4,14),SLT,REASON,TYPE,BG,OLD,\r\n     1                ORDER(8)\r\n      REAL            R(4,8),DATA4(4,9),P(8),D12(3),D13(3),D14(3),\r\n     1                CARD(12)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /LOADX / LC,SLT,BG,OLD,NX(12), IFM\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      EQUIVALENCE     (CONSTS(2),TWOPI),(NPTS,CARD(1)),(ID,CARD(2)),\r\n     1                (NSIL(1),CARD(3)),(COEF,CARD(11)),(TYPE,CARD(12)),\r\n     2                (R(1,1),DATA4(2,1)),(I1,IP(1)),(I2,IP(2)),\r\n     3                (I3,IP(3))\r\n      DATA    MAP   / 1  ,2  ,3  ,4  ,\r\n     1                1  ,2  ,3  ,6  ,\r\n     2                1  ,2  ,6  ,5  ,\r\n     3                1  ,4  ,5  ,6  ,\r\n     4                1  ,2  ,3  ,6  ,\r\n     5                1  ,3  ,4  ,8  ,\r\n     6                1  ,3  ,8  ,6  ,\r\n     7                1  ,5  ,6  ,8  ,\r\n     8                3  ,6  ,7  ,8  ,\r\n     9                2  ,3  ,4  ,7  ,\r\n     O                1  ,2  ,4  ,5  ,\r\n     1                2  ,4  ,5  ,7  ,\r\n     2                2  ,5  ,6  ,7  ,\r\n     3                4  ,5  ,7  ,8  /\r\nC\r\nC     READ AND PROCESS ONE ELEMENT OF ONE QVOL CARD PER CALL\r\nC     THE LOAD COEFFICIENTS ARE GENERATED AND INSERTED HERE\r\nC\r\nC     THE INPUT DATA ON FILE SLT IS\r\nC\r\nC     FIELD       DATA\r\nC       1         NO. OF POINTS\r\nC       2         EL. ID.\r\nC      3-10       1 TO 8 SILS\r\nC                        *  A*Q  FOR  TYPE=1 (RODS,ETC)\r\nC       11        COEF = *  T*Q  FOR  TYPE=2 (TRIANGLES ETC)\r\nC                        *    Q  FOR  TYPE=3 (BELL) OR 4 (SOLID)\r\nC       12        TYPE\r\nC\r\n      CALL FREAD (SLT,CARD,12,0)\r\n      REASON = 1\r\n      IF (NPTS .LE. 1) GO TO 240\r\n      CALL PERMUT (NSIL(1),ORDER(1),NPTS,OLD)\r\n      REASON = 2\r\n      DO 10 I = 1,NPTS\r\n      L = ORDER(I)\r\n      CALL FNDPNT (DATA4(1,L),NSIL(L))\r\n      N = NSIL(L)\r\n      CALL FNDSIL (N)\r\n      IF (N .NE. NSIL(L)) GO TO 240\r\n      P(I) = 0.0\r\n   10 CONTINUE\r\n      REASON = 3\r\n      IF (TYPE.LT.1 .OR. TYPE.GT.4) GO TO 240\r\n      GO TO (20,40,40,120), TYPE\r\nC\r\nC     RODS, CONRODS, TUBES, BARS\r\nC\r\n   20 EL = 0.0\r\n      DO 30 I = 1,3\r\n   30 EL = EL + (R(I,1) - R(I,2))**2\r\n      P(1) = COEF*SQRT(EL)*0.5\r\n      P(2) = P(1)\r\n      GO TO 200\r\nC\r\nC     MEMBRANES, PLATES, AND AXISYMMETRIC SOLIDS\r\nC\r\n   40 IF (NPTS .EQ. 3) GO TO 50\r\n      IF (NPTS .EQ. 4) GO TO 60\r\n      REASON = 4\r\n      GO TO 240\r\n   50 NEL  = 1\r\n      FACT =  COEF/6.0\r\n      GO TO 70\r\n   60 NEL  = 4\r\n      FACT =  COEF/12.0\r\n   70 DO 110 IEL = 1,NEL\r\n      DO 80 I = 1,3\r\n      IP(I) = I + IEL - 1\r\n      IF (IP(I) .GT. 4) IP(I) = IP(I) - 4\r\n   80 CONTINUE\r\n      DO 90 I = 1,3\r\n      D12(I) = R(I,I2) - R(I,I1)\r\n   90 D13(I) = R(I,I3) - R(I,I1)\r\n      CALL SAXB (D12(1),D13(1),D12(1))\r\n      EL =  FACT*SQRT(D12(1)**2 + D12(2)**2 + D12(3)**2)\r\n      IF (TYPE .EQ. 2) GO TO 100\r\nC\r\nC     SPECIAL FACTOR FOR  AXISYMMETRIC ELEMENTS\r\nC\r\n      EL    = EL*TWOPI*(R(1,I1) + R(1,I2) + R(1,I3))/3.0\r\n  100 P(I1) = P(I1) + EL\r\n      P(I2) = P(I2) + EL\r\n      P(I3) = P(I3) + EL\r\n  110 CONTINUE\r\n      GO TO 200\r\nC\r\nC     SOLID ELEMENTS\r\nC\r\n  120 IF (NPTS .EQ. 4) GO TO 130\r\n      IF (NPTS .EQ. 6) GO TO 140\r\n      IF (NPTS .EQ. 8) GO TO 150\r\n      REASON = 5\r\n      GO TO 240\r\n  130 NEL  = 1\r\n      FACT = COEF/24.0\r\n      IMAP = 1\r\n      GO TO 160\r\n  140 NEL  = 3\r\n      IMAP = 2\r\n      FACT = COEF/24.0\r\n      GO TO 160\r\n  150 IMAP = 5\r\n      NEL  = 10\r\n      FACT = COEF/48.0\r\n  160 DO 190 IEL = 1,NEL\r\n      IM = IMAP + IEL - 1\r\n      I1 =  MAP(1,IM)\r\n      I2 =  MAP(2,IM)\r\n      I3 =  MAP(3,IM)\r\n      I4 =  MAP(4,IM)\r\n      DO 170  I = 1,3\r\nC\r\n       D12(I) = R(I,I2) - R(I,I1)\r\n       D13(I) = R(I,I3) - R(I,I1)\r\n  170  D14(I) = R(I,I4) - R(I,I1)\r\nC\r\n      CALL SAXB (D12(1),D13(1),D12(1))\r\n      EL = FACT*ABS(D12(1)*D14(1) + D12(2)*D14(2) + D12(3)*D14(3))\r\n      DO 180 I = 1,4\r\n      L = MAP(I,IM)\r\n  180 P(L) = P(L) + EL\r\n  190 CONTINUE\r\nC\r\nC     INSERT THE LOADS\r\nC\r\n  200 DO 210 I = 1,NPTS\r\n      ISIL = NSIL(I)\r\n      CORE(ISIL) = CORE(ISIL) + P(I)\r\n  210 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE\r\nC\r\n  240 WRITE  (IOUT,250) SFM,ID,REASON\r\n  250 FORMAT (A25,' 3093, ELEMENT =',I9,'.   REASON =',I7)\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rand1.f",
    "content": "      SUBROUTINE RAND1(FILE,MID,TYPE,ID,COMP,Q)\r\nC\r\nC     PUTS ID RECORD ON RANDOM OUTPUT FILES\r\nC\r\n      INTEGER FILE,TYPE,COMP,IDR(50)\r\n      INTEGER Q(2)\r\n      INTEGER MID1(2,7)\r\n      COMMON /OUTPUT/ HEAD(1)\r\n      DATA MID1/2001,4HDISP,\r\n     1          2010,4HVELO,\r\n     2          2011,4HACCE,\r\n     3          2002,4HLOAD,\r\n     4          2003,4HSPCF,\r\n     5          2004,4HELFO,\r\n     6          2005,4HSTRE/\r\n      DATA IDR /50*0/\r\n      IDR(1)= 50\r\n      IDR(3) = MID\r\n      DO 10 I = 1,7\r\n      IF(TYPE .EQ. MID1(2,I)) GO TO 20\r\n   10 CONTINUE\r\n   20 ITYPE = MID1(1,I)\r\n      IDR(2) = ITYPE\r\n      IDR(5) = ID*10\r\n      IDR(6) = COMP\r\n      IDR(8) = Q(1)\r\n      IDR(9) = Q(2)\r\n      IDR(10) = 2\r\n      CALL WRITE(FILE,IDR(1),50,0)\r\n      CALL WRITE(FILE,HEAD(1),96,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rand2.f",
    "content": "      SUBROUTINE RAND2 (FILE,ILIST,LOAD,IF,LEN,LLIST)\r\nC\r\nC     READS FILE UNTIL IT FINDS DATA RECORD IN LIST - RETURNS LOAD,\r\nC     IF, AND LEN\r\nC\r\n      INTEGER         FILE,IDR(10),NAME(2),ILIST(2),MID(2,10),ITEMP(5),\r\n     1                IDATA(50),IFMT(2,84),IFMTT(11),DATA1(100),DATA(1),\r\n     2                ITB(180),ITB1(137),ITB2(145),FILEX\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      EQUIVALENCE     (ITB1(1),ITB(1)), (ITB2(1),ITB(138))\r\n      DATA    IFMTT / 1,11,41,55,61,99,121,155,181,199,237/\r\n      DATA    IOLDLD/ 0 /\r\n      DATA    IFMT  /\r\n     1        1, 1,    -1,-1,     1, 1,     1, 1,     1, 1,     6, 2,\r\n     7        6, 2,     6, 2,     0, 3,     1, 1,     4, 4,     4, 4,\r\n     3        4, 4,     4, 0,     6, 2,     0, 3,     6, 2,     6, 2,\r\n     9        6, 2,    -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,\r\n     5       -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,\r\n     1       -1,-1,    -1,-1,    -1,-1,     7, 5,    -1,-1,    -1,-1,\r\n     7       -1,-1,    -1,-1,     0, 8,     0, 8,     0, 8,     0, 8,\r\n     3       -1,-1,    -1,-1,    -1,-1,    -1,-1,     0, 9,     0,10,\r\n     9        0,11,     0, 6,     0, 8,    -1,-1,    -1,-1,    -1,-1,\r\n     5       -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,\r\n     1       -1,-1,     0, 3,     0, 3,     7, 2,    -1,-1,    -1,-1,\r\n     7       -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,\r\n     3       -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,    -1,-1,\r\n     9       -1,-1,    -1,-1,    -1,-1,    -1,-1,     7, 2,    -1,-1/\r\nC\r\nC     IFMT TABLE (ELEM ID IN GPTABD ORDER) HAS 2 WORDS PER ENTRY\r\nC        WORD1  FORCE  FORMAT POINTER INTO IFMTT TABLE\r\nC        WORD2  STRESS FORMAT POINTER INTO IFMTT TABLE\r\nC\r\nC     IFMTT TABLE  HAS ONE ENTRY PER FORMAT TYPE\r\nC        THE ENTRY IS THE BEGINNING OF THE FORMAT IN THE ITB TABLE\r\nC\r\n      DATA ITB1/\r\n     1   6,   3,   5,   4,   6,\r\n     1   0,   1,   1,   2,   2,\r\n     2  16,   3,   4,  12,   5,  13,   6,  14,   7,   8,  16,   9,  17,\r\n     *  10,  18,\r\n     2   0,   1,   2,   2,   3,   3,   4,   4,   5,   6,   6,   7,   7,\r\n     *   8,   8,\r\n     3   8,   3,   6,   4,   7,   5,   8,\r\n     3   0,   1,   1,   2,   2,   3,   3,\r\n     4   4,   3,   4,\r\n     4   0,   1,   1,\r\n     5  20,   3,   4,   5,   6,   7,  12,  13,  14,  15,  16,   8,   9,\r\n     *  10,  11,  17,  18,  19,  20,\r\n     5   0,   1,   2,   3,   4,   5,   1,   2,   3,   4,   5,   6,   7,\r\n     *   8,   9,   6,   7,   8,   9,\r\n     6  12,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,\r\n     6   0,   1,   2,   3,   4,   5,   1,   2,   3,   4,   5,\r\n     7  18,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,\r\n     *  15,  16,  17,  18/\r\n      DATA ITB2/\r\n     7   0,   1,   2,   3,   4,   5,   6,   7,   8,   1,   2,   3,   4,\r\n     *   5,   6,   7,   8,\r\n     8  14,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,\r\n     8   0,   1,   2,   3,   4,   5,   6,   1,   2,   3,   4,   5,   6,\r\n     9  10,   3,   4,   5,   6,   7,   8,   9,  10,\r\n     9   0,   1,   2,   3,   4,   1,   2,   3,   4,\r\n     O  20,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,\r\n     *  15,  16,  17,  18,  19,  20,\r\n     O   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   1,   2,   3,\r\n     *   4,   5,   6,   7,   8,   9,\r\n     A  24,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,\r\n     *  15,  16,  17,  18,  19,  20,  21,  22,  23,  24,\r\n     A   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,   1,\r\n     *   2,   3,   4,   5,   6,   7,   8,   9,  10,  11/\r\n      DATA NAME/ 4HRAND,4H2   /\r\n      DATA MID / 3001  ,4HDISP,\r\n     1           3010  ,4HVELO,\r\n     2           3011  ,4HACCE,\r\n     3           3002  ,4HLOAD,\r\n     4           3003  ,4HSPCF,\r\n     5           3004  ,4HELFO,\r\n     6           3005  ,4HSTRE,\r\n     7           3015  ,4HDISP,\r\n     8           3016  ,4HVELO,\r\n     9           3017  ,4HACCE/\r\nC\r\n      FILEX = FILE\r\nC\r\nC     POSITION TO + READ ID RECORD\r\nC\r\n    5 CALL FWDREC (*950,FILE)\r\n      CALL READ (*950,*920,FILE,IDR,10,1,I)\r\n      IDR(5) = IDR(5)/10\r\nC\r\nC     IDR(5) = 10*ELEM.ID + DEV.CODE\r\nC     IDR(2) = GINO FILE 3004, 3005 ETC.\r\nC     CONVERT MAJOR ID TO MNEMONIC\r\nC\r\n      DO 10 I = 1,10\r\n      IF (IDR(2) .EQ. MID(1,I)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     ILLEGAL FORMAT\r\nC\r\n      GO TO 970\r\nC\r\nC     CHECK FOR  MID\r\nC\r\n   20 IF (ILIST(1) .NE. MID(2,I)) GO TO 5\r\n      IELEM = I\r\nC\r\nC     LOOK FOR ID IN LIST\r\nC\r\n      DO 30 I = 1,LLIST,5\r\n      IF (IDR(5)-ILIST(I+1)) 5,50,30\r\n   30 CONTINUE\r\n      GO TO 5\r\nC\r\nC     ID IS IN  LIST\r\nC\r\n   50 I = I - 1\r\n      IF (I .EQ. 0) GO TO 100\r\nC\r\nC     FLIP LIST ORDER\r\nC\r\n      M  = 0\r\n      LL = I\r\nC\r\nC     SAVE CURRENT STUFF AT END OF LIST\r\nC\r\n   54 DO 51 J = 1,5\r\n      L = I + J\r\n      ITEMP(J) = ILIST(L)\r\n   51 CONTINUE\r\nC\r\nC     PUSH DOWN LIST\r\nC\r\n      DO 52 J = 1,LL\r\n      K = I - J + 1\r\n      ILIST(K+5) = ILIST(K)\r\n   52 CONTINUE\r\nC\r\nC     RESTORE CURRENT STUFF IN FRONT OF LIST, IN FLIPPED ORDER\r\nC\r\n      DO 53 J = 1,5\r\n      K = M + J\r\n      ILIST(K) = ITEMP(J)\r\n   53 CONTINUE\r\nC\r\nC     AGAIN\r\nC\r\n      IF (ILIST(I+7) .NE. ITEMP(2)) GO TO 100\r\n      M = M + 5\r\n      I = I + 5\r\n      GO TO 54\r\nC\r\nC     FOUND IT\r\nC\r\nC     IDR( 3) = ELEMENT TYPE\r\nC     IDR( 4) = SUBCASE NO.\r\nC     IDR( 9) = FORMAT CODE, 1=REAL, 2=REAL/IMAG, 3=MAG/PHASE\r\nC     IDR(10) = NO. OF WORDS PER ENTRY\r\nC     IELEM   = 6 OR 7 FOR ELFORCE (OEFC2) OR STRESS (OESC2)\r\nC\r\n  100 LOAD = IDR(4)\r\n      IF   = 0\r\n      IF (IDR(9) .EQ. 3) IF = 1\r\n      LEN1 = IDR(10)\r\n      LEN  = LEN1\r\n      IELTP= IDR(3)\r\n      IF (IELEM.LT.6 .OR. IELEM.GT.7) GO TO 150\r\nC\r\nC     EXECUTE THIS PORTION FOR STRESSES AND FORCES\r\nC\r\nC     FIND FORMAT TYPE\r\nC\r\n      IF (IFMT(1,IELTP) .EQ. -1) GO TO 930\r\nC\r\nC     PICK UP FORMAT POINTER\r\nC\r\n      IFMTP = IFMT(IELEM-5,IELTP)\r\n      IF (IFMTP  .EQ. 0) GO TO 970\r\n      J = IFMTT(IFMTP)\r\nC\r\nC     SAVE EXTERNAL DATA LENGTH\r\nC\r\n      LEN  = ITB(J)\r\nC\r\nC     SAVE MAP OF ITB\r\nC\r\n      DO 130 I = 1,LEN1\r\n      K = J + I - 1\r\n      IDATA(I) = ITB(K)\r\n  130 CONTINUE\r\nC\r\nC     CONVERT POINTERS TO NEW DATA VALUES\r\nC\r\n      IF (IOLDLD .EQ.    0) GO TO 131\r\n      IF (IOLDLD .NE. LOAD) GO TO 150\r\n  131 IOLDLD = LOAD\r\n      DO 140 I = 1,LLIST,5\r\n      IF (ILIST(I).NE.MID(2,IELEM) .OR. ILIST(I+1).NE.ILIST(2))\r\n     1    GO TO 150\r\n      K = ILIST(I+2)\r\n      IF (K .LE. LEN1) GO TO 141\r\nC\r\nC     POINTER OUT OF RANGE\r\nC\r\n      CALL MESAGE (52,ILIST(I),ILIST(I+1))\r\n      K = LEN1\r\n  141 K = J + K - 1 + LEN1\r\n      ILIST(I+2) = ITB(K)\r\n  140 CONTINUE\r\n  150 ICHK  = 1234321\r\n      LENX  = LEN\r\nC\r\nC     FILE AND LEN WERE SAVED LOCALLY IN FILEX AND LENX, SO THAT THEY\r\nC     CAN BE USED IN RAND2A\r\nC\r\n      RETURN\r\nC\r\nC\r\n      ENTRY RAND2A (DATA)\r\nC     ===================\r\nC\r\nC     WILL OBTAIN DATA AND REFORMAT IF NECESSARY\r\nC\r\nC     READ DATA\r\nC\r\n      IF (ICHK .NE. 1234321) CALL MESAGE (-37,0,NAME)\r\n      CALL READ (*910,*920,FILEX,DATA(1),LEN1,0,IFLAG)\r\n      IF (IELEM .LT. 6) RETURN\r\nC\r\nC     APPLY DATA MAP  I.E. REARRANGE DATA ACCORDING TO DATA MAP\r\nC\r\n      DO 170 I = 1,LENX\r\n      DATA1(I) = 0\r\n  170 CONTINUE\r\n      DATA1(1) = DATA(1)\r\n      DO 180 I = 2,LEN1\r\n      J = IDATA(I)\r\n      DATA1(J) = DATA(I)\r\n  180 CONTINUE\r\nCWKBR 9/93 DO 190 I = 1,LEN\r\n      DO 190 I = 1,LENX\r\n      DATA(I)  = DATA1(I)\r\n  190 CONTINUE\r\n      RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n  910 IP1 = -2\r\n  911 CALL MESAGE (IP1,FILEX,NAME)\r\n  920 IP1 = -3\r\n      GO TO 911\r\n  930 WRITE  (NOUT,940) UWM,IELTP\r\n  940 FORMAT (A25,' 2185, CURRENTLY RAND2 ROUTINE DOES NOT PROCESS ',\r\n     1        'ELEMENT TYPE',I5)\r\n      GO TO 5\r\nC 950 LOAD = 0\r\n  950 CALL REWIND (FILEX)\r\nCWKBI 9/93\r\n      WRITE(NOUT,9901)\r\n9901  FORMAT(' THE FOLLOWING I/O ERROR OCCURRED MOST LIKELY BECAUSE'\r\n     &,/,' THERE WAS A PLOT REQUEST FOR A POINT THAT DOES NOT EXIST.')\r\n      CALL MESAGE (-2,FILE,NAME)\r\n      GO TO 150\r\n  970 IP1 = -7\r\n      GO TO 911\r\n      END\r\n"
  },
  {
    "path": "mis/rand3.f",
    "content": "      SUBROUTINE RAND3 (F,S,Q,N)\r\nC\r\nC     COMPUTES  MEAN RESPONSE  Q\r\nC\r\n      INTEGER         CHECK   ,NAME(2)\r\n      REAL            Q(2)    ,F(1)     ,S(1)\r\n      COMMON /CONDAS/ PHI     ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                S4PISQ\r\n      DATA    NAME  / 4HRAND  ,4H3      /\r\nC\r\nC     F IS ARRAY OF FREQUENCIES\r\nC     S IS ARRAY OF POWER SPECTRAL DENSITY FUNCTIONS\r\nC     Q IS MEAN RESPONSE\r\nC     N IS NUMBER OF FREQUENCIES\r\nC\r\n      SUM1 = 0.0\r\n      NN   = N - 1\r\n      SUM  = 0.0\r\n      DO 10 I = 1,NN\r\n      DF   = F(I+1) - F(I)\r\n      SUM  = SUM + (S(I)+S(I+1))*DF\r\n      FI   = F(I   )*F(I  )\r\n      FI1  = F(I+1 )*F(I+1)\r\n      FII1 = 2.*F(I)*F(I+1)\r\n      ALP  = (3.*FI+FII1+FI1)/6.\r\n      BTA  = (FI+FII1+3.*FI1)/6.\r\n      SUM1 = SUM1 + (ALP*S(I)+BTA*S(I+1))*DF\r\n   10 CONTINUE\r\n      SUM  = SQRT(SUM*0.5)\r\n      SUM1 = SQRT(SUM1*.5)\r\n      Q(1) = SUM\r\n      Q(2) = 0.0\r\n      Q1   = Q(1)\r\n      IF (Q1 .NE. 0.0) Q(2) = SUM1/Q1\r\n      CHECK= 123456789\r\n      RETURN\r\nC\r\nC     AUTOCORRALATION FUNCTION\r\nC\r\n      ENTRY RAND4 (F,S,TAU,R,N)\r\nC     =========================\r\nC\r\nC     COMPUTES  AUTOCORRALATION FUNCTION R  AT TIME TAU\r\nC     WHERE F,S AS ABOVE. IF TAU = 0.0  R = Q*Q\r\nC\r\n      IF (CHECK .NE. 123456789) CALL MESAGE (-37,0,NAME)\r\n      IF (TAU .EQ. 0.0) GO TO 30\r\n      NN  = N - 1\r\n      A   = 2.0*PHI*TAU\r\n      B   = 1.0/A\r\n      SUM = 0.0\r\n      DO 20 I = 1,NN\r\n      SUM = SUM + B*(S(I+1)-S(I))/(F(I+1)-F(I))*(COS(A*F(I+1))\r\n     1          - COS(A*F(I))) + S(I+1)*SIN(A*F(I+1))-S(I)*SIN(A*F(I))\r\n   20 CONTINUE\r\n      SUM = SUM*B\r\n      R   = SUM\r\n      GO TO 40\r\n   30 R   = Q1*Q1\r\n   40 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rand5.f",
    "content": "      SUBROUTINE RAND5 (NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,\r\n     1                  NFILE)\r\nC\r\nC     THIS ROUTINE COMPUTES RANDOM RESPONSE FOR UNCOUPLED POWER SPECTRAL\r\nC     DENSITY COEFFICIENTS\r\nC\r\n      INTEGER IZ(1),SYSBUF,FILE,XYCB,PSDF,AUTO,IFILE(1),NAME(2),\r\n     1        MCB1(7),MCB2(7),OLDLD\r\n      REAL    Q(2),DATA(100)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\n      EQUIVALENCE  (Z(1),IZ(1))\r\nC\r\n      DATA    NAME,MCB1,MCB2 /4HRAND,4H5   ,14*0/\r\n      DATA    IPSDF,IAUTO    /  4001,4002       /\r\nC *****\r\nC     DEFINITION OF VARIABLES\r\nC *****\r\nC     NFREQ    NUMBER OF FREQUENCIES\r\nC     NPSDL    NUMBER OF SUBCASES ON PSDL CARDS\r\nC     NTAU     NUMBER OF TIMES\r\nC     XYCB     DATA BLOCK CONTAINING XY USER REQUESTS\r\nC     LTAB     LENGTH OF CORE  USED FOR TABLES BY PRETAB\r\nC     IFILE    ARRY CONTAINING FILE NAMES FOR SORT 2 INPUT FILES\r\nC     PSDF     OUTPUT FILE FOR POWER SPECTRAL DENSITY FUNCTIONS\r\nC     AUTO     OUTPUT FILE FOR AUTOCORRELATION FUNCTIONS\r\nC     NFILE    LENGTH OF IFILE ARRAY\r\nC     MCB1     TRAILER FOR PSDF\r\nC     MCB2     TRAILER FOR AUTO\r\nC     IPSDF    OFP ID FOR  PSDF\r\nC     IAUTO    OFP ID FOR  AUTO\r\nC     LCORE    AVAIABLE CORE FOR ANY LIST\r\nC     IBUF1    BUFFER POINTERS\r\nC     IBUF2\r\nC     IBUF3\r\nC     ITAU     POINTER TO FIRST TAU -1\r\nC     ISAA     POINTER TO FIRST S(AA) -1\r\nC     TAU      TIMES FOR AUTTOCORRELATION\r\nC     SAA      POWER SPECTRAL DENSITY FACTORS\r\nC     ICORE    POINTER  TO FIRST REQUEST -1\r\nC     SYSBUF   LENGTH OF ONE BUFFER\r\nC     NPOINT   NUMBER OF REQUESTS\r\nC     NZ       CORE AVAILABLE FOR STORING PSDF-S\r\nC     IP       POINTER TO FIRST POINT OF CURRENT CORE LOAD\r\nC     NDONE    NUMBER OF REQUESTS PROCESSED\r\nC     OLDLD    LOAD ID OF OLD LOAD SET\r\nC     NDO      NUMBER POSSIBLE TO DO IN CORE\r\nC     ICS      POINTER TO FIRST PSDF VECTOR\r\nC     NLOAD    NUMBER OF PSDL CARDS PROCESSED\r\nC     ICDONE   NUMBER CURRENTLY DONE-- SEVERAL COMP FROM EACH VALUE\r\nC     LOAD     SUBCASE ID FROM INPUT RECORD\r\nC     IF       FORMAT FLAG  IF =0  DATA IS REA/IMAG IF.NE.0 MAG/PHASE\r\nC     LEN      LENGTH OF DATA RECORD\r\nC     Q        MEAN RESPONSE\r\nC     R        AUTO CORRALATION FUNCTION AT TIME TAU\r\nC     IP1      LOCAL POINT POINTER\r\nC\r\nC\r\nC *****\r\nC     CORE LAYOUT DURING EXECUTION\r\nC *****\r\nC     FREQUENCIES   NFREQ OF THEM\r\nC     RANDPS DATA   NPSDL OF THEM  5 WORDS PER CARD\r\nC                   LOAD ID   LOAD ID   X    Y=0. TABLE\r\nC     TAUS          NTAU OF THEM\r\nC     TABLE DATA    LTAB OF IT\r\nC     S(AA)         NFREQ OF THEM  THESE ARE  REEVALUATED WHEN LOAD CHAG\r\nC     REQUESTS      NPOINT OF THEM 5 WORDS PER REQUEST\r\nC                   D.B. ID   COMP O.P. P/P\r\nC     S(J,A)        NO  DO OF THEM      LENGTH = NFREQ\r\nC\r\nC\r\nC     BUFFERS       3 NEEDED\r\nC\r\nC\r\nC     INITALIZE GENERAL VARIABLES, ASSIGN BUFFERS  ETC\r\nC\r\n      MCB1(1) = PSDF\r\n      MCB2(1) = AUTO\r\n      LCORE = KORSZ(Z)\r\n      IBUF1 = LCORE -SYSBUF+1\r\n      IBUF2 = IBUF1 -SYSBUF\r\n      IBUF3 = IBUF2 -SYSBUF\r\n      ITAU  = NFREQ +5*NPSDL\r\n      ISAA  = NTAU  +LTAB+ITAU\r\n      ICORE = ISAA  +NFREQ\r\n      LCORE = LCORE -ICORE-3*SYSBUF\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LE. 0) GO TO 980\r\nC\r\nC     OPEN OUTPUT FILES\r\nC\r\n      CALL GOPEN (PSDF,Z(IBUF2),1)\r\n      CALL GOPEN (AUTO,Z(IBUF3),1)\r\nC\r\nC     BEGIN LOOP ON EACH FILE\r\nC\r\n      DO 1000 I = 1,NFILE\r\nC\r\nC     BUILD POINT LIST FOR FILE(I)\r\nC\r\n      CALL RAND6 (XYCB,Z(IBUF1),NPOINT,IZ(ICORE+1),IFILE(I),LCORE)\r\n      IF (NPOINT .EQ. 0) GO TO 1000\r\n      NZ   = LCORE -5*NPOINT\r\n      ICRQ =-NZ\r\n      IF (NZ .LE. 0) GO TO 980\r\nC\r\nC     OPEN INPUT FILE\r\nC\r\n      FILE  = IFILE(I)\r\n      CALL OPEN (*1000,FILE,Z(IBUF1),0)\r\n      IP    = ICORE +1\r\n      NDONE = 0\r\n      OLDLD = 0\r\n      ICS   = ICORE +5*NPOINT +1\r\n      LLIST = 5*NPOINT\r\n      IPS   = IP\r\n      LLISTS= LLIST\r\n   13 NDO   = MIN0(NPOINT-NDONE,NZ/NFREQ)\r\n      ICRQ  = MAX0(NPOINT-NDONE,NFREQ)\r\n      IF (NDO .EQ. 0) GO TO 980\r\n      NLOAD = 0\r\nC\r\nC     ZERO CORE\r\nC\r\n      JJ = ICS + NDO*NFREQ-1\r\n      DO 16 K = ICS,JJ\r\n      Z(K) = 0.0\r\n   16 CONTINUE\r\n      ICDONE = 0\r\nC\r\nC     GET READY TO OBTAIN FIRST VALUE\r\nC\r\n   15 CALL RAND2 (IFILE(I),IZ(IP),LOAD,IF,LEN,LLIST)\r\nC\r\nC     CHECK FOR NEW LOAD\r\nC\r\n      IF (LOAD .EQ. 0) IF (NLOAD-NPSDL) 111,100,111\r\n      IF (LOAD .EQ. OLDLD) GO TO 50\r\nC\r\nC     NEW LOAD --EVALUATE S(AA) FUNCTIONS FOR THIS LOAD\r\nC\r\n      J  = NFREQ +1\r\n      JJ = ITAU\r\n      DO 10 K = J,JJ,5\r\n      IF (IZ(K) .EQ. LOAD) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     LOAD NOT NEEDED --REJECT\r\nC\r\n      GO TO 15\r\nC\r\nC     GOOD LOAD --EVALUATE\r\nC\r\n   20 OLDLD = LOAD\r\n      NLOAD = NLOAD +1\r\n      DO 30 J = 1,NFREQ\r\n      JJ = ISAA +J\r\nC\r\nC                TAB      X    F(X)\r\n      CALL TAB (IZ(K+4),Z(J),Z(JJ))\r\n      IF (IZ(K+4) .EQ. 0) Z(JJ) = 1.0\r\n      Z(JJ) = Z(JJ)*Z(K+2)\r\n   30 CONTINUE\r\nC\r\nC     BRING IN DATA\r\nC\r\n   50 IF (LEN .GT. 100) GO TO 970\r\n      DO 60 J = 1,NFREQ\r\nC\r\nC     ACCESS DATA FROM FILE INTO DATA ARRAY\r\nC\r\n      CALL RAND2A (DATA(1))\r\n      IP1 = IP\r\n      II  = ICDONE\r\n      LL  = ISAA +J\r\nC\r\nC     COMPUTE  MAGNITUDE         OF CURRENT COMPONENT\r\nC\r\n   52 IF ((LEN-2)/2 .GE. IZ(IP1+2)) GO TO 53\r\nC\r\nC     REQUEST OUT OF RANGE\r\nC\r\n      CALL MESAGE (52,IZ(IP1),IZ(IP1+1))\r\n      IZ(IP1+2) = (LEN-2)/2\r\n   53 JJ = IZ(IP1+2) +2\r\n      IF (IF .NE. 0) GO TO 51\r\nC\r\nC     REAL + IMAGINARY\r\nC\r\n      K  = JJ + LEN/2 -1\r\n      DATA(JJ) = SQRT(DATA(JJ)*DATA(JJ) + DATA(K)*DATA(K))\r\nC\r\nC     COMPUTE POWER SPECTRAL DENSITY FUNCTION\r\nC\r\n   51 K = ICS + II*NFREQ-1 +J\r\n      Z(K) = Z(K) + DATA(JJ)*Z(LL)*DATA(JJ)\r\n      IF (II .EQ. NDO-1) GO TO 60\r\nC\r\nC     IS NEXT REQUEST FROM SAME POINT\r\nC\r\n      IF (IZ(IP1).NE.IZ(IP1+5) .OR. IZ(IP1+1).NE.IZ(IP1+6)) GO TO 60\r\n      II = II +1\r\n      IP1= IP1+ 5\r\n      GO TO 52\r\n   60 CONTINUE\r\n      LLIST  = LLIST - 5*(II-ICDONE+1)\r\n      ICDONE = II +1\r\n      IP = IP1 +5\r\nC     HAVE I DONE ALL REQUEST(IN CURRENT CORE)\r\nC\r\n      IF (ICDONE .NE. NDO) GO TO 15\r\nC\r\nC     HAVE I ADDED IN ALL LOADS\r\nC\r\n      IP = IPS\r\n      IF (NLOAD .EQ. NPSDL) GO TO 100\r\nC\r\nC     START AGAIN ON NEXT LOAD\r\nC\r\n      LLIST  = LLISTS\r\n      ICDONE =  0\r\n      GO TO 15\r\nC\r\nC     ALL LOADS FOR CURRENT BUNCH DONE\r\nC\r\n  100 JJ = IP\r\n      J  = NDO* 5 +JJ-1\r\n      L  = ICS - NFREQ\r\n      DO 110 K = JJ,J,5\r\n      L = L+ NFREQ\r\nC\r\nC     COMPUTE MEAN RESPONSE   Q\r\nC\r\n      CALL RAND3 (Z(1),Z(L),Q,NFREQ)\r\n      IF (IZ(K+3) .EQ. 2) GO TO 105\r\nC\r\nC     PSDF REQUESTED\r\nC\r\nC     PUT OUT ID RECORD\r\nC\r\n      MCB1(7) = MCB1(7) +1\r\n      CALL RAND1 (PSDF,IPSDF,IZ(K),IZ(K+1),IZ(K+4),Q)\r\nC\r\nC     PUT OUT DATA RECORD\r\nC\r\n      DO 101 LL = 1,NFREQ\r\n      KK = L +LL -1\r\n      CALL WRITE (PSDF,Z(LL),1,0)\r\n      CALL WRITE (PSDF,Z(KK),1,0)\r\n  101 CONTINUE\r\n      CALL WRITE (PSDF,0,0,1)\r\n  105 IF (IZ(K+3) .EQ. 1) GO TO 110\r\nC\r\nC     AUTOCORRELATION REQUESTED\r\nC\r\n      IF (NTAU .EQ. 0) GO TO 110\r\n      CALL RAND1 (AUTO,IAUTO,IZ(K),IZ(K+1),IZ(K+4),Q)\r\n      MCB2(7) = MCB2(7)+1\r\nC\r\nC     PUT OUT DATA RECORD\r\nC\r\n      DO 106 LL = 1,NTAU\r\n      KK = ITAU + LL\r\n      CALL WRITE (AUTO,Z(KK),1,0)\r\nC\r\nC     COMPUTE AUTO\r\nC\r\n      CALL RAND4 (Z(1),Z(L),Z(KK),R,NFREQ)\r\n      CALL WRITE (AUTO,R,1,0)\r\n  106 CONTINUE\r\n      CALL WRITE (AUTO,0,0,1)\r\n  110 CONTINUE\r\n      CALL REWIND (IFILE(I))\r\n      NDONE = NDONE +NDO\r\n      IF (NDONE .NE. NPOINT) GO TO 200\r\n  111 CALL CLOSE (IFILE(I),1)\r\n      GO TO 1000\r\nC\r\nC     SPILL ON POINT LISTS --GO AGAIN\r\nC\r\n  200 OLDLD = 0\r\n      IP  = IP + 5*NDO\r\n      IPS = IP\r\n      LLISTS = LLISTS-5*NDO\r\n      GO TO 13\r\n 1000 CONTINUE\r\nC\r\nC     ALL STUFF DONE --GET OUT\r\nC\r\n      CALL CLOSE (PSDF,1)\r\n      CALL CLOSE (AUTO,1)\r\n      CALL WRTTRL (MCB1)\r\n      CALL WRTTRL (MCB2)\r\n      RETURN\r\nC\r\nC     FILE + MISC ERRORS\r\nC\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  970 IP1 = -7\r\n      GO TO 901\r\n  980 IP1 = -8\r\n      FILE= ICRQ\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/rand6.f",
    "content": "      SUBROUTINE RAND6(XYCB,BUFFER,NPOINT,IZ,INPUT,LCORE)\r\nC\r\nC     ANALYSIS OF REQUESTS AND BUILDS LIST\r\nC\r\n      INTEGER XYCB,BUFFER(1),IZ(1),FILE,NAME(2),ILIST(6),PSDF,AUTO,\r\n     1  ITYPE(13,5)\r\n      DATA NAME,PSDF,AUTO/4HRAND,4H6   ,2,3/\r\n      DATA ITYPE /\r\n     1    13,4HDISP,1,4HVELO,2,4HACCE,3,4HDISP,8,4HVELO,9,4HACCE,10,\r\n     2     3,4HLOAD,5,           10*0,\r\n     3     3,4HSPCF,4,           10*0,\r\n     4     3,4HSTRE,6,           10*0,\r\n     5     3,4HELFO,7,           10*0 /\r\nC *****\r\nC     XYCB     XY OUTPUT REQUESTS\r\nC     BUFFER   SYSTEM BUFFER\r\nC     NPOINT   NUMBER OF POINTS REQUESTED FOR THIS FILE\r\nC     IZ       LIST OF REQUESTS\r\nC     INPUT    CURRENT FILE\r\nC     ILIST    LIST OF REQUEST FROM XYCB   6  WORDS PER\r\nC     SUBC,FILE,ID,COMP,OPER,DEST\r\nC     PSDF     KEY FOR POWER SPECTRAL DENSITY FUNCTION\r\nC     AUTO     KEY FOR AUTOCORRELATION FUNCTION\r\nC     ITYPE    LIST OF DATA TYPES ON EACH INPUT FILE\r\nC     IREQ     PSDF =1 , AUTO =2  BOTH = 3\r\nC     IP       POINTER INTO  IZ  FOR LAST POINT(SAME POINT MAY OCCUR\r\nC                MANY TIMES IN XYCB\r\nC\r\nC     LIST FORMAT\r\nC     FILE,ID,COMP,IREQ,DEST\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC     FIND  ACCEPTABLE MNEUMONICS\r\nC\r\n      K = INPUT -103\r\n      NTYPE =  ITYPE(1,K)\r\n      IP =-4\r\n      NPOINT = 0\r\nC\r\nC     OPEN XYCB\r\nC\r\n      FILE =XYCB\r\n      CALL OPEN(*90,XYCB,BUFFER(1),0)\r\n      CALL FWDREC(*910,XYCB)\r\nC\r\nC     SKIP PROSE RECORD\r\nC\r\n      CALL FWDREC(*40,XYCB)\r\nC\r\nC     READ DATA RECORD 6 WORDS AT A TIME\r\nC\r\n    5 CALL READ(*40,*40,XYCB,ILIST(1),6,0,I)\r\nC\r\nC     IS DATA BLOCK PROPER\r\nC\r\n      DO 10 I=2, NTYPE,2\r\n      IF(ILIST(2) .EQ. ITYPE(I+1,K)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC     GO TO NEXT REQUEST\r\nC\r\n      GO TO 5\r\nC\r\nC     CHECK FOR RANDOM REQUEST\r\nC\r\n   20 IF(ILIST(5) .EQ. PSDF) GO TO 25\r\n      IF(ILIST(5) .EQ. AUTO) GO TO 30\r\n      GO TO 5\r\nC     PSDF REQUEST\r\nC\r\n   25 IREQ =1\r\n      GO TO 31\r\nC\r\nC     AUTOCORRELATION REQUEST\r\nC\r\n   30 IREQ =2\r\nC\r\nC     STORE  IN LIST\r\nC\r\n   31 IF(NPOINT .EQ. 0) GO TO 35\r\nC\r\nC     IS THIS A NEW POINT\r\nC\r\n      IF(IZ(IP) .NE. ITYPE(I,K)) GO TO 35\r\n      IF(IZ(IP+1) .NE. ILIST(3) .OR. IZ(IP+2) .NE. ILIST(4)) GO TO 35\r\nC\r\nC     ANOTHER REQUEST FOR SAME POINT\r\nC\r\n      IF( IZ(IP+3) .EQ. 3 .OR. IZ(IP+3) .EQ. IREQ) GO TO 32\r\n      IZ(IP+3) = IZ(IP+3) + IREQ\r\n   32 IF(IZ(IP+4) .EQ.  3  .OR. IZ(IP+4).EQ. ILIST(6))GO TO 5\r\n      IZ(IP+4) = IZ(IP+4) + ILIST(6)\r\n      GO TO 5\r\nC\r\nC     ADD POINT TO LIST\r\nC\r\n   35 NPOINT = NPOINT +1\r\n      IP = IP +5\r\n      IF (IP+5 .GT. LCORE) GO TO 905\r\n      IZ(IP) = ITYPE(I,K)\r\n      IZ(IP+1) = ILIST(3)\r\n      IZ(IP+2) = ILIST(4)\r\n      IZ(IP+3) = IREQ\r\n      IZ(IP+4) = ILIST(6)\r\n      GO TO 5\r\nC\r\nC     GET OUT\r\nC\r\n   40 CALL CLOSE(XYCB,1)\r\nC\r\nC     SAVE ORIGINAL COMPONENT IN THE FIFTH LIST LORD\r\nC\r\n      IF(NPOINT .EQ. 0) GO TO 90\r\n      DO 45 I = 1,NPOINT\r\n      L = (I-1)*5+1\r\n      IZ(L+4) = IZ(L+2)\r\n      IF(K .LT. 4) IZ(L+2) = IZ(L+2) -2\r\n   45 CONTINUE\r\n   90 RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n  905 NPOINT = NPOINT+9\r\n      GO TO 90\r\n  910 IP1= -2\r\n  911 CALL MESAGE(IP1,FILE,NAME(1))\r\n      GO TO 911\r\n      END\r\n"
  },
  {
    "path": "mis/rand7.f",
    "content": "      SUBROUTINE RAND7 (IFILE,NFILE,PSDL,DIT,ICOUP,NFREQ,NPSDL,NTAU,\r\n     1                  LTAB,CASECC,XYCDB)\r\nC\r\nC     STORES STUFF IN CORE FOR LATER RANDOM ANALSIS\r\nC\r\n      INTEGER ITLIST(7),PSDL,FILE,SYSBUF,DIT,NAME(2),CASECC,\r\n     1        IFILE(1),XYCDB,IPSDL(6)\r\n      REAL    Z(1)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ IZ(1)\r\nC\r\n      EQUIVALENCE (Z(1),IZ(1))\r\nC\r\n      DATA NAME  /4HRAND,1H7/\r\n      DATA ITLIST/2,  55,25,1,  56,26,5 /\r\nC *****\r\nC     IDENTIFICATION OF VARIABLES\r\nC *****\r\nC     IFILE    ARRAY OF INPUT FILES\r\nC     NFILE    LENGTH OF IFILE ARRAY\r\nC     PSDL     POWER SPECTRAL DENSITY LISTS FROM DPD\r\nC     DIT      DIRECT INPUT TABLES\r\nC     ICOUP    COUPLED,UNCOUPLED, OR NOGO FLAG\r\nC     NFREQ    NUMBER OF FRENQUICIES\r\nC     NPSDL    NUMBER OF PSDL  SETS\r\nC     NTAU     NUMBER OF TAUS\r\nC     LTAB     LENGTH OF DATA FOR TAB ROUTINE\r\nC     CASECC   CASECONTROL FILE\r\nC     SYSBUF   LENGTH OF ONE GINO BUFFER\r\nC     NTABL    NUMBER OF UNIQUE TABLE ID-S\r\nC     ITABL    POINTER TO LIST OF TABLE ID-S\r\nC\r\nC\r\nC     BUILD FREQUENCY LIST\r\nC\r\n      ICOUP = 0\r\n      LCORE = KORSZ(IZ)\r\n      IBUF1 = LCORE-SYSBUF\r\nC\r\nC     XYCDB MUST BE PRESENT\r\nC\r\n      FILE = XYCDB\r\n      CALL OPEN (*700,XYCDB,IZ(IBUF1),0)\r\n      CALL CLOSE (XYCDB,1)\r\n      LCORE = IBUF1-1\r\nC\r\nC     EXTRACT  SET NO FROM CASECC\r\nC\r\n      CALL GOPEN (CASECC,IZ(IBUF1),0)\r\n      CALL FREAD (CASECC,IZ,166,1)\r\n      I163  = 163\r\n      IRAND = IZ(I163)\r\n      CALL CLOSE (CASECC,1)\r\n      IF (IRAND .EQ. 0) GO TO 700\r\nC\r\nC     FIND DATA FILE\r\nC\r\n      DO 10 I = 1,NFILE\r\n      FILE = IFILE(I)\r\n      CALL OPEN (*10,FILE,IZ(IBUF1),0)\r\n      CALL SKPREC (FILE,1)\r\n      CALL FREAD (FILE,IZ,10,1)\r\n      I10 = 10\r\n      LEN = IZ(I10)-1\r\n      NFREQ = 0\r\nC\r\nC     EXTRACT FREQUENCIES\r\nC\r\n    5 CALL READ (*910,*30,FILE,F,1,0,J)\r\n      CALL FREAD (FILE,IZ,-LEN,0)\r\n      NFREQ = NFREQ +1\r\n      Z(NFREQ) = F\r\n      GO TO  5\r\n   30 CALL CLOSE (FILE,1)\r\n      GO TO 40\r\n   10 CONTINUE\r\nC\r\nC     NO DATA FILES--EXIT\r\nC\r\n  700 ICOUP = -1\r\n      GO TO 90\r\nC\r\nC     BRING IN PSDL CARDS\r\nC\r\n   40 LCORE = LCORE -NFREQ\r\n      FILE  = PSDL\r\n      CALL OPEN (*700,PSDL,Z(IBUF1),0)\r\n      L = NFREQ+1\r\n      NPSDL = 0\r\n      ITAU  =-1\r\n      CALL READ (*910,*41,PSDL,IZ(NFREQ+1),LCORE,0,J)\r\n      GO TO 980\r\n   41 K = NFREQ +3\r\n      IF (J .EQ. 2) GO TO 45\r\n      J = K+J-1\r\nC\r\nC     DETERMINE RECORD THAT RANDOM TAU-S ARE IN\r\nC\r\n      DO 42 I = K,J\r\n      IF (IZ(I) .EQ. IRAND) GO TO 43\r\n   42 CONTINUE\r\n      ITAU = -1\r\n      GO TO 45\r\nC\r\nC     FOUND RANDT CARDS\r\nC\r\n   43 ITAU = I-K\r\nC\r\nC     FIND SELECTED PSDL CARDS\r\nC\r\n   45 CALL READ (*910,*47,PSDL,IPSDL(1),6,0,J)\r\n      IF (IPSDL(1) .NE. IRAND) GO TO 45\r\n      NPSDL   = NPSDL+1\r\n      IZ(L  ) = IPSDL(2)\r\n      IZ(L+1) = IPSDL(3)\r\n      IZ(L+2) = IPSDL(4)\r\n      IZ(L+3) = IPSDL(5)\r\n      IZ(L+4) = IPSDL(6)\r\n      L = L+5\r\n      GO TO 45\r\n   47 IF (NPSDL .NE. 0) GO TO 48\r\nC\r\nC     UNABLE TO FIND SELECTED PSDL CARDS\r\nC\r\n      CALL CLOSE (PSDL,1)\r\n      GO TO 700\r\nC\r\nC     POSITION TAPE FOR TAUS\r\nC\r\n   48 IF (ITAU .LE. 0) GO TO 49\r\n      CALL SKPREC (PSDL,ITAU)\r\n   49 LCORE = LCORE-NPSDL*5\r\nC\r\nC     EXTRACT LIST OF TABLES  AND CHECK FOR COUPLED SYSTEM\r\nC\r\n      JJ = NFREQ +1\r\n      K  = NFREQ +5*NPSDL\r\n      NTABL = 0\r\n      ITABL = IBUF1-1\r\n      DO 60  I = JJ,K,5\r\n      IF (IZ(I) .EQ. IZ(I+1)) GO TO 61\r\nC\r\nC     COUPLED\r\nC\r\n      ICOUP =1\r\n   61 IF (NTABL .EQ. 0) GO TO 62\r\n      DO 63 J=1,NTABL\r\n      L = ITABL +J\r\n      IF (IZ(L) .EQ. IZ(I+4)) GO TO 60\r\n   63 CONTINUE\r\nC\r\nC     STORE TABLE ID\r\nC\r\n   62 NTABL = NTABL +1\r\n      IZ(ITABL) = IZ(I+4)\r\n      ITABL = ITABL -1\r\n   60 CONTINUE\r\n      IZ(ITABL) = NTABL\r\nC\r\nC     BRING IN  TAU-S\r\nC\r\n      NTAU  = 0\r\n      LCORE = LCORE- NTABL-1\r\n      IF(ITAU .EQ. -1) GO TO 70\r\n      CALL READ (*70,*70,PSDL,Z(K+1),LCORE,0,NTAU)\r\n      GO TO 980\r\n   70 CALL CLOSE (PSDL,1)\r\nC\r\nC     SETUP FOR TABLES\r\nC\r\n      LCORE = LCORE -NTAU\r\n      LTAB  = 0\r\n      IF(NTABL .EQ. 0) GO TO 90\r\n      L =  K +NTAU+1\r\n      CALL PRETAB (DIT,IZ(L),Z(L),IZ(IBUF1),LCORE,LTAB,IZ(ITABL),ITLIST\r\n     1 (1))\r\n   90 RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n  910 IP1 =-2\r\n      GO TO 901\r\n  980 IP1= -8\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/rand8.f",
    "content": "      SUBROUTINE RAND8(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE)\r\nC\r\nC     THIS ROUTINE COMPUTES RANDOM RESPONSE FOR COUPLED POWER SPECTRAL\r\nC       DENSITY COEFICIENTS\r\nC\r\n      INTEGER  IZ(1),SYSBUF,FILE,XYCB,PSDF,AUTO,IFILE(1),NAME(2),\r\n     1    MCB1(7),MCB2(7),OLDLD\r\n      REAL Q(2)\r\n      REAL DATA(100)\r\nC\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRAD   ,\r\n     1                   S4PISQ\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/  Z(1)\r\nC\r\n      EQUIVALENCE (Z(1),IZ(1))\r\nC\r\n      DATA  NAME,MCB1,MCB2/4HRAND,4H8   ,14*0/\r\n      DATA IPSDF,IAUTO /4001,4002/\r\nC *****\r\nC     DEFINITION OF VARIABLES\r\nC *****\r\nC     NFREQ    NUMBER OF FREQUENCIES\r\nC     NPSDL    NUMBER OF PSDL  CARDS\r\nC     NTAU     NUMBER OF TIMES\r\nC     XYCB     DATA BLOCK CONTAINING XY USER REQUESTS\r\nC     LTAB     LENGTH OF CORE USED FOR TABLES BY PRETAB\r\nC     IFILE    ARRAY CONTAINING FILE NAMES FOR SORT 2 INPUT FILES\r\nC     PSDF     OUTPUT FILE FOR POWER SPECTRAL DENSITY FUNCTIONS\r\nC     AUTO     OUTPUT FILE FOR AUTOCORRELATION FUNCTIONS\r\nC     NFILE    LENGTH OF IFILE ARRAY\r\nC     MCB1     TRAILER FOR PSDF\r\nC     MCB2     TRAILER FOR AUTO\r\nC     IPSDF    OFP ID FOR PSDF\r\nC     IAUTO    OFP ID FOR AUTO\r\nC     LCORE    AVAILABLE CORE FOR  LISTS\r\nC     IBUF1    BUFFER POINTERS\r\nC     IBUF2\r\nC     IBUF3\r\nC     ITAU     POINTER TO FIRST TAU-1\r\nC     ISAA     POINTER TO SAB TABLE -1\r\nC     TAU      TIMES FOR AUTOCORRELATION\r\nC     SAB      POWER SPECTRAL DENSITY FACTORS\r\nC     ICORE    POINTER TO FIRST REQUEST-1\r\nC     SYSBUF   LENGTH OF ONE BUFFER\r\nC     NPOINT   TOTAL NUMBER OF REQUESTS\r\nC     NZ       CORE AVAIABLE FOR STORING H VALUES\r\nC     IP       POINTER TO FIRST POINT OF CURRENT CORE LOAD\r\nC     NDONE    NUMBER OF REQUESTS PROCESSED\r\nC     OLDLD    LOAD ID OF OLD LOAD SET\r\nC     NDO      NUMBER POSSIBLE TO DO IN CORE\r\nC     ICS      POINTER TO FIRST H ARRAY\r\nC     NLOAD    NUMBER OF LOADS      PROCESSED ON CURRENT CORE LOAD\r\nC     ICDONE   NUMBER CURRENTLY DONE -- SEVERAL COMP FROM EACH VALUE\r\nC     LOAD     SUBCASE ID FROM INPUT RECORD\r\nC     IF       FORMAT FLAG IF=0  DATA IS REAL/IMAG  IF .NE. 0 MAG/PHASE\r\nC     LEN      LENGTH OF DATA RECORD\r\nC     Q        MEAN  RESPONSE\r\nC     R        AUTOCORRALATION FUNCTION AT TIME TAU\r\nC     IP1      LOCAL POINT POINTER\r\nC     NUNQ     NUMBER OF UNIQUE LOAD ID-S\r\nC     ILOAD    POINTER TO LOAD LIST-1\r\nC     ISJ      POINTER TO SJ ADD AREA-1\r\nC     ICS      H STORAGE -1\r\nC\r\nC\r\nC\r\nC *****\r\nC     CORE LAYOUTDURING EXECUTION\r\nC *****\r\nC     FREQUENCIES   NFREQ OF THEM\r\nC     RANDPS DATA   NPSDL OF THEM  5 WORDS PER CARD\r\nC                   LOAD ID  LOAD ID   X   Y   TABLE\r\nC     TAUS          NTAU OF THEM\r\nC     TABLE DATA    LTAB OF IT\r\nC     S(AB)         NFREQ OF THEM-- THESE ARE REEVALUATED WHEN LOAD CHAN\r\nC     UNIQUE ID-S   NUNQ  OF THEM\r\nC     REQUESTS      NPOINT OF THEM 5 WORDS PER REQUEST\r\nC                   DB   ID   COMP O.P. P/P\r\nC     H-S           LENGTH = 2*NFREQ --REAL+IMAGINARY\r\nC                   NUNQ  H-S PER SET-- NDO SETS\r\nC     SJ COMPUTE    NFREQ OF IT\r\nC\r\nC\r\nC     BUFFERS       3 NEEDED\r\nC\r\nC\r\nC\r\nC\r\nC     INITIALIZE GENERAL VARIABLES--ASSIGN BUFFERS,ETC\r\nC\r\n      MCB1(1)=PSDF\r\n      MCB2(1)=AUTO\r\n      LCORE=KORSZ(Z)\r\n      IBUF1=LCORE-SYSBUF+1\r\n      IBUF2=IBUF1-SYSBUF\r\n      IBUF3=IBUF2-SYSBUF\r\n      ITAU=NFREQ+5*NPSDL\r\n      ISAA=NTAU+LTAB+ITAU\r\n      LCORE=LCORE-(ISAA+NFREQ+3*SYSBUF)\r\n      ICRQ = -LCORE\r\n      IF(LCORE .LE. 0) GO TO 980\r\nC\r\nC     BUILD LIST OF UNIQUE LOAD ID-S\r\nC         REPLACE LOAD ID OF PSDL WITH POINTER TO LIST\r\nC\r\n      NUNQ=0\r\n      ILOAD=ISAA+NFREQ\r\n      M=ILOAD+1\r\n      K=M-1\r\n      I=NFREQ+1\r\n      JJ=ITAU+1\r\n      J=1\r\n      GO TO 4\r\nC\r\nC         SEARCH LIST OF UNIQUE ID-S\r\nC\r\n    5 DO 3  L=M,K\r\n      IF(IZ(I) .EQ. IZ(L)) GO TO 9\r\n    3 CONTINUE\r\n      GO TO 4\r\nC\r\nC         NEXT PSDL CARD\r\nC\r\n    2 IF(J .EQ. 0) GO TO 7\r\n      I=I+1\r\n      J=0\r\n      GO TO 5\r\nC\r\nC         SAVE LOAD ID\r\nC\r\n    4 K=K+1\r\n      NUNQ=NUNQ+1\r\n      IZ(K)=IZ(I)\r\n      L=K\r\nC\r\nC         REPLACE ID WITH POINTER INTO LIST\r\nC\r\n    9 IZ(I)=L-M+1\r\n      GO TO 2\r\nC\r\nC         NEXT PSDL CARD\r\nC\r\n    7 I=I+4\r\n      J=1\r\n      IF(I .NE. JJ) GO TO 5\r\nC\r\nC         COMPUTE MINIMUM CORE\r\nC\r\n      MINCR=NUNQ*NFREQ*2+NFREQ\r\n      ICORE=ILOAD+NUNQ\r\n      LCORE=LCORE-NUNQ\r\n      ICRQ = MINCR - LCORE\r\n      IF(LCORE-MINCR .LE. 0) GO TO 980\r\nC\r\nC         OPEN OUTPUT FILES\r\nC\r\n      CALL GOPEN(PSDF,Z(IBUF2),1)\r\n      CALL GOPEN(AUTO,Z(IBUF3),1)\r\nC\r\nC         BEGIN LOOP ON EACH FILE\r\nC\r\n      DO 1000  I=1,NFILE\r\nC\r\nC         BUILD POINT LIST FOR FILE(I)\r\nC\r\n      CALL RAND6 (XYCB,Z(IBUF1),NPOINT,IZ(ICORE+1),IFILE(I),LCORE)\r\n      IF(NPOINT .EQ. 0) GO TO 1000\r\n      NZ=LCORE-5*NPOINT\r\n      ICRQ = -NZ\r\n      IF(NZ .LE. 0) GO TO 980\r\nC\r\nC         OPEN INPUT FILE\r\nC\r\n      FILE=IFILE(I)\r\n      CALL OPEN(*1000,FILE,Z(IBUF1),0)\r\n      IP=ICORE+1\r\n      NDONE=0\r\n      OLDLD=0\r\n      ICS=ICORE+5*NPOINT\r\n      LLIST=5*NPOINT\r\nC\r\nC         COMPUTE NUMBER OF POINTS TO DO AT SAME TIME\r\nC\r\n   13 NDO = MIN0(NPOINT-NDONE,NZ/MINCR)\r\n      ICRQ = MAX0(NPOINT-NDONE,MINCR)\r\n      IF(NDO .EQ. 0) GO TO 980\r\n      LLISTS = LLIST\r\n      ICDONE=0\r\n      IPSAVE=IP\r\n      NLOAD =0\r\nC         GET READY TO OBTAIN FIRST VALUE\r\nC\r\n   15 CALL RAND2 (IFILE(I),IZ(IP),LOAD,IF,LEN,LLIST)\r\n      IF(LOAD .EQ. 0) GO TO 159\r\nC\r\nC         CHECK FOR NEW LOAD\r\nC\r\n      IF(LOAD .EQ. OLDLD) GO TO 50\r\nC\r\nC         NEW LOAD -- SEE IF WANTED\r\nC\r\n      DO 10  KK=1,NUNQ\r\n      L=ILOAD+KK\r\n      IF(LOAD .EQ. IZ(L)) GO TO 20\r\n   10 CONTINUE\r\nC\r\nC         REJECT LOAD -- NOT NEEDED\r\nC\r\n      GO TO 15\r\nC\r\nC         GOOD LOAD -- SAVE DATA\r\nC\r\n   20 OLDLD=LOAD\r\nC\r\nC         BRING DATA INTO KK-TH H SAVE AREA\r\nC\r\n      KK = ICS +(KK-1)*NFREQ*2\r\n   50 IF(LEN .GT. 100) GO TO 970\r\n      DO 60  J=1,NFREQ\r\nC\r\nC     ACCESS DATA FROM FILE  INTO DATA  ARRAY\r\nC\r\n      CALL RAND2A( DATA(1))\r\n      IP1=IP\r\n      II=ICDONE\r\nC\r\nC         COMPUTE REAL/IMAG OF CURRENT COMPONENT\r\nC\r\n   52 IF( (LEN-2)/2 .GE. IZ(IP1+2)) GO TO 53\r\nC\r\nC     REQUEST OUT OF RANGE\r\nC\r\n      CALL MESAGE(52,IZ(IP1),IZ(IP1+1))\r\n      IZ(IP1+2) = (LEN-2)/2\r\n   53 JJ = IZ(IP1+2) +2\r\n      K=JJ+LEN/2-1\r\n      IF ( IF .LE. 0) GO TO 51\r\n      X=DATA(JJ)*COS(DEGRAD*DATA(K))\r\n      DATA(K)=DATA(JJ)*SIN(DEGRAD*DATA(K))\r\n      DATA(JJ)=X\r\n   51 L=KK+J*2-1+II*MINCR\r\n      Z(L)=DATA(JJ)\r\n      Z(L+1)=DATA(K)\r\nC\r\nC         TEST FOR CORE OVERFLOW\r\nC\r\n      IF(II .EQ. NDO-1) GO TO 60\r\nC\r\nC         IS NEXT REQUEST FROM SAME POINT\r\nC\r\n      IF(IZ(IP1) .NE. IZ(IP1+5) .OR. IZ(IP1+1) .NE. IZ(IP1+6)) GO TO 60\r\n      II=II+1\r\n      IP1=IP1+5\r\n      GO TO 52\r\n   60 CONTINUE\r\n      ICDONE=II+1\r\n      IP=IP1+5\r\n      LLIST=LLIST-5*ICDONE\r\nC\r\nC         HAVE I DONE ALL REQUESTS (IN CURRENT CORE)\r\nC\r\n      IF(ICDONE .NE. NDO) GO TO 15\r\nC\r\nC         HAVE I ADDED IN ALL LOADS\r\n      NLOAD = NLOAD +1\r\n      IP=IPSAVE\r\n      IF(NLOAD .EQ. NUNQ ) GO TO 100\r\nC\r\nC         START AGAIN ON NEXT LOAD\r\n      LLIST = NDO*5\r\n      ICDONE=0\r\n      GO TO 15\r\nC\r\nC         ALL LOADS FOR CURRENT BUNCH DONE\r\nC              COMPUTE SJ-S\r\nC\r\nC              ZERO ALL SJ-S\r\nC\r\n  100 DO 101  J=1,NDO\r\n      K=ICS+J*MINCR-NFREQ\r\n      DO 102  L=1,NFREQ\r\n      JJ=K+L\r\n      Z(JJ)=0.0\r\n  102 CONTINUE\r\n  101 CONTINUE\r\nC\r\nC         FOR EACH PSDL CARD  1. EVALUATE SAB\r\nC              FOR EACH POINT\r\nC                   IN CORE   2. COMPUTE 2*RE(HI*SIJ*HJBAR)\r\nC                             3. ADD TO SJ AT EACH FREQ.\r\nC\r\n      DO 120  J=1,NPSDL\r\nC\r\nC         EVALUATE SAB\r\nC\r\n      TWO=2.0\r\n      L=NFREQ+(J-1)*5\r\n      IF(IZ(L+1) .EQ. IZ(L+2)) TWO=1.0\r\n      Q(1) = Z(L+3)\r\n      R=Z(L+4)\r\n      DO 103  K=1,NFREQ\r\n      JJ=ISAA+K\r\nC\r\nC\r\nC                TAB     X    F(X)\r\n      CALL TAB (IZ(L+5),Z(K),Z(JJ))\r\n      IF(IZ(L+5) .EQ.0) Z(JJ) =1.0\r\n  103 CONTINUE\r\nC\r\nC         FOR EACH POINT IN CORE\r\nC\r\n      DO 115  K=1,NDO\r\n      L2=ICS+K*MINCR-NFREQ\r\n      L1=ICS+(K-1)*MINCR-1-NFREQ*2\r\n      DO 110  M=1,NFREQ\r\n      IH1=IZ(L+1)*NFREQ*2 +L1  +2*M\r\n      IH2=IZ(L+2)*NFREQ*2 +L1  +2*M\r\n      JJ=ISAA+M\r\n      ISJ=L2+M\r\n      Z(ISJ)=Z(ISJ)+Z(JJ)*TWO*((Z(IH1)*Q(1)-Z(IH1+1)*R)*Z(IH2)\r\n     1  +(Z(IH1+1)*Q(1)+Z(IH1)*R)*Z(IH2+1))\r\n  110 CONTINUE\r\n  115 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC         OUTPUT STUFF IN CORE\r\nC\r\n      JJ=IP\r\n      J=NDO*5+JJ-1\r\n      L=ICS-NFREQ\r\n      DO 150  K=JJ,J,5\r\n      L=L+MINCR\r\nC\r\nC         CONVERT SJ TO ABSOLUTE VALUE\r\nC\r\n      DO 151  LL=1,NFREQ\r\n      KK=L+LL\r\n      Z(KK)=ABS(Z(KK))\r\n  151 CONTINUE\r\nC\r\nC         COMPUTE MEAN RESPONSE\r\nC\r\n      CALL RAND3 (Z(1),Z(L+1),Q,NFREQ)\r\n      IF(IZ(K+3) .EQ. 2) GO TO 155\r\nC\r\nC         PSDF REQUESTED -- PUT OUT ID\r\nC\r\n      MCB1(7)=MCB1(7)+1\r\n      CALL RAND1(PSDF,IPSDF,IZ(K),IZ(K+1),IZ(K+4),Q)\r\nC\r\nC         PUT OUT DATA RECORDED\r\nC\r\n      DO 152  LL=1,NFREQ\r\n      KK=L+LL\r\n      CALL WRITE (PSDF,Z(LL),1,0)\r\n      CALL WRITE (PSDF,Z(KK),1,0)\r\n  152 CONTINUE\r\n      CALL WRITE (PSDF,0,0,1)\r\n  155 IF(IZ(K+3) .EQ. 1) GO TO 150\r\nC\r\nC         AUTO CORRELATION REQUESTED\r\nC\r\n      IF(NTAU .EQ. 0) GO TO 150\r\n      CALL RAND1(AUTO,IAUTO,IZ(K),IZ(K+1),IZ(K+4),Q)\r\n      MCB2(7)=MCB2(7)+1\r\nC\r\nC         PUT OUT DATA RECORD\r\nC\r\n      DO 156  LL=1,NTAU\r\n      KK=ITAU+LL\r\n      CALL WRITE (AUTO,Z(KK),1,0)\r\nC\r\nC         COMPUTE AUTO\r\nC\r\n      CALL RAND4 (Z(1),Z(L+1),Z(KK),R,NFREQ)\r\n      CALL WRITE (AUTO,R,1,0)\r\n  156 CONTINUE\r\n      CALL WRITE (AUTO,0,0,1)\r\n  150 CONTINUE\r\nC\r\nC         END CORE LOAD\r\nC\r\n      CALL REWIND (IFILE(I))\r\n      NDONE=NDONE+NDO\r\n      IF(NDONE .NE. NPOINT) GO TO 200\r\nC\r\nC         FINISHED WITH FILE\r\nC\r\n  159 CALL CLOSE(IFILE(I),1)\r\n      GO TO 1000\r\nC\r\nC         SPILL ON POINT LISTS -- GO AGAIN\r\nC\r\n  200 OLDLD=0\r\n      LLIST=LLISTS-5*NDO\r\n      IP=IPSAVE+5*NDO\r\n      GO TO 13\r\n 1000 CONTINUE\r\nC\r\nC         ALL STUFF DONE -- GET OUT\r\nC\r\n      CALL CLOSE (PSDF,1)\r\n      CALL CLOSE (AUTO,1)\r\n      CALL WRTTRL(MCB1)\r\n      CALL WRTTRL(MCB2)\r\n      RETURN\r\nC\r\nC         FILE + MISC ERRORS\r\nC\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  970 IP1=-7\r\n      GO TO 901\r\n  980 IP1=-8\r\n      FILE = ICRQ\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/random.f",
    "content": "      SUBROUTINE RANDOM\r\nC\r\nC     RANDOM ANALYSIS MODULE\r\nC\r\nC     INPUTS   CASECC,XYCB,DIT,DISP,SPCF,LOAD,STRESS,FORCE,PSDL  (9)\r\nC\r\nC     OUTPUTS  PSDF,AUTO  (2)\r\nC\r\nC     SCRATCHES (0)\r\nC\r\nC     PARAMETERS 1 INTEGER\r\n      INTEGER CASECC,XYCB,DIT,IFILE(5),PSDL,PSDF,AUTO\r\n      COMMON /BLANK/ ICOUP\r\n      DATA XYCB,DIT,PSDL,IFILE,CASECC/101,102,103,104,105,106,107,108,\r\n     1   109/\r\n      DATA PSDF,AUTO /201,202/\r\n      DATA NFILE              /5/\r\nC\r\nC     INITIALIZE + SET UP\r\nC\r\n      CALL RAND7(IFILE,NFILE,PSDL,DIT,ICOUP,NFREQ,NPSDL,NTAU,LTAB,\r\n     1   CASECC,XYCB)\r\n      IF( ICOUP) 10,20,30\r\n   10 RETURN\r\nC\r\nC     UNCOUPLED\r\nC\r\n   20 CALL RAND5(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE)\r\n      GO TO 10\r\nC\r\nC     COUPLED\r\nC\r\n   30 CALL RAND8(NFREQ,NPSDL,NTAU,XYCB,LTAB,IFILE,PSDF,AUTO,NFILE)\r\n      GO TO 10\r\n      END\r\n"
  },
  {
    "path": "mis/rbmg1.f",
    "content": "      SUBROUTINE RBMG1\r\nC*****\r\nC RBMG1 PARTITIONS KAA INTO KLL, KLR AND KRR AND MAA SIMILARLY.\r\nC*****\r\nC\r\n      INTEGER       USET  ,UA    ,UL    ,UR    ,SCR1\r\n      COMMON/BITPOS/UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA\r\n     1             ,UF    ,US    ,UN    ,UG    ,UE    ,UP\r\nC*****\r\nC     INPUT DATA FILES\r\nC*****\r\n      DATA USET,KAA,MAA/101,102,103/\r\nC*****\r\nC     OUTPUT DATA FILES\r\nC*****\r\n      DATA  KLL,KLR,KRR,MLL,MLR,MRR/201,202,203,204,205,206/\r\nC*****\r\nC     SCRATCH DATA FILES\r\nC*****\r\n      DATA SCR1/301/\r\nC*****\r\nC     PARTITION  KAA INTO KLL,KLR, AND KRR\r\nC     PARTITION  MAA INTO MLL,MLR, AND MRR\r\nC*****\r\n      CALL UPART(USET,SCR1,UA,UL,UR)\r\n      CALL MPART(KAA,KLL,0,KLR,KRR)\r\n      CALL MPART(MAA,MLL,0,MLR,MRR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rbmg2.f",
    "content": "      SUBROUTINE RBMG2\r\nC\r\n      INTEGER          SCR1,    SCR2,    SCR3,    SCR4\r\n      DOUBLE PRECISION DET(2)\r\n      COMMON /BLANK /  JPOWR,   DETRM\r\n      COMMON /SFACT /  QQ(29)\r\n      EQUIVALENCE      (QQ(25), DET(1)), (QQ(29), IPWR)\r\n      DATA    KLL   ,  LLL,     SCR1,    SCR2,    SCR3,    SCR4  /\r\n     1        101   ,  201,     301,     302,     303,     304   /\r\nC\r\nC     DECOMPOSE KLL INTO LLL\r\nC\r\n      CALL FACTOR (KLL,LLL,SCR1,SCR2,SCR3,SCR4)\r\n      JPOWR = IPWR\r\n      DETRM = DET(1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rbmg3.f",
    "content": "      SUBROUTINE RBMG3\r\nC*****\r\nC     SOLVE KLL * DM = -KLR  FOR DM (WHERE LLL IS THE TRI FACTOR)\r\nC     THEN COMPUTE X = KRR + KLR(T) * DM\r\nC     AND ESP = NORM(X) / NORM(KRR)\r\nC*****\r\n      INTEGER       DM    ,SCR1  ,SCR2\r\nC\r\n      DATA    LLL         ,KLR   ,KRR   /101   ,102   ,103   /\r\n     1       ,DM                        /201/\r\n     2       ,SCR1 ,SCR2                /301   ,302   /\r\nC*****\r\n      CALL SOLVER(LLL,DM,KLR,KRR,SCR1,EPS,1,SCR2)\r\n      CALL MESAGE(35,0,EPS)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/rbmg4.f",
    "content": "      SUBROUTINE RBMG4\r\nC*****\r\nC RBMG4 COMPUTES MR FROM THE MATRIX EQUATION\r\nC      MR = MRR + DM(T) * MLR + MLR(T) * DM + DM(T) * MLL * DM\r\nC*****\r\n      INTEGER SCR1,SCR2,DM\r\n      INTEGER SCR3\r\nC*****\r\nC     INPUT DATA FILES\r\nC*****\r\n      DATA DM,MLL,MLR,MRR/101,102,103,104/\r\nC*****\r\nC     OUTPUT DATA FILES\r\nC*****\r\n      DATA MR/201/\r\nC*****\r\nC     SCRATCH DATA FILES\r\nC*****\r\n      DATA SCR1,SCR2,SCR3/301,302,303/\r\nC*****\r\nC     COMPUTE MR\r\nC*****\r\n      CALL ELIM(MRR,MLR,MLL,DM,MR,SCR1,SCR2,SCR3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcard.f",
    "content": "      SUBROUTINE RCARD (OUT,FMT,NFLAG,IN)\r\nCDIR$ INTEGER=64\r\nC\r\nC     CDIR$ IS CRAY COMPILER DIRECTIVE. 64 BIT INTEGER IS USED LOCALLY\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         LSHIFT,RSHIFT,COMPLF\r\n      LOGICAL          PASS,SEQGP,DECIML,LMINUS,EXPONT,DOUBLE,BLKON,NOGO\r\n      REAL             FL1\r\n      DOUBLE PRECISION XDOUBL\r\n      DIMENSION        BCD(16),VAL(16),NUM(10),OUT(1),TYPE(16),FMT(1),\r\n     1                 IN(1),NT(16),NDOUBL(2),LINE(20),CHARS(7)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /LHPWX /  LOWPW,HIGHPW\r\n      COMMON /SYSTEM/  IBUFSZ,F6,NOGO,DUM1(7),NPAGES,NLINES,DUM2(10),\r\n     1                 LSYSTM\r\n      EQUIVALENCE      (FL1     ,INT1 ), (XDOUBL,NDOUBL(1)),\r\n     1                 (NUM(10) ,ZERO ), (CHARS(1),BLANK  ),\r\n     2                 (CHARS(2),STAR ), (CHARS(3),PLUS   ),\r\n     3                 (CHARS(4),MINUS), (CHARS(5),PERIOD ),\r\n     4                 (CHARS(6),E    ), (CHARS(7),D      )\r\n      DATA    PASS  /.FALSE. /, BLANKS/ 4H     /, STARS / 4H**** /,\r\n     1        LINE  / 20*4H           /         , BLANK / 1H     /,\r\n     2        STAR  / 1H*    /, PLUS  / 1H+    /, MINUS / 1H-    /,\r\n     3        PERIOD/ 1H.    /, E     / 1HE    /, D     / 1HD    /,\r\n     4        SEQ   / 3HSEQ  /, P     / 4HP    /, IZERO / 0      /\r\n      DATA    NUM   / 1H1,1H2 ,1H3,1H4, 1H5,1H6,1H7,1H8,1H9,1H0  /\r\nC\r\n      IF (PASS) GO TO 40\r\n      PASS   = .TRUE.\r\n      A67777 = COMPLF(0)\r\n      A67777 = RSHIFT(LSHIFT(A67777,1),1)\r\nC\r\n      DO 20 I = 1,10\r\n      NUM(I) = KHRFN1(IZERO,4,NUM(I),1)\r\n   20 CONTINUE\r\nC\r\n      DO 38 I = 1,7\r\n   38 CHARS(I) = KHRFN1(IZERO,4,CHARS(I),1)\r\n      SEQ = KHRFN3(IZERO,SEQ,1,0)\r\n      P   = KHRFN3(IZERO,P  ,0,0)\r\nC\r\n   40 FIELD = 0\r\n      NWORDS= 2\r\n      N 8 OR 16 = 8\r\n      WORD  = 0\r\n      IOUT  = 0\r\n      IFMT  = 0\r\n      SEQGP = .FALSE.\r\n   50 IF (WORD .EQ. 18) GO TO 680\r\nC\r\nC     OPERATE ON 1 FIELD  (2 OR 4 WORDS), GET FIRST NON-BLANK CHARACTER.\r\nC\r\n      FIELD  = FIELD + 1\r\n      DECIML = .FALSE.\r\n      LMINUS = .FALSE.\r\n      EXPONT = .FALSE.\r\n      DOUBLE = .FALSE.\r\n      BLKON  = .FALSE.\r\n      PLACES = 0\r\n      IT     = 0\r\n      SIGN   = 0\r\n      POWER  = 0\r\nC\r\nC     READ 8 OR 16 CHARACTERS OF ONE FIELD\r\nC\r\nC     TYPE AS 0 = BLANK, -1 = BCD, +1 = INTEGER\r\nC\r\n      N = 0\r\n      WORD1 = WORD + 1\r\n      WORD  = WORD + NWORDS\r\n      DO 110 I = WORD1,WORD\r\n      DO 100 J = 1,4\r\n      N = N + 1\r\n      CHARAC = KHRFN1(IZERO,4,IN(I),J)\r\n      IF (CHARAC .EQ. BLANK) GO TO 70\r\n      IF (CHARAC .EQ. ZERO ) GO TO 80\r\n      DO 60 K = 1,9\r\n      IF (CHARAC .EQ. NUM(K)) GO TO 90\r\n   60 CONTINUE\r\n      TYPE(N)= -1\r\n      VAL(N) = CHARAC\r\n      GO TO 100\r\n   70 TYPE(N)= 0\r\n      VAL(N) = BLANK\r\n      GO TO 100\r\n   80 K = 0\r\n   90 TYPE(N)= 1\r\n      VAL(N) = K\r\n  100 BCD(N) = CHARAC\r\n  110 CONTINUE\r\nC\r\nC     BCD, INTEGER TRANSFER ON FIRST NON-BLANK CHARACTER\r\nC\r\n      IF (.NOT.SEQGP) GO TO 120\r\n      GO TO (120,120,690,120,690,120,690,120,690), FIELD\r\nC\r\n  120 DO 130 N = 1,N8OR16\r\n      IF (TYPE(N)) 150,130,320\r\n  130 CONTINUE\r\nC\r\nC     ALL BLANK FIELD IF FALL HERE\r\nC\r\n      IF (FIELD .EQ. 1) GO TO 160\r\n  140 IOUT = IOUT + 1\r\n      OUT(IOUT) = 0\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = 0\r\n      GO TO 50\r\nC\r\nC     **********************************************\r\nC\r\nC     ALPHA HIT FOR FIRST CHARACTER\r\nC\r\n  150 IF (FIELD.EQ.1 .AND. VAL(N).EQ.STAR) GO TO 270\r\n      IF (VAL(N) .EQ. PLUS  ) GO TO 290\r\n      IF (VAL(N) .EQ. PERIOD) GO TO 300\r\n      IF (VAL(N) .EQ. MINUS ) GO TO 310\r\nC\r\nC     PLAIN ALPHA BCD FIELD NOW ASSUMED.\r\nC     CHECKING FOR DOULBE-FIELD * IF WE ARE IN FIELD 1\r\nC\r\n      IF (FIELD .NE. 1) GO TO 160\r\n      IF (BCD(8).NE.STAR .OR. TYPE(8).NE.-1) GO TO 160\r\n      NWORDS = 4\r\n      N8OR16 = 16\r\nC\r\nC     REMOVE STAR BEFORE PUTTING 2 BCD WORDS INTO OUT\r\nC\r\n      BCD(8) = BLANK\r\n  160 IOUT   = IOUT + 2\r\n      IF (TYPE(1)) 170,180,170\r\n  170 IF (NWORDS.EQ.4 .AND. FIELD.EQ.1) GO TO 180\r\n      N = WORD - NWORDS\r\n      OUT(IOUT-1) = IN(N+1)\r\n      OUT(IOUT  ) = IN(N+2)\r\n      GO TO 260\r\nC\r\nC     CHARACTER N WAS FIRST NON-BLANK CHARACTER\r\nC\r\n  180 MAX = N 8 OR 16  -  N  +  1\r\n      DO 190 I = 1,MAX\r\n      BCD(I) = BCD(N)\r\n  190 N = N + 1\r\n  200 IF (MAX .GE. 8) GO TO 210\r\n      MAX = MAX + 1\r\n      BCD(MAX) = BLANK\r\n      GO TO 200\r\n  210 WORD1 = 0\r\n      WORD2 = 0\r\n      DO 220 I = 1,4\r\n      WORD1 = KHRFN3(BCD(I  ),WORD1,1,1)\r\n      WORD2 = KHRFN3(BCD(I+4),WORD2,1,1)\r\n  220 CONTINUE\r\n      OUT(IOUT-1) = WORD1\r\n      OUT(IOUT  ) = WORD2\r\n  260 IFMT = IFMT + 1\r\n      FMT(IFMT) = 3\r\n      IF (FIELD .NE. 1) GO TO 50\r\n      IF (KHRFN3(IZERO,OUT(IOUT-1),1,0).EQ.SEQ .AND.\r\n     1    KHRFN3(IZERO,OUT(IOUT  ),0,0).EQ.P) SEQGP = .TRUE.\r\n      GO TO 50\r\nC\r\nC     **********************************************\r\nC\r\nC     FIRST CHARACTER  ON CARD IS A STAR\r\nC\r\n  270 NWORDS = 4\r\n      N 8 OR 16 = 16\r\n  280 IOUT = IOUT + 2\r\n      OUT(IOUT-1) = 0\r\n      OUT(IOUT  ) = 0\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = 3\r\n      GO TO 50\r\nC\r\nC     **********************************************\r\nC\r\nC     FIRST CHARACTER IN FIELD IS A PLUS\r\nC\r\n  290 IF (FIELD .EQ. 1) GO TO 280\r\nC\r\nC     IGNORING PLUS SIGN AND NOW ASSUMING FIELD IS NUMBERIC\r\nC\r\n      GO TO 340\r\nC\r\nC     **********************************************\r\nC\r\nC     FIRST CHARACTER IN FIELD IS A PERIOD\r\nC\r\n  300 DECIML = .TRUE.\r\n      PLACES = 0\r\n      GO TO 340\r\nC\r\nC     **********************************************\r\nC\r\nC     FIRST CHARACTER IN FIELD IS A MINUS\r\nC\r\n  310 LMINUS = .TRUE.\r\n      GO TO 340\r\nC\r\nC     **********************************************\r\nC\r\nC     0 TO 9 NUMERIC HIT\r\nC\r\n  320 IF (VAL(N)) 330,340,330\r\nC\r\nC     NON-ZERO NUMBER.  SAVING IT NOW IN TABLE NT\r\nC\r\n  330 NT(1) = VAL(N)\r\n      IT = 1\r\n  340 IF (N .EQ. N 8 OR 16) GO TO 380\r\nC\r\nC     PROCESS REMAINING DIGITS\r\nC\r\n      NNN = N + 1\r\n      DO 370 N = NNN,N8OR16\r\n      IF ((TYPE(N).EQ.0 .OR. VAL(N).EQ.ZERO) .AND. IT.EQ.0 .AND.\r\n     1    .NOT.DECIML) GO TO 370\r\n      IF (TYPE(N)) 350,350,360\r\nC\r\nC     FALL THRU IMPLIES NON 0 TO 9 CHARACTER\r\nC\r\n  350 IF (VAL(N) .NE. PERIOD) GO TO 430\r\n      IF (DECIML) GO TO 910\r\n      PLACES = 0\r\n      DECIML = .TRUE.\r\n      GO TO 370\r\nC\r\nC     0 TO 9 CHARACTER HIT. SAVE IT.\r\nC\r\n  360 IT = IT + 1\r\n      NT(IT) = VAL(N)\r\n      IF (DECIML) PLACES = PLACES + 1\r\n  370 CONTINUE\r\nC\r\nC     NUMERIC WORD COMPLETED\r\nC     IF DECIML IS .FALSE. NUMERIC IS A SIMPLE INTEGER\r\nC\r\n  380 IF (DECIML) GO TO 570\r\nC\r\nC     **********************************************\r\nC\r\nC     SIMPLE INTEGER\r\nC\r\n  390 NUMBER = 0\r\n      IF (IT .EQ. 0) GO TO 410\r\n      DO 400 I = 1,IT\r\n      IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 890\r\n  400 NUMBER = NUMBER*10 + NT(I)\r\n  410 IF (LMINUS) NUMBER = - NUMBER\r\n  420 IOUT = IOUT + 1\r\n      OUT(IOUT) = NUMBER\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = 1\r\n      GO TO 50\r\nC\r\nC     **********************************************\r\nC\r\nC     PROBABLE (E, D, +, -) EXPONENT HIT OR BLANK\r\nC\r\n  430 IF (TYPE(N)) 460,440,460\r\nC\r\nC     BLANK HIT THUS ONLY AN EXPONENT OR BLANKS PERMITTED FOR BALANCE\r\nC     OF FIELD\r\nC\r\n  440 IF (N .EQ. N 8 OR 16) GO TO 450\r\n      N = N + 1\r\n      IF (TYPE(N)) 460,440,960\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES BALANCE OF FIELD WAS BLANKS\r\nC\r\n  450 IF (DECIML) GO TO 570\r\n      GO TO 390\r\nC\r\nC     **********************************************\r\nC\r\nC     COMING HERE IMPLIES A NON-BLANK CHARACTER HAS BEEN HIT BEGINNING\r\nC     AN EXPONENT. IT HAS TO BE A (+, -, D, OR E ) FOR NO ERROR\r\nC\r\n  460 IF (VAL(N) .NE. PLUS) GO TO 470\r\n      EXPONT= .TRUE.\r\n      SIGN  = PLUS\r\n      GO TO 500\r\n  470 IF (VAL(N) .NE. E) GO TO 480\r\n      EXPONT= .TRUE.\r\n      GO TO 500\r\n  480 IF (VAL(N) .NE. MINUS) GO TO 490\r\n      EXPONT= .TRUE.\r\n      SIGN  = MINUS\r\n      GO TO 500\r\n  490 IF (VAL(N) .NE. D) GO TO 960\r\n      EXPONT= .TRUE.\r\n      DOUBLE= .TRUE.\r\nC\r\nC     READ INTEGER POWER, WITH OR WITHOUT SIGN\r\nC\r\n  500 IF (N .EQ. N 8 OR 16) GO TO 950\r\n      N = N + 1\r\nC\r\n      IF (TYPE(N)) 510,500,520\r\n  510 IF (VAL(N).NE.PLUS .AND. VAL(N).NE.MINUS) GO TO 520\r\n      IF (SIGN .NE. 0) GO TO 940\r\n      SIGN = VAL(N)\r\n      GO TO 500\r\nC\r\nC     FIRST DIGIT OF INTEGER POWER AT HAND NOW\r\nC\r\n  520 POWER = 0\r\n      BLKON = .FALSE.\r\nC\r\n  530 IF (TYPE(N)) 930,930,540\r\n  540 POWER = POWER*10 + VAL(N)\r\nC\r\nC     GET ANY MORE DIGITS IF PRESENT\r\nC\r\n  550 IF (N .EQ. N 8 OR 16) GO TO 570\r\n      N = N + 1\r\n      IF (BLKON) IF (TYPE(N)) 980,550,980\r\n      IF (TYPE(N)) 530,560,530\r\nC\r\nC     BLANK HIT, BALANCE OF FIELD MUST BE BLANKS\r\nC\r\n  560 BLKON = .TRUE.\r\n      GO TO 550\r\nC\r\nC     **********************************************\r\nC\r\nC     SINGLE OR DOUBLE PRECISION FLOATING POINT NUMBER\r\nC     COMPLETE AND OUTPUT IT.\r\nC\r\nC     15 SIGNIFICANT FIGURES POSSIBLE ON INPUT\r\nC     CONSIDERED SINGLE PRECISION UNLESS D EXPONENT IS PRESENT\r\nC\r\n  570 IF (SIGN .EQ. MINUS) POWER = -POWER\r\n      POWER = POWER - PLACES\r\nC\r\n      NUMBER = 0\r\n      IF (IT) 580,620,580\r\n  580 IF (IT .LT. 7) GO TO 590\r\n      N = 7\r\n      GO TO 600\r\n  590 N = IT\r\n  600 DO 610 I = 1,N\r\n  610 NUMBER = NUMBER*10 + NT(I)\r\n  620 XDOUBL = DBLE(FLOAT(NUMBER))\r\n      IF (IT .LE. 7) GO TO 640\r\n      NUMBER = 0\r\n      DO 630 I = 8,IT\r\n  630 NUMBER = NUMBER*10 + NT(I)\r\n      XDOUBL = XDOUBL*10.0D0**(IT-7) + DBLE(FLOAT(NUMBER))\r\n  640 IF (LMINUS) XDOUBL = -XDOUBL\r\nC\r\nC     CHECK FOR POWER IN RANGE OF MACHINE\r\nC\r\n      ICHEK = POWER + IT\r\n      IF (XDOUBL .EQ. 0.0D0) GO TO 660\r\n      IF (ICHEK.LT.LOWPW+1 .OR. ICHEK.GT.HIGHPW-1 .OR.\r\n     1    POWER.LT.LOWPW+1 .OR. POWER.GT.HIGHPW-1) GO TO 860\r\nC\r\n      XDOUBL = XDOUBL*10.0D0**POWER\r\n  660 IFMT = IFMT + 1\r\n      IF (DOUBLE) GO TO 670\r\n      FL1  = XDOUBL\r\n      IOUT = IOUT + 1\r\n      OUT(IOUT) = INT1\r\n      FMT(IFMT) = 2\r\n      GO TO 50\r\n  670 IOUT = IOUT + 2\r\n      OUT(IOUT-1) = NDOUBL(1)\r\n      OUT(IOUT  ) = NDOUBL(2)\r\n      FMT(IFMT) = 4\r\n      GO TO 50\r\n  680 NFLAG = IOUT\r\n      FMT(IFMT+1) = -1\r\n      RETURN\r\nC\r\nC     **********************************************\r\nC\r\nC     FIRST CHARACTER OF FIELD 3, 5, 7,  OR 9 ON SEQGP CARD ENCOUNTERED.\r\nC\r\nC     IT HAS TO BE A 1 TO 9 FOR NO ERROR\r\nC\r\n  690 DO 700 N = 1,N8OR16\r\n      IF (TYPE(N)) 1000,700,710\r\n  700 CONTINUE\r\n      GO TO 140\r\nC\r\nC     STORE NUMBER IN NT\r\nC\r\n  710 NPOINT = 0\r\n  720 IT = IT + 1\r\n      NT(IT) = VAL(N)\r\n  730 IF (N .EQ. N 8 OR 16) GO TO 800\r\n      N = N + 1\r\nC\r\nC     GET NEXT CHARACTER\r\nC\r\n      IF (NPOINT.GT.0 .AND. .NOT.DECIML .AND. .NOT.BLKON) GO TO 790\r\n      IF (DECIML) GO TO 770\r\n      IF (BLKON ) GO TO 750\r\n      IF (TYPE(N)) 740,740,720\r\n  740 IF (VAL(N)  .EQ. PERIOD) GO TO 760\r\n  750 IF (TYPE(N) .NE.      0) GO TO 1020\r\n      BLKON = .TRUE.\r\n      GO TO 730\r\nC\r\n  760 DECIML = .TRUE.\r\n      NPOINT = NPOINT + 1\r\n      GO TO 730\r\nC\r\n  770 IF (TYPE(N)) 1020,1020,780\r\nC\r\n  780 DECIML = .FALSE.\r\n      GO TO 720\r\nC\r\n  790 IF (VAL(N).EQ.PERIOD .AND. TYPE(N).LT.0) GO TO 760\r\n      GO TO 750\r\nC\r\nC     READY TO COMPUTE INTEGER VALUE OF SPECIAL SEQGP INTEGER\r\nC\r\n  800 NPOINT = 3 - NPOINT\r\n      IF (NPOINT) 1010,830,810\r\n  810 DO 820 K = 1,NPOINT\r\n      IT = IT + 1\r\n  820 NT(IT) = 0\r\nC\r\nC     COMPUTE NUMBER\r\nC\r\n  830 NUMBER = 0\r\n      IF (IT) 840,420,840\r\n  840 DO 850 K = 1,IT\r\n      IF (((A67777-NT(K))/10) .LT. NUMBER) GO TO 1040\r\n      NUMBER = NUMBER*10 + NT(K)\r\n  850 CONTINUE\r\n      GO TO 420\r\nC\r\nC\r\n  860 WRITE  (F6,870) UFM\r\n  870 FORMAT (A23,' 300, DATA ERROR IN FIELD UNDERLINED.')\r\n      WRITE  (F6,880)\r\n  880 FORMAT (10X,42HFLOATING POINT NUMBER OUT OF MACHINE RANGE)\r\n      GO TO  1060\r\n  890 WRITE  (F6,870) UFM\r\n      WRITE  (F6,900)\r\n  900 FORMAT (10X,38HINTEGER MAGNITUDE OUT OF MACHINE RANGE)\r\n      GO TO  1060\r\n  910 WRITE  (F6,870) UFM\r\n      WRITE  (F6,920)\r\n  920 FORMAT (10X,22HDATA NOT RECOGNIZEABLE)\r\n      GO TO  1060\r\n  930 CONTINUE\r\n  940 CONTINUE\r\n  950 CONTINUE\r\n  960 WRITE  (F6,870) UFM\r\n      WRITE  (F6,970)\r\n  970 FORMAT (10X,26HPOSSIBLE ERROR IN EXPONENT)\r\n      GO TO  1060\r\n  980 WRITE  (F6,870) UFM\r\n      WRITE  (F6,990)\r\n  990 FORMAT (10X,23HPOSSIBLE IMBEDDED BLANK)\r\n      GO TO  1060\r\n 1000 CONTINUE\r\n 1010 CONTINUE\r\n 1020 WRITE  (F6,870) UFM\r\n      WRITE  (F6,1030)\r\n 1030 FORMAT (10X,30HINCORRECT DEWEY DECIMAL NUMBER)\r\n      GO TO  1060\r\n 1040 WRITE  (F6,870) UFM\r\n      WRITE  (F6,1050)\r\n 1050 FORMAT (10X,49HINTERNAL CONVERSION OF DEWEY DECIMAL IS TOO LARGE)\r\n 1060 WORD = (FIELD-1)*NWORDS + 2\r\n      ASSIGN 1090 TO IRETRN\r\n      WORD2 = STARS\r\n 1070 LINE(WORD  ) = WORD2\r\n      LINE(WORD-1) = WORD2\r\n      IF (NWORDS .EQ. 2  .OR.  FIELD .EQ. 1) GO TO 1080\r\n      LINE(WORD-2) = WORD2\r\n      LINE(WORD-3) = WORD2\r\n 1080 GO TO IRETRN,(1090,1150)\r\n 1090 IF (NWORDS .EQ. 4) GO TO 1110\r\n      WRITE  (F6,1100)\r\n 1100 FORMAT (10X,80H.   1  ..   2  ..   3  ..   4  ..   5  ..   6  ..  \r\n     1 7  ..   8  ..   9  ..  10  .)\r\n      GO TO 1130\r\n 1110 WRITE  (F6,1120)\r\n 1120 FORMAT (10X,80H.   1  ..   2  AND  3  ..   4  AND  5  ..   6  AND \r\n     1 7  ..   8  AND  9  ..  10  .)\r\n 1130 WRITE  (F6,1140) (IN(I),I=1,20),LINE\r\n 1140 FORMAT (10X,20A4)\r\n      ASSIGN 1150 TO IRETRN\r\n      WORD2 = BLANKS\r\n      GO TO 1070\r\n 1150 IOUT = IOUT + 1\r\n      NLINES = NLINES + 7\r\n      OUT(IOUT) = 0\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = -1\r\n      NOGO = .TRUE.\r\n      GO TO 50\r\n      END\r\n"
  },
  {
    "path": "mis/rcard2.f",
    "content": "      SUBROUTINE RCARD2 (OUT,FMT,NFLAG,IN)\r\nCDIR$ INTEGER=64\r\nC\r\nC     CDIR$ IS CRAY COMPILE DIRECTIVE. 64-BIT INTEGER IS USED LOCALLY\r\nC\r\nC     THIS ROUTINE IS MUCH MORE EFFICIENT THAN THE OLD ROUTINE RCARD\r\nC     IT CAN SAFELY REPLACE THE OLD RCARD ROUTINE\r\nC     WRITTEN BY G.CHAN/UNISYS            10/1987\r\nC     REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER\r\nC     OPERATIONS (VERY IMPORTANT FOR CDC MACHINE)\r\nC     LAST REVISED, 8/1991, SETTING UP REAL NO. UPPER AND LOWER BOUNDS\r\nC     FOR VARIOUS MACHINES\r\nC\r\nC     RCARD2 ASSUMES ALL INPUT FIELDS IN 'IN' ARE LEFT-ADJUSTED.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         LSHIFT   ,RSHIFT   ,COMPLF\r\n      LOGICAL          SEQGP    ,DECIML   ,MINUS    ,NOGO     ,\r\n     1                 EXPONT   ,DOUBLE   ,BLKON\r\n      INTEGER          IN(20)   ,OUT(1)   ,FMT(1)   ,TYPE(16) ,\r\n     1                 NT(16)   ,OUTX(100),IDOUBL(2),VALUE(16),\r\n     2                 NUM1(9)  ,CHR1(16) ,A1(80)\r\n      REAL             FPT\r\n      DOUBLE PRECISION DDOUBL\r\n      CHARACTER*1      BLANKC   ,STARC    ,DOTC     ,PLUSC    ,\r\n     1                 MINUSC   ,DC       ,EC       ,ZEROC    ,\r\n     2                 KHR1(16) ,K1(80)\r\n      CHARACTER*4      IN4(40)  ,C4(1)    ,CHR4(4)  ,OUT4(100)\r\n      CHARACTER*5      D5       ,SEQGP5   ,SEQEP5\r\n      CHARACTER*100    TMP100   ,OUT100(4)\r\n      CHARACTER        NUM9*9   ,UFM*23   ,E80*80\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /LHPWX /  LOWPW    ,HIGHPW\r\n      COMMON /SYSTEM/  BUFSZ    ,NOUT     ,NOGO     ,DUM1(8)  ,\r\n     1                 NLINES\r\n      COMMON /XECHOX/  DUM2(4)  ,XSORT2\r\n      EQUIVALENCE      (CHR11,CHR1(1)),   (K1(1),IN4(1),D5,E80),\r\n     1                 (FPT,INTGR),       (KHR1(1),CHR4(1)),\r\n     2                 (DDOUBL,IDOUBL(1)),(OUT4(1),OUT100(1))\r\n      DATA    BLANKC,  STARC,   PLUSC,  MINUSC,  DOTC,  EC,   DC    /\r\n     1        ' ',     '*',     '+',    '-',     '.',   'E',  'D'   /\r\n      DATA    BLANK,   STARS,   SEQGP5, SEQEP5,  ZEROC, NUM9        /\r\n     1        4H    ,  4H====,  'SEQGP','SEQEP', '0',   '123456789' /\r\n      DATA    PLUS1 /  0    /\r\nC\r\n      IF (PLUS1 .NE. 0) GO TO 10\r\n      CALL K2B (BLANKC,BLANK1,1)\r\n      CALL K2B (STARC ,STAR1 ,1)\r\n      CALL K2B (PLUSC ,PLUS1 ,1)\r\n      CALL K2B (MINUSC,MINUS1,1)\r\n      CALL K2B (DOTC  ,DOT1  ,1)\r\n      CALL K2B (EC    ,E1    ,1)\r\n      CALL K2B (DC    ,D1    ,1)\r\n      CALL K2B (ZEROC ,ZERO1 ,1)\r\n      CALL K2B (NUM9  ,NUM1  ,9)\r\n   10 CONTINUE\r\nC\r\n      CALL BCDKH8 (IN,E80)\r\n      CALL K2B (E80,A1,80)\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY RCARD3 (OUT,FMT,NFLAG,C4)\r\nC     ===============================\r\nC\r\nC     IN RCARD2, 'IN' IS 4-BYTE BCD  AND 'OUT' IS 4-BYTE BCD\r\nC     IN RCARD3, 'C4' IS CHARACTER*4 AND 'OUT' IS 4-BYTE BCD\r\nC     'IN' AND 'C4' ARE INPUT, AND 'OUT' IS OUTPUT\r\nC\r\n      DO 20 I = 1,20\r\n   20 IN4(I) = C4(I)\r\n      CALL K2B (C4,A1,80)\r\nC\r\n   30 FIELD  = 0\r\n      IOUT   = 0\r\n      IFMT   = 0\r\n      WORD   = 0\r\n      NWORDS = 2\r\n      SEQGP  = .FALSE.\r\n      A67777 = RSHIFT(LSHIFT(COMPLF(0),1),1)/10 - 10\r\n      N 8 OR 16 = 8\r\n      DO 40 I = 1,100\r\n   40 OUTX(I) = BLANK\r\nC\r\nC     PROCESS ONE FIELD (2 OR 4 WORDS) AT A TIME,\r\nC     GET FIRST NON-BLANK CHARATER\r\nC\r\n   50 IF (WORD .EQ. 18) GO TO 860\r\n      FIELD  = FIELD + 1\r\n      DECIML =.FALSE.\r\n      MINUS  =.FALSE.\r\n      EXPONT =.FALSE.\r\n      DOUBLE =.FALSE.\r\n      BLKON  =.FALSE.\r\n      SIGN1  = BLANK1\r\n      PLACES = 0\r\n      IT     = 0\r\n      POWER  = 0\r\nC\r\nC     READ 8 OR 16 CHARATERS OF ONE FIELD\r\nC     FOR EACH CHARACTER, SET TYPE TO\r\nC            0 IF IT IS A BLANK\r\nC           -1 IF IT IS BCD CHARACTER, AND\r\nC           +1 IF IT IS NUMERIC\r\nC\r\n      BASE = WORD*4\r\n      WORD = WORD + NWORDS\r\n      DO 110 N = 1,N 8 OR 16\r\n      A1NB = A1(N+BASE)\r\n      IF (A1NB .EQ. BLANK1) GO TO 70\r\n      IF (A1NB .EQ. ZERO1 ) GO TO 80\r\n      DO 60 K = 1,9\r\n      IF (A1NB .EQ. NUM1(K)) GO TO 90\r\n   60 CONTINUE\r\n      TYPE(N) = -1\r\n      GO TO 100\r\n   70 TYPE(N) = 0\r\n      GO TO 100\r\n   80 K = 0\r\n   90 TYPE(N) = 1\r\n      VALUE(N)= K\r\n  100 CHR1(N) = A1NB\r\n      KHR1(N) = K1(N+BASE)\r\n  110 CONTINUE\r\nC\r\n      IF (SEQGP) GO TO (120,120,690,120,690,120,690,120,690), FIELD\r\nC\r\nC     BRANCH ON BCD, BLANK, OR NUMERIC\r\nC\r\n  120 IF (TYPE(1)) 150,  130,    320\r\nC                  BCD BLANK NUMERIC\r\nC\r\nC     A BLANK FIELD -\r\nC     ===============\r\nC\r\n  130 IF (FIELD .EQ. 1) GO TO 180\r\n  140 IOUT       = IOUT + 1\r\n      OUTX(IOUT) = 0\r\n      IFMT       = IFMT + 1\r\n      FMT(IFMT)  = 0\r\n      GO TO 50\r\nC\r\nC     BCD FIELD -\r\nC     ===========\r\nC\r\nC     FIRST NON-BLANK CHARATER IS ALPHA, STAR, DOT, PLUS, OR MINUS\r\nC\r\n  150 IF (FIELD.EQ.1 .AND. CHR11.EQ.STAR1) GO TO 270\r\n      IF (CHR11 .EQ. PLUS1 ) GO TO 290\r\n      IF (CHR11 .EQ. DOT1  ) GO TO 300\r\n      IF (CHR11 .EQ. MINUS1) GO TO 310\r\nC\r\nC     TRUE ALPHA BCD-CHARACTER FIELD\r\nC\r\nC     CHECKING FOR DOULBE-FIELD ASTERISK (*) IF WE ARE IN FIELD 1\r\nC     SET DOUBLE FLAGS N8OR16, NWORDS, AND REMOVE THE ASTERISK\r\nC\r\n      IF (FIELD .NE. 1) GO TO 180\r\n      J = 8\r\n      DO 160 I = 2,8\r\n      IF (CHR1(J).EQ.STAR1 .AND. TYPE(J).EQ.-1) GO TO 170\r\n  160 J = J - 1\r\n      GO TO 180\r\n  170 NWORDS = 4\r\n      N 8 OR 16 = 16\r\n      CHR1(J) = BLANK1\r\n      KHR1(J) = BLANKC\r\nC\r\n  180 IOUT = IOUT + 2\r\n      IF (TYPE(1)) 190,200,190\r\n  190 IF (NWORDS.EQ.4 .AND. FIELD.EQ.1) GO TO 200\r\n      N = WORD - NWORDS\r\n      OUT4(IOUT-1) = IN4(N+1)\r\n      OUT4(IOUT  ) = IN4(N+2)\r\n      GO TO 260\r\nC\r\n  200 OUT4(IOUT-1) = CHR4(1)\r\n      OUT4(IOUT  ) = CHR4(2)\r\n  260 IFMT = IFMT + 1\r\n      FMT(IFMT) = 3\r\nC\r\nC     IF FIRST FIELD IS SEQGP OR SEQEP, SET SEQGP FLAG TO TRUE\r\nC\r\n      IF (FIELD.EQ.1 .AND. (D5.EQ.SEQGP5 .OR. D5.EQ.SEQEP5))\r\n     1    SEQGP = .TRUE.\r\n      GO TO 50\r\nC\r\nC     FIRST CHARATER ON CARD IS AN ASTERISK (*)\r\nC\r\n  270 NWORDS = 4\r\n      N 8 OR 16 = 16\r\n  280 IOUT = IOUT + 2\r\n      OUTX(IOUT-1) = 0\r\n      OUTX(IOUT  ) = 0\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = 3\r\n      GO TO 50\r\nC\r\nC     FIRST CHARATER IN FIELD IS A PLUS (+)\r\nC     IGNOR IT AND ASSUMING REMAINING FIELD IS NUMBERIC\r\nC\r\n  290 IF (FIELD-1) 340,280,340\r\nC\r\nC     FIRST CHARATER IN FIELD IS A DOT (.)\r\nC\r\n  300 DECIML = .TRUE.\r\n      PLACES = 0\r\n      GO TO 340\r\nC\r\nC     FIRST CHARATER IN FIELD IS A MINUS (-)\r\nC\r\n  310 MINUS = .TRUE.\r\n      GO TO 340\r\nC\r\nC     NUMERIC -  0 TO 9\r\nC     =================\r\nC\r\n  320 IF (VALUE(1) .EQ. 0) GO TO 340\r\n      NT(1) = VALUE(1)\r\n      IT = 1\r\nC\r\nC     PROCESS REMAINING DIGITS\r\nC\r\n  340 DO 370 N = 2,N 8 OR 16\r\n      IF (TYPE(N) .GT. 0) GO TO 360\r\nC\r\nC     A NON-NUMERIC CHARACTER ENCOUNTERED\r\nC\r\n      IF (CHR1(N) .NE. DOT1) GO TO 430\r\n      IF (DECIML) GO TO 950\r\n      PLACES = 0\r\n      DECIML = .TRUE.\r\n      GO TO 370\r\nC\r\nC     A NUMERIC CHARACTER, 0 TO 9, SAVE IT IN NT\r\nC\r\n  360 IT = IT + 1\r\n      NT(IT) = VALUE(N)\r\n      IF (DECIML) PLACES = PLACES + 1\r\n  370 CONTINUE\r\nC\r\nC     IF DECIML IS .FALSE. NUMERIC IS AN INTEGER\r\nC\r\n      IF (DECIML) GO TO 570\r\nC\r\nC     INTEGER FOUND.  NASTRAN INTEGER LIMIT = 10*A67777\r\nC\r\n  390 NUMBER = 0\r\n      IF (IT .EQ. 0) GO TO 410\r\n      DO 400 I = 1,IT\r\n      IF (NUMBER .GT. A67777) GO TO 930\r\n  400 NUMBER = NUMBER*10 + NT(I)\r\n  410 IF (MINUS) NUMBER = - NUMBER\r\n  420 IOUT = IOUT + 1\r\n      OUTX(IOUT) = NUMBER\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = 1\r\n      GO TO 50\r\nC\r\nC     PROBABLY WE JUST ENCOUNTERED (E, D, +, -) EXPONENT, OR BLANK\r\nC\r\n  430 IF (TYPE(N)) 460,440,460\r\nC\r\nC     IT IS A BLANK\r\nC     THUS ONLY AN EXPONENT OR BLANKS PERMITTED FOR BALANCE OF FIELD\r\nC\r\n  440 IF (N .EQ. N 8 OR 16) GO TO 450\r\n      N = N + 1\r\n      IF (TYPE(N)) 460,440,970\r\nC\r\nC     FALL THRU ABOVE LOOP IMPLIES BALANCE OF FIELD WAS BLANKS\r\nC\r\n  450 IF (DECIML) GO TO 570\r\n      GO TO 390\r\nC\r\nC     A NON-BLANK CHARACTER -\r\nC     IT HAS TO BE A (+, -, D, OR E ) OF THE EXPONENT STRING\r\nC\r\n  460 EXPONT = .TRUE.\r\n      IF (CHR1(N) .NE. PLUS1) GO TO 470\r\n      SIGN1  = PLUS1\r\n      GO TO 500\r\n  470 IF (CHR1(N) .NE. E1) GO TO 480\r\n      GO TO 500\r\n  480 IF (CHR1(N) .NE. MINUS1) GO TO 490\r\n      SIGN1  = MINUS1\r\n      GO TO 500\r\n  490 IF (CHR1(N) .NE. D1) GO TO 970\r\n      DOUBLE = .TRUE.\r\nC\r\nC     READ INTEGER POWER, WITH OR WITHOUT SIGN\r\nC\r\n  500 IF (N .EQ. N 8 OR 16) GO TO 970\r\n      N = N + 1\r\nC\r\n      IF (TYPE(N)) 510,500,520\r\n  510 IF (CHR1(N).NE.PLUS1 .AND. CHR1(N).NE.MINUS1) GO TO 520\r\n      IF (SIGN1 .NE. BLANK1) GO TO 970\r\n      SIGN1 = CHR1(N)\r\n      GO TO 500\r\nC\r\nC     FIRST DIGIT OF INTEGER POWER AT HAND NOW\r\nC\r\n  520 POWER = 0\r\n      BLKON = .FALSE.\r\nC\r\n  530 IF (TYPE(N)) 970,970,540\r\n  540 POWER = POWER*10 + VALUE(N)\r\nC\r\nC     GET ANY MORE DIGITS IF PRESENT\r\nC\r\n  550 IF (N .EQ. N 8 OR 16) GO TO 570\r\n      N = N + 1\r\n      IF (BLKON) IF (TYPE(N)) 990,550,990\r\n      IF (TYPE(N)) 530,560,530\r\nC\r\nC     IS A BLANK.  BALANCE OF FIELD MUST BE BLANKS\r\nC\r\n  560 BLKON = .TRUE.\r\n      GO TO 550\r\nC\r\nC     SINGLE OR DOUBLE PRECISION FLOATING POINT NUMBER\r\nC     COMPLETE AND OUTPUT IT\r\nC\r\nC     15 SIGNIFICANT FIGURES POSSIBLE ON INPUT\r\nC     CONSIDERED SINGLE PRECISION UNLESS D EXPONENT IS PRESENT\r\nC\r\n  570 IF (SIGN1 .EQ. MINUS1) POWER = -POWER\r\n      POWER = POWER - PLACES\r\nC\r\n      NUMBER = 0\r\n      IF (IT) 580,620,580\r\n  580 IF (IT .LT. 7) GO TO 590\r\n      N = 7\r\n      GO TO 600\r\n  590 N = IT\r\n  600 DO 610 I = 1,N\r\n  610 NUMBER = NUMBER*10 + NT(I)\r\n  620 DDOUBL = DBLE(FLOAT(NUMBER))\r\n      IF (IT .LE. 7) GO TO 640\r\n      NUMBER = 0\r\n      DO 630 I = 8,IT\r\n  630 NUMBER = NUMBER*10 + NT(I)\r\n      DDOUBL = DDOUBL*10.0D0**(IT-7) + DBLE(FLOAT(NUMBER))\r\n  640 IF (MINUS) DDOUBL = -DDOUBL\r\nC\r\nC     CHECK FOR POWER IN RANGE OF MACHINE\r\nC\r\n      CHECK = POWER + IT\r\n      IF (DDOUBL .EQ. 0.0D0) GO TO 660\r\n      IF (CHECK.LT.LOWPW+1 .OR. CHECK.GT.HIGHPW-1 .OR.\r\n     1    POWER.LT.LOWPW+1 .OR. POWER.GT.HIGHPW-1) GO TO 900\r\nC\r\n      DDOUBL = DDOUBL*10.0D0**POWER\r\n  660 IFMT = IFMT + 1\r\n      IF (DOUBLE) GO TO 670\r\n      FPT  = DDOUBL\r\n      IOUT = IOUT + 1\r\n      OUTX(IOUT)= INTGR\r\n      FMT(IFMT) = 2\r\n      GO TO 50\r\n  670 IOUT = IOUT + 2\r\n      OUTX(IOUT-1) = IDOUBL(1)\r\n      OUTX(IOUT  ) = IDOUBL(2)\r\n      FMT(IFMT) = 4\r\n      GO TO 50\r\nC\r\nC     FIRST CHARATER OF FIELD 3, 5, 7,  OR 9 ON SEQGP/SEQEP CARD\r\nC     ENCOUNTERED. IT HAS TO BE A 1 TO 9 FOR NO ERROR\r\nC\r\n  690 DO 700 N = 1,N 8 OR 16\r\n      IF (TYPE(N)) 1020,700,710\r\n  700 CONTINUE\r\n      GO TO 140\r\nC\r\nC     STORE NUMBER IN NT\r\nC\r\n  710 NPOINT = 0\r\n  720 IT = IT + 1\r\n      NT(IT) = VALUE(N)\r\n  730 IF (N .EQ. N 8 OR 16) GO TO 800\r\n      N = N + 1\r\nC\r\nC     GET NEXT CHARATER\r\nC\r\n      IF (NPOINT.GT.0 .AND. .NOT.DECIML .AND. .NOT.BLKON) GO TO 790\r\n      IF (DECIML)  GO TO 770\r\n      IF (BLKON )  GO TO 750\r\n      IF (TYPE(N)) 740,740,720\r\n  740 IF (CHR1(N) .EQ. DOT1) GO TO 760\r\n  750 IF (TYPE(N) .NE.    0) GO TO 1020\r\n      BLKON = .TRUE.\r\n      GO TO 730\r\nC\r\n  760 DECIML = .TRUE.\r\n      NPOINT = NPOINT + 1\r\n      GO TO 730\r\nC\r\n  770 IF (TYPE(N)) 1020,1020,780\r\nC\r\n  780 DECIML = .FALSE.\r\n      GO TO 720\r\nC\r\n  790 IF (CHR1(N).EQ.DOT1 .AND. TYPE(N).LT.0) GO TO 760\r\n      GO TO 750\r\nC\r\nC     READY TO COMPUTE INTEGER VALUE OF SPECIAL SEQGP/SEQEP INTEGER\r\nC\r\n  800 NPOINT = 3 - NPOINT\r\n      IF (NPOINT) 1020,830,810\r\n  810 DO 820 K = 1,NPOINT\r\n      IT = IT + 1\r\n  820 NT(IT) = 0\r\nC\r\nC     COMPUTE NUMBER.  NASTRAN INTEGER LIMIT = 10*A67777\r\nC\r\n  830 NUMBER = 0\r\n      IF (IT) 840,420,840\r\n  840 DO 850 K = 1,IT\r\n      IF (NUMBER .GT. A67777) GO TO 1040\r\n      NUMBER = NUMBER*10 + NT(K)\r\n  850 CONTINUE\r\n      GO TO 420\r\nC\r\nC     ALL FIELDS PROCESSED\r\nC\r\n  860 NFLAG = IOUT\r\n      FMT(IFMT+1) = -1\r\nC\r\nC     CONVERT CHARACTERS TO BCD, AND INSERT NUMERIC VALUES IF\r\nC     APPLICABLE\r\nC\r\n      N = 1\r\n      DO 890 I = 1,NFLAG,25\r\n      K = I + 24\r\n      TMP100 = OUT100(N)\r\n      CALL KHRBC1 (TMP100,OUT(I))\r\n      DO 880 J = I,K\r\n      IF (OUTX(J) .NE. BLANK) OUT(J)=OUTX(J)\r\n  880 CONTINUE\r\n  890 N = N + 1\r\n      RETURN\r\nC\r\nC     ERROR\r\nC\r\n  900 WRITE  (NOUT,910) UFM\r\n  910 FORMAT (A23,' 300, DATA ERROR IN FIELD UNDERLINED.')\r\n      WRITE  (NOUT,920)\r\n  920 FORMAT (10X,'FLOATING POINT NUMBER OUT OF MACHINE RANGE')\r\n      WRITE  (NOUT,925) POWER,IT,CHECK,LOWPW,HIGHPW\r\n  925 FORMAT (10X,'POWER,IT,CHECK,LOWPW,HIGHPW =',5I5)\r\n      GO TO  1060\r\n  930 WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,940)\r\n  940 FORMAT (10X,'INTEGER MAGNITUDE OUT OF MACHINE RANGE')\r\n      GO TO  1060\r\n  950 IF (XSORT2 .EQ. 2) GO TO 50\r\n      WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,960)\r\n  960 FORMAT (10X,'DATA NOT RECOGNIZEABLE')\r\n      GO TO  1060\r\n  970 EXPONT = .FALSE.\r\n      IF (XSORT2 .EQ. 2) GO TO 50\r\n      WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,980)\r\n  980 FORMAT (10X,'POSSIBLE ERROR IN EXPONENT')\r\n      GO TO  1060\r\n  990 IF (XSORT2 .EQ. 2) GO TO 50\r\n      WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,1000)\r\n 1000 FORMAT (10X,'POSSIBLE IMBEDDED BLANK')\r\n      GO TO  1060\r\n 1020 IF (XSORT2 .EQ. 2) GO TO 50\r\n      WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,1030)\r\n 1030 FORMAT (10X,'INCORRECT DEWEY DECIMAL NUMBER')\r\n      GO TO  1060\r\n 1040 IF (XSORT2 .EQ. 2) GO TO 50\r\n      WRITE  (NOUT,910) UFM\r\n      WRITE  (NOUT,1050)\r\n 1050 FORMAT (10X,'INTERNAL CONVERSION OF DEWEY DECIMAL IS TOO LARGE')\r\n 1060 DO 1070 J = 1,20\r\n      IF (OUTX(J) .NE. STARS) OUTX(J) = BLANK\r\n 1070 CONTINUE\r\n      WORD = (FIELD-1)*NWORDS + 2\r\n      K = STARS\r\n 1080 OUTX(WORD  ) = K\r\n      OUTX(WORD-1) = K\r\n      IF (NWORDS.EQ.2 .OR. FIELD.EQ.1) GO TO 1090\r\n      OUTX(WORD-2) = K\r\n      OUTX(WORD-3) = K\r\n 1090 IF (K .EQ. 0) GO TO 1150\r\n      IF (NWORDS .EQ. 4) GO TO 1110\r\n      WRITE  (NOUT,1100)\r\n 1100 FORMAT (10X,'---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ',\r\n     1            '---7--- +++8+++ ---9--- +++10+++')\r\n      GO TO  1130\r\n 1110 WRITE  (NOUT,1120)\r\n 1120 FORMAT (10X,'---1--- +++++2+&+3+++++ -----4-&-5----- +++++6+&',\r\n     1            '+7+++++ -----8-&-9----- +++10+++')\r\n 1130 WRITE  (NOUT,1140) (IN4(I),I=1,20),OUTX\r\n 1140 FORMAT (10X,20A4)\r\n      NLINES = NLINES + 7\r\n      K = 0\r\n      GO TO  1080\r\n 1150 IOUT = IOUT + 1\r\n      OUTX(IOUT) = 0\r\n      IFMT = IFMT + 1\r\n      FMT(IFMT) = -1\r\n      NOGO =.TRUE.\r\n      GO TO 50\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/rcova.f",
    "content": "      SUBROUTINE RCOVA\r\nC\r\nC     RCOVA CREATES THE SOLN ITEM FOR A FINAL SOLUTION STRUCTURE (FSS)\r\nC     IN PHASE 2 OF SUBSTRUCTURING\r\nC\r\n      LOGICAL         MRECVR\r\n      INTEGER         IZ(1)      ,NAME(2)    ,SOLN       ,DRY        ,\r\n     1                STEP       ,FSS        ,RFNO       ,BUF1       ,\r\n     2                BUF2       ,BUF3       ,SYSBUF     ,RC         ,\r\n     3                SOF1       ,SOF2       ,SOF3       ,KM(5)      ,\r\n     4                KMU(5)     ,SCHK       ,UVEC       ,PHIS       ,\r\n     5                SCR1\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    SOLN  , UVEC,  PHIS / 4HSOLN,4HUVEC,4HPHIS /\r\n      DATA    KM    / 4HKMTX,4HMMTX,4HUVEC,4HBMTX,4HK4MX /\r\n      DATA    KMU   / 103,104,106,109,110 /\r\n      DATA    SCHK  / 3   /\r\n      DATA    SCR1  / 301 /\r\n      DATA    NAME  / 4HRCOV,4HA    /\r\nC\r\nC     INITIALIZE\r\nC\r\n      SOF1 = KORSZ(Z) - LREQ - SYSBUF + 1\r\n      SOF2 = SOF1 - SYSBUF - 1\r\n      SOF3 = SOF2 - SYSBUF\r\n      BUF1 = SOF3 - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      ICORE= 1\r\n      LCORE= BUF3 - 1\r\n      IF (LCORE .LE. 0) CALL MESAGE (-8,0,NAME)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     COPY KGG, MGG, UVEC, BGG AND K4GG TO THE SOF IF THEY ARNT THERE\r\nC\r\n      DO 20 I = 1,5\r\n      IF (KM(I).EQ.UVEC .AND. MRECVR) GO TO 20\r\n      IF (DRY .LT. 0) GO TO 5\r\n    3 CALL MTRXO (KMU(I),FSS,KM(I),Z(BUF1),RC)\r\n      GO TO (20,15,20,10,10,20), RC\r\n    5 RC = 2\r\n      CALL MTRXO (-1,FSS,KM(I),0,RC)\r\n      GO TO 20\r\n   10 CALL SMSG (RC-2,KM(I),FSS)\r\n      GO TO 20\r\n   15 CALL DELETE (FSS,KM(I),RC)\r\n      GO TO 3\r\n   20 CONTINUE\r\n      IF (DRY) 440,70,70\r\nC\r\nC     IF MODAL RECOVER, COPY PHIS ITEM TO UVEC\r\nC\r\n   70 IF (.NOT.MRECVR) GO TO 90\r\n      RFNO = 3\r\n      CALL MTRXI (SCR1,FSS,PHIS,0,RC)\r\n      IF (RC .EQ. 1) GO TO 80\r\n      CALL SMSG (RC-2,PHIS,FSS)\r\n      GO TO 9100\r\n   80 CALL MTRXO (SCR1,FSS,UVEC,0,RC)\r\nC\r\nC     ATTEMPT TO FETCH SOLN ITEM FOR FSS.  IF IT ALREADY EXISTS, RETURN\r\nC\r\n   90 CALL SFETCH (FSS,SOLN,SCHK,RC)\r\n      IF (RC .EQ. 1) GO TO 440\r\n      IF (RC .EQ. 3) GO TO 100\r\n      CALL SMSG (RC-2,SOLN,FSS)\r\n      GO TO 440\r\nC\r\nC     CREATE SOLN ITEM FOR PROPER RIGID FORMAT\r\nC\r\n  100 IF (RFNO.LT.0 .OR. RFNO.GT.9) GO TO 9007\r\n      GO TO (110,110,130,9007,9007,9007,9007,180,180) , RFNO\r\nC\r\nC     STATIC SOLUTION - R.F. 1 AND 2\r\nC\r\n  110 CALL RCOVSS\r\n      GO TO 440\r\nC\r\nC     MODAL SOLUTION - R.F. 3\r\nC\r\n  130 CALL RCOVMS\r\n      GO TO 440\r\nC\r\nC     DYNAMIC SOLUTION - R.F. 8 AND 9\r\nC\r\n  180 CALL RCOVDS\r\n      GO TO 440\r\nC\r\nC     FINISHED\r\nC\r\n  440 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     DIAGNOSTICS\r\nC\r\n 9007 CALL MESAGE (7,0,NAME)\r\n 9100 IOPT = -1\r\n      CALL SOFCLS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovb.f",
    "content": "      SUBROUTINE RCOVB\r\nC\r\nC     RCOVB PERFORMS THE BACK-SUBSTITUTIONS TO OBTAIN THE G-SET\r\nC     DISPLACEMENTS OF A SUBSTRUCTURE WHOSE LEVEL IS LOWER THAN OR\r\nC     EQUAL TO THAT OF THE FINAL SOLUTION STRUCTURE (FSS).\r\nC     FOR EACH SUBSTRUCTURE WHOSE DISPLACEMENTS ARE RECOVERED,\r\nC     AN SOLN ITEM IS CREATED BY EDITING THE SOLN ITEM OF THE FSS.\r\nC\r\n      EXTERNAL         ANDF\r\n      LOGICAL          MODAL\r\n      INTEGER          MCBTRL(7)  ,DRY        ,STEP       ,FSS       ,\r\n     1                 RFNO       ,UINMS      ,SCHK       ,UA        ,\r\n     2                 SSNM1      ,SYSBUF     ,RSP        ,RDP       ,\r\n     3                 RECT       ,UPPER      ,LOWER      ,SYM       ,\r\n     4                 HMCB       ,UBMCB      ,UAOMCB     ,UAMCB     ,\r\n     5                 TFLAG      ,SIGNAB     ,SIGNC      ,SCRM      ,\r\n     6                 UGV        ,UI(5)      ,SCR2       ,SCR3      ,\r\n     7                 SCR5       ,NAME(2)    ,BLANK      ,UVEC      ,\r\n     8                 POVE       ,HORG       ,SCR1       ,GMASK     ,\r\n     9                 PAO        ,UB         ,IZ(1)      ,SOFSIZ    ,\r\n     O                 SOF1       ,SOF2       ,SOF3       ,BUF1      ,\r\n     1                 BUF2       ,RC         ,SSNM(2)    ,EQSS      ,\r\n     2                 BUF(1)     ,ANDF       ,UIMPRO     ,ENERGY    ,\r\n     3                 RMASK      ,FILE       ,RD         ,RDREW     ,\r\n     4                 WRT        ,WRTREW     ,REW        ,EOFNRW    ,\r\n     5                 BUF3       ,BUF4\r\nC     INTEGER          SCR6       ,SCR7       ,SRD        ,SWRT\r\n      DOUBLE PRECISION DZ(1)\r\n      CHARACTER        UFM*23     ,UWM*25     ,UIM*29     ,SFM*25    ,\r\n     1                 SWM*27\r\n      COMMON /XMSSG /  UFM        ,UWM        ,UIM        ,SFM       ,\r\n     1                 SWM\r\n      COMMON /BLANK /  DRY        ,LOOP       ,STEP       ,FSS(2)    ,\r\n     1                 RFNO       ,NEIGV      ,LUI        ,UINMS(2,5),\r\n     2                 NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/  ICORE      ,LCORE      ,BUF1       ,BUF2      ,\r\n     1                 BUF3       ,BUF4       ,SOF1       ,SOF2      ,\r\n     2                 SOF3\r\n      COMMON /RCOVCM/  MRECVR     ,UA         ,PA         ,QA        ,\r\n     1                 IOPT       ,SSNM1(2)   ,ENERGY     ,UIMPRO    ,\r\n     2                 RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/  SYSBUF     ,NOUT\r\n      COMMON /NAMES /  RD         ,RDREW      ,WRT        ,WRTREW    ,\r\n     1                 REW        ,NOREW      ,EOFNRW     ,RSP       ,\r\n     2                 RDP        ,CSP        ,CDP        ,SQUARE    ,\r\n     3                 RECT       ,DIAG       ,UPPER      ,LOWER     ,\r\n     4                 SYM\r\n      COMMON /MPYADX/  HMCB(7)    ,UBMCB(7)   ,UAOMCB(7)  ,UAMCB(7)  ,\r\n     1                 MPYZ       ,TFLAG      ,SIGNAB     ,SIGNC     ,\r\n     2                 MPREC      ,SCRM\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (BUF(1)    ,Z(1))\r\n      EQUIVALENCE      (Z(1)      ,IZ(1)      ,DZ(1))\r\n      DATA    NAME  /  4HRCOV,4HB          /\r\n      DATA    UGV   ,  SCR1,SCR2,SCR3,SCR5 /\r\n     1        106   ,  301, 302, 303, 305  /\r\n      DATA    UI    /  204, 205, 206, 207, 208 /\r\n      DATA    UVEC  ,  POVE,HORG,EQSS / 4HUVEC,4HPOVE,4HHORG,4HEQSS /\r\n      DATA    IB    ,  SCHK / 1,  3   /\r\n      DATA    SCR6  ,  SCR7,SRD,SWRT  / 306,307, 1,2 /\r\n      DATA    RMASK /  469762048  /\r\n      DATA    GMASK /  268435456  /\r\n      DATA    MMASK /  134217728  /\r\n      DATA    BLANK /  4H         /\r\nC\r\nC     INITIALIZE\r\nC\r\n      LCOREZ= KORSZ(Z) - LREQ\r\n      SOF1  = LCOREZ - SYSBUF + 1\r\n      SOF2  = SOF1 - SYSBUF - 1\r\n      SOF3  = SOF2 - SYSBUF\r\n      BUF1  = SOF3 - SYSBUF\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      LCORE = BUF4 - 1\r\n      IF (LCORE .LE. 0) GO TO 9008\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      UA    = 0\r\n      PAO   = 0\r\n      TFLAG = 0\r\n      SIGNAB= 1\r\n      SIGNC = 1\r\n      MPREC = 0\r\n      SCRM  = SCR5\r\nC\r\nC     FIND OUT HOW MANY UI FILES THERE ARE AND WHICH ONES\r\nC\r\n      DO 10 I = 1,5\r\n      IZ(1) = UI(I)\r\n      CALL RDTRL (IZ)\r\n      IF (IZ(1) .LT. 0) UINMS(1,I) = 0\r\n   10 CONTINUE\r\nC\r\nC     IF UINMS(1,I) = 0         THEN  FILE UI(I) IS PURGED\r\nC     IF UINMS(1,I) = BLANK     THEN  FILE UI(I) IS AVAILABLE AND NOT\r\nC                                     IN USE\r\nC     IF UINMS(1,I) = OTHER     THEN  FILE UI(I) CONTAINS UGV FOR\r\nC                                     SUBSTRUCTURE -OTHER-\r\nC\r\n      SSNM(1) = SSNM1(1)\r\n      SSNM(2) = SSNM1(2)\r\nC\r\nC     IF SSNM IS THE FINAL SOLUTION STRUCTURE (FSS), NO RECOVERY IS\r\nC     NECESSARY.\r\nC\r\n      IF (SSNM(1).NE.FSS(1) .OR. SSNM(2).NE.FSS(2)) GO TO 190\r\n      UA = UGV\r\n      GO TO 508\r\nC\r\nC     SEARCH THE SOF FOR A DISPLACEMENT MATRIX OF SSNM OR A HIGHER\r\nC     LEVEL SUBSTRUCTURE FROM WHICH THE REQUESTED DISPLACEMENTS CAN BE\r\nC     RECOVERED\r\nC\r\n  190 JLVL = 1\r\n  200 CALL SOFTRL (SSNM,UVEC,MCBTRL)\r\n      RC  = MCBTRL(1)\r\n      IF (RC .EQ. 1) GO TO 270\r\n      IF (RC.EQ.2 .AND. DRY.LT.0) GO TO 270\r\n      IF (RC .EQ. 3) GO TO 210\r\n      IF (RC .EQ. 5) CALL SMSG (3,UVEC,SSNM)\r\n      IF (RC .EQ. 4) GO TO 500\r\n      WRITE (NOUT,63070) UWM,SSNM1,SSNM\r\n      GO TO 9200\r\nC\r\nC     NO UVEC AT THIS LEVEL.  SAVE SSNM IN A STACK AT TOP OF OPEN CORE\r\nC     AND SEARCH FOR UVEC OF THE NEXT HIGHER LEVEL\r\nC\r\n  210 LASTSS = 2*JLVL - 1\r\n      IZ(LASTSS  ) = SSNM(1)\r\n      IZ(LASTSS+1) = SSNM(2)\r\n      JLVL = JLVL + 1\r\n      CALL FNDNXL (Z(LASTSS),SSNM)\r\n      IF (SSNM(1) .NE. BLANK) GO TO 230\r\n      WRITE (NOUT,63060) UWM,IZ(LASTSS),IZ(LASTSS+1)\r\n      GO TO 9200\r\n  230 IF (SSNM(1).NE.IZ(LASTSS) .OR. SSNM(2).NE.IZ(LASTSS+1)) GO TO 240\r\n      WRITE (NOUT,63080) UWM,SSNM1,SSNM\r\n      GO TO 9200\r\nC\r\nC     IF SSNM IS NOT THE FSS, LOOK FOR UVEC ON THE SOF.  IF DRY RUN,\r\nC     EXIT.  IF IT IS THE FSS, SET UA=UGV.  IF UGV IS NOT PURGED GO TO\r\nC     BEGIN BACK-SUBSTITUTION.  OTHERWISE, GIVE IT THE SAME TREATMENT\r\nC     AS IF IT WERE NOT THE FSS.\r\nC\r\n  240 IF (SSNM(1).NE.FSS(1) .OR. SSNM(2).NE.FSS(2)) GO TO 200\r\n      IF (DRY .LT. 0) GO TO 500\r\n      UA = UGV\r\n      MCBTRL(1) = UA\r\n      CALL RDTRL (MCBTRL)\r\n      IF (MCBTRL(1) .GT. 0) GO TO 340\r\n      GO TO 200\r\nC\r\nC     FOUND A UVEC ON SOF FOR THIS LEVEL.  SEE IF IT HAS ALREADY BEEN\r\nC     PUT ON A UI FILE.  (IF DRY RUN, EXIT)\r\nC\r\n  270 IF (DRY.LT.0 .OR. JLVL.EQ.1) GO TO 500\r\n      DO 280 I = 1,5\r\n      UA = UI(I)\r\n      IF (SSNM(1).EQ.UINMS(1,I) .AND. SSNM(2).EQ.UINMS(2,I)) GO TO 340\r\n  280 CONTINUE\r\nC\r\nC     DATA BLANK /4H    /\r\nC\r\nC     IT DOES NOT RESIDE ON ANY UI FILE.  FIND A UI FILE TO USE.\r\nC\r\n      J = 0\r\n      DO 290 I = 1,5\r\n      IF (UINMS(1,I) .EQ. 0) GO TO 290\r\n      J = J + 1\r\n      IF (UINMS(1,I) .EQ. BLANK) GO TO 310\r\n  290 CONTINUE\r\n      GO TO 297\r\nC\r\nC     ALL UI FILES SEEM TO BE IN USE.  DO ANY REALLY EXIST\r\nC\r\n  297 IF (J .EQ. 0) GO TO 320\r\nC\r\nC     AT LEAST ONE EXISTS.  RE-USE THE ONE WITH OLDEST DATA\r\nC\r\n      I = LUI + 1\r\n      IF (I .GT. 5) I = 1\r\n      J = I\r\n  300 IF (UINMS(1,I) .NE. 0) GO TO 310\r\nC\r\nC     NO FILE THERE.  TRY NEXT ONE.\r\nC\r\n      I = I + 1\r\n      IF (I .GT. 5) I = 1\r\n      IF (I .EQ. J) GO TO 320\r\n      GO TO 300\r\nC\r\nC     FOUND A UI FILE TO USE\r\nC\r\n  310 LUI = I\r\n      UA  = UI(I)\r\n      UINMS(1,I) = SSNM(1)\r\n      UINMS(2,I) = SSNM(2)\r\n      GO TO 330\r\nC\r\nC     ALL UI FILES ARE PURGED.  USE SCR1 INSTEAD\r\nC\r\n  320 UA = SCR1\r\nC\r\nC     COPY UVEC FROM SOF TO UA\r\nC\r\n  330 CALL MTRXI (UA,SSNM,UVEC,0,RC)\r\nC\r\nC     TOP OF BACK-SUBSTITUTION LOOP\r\nC\r\n  340 UB = UA\r\n      UAOMCB(1) = 0\r\n      ICORE = LASTSS  + 2\r\n      IDPCOR= ICORE/2 + 1\r\nC\r\nC     CHECK IF THE EQSS ITEM IS THERE FOR THIS SUBSTRUCTURE\r\nC\r\n      CALL SFETCH (Z(LASTSS),EQSS,SCHK,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\nC\r\nC     COMPUTE TIME TO RECOVER THIS LEVEL AND CHECK TIME-TO-GO\r\nC\r\nC     (A DETAILED TIME CHECK SHOULD BE CODED LATER.  FOR THE PRESENT,\r\nC     JUST CHECK TO SEE IF TIME HAS RUN OUT NOW.)\r\nC\r\n      CALL TMTOGO (I)\r\n      IF (I .LE. 0) GO TO 6309\r\nC\r\nC     CHECK REMAINING SPACE ON SOF.  FIRST CALCULATE HOW MUCH SPACE\r\nC     THE RECOVERED DISPLACEMENT MATRIX WILL TAKE (ASSUMING IT IS FULL).\r\nC\r\n      MCBTRL(1) = UB\r\n      CALL RDTRL (MCBTRL)\r\n      I = MCBTRL(2)\r\nC\r\nC     NO. OF COLUMNS IN DISPLACEMENT MATRIX IN I\r\nC\r\n      CALL SOFTRL (Z(LASTSS),HORG,MCBTRL)\r\n      RC = MCBTRL(1)\r\n      ITEM = HORG\r\n      IF (RC .GT. 1) GO TO 6317\r\n      NROW = MCBTRL(3)\r\n      J = I*NROW\r\nC\r\nC     NOW CHECK SPACE\r\nC\r\n      IF (SOFSIZ(I) .LT. J) GO TO 6310\r\nC\r\nC     CREATE THE SOLUTION ITEM FOR THE RECOVERED SUBSTRUCTURE.\r\nC\r\n      CALL RCOVLS (Z(LASTSS))\r\n      IF (IOPT .LT. 0) GO TO 9000\r\nC\r\nC     FIND A UI FILE FOR DISPLACEMENTS\r\nC\r\n      J = 0\r\n      DO 420 I = 1,5\r\n      IF (UINMS(1,I) .EQ. 0) GO TO 420\r\n      J = J + 1\r\n      IF (UINMS(1,I) .EQ. BLANK) GO TO 440\r\n  420 CONTINUE\r\nC\r\nC     NO UNUSED UI FILES ARE AVAILABLE.  IF TWO OR MORE UI FILES ARE\r\nC     NOT PURGED, USE THE ONE WITH OLDEST DATA.  OTHERWISE, USE SCR2.\r\nC     MAKE SURE WE DON T ASSIGN THE SAME FILE AS THE HIGHER\r\nC     LEVEL DISPLACEMENTS ARE ON (UB)\r\nC\r\n      IF (J .LT. 2) GO TO 450\r\n      I = LUI + 1\r\n      IF (I .GT. 5) I = 1\r\n      J = I\r\n  430 IF (UINMS(1,I).NE.0 .AND. UI(I).NE.UB) GO TO 440\r\n      I = I + 1\r\n      IF (I .GT. 5) I = 1\r\n      IF (I .EQ. J) GO TO 450\r\n      GO TO 430\r\nC\r\nC     FOUND A UI FILE\r\nC\r\n  440 LUI = I\r\n      UA  = UI(I)\r\n      UINMS(1,I) = IZ(LASTSS  )\r\n      UINMS(2,I) = IZ(LASTSS+1)\r\n      GO TO 455\r\n  450 UA = SCR2\r\nC\r\nC     IF THE RECOVERED SUBSTRUCTURE WAS NOT REDUCED GENERATE THE\r\nC     DISPLACEMENTS DIRECTLY.\r\nC     IF THE SUBSTRUCTURE WAS REDUCED AND THE UIMPROVED FLAG IS SET\r\nC     AND THIS IS A NON-STATICS RUN GENERATE THE IMPROVED DISPLACEMENTS.\r\nC     IF THE SUBSTRUCTURE WAS IN A GUYAN REDUCTION AND THIS IS A\r\nC     STATICS RUN GENERATE THE LOADS ON THE OMMITED POINTS.\r\nC\r\nC     INCLUDE THE CHECK ON THE POVE ITEM ALSO TO BE COMPATABLE WITH\r\nC     PREVIOUS SOFS WITH NO TYPE BITS\r\nC\r\n  455 CALL SOFTRL (Z(LASTSS),POVE,MCBTRL)\r\n      IPOVE = MCBTRL(1)\r\n      CALL FDSUB (SSNM,IDIT)\r\n      RC = 4\r\n      IF (IDIT .LT. 0) GO TO 6317\r\n      CALL FMDI (IDIT,IMDI)\r\n      MODAL = .FALSE.\r\n      IF (ANDF(BUF(IMDI+IB),MMASK) .NE. 0) MODAL = .TRUE.\r\n      IF (ANDF(BUF(IMDI+IB),RMASK).NE.0 .AND. UIMPRO.NE.0 .AND.\r\n     1    RFNO.GT.2) GO TO 470\r\n      IF (ANDF(BUF(IMDI+IB),GMASK).NE.0 .AND. RFNO.LE.2) GO TO 480\r\n      IF (ANDF(BUF(IMDI+IB),RMASK).EQ.0 .AND. IPOVE.EQ.1 .AND.\r\n     1    RFNO.LE.2) GO TO 480\r\n      GO TO 490\r\nC\r\nC     IF THE USER REQUESTED AN IMPROVED VECTOR AND THIS IS A NONSTATICS\r\nC     RUN THEN GENERATE IT.\r\nC\r\n  470 CALL RCOVUI (UB,Z(LASTSS),MODAL)\r\n      IF (IOPT .LT. 0) GO TO 9000\r\n      GO TO 495\r\nC\r\nC     GENERATE THE LOADS ON THE OMITED POINTS FOR REDUCED SUBSTRUCTURES\r\nC     IF THIS IS A STATICS RUN\r\nC\r\n  480 CALL RCOVUO (0,UAOMCB(1),Z(LASTSS))\r\n      IF (IOPT .LT. 0) GO TO 9000\r\nC\r\nC     MULIPLY AND ADD TO GET DISPLACEMENTS OF LOWER-LIVEL SUBSTRUCTURE.\r\nC\r\nC     COPY H OR G TRANSFORMATION MATRIX TO SCR3\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n  490 ITEM = HORG\r\n      CALL MTRXI (SCR3,Z(LASTSS),HORG,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\nC\r\nC     SETUP FOR MPYAD\r\nC\r\n      CALL SOFCLS\r\n      HMCB(1) = SCR3\r\n      UBMCB(1)= UB\r\n      CALL RDTRL (HMCB)\r\n      CALL RDTRL (UBMCB)\r\n      IF (UAOMCB(1) .NE. 0) CALL RDTRL (UAOMCB)\r\n      CALL MAKMCB (UAMCB,UA,HMCB(3),RECT,UBMCB(5))\r\n      MPYZ = LCOREZ - ICORE - 7\r\n      CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (UAMCB)\r\nC\r\nC     COPY RECOVERED DISPLACEMENTS TO SOF\r\nC\r\n  495 CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      CALL MTRXO (UA,Z(LASTSS),UVEC,0,RC)\r\nC\r\nC     END OF BACK-SUBSTITUTION LOOP\r\nC     CLOSE AND REOPEN THE SOF TO GET ANY CONTROL BLOCKS WRITTEN TO\r\nC     FILE\r\nC\r\n      CALL SOFCLS\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      SSNM(1) = IZ(LASTSS)\r\n      SSNM(2) = IZ(LASTSS+1)\r\n      LASTSS  = LASTSS - 2\r\n      JLVL    = JLVL - 1\r\n      WRITE (NOUT,63120) UIM,JLVL,SSNM\r\n      IF (JLVL .GT. 1) GO TO 340\r\nC\r\nC     NORMAL COMPLETION OF MODULE EXECUTION\r\nC\r\n  508 CONTINUE\r\n  500 DO 510 I = 1,5\r\n      IF (UINMS(1,I) .EQ. 0) UINMS(1,I) = BLANK\r\n  510 CONTINUE\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERROR PROCESSING\r\nC\r\n 6309 WRITE (NOUT,63090) SFM,IZ(LASTSS),IZ(LASTSS+1),SSNM,SSNM1\r\n      N = -37\r\n      GO TO 9100\r\n 6310 WRITE (NOUT,63100) SWM,IZ(LASTSS),IZ(LASTSS+1),SSNM,SSNM1\r\n      GO TO 9200\r\n 6317 IF (RC .EQ. 2) RC = 3\r\n      CALL SMSG (RC-2,ITEM,Z(LASTSS))\r\n 9000 WRITE (NOUT,63170) SWM,SSNM1\r\n      GO TO 9200\r\n 9008 N = 8\r\n 9100 CALL SOFCLS\r\n      CALL MESAGE (N,FILE,NAME)\r\n 9200 IOPT = -1\r\n      GO TO 500\r\nC\r\nC     FORMAT STATEMENTS\r\nC\r\n63060 FORMAT (A25,' 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON-',\r\n     1       'EXISTANT SUBSTRUCTURE ',2A4)\r\n63070 FORMAT (A25,' 6307, WHILE ATTEMPTING TO RECOVER DISPLACEMENTS ',\r\n     1       'FOR SUBSTRUCTURE ',2A4,1H,, /32X,'THE DISPLACEMENTS FOR ',\r\n     2       'SUBSTRUCTURE ',2A4,' WERE FOUND TO EXIST IN DRY RUN ',\r\n     3       'FORM ONLY.')\r\n63080 FORMAT (A25,' 6308, NO SOLUTION AVAILABLE FROM WHICH DISPLACE',\r\n     1       'MENTS FOR SUBSTRUCTURE ',2A4, /32X,'CAN BE RECOVERED.  ',\r\n     2       'HIGHEST LEVEL SUBSTRUCTURE FOUND WAS ',2A4)\r\n63090 FORMAT (A25,' 6309, INSUFFICIENT TIME REMAINING TO RECOVER DIS',\r\n     1       'PLACEMENTS OF SUBSTRUCTURE ',2A4, /32X,'FROM THOSE OF ',\r\n     2       'SUBSTRUCTURE ',2A4,'.  (PROCESSING USER RECOVER REQUEST',\r\n     3       /32X,'FOR SUBSTRUCTURE ',2A4,1H))\r\n63100 FORMAT (A27,' 6310, INSUFFICIENT SPACE ON SOF TO RECOVER DIS',\r\n     1       'PLACEMENTS OF SUBSTRUCTURE ',2A4, /32X,' FROM THOSE OF ',\r\n     2       'SUBSTRUCTURE ',2A4,' WHILE PROCESSING USER RECOVER ',\r\n     3       'REQUEST', /32X,'FOR SUBSTRUCTURE ',2A4)\r\n63120 FORMAT (A29,' 6312, LEVEL',I4,' DISPLACEMENTS FOR SUBSTRUCTURE ',\r\n     1       2A4, /36X,'HAVE BEEN RECOVERED AND SAVED ON THE SOF.')\r\n63170 FORMAT (A25,' 6317, RECOVER OF DISPLACEMENTS FOR SUBSTRUCTURE ',\r\n     1       2A4,' ABORTED.')\r\n      END\r\n"
  },
  {
    "path": "mis/rcovc.f",
    "content": "      SUBROUTINE RCOVC\r\nC\r\nC     RCOVC COMPUTES REACTION FORCES AND GENERATES OUTPUT DATA BLOCKS\r\nC     FOR DISPLACEMENTS, APPLIED LOADS, AND REACTION FORCES.\r\nC\r\n      LOGICAL         INCORE     ,UFLAG      ,PFLAG      ,NON0       ,\r\n     1                QFLAG      ,END        ,ONCE       ,COMPLX     ,\r\n     2                SUPRES     ,KEEP\r\n      INTEGER         DRY        ,STEP       ,FSS        ,RFNO       ,\r\n     1                UINMS      ,UA         ,RSS        ,SYSBUF     ,\r\n     2                UTYPO      ,SOF2       ,SOF3       ,BUF1       ,\r\n     3                BUF2       ,CASESS     ,SOF1       ,OUGV1      ,\r\n     4                OPG1       ,OQG1       ,SCR1       ,EQSS       ,\r\n     5                SOLN       ,ENERGY     ,PVEC       ,UVEC       ,\r\n     6                NAME(2)    ,CASECC(2)  ,SRD        ,PG         ,\r\n     7                SUBSTR(4)  ,IZ(2)      ,RC         ,FILE       ,\r\n     8                QA         ,PA         ,NAMEF(2)   ,IDBUF(146) ,\r\n     9                DISP(3)    ,OLOAD(3)   ,SPCF(3)    ,DOFS(32)   ,\r\n     O                BUF3       ,NFWD(3)    ,COMPS(3)   ,BUF(1)     ,\r\n     1                ACCE(3)    ,VELO(3)    ,BUF4       ,SCR2       ,\r\n     2                SCR6       ,SCR7       ,SCR8       ,SCR3\r\n      DIMENSION       MCBA(7)    ,RBUF(1)    ,RDBUF(7)   ,DATA(12)\r\n      CHARACTER       UFM*23     ,UWM*25     ,UIM*29     ,SFM*25     ,\r\n     1                SWM*27\r\n      COMMON /XMSSG / UFM        ,UWM        ,UIM        ,SFM        ,\r\n     1                SWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW\r\n      COMMON /UNPAKX/ UTYPO      ,IRU        ,NRU        ,INCU\r\n      COMMON /CONDAS/ PHI        ,TWOPHI     ,RADDEG\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (BUF(1)    ,Z(1))\r\n      EQUIVALENCE     (Z(1)      ,IZ(1)),    (BUF(1)     ,RBUF(1))   ,\r\n     1                (IDBUF(1)  ,RDBUF(1))\r\n      DATA    CASESS, OUGV1      ,OPG1       ,OQG1       ,SCR1       ,\r\n     1        PG    , SCR3       ,SCR6       ,SCR7       ,SCR8       ,\r\n     2        SCR2  /\r\n     3        101   , 201        ,202        ,203        ,301        ,\r\n     4        105   , 303        ,306        ,307        ,308        ,\r\n     5        302   /\r\n      DATA    SRD   / 1          /\r\n      DATA    EQSS  , SOLN       ,UVEC       ,PVEC       /\r\n     1        4HEQSS, 4HSOLN     ,4HUVEC     ,4HPVEC     /\r\n      DATA    NAME               ,CASECC                 ,SUBSTR     /\r\n     2        4HRCOV, 4HC        ,4HCASE     ,4HCC       ,4HSUBS     ,\r\n     3        4HTRUC, 4HTURE     ,4H         /\r\n      DATA    COMPS /\r\n     1        4HCOMP, 4HONEN     ,4HT        /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IF (DRY .LT. 0) RETURN\r\n      SOF1 = KORSZ(Z) - LREQ - SYSBUF + 1\r\n      SOF2 = SOF1 - SYSBUF - 1\r\n      SOF3 = SOF2 - SYSBUF\r\n      BUF1 = SOF3 - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      LCORE= BUF4 - 1\r\n      IF (LCORE .LE. 0) GO TO 6313\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     ================================================\r\nC     THIS CARD SHOULD BE ADDED WHEN SDR3 IS FIXED\r\nC\r\nC     IF (RFNO .EQ. 9) NOSORT = 1\r\nC\r\nC     ================================================\r\n      PA = 0\r\n      QA = 0\r\n      UFLAG = .FALSE.\r\n      PFLAG = .FALSE.\r\n      QFLAG = .FALSE.\r\nC\r\nC     CHECK OUTPUT REQUESTS ON CASESS\r\nC\r\n      CALL GOPEN (CASESS,Z(BUF1),RDREW)\r\n      NCCREC = 1\r\n      FILE   = CASESS\r\n  110 CALL FREAD (CASESS,Z,2,1)\r\n      NCCREC = NCCREC + 1\r\n      IF (IZ(1).NE.CASECC(1) .OR. IZ(2).NE.CASECC(2)) GO TO 110\r\n  120 CALL READ (*130,*9003,CASESS,IDBUF,35,1,I)\r\n      IF (IDBUF(17) .NE. 0) PFLAG = .TRUE.\r\n      IF (IDBUF(20) .NE. 0) UFLAG = .TRUE.\r\n      IF (IDBUF(29).NE.0 .AND. RFNO.GE.8) UFLAG = .TRUE.\r\n      IF (IDBUF(32).NE.0 .AND. RFNO.GE.8) UFLAG = .TRUE.\r\n      IF (IDBUF(35) .NE. 0) QFLAG = .TRUE.\r\n      IF (PFLAG .AND. UFLAG .AND. QFLAG) GO TO 130\r\n      GO TO 120\r\n  130 CALL CLOSE (CASESS,REW)\r\nC\r\n      IF (BUF(IREQ  ) .EQ. 1) UFLAG = .TRUE.\r\n      IF (BUF(IREQ+1) .EQ. 1) PFLAG = .TRUE.\r\n      IF (BUF(IREQ+2) .EQ. 1) QFLAG = .TRUE.\r\n      IF (ENERGY .EQ. 0) GO TO 135\r\n      UFLAG = .TRUE.\r\n      IF (RFNO.GE.3 .AND. RFNO.LE.8) PFLAG = .TRUE.\r\n      IF (RFNO.GE.3 .AND. RFNO.LE.8) QFLAG = .TRUE.\r\n  135 CONTINUE\r\nC\r\n      IF (.NOT.(UFLAG .OR. PFLAG .OR. QFLAG)) GO TO 900\r\nC\r\nC     COMPUTE THE APPLIED STATIC LOADS FOR THE REQUESTED SUBSTRUCTURE\r\nC     IF WE ARE PRINTING THE SOLUTION SUBSTRUCTURE CHECK IF THE LOADS\r\nC     ARE ON A GINO FILE.\r\nC\r\n      IF (RFNO .EQ. 3) PFLAG = .FALSE.\r\n      IF (.NOT.PFLAG .AND. (.NOT.QFLAG .OR. RFNO .EQ. 3)) GO TO 150\r\n      IF (RSS(1).NE.FSS(1) .OR. RSS(2).NE.FSS(2)) GO TO 140\r\n      PA = PG\r\n      MCBA(1) = PG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 150\r\n  140 PA = SCR3\r\n      CALL RCOVSL (RSS,PVEC,0,SCR6,SCR7,SCR8,PA,Z(1),Z(1),SOF3-1,\r\n     1            .FALSE.,RFNO)\r\n      IF (PA .LE. 0) PFLAG = .FALSE.\r\nC\r\nC     GET THE DISPLACEMENT VECTOR AND IF RIGID FORMAT 8 THEN\r\nC     CALCULATE THE VELOCITIES AND ACCELERATIONS.\r\nC\r\n  150 IF (.NOT.UFLAG .AND. .NOT.QFLAG) GO TO 170\r\n      MCBA(1) = UA\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 160\r\n      UA = SCR2\r\n      CALL MTRXI (UA,RSS,UVEC,0,RC)\r\n      IF (RC .EQ. 1) GO TO 160\r\n  155 UA = 0\r\n      WRITE (NOUT,63190) SWM,RSS\r\n      UFLAG = .FALSE.\r\n      QFLAG = .FALSE.\r\n      ENERGY = 0\r\nC\r\n  160 IF (RFNO.NE.8 .OR. .NOT.(UFLAG.OR.QFLAG)) GO TO 170\r\n      CALL RCOVVA (UA,0,SCR1,0,0,0,RSS,Z(1),Z(1),Z(1))\r\n      IF (UA .LE. 0) GO TO 155\r\n      UA = SCR1\r\nC\r\nC     COMPUTE THE SPCF REACTIONS IF OUTPUT REQUESTS WERE SPECIFIED\r\nC\r\n  170 IF (QFLAG) CALL RCOVQV\r\n      IF (QA .LE. 0) QFLAG = .FALSE.\r\nC\r\nC     OUTPUT PROCESSING\r\nC\r\nC\r\nC     IF IOPT IS EQUAL TO ONE THEN THE OUTPUT WILL BE SORTED BY SUBCASE\r\nC     IF EQUAL TO TWO IT WILL BE SORTED BY SUBSTRUCTURE\r\nC\r\n      NP = BUF(IREQ+3)\r\n      NS = BUF(IREQ+4)\r\nC\r\nC     FIND THE LENGTH AND TYPE OF THE VECTORS TO BE OUTPUT\r\nC\r\n      CALL SOFTRL (RSS,UVEC,MCBA)\r\n      NMODES = MCBA(2)\r\n      NSTEPS = MCBA(2)\r\n      IF (RFNO .EQ. 9) NSTEPS = NSTEPS/3\r\n      COMPLX = .FALSE.\r\n      IF (MCBA(5) .GE. 3) COMPLX = .TRUE.\r\n      NWORD = 1\r\n      IF (COMPLX) NWORD = 2\r\nC\r\nC     PERFORM GENERAL INITIALIZATION OF OFP ID RECORD\r\nC\r\n      IDBUF( 3) = 0\r\n      IDBUF( 6) = 0\r\n      IDBUF( 7) = 0\r\n      IDBUF( 8) = 0\r\n      IDBUF(10) = 8\r\n      IF (COMPLX) IDBUF(10) = 14\r\n      DO 370 I = 11,50\r\n  370 IDBUF(I) = 0\r\nC\r\nC     INITALIZE THE UNPACK COMMON BLOCK\r\nC\r\n      UTYPO = 1\r\n      IF (COMPLX) UTYPO = 3\r\n      IRU   = 1\r\n      NRU   = MCBA(3)\r\n      INCU  = 1\r\nC\r\nC     ALLOCATE OPEN CORE\r\nC\r\n      ISETS = 1\r\n      LSETS = 100\r\n      IVECT = ISETS + LSETS\r\n      ISIL  = IVECT + (NRU*NWORD)\r\n      IEQSS = ISIL  + NP\r\n      IF (IEQSS+2 .GT. LCORE) GO TO 6313\r\nC\r\nC\r\nC                          OPEN CORE DIAGRAM FOR /RCOVCX/\r\nC\r\nC                       +----------------------------------+\r\nC          Z(ISETS)     I                                  I\r\nC                       I     CASECC SET INFORMATION       I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC          Z(IVECT)     I                                  I\r\nC                       I     VECTOR TO BE PRINTED         I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC          Z(ISIL )     I                                  I\r\nC                       I     SCALAR INDEX LIST FROM EQSS  I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC          Z(IEQSS)     I                                  I\r\nC                       I     EQSS DATA IN TRIPLES OF      I\r\nC                       I        (1) EXTERNAL GRID ID      I\r\nC                       I        (2) INTERNAL POINT INDEX  I\r\nC                       I        (3) COMPONENT CODE        I\r\nC                       I     DATA FOR EACH BASIC SUB-     I\r\nC                       I     STRUCTURE TERMINATED BY      I\r\nC                       I     THREE (-1)S                  I\r\nC                       I                                  I\r\nC                       I     NOTE  EQSS DATA MAY NOT BE   I\r\nC                       I     IN CORE IF SPILL LOGIC       I\r\nC                       I     INVOKED.                     I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC          Z(ISEQ)      I                                  I\r\nC                       I     SYMMETRY SEQUENCE            I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC          Z(ICOMB)     I                                  I\r\nC                       I     VECTOR CONTRIBUTING TO THE   I\r\nC                       I     LINEAR COMBINATION FOR THE   I\r\nC                       I     SYMMETRY SEQUENCE            I\r\nC                       I                                  I\r\nC                       +----------------------------------+\r\nC\r\nC     READ SIL FROM EQSS INTO OPEN CORE AT ISIL\r\nC\r\n      CALL SFETCH (RSS,EQSS,SRD,RC)\r\n      N = NS + 1\r\n      CALL SJUMP (N)\r\n      DO 470 I = 1,NP\r\n      CALL SUREAD (Z(ISIL+I-1),1,NWDS,RC)\r\n  470 CALL SUREAD (J,1,NWDS,RC)\r\nC\r\nC     READ EQSS DATA INTO OPEN CORE AT IEQSS IF IT WILL FIT.  IF IOPT\r\nC     EQUALS 2, READ ONLY ONE GROUP AND PRCESS ONE BASIC SUBSTRUCTURE\r\nC     A TIME.\r\nC\r\n      INCORE = .FALSE.\r\n      NEQSS  = IEQSS + 2\r\n      CALL SFETCH (RSS,EQSS,SRD,RC)\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      NSS = NS\r\n      IF (IOPT .EQ. 2) NSS = 1\r\n      ISS = 0\r\nC\r\nC     TOP OF LOOP OVER BASIC SUBSTRUCTURES WHEN PROCESSING ONE AT A TIME\r\nC\r\n  475 ISS = ISS + 1\r\n      K   = LCORE - IEQSS + 1\r\n      J   = IEQSS\r\n      ITEM= EQSS\r\n      DO 480 I = 1,NSS\r\n      CALL SUREAD (Z(J),K,NWDS,RC)\r\n      IF (RC .EQ. 3) GO TO 6107\r\n      IF (RC .NE. 2) GO TO 490\r\n      J = J + NWDS\r\n      IF (J+3 .GT. LCORE) GO TO 490\r\n      IZ(J  ) = -1\r\n      IZ(J+1) = -1\r\n      IZ(J+2) = -1\r\n      J       = J + 3\r\n      NEQSS   = J - 1\r\n      K       = K - NWDS - 3\r\n      IF (K .LE. 0) GO TO 490\r\n  480 CONTINUE\r\n      INCORE  = .TRUE.\r\n      GO TO 491\r\nC\r\nC     EQSS WILL NOT FIT IN CORE\r\nC\r\n  490 NEQSS = IEQSS + 2\r\n  491 ISEQ  = NEQSS + 1\r\nC\r\nC     WRITE HEADER RECORDS ON OUTPUT DATA BLOCKS AND POSITION BOTH\r\nC     INPUT AND OUTPUT DATA BLOCKS AFTER THE HEADER RECORD\r\nC\r\n      DO 497 I = 1,3\r\n      GO TO (495,492,493), I\r\nC\r\nC     CHECK DISPLACEMENT VECTOR\r\nC\r\n  495 IF (.NOT.UFLAG) GO TO 497\r\n      IN   = UA\r\n      IOUT = OUGV1\r\n      GO TO 494\r\nC\r\nC     CHECK LOAD VECTOR\r\nC\r\n  492 IF (.NOT.PFLAG) GO TO 497\r\n      IN   = PA\r\n      IOUT = OPG1\r\n      GO TO 494\r\nC\r\nC     CHECK READTIONS VECTOR\r\nC\r\n  493 IF (.NOT.QFLAG) GO TO 497\r\n      IN   = QA\r\n      IOUT = OQG1\r\nC\r\nC     POSITION FILES\r\nC\r\n  494 CALL GOPEN (IN,Z(BUF1),RDREW)\r\n      CALL CLOSE (IN,NOREW)\r\n      IF (ISS .GT. 1) GO TO 497\r\n      CALL OPEN (*496,IOUT,Z(BUF2),WRTREW)\r\n      CALL FNAME (IOUT,NAMEF)\r\n      CALL WRITE (IOUT,NAMEF,2,1)\r\n      CALL CLOSE (IOUT,NOREW)\r\n      GO TO 497\r\nC\r\nC     OUTPUT FILE PURGED - TURN OFF REQUEST FLAG\r\nC\r\n  496 WRITE (NOUT,63140) SWM,IOUT\r\n      IF (IOUT .EQ. OUGV1) UFLAG = .FALSE.\r\n      IF (IOUT .EQ. OPG1 ) PFLAG = .FALSE.\r\n      IF (IOUT .EQ. OQG1 ) QFLAG = .FALSE.\r\n  497 CONTINUE\r\nC\r\nC     SETUP FOR LOOP OVER SUBCASES\r\nC\r\n      ISC = 0\r\n      DO 510 I = 1,3\r\n  510 NFWD(I) = 0\r\nC\r\nC     POSITION CASESS TO FIRST CASECC SUBCASE\r\nC\r\n      FILE = CASESS\r\n      CALL OPEN (*9001,CASESS,Z(BUF3),RDREW)\r\n      DO 530 I = 1,NCCREC\r\n  530 CALL FWDREC (*9002,CASESS)\r\n      END = .FALSE.\r\nC\r\nC     TOP OF LOOP OVER SUBCASES\r\nC\r\n  540 ISC   = ISC + 1\r\n      ITYPE = 1\r\n      IF (END) GO TO 596\r\nC\r\nC     READ OUTPUT REQUESTS FROM CASECC RECORD\r\nC\r\n      CALL READ  (*545,*9003,CASESS,0,-3,0,NWDS)\r\n      CALL FREAD (CASESS,LID  ,1  ,0)\r\n      CALL FREAD (CASESS,0    ,-12,0)\r\n      CALL FREAD (CASESS,OLOAD,3  ,0)\r\n      CALL FREAD (CASESS,DISP ,3  ,0)\r\n      CALL FREAD (CASESS,0    ,-6 ,0)\r\n      CALL FREAD (CASESS,ACCE ,3  ,0)\r\n      CALL FREAD (CASESS,VELO ,3  ,0)\r\n      CALL FREAD (CASESS,SPCF ,3  ,0)\r\n      CALL FREAD (CASESS,0    ,-1 ,0)\r\nC\r\nC     SET OUTPUT TYPE AND MEDIA - IF NO REQUEST IN CASE CONTROL\r\nC     THE DEFAULT VALUES ARE REAL AND PRINTER\r\nC\r\n      IFORM = 1\r\n      IF (COMPLX)  IFORM = 2\r\n      IF (DISP(2)  .EQ. 0) DISP(2) = 1\r\n      IF (DISP(3)  .EQ. 0) DISP(3) = IFORM\r\n      IF (DISP(3)  .LT. 0) NOSORT  = 1\r\n      IF (OLOAD(2) .EQ. 0) OLOAD(2)= 1\r\n      IF (OLOAD(3) .EQ. 0) OLOAD(3)= IFORM\r\n      IF (OLOAD(3) .LT. 0) NOSORT  = 1\r\n      IF (SPCF(2)  .EQ. 0) SPCF(2) = 1\r\n      IF (SPCF(3)  .EQ. 0) SPCF(3) = IFORM\r\n      IF (SPCF(3)  .LT. 0) NOSORT  = 1\r\n      IF (VELO(2)  .EQ. 0) VELO(2) = 1\r\n      IF (VELO(3)  .EQ. 0) VELO(3) = IFORM\r\n      IF (VELO(3)  .LT. 0) NOSORT  = 1\r\n      IF (ACCE(2)  .EQ. 0) ACCE(2) = 1\r\n      IF (ACCE(3)  .EQ. 0) ACCE(3) = IFORM\r\n      IF (ACCE(3)  .LT. 0) NOSORT  = 1\r\n      GO TO 548\r\nC\r\nC     END OF CASE CONTROL RECORDS - CHECK IF THIS IS REALLY THE END\r\nC\r\n  545 END = .TRUE.\r\n      IF (RFNO .LE. 2) GO TO 860\r\n      IF (RFNO.EQ.3 .AND. ISC.GT.NMODES) GO TO 860\r\n      IF (RFNO.GE.8 .AND. ISC.GT.NSTEPS) GO TO 860\r\n      GO TO 596\r\nC\r\nC     READ TITLE, SUBTITLE, AND LABEL.  WILL REPLACE RIGHTMOST WORDS OF\r\nC     SUBTITLE WITH BASIC SUBSTRUCTURE NAME\r\nC\r\n  548 CALL FREAD (CASESS,IDBUF(51),96,0)\r\n      DO 550 I = 1,3\r\n      IDBUF(I+101) = SUBSTR(I)\r\n  550 IDBUF(I+133) = COMPS(I)\r\n      IDBUF(  105) = SUBSTR(4)\r\n      IDBUF(  106) = RSS(1)\r\n      IDBUF(  107) = RSS(2)\r\nC\r\nC     READ SYMMETRY SEQUENCE AND SET INFORMATION\r\nC\r\n      NWDS =-1\r\n      IZ(ISETS  ) = 0\r\n      IZ(ISETS+1) = 0\r\n      CALL FREAD (CASESS,0,-31,0)\r\n      CALL FREAD (CASESS,LCC,1,0)\r\n      LSKIP = 167 - LCC\r\n      CALL FREAD (CASESS,0,LSKIP,0)\r\n      CALL READ (*9002,*590,CASESS,LSEQ,1,0,N)\r\n      IF (NEQSS+LSEQ .GT. LCORE) GO TO 6313\r\n      IF (LSEQ .GT. 0)CALL READ (*9002,*590,CASESS,Z(ISEQ),LSEQ,0,N)\r\n      ICOMB = ISEQ + LSEQ\r\n      IF (ICOMB+NRU .GT. LCORE) GO TO 6313\r\n      CALL READ (*9002,*590,CASESS,Z(ISETS),LSETS,0,NWDS)\r\n      K = LSETS\r\nC\r\nC     MUST EXPAND SETS PORTION OF OPEN CORE\r\nC\r\n  560 N = LCORE - NEQSS\r\n      IF (N .GT. 0) GO TO 570\r\n      IF (.NOT. INCORE) GO TO 6313\r\n      INCORE = .FALSE.\r\n      NEQSS  = IEQSS + 2\r\n      GO TO 560\r\n  570 DO 575 I = ISIL,NEQSS\r\n  575 IZ(LCORE-I+1) = IZ(NEQSS-I+1)\r\n      IVECT = IVECT + N\r\n      ISIL  = ISIL  + N\r\n      IEQSS = IEQSS + N\r\n      NEQSS = NEQSS + N\r\n      CALL READ (*9002,*580,CASESS,Z(ISETS+LSETS),N,0,NWDS)\r\n      K     = K + N\r\n      GO TO 560\r\n  580 NWDS  = K + NWDS\r\n  590 NSETS = ISETS + NWDS\r\nC\r\nC     PROCESS OUTPUT ITYPE\r\nC\r\n  596 ONCE  = .FALSE.\r\n      JEQSS = IEQSS - 3\r\n      ISKIP = 0\r\n      IF (ITYPE.EQ.1 .AND. .NOT.UFLAG) GO TO 855\r\n      IF (ITYPE.EQ.2 .AND. .NOT.PFLAG) GO TO 855\r\n      IF (ITYPE.EQ.3 .AND. .NOT.QFLAG) GO TO 855\r\n      IF (ITYPE.EQ.4 .AND. .NOT.UFLAG) GO TO 855\r\n      IF (ITYPE.EQ.5 .AND. .NOT.UFLAG) GO TO 855\r\nC\r\nC     FOR EACH BASIC SUBSTRUCTURE CURRENTLY BEING PROCESSED, CONSTRUCT\r\nC     ONE OFP ID AND DATA RECORD PAIR.  THE BASIC LOOP IS ABOVE THE\r\nC     VECTOR PROCESSING BECAUSE OUTPUT REQUESTS CAN CHANGE FOR EACH\r\nC     BASIC\r\nC\r\n      DO 840 JS = 1,NSS\r\n      JSS  = ISS  + JS - 1\r\n      NREQ = IREQ + (JSS-1)*LBASIC + 5\r\n      KPOINT = BUF(NREQ+12)\r\nC\r\nC     STATICS\r\nC\r\n      IF (RFNO .GT. 2) GO TO 603\r\n      IF (JS   .GT. 1) GO TO 598\r\n      IAPPRO   = 1\r\n      IDBUF(4) = ISC\r\n      IDBUF(5) = LID\r\n      GO TO 598\r\nC\r\nC     FOR NORMAL MODES GET MODE NUMBER, EIGENVALUE AND FREQUENCY\r\nC\r\n  603 IF (RFNO .NE. 3) GO TO 612\r\n      IF (JS   .GT. 1) GO TO 598\r\n      CALL SFETCH (FSS,SOLN,SRD,RC)\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      J = ISC - 1\r\n      IF (J .EQ. 0) GO TO 611\r\n      DO 597 I = 1,J\r\n  597 CALL SUREAD (MCBA(1),7,NWDS,RC)\r\n  611 CONTINUE\r\n      CALL SUREAD (MODE,1,NWDS,RC)\r\n      CALL SUREAD (I,1,NWDS,RC)\r\n      CALL SUREAD (EIGEN ,1,NWDS,RC)\r\n      CALL SUREAD (EIGENI,1,NWDS,RC)\r\n      CALL SUREAD (VALUE,1,NWDS,RC)\r\nC\r\n      IAPPRO = 2\r\n      IF (COMPLX) IAPPRO = 9\r\n      IDBUF(4) = ISC\r\n      IDBUF(5) = MODE\r\n      RDBUF(6) = EIGEN\r\n      RDBUF(7) = 0.0\r\n      IF (COMPLX) RDBUF(7) = EIGENI\r\n      GO TO 598\r\nC\r\nC     FOR DYNAMICS GET THE TIME OR FREQUENCY\r\nC\r\n  612 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 598\r\n      IF (JS .GT. 1) GO TO 598\r\n      CALL SFETCH (FSS,SOLN,SRD,RC)\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      J = ISC - 1\r\n      IF (J .EQ. 0) GO TO 614\r\n      DO 613 I = 1,J\r\n  613 CALL SUREAD (MCBA(1),1,NWDS,RC)\r\n  614 CONTINUE\r\n      CALL SUREAD (VALUE,1,NWDS,RC)\r\nC\r\n      IAPPRO = 5\r\n      IF (RFNO .EQ. 9) IAPPRO = 6\r\n      IDBUF(4) = ISC\r\n      RDBUF(5) = VALUE\r\n      IDBUF(8) = LID\r\nC\r\nC     GET SUBCASE OR MODE REQUEST\r\nC\r\n  598 IF (RFNO .GT. 2) GO TO 599\r\n      ISUB = ISC\r\n      ILOC = 5\r\n      GO TO 600\r\n  599 IF (RFNO .NE. 3) GO TO 607\r\n      ISUB = MODE\r\n      ILOC = 6\r\n      GO TO 600\r\n  607 ISUB = ISC\r\n      ILOC = 11\r\n  600 ISET = BUF(NREQ+ILOC)\r\n      IF (ISET .LT. 0) GO TO 608\r\n      IF (ISET .EQ. 0) GO TO 835\r\nC\r\nC     FIND THE REQUESTED SET\r\nC\r\n      JSET = ISETS\r\n  601 CONTINUE\r\n      IF (ISET .EQ. IZ(JSET)) GO TO 602\r\n      JSET = JSET + IZ(JSET+1) + 2\r\n      IF (JSET .LT. NSETS) GO TO 601\r\nC\r\nC     SET NOT FOUND, ISSUE WARNING AND PRINT ALL INSTEAD.\r\nC\r\n      WRITE (NOUT,63650) UWM,ISET\r\n      BUF(NREQ+ILOC) = -1\r\n      GO TO 608\r\nC\r\nC     FIND IF CURRENT SUBCASE OR MODE IS IN REQUESTED SET\r\nC\r\n  602 NEXT = 1\r\n      KSET = IZ(JSET+1)\r\n      CALL SETFND (*835,IZ(JSET+2),KSET,ISUB,NEXT)\r\nC\r\nC     SO FAR SO GOOD - IF NORMAL MODES OR DYNAMICS PROBLEM CHECK IF\r\nC     EIGEN VALUE, TIME OR FREQUENCY IS IN REQUESTED RANGE\r\nC\r\n  608 CONTINUE\r\n      IF (RFNO .LT. 3) GO TO 609\r\n      IF (VALUE .LT. RBUF(NREQ+7)) GO TO 835\r\n      IF (VALUE .GT. RBUF(NREQ+8)) GO TO 835\r\nC\r\n  609 GO TO (615,640,650,652,654), ITYPE\r\nC\r\nC     PROCESS DISPLACEMENT REQUESTS\r\nC\r\n  615 IOPST = DISP(1)\r\n      IF (BUF(NREQ+2) .GT. -2) IOPST = BUF(NREQ+2)\r\n      IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835\r\n      IF (ONCE) GO TO 705\r\n      ONCE  = .TRUE.\r\nC\r\n      IDC   = DISP(2)\r\n      IFORM = IABS(DISP(3))\r\n      IDBUF(2) = 1\r\n      IF (RFNO .EQ. 3) IDBUF(2) = 7\r\n      THRESH = UTHRES\r\n      SUPRES = .FALSE.\r\n      IN   = UA\r\n      IOUT = OUGV1\r\n      GO TO 660\r\nC\r\nC     PROCESS OLOAD REQUESTS\r\nC\r\n  640 IOPST = OLOAD(1)\r\n      IF (BUF(NREQ+3) .GT. -2) IOPST = BUF(NREQ+3)\r\n      IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835\r\n      IF (ONCE) GO TO 705\r\n      ONCE = .TRUE.\r\nC\r\n      IDC    = OLOAD(2)\r\n      IFORM  = IABS(OLOAD(3))\r\n      THRESH = PTHRES\r\n      SUPRES = .TRUE.\r\n      IDBUF(2) = 2\r\n      IN   = PA\r\n      IOUT = OPG1\r\n      GO TO 660\r\nC\r\nC     PROCESS SPCFORCE (ACTUALLY, ALL REACTIONS) REQUESTS\r\nC\r\n  650 IOPST = SPCF(1)\r\n      IF (BUF(NREQ+4) .GT. -2 ) IOPST = BUF(NREQ+4)\r\n      IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835\r\n      IF (ONCE) GO TO 705\r\n      ONCE = .TRUE.\r\nC\r\n      IDC    = SPCF(2)\r\n      IFORM  = IABS(SPCF(3))\r\n      THRESH = QTHRES\r\n      SUPRES = .TRUE.\r\n      IDBUF(2) = 3\r\n      IN   = QA\r\n      IOUT = OQG1\r\n      GO TO 660\r\nC\r\nC     PROCESS VELOCITY REQUESTS\r\nC\r\n  652 IOPST = VELO(1)\r\n      IF (BUF(NREQ+9) .GT. -2) IOPST = BUF(NREQ+9)\r\n      IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835\r\n      IF (ONCE) GO TO 705\r\n      ONCE = .TRUE.\r\nC\r\n      IDC   = VELO(2)\r\n      IFORM = IABS(VELO(3))\r\n      IDBUF(2) = 10\r\n      THRESH = UTHRES\r\n      SUPRES = .FALSE.\r\n      IN   = UA\r\n      IOUT = OUGV1\r\n      GO TO 660\r\nC\r\nC     PROCESS ACCELERATION REQUESTS\r\nC\r\n  654 IOPST = ACCE(1)\r\n      IF (BUF(NREQ+10) .GT. -2) IOPST = BUF(NREQ+10)\r\n      IF (IOPST.EQ.0 .AND. LSEQ.EQ.0) GO TO 835\r\n      IF (ONCE) GO TO 705\r\n      ONCE = .TRUE.\r\nC\r\n      IDC   = ACCE(2)\r\n      IFORM = IABS(ACCE(3))\r\n      IDBUF(2) = 11\r\n      THRESH = UTHRES\r\n      SUPRES = .FALSE.\r\n      IN   = UA\r\n      IOUT = OUGV1\r\nC\r\nC     OPEN FILES AND UNPACK VECTOR TO BE PRINTED\r\nC\r\n  660 FILE = IN\r\n      CALL GOPEN (IN,Z(BUF1),RD)\r\n      CALL GOPEN (IOUT,Z(BUF2),WRT)\r\n      IT  = ITYPE\r\n      IF (ITYPE .GT. 3) IT = 1\r\n      IF (LSEQ .GT. 0) GO TO 664\r\n      N   = NFWD(IT)\r\n      IF (N .LE. 0) GO TO 663\r\n      DO 662 I = 1,N\r\n  662 CALL FWDREC (*9002,IN)\r\n      NFWD(IT) = 0\r\n  663 CALL UNPACK (*673,IN,Z(IVECT))\r\n      GO TO 675\r\nC\r\nC     FORM LINEAR COMBINATION FOR SYMMETRY SEQUENCE\r\nC\r\n  664 N = NFWD(IT) - LSEQ\r\n      IF (N) 665,669,667\r\n  665 N = -N\r\n      DO 666 I = 1,N\r\n  666 CALL BCKREC(IN)\r\n      GO TO 669\r\n  667 DO 668 I = 1,N\r\n  668 CALL FWDREC (*9002,IN)\r\n  669 DO 670 I = 1,NRU\r\n  670 Z(IVECT+I-1) = 0.0E0\r\n      DO 672 I = 1,LSEQ\r\n      CALL UNPACK (*672,IN,Z(ICOMB))\r\n      DO 671 J = 1,NRU\r\n  671 Z(IVECT+J-1) = Z(IVECT+J-1) + Z(ISEQ+I-1)*Z(ICOMB+J-1)\r\n  672 CONTINUE\r\n      NFWD(IT) = 0\r\n      GO TO 675\r\n  673 N = NRU*NWORD\r\n      DO 674 I = 1,N\r\n  674 Z(IVECT+I-1) = 0.0\r\nC\r\nC     IF EQSS DATA NOT IN CORE, POSITION THE SOF\r\nC\r\n  675 IF (INCORE) GO TO 705\r\n      CALL SFETCH (RSS,EQSS,SRD,RC)\r\n      NSKIP = ISS + ISKIP\r\n      CALL SJUMP (NSKIP)\r\n      JEQSS = IEQSS\r\nC\r\nC     INSERT SUBSTRUCTURE NAME IN IDREC WRITE IT OUT\r\nC\r\n  705 IDBUF(1) = IDC + 10*IAPPRO\r\n      IF (COMPLX .AND. JS.EQ.1) IDBUF(2) = IDBUF(2) + 1000\r\n      IDBUF(  9) = IFORM\r\n      IDBUF(138) = BUF(NREQ)\r\n      IDBUF(139) = BUF(NREQ+1)\r\n      KEEP = .FALSE.\r\nC\r\nC     FIND THE REQUESTED OUTPUT SET\r\nC\r\n      NEXT  = 1\r\n      JSET  = ISETS\r\n      NJSET = JSET + 1\r\n      IF (IOPST .LT. 0) GO TO 730\r\n  710 IF (IOPST .EQ. IZ(JSET)) GO TO 730\r\n      JSET  = JSET + IZ(JSET+1) + 2\r\n      IF (JSET .LT. NSETS) GO TO 710\r\nC\r\nC     SET NOT FOUND. ISSUE A WARNING AND PRINT ALL INSTEAD\r\nC\r\n      WRITE (NOUT,63650) UWM,IOPST\r\n      I = ITYPE + 1\r\n      IF (ITYPE .GT. 3) I = I + 4\r\n      BUF(NREQ+I) = -1\r\n      IOPST = -1\r\nC\r\nC     FOR EACH GRID POINT ID IN EQSS FOR THE CURRENT SUBSTRUCTURE WHICH\r\nC     IS A MEMBER OF THE REQUESTED OUTPUT SET, WRITE A LINE OF OUTPUT\r\nC\r\n  730 IF (INCORE) GO TO 780\r\n      CALL SUREAD (Z(JEQSS),3,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 830\r\n      GO TO 790\r\n  780 JEQSS = JEQSS + 3\r\n      IF (IZ(JEQSS) .GT. 0) GO TO 790\r\n      GO TO 830\r\nC\r\n  790 IF (IOPST .LT. 0) GO TO 800\r\n      IF (NEXT .GT. IZ(JSET+1)) GO TO 830\r\n      KSET = IZ(JSET+1)\r\n      KID  = IZ(JEQSS )\r\n      CALL SETFND (*730,IZ(JSET+2),KSET,KID,NEXT)\r\nC\r\nC     WRITE A LINE OF OUTPUT\r\nC\r\n  800 ICODE = IZ(JEQSS+2)\r\n      CALL DECODE (ICODE,DOFS(1),N)\r\n      DOFS(N+1) = -1\r\n      JSIL = IZ(JEQSS+1) + ISIL - 1\r\n      K    = 0\r\n      NON0 = .FALSE.\r\n      DO 820 I = 1,6\r\n      IF (DOFS(K+1)+1 .NE. I) GO TO 815\r\n      J = IVECT + (IZ(JSIL)-1)*NWORD + K*NWORD\r\n      K = K + 1\r\n      DATA(I) = Z(J)\r\n      IF (COMPLX) GO TO 805\r\n      IF (SUPRES .AND. DATA(I).EQ.0.0) GO TO 815\r\n      IF (ABS(DATA(I)) .LT. THRESH) GO TO 815\r\n      NON0 = .TRUE.\r\n      GO TO 820\r\n  805 DATA(6+I) = Z(J+1)\r\n      IF (IFORM.NE.3 .OR. DATA(I)+DATA(6+I).EQ.0.0) GO TO 810\r\n      DATA(I)   = SQRT(Z(J)**2 + Z(J+1)**2)\r\n      DATA(6+I) = ATAN2(Z(J+1),Z(J))*RADDEG\r\n      IF (DATA(6+I) .LT. -.000005) DATA(6+I) = DATA(6+I) + 360.0\r\n  810 IF (SUPRES .AND. DATA(I)+DATA(6+I).EQ.0.0) GO TO 815\r\n      IF (ABS(DATA(I)).LT.THRESH .AND. ABS(DATA(6+I)).LT.THRESH)\r\n     1    GO TO 815\r\n      NON0 = .TRUE.\r\n      GO TO 820\r\n  815 DATA(  I) = 0.0\r\n      DATA(6+I) = 0.0\r\n  820 CONTINUE\r\n      IF (.NOT.NON0) GO TO 825\r\n      IF (.NOT. KEEP) CALL WRITE (IOUT,IDBUF,146,1)\r\n      CALL WRITE (IOUT,10*IZ(JEQSS)+IDC,1,0)\r\n      CALL WRITE (IOUT,KPOINT,1,0)\r\n      CALL WRITE (IOUT,DATA,6*NWORD,0)\r\n      KEEP = .TRUE.\r\n  825 CONTINUE\r\n      IF (NEXT.LE.IZ(JSET+1) .OR. IOPST.LT.0) GO TO 730\r\nC\r\nC     IF NO DATA WAS WRITTEN FOR THIS BASIC BACKREC THE OFP FILE\r\nC     OVER THE PREVIOUSLY WRITTEN ID RECORD\r\nC\r\n830   IF (KEEP) CALL WRITE (IOUT,0,0,1)\r\n      IF (IZ(JEQSS).LT.0 .OR. (.NOT.INCORE .AND. RC.NE.1)) GO TO 840\r\nC\r\nC     NO MORE OUTPUT FOR THIS BASIC - SKIP EQSS DATA\r\nC\r\n  835 CONTINUE\r\n      IF (INCORE) GO TO 836\r\n      IF (ONCE  ) GO TO 837\r\n      ISKIP = ISKIP + 1\r\n      GO TO 840\r\n  837 N = 1\r\n      CALL SJUMP (N)\r\n      GO TO 840\r\n  836 JEQSS = JEQSS + 3\r\n      IF (IZ(JEQSS) .GT. 0) GO TO 836\r\n  840 CONTINUE\r\nC\r\nC     GO BACK AND DO ANOTHER OUTPUT TYPE\r\nC\r\n      CALL CLOSE (IN,NOREW)\r\n      CALL CLOSE (IOUT,NOREW)\r\n  855 IF (ONCE) GO TO 856\r\n      IT = ITYPE\r\n      IF (ITYPE .GT. 3) IT = 1\r\n      NFWD(IT) = NFWD(IT) + 1\r\n  856 ITYPE = ITYPE + 1\r\n      IF (ITYPE .LE. 3) GO TO 596\r\n      IF (ITYPE.LE.5 .AND. RFNO.GE.8) GO TO 596\r\n      IF (.NOT.END) GO TO 540\r\n      IF (RFNO.EQ.3 .AND. ISC.LT.NMODES) GO TO 540\r\n      IF (RFNO.GE.8 .AND. ISC.LT.NSTEPS) GO TO 540\r\nC\r\nC     ALL SUBCASES PROCESSED,  IF IOPT EQ 2, GO BACK AND PROCESS\r\nC     NEXT BASIC SUBSTRUCTURE\r\nC\r\n  860 CALL CLOSE (CASESS,REW)\r\n      IF (IOPT.EQ.1 .OR. ISS.EQ.NS) GO TO 870\r\n      CALL SFETCH (RSS,EQSS,SRD,RC)\r\n      N = ISS + 1\r\n      CALL SJUMP (N)\r\n      GO TO 475\r\nC\r\nC     WRITE TRAILERS AND EOF ON OUTPUT DATA BLOCKS\r\nC\r\n  870 DO 880 I = 2,7\r\n  880 MCBA(I) = 1\r\n      IF (.NOT.UFLAG) GO TO 885\r\n      CALL GOPEN (OUGV1,Z(BUF1),WRT)\r\n      CALL CLOSE (OUGV1,REW)\r\n      MCBA(1) = OUGV1\r\n      CALL WRTTRL (MCBA)\r\n  885 IF (.NOT.PFLAG) GO TO 890\r\n      CALL GOPEN (OPG1,Z(BUF1),WRT)\r\n      CALL CLOSE (OPG1,REW)\r\n      MCBA(1) = OPG1\r\n      CALL WRTTRL (MCBA)\r\n  890 IF (.NOT.QFLAG) GO TO 900\r\n      CALL GOPEN (OQG1,Z(BUF1),WRT)\r\n      CALL CLOSE (OQG1,REW)\r\n      MCBA(1) = OQG1\r\n      CALL WRTTRL (MCBA)\r\nC\r\nC     NORMAL MODULE TERMINATION\r\nC\r\n  900 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERROR PROCESSING\r\nC\r\n 6107 N = 7\r\n      CALL SMSG (N,ITEM,RSS)\r\n      GO TO 9200\r\n 6313 WRITE (NOUT,63130) SWM,RSS\r\n      GO TO 9200\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9003 N = 3\r\n      GO TO 9100\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 CALL SOFCLS\r\n      DO 9201 I = 101,111\r\n 9201 CALL CLOSE (I,REW)\r\n      DO 9202 I = 201,203\r\n 9202 CALL CLOSE (I,REW)\r\n      DO 9203 I = 301,308\r\n 9203 CALL CLOSE(I,REW)\r\n      RETURN\r\nC\r\nC     DIAGNOSTICS FORMAT STATEMENTS\r\nC\r\n63130 FORMAT (A27,' 6313, INSUFFICIENT CORE FOR RCOVR MODULE WHILE ',\r\n     1       'TRYING TO PROCESS', /34X,'PRINTOUT DATA BLOCKS FOR ',\r\n     2       'SUBSTRUCTURE',2A4)\r\n63140 FORMAT (A27,' 6314, OUTPUT REQUEST CANNOT BE HONORED.', /34X,\r\n     1       'RCOVR MODULE OUTPUT DATA BLOCK',I4,' IS PURGED.')\r\n63190 FORMAT (A27,' 6319, DISPLACEMENT MATRIX FOR SUBSTRUCTURE ',2A4,\r\n     1       ' MISSING.' /5X,'DISPLACEMENT OUTPUT REQUESTS CANNOT BE ',\r\n     2       'HONORED.  SPCFORCE OUTPUT REQUESTS CANNOT BE HONORED UN',\r\n     3       'LESS THE', /5X,'REACTIONS HAVE BEEN PREVIOUSLY COMPUTED.')\r\n63650 FORMAT (A25,' 6365, REQUESTED OUTPUT SET ID',I6,' IS NOT DECLARED'\r\n     1,      ' IN CASE CONTROL, ALL OUTPUT WILL BE PRODUCED.')\r\n      END\r\n"
  },
  {
    "path": "mis/rcovds.f",
    "content": "      SUBROUTINE RCOVDS\r\nC\r\nC     THIS ROUTINE GENERATES THE DYNAMIC SOLUTION ITEM FOR RIGID\r\nC     FORMATS 8 AND 9\r\nC\r\n      INTEGER         DRY        ,STEP       ,FSS        ,RFNO        ,\r\n     1                RD         ,RDREW      ,WRT        ,WRTREW      ,\r\n     2                REW        ,SYSBUF     ,RC         ,EQSS        ,\r\n     3                SOLN       ,SRD        ,SWRT       ,EOI         ,\r\n     4                EOG        ,IZ(5)      ,UPV        ,TRL(7)      ,\r\n     5                BUF1       ,DLOAD      ,DLT        ,CASESS      ,\r\n     6                GEOM4      ,LOADC(2)   ,TOLPPF     ,NAME(2)     ,\r\n     7                FILE       ,DIT        ,TABLOC(13) ,CASECC(2)\r\n      CHARACTER       UFM*23     ,UWM*25\r\n      COMMON /XMSSG / UFM        ,UWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)      ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5)  ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2        ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2        ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA          ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO      ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW      ,\r\n     1                REW        ,NOREW      ,EOFNRW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /CONDAS/ PI         ,TWOPI      ,RADEG      ,DEGRA\r\n      EQUIVALENCE     (Z(1),IZ(1)) ,  (ISCALE,SCALE)\r\n      DATA    NAME  / 4HRCOV,4HDS  /\r\n      DATA    EQSS  , SOLN,LODS    / 4HEQSS,4HSOLN,4HLODS /\r\n      DATA    SRD   , SWRT,EOG,EOI / 1,2,2,3      /\r\n      DATA    UPV   , DLT,CASESS,GEOM4,TOLPPF,DIT /\r\n     1        106   , 108,101   ,102  ,111   ,107 /\r\n      DATA    LOADC / 500,  5      /\r\n      DATA    TABLOC/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 /\r\n      DATA    CASECC/ 4HCASE,4HCC  /\r\nC\r\nC     CREATE SOLN FOR RIGID FORMAT 8 OR 9\r\nC\r\nC     GET NUMBER OF BASIC SUBSTRUCTURES (NS) FROM EQSS AND CREATE\r\nC     GROUP 0 OF SOLN AT TOP OF OPEN CORE\r\nC\r\n      LCORE = BUF1 - 1\r\n      CALL SFETCH (FSS,EQSS,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 110\r\n      CALL SMSG (RC-2,EQSS,FSS)\r\n      GO TO 810\r\n  110 CALL SUREAD (Z,2,NWDS,RC)\r\n      CALL SUREAD (NS,1,NWDS,RC)\r\n      IF (LCORE .LT. 2*NS+5) GO TO 9008\r\n      CALL SUREAD (Z,1,NWDS,RC)\r\n      IZ(1) = FSS(1)\r\n      IZ(2) = FSS(2)\r\n      IZ(3) = RFNO\r\n      IZ(4) = NS\r\nC\r\nC     GET THE BASIC SUBSTRUCTURE NAMES FROM EQSS\r\nC\r\n      DO 120 I = 1,NS\r\n      CALL SUREAD (Z(3*I+3),2,NWDS,RC)\r\n  120 CONTINUE\r\nC\r\nC     GET THE NUMBER OF LOAD VECTORS FOR EACH SUBSTRUCTURE FORM LODS\r\nC\r\n      CALL SFETCH (FSS,LODS,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 160\r\n      CALL SMSG (RC-2,LODS,FSS)\r\n      GO TO 9200\r\n  160 J = 1\r\n      CALL SJUMP (J)\r\n      DO 170 I = 1,NS\r\n      CALL SUREAD (Z(3*I+5),1,NWDS,RC)\r\n  170 CALL SJUMP  (J)\r\nC\r\nC     GET THE NUMBER OF TIME OR FREQUENCY STEPS FROM UPV OR UPVC\r\nC\r\n      TRL(1) = UPV\r\n      CALL RDTRL (TRL)\r\n      NSTEP = TRL(2)\r\n      IF (RFNO .EQ. 9) NSTEP = NSTEP/3\r\n      IZ(5) = NSTEP\r\nC\r\nC     GET THE REQUESTED DLOAD SET FROM CASE CONTROL\r\nC\r\n      FILE = CASESS\r\n      CALL GOPEN (CASESS,Z(BUF1),RDREW)\r\n  180 CALL FREAD (CASESS,TRL,2,1)\r\n      IF (TRL(1).NE.CASECC(1) .OR. TRL(2).NE.CASECC(2)) GO TO 180\r\n      CALL FREAD (CASESS,0,-12,0)\r\n      CALL FREAD (CASESS,DLOAD,1,0)\r\n      CALL CLOSE (CASESS,REW)\r\nC\r\nC     CHECK IF DLOAD SET POINTS TO A DLOAD COMBINATION CARD OR A\r\nC     SIMPLE LOAD CARD BY LOOKING AT SET IDS IN HEADER RECORD OF DLT\r\nC\r\n      I = 3*NS + 6\r\n      FILE = DLT\r\n      CALL OPEN (*9001,DLT,Z(BUF1),RDREW)\r\n      CALL READ (*9002,*200,DLT,Z(I),LCORE-I,1,NWDS)\r\n      GO TO 9008\r\n  200 IDLSET = I + 3\r\n      LDLSET = IDLSET + IZ(I+2) - 1\r\n      ILDSET = LDLSET + 1\r\n      LLDSET = I + NWDS - 1\r\n      IDLOAD = LLDSET + 1\r\n      IF (IDLSET .GT. LDLSET) GO TO 215\r\n      DO 210 I = IDLSET,LDLSET\r\n      IF (IZ(I) .EQ. DLOAD) GO TO 220\r\n  210 CONTINUE\r\nC\r\nC     NO DLOAD MATCH - MUST BE SIMPLE RLOAD OR TLOAD\r\nC\r\n  215 Z(IDLOAD) = 1.0\r\n      IZ(IDLOAD+1) = DLOAD\r\n      LDLOAD = IDLOAD + 1\r\n      GO TO 270\r\nC\r\nC     DLOAD MATCH FOUND - READ DLOAD DATA FORM DLT RECORD 1\r\nC\r\n  220 CALL FREAD (DLT,TRL,2,0)\r\n      IF (TRL(1) .EQ. DLOAD) GO TO 240\r\n  230 CALL FREAD (DLT,TRL,2,0)\r\n      IF (TRL(1) .NE. -1) GO TO 230\r\n      GO TO 220\r\n  240 I = IDLOAD\r\n      ISCALE = TRL(2)\r\n  250 CALL FREAD (DLT,Z(I),2,0)\r\n      IF (IZ(I) .EQ. -1) GO TO 260\r\n      Z(I) = Z(I)*SCALE\r\n      I = I + 2\r\n      IF (I .GT. LCORE) GO TO 9008\r\n      GO TO 250\r\n  260 LDLOAD = I - 1\r\nC\r\nC     READ THE RLOAD AND TLOAD DATA FORM DLT AND SAVE REQUESTED CARDS\r\nC\r\n  270 ILOAD = LDLOAD + 1\r\n      L = ILOAD\r\n      IF (IDLSET .LE. LDLSET) CALL FWDREC (*9002,DLT)\r\n      DO 310 I = ILDSET,LLDSET\r\n      DO 280 J = IDLOAD,LDLOAD,2\r\n      IF (IZ(J+1) .EQ. IZ(I)) GO TO 290\r\n  280 CONTINUE\r\n      CALL FWDREC (*9002,DLT)\r\n      GO TO 310\r\nC\r\nC     SAVE RLOAD DATA IF RIGID FORMAT 8\r\nC     SAVE TLOAD DATA IF RIGID FORMAT 9\r\nC\r\n  290 CALL FREAD (DLT,ITYPE,1,0)\r\n      IF (ITYPE.LE.2 .AND. RFNO.EQ.8) GO TO 300\r\n      IF (ITYPE.GE.3 .AND. RFNO.EQ.9) GO TO 300\r\n      CALL FWDREC (*9002,DLT)\r\n      GO TO 310\r\nC\r\n  300 IZ(L) = ITYPE\r\n      CALL FREAD (DLT,IZ(L+1),7,1)\r\n      IZ(J+1) = -L\r\n      L = L + 8\r\n      IF (L .GT. LCORE) GO TO 9008\r\n  310 CONTINUE\r\nC\r\n      LLOAD = L - 1\r\n      CALL CLOSE (DLT,REW)\r\nC\r\nC     READ THE LOADC DATA FROM GEOM4 AND SAVE ANY THAT WAS REQUESTED\r\nC     ON TLOAD OR RLOAD CARDS\r\nC\r\nC     NOTE - UNTIL A MODULE FRLG IS WRITTEN NO RLOAD CARD MAY REQUEST A\r\nC            SCALAR LOAD\r\nC\r\n      NSLOAD = 0\r\n      ILOADC = LLOAD  + 1\r\n      LLOADC = ILOADC - 1\r\n      ISLOAD = ILOADC\r\n      LSLOAD = ISLOAD - 1\r\nC\r\n      IF (RFNO .EQ. 8) GO TO 500\r\nC\r\n      CALL PRELOC (*500,Z(BUF1),GEOM4)\r\n      CALL LOCATE (*500,Z(BUF1),LOADC,I)\r\n      IOLD = 0\r\n      I1 = ILOADC\r\n      I2 = I1\r\n  320 CALL READ (*9002,*370,GEOM4,TRL(1),2,0,NWDS)\r\n      ISCALE = TRL(2)\r\n      IF (IOLD .EQ. TRL(1)) GO TO 360\r\n      IHIT = 0\r\n      DO 330 I = ILOAD,LLOAD,8\r\n      IF (TRL(1) .NE. IZ(I+1)) GO TO 330\r\n      IZ(I+1) = -I1\r\n      IHIT = IHIT + 1\r\n  330 CONTINUE\r\n      IF (IHIT .GT. 0) GO TO 350\r\n  340 CALL FREAD (GEOM4,TRL(1),4,0)\r\n      IF (TRL(3) .NE. -1) GO TO 340\r\n      GO TO 320\r\nC\r\nC     THIS LOADC DATA WAS REQUESTED - SAVE THE DATA AND A POINTER TO IT\r\nC\r\n  350 IOLD = TRL(1)\r\n      I1 = I2\r\n      IZ(I1) = 0\r\n      I2 = I1 + 1\r\n  360 CALL FREAD (GEOM4,Z(I2),4,0)\r\n      IF (IZ(I2+2) .EQ. -1) GO TO 320\r\n      IZ(I1) = IZ(I1) + 1\r\n      Z(I2+3) = Z(I2+3)*SCALE\r\n      I2 = I2 + 4\r\n      IF (I2 .GT. LCORE) GO TO 9008\r\n      GO TO 360\r\nC\r\nC     CONVERT LOADC LOAD SETS TO INTERNAL LOAD IDS BY USING THE LODS\r\nC     ITEM\r\nC\r\n  370 LLOADC = I2 - 1\r\n      IF (ILOADC .GT. LLOADC) GO TO 500\r\n      CALL SFETCH (FSS,LODS,SRD,RC)\r\n      I = 1\r\n      CALL SJUMP (I)\r\n      ILOD = 1\r\n      IDAT0= LLOADC + 1\r\n      IDAT = IDAT0  + 1\r\n      NDAT = LCORE  - LLOADC\r\n      ISUB = 6\r\n      LSUB = 3*NS + 5\r\nC\r\nC     FOR EACH BASIC READ THE LODS DATA INTO CORE\r\nC\r\n      DO 410 I = ISUB,LSUB,3\r\n      CALL SUREAD (Z(IDAT0),NDAT,NWDS,RC)\r\n      IF (RC .NE. 2) GO TO 9008\r\n      J = ILOADC\r\n  380 I1 = J + 1\r\n      I2 = J + IZ(J)*4\r\n      DO 400 K = I1,I2,4\r\n      IF (IZ(K).NE.IZ(I) .OR. IZ(K+1).NE.IZ(I+1)) GO TO 400\r\nC\r\nC     FOUND LOADC DATA FOR THIS BASIC - CONVERT LOAD SET ID\r\nC\r\n      IZ(K  ) = 0\r\n      IZ(K+1) = 0\r\n      NWDS = IDAT0 + NWDS - 1\r\n      DO 390 L = IDAT,NWDS\r\n      IF (IZ(L) .EQ. IZ(K+2)) GO TO 395\r\n  390 CONTINUE\r\n      WRITE (NOUT,6316) UWM,IZ(K+2),Z(I),Z(I+1),FSS\r\n      IZ(K+2) = -1\r\n      GO TO 400\r\nC\r\n  395 IZ(K+2) = ILOD + L - IDAT\r\nC\r\n  400 CONTINUE\r\n      J = I2 + 1\r\n      IF (J .LT. LLOADC) GO TO 380\r\nC\r\n  410 ILOD = ILOD + IZ(IDAT0)\r\nC\r\nC     CREATE A LIST OF INTERNAL LOAD VECTORS REQUESTED - ALSO CHECK IF\r\nC     ANY BASIC NAMES WERE NOT FOUND\r\nC\r\n      ISLOAD = LLOADC + 1\r\n      LSLOAD = ISLOAD - 1\r\n      NSLOAD = 0\r\n      J  = ILOADC\r\n  420 I1 = J + 1\r\n      I2 = J + IZ(J)*4\r\n      DO 460 K = I1,I2,4\r\n      IF (IZ(K) .EQ. 0) GO TO 430\r\n      WRITE (NOUT,6315) UWM,Z(K),Z(K+1),FSS,IZ(K+2),FSS\r\n      IZ(K+2) = -1\r\n      GO TO 460\r\n  430 IF (IZ(K+2) .LT. 0) GO TO 460\r\n      IF (NSLOAD  .EQ. 0) GO TO 455\r\n      DO 450 I = ISLOAD,LSLOAD\r\n      IF (IZ(I) .EQ. IZ(K+2)) GO TO 460\r\n  450 CONTINUE\r\n  455 NSLOAD = NSLOAD + 1\r\n      LSLOAD = LSLOAD + 1\r\n      IF (LSLOAD .GT. LCORE) GO TO 9008\r\n      IZ(LSLOAD) = IZ(K+2)\r\n  460 CONTINUE\r\n      J = I2 + 1\r\n      IF (J .LT. LLOADC) GO TO 420\r\nC\r\nC     SORT LIST OF IDS\r\nC\r\n      CALL SORT (0,0,1,1,Z(ISLOAD),NSLOAD)\r\nC\r\nC     MAKE ONE MORE PASS THROUGH THE LOAC DATA CONVERTING THE\r\nC     INTERNAL LOAD IDS TO A RELATIVE POSITION IN THE LOAD LIST\r\nC     STARTING AT ISLOAD\r\nC\r\n      J  = ILOADC\r\n  470 I1 = J + 1\r\n      I2 = J + IZ(J)*4\r\n      DO 495 K = I1,I2,4\r\n      IF (IZ(K+2) .LT. 0) GO TO 495\r\n      DO 480 L = ISLOAD,LSLOAD\r\n      IF (IZ(K+2) .EQ. IZ(L)) GO TO 490\r\n  480 CONTINUE\r\n      GO TO 495\r\n  490 IZ(K+2) = L - ISLOAD\r\n  495 CONTINUE\r\n      J = I2 + 1\r\n      IF (J .LT. LLOADC) GO TO 470\r\nC\r\nC     OK - NOW WE CAN WRITE OUT GROUP 0 OF THE SOLN ITEM\r\nC\r\n  500 CALL CLOSE (GEOM4,REW)\r\n      RC = 3\r\n      CALL SFETCH (FSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (Z(1),3*NS+5,1)\r\n      CALL SUWRT (NSLOAD,1,1)\r\n      IF (NSLOAD .GT. 0) CALL SUWRT (Z(ISLOAD),NSLOAD,1)\r\n      CALL SUWRT (0,0,EOG)\r\nC\r\nC     COPY THE FREQUENCY STEPS FROM PPF OR THE TIME STEPS FROM TOL\r\nC     FOR GROUP 1 OF THE SOLN ITEM\r\nC\r\n      ISTEP = ISLOAD\r\n      LSTEP = ISTEP + NSTEP - 1\r\n      IF (LSTEP .GT. LCORE) GO TO 9008\r\n      FILE = TOLPPF\r\n      CALL OPEN (*9001,TOLPPF,Z(BUF1),RDREW)\r\n      CALL FREAD (TOLPPF,TRL,2,0)\r\n      CALL FREAD (TOLPPF,Z(ISTEP),NSTEP,0)\r\n      CALL CLOSE (TOLPPF,REW)\r\nC\r\n      CALL SUWRT (Z(ISTEP),NSTEP,EOG)\r\nC\r\nC     IF ANY SCALAR LOADS EXIST CALCULATE THE SCALE FACTORS FOR EACH\r\nC     LOAD AND WRITE THEM TO THE SOF - 1 GROUP PER TIME OR FREQUENCY\r\nC     STEP\r\nC\r\n      IF (NSLOAD .EQ. 0) GO TO 800\r\n      IVEC = LSTEP + 1\r\n      LVEC = IVEC + NSLOAD - 1\r\n      IF (LVEC .GT. LCORE) GO TO 9008\r\nC\r\nC     CALL PRETAB TO READ IN THE REQUIRED TABLE DATA - FIRST MAKE A\r\nC     LIST OF REQUESTED TABLE IDS\r\nC\r\n      ITAB0 = LVEC + 1\r\n      IZ(ITAB0) = 0\r\n      ITAB = ITAB0 + 1\r\n      LTAB = ITAB  - 1\r\n      DO 570 J = ILOAD,LLOAD,8\r\n      IF (IZ(J+1) .GE. 0) GO TO 570\r\n      ITYPE = IZ(J)\r\n      GO TO (510,510,520,570), ITYPE\r\n  510 I1 = J + 2\r\n      I2 = J + 3\r\n      GO TO 530\r\n  520 I1 = J + 2\r\n      I2 = J + 2\r\n  530 DO 560 K = I1,I2\r\n      IF (IZ(K) .EQ.   0) GO TO 560\r\n      IF (LTAB .LT. ITAB) GO TO 550\r\n      DO 540 L = ITAB,LTAB\r\n      IF (IZ(L) .EQ. IZ(K)) GO TO 560\r\n  540 CONTINUE\r\n  550 LTAB = LTAB + 1\r\n      IF (LTAB .GT. LCORE) GO TO 9008\r\n      IZ(LTAB ) = IZ(K)\r\n      IZ(ITAB0) = IZ(ITAB0) + 1\r\n  560 CONTINUE\r\n  570 CONTINUE\r\nC\r\n      IF (IZ(ITAB0) .EQ. 0) GO TO 585\r\n      ITABD = LTAB + 1\r\n      CALL PRETAB (DIT,Z(ITABD),IZ(ITABD),Z(BUF1),LCORE-ITABD,LTABD,\r\n     1             Z(ITAB0),TABLOC)\r\n       LTABD = ITABD + LTABD - 1\r\n  585 CONTINUE\r\nC\r\nC     LOOP OVER EACH TIME OR FREQUENCY STEP\r\nC\r\n      DO 790 I = ISTEP,LSTEP\r\nC\r\nC     ZERO A VECTOR IN CORE FOR THE SCALE FACTORS\r\nC\r\n      DO 590 J = IVEC,LVEC\r\n  590 IZ(J) = 0\r\nC\r\nC     PASS THROUGH THE DLOAD DATA\r\nC\r\n      DO 780 J = IDLOAD,LDLOAD,2\r\n      IF (IZ(J+1) .GE. 0) GO TO 780\r\nC\r\nC     PROCESS THE TLOAD OR RLOAD DATA THIS DLOAD ENTRY POINTS TO\r\nC\r\n      ILD = -IZ(J+1)\r\n      IF (IZ(ILD+1) .GE. 0) GO TO 780\r\n      ITYPE = IZ(ILD  )\r\n      ILDC  =-IZ(ILD+1)\r\nC\r\nC     CALCULATE THE SCALE FACTOR FOR THE CARD FOR THIS TIME OR FREQUENCY\r\nC     STEP\r\nC\r\n      GO TO (600,640,680,720), ITYPE\r\nC\r\nC     RLOAD1 DATA\r\nC\r\n  600 SCALE = 0.0\r\n      GO TO 760\r\nC\r\nC     RLOAD2 DATA\r\nC\r\n  640 SCALE = 0.0\r\n      GO TO 760\r\nC\r\nC     TLOAD1 DATA\r\nC\r\n  680 CALL TAB (IZ(ILD+2),Z(I),SCALE)\r\n      GO TO 760\r\nC\r\nC     TLOAD2 DATA\r\nC\r\n  720 SCALE = 0.0\r\n      TT    = Z(I) - Z(ILD+2)\r\n      IF (TT .EQ. 0.0) GO TO 730\r\n      IF (TT.LT.0.0 .OR. TT.GT.Z(ILD+3)) GO TO 760\r\n      SCALE = TT**Z(ILD+7)*EXP(Z(ILD+6)*TT)*COS(TWOPI*Z(ILD+4)*TT\r\n     1        + Z(ILD+5)*DEGRA)\r\n      GO TO 760\r\n  730 IF (Z(ILD+7) .NE. 0.0) GO TO 760\r\n      SCALE = COS(Z(ILD+5))\r\nC\r\nC     NOW APPLY THIS SCALE FACTOR TO EACH LOADC ENTRY.\r\nC     TOTAL SCALE FACTOR = T(R)LOAD FACTOR*DLOAD FACTOR*LOADC FACTOR\r\nC\r\n  760 CONTINUE\r\n      IF (SCALE .EQ. 0.0) GO TO 780\r\n      I1 = ILDC + 1\r\n      I2 = ILDC + IZ(ILDC)*4\r\n      DO 770 K = I1,I2,4\r\n      IF (IZ(K+2) .LT. 0) GO TO 770\r\n      IFAC = IVEC + IZ(K+2)\r\n      Z(IFAC) = Z(IFAC) + SCALE*Z(J)*Z(K+3)\r\n  770 CONTINUE\r\nC\r\n  780 CONTINUE\r\nC\r\nC     WRITE OUT THESE FACTORS TO THE NEXT GROUP OF THE SOF\r\nC\r\n      CALL SUWRT (Z(IVEC),NSLOAD,EOG)\r\n  790 CONTINUE\r\nC\r\nC     FINISHED\r\nC\r\n  800 CALL SUWRT (0,0,EOI)\r\n  810 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     DIAGNOSTICS\r\nC\r\n 6315 FORMAT (A25,' 6315, RCOVR MODULE - SUBSTRUCTURE ',2A4,' IS NOT A',\r\n     1        ' COMPONENT OF ',2A4, /32X,'LOAD SET',I9,' FOR THAT ',\r\n     2        'SUBSTRUCTURE WILL BE IGNORED IN CREATING', /32X,\r\n     3        'THE SOLN ITEM FOR FINAL SOLUTION STRUCTURE ',2A4)\r\n 6316 FORMAT (A25,' 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET ',I8,\r\n     1        ' FOR SUBSTRUCTURE ',2A4, /32X,'AMONG THOSE ON LODS.  ',\r\n     2        'IT WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL',\r\n     3        /32X,'SOLUTION STRUCTURE ',2A4)\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9008 N = 8\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 CALL SOFCLS\r\n      IOPT = -1\r\n      CALL CLOSE (CASESS,REW)\r\n      CALL CLOSE (DLT,REW)\r\n      CALL CLOSE (GEOM4,REW)\r\n      CALL CLOSE (TOLPPF,REW)\r\n      CALL CLOSE (DIT,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcove.f",
    "content": "      SUBROUTINE RCOVE\r\nC\r\nC     THIS SUBROUTINE PRINTS THE ENERGIES ON THE MODAL COORDINATES\r\nC     IN A SUBSTRUCTURE THAT WAS MODAL REDUCED.  IT WILL ALSO PRINT\r\nC     THE ENERGIES ON THOSE MODES EXCLUDED FROM THE REDUCTION\r\nC     PROCESSING.\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         MREDU      ,CREDU      ,NOEXCL\r\n      INTEGER         DRY        ,FSS        ,RSS        ,UA        ,\r\n     1                RFNO       ,Z(3)       ,RC         ,BUF(1)    ,\r\n     2                FILE       ,SOF1       ,SOF2       ,SOF3      ,\r\n     4                BUF1       ,BUF2       ,BUF3       ,SYSBUF    ,\r\n     5                NAME(2)    ,SCR3       ,SCR4       ,SCR6      ,\r\n     7                SCR7       ,EQSS       ,RSP        ,GRID      ,\r\n     8                SOLN       ,TRIGID(2)  ,TIMODE(2)  ,TEMODE(2) ,\r\n     9                TYPE(2)    ,CASESS     ,CASECC(2)  ,MCB(7)    ,\r\n     O                CMASK      ,ENERGY     ,BUF4       ,BLANK     ,\r\n     A                HIGHER(2)  ,ANDF       ,NAMES(2)\r\n      REAL            KENG       ,PENG\r\n      CHARACTER       UFM*23     ,UWM*25\r\n      COMMON /XMSSG / UFM        ,UWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)    ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5),\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2      ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2      ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA        ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO    ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT       ,DUM1(6)    ,NLPP      ,\r\n     1                DUM2(2)    ,NLINES\r\n      COMMON /UNPAKX/ ITINU      ,IRU        ,NRU        ,INCRU\r\n      COMMON /OUTPUT/ ITITLE(96)\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW    ,\r\n     1                REW        ,NOREW      ,EOFNRW     ,RSP       ,\r\n     2                RDP        ,CSP        ,CDP        ,SQUARE    ,\r\n     3                RECT       ,DIAG\r\n      EQUIVALENCE     (BUF(1)    ,RZ(1))\r\n      EQUIVALENCE     (RZ(1)     ,Z(1))\r\n      DATA    CASECC/ 4HCASE,4HCC   /\r\n      DATA    EQSS  , LAMS, SOLN    / 4HEQSS,4HLAMS,4HSOLN /\r\n      DATA    CASESS, SCR3, SCR4, SCR6, SCR7           /\r\n     1        101   , 303,  304,  306,  307            /\r\n      DATA    TRIGID/ 4HINER,4HTIAL /\r\n      DATA    TIMODE/ 4HIN-M,4HODE  /\r\n      DATA    TEMODE/ 4HEX-M,4HODE  /\r\n      DATA    IB    / 1             /\r\n      DATA    MMASK / 201326592     /\r\n      DATA    CMASK / 67108864      /\r\n      DATA    BLANK / 4H            /\r\n      DATA    NAME  / 4HRCOV,4HE    /\r\nC\r\nC     IF THIS IS A STATICS SOLUTION NO ENERGY CALCULATIONS CAN BE MADE\r\nC\r\n      IF (RFNO .LE. 2) RETURN\r\nC\r\nC     INITIALIZE\r\nC\r\n      SOF1 = KORSZ(Z) - SYSBUF + 1\r\n      SOF2 = SOF1 - SYSBUF - 1\r\n      SOF3 = SOF2 - SYSBUF\r\n      BUF1 = SOF3 - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      LCORE= BUF4 - 1\r\n      IF (LCORE .LE. 0) GO TO 9008\r\nC\r\nC     GET THE NAME OF THE HIGHER LEVEL SUBSTRUCTURE.  IF NONE EXISTS\r\nC     THEN RETURN.\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      NAMES(1) = RSS(1)\r\n      NAMES(2) = RSS(2)\r\n      CALL FNDNXL (RSS,HIGHER)\r\n      RC = 4\r\n      IF (HIGHER(1) .EQ. BLANK) GO TO 6000\r\n      IF (HIGHER(1).EQ.RSS(1) .AND. HIGHER(2).EQ.RSS(2)) GO TO 1000\r\nC\r\nC     CHECK IF THE HIGHER LEVEL SUBSTRUCTURE WAS MODAL REDUCED.\r\nC     IF NOT THEN WE HAVE NOTHING TO DO\r\nC\r\n      NAMES(1) = HIGHER(1)\r\n      NAMES(2) = HIGHER(2)\r\n      RC = 4\r\n      CALL FDSUB (HIGHER,IDIT)\r\n      IF (IDIT .LT. 0) GO TO 6000\r\n      CALL FMDI (IDIT,IMDI)\r\n      MREDU = .FALSE.\r\n      CREDU = .FALSE.\r\n      IF (ANDF(BUF(IMDI+IB),MMASK) .NE. 0) MREDU = .TRUE.\r\n      IF (ANDF(BUF(IMDI+IB),CMASK) .NE. 0) CREDU = .TRUE.\r\n      IF (.NOT.MREDU) GO TO 1000\r\nC\r\nC     READ THE MODAL GROUP OF THE EQSS TO DETERMINE IF THERE ARE ANY\r\nC     RIGID BODY DOF PRESENT.  ALSO GET THE SIL NUMBER OF THE FIRST\r\nC     MODAL CORDINATE.\r\nC\r\n      ITEM = EQSS\r\n      CALL SFETCH (HIGHER,EQSS,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      CALL SUREAD (Z(1),3,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      N = Z(3)\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\nC\r\n      NRIGID = 0\r\n   10 CALL SUREAD (Z(1),3,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      IF (NRIGID .EQ. 0) IP = Z(2)\r\n      IF (Z(1) .GE. 100) GO TO 20\r\n      NRIGID = NRIGID + 1\r\n      GO TO 10\r\nC\r\n   20 IF (2*IP .GT. SOF3) GO TO 9008\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\nC\r\n      CALL SUREAD (Z(1),2*IP,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      I = 2*(IP-1) + 1\r\n      ISIL = Z(I)\r\nC\r\nC     CALCULATE THE ENERGIES ON THE EXCLUDED MODES\r\nC\r\n      NOEXCL = .TRUE.\r\n      NROWE  = 0\r\n      IF (CREDU .OR. RFNO.LT.3 .OR. RFNO.GT.8) GO TO 100\r\n      NOEXCL = .FALSE.\r\n      CALL RCOVEM (NOEXCL,NROWE)\r\nC\r\nC     CALCULATE THE ENERGIES ON THE INCLUDED MODE AND THE TOTAL\r\nC     ENERGIES ON EACH VECTOR\r\nC\r\n  100 CALL RCOVIM (HIGHER)\r\n      IF (IOPT .LT. 0) GO TO 9200\r\n      MCB(1) = SCR6\r\n      CALL RDTRL(MCB)\r\n      NCOL  = MCB(2)\r\n      NROWI = MCB(3)\r\n      NMODEI= NROWI - ISIL + 1\r\nC\r\nC     READ THE MODE DATA FROM LAMS AND SAVE THE MODE NUMBER AND\r\nC     THE FREQUENCY FOR EACH MODE.\r\nC\r\n      NAMES(1) = RSS(1)\r\n      NAMES(2) = RSS(2)\r\n      ITEM = LAMS\r\n      CALL SFETCH (RSS,LAMS,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\n      IMODE = 1\r\n      IF (NRIGID .EQ. 0) GO TO 210\r\n      N = 3*NRIGID\r\n      IMODE = IMODE + N\r\n      DO 200 I = 1,N,3\r\n      Z(I  ) = 0\r\n      Z(I+1) = 0\r\n  200 Z(I+2) = (I-1)/3 + 1\r\n  210 NMODE = 3*(NMODEI-1+NROWE)\r\n      IF (NMODE .GT. LCORE) GO TO 9008\r\nC\r\n      DO 300 I = IMODE,NMODE,3\r\n      CALL SUREAD (Z(I),7,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      Z(I+1) = Z(I+4)\r\n      Z(I+2) = 0\r\n  300 CONTINUE\r\nC\r\nC     READ THE LAST GROUP OF LAMS AND GENERATE GRID NUMBERS FOR THE\r\nC     INCLUDED MODES.\r\nC\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\n      IINC = 100\r\n      DO 400 I = IMODE,NMODE,3\r\n      CALL SUREAD (ICODE,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      IF (ICODE .GT. 1) GO TO 400\r\n      IINC = IINC + 1\r\n      Z(I+2) = IINC\r\n  400 CONTINUE\r\nC\r\nC     POSITION THE SOLN ITEM TO THE FREQUENCY OR TIME DATA\r\nC\r\n      ITEM = SOLN\r\n      CALL SFETCH (RSS,SOLN,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\nC\r\nC     ALLOCATE INCORE ARRAYS FOR THE ENERGY VECTORS\r\nC\r\n      IVEC1 = NMODE + 1\r\n      IVEC2 = IVEC1 + NMODEI\r\n      IVEC3 = IVEC2 + NMODEI\r\n      IVEC4 = IVEC3 + NROWE\r\n      ISETS = IVEC4 + NROWE\r\n      IF (ISETS .GT. LCORE) GO TO 9008\r\nC\r\nC     READ CASESS AND GET THE TITLE AND ANY SET INFORMATION\r\nC\r\n      FILE = CASESS\r\n      CALL GOPEN (CASESS,Z(BUF1),RDREW)\r\n  450 CALL FREAD (CASESS,Z(IVEC1),2,1)\r\n      IF (Z(IVEC1).NE.CASECC(1) .OR. Z(IVEC1+1).NE.CASECC(2)) GO TO 450\r\nC\r\n      CALL FREAD (CASESS,0,-38,0)\r\n      CALL FREAD (CASESS,ITITLE(1),96,0)\r\nC\r\n      IF (ENERGY .LE. 0) GO TO 485\r\n      CALL FREAD (CASESS,0,-31,0)\r\n      CALL FREAD (CASESS,LCC,1,0)\r\n      LSKIP = 167 - LCC\r\n      CALL FREAD (CASESS,0,LSKIP,0)\r\n      CALL READ (*9002,*480,CASESS,LSEQ,1,0,I)\r\n      IF (LSEQ .GT. 0) CALL FREAD (CASESS,0,LSEQ,0)\r\nC\r\n  460 CALL READ (*9002,*480,CASESS,ISET,1,0,I)\r\n      CALL FREAD (CASESS,LSET,1,0)\r\n      IF (ISET .EQ. ENERGY) GO TO 470\r\n      CALL FREAD (CASESS,0,-LSET,0)\r\n      GO TO 460\r\n  470 IF (ISETS+LSET .GT. LCORE) GO TO 9008\r\n      CALL FREAD (CASESS,Z(ISETS),LSET,0)\r\n      GO TO 485\r\nC\r\n  480 WRITE (NOUT,63650) UWM,ENERGY\r\n      ENERGY = -1\r\nC\r\n  485 CALL CLOSE (CASESS,REW)\r\nC\r\nC     LOOP OVER EACH COLUMN AND PRINT THE KINETIC AND POTENTIAL\r\nC     ENERGIES FOR EACH MODAL COORDINATE IF REQUESTED\r\nC\r\n      NEXT = 1\r\n      CALL GOPEN (SCR6,Z(BUF1),RDREW)\r\n      CALL GOPEN (SCR7,Z(BUF2),RDREW)\r\n      IF (NOEXCL) GO TO 490\r\n      CALL GOPEN (SCR3,Z(BUF3),RDREW)\r\n      CALL GOPEN (SCR4,Z(BUF4),RDREW)\r\nC\r\n  490 ITINU = RSP\r\n      INCRU = 1\r\nC\r\n      DO 800 ICOL = 1,NCOL\r\nC\r\nC     SET FLAGS FOR NULL COLUMNS\r\nC\r\n      IKFLAG = 0\r\n      IPFLAG = 0\r\nC\r\nC     GET THE FREQUENCY OR TIME FOR THIS VECTOR\r\nC\r\n      IF (RFNO .GT. 3) GO TO 500\r\nC\r\nC     NORMAL MODES SOLUTION\r\nC\r\n      CALL SUREAD (Z(IVEC1),7,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      STEP = RZ(IVEC1+4)\r\n      GO TO 505\r\nC\r\nC     DYNAMICS SOLUTION\r\nC\r\n  500 CALL SUREAD (STEP,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\nC\r\nC     SEE IF THIS COLUMN IS REQUESTED\r\nC\r\n  505 IF (ENERGY .LE. 0) GO TO 510\r\n      CALL SETFND (*790,Z(ISETS),LSET,ICOL,NEXT)\r\nC\r\n  510 IF (STEP.LT.RANGE(1) .OR. STEP.GT.RANGE(2)) GO TO 790\r\nC\r\nC     UNPACK THE KINETIC AND POTENTIAL ENERGIES ON INCLUDED MODES\r\nC\r\n      IRU = ISIL\r\n      NRU = NROWI\r\n      CALL UNPACK (*520,SCR6,RZ(IVEC1))\r\n      GO TO 540\r\n  520 DO 530 I = 1,NMODEI\r\n  530 RZ(IVEC1+I-1) = 0.0\r\n      RZ(IVEC1+NMODEI-1) = 1.0\r\n      IKFLAG = 1\r\nC\r\n  540 CALL UNPACK (*550,SCR7,RZ(IVEC2))\r\n      GO TO 570\r\n  550 DO 560 I = 1,NMODEI\r\n  560 RZ(IVEC2+I-1) = 0.0\r\n      RZ(IVEC2+NMODEI-1) = 1.0\r\n      IPFLAG = 1\r\nC\r\nC     UNPACK THE KINETIC AND POTENTIAL ENERGIES ON EXLUDED MODES\r\nC\r\n  570 IF (NOEXCL) GO TO 580\r\n      IRU = 1\r\n      NRU = NROWE\r\n      CALL UNPACK (*580,SCR3,RZ(IVEC3))\r\n      GO TO 600\r\n  580 DO 590 I = 1,NROWE\r\n  590 RZ(IVEC3+I-1) = 0.0\r\nC\r\n  600 IF (NOEXCL) GO TO 610\r\n      CALL UNPACK (*610,SCR4,RZ(IVEC4))\r\n      GO TO 630\r\n  610 DO 620 I = 1,NROWE\r\n  620 RZ(IVEC4+I-1) = 0.0\r\nC\r\nC     INITILIZE FOR THE OUTPUT\r\nC\r\n  630 NLINES = NLPP\r\nC\r\nC     GET TOTAL ENERGIES\r\nC\r\n      TKENG = RZ(IVEC1+NMODEI-1)\r\n      TPENG = RZ(IVEC2+NMODEI-1)\r\n      PERKT = 1.0\r\n      PERPT = 1.0\r\nC\r\nC     LOOP OVER EACH MODAL COORDINATE\r\nC\r\n      IINC = 0\r\n      IEXC = 0\r\nC\r\n      DO 700 I = 1,NMODE,3\r\nC\r\n      MODE = Z(I)\r\n      FREQ = RZ(I+1)\r\n      GRID = Z(I+2)\r\nC\r\nC     GET ENERGIES FORM THE PROPER VECTOR\r\nC\r\n      IF (NOEXCL) GO TO 650\r\n      IF (GRID .EQ. 0) GO TO 660\r\n 650  KENG = RZ(IVEC1+IINC)\r\n      PENG = RZ(IVEC2+IINC)\r\n      IINC = IINC + 1\r\n      TYPE(1) = TIMODE(1)\r\n      TYPE(2) = TIMODE(2)\r\nC\r\n      IF (MODE .NE. 0) GO TO 670\r\n      TYPE(1) = TRIGID(1)\r\n      TYPE(2) = TRIGID(2)\r\n      GO TO 670\r\nC\r\n  660 KENG = RZ(IVEC3+IEXC)\r\n      PENG = RZ(IVEC4+IEXC)\r\n      IEXC = IEXC + 1\r\n      TYPE(1) = TEMODE(1)\r\n      TYPE(2) = TEMODE(2)\r\nC\r\nC     CALCULATE THE ENERGY PERCENTAGES\r\nC\r\n  670 PERK = KENG/TKENG\r\n      IF (PERK .GE. 100.0) PERK = 99.9999\r\n      PERP = PENG/TPENG\r\n      IF (PERP .GE. 100.0) PERP = 99.9999\r\n      IF (GRID .NE. 0) GO TO 680\r\n      PERKT = PERKT + PERK\r\n      PERPT = PERPT + PERP\r\nC\r\nC     PRINT A LINE OF OUTPUT\r\nC\r\n  680 NLINES = NLINES + 1\r\n      IF (NLINES .LE. NLPP) GO TO 690\r\n      CALL PAGE1\r\n      WRITE (NOUT,5000) RSS\r\n      IF (RFNO .EQ. 9) WRITE (NOUT,5010) STEP\r\n      IF (RFNO .NE. 9) WRITE (NOUT,5020) STEP\r\n      WRITE (NOUT,5100)\r\n      NLINES = 0\r\nC\r\n  690 WRITE (NOUT,5200) GRID,TYPE,MODE,FREQ,KENG,PERK,PENG,PERP\r\nC\r\n  700 CONTINUE\r\nC\r\nC     PRINT THE TOTAL KINETIC AND POTENTIAL ENERGIES FOR THIS COLUMN\r\nC\r\n      IF (PERKT .GE. 100.0) PERKT = 99.9999\r\n      IF (PERPT .GE. 100.0) PERPT = 99.9999\r\n      IF (IKFLAG .EQ. 0) GO TO 710\r\n      TKENG = 0.0\r\n      PERKT = 0.0\r\n  710 IF (IPFLAG .EQ. 0) GO TO 720\r\n      TPENG = 0.0\r\n      PERPT = 0.0\r\n  720 WRITE (NOUT,5300) TKENG,PERKT,TPENG,PERPT\r\n      GO TO 800\r\nC\r\nC     THIS VECTOR IS NOT TO BE PRINTED SO SKIP IT\r\nC\r\n  790 CALL FWDREC (*9002,SCR6)\r\n      CALL FWDREC (*9002,SCR7)\r\n      IF (NOEXCL) GO TO 800\r\n      CALL FWDREC (*9002,SCR3)\r\n      CALL FWDREC (*9002,SCR4)\r\nC\r\n  800 CONTINUE\r\nC\r\nC     CLOSE FILES\r\nC\r\n      CALL CLOSE (SCR6,REW)\r\n      CALL CLOSE (SCR7,REW)\r\n      IF (NOEXCL) GO TO 1000\r\n      CALL CLOSE (SCR3,REW)\r\n      CALL CLOSE (SCR4,REW)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n 1000 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 6000 CALL SMSG (RC-2,ITEM,NAMES)\r\n      GO TO 9200\r\n 6100 CALL SMSG (RC+4,ITEM,NAMES)\r\n      GO TO 9200\r\n 6200 CALL SMSG (7,ITEM,NAMES)\r\n      GO TO 9200\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9008 N = 8\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 CALL SOFCLS\r\n      WRITE (NOUT,63710) UWM,RSS\r\n      RETURN\r\nC\r\nC     FORMAT STATEMENTS\r\nC\r\n 5000 FORMAT (//39X,43HMODAL COORDINATE ENERGIES FOR SUBSTRUCTURE ,2A4)\r\n 5010 FORMAT (//12X,7HTIME = ,1P,E13.6)\r\n 5020 FORMAT (//12X,12HFREQUENCY = ,1P,E13.6)\r\n 5100 FORMAT (//12X,4HGRID,6X,4HTYPE,6X,4HMODE,7X,9HFREQUENCY,10X,\r\n     1        7HKINETIC,8X,8HKE/TOTAL,6X,9HPOTENTIAL,7X,8HPE/TOTAL ,/)\r\n 5200 FORMAT (1H ,8X,I8,5X,2A4,2X,I5,5X,1P,E13.6,2(5X,1P,E13.6,5X,\r\n     1        0P,F7.4))\r\n 5300 FORMAT (1H ,55X,2(4X,14H--------------,4X,8H--------), /12X,\r\n     1        28HTOTAL ENERGY FOR THIS VECTOR,15X,2(5X,1P,E13.6,5X,\r\n     2        0P,F7.4))\r\n63710 FORMAT (A25,' 6371, MODAL REDUCTION ENERGY CALCULATIONS FOR ',\r\n     1       'SUBSTRUCTURE ',2A4,' ABORTED.')\r\n63650 FORMAT (A25,' 6365, REQUESTED OUTPUT SET ID',I6,' IS NOT ',\r\n     1       'DECLARED IN CASE CONTROL. ALL OUTPUT WILL BE PRODUCED')\r\n      END\r\n"
  },
  {
    "path": "mis/rcovem.f",
    "content": "      SUBROUTINE RCOVEM (NOEXCL,NROWE)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE ENERGIES ON THE MODAL COORDINATES\r\nC     THAT WERE EXCLUDED FROM THE MODAL REDUCTION PROCESSING\r\nC\r\n      LOGICAL         NOEXCL\r\n      INTEGER         RSS        ,RC         ,RULE       ,SOF1       ,\r\n     1                SOF2       ,SOF3       ,BUF1       ,BUF2       ,\r\n     2                Z          ,QA         ,PA         ,SCR3       ,\r\n     3                SCR4       ,SCR5       ,SCR6       ,SCR7       ,\r\n     4                SCR8       ,PHIS       ,SOLN       ,TYPA       ,\r\n     5                TYPB       ,TFLAG      ,SIGNAB     ,SIGNC      ,\r\n     6                BUF3       ,RSP        ,CSP        ,NAME(2)    ,\r\n     7                RFNO\r\n      REAL            RZ(5)\r\n      COMPLEX         SC         ,CZ(2)      ,SC2        ,DKDC       ,\r\n     1                DKSC\r\n      CHARACTER       UFM*23     ,UWM*25\r\n      COMMON /XMSSG / UFM        ,UWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /CONDAS/ PHI        ,TWOPHI\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / ITINP      ,ITOUTP     ,IRP        ,NRP        ,\r\n     1                INCRP\r\n      COMMON /UNPAKX/ ITINU      ,IRU        ,NRU        ,INCRU\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW      ,EOFNRW     ,RSP        ,\r\n     2                RDP        ,CSP        ,CDP        ,SQUARE     ,\r\n     3                RECT\r\n      COMMON /PARMEG/ MCBP(7)    ,MCBP11(7)  ,MCBP21(7)  ,MCBP12(7)  ,\r\n     1                MCBP22(7)  ,MRGZ       ,RULE\r\n      COMMON /SADDX / NOMAT      ,LCOREZ     ,MCBAA(7)   ,TYPA       ,\r\n     1                ALPHA      ,ALP(3)     ,MCBBB(7)   ,TYPB       ,\r\n     2                BETA       ,BET(3)     ,DUM(36)    ,MCBXX(7)\r\n      COMMON /MPYADX/ MCBA(7)    ,MCBB(7)    ,MCBC(7)    ,MCBD(7)    ,\r\n     1                MPYZ       ,TFLAG      ,SIGNAB     ,SIGNC      ,\r\n     2                MPREC      ,MSCR\r\n      EQUIVALENCE     (Z(1),RZ(1),CZ(1))     ,(CZ(2),SC)\r\n      DATA    LAMS  , PHIS,SOLN  /4HLAMS,4HPHIS,4HSOLN /\r\n      DATA    SCR3  , SCR4,SCR5,SCR6,SCR7,SCR8 /303,304,305,306,307,308/\r\n      DATA    NAME  / 4HRCOV,4HEM   /\r\nC\r\nC     INITILIZE\r\nC\r\n      LCOREZ = KORSZ(Z)\r\nC\r\nC     FROM THE LAST GROUP ON LAMS CREATE A PARTITIONING VECTOR TO\r\nC     DIFFERENTIATE THE INCLUDED AND EXCLUDED MODES\r\nC\r\n      NROWE = 0\r\n      ITEM  = LAMS\r\n      CALL SFETCH (RSS,LAMS,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 2\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\n      I = 0\r\nC\r\n   10 CALL SUREAD (ICODE,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 20\r\n      I = I + 1\r\n      IF (I .GT. BUF1) GO TO 9008\r\n      RZ(I) = 1.0\r\n      IF (ICODE .EQ. 1) GO TO 10\r\n      RZ(I) = 0.0\r\n      NROWE = NROWE + 1\r\n      GO TO 10\r\nC\r\n   20 CONTINUE\r\n      IF (NROWE .EQ. 0) GO TO 900\r\n      IF (QA+PA .EQ. 0) GO TO 9200\r\n      ITINP  = RSP\r\n      ITOUTP = RSP\r\n      IRP   = 1\r\n      NRP   = I\r\n      INCRP = 1\r\n      CALL MAKMCB (MCBA,SCR8,NRP,RECT,RSP)\r\n      CALL GOPEN  (SCR8,Z(BUF1),WRTREW)\r\n      CALL PACK   (RZ(1),SCR8,MCBA)\r\n      CALL CLOSE  (SCR8,REW)\r\n      CALL WRTTRL (MCBA)\r\nC\r\nC     PARTITION THE EIGENVECTOR TO GET THE EXCLUDED MODES OUT\r\nC\r\n      ITEM = PHIS\r\n      CALL MTRXI (SCR7,RSS,PHIS,0,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      RULE = 0\r\n      MCBP(1) = SCR7\r\n      CALL RDTRL (MCBP)\r\n      IF (MCBP(2) .NE. NRP) GO TO 6372\r\n      CALL MAKMCB (MCBP11,SCR6,MCBP(3),RECT,MCBP(5))\r\n      MCBP11(2) = NROWE\r\n      MCBP21(1) = 0\r\n      MCBP12(1) = 0\r\n      MCBP22(1) = 0\r\nC\r\nC     SETUP NULL COLUMN PARTITONING VECTOR\r\nC\r\n      CALL MAKMCB (MCBB,0,MCBP(3),RECT,RSP)\r\n      MCBB(2) = 1\r\n      MRGZ = LCOREZ\r\n      CALL SOFCLS\r\nC\r\n      CALL PARTN (MCBA,MCBB,Z(1))\r\nC\r\n      CALL WRTTRL (MCBP11)\r\nC\r\nC     IF BOTH LOADS AND SINGLE POINT CONSTRAINT FORCES EXIST, ADD\r\nC     THEM TOGETHER\r\nC\r\n      IRH = QA + PA\r\n      IF (QA.EQ.0 .OR. PA.EQ.0) GO TO 100\r\n      NOMAT = 2\r\n      TYPA  = 1\r\n      ALPHA = 1.0\r\n      MCBAA(1) = QA\r\n      CALL RDTRL (MCBAA)\r\n      TYPB = 1\r\n      BETA = 1.0\r\n      MCBBB(1) = PA\r\n      CALL RDTRL (MCBBB)\r\n      CALL MAKMCB (MCBXX,SCR7,MCBAA(3),RECT,MCBAA(5))\r\n      MCBXX(2) = MCBAA(2)\r\nC\r\n      CALL SADD (Z(1),Z(1))\r\nC\r\n      CALL WRTTRL (MCBXX)\r\n      IRH = SCR7\r\nC\r\nC     MULTIPLY   PK = QK(T)*(PA + QA)\r\nC\r\n  100 DO 110 I = 1,7\r\n  110 MCBA(I) = MCBP11(I)\r\n      MCBB(I) = IRH\r\n      CALL RDTRL (MCBB)\r\n      MCBC(1) = 0\r\n      MPYZ   = LCOREZ\r\n      TFLAG  = 1\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      MPREC  = 0\r\n      MSCR   = SCR8\r\n      CALL MAKMCB (MCBD,SCR5,NROWE,RECT,MCBA(5))\r\nC\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\nC\r\nC     READ MODAL MASS AND TWOPHI*FREQUENCY FOR EACH OF THE EXCLUDED\r\nC     MODES MODES FROM LAMS\r\nC     IF MODE WAS EXCLUDED BECAUSE OF NON-PARTICIPATION, SET ITS\r\nC     FREQUENCY TO ZERO\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      ITEM = LAMS\r\n      CALL SFETCH (RSS,LAMS,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LE. 0) GO TO 6200\r\n      IMODE = 8\r\n      CALL SUREAD (Z(IMODE),-1,N,RC)\r\n      IF (RC .NE. 2) GO TO 6100\r\n      NMODE = IMODE + N - 1\r\n      IF (NMODE .GT. BUF3) GO TO 9008\r\n      ICODE = NMODE + 1\r\n      CALL SUREAD (Z(ICODE),-1,N,RC)\r\n      IF (RC.NE.2 .AND. RC.NE.3) GO TO 6100\r\n      NCODE = ICODE + N - 1\r\n      IF (NCODE .GT. BUF3) GO TO 9008\r\nC\r\n      I1 = IMODE - 7\r\n      I2 = IMODE - 2\r\n      DO 250 I = ICODE,NCODE\r\n      I1 = I1 + 7\r\n      IF (Z(I) .EQ. 1) GO TO 250\r\n      I2 = I2 + 2\r\n      RZ(I2) = RZ(I1+3)\r\n      IF (Z(I).EQ.2 .OR. RZ(I2).LE.0.001) RZ(I2) = 0.0\r\n      RZ(I2+1) = RZ(I1+5)\r\n  250 CONTINUE\r\n      NMODE = I2 + 1\r\nC\r\nC     POSITION SOLN ITEM TO SOLUTION DATA\r\nC\r\n      ITEM = SOLN\r\n      CALL SFETCH (RSS,SOLN,1,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6200\r\nC\r\nC     SET UP TO LOOP OVER COLUMNS\r\nC\r\n      NCOL  = MCBD(2)\r\n      NWORD = 1\r\n      IF (MCBD(5) .GE. 3) NWORD = 2\r\n      IVEC1 = (NMODE/2)*2 + 3\r\n      ICVEC1= IVEC1/2 + 1\r\n      IVEC2 = IVEC1 + (NROWE*NWORD/2) * 2 + 1\r\n      IF (IVEC2+NROWE .GT. BUF3) GO TO 9008\r\nC\r\n      CALL GOPEN (SCR5,Z(BUF1),RDREW)\r\n      CALL GOPEN (SCR3,Z(BUF2),WRTREW)\r\n      CALL GOPEN (SCR4,Z(BUF3),WRTREW)\r\n      CALL MAKMCB (MCBA,SCR3,NROWE,RECT,RSP)\r\n      CALL MAKMCB (MCBB,SCR4,NROWE,RECT,RSP)\r\nC\r\n      ITINU = RSP\r\n      IF (MCBD(5) .GE. 3) ITINU = CSP\r\n      IRU = 1\r\n      NRU = NROWE\r\n      INCRU = 1\r\n      NRP = NROWE\r\nC\r\nC     LOOP OVER EACH SOLUTION STEP\r\nC\r\n      DO 700 ICOL = 1,NCOL\r\nC\r\nC     GET FREQUENCY OR POLE FROM SOLN ITEM FOR THIS STEP\r\nC\r\n      IF (RFNO .GT. 3) GO TO 310\r\n      CALL SUREAD (RZ(1),7,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      IF (MCBD(5) .GE. 3) GO TO 300\r\n      FREQ = RZ(5)\r\n      S2   = -(TWOPHI*FREQ)**2\r\n      GO TO 320\r\nC\r\n  300 SC  = CZ(2)\r\n      SC2 = SC*SC\r\n      GO TO 320\r\nC\r\n  310 CALL SUREAD (RZ(1),1,N,RC)\r\n      IF (RC .NE. 1) GO TO 6100\r\n      SC  = TWOPHI*RZ(1)*(0.0,1.0)\r\n      SC2 = SC*SC\r\nC\r\nC     UNPACK THE NEXT COLUMN\r\nC\r\n  320 CALL UNPACK (*330,SCR5,RZ(IVEC1))\r\n      GO TO 350\r\n  330 DO 340 I = 1,NROWE\r\n      J = I - 1\r\n      RZ(IVEC1+J) = 0.0\r\n  340 RZ(IVEC2+J) = 0.0\r\n      GO TO 600\r\nC\r\n  350 IF (MCBD(5) .GE. 3) GO TO 500\r\nC\r\nC     CALCULATE ENERGIES FOR REAL MATRICIES\r\nC\r\n      IM = IMODE - 2\r\n      DO 410 I = 1,NROWE\r\n      IM = IM + 2\r\n      J  = I - 1\r\n      IF (RZ(IM).EQ.0.0 .OR. (TWOPHI*FREQ).GT.RZ(IM)) GO TO 400\r\n      WK2 = RZ(IM)**2\r\nC\r\n      DKD =-S2*RZ(IVEC1+J)/(RZ(IM+1)*WK2**2*(1.0 + S2/WK2))\r\n      DKS = RZ(IVEC1+J)/(RZ(IM+1)*WK2)\r\nC\r\n      RZ(IVEC2+J) = .5*RZ(IM+1)*WK2*ABS((2.0*DKS+DKD)*DKD)\r\n      RZ(IVEC1+J) = ABS(S2/WK2)*RZ(IVEC2+J)\r\n      GO TO 410\r\nC\r\n  400 RZ(IVEC1+J) = 0.0\r\n      RZ(IVEC2+J) = 0.0\r\nC\r\n  410 CONTINUE\r\n      GO TO 600\r\nC\r\nC     CALCULATE ENERGIES FOR COMPLEX VECTORS\r\nC\r\n  500 IM = IMODE - 2\r\n      DO 520 I = 1,NROWE\r\n      IM = IM + 2\r\n      J  = I - 1\r\n      IF (RZ(IM).EQ.0.0 .OR. AIMAG(SC).GT.RZ(IM)) GO TO 510\r\n      WK2 = RZ(IM)**2\r\nC\r\n      DKDC =-SC2*CZ(ICVEC1+J)/(RZ(IM+1)*WK2**2*(1.0+SC2/WK2))\r\n      DKSC = CZ(ICVEC1+J)/(RZ(IM+1)*WK2)\r\nC\r\n      RZ(IVEC2+J) = .5*RZ(IM+1)*WK2*CABS((2.0*DKSC+DKDC)*DKDC)\r\n      RZ(IVEC1+J) = CABS(SC**2/WK2)*RZ(IVEC2+J)\r\n      GO TO 520\r\nC\r\n  510 RZ(IVEC1+J) = 0.0\r\n      RZ(IVEC2+J) = 0.0\r\nC\r\n  520 CONTINUE\r\nC\r\nC     PACK OUT THE KENETIC AND POTENTIAL ENERGIES\r\nC\r\n  600 CALL PACK (RZ(IVEC1),SCR3,MCBA)\r\n      CALL PACK (RZ(IVEC2),SCR4,MCBB)\r\nC\r\n  700 CONTINUE\r\nC\r\n      CALL CLOSE (SCR5,REW)\r\n      CALL CLOSE (SCR3,REW)\r\n      CALL CLOSE (SCR4,REW)\r\n      CALL WRTTRL (MCBA)\r\n      CALL WRTTRL (MCBB)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n      RETURN\r\nC\r\nC     NO EXECLUDED MODES EXIST\r\nC\r\n  900 NOEXCL = .TRUE.\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 6000 CALL SMSG (RC-2,ITEM,RSS)\r\n      GO TO 9200\r\n 6100 CALL SMSG (RC+4,ITEM,RSS)\r\n      GO TO 9200\r\n 6200 CALL SMSG (7,ITEM,RSS)\r\n      GO TO 9200\r\n 6372 WRITE (NOUT,6373) UWM,RSS\r\n      GO TO 9200\r\n 9008 CALL MESAGE (8,0,NAME)\r\n 9200 WRITE (NOUT,6371) UWM,RSS\r\n      NOEXCL = .TRUE.\r\n      CALL CLOSE (SCR3,REW)\r\n      CALL CLOSE (SCR4,REW)\r\n      CALL CLOSE (SCR5,REW)\r\n      RETURN\r\nC\r\nC     FORMAT STATEMENTS\r\nC\r\n 6371 FORMAT (A25,' 6371, CALCULATIONS FOR EXCLUDED MODE ENERGIES FOR',\r\n     1       ' SUBSTRUCTURE ',2A4,' ABORTED.')\r\n 6373 FORMAT (A25,' 6372, THE PHIS AND LAMS ITEMS ARE INCONSISTANT FOR',\r\n     2       ' SUBSTRUCTURE ',2A4)\r\n      END\r\n"
  },
  {
    "path": "mis/rcovim.f",
    "content": "      SUBROUTINE RCOVIM (HIGHER)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE ENERGIES ON THE MODAL COORDINATES\r\nC     IN A SUBSTRUCTURE THAT WAS MODAL REDUCED.  IT WILL ALSO\r\nC     CALCULATE THE TOTAL ENERGY FOR EACH COLUMN.\r\nC\r\n      INTEGER         FSS        ,RSS        ,UA         ,RFNO      ,\r\n     1                Z          ,RC         ,SOF1       ,SOF2      ,\r\n     2                SOF3       ,BUF1       ,BUF2       ,BUF3      ,\r\n     3                TFLAG      ,SIGNAB     ,SIGNC      ,SCRM      ,\r\n     4                SCR5       ,SCR6       ,SCR7       ,SCR8      ,\r\n     5                SCR9       ,NAME(2)    ,BUF4       ,FILE      ,\r\n     6                RSP        ,HIGHER(2)  ,UVEC\r\n      REAL            RZ(1)\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MPYADX/ MCBA(7)    ,MCBB(7)    ,MCBC(7)    ,MCBD(7)    ,\r\n     1                MPYZ       ,TFLAG      ,SIGNAB     ,SIGNC      ,\r\n     2                MPREC      ,SCRM\r\n      COMMON /UNPAKX/ ITINU      ,IRU        ,NRU        ,INCRU\r\n      COMMON /PACKX / ITINP      ,ITOUTP     ,IRP        ,NRP        ,\r\n     1                INCRP\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW      ,EOFNRW     ,RSP        ,\r\n     2                RDP        ,CSP        ,CDP        ,SQUARE     ,\r\n     3                RECT       ,DIAG       ,UPPER      ,LOWER      ,\r\n     4                SYM\r\n      EQUIVALENCE     (Z(1),RZ(1))\r\n      DATA    UVEC  , KMTX,MMTX  / 4HUVEC,4HKMTX,4HMMTX /\r\n      DATA    SCR5  , SCR6,SCR7,SCR8,SCR9 / 305,306,307,308,309 /\r\n      DATA    NAME  / 4HRCOV,4HIM         /\r\nC\r\nC     INITIALIZE\r\nC\r\n      LCOREZ = KORSZ(Z)\r\n      MPYZ   = LCOREZ\r\n      TFLAG  = 0\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      MPREC  = 0\r\nC\r\nC     GET THE DISPLACEMENT VECTOR FOR THE HIGHER LEVEL REDUCED\r\nC     SUBSTRUCTURE.\r\nC\r\n      ITEM = UVEC\r\n      CALL MTRXI (SCR5,HIGHER,UVEC,0,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\nC\r\nC     CALCULATE VELOCITIES IF NOT ALREADY DONE FOR THE OUTPUT PHASE.\r\nC\r\n      INTYP = 1\r\n      IF (RFNO.EQ.3 .OR. RFNO.EQ.8) INTYP = 0\r\n      CALL RCOVVA (SCR5,INTYP,0,SCR8,SCR9,0,HIGHER,Z(1),Z(1),Z(1))\r\n      IF (UA .LE. 0) GO TO 9200\r\nC\r\nC     CALCULATE THE KENETIC ENERTY MULTIPLIER - M * V\r\nC\r\n      ITEM = MMTX\r\n      CALL MTRXI (SCR5,HIGHER,MMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      MCBA(1) = SCR5\r\n      CALL RDTRL (MCBA)\r\n      MCBB(1) = SCR9\r\n      CALL RDTRL (MCBB)\r\n      NCOL    = MCBB(2)\r\n      MCBC(1) = 0\r\n      CALL MAKMCB (MCBD,SCR7,MCBB(3),RECT,MCBB(5))\r\n      SCRM = SCR6\r\n      CALL SOFCLS\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      CALL WRTTRL (MCBD)\r\nC\r\nC     CALCULATE THE KENETIC ENERGIES BY PERFORMING THE SCALAR\r\nC     MULTIPLY IN SINGLE PERCISION.  USE ONLY THE REAL PART IF COMPLEX\r\nC     VECTORS.  APPEND THE TOTAL KINETIC ENERGY TO THE END OF EACH\r\nC     COLUMN.\r\nC\r\n      ITINU = RSP\r\n      IRU   = 1\r\n      NRU   = MCBD(3)\r\n      INCRU = 1\r\n      ITINP = RSP\r\n      ITOUTP= RSP\r\n      IRP   = 1\r\n      NRP   = NRU + 1\r\n      INCRP = 1\r\n      IVEC1 = 1\r\n      IVEC2 = IVEC1 + NRU + 1\r\n      IF (IVEC2+NRU+1 .GT. SOF3) GO TO 9008\r\nC\r\n      FILE = SCR9\r\n      CALL GOPEN (SCR7,Z(SOF1),RDREW)\r\n      CALL GOPEN (SCR9,Z(SOF2),RDREW)\r\n      CALL GOPEN (SCR6,Z(SOF3),WRTREW)\r\n      CALL MAKMCB (MCBA,SCR6,NRP,RECT,RSP)\r\nC\r\n      DO 160 I = 1,NCOL\r\n      ISK = 1\r\n      CALL UNPACK (*130,SCR7,RZ(IVEC1))\r\n      ISK = 0\r\n      CALL UNPACK (*130,SCR9,RZ(IVEC2))\r\nC\r\n      TOTAL = 0.0\r\n      DO 120 J = 1,NRU\r\n      K = J - 1\r\n      RZ(IVEC1+K) = RZ(IVEC1+K)*RZ(IVEC2+K)\r\n      TOTAL = TOTAL + RZ(IVEC1+K)\r\n  120 CONTINUE\r\n      RZ(IVEC1+NRU) = TOTAL\r\n      GO TO 150\r\nC\r\n  130 DO 140 J = 1,NRP\r\n  140 RZ(IVEC1+J-1) = 0.0\r\n      IF (ISK .NE. 0)CALL FWDREC (*9002,SCR9)\r\nC\r\n  150 CALL PACK (RZ(IVEC1),SCR6,MCBA)\r\nC\r\n  160 CONTINUE\r\nC\r\n      CALL CLOSE (SCR7,REW)\r\n      CALL CLOSE (SCR9,REW)\r\n      CALL CLOSE (SCR6,REW)\r\n      CALL WRTTRL (MCBA)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     CALCULATE THE POTENTIAL ENERTY MULTPLYIER - K*U\r\nC\r\n      ITEM = KMTX\r\n      CALL MTRXI (SCR5,HIGHER,KMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      MCBA(1) = SCR5\r\n      CALL RDTRL (MCBA)\r\n      MCBB(1) = SCR8\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR9,MCBB(3),RECT,MCBB(5))\r\n      SCRM = SCR7\r\n      CALL SOFCLS\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\n      CALL WRTTRL (MCBD)\r\nC\r\nC     CALCULATE THE POTENTIAL ENERGIES BY PERFORMING THE SCALAR\r\nC     MULTIPLY IN SINGLE PERCISION.  USE ONLY THE REAL PART IF COMPLEX\r\nC     VECTORS.  APPEND THE TOTAL POTENTIAL ENERGY TO THE END OF EACH\r\nC     COLUMN.\r\nC\r\n      ITINU = RSP\r\n      IRU   = 1\r\n      NRU   = MCBD(3)\r\n      INCRU = 1\r\n      ITINP = RSP\r\n      ITOUTP= RSP\r\n      IRP   = 1\r\n      NRP   = NRU + 1\r\n      INCRP = 1\r\nC\r\n      FILE = SCR8\r\n      CALL GOPEN (SCR9,Z(SOF1),RDREW)\r\n      CALL GOPEN (SCR8,Z(SOF2),RDREW)\r\n      CALL GOPEN (SCR7,Z(SOF3),WRTREW)\r\n      CALL MAKMCB (MCBA,SCR7,NRP,RECT,RSP)\r\nC\r\n      DO 260 I = 1,NCOL\r\n      ISK = 1\r\n      CALL UNPACK (*230,SCR9,RZ(IVEC1))\r\n      ISK = 0\r\n      CALL UNPACK (*230,SCR8,RZ(IVEC2))\r\n      TOTAL = 0.0\r\n      DO 220 J = 1,NRU\r\n      K = J - 1\r\n      RZ(IVEC1+K) = RZ(IVEC1+K)*RZ(IVEC2+K)\r\n      TOTAL = TOTAL + RZ(IVEC1+K)\r\n  220 CONTINUE\r\n      RZ(IVEC1+NRU) = TOTAL\r\n      GO TO 250\r\nC\r\n  230 DO 240 J = 1,NRP\r\n  240 RZ(IVEC1+J-1) = 0.0\r\n      IF (ISK .NE. 0)CALL FWDREC (*9002,SCR8)\r\nC\r\n  250 CALL PACK (RZ(IVEC1),SCR7,MCBA)\r\nC\r\n  260 CONTINUE\r\nC\r\n      CALL CLOSE (SCR9,REW)\r\n      CALL CLOSE (SCR8,REW)\r\n      CALL CLOSE (SCR7,REW)\r\n      CALL WRTTRL (MCBA)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 6000 CALL SMSG (RC-2,ITEM,HIGHER)\r\n      GO TO 9200\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9008 N = 8\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 IOPT = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovls.f",
    "content": "      SUBROUTINE RCOVLS (LASTSS)\r\nC\r\nC     THIS ROUTINE CREATES THE SOLN ITEM FOR A LOWER LEVEL SUBSTRUCTURE,\r\nC     LASTSS, BY EDITING THAT OF THE SOLUTION SUBSTRUCTURE FSS.\r\nC\r\n      INTEGER         DRY        ,STEP       ,FSS        ,RFNO       ,\r\n     1                UINMS      ,UA         ,LASTSS(2)  ,EQSS       ,\r\n     2                RC         ,SOLN       ,SRD        ,SWRT       ,\r\n     3                IZ(3)      ,EOI        ,EOG        ,NAME(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    NAME  / 4HRCOV, 4HLS  /\r\n      DATA    EQSS  , SOLN  / 4HEQSS,4HSOLN /\r\n      DATA    SRD   , SWRT  / 1,2   /\r\n      DATA    EOG   , EOI   / 2,3   /\r\nC\r\nC     CREATE SOLN ITEM FOR THE RECOVERED SUBSTRUCTURE\r\nC\r\n      IF (RFNO .EQ. 3) GO TO 490\r\nC\r\nC     OBTAIN LIST OF CONTRIBUTING BASIC SUBSTRUCTURES FROM EQSS.\r\nC     STORE IN OPEN CORE AT ICORE.\r\nC\r\n      CALL SFETCH (LASTSS,EQSS,SRD,RC)\r\n      CALL SUREAD (Z(ICORE),4,NWDS,RC)\r\n      NSS = IZ(ICORE+2)\r\n      IF (LCORE .LE. ICORE+2*NSS-1) GO TO 9008\r\n      CALL SUREAD (Z(ICORE),2*NSS,NWDS,RC)\r\nC\r\nC     CONSTRUCT SOLN GROUP 0 IN OPEN CORE AT IG0.  TWO SLOTS FOR THE\r\nC     NUMBER OF LOADS ON EACH SUBSTRUCTURE.  FIRST IS FOR OLD FSS\r\nC     SOLN, SECOND FOR NEW ONE.\r\nC\r\n      IG0 = ICORE + 2*NSS\r\n      CALL SFETCH (FSS,SOLN,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 462\r\n      CALL SMSG (RC-2,SOLN,FSS)\r\n      GO TO 498\r\n  462 CALL SUREAD (Z(IG0),5,NWDS,RC)\r\n      ISOL = IZ(IG0+2)\r\n      IF (ISOL .NE. RFNO) GO TO 6369\r\n      NS = IZ(IG0+3)\r\n      NC = IZ(IG0+4)\r\n      IF (IG0+4+4*NS .GT. LCORE) GO TO 9008\r\n      DO 465 I = 1,NS\r\n      CALL SUREAD (Z(IG0+1+4*I),3,NWDS,RC)\r\n      IZ(IG0+4*I+4) = -65535\r\n      DO 463 J = 1,NSS\r\n      IF (IZ(IG0+4*I+1) .NE. IZ(ICORE+2*J-2)) GO TO 463\r\n      IF (IZ(IG0+4*I+2) .NE. IZ(ICORE+2*J-1)) GO TO 463\r\n      IZ(IG0+4*I+4) = IZ(IG0+4*I+3)\r\n      GO TO 465\r\n  463 CONTINUE\r\n  465 CONTINUE\r\n      IF (RFNO.EQ.8 .OR. RFNO.EQ.9) GO TO 600\r\n      I = 1\r\n      CALL SJUMP (I)\r\nC\r\nC     STATICS SOLUTION ITEM\r\nC\r\nC     READ ALL GROUPS OF THE OLD FSS SOLN INTO OPEN CORE AT IGS.\r\nC     AS EACH ONE IS READ, ELIMINATE LOAD VECTORS WHICH DO NOT\r\nC     APPLY TO THE NEW SOLN BY SETTING THEIR LOAD VECTOR\r\nC     NUMBERS TO -65535.\r\nC     UPDATE THE NUMBER OF LOAD VECTORS WHICH DO APPLY.\r\nC\r\n      IGS = IG0 + 4*NS + 5\r\n      JGS = IGS\r\n      DO 478 I = 1,NC\r\n      CALL SUREAD (Z(JGS),1,NWDS,RC)\r\n      N = IABS(IZ(JGS))\r\n      IF (JGS+N*2 .GT. LCORE) GO TO 9008\r\n      CALL SUREAD (Z(JGS+1),-1,NWDS,RC)\r\n      NL = 0\r\n      IF (N .EQ. 0) GO TO 477\r\n      DO 475 J = 1,N\r\n      LVN = IZ(JGS+2*J-1)\r\nC\r\nC     FIND SUBSTRUCTURE WHERE LVN IS APPLIED FOR FSS SOLN ITEM.\r\nC\r\n      L1 = 0\r\n      L2 = 0\r\n      DO 470 K = 1,NS\r\n      IF (LVN .GT. L2+IZ(IG0+4*K+3)) GO TO 468\r\n      IF (IZ(IG0+4*K+4) .LT. 0) GO TO 471\r\n      LVN = LVN - L1\r\n      NL  = NL + 1\r\n      GO TO 472\r\n  468 IF (IZ(IG0+4*K+4) .LT. 0) L1 = L1 + IZ(IG0+4*K+3)\r\n      L2 = L2 + IZ(IG0+4*K+3)\r\n  470 CONTINUE\r\n  471 LVN = -65535\r\n  472 IZ(JGS+2*J-1) = LVN\r\n  475 CONTINUE\r\n      IF (IZ(JGS) .LT. 0) NL = -NL\r\n      IZ(JGS) = NL\r\n  477 JGS = JGS + 2*N + 1\r\n  478 CONTINUE\r\nC\r\nC     WRITE THE NEW SOLN FOR THE RECOVERED SUBSTRUCTURE ON THE SOF.\r\nC     IN CASE USER FORGOT TO EDIT OUT THIS SOLN FROM A PREVIOUS\r\nC     RUN, DELETE IT TO AVOID LOSING OR SCREWING UP THE RECOVERED\r\nC     DISPLACEMENTS.\r\nC\r\n      CALL DELETE (LASTSS,SOLN,RC)\r\n      IZ(IG0+3) = NSS\r\n      RC = 3\r\n      CALL SFETCH (LASTSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (Z(IG0),5,1)\r\n      DO 480 I = 1,NS\r\n      IF (IZ(IG0+4*I+4) .LT. 0) GO TO 480\r\n      CALL SUWRT (Z(IG0+4*I+1),2,1)\r\n      CALL SUWRT (Z(IG0+4*I+4),1,1)\r\n  480 CONTINUE\r\n      CALL SUWRT (0,0,EOG)\r\n      JGS = IGS\r\n      DO 488 I = 1,NC\r\n      K  = 0\r\n      NL = IZ(JGS)\r\n      JGS= JGS + 1\r\n      CALL SUWRT (NL,1,1)\r\n      IF (NL .EQ. 0) GO TO 485\r\n      NL = IABS(NL)\r\n  482 IF (IZ(JGS) .EQ. -65535) GO TO 484\r\n      CALL SUWRT (IZ(JGS),2,1)\r\n      K = K + 1\r\n  484 JGS = JGS + 2\r\n      IF (K .LT. NL) GO TO 482\r\n  485 IF (IZ(JGS) .NE. -65535) GO TO 486\r\n      JGS = JGS + 2\r\n      GO TO 485\r\n  486 CALL SUWRT (0,0,EOG)\r\n  488 CONTINUE\r\n      CALL SUWRT (0,0,EOI)\r\n      GO TO 498\r\nC\r\nC     MODAL SOLUTION ITEM\r\nC\r\nC     FOR MODAL COPY THE SOLN UNCHANGED.  IN CASE THE USER FORGOT\r\nC     TO EDIT OUT THIS SOLN FROM A PREVIOUS RUN, DELETE IT TO AVOID\r\nC     LOSING OR SCREWING UP THE RECOVERED DISPLACEMENTS.\r\nC\r\n  490 CALL DELETE (LASTSS,SOLN,RC)\r\n      CALL SFETCH (FSS,SOLN,SRD,RC)\r\n      CALL SUREAD (IZ(ICORE),-1,NWDS,RC)\r\n      ISOL = IZ(ICORE+2)\r\n      IF (ISOL .NE. RFNO) GO TO 6369\r\n      IF (IZ(ICORE+3) .GT. 0) GO TO 492\r\n      RC = 3\r\n      CALL SFETCH (LASTSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (Z(ICORE),4,EOG)\r\n      CALL SUWRT (0,0,EOI)\r\n      GO TO 498\r\n  492 IF (LCORE .LT. ICORE+7*IZ(ICORE+3)+3) GO TO 9008\r\n      CALL SUREAD (IZ(ICORE+4),-1,NWDS,RC)\r\n      RC = 3\r\n      CALL SFETCH (LASTSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (Z(ICORE),4,EOG)\r\n      CALL SUWRT (Z(ICORE+4),7*IZ(ICORE+3),EOG)\r\n      CALL SUWRT (0,0,EOI)\r\n      GO TO 498\r\nC\r\nC     DYNAMIC SOLUTION ITEM\r\nC\r\nC     READ IN STATIC LOAD SETS\r\nC\r\n  600 INCR = 1\r\n      IF (RFNO .EQ. 8) INCR = 2\r\n      IGS = IG0 + 4*NS + 5\r\n      CALL SUREAD (Z(IGS),1,NWDS,RC)\r\n      NSL = IZ(IGS)\r\n      LSL = NSL*INCR\r\n      NSLL= 0\r\n      IF (NSL .EQ. 0) GO TO 660\r\n      IF (IGS+NSL .GT. LCORE) GO TO 9008\r\n      CALL SUREAD (Z(IGS+1),NSL,NWDS,RC)\r\nC\r\nC     FLAG THOSE STATIC LOAD IDS THAT ARE NOT IN THE LOWER LEVEL\r\nC     SUBSTRUCTURE AND RENUMBER THOSE THAT ARE LEFT\r\nC\r\n      DO 650 J = 1,NSL\r\n      LVN = IZ(IGS+J)\r\n      L1  = 0\r\n      L2  = 0\r\n      DO 620 K = 1,NS\r\n      IF (LVN .GT. L2+IZ(IG0+4*K+3)) GO TO 610\r\n      IF (IZ(IG0+4*K+4) .LT. 0) GO TO 630\r\n      LVN  = LVN - L1\r\n      NSLL = NSLL + 1\r\n      GO TO 640\r\n  610 IF (IZ(IG0+4*K+4) .LT. 0) L1 = L1 + IZ(IG0+4*K+3)\r\n      L2 = L2 + IZ(IG0+4*K+3)\r\n  620 CONTINUE\r\n  630 LVN = -65535\r\n  640 IZ(IGS+J) = LVN\r\n  650 CONTINUE\r\nC\r\nC     COPY THE FREQUENCY OR TIME STEP RECORD INTO CORE\r\nC\r\n  660 I = 1\r\n      CALL SJUMP (I)\r\n      ISTEP = IGS + NSL + 1\r\n      IF (ISTEP+NC .GT. LCORE) GO TO 9008\r\n      CALL SUREAD (IZ(ISTEP),-1,NWDS,RC)\r\nC\r\nC     COPY IN ALL LOAD FACTOR DATA\r\nC\r\n      IF (NSLL .EQ. 0) GO TO 675\r\n      JGS = ISTEP + NC\r\n      DO 670 I = 1,NC\r\n      IF (JGS+LSL .GT. LCORE) GO TO 9008\r\n      CALL SUREAD (Z(JGS),-1,NWDS,RC)\r\n  670 JGS = JGS + LSL\r\nC\r\nC     WRITE THE NEW SOLN ITEM FOR THE RECOVERED SUBSTRUCTURE.  IN CASE\r\nC     THE USER FORGOT TO EDIT OUT THIS SOLN FROM A PREVIOUS RUN,\r\nC     DELETE IT TO AVOID LOSING OR SCREWING UP THE RECOVERED\r\nC     DISPLACEMENTS\r\nC\r\n  675 CALL DELETE (LASTSS,SOLN,RC)\r\n      RC = 3\r\n      CALL SFETCH (LASTSS,SOLN,SWRT,RC)\r\n      IZ(IG0+3) = NSS\r\n      CALL SUWRT (Z(IG0),5,1)\r\n      DO 680 I = 1,NS\r\n      IF (IZ(IG0+4*I+4) .LT. 0) GO TO 680\r\n      CALL SUWRT (Z(IG0+4*I+1),2,1)\r\n      CALL SUWRT (Z(IG0+4*I+4),1,1)\r\n  680 CONTINUE\r\n      CALL SUWRT (NSLL,1,1)\r\n      IF (NSLL .EQ. 0) GO TO 700\r\n      DO 690 I = 1,NSL\r\n      IF (Z(IGS+I) .LT. 0) GO TO 690\r\n      CALL SUWRT (Z(IGS+I),1,1)\r\n  690 CONTINUE\r\n  700 CALL SUWRT (0,0,EOG)\r\nC\r\nC     COPY THE TIME OR FREQUENCY STEP INFO TO SOF.\r\nC\r\n      CALL SUWRT (Z(ISTEP),NC,EOG)\r\nC\r\nC     COPY LOAD FACTORS FOR EACH STEP TO SOF EDITING OUT THOSE\r\nC     THAT NO LONGER PARTICIAPTE\r\nC\r\n      IF (NSLL .EQ. 0) GO TO 730\r\n      KGS = ISTEP + NC\r\n      DO 720 I = 1,NC\r\n      K = 1\r\n      DO 710 J = 1,NSL\r\n      IF (Z(IGS+J) .LT. 0) GO TO 710\r\n      CALL SUWRT (Z(KGS+K-1),INCR,1)\r\n      K = K + INCR\r\n  710 CONTINUE\r\n      CALL SUWRT (0,0,EOG)\r\n      KGS = KGS + LSL\r\n  720 CONTINUE\r\nC\r\n  730 CALL SUWRT (0,0,EOI)\r\n      GO TO 498\r\nC\r\nC     NORMAL RETURN\r\nC\r\n  498 RETURN\r\nC\r\nC     ERROR PROCESSING\r\nC\r\n 6369 WRITE (NOUT,63690) UFM,ISOL,RFNO\r\n      GO TO 9100\r\n 9008 N = 8\r\n      CALL MESAGE (N,0,NAME)\r\n 9100 IOPT = -1\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\n63690 FORMAT (A23,' 6369.  SOLN ITEM HAS INCORRECT RIGID FORMAT NUMBER',\r\n     1       /31X,'SOLUTION RIGID FORMAT WAS',I5,\r\n     2       ' AND CURRENT NASTRAN EXECUTION RIGID FORMAT IS',I5)\r\n      END\r\n"
  },
  {
    "path": "mis/rcovms.f",
    "content": "      SUBROUTINE RCOVMS\r\nC\r\nC     THIS ROUTINE GENERATES THE MODAL SOLUTION ITEM FOR RIGID FORMAT 3\r\nC\r\n      LOGICAL         MRECVR\r\n      INTEGER         DRY        ,STEP       ,FSS        ,RFNO       ,\r\n     1                SOLN       ,RC         ,SWRT       ,SRD        ,\r\n     2                EOG        ,EOI        ,BUF1       ,Z          ,\r\n     3                RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     4                REW        ,NAME(2)    ,FILE       ,SOF3\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW      ,EOFNRW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    LAMS  , SOLN /   4HLAMS,4HSOLN   /\r\n      DATA    SRD   , SWRT,EOG,EOI   / 1,2,2,3 /\r\n      DATA    LAMA  / 102  /,  I7    / 7 /\r\n      DATA    NAME  / 4HRCOV,  4HMS      /\r\nC\r\nC\r\nC     CREATE SOLN FOR RIGID FORMAT 3\r\nC\r\n      IF (MRECVR) GO TO 500\r\nC\r\nC     WRITE GROUP 0\r\nC\r\n      RC = 3\r\n      CALL SFETCH (FSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (FSS,2,1)\r\n      CALL SUWRT (RFNO,1,1)\r\n      CALL SUWRT (NEIGV,1,EOG)\r\nC\r\nC     IF NO EIGENVALUES, GO HOME\r\nC\r\n      IF (NEIGV .LE. 0) GO TO 430\r\nC\r\nC     COPY RECORD 2 OF LAMA OR CLAMA TO GROUP 1 OF SOLN\r\nC\r\n      FILE = LAMA\r\n      CALL OPEN (*9001,LAMA,Z(BUF1),RDREW)\r\n      CALL FWDREC (*9002,LAMA)\r\n      CALL FREAD (LAMA,ITYPE,1,1)\r\n      NW = 7\r\n      IF (ITYPE .EQ. 90) NW = 6\r\n      Z(I7) = 0\r\n      I = 1\r\n  410 CALL READ (*9002,*420,LAMA,Z(1),NW,0,NWDS)\r\n      CALL SUWRT (Z,7,I)\r\n      GO TO 410\r\n  420 CALL SUWRT (0,0,EOG)\r\n      CALL CLOSE (LAMA,REW)\r\nC\r\nC     FINISH\r\nC\r\n  430 CALL SUWRT (0,0,EOI)\r\n      RETURN\r\nC\r\nC     FOR MODAL RECOVER COPY THE LAMS ITEM TO SOLN\r\nC\r\n  500 CALL SFETCH (FSS,LAMS,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      CALL SUREAD (Z(1),-2,N,RC)\r\n      IF (N .GT. SOF3) GO TO 9008\r\n      CALL SFETCH (FSS,SOLN,SWRT,RC)\r\n      CALL SUWRT (Z(1),N,EOI)\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 6000 CALL SMSG (RC-2,LAMS,FSS)\r\n      GO TO 9200\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9008 N = 8\r\n      GO TO 9100\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 CALL SOFCLS\r\n      IOPT = -1\r\n      CALL CLOSE (LAMA,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovo.f",
    "content": "      SUBROUTINE RCOVO\r\nC\r\nC     RCOVO READS THE CASESS RECOVER RECORD AND PROCESSES ANY\r\nC     OUTPUT REQUESTS FOR THE CURRENT SAVE OR PRINT REQUEST\r\nC\r\nC     THE OUTPUT REQUESTS ARE STORED AT THE BOTTOM OF OPEN CORE IN\r\nC     A TABLE WITH THE FOLLOWING FORM\r\nC\r\nC     BUF(IREQ) -  UVEC  -I\r\nC                  PVEC   I- NONZERO IF ANY REQUEST PRESENT\r\nC                  QVEC  -I\r\nC                  NO. OF POINTS\r\nC                  NO. OF BASICS\r\nC                  BASIC NAME(2) -I\r\nC                  DISP SET       I\r\nC                  OLOAD SET      I\r\nC                  SPCF SET       I - REPEATED FOR EACH BASIC\r\nC                  SUBCASES SET   I   SUBSTRUCTURE\r\nC                  MODES SET      I\r\nC                  RANGE(2)       I\r\nC                  VELO SET       I\r\nC                  ACCE SET       I\r\nC                  STEPS SET      I\r\nC                  GRID OR MODAL -I\r\nC\r\n      EXTERNAL        LSHIFT     ,ANDF\r\n      LOGICAL         BASIC      ,MRECVR\r\n      INTEGER         RSS        ,BUF(1)     ,STEP       ,CASESS     ,\r\n     1                EQSS       ,Z          ,BUF1       ,SYSBUF     ,\r\n     2                SOF1       ,SOF2       ,SOF3       ,RECOVR     ,\r\n     3                SAVE       ,PRINT      ,SRD        ,FSS(2)     ,\r\n     4                RD         ,SUBNAM(2)  ,RDREW      ,WRT        ,\r\n     5                WRTREW     ,REW        ,NOREW      ,RC         ,\r\n     6                REC(3)     ,SUBC       ,SUBS       ,MODE       ,\r\n     7                ALL        ,NONE       ,COMDS(13)  ,ENERGY     ,\r\n     8                UIMPRO     ,RFNO       ,TIME       ,FREQ       ,\r\n     9                ANDF       ,MRECOV\r\n      REAL            RBUF(1)    ,RREC(3)\r\n      CHARACTER       UFM*23     ,UWM*25     ,UIM*29     ,SFM*25     ,\r\n     1                SWM*27\r\n      COMMON /XMSSG / UFM        ,UWM        ,UIM        ,SFM        ,\r\n     1                SWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS        ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANG(2)    ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW      ,EOFNRW\r\n      EQUIVALENCE     (BUF(1)    ,Z(1))\r\n      EQUIVALENCE     (BUF(1)    ,RBUF(1))   ,(REC(1)    ,RREC(1))   ,\r\n     1                (ISET      ,RSET)\r\n      DATA   CASESS / 101   /, SUBNAM / 4HRCOV,4HO   /\r\n      DATA   EQSS   / 4HEQSS/\r\n      DATA   RECOVR / 4HRECO/, MRECOV / 4HMREC       /\r\n      DATA   PRINT  / 4HPRIN/, SAVE   / 4HSAVE       /\r\n      DATA   SRD    / 1     /\r\n      DATA   LL     / 2     /\r\n      DATA   NCOMDS / 13    /\r\n      DATA   COMDS  / 4HDISP,4HOLOA,4HSPCF,4HMODE,4HRANG,4HSUBC,4HSORT,\r\n     1                4HBASI,4HVELO,4HACCE,4HENER,4HUIMP,4HSTEP       /\r\n      DATA   SUBC   , SUBS,   MODE,   ALL,    NONE,   TIME,   FREQ    /\r\n     1       4HSUBC , 4HSUBS, 4HMODE, 4HALL , 4HNONE, 4HTIME, 4HFREQ  /\r\nC\r\nC     SET UP BUFFERS\r\nC\r\n      SOF1  = 1\r\n      SOF2  = SOF1 + SYSBUF\r\n      SOF3  = SOF2 + SYSBUF + 1\r\n      BUF1  = SOF3 + SYSBUF\r\n      ICORE = BUF1 + SYSBUF\r\n      LCORE = KORSZ(Z(1)) - ICORE + 1\r\n      IF (LCORE .LE. 0) GO TO 9008\r\nC\r\nC     FIND RECOVER RECORD IN CASESS\r\nC\r\n      CALL GOPEN (CASESS,Z(BUF1),RDREW)\r\n      IF (STEP .EQ. 1) GO TO 20\r\n      DO 10 I = 2,STEP\r\n   10 CALL FWDREC (*9002,CASESS)\r\n   20 CALL FREAD (CASESS,REC,2,0)\r\n      IF (REC(1).NE.RECOVR .AND. REC(1).NE.MRECOV) GO TO 6305\r\n      MRECVR = .FALSE.\r\n      IF (REC(1) .EQ. MRECOV) MRECVR = .TRUE.\r\nC\r\nC     GET PRINT OR SAVE OPTION FOR THIS PASS\r\nC\r\n      I = 0\r\n   30 CALL READ (*9002,*600,CASESS,REC,3,0,NWDS)\r\n      IF (REC(1).NE.PRINT .AND. REC(1).NE.SAVE) GO TO 30\r\n      IF (LOOP .EQ. I) GO TO 40\r\n      I = I + 1\r\n      GO TO 30\r\nC\r\nC     GET NAME OF SUBSTRUCTURE TO BE OPERATED ON\r\nC\r\n   40 RSS(1) = REC(2)\r\n      RSS(2) = REC(3)\r\n      LOOP   = LOOP + 1\r\n      IF (REC(1) .EQ. SAVE) GO TO 700\r\n      IOPT   = 1\r\nC\r\nC     OPEN SOF AND FETCH EQSS FOR SUBSTRUCTURE TO BE PRINTED\r\nC\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      CALL SFETCH (RSS,EQSS,SRD,RC)\r\n      GO TO (60,50,50,6306,50), RC\r\nC\r\nC     FETCH ON EQSS WAS UNSUCCESSFUL\r\nC\r\n   50 IF (RC .EQ. 2) RC = 3\r\n      CALL SMSG (RC-2,EQSS,RSS)\r\n      GO TO 800\r\nC\r\nC     READ GROUP 0 OF EQSS INTO CORE\r\nC\r\n   60 CALL SUREAD (Z(ICORE),LCORE,NWDS,RC)\r\n      GO TO (9008,65,62,800), RC\r\n   62 CALL SMSG (7,EQSS,RSS)\r\n      GO TO 800\r\nC\r\nC     DETERMINE SIZE OF OUTPUT REQUEST BLOCK AND ALLOCATE SPACE\r\nC     AT BOTTOM OF OPEN CORE\r\nC\r\n   65 NBS  = Z(ICORE+2)\r\n      NP   = Z(ICORE+3)\r\n      LBASIC = 13\r\n      LREQ = 5 + LBASIC*NBS + 2\r\n      IF (LREQ .GT. LCORE-NWDS) GO TO 9008\r\n      NREQ = KORSZ (BUF(1))\r\n      IREQ = NREQ - LREQ + 1\r\n      DO 70 I = IREQ,NREQ\r\n   70 BUF(I) = 0\r\nC\r\nC     MOVE NAMES OF BASICS INTO OUTPUT AREA\r\nC\r\n      BUF(IREQ+3) = NP\r\n      BUF(IREQ+4) = NBS\r\n      DO 80 I = 1,NBS\r\n      I1 = IREQ  + (I-1)*LBASIC + 5\r\n      I2 = ICORE + (I-1)*2+4\r\n      BUF(I1  ) = Z(I2  )\r\n   80 BUF(I1+1) = Z(I2+1)\r\nC\r\nC     INSERT DEFAULTS INTO OUTPUT BLOCK\r\nC\r\nC     MODES    = ALL\r\nC     SUBCASES = ALL\r\nC     RANGE    = -1.0E+35,1.0E+35\r\nC     STEPS    = ALL\r\nC\r\n      ENERGY  = 0\r\n      UIMPRO  = 0\r\n      RANG(1) = -1.0E+35\r\n      RANG(2) =  1.0E+35\r\n      BUF(IREQ  ) = -2\r\n      BUF(IREQ+1) = -2\r\n      BUF(IREQ+2) = -2\r\n      DO 85 I = 1,NBS\r\n      I1 = IREQ + (I-1)*LBASIC + 5\r\n      BUF(I1+ 2) = -2\r\n      BUF(I1+ 3) = -2\r\n      BUF(I1+ 4) = -2\r\n      BUF(I1+ 5) = -1\r\n      BUF(I1+ 6) = -1\r\n      RBUF(I1+7) = -1.0E+35\r\n      RBUF(I1+8) =  1.0E+35\r\n      BUF(I1+ 9) = -2\r\n      BUF(I1+10) = -2\r\n   85 BUF(I1+11) = -1\r\nC\r\nC     READ NEXT COMMAND AND PROCESS OUTPUT REQUEST\r\nC\r\n      NSS1   = 1\r\n      NSS2   = NBS\r\n      IRANGE = 0\r\n      BASIC  = .FALSE.\r\n   90 CALL READ (*9002,*500,CASESS,REC,3,0,NWDS)\r\n      IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 510\r\n      DO 100 I = 1,NCOMDS\r\n      IF (REC(1) .EQ. COMDS(I)) GO TO 110\r\n  100 CONTINUE\r\n      GO TO 90\r\n  110 CONTINUE\r\n      GO TO (120,130,140,150,160,165,170,190,230,240,250,260,270), I\r\nC\r\nC     DISP REQUEST\r\nC\r\n  120 IF (REC(2) .NE. NONE) BUF(IREQ) = 1\r\n      ILOC = 2\r\n      GO TO 400\r\nC\r\nC     OLOAD REQUEST\r\nC\r\n  130 IF (REC(2) .NE. NONE) BUF(IREQ+1) = 1\r\n      IF (REC(2).EQ.NONE .AND. .NOT.BASIC) BUF(IREQ+1) = 0\r\n      ILOC = 3\r\n      GO TO 400\r\nC\r\nC     SPCF REQUEST\r\nC\r\n  140 IF (REC(2) .NE. NONE) BUF(IREQ+2) = 1\r\n      IF (REC(2).EQ.NONE .AND. .NOT.BASIC) BUF(IREQ+2) = 0\r\n      ILOC = 4\r\n      GO TO 400\r\nC\r\nC     MODES REQUEST\r\nC\r\n  150 ILOC = 6\r\n      GO TO 400\r\nC\r\nC     RANGE REQUEST (IF BEFORE A BASIC COMMAND SAVE IT FOR ENERGY\r\nC                    PROCESSING ALSO)\r\nC\r\n  160 ILOC = 7\r\n      IF (MOD(IRANGE,2) .EQ. 1) ILOC = 8\r\n      IRANGE = IRANGE + 1\r\n      IF (REC(2).NE.-2 .AND. REC(3).NE.0) GO TO 450\r\n      IF (BASIC) GO TO 410\r\n      RANG(ILOC-6) = RREC(3)\r\n      GO TO 410\r\nC\r\nC     SUBCASES REQUEST\r\nC\r\n  165 ILOC = 5\r\n      GO TO 400\r\nC\r\nC     SORT COMMAND - IGNORE COMMAND IF AFTER A BASIC DESIGNATOR\r\nC\r\n  170 IF (BASIC) GO TO 180\r\n      I = 0\r\n      IF (REC(2) .EQ. SUBC) I = 1\r\n      IF (REC(2) .EQ. SUBS) I = 2\r\n      IF (REC(2) .EQ. MODE) I = 1\r\n      IF (REC(2) .EQ. TIME) I = 1\r\n      IF (REC(2) .EQ. FREQ) I = 1\r\n      IF (I .EQ. 0) GO TO 450\r\n      IOPT = I\r\n      GO TO 90\r\n  180 WRITE (NOUT,63660) UWM\r\n      GO TO 90\r\nC\r\nC     BASIC COMMAND - VERIFY SUBSTRUCTURE NAME\r\nC\r\n  190 DO 200 I = 1,NBS\r\n      I1 = IREQ + (I-1)*LBASIC + 5\r\n      IF (BUF(I1).EQ.REC(2) .AND. BUF(I1+1).EQ.REC(3)) GO TO 210\r\n  200 CONTINUE\r\n      GO TO 220\r\n  210 NSS1  = I\r\n      NSS2  = I\r\n      BASIC = .TRUE.\r\n      GO TO 90\r\nC\r\nC     NAME NOT A BASIC - SKIP TO NEXT BASIC, PRINT OR SAVE COMMAND\r\nC\r\n  220 WRITE (NOUT,63680) UWM,REC(2),REC(3),RSS\r\n  225 CALL READ (*9002,*500,CASESS,REC,3,0,NWDS)\r\n      IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 510\r\n      IF (REC(1) .EQ. COMDS(8)) GO TO 190\r\n      GO TO 225\r\nC\r\nC     VELOCITY REQUEST\r\nC\r\n  230 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 90\r\n      IF (REC(2) .NE. NONE) BUF(IREQ) = 1\r\n      ILOC = 9\r\n      GO TO 400\r\nC\r\nC     ACCELERATION REQUEST\r\nC\r\n  240 IF (RFNO.NE.8 .AND. RFNO.NE.9) GO TO 90\r\n      IF (REC(2) .NE. NONE) BUF(IREQ) = 1\r\n      ILOC = 10\r\n      GO TO 400\r\nC\r\nC     ENERGY REQUEST\r\nC\r\n  250 ILOC = -1\r\n      GO TO 400\r\nC\r\nC     UIMPROVED REQUEST\r\nC\r\n  260 UIMPRO = 1\r\n      GO TO 90\r\nC\r\nC     STEPS REQUEST\r\nC\r\n  270 ILOC = 11\r\n      GO TO 400\r\nC\r\nC     CHECK VALIDITY OF SET REQUEST\r\nC\r\n  400 IF (REC(2) .EQ. -2) GO TO 450\r\n  410 ISET = 1\r\n      IF (REC(2) .EQ.  ALL) ISET = -1\r\n      IF (REC(2) .EQ. NONE) ISET = 0\r\n      IF (ISET   .LE.  0) GO TO 430\r\n      IF (REC(2) .EQ. -2) GO TO 420\r\n      IF (REC(2) .NE. -1) GO TO 450\r\nC\r\nC     INTEGER VALUE\r\nC\r\n      ISET = REC(3)\r\n      GO TO 430\r\nC\r\nC     REAL VALUE\r\nC\r\n  420 RSET = RREC(3)\r\nC\r\nC     LOOP OVER APPROPRIATE BASIC AREA AND INSERT REQUEST\r\nC\r\n  430 IF (ILOC .LT. 0) GO TO 445\r\n      DO 440 I = NSS1,NSS2\r\n      I1 = IREQ + (I-1)*LBASIC + 5 + ILOC\r\n      BUF(I1) = ISET\r\n  440 CONTINUE\r\n      GO TO 90\r\nC\r\n  445 ENERGY = ISET\r\n      GO TO 90\r\nC\r\nC     ILLEGAL COMMAND FORMAT\r\nC\r\n  450 WRITE (NOUT,63670) UWM,REC(1)\r\n      GO TO 90\r\nC\r\nC\r\nC     END OF RECORD READING CASESS - THIS IS THEREFORE THE LAST\r\nC     SAVE OR PRINT COMMAND\r\nC\r\n  500 LOOP = -1\r\nC\r\nC     END OF PROCESSING FO THIS PRINT COMMAND\r\nC\r\n  510 CALL CLOSE (CASESS,REW)\r\nC\r\nC     DETERMINE IF EACH BASIC IS REALLY A BASIC.  IF NOT THEN THESE\r\nC     WILL BE MODAL POINTS\r\nC\r\nC     BASIC   POINT TYPE = 1\r\nC     MODAL   POINT TYPE = 4\r\nC\r\n      MASKLL = LSHIFT(1023,20)\r\n      DO 550 I = 1,NBS\r\n      I1 = IREQ + (I-1)*LBASIC + 5\r\n      BUF(I1+12) = 1\r\n      CALL FDSUB (BUF(I1),IDIT)\r\n      IF (IDIT .LT. 0) GO TO 550\r\n      CALL FMDI (IDIT,IMDI)\r\n      IF (ANDF(BUF(IMDI+LL),MASKLL) .NE. 0) BUF(I1+12) = 4\r\n  550 CONTINUE\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC\r\nC     NO PRINT OR SAVE COMMAND SPECIFIED - GENERATE A SAVE ON\r\nC     THE SOLUTION SUBSTRUCTURE\r\nC\r\n  600 RSS(1) = FSS(1)\r\n      RSS(2) = FSS(2)\r\n      LOOP   = -1\r\n      GO TO 720\r\nC\r\nC     THIS LOOP IS A SAVE COMMAND - SEE IF ANY OTHER COMMANDS FOLLOW\r\nC\r\n  700 CALL READ (*9002,*710,CASESS,REC,3,0,NWDS)\r\n      IF (REC(1).EQ.PRINT .OR. REC(1).EQ.SAVE) GO TO 720\r\n      GO TO 700\r\n  710 LOOP = -1\r\nC\r\nC     NO OUTPUT BLOCK IS REQUIRED FOR A SAVE COMMAND\r\nC\r\n  720 CALL CLOSE (CASESS,REW)\r\n      IREQ   = 0\r\n      LREQ   = 0\r\n      IOPT   = 0\r\n      ENERGY = 0\r\n      UIMPRO = 0\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n  800 CALL SOFCLS\r\n      IOPT = -1\r\n      LOOP = -1\r\n      CALL CLOSE (CASESS,REW)\r\n      RETURN\r\nC\r\n 6305 WRITE (NOUT,63050) SWM,STEP,REC(1)\r\n      GO TO 800\r\n 6306 WRITE (NOUT,63060) UWM,RSS\r\n      GO TO 800\r\n 9002 N = -2\r\n      GO TO 9100\r\n 9008 N = -8\r\n      GO TO 9100\r\n 9100 CALL SOFCLS\r\n      CALL MESAGE (N,CASESS,SUBNAM)\r\n      RETURN\r\nC\r\nC     FORMATS\r\nC\r\n63050 FORMAT (A27,' 6305, RECORD NUMBER',I5,' IS NOT A RECOVER RECORD.',\r\n     1       '  IT IS A ', A4,' RECORD.')\r\n63060 FORMAT (A25,' 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON-',\r\n     1       'EXISTANT SUBSTRUCTURE ',2A4)\r\n63660 FORMAT (A25,' 6366, THE RECOVER OUTPUT COMMAND SORT MUST APPEAR ',\r\n     1       'BEFORE THE FIRST BASIC SUBCOMMAND.', /32X,\r\n     *       'ANY OTHER SORT COMMANDS ARE IGNORED.')\r\n63670 FORMAT (A25,' 6367, ILLEGAL FORMAT ON THE RECOVER OUTPUT COMMAND',\r\n     1       1X,A4,', COMMAND IGNORED.')\r\n63680 FORMAT (A25,' 6368, THE SUBSTRUCTURE ',2A4,' APPEARING ON A ',\r\n     1       'BASIC COMMAND IS NOT A COMPONENT OF ',2A4, /32X,\r\n     2       'ALL OUTPUT REQUESTS UNTIL THE NEXT BASIC, PRINT OR SAVE ',\r\n     3       'COMMAND ARE IGNORED.')\r\n      END\r\n"
  },
  {
    "path": "mis/rcovqv.f",
    "content": "      SUBROUTINE RCOVQV\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE REACTION FORCES FOR THE REQUESTED\r\nC     SUBSTRUCTURE\r\nC\r\n      LOGICAL         REQF       ,REIGEN\r\n      INTEGER         FSS        ,RFNO       ,UA         ,RSS       ,\r\n     1                RC         ,TFLAG      ,SIGNAB     ,SIGNC     ,\r\n     2                PREC       ,SCRM       ,NAME(2)    ,SCR1      ,\r\n     3                SCR2       ,SCR4       ,SCR5       ,SCR6      ,\r\n     4                SCR7       ,SCR8       ,MGG        ,KGG       ,\r\n     5                BGG        ,BUF1       ,BUF2       ,BUF3      ,\r\n     6                BUF4       ,SOF1       ,SOF2       ,SOF3      ,\r\n     7                BMTX       ,QVEC       ,MMTX       ,KMTX      ,\r\n     8                SYSBUF     ,PA         ,QA\r\nC    9,               UVEC       ,SRD\r\n      CHARACTER       UFM*23     ,UWM*25     ,UIM*29     ,SFM*25     ,\r\n     1                SWM*27\r\n      COMMON /XMSSG / UFM        ,UWM        ,UIM        ,SFM        ,\r\n     1                SWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /MPYADX/ MCBA(7)    ,MCBB(7)    ,MCBC(7)    ,MCBD(7)    ,\r\n     1                MPYZ       ,TFLAG      ,SIGNAB     ,SIGNC      ,\r\n     2                PREC       ,SCRM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    QVEC  , KMTX,   MMTX,   BMTX,   K4MX                   /\r\n     1        4HQVEC, 4HKMTX, 4HMMTX, 4HBMTX, 4HK4MX                 /\r\nC     DATA    UVEC  , SRD   / 4HUVEC, 1                              /\r\n      DATA    KGG   , MGG,    BGG,   K4GG,           NAME            /\r\n     1        103   , 104,    109,    110,         4HRCOV,   4HQV    /\r\n      DATA    SCR1  , SCR2,   SCR4,   SCR5,   SCR6,   SCR7,   SCR8   /\r\n     1        301   , 302,    304,    305,    306,    307,    308    /\r\nC\r\nC\r\nC     CHECK TO SEE IF QVEC HAS ALREADY BEEN CALCULATED\r\nC\r\n      CALL MTRXI (SCR4,RSS,QVEC,0,RC)\r\n      IF (RC .NE. 1) GO TO 10\r\n      QA = SCR4\r\n      RETURN\r\nC\r\nC     INITILIZE FOR QVEC CALCULATIONS\r\nC\r\n   10 PREC  = 0\r\n      TFLAG = 0\r\n      SCRM  = SCR5\r\n      SIGNAB= 1\r\n      MPYZ  = KORSZ(Z(1)) - LREQ\r\n      REQF  = .FALSE.\r\n      IF (FSS(1).EQ.RSS(1) .AND. FSS(2).EQ.RSS(2)) REQF = .TRUE.\r\n      REIGEN = .FALSE.\r\n      MALCOM = 0\r\n      IF (UA .NE. SCR1) GO TO 30\r\n      SCR2 = 301\r\n      SCR1 = 302\r\nC\r\nC     CHECK THE DISPLACEMENT MATRIX\r\nC\r\n   30 MCBB(1) = UA\r\n      CALL RDTRL (MCBB)\r\n      IF (MCBB(1) .LE. 0) GO TO 9200\r\nC\r\nC     BRANCH ON RIGID FORMAT\r\nC\r\n      IF (RFNO .GT. 9) GO TO 9007\r\n      GO TO (100,100,200,9007,9007,9007,9007,400,400), RFNO\r\nC\r\nC     STATIC SOUTION\r\nC\r\nC     Q = KU - P\r\nC\r\nC     SET UP LOAD VECTOR FOR SUBSTRACTION\r\nC\r\n  100 SIGNC = -1\r\n      MCBC(1) = PA\r\n      IF (PA .GT. 0) CALL RDTRL (MCBC)\r\n      GO TO 500\r\nC\r\nC     NORMAL MODES\r\nC\r\nC     CHECK IF THE EIGEN VECTORS ARE COMPLEX\r\nC\r\n  200 IF (MCBB(5) .GE. 3) GO TO 300\r\nC\r\nC     REAL NORMAL MODES\r\nC\r\nC      Q = KU + MA   WHERE A = -(2*PI*FREQ)**2 * U\r\nC\r\n      REIGEN = .TRUE.\r\nC\r\nC     MALCOM TAGG OF MDC, IN MSFC, RECOMMANDED THAT FOR RIGID FORMAT 3\r\nC     THE SPC REACTION FORCE SHOULD NOT CONTAIN THE MASS TERM.  JULY/86\r\nC     I.E.    Q = KU ONLY   (DROP THE MA TERM)\r\nC     THUS,   GO TO 250 THEN TO 500\r\nC\r\nC     MARCH 1989 - MALCOM RECOMMENDATION REMOVED. IT CAUSES IMBALANCED\r\nC     SPC FORCES\r\nC\r\nC     MALCOM = 1\r\n      IF (MALCOM .EQ. 1) GO TO 250\r\nC\r\nC     CALCULATE THE ACCLERATION VECTOR FOR REAL NORMAL MODES\r\nC\r\n      IN = UA\r\n      CALL RCOVVA (IN,0,0,0,0,SCR8,RSS,Z(1),Z(1),Z(1))\r\n      IF (IN .LE. 0) GO TO 9200\r\nC\r\nC\r\nC     INDICATE A POSITIVE SIGN ON THE M * A MULTIPLY\r\nC\r\n  250 SIGNAB  = 1\r\n      MCBC(1) = 0\r\n      IF (MALCOM .EQ. 1) GO TO 500\r\n      GO TO 420\r\nC\r\nC     COMPLEX NORMAL MODES\r\nC\r\nC     Q = KU + BV + MA\r\nC\r\nC     CALCULATE THE COMPLEX VELOCITIES AND ACCLERATION VECTORS FOR\r\nC     THE EIGENVECTORS\r\nC\r\n  300 IN = UA\r\nC\r\nC     SEE MALCOM TAGG RECOMMENDATION, 25 LINES ABOVE\r\nC\r\n      CALL SOFCLS\r\n      IF (MALCOM .EQ. 1) GO TO 445\r\nC\r\n      CALL RCOVVA (IN,0,0,SCR6,SCR7,SCR8,RSS,Z(1),Z(1),Z(1))\r\n      IF (IN .LE. 0) GO TO 9200\r\nC\r\nC     INDICATE ZERO LOAD VECTOR FOR NORMAL MODES\r\nC\r\n      MCBC(1) = 0\r\n      GO TO 420\r\nC\r\nC     DYNAMIC ANALYSIS\r\nC\r\nC     Q = KU + BV + MA - P\r\nC\r\nC\r\nC     SPLIT DISPLACEMENT, VELOCITIES AND ACCELERATIONS ONTO SEPERATE\r\nC     FILES\r\nC\r\n  400 IN = UA\r\n      CALL RCOVVA (IN,1,0,SCR6,SCR7,SCR8,RSS,Z(1),Z(1),Z(1))\r\n      IF (IN .LE. 0) GO TO 9200\r\nC\r\nC     SETUP TO SUBTRACT LOAD VECTOR\r\nC\r\n      SIGNC = -1\r\n      MCBC(1) = PA\r\n      IF (PA .GT. 0) CALL RDTRL (MCBC)\r\nC\r\nC     COMMON PROCESSING FOR DYNAMICS AND NORMAL MODES\r\nC\r\nC\r\nC     MULTIPLY AND ADD    SCR1 = MA - P\r\nC\r\n  420 CONTINUE\r\n      IF (.NOT.REQF) GO TO 430\r\n      MCBA(1) = MGG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 440\r\n  430 CALL MTRXI (SCR4,RSS,MMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 460\r\n      MCBA(1) = SCR4\r\n      CALL RDTRL (MCBA)\r\n  440 MCBB(1) = SCR8\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR1,MCBB(3),MCBB(4),MCBB(5))\r\n      CALL SOFCLS\r\nC\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\nC\r\n  445 DO 450 I = 1,7\r\n  450 MCBC(I) = MCBD(I)\r\n      SIGNC = 1\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     MULTIPLY AND ADD   SCR8 = K4V + MCBC\r\nC\r\n  460 IF (REIGEN .OR. RFNO.EQ.9) GO TO 464\r\n      IF (.NOT.REQF) GO TO 461\r\n      MCBA(1) = K4GG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 462\r\n  461 CALL MTRXI (SCR4,RSS,K4MX,0,RC)\r\n      IF (RC .NE. 1) GO TO 464\r\n      MCBA(1) = SCR4\r\n      CALL RDTRL (MCBA)\r\n  462 MCBB(1) = SCR7\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR8,MCBB(3),MCBB(4),MCBB(5))\r\n      SIGNAB = 1\r\n      CALL SOFCLS\r\nC\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\nC\r\n      DO 463 I = 1,7\r\n  463 MCBC(I) = MCBD(I)\r\n      SIGNC = 1\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n  464 CONTINUE\r\n      IF (REIGEN) GO TO 500\r\nC\r\nC     MULTIPLY AND ADD   SCR1 = BV + MCBC\r\nC\r\n      IF (.NOT.REQF) GO TO 470\r\n      MCBA(1) = BGG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 480\r\n  470 CALL MTRXI (SCR4,RSS,BMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 500\r\n      MCBA(1) = SCR4\r\n      CALL RDTRL (MCBA)\r\n  480 MCBB(1) = SCR7\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR1,MCBB(3),MCBB(4),MCBB(5))\r\n      SIGNAB = 1\r\n      CALL SOFCLS\r\nC\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\nC\r\n      DO 490 I = 1,7\r\n  490 MCBC(I) = MCBD(I)\r\n      SIGNC = 1\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     COMMON PROCESSING FOR ALL RIGID FORMATS\r\nC\r\nC\r\nC     MULTIPLY AND ADD  Q = KU + MCBC\r\nC\r\n  500 IF (.NOT.REQF) GO TO 520\r\n      MCBA(1) = KGG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 540\r\n  520 ITEM = KMTX\r\n      FILE = SCR7\r\n      CALL MTRXI (SCR7,RSS,KMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      MCBA(1) = SCR7\r\n      CALL RDTRL (MCBA)\r\n  540 MCBB(1) = SCR6\r\n      IF (REIGEN .OR. RFNO.LE.2) MCBB(1) = UA\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR4,MCBB(3),MCBB(4),MCBB(5))\r\n      SIGNAB = 1\r\n      CALL SOFCLS\r\nC\r\n      CALL MPYAD (Z(1),Z(1),Z(1))\r\nC\r\n      CALL WRTTRL (MCBD)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     COPY REACTIONS TO SOF\r\nC\r\n      CALL MTRXO (SCR4,RSS,QVEC,0,RC)\r\n      QA = SCR4\r\nC\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 6000 IF (RC .EQ. 6) GO TO 9100\r\n      CALL SMSG (RC-2,ITEM,RSS)\r\n      GO TO 9200\r\n 9007 N = 7\r\n 9100 CALL MESAGE (N,0,NAME)\r\n 9200 QA = 0\r\n      WRITE  (NOUT,6318) SWM\r\n 6318 FORMAT (A27,' 6318, OUTPUT REQUEST FOR REACTIONS FORCES IGNORED.')\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/rcovr.f",
    "content": "      SUBROUTINE RCOVR\r\nC\r\nC     MAIN DRIVER FOR PHASE 2 SUBSTRUCTURING RECOVER OPERATION\r\nC\r\nC     THIS MODULE WILL CALCULATE THE DISPLACEMENT AND REACTION MATRICES\r\nC     FOR ANY OF THE SUBSTRUCTURES COMPOSING THE FINAL SOLUTION STRUC-\r\nC     TURE.  OUTPUT DATA MAY BE PLACED ON OFP PRINT FILES OR SAVED ON\r\nC     THE SOF FOR SUBSEQUENT PROCESSING.\r\nC\r\nC     DMAP CALLING SEQUENCES\r\nC\r\nC     RIGID FORMATS 1 AND 2  (STATIC ANALYSIS)\r\nC\r\nC     RCOVR   CASESS,GEOM4,KGG,MGG,PG,UGV,,,,,/OUGV1,OPG1,OQG1,U1,\r\nC             U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/RFNO/0/LUI/U1NM/U2NM/\r\nC             U3NM/U4NM/U5NM/S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/\r\nC             V,Y,QTHRESH $\r\nC\r\nC     RIGID FORMAT 3  (MODAL ANALYSIS)\r\nC\r\nC     RCOVR   CASESS,LAMA,KGG,MGG,,PHIG,,,,,/OPHIG,,OQG1,U1,U2,U3,\r\nC             U4,U5/DRY/ILOOP/STEP/FSS/RFNO/NEIGV/LUI/U1NM/U2NM/\r\nC             U3NM/U4NM/U5NM/S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/\r\nC             V,Y,QTHRESH $\r\nC\r\nC     RIGID FORMAT 8  (FREQUENCY ANALYSIS)\r\nC\r\nC     RCOVR   CASESS,GEOM4,KGG,MGG,PPF,UPVC,DIT,DLT,BGG,K4GG,PPF/\r\nC             OUGV1,OPG1,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/\r\nC             RFNO/0/LUI/U1NM/U2NM/U3NM/U4UN/U5NM/S,N,NOSORT2/\r\nC             V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $\r\nC\r\nC     RIGID FORMAT 9  (TRANSIENT ANALYSIS)\r\nC\r\nC     RCOVR   CASESS,GEOM4,KGG,MGG,PPT,UPV,DIT,DLT,BGG,K4GG,TOL/\r\nC             OUGV1,OPG1,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/STEP/FSS/\r\nC             RFNO/0/LUI/U1NM/U2NM/U3NM/U4UN/U5NM/S,N,NOSORT2/\r\nC             V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $\r\nC\r\nC     MRECOVER  (ANY RIGID FORMAT)\r\nC\r\nC     RCOVR   ,,,,,,,,,,/OPHIG,,OQG1,U1,U2,U3,U4,U5/DRY/ILOOP/\r\nC             STEP/FSS/3/NEIGV/LUI/U1NM/U2NM/U3NM/U4NM/U5NM/\r\nC             S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $\r\nC\r\nC     MAJOR SUBROUTINES FOR RCOVR ARE -\r\nC\r\nC     RCOVA - COMPUTES THE SOLN ITEM FOR THE FINAL SOLUTION STRUCTURE\r\nC     RCOVB - PERFORMS BACK-SUBSTITUTION TO RECOVER DISPLACEMENTS OF\r\nC             LOWER LEVEL SUBSTRUCTURES FROM THOSE OF THE FINAL SOLUTION\r\nC             STRUCTURE\r\nC     RCOVC - COMPUTES REACTION MATRICES AND WRITES OUTPUT DATA BLOCKS\r\nC             FOR THE OFP\r\nC     RCOVO - PROCESS CASESS FOR THE RCOVER COMMAND AND ANY OUTPUT\r\nC             REQUESTS SPECIFIED\r\nC     RCOVE - COMPUTES MODAL ENERGIES AND ERRORS FOR A MODAL REDUCED\r\nC             SUBSTRUCTURE\r\nC\r\nC     JUNE 1977\r\nC\r\n      INTEGER ENERGY\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\nC\r\n      NOSORT = -1\r\n      CALL RCOVO\r\n      CALL RCOVA\r\n      IF (IOPT .LT. 0) GO TO 10\r\n      CALL RCOVB\r\n      IF (IOPT .LE. 0) GO TO 10\r\n      CALL RCOVC\r\n      IF (ENERGY .NE. 0) CALL RCOVE\r\n   10 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovr3.f",
    "content": "      SUBROUTINE RCOVR3\r\nC\r\nC     THE RCOVR3 MODULE RECOVERS DATA FOR SUBSTRUCTURE PHASE 3.\r\nC\r\nC     DISPLACEMENTS AND REACTIONS ARE COPIED FROM THE SOF TO GINO FILES.\r\nC     FOR NORMAL MODES, LAMA IS CREATED FROM THE SOLN ITEM.\r\nC     FOR STATICS, THE LOADS AND ENFORCED DISPLACEMENTS ARE FACTORED\r\nC     AND COMBINED TO CORRESPOND WITH THE PHASE 2 SOLUTION SUBCASES.\r\nC\r\nC     JANUARY 1974\r\nC\r\n      LOGICAL         FIRST\r\n      INTEGER         RFNO     ,TRL      ,SYSBUF   ,TITLES   ,OTYPP    ,\r\n     1                OTYPUN   ,IZ(10)   ,PG       ,PS       ,PO       ,\r\n     2                YS       ,UAS      ,QAS      ,PGS      ,PSS      ,\r\n     3                POS      ,YSS      ,LAMA     ,IVEC(4)  ,OVEC(4)  ,\r\n     4                SOLN     ,UVEC     ,QVEC     ,INITM(3) ,OUTDB(3) ,\r\n     5                SUBR(2)  ,SRD      ,HERE     ,BUF1     ,BUF2     ,\r\n     6                BUF3     ,BUF4     ,RC       ,FSS(2)   ,FILE     ,\r\n     7                SCR1     ,SCR2     ,SCR3\r\n      DIMENSION       MCBTRL(7)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /BLANK / RFNO     ,NAME(2)  ,NOUE     ,TRL(7)   ,HERE(6)  ,\r\n     1                IBUF(3)\r\n      COMMON /SYSTEM/ SYSBUF   ,NOUT\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,REW      ,\r\n     1                NOREW\r\n      COMMON /OUTPUT/ TITLES(1)\r\n      COMMON /PACKX / ITYPP    ,OTYPP    ,IROWP    ,NROWP    ,INCP\r\n      COMMON /UNPAKX/ OTYPUN   ,IROWUN   ,NROWUN   ,INCUN\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (PG  ,IVEC(1) )    ,(PGS ,OVEC(1) )    ,\r\n     1                (PS  ,IVEC(2) )    ,(PSS ,OVEC(2) )    ,\r\n     2                (PO  ,IVEC(3) )    ,(POS ,OVEC(3) )    ,\r\n     3                (YS  ,IVEC(4) )    ,(YSS ,OVEC(4) )    ,\r\n     4                (SOLN,INITM(1))    ,(LAMA,OUTDB(1))    ,\r\n     5                (UVEC,INITM(2))    ,(UAS ,OUTDB(2))    ,\r\n     6                (QVEC,INITM(3))    ,(QAS ,OUTDB(3))    ,\r\n     7                (Z(1),IZ(1))\r\n      DATA     PG   , PS  ,PO  ,YS  ,UAS ,QAS ,PGS ,PSS ,POS ,YSS ,LAMA/\r\n     1         101  , 102 ,103 ,104 ,201 ,202 ,203 ,204 ,205 ,206 ,207 /\r\n      DATA     SCR1 , SCR2,SCR3     /\r\n     1         301  , 302 ,303      /\r\n      DATA     SOLN , UVEC  , QVEC   ,IBLANK  /\r\n     1        4HSOLN, 4HUVEC, 4HQVEC ,4H      /\r\n      DATA     SUBR         , SRD    /\r\n     1        4HRCOV, 4HR3  , 1      /\r\nC\r\nC     INITIALIZATION\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      BUF2  = BUF1  - SYSBUF - 1\r\n      BUF3  = BUF2  - SYSBUF\r\n      BUF4  = BUF3  - SYSBUF\r\n      LCORE = BUF4  - 1\r\n      IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBR)\r\n      NOGO  = 0\r\n      ITYPP = 1\r\n      OTYPP = 1\r\n      IROWP = 1\r\n      INCP  = 1\r\n      OTYPUN= 1\r\n      IROWUN= 1\r\n      INCUN = 1\r\n      FIRST = .FALSE.\r\n      CALL SOFOPN (Z(BUF1),Z(BUF2),Z(BUF3))\r\n      DO 10 I = 1,6\r\n      HERE(I) = 0\r\n   10 CONTINUE\r\nC\r\nC     CHECK DATA\r\nC\r\nC     NO EXTRA POINTS\r\nC\r\n      IF (NOUE .NE. -1) GO TO 6372\r\nC\r\nC     SUBSTRUCTURE NAME\r\nC\r\n      CALL FDSUB (NAME,RC)\r\n      IF (RC .EQ. -1) CALL SMSG (-2,IBLANK,NAME)\r\nC\r\nC     PAIRS OF INPUT ITEMS AND OUTPUT BLOCKS\r\nC\r\n      CALL SFETCH (NAME,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME)\r\n      IF (RFNO.EQ.1 .OR. RFNO.EQ.2) GO TO 15\r\n      TRL(1) = OUTDB(1)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) GO TO 15\r\n      CALL MESAGE (1,OUTDB(1),SUBR)\r\n      NOGO = 1\r\n   15 DO 30 I = 2,3\r\n      IF (I.EQ.1 .AND. (RFNO.EQ.1 .OR. RFNO.EQ.2)) GO TO 30\r\n      CALL SOFTRL (NAME,INITM(I),MCBTRL)\r\n      RC = MCBTRL(1)\r\n      IF (RC .NE. 1) GO TO 30\r\n      TRL(1) = OUTDB(I)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) GO TO 20\r\n      CALL MESAGE (1,OUTDB(I),SUBR)\r\n      NOGO = 1\r\n      GO TO 30\r\n   20 HERE(I-1) = 1\r\n   30 CONTINUE\r\nC\r\nC     PAIRS OF DATA BLOCKS\r\nC\r\n      IF (RFNO.EQ.3 .OR. RFNO.EQ.8) GO TO 60\r\n      DO 50 I = 1,4\r\n      TRL(1) = IVEC(I)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .LT. 0)  GO TO 50\r\n      IF (I.EQ.4 .AND. TRL(6).EQ.0) GO TO 50\r\n      TRL(1) = OVEC(I)\r\n      CALL RDTRL (TRL)\r\n      IF (TRL(1) .GT. 0) GO TO 40\r\n      CALL MESAGE (1,OVEC(I),SUBR)\r\n      NOGO = 1\r\n      GO TO 50\r\n   40 HERE(I+2) = 1\r\n   50 CONTINUE\r\nC\r\nC     TERMINATE IF THERE WERE ERRORS\r\nC\r\n   60 IF (NOGO .NE. 0) GO TO 9037\r\nC\r\nC     COPY DISPLACEMENTS AND REACTIONS FROM SOF TO GINO FILES\r\nC\r\n      IF (HERE(1) .EQ. 1) CALL MTRXI (UAS,NAME,UVEC,Z(BUF4),RC)\r\n      IF (HERE(2) .EQ. 1) CALL MTRXI (QAS,NAME,QVEC,Z(BUF4),RC)\r\nC\r\nC     BRANCH ON RIGID FORMAT NUMBER\r\nC\r\n      IF (RFNO .EQ. 3) GO TO 140\r\nC\r\nC     RIGID FORMAT  1 -- STATIC\r\nC     RIGID FORMAT  2 -- INERTIAL RELIEF\r\nC     RIGID FORMAT  8 -- FREQUENCY RESPONSE\r\nC     RIGID FORMAT  9 -- TRANSIENT RESPONSE\r\nC     *************************************\r\nC\r\nC     FETCH SOLN ITEM AND PROCESS GROUP 0 DATA\r\nC\r\n      CALL SFETCH (NAME,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME)\r\n      CALL SUREAD (FSS,2,N,RC)\r\n      WRITE (NOUT,63210) UIM,FSS,NAME\r\n      CALL SUREAD (IBUF,3,N,RC)\r\n      IF (IBUF(1) .NE. RFNO) GO TO 6322\r\n      IF (IBUF(2) .NE. 1) GO TO 6324\r\n      NC = IBUF(3)\r\nC\r\nC     WRITE NULL REACTIONS MATRIX TO PREVENT ERROR 3007 IN UMERGE\r\nC\r\n      IF (HERE(2) .EQ. 1) GO TO 80\r\n      NROWP = 1\r\n      CALL MAKMCB (TRL,QAS,1,2,1)\r\n      CALL GOPEN (QAS,Z(BUF4),WRTREW)\r\n      DO 70 I = 1,NC\r\n      CALL PACK (0,QAS,TRL)\r\n   70 CONTINUE\r\n      CALL CLOSE (QAS,REW)\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     COPY FREQUENCIES ONTO PPF OR TIME STEPS ONTO TOL\r\nC\r\n   80 IF (RFNO .LT. 8) GO TO 120\r\n      J = 1\r\n      CALL SJUMP (J)\r\n      FILE = LAMA\r\n      CALL OPEN (*9001,LAMA,Z(BUF4),WRTREW)\r\n      CALL FNAME (LAMA,IBUF)\r\n      CALL WRITE (LAMA,IBUF,2,0)\r\n   90 CALL SUREAD (Z,LCORE,N,RC)\r\n      CALL WRITE (LAMA,Z,N,0)\r\n      IF (RC .EQ. 1) GO TO 90\r\n      CALL WRITE (LAMA,0,0,1)\r\nC\r\nC     WRITE NULL DYNAMIC LOADS MATRIX ONTO PPF\r\nC\r\n      CALL MAKMCB (TRL,LAMA,1,2,1)\r\n      IF (RFNO .EQ. 9) GO TO 110\r\n      DO 100 I = 1,NC\r\n      CALL PACK (0,LAMA,TRL)\r\n  100 CONTINUE\r\n  110 CALL WRTTRL (TRL)\r\n      CALL CLOSE (LAMA,REW)\r\nC\r\nC     FOR EACH SUBCASE READ FROM THE SOLN, FORM A COMBINED VECTOR FROM\r\nC     THE VECTORS OF THE APPLIED LOADS OR ENFORCED DISPLACEMENTS DATA\r\nC     BLOCKS\r\nC\r\n  120 LCORE = BUF3 - 1\r\n      DO 130 I = 1,4\r\n      IF (HERE(I+2) .EQ. 0) GO TO 130\r\n      CALL RCOVSL (NAME,0,IVEC(I),SCR1,SCR2,SCR3,OVEC(I),Z,Z,LCORE,\r\n     1             FIRST,RFNO)\r\n      IF (OVEC(I) .NE. 0) FIRST= .TRUE.\r\n  130 CONTINUE\r\n      GO TO 5000\r\nC\r\nC     RIGID FORMAT  3 -- NORMAL MODES\r\nC     *******************************\r\nC\r\nC     WRITE NULL REACTIONS MATRIX TO PREVENT ERROR 3007 IN UMERGE\r\nC\r\n  140 IF (HERE(2) .EQ. 1) GO TO 150\r\n      NROWP = 1\r\n      CALL MAKMCB (TRL,QAS,1,2,1)\r\n      CALL GOPEN (QAS,Z(BUF4),WRTREW)\r\n      CALL PACK (0,QAS,TRL)\r\n      CALL CLOSE (QAS,REW)\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     GENERATE OFP ID RECORD FOR LAMA\r\nC\r\n  150 IF (LCORE .LT. 146) GO TO 9008\r\n      CALL GOPEN (LAMA,Z(BUF4),WRTREW)\r\n      DO 160 I = 3,50\r\n      IZ(I) = 0\r\n  160 CONTINUE\r\n      IZ( 1) = 21\r\n      IZ( 2) = 6\r\n      IZ(10) = 7\r\n      DO 170 I = 1,96\r\n      IZ(I+50) = TITLES(I)\r\n  170 CONTINUE\r\n      CALL WRITE (LAMA,Z,146,1)\r\nC\r\nC     GET SOLN ITEM AND CHECK GROUP 0 DATA\r\nC\r\n      CALL SFETCH (NAME,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) CALL SMSG (2-RC,SOLN,NAME)\r\n      CALL SUREAD (FSS,2,N,RC)\r\n      WRITE (NOUT,63210) UIM,FSS,NAME\r\n      CALL SUREAD (IBUF,-1,N,RC)\r\n      IF (IBUF(1) .NE. RFNO) GO TO 6322\r\n      NEIGV = IBUF(2)\r\n      IF (NEIGV .GT. 0) GO TO 180\r\nC\r\nC     NO EIGENVALUES.  WRITE ZERO TRAILER TO INDICATE LAMA IS PURGED\r\nC\r\n      CALL CLOSE (LAMA,REW)\r\n      CALL MAKMCB (TRL,LAMA,0,0,0)\r\n      CALL WRTTRL (TRL)\r\n      GO TO 6323\r\nC\r\nC     COPY SOLN GROUP 1 TO LAMA RECORD 2 AND WRITE NON-ZERO TRAILER\r\nC\r\n  180 CALL SUREAD (Z,LCORE,N,RC)\r\n      CALL WRITE (LAMA,Z,N,0)\r\n      IF (RC .EQ. 1) GO TO 180\r\n      CALL WRITE (LAMA,0,0,1)\r\n      CALL CLOSE (LAMA,REW)\r\n      CALL MAKMCB (TRL,LAMA,0,0,0)\r\n      TRL(2) = 1\r\n      CALL WRTTRL (TRL)\r\nC\r\nC     NORMAL MODULE EXITS\r\nC\r\n 5000 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ABNORMAL MODULE EXITS\r\nC\r\n 6372 WRITE (NOUT,63720) UFM\r\n      GO TO 9061\r\n 9001 N = -1\r\n      GO TO 9200\r\n 6322 WRITE (NOUT,63220) SFM,IBUF(1),RFNO\r\n      GO TO 9061\r\n 6323 WRITE (NOUT,63230) UWM\r\n      GO TO 9300\r\n 6324 WRITE (NOUT,63240) UFM,NAME\r\n      GO TO 9061\r\n 9008 N = -8\r\n      GO TO 9200\r\n 9037 N = -37\r\n      GO TO 9200\r\n 9061 N = -61\r\n 9200 CALL SOFCLS\r\n      CALL MESAGE (N,FILE,SUBR)\r\n 9300 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     FORMAT STATEMENTS FOR DIAGNOSTIC MESSAGES\r\nC\r\n63210 FORMAT (A29,' 6321, SUBSTRUCTURE PHASE 3 RECOVER FOR FINAL SOLUT',\r\n     1       'ION STRUCTURE ',2A4, /35X,' AND BASIC SUBSTRUCTURE ',2A4)\r\n63220 FORMAT (A25,' 6322, SOLN HAS INCORRECT RIGID FORMAT NUMBER.',/32X,\r\n     1       'PHASE 2 RIGID FORMAT WAS',I3,' AND PHASE 3 IS',I3)\r\n63230 FORMAT (A25,' 6323, NO EIGENVALUES FOR THIS SOLUTION')\r\n63240 FORMAT (A23,' 6324, PHASE 3 RECOVER ATTEMPTED FOR NON-BASIC ',\r\n     1       'SUBSTRUCTURE ',2A4)\r\n63720 FORMAT (A23,' 6372, NO EXTRA POINTS ALLOWED IN PHASE 3 ',\r\n     1       'SUBSTRUCTURING.')\r\n      END\r\n"
  },
  {
    "path": "mis/rcovsl.f",
    "content": "      SUBROUTINE RCOVSL (NAME,ITEM,IN,AMAT,SCR2,SCR3,OUT,Z,IZ,LCORE,\r\n     1                   FIRST,RFNO)\r\nC\r\nC     RCOVSL CALCULATES THE STATIC LOAD VECTORS FOR THE SUBSTRUCTURING\r\nC     PHASE 2 AND PHASE 3 OPERATIONS FROM THE SUBSTRUCTURE SOLN ITEM\r\nC\r\n      LOGICAL         FIRST\r\n      INTEGER         NAME(2),AMAT,SCR2,SCR3,OUT,PMX,FMX,CMX,SLMX,T,\r\n     1                SIGNPF,SIGNC,PREC,SCR,RD,RDREW,WRT,WRTREW,REW,\r\n     2                OTYPP,SYSBUF,SOLN,SRD,SUBR(2),BUF1,FSS(2),IBUF(3),\r\n     3                IZ(1),RC,RFNO,TYPE\r\n      REAL            Z(1)\r\n      COMMON /MPYADX/ PMX(7),FMX(7),CMX(7),SLMX(7),MCORE,T,SIGNPF,SIGNC,\r\n     1                PREC,SCR\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW\r\n      COMMON /PACKX / ITYPP,OTYPP,IROWP,NROWP,INCP\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      DATA    SOLN  / 4HSOLN /, SRD   / 1 /\r\n      DATA    SUBR  / 4HRCOV ,  4HSL  /\r\nC\r\nC     INITIALIZE\r\nC\r\n      BUF1  = LCORE - SYSBUF + 1\r\n      ITYPP = 1\r\n      IROWP = 1\r\n      INCP  = 1\r\n      MCORE = LCORE\r\n      T     = 0\r\n      SIGNPF= 1\r\n      PREC  = 0\r\nC\r\nC     READ LOAD MATRIX FROM SOF ONTO GINO FILE\r\nC\r\n      PMX(1) = IN\r\n      CALL RDTRL (PMX)\r\n      IF (PMX(1) .GT. 0) GO TO 5\r\n      ITM = ITEM\r\n      CALL MTRXI (SCR2,NAME,ITEM,Z(BUF1),RC)\r\n      IF (RC .EQ. 3) GO TO 600\r\n      IF (RC .NE. 1) GO TO 1000\r\n      PMX(1) = SCR2\r\n      CALL RDTRL (PMX)\r\n    5 NROWP = PMX(2)\r\n      TYPE  = PMX(5)\r\n      IF (RFNO .EQ. 8 .AND. TYPE .LE. 2) TYPE = TYPE + 2\r\n      OTYPP = TYPE\r\n      IF (FIRST) GO TO 500\r\nC\r\nC     PROCESS INITIAL SOLN DATA\r\nC\r\n      ITM = SOLN\r\n      CALL SFETCH (NAME,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 1000\r\n      CALL SUREAD (FSS,2,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      CALL SUREAD (IBUF,3,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      IF (RFNO .EQ. 3) GO TO 600\r\n      NB  = IBUF(2)\r\n      NST = IBUF(3)\r\nC\r\nC     INTILIZE SCR1 FILE\r\nC\r\n      CALL MAKMCB (FMX,AMAT,NROWP,2,TYPE)\r\n      CALL GOPEN (AMAT,Z(BUF1),WRTREW)\r\nC\r\nC     PACK FACTOR MATRIX FOR R. F. 1,2\r\nC\r\n      IF (RFNO.EQ.8 .OR. RFNO.EQ.9) GO TO 100\r\n      DO 40 I = 1,NST\r\n      DO 10 J = 1,NROWP\r\n      Z(J) = 0.0\r\n   10 CONTINUE\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 1200\r\n      CALL SUREAD (NL,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      IF (NL .LT. 0) GO TO 40\r\n      IF (NL .EQ. 0) GO TO 30\r\n      IF (NROWP+2*NL .GE. BUF1) CALL MESAGE (-8,0,SUBR)\r\n      CALL SUREAD (Z(NROWP+1),2*NL,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      NROW = NROWP - 1\r\n      DO 20 J = 1,NL\r\n      NROW = NROW + 2\r\n      NR   = IZ(NROW)\r\n      Z(NR)= Z(NROW+1)\r\n   20 CONTINUE\r\n   30 CALL PACK (Z(1),AMAT,FMX)\r\n   40 CONTINUE\r\n      CALL CLOSE (AMAT,REW)\r\n      CALL WRTTRL(FMX)\r\n      GO TO 500\r\nC\r\nC     PACK FACTOR MATRIX FOR R. F. 8,9\r\nC\r\n  100 CALL SUREAD (IZ(1),3*NB,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      CALL SUREAD (NL,1,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      IF (NL .LE. 0) GO TO 600\r\n      IF (NL .GE. BUF1) CALL MESAGE (-8,0,SUBR)\r\n      CALL SUREAD (IZ(1),NL,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      N  = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 1200\r\n      IP = 1\r\n      IF (RFNO .EQ. 8) IP = 2\r\n      IF (RFNO .EQ. 8) ITYPP = 3\r\n      IFACT = NL + 1\r\n      NFACT = NL + NL*IP\r\n      ICOL  = NFACT + 1\r\n      NCOL  = NFACT + IP*NROWP\r\n      IF (NCOL .GE. BUF1) CALL MESAGE (-8,0,SUBR)\r\nC\r\n      DO 230 I = 1,NST\r\n      DO 210 J = ICOL,NCOL\r\n      Z(J) = 0.0\r\n  210 CONTINUE\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 1200\r\n      CALL SUREAD (Z(IFACT),NL*IP,N,RC)\r\n      IF (RC .NE. 1) GO TO 1100\r\n      NROW = IFACT - IP\r\n      NRS  = ICOL  - IP\r\n      DO 220 J = 1,NL\r\n      NROW = NROW + IP\r\n      NR   = NRS  + IZ(J)*IP\r\n      Z(NR)= Z(NROW)\r\n      IF (IP .EQ. 2) Z(NR+1) = Z(NROW+1)\r\n  220 CONTINUE\r\n      CALL PACK (Z(ICOL),AMAT,FMX)\r\n  230 CONTINUE\r\n      CALL CLOSE (AMAT,REW)\r\n      CALL WRTTRL (FMX)\r\nC\r\nC     OUT = LOADS*FACTORS\r\nC\r\n  500 FMX(1) = AMAT\r\n      CALL RDTRL (FMX)\r\n      CMX(1) = 0\r\n      CALL MAKMCB (SLMX,OUT,PMX(3),2,TYPE)\r\n      SCR = SCR3\r\n      CALL MPYAD (Z,Z,Z)\r\n      CALL WRTTRL (SLMX)\r\n      GO TO 700\r\nC\r\nC     NO SCALAR LOADS\r\nC\r\n  600 OUT = 0\r\n      CALL CLOSE (AMAT,REW)\r\n  700 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1000 CALL SMSG (RC-2,ITM,NAME)\r\n      GO TO 600\r\n 1100 CALL SMSG (RC+4,ITM,NAME)\r\n      GO TO 600\r\n 1200 CALL SMSG (7,ITM,NAME)\r\n      GO TO 600\r\n      END\r\n"
  },
  {
    "path": "mis/rcovss.f",
    "content": "      SUBROUTINE RCOVSS\r\nC\r\nC     THIS ROUTINE GENERATES THE STATIC SOLUTION ITEM FOR RIGID FORMATS\r\nC     1 AND 2\r\nC\r\n      INTEGER         DRY        ,STEP       ,FSS        ,RFNO       ,\r\n     1                SYSBUF     ,IZ(5)      ,RD         ,RDREW      ,\r\n     2                WRT        ,WRTREW     ,REW        ,EOFNRW     ,\r\n     3                LOD(4)     ,SOLN       ,EQSS       ,LOADC(2)   ,\r\n     4                SRD        ,SWRT       ,EOG        ,EOI        ,\r\n     5                CASESS     ,GEOM4      ,SCR1       ,RC         ,\r\n     6                BUF1       ,BUF2       ,BUF3       ,CC(2)      ,\r\n     7                FILE       ,NAME(2)    ,CASECC(2)\r\n      REAL            CLOD(4)\r\n      CHARACTER       UFM*23     ,UWM*25\r\n      COMMON /XMSSG / UFM        ,UWM\r\n      COMMON /BLANK / DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/ ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                SOF3\r\n      COMMON /RCOVCM/ MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/ SYSBUF     ,NOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /NAMES / RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                REW        ,NOREW      ,EOFNRW\r\n      EQUIVALENCE     (Z(1),IZ(1)), (LOD(1),CLOD(1))\r\n      DATA    NAME  / 4HRCOV,4HSS   /\r\n      DATA    SOLN  , EQSS, LODS / 4HSOLN,4HEQSS,4HLODS /\r\n      DATA    CASESS, GEOM4,SCR1 / 101,102,301 /\r\n      DATA    LOADC / 500  ,5    /\r\n      DATA    SRD   , SWRT, EOG,EOI / 1,2,2,3  /\r\n      DATA    CASECC/ 4HCASE,4HCC   /\r\nC\r\nC     CREATE SOLN FOR RIGID FORMAT 1 OR 2\r\nC\r\nC     GET NUMBER OF BASIC SUBSTRUCTURES (NS) FROM EQSS AND CREATE\r\nC     GROUP 0 OF SOLN AT TOP OF OPEN CORE\r\nC\r\n      CALL SFETCH (FSS,EQSS,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 110\r\n      CALL SMSG (RC-2,EQSS,FSS)\r\n      GO TO 440\r\n  110 CALL SUREAD (Z,2,NWDS,RC)\r\n      CALL SUREAD (NS,1,NWDS,RC)\r\n      IF (LCORE .LT. 3*NS+5) GO TO 9008\r\n      CALL SUREAD (Z,1,NWDS,RC)\r\n      IZ(1) = FSS(1)\r\n      IZ(2) = FSS(2)\r\n      IZ(3) = RFNO\r\n      IZ(4) = NS\r\nC\r\nC     GET SUBSTRUCTURE NAMES FROM EQSS\r\nC\r\n      DO 120 I = 1,NS\r\n      CALL SUREAD (Z(3*I+3),2,NWDS,RC)\r\n  120 CONTINUE\r\nC\r\nC     COUNT NUMBER OF SUBCASES (NC) ON CASECC\r\nC\r\n      CALL GOPEN (CASESS,Z(BUF2),RDREW)\r\n      NSKIP = 1\r\n  130 CALL FREAD (CASESS,CC,2,1)\r\n      NSKIP = NSKIP + 1\r\n      IF (CC(1) .NE. CASECC(1)) GO TO 130\r\n      IF (CC(2) .NE. CASECC(2)) GO TO 130\r\n      NC = 0\r\n  140 CALL FWDREC (*150,CASESS)\r\n      NC = NC + 1\r\n      GO TO 140\r\n  150 CALL REWIND (CASESS)\r\n      IZ(5) = NC\r\nC\r\nC     GET NUMBER OF LOAD VECTORS FOR EACH SUBSTRUCTURE FROM LODS\r\nC\r\n      CALL SFETCH (FSS,LODS,SRD,RC)\r\n      IF (RC .EQ. 1) GO TO 160\r\n      CALL SMSG (RC-2,LODS,FSS)\r\n      GO TO 9200\r\n  160 J = 1\r\n      CALL SJUMP (J)\r\n      DO 170 I = 1,NS\r\n      CALL SUREAD (Z(3*I+5),1,NWDS,RC)\r\n  170 CALL SJUMP (J)\r\nC\r\nC     SOLN GROUP 0 COMPLETE.  WRITE IT ON SCR1\r\nC\r\n      J = 3\r\n      CALL GOPEN (SCR1,Z(BUF3),WRTREW)\r\n      CALL WRITE (SCR1,Z,3*NS+5,1)\r\nC\r\nC     COMPRESS SUBSTRUCTURE NAMES AT TOP OF OPEN CORE\r\nC\r\n      DO 180 I = 1,NS\r\n      IZ(2*I-1) = IZ(3*I+3)\r\n  180 IZ(2*I  ) = IZ(3*I+4)\r\nC\r\nC     PREPARE TO LOOP OVER ALL SUBCASES\r\nC\r\n      ICASE = 2*NS + 1\r\n      ILODS = ICASE + 166\r\n      IF (ILODS .GT. LCORE) GO TO 9008\r\n      LODSIN= 0\r\n      NLODS = ILODS - 1\r\n      FILE  = CASESS\r\n      DO 190 I = 1,NSKIP\r\n  190 CALL FWDREC (*9002,CASESS)\r\n      NOLDC = 1\r\n      CALL PRELOC (*195,Z(BUF1),GEOM4)\r\n      CALL LOCATE (*195,Z(BUF1),LOADC,I)\r\n      NOLDC = 0\r\nC\r\nC     BEGIN SUBCASE LOOP.  FOR EACH SUBCASE, BUILD ONE GROUP OF SOLN\r\nC\r\n  195 DO 390 ISC = 1,NC\r\n      CALL FREAD (CASESS,Z(ICASE),166,0)\r\n      NLDS = 0\r\n      IF (IZ(ICASE+15) .NE. 0) GO TO 310\r\n      FILE = CASESS\r\n      CALL FWDREC (*9002,CASESS)\r\n      FILE = GEOM4\r\nC\r\nC     PROCESS REGULAR SUBCASE.  IF LODS ITEM NOT IN CORE, GET IT.\r\nC\r\n      IF (IZ(ICASE+3) .EQ. 0) GO TO 300\r\n      IF (NOLDC  .EQ. 1) GO TO 300\r\n      IF (LODSIN .EQ. 1) GO TO 205\r\n      CALL SFETCH (FSS,LODS,SRD,RC)\r\n      I = 1\r\n      CALL SJUMP (I)\r\n      I = ILODS\r\n      DO 200 J = 1,NS\r\n      CALL SUREAD (Z(I),1,NWDS,RC)\r\n      NLODS = I+IZ(I)\r\n      IF (NLODS .GT. LCORE) GO TO 9008\r\n      CALL SUREAD (Z(I+1),-1,NWDS,RC)\r\n      I = NLODS + 1\r\n  200 CONTINUE\r\n      LODSIN = 1\r\nC\r\nC     LODS ITEM IN CORE.  FIND MATCH ON LOADC CARD WITH LOAD SET ID\r\nC     FROM CASECC\r\nC\r\n  205 JSOLN = NLODS + 2\r\n  210 CALL READ (*9002,*300,GEOM4,LOD,2,0,NWDS)\r\n      IF (LOD(1) .EQ. IZ(ICASE+3)) GO TO 230\r\n  220 CALL FREAD (GEOM4,LOD,4,0)\r\n      IF (LOD(4) .EQ. -1) GO TO 210\r\n      GO TO 220\r\nC\r\nC     FOUND MATCH ON LOADC CARD\r\nC\r\n  230 SFAC = CLOD(2)\r\nC\r\nC     LOOP OVER BASIC SUBSTRUCTURES ON THE LOADC CARD\r\nC\r\n  240 CALL FREAD (GEOM4,LOD,4,0)\r\n      IF (LOD(4)  .EQ.    -1) GO TO 290\r\n      IF (JSOLN+1 .GT. LCORE) GO TO 9008\r\nC\r\nC     FIND BASIC SUBSTRUCTURE NUMBER BY MATCHING ITS NAME WITH THOSE\r\nC     FROM EQSS.  THEN DETERMINE LOAD VECTOR NUMBER BY MATCHING THE\r\nC     BASIC SUBSTRUCTURE LOAD SET ID WITH THOSE IN LODS DATA IN CORE.\r\nC\r\n      DO 245 I = 1,NS\r\n      IF (LOD(1) .NE. IZ(2*I-1)) GO TO 245\r\n      K = I\r\n      IF (LOD(2) .EQ. IZ(2*I)) GO TO 250\r\n  245 CONTINUE\r\n      WRITE (NOUT,6315) UWM,LOD(1),LOD(2),LOD(3),FSS\r\n  250 N = 0\r\n      I = ILODS\r\n      J = 1\r\n  260 IF (J .EQ. K) GO TO 265\r\n      N = N + IZ(I)\r\n      I = I + IZ(I) + 1\r\n      J = J + 1\r\n      GO TO 260\r\n  265 J = IZ(I)\r\n      DO 270 K = 1,J\r\n      N = N + 1\r\n      IF (IZ(I+K) .EQ. LOD(3)) GO TO 280\r\n  270 CONTINUE\r\n      WRITE (NOUT,6316) UWM,LOD(3),LOD(1),LOD(2),FSS\r\nC\r\nC     BUILD SOLN GROUP IN OPEN CORE FOLLOWING LODS DATA\r\nC\r\n  280 IZ(JSOLN ) = N\r\n      Z(JSOLN+1) = SFAC*CLOD(4)\r\n      JSOLN = JSOLN + 2\r\n      NLDS  = NLDS  + 1\r\n      GO TO 240\r\n  290 IZ(NLODS+1) = NLDS\r\n      JSOLN = NLODS + 1\r\n      GO TO 385\r\nC\r\nC     NO LOADS FOR THIS SUBCASE\r\nC\r\n  300 NLDS = 0\r\n      GO TO 290\r\nC\r\nC     PROCESS SYMCOM OR SUBCOM SUBCASE\r\nC\r\nC     READ SYMSEQ OR SUBSEQ INTO OPEN CORE AT ISEQ\r\nC\r\n  310 LCC   = IZ(ICASE+165)\r\n      LSKIP = 167 - LCC\r\n      CALL FREAD (CASESS,0,LSKIP,0)\r\n      CALL FREAD (CASESS,LSEM,1,0)\r\n  320 IF (LSEM+NLODS .LT. LCORE) GO TO 340\r\n      IF (LODSIN .EQ. 0) GO TO 9008\r\nC\r\nC     SHORT OF CORE.  WIPE OUT LODS DATA AND RE-USE SPACE\r\nC\r\n  330 LODSIN = 0\r\n      NLODS  = ILODS - 1\r\n      GO TO 320\r\n  340 ISEQ = NLODS + 1\r\n      CALL FREAD (CASESS,Z(ISEQ),LSEM,1)\r\nC\r\nC     READ THE PREVIOUS LSEM GROUPS OF SOLN INTO OPEN CORE FOLLOWING SEQ\r\nC\r\n      JSOLN = ISEQ + LSEM\r\n      K = JSOLN + 1\r\n      CALL CLOSE (SCR1,EOFNRW)\r\n      FILE = SCR1\r\n      CALL OPEN (*9001,SCR1,Z(BUF3),RD)\r\n      NREC = 1\r\n      NLDS = 0\r\n      DO 380 I = 1,LSEM\r\n  342 DO 344 J = 1,NREC\r\n  344 CALL BCKREC (SCR1)\r\n      CALL FREAD (SCR1,N,1,0)\r\n      NREC = 2\r\n      IF (N .LT. 0) GO TO 342\r\n      IF (K+2*N-1 .LT. LCORE) GO TO 360\r\n      IF (LODSIN .EQ. 0) GO TO 9008\r\nC\r\nC     SHORT OF CORE.  REPOSITION CASESS, WIPE OUT LODS DATA, AND TRY\r\nC     AGAIN\r\nC\r\n      CALL BCKREC (CASESS)\r\n      CALL FREAD (CASESS,0,-166,0)\r\n      GO TO 330\r\n  360 CALL FREAD (SCR1,Z(K),2*N,1)\r\nC\r\nC     SCALE LOAD FACTORS BY SYMSEQ OR SUBSEQ FACTORS\r\nC\r\n      DO 370 J = 1,N\r\n  370 Z(K+2*J-1) = Z(ISEQ+LSEM-I)*Z(K+2*J-1)\r\n      K = K + 2*N\r\n      NLDS = NLDS + N\r\n  380 CONTINUE\r\n      IZ(JSOLN) = -NLDS\r\nC\r\nC     COMBINATION GROUP COMPLETE.  REPOSITION SCR1\r\nC\r\n      FILE = SCR1\r\n  381 CALL FWDREC (*382,SCR1)\r\n      GO TO 381\r\n  382 CALL SKPFIL (SCR1,-1)\r\n      CALL CLOSE (SCR1,NOREW)\r\n      CALL OPEN (*9001,SCR1,Z(BUF3),WRT)\r\nC\r\nC     GROUP COMPLETE IN CORE.  SORT ON LOAD VECTOR NUMBERS\r\nC\r\n  385 CALL SORT (0,0,2,1,Z(JSOLN+1),2*NLDS)\r\nC\r\nC     WRITE GROUP ON SCR1 AND POSITION GEOM4 TO BEGINNING OF LOADC CARDS\r\nC\r\n      CALL WRITE (SCR1,Z(JSOLN),2*NLDS+1,1)\r\n      IF (NOLDC .EQ. 1) GO TO 390\r\n      CALL BCKREC (GEOM4)\r\n      CALL FREAD (GEOM4,0,-3,0)\r\nC\r\nC     END OF LOOP OVER SUBCASES\r\nC\r\n  390 CONTINUE\r\n      CALL CLOSE (CASESS,REW)\r\n      CALL CLOSE (GEOM4,REW)\r\n      CALL CLOSE (SCR1,REW)\r\nC\r\nC     COPY SOLN FROM SCR1 TO SOF\r\nC\r\n      CALL GOPEN (SCR1,Z(BUF1),RDREW)\r\n      RC = 3\r\n      CALL SFETCH (FSS,SOLN,SWRT,RC)\r\n  392 CALL READ (*396,*394,SCR1,Z,LCORE,1,NWDS)\r\n      GO TO 9008\r\n  394 CALL SUWRT (Z,NWDS,EOG)\r\n      GO TO 392\r\n  396 CALL CLOSE (SCR1,REW)\r\nC\r\nC     FINISH\r\nC\r\n      CALL SUWRT (0,0,EOI)\r\n  440 CONTINUE\r\n      RETURN\r\nC\r\nC     DIAGNOSTICS\r\nC\r\n 6315 FORMAT (A25,' 6315, RCOVR MODULE IS UNABLE TO FIND SUBSTRUCTURE ',\r\n     1       2A4,' AMONG THOSE ON EQSS.' /32X,'LOAD SET',I9,\r\n     2       ' FOR THAT SUBSTRUCTURE WILL BE IGNORED IN CREATING', /32X,\r\n     3       'THE SOLN ITEM FOR FINAL SOLUTION STRUCTURE ',2A4)\r\n 6316 FORMAT (A25,' 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET',I9,\r\n     1       ' FOR SUBSTRUCTURE ',2A4, /32X,'AMONG THOSE ON LODS.  ',\r\n     2       'IT WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL',\r\n     3       /32X,'SOLUTION STRUCTURE ',2A4)\r\nC\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9008 N = 8\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 CALL SOFCLS\r\n      IOPT = -1\r\n      CALL CLOSE (CASESS,REW)\r\n      CALL CLOSE (GEOM4,REW)\r\n      CALL CLOSE (SCR1,REW)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovui.f",
    "content": "      SUBROUTINE RCOVUI (UB,LASTSS,MODAL)\r\nC\r\nC     THIS ROUTINE CALCULATES THE IMPROVED LOWER LEVEL DISPLACEMENTS\r\nC     ON A REDUCED SUBSTRUCTURE WHICH INCLUDE INERTIA AND DAMPING\r\nC     EFFECTS\r\nC\r\n      LOGICAL          REQF       ,MODAL\r\n      INTEGER          UB         ,SOF1       ,SOF2       ,SOF3      ,\r\n     1                 BUF1       ,BUF2       ,SCR2       ,SCR3      ,\r\n     2                 SCR4       ,SCR5       ,SCR6       ,SCR7      ,\r\n     3                 SCR8       ,SCR9       ,MPYZ       ,TFLAG     ,\r\n     4                 SIGNAB     ,HORG       ,BMTX       ,UPRT      ,\r\n     5                 SIGNC      ,SCRM       ,Z          ,RC        ,\r\n     6                 DRY        ,FSS        ,RFNO       ,RSS       ,\r\n     7                 UA         ,BUF4       ,BGG        ,PID       ,\r\n     8                 UAO        ,RULE       ,TYPA       ,TYPB      ,\r\n     9                 BUF3       ,UPART      ,LASTSS(2)  ,GIMS      ,\r\n     O                 DUA        ,UAD        ,TYPIN      ,TYPOT     ,\r\n     1                 TYPC       ,NAME(2)\r\n      REAL             RZ(1)\r\n      DOUBLE PRECISION DZ(1)\r\n      COMMON /BLANK /  DRY        ,LOOP       ,STEP       ,FSS(2)    ,\r\n     1                 RFNO       ,NEIGV      ,LUI        ,UINMS(2,5),\r\n     2                 NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/  ICORE      ,LCORE      ,BUF1       ,BUF2      ,\r\n     1                 BUF3       ,BUF4       ,SOF1       ,SOF2      ,\r\n     2                 SOF3\r\n      COMMON /RCOVCM/  MRECVR     ,UA         ,PA         ,QA        ,\r\n     1                 IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO    ,\r\n     2                 RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /MPYADX/  MCBA(7)    ,MCBB(7)    ,MCBC(7)    ,MCBD(7)   ,\r\n     1                 MPYZ       ,TFLAG      ,SIGNAB     ,SIGNC     ,\r\n     2                 MPREC      ,SCRM\r\n      COMMON /NAMES /  RD         ,RDREW      ,WRT        ,WRTREW    ,\r\n     1                 REW        ,NOREW      ,EOFNRW     ,RSP       ,\r\n     2                 RDP        ,CSP        ,CDP        ,SQUARE    ,\r\n     3                 RECT       ,DIAG       ,UPPER      ,LOWER     ,\r\n     4                 SYM\r\n      COMMON /PARMEG/  MCB(7)     ,MCB11(7)   ,MCB21(7)   ,MCB12(7)  ,\r\n     1                 MCB22(7)   ,MRGZ       ,RULE\r\n      COMMON /SADDX /  NOMAT      ,LCOR       ,MCBAA(7)   ,TYPA      ,\r\n     1                 ALPHA      ,ALP(3)     ,MCBBB(7)   ,TYPB      ,\r\n     2                 BETA       ,BET(3)     ,MCBCC(7)   ,TYPC      ,\r\n     3                 GAMA       ,GAM(3)     ,DUM(24)    ,MCBXX(7)\r\n      COMMON /PACKX /  TYPIN      ,TYPOT      ,IRO        ,NRO       ,\r\n     1                 INCRP\r\n      EQUIVALENCE      (DZ(1),RZ(1),Z(1))\r\n      DATA    SCR2  ,  SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 /\r\n     1        302   ,  303 ,304 ,305 ,306 ,307 ,308 ,309  /\r\n      DATA    HORG  ,  MMTX,BMTX,UPRT /  4HHORG,4HMMTX,4HBMTX,4HUPRT /\r\n      DATA    K4MX  /  4HK4MX/,  K4GG / 110  /\r\n      DATA    GIMS  ,  NHPDAT/ 4HGIMS,4HPDAT /\r\n      DATA    MGG   ,  BGG   / 104,109/\r\n      DATA    NAME  / 4 HRCOV, 4HUI   /\r\nC\r\nC     INITILIZE\r\nC\r\n      LCOREZ = KORSZ(Z) - LREQ - ICORE - 1\r\n      IDPCOR = ICORE/2 + 1\r\n      TFLAG  = 0\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      MPREC  = 0\r\n      SCRM   = 309\r\n      REQF   = .FALSE.\r\n      IF (LASTSS(1).EQ.FSS(1) .AND. LASTSS(2).EQ.FSS(2)) REQF = .TRUE.\r\nC\r\nC     GENERATE THE PARTIAL LOAD VECTOR USING THE NORMAL TRANSFORMATION\r\nC\r\nC     UPARTIAL = HORG*UB\r\nC\r\n      ITEM = HORG\r\n      CALL MTRXI (SCR2,LASTSS,HORG,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\nC\r\n      MCBA(1) = SCR2\r\n      CALL RDTRL (MCBA)\r\n      MCBB(1) = UB\r\n      CALL RDTRL (MCBB)\r\n      MCBC(1) = 0\r\n      UPART   = SCR5\r\n      CALL MAKMCB (MCBD,UPART,MCBA(3),RECT,MCBB(5))\r\n      MPYZ    = LCOREZ\r\n      CALL SOFCLS\r\n      CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (MCBD)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     DETERMINE THE NUMBER OF OMITTED POINTS\r\nC\r\n      NROWO = MCBA(3) - MCBA(2)\r\n      CALL SOFTRL (LASTSS,GIMS,MCBA)\r\n      IF (MCBA(1) .EQ. 1) NROWO = MCBA(3)\r\nC\r\nC     GENERATE THE VELOCITIES AND ACCELERATIONS\r\nC\r\n      LCORE = BUF4 - ICORE - 1\r\n      CALL RCOVVA (UPART,0,0,0,SCR7,SCR8,LASTSS,DZ(IDPCOR),DZ(IDPCOR),\r\n     1             DZ(IDPCOR))\r\n      IF (UPART .LE. 0) GO TO 9000\r\nC\r\nC     CALCULATE THE INERTIAL AND DAMPING LOADS\r\nC\r\nC     PID = -M*A - B*V\r\nC\r\nC     CALCULATE THE INERTAIL LOADS\r\nC\r\n      PID = 0\r\n      IF (.NOT.REQF) GO TO 100\r\n      MCBA(1) = MGG\r\n      IF (MCBA(1) .GT. 0) GO TO 110\r\n  100 CALL MTRXI (SCR2,LASTSS,MMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 200\r\n      MCBA(1) = SCR2\r\n      CALL RDTRL (MCBA)\r\n  110 MCBB(1) = SCR8\r\n      CALL RDTRL (MCBB)\r\n      MCBC(1) = 0\r\n      CALL MAKMCB (MCBD,SCR6,MCBB(3),RECT,MCBB(5))\r\n      SIGNAB = -1\r\n      CALL SOFCLS\r\nC\r\n      CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\nC\r\n      DO 120 I = 1,7\r\n  120 MCBC(I) = MCBD(I)\r\n      PID = SCR6\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     CALCULATE THE DAMPING LOADS\r\nC\r\n  200 IF (RFNO .EQ. 3) GO TO 300\r\n      IF (.NOT.REQF  ) GO TO 201\r\n      MCBA(1) = K4GG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 202\r\n  201 CALL MTRXI (SCR2,LASTSS,K4MX,0,RC)\r\n      IF (RC .NE. 1) GO TO 209\r\n      MCBA(1) = SCR2\r\n      CALL RDTRL (MCBA)\r\n  202 MCBB(1) = SCR7\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR8,MCBB(3),RECT,MCBB(5))\r\n      SIGNAB = -1\r\n      CALL SOFCLS\r\n      CALL MPYAD (DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\n      PID = SCR8\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      DO 203 I = 1,7\r\n  203 MCBC(I) = MCBD(I)\r\nC\r\n  209 IF (.NOT.REQF) GO TO 210\r\n      MCBA(1) = BGG\r\n      CALL RDTRL (MCBA)\r\n      IF (MCBA(1) .GT. 0) GO TO 220\r\n  210 CALL MTRXI (SCR2,LASTSS,BMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 300\r\n      MCBA(1) = SCR2\r\n      CALL RDTRL (MCBA)\r\n  220 MCBB(1) = SCR7\r\n      CALL RDTRL (MCBB)\r\n      CALL MAKMCB (MCBD,SCR6,MCBB(3),RECT,MCBB(5))\r\n      SIGNAB = -1\r\n      CALL SOFCLS\r\n      CALL MPYAD(DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\n      PID = SCR6\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     PARTITION THE INERTIA AND DAMPING LOADS TO THE OMIT SET\r\nC\r\nC     GET THE PARTITIONING VECTOR FROM THE SOF\r\nC\r\n  300 IF (PID .EQ. 0) GO TO 400\r\n      ITEM = UPRT\r\n      CALL MTRXI (SCR2,LASTSS,UPRT,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\n      RULE = 0\r\n      MRGZ = LCOREZ - 14\r\n      IDP  = (ICORE+14)/2 + 1\r\n      DO 310 I = 1,7\r\n  310 MCB(I) = MCBD(I)\r\n      PID  = SCR4\r\n      CALL MAKMCB (MCB11,PID,NROWO,RECT,MCBD(5))\r\n      MCB11(2) = MCBD(2)\r\n      MCB12(1) = 0\r\n      MCB21(1) = 0\r\n      MCB22(1) = 0\r\nC\r\nC     SET UP A NULL ROW PARTITION VECTOR\r\nC\r\n      Z(ICORE) = SCR2\r\n      CALL RDTRL (Z(ICORE))\r\n      CALL MAKMCB (Z(ICORE+7),0,MCB(2),RECT,RSP)\r\n      Z(ICORE+8) = 1\r\n      CALL SOFCLS\r\n      CALL PARTN (Z(ICORE+7),Z(ICORE),DZ(IDP))\r\n      CALL WRTTRL (MCB11)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     PERFORM THE FBS TO GET THE LOADS ON THE OMMITTED POINTS.  WE\r\nC     WILL ALSO ADD IN THE EFFECTS OF THE DAMPING AND INERTIAL LOADS\r\nC\r\n  400 CALL RCOVUO (PID,UAO,LASTSS)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      IF (IOPT .LT. 0) GO TO 9000\r\nC\r\nC     IF RECOVERING A MODAL REDUCED SUBSTRUCTURE, CALCULATE\r\nC     THE MODAL CORRECTION TO THE U PARTIAL\r\nC\r\n      DUA = 0\r\n      IF (.NOT.MODAL) GO TO 900\r\nC\r\nC     IF RF-9, SPLIT THE DISPLACEMENTS FROM THE TOTAL VECTOR\r\nC\r\n      UAD = UPART\r\n      IF (RFNO .NE. 9) GO TO 500\r\n      UAD = SCR9\r\n      CALL RCOVVA (UPART,1,0,UAD,0,0,LASTSS,DZ(IDPCOR),DZ(IDPCOR),\r\n     1             DZ(IDPCOR))\r\nC\r\nC     PARTITION THE PARTIAL DISPLACEMENTS TO THE OMITTED AND\r\nC     BOUNDARY SIZES\r\nC\r\n  500 ITEM = UPRT\r\n      CALL MTRXI (SCR2,LASTSS,UPRT,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\n      RULE = 0\r\n      MRGZ = LCOREZ - 14\r\n      IDP  = (ICORE + 14)/2 + 1\r\n      MCB(1) = UAD\r\n      CALL RDTRL (MCB)\r\n      CALL MAKMCB (MCB11,SCR3,NROWO,RECT,MCB(5))\r\n      CALL MAKMCB (MCB21,SCR4,MCB(3)-NROWO,RECT,MCB(5))\r\n      MCB11(2) = MCB(2)\r\n      MCB21(2) = MCB(2)\r\n      MCB12(1) = 0\r\n      MCB22(1) = 0\r\nC\r\n      Z(ICORE) = SCR2\r\n      CALL RDTRL (Z(ICORE))\r\n      CALL MAKMCB (Z(ICORE+7),0,MCB(2),RECT,RSP)\r\n      Z(ICORE+8) = 1\r\n      CALL SOFCLS\r\nC\r\n      CALL BUG (NHPDAT,500,MCB(1),37)\r\n      CALL PARTN (Z(ICORE+7),Z(ICORE),DZ(IDP))\r\n      CALL WRTTRL (MCB11)\r\n      CALL WRTTRL (MCB21)\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\nC\r\nC     CALCULATE THE CORRECTION TERMS\r\nC\r\nC     DUO = GI*UB - UO\r\nC\r\n      ITEM = GIMS\r\n      CALL MTRXI (SCR6,LASTSS,GIMS,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\n      MCBA(1) = SCR6\r\n      CALL RDTRL (MCBA)\r\n      DO 520 I = 1,7\r\n      MCBB(I) = MCB21(I)\r\n      MCBC(I) = MCB11(I)\r\n  520 CONTINUE\r\n      CALL MAKMCB (MCBD,SCR9,MCBA(3),RECT,MCBB(5))\r\n      SIGNAB = 1\r\n      SIGNC  =-1\r\n      TFLAG  = 0\r\n      SCRM   = 308\r\n      MPREC  = 0\r\n      CALL SOFCLS\r\n      MPYZ   = MRGZ\r\n      CALL MPYAD (DZ(IDP),DZ(IDP),DZ(IDP))\r\n      CALL WRTTRL (MCBD)\r\nC\r\nC     MERGE DUO TO -A- SIZE\r\nC\r\n      DO 540 I = 1,7\r\n  540 MCB11(I) = MCBD(I)\r\n      MCB21(1) = 0\r\n      DUA = SCR4\r\n      CALL MAKMCB (MCB,DUA,Z(ICORE+2),RECT,MCB11(5))\r\n      MCB(2) = MCBD(2)\r\n      IF (RFNO .EQ. 9) MCB(2) = 3*MCBD(2)\r\nC\r\nC     SET UP A NULL ROW PARTITIONING VECTOR (OR FOR RF-9)\r\nC     SET UP A VECTOR THAT WILL MERGE IN A NULL VELOCITY AND\r\nC     ACCELERATION VECTOR FOR EACH DISPLACEMENT VECTOR\r\nC\r\n      NRO = MCB(2)\r\n      CALL MAKMCB (Z(ICORE+7),SCR3,NRO,RECT,RSP)\r\n      IF (NRO+15 .GT. LCOREZ) GO TO 9008\r\n      DO 550 I = 1,NRO\r\n  550 RZ(ICORE+14+I) = 0.0\r\n      IF (RFNO .NE. 9) GO TO 570\r\n      DO 560 I = 1,NRO,3\r\n      RZ(ICORE+15+I) = 1.0\r\n  560 RZ(ICORE+16+I) = 1.0\r\n  570 CONTINUE\r\n      CALL GOPEN (SCR3,Z(BUF1),WRTREW)\r\n      TYPIN = 1\r\n      TYPOT = 1\r\n      IRO   = 1\r\n      INCRP = 1\r\n      CALL PACK (Z(ICORE+15),SCR3,Z(ICORE+7))\r\n      CALL CLOSE (SCR3,REW)\r\n      CALL WRTTRL (Z(ICORE+7))\r\n      CALL MERGE (Z(ICORE+7),Z(ICORE),DZ(IDP))\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ADD THE PARTIAL DISPLACEMENT VECTOR TO THE DISPLACEMENTS FROM\r\nC     THE OMITS, INERTIAL, DAMPING, AND MODAL CORRECTION EFFECTS\r\nC     TO GET THE FINAL DISPLACEMENT VECTOR FOR THIS SUBSTRUCTURE\r\nC\r\n  900 NOMAT = 2\r\n      IF (DUA .NE. 0) NOMAT = 3\r\n      TYPA  = 1\r\n      ALPHA = 1.0\r\n      MCBAA(1) = UPART\r\n      CALL RDTRL (MCBAA)\r\n      TYPB = 1\r\n      BETA = 1.0\r\n      MCBBB(1) = UAO\r\n      CALL RDTRL (MCBBB)\r\n      IF (DUA .EQ. 0) GO TO 910\r\n      TYPC = 1\r\n      GAMA = 1.0\r\n      MCBCC(1) = DUA\r\n      CALL RDTRL (MCBCC)\r\n  910 CALL MAKMCB (MCBXX,UA,MCBAA(3),RECT,MCBAA(5))\r\n      MCBXX(2) = MCBAA(2)\r\n      LCOR = LCOREZ\r\n      CALL SOFCLS\r\n      CALL SADD (DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (MCBXX)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n      SIGNAB = 1\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 6317 IF (RC .EQ. 2) RC = 3\r\n      CALL SMSG (RC-2,ITEM,LASTSS)\r\n 9000 IOPT = -1\r\n      RETURN\r\nC\r\n 9008 CALL MESAGE (8,0,NAME)\r\n      GO TO 9000\r\n      END\r\n"
  },
  {
    "path": "mis/rcovuo.f",
    "content": "      SUBROUTINE RCOVUO (PID,UAO,LASTSS)\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE FULL SIZE DISPLACEMENT VECTOR ON\r\nC     ANY OMITTED POINTS.  THE OPTIONAL INERTIA AND DAMPING EFFECTS\r\nC     WILL BE INCLUDED IF REQUESTED.\r\nC\r\nC     FILE USAGE IS AS FOLLOWS\r\nC\r\nC     SCR1 AND SCR5 ARE NOT USED\r\nC     SCR4 CONTAINS PID ON INPUT AND IS DESTROYED\r\nC     SCR7 CONTAINS UAO OUTPUT\r\nC     ALL OTHER SCRATCH FILES ARE USED\r\nC\r\n      INTEGER          RULE       ,PAO        ,BUF1       ,PID        ,\r\n     1                 RC         ,UAO        ,TYPIN      ,TYPOT      ,\r\n     2                 POVE       ,DRY        ,STEP       ,FSS        ,\r\n     3                 RFNO       ,UINMS      ,UA         ,LASTSS(2)  ,\r\nC    4                 SOLN       ,SRD        ,SWRT       ,SCHK       ,\r\n     5                 IZ(1)      ,RD         ,RDREW      ,WRT        ,\r\n     6                 WRTREW     ,REW        ,EOFNRW     ,RSP        ,\r\n     7                 RDP        ,CSP        ,CDP        ,SQUARE     ,\r\n     8                 RECT       ,DIAG       ,UPPER      ,LOWER      ,\r\n     9                 SYM        ,SCRA       ,SCRB       ,SDCMPZ     ,\r\n     O                 SCR4       ,NAME(2)    ,POWER      ,FILE       ,\r\n     1                 MCBPAO(7)  ,SCR3       ,UMCB       ,BMCB       ,\r\n     2                 SCRC       ,CHLSKY     ,XMCB       ,FBSZ       ,\r\n     3                 PREC       ,SIGN       ,SCR2       ,\r\n     4                 UPRT       ,SCR7       ,SCR6       ,SCR8       ,\r\n     5                 SOF1       ,SOF2       ,SOF3       ,SCR9       ,\r\n     6                 TYPA       ,TYPB\r\n      DOUBLE PRECISION DZ(1)      ,DET        ,DETI       ,MINDIA\r\n      CHARACTER        UFM*23     ,UWM*25     ,UIM*29     ,SFM*25     ,\r\n     1                 SWM*27\r\n      COMMON /XMSSG /  UFM        ,UWM        ,UIM        ,SFM        ,\r\n     1                 SWM\r\n      COMMON /BLANK /  DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                 RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                 NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/  ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                 BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                 SOF3\r\n      COMMON /RCOVCM/  MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                 IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                 RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/  SYSBUF     ,NOUT\r\n      COMMON /SADDX /  NOMAT      ,LCOR       ,MCBAA(7)   ,TYPA       ,\r\n     1                 ALPHA      ,ALP(3)     ,MCBBB(7)   ,TYPB       ,\r\n     2                 BETA       ,BET(3)     ,DUM(36)    ,MCBXX(7)\r\n      COMMON /NAMES /  RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                 REW        ,NOREW      ,EOFNRW     ,RSP        ,\r\n     2                 RDP        ,CSP        ,CDP        ,SQUARE     ,\r\n     3                 RECT       ,DIAG       ,UPPER      ,LOWER      ,\r\n     4                 SYM\r\n      COMMON /PACKX /  TYPIN      ,TYPOT      ,IRO        ,NRO        ,\r\n     1                 INCRP\r\n      COMMON /PARMEG/  MCBK(7)    ,MCBK11(7)  ,MCBK21(7)  ,MCBK12(7)  ,\r\n     1                 MCBK22(7)  ,MRGZ       ,RULE\r\n      COMMON /SFACT /  MCBA(7)    ,MCBL(7)    ,MCBLT(7)   ,SCRA       ,\r\n     1                 SCRB       ,SDCMPZ     ,DET        ,DETI       ,\r\n     2                 POWER      ,SCRC       ,MINDIA     ,CHLSKY\r\n      COMMON /FBSX  /  LMCB(7)    ,UMCB(7)    ,BMCB(7)    ,XMCB(7)    ,\r\n     1                 FBSZ       ,PREC       ,SIGN\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1))\r\n      DATA    NAME  /  4HRCOV,4HUO   /\r\n      DATA    POVE  ,  LMTX / 4HPOVE,4HLMTX /\r\n      DATA    UPRT  ,  KMTX / 4HUPRT,4HKMTX /\r\n      DATA    SCR2  ,  SCR3,SCR4,SCR6,SCR7,SCR8,SCR9 /\r\n     1        302   ,  303 ,304 ,306 ,307 ,308 ,309  /\r\nC\r\nC     SET UP COMMON BLOCKS\r\nC\r\n      LCOREZ = KORSZ(Z) - LREQ - ICORE - 1\r\n      IDPCOR = ICORE/2 + 1\r\n      RULE   = 0\r\n      MCBK21(1) = 0\r\n      MCBK12(1) = 0\r\n      MCBK22(1) = 0\r\n      SIGN   = 1\r\nC\r\nC     CALCUATE THE LOADS ON THE OMMITED POINTS\r\nC\r\n      PAO = 0\r\n      IF (RFNO .EQ. 3) GO TO 10\r\n      PAO = SCR3\r\n      CALL RCOVSL (LASTSS,POVE,0,SCR6,SCR7,SCR8,PAO,Z(ICORE),Z(ICORE),\r\n     1             SOF3-ICORE-1,.FALSE.,RFNO)\r\n      MCBPAO(1) = PAO\r\n      CALL RDTRL (MCBPAO)\r\nC\r\nC     ADD IN OPTIONAL INERTIA AND DAMPING FORCES TO THE LOADS ON THE\r\nC     OMMITED POINTS\r\nC\r\n  10  IF (PID .EQ. 0) GO TO 200\r\n      IF (PAO .EQ. 0) GO TO 120\r\n      NOMAT = 2\r\n      TYPA  = 1\r\n      ALPHA = 1.0\r\n      MCBAA(1) = PID\r\n      CALL RDTRL (MCBAA)\r\n      TYPB  = 1\r\n      BETA  = 1.0\r\n      MCBBB(1) = PAO\r\n      CALL RDTRL (MCBBB)\r\n      CALL MAKMCB (MCBXX,SCR6,MCBAA(3),RECT,MCBAA(5))\r\n      MCBXX(2) = MCBAA(2)\r\n      LCOR  = LCOREZ\r\n      CALL SOFCLS\r\n      CALL SADD (DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (MCBXX)\r\n      DO 110 I = 1,7\r\n  110 MCBPAO(I) = MCBXX(I)\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      GO TO 200\r\nC\r\nC     NO STATIC LOADS SO THE ADD IS UNECESSARY\r\nC\r\n  120 MCBPAO(1) = PID\r\n      CALL RDTRL (MCBPAO)\r\nC\r\n  200 IF (MCBPAO(1) .LE. 0) GO TO 500\r\nC\r\nC     CHECK FOR EXISTENCE OF LMTX ON THE SOF.  IF IT EXISTS\r\nC     SKIP THE PARTN AND DECOMP\r\nC\r\n      CALL SOFTRL (LASTSS,LMTX,LMCB(1))\r\n      IF (LMCB(1) .NE. 1) GO TO 395\r\nC\r\nC     BRING IN LMTX FROM SOF AND SET UP FOR FBS DIRECTLY\r\nC\r\n      CALL MTRXI (SCR2,LASTSS,LMTX,0,RC)\r\n      DO 390 I = 1,7\r\n  390 BMCB(I) = MCBPAO(I)\r\n      LMCB(1) = SCR2\r\n      CALL SOFCLS\r\n      GO TO 411\r\nC\r\nC     COMPUTE THE KOO PARTITION OF KMTX FOR LASTSS\r\nC\r\nC     COPY THE PARTITIONING VECTOR TO SCR2\r\nC\r\n  395 CALL MTRXI (SCR2,LASTSS,UPRT,0,RC)\r\n      ITEM = UPRT\r\n      IF (RC .NE. 1) GO TO 6317\r\nC\r\nC     COPY KMTX TO SCR5\r\nC\r\n      ITEM = KMTX\r\n      CALL MTRXI (SCR8,LASTSS,KMTX,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\n      MCBK(1) = SCR8\r\n      CALL RDTRL (MCBK)\r\nC\r\nC     PARTITION KMTX INTO KOO.  STORE KOO ON SCR4.\r\nC\r\n      CALL SOFCLS\r\n      IZ(ICORE) = SCR2\r\n      CALL RDTRL (IZ(ICORE))\r\n      CALL MAKMCB (MCBK11,SCR9,MCBPAO(3),SYM,MCBK(5))\r\n      MCBK11(2) = MCBPAO(3)\r\n      MRGZ = LCOREZ - 7\r\n      I    = (ICORE+7)/2 + 1\r\n      CALL PARTN (Z(ICORE),Z(ICORE),DZ(I))\r\n      CALL WRTTRL (MCBK11)\r\nC\r\nC     DECOMPOSE KOO\r\nC\r\n      DO 400 I = 1,7\r\n  400 MCBA(I) = MCBK11(I)\r\n      CALL MAKMCB (MCBL,SCR2,MCBA(3),LOWER,MCBA(5))\r\n      MCBLT(1) = SCR8\r\n      SCRA = SCR3\r\n      IF (SCRA .EQ. MCBPAO(1)) SCRA = SCR6\r\n      SCRB = SCR4\r\n      IF (SCRB .EQ. MCBPAO(1)) SCRB = SCR6\r\n      SCRC = SCR7\r\n      SDCMPZ = MRGZ\r\n      POWER  = 1\r\n      CHLSKY = 0\r\n      CALL SDCOMP (*6311,DZ(IDPCOR),DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (MCBL)\r\nC\r\nC     FORWARD AND BACKWARD SUBSTITUTION TO SOLVE FOR UAO\r\nC\r\n      DO 410 I = 1,7\r\n      LMCB(I) = MCBL(I)\r\n  410 BMCB(I) = MCBPAO(I)\r\n  411 FBSZ   = LCOREZ\r\n      MATTYP = BMCB(5)\r\n      CALL MAKMCB (XMCB,SCR8,BMCB(3),RECT,MATTYP)\r\n      PREC = 2 - (MATTYP-2*(MATTYP/2))\r\n      CALL FBS (DZ(IDPCOR),DZ(IDPCOR))\r\n      CALL WRTTRL (XMCB)\r\nC\r\nC     MERGE UAO INTO THE UA SET\r\nC\r\nC     COPY UPRT BACK TO SCR2\r\nC\r\n      CALL SOFOPN (Z(SOF1),Z(SOF2),Z(SOF3))\r\n      ITEM = UPRT\r\n      CALL MTRXI (SCR2,LASTSS,UPRT,0,RC)\r\n      IF (RC .NE. 1) GO TO 6317\r\n      CALL SOFCLS\r\n      IZ(ICORE) = SCR2\r\n      CALL RDTRL (IZ(ICORE))\r\nC\r\nC     SETUP MCB-S IN /PARMEG/\r\nC\r\n      DO 412 I = 1,7\r\n  412 MCBK11(I) = XMCB(I)\r\n      UAO = SCR7\r\n      CALL MAKMCB (MCBK,UAO,IZ(ICORE+2),RECT,MCBK11(5))\r\n      MCBK(2) = XMCB(2)\r\n      IF (RFNO .EQ. 9) MCBK(2) = 3*XMCB(2)\r\nC\r\nC     SETUP A NULL ROW PARTITIONING VECTOR OR FOR RIGID FORMAT 9 A\r\nC     VECTOR THAT WILL MERGE IN A NULL VELOCITY AND ACCELERATION\r\nC     VECTOR FOR EACH DISPLACEMENT VECTOR\r\nC\r\n      NRO = MCBK(2)\r\n      CALL MAKMCB (Z(ICORE+7),SCR6,NRO,RECT,RSP)\r\n      IF (NRO+15 .GT. LCOREZ) GO TO 9008\r\n      DO 420 I = 1,NRO\r\n  420 Z(ICORE+14+I) = 0.0\r\n      IF (RFNO .NE. 9) GO TO 440\r\n      DO 430 I = 1,NRO,3\r\n      Z(ICORE+15+I) = 1.0\r\n  430 Z(ICORE+16+I) = 1.0\r\n  440 CONTINUE\r\n      CALL GOPEN (SCR6,Z(BUF1),WRTREW)\r\n      TYPIN = 1\r\n      TYPOT = 1\r\n      IRO   = 1\r\n      INCRP = 1\r\n      CALL PACK (Z(ICORE+15),SCR6,IZ(ICORE+7))\r\n      CALL CLOSE (SCR6,REW)\r\n      CALL WRTTRL (IZ(ICORE+7))\r\nC\r\n      MRGZ = LCOREZ - 14\r\n      I    = (ICORE+14)/2 + 1\r\n      CALL MERGE (Z(ICORE+7),Z(ICORE),DZ(I))\r\n      CALL WRTTRL (MCBK)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n      RETURN\r\nC\r\nC     NO LOADS SO THE DISPLACEMENTS ARE ZERO\r\nC\r\n  500 UAO = 0\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERROR PROCESSING\r\nC\r\n 6311 WRITE  (NOUT,6312) SWM,LASTSS\r\n 6312 FORMAT (A27,' 6311, SDCOMP DECOMPOSITION FAILED ON KOO MATRIX ',\r\n     1       'FOR SUBSTRUCTURE ',2A4)\r\n      GO TO 9000\r\n 6317 IF (RC .EQ. 2) RC = 3\r\n      CALL SMSG (RC-2,ITEM,LASTSS)\r\n 9000 IOPT = -1\r\n      RETURN\r\nC\r\n 9008 N    = 8\r\n      IOPT = -1\r\n      CALL SOFCLS\r\n      CALL MESAGE (N,FILE,NAME)\r\n      CALL CLOSE (PAO,REW)\r\n      CALL CLOSE (SCR3,REW)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rcovva.f",
    "content": "      SUBROUTINE RCOVVA (IN,INTYP,OUTT,OUTU,OUTV,OUTA,SSNM,RZ,DZ,CZ)\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE VELOCITIES AND ACCELERATIONS FOR\r\nC     FOR A GIVEN DISPLACEMENT VECTOR\r\nC\r\nC     INTYP = 0   IN CONTAINS U ONLY AND V AND A ARE CALCULATED\r\nC     INTYP = 1   U CONTAINS U, V AND A SO THEY ARE SPLIT ONTO OUTU,\r\nC                 OUTV AND OUTA\r\nC     INTYP =-1   OUTU, OUTV AND OUTA ARE MERGED ONTO OUTT\r\nC\r\n      INTEGER          DRY        ,RSS        ,UA         ,NAME(2)    ,\r\n     1                 RC         ,RFNO       ,MCBU(7)    ,MCBV(7)    ,\r\n     2                 SRD        ,SOLN       ,BUF1       ,BUF2       ,\r\n     3                 BUF3       ,BUF4       ,INBLK3(15) ,OUTBLK(15) ,\r\n     4                 SYSBUF     ,OUTT       ,OUTU       ,OUTV       ,\r\n     5                 OUTA       ,MCB(7)     ,MCBA(7)    ,INBLK(15)  ,\r\n     6                 OBLK1(15)  ,OBLK2(15)  ,OBLK3(15)  ,TEMP(4)    ,\r\n     7                 FILE       ,SSNM(2)    ,INBLK1(15) ,INBLK2(15)\r\n      REAL             RZ(4)      ,FREQ       ,RSCALE     ,ISCALE\r\n      DOUBLE PRECISION DZ(1)      ,RVAL       ,IVAL\r\n      COMPLEX          CZ(2)      ,SCALE\r\n      CHARACTER        UFM*23     ,UWM*25     ,UIM*29     ,SFM*25     ,\r\n     1                 SWM*27\r\n      COMMON /XMSSG /  UFM        ,UWM        ,UIM        ,SFM        ,\r\n     1                 SWM\r\n      COMMON /BLANK /  DRY        ,LOOP       ,STEP       ,FSS(2)     ,\r\n     1                 RFNO       ,NEIGV      ,LUI        ,UINMS(2,5) ,\r\n     2                 NOSORT     ,UTHRES     ,PTHRES     ,QTHRES\r\n      COMMON /RCOVCR/  ICORE      ,LCORE      ,BUF1       ,BUF2       ,\r\n     1                 BUF3       ,BUF4       ,SOF1       ,SOF2       ,\r\n     2                 SOF3\r\n      COMMON /RCOVCM/  MRECVR     ,UA         ,PA         ,QA         ,\r\n     1                 IOPT       ,RSS(2)     ,ENERGY     ,UIMPRO     ,\r\n     2                 RANGE(2)   ,IREQ       ,LREQ       ,LBASIC\r\n      COMMON /SYSTEM/  SYSBUF     ,NOUT\r\n      COMMON /NAMES /  RD         ,RDREW      ,WRT        ,WRTREW     ,\r\n     1                 REW        ,NOREW      ,EOFNRW     ,RSP        ,\r\n     2                 RDP        ,CSP        ,CDP        ,SQUARE     ,\r\n     3                 RECT       ,DIAG       ,UPPER      ,LOWER      ,\r\n     4                 SYM\r\n      COMMON /CONDAS/  PHI        ,TWOPHI\r\n      COMMON /PACKX /  ITINP      ,ITOUTP     ,IRP        ,NRP        ,\r\n     1                 INCRP\r\n      COMMON /UNPAKX/  ITINU      ,IRU        ,NRU        ,INCRU\r\n      COMMON /TYPE  /  PR(2)      ,NWORDS(4)\r\n      EQUIVALENCE      (TEMP(1),SCALE,RSCALE) ,(TEMP(2),ISCALE)       ,\r\n     1                 (INBLK1(1),OBLK1(1))   ,(INBLK2(1),OBLK2(1))   ,\r\n     2                 (INBLK3(1),OBLK3(1))   ,(OUTBLK(1),INBLK(1))\r\n      DATA    NAME  /  4HRCOV,4HVA   /\r\n      DATA    SRD   /  1             /\r\n      DATA    SOLN  /  4HSOLN        /\r\nC\r\nC     GET DISPLACEMENT TRAILER AND DETERMINE TYPE\r\nC\r\n      IF (OUTT.NE.0 .AND. OUTU+OUTV+OUTA.NE.0 .AND. INTYP.GE.0)\r\n     1   GO TO 9007\r\nC\r\n      FILE = IN\r\n      IF (INTYP .LT. 0) FILE = OUTU\r\n      MCB(1) = FILE\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 9001\r\n      NCOL  = MCB(2)\r\n      NROW  = MCB(3)\r\n      IPREC = MCB(5)\r\n      NWORD = NWORDS(IPREC)\r\n      NWCOL = NROW*NWORD\r\nC\r\nC     SET UP PACK UNPACK COMMONS\r\nC\r\n      ITINU = IPREC\r\n      IRU   = 1\r\n      NRU   = NROW\r\n      INCRU = 1\r\n      ITINP = IPREC\r\n      ITOUTP= IPREC\r\n      IRP   = 1\r\n      NRP   = NROW\r\n      INCRP = 1\r\nC\r\nC     BRANCH ON TYPE OF DISPLACEMENTS OR RIGID FORMAT\r\nC\r\n      IF (INTYP .GT. 0) GO TO 400\r\n      IF (INTYP .LT. 0) GO TO 500\r\nC\r\n      IF (RFNO .GT. 9) GO TO 9007\r\n      GO TO (600,600,100,9007,9007,9007,9007,200,400), RFNO\r\nC\r\nC     NORMAL MODES\r\nC\r\nC     CHECK IF VECTORS ARE COMPLEX\r\nC\r\n  100 IF (IPREC .GE. 3) GO TO 200\r\nC\r\nC     REAL NORMAL MODES\r\nC\r\nC     V =  U*OMEGA\r\nC     A = -V*OMEGA\r\nC\r\n      IF (LCORE .LT. NWCOL) GO TO 6313\r\n      ITEM = SOLN\r\n      CALL SFETCH (SSNM,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6100\r\nC\r\n      CALL GOPEN (IN,RZ(BUF1),RDREW)\r\n      IF (OUTT .NE. 0) CALL GOPEN (OUTT,RZ(BUF2),WRTREW)\r\n      IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW)\r\n      IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW)\r\n      IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW)\r\n      CALL MAKMCB (MCB,OUTT,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBU,OUTU,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBV,OUTV,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBA,OUTA,NROW,RECT,IPREC)\r\nC\r\nC     LOOP THROUGH EACH COLUMN\r\nC\r\n      DO 180 I = 1,NCOL\r\nC\r\nC     GET SCALE FACTOR FOR THIS COLUMN\r\nC\r\n      CALL SUREAD (RZ,7,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6200\r\n      RSCALE = RZ(4)\r\nC\r\n      CALL UNPACK (*110,IN,RZ)\r\n      GO TO 120\r\n  110 DO 105 J = 1,NWCOL\r\n  105 RZ(J) = 0.0\r\n  120 IF (OUTT .NE. 0) CALL PACK (RZ(1),OUTT,MCB)\r\n      IF (OUTU .NE. 0) CALL PACK (RZ(1),OUTU,MCBU)\r\nC\r\n      DO 170 J = 1,2\r\n      IF (IPREC .EQ. 2) GO TO 140\r\nC\r\n      DO 130 K = 1,NROW\r\n  130 RZ(K) = RSCALE*RZ(K)\r\n      GO TO 160\r\nC\r\n  140 DO 150 K = 1,NROW\r\n  150 DZ(K) = RSCALE*DZ(K)\r\nC\r\n  160 IF (OUTT .NE. 0) CALL PACK (RZ(1),OUTT,MCB)\r\n      IF (OUTV.NE.0 .AND. J.EQ.1) CALL PACK (RZ(1),OUTV,MCBV)\r\n      IF (OUTA.NE.0 .AND. J.EQ.2) CALL PACK (RZ(1),OUTA,MCBA)\r\nC\r\n      RSCALE = -RSCALE\r\n  170 CONTINUE\r\n  180 CONTINUE\r\nC\r\nC\r\n      CALL CLOSE (IN,REW)\r\n      IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW)\r\n      IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW)\r\n      IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW)\r\n      IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW)\r\n      IF (OUTT .NE. 0) CALL WRTTRL (MCB)\r\n      IF (OUTU .NE. 0) CALL WRTTRL (MCBU)\r\n      IF (OUTV .NE. 0) CALL WRTTRL (MCBV)\r\n      IF (OUTA .NE. 0) CALL WRTTRL (MCBA)\r\n      GO TO 600\r\nC\r\nC     COMPLEX NORMAL MODES\r\nC\r\nC     V = U*POLE\r\nC     A = V*POLE\r\nC\r\nC     FREQUENCY RESPONSE\r\nC\r\nC     V = U*TWOPHI*FREQ*I\r\nC     A = V*TWOPHI*FREQ*I\r\nC\r\n  200 IF (LCORE .LT. NWCOL) GO TO 6313\r\n      ITEM = SOLN\r\n      CALL SFETCH (SSNM,SOLN,SRD,RC)\r\n      IF (RC .NE. 1) GO TO 6000\r\n      N = 1\r\n      CALL SJUMP (N)\r\n      IF (N .LT. 0) GO TO 6100\r\nC\r\n      CALL GOPEN (IN,RZ(BUF1),RDREW)\r\n      IF (OUTT .NE. 0) CALL GOPEN (OUTT,RZ(BUF2),WRTREW)\r\n      IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW)\r\n      IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW)\r\n      IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW)\r\n      CALL MAKMCB (MCB ,OUTT,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBU,OUTU,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBV,OUTV,NROW,RECT,IPREC)\r\n      CALL MAKMCB (MCBA,OUTA,NROW,RECT,IPREC)\r\nC\r\nC     LOOP THROUGH EACH COLUMN\r\nC\r\n      DO 290 I = 1,NCOL\r\nC\r\nC     GET SCALE FACTOR FOR THIS COLUMN\r\nC\r\n      IF (RFNO .EQ. 8) GO TO 204\r\n      CALL SUREAD (CZ(1),7,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6200\r\n      SCALE = CZ(2)\r\n      GO TO 206\r\n  204 CALL SUREAD (FREQ,1,NWDS,RC)\r\n      IF (RC .NE. 1) GO TO 6200\r\n      SCALE = TWOPHI*FREQ*(0.0,1.0)\r\nC\r\n  206 CALL UNPACK (*210,IN,CZ(1))\r\n      GO TO 230\r\n  210 DO 220 J = 1,NWCOL\r\n  220 RZ(J) = 0.0\r\n  230 IF (OUTT .NE. 0) CALL PACK (CZ(1),OUTT,MCB)\r\n      IF (OUTU .NE. 0) CALL PACK (CZ(1),OUTU,MCBU)\r\nC\r\n      DO 280 J = 1,2\r\n      IF (IPREC .GT. 3) GO TO 250\r\nC\r\n      DO 240 K = 1,NROW\r\n  240 CZ(K) = SCALE*CZ(K)\r\n      GO TO 270\r\nC\r\n  250 NT = NROW*2\r\n      DO 260 K = 1,NT,2\r\n      RVAL = DZ(K  )\r\n      IVAL = DZ(K+1)\r\n      DZ(K  ) = RSCALE*RVAL - ISCALE*IVAL\r\n  260 DZ(K+1) = RSCALE*IVAL + ISCALE*RVAL\r\nC\r\n  270 IF (OUTT .NE. 0) CALL PACK (CZ(1),OUTT,MCB)\r\n      IF (OUTV.NE.0 .AND. J.EQ.1) CALL PACK (CZ(1),OUTV,MCBV)\r\n      IF (OUTA.NE.0 .AND. J.EQ.2) CALL PACK (CZ(1),OUTA,MCBA)\r\nC\r\n  280 CONTINUE\r\nC\r\n  290 CONTINUE\r\nC\r\n      CALL CLOSE (IN,REW)\r\n      IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW)\r\n      IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW)\r\n      IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW)\r\n      IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW)\r\n      IF (OUTT .NE. 0) CALL WRTTRL (MCB)\r\n      IF (OUTU .NE. 0) CALL WRTTRL (MCBU)\r\n      IF (OUTV .NE. 0) CALL WRTTRL (MCBV)\r\n      IF (OUTA .NE. 0) CALL WRTTRL (MCBA)\r\n      GO TO 600\r\nC\r\nC     THE DISPLACEMENT FILE ALREADY CONTAINS THE VELOCITIES AND\r\nC     ACCELERATIONS SO WE JUST SANT TO SPLIT THEM UP\r\nC\r\n  400 IF (LCORE .LT. 0) GO TO 6313\r\n      CALL GOPEN (IN,RZ(BUF1),RDREW)\r\n      IF (OUTU .NE. 0) CALL GOPEN (OUTU,RZ(BUF2),WRTREW)\r\n      IF (OUTV .NE. 0) CALL GOPEN (OUTV,RZ(BUF3),WRTREW)\r\n      IF (OUTA .NE. 0) CALL GOPEN (OUTA,RZ(BUF4),WRTREW)\r\nC\r\n      INBLK(1) = IN\r\n      OBLK1(1) = OUTU\r\n      OBLK2(1) = OUTV\r\n      OBLK3(1) = OUTA\r\n      FILE = IN\r\n      NCOL = NCOL/3\r\nC\r\n      DO 410 I = 1,NCOL\r\n      IF (OUTU .NE. 0) CALL CPYSTR (INBLK,OBLK1,0,I)\r\n      IF (OUTU .EQ. 0) CALL FWDREC (*9002,IN)\r\n      IF (OUTV .NE. 0) CALL CPYSTR (INBLK,OBLK2,0,I)\r\n      IF (OUTV .EQ. 0) CALL FWDREC (*9002,IN)\r\n      IF (OUTA .NE. 0) CALL CPYSTR (INBLK,OBLK3,0,I)\r\n      IF (OUTA .EQ. 0) CALL FWDREC (*9002,IN)\r\n  410 CONTINUE\r\nC\r\n      CALL CLOSE (IN,REW)\r\n      IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW)\r\n      IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW)\r\n      IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW)\r\n      MCB(2) = NCOL\r\n      MCB(1) = OUTU\r\n      IF (OUTU .NE. 0) CALL WRTTRL (MCB)\r\n      MCB(1) = OUTV\r\n      IF (OUTV .NE. 0) CALL WRTTRL (MCB)\r\n      MCB(1) = OUTA\r\n      IF (OUTA .NE. 0) CALL WRTTRL (MCB)\r\n      GO TO 600\r\nC\r\nC     THE DISPLACEMENTS, VELOCITIES AND ACCLERATIONS ALREADY EXIST AND\r\nC     ARE TO BE MERGED TOGETHER\r\nC\r\n  500 IF (LCORE .LT. 0) GO TO 6313\r\n      CALL GOPEN (OUTU,RZ(BUF1),RDREW)\r\n      CALL GOPEN (OUTV,RZ(BUF2),RDREW)\r\n      CALL GOPEN (OUTA,RZ(BUF3),RDREW)\r\n      CALL GOPEN (OUTT,RZ(BUF4),WRTREW)\r\nC\r\n      INBLK1(1) = OUTU\r\n      INBLK2(1) = OUTV\r\n      INBLK3(1) = OUTA\r\n      OUTBLK(1) = OUTT\r\nC\r\n      J = 1\r\n      DO 510 I = 1,NCOL\r\n      CALL CPYSTR (INBLK1,OUTBLK,0,J)\r\n      J = J + 1\r\n      CALL CPYSTR (INBLK2,OUTBLK,0,J)\r\n      J = J + 1\r\n      CALL CPYSTR (INBLK3,OUTBLK,0,J)\r\n      J = J + 1\r\n  510 CONTINUE\r\nC\r\n      CALL CLOSE (OUTU,REW)\r\n      CALL CLOSE (OUTV,REW)\r\n      CALL CLOSE (OUTA,REW)\r\n      CALL CLOSE (OUTT,REW)\r\n      MCB(1) = OUTT\r\n      MCB(2) = NCOL*3\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     NORMAL RETURN\r\nC\r\n  600 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 6000 IF (RC .EQ. 6) GO TO 9100\r\n      CALL SMSG (RC-2,ITEM,SSNM)\r\n      GO TO 9200\r\n 6100 CALL SMSG (7,ITEM,SSNM)\r\n      GO TO 9200\r\n 6200 CALL SMSG (RC+4,ITEM,SSNM)\r\n      GO TO 9200\r\n 6313 WRITE  (NOUT,6314) SWM,RSS\r\n 6314 FORMAT (A25,' 6313, INSUFFICIENT CORE FOR RCOVR MODULE WHILE ',\r\n     1       'TRYING TO PROCESS', /34X,'PRINTOUT DATA BLOCKS FOR ',\r\n     2       'SUBSTRUCTURE ',2A4)\r\n      GO TO 9200\r\n 9001 N = 1\r\n      GO TO 9100\r\n 9002 N = 2\r\n      GO TO 9100\r\n 9007 N = 7\r\n 9100 CALL MESAGE (N,FILE,NAME)\r\n 9200 IN = 0\r\n      CALL CLOSE (IN,REW)\r\n      IF (OUTT .NE. 0) CALL CLOSE (OUTT,REW)\r\n      IF (OUTU .NE. 0) CALL CLOSE (OUTU,REW)\r\n      IF (OUTV .NE. 0) CALL CLOSE (OUTV,REW)\r\n      IF (OUTA .NE. 0) CALL CLOSE (OUTA,REW)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rdmodx.f",
    "content": "      SUBROUTINE RDMODX (FILE,MODE,WORD)\r\nC\r\nC     ENTRY POINTS - RDMODX (FILE ,MODE,WORD)\r\nC                    RDMODY (A    ,MODE,WORD)\r\nC                    RDMODE (*,*,*,MODE,WORD)\r\nC                    RDWORD (      MODE,WORD)\r\nC     RDMODX, RDMODE AND RDWORD CALLED BY PLOT, FIND, PARAM AND SETINP\r\nC     RDMODY CALLED ONLY BY PLOT\r\nC\r\nC     REVISED 10/10/92 BY G.CHAN/UNISYS\r\nC     THE ORIGINAL WAY PASSING 'FILE' AND ARRAY 'A' FROM RDMODX AND\r\nC     RDMODY ARE NOT ANSI FORTRAN77 STANDARD. THERE IS NO GUARANTY THAT\r\nC     RDMODE AND RDWORD WILL PICK THEM UP CORRECTLY. MODIFICATIONS HERE\r\nC     ARE (1) SAVE 'FILE' IN /XRDMOD/, AND (2) COMPUTE A REFERENCE\r\nC     POINTER, REFPTR, SUCH THAT ARRAY A IS ACCESSIBLE VIA ARRAY Z\r\nC\r\n      INTEGER         FILEX,CHECK1,CHECK2,BITSON,ENTRY,COMPLF,EOR,BLANK,\r\n     1                FILE,REFPTR,Z,A(1),MODE(1),WORD(2),NAME(2),NEXT(2)\r\n      COMMON /XRDMOD/ FILEX,REFPTR,CHECK1,CHECK2,BITSON,ENTRY\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    BLANK , EOR,NAME / 1H ,1000000, 4HRDMO,4HDX  /\r\nC\r\nC     -RDMODX- IS CALLED IF -MODE- IS TO BE READ FROM DATA SET -FILE-\r\nC\r\n      ENTRY  = 0\r\n      FILEX  = FILE\r\n      CHECK1 = 13579\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY RDMODY (A,MODE,WORD)\r\nC     ==========================\r\nC\r\nC     -RDMODY- IS CALLED IF -MODE- IS TO BE READ FROM THE -A- ARRAY\r\nC\r\nC     COMPUTE THE REFERENCE POINTER FROM Z(1) TO A(1), AND NEXT TIME\r\nC     WHEN A ARRAY IS USED, USE Z ARRAY WITH THE REFERENCE POINTER\r\nC\r\n      ENTRY  = 1\r\n      REFPTR = LOCFX(A(1)) - LOCFX(Z(1))\r\n      CHECK2 = 24680\r\n   10 BITSON = COMPLF(0)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY RDMODE (*,*,*,MODE,WORD)\r\nC     ==============================\r\nC\r\nC     -RDMODE- IS CALLED TO READ -MODE-\r\nC     IF MODE = -4, THE NEXT TWO WORDS ARE READ INTO -WORD-\r\nC     IF MODE IS NEGATIVE AND NOT = -4, ONLY THE NEXT ONE WORD IS READ\r\nC     INTO -WORD-\r\nC     RETURN 1 - NUMERIC MODE (-MODE- NEGATIVE)\r\nC                -MODE- = -1, -WORD- IS INTEGER\r\nC                -MODE- = -2, -WORD- IS REAL NUMBER\r\nC                -MODE- = -3, -WORD- IS ZERO ?\r\nC                -MODE- = -4, -WORD- IS D.P.REAL\r\nC     RETURN 2 - ALPHABETIC MODE (-MODE- POSITIVE)\r\nC     RETURN 3 - END OF LOGICAL CARD (RECORD TERMINATED),\r\nC                -MODE- = 1000000\r\nC\r\n      IF (ENTRY .NE. 0) GO TO 80\r\n      IF (CHECK1 .NE. 13579) CALL MESAGE (-37,0,NAME)\r\nC\r\n   20 CALL FREAD (FILEX,MODE,1,0)\r\n      IF (MODE(1)) 70,30,40\r\n   30 CALL FREAD (FILEX,0,0,1)\r\n      GO TO 20\r\n   40 IF (MODE(1) .GE. EOR) GO TO 60\r\n   50 CALL FREAD (FILEX,NEXT,2,0)\r\n      IF (NEXT(1).NE.BITSON .AND. NEXT(1).NE.BLANK) RETURN 2\r\n      MODE(1) = MODE(1) - 1\r\n      IF (MODE(1)) 20,20,50\r\n   60 CALL FREAD (FILEX,0,0,1)\r\n      RETURN 3\r\nC\r\n   70 I = 1\r\n      IF (MODE(1) .EQ. -4) I = 2\r\n      CALL FREAD (FILEX,WORD,I,0)\r\n      RETURN 1\r\nC\r\n   80 IF (CHECK2 .NE. 24680) CALL MESAGE (-37,0,NAME)\r\n      MODE(1) = Z(ENTRY+REFPTR)\r\n      ENTRY   = ENTRY + 1\r\n      IF (MODE(1)) 120,80,90\r\n   90 IF (MODE(1) .GE. EOR) GO TO 110\r\n  100 NEXT(1) = Z(ENTRY+0+REFPTR)\r\n      NEXT(2) = Z(ENTRY+1+REFPTR)\r\n      ENTRY   = ENTRY + 2\r\n      IF (NEXT(1).NE.BITSON .AND. NEXT(1).NE.BLANK) RETURN 2\r\n      MODE(1) = MODE(1) - 1\r\n      IF (MODE(1)) 80,80,100\r\n  110 ENTRY   = ENTRY + 1\r\n      RETURN 3\r\nC\r\n  120 WORD(1) = Z(ENTRY+REFPTR)\r\n      ENTRY   = ENTRY + 1\r\n      IF (MODE(1) .NE. -4) RETURN 1\r\n      WORD(2) = Z(ENTRY+REFPTR)\r\n      ENTRY   = ENTRY + 1\r\n      RETURN 1\r\nC\r\nC\r\n      ENTRY RDWORD (MODE,WORD)\r\nC     ========================\r\nC\r\nC     -RDWORD- IS CALLED TO READ TWO BCD WORDS INTO -WORD-\r\nC     NOTE - ALL DATA FIELD DELIMITERS ARE SKIPPED\r\nC\r\n      WORD(1) = NEXT(1)\r\n      WORD(2) = NEXT(2)\r\n  130 MODE(1) = MODE(1) - 1\r\n      IF (MODE(1) .LE. 0) GO TO 160\r\n      IF (ENTRY   .NE. 0) GO TO 140\r\n      IF (CHECK1  .NE. 13579) CALL MESAGE (-37,0,NAME)\r\n      CALL FREAD (FILEX,NEXT,2,0)\r\n      GO TO 150\r\nC\r\n  140 IF (CHECK2 .NE. 24680) CALL MESAGE (-37,0,NAME)\r\n      NEXT(1) = Z(ENTRY  +REFPTR)\r\n      NEXT(2) = Z(ENTRY+1+REFPTR)\r\n      ENTRY   = ENTRY + 2\r\n  150 IF (NEXT(1).EQ.BITSON .OR. NEXT(1).EQ.BLANK) GO TO 130\r\n  160 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/re2al.f",
    "content": "      SUBROUTINE RE2AL (RE,ALPH)\r\nC\r\n      EXTERNAL        LSHIFT\r\n      INTEGER         ALPH(2)\r\n      COMMON /SYSTEM/ IBUF,NOUT,DUMMY(37),NBPW\r\nC\r\n      CALL FP2A8 (*40,RE,ALPH)\r\n      IF (NBPW-60) 30,10,20\r\nC\r\nC     FOR 60- OR 64- BIT MACHINES, SAVE THE SECOND HALF OF REAL NUMBER\r\nC     IN THE SECOND ALPH WORD. THAT IS -\r\nC     THE FULL REAL NUMBER IS IN ALPH(1), ALL 8 BYTES, OR\r\nC     FIRST 4 BYTES IN ALPH(1), AND LAST 4 BYTES IN ALPH(2)\r\nC\r\n 10   ALPH(2) = LSHIFT(ALPH(1),24)\r\n      GO TO 30\r\n 20   ALPH(2) = LSHIFT(ALPH(1),32)\r\n 30   RETURN\r\nC\r\n 40   WRITE  (NOUT,50)\r\n 50   FORMAT (99X,'(IN FP2A8, CALLED FROM RE2AL)')\r\n      CALL MESAGE (-61,0,0)\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/read1.f",
    "content": "      SUBROUTINE READ1 (DM,MR,SCR1,SCR2,SCR3,PHIA,USET,NR1,LAMA,SCR4)\r\nC\r\n      INTEGER          DM,MR,IMR(7),SYSBUF,SCR1,SCR2,ISCR1(7),PHIA,\r\n     1                 SCR4,SCR3,NAM(2)\r\n      DOUBLE PRECISION DCORE(1),SI,TERM\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,KSYSTM(63)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /UNPAKX/  ITB,II,JJ,INCUR\r\n      COMMON /PACKX /  ITA1,ITB1,II1,JJ1,INCUR1\r\n      COMMON /BITPOS/  UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      EQUIVALENCE      (DCORE(1),CORE(1))\r\n      DATA    NAM   /  4HREAD,4H1    /\r\nC\r\nC     BRING MR INTO CORE\r\nC\r\n      LC = KORSZ(CORE) - SYSBUF\r\n      CALL GOPEN (MR,CORE(LC+1),0)\r\n      IMR(1) = MR\r\n      CALL RDTRL (IMR)\r\n      NR   = IMR(2)\r\n      NR1  = NR\r\n      II   = 1\r\n      JJ   = NR\r\n      INCUR= 1\r\n      ITB  = IMR(5)\r\n      NR2  = ITB*NR\r\n      IVI  = NR*NR\r\n      IPHI = IVI\r\n      IVI2 = ITB*IVI\r\n      IALPH= 2*IVI\r\n      ILOOP= 0\r\n      K    = 0\r\n      DO 20 I = 1,NR\r\n      CALL UNPACK (*12,MR,CORE(K+1))\r\n      GO TO 16\r\nC\r\nC     NULL COLUMN\r\nC\r\n   12 DO 14 J = 1,NR2\r\n      CORE(J+K) = 0.0\r\n   14 CONTINUE\r\n   16 KKK = K + IVI2\r\n      DO 10 J = 1,NR2\r\n      CORE(J+KKK) = 0.0\r\n   10 CONTINUE\r\n      IF (ITB .EQ. 1) GO TO 18\r\n      KKK = KKK/2\r\n      DCORE(KKK+I) = 1.0D0\r\n      GO TO 19\r\n   18 CORE(KKK+I) = 1.0\r\n   19 K = K + NR2\r\n   20 CONTINUE\r\n      CALL CLOSE (MR,1)\r\nC\r\nC     COMPUTE SI\r\nC\r\n      IF (ITB .NE. 2) GO TO 35\r\n   30 SI = 0.0D0\r\n      DO 50 I = 1,NR\r\n      TERM = 0.0D0\r\n      DO 40 J = 1,NR\r\n      K  = (J-1)*NR + I\r\n      KK = IVI + J\r\n   40 TERM = TERM + DCORE(K)*DCORE(KK)\r\n      K  = IVI + I\r\n      SI = SI + TERM*DCORE(K)\r\n   50 CONTINUE\r\n      IF (SI .GT. 0.0D0) GO TO 51\r\n   53 WRITE  (NOUT,52) UFM\r\n   52 FORMAT (A23,' 2200, INCONSISTENT RIGID BODY SYSTEM.')\r\n      CALL MESAGE (-61,0,NAM)\r\n   51 CONTINUE\r\n      SI = 1.0D0/DSQRT(SI)\r\nC\r\nC     CONVERT VI INTO PHI\r\nC\r\n      DO 60 I = 1,NR\r\n      K = IVI + I\r\n   60 DCORE(K) = DCORE(K) *SI\r\n      ILOOP = ILOOP + 1\r\n      IF (ILOOP .EQ. NR) GO TO 120\r\nC\r\nC     CALCULATE ALPHAJ\r\nC\r\n      DO 90 J = 1,ILOOP\r\n      K = IALPH + J\r\n      DCORE(K) = 0.0D0\r\n      DO 80 I = 1,NR\r\n      TERM = 0.0D0\r\n      DO 70 L = 1,NR\r\n      KK  = (L-1)*NR + I\r\n      KKK = IVI + NR + L\r\n   70 TERM = TERM + DCORE(KK)*DCORE(KKK)\r\n      KK = IPHI + (J-1)*NR + I\r\n   80 DCORE(K) = DCORE(K)+TERM*DCORE(KK)\r\n   90 CONTINUE\r\nC\r\nC     COMPUTE NEXT V VECTOR\r\nC\r\n      DO 110 I = 1,NR\r\n      TERM = 0.0D0\r\n      DO 100 J = 1,ILOOP\r\n      KK = IALPH + J\r\n      K  = IPHI + (J-1)*NR + I\r\n  100 TERM = TERM + DCORE(KK)*DCORE(K)\r\n      K = IVI + NR + I\r\n  110 DCORE(K) = DCORE(K) - TERM\r\n      IVI = IVI + NR\r\n      GO TO 30\r\n   35 SSI = 0.0\r\n      DO 55 I = 1,NR\r\n      STERM = 0.0\r\n      DO 45 J = 1,NR\r\n      K  = (J-1)*NR + I\r\n      KK = IVI + J\r\n   45 STERM = STERM + CORE(K)*CORE(KK)\r\n      K   = IVI + I\r\n      SSI = SSI + STERM*CORE(K)\r\n   55 CONTINUE\r\n      IF (SSI .LE. 0.0) GO TO 53\r\n      SSI = 1.0/SQRT(SSI)\r\nC\r\nC     CONVERT VI INTO PHI\r\nC\r\n      DO 65 I = 1,NR\r\n      K = IVI + I\r\n   65 CORE(K) = CORE(K)*SSI\r\n      ILOOP = ILOOP + 1\r\n      IF (ILOOP .EQ. NR) GO TO 120\r\nC\r\nC     CALCULATE ALPHAJ\r\nC\r\n      DO 95 J = 1,ILOOP\r\n      K = IALPH + J\r\n      CORE(K) = 0.0\r\n      DO 85 I = 1,NR\r\n      STERM = 0.0\r\n      DO 75 L = 1,NR\r\n      KK  = (L-1)*NR + I\r\n      KKK = IVI + NR + L\r\n   75 STERM = STERM + CORE(KK)*CORE(KKK)\r\n      KK = IPHI + (J-1)*NR + I\r\n   85 CORE(K) = CORE(K) + STERM*CORE(KK)\r\n   95 CONTINUE\r\nC\r\nC     COMPUTE NEXT V VECTOR\r\nC\r\n      DO 115 I = 1,NR\r\n      STERM = 0.0\r\n      DO 105 J = 1,ILOOP\r\n      KK = IALPH + J\r\n      K  = IPHI + (J-1)*NR + I\r\n  105 STERM = STERM + CORE(KK)*CORE(K)\r\n      K = IVI + NR + I\r\n  115 CORE(K) = CORE(K) - STERM\r\n      IVI = IVI + NR\r\n      GO TO 35\r\nC\r\nC     PACK PHIRO\r\nC\r\n  120 ITA1 = ITB\r\n      ITB1 = ITB\r\n      II1  = 1\r\n      JJ1  = NR\r\n      INCUR1 = 1\r\n      CALL GOPEN (SCR1,CORE(LC+1),1)\r\n      CALL MAKMCB (ISCR1,SCR1,NR,1,ITB)\r\n      DO 130 I = 1,NR\r\n      K = IVI2 + (I-1)*NR2\r\n  130 CALL PACK (CORE(K+1),SCR1,ISCR1)\r\n      CALL CLOSE (SCR1,1)\r\n      CALL WRTTRL (ISCR1(1))\r\nC\r\nC     COMPUTE PHILO = DM*PHIRO\r\nC\r\n      CALL SSG2B (DM,SCR1,0,SCR2,0,ITB,1,SCR4)\r\nC\r\nC     MERGE PHIRP AND PHILO TO FORM PHIA\r\nC\r\n      CALL SDR1B (SCR3,SCR2,SCR1,SCR4,UA,UL,UR,USET,0,0)\r\n      CALL GOPEN (SCR4,CORE(LC+1),0)\r\n      LC = LC - SYSBUF\r\n      CALL GOPEN (PHIA,CORE(LC+1),1)\r\n      IMR(1) = SCR4\r\n      CALL RDTRL (IMR(1))\r\n      NPROB = IMR(3)\r\n      DCORE(1) = 0.D0\r\n      JJ = NPROB\r\n      INCUR = 1\r\n      I3 = 3\r\n      DO 170 J = 1,NR\r\n      II = 0\r\n      CALL UNPACK (*150,SCR4,CORE(I3))\r\n      II1 = II\r\n      JJ1 = JJ\r\n      CALL PACK (CORE(I3),PHIA,ISCR1)\r\n      GO TO 170\r\nC\r\nC     NULL COLUMN\r\nC\r\n  150 II1 = 1\r\n      JJ1 = 1\r\n      CALL PACK (CORE,PHIA,ISCR1)\r\n  170 CONTINUE\r\n      CALL CLOSE (SCR4,1)\r\n      CALL CLOSE (PHIA,1)\r\n      LC = LC + SYSBUF\r\nC\r\nC     PUT NR ZEROS ON LAMA\r\nC\r\n      CALL GOPEN (LAMA,CORE(LC+1),1)\r\n      DCORE(1) = 0.D0\r\n      DO 180 I = 1,NR\r\n  180 CALL WRITE (LAMA,CORE,ITB,1)\r\n      CALL CLOSE (LAMA,2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/read2.f",
    "content": "      SUBROUTINE READ2 (MAA,PHIA,SCR1,NORM,IA,USET,MI,LAMA,IPOUT,SCR2,\r\n     1                  EPSI,SCR3)\r\nC\r\nC     COMPUTE MODAL MASS AND NORMALIZES VECTORS ACCORDING TO POINT,\r\nC     MASS, OR MAX.  ALSO LOOKS FOR LARGE OFF DIAGONAL TERM\r\nC\r\n      INTEGER         POINT,SYSBUF,PHIA,SCR1,IX(7),IPHIA(7),SCR2,\r\n     1                IHEAD(50),SCR3,STURM,NAM(2)\r\n      REAL            LFREQ,CORE(13)\r\n      DOUBLE PRECISION DCORE(1),DXMAX\r\n      DIMENSION       IM(7),IHEAD1(10)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /ZZZZZZ/ ICORE(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /PACKX / ITA1,ITB1,II1,JJ1,INCUR1\r\n      COMMON /UNPAKX/ ITB,II,JJ,INCUR\r\n      COMMON /OUTPUT/ HEAD(1)\r\n      COMMON /STURMX/ STURM,SHFTPT,KEEP,PTSHFT,NR\r\n      COMMON /GIVN  / GIVENS,TITLE1(100),LFREQ,TITLE2(4),NNV\r\n      EQUIVALENCE     (CONSTS(2),TPHI), (IX(2),NCOL), (IX(3),NROW),\r\n     1                (CORE(1),ICORE(1),DCORE(1)), (DXMAX,XMAX)\r\n      DATA    IHEAD1/ 21,9,8*0  /\r\n      DATA    IHEAD / 21,6,7*0,7,40*0/\r\n      DATA    MASS,   POINT     / 4HMASS,4HPOIN/\r\n      DATA    MAX   / 4HMAX     /\r\n      DATA    NAM   / 4HREAD,1H2/\r\nC\r\nC     READ2  SHOULD NORMALIZE  PHIA  ACCORDING TO NORM +METHOD\r\nC\r\n      LCORE = KORSZ(CORE)\r\nC\r\nC     DECIDE IF MI WANTED\r\nC\r\n      IMI   = 0\r\n      IX(1) = MI\r\n      CALL RDTRL (IX)\r\n      IF (IX(1) .GT. 0) GO TO 10\r\n      EPSI = 0.0\r\n      IMI  = -1\r\n      IF (NORM .EQ. MASS) NORM = MAX\r\n   10 IX(1) = PHIA\r\n      CALL RDTRL (IX)\r\n      CALL MAKMCB (IPHIA,PHIA,IX(3),IX(4),IX(5))\r\nC\r\nC     SET UP TO HANDLE IDENTITY MATRIX\r\nC\r\n      IDEN  = 0\r\n      IM(1) = MAA\r\n      CALL RDTRL (IM)\r\n      IF (IM(4) .EQ. 8) IDEN = 1\r\nC\r\nC     FIND TYPE OF NORMALIZATION\r\nC\r\n      IF (NORM .EQ. MASS) GO TO 310\r\n      IPONT = 1\r\n      IF (NORM  .EQ. POINT) GO TO 30\r\n      IF (IA.LT.1 .OR. IA.GT.NROW) GO TO 20\r\nC\r\nC     TYPE IS  MAX\r\nC\r\n   20 IPONT = 0\r\nC\r\nC     POINT\r\nC\r\n   30 ASSIGN 40 TO ICOPY\r\n      GO TO 420\r\nC\r\n   40 CONTINUE\r\nC\r\nC     PROCESS PHIA - NORMALIZE - COPY TO PHIA\r\nC\r\n      LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (SCR1,CORE(LCORE+1),0)\r\n      LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (PHIA,CORE(LCORE+1),1)\r\n      ITB   = IX(5)\r\n      JJ    = NROW\r\n      II    = 1\r\n      INCUR = 1\r\n      ITA1  = ITB\r\n      ITB1  = ITB\r\n      INCUR1= 1\r\n      DO 130 I = 1,NCOL\r\n      CALL UNPACK (*100,SCR1,CORE(3))\r\n      II1 = II\r\n      JJ1 = JJ\r\n      JJJ = 1\r\n      IF (ITB .EQ. 2) GO TO 66\r\n      DO 60 J = 1,NROW\r\n      IF (ABS(CORE(J+2)) .GT. ABS(CORE(JJJ+2))) JJJ = J\r\n   60 CONTINUE\r\n      JJJ = JJJ + 2\r\n      IF (IPONT .NE. 1) GO TO 62\r\n      JJJ = IA + 2\r\n      IF (ABS(CORE(JJJ)) .LE. 1.0E-15) GO TO 90\r\n   62 XMAX = CORE(JJJ)\r\n      DO 64 J = 1,NROW\r\n      CORE(J+2) = CORE(J+2)/XMAX\r\n   64 CONTINUE\r\n      GO TO 90\r\n   66 DO 68 J = 1,NROW\r\n      IF (DABS(DCORE(J+1)) .GT. DABS(DCORE(JJJ+1))) JJJ = J\r\n   68 CONTINUE\r\n      JJJ = JJJ + 1\r\n      IF (IPONT .NE. 1) GO TO 70\r\n      JJJ = IA + 1\r\n      IF (DABS(DCORE(JJJ)) .LE. 1.0D-15) GO TO 90\r\n   70 DXMAX = DCORE(JJJ)\r\n      DO 72 J = 1,NROW\r\n      DCORE(J+1) = DCORE(J+1)/DXMAX\r\n   72 CONTINUE\r\n   90 CALL PACK (CORE(3),PHIA,IPHIA)\r\n      GO TO 130\r\n  100 II1 = 1\r\n      JJ1 = 1\r\n      CALL PACK (CORE,PHIA,IPHIA)\r\n  130 CONTINUE\r\n      CALL CLOSE (PHIA,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     COMPUTE MODAL MASS\r\nC\r\n  140 IF (IMI  .LT. 0) GO TO 170\r\n      IF (IDEN .EQ. 0) GO TO 160\r\n      ASSIGN 150 TO ICOPY\r\n      GO TO 420\r\n  150 CALL SSG2B (PHIA,SCR1,0,MI,1,ITB,1,SCR3)\r\n      GO TO 170\r\nC\r\n  160 CALL SSG2B (MAA,PHIA,0,SCR2,0,ITB,1,SCR3)\r\n      CALL SSG2B (PHIA,SCR2,0,MI,1,ITB,1,SCR3)\r\nC\r\nC     COMPUTE GENERALIZED STIFFNESS\r\nC\r\nC\r\nC     COMPUTE FREQUENCY ETC\r\nC\r\n  170 ITB  = 1\r\n      II   = 1\r\n      JJ   = NCOL\r\n      INCUR= 1\r\n      IMSG = 0\r\n      CALL GOPEN (LAMA,CORE(LCORE+1),0)\r\n      CALL READ (*500,*172,LAMA,CORE(1),LCORE,1,NLAMA)\r\n      GO TO 520\r\nC\r\nC     NLAMA IS THE NUMBER OF EIGENVALUES FOUND   NCOL IS TH NUMBER OF\r\nC     VECTORS\r\nC\r\nC\r\nC     BRING IN THE ORDER FOUND\r\nC\r\n  172 KK = NLAMA + 2*NCOL + 8\r\nC\r\nC     KK IS THE POINTER TO THE ORDER FOUND\r\nC     L1 AND  L2 ARE COUNTERS FOR MISSING LOW FREQ. BELOW SHIFT POINTS\r\nC     STURM AND KEEP WERE SAVED IN SDCOMP, SHFTPT AND PTSHFT IN FEER\r\nC     AND INVPWR (REAL SYMMETRIC EIGENVALUE PROBLEM ONLY)\r\nC\r\n      CALL READ (*500,*171,LAMA,ICORE(KK+1),LCORE,1,IFLAG)\r\n      GO TO 520\r\n  171 CALL CLOSE (LAMA,1)\r\n      CALL GOPEN (LAMA,CORE(LCORE+1),1)\r\n      CALL WRITE (LAMA,IHEAD(1),50,0)\r\n      CALL WRITE (LAMA,HEAD(1),96,1)\r\n      LCORE = LCORE + SYSBUF\r\n      CORE(NLAMA+6) = 0.0\r\n      CORE(NLAMA+7) = 0.0\r\n      IF (IMI .LT. 0) GO TO 180\r\n      CALL GOPEN (MI,CORE(LCORE+1),0)\r\n      L1 = STURM\r\n      L2 = KEEP\r\n      SHFTPT = SHFTPT + 1.E-10\r\n      PTSHFT = PTSHFT + 1.E-10\r\n  180 DO 210 I = 1,NLAMA\r\n      ICORE(NLAMA+1) = I\r\n      L = KK + I\r\n      ICORE(NLAMA+2) = ICORE(L)\r\n      CORE(NLAMA+3)  = CORE(I)\r\n      CORE(NLAMA+4)  = SQRT(ABS(CORE(I)))\r\n      CORE(NLAMA+5)  = CORE(NLAMA+4)/TPHI\r\n      IF (CORE(I).GT.1.E-10 .AND. CORE(I).LE.SHFTPT) L1 = L1 - 1\r\n      IF (CORE(I).GT.1.E-10 .AND. CORE(I).LE.PTSHFT) L2 = L2 - 1\r\n      IF (IMI .LT.  0) GO TO 200\r\n      IF (I .GT. NCOL) GO TO 195\r\n      L = NLAMA + I + 7\r\n      K = L - 1 + I\r\n      CALL UNPACK (*195,MI,CORE(L))\r\n      CORE(NLAMA+6) = CORE(K)\r\n      CORE(NLAMA+7) = CORE(K)*CORE(NLAMA+3)\r\n      CORE(L) = CORE(K)\r\nC\r\nC     ZERO OUT GENERALIZED MASS AND GENERALIZED STIFFNESS FOR THE RIGID\r\nC     BODY MODE OF ZERO FREQUENCY\r\nC\r\nC     (G.C.  3/92\r\nC     NEXT 4 NEW LINES CAUSED DEMO T03121A TO DIE. MORE STUDY IS NEEDED)\r\nC\r\nC     IF (CORE(I) .GE. 0.0) GO TO 200\r\nC     CORE(NLAMA+3) = 0.0\r\nC     CORE(NLAMA+4) = 0.0\r\nC     CORE(NLAMA+5) = 0.0\r\n      GO TO 200\r\nC\r\nC     NO MORE VECTORS\r\nC     REPLACE STURM BY SMALLER OF L1 OR L2, IF NOT ALL LOWER MODES FOUND\r\nC     SET STRUM TO   -1 IF THERE IS NOT ENOUGH INFORMATION,\r\nC     SET STRUM TO -999 IF DIAG 37 IS REQUESTED (NOT TO PRINT MESSAGE).\r\nC\r\n  195 CORE(NLAMA+6) = 0.0\r\n      CORE(NLAMA+7) = 0.0\r\n  200 CALL WRITE (LAMA,CORE(NLAMA+1),7,0)\r\n  210 CONTINUE\r\n      IF (L1 .LT.  0) L1 = 0\r\n      IF (L2 .LT.  0) L2 = 0\r\n      IF (L1 .GT. L2) L1 = L2\r\n      IF (STURM.NE.-1 .AND. L1.GE.0) STURM = L1\r\n      IF (STURM.GT.NR .AND. NR.GT.0) STURM = STURM - NR\r\n      IF (KEEP.LE.0 .AND. PTSHFT.GT.0.) STURM = -1\r\n      CALL SSWTCH (37,J)\r\n      IF (J .EQ. 1) STURM = -999\r\n      CALL CLOSE (LAMA,1)\r\n      IF (IMI .LT. 0) GO TO 220\r\n      CALL CLOSE (MI,1)\r\n  220 IMSG  = 0\r\n      XMAX  = 0.\r\n      XMAX1 = 0.\r\n      ISTOR = 0\r\n      JSTOR = 0\r\nC\r\nC     EPSI = 0 IMPLIES TO NOT CHECK MODAL MASS TERMS\r\nC\r\n      IF (EPSI .EQ. 0.0) GO TO 270\r\n      CALL GOPEN (MI,CORE(LCORE+1),0)\r\n      DO 260 I = 1,NCOL\r\n      M    = NLAMA + I + 7\r\n      MCOL = M + NCOL\r\n      CALL UNPACK (*540,MI,CORE(MCOL))\r\n      IF (CORE(M) .EQ. 0) GO TO 260\r\n      DO 250 J = 1,NCOL\r\n      IF (I .EQ. J) GO TO 260\r\n      K  = MCOL  + J - 1\r\n      MM = NLAMA + J + 7\r\n      IF (CORE(MM) .EQ. 0.0) GO TO 250\r\n      GM = ABS(CORE(K))/SQRT(ABS(CORE(M)*CORE(MM)))\r\n      IF (GM .GT. XMAX1) GO TO 240\r\n  230 CONTINUE\r\n      IF (GM .LE. EPSI) GO TO 250\r\n      IMSG = IMSG + 1\r\n      XMAX = AMAX1(XMAX,GM)\r\n      GO TO 250\r\n  240 XMAX1 = GM\r\n      ISTOR = I\r\n      JSTOR = J\r\n      GO TO 230\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\n      CALL CLOSE (MI,1)\r\n      IF (IMSG   .NE.  0) CALL MESAGE (34,XMAX,EPSI)\r\n  270 IF (GIVENS .EQ. .0) GO TO 275\r\n      IF (NNV    .NE.  0) GO TO 275\r\n      IF (LFREQ  .GT. .0) GO TO 600\r\n  275 CALL GOPEN (IPOUT,CORE(LCORE+1),0)\r\n      CALL READ (*510,*280,IPOUT,CORE(1),LCORE,1,IFLAG)\r\n      GO TO 520\r\n  280 CALL CLOSE (IPOUT,1)\r\n      CALL GOPEN (IPOUT,CORE(LCORE+1),1)\r\n      IHEAD1(3) = ICORE(1)\r\n      CALL WRITE (IPOUT,IHEAD1,10,0)\r\n      I0 = 0\r\n      CORE (I0+ 9) = XMAX1\r\n      ICORE(I0+10) = ISTOR\r\n      ICORE(I0+11) = JSTOR\r\n      ICORE(I0+12) = IMSG\r\n      ICORE(I0+13) = STURM\r\n      CALL WRITE (IPOUT,CORE(2),40,0)\r\n      CALL WRITE (IPOUT,HEAD,96,1)\r\n      IF (ICORE(1) .NE. 1) GO TO 290\r\n      IFLAG = IFLAG - 12\r\n      IHEAD1( 3) = 3\r\n      IHEAD1(10) = 6\r\n      CALL WRITE (IPOUT,IHEAD1,50,0)\r\n      CALL WRITE (IPOUT,HEAD,96,1)\r\n      IF (IFLAG .EQ. 0) GO TO 290\r\n      CALL WRITE (IPOUT,CORE(13),IFLAG,0)\r\n  290 CALL CLOSE (IPOUT,1)\r\n      IX(1) = IPOUT\r\n      CALL WRTTRL (IX)\r\n      RETURN\r\nC\r\nC     COMPUTE UNNORMALIZED MODAL MASS\r\nC\r\n  310 ASSIGN 320 TO ICOPY\r\n      GO TO 420\r\n  320 IF (IDEN .EQ. 0) GO TO 330\r\nC\r\nC     MASS MATRIX IS IDENTITY\r\nC\r\n      CALL SSG2B (PHIA,SCR1,0,MI,1,IPHIA(5),1,SCR3)\r\n      GO TO 340\r\nC\r\n  330 CALL SSG2B (MAA,PHIA,0,SCR2,0,IPHIA(5),1,SCR3)\r\n      CALL SSG2B (PHIA,SCR2,0,MI,1,IPHIA(5),1,SCR3)\r\nC\r\nC     BRING IN DIAGONALS\r\nC\r\n  340 LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (MI,CORE(LCORE+1),0)\r\n      ITB = IPHIA(5)\r\n      II  = 1\r\n      JJ  = NCOL\r\n      IF (ITB .NE. 2) GO TO 356\r\n      DO 350 J = 1,NCOL\r\n      CALL UNPACK (*348,MI,DCORE(NCOL+1))\r\n      K = NCOL + J\r\n      DCORE(J) = 1.0D0/DSQRT(DABS(DCORE(K)))\r\n      GO TO 350\r\n  348 DCORE(J) = 0.0D0\r\n  350 CONTINUE\r\n      GO TO 362\r\n  356 DO 360 J = 1,NCOL\r\n      CALL UNPACK (*358,MI,CORE(NCOL+1))\r\n      K = NCOL + J\r\n      CORE(J) = 1.0/SQRT(ABS(CORE(K)))\r\n      GO TO 360\r\n  358 CORE(J) = 0.0\r\n  360 CONTINUE\r\n  362 CALL CLOSE (MI,1)\r\nC\r\nC     DIVIDE EACH TERM BY SQRT (MI)\r\nC\r\n      CALL GOPEN (SCR1,CORE(LCORE+1),0)\r\n      LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (PHIA,CORE(LCORE+1),1)\r\n      II = 1\r\n      JJ = NROW\r\n      INCUR = 1\r\n      ITA1  = ITB\r\n      ITB1  = ITB\r\n      NCOL2 = ITB*NCOL\r\n      NROW2 = ITB*NROW\r\n      II1   = 1\r\n      JJ1   = NROW\r\n      INCUR1= 1\r\n      DO 410 I = 1,NCOL\r\n      CALL UNPACK (*390,SCR1,CORE(NCOL2+1))\r\n      IF (ITB .NE. 2) GO TO 368\r\n      DO 366 J = 1,NROW\r\n      K = NCOL + J\r\n  366 DCORE(K) = DCORE(K)*DCORE(I)\r\n      GO TO 380\r\n  368 DO 370 J = 1,NROW\r\n      K = NCOL+J\r\n  370 CORE(K) = CORE(K)*CORE(I)\r\n  380 CALL PACK (CORE(NCOL2+1),PHIA,IPHIA)\r\n      GO TO 410\r\n  390 DO 400 J = 1,NROW2\r\n      K = NCOL2 + J\r\n  400 CORE(K) = 0.0\r\n      GO TO 380\r\n  410 CONTINUE\r\n      CALL CLOSE (PHIA,1)\r\n      CALL CLOSE (SCR1,1)\r\n      GO TO 140\r\nC\r\nC     COPY ROUTINE - PHIA TO SCR1\r\nC\r\n  420 LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (PHIA,CORE(LCORE+1),0)\r\n      LCORE = LCORE - SYSBUF\r\n      CALL GOPEN (SCR1,CORE(LCORE+1),1)\r\n      DCORE(1) = 0.0D+0\r\n      ITB   = IX(5)\r\n      ITA1  = ITB\r\n      ITB1  = ITB\r\n      INCUR = 1\r\n      INCUR1= 1\r\n      DO 440 JJJ = 1,NCOL\r\n      II = 0\r\n      CALL UNPACK (*435,PHIA,CORE(3))\r\n      II1 = II\r\n      JJ1 = JJ\r\n      CALL PACK (CORE(3),SCR1,IPHIA)\r\n      GO TO 440\r\n  435 II1 = 1\r\n      JJ1 = 1\r\n      CALL PACK (CORE,SCR1,IPHIA)\r\n  440 CONTINUE\r\n      CALL CLOSE (PHIA,1)\r\n      CALL CLOSE (SCR1,1)\r\n      LCORE = LCORE + 2*SYSBUF\r\n      GO TO ICOPY, (40,320,150)\r\n  490 CALL MESAGE (-2,IP1,NAM)\r\n  500 IP1 = LAMA\r\n      GO TO 490\r\n  510 IP1 = IPOUT\r\n      GO TO 490\r\n  520 CALL MESAGE (-8,0,NAM)\r\n  530 CALL MESAGE (-3,LAMA,NAM)\r\n  540 CALL MESAGE (-5,MI,NAM)\r\nC\r\nC\r\n      ENTRY READ5 (IPOUT)\r\nC     ===================\r\nC\r\nC     PUT OUT EIGENVALUE SUMMARY IN CASE NO EIGENVALUES FOUND\r\nC\r\n      LCORE = KORSZ(CORE) - SYSBUF\r\n      ISTOR = 0\r\n      JSTOR = 0\r\n      IMSG  = 0\r\n      XMAX1 = 0.\r\n      IX(2) = 1\r\n      DO 560 I = 3,7\r\n      IX(I) = 0\r\n  560 CONTINUE\r\n      GO TO 275\r\nC\r\nC     REARRANGE THE EIGENVALUE TABLE, IF NECESSARY, FOR GIVENS METHOD\r\nC\r\n  600 CALL GOPEN (LAMA,CORE(LCORE+1),0)\r\n      CALL SKPREC (LAMA,1)\r\n      NWORDS = 7*NLAMA\r\n      CALL READ (*500,*530,LAMA,CORE(1),NWORDS,1,NWRDS)\r\n      REFREQ = CORE(3)\r\n      DO 640 I = 2,NLAMA\r\n      J = 7*(I-1) + 3\r\n      IF (CORE(J) .GE. REFREQ) GO TO 640\r\n      REFREQ = CORE(J)\r\n      GO TO 660\r\n  640 CONTINUE\r\n      GO TO 740\r\n  660 CALL BCKREC (LAMA)\r\n      CALL CLOSE (LAMA,2)\r\n      CALL GOPEN (LAMA,CORE(LCORE+1),3)\r\n      DO 700 I = 1,NLAMA\r\n      IF (CORE(3) .EQ. REFREQ) GO TO 720\r\n      T2 = CORE(2)\r\n      T3 = CORE(3)\r\n      T4 = CORE(4)\r\n      T5 = CORE(5)\r\n      T6 = CORE(6)\r\n      T7 = CORE(7)\r\n      DO 680 J = 2,NLAMA\r\n      K = 7*(J-2)\r\n      CORE(K+2) = CORE(K+ 9)\r\n      CORE(K+3) = CORE(K+10)\r\n      CORE(K+4) = CORE(K+11)\r\n      CORE(K+5) = CORE(K+12)\r\n      CORE(K+6) = CORE(K+13)\r\n      CORE(K+7) = CORE(K+14)\r\n  680 CONTINUE\r\n      K = 7*(NLAMA-1)\r\n      CORE(K+2) = T2\r\n      CORE(K+3) = T3\r\n      CORE(K+4) = T4\r\n      CORE(K+5) = T5\r\n      CORE(K+6) = T6\r\n      CORE(K+7) = T7\r\n  700 CONTINUE\r\n  720 CALL WRITE (LAMA,CORE(1),NWORDS,1)\r\n  740 CALL CLOSE (LAMA,1)\r\n      GO TO 275\r\n      END\r\n"
  },
  {
    "path": "mis/read3.f",
    "content": "      SUBROUTINE READ3 (NOVECT,NCOL,SR1FIL,SR2FIL,FILC,KDBLM)\r\nC\r\nC     READ3 PACKS THE EIGENVECTORS AND EIGENVALUES AND PUTS THEM OUT IN\r\nC     ASCENDING ORDER\r\nC\r\nC     LAST REVISED  1/92, BY G.CHAN/UNISYS\r\nC     ZERO OUT RIGID BODY FREQUENCIES IF METHOD IS 'FEER' (NOT 'FEER-X'\r\nC     NOR 'FEER-Q')\r\nC\r\n      INTEGER            SYSBUF    ,IZ(1)    ,RSP      ,RDP      ,\r\n     1                   FILELM    ,FILEVC   ,SR1FIL   ,SR2FIL   ,\r\n     2                   FILC      ,OPTION   ,OPTN2    ,FEER     ,\r\n     3                   DASHZ     ,STURM\r\n      INTEGER            RDREW\r\n      DOUBLE PRECISION   DXX(2)\r\n      DIMENSION          NAM(2)    ,FILEVC(7),FILELM(7)\r\n      COMMON   /ZZZZZZ/  Z(1)\r\n      COMMON   /STURMX/  STURM     ,SHFTPT\r\n      COMMON   /REIGKR/  OPTION    ,OPTN2\r\n      COMMON   /SYSTEM/  SYSBUF    ,NOUT     ,SYSTM(52),IPREC\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP\r\n      COMMON   /PACKX /  ITYPA     ,ITYPB    ,IPAK     ,JPAK     ,\r\n     1                   INCR\r\n      COMMON   /UNPAKX/  ITYPU     ,IUNP     ,JUNP     ,INCRU\r\n      EQUIVALENCE        (IZ(1),Z(1))\r\n      DATA      FEER  ,  DASHZ /4HFEER,   4H-X   /\r\n      DATA      NAM   /  4HREAD,4H3   /,  I2 / 2 /\r\nC\r\nC     FILELM (=KDBLM=LAMA=201) WILL HOLD THE EIGENVALUES  UPON RETURN\r\nC     FILEVC (=FILC =PHIA=202) WILL HOLD THE EIGENVECTORS UPON RETURN\r\nC\r\n      FILELM(1) = KDBLM\r\n      FILEVC(1) = FILC\r\n      ITYPA = RSP\r\n      ITYPB = RSP\r\n      INCR  = 1\r\n      IPAK  = 1\r\n      JPAK  = NCOL\r\n      NCOL2 = IPREC*NCOL\r\n      ITYPU = RSP\r\n      INCRU = 1\r\n      NOCL  = 2*NCOL + 2\r\n      NZ    = KORSZ(Z)\r\n      IBUF1 = NZ    - SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\nC\r\nC     READ IN ALL EIGENVALUES\r\nC\r\n      IFILE = SR1FIL\r\n      CALL GOPEN (SR1FIL,Z(IBUF1),RDREW)\r\n      I = 1\r\n   10 CALL FREAD (SR1FIL,DXX,IPREC,1)\r\n      Z(I+1) = DXX(1)\r\n      I = I + 1\r\n      IF (I .LE. NOVECT) GO TO 10\r\n      CALL CLOSE (SR1FIL,REW)\r\nC\r\nC     SET UP AN INDEX VECTOR AND SORT THE EIGENVALUES\r\nC\r\n      J = NCOL + 2\r\n      K = J + NCOL - 1\r\n      II = 1\r\n      DO 20 I = J,K\r\n      IZ(I) = II\r\n   20 II = II + 1\r\n      Z(1) = Z(I2)\r\n      J = 2\r\n      K = J + NOVECT - 1\r\n      DO 25 I = J,K\r\n      IF (Z(I) .LT. Z(1)) Z(1) = Z(I)\r\n   25 CONTINUE\r\n      DO 40 I = 1,NOVECT\r\n      K = I\r\n   30 IF (Z(K+1) .GE. Z(K)) GO TO 40\r\n      ZZ     = Z(K  )\r\n      Z(K  ) = Z(K+1)\r\n      Z(K+1) = ZZ\r\n      J  = K + NCOL\r\n      II = IZ(J)\r\n      IZ(J  ) = IZ(J+1)\r\n      IZ(J+1) = II\r\n      K = K - 1\r\n      GO TO 30\r\n   40 CONTINUE\r\nC\r\nC     ZERO OUT RIGID BODY EIGENVALUES IF THEY ARE PRESENT AND METHOD IS\r\nC     'FEER-Z'\r\nC     I.E. ZERO FREQUENCIES BELOW PTSHFT AND KEEP, AS CHECKED BY STURM\r\nC     SEQUENCE\r\nC\r\n      IF (STURM .LT. 0) GO TO 45\r\n      DO 43 I = 2,NOVECT\r\n      IK = I + STURM\r\n      IF (Z(IK).GE.SHFTPT .OR. IK.GT.NOVECT) GO TO 45\r\n      IF (Z(I).LT.0. .AND. OPTION.EQ.FEER .AND. OPTN2.EQ.DASHZ) Z(I)= 0.\r\n   43 CONTINUE\r\nC\r\nC     READ THE EIGENVECTORS AND PACK THEM IN ASCENDING ORDER\r\nC\r\n   45 CALL GOPEN (FILEVC,Z(IBUF1),1)\r\n      IFILE = SR2FIL\r\n      CALL GOPEN (SR2FIL,Z(IBUF2),RDREW)\r\n      IPOS = 1\r\n      CALL MAKMCB (FILEVC(1),FILC,NCOL,2,RSP)\r\nC\r\n      DO 110 I = 1,NOVECT\r\n      K  = I + NCOL + 1\r\n      NO = IZ(K)\r\n      IF (NO-IPOS) 50,80,70\r\n   50 CALL REWIND (SR2FIL)\r\n      IPOS = NO\r\n      IF (NO .LE. 0) GO TO 120\r\n   60 CALL SKPREC (SR2FIL,NO)\r\n      GO TO 80\r\n   70 NO   = NO - IPOS\r\n      IPOS = IPOS + NO\r\n      GO TO 60\r\n   80 IUNP = 0\r\n      CALL UNPACK (*90,SR2FIL,Z(NOCL))\r\n      IPOS = IPOS + 1\r\n      IPAK = IUNP\r\n      JPAK = JUNP\r\n      GO TO 100\r\n   90 IPAK = 1\r\n      JPAK = 1\r\n      Z(NOCL) = 0.0\r\n  100 CALL PACK (Z(NOCL),FILEVC,FILEVC)\r\n  110 CONTINUE\r\nC\r\n      CALL CLOSE  (FILEVC(1),REW)\r\n      CALL CLOSE  (SR2FIL,REW)\r\n      CALL WRTTRL (FILEVC)\r\nC\r\nC     OUTPUT THE EIGENVALUES, 1ST DATA RECORD\r\nC\r\n      CALL GOPEN (FILELM,Z(IBUF1),1)\r\n      CALL WRITE (FILELM,Z(I2),NOVECT,1)\r\nC\r\nC     SAVE ORDER FOUND IN 2ND DATA RECORD\r\nC\r\n      CALL WRITE (FILELM,IZ(NCOL+2),NOVECT,1)\r\n      CALL CLOSE (FILELM(1),REW)\r\n      FILELM(2) = NOVECT\r\n      CALL WRTTRL (FILELM)\r\n      RETURN\r\nC\r\n  120 CALL MESAGE (-7,FILE,NAM)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/read4.f",
    "content": "      SUBROUTINE READ4 (LAMA,PHI,SCR1,EPS,MASS)\r\nC\r\nC     READ4 WILL TEST FOR CLOSE AND EQUAL ROOTS AND MAKE SURE THE\r\nC     CORRESPONDING VECTORS ARE ORTHOGONAL\r\nC\r\n      INTEGER          NAME(2)   ,PHI(7)   ,RSP      ,PHI1(7)\r\n      INTEGER          RDREW     ,WRTREW\r\nCWKBI ALPHA-OSF 9/94      \r\n      INTEGER          SCR1\r\n      DOUBLE PRECISION DZ(1)\r\n      CHARACTER        UFM*23    ,UWM*25\r\n      COMMON /XMSSG /  UFM       ,UWM\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW       ,NOREW    ,EOFNRW   ,RSP\r\n      COMMON /UNPAKX/  ITYPE     ,IUNPAK   ,JUNPAK   ,INCR\r\n      COMMON /PACKX /  ITYPA     ,ITYPB    ,IPAK     ,JPAK     ,\r\n     1                 INCRX\r\n      EQUIVALENCE      (KSYSTM(1),ISYS)    ,(KSYSTM(2),IOUT)   ,\r\n     1                 (DZ(1),Z(1))\r\n      DATA    NAME  /  4HREAD,4H4   /\r\nC\r\n      NCOL  = PHI(2)\r\n      NROW  = PHI(3)\r\n      NZ    = KORSZ(Z)\r\n      IBUF  = NZ - ISYS\r\n      IBUF1 = IBUF - ISYS\r\n      IBUF2 = IBUF1 - ISYS\r\n      ICLOS = 0\r\n      IDID  = 0\r\n      IPR   = PHI(5)\r\n      RMULT = .01\r\n      ITYPE = RSP\r\n      IUNPAK= 1\r\n      JUNPAK= NROW\r\n      INCR  = 1\r\n      ITYPA = RSP\r\n      ITYPB = RSP\r\n      IPAK  = 1\r\n      JPAK  = NROW\r\n      INCRX = 1\r\n      EPSI  = EPS\r\n      IF (EPS .LE. 0.) EPSI = .0001\r\n      NZ = NZ - ISYS - ISYS - 1 - ISYS\r\n      CALL MAKMCB (PHI1,SCR1,NROW,2,RSP)\r\n      IFILE = LAMA\r\n      CALL GOPEN (LAMA,Z(IBUF),0)\r\n      CALL READ (*170,*10,LAMA,Z(1),NZ,1,N)\r\n      GO TO 180\r\n   10 CALL CLOSE (LAMA,REW)\r\nC\r\nC     REJECT ALL BUT VALUES FOR WHICH VECTORS EXIST\r\nC\r\n      N  = PHI(2)\r\n      NZ = NZ -N\r\n      IF (NZ .LT. NROW) GO TO 180\r\n      IFILE = PHI(1)\r\n      CALL GOPEN (PHI,Z(IBUF),0)\r\n      IPOS = 1\r\n      I    = 1\r\n      EPS1 = RMULT\r\n   20 CONTINUE\r\n      IF (ABS(Z(I))+ABS(Z(I+1)) .LT. EPS1) GO TO 1111\r\n      IF (Z(I+1) .EQ. 0.0) GO TO 110\r\n      IF (ABS(1.0-Z(I)/Z(I+1)) .GT. EPS1) GO TO 100\r\n 1111 IF (ICLOS .NE. 0) GO TO 110\r\n      ICLOS = I\r\n      GO TO 110\r\n   30 NUM  = I - ICLOS + 1\r\n      EPS1 = RMULT\r\nC\r\nC     NUM   = NUMBER OF CLOSE ROOTS IN THIS GROUP\r\nC     ICLOS = THE INDEX OF THE FIRST CLOSE ROOT\r\nC\r\n      IF (IDID .EQ. 1) GO TO 40\r\n      IDID  = 1\r\n      IFILE = SCR1\r\n      CALL GOPEN (SCR1,Z(IBUF1),WRTREW)\r\n   40 II = N + 1\r\n   50 IF (IPOS .EQ. ICLOS) GO TO 70\r\n      IFILE = PHI(1)\r\n      CALL UNPACK (*190,PHI,Z(II))\r\n      CALL PACK (Z(II),SCR1,PHI1)\r\n      IPOS = IPOS + 1\r\n      GO TO 50\r\n   70 CONTINUE\r\nC\r\nC     CHECK FOR CORE OVERFLOW\r\nC     EIGENVALUES + EIGENVECTORS + GEN. MASS + ACCUM.\r\nC\r\n      KORE = II + NUM*NROW + NUM*NUM + N + N + 3\r\n      IF (KORE .GT. NZ) GO TO 160\r\n      DO 80 J = 1,NUM\r\n      CALL UNPACK (*190,PHI,Z(II))\r\n      IPOS = IPOS + 1\r\n      II   = II + NROW\r\n      IF (II+NROW .GE. NZ) GO TO 180\r\n   80 CONTINUE\r\n      IJ = II + N + N + 3\r\n      II = II/2 + 1\r\n      CALL ORTCK (Z(N+1),MASS,Z(IBUF2),NUM,NROW,Z(IJ),DZ(II),EPSI)\r\n      II = N + 1\r\n      DO 90 J = 1,NUM\r\n      CALL PACK (Z(II),SCR1,PHI1)\r\n   90 II = II + NROW\r\n      ICLOS = 0\r\n  100 IF (ICLOS .NE. 0) GO TO 30\r\n  110 I = I + 1\r\n      IF (I     .LT.   N) GO TO 20\r\n      IF (ICLOS .NE.   0) GO TO 30\r\n      IF (IDID  .EQ.   0) GO TO 150\r\n      IF (IPOS .GT. NCOL) GO TO 121\r\n      DO 120 I = IPOS,NCOL\r\n      CALL UNPACK (*190,PHI,Z)\r\n      CALL PACK (Z(1),SCR1,PHI1)\r\n  120 CONTINUE\r\n  121 CALL WRTTRL (PHI1)\r\nC\r\nC     COPY VECTORS FROM SCR1 TO PHI\r\nC\r\n      CALL CLOSE (PHI,REW)\r\n      CALL CLOSE (SCR1,REW)\r\n      CALL GOPEN (PHI,Z(IBUF),1)\r\n      CALL GOPEN (SCR1,Z(IBUF1),RDREW )\r\n      CALL MAKMCB (PHI,PHI,NROW,2,IPR)\r\n      ITYPB = IPR\r\n      DO 140 I = 1,N\r\n      CALL UNPACK (*190,SCR1,Z)\r\n      CALL PACK (Z,PHI,PHI)\r\n  140 CONTINUE\r\n      CALL WRTTRL (PHI)\r\n      CALL CLOSE (SCR1,REW)\r\n  150 CALL CLOSE (PHI,REW)\r\n      RETURN\r\nC\r\n  160 EPS2 = EPS1/10.\r\n      WRITE  (IOUT,165) UWM,NUM,I,EPS1,EPS2\r\n  165 FORMAT (A25,' 3142, INSUFFICIENT CORE STORAGE FOR EIGENVECTORS ',\r\n     1       'ASSOCIATED WITH',I4,' MULTIPLE EIGENVALUES STARTING WITH',\r\n     2       /28X,'MODE NUMBER',I4,' USING CURRENT MULTIPLE ROOT ',\r\n     3       'CRITERIA. CRITERIA REDUCED FROM ',1P,E12.5,' TO ',E12.5)\r\n      EPS1 = EPS2\r\n      I = ICLOS\r\n      GO TO 20\r\n  170 NO = -2\r\n      GO TO 200\r\n  180 NO = -8\r\n      GO TO 200\r\n  190 NO = -7\r\n  200 CALL MESAGE (NO,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/read6.f",
    "content": "      SUBROUTINE READ6 (IRIG,GPHIA,NR,PHIA)\r\nC\r\nC     ADDS GIVENS EIGENVECTORS TO RIGID BODY MODES ON PHIA\r\nC\r\n      INTEGER         GPHIA,SYSBUF,PHIA,MCB(7),FILE\r\n      REAL            Z(3)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /UNPAKX/ IT2U,IIU,JJU,INCR1U\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR1\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\nC\r\nC\r\n      IBUF1 =  KORSZ(Z) - SYSBUF + 1\r\n      IBUF2 =  IBUF1 - SYSBUF\r\n      MCB(1)= GPHIA\r\n      CALL RDTRL (MCB)\r\n      NCOL = MCB(2) - NR\r\n      II   = 1\r\n      JJ   = MCB(3)\r\n      IT1  = MCB(5)\r\n      IT2  = MCB(5)\r\n      IT2U = MCB(5)\r\n      CALL MAKMCB (MCB,PHIA,JJ,MCB(4),IT1)\r\n      INCR1 = 1\r\n      CALL GOPEN (PHIA,Z(IBUF1),1)\r\n      IF (NR .EQ. 0) GO TO 21\r\n      FILE = IRIG\r\n      CALL GOPEN (IRIG,Z(IBUF2),0)\r\n      Z(1) = 0.0\r\n      Z(2) = 0.0\r\n      DO 20 I = 1,NR\r\n      IIU = 0\r\n      CALL UNPACK (*11,IRIG,Z(3))\r\n      II = IIU\r\n      JJ = JJU\r\n      CALL PACK (Z(3),PHIA,MCB)\r\n      GO TO 20\r\n   11 II = 1\r\n      JJ = 1\r\n      CALL PACK (Z,PHIA,MCB)\r\n   20 CONTINUE\r\n      CALL CLOSE (IRIG,1)\r\n   21 CONTINUE\r\n      IF (NCOL .LE. 0) GO TO 31\r\n      CALL GOPEN (GPHIA,Z(IBUF2),0)\r\n      FILE = GPHIA\r\n      INCR1U = 1\r\n      Z(1) = 0.0\r\n      Z(2) = 0.0\r\n      CALL SKPREC (GPHIA,NR)\r\n      DO 30 I = 1,NCOL\r\n      IIU = 0\r\n      CALL UNPACK (*35,GPHIA,Z(3))\r\n      II = IIU\r\n      JJ = JJU\r\n      CALL PACK (Z(3),PHIA,MCB)\r\n      GO TO 30\r\n   35 II = 1\r\n      JJ = 1\r\n      CALL PACK (Z,PHIA,MCB)\r\n   30 CONTINUE\r\n      CALL CLOSE (GPHIA,1)\r\n   31 CALL CLOSE (PHIA,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/read7.f",
    "content": "      SUBROUTINE READ7 (NR1,OLAMA,OPHIA,NLAMA,NPHIA)\r\nC\r\nC     READ7  COPIES NR VECTORS FROM OPHIA TO NPHIA -\r\nC     IT ALSO PLACES THE EIGENVALUES ON NLAMA\r\nC     THIS ROUTINE HANDLES BOTH SINGLE AND DOUBLE PRECISION\r\nC\r\n      INTEGER          OLAMA,OPHIA,SYSBUF,IX(7),NAME(2),SGLDBL\r\n      REAL             X(7)\r\n      DOUBLE PRECISION DCORE(2),DX\r\n      COMMON /SYSTEM/  SYSBUF\r\n      COMMON /UNPAKX/  ITB,II,JJ,INCUR\r\n      COMMON /PACKX /  IT1,IT2,IIP,JJP,INCRP\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      EQUIVALENCE      (DCORE(1),CORE(1)) , (X(1),DX)\r\n      DATA    NAME  /  4HREAD,4H7   /\r\nC\r\nC     GET ORGANIZED\r\nC\r\n      NR    = NR1\r\n      LC    = KORSZ(CORE)\r\n      IBUF1 = LC - SYSBUF + 1\r\n      IBUF2 = IBUF1 -SYSBUF\r\n      IBUF3 = IBUF2 -SYSBUF\r\n      IBUF4 = IBUF3 -SYSBUF\r\n      IX(1) = OPHIA\r\n      CALL RDTRL (IX)\r\n      NROW  = IX(3)\r\n      II    = 1\r\n      JJ    = NROW\r\n      IT1   = IX(5)\r\n      IT2   = IT1\r\n      ITB   = IT1\r\n      DCORE(1) = 0.0D0\r\n      INCRP = 1\r\n      ASSIGN 12 TO SGLDBL\r\n      IF (ITB .EQ. 2) ASSIGN 16 TO SGLDBL\r\n      INCUR = 1\r\nC\r\nC     OPEN OLD FILES\r\nC\r\n      CALL GOPEN (OLAMA,CORE(IBUF1),0)\r\n      CALL FWDREC (*3010,OLAMA)\r\n      CALL GOPEN (OPHIA,CORE(IBUF2),0)\r\nC\r\nC     OPEN NEW FILES TO WRITE\r\nC\r\n      CALL GOPEN (NLAMA,CORE(IBUF3),1)\r\n      CALL GOPEN (NPHIA,CORE(IBUF4),1)\r\nC\r\nC     START COPY LOOP\r\nC\r\n      CALL MAKMCB (IX,NPHIA,NROW,IX(4),IT2)\r\n      DO 10 I = 1,NR\r\n      CALL READ (*3010,*3020,OLAMA,X,7,0,IFL)\r\n      II = 0\r\n      CALL UNPACK (*150,OPHIA,DCORE(2))\r\n      GO TO SGLDBL, (12,16)\r\n   12 X(1) = SQRT(X(6))\r\n      DO 14 J = 1,NROW\r\n   14 CORE(J+2) = CORE(J+2)/X(1)\r\n      GO TO 20\r\n   16 DX = SQRT(X(6))\r\n      DO 18 J = 1,NROW\r\n   18 DCORE(J+1) = DCORE(J+1)/DX\r\n   20 IIP = II\r\n      JJP = JJ\r\n      CALL PACK (DCORE(2),NPHIA,IX)\r\n   30 DX = X(3)\r\n      CALL WRITE (NLAMA,DX,2,1)\r\n      GO TO 10\r\nC\r\nC     NULL COLUMN\r\nC\r\n  150 IIP = 1\r\n      JJP = 1\r\n      CALL PACK (DCORE,NPHIA,IX)\r\n      GO TO 30\r\n   10 CONTINUE\r\n      CALL CLOSE (OLAMA,1)\r\n      CALL CLOSE (OPHIA,1)\r\n      CALL CLOSE (NLAMA,2)\r\n      CALL CLOSE (NPHIA,1)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 3010 NN = -2\r\n 3012 IFILE = OLAMA\r\n      CALL MESAGE (NN,IFILE,NAME)\r\n      RETURN\r\n 3020 NN = -3\r\n      GO TO 3012\r\n      END\r\n"
  },
  {
    "path": "mis/redu.f",
    "content": "      SUBROUTINE REDU (CDATA,NX,IX,NAS,IAS,NVAR,VAR,IPRE,IER)\r\nC\r\n      INTEGER         CDATA(5),VAR(3,6),BLANK,EQS\r\n      DIMENSION       IX(3,1),IAS(2,1),KEYS(6)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      DATA    KEYS  / 4HNAMA,4HNAMB,4HNONA,4HNONB,4HPREC,4HBOUN /\r\n      DATA    NAME  / 4HNAME/, EQS /4H=   /,BLANK/4H            /\r\nC\r\nC     INITIALLIZE\r\nC\r\n      DO 10 I = 1,6\r\n   10 VAR(1,I) = KEYS(I)\r\nC\r\n      NVAR = 18\r\n      DO 20 I = 1,2\r\n      VAR(2,I) = BLANK\r\n   20 VAR(3,I) = BLANK\r\n      DO 30 I = 3,6\r\n      VAR(2,I) = -1\r\n   30 VAR(3,I) = 0\r\nC\r\nC     DECODE COMMAND\r\nC\r\n      I2 = 4\r\n      IF (CDATA(5) .EQ.  EQS) I2 = 6\r\n      IF (CDATA(1)*2 .LT. I2) GO TO 100\r\nC\r\n      VAR(2,1) = CDATA(I2  )\r\n      VAR(3,1) = CDATA(I2+1)\r\nC\r\n      NVX = 6\r\nC\r\nC     FIND NAME\r\nC\r\n      DO 40 I = 1,NX\r\n      IF (IX(1,I) .NE. NAME) GO TO 35\r\n      VAR(2,2) = IX(2,I)\r\n      VAR(3,2) = IX(3,I)\r\n      GO TO 40\r\n  35  IF (IX(1,I) .NE. KEYS(6)) GO TO 37\r\n      VAR(2,6) = IX(2,I)\r\n      VAR(3,6) = IX(3,I)\r\n      GO TO 40\r\n   37 NVX = NVX + 1\r\n      DO 38 J = 1,3\r\n   38 VAR(J,NVX) = IX(J,I)\r\n   40 CONTINUE\r\n      IF (VAR(2,2) .EQ. BLANK) GO TO 100\r\n      IF (VAR(3,6) .LE.     0) GO TO 120\r\n      IF (IPRE.LE.0 .OR. IPRE.GT.2) IPRE = 1\r\nC\r\n      VAR(3,5) = IPRE\r\nC\r\nC     FIND STRUCTURE NUMBERS, B MAY NOT PRE-EXIST\r\nC\r\n      IF (NAS .EQ. 0)  GO TO  80\r\n      DO 70 I = 1,NAS\r\n      IF (VAR(2,1).NE.IAS(1,I) .OR. VAR(3,1).NE.IAS(2,I)) GO TO 55\r\n      VAR(3,3) = I\r\n      GO TO 70\r\n   55 IF (VAR(2,2).EQ.IAS(1,I) .AND. VAR(3,2).EQ.IAS(2,I)) GO TO 100\r\n   70 CONTINUE\r\n   80 NAS = NAS + 1\r\n      VAR(3,4) = NAS\r\n      IAS(1,NAS) = VAR(2,2)\r\n      IAS(2,NAS) = VAR(3,2)\r\n      IF (VAR(3,3) .NE. 0) GO TO 90\r\n      NAS = NAS + 1\r\n      VAR(3,3) = NAS\r\n      IAS(1,NAS) = VAR(2,1)\r\n      IAS(2,NAS) = VAR(3,1)\r\n   90 IER  = 0\r\n      NVAR = NVX*3\r\n      RETURN\r\nC\r\n  100 WRITE  (IOUT,101) UFM\r\n  101 FORMAT (A23,' 6614, ILLEGAL OR NON-EXISTANT STRUCTURE NAME USED ',\r\n     1        'ABOVE')\r\n      GO TO 130\r\n  120 WRITE  (IOUT,121) UFM\r\n  121 FORMAT (A23,' 6615, ILLEGAL BOUNDARY SET IDENTIFICATION NUMBER')\r\n  130 IER = 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/reduce.f",
    "content": "      SUBROUTINE REDUCE\r\nC\r\nC     REDUCE BUILDS THE FOLLOWING DATA BLOCKS\r\nC\r\nC     1.  PVX  -  THE REDUCTION PARTITIONING VECTOR\r\nC     2.  USX  -  THE USET EQUIVALENT VECTOR\r\nC     3.  INX  -  THE REDUCTION TRANSFORMATION IDENTITY PARTITION\r\nC\r\nC     THE FOLLOWING BULK DATA CARDS ARE READ\r\nC\r\nC     1.  BDYC\r\nC     2.  BDYS\r\nC     3.  BDYS1\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         INBSET,FSET,BAD,LONLY\r\n      REAL            RZ(1)\r\n      DIMENSION       MODNAM(2),IJK(6),IHD(96),BDYS(2),BDYS1(2),\r\n     1                BDYC(2),MNEM(4),NAMOLD(14),NAMNEW(2),ARAY(6),\r\n     2                ISID(100),CSET(6),IPSET(6),LISTO(32),LISTN(32),\r\n     3                MCB(7),IBITS(6)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / TYPIN,TYPOUT,IROW,NROW,INCR\r\n      COMMON /SYSTEM/ SYSBUF,OUTT,X1(6),NLPP,X2(2),LINE,X3(2),IDATE(3)\r\n      COMMON /OUTPUT/ ITITL(96),IHEAD(96)\r\n      COMMON /CMBFND/ IINAM(2),IIIERR\r\n      COMMON /TWO   / TPOW(32)\r\n      COMMON /BLANK / STEP,DRY,PORA\r\n      EQUIVALENCE     (RZ(1),Z(1) )\r\n      DATA    IHD   / 4H    , 8*4H****,\r\n     1        4H S U, 4H B S, 4H T R, 4H U C, 4H T U, 4H R E, 4H    ,\r\n     2        4HM O , 4HD U , 4HL E , 4H   R, 4H E D, 4H U C, 4H E *,\r\n     3        9*4H**** , 64*4H      /\r\n      DATA    NHEQSS, NHBGSS,NHCSTM,NHPLTS/4HEQSS,4HBGSS,4HCSTM,4HPLTS/\r\n      DATA    MODNAM/ 4HREDU,4HCE   /\r\n      DATA    PAPP  , LODS, LOAP    /4HPAPP,4HLODS,4HLOAP/\r\nC     --------------------\r\nC     CODES TO LOCATE BULK DATA\r\nC     --------------------\r\n      DATA    BDYC/ 910,9 / , BDYS/ 1210,12 / , BDYS1/ 1310,13 /\r\nC     --------------------\r\nC     CASE CONTROL MNEMONICS\r\nC     --------------------\r\n      DATA    MNEM/ 4HNAMA , 4HNAMB , 4HBOUN , 4HOUTP /\r\nC     --------------------\r\nC     GINO FILES FOR DATA BLOCKS AND SCRATCH\r\nC     --------------------\r\n      DATA    CASECC/ 101 / , GEOM4/ 102 /\r\n      DATA    PVX   / 201 / , USX  / 202 / , INX/ 203 /\r\n      DATA    SCR1  / 301 / , SCR2 / 302 / , I3 / 3   /\r\nC\r\nC\r\nC     I.  COMPUTE OPEN CORE AND DEFINE GINO AND SOF BUFFERS\r\nC     *****************************************************\r\nC\r\n      IF (DRY .EQ. -2) RETURN\r\n      IBA = 128\r\n      IBO = 4\r\n      IBF = 64\r\n      NZWD= KORSZ(Z(1))\r\n      IF (NZWD .LE. 0 ) CALL MESAGE (-8,0,MODNAM)\r\nC\r\n      LONLY= .FALSE.\r\n      BUF1 = NZWD - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      IB1  = BUF3 - SYSBUF\r\n      IB2  = IB1  - SYSBUF\r\n      IB3  = IB2  - SYSBUF\r\nC\r\nC     SCORE IS STARTING ADDRESS OF OPEN CORE AND NZ THE LENGTH\r\nC\r\n      SCORE = 1\r\n      NZ = IB3 - 1\r\nC\r\nC     INITIALIZE ACTIVITY ON THE SOF\r\nC\r\n      LITM = LODS\r\n      IF (PORA .EQ. PAPP) LITM = LOAP\r\n      CALL SOFOPN (Z(IB1),Z(IB2),Z(IB3))\r\n      DO 2111 I = 1,96\r\n      IHEAD(I) = IHD(I)\r\n 2111 CONTINUE\r\nC\r\nC     II.  PROCESS THE CASE CONTROL DATA BLOCK ( CASECC )\r\nC     ***************************************************\r\nC\r\n      DO 260 I = 1,14\r\n      NAMOLD(I) = 0\r\n  260 CONTINUE\r\n      IFILE = CASECC\r\n      CALL OPEN (*2001,CASECC,Z(BUF2),0)\r\n      PRTOPT = 0\r\n      NREC = STEP\r\n      IF (NREC) 200,201,200\r\n  200 DO 202 I = 1,NREC\r\n      CALL FWDREC (*2002,CASECC)\r\n  202 CONTINUE\r\nC\r\nC     BEGIN READING CASECC\r\nC\r\n  201 INBSET = .FALSE.\r\n      CALL READ (*2002,*2003,CASECC,Z(1),2,0,NNN)\r\n      NWDSCC = Z(I3-1)\r\n      DO 203 I = 1,NWDSCC,3\r\n      CALL READ (*2002,*2003,CASECC,Z(1),3,0,NNN)\r\nC\r\nC     CHECK FOR CASE CONTROL MNEMONICS\r\nC\r\n      DO 204 J = 1,4\r\n      IF (Z(1) .EQ. MNEM(J)) GO TO 205\r\n  204 CONTINUE\r\n      GO TO 203\r\n  205 GO TO (206,207,208,209), J\r\n  206 NAMOLD(1) = Z(I3-1)\r\n      NAMOLD(2) = Z(I3  )\r\n      GO TO 203\r\n  207 NAMNEW(1) = Z(I3-1)\r\n      NAMNEW(2) = Z(I3  )\r\n      GO TO 203\r\n  208 INBSET = .TRUE.\r\n      BSET = Z(I3)\r\n      GO TO 203\r\n  209 PRTOPT = ORF(PRTOPT,Z(I3))\r\n  203 CONTINUE\r\n      IF (DRY .EQ. 0) PRTOPT = 0\r\n      IF (ANDF(PRTOPT,1) .NE. 1) GO TO 2199\r\n      CALL PAGE1\r\n      WRITE  (OUTT,280) (NAMOLD(I),I=1,2),NAMNEW,BSET,(NAMOLD(I),I=1,2)\r\n  280 FORMAT (//41X,'S U M M A R Y    O F    C U R R E N T    P R O ',\r\n     1       'B L E M', //43X,\r\n     2       'NAME OF PSEUDOSTRUCTURE TO BE REDUCED    - ',2A4, //43X,\r\n     3       'NAME GIVEN TO RESULTANT PSEUDOSTRUCTURE  - ',2A4, //43X,\r\n     4       'BOUNDARY SET IDENTIFICATION NUMBER       - ',I8,  //43X,\r\n     5       'NAMES OF COMPONENT SUBSTRUCTURES CONTAINED IN ',2A4/)\r\n 2199 CONTINUE\r\n      CALL CLOSE (CASECC,1)\r\nC\r\nC     CHECK FOR ALLOWABILITY OF INPUT\r\nC\r\n      BAD = .FALSE.\r\n      CALL SFETCH (NAMOLD,NHEQSS,3,ITEST)\r\n      IF (ITEST .EQ. 4) GO TO 290\r\n  261 CALL SFETCH (NAMNEW,NHEQSS,3,ITEST)\r\n      IF (ITEST.NE.4 .AND. DRY.NE.0) GO TO 291\r\n      IF (ITEST.EQ.4 .AND. DRY.EQ.0) GO TO 297\r\n  262 IF (.NOT.INBSET) GO TO 292\r\n  263 IF (.NOT.BAD) GO TO 300\r\n      GO TO 2100\r\nC\r\nC     IF NO ERRORS, CONTINUE PROCESSING\r\nC\r\nC\r\n  290 WRITE (OUTT,293) UFM,(NAMOLD(I),I=1,2)\r\n      BAD = .TRUE.\r\n      GO TO 261\r\n  291 CALL SFETCH (NAMNEW,LITM,3,ITEST)\r\n      IF (ITEST .NE. 3) GO TO 296\r\n      LONLY = .TRUE.\r\n      GO TO 300\r\n  296 CONTINUE\r\n      WRITE (OUTT,294) UFM,(NAMNEW(I),I=1,2)\r\n      BAD = .TRUE.\r\n      GO TO 262\r\n  292 WRITE (OUTT,295) UFM\r\n      BAD = .TRUE.\r\n      GO TO 263\r\n  297 WRITE  (OUTT,298) UFM,NAMNEW\r\n  298 FORMAT (A23,' 6613, FOR RUN=GO, THE REDUCED SUBSTRUCTURE ',2A4,\r\n     1       ' MUST ALREADY EXIST.')\r\n      BAD = .TRUE.\r\n      GO TO 262\r\n  293 FORMAT (A23,' 6601, REQUEST TO REDUCE PSEUDOSTRUCTURE ',2A4,\r\n     1       ' INVALID. DOES NOT EXIST ON THE SOF.')\r\n  294 FORMAT (A23,' 6602, THE NAME ',2A4,' CAN NOT BE USED FOR THE ',\r\n     1       'REDUCED PSEUDOSTRUCTURE. IT ALREADY EXISTS ON THE SOF.')\r\n  295 FORMAT (A23,' 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A ',\r\n     1       'REDUCE OPERATION.')\r\nC\r\nC     READ FIRST GROUP OF EQSS FOR THE STRUCTURE BEING REDUCED,\r\nC     PLACE THE NAMES OF THE COMPONENT SUBSTRUCTURES INTO THE\r\nC     FIRST NWDS WORDS OF OPEN CORE.\r\nC\r\n  300 KS1 = SCORE\r\n      CALL SFETCH (NAMOLD,NHEQSS,1,ITEST)\r\n      CALL SUREAD (Z(KS1),-1,NOUT,ITEST )\r\nC\r\nC     NCSUB IS THE NUMBER OF COMPONENT SUBSTRUCTURES\r\nC     NIPOLD IS THE NUMBER OF IP S IN THE STRUCTURE BEING REDUCED\r\nC\r\n      NCSUB = Z(KS1+2)\r\n      NOUT  = NOUT - 4\r\n      DO 302 I = 1,NOUT\r\n      II = I - 1\r\n      Z(KS1+II) = Z(KS1+4+II)\r\n  302 CONTINUE\r\n      NWDS = NOUT\r\n      SCORE= KS1 + NWDS\r\n      KF1  = SCORE - 1\r\n      NZ   = NZ - NWDS\r\n      IF (ANDF(PRTOPT,1) .NE. 1) GO TO 282\r\n      WRITE  (OUTT,281) (Z(JJ),JJ=KS1,KF1)\r\n  281 FORMAT (48X,2A4,4X,2A4,4X,2A4,4X,2A4)\r\n  282 CONTINUE\r\nC\r\nC     III. READ BOUNDARY SET ( BDYC ) BULK DATA INTO OPEN CORE FOR\r\nC     THE REQUESTED SET ( BSET ) FROM THE GEOM4 INPUT DATA BLOCK.\r\nC     ************************************************************\r\nC\r\n      KS2   = SCORE\r\n      IFILE = GEOM4\r\n      CALL PRELOC (*2001,Z(BUF1),GEOM4)\r\n      CALL LOCATE (*490,Z(BUF1),BDYC,FLAG)\r\n  401 CALL READ (*2002,*490,GEOM4,ID,1,0,NNN)\r\n      IF (ID .EQ. BSET) GO TO 402\r\n  403 CALL READ (*2002,*2003,GEOM4,ARAY,3,0,NNN)\r\n      IF (ARAY(3) .EQ. -1) GO TO 401\r\n      GO TO 403\r\nC\r\nC     CORRECT BOUNDARY SET HAS BEEN FOUND, STORE DATA IN SECOND NWBS WOR\r\nC     OF OPEN CORE.\r\nC\r\n  402 NWBS = 0\r\n  405 BAD  = .FALSE.\r\n      CALL READ (*2002,*2003,GEOM4,Z(KS2+NWBS),3,0,NNN)\r\n      IF (Z(KS2+NWBS+2) .EQ. -1) GO TO 440\r\nC\r\nC     MUST CHECK THAT THE SUBSTRUCTURE IS A PHASE1 BASIC SUBSTRUCTURE\r\nC     AND THAT IT IS A COMPONENT OF THE STRUCTURE BEING REDUCED.\r\nC\r\nC     CHECK FOR COMPONENT\r\nC\r\n      DO 410 I = 1,NWDS,2\r\n      II = I - 1\r\n      IF (Z(KS1+II).EQ.Z(KS2+NWBS) .AND. Z(KS1+II+1).EQ.Z(KS2+NWBS+1))\r\n     1    GO TO 420\r\n  410 CONTINUE\r\nC\r\nC     NOT A COMPONENT\r\nC\r\n      WRITE (OUTT,491) UFM,Z(KS2+NWBS),Z(KS2+NWBS+1)\r\n      BAD = .TRUE.\r\n  491 FORMAT (A23,' 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ',2A4,\r\n     1       ', BUT IT IS NOT A COMPONENT OF THE', /31X,'PSEUDOSTRUC',\r\n     2       'TURE BEING REDUCED. THE BOUNDARY SET WILL BE IGNORED.')\r\nC\r\n  420 IF (BAD) GO TO 405\r\n      NWBS = NWBS + 3\r\n      GO TO 405\r\n  440 SCORE = KS2 + NWBS\r\n      KF2 = SCORE - 1\r\n      NZ  = NZ - NWBS\r\nC\r\nC     SORT ON SET ID\r\nC\r\n      CALL SORT (0,0,3,3,Z(KS2),NWBS)\r\n      IF (ANDF(RSHIFT(PRTOPT,1),1) .NE. 1) GO TO 2299\r\n      II = 0\r\n 2203 CALL PAGE1\r\n      WRITE  (OUTT,2202) BSET\r\n 2202 FORMAT (//44X,'SUMMARY OF COMBINED BOUNDARY SET NUMBER',I9, //55X,\r\n     1       'BASIC',11X,'BOUNDARY', /52X,'SUBSTRUCTURE',8X,'SET ID',\r\n     2       /56X,'NAME',12X,'NUMBER',/)\r\n      LINE = LINE + 7\r\n 2206 LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) GO TO 2203\r\n      WRITE  (OUTT,2205) Z(KS2+II),Z(KS2+II+1),Z(KS2+II+2)\r\n 2205 FORMAT (54X,2A4,9X,I8)\r\n      II = II + 3\r\n      IF (II .GT. NWBS - 3) GO TO 2299\r\n      GO TO 2206\r\n 2299 CONTINUE\r\n      GO TO 500\r\nCWKBR 8/94 ALPHA-VMS  490 WRITE (OUTT,493) IFM,BSET     \r\n  490 WRITE (OUTT,493) UFM,BSET   \r\n      GO TO 2200\r\n  493 FORMAT (A23,' 6606, BOUNDARY SET ,I8,61H SPECIFIED IN CASE ',\r\n     1       'CONTROL HAS NOT BEEN DEFINED BY BULK DATA.')\r\nC\r\nC     IV. READ BDYS BULK DATA PROCESSING ONLY THE SET ID S REFERENCED ON\r\nC     THE BDYC CARD.  IF DATA DOES NOT EXIST, GO TO BDYS1 PROCESSING SEC\r\nC     ******************************************************************\r\nC\r\n  500 J = 0\r\n      IERR = 0\r\n      CALL LOCATE (*580,Z(BUF1),BDYS,FLAG)\r\n  502 CALL READ (*2002,*600,GEOM4,IDHID,1,0,NNN)\r\nC\r\nC     CHECK REQUESTED ID\r\nC\r\n      DO 501 I = KS2,KF2,3\r\n      IF (IDHID .EQ. Z(I+2)) GO TO 503\r\n  501 CONTINUE\r\n  505 CALL READ (*2002,*2003,GEOM4,ARAY,2,0,NNN)\r\n      IF (ARAY(1).NE.-1 .AND. ARAY(2).NE.-1) GO TO 505\r\n      GO TO 502\r\n  503 CALL READ (*2002,*2003,GEOM4,ARAY,2,0,NNN)\r\n      IF (ARAY(1).EQ.-1 .AND. ARAY(2).EQ.-1) GO TO 502\r\n      Z(SCORE+J  ) = IDHID\r\n      Z(SCORE+J+1) = ARAY(1)\r\n      Z(SCORE+J+2) = ARAY(2)\r\n      J = J + 3\r\n      GO TO 503\r\n  580 IERR = IERR + 1\r\nC\r\nC     V. READ BDYS1 BULK DATA AND MERGE WITH BDYS IN OPEN CORE.\r\nC     *********************************************************\r\nC\r\n  600 CALL LOCATE (*620,Z(BUF1),BDYS1,FLAG)\r\n  606 CALL READ (*2002,*602,GEOM4,ARAY(1),2,0,NNN)\r\nC\r\nC     CHECK ID\r\nC\r\n      DO 603 I = KS2,KF2,3\r\n      IF (ARAY(1) .EQ. Z(I+2)) GO TO 604\r\n  603 CONTINUE\r\n  605 CALL READ (*2002,*2003,GEOM4,ARAY(3),1,0,NNN)\r\n      IF (ARAY(3) .NE. -1) GO TO 605\r\n      GO TO 606\r\n  604 CALL READ (*2002,*2003,GEOM4,ARAY(3),1,0,NNN)\r\n      IF (ARAY(3) .EQ. -1) GO TO 606\r\n      Z(SCORE+J  ) = ARAY(1)\r\n      Z(SCORE+J+1) = ARAY(3)\r\n      Z(SCORE+J+2) = ARAY(2)\r\n      J = J + 3\r\n      GO TO 604\r\n  620 IERR = IERR + 1\r\n  602 CALL CLOSE (GEOM4,1)\r\n      IF (IERR .NE. 2) GO TO 650\r\n      WRITE (OUTT,691) UFM,BSET\r\n      GO TO 2200\r\n  691 FORMAT (A23,' 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO',\r\n     1       ' DEFINE BOUNDARY SET',I8)\r\nC\r\nC     SORT COMPLETE BOUNDARY SET DATA ON SET ID IN OPEN CORE\r\nC\r\n  650 CALL SORT (0,0,3,1,Z(SCORE),J)\r\nC\r\nC     TRANSLATE COMPONENT NUMBER TO BIT PATTERN\r\nC\r\n      IT = SCORE + J - 1\r\n      DO 651 I = SCORE,IT,3\r\n      CALL ENCODE (Z(I+2))\r\n  651 CONTINUE\r\n      IF (ANDF(RSHIFT(PRTOPT,2),1) .NE. 1) GO TO 2399\r\n      IINC = 0\r\n 2303 CALL PAGE1\r\n      WRITE  (OUTT,2302)\r\n 2302 FORMAT (1H0,46X,44HTABLE OF GRID POINTS COMPOSING BOUNDARY SETS, /\r\n     1    /52X,8HBOUNDARY ,/52X , 34H SET ID      GRID POINT       DOF ,\r\n     2    /52X,34H NUMBER      ID  NUMBER       CODE ,/ )\r\n      LINE = LINE + 7\r\n 2305 LINE = LINE + 1\r\n      IF (LINE .GT. NLPP) GO TO 2303\r\n      ICODE = Z(SCORE+IINC+2)\r\n      CALL BITPAT (ICODE, IBITS)\r\n      WRITE (OUTT,2304) Z(SCORE+IINC),Z(SCORE+IINC+1),\r\n     1                  IBITS(1),IBITS(2)\r\n 2304 FORMAT (52X,I8,6X,I8,7X,A4,A2)\r\n      IINC = IINC + 3\r\n      IF (IINC .GT. J-3) GO TO 2399\r\n      GO TO 2305\r\n 2399 CONTINUE\r\nC\r\nC     WRITE BOUNDARY SET DATA ON TO FILE SCR1, ONE LOGICAL RECORD FOR EA\r\nC     SET ID.\r\nC\r\n      CALL OPEN (*2001,SCR1,Z(BUF2),1)\r\n      IST  = SCORE + 3\r\n      IFIN = SCORE + J - 1\r\n      N    = 1\r\n      NSID = 1\r\n      ISID(1) = Z(SCORE)\r\n      CALL WRITE (SCR1,Z(SCORE+1),2,0)\r\n      DO 660 I = IST,IFIN,3\r\n      IF (Z(I) .EQ. ISID(N)) GO TO 661\r\n      N    = N + 1\r\n      NSID = NSID + 1\r\n      ISID(N) = Z(I)\r\n      CALL WRITE (SCR1,ARAY,0,1)\r\n  661 CALL WRITE (SCR1,Z(I+1),2,0)\r\n  660 CONTINUE\r\n      CALL WRITE (SCR1,ARAY,0,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC\r\nC     SCR1 NOW CONTAINS BOUNDARY SET DATA FOR ALL GRID POINTS\r\nC\r\nC     CHECK THAT ALL REQUESTED SID S HAVE BEEN FOUND\r\nC\r\n      NRSID = NWBS/3\r\n      J = 0\r\n      DO 670 I = KS2,KF2,3\r\n      Z(SCORE+J) = Z(I+2)\r\n      J = J + 1\r\n  670 CONTINUE\r\n      DO 675 I = 1,NRSID\r\n      II = I - 1\r\n      DO 676 J = 1,NSID\r\n      IF (ISID(J) .EQ. Z(SCORE+II)) GO TO 677\r\n  676 CONTINUE\r\n      GO TO 675\r\n  677 Z(SCORE+II) = 0\r\n  675 CONTINUE\r\n      IBAD = 0\r\n      DO 678 I = 1,NRSID\r\n      II = I - 1\r\n      IF (Z(SCORE+II) .EQ. 0) GO TO 678\r\n      INDEX = (I-1)*3\r\n      WRITE (OUTT,692) UFM,Z(KS2+INDEX+2),Z(KS2+INDEX),Z(KS2+INDEX+1)\r\n      IBAD = 1\r\n  678 CONTINUE\r\n      IF (IBAD .EQ. 1) GO TO 2300\r\n  692 FORMAT (A23,' 6608, THE REQUEST FOR BOUNDARY SET ',I8,\r\n     1       ' SUBSTRUCTURE ',2A4,' WAS NOT DEFINED.')\r\nC\r\nC     VI. PROCESS THE EQSS FROM THE SOF FOR EACH COMPONENT SUBSTRUCTURE.\r\nC     ******************************************************************\r\nC\r\n      CALL OPEN (*2001,SCR1,Z(BUF3),0)\r\n      CALL OPEN (*2001,SCR2,Z(BUF2),1)\r\n      CALL SFETCH (NAMOLD,NHEQSS,1,ITEST)\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\nC\r\nC     READ AND PROCESS EQSS\r\nC\r\n      BAD = .FALSE.\r\n      DO 701 I = 1,NCSUB\r\n      II = 2*(I-1)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      IF (ANDF(RSHIFT(PRTOPT,3),1) .NE. 1) GO TO 2499\r\n      CALL CMIWRT (1,NAMOLD,Z(KS1+II),SCORE,NOUT,Z,Z)\r\n 2499 CONTINUE\r\nC\r\nC     FIND A BOUNDARY SET FOR THE COMPONENT\r\nC\r\n      INXT = 1\r\n      FSET = .FALSE.\r\n  737 DO 702 J = INXT,NWBS,3\r\n      JJ = J - 1\r\n      IF (Z(KS2+JJ).EQ.Z(KS1+II) .AND. Z(KS2+JJ+1).EQ.Z(KS1+II+1))\r\n     1    GO TO 704\r\n  702 CONTINUE\r\n      IF (FSET) GO TO 735\r\nC\r\nC     NO BOUNDARY SET FOR COMPONENT - IMPLIES ENTIRE SUBSTRUCTURE WILL B\r\nC     REDUCED - POSSSIBLE ERROR.\r\nC\r\n      IF (NOUT .NE. 0) WRITE(OUTT,791) UIM,Z(KS1+II),Z(KS1+II+1),\r\n     1                                 (NAMOLD(J),J=1,2)\r\n  791 FORMAT (A29,' 6609, NO BOUNDARY SET HAS BEEN SPECIFIED FOR ',\r\n     1       'COMPONENT ',2A4,' OF PSEUDOSTRUCTURE ',2A4, /35X,\r\n     2       'ALL DEGREES OF FREEDOM WILL BE REDUCED.')\r\n      CALL WRITE (SCR2,ARAY(1),0,1)\r\n      GO TO 701\r\nC\r\nC     COMPONENT HAS A BOUNDARY SET, CALL EQSCOD TO ACCOUNT FOR POSSIBLE\r\nC     MULTIPLE IP NUMBERS.\r\nC\r\n  704 IF (FSET) GO TO 736\r\n      CALL EQSCOD (SCORE,NOUT,Z)\r\nC\r\nC     DEFINE ARRAY TO CB - DEGREES OF FREEDOM RETAINED AS BOUNDARY POINT\r\nC\r\n      IST  = SCORE + NOUT\r\n      IFIN = IST + NOUT/3 - 1\r\n      DO 705 J = IST,IFIN\r\n      Z(J) = 0\r\n  705 CONTINUE\r\nC\r\nC     LOCATE BOUNDARY SET ON SCR1\r\nC\r\n  736 INXT = JJ + 4\r\n      FSET = .TRUE.\r\n      NSET = Z(KS2+JJ+2)\r\n      DO 706 J = 1,NSID\r\n      IF (NSET .EQ. ISID(J)) GO TO 766\r\n  706 CONTINUE\r\n  766 NREC = J - 1\r\n      IF (NREC .EQ. 0) GO TO 716\r\n      DO 707 JJ = 1,NREC\r\n      CALL FWDREC (*2002,SCR1)\r\n  707 CONTINUE\r\nC\r\nC     READ BOUNDARY DATA AND UPDATE CB\r\nC\r\n  716 CALL READ (*2002,*730,SCR1,ARAY,2,0,NNN)\r\nC\r\nC     LOCATE GRID ID IN EQSS AND SETS OF VALUES IF THE GRID IS MULTIPLY\r\nC\r\n      IF (NOUT .EQ. 0) GO TO 717\r\n      CALL GRIDIP (ARAY(1),SCORE,NOUT,IPSET,CSET,NO,Z,LOC)\r\n      IF (IIIERR .NE. 1) GO TO 718\r\n  717 BAD = .TRUE.\r\n      WRITE  (OUTT,714) UFM,ARAY(1),NSET,Z(KS1+II),Z(KS1+II+1)\r\n  714 FORMAT (A23,' 6611, GRID POINT',I9,' SPECIFIED IN BOUNDARY SET',\r\n     1       I9,' FOR SUBSTRUCTURE ',2A4,' DOES NOT EXIST.')\r\n  718 IADD = LOC\r\n      IF (NO .GT. 1) GO TO 710\r\n      ICOMP = Z(IADD+2) - LSHIFT(RSHIFT(Z(IADD+2),26),26)\r\n      GO TO 711\r\n  710 ICOMP = 0\r\n      DO 712 J = 1,NO\r\n      CSET(J) = CSET(J) - LSHIFT(RSHIFT(CSET(J),26),26)\r\n      ICOMP = ORF(ICOMP,CSET(J))\r\n  712 CONTINUE\r\nC\r\nC     CHECK THAT THE RETAINED DOF ARE A SUBSET OF THE ORIGINAL.\r\nC\r\n  711 IF (ANDF( ARAY(2),ICOMP ).EQ.ARAY(2).OR.IIIERR.EQ.1) GO TO 715\r\n      WRITE  (OUTT,792) UWM,ARAY(1),Z(KS1+II),Z(KS1+II+1)\r\n  792 FORMAT (A25,' 6610, DEGREES OF FREEDOM AT GRID POINT',I9,\r\n     1       ' COMPONENT SUBSTRUCTURE ',2A4, /31X,'INCLUDED IN A ',\r\n     2       'BOUNDARY SET DO NOT EXIST. REQUEST WILL BE IGNORED.')\r\n      ARAY(2) = ARAY(2) - (ORF(ARAY(2),ICOMP)-ICOMP)\r\nC\r\nC     UPDATE CB ARRAY\r\nC\r\n  715 IF (NO .GT. 1) GO TO 757\r\n      NENT = (IADD-SCORE)/3\r\n      Z(IST+NENT) = ORF(Z(IST+NENT),ARAY(2))\r\n      GO TO 716\r\n  757 NENT = (IADD-SCORE)/3\r\n      DO 758 J = 1,NO\r\n      Z(IST+NENT+J-1) = ORF(Z(IST+NENT+J-1),ARAY(2))\r\n  758 CONTINUE\r\n      GO TO 716\r\nC\r\nC     BOUNDARY SET COMPLETE, IS THERE ANOTHER\r\nC\r\n  730 CALL REWIND (SCR1)\r\n      GO TO 737\r\nC\r\nC     WRITE IP AND CB ON SCR2\r\nC\r\n  735 I1 = SCORE\r\n      I2 = I1 + NOUT - 1\r\n      II = -1\r\n      DO 740 J = I1,I2,3\r\n      II = II + 1\r\n      ARAY(1) = ANDF(Z(J+2),Z(IST+II))\r\n      IF (ARAY(1) .NE. 0) CALL WRITE (SCR2,Z(J+1),1,0)\r\n      IF (ARAY(1) .NE. 0) CALL WRITE (SCR2,ARAY(1),1,0)\r\n  740 CONTINUE\r\n      CALL WRITE (SCR2,ARAY(1),0,1)\r\n  701 CONTINUE\r\n      CALL CLOSE (SCR1,1)\r\n      CALL CLOSE (SCR2,1)\r\n      IF (BAD) GO TO 2300\r\nC\r\nC     VII. PROCESS MASTER SIL LIST AND ALLOCATE SPACE FOR CNEW\r\nC     ********************************************************\r\nC\r\n      J = 0\r\n  800 CALL SUREAD (Z(SCORE+J),2,NOUT,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 810\r\n      J = J + 3\r\n      GO TO 800\r\n  810 NW = J - 3\r\n      DO 820 I = 1,NW,3\r\n      JJ = I - 1\r\n      Z(SCORE+JJ+2) = 0\r\n  820 CONTINUE\r\n      CALL OPEN (*2001,SCR2,Z(BUF2),0)\r\n  840 CALL READ (*860,*850,SCR2,ARAY,2,0,NNN)\r\n      ILOC = 3*ARAY(1) - 3\r\n      Z( SCORE+ILOC+2 ) = ORF(Z(SCORE+ILOC+2),ARAY(2))\r\n      GO TO 840\r\nC\r\nC     READ NEXT COMPONENT\r\nC\r\n  850 GO TO 840\r\nC\r\nC     PROCESSING COMPLETE\r\nC\r\n  860 CALL CLOSE (SCR2,1)\r\n      KS3   = SCORE\r\n      SCORE = SCORE + NW\r\n      KF3   = SCORE - 1\r\nC\r\nC     VIII. DEFINE PARTITIONING VECTORS PVX AND USX\r\nC     *********************************************\r\nC\r\n      CALL GOPEN (PVX,Z(BUF2),1)\r\nC\r\nC     GENERATE PVX DATA BLOCK IN CORE\r\nC\r\n      JJJ = 0\r\n      DO 900 I = 1,NW,3\r\n      ICODE = Z(KS3+I)\r\n      CALL DECODE (ICODE,LISTO,NROW)\r\n      DO 910 J = 1,NROW\r\n      RZ(SCORE+JJJ+J-1) = 0.0\r\n  910 CONTINUE\r\n      ICODE = Z(KS3+I+1)\r\n      CALL DECODE (ICODE,LISTN,NNEW)\r\n      DO 920 J = 1,NROW\r\n      LISTO(J) = LISTO(J) + 1\r\n  920 CONTINUE\r\n      IF (NNEW .EQ. 0) GO TO 960\r\n      DO 930 J = 1,NNEW\r\n      LISTN(J) = LISTN(J) + 1\r\n  930 CONTINUE\r\nC\r\nC     FIND DOF THAT REMAIN AT GIVEN IP\r\nC\r\n      DO 941 J  = 1,NNEW\r\n      DO 942 JJ = 1,NROW\r\n      IF (LISTN(J) .EQ. LISTO(JJ)) GO TO 943\r\n  942 CONTINUE\r\n      GO TO 941\r\n  943 IJK(J) = JJ\r\n  941 CONTINUE\r\n      DO 950 J = 1,NNEW\r\n      IK = IJK(J)\r\n      RZ(SCORE+JJJ+IK-1) = 1.0\r\n  950 CONTINUE\r\n  960 JJJ = JJJ + NROW\r\n  900 CONTINUE\r\nC\r\nC     SET PARAMETERS AND CALL PACK\r\nC\r\n      MCB(1) = PVX\r\n      MCB(2) = 0\r\n      MCB(3) = JJJ\r\n      MCB(4) = 2\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      INCR   = 1\r\n      IROW   = 1\r\n      NROW   = JJJ\r\n      CALL PACK (RZ(SCORE),PVX,MCB)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (PVX,1)\r\n      IF (LONLY) GO TO 1070\r\nC\r\nC     PROCESS USX USET EQUIVALENT\r\nC\r\n      CALL OPEN  (*2001,USX,Z(BUF2),1)\r\n      CALL FNAME (USX,ARAY )\r\n      CALL WRITE (USX,ARAY,2,0)\r\n      CALL WRITE (USX,0.0 ,1,0)\r\n      CALL WRITE (USX,0.0 ,1,1)\r\n      MCB(1) = USX\r\n      MCB(2) = 0\r\n      MCB(3) = JJJ\r\n      MCB(4) = 0\r\n      MCB(5) = IBA + IBO + IBF\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 975 J = 1,JJJ\r\n      JJ = J - 1\r\nCWKBDB 8/94 ALPHA-VMS      \r\nC      IF (RZ(SCORE+JJ) .EQ. 0.0) Z(SCORE+JJ) = IBF + IBO\r\nC      IF (RZ(SCORE+JJ) .EQ. 1.0) Z(SCORE+JJ) = IBF + IBA\r\nCWKBDE 8/94 ALPHA-VMS\r\nCWKBNB 8/94 ALPHA-VMS\r\n      IF (RZ(SCORE+JJ) .NE. 0.0) GO TO 976 \r\n      Z(SCORE+JJ) = IBF + IBO\r\n      GO TO 977\r\n976   IF (RZ(SCORE+JJ) .EQ. 1.0) Z(SCORE+JJ) = IBF + IBA\r\n977   CONTINUE\r\nCWKBNE 8/94 ALPHA-VMS\r\n  975 CONTINUE\r\n      CALL WRITE (USX,Z(SCORE),JJJ,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (USX,1)\r\nC\r\nC     IX. PROCESS THE SOF FOR THE REDUCED STRUCTURE\r\nC     *********************************************\r\nC\r\nC\r\nC     PROCESS THE EQSS FOR EACH COMPONENT SUBSTRUCTURE\r\nC\r\n      CALL OPEN (*2001,SCR1,Z(BUF1),1)\r\n      CALL SFETCH (NAMOLD,NHEQSS,1,ITEST)\r\nC\r\nC     UPDATE (SIL,C) REPLACING SIL WITH IPNEW\r\nC\r\n      IPNEW = 1\r\n      DO 1002 I = KS3,KF3,3\r\n      IF (Z(I+2)) 1003,1004,1003\r\n 1004 Z(I) = 0\r\n      GO TO 1002\r\n 1003 Z(I)  = IPNEW\r\n      IPNEW = IPNEW + 1\r\n 1002 CONTINUE\r\n      NIPNEW = IPNEW - 1\r\n      NGRP   = 1\r\n      CALL SJUMP (NGRP)\r\n      DO 1020 J = 1,NCSUB\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\nC\r\nC     WRITE EQSS ENTRY ON SCR1 IF THE OLD IP NUMBER STILL EXISTS IN THE\r\nC     REDUCED STRUCTURE, ALSO UPDATE DOF CODE.\r\nC\r\n      IF (NOUT .EQ. 0) GO TO 1015\r\n      DO 1010 I = 1,NOUT,3\r\n      II  = I - 1\r\n      IPO = Z(SCORE+II+1)\r\n      IADD= KS3 + (IPO-1)*3\r\n      IF (Z(IADD) .EQ. 0) GO TO 1010\r\n      ARAY(1) = Z(SCORE+II)\r\n      ARAY(2) = Z(IADD  )\r\n      ARAY(3) = Z(IADD+2)\r\n      CALL WRITE (SCR1,ARAY,3,0)\r\n 1010 CONTINUE\r\n 1015 CALL WRITE (SCR1,0,0,1)\r\n 1020 CONTINUE\r\nC\r\nC     GENERATE NEW MASTER (SIL,C) LIST\r\nC\r\n      ISIL = 1\r\n      DO 1030 I = KS3,KF3,3\r\n      IF (Z(I) .EQ. 0) GO TO 1030\r\n      ICODE = Z(I+2)\r\n      CALL DECODE (ICODE,LISTN,NDOF)\r\n      ARAY(1) = ISIL\r\n      ARAY(2) = Z(I+2)\r\n      CALL WRITE (SCR1,ARAY,2,0)\r\n      ISIL = ISIL + NDOF\r\n 1030 CONTINUE\r\n      CALL WRITE (SCR1,ARAY,0,1)\r\n      CALL CLOSE (SCR1,1)\r\n      IF (DRY .EQ. 0) GO TO 8612\r\nC\r\nC     WRITE FIRST GROUP OF EQSS\r\nC\r\n      CALL OPEN (*2001,SCR1,Z(BUF1),0)\r\n      CALL SETLVL (NAMNEW,1,NAMOLD,ITEST,28)\r\n      IF (ITEST .EQ. 8) GO TO 6518\r\n      ITEST = 3\r\n      CALL SFETCH (NAMNEW,NHEQSS,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (NAMNEW,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (NCSUB,1,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (NIPNEW,1,ITEST)\r\n      DO 1040 I = KS1,KF1,2\r\n      ITEST = 1\r\n      CALL SUWRT (Z(I),2,ITEST)\r\n 1040 CONTINUE\r\n      ITEST = 2\r\n      CALL SUWRT (Z(I),0,ITEST)\r\n 1043 CALL READ (*1041,*1042,SCR1,Z(SCORE),NZ,0,NNN)\r\n      GO TO 2004\r\n 1042 CALL SUWRT (Z(SCORE),NNN,2)\r\n      GO TO 1043\r\n 1041 ITEST = 3\r\n      CALL SUWRT (ARAY,0,ITEST)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     WRITE BGSS FILE\r\nC\r\n      CALL SFETCH (NAMOLD,NHBGSS,1,ITEST)\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      J = 0\r\nC\r\nC     THE CID S THAT BELONG TO POINTS THAT ARE COMPLETELY REDUCED\r\nC     WILL BE ACCUMULATED IN BUF3.\r\nC\r\n      JJJ1 = 2\r\n      DO 1050 I = 1,NOUT,4\r\n      II = I - 1\r\n      IF (Z(KS3+JJJ1)) 1052,1051,1052\r\n 1052 IF (Z(SCORE+II) .EQ. 0) GO TO 1053\r\n      Z(BUF3+J) = Z(SCORE+II)\r\n      J = J + 1\r\n      GO TO 1053\r\n 1051 Z(SCORE+II) = -1*TPOW(2)\r\n 1053 JJJ1 = JJJ1 + 3\r\n 1050 CONTINUE\r\n      NCSRED = J\r\n      ITEST = 3\r\n      CALL SFETCH (NAMNEW,NHBGSS,2,ITEST)\r\n      ITEST = 1\r\n      CALL SUWRT (NAMNEW,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (NIPNEW,1,ITEST)\r\n      DO 1055 I = 1,NOUT,4\r\n      II = I - 1\r\n      IF (Z(SCORE+II) .EQ. -TPOW(2)) GO TO 1055\r\n      ITEST = 1\r\n      CALL SUWRT (Z(SCORE+II),4,ITEST)\r\n 1055 CONTINUE\r\n      ITEST = 2\r\n      CALL SUWRT (ARAY,0,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (ARAY,0,ITEST)\r\nC\r\nC     PROCESS THE CSTM FILES\r\nC\r\n      IF (NCSRED .NE. 0) GO TO 1063\r\n      CALL SFETCH (NAMOLD,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 1070\r\n      CALL SUREAD (Z(SCORE),-2,NOUT,ITEST)\r\n      Z(SCORE  ) = NAMNEW(1)\r\n      Z(SCORE+1) = NAMNEW(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NAMNEW,NHCSTM,2,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(SCORE),NOUT,ITEST)\r\n      GO TO 1070\r\n 1063 CALL SFETCH (NAMOLD,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 1070\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\nC\r\nC     SORT THE DELETED CID S\r\nC\r\n      CALL SORT (0,0,1,1,Z(BUF3),NCSRED)\r\nC\r\nC     READ ALL RETAINED CSTM DATA INTO OPEN CORE\r\nC\r\n      J = 0\r\n 1065 CALL SUREAD (Z(SCORE+J),14,NOUT,ITEST)\r\n      IF (ITEST .EQ. 2) GO TO 1066\r\n      IF (Z(SCORE+J) .EQ. 0) GO TO 1065\r\n      KID = Z(SCORE+J)\r\n      CALL BISLOC (*1065,KID,Z(BUF3),1,NCSRED,JP)\r\n      J = J + 14\r\n      GO TO 1065\r\n 1066 ITEST = 3\r\n      CALL SFETCH (NAMNEW,NHCSTM,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (NAMNEW,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (Z(SCORE),J,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (ARAY,0,ITEST)\r\n 1070 CONTINUE\r\nC\r\nC     PROCESS LODS ITEM\r\nC\r\n      CALL SFETCH (NAMOLD,LITM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 1080\r\n      CALL SUREAD (Z(SCORE),-2,NOUT,ITEST)\r\n      Z(SCORE  ) = NAMNEW(1)\r\n      Z(SCORE+1) = NAMNEW(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NAMNEW,LITM,2,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(SCORE),NOUT,ITEST)\r\n 1080 CONTINUE\r\n      IF (LONLY) GO TO 8511\r\nC\r\nC     PROCESS PLTS ITEM\r\nC\r\n      CALL SFETCH (NAMOLD,NHPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 1090\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      Z(SCORE  ) = NAMNEW(1)\r\n      Z(SCORE+1) = NAMNEW(2)\r\n      ITEST = 3\r\n      CALL SFETCH (NAMNEW,NHPLTS,2,ITEST)\r\n      ITEST = 2\r\n      CALL SUWRT (Z(SCORE),NOUT,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(SCORE),0,ITEST)\r\n 1090 CONTINUE\r\nC\r\nC     PROCESS OUTPUT REQUESTS\r\nC\r\n      IF (ANDF(RSHIFT(PRTOPT,4),1) .NE. 1) GO TO 8211\r\nC\r\nC     WRITE EQSS FOR NEW STRUCTURE\r\nC\r\n      CALL SFETCH (NAMNEW,NHEQSS,1,ITEST)\r\n      CALL SUREAD (Z(SCORE),4,NOUT,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      IST = SCORE + NOUT\r\n      DO 8212 I = 1,NCSUB\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      IADD = SCORE + 2*(I-1)\r\n      CALL CMIWRT (1,NAMNEW,Z(IADD),IST,NOUT,Z,Z)\r\n 8212 CONTINUE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (8,NAMNEW,0,IST,NOUT,Z,Z)\r\n 8211 IF (ANDF(RSHIFT(PRTOPT,5),1) .NE. 1) GO TO 8311\r\nC\r\nC     WRITE NEW BGSS\r\nC\r\n      CALL SFETCH (NAMNEW,NHBGSS,1,ITEST)\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (2,NAMNEW,NAMNEW,IST,NOUT,Z,Z)\r\n 8311 IF (ANDF(RSHIFT(PRTOPT,6),1) .NE. 1) GO TO 8411\r\nC\r\nC     WRITE CSTM ITEM\r\nC\r\n      CALL SFETCH (NAMNEW,NHCSTM,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 8411\r\n      NGRP = 1\r\n      CALL SJUMP (NGRP)\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (3,NAMNEW,NAMNEW,IST,NOUT,Z,Z)\r\n 8411 IF (ANDF(RSHIFT(PRTOPT,7),1) .NE. 1) GO TO 8511\r\nC\r\nC     WRITE PLTS ITEM\r\nC\r\n      CALL SFETCH (NAMNEW,NHPLTS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 8511\r\n      IST = SCORE\r\n      CALL SUREAD (Z(IST),3,NOUT,ITEST)\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (4,NAMNEW,NAMNEW,IST,NOUT,Z,Z)\r\n 8511 IF (ANDF(RSHIFT(PRTOPT,8),1) .NE. 1) GO TO 8611\r\nC\r\nC     WRITE LODS ITEM\r\nC\r\n      CALL SFETCH (NAMNEW,LODS,1,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 8611\r\n      CALL SUREAD (Z(SCORE),4,NOUT,ITEST)\r\n      CALL SUREAD (Z(SCORE),-1,NOUT,ITEST)\r\n      IST   = SCORE + NOUT\r\n      ITYPE = 5\r\n      IF (LITM .EQ. LOAP) ITYPE = 7\r\n      DO 8512 I = 1,NCSUB\r\n      IADD = SCORE+2*(I-1)\r\n      CALL SUREAD (Z(IST),-1,NOUT,ITEST)\r\n      CALL CMIWRT (ITYPE,NAMNEW,Z(IADD),IST,NOUT,Z,Z)\r\n      ITYPE = 6\r\n 8512 CONTINUE\r\n 8611 CONTINUE\r\n      IF (LONLY) GO TO 1105\r\nC\r\nC     X. GENERATE THE INX OUTPUT DATA BLOCK\r\nC     *************************************\r\nC\r\n 8612 CALL GOPEN (INX,Z(BUF2),1)\r\n      MCB(1) = INX\r\n      MCB(2) = 0\r\n      MCB(3) = ISIL - 1\r\n      MCB(4) = 1\r\n      MCB(5) = 1\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      TYPIN  = 1\r\n      TYPOUT = 1\r\n      INCR   = 1\r\n      ISILM1 = ISIL - 1\r\n      DO 1100 I = 1,ISILM1\r\n      IROW = I\r\n      NROW = I\r\n      CALL PACK (1.0,INX,MCB)\r\n 1100 CONTINUE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (INX,1)\r\n 1105 CALL SOFCLS\r\n      RETURN\r\nC\r\n 2100 WRITE  (OUTT,2101) UFM\r\n 2101 FORMAT (A23,' 6535, MODULE REDUCE TERMINATING DUE TO ABOVE ',\r\n     1       'SUBSTRUCTURE CONTROL ERRORS.')\r\n      GO TO 2400\r\nC\r\n 2200 WRITE  (OUTT,2201) UFM\r\n 2201 FORMAT (A23,' 6536, MODULE REDUCE TERMINATING DUE TO ABOVE ',\r\n     1       'ERRORS IN BULK DATA.')\r\n      CALL CLOSE (GEOM4,1)\r\n      GO TO 2400\r\nC\r\n 2300 WRITE  (OUTT,2301) UFM\r\n 2301 FORMAT (A23,' 6537, MODULE REDUCE TERMINATING DUE TO ABOVE ',\r\n     1       'ERRORS.')\r\n 2400 DRY = -2\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\n 6518 WRITE  (OUTT,6519) UFM\r\n 6519 FORMAT (A23,' 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN ',\r\n     1       'USED IN A PREVIOUS COMBINE OR REDUCE.')\r\n      GO TO 2300\r\n 2001 IMSG = -1\r\n      GO TO 2998\r\n 2002 IMSG = -2\r\n      GO TO 2998\r\n 2003 IMSG = -3\r\n      GO TO 2998\r\n 2004 IMSG = -8\r\n 2998 CALL MESAGE (IMSG,IFILE,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/reig.f",
    "content": "      SUBROUTINE REIG\r\nC\r\nC     READ   KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,IPROB\r\nC            /V,N,NUMMOD/C,N,ICASE/C,N,XLAMDA $\r\nC\r\n      INTEGER         SYSBUF   ,EIGR(4)  ,ICORE(12),CASECC   ,FILE     ,\r\n     1                ERROR(3) ,FEERX    ,SDET     ,UDET     ,INV      ,\r\n     2                SINV     ,UINV     ,GIVI     ,STURM    ,GIVN(7)  ,\r\n     3                DM       ,EED      ,LAMA     ,PHIA     ,MI       ,\r\n     4                USET     ,POUT     ,SCR1     ,SCR2     ,SCR3     ,\r\n     5                SCR4     ,SCR5     ,SCR6     ,SCR7     ,OPTION   ,\r\n     6                SUBNAM(2),IX(7)    ,OPTN2\r\n      REAL            LMIN     ,LMAX     ,LFREQ    ,MB(1)\r\n      DOUBLE PRECISION DCORE(1)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM\r\n      COMMON /BLANK / IPROB(2) ,NUMMOD   ,ICASE    ,XLAMDA\r\n     1       /INVPWX/ IFILK(7) ,IFILM(7) ,IFILLM(7),IFILVC(7),ISCR1    ,\r\n     2                ISCR2    ,ISCR3    ,ISCR4    ,ISCR5    ,ISCR6    ,\r\n     3                ISCR7    ,ISCR8    ,IDUMP    ,LMIN     ,LMAX     ,\r\n     4                NOEST    ,NDPLUS   ,NDMNUS   ,EPS      ,NOVECT\r\n     5       /GIVN  / DUM(100) ,N        ,LFREQ    ,ORDER    ,D1       ,\r\n     6                HFREQ    ,D2       ,NV       ,NPRT     ,D4       ,\r\n     7                NFR\r\n      COMMON /FEERCX/ IFKAA(7) ,IFMAA(7) ,IFLELM(7),IFLVEC(7),SR1FLE   ,\r\n     1                SR2FLE   ,SR3FLE   ,SR4FLE   ,SR5FLE   ,SR6FLE   ,\r\n     2                SR7FLE   ,SR8FLE   ,DMPFLE   ,NORD     ,XLMBDA   ,\r\n     3                NEIG     ,MORD     ,IBK      ,CRITF    ,NORTHO   ,\r\n     4                IFLRVA   ,IFLRVC   ,IEPX\r\n     5       /NTIME / LNTIME   ,TCONS(15)\r\n     6       /REGEAN/ IM(7)    ,IK(7)    ,IEV(7)   ,SCR1     ,SCR2     ,\r\n     7                SCR3     ,SCR4     ,SCR5     ,LCORE    ,RMAX     ,\r\n     8                RMIN     ,MZ       ,NEV      ,EPSI     ,RMINR    ,\r\n     9                NE       ,NIT      ,NEVM     ,SCR6     ,SCR7     ,\r\n     O                NFOUND   ,LAMDA    ,IBUCK    ,NSYM\r\n      COMMON /STURMX/ STURM    ,SHFTPT   ,KEEP     ,PTSHFT   ,NR       ,\r\n     1                SHFTZO\r\n     2       /REIGKR/ OPTION   ,OPTN2\r\n     3       /SYSTEM/ SYSBUF   ,NOUT     ,NOGO     ,KSYS(51) ,JPREC\r\n      COMMON /CONDAS/ PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                FPS\r\n      COMMON /PACKX / ITP1     ,ITP2     ,IIP      ,JJP      ,INCRP\r\n      COMMON /UNPAKX/ ITU      ,IIU      ,JJU      ,INCRU\r\n     1       /ZZZZZZ/ CORE(1)\r\n      EQUIVALENCE     (GIVN(1) ,CORE(1))\r\n      EQUIVALENCE     (TCONS(4),APC    ) ,(TCONS(5),APU      ) ,\r\n     1                (TCONS(8),MB(1)  ) ,(ERROR(2),SUBNAM(1)) ,\r\n     2                (DCORE(1) ,CORE(1) ,ICORE (1))\r\n      DATA            EIGR                                   ,CASECC/\r\n     1                307      ,3        ,107      ,1        ,107   /,\r\n     2                SDET     ,UDET     ,INV      ,SINV     ,I0    /\r\n     3                4HSDET   ,4HUDET   ,4HINV    ,4HSINV   ,0     /,\r\n     4                UINV     ,GIVI     ,KAA      ,MAA      ,MR    /\r\n     5                4HUINV   ,4HGIV    ,101      ,102      ,103   /,\r\n     6                DM       ,EED      ,USET     ,LAMA     ,PHIA  /\r\n     7                104      ,105      ,106      ,201      ,202   /,\r\n     8                MI       ,POUT     ,ICR1     ,ICR2     ,MODE  /\r\n     9                203      ,204      ,301      ,302      ,4HMODE/,\r\n     O                ERROR                        ,FEERX    ,MGIV  /\r\n     1                4HEED    ,4HREIG   ,4H       ,4HFEER   ,4HMGIV/\r\nC\r\nC\r\n      IBUCK  = 1\r\n      LCORE  = KORSZ(CORE) - SYSBUF - 3\r\n      LLCORE = LCORE - SYSBUF\r\n      CALL GOPEN (LAMDA,CORE(LCORE+1),1)\r\n      CALL CLOSE (LAMDA,2)\r\n      IF (IPROB(1) .NE. MODE) IBUCK = 3\r\n      STURM  = -1\r\n      KEEP   = 0\r\n      SHFTPT = 0.0\r\n      PTSHFT = 0.0\r\n      NR     = 0\r\n      SHFTZO = 0.0\r\n      CALL OPEN (*10,CASECC,CORE(LCORE+1),0)\r\n      CALL SKPREC (CASECC,ICASE)\r\n      CALL FREAD (CASECC,ICORE,166,1)\r\n      CALL CLOSE (CASECC,1)\r\n      METHOD = ICORE(5)\r\n      GO TO 20\r\n   10 METHOD = -1\r\n   20 FILE   = EED\r\n      CALL PRELOC (*170,CORE(LCORE+1),EED)\r\n      CALL LOCATE (*40,CORE(LCORE+1),EIGR(IBUCK),IFLAG)\r\n   30 CALL READ (*40,*40,EED,CORE(1),18,0,IFLAG)\r\n      IF (METHOD.EQ.ICORE(1) .OR. METHOD.EQ.-1) GO TO 50\r\n      GO TO 30\r\nC\r\nC     NO SET NUMBER FOUND\r\nC\r\n   40 CALL MESAGE (-32,METHOD,ERROR)\r\nC\r\nC     FOUND DATA CARD\r\nC\r\n   50 NORM = ICORE(10)\r\n      CALL CLOSE (EED,1)\r\nC\r\nC     TEST THE SIZE OF THE K AND M MATRICES VIA THEIR TRAILERS\r\nC\r\n      CALL RDTRL (IK(1))\r\n      CALL RDTRL (IM(1))\r\n      IF (IM(2).EQ.IK(2) .AND. IM(3).EQ.IK(3)) GO TO 51\r\nC\r\nC     K AND M MATRICES ARE NOT OF THE SAME SIZE\r\nC\r\n      WRITE  (NOUT,200) UFM\r\n  200 FORMAT (A23,' 3131, INPUT STIFFNESS AND MASS MATRICES ARE NOT ',\r\n     1       'COMPATIBLE.')\r\n      CALL MESAGE (-37,0,ERROR(2))\r\nC\r\nC     K AND M MATRICES ARE COMPATIBLE\r\nC\r\n   51 CONTINUE\r\nC\r\nC     CHECK TO SEE IF THE INPUT STIFFNESS AND/OR MASS MATRIX IS NULL\r\nC\r\n      IF (IK(6).EQ.0 .OR. IM(6).EQ.0) CALL MESAGE (-60,0,0)\r\nC\r\nC     SET FLAG FOR THE METHOD OF ANALYSIS AND THE PROPER\r\nC     TYPE OF DECOMPOSITION\r\nC\r\n      OPTION = ICORE(2)\r\n      OPTN2  = ICORE(3)\r\n      IF (OPTION.EQ.GIVI .OR. OPTION.EQ.UDET .OR. OPTION.EQ.UINV)\r\n     1    GO TO 53\r\n      IF (OPTION.EQ.FEERX .OR. OPTION.EQ.MGIV) GO TO 53\r\n      IF (OPTION.EQ.SDET  .OR. OPTION.EQ.SINV) GO TO 52\r\n      OPTION = UDET\r\n      IF (ICORE(2) .EQ. INV) OPTION = UINV\r\n      IF (IM(4).NE.6 .OR. IK(4).NE.6) GO TO 53\r\n      OPTION = SDET\r\n      IF (ICORE(2) .EQ. INV) OPTION = SINV\r\n      GO TO 53\r\n   52 IF (IM(4).EQ.6 .AND. IK(4).EQ.6) GO TO 53\r\n      WRITE (NOUT,2100) UWM\r\n      OPTION = UDET\r\n      IF (ICORE(2) .EQ. SINV) OPTION = UINV\r\n   53 ISIL  = ICORE(12)\r\n      I     = 9\r\n      EPSII = CORE(I)\r\n      IF (IBUCK .EQ. 3) GO TO 60\r\nC\r\nC     CONVERT FREQUENCY TO LAMDA\r\nC\r\n      IF ((ICORE(2).EQ.GIVI .OR. ICORE(2).EQ.MGIV) .AND. ICORE(7).GT.0)\r\n     1    GO TO 55\r\n      IF (CORE(I0+4) .GE. 0.0) GO TO 55\r\n      WRITE (NOUT,2000) UWM\r\n      CORE(I0+4) = 0.0\r\n   55 CORE(I0+4) = FPS*CORE(I0+4)*CORE(I0+4)\r\n      IF (ICORE(2) .NE. FEERX) CORE(I0+5) = FPS*CORE(I0+5)*CORE(I0+5)\r\n   60 CONTINUE\r\n      CORE4  = CORE(I0+4)\r\n      CORE5  = CORE(I0+5)\r\n      ICORE6 = ICORE(6)\r\n      ICORE7 = ICORE(7)\r\n      ICORE8 = ICORE(8)\r\n      IF (ICORE(2).EQ.GIVI .OR. ICORE(2).EQ.MGIV) GO TO 70\r\n      IF (ICORE(2) .EQ. FEERX) GO TO 65\r\n      IF (ICORE(7) .EQ. 0) ICORE(7) = 3*ICORE(6)\r\n      ICORE7 = ICORE(7)\r\nC\r\nC     FEER, INVERSE POWER AND DETERMINANT METHODS\r\nC\r\nC     CHECK IF IT IS A NORMAL MODES PROBLEM OR A BUCKLING PROBLEM\r\nC\r\n   65 IF (IBUCK .EQ. 3) GO TO 80\r\nC\r\nC     NORMAL MODES PROBLEM\r\nC\r\nC     CHECK FOR APPEND\r\nC\r\n      IF (NUMMOD .LE. 0) GO TO 70\r\n      IX(1) = PHIA\r\n      CALL RDTRL (IX)\r\n      IF (IX(1).LE.0 .OR. IX(2).LE.0) GO TO 70\r\nC\r\nC     NEW EIGENVALUES AND EIGENVECTORS WILL BE APPENDED TO THOSE\r\nC     PREVIOUSLY CHECKPOINTED\r\nC\r\n      NR = IX(2)\r\n      IF (NUMMOD .LT. NR) NR = NUMMOD\r\n      WRITE (NOUT,2200) UIM,NR\r\nC\r\nC     RETRIEVE EIGENVALUES AND EIGENVECTORS PREVIOUSLY CHECKPOINTED.\r\nC\r\nC     COPY OLD EIGENVALUES FROM LAMA FILE TO ICR1 FILE.\r\nC\r\nC     COPY OLD EIGENVECTORS FROM PHIA FILE TO ICR2 FILE.\r\nC\r\n      CALL READ7 (NR,LAMA,PHIA,ICR1,ICR2)\r\n      GO TO 80\r\nC\r\nC     NO APPEND\r\nC\r\nC     CHECK IF RIGID BODY MODES ARE TO BE COMPUTED SEPARATELY\r\nC\r\n   70 IX(1) = MR\r\n      CALL RDTRL (IX)\r\n      IF (IX(1) .LT. 0) GO TO 75\r\nC\r\nC     COMPUTE RIGID BODY MODES\r\nC\r\n      CALL READ1 (DM,MR,SCR4,SCR5,SCR3,ICR2,USET,NR,ICR1,SCR6)\r\nC\r\nC     RIGID BODY EIGENVALUES ARE ON ICR1\r\nC\r\nC     RIGID BODY EIGENVECTORS ARE ON ICR2\r\nC\r\n   75 IF (OPTION.EQ.GIVI .OR. OPTION.EQ.MGIV) GO TO 100\r\n   80 IF (OPTION .EQ.FEERX) GO TO  95\r\n      IF (OPTION .EQ. SDET) GO TO 109\r\n      IF (OPTION .EQ. UDET) GO TO 110\r\nC\r\nC\r\nC     INVERSE POWER METHOD\r\nC     ********************\r\nC\r\n      LMIN   = CORE4\r\n      LMAX   = CORE5\r\n      NOEST  = ICORE6\r\n      NDPLUS = ICORE7\r\n      NDMNUS = 0\r\n      IF (IBUCK .EQ. 3) NDMNUS = ICORE8\r\n      EPS = EPSII\r\n      IF (EPS .LE.      0.) EPS = .0001\r\n      IF (EPS .LT. .000001) EPS = .000001\r\n      CALL RDTRL (IFILK(1))\r\n      CALL RDTRL (IFILM(1))\r\n      NOVECT = NR\r\n      CALL INVPWR\r\n      METHOD = 2\r\n      NUMMOD = NOVECT\r\n      GO TO 140\r\nC\r\nC\r\nC     FEER METHOD\r\nC     ***********\r\nC\r\n   95 IFLRVA = ICR1\r\n      IFLRVC = ICR2\r\n      XLMBDA = CORE4\r\n      NEIG   = ICORE7\r\n      IEPX   = ICORE8\r\n      IF (IBUCK .EQ. 3) NEIG = ICORE6\r\n      NORTHO = NR\r\n      CRITF  = CORE5\r\n      IX(1)  = KAA\r\n      CALL RDTRL (IX)\r\n      N = IX(2)\r\n      IF (CRITF .EQ. 0.) CRITF = .001/N\r\n      CALL FEER\r\n      METHOD = 2\r\n      NUMMOD = MORD + NR\r\n      CALL SSWTCH (26,L26)\r\n      IF (NUMMOD.GT.NEIG .AND. L26.NE.0) NUMMOD = NEIG\r\n      IFILK(2) = NORD\r\n      GO TO 140\r\nC\r\nC\r\nC     GIVENS METHOD\r\nC     *************\r\nC\r\n  100 LFREQ = CORE4\r\n      HFREQ = CORE5\r\n      METHOD= 3\r\n      NFR   = NR\r\n      NPRT  = ICORE6\r\n      NV    = ICORE7\r\n      GIVN(   1) = KAA\r\n      GIVN(I0+2) = MAA\r\n      GIVN(I0+3) = PHIA\r\n      DO 105 I = 1,4\r\n  105 GIVN(I+3) = EIGR(I)\r\n      CALL GIVENS\r\n      NNV = GIVN(1)\r\n      NUMMOD = N\r\n      GO TO 145\r\nC\r\nC\r\nC     DETERMINANT METHOD\r\nC     ******************\r\nC\r\n  109 NSYM  = 1\r\n  110 METHOD= 4\r\n      RMIN  = CORE4\r\n      RMAX  = CORE5\r\n      IF (RMIN .EQ. 0.0 ) RMIN = RMAX*1.0E-4\r\n      RMINR = -.01*RMIN\r\n      NEV   = ICORE6\r\n      IF (IBUCK.EQ.3 .AND. EPSII.NE.0.0) EPSI = EPSII\r\n      NEVM  = ICORE7\r\n      CALL RDTRL (IM(1))\r\n      IEV(3) = IK(3)\r\n      IF (NEVM .GT. IK(3)) NEVM = IK(3)\r\n      MZ = NR\r\nC\r\nC     PICK UP UNREMOVED FREE BODY MODES\r\nC\r\n      IF (ICORE8 .GT. NR) MZ = -ICORE8\r\n      IEV(2) = NR\r\n      CALL DETM\r\n      NUMMOD = NFOUND + NR\r\n      IFILK(2) = IEV(3)\r\nC\r\nC     SORT EIGENVECTORS AND VALUES\r\nC\r\n  140 IF (NUMMOD .EQ. 0) GO TO 160\r\n      CALL READ3 (NUMMOD,IFILK(2),LAMDA,IEV,PHIA,LAMA)\r\n  145 IF (METHOD.EQ.2 .OR. NUMMOD.EQ.1) GO TO 150\r\nC\r\nC     CHECK ORTHOGONALITY\r\nC\r\n      IFILVC(1) = PHIA\r\n      CALL RDTRL (IFILVC(1))\r\n      CALL READ4 (LAMA,IFILVC(1),SCR1,EPSII,MAA)\r\n  150 CONTINUE\r\nC\r\nC     SET FLAG FOR GIVENS METHOD FOR USE IN READ2 ROUTINE\r\nC\r\n      DUM(1) = 0.0\r\n      IF (METHOD .EQ. 3) DUM(1) = 1.0\r\n      NV = NNV\r\nC\r\nC     FORM MODAL MASS, NORMALIZE AND FORM SUMMARY FILE.\r\nC\r\n      CALL READ2 (MAA,PHIA,SCR1,NORM,ISIL,XXX,MI,LAMA,POUT,ICR2,\r\n     1            EPSII,SCR6)\r\n      GO TO 165\r\n  160 NUMMOD = -1\r\n      CALL READ5 (POUT)\r\n  165 IF (NOGO .EQ. 14) WRITE (NOUT,166)\r\n  166 FORMAT ('0*** THIS NASTRAN JOB WILL BE TERMINATED')\r\n      RETURN\r\nC\r\n  170 IP1 = -1\r\n  180 CALL MESAGE (IP1,FILE,SUBNAM)\r\n      GO TO 180\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 2000 FORMAT (A25,' 2367, FREQUENCY F1 (FIELD 4) ON THE EIGR BULK DATA',\r\n     1       ' CARD IS NEGATIVE', /5X,\r\n     2        'IT IS ASSUMED TO BE ZERO FOR CALCULATION PURPOSES.',/)\r\n 2100 FORMAT (A25,' 2368, SYMMETRIC DECOMPOSITION IS SPECIFIED ON THE ',\r\n     1        'EIGR BULK DATA CARD, BUT', /5X,\r\n     2        'UNSYMMETRIC DECOMPOSITION WILL BE USED AS THIS IS THE ',\r\n     3        'PROPER TYPE OF DECOMPOSITION FOR THIS PROBLEM.')\r\n 2200 FORMAT (A29,' 3143, THE EIGENVALUES AND EIGENVECTORS FOUND IN ',\r\n     1        'THIS ANALYSIS WILL BE APPENDED', /5X,'TO THE',I8,\r\n     2        ' EIGENVALUES AND EIGENVECTORS COMPUTED EARLIER.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/relabl.f",
    "content": "      SUBROUTINE RELABL (NS,NODES,IG,IC,IDEG,IDIS,IW,NEW,ICC,ILD,IAJ,\r\n     1                   JG,IDIM)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     GENERATE A RELABELING SCHEME STARTING WITH NS NODES FOR WHICH\r\nC     LABELS HAVE BEEN STORED IN ARRAY NODES.\r\nC     SET UP ILD AND NEW.\r\nC     ILD(OLD) = NEW\r\nC     NEW(NEW) = OLD, THE INVERSE OF ILD\r\nC     IAJ IS DIMENSIONED TO IDIM\r\nC\r\n      INTEGER         X\r\n      DIMENSION       IG(1),    IC(1),    IDEG(1),  IDIS(1),  IW(1),\r\n     1                NEW(1),   ICC(1),   ILD(1),   NODES(1), IAJ(1),\r\n     2                JG(1)\r\n      COMMON /BANDS / NN,       DUMS(3),  MAXGRD\r\n      COMMON /SYSTEM/ IBUF,     NOUT\r\nC\r\n      I   = NODES(1)\r\n      ICN = IC(I)\r\n      NT  = ICC(ICN) - 1\r\n      DO 90 I = 1,NN\r\n      IF (IC(I)-ICN) 90,80,90\r\n 80   IDIS(I) = 0\r\n 90   CONTINUE\r\n      DO 100 J = 1,NS\r\n      JJ = NODES(J)\r\n      IDIS(JJ) =-1\r\n      JT = J + NT\r\n      NEW(JT) = JJ\r\n 100  ILD(JJ) = JT\r\n      KI = NT\r\n      KO = NS + NT\r\n      LL = KO\r\n      L  = 1\r\n      J  = KO\r\n      NNC= ICC(ICN+1) - 1\r\n 110  KI = KI + 1\r\n      IF (KI-LL) 130,120,130\r\n 120  L  = L  + 1\r\n      LL = KO + 1\r\n 130  II = NEW(KI)\r\n      N  = IDEG(II)\r\n      IF (N) 140,270,140\r\n 140  IJ = 0\r\n      CALL BUNPAK (IG,II,N,JG)\r\n      DO 170 I = 1,N\r\n      IA = JG(I)\r\n      IF (IDIS(IA)) 170,150,170\r\n 150  IJ = IJ + 1\r\n      IF (IJ .LE. IDIM) GO TO 160\r\nC\r\nC     DIMENSION EXCEEDED.  STOP JOB.\r\nC\r\n      NGRID = -2\r\n      RETURN\r\nC\r\n 160  IDIS(IA) = L\r\n      KO       = KO + 1\r\n      IAJ(IJ)  = IA\r\n      IW(IJ)   = IDEG(IA)\r\n 170  CONTINUE\r\n      IF (IJ-1) 260,180,190\r\n 180  J  = KO\r\n      IZ = IAJ(1)\r\n      NEW(KO) = IZ\r\n      ILD(IZ) = KO\r\n      GO TO 260\r\n 190  X = 0\r\n      DO 230 I = 2,IJ\r\n      IF (IW(I)-IW(I-1)) 210,230,230\r\n 210  CONTINUE\r\n      X = IW(I)\r\n      IW(I  ) = IW(I-1)\r\n      IW(I-1) = X\r\n      X = IAJ(I)\r\n      IAJ(I  ) = IAJ(I-1)\r\n      IAJ(I-1) = X\r\n 230  CONTINUE\r\n      IF (X) 240,240,190\r\n 240  DO 250 I = 1,IJ\r\n      J  = J + 1\r\n      IZ = IAJ(I)\r\n      NEW(J ) = IZ\r\n      ILD(IZ) = J\r\n 250  CONTINUE\r\n 260  IF (KO-NNC) 110,270,270\r\n 270  CONTINUE\r\nC\r\nC     REVERSE SEQUENCE FOR THIS COMPONENT (ICN).\r\nC\r\nC     ICC IS AN ARRAY USED FOR IDENTIFYING COMPONENTS IN THE NEW ARRAY.\r\nC     ICC(N1) CONTAINS THE INDEX FOR THE NEW ARRAY AT WHICH COMPONENT\r\nC         N1 STARTS.\r\nC\r\n      N1 = ICC(ICN) - 1\r\n      N2 = NN - ICC(ICN+1) + 1\r\n      IF (N2 .GT. NN) N2 = 0\r\nC\r\nC     REVERSE THE NODAL CM SEQUENCE, OMITTING THE FIRST N1 AND THE LAST\r\nC     N2 POINTS.\r\nC\r\nC     NEW(N1) = OLD LABEL FOR NODE NOW LABELLED N1.\r\nC     ILD(N1) = NEW LABEL FOR NODE ORIGINALLY LABELED N1.\r\nC     N1      = NUMBER OF POINTS AT BEGINNING OF SEQUENCE TO OMIT FROM\r\nC               REVERSAL.\r\nC     N2      = NUMBER OF POINTS AT END OF SEQUENCE TO OMIT FROM\r\nC               REVERSAL.\r\nC     NN      = NUMBER OF NODES.\r\nC     J       = NUMBER OF INTERCHANGES TO MAKE.\r\nC\r\n      J  = (NN-N1-N2)/2\r\n      IF (J .LE. 0) RETURN\r\n      LL = NN - N2 + 1\r\nC\r\nC     MAKE INTERCHANGES IN NEW ARRAY.\r\nC\r\n      DO 290 I = 1,J\r\n      L = LL - I\r\n      K = NEW(L)\r\n      M = N1 + I\r\n      NEW(L) = NEW(M)\r\n 290  NEW(M) = K\r\nC\r\nC     CORRECT ILD, THE INVERSE OF NEW.\r\nC\r\n      L = 1  + N1\r\n      M = NN - N2\r\n      DO 300 I = L,M\r\n      K = NEW(I)\r\n 300  ILD(K) = I\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/remflx.f",
    "content": "      SUBROUTINE REMFLX (NGRIDS)\r\nC\r\nC     CHECK FOR REMFLUX IN MAGNETIC FIELD PROBLEMS WHEN COMPUTING\r\nC     PROLATE SPHEROIDAL COEFFICIENTS\r\nC\r\n      LOGICAL         REMFL,HITONE\r\n      INTEGER         REMFLD,SCR1,BUF1,BUF3,BUF2,HEST,MCB(7),FILE,\r\n     1                POINTR(6,19),IPOINT(32),DIT,DITFIL,ELTYPE,ESTWDS\r\n      DIMENSION       NAM(2),REM(3),ECPT(200),NECPT(200),IZ(1),G(3,3),\r\n     1                IWORK(3,3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /GPTA1 / NELEMS,LAST,INCR,NE(1)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /HMTOUT/ XMAT(6)\r\n      COMMON /HMATDD/ IIHMAT,NNHMAT,MPTFIL,DITFIL\r\n      COMMON /UNPAKX/ JOUT,II,NN,JNCR\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BIOT  / DUM(10),BUF1,REMFL,LCORE\r\n      EQUIVALENCE     (Z(1),IZ(1)),(ECPT(1),NECPT(1))\r\n      DATA    REMFLD, HEST,MPT,DIT, SCR1/\r\n     1        107   , 108 ,109,110, 301 /\r\n      DATA    NAM   / 4HREMF  ,4HLX     /\r\nC\r\nC                   TYPE  ISIL   MID   ITH NGRIDS ITEMP\r\nC\r\n      DATA    POINTR/ 1,    2,    4,    0,    2,    17,\r\n     1                3,    2,    4,    0,    2,    16,\r\n     2                6,    2,    6,    5,    3,    27,\r\n     3                9,    2,    6,    5,    3,    21,\r\n     4               10,    2,    4,    0,    2,    17,\r\n     5               16,    2,    7,    6,    4,    26,\r\n     6               17,    2,    6,    5,    3,    21,\r\n     7               18,    2,    7,    6,    4,    26,\r\n     8               19,    2,    7,    6,    4,    32,\r\n     9               34,    2,   16,    0,    2,    42,\r\n     O               36,    2,    6,    5,    3,    19,\r\n     1               37,    2,    7,    6,    4,    24,\r\n     2               39,    3,    2,    0,    4,    23,\r\n     3               40,    3,    2,    0,    6,    33,\r\n     4               41,    3,    2,    0,    8,    43,\r\n     5               42,    3,    2,    0,    8,    43,\r\n     6               65,    2,   10,    0,    8,    48,\r\n     7               66,    2,   22,    0,   20,   108,\r\n     8               67,    2,   34,    0,   32,   168  /\r\nC\r\n      REMFL  = .FALSE.\r\n      MCB(1) = REMFLD\r\n      CALL RDTRL (MCB)\r\nC\r\nC     CHECK FOR ANY REMFLUX\r\nC\r\n      IF (MCB(6) .EQ. 0) RETURN\r\nC\r\nC     TOO BAD\r\nC\r\n      REMFL  = .TRUE.\r\n      NCOL   = MCB(2)\r\n      NROW   = MCB(3)\r\n      NCOUNT = NROW/3\r\nC\r\nC     BRING IN MATERIALS SINCE H=B/MU\r\nC\r\n      IIHMAT = NGRIDS\r\n      NNHMAT = LCORE\r\n      MPTFIL = MPT\r\n      DITFIL = DIT\r\n      CALL PREHMA (Z)\r\n      NEXTZ  = NNHMAT + 1\r\nC\r\n      BUF2   = BUF1 - IBUF\r\n      BUF3   = BUF2 - IBUF\r\nC\r\nC     SET UP POINTERS\r\nC     IHC = START OF RESULTS HC = B/MU\r\nC     IREM= REMFL COLUMN\r\nC     ICT = COUNTER FOR NUMBER OF ELEMENTS AT EACH PROLATE GRID (FOR\r\nC     AVERAGING\r\nC\r\n      IHC  = NEXTZ\r\n      IREM = IHC + 3*NGRIDS\r\n      ICT  = IREM + NROW\r\n      IF (BUF3 .LT. ICT+NGRIDS) GO TO 1008\r\nC\r\n      CALL GOPEN (SCR1,Z(BUF1),1)\r\n      CALL GOPEN (REMFLD,Z(BUF2),0)\r\n      CALL GOPEN (HEST,Z(BUF3),0)\r\nC\r\n      II = 1\r\n      NN = NROW\r\n      JNCR = 1\r\n      JOUT = 1\r\n      JCOUNT = 0\r\nC\r\n    3 DO 5 I = 1,NGRIDS\r\n    5 IZ(ICT+I) = 0\r\n      N3 = 3*NGRIDS\r\n      DO 6 I = 1,N3\r\n    6 Z(IHC+I) = 0.\r\nC\r\nC     UNPACK A COULMN OF REMFLD\r\nC\r\n      JCOUNT = JCOUNT + 1\r\n      CALL UNPACK (*20,REMFLD,Z(IREM+1))\r\n      GO TO 40\r\nC\r\nC     ZERO COLUMN\r\nC\r\n   20 DO 30 I = 1,N3\r\n   30 Z(IHC+I) = 0.\r\n      GO TO 130\r\nC\r\nC     SINCE THE ELEMENT DATA DO NOT CHANGE WITH REMFLD COLIMN, THIS IS\r\nC     NOT NECESSARILY THE BEST KIND OF LOOPING. BUT OTHER WAYS WOULD\r\nC     NEED MORE CORE AND IF THERE IS MORE THAN ONE REMFLUX CASE, IT\r\nC     WOULD BE A SURPRISE\r\nC\r\n   40 FILE  = HEST\r\n      KOUNT = 0\r\n   45 CALL READ (*100,*1003,HEST,ELTYPE,1,0,IFLAG)\r\n      IDX   = (ELTYPE-1)*INCR\r\n      ESTWDS= NE(IDX+12)\r\nC\r\nC     PICK UP ELEMENT TYPE INFO\r\nC\r\n      DO 50 I = 1,19\r\n      JEL = I\r\n      IF (ELTYPE-POINTR(1,I)) 500,60,50\r\n   50 CONTINUE\r\n      GO TO 500\r\nC\r\n   60 ISIL  = POINTR(2,JEL)\r\n      IMID  = POINTR(3,JEL)\r\n      ITH   = POINTR(4,JEL)\r\n      IGRIDS= POINTR(5,JEL)\r\n      ITEMP = POINTR(6,JEL)\r\nC\r\n   65 CALL READ (*1002,*45,HEST,ECPT,ESTWDS,0,IFLAG)\r\nC\r\nC     PICK UP REMFLUX FOR THIS ELEMENT\r\nC\r\n      KOUNT = KOUNT + 1\r\n      NHIT  = 0\r\n      HITONE= .FALSE.\r\n      DO 650 I = 1,IGRIDS\r\n  650 IPOINT(I) = 0\r\n      DO 68 I = 1,NGRIDS\r\n      DO 66 J = 1,IGRIDS\r\n      IPT = NECPT(ISIL+J-1)\r\n      IF (IPT .EQ. IZ(I)) GO TO 67\r\n   66 CONTINUE\r\n      GO TO 68\r\nC\r\nC     MATCH\r\nC\r\n   67 HITONE = .TRUE.\r\n      NHIT   = NHIT + 1\r\n      IZ(ICT+I) = IZ(ICT+I) + 1\r\n      IPOINT(J) = I\r\n      IF (NHIT .EQ. IGRIDS) GO TO 69\r\n   68 CONTINUE\r\n      IF (.NOT.HITONE) GO TO 65\r\n   69 CONTINUE\r\nC\r\n      ISUB   = IREM + 3*(KOUNT-1)\r\n      REM(1) = Z(ISUB+1)\r\n      REM(2) = Z(ISUB+2)\r\n      REM(3) = Z(ISUB+3)\r\nC\r\nC     PICK UP MATERIALS\r\nC\r\n      MATID  = NECPT(IMID)\r\n      ELTEMP = ECPT(ITEMP)\r\n      INFLAG = 3\r\n      SINTH  = 0.\r\n      COSTH  = 0.\r\n      CALL HMAT (NECPT(1))\r\n      G(1,1) = XMAT(1)\r\n      G(1,2) = XMAT(2)\r\n      G(1,3) = XMAT(3)\r\n      G(2,1) = XMAT(2)\r\n      G(2,2) = XMAT(4)\r\n      G(2,3) = XMAT(5)\r\n      G(3,1) = XMAT(3)\r\n      G(3,2) = XMAT(5)\r\n      G(3,3) = XMAT(6)\r\nC\r\nC     FOR COMMENTS ON MATERIALS SEE EM2D\r\nC\r\n      IF (ITH .EQ. 0) GO TO 80\r\n      ANGLE = ECPT(ITH)*0.017453293\r\n      IF (XMAT(3).EQ.0. .AND. XMAT(5).EQ.0.) GO TO 70\r\n      GO TO 80\r\n   70 IF (ABS(ANGLE) .LE. .0001) GO TO 80\r\n      S   = SIN(ANGLE)\r\n      C   = COS(ANGLE)\r\n      CSQ = C*C\r\n      SSQ = S*S\r\n      CS  = C*S\r\n      X2  = 2.*CS*XMAT(2)\r\n      G(1,1) = CSQ*XMAT(1) - X2 + SSQ*XMAT(4)\r\n      G(1,2) = CS*(XMAT(1) - XMAT(4)) + (CSQ-SSQ)*XMAT(2)\r\n      G(2,2) = SSQ*XMAT(1) + X2 + CSQ*XMAT(4)\r\n      G(2,1) = G(1,2)\r\n      G(3,3) = XMAT(6)\r\n      G(1,3) = 0.\r\n      G(2,3) = 0.\r\n      G(3,1) = 0.\r\n      G(3,2) = 0.\r\nC\r\nC     SINCE MAT5 INFO FOR TRAPRG,TRIARG IS GIVEN IN X-Y ORDER,\r\nC     INETRCHANGE YA AND Z\r\nC\r\n      TEMP   = G(2,2)\r\n      G(2,2) = G(3,3)\r\n      G(3,3) = TEMP\r\n      TEMP   = G(1,2)\r\n      G(1,2) = G(1,3)\r\n      G(1,3) = TEMP\r\n      G(2,1) = G(1,2)\r\n      G(3,1) = G(1,3)\r\nC\r\nC     SOLVE MU*H = B\r\nC\r\n   80 CALL INVERS (3,G,3,REM,1,DET,ISING,IWORK)\r\n      IF (ISING .EQ. 2) GO TO 510\r\nC\r\nC     REM NOW HAS HC- CHECK POINTER LIST TO SEE WHICH GRIDS ARE ON THE\r\nC     SPHEROID AND ADD REMFLUX T THOSE ALREADY ACCUMULATED\r\nC\r\n      DO 90 I = 1,IGRIDS\r\n      IF (IPOINT(I) .EQ. 0) GO TO 90\r\n      ISUB = IHC + 3*(IPOINT(I)-1)\r\n      DO 85 J = 1,3\r\n      Z(ISUB+J) = Z(ISUB+J) + REM(J)\r\n   85 CONTINUE\r\n   90 CONTINUE\r\nC\r\nC     GO BACK FOR ANOTHER ELEMEENT\r\nC\r\n      GO TO 65\r\nC\r\nC     DONE WITH ALL TYPES-AVERAGE THE RESULTS BY NUMBER OF ELEMENTS AT\r\nC     EACH\r\nC\r\n  100 DO 120 I = 1,NGRIDS\r\n      DEN = FLOAT(IZ(ICT+I))\r\n      IF (DEN .EQ. 0.) GO TO 120\r\n      ISUB = 3*(I-1) + IHC\r\n      DO 110 J = 1,3\r\n      Z(ISUB+J) = Z(ISUB+J)/DEN\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     WRITE RESULTS TO SCR1\r\nC\r\n  130 CALL WRITE (SCR1,Z(IHC+1),3*NGRIDS,1)\r\nC\r\nC     GO BACK FOR ANOTHER REMFLD RECORD\r\nC\r\n      IF (JCOUNT .EQ. NCOL) GO TO 140\r\n      CALL REWIND (HEST)\r\n      CALL FWDREC (*1002,HEST)\r\n      GO TO 3\r\nC\r\nC     DONE\r\nC\r\n  140 CALL CLOSE (SCR1,1)\r\n      MCB(1) = SCR1\r\n      MCB(2) = NCOL\r\n      MCB(3) = 3*NGRIDS\r\n      DO 150 I = 4,7\r\n  150 MCB(I) = 0\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (HEST,1)\r\n      CALL CLOSE (REMFLD,1)\r\n      RETURN\r\nC\r\n  500 WRITE  (IOUT,501) UFM\r\n  501 FORMAT (A23,', ILLEGAL ELEMENT TYPE IN REMFLX')\r\n      GO TO  1061\r\n  510 WRITE  (IOUT,511) UFM,MATID\r\n  511 FORMAT (A23,', MATERIAL',I9,' IS SINGULAR IN REMFLX')\r\n      GO TO  1061\r\nC\r\n 1002 N = -2\r\n      GO TO 1010\r\n 1003 N = -3\r\n      GO TO 1010\r\n 1008 N = -8\r\n      FILE = 0\r\n 1010 CALL MESAGE (N,FILE,NAM)\r\n 1061 CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rename.f",
    "content": "      SUBROUTINE RENAME (NAME1,NAME2,Z,NZ,ITEST)\r\nC\r\nC     THIS ROUTINE RENAMES SUBSTRUCTURE NAME1 TO NAME2. SOF ITEMS EQSS,\r\nC     BGSS, CSTM, LODS, LOAP AND PLTS ARE REWRITTEN TO REFLECT THE NEW\r\nC     NAME.  THESE ITEMS ARE CHANGED FOR NAME1 AND ANY HIGHER LEVEL\r\nC     SUBSTRUCTURE FOR WHICH NAME1 IS A COMPONENT.  NO CHANGES ARE MADE\r\nC     TO SECONDARY SUBSTRUCTURES OF NAME1 WHICH RETAIN THEIR ORIGINAL\r\nC     NAMES.  ALSO NO CHANGES ARE MADE TO THE SOLUTION DATA (ITEM SOLN)\r\nC     FOR SUBSTRUCTURE NAME1 OR ANY HIGHER LEVEL SUBSTRUCTURES.\r\nC\r\nC     VALUES RETURNED IN ITEST ARE\r\nC        1 - NORMAL RETURN\r\nC        4 - SUBSTRUCTURE NAME1 DOES NOT EXIST\r\nC       10 - SUBSTRUCTURE NAME2 ALREADY EXISTS\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         DITUP    ,MDIUP    ,HIGHER\r\n      INTEGER         NAME1(2) ,NAME2(2) ,NAME(2)  ,NAMEH(2)  ,Z(2)    ,\r\n     1                          EOG      ,BLANK    ,PS        ,ANDF    ,\r\n     2                NAMSUB(2)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM\r\n      COMMON /ITEMDT/ NITEM    ,ITEMS(7,1)\r\n      COMMON /SOF   / DITDUM(6),IODUM(8) ,MDIDUM(4),NXTDUM(15),DITUP   ,\r\n     1                MDIUP\r\n      COMMON /SYSTEM/ SYSBUF, NOUT\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      DATA    PS    / 1 /\r\n      DATA    EOG   / 4H$EOG/, BLANK /4H    /\r\n      DATA    NAMSUB/ 4HRENA,4HME  /\r\nC\r\nC\r\nC     CHECK IF NAME2 ALREADY EXISTS\r\nC\r\n      CALL FDSUB (NAME2,IND)\r\n      IF (IND .NE. -1) GO TO 1000\r\nC\r\nC     CHANGE DIT ENTRY FOR SUBSTRUCTURE NAME1\r\nC\r\n      CALL FDSUB (NAME1,IND)\r\n      IF (IND .LT. 0) GO TO 1100\r\n      CALL FDIT (IND,IDIT)\r\n      IF (NAME1(1).NE.BUF(IDIT) .OR. NAME1(2).NE.BUF(IDIT+1)) GO TO 1200\r\n      BUF(IDIT  ) = NAME2(1)\r\n      BUF(IDIT+1) = NAME2(2)\r\n      DITUP   = .TRUE.\r\nC\r\n      NAME(1) = NAME2(1)\r\n      NAME(2) = NAME2(2)\r\n      HIGHER  = .FALSE.\r\nC\r\nC     CHANGE TABLE ITEMS WHICH CONTAIN SUBSTRUCTRUE NAME\r\nC     SUBSTRUCTURE NAME.\r\nC     HIGHER = .FALSE. - WE ARE WORKING WITH SUBSTRUCTURE NAME1\r\nC     HIGHER = .TRUE.  - WE ARE WORKING WITH A SUBSTRUCTURE FOR\r\nC                        WHICH NAME1 IS A COMPONENT\r\nC\r\n   10 CALL FDSUB (NAME,IND)\r\n      CALL FMDI (IND,IMDI)\r\n      IPS = ANDF(BUF(IMDI+PS),1023)\r\n      DO 100 ITM = 1,NITEM\r\n      IF (ITEMS(2,ITM) .GT. 0) GO TO 100\r\n      ITEM = ITEMS(1,ITM)\r\n      INUM = ITEMS(3,ITM)/1000000\r\n      ILOC = (ITEMS(3,ITM) - INUM*1000000)/1000\r\n      INCR =  ITEMS(3,ITM) - INUM*1000000 - ILOC*1000\r\nC\r\nC     PROCESS THE FOLLOWING ITEMS\r\nC\r\nC     SUBSTRUCTRUE NAME1\r\nC     DONT PROCESS THE ITEM IF THIS IS A SECONDARY SUBSTRUCTURE\r\nC     AND THE ACTUAL ITEM IS STORED FOR THE PRIMARY (I.E. BGSS,CSTM(\r\nC     HIGHER LEVEL SUBSTRUCTURE\r\nC     DONT PROCESS THE ITEM IF IT IS ACTUALLY STORED FOR THE\r\nC     PRIMARY SUBSTRUCTURE (I.E. BGSS,CSTM)\r\nC\r\n      IF (.NOT.HIGHER .AND. ILOC.EQ.0 .AND. IPS.NE.0) GO TO 100\r\n      IF (HIGHER .AND. ILOC.EQ.0) GO TO 100\r\nC\r\nC     READ ITEM INTO OPEN CORE\r\nC\r\n      IRW = 1\r\n      CALL SFETCH (NAME,ITEM,IRW,ITEST)\r\n      IF (ITEST .NE. 1) GO TO 100\r\n      NCORE = NZ\r\n      ICORE = 1\r\n   20 CALL SUREAD (Z(ICORE),NCORE,NWDS,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 30\r\n      IF (ITEST .EQ. 1) GO TO 1300\r\n      Z(ICORE+NWDS) = EOG\r\n      ICORE = ICORE + NWDS + 1\r\n      NCORE = NCORE - NWDS - 1\r\n      GO TO 20\r\n   30 NWDS  = ICORE + NWDS - 1\r\nC\r\nC     CHANGE ANY OCCURANCE OF NAME1 WITH NAME2\r\nC\r\n      IF (HIGHER) GO TO 40\r\nC\r\nC     SUBSTRUCTURE NAME1 - NAME SHOULD BE IN WORDS 1 AND 2 OF GROUP 0\r\nC\r\n      IF (Z(1).NE.NAME1(1) .OR. Z(2).NE.NAME1(2)) GO TO 100\r\n      Z(1) = NAME2(1)\r\n      Z(2) = NAME2(2)\r\nC\r\nC     SEARCH THE LIST OF COMPONENT SUBSTRUCTURES FOR NAME1\r\nC\r\n   40 NCOMP = Z(INUM)\r\n      ILOC2 = ILOC + INCR*NCOMP - 1\r\n      DO 50 I = ILOC,ILOC2,INCR\r\n      IF (Z(I).NE.NAME1(1) .OR. Z(I+1).NE.NAME1(2)) GO TO 50\r\n      Z(I  ) = NAME2(1)\r\n      Z(I+1) = NAME2(2)\r\n      GO TO 60\r\n   50 CONTINUE\r\nC\r\nC     DELETE OLD ITEM\r\nC\r\n   60 CALL DELETE (NAME,ITEM,ITEST)\r\nC\r\nC     WRITE NEW ITEM TO SOF\r\nC\r\n      ITEST = 3\r\n      IRW   = 2\r\n      CALL SFETCH (NAME,ITEM,IRW,ITEST)\r\n      ITEST = 3\r\n      CALL SUWRT (Z(1),NWDS,ITEST)\r\nC\r\n  100 CONTINUE\r\nC\r\nC     GET NEXT HIGHER LEVEL SUBSTRUCTURE FOR WHICH NAME1 IS A\r\nC     COMPONENT AND PERFORM SAME PROCEDURE\r\nC\r\n      CALL FNDNXL (NAME,NAMEH)\r\n      IF (NAMEH(1).EQ.BLANK .OR. NAMEH(1).EQ.NAME(1) .AND.\r\n     1    NAMEH(2).EQ.NAME(2)) GO TO 110\r\n      NAME(1) = NAMEH(1)\r\n      NAME(2) = NAMEH(2)\r\n      HIGHER = .TRUE.\r\n      GO TO 10\r\nC\r\nC     NO HIGHER LEVEL SUBSTRUCTURES LEFT - PRINT INFORMATION MESSAGE\r\nC     AND RETURN\r\nC\r\n  110 WRITE  (NOUT,120) UIM,NAME1,NAME2\r\n  120 FORMAT (A29,' 6229, SUBSTRUCTURE ',2A4,' HAS BEEN RENAMED TO ',\r\n     1        2A4)\r\n      ITEST = 1\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\nC\r\nC     SUBSTRUCTURE NAME2 ALREADY EXIST ON THE SOF\r\nC\r\n 1000 WRITE  (NOUT,1010) UWM,NAME1,NAME2\r\n 1010 FORMAT (A25,' 6230, SUBSTRUCTURE ',2A4,' HAS NOT BEEN RENAMED ',\r\n     1       'BECAUSE ',2A4,' ALREADY EXISTS ON THE SOF.')\r\n      ITEST = 10\r\n      RETURN\r\nC\r\nC     SUBSTRUCTURURE NAME1 DOES NOT EXIST\r\nC\r\n 1100 ITEST = 4\r\n      RETURN\r\nC\r\nC     DIT FORMAT ERROR\r\nC\r\n 1200 CALL ERRMKN (21,5)\r\nC\r\nC     INSUFFICIENT CORE TO HOLD ITEM\r\nC\r\n 1300 CALL SOFCLS\r\n      CALL MESAGE (-8,0,NAMSUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/retblk.f",
    "content": "      SUBROUTINE RETBLK (IBL)\r\nC\r\nC     RETURNS BLOCK I AND ALL BLOCKS LINKED TO IT TO THE LIST OF FREE\r\nC     BLOCKS IN THE SUPERBLOCK TO WHICH BLOCK I BELONGS   IF SOME OF\r\nC     THE BLOCKS THAT ARE LINKED TO BLOCK I DO NOT BELONG TO THE SAME\r\nC     SUPERBLOCK, THEY ARE RETURNED TO THE FREE LIST OF THEIR OWN\r\nC     RESPECTIVE SUPERBLOCKS.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         DITUP,NXTUP,REPEAT\r\n      DIMENSION       NMSBR(2)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDIDUM(4),\r\n     2                NXT,NXTPBN,NXTLBN,NXTTSZ,NXTFSZ(10),NXTCUR,\r\n     3                DITUP,MDIUP,NXTUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10)\r\n      DATA    IRD   , IWRT/ 1,2   /\r\n      DATA    INDSBR/ 13 /, NMSBR /4HRETB,4HLK  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      I = IBL\r\n      IF (I .LE. 0) GO TO 500\r\n      LMASK = LSHIFT(JHALF,IHALF)\r\nC\r\nC     COMPUTE THE NUMBER OF THE FILE TO WHICH BLOCK I BELONGS,\r\nC     THE INDEX OF BLOCK I WITHIN THAT FILE, THE NUMBER WITHIN THE\r\nC     FILE OF THE SUPERBLOCK TO WHICH BLOCK I BELONGS, AND THE LOGICAL\r\nC     BLOCK NUMBER OVER THE SYSTEM OF THAT SUPERBLOCK.\r\nC\r\n    5 LEFT = I\r\n      DO 7 L = 1,NFILES\r\n      IF (LEFT .GT. FILSIZ(L)) GO TO 6\r\n      FILNUM = L\r\n      GO TO 10\r\n    6 LEFT = LEFT - FILSIZ(L)\r\n    7 CONTINUE\r\n      GO TO 500\r\n   10 FILIND = LEFT\r\n      FILSUP = (FILIND-1)/SUPSIZ\r\n      IF (FILIND-1 .EQ. FILSUP*SUPSIZ) GO TO 20\r\n      FILSUP = FILSUP + 1\r\n   20 ILBN = 0\r\n      MAX  = FILNUM - 1\r\n      IF (MAX .LT. 1) GO TO 28\r\n      DO 25 L = 1,MAX\r\n      ILBN = ILBN + NXTFSZ(L)\r\n   25 CONTINUE\r\n   28 ILBN = ILBN + FILSUP\r\n      IF (ILBN .EQ. NXTLBN) GO TO 60\r\nC\r\nC     THE DESIRED BLOCK OF THE ARRAY NXT IS NOT IN CORE.\r\nC\r\n      IF (NXTLBN .EQ. 0) GO TO 30\r\nC\r\nC     THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY A BLOCK OF NXT.  IF THAT BLOCK HAS BEEN UPDATED,\r\nC     MUST WRITE IT OUT BEFORE READING IN THE NEW BLOCK.\r\nC\r\n      IF (.NOT.NXTUP) GO TO 50\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP = .FALSE.\r\n      GO TO 50\r\nC\r\nC     THE IN CORE BUFFER SHARED BY THE DIT AND THE ARRAY NXT IS NOW\r\nC     OCCUPIED BY A BLOCK OF THE DIT.  IF THAT BLOCK HAS BEEN UPDATED,\r\nC     MUST WRITE IT OUT BEFORE READING IN THE NEW BLOCK.\r\nC\r\n   30 IF (.NOT.DITUP) GO TO 40\r\n      CALL SOFIO (IWRT,DITPBN,BUF(DIT-2))\r\n      DITUP  = .FALSE.\r\n   40 DITPBN = 0\r\n      DITLBN = 0\r\nC\r\nC     READ IN THE DESIRED BLOCK OF NXT.\r\nC\r\n   50 NXTLBN = ILBN\r\n      NXTPBN = 0\r\n      MAX = FILNUM - 1\r\n      IF (MAX .LT. 1) GO TO 58\r\n      DO 55 L = 1,MAX\r\n      NXTPBN = NXTPBN + FILSIZ(L)\r\n   55 CONTINUE\r\n   58 NXTPBN = NXTPBN + (FILSUP-1)*SUPSIZ + 2\r\n      CALL SOFIO (IRD,NXTPBN,BUF(NXT-2))\r\nC\r\nC     THE DESIRED BLOCK OF NXT IS IN CORE.\r\nC\r\n   60 BTFREE = ANDF(BUF(NXT+1),JHALF)\r\n      TPFREE = RSHIFT(BUF(NXT+1),IHALF)\r\n      IF (BTFREE .EQ. 0) GO TO 90\r\nC\r\nC     CHECK IF BLOCK I IS ALREADY IN THE LIST OF FREE BLOCKS.\r\nC\r\n      J = TPFREE\r\n   70 IF (J .EQ. I) GO TO 220\r\n      IF (J .EQ. 0) GO TO 90\r\n      IND = (J-NXTPBN+2)/2 + 1\r\n      IF (MOD(J,2) .EQ. 1) GO TO 80\r\n      J = RSHIFT(BUF(NXT+IND),IHALF)\r\n      GO TO 70\r\n   80 J = ANDF(BUF(NXT+IND),JHALF)\r\n      GO TO 70\r\nC\r\nC     BLOCK I IS NOT IN THE LIST OF FREE BLOCKS.\r\nC     SET TPFREE TO I\r\nC\r\n   90 BUF(NXT+1) = LSHIFT(I,IHALF)\r\nC\r\nC     EXAMINE THE BLOCKS THAT ARE LINKED TO BLOCK I.\r\nC\r\n      REPEAT = .FALSE.\r\n      IF (FILSUP .NE. NXTFSZ(FILNUM)) GO TO 123\r\n      LSTBLK = NXTPBN + FILSIZ(FILNUM) - (FILSUP-1)*SUPSIZ - 2\r\n      GO TO 126\r\n  123 LSTBLK = NXTPBN + SUPSIZ - 1\r\n  126 AVBLKS = AVBLKS + 1\r\n      IND = (I-NXTPBN+2)/2 + 1\r\n      IF (MOD(I,2) .EQ. 1) GO TO 130\r\n      ISV = RSHIFT(BUF(NXT+IND),IHALF)\r\n      GO TO 140\r\n  130 ISV = ANDF(BUF(NXT+IND),JHALF)\r\n  140 IF (ISV .EQ. 0) GO TO 160\r\n      IF (ISV.LT.NXTPBN .OR. ISV.GT.LSTBLK) GO TO 150\r\n      I = ISV\r\n      GO TO 126\r\n  150 REPEAT = .TRUE.\r\nC\r\nC     ALL THE BLOCKS IN THIS SUPERBLOCK HAVE BEEN FOUND.\r\nC     SET POINTER OF I TO VALUE OF OLD TPFREE.\r\nC\r\n  160 IF (MOD(I,2) .EQ. 1) GO TO 170\r\n      BUF(NXT+IND) = ORF(ANDF(BUF(NXT+IND),JHALF),LSHIFT(TPFREE,IHALF))\r\n      GO TO 180\r\n  170 BUF(NXT+IND) = ORF(ANDF(BUF(NXT+IND),LMASK),TPFREE)\r\n  180 IF(BTFREE .EQ. 0) BTFREE = I\r\nC\r\nC     SET BTFREE TO LAST BLOCK IN CHAIN.\r\nC\r\n      BUF(NXT+1) = ORF(ANDF(BUF(NXT+1),LMASK),BTFREE)\r\n      NXTUP = .TRUE.\r\n      IF (.NOT. REPEAT) GO TO 220\r\nC\r\nC     ISV BELONGS TO A DIFFERENT SUPERBLOCK, REPEAT\r\nC     SUBROUTINE FOR BLOCK ISV.\r\nC\r\n      I = ISV\r\n      GO TO 5\r\nC\r\nC     NO MORE BLOCKS LINKED TO BLOCK I, RETURN.\r\nC\r\n  220 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE.\r\nC\r\n  500 CALL ERRMKN (INDSBR,2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rforce.f",
    "content": "      SUBROUTINE RFORCE (LCORE)\r\nC\r\nC     COMPUTES STATIC LOADS DUE TO ROTATING COORDINATE SYSTEMS\r\nC\r\n      EXTERNAL        RSHIFT,ANDF\r\n      LOGICAL         NONSHL,CUPMAS\r\n      INTEGER         FILE,SLT,BGPDT,OLD,ICARD(6),SYSBUF,NAME(2),\r\n     1                STRTMN,ANDF,RSHIFT\r\n      REAL            MT(3,3),MTR(3,3),MR(3,3)\r\n      DIMENSION       CARD(6),RA(4),WB(3),WG(3),RI(4),XM(6,6),IY(7)\r\n      DIMENSION       ISYSTM(175)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /CONDAS/ PI,TWOPHI,RADEG,DEGRA,S4PISQ\r\n      COMMON /UNPAKX/ IT1,II,JJ,INCR\r\n      COMMON /XCSTM / TI(3,3)\r\n      COMMON /TRANX / IX(5),TO(3,3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,DUMY(25),MN\r\n      COMMON /ZNTPKX/ A(4),IROW,IEOL,IEOR\r\n      COMMON /LOADX / LC,SLT,BGPDT,OLD,NN(11),MGG\r\n      EQUIVALENCE     (ICARD(1),CARD(1)), (IR,RI(1)), (IRA,RA(1))\r\n      EQUIVALENCE     (SYSBUF  ,ISYSTM(1))\r\n      DATA    NAME  / 4HRFOR,4HCE  /\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     SLT      STATIC LOAD TABLE\r\nC     BGPDT    BASIC GRID POINT DEFINITION TABLE\r\nC     MGG      MASS  MATRIX\r\nC     FILE     FILE NAME FOR ERROR MESAGES\r\nC     CARD     CARD IMAGE OF RFORCE CARD\r\nC     RA       BGPDT ENTRY FOR AXIAL GRID POINT\r\nC     WB       OMEGA-S IN BASIC COORDINATES\r\nC     II       SIL OF CURRENT  POINT\r\nC     IT1      UNPACK TYPE(REAL)\r\nC     INCR     INCREMENT( TO ROW STORE COLUMNS)\r\nC     RI       BGPDT ENTRY FOR CURRENT GRID POINT\r\nC     WG       OMEGA-S IN GLOBAL COORDINANTS AT CURRENT GRID POINT\r\nC     XM       6X6 DIAGONAL PARTION OF MGG\r\nC     MT       3X3 PARTITION OF  MGG\r\nC     MR       3X3 PARTITION OF  MGG\r\nC     MTR      3X3 PARTITION OF  MGG\r\nC     OLD      CURRENT POSITION OF BGPDT  0 IMPLIES BEGINNING\r\nC\r\nC\r\nC     BRING IN CARD IMAGE\r\nC\r\n      CALL FREAD (SLT,CARD,6,0)\r\nC\r\nC     FIND LOCATION OF AXIAL GRID POINT\r\nC\r\n      DO 10 I = 1,3\r\n      RA(I+1) = 0.0\r\n   10 CONTINUE\r\n      IF (ICARD(1) .EQ. 0) GO TO 30\r\n      CALL FNDPNT (RA(1),ICARD(1))\r\nC\r\nC     CHECK FOR GRID POINT\r\nC\r\n      IF (IRA .NE. -1) GO TO 30\r\n      DO 20 I = 1,3\r\n      RA(I+1) = 0.0\r\n   20 CONTINUE\r\n   30 CALL REWIND (BGPDT)\r\n      CALL SKPREC (BGPDT,1)\r\nC\r\nC     CONVERT WI'S TO BASIC COORDINANTS\r\nC\r\n      DO 40 I = 4,6\r\n      WB(I-3) = CARD(I)*TWOPHI*CARD(3)\r\n   40 CONTINUE\r\n      IF (ICARD(2) .EQ. 0) GO TO 60\r\n      CALL FDCSTM (ICARD(2))\r\n      CALL MPYL (TO,WB,3,3,1,WG)\r\n      DO 50 I = 1,3\r\n      WB(I) = WG(I)\r\n   50 CONTINUE\r\nC\r\nC     OPEN MASS MATRIX\r\nC\r\n   60 CONTINUE\r\n      J   = LCORE - SYSBUF\r\n      IF (J .GT. 0) GO TO 65\r\n      ICRRQD = IABS(J) + 1\r\n      CALL MESAGE (-8, ICRRQD, NAME)\r\n   65 CALL GOPEN (MGG,Z(J),0)\r\n      IT1 = 1\r\nC\r\nC     TEST FOR COUPLED MASS\r\nC\r\n      IY(1) = MGG\r\n      CALL RDTRL (IY)\r\n      CUPMAS = .FALSE.\r\n      IF (IY(6) .EQ. 1) GO TO 90\r\n      IF (IY(6) .GT. 6) CUPMAS = .TRUE.\r\n      IF (CUPMAS) GO TO 90\r\n      INCR = 0\r\n      NCOL = IY(2)\r\n      DO 70 I = 1,NCOL\r\n      II = 0\r\n      CALL UNPACK (*70,MGG,A)\r\n      IF (JJ-II .GT. 6) CUPMAS = .TRUE.\r\n      IF (CUPMAS) GO TO 80\r\n   70 CONTINUE\r\n   80 CALL REWIND (MGG)\r\n      CALL SKPREC (MGG,1)\r\n   90 II = 1\r\n      INCR = 6\r\nC\r\nC     TEST FOR CONICAL SHELL PROBLEM\r\nC\r\n      NONSHL = .TRUE.\r\n      IF (MN .EQ. 0) GO TO 100\r\n      NONSHL = .FALSE.\r\n      NHARMS = MN\r\n      NRINGS = ISYSTM(161)\r\n      IY(1)  = BGPDT\r\n      CALL RDTRL (IY)\r\n      STRTMN = IY(2) - NHARMS*NRINGS\r\n      IPTAX  = 0\r\n      KOUNTM = 0\r\nC\r\nC     BRING IN BGPDT\r\nC\r\n  100 FILE = BGPDT\r\n      CALL READ (*410,*330,BGPDT,RI(1),4,0,IFLAG)\r\nC\r\nC     TEST FOR CONICAL SHELL PROCESSING\r\nC\r\n      IF (NONSHL) GO TO 120\r\n      IPTAX = IPTAX + 1\r\n      IF (IPTAX .LT. STRTMN) GO TO 110\r\n      KOUNTM = KOUNTM + 1\r\n      IF (KOUNTM .LE. NRINGS) GO TO 240\r\n      GO TO 330\r\nC\r\n  110 IF (IR .NE. -1) CALL SKPREC (MGG,6)\r\nC\r\nC     CHECK FOR SCALAR POINT\r\nC\r\n  120 CONTINUE\r\n      IF (IR .NE. -1) GO TO 130\r\n      CALL SKPREC (MGG,1)\r\n      II = II + 1\r\n      GO TO 100\r\nC\r\nC     TEST FOR COUPLED MASS PROCESSING\r\nC\r\n  130 IF (CUPMAS) GO TO 250\r\nC\r\nC     CONVERT WB'S TO GLOBAL COORDINATES AT RI\r\nC\r\n      DO 140 I = 1, 3\r\n  140 WG(I) = WB(I)\r\n      IF (IR .EQ. 0) GO TO 150\r\n      CALL BASGLB (WB(1),WG(1),RI(2),IR)\r\nC\r\nC     BRING IN  6X6  ON DIAGONAL OF MASS MATRIX\r\nC\r\n  150 JJ = II + 5\r\n      DO 160 J = 1,6\r\n      DO 160 I = 1,6\r\n      XM(I,J) = 0.0\r\n  160 CONTINUE\r\n      DO 170 I = 1,6\r\n      CALL UNPACK (*170,MGG,XM(I,1))\r\n  170 CONTINUE\r\nC\r\nC     MOVE  6X6 TO PARTITIONS\r\nC\r\n      DO 180 I = 1,3\r\n      DO 180 J = 1,3\r\n      MT(J,I) = XM(J,I)\r\n      MR(J,I) = XM(J+3,I+3)\r\n      MTR(J,I)= XM(J+3,I)\r\n  180 CONTINUE\r\nC\r\nC     COMPUTE WBX(RI-RA)\r\nC\r\n      DO 190 I = 1,3\r\n      XM(I,1) = RI(I+1) - RA(I+1)\r\n  190 CONTINUE\r\n      CALL CROSS (WB(1),XM(1,1),XM(1,3))\r\n      DO 200 I = 1,3\r\n      XM(I,1) = XM(I,3)\r\n  200 CONTINUE\r\n      IF (IR .EQ. 0) GO TO 210\r\n      CALL MPYL (TI(1,1),XM(1,1),3,3,1,XM(1,3))\r\n  210 CONTINUE\r\nC\r\nC     COMPUTE MOMENTS\r\nC\r\n      CALL MPYL  (MR(1,1),WG(1),3,3,1,XM(1,1))\r\n      CALL CROSS (XM(1,1),WG(1),XM(1,2))\r\n      CALL MPYLT (MTR(1,1),XM(1,3),3,3,1,XM(1,1))\r\n      CALL CROSS (XM(1,1),WG,XM(1,4))\r\n      J = II + 2\r\n      DO 220 I = 1,3\r\n      J = J + 1\r\n      Z(J) = Z(J) + XM(I,2) + XM(I,4)\r\n  220 CONTINUE\r\nC\r\nC     COMPUTE FORCES\r\nC\r\n      CALL MPYL  (MTR(1,1),WG(1),3,3,1,XM(1,1))\r\n      CALL CROSS (XM(1,1),WG(1),XM(1,2))\r\n      CALL MPYL  (MT(1,1),XM(1,3),3,3,1,XM(1,1))\r\n      CALL CROSS (XM(1,1),WG,XM(1,4))\r\n      J = II - 1\r\n      DO 230 I = 1,3\r\n      J = J + 1\r\n      Z(J) = Z(J) + XM(I,4) + XM(I,2)\r\n  230 CONTINUE\r\nC\r\nC     BUMP  II\r\nC\r\n      II  = II + 6\r\n      GO TO 100\r\nC\r\nC     CONICAL SHELL PROCESSING\r\nC     COMPUTE A = R*WB**2\r\nC\r\n  240 XM(2,3) = 0.0\r\n      XM(3,3) = 0.0\r\n      XM(1,3) = RI(2)*WB(2)*WB(2)\r\n      GO TO 290\r\nC\r\nC     COUPLED MASS PROCESSING\r\nC     COMPUTE -WB*(WB*(RI - RA))\r\nC\r\n  250 DO 260 I = 1, 3\r\n  260 XM(I,1) = RI(I+1) - RA(I+1)\r\n      CALL CROSS (WB(1),XM(1,1),XM(1,3))\r\n      CALL CROSS (XM(1,3),WB(1),XM(1,1))\r\n      IF (IR .EQ. 0) GO TO 270\r\n      CALL BASGLB (XM(1,1),XM(1,3),RI(2),IR)\r\n      GO TO 290\r\n  270 DO 280 I = 1, 3\r\n  280 XM(I,3) = XM(I,1)\r\nC\r\nC     COMPUTE F = M*A\r\nC\r\n  290 I1 = 1\r\n      DO 320 I = 1, 3\r\n      CALL INTPK (*320,MGG,0,I1,0)\r\n      IF (XM(I,3) .EQ. 0.0) GO TO 310\r\n  300 CALL ZNTPKI\r\n      Z(IROW) = Z(IROW) + A(1)*XM(I,3)\r\n      IF (IEOL .NE. 1) GO TO 300\r\n      GO TO 320\r\n  310 CALL SKPREC (MGG,1)\r\n  320 CONTINUE\r\n      CALL SKPREC (MGG,3)\r\n      GO TO 100\r\nC\r\nC     EOR IN BGPDT\r\nC\r\n  330 CALL CLOSE  (MGG,1)\r\n      CALL REWIND (BGPDT)\r\n      OLD = 0\r\n      CALL SKPREC (BGPDT,1)\r\n      RETURN\r\nC\r\nC     FILE ERRORS\r\nC\r\n  400 CALL MESAGE (IP1,FILE,NAME(1))\r\n  410 IP1 = -2\r\n      GO TO 400\r\n      END\r\n"
  },
  {
    "path": "mis/rmg.f",
    "content": "      SUBROUTINE RMG\r\nC\r\nC     RADIATION MATRIX GENERATOR MODULE.\r\nC\r\nC     DMAP CALLING SEQUENCE\r\nC\r\nC     RMG    EST,MATPOOL,GPTT,KGGX/RGG,QGE,KGG/C,Y,TABS/C,Y,SIGMA/\r\nC            V,N,NLR/V,N,LUSET $\r\nC\r\nC     THIS MODULE COMPUTES AND OUTPUTS DATA IN SINGLE OR DOUBLE\r\nC     PRECISION BASED ON -PRECIS-.\r\nC\r\n      LOGICAL          NOGO     ,DOUBLE   ,LRAD\r\n      INTEGER          BUF(10)  ,SUBR(2)  ,RADLST(2),RADMTX(2),HBDYTP  ,\r\n     1                 EST      ,GPTT     ,RGG      ,QGE      ,SCRT1   ,\r\n     2                 SCRT2    ,SCRT3    ,SCRT4    ,SCRT5    ,SCRT6   ,\r\n     3                 SYSBUF   ,OUTPT    ,TSET     ,PRECIS   ,UNOUT   ,\r\n     4                 UNIROW   ,UNNROW   ,UNINCR   ,PKIN     ,PKOUT   ,\r\n     5                 PKIROW   ,PKNROW   ,PKINCR   ,RD       ,RDREW   ,\r\n     6                 WRT      ,WRTREW   ,CLSREW   ,CLS      ,ELEM    ,\r\n     7                 Z        ,CORE     ,BUF1     ,BUF2     ,BUF3    ,\r\n     8                 FLAG     ,WORDS    ,EOR      ,MCB1(7)  ,MCB2(7) ,\r\n     9                 MCB3(7)  ,ELTYPE   ,ESTWDS   ,ECPT(100),RCOL    ,\r\n     O                 DCOL     ,RX       ,DX       ,SQR      ,FILE    ,\r\n     1                 DIRGG    ,DNRGG    ,IDATA(16),BLOCK(20),RADCHK  ,\r\n     2                 MCB(7)   ,NAME(2)  ,RADTYP(2),BLOCK2(20)\r\n      REAL             RZ(2)    ,RBUF(10) ,RDATA(16),AI(4)\r\n      DOUBLE PRECISION DETT     ,MINDIA   ,DSUMFA   ,DO(2)    ,DI(2)   ,\r\n     1                 DZ(1)    ,DTEMP2   ,DVALUE\r\n      CHARACTER        UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG /  UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /NAMES /  RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW  ,\r\n     1                 CLS      ,SKIP5(5) ,SQR\r\n      COMMON /ZBLPKX/  AO(4)    ,IROW\r\n      COMMON /PACKX /  PKIN     ,PKOUT    ,PKIROW   ,PKNROW   ,PKINCR\r\n      COMMON /UNPAKX/  UNOUT    ,UNIROW   ,UNNROW   ,UNINCR\r\n      COMMON /GFBSX /  JL(7)    ,JU(7)    ,JB(7)    ,JX(7)    ,NZZZ    ,\r\n     1                 IPR      ,ISGN\r\n      COMMON /DCOMPX/  IA(7)    ,IL(7)    ,IU(7)    ,ISR1     ,ISR2    ,\r\n     1                 ISR3     ,DETT     ,IPOW     ,NZZ      ,MINDIA  ,\r\n     2                 IB       ,IBBAR\r\n      COMMON /GPTA1 /  NELEMS   ,LAST     ,INCR     ,ELEM(1)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /BLANK /  TABS     ,SIGMA    ,NLR      ,LUSET\r\n      EQUIVALENCE      (Z(1),RZ(1),DZ(1) ),(BUF(1),RBUF(1)   ),\r\n     1                 (DO(1)   ,AO(1)   ),(DI(1) ,AI(1)     ),\r\n     2                 (IDATA(1),RDATA(1)),(DEFALT,IDEFLT    ),\r\n     3                 (KSYSTM( 1),SYSBUF),(KSYSTM( 2),OUTPT ),\r\n     4                 (KSYSTM(10),TSET  ),(KSYSTM(55),IPREC ),\r\n     5                 (KSYSTM(57),MYRADM),(KSYSTM(58),RADCHK)\r\nC\r\nC     MYRADM  = 1  IMPLIES SYMMETRIC SCRIPT-AF INPUT\r\nC     RADCHK NE 0  REQUESTS DIAGNOSTIC PRINTOUT OF AREAS AND VIEW FACTOR\r\nC     MYRADM  = 2  IMPLIES UNSYMMETRIC SCRIPT-AF INPUT\r\nC\r\n      DATA     SUBR  / 4HRMG ,4H     /\r\n      DATA     RADTYP/ 4H    ,4H  UN /\r\n      DATA     RADLST/ 2014,  20     /\r\n      DATA     RADMTX/ 3014,  30     /\r\n      DATA     HBDYTP/ 52            /\r\n      DATA     NOEOR / 0  /, EOR / 1 /\r\n      DATA     EST   , MATPOL, GPTT, KGGX, RGG, QGE, KGG   /\r\n     1         101   , 102   , 103 , 104 , 201, 202, 203   /\r\n      DATA     SCRT1 , SCRT2, SCRT3, SCRT4, SCRT5, SCRT6   /\r\n     1         301   , 302  , 303  , 304  , 305  , 306     /\r\nC\r\nC     DEFINITION OF CORE AND BUFFER POINTERS\r\nC\r\n      CALL DELSET\r\n      SCRT1  = 301\r\n      PRECIS = 2\r\n      IF (IPREC .NE. 2) PRECIS = 1\r\n      CORE = KORSZ(Z)\r\n      BUF1 = CORE - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      CORE = BUF3 - 1\r\n      IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR)\r\n      NOGO   = .FALSE.\r\n      DOUBLE = .FALSE.\r\n      IF (PRECIS .EQ. 2) DOUBLE = .TRUE.\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) WRITE (OUTPT,5) UWM,\r\n     1                                                  RADTYP(MYRADM)\r\n    5 FORMAT (A25,' 2358, ',A4,'SYMMETRIC SCRIPT-AF MATRIX (HREE) ',\r\n     1        'ASSUMED IN RADMTX')\r\nC\r\nC     OPEN MATPOOL DATA BLOCK.\r\nC\r\n      FILE = MATPOL\r\n      CALL PRELOC (*1100,Z(BUF1),MATPOL)\r\nC\r\nC     LOCATE RADLST DATA\r\nC\r\n      CALL LOCATE (*1090,Z(BUF1),RADLST,FLAG)\r\nC\r\nC     BUILD ELEMENT DATA TABLE.  -LENTRY- WORDS PER ELEMENT ID PRESENT\r\nC     IN RADLST.\r\nC\r\nC     EACH ENTRY CONTAINS THE FOLLOWING OR MORE\r\nC\r\nC     WORD  1 = ELEMENT ID OF HBDY ELEMENT\r\nC     WORD  2 = DIAGONAL MATRIX ELEMENT A-SUB-I\r\nC     WORD  3 = DIAGONAL MATRIX ELEMENT E-SUB-I\r\nC     WORD  4 = ELEMENT FA SUM (USED FOR RADMTX CHECK)\r\nC     WORD  5 = SIL-1\r\nC     WORD  6 = SIL-2\r\nC     WORD  7 = SIL-3\r\nC     WORD  8 = SIL-4\r\nC     WORD  9 = GIJ-1  (GIJ TERMS MAY BE 2 WORDS EACH IF DOUBLE PREC)\r\nC     WORD 10 = GIJ-2\r\nC     WORD 11 = GIJ-3\r\nC     WORD 12 = GIJ-4\r\nC\r\nC\r\n      LENTRY = 8 + 4*PRECIS\r\n      IELTAB = 1\r\n      IDXM8  = IELTAB - LENTRY - 1\r\n      NELTAB = IELTAB - 1\r\n   10 IF (NELTAB+LENTRY .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      CALL READ (*1110,*1120,MATPOL,Z(NELTAB+1),1,NOEOR,WORDS)\r\n      IF (Z(NELTAB+1)) 30,30,20\r\n   20 Z(NELTAB+2) = 0\r\n      Z(NELTAB+3) = 0\r\n      NELTAB = NELTAB + LENTRY\r\n      GO TO 10\r\nC\r\nC     ALL RADLST DATA NOW IN CORE.\r\nC     (POSITION TO END OF RECORD ON  MATPOOL)\r\nC\r\n   30 CALL READ (*1110,*50,MATPOL,BUF,1,EOR,WORDS)\r\n      WRITE  (OUTPT,40) SWM\r\n   40 FORMAT (A27,' 3071, EXTRA DATA IN RADLST RECORD OF MATPOOL DATA ',\r\n     1       'BLOCK IGNORED.')\r\nC\r\nC     LOCATE RADMTX DATA\r\nC\r\n   50 NE = (NELTAB-IELTAB+1)/LENTRY\r\n      CALL LOCATE (*135,Z(BUF1),RADMTX,FLAG)\r\n      LRAD = .TRUE.\r\nC\r\nC     READ IN RADMTX DATA.  FOR LOWER TRIANGLE COLUMNS PRESENT\r\nC     ENTRY WORDS 2 AND 3 IN -ELTAB- WILL BE USED TO STORE FIRST\r\nC     AND LAST LOCATIONS OF LOWER TRIANGLE COLUMN.  ZEROS IMPLY COLUMN\r\nC     IS NULL.\r\nC\r\n      IRAD = NELTAB + 1\r\nC\r\nC     READ COLUMN INDEX\r\nC\r\n   60 CALL READ (*1110,*140,MATPOL,INDEX,1,NOEOR,WORDS)\r\nC\r\nC     MAXIMUM NUMBER OF INPUT TERMS FOR THIS COLUMN. (LOWER TRIANGLE)\r\nC\r\n      MAX = NE - INDEX + 1\r\n      IF (MYRADM .EQ. 2) MAX = NE\r\nC\r\nC     SET -IDX- TO ELTAB ENTRY\r\nC\r\n      IDX = IDXM8 + INDEX*LENTRY\r\nC\r\nC     READ IN COLUMN ELEMENTS IF ANY\r\nC\r\n      N = 0\r\n   70 CALL READ (*1110,*1120,MATPOL,Z(IRAD),1,NOEOR,WORDS)\r\n      IF (Z(IRAD) .EQ. -1) GO TO 100\r\n      N = N + 1\r\n      IRAD = IRAD + 1\r\n      IF (IRAD .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IF (N .LE. MAX) GO TO 70\r\nC\r\nC     TOO MANY COLUMN ELEMENTS INPUT\r\nC\r\n      IRAD = IRAD - 1\r\nC\r\nC     SKIP TO END OF COLUMN\r\nC\r\n   80 CALL READ (*1110,*1120,MATPOL,IDUM,1,NOEOR,WORDS)\r\n      IF (IDUM .NE. -1) GO TO 80\r\n      WRITE  (OUTPT,90) UWM,INDEX,NE\r\n   90 FORMAT (A25,' 3072, TOO MANY MATRIX VALUES INPUT VIA RADMTX BULK',\r\n     1       ' DATA FOR COLUMN',I9,1H., /5X,'EXTRA VALUES IGNORED AS ',\r\n     2       'MATRIX SIZE IS DETERMINED TO BE OF SIZE',I9,\r\n     3       ' FROM RADLST COUNT OF ELEMENT ID-S.')\r\nC\r\nC     ALL DATA FOR LOWER TRIANGLE PORTION OF COLUMN IS IN CORE.\r\nC     (BACK UP OVER ANY ZEROS)\r\nC\r\n  100 IF (N) 60,60,110\r\n  110 IF (Z(IRAD-1)) 130,120,130\r\n  120 N = N - 1\r\n      IRAD = IRAD - 1\r\n      GO TO 100\r\nC\r\nC     SET FIRST AND LAST POINTERS\r\nC\r\n  130 Z(IDX+2) = IRAD - N\r\n      Z(IDX+3) = IRAD - 1\r\nC\r\nC     GO READ NEXT COLUMN\r\nC\r\n      GO TO 60\r\nC\r\nC     NULL RADMTX ASSUMED\r\nC\r\n  135 LRAD = .FALSE.\r\nC\r\nC     RADMTX IS COMPLETELY IN CORE IN TEMPORARY SPECIAL PACKED FORM.\r\nC\r\nC     NOW PACK OUT EACH COLUMN OF MATRIX F TO SCRATCH 1\r\nC\r\n  140 CALL CLOSE (MATPOL,CLSREW)\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) SCRT1 = 303\r\n      CALL GOPEN (SCRT1,Z(BUF1),WRTREW)\r\n      CALL MAKMCB (MCB1,SCRT1,NE,SQR,PRECIS)\r\n      DO 210 JCOL = 1,NE\r\nC\r\nC     INITIALIZE PACKING OF COLUMN -JCOL-\r\nC\r\n      CALL BLDPK (1,PRECIS,SCRT1,0,0)\r\nC\r\nC     PACK OUT ELEMENTS OF COLUMN -JCOL-\r\nC\r\n      INXCOL = IDXM8 + JCOL*LENTRY\r\nC\r\nC     SET FA SUM TO ZERO FOR CURRENT COLUMN.\r\nC\r\n      SUMFA = 0.0\r\n      IF (.NOT.LRAD) GO TO 205\r\n      DO 200 IROW = 1,NE\r\nC\r\nC     LOCATE ELEMENT ROW-IROWK, COL-JCOL.\r\nC\r\n      IF (IROW.GE.JCOL .OR. MYRADM.EQ.2) GO TO 180\r\nC\r\nC     HERE IF ABOVE THE DIAGONAL\r\nC     ELEMENT DESIRED IS IN COLUMN -IROW- IN CORE AND POSITION\r\nC     (JCOL-IROW+1) OF THE LOWER TRIANGLE PORTION.\r\nC\r\n      IDX = IDXM8 + IROW*LENTRY\r\n      I1  = Z(IDX+2)\r\n      IF (I1) 200,200,150\r\n  150 I2  = Z(IDX+3)\r\n      IPOS= JCOL - IROW + I1\r\n  160 IF (IPOS .GT. I2) GO TO 200\r\n      IF (RZ(IPOS)) 162,200,170\r\n  162 WRITE  (OUTPT,164) UWM,JCOL,IROW,RZ(IPOS)\r\n  164 FORMAT (A25,' 2359, COL',I6,', ROW',I6,\r\n     1        ' OF RADMTX IS NEGATIVE (',E14.6,').')\r\n  170 AO(1) = RZ(IPOS)\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) AO(1) = -SIGMA*RZ(IPOS)\r\n      IF (JCOL.EQ.IROW .AND. (MYRADM.EQ.1 .OR. MYRADM.EQ.2)) GO TO 175\r\n      SUMFA = SUMFA + RZ(IPOS)\r\n  175 CALL ZBLPKI\r\n      GO TO 200\r\nC\r\nC     HERE IF BELOW OR ON DIAGONAL.\r\nC     ELEMENT DESIRED IS IN COLUMN -JCOL- IN POSITION (IROW-JCOL+I1)\r\nC\r\n  180 IDX= INXCOL\r\n      I1 = Z(IDX+2)\r\n      IF (I1) 200,200,190\r\n  190 I2 = Z(IDX+3)\r\n      IPOS = IROW - JCOL + I1\r\n      IF (MYRADM .EQ. 2) IPOS = IROW + I1 - 1\r\n      GO TO 160\r\nC\r\n  200 CONTINUE\r\nC\r\nC     COMPLETE COLUMN\r\nC\r\n  205 CALL BLDPKN (SCRT1,0,MCB1)\r\nC\r\nC     SAVE COLUMN FA SUM IN ELTAB FOR AWHILE.\r\nC\r\n      RZ(INXCOL+4) = SUMFA\r\nC\r\n  210 CONTINUE\r\nC\r\nC     PACKED MATRIX IS COMPLETE\r\nC\r\n      CALL WRTTRL (MCB1)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\nC/////\r\nC     CALL DMPFIL (-SCRT1,Z(NELTAB+1),CORE-NELTAB-2)\r\nC     CALL BUG (10HF-MATRIX    ,210,0,1)\r\nC/////\r\nC\r\nC     OUTPUT OF ELEMENT-ID LIST TO QGE HEADER RECORD IS PERFORMED AT\r\nC     THIS TIME.\r\nC\r\n      FILE = QGE\r\n      CALL OPEN  (*1130,QGE,Z(BUF1),WRTREW)\r\n      CALL FNAME (QGE,NAME)\r\n      CALL WRITE (QGE,NAME,2,NOEOR)\r\n      DO 215 I = IELTAB,NELTAB,LENTRY\r\n      CALL WRITE (QGE,Z(I),1,NOEOR)\r\n  215 CONTINUE\r\n      CALL WRITE (QGE,0,0,EOR)\r\n      CALL CLOSE (QGE,CLS)\r\nC\r\nC     OPEN EST AND PROCESS EST ELEMENT DATA OF ONLY THE HBDY ELEMENTS\r\nC     WHOSE ELEMENT ID-S ARE IN THE RADLST.  I.E. NOW IN THE RDLST TABLE\r\nC\r\n      FILE = EST\r\n      CALL GOPEN (EST,Z(BUF1),RDREW)\r\n      GO TO 230\r\nC\r\nC     LOCATE HBDY ELEMENT TYPE RECORD\r\nC\r\n  220 CALL FWDREC (*1110,EST)\r\nC\r\nC     READ ELEMENT TYPE\r\nC\r\n  230 CALL READ (*300,*1120,EST,ELTYPE,1,NOEOR,WORDS)\r\n      IF (ELTYPE .NE. HBDYTP) GO TO 220\r\nC\r\nC     NOW POSITIONED TO READ EST DATA FOR HBDY ELEMENT.\r\nC\r\n      J = (ELTYPE-1)*INCR\r\n      ESTWDS = ELEM(J+12)\r\n      LOST = 0\r\nC\r\nC     READ EST FOR ONE ELEMENT\r\nC\r\n  240 CALL READ (*1110,*300,EST,ECPT,ESTWDS,NOEOR,WORDS)\r\nC\r\nC     FIND ID IN LIST\r\nC\r\n      DO 250 I = IELTAB,NELTAB,LENTRY\r\n      IF (ECPT(1) .EQ. Z(I)) GO TO 260\r\n  250 CONTINUE\r\n      GO TO 240\r\nC\r\nC     ELEMENT ID IS IN LIST\r\nC\r\n  260 CALL HBDY (ECPT,ECPT,1,RDATA,IDATA)\r\nC\r\nC     ON RETURN TAKE ELEMENT OUTPUTS AND PLANT THEM IN ALL ENTRIES\r\nC     HAVING THIS SAME ID.\r\nC\r\n      IADD = 4*PRECIS + 7\r\n      DO 290 J = IELTAB,NELTAB,LENTRY\r\n      IF (ECPT(1) .NE. Z(J)) GO TO 290\r\nC\r\nC     CHECK TO SEE IF SUM FA/A EQUALS 1.0 FOR THIS ELEMENT.\r\nC\r\n      IF (RDATA(2) .GT. 1.0E-10) GO TO 261\r\n      CHECK = 9999999.\r\n      GO TO 263\r\n  261 CHECK = RZ(J+3)/RDATA(2)\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) CHECK = CHECK/RDATA(3)\r\n      IF (CHECK .GT. 0.99) GO TO 262\r\n      LOST = LOST + 1\r\n  262 IF (CHECK .LT. 1.01) GO TO 266\r\n  263 WRITE  (OUTPT,264) UFM,Z(J),CHECK,RDATA(2)\r\n  264 FORMAT (A23,' 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT',I9,\r\n     1       ' IS',1P,E14.6,', (ELEMENT AREA IS ',1P,E14.5,').')\r\n      NOGO = .TRUE.\r\n  266 IF (CHECK.LT.1.01 .AND. RADCHK.NE.0) WRITE (OUTPT,267) UIM,Z(J),\r\n     1                                     CHECK,RDATA(2)\r\n  267 FORMAT (A29,' 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT',I9,\r\n     1       ' IS ',1P,E14.6,', (ELEMENT AREA IS ',1P,E14.5,')')\r\n      Z(J  ) = IDATA(1)\r\n      Z(J+1) = IDATA(2)\r\n      Z(J+2) = IDATA(3)\r\n      Z(J+3) = IDATA(4)\r\n      Z(J+4) = IDATA(5)\r\n      Z(J+5) = IDATA(6)\r\n      Z(J+6) = IDATA(7)\r\n      Z(J+7) = IDATA(8)\r\n      IF (DOUBLE) GO TO 270\r\n      RZ(J+ 8) = RDATA( 9)\r\n      RZ(J+ 9) = RDATA(10)\r\n      RZ(J+10) = RDATA(11)\r\n      RZ(J+11) = RDATA(12)\r\n      GO TO 280\r\n  270 DX = J/2 + 1\r\n      DZ(DX+4) = RDATA( 9)\r\n      DZ(DX+5) = RDATA(10)\r\n      DZ(DX+6) = RDATA(11)\r\n      DZ(DX+7) = RDATA(12)\r\n  280 Z(J) = -Z(J)\r\n  290 CONTINUE\r\n      GO TO 240\r\nC\r\nC     ALL ELEMENTS PROCESSED.\r\nC\r\n  300 CALL CLOSE (EST,CLSREW)\r\n      IF (LOST .GT. 0) WRITE (OUTPT,302) UIM,LOST\r\n  302 FORMAT (A29,' 2361, ',I4,' ELEMENTS HAVE A TOTAL VIEW FACTOR (FA',\r\n     1       '/A) LESS THAN 0.99 , ENERGY MAY BE LOST TO SPACE.')\r\nC\r\nC     CHECK TO SEE IF ALL ELEMENTS WERE PROCESSED.\r\nC\r\nC/////\r\nC     CALL BUG (4HELTB ,270,Z(IELTAB),NELTAB-IELTAB+1)\r\nC/////\r\n      DO 340 I = IELTAB,NELTAB,LENTRY\r\n      IF (Z(I)) 310,310,320\r\n  310 Z(I) = -Z(I)\r\n      GO TO 340\r\n  320 NOGO = .TRUE.\r\n      WRITE  (OUTPT,330) UFM,Z(I)\r\n  330 FORMAT (A23,' 3073, NO -HBDY- ELEMENT SUMMARY DATA IS PRESENT ',\r\n     1       'FOR ELEMENT ID =',I9, /5X,\r\n     2       'WHICH APPEARS ON A -RADLST- BULK DATA CARD.')\r\n  340 CONTINUE\r\n      IF (NOGO) CALL MESAGE (-61,0,0)\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 345\r\nC\r\nC     FORMATION OF THE Y MATRIX.  MATRIX F IS STORED ON SCRATCH 1\r\nC\r\nC         Y    = -F  (1.0 - E )  +  A\r\nC          IJ      IJ        J       I\r\nC\r\nC         A  IS ADDED IN ONLY TO THE DIAGONAL TERMS I.E. I = J\r\nC          I\r\nC\r\nC     MATRIX Y WILL BE STORED ON SCRATCH 2.\r\nC\r\nC\r\nC     OPEN SCRATCH 1 FOR MATRIX F COLUMN UNPACKING.\r\nC\r\n      CALL GOPEN (SCRT1,Z(BUF1),RDREW)\r\nC\r\nC     OPEN SCRATCH 2 FOR MATRIX Y COLUMN PACKING\r\nC\r\n      CALL GOPEN  (SCRT2,Z(BUF2),WRTREW)\r\n      CALL MAKMCB (MCB2,SCRT2,NE,SQR,PRECIS)\r\nC\r\nC     SET UP VECTOR CORE (INSURE EVEN BOUNDARY)\r\nC\r\n  345 ICOL = MOD(NELTAB,2) + NELTAB + 1\r\n      RCOL = ICOL\r\n      DCOL = ICOL/2 + 1\r\n      NCOL = ICOL + PRECIS*NE - 1\r\n      IF (NCOL .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 465\r\n      MELTAB = IELTAB - LENTRY - 1\r\nC\r\nC     SETUP /PACKX/ FOR PACKING COLUMNS OF Y (SCRATCH 2)\r\nC\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = NE\r\n      PKINCR = 1\r\nC\r\nC     SETUP /UNPAKX/ FOR UNPACKING COLUMNS OF F (SCRATCH 1)\r\nC\r\n      UNOUT  = PRECIS\r\n      UNIROW = 1\r\n      UNNROW = NE\r\n      UNINCR = 1\r\n      DO 430 I = 1,NE\r\n      MELTAB = MELTAB + LENTRY\r\n      RX = RCOL\r\n      DX = DCOL\r\nC\r\nC     UNPACK A COLUMN OF F INTO CORE.\r\nC\r\n      CALL UNPACK (*350,SCRT1,Z(ICOL))\r\n      GO TO 370\r\n  350 DO 360 J = ICOL,NCOL\r\n      Z(J) = 0\r\n  360 CONTINUE\r\nC\r\nC     COMPUTE THE Y-COLUMN\r\nC\r\n  370 DO 390 IROW = 1,NE\r\n      IF (DOUBLE) GO TO 380\r\nC\r\nC     REAL COMPUTATION\r\nC\r\n      RZ(RX) = -RZ(RX)*(1.0E0 - RZ(MELTAB+3))\r\n      IF (IROW .EQ. I) RZ(RX) = RZ(RX) + RZ(MELTAB+2)\r\n      RX = RX + 1\r\n      GO TO 390\r\nC\r\nC     DOUBLE PRECISION COMPUTATION\r\nC\r\n  380 DZ(DX) = -DZ(DX)*(1.0D0 - DBLE(RZ(MELTAB+3)))\r\n      IF (IROW .EQ. I) DZ(DX) = DZ(DX) + DBLE(RZ(MELTAB+2))\r\n      DX = DX + 1\r\n  390 CONTINUE\r\nC\r\nC     PACK COLUMN OUT\r\nC\r\n      MCBSAV  = MCB2(6)\r\n      MCB2(6) = 0\r\n      CALL PACK (Z(ICOL),SCRT2,MCB2)\r\n      IF (MCB2(6)) 400,400,420\r\n  400 NOGO = .TRUE.\r\n      WRITE  (OUTPT,410) UFM,I\r\n  410 FORMAT (A23,' 3074, COLUMN',I9,' OF THE Y MATRIX IS NULL.')\r\n  420 MCB2(6) = MAX0(MCB2(6),MCBSAV)\r\nC\r\n  430 CONTINUE\r\n      IF (NOGO) CALL MESAGE (-61,0,SUBR)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      CALL WRTTRL (MCB2)\r\n      CALL CLOSE (SCRT2,CLSREW)\r\nC/////\r\nC     CALL DMPFIL (-SCRT2,Z(ICOL),CORE-ICOL-1)\r\nC     CALL BUG (10HY-MATRIX    ,400,0,1)\r\nC/////\r\nC\r\nC     NOW SOLVING FOR MATRIX X ON SCRATCH-3\r\nC\r\nC     (Y) (X) = (F)\r\nC\r\nC     F IS ON SCRATCH 1\r\nC     Y IS ON SCRATCH 2\r\nC\r\nC\r\nC     SETUP /DCOMPX/\r\nC\r\n      IA(1) = SCRT2\r\n      IL(1) = 201\r\n      IU(1) = 203\r\n      IL(5) = PRECIS\r\n      ISR1  = SCRT4\r\n      ISR2  = SCRT5\r\n      ISR3  = SCRT6\r\n      CALL RDTRL (IA)\r\n      NZZ   = KORSZ(Z(ICOL))\r\n      IB    = 0\r\n      IBBAR = 0\r\n      CALL DECOMP (*440,Z(ICOL),Z(ICOL),Z(ICOL))\r\n      GO TO 460\r\n  440 WRITE  (OUTPT,450) UFM\r\n  450 FORMAT (A23,' 3075, INTERMEDIATE MATRIX Y IS SINGULAR.')\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC     SETUP /GFBSX/\r\nC\r\n  460 JL(5) = IL(5)\r\n      JU(7) = IU(7)\r\n      JL(1) = 201\r\n      JU(1) = 203\r\n      JB(1) = SCRT1\r\n      JX(1) = SCRT3\r\n      IPR   = PRECIS\r\nC//// WHAT ABOUT IDET\r\n      ISGN  = 1\r\n      NZZZ  = NZZ\r\n      JL(3) = NE\r\n      JX(5) = PRECIS\r\n      CALL RDTRL (JB(1))\r\n      CALL GFBS (Z(ICOL),Z(ICOL))\r\n      JX(3) = NE\r\n      JX(4) = SQR\r\n      CALL WRTTRL (JX)\r\nC/////\r\nC     CALL DMPFIL (-SCRT3,Z(ICOL),CORE-ICOL-1)\r\nC     CALL BUG (10HX-MATRIX     ,438,0,1)\r\nC/////\r\nC\r\nC     FORMATION OF THE R MATRIX (TO BE STORED ON SCRATCH 1)\r\nC\r\nC          R    =(-SIGMA*E *A *E *X  ) + (SIGMA*E *A )\r\nC           IJ            J  I  I  IJ            J  I\r\nC\r\nC     (TERM2 IS ADDED IN ONLY WHEN I = J)\r\nC\r\nC     IF MYRADM = 1 OR 2    , RADMTX MULTIPLIED BY -SIGMA IS ON SCRT3\r\nC     MATRIX X IS ON SCRATCH 3\r\nC\r\nC\r\nC     OPEN SCRATCH 3 FOR MATRIX X COLUMN UNPACKING.\r\nC\r\n  465 CALL GOPEN (SCRT3,Z(BUF3),RDREW)\r\nC\r\nC     THE FOLLOWING CARD IS NEEDED IF DIRECT SCRIPT-F INPUT IS USED\r\nC\r\n      SCRT1 = 301\r\nC\r\nC     OPEN SCRATCH 1 FOR MATRIX R COLUMN PACKING.\r\nC\r\n      FILE = SCRT1\r\n      CALL GOPEN  (SCRT1,Z(BUF1),WRTREW)\r\n      CALL MAKMCB (MCB1,SCRT1,NE,SQR,PRECIS)\r\n      MELTAB = IELTAB - LENTRY - 1\r\nC\r\nC     SETUP /PACKX/ FOR PACKING COLUMNS OF R (SCRATCH 1)\r\nC\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = NE\r\n      PKINCR = 1\r\nC\r\nC     SETUP /UNPAKX/ FOR UNPACKING COLUMNS OF X (SCRATCH 3)\r\nC\r\n      UNOUT  = PRECIS\r\n      UNIROW = 1\r\n      UNNROW = NE\r\n      UNINCR = 1\r\nC\r\n      IDX1 = IELTAB - LENTRY\r\n      DO 520 ICOLUM = 1,NE\r\n      DSUMFA = 0.\r\n      SUMFA  = 0.\r\n      MELTAB = MELTAB + LENTRY\r\nC\r\nC     COMPUTE CONSTANT FOR COLUMN\r\nC\r\nC     TEMP1 = SIGMA*E\r\nC                    J\r\nC\r\n      TEMP1 = SIGMA*RZ(MELTAB+3)\r\n      RX = RCOL\r\n      DX = DCOL\r\nC\r\nC     UNPACK A COLUMN OF X INTO CORE.\r\nC\r\n      CALL UNPACK (*470,SCRT3,Z(ICOL))\r\n      GO TO 490\r\n  470 DO 480 J = ICOL,NCOL\r\n      Z(J) = 0\r\n  480 CONTINUE\r\nC\r\nC     COMPUTE THE R-COLUMN\r\nC\r\n  490 IDX2 = IDX1\r\n      DO 510 IROW = 1,NE\r\n      IDX2 = IDX2 + LENTRY\r\n      IF (DOUBLE) GO TO 500\r\nC\r\nC     REAL COMPUTATION.\r\nC\r\n      IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 495\r\n      TEMP2  = TEMP1*RZ(IDX2+1)\r\n      RZ(RX) =-TEMP2*RZ(IDX2+2)*RZ(RX)\r\n      IF (IROW .EQ. ICOLUM) RZ(RX) = RZ(RX) + TEMP2\r\n  495 IF (IROW .NE. ICOLUM) SUMFA  = SUMFA  + RZ(RX)\r\n      RX = RX + 1\r\n      GO TO 510\r\nC\r\nC     DOUBLE PRECISON COMPUTATION\r\nC\r\n  500 IF (MYRADM.EQ.1 .OR. MYRADM.EQ.2) GO TO 505\r\n      DTEMP2 = DBLE(TEMP1)*DBLE(RZ(IDX2+1))\r\n      DZ(DX) =-DTEMP2*DBLE(RZ(IDX2+2))*DZ(DX)\r\n      IF (IROW .EQ. ICOLUM) DZ(DX) = DZ(DX) + DTEMP2\r\n  505 IF (IROW .NE. ICOLUM) DSUMFA = DSUMFA + DZ(DX)\r\n      DX = DX + 1\r\nC\r\n  510 CONTINUE\r\nC\r\nC     PACK COLUMN OF R OUT\r\nC\r\n      IF (MYRADM.NE.1 .AND. MYRADM.NE.2) GO TO 515\r\n      IF (DOUBLE) DZ(DX-1-NE+ICOLUM) = -DSUMFA\r\n      IF (.NOT.DOUBLE) RZ(ICOLUM+RX-1-NE) = -SUMFA\r\n  515 CALL PACK (Z(ICOL),SCRT1,MCB1)\r\n  520 CONTINUE\r\n      CALL WRTTRL (MCB1)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\n      CALL CLOSE (SCRT3,CLSREW)\r\nC/////\r\nC     CALL DMPFIL (-SCRT1,Z(ICOL),CORE-ICOL-1)\r\nC     CALL BUG (10HR-MATRIX    ,490,0,1)\r\nC/////\r\nC\r\nC     ALL OF THE HBDY ELEMENTS OF THE RADLST HAVE\r\nC     HAD THEIR G TERMS COMPUTED, THESE G TERMS MAY BE INSERTED INTO\r\nC     THE FULL MATRIX G.\r\nC\r\nC     GOING THROUGH THE RADLST TABLE WE HAVE EACH ELEMENT ENTRY FORMING\r\nC     A COLUMN OF G WITH THE G TERMS OF THE RESPECTIVE ENTRY BEING\r\nC     ENTERED INTO THE COLUMN AT THE SIL LOCATIONS.  (THE SILS WERE\r\nC     PLACED IN THE RADLST ENTRY EARLIER)\r\nC\r\nC\r\nC     AS THE X MATRIX STORED ON SCRATCH 3 IS NO LONGER NEEDED\r\nC     WE WILL USE SCRATCH 3 FOR THE G MATRIX NOW.\r\nC\r\n      CALL GOPEN  (SCRT3,Z(BUF3),WRTREW)\r\n      CALL MAKMCB (MCB3,SCRT3,LUSET,2,PRECIS)\r\nC\r\nC     LOOP ON THE RADLST TABLE\r\nC\r\n      DO 600 I = IELTAB,NELTAB,LENTRY\r\nC\r\nC     BEGIN PACKING A COLUMN OUT\r\nC\r\n      CALL BLDPK (PRECIS,PRECIS,SCRT3,0,0)\r\nC\r\nC     PACK 1 TO 4 TERMS OUT.\r\nC\r\n      I1 = I + 4\r\n      I2 = I + 7\r\n      DO 580 J = 1,4\r\nC\r\nC     PICKING THE SMALLEST SIL NOT ZERO FOR THE NEXT TERM OUT\r\nC\r\n      ISIL = 0\r\n      DO 560 L = I1,I2\r\n      IF (Z(L)) 560,560,530\r\n  530 IF (ISIL) 550,550,540\r\n  540 IF (Z(L)-ISIL) 550,550,560\r\n  550 ISIL = Z(L)\r\n      K = L\r\n  560 CONTINUE\r\nC\r\nC     ZERO SIL IMPLYS OUT OF VALUES\r\nC\r\n      IF (ISIL) 590,590,570\r\nC\r\nC     PACK OUT TERM  (MAY BE SINGLE OR DOUBLE PRECISON)\r\nC\r\n  570 IROW = Z(K)\r\n      Z(K) = 0\r\nC\r\nC     RESET K TO GIJ TERM PTR.\r\nC\r\n      KK = K + 4\r\n      IF (DOUBLE) KK = KK + K - I1\r\n      AO(1) = RZ(KK  )\r\n      AO(2) = RZ(KK+1)\r\n      CALL ZBLPKI\r\n  580 CONTINUE\r\nC\r\nC     COMPLETE THE COLUMN\r\nC\r\n  590 CALL BLDPKN (SCRT3,0,MCB3)\r\n  600 CONTINUE\r\nC\r\nC     G MATRIX IS COMPLETE ON SCRATCH 3.\r\nC\r\n      CALL WRTTRL (MCB3)\r\n      CALL CLOSE  (SCRT3,CLSREW)\r\nC/////\r\nC     CALL DMPFIL (-SCRT3,Z(ICOL),CORE-ICOL-1)\r\nC     CALL BUG (10HG-MATRIX     ,570,0,1)\r\nC/////\r\nC\r\nC     FORM OUTPUT MATRIX  (Q  ) = (G)(R )\r\nC                           GE         E\r\nC\r\nC\r\nC     ALL CORE AT THIS POINT IS AVAILABLE THUS OPEN CORE FOR SSG2B\r\nC     WHICH IS IN /SSGB2/ MAY BE AT THE SAME LEVEL AS\r\nC     /RMGZZZ/.  SSG2B IS THE DRIVER FOR MPYAD.\r\nC\r\n      CALL SSG2B (SCRT3,SCRT1,0,SCRT5,0,PRECIS,1,SCRT2)\r\nC\r\nC                                        T\r\nC     FORM OUTPUT MATRIX  (R  ) = (Q  )(G )\r\nC                           GG      GE\r\nC\r\nC\r\nC     THE MATRIX G IS FIRST TRANSPOSED.\r\nC\r\nC     MATRIX G IS ON SCRATCH-3.  MATRIX G TRANSPOSE WILL BE ON SCRATCH-2\r\nC\r\nC     OPEN CORE /DTRANX/ FOR TRANP1 MAY BE AT SAME LEVEL AS /RMGZZZ/.\r\nC\r\n      CALL TRANP1 (SCRT3,SCRT2,4,SCRT4,SCRT6,SCRT1,RGG,0,0,0,0)\r\nC/////\r\nC     CALL DMPFIL (-SCRT2,Z(ICOL),CORE-ICOL-1)\r\nC     CALL BUG (10HG-TRANSP    ,570,0,1)\r\nC/////\r\nC\r\nC     SSG2B MAY BE CALLED NOW TO COMPUTE (R  )\r\nC                                          GG\r\nC\r\n      CALL SSG2B (SCRT5,SCRT2,0,RGG,0,PRECIS,1,SCRT1)\r\nC\r\nC     QGE WAS PLACED ON SCRT5.  NOW COPY IT TO QGE (WHERE THE HEADER\r\nC     RECORD HAS BEEN SPECIALLY PREPARED EARLIER) .\r\nC\r\n      FILE = QGE\r\n      CALL OPEN (*1130,QGE,Z(BUF1),WRT)\r\n      FILE = SCRT5\r\n      CALL GOPEN  (SCRT5,Z(BUF2),RDREW)\r\n      CALL CPYFIL (SCRT5,QGE,Z,CORE,ICOUNT)\r\n      MCB(1) = SCRT5\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = QGE\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (SCRT5,CLSREW)\r\n      CALL CLOSE (QGE,CLSREW)\r\nC\r\nC                    1      3\r\nC     FORM  S   = 4(U  + T )  THIS IS ACTUALLY A DIAGONAL MATRIX.\r\nC            GG      G    A\r\nC\r\nC     NOW ALLOCATE S   DIAGONAL MATRIX SPACE AND STORE -TABS- EVERYWHERE\r\nC                   GG\r\nC\r\nC\r\n      ISGG = 1\r\n      NSGG = PRECIS*LUSET\r\n      IF (NSGG .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IF (DOUBLE) GO TO 620\r\nC\r\nC     REAL VECTOR\r\nC\r\n      DO 610 I = ISGG,NSGG\r\n      RZ(I) = TABS\r\n  610 CONTINUE\r\n      GO TO 640\r\nC\r\nC     DOUBLE PRECISION VECTOR\r\nC\r\n  620 DX = ISGG/2 + 1\r\n      NDX = DX + LUSET - 1\r\n      DO 630 I = DX,NDX\r\n      DZ(I) = TABS\r\n  630 CONTINUE\r\nC\r\nC     IF -TSET- IS SPECIFIED THEN THAT SET OF TEMPERATURES IS ADDED TO\r\nC     THE UG VECTOR IN CORE.\r\nC\r\n  640 IF (TSET) 900,900,650\r\nC\r\nC     TSET IS REQUESTED\r\nC\r\n  650 FILE = GPTT\r\n      CALL OPEN (*1130,GPTT,Z(BUF1),RDREW)\r\nC\r\nC     DETERMINE NUMBER OF RECORDS IN ELEMENT TEMPERATURE SECTION TO\r\nC     SKIP OVER. (FIRST SKIP THE NAME IN HEADER)\r\nC\r\n      CALL READ (*1110,*1120,GPTT,BUF,2,NOEOR,FLAG)\r\nC\r\nC     LOOK FOR REQUESTED TSET POINTERS AND REPOSITION GPTT.\r\nC\r\n      NUMBER =  0\r\n      NUMTST = -1\r\n  660 CALL READ (*1110,*670,GPTT,BUF,3,NOEOR,FLAG)\r\n      IF (BUF(3) .GT. NUMBER) NUMBER = BUF(3)\r\n      IF (TSET .NE. BUF(1)) GO TO 660\r\nC\r\nC     BUF(1)=SET-ID, BUF(2)=-1 OR DEFAULT TEMP, BUF(3)=GPTT DATA RECORD.\r\nC\r\n      DEFALT = RBUF(2)\r\n      NUMTST = BUF(3)\r\n      GO TO 660\r\nC\r\nC     CHECK FOR TSET NOT FOUND.\r\nC\r\n  670 IF (NUMTST .EQ. -1) GO TO 1170\r\nC\r\nC     ADD SKIP COUNTS (EL. RECORDS + DUPE HEADER + TEMP SET -1)\r\nC\r\n      NUMBER = NUMBER + NUMTST\r\nC\r\nC     NO NEED TO DO FURTHER I/O IF TSET IS ALL DEFAULT TEMPS.\r\nC\r\n      IF (NUMTST .EQ. 0) NUMBER = 0\r\n      IF (NUMBER) 740,740,720\r\n  720 DO 730 I = 1,NUMBER\r\n      CALL FWDREC (*1110,GPTT)\r\n  730 CONTINUE\r\nC\r\nC     TEMPERATURE DATA IS IN PAIRS OF INTERNAL ID AND TEMPERATURE.\r\nC\r\nC\r\nC     AT THIS POINT THE GRID POINT TEMPERATUE DATA IS ADDED INTO THE SGG\r\nC     DIAGONAL HELD IN CORE.\r\nC\r\n  740 NSIL = 1\r\n      RX = ISGG - 1\r\n      DX = ISGG/2\r\n      ASSIGN 750 TO IRETRN\r\n      IF (NUMBER) 790,790,750\r\n  750 CALL READ (*1110,*870,GPTT,BUF,2,NOEOR,FLAG)\r\n  760 IF (BUF(1)-NSIL) 770,820,800\r\n  770 WRITE  (OUTPT,780) SFM\r\n  780 FORMAT (A25,' 3076, GPTT DATA IS NOT IN SORT BY INTERNAL ID.')\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC     ADD DEFAULT TEMPERATURE (IF ONE EXISTS) TO THOSE POINTS NOT HAVING\r\nC     AN EXPLICIT TEMPERATURE DEFINED.\r\nC\r\n  790 BUF(1) = LUSET + 1\r\n  800 IF (IDEFLT .NE. -1) GO TO 830\r\n      WRITE  (OUTPT,810) UFM,NSIL\r\n  810 FORMAT (A23,' 3077, THERE IS NO GRID POINT TEMPERATURE DATA OR ',\r\n     1       'DEFAULT TEMPERATURE DATA FOR SIL POINT',I9, /5X,\r\n     2       'AND POSSIBLY OTHER POINTS.')\r\n      CALL MESAGE (-61,0,SUBR)\r\n  820 VALUE = RBUF(2)\r\n      GO TO 840\r\n  830 VALUE = DEFALT\r\n      ASSIGN 880 TO IRETRN\r\n      ISIL = NSIL\r\n      KSIL = BUF(1) - 1\r\n      NSIL = BUF(1)\r\n      GO TO 845\r\n  840 ISIL = NSIL\r\n      KSIL = BUF(1)\r\n      NSIL = BUF(1) + 1\r\n  845 DO 860 I = ISIL,KSIL\r\n      IF (I .GT. LUSET) GO TO 890\r\n      IF (DOUBLE) GO TO 850\r\n      RX = RX + 1\r\n      RZ(RX) = RZ(RX) + VALUE\r\n      GO TO 860\r\n  850 DX = DX + 1\r\n      DZ(DX) = DZ(DX) + DBLE(VALUE)\r\n  860 CONTINUE\r\n      GO TO IRETRN, (750,890,880)\r\n  870 ASSIGN 890 TO IRETRN\r\n      BUF(1) = LUSET\r\n      VALUE  = DEFALT\r\n      GO TO 840\r\n  880 ASSIGN 750 TO IRETRN\r\n      GO TO 760\r\nC\r\nC     ALL TEMPERATURE DATA HAS BEEN ADDED IN.\r\nC\r\n  890 CALL CLOSE (GPTT,CLSREW)\r\nC/////\r\nC     CALL BUG (4HTMPS,890,Z(ISGG),NSGG-ISGG+1)\r\nC/////\r\nC\r\nC     NOW CUBE EACH TERM AND THEN MULTIPLY EACH TERM BY 4.0\r\nC\r\n  900 IF (DOUBLE) GO TO 920\r\nC\r\nC     REAL COMPUTATION\r\nC\r\n      DO 910 I = ISGG,NSGG\r\n      RZ(I) = 4.0*(RZ(I)**3)\r\n  910 CONTINUE\r\n      GO TO 940\r\nC\r\nC     DOUBLE PRECISION COMPUTATION\r\nC\r\n  920 DX  = ISGG/2 + 1\r\n      NDX = DX + LUSET - 1\r\n      DO 930 I = DX,NDX\r\n      DZ(I) = 4.0D0*(DZ(I)**3)\r\n  930 CONTINUE\r\nC\r\nC     ALLOCATION OF CORE FOR A COLUMN OF MATRIX RGG.\r\nC\r\n  940 IRGG  = NSGG + 1\r\n      NRGG  = IRGG + PRECIS*LUSET - 1\r\n      DIRGG = IRGG/2 + 1\r\n      DNRGG = DIRGG + LUSET - 1\r\n      IF (NRGG .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC                                   X\r\nC     FORM OUTPUT MATRIX  (K  ) = (K  ) + (R  )(S  )\r\nC                           GG      GG      GG   GG\r\nC\r\nC\r\nC     THE DIAGONAL MATRIX (S  ) RESIDES IN CORE FROM Z(ISGG) TO Z(NSGG)\r\nC                           GG\r\nC\r\nC     Z(IRGG) TO Z(NRGG) WILL BE USED TO HOLD A COLUMN OF R.\r\nC\r\nC       X\r\nC     (K  ) WILL BE UNPACKED INCREMENTALLY AND ADDED INTO THE COLUMN\r\nC       GG\r\nC\r\nC     OF R, AFTER THAT COLUMN OF R HAS BEEN MULTIPLIED BY THE RESPECTIVE\r\nC\r\nC     DIAGONAL ELEMENT OF (S  ).\r\nC                           GG\r\nC\r\nC/////\r\nC     CALL BUG (4HSGG  ,829,Z(ISGG),NSGG-ISGG+1)\r\nC/////\r\n      CALL GOPEN (RGG,Z(BUF1),RDREW)\r\n      CALL GOPEN (KGGX,Z(BUF2),RDREW)\r\n      CALL GOPEN (KGG,Z(BUF3),WRTREW)\r\n      CALL MAKMCB (MCB1,KGG,LUSET,SQR,PRECIS)\r\nC\r\nC     SET UP /PACKX/ FOR PACKING COLUMN OF KGG OUT.\r\nC\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = LUSET\r\n      PKINCR = 1\r\n      RX = ISGG - 1\r\n      DX = ISGG/2\r\nC\r\nC     LOOP THROUGH -LUSET- COLUMNS TO BE OUTPUT.\r\nC\r\n      DO 1080 I = 1,LUSET\r\n      IF (DOUBLE) GO TO 950\r\n      RX = RX + 1\r\n      VALUE = RZ(RX)\r\n      GO TO 960\r\n  950 DX = DX + 1\r\n      DVALUE = DZ(DX)\r\nC\r\nC     UNPACK A COLUMN OF R\r\nC\r\n  960 DO 980 J = IRGG,NRGG\r\n      Z(J) = 0\r\n  980 CONTINUE\r\nC\r\nC     -UNPACK- CAN NOT BE USED HERE DUE TO UNPACKING OF KGGX BELOW.\r\nC\r\n      CALL INTPK  (*990,RGG,BLOCK2,PRECIS,1)\r\n  984 CALL INTPKI (AI,IIROW,RGG,BLOCK2,IEOL)\r\n      IF (DOUBLE) GO TO 985\r\n      K = IRGG - 1 + IIROW\r\n      RZ(K) = RZ(K) + AI(1)\r\n      IF (IEOL) 984,984,990\r\n  985 K = DIRGG - 1 + IIROW\r\n      DZ(K) = DZ(K) + DI(1)\r\n      IF (IEOL) 984,984,990\r\nC\r\nC     MULTIPLY RGG COLUMN BY DIAGONAL ELEMENT OF SGG.\r\nC\r\n  990 IF (DOUBLE) GO TO 1010\r\nC\r\nC     REAL COMPUTATION\r\nC\r\n      DO 1000 J = IRGG,NRGG\r\n      RZ(J) = RZ(J)*VALUE\r\n 1000 CONTINUE\r\n      GO TO 1030\r\nC\r\nC     DOUBLE PRECISION COMPUTATION\r\nC\r\n 1010 DO 1020 J = DIRGG,DNRGG\r\n      DZ(J) = DZ(J)*DVALUE\r\n 1020 CONTINUE\r\nC\r\nC     INCREMENTAL UNPACK OF A COLUMN OF KGGX.\r\nC     ADD TO MODIFIED COLUMN OF RGG IN CORE, AND THEN\r\nC     BLAST PACK OUT FURTHER MODIFIED COLUMN AS A COLUMN OF KGG.\r\nC\r\nC     START UNPACKING COLUMN OF KGGX\r\nC\r\n 1030 CALL INTPK  (*1070,KGGX,BLOCK,PRECIS,1)\r\n 1040 CALL INTPKI (AI,IIROW,KGGX,BLOCK,IEOL)\r\nC\r\nC     ADD VALUE IN\r\nC\r\n      IF (IIROW .GT. LUSET) GO TO 1050\r\n      IF (DOUBLE) GO TO 1060\r\nC\r\nC     REAL ADD IN\r\nC\r\n      K = IRGG - 1 + IIROW\r\n      RZ(K) = RZ(K) + AI(1)\r\n 1050 IF (IEOL) 1040,1040,1070\r\nC\r\nC     DOUBLE PRECISION ADD IN\r\nC\r\n 1060 K = DIRGG - 1 + IIROW\r\n      DZ(K) = DZ(K) + DI(1)\r\n      IF (IEOL) 1040,1040,1070\r\nC\r\nC     PACK OUT COMPLETED COLUMN.\r\nC\r\n 1070 CALL PACK (Z(IRGG),KGG,MCB1)\r\n 1080 CONTINUE\r\n      CALL WRTTRL (MCB1)\r\n      CALL CLOSE (KGG,CLSREW )\r\n      CALL CLOSE (KGGX,CLSREW)\r\n      CALL CLOSE (RGG,CLSREW )\r\nC\r\nC     ALL PROCESSING COMPLETED.\r\nC\r\n      NLR = +1\r\n      RETURN\r\n 1090 CALL CLOSE (MATPOL,CLSREW)\r\n 1100 NLR = -1\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\nC\r\nC     END OF FILE\r\nC\r\n 1110 J = -2\r\n      GO TO 1140\r\nC\r\nC     END OF RECORD\r\nC\r\n 1120 J = -3\r\n      GO TO 1140\r\nC\r\nC     UNDEFINED FILE\r\nC\r\n 1130 J = -1\r\n 1140 CALL MESAGE (J,FILE,SUBR)\r\nC\r\nC     GPTT DATA MISSING FOR SET -TSET-.\r\nC\r\n 1170 WRITE  (OUTPT,1180) UFM,TSET\r\n 1180 FORMAT (A23,' 3078, NO GPTT DATA IS PRESENT FOR TEMPERATURE SET ',\r\n     1        I8,1H.)\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC     NO HBDY ELEMENTS\r\nC\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rod.f",
    "content": "      SUBROUTINE ROD\r\nC\r\nC     ELEMENT TEMPERATURE AND DEFORMATION LOADING FOR THE ROD, CONROD,\r\nC     TUBE\r\nC\r\n      INTEGER         ELTYPE,EID,GPIDA,GPIDB\r\n      REAL            ARRY(3),GPIDA1(1),GPIDB1(1)\r\n      COMMON /CONDAS/ PI,TWOPI,RADEG,DEGRA,S4PISQ\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /TRIMEX/ EID, GPIDA, GPIDB, IARRY(97)\r\n      COMMON /MATIN / MATID,INFLAG,TEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E1,G,NU,RHO,ALPHA,TO1,GE,SIGMAT,SIGMAC,SIGMAS,\r\n     1                SPACE(10)\r\n      COMMON /SSGWRK/ TI(16),VECT(3),FORCE(3),BGPDT(9),VMAG,IN,L,TBAR,\r\n     1                DELTA,XL\r\n      COMMON /SSGETT/ ELTYPE,OLDEL,EORFLG,ENDID,BUFFLG,ITEMP,IDEFT,IDEFM\r\n      EQUIVALENCE     (IARRY(1),ARRY(1)),\r\n     1                (ICSTMA,BGPDT(1)),(ICSTMB,BGPDT(5)),\r\n     2                (GPIDA1(1),BGPDT(2)),(GPIDB1(1),BGPDT(6))\r\nC\r\n      NEPT = 5\r\n      IF (ELTYPE .EQ. 3) NEPT = 4\r\n      A = ARRY(2)\r\nC\r\nC     RECOMPUTE AREA IF ELEMENT IS TUBE\r\nC\r\n      IF (NEPT .EQ. 4) A = PI*(A-ARRY(3))*ARRY(3)\r\nC\r\n      DO 100 I = 1,9\r\n      NEPT = NEPT + 1\r\n  100 BGPDT(I) = ARRY(NEPT)\r\nC\r\nC     OBTAIN THE MATERIAL DATA\r\nC\r\n      INFLAG = 1\r\n      MATID  = IARRY(1)\r\n      TEMP   = BGPDT(9)\r\n      CALL MAT (EID)\r\n      IF (ITEMP) 240,250,240\r\n  240 CALL SSGETD (EID,TI,0)\r\n      TBAR = TI(1) - TO1\r\n      GO TO 260\r\n  250 TBAR = 0.0\r\n  260 IF (IDEFT) 270,280,270\r\n  270 CALL FEDT (EID,DELTA,IDEFM)\r\n      GO TO 290\r\n  280 DELTA = 0.0\r\n  290 DO 310 I = 1,3\r\n  310 VECT(I) = GPIDA1(I) - GPIDB1(I)\r\n      CALL NORM (VECT(1),XL)\r\n      VMAG = E1*A*(DELTA + ALPHA*XL*TBAR)/XL\r\n      DO 320 I = 1,3\r\n      VECT(I) = -VECT(I)*VMAG\r\n  320 FORCE (I) = -VECT(I)\r\n      IF (ICSTMB) 330,340,330\r\n  330 CALL BASGLB (VECT(1),VECT(1),GPIDB1,ICSTMB)\r\n  340 IN = GPIDB - 1\r\n      DO 350 I = 1,3\r\n      L  = IN + I\r\n  350 CORE(L) = CORE(L) + VECT(I)\r\n      IF (ICSTMA) 370,380,370\r\n  370 CALL BASGLB (FORCE(1),FORCE(1),GPIDA1,ICSTMA)\r\n  380 IN = GPIDA - 1\r\n      DO 390 I = 1,3\r\n      L  = IN + I\r\n  390 CORE(L) = CORE(L) + FORCE(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rodd.f",
    "content": "      SUBROUTINE RODD\r\nC\r\nC     THIS ROUTINE PROCESSES ROD ELEMENT DATA TO PRODUCE STIFFNESS AND\r\nC     MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY AND\r\nC     CAPACITY MATRICES ARE PRODUCED\r\nC\r\nC     THIS ROUTINE CAN COMPUTE BOTH CONVENTIONAL AND CONSISTENT\r\nC     MASS MATRICES\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS VERSION WAS SPECIALLY CODED TO ILLUSTRATE A GENERAL\r\nC     USE OF THE IMPROVED MATRIX GENERATOR.\r\nC\r\nC     THE EST ENTRY FOR THIS ELEMENT CONTAINS\r\nC\r\nC     POSITION     NAME       DESCRIPTION\r\nC     *****        *****      *******************************\r\nC     1             EID       ELEMENT ID NO.\r\nC     2             SIL1      SCALAR INDEX OF POINT A\r\nC     3             SIL2      SCALAR INDEX OF POINT B\r\nC     4             MID       MATERIAL DATA ID\r\nC     5             AFACT     AREA OF CROSS SECTION\r\nC     6             JFACT     TORSIONAL STIFFNESS COEFFICIENT\r\nC     7             CFACT     TORSIONAL STRESS RECOVERY DISTANCE\r\nC     8             MU        NON-STRUCTURAL MASS PER LENGTH\r\nC     9-16          BGPDT     BASIC GRID POINT DATA. COORDINATE SYSTEM\r\nC                             NUMBER AND  X,Y,Z LOCATION FOR 2 POINTS\r\nC     17            TBAR      AVERAGE ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         SIL1     ,SIL2     ,IEST(13) ,EID      ,GE       ,\r\n     1                DICT(7)  ,ELID     ,ESTID\r\n      REAL            JFACT    ,MU       ,KCON     ,EST(200)\r\n      DOUBLE PRECISION          EVECT(3) ,EL       ,KE       ,ME       ,\r\n     1                TE       ,HA(3)    ,HB(3)    ,KHA(3)   ,KHB(3)   ,\r\n     2                TA(9)    ,TB(9)    ,SCALE    ,K        ,MJIDUM(9),\r\n     3                MASSII(9),MASSJJ(9),MASSIJ(9),MASSJI(9),MIJDUM(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MATIN / MATID    ,INFLAG   ,ELTEMP   ,DUM(3)\r\n      COMMON /MATOUT/ E        ,G        ,NU       ,RHO      ,ALFA     ,\r\n     1                TSUB0    ,GE\r\n      COMMON /HMTOUT/ KCON\r\n      COMMON /EMGPRM/ IXTRA    ,IZR      ,NZR      ,DUMY(12) ,KMBGG(3) ,\r\n     1                IPREC    ,NOGO     ,HEAT     ,ICMBAR\r\n      COMMON /EMGDIC/ DUM2(2)  ,NLOCS    ,ELID     ,ESTID\r\n      COMMON /ZZZZZZ/ K(1)\r\nC\r\nC     THE VARIABLE K IS OPEN CORE. OPEN SPACE EXISTS FROM Z(IZ) TO Z(NZ)\r\nC     THIS IS INTENDED AS AN EXAMPLE. NORMALLY FOR SMALL ARRAYS\r\nC     LOCAL VARIABLES MAY BE USED.\r\nC\r\n      COMMON /EMGEST/ EID      ,SIL1     ,SIL2     ,MID      ,AFACT    ,\r\n     1                JFACT    ,CFACT    ,MU       ,BGPDT(4,2),TBAR\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      EQUIVALENCE     (KSYSTM( 2),IOUTPT),(KSYSTM(56),IHEAT)  ,\r\n     1                (EID,EST(1),IEST(1)),(CP,KCON)\r\nC\r\nC     FOR DOUBLE PRECISION THE POINTERS TO OPEN CORE MUST BE MODIFIED.\r\nC\r\n      IZ = (IZR-2)/IPREC + 2\r\n      NZ = NZR/IPREC\r\n      IF (NZ-IZ .LE. 144) GO TO 290\r\n      DICT(1) = ESTID\r\nC\r\nC     SUBTRACT BASIC LOCATIONS TO OBTAIN LENGTH ETC.\r\nC\r\n      DO 10 I = 1,3\r\n   10 EVECT(I) = BGPDT(I+1,2) - BGPDT(I+1,1)\r\nC\r\n      EL = DSQRT(EVECT(1)**2 + EVECT(2)**2 + EVECT(3)**2)\r\n      IF (EL .LE. 0.0D0) GO TO 270\r\nC\r\nC     IF HEAT TRANSFER PROBLEM TRANSFER.  CALL MATERIAL SUBROUTINE\r\nC\r\n      INFLAG = 1\r\n      MATID  = MID\r\n      ELTEMP = TBAR\r\n      IF (IHEAT .EQ. 1) GO TO 240\r\n      CALL MAT (EID)\r\n      KE = DBLE(E*AFACT)/EL\r\n      ME = (DBLE(RHO*AFACT+MU))*EL/2.0D0\r\n      TE = DBLE(G*JFACT)/EL\r\nC\r\nC     PROCESS STIFFNESS HERE\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 220\r\n      IF (KE.EQ.0.0D0 .AND. TE.EQ.0.0D0) GO TO 220\r\nC\r\nC     GENERATE   HA  =  (E*TA)/EL   AND  HB = (E*TB)/EL\r\nC\r\n      IF (IEST(9) .EQ. 0) GO TO 30\r\n      CALL TRANSD (BGPDT(1,1),TA)\r\n      CALL GMMATD (EVECT,1,3,0, TA,3,3,0, HA)\r\n      DO 20 I = 1,3\r\n   20 HA(I) = HA(I)/EL\r\n      GO TO 50\r\n   30 DO 40 I = 1,3\r\n   40 HA(I) = EVECT(I)/EL\r\n   50 IF (IEST(13) .EQ. 0) GO TO 70\r\n      CALL TRANSD (BGPDT(1,2),TB)\r\n      CALL GMMATD (EVECT,1,3,0, TB,3,3,0, HB)\r\n      DO 60 I = 1,3\r\n   60 HB(I) = HB(I)/EL\r\n      GO TO 90\r\n   70 DO 80 I = 1,3\r\n   80 HB(I) = EVECT(I)/EL\r\nC\r\nC     THE GENERAL 12X12  MATRIX FOR THE ROD ELEMENT IS\r\nC                            -                              -\r\nC                            1HA K HA1   0  1HA K HB1       1\r\nC                **   **     1 ------1------1-------1-------1\r\nC                *  K  *   = 1   0   1HA T A1       1HA T HB1\r\nC                **   **     1 ------1------1-------1-------1\r\nC                            1HB K HA1      1HB K HB1       1\r\nC                            1 ------1------1-------1-------1\r\nC                            1       1HB T A1       1HB T HB1\r\nC                            1       1      1       1       1\r\nC                            -                              -\r\nC                      EACH BLOCK  ABOVE IS A 3 BY 3 MATRIX\r\nC\r\nC     TEST AND SET COMPONENT CODE    111= 7     111000=56\r\nC\r\n   90 ICODE = 0\r\n      NDOF  = 0\r\n      IF (TE  .NE. 0.D0) GO TO 100\r\n      ICODE = 7\r\n      NDOF  = 6\r\n      GO TO 120\r\n  100 IF (KE  .NE. 0.D0) GO TO 110\r\n      ICODE = 56\r\n      NDOF  = 6\r\n      GO TO 120\r\n  110 ICODE = 63\r\n      NDOF  = 12\r\n  120 NSQ   = NDOF**2\r\n      NG    = NDOF/2\r\n      NPART = NG*NDOF\r\n      IZERO = IZ - 1\r\n      IPASS = 1\r\n      DO  130 I = 1,NSQ\r\n      IZPI  = IZ + I - 1\r\n  130 K(IZPI) = 0.0D0\r\nC\r\nC     EXTENSIONAL STIFFNESS TERMS ARE COMPUTED HERE.\r\nC\r\n      IF (ICODE .EQ. 56) GO TO 200\r\n      SCALE = KE\r\n  140 DO 150 I = 1,3\r\n      KHA(I) = SCALE*HA(I)\r\n  150 KHB(I) = SCALE*HB(I)\r\nC\r\nC     THE MATRIX COLUMNS AND ROWS MUST BE IN THE NUMERICAL ORDER\r\nC     OF TH SIL VALUES. THE POINTERS INTO THE MATRIX ARE VARIABLES.\r\nC\r\n      IF (SIL2-SIL1) 160,270,170\r\n  160 IBBZ = IZERO\r\n      IABZ = IZERO + NG\r\n      IBAZ = IZERO + NPART\r\n      IAAZ = IBAZ  + NG\r\n      GO TO 180\r\n  170 IAAZ = IZERO\r\n      IBAZ = IZERO + NG\r\n      IABZ = IZERO + NPART\r\n      IBBZ = IABZ  + NG\r\n  180 CONTINUE\r\n      DO 190 J = 1,3\r\n      DO 190 I = 1,3\r\n      IJ  = NDOF*(J-1) + I\r\n      IAA = IJ + IAAZ\r\n      K(IAA) = KHA(I)*HA(J)\r\n      IBA = IJ + IBAZ\r\n      K(IBA) =-KHB(I)*HA(J)\r\n      IAB = IJ + IABZ\r\n      K(IAB) =-KHA(I)*HB(J)\r\n      IBB = IJ + IBBZ\r\n      K(IBB) = KHB(I)*HB(J)\r\n  190 CONTINUE\r\nC\r\nC     THE TORSIONAL STIFFNESS TERMS ARE FORMED USING TE INSTEAD OF KE\r\nC     THEY ARE INSERTED IN THE MATRIX WITH  A CONSTANT OFFSET, 3*12+3.\r\nC\r\n  200 IF (IPASS .EQ. 2) GO TO 210\r\n      IF (NDOF .EQ. 12) IZERO = 38 + IZ\r\n      IPASS = 2\r\n      SCALE = TE\r\n      IF (ICODE .NE. 7) GO TO 140\r\n  210 IPART = IZ\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GE\r\n      CALL EMGOUT (K(IPART),K(IPART),NSQ,1,DICT,1,IPREC)\r\nC\r\nC     THE MASS MATRIX TERMS ARE CALCULATED HERE.\r\nC\r\n  220 IF (KMBGG(2).EQ.0 .OR. ME.EQ.0.0D0) RETURN\r\n      DICT(3) = 6\r\n      DICT(4) = 7\r\n      DICT(5) = 0\r\nC\r\nC     CHECK TO SEE IF CONVENTIONAL OR CONSISTENT MASS MATRIX IS REQUIRED\r\nC\r\n      IF (ICMBAR .GT. 0) GO TO 400\r\nC\r\nC     CONVENTIONAL MASS MATRIX TERMS ARE COMPUTED HERE\r\nC\r\n      DICT(2) = 2\r\n      LDATA   = 6\r\n      IZP5    = IZ + 5\r\n      DO 230 I = IZ,IZP5\r\n  230 K(I) = ME\r\n      GO TO 600\r\nC\r\nC     CONSISTENT MASS MATRIX TERMS ARE COMPUTED HERE\r\nC\r\n  400 DICT(2) = 1\r\n      LDATA   = 36\r\n      DO 420 I = 1,9\r\n      MASSII(I) = 0.0D0\r\n      MASSJJ(I) = 0.0D0\r\n      MASSIJ(I) = 0.0D0\r\n      MASSJI(I) = 0.0D0\r\n      MIJDUM(I) = 0.0D0\r\n      MJIDUM(I) = 0.0D0\r\n  420 CONTINUE\r\n      ME = 2.0D0*ME\r\n      DO 440 I = 1,9,4\r\n      MASSII(I) = ME/3.0D0\r\n      MASSJJ(I) = ME/3.0D0\r\n      MASSIJ(I) = ME/6.0D0\r\n      MASSJI(I) = ME/6.0D0\r\n      MIJDUM(I) = ME/6.0D0\r\n      MJIDUM(I) = ME/6.0D0\r\n  440 CONTINUE\r\n      IF (SIL2-SIL1) 480,270,460\r\n  460 ITI = 9\r\n      ITJ = 13\r\n      GO TO 500\r\n  480 ITI = 13\r\n      ITJ = 9\r\n  500 IF (IEST(ITI) .EQ. 0) GO TO 520\r\n      CALL TRANSD (IEST(ITI), TA)\r\n      CALL GMMATD (TA,3,3,1, MASSII,3,3,0, K(IZ))\r\n      CALL GMMATD (K(IZ),3,3,0, TA,3,3,0, MASSII)\r\n      CALL GMMATD (TA,3,3,1, MIJDUM,3,3,0, MASSIJ)\r\n      CALL GMMATD (MJIDUM,3,3,0, TA,3,3,0, MASSJI)\r\n  520 IF (IEST(ITJ) .EQ. 0) GO TO 560\r\n      CALL TRANSD (IEST(ITJ), TA)\r\n      CALL GMMATD (TA,3,3,1, MASSJJ,3,3,0, K(IZ))\r\n      CALL GMMATD (K(IZ),3,3,0, TA,3,3,0, MASSJJ)\r\n      CALL GMMATD (MASSIJ,3,3,0, TA,3,3,0, MIJDUM)\r\n      CALL GMMATD (TA,3,3,1, MASSJI,3,3,0, MJIDUM)\r\n      DO 540 I = 1,9\r\n      MASSIJ(I) = MIJDUM(I)\r\n      MASSJI(I) = MJIDUM(I)\r\n  540 CONTINUE\r\n  560 DO 580 I = 1,3\r\n      KZ = IZ + I - 1\r\n      K(KZ   ) = MASSII(I  )\r\n      K(KZ+ 6) = MASSII(I+3)\r\n      K(KZ+12) = MASSII(I+6)\r\n      K(KZ+ 3) = MASSIJ(I  )\r\n      K(KZ+ 9) = MASSIJ(I+3)\r\n      K(KZ+15) = MASSIJ(I+6)\r\n      K(KZ+18) = MASSJI(I  )\r\n      K(KZ+24) = MASSJI(I+3)\r\n      K(KZ+30) = MASSJI(I+6)\r\n      K(KZ+21) = MASSJJ(I  )\r\n      K(KZ+27) = MASSJJ(I+3)\r\n      K(KZ+33) = MASSJJ(I+6)\r\n  580 CONTINUE\r\n  600 CALL EMGOUT (K(IZ),K(IZ),LDATA,1,DICT,2,IPREC)\r\n      RETURN\r\nC\r\nC     HEAT TRANSFER CALCULATIONS ARE PERFORMED HERE\r\nC\r\n  240 INFLAG  = 1\r\n      DICT(2) = 1\r\n      DICT(3) = 2\r\n      DICT(4) = 1\r\n      DICT(5) = 0\r\n      IF (KMBGG(1) .EQ. 0) GO TO 250\r\n      CALL HMAT (EID)\r\n      K(IZ) = DBLE(AFACT*KCON)/EL\r\n      IF (K(IZ) .EQ. 0.0D0) GO TO 250\r\n      K(IZ+1) = -K(IZ)\r\n      K(IZ+2) = -K(IZ)\r\n      K(IZ+3) =  K(IZ)\r\n      CALL EMGOUT (K(IZ),K(IZ),4,1,DICT,1,IPREC)\r\n  250 INFLAG = 4\r\n      IF (KMBGG(1) .EQ. 0) RETURN\r\n      CALL HMAT (EID)\r\n      K(IZ) = DBLE(AFACT*CP)*EL/2.0D0\r\n      IF (K(IZ) .EQ. 0.0D0) RETURN\r\n      K(IZ+1) = K(IZ)\r\n      DICT(2) = 2\r\n      CALL EMGOUT (K(IZ),K(IZ),2,1,DICT,3,IPREC)\r\n      RETURN\r\nC\r\n  270 NOGO = .TRUE.\r\n      WRITE  (IOUTPT,280) UFM,EID\r\n  280 FORMAT (A23,' 3118, ROD ELEMENT NO.',I9,\r\n     1        ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.')\r\n      RETURN\r\nC\r\n  290 NOGO = .TRUE.\r\n      WRITE  (IOUTPT,300) UFM\r\n  300 FORMAT (A23,' 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rods.f",
    "content": "      SUBROUTINE RODS\r\nC\r\nC     THIS ROUTINE PROCESSES ROD ELEMENT DATA TO PRODUCE STIFFNESS AND\r\nC     MASS MATRICES. IF THE HEAT TRANSFER OPTION IS ON, CONDUCTIVITY AND\r\nC     CAPACITY MATRICES ARE PRODUCED\r\nC\r\nC     THIS ROUTINE CAN COMPUTE BOTH CONVENTIONAL AND CONSISTENT\r\nC     MASS MATRICES\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS VERSION WAS SPECIALLY CODED TO ILLUSTRATE A GENERAL\r\nC     USE OF THE IMPROVED MATRIX GENERATOR.\r\nC\r\nC     THE EST ENTRY FOR THIS ELEMENT CONTAINS\r\nC\r\nC     POSITION     NAME       DESCRIPTION\r\nC     *****        *****      *******************************\r\nC     1             EID       ELEMENT ID NO.\r\nC     2             SIL1      SCALAR INDEX OF POINT A\r\nC     3             SIL2      SCALAR INDEX OF POINT B\r\nC     4             MID       MATERIAL DATA ID\r\nC     5             AFACT     AREA OF CROSS SECTION\r\nC     6             JFACT     TORSIONAL STIFFNESS COEFFICIENT\r\nC     7             CFACT     TORSIONAL STRESS RECOVERY DISTANCE\r\nC     8             MU        NON-STRUCTURAL MASS PER LENGTH\r\nC     9-16          BGPDT     BASIC GRID POINT DATA. COORDINATE SYSTEM\r\nC                             NUMBER AND  X,Y,Z LOCATION FOR 2 POINTS\r\nC     17            TBAR      AVERAGE ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL         NOGO\r\n      INTEGER         SIL1     ,SIL2     ,IEST(13)  ,EID     ,GE       ,\r\n     1                DICT(7)  ,ELID     ,ESTID\r\n      REAL            JFACT    ,MU       ,KCON     ,EST(200) ,K        ,\r\n     1                EVECT(3) ,EL       ,KE       ,ME       ,TE       ,\r\n     2                HA(3)    ,HB(3)    ,KHA(3)   ,KHB(3)   ,TA(9)    ,\r\n     3                TB(9)    ,SCALE\r\n      REAL            MASSII(9),MASSJJ(9),MASSIJ(9),MASSJI(9),MIJDUM(9),\r\n     1                MJIDUM(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MATIN / MATID    ,INFLAG   ,ELTEMP   ,DUM(3)\r\n      COMMON /MATOUT/ E        ,G        ,NU       ,RHO      ,ALFA     ,\r\n     1                TSUB0    ,GE\r\n      COMMON /HMTOUT/ KCON\r\n      COMMON /EMGPRM/ IXTRA    ,IZR      ,NZR      ,DUMY(12) ,KMBGG(3) ,\r\n     1                IPREC    ,NOGO     ,HEAT     ,ICMBAR\r\n      COMMON /EMGDIC/ DUM2(2)  ,NLOCS    ,ELID     ,ESTID\r\n      COMMON /ZZZZZZ/ K(1)\r\nC\r\nC     THE VARIABLE K IS OPEN CORE. OPEN SPACE EXISTS FROM Z(IZ) TO Z(NZ)\r\nC     THIS IS INTENDED AS AN EXAMPLE. NORMALLY FOR SMALL ARRAYS\r\nC     LOCAL VARIABLES MAY BE USED.\r\nC\r\n      COMMON /EMGEST/ EID      ,SIL1     ,SIL2     ,MID      ,AFACT    ,\r\n     1                JFACT    ,CFACT    ,MU       ,BGPDT(4,2),TBAR\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      EQUIVALENCE     (KSYSTM( 2),IOUTPT),(KSYSTM(56),IHEAT) ,\r\n     1                (EID,EST(1),IEST(1)),(CP,KCON)\r\nC\r\nC     FOR DOUBLE PRECISION THE POINTERS TO OPEN CORE MUST BE MODIFIED.\r\nC\r\n      IZ = (IZR-2)/IPREC + 2\r\n      NZ = NZR/IPREC\r\n      IF (NZ -IZ .LE. 144) GO TO 290\r\n      DICT(1) = ESTID\r\nC\r\nC     SUBTRACT BASIC LOCATIONS TO OBTAIN LENGTH ETC.\r\nC\r\n      DO 10 I = 1,3\r\n   10 EVECT(I) = BGPDT(I+1,2) - BGPDT(I+1,1)\r\nC\r\n      EL = SQRT(EVECT(1)**2 + EVECT(2)**2 + EVECT(3)**2)\r\n      IF (EL .LE. 0.0) GO TO 270\r\nC\r\nC     IF HEAT TRANSFER PROBLEM TRANSFER.  CALL MATERIAL SUBROUTINE\r\nC\r\n      INFLAG = 1\r\n      MATID  = MID\r\n      ELTEMP = TBAR\r\n      IF (IHEAT .EQ. 1) GO TO 240\r\n      CALL MAT (EID)\r\n      KE = (E*AFACT)/EL\r\n      ME = (RHO*AFACT+MU)*EL/2.0\r\n      TE = (G*JFACT)/EL\r\nC\r\nC     PROCESS STIFFNESS HERE\r\nC\r\n      IF (KMBGG(1) .EQ. 0) GO TO 220\r\n      IF (KE.EQ.0.0 .AND. TE.EQ.0.) GO TO 220\r\nC\r\nC     GENERATE   HA  =  (E*TA)/EL   AND  HB = (E*TB)/EL\r\nC\r\n      IF (IEST(9).EQ. 0) GO TO 30\r\n      CALL TRANSS (BGPDT(1,1),TA)\r\n      CALL GMMATS (EVECT,1,3,0, TA,3,3,0, HA)\r\n      DO 20 I = 1,3\r\n   20 HA(I) = HA(I)/EL\r\n      GO TO 50\r\n   30 DO 40 I = 1,3\r\n   40 HA(I) = EVECT(I)/EL\r\n   50 IF (IEST(13).EQ. 0) GO TO 70\r\n      CALL TRANSS (BGPDT(1,2),TB)\r\n      CALL GMMATS (EVECT,1,3,0, TB,3,3,0, HB)\r\n      DO 60 I = 1,3\r\n   60 HB(I) = HB(I)/EL\r\n      GO TO 90\r\n   70 DO 80 I = 1,3\r\n   80 HB(I) = EVECT(I)/EL\r\nC\r\nC     THE GENERAL 12X12  MATRIX FOR THE ROD ELEMENT IS\r\nC                             -                            -\r\nC                            1HA K HA1   0  1HA K HB1       1\r\nC                **   **     1 ------1------1-------1-------1\r\nC                *  K  *   = 1   0   1HA T A1       1HA T HB1\r\nC                **   **     1 ------1------1-------1-------1\r\nC                            1HB K HA       1HB K HB1       1\r\nC                            1 ------1------1-------1-------1\r\nC                            1       1HB T A1       1HB T HB1\r\nC                            1       1      1       1       1\r\nC                             -                            -\r\nC                      EACH BLOCK  ABOVE IS A 3 BY 3 MATRIX\r\nC\r\nC     TEST AND SET COMPONENT CODE    111= 7     111000=56\r\nC\r\n   90 ICODE = 0\r\n      NDOF  = 0\r\n      IF (TE .NE. 0.) GO TO 100\r\n      ICODE = 7\r\n      NDOF  = 6\r\n      GO TO 120\r\n  100 IF (KE .NE. 0.) GO TO 110\r\n      ICODE = 56\r\n      NDOF  = 6\r\n      GO TO 120\r\n  110 ICODE = 63\r\n      NDOF  = 12\r\n  120 NSQ   = NDOF**2\r\n      NG    = NDOF/2\r\n      NPART = NG*NDOF\r\n      IZERO = IZ -1\r\n      IPASS = 1\r\n      DO  130 I = 1,NSQ\r\n      IZPI  = IZ + I - 1\r\n  130 K(IZPI) = 0.0\r\nC\r\nC     EXTENSIONAL STIFFNESS TERMS ARE COMPUTED HERE.\r\nC\r\n      IF (ICODE .EQ. 56) GO TO 200\r\n      SCALE = KE\r\n  140 DO 150 I = 1,3\r\n      KHA(I) = SCALE*HA(I)\r\n  150 KHB(I) = SCALE*HB(I)\r\nC\r\nC     THE MATRIX COLUMNS AND ROWS MUST BE IN THE NUMERICAL ORDER\r\nC     OF TH SIL VALUES. THE POINTERS INTO THE MATRIX ARE VARIABLES.\r\nC\r\n      IF (SIL2-SIL1) 160,270,170\r\n  160 IBBZ = IZERO\r\n      IABZ = IZERO + NG\r\n      IBAZ = IZERO + NPART\r\n      IAAZ = IBAZ  + NG\r\n      GO TO 180\r\n  170 IAAZ = IZERO\r\n      IBAZ = IZERO + NG\r\n      IABZ = IZERO + NPART\r\n      IBBZ = IABZ  + NG\r\n  180 CONTINUE\r\n      DO 190 J = 1,3\r\n      DO 190 I = 1,3\r\n      IJ   = NDOF*(J-1) + I\r\n      IAA  = IJ + IAAZ\r\n      K(IAA) = KHA(I)*HA(J)\r\n      IBA  = IJ + IBAZ\r\n      K(IBA) =-KHB(I)*HA(J)\r\n      IAB  = IJ + IABZ\r\n      K(IAB) =-KHA(I)* HB(J)\r\n      IBB  = IJ + IBBZ\r\n      K(IBB) = KHB(I)* HB(J)\r\n  190 CONTINUE\r\nC\r\nC     THE TORSIONAL STIFFNESS TERMS ARE FORMED USING TE INSTEAD OF KE\r\nC     THEY ARE INSERTED IN THE MATRIX WITH  A CONSTANT OFFSET, 3*12+3.\r\nC\r\n  200 IF (IPASS .EQ. 2) GO TO 210\r\n      IF (NDOF .EQ. 12) IZERO = 38 + IZ\r\n      IPASS = 2\r\n      SCALE = TE\r\n      IF (ICODE .NE. 7) GO TO 140\r\n  210 IPART   = IZ\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = ICODE\r\n      DICT(5) = GE\r\n      CALL EMGOUT (K(IPART),K(IPART),NSQ,1,DICT,1,IPREC)\r\nC\r\nC     THE MASS MATRIX TERMS ARE CALCULATED HERE.\r\nC\r\n  220 IF (KMBGG(2).EQ.0 .OR. ME.EQ.0.0) RETURN\r\n      DICT(3) = 6\r\n      DICT(4) = 7\r\n      DICT(5) = 0\r\nC\r\nC     CHECK TO SEE IF CONVENTIONAL OR CONSISTENT MASS MATRIX IS REQUIRED\r\nC\r\n      IF (ICMBAR .GT. 0) GO TO 400\r\nC\r\nC     CONVENTIONAL MASS MATRIX TERMS ARE COMPUTED HERE\r\nC\r\n      DICT(2) = 2\r\n      LDATA = 6\r\n      IZP5  = IZ + 5\r\n      DO 230 I = IZ,IZP5\r\n  230 K(I)  = ME\r\n      GO TO 600\r\nC\r\nC     CONSISTENT MASS MATRIX TERMS ARE COMPUTED HERE\r\nC\r\n  400 DICT(2) = 1\r\n      LDATA   = 36\r\n      DO 420 I = 1,9\r\n      MASSII(I) = 0.0\r\n      MASSJJ(I) = 0.0\r\n      MASSIJ(I) = 0.0\r\n      MASSJI(I) = 0.0\r\n      MIJDUM(I) = 0.0\r\n      MJIDUM(I) = 0.0\r\n  420 CONTINUE\r\n      ME = 2.0*ME\r\n      DO 440 I = 1,9,4\r\n      MASSII(I) = ME/3.0\r\n      MASSJJ(I) = ME/3.0\r\n      MASSIJ(I) = ME/6.0\r\n      MASSJI(I) = ME/6.0\r\n      MIJDUM(I) = ME/6.0\r\n      MJIDUM(I) = ME/6.0\r\n  440 CONTINUE\r\n      IF (SIL2-SIL1) 480,270,460\r\n  460 ITI = 9\r\n      ITJ = 13\r\n      GO TO 500\r\n  480 ITI = 13\r\n      ITJ = 9\r\n  500 IF (IEST(ITI) .EQ. 0) GO TO 520\r\n      CALL TRANSS (IEST(ITI), TA)\r\n      CALL GMMATS (TA,3,3,1, MASSII,3,3,0, K(IZ))\r\n      CALL GMMATS (K(IZ),3,3,0, TA,3,3,0, MASSII)\r\n      CALL GMMATS (TA,3,3,1, MIJDUM,3,3,0, MASSIJ)\r\n      CALL GMMATS (MJIDUM,3,3,0, TA,3,3,0, MASSJI)\r\n  520 IF (IEST(ITJ) .EQ. 0) GO TO 560\r\n      CALL TRANSS (IEST(ITJ), TA)\r\n      CALL GMMATS (TA,3,3,1, MASSJJ,3,3,0, K(IZ))\r\n      CALL GMMATS (K(IZ),3,3,0, TA,3,3,0, MASSJJ)\r\n      CALL GMMATS (MASSIJ,3,3,0, TA,3,3,0, MIJDUM)\r\n      CALL GMMATS (TA,3,3,1, MASSJI,3,3,0, MJIDUM)\r\n      DO 540 I = 1,9\r\n      MASSIJ(I) = MIJDUM(I)\r\n      MASSJI(I) = MJIDUM(I)\r\n  540 CONTINUE\r\n  560 DO 580 I = 1,3\r\n      KZ = IZ + I - 1\r\n      K(KZ   ) = MASSII(I  )\r\n      K(KZ+ 6) = MASSII(I+3)\r\n      K(KZ+12) = MASSII(I+6)\r\n      K(KZ+ 3) = MASSIJ(I  )\r\n      K(KZ+ 9) = MASSIJ(I+3)\r\n      K(KZ+15) = MASSIJ(I+6)\r\n      K(KZ+18) = MASSJI(I  )\r\n      K(KZ+24) = MASSJI(I+3)\r\n      K(KZ+30) = MASSJI(I+6)\r\n      K(KZ+21) = MASSJJ(I  )\r\n      K(KZ+27) = MASSJJ(I+3)\r\n      K(KZ+33) = MASSJJ(I+6)\r\n  580 CONTINUE\r\n  600 CALL EMGOUT (K(IZ),K(IZ),LDATA,1,DICT,2,IPREC)\r\n      RETURN\r\nC\r\nC     HEAT TRANSFER CALCULATIONS ARE PERFORMED HERE\r\nC\r\n  240 INFLAG  = 1\r\n      DICT(2) = 1\r\n      DICT(3) = 2\r\n      DICT(4) = 1\r\n      DICT(5) = 0\r\n      IF (KMBGG(1) .EQ. 0) GO TO 250\r\n      CALL HMAT (EID)\r\n      K(IZ) = (AFACT*KCON)/EL\r\n      IF (K(IZ) .EQ. 0.0) GO TO 250\r\n      K(IZ+1) = -K(IZ)\r\n      K(IZ+2) = -K(IZ)\r\n      K(IZ+3) =  K(IZ)\r\n      CALL EMGOUT (K(IZ),K(IZ),4,1,DICT,1,IPREC)\r\n  250 INFLAG = 4\r\n      IF (KMBGG(1) .EQ. 0) RETURN\r\n      CALL HMAT (EID)\r\n      K(IZ) = (AFACT*CP)*EL/2.0\r\n      IF (K(IZ) .EQ. 0.0) RETURN\r\n      K(IZ+1) = K(IZ)\r\n      DICT(2) = 2\r\n      CALL EMGOUT (K(IZ),K(IZ),2,1,DICT,3,IPREC)\r\n      RETURN\r\nC\r\n  270 NOGO = .TRUE.\r\n      WRITE  (IOUTPT,280) UFM,EID\r\n  280 FORMAT (A23,' 3118, ROD ELEMENT NO.',I9,\r\n     1        ' HAS ILLEGAL GEOMETRY OR CONNECTIONS.')\r\n      RETURN\r\n  290 NOGO = .TRUE.\r\n      WRITE  (IOUTPT,300) UFM\r\n  300 FORMAT (A23,' 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rombdk.f",
    "content": "      SUBROUTINE ROMBDK (B,PRECIS,ITDONE,FINTG,K,X)\r\nC\r\nC     INTEGRATE F(X) FROM 0.0 TO X = B\r\nC\r\nC         B      = UPPER LIMIT\r\nC         NOSIG  = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED\r\nC                  (NOT MORE THAN 7) = 5\r\nC         PRECIS = 0.0  UPON RETURN, PRECIS = ACTUAL NUMBER\r\nC                  OF SIGNIFICANT DIGITS ATTAINED\r\nC         NUM    = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE\r\nC                  (NOT MORE THAN 99) = 15\r\nC     UPON RETURN FROM ROMBER, THE VALUE OF THE INTEGRAL WILL BE FOUND\r\nC     IN FINTG\r\nC\r\nC     IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN\r\nC     TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL\r\nC     NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS.  TO CONFORM\r\nC     TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE\r\nC     CONDITIONS IS MET.\r\nC\r\n      DOUBLE PRECISION DEN,CONST,B,PRECIS,FINTG,X,FAAAA,FAAAB,\r\n     1                 FAAAC,FAAAD,F,FAAAE,FAAAF,FAAAG,FAAAH,DIFF\r\n      DIMENSION        X(6),FAAAA(20),FAAAB(20)\r\nC\r\n      FAAAC = 0.00001D0\r\n      IAAAA = 1\r\n      FAAAD = B\r\n      X(1)  = 0.0D0\r\n      ASSIGN 100 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  100 CONTINUE\r\n      FAAAE = F\r\n      X(1)  = B\r\n      ASSIGN 200 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  200 CONTINUE\r\n      FAAAE = FAAAE+F\r\n      FAAAA(1) = 0.5*FAAAD*FAAAE\r\n 9988 FAAAD = 0.5*FAAAD\r\n      IAAAC = 2**(IAAAA-1)\r\n      FAAAE = 0.0\r\nC\r\n      IAAAD = 0\r\n 9986 IAAAD = IAAAD+1\r\n      FAAAF = IAAAD\r\n      X(1) = (2.0*FAAAF-1.0)*FAAAD\r\n      ASSIGN 300 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  300 CONTINUE\r\n      FAAAE = FAAAE + F\r\n      IF (IAAAD .LT. IAAAC) GO TO 9986\r\nC\r\n      FAAAB(1) = 0.5*FAAAA(1) + FAAAD*FAAAE\r\n      IAAAA = IAAAA+1\r\n      DO 9985 IAAAD = 2,IAAAA\r\n      FAAAG = 4.0**(IAAAD-1)\r\n      FAAAH = FAAAG-1.0\r\n      IAAAF = IAAAD-1\r\n 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF) - FAAAA(IAAAF))/FAAAH\r\n      IAAAC = 2*IAAAC+1\r\n      DIFF  = FAAAB(IAAAA) - FAAAA(IAAAA-1)\r\n      IF (DABS(DIFF)-DABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981\r\n 9981 DO 9980 IAAAD = 1,IAAAA\r\n 9980 FAAAA(IAAAD)  = FAAAB(IAAAD)\r\n      IF (IAAAA.LT.15) GO TO 9988\r\n 9979 PRECIS = DIFF\r\n      ITDONE = IAAAA - 1\r\n      FINTG  = FAAAB(IAAAA)\r\n      RETURN\r\nC\r\nC     THIS CODE REPLACES D4K\r\nC\r\n 1000 CONTINUE\r\n      IF (X(1) .EQ.0.0D0) GO TO 1010\r\n      DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1))\r\n      F   = X(1)**(X(6)-1.D0)*DSIN(X(1))**2/DEN\r\n      GO TO 1020\r\n 1010 F = 0.0D0\r\n 1020 GO TO IRET, (100,200,300)\r\nC\r\nC     THIS CODE REPLACES D5K\r\nC\r\n 2000 CONTINUE\r\n      IF (X(1) .EQ. 0.0D0) GO TO 2010\r\n      DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1))\r\n      F   = X(1)**(X(6)-1.D0)*2.*DSIN(X(1))*DCOS(X(1))/DEN\r\n      GO TO 2020\r\n 2010 F=0.0D0\r\n 2020 GO TO IRET, (100,200,300)\r\nC\r\nC     THIS CODE REPLACES D6K\r\nC\r\n 3000 CONTINUE\r\n      DEN = X(3) - X(2)*X(5)*(1.D0-DCOS(X(1))) + X(2)*X(4)*DSIN(X(1))\r\n      IF (X(6) .EQ. 1.D0) CONST = 1.D0\r\n      IF (X(6) .NE. 1.D0) CONST = X(1)**(X(6)-1.D0)\r\n      IF (DEN .EQ. 0.0D0) GO TO 3010\r\n      F = CONST*DCOS(X(1))**2/DEN\r\n      GO TO 3020\r\n 3010 F = 0.0D0\r\n 3020 GO TO IRET, (100,200,300)\r\n      END\r\n"
  },
  {
    "path": "mis/romber.f",
    "content": "      SUBROUTINE ROMBER (B,PRECIS,ITDONE,FINTG,K,X)\r\nC\r\nC     TO INTEGRATE F(X) FROM X = A TO X = B\r\nC\r\nC         A = LOWER LIMIT = 0.0\r\nC         B = UPPER LIMIT\r\nC         NOSIG = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED\r\nC                 (NOT MORE THAN 7) = 5\r\nC         PRECIS = 0.0  UPON RETURN, PRECIS = ACTUAL NUMBER\r\nC                       OF SIGNIFICANT DIGITS ATTAINED\r\nC         NUM = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE\r\nC               (NOT MORE THAN 99) = 15\r\nC         PROGRAMMER MUST ALSO PROGRAM SUBROUTINE FUNCT(F,X)\r\nC         GIVING F AS THE DESIRED FUNCTION OF X, UPON\r\nC         DEMAND OF ROMBER\r\nC         UPON RETURN FROM ROMBER, THE VALUE OF THE INTEGRAL\r\nC         WILL BE FOUND IN FINTG\r\nC         IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN\r\nC     TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL\r\nC     NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS.  TO CONFORM\r\nC     TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE\r\nC     CONDITIONS IS MET.\r\nC\r\n      DIMENSION   X(6)\r\n      DIMENSION   FAAAA(20),FAAAB(20)\r\nC\r\n      FAAAC = 0.00001\r\n      IAAAA = 1\r\n      FAAAD = B\r\n      X(1)  = 0.0\r\n      ASSIGN 100 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  100 CONTINUE\r\n      FAAAE = F\r\n      X(1)  = B\r\n      ASSIGN 200 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  200 CONTINUE\r\n      FAAAE = FAAAE+F\r\n      FAAAA(1) = 0.5*FAAAD*FAAAE\r\n 9988 FAAAD = 0.5*FAAAD\r\n      IAAAC = 2**(IAAAA-1)\r\n      FAAAE = 0.0\r\n      IAAAD = 0\r\n 9986 IAAAD = IAAAD + 1\r\n      FAAAF = IAAAD\r\n      X(1)  = (2.0*FAAAF-1.0)*FAAAD\r\n      ASSIGN 300 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  300 CONTINUE\r\n      FAAAE = FAAAE+F\r\n      IF (IAAAD .LT. IAAAC) GO TO 9986\r\n      FAAAB(1) = 0.5*FAAAA(1)+FAAAD*FAAAE\r\n      IAAAA = IAAAA+1\r\n      DO 9985 IAAAD = 2,IAAAA\r\n      FAAAG = 4.0**(IAAAD-1)\r\n      FAAAH = FAAAG-1.0\r\n      IAAAF = IAAAD-1\r\n 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF)-FAAAA(IAAAF))/FAAAH\r\n      IAAAC = 2*IAAAC+1\r\n      DIFF  = FAAAB(IAAAA)- FAAAA(IAAAA-1)\r\n      IF (ABS(DIFF) - ABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981\r\n 9981 DO 9980 IAAAD = 1,IAAAA\r\n 9980 FAAAA(IAAAD) = FAAAB(IAAAD)\r\n      IF (IAAAA .LT. 15) GO TO 9988\r\n 9979 PRECIS = DIFF\r\n      ITDONE = IAAAA - 1\r\n      FINTG  = FAAAB(IAAAA)\r\n      RETURN\r\nC\r\nC     THIS CODE REPLACES F4\r\nC\r\n 1000 CONTINUE\r\n      IF (X(1) .EQ. 0.0) GO TO 1020\r\n      DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1))\r\n      F   = X(1)**(X(6)-1.0)* SIN(X(1))**2 / DEN\r\n 1010 GO TO IRET, (100,200,300)\r\n 1020 F = 0.0\r\n      GO TO 1010\r\nC\r\nC     THIS CODE REPLACES F5\r\nC\r\n 2000 CONTINUE\r\n      IF (X(1) .EQ. 0.0) GO TO 2020\r\n      DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1))\r\n      F   = X(1)**(X(6)-1.0)*2. *SIN(X(1))*COS(X(1))/DEN\r\n 2010 GO TO IRET, (100,200,300)\r\n 2020 F = 0.0\r\n      GO TO 2010\r\nC\r\nC     THIS CODE REPLACES F6\r\nC\r\n 3000 CONTINUE\r\n      DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+X(2)*X(4)*SIN(X(1))\r\n      IF (X(6) .EQ. 1.0) CONST = 1.0\r\n      IF (X(6) .NE. 1.0) CONST = X(1)**(X(6) - 1.0)\r\n      IF (DEN  .EQ. 0.0) GO TO 3020\r\n      F = CONST*COS(X(1))**2 / DEN\r\n 3010 GO TO IRET, (100,200,300)\r\n 3020 F = 0.0\r\n      GO TO 3010\r\n      END\r\n"
  },
  {
    "path": "mis/rombsk.f",
    "content": "      SUBROUTINE ROMBSK (B,PRECIS,ITDONE,FINTG,K,X)\r\nC\r\nC     THIS SUBROUTINE IS USED TO INTEGRATE A FUNCTION FROM X=0. TO X=B\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     B      = UPPER LIMIT\r\nC     NOSIG  = NUMBER OF CORRECT SIGNIFICANT DIGITS DESIRED\r\nC              (NOT MORE THAN 7) = 5\r\nC     PRECIS = 0.0  UPON RETURN, PRECIS = ACTUAL NUMBER\r\nC              OF SIGNIFICANT DIGITS ATTAINED\r\nC     NUM    = MAXIMUM NUMBER OF HALVINGS OF B-A TO BE MADE\r\nC              (NOT MORE THAN 99) = 15\r\nC\r\nC     UPON RETURN FROM ROMBSK, THE VALUE OF THE INTEGRAL WILL BE FOUND\r\nC     IN FINTG.\r\nC\r\nC     IT IS CUSTOMARY TO MEASURE THE PRECISION OF LARGE NUMBERS IN\r\nC     TERMS OF NUMBER OF SIGNIFICANT DIGITS AND THE ACCURACY OF SMALL\r\nC     NUMBERS IN TERMS OF NUMBER OF SIGNIFICANT DECIMALS.  TO CONFORM\r\nC     TO THIS PRACTICE, THE SUBROUTINE TERMINATES WHEN EITHER OF THESE\r\nC     CONDITIONS IS MET.\r\nC\r\nC\r\n      DIMENSION  X(6),FAAAA(20),FAAAB(20)\r\nC\r\n      FAAAC =.00001\r\n      IAAAA = 1\r\n      FAAAD = B\r\n      X(1)  = 0.\r\n      ASSIGN 100 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  100 CONTINUE\r\n      FAAAE = F\r\n      X(1)  = B\r\n      ASSIGN 200 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  200 CONTINUE\r\n      FAAAE = FAAAE + F\r\n      FAAAA(1) = 0.5*FAAAD*FAAAE\r\n 9988 FAAAD = 0.5*FAAAD\r\n      IAAAC = 2**(IAAAA-1)\r\n      FAAAE = 0.0\r\n      IAAAD = 0\r\n 9986 IAAAD = IAAAD + 1\r\n      FAAAF = IAAAD\r\n      X(1)  = (2.0*FAAAF-1.0)*FAAAD\r\n      ASSIGN 300 TO IRET\r\n      GO TO (1000,2000,3000), K\r\n  300 CONTINUE\r\n      FAAAE = FAAAE + F\r\n      IF (IAAAD .LT. IAAAC) GO TO 9986\r\n      FAAAB(1) = 0.5*FAAAA(1) + FAAAD*FAAAE\r\n      IAAAA = IAAAA + 1\r\n      DO 9985 IAAAD = 2,IAAAA\r\n      FAAAG = 4.0**(IAAAD-1)\r\n      FAAAH = FAAAG - 1.0\r\n      IAAAF = IAAAD - 1\r\n 9985 FAAAB(IAAAD) = (FAAAG*FAAAB(IAAAF)-FAAAA(IAAAF))/FAAAH\r\n      IAAAC = 2*IAAAC + 1\r\n      DIFF  = FAAAB(IAAAA) - FAAAA(IAAAA-1)\r\n      IF (ABS(DIFF)-ABS(FAAAC*FAAAB(IAAAA))) 9979,9981,9981\r\n 9981 DO 9980 IAAAD = 1,IAAAA\r\n 9980 FAAAA(IAAAD) = FAAAB(IAAAD)\r\n      IF (IAAAA.LT.15) GO TO 9988\r\n 9979 PRECIS = DIFF\r\n      ITDONE = IAAAA - 1\r\n      FINTG  = FAAAB(IAAAA)\r\n      RETURN\r\nC\r\nC     THIS CODE REPLACES D4K\r\nC\r\n 1000 CONTINUE\r\n      IF (X(1).EQ. 0.) GO TO 1010\r\n      DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1)) + X(2)*X(4)*SIN(X(1))\r\n      F   = X(1)**(X(6)-1.)*SIN(X(1))**2/DEN\r\n      GO TO 1020\r\n 1010 F = 0.\r\n 1020 GO TO IRET, (100,200,300)\r\nC\r\nC     THIS CODE REPLACES D5K\r\nC\r\n 2000 CONTINUE\r\n      IF (X(1) .EQ. 0.) GOTO 2010\r\n      DEN = X(3) - X(2)*X(5) + X(2)*X(5)*COS(X(1))+ X(2)*X(4)*SIN(X(1))\r\n      F   = X(1)**(X(6)-1.)*2.*SIN(X(1))*COS(X(1))/DEN\r\n      GO TO 2020\r\n 2010 F = 0.\r\n 2020 GO TO IRET, (100,200,300)\r\nC\r\nC     THIS CODE REPLACES D6K\r\nC\r\n 3000 CONTINUE\r\n      DEN = X(3) - X(2)*X(5) +X(2)*X(5)*COS(X(1))+ X(2)*X(4)*SIN(X(1))\r\n      IF (X(6) .EQ. 1.0) CONST = 1.0\r\n      IF (X(6) .NE. 1.0) CONST = X(1)**(X(6)-1.0)\r\n      IF (DEN .EQ. 0.) GO TO 3010\r\n      F = CONST*COS(X(1))**2/DEN\r\n      GO TO 3020\r\n 3010 F = 0.\r\n 3020 GO TO IRET, (100,200,300)\r\n      END\r\n"
  },
  {
    "path": "mis/rotat.f",
    "content": "      SUBROUTINE ROTAT (ECT2,B1,GPLST,X)\r\nC\r\n      INTEGER         GPLST(1),ECT2,B1,TYPES(13),ESYM,ELID,GPTS(12),\r\n     1                BAR,OFFSET\r\n      REAL            X(3,1),MAGTUD(2),NORMAL(3)\r\n      DIMENSION       REC1(146),REC2(17),A(3,3),T(2,2),V(2,3),CROSS(3),\r\n     1                SHEAR(3),ISYM(13)\r\n      COMMON /BLANK / SKIP(23),OES1,SCR1,SCR2,NEWOES\r\n      COMMON /XXPARM/ SKPPAR(211),ICASE,FLAG,DATA,SKPARM\r\n      EQUIVALENCE     (REC1(3),ITYPE),(REC1(4),ISUB),(REC1( 5),TIME),\r\n     1                (REC1(6),EIGEN),(REC1(10),NWDS)\r\n      DATA    TYPES / 6,7,8,9,15,16,17,18,19,62,63,64,83 /\r\n      DATA    ISYM  / 2HT1,2HTB,2HTP,2HTM,2HQP,2HQM,2HT2,2HQ2,2HQ1,2HM1,\r\n     1                2HM2,2HQ4,2HT3/,    ESYM/2H  /,    BAR /2HBR/\r\nC\r\n      TWOPI = 8.0*ATAN(1.0)\r\n      IRDECT= 0\r\n      SUM   = 0.0\r\n      CALL OPEN (*110,NEWOES,GPLST(B1),1)\r\n      IREC  = 0\r\n      ELID  = 0\r\n   10 CALL READ (*110,*110,OES1,REC1,146,1,M)\r\n      IF (ISUB .NE. ICASE) GO TO 13\r\n      IF (FLAG .EQ.   0.0) GO TO 14\r\n      IF (FLAG.EQ.1.0 .AND. TIME.EQ.DATA) GO TO 14\r\n      FIGEN = SQRT(ABS(EIGEN))/TWOPI\r\n      IF (FLAG.EQ.2.0 .AND. ABS(FIGEN-DATA).GT.1.0E-5) GO TO 14\r\n   13 IF (IREC .EQ. 0) GO TO 18\r\n      GO TO 100\r\nC\r\nC     CHECK ELEMENT TYPE\r\nC\r\n   14 IREC = IREC + 2\r\n      DO 15 IT = 1,13\r\n      IF (ITYPE .EQ. TYPES(IT)) GO TO 20\r\n   15 CONTINUE\r\nC\r\nC     SKIP SUBCASE\r\nC\r\n   18 CALL FWDREC (*110,OES1)\r\n      GO TO 10\r\nC\r\nC     CHECK ELEMENT TYPE\r\nC\r\n   20 IF (ELID .NE. 0) GO TO 21\r\n      CALL READ (*22,*22,ECT2,ESYM,1,0,N)\r\n      CALL FREAD (ECT2,NGPPE,1,0)\r\n      IRDECT = 1\r\n      OFFSET = 0\r\n      IF (ESYM .EQ. BAR) OFFSET = 6\r\n      IF (ESYM.EQ.ISYM(12) .OR. ESYM.EQ.ISYM(13)) OFFSET = 1\r\n      IF (ESYM .EQ. ISYM(IT)) GO TO 23\r\n   21 CALL FREAD (ECT2,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO 20\r\n      J = 1 + NGPPE + OFFSET\r\n      CALL FREAD (ECT2,0,-J,0)\r\n      GO TO 21\r\n   22 CALL BCKREC (ECT2)\r\n      IRDECT = 0\r\n      GO TO 18\r\nC\r\nC     PROCESS SUBCASE\r\nC\r\n   23 CALL WRITE (NEWOES,REC1,146,1)\r\n      NWDS = NWDS - 1\r\n   25 CALL READ  (*100,*56,OES1,IELMT,1,0,M)\r\n      CALL FREAD (OES1,REC2,NWDS,0)\r\n   30 CALL FREAD (ECT2,ELID,1,0)\r\n      IF (ELID .EQ. 0) GO TO 55\r\n      CALL FREAD (ECT2,0,-1,0)\r\n      CALL FREAD (ECT2,GPTS,NGPPE,0)\r\n      IF (OFFSET .NE. 0) CALL FREAD (ECT2,0,-OFFSET,0)\r\n   29 IF (ELID .EQ. IELMT/10) GO TO 31\r\n      IF (ELID .GT. IELMT/10) GO TO 60\r\n      GO TO 30\r\n   31 IG1 = GPTS(1)\r\n      IG2 = GPTS(2)\r\n      IG1 = IABS(GPLST(IG1))\r\n      IG2 = IABS(GPLST(IG2))\r\n      IG3 = GPTS(3)\r\n      IG3 = IABS(GPLST(IG3))\r\n      DO 32 I = 1,3\r\n      V(1,I) = X(I,IG1) - X(I,IG2)\r\n      V(2,I) = X(I,IG1) - X(I,IG3)\r\n   32 CONTINUE\r\n      MAGTUD(1) = SQRT(V(1,1)**2 + V(1,2)**2 + V(1,3)**2)\r\n      MAGTUD(2) = SQRT(V(2,1)**2 + V(2,2)**2 + V(2,3)**2)\r\n      DO 33 I = 1,3\r\n      V(1,I) = V(1,I)/MAGTUD(1)\r\n      V(2,I) = V(2,I)/MAGTUD(2)\r\n      A(1,I) = V(1,I)\r\n   33 CONTINUE\r\n      A(2,1) = A(1,2)\r\n      A(3,1) = A(1,3)\r\n      A(3,3) =   V(1,1)*V(2,2) - V(2,1)*V(1,2)\r\n      CROSS(1) = V(1,2)*V(2,3) - V(2,2)*V(1,3)\r\n      CROSS(2) = V(2,1)*V(1,3) - V(1,1)*V(2,3)\r\n      CROSS(3) = A(3,3)\r\n      A(2,2) = CROSS(1)*V(1,3) - V(1,1)*CROSS(3)\r\n      A(2,3) = V(1,1)*CROSS(2) - CROSS(1)*V(1,2)\r\n      A(3,2) = A(2,3)\r\n      IEL    = 0\r\n      DO 40 MORE = 1,2\r\n      IF (ITYPE.EQ.9 .OR. ITYPE.EQ.16) GO TO 34\r\n      NORM   = IEL + 2\r\n      ISHEAR = IEL + 4\r\n      GO TO 35\r\n   34 NORM   = IEL + 1\r\n      ISHEAR = IEL + 3\r\n   35 T(1,1) = REC2(NORM  )\r\n      T(2,2) = REC2(NORM+1)\r\n      T(1,2) = REC2(ISHEAR)\r\n      T(2,1) = T(1,2)\r\n      DO 38 I = 1,3\r\n      SUM = 0.0\r\n      DO 37 J = 1,2\r\n      DO 37 K = 1,2\r\n      SUM = SUM + A(I,J)*A(I,K)*T(J,K)\r\n   37 CONTINUE\r\n      NORMAL(I) = SUM\r\n   38 CONTINUE\r\n      SHEAR(1) = A(2,1)*A(1,1)*T(1,1) + A(2,1)*A(1,2)*T(1,2)\r\n     1         + A(2,2)*A(1,2)*T(2,1) + A(2,2)*A(1,2)*T(2,2)\r\n      SHEAR(2) = A(3,1)*A(1,1)*T(1,1) + A(3,1)*A(1,2)*T(1,2)\r\n     1         + A(3,2)*A(1,2)*T(2,1) + A(3,2)*A(1,2)*T(2,2)\r\n      SHEAR(3) = A(3,1)*A(2,1)*T(1,1) + A(3,1)*A(2,2)*T(1,2)\r\n     1         + A(3,2)*A(2,1)*T(2,1) + A(3,2)*A(2,2)*T(2,2)\r\n      DO 39 I = 1,3\r\n      ISHEAR = ISHEAR + 1\r\n      REC2(NORM  ) = NORMAL(I)\r\n      REC2(ISHEAR) = SHEAR(I)\r\n      NORM = NORM + 1\r\n   39 CONTINUE\r\n      IEL  = IEL + 8\r\n      IF (ITYPE.EQ.9 .OR. ITYPE.EQ.16) GO TO 50\r\n   40 CONTINUE\r\n   50 CALL WRITE (NEWOES,IELMT,1,0)\r\n      CALL WRITE (NEWOES,REC2,NWDS,0)\r\n      GO TO 25\r\nC\r\nC     CLOSE RECORD\r\nC\r\n   55 CALL FREAD (OES1,0,0,1)\r\n   56 CALL WRITE (NEWOES,0,0,1)\r\n      GO TO 10\r\nC\r\nC     SKIP ELEMENT\r\nC\r\n   60 CALL READ  (*100,*56,OES1,IELMT,1,0,M)\r\n      CALL FREAD (OES1,REC2,NWDS,0)\r\n      GO TO 29\r\n  100 CONTINUE\r\n  110 IF (IRDECT .GT. 0) CALL BCKREC (ECT2)\r\n      CALL BCKREC (OES1)\r\n      CALL CLOSE  (NEWOES,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rotate.f",
    "content": "      SUBROUTINE ROTATE (DA,ROW,ROW1,ROW2, O,SIN,COS)\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED\r\nC     ONLY BY VALVEC\r\nC\r\n      INTEGER          ROW,ROW1,ROW2\r\nC    1,                CHECK\r\n      DOUBLE PRECISION O(1),SIN(1),COS(1),SINE,COSINE,X,Y,Z,DA(1)\r\n      COMMON /GIVN  /  TITLE(100),N\r\nC\r\nC     O     = 2ND ROW OF THE COMPLETE MATRIX.\r\nC     SIN   = SINES.\r\nC     COS   = COSINES.\r\nC     DA = MATRIX PARTITION (TRIANGULAR) - DOUBLE PRECISION\r\nC\r\n      M    = 0\r\n  200 DO 230 J = ROW1,ROW2\r\n      SINE = SIN(J)\r\n      COSINE = COS(J)\r\n      M    = M + 1\r\n      IF (SINE .EQ. 0.0D0) GO TO 210\r\n      X    = O(ROW+1)*COSINE + O(J)*SINE\r\n      Y    = DA(M)   *SINE   + O(J)*COSINE\r\n      Z    = X       *COSINE + Y   *SINE\r\n      O(J) = Y       *COSINE - X   *SINE\r\n      DA(M)= O(ROW+1)+ DA(M) - Z\r\n      O(ROW+1) = Z\r\n  210 IF (J .EQ. N) GO TO 230\r\n      JP1  = J + 1\r\n      DO 220 I = JP1,N\r\n      M    = M + 1\r\n      X    = DA(M)*COSINE - O(I)*SINE\r\n      O(I) = O(I)*COSINE  + DA(M)*SINE\r\n      Y    = COS(I)*O(J)  + SIN(I)*X\r\n      DA(M)= COS(I)*X     - SIN(I)*O(J)\r\n      O(J) = Y\r\n  220 CONTINUE\r\n  230 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rotate1.f",
    "content": "      SUBROUTINE ROTATE1 (A,ROW,ROW1,ROW2, O,SIN,COS)\r\nC\r\nC     ROTATION OF A MATRIX PARTITION.\r\nC     THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED\r\nC     ONLY BY VALVEC\r\nC\r\n      INTEGER          ROW,ROW1,ROW2\r\n      REAL             A(1)\r\n      REAL             O(1),SIN(1),COS(1),SINE,COSINE,X,Y,Z\r\n      COMMON /GIVN  /  TITLE(100),N\r\nC\r\nC     O     = 2ND ROW OF THE COMPLETE MATRIX.\r\nC     SIN   = SINES.\r\nC     COS   = COSINES.\r\nC     A  = MATRIX PARTITION (TRIANGULAR) - SINGLE PRECISION\r\nC\r\n      M    = 0\r\n      DO 105 J = ROW1,ROW2\r\n      SINE = SIN(J)\r\n      COSINE = COS(J)\r\n      M    = M + 1\r\n      IF (SINE .EQ. 0.) GO TO 101\r\n      X    = O(ROW+1)*COSINE + O(J)*SINE\r\n      Y    = A(M)    * SINE  + O(J)*COSINE\r\n      Z    = X       *COSINE + Y   *SINE\r\n      O(J) = Y       *COSINE - X   *SINE\r\n      A(M) = O(ROW+1) + A(M) - Z\r\n      O(ROW+1) = Z\r\n  101 IF (J .EQ. N) GO TO 105\r\n      JP1  = J + 1\r\n      DO 103  I = JP1,N\r\n      M    = M + 1\r\n      X    = A(M)*COSINE - O(I)*SINE\r\n      O(I) = O(I)*COSINE + A(M)*SINE\r\n      Y    = COS(I)*O(J) + SIN(I)*X\r\n      A(M) = COS(I)*X    - SIN(I)*O(J)\r\n      O(J) = Y\r\n  103 CONTINUE\r\n  105 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rowdyz.f",
    "content": "      SUBROUTINE ROWDYZ (NFB,NLB,ROW,NTZYS,D,DX,DY,DZ,BETA,IDZDY,NTAPE,\r\n     1                   SGR,CGR,IPRNT,YB,ZB,AR,NSBE,XIS1,XIS2,A0)\r\nC\r\nC     CALCULATE A ROW OF DZ OR DY\r\nC\r\nC     SLENDER BODY\r\nC\r\nC     NFB       FIRST BODY OF THE DESIRED ORIENTATION - Z OR Y -\r\nC     NLB       LAST  BODY OF THE DESIRED ORIENTATION\r\nC     ROW       ROW OF DZ OR DY BEING CALCULATED\r\nC     NTZYS     NO. COLUMNS TO BE CALCULATED\r\nC     D         CALCULATED ROW\r\nC     DX        X - COORD. OF RECEIVING POINT\r\nC     DY        Y - COORD. OF RECEIVING POINT\r\nC     DZ        Z - COORD. OF RECEIVING POINT\r\nC     BETA      EQUALS SQRT(1-M**2)\r\nC     MACH      MACH NO., M\r\nC     IDZDY     FLAG REQUIRED FOR FLLD\r\nC\r\n      INTEGER         B1,T1,B,T,ROW\r\n      REAL            KR\r\n      DIMENSION       AR(1),NSBE(1),XIS1(1),XIS2(1),A0(1),YB(1),ZB(1)\r\n      DIMENSION       D(2,NTZYS)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,KR\r\n      COMMON /SYSTEM/ N,NPOT\r\nC\r\n      DELTA  = FLOAT(ND)\r\n      EPSLON = FLOAT(NE)\r\n      B1     =  0\r\n      T1     =  0\r\n      IT1    = 0\r\n      IF (NFB.EQ.1 .OR. IDZDY.EQ.0) GO TO 10\r\n      B   = NFB - 1\r\n      DO 5 T = 1,B\r\n      IT1 = IT1 + NSBE(T)\r\n    5 CONTINUE\r\n   10 CONTINUE\r\n      DO 200 B = NFB,NLB\r\n      B1    = B1 + 1\r\n      DAR   = AR(B)\r\n      NSBEB = NSBE(B)\r\n      IF (IPRNT .NE. 0) WRITE (NPOT,15) B,DY,YB(B),DZ,ZB(B)\r\n   15 FORMAT (12H ROWDYZ  B =,I10,4E20.8)\r\nC\r\nC     LOOP FOR EACH ELEMENT IN BODY -B-\r\nC\r\n      DO 140 T = 1,NSBEB\r\n      T1  = T1  + 1\r\n      IT1 = IT1 + 1\r\n      D(1,T1) = 0.0\r\n      D(2,T1) = 0.0\r\n      XI1  = XIS1(IT1)\r\n      XI2  = XIS2(IT1)\r\n      AZRO = A0(IT1)\r\n      ETA  = YB(B)\r\n      ZETA = ZB(B)\r\nC\r\nC     CHECK TO SEE IF CALCULATIONS ARE TO BE MADE\r\nC\r\n      IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 30\r\n      ASSIGN 20 TO JDZDY\r\n      LHS = 0\r\n      GO TO 100\r\n   20 D(1,T1) = DZYR\r\n      D(2,T1) = DZYI\r\nC\r\nC     SKIP IF NO SYMMETRY\r\nC\r\n   30 CONTINUE\r\n      IF (DELTA .EQ. 0.0) GO TO 70\r\n      ETA = -YB(B)\r\nC\r\nC     CHECK TO SEE IF CALCULATIONS ARE TO BE MADE\r\nC\r\n      IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 50\r\n      LHS = 1\r\n      ASSIGN 40 TO JDZDY\r\n      GO TO 100\r\n   40 D(1,T1) = D(1,T1) + DELTA*DZYR\r\n      D(2,T1) = D(2,T1) + DELTA*DZYI\r\n   50 CONTINUE\r\n      IF (EPSLON .EQ. 0.0) GO TO 140\r\nC\r\nC     CALC. ONLY IF DELTA AND EPSLON  NOT EQUAL ZERO\r\nC\r\n      ETA  = -YB(B)\r\n      ZETA = -ZB(B)\r\nC\r\nC     CHECK TO SEE IF CALCULATIONS ARE TO BE MADE\r\nC\r\n      IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 70\r\n      ASSIGN 60 TO JDZDY\r\n      GO TO 100\r\n   60 D(1,T1) = D(1,T1) + EPSLON*DELTA*DZYR\r\n      D(2,T1) = D(2,T1) + EPSLON*DELTA*DZYI\r\nC\r\nC     SKIP IF NO GROUND EFFECTS\r\nC\r\n   70 IF (EPSLON .EQ. 0.0) GO TO 140\r\n      ETA  =  YB(B)\r\n      ZETA = -ZB(B)\r\nC\r\nC     CHECK TO SEE IF CALCULATIONS ARE TO BE MADE\r\nC\r\n      IF (DY.EQ.ETA .AND. DZ.EQ.ZETA) GO TO 140\r\n      LHS = 1\r\n      ASSIGN 80 TO JDZDY\r\n      GO TO 100\r\n   80 D(1,T1) = D(1,T1) + EPSLON*DZYR\r\n      D(2,T1) = D(2,T1) + EPSLON*DZYI\r\n      GO TO 140\r\nC\r\nC     CALL SEQUENCE TO DZY\r\nC\r\n  100 CALL DZY (DX,DY,DZ,SGR,CGR,XI1,XI2,ETA,ZETA,DAR,AZRO,KR,REFC,\r\n     1          BETA,FMACH,LHS,IDZDY,DZYR,DZYI)\r\n      LHS = 0\r\n      GO TO JDZDY, (20,40,60,80)\r\nC\r\n  140 CONTINUE\r\nC\r\nC     END OF LOOP FOR ELEMENT\r\nC\r\nC     200 IS END OF LOOP ON SLENDER BODY\r\nC\r\n  200 CONTINUE\r\nC\r\nC     WRITE ROW ON TAPE, ROW NUMBER, NO. ELEMENTS, DATA\r\nC\r\n      CALL WRITE (NTAPE,D,2*T1,0)\r\n      IF (IPRNT .NE. 0) WRITE (NPOT,210) ROW,T1,D\r\n  210 FORMAT (' ROWDYZ - ROW NO.',I5,1H,,I10,' ELEMENTS',/(1X,6E12.4))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rsetup.f",
    "content": "      SUBROUTINE RSETUP (LVL,LVLS1,LVLS2,NACUM,IDIM)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     SETUP COMPUTES THE REVERSE LEVELING INFO FROM LVLS2 AND STORES\r\nC     IT INTO LVLS2.  NACUM(I) IS INITIALIZED TO NODES/ITH LEVEL FOR\r\nC     NODES ON THE PSEUDO-DIAMETER OF THE GRAPH.  LVL IS INITIALIZED TO\r\nC     NON-ZERO FOR NODES ON THE PSEUDO-DIAM AND NODES IN A DIFFERENT\r\nC     COMPONENT OF THE GRAPH.\r\nC\r\n      DIMENSION        NACUM(1), LVL(1),   LVLS1(1), LVLS2(1)\r\n      COMMON /BANDB /  DUM3B(3), NGRID\r\n      COMMON /BANDG /  N,        IDPTH\r\nC\r\nC     IDIM=NUMBER OF LEVELS IN A GIVEN COMPONENT.\r\nC     NACUM IS DIMENSIONED TO IDIM IN SIZE\r\nC\r\nC     DIMENSION EXCEEDED  . . .  STOP JOB.\r\nC\r\n      IF (IDPTH.LE.IDIM)  GO TO 20\r\n      NGRID=-3\r\n      RETURN\r\nC\r\n   20 DO 30 I=1,IDPTH\r\n   30 NACUM(I)=0\r\n      DO 140 I=1,N\r\n      LVL(I)=1\r\n      LVLS2(I)=IDPTH+1-LVLS2(I)\r\n      ITEMP=LVLS2(I)\r\n      IF (ITEMP.GT.IDPTH) GO TO 140\r\n      IF (ITEMP.NE.LVLS1(I)) GO TO 100\r\n      NACUM(ITEMP)=NACUM(ITEMP)+1\r\n      GO TO 140\r\n  100 LVL(I)=0\r\n  140 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rsort.f",
    "content": "      SUBROUTINE RSORT (NWDS,KEYWX,L,NX)\r\nC\r\nC     RSORT SORTS REAL NUMBERS IN L(NWDS,NCOL)\r\nC           WHERE NCOL = IABS(NX)/NWDS\r\nC\r\nC     IF KEYWX .LT. 0 SORT BY ABSOLUTE VALUE\r\nC     IF NX    .LT. 0 SORT IN DECREASING SEQUENCE\r\nC\r\nC     COMMENTS FROM G.C./UNISYS\r\nC     THIS ROUTINE IS INEFFICIENT FOR LARGE ARRAY OF L\r\nC\r\n      LOGICAL MAG,BCK\r\n      REAL    L(1),TEMP(50)\r\n      INTEGER NAM(2)\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    NAM   / 4HRSOR, 4HT    /\r\nC\r\n      IF (NWDS .LE. 50) GO TO 30\r\n      WRITE  (NOUT,20)\r\n   20 FORMAT (' *** ARRAY TEMP OF 50 EXCEEDED')\r\n      CALL MESAGE (-37,0,NAM)\r\nC\r\n   30 MAG = .FALSE.\r\n      BCK = .FALSE.\r\n      IF (KEYWX .LT. 0) MAG = .TRUE.\r\n      IF (NX    .LT. 0) BCK = .TRUE.\r\n      KEYWD= IABS(KEYWX)\r\n      NNN  = IABS(NX)\r\n      III  = NWDS+KEYWD\r\n      IA   = NWDS-KEYWD\r\n      IF (NNN-NWDS-NWDS .LT. 0) GO TO 150\r\n      DO 140 I = III,NNN,NWDS\r\n      JJ = I-NWDS\r\n      IF (BCK) GO TO 40\r\n      IF (MAG) IF (ABS(L(I))-ABS(L(JJ))) 50,140,140\r\n      IF (L(I)-L(JJ)) 50,140,140\r\n   40 IF (MAG) IF (ABS(L(JJ))-ABS(L(I))) 50,140,140\r\n      IF (L(JJ)-L(I)) 50,140,140\r\n   50 JJ = JJ-NWDS\r\n      IF (JJ .LE. 0) GO TO 70\r\n      IF (BCK) GO TO 60\r\n      IF (MAG) IF (ABS(L(I))-ABS(L(JJ))) 50,80,80\r\n      IF (L(I) - L(JJ)) 50,80,80\r\n   60 IF (MAG) IF (ABS(L(JJ))-ABS(L(I))) 50,80,80\r\n      IF (L(JJ)-L(I)) 50,80,80\r\n   70 JJ = NWDS\r\n      GO TO 90\r\n   80 JJ = JJ+IA+NWDS\r\n   90 II = I-KEYWD\r\n      DO 100 J = 1,NWDS\r\n      II = II+1\r\n  100 TEMP(J) = L(II)\r\n  110 IIA = II-NWDS\r\n      L(II) = L(IIA)\r\n      II = II-1\r\n      IF (II-JJ) 120,120,110\r\n  120 II = II-NWDS\r\n      DO 130 J = 1,NWDS\r\n      II = II+1\r\n  130 L(II) = TEMP(J)\r\n  140 CONTINUE\r\nC\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ruler.f",
    "content": "      SUBROUTINE RULER (RULE,ICP,ZRCT,ONCT,LIST,N,BUFF,IOPT)\r\nC\r\nC     DETERMINES STRING OF ZEROS AND ONES IN LIST BY APPLYING RULE TO\r\nC     CP.\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         ZRCT,ONCT,OCT,RULE,EOL,ORF,ZCT\r\n      DIMENSION       LIST(1),BUFF(1),ICP(1)\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /ZNTPKX/ A1(4),L,EOL\r\nC\r\nC     PICK UP PARAMETERS\r\nC\r\n      EOL = 0\r\n      R   = RULE\r\n      NAMCP = ICP(1)\r\n      ZCT = 0\r\n      OCT = 0\r\n      ASSIGN 150 TO IS\r\n      IF (R .GE. 0.0) ASSIGN 140 TO IS\r\n      R   = ABS(R)\r\n      L   = 0\r\n      J1  = 0\r\n      M   = 0\r\n      N1  = N\r\n      IF (NAMCP .EQ. 0) GO TO 50\r\n      CALL GOPEN (NAMCP,BUFF,0)\r\n      CALL INTPK (*50,NAMCP,0,1,0)\r\n      GO TO 60\r\n   50 M   = N1\r\n      EOL = 1\r\n   60 DO 200 I = 1,N1\r\n      J = (I+31)/32\r\n      IF (M   .GE. I) GO TO 90\r\n      IF (EOL .EQ. 0) GO TO 80\r\n      L = N1\r\n      A1(1) = 0.0\r\n      GO TO 90\r\n   80 CALL ZNTPKI\r\n   90 IF (L .EQ. I) GO TO 110\r\n      M = L\r\n      A = 0.0\r\n      GO TO 120\r\n  110 A = A1(1)\r\n  120 IF (IOPT.EQ.1 .OR. J.LE.J1) GO TO 130\r\n      J1 = J\r\n      LIST(J) = 0\r\n  130 GO TO IS, (140,150)\r\n  140 IF (A-R) 160,190,160\r\n  150 IF (A-R) 160,190,200\r\n  160 OCT = OCT + 1\r\n      IF (IOPT .EQ. 1) GO TO 180\r\n      K = I - ((I-1)/32)*32\r\n      LIST(J) = ORF(LIST(J),TWO1(K))\r\n      GO TO 200\r\n  180 LIST(I) = OCT\r\n      GO TO 200\r\n  190 ZCT = ZCT + 1\r\n      IF (IOPT .NE. 0) LIST(I) = -ZCT\r\n  200 CONTINUE\r\n      ZRCT = ZCT\r\n      ONCT = OCT\r\n      IF (NAMCP .NE. 0) CALL CLOSE (NAMCP,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rzintd.f",
    "content": "      DOUBLE PRECISION FUNCTION RZINTD(IP,IQ,R,Z,NGRIDS)\r\n      DOUBLE PRECISION R(4),Z(4),PT(3),H(3)\r\n      DOUBLE PRECISION XINT,RRP,ZZQ,DRDXI,DZDXI,DRDETA,DZDETA,DETJ\r\n      DOUBLE PRECISION RR,ZZ\r\n      IF(NGRIDS.EQ.3)GO TO 200\r\n      NPT=3\r\n      PT(1)=-.7745966692D0\r\n      PT(2)=0.D0\r\n      PT(3)=-PT(1)\r\n      H(1)=5.D0/9.D0\r\n      H(2)=8.D0/9.D0\r\n      H(3)=H(1)\r\n      XINT=0.D0\r\n      DO 100 III=1,NPT\r\n      DO 100 JJJ=1,NPT\r\n      RR=.25D0*((1.D0-PT(III))*(1.D0-PT(JJJ))*R(1)\r\n     1         +(1.D0+PT(III))*(1.D0-PT(JJJ))*R(2)\r\n     1         +(1.D0+PT(III))*(1.D0+PT(JJJ))*R(3)\r\n     1         +(1.D0-PT(III))*(1.D0+PT(JJJ))*R(4))\r\n      ZZ=.25D0*((1.D0-PT(III))*(1.D0-PT(JJJ))*Z(1)\r\n     1         +(1.D0+PT(III))*(1.D0-PT(JJJ))*Z(2)\r\n     1         +(1.D0+PT(III))*(1.D0+PT(JJJ))*Z(3)\r\n     1         +(1.D0-PT(III))*(1.D0+PT(JJJ))*Z(4))\r\n      RRP=RR**IP\r\n      ZZQ=ZZ**IQ\r\n      DRDXI=.25D0*((1.D0-PT(JJJ))*(R(2)-R(1))+(1.D0+PT(JJJ))*(R(3)-R(4))\r\n     1)\r\n      DZDXI=.25D0*((1.D0-PT(JJJ))*(Z(2)-Z(1))+(1.D0+PT(JJJ))*(Z(3)-Z(4))\r\n     1)\r\n      DRDETA=.25D0*((1.D0-PT(III))*(R(4)-R(1))+(1.D0+PT(III))*(R(3)-R(2)\r\n     1))\r\n      DZDETA=.25D0*((1.D0-PT(III))*(Z(4)-Z(1))+(1.D0+PT(III))*(Z(3)-Z(2)\r\n     1))\r\n      DETJ=DRDXI*DZDETA-DZDXI*DRDETA\r\n      DETJ=DABS(DETJ)\r\n      XINT=XINT+RRP*ZZQ*H(III)*H(JJJ)*DETJ\r\n  100 CONTINUE\r\n      RZINTD=XINT\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/rzints.f",
    "content": "      FUNCTION RZINTS(IP,IQ,R,Z,NGRIDS)\r\n      DIMENSION R(4),Z(4),PT(3),H(3)\r\n      IF(NGRIDS.EQ.3)GO TO 200\r\n      NPT=3\r\n      PT(1)=-.7745966692\r\n      PT(2)=0.\r\n      PT(3)=-PT(1)\r\n      H(1)=5./9.\r\n      H(2)=8./9.\r\n      H(3)=H(1)\r\n      XINT=0.\r\n      DO 100 III=1,NPT\r\n      DO 100 JJJ=1,NPT\r\n      RR=.25*((1.-PT(III))*(1.-PT(JJJ))*R(1)\r\n     1       +(1.+PT(III))*(1.-PT(JJJ))*R(2)\r\n     1       +(1.+PT(III))*(1.+PT(JJJ))*R(3)\r\n     1       +(1.-PT(III))*(1.+PT(JJJ))*R(4))\r\n      ZZ=.25*((1.-PT(III))*(1.-PT(JJJ))*Z(1)\r\n     1       +(1.+PT(III))*(1.-PT(JJJ))*Z(2)\r\n     1       +(1.+PT(III))*(1.+PT(JJJ))*Z(3)\r\n     1       +(1.-PT(III))*(1.+PT(JJJ))*Z(4))\r\n      RRP=RR**IP\r\n      ZZQ=ZZ**IQ\r\n      DRDXI=.25*((1.-PT(JJJ))*(R(2)-R(1))+(1.+PT(JJJ))*(R(3)-R(4)))\r\n      DZDXI=.25*((1.-PT(JJJ))*(Z(2)-Z(1))+(1.+PT(JJJ))*(Z(3)-Z(4)))\r\n      DRDETA=.25*((1.-PT(III))*(R(4)-R(1))+(1.+PT(III))*(R(3)-R(2)))\r\n      DZDETA=.25*((1.-PT(III))*(Z(4)-Z(1))+(1.+PT(III))*(Z(3)-Z(2)))\r\n      DETJ=DRDXI*DZDETA-DZDXI*DRDETA\r\n      DETJ=ABS(DETJ)\r\n      XINT=XINT+RRP*ZZQ*H(III)*H(JJJ)*DETJ\r\n  100 CONTINUE\r\n      RZINTS=XINT\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sadd.f",
    "content": "      SUBROUTINE SADD (Z,DZ)\r\nC\r\nC     TO COMPUTE MATRIX SUM WITH MULTIPLIERS\r\nC         ACCEPTS 1 TO 5 MATRIX BLOCKS PASSED ON VIA /SADDX/\r\nC     COMMON BLOCK /SADDX/ NOMAT,LCORE,MCBS(60),MC(7)\r\nC         NOMAT - NUMBER OF MATRICES INPUT\r\nC         LCORE - LENGTH OF Z ARRAY (OPEN CORE)\r\nC         MCBS  - MATRIX CONTROL BLOCKS AND MULTIPLIERS\r\nC                 (12 WORDS/MATRIX)\r\nC\r\nC                 1 - FILE NAME            7 - NOT USED\r\nC                 2 - NUMBER OF COLUMN     8 - TYPE OF MULTIPLIER\r\nC                 3 - NUMBER OF ROW        9 - MULTIPLIER   *  LENGTH\r\nC                 4 - FORM OF MATRIX      10 - MULTIPLIER   *  DEPENDS\r\nC                 5 - TYPE OF MATRIX      11 - MULTIPLIER   *  ON THE\r\nC                 6 - MAXIMUM NUMBER OF   12 - MULTIPLIER   *  TYPE\r\nC                     NON-ZERO ELEMENTS\r\nC\r\nC         MC    - MATRIX CONTROL BLOCK OF THE OUTPUT\r\nC\r\n      INTEGER          END    ,EOL    ,HOP    ,NAME(2),ONE    ,PRC    ,\r\n     1                 PREC   ,RC     ,SYSBUF ,TYPE   ,TYPIN  ,TYPOUT\r\n      REAL             AMCB(1),ALPH(1),Z(1)\r\n      DOUBLE PRECISION DA(2)  ,DALPH(10)      ,DMCB(1),DZ(1)\r\n      COMMON /PACKX /  TYPIN  ,TYPOUT ,ONE    ,N      ,INCR\r\n      COMMON /SADDX /  NOMAT  ,LCORE  ,MCBS(60)       ,MC(7)\r\n      COMMON /SYSTEM/  SYSBUF ,NOUT\r\n      COMMON /TYPE  /  PRC(2) ,NWDS(4),RC(4)\r\n      COMMON /ZNTPKX/  A(4)   ,II     ,EOL\r\n      EQUIVALENCE      (AMCB(1),MCBS(9)),(ALPH(1),DALPH(1)),\r\n     1                 (DA(1) ,A(1))  ,(DMCB(1),MCBS(9)),\r\n     2                 (NTYPE ,MC(5)) ,(NROW,   MC(3))\r\n      DATA    NAME  /  4HSADD ,4H    /\r\nC\r\nC\r\n      END   = (NOMAT-1)*12 + 1\r\n      PREC  = -NOMAT*2\r\n      TYPE  = -NOMAT*2\r\nC\r\nC     DETERMINE PRECISION TO BE USED FOR CALCULATIONS\r\nC\r\nC     NOTE - PRC ARRAY IS DIMENSIONED ONLY TO 2\r\nC            PRC(1) = 1, PRC(2) = 2, AND\r\nC            PRC(3) = NWDS(1) = 1, PRC(4) = NWDS(2) = 2\r\nC            WHERE 1 MEANS S.P., 2 D.P.\r\nC          - RC ARRAY = 1,1,2,2, WHERE 1 MEANS REAL, 2 COMPLEX\r\nC\r\n      DO 20 I = 1,END,12\r\n      IF (MCBS(I) .NE. 0) GO TO 10\r\n      PREC  = PREC + 2\r\n      TYPE  = TYPE + 2\r\n      GO TO 20\r\n   10 J     = MCBS(I+4)\r\n      PREC  = PREC  + PRC(J)\r\n      TYPE  = TYPE  + RC(J)\r\n      J     = MCBS(I+7)\r\n      PREC  = PREC  + PRC(J)\r\n      TYPE  = TYPE  + RC(J)\r\n   20 CONTINUE\r\n      TYPIN = 1\r\n      IF (TYPE .GT. 0) TYPIN = 3\r\n      IF (PREC .GT. 0) TYPIN = TYPIN + 1\r\n      NUM = NROW*NWDS(TYPIN)\r\n      IF (LCORE .LT. (NOMAT+1)*SYSBUF+NUM+1) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     MOVE AND CONVERT MULTIPLIERS\r\nC\r\n      IF (PREC .GT. 0) GO TO 60\r\nC\r\nC     SINGLE PRECISION\r\nC\r\n      J = 1\r\n      DO 50 I = 1,END,12\r\n      K = MCBS(I+7)\r\n      IF (PRC(K) .EQ. 2) GO TO 30\r\n      ALPH(J  ) = AMCB(I  )\r\n      ALPH(J+1) = AMCB(I+1)\r\n      GO TO 40\r\n   30 K = I/2 + 1\r\n      ALPH(J  ) = DMCB(K  )\r\n      ALPH(J+1) = DMCB(K+1)\r\n   40 J = J + 1\r\n      IF (TYPE .GT. 0) J = J + 1\r\n   50 CONTINUE\r\n      IF (TYPE .LE. 0) ALPH(J+1) = 0.0\r\n      GO TO 100\r\nC\r\nC     DOUBLE PRECISION\r\nC\r\n   60 J = 1\r\n      DO 90 I = 1,END,12\r\n      K = MCBS(I+7)\r\n      IF (PRC(K) .EQ. 2) GO TO 70\r\n      DALPH(J  ) = AMCB(I  )\r\n      DALPH(J+1) = AMCB(I+1)\r\n      GO TO 80\r\n   70 K = I/2 + 1\r\n      DALPH(J  ) = DMCB(K  )\r\n      DALPH(J+1) = DMCB(K+1)\r\n   80 J = J + 1\r\n      IF (TYPE .GT. 0) J = J + 1\r\n   90 CONTINUE\r\n      IF (TYPE .LE. 0) DALPH(J+1) = 0.0D+0\r\nC\r\n  100 GO TO (110,120,130,140), TYPIN\r\n  110 ASSIGN 300 TO HOP\r\n      GO TO  150\r\n  120 ASSIGN 350 TO HOP\r\n      GO TO  150\r\n  130 ASSIGN 400 TO HOP\r\n      GO TO  150\r\n  140 ASSIGN 450 TO HOP\r\nC\r\nC     OPEN AND ASSIGN FILES\r\nC\r\n  150 IBUF = LCORE\r\n      DO 160 I = 1,END,12\r\n      IBUF = IBUF - SYSBUF\r\n      IF (MCBS(I) .EQ. 0) GO TO 160\r\n      CALL GOPEN (MCBS(I),Z(IBUF),0)\r\n  160 CONTINUE\r\n      IBUF = IBUF - SYSBUF\r\n      CALL GOPEN (MC,Z(IBUF),1)\r\nC\r\nC     SETUP PACK PARAMETERS\r\nC\r\n      ONE    = 1\r\n      N      = NROW\r\n      TYPOUT = NTYPE\r\n      INCR   = 1\r\n      NCOL1  = MC(2)\r\n      MC(2)  = 0\r\n      MC(6)  = 0\r\n      MC(7)  = 0\r\nC\r\nC     ADD MATRICES\r\nC\r\n      DO 1000 I = 1,NCOL1\r\nC\r\nC     CLEAR CORE\r\nC\r\n      DO 210 J = 1,NUM\r\n  210 Z(J) = 0.0\r\nC\r\n      ONE = N\r\n      N   = 1\r\n      DO 900 J = 1,NOMAT\r\n      K   = 12*(J-1) + 1\r\n      IF (MCBS(K  ) .EQ. 0) GO TO 900\r\n      IF (MCBS(K+1) .LT. I) GO TO 900\r\n      CALL INTPK (*900,MCBS(K),0,TYPIN,0)\r\nC\r\nC     READ IN NON ZERO ELEMENT\r\nC\r\n  220 CALL ZNTPKI\r\n      IF (II .GT. NROW) GO TO 500\r\n      ONE = MIN0(ONE,II)\r\n      N   = MAX0(N  ,II)\r\n      GO TO HOP, (300,350,400,450)\r\n  300 Z(II) = Z(II) + ALPH(J)*A(1)\r\n      GO TO 500\r\n  350 DZ(II) = DZ(II) + DALPH(J)*DA(1)\r\n      GO TO 500\r\n  400 II = II + II - 1\r\n      JJ = J  + J  - 1\r\n      Z(II  ) = Z(II)  +  ALPH(JJ)*A(1) - ALPH(JJ+1)*A(2)\r\n      Z(II+1) = Z(II+1)+  ALPH(JJ)*A(2) + ALPH(JJ+1)*A(1)\r\n      GO TO 500\r\n  450 II = II + II - 1\r\n      JJ = J  + J  - 1\r\n      DZ(II  ) = DZ(II  ) + DALPH(JJ)*DA(1) - DALPH(JJ+1)*DA(2)\r\n      DZ(II+1) = DZ(II+1) + DALPH(JJ)*DA(2) + DALPH(JJ+1)*DA(1)\r\n  500 IF (EOL .EQ. 0) GO TO 220\r\n  900 CONTINUE\r\nC\r\nC     END OF COLUMN\r\nC\r\n      ONE = MIN0(ONE,N)\r\n      LL  = (ONE-1)*NWDS(TYPIN) + 1\r\n      CALL PACK (Z(LL),MC(1),MC)\r\n 1000 CONTINUE\r\nC\r\nC     DONE - CLOSE FILES AND RETURN\r\nC\r\n      DO 1010 I = 1,END,12\r\n      IF (MCBS(I) .NE. 0) CALL CLOSE (MCBS(I),1)\r\n 1010 CONTINUE\r\n      CALL CLOSE (MC,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sadotb.f",
    "content": "      FUNCTION SADOTB( A, B )\r\n      REAL A(3), B(3)\r\nC*****\r\nC  SINGLE-PRECISION VERSION\r\nC\r\nC  DOT PRODUCT A . B\r\nC*****\r\n      SADOTB = A(1)*B(1) + A(2)*B(2) + A(3)*B(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sanorm.f",
    "content": "      SUBROUTINE SANORM (*,A)\r\n      DIMENSION  A(3)\r\nC\r\nC     VECTOR NORMALIZATION AND VECTOR LENGTH\r\nC\r\n      XL=A(1)*A(1) + A(2)*A(2) + A(3)*A(3)\r\n      IF (XL .LE. 0.0) RETURN 1\r\n      XL   = SQRT(XL)\r\n      A(1) = A(1)/XL\r\n      A(2) = A(2)/XL\r\n      A(3) = A(3)/XL\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/saxb.f",
    "content": "      SUBROUTINE SAXB( A, B, C )\r\n      REAL A(3), B(3), C(3), D(3)\r\nC*****\r\nC  SINGLE-PRECISION VERSION\r\nC\r\nC  THIS ROUTINE PERFORMS A X B INTO C.  (C MAY OVERLAP A OR B IN CORE.)\r\nC*****\r\n      D(1) = A(2)*B(3) - A(3)*B(2)\r\n      D(2) = A(3)*B(1) - A(1)*B(3)\r\n      D(3) = A(1)*B(2) - A(2)*B(1)\r\n      C(1) = D(1)\r\n      C(2) = D(2)\r\n      C(3) = D(3)\r\n      RETURN\r\nC\r\nC*****\r\n      ENTRY SAPB( A, B, C )\r\nC\r\nC  THIS ROUTINE PERFORMS A + B INTO C.\r\nC*****\r\n      C(1) = A(1) + B(1)\r\n      C(2) = A(2) + B(2)\r\n      C(3) = A(3) + B(3)\r\n      RETURN\r\nC\r\nC*****\r\n      ENTRY SAMB( A, B, C )\r\nC\r\nC  THIS ROUTINE PERFORMS A - B INTO C.\r\nC*****\r\n      C(1) = A(1) - B(1)\r\n      C(2) = A(2) - B(2)\r\n      C(3) = A(3) - B(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/saxif1.f",
    "content": "      SUBROUTINE SAXIF1 (IOPT)\r\nC\r\nC     THIS ROUTINE GENERATES MATRICES WHICH RELATE PRESSURE TO VELOCITY\r\nC     IN A FLUID. IOPT DETERMINES THE ELEMENT TYPE\r\nC\r\nC        IOPT     TYPE\r\nC         0      CAXIF2\r\nC         1      CAXIF3\r\nC         2      CAXIF4\r\nC\r\n      INTEGER         NEST(100),SIL\r\n      DIMENSION       A(9)\r\n      COMMON /SDR2X5/ EST(100),NID,SIL(4),SV(95)\r\n      COMMON /SDR2X6/ HM(9),R(4),Z(4),AM(9),COEF,EN,EL,RBAR,ZBAR,\r\n     1                R1N,R2N,RBN1,DR,DZ,I1,I2,I3,IRET,IJ,IK,KJ\r\n      EQUIVALENCE     (EST(1),NEST(1)),(AM(1),A(1))\r\nC\r\n      DO 10 I = 1,44\r\n   10 SV(I) = 0.0\r\n      NID = NEST(1)\r\n      IF (IOPT-1) 20,50,70\r\nC\r\nC     CAXIF2 ELEMENTS\r\nC\r\n   20 IF (NEST(6) .GE. 1) GO TO 30\r\n      COEF = EST(4)*(EST(13)-EST(9))\r\n      IF (COEF .EQ. 0.0) RETURN\r\n      SV(3) = 1.0/COEF\r\n      SV(4) = -SV(3)\r\n      GO TO 40\r\n   30 IF (NEST(6) .GT. 1) GO TO 40\r\n      COEF  = EST(4)*(EST(8)+EST(12))\r\n      IF (COEF .EQ. 0.0) RETURN\r\n      SV(1) = -1.0/COEF\r\n      SV(2) =  SV(1)\r\n   40 CONTINUE\r\n      EN    = FLOAT(NEST(6))\r\n      RBAR  = (EST(8)+EST(12))/2.0\r\n      ZBAR  = (EST(9)+EST(13))/2.0\r\n      DR    = EST(12) - EST(8)\r\n      DZ    = EST(13) - EST(9)\r\n      R1N   = EST( 8)**NEST(6)\r\n      R2N   = EST(12)**NEST(6)\r\n      RBN1  = RBAR**(NEST(6)-1)\r\n      HM(1) = EST(13)/(R1N*DZ)\r\n      HM(2) =-EST( 9)/(R2N*DZ)\r\n      HM(3) =-1.0/(R1N*DZ)\r\n      HM(4) = 1.0/(R2N*DZ)\r\n      EL    = SQRT(DZ**2 +DR**2)\r\n      COEF  = RBN1/(EST(4)*EL)\r\n      AM(1) = EN*DR*COEF\r\n      AM(2) = (EN*DR*ZBAR + RBAR*DZ)*COEF\r\n      AM(3) = EN*EL*COEF\r\n      AM(4) = EN*ZBAR*EL*COEF\r\n      SV(5) = AM(1)*HM(1) + AM(2)*HM(3)\r\n      SV(6) = AM(1)*HM(2) + AM(2)*HM(4)\r\n      SV(7) = AM(3)*HM(1) + AM(4)*HM(3)\r\n      SV(8) = AM(3)*HM(2) + AM(4)*HM(4)\r\n      SIL(1)= NEST(2)\r\n      SIL(2)= NEST(3)\r\n      RETURN\r\nC\r\nC     CAXIF3 ELEMENT\r\nC\r\n   50 N    = NEST(7)\r\n      EN   = FLOAT(N)\r\n      RHO  = EST(5)\r\n      DO 60 I = 1,3\r\n      SIL(I) = NEST(I+1)\r\n      IR   = 4*(I-1) + 9\r\n      R(I) = EST(IR  )\r\n      Z(I) = EST(IR+1)\r\n   60 CONTINUE\r\n      I1   = 1\r\n      I2   = 2\r\n      I3   = 3\r\n      RBAR = (R(I1)+R(I2)+R(I3))/3.0\r\n      ZBAR = (Z(I1)+Z(I2)+Z(I3))/3.0\r\n      IRET = 4\r\n      GO TO 120\r\nC\r\nC     CAXIF4 ELEMENT\r\nC\r\n   70 N    = NEST(8)\r\n      EN   = FLOAT(N)\r\n      RHO  = EST(6)*4.0\r\n      DO 80 I = 1,4\r\n      SIL(I) = NEST(I+1)\r\n      IR   = 4*(I-1) + 10\r\n      R(I) = EST(IR  )\r\n      Z(I) = EST(IR+1)\r\n   80 CONTINUE\r\n      RBAR = (R(1)+R(2)+R(3)+R(4))/4.0\r\n      ZBAR = (Z(1)+Z(2)+Z(3)+Z(4))/4.0\r\n      I1   = 1\r\n      I2   = 2\r\n      I3   = 3\r\n      IRET = 1\r\n      GO TO  120\r\n   90 I3   = 4\r\n      IRET = 2\r\n      GO TO  120\r\n  100 I2   = 3\r\n      IRET = 3\r\n      GO TO  120\r\n  110 I1   = 2\r\n      IRET = 4\r\nC\r\nC     ACTUAL SUBTRIANGLE CALCULATION\r\nC\r\n  120 IF (RHO .EQ. 0.0) RETURN\r\n      A(1) = 0.0\r\n      A(2) =-1.0/RHO\r\n      A(3) = 0.0\r\n      A(5) = A(2)*EN\r\n      A(4) = A(5)/RBAR\r\n      A(6) = A(4)*ZBAR\r\n      A(7) = 0.0\r\n      A(8) = 0.0\r\n      A(9) = A(2)\r\nC\r\n      COEF = (R(I2)-R(I1))*(Z(I3)-Z(I1)) - (R(I3)-R(I1))*(Z(I2)-Z(I1))\r\n      IF (COEF .EQ. 0.0) RETURN\r\n      HM(1) = (R(I2)*Z(I3)-R(I3)*Z(I2))/COEF\r\n      HM(2) = (R(I3)*Z(I1)-R(I1)*Z(I3))/COEF\r\n      HM(3) = (R(I1)*Z(I2)-R(I2)*Z(I1))/COEF\r\n      HM(4) = (Z(I2)-Z(I3))            /COEF\r\n      HM(5) = (Z(I3)-Z(I1))            /COEF\r\n      HM(6) = (Z(I1)-Z(I2))            /COEF\r\n      HM(7) = (R(I3)-R(I2))            /COEF\r\n      HM(8) = (R(I1)-R(I3))            /COEF\r\n      HM(9) = (R(I2)-R(I1))            /COEF\r\n      DO 150 J = 1,3\r\n      JCOL  = I1\r\n      IF (J .EQ. 2) JCOL = I2\r\n      IF (J .EQ. 3) JCOL = I3\r\n      DO 150 I = 1,3\r\n      IJ = (2+IOPT)*(I-1) + JCOL\r\n      DO 140 K = 1,3\r\n      IK = 3*(I-1) + K\r\n      KJ = 3*(K-1) + J\r\n      SV(IJ) = SV(IJ) + A(IK)*HM(KJ)\r\n  140 CONTINUE\r\n  150 CONTINUE\r\n      GO TO (90,100,110,160 ), IRET\r\nC\r\nC     THE CENTROID  CALCULATIONS ARE COMPLETE.\r\nC\r\n  160 NSTA = 3*(IOPT+2)\r\n      NCOL = IOPT + 2\r\n      IF (IOPT .EQ. 2) RHO = EST(6)\r\n      DO 170 I = 1,NCOL\r\n      J = I + 1\r\n      IF (J .GT.NCOL) J = J - NCOL\r\n      EL = SQRT((R(J)-R(I))**2  + (Z(J)-Z(I))**2)*RHO\r\nC\r\n      IK = NSTA + 2*NCOL*(I-1) + I\r\n      IJ = IK + J - I\r\n      SV(IK) = -1.0/EL\r\n      SV(IJ) = -SV(IK)\r\n      COEF   = -EN/((R(I)+R(J))*RHO)\r\n      IK     = IK + NCOL\r\n      IJ     = IJ + NCOL\r\n      SV(IK) = COEF\r\n      SV(IJ) = COEF\r\n  170 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/saxif2.f",
    "content": "      SUBROUTINE SAXIF2 (IOPT,IPART,BRANCH,EIGEN)\r\nC\r\nC     THIS ROUTINE CALCULATES FLUID VELOCITIES DUE TO HARMONIC\r\nC     PRESSURES IN AN AXISYMMETRIC FLUID\r\nC\r\nC     THE OPTIONS FOR IOPT ARE\r\nC         IOPT    ELEMENT\r\nC           0     CAXIF2\r\nC           1     CAXIF3\r\nC           2     CAXIF4\r\nC     IPART-  FIRST = 1,   SECOND = 2\r\nC     BRANCH-  SDR2 PROCESS CODE WORD\r\nC\r\n      INTEGER         SIL       ,BRANCH\r\n      DIMENSION       EIGEN(3)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /ZZZZZZ/ ZZ(1)\r\n      COMMON /SDR2X4/ DUMY(35)  ,IVEC\r\n      COMMON /SDR2X7/ IDE       ,SIL(4)   ,SV(95)    ,ID1      ,\r\n     1                VELR(11)  ,ID2      ,VELI(11)\r\n      EQUIVALENCE     (CONSTS(2),TWOPI)\r\nC\r\nC\r\n      IF (IPART .EQ. 2) GO TO 20\r\n      DO 10 I = 1,11\r\n      VELR(I) = 0.0\r\n   10 VELI(I) = 0.0\r\n   20 X = 1.0\r\n      Y = 0.0\r\n      IF (BRANCH .EQ. 2) X = SQRT(ABS(EIGEN(2)))\r\n      IF (BRANCH .EQ. 5) X = TWOPI*EIGEN(1)\r\n      IF (X .NE. 0.0) X = 1.0/X\r\n      IF (BRANCH .NE. 9) GO TO 30\r\n      EM = EIGEN(2)**2 + EIGEN(3)**2\r\n      IF (EM .EQ. 0.0) GO TO 30\r\n      X = EIGEN(2)/EM\r\n      Y =-EIGEN(3)/EM\r\n   30 IF (IPART .NE. 2) GO TO 40\r\n      EM = X\r\n      X  =-Y\r\n      Y  = EM\r\n   40 ID1= IDE\r\n      ID2= IDE\r\n      KC = IOPT + 2\r\n      KR = 3 + 2*KC\r\n      IF (IOPT .EQ. 0) KR = 6\r\n      DO 80 I = 1,KC\r\n      K = IVEC + SIL(I) - 1\r\n      IF (X .EQ. 0.0) GO TO 65\r\nC\r\n      DO 60 J = 1,KR\r\n      IJ = KC*(J-1) + I\r\n      VELR(J) = SV(IJ)*ZZ(K)*X + VELR(J)\r\n   60 CONTINUE\r\n   65 CONTINUE\r\n      IF (Y .EQ. 0.0) GO TO 80\r\nC\r\n      DO 70 J = 1,KR\r\n      IJ = KC*(J-1) + I\r\n      VELI(J) = SV(IJ)*ZZ(K)*Y + VELI(J)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sbar1.f",
    "content": "      SUBROUTINE SBAR1\r\nC\r\nC     THIS ROUTINE IS PHASE 1 OF STRESS DATA RECOVERY FOR THE BAR\r\nC     ELEMENT. MUCH OF THE CODE WAS LIFTED FROM THE KBAR SUBROUTINE.\r\nC\r\nC     ECPT FOR THE BAR\r\nC\r\nC     ECPT( 1)  -  IELID       ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)   * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...       *\r\nC     ECPT( 4)  -  SMALLV(3)   $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...       $\r\nC     ECPT( 6)  -    ...       $\r\nC     ECPT( 7)  -  ICSSV       COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IPINFL(2)   * PIN FLAGS\r\nC     ECPT( 9)  -    ...       *\r\nC     ECPT(10)  -  ZA(3)       $ OFFSET VECTOR FOR POINT A\r\nC     ECPT(11)  -    ...       $\r\nC     ECPT(12)  -    ...       $\r\nC     ECPT(13)  -  ZB(3)       * OFFSET VECTOR FOR POINT B\r\nC     ECPT(14)  -    ...       *\r\nC     ECPT(15)  -    ...       *\r\nC     ECPT(16)  -  IMATID      MATERIAL ID.\r\nC     ECPT(17)  -  A           CROSS-SECTIONAL AREA\r\nC     ECPT(18)  -  I1          $ AREA MOMENTS OF INERTIA\r\nC     ECPT(19)  -  I2          $\r\nC     ECPT(20)  -  FJ          POLAR MOMENT OF INERTIA\r\nC     ECPT(21)  -  NSM         NON-STRUCTURAL MASS\r\nC     ECPT(22)  -  FE          FORCE ELEMENT DESCRIPTIONS (FORCE METHOD)\r\nC     ECPT(23)  -  C1          * STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(24)  -  C2          *\r\nC     ECPT(25)  -  D1          *\r\nC     ECPT(26)  -  D2          *\r\nC     ECPT(27)  -  F1          *\r\nC     ECPT(28)  -  F2          *\r\nC     ECPT(29)  -  G1          *\r\nC     ECPT(30)  -  G2          *\r\nC     ECPT(31)  -  K1          $ AREA FACTORS FOR SHEAR\r\nC     ECPT(32)  -  K2          $\r\nC     ECPT(33)  -  I12         AREA MOMENT OF INERTIA\r\nC     ECPT(34)  -  MCSIDA      COOR. SYS. ID. FOR GRID POINT A\r\nC     ECPT(35)  -  GPA(3)      * BASIC COORDINATES FOR GRID POINT A\r\nC     ECPT(36)  -    ...       *\r\nC     ECPT(37)  -    ...       *\r\nC     ECPT(38)  -  MCSIDB      COOR. SYS. ID. FOR GRID POINT B\r\nC     ECPT(39)  -  GPB(3)      $ BASIC COORDINATES FOR GRID POINT B\r\nC     ECPT(40)  -    ...       $\r\nC     ECPT(41)  -    ...       $\r\nC     ECPT(42)  -  ELTEMP      AVG. ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         ABASIC,BBASIC,BASIC,AOFSET,BOFSET,OFFSET\r\n      REAL            L,LSQ,LCUBE,I1,I2,K1,K2,KE,KEP,I12,NSM,LR1,LR2,LB,\r\n     1                L2B3,L2B6,HUT(36)\r\n      DIMENSION       VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100),\r\n     1                IPIN(10),TA(18),TB(9),SMALV0(6)\r\nC\r\nC     SDR2 PHASE I INPUT AND OUTPUT COMMON BLOCK\r\nC\r\n      COMMON /SDR2X5/ IELID,ISILNO(2),SMALLV(3),ICSSV,IPINFL(2),ZA(3),\r\n     1                ZB(3),IMATID,A,I1,I2,FJ,NSM,FE,C1,C2,D1,D2,F1,F2,\r\n     2                G1,G2,K1,K2,I12,MCSIDA,GPA(3),MCSIDB,GPB(3),\r\n     3                TEMPEL,DUM3(58)\r\n      COMMON /SDR2X5/ JELID,JSILNO(2),SA(36),SB(36),OUT(19),THERM(30)\r\nC\r\nC     SDR2 SCRATCH BLOCK\r\nC\r\n      COMMON /SDR2X6/ KE(144),KEP(144),DELA(6),DELB(6)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E,G,NU,RHO,ALPHA,T SUB 0,G SUB E,SIGT, SIGC,SIGS\r\n      EQUIVALENCE     (IELID,ECPT(1),IECPT(1)),(TA(10),TB(1))\r\nC\r\nC\r\nC     SET UP POINTERS TO COOR. SYS. IDS., OFFSET VECTORS, AND PIN FLAGS.\r\nC     ICSIDA AND ICSIDB ARE COOR. SYS. IDS.\r\nC\r\n      JCSIDA = 34\r\n      JCSIDB = 38\r\n      JOFSTA = 10\r\n      JOFSTB = 13\r\n      JPINA  =  8\r\n      JPINB  =  9\r\n      ICSIDA = IECPT(34)\r\n      ICSIDB = IECPT(38)\r\nC\r\nC     NORMALIZE THE REFERENCE VECTOR WHICH LIES IN THE FIRST PRINCIPAL\r\nC     AXIS PLANE  (FMMS - 36 P. 4)\r\nC\r\n      FL = 0.0\r\n      DO 50 I = 1,3\r\n   50 FL = FL + SMALLV(I)**2\r\n      FL = SQRT(FL)\r\n      DO 60 I = 1,3\r\n   60 SMALLV(I) = SMALLV(I)/FL\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES OR NOT.\r\nC\r\n      ABASIC = .TRUE.\r\n      BBASIC = .TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC = .FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC = .FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (.NOT.ABASIC) CALL TRANSS (ECPT(JCSIDA),TA)\r\n      IF (.NOT.BBASIC) CALL TRANSS (ECPT(JCSIDB),TB)\r\nC\r\nC     DETERMINE IF WE HAVE NON-ZERO OFFSET VECTORS.\r\nC\r\n      AOFSET = .TRUE.\r\n      J = JOFSTA - 1\r\n      DO 70 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 80\r\n   70 CONTINUE\r\n      AOFSET = .FALSE.\r\n   80 BOFSET = .TRUE.\r\n      J = JOFSTB - 1\r\n      DO 90 I = 1,3\r\n      J = J + 1\r\n      IF (ECPT(J) .NE. 0.0) GO TO 100\r\n   90 CONTINUE\r\n      BOFSET = .FALSE.\r\nC\r\nC     FORM THE CENTER AXIS OF THE BEAM WITHOUT OFFSETS.\r\nC\r\n  100 VECI(1) = ECPT(JCSIDA+1) - ECPT(JCSIDB+1)\r\n      VECI(2) = ECPT(JCSIDA+2) - ECPT(JCSIDB+2)\r\n      VECI(3) = ECPT(JCSIDA+3) - ECPT(JCSIDB+3)\r\nC\r\nC     TRANSFORM THE OFFSET VECTORS IF NECESSARY\r\nC\r\n      IF (.NOT.AOFSET .AND. .NOT.BOFSET) GO TO 150\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT A IF NECESSARY.\r\nC\r\n      IDELA = 1\r\n      J = JOFSTA - 1\r\n      DO 110 I = 1,3\r\n      J = J + 1\r\n  110 DELA(I) = ECPT(J)\r\n      IF (ABASIC) GO TO 120\r\n      IDELA = 4\r\n      CALL GMMATS (TA,3,3,0, DELA(1),3,1,0, DELA(4))\r\nC\r\nC     TRANSFORM THE OFFSET VECTOR FOR POINT B IF NECESSARY\r\nC\r\n  120 IDELB = 1\r\n      J = JOFSTB - 1\r\n      DO 130 I = 1,3\r\n      J = J + 1\r\n  130 DELB(I) = ECPT(J)\r\n      IF (BBASIC) GO TO 140\r\n      IDELB = 4\r\n      CALL GMMATS (TB,3,3,0, DELB(1),3,1,0, DELB(4))\r\nC\r\nC     SINCE THERE WAS AT LEAST ONE NON-ZERO OFFSET VECTOR RECOMPUTE VECI\r\nC\r\n  140 VECI(1) = VECI(1) + DELA(IDELA  ) - DELB(IDELB  )\r\n      VECI(2) = VECI(2) + DELA(IDELA+1) - DELB(IDELB+1)\r\n      VECI(3) = VECI(3) + DELA(IDELA+2) - DELB(IDELB+2)\r\nC\r\nC     COMPUTE THE LENGTH OF THE BIG V (VECI) VECTOR AND NORMALIZE\r\nC\r\n  150 VECI(1) = -VECI(1)\r\n      VECI(2) = -VECI(2)\r\n      VECI(3) = -VECI(3)\r\n      FL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      DO 160 I = 1,3\r\n  160 VECI(I) = VECI(I)/FL\r\nC\r\nC     COMPUTE THE SMALL V SUB 0 VECTOR, SMALV0.  ** CHECK THIS LOGIC **\r\nC\r\n      DO 165 I = 1,3\r\n  165 SMALV0(I) = SMALLV(I)\r\n      ISV = 1\r\n      IF (ICSSV .EQ. 0) GO TO 180\r\n      ISV = 4\r\n      CALL GMMATS (TA,3,3,0, SMALV0(1),3,1,0, SMALV0(4))\r\nC\r\nC     COMPUTE THE K VECTOR, VECK = VECI  X  SMALV0, AND NORMALIZE\r\nC\r\n  180 VECK(1) = VECI(2)*SMALV0(ISV+2) - VECI(3)*SMALV0(ISV+1)\r\n      VECK(2) = VECI(3)*SMALV0(ISV  ) - VECI(1)*SMALV0(ISV+2)\r\n      VECK(3) = VECI(1)*SMALV0(ISV+1) - VECI(2)*SMALV0(ISV  )\r\n      FLL     = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      VECK(1) = VECK(1)/FLL\r\n      VECK(2) = VECK(2)/FLL\r\n      VECK(3) = VECK(3)/FLL\r\nC\r\nC     COMPUTE THE J VECTOR, VECJ = VECK  X  VECI, AND NORMALIZE\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\n      FLL     = SQRT(VECJ(1)**2 + VECJ(2)**2 + VECJ(3)**2)\r\n      VECJ(1) = VECJ(1)/FLL\r\n      VECJ(2) = VECJ(2)/FLL\r\n      VECJ(3) = VECJ(3)/FLL\r\nC\r\nC     CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      L    = FL\r\n      LSQ  = L**2\r\n      LCUBE= LSQ*L\r\n      EI1  = E*I1\r\n      EI2  = E*I2\r\n      IF (K1.EQ.0.0 .OR. I12.NE.0.0) GO TO 210\r\n      GAK1 = G*A*K1\r\n      R1   = (12.0*EI1*GAK1)/(GAK1*LCUBE + 12.0*L*EI1)\r\n      GO TO 220\r\n  210 R1   =  12.0*EI1/LCUBE\r\n  220 IF (K2.EQ.0.0 .OR. I12.NE.0.0) GO TO 230\r\n      GAK2 = G*A*K2\r\n      R2   = (12.0*EI2*GAK2)/(GAK2*LCUBE + 12.0*L*EI2)\r\n      GO TO 240\r\n  230 R2   = 12.0*EI2/LCUBE\r\nC\r\nC     COMPUTE THE -SMALL- K-S, SK1, SK2, SK3 AND SK4\r\nC\r\n  240 SK1 = 0.25*R1*LSQ + EI1/L\r\n      SK2 = 0.25*R2*LSQ + EI2/L\r\n      SK3 = 0.25*R1*LSQ - EI1/L\r\n      SK4 = 0.25*R2*LSQ - EI2/L\r\nC\r\nC     COMPUTE THE TERMS THAT WILL BE NEEDED FOR THE 12 X 12 MATRIX KE\r\nC\r\n      AEL = A*E /L\r\n      LR1 = L*R1/2.0\r\n      LR2 = L*R2/2.0\r\n      GJL = G*FJ/L\r\nC\r\nC     CONSTRUCT THE 12 X 12 MATRIX KE\r\nC\r\n      DO 250 I = 1,144\r\n  250 KE(I) = 0.0\r\n      KE(  1) =  AEL\r\n      KE(  7) = -AEL\r\n      KE( 14) =  R1\r\n      KE( 18) =  LR1\r\n      KE( 20) = -R1\r\n      KE( 24) =  LR1\r\n      KE( 27) =  R2\r\n      KE( 29) = -LR2\r\n      KE( 33) = -R2\r\n      KE( 35) = -LR2\r\n      KE( 40) =  GJL\r\n      KE( 46) = -GJL\r\n      KE( 51) = -LR2\r\n      KE( 53) =  SK2\r\n      KE( 57) =  LR2\r\n      KE( 59) =  SK4\r\n      KE( 62) =  LR1\r\n      KE( 66) =  SK1\r\n      KE( 68) = -LR1\r\n      KE( 72) =  SK3\r\n      KE( 73) = -AEL\r\n      KE( 79) =  AEL\r\n      KE( 86) = -R1\r\n      KE( 90) = -LR1\r\n      KE( 92) =  R1\r\n      KE( 96) = -LR1\r\n      KE( 99) = -R2\r\n      KE(101) =  LR2\r\n      KE(105) =  R2\r\n      KE(107) =  LR2\r\n      KE(112) = -GJL\r\n      KE(118) =  GJL\r\n      KE(123) = -LR2\r\n      KE(125) =  SK4\r\n      KE(129) =  LR2\r\n      KE(131) =  SK2\r\n      KE(134) =  LR1\r\n      KE(138) =  SK3\r\n      KE(140) = -LR1\r\n      KE(144) =  SK1\r\n      IF (I12 .EQ. 0.0) GO TO 255\r\n      BETA    = 12.0*E*I12/LCUBE\r\n      LB      = L  *BETA/2.0\r\n      L2B3    = LSQ*BETA/3.0\r\n      L2B6    = LSQ*BETA/6.0\r\n      KE( 15) =  BETA\r\n      KE( 17) = -LB\r\n      KE( 21) = -BETA\r\n      KE( 23) = -LB\r\n      KE( 26) =  BETA\r\n      KE( 30) =  LB\r\n      KE( 32) = -BETA\r\n      KE( 36) =  LB\r\n      KE( 50) = -LB\r\n      KE( 54) = -L2B3\r\n      KE( 56) =  LB\r\n      KE( 60) = -L2B6\r\n      KE( 63) =  LB\r\n      KE( 65) = -L2B3\r\n      KE( 69) = -LB\r\n      KE( 71) = -L2B6\r\n      KE( 87) = -BETA\r\n      KE( 89) =  LB\r\n      KE( 93) =  BETA\r\n      KE( 95) =  LB\r\n      KE( 98) = -BETA\r\n      KE(102) = -LB\r\n      KE(104) =  BETA\r\n      KE(108) = -LB\r\n      KE(122) = -LB\r\n      KE(126) = -L2B6\r\n      KE(128) =  LB\r\n      KE(132) = -L2B3\r\n      KE(135) =  LB\r\n      KE(137) = -L2B6\r\n      KE(141) = -LB\r\n      KE(143) = -L2B3\r\nC\r\nC     DETERMINE IF THERE ARE NON-ZERO PIN FLAGS.\r\nC\r\n  255 KA = IECPT(JPINA)\r\n      KB = IECPT(JPINB)\r\n      IF (KA.EQ.0 .AND. KB.EQ.0) GO TO 325\r\nC\r\nC     SET UP THE IPIN ARRAY\r\nC\r\n      DO 260 I = 1,5\r\n      IPIN(I  ) = MOD(KA,10)\r\n      IPIN(I+5) = MOD(KB,10) + 6\r\n      IF (IPIN(I+5) .EQ. 6) IPIN(I+5) = 0\r\n      KA = KA/10\r\n  260 KB = KB/10\r\nC\r\nC     ALTER KE MATRIX DUE TO PIN FLAGS.\r\nC\r\n      DO 320 I = 1,10\r\n      IF (IPIN(I) .EQ. 0) GO TO 320\r\n      II = 13*IPIN(I) - 12\r\n      IF (KE(II) .NE. 0.0) GO TO 280\r\n      IL = IPIN(I)\r\n      II = II - IL\r\n      DO 270 J = 1,12\r\n      II = II + 1\r\n      KE(II) = 0.0\r\n      KE(IL) = 0.0\r\n      IL = IL + 12\r\n  270 CONTINUE\r\n      GO TO 320\r\n  280 DO 300 J = 1,12\r\n      JI = 12*(J-1) + IPIN(I)\r\n      IJ = 12*(IPIN(I)-1) + J\r\n      DO 290 LL = 1,12\r\n      JLL = 12*(J-1) + LL\r\n      ILL = 12*(IPIN(I)-1) + LL\r\n      KEP(JLL) = KE(JLL) - (KE(ILL)/KE(II))*KE(JI)\r\n  290 CONTINUE\r\n      KEP(IJ) = 0.0\r\n      KEP(JI) = 0.0\r\n  300 CONTINUE\r\n      DO 310 K = 1,144\r\n  310 KE(K) = KEP(K)\r\n  320 CONTINUE\r\nC\r\nC            E\r\nC     STORE K   IN KEP(1),...,KEP(36) AND\r\nC            AA\r\nC\r\nC            E\r\nC     STORE K   IN KEP(37),...,KEP(72)\r\nC            AB\r\nC\r\n  325 J   = 0\r\n      DO 340 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J   ) = KE(K  )\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC     COMPUTE THERMAL MATRIX\r\nC\r\n      DO 341 I = 1,30\r\n  341 HUT(I)  = 0.0\r\n      ALPHAL  = ALPHA*L\r\n      ALPL6   = ALPHAL*L/6.0\r\n      ALPL3   = ALPL6*2.0\r\n      ALPL2   = ALPHAL/2.0\r\n      HUT( 1) = ALPHAL\r\n      HUT( 7) = ALPL6\r\n      HUT( 8) = ALPL3\r\n      HUT(14) = ALPL6\r\n      HUT(15) = ALPL3\r\n      HUT(24) = ALPL2\r\n      HUT(25) = ALPL2\r\n      HUT(27) =-ALPL2\r\n      HUT(28) =-ALPL2\r\n      CALL GMMATS (KEP(1),6,6,0, HUT,6,5,0, THERM(1))\r\nC\r\nC                                                            T\r\nC     STORE VECI, VECJ, VECK IN KE(1),...,KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A.\r\nC\r\n      BASIC  = ABASIC\r\n      JCSID  = JCSIDA\r\n      OFFSET = AOFSET\r\n      JOFSET = JOFSTA\r\n      IWBEG  = 0\r\n      IKEL   = 1\r\n      IAB    = 1\r\n      INDEX  = ISILNO(1)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W  AND W  6 X 6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0\r\nC\r\nC     SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX.\r\nC     G = AT X TI\r\nC\r\n  360 IG = 1\r\n      IF (BASIC) GO TO 370\r\n      CALL TRANSS (ECPT(JCSID),KE(10))\r\n      CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     IF THERE IS A NON-ZERO OFFSET FOR THE POINT, SET UP THE D 3 X 3\r\nC     MATRIX.\r\nC\r\n  370 IF (.NOT.OFFSET) GO TO 380\r\n      KE(10) =  0.0\r\n      KE(11) =  ECPT(JOFSET+2)\r\n      KE(12) = -ECPT(JOFSET+1)\r\n      KE(13) = -KE(11)\r\n      KE(14) =  0.0\r\n      KE(15) =  ECPT(JOFSET)\r\n      KE(16) = -KE(12)\r\n      KE(17) = -KE(15)\r\n      KE(18) =  0.0\r\nC\r\nC     FORM THE 3 X 3 PRODUCT H = G X D, I.E., KE(28) = KE(IG) X KE(10)\r\nC\r\n      CALL GMMATS (KE(IG),3,3,0, KE(10),3,3,0, KE(28))\r\nC\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\n      IF (.NOT.OFFSET) GO TO 390\r\n      KE(IWBEG+40) = KE(28)\r\n      KE(IWBEG+41) = KE(29)\r\n      KE(IWBEG+42) = KE(30)\r\n      KE(IWBEG+46) = KE(31)\r\n      KE(IWBEG+47) = KE(32)\r\n      KE(IWBEG+48) = KE(33)\r\n      KE(IWBEG+52) = KE(34)\r\n      KE(IWBEG+53) = KE(35)\r\n      KE(IWBEG+54) = KE(36)\r\nC\r\nC                             E                    E\r\nC     FORM THE PRODUCT  S =  K   * W   OR  S   = K    * W  , DEPENDING\r\nC                        A    AA    A       B     AB     B\r\nC     UPON WHICH POINT WE ARE WORKING WITH.\r\nC\r\n  390 CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB))\r\nC\r\nC     IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED.  IF\r\nC     NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B.\r\nC\r\n      IF (IWBEG .EQ. 36) GO TO 500\r\n      BASIC  = BBASIC\r\n      JCSID  = JCSIDB\r\n      OFFSET = BOFSET\r\n      JOFSET = JOFSTB\r\n      IWBEG  = 36\r\n      IKEL   = 37\r\n      IAB    = 37\r\n      INDEX  = ISILNO(2)\r\n      DO 400 I = 28,36\r\n  400 KE(I)  = 0.0\r\n      GO TO 360\r\nC\r\nC     FILL REMAINDER OF OUTPUT BLOCK.\r\nC\r\n  500 JELID     = IELID\r\n      JSILNO(1) = ISILNO(1)\r\n      JSILNO(2) = ISILNO(2)\r\n      OUT( 1) = A*E*ALPHA\r\n      OUT( 2) = A*E/L\r\n      OUT( 3) = A\r\n      OUT( 4) = FJ\r\n      OUT( 5) = I1\r\n      OUT( 6) = I2\r\n      OUT( 7) = I12\r\n      OUT( 8) = C1\r\n      OUT( 9) = C2\r\n      OUT(10) = D1\r\n      OUT(11) = D2\r\n      OUT(12) = F1\r\n      OUT(13) = F2\r\n      OUT(14) = G1\r\n      OUT(15) = G2\r\n      OUT(16) = T SUB 0\r\n      OUT(17) = SIGT\r\n      OUT(18) = SIGC\r\n      OUT(19) = L\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sbar2.f",
    "content": "      SUBROUTINE SBAR2( TI )\r\nC******\r\nC THIS ROUTINE IS THE PHASE II SUBROUTINE OF STRESS DATA RECOVERY FOR\r\nC THE BEAM ELEMENT.\r\nC******\r\nC\r\n      REAL    I1       ,I2       ,L        ,M1A      ,M2A      ,M1B\r\n     1,       M2B      ,I12      ,K1A      ,K2A      ,K1B      ,K2B\r\n     2,       TI(14)    ,FRLAST(2)\r\n      INTEGER TLOADS   ,EJECT    ,ISHED(7)\r\nC\r\nC\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION.\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   XXXXXX(33)         ,ICSTM\r\n     2,                  NCSTM              ,IVEC\r\n     3,                  IVECN              ,LDTEMP\r\n     4,                  ELDEFM             ,DUM8(8),TLOADS\r\nC\r\nC THE FIRST 100 LOCATIONS OF THE SDR2X7 BLOCK ARE RESERVED FOR INPUT\r\nC PARAMETERS, THE SECOND 100 FOR STRESS OUTPUT PARAMETERS, AND FORCE\r\nC OUTPUT PARAMETERS BEGIN AT LOCATION 201.\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   JELID              ,JSILNO(2)\r\n     2,                  SA(36)             ,SB(36)\r\n     3,                  ST                 ,SDELTA\r\n     4,                  A                  ,FJ\r\n     5,                  I1                 ,I2\r\n     6,                  I12                ,C1\r\n     7,                  C2                 ,D1\r\n     8,                  D2                 ,F1\r\n     9,                  F2                 ,G1\r\n     T,                  G2                 ,T SUB 0\r\n     1,                  SIGMAT             ,SIGMAC\r\n     2,                  L                  ,THERM(6)\r\nC\r\nC     THERM ACTUALLY HAS 30 VALUES\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   ISELID             ,SIG1A\r\n     2,                  SIG2A              ,SIG3A\r\n     3,                  SIG4A              ,SIGAX\r\n     4,                  SIGAMX             ,SIGAMN\r\n     5,                  MSTEN              ,SIG1B\r\n     6,                  SIG2B              ,SIG3B\r\n     7,                  SIG4B              ,SIGBMX\r\n     8,                  SIGBMN             ,MSCOM\r\n     9,                  YYYYYY(84)\r\n      COMMON   /SDR2X7/\r\n     1                   IFELID             ,M1A\r\n     2,                  M2A                ,M1B\r\n     3,                  M2B                ,V1\r\n     4,                  V2                 ,FX\r\n     5,                  T\r\nC\r\nC SDR2 SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   FA(6)              ,FB(6)\r\n     2,                  IDISP              ,IUA\r\n     3,                  IUB                ,P1\r\n     4,                  K1A                ,K2A\r\n     5,                  K1B                ,K2B\r\n     6,                  Q                  ,W\r\n     7,                  CFA(6)             ,CFB(6)\r\n     8,                  CFRVEC(10)         ,FRVEC(10)\r\nC\r\nC  STRESS/FORCE PRECISION CHECK\r\nC\r\n      COMMON   /SDR2X9/\r\n     1                   NCHK               ,ISUB\r\n     2,                  ILD                ,FRTMEI(2)\r\n     3,                  TWOTOP             ,FNCHK\r\nC\r\n      EQUIVALENCE\r\n     1                   (LDTEMP,TEMPLD)    ,(MSTEN,SMTEN)\r\n     2,                  (MSCOM,SMCOM)      ,(ISHED(6),FRLAST(1))\r\n     3,                  (IEID,CFRVEC(1))\r\n     4,                  (ISHED(1),LSUB)    ,(ISHED(2),LLD)\r\nC\r\n      DATA LLD, LSUB, FRLAST / 2*-100, -1.0E30, -1.0E30 /\r\nC\r\n      IDISP = IVEC - 1\r\n      IUA = IDISP + JSILNO(1)\r\n      CALL SMMATS (SA(1),6,6,0, ZZ(IUA),6,1,0,  FA,CFA )\r\n      IUB = IDISP + JSILNO(2)\r\n      CALL SMMATS (SB(1),6,6,0, ZZ(IUB),6,1,0,  FB,CFB )\r\n      P1  =  FA(1) + FB(1)\r\n      V1  = -FA(2) - FB(2)\r\n      V2  = -FA(3) - FB(3)\r\n      T   = -FA(4) - FB(4)\r\n      M2A =  FA(5) + FB(5)\r\n      M1A = -FA(6) - FB(6)\r\n      FX  = -P1 - SDELTA * ELDEFM\r\n      CFRVEC(2) = CFA(6) + CFB(6)\r\n      CFRVEC(3) = CFA(5) + CFB(5)\r\n      CFRVEC(9) = CFA(4) + CFB(4)\r\n      CFRVEC(7) = CFA(3) + CFB(3)\r\n      CFRVEC(6) = CFA(2) + CFB(2)\r\n      CFRVEC(8) = CFA(1) + CFB(1)\r\nC\r\nC IF LDTEMP = -1, THE LOADING TEMPERATURE IS UNDEFINED\r\nC\r\n      IF( TLOADS .EQ. 0 ) GO TO 10\r\n      TSAVE = TI(2)\r\n      TI(2) = (TI(1) + TI(2))/2.0  -  TSUB0\r\n      CALL GMMATS( THERM,6,5,0,  TI(2),5,1,0,  FA(1) )\r\n      TI(2) = TSAVE\r\n      FX = FX - FA(1)\r\n      V1 = V1 - FA(2)\r\n      V2 = V2 - FA(3)\r\n      T  = T - FA(4)\r\n      M2A = M2A + FA(5)\r\n      M1A = M1A - FA(6)\r\n   10 M1B = M1A - V1*L\r\n      M2B = M2A - V2*L\r\n      CFRVEC(4) = CFRVEC(2) + CFRVEC(6) * L\r\n      CFRVEC(5) = CFRVEC(3) + CFRVEC(7) * L\r\n      FRVEC(2) = M1A\r\n      FRVEC(3) = M2A\r\n      FRVEC(4) = M1B\r\n      FRVEC(5) = M2B\r\n      FRVEC(6) = V1\r\n      FRVEC(7) = V2\r\n      FRVEC(8) = FX\r\n      FRVEC(9) = T\r\nC*****\r\nC COMPUTE ELEMENT STRESSES AT 4 POINTS\r\nC*****\r\nC\r\nC COMPUTE K1A AND K2A\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 30\r\n      IF (I1 .NE. 0.0) GO TO 20\r\n      K1A = 0.0\r\n      GO TO 40\r\n   20 K1A = -M1A / I1\r\n      GO TO 40\r\n   30 K1A = (M2A * I12  -  M1A * I2) / (I1 * I2  -  I12**2)\r\n      K2A = (M1A * I12  -  M2A * I1) / (I1 * I2  -  I12**2)\r\n      GO TO 60\r\n   40 IF (I2 .NE. 0.0) GO TO 50\r\n      K2A = 0.0\r\n      GO TO 60\r\n   50 K2A = -M2A / I2\r\nC\r\nC COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A\r\nC\r\n   60 SIG1A = K1A * C1  +  K2A * C2\r\n      SIG2A = K1A * D1  +  K2A * D2\r\n      SIG3A = K1A * F1  +  K2A * F2\r\n      SIG4A = K1A * G1  +  K2A * G2\r\nC\r\nC COMPUTE K1B AND K2B\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 80\r\n      IF (I1 .NE. 0.0) GO TO 70\r\n      K1B = 0.0\r\n      GO TO 90\r\n   70 K1B = -M1B / I1\r\n      GO TO 90\r\n   80 K1B = (M2B * I12  -  M1B * I2) / (I1 * I2  -  I12**2)\r\n      K2B = (M1B * I12  -  M2B * I1) / (I1 * I2  -  I12**2)\r\n      GO TO 110\r\n   90 IF (I2 .NE. 0.0) GO TO 100\r\n      K2B = 0.0\r\n      GO TO 110\r\n  100 K2B = -M2B / I2\r\nC\r\nC COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B\r\nC\r\n  110 SIG1B = K1B * C1  +  K2B * C2\r\n      SIG2B = K1B * D1  +  K2B * D2\r\n      SIG3B = K1B * F1  +  K2B * F2\r\n      SIG4B = K1B * G1  +  K2B * G2\r\n      IF( TLOADS .EQ. 0 ) GO TO 115\r\nC\r\nC     TEST IF AT LEAST ONE POINT TEMPERATURE IS GIVEN\r\nC\r\n      DO 111 I = 7,14\r\n      IF( TI(I) .NE. 0.0 ) GO TO 112\r\n  111 CONTINUE\r\n      GO TO 115\r\n  112 IF( A .EQ. 0.0 ) GO TO 115\r\n      EALF =-ST / A\r\n      SIG1A = SIG1A + EALF*(TI(7) - TI(3)*C1 - TI(5)*C2 - TI(1))\r\n      SIG2A = SIG2A + EALF*(TI(8) - TI(3)*D1 - TI(5)*D2 - TI(1))\r\n      SIG3A = SIG3A + EALF*(TI(9) - TI(3)*F1 - TI(5)*F2 - TI(1))\r\n      SIG4A = SIG4A + EALF*(TI(10) - TI(3)*G1 - TI(5)*G2 - TI(1))\r\n      SIG1B = SIG1B + EALF*(TI(11) - TI(4)*C1 - TI(6)*C2 - TI(2))\r\n      SIG2B = SIG2B + EALF*(TI(12) - TI(4)*D1 - TI(6)*D2 - TI(2))\r\n      SIG3B = SIG3B + EALF*(TI(13) - TI(4)*F1 - TI(6)*F2 - TI(2))\r\n      SIG4B = SIG4B + EALF*(TI(14) - TI(4)*G1 - TI(6)*G2 - TI(2))\r\n  115 CONTINUE\r\nC\r\nC COMPUTE AXIAL STRESS\r\nC\r\n      CFRVEC(10) = 0.0\r\n      SIGAX = 0.0\r\n      IF (A .NE. 0.0) SIGAX = FX / A\r\n      IF (A.NE.0.0) CFRVEC(10) = CFRVEC(8) / A\r\n      FRVEC(10) = SIGAX\r\nC\r\nC COMPUTE MAXIMA AND MINIMA\r\nC\r\n      SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMX = SIGAX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B)\r\n      SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMN = SIGAX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B)\r\nC\r\nC COMPUTE MARGIN OF SAFETY IN TENSION\r\nC\r\n      IF(SIGMAT.LE.0.0)GO TO 620\r\n      IF(AMAX1(SIGAMX,SIGBMX).LE.0.0) GO TO 620\r\n      Q=SIGMAT/AMAX1(SIGAMX,SIGBMX)\r\n      SMTEN=Q-1.0\r\n      GO TO 630\r\n  620 MSTEN=1\r\nC\r\nC      COMPUTE MARGIN OF SAFETY IN COMPRESSION\r\nC\r\n  630 IF(SIGMAC .LE. 0.0) GO TO 640\r\n      IF(AMIN1(SIGAMN,SIGBMN).GE.0.0) GO TO 640\r\n      W = -SIGMAC/AMIN1(SIGAMN,SIGBMN)\r\n      SMCOM=W-1.0\r\n      GO TO 150\r\n  640 MSCOM=1\r\n  150 ISELID = JELID\r\n      IFELID = JELID\r\nC\r\nC  . STRESS CHECK...\r\nC\r\n      IF (NCHK.LE.0) GO TO 230\r\n      IEID = JELID\r\n      K = 0\r\n      CALL SDRCHK (FRVEC(2),CFRVEC(2),9,K)\r\nC\r\n      IF (K.EQ.0) GO TO 230\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      J = 0\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 200\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 1\r\n      CALL PAGE1\r\n  180 CALL SD2RHD (ISHED,J)\r\n      LINE = LINE + 1\r\n      WRITE(NOUT,190)\r\n  190 FORMAT(7X,47HTYPE     EID    M1A    M2A    M1B    M2B     V1,5X,\r\n     1 23HV2     FA      T     SA)\r\n      GO TO 210\r\nC\r\n  200 IF (EJECT(2).NE.0) GO TO 180\r\n  210 WRITE(NOUT,220) IEID,(CFRVEC(I),I=2,10)\r\n  220 FORMAT (1H0,7X,3HBAR,I8,9F7.1)\r\nC\r\n  230 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sbspl2.f",
    "content": "      SUBROUTINE SBSPL2( NTYPE, TI )\r\nC\r\nC     PHASE TWO STRESS DATA RECOVERY BASIC BENDING TRIANGLE.\r\nC\r\nC     NTYPE = 0  IMPLIES BASIC BENDING TRIANGLE\r\nC     NTYPE = 3 IMPLIES TRI-PLATE IS CALLING\r\nC     NTYPE = 4 IMPLIES QUAD-PLATE IS CALLING\r\nC\r\n      DIMENSION NSIL(1), SI(1)\r\n      REAL    TI(6)    ,SDELTA(3),FRLAST(2)\r\n      INTEGER EJECT    ,ISHED(7) ,TLOADS   ,BSC   ,PLT   ,QD   ,TR\r\n     1,       ISTYP(2)\r\n      LOGICAL FLAG\r\nC\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,DUM11(11),TLOADS\r\n      COMMON /SDR2X7/ EST(100),STRES(100),FORVEC(25)\r\n      COMMON /SDR2X8/ EYE,I,J,NPOINT,VEC(5),ZOVERI,TEMP,DELTA\r\n     1,            CVEC(5),CFRVEC(12)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\n      COMMON /SDR2DE/ SKP(8),IELTYP\r\nC\r\n      EQUIVALENCE (SI(1),EST(9)),(NSIL(1),EST(2))\r\n      EQUIVALENCE (NELID,EST(1))\r\n      EQUIVALENCE (F1,N1)  ,  (ISHED(6),FRLAST(1) )\r\n     1,           (ISHED(1),LSUB)  ,  (ISHED(2),LLD)\r\nC\r\n      DATA TR,QD,BSC,PLT / 4H  TR, 4H  QD, 4HBSC , 4HPLT  /\r\n      DATA LLD,LSUB,FRLAST / 2*-100, -1.0E30, -1.0E30 /\r\nC\r\nC     ******************************************************************\r\nC  . ZERO OUT FORCE AND PRECISION CHECK VECTOR...\r\n      DO 5 I = 1,6\r\n      FORVEC(I) = 0.0E0\r\n      CFRVEC(I) = 0.0E0\r\n    5 CFRVEC(I+6) = 0.0E0\r\n      FORVEC(1) = EST(1)\r\nC\r\n      NPTS = 3\r\n      IF( NTYPE .EQ. 4 ) NPTS = 4\r\nC\r\nC                          NPTS\r\nC         FORCE VECTOR = SUMMATION (S )(U )\r\nC                          I=1       I   I\r\nC\r\n      DO 20 I = 1,NPTS\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      CALL SMMATS (SI(30*I-29),5,6,0,  Z(NPOINT),6,1,0,  VEC,CVEC )\r\nC\r\n      DO 30 J = 1,5\r\n      CFRVEC(J+1) = CFRVEC(J+1) + CVEC(J)\r\n   30 FORVEC(J + 1) = FORVEC(J + 1) + VEC(J)\r\n   20 CONTINUE\r\n      IF( TLOADS .EQ. 0 ) GO TO 55\r\n      FLAG = .FALSE.\r\n      JST = 98\r\n      IF( NTYPE .EQ. 4 ) JST = 128\r\n      F1 = TI(6)\r\n      IF( N1 .EQ. 1 ) GO TO 50\r\n      FORVEC(2) = FORVEC(2) - TI(2)\r\n      FORVEC(3) = FORVEC(3) - TI(3)\r\n      FORVEC(4) = FORVEC(4) - TI(4)\r\n      IF( TI(5).EQ.0.0 .AND. TI(6).EQ.0.0 ) FLAG = .TRUE.\r\n      GO TO 55\r\n   50 FORVEC(2) = FORVEC(2) + TI(2)*EST(JST+1)\r\n      FORVEC(3) = FORVEC(3) + TI(2)*EST(JST+2)\r\n      FORVEC(4) = FORVEC(4) + TI(2)*EST(JST+3)\r\n      IF( TI(3).EQ.0.0 .AND. TI(4).EQ.0.0 ) FLAG = .TRUE.\r\n   55 CONTINUE\r\nC\r\nC     FORCE VECTOR COMPLETE AND CONTAINS M , M , M  , V , V\r\nC                                         X   Y   XY   X   Y\r\nC\r\nC     AND ALSO INCLUDES THE ELEMENT ID AS THE FIRST ENTRY\r\nC     ******************************************************************\r\nC\r\nC     STRESSES AT FIBER DISTANCES Z1 AND Z2 = - M * Z / I\r\nC\r\n      STRES(2) = EST(7)\r\n      STRES(11) = EST(8)\r\n      EYE = EST(6)\r\n      I = 2\r\n      K = 7\r\n      K1 = 0\r\n  200 ZOVERI = - STRES(I) / EYE\r\n      ZOVI = ABS (ZOVERI)\r\n      IF( TLOADS.EQ.0  .OR.  FLAG ) GO TO 207\r\n      J = 98\r\n      IF( NTYPE .EQ. 4 ) J = 128\r\n      IF( N1 .EQ. 1 ) GO TO 205\r\nC\r\n      FF = TI(K1+5) - TI(1)\r\n      SDELTA(1) = (EST(JST+1)*FF + TI(2)*STRES(I))/EYE\r\n      SDELTA(2) = (EST(JST+2)*FF + TI(3)*STRES(I))/EYE\r\n      SDELTA(3) = (EST(JST+3)*FF + TI(4)*STRES(I))/EYE\r\n      GO TO 210\r\nC\r\n  205 FF = (TI(K1+3) - STRES(I)*TI(2) - TI(1)) / EYE\r\n      SDELTA(1) = EST(JST+1)*FF\r\n      SDELTA(2) = EST(JST+2)*FF\r\n      SDELTA(3) = EST(JST+3)*FF\r\n      GO TO 210\r\nC\r\n  207 SDELTA(1) = 0.0\r\n      SDELTA(2) = 0.0\r\n      SDELTA(3) = 0.0\r\n  210 CONTINUE\r\n      STRES(I+1) = FORVEC(2) * ZOVERI - SDELTA(1)\r\n      STRES(I+2) = FORVEC(3) * ZOVERI - SDELTA(2)\r\n      STRES(I+3) = FORVEC(4) * ZOVERI - SDELTA(3)\r\n      CFRVEC(K  ) = CFRVEC(2) * ZOVI\r\n      CFRVEC(K+1) = CFRVEC(3) * ZOVI\r\n      CFRVEC(K+2) = CFRVEC(4) * ZOVI\r\nC\r\nC     PRINCIPAL STRESSES AND ANGLE OF ACTION PHI\r\n      TEMP = STRES(I+1) - STRES(I+2)\r\n      STRES(I+7) = SQRT(  (TEMP/2.0E0)**2  +  STRES(I+3)**2  )\r\n      DELTA = (STRES(I + 1) + STRES(I + 2) ) / 2.0E0\r\n      STRES(I+5) = DELTA + STRES(I+7)\r\n      STRES(I+6) = DELTA - STRES(I+7)\r\n      DELTA = 2.0E0 * STRES(I+3)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101\r\n      STRES(I+4) = ATAN2( DELTA,TEMP ) * 28.6478898E0\r\n      GO TO 100\r\n  101 STRES(I+4) = 0.0E0\r\n  100 IF( I .EQ. 11 ) GO TO 111\r\n      I = 11\r\n      K1 = 1\r\n      K = 10\r\n      GO TO 200\r\n  111 STRES( 1) = EST(1)\r\nC\r\nC     ABOVE COMPLETES 2 VECTORS EACH WITH...\r\nC\r\nC     ELEM ID, Z, SIGMA X, SIGMA Y, SIGMA XY, PHI, SIG 1, SIG 2, TAU-MAX\r\nC\r\nC     STRESSES AND FORCES COMPLETE\r\nC\r\nC\r\nC     ADDITON TO ELIMINATE 2ND ELEMENT ID IN OUTPUT\r\nC\r\n      DO 5000 I = 10,17\r\n 5000 STRES(I) = STRES(I+1)\r\nC\r\nC  . STRESS CHECK...\r\nC\r\n      IF (NCHK.LE.0) GO TO 350\r\n      CFRVEC(1) = EST(1)\r\n      K = 0\r\nC\r\nC  . FORCES...\r\n      CALL SDRCHK (FORVEC(2),CFRVEC(2),5,K)\r\nC\r\nC  . STRESSES...\r\n      CALL SDRCHK (STRES(3),CFRVEC(7),3,K)\r\n      CALL SDRCHK (STRES(11),CFRVEC(10),3,K)\r\n      IF (K.EQ.0) GO TO 350\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      J = 0\r\n      ISTYP(1) = TR\r\n      IF (IELTYP.EQ.15) ISTYP(1) = QD\r\n      ISTYP(2) = PLT\r\n      IF (IELTYP.EQ.7) ISTYP(2) = BSC\r\nC\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 320\r\nC\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 2\r\n      CALL PAGE1\r\n  300 CALL SD2RHD (ISHED,J)\r\n      LINE = LINE + 1\r\n      WRITE(NOUT,310)\r\n  310 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HMX,5X,2HMY,4X,3HMXY,5X,2HVX,5X,\r\n     1  2HVY,4X,3HSX1,4X,3HSY1,3X,4HSXY1,4X,3HSX2,4X,3HSY2,3X,4HSXY2)\r\n      GO TO 330\r\nC\r\n  320 IF (EJECT(2).NE.0) GO TO 300\r\n  330 WRITE(NOUT,340) ISTYP,NELID,(CFRVEC(I),I=2,12)\r\n  340 FORMAT (1H0,4X,A4,A3,I7,11F7.1)\r\nC\r\n  350 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scalar.f",
    "content": "      SUBROUTINE SCALAR\r\nC\r\nC     CONVERTS MATRIX ELEMENT TO PARAMETER\r\nC\r\nC     SCALAR   MTX//C,N,ROW/C,N,COL/V,N,RSP/V,N,RDP/V,N,SPLX/V,N,DPLX $\r\nC\r\nC     INPUT GINO FILE\r\nC       MTX = ANY MATRIX, S.P. OR D.P.; REAL OR COMPLEX\r\nC     OUTPUT GINO FILE\r\nC       NONE\r\nC     INPUT PARAMETERS\r\nC       ROW, COL = ROW AND COLUMN OF MTX (DEFAULT ARE 1,1)\r\nC     OUTPUT PARAMETERS\r\nC       RSP  = VALUE OF MTX(ROW,COL), REAL SINGLE PRECISION\r\nC       RDP  = VALUE OF MTX(ROW,COL), REAL DOUBLE PRECISION\r\nC       SPLX = VALUE OF MTX(ROW,COL), S.P. COMPLEX\r\nC       DPLX = VALUE OF MTX(ROW,COL), D.P. COMPLEX\r\nC\r\nC     ORIGINALY WRITTEN BY R. MITCHELL, GSFC, NOV. 1972\r\nC\r\nC     COMPLETELY REWRITTEN BY G.CHAN/UNISYS IN JUNE 1988, SUCH THAT THE\r\nC     OUTPUT PARAMETERS ARE SAVED CORRECTLY ACCORDING TO THEIR PRECISION\r\nC     TYPES. (THE PRTPARM MODULE WILL BE ABLE TO PRINT THEM OUT\r\nC     CORRECTLY.) PLUS IMPROVED MESSAGES (WHICH CAN BE SUPPRESSED BY\r\nC     DIAG 37)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          NOPRT\r\n      INTEGER          NAME(2),IA(7),FNM(2),PNM(2)\r\n      REAL             RSP,SPLX,A,VPS(1),SP(4)\r\n      DOUBLE PRECISION DA(2),RDP,DPLX(2),DP(2)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,TYPE(4)*10\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /XVPS  /  IVPS(1)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /ZNTPKX/  A(4),II,EOL,EOR\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /BLANK /  BK(1),ROW,COL,RSP,R2(2),SPLX(2),D4(4)\r\n      EQUIVALENCE      (R2(1),RDP),(D4(1),DPLX(1)),(IA(2),NCOL),\r\n     1                 (IA(3),NROW),(IA(4),FORM),(IA(5),PREC),\r\n     2                 (DA(1),A(1)),(DP(1),SP(1)),(VPS(1),IVPS(1))\r\n      DATA  IN1,NAME/  101, 4HSCAL,4HAR  / , FIRST / 12 /\r\n      DATA  TYPE    /  'S.P. REAL ' ,    'D.P. REAL '   ,\r\n     1                 'S.P. CMPLX' ,    'D.P. CMPLX'   /\r\nC\r\nC     SUPPRESS ALL SCALAR MESSAGES IF DIAG 37 IS ON\r\nC\r\n      CALL SSWTCH (37,I)\r\n      NOPRT = I .EQ. 1\r\nC\r\nC     MOVE VARIALBES IN /BLANK/ BY ONE WORD TO GET BY WORD BOUNDARY\r\nC     ALIGNMENT SITUATION\r\nC\r\n      J = 12\r\n      DO 10 I = 1,11\r\n      BK(J) = BK(J-1)\r\n   10 J = J - 1\r\nC\r\nC     INITIALIZATION\r\nC\r\n      LCORE = KORSZ(CORE)\r\n      IBUF  = LCORE - SYSBUF + 1\r\n      IF (IBUF .LT. 1) GO TO 400\r\n      RSP     = 0.\r\n      SPLX(1) = 0.\r\n      SPLX(2) = 0.\r\n      RDP     = 0.D0\r\n      DPLX(1) = 0.D0\r\n      DPLX(2) = 0.D0\r\n      DP(1)   = 0.D0\r\n      DP(2)   = 0.D0\r\n      CALL FNAME (IN1,FNM)\r\n      CALL PAGE2 (FIRST)\r\n      FIRST   = 3\r\nC\r\nC     GET STATUS OF INPUT MATRIX\r\nC     CHECK FOR PURGED INPUT OR OUT OF RANGE INPUT PARAMETERS\r\nC\r\n      IA(1) = IN1\r\n      CALL RDTRL (IA)\r\n      IF (IA(1).LT.   0) GO TO 410\r\n      IF (ROW .GT. NROW) GO TO 420\r\nC\r\n      GO TO (20,20,40,60,70,20,50,30), FORM\r\nC     SQUARE, RECTANGULAR OR SYMMETRIC MATRIX\r\nC\r\n   20 IF (COL .GT. NCOL) GO TO 420\r\n      GO TO 100\r\nC\r\nC     IDENTITY MATRIX\r\nC\r\n   30 IF (ROW .NE. COL) GO TO 200\r\n      RSP = 1.0\r\n      RDP = 1.D0\r\n      SPLX(1) = 1.\r\n      DPLX(1) = 1.D0\r\n      GO TO 200\r\nC\r\nC     DIAGONAL MATRIX\r\nC\r\n   40 IF (ROW .NE.  COL) GO TO 200\r\n      IF (COL .GT. NROW) GO TO 420\r\nC     SET COL TO 1 FOR SPECIAL DIAGONAL FORMAT\r\n      COL = 1\r\n      GO TO 100\r\nC\r\nC     ROW VECTOR\r\nC     SWITCH ROW AND COLUMN FOR PROPER INDEXING\r\nC\r\n   50 ROW = COL\r\n      COL = 1\r\n      GO TO 100\r\nC\r\nC     LOWER TRIANGULAR MATRIX (UPPER HALF= 0)\r\nC\r\n   60 IF (COL-ROW) 100,100,200\r\nC\r\nC     UPPER TRIANGULAR MATRIX (LOWER HALF= 0)\r\nC\r\n   70 IF (ROW-COL) 100,100,200\r\nC\r\nC     OPEN INPUT FILE AND SKIP HEADER RECORD AND UNINTERSTING COLUMNS\r\nC\r\n  100 CALL OPEN (*410,IN1,CORE(IBUF),0)\r\n      CALL SKPREC (IN1,COL)\r\nC\r\nC     READ AND SEARCH COLUMN CONTAINING DESIRED ELEMENT.\r\nC     RECALL THAT DEFAULT VALUE WAS SET TO ZERO\r\nC\r\n      CALL INTPK (*200,IN1,0,PREC,0)\r\nC\r\nC     FETCH ONE ELEMENT\r\nC     CHECK FOR DESIRED ELEMENT\r\nC     IF INDEX HIGHER, IT MEANS ELEMENT WAS 0.\r\nC\r\n  110 CALL ZNTPKI\r\n      IF (II-ROW) 120,130,200\r\nC\r\nC     CHECK FOR LAST NON-ZERO ELEMENT IN COLUMN.\r\nC\r\n  120 IF (EOL) 110,110,200\r\nC\r\nC     MOVE VALUES TO OUTPUT PARAMETER AREA.\r\nC     CHECK PRECISION OF INPUT VALUE.\r\nC\r\n  130 GO TO (140,150,170,180), PREC\r\nC\r\n  140 RSP = A(1)\r\n      RDP = DBLE(RSP)\r\n      GO TO 160\r\nC\r\n  150 RDP = DA(1)\r\n      RSP = SNGL(RDP)\r\n  160 SPLX(1) = RSP\r\n      DPLX(1) = RDP\r\n      GO TO 200\r\nC\r\n  170 SPLX(1) = A(1)\r\n      SPLX(2) = A(2)\r\n      DPLX(1) = DBLE(SPLX(1))\r\n      DPLX(2) = DBLE(SPLX(2))\r\n      GO TO 190\r\nC\r\n  180 DPLX(1) = DA(1)\r\n      DPLX(2) = DA(2)\r\n      SPLX(1) = SNGL(DPLX(1))\r\n      SPLX(2) = SNGL(DPLX(2))\r\n  190 RSP = 0.0\r\n      RDP = 0.D0\r\nC\r\nC     MOVE VALUES TO OUTPUT PARAMETERS AS REQUESTED BY USER, AND\r\nC     SAVE PARAMETERS\r\nC\r\n  200 IF (NOPRT) GO TO 215\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,210) UIM\r\n  210 FORMAT (A29,' FROM SCALAR MODULE -', /5X,\r\n     1        '(ALL SCALAR MESSAGES CAN BE SUPPRESSED BY DIAG 37)')\r\n  215 CALL FNDPAR (-3,J)\r\n      IF (J .LE. 0) GO TO 260\r\n      PNM(1) = IVPS(J-3)\r\n      PNM(2) = IVPS(J-2)\r\n      IF (PREC .GE. 3) GO TO 240\r\n      VPS(J) = RSP\r\n      IF (NOPRT) GO TO 260\r\n      WRITE (NOUT,220) RSP,PNM\r\n  220 FORMAT (73X,E15.8,4H  = ,2A4)\r\n      WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM\r\n  230 FORMAT (1H+,4X,'ELEMENT (',I5,'-ROW,',I5,'-COL) OF ',A10,' INPUT',\r\n     1       ' FILE ',2A4,2H =)\r\n      GO TO 260\r\n  240 WRITE  (NOUT,250) UWM,PNM\r\n  250 FORMAT (A25,' - INVALID OUTPUT REQUEST.', /5X,'ORIG. ELEM. IN ',\r\n     1       'COMPLEX FORM. OUTPUT PARAMETER ',2A4,' NOT SAVED)',/)\r\n  260 CALL FNDPAR (-4,J)\r\n      IF (J .LE. 0) GO TO 290\r\n      PNM(1)   = IVPS(J-3)\r\n      PNM(2)   = IVPS(J-2)\r\n      IF (PREC .GE. 3) GO TO 280\r\n      DP(1)    = RDP\r\n      VPS(J  ) = SP(1)\r\n      VPS(J+1) = SP(2)\r\n      IF (NOPRT) GO TO 290\r\n      WRITE (NOUT,270) RDP,PNM\r\n  270 FORMAT (73X,D15.8,4H  = ,2A4)\r\n      WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM\r\n      GO TO 290\r\n  280 WRITE (NOUT,250) UWM,PNM\r\n  290 CALL FNDPAR (-5,J)\r\n      IF (J .LE. 0) GO TO 310\r\n      VPS(J  ) = SPLX(1)\r\n      VPS(J+1) = SPLX(2)\r\n      PNM(1)   = IVPS(J-3)\r\n      PNM(2)   = IVPS(J-2)\r\n      IF (NOPRT) GO TO 310\r\n      WRITE (NOUT,300) SPLX,PNM\r\n  300 FORMAT (73X,1H(,E15.8,1H,,E15.8,1H),4H  = ,2A4)\r\n      WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM\r\n  310 CALL FNDPAR (-6,J)\r\n      IF (J .LE. 0) GO TO 330\r\n      DP(1)    = DPLX(1)\r\n      DP(2)    = DPLX(2)\r\n      VPS(J  ) = SP(1)\r\n      VPS(J+1) = SP(2)\r\n      VPS(J+2) = SP(3)\r\n      VPS(J+3) = SP(4)\r\n      PNM(1)   = IVPS(J-3)\r\n      PNM(2)   = IVPS(J-2)\r\n      IF (NOPRT) GO TO 330\r\n      WRITE (NOUT,320) DPLX,PNM\r\n  320 FORMAT (73X,1H(,D15.8,1H,,D15.8,1H),4H  = ,2A4)\r\n      WRITE (NOUT,230) ROW,COL,TYPE(PREC),FNM\r\nC\r\nC     CLOSE INPUT UNIT AND RETURN\r\nC\r\n  330 CALL CLOSE (IN1,1)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES, SET THEM ALL TO NON-FATAL\r\nC\r\nC     NOT ENOUGH CORE FOR GINO BUFFER\r\nC\r\n  400 J = 8\r\n      GO TO 430\r\nC\r\nC     INPUT FILE ERROR\r\nC\r\n  410 J = 1\r\n      GO TO 430\r\nC\r\nC     INVALID ROW OR COLUMN NUMBER\r\nC\r\n  420 J = 7\r\nC\r\n  430 CALL MESAGE (J,IN1,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/scaled.f",
    "content": "      SUBROUTINE SCALED (TYPE,EMORD)\r\nC\r\nC     THIS ROUTINE PROCESSES CELAS, CDAMP, AND CMASS ELEMENTS.\r\nC\r\nC     TYPE  - DENOTES FORM OF EST DATA. IE CELAS1,CELAS2,ETC.\r\nC     EMORD - DENOTES MATRIX  1 = CELAS = STIFFNESS MATRIX,\r\nC                             2 = CMASS = MASS MATRIX,\r\nC                             3 = CDAMP = DAMPING MATRIX\r\nC\r\nC     EST FOR ELAS ELEMENTS\r\nC\r\nC                     TYPE           TYPE           TYPE           TYPE\r\nC             CELAS1         CELAS2         CELAS3         CELAS4\r\nC             ------  ----   ------  ----   ------  ----   ------  ----\r\nC     ECPT(1) IELID     I    IELID     I    IELID     I    IELID     I\r\nC     ECPT(2) IGP1      I    K         R    IS1       I    K         R\r\nC     ECPT(3) IGP2      I    IGP1      I    IS2       I    IS1       I\r\nC     ECPT(4) IC1       I    IGP2      I    K         R    IS2       I\r\nC     ECPT(5) IC2       I    IC1       I    GSUBE     R\r\nC     ECPT(6) K         R    IC2       I    S         R\r\nC     ECPT(7) GSUBE     R    GSUBE     R\r\nC     ECPT(8) S         R    S         R\r\nC\r\n      LOGICAL          NOGO\r\n      INTEGER          TYPE,EMORD,EID,ISIL(2),ICOMP(2),GPT(4),CPT(2),\r\n     1                 KPT(4),GSPT(4),CODE,IEST(1),DICT(7),GSUBE,ELID,\r\n     2                 ESTID\r\n      DOUBLE PRECISION DZ(16)\r\n      DIMENSION        Z(16)\r\n      CHARACTER        UFM*23,UWM*25\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /EMGEST/  EST(100)\r\n      COMMON /EMGPRM/  DUMY(15),IMAT(3),IPREC,NOGO\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /EMGDIC/  DUM2(2),NLOCS,ELID,ESTID\r\n      EQUIVALENCE      (KSYSTM(2),IOUTPT),(Z(1),DZ(1)),(IEST(1),EST(1))\r\n      DATA    GPT   /  2, 3, 2, 3 /, CPT / 4, 5 /, KPT /6, 2, 4, 2 /\r\n      DATA    GSPT  /  7, 7, 5, 0 /\r\nC\r\nC     TEST IF MATRIX TO BE PRODUCED IS REQUESTED\r\nC\r\n      IF (IMAT(EMORD) .EQ. 0) RETURN\r\nC\r\nC     MOVE EST DATA TO LOCAL ARRAYS.  LOCATIONS ARE GIVEN BY DATA //\r\nC\r\n      EID     = IEST(1)\r\n      IP      = KPT(TYPE)\r\n      Z(1)    = EST(IP)\r\n      GSUBE   = 0\r\n      ICOMP(1)= 0\r\n      ICOMP(2)= 0\r\n      DICT(2) = 1\r\n      NGRIDS  = 2\r\n      IP      = GPT(TYPE)\r\n      ISIL(1) = IEST(IP)\r\n      ISIL(2) = IEST(IP+1)\r\n      IF (TYPE .GE. 3) GO TO 10\r\n      IP = CPT(TYPE)\r\n      IF (IEST(IP  ) .NE. 0) ICOMP(1) = IEST(IP  ) - 1\r\n      IF (IEST(IP+1) .NE. 0) ICOMP(2) = IEST(IP+1) - 1\r\nC\r\nC     IF ONE SIL IS ZERO INSURE THAT IT IS THE SECOND.\r\nC     IF BOTH SILS ARE NON-ZERO MAKE SURE HIGHER OF TWO IS SECOND.\r\nC\r\n   10 IF (ISIL(2) .EQ. 0) GO TO 5\r\n      IF (ISIL(1) .EQ. 0) GO TO 4\r\n      IF (ISIL(1) .LE. ISIL(2)) GO TO 5\r\nC\r\nC     SWITCH SILS AND COMPS\r\nC\r\n    4 IP      = ISIL(2)\r\n      ISIL(2) = ISIL(1)\r\n      ISIL(1) = IP\r\n      IP      = ICOMP(2)\r\n      ICOMP(2)= ICOMP(1)\r\n      ICOMP(1)= IP\r\n    5 IF (ISIL(2) .GT. 0) GO TO 20\r\nC\r\nC     IF THE SECOND SIL EQUALS ZERO THE ELEMENT IS GROUNDED\r\nC     ONLY A SINGLE MATRIX TERM IS PRODUCED\r\nC\r\n      NGRIDS = 1\r\n      DICT(2)= 1\r\n      NTERMS = 1\r\n      CODE   = 2**ICOMP(1)\r\n      NCOL   = 1\r\n      GO TO 80\r\nC\r\n   20 IF (ISIL(2) .NE. ISIL(1)) GO TO 30\r\nC\r\nC     IF THE ELEMENT CONNECTS TWO COMPONENTS OF THE SAME POINT IT\r\nC     MUST HAVE SPECIAL TREATMENT\r\nC\r\n      IF (ICOMP(2) .EQ. ICOMP(1)) GO TO 110\r\nC\r\nC     IN THE GENERAL CASE, THE CONNECTED COMPONENTS MAY BE THE SAME\r\nC     AND THE MATRIX IS A 2 BY 2.  IF THE COMPONENTS ARE DIFFERENT\r\nC     THE MATRIX WILL BE A 4 BY 4 WITH ADDITIONAL ZEROS.\r\nC\r\n      GO TO 40\r\n   30 IF (ICOMP(1) .EQ. ICOMP(2)) GO TO 70\r\nC\r\n   40 NTERMS= 16\r\n      CODE  = 2**ICOMP(1) + 2**ICOMP(2)\r\n      NCOL  = 4\r\n      DO 50 I = 2,16\r\n      Z( I) = 0.0\r\n   50 CONTINUE\r\n      IF (ICOMP(2) .LT. ICOMP(1)) GO TO 60\r\n      Z( 4) =-Z(1)\r\n      Z(13) =-Z(1)\r\n      Z(16) = Z(1)\r\n      IF (ISIL(1) .NE. ISIL(2)) GO TO 80\r\n      Z( 2) = Z( 4)\r\n      Z( 5) = Z(13)\r\n      Z( 6) = Z(16)\r\n      Z( 4) = 0.0\r\n      Z(13) = 0.0\r\n      Z(16) = 0.0\r\n      GO TO 80\r\n   60 Z( 6) = Z(1)\r\n      Z( 7) =-Z(1)\r\n      Z(10) =-Z(1)\r\n      Z(11) = Z(1)\r\n      Z( 1) = 0.0\r\n      IF (ISIL(1) .NE. ISIL(2)) GO TO 80\r\n      Z( 1) = Z(11)\r\n      Z( 2) = Z(10)\r\n      Z( 5) = Z( 7)\r\n      Z( 7) = 0.0\r\n      Z(10) = 0.0\r\n      Z(11) = 0.0\r\n      GO TO 80\r\nC\r\nC     COMPONENTS ARE THE SAME FOR BOTH POINTS\r\nC\r\n   70 NTERMS= 4\r\n      NCOL  = 2\r\n      CODE  = 2**ICOMP(1)\r\n      Z(2)  =-Z(1)\r\n      Z(3)  =-Z(1)\r\n      Z(4)  = Z(1)\r\nC\r\nC     OUTPUT THE MATRIX HERE\r\nC\r\n   80 DICT(1) = ESTID\r\n      DICT(3) = NCOL\r\n      DICT(4) = CODE\r\n      DICT(5) = 0\r\n      IPG     = GSPT(TYPE)\r\nC\r\nC     STRUCTURAL DAMPING FOR  STIIFNESS MATRICES IS INSERTED IN DICT\r\nC\r\n      IF (EMORD.EQ.1 .AND. TYPE.LE.3) DICT(5) = IEST(IPG)\r\n      IF (IPREC .EQ. 1) GO TO 100\r\n      I = NTERMS\r\n   90 DZ(I) = Z(I)\r\n      I = I - 1\r\n      IF (I .GT. 0) GO TO 90\r\n  100 CALL EMGOUT (Z,DZ,NTERMS,1,DICT,EMORD,IPREC)\r\n      RETURN\r\nC\r\n  110 WRITE  (IOUTPT,120) UWM,EID\r\n  120 FORMAT (A25,' 3120, IMPROPER CONNECTION ON CELAS ELEMENT',I9)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scalex.f",
    "content": "      SUBROUTINE SCALEX(ILVAL,CODE,L)\r\n      INTEGER L(1),CODE,EXPND(6)\r\n      DO 101 I=1,6\r\n  101 L(I)=0\r\n      IF(CODE) 102,102,103\r\n  102 L(1) = ILVAL\r\n      GO TO 110\r\n  103 ID=CODE\r\n      DO 104 I=1,6\r\n      INV=7-I\r\n      EXPND(INV)=MOD(ID,10)\r\n  104 ID=ID/10\r\n      J=0\r\n      DO 107 I=1,6\r\n      IF(EXPND(I).EQ.0) GO TO 107\r\n      IF(I.LT.2) GO TO 106\r\n      II=I-1\r\n      DO 105 K=1,II\r\n      IF(EXPND(K).EQ.EXPND(I)) GO TO 107\r\n  105 CONTINUE\r\n  106 J=J+1\r\n      L(J)=EXPND(I)\r\n  107 CONTINUE\r\n      I=0\r\n  108 I=I+1\r\n      L(I)=ILVAL+L(I)-1\r\n      IF(I-J) 108,110,110\r\n  110 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scan.f",
    "content": "      SUBROUTINE SCAN        \r\nC        \r\nC     THIS IS THE MAIN DRIVER FOR THE OUTPUT SCAN MODULE - SCAN        \r\nC        \r\nC     THIS SCAN MODULE CAN BE CALLED DIRECTLY FROM ALL RIGID FORMATS, OR\r\nC     BY USER DMAP ALTER. THE CALLING INSTRUCTIONS ARE        \r\nC        \r\nC     (THREE INPUT FILES IF CALLED BY RIGID FORMAT VIA SCAN INPUT CARDS)\r\nC     (1) FORCE AND STRESS SCAN -        \r\nC     SCAN  CASECC,OESI,OEFI/OESFI/*RF*  $    (WHERE I=1, OR 2)        \r\nC           OR        \r\nC     SCAN  CASECC,OESI,OEFI/OESFI/*OLI* $    FOR ON-LINE SCAN        \r\nC        \r\nC         . IF INPUT FILES ARE OES1, OEF1, SORT1 TYPE DATA ARE SCANNED  \r\nC         . IF INPUT FILES ARE OES2, OEF2, SORT2 TYPE DATA ARE SCANNED  \r\nC        \r\nC     (ONE INPUT FILE ONLY IF CALLED BY USER VIA DMAP ALTER)        \r\nC     (2) STRESS SCAN -        \r\nC     SCAN, ,OESI, /OESFI/C,N,ELEMENT/C,N,ICOMP/C,N,NTOP/C,N,AMAX/      \r\nC           C,N,AMIN/C,N,IBEG/C,N,IEND/C,N,ICOMPX $        \r\nC     OR (3) FORCE SCAN -        \r\nC     SCAN, ,,OEFI /OESFI/C,N,ELEMENT/C,N,ICOMP/C,N,NTOP/C,N,AMAX/      \r\nC           C,N,AMIN/C,N,IBEG/C,N,IEND/C,N,ICOMPX $        \r\nC        \r\nC         . FOR SORT1 TYPE DATA, OESI AND OEFI ARE OES1 AND OEF1, AND   \r\nC           IBEG AND IEND ARE RANGE OF ELEMENT IDS TO BE SCANNED        \r\nC         . FOR SORT2 TYPE DATA, OESI AND OEFI ARE OES2 AND OEF2, AND   \r\nC           IBEG AND IEND ARE RANGE OF SUBCASE IDS TO BE SCANNED        \r\nC         . IF IBEG AND IEND ARE NOT GIVEN, ALL IDS IMPLY        \r\nC        \r\nC         . OESB1, OESC1, OEFB1, AND OEFC1 CAN BE USED IN LIEU OF OES1  \r\nC           AND OEF1. SIMILARLY, OESC2 AND OEFC2  FOR OES2 AND OEF2     \r\nC        \r\nC     INPUT  FILES  - CASECC, OES1, OEF1, (OR OES2, OEF2)        \r\nC                     (OESB1, OESC1, OEFB1, OEFC1, OESB2, OEFB2 CAN BE  \r\nC                     USED INSTEAD)        \r\nC     OUTPUT FILE   - OESF1 (OR OESF2)        \r\nC     SCRATCH FILE  - SCR1        \r\nC        \r\nC     THIS SCAN MODULE SHOULD BE FOLLOWED BY OFP TO PRINT SCAN RESULTS  \r\nC     OFP  OESFI,,,,, //S,N,CARDNO $        \r\nC        \r\nC     PARAMETERS -        \r\nC        \r\nC           ELEMENT - ELEMENT NAME IN BCD.  E.G. BAR, CBAR, QUAD2, ETC. \r\nC           ICOMP   - THE OUTPUT FIELD NO. (BY COLUMN, 1 THRU 31) OF    \r\nC                     OUTPUT LISTING.        \r\nC           ICOMPX  - OUTPUT FIELD NO. CONTINUATION (FROM 32 THRU 62)   \r\nC           NTOP    - TOP N VALUES TO BE OUTPUT.  DEFAULT=20        \r\nC      AMAX-AMIN    - SCAN VALUES OUTSIDE THIS MAX-MIN RANGE, DEFAULT=0.\r\nC      IBEG,IEND    - SEE EXPLANATION ABOVE        \r\nC        \r\nC     DEFINITION OF SOME LOCAL VARIABLES        \r\nC        \r\nC           DEBUG   - USED FOR LOCAL DEBUG        \r\nC           S OR F  - STRESS OR FORCE SCAN FLAG        \r\nC           NSCAN   - NO. OF SCAN INPUT CARDS IN CASECC        \r\nC           SUBC    - CURRENT SUBCASE ID        \r\nC           NZ      - TOP OF OPEN CORE, JUST BELOW GINO BUFFERS        \r\nC           LCORE   - AVAILABLE CORE FOR STRSCN ROUTINE        \r\nC           IOPEN   - INPUT  FILE STATUS FLAG, .T. FOR OPEN, .F. NOT    \r\nC           JOPEN   - OUTPUT FILE STATUS FLAG, .T. FOR OPEN, .F. NOT    \r\nC           KOPEN   - SCR1   FILE STATUS FLAG, .T. FOR OPEN, .F. NOT    \r\nC           LOPEN   - CASECC FILE STATUS FLAG, .T. FOR OPEN, .F. NOT    \r\nC           ISET    - SCAN ONLY BY THE SPECIFIED SET OF ELEM. IDS       \r\nC                   - ALL IS IMPLIED IF ISET IS NOT GIVEN        \r\nC                   - USED ONLY IF SCAN IS CALLED FROM RIGID FORMAT     \r\nC      IDUPL,INC    - SET UP COMPONENT FIELDS TO BE REPEATEDLY SCANNED  \r\nC                     IDUPL TIMES, WITH FIELD INCREMENT BY INC (RF ONLY)\r\nC      LBEG,LEND    - A LIST OF TO-BE-SCANNED ELEMENT IDS, STORED IN    \r\nC                     Z(LBEG) THRU Z(LEND).        \r\nC                   - NO SUCH LIST EXISTS IF LBEG.GT.LEND OR LBEG=LEND=0\r\nC           IOPT    - DATA SCAN BY AMAX AND AMIN IF IOPT=1, BY NTOP IF 2\r\nC           ISORT   - SET TO 1 (BY STRSCN) IF DATA TYPE IS IN SORT1     \r\nC                     FORMAT, AND SET TO 2 IF SORT2        \r\nC        \r\nC     WRITTEN BY G.CHAN/SPERRY      OCTOBER 1984        \r\nC        \r\nC     THIS ROUTINE OPENS AND CLOSES ALL INPUT AND OUTPUT FILES.        \r\nC     IT SETS UP THE SCANNING PARAMETERS AND CALL STRSCN TO SCAN THE    \r\nC     OUTPUT STRESS OR FORCE DATA        \r\nC        \r\nC     THE SCAN INPUT CARDS OPERATE VERY SIMILARY TO THE ELEMENT STRESS  \r\nC     OR FORCE CARDS. THEY CAN BE PLACED ABOVE ALL SUBCASES, OR INSIDE  \r\nC     ANY SUBCASE LEVEL, OR BOTH        \r\nC     HOWEVER, UNLIKE THE STRESS OR FORCE CARDS, MULTI-SCAN CARDS ARE   \r\nC     ALLOWED, AND THEY DO NOT EXCLUDE ONE ANOTHER.        \r\nC        \r\nC     MODIFIED IN 10/1989, TO ALLOW SETS TO BE DEFINED BEFORE OR AFTER  \r\nC     SCAN CARDS IN CASE CONTROL SECTION        \r\nC     (CURRENTLY, THIS MODIFICATION IS OK, BUT IFP1/IFP1H DO NOT ALLOW  \r\nC     SET TO BE DEFINED AFTER SCAN. IN FACT, IFP1 DOES NOT ALLOW SET TO \r\nC     BE DEFINED AFTER ANY GUY WHO USES THE SET)        \r\nC        \r\n      LOGICAL         DEBUG,    IOPEN,    JOPEN,    KOPEN,    LOPEN     \r\nCWKBI  1/4/94 SPR93010 & 93011\r\n      LOGICAL         STRESS,   FORCE,    LAYERD\r\nCWKBI  1/4/94 SPR93010 & 93011\r\n      INTEGER         QUAD4,    TRIA3\r\nCRLBR 12/29/93 SPR 93010 & 93011\r\nC     INTEGER         CASECC,   OESI,     OEFI,     OESFI,    SCR1,     \r\n      INTEGER         CASECC,   OESI(2),  OEFI(2),  OESFI(2), SCR1,     \r\n     1                OUFILE,   FILE,     SORF,     Z(166),   NAM(2),   \r\n     2                E,        EOR,      SUBC,     OSUBC,    OEL       \r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      INTEGER         JELT(2)\r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n     \r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29,   SFM*25,   SWM*27    \r\n      COMMON /XMSSG / UFM,      UWM,      UIM,      SFM,      SWM       \r\n      COMMON /BLANK / IELT(2),  ICOMP,    NTOP,     AMAX,     AMIN,     \r\n     1                IBEG,     IEND,     ICOMPX        \r\n      COMMON /SYSTEM/ IBUF,     NOUT,     SKP(83),  INTRA        \r\n      COMMON /NAMES / RD,       RDREW,    WRT,      WRTREW,   REW,      \r\n     1                NOREW,    EOFNRW        \r\n      COMMON /GPTA1 / NELEM,    LAST,     INCR,     E(1)        \r\n      COMMON /XSCANX/ INFILE,   OUFILE,   LCORE,    LBEG,     LEND,     \r\n     1                IOPEN,    JOPEN,    IEL,      IOPT,     ISET,     \r\n     2                ISORT,    ITRL3,    SUBC,     OSUBC,    OEL,      \r\nCWKBR 1/4/94 SPR93010 & 93011     3                DEBUG          \r\n     3                DEBUG,    LLOOP,    QUAD4,    TRIA3,    STRESS,\r\n     4                FORCE,    LAYERD\r\n      COMMON /ZZZZZZ/ CORE(1)        \r\n      EQUIVALENCE     (IMAX,AMAX),        (IMIN,AMIN),        \r\n     1                (IDUPL,IBEG),       (INC,IEND),        \r\n     2                (CORE(1),Z(1))        \r\nCRLBDB 12/29/93 SPR 93010 & 93011\r\nC     DATA            CASECC,   OESI,     OEFI,     OESFI,    SCR1    / \r\nC    1                101,      102,      103,      201,      301     / \r\nCRLBDE 12/29/93 SPR 93010 & 93011\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      DATA            CASECC,   OESI(1),  OEFI(1),  OESI(2),  OEFI(2),   \r\n     1                OESFI(1), OESFI(2), SCR1    / \r\n     2                101,      102,      103,      104,      105,\r\n     3                201,      202,      301     / \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n      DATA            NAM,                LLC,      EOR,      IRF     / \r\n     1                4HSCAN,   4H    ,   4HC   ,   1,        4HRF    / \r\n      DATA            IOL1,     IOL2      /        \r\n     1                4HOL1 ,   4HOL2     /        \r\nC        \r\n      DEBUG = .FALSE.        \r\nCWKBNB 1/4/94 SPR93011 & 93010\r\n      QUAD4 = 0\r\n      TRIA3 = 0\r\nC        \r\nC     ALLOCATE OPEN CORE        \r\nC        \r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      LLOOP = 1\r\n      JELT(1) = IELT(1)\r\n      JELT(2) = IELT(2)\r\n  10  CONTINUE\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      NZ    = KORSZ(Z)        \r\n      IBUF1 = NZ - IBUF + 1        \r\n      IBUF2 = IBUF1 - IBUF        \r\n      IBUF3 = IBUF2 - IBUF        \r\n      NZ    = IBUF3 - 1        \r\n      LCORE = IBUF2 - 1        \r\n      IOPEN =.FALSE.        \r\n      JOPEN =.FALSE.        \r\n      KOPEN =.FALSE.        \r\n      LOPEN =.FALSE.        \r\nC        \r\nC     OPEN CASECC AND CHECK SCAN DATA        \r\nC        \r\n      ISET = 0        \r\n      IF (IELT(1) .NE. IRF) ISET = -2        \r\n      IF (IELT(1).EQ.IOL1 .OR. IELT(1).EQ.IOL2) ISET = -3        \r\n      IF (ISET .EQ. -2) GO TO 40        \r\n      FILE = CASECC        \r\n      CALL OPEN (*310,CASECC,Z(IBUF1),RDREW)        \r\n      LOPEN = .TRUE.        \r\n      CALL FWDREC (*320,CASECC)        \r\n      IF (ISET .EQ. -3) GO TO 40        \r\n 30   CALL READ (*80,*80,CASECC,Z(1),200,1,L)        \r\n      LENCC = Z(166)        \r\n      NSCAN = Z(LENCC-1)        \r\n      IF (NSCAN .EQ. 0) GO TO 30        \r\nC        \r\nC     CHECK THE PRESENCE OF STRESS AND/OR FORCE FILE.        \r\nC     QUIT IF BOTH ARE PURGED        \r\nC        \r\n 40   IOES  = 1        \r\n      IOEF  = 1        \r\nCRLBDB 12/29/93 SPR 93010 & 93011\r\nC     Z( 1) = OESI        \r\nC     Z(11) = OEFI        \r\nCRLBDE 12/29/93 SPR 93010 & 93011\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      Z( 1) = OESI(LLOOP)        \r\n      Z(11) = OEFI(LLOOP)        \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n      CALL RDTRL (Z( 1))        \r\n      CALL RDTRL (Z(11))        \r\n      IF (Z( 1) .LT. 0) IOES = 0        \r\n      IF (Z(11) .LT. 0) IOEF = 0        \r\n      IF (IOES+IOEF.EQ.0 .AND. ISET.NE.-3) GO TO 300        \r\nC        \r\nC     OPEN OUTPUT FILE OESFI        \r\nC        \r\nCRLBDB 12/29/93 SPR 93010 & 93011\r\nC     FILE = OESFI        \r\nC     OUFILE = OESFI        \r\nC     CALL FNAME (OESFI,Z)        \r\nC     CALL OPEN  (*310,OESFI,Z(IBUF2),WRTREW)        \r\nC     CALL WRITE (OESFI,Z,2,EOR)        \r\nCRLBDE 12/29/93 SPR 93010 & 93011\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      FILE = OESFI(LLOOP) \r\n      OUFILE = OESFI(LLOOP) \r\n      CALL FNAME (OUFILE,Z)        \r\n      CALL OPEN  (*310,OUFILE,Z(IBUF2),WRTREW)        \r\n      CALL WRITE (OUFILE,Z,2,EOR)        \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n      JOPEN  =.TRUE.        \r\n      ITRL3  = 0        \r\n      LX     =-1        \r\n      IF (IELT(1) .EQ. IOL2) LX = -2        \r\n      IF (ISET .EQ. -3) CALL ONLINS (*280,LX)        \r\n      IF (ISET .NE. -2) GO TO 90        \r\nC        \r\nC     SCAN CALLED BY USER VIA DMAP ALTER (ISET=-2)        \r\nC     ============================================        \r\nC        \r\n      LS   = LCORE        \r\n      LBEG = 0        \r\n      LEND = 0        \r\nC        \r\nC     CHECK USER DMAP ERROR, SET IOPT FLAG, AND INITIALIZE ISCAN ARRAY  \r\nC     FOR COMPONENT SPECIFIED.        \r\nC        \r\n      IF (IOES+IOEF .GT. 1) GO TO 400        \r\n      IF (AMIN  .GT.  AMAX) GO TO 410        \r\n      IF (ICOMP .LE.     1) GO TO 420        \r\n      IF ((AMAX.EQ.0. .AND. AMIN.EQ.0.) .AND. NTOP.EQ.0) GO TO 430      \r\n      IF ((AMAX.NE.0. .OR.  AMIN.NE.0.) .AND. NTOP.NE.0) GO TO 440      \r\n      IF ((IBEG.EQ.0 .AND. IEND.NE.0) .OR. IBEG.GT.IEND .OR.        \r\n     1    (IBEG.NE.0 .AND. IEND.EQ.0)) GO TO 460        \r\n      IF ( IBEG.EQ.0 .AND. IEND.EQ.0 ) IBEG = -1        \r\n      IOPT = 1        \r\n      IF (NTOP .GT. 0) IOPT = 2        \r\nC        \r\nC     DETERMINE ELEMENT TYPE, DROP THE FIRST LETTER C IF NECESSARY      \r\nC        \r\n      Z(1) = IRF        \r\n      Z(2) = IRF        \r\n      IF (KHRFN2(IELT(1),1,1) .NE. LLC) GO TO 50        \r\n      Z(1) = KHRFN3(NAM(2),IELT(1),1,1)        \r\n      Z(1) = KHRFN1(Z(1),4,IELT(2),1  )        \r\n      Z(2) = KHRFN3(NAM(2),IELT(2),1,1)        \r\n 50   DO 60 I = 1,LAST,INCR        \r\n      IF (IELT(1).EQ.E(I) .AND. IELT(2).EQ.E(I+1)) GO TO 70        \r\n      IF (   Z(1).EQ.E(I) .AND.    Z(2).EQ.E(I+1)) GO TO 70        \r\n 60   CONTINUE        \r\n      GO TO 450        \r\n 70   IEL = E(I+2)        \r\nC        \r\nC     SPECIAL HANDLING OF THE QUAD4 AND TRIA3 ELEMENT, STRESS ONLY      \r\nC     (THE 2ND, 3RD, 9TH, AND 13TH WORDS IN OES1/OES1L FILES ARE        \r\nC     NOT PRINTED. THE 9TH AND 13TH WORDS MAY BE BLANKS OR ASTERISKS)   \r\nC        \r\n      IF ((IEL.NE.64 .AND. IEL.NE.83) .OR. IOES.EQ.0) GO TO 75        \r\nCWKBD 1/3/94 SPR93011 & 93011      ICOMP = ICOMP + 2       \r\nCWKBD 1/3/94 SPR93010 & 93011      IF (ICOMP .GT. 8) ICOMP = ICOMP + 1        \r\nC        \r\nC     OPEN INPUT FILE        \r\nC        \r\nCRLBDB 12/29/93 SPR 93010 & 93011\r\nC75   INFILE = OESI        \r\nC     IF (IOES .EQ. 0) INFILE = OEFI        \r\nCRLBDE 12/29/93 SPR 93010 & 93011\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n 75   INFILE = OESI(LLOOP)        \r\n      STRESS = .TRUE.\r\n      FORCE  = .FALSE.\r\n      IF (IOES .NE. 0) GO TO 76\r\n      STRESS = .FALSE.\r\n      FORCE  = .TRUE.\r\n      INFILE = OEFI(LLOOP)        \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n 76   FILE = INFILE        \r\n      CALL OPEN (*340,INFILE,Z(IBUF1),RDREW)        \r\n      IOPEN = .TRUE.        \r\nC        \r\nC ... NEXT I/O OPERATION ON INFILE WILL BE IN SUBROUTINE STRSCN        \r\nC        \r\nC     ALL SET TO GO        \r\nC        \r\n      J = 1        \r\n      IF (IOES .EQ. 0) J = 2        \r\n      CALL STRSCN (J)        \r\n      GO TO 280        \r\nC        \r\n 80   CALL CLOSE (CASECC,REW)        \r\n      LOPEN = .FALSE.        \r\n      RETURN        \r\nC        \r\nC        \r\nC     SCAN IS CALLED BY RIGID FORMAT (ISET .GE. -1)        \r\nC     OR CALLED BY INTERACTIVE MODE  (ISET .EQ. -3)        \r\nC     =============================================        \r\nC        \r\n 90   LS = NZ        \r\nC        \r\nC     OPEN SCR1 FILE, SEPERATE SCAN DATA FROM SET DATA IN CASECC, AND   \r\nC     SAVE THE COMPLETE SCAN DATA IN SCR1 FILE.        \r\nC        \r\n      FILE = SCR1        \r\n      CALL OPEN (*310,SCR1,Z(IBUF3),WRTREW)        \r\n      KOPEN =.TRUE.        \r\n      NSCAN = 0        \r\n      NCASE = 0        \r\n      NXX   = NZ        \r\n      IF (INTRA .LE. 0) GO TO 95        \r\n      NXX = 198        \r\n      L   = LX        \r\n      IF (LX .GT. 0) GO TO 110        \r\n 95   FILE = CASECC        \r\n      CALL REWIND (CASECC)        \r\n      CALL FWDREC (*320,CASECC)        \r\nC        \r\nC     READ CASECC AND PROCESS ALL SUBCASES        \r\nC        \r\n 100  CALL READ (*210,*110,CASECC,Z(1),NXX,1,L)        \r\n      IF (NXX .GE. 200) GO TO 380        \r\n 110  NCASE = NCASE + 1        \r\n      LENCC = Z(166)        \r\n      NSCAN = Z(LENCC-1)        \r\n      LSEM  = Z(LENCC)        \r\n      SUBC  = Z(1)        \r\nC        \r\nC     PICK UP ALL THE SET ID'S AND THEIR LOCATIONS IN Z ARRAY, Z(L1)    \r\nC     THRU Z(LL). SORT, AND CHECK DUPLICATE        \r\nC        \r\n      JMP = 0        \r\n      II  = LENCC + LSEM        \r\n      L1  = L + 1        \r\n      LL  = L        \r\n 115  II  = II + JMP        \r\n      IF (II .GE. L) GO TO 120        \r\n      JMP = Z(II+2) + 2        \r\n      IF (Z(II+1).GE.10000000 .AND. JMP.EQ.8) GO TO 115        \r\n      Z(LL+1) = Z(II+1)        \r\n      Z(LL+2) = II        \r\n      LL = LL + 2        \r\n      GO TO 115        \r\n 120  LLL1 = LL - L1 + 1        \r\n      LL2  = LLL1/2        \r\n      IF (DEBUG) WRITE (NOUT,125) (Z(I),I=L1,LL)        \r\n 125  FORMAT (' ...SET/@125',/,(10X,I8,' @',I6))        \r\nC        \r\n      JMP = 0        \r\n      II  = LENCC + LSEM        \r\n      KK  = NZ        \r\n      IF (LL2 .LE. 1) GO TO 140        \r\n      CALL SORT (0,0,2,1,Z(L1),LLL1)        \r\n      J = L1 + 2        \r\n      DO 130 I = J,LL,2        \r\n      IF (Z(I) .EQ. Z(I-2)) WRITE (NOUT,600) UWM,Z(I)        \r\n 130  CONTINUE        \r\nC        \r\nC     PROCESS THE SCAN CARDS        \r\nC        \r\nC     PICK UP SCAN 8 WORD ARRAY, AND PICK UP SET DATA        \r\nC     WRITE TO SCR1 A RECORD (OF EACH SUBCASE) OF THE SCAN INPUT DATA   \r\nC     IN REVERSE ORDER (FIRST SCAN CARD LAST, AS SET UP BY CASECC)      \r\nC        \r\n 140  II = II + JMP        \r\n      IF (II .GE. L) GO TO 190        \r\n      JMP = Z(II+2) + 2        \r\n      IF (Z(II+1).LT.10000000 .OR. JMP.NE.8) GO TO 140        \r\n      IE  = 0        \r\n      ISET= Z(II+4)        \r\n      IF (ISET .EQ. -1) GO TO 160        \r\n      IF (LLL1 .LE.  0) GO TO 470        \r\n      CALL BISLOC (*470,ISET,Z(L1),2,LL2,I)        \r\n      IB = Z(I+L1) + 2        \r\n      IE = Z(IB)        \r\n      IF (DEBUG) WRITE (NOUT,145) ISET,I,IB,IE        \r\n 145  FORMAT (' @145, SET',I8,' FOUND.  I,IB,IE =',3I6)        \r\n      KK = KK - IE        \r\n      DO 150 I = 1,IE        \r\n 150  Z(KK+I) = Z(IB+I)        \r\n 160  KK = KK - 9        \r\n      DO 170 I = 1,8        \r\n 170  Z(KK+I) = Z(II+I)        \r\n      Z(KK+9) = 0        \r\n      IDUPL   = Z(KK+8)        \r\n      IF (IDUPL .EQ. 0) GO TO 180        \r\nCWKBD 1/3/94 SPR93010 & 93011      INC = IDUPL/100        \r\nCWKBD 1/3/94 SPR93010 & 93011      Z(KK+8) = MOD(IDUPL,100)        \r\nCWKBNB 1/3/94 SPR93010 & 93011\r\n      INC = MOD ( IDUPL, 100 )\r\n      Z(KK+8) = IDUPL / 100\r\nCWKBNE 1/3/94 SPR93010 & 93011\r\n      Z(KK+9) = INC        \r\n 180  Z(KK+2) = Z(KK+2) + 1 + IE        \r\nC        \r\nC     HERE AT THE TAIL END OF OPEN CORE, WE ACCUMULATE ANOTHER RECORD   \r\nC     OF A SCAN DATA SET        \r\nC        WORD 1,  10000000 FOR STRESS, OR 20000000 FOR FORCE        \r\nC             2,  NO. OF WORDS OF THIS DATA SET (SCAN + SET)        \r\nC                 (FIRST 2 WORDS NOT INCLUDED)        \r\nC             3,  ELEMENT TYPE NUMERIC CODE        \r\nC             4,  SET-ID, OR -1        \r\nC             5,  COMPONENT CODE, ICOMP        \r\nC             6,  NTOP, OR AMAX        \r\nC             7,  -1,   OR AMIN        \r\nC             8,  COMPONENT - DUPLICATION, OR ZERO        \r\nC             9,  COMPONENT - INCREMENT,   OR ZERO        \r\nC        10-END,  SET DATA        \r\nC     REPEAT FOR ANOTHER SCAN CARD        \r\nC        \r\nC        \r\nC     SPECIAL HANDLING OF THE QUAD4 AND TRIA3 ELEMENT, STRESS ONLY      \r\nC     (THE 2ND, 3RD, 9TH,  AND 13TH WORDS IN OES1/OES1L FILES ARE       \r\nC     NOT PRINTED. THE 9TH AND 13TH WORDS MAY BE BLANKS OR ASTERISKS)\r\nCWKBI 12/93 SPR93010 & 93011\r\nC     ABOVE IS TRUE ONLY FOR LAMINATED QUAD4 AND TRIA3)   \r\nC        \r\nCWKBD 12/31/93 SPR93010 & 93011     \r\nC     IF ((Z(KK+3).NE.64 .AND. Z(KK+3).NE.83) .OR. Z(KK+1).NE.10000000) \r\n      IF ((Z(KK+3).NE.64 .AND. Z(KK+3).NE.83) .OR. Z(KK+8).EQ.0) \r\n     1    GO TO 140        \r\nCWKBDB 1/3/94 SPR93010 & 93011\r\nC      Z(KK+5) = Z(KK+5) + 2        \r\nC      IF (Z(KK+5) .GT. 8) Z(KK+5) = Z(KK+5) + 1        \r\nC      IF (Z(KK+9) .NE. 0) Z(KK+9) = Z(KK+9) + 2        \r\nCWKBDE 1/3/94 SPR93010 & 93011\r\n      GO TO 140        \r\nC        \r\nC     AT THE END OF EACH SUBCASE, WE COMPUTE THE TOTAL LENGTH OF THIS   \r\nC     SCAN DATA ARRAY, AND WRITE THE ARRAY OUT TO SCR1.  ONE RECORD PER \r\nC     SUBCASE        \r\nC        \r\n 190  KK = KK - 2        \r\n      IF (KK .LT. LL) GO TO 610        \r\n      IE = NZ - KK        \r\n      Z(KK+1) = SUBC        \r\n      Z(KK+2) = IE - 2        \r\n      CALL WRITE (SCR1,Z(KK+1),IE,1)        \r\n      L  = KK + 1        \r\n      NN = 200        \r\n      IF (DEBUG) WRITE (NOUT,200) NN,(Z(J),J=L,NZ)        \r\n 200  FORMAT (/,11H SCAN/DEBUG,I3,  (/2X,13I9))        \r\n      IF (INTRA.LE.0 .OR. LX.LT.200) GO TO 100        \r\nC        \r\nC     THUS, END OF THE PREPARATION PHASE.  CLOSE CASECC AND SCR1        \r\nC        \r\n 210  CALL CLOSE (CASECC,REW)        \r\n      CALL CLOSE (SCR1  ,REW)        \r\n      KOPEN =.FALSE.        \r\n      LOPEN =.FALSE.        \r\nC        \r\nC     NOW, SET UP 2 LOOPS FOR STRESS (10000000) AND FORCE (20000000)    \r\nC     OUTPUT SCAN        \r\nC        \r\n      SORF = 30000000        \r\n 220  SORF = SORF - 10000000        \r\n      IF (DEBUG) WRITE (NOUT,225) SORF        \r\n 225  FORMAT (///,18H PROCESSING SERIES,I15 /1X,8(4H====),/)        \r\n      IF (IOPEN) CALL CLOSE (INFILE,REW)        \r\n      IOPEN = .FALSE.        \r\n      IF (SORF.EQ.10000000 .AND. IOES.EQ.0) GO TO 220        \r\n      IF (SORF.EQ.20000000 .AND. IOEF.EQ.0) GO TO 220        \r\n      IF (SORF .LE. 0) GO TO 280        \r\nC        \r\nC     OPEN INPUT FILES        \r\nC        \r\nCRLBDB 12/29/93 SPR 93010 & 93011\r\nC     INFILE = OESI        \r\nC     IF (SORF .GE. 20000000) INFILE=OEFI        \r\nCRLBDE 12/29/93 SPR 93010 & 93011\r\nCRLBNB 12/29/93 SPR 93010 & 93011\r\n      INFILE = OESI(LLOOP)        \r\n      STRESS = .TRUE.\r\n      FORCE  = .FALSE.\r\n      IF (SORF .LT. 20000000) GO TO 226\r\n      STRESS = .FALSE.\r\n      FORCE  = .TRUE.\r\n      INFILE=OEFI(LLOOP)        \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n226   FILE = INFILE        \r\n      CALL OPEN (*310,INFILE,Z(IBUF1),RDREW)        \r\n      IOPEN = .TRUE.        \r\nC ... NEXT I/O OPERATION ON INFILE WILL BE IN SUBROUTINE STRSCN        \r\nC        \r\nC     NOW, LOAD THE SCAN DATA PREVIOUSLY SAVED IN SCR1, TO THE TAIL END \r\nC     OF THE OPEN CORE.        \r\nC     ONE OR MORE SCAN CARDS MAY BE PRESENT IN  ONE SUBCASE        \r\nC     SET UP POINTERS IN FRONT OF THE SCAN DATA, SO THAT FIRST SCAN     \r\nC     INPUT CARD WILL BE PROCESS FIRST, SECOND CARD SECOND, ETC.        \r\nC     NOTE - USE SUBCASE 1 SCAN DATA IF OUTPUT IS SORT 2 TYPE        \r\nC            (IF SUBCASE 1 DOES NOT HAVE SCAN DATA, USE NEXT SUBCASE)   \r\nC        \r\n      FILE = SCR1        \r\n      IF (.NOT.KOPEN) CALL OPEN (*310,SCR1,Z(IBUF3),RDREW)        \r\n      IF (     KOPEN) CALL REWIND (SCR1)        \r\n      KOPEN =.TRUE.        \r\n      ISORT = 0        \r\n      OSUBC = 0        \r\n      OEL   = 0        \r\nC        \r\n      DO 270 II = 1,NCASE        \r\n      IF (ISORT .EQ. 2) GO TO 220        \r\n      CALL READ (*320,*330,SCR1,Z(1),2,0,L)        \r\n      J = Z(2)        \r\n      IF (J .EQ. 0) GO TO 260        \r\n      SUBC = Z(1)        \r\n      LS   = NZ - J        \r\n      CALL READ (*320,*330,SCR1,Z(LS+1),J,1,L)        \r\n      LE = LS        \r\n      I  = LS        \r\n 230  Z(LS) = I        \r\n      LS = LS - 1        \r\n      I  = I + Z(I+2) + 2        \r\n      IF (I .LT. NZ) GO TO 230        \r\n      LCORE = LS        \r\n      J  = LS + 1        \r\n      KK = 230        \r\n      IF (DEBUG) WRITE (NOUT,200) KK,SUBC,(Z(I),I=J,NZ)        \r\nC        \r\nC     NOW IS THE TIME TO SET THE SCAN PARAMETERS FOR EACH SCAN CARD     \r\nC     WITHIN A SUBCASE, AND CALL STRSCN TO SCAN THE OUTPUT DATA        \r\nC        \r\n      I = LS        \r\n 240  I = I + 1        \r\n      IF (I .GT. LE) GO TO 270        \r\n      IB = Z(I)        \r\n      IF (Z(IB+1) .NE. SORF) GO TO 240        \r\n      JMP   = Z(IB+2)        \r\n      IEL   = Z(IB+3)        \r\nC ONLY QUAD4 (=64) AND TRIA3 (=83) ARE VALID FOR LLOOP=2\r\n      IF ( LLOOP .EQ. 2 .AND. IEL .NE. 64 .AND. IEL .NE. 83 )\r\n     &     GO TO 240\r\n      ISET  = Z(IB+4)        \r\n      ICOMP = Z(IB+5)        \r\n      NTOP  = Z(IB+6)        \r\n      IMAX  = Z(IB+6)        \r\n      IMIN  = Z(IB+7)        \r\n      IDUPL = Z(IB+8)        \r\n      INC   = Z(IB+9)        \r\n      IOPT  = 1        \r\n      IF (IMIN .EQ. -1) IOPT = 2        \r\n      IF (IOPT .NE.  2) NTOP = 0        \r\n      LBEG = LCORE        \r\n      LEND = LCORE - 1        \r\n      IF (ISET .EQ. -1) GO TO 250        \r\n      LBEG = IB + 10        \r\n      LEND = IB + JMP + 2        \r\n 250  J    = (IEL-1)*INCR        \r\n      IELT(1) = E(J+1)        \r\n      IELT(2) = E(J+2)        \r\n      IF (DEBUG) WRITE (NOUT,255) IELT,(Z(IB+J),J=3,9),IOPT,LBEG,LEND,  \r\n     1           II,SUBC        \r\n 255  FORMAT (/5X,16HDEBUG/SCAN255 - ,2A4,/5X,12I9)        \r\n      CALL STRSCN (SORF/10000000)        \r\n      IF (IOPT .LT. 0) GO TO 480        \r\n      GO TO 240        \r\n 260  CALL FWDREC (*320,SCR1)        \r\n 270  CONTINUE        \r\nC        \r\nC     GO BACK TO PROCESS NEXT INPUT FILE        \r\nC        \r\n      GO TO 220        \r\nC        \r\nC     ALL SCAN DONE.  WRITE OUTPUT FILE TRAILERS AND CLOSE ALL FILES    \r\nC        \r\n 280  IF (ITRL3 .LE. 0) GO TO 300        \r\nCRLBR 12/29/93 SPR 93010 & 93011\r\nC     Z(1) = OESFI        \r\n      Z(1) = OESFI(LLOOP)        \r\n      Z(2) = 1        \r\n      Z(3) = ITRL3        \r\n      DO 290 I = 4,7        \r\n 290  Z(I) = 0        \r\n      CALL WRTTRL (Z(1))        \r\nC        \r\n 300  IF (IOPEN) CALL CLOSE (INFILE,REW)        \r\n      IF (JOPEN) CALL CLOSE (OUFILE,REW)        \r\n      IF (KOPEN) CALL CLOSE (SCR1  ,REW)        \r\n      IF (LOPEN) CALL CLOSE (CASECC,REW)        \r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n      IF (LLOOP .EQ. 2) GO TO 305\r\n      LLOOP = 2\r\n      IELT(1) = JELT(1)\r\n      IELT(2) = JELT(2)\r\n      GO TO 10\r\n 305  CONTINUE\r\n      IF ( QUAD4 .EQ. -1 ) WRITE ( NOUT, 605 ) 'QUAD4'\r\n      IF ( TRIA3 .EQ. -1 ) WRITE ( NOUT, 605 ) 'TRIA3'\r\n 605  FORMAT(//' SCAN MODULE DID NOT FIND ELEMENT ',A5,\r\n     &       ' IN USER OUTPUT REQUESTS.',/\r\n     &      ,' POSSIBLY WRONG COMPONENT SPECIFIED FOR LAYERED OR '\r\n     &      ,'NON-LAYERED CASE',//)\r\nCRLBNE 12/29/93 SPR 93010 & 93011\r\n      RETURN        \r\nC        \r\nC     FILE ERRORS        \r\nC        \r\n 310  J = -1        \r\n      GO TO 350        \r\n 320  J = -2        \r\n      GO TO 350        \r\n 330  J = -3        \r\n      GO TO 350        \r\n 340  CONTINUE        \r\n      GO TO 70        \r\n 350  CALL MESAGE (J,FILE,NAM)        \r\n 380  J = -8        \r\n      GO TO 350        \r\nC        \r\nC     ERROR MESSAGES        \r\nC        \r\n 400  WRITE (NOUT,500)        \r\n      GO TO 490        \r\n 410  WRITE (NOUT,510)        \r\n      GO TO 490        \r\n 420  WRITE (NOUT,520)        \r\n      GO TO 490        \r\n 430  WRITE (NOUT,530)        \r\n      GO TO 490        \r\n 440  WRITE (NOUT,540)        \r\n      GO TO 490        \r\n 450  WRITE (NOUT,550) IELT        \r\n      GO TO 490        \r\n 460  WRITE (NOUT,560) SFM,IELT,IBEG,IEND        \r\n      GO TO 490        \r\n 470  WRITE (NOUT,570) UWM,ISET        \r\n      GO TO 140        \r\n 480  WRITE (NOUT,580) IOPT        \r\n 490  WRITE (NOUT,590) SWM        \r\n      GO TO 280        \r\nC        \r\n 500  FORMAT (//5X,48HONLY ONE INPUT FILE ALLOWED FROM SCAN DMAP ALTER) \r\n 510  FORMAT (//5X,21HAMAX-AMIN RANGE ERROR)        \r\n 520  FORMAT (//5X,35HFIELD COMPONENT SPECIFICATION ERROR)        \r\n 530  FORMAT (//5X,30HNO AMAX-AMIN OR NTOP SPECIFIED)        \r\n 540  FORMAT (//5X,46HSPECIFY EITHER AMAX-AMIN OR NTOP, BUT NOT BOTH,   \r\n     1         /5X,21H(NTOP=20  BY DEFAULT))        \r\n 550  FORMAT (//5X,22HELEMENT MIS-SPELLED - ,2A4)        \r\n 560  FORMAT (A25,' - SCANNING ',2A4,' ELEMENT. IBEG-IEND OUT OF RANGE',\r\n     1       '.  SCAN ABORTED')        \r\n 570  FORMAT (A25,' FROM SCAN, SET',I9,' NOT FOUND')        \r\n 580  FORMAT (//5X,44HUSER ERROR.  ILLEGAL INPUT FILE SENT TO SCAN,I6)  \r\n 590  FORMAT (A27,' FROM SCAN.  CASE ABORTED ***')        \r\n 600  FORMAT (A25,' FROM SCAN, DUPLICATE SET',I9)        \r\nC        \r\n 610  CALL MESAGE (8,0,NAM)        \r\n      RETURN        \r\n      END        \r\n"
  },
  {
    "path": "mis/scat.f",
    "content": "      SUBROUTINE SCAT (KG,NCON,INV,II3,NORIG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS ROUTINE USES SCATTER SORT TECHNIQUES FOR EACH GRID POINT\r\nC     ENCOUNTERED TO DETERMINE WHETHER OR NOT THE POINT HAS BEEN SEEN\r\nC     BEFORE.   IF NOT, INV, NORIG, AND NN ARE UPDATED.\r\nC\r\nC     INV(I,1) CONTAINS AN ORIGINAL GRID POINT NUMBER\r\nC     INV(I,2) CONTAINS THE INTERNAL NUMBER ASSIGNED TO IT (BEFORE SORT)\r\nC\r\n      DIMENSION       KG(1),    NORIG(1),    INV(II3,2)\r\n      COMMON /BANDB / DUM3B(3), NGRID\r\n      COMMON /BANDS / NN,       DUM3(3),  MAXGRD,   MAXDEG,   KMOD\r\n      COMMON /SYSTEM/ ISYS,     NOUT\r\nC\r\n      IF (NCON .LT. 1) RETURN\r\n      DO 50 I = 1,NCON\r\n      NOLD = KG(I)\r\n      IF (NOLD .EQ. 0) GO TO 50\r\n      LOC = NOLD - 1\r\n   20 LOC = MOD(LOC,KMOD) + 1\r\n      IF (INV(LOC,1) .NE. 0) GO TO 30\r\n      INV(LOC,1) = NOLD\r\n      NN = NN + 1\r\n      IF (NN .GT. MAXGRD) GO TO 60\r\n      NORIG(NN) = NOLD\r\n      INV(LOC,2) = NN\r\n      GO TO 40\r\n   30 IF (INV(LOC,1) .NE. NOLD) GO TO 20\r\n   40 KG(I) = INV(LOC,2)\r\n   50 CONTINUE\r\n      RETURN\r\nC\r\n   60 NGRID = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sce1.f",
    "content": "      SUBROUTINE SCE1\r\nC\r\nC     MODULE 2.6 SCE PARTITIONS KNN,MNN,BNN,AND K4NN\r\nC\r\nC     TO ELIMINATE THE EFFECTS OF SINGLE POINT CONSTRAINTS IF US IS NOT\r\nC     NULL\r\nC\r\n      INTEGER        US,USET,BNN,BFF,UN,UF,PVECT\r\n      COMMON /PATX / N(2),N3,NN(3)\r\n      DATA    UN,UF, US /\r\n     1        27,26, 31 /\r\n      DATA    USET , KNN,MNN,BNN,K4NN,KFF,KFS,KSS,MFF,BFF,K4FF,PVECT /\r\n     1        101  , 102,103,104,105 ,201,202,203,204,205,206 ,301   /\r\nC\r\n      CALL UPART (USET,PVECT,UN,UF,US)\r\n      CALL MPART (KNN,KFF,0,KFS,KSS)\r\n      CALL MPART (MNN,MFF,0,0,0)\r\n      CALL MPART (BNN,BFF,0,0,0)\r\n      CALL MPART (K4NN,K4FF,0,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scheme.f",
    "content": "      SUBROUTINE SCHEME (IG,INV,II3,INT,ICC,ILD,NORIG,IP,UN,Z)\r\nC\r\n      INTEGER         Z(1),     SCR1,     RD,       RDREW,    WRT,\r\n     1                WRTREW,   REW ,     SUB(2)\r\n      DIMENSION       IG(1),    INV(1),   INT(1),   ICC(1),   ILD(1),\r\n     1                NORIG(1), IP(1),              UN(1)\r\n      COMMON /BANDA / IBUF1,    DUM4A(4), METHOD,   ICRIT\r\n      COMMON /BANDB / NBITIN,   KORE,     IFL,      NGRID,    IPASS,\r\n     1                NW,       KDIM\r\n      COMMON /BANDD / DUM7D(7), NEQ,      NEQR\r\n      COMMON /BANDS / NN,       MM,       DUM2(2),  MAXGRD,   MAXDEG,\r\n     1                KMOD,     MACH,     MINDEG,   NEDGE\r\n      COMMON /GEOMX / GDUM(3),  SCR1\r\n      COMMON /SYSTEM/ IBUF,     NOUT\r\n      COMMON /NAMES / RD,       RDREW,    WRT,      WRTREW,   REW\r\n      DATA            SUB /     4HSCHE,4HME    /\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     ZERO OUT CORE SPACE AND SET BANDWIDTH IMPROVEMENT FLAG, JUMP\r\nC     JUMP = 1,  NO IMPROVEMENT OF CRITERION SELECTED\r\nC          = 0,  IMPROVEMENT\r\nC\r\n      DO 10 I = 1,KORE\r\n 10   Z(I) = 0\r\n      JUMP = 1\r\nC\r\nC     READ ELEMENT DATA FROM GEOM2 FILE AND SET UP CONNECTION TABLE IG.\r\nC     ALSO, EXAMINE MPC EQUATIONS.\r\nC\r\n      CALL BREAD (IG,INV,II3,NORIG,Z)\r\n      IF (NGRID .LE. 0) RETURN\r\nC\r\nC     NGRID = NO. OF GRID POINTS IN THE PROBLEM\r\nC           =  0, ONE OR MORE SEQGP CARD IS PRESENT IN NASTRAN INPUT\r\nC                 DECK, AND/OR QDSEP ELEMENTS\r\nC           = -1, INSUFFICIENT CORE SPACE (IG TABLE TOO SMALL)\r\nC           = -2, INSUFFICIENT SCRATCH AREA WHILE USING CTHMCK\r\nC           = -3, INSUFFICIENT SCRATCH AREA WHILE USING GIBSTK\r\nC\r\nC     MODIFY IG TO ACCOUNT FOR MPC EQUATIONS AND RIGID ELEMENTS\r\nC\r\n      IF (NEQ+NEQR .NE. 0) CALL TIGER (IG,ICC,INV,II3,NORIG,Z,UN)\r\nC\r\nC     SORT ORIGINAL GRID NOS. AND OUTPUT THE LIST IN INT, WHERE INT(I)\r\nC     IS THE I-TH ORIGINAL GRID NUMBER.\r\nC     ALSO OUTPUT ILD, WHERE IDL(I) = SORTED INTERNAL NO. CORRESPONDING\r\nC     TO THE UNSORTED BANDIT INTERNAL LABEL I.\r\nC\r\nC     CALL BRIGIT (INV,II3,INT,ILD)\r\nC     BRIGIT AND INTERN ARE NOW REPLACED BY 17 LINES BELOW /G.CHAN 1988\r\nC\r\n      K = 0\r\n      DO 15 I = 1,II3\r\n      IF (INV(I) .EQ. 0) GO TO 15\r\n      K = K + 1\r\n      INT(K) = INV(I)\r\n 15   CONTINUE\r\n      CALL SORT (0,0,1,1,INT,NN)\r\n      DO 17 I = 1,NN\r\n      J = INT(I)\r\n      IF (J .LE. 0) GO TO 120\r\n      LOC = J - 1\r\n 16   LOC = MOD(LOC,KMOD) + 1\r\n      IF (INV(LOC) .EQ. 0) GO TO 120\r\n      IF (INV(LOC) .NE. J) GO TO 16\r\n      J = INV(LOC+II3)\r\n      ILD(J) = I\r\n 17   CONTINUE\r\nC\r\nC     METHOD WAS SET IN BANDIT -\r\nC     METHOD = -1, CM ONLY,    = +1, GPS ONLY,    = 0, BOTH METHODS.\r\nC\r\n      IF (METHOD .NE. 0) GO TO 20\r\nC\r\nC     SAVE ORIGINAL GRID POINT ORDERING (ILD) IN SCR1 FILE\r\nC\r\n      CALL OPEN (*70,SCR1,Z(IBUF1),WRTREW)\r\n      CALL WRITE (SCR1,ILD,NN,1)\r\n      CALL CLOSE (SCR1,REW)\r\nC\r\nC     RE-SEQUENCE GRIDS WITH CUTHILL-MCKEE ALGORITHM\r\nC\r\n 20   I = MAXGRD + 2\r\n      J = I + MAXGRD\r\n      IF (MAXDEG .GT. MAXGRD) J = J + MAXDEG - MAXGRD\r\n      K = J + MAXGRD\r\n      CALL CTHMCK (80,1,2,ICRIT,IG,INV,INV(I),INV(J),INV(K),INT,ICC,\r\n     X             ILD,IP,JUMP,UN,Z)\r\n      NGRID1 = NGRID\r\n      IF (METHOD) 60,25,30\r\nC\r\nC     READ ORIGINAL SEQUENCE BACK IF CTHMCK MAKES NO IMPROVEMENT\r\nC\r\n 25   IF (JUMP .EQ. 0) GO TO 30\r\n      CALL OPEN (*70,SCR1,Z(IBUF1),RDREW)\r\n      CALL READ (*80,*80,SCR1,ILD,NN,1,M)\r\n      CALL CLOSE (SCR1,REW)\r\n 30   DO 40 K1 = 1,NN\r\n 40   INT(K1) = ILD(K1)\r\nC\r\nC     RESEQUENCE NODES WITH GPS ALGORITHM.\r\nC\r\n      K1 = 1\r\n      K2 = K1 + KDIM\r\n      K3 = K2 + KDIM\r\n      K4 = K3 + KDIM\r\n      K5 = K4 + KDIM/2\r\n      CALL GIBSTK (IG,INT,ILD,INV(I),INV,INV(J),INV(K),ICC,JUMP,ICRIT,\r\n     1             Z(K1),Z(K2),Z(K3),Z(K4),Z(K5),UN,KDIM)\r\nC\r\nC     GENERATE SEQGP CARDS AND OUTPUT THEM TO GEOM1 FILE\r\nC\r\n 60   CALL BSEQGP (NORIG,ILD,JUMP)\r\n      IF (NGRID1.EQ.-2 .OR. NGRID.EQ.-3) GO TO 100\r\n      RETURN\r\nC\r\nC     SCRATCH FILE ERROR\r\nC\r\n 70   K = -1\r\n      GO TO 90\r\n 80   K = -2\r\n 90   CALL MESAGE (K,SCR1,SUB)\r\nC\r\n 100  WRITE  (NOUT,110) KDIM\r\n 110  FORMAT (28H0*** BANDIT SCRATCH ARRAY OF,I5,20H WORDS IS TOO SMALL.\r\n     1,/5X,57HUSER COULD USE ONE OF THE FOLLOWING OPTIONS AND RESUBMIT ,\r\n     2 27HJOB. (USERS MANUAL P.2.1-1), /5X,\r\n     2 53HINCREASE SCRATCH ARRAY BY NASTRAN BANDTDIM OPTION, OR, /5X,\r\n     3 53HSWITCH TO CUTHILL-MCKEE METHOD ONLY BY  BANDTMTH=1 OR, /5X,\r\n     4 57HSKIP BANDIT COMPUTATION BY SETTING NASTRAN CARD BANDIT=-1,//)\r\n      GO TO 140\r\nC\r\n 120  WRITE  (NOUT,130) K,NN,II3,KMOD,MAXGRD,MAXDEG\r\n 130  FORMAT ('0*** BANDIT FATAL ERROR - TRY TO RERUN JOB WITH ',\r\n     1       22H'NASTRAN BANDTDIM = N',' WHERE N = 3,4,...,OR 9', //5X,\r\n     2       '@17/  K,NN,II3,KMOD,MAXGRD,MAXDEG =',6I8)\r\n 140  CALL MESAGE (-37,SUB,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scone1.f",
    "content": "      SUBROUTINE SCONE1\r\nC     ******* PHASE I OF STRESS DATA RECOVERY FOR CONICAL SHELL*********\r\nC     OUTPUTS FROM THIS ROUTINE FOR USE IN PHASE II ARE...\r\nC     1) ELEMENT ID\r\nC     2 AND 3) SILS A AND B\r\nC     4) S SUB T\r\nC     5) N\r\nC     6) I\r\nC     7) Z1\r\nC     8) Z2\r\nC     9 THRU 22) PHI-S\r\nC     23 THRU 118) TWO 8X6 S MATRICES\r\nC     TOTAL OF 118 WORDS\r\nC***********************************************************************\r\nC     ECPT( 1) = ELEMENT ID             INTEGER        ECT\r\nC     ECPT( 2) = SIL PT A               INTEGER        ECT\r\nC     ECPT( 3) = SIL PT B B             INTEGER        ECT\r\nC     ECPT( 4) = MATID 1                INTEGER        EPT\r\nC     ECPT( 5) = T   (MEMBRANE THICK)   REAL           EPT\r\nC     ECPT( 6) = MATID 2                INTEGER        EPT\r\nC     ECPT( 7) = I   (MOM.OF INERTIA)   REAL           EPT\r\nC     ECPT( 8) = MATID 3                INTEGER        EPT\r\nC     ECPT( 9) = TS  (SHEAR THICKNESS)  REAL           EPT\r\nC     ECPT(10) = NON-STRUCTURAL-MASS    REAL           EPT\r\nC     ECPT(11) = Z1                     REAL           EPT\r\nC     ECPT(12) = Z2                     REAL           EPT\r\nC     ECPT(13) = PHI  1                 REAL           EPT\r\nC     ECPT(14) = PHI  2                 REAL           EPT\r\nC     ECPT(15) = PHI  3                 REAL           EPT\r\nC     ECPT(16) = PHI  4                 REAL           EPT\r\nC     ECPT(17) = PHI  5                 REAL           EPT\r\nC     ECPT(18) = PHI  6                 REAL           EPT\r\nC     ECPT(19) = PHI  7                 REAL           EPT\r\nC     ECPT(20) = PHI  8                 REAL           EPT\r\nC     ECPT(21) = PHI  9                 REAL           EPT\r\nC     ECPT(22) = PHI 10                 REAL           EPT\r\nC     ECPT(23) = PHI 11                 REAL           EPT\r\nC     ECPT(24) = PHI 12                 REAL           EPT\r\nC     ECPT(25) = PHI 13                 REAL           EPT\r\nC     ECPT(26) = PHI 14                 REAL           EPT\r\nC     ECPT(27) = COORD. SYS. ID PT.1    INTEGER        BGPDT\r\nC     ECPT(28) = RADIUS PT. 1           REAL           BGPDT\r\nC     ECPT(29) = DISTANCE TO PT.1       REAL           BGPDT\r\nC     ECPT(30) = NULL                   REAL           BGPDT\r\nC     ECPT(31) = COORD. SYS. ID PT.2    INTEGER        BGPDT\r\nC     ECPT(32) = RADIUS PT 2            REAL           BGPDT\r\nC     ECPT(33) = DISTANCE TO PT. 2      REAL           BGPDT\r\nC     ECPT(34) = NULL                   REAL           BGPDT\r\nC     ECPT(35) = ELEMENT TEMPERATURE    REAL           GEOM3\r\nC***********************************************************************\r\n      REAL III\r\n      REAL NSPRSQ\r\n      REAL NCPRSQ\r\n      REAL N2RSQ\r\n      REAL T30(30)\r\n      REAL G(9)\r\n      REAL NSPOPI\r\n      REAL INTEG(28)\r\n      REAL FAC(7)\r\n      REAL N\r\n      REAL L2\r\n      REAL NSP\r\n      REAL NCP\r\n      REAL N2\r\n      REAL KS\r\n      REAL NOVR\r\n      REAL N2D33\r\n      REAL HYQ(20)\r\nC\r\n      REAL               I00 ,I01 ,I02 ,I03 ,I04\r\n      REAL               I10 ,I11 ,I12 ,I13 ,I14\r\n      REAL               I20 ,I21 ,I22 ,I23 ,I24\r\n      REAL                    I31 ,I32 ,I33 ,I34\r\n      REAL                         I42 ,I43 ,I44\r\n      REAL                         I52 ,I53 ,I54\r\n      REAL                         I62 ,I63 ,I64\r\nC\r\n      INTEGER NECPT(100)\r\n      INTEGER NERROR(2)\r\n      INTEGER NA(7)\r\nC\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\nC\r\n      COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH\r\nC\r\n      COMMON /MATOUT/ G11, G12, G13, G22, G23, G33, ALPHA\r\nC\r\n      COMMON /SDR2X5/    ECPT(100)     ,PH1OUT(118)\r\nC\r\n      COMMON /SDR2X6/    HUQ(100)      ,H(120)        ,KS(80)\r\nC\r\n      EQUIVALENCE   ( ECPT(1), NECPT(1))\r\n      EQUIVALENCE   ( ECPT(4), MATID1  )\r\n      EQUIVALENCE   ( G(1)    ,HUQ(1)  )\r\n      EQUIVALENCE   ( ECPT(5) ,T       )\r\n      EQUIVALENCE   ( ECPT(6), MATID2  )\r\n      EQUIVALENCE   ( ECPT(7) ,III     )\r\n      EQUIVALENCE   ( ECPT(8), MATID3  )\r\n      EQUIVALENCE   ( ECPT(9) ,TS      )\r\n      EQUIVALENCE   ( ECPT(11),Z1      )\r\n      EQUIVALENCE   ( ECPT(12),Z2      )\r\n      EQUIVALENCE   ( ECPT(28),RA      )\r\n      EQUIVALENCE   ( ECPT(29),ZA      )\r\n      EQUIVALENCE   ( ECPT(32),RB      )\r\n      EQUIVALENCE   ( ECPT(33),ZB      )\r\n      EQUIVALENCE   ( D11     ,G(1)    )\r\n      EQUIVALENCE   ( D12     ,G(2)    )\r\n      EQUIVALENCE   ( D22     ,G(5)    )\r\n      EQUIVALENCE   ( D33     ,G(9)    )\r\n      EQUIVALENCE   ( INTEG(1),HUQ(1)  )\r\n      EQUIVALENCE   ( T30(1)  ,H(1)    )\r\n      EQUIVALENCE   ( HYQ(1)  ,H(31)   )\r\n      EQUIVALENCE   ( HYQ( 1), H11     )\r\n      EQUIVALENCE   ( HYQ( 2), H12     )\r\n      EQUIVALENCE   ( HYQ( 3), H13     )\r\n      EQUIVALENCE   ( HYQ( 4), H14     )\r\n      EQUIVALENCE   ( HYQ( 5), H15     )\r\n      EQUIVALENCE   ( HYQ( 6), H16     )\r\n      EQUIVALENCE   ( HYQ( 7), H17     )\r\n      EQUIVALENCE   ( HYQ( 8), H18     )\r\n      EQUIVALENCE   ( HYQ( 9), H19     )\r\n      EQUIVALENCE   ( HYQ(10), H1TEN   )\r\n      EQUIVALENCE\r\n     1                   (I00 , INTEG( 1))  ,(I20 , INTEG(11))\r\n     2                  ,(I01 , INTEG( 2))  ,(I21 , INTEG(12))\r\n     3                  ,(I02 , INTEG( 3))  ,(I22 , INTEG(13))\r\n     4                  ,(I03 , INTEG( 4))  ,(I23 , INTEG(14))\r\n     5                  ,(I04 , INTEG( 5))  ,(I24 , INTEG(15))\r\n     6                  ,(I10 , INTEG( 6))  ,(I31 , INTEG(16))\r\n     7                  ,(I11 , INTEG( 7))  ,(I32 , INTEG(17))\r\n     8                  ,(I12 , INTEG( 8))  ,(I33 , INTEG(18))\r\n     9                  ,(I13 , INTEG( 9))  ,(I34 , INTEG(19))\r\n     T                  ,(I14 , INTEG(10))  ,(I52 , INTEG(23))\r\n     1                  ,(I42 , INTEG(20))  ,(I53 , INTEG(24))\r\n     2                  ,(I43 , INTEG(21))  ,(I54 , INTEG(25))\r\n     3                  ,(I44 , INTEG(22))  ,(I62 , INTEG(26))\r\n     4                                      ,(I63 , INTEG(27))\r\n     5                                      ,(I64 , INTEG(28))\r\nC\r\n      DATA FAC/1.0E0,1.0E0,2.0E0,6.0E0,24.0E0,120.0E0,720.0E0/\r\n      DATA NA /1,1,1,2,3,3,3/\r\n      DATA ONE/1.0E0/\r\nC\r\n      COSTH=1.0\r\n      SINTH=0.0\r\n      N = NECPT(1) - ( (NECPT(1)/1000)*1000 ) - 1\r\n      TEMP1 = RB-RA\r\n      TEMP2 = ZB-ZA\r\n      SL =  SQRT(TEMP1**2 + TEMP2**2)\r\n      L2 = SL * SL\r\n      IF(SL) 30,20,30\r\n   20 NERROR(1) = NECPT(1) / 1000\r\n      NERROR(2) = N + .3E0\r\n      CALL MESAGE(-30, 39, NERROR(1) )\r\n   30 SP = TEMP1 / SL\r\n      CP = TEMP2 / SL\r\n      NSP = N * SP\r\n      NCP = N * CP\r\n      N2 = N * N\r\n      SP2 = SP * SP\r\n      A=RA\r\n      B=SP\r\n      IF( B ) 60,40,60\r\nC\r\nC     GO TO 302 FOR B = 0\r\nC\r\nC                            1-N\r\nC                      PI  RA     M+1\r\nC     FOR B = 0 I   = --------- SL    (FOR ALL M,N .GE. 0)\r\nC                M,N    M + 1\r\nC\r\n   40 ISUB = 0\r\n      DO 50 I=1,7\r\n      NBEGIN = NA(I)\r\nC\r\nC\r\n      DO 50 J=NBEGIN,5\r\nC\r\nC     M = I - 1\r\nC     N = J - 1\r\nC     MPLUS1 THUS EQUALS I\r\n      ISUB = ISUB + 1\r\n   50 INTEG(ISUB) = (PI * SL**I) / ( FLOAT(I) * RA**(J-2))\r\nC\r\nC     ABOVE COMPLETES ALL INTEGRALS FOR B = 0...\r\nC\r\nC     IF AN OVERFLOW RESULTS BELOW POSSIBLY B IS NOT ZERO, BUT SMALL..\r\nC\r\n      GO TO 100\r\nC\r\nC     OK BELOW IS FOR B NOT EQUAL TO ZERO\r\nC\r\nC     FIRST M = 0 CASE...\r\nC\r\nC                             2-N     2-N\r\nC                      PI ( RB    - RA   )\r\nC               I     =--------------------   (N NOT EQUAL TO 2)\r\nC                0,N       (2-N)  B\r\nC\r\nC\r\nC     FOR N=2   I     = PI * (LOG RB  -  LOG RA) / B\r\nC                0,2             E          E\r\nC\r\nC\r\n   60 RASQ = RA * RA\r\n      RBSQ = RB * RB\r\n      PIOVB = PI / B\r\nC\r\n      INTEG(1) = 0.5E0 * PIOVB * (RBSQ - RASQ)\r\n      INTEG(2) = PIOVB * (RB - RA)\r\n      INTEG(3) = PIOVB * ALOG(RB/RA)\r\n      INTEG(4) = -PIOVB * (ONE/RB - ONE/RA)\r\n      INTEG(5) = -0.5E0 * PIOVB * (ONE/RBSQ - ONE/RASQ)\r\nC\r\n      ISUB = 5\r\n      DO 90 I=1,6\r\n      MPLUS1 = I + 1\r\n      NBEGIN = NA(MPLUS1)\r\n      DO 90 J=NBEGIN,5\r\n      ISUB = ISUB + 1\r\nC\r\nC     M = I\r\nC     N = J - 1\r\nC\r\nC     WE ARE GETTING INTEGRAL(M,N)\r\nC     M = POWER OF S\r\nC     N = POWER OF R\r\nC\r\nC\r\nC     EVALUATING AT R = RB  THEN AT R = RA...\r\nC\r\nC                                    K   NPOW\r\nC                 M FAC.     M   (-A) (R)\r\nC I    = (PI)(-----------)( SUM ------------------------) + (TERM-X)\r\nC  MN               (M+1)   K=0  (M-K)FAC.(K)FAC.(NPOW)\r\nC                  B        (K.NE.M-N+2)                    (K.EQ.M-N+2)\r\nC\r\nC\r\nC     WHERE NPOW = M - N - K + 2\r\nC\r\nC\r\nC                    M-N+2\r\nC                (-A)     LOG(R)\r\nC       TERM-X = --------------------\r\nC               (M-N+2)FAC.(N-2)FAC.\r\nC\r\nC     NOTE IN DATA STATEMENT THAT 0 FACTORIAL = FAC(1)\r\nC                                 1 FACTORIAL = FAC(2)\r\nC                                 2 FACTORIAL = FAC(3)    ETC...\r\nC\r\n      SUM = 0.0E0\r\n      SIGN = -1.0E0\r\n      DO 80 KK=1,MPLUS1\r\n      SIGN = -SIGN\r\n      K = KK - 1\r\n      NPOW = I - J + 3\r\n      IF(K .EQ. NPOW ) GO TO 70\r\n      NPOW = NPOW - K\r\n      IFAC = MPLUS1 - K\r\n      TEMP = NPOW\r\n      SUM=SUM+SIGN*A**K*(RB**NPOW - RA**NPOW)/(FAC(IFAC)*FAC(K+1)*TEMP)\r\n      GO TO 80\r\n   70 SUM = SUM+SIGN*A**NPOW*ALOG(RB/RA) / (FAC(NPOW+1)*FAC(J-2))\r\n   80 CONTINUE\r\nC\r\n      INTEG(ISUB) = SUM * PI * FAC(MPLUS1) / B**MPLUS1\r\n   90 CONTINUE\r\n  100 CONTINUE\r\nC\r\nC\r\n      DO 120 I = 1,80\r\n  120 KS(I) = 0.0E0\r\nC\r\n      R = 0.50E0 * ( RA + RB )\r\n      S = 0.50E0 * SL\r\nC\r\n      IF( T ) 130,170,130\r\n  130 VAR=1.0\r\n      MATID = MATID1\r\n      ASSIGN 150 TO ICONT\r\nC\r\n  140 ELTEMP = ECPT(35)\r\n      INFLAG = 2\r\n      CALL MAT( ECPT(1) )\r\n      G(1) = G11 * VAR\r\n      G(2) = G12 * VAR\r\n      G(3) = G13 * VAR\r\n      G(4) = G12 * VAR\r\n      G(5) = G22 * VAR\r\n      G(6) = G23 * VAR\r\n      G(7) = G13 * VAR\r\n      G(8) = G23 * VAR\r\n      G(9) = G33 * VAR\r\nC\r\n      GO TO ICONT,(150,195)\r\nC\r\n  150 DO 160 I = 1,30\r\n  160 T30(I) = 0.0E0\r\nC\r\n      T30( 4) = 1.0E0\r\n      T30(11) = N / R\r\n      T30(12) = T30(11) * S\r\n      T30(13) =   SP / R\r\n      T30(14) = S * T30(13)\r\n      T30(15) = CP / R\r\n      T30(16) = S * T30(15)\r\n      T30(17) = S * T30(16)\r\n      T30(18) = S * T30(17)\r\n      T30(21) = - T30(13)\r\n      T30(22) = 1.0E0 - T30(14)\r\n      T30(23) = - T30(11)\r\n      T30(24) = - T30(12)\r\nC\r\n      CALL GMMATS( G(1),3,3,0,  T30(1),3,10,0,  KS(1) )\r\nC\r\n  170 IF( III ) 190,180,190\r\n  180 DO 181 I = 1,9\r\n  181 G(I) = 0.0E0\r\n      GO TO 195\r\nC\r\nC     GET G MATERIAL MATRIX FOR MATERIAL ID 2 AND MULTIPLY BY I...\r\nC     THIS THEN IS THE D 3X3 MATRIX BY EQUIVALENCE...\r\nC\r\n  190 VAR = III\r\n      MATID = MATID2\r\n      ASSIGN 195 TO ICONT\r\n      GO TO 140\r\nC\r\nC     FORMING 1.0/Q DIRECTLY\r\nC\r\n  195 OPI = ONE / PI\r\n      DO 299 I = 1,20\r\n  299 HYQ(I) = 0.0E0\r\n      IF( TS ) 351,352,351\r\nC\r\n  351 ELTEMP = ECPT(35)\r\n      INFLAG = 1\r\n      MATID = MATID3\r\n      CALL MAT( NECPT(1) )\r\nC\r\n      IF(G12.EQ.0.0) GO TO 354\r\n      N2D33 = N2 * D33\r\n      SP2D22 = SP2 * D22\r\n      OQ = SL * TS *  G12    * (RA+RB)*0.5E0 + I02 * (N2D33+SP2D22)*OPI\r\n      OQ = ONE / OQ\r\n      NSPOPI = NSP * OPI\r\n      TWOD33 = 2.0E0 * D33\r\n      TEMP1 = D12 * (ONE/RB - ONE/RA)\r\n      TEMP2 = NSPOPI * (D22 + D33)\r\n      TEMP3 = N * NSPOPI * (TWOD33 + D22)\r\n      TEMP4 = OQ * 0.5E0 * NCP * N * D33 * OPI\r\n      TEMP5 = OPI * (N2 * TWOD33  + SP2 * D22)\r\n      TEMP6 = D12 * N2 * L2 / RB\r\n      TEMP7 = NSPOPI * CP * 0.50E0\r\nC\r\n      HYQ( 1) = OQ*(TEMP1*NCP - TEMP7*I03*(D33+2.0E0*D22))\r\n      HYQ( 2) = OQ*(NCP*SL/RB*D12-TEMP7*I13*(3.0E0*D33+D22)+\r\n     1   1.0E0*NCP*OPI*I02*D33)\r\n      HYQ( 3) = TEMP4 * I03\r\n      HYQ( 4) = TEMP4 * I13\r\n      HYQ( 5) = OQ * (TEMP1*N2  -  TEMP3*I03)\r\n      HYQ( 6) = OQ * (D12*N2*SL/RB - TEMP3*I13 + TEMP5*I02)\r\n      HYQ( 7) = OQ*(2.0E0*D11*(RA-RB)+TEMP6+2.0E0*I12*TEMP5-TEMP3*I23)\r\n      HYQ( 8) =OQ*(-D11*6.E0*SL*RB+TEMP6*SL+3.E0*I22*TEMP5-TEMP3*I33)\r\n      HYQ( 9) = -OQ * TEMP2 * I02\r\n      HYQ(10) = OQ * (N*SL*(D12 + D33) - TEMP2*I12)\r\n      HYQ(19) = 1.0E0\r\n      HYQ(20) = S\r\nC\r\n      TSG3 = TS * G12\r\n      DO 359 I = 1,20\r\n  359 KS(I+60) = HYQ(I) * TSG3\r\nC     FILL HXQ MATIX\r\nC\r\n      GO TO 352\r\n  354 TS=0.0\r\n  352 IF( III ) 500,400,500\r\n  500 S2 = S * S\r\n      S3 = S * S2\r\n      RSQ = R * R\r\n      SPOVR = SP / R\r\n      NCPRSQ = NCP/RSQ\r\n      NSPRSQ = NSP/RSQ\r\n      N2RSQ = N2 / RSQ\r\n      SPCPR2 = SP * CP / RSQ\r\n      NOVR = N / R\r\n      T30( 7) = 2.0E0\r\n      T30( 8) = 6.0E0 * S\r\n      T30(11) = - NCPRSQ - SPOVR * H11\r\n      T30(12) = - S * NCPRSQ - SPOVR * H12\r\n      T30(13) = - SPOVR * H13\r\n      T30(14) = - SPOVR * H14\r\n      T30(15) = - N2RSQ - SPOVR * H15\r\n      T30(16) = SPOVR - N2RSQ * S - SPOVR * H16\r\n      T30(17) = 2.0E0 * S * SPOVR - N2RSQ * S2 - SPOVR * H17\r\n      T30(18) = 3.0E0 * S2 * SPOVR - N2RSQ * S3 - SPOVR * H18\r\n      T30(19) = - NOVR - SPOVR * H19\r\n      T30(20) = - NOVR * S - SPOVR * H1TEN\r\n      T30(21) = 0.5E0 * SPCPR2 + NOVR * H11\r\n      T30(22) = 0.5E0 * ( S * SPCPR2 - 3.0E0 * CP / R ) + NOVR * H12\r\n      T30(23) = -0.50E0 * NCPRSQ + NOVR * H13\r\n      T30(24) = -NCPRSQ * S * 0.50E0 * NOVR * H14\r\n      T30(25) = NSPRSQ + NOVR * H15\r\n      T30(26) = NSPRSQ * S - NOVR * ( 2.0E0 - H16 )\r\n      T30(27) = NSPRSQ * S2 - NOVR * ( 4.0E0 * S - H17 )\r\n      T30(28) = NSPRSQ * S3 - NOVR * ( 6.0E0 * S2 - H18 )\r\n      T30(29) = SPOVR + NOVR * H19\r\n      T30(30) = -1.0E0 + SPOVR * S + NOVR * H1TEN\r\nC\r\n      CALL GMMATS( G(1),3,3,0,  T30(1),3,10,0,  KS(31) )\r\nC\r\nC\r\nC\r\nC     FILL HUQ PER PAGE 15 MS-28\r\nC\r\n  400 DO 290 I=1,100\r\n  290 HUQ(I) = 0.0E0\r\n      HUQ(  1) = ONE\r\n      HUQ( 13) = ONE\r\n      HUQ( 25) = ONE\r\n      HUQ( 36) = ONE\r\n      HUQ( 49) = ONE\r\n      HUQ( 51) = ONE\r\n      HUQ( 52) = SL\r\n      HUQ( 63) = ONE\r\n      HUQ( 64) = SL\r\n      HUQ( 75) = ONE\r\n      HUQ( 76) = SL\r\n      HUQ( 77) = L2\r\n      HUQ( 78) = HUQ(77) * SL\r\n      HUQ( 86) = ONE\r\n      HUQ( 87) = 2.0E0 * SL\r\n      HUQ( 88) = 3.0E0 * HUQ(77)\r\n      HUQ(100) = SL\r\nC\r\n      IF( TS ) 300,320,300\r\nC\r\n  300 HUQ( 41)=CP/RA\r\n      HUQ( 45)=N/RA\r\n      HUQ( 91) = CP / RB\r\n      HUQ( 92) = HUQ(91) * SL\r\n      HUQ( 95) = N / RB\r\n      HUQ( 96) = HUQ(95) * SL\r\n      HUQ( 97) = HUQ(95) * L2\r\n      HUQ( 98) = HUQ(96)*L2\r\n      HUQ( 99) = ONE\r\n      HUQ(100) = SL\r\nC\r\nC     SUBTRACT FROM ROWS 4 AND 9 OF THE ABOVE MATRIX, THE HYQ MATRIX...\r\nC\r\n      DO 310 I=1,10\r\n      HUQ(I+30) = HUQ(I+30) - HYQ(I)\r\n  310 HUQ(I+80) = HUQ(I+80) - HYQ(I)\r\nC\r\n  320 CONTINUE\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS( 10, HUQ(1), 10, DUM, 0, DETERM, ISING, T30(1) )\r\nC\r\nC     CHECK SINGULARITY\r\n      GO TO(340,330),ISING\r\n  330 CALL MESAGE( -30, 40, NECPT(1) )\r\nC\r\nC\r\nC     NOT SINGULAR, CONTINUE ON..\r\n  340 CONTINUE\r\n      IF(TS.NE.0.0) GO TO 345\r\n      HUQ(85)=0.0\r\n      HUQ(100)=0.0\r\n  345 CONTINUE\r\nC                            T                      T\r\nC           GET EHAT = (E)(H  ),  AND  EHBT = (E)(H  )\r\nC                           A                      B\r\nC     EHAT WILL BE STORED AT H(1)...H(60) AND EHBT AT H(61)...H(120)\r\nC\r\nC\r\nC              0    SP   CP   0    0\r\nC\r\nC              1    0    0    0    0\r\nC\r\nC              0    CP  -SP   0    0\r\nC   MATRIX E =\r\nC              0    0    0    0    SP\r\nC\r\nC              0    0    0    1    0\r\nC\r\nC              0    0    0    0    CP\r\n      INC1 = 0\r\n      INC2 = 0\r\n  350 DO 360 I=1,10\r\n      ISUB = I + INC1\r\n      ITEN = 10*I - 9 + INC2\r\n      H(ISUB   ) = HUQ(ITEN+1) * SP  +  HUQ(ITEN+2) * CP\r\n      H(ISUB+10) = HUQ(ITEN  )\r\n      H(ISUB+20) = HUQ(ITEN+1) * CP  -  HUQ(ITEN+2) * SP\r\n      H(ISUB+30) = HUQ(ITEN+4) * SP\r\n      H(ISUB+40) = HUQ(ITEN+3)\r\n  360 H(ISUB+50) = HUQ(ITEN+4) * CP\r\n      IF( INC1 ) 380,370,380\r\n  370 INC1 = 60\r\n      INC2 = 5\r\n      GO TO 350\r\n  380 CONTINUE\r\nC\r\n      DO 700 I = 1,2\r\n      CALL GMMATS( KS(1),8,10,0,  H(60*I-59),6,10,1,  PH1OUT(48*I-25) )\r\n  700 CONTINUE\r\n      SSUBT = 0.0E0\r\n      IF( MATID1 ) 800,850,800\r\nC     COMPUTE S SUB T\r\nC\r\n  800 INFLAG = 1\r\n      MATID = MATID1\r\n      ELTEMP = ECPT(35)\r\n      CALL MAT( ECPT(1) )\r\n      SSUBT = G11 * PI * ALPHA / (1.0E0 - G13)\r\n      IF( N .EQ. 0.0E0 ) SSUBT = 2.0E0  * SSUBT\r\nC\r\n  850 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = SSUBT\r\n      PH1OUT(5) = N\r\n      PH1OUT(6) = III\r\n      PH1OUT(7) = Z1\r\n      PH1OUT(8) = Z2\r\n      DO 900 I = 9,22\r\n  900 PH1OUT(I) = ECPT(I+4)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scone2.f",
    "content": "      SUBROUTINE SCONE2 (SORC)\r\nC\r\nC     PHASE II OF STRESS DATA RECOVERY\r\nC\r\nC     OUTPUTS FROM PHASE I ARE THE FOLLOWING (TOTAL OF 118 WORDS) -\r\nC     1) ELEMENT ID\r\nC     2 AND 3) SILS A AND B\r\nC     4) S SUB T\r\nC     5) N\r\nC     6) I\r\nC     7) Z1\r\nC     8) Z2\r\nC     9 THRU 22) PHI-S\r\nC     23 THRU 118) TWO 8X6 S MATRICES\r\nC\r\n      LOGICAL         ZERO\r\n      INTEGER         SIL(2),IFORCE(8),ISTRES(100),ELEMID,SORC,\r\n     1                IBLOCK(9,14)\r\n      REAL            NPHI,PHI(14),FORCE(7),S(96),STRESS(18),ZOFF(2),III\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,DUM11(3)\r\n      COMMON /SDR2X7/ COMMUN(225)\r\n      COMMON /SDR2X8/ VEC(8),SUM(8),SIG(3),SIG1,SIG2,SIG12,TEMP,\r\n     1                DELTA,THETA,NPOINT,ZOVERI,IPT,BLOCK(9,14),\r\n     2                NELHAR,ELEMID,HARM,N,SINPHI,CONPHI,NPHI,NANGLE\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(NELEM,COMMUN(1)),\r\n     1                (SIL(1),COMMUN(2)),(III,COMMUN(6)),\r\n     2                (ZOFF(1),COMMUN(7)),(PHI(1),COMMUN(9)),\r\n     3                (S(1),COMMUN(23)),(IBLOCK(1,1),BLOCK(1,1)),\r\n     4                (STRESS(1),COMMUN(101),ISTRES(1)),\r\n     5                (FORCE (1),COMMUN(201),IFORCE(1))\r\n      DATA    NELOLD/ -1 /\r\nC\r\n      DO 10 I = 1,8\r\n   10 SUM(I) = 0.0\r\nC\r\n      ELEMID = NELEM/1000\r\n      NELHAR = NELEM - ELEMID*1000\r\nC\r\nC     ZERO OUT BLOCK IF THIS IS FIRST CALL WITH HARMONIC = 0 FOR THIS\r\nC     ELEMENT\r\nC\r\n      N = NELHAR - 1\r\n      IF (N .NE. 0) GO TO 21\r\n      IF (ELEMID .EQ. NELOLD) GO TO 21\r\n      NELOLD = ELEMID\r\n      DO 12 I = 2,9\r\n      DO 12 J = 1,14\r\n      BLOCK(I,J) = 0.0\r\n   12 CONTINUE\r\nC\r\nC     INSERT ANGLES FOR OUTPUT INTO FIRST ROW OF BLOCK\r\nC\r\n      ZERO = .FALSE.\r\n      J = 0\r\n      DO 19 I = 1,14\r\n      IF (PHI(I)) 17,15,17\r\n   15 IF (ZERO) GO TO 19\r\n      ZERO = .TRUE.\r\n   17 J = J + 1\r\n      BLOCK(1,J) = PHI(I)\r\n   19 CONTINUE\r\n      J = J + 1\r\n      IF (J .LE. 14) IBLOCK(1,J) = 1\r\n   21 HARM = N\r\nC\r\n      DO 30 I = 1,2\r\nC\r\nC     DISPLACEMENT VECTOR POINTER\r\nC\r\n      NPOINT = IVEC + SIL(I) - 1\r\nC\r\n      CALL GMMATS (S(48*I-47),8,6,0, Z(NPOINT),6,1,0, VEC(1))\r\nC\r\n      DO 25 J = 1,8\r\n   25 SUM(J) = SUM(J) + VEC(J)\r\n   30 CONTINUE\r\nC\r\nC     INSERT HARMONIC STRESSES AND FORCES INTO BLOCK FOR THIS HARMONIC\r\nC\r\n      DO 40 I = 1,14\r\n      IF (IBLOCK(1,I) .EQ. 1) GO TO 50\r\n      NPHI   = HARM*BLOCK(1,I)*DEGRA\r\n      SINPHI = SIN(NPHI)\r\n      CONPHI = COS(NPHI)\r\n      GO TO (35,36), SORC\r\n   35 BLOCK(2,I) = BLOCK(2,I) + SINPHI*SUM(1)\r\n      BLOCK(3,I) = BLOCK(3,I) + SINPHI*SUM(2)\r\n      BLOCK(4,I) = BLOCK(4,I) - CONPHI*SUM(3)\r\n      BLOCK(5,I) = BLOCK(5,I) + SINPHI*SUM(4)\r\n      BLOCK(6,I) = BLOCK(6,I) + SINPHI*SUM(5)\r\n      BLOCK(7,I) = BLOCK(7,I) - CONPHI*SUM(6)\r\n      BLOCK(8,I) = BLOCK(8,I) + SINPHI*SUM(7)\r\n      BLOCK(9,I) = BLOCK(9,I) - CONPHI*SUM(8)\r\n      GO TO 40\r\n   36 BLOCK(2,I) = BLOCK(2,I) + CONPHI*SUM(1)\r\n      BLOCK(3,I) = BLOCK(3,I) + CONPHI*SUM(2)\r\n      BLOCK(4,I) = BLOCK(4,I) + SINPHI*SUM(3)\r\n      BLOCK(5,I) = BLOCK(5,I) + CONPHI*SUM(4)\r\n      BLOCK(6,I) = BLOCK(6,I) + CONPHI*SUM(5)\r\n      BLOCK(7,I) = BLOCK(7,I) + SINPHI*SUM(6)\r\n      BLOCK(8,I) = BLOCK(8,I) + CONPHI*SUM(7)\r\n      BLOCK(9,I) = BLOCK(9,I) + SINPHI*SUM(8)\r\n   40 CONTINUE\r\nC\r\nC     COPY FORCES INTO FORCE OUTPUT BLOCK\r\nC\r\n   50 IFORCE(1) = ELEMID\r\n      IFORCE(2) = NELHAR\r\n      FORCE (3) = SUM(4)\r\n      FORCE (4) = SUM(5)\r\n      FORCE (5) = SUM(6)\r\n      FORCE (6) = SUM(7)\r\n      FORCE (7) = SUM(8)\r\nC\r\nC     COMPUTE STRESSES AT Z1 AND Z2\r\nC\r\n      ISTRES(1) = ELEMID\r\n      ISTRES(2) = NELHAR\r\nC\r\n      DO 70 I = 1,2\r\n      ZOVERI = 0.0\r\n      IF (III .NE. 0.0) ZOVERI = ZOFF(I)/III\r\nC\r\n      DO 60 J = 1,3\r\n   60 SIG(J) = SUM(J) + SUM(J+3)*ZOVERI\r\nC\r\n      IPT = 8*I - 6\r\n      STRESS(IPT+1) = ZOFF(I)\r\n      STRESS(IPT+2) = SIG(1)\r\n      STRESS(IPT+3) = SIG(2)\r\n      STRESS(IPT+4) = SIG(3)\r\n      ISTRES(IPT+5) = 1\r\n      ISTRES(IPT+6) = 1\r\n      ISTRES(IPT+7) = 1\r\n      ISTRES(IPT+8) = 1\r\n   70 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scone3.f",
    "content": "      SUBROUTINE SCONE3( AGAIN )\r\nC\r\n      REAL III\r\nC\r\n      INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(9,14)\r\nC\r\n      LOGICAL AGAIN\r\nC\r\n      COMMON /SDR2X7/ DUM(5),III,ZOFF(2),DUM2(92),STRESS(100),FORCE(25)\r\nC\r\n      COMMON /SDR2X8/ VEC(8), SUM(8), SIG(3), SIG1, SIG2, SIG12, TEMP,\r\n     1 DELTA, THETA, NPOINT, ZOVERI, IPT, BLOCK(9,14), ELHAR, ELEMID,\r\n     2 HARM, N, SINPHI, CONPHI, NPHI, NANGLE\r\nC\r\n      EQUIVALENCE( ISTRES(1), STRESS(1) )\r\n      EQUIVALENCE( IFORCE(1), FORCE (1) )\r\n      EQUIVALENCE( IBLOCK(1,1),BLOCK(1,1) )\r\nC\r\n      IF( AGAIN ) GO TO 10\r\n      AGAIN = .TRUE.\r\n      NANGLE = 0\r\n   10 NANGLE = NANGLE + 1\r\nC*****\r\nC     OUTPUT FORCES FOR THIS ANGLE\r\nC*****\r\n      IFORCE(1) = ELEMID\r\n      FORCE(2) = BLOCK(1,NANGLE)\r\n      FORCE(3) = BLOCK(5,NANGLE)\r\n      FORCE(4) = BLOCK(6,NANGLE)\r\n      FORCE(5) = BLOCK(7,NANGLE)\r\n      FORCE(6) = BLOCK(8,NANGLE)\r\n      FORCE(7) = BLOCK(9,NANGLE)\r\nC*****\r\nC COMPUTE AND OUTPUT STRESSES AND PRINCIPAL STRESSES\r\nC*****\r\n      ISTRES(1) = ELEMID\r\n      STRESS(2) = BLOCK(1,NANGLE)\r\n      DO 70 I = 1,2\r\n      ZOVERI=0.0\r\n      IF (III .NE. 0.0) ZOVERI=ZOFF(I)/III\r\n      DO 40 J = 1,3\r\n   40 SIG(J) = BLOCK(J+1,NANGLE) + BLOCK(J+4,NANGLE) * ZOVERI\r\n      TEMP = SIG(1) - SIG(2)\r\n      SIG12 = SQRT( (TEMP*0.50E0)**2 + SIG(3)**2 )\r\n      DELTA = ( SIG(1) + SIG(2) ) * 0.50E0\r\n      SIG1 = DELTA + SIG12\r\n      SIG2 = DELTA - SIG12\r\n      DELTA = 2.0E0 * SIG(3)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15 )GO TO 50\r\n      THETA = ATAN2( DELTA, TEMP ) * 28.6478898E0\r\n      GO TO 60\r\n   50 THETA = 0.0E0\r\n   60 IPT = 8*I-6\r\n      STRESS(IPT+1) = ZOFF(I)\r\n      STRESS(IPT+2) = SIG(1)\r\n      STRESS(IPT+3) = SIG(2)\r\n      STRESS(IPT+4) = SIG(3)\r\n      STRESS(IPT+5) = THETA\r\n      STRESS(IPT+6) = SIG1\r\n      STRESS(IPT+7) = SIG2\r\n      STRESS(IPT+8) = SIG12\r\n   70 CONTINUE\r\nC*****\r\nC SET AGAIN .FALSE. IF SDR2E IS NOT TO CALL THIS ROUTINE AGAIN FOR THIS\r\nC ELEMENT.. E.G. ALL THE ANGLES DESIRED HAVE BEEN PROCESSED...\r\nC*****\r\n      IF( NANGLE .EQ. 14 ) GO TO 100\r\n      IF( IBLOCK(1,NANGLE+1) .EQ. 1 ) GO TO 100\r\n      RETURN\r\n  100 AGAIN = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/scrlm.f",
    "content": "      SUBROUTINE SCRLM (SCURL, XXI, E, H, CONT, RP, ALF1, R1, LAM1,HF)\r\nC\r\nC THIS SUBROUTINE COMPUTES THE STRESS MATRIX IN FIELD COORDINATES\r\nC FOR THE TOROIDAL RING ELEMENT\r\nC\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN THE SCRLM SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE SEL ARRAY WILL RETURN WITH\r\nC THE STRESS MATRIX TRANSPOSED (10X15, STORED ROWWISE) BUT IN THE SCRLM\r\nC SUBROUTINE THE STRESS MATRIX IS COMPUTED AS A DOUBLY SUBSCRIPTED\r\nC 15X10 ARRAY (STORED COLUMNWISE).\r\nC\r\n      DIMENSION SCURL (15,10), E (2,2), XXI (3)\r\n      REAL LAM1 , LAM2 , LAM3 ,LAM4\r\nC     ------------------------------------------------------------------\r\nC\r\n      SC1 = H\r\n      SC2 =HF**3 / 12.0\r\n      JJ = 1\r\n      KK = 3\r\n      LL = 5\r\nC\r\n      DO 195 I = 1,3\r\n      XX1 = XXI(I)\r\n      XX2 = XX1 * XX1\r\n      XX3 = XX2 * XX1\r\n      XX4 = XX3 * XX1\r\n      XX5 = XX4 * XX1\r\n      CALL SOLVE1(ALF1,R1,RP,XX1,LAM2,LAM3,LAM4,CONT)\r\n      DO 185 J = 1,2\r\n      SCURL(JJ, 1) = LAM2 * E(J,2)\r\n      SCURL(JJ, 2) = SCURL(JJ,1) * XX1 + E(1,J)\r\n      SCURL(JJ, 3) = SCURL(JJ,1) * XX2 + E(1,J) * 2.0 * XX1\r\n      SCURL(JJ, 4) = SCURL(JJ,1) * XX3 + E(1,J) * 3.0 * XX2\r\n      SCURL(JJ, 5) = LAM1 * E(1,J) + LAM3 * E(J,2)\r\n      SCURL(JJ, 6) = SCURL(JJ,5) * XX1\r\n      SCURL(JJ, 7) = SCURL(JJ,5) * XX2\r\n      SCURL(JJ, 8) = SCURL(JJ,5) * XX3\r\n      SCURL(JJ, 9) = SCURL(JJ,5) * XX4\r\n      SCURL(JJ,10) = SCURL(JJ,5) * XX5\r\n      JJ = JJ + 1\r\n  185 CONTINUE\r\n      JJ = JJ + 3\r\n      DO 190 K = 1,2\r\n      SCURL (KK,1) = 0.0\r\n      SCURL (KK,2) = 0.0\r\n      SCURL (KK,3) = 0.0\r\n      SCURL (KK,4) = 0.0\r\n      SCURL(KK, 5) = 0.0\r\n      SCURL(KK, 6) = -LAM2 * E(K,2)\r\n      SCURL(KK, 7) = SCURL(KK,6) * 2.0 * XX1 - E(1,K) *  2.0\r\n      SCURL(KK, 8) = SCURL(KK,6) * 3.0 * XX2 - E(1,K) *  6.0 * XX1\r\n      SCURL(KK, 9) = SCURL(KK,6) * 4.0 * XX3 - E(1,K) * 12.0 * XX2\r\n      SCURL(KK,10) = SCURL(KK,6) * 5.0 * XX4 - E(1,K) * 20.0 * XX3\r\n      KK = KK + 1\r\n  190 CONTINUE\r\n      KK = KK + 3\r\n      EL = E(1,1) * LAM2\r\n      ELL = EL * LAM1\r\n      EEL = E(1,1) * LAM1\r\n      SCURL (LL,1) = 0.0\r\n      SCURL (LL,2) = 0.0\r\n      SCURL (LL,3) = 0.0\r\n      SCURL (LL,4) = 0.0\r\n      SCURL (LL,5) = 0.0\r\n      SCURL(LL, 6) = LAM2**2 * E(2,2) - LAM4 * E(1,2)\r\n      SCURL(LL, 7) = SCURL(LL,6) * 2.0 * XX1 - 2.0 * EL\r\n      SCURL(LL, 8) = SCURL(LL,6) * 3.0 * XX2 - 6.0 * (EL * XX1 + E(1,1))\r\n      SCURL(LL, 9) = SCURL(LL,6) * 4.0 * XX3 - 12.0 * EL * XX2 - 24.0 *\r\n     1 E(1,1) * XX1\r\n      SCURL(LL,10) = SCURL(LL,6) * 5.0 * XX4 - 20.0 * EL * XX3 - 60.0 *\r\n     1 E(1,1) * XX2\r\n      LL = LL + 5\r\n  195 CONTINUE\r\nC\r\nC     ADJUSTMENT FOR SHELL CAP CASE\r\n      IF ( ALF1 .NE. 0.0 )  GO TO 198\r\n      SCURL (1,2) =  E(1,2) + E(1,1)\r\n      SCURL (2,2) =  E(2,2) + E(1,2)\r\n      SCURL (3,7) = -2. * (E(1,2) + E(1,1) )\r\n      SCURL (4,7) =  2. * (E(2,2) + E(1,2) )\r\n      SCURL (5,8) =  3. * (E(2,2) - 4.*E(1,1) )\r\n  198 DO 200 J = 1,15,5\r\n      DO 200 I = 1,10\r\n      SCURL(J  ,I) = SCURL(J  ,I) * SC1\r\n      SCURL(J+1,I) = SCURL(J+1,I) * SC1\r\n      SCURL(J+2,I) = SCURL(J+2,I) * SC2\r\n      SCURL(J+3,I) = SCURL(J+3,I) * SC2\r\n      SCURL(J+4,I) = SCURL(J+4,I) * SC2\r\n  200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sd2rhd.f",
    "content": "      SUBROUTINE SD2RHD (ISTYP,ISETUP)\r\nC\r\nC     THIS ROUTINE WRITES HEADING FOR PRECISION CHECK IN SDR2E.\r\nC     WORDS 1,2,6 AND 7 PRESET BY CALLING ROUTINE.\r\nC     ISETUP.NE.0 FIRST CALL.\r\nC\r\n      INTEGER BRANCH, LDMD(8)  ,ISTYP(7)\r\n      COMMON /SDR2X4/ DUMMY(50),BRANCH\r\n      COMMON /SYSTEM/ ISYSB    ,NOUT\r\n      EQUIVALENCE     (ISTYP6,RSTYP6), (ISTYP7,RSTYP7)\r\n      DATA    LDMD  / 4HLOAD, 4HMODE, 4H, FR, 4HEQ.=, 4H, EI, 4HGEN=,\r\n     1                4H, TI, 4HME =  /\r\nC\r\n      IF (ISETUP .EQ. 0) GO TO 1510\r\n      GO TO (1501,1503,1501,1501,1503,1505,1501,1507,1507,1501), BRANCH\r\nC\r\nC     STATICS\r\nC\r\n 1501 N1 = 3\r\n      ISTYP(3) = LDMD(1)\r\n      GO TO 1510\r\nC\r\nC     EIGR,FREQ\r\nC\r\n 1503 N1 = 6\r\n      ISTYP(3) = LDMD(2)\r\n      ISTYP(4) = LDMD(3)\r\n      ISTYP(5) = LDMD(4)\r\n      GO TO 1510\r\nC\r\nC     TRANSIENT\r\nC\r\n 1505 N1 = 6\r\n      ISTYP(3) = LDMD(1)\r\n      ISTYP(4) = LDMD(7)\r\n      ISTYP(5) = LDMD(8)\r\n      GO TO 1510\r\nC\r\nC     BUCKLING, COMPLEX EIGENVALUE\r\nC\r\n 1507 N1 = 6\r\n      ISTYP(3) = LDMD(2)\r\n      ISTYP(4) = LDMD(5)\r\n      ISTYP(5) = LDMD(6)\r\n      IF (BRANCH.EQ.9) N1 = 7\r\nC\r\n 1510 CALL PAGE2 (3)\r\n      ISTYP6 = ISTYP(6)\r\n      ISTYP7 = ISTYP(7)\r\n      IF (N1 .EQ. 3) WRITE(NOUT,1512) (ISTYP(I),I=1,N1)\r\n      IF (N1 .EQ. 6) WRITE(NOUT,1512) (ISTYP(I),I=1,5),RSTYP6\r\n      IF (N1 .EQ. 7) WRITE(NOUT,1512) (ISTYP(I),I=1,5),RSTYP6,RSTYP7\r\n 1512 FORMAT (1H0,5X,45HE L E M E N T   P R E C I S I O N   C H E C K,\r\n     1   /4X,32HSIGNIFICANT DIGITS FOR SUBCASE =,I7,1H,,I7,3H = ,3A4,\r\n     2   1P,2E15.6)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcin.f",
    "content": "      SUBROUTINE SDCIN (BLOCK,AC,N,VECS,VECD)\r\nC\r\nC     SDCIN USES GETSTR/ENDGET TO READ A ROW OF A MATRIX AND ADD THE\r\nC     TERMS OF THE ROW INTO A VECTOR\r\nC\r\nC     BLOCK = A 15-WORD ARRAY IN WHICH BLOCK (1) = GINO NAME\r\nC     AC    = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0)\r\nC     N     = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS\r\nC     VECS  = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED BY\r\nC     THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC\r\nC     VECD  = SAME VECTOR AS VECS\r\nC\r\n      INTEGER          AC(1)    ,PRC     ,WORDS    ,RLCMPX   ,TYPE   ,\r\n     1                 RC       ,PREC    ,BLOCK(15)\r\n      REAL             VECS(1)  ,XNS(1)\r\n      DOUBLE PRECISION XND      ,VECD(1)\r\n      COMMON /TYPE  /  PRC(2)   ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /SYSTEM/  SYSBUF   ,NOUT\r\n      COMMON /ZZZZZZ/  XND(1)\r\n      EQUIVALENCE      (XND(1),XNS(1))\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      TYPE = BLOCK(2)\r\n      PREC = PRC(TYPE)\r\n      RC   = RLCMPX(TYPE)\r\n      I    = 1\r\nC\r\nC     LOCATE POSITION IN VECTOR CORRESPONDING TO STRING\r\nC\r\n   10 IF (I .GT. N) GO TO 92\r\n      DO 11 J = I,N\r\n      IF (IABS(AC(J)) .EQ. BLOCK(4)) GO TO 12\r\n   11 CONTINUE\r\n      GO TO 90\r\n   12 I = J + BLOCK(6)\r\n      NN = BLOCK(4) + BLOCK(6) - 1\r\n      IF (IABS(AC(I-1)) .NE. NN) GO TO 91\r\nC\r\nC     ADD TERMS FROM STRING INTO VECTOR\r\nC\r\n      II = RC*(J-1)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + RC*BLOCK(6) - 1\r\n      IF (PREC .EQ. 2) GO TO 24\r\nC\r\n      DO 22 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      VECS(II) = VECS(II) + XNS(JJ)\r\n   22 CONTINUE\r\n      GO TO 30\r\nC\r\n   24 DO 26 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      VECD(II) = VECD(II) + XND(JJ)\r\n   26 CONTINUE\r\nC\r\nC     CLOSE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   30 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*99,BLOCK)\r\n      GO TO 10\r\nC\r\nC     LOGIC ERRORS\r\nC\r\n   90 KERR = 1\r\n      GO TO 97\r\n   91 KERR = 2\r\n      GO TO 97\r\n   92 KERR = 3\r\n      GO TO 97\r\n   97 WRITE  (NOUT,98) KERR\r\n   98 FORMAT (22H0*** SDCIN FATAL ERROR ,I2)\r\n      CALL MESAGE (-61,0,0)\r\n   99 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcins.f",
    "content": "      SUBROUTINE SDCINS (*,BLOCK,AC,N,VECS,VECD)\r\nC\r\nC     SDCIN USES GETSTR/ENDGET TO READ A ROW OF A MATRIX AND ADD THE\r\nC     TERMS OF THE ROW INTO A VECTOR.  USED BY REAL SYM. DECOMP WITH\r\nC     EXTENDED ERROR MESSAGES QUEUED (SDCMPS).\r\nC\r\nC     BLOCK = A 15-WORD ARRAY IN WHICH BLOCK (1) = GINO NAME\r\nC     AC    = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0)\r\nC     N     = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS\r\nC     VECS  = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED BY\r\nC     THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC\r\nC     VECD  = SAME VECTOR AS VECS\r\nC     NONSTANDARD RETURN TO SET FATAL MESSAGE -61.\r\nC\r\n      INTEGER          AC(1)    ,BLOCK(15),PRC     ,PREC    ,RLCMPX ,\r\n     1                 TYPE     ,WORDS\r\n      REAL             VECS(1)  ,XNS(1)\r\n      DOUBLE PRECISION XND(1)   ,VECD(1)\r\n      COMMON /SYSTEM/  SYSBUF   ,NOUT\r\n      COMMON /TYPE  /  PRC(2)   ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /ZZZZZZ/  XND\r\n      EQUIVALENCE      (XND(1),XNS(1))\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      TYPE = BLOCK(2)\r\n      PREC = PRC(TYPE)\r\n      I    = 1\r\nC\r\nC     LOCATE POSITION IN VECTOR CORRESPONDING TO STRING\r\nC\r\n   10 IF (I .GT. N) GO TO 92\r\n      DO 11 J = I,N\r\n      IF (IABS( AC(J)) .EQ. BLOCK(4)) GO TO 12\r\n   11 CONTINUE\r\n      GO TO 90\r\n   12 I  = J + BLOCK(6)\r\n      NN = BLOCK(4) + BLOCK(6) - 1\r\n      IF (IABS(AC(I-1)) .NE. NN) GO TO 91\r\nC\r\nC     ADD TERMS FROM STRING INTO VECTOR\r\nC\r\n      II   = J - 1\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + BLOCK(6) - 1\r\n      IF (PREC .EQ. 2) GO TO 24\r\nC\r\n      DO 22 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      VECS(II) = VECS(II) + XNS(JJ)\r\n   22 CONTINUE\r\n      GO TO 30\r\nC\r\n   24 DO 26 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      VECD(II) = VECD(II) + XND(JJ)\r\n   26 CONTINUE\r\nC\r\nC     CLOSE CURRENT STRING AND GET NEXT STRING\r\nC\r\n   30 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*99,BLOCK)\r\n      GO TO 10\r\nC\r\nC     LOGIC ERRORS\r\nC\r\n   90 KERR = 1\r\n      GO TO 97\r\n   91 KERR = 2\r\n      GO TO 97\r\n   92 KERR = 3\r\n      GO TO 97\r\n   97 CALL PAGE2 (2)\r\n      WRITE  (NOUT,98) KERR\r\n   98 FORMAT (22H0*** SDCIN FATAL ERROR ,I2)\r\n      RETURN 1\r\n   99 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcmm.f",
    "content": "      SUBROUTINE SDCMM (Z,MSET,MSZE,MATRIX,USET,GPL,SIL,SUBNAM)\r\nC\r\nC     THIS ROUTINE WRITES THE EXTERNAL ID AND COMPONENT ID FOR VARIOUS\r\nC     MATRIX ERROR CONDITIONS.\r\nC     SCRATCH1 CONTAINS 3 WORDS/ERROR, EACH MESSAGE BEING 1 RECORD\r\nC         WORD 1 = COLUMN * 10 + ERROR CODE\r\nC         WORD 2 = INPUT DIAGONAL\r\nC         WORD 3 = OUTPUT DIAGONAL\r\nC     SUBROUTINE -MXCID- (NON-SUBSTRUCTURING) IS CALLED TO SUPPLY IDENT.\r\nC     DATA FOR EACH COLUMN.  FOR SUBSTRUCTURING -MXCIDS- IS CALLED - IT\r\nC     RETURNS TWO WORDS/COLUMN PLUS THE BCD NAME OF THE SUBSTRUCTURES AT\r\nC     THE START OF CORE.  IN EITHER CASE, THE 1ST WORD IS 10*ID +\r\nC         COMPONENT.\r\nC     THE SCRATCH FILE IS READ AND THE EXTERNAL ID INDEXED DIRECTLY.E\r\nC     NOTE - THAT EACH COLUMN MAY GENERATE MORE THAN 1 MESSAGE.\r\nC     OPEN CORE IS Z(1) TO Z(BUF-1).  TWO BUFFERS FOLLOW Z(BUF)\r\nC\r\n      INTEGER         BUF,BUF2,SIL,EXIT(8),ERR(14),FILMSG,GPID(4),GPL,\r\n     1                IN(3),INER(4),N(7),NAME(2),SUBNAM(2),TYP(6),USET,\r\n     2                Z(1)\r\n      CHARACTER       UFM*23,UWM*25\r\nCWKBNB 8/94\r\n      CHARACTER*4     CTYP(6)\r\n      REAL            XGPID(4), XIN(3)\r\nCWKBNE 8/94\r\nCWKBI  8/94\r\n      EQUIVALENCE     (CTYP,TYP), (XGPID,GPID), (XIN,IN)\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SDCQ  / NERR(2),NOGLEV,BUF,FILMSG\r\n      COMMON /NAMES / KRD2,KRR0,SKPN(3), KCL2\r\n      COMMON /SYSTEM/ KSYSTM(69)\r\n      EQUIVALENCE     (KSYSTM(1),NBUFSZ),(KSYSTM(2),IOUT),\r\n     1                (KSYSTM(69),ISUBST)\r\n      DATA    ERR   / 4HNULL, 4HCOL., 4HZERO, 4HDIAG, 4HNEG., 4HDIAG,\r\n     1                4HSING, 4HTEST, 4HBAD , 4HCOL., 4HNON-, 4HCONS,\r\n     2                4HZERO, 4HDIAG/\r\n      DATA    INER  / 4HINPU, 2HT   , 4HDECM, 2HP   /\r\n      DATA    EXIT  / 4HCONT, 4HINUE, 4HAT E, 4HND  , 4HAT S, 4HTART,\r\n     1                4HIN D, 4HECMP/\r\n      DATA    NAME  / 4HSDCM, 2HM   /\r\n      DATA    IBLK  / 4H    /\r\nC\r\n      BUF2 = BUF + NBUFSZ\r\n      N(1) = 0\r\n      N(2) = 0\r\n      N(3) = 0\r\n      N(4) = 0\r\n      N(5) = 0\r\n      N(6) = 0\r\n      N(7) = 0\r\n      IF (BUF .LE. 0) GO TO 50\r\nC\r\nC     GENERATE EXTERNAL ID\r\nC\r\n      IF (ISUBST .EQ. 0) GO TO 5\r\nC\r\nC     SUBSTRUCTURING - READ EQSS FILE ON THE SOF\r\nC\r\nC     4 BUFFERS NEEDED\r\nC\r\n      I = BUF - 2*NBUFSZ\r\n      IF (I .LE. 3*MSZE) GO TO 50\r\n      NWDS = 2\r\n      CALL MXCIDS (*50,Z,MSET,MSZE,NWDS,USET,I,SUBNAM)\r\n      NSTART = I - 1\r\n      GO TO  7\r\nC\r\n    5 NSTART = 0\r\n      NWDS   = 1\r\nC\r\nC     2 BUFFERS NEEDED\r\nC\r\n      CALL MXCID (*50,Z,MSET,MSZE,NWDS,USET,GPL,SIL,BUF)\r\nC\r\n    7 CALL OPEN (*110,FILMSG,Z(BUF2),KRR0)\r\n      CALL PAGE2 (3)\r\n      WRITE  (IOUT,10) UWM\r\n   10 FORMAT (A25,' 2377A, MATRIX CONDITIONING ERRORS GIVEN WITH ',\r\n     1       'EXTERNAL ID', /5X,'GID - C  INPUT-DIAG.   DECOMP-DIAG.',\r\n     2       6X,'TYPE',17X,'SUBSTRUCTURE')\r\nC\r\n      ASSIGN 30 TO IRET\r\n      TYP(5) = IBLK\r\n      TYP(6) = IBLK\r\n      IF (ISUBST.NE.0) ASSIGN 27 TO IRET\r\nC\r\nC     LOOP ON MESSAGES - 0 COLUMN IS FLAG TO QUIT\r\nC\r\n   20 CALL FREAD (FILMSG,IN,3,1)\r\n      IF (IN(1) .EQ. 0) GO TO 200\r\n      I = IN(1)/10\r\n      J = IN(1) - I*10\r\n      L = NSTART + I*NWDS\r\n      GPID(1) = Z(L)/10\r\n      GPID(2) = Z(L) - GPID(1)*10\r\n      GPID(3) = IN(2)\r\n      GPID(4) = IN(3)\r\nC\r\nC     INTERNAL FUNCTION\r\nC\r\n   25 CONTINUE\r\n      IF (J.LE.0 .OR. J.GT.7) GO TO 100\r\n      K = 2*J - 1\r\n      TYP(1) = ERR(K)\r\n      TYP(2) = ERR(K+1)\r\n      K = 1\r\n      IF (J.GT.1 .AND. J.LT.7) K = 3\r\n      TYP(3) = INER(K  )\r\n      TYP(4) = INER(K+1)\r\n      N(J) = N(J) + 1\r\n      CALL PAGE2 (2)\r\n      GO TO IRET, (27,30,80)\r\nC\r\n   27 TYP(5) = Z(2*L-1)\r\n      TYP(6) = Z(2*L  )\r\n   30 CONTINUE\r\nCWKBR 8/94      WRITE  (IOUT,40) GPID,TYP\r\n      WRITE ( IOUT, 40 ) GPID(1), GPID(2), XGPID(3), XGPID(4), CTYP\r\n   40 FORMAT (1H0,I9,2H -,I2,1P,2E14.6,3X,2A5,2H/ ,A4,A2,6HMATRIX,2X,\r\n     1        2A4)\r\n      GO TO 20\r\nC\r\nC     INSUFFICIENT CORE IN -MATCID-\r\nC\r\n   50 CALL PAGE2 (3)\r\n      WRITE  (IOUT,60) UWM\r\n   60 FORMAT (A25,' 2377B, MATRIX CONDITIONING ERRORS GIVEN WITH ',\r\n     1       'INTERNAL ID', /,5X,'COLUMN  INPUT DIAG.   DECOMP-DIAG.',\r\n     2       6X,'TYPE')\r\nC\r\n      CALL OPEN (*110,FILMSG,Z(BUF2),KRR0)\r\n      ASSIGN 80 TO IRET\r\nC\r\nC     LOOP\r\nC\r\n   70 CONTINUE\r\n      CALL FREAD (FILMSG,IN,3,1)\r\n      IF (IN(1) .EQ. 0) GO TO 200\r\n      I = IN(1)/10\r\n      J = IN(1) - I*10\r\n      IN(1) = I\r\n      GO TO 25\r\nC\r\n   80 CONTINUE\r\nCWKBR 8/94  WRITE  (IOUT,90) IN,TYP\r\n      WRITE  (IOUT,90) IN(1), XIN(2), XIN(3), CTYP      \r\n   90 FORMAT (1H0,I8,1P,2E14.6,3X,2A5,2H/ ,A4,A2,6HMATRIX,2X,2A4)\r\n      GO TO 70\r\nC\r\nC     ILLEGAL DATA\r\nC\r\n  100 CALL MESAGE (7,FILMSG,NAME)\r\n      GO TO 200\r\nC\r\nC     SCRATCH FILE NOT AVAILABLE\r\nC\r\n  110 CALL MESAGE (1,FILMSG,NAME)\r\nC\r\nC     ALL DONE, SUMMARIZE\r\nC\r\n  200 CALL PAGE2 (11)\r\n      WRITE  (IOUT,210) MATRIX,MSZE,N\r\n  210 FORMAT (1H0,3X,10HFOR MATRIX,I4,6H, SIZE,I8,/I9,13H NULL COLUMNS,\r\n     1 /I9,15H ZERO DIAGONALS, /I9,19H NEGATIVE DIAGONALS, /I9,\r\n     2 31H SINGULARITY TOLERANCE EXCEEDED, /I9,12H BAD COLUMNS, /I9,\r\n     3 24H NONCONSERVATIVE COLUMNS, /I9,23H ZERO DIAGONALS (INPUT))\r\nC\r\nC     CHECK FOR EXIT CONDITIONS\r\nC\r\n      I = 2*NOGLEV + 1\r\nC\r\nC     NOTE - NOGLEV OF 4 ALSO HAS NEGATIVE PARM(1)\r\nC\r\n      IF (NOGLEV .EQ. 4) I = 7\r\n      J = I + 1\r\n      WRITE  (IOUT,220) EXIT(I),EXIT(J)\r\n  220 FORMAT (1H0,3X,13HABORT CODE = ,2A4)\r\n      CALL CLOSE (FILMSG,KCL2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcmps.f",
    "content": "      SUBROUTINE SDCMPS (ZI,ZR,ZD)\r\nC\r\nC     SDCMPS PERFORMS THE TRIANGULAR DECOMPOSITION OF A SYMMETRIC\r\nC     MATRIX. THE REAL MATRIX INPUT MAY BE SINGLE OR DOUBLE PRECISION.\r\nC     THE OUTPUT MATRICES HAVE POSITIVE DEFINATE CHECKS AND DIAGONAL\r\nC     SINGULARITY CHECKS\r\nC\r\nC     IF SYSTEM(57) IS .GT.1 - USED FOR -CLOS-,\r\nC                      .LT.0 - STOP AFTER PREPASS\r\nC\r\n      EXTERNAL          LSHIFT   ,ANDF     ,ORF\r\n      LOGICAL SPILL    ,SPLOUT   ,SPLIN    ,ROWONE   ,OPNSCR   ,FIRST\r\n      INTEGER ABLK     ,ANDF     ,ANY      ,BEGN     ,BBLK     ,BLK    ,\r\n     1        BUF1     ,BUF2     ,BUF3     ,BUF4     ,BUF5     ,BUF6   ,\r\n     2        C        ,CAVG     ,CHLSKY   ,CI       ,CLOS     ,CMAX   ,\r\n     3        COL      ,C5MAX    ,DBA      ,DBC      ,DBL      ,END    ,\r\n     4        DIAGCK   ,DIAGET   ,SYS60    ,HICORE   ,DBNAME(2)        ,\r\n     5        EOR      ,FRSTPC   ,GROUPS   ,KEY(1)   ,ORF      ,ROW    ,\r\n     6        PARM     ,PCAVG    ,PCGROU   ,PCMAX    ,PCROW    ,\r\n     7        PCSQR    ,PDEFCK   ,POWER    ,PRC      ,PREC     ,PREVC  ,\r\n     8        RC       ,RLCMPX\r\n      INTEGER S        ,SAVG     ,SC       ,SCRA     ,SCRB     ,SCRC   ,\r\n     1        SCRD     ,SCRDIA   ,SCRMSG   ,SCR1     ,SCR2     ,SCR3   ,\r\n     2        SPFLG    ,SPROW    ,START    ,STATFL   ,STSCR    ,ZI(1)  ,\r\n     3        SX       ,SYSBUF   ,SUBNAM(3),TYPEA    ,TWO24    ,TWO25  ,\r\n     5        WA       ,WB       ,WORDS\r\n      REAL    MINDS    ,SAVE(4)  ,ZR(1)    ,DDRR(2)\r\n      DOUBLE PRECISION  DDIA     ,DDC      ,DDR      ,DMANT    ,DV     ,\r\n     1        MINDD    ,PDEFD    ,ZD(1)\r\n      CHARACTER*10      UNUSE    ,ADDI     ,UNADD\r\n      CHARACTER         UFM*23   ,UWM*25   ,UIM*29   ,SFM*25\r\n      COMMON /XMSSG /   UFM      ,UWM      ,UIM      ,SFM\r\n      COMMON /MACHIN/   MACHX\r\n      COMMON /LHPWX /   LHPW(6)  ,MTISA\r\n      COMMON /SFACT /   DBA(7)   ,DBL(7)   ,DBC(7)   ,SCR1     ,SCR2   ,\r\n     1                  LCORE    ,DDR      ,DDC      ,POWER    ,SCR3   ,\r\n     2                  MINDD    ,CHLSKY\r\n      COMMON /NTIME /   NITEMS   ,TMIO     ,TMBPAK   ,TMIPAK   ,TMPAK  ,\r\n     1                  TMUPAK   ,TMGSTR   ,TMPSTR   ,TMT(4)   ,TML(4)\r\n      COMMON /SYSTEM/   KSYSTM(100)\r\n      COMMON /NAMES /   RDNRW    ,RDREW    ,WRT      ,WRTREW   ,REW\r\n      COMMON /TYPE  /   PRC(2)   ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /ZZZZZZ/   XNS(1)\r\n      COMMON /SDCOMX/   ROW      ,C        ,SPFLG    ,START    ,FRSTPC ,\r\n     1                  LASTPL   ,LASTI    ,SC       ,IAC      ,NZZADR ,\r\n     2                  WA       ,WB       ,PREVC    ,NZZZ     ,SPROW  ,\r\n     3                  S        ,BLK(15)  ,ABLK(15) ,BBLK(20)\r\n      COMMON /SDCQ  /   NERR(2)  ,NOGLEV   ,BUF6     ,SCRMSG   ,SCRDIA ,\r\n     1                  STSCR    ,PDEFCK   ,DIAGCK   ,DIAGET   ,PREC   ,\r\n     2                  PARM(4)  ,OPNSCR   ,FIRST\r\n      COMMON /PACKX /   ITYPE1   ,ITYPE2   ,I1       ,J1       ,INCR1\r\n      COMMON /UNPAKX/   ITYPE3   ,I2       ,J2       ,INCR2\r\n      EQUIVALENCE       (NROW,DBA(3))  ,(TYPEA,DBA(5)) ,\r\n     1                  (JSTR,BLK(5))  ,(COL  ,BLK(4)) ,(NTERMS,BLK(6)),\r\n     2                  (ROW ,KEY(1))  ,(DSR   ,DDR  ) ,\r\n     3                  (DSC,DDC)      ,(MINDS,MINDD ) ,(DDRR(1),RDIA ),\r\n     4                  (DV,RV) ,(DMANT,RMANT),(DDIA,RDIA),(PDEFD,PDEFR)\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),NOUT) ,\r\n     1                  (KSYSTM(31),HICORE) ,(KSYSTM(40),NBPW) ,\r\n     2                  (KSYSTM(60),SYS60 )\r\n      DATA    UNUSE  ,  ADDI  /'    UNUSED', 'ADDITIONAL' /\r\n      DATA    SUBNAM /  4HSDCM,2HPS, 1H   /,\r\n     1        NKEY   /  6 / ,BEGN/ 4HBEGN /,  END/ 4HEND  /,\r\n     2        TWO24  /  16777216 /, TWO25 /   33554432    /\r\nC\r\nC     STATEMENT FUNCTIONS\r\nC\r\n      NBRWDS(I) = I + NWDS*(I*(I+1))/2\r\n      SX(X)     = X - SQRT(AMAX1(X*(X+4.0)-CONS,0.0)) - 1.0\r\n      MAXC(J)   = (SQRT(2.*FNWDS*FLOAT(J))-3.0)/FNWDS\r\nC\r\nC     VAX, UNIVAC, AND ALL WORKSTATIONS - OPEN CORE CAN BE INCREASED\r\nC     LOCALLY FOR SDCOMP BY SYS60\r\nC\r\n      X = 1.0\r\n      KORCHG = 0\r\n      IF (SYS60.EQ.0 .OR. MACHX.EQ.2 .OR. NBPW.GT.36) GO TO 20\r\n      KORCHG = SYS60 - HICORE\r\n      IF (KORCHG .LE. 0) GO TO 20\r\n      LCORE = LCORE + KORCHG\r\n      WRITE  (NOUT,10) UIM,SYS60\r\n   10 FORMAT (A29,' - OPEN CORE FOR SDCOMP IS INCREASED TO',I8,\r\n     1       ' WORDS BY SYSTEM(60)',/)\r\n   20 IF (LCORE .LE. 0) CALL MESAGE (-8,0,SUBNAM)\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      BUF1 = LCORE- SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      BUF5 = BUF4 - SYSBUF\r\n      BUF6 = BUF5 - SYSBUF\r\nC\r\nC     INITIALIZATION AS A FUNCTION OF TYPE OF A MATRIX\r\nC     RC   = 1 IF A IS REAL (2 IF A IS COMPLEX - ILLEGAL)\r\nC     PREC = 1 IF A IS SINGLE, 2 IF A IS DOUBLE\r\nC\r\n      RC    = RLCMPX(TYPEA)\r\n      IF (RC .NE. 1) GO TO 1600\r\n      STATFL= IABS(KSYSTM(57))\r\n      PREC  = PRC(TYPEA)\r\n      NWDS  = WORDS(TYPEA)\r\n      FNWDS = NWDS\r\nC\r\nC     CHECK INPUT PARAMETERS\r\nC\r\n      IF (DBA(2) .NE. DBA(3)) GO TO 1600\r\n      ICRQ = NROW + 200 - BUF6\r\n      IF (ICRQ .GT. 0) GO TO 1850\r\nC\r\nC     INITIALIZE POSITIVE DEFINATE CHECKS.  FILES SET IN DRIVER\r\nC\r\n      PARM(1) = 0\r\n      PARM(3) = SUBNAM(1)\r\n      PARM(4) = SUBNAM(2)\r\n      NERR(1) = 0\r\n      NERR(2) = 0\r\n      IF (PDEFCK .LT. 0) GO TO 50\r\n      I = -DIAGET\r\n      J = 1 - MTISA\r\n      IF (PREC .EQ. 2) GO TO 30\r\n      PDEFR = 2.0E0**I\r\n      RMANT = 2.0E0**J\r\n      GO TO 50\r\n   30 PDEFD = 2.0D0**I\r\n      DMANT = 2.0D0**J\r\n      GO TO 50\r\n   50 CONTINUE\r\nC\r\nC     STSCR IS STATUS OF -SCRDIA- FILE AT BUF6\r\nC       0 = NOT OPEN\r\nC       1 = READ\r\nC       2 = WRITE\r\nC\r\n      STSCR = 2\r\n      CALL GOPEN (SCRDIA,ZI(BUF6),WRTREW)\r\n      SCRA = SCR3\r\n      SCRB = IABS(DBC(1))\r\n      NOGLEV = 0\r\n      IF (NROW .EQ. 1) GO TO 1510\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      LOOP  = 1\r\n      ISPILL= BUF6 - MAX0(100,NROW/100)\r\n      FCMAX = 0.\r\n   60 ISPILL= ISPILL - (LOOP-1)*NROW/100\r\n      NSPILL= ISPILL\r\n      KROW  = NROW + 1\r\n      ICRQ  = (3-LOOP)*NROW/100 - ISPILL\r\n      IF (ISPILL .LE. 0) GO TO 1850\r\n      ZI(ISPILL) = 0\r\n      PCGROU= 0\r\n      PCAVG = 0\r\n      PCSQR = 0\r\n      PCMAX = 0\r\n      CSQR  = 0.0\r\n      SAVG  = 0\r\n      CLOS  = ALOG(FLOAT(NROW)) + 5.0\r\n      IF (STATFL .GT. 1) CLOS = STATFL\r\n      PCROW = -CLOS\r\n      ZI(1) = -NROW\r\n      DO 70 I = 2,NROW\r\n   70 ZI(I) = 0\r\n      CALL FNAME (DBA,DBNAME)\r\n      POWER = 0\r\n      SPILL = .FALSE.\r\n      GROUPS= 0\r\n      CONS  = 2*ISPILL/NWDS\r\n      C5MAX = MAXC(ISPILL)\r\n      DSR   = 1.0\r\n      DSC   = 0.\r\n      MINDS = 1.E+25\r\n      IF (PREC .EQ. 1) GO TO 80\r\n      DDR   = 1.0D0\r\n      DDC   = 0.D0\r\n      MINDD = 1.D+25\r\n   80 CONTINUE\r\n      CAVG  = 0\r\n      CMAX  = 0\r\n      CSPILL= 0.0\r\nC\r\nC     THE FOLLOWING CODE GENERATES THE ACTIVE COLUMN VECTOR FOR EACH\r\nC     ROW, SPILL GROUPS AND TIMING AND USER INFORMATION ABOUT THE\r\nC     DECOMPOSITION\r\nC\r\n      BLK(1)  = DBA(1)\r\n      ABLK(1) = SCRA\r\n      ABLK(2) = TYPEA\r\n      ABLK(3) = 0\r\n      CALL GOPEN (DBA ,ZI(BUF1),RDREW )\r\n      CALL GOPEN (SCRA,ZI(BUF2),WRTREW)\r\n      ROW = 1\r\n      JJ  = 0\r\n      EOR = 1\r\nC\r\nC     LSTDIA DETERMINES THE LAST DIAGONAL WRITTEN TO SCRATCH FILE\r\nC\r\n      LSTDIA = 0\r\nC\r\nC     BEGIN A ROW BY LOCATING THE DIAGONAL ELEMENT\r\nC\r\n   90 BLK(8) = -1\r\nC\r\nC     ANY DETERMINES IF ANY STRINGS SKIPPED PRIOR TO DIAGONAL\r\nC     AND -KK- ALLOWS STRING BEYOND ZERO DIAGONAL TO BE SAVED\r\nC\r\n      ANY = 0\r\n      KR  = KROW\r\n  100 CALL GETSTR (*110,BLK)\r\n      IF (PREC .EQ. 2) JSTR = 2*(JSTR-1) + 1\r\n      KK  = NTERMS\r\n      ANY = COL\r\n      IF (COL.GT.ROW) GO TO 130\r\n      KK  = 0\r\n      IF (COL+NTERMS-1 .GE. ROW) GO TO 140\r\n      CALL ENDGET (BLK)\r\n      GO TO 100\r\nC\r\nC     NULL COLUMN FOUND.  SAVE COLUMN ID AND SET NOGLEV\r\nC\r\n  110 KK = -1\r\n      IF (ANY .NE. 0) GO TO 130\r\n      IF (LSTDIA .LT. ROW) CALL SDCMQ (*710,1,0.,0.,0.D0,0.D0,ROW,ZI)\r\n  120 IF (BLK(8) .NE. 1) CALL FWDREC (*1680,BLK)\r\n      ROW = ROW + 1\r\n      IF (ROW .LE. NROW) GO TO 90\r\n      GO TO 710\r\nC\r\nC     ZERO DIAGONAL FOUND.  FILL CORE AND POINTERS\r\nC\r\n  130 COL = ROW\r\n      ZI(KR  ) = COL\r\n      ZI(KR+1) = 1\r\n      ZI(KR+2) = 0\r\n      IF (NWDS .EQ. 2) ZI(KR+3) = 0\r\n      KR = KR + 2 + NWDS\r\n      NTERMS = NWDS\r\n      IF (LSTDIA .GE. ROW) GO TO 140\r\n      DDIA = 0.0D0\r\n      CALL SDCMQ (*710,7,0.,0.,0.D0,0.D0,ROW,ZI)\r\n      IF (NOGLEV .GT. 1) GO TO 120\r\n      CALL WRITE (SCRDIA,RDIA,NWDS,EOR)\r\n      LSTDIA = ROW\r\n      GO TO 180\r\nC\r\nC     DIAGONAL TERM IS LOCATED -- COMPLETE ENTRIES IN THE FULL COLUMN\r\nC     VECTOR AND SAVE THE TERMS FROM EACH STRING IN CORE\r\nC\r\n  140 CONTINUE\r\n      JSTR = JSTR + (ROW-COL)*NWDS\r\n      IF (LSTDIA .GE. ROW) GO TO 150\r\n      RDIA = XNS(JSTR)\r\n      IF (PREC .EQ. 2) DDRR(2) = XNS(JSTR+1)\r\n      IF (NOGLEV .LE. 1) CALL WRITE (SCRDIA,RDIA,NWDS,EOR)\r\n      LSTDIA = ROW\r\n  150 CONTINUE\r\n      NTERMS = NTERMS - (ROW-COL)\r\n      COL = ROW\r\n  160 ZI(KR  ) = COL\r\n      ZI(KR+1) = NTERMS\r\n      KR = KR + 2\r\n      NSTR = JSTR + NTERMS*NWDS - 1\r\n      DO 170 JJ = JSTR,NSTR\r\n      ZR(KR) = XNS(JJ)\r\n      KR = KR + 1\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      N = COL + NTERMS - 1\r\n      DO 240 J = COL,N\r\n      IF (ZI(J)) 190,200,230\r\n  190 M = IABS(ZI(J))\r\n      ZI(J) = ROW\r\n      IF (M .NE. 1) ZI(J+1) = -(M-1)\r\n      GO TO 240\r\n  200 I = J\r\n  210 I = I - 1\r\n      IF (I .LE. 0) GO TO 1610\r\n      IF (ZI(I)) 220,210,1620\r\n  220 M = IABS(ZI(I))\r\n      ZI(I) = -(J-I)\r\n      ZI(J) = ROW\r\n      LEFT  = M - (J-I+1)\r\n      IF (LEFT .GT. 0) ZI(J+1) = -LEFT\r\n      GO TO 240\r\n  230 IF (ZI(J).GT.ROW .AND. ZI(J).LT.TWO24) ZI(J) = ZI(J) +TWO24 +TWO25\r\n  240 CONTINUE\r\n      ICRQ = KR - ISPILL\r\n      IF (KR .GE. ISPILL) GO TO 700\r\nC\r\nC     CHECK IF ZERO DIAGONAL WAS JUST PROCESSED\r\nC\r\n      IF (KK) 270,250,260\r\n  250 CALL ENDGET (BLK)\r\n      CALL GETSTR (*280,BLK)\r\n      IF (PREC .EQ. 2) JSTR = 2*JSTR - 1\r\n      GO TO 160\r\n  260 COL = ANY\r\n      NTERMS = KK\r\n      KK = 0\r\n      GO TO 140\r\nC\r\nC     EXTRACT ACTIVE COLUMN VECTOR FROM THE FULL COLUMN VECTOR\r\nC\r\n  270 IF (BLK(8) .NE. 1) CALL FWDREC (*1680,BLK)\r\n  280 IAC = KR\r\n      I = IAC\r\n      J = ROW\r\n      LASTPL = -1\r\n  290 IF (ZI(J)) 360,1630,300\r\n  300 IF (ZI(J)-ROW) 310,320,350\r\n  310 ZI(I) = J\r\n      GO TO 330\r\n  320 ZI(I) = -J\r\n      IF (LASTPL .LT. 0) LASTPL = I - IAC\r\n  330 I = I + 1\r\n  340 J = J + 1\r\n      GO TO 370\r\n  350 IF (ZI(J) .LT. TWO24) GO TO 340\r\n      IF (ZI(J) .LT. TWO25) GO TO 310\r\n      ZI(J) = ZI(J) - TWO25\r\n      GO TO 320\r\n  360 J = J - ZI(J)\r\n  370 IF (J .LE. NROW) GO TO 290\r\n      ICRQ = I - ISPILL\r\n      IF (I .GT. ISPILL) GO TO 700\r\n      C = I - IAC\r\n      CMAX = MAX0(CMAX,C)\r\n      NAC = IAC + C - 1\r\n      IF (LASTPL .LT. 0) LASTPL = C\r\nC\r\nC     MAKE SPILL CALCULATIONS\r\nC\r\n      SPFLG = 0\r\n      FC    = C\r\n      START = 2\r\n      IF (C .EQ. 1) START = 0\r\n      FRSTPC = 0\r\n      IF (.NOT. SPILL) GO TO 490\r\n      IF (ROW .LT. LSTROW) GO TO 410\r\nC\r\nC *3* CURRENT ROW IS LAST ROW OF A SPILL GROUP. DETERMINE IF ANOTHER\r\nC     SPILL GROUP FOLLOWS AND, IF SO, ITS RANGE\r\nC\r\n  400 CONTINUE\r\n      START = 0\r\n      IF (C .GT. C5MAX) GO TO 500\r\n      SPILL = .FALSE.\r\n      GO TO 540\r\nC\r\nC *2* CURRENT ROW IS NEITHER FIRST NOR LAST IN CURRENT SPILL GROUP.\r\nC     TEST FOR PASSIVE COL CONDITION. IF SO, TERMINATE SPILL GROUP.\r\nC     TEST FOR POSSIBLE REDEFINITION OF SPILL GROUP. IF SO, TEST FOR\r\nC     OVERFLOW OF REDEFINITION TABLE,  IF SO, TRY A DIFFERENT STRATEGY\r\nC     FOR DEFINING S AND REDO PREFACE UP TO A LIMIT OF 3 TIMES.\r\nC\r\n  410 CONTINUE\r\n      IF (IABS(ZI(IAC+1))-ROW .LT. CLOS) GO TO 420\r\n      ASSIGN 550 TO ISWTCH\r\n      LSTROW= ROW\r\n      SPILL = .FALSE.\r\n      START = 0\r\n      IF (NSPILL+2 .LT. BUF6) GO TO 470\r\n      GO TO 450\r\n  420 ASSIGN 580 TO ISWTCH\r\n      IF (C .LE. ZI(SPROW)) GO TO 580\r\n      JJ = NAC\r\n  430 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 440\r\n      JJ = JJ - 1\r\n      GO TO 430\r\n  440 SC = JJ - IAC\r\n      M  = SX(FC)\r\n      IF (SC .LE. M) GO TO 580\r\n      IF (NSPILL+2 .LT. BUF6) GO TO 460\r\n  450 CONTINUE\r\n      FCMAX = AMAX1(FCMAX,FLOAT(CMAX))\r\n      CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE (DBA ,REW)\r\n      LOOP = LOOP + 1\r\n      IF (LOOP .LE. 3) GO TO 60\r\n      ICRQ = BUF6 - NSPILL - 3\r\n      GO TO 1850\r\n  460 S = M\r\n      IJKL = MAX0(IAC,JJ - (SC-M))\r\n      LSTROW = IABS(ZI(IJKL))\r\n  470 IF (ZI(NSPILL).NE.0 .AND. ZI(NSPILL).NE.SPROW) NSPILL = NSPILL + 3\r\n      ZI(NSPILL  ) = SPROW\r\n      ZI(NSPILL+1) = S\r\n      ZI(NSPILL+2) = LSTROW\r\n      IF (ROW-LSTROW) 480,400,1670\r\n  480 CONTINUE\r\n      GO TO ISWTCH, (550,580)\r\nC\r\nC *1* CURRENT ROW IS NOT PART OF A SPILL GROUP. TEST FOR\r\nC     CREATION OF A NEW SPILL GROUP\r\nC\r\n  490 CONTINUE\r\n      IF (C .LE. C5MAX) GO TO 540\r\n  500 SPILL = .TRUE.\r\n      SPROW = ROW\r\n      GROUPS= GROUPS + 1\r\n      S = MIN0(SX(FC),NROW-SPROW)\r\n      IF (LOOP .EQ. 1) GO TO 530\r\n      JJ = IAC + S - 1\r\n  510 IF (IABS(ZI(JJ)) .LE. SPROW+S) GO TO 520\r\n      JJ = JJ - 1\r\n      GO TO 510\r\n  520 S = JJ - IAC + 1\r\n      IF (LOOP .EQ. 3) S = MIN0(S,SX(FCMAX))\r\n  530 S = MIN0(S,NROW-SPROW)\r\n      LSTROW = IABS(ZI(IAC+S-1))\r\n      SPFLG  = S\r\n      FRSTPC = LSTROW\r\n      SAVG   = SAVG + S\r\n      GO TO 580\r\nC\r\nC     TEST FOR CONDITION IN WHICH PASSIVE COLUMNS ARE CREATED\r\nC\r\n  540 COL = IABS(ZI(IAC+1))\r\n      IF (ROW-PCROW.LT.CLOS .OR. C.LT.CLOS/2 .OR. COL-ROW.LT.CLOS)\r\n     1    GO TO 580\r\nC\r\nC     CREATE PASSIVE COLUMNS BY CHANGING THEIR FIRST\r\nC     APPEARANCE IN THE FULL COLUMN VECTOR\r\nC\r\n  550 FRSTPC= 2\r\n      PCROW = ROW\r\n      PCAVG = PCAVG + C - 1\r\n      PCSQR = PCSQR + (C-1)**2\r\n      PCMAX = MAX0(PCMAX,C-1)\r\n      PCGROU= PCGROU + 1\r\n      NAC   = IAC + C - 1\r\n      IJKL  = IAC + 1\r\n      DO 570 I = IJKL,NAC\r\n      JJ = IABS(ZI(I))\r\n      IF (ZI(JJ) .LE. ROW) GO TO 560\r\n      ZI(JJ) = MIN0(ANDF(ZI(JJ),TWO24-1),COL)\r\n      GO TO 570\r\n  560 ZI(JJ) = COL\r\n  570 CONTINUE\r\nC\r\nC     WRITE ACTIVE COLUMN VECTOR\r\nC\r\n  580 IF (NOGLEV .GT. 1) GO TO 630\r\n      CALL WRITE (SCRA,KEY,NKEY,0)\r\n      CALL WRITE (SCRA,ZI(IAC),C,1)\r\nC\r\nC     WRITE ROW OF INPUT MATRIX. -IAC- POINTS TO END OF OUTPUT\r\nC\r\n      ABLK(8)  = -1\r\n      ABLK(12) = ROW\r\n      KR = KROW\r\n  590 ABLK(4)= ZI(KR)\r\n      NBRSTR = ZI(KR+1)\r\n      KR = KR + 2\r\n  600 CALL PUTSTR (ABLK)\r\n      ABLK(7) = MIN0(ABLK(6),NBRSTR)\r\n      JSTR = ABLK(5)\r\n      IF (PREC .EQ. 2) JSTR = 2*JSTR - 1\r\n      NSTR = JSTR + ABLK(7)*NWDS - 1\r\n      DO 610 JJ = JSTR,NSTR\r\n      XNS(JJ) = ZR(KR)\r\n      KR = KR + 1\r\n  610 CONTINUE\r\n      IF (KR .GE. IAC) GO TO 620\r\n      CALL ENDPUT (ABLK)\r\n      IF (ABLK(7) .EQ. NBRSTR) GO TO 590\r\n      ABLK(4) = ABLK(4) + ABLK(7)\r\n      NBRSTR  = NBRSTR  - ABLK(7)\r\n      GO TO 600\r\n  620 ABLK(8) = 1\r\n      CALL ENDPUT (ABLK)\r\nC\r\nC     ACCUMULATE TIMING AND STATISTICS INFORMATION\r\nC\r\n  630 CAVG = CAVG + C\r\n      CSQR = CSQR + C**2\r\n      IF (SPILL) CSPILL = CSPILL + C**2\r\n      ZI(ROW) = C\r\n      IF (ROW .EQ. NROW) GO TO 710\r\n      ROW = ROW + 1\r\n      GO TO 90\r\nC\r\nC     HERE WHEN ALL ROWS PROCESSED -- CLOSE FILES AND, IF SINGULAR\r\nC     MATRIX, PRINT SINGULAR COLUMNS AND GIVE ALTERNATE RETURN\r\nC\r\n  700 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      NOGLEV  = 2\r\n  710 CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE (DBA ,REW)\r\n      CALL CLOSE (SCRDIA,REW)\r\nC\r\nC     CALCULATE TIME ESTIMATE, PRINT USER INFORMATION AND\r\nC     CHECK FOR SUFFICIENT TIME TO COMPLETE DECOMPOSITION\r\nC\r\n      IF (GROUPS .NE. 0) SAVG = SAVG/GROUPS\r\n      SAVG    = MAX0(SAVG,1)\r\n      SAVE(1) = 0.5*TMT(TYPEA)*CSQR*1.0E-6\r\n      SAVE(2) = 0.5*(TMPSTR+TMGSTR)*FLOAT(PCSQR)*1.E-6\r\n      SAVE(3) = TMPSTR*FLOAT(CAVG)*1.E-6\r\n      SAVE(4) = TMIO*(FNWDS+1.0)*CSPILL/FLOAT(SAVG)*1.0E-6\r\n      MORCOR  = NBRWDS(CMAX) - ISPILL + 1\r\nC\r\n      CAVG = CAVG/NROW\r\n      IF (PCGROU .NE. 0) PCAVG = PCAVG/PCGROU\r\n      CALL TMTOGO (IJKL)\r\n      JKLM = SAVE(1) + SAVE(2) + SAVE(3) + SAVE(4) + 1.0\r\nC\r\n      IF (DBC(1) .GT. 0) CALL PAGE2 (9)\r\n      UNADD = UNUSE\r\n      IF (MORCOR .GT. 0) UNADD = ADDI\r\n      IF (DBC(1) .GT. 0) WRITE (NOUT,720)  UIM,   DBNAME,   NROW,\r\n     1                      JKLM,   CAVG,  PCAVG, GROUPS,   SAVG,\r\n     2        UNADD,      MORCOR,   CMAX,  PCMAX, PCGROU,   LOOP\r\n  720 FORMAT (A29,' 3023 - PARAMETERS FOR SYMMETRIC DECOMPOSITION OF ',\r\n     1       'DATA BLOCK ',2A4,6H ( N = , I5, 2H ) , /\r\n     2  14X, 17H  TIME ESTIMATE = , I7, 17H          C AVG = , I6,\r\n     3       17H         PC AVG = , I6,18H    SPILL GROUPS = , I6,\r\n     4       17H          S AVG = , I6, /\r\n     5  14X, A10 ,      7H CORE = , I7, 17H WORDS    C MAX = , I6,\r\n     6       17H          PCMAX = , I6,18H       PC GROUPS = , I6,\r\n     7       17H  PREFACE LOOPS = , I6  )\r\n      IF (MORCOR .GT. 0) WRITE (NOUT,730)\r\n  730 FORMAT (15X,'(FOR OPTIMIZED OPERATION)')\r\n      IF (DBC(1) .GT. 0) WRITE (NOUT,740) UIM,SUBNAM(1),SUBNAM(2),SAVE\r\n  740 FORMAT (A29,' 2378,',A4,A3,' ESTIMATE OF CPU TIME FOR MT =',\r\n     1        1P,E10.3,/18X,'PASSIVE COL. = ',E10.3,14X,'ACTIVE COL. =',\r\n     2        E10.3, /25X,'SPILL = ',E10.3)\r\nC\r\nC     ESTIMATE FBS TIME AT ONE PASS, 1 LOAD\r\nC\r\n      SAVE(1) = 2.0*FLOAT(NROW)*CAVG*(TMT(TYPEA)+TMPSTR)*1.E-6\r\n      IF (DBC(1) .GT. 0) WRITE (NOUT,750) SAVE(1)\r\n  750 FORMAT (10X,41HESTIMATE FOR FBS, ONE PASS AND ONE LOAD =,1P,E10.3)\r\nC\r\n      IF (JKLM .GE. IJKL) GO TO 1840\r\n      IF (NOGLEV .GT.  1) GO TO 1880\r\n      IF (KSYSTM(57) .LT. 0) GO TO 1880\r\nC\r\nC     WRITE A END-OF-MATRIX STRING ON THE PASSIVE COLUMN FILE\r\nC\r\n      CALL GOPEN (SCRB,ZI(BUF2),WRTREW)\r\n      BBLK(1) = SCRB\r\n      BBLK(2) = TYPEA\r\n      BBLK(3) = 0\r\n      BBLK(8) = -1\r\n      CALL PUTSTR (BBLK)\r\n      BBLK(4) = NROW + 1\r\n      BBLK(7) = 1\r\n      BBLK(8) = 1\r\n      CALL ENDPUT (BBLK)\r\n      CALL CLOSE (SCRB,REW)\r\n      SUBNAM(3) = BEGN\r\n      CALL CONMSG (SUBNAM,3,0)\r\nC\r\nC     THE STAGE IS SET AT LAST TO PERFORM THE DECOMPOSITION -\r\nC     SO LETS GET THE SHOW UNDERWAY\r\nC\r\n      CALL GOPEN (SCRA,ZI(BUF1),RDREW )\r\n      CALL GOPEN (SCRB,ZI(BUF2),RDREW )\r\n      CALL GOPEN (DBL ,ZI(BUF3),WRTREW)\r\n      CALL GOPEN (SCRDIA,ZI(BUF6),RDREW)\r\n      STSCR = 1\r\n      SCRC  = SCR1\r\n      SCRD  = SCR2\r\n      IF (ZI(NSPILL) .NE. 0) NSPILL = NSPILL + 3\r\n      ZI(NSPILL) = NROW + 1\r\n      SPLIN  = .FALSE.\r\n      SPLOUT = .FALSE.\r\n      SPILL  = .FALSE.\r\n      IF (GROUPS .NE. 0) SPILL = .TRUE.\r\n      NZZZ   = ORF(ISPILL-1,1)\r\n      ROWONE = .FALSE.\r\n      DBL(2) = 0\r\n      DBL(6) = 0\r\n      DBL(7) = LSHIFT(1,NBPW-2 - (NBPW-32))\r\nC\r\nC     THIS 'NEXT TO SIGN' BIT WILL BE PICKED UP BY WRTTRL. ADD (NBPW-32)\r\nC     SO THAT CRAY, WITH 48-BIT INTEGER, WILL NOT GET INTO TROUBLE\r\nC\r\n      BLK(1) = DBL(1)\r\n      BLK(2) = TYPEA\r\n      BLK(3) = 1\r\n      WA     = NZZZ\r\n      WB     = WA\r\n      PREVC  = 0\r\n      BBLK(8)= -1\r\n      CALL GETSTR (*1690,BBLK)\r\n      KSPILL = ISPILL\r\nC\r\nC     READ KEY WORDS AND ACTIVE COLUMN VECTOR FOR CURRENT ROW\r\nC\r\n  800 NAME = SCRA\r\n      IF (SPLIN) NAME = SCRD\r\n      CALL FREAD (NAME,KEY,NKEY,0)\r\n      IAC = C*NWDS + 1\r\n      CALL FREAD (NAME,ZI(IAC),C,1)\r\n      NAC = IAC + C - 1\r\n      IF (ZI(IAC) .LT. 0) PREVC = 0\r\n      IF (SPLIN) GO TO 840\r\nC\r\nC     READ TERMS FROM THE INPUT MATRIX\r\nC\r\n      CALL FREAD (SCRDIA,RDIA,NWDS,EOR)\r\n      ABLK(8) = -1\r\n      CALL GETSTR (*1860,ABLK)\r\n      N = IAC - 1\r\n      DO 810 I = 1,N\r\n      ZR(I) = 0.\r\n  810 CONTINUE\r\n      CALL SDCINS (*1830,ABLK,ZI(IAC),C,ZR,ZD)\r\nC\r\nC     IF DEFINED, MERGE ROW FROM PASSIVE COLUMN FILE\r\nC\r\n  820 IF (ROW-BBLK(4)) 850,830,1700\r\n  830 CALL SDCINS (*1830,BBLK,ZI(IAC),C,ZR,ZD)\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*1710,BBLK)\r\n      GO TO 820\r\nC\r\nC     READ CURRENT PIVOT ROW FROM SPILL FILE. IF LAST ROW, CLOSE FILE\r\nC\r\n  840 PREVC = 0\r\n      CALL FREAD (SCRD,ZR,C*NWDS,1)\r\n      IF (ROW .LT. LSTSPL) GO TO 850\r\n      CALL CLOSE (SCRD,REW)\r\nC\r\nC     IF 1ST ROW OF A NEW SPILL GROUP, OPEN SCRATCH FILE TO WRITE\r\nC\r\n  850 IF (ROWONE) GO TO 880\r\n      IF (SPLOUT) GO TO 950\r\n      IF (SPFLG .EQ. 0) GO TO 950\r\n      SPLOUT = .TRUE.\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\n      SPROW = ROW\r\n      S = SPFLG\r\n      LSTROW = FRSTPC\r\n      FRSTPC = 0\r\nC\r\nC     IF S WAS REDEFINED, GET NEW DEFINITION\r\nC\r\n      DO 860 I = KSPILL,NSPILL,3\r\n      IF (ROW-ZI(I)) 860,870,880\r\n  860 CONTINUE\r\n      GO TO 880\r\n  870 S = ZI(I+1)\r\n      LSTROW = ZI(I+2)\r\n      KSPILL = I + 3\r\nC\r\nC     WRITE ANY TERMS ALREADY CALCULATED WHICH ARE\r\nC     BEYOND THE RANGE OF THE CURRENT SPILL GROUP\r\nC\r\n  880 IF (.NOT. SPLOUT) GO TO 950\r\n      N = 0\r\n      IJKL = NAC\r\n  890 IF (IABS(ZI(IJKL)) .LE. LSTROW) GO TO 900\r\n      IJKL = IJKL - 1\r\n      GO TO 890\r\n  900 IJKL = IJKL + 1\r\n      IF (IJKL .GT. NAC) GO TO 920\r\n      DO 910 I = IJKL,NAC\r\n      IF (ZI(I) .GT. 0.) N = N + 1\r\n  910 CONTINUE\r\n      N = NWDS*N*(N+1)/2\r\n  920 CALL WRITE (SCRC,N,1,0)\r\n      CALL WRITE (SCRC,ZR(NZZZ-N),N,1)\r\nC\r\nC     MOVE WA TO ACCOUNT FOR ANY TERMS JUST WRITTEN\r\nC\r\n      IF (N .EQ. 0) GO TO 950\r\n      J = NZZZ\r\n      I = NZZZ - N\r\n      IF ((NZZZ-WA) .EQ. N) GO TO 940\r\n  930 J = J - 1\r\n      I = I - 1\r\n      ZR(J) = ZR(I)\r\n      IF (I .GT. WA) GO TO 930\r\n  940 WA = J\r\nC\r\nC     IF THE PIVOTAL ROW DID NOT COME FROM THE SPILL FILE, IT IS CREATED\r\nC\r\n  950 IF (SPLIN) GO TO 1180\r\n      I = IAC\r\n      L = WA\r\n      IF (PREC  .EQ. 2) L = (WA-1)/2 + 1\r\n      IF (TYPEA .EQ. 2) GO TO 1060\r\nC\r\nC     CREATE PIVOT ROW IN RSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n      IF (ZI(IAC) .LT. 0) GO TO 980\r\n      DO 970 J = 1,C\r\n      IF (ZI(I) .LT. 0) GO TO 960\r\n      ZR(J) = ZR(J) + ZR(L)\r\n      L = L + 1\r\n  960 I = I + 1\r\n  970 CONTINUE\r\n  980 CONTINUE\r\nC\r\nC     CHECK DIAGONAL AND CORRECT\r\nC\r\n      IF (ZR(1) .EQ. 0.0) CALL SDCMQ (*1870,2,RDIA,ZR(1),0,0,ROW,ZI)\r\n  990 IF (ABS(DSR) .LT. 10.) GO TO 1000\r\n      DSR   = DSR/10.\r\n      POWER = POWER + 1\r\n      GO TO 990\r\n 1000 IF (ABS(DSR) .GT. 0.1) GO TO 1010\r\n      DSR   = DSR*10.\r\n      POWER = POWER - 1\r\n      GO TO 1000\r\n 1010 DSR   = DSR*ZR(1)\r\n      MINDS = AMIN1(ZR(1),MINDS)\r\nC\r\nC     PERFORM MATRIX COND. CHECKS - S.P. REAL\r\nC\r\n      IF (ZR(1)) 1020,1030,1050\r\n 1020 I = 3\r\n      GO TO 1040\r\n 1030 I = 2\r\n 1040 CALL SDCMQ (*1870,I,RDIA,ZR(1),0,0,ROW,ZI)\r\nC\r\n 1050 IF (DIAGCK .LT. 0) GO TO 1170\r\n      IF (RDIA .EQ. 0.0) RDIA = ZR(1)\r\n      IF (RDIA .EQ. ZR(1)) GO TO 1170\r\n      RV = ABS(ZR(1)/RDIA )\r\n      IF (RV .GT. 1.001E0) CALL SDCMQ (*1870,6,RDIA,ZR(1),0,0,ROW,ZI)\r\n      RV = RMANT/RV\r\n      IF (RV .GT. PDEFR) CALL SDCMQ (*1870,4,RDIA,ZR(1),0,0,ROW,ZI)\r\n      GO TO 1170\r\nC\r\nC     CREATE PIVOT ROW IN RDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n 1060 CONTINUE\r\n      IF (ZI(IAC) .LT. 0) GO TO 1090\r\n      DO 1080 J = 1,C\r\n      IF (ZI(I) .LT. 0) GO TO 1070\r\n      ZD(J) = ZD(J) + ZD(L)\r\n      L = L + 1\r\n 1070 I = I + 1\r\n 1080 CONTINUE\r\n 1090 CONTINUE\r\nC\r\nC     CHECK DIAGONAL AND CORRECT\r\nC\r\n      IF (ZD(1) .EQ. 0.0D0) CALL SDCMQ (*1870,2,0,0,DDIA,ZD(1),ROW,ZI)\r\n 1100 IF (DABS(DDR) .LT. 10.0D0) GO TO 1110\r\n      DDR   = DDR/10.D0\r\n      POWER = POWER + 1\r\n      GO TO 1100\r\n 1110 IF (DABS(DDR) .GT. 0.1D0) GO TO 1120\r\n      DDR   = DDR*10.D0\r\n      POWER = POWER - 1\r\n      GO TO 1110\r\n 1120 DDR   = DDR*ZD(1)\r\n      MINDD = DMIN1(ZD(1),MINDD)\r\nC\r\nC     PERFORM MATRIX COND. CHECKS - D.P. REAL\r\nC\r\n      IF (ZD(1)) 1130,1140,1160\r\n 1130 I = 3\r\n       GO TO 1150\r\n 1140 I = 2\r\n 1150 CALL SDCMQ (*1870,I,0,0,DDIA,ZD(1),ROW,ZI)\r\nC\r\n 1160 IF (DIAGCK .LT.   0) GO TO 1170\r\n      IF (DDIA .EQ. 0.0D0) DDIA = ZD(1)\r\n      IF (DDIA .EQ. 0.0D0) GO TO 1170\r\n      DV = DABS(ZD(1)/DDIA)\r\n      IF (DV .GT. 1.001D0) CALL SDCMQ (*1870,6,0,0,DDIA,ZD(1),ROW,ZI)\r\n      DV = DMANT/DV\r\n      IF (DV .GT. PDEFD) CALL SDCMQ (*1870,4,0,0,DDIA,ZD(1),ROW,ZI)\r\nC\r\nC     CALCULATE WB\r\nC\r\n 1170 CONTINUE\r\n 1180 LASTI = 1\r\n      IF (START .EQ. 0) GO TO 1260\r\n      IF (SPLIN ) GO TO 1190\r\n      IF (SPLOUT) GO TO 1200\r\n      CI = C\r\n      SC = C\r\n      GO TO 1230\r\n 1190 CI = C - (START-2)\r\n      SC = CI\r\n      JJ = NAC\r\n      IF (SPLOUT) GO TO 1210\r\n      IF (CI .GT. C5MAX) GO TO 1720\r\n      GO TO 1230\r\n 1200 CI = C\r\n      SC = LSTROW - SPROW\r\n      JJ = MIN0(NAC,IAC+START+SC-2)\r\n 1210 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 1220\r\n      JJ = JJ - 1\r\n      GO TO 1210\r\n 1220 SC = JJ - IAC - START + 2\r\n      IF (SC .GT. 0) GO TO 1230\r\n      SC = 0\r\n      WB = WA\r\n      GO TO 1240\r\n 1230 NTERMS = SC*(CI-1) - (SC*(SC-1))/2\r\n      NWORDS = NTERMS*NWDS\r\n      WB = NZZZ - NWORDS\r\n      IF (PREC .EQ. 2) WB = ORF(WB-1,1)\r\n      IF (WB .LT. IAC+C) GO TO 1660\r\n      IF (WB .GT. WA+NWDS*PREVC) GO TO 1730\r\n 1240 CONTINUE\r\n      IF (SPLIN .AND. ROW.EQ.LSTSPL) SPLIN = .FALSE.\r\n      LASTI = MIN0(START+SC-1,C)\r\n      IF (SC .EQ. 0) GO TO 1260\r\nC\r\nC     NOW CALCULATE CONTIBUTIONS FROM CURRENT PIVOT ROW TO\r\nC     SECOND TERM IN EQUATION (4) IN MEMO CWM-19. NOTE-TERMS ARE\r\nC     CALCULATED ONLY FOR ROW/COL COMBINATIONS IN THE CURRENT SPILL\r\nC     GROUP\r\nC\r\n      IF (TYPEA .EQ. 2) GO TO 1250\r\n      CALL SDCOM1 (ZI,ZI(IAC),ZR(WA+PREVC),ZR(WB))\r\n      GO TO 1260\r\n 1250 CALL SDCOM2 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB))\r\nC\r\nC     SHIP PIVOT ROW OUT TO EITHER MATRIX OR SPILL FILE\r\nC\r\n 1260 IF (LASTI .EQ. C) GO TO 1300\r\n      IF (.NOT. SPLOUT) GO TO 1640\r\nC\r\nC     PIVOT ROW GOES TO SPILL FILE - SET INDEX WHERE TO BEGIN NEXT AND\r\nC                                    WRITE ROW AND ACTIVE COLUMN VECTOR\r\nC\r\n      IJKL  = SPFLG\r\n      II    = FRSTPC\r\n      SPFLG = 0\r\n      FRSTPC= 0\r\n      START = LASTI + 1\r\n      CALL WRITE (SCRC,KEY,NKEY, 0)\r\n      CALL WRITE (SCRC,ZI(IAC),C,1)\r\n      CALL WRITE (SCRC,ZR,C*NWDS,1)\r\n      IF (ROW .LT. LSTROW) GO TO 1410\r\nC\r\nC     LAST ROW OF CURRENT SPILL GROUP - REWIND FILE AND OPEN IT TO READ.\r\nC                                      IF ANOTHER SPILL GROUP, SET IT UP\r\nC\r\n      CALL CLOSE (SCRC,REW)\r\n      JKLM = SCRC\r\n      SCRC = SCRD\r\n      SCRD = JKLM\r\n      CALL GOPEN (SCRD,ZI(BUF5),RDREW)\r\n      LSTSPL = ROW\r\n      SPLIN  = .TRUE.\r\n      SPLOUT = .FALSE.\r\n      IF (IJKL .EQ. 0) GO TO 1290\r\n      SPLOUT = .TRUE.\r\n      SPROW  = ROW\r\n      S      = IJKL\r\n      LSTROW = II\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\nC\r\nC     IF S WAS REDEFINED, GET NEW DEFINITION\r\nC\r\n      DO 1270 I = KSPILL,NSPILL,3\r\n      IF (ROW-ZI(I)) 1270,1280,1290\r\n 1270 CONTINUE\r\n      GO TO 1290\r\n 1280 S = ZI(I+1)\r\n      LSTROW = ZI(I+2)\r\n      KSPILL = I + 3\r\nC\r\nC     READ ANY TERMS SAVED FROM PREVIOUS SPILL GROUP\r\nC\r\n 1290 IF (ROW .EQ. NROW) GO TO 1500\r\n      CALL FREAD (SCRD,N,1,0)\r\n      WA = NZZZ - N\r\n      CALL FREAD (SCRD,ZR(WA),N,1)\r\n      ROWONE = .TRUE.\r\n      GO TO 800\r\nC\r\nC     PIVOT ROW GOES TO OUTPUT FILE - IF REQUIRED, CONVERT TO CHOLESKY\r\nC\r\n 1300 IF (ROW .NE. DBL(2)+1) GO TO 1650\r\n      IF (CHLSKY .EQ. 0) GO TO 1340\r\n      IF (PREC   .EQ. 2) GO TO 1320\r\n      IF (ZR(1) .LT. 0.) CALL SDCMQ (*1870,3,RDIA,ZR(1),0,0,ROW,ZI)\r\n      ZR(1) = SQRT(ZR(1))\r\n      IF (C .EQ. 1) GO TO 1340\r\n      DO 1310 I = 2,C\r\n      ZR(I) = ZR(I)*ZR(1)\r\n 1310 CONTINUE\r\n      GO TO 1340\r\n 1320 IF (ZD(1) .LT. 0.0D0) CALL SDCMQ (*1870,3,0,0,DDIA,ZD(1),ROW,ZI)\r\n      ZD(1) = DSQRT(ZD(1))\r\n      IF (C .EQ. 1) GO TO 1340\r\n      DO 1330 I = 2,C\r\n      ZD(I) = ZD(I)*ZD(1)\r\n 1330 CONTINUE\r\nC\r\nC     WRITE THE ROW WITH PUTSTR/ENDPUT\r\nC\r\n 1340 CALL SDCOUT (BLK,0,ZI(IAC),C,ZR,ZR)\r\nC\r\nC     IF ACTIVE COLUMNS ARE NOW GOING PASSIVE, MERGE ROWS IN CORE\r\nC     WITH THOSE NOW ON THE PC FILE THUS CREATING A NEW PC FILE\r\nC\r\n      IF (FRSTPC .EQ. 0) GO TO 1400\r\n      IF (SPLIN .OR. SPLOUT) GO TO 1740\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\n      BLK(1) = SCRC\r\n      BLK(3) = 0\r\n      IJKL   = IAC + 1\r\n      DO 1370 I = IJKL,NAC\r\n 1350 IF (IABS(ZI(I)) .LE. BBLK(4)) GO TO 1360\r\n      CALL CPYSTR (BBLK,BLK,1,0)\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*1750,BBLK)\r\n      GO TO 1350\r\n 1360 CI = NAC - I + 1\r\n      CALL SDCOUT (BLK,0,ZI(I),CI,ZR(WB),ZR(WB))\r\n      WB = WB + CI*NWDS\r\n 1370 CONTINUE\r\n      ICRQ = WB - ISPILL\r\n      IF (WB .GT. ISPILL) GO TO 1850\r\n 1380 CALL CPYSTR (BBLK,BLK,1,0)\r\n      IF (BBLK(4) .EQ. NROW+1) GO TO 1390\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*1760,BBLK)\r\n      GO TO 1380\r\n 1390 CALL CLOSE (SCRB,REW)\r\n      CALL CLOSE (SCRC,REW)\r\n      I    = SCRB\r\n      SCRB = SCRC\r\n      SCRC = I\r\n      CALL GOPEN (SCRB,ZI(BUF2),RDREW)\r\n      BBLK(1) = SCRB\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*1770,BBLK)\r\n      BLK(1) = DBL(1)\r\n      BLK(3) = 1\r\nC\r\nC     ACCUMULATE MCB INFORMATION FOR PIVOT ROW\r\nC\r\n 1400 CONTINUE\r\n      NWORDS = C*NWDS\r\n      DBL(2) = DBL(2) + 1\r\n      DBL(6) = MAX0(DBL(6),NWORDS)\r\n      DBL(7) = DBL(7) + NWORDS\r\nC\r\nC     PREPARE TO PROCESS NEXT ROW.\r\nC\r\n 1410 IF (ROW .EQ. NROW) GO TO 1500\r\n      PREVC = C - 1\r\n      ROWONE= .FALSE.\r\n      WA    = WB\r\n      GO TO 800\r\nC\r\nC     CLOSE FILES AND PUT END MESSAGE IN RUN LOG.\r\nC\r\n 1500 SUBNAM(3) = END\r\n      CALL CONMSG (SUBNAM,3,0)\r\n      GO TO 1870\r\nC\r\nC     DECOMPOSE A 1X1 MATRIX\r\nC\r\n 1510 ITYPE1= TYPEA\r\n      ITYPE2= TYPEA\r\n      ITYPE3= TYPEA\r\n      POWER = 0\r\n      I1    = 1\r\n      J1    = 1\r\n      I2    = 1\r\n      J2    = 1\r\n      INCR1 = 1\r\n      INCR2 = 1\r\n      CALL GOPEN (DBA,ZI(BUF1),RDREW)\r\n      PARM(2) = DBA(1)\r\n      CALL UNPACK (*1570,DBA,ZR)\r\n      CALL CLOSE (DBA,REW)\r\n      CALL GOPEN (DBL,ZI(BUF1),WRTREW)\r\n      DBL(2) = 0\r\n      DBL(6) = 0\r\n      IF (TYPEA.EQ.2) GO TO 1520\r\n      MINDS = ZR(1)\r\n      DSR   = ZR(1)\r\n      IF (ZR(1)) 1530,1540,1560\r\n 1520 MINDD = ZD(1)\r\n      DDR   = ZD(1)\r\n      IF (ZD(1)) 1530,1540,1560\r\nC\r\n 1530 I = 3\r\n      GO TO 1550\r\n 1540 I = 2\r\n 1550 CALL SDCMQ (*1870,I,ZR,ZR,ZD,ZD,1,ZI)\r\n 1560 CALL PACK (ZR,DBL,DBL)\r\n      CALL CLOSE (DBL,REW)\r\n      GO TO 1880\r\nC\r\nC     1X1 NULL COLUMN\r\nC\r\n 1570 CALL SDCMQ (*1870,1,0.,0.,0.D0,0.D0,1,ZI)\r\n      GO TO 1870\r\nC\r\nC     VARIOUS ERRORS LAND HERE\r\nC\r\n 1600 CALL MESAGE (-7,DBA(2),SUBNAM)\r\n 1610 KERR = 1045\r\n      GO TO  1800\r\n 1620 KERR = 1046\r\n      GO TO  1800\r\n 1630 KERR = 1051\r\n      GO TO  1800\r\n 1640 KERR = 1311\r\n      GO TO  1800\r\n 1650 KERR = 1320\r\n      GO TO  1800\r\n 1660 KERR = 1288\r\n      GO TO  1800\r\n 1670 KERR = 1065\r\n      GO TO  1800\r\n 1680 KERR = 1034\r\n      GO TO  1800\r\n 1690 KERR = 1204\r\n      GO TO  1800\r\n 1700 KERR = 1215\r\n      GO TO  1800\r\n 1710 KERR = 1216\r\n      GO TO  1800\r\n 1720 KERR = 1288\r\n      GO TO  1800\r\n 1730 KERR = 1289\r\n      GO TO  1800\r\n 1740 KERR = 1330\r\n      GO TO  1800\r\n 1750 KERR = 1333\r\n      GO TO  1800\r\n 1760 KERR = 1340\r\n      GO TO  1800\r\n 1770 KERR = 1344\r\n      GO TO  1800\r\n 1800 WRITE  (NOUT,1810) SFM,KERR\r\n 1810 FORMAT (A25,' 2379, LOGIC ERROR',I6,' IN SDCMPS.')\r\n      J = 66\r\n      WRITE  (NOUT,1820) (KEY(I),I=1,J)\r\n 1820 FORMAT (36H0   CONTENTS OF / SDCOMX / FOLLOW --, /,(1X,10I12))\r\n 1830 PARM(1) = -37\r\n      PARM(2) = 0\r\n      PARM(3) = SUBNAM(1)\r\n      PARM(4) = SUBNAM(2)\r\n      GO TO 1870\r\nC\r\nC     INSUFFICIENT TIME\r\nC\r\n 1840 PARM(1) = -50\r\n      PARM(2) = IJKL\r\n      GO TO 1870\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n 1850 PARM(1) = -8\r\n      PARM(2) = ICRQ\r\n      GO TO 1870\r\nC\r\nC     UNEXPECTED NULL COLUMN\r\nC\r\n 1860 DV = 0.0\r\n      CALL SDCMQ (*1870,5,RV,RV,DV,DV,ROW,ZI)\r\nC\r\n 1870 CALL CLOSE (DBA, REW)\r\n      CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE (SCRB,REW)\r\n      CALL CLOSE (DBL ,REW)\r\n 1880 CALL CLOSE (SCRDIA,REW)\r\n      IF (NERR(1)+NERR(2) .LE. 0) GO TO 1890\r\n      CALL GOPEN (SCRMSG,ZI(BUF6),WRT)\r\n      BBLK(2) = 0\r\n      BBLK(3) = 0\r\n      BBLK(4) = 0\r\n      CALL WRITE (SCRMSG,BBLK(2),3,1)\r\n      CALL CLOSE (SCRMSG,REW)\r\n 1890 CONTINUE\r\n      IF (KORCHG .GT. 0) LCORE = LCORE - KORCHG\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcmq.f",
    "content": "      SUBROUTINE SDCMQ (*,KEY,V1,V,DV1,DV,IC,Z)\r\nC\r\nC     THIS SUBROUTINE CREATES A SCRATCH FILE OF QUEUED SINGULARITY\r\nC     MESSAGES.  EACH MESSAGE IS A GINO RECORD DUE TO POSSIBLE CLOSE\r\nC     WITHOUT REWIND.\r\nC     THE -KEY- IS AS FOLLOWS,\r\nC      1  - NULL COLUMN       - INPUT MATRIX\r\nC      2  - ZERO DIAGONAL     - DECOMPOSED MATRIX.\r\nC      3  - NEGATIVE DIAGONAL - DECOMPOSED MATRIX\r\nC      4  - SINGULARITY TOLERANCE FAILURE - DECOMPOSED MATRIX.\r\nC      5  - UNEXPECTED NULL COLUMN OR END OF COLUMN - ABORT IMMIDIATELY.\r\nC      6  - NONCONSERVATIVE COLUMN  D/A.GT.1.001\r\nC      7  - ZERO DIAGONAL     - INPUT MATRIX.\r\nC     OTHER ARGUMENTS ARE\r\nC      $  - NONSTANDARD RETURN IF DECOMPOSITION IS TO BE ABORTED.\r\nC      Z  - OPEN CORE.  BUFFER LOCATIONS RELATIVE TO Z(1).\r\nC      V  - RSP VALUE OF ENTRY IN ERROR (DV IS DOUBLE PRECISION).\r\nC      V1 - INPUT VALUE OF DIAGONAL (DV1 IS DOUBLE PRECISION VERSION).\r\nC      IC - COLUMN NUMBER IN ERROR.\r\nC    THE ARGUMENTS ARE NOT CHANGED.\r\nC    /SDCQ/ CONTAINS CONSTANT DATA.\r\nC      FILCUR - CURRENT FILE USING BUFFER FOR SCRATCH FILE.  NEGATIVE IF\r\nC               NONE, ZERO IF FILSCR IS TO REMAIN OPEN\r\nC      STSCR  - GINO FILE STATUS FOR REOPENING FILCUR (1=READ,2=WRITE)\r\nC      FILSCR - SCRATCH FILE NAME.\r\nC      BUF    - BUFFER LOCATION RELATIVE TO Z(1).\r\nC      NERR(2)- COUNT OF NUMBER OF ERROR CALLS ( (1)=ES, (2)=PD CHECK)\r\nC      DIAGCK - EXIT FLAG FOR KEY=4 -- 0=NONFATAL, +N = MAX.-MESSAGES\r\nC               WITHOUT ABORTING, -N = IMMEDIATE ABORT\r\nC      IPREC  - 1=RSP, USE V. 2=RDP, USE DV.\r\nC      PDEFCK - EXIT FLAG FOR KEY=3.  0 = NONFATAL IF -V, FATAL AT END\r\nC               OF DECOMP FOR V=0.  +N = MAX-MESSAGES WITHOUT ABORTING.\r\nC               -N = IMMEDIATE ABORT\r\nC      NOGLEV - NOGO CODE.\r\nC             = 0, NO FATAL ERRORS,\r\nC             = 1, ABORT AT END OF DECOMP,\r\nC             = 2, ABORT AT END OF PREPASS\r\nC             = 3, ABORT,NONSTD RET.\r\nC             = 4, INTERNAL ERRORS.  ABORT AT MAJOR CHECK-POINTS.\r\nC-----\r\n      LOGICAL          OPNSCR,FIRST\r\n      INTEGER          BUF,DIAGCK,FILCUR,FILERR,FILSCR,IV(3),NAME(2),\r\n     1                 PARM,PDEFCK,STSCR,Z(1)\r\n      DOUBLE PRECISION DV,DV1\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM\r\n      COMMON /SDCQ  /  NERR(2),NOGLEV,BUF,FILSCR,FILCUR,STSCR,PDEFCK,\r\n     1                 DIAGCK,DIAGET,IPREC,PARM(4),OPNSCR,FIRST\r\n      COMMON /SFACT /  SKPSF(32),ICHLY\r\n      COMMON /NAMES /  KRD2,KRR0,KWT3,KWR1, SKPN,KCL2\r\n      COMMON /SYSTEM/  ISB,IOUT\r\n      EQUIVALENCE      (RV1,IV(2)),(RV,IV(3))\r\n      DATA    NAME  /  4HSDCM,2HQ  /\r\nC\r\n      IF (FILCUR .GT. 0) CALL CLOSE (FILCUR,KCL2)\r\n      FILERR = FILSCR\r\n      IF (OPNSCR) GO TO 10\r\n      IF (.NOT.FIRST) CALL OPEN (*200,FILSCR,Z(BUF),KWT3)\r\n      IF (FIRST) CALL OPEN (*200,FILSCR,Z(BUF),KWR1)\r\n      FIRST  = .FALSE.\r\n      OPNSCR = .TRUE.\r\nC\r\n   10 IV(1) = IC*10 + KEY\r\n      IF (IPREC .EQ. 1) GO TO 14\r\n      RV  = DV\r\n      RV1 = DV1\r\n      GO TO 17\r\n   14 RV  = V\r\n      RV1 = V1\r\n   17 CONTINUE\r\n      CALL WRITE (FILSCR,IV,3,1)\r\nC\r\nC     CONVERT FILES TO ORIGINAL STATUS\r\nC\r\n      IF (FILCUR .EQ. 0) GO TO 20\r\n      CALL CLOSE (FILSCR,KCL2)\r\n      OPNSCR = .FALSE.\r\n      IF (FILCUR .LE. 0) GO TO 20\r\n      FILERR = FILCUR\r\nC\r\nC     READ MODE ON CURRENT FILE\r\nC\r\n      IF (STSCR .EQ. 1) I = KRD2\r\nC\r\nC     WRITE MODE ON CURRENT FILE\r\nC\r\n      IF (STSCR .EQ. 2) I = KWT3\r\n      CALL OPEN (*200,FILCUR,Z(BUF),I)\r\nC\r\nC     DETERMINE ABORT FLAG\r\nC\r\n   20 CONTINUE\r\n      GO TO (65,30,40,50,60,50,50), KEY\r\nC\r\nC     ZERO DIAGONAL - DECOMPOSED MATRIX\r\nC\r\n   30 NOGLEV = MAX0(NOGLEV,1)\r\n      IF (IPREC .EQ. 1)  V = 1.0\r\n      IF (IPREC .EQ. 2) DV = 1.D0\r\n      GO TO 70\r\nC\r\nC     NEGATIVE DIAGONAL\r\nC\r\n   40 CONTINUE\r\n      IF (ICHLY  .NE. 1) GO TO 45\r\n      IF (IPREC  .EQ. 1)  V =-V\r\n      IF (IPREC  .EQ. 2) DV =-DV\r\n   45 IF (PDEFCK .EQ. 0) GO TO 70\r\n      NOGLEV = MAX0(NOGLEV,1)\r\n      GO TO 70\r\nC\r\nC     ES SINGULARITY CHECK, DIAG-IN=0.0, NON-CONSERVATIVE MATRIX\r\nC\r\n   50 CONTINUE\r\n      NERR(1) = NERR(1) + 1\r\n      IF (DIAGCK .EQ. 0) GO TO 100\r\n      NOGLEV = MAX0(NOGLEV,1)\r\n      IF (NERR(1) .GE. DIAGCK) NOGLEV = 3\r\n      GO TO 100\r\nC\r\nC     UNEXPECTED NULL COLUMN\r\nC\r\n   60 NOGLEV = 3\r\n      GO TO 70\r\nC\r\n   65 NOGLEV  = 2\r\n   70 NERR(2) = NERR(2) + 1\r\n      IF (NERR(2).GT.IABS(PDEFCK) .AND. PDEFCK.NE.0)  NOGLEV = 3\r\nC\r\n  100 CONTINUE\r\n      IF (NOGLEV .EQ. 3) RETURN 1\r\n      RETURN\r\nC\r\nC     UNABLE TO USE FILES - WRITE GINO NUMBER. ABORT AT MAJOR DECOMP\r\nC     CHCK\r\nC\r\n  200 CALL PAGE2 (2)\r\n      WRITE  (IOUT,210) SWM,FILERR,NAME,IC,KEY\r\n  210 FORMAT (A27,' 2379, FILE',I8,' COULD NOT BE OPENED IN',A4,A1,\r\n     1       '. COLUMN',I8,' SINGULAR, REASON',I3)\r\n      PARM(1) = -37\r\n      PARM(2) = FILSCR\r\n      PARM(3) = NAME(1)\r\n      PARM(4) = NAME(2)\r\n      NOGLEV  = 4\r\n      GO TO 100\r\n      END\r\n"
  },
  {
    "path": "mis/sdcom1.f",
    "content": "      SUBROUTINE SDCOM1 (P,AC,WA,WB)\r\nC\r\n      INTEGER         AC(1),ROW,C,START\r\n      REAL            P(1),WA(1),WB(1)\r\n      COMMON /SDCOMX/ ROW,C,SPFLG,START,FRSTPC,LASTPL,LASTI\r\nC\r\n      J  = 1\r\n      L  = 1\r\n      K1 = LASTPL + 1\r\n      IEND   = MIN0(LASTPL,LASTI)\r\n      ISTART = MAX0(K1,START)\r\n      IF (C .EQ. LASTPL) GO TO 200\r\n      IF (START .GT. LASTPL) GO TO 100\r\n      DO 48 I = START,IEND\r\n      PI   =-P(I)/P(1)\r\n      IJMK = J - I\r\n      ILMK = L - I\r\n      DO 10 K = I,LASTPL\r\n      WB(K+IJMK) = PI*P(K) + WA(K+ILMK)\r\n   10 CONTINUE\r\n      L = ILMK + K1\r\n      DO 18 K = K1,C\r\n      IF (AC(K) .GT. 0) GO TO 12\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 18\r\n   12 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n   18 CONTINUE\r\n      J = IJMK + C + 1\r\n      P(I) = PI\r\n   48 CONTINUE\r\n      IF (LASTPL .GE. LASTI) RETURN\r\n  100 DO 148 I = ISTART,LASTI\r\n      PI   = -P(I)/P(1)\r\n      IJMK = J - I\r\n      IF (AC(I) .LT. 0) GO TO 120\r\n      DO 118 K = I,C\r\n      IF (AC(K) .GT. 0) GO TO 112\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 118\r\n  112 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n  118 CONTINUE\r\n      GO TO 140\r\n  120 DO 128 K = I,C\r\n      WB(K+IJMK) = PI*P(K)\r\n  128 CONTINUE\r\n  140 J = IJMK + C + 1\r\n      P(I) = PI\r\n  148 CONTINUE\r\n      RETURN\r\nC\r\n  200 IF (START .GT. LASTPL) GO TO 300\r\n      DO 248 I = START,IEND\r\n      PI   = -P(I)/P(1)\r\n      IJMK = J - I\r\n      ILMK = L - I\r\n      DO 238 K = I,LASTPL\r\n      WB(K+IJMK) = PI*P(K) + WA(K+ILMK)\r\n  238 CONTINUE\r\n      J = IJMK + K1\r\n      L = ILMK + K1\r\n      P(I) = PI\r\n  248 CONTINUE\r\n      IF (LASTPL .GE. LASTI) RETURN\r\n  300 DO 348 I = ISTART,LASTI\r\n      PI   = -P(I)/P(1)\r\n      IJMK = J - I\r\n      IF (AC(I) .LT. 0) GO TO 320\r\n      DO 318 K = I,C\r\n      IF (AC(K) .GT. 0) GO TO 312\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 318\r\n  312 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n  318 CONTINUE\r\n      GO TO 340\r\n  320 DO 328 K = I,C\r\n      WB(K+IJMK) = PI*P(K)\r\n  328 CONTINUE\r\n  340 J = IJMK + C + 1\r\n      P(I) = PI\r\n  348 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcom2.f",
    "content": "      SUBROUTINE SDCOM2 (P,AC,WA,WB)\r\nC\r\n      INTEGER          AC(1),ROW,C,START\r\n      DOUBLE PRECISION P(1),WA(1),WB(1),PI,EPSI\r\n      COMMON /SDCOMX/  ROW,C,SPFLG,START,FRSTPC,LASTPL,LASTI\r\n      DATA    EPSI  /  1.D-36/\r\nC\r\n      J  = 1\r\n      L  = 1\r\n      K1 = LASTPL + 1\r\n      IEND   = MIN0(LASTPL,LASTI)\r\n      ISTART = MAX0(K1,START)\r\n      IF (C .EQ. LASTPL) GO TO 200\r\n      IF (START .GT. LASTPL) GO TO 100\r\n      DO 48 I = START,IEND\r\n      PI = -P(I)/P(1)\r\n      IF (DABS(PI) .LT. EPSI) PI = 0.D0\r\n      IJMK = J - I\r\n      ILMK = L - I\r\n      DO 10 K = I,LASTPL\r\n      WB(K+IJMK) = PI*P(K) + WA(K+ILMK)\r\n   10 CONTINUE\r\n      L = ILMK + K1\r\n      DO 18 K = K1,C\r\n      IF (AC(K) .GT. 0) GO TO 12\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 18\r\n   12 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n   18 CONTINUE\r\n      J = IJMK + C + 1\r\n      P(I) = PI\r\n   48 CONTINUE\r\n      IF (LASTPL .GE. LASTI) RETURN\r\n  100 DO 148 I = ISTART,LASTI\r\n      PI = -P(I)/P(1)\r\n      IF (DABS(PI) .LT. EPSI) PI = 0.D0\r\n      IJMK = J - I\r\n      IF (AC(I) .LT. 0) GO TO 120\r\n      DO 118 K = I,C\r\n      IF (AC(K) .GT. 0) GO TO 112\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 118\r\n  112 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n  118 CONTINUE\r\n      GO TO 140\r\n  120 DO 128 K = I,C\r\n      WB(K+IJMK) = PI*P(K)\r\n  128 CONTINUE\r\n  140 J = IJMK + C + 1\r\n      P(I) = PI\r\n  148 CONTINUE\r\n      RETURN\r\nC\r\n  200 IF (START .GT. LASTPL) GO TO 300\r\n      DO 248 I = START,IEND\r\n      PI = -P(I)/P(1)\r\n      IF (DABS(PI) .LT. EPSI) PI = 0.D0\r\n      IJMK = J - I\r\n      ILMK = L - I\r\n      DO 238 K = I,LASTPL\r\n      WB(K+IJMK) = PI*P(K) + WA(K+ILMK)\r\n  238 CONTINUE\r\n      J = IJMK + K1\r\n      L = ILMK + K1\r\n      P(I) = PI\r\n  248 CONTINUE\r\n      IF (LASTPL .GE. LASTI) RETURN\r\n  300 DO 348 I = ISTART,LASTI\r\n      PI = -P(I)/P(1)\r\n      IF (DABS(PI) .LT. EPSI) PI = 0.D0\r\n      IJMK = J - I\r\n      IF (AC(I) .LT. 0) GO TO 320\r\n      DO 318 K = I,C\r\n      IF (AC(K) .GT. 0) GO TO 312\r\n      WB(K+IJMK) = PI*P(K)\r\n      GO TO 318\r\n  312 WB(K+IJMK) = PI*P(K) + WA(L)\r\n      L = L + 1\r\n  318 CONTINUE\r\n      GO TO 340\r\n  320 DO 328 K = I,C\r\n      WB(K+IJMK) = PI*P(K)\r\n  328 CONTINUE\r\n  340 J = IJMK + C + 1\r\n      P(I) = PI\r\n  348 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcom3.f",
    "content": "      SUBROUTINE SDCOM3( P, AC, WA, WB )\r\nC******\r\nC\r\nC SDCOM3 COMPUTES THE CONTRIBUTIONS OF THE PIVOT ROW FOR SDCOMP IN CSP\r\nC\r\nC******\r\n      INTEGER AC(1), ROW, C, START, SC\r\nC\r\n      REAL P(2), WA(1), WB(1)\r\nC\r\n      COMMON/ SDCOMX / ROW, C, SPFLG, START, FRSTPC, LASTPL, LASTI, SC\r\nC\r\n      J = 1\r\n      L = 1\r\nC\r\nC FOR THE OUTER LOOP I RUNS FROM START TO LASTI.\r\nC BEGIN BY FORMING -P(I)/P(1). THEN DECIDE WHICH INNER LOOP TO EXECUTE\r\nC\r\n      P2 = P(1)**2 + P(2)**2\r\n      P1 = P(1) / P2\r\n      P2 = P(2) / P2\r\n      DO 48 I=START,LASTI\r\n      PIR = -P(2*I-1) * P1 - P(2*I) * P2\r\n      PII =  P(2*I-1) * P2 - P(2*I) * P1\r\n      IF( I .LE. LASTPL ) GO TO 30\r\n      IF( AC(I) .LT. 0 ) GO TO 20\r\n      K1 = I\r\nC\r\nC LOOP 1 -- L IS INCREMENTED WHENEVER AC(K) .GT. 0\r\nC\r\n   10 DO 18 K=K1,C\r\n      IF( AC(K) .GT. 0 ) GO TO 12\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1)\r\n      GO TO 14\r\n   12 WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  ) + WA(L  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1) + WA(L+1)\r\n      L = L + 2\r\n   14 J = J + 2\r\n   18 CONTINUE\r\n      GO TO 40\r\nC\r\nC LOOP 2 -- L IS NEVER INCREMENTED\r\nC\r\n   20 DO 28 K=I,C\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1)\r\n      J = J + 2\r\n   28 CONTINUE\r\n      GO TO 40\r\nC\r\nC LOOP 3 -- K RUNS FROM I TO LASTPL AND L IS INCREMENTED EVERY TIME\r\nC           THEN, IF LASTPL .LT. C, LOOP 1 IS EXECUTED TO FINISH IT UP\r\nC\r\n   30 DO 38 K=I,LASTPL\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  ) + WA(L  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1) + WA(L+1)\r\n      L = L + 2\r\n      J = J + 2\r\n   38 CONTINUE\r\n      IF( LASTPL .EQ. C ) GO TO 40\r\n      K1 = LASTPL + 1\r\n      GO TO 10\r\nC\r\nC END OUTER LOOP BY STORING -P(I)/P(1) AT P(1).\r\nC\r\n   40 P(2*I-1 ) = PIR\r\n      P(2*I   ) = PII\r\n   48 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcom4.f",
    "content": "      SUBROUTINE SDCOM4( P, AC, WA, WB )\r\nC******\r\nC\r\nC SDCOM4 COMPUTES THE CONTRIBUTIONS OF THE PIVOT ROW FOR SDCOMP IN CDP\r\nC\r\nC******\r\n      INTEGER AC(1), ROW, C, START, SC\r\nC\r\n      DOUBLE PRECISION P(2), WA(1), WB(1), PIR, PII\r\n      DOUBLE PRECISION  P1,  P2\r\nC\r\n      COMMON/ SDCOMX / ROW, C, SPFLG, START, FRSTPC, LASTPL, LASTI, SC\r\nC\r\n      J = 1\r\n      L = 1\r\nC\r\nC FOR THE OUTER LOOP I RUNS FROM START TO LASTI.\r\nC BEGIN BY FORMING -P(I)/P(1). THEN DECIDE WHICH INNER LOOP TO EXECUTE\r\nC\r\n      P2 = P(1)**2 + P(2)**2\r\n      P1 = P(1) / P2\r\n      P2 = P(2) / P2\r\n      DO 48 I=START,LASTI\r\n      PIR = -P(2*I-1) * P1 - P(2*I) * P2\r\n      PII =  P(2*I-1) * P2 - P(2*I) * P1\r\n      IF( I .LE. LASTPL ) GO TO 30\r\n      IF( AC(I) .LT. 0 ) GO TO 20\r\n      K1 = I\r\nC\r\nC LOOP 1 -- L IS INCREMENTED WHENEVER AC(K) .GT. 0\r\nC\r\n   10 DO 18 K=K1,C\r\n      IF( AC(K) .GT. 0 ) GO TO 12\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1)\r\n      GO TO 14\r\n   12 WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  ) + WA(L  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1) + WA(L+1)\r\n      L = L + 2\r\n   14 J = J + 2\r\n   18 CONTINUE\r\n      GO TO 40\r\nC\r\nC LOOP 2 -- L IS NEVER INCREMENTED\r\nC\r\n   20 DO 28 K=I,C\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1)\r\n      J = J + 2\r\n   28 CONTINUE\r\n      GO TO 40\r\nC\r\nC LOOP 3 -- K RUNS FROM I TO LASTPL AND L IS INCREMENTED EVERY TIME\r\nC           THEN, IF LASTPL .LT. C, LOOP 1 IS EXECUTED TO FINISH IT UP\r\nC\r\n   30 DO 38 K=I,LASTPL\r\n      WB(J  ) = PIR*P(2*K-1) - PII*P(2*K  ) + WA(L  )\r\n      WB(J+1) = PIR*P(2*K  ) + PII*P(2*K-1) + WA(L+1)\r\n      L = L + 2\r\n      J = J + 2\r\n   38 CONTINUE\r\n      IF( LASTPL .EQ. C ) GO TO 40\r\n      K1 = LASTPL + 1\r\n      GO TO 10\r\nC\r\nC END OUTER LOOP BY STORING -P(I)/P(1) AT P(1).\r\nC\r\n   40 P(2*I-1 ) = PIR\r\n      P(2*I   ) = PII\r\n   48 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcomp.f",
    "content": "      SUBROUTINE SDCOMP ( *, ZI, ZR, ZD )\r\n      INCLUDE 'SMCOMX.COM'\r\n      COMMON / LOGOUT / LOUT\r\n      CALL SSWTCH ( 44, I44 )\r\n      IF ( I44 .NE. 0 ) GO TO 100\r\nC\r\nC CALL NEW SYMMETRIC DECOMPOSITION ROUTINE 12/95\r\nC      \r\n      CALL SMCOMP ( *710, ZI, ZR, ZD )\r\n      IF ( IERROR .NE. 1 ) GO TO 700\r\n      WRITE ( LOUT, 901 )\r\n901   FORMAT(8X,'INSUFFICIENT OPEN CORE FOR NEW SYMMETRIC DECOMPOSITION'\r\n     &,/,8X,'WILL SWITCH AND USE OLD METHOD.')\r\nC\r\nC OTHERWISE, CALL SYMMETRIC DECOMPOSITION OF RELEASE 94 AND EARLIER\r\nC\r\n100   CALL SDCOMPX( *710, ZI, ZR, ZD )\r\n700   CONTINUE\r\n      RETURN\r\n710   CONTINUE\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/sdcompx.f",
    "content": "      SUBROUTINE SDCOMPX (*,ZI,ZR,ZD)\r\nC\r\nC     SDCOMP PERFORMS THE TRIANGULAR DECOMPOSITION OF A SYMMETRIC\r\nC     MATRIX. THE MATRIX MAY BE REAL OR COMPLEX AND ITS PRECISION MAY\r\nC     BE SNGL OR DBL\r\nC\r\n      EXTERNAL LSHIFT  ,ANDF    ,ORF\r\n      LOGICAL  GO      ,SPILL   ,SPLOUT  ,SPLIN   ,ROWONE\r\n      INTEGER  PRC     ,WORDS   ,RLCMPX  ,CLOS    ,BUF1    ,BUF2    ,\r\n     1         BUF3    ,BUF4    ,BUF5    ,RC      ,PREC    ,TYPEA   ,\r\n     2         ZI(1)   ,CONFIG  ,POWER   ,DBA     ,DBL     ,DBC     ,\r\n     3         SCR1    ,SCR2    ,SYSBUF  ,FORMA   ,SYM     ,SQR     ,\r\n     4         SCRA    ,SCRB    ,C5MAX   ,BLK     ,PCMAX   ,SAVG    ,\r\n     5         NULL(20),COL     ,C       ,S       ,SPROW   ,STURM   ,\r\n     6         GROUPS  ,CAVG    ,CMAX    ,SC      ,PREVC   ,ROW     ,\r\n     7         FRSTPC  ,PCAVG   ,PCROW   ,PCSQR   ,SX      ,CI      ,\r\n     8         SCR3    ,WB      ,SCRC    ,SCRD    ,SPFLG   ,START   ,\r\n     9         WA      ,CHLSKY  ,BEGN    ,END     ,DBNAME(2)        ,\r\n     O         PCGROU  ,ABLK    ,BBLK    ,SUBNAM(5)                 ,\r\n     1         KEY(1)  ,ORF     ,STATFL  ,ANDF    ,TWO24   ,TWO25   ,\r\n     2         MTYPE(2),IREAL(2),ICMPLX(2)\r\n      REAL     ZR(2)   ,SAVE(6) ,MINDS\r\n      DOUBLE PRECISION  ZD(2)   ,MINDD   ,XDNS(1) ,DDR     ,DDC     ,\r\n     1                  RD      ,DSAVE3\r\n      CHARACTER*10      UNUSE   ,ADDI    ,UNADD\r\n      CHARACTER         UFM*23  ,UWM*25  ,UIM*29  ,SFM*25\r\n      COMMON  /XMSSG /  UFM     ,UWM     ,UIM     ,SFM\r\n      COMMON  /SFACT /  DBA(7)  ,DBL(7)  ,DBC(7)  ,SCR1    ,SCR2    ,\r\n     1                  LCORE   ,DDR     ,DDC     ,POWER   ,SCR3    ,\r\n     2                  MINDD   ,CHLSKY\r\n      COMMON  /NTIME /  NITEMS  ,TMIO    ,TMBPAK  ,TMIPAK  ,TMPAK   ,\r\n     1                  TMUPAK  ,TMGSTR  ,TMPSTR  ,TMT(4)  ,TML(4)\r\n      COMMON  /STURMX/  STURM   ,SHFTPT  ,KEEP    ,PTSHFT  ,NR\r\n      COMMON  /SYSTEM/  KSYSTM(63)\r\n      COMMON  /NAMES /  RDNRW   ,RDREW   ,WRT     ,WRTREW  ,REW     ,\r\n     1                  NOREW   ,EOFNRW  ,RSP     ,RDP     ,CSP     ,\r\n     2                  CDP     ,SQR     ,RECT    ,DIAG    ,LOWTRI  ,\r\n     3                  UPRTRI  ,SYM\r\n      COMMON  /TYPE  /  PRC(2)  ,WORDS(4),RLCMPX(4)\r\n      COMMON  /ZZZZZZ/  XNS(1)\r\n      COMMON  /SDCOMX/  ROW     ,C       ,SPFLG   ,START   ,FRSTPC  ,\r\n     1                  LASTPL  ,LASTI   ,SC      ,IAC     ,NZZADR  ,\r\n     2                  WA      ,WB      ,PREVC   ,NZZZ    ,SPROW   ,\r\n     3                  S       ,BLK(15) ,ABLK(15),BBLK(20)\r\n      COMMON  /PACKX /  ITYPE1  ,ITYPE2  ,I1      ,J1      ,INCR1\r\n      COMMON  /UNPAKX/  ITYPE3  ,I2      ,J2      ,INCR2\r\n      EQUIVALENCE       (NROW,DBA(3)) ,(FORMA,DBA(4)) ,(TYPEA,DBA(5) ) ,\r\n     1                  (JSTR,BLK(5)) ,(COL  ,BLK(4)) ,(NTERMS,BLK(6)) ,\r\n     2                  (XDNS(1),XNS(1)),(ROW,KEY(1)) ,(DSR  ,DDR    ) ,\r\n     3                  (RS  ,RD    ) ,(DSC  ,DDC   ) ,(MINDS,MINDD  )\r\n      EQUIVALENCE       (KSYSTM( 1),SYSBUF)  ,(KSYSTM( 2),NOUT       ) ,\r\n     1                  (KSYSTM(28),CONFIG)  ,(KSYSTM(40),NBPW       ) ,\r\n     2                  (KSYSTM(57),STATFL)  ,(DBNAME( 1),SUBNAM(4)  )\r\n      DATA     SUBNAM/  4HSDCO,2HMP,3*1H   / ,\r\n     1         NKEY  /  6 / ,  BEGN/  4HBEGN/ , END   / 4HEND  /      ,\r\n     2         TWO24 /  16777216   /, TWO25 /   33554432       /\r\n      DATA     IREAL ,  ICMPLX     /  4HREAL,   4H    , 4HCOMP, 4HLEX /\r\n      DATA     UNUSE ,  ADDI       / '    UNUSED',    'ADDITIONAL'    /\r\nC\r\nC     STATEMENT FUNCTIONS\r\nC\r\n      NBRWDS(I) = I + NWDS*(I*(I+1))/2\r\n      SX(X)     = X - SQRT(AMAX1(X*(X+2.) + CMAX*4. - CONS, 1.)) - 1.0\r\n      MAXC(J)   = SQRT(FLOAT(2*J)/FNWDS - FLOAT(4*CMAX)) - 1.0\r\nC\r\nC     BUFFER ALLOCATION\r\nC\r\n      SUBNAM(3) = BEGN\r\n      CALL CONMSG (SUBNAM,5,0)\r\n      BUF1 = LCORE- SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      BUF5 = BUF4 - SYSBUF\r\n      X    = 1.0\r\n      RKHR = 1.0E-10\r\nC\r\nC     INITIALIZATION AS A FUNCTION OF TYPE OF A MATRIX\r\nC     RC   = 1 IF A IS REAL, 2 IF A IS COMPLEX\r\nC     PREC = 1 IF A IS SINGLE, 2 IF A IS DOUBLE\r\nC     NOTE - PRC(1) = 1, PRC(2) = 2, AND\r\nC            PRC(3) = WORDS(1) = 1, PRC(4) = WORDS(2) = 2\r\nC\r\n      RC = RLCMPX(TYPEA)\r\n      MTYPE(1) = IREAL(1)\r\n      MTYPE(2) = IREAL(2)\r\n      IF (RC .EQ. 1) GO TO 10\r\n      MTYPE(1) = ICMPLX(1)\r\n      MTYPE(2) = ICMPLX(2)\r\n   10 PREC  = PRC(TYPEA)\r\n      NWDS  = WORDS(TYPEA)\r\n      FNWDS = NWDS\r\n      STURM = 0\r\nC\r\nC     CHECK INPUT PARAMETERS\r\nC\r\n      IF (DBA(2) .NE. DBA(3)) GO TO 2300\r\n      ICRQ = 100 - BUF5\r\n      IF (BUF5 .LT. 100) GO TO 2310\r\n      IF (NROW .EQ.   1) GO TO 1900\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      LOOP   = 1\r\n      ISPILL = BUF5 - MAX0(100,NROW/100)\r\n      FCMAX  = 0.\r\n   20 ISPILL = ISPILL - (LOOP-1)*NROW/100\r\n      NSPILL = ISPILL\r\n      KROW   = NROW + 1\r\n      ICRQ   =-ISPILL\r\n      IF (ISPILL .LE. 0) GO TO 2310\r\n      ZI(ISPILL) = 0\r\n      PCGROU = 0\r\n      PCAVG  = 0\r\n      PCSQR  = 0\r\n      PCMAX  = 0\r\n      CSQR   = 0.0\r\n      SAVG   = 0\r\n      CLOS   = ALOG(FLOAT(NROW)) + 5.0\r\n      CLOS   = 999999\r\n      PCROW  = -CLOS\r\n      ZI(1)  = -NROW\r\n      ICRQ   = NROW - BUF5\r\n      IF (NROW .GE. BUF5) GO TO 2310\r\n      DO 30 I = 2,NROW\r\n   30 ZI(I)  = 0\r\n      CALL FNAME (DBA,DBNAME)\r\n      POWER  = 0\r\n      SCRA   = SCR3\r\n      SCRB   = IABS(DBC(1))\r\n      GO     =.TRUE.\r\n      SPILL  =.FALSE.\r\n      TIME   = 0.\r\n      GROUPS = 0\r\n      CMAX   = 0\r\n      CONS   = 2*ISPILL/NWDS\r\n      C5MAX  = MAXC(ISPILL)\r\n      DSR    = 1.0\r\n      DSC    = 0.\r\n      MINDS  = 1.E+25\r\n      IF (PREC .EQ. 1) GO TO 40\r\n      DDR    = 1.0\r\n      DDC    = 0.D0\r\n      MINDD  = 1.D+25\r\n   40 CONTINUE\r\n      CAVG   = 0\r\n      CSPILL = 0.\r\nC\r\nC     THE FOLLOWING CODE GENERATES THE ACTIVE COLUMN VECTOR FOR EACH\r\nC     ROW, SPILL GROUPS AND TIMING AND USER INFORMATION ABOUT THE\r\nC     DECOMPOSITION\r\nC\r\n      BLK(1)  = DBA(1)\r\n      ABLK(1) = SCRA\r\n      ABLK(2) = TYPEA\r\n      ABLK(3) = 0\r\n      CALL GOPEN ( DBA,ZI(BUF1),RDREW)\r\n      CALL GOPEN (SCRA,ZI(BUF2),WRTREW)\r\n      JLIST = 1\r\n      ROW   = 1\r\n      JJ    = 0\r\n      KK    = 0\r\n      NLIST = 0\r\nC\r\nC     BEGIN A ROW BY LOCATING THE DIAGONAL ELEMENT\r\nC\r\n   50 BLK(8) = -1\r\n      KR = KROW\r\n   60 CALL GETSTR (*70,BLK)\r\n      IF (PREC .EQ. 2) JSTR = 2*(JSTR-1) + 1\r\n      IF (COL .GT. ROW) GO TO 70\r\n      IF (COL+NTERMS-1 .GE. ROW) GO TO 90\r\n      CALL ENDGET (BLK)\r\n      GO TO 60\r\n   70 KK = KK + 1\r\n      ZI(KK) = ROW\r\n      GO = .FALSE.\r\n   80 IF (BLK(8) .NE. 1) CALL SKPREC (BLK,1)\r\n      ROW = ROW + 1\r\n      IF (ROW .LE. NROW) GO TO 50\r\n      GO TO 600\r\nC\r\nC     DIAGONAL TERM IS LOCATED - COMPLETE ENTRIES IN THE FULL COLUMN\r\nC     VECTOR AND SAVE THE TERMS FROM EACH STRING IN CORE\r\nC\r\n   90 IF (.NOT. GO) GO TO 80\r\n      JSTR   = JSTR + (ROW-COL)*NWDS\r\n      NTERMS = NTERMS - (ROW-COL)\r\n      COL  = ROW\r\n  100 ZI(KR  ) = COL\r\n      ZI(KR+1) = NTERMS\r\n      KR   = KR + 2\r\n      NSTR = JSTR + NTERMS*NWDS - 1\r\n      DO 110 JJ = JSTR,NSTR\r\n      ZR(KR) = XNS(JJ)\r\n      KR = KR + 1\r\n  110 CONTINUE\r\n      N = COL + NTERMS - 1\r\n      DO 170 J = COL,N\r\n      IF (ZI(J)) 120,130,160\r\n  120 M = IABS(ZI(J))\r\n      ZI(J) = ROW\r\n      IF (M .NE. 1) ZI(J+1) = -(M-1)\r\n      GO TO 170\r\n  130 I = J\r\n  140 I = I - 1\r\n      IF (I .LE. 0) GO TO 2000\r\n      IF (ZI(I)) 150,140,2010\r\n  150 M = IABS(ZI(I))\r\n      ZI(I) = -(J-I)\r\n      ZI(J) = ROW\r\n      LEFT  = M - (J-I+1)\r\n      IF (LEFT .GT. 0) ZI(J+1) = -LEFT\r\n      GO TO 170\r\n  160 IF (ZI(J).GT.ROW .AND. ZI(J).LT.TWO24) ZI(J) = ZI(J) +TWO24 +TWO25\r\n  170 CONTINUE\r\n      ICRQ = KR - ISPILL\r\n      IF (KR .GE. ISPILL) GO TO 2310\r\n      CALL ENDGET (BLK)\r\n      CALL GETSTR (*180,BLK)\r\n      IF (PREC .EQ. 2) JSTR = 2*JSTR - 1\r\n      GO TO 100\r\nC\r\nC     EXTRACT ACTIVE COLUMN VECTOR FROM THE FULL COLUMN VECTOR\r\nC\r\n  180 IAC = KR\r\n      I   = IAC\r\n      J   = ROW\r\n      LASTPL = -1\r\n  190 IF (ZI(J)    ) 260,2020,200\r\n  200 IF (ZI(J)-ROW) 210,220,250\r\n  210 ZI(I) = J\r\n      GO TO 230\r\n  220 ZI(I) = -J\r\n      IF (LASTPL .LT. 0) LASTPL = I - IAC\r\n  230 I = I + 1\r\n  240 J = J + 1\r\n      GO TO 270\r\n  250 IF (ZI(J) .LT. TWO24) GO TO 240\r\n      IF (ZI(J) .LT. TWO25) GO TO 210\r\n      ZI(J) = ZI(J) - TWO25\r\n      GO TO 220\r\n  260 J = J - ZI(J)\r\n  270 IF (J .LE. NROW) GO TO 190\r\n      ICRQ = I - ISPILL\r\n      IF (I .GT. ISPILL) GO TO 2310\r\n      C = I - IAC\r\n      CMAX  = MAX0(CMAX,C)\r\n      C5MAX = MAXC(ISPILL)\r\n      NAC   = IAC + C - 1\r\n      IF (LASTPL .LT. 0) LASTPL = C\r\nC\r\nC     MAKE SPILL CALCULATIONS\r\nC\r\n      SPFLG = 0\r\n      FC    = C\r\n      START = 2\r\n      IF (C .EQ. 1) START = 0\r\n      FRSTPC = 0\r\n      IF (.NOT.SPILL) GO TO 370\r\n      IF (ROW .LT. LSTROW) GO TO 290\r\nC\r\nC     *3* CURRENT ROW IS LAST ROW OF A SPILL GROUP. DETERMINE IF ANOTHER\r\nC         SPILL GROUP FOLLOWS AND, IF SO, ITS RANGE\r\nC\r\n  280 CONTINUE\r\n      START = 0\r\n      IF (C .GT. C5MAX) GO TO 380\r\n      SPILL = .FALSE.\r\n      GO TO 420\r\nC\r\nC     *2* CURRENT ROW IS NEITHER FIRST NOR LAST IN CURRENT SPILL GROUP.\r\nC         TEST FOR PASSIVE COL CONDITION. IF SO, TERMINATE SPILL GROUP.\r\nC         TEST FOR POSSIBLE REDEFINITION OF SPILL GROUP. IF SO, TEST FOR\r\nC         OVERFLOW OF REDEFINITION TABLE,  IF SO, TRY A DIFFERENT\r\nC         STRATEGY FOR DEFINING S AND REDO PREFACE UP TO A LIMIT OF 3\r\nC         TIMES.\r\nC\r\n  290 CONTINUE\r\n      IF (IABS(ZI(IAC+1))-ROW .LT. CLOS) GO TO 300\r\n      ASSIGN 430 TO ISWTCH\r\n      LSTROW = ROW\r\n      SPILL  = .FALSE.\r\n      START  = 0\r\n      IF (NSPILL+2 .LT. BUF5) GO TO 350\r\n      GO TO 330\r\n  300 ASSIGN 460 TO ISWTCH\r\n      IF (C .LE. ZI(SPROW)) GO TO 460\r\n      JJ = NAC\r\n  310 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 320\r\n      JJ = JJ - 1\r\n      GO TO 310\r\n  320 SC = JJ - IAC\r\n      M  = SX(FC)\r\n      IF (SC .LE. M) GO TO 460\r\n      IF (NSPILL+2 .LT. BUF5) GO TO 340\r\n  330 CONTINUE\r\n      FCMAX = AMAX1(FCMAX,FLOAT(CMAX))\r\n      CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE ( DBA,REW)\r\n      LOOP = LOOP + 1\r\n      IF (LOOP .LE. 3) GO TO 20\r\n      ICRQ = BUF5 - NSPILL - 2\r\n      GO TO 2310\r\n  340 S = M\r\n      IJKL =  MAX0(IAC,JJ-(SC-M))\r\n      LSTROW = IABS(ZI(IJKL))\r\n  350 IF (ZI(NSPILL).NE.0 .AND. ZI(NSPILL).NE.SPROW) NSPILL = NSPILL + 3\r\n      ZI(NSPILL  ) = SPROW\r\n      ZI(NSPILL+1) = S\r\n      ZI(NSPILL+2) = LSTROW\r\n      IF (ROW- LSTROW) 360,280,2070\r\n  360 CONTINUE\r\n      GO TO ISWTCH, (430,460)\r\nC\r\nC     *1* CURRENT ROW IS NOT PART OF A SPILL GROUP. TEST FOR CREATION OF\r\nC         A NEW SPILL GROUP\r\nC\r\n  370 CONTINUE\r\n      IF (C .LE. C5MAX) GO TO 420\r\n  380 SPILL  = .TRUE.\r\n      SPROW  = ROW\r\n      GROUPS = GROUPS + 1\r\n      S  = MIN0(SX(FC),NROW-SPROW)\r\n      IF (LOOP .EQ. 1) GO TO 410\r\n      JJ = IAC + S - 1\r\n  390 IF (IABS(ZI(JJ)) .LE. SPROW+S) GO TO 400\r\n      JJ = JJ - 1\r\n      GO TO 390\r\n  400 S  = JJ - IAC + 1\r\n      IF (LOOP .EQ. 3) S = MIN0(S,SX(FCMAX))\r\n  410 S  = MIN0(S,NROW-SPROW)\r\n      LSTROW = IABS(ZI(IAC+S-1))\r\n      SPFLG  = S\r\n      FRSTPC = LSTROW\r\n      SAVG   = SAVG + S\r\n      GO TO 460\r\nC\r\nC     TEST FOR CONDITION IN WHICH PASSIVE COLUMNS ARE CREATED\r\nC\r\n  420 COL = IABS(ZI(IAC+1))\r\n      IF (ROW-PCROW.LT.CLOS .OR. C.LT.CLOS/2 .OR. COL-ROW.LT.CLOS)\r\n     1    GO TO 460\r\nC\r\nC     CREATE PASSIVE COLUMNS BY CHANGING THEIR FIRST\r\nC     APPEARANCE IN THE FULL COLUMN VECTOR\r\nC\r\n  430 FRSTPC = 2\r\n      PCROW  = ROW\r\n      PCAVG  = PCAVG + C - 1\r\n      PCSQR  = PCSQR + (C-1)**2\r\n      PCMAX  = MAX0(PCMAX,C-1)\r\n      PCGROU = PCGROU + 1\r\n      NAC    = IAC + C - 1\r\n      IJKL   = IAC + 1\r\n      DO 450 I = IJKL,NAC\r\n      JJ     = IABS(ZI(I))\r\n      IF (ZI(JJ) .LE. ROW) GO TO 440\r\n      ZI(JJ) = MIN0(ANDF(ZI(JJ),TWO24-1),COL)\r\n      GO TO 450\r\n  440 ZI(JJ) = COL\r\n  450 CONTINUE\r\nC\r\nC     WRITE ACTIVE COLUMN VECTOR\r\nC\r\n  460 CONTINUE\r\n      CALL WRITE (SCRA,KEY,NKEY,0)\r\n      CALL WRITE (SCRA,ZI(IAC),C,1)\r\nC\r\nC     WRITE ROW OF INPUT MATRIX\r\nC\r\n      ABLK( 8) = -1\r\n      ABLK(12) = ROW\r\n      KR = KROW\r\n  470 ABLK(4) = ZI(KR  )\r\n      NBRSTR  = ZI(KR+1)\r\n      KR = KR + 2\r\n  480 CALL PUTSTR (ABLK)\r\n      ABLK(7) = MIN0(ABLK(6),NBRSTR)\r\n      JSTR = ABLK(5)\r\n      IF (PREC .EQ. 2) JSTR = 2*JSTR - 1\r\n      NSTR = JSTR + ABLK(7)*NWDS - 1\r\n      DO 490 JJ = JSTR,NSTR\r\n      XNS(JJ) = ZR(KR)\r\n      KR = KR + 1\r\n  490 CONTINUE\r\n      IF (KR .GE. IAC) GO TO 500\r\n      CALL ENDPUT (ABLK)\r\n      IF (ABLK(7) .EQ. NBRSTR) GO TO 470\r\n      ABLK(4) = ABLK(4) + ABLK(7)\r\n      NBRSTR  = NBRSTR  - ABLK(7)\r\n      GO TO 480\r\n  500 ABLK(8) = 1\r\n      CALL ENDPUT (ABLK)\r\nC\r\nC     ACCUMULATE TIMING AND STATISTICS INFORMATION\r\nC\r\n      CAVG = CAVG + C\r\n      CSQR = CSQR + C**2\r\n      IF (SPILL) CSPILL = CSPILL + C**2\r\n      ZI(ROW) = C\r\n      IF (ROW .EQ. NROW) GO TO 600\r\n      ROW = ROW + 1\r\n      GO TO 50\r\nC\r\nC     HERE WHEN ALL ROWS PROCESSED - CLOSE FILES AND, IF SINGULAR\r\nC     MATRIX, PRINT SINGULAR COLUMNS AND GIVE ALTERNATE RETURN\r\nC\r\n  600 CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE ( DBA,REW)\r\n      IF (GO) GO TO 620\r\n      CALL CLOSE (DBL,REW)\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,610) UFM,DBNAME,(ZI(I),I=1,KK)\r\n  610 FORMAT (A23,' 3097. SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4,\r\n     1       ' ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR -',\r\n     2       /,(5X,20I6,/))\r\n      RETURN 1\r\nC\r\nC     CALCULATE TIME ESTIMATE, PRINT USER INFORMATION AND\r\nC     CHECK FOR SUFFICIENT TIME TO COMPLETE DECOMPOSITION\r\nC\r\n  620 DENS  = FLOAT(DBA(7))/10000.\r\n      IF (DENS .LT.  0.01) DENS =  0.01\r\n      IF (DENS .GT. 99.99) DENS = 99.99\r\n      IF (GROUPS .NE.  0) SAVG = SAVG/GROUPS\r\n      SAVG  = MAX0(SAVG,1)\r\n      TIME  = 0.5*TMT(TYPEA)*CSQR + 0.5*(TMPSTR+TMGSTR)*FLOAT(PCSQR) +\r\n     1        TMPSTR*FLOAT(CAVG)  + TMIO*(FNWDS+1.0)*CSPILL/FLOAT(SAVG)\r\n      MORCOR= NBRWDS(CMAX) - ISPILL + 1\r\nC\r\n      CAVG  = CAVG/NROW\r\n      IF (PCGROU .NE. 0) PCAVG = PCAVG/PCGROU\r\n      CALL TMTOGO (IJKL)\r\n      JKLM  = 1.E-6*TIME + 1.0\r\n      ICORE = IABS(MORCOR)\r\n      IF (DBC(1) .LE. 0) GO TO 645\r\n      UNADD = UNUSE\r\n      IF (MORCOR .GT. 0) UNADD = ADDI\r\n      CALL PAGE2 (4)\r\n      WRITE (NOUT,630,ERR=645) UIM, MTYPE, DBNAME, NROW,   DENS,\r\n     1                        JKLM, CAVG,   PCAVG, GROUPS, SAVG,\r\n     2                UNADD, ICORE, CMAX,   PCMAX, PCGROU, LOOP\r\n  630 FORMAT (A29,' 3023 - PARAMETERS FOR ',2A4,\r\n     1        ' SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4,\r\n     2         5H (N =,I6, 5H, D =,F6.2,2H%), /14X,\r\n     3        17H  TIME ESTIMATE = , I7, 17H          C AVG = , I6,\r\n     4        17H         PC AVG = , I6,18H    SPILL GROUPS = , I6,\r\n     5        17H          S AVG = , I6,      /14X,\r\n     6        A10 ,      7H CORE = , I9,   15H WORDS  C MAX = , I6,\r\n     7        17H          PCMAX = , I6,18H       PC GROUPS = , I6,\r\n     8        17H  PREFACE LOOPS = , I6 )\r\n      IF (MORCOR .GT. 0) WRITE (NOUT,640)\r\n  640 FORMAT (14X,'(FOR OPTIMAL OPERATION)')\r\n  645 IF (JKLM .GE. IJKL) GO TO 2320\r\nC\r\nC     WRITE A END-OF-MATRIX STRING ON THE PASSIVE COLUMN FILE\r\nC\r\n      CALL GOPEN (SCRB,ZI(BUF2),WRTREW)\r\n      BBLK(1) = SCRB\r\n      BBLK(2) = TYPEA\r\n      BBLK(3) = 0\r\n      BBLK(8) =-1\r\n      BBLK(12)= 1\r\n      CALL PUTSTR(BBLK)\r\n      BBLK(4) = NROW + 1\r\n      BBLK(7) = 1\r\n      BBLK(8) = 1\r\n      CALL ENDPUT (BBLK)\r\n      CALL CLOSE  (SCRB,REW)\r\nC\r\nC     THE STAGE IS SET AT LAST TO PERFORM THE DECOMPOSITION -\r\nC     SO LETS GET THE SHOW UNDERWAY\r\nC\r\n      CALL GOPEN (SCRA,ZI(BUF1),RDREW )\r\n      CALL GOPEN (SCRB,ZI(BUF2),RDREW )\r\n      CALL GOPEN (DBL ,ZI(BUF3),WRTREW)\r\n      SCRC   = SCR1\r\n      SCRD   = SCR2\r\n      IF (ZI(NSPILL) .NE. 0) NSPILL = NSPILL + 3\r\n      ZI(NSPILL) = NROW + 1\r\n      SPLIN  = .FALSE.\r\n      SPLOUT = .FALSE.\r\n      SPILL  = .FALSE.\r\n      IF (GROUPS .NE. 0) SPILL = .TRUE.\r\n      NZZZ   = ORF(ISPILL-1,1)\r\n      ROWONE = .FALSE.\r\n      DBL(2) = 0\r\n      DBL(6) = 0\r\n      DBL(7) = LSHIFT(1,NBPW-2 - (NBPW-32))\r\nC\r\nC     THIS 'NEXT TO SIGN' BIT WILL BE PICKED UP BY WRTTRL. ADD (NBPW-32)\r\nC     SO THAT CRAY, WITH 48-BIT INTEGER, WILL NOT GET INTO TROUBLE\r\nC\r\n      BLK(1) = DBL(1)\r\n      BLK(2) = TYPEA\r\n      BLK(3) = 1\r\n      WA     = NZZZ\r\n      WB     = WA\r\n      PREVC  = 0\r\n      BBLK(8)= -1\r\n      CALL GETSTR (*2080,BBLK)\r\n      KSPILL = ISPILL\r\nC\r\nC     READ KEY WORDS AND ACTIVE COLUMN VECTOR FOR CURRENT ROW\r\nC\r\n  650 NAME = SCRA\r\n      IF (SPLIN) NAME = SCRD\r\n      CALL FREAD (NAME,KEY,NKEY,0)\r\n      IAC = C*NWDS + 1\r\n      CALL FREAD (NAME,ZI(IAC),C,1)\r\n      NAC = IAC + C - 1\r\n      IF (ZI(IAC) .LT. 0) PREVC = 0\r\n      IF (SPLIN) GO TO 700\r\nC\r\nC     READ TERMS FROM THE INPUT MATRIX\r\nC\r\n      ABLK(8) = -1\r\n      CALL GETSTR (*2090,ABLK)\r\n      N = IAC - 1\r\n      DO 670 I = 1,N\r\n      ZR(I) = 0.\r\n  670 CONTINUE\r\n      CALL SDCIN (ABLK,ZI(IAC),C,ZR,ZR)\r\nC\r\nC     IF DEFINED, MERGE ROW FROM PASSIVE COLUMN FILE\r\nC\r\n  680 IF (ROW-BBLK(4)) 710,690,2100\r\n  690 CALL SDCIN (BBLK,ZI(IAC),C,ZR,ZR)\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*2110,BBLK)\r\n      GO TO 680\r\nC\r\nC     READ CURRENT PIVOT ROW FROM SPILL FILE. IF LAST ROW, CLOSE FILE\r\nC\r\n  700 PREVC = 0\r\n      CALL FREAD (SCRD,ZR,C*NWDS,1)\r\n      IF (ROW .LT. LSTSPL) GO TO 710\r\n      CALL CLOSE (SCRD,REW)\r\nC\r\nC     IF 1ST ROW OF A NEW SPILL GROUP, OPEN SCRATCH FILE TO WRITE\r\nC\r\n  710 IF (ROWONE) GO TO 740\r\n      IF (SPLOUT) GO TO 810\r\n      IF (SPFLG .EQ. 0) GO TO 810\r\n      SPLOUT = .TRUE.\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\n      SPROW  = ROW\r\n      S      = SPFLG\r\n      LSTROW = FRSTPC\r\n      FRSTPC = 0\r\nC\r\nC     IF S WAS REDEFINED, GET NEW DEFINITION\r\nC\r\n      DO 720 I = KSPILL,NSPILL,3\r\n      IF (ROW-ZI(I)) 740,730,720\r\n  720 CONTINUE\r\n      GO TO 740\r\n  730 S = ZI(I+1)\r\n      LSTROW = ZI(I+2)\r\n      KSPILL = I + 3\r\nC\r\nC     WRITE ANY TERMS ALREADY CALCULATED WHICH ARE\r\nC     BEYOND THE RANGE OF THE CURRENT SPILL GROUP\r\nC\r\n  740 IF (.NOT.SPLOUT) GO TO 810\r\n      N    = 0\r\n      IJKL = NAC\r\n  750 IF (IABS(ZI(IJKL)) .LE. LSTROW) GO TO 760\r\n      IJKL = IJKL - 1\r\n      GO TO 750\r\n  760 IJKL = IJKL + 1\r\n      IF (IJKL .GT. NAC) GO TO 780\r\n      DO 770 I = IJKL,NAC\r\n      IF (ZI(I) .GT. 0.) N = N + 1\r\n  770 CONTINUE\r\n      N = NWDS*N*(N+1)/2\r\n  780 CALL WRITE (SCRC,N,1,0)\r\n      CALL WRITE (SCRC,ZR(NZZZ-N),N,1)\r\nC\r\nC     MOVE WA TO ACCOUNT FOR ANY TERMS JUST WRITTEN\r\nC\r\n      IF (N .EQ. 0) GO TO 810\r\n      J = NZZZ\r\n      I = NZZZ - N\r\n      IF (NZZZ-WA .EQ. N) GO TO 800\r\n  790 J = J - 1\r\n      I = I - 1\r\n      ZR(J) = ZR(I)\r\n      IF (I .GT. WA) GO TO 790\r\n  800 WA = J\r\nC\r\nC     IF THE PIVOTAL ROW DID NOT COME FROM THE SPILL FILE, IT IS CREATED\r\nC\r\n  810 IF (SPLIN) GO TO 1110\r\n      I = IAC\r\n      L = WA\r\n      IF (PREC .EQ. 2) L = (WA-1)/2 + 1\r\n      GO TO (820,890,960,1030), TYPEA\r\nC\r\nC     CREATE PIVOT ROW IN RSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n  820 CONTINUE\r\n      IF (ZI(IAC) .LT. 0) GO TO 850\r\n      DO 840 J = 1,C\r\n      IF (ZI(I) .LT. 0) GO TO 830\r\n      ZR(J) = ZR(J) + ZR(L)\r\n      L = L + 1\r\n  830 I = I + 1\r\n  840 CONTINUE\r\n  850 CONTINUE\r\n      ASSIGN 860 TO KHR\r\n      IF (ZR(1)) 860,1820,860\r\n  860 IF (ABS(DSR) .LT. 10.) GO TO 870\r\n      DSR   = DSR/10.\r\n      POWER = POWER + 1\r\n      GO TO 860\r\n  870 IF (ABS(DSR) .GT. 0.1) GO TO 880\r\n      DSR   = DSR*10.\r\n      POWER = POWER - 1\r\n      GO TO 870\r\n  880 DSR   = DSR*ZR(1)\r\n      MINDS = AMIN1(ABS(ZR(1)),MINDS)\r\nC\r\nC     COUNTING SIGN CHANGES OF THE LEADING PRINCIPLE MINORS IN STURM\r\nC     SEQ.\r\nC\r\n      IF (ZR(1) .LT. 0.) STURM = STURM + 1\r\n      GO TO 1100\r\nC\r\nC     CREATE PIVOT ROW IN RDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n  890 CONTINUE\r\n      IF (ZI(IAC) .LT. 0) GO TO 920\r\n      DO 910 J = 1,C\r\n      IF (ZI(I) .LT. 0) GO TO 900\r\n      ZD(J) = ZD(J) + ZD(L)\r\n      L = L + 1\r\n  900 I = I + 1\r\n  910 CONTINUE\r\n  920 CONTINUE\r\n      ASSIGN 930 TO KHR\r\n      IF (ZD(1)) 930,1820,930\r\n  930 IF (DABS(DDR) .LT. 10.0D0) GO TO 940\r\n      DDR   = DDR/10.D0\r\n      POWER = POWER + 1\r\n      GO TO 930\r\n  940 IF (DABS(DDR) .GT. 0.1D0) GO TO 950\r\n      DDR   = DDR*10.D0\r\n      POWER = POWER - 1\r\n      GO TO 940\r\n  950 DDR   = DDR*ZD(1)\r\n      MINDD = DMIN1(DABS(ZD(1)),MINDD)\r\nC\r\nC     COUNTING SIGN CHANGES (STURM SEQUENCE PROPERTY)\r\nC\r\n      IF (ZD(1) .LT. 0.D0) STURM = STURM + 1\r\n      GO TO 1100\r\nC\r\nC     CREATE PIVOT ROW IN CSP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n  960 CONTINUE\r\n      IF (ZI(IAC) .LT. 0) GO TO 990\r\n      CI = 2*C - 1\r\n      DO 980 J = 1,CI,2\r\n      IF (ZI(I) .LT. 0) GO TO 970\r\n      ZR(J  ) = ZR(J  ) + ZR(L  )\r\n      ZR(J+1) = ZR(J+1) + ZR(L+1)\r\n      L = L + 2\r\n  970 I = I + 1\r\n  980 CONTINUE\r\n  990 CONTINUE\r\n      SAVE(3) = SQRT(ZR(1)**2 + ZR(2)**2)\r\n      IF (SAVE(3)) 1000,1840,1000\r\n 1000 IF (SQRT(DSR**2+DSC**2) .LT. 10.) GO TO 1010\r\n      DSR = DSR/10.\r\n      DSC = DSC/10.\r\n      POWER = POWER + 1\r\n      GO TO 1000\r\n 1010 IF (SQRT(DSR**2+DSC**2) .GT. 0.1) GO TO 1020\r\n      DSR = DSR*10.\r\n      DSC = DSC*10.\r\n      POWER = POWER - 1\r\n      GO TO 1010\r\n 1020 RS  = DSR*ZR(1) - DSC*ZR(2)\r\n      DSC = DSR*ZR(2) + DSC*ZR(1)\r\n      DRR = RS\r\n      MINDS = AMIN1(SAVE(3),MINDS)\r\n      GO TO 1100\r\nC\r\nC     CREATE PIVOT ROW IN CDP, ACCUMULATE DETERMINANT AND MIN DIAGONAL\r\nC\r\n 1030 CONTINUE\r\n      IF (ZI(IAC) .LT. 0) GO TO 1060\r\n      CI = 2*C - 1\r\n      DO 1050 J = 1,CI,2\r\n      IF (ZI(I) .LT. 0) GO TO 1040\r\n      ZD(J  ) = ZD(J  ) + ZD(L  )\r\n      ZD(J+1) = ZD(J+1) + ZD(L+1)\r\n      L = L + 2\r\n 1040 I = I + 1\r\n 1050 CONTINUE\r\n 1060 CONTINUE\r\nC\r\nC     IN COMPARING THE SOURCE CODES HERE FOR CSP AND CDP COMPUTATION,\r\nC     IT IS DECIDED TO CHANGE THE ORIGINAL LINES (COMMENTED OUT) TO THE\r\nC     NEW LINES USING DSAVE3 INSTEAD OF RD       BY G.CHAN/UNISYS, 8/84\r\nC\r\n      DSAVE3 = DSQRT(ZD(1)**2 + ZD(2)**2)\r\n      IF (DSAVE3) 1070,1840,1070\r\n 1070 IF (DSQRT(DDR**2+DDC**2) .LT. 10.D0) GO TO 1080\r\n      DDR   = DDR/10.D0\r\n      DDC   = DDC/10.D0\r\n      POWER = POWER + 1\r\n      GO TO 1070\r\n 1080 IF (DSQRT(DDR**2+DDC**2) .GT. 0.1D0) GO TO 1090\r\n      DDR   = DDR*10.D0\r\n      DDC   = DDC*10.D0\r\n      POWER = POWER - 1\r\n      GO TO 1080\r\n 1090 RD    = DDR*ZD(1) - DDC*ZD(2)\r\n      DDC   = DDR*ZD(2) + DDC*ZD(1)\r\n      DDR   = RD\r\n      MINDD = DMIN1(DSAVE3,MINDD)\r\nC\r\nC     CALCULATE WB\r\nC\r\n 1100 CONTINUE\r\n 1110 LASTI = 1\r\n      IF (START .EQ. 0) GO TO 1250\r\n      IF (SPLIN ) GO TO 1120\r\n      IF (SPLOUT) GO TO 1130\r\n      CI = C\r\n      SC = C\r\n      GO TO 1160\r\n 1120 CI = C - (START-2)\r\n      SC = CI\r\n      JJ = NAC\r\n      IF (SPLOUT) GO TO 1140\r\n      IF ((CI*(CI+1)+2*C)*NWDS/2+C .GT. NZZZ) GO TO 2120\r\n      GO TO 1160\r\n 1130 CI = C\r\n      SC = LSTROW - SPROW\r\n      JJ = MIN0(NAC,IAC+START+SC-2)\r\n 1140 IF (IABS(ZI(JJ)) .LE. LSTROW) GO TO 1150\r\n      JJ = JJ - 1\r\n      GO TO 1140\r\n 1150 SC = JJ - IAC - START + 2\r\n      IF (SC .GT. 0) GO TO 1160\r\n      SC = 0\r\n      WB = WA\r\n      GO TO 1180\r\n 1160 NTERMS = SC*(CI-1) - (SC*(SC-1))/2\r\n      NWORDS = NTERMS*NWDS\r\n      WB = NZZZ - NWORDS\r\n      IF (PREC .EQ. 2) WB = ORF(WB-1,1)\r\n      IF (WB .LT. IAC+C) GO TO 2060\r\n      IF (WB .GT. WA+NWDS*PREVC) GO TO 2130\r\n 1180 CONTINUE\r\n      IF (SPLIN .AND. ROW.EQ.LSTSPL) SPLIN = .FALSE.\r\n      LASTI = MIN0(START+SC-1,C)\r\n      IF (SC .EQ. 0) GO TO 1250\r\nC\r\nC     NOW CALCULATE CONTRIBUTIONS FROM CURRENT PIVOT ROW TO SECOND TERM\r\nC     IN EQUATION (4) IN MEMO CWM-19. NOTE-TERMS ARE CALCULATED ONLY\r\nC     FOR ROW/COL COMBINATIONS IN THE CURRENT SPILL GROUP\r\nC\r\n      GO TO (1210,1220,1230,1240), TYPEA\r\n 1210 CALL SDCOM1 (ZI,ZI(IAC),ZR(WA+  PREVC),ZR(WB))\r\n      GO TO 1250\r\n 1220 CALL SDCOM2 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB))\r\n      GO TO 1250\r\n 1230 CALL SDCOM3 (ZI,ZI(IAC),ZR(WA+2*PREVC),ZR(WB))\r\n      GO TO 1250\r\n 1240 CALL SDCOM4 (ZI,ZI(IAC),ZR(WA+4*PREVC),ZR(WB))\r\nC\r\nC     SHIP PIVOT ROW OUT TO EITHER MATRIX OR SPILL FILE\r\nC\r\n 1250 IF (LASTI .EQ. C) GO TO 1290\r\n      IF (.NOT. SPLOUT) GO TO 2030\r\nC\r\nC     PIVOT ROW GOES TO SPILL FILE - SET INDEX WHERE TO BEGIN NEXT AND\r\nC     WRITE ROW AND ACTIVE COLUMNN VECTOR\r\nC\r\n      IJKL   = SPFLG\r\n      II     = FRSTPC\r\n      SPFLG  = 0\r\n      FRSTPC = 0\r\n      START  = LASTI + 1\r\n      CALL WRITE (SCRC,KEY,NKEY, 0)\r\n      CALL WRITE (SCRC,ZI(IAC),C,1)\r\n      CALL WRITE (SCRC,ZR,C*NWDS,1)\r\n      IF (ROW .LT. LSTROW) GO TO 1440\r\nC\r\nC     LAST ROW OF CURRENT SPILL GROUP - REWIND FILE AND OPEN IT TO READ.\r\nC     IF ANOTHER SPILL GROUP, SET IT UP\r\nC\r\n      CALL CLOSE (SCRC,REW)\r\n      JKLM   = SCRC\r\n      SCRC   = SCRD\r\n      SCRD   = JKLM\r\n      CALL GOPEN (SCRD,ZI(BUF5),RDREW)\r\n      LSTSPL = ROW\r\n      SPLIN  =.TRUE.\r\n      SPLOUT =.FALSE.\r\n      IF (IJKL .EQ. 0) GO TO 1280\r\n      SPLOUT =.TRUE.\r\n      SPROW  = ROW\r\n      S      = IJKL\r\n      LSTROW = II\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\nC\r\nC     IF S WAS REDEFINED, GET NEW DEFINITION\r\nC\r\n      DO 1260 I = KSPILL,NSPILL,3\r\n      IF (ROW-ZI(I)) 1280,1270,1260\r\n 1260 CONTINUE\r\n      GO TO 1280\r\n 1270 S = ZI(I+1)\r\n      LSTROW = ZI(I+2)\r\n      KSPILL = I + 3\r\nC\r\nC     READ ANY TERMS SAVED FROM PREVIOUS SPILL GROUP\r\nC\r\n 1280 IF (ROW .EQ. NROW) GO TO 1500\r\n      CALL FREAD (SCRD,N,1,0)\r\n      WA = NZZZ - N\r\n      CALL FREAD (SCRD,ZR(WA),N,1)\r\n      ROWONE = .TRUE.\r\n      GO TO 650\r\nC\r\nC     PIVOT ROW GOES TO OUTPUT FILE - IF REQUIRED, CONVERT TO CHOLESKY\r\nC\r\n 1290 IF (ROW .NE. DBL(2)+1) GO TO 2040\r\n      IF (CHLSKY .EQ. 0) GO TO 1340\r\n      IF (RC     .EQ. 2) GO TO 2050\r\n      IF (PREC   .EQ. 2) GO TO 1320\r\n      IF (ZR(1) .LT. 0.) GO TO 1800\r\n      ZR(1) = SQRT(ZR(1))\r\n      IF (C .EQ. 1) GO TO 1340\r\n      DO 1310 I = 2,C\r\n      ZR(I) = ZR(I)*ZR(1)\r\n 1310 CONTINUE\r\n      GO TO 1340\r\n 1320 IF (ZD(1) .LT. 0.0D+0) GO TO 1800\r\n      ZD(1) = DSQRT(ZD(1))\r\n      IF (C .EQ. 1) GO TO 1340\r\n      DO 1330 I = 2,C\r\n      ZD(I) = ZD(I)*ZD(1)\r\n 1330 CONTINUE\r\nC\r\nC     WRITE THE ROW WITH PUTSTR/ENDPUT\r\nC\r\n 1340 CALL SDCOUT (BLK,0,ZI(IAC),C,ZR,ZR)\r\nC\r\nC     IF ACTIVE COLUMNS ARE NOW GOING PASSIVE, MERGE ROWS IN CORE\r\nC     WITH THOSE NOW ON THE PC FILE THUS CREATING A NEW PC FILE\r\nC\r\n      IF (FRSTPC .EQ. 0) GO TO 1430\r\n      IF (SPLIN .OR. SPLOUT) GO TO 2140\r\n      CALL GOPEN (SCRC,ZI(BUF4),WRTREW)\r\n      BLK(1) = SCRC\r\n      BLK(3) = 0\r\n      IJKL = IAC + 1\r\n      DO 1390 I = IJKL,NAC\r\n 1360 IF (IABS(ZI(I)) .LE. BBLK(4)) GO TO 1380\r\n      CALL CPYSTR (BBLK,BLK,1,0)\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*2150,BBLK)\r\n      GO TO 1360\r\n 1380 CI = NAC - I + 1\r\n      CALL SDCOUT (BLK,0,ZI(I),CI,ZR(WB),ZR(WB))\r\n      WB = WB + CI*NWDS\r\n 1390 CONTINUE\r\n      ICRQ = WB - ISPILL\r\n      IF (WB .GT. ISPILL) GO TO 2310\r\n 1400 CALL CPYSTR (BBLK,BLK,1,0)\r\n      IF (BBLK(4) .EQ. NROW+1) GO TO 1410\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*2160,BBLK)\r\n      GO TO 1400\r\n 1410 CALL CLOSE (SCRB,REW)\r\n      CALL CLOSE (SCRC,REW)\r\n      I = SCRB\r\n      SCRB = SCRC\r\n      SCRC = I\r\n      CALL GOPEN (SCRB,ZI(BUF2),RDREW)\r\n      BBLK(1) = SCRB\r\n      BBLK(8) = -1\r\n      CALL GETSTR (*2170,BBLK)\r\n      BLK(1) = DBL(1)\r\n      BLK(3) = 1\r\nC\r\nC     ACCUMULATE MCB INFORMATION FOR PIVOT ROW\r\nC\r\n 1430 CONTINUE\r\n      NWORDS = C*NWDS\r\n      DBL(2) = DBL(2) + 1\r\n      DBL(6) = MAX0(DBL(6),NWORDS)\r\n      DBL(7) = DBL(7) + NWORDS\r\nC\r\nC     PREPARE TO PROCESS NEXT ROW.\r\nC\r\n 1440 IF (ROW .EQ. NROW) GO TO 1500\r\n      PREVC  = C - 1\r\n      ROWONE = .FALSE.\r\n      WA = WB\r\n      GO TO 650\r\nC\r\nC     CLOSE FILES AND PUT END MESSAGE IN RUN LOG.\r\nC\r\n 1500 SUBNAM(3) = END\r\n      CALL CONMSG (SUBNAM,5,0)\r\n      CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE (SCRB,REW)\r\n      CALL CLOSE ( DBL,REW)\r\nC\r\nC     PRINT ROOTS INFORMATION IF THIS IS EIGENVALUE PROBLEM, AND KEEP\r\nC     TWO LARGEST SHIFT POINT DATA IF SEVERAL SHIFT POINT MOVINGS ARE\r\nC     INVOLVED.\r\nC\r\n      IF (SHFTPT .GT. 0.) WRITE (NOUT,1510) STURM,SHFTPT\r\n 1510 FORMAT (20X,I5,13H ROOTS BELOW ,1P,E14.6)\r\n      IF (STURM .NE. 0) GO TO 1520\r\n      IF (KEEP  .LE. 0) GO TO 1530\r\n      STURM  = KEEP\r\n      SHFTPT = PTSHFT\r\n      GO TO 1530\r\n 1520 IF (KEEP .GT. STURM) GO TO 1530\r\n      JJ     = KEEP\r\n      RS     = PTSHFT\r\n      KEEP   = STURM\r\n      PTSHFT = SHFTPT\r\n      STURM  = JJ\r\n      SHFTPT = RS\r\n 1530 IF (STATFL .NE. 1) RETURN\r\nC\r\nC     PREPARE AND PRINT STATISTICS REGARDING DECOMPOSITION\r\nC\r\n      IF (2*NROW .LT. BUF2) GO TO 1600\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1540) UIM\r\n 1540 FORMAT (A29,' 2316. INSUFFICIENT CORE TO PREPARE DECOMPOSITION ',\r\n     1       'STATISTICS.')\r\n      RETURN\r\nC\r\n 1600 CALL GOPEN (SCRA,ZI(BUF1),RDREW)\r\n      CALL GOPEN ( DBL,ZI(BUF2),RDREW)\r\n      ABLK(1) = SCRA\r\n      BBLK(1) = DBL(1)\r\n      ROW = 1\r\n      DO 1610 I = 1,6\r\n      NULL(I) = 0\r\n 1610 CONTINUE\r\n      NN = 2*NROW - 1\r\n      EPSMAX = 0.\r\n      N  = 0\r\n      DO 1710 J = 1,NN,2\r\n      ABLK(8) = -1\r\n      BBLK(8) = -1\r\n      CALL FWDREC (*2220,ABLK)\r\n      CALL GETSTR (*2180,ABLK)\r\n      CALL GETSTR (*2190,BBLK)\r\n      IF (ABLK(4) .NE. ROW) GO TO 2200\r\n      IF (BBLK(4) .NE. ROW) GO TO 2210\r\n      II = ABLK(5)\r\n      JJ = BBLK(5)\r\n      GO TO (1660,1670,1680,1690), TYPEA\r\n 1660 SAVE(2) = XNS(II)\r\n      SAVE(3) = XNS(JJ)\r\n      GO TO 1700\r\n 1670 SAVE(2) = XDNS(II)\r\n      SAVE(3) = XDNS(JJ)\r\n      GO TO 1700\r\n 1680 SAVE(2) = SQRT(XNS(II)**2 + XNS(II+1)**2)\r\n      SAVE(3) = SQRT(XNS(JJ)**2 + XNS(JJ+1)**2)\r\n      GO TO 1700\r\n 1690 SAVE(2) = DSQRT(XDNS(II)**2 + XDNS(II+1)**2)\r\n      SAVE(3) = DSQRT(XDNS(JJ)**2 + XDNS(JJ+1)**2)\r\n 1700 CALL FWDREC (*2220,ABLK)\r\n      CALL FWDREC (*2220,BBLK)\r\n      EPS = ABS(SAVE(2)/SAVE(3))\r\n      ZI(J  ) = ROW\r\n      ZI(J+1) = EPS\r\n      IF (SAVE(3) .LT. 0.) N = N + 1\r\n      EPSMAX = AMAX1(EPSMAX,EPS)\r\n      ROW = ROW + 1\r\n 1710 CONTINUE\r\n      CALL SORT (0,0,2,2,ZI,2*NROW)\r\n      CALL CLOSE (ABLK,REW)\r\n      CALL CLOSE (BBLK,REW)\r\n      SAVE(1) = 0.1*EPSMAX\r\n      DO 1720 I = 2,6\r\n      SAVE(I) = 0.1*SAVE(I-1)\r\n 1720 CONTINUE\r\n      DO 1780 J = 1,NN,2\r\n      IF (ZR(J+1) .GT. SAVE(1)) GO TO 1730\r\n      IF (ZR(J+1) .GT. SAVE(2)) GO TO 1740\r\n      IF (ZR(J+1) .GT. SAVE(3)) GO TO 1750\r\n      IF (ZR(J+1) .GT. SAVE(4)) GO TO 1760\r\n      IF (ZR(J+1) .GT. SAVE(5)) GO TO 1770\r\n      NULL(6) = NULL(6) + 1\r\n      GO TO 1780\r\n 1730 NULL(1) = NULL(1) + 1\r\n      GO TO 1780\r\n 1740 NULL(2) = NULL(2) + 1\r\n      GO TO 1780\r\n 1750 NULL(3) = NULL(3) + 1\r\n      GO TO 1780\r\n 1760 NULL(4) = NULL(4) + 1\r\n      GO TO 1780\r\n 1770 NULL(5) = NULL(5) + 1\r\n 1780 CONTINUE\r\n      I = MAX0(1,NN-8)\r\n      CALL PAGE2 (6)\r\n      WRITE  (NOUT,1790) UIM,DBNAME,N,EPSMAX,(NULL(J),J=1,6),\r\n     1                   (ZI(J),J=I,NN,2)\r\n 1790 FORMAT (A29,' 2314. STATISTICS FOR SYMMETRIC DECOMPOSITION OF ',\r\n     1        'DATA BLOCK ',2A4,7H FOLLOW,\r\n     2        /10X,23HNUMBER OF UII .LT. 0 = ,I5,\r\n     3        /10X,36HMAXIMUM ABSOLUTE VALUE OF AII/UII = ,1P,E12.5,\r\n     4        /10X,13HN1 THRU N6 = ,6I6,\r\n     5        /10X,36HROW NUMBERS OF 5 LARGEST  AII/UII = ,6I6 )\r\n      RETURN\r\nC\r\nC     DIAGONAL ELEMENT .LT. 0.0 IN CHOLESKY DECOMPOSITION\r\nC\r\n 1800 WRITE  (NOUT,1810) UFM\r\n 1810 FORMAT (A23,' 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION ON',\r\n     1       ' A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SDCOMP.')\r\n      GO TO 2330\r\nC\r\nC     DIAGONAL ELEMENT .EQ. 0.0\r\nC\r\n 1820 ZR(1) = RKHR\r\n      IF (TYPEA .EQ. 2) ZD(1) = RKHR\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,1830) UWM,ROW,RKHR\r\n 1830 FORMAT (A25,' 2396, SDCOMP COMPUTED A ZERO ON THE DIAGONAL DURING'\r\n     1,      ' DECOMPOSITION AT ROW NUMBER',I6,1H., /5X,\r\n     2       'USE OF DIAG 22 OUTPUT SHOULD PERMIT YOU TO CORRELATE THE',\r\n     3       ' ROW WITH A MODEL D.O.F.', /5X,'A VALUE OF ',E13.6,\r\n     4       ' WILL BE USED IN PLACE OF THE ZERO, HOWEVER', /5X,\r\n     5       ' THE ACCURACY OF THE DECOMPOSITION MAY BE IN DOUBT.')\r\n      GO TO KHR, (860,930)\r\n 1840 CALL CLOSE (SCRA,REW)\r\n      CALL CLOSE (SCRB,REW)\r\n      CALL CLOSE ( DBL,REW)\r\n      CALL CLOSE (SCRC,REW)\r\n      CALL CLOSE (SCRD,REW)\r\n      RETURN 1\r\nC\r\nC     DECOMPOSE A 1X1 MATRIX\r\nC\r\n 1900 ITYPE1 = TYPEA\r\n      ITYPE2 = TYPEA\r\n      ITYPE3 = TYPEA\r\n      POWER  = 0\r\n      I1     = 1\r\n      J1     = 1\r\n      I2     = 1\r\n      J2     = 1\r\n      INCR1  = 1\r\n      INCR2  = 1\r\n      KK     = 1\r\n      NULL(1)= 1\r\n      GO     =.FALSE.\r\n      CALL GOPEN  (DBA,ZI(BUF1),RDREW)\r\n      CALL UNPACK (*600,DBA,ZR)\r\n      CALL CLOSE  (DBA,REW)\r\n      CALL GOPEN  (DBL,ZI(BUF1),WRTREW)\r\n      DBL(2) = 0\r\n      DBL(6) = 0\r\n      GO TO (1910,1920,1930,1940), TYPEA\r\n 1910 MINDS = ZR(1)\r\n      DSR   = ZR(1)\r\n      IF (ZR(1)) 1950,600,1950\r\n 1920 MINDD = ZD(1)\r\n      DDR   = ZD(1)\r\n      IF (ZD(1)) 1950,600,1950\r\n 1930 MINDS = SQRT(ZR(1)**2 + ZR(2)**2)\r\n      DSR   = ZR(1)\r\n      DSC   = ZR(2)\r\n      IF (MINDS) 1950,600,1950\r\n 1940 MINDD = DSQRT(ZD(1)**2 + ZD(2)**2)\r\n      DDR   = ZD(1)\r\n      DDC   = ZD(2)\r\n      IF (MINDD) 1950,600,1950\r\n 1950 CALL PACK  (ZR,DBL,DBL)\r\n      CALL CLOSE (DBL,REW)\r\n      RETURN\r\nC\r\nC     VARIOUS ERRORS LAND HERE\r\nC\r\n 2000 KERR = 1045\r\n      GO TO  2230\r\n 2010 KERR = 1046\r\n      GO TO  2230\r\n 2020 KERR = 1051\r\n      GO TO  2230\r\n 2030 KERR = 1310\r\n      GO TO  2230\r\n 2040 KERR = 1320\r\n      GO TO  2230\r\n 2050 KERR = 1300\r\n      GO TO  2230\r\n 2060 KERR = 1288\r\n      GO TO  2230\r\n 2070 KERR = 1065\r\n      GO TO  2230\r\n 2080 KERR = 1204\r\n      GO TO  2230\r\n 2090 KERR = 660\r\n      GO TO  2230\r\n 2100 KERR = 1215\r\n      GO TO  2230\r\n 2110 KERR = 1216\r\n      GO TO  2230\r\n 2120 KERR = 1288\r\n      GO TO  2230\r\n 2130 KERR = 1170\r\n      GO TO  2230\r\n 2140 KERR = 1350\r\n      GO TO  2230\r\n 2150 KERR = 1370\r\n      GO TO  2230\r\n 2160 KERR = 1340\r\n      GO TO  2230\r\n 2170 KERR = 1420\r\n      GO TO  2230\r\n 2180 KERR = 1620\r\n      GO TO  2230\r\n 2190 KERR = 1630\r\n      GO TO  2230\r\n 2200 KERR = 1640\r\n      GO TO  2230\r\n 2210 KERR = 1650\r\n      GO TO  2230\r\n 2220 KERR = 1407\r\n      GO TO  2230\r\n 2230 WRITE  (NOUT,2240) SFM,KERR\r\n 2240 FORMAT (A25,' 3130, LOGIC ERROR',I6,' OCCURRED IN SDCOMP.')\r\n      J = 66\r\n      WRITE  (NOUT,2250) (KEY(I),I=1,J)\r\n 2250 FORMAT (36H0   CONTENTS OF / SDCOMX / FOLLOW -- ,/(1X,10I12))\r\n      GO TO 2330\r\nC\r\nC     ERROR EXITS\r\nC\r\n 2300 IER = -7\r\n      IFL = 0\r\n      GO TO 2340\r\n 2310 IER = -8\r\n      IFL = ICRQ\r\n      GO TO 2340\r\n 2320 IER = -50\r\n      IFL = JKLM\r\n      GO TO 2340\r\n 2330 IER = -37\r\n      IFL = 0\r\n 2340 CALL MESAGE (IER,IFL,SUBNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdcout.f",
    "content": "      SUBROUTINE SDCOUT (BLOCK,IRW,AC,N,VECS,VECD)\r\nC\r\nC     SDCOUT WRITES A ROW OF A MATRIX IN STRING FORMAT USING\r\nC     PUTSTR/ENDPUT.\r\nC\r\nC     BLOCK = A 15-WORD ARRAY IN WHICH BLOCK(1),(2),(3) HAVE ALREADY\r\nC             BEEN COMPLETED WITH GINO NAME, TYPE AND FORMAT\r\nC     IRW   = ZERO -- ROW NBR OF VECTOR = AC(1)\r\nC           = N.Z. -- ROW NBR OF VECTOR IS IRW\r\nC     AC    = A VECTOR OF N COLUMN POSITIONS (COL NBRS MAY BE .LT. 0)\r\nC     N     = NUMBER OF WORDS IN AC AND NUMBER OF TERMS IN VECS\r\nC     VECS  = A VECTOR OF N TERMS. THE POS OF EACH TERM IS DEFINED\r\nC             BY THE NUMBER STORED IN THE CORRESPONDING POSITION IN AC\r\nC     VECD  = SAME VECTOR AS VECS\r\nC\r\n      INTEGER          AC(1)    ,PRC      ,WORDS    ,RLCMPX   ,TYPE   ,\r\n     1                 RC       ,PREC     ,BLOCK(15)\r\n      REAL             VECS(1)  ,XNS(1)\r\n      DOUBLE PRECISION XND      ,VECD(1)\r\n      COMMON /TYPE  /  PRC(2)   ,WORDS(4) ,RLCMPX(4)\r\n      COMMON /ZZZZZZ/  XND(1)\r\n      EQUIVALENCE      (XND(1),XNS(1))\r\nC\r\n      BLOCK(8)  = -1\r\n      BLOCK(12) = IRW\r\n      IF (IRW .EQ. 0) BLOCK(12) = IABS(AC(1))\r\n      II   = 0\r\n      TYPE = BLOCK(2)\r\n      RC   = RLCMPX(TYPE)\r\n      PREC = PRC(TYPE)\r\n      I    = 1\r\nC\r\nC     DETERMINE LENGTH OF A STRING BY SCANNING AC\r\nC\r\n   10 BLOCK(4) = IABS(AC(I))\r\n      J = BLOCK(4) - I\r\n      K = I + 1\r\n   12 IF (K .GT. N) GO TO 14\r\n      IF (IABS(AC(K)) .NE. J+K) GO TO 14\r\n      K = K + 1\r\n      GO TO 12\r\n   14 NBRSTR = K - I\r\nC\r\nC     WRITE STRING WITH PUTSTR/ENDPUT\r\nC\r\n   15 CALL PUTSTR (BLOCK)\r\n      BLOCK(7) = MIN0(BLOCK(6),NBRSTR)\r\n      JSTR = BLOCK(5)\r\n      NSTR = JSTR + RC*BLOCK(7) - 1\r\n      IF (PREC .EQ. 2) GO TO 18\r\nC\r\n      DO 16 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      XNS(JJ) = VECS(II)\r\n   16 CONTINUE\r\n      GO TO 22\r\nC\r\n   18 DO 20 JJ = JSTR,NSTR\r\n      II = II + 1\r\n      XND(JJ) = VECD(II)\r\n   20 CONTINUE\r\nC\r\nC     TEST FOR COMPLETION\r\nC\r\n   22 I = I + BLOCK(7)\r\n      IF (I .GT. N) GO TO 30\r\n      CALL ENDPUT (BLOCK)\r\n      IF (NBRSTR .EQ. BLOCK(7)) GO TO 10\r\n      NBRSTR   = NBRSTR - BLOCK(7)\r\n      BLOCK(4) = IABS( AC(I) )\r\n      GO TO 15\r\nC\r\nC     END LAST STRING\r\nC\r\n   30 BLOCK(8) = 1\r\n      CALL ENDPUT (BLOCK)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdhtf1.f",
    "content": "      SUBROUTINE SDHTF1 (TYPE,REJECT)\r\nC\r\nC     THIS ROUTINE CONVERTS THE EST DATA FOR ALL THERMAL ELEMENTS TO A\r\nC     COMMON FORMAT. SDHT1B IS CALLED TO PRODUCE THE OUTPUT\r\nC\r\n      LOGICAL         REJECT\r\n      INTEGER         ELID,SUB,SIL,NESTO(100),ELEM,NEST(2),TYPE,\r\n     1                POINTR(8,23),TYPOLD,STRSPT,ESTWDS,NESTSC(200),\r\n     2                POINT1(8,20),POINT2(8, 3),TUBE,FTUBE,CHBDY\r\n      DIMENSION       SHP(32),DSHP(3,32),XJACOB(3,3),BXYZ(3,32),GPT(32)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X4/ DUMX(109),STRSPT,DDRMM,ISOPL8\r\n      COMMON /SDR2X5/ EST(100),ELID,SIL(32),NQ,NP,NAME(2),DOMX(105),\r\n     1                DSHPB(3,32)\r\n      COMMON /SDR2X6/ SUB,IMAT,AF,THETA,R(3,32),ESTSCR(200)\r\n      COMMON /GPTA1 / NELS,LAST,INCR,ELEM(1)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,DUM(1),SINTH,COSTH\r\n      EQUIVALENCE     (CONSTS(1),PI),(NESTSC(1),ESTSCR(1)),\r\n     1                (NESTO(1),SUB),(NEST(1),EST(1)),\r\n     2                (POINT1(1,1),POINTR(1,1)),\r\n     3                (POINT2(1,1),POINTR(1,21))\r\n      DATA    TYPOLD, NUMELT, TUBE, FTUBE, CHBDY /\r\n     1             0,     23,    3,    82,    52 /\r\nC     DATA    HEX   / 16    /\r\nC\r\nC     THE POINTERS TO THE EST DATA ARE\r\nC\r\nC        IM    MAT ID\r\nC        ITH   THETA\r\nC        IA    AREA\r\nC        IG    GRID POINT DATA\r\nC        IS    SIL MINUS 1\r\nC        NP    NO. OF POINTS\r\nC        SUB   SUBROUTINE TYPE\r\nC                       NO.  IS   ITH  IM   IA   IG   NP   SUB\r\nC                      ----  --   ---  --   --   --   --   ----\r\n      DATA   POINT1 /    1   ,0   ,0   ,4   ,5   ,9   ,2   ,1\r\n     2                  ,3   ,0   ,0   ,4   ,5   ,8   ,2   ,1\r\n     3                  ,6   ,0   ,5   ,6   ,7   ,15  ,3   ,2\r\n     4                  ,9   ,0   ,5   ,6   ,7   ,9   ,3   ,2\r\n     5                  ,10  ,0   ,0   ,4   ,5   ,9   ,2   ,1\r\n     6                  ,16  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     7                  ,17  ,0   ,5   ,6   ,7   ,9   ,3   ,2\r\n     8                  ,18  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     9                  ,19  ,0   ,6   ,7   ,8   ,16  ,4   ,3\r\n     T                  ,34  ,0   ,0   ,16  ,17  ,34  ,2   ,1\r\n     1                  ,36  ,0   ,5   ,6   ,0   ,7   ,3   ,4\r\n     2                  ,37  ,0   ,6   ,7   ,0   ,8   ,4   ,5\r\n     3                  ,39  ,1   ,0   ,2   ,0   ,7   ,4   ,6\r\n     4                  ,40  ,1   ,0   ,2   ,0   ,9   ,6   ,7\r\n     5                  ,41  ,1   ,0   ,2   ,0   ,11  ,8   ,8\r\n     6                  ,42  ,1   ,0   ,2   ,0   ,11  ,8   ,9\r\n     7                  ,52  ,1   ,0   ,15  ,16  ,21  ,8   ,10\r\n     8                  ,62  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     9                  ,63  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     T                  ,65  ,0   ,0   ,10  ,0   ,16  ,8   ,16 /\r\n      DATA   POINT2 /    66  ,0   ,0   ,22  ,0   ,28  ,20  ,16\r\n     2                  ,67  ,0   ,0   ,34  ,0   ,40  ,32  ,16\r\n     3                  ,76  ,0   ,11  ,12  ,13  ,14  ,8   ,17 /\r\nC\r\n      IF (TYPE .EQ.  FTUBE) GO TO 115\r\n      IF (TYPE .EQ. TYPOLD) GO TO 50\r\n      TYPOLD = TYPE\r\n      REJECT = .TRUE.\r\n      DO 20 I = 1,NUMELT\r\n      IEL = I\r\n      IF (TYPE-POINTR(1,I)) 30,40,20\r\n   20 CONTINUE\r\n   30 RETURN\r\nC\r\n   40 REJECT = .FALSE.\r\n   50 IF ((TYPE.GE.65.AND.TYPE.LE.67) .AND. STRSPT.EQ.0)\r\n     1     STRSPT = STRSPT + 1\r\n      IP = (TYPE-1)*INCR\r\n      ESTWDS = ELEM(IP+12)\r\nC\r\nC     THE LOCATIONS OF DATA FOR EACH PARTICULAR ELEMENT ARE ZEROED OUT\r\nC\r\n      NQ = 0\r\n      DO 55 I = 1,100\r\n   55 NESTO(I) = 0\r\n      NAME(1) = ELEM(IP+1)\r\n      NAME(2) = ELEM(IP+2)\r\n      ELID = NEST(1)\r\n      DO 56 I = 1,32\r\n   56 NEST(I+101) = 0\r\n      DO 57 I = 1,201\r\n   57 NEST(I+137) = 0\r\n      IF (TYPE .EQ. TUBE) EST(5) = PI*ESTSCR(6)*(ESTSCR(5)-ESTSCR(6))\r\n      IF (TYPE.EQ.CHBDY .AND. NESTSC(2).EQ.7)\r\n     1   EST(16) = PI*(ESTSCR(19)+ESTSCR(20))\r\n      IS  = POINTR(2,IEL)\r\n      ITH = POINTR(3,IEL)\r\n      IM  = POINTR(4,IEL)\r\n      IA  = POINTR(5,IEL)\r\n      IG  = POINTR(6,IEL)\r\n      SUB = POINTR(8,IEL)\r\n      NP  = POINTR(7,IEL)\r\nC\r\n      IF (SUB .EQ. 10) SUB = SUB + NESTSC(2) - 1\r\n      INFLAG = 1\r\n      IF (SUB.GE.16) INFLAG = 3\r\n      IF (SUB.LT.2 .OR. SUB.GT.5) GO TO 60\r\n      INFLAG = 2\r\n      GO TO 70\r\n   60 IF (SUB.LT.6 .OR. SUB.GT.9) GO TO 70\r\n      INFLAG = 3\r\n   70 CONTINUE\r\n      IF (SUB .NE. 16) GO TO 79\r\nC\r\nC     GET SHAPE FUNCTIONS ETC. FOR STRESS POINT(ALSO DETERMINE THE\r\nC     STRESS POINT, WHICH WILL BE THE GRID POINTS PLUS CENTROID IN\r\nC     ELEMENT COORDINATES\r\nC\r\n      ITYPE = TYPE - 64\r\n      DO 71 I = 1,NP\r\n      GPT(I) = ESTSCR(5*NP+7+I)\r\n      DO 71 J = 1,3\r\n      BXYZ(J,I) = ESTSCR(NP+4+4*I+J)\r\n   71 CONTINUE\r\nC\r\nC     GET STRESS POINT\r\nC\r\n      Y =-1.\r\n      Z =-1.\r\n      IF (ITYPE .GT. 1) GO TO 502\r\n      D = 2.\r\n      X = 1.\r\n      GO TO 505\r\n  502 D = 1.\r\n      X = 0.\r\n  505 IF (ITYPE .GT. 1) GO TO 560\r\n      GO TO (510,520,530,510,540,520,530,510,550), STRSPT\r\n  510 X = X - D\r\n      GO TO 590\r\n  520 X = X + D\r\n      GO TO 590\r\n  530 Y = Y + D\r\n      GO TO 590\r\n  540 Z = Z + D\r\n      Y = -1.\r\n      GO TO 590\r\n  550 X = 0.\r\n      Y = 0.\r\n      Z = 0.\r\n      GO TO 590\r\n  560 GO TO (510,520,520,530,530,510,510,570,580,520,\r\n     1       530,510,580,520,520,530,530,510,510,570,\r\n     2       550), STRSPT\r\n  570 Y = Y - D\r\n      GO TO 590\r\n  580 Z = Z + 1.\r\n      Y = -1.\r\n      D = 3. - D\r\n  590 CALL IHEXSS (ITYPE,SHP,DSHP,XJACOB,DETJ,ELID,X,Y,Z,BXYZ)\r\nC\r\nC     GET DERIVATIVES W.R.T.X,Y,Z(REVERSE CALLING SEQUENCE BECAUSE\r\nC     COLUMN-STORED\r\nC\r\n      CALL GMMATS (DSHP,NP,3,0,XJACOB,3,3,0,DSHPB)\r\nC\r\n   79 CONTINUE\r\nC\r\n      IF (IA .GT. 0) AF = ESTSCR(IA)\r\n      MATID = NESTSC(IM)\r\n      IF (MATID .LE. 0) RETURN\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      IF (INFLAG .NE. 2) GO TO 80\r\n      THETA = ESTSCR(ITH)*PI/180.\r\n      IF (THETA .EQ. 0.0) GO TO 80\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   80 ITEMP = IG + 4*NP\r\n      ELTEMP= ESTSCR(ITEMP)\r\n      IF (SUB .NE. 16) GO TO 85\r\n      ISOPL8= 8\r\n      ELTEMP= 0.\r\n      DO 82 I = 1,NP\r\n   82 ELTEMP= ELTEMP + GPT(I)*SHP(I)\r\n   85 CONTINUE\r\n      IMAT  = MATID\r\n      CALL HMAT (ELID)\r\nC\r\n      DO 110 I = 1,NP\r\n      IP = 4*(I-1) + IG\r\n      DO 100 J = 1,3\r\n      ILOC = IP + J\r\n  100 R(J,I) = ESTSCR(ILOC)\r\n      ISIL   = IS + I + 1\r\n      SIL(I) = NESTSC(ISIL)\r\n  110 CONTINUE\r\nC\r\n      CALL SDHTFF\r\n      GO TO 120\r\nC\r\nC     FTUBE CONVECTION ELEMENT\r\nC\r\n  115 REJECT =.FALSE.\r\n      I = 0\r\n      NEST(I+101) = NESTSC(1)\r\n      NEST(I+102) = NESTSC(2)\r\n      NEST(I+103) = NESTSC(3)\r\n      EST (I+104) = ESTSCR(4)*ESTSCR(5)\r\n      EST (I+105) = 0.0\r\nC\r\n  120 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdhtf2.f",
    "content": "      SUBROUTINE SDHTF2(IEQEX,NEQEX)\r\nC*****\r\nC     THIS ROUTINE CALCULATES TEMPERATURE GRADIENTS AND HEAT FLOWS\r\nC     FOR ALL ELEMENTS IN A HEAT TRANSFER PROBLEM.\r\nC      DATA IS OUTPUT FOR ELEMENT FORCE REQUEST ONLY.\r\nC******\r\n      INTEGER  IGRAD(3), IQOUT(3), FTUBE\r\n      REAL    ESTA(202)\r\n      DIMENSION IZ(1),IPT(21)\r\n      COMMON /ZZZZZZ/  ZZ(1)\r\n      COMMON  /SDR2X4/  DUMMY(35),IVEC\r\n      COMMON/SDR2X7/IDE,ISIL(32),NQ,NSIL,NAME(2),RK(9),CE(96),\r\n     1              DUM(58),IDO,NAMO(2),TGRAD(3),QOUT(3)\r\n      COMMON/SDR2X8/TVEC(32)\r\n      EQUIVALENCE  (TGRAD(1),IGRAD(1)) ,(QOUT(1),IQOUT(1))\r\n      EQUIVALENCE  (ZZ(1),IZ(1)), (ESTA(1),IDE)\r\n      DATA IHEX/4HIHEX/,IONE,ITWO,ITHR/4H1   ,4H2   ,4H3   /\r\n      DATA IHEX1,IHEX2,IHEX3/4HHEX1,4HHEX2,4HHEX3/\r\n      DATA FTUBE/4HFTUB/\r\n      DATA IOLD/0/\r\n      DATA IPT/4H   1,4H  E1,4H   4,4H  E2,4H   7,4H  E3,4H  10,\r\n     1         4H  E4,4H  E5,4H  E6,4H  E7,4H  E8,4H  21,4H  E9,\r\n     2         4H  24,4H E10,4H  27,4H E11,4H  30,4H E12,4H   0/\r\nC\r\n      IF (NAME(1) .EQ. FTUBE) GO TO 70\r\n      DO 10 I=1,3\r\n      IGRAD(I)= 1\r\n   10 IQOUT(I)= 1\r\n      IDO= IDE\r\n      NAMO(1)= NAME(1)\r\n      NAMO(2)= NAME(2)\r\nC\r\nC FOR ISOPARAMETRIC SOLIDS, GET SIL NUMBER AND CONVERT TO EXTERNAL.\r\nC STORE IT IN NAMO(2)\r\nC\r\n      IF(NAMO(1).NE.IHEX) GO TO 29\r\n      IF(IOLD.EQ.IDE) GO TO 11\r\n      IOLD=IDE\r\n      ISTRPT=0\r\n   11 IF(NAMO(2).EQ.IONE) NAMO(1)=IHEX1\r\n      IF(NAMO(2).EQ.ITWO) NAMO(1)=IHEX2\r\n      IF(NAMO(2).EQ.ITHR) NAMO(1)=IHEX3\r\n      ISTRPT=ISTRPT+1\r\n      IF(ISTRPT.EQ.NSIL+1.OR.ISTRPT.EQ.21) IOLD=0\r\n      IF(NAMO(1).EQ.IHEX3) GO TO 12\r\n      IF(NAMO(1).EQ.IHEX1.AND.ISTRPT.EQ.9) GO TO 15\r\n      IF(NAMO(1).EQ.IHEX2.AND.ISTRPT.EQ.21) GO TO 15\r\n      GO TO 13\r\n   12 NAMO(2)=IPT(ISTRPT)\r\n      GO TO 29\r\n   13 ISUB1=IEQEX+1\r\n      ISUB2=IEQEX+NEQEX-1\r\n      DO 14 JJJ=ISUB1,ISUB2,2\r\n      NS=IZ(JJJ)/10\r\n      IF(NS.NE.ISIL(ISTRPT)) GO TO 14\r\n      NAMO(2)=IZ(JJJ-1)\r\n      GO TO 29\r\n   14 CONTINUE\r\n      CALL MESAGE(-30,164,IZ(JJJ))\r\n   15 NAMO(2)=0\r\n   29 CONTINUE\r\n      IF(NQ .LE. 0) GO TO 60\r\n      DO 30 I=1,NSIL\r\n      TVEC(I)= 0.0\r\n      IP= ISIL(I)\r\n      IF( IP .EQ. 0) GO TO 30\r\n      ITEMP = IVEC + IP -1\r\n      TVEC(I) = ZZ(ITEMP)\r\n   30 CONTINUE\r\nC***\r\n      CALL GMMATS( CE(1),NQ,NSIL,0, TVEC(1),NSIL,1,0, TGRAD(1) )\r\nC\r\n      CALL GMMATS( RK(1),NQ,NQ,0, TGRAD(1),NQ,1,0, QOUT(1) )\r\nC\r\n      DO 40 I=1,NQ\r\n   40 QOUT(I) =-QOUT(I)\r\n      RETURN\r\n   60 TGRAD(1) = 0.0\r\n      QOUT(1) = 0.0\r\n      GO TO 80\r\nC\r\n   70 IDO=IDE\r\n      ITEMP=IVEC + ISIL(1) - 1\r\n      TVEC(1)=ZZ(ITEMP)\r\n      ESTA(202)=TVEC(1)*ESTA(4)\r\nC\r\n   80 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdhtff.f",
    "content": "      SUBROUTINE SDHTFF\r\nC\r\nC     THIS ROUTINE CALCULATES THE PHASE 1 FLUX-TEMPERATURE RELATIONSHIPS\r\nC\r\n      INTEGER         SUB,NELS(18),IP(32),SMAP(52),STRSPT,SIG\r\n      REAL            C(12),K,KQ(9),DR(3,4),MATO,EL,ZI(3),VEC(3),VVEC(3)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X4/ DUMX(109),STRSPT\r\n      COMMON /SDR2X5/ EST(100),IDE,SIG(32),NQ,NSIL,NAME(2),K(9),CE(96),\r\n     1                DSHPB(3,32)\r\n      COMMON /SDR2X6/ SUB,IMAT,AF,THETA,R(3,32)\r\n      COMMON /HMTOUT/ MATO(6)\r\n      EQUIVALENCE     (CONSTS(1),PI)\r\n      DATA    NELS  / 1,1,4,1,4,1,3,5,10,1,1,1,1,4,1,1,1,1 /\r\n      DATA    SMAP  / 1        ,2        ,3        ,6      ,\r\n     1                1        ,2        ,6        ,5      ,\r\n     2                1        ,4        ,5        ,6      ,\r\n     3                1        ,2        ,3        ,6      ,\r\n     4                1        ,3        ,4        ,8      ,\r\n     5                1        ,3        ,8        ,6      ,\r\n     6                1        ,5        ,6        ,8      ,\r\n     7                3        ,6        ,7        ,8      ,\r\n     8                2        ,3        ,4        ,7      ,\r\n     9                1        ,2        ,4        ,5      ,\r\n     O                2        ,4        ,5        ,7      ,\r\n     1                2        ,5        ,6        ,7      ,\r\n     2                4        ,5        ,7        ,8      /\r\nC\r\n      GO TO (30,40,40,40,40,50,50,50,50,30,30,30,30,30,30,50,50,30), SUB\r\n   30 K(1) = MATO(1)\r\n      NQ   = 1\r\n      GO TO  60\r\n   40 K(1) = MATO(1)\r\n      K(2) = MATO(2)\r\n      K(3) = K(2)\r\n      K(4) = MATO(3)\r\n      NQ   = 2\r\n      GO TO  60\r\n   50 K(1) = MATO(1)\r\n      K(2) = MATO(2)\r\n      K(3) = MATO(3)\r\n      K(4) = K(2)\r\n      K(5) = MATO(4)\r\n      K(6) = MATO(5)\r\n      K(7) = K(3)\r\n      K(8) = K(6)\r\n      K(9) = MATO(6)\r\n      NQ   = 3\r\n   60 CONTINUE\r\n      IP(1)= 1\r\n      IP(2)= 2\r\n      IP(3)= 3\r\n      IF (SUB .EQ. 17) GO TO 111\r\n      IF (SUB.NE.3 .AND. SUB.NE.5) GO TO 100\r\nC\r\nC     MOVE  QUADS TO ELEMENT COORDINATES\r\nC     (CQUAD4? APPEARENTLY UP TO ELEMENT TYPE 52 ONLY)\r\nC\r\n      DO 70 I = 1,3\r\n      DR(I,1) = R(I,2) - R(I,1)\r\n      DR(I,3) = R(I,3) - R(I,1)\r\n   70 DR(I,2) = R(I,4) - R(I,2)\r\n      CALL SAXB (DR(1,3),DR(1,2),DR(1,4))\r\nC\r\n      EL   = SQRT(DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2)\r\n      AREA = SQRT(DR(1,4)**2 + DR(2,4)**2 + DR(3,4)**2)\r\nC\r\n      DO 80 I = 1,3\r\n      DR(I,1) = DR(I,1)/EL\r\n   80 DR(I,4) = DR(I,4)/AREA\r\nC\r\n      CALL SAXB (DR(1,4),DR(1,1),DR(1,2))\r\n      DO 90 I = 1,3\r\n   90 DR(I,4) = R(I,4) - R(I,1)\r\n      CALL GMMATS (DR(1,1),2,3,0,DR(1,3),2,3,1,KQ)\r\n      DR(1,3) = KQ(1)\r\n      DR(1,4) = KQ(2)\r\n      DR(2,3) = KQ(3)\r\n      DR(2,4) = KQ(4)\r\n      DR(1,2) = EL\r\n      DR(1,1) = 0.0\r\n      DR(2,1) = 0.0\r\n      DR(2,2) = 0.0\r\n      GO TO 120\r\n  100 IF (SUB.NE.2 .AND. SUB.NE.4) GO TO 120\r\nC\r\nC     MOVE  TRIANGLES TO ELEMENT COORDINATES\r\nC     (CTRIA3?)\r\nC\r\n      DO 110 I = 1,3\r\n      DR(I,1) = R(I,2) - R(I,1)\r\n  110 DR(I,2) = R(I,3) - R(I,1)\r\nC\r\n      EL   = DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2\r\n      EL   = SQRT(EL)\r\n      AREA = SADOTB(DR(1,1),DR(1,2))/EL\r\n      CALL SAXB (DR(1,1),DR(1,2),DR(1,3))\r\n      DR(2,3) = SQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/EL\r\n      DR(1,3) = AREA\r\n      DR(1,1) = 0.0\r\n      DR(1,2) = EL\r\n      DR(2,1) = 0.0\r\n      DR(2,2) = 0.0\r\n      GO TO 120\r\nC\r\nC     IS2D8-CENTROID ONLY-WE NEED TO CONVERT ONLY GRIDS 5-8 TO LOCAL\r\nC     COORDS\r\nC\r\n  111 DO 112 I = 1,3\r\n  112 ZI(I) = R(I,2) - R(I,1)\r\n      ZLEN  = SQRT(ZI(1)**2 + ZI(2)**2 + ZI(3)**2)\r\n      DO 113 I = 1,3\r\n  113 ZI(I) = ZI(I)/ZLEN\r\n      DO 115 I = 5,8\r\n      DO 114 J = 1,3\r\n  114 VEC(J) = R(J,I) - R(J,1)\r\n      DR(1,I-4) = SADOTB(VEC,ZI)\r\n      CALL SAXB (ZI,VEC,VVEC)\r\n      DR(2,I-4) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n  115 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     LOOP  ON  SUBELEMENTS  (ONE FOR MOST)\r\nC\r\n      FACT = 0.0\r\n      NEL  = NELS(SUB)\r\n      XELS = FLOAT(NEL)\r\n      DO 460 IEL = 1,NEL\r\nC\r\n      GO TO (130,160,160,140,140,200,220,240,240,330,330,330,\r\n     1       330,330,330,285,291,330), SUB\r\nC\r\nC     RODS,BARS, ETC.\r\nC\r\n  130 EL = 0.0\r\n      DO 135 I = 1, 3\r\n      EL = EL + (R(I,1)-R(I,2))**2\r\n  135 CONTINUE\r\n      EL = SQRT(EL)\r\n      C(1) = -1.0/EL\r\n      C(2) =  1.0/EL\r\n      NP = 2\r\n      GO TO 300\r\nC\r\nC     RING ELEMENTS, TRIANGLES AND QUADRILATERALS\r\nC\r\n  140 AF = 1.0\r\n  160 DO 170 I = 1,3\r\n      IG = I + IEL - 1\r\n      IF (IG .GT. 4) IG = IG - 4\r\n  170 IP(I) = IG\r\n      I1 = IP(1)\r\n      I2 = IP(2)\r\n      I3 = IP(3)\r\n      AREA = DR(1,I1)*(DR(2,I2)-DR(2,I3)) + DR(1,I2)*(DR(2,I3)-DR(2,I1))\r\n     2     + DR(1,I3)*(DR(2,I1)-DR(2,I2))\r\n      C(1) = (DR(2,I2) - DR(2,I3))/AREA\r\n      C(2) = (DR(2,I3) - DR(2,I1))/AREA\r\n      C(3) = (DR(2,I1) - DR(2,I2))/AREA\r\n      C(4) = (DR(1,I3) - DR(1,I2))/AREA\r\n      C(5) = (DR(1,I1) - DR(1,I3))/AREA\r\n      C(6) = (DR(1,I2) - DR(1,I1))/AREA\r\nC\r\n      NP   = 3\r\n      GO TO 300\r\nC\r\nC     SOLID ELEMENTS\r\nC\r\n  200 DO 210 I = 1,4\r\n  210 IP(I) = I\r\n      GO TO 260\r\nC\r\nC     WEDGE\r\nC\r\n  220 LROW = 4*IEL - 4\r\n      DO 230 I = 1,4\r\n      I1 = LROW + I\r\n  230 IP(I) = SMAP(I1)\r\n      GO TO 260\r\nC\r\nC     HEXA1 AND HEXA2 ELEMENTS\r\nC\r\n  240 LROW = 4*IEL + 8\r\n      DO 250 I = 1,4\r\n      I1 = LROW + I\r\n  250 IP(I) = SMAP(I1)\r\n  260 I1 = IP(1)\r\n      DO 270 I = 1,3\r\n      IG = IP(I+1)\r\n      DO 270 J = 1,3\r\n       DR(J,I) = R(J,IG) - R(J,I1)\r\n  270 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,DR,3,C,0,DETERM,ISING,C(4))\r\n      DO 280 I = 1,3\r\n      IG = 4*I - 4\r\n      C(IG+1) = 0.0\r\n      DO 280 J = 2,4\r\n      I1 = IG + J\r\n      C(I1  ) = DR(J-1,I)\r\n      C(IG+1) = C(IG+1) - C(I1)\r\n  280 CONTINUE\r\n      NP = 4\r\n      GO TO 300\r\nC\r\nC     ISOPARAMETRIC SOLIDS\r\nC\r\n  285 IG = 0\r\n      DO 290 I = 1,3\r\n      DO 290 J = 1,NSIL\r\n      IG = IG + 1\r\n  290 CE(IG) = DSHPB(I,J)\r\n      GO TO 460\r\nC\r\nC     IS2D8- SINCE CENTROID ONLY, WE CAN EASILY COMPUTE SHAPE FUNCTIONS\r\nC     DERIVATIVES, JACOBIAN,ETC.. THE FINAL RESULT OF DNDX,DNDY=DNL IS\r\nC     GIVEN\r\nC\r\n  291 X68 = DR(1,2) - DR(1,4)\r\n      X57 = DR(1,1) - DR(1,3)\r\n      Y68 = DR(2,2) - DR(2,4)\r\n      Y57 = DR(2,1) - DR(2,3)\r\n      DENOM = -X68*Y57 + X57*Y68\r\n      DO 292 I = 1,24\r\n  292 CE(I)  = 0.\r\n      CE( 5) = Y68/DENOM\r\n      CE( 6) =-Y57/DENOM\r\n      CE( 7) =-Y68/DENOM\r\n      CE( 8) = Y57/DENOM\r\n      CE(13) =-X68/DENOM\r\n      CE(14) = X57/DENOM\r\n      CE(15) = X68/DENOM\r\n      CE(16) =-X57/DENOM\r\n      GO TO 460\r\nC\r\nC     SUPERIMPOSE C MATRICES ONTO CE MATRICES OF THE WHOLE ELEMENT\r\nC\r\n  300 DO 310 I = 1,NP\r\n      DO 310 J = 1,NQ\r\n      I1 = NP*(J-1) + I\r\n      IG = NSIL*(J-1) + IP(I)\r\n      CE(IG) = CE(IG) + C(I1)/XELS\r\n  310 CONTINUE\r\n      GO TO 460\r\nC\r\nC     BOUNDARY HEAT CONVECTION ELEMENTS\r\nC\r\n  330 ITYPE = SUB - 9\r\n      IF (ITYPE .GT. 7) RETURN\r\n      GO TO (340,350,370,380,380,350,350), ITYPE\r\n  340 NP = 1\r\n      C(1) = 1.0\r\n      FACT = AF*K(1)\r\n      GO TO 410\r\n  350 NP = 2\r\n      C(1) = 0.5\r\n      C(2) = 0.5\r\n      EL = SQRT((R(1,1)-R(1,2))**2 + (R(2,1)-R(2,2))**2 +\r\n     1          (R(3,1)-R(3,2))**2)\r\n      FACT = AF*EL*K(1)\r\n      GO TO 410\r\nC\r\nC     RING SURFACE\r\nC\r\n  370 EL   = ((R(1,2)-R(1,1))**2 + (R(3,2)-R(3,1))**2)\r\n      FACT = 3.0*(R(1,1) + R(1,2))\r\n      C(1) = (2.0*R(1,1) + R(1,2))/FACT\r\n      C(2) = (R(1,1) + 2.0*R(1,2))/FACT\r\n      FACT = (R(1,1) + R(1,2))*PI*SQRT(EL)*K(1)\r\n      NP   = 2\r\n      GO TO 410\r\nC\r\nC     TRIANGLES  (ALSO FOR SUBELEMENT OF QUAD)\r\nC\r\n  380 DO 390 I = 1,3\r\n      IG = I + IEL - 1\r\n      IF (IG .GT. 4) IG = IG - 4\r\n      IP(I) = IG\r\n  390 CONTINUE\r\n      I1 = IP(1)\r\n      I2 = IP(2)\r\n      I3 = IP(3)\r\n      DO 400 I = 1,3\r\n      DR(I,1) = R(I,I2) - R(I,I1)\r\n  400 DR(I,2) = R(I,I3) - R(I,I1)\r\n      CALL SAXB (DR(1,1),DR(1,2),DR(1,3))\r\n      AREA = (SQRT(DR(1,3)**2 + DR(2,3)**2 +DR(3,3)**2))/2.0\r\n      IF (ITYPE .EQ. 5) AREA = AREA/2.0\r\n      FACT = FACT + AREA*MATO(1)\r\n      C(1) = 1.0/3.0\r\n      C(2) = C(1)\r\n      C(3) = C(1)\r\n      NP   = 3\r\nC\r\nC     SUPERIMPOSE C MATRIX INTO CE MATRIX\r\nC\r\n  410 DO 420 I = 1,NP\r\n      IG = IP(I)\r\n      CE(IG) = CE(IG) + C(I)/XELS\r\n      IG = IP(I) + 4\r\n  420 CE(IG) = CE(IG) - C(I)/XELS\r\n      K(1) = FACT\r\n  460 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdr1.f",
    "content": "      SUBROUTINE SDR1\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         ANDF,UE,REIG,USET,PG,ULV,UOOV,YS,GO,GM,PS,QR,\r\n     1                UGVX,PGX,QSX,UM,UO,UR,US,IA(7),\r\n     2                UA1,UF1,UN1,UG1,UP,UNE,UFE,UD,UA,UF,UN,UG,DYNA\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /BLANK / APPEND,ITYPE(2)\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA1,UF1,US,UN1,UG1,UE,UP,UNE,\r\n     1                UFE,UD\r\n      COMMON /SYSTEM/ ISYS(54),IPREC,IHEAT\r\n      EQUIVALENCE     (ISYS(25),IRFNO)\r\n      DATA    DYNA  , REIG / 4HDYNA, 4HREIG /\r\nC\r\n      IUM   = 304\r\n      ISCR6 = 306\r\n      IUR   = 0\r\n      IUO   = 304\r\n      IPVECT= 301\r\n      IUS   = 304\r\n      USET  = 101\r\n      PG    = 102\r\n      ULV   = 103\r\n      UOOV  = 104\r\n      YS    = 105\r\n      GO    = 106\r\n      GM    = 107\r\n      PS    = 108\r\n      KSS   = 110\r\n      QR    = 111\r\n      UGVX  = 201\r\n      PGX   = 202\r\n      QSX   = 203\r\n      KFS = 109\r\n      IUA = 302\r\n      IUF = 303\r\n      IUN = 302\r\n      IUG = 306\r\n      ISCR5 = 0\r\nC\r\nC     COPY PG ONTO PGX\r\nC\r\n      CALL SDR1A (PG,PGX)\r\nC\r\nC     SET FLAGS TO CONTROL LOGIC\r\nC\r\n      IA(1) = USET\r\n      CALL RDTRL (IA(1))\r\n      IF (IA(1) .LE. 0) RETURN\r\n      IOMT   = ANDF(IA(5),TWO1(UO))\r\n      NOUE   = ANDF(IA(5),TWO1(UE))\r\n      ISNG   = ANDF(IA(5),TWO1(US))\r\n      IREACT = ANDF(IA(5),TWO1(UR))\r\n      IMULTI = ANDF(IA(5),TWO1(UM))\r\n      ITRAN  = 1\r\nC\r\nC     TEST FOR DYNAMICS OR STATICS\r\nC\r\n      IF (NOUE.NE.0 .OR. ITYPE(1).EQ.DYNA) GO TO 10\r\nC\r\nC     STATICS\r\nC\r\n      UA = UA1\r\n      UF = UF1\r\n      UN = UN1\r\n      UG = UG1\r\n      GO TO 20\r\nC\r\nC     DYNAMICS\r\nC\r\n   10 UG = UP\r\n      UN = UNE\r\n      UF = UFE\r\n      UA = UD\r\n      IF (IHEAT .NE. 0) ITRAN = 0\r\n      IF (IRFNO .EQ. 9) ITRAN = 0\r\n   20 CONTINUE\r\nC\r\nC     IF REAL EIGENVALUE,BUCKLING,OR DYNAMICS PROBLEM UR = 0\r\nC\r\n      IF (ITYPE(1).EQ.DYNA .OR. ITYPE(1).EQ.REIG) GO TO 70\r\n      IF (IREACT) 40,70,40\r\nC\r\nC     REACTIONS\r\nC\r\n   40 CALL SDR1B (IPVECT,ULV,IUR,IUA,UA,UL,UR,USET,0,0)\r\n      ISCR5 = 305\r\n      IF (ISNG) 50,60,50\r\n   50 CONTINUE\r\n      CALL SDR1B (IPVECT,QR,0,ISCR5,UF,UR,UL,USET,0,0)\r\n      IUG = IUA\r\n      GO TO 80\r\nC\r\nC     REACTS BUT NO SINGLES - MAKE QG\r\nC\r\n   60 CALL SDR1B (IPVECT,QR,0,ISCR5,UG,UR,UL,USET,0,0)\r\n      CALL SDR1A (ISCR5,QSX)\r\n      GO TO 80\r\nC\r\nC     NO REACT\r\nC\r\nC\r\nC     NON STATICS APPROACH\r\nC\r\n   70 IUA = ULV\r\n   80 IF (IOMT) 90,100,90\r\nC\r\nC     OMITTED POINTS\r\nC\r\n   90 CALL SSG2B (GO,IUA,UOOV,IUO,0,IPREC,1,ISCR6)\r\n      CALL SDR1B (IPVECT,IUA,IUO,IUF,UF,UA,UO,USET,0,0)\r\n      IUG = IUF\r\n      GO TO 110\r\nC\r\nC     NO OMITTED POINTS\r\nC\r\n  100 ISAV = IUF\r\n      IUF  = IUA\r\n      IUN  = ISAV\r\n  110 IF (ISNG) 120,180,120\r\nC\r\nC     SINGLE POINT CONSTRAINTS\r\nC\r\nC\r\nC     TEST FOR PRESENCE OF YS VECTOR\r\nC\r\n  120 IA(1) = YS\r\n      CALL RDTRL (IA(1))\r\n      IF (IA(1).LT.0 .OR. IA(6).EQ.0) GO TO 130\r\n      CALL SDR1B (IPVECT,IUF,YS,IUN,UN,UF,US,USET,1,IUS)\r\nC\r\nC     IUS CONTAINS EXPANDED YS FROM SPC\r\nC\r\nC\r\nC     IS QS REWUESTED\r\nC\r\n      IA(1) = QSX\r\n      CALL RDTRL (IA(1))\r\n      IF (IA(1) .LE. 0) GO TO 190\r\nC\r\nC     COMPUTE QS\r\nC\r\n      CALL SSG2B (KSS,IUS,PS,IPVECT,0,IPREC,2,ISCR6)\r\n      CALL SSG2B (KFS,IUF,IPVECT,IUS,1,IPREC,1,ISCR6)\r\n      IF (IMULTI.NE.0 .AND. IREACT.NE.0) GO TO 160\r\n      CALL SDR1B (IPVECT,IUS,ISCR5,ISCR6,UG,US,UF,USET,0,0)\r\n      CALL SDR1A (ISCR6,QSX)\r\n      GO TO 190\r\nC\r\nC     NO YS VECTOR\r\nC\r\n  130 CALL SDR1B (IPVECT,IUF,0,IUN,UN,UF,US,USET,0,0)\r\n      IA(1) = QSX\r\n      CALL RDTRL (IA(1))\r\n      IF (IA(1) .LE. 0) GO TO 190\r\nC\r\nC     COMPUTE QS = KFS T*UF\r\nC\r\n      IUF1 = IUF\r\n      IF (ITYPE(1) .NE. DYNA) GO TO 140\r\nC\r\nC     EXPAND  KFS TO  D SET\r\nC\r\n      IF (NOUE .EQ. 0) GO TO 140\r\n      CALL SDR1B (IPVECT,KFS,0,IUS,UF,UF1,UE,USET,0,0)\r\n      KFS = IUS\r\nC\r\nC     IF TRANSIENT STRIP VELOCITY AND ACCERERATION FROM IUF\r\nC\r\n  140 CALL SDR1D (PS,IUF,QSX,ITRAN)\r\n      IF (ITRAN .EQ. 1) GO TO 150\r\n      IUF1 = QSX\r\n  150 CALL SSG2B (KFS,IUF1,PS,IPVECT,1,IPREC,2,ISCR6)\r\n      IF (IMULTI.NE.0 .AND. IREACT.NE.0 .AND. ITYPE(1).NE.DYNA .AND.\r\n     1    ITYPE(1).NE.REIG) GO TO 170\r\n      CALL SDR1B (IUS,IPVECT,ISCR5,ISCR6,UG,US,UF,USET,0,0)\r\n      CALL SDR1A (ISCR6,QSX)\r\n      GO TO 190\r\n  160 CALL SDR1B (IPVECT,IUS,ISCR5,ISCR6,UN,US,UF,USET,0,0)\r\n      CALL SDR1B (IPVECT,ISCR6,0,IUS,UG,UN,UM,USET,0,0)\r\n      CALL SDR1A (IUS,QSX)\r\n      GO TO 190\r\n  170 CALL SDR1B (IUS,IPVECT,ISCR5,IUF,UN,US,UF,USET,0,0)\r\n      CALL SDR1B (IUS,IUF,0,IPVECT,UG,UN,UM,USET,0,0)\r\n      CALL SDR1A (IPVECT,QSX)\r\n      GO TO 190\r\nC\r\nC     NO SINGLE POINT CONSTRAINTS\r\nC\r\n  180 IUG = IUN\r\n      IUN = IUF\r\nC\r\n  190 IF (IMULTI) 210,200,210\r\nC\r\nC     NO MULTI POINT CONSTRAINTS\r\nC\r\n  200 IUG = IUN\r\n      GO TO 220\r\nC\r\nC     MULTI POINT CONSTRAINTS\r\nC\r\n  210 IUG = ISCR6\r\n      CALL SSG2B (GM,IUN,0,IUM,0,IPREC,1,ISCR6)\r\n      CALL SDR1B (IPVECT,IUN,IUM,IUG,UG,UN,UM,USET,0,0)\r\n  220 CALL SDR1A (IUG,UGVX)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdr1a.f",
    "content": "      SUBROUTINE SDR1A (INPUT,IOUT)\r\nC\r\nC     THIS ROUTINE MAKES PS AND IUF COMPATABLE TO COMPUTE QS IN\r\nC     CASE OF TRANSIENT ANALYSIS\r\nC\r\n      INTEGER        SYSBUF,BCD1(2),MCB(7),PS,IA(7),CORE(1100)\r\nC\r\n      COMMON /ZZZZZZ/ COREX(1)\r\n      COMMON /SYSTEM/ SYSBUF,KSYSTM(65)\r\n      COMMON /BLANK / LOADNN\r\n      COMMON /UNPAKX/ IT1,II,JJ,INCR\r\n      COMMON /PACKX / IT2,IT3,II1,JJ1,INCR1\r\n      EQUIVALENCE     (CORE(1),COREX(1))\r\nC\r\n      DATA    BCD1  / 4HSDR1,4HA    /\r\nC\r\n      NZ = KORSZ(CORE) - SYSBUF\r\n      CALL OPEN (*40,INPUT,CORE(NZ+1),0)\r\n      CALL SKPREC (INPUT,1)\r\n      NZ = NZ - SYSBUF\r\n      LOADNN = MAX0(LOADNN,1)\r\n      IF (LOADNN .EQ. 1) GO TO 50\r\n      IA(1) = IOUT\r\n      CALL RDTRL (IA)\r\n      IF (IA(2) .EQ. 0) GO TO 50\r\n      IA(1) = INPUT\r\n      CALL RDTRL(IA)\r\n      IF(IA(2) .EQ. 0) CALL MESAGE (-7,0,BCD1)\r\nC\r\nC     POSITION TO END\r\nC\r\n      CALL GOPEN  (IOUT,CORE(NZ+1),0)\r\n      CALL SKPFIL (IOUT,+1)\r\n      CALL SKPFIL (IOUT,-1)\r\n      CALL CLOSE  (IOUT,+2)\r\n      IA(1) = IOUT\r\n      CALL RDTRL (IA)\r\n      IA(7) = 0\r\n      CALL GOPEN (IOUT,CORE(NZ+1),3)\r\n   10 MCB(1) = INPUT\r\n      CALL RDTRL (MCB)\r\n      K   = MCB(2)\r\n      IT1 = MCB(5)\r\n      IT2 = IT1\r\n      IT3 = IT2\r\n      INCR  = 1\r\n      INCR1 = 1\r\n      DO 30 I = 1,K\r\n      II = 0\r\n      CALL UNPACK (*20,INPUT,CORE)\r\n      II1 = II\r\n      JJ1 = JJ\r\n      CALL PACK (CORE,IOUT,IA)\r\n      GO TO 30\r\n   20 II1 = 1\r\n      JJ1 = 1\r\n      CORE(1) = 0\r\n      CORE(2) = 0\r\n      CORE(3) = 0\r\n      CORE(4) = 0\r\n      CALL PACK (CORE,IOUT,IA)\r\n   30 CONTINUE\r\n      CALL CLOSE (INPUT,1)\r\n      CALL CLOSE (IOUT,1)\r\n      CALL WRTTRL (IA)\r\n   40 RETURN\r\nC\r\nC     FIRST TIME\r\nC\r\n   50 CALL GOPEN (IOUT,CORE(NZ+1),1)\r\n      IA(1) = INPUT\r\n      CALL RDTRL (IA)\r\n      IA(2) = 0\r\n      IA(6) = 0\r\n      IA(7) = 0\r\n      IA(1) = IOUT\r\n      GO TO 10\r\nC\r\nC     SDR1D -\r\nC\r\n      ENTRY SDR1D (PS,IUF,IUF1,ITRAN)\r\nC     ===============================\r\nC\r\n      IF (ITRAN .EQ. 0) GO TO 60\r\n      ITRAN  = 1\r\n      MCB(1) = PS\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 100\r\n      NCOLPS = MCB(2)\r\n      MCB(1) = IUF\r\n      CALL RDTRL (MCB)\r\n      IF (NCOLPS .EQ. MCB(2)) RETURN\r\nC\r\nC     THIS IS A TRANSIENT PROBLEM\r\n      ITRAN = 0\r\nC\r\n   60 MCB(1) = IUF\r\n      CALL RDTRL (MCB)\r\n      NCOLPS = MCB(2)/3\r\n      IBF = KORSZ(CORE) - SYSBUF\r\n      CALL GOPEN (IUF,CORE(IBF),0)\r\n      IBF1 = IBF - SYSBUF\r\n      CALL GOPEN (IUF1,CORE(IBF1),1)\r\n      IT1  = MCB(5)\r\n      IT2  = IT1\r\n      IT3  = IT2\r\n      INCR = 1\r\n      INCR1  = 1\r\n      MCB(1) = IUF1\r\n      MCB(2) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      DO 90 I = 1,NCOLPS\r\n      II  = 0\r\n      CALL UNPACK (*70,IUF,CORE)\r\n      II1 = II\r\n      JJ1 = JJ\r\n      GO TO 80\r\n   70 CORE(1) = 0\r\n      CORE(2) = 0\r\n      CORE(3) = 0\r\n      CORE(4) = 0\r\n      II1 = 1\r\n      JJ1 = 1\r\n   80 CALL SKPREC (IUF,2)\r\n      CALL PACK (CORE,IUF1,MCB)\r\n   90 CONTINUE\r\n      CALL CLOSE (IUF1,1)\r\n      CALL CLOSE (IUF,1)\r\n      CALL WRTTRL (MCB)\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdr1b.f",
    "content": "      SUBROUTINE SDR1B (IPVECT,IM1,IM2,IOUT,MAJOR,SUB1,SUB2,IUSET,\r\n     1                  IOPT,IOUT1)\r\nC\r\n      INTEGER NAME(2),CORE(7),SYSBUF,IPV1(7)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZZZZZZ/ KORE(1)\r\n      COMMON /PATX  / NZ,NSUB1,NSUB2,NSUB3,IUSET1\r\n      COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IB11(7),IB12(7),NZ1,IRULE\r\n      COMMON /UNPAKX/ ITU1,IIU1,JJU1,INCR1\r\n      COMMON /PACKX / ITP1,ITP2,IIP1,JJP1,INCR\r\n      EQUIVALENCE     (CORE(1),KORE(1))\r\n      DATA    NAME  / 4HSDR1,4HB   /\r\nC\r\nC\r\n      NZ  = KORSZ(CORE)\r\n      NZ1 = NZ\r\n      IUSET1 = IUSET\r\n      DO 10 I = 2,7\r\n      IA11(I) = 0\r\n      IA12(I) = 0\r\n      IA(I)   = 0\r\n   10 CONTINUE\r\n      IA11(1) = IM1\r\n      IF (IM1 .EQ. 0) GO TO 20\r\n      CALL RDTRL (IA11)\r\n   20 IA12(1) = IM2\r\n      CALL RDTRL (IA12)\r\n      IF (IA11(1).LT.0 .AND. IA12(1).LT.0) RETURN\r\n      CALL CALCV (IPVECT,MAJOR,SUB1,SUB2,CORE)\r\n      IF (IOPT .NE. 0) GO TO 60\r\n      IF (IA12(1) .LE. 0) IA12(1) = 0\r\n   30 IB11(1) = 0\r\n      IB12(1) = 0\r\n      IA(3) = NSUB1 + NSUB2 + NSUB3\r\n      IA(2) = MAX0(IA11(2),IA12(2))\r\n      IA(4) = 2\r\n      IF (IM2 .EQ. 0) IA12(5) = IA11(5)\r\n      IPREC = MIN0(1-MOD(IA11(5),2),1-MOD(IA12(5),2))\r\n      ITYPE = 1\r\n      IF (IA11(5).GT.2 .OR. IA12(5).GT.2) ITYPE = 3\r\n      IA(5) = IPREC + ITYPE\r\n   40 IRULE = 0\r\n      IA(1) = IOUT\r\n      IPV1(1) = IPVECT\r\n      CALL RDTRL (IPV1)\r\n      CORE(1) = 0\r\n      CORE(2) = 1\r\n      CORE(3) = IA(2)\r\n      CORE(4) = 2\r\n      CORE(5) = 1\r\n      CORE(6) = 0\r\n      CORE(7) = 0\r\n      CALL MERGE (CORE,IPV1,CORE)\r\n      CALL WRTTRL (IA)\r\n      RETURN\r\nC\r\nC     EXPAND YS\r\nC\r\n   60 NZ = NZ - SYSBUF\r\n      CALL OPEN (*130,IM2,CORE(NZ+1),0)\r\n      NZ = NZ - SYSBUF\r\n      CALL OPEN (*150,IOUT1,CORE(NZ+1),1)\r\n      CALL FNAME (IM2,CORE)\r\n      CALL WRITE (IOUT1,CORE,2,1)\r\n      IA(1) = IM2\r\n      CALL RDTRL (IA)\r\n      NOYS  = IA(2)\r\n      IA(2) = 0\r\n      IA(1) = IOUT1\r\n      IA(6) = 0\r\n      IA(7) = 0\r\n      CALL FWDREC (*130,IM2)\r\n      NLOAD = IA11(2)\r\n      ITU1  = IA(5)\r\n      INCR  = 1\r\n      ITP1  = ITU1\r\n      ITP2  = ITP1\r\n      INCR1 = 1\r\n      DO 100 I = 1,NLOAD\r\n      IF (I .GT. NOYS) GO TO 81\r\n      IIU1 = 0\r\n      CALL UNPACK (*80,IM2,CORE)\r\n      IIP1 = IIU1\r\n      JJP1 = JJU1\r\n   81 CALL PACK( CORE,IOUT1,IA)\r\n      GO TO 100\r\n   80 CORE(1) = 0\r\n      CORE(2) = 0\r\n      CORE(3) = 0\r\n      CORE(4) = 0\r\n      IIP1 = 1\r\n      JJP1 = 1\r\n      GO TO 81\r\n  100 CONTINUE\r\n      CALL CLOSE (IOUT1,1)\r\n      CALL CLOSE (IM2,1)\r\n      CALL WRTTRL (IA)\r\n      IA12(1) = IOUT1\r\n      CALL RDTRL (IA12)\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY SDR1C (IPVECT,IM1,IOUT)\r\nC     =============================\r\nC\r\nC     EXPAND ROWS OF IM1 TO D SET SIZE\r\nC\r\n      DO 120 I = 1,7\r\n      IA12(I) = 0\r\n      IB11(I) = 0\r\n      IB12(I) = 0\r\n  120 CONTINUE\r\n      IA11(1) = IM1\r\n      CALL RDTRL (IA11)\r\n      IA(1) = IM1\r\n      CALL RDTRL (IA)\r\n      IA(3) = NSUB1 + NSUB2 + NSUB3\r\n      GO TO 40\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  130 IP1 = -1\r\n      IP2 = IM2\r\n  140 CALL MESAGE (IP1,IP2,NAME)\r\n  150 IP1 = -1\r\n      IP2 = IOUT1\r\n      GO TO 140\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2.f",
    "content": "      SUBROUTINE SDR2\r\nC\r\nC     SDR2 IS THE EXECUTIVE CONTROL PROGRAM FOR THE SDR2 MODULE.\r\nC\r\n      INTEGER         ANY   ,LOADS ,DISPL ,VEL   ,ACC   ,SPCF  ,PLOTS ,\r\n     1                CASECC\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM\r\n      COMMON /SDR2X2/ CASECC\r\n      COMMON /SYSTEM/ SYSBUF,OPTE  ,NOGO  ,INTAP ,MPCN  ,SPCN  ,METHOD,\r\n     1                LOADNN,SYMM  ,STFTMP,PAGE  ,LINE  ,TLINE ,MAXLIN,\r\n     2                DATE(3),TIME  ,ECHO  ,PLOTS\r\nC\r\nC     EXECUTE THE PHASES OF SDR2.\r\nC\r\n      CASECC = 101\r\n      CALL SDR2AA\r\n      CALL SDR2A\r\n      IF (ANY .NE. 0) CALL SDR2B\r\n      K = LOADS + SPCF + DISPL + VEL + ACC + PLOTS\r\n      IF (K   .NE. 0) CALL SDR2C\r\n      IF (ANY .NE. 0) CALL SDR2D\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2a.f",
    "content": "       SUBROUTINE SDR2A\r\nC\r\nC     SDR2A PROCESSES THE CASE CONTROL DATA BLOCK. DEPENDING ON THE\r\nC     RIGID FORMAT AND THE VARIOUS OUTPUT REQUESTS, SDR2A SETS FLAGS\r\nC     AND PARAMETERS TO CONTROL OPERATION OF THE REMAINDER OF THE PHASES\r\nC     OF SDR2\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      LOGICAL         AXIC  ,DDRMM ,STRAIN\r\n      INTEGER         Z     ,CASECC,CSTM  ,FILE  ,BUF1  ,BUF2  ,BUF3  ,\r\n     1                BUF4  ,BUF5  ,ALL   ,ANY   ,DISPL ,SPCF  ,STRESS,\r\n     2                ELDEF ,ANY1  ,SETNO ,ZI    ,RSHIFT,STRNFL,FORCE ,\r\n     3                PREVS ,PREVF ,TWO   ,PLOTS ,RET   ,PASS  ,SYSBUF,\r\n     4                APP   ,STA   ,REI   ,DS0   ,DS1   ,FRQ   ,TRN   ,\r\n     5                BK0   ,BK1   ,CEI   ,PLA   ,BRANCH,SORT2 ,VEL   ,\r\n     6                ACC   ,TLOADS\r\n      DIMENSION       ISYSTM(175)\r\n      COMMON /MACHIN/ MACH  ,IHALF ,JHALF\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / APP(2),SORT2,ISTRN  ,STRNFL,IDUMMY(5)    ,STRAIN\r\n      COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /SYSTEM/ SYSBUF,OPTE  ,NOGO  ,INTAP ,MPCN  ,SPCN  ,METHOD,\r\n     1                LOADNN,SYMM  ,STFTMP,PAGE  ,LINE  ,TLINE ,MAXLIN,\r\n     2                DATE(3)      ,TIME  ,ECHO  ,PLOTS ,DDD(6),MN\r\n      COMMON /TWO   / TWO(32)\r\n      EQUIVALENCE     (SYSBUF, ISYSTM)\r\n      DATA    MMREIG/ 4HMMRE /\r\nC\r\nC\r\nC     CHECK FOR STRAIN OPTION\r\nC\r\n      STRAIN = .FALSE.\r\n      IF (ISTRN .GE. 0) STRAIN = .TRUE.\r\nC\r\nC     PERFORM BUFFER ALLOCATION.\r\nC\r\n      BUF1 = KORSZ(Z) - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      BUF5 = BUF4 - SYSBUF\r\nC\r\nC     SET PARAMETER FOR APPROACH.\r\nC\r\n      N = 2*NRIGDS - 1\r\nC\r\nC     FIRST CHECK FOR SPECIAL APPROACH FOR DYNAMIC-DATA-RECOVERY-MATRIX-\r\nC     METHOD.  IF APPROACH IS -MMREIG- THEN DDRMM FLAG IS SET TO INSURE\r\nC     ENOUGH OUTPUTS UNDER CERTAIN CONDITIONS.\r\nC\r\n      DDRMM = .FALSE.\r\n      IF (APP(1) .NE. MMREIG) GO TO 7\r\n      DDRMM = .TRUE.\r\n      I = 3\r\n      GO TO 20\r\nC\r\n    7 DO 10 I = 1,N,2\r\n      IF (STA(I) .EQ. APP(1)) GO TO 20\r\n   10 CONTINUE\r\n      CALL MESAGE (-30,75,APP)\r\n   20 BRANCH = (I+1)/2\r\nC\r\nC    OPEN CASE CONTROL. SKIP HEADER RECORD.\r\nC    IF DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1, SKIP 1ST CASECC RECORD\r\nC\r\n      CALL GOPEN (CASECC,Z(BUF1),RDREW)\r\n      IF (APP(1).EQ.DS1(1) .OR. APP(1).EQ.BK1(1)) CALL SKPREC (CASECC,1)\r\n      KWDCC = 0\r\nC\r\nC     INITIALIZE VARIOUS OUTPUT REQUEST FLAGS.\r\nC\r\n      ALL   = 0\r\n      ANY   = 0\r\n      DISPL = 0\r\n      VEL   = 0\r\n      ACC   = 0\r\n      SPCF  = 0\r\n      LOADS = 0\r\n      STRESS= 0\r\n      FORCE = 0\r\n      TLOADS= 0\r\n      ELDEF = 0\r\n      II    = 0\r\n      PREVS = 0\r\n      PREVF = 0\r\nC\r\nC     READ A RECORD IN CASE CONTROL.\r\nC     IF REQUEST FOR STRESSES IS PRESENT, TURN ON STRESS FLAG.\r\nC     IF REQUEST FOR FORCES   IS PRESENT, TURN ON FORCE  FLAG.\r\nC     -ANY- FLAG = STRESS .OR. FORCE.\r\nC     -ALL- FLAG = ANY REQUEST FOR ALL STRESSES OR FORCES.\r\nC     IF ANY.NE.0 .AND ALL.EQ.0, BUILD LIST OF UNIQUE ELEMENT IDS.\r\nC\r\n   40 CALL READ (*220,*50,CASECC,Z,BUF5-1,1,NCC)\r\n      CALL MESAGE (+8,0,NAM)\r\n      ALL  = 1\r\n   50 ANY1 = 0\r\n      KWDCC= MAX0(KWDCC,NCC)\r\n      MSET = MAX0(MSET,KWDCC+1)\r\nC\r\nC     SET DMAP FLAG FOR USE IN DISP R.F. 1\r\nC\r\n      IF (ISTRN.GE.0 .OR. STRNFL.GE.0) GO TO 55\r\n      J = 180\r\n      IF (Z(J) .NE. 0) STRNFL = 1\r\n   55 ISTR = 23\r\n      IF (STRAIN) ISTR = 180\r\n      IF (Z(ISTR)) 60,80,70\r\n   60 ALL = 1\r\n   70 STRESS = 1\r\n      ANY1 = 1\r\n   80 IF (Z(IELF)) 90,110,100\r\n   90 ALL = 1\r\n  100 FORCE = 1\r\n      ANY1  = 1\r\n  110 IF (ALL.NE.0 .OR. ANY1.EQ.0) GO TO 200\r\nC\r\nC     INITIALIZE TO PROCESS STRESS OUTPUT REQUEST.\r\nC     BUILD MASTER SET LIST ONLY IF CURRENT SET ID IS NEW\r\nC\r\n      ASSIGN 190 TO PASS\r\n      SETNO = Z(ISTR)\r\n      IF (SETNO .EQ. PREVS) GO TO 190\r\n      PREVS = SETNO\r\nC\r\nC     IF REQUEST PRESENT, LOCATE SET DEFINITION IN CASE CONTROL DATA.\r\nC\r\n  120 IF (SETNO .EQ. 0) GO TO PASS, (190,200)\r\n      ISETNO = ILSYM + Z(ILSYM) + 1\r\n  130 ISET = ISETNO + 2\r\n      NSET = Z(ISETNO+1) + ISET - 1\r\n      IF (Z(ISETNO) .EQ. SETNO) GO TO 140\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. NCC) GO TO 130\r\n      ALL = 1\r\n      GO TO 200\r\nC\r\nC     PICK UP ELEMENT IDS IN SET. SAVE IN UNIQUE LIST.\r\nC\r\n  140 I = ISET\r\n  150 IF (I  .EQ.  NSET) GO TO 170\r\n      IF (Z(I+1) .GT. 0) GO TO 170\r\n      ZI= Z(I  )\r\n      N =-Z(I+1)\r\n      I = I + 1\r\n      ASSIGN 160 TO RET\r\n      GO TO 260\r\n  160 ZI = ZI + 1\r\n      IF (ZI .GT. N) GO TO 180\r\n      II =II + 1\r\n      IF (II .GT. BUF2) GO TO 280\r\n      Z(II) = ZI\r\n      GO TO 160\r\n  170 ZI = Z(I)\r\n      ASSIGN 180 TO RET\r\n      GO TO 260\r\n  180 I = I + 1\r\n      IF (I .LE. NSET) GO TO 150\r\n      GO TO PASS, (190,200)\r\nC\r\nC     INITIALIZE TO PROCESS FORCE OUTPUT REQUEST.\r\nC     BUILD MASTER SET LIST ONLY IF CURRENT SET ID IS NEW\r\nC\r\n  190 SETNO = Z(IELF)\r\n      IF (SETNO .EQ. PREVF) GO TO 200\r\n      PREVF = SETNO\r\n      ASSIGN 200 TO PASS\r\n      GO TO 120\r\nC\r\nC     TURN ON FLAGS FOR OTHER OUTPUT REQUESTS.\r\nC\r\n  200 IF (Z(ILOADS) .NE. 0) LOADS = 1\r\n      IF (Z(ISPCF ) .NE. 0) SPCF  = 1\r\n      IF (Z(IDISPL) .NE. 0) DISPL = 1\r\n      IF (Z(IVEL  ) .NE. 0) VEL   = 1\r\n      IF (Z(IACC  ) .NE. 0) ACC   = 1\r\n      IF (Z(IELDEF) .NE. 0) ELDEF = 1\r\n      IF (Z(ITLOAD) .NE. 0) TLOADS= 1\r\n      IF (Z(ILOADS+2).LT.0 .OR. Z(ISPCF +2).LT.0 .OR.\r\n     1    Z(IDISPL+2).LT.0 .OR. Z(IVEL  +2).LT.0 .OR.\r\n     2    Z(IACC  +2).LT.0 .OR. Z(ISTR  +2).LT.0 .OR.\r\n     3    Z(IELF  +2).LT.0 .OR. APP(     1).EQ.TRN(1)) SORT2 = 1\r\n      ANY = STRESS + FORCE\r\nC\r\nC     CONICAL SHELL PROBLEM\r\nC\r\n      AXIC = .FALSE.\r\n      IF (MN .EQ. 0) GO TO 210\r\n      NRINGS = ISYSTM(161)\r\n      NHARMS = MN\r\n      AXIC = .TRUE.\r\n  210 CONTINUE\r\nC\r\nC     RETURN TO READ ANOTHER RECORD IN CASE CONTROL (UNLESS DIFF STIFF\r\nC     PHASE 0 OR BUCKLING PHASE 0)\r\nC\r\n      IF (APP(1).NE.DS0(1) .AND. APP(1).NE.BK0(1)) GO TO 40\r\nC\r\nC     IF ALL .EQ. 0, SORT LIST OF ELEMENT IDS AND MOVE LIST TO END OF\r\nC     CORE. AND THROW AWAY ANY DUPLICATE.\r\nC\r\n  220 IF (ALL.NE.0 .OR. ANY.EQ.0) GO TO 240\r\n      KN = II - MSET + 1\r\n      CALL SORT (0,0,1,-1,Z(MSET),KN)\r\n      JJ = BUF2 - 1\r\n  230 Z(JJ) = Z(II)\r\n  235 II = II - 1\r\n      IF (Z(II) .EQ. Z(JJ)) GO TO 235\r\n      JJ = JJ - 1\r\n      IF (II .GE. MSET) GO TO 230\r\n      MSET  = JJ + 1\r\n      KNSET = BUF2 - MSET\r\n      GO TO 250\r\n  240 MSET = BUF2 - 1\r\nC\r\nC     CLOSE CASE CONTROL AND RETURN\r\nC\r\n  250 CALL CLOSE (CASECC,CLSREW)\r\n      IF (APP(1) .NE. BK1(1)) RETURN\r\n      ELDEF = 0\r\n      TLOADS= 0\r\n      RETURN\r\nC\r\nC\r\nC     SEARCH LIST OF ELEM ID. IF CURRENT ID IS IN LIST RETURN\r\nC     OTHERWISE ADD ID TO LIST\r\nC\r\nC\r\nC     ADD ELEM ID TO LIST. NO NEED TO CHECK DUPLICATE ID HERE\r\nC\r\n  260 IF (II .EQ. 0) II = MSET - 1\r\n      II = II + 1\r\n      IF (II .LT. BUF2) GO TO 290\r\n  280 ALL = 1\r\n      GO TO 200\r\n  290 Z(II) = ZI\r\n      GO TO RET, (160,180)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2aa.f",
    "content": "      SUBROUTINE SDR2AA\r\nC\r\nC     SDR2AA PROCESSES THE CASE CONTROL AND XYCDB DATA BLOCKS. IF XYCDB\r\nC     IS PURGED, NO ACTION IS TAKEN. OTHERWISE, OUTPUT REQUESTS IN\r\nC     CASE CONTROL ARE COMPARED WITH XY REQUESTS IN XYCDB. FOR EACH\r\nC     SUBCASE AND EACH REQUEST TYPE, CASE CONTROL IS MODIFIED TO\r\nC     REFLECT THE UNION OF THE REQUESTS. THE NEW CASE CONTROL IS\r\nC     WRITTEN ON A SCRATCH FILE AND THE POINTER TO CASE CONTROL SWITCHED\r\nC\r\n      INTEGER         TAB   ,SDR2X1,BUF   ,CASECC,XYCDB ,SCR3  ,Z     ,\r\n     1                APP   ,RD    ,RDREW ,WRT   ,WRTREW,CLSREW,SYSBUF,\r\n     2                XSETNO,BUF1  ,BUF2  ,BUF3  ,SUBCSE,ANYNEW,FILE  ,\r\n     3                DBNAME,SETNO ,ARG   ,ESTA  ,XYCDBF,TRN   ,FRQ   ,\r\n     4                CEI   ,FORMT ,SORT2\r\n      DIMENSION       SDR2X1(1)    ,TAB(14)      ,BUF(10)       ,NAM(2)\r\n      COMMON /SDR2X1/ SDR2X1,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM ,IFROUT,\r\n     2                ISLOAD,IDLOAD\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS ,XYCDB ,\r\n     4                SCR3\r\n      COMMON /SDR2X4/ X4(72),FRQ(2),TRN(2),BKL(4),CEI(2)\r\n      COMMON /BLANK / APP(2),SORT2\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      DATA    TAB   / 1,    6,\r\n     1                2,    10,\r\n     2                3,    9,\r\n     3                4,    11,\r\n     4                5,    5,\r\n     5                6,    7,\r\n     6                7,    8      /,\r\n     7        XSETNO/ 100000000    /,\r\n     8        NAM   / 4HSDR2,4HAA  /\r\nC\r\nC     SET BUFFER POINTERS AND PERFORM GENERAL INITIALIZATION.\r\nC\r\n      BUF1  = KORSZ(Z) - SYSBUF\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      IMSTR = 1\r\n      MASTER= 1\r\n      LASTXY= 0\r\n      ANYNEW= 0\r\n      SORT2 =-1\r\nC\r\nC     OPEN XYCDB. IF PURGED, RETURN.\r\nC\r\n      CALL OPEN (*1034,XYCDB,Z(BUF1),RDREW)\r\n      FILE = XYCDB\r\n      CALL FWDREC (*1035,XYCDB)\r\n      CALL FWDREC (*1035,XYCDB)\r\nC\r\nC     READ FIRST LINE OF XYCDB. IF SUBCASE = 0 (MEANING DATA APPLIES\r\nC     TO ALL SUBCASES), READ IN DATA FOR ZERO SUBCASE.\r\nC\r\n      LAST   = 0\r\n      XYCDBF = XYCDB\r\n      CALL READ (*1035,*1035,XYCDB,BUF,6,0,FLAG)\r\n      SORT2  = 0\r\n      SUBCSE = BUF(1)\r\n      IF (SUBCSE .NE. 0) GO TO 1013\r\n      I      = IMSTR\r\n 1011 Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(3)\r\n      I      = I + 2\r\n      CALL READ (*2002,*1012,XYCDB,BUF,6,0,FLAG)\r\n      IF (BUF(1) .EQ. 0) GO TO 1011\r\n      NMSTR  = I - 2\r\n      IXYSC  = I\r\n      GO TO 1019\r\nC\r\nC     HERE IF MASTER SUBCASE IS THE ONLY SUBCASE IN XYCDB.\r\nC\r\n 1012 NMSTR  = I - 2\r\n      NXYSC  = NMSTR\r\n      MASTER = 0\r\n      LASTXY = 1\r\nC\r\nC     REDUCE LIST TO UNIQUE PAIRS\r\nC\r\n      IF (IMSTR .EQ. NMSTR) GO TO 1019\r\n      NMSTR  = NMSTR - 2\r\n      J      = IMSTR\r\n      DO 1014 I = IMSTR,NMSTR,2\r\n      IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1014\r\n      Z(J+2) = Z(I+2)\r\n      Z(J+3) = Z(I+3)\r\n      J      = J + 2\r\n 1014 CONTINUE\r\n      NMSTR  = J\r\n      NXYSC  = NMSTR\r\n      GO TO 1019\r\nC\r\nC     HERE IF NO MASTER SUBCASE -- CREATE A DUMMY MASTER.\r\nC\r\n 1013 NMSTR  = IMSTR\r\n      IXYSC  = IMSTR + 2\r\n      Z(IMSTR  ) = 9999\r\n      Z(IMSTR+1) = 0\r\n      MASTER = -1\r\n      GO TO 1019\r\nC\r\nC     OPEN CASE CONTROL AND SCRATCH FILE FOR MODIFIED CASE CONTROL\r\nC\r\n 1019 CALL GOPEN (CASECC,Z(BUF2),RDREW)\r\n      FILE = SCR3\r\n      CALL OPEN (*2001,SCR3,Z(BUF3),WRTREW)\r\n      CALL FNAME (CASECC,BUF(9))\r\n      CALL WRITE (SCR3,BUF(9),2,1)\r\nC\r\nC     READ DATA FOR ONE SUBCASE. STORE DATA BLOCK AND ID IN OPEN CORE.\r\nC\r\n 1020 IF (MASTER.EQ.0 .OR. LASTXY.NE.0) GO TO 1030\r\n      SUBCSE = BUF(1)\r\n      I      = IXYSC\r\n 1021 Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(3)\r\n      I      = I + 2\r\n      CALL READ (*1035,*1023,XYCDBF,BUF,6,0,FLAG)\r\n      IF (BUF(1) .EQ. SUBCSE) GO TO 1021\r\n      GO TO 1025\r\n 1023 LASTXY = 1\r\nC\r\nC     COPY DATA FROM MASTER SUBCASE AFTER CURRENT SUBCASE.\r\nC     THEN SORT DATA TOGETHER TO FORM SORTED UNION.\r\nC\r\n 1025 DO 1026 J = IMSTR,NMSTR,2\r\n      Z(I  ) = Z(J  )\r\n      Z(I+1) = Z(J+1)\r\n      I      = I + 2\r\n 1026 CONTINUE\r\n      N = I - IXYSC\r\n      CALL SORT (0,0,2,-2,Z(IXYSC),N)\r\n      CALL SORT (0,0,2,-1,Z(IXYSC),N)\r\nC\r\nC     REDUCE LIST TO UNIQUE PAIRS.\r\nC\r\n      NXYSC = I - 4\r\n      J = IXYSC\r\n      DO 1027 I = IXYSC,NXYSC,2\r\n      IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1027\r\n      Z(J+2) = Z(I+2)\r\n      Z(J+3) = Z(I+3)\r\n      J = J + 2\r\n 1027 CONTINUE\r\n      NXYSC = J\r\nC\r\nC     READ A RECORD IN CASE CONTROL. SET POINTERS FOR XYCDB DATA TO\r\nC     EITHER MASTER SUBCASE OR CURRENT SUBCASE IN CORE.\r\nC\r\n 1030 ICC = NXYSC + 1\r\n      CALL READ (*1035,*1031,CASECC,Z(ICC+1),BUF3-ICC,1,NCC)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1031 IF (SUBCSE .EQ. Z(ICC+1)) GO TO 10311\r\n      IF (MASTER .NE.       -1) GO TO 1032\r\n      IF (SUBCSE .GT. Z(ICC+1)) GO TO 1030\r\n      IF (LASTXY .EQ.        0) GO TO 1020\r\n      IF (ANYNEW .EQ.        0) GO TO 1035\r\n      CALL WRITE (SCR3,Z(ICC+1),NCC,1)\r\n      GO TO 1030\r\n10311 IXY = IXYSC\r\n      NXY = NXYSC\r\n      GO TO 1040\r\n 1032 IXY = IMSTR\r\n      NXY = NMSTR\r\n      GO TO 1040\r\nC\r\nC     TERMINATE PROCESSING.\r\nC\r\n 1035 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (XYCDBF,CLSREW)\r\n      CALL CLOSE (SCR3  ,CLSREW)\r\n      IF (ANYNEW .NE. 0) CASECC = SCR3\r\n 1034 RETURN\r\nC\r\nC     PICK UP POINTER TO CURRENT OUTPUT REQUEST.\r\nC     DETERMINE IF XYCDB REQUEST EXISTS.\r\nC\r\n 1040 LOOP   = 1\r\n 1041 DBNAME = TAB(LOOP  )\r\n      IX     = TAB(LOOP+1)\r\n      IREQ   = ICC + SDR2X1(IX)\r\n      SETNO  = Z(IREQ)\r\n      DO 1042 J = IXY,NXY,2\r\n      IF (Z(J) .EQ. DBNAME) GO TO 1043\r\n 1042 CONTINUE\r\n      GO TO 1100\r\n 1043 IXYSET = J\r\n      DO 1044 J = IXYSET,NXY,2\r\n      IF (Z(J) .NE. DBNAME) GO TO 1045\r\n 1044 CONTINUE\r\n      NXYSET = NXY\r\n      GO TO 1050\r\n 1045 NXYSET = J - 2\r\nC\r\nC     BRANCH ON CASECC REQUEST - NOTE, NO ACTION IF REQUEST = ALL.\r\nC\r\n 1050 IF (SETNO) 1098,1060,1070\r\nC\r\nC     HERE IF NO CASECC REQUEST.\r\nC     BUILD XYCDB SET IN CASECC SET FORMAT. ADD SET TO\r\nC     CASECC RECORD AND TURN ON CASECC REQUEST FOR SET.\r\nC\r\n 1060 XSETNO = XSETNO + 1\r\n      Z(IREQ  ) = XSETNO\r\n      Z(IREQ+1) = 0\r\n      FORMT  = -2\r\n      IF (APP(1) .EQ. TRN(1)) FORMT = -1\r\n      Z(IREQ+2) = FORMT\r\n      SORT2  = 0\r\n      IX     = ICC + NCC + 1\r\n      Z(IX)  = XSETNO\r\n      JX     = IX + 2\r\n      Z(JX)  = Z(IXYSET+1)\r\n      IF (IXYSET .EQ. NXYSET) GO TO 1066\r\n      IXYSET = IXYSET + 2\r\n      N      = 1\r\n      DO 1065 J = IXYSET,NXYSET,2\r\n      IF (Z(J+1)-Z(JX) .EQ. N) GO TO 1064\r\n      IF (N .NE. 1) GO TO 1062\r\n      JX     = JX + 1\r\n      Z(JX)  = Z(J+1)\r\n      GO TO 1065\r\n 1062 Z(JX+1)=-Z(J-1)\r\n      JX     = JX + 2\r\n      Z(JX)  = Z(J+1)\r\n      N      = 1\r\n      GO TO 1065\r\n 1064 N      = N + 1\r\n 1065 CONTINUE\r\n      IF (N .EQ. 1) GO TO 1066\r\n      JX     = JX + 1\r\n      Z(JX  )= -Z(NXYSET+1)\r\n 1066 Z(IX+1)= JX - IX - 1\r\n      NCC    = NCC + Z(IX+1) + 2\r\n      ANYNEW = 1\r\n      GO TO 1100\r\nC\r\nC     HERE IF CASECC SET AND XYCDB SET EXIST.\r\nC     FIRST, LOCATE CASECC SET.\r\nC\r\n 1070 ILIST  = ICC + NCC + 3\r\n      IX     = ICC + ILSYM\r\n      ISETNO = IX  + Z(IX) + 1\r\n 1071 ISET   = ISETNO + 2\r\n      NSET   = Z(ISETNO+1) + ISET - 1\r\n      IF (Z(ISETNO) .EQ. SETNO) GO TO 1080\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. ILIST) GO TO 1071\r\n      GO TO 1100\r\nC\r\nC     COMPARE EACH POINT IN XYCDB REQUEST WITH CASECC SET.\r\nC     ADD ANY POINTS IN XYCDB NOT IN CASECC TO CASECC SET.\r\nC\r\n 1080 I = ISET\r\n      J = IXYSET\r\n      K = ILIST\r\n      L = ISET\r\n 1081 ARG = Z(J+1)\r\n 1082 IF (I-NSET) 1083,1085,1088\r\n 1083 IF (Z(I+1) .GT. 0) GO TO 1085\r\n      N = 2\r\n      IF (ARG-Z(I  )) 1088,1091,1084\r\n 1084 IF (ARG+Z(I+1)) 1091,1087,1086\r\n 1085 N = 1\r\n      IF (ARG-Z(I)) 1088,1087,1086\r\n 1086 I = I + N\r\n      GO TO 1082\r\n 1087 I = I + N\r\n      GO TO 1091\r\n 1088 IF (L .EQ. I) GO TO 1090\r\n      LN = I - 1\r\n      LL = L\r\n      DO 1089 L = LL,LN\r\n      Z(K) = Z(L)\r\n      K = K + 1\r\n 1089 CONTINUE\r\n      L = I\r\n 1090 Z(K) = ARG\r\n      K = K + 1\r\n 1091 J = J + 2\r\n      IF (J .LE. NXYSET) GO TO 1081\r\n      N = K - ILIST\r\n      IF (N .EQ.    0) GO TO 1100\r\n      IF (L .GT. NSET) GO TO 1094\r\n      DO 1092 LL = L,NSET\r\n      Z(K) = Z(LL)\r\n      K = K + 1\r\n 1092 CONTINUE\r\n      N = K - ILIST\r\nC\r\nC     IF NO NEW POINTS IN SET, CURRENT CASECC SET IS UNION.\r\nC     OTHERWISE, NEW SET IS UNION. TURN ON REQUEST FOR IT AND\r\nC     EXTEND END OF CASECC RECORD.\r\nC\r\n 1094 XSETNO    = XSETNO + 1\r\n      Z(IREQ)   = XSETNO\r\n      Z(IREQ+1) = 10*SETNO + Z(IREQ+1)\r\n      Z(IREQ+2) = -IABS(Z(IREQ+2))\r\n      SORT2     = 0\r\n      Z(ILIST-2)= XSETNO\r\n      Z(ILIST-1)= N\r\n      NCC       = NCC + N + 2\r\n      ANYNEW    = 1\r\n      GO TO 1100\r\nC\r\nC     HERE IF CASECC SET = ALL AND XY REQUEST EXISTS - TURN SORT2 ON.\r\nC\r\n 1098 Z(IREQ+2) = -IABS(Z(IREQ+2))\r\n      SORT2     = 0\r\nC\r\nC     TEST FOR COMPLETION OF ALL CASECC REQUESTS FOR CURRENT SUBCASE.\r\nC     WHEN COMPLETE, WRITE CURRENT SUBCASE ON SCRATCH FILE.\r\nC\r\n 1100 LOOP = LOOP + 2\r\n      IF (LOOP .LE. 13) GO TO 1041\r\n      CALL WRITE (SCR3,Z(ICC+1),NCC,1)\r\nC\r\nC     RETURN TO READ ANOTHER RECORD IN CASE CONTROL OR ANOTHER XYCDB\r\nC     SUBCASE\r\nC\r\n      IF (MASTER .EQ.        0) GO TO 1030\r\n      IF (SUBCSE .LE. Z(ICC+1)) GO TO 1020\r\n      GO TO 1030\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2000 CALL MESAGE (N,FILE,NAM)\r\n 2001 N = -1\r\n      GO TO 2000\r\n 2002 N = -2\r\n      GO TO 2000\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2b.f",
    "content": "      SUBROUTINE SDR2B\r\nC\r\nC     SDR2B PROCESSES THE EST. FOR EACH ELEMENT IN THE MASTER SET,\r\nC     PRELIMINARY COMPUTATIONS ARE MADE. IF THE PROBLEM CONTAINS EXTRA\r\nC     POINTS, SIL NOS. ARE CONVERTED TO SILD NOS. THE DATA IS WRITTEN\r\nC     ON ESTA FOR INPUT TO SDR2D WHERE FINAL STRESS AND FORCE RECOVERY\r\nC     COMPUTATIONS ARE MADE.\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         ANYOUT,AXIC  ,HEAT  ,REJECT,STRAIN\r\n      INTEGER         NAME(2)\r\nCWKBI 7/94 SPR 94007  \r\n      INTEGER         MMRE(2)\r\n      REAL            SCRTCH,ZZ(1) ,BUFR(1)\r\n      DIMENSION       KDEFRM(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM   ,SWM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(63)\r\n      COMMON /BLANK / APP(2),SORT2 ,IDUMMY(7)    ,STRAIN\r\n      COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS\r\n      COMMON /HMATDD/ IHMAT ,NHMAT ,MPTMPT,IDIT\r\n      COMMON /GPTA1 / NELEM ,LAST  ,INCR  ,ELEM(1)\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM ,\r\n     8                ISOPL8\r\n      COMMON /SDR2X5/ BUF(100),BUFA(100)  ,BUFB(4176)\r\n      COMMON /SDR2X6/ SCRTCH(300)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) ,(KSYSTM( 2),IOUTPT),\r\n     1                (KSYSTM(55),IPREC ) ,(KSYSTM(56),ITHERM),\r\n     2                (Z(1)      ,ZZ( 1)) ,(BUFR(1)   ,BUF(1))\r\n      DATA   NAME   / 4HSDR2,4HB   /      ,STAR  / 4H* *      /\r\n      DATA   KDEFRM / 104,1/\r\n      DATA   IZ1ST  / 1    /\r\nCWKBI 7/94 SPR 94007  \r\n      DATA   MMRE   / 4HMMRE,4HIGEN /\r\nC            IZ1ST  IS THE START OF OPEN CORE AVAILABLE\r\nC\r\nC\r\nC     IF APPROACH IS COMPLEX EIGENVALUES, FREQUENCY OR TRANSIENT\r\nC     RESPONSE, TEST FOR EXTRA POINTS. IF PRESENT, READ EQUIVALENCE\r\nC     TABLE (SIL,SILD) INTO CORE.\r\nC\r\n      CALL DELSET\r\n      HEAT = .FALSE.\r\n      IF (ITHERM .NE. 0) HEAT = .TRUE.\r\n      ISOPL = 0\r\n      ICSTM = IZ1ST\r\n      M8    =-8\r\n      NOEP  = 0\r\nCWKBR 7/94 SPR 94007  \r\nC     IF (APP(1).EQ.CEI(1) .OR. APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1))       \r\nC    1    GO TO 20\r\n      IF (APP(1).EQ.CEI(1) .OR. APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)  \r\n     1                     .OR. APP(1).EQ.MMRE(1) )GO TO 20\r\n      GO TO 40\r\n   20 ICB(1) = SIL\r\n      CALL RDTRL (ICB)\r\n      NOEP = ICB(3)\r\n      IF (NOEP .EQ. 0) GO TO 40\r\n      FILE = SIL\r\n      CALL OPEN (*560,SIL,Z(BUF1),RDREW)\r\n      CALL FWDREC (*570,SIL)\r\n      CALL FWDREC (*570,SIL)\r\n      CALL READ (*570,*30,SIL,Z,BUF2,1,NSIL)\r\n      CALL MESAGE (M8,0,NAM)\r\n   30 CALL CLOSE (SIL,CLSREW)\r\n      KNSIL = NSIL/2\r\n      ICSTM = NSIL + 1\r\n      IF (NSIL .LT. MSET) GO TO 40\r\n      MSET = BUF2 - 1\r\n      ALL  = 1\r\nC\r\nC     READ THE CSTM INTO CORE (IF PRESENT).\r\nC\r\n   40 NCSTM = 0\r\n      FILE  = CSTM\r\n      CALL OPEN (*60,CSTM,Z(BUF1),RDREW)\r\n      CALL FWDREC (*570,CSTM)\r\n      CALL READ (*570,*50,CSTM,Z(ICSTM),BUF2-ICSTM,1,NCSTM)\r\n      CALL MESAGE (M8,0,NAM)\r\n   50 CALL CLOSE (CSTM,CLSREW)\r\n      CALL PRETRS (Z(ICSTM),NCSTM)\r\n   60 IMAT = ICSTM + NCSTM\r\n      IF (IMAT .LT. MSET) GO TO 70\r\n      MSET = BUF2 - 1\r\n      ALL  = 1\r\nC\r\nC     READ MATERIAL PROPERTY DATA INTO CORE.\r\nC\r\n   70 N1MAT = BUF2 - IMAT\r\n      IF (.NOT.HEAT) GO TO 77\r\nC\r\nC     FOR HEAT PROBLEMS ONLY, -HMAT- ROUTINE IS USED.\r\nC\r\n      IHMAT = IMAT\r\n      NHMAT = BUF1 + SYSBUF\r\n      MPTMPT= MPT\r\n      IDIT  = DIT\r\n      CALL PREHMA (Z)\r\n      N2MAT = NHMAT - IHMAT+1 - 2*(SYSBUF+1)\r\n      GO TO 78\r\nC\r\n   77 CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF1),N1MAT,N2MAT,MPT,DIT)\r\n   78 IF (IMAT+N2MAT .LT. MSET) GO TO 80\r\n      MSET = BUF2 - 1\r\n      ALL  = 1\r\nC\r\nC     OPEN EST AND ESTA.\r\nC\r\n   80 FILE = EST\r\n      CALL OPEN (*620,EST,Z(BUF1),RDREW)\r\n      CALL FWDREC (*570,EST)\r\n      FILE = ESTA\r\n      CALL OPEN (*560,ESTA,Z(BUF2),WRTREW)\r\n      FILE   = EST\r\n      KWDEST = 0\r\n      KWDEDT = 0\r\n      KWDGPT = 0\r\nC\r\nC     READ ELEMENT TYPE. SET PARAMETERS AS A FUNCTION OF ELEM TYPE.\r\nC\r\n   90 CALL READ (*430,*580,EST,ELTYPE,1,0,FLAG)\r\n      IF (ELTYPE.LT.1 .OR. ELTYPE.GT.NELEM) GO TO 3800\r\n      ANYOUT = .FALSE.\r\n      IPR = IPREC\r\n      IF (IPR .NE. 1) IPR = 0\r\n      JLTYPE = 2*ELTYPE - IPR\r\n      IELEM  = (ELTYPE-1)*INCR\r\n      NWDS   = ELEM(IELEM+12)\r\n      NWDSA  = ELEM(IELEM+17)\r\n      IF (HEAT) NWDSA = 142\r\n      NGPS   = ELEM(IELEM+10)\r\nC\r\nC     READ DATA FOR AN ELEMENT.\r\nC     DETERMINE IF ELEMENT BELONGS TO MASTER SET.\r\nC\r\n  100 CALL READ (*570,*420,EST,BUF,NWDS,0,FLAG)\r\n      DO 105 I = 1,NWDS\r\n  105 SCRTCH(100+I) = BUFR(I)\r\n      STRSPT = 0\r\n      ISOPL  =-1\r\n      IDSAVE = BUF(1)\r\n      IF (ALL .NE. 0) GO TO 110\r\n      ITABL = MSET\r\n      KN  = KNSET\r\n      L   = 1\r\n      N12 = 1\r\n      ASSIGN 100 TO RET1\r\n      IF (.NOT. AXIC) GO TO 630\r\nC\r\nC     DECODE ELEMENT ID SINCE THIS IS A CONICAL SHELL PROBLEM\r\nC\r\n      BUF(1) = BUF(1)/1000\r\n      GO TO 630\r\nC\r\nC     CALL APPROPRIATE ELEMENT SUBROUTINE.\r\nC\r\n  110 CONTINUE\r\n      BUF(1) = IDSAVE\r\nC\r\n      IF (.NOT.STRAIN) GO TO 112\r\nC\r\nC     IF THE STRAIN FLAG IS TURNED ON, IGNORE ALL ELEMENTS\r\nCWKBR NCL93012 3/94 EXCEPT CTRIA1, CTRIA2, CQUAD1 AND CQUAD2 ELEMENTS  \r\nC     EXCEPT CTRIA1, CTRIA2, CTRIA3, CQUAD1, CQUAD2 AND CQUAD4 ELEMENTS  \r\nC\r\n      IF (ELTYPE.EQ. 6 .OR. ELTYPE.EQ.17 .OR. ELTYPE.EQ.18 .OR.\r\nCWKBR NCL93012 3/94     1    ELTYPE.EQ.19) GO TO 112  \r\n     1    ELTYPE.EQ.19 .OR. ELTYPE .EQ.64 .OR. ELTYPE.EQ.83) GO TO 112  \r\n      WRITE  (IOUTPT,111) SWM,ELEM(IELEM+1),ELEM(IELEM+2)\r\n  111 FORMAT (A27,', STRAIN REQUEST FOR ',2A4,' ELEMENTS WILL', /5X,\r\n     1       'NOT BE HONORED AS THIS OUTPUT IS NOT DEFINED FOR THIS ',\r\n     2       'ELEMENT TYPE.')\r\n      CALL FWDREC (*570,EST)\r\n      GO TO 420\r\nC\r\n  112 IF (HEAT) GO TO 389\r\n      LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 114,114,115\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 C.....    3 CTUBE     4 CSHEAR    5 CTWIST\r\n  114 GO TO (120,  120,  380,  380,  140,  140,  150,  150,  160,  160\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1,      180,  180,  190,  190,  200,  200,  210,  210,  120,  120\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2,      220,  220,  230,  230,  240,  240,  250,  250,  270,  270\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3,      280,  280,  290,  290,  300,  300,  310,  310,  380,  380\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4,      380,  380,  380,  380,  380,  380,  380,  380,  380,  380\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5,      380,  380,  380,  380,  380,  380,  380,  380,  380,  380\r\nC\r\nC            31 PLOTEL   32 C.....   33 C.....   34 CBAR     35 CCONE\r\n     6,      380,  380,  380,  380,  380,  380,  330,  330,  340,  340\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7,      350,  350,  360,  360,  370,  370,  371,  371,  372,  372\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8,      373,  373,  374,  374,  380,  380,  380,  380,  380,  380\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9,      380,  380,  375,  375,  376,  376,  377,  377,  378,  378\r\nC\r\n     *), JLTYPE\r\nC\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  115 GO TO (379,  379,  380,  380,  451,  451,  452,  452,  453,  453\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B,      454,  454,  455,  455,  456,  456,  457,  457,  458,  458\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQUAD4   65 CIHEX1\r\n     C,      459,  459,  460,  460,  461,  461,  462,  462,  383,  383\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D,      383,  383,  383,  383,  465,  465,  466,  466,  467,  467\r\nC\r\nC            71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E,      468,  468,  380,  380,  469,  469,  470,  470,  471,  471\r\nC\r\nC            76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F,      380,  380,  380,  380,  380,  380,  380,  380,  472,  472\r\nC\r\nC            81 CELBOW   82 CFTUBE   83 CTRIA3\r\n     G,      473,  473,  380,  380,  463,  463\r\nC\r\n     *), LOCAL\r\nC\r\n  120 CALL SROD1\r\n      GO TO 390\r\n  140 CALL STUBE1\r\n      GO TO 390\r\n  150 K = 4\r\n      GO TO 170\r\n  160 K = 5\r\n  170 CALL SPANL1 (K)\r\n      GO TO 390\r\n  180 K = 1\r\n      GO TO 320\r\n  190 CALL STRBS1 (0)\r\n      GO TO 390\r\n  200 CALL STRPL1\r\n      GO TO 390\r\n  210 CALL STRME1 (0)\r\n      GO TO 390\r\n  220 K = 1\r\n      GO TO 260\r\n  230 K = 2\r\n      GO TO 260\r\n  240 K = 3\r\n      GO TO 260\r\n  250 K = 4\r\n  260 CALL SELAS1 (K)\r\n      GO TO 390\r\n  270 CALL SQDPL1\r\n      GO TO 390\r\n  280 CALL SQDME1\r\n      GO TO 390\r\n  290 K = 2\r\n      GO TO 320\r\n  300 K = 4\r\n      GO TO 320\r\n  310 K = 3\r\n  320 CALL STRQD1 (K)\r\n      GO TO 390\r\n  330 CALL SBAR1\r\n      GO TO 390\r\n  340 CALL SCONE1\r\n      GO TO 390\r\n  350 CALL STRIR1\r\n      GO TO 390\r\n  360 CALL STRAP1\r\n      GO TO 390\r\n  370 CALL STORD1\r\n      GO TO 390\r\n  371 CALL SSOLD1 (1)\r\n      GO TO 390\r\n  372 CALL SSOLD1 (2)\r\n      GO TO 390\r\n  373 CALL SSOLD1 (3)\r\n      GO TO 390\r\n  374 CALL SSOLD1 (4)\r\n      GO TO 390\r\n  375 K = 0\r\n      GO TO 381\r\n  376 K = 1\r\n      GO TO 381\r\n  377 K = 2\r\n  381 CALL SAXIF1 (K)\r\n      GO TO 390\r\n  378 K = 0\r\n      GO TO 382\r\n  379 K = 1\r\n  382 CALL SSLOT1 (K)\r\n      GO TO 390\r\n  383 CONTINUE\r\n      CALL SIHEX1 (ELTYPE-64,STRSPT,NIP)\r\n      IF (STRSPT .GE. NIP**3+1) STRSPT = 0\r\n      GO TO 390\r\n  451 CALL SDUM11\r\n      GO TO 391\r\n  452 CALL SDUM21\r\n      GO TO 391\r\n  453 CALL SDUM31\r\n      GO TO 391\r\n  454 CALL SDUM41\r\n      GO TO 391\r\n  455 CALL SDUM51\r\n      GO TO 391\r\n  456 CALL SDUM61\r\n      GO TO 391\r\n  457 CALL SDUM71\r\n      GO TO 391\r\n  458 CALL SDUM81\r\n      GO TO 391\r\n  459 CALL SDUM91\r\n      GO TO 391\r\n  460 CALL SQDM11\r\n      GO TO 390\r\n  461 CALL SQDM21\r\n      GO TO 390\r\n  462 CALL SQUD41\r\n      GO TO 390\r\n  463 CALL STRI31\r\n      GO TO 390\r\n  465 CONTINUE\r\n      GO TO 390\r\n  466 CONTINUE\r\n      GO TO 390\r\n  467 CALL STRAX1\r\n      GO TO 390\r\n  468 CALL STPAX1\r\n      GO TO 390\r\n  469 CALL STRM61\r\n      GO TO 390\r\n  470 CALL STRP11\r\n      GO TO 390\r\n  471 CALL  STRSL1\r\n      GO TO 390\r\n  472 CALL SS2D81\r\n      ISOPL8 = 8\r\n      GO TO 390\r\n  473 CALL SELBO1\r\n      GO TO 390\r\nC\r\nC     ELEMENT UNDEFINE TO SDR2BD\r\nC\r\n 3800 WRITE  (IOUTPT,385) STAR,STAR,ELTYPE\r\n      GO TO 388\r\n  380 WRITE  (IOUTPT,385) SWM,ELEM(IELEM+1),ELEM(IELEM+2),ELTYPE\r\n  385 FORMAT (A27,' 2184,  STRESS OR FORCE REQUEST FOR ELEMENT ',2A4,\r\n     1        ' (NASTRAN ELEM. TYPE =',I4,1H), /5X,'WILL NOT BE HONORED'\r\n     2,       ' AS THIS ELEMENT IS NOT A STRUCTURAL ELEMENT.')\r\n  388 CALL FWDREC (*570,EST)\r\n      GO TO 420\r\nC\r\nC     HEAT PROBLEMS (ALL ELEMENTS).\r\nC\r\n  389 CALL SDHTF1 (ELTYPE,REJECT)\r\n      IF (ELTYPE.LT.65 .OR.  ELTYPE.GT.67) GO TO 3890\r\n      IF (ELTYPE.EQ.65 .AND. STRSPT.GE. 9) STRSPT = 0\r\n      IF (STRSPT .GE. 21) STRSPT = 0\r\n 3890 CONTINUE\r\n      IF (.NOT.REJECT) GO TO 390\r\n      CALL FWDREC (*570,EST)\r\n      GO TO 420\r\nC\r\nC     IF EXTRA POINTS PRESENT, CONVERT SIL NOS. TO SILD NOS.\r\nC\r\n  391 NWDSA = ELEM(IELEM+17)\r\n  390 IF (NOEP .EQ. 0) GO TO 410\r\n      N = NGPS + 101\r\n      ITABL = 1\r\n      KN  = KNSIL\r\n      N12 = 2\r\n      ASSIGN 740 TO RET1\r\n      L = 102\r\nCWKBNB 7/94 SPR 94006\r\nC REMOVE COMPONENT FROM SIL AND THEN ADD AFTER SILD NUMBER FOUND FOR\r\nC CELAS1 AND CELAS2 ELEMENTS-SEE SUBROUTINE SELAS1\r\n      IF ( ELTYPE .EQ. 11 ) GO TO 392\r\n      IF ( ELTYPE .EQ. 12 ) GO TO 393\r\n      GO TO 394\r\nC SET SIL NUMBER TO SIL OF GRID POINT WITHOUT COMPONENT CODE INCLUDED FOR\r\nC CELAS1 SO SIL NUMBER CAN BE FOUND IN SILD \r\n  392 BUF(L)   = BUF(2)\r\n      BUF(L+1) = BUF(3)\r\n      GO TO 394\r\nC SET SIL NUMBER TO SIL OF GRID POINT WITHOUT COMPONENT CODE INCLUDED FOR\r\nC CELAS2 SO SIL NUMBER CAN BE FOUND IN SILD\r\n  393 BUF(L)   = BUF(3)\r\n      BUF(L+1) = BUF(4)\r\n      GO TO 394\r\n  394 CONTINUE\r\nCWKBNE 7/94 SPR 94006\r\n      IF (BUF(L) .EQ. 0) GO TO 400\r\n      GO TO 630\r\n  400 L = L + 1\r\nCWKBR 7/94 SPR 94006 IF (L      .GT. N) GO TO 410              \r\n      IF (L      .GT. N) GO TO 401        \r\n      IF (BUF(L) .EQ. 0) GO TO 400\r\n      GO TO 630\r\nCWKBNB 7/94 SPR94006\r\n  401 CONTINUE\r\n      IF ( ELTYPE .EQ. 11 ) GO TO 402\r\n      IF ( ELTYPE .EQ. 12 ) GO TO 403\r\n      GO TO 404\r\nC ADD COMPONENT CODES FOR SILD NUMBERS FOR CELAS1\r\n  402 IF ( BUF(4) .NE. 0 ) BUF(102) = BUF(102) + BUF(4) - 1\r\n      IF ( BUF(5) .NE. 0 ) BUF(103) = BUF(103) + BUF(5) - 1\r\n      GO TO 404\r\nC ADD COMPONENT CODES FOR SILD NUMBERS FOR CELAS2\r\n  403 IF ( BUF(5) .NE. 0 ) BUF(102) = BUF(102) + BUF(5) - 1\r\n      IF ( BUF(6) .NE. 0 ) BUF(103) = BUF(103) + BUF(6) - 1\r\n  404 CONTINUE\r\nCWKBNE 7/94 SPR 94006\r\nC\r\nC     WRITE ELEMENT COMPUTATIONS ON ESTA. GO TO READ ANOTHER ELEMENT.\r\nC\r\n  410 IF (ANYOUT) GO TO 411\r\n      CALL WRITE (ESTA,ELTYPE,1,0)\r\n      KWDEST = KWDEST + 2\r\n      ANYOUT = .TRUE.\r\n  411 CALL WRITE (ESTA,BUFA,NWDSA,0)\r\nC\r\nC     DIAG 20 OUTPUT ONLY\r\nC\r\nC     CALL BUG (4HESTA,0,BUFA,NWDSA)\r\nC\r\n      KWDEST = KWDEST + NWDSA\r\n      IF (STRSPT .EQ. 0) GO TO 100\r\n      STRSPT = STRSPT + 1\r\n      GO TO 112\r\nC\r\nC     CLOSE RECORD FOR CURRENT ELEMENT TYPE.\r\nC     GO TO READ ANOTHER ELEM TYPE.\r\nC\r\n  420 IF (ANYOUT) CALL WRITE (ESTA,0,0,1)\r\n      GO TO 90\r\nC\r\nC     CLOSE FILES.\r\nC\r\n  430 CALL CLOSE (EST ,CLSREW)\r\n      CALL CLOSE (ESTA,CLSREW)\r\nC\r\nC     IF ELEMENT DEFORMATIONS, DETERMINE MAXIMUM NO. OF\r\nC     WORDS IN ANY ONE DEFORMATION SET.\r\nC\r\n      IF (ELDEF .EQ. 0) RETURN\r\n      CALL PRELOC (*620,Z(BUF1),EDT)\r\n      CALL LOCATE (*600,Z(BUF1),KDEFRM,FLAG)\r\n      ID = 0\r\n      K  = 0\r\n  530 CALL READ (*600,*550,EDT,BUF,3,0,FLAG)\r\n      IF (BUF(1) .EQ. ID) GO TO 540\r\n      KWDEDT = MAX0(KWDEDT,K)\r\n      K  = 3\r\n      ID = BUF(1)\r\n      GO TO 530\r\n  540 K  = K + 3\r\n      GO TO 530\r\n  550 KWDEDT = MAX0(KWDEDT,K)\r\n      CALL CLOSE (EDT,CLSREW)\r\n      RETURN\r\nC\r\nC\r\nC     FATAL FILE ERRORS.\r\nC\r\n  560 N = -1\r\n      GO TO 590\r\n  570 N = -2\r\n      GO TO 590\r\n  580 N = -3\r\n      GO TO 590\r\n  590 CALL MESAGE (N,FILE,NAM)\r\nC\r\nC     ABNORMAL RETURN FROM SDR2B.\r\nC\r\n  600 CALL CLOSE (EDT,CLSREW)\r\n      ELDEF = 0\r\n      GO TO 620\r\n  620 CALL MESAGE (30,79,0)\r\n      STRESS = 0\r\n      FORCE  = 0\r\n      ANY    = 0\r\n      RETURN\r\nC\r\nC\r\nC     BINARY SEARCH ROUTINE\r\nC\r\n  630 KLO = 1\r\n      KHI = KN\r\n  640 K   = (KLO+KHI+1)/2\r\n  650 KX  = ITABL + N12*(K-1)\r\n      IF (BUF(L)-Z(KX)) 660,720,670\r\n  660 KHI = K\r\n      GO TO 680\r\n  670 KLO = K\r\n  680 IF (KHI-KLO-1 ) 730,690,640\r\n  690 IF (K .EQ. KLO) GO TO 700\r\n      K = KLO\r\n      GO TO 710\r\n  700 K = KHI\r\n  710 KLO = KHI\r\n      GO TO 650\r\n  720 IF (N12 .EQ. 1) GO TO 110\r\n      BUF(L) = Z(KX+1)\r\n      GO TO 400\r\n  730 GO TO RET1, (100,740)\r\n  740 CALL MESAGE (-61,0,NAME)\r\n      GO TO 740\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2c.f",
    "content": "      SUBROUTINE SDR2C\r\nC\r\nC     SDR2C PROCESSES OUTPUT REQUESTS FOR SINGLE-POINT FORCES OF\r\nC     CONSTRAINT, LOADS, DISPLACEMENTS, VELOCITIES, ACCELERATIONS AND\r\nC     EIGENVECTORS.\r\nC\r\n      LOGICAL         ANYOUT,AXIC  ,DDRMM ,AXSINE,AXCOSI\r\n      INTEGER         APP   ,SORT2 ,SPCF  ,DISPL ,VEL   ,ACC   ,STRESS,\r\n     1                FORCE ,CSTM  ,CASECC,EQEXIN,SIL   ,BGPDT ,PG    ,\r\n     2                QG    ,UGV   ,PHIG  ,EIGR  ,OPG1  ,OQG1  ,OUGV1 ,\r\n     3                PUGV1 ,OCB   ,SORC  ,DTYPE ,FILE  ,BUF1  ,BUF2  ,\r\n     4                BUF3  ,BUF4  ,BUF5  ,SYMFLG,OUTFL ,STA   ,REI   ,\r\n     5                DS0   ,DS1   ,FRQ   ,TRN   ,BK0   ,DATE  ,SYSBUF,\r\n     6                BRANCH,PLOTS ,QTYPE2,EOL   ,BK1   ,TIME  ,SETNO ,\r\n     7                FSETNO,Z     ,RETX  ,FORMT ,FLAG  ,EOF   ,CEI   ,\r\n     8                PLA   ,OHARMS,BLANKS,HARMS ,XSETNO,XSET0 ,DEST  ,\r\n     9                PBUFF(4)     ,EXTRA ,AXIF  ,EDT   ,PLATIT(12)   ,\r\n     O                BUF(50)\r\n      REAL            ZZ(1) ,BUFR(11)     ,PBUFR(4)\r\n      DIMENSION       DATE(3)\r\n      COMMON /BLANK / APP(2),SORT2\r\n      COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM ,IFROUT,\r\n     2                ISLOAD,IDLOAD,ISORC\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CONDAS/ PI    ,TWOPI ,RADDEG,DEGRA ,S4PISQ\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /UNPAKX/ QTYPE2,I2    ,J2    ,INCR2\r\n      COMMON /ZNTPKX/ XX(4),IXX    ,EOL   ,EOR\r\n      COMMON /ZBLPKX/ Y(4) ,IY\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) ,(KSYSTM(15),DATE(1)) ,\r\n     1                (KSYSTM(18),TIME  ) ,(KSYSTM(20),PLOTS  ) ,\r\n     2                (KSYSTM(38),AXIF  ) ,(KSYSTM(56),IHEAT  ) ,\r\n     3                (BUF(1),BUFR(1)),(Z(1),ZZ(1)),(PBUFF(1),PBUFR(1))\r\n      DATA    BUF   / 50*0     /\r\n      DATA    BLANKS/ 4H       /\r\n      DATA    XSET0 / 100000000/\r\n      DATA    PLATIT/ 4HLOAD,4H FAC,4HTOR ,9*0/\r\n      DATA    MMREIG/ 4HMMRE   /\r\nC\r\nC     IF THIS IS A DYNAMIC-DATA-RECOVERY-MATRIX-METHOD REIG PROBLEM\r\nC     THEN ALL EIGENVECTORS ARE TO BE OUTPUT FOR THE DDRMM MODULE.\r\nC\r\n      SETNO = 0\r\n      IF (DDRMM .AND. IREQ.EQ.IDISPL) SETNO = -1\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      BUF1  = KORSZ(Z) - SYSBUF + 1\r\n      BUF2  = BUF1 - SYSBUF\r\n      BUF3  = BUF2 - SYSBUF\r\n      BUF4  = BUF3 - SYSBUF\r\n      BUF5  = BUF4 - SYSBUF\r\n      ISEQ  = 1\r\n      M8    =-8\r\n      I2    = 1\r\n      INCR2 = 1\r\n      KPLOT = 0\r\n      EXTRA = 0\r\n      AXSINE = .FALSE.\r\n      AXCOSI = .FALSE.\r\nC\r\nC     READ SECOND RECORD OF EQEXIN OR EQDYN INTO CORE.\r\nC\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(BUF1),0)\r\n      CALL SKPREC (EQEXIN,1)\r\n      CALL READ (*1320,*30,EQEXIN,Z,BUF5,1,NEQEX)\r\n      CALL MESAGE (M8,0,NAM)\r\n   30 CALL CLOSE (EQEXIN,CLSREW)\r\n      ITABL= 1\r\n      KN   = NEQEX/2\r\n      ICC  = NEQEX\r\n      ILIST= NEQEX + 1\r\nC\r\nC     INITIALIZE FOR PROCESSING SPECIFIC REQUEST.\r\nC\r\n   40 IF (ISEQ-2) 50,60,70\r\nC\r\nC     LOAD VECTOR.\r\nC\r\n   50 IF (LOADS.EQ.0 .OR. APP(1).EQ.REI(1) .OR. APP(1).EQ.CEI(1) .OR.\r\n     1    APP(1).EQ.BK1(1)) GO TO 1180\r\n      INFIL = 115\r\n      OUTFL = OPG1\r\n      IREQ  = ILOADS\r\n      GO TO 90\r\nC\r\nC     SINGLE-POINT FORCES OF CONSTRAINT.\r\nC\r\n   60 IF (SPCF .EQ. 0) GO TO 1180\r\n      INFIL = QG\r\n      OUTFL = OQG1\r\n      IREQ  = ISPCF\r\n      GO TO 90\r\nC\r\nC     DISPLACEMENT VECTOR OR EIGENVECTOR\r\nC\r\n   70 IF (DISPL.NE.0 .OR. VEL.NE.0 .OR. ACC.NE.0 .OR. PLOTS.NE.0)\r\n     1    GO TO 80\r\n      GO TO 1180\r\n   80 INFIL = UGV\r\n      OUTFL = OUGV1\r\n      JTJ   = VEL + ACC\r\n      IF (.NOT.(APP(1).EQ.MMREIG .AND. DISPL.EQ.0 .AND. JTJ.NE.0))\r\n     1    GO TO 88\r\n      IF (VEL .EQ. 0) GO TO 84\r\n      IREQ = IVEL\r\n      GO TO 90\r\n   84 IREQ = IACC\r\n      GO TO 90\r\n   88 IREQ = IDISPL\r\nC\r\nC     READ TRAILER ON INPUT FILE. SET PARAMETERS.\r\nC\r\n   90 ICB(1) = INFIL\r\n      CALL RDTRL (ICB)\r\n      IF (ICB(1) .NE. INFIL) GO TO 1200\r\n      NVECTS = ICB(2)\r\n      IF (ICB(5) .GT. 2) GO TO 100\r\nC\r\nC     REAL VECTOR.\r\nC\r\n      KTYPE  = 1\r\n      QTYPE2 = 1\r\n      KTYPE1 = 2\r\n      NWDS   = 8\r\n      KTYPEX = 0\r\n      GO TO 110\r\nC\r\nC     COMPLEX VECTOR.\r\nC\r\n  100 KTYPE  = 2\r\n      QTYPE2 = 3\r\n      KTYPE1 = 3\r\n      NWDS   = 14\r\n      KTYPEX = 1000\r\nC\r\nC     OPEN CASE CONTROL AND SKIP HEADER. THEN BRANCH ON APPROACH.\r\nC\r\n  110 CALL GOPEN (CASECC,Z(BUF1),0)\r\n      PBUFF(2) = 1\r\n      GO TO (190,120,190,150,160,160,190,150,120,190), BRANCH\r\nC\r\nC     EIGENVALUES - READ LIST OF MODE NOS. AND EIGENVALUES INTO CORE.\r\nC\r\n  120 FILE = EIGR\r\n      CALL GOPEN (EIGR,Z(BUF2),0)\r\n      CALL SKPREC (EIGR,1)\r\n      IF (APP(1) .EQ. CEI(1)) PBUFF(2) = 5\r\n      IF (APP(1) .EQ. REI(1)) PBUFF(2) = 4\r\n      I = ILIST\r\n      M = 8 - KTYPE\r\n      ISKIP = 0\r\n      INDEX = 2\r\n      IF (APP(1) .NE. REI(1)) GO TO 130\r\nC\r\nC     CHECK TO SEE IF ALL GENERALIZED MASS VALUES ARE ZERO\r\nC\r\n  125 CALL READ (*1320,*127,EIGR,BUF,M,0,FLAG)\r\n      IF (BUF(6) .EQ. 0.0) GO TO 125\r\n      INDEX = 0\r\n  127 CALL SKPREC (EIGR,-1)\r\n  130 CALL READ (*1320,*140,EIGR,BUF,M,0,FLAG)\r\n      IF (APP(1) .NE. REI(1)) GO TO 135\r\n      IF (INDEX .EQ. 2) GO TO 135\r\nC\r\nC     MATCH CORRECT MODE NOS. AND EIGENVALUES WITH PROPER\r\nC     EIGENVECTORS WHEN USING GIVENS METHOD WITH F1.GT.0.0\r\nC\r\n      IF (INDEX  .EQ.  1) GO TO 135\r\n      IF (BUF(6) .NE. 0.) GO TO 133\r\n      ISKIP = ISKIP + 1\r\n      GO TO 130\r\n  133 INDEX = 1\r\n  135 Z(I  ) = BUF(1) - ISKIP\r\n      Z(I+1) = BUF(3)\r\n      Z(I+2) = BUF(4)\r\n      I = I + KTYPE1\r\n      GO TO 130\r\n  140 CALL CLOSE (EIGR,CLSREW)\r\n      NLIST = I - KTYPE1\r\n      ICC   = I\r\n      GO TO 190\r\nC\r\nC     DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1 - SKIP 1ST DATA RECORD ON\r\nC     CC.\r\nC\r\n  150 CALL SKPREC (CASECC,1)\r\n      PBUFF(2) = 4\r\n      IF (APP(1) .EQ. BK1(1)) GO TO 120\r\n      PBUFF(2) = 1\r\n      GO TO 190\r\nC\r\nC     FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE.\r\nC\r\n  160 FILE = PG\r\n      CALL OPEN (*1310,FILE,Z(BUF2),RDREW)\r\n      I  = ILIST\r\n      M  = 3\r\n      IX = 1\r\n      PBUFF(2) = 3\r\n      IF (APP(1) .EQ. FRQ(1)) PBUFF(2) = 2\r\n      IF (APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)) IX = 2\r\n  170 CALL READ (*1320,*180,FILE,BUF,M,0,FLAG)\r\n      Z(I  ) = BUF(M)\r\n      Z(I+1) = 0\r\n      I = I + IX\r\n      M = 1\r\n      GO TO 170\r\n  180 CALL CLOSE (FILE,CLSREW)\r\n      NLIST = I - IX\r\n      ICC   = I\r\nC\r\nC     OPEN OUTPUT FILE. WRITE HEADER RECORD.\r\nC\r\n  190 FILE   = OUTFL\r\n      ANYOUT = .FALSE.\r\n      CALL OPEN (*1200,OUTFL,Z(BUF2),WRTREW)\r\n      OCB(1) = OUTFL\r\n      CALL FNAME (OUTFL,BUF)\r\n      DO 200 I = 1,3\r\n  200 BUF(I+2) =  DATE(I)\r\n      BUF(6) = TIME\r\n      BUF(7) = 1\r\n      CALL WRITE (OUTFL,BUF,7,1)\r\nC\r\nC     OPEN INPUT FILE. SKIP HEADER RECORD.\r\nC\r\n      FILE   = INFIL\r\n      CALL OPEN (*1190,INFIL,Z(BUF3),RDREW)\r\n      CALL FWDREC (*1320,INFIL)\r\nC\r\nC     SET PARAMETERS TO KEEP CASE CONTROL AND VECTORS IN SYNCH.\r\nC\r\n      EOF    = 0\r\n      JCOUNT = 0\r\n      KCOUNT = 1\r\n      JLIST  = ILIST\r\n      KFRQ   = 0\r\n      INCORE = 0\r\n      KWDS   = 0\r\nC\r\nC     READ A RECORD IN CASE CONTROL. SET SYMMETRY FLAG.\r\nC\r\n  230 CALL READ (*1160,*240,CASECC,Z(ICC+1),BUF5-ICC,1,NCC)\r\n      CALL MESAGE (M8,0,NAM)\r\n  240 IX     = ICC + ISYMFL\r\n      ITEMP  = ICC + HARMS\r\nC\r\nC     OHARMS WILL BE 1 GREATER THAN THE MAXIMUM OUTPUT HARMONIC\r\nC\r\n      OHARMS = Z(ITEMP)\r\n      IF (OHARMS.LT.0 .AND. AXIF.NE.0) OHARMS = AXIF\r\n      IF (OHARMS .LT. 0) OHARMS = NHARMS\r\nC\r\nC     IF A FLUID PROBLEM CONVERT USER HARMONIC TO INTERNAL HARMONIC MAX.\r\nC\r\n      IF (OHARMS .EQ. 0) GO TO 243\r\n      IF (AXIF   .EQ. 0) GO TO 243\r\n      OHARMS = OHARMS - 1\r\n      OHARMS = 2*OHARMS + 3\r\n  243 SYMFLG = Z(IX)\r\n      IF (SYMFLG .EQ. 0) SORC = Z(ICC+ISORC)\r\n      IF (SORC .EQ. 1) AXSINE = .TRUE.\r\n      IF (SORC .EQ. 2) AXCOSI = .TRUE.\r\n      IFLAG  = 0\r\n      IF (AXIC .AND. AXSINE .AND. AXCOSI .AND. JCOUNT.EQ.2) IFLAG = 1\r\n      IVEC   = ICC + NCC + 1\r\nC\r\nC     DETERMINE IF OUTPUT REQUEST IS PRESENT.\r\nC     IF NOT, TEST FOR RECORD SKIP ON INFIL  THEN GO TO END OF THIS\r\nC     REQUEST.\r\nC     IF SO, SET POINTERS TO SET DEFINING REQUEST.\r\nC\r\n  250 IREQX  = ICC + IREQ\r\n      SETNO  = Z(IREQX  )\r\n      DEST   = Z(IREQX+1)\r\n      FORMT  = IABS(Z(IREQX+2))\r\n      XSETNO = -1\r\n      IF (SETNO) 300,260,280\r\n  260 IF (SYMFLG .NE. 0) GO TO 1000\r\n      IF (APP(1) .NE. FRQ(1)) GO TO 270\r\n      IF (ISEQ  .EQ. 3) GO TO 300\r\n  270 IF (PLOTS .NE. 0) GO TO 300\r\n      CALL FWDREC (*1320,INFIL)\r\n      JCOUNT = JCOUNT + 1\r\n      GO TO 1000\r\n  280 IX     = ICC + ILSYM\r\n      ISETNO = IX + Z(IX) + 1\r\n  290 ISET   = ISETNO + 2\r\n      NSET   = Z(ISETNO+1) + ISET - 1\r\n      IF (Z(ISETNO) .EQ. SETNO) GO TO 295\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. IVEC) GO TO 290\r\n      SETNO  = -1\r\n      GO TO 300\r\nC\r\nC     IF REQUIRED, LOCATE PRINT/PUNCH SUBSET.\r\nC\r\n  295 IF (SETNO .LT. XSET0) GO TO 300\r\n      XSETNO = DEST/10\r\n      DEST   = DEST - 10*XSETNO\r\n      IF (XSETNO .EQ. 0) GO TO 300\r\n      IXSETN = IX + Z(IX) + 1\r\n  296 IXSET  = IXSETN + 2\r\n      NXSET  = Z(IXSETN+1) + IXSET - 1\r\n      IF (Z(IXSETN) .EQ. XSETNO) GO TO 300\r\n      IXSETN = NXSET + 1\r\n      IF (IXSETN .LT. IVEC) GO TO 296\r\n      XSETNO = -1\r\nC\r\nC     UNPACK VECTOR INTO CORE (UNLESS VECTOR IS ALREADY IN CORE).\r\nC\r\n  300 IF (INCORE .NE. 0) GO TO 400\r\n      IVECN = IVEC + KTYPE*ICB(3) - 1\r\n      IF (IVECN  .GE. BUF5) CALL MESAGE (M8,0,NAM)\r\n      IF (SYMFLG .EQ. 0) GO TO 360\r\nC\r\nC     SYMMETRY SEQUENCE - BUILD VECTOR IN CORE.\r\nC\r\n      IX   = ICC + ILSYM\r\n      LSYM = Z(IX)\r\nC\r\nC     IF SYMFLG IS NEGATIVE THIS IS A REPEAT SUBCASE. BCKREC VECTOR\r\nC     AND READ IT INTO CORE.\r\nC\r\n      IF (SYMFLG.LT.0 .AND. APP(1).EQ.STA(1)) GO TO 358\r\n      IF (SYMFLG .LT. 0) GO TO 230\r\n      DO 310 I = IVEC,IVECN\r\n  310 ZZ(I) = 0.\r\n      DO 320 I = 1,LSYM\r\n  320 CALL BCKREC (INFIL)\r\n      ISYMN = IX + LSYM\r\n      I = IX + 1\r\n  330 COEF = ZZ(I)\r\n      CALL INTPK (*350,INFIL,0,QTYPE2,0)\r\n  340 CALL ZNTPKI\r\n      IX = IVEC + IXX - 1\r\n      ZZ(IX) = ZZ(IX) + COEF*XX(1)\r\n      IF (KTYPE .EQ. 2) ZZ(IX+1) = ZZ(IX+1) + COEF*XX(2)\r\n      IF (EOL .EQ. 0) GO TO 340\r\n  350 I = I + 1\r\n      IF (I .LE. ISYMN) GO TO 330\r\n      GO TO 400\r\nC\r\nC     REPEAT SUBCASE\r\nC\r\n  358 JCOUNT = JCOUNT - 1\r\n      CALL BCKREC (INFIL)\r\nC\r\nC     NOT SYMMETRY - UNPACK VECTOR.\r\nC\r\n  360 J2= ICB(3)\r\n      IF (JCOUNT .GE. NVECTS) GO TO 1170\r\n      CALL UNPACK (*370,INFIL,Z(IVEC))\r\n      GO TO 390\r\n  370 DO 380 I = IVEC,IVECN\r\n  380 ZZ(I)  = 0.\r\n  390 JCOUNT = JCOUNT + 1\r\nC\r\nC     TEST FOR CONTINUATION FROM HERE.\r\nC\r\n  400 IF (SETNO .NE. 0) GO TO 410\r\n      IF (APP(1) .EQ. FRQ(1)) GO TO 1040\r\nC\r\nC     PREPARE TO WRITE ID RECORD ON OUTPUT FILE.\r\nC\r\n  410 GO TO (420,430,420,420,440,560,420,430,430,420), BRANCH\r\nC\r\nC     NORMAL STATICS OR DIFF.STIFF. PHASE O OR 1 OR BUCKLING PHASE 0.\r\nC\r\n  420 BUF(2) = DTYPE(ISEQ)\r\n      IX = ICC + ISLOAD\r\n      BUF(5) = Z(ICC+1)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      BUF(8) = Z(IX)\r\n      PBUFF(2) = 1\r\n      PBUFF(3) = Z(IX)\r\n      PBUFF(4) = 0\r\n      IF (BRANCH .NE. 10) GO TO 610\r\n      IX = ICC + ITTL + 84\r\n      Z(IX  ) = PLATIT(1)\r\n      Z(IX+1) = PLATIT(2)\r\n      Z(IX+2) = PLATIT(3)\r\n      CALL INT2AL (JCOUNT,Z(IX+3),PLATIT(4))\r\n      GO TO 610\r\nC\r\nC     EIGENVALUES OR BUCKLING PHASE 1.\r\nC\r\n  430 IF (ISEQ .EQ. 2) BUF(2) = KTYPEX + 3\r\n      IF (ISEQ .EQ. 3) BUF(2) = KTYPEX + 7\r\n      BUF(5) = Z(JLIST  )\r\n      BUF(6) = Z(JLIST+1)\r\n      BUF(7) = Z(JLIST+2)\r\n      BUF(8) = 0\r\nC     PBUFF(2) = 2  THIS CARD WAS REMOVED SINCE LEVEL 16. NO LONGER NEED\r\n      PBUFF(3) = BUF(5)\r\n      IF (APP(1) .EQ. BK1(1)) PBUFF(3) = -BUF(5)\r\n      PBUFF(4) = BUF(6)\r\n      IF (APP(1).NE.BK1(1) .AND. APP(1).NE.CEI(1))\r\n     1   PBUFR(4) = SQRT(ABS(BUFR(6)))/TWOPI\r\n      IF (APP(1) .EQ. CEI(1)) PBUFR(4) = ABS(BUFR(7))/TWOPI\r\n      GO TO 610\r\nC\r\nC     FREQUENCY RESPONSE.\r\nC\r\n  440 IX = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      PBUFF(2) = 2\r\n      PBUFF(3) = BUF(8)\r\n      IF (ISEQ .EQ. 3) GO TO 520\r\n      BUF(2) = DTYPE(ISEQ) + KTYPEX\r\n      GO TO 441\r\n  520 IF (KCOUNT-2) 530,540,550\r\n  530 BUF(2) = 1001\r\n      GO TO 441\r\n  540 BUF(2) = 1010\r\n      GO TO 441\r\n  550 BUF(2) = 1011\r\n      GO TO 441\r\n  441 CONTINUE\r\n      IF (KFRQ .NE. 0) GO TO 510\r\nC\r\nC     FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF USER\r\nC     REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR OUTPUT EACH ACTUAL\r\nC     FREQ WHICH IS CLOSEST TO USER REQUEST.\r\nC\r\n      KFRQ   = 1\r\n      IX     = ICC + IFROUT\r\n      FSETNO = Z(IX)\r\n      IF (FSETNO .LE. 0) GO TO 460\r\n      IX     = ICC + ILSYM\r\n      ISETNF = IX  + Z(IX) + 1\r\n  450 ISETF  = ISETNF + 2\r\n      NSETF  = Z(ISETNF+1) + ISETF - 1\r\n      IF(Z(ISETNF) .EQ. FSETNO) GO TO 480\r\n      ISETNF = NSETF + 1\r\n      IF (ISETNF .LT. IVEC) GO TO 450\r\n      FSETNO = -1\r\n  460 DO 470 J = ILIST,NLIST,2\r\n  470 Z(J+1) = 1\r\n      GO TO 510\r\n  480 DO 500 I = ISETF,NSETF\r\n      K    = 0\r\n      DIFF = 1.E25\r\n      BUFR(1) = ZZ(I)\r\n      DO 490 J = ILIST,NLIST,2\r\n      IF (Z(J+1) .NE. 0) GO TO 490\r\n      DIFF1 = ABS(ZZ(J)-BUFR(1))\r\n      IF (DIFF1 .GE. DIFF) GO TO 490\r\n      DIFF = DIFF1\r\n      K = J\r\n  490 CONTINUE\r\n      IF (K .NE. 0) Z(K+1) = 1\r\n  500 CONTINUE\r\nC\r\nC     DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT.\r\nC\r\n  510 IF (Z(JLIST+1) .EQ. 0) GO TO 1000\r\n      BUF(5)   = Z(JLIST)\r\n      PBUFF(4) = BUF(5)\r\n      GO TO 610\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n  560 BUF(5) = Z(JLIST)\r\n      IF (KCOUNT - 2) 570,580,590\r\n  570 BUF(2) = 1\r\n      GO TO 600\r\n  580 BUF(2) = 10\r\n      GO TO 600\r\n  590 BUF(2) = 11\r\n  600 IF (IREQ .EQ. ILOADS) BUF(2) = 2\r\n      IF (IREQ .EQ. ISPCF ) BUF(2) = 3\r\n      IX = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      PBUFF(2) = 3 + 10*(KCOUNT-1)\r\n      PBUFF(3) = BUF(8)\r\n      PBUFF(4) = BUF(5)\r\n      GO TO 441\r\nC\r\nC     WRITE ID RECORD ON OUTPUT FILE.\r\nC\r\n  610 IF (SETNO.EQ.0 .AND. PLOTS.NE.0) GO TO 880\r\n      BUF(1) = DEST + 10*BRANCH\r\n      BUF(3) = 0\r\nC\r\nC     IF CONICAL SHELL PROBLEM, SET MINOR ID = 1000 FOR USE BY OFP\r\nC\r\n      IF (AXIC) BUF(3) = 1000\r\n      BUF(4) = Z(ICC+1)\r\n      IF (DDRMM) BUF(4) = 9999\r\n      BUF(9) = IABS(Z(IREQX+2))\r\n      IF (BUF(9).EQ.1 .AND. KTYPE.EQ.2) BUF(9) = 2\r\n      FORMT  = BUF(9)\r\n      BUF(10)= NWDS\r\n      CALL WRITE (OUTFL,BUF,50,0)\r\n      IX = ICC + ITTL\r\n      CALL WRITE (OUTFL,Z(IX),96,1)\r\nC\r\nC     BUILD DATA RECORD ON OUTPUT FILE.\r\nC\r\n      IF (SETNO .NE. -1) GO TO 650\r\nC\r\nC     SET .EQ. ALL  -  OUTPUT ALL POINTS DEFINED IN EQEXIN.\r\nC\r\n      KX = 1\r\n      N  = NEQEX - 1\r\n      ASSIGN 640 TO RETX\r\n      GO TO 700\r\n  640 KX = KX + 2\r\n      IF (KX .LE. N) GO TO 700\r\n      GO TO 880\r\nC\r\nC     SET .NE. ALL  -  OUTPUT ONLY POINTS DEFINED IN SET.\r\nC\r\n  650 JHARM = 0\r\n  651 I = ISET\r\n  660 IF (I   .EQ. NSET) GO TO 680\r\n      IF (Z(I+1) .GT. 0) GO TO 680\r\n      N = -Z(I+1)\r\n      BUF(1) = Z(I)\r\n      IBUFSV = BUF(1)\r\n      I = I + 1\r\n      ASSIGN 670 TO RETX\r\n      GO TO 1210\r\n  670 BUF(1) = IBUFSV + 1\r\n      IBUFSV = BUF(1)\r\n      IF (BUF(1) .LE. N) GO TO 1210\r\n      GO TO 690\r\n  680 BUF(1) = Z(I)\r\n      ASSIGN 690 TO RETX\r\n      GO TO 1210\r\n  690 I = I + 1\r\n      IF (I .LE. NSET) GO TO 660\r\n      JHARM = JHARM + 1\r\n      IF (.NOT.AXIC .AND. AXIF.EQ.0) GO TO 880\r\n      IF (JHARM .LE. OHARMS) GO TO 651\r\n      GO TO 880\r\nC\r\nC     PICK UP POINTER TO GRID POINT DATA AND GRID POINT TYPE.\r\nC\r\n  700 BUF(1) = Z(KX)\r\n      IF (IFLAG.EQ.1 .AND. BUF(1).GE.1000000) GO TO RETX, (640,670,690)\r\n      J = Z(KX+1)/10\r\n      BUF(2) = Z(KX+1) - 10*J\r\n      J = IVEC + KTYPE*(J-1)\r\n      IF (BUF(2) .EQ. 1) GO TO 770\r\nC\r\nC     SCALAR OR EXTRA POINT.\r\nC\r\n      BUF(3) = Z(J)\r\n      IF (KTYPE .EQ. 2) GO TO 720\r\n      IF (ISEQ.LE.2 .AND. BUFR(3).EQ.0.0 .AND. SORT2.LT.0)\r\n     1    GO TO RETX, (640,670,690)\r\n      DO 710 K = 4,8\r\n  710 BUF(K) = 0\r\n      GO TO 840\r\nC\r\nC     COMPLEX SCALAR OR EXTRA POINT.\r\nC\r\n  720 BUF(4) = Z(J+1)\r\n      IF (ISEQ.LE.2 .AND. BUFR(3).EQ.0.0 .AND. BUFR(4).EQ.0.0 .AND.\r\n     1    SORT2.LT.0) GO TO RETX, (640,670,690)\r\n      DO 730 K = 5,14\r\n  730 BUF(K) = 0\r\n      IF (FORMT .NE. 3) GO TO 840\r\n      REDNER = SQRT(BUFR(3)**2 + BUFR(4)**2)\r\n      IF (REDNER) 750,740,750\r\n  740 BUFR(4) = 0.0\r\n      GO TO 760\r\n  750 BUFR(4) = ATAN2(BUFR(4),BUFR(3))*RADDEG\r\n      IF (BUFR(4) .LT. -0.00005) BUFR(4) = BUFR(4) + 360.0\r\n  760 BUFR(3) = REDNER\r\n      GO TO 840\r\nC\r\nC     GRID POINT.\r\nC\r\n  770 FLAG = 0\r\n      IF (KTYPE .EQ. 2) GO TO 790\r\n      DO 780 K = 1,6\r\n      BUFR(K+2) = ZZ(J)\r\n      IF (BUFR(K+2).NE.0.0 .OR. SORT2.GE.0) FLAG = 1\r\n  780 J = J + 1\r\n      IF (ISEQ.LE.2 .AND. FLAG.EQ.0) GO TO RETX, (640,670,690)\r\n      GO TO 840\r\nC\r\nC     COMPLEX GRID POINT.\r\nC\r\n  790 DO 830 K = 1,11,2\r\n      BUFR(K+2) = ZZ(J  )\r\n      BUFR(K+3) = ZZ(J+1)\r\n      IF (BUFR(K+2).NE.0. .OR. BUFR(K+3).NE.0. .OR. SORT2.GE.0) FLAG = 1\r\n      IF (FORMT .NE. 3) GO TO 830\r\n      REDNER = SQRT(BUFR(K+2)**2 + BUFR(K+3)**2)\r\n      IF (REDNER) 810,800,810\r\n  800 BUFR(K+3) = 0.0\r\n      GO TO 820\r\n  810 BUFR(K+3) = ATAN2( BUFR(K+3),BUFR(K+2) )*RADDEG\r\n      IF (BUFR(K+3) .LT. -0.00005) BUFR(K+3) = BUFR(K+3) + 360.0\r\n  820 BUFR(K+2) = REDNER\r\n  830 J = J + 2\r\n      IF (ISEQ.LE.2 .AND. FLAG.EQ.0) GO TO RETX, (640,670,690)\r\nC\r\nC     WRITE ENTRY ON OUTPUT FILE.\r\nC\r\nC     IF COMPLEX  TRANSPOSE DATA FOR OFP (REAL TOP, IMAG BOTTOM)\r\nC\r\n  840 IF (NWDS .NE. 14) GO TO 850\r\n      ITEMP   = BUF( 4)\r\n      BUF( 4) = BUF( 5)\r\n      BUF( 5) = BUF( 7)\r\n      BUF( 7) = BUF(11)\r\n      BUF(11) = BUF( 8)\r\n      BUF( 8) = BUF(13)\r\n      BUF(13) = BUF(12)\r\n      BUF(12) = BUF(10)\r\n      BUF(10) = BUF( 6)\r\n      BUF( 6) = BUF( 9)\r\n      BUF( 9) = ITEMP\r\nC\r\n  850 ANYOUT = .TRUE.\r\nC\r\nC     IF CONICAL SHELL DECODE GRID POINT NUMBER IF GREATER THAN 1000000.\r\nC\r\n      IF (.NOT.AXIC) GO TO 870\r\n      IF (BUF(1) .GE. 1000000) GO TO 860\r\n      BUF(2) = BLANKS\r\n      GO TO 870\r\n  860 ITEMP = BUF(1)/1000000\r\nC\r\nC     STOP OUTPUT WHEN PRESENT HARMONIC EXCEEDS OUTPUT HARMONIC SIZE REQ\r\nC\r\n      IF (ITEMP .GT. OHARMS) GO TO 880\r\n      BUF(1) = BUF(1) - ITEMP*1000000\r\n      BUF(2) = ITEMP - 1\r\n      GO TO 876\r\nC\r\nC     IF A FLUID PROBLEM THEN A CHECK IS MADE ON THE HARMONIC ID\r\nC\r\n  870 IF (AXIF) 876,876,861\r\n  861 IF (BUF(1) .LT. 500000) GO TO 876\r\n      ITEMP = BUF(1) - MOD(BUF(1),500000)\r\n      ITEMP = ITEMP/500000\r\nC\r\nC     STOP THE OUTPUT IF THE HARMONIC IS GREATER THAN THE OUTPUT\r\nC     REQUEST FOR HARMONICS\r\nC\r\n      IF (ITEMP .GE. OHARMS) GO TO 880\r\nC\r\nC     DETERMINE DESTINATION FOR ENTRY.\r\nC\r\n  876 ID = BUF(1)\r\n      BUF(1) = 10*ID + DEST\r\n      IF (XSETNO) 878,871,872\r\n  871 BUF(1) = 10*ID\r\n      GO TO 878\r\n  872 IX = IXSET\r\n  873 IF (IX .EQ.  NXSET) GO TO 874\r\n      IF (Z(IX+1) .GT. 0) GO TO 874\r\n      IF (ID.GE.Z(IX) .AND. ID.LE.-Z(IX+1)) GO TO 878\r\n      IX = IX + 2\r\n      GO TO 875\r\n  874 IF (ID .EQ. Z(IX)) GO TO 878\r\n      IX = IX + 1\r\n  875 IF (IX .LE. NXSET) GO TO 873\r\n      GO TO 871\r\nC\r\nC     NOW WRITE ENTRY.\r\nC\r\n  878 CALL WRITE (OUTFL,BUF(1),NWDS,0)\r\n      BUF(1) = ID\r\n      KWDS = KWDS + NWDS\r\n      GO TO RETX, (640,670,690)\r\nC\r\nC     IF PLOTS ARE REQUESTED, READ THE CSTM INTO CORE.\r\nC     IF FIRST VECTOR, OPEN PUGV1 AND WRITE HEADER RECORD.\r\nC\r\n  880 CONTINUE\r\n      EXTRA = 0\r\n      IF (ISEQ.NE.3 .OR. PLOTS.EQ.0 .OR. (KCOUNT.NE.1 .AND.\r\n     1    APP(1).NE.TRN(1))) GO TO 990\r\n      IF (SYMFLG .LT. 0) GO TO 990\r\n      FILE = CSTM\r\n      CALL OPEN (*900,CSTM,Z(BUF5),RDREW)\r\n      CALL FWDREC (*1320,CSTM)\r\n      ICSTM = IVECN + 1\r\n      CALL READ (*1320,*890,CSTM,Z(ICSTM),BUF5-ICSTM,1,NCSTM)\r\n      CALL MESAGE (M8,0,NAM)\r\n  890 CALL CLOSE (CSTM,CLSREW)\r\n      CALL PRETRS (Z(ICSTM),NCSTM)\r\n  900 IF (JCOUNT .NE. 1) GO TO 902\r\n      CALL MAKMCB (MCB,PUGV1,J2,2,QTYPE2)\r\n      FILE = PUGV1\r\n      CALL OPEN (*902,PUGV1,Z(BUF4),WRTREW)\r\n      KPLOT = 1\r\n      CALL FNAME (PUGV1,BUF)\r\n      CALL WRITE (PUGV1,BUF,2,1)\r\nC\r\nC     IF PLOT FILE IS PURGED, NO PLOT FILE CAN BE PREPARED.\r\nC     IF TRANSIENT PROBLEM, REMOVE EXTRA POINTS FROM VECTOR\r\nC     NOW IN CORE THUS CREATING A G-SET VECTOR.\r\nC\r\n  902 EXTRA = 0\r\n      IF (KPLOT .EQ. 0) GO TO 990\r\n      IF (APP(1).NE.TRN(1) .AND. APP(1).NE.FRQ(1) .AND. APP(1).NE.CEI(1)\r\n     1   ) GO TO 910\r\n      DO 903 I = 1,NEQEX,2\r\n      J = Z(I+1)/10\r\n      K = Z(I+1) - 10*J\r\n      IF (K .NE. 3) GO TO 903\r\n      EXTRA = 1\r\n      J = KTYPE*J + IVEC - KTYPE\r\n      Z(J) = 1\r\n      IF (KTYPE .EQ. 2) Z(J+1) = 1\r\n  903 CONTINUE\r\n      IF (EXTRA .EQ. 0) GO TO 910\r\n      J = IVEC\r\n      DO 905 I = IVEC,IVECN\r\n      IF (Z(I) .EQ. 1) GO TO 905\r\n      Z(J) = Z(I)\r\n      J = J + 1\r\n  905 CONTINUE\r\n      IVECN = J - 1\r\nC\r\nC     PASS THE BGPDT. FOR EACH ENTRY, ROTATE THE TRANSLATION COMPONENTS\r\nC     OF UGV TO BASIC (IF REQUIRED). WRITE THESE COMPONENTS ON PUGV1.\r\nC\r\n  910 FILE = BGPDT\r\n      CALL OPEN (*990,BGPDT,Z(BUF5),RDREW)\r\n      CALL FWDREC (*1320,BGPDT)\r\n      K = 0\r\n      I = IVEC\r\n      PBUFF(1) = Z(ICC+1)\r\n      CALL WRITE (PUGV1,PBUFF,4,1)\r\n      L = 3*KTYPE\r\n      CALL BLDPK (QTYPE2,QTYPE2,PUGV1,0,0)\r\n  920 CALL READ (*1320,*980,BGPDT,BUF(7),4,0,FLAG)\r\n      ITEMP = 0\r\n      DO 925 J = 1,L\r\n      LL = I + J - 1\r\n  925 BUFR(J) = ZZ(LL)\r\n      IF (BUF(7)) 950,940,930\r\nC\r\nC     TRANSFORM TO BASIC\r\nC\r\n  930 IF (QTYPE2 .EQ. 1) GO TO 935\r\n      J = BUF(2)\r\n      BUF(2) = BUF(3)\r\n      BUF(3) = BUF(5)\r\n      BUF(5) = BUF(4)\r\n      BUF(4) = J\r\n  935 ITEMP  = 19\r\n      CALL TRANSS (BUFR(7),BUFR(11))\r\n      CALL GMMATS (BUFR(11),3,3,0,BUFR(1),3,1,0,BUF(ITEMP+1))\r\n      IF (QTYPE2 .EQ. 1) GO TO 940\r\n      CALL GMMATS (BUFR(11),3,3,0,BUFR(4),3,1,0,BUF(ITEMP+4))\r\n      J       = BUF(21)\r\n      BUF(21) = BUF(23)\r\n      BUF(23) = BUF(24)\r\n      BUF(24) = BUF(22)\r\n      BUF(22) = J\r\n  940 IY = (I-IVEC+K)/KTYPE\r\n      DO 945 J = 1,L,KTYPE\r\n      IY = IY + 1\r\n      LL = ITEMP + J\r\n      Y(1) = BUFR(LL)\r\n      IF (KTYPE .EQ. 2) Y(2) = BUFR(LL+1)\r\n      CALL ZBLPKI\r\n  945 CONTINUE\r\n      I = I + 6*KTYPE\r\n      GO TO 920\r\nC\r\nC     CHECK FOR FLUID POINTS\r\nC\r\n  950 I = I + KTYPE\r\n      IF (BUF(7) .NE. -2) GO TO 920\r\n      IY = (I-IVEC+K)/KTYPE + 2\r\n      Y(1) = BUFR(1)\r\n      IF (QTYPE2 .EQ. 3) Y(2) = BUFR(2)\r\n      CALL ZBLPKI\r\n      K = K + 5*KTYPE\r\n      GO TO 920\r\n  980 CALL BLDPKN (PUGV1,0,MCB)\r\n      CALL CLOSE (BGPDT,CLSREW)\r\nC\r\nC     CONCLUDE PROCESSING OF THIS VECTOR.\r\nC\r\n  990 IF (SETNO .NE. 0) CALL WRITE (OUTFL,0,0,1)\r\n 1000 GO TO (1010,1020,1170,1020,1040,1110,1170,1020,1020,1020), BRANCH\r\nC\r\nC     NORMAL STATICS.\r\nC\r\n 1010 IF (JCOUNT .LT. NVECTS) GO TO 230\r\n      IF (EOF .EQ. 0) GO TO 230\r\n      GO TO 1170\r\nC\r\nC     EIGENVALUES OR DIFF. STIFF PHASE1 OR BUCKLING PHASE 1.\r\nC\r\n 1020 JLIST = JLIST + KTYPE1\r\n 1030 IF (JCOUNT .GE. NVECTS) GO TO 1170\r\n      IF (EOF .EQ. 0) GO TO 230\r\n      GO TO 250\r\nC\r\nC     FREQUENCY RESPONSE.\r\nC\r\n 1040 IF (ISEQ   .LE. 2) GO TO 1090\r\n      IF (KCOUNT .EQ. 3) GO TO 1080\r\n      N = IVECN - 1\r\n      IF (EXTRA .EQ. 0) GO TO 1045\r\n      CALL BCKREC (INFIL)\r\n      CALL UNPACK (*1041,INFIL,Z(IVEC))\r\n      GO TO 1045\r\n 1041 DO 1042 I = IVEC,N\r\n 1042 ZZ(I) = 0.0\r\n      GO TO 1055\r\n 1045 CONTINUE\r\n      OMEGA = TWOPI*ZZ(JLIST)\r\n      DO 1050 I = IVEC,N,2\r\n      BUFR(1) = -OMEGA*ZZ(I+1)\r\n      ZZ(I+1) =  OMEGA*ZZ(I  )\r\n 1050 ZZ(I  ) =  BUFR(1)\r\n 1055 IF (KCOUNT .EQ. 2) GO TO 1060\r\n      IREQ   = IVEL\r\n      GO TO 1070\r\n 1060 IREQ   = IACC\r\n 1070 KCOUNT = KCOUNT + 1\r\n      INCORE = 1\r\n      GO TO 250\r\n 1080 KCOUNT = 1\r\n      IREQ   = IDISPL\r\n 1090 INCORE = 0\r\n      JLIST  = JLIST + 2\r\n      IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 250\r\n      KFRQ   = 0\r\n      JLIST  = ILIST\r\n      DO 1100 I = ILIST,NLIST,2\r\n 1100 Z(I+1) = 0\r\n      IF (JCOUNT .LT. NVECTS) GO TO 230\r\n      GO TO 1170\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n 1110 IF (ISEQ .LE. 2) GO TO 1150\r\n      IF (KCOUNT - 2) 1120,1130,1140\r\n 1120 IREQ   = IVEL\r\n      KCOUNT = 2\r\n      GO TO 250\r\n 1130 IREQ   = IACC\r\n      KCOUNT = 3\r\n      GO TO 250\r\n 1140 IREQ   = IDISPL\r\n      KCOUNT = 1\r\n 1150 JLIST  = JLIST + 2\r\n      IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 250\r\n      GO TO 1170\r\nC\r\nC     HERE WHEN END-OF-FILE ENCOUNTERED ON CASE CONTROL.\r\nC\r\n 1160 EOF = 1\r\n      GO TO (1170,1030,1170,1030,1170,1170,1170,1030,1030,1030), BRANCH\r\nC\r\nC     CONCLUDE PROCESSING OF CURRENT INPUT FILE.\r\nC\r\n 1170 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (INFIL ,CLSREW)\r\n      CALL CLOSE (OUTFL ,CLSREW)\r\n      IF (KPLOT .NE. 0) CALL CLOSE (PUGV1,CLSREW)\r\n      IF (KPLOT .NE. 0) CALL WRTTRL (MCB)\r\n      OCB(2) = KWDS/65536\r\n      OCB(3) = KWDS - 65536*OCB(2)\r\n      IF (.NOT.ANYOUT) GO TO 1180\r\n      CALL WRTTRL (OCB)\r\nC\r\nC     TEST FOR ALL INPUT FILES PROCESSED.\r\nC\r\n 1180 ISEQ = ISEQ + 1\r\n      IF (ISEQ .LE. 3) GO TO 40\r\n      CALL CLOSE (CASECC,CLSREW)\r\n      RETURN\r\nC\r\nC     HERE IF ABNORMAL CONDITION.\r\nC     CLOSE ALL FILES, JUST TO BE SURE\r\nC\r\n 1190 CALL CLOSE (OUTFL ,CLSREW)\r\n 1200 CALL CLOSE (INFIL ,CLSREW)\r\n      CALL CLOSE (CASECC,CLSREW)\r\n      IX = ISEQ + 75\r\n      CALL MESAGE (30,IX,0)\r\n      GO TO 1180\r\nC\r\nC     BINARY SEARCH ROUTINE.\r\nC     =====================\r\nC\r\n 1210 KLO = 1\r\n      KHI = KN\r\n      IF (AXIC) BUF(1) = JHARM*1000000 + BUF(1)\r\n      IF (AXIF) 1220,1220,1213\r\n 1213 BUF(1) = JHARM*500000 + BUF(1)\r\n 1220 K  = (KLO+KHI+1)/2\r\n 1230 KX = 2*K - 1\r\n      IF (BUF(1)-Z(KX)) 1240,700,1250\r\n 1240 KHI = K\r\n      GO TO 1260\r\n 1250 KLO = K\r\n 1260 IF (KHI-KLO-1) 1300,1270,1220\r\n 1270 IF (K .EQ. KLO) GO TO 1280\r\n      K = KLO\r\n      GO TO 1290\r\n 1280 K = KHI\r\n 1290 KLO = KHI\r\n      GO TO 1230\r\n 1300 GO TO RETX, (640,670,690)\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 1310 N = -1\r\n      GO TO 1330\r\n 1320 N = -2\r\n      GO TO 1330\r\n 1330 CALL MESAGE (N,FILE,NAM)\r\n      GO TO 1330\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2d.f",
    "content": "      SUBROUTINE SDR2D\r\nC\r\nC     SDR2D PERFORMS THE FINAL STRESS AND FORCE RECOVERY COMPUTATIONS.\r\nC     CASE CONTROL AND THE DISPLACEMENT VECTOR FILE ARE PROCESSED IN\r\nC     PARALLEL.  THE ESTA IS PASSED ONCE FOR EACH VECTOR IN UGV FOR\r\nC     WHICH A STRESS OR FORCE OUTPUT REQUEST EXISTS.  THE ESTA IS HELD\r\nC     COMPLETELY IN CORE IF POSSIBLE.  STRESS OUTPUT IS WRITTEN ON OES1.\r\nC     FORCE OUTPUT IS WRITTEN ON OEF1.\r\nC\r\n      LOGICAL         AXIC     ,AXSINE   ,AXCOSI   ,EOFCC\r\nC    1,               IDSTRS   ,IDFORC   ,ILOGIC(2)\r\n      INTEGER         STRESX   ,FORCEX   ,UGVVEC   ,ESTAWD   ,ELTYPE  ,\r\n     1                TLOAD    ,ELDEF    ,ELEMID   ,GPTT     ,OES1    ,\r\n     2                OEF1     ,OEIGR    ,ESTA     ,EDT      ,ELESTA  ,\r\n     3                KDEFRM(2),APP      ,SORT2    ,SPCF     ,DISPL   ,\r\n     4                VEL      ,ACC      ,STRESS   ,FORCE    ,CSTM    ,\r\n     5                CASECC   ,EQEXIN   ,SIL      ,BGPDT    ,PG      ,\r\n     6                QG       ,UGV      ,PHIG     ,EIGR     ,OPG1    ,\r\n     7                OQG1     ,OUGV1    ,OCB      ,BUF(50)  ,DTYPE   ,\r\n     8                FILE     ,BUF1     ,BUF2     ,BUF3     ,BUF4    ,\r\n     9                BUF5     ,BUF6     ,BUF7     ,SYMFLG   ,OUTFL   ,\r\n     O                STA      ,REI      ,DS0      ,DS1      ,FRQ     ,\r\n     1                TRN      ,BK0      ,BRANCH   ,SYSBUF   ,\r\n     2                DATE     ,PLOTS    ,QTYPE2   ,EOL      ,BK1     ,\r\n     3                TIME     ,SETNO    ,FSETNO   ,Z        ,RETX    ,\r\n     4                FORMT    ,FLAG     ,EOF      ,CEI      ,PLA     ,\r\n     5                BUFA     ,BUFB     ,OFILE    ,DEVICE   ,OEF1L   ,\r\n     6                PUGV1    ,XSETNS   ,SDEST    ,BUF8     ,OES1L   ,\r\n     7                OPTE     ,XSET0    ,XSETNF   ,FDEST    ,PCOMPS  ,\r\n     8                SORC     ,TLOADS   ,TMPREC   ,ITR(7)   ,COMPS\r\n      INTEGER         PCOMP(2) ,PCOMP1(2),PCOMP2(2),BUF0     ,BUFM1   ,\r\n     1                NMES1L(2),NMEF1L(2)\r\n      REAL            ZZ(1)    ,BUFR(2)\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\n      COMMON /BLANK / APP(2)   ,SORT2    ,IDUM(2)  ,COMPS\r\n      COMMON /SDR2C1/ IPCMP    ,NPCMP    ,IPCMP1   ,NPCMP1   ,IPCMP2  ,\r\n     1                NPCMP2   ,NSTROP\r\n      COMMON /SDR2X1/ IEIGEN   ,IELDEF   ,ITLOAD   ,ISYMFL   ,ILOADS  ,\r\n     1                IDISPL   ,ISTR     ,IELF     ,IACC     ,IVEL    ,\r\n     2                ISPCF    ,ITTL     ,ILSYM    ,IFROUT   ,ISLOAD  ,\r\n     3                IDLOAD   ,ISORC\r\n      COMMON /SDR2X2/ CASECC   ,CSTM     ,MPT      ,DIT      ,EQEXIN  ,\r\n     1                SIL      ,GPTT     ,EDT      ,BGPDT    ,PG      ,\r\n     2                QG       ,UGV      ,EST      ,PHIG     ,EIGR    ,\r\n     3                OPG1     ,OQG1     ,OUGV1    ,OES1     ,OEF1    ,\r\n     4                PUGV1    ,OEIGR    ,OPHIG    ,PPHIG    ,ESTA    ,\r\n     5                GPTTA    ,HARMS    ,XYCDB    ,SCR3     ,PCOMPS  ,\r\n     6                OES1L    ,OEF1L\r\n      COMMON /SDR2X4/ NAM(2)   ,END      ,MSET     ,ICB(7)   ,OCB(7)  ,\r\n     1                MCB(7)   ,DTYPE(8) ,ICSTM    ,NCSTM    ,IVEC    ,\r\n     2                IVECN    ,TEMP     ,DEFORM   ,FILE     ,BUF1    ,\r\n     3                BUF2     ,BUF3     ,BUF4     ,BUF5     ,ANY     ,\r\n     4                ALL      ,TLOADS   ,ELDEF    ,SYMFLG   ,BRANCH  ,\r\n     5                KTYPE    ,LOADS    ,SPCF     ,DISPL    ,VEL     ,\r\n     6                ACC      ,STRESS   ,FORCE    ,KWDEST   ,KWDEDT  ,\r\n     7                KWDGPT   ,KWDCC    ,NRIGDS   ,STA(2)   ,REI(2)  ,\r\n     8                DS0(2)   ,DS1(2)   ,FRQ(2)   ,TRN(2)   ,BK0(2)  ,\r\n     9                BK1(2)   ,CEI(2)   ,PLA(22)  ,NRINGS   ,NHARMS  ,\r\n     O                AXIC     ,KNSET    ,ISOPL    ,STRSPT   ,DDRMM   ,\r\n     1                ISOPL8\r\n      COMMON /SDR2X7/ ELESTA(100)        ,BUFA(100),BUFB(4076)\r\n      COMMON /SDR2X8/ ELWORK(300)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /NAMES / RD       ,RDREW    ,WRT      ,WRTREW   ,CLSREW\r\n      COMMON /SYSTEM/ SYSBUF   ,OPTE     ,NOGO     ,INTAP    ,MPCN    ,\r\n     1                SPCN     ,METHOD   ,LOADNN   ,SYMM     ,STFTMP  ,\r\n     2                PAGE     ,LINE     ,TLINE    ,MAXLIN   ,DATE(3) ,\r\n     3                TIME     ,ECHO     ,PLOTS    ,DUM23(35),IHEAT\r\n      COMMON /UNPAKX/ QTYPE2   ,I2       ,J2       ,INCR2\r\n      COMMON /ZNTPKX/ XX(4)    ,IXX      ,EOL      ,EOR\r\n      COMMON /ZBLPKX/ Y(4)     ,IY\r\n      COMMON /SDR2DE/ BUF6     ,COEF     ,DEFTMP   ,DIFF     ,DIFF1   ,\r\n     1                DEVICE   ,ESTAWD   ,ELEMID   ,ELTYPE   ,EOF     ,\r\n     2                EOFCC    ,IREQX    ,FLAG     ,FN       ,FORCEX  ,\r\n     3                FSETNO   ,FORMT    ,ICC      ,I        ,IEDT    ,\r\n     4                ISETNO   ,ISETF    ,ISETS    ,IDEF     ,ISYMN   ,\r\n     5                SDEST    ,IX       ,ISETNF   ,ISEQ     ,IRETRN  ,\r\n     6                IRECX    ,ISAVE    ,FDEST    ,IPART    ,ILIST   ,\r\n     7                IGPTTA   ,ICORE    ,IELEM    ,IESTA    ,BUF8    ,\r\n     8                JFORC    ,JSTRS    ,JANY     ,JLIST    ,J       ,\r\n     9                KTYPE1   ,KHI      ,KX       ,K        ,KLO     ,\r\n     O                KN       ,KTYPEX   ,KFRQ     ,KCOUNT   ,LSYM    ,\r\n     1                M        ,MIDVEC   ,NWDSA    ,NWDSTR   ,NLOGIC  ,\r\n     2                NWDS     ,NDEF     ,N        ,N1       ,N2      ,\r\n     3                NOTSET   ,NSETS    ,NSETF    ,NWORDS   ,NX      ,\r\n     4                TGRID(4) ,NWDFOR   ,NGPTT    ,NESTA    ,NVECTS  ,\r\n     5                NLIST    ,OFILE    ,OUTFL    ,RETX     ,SETNO   ,\r\n     6                STRESX   ,SAVE     ,TLOAD    ,UGVVEC   ,IXSETS  ,\r\n     7                NXSETS   ,IXSETF   ,NXSETF   ,XSETNS   ,XSETNF  ,\r\n     8                SORC     ,TMPREC   ,BUF7     ,TGRD(33)\r\n      EQUIVALENCE     (BUF(1),BUFR(1))   ,(Z(1),ZZ(1))\r\nC    1,               (IDSTRS,ILOGIC(1)) ,(IDFORC,ILOGIC(2))\r\n      DATA    BUF   / 50*0/, KDEFRM/104,1/, XSET0/100000000/\r\n      DATA    NMES1L/ 4HOES1, 4HL   /    ,NMEF1L  / 4HOEF1, 4HL   /\r\n      DATA    PCOMP /  5502,  55    /,\r\n     1        PCOMP1/  5602,  56    /,\r\n     2        PCOMP2/  5702,  57    /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      BUFM1  = KORSZ(Z) - SYSBUF + 1\r\n      BUF0   = BUFM1 - SYSBUF - 1\r\n      BUF1   = BUF0  - SYSBUF - 1\r\n      IF (COMPS .NE. -1) BUF1 = BUFM1\r\n      BUF2   = BUF1  - SYSBUF - 1\r\n      I2     = 1\r\n      INCR2  = 1\r\n      ICC    = 0\r\n      ILIST  = 1\r\n      NLIST  = 0\r\n      JLIST  = 1\r\n      KFRQ   = 0\r\n      AXSINE = .FALSE.\r\n      AXCOSI = .FALSE.\r\n      SORC   = 0\r\nC\r\nC     READ TRAILER ON INPUT FILE. SET PARAMETERS.\r\nC\r\n      ICB(1) = UGV\r\n      CALL RDTRL (ICB)\r\n      IF (ICB(1) .NE. UGV) GO TO 770\r\n      NVECTS = ICB(2)\r\n      IF (ICB(5) .GT. 2) GO TO 10\r\nC\r\nC     REAL VECTOR.\r\nC\r\n      KTYPE  = 1\r\n      QTYPE2 = 1\r\n      KTYPE1 = 2\r\n      NWDS   = 8\r\n      KTYPEX = 0\r\n      GO TO 20\r\nC\r\nC     COMPLEX VECTOR.\r\nC\r\n   10 KTYPE  = 2\r\n      QTYPE2 = 3\r\n      KTYPE1 = 3\r\n      NWDS   = 14\r\n      KTYPEX = 1000\r\nC\r\nC     OPEN CASE CONTROL AND SKIP HEADER. THEN BRANCH ON APPROACH.\r\nC\r\n   20 FILE  = CASECC\r\n      CALL OPEN (*740,CASECC,Z(BUF1),RDREW)\r\n      CALL FWDREC (*750,CASECC)\r\n      EOFCC = .FALSE.\r\nC\r\n      GO TO (100, 30,100, 60, 70, 70,100, 60, 30,100), BRANCH\r\nC            STA,REI,DS0,DS1,FRQ,TRN,BK0,BK1,CEI,PLA\r\nC\r\nC     EIGENVALUES - READ LIST OF MODE NOS. AND EIGENVALUES INTO CORE.\r\nC     BUCKLING POSSIBLE HERE TOO\r\nC\r\n   30 FILE = EIGR\r\n      CALL OPEN (*740,EIGR,Z(BUF2),RDREW)\r\n      CALL FWDREC (*750,EIGR)\r\n      CALL FWDREC (*750,EIGR)\r\n      I = ILIST\r\n      M = 8 - KTYPE\r\n      ISKIP = 0\r\n      INDEX = 2\r\n      IF (APP(1) .NE. REI(1)) GO TO 40\r\nC\r\nC     CHECK TO SEE IF ALL GENERALIZED MASS VALUES ARE ZERO\r\nC\r\n   35 CALL READ (*750,*37,EIGR,BUF,M,0,FLAG)\r\n      IF (BUF(6) .EQ. 0.0) GO TO 35\r\n      INDEX = 0\r\n   37 CALL SKPREC (EIGR,-1)\r\n   40 CALL READ (*750,*50,EIGR,BUF(1),M,0,FLAG)\r\n      IF (APP(1) .NE. REI(1)) GO TO 45\r\n      IF (INDEX .EQ. 2) GO TO 45\r\nC\r\nC     MATCH CORRECT MODE NOS. AND EIGENVALUES WITH PROPER\r\nC     FORCES AND STRESSES WHEN USING GIVENS METHOD WITH F1.GT.0.0\r\nC\r\n      IF (INDEX .EQ. 1) GO TO 45\r\n      IF (BUF(6) .NE. 0.0) GO TO 43\r\n      ISKIP  = ISKIP + 1\r\n      GO TO 40\r\n   43 INDEX  = 1\r\n   45 Z(I  ) = BUF(1) - ISKIP\r\n      Z(I+1) = BUF(3)\r\n      Z(I+2) = BUF(4)\r\n      I      = I + KTYPE1\r\n      GO TO 40\r\n   50 CALL CLOSE (EIGR,CLSREW)\r\n      NLIST  = I - KTYPE1\r\n      ICC    = I\r\n      GO TO 100\r\nC\r\nC     DIFF. STIFF. PHASE 1 OR BUCKLING PHASE 1 - SKIP 1ST DATA RECORD ON\r\nC     CC.\r\nC\r\n   60 CALL FWDREC (*750,CASECC)\r\n      IF (APP(1) .EQ. BK1(1)) GO TO 30\r\n      GO TO 100\r\nC\r\nC     FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE.\r\nC\r\n   70 FILE = PG\r\n      CALL OPEN (*740,FILE,Z(BUF2),RDREW)\r\n      I  = ILIST\r\n      M  = 3\r\n      IX = 1\r\n      IF (APP(1).EQ.FRQ(1) .OR. APP(1).EQ.TRN(1)) IX = 2\r\n   80 CALL READ (*750,*90,FILE,BUF(1),M,0,FLAG)\r\n      Z(I  ) = BUF(M)\r\n      Z(I+1) = 0\r\n      I = I + IX\r\n      M = 1\r\n      GO TO 80\r\n   90 CALL CLOSE (FILE,CLSREW)\r\n      NLIST = I - IX\r\n      ICC   = I\r\nC\r\nC     ALLOCATE CORE FOR CASE CONTROL, EDT, GPTT, ESTA, VECTOR\r\nC     BALANCE OF REQUIRED BUFFERS\r\nC       BUF1 = CASECC     BUF5 = GPTT\r\nC       BUF2 = VECTOR     BUF6 = EDT\r\nC       BUF3 = OES1       BUF7 = EQEXIN\r\nC       BUF4 = OEF1       BUF8 = ESTA\r\nC     SOME OF THE ABOVE MAY NOT BE REQUIRED AND THUS WILL NOT BE\r\nC     ALLOCATED..\r\nC\r\n  100 BUF3 = BUF2 - SYSBUF - 1\r\n      IF (STRESS .EQ. 0) BUF3 = BUF2\r\n      BUF4 = BUF3 - SYSBUF - 1\r\n      IF (FORCE  .EQ. 0) BUF4 = BUF3\r\n      BUF5 = BUF4 - SYSBUF - 1\r\n      IF (TLOADS .EQ. 0) BUF5 = BUF4\r\n      BUF6 = BUF5 - SYSBUF - 3\r\n      IF (KWDEDT .EQ. 0) BUF6 = BUF5\r\n      BUF7 = BUF6 - SYSBUF - 1\r\n      IF (ISOPL .EQ. 0) BUF7 = BUF6\r\n      BUF8 = BUF7 - SYSBUF - 1\r\nC\r\nC     IF COMPOSITE ELEMENTS ARE PRESENT, READ PCOMPS INTO CORE\r\nC\r\n      IF (COMPS .NE. -1) GO TO 109\r\n      FILE   = PCOMPS\r\n      N      = -1\r\n      CALL PRELOC (*760,Z(BUF2),PCOMPS)\r\n      IPCMP  = ICC + 1\r\n      IPCMP1 = IPCMP\r\n      IPCMP2 = IPCMP\r\n      NPCMP  = 0\r\n      NPCMP1 = 0\r\n      NPCMP2 = 0\r\n      N      = -2\r\nC\r\n      CALL LOCATE (*106,Z(BUF2),PCOMP,IDX)\r\n      CALL READ (*760,*106,PCOMPS,Z(IPCMP),BUF2-IPCMP,1,NPCMP)\r\n      CALL MESAGE (-8,0,NAM)\r\n  106 IPCMP1 = IPCMP1 + NPCMP\r\n      IPCMP2 = IPCMP1\r\nC\r\n      CALL LOCATE (*107,Z(BUF2),PCOMP1,IDX)\r\n      CALL READ (*760,*107,PCOMPS,Z(IPCMP1),BUF2-IPCMP1,1,NPCMP1)\r\n      CALL MESAGE (-8,0,NAM)\r\n  107 IPCMP2 = IPCMP2 + NPCMP1\r\nC\r\n      CALL LOCATE (*108,Z(BUF2),PCOMP2,IDX)\r\n      CALL READ (*760,*108,PCOMPS,Z(IPCMP2),BUF2-IPCMP2,1,NPCMP2)\r\n      CALL MESAGE (-8,0,NAM)\r\n  108 ICC = IPCMP2 + NPCMP2 - 1\r\nC\r\n      CALL CLOSE (PCOMPS,CLSREW)\r\nC\r\nC     IF ESTA FITS IN CORE BUF8 MAY BE BUF7 SINCE IT WILL ONLY BE USED\r\nC     TO READ ESTA IN ONCE..\r\nC\r\n  109 IEDT   = ICC + KWDCC + 1\r\n      IGPTTA = IEDT + KWDEDT\r\n      ITR(1) = EQEXIN\r\n      CALL RDTRL (ITR)\r\n      NEQEX  = 2*ITR(2)\r\n      IF (ISOPL8 .NE. 8) NEQEX = 0\r\n      IEQEX  = IGPTTA + KWDGPT\r\n      IVEC   = IEQEX + NEQEX\r\n      IVECN  = IVEC + KTYPE*ICB(3) - 1\r\nC\r\nC     IF CONICAL SHELL DOUBLE VECTOR SPACE\r\nC\r\n      IF (AXIC .AND. KTYPE.EQ.1) IVECN = IVECN + ICB(3)*KTYPE\r\n      IESTA  = IVECN + 1\r\n      MIDVEC = (IVEC+IVECN)/2 + 1\r\n      IF (AXIC .AND. KTYPE.EQ.1) MIDVEC = 0\r\n      IF (AXIC .AND. KTYPE.EQ.1) IVECN  = IVECN - ICB(3)*KTYPE\r\n      IF (KWDEST .LE. (BUF7-IESTA)) BUF8 = BUF7\r\nC\r\nC     OPEN ESTA\r\nC\r\n      FILE = ESTA\r\n      CALL OPEN (*740,ESTA,Z(BUF8),RDREW)\r\nC\r\nC     REMAINING CORE\r\nC\r\n      ICORE = BUF8 - IESTA\r\n      NESTA = 0\r\nC\r\nC     WILL ESTA FIT IN CORE\r\nC\r\n      IF (ICORE .LE. 0) CALL MESAGE (-8,0,NAM)\r\n      IF (KWDEST .GT. ICORE) GO TO 140\r\nC\r\nC     ESTA WILL FIT. READ IT IN PLACING A ZERO WORD AT END OF EACH\r\nC     RECORD.\r\nC\r\n      I = IESTA\r\n  110 CALL READ (*130,*120,ESTA,Z(I),ICORE,1,NWORDS)\r\n      CALL REWIND (ESTA)\r\n      ICORE = BUF8 - IESTA\r\n      GO TO 140\r\n  120 I = I + NWORDS + 1\r\n      Z(I-1) = 0\r\n      ICORE = ICORE - NWORDS - 1\r\n      GO TO 110\r\nC\r\nC     ALL ESTA NOW IN CORE\r\nC\r\n  130 NESTA = I - 1\r\n      CALL CLOSE (ESTA,CLSREW)\r\n      IF (NESTA .GT. IESTA) GO TO 140\r\n      WRITE  (OPTE,135) UWM\r\n  135 FORMAT (A25,' 3303, STRESSES OR FORCES REQUESTED FOR SET(S) ',\r\n     1       'WHICH CONTAIN NO VALID ELEMENTS.')\r\n      GO TO 640\r\nC\r\nC     OPEN INPUT FILE. SKIP HEADER RECORD.\r\nC\r\n  140 FILE  = UGV\r\n      CALL OPEN (*740,UGV,Z(BUF2),RDREW)\r\n      CALL FWDREC (*750,UGV)\r\nC\r\nC     IF ANY ISOPARAMETRIC ELEMENTS PRESENT, GET SECOND RECORD OF EQEXIN\r\nC\r\n      IF (ISOPL .EQ. 0) GO TO 148\r\n      FILE = EQEXIN\r\n      CALL OPEN (*740,EQEXIN,Z(BUF7),RDREW)\r\n      CALL FWDREC (*750,EQEXIN)\r\n      CALL FWDREC (*750,EQEXIN)\r\n      ISOPL = EQEXIN\r\n      IF (ISOPL8 .NE. 8) GO TO 145\r\n      CALL FREAD (EQEXIN,Z(IEQEX),NEQEX,0)\r\n      CALL BCKREC (EQEXIN)\r\n  145 CONTINUE\r\nC\r\nC     IF ANY STRESS OUTPUT IS REQUESTED,\r\nC     OPEN OES1 AND WRITE HEADER RECORD\r\nC\r\n  148 IF (STRESS .EQ. 0) GO TO 155\r\n      FILE = OES1\r\n      CALL OPEN (*151,OES1,Z(BUF3),WRTREW)\r\n      CALL FNAME (OES1,OCB)\r\n      DO 150 I = 1,3\r\n  150 OCB(I+2) = DATE(I)\r\n      OCB(6) = TIME\r\n      OCB(7) = 1\r\n      CALL WRITE (OES1,OCB,7,1)\r\n      GO TO 155\r\n  151 CALL MESAGE (1,OES1,NAM)\r\n      STRESS = 0\r\nC\r\nC     IF ANY STRESS OR FORCE OUTPUT IS REQUESTED AND COMPOSITE ELEMENTS\r\nC     ARE PRESENT, OPEN OES1L AND OEF1L AND WRITE HEADER RECORDS\r\nC\r\n  155 IF (COMPS.NE.-1 .OR. (STRESS.EQ.0 .AND. FORCE.EQ.0)) GO TO 160\r\n      ILAYER = 0\r\n      FILE   = OES1L\r\n      CALL OPEN (*158,OES1L,Z(BUFM1),WRTREW)\r\n      CALL WRITE (OES1L,NMES1L,2,1)\r\n      FILE = OEF1L\r\n      CALL OPEN (*158,OEF1L,Z(BUF0),WRTREW)\r\n      CALL WRITE (OEF1L,NMEF1L,2,1)\r\n      GO TO 160\r\n  158 CALL MESAGE (1,FILE,NAM)\r\n      STRESS = 0\r\n      FORCE  = 0\r\nC\r\nC     IF ANY FORCE OUTPUT IS REQUESTED,\r\nC     OPEN OEF1 AND WRITE HEADER RECORD\r\nC\r\n  160 IF (FORCE .EQ. 0) GO TO 180\r\n      FILE = OEF1\r\n      CALL OPEN (*171,OEF1,Z(BUF4),WRTREW)\r\n      CALL FNAME (OEF1,OCB)\r\n      DO 170 I = 1,3\r\n  170 OCB(I+2) = DATE(I)\r\n      OCB(6) = TIME\r\n      OCB(7) = 1\r\n      CALL WRITE (OEF1,OCB,7,1)\r\n      GO TO 180\r\n  171 CALL MESAGE (1,OEF1,NAM)\r\n      FORCE = 0\r\n  180 IF (STRESS.EQ.0 .AND. FORCE.EQ.0) GO TO 640\r\nC\r\nC     INITIALIZE UGV VEC, WHICH WILL BE THE NUMBER OF THE VECTOR WE\r\nC     ARE NOW POSITIONED TO READ.\r\nC\r\n      UGVVEC = 1\r\n      ISVVEC = IVEC\r\n      ISVVCN = IVECN\r\n      IFLAG  = 0\r\nC\r\nC     READ A RECORD IN CASE CONTROL. SET SYMMETRY FLAG.\r\nC\r\n  190 CALL READ (*610,*200,CASECC,Z(ICC+1),KWDCC+1,1,FLAG)\r\n      CALL MESAGE (8,0,NAM)\r\n      GO TO 640\r\n  200 IX  = ICC + ISYMFL\r\n      SYMFLG = Z(IX)\r\n      NCC = ICC + FLAG\r\nC\r\nC     FOR CONICAL SHELL SET SORC FLAG\r\nC\r\n      IX = ICC + ISORC\r\n      IF (IFLAG  .EQ. 1) SORC   = ISVSRC\r\n      IF (SYMFLG .EQ. 0) SORC   = Z(IX)\r\n      IF (SORC   .EQ. 1) AXSINE = .TRUE.\r\n      IF (SORC   .EQ. 2) AXCOSI = .TRUE.\r\n      IF (AXIC .AND. SYMFLG.EQ.0) ISVSRC = SORC\r\n      IVEC  = ISVVEC\r\n      IVECN = ISVVCN\r\n      IFLAG = 0\r\n      IF (AXIC .AND. AXSINE .AND. AXCOSI .AND. UGVVEC.EQ.3) IFLAG = 1\r\n      IF (AXIC .AND. SORC.EQ.0) GO TO 620\r\nC\r\nC     DETERMINE IF OUTPUT REQUEST IS PRESENT.\r\nC     IF NOT, TEST FOR RECORD SKIP ON UGV THEN GO TO END OF THIS\r\nC     REQUEST. IF SO, SET POINTERS TO SET DEFINING REQUEST.\r\nC\r\n  210 IX = ICC + ISTR\r\n      STRESX = Z(IX  )\r\n      SDEST  = Z(IX+1)\r\n      XSETNS = -1\r\n      IX     = ICC + IELF\r\n      FORCEX = Z(IX  )\r\n      FDEST  = Z(IX+1)\r\n      XSETNF = -1\r\n      NSTROP = Z(ICC+183)\r\nC\r\nC     DEBUG PRINTOUT\r\nC\r\nC\r\n      IF (COMPS.EQ.-1 .AND. NSTROP.GT.1) ILAYER = ILAYER + 1\r\n      IF (STRESX) 240,240,220\r\n  220 IX = ICC + ILSYM\r\n      ISETNO = IX + Z(IX) + 1\r\n  230 ISETS  = ISETNO + 2\r\n      NSETS  = Z(ISETNO+1) + ISETS - 1\r\n      IF (Z(ISETNO) .EQ. STRESX) GO TO 235\r\n      ISETNO = NSETS + 1\r\n      IF (ISETNO .LE. NCC) GO TO 230\r\n      STRESX = -1\r\n      GO TO 240\r\nC\r\nC     IF REQUIRED, LOCATE PRINT/PUNCH SUBSET FOR STRESSES\r\nC\r\n  235 IF (STRESX .LT. XSET0) GO TO 240\r\n      XSETNS = SDEST/10\r\n      SDEST  = SDEST - 10*XSETNS\r\n      IF (XSETNS .EQ. 0) GO TO 240\r\n      IXSTNS = IX + Z(IX) + 1\r\n  236 IXSETS = IXSTNS + 2\r\n      NXSETS = Z(IXSTNS+1) + IXSETS - 1\r\n      IF (Z(IXSTNS) .EQ. STRESX) GO TO 240\r\n      IXSTNS = NXSETS + 1\r\n      IF (IXSTNS .LT. NCC) GO TO 236\r\n      STRESX = -1\r\n  240 IF (FORCEX) 270,270,250\r\n  250 IX = ICC + ILSYM\r\n      ISETNO = IX + Z(IX) + 1\r\n  260 ISETF  = ISETNO + 2\r\n      NSETF  = Z(ISETNO+1) + ISETF - 1\r\n      IF (Z(ISETNO) .EQ. FORCEX) GO TO 265\r\n      ISETNO = NSETF + 1\r\n      IF (ISETNO .LE. NCC) GO TO 260\r\n      FORCEX = -1\r\n      GO TO 290\r\nC\r\nC     IF REQUIRED, LOCATE PRINT/PUNCH SUBSET FOR FORCES\r\nC\r\n  265 IF (FORCEX .LT. XSET0) GO TO 290\r\n      XSETNF = FDEST/10\r\n      FDEST  = FDEST - 10*XSETNF\r\n      IF (XSETNF .EQ. 0) GO TO 290\r\n      IXSTNF = IX + Z(IX) + 1\r\n  266 IXSETF = IXSTNF + 2\r\n      NXSETF = Z(IXSTNF+1) + IXSETF - 1\r\n      IF (Z(IXSTNF) .EQ. FORCEX) GO TO 290\r\n      IXSTNF = NXSETF + 1\r\n      IF (IXSTNF .LT. NCC) GO TO 266\r\n      FORCEX = -1\r\n  270 IF (STRESX.NE.0 .OR. FORCEX.NE.0 .OR. AXIC) GO TO 290\r\nC\r\nC     NO REQUESTS THIS CC RECORD FOR STRESSES OR FORCES.\r\nC     THUS SKIP CORRESPONDING UGV RECORD UNLESS SYMFLG IS ON, IN WHICH\r\nC     CASE WE SKIP NO UGV RECORD SINCE THE SYMMETRY CASE HAS NO UGV\r\nC     VECTOR, BUT IN FACT WOULD HAVE USED A SUMMATION OF THE IMMEDIATELY\r\nC     PRECEEDING LSYM VECTORS.\r\nC\r\nC     IF END OF CC AND NO STRESS OR FORCE OUTPUT REQUEST WE ARE DONE\r\nC\r\n      IF (EOFCC ) GO TO 620\r\n      IF (SYMFLG) 190,280,190\r\n  280 CALL FWDREC (*750,UGV)\r\n      UGV VEC = UGV VEC + 1\r\n      GO TO 570\r\nC\r\nC     THERE IS A REQUEST FOR STRESSES AND OR FORCES\r\nC     FIRST DETERMINE APPROPRIATE GPTT AND EDT RECORDS IF REQUIRED\r\nC\r\n  290 IX     = ICC + ITLOAD\r\n      TLOADS = Z(IX)\r\n      NGPTT  = 0\r\n      IF (TLOADS .EQ. 0) GO TO 370\r\n      FILE   = GPTT\r\n      CALL CLOSE (GPTT,CLSREW)\r\n      CALL OPEN (*740,GPTT,Z(BUF5),RDREW)\r\nC\r\nC     SKIP NAME\r\nC\r\n      CALL READ (*750,*751,GPTT,BUF,2,0,N)\r\nC\r\nC     PICK UP 3 WORDS OF SET INFORMATION\r\nC\r\n  295 CALL READ (*750,*751,GPTT,BUF,3,0,N)\r\n      IF (BUF(1) .NE. TLOADS) GO TO 295\r\n      DEFTMP = BUFR(2)\r\n      TMPREC = BUF(3)\r\nC\r\n  370 IX    = ICC + IELDEF\r\n      ELDEF = Z(IX)\r\n      IF (ELDEF.EQ.0 .OR. KWDEDT.EQ.0) GO TO 430\r\n      FILE  = EDT\r\n      CALL PRELOC (*740,Z(BUF6),EDT)\r\n      CALL LOCATE (*390,Z(BUF6),KDEFRM,FLAG)\r\n      IDEF  = IEDT\r\n      I     = IDEF\r\n  380 CALL READ (*750,*390,EDT,BUF(1),3,0,FLAG)\r\n      IF (BUF(1) .EQ. ELDEF) GO TO 410\r\n      GO TO 380\r\n  390 BUF(1) = ELDEF\r\n      BUF(2) = 0\r\n      CALL MESAGE (-30,46,BUF)\r\n  400 CALL READ (*750,*420,EDT,BUF(1),3,0,FLAG)\r\n      IF (BUF(1) .NE. ELDEF) GO TO 420\r\n  410 Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(3)\r\n      I = I + 2\r\n      IF (I .LT. IGPTTA) GO TO 400\r\n      CALL MESAGE (-8,0,NAM)\r\n  420 NDEF = I - 2\r\n      CALL CLOSE (EDT,CLSREW)\r\nC\r\nC     UNPACK VECTOR INTO CORE\r\nC\r\n  430 COEF1 = 1.0\r\n      IF (SYMFLG .EQ. 0) GO TO 490\r\nC\r\nC     SYMMETRY SEQUENCE-- BUILD VECTOR IN CORE.\r\nC\r\n      IX   = ICC + ILSYM\r\n      LSYM = Z(IX)\r\nC\r\nC     IF SYMFLG IS NEGATIVE, THIS IS A REPEAT SUBCASE.  USE PRESENT\r\nC     VECTOR IN CORE.\r\nC\r\n      IF (SYMFLG.LT.0 .AND. APP(1).EQ.STA(1)) GO TO 530\r\n      IF (SYMFLG .LT. 0) GO TO 190\r\n      DO 440 I = IVEC,IVECN\r\n  440 ZZ(I) = 0.0\r\n      IF (LSYM .GT. UGV VEC-1) GO TO 780\r\n      LIMIT = LSYM\r\n      IF (IFLAG .EQ. 1) LIMIT = 1\r\n      DO 450 I = 1,LIMIT\r\n  450 CALL BCKREC (UGV)\r\n      ISYMN = IX + LSYM\r\n      I = IX + 1\r\n      IF (IFLAG .EQ. 1) I = I + 1\r\n      J2 = ICB(3)\r\n  460 COEF = ZZ(I)\r\n      CALL INTPK (*480,UGV,0,QTYPE2,0)\r\n  470 CALL ZNTPKI\r\n      IX = IVEC + IXX - 1\r\n      IF (KTYPE .EQ. 1) GO TO 471\r\n      ZZ(IX+J2) = ZZ(IX+J2) + COEF*XX(1)\r\n      ZZ(IX   ) = ZZ(IX)    + COEF*XX(2)\r\n      GO TO 472\r\n  471 CONTINUE\r\n      ZZ(IX)= ZZ(IX) + COEF*XX(1)\r\n  472 CONTINUE\r\n      IF (EOL   .EQ. 0) GO TO 470\r\n  480 IF (IFLAG .EQ. 1) GO TO 485\r\n      I = I + 1\r\n      IF (I .LE. ISYMN) GO TO 460\r\n      GO TO 530\r\nC\r\nC     CONICAL SHELL BOTH CASE\r\nC     2 VECTORS IN CORE -\r\nC     2-ND VECTOR IS NOW IN CORE AT Z(IVEC) THRU Z(IVECN)...\r\nC     GET 1-ST VECTOR AND PUT IT AT Z(IVECN+1) THRU Z(2*IVECN-MIDVEC+1)\r\nC\r\nC\r\n  485 MIDVEC = IVEC\r\n      IVEC   = IVECN + 1\r\n      IVECN  = IVECN + (IVECN-MIDVEC+1)\r\n      COEF1  = ZZ(ICC + ILSYM+1)\r\nC\r\nC     IF FALL HERE AND SORC=1 THE VECTOR IN CORE IS THE SINE VECTOR AND\r\nC     IF SORC=2 THE VECTOR IN CORE IS THE COSINE VECTOR.  THUS THE FIRST\r\nC     VECTOR WAS THE OTHER VECTOR RESPECTIVELY\r\nC     BY THE WAY THE VECTOR IN CORE IS THE SECOND VECTOR.\r\nC\r\n      CALL BCKREC (UGV)\r\n      CALL BCKREC (UGV)\r\nC\r\nC     NOT SYMMETRY-- UNPACK VECTOR.\r\nC\r\n  490 J2 = ICB(3)\r\n      IF (IFLAG .EQ. 1) GO TO 515\r\n      IF (UGVVEC .GT. NVECTS) GO TO 620\r\n  515 DO 510 I = IVEC,IVECN\r\n  510 ZZ(I) = 0.0\r\n      CALL INTPK (*500,UGV,0,QTYPE2,0)\r\n  491 CALL ZNTPKI\r\n      IX = IVEC + IXX-1\r\n      IF (KTYPE .EQ. 1) GO TO 492\r\n      ZZ(IX   ) = COEF1*XX(2)\r\n      ZZ(IX+J2) = COEF1*XX(1)\r\n      GO TO 493\r\n  492 CONTINUE\r\n      ZZ(IX) = COEF1*XX(1)\r\n  493 CONTINUE\r\n      IF (EOL .EQ. 0) GO TO 491\r\n  495 IF (APP(1) .NE. TRN(1)) GO TO 520\r\n      CALL FWDREC (*520,UGV)\r\n      UGVVEC = UGVVEC + 1\r\n      CALL FWDREC (*520,UGV)\r\n      UGVVEC = UGVVEC + 1\r\n      GO TO 520\r\n  500 CONTINUE\r\n      GO TO 495\r\n  520 IF (IFLAG .NE. 1) UGVVEC = UGVVEC + 1\r\n      IF (IFLAG .EQ. 1) CALL SKPREC (UGV,1)\r\nC\r\nC     READY NOW TO SWEEP THROUGH THE ESTA ONCE.\r\nC     SDR2E DOES ALL THE PROCESSING OF PHASE II ELEMENT COMPUTATIONS.\r\nC     THE ESTA FILE, BE IT IN CORE OR NOT, IS SWEPT THRU ONCE FOR THE\r\nC     FOLLOWING CALL.\r\nC\r\n  530 IF (IFLAG .EQ. 1) SORC = SORC + 1\r\n      IF (SORC  .EQ. 3) SORC = 1\r\n      CALL SDR2E (*640,IEQEX,NEQEX)\r\nC\r\nC     CONCLUDE PROCESSING OF THIS VECTOR\r\nC     INITIALIZE FOR NEXT VECTOR\r\nC     CANCEL THIS INITIALIZATION IN SOME CASES IF A REPEAT CASE.\r\nC\r\n  570 GO TO (580,581,620,581,590,582,620,581,581,580), BRANCH\r\nC\r\n  580 IF (.NOT.EOFCC) GO TO 190\r\n      GO TO 589\r\n  581 JLIST = JLIST + KTYPE1\r\n      IF (.NOT.EOFCC) GO TO 190\r\n      GO TO 589\r\nC\r\nC     TRANSIENT RESPONSE\r\nC\r\n  582 JLIST = JLIST + 2\r\n      IF (JLIST.LE.NLIST .AND. .NOT.EOFCC) GO TO 190\r\n      IF (JLIST.GT.NLIST  .OR. UGVVEC.GT.NVECTS) GO TO 620\r\n      GO TO 490\r\nC\r\nC     PROCESS ANY REMAINING VECTORS WITH LAST CC RECORD\r\nC\r\n  589 IF (UGV VEC.LE.NVECTS .AND. SYMFLG.EQ.0) GO TO 210\r\n      GO TO 620\r\nC\r\nC     FREQUENCY RESPONSE, PICK UP NEXT VECTOR UNLESS ALL FREQUENCIES\r\nC     COMPLETED\r\nC\r\n  590 JLIST = JLIST + 2\r\n      IF (JLIST.LE.NLIST .AND. UGV VEC.LE.NVECTS) GO TO 210\r\n      KFRQ  = 0\r\n      JLIST = ILIST\r\n      DO 600 I = ILIST,NLIST,2\r\n  600 Z(I+1) = 0\r\n      IF (UGV VEC .LE. NVECTS) GO TO 190\r\n      GO TO 620\r\nC\r\nC     EOF HIT ON CASECC FILE\r\nC     PROCESS ANY MORE VECTORS USING LAST CASECC RECORD\r\nC\r\n  610 EOFCC = .TRUE.\r\n      IF (NVECTS .GE. UGV VEC) GO TO 210\r\nC\r\nC     WRITE TRAILERS AND CLOSE ANY OPEN FILES\r\nC\r\n  620 OCB(2) = 63\r\n      IF (STRESS .EQ. 0) GO TO 630\r\n      OCB(1) = OES1\r\n      CALL WRTTRL (OCB(1))\r\n      IF (COMPS.NE.-1 .OR. ILAYER.EQ.0) GO TO 630\r\n      OCB(1) = OES1L\r\n      CALL WRTTRL (OCB(1))\r\n  630 IF (FORCE .EQ. 0) GO TO 640\r\n      OCB(1) = OEF1\r\n      CALL WRTTRL (OCB(1))\r\n      IF (COMPS.NE.-1 .OR. ILAYER.EQ.0) GO TO 640\r\n      OCB(1) = OEF1L\r\n      CALL WRTTRL (OCB(1))\r\n  640 DO 730 I = 1,12\r\n      GO TO (650,660,670,680,690,700,710,720,721,725,726,728), I\r\n  650 FILE = OES1\r\n      GO TO 730\r\n  660 FILE = OEF1\r\n      GO TO 730\r\n  670 FILE = UGV\r\n      GO TO 730\r\n  680 FILE = CASECC\r\n      GO TO 730\r\n  690 FILE = EDT\r\n      GO TO 730\r\n  700 FILE = GPTT\r\n      GO TO 730\r\n  710 FILE = PG\r\n      GO TO 730\r\n  720 FILE = EIGR\r\n      GO TO 730\r\n  721 FILE = ESTA\r\n      GO TO 730\r\n  725 FILE=EQEXIN\r\n      GO TO 730\r\n  726 FILE = OES1L\r\n      GO TO 730\r\n  728 FILE = OEF1L\r\n  730 CALL CLOSE (FILE,CLSREW)\r\n      RETURN\r\nC\r\n  740 N = 1\r\n      GO TO 760\r\n  750 N = 2\r\n      GO TO 760\r\n  751 N = 3\r\n      GO TO 760\r\n  760 CALL MESAGE (N,FILE,NAM)\r\n      GO TO 640\r\nC\r\nC     UGV FILE PURGED, CAN NOT PROCESS STRESSES OR FORCES\r\nC\r\n  770 CALL MESAGE (30,76,0)\r\n      GO TO 640\r\n  780 OCB(1) = LSYM\r\n      OCB(2) = UGV VEC - 1\r\n      CALL MESAGE (30,92,OCB(1))\r\n      GO TO 620\r\n      END\r\n"
  },
  {
    "path": "mis/sdr2e.f",
    "content": "      SUBROUTINE SDR2E (*,IEQEX,NEQEX)\r\nC\r\nC     THIS ROUTINE WHICH IS CALLED ONLY FROM SDR2D WILL PROCESS THE ESTA\r\nC     FILE ONCE AND OUTPUT FORCE AND OR STRESS RESULTS ON OEF1 AND OR\r\nC     OES1 WHICH ARE OPENED IN SDR2D.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        ANDF\r\n      LOGICAL         EORFLG,ENDID ,RECORD,ACSTIC,AXIC  ,AGAIN ,IDSTRS,\r\n     1                IDFORC,EOFCC ,IDLYST,IDLYFR,OK2WRT,HEAT  ,DDRMM ,\r\n     2                STRAIN,ILOGIC(4)\r\n      INTEGER         BUF(50)      ,PLATIT(12)   ,COMPLX(478)  ,\r\n     1                ISAVEF(75)   ,ISAVES(75)\r\n      REAL            ZZ(1) ,BUFR(1)      ,TGRID(33)    ,DIFF1 ,DIFF  ,\r\n     1                DEFORM,FRTMEI,TEMP  ,TWOTOP,FNCHK\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM\r\n      COMMON /LHPWX / LH(6) ,MTISA\r\n      COMMON /BLANK / APP(2),SORT2 ,ISTRN ,IDUM1 ,COMPS ,IDUM4(4)     ,\r\n     1                STRAIN\r\n      COMMON /SDR2C1/ IPCMP ,NPCMP ,IPCMP1,NPCMP1,IPCMP2,NPCMP2,NSTROP\r\n      COMMON /SDR2X1/ IEIGEN,IELDEF,ITLOAD,ISYMFL,ILOADS,IDISPL,ISTR  ,\r\n     1                IELF  ,IACC  ,IVEL  ,ISPCF ,ITTL  ,ILSYM ,IFROUT,\r\n     2                ISLOAD,IDLOAD,ISORC\r\n      COMMON /SDR2X2/ CASECC,CSTM  ,MPT   ,DIT   ,EQEXIN,SIL   ,GPTT  ,\r\n     1                EDT   ,BGPDT ,PG    ,QG    ,UGV   ,EST   ,PHIG  ,\r\n     2                EIGR  ,OPG1  ,OQG1  ,OUGV1 ,OES1  ,OEF1  ,PUGV1 ,\r\n     3                OEIGR ,OPHIG ,PPHIG ,ESTA  ,GPTTA ,HARMS ,IDUM3(3)\r\n     4,               OES1L ,OEF1L\r\n      COMMON /GPTA1 / NELEM ,LAST  ,INCR  ,ELEM(1)\r\n      COMMON /SDR2X4/ NAM(2),END   ,MSET  ,ICB(7),OCB(7),MCB(7),DTYPE(8)\r\n     1,               ICSTM ,NCSTM ,IVEC  ,IVECN ,TEMP  ,DEFORM,FILE  ,\r\n     2                BUF1  ,BUF2  ,BUF3  ,BUF4  ,BUF5  ,ANY   ,ALL   ,\r\n     3                TLOADS,ELDEF ,SYMFLG,BRANCH,KTYPE ,LOADS ,SPCF  ,\r\n     4                DISPL ,VEL   ,ACC   ,STRESS,FORCE ,KWDEST,KWDEDT,\r\n     5                KWDGPT,KWDCC ,NRIGDS,STA(2),REI(2),DS0(2),DS1(2),\r\n     6                FRQ(2),TRN(2),BK0(2),BK1(2),CEI(2),PLA(22)      ,\r\n     7                NRINGS,NHARMS,AXIC  ,KNSET ,ISOPL ,STRSPT,DDRMM\r\n      COMMON /SDR2X7/ ELESTA(100)  ,BUFA(100)    ,BUFB(4076)\r\n      COMMON /SDR2X8/ ELWORK(300)\r\n      COMMON /SDR2X9/ NCHK  ,ISUB  ,ILD   ,FRTMEI(2)    ,TWOTOP,FNCHK\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ISAVE / ISAVEF,ISAVES\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /CLSTRS/ COMPLX\r\n      COMMON /SYSTEM /KSYSTM(100)\r\n      COMMON /SDR2DE/ BUF6  ,COEF  ,DEFTMP,DIFF  ,DIFF1 ,DEVICE,ESTAWD,\r\n     1                ELEMID,ELTYPE,EOF   ,EOFCC ,IREQX ,FLAG  ,FN    ,\r\n     2                FORCEX,FSETNO,FORMT ,ICC   ,I     ,IEDT  ,ISETNO,\r\n     3                ISETF ,ISETS ,IDEF  ,ISYMN ,SDEST ,IX    ,ISETNF,\r\n     4                ISEQ  ,IRETRN,IRECX ,ISAVE ,FDEST ,IPART ,ILIST ,\r\n     5                IGPTTA,ICORE ,IELEM ,IESTA ,BUF8  ,JFORC ,JSTRS ,\r\n     6                JANY  ,JLIST ,J     ,KTYPE1,KHI   ,KX    ,K     ,\r\n     7                KLO   ,KN    ,KTYPEX,KFRQ  ,KCOUNT,LSYM  ,M     ,\r\n     8                MIDVEC,NWDSA ,NWDSTR,NLOGIC,NWDS  ,NDEF  ,N     ,\r\n     9                N1    ,N2    ,NOTSET,NSETS ,NSETF ,NWORDS,NX    ,\r\n     O                TDUMM(4)     ,NWDFOR,NGPTT ,NESTA ,NVECTS,NLIST ,\r\n     A                OFILE ,OUTFL ,RETX  ,SETNO ,STRESX,SAVE  ,TLOAD ,\r\n     B                UGVVEC,IXSETS,NXSETS,IXSETF,NXSETF,XSETNS,XSETNF,\r\n     C                SORC  ,TMPREC,BUF7  ,TGRID\r\n      COMMON /SDRETT/ IELTYP,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,XX2(2),\r\n     1                RECORD,OLDEID\r\n      EQUIVALENCE     (KSYSTM( 2),OPTE  ) ,(KSYSTM(55),IPREC  ),\r\n     1                (KSYSTM(56),ITHERM)\r\n      EQUIVALENCE     (BUF(1),BUFR(1)   ) ,(Z(1)  ,ZZ(1)      ),\r\n     1                (IDSTRS,ILOGIC(1) ) ,(IDFORC,ILOGIC(2)  ),\r\n     2                (IDLYST,ILOGIC(3) ) ,(IDLYFR,ILOGIC(4)  ),\r\n     3                (TEMP  ,JTEMP     ) ,(NELHAR,ELWORK(155))\r\n      DATA PLATIT / 4HLOAD,4H FAC,4HTOR , 9*0    /\r\n      DATA BUF    / 50*0 /, IELOLD / 0 /, IELCHK / 0 /\r\nC\r\nC     INITIALIZE ESTA POINTERS.\r\nC\r\n      IF (STRESX.EQ.0 .AND. FORCEX.EQ.0) RETURN\r\n      HEAT   = .FALSE.\r\n      IF (ITHERM .NE. 0) HEAT = .TRUE.\r\n      ESTAWD = IESTA\r\n      ISTORE = 0\r\n      IX     = ICC + HARMS\r\n      AGAIN  =.FALSE.\r\n      OHARMS = Z(IX)\r\n      IF (OHARMS .LT. 0) OHARMS = NHARMS\r\n      ISAVE  = IVEC\r\n      ISVSRC = SORC\r\n      ELTYPE = Z(ESTAWD)\r\n      FILE   = ESTA\r\n      IX     = ICC + ISTR + 2\r\n      SPHASE = IABS(Z(IX))\r\n      IX     = ICC + IELF + 2\r\n      FPHASE = IABS(Z(IX))\r\n      TWO TO P = ALOG10(2.0**MTISA)\r\nC\r\nC     POSITION TO THE PROPER THERMAL RECORD IF NECESSARY.\r\nC\r\n      RECORD = .FALSE.\r\n      IF (TLOADS .EQ. 0) GO TO 18\r\n      IF (TMPREC .EQ. 0) GO TO 18\r\n      CALL REWIND (GPTT)\r\n      FILE = GPTT\r\n      DO 15 I = 1,TMPREC\r\n      CALL FWDREC (*980,GPTT)\r\n   15 CONTINUE\r\nC\r\nC     READ AND VERIFY SET-ID  (FAILSAFE)\r\nC\r\n      CALL READ (*980,*990,GPTT,ISETID,1,0,FLAG)\r\n      IF (TLOADS .EQ. ISETID) GO TO 17\r\n      WRITE  (OPTE,16) SFM,TLOADS,ISETID\r\n   16 FORMAT (A25,' 4019, SDR2E DETECTS INVALID TEMPERATURE DATA FOR ',\r\n     1       'TEMPERATURE LOAD SET',2I10)\r\n      CALL MESAGE (-61,0,0)\r\n   17 RECORD = .TRUE.\r\nC\r\nC     INITIALIZE /SDRETT/ VARIABLES\r\nC\r\n      OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG = .FALSE.\r\n      ENDID  = .TRUE.\r\n   18 ITEMP  = TLOADS\r\n      IF (NESTA .NE. 0) GO TO 25\r\n      CALL REWIND (ESTA)\r\n   20 CALL READ (*950,*990,ESTA,ELTYPE,1,0,FLAG)\r\nC\r\nC     ELEMENT PARAMETERS FOR NEW ELEMENT TYPE\r\nC\r\n   25 IELEM  = (ELTYPE-1)*INCR\r\n      IELTYP = ELTYPE\r\n      IPR    = IPREC\r\n      IF (IPR .NE. 1) IPR = 0\r\n      JLTYPE = 2*ELTYPE - IPR\r\n      JCORE  = ICORE\r\n      IF (HEAT .AND. ELTYPE.NE.82) GO TO 27\r\nC                            FTUBE\r\n      NWDSA  = ELEM(IELEM+17)\r\n      NPTSTR = ELEM(IELEM+20)\r\n      NPTFOR = ELEM(IELEM+21)\r\n      NWDSTR = ELEM(IELEM+18)\r\n      NWDFOR = ELEM(IELEM+19)\r\n      GO TO 28\r\nC\r\n   27 NWDFOR = 9\r\n      NWDSTR = 0\r\n      NPTFOR = 0\r\n      NPTSTR = 0\r\n      NWDSA  = 142\r\nC\r\nC     CHOP OFF 483 WORDS FROM OPEN CORE SPACE FOR CIHEX ELEMENTS\r\nC\r\n      IF (ELTYPE.LT.65 .OR. ELTYPE.GT.67) GO TO 28\r\n      ICORE  = ICORE - 483\r\nC\r\n   28 CONTINUE\r\nC\r\nC     SETUP STRESS PRECISION CHECK.\r\nC\r\n      NCHK  = Z(ICC+146)\r\n      FNCHK = NCHK\r\nC\r\nC     SUBCASE ID\r\nC\r\n      ISUB  = Z(ICC+1)\r\nC\r\nC     DETERMINE LOAD/MODE, EIGENVALUE/FREQ/TIME HEADER\r\nC\r\n      FRTMEI(1) = 0.\r\n      FRTMEI(2) = 0.\r\n      IF (BRANCH.EQ.5 .OR. BRANCH.EQ.6)  GO TO 31\r\n      IF (BRANCH.EQ.2 .OR. BRANCH.EQ.8 .OR. BRANCH.EQ.9) GO TO 32\r\nC\r\nC     STATICS\r\nC\r\n      I   = ICC + ISLOAD\r\n      ILD = Z(I)\r\n      GO TO 35\r\nC\r\nC     FREQUENCY/TRANSIENT\r\nC\r\n   31 I   = ICC + IDLOAD\r\n      ILD = Z(I)\r\n      FRTMEI(1) = ZZ(JLIST)\r\n      GO TO 35\r\nC\r\nC     EIGENVALUES\r\nC\r\n   32 ILD       =  Z(JLIST  )\r\n      FRTMEI(1) = ZZ(JLIST+1)\r\n      FRTMEI(2) = ZZ(JLIST+2)\r\n      IF (BRANCH .NE. 2) GO TO 35\r\n      IF (ZZ(JLIST+1) .GT. 0.) FRTMEI(1) = SQRT(ZZ(JLIST+1))/6.2831852\r\n   35 CONTINUE\r\n      LSTRES = NWDSTR\r\n      LFORCE = NWDFOR\r\n      IDSTRS = .FALSE.\r\n      IDFORC = .FALSE.\r\n      IDLYST = .FALSE.\r\n      IDLYFR = .FALSE.\r\n      OK2WRT = .TRUE.\r\n      IF (KTYPE.NE.1 .AND. NPTSTR.EQ.0 .AND. NPTFOR.EQ.0) GO TO 40\r\n      IF (NWDSTR+NWDFOR .GT. 0) GO TO 70\r\nC\r\nC     NO STRESS OR FORCE WORDS POSSIBLE FOR THIS ELEMENT TYPE IF FALL\r\nC     HERE\r\nC\r\n   40 IF (NESTA) 60,50,60\r\nC\r\nC     FORWARD REC ON FILE TO NEXT ELEMENT TYPE\r\nC\r\n   50 CALL FWDREC (*980,ESTA)\r\n      GO TO 20\r\nC\r\nC     FIND END OF CURRENT ELEMEMT TYPE LIST IN CORE\r\nC\r\n   60 ESTAWD = ESTAWD + NWDSA\r\n      IF (Z(ESTAWD+1)) 60,940,60\r\nC\r\nC     OK SOME STRESS AND OR FORCE REQUESTS EXIST FOR THIS ELEMENT TYPE.\r\nC     PROCESS INDIVIDUAL ELEMENTS REQUESTED\r\nC\r\n   70 IF (NESTA .NE.     0) GO TO 90\r\n      IF (NWDSA .LE. ICORE) GO TO 80\r\n      CALL MESAGE (8,0,NAM(1))\r\nC\r\nC\r\nC     INSUFFICIENT CORE TO HOLD ESTA FOR 1 ELEMENT OF CURRENT ELEMENT\r\nC     TYPE TRY PROCESSING THE OTHER ELEMENT TYPES IN AVAILABLE CORE.\r\nC\r\n      GO TO 50\r\nC\r\n   80 CALL READ (*980,*910,ESTA,Z(IESTA),NWDSA,0,FLAG)\r\n      ESTAWD = IESTA - 1\r\nC\r\nC     DETERMINE IF THIS PARTICULAR ELEMENT OF THE CURRENT ELEMENT TYPE\r\nC     HAS A STRESS OR FORCE REQUEST IN THE CURRENT CASE CONTROL RECORD.\r\nC\r\n   90 ELEMID = Z(ESTAWD+1)\r\nC\r\nC     THE FOLLOWING CODE (THRU 93) IS FOR THE COMPLEX ANALYSIS OF IHEX\r\nC     ELEMENTS ONLY (ELEM. TYPES 65,66,67)\r\nC\r\n      IF (KTYPE.NE.2 .OR. ELTYPE.LT.65 .OR. ELTYPE.GT.67) GO TO 93\r\n      IF (IPART.NE.2 .OR. ISTRPT.NE.(NIP3+NGP1+1)) GO TO 91\r\nC\r\nC     DONE FOR THIS IHEX ELEMENT, RESET CHECKING VARIABLES\r\nC\r\n      IPART  = 0\r\n      IELOLD = 0\r\n      IELCHK = 0\r\n      GO TO 93\r\nC\r\nC     FIRST INTEGRATION POINT FOR IMAGINARY RETULS FOR THIS IHEX ELEMENT\r\nC     SAVE ELEMENT ID AND CURRENT ESTAWD\r\nC\r\n   91 IF (IPART.NE.1 .OR. ISTRPT.NE.1) GO TO 92\r\n      IELOLD = ELEMID\r\n      OLDAWD = ESTAWD - NWDSA\r\n      GO TO 93\r\nC\r\nC     FIRST INTEGRATION POINT FOR REAL RESULTS FOR THIS IHEX ELEMENT,\r\nC     SAVE ELEMENT ID TO CHECK WITH EARLIER ELEMENT ID SAVED ABOVE\r\nC\r\n   92 IF (IPART.EQ.2 .AND. ISTRPT.EQ.1) IELCHK = ELEMID\r\nC\r\nC     END OF SPECIAL TREATMENT FOR IHEX ELEMENT\r\nC\r\n   93 IDELEM = ELEMID\r\nC\r\nC     DECODE ELEMID TO FIND IT IN SET\r\nC\r\n      IF (.NOT. AXIC) GO TO 95\r\n      NELHAR = ELEMID - (ELEMID/1000)*1000\r\n      ELEMID = ELEMID/1000\r\n   95 JSTRS  = 0\r\n      JFORC  = 0\r\n      I      = ISETS\r\n      IF (NWDSTR .EQ. 0) GO TO 140\r\n      IF (STRESX) 110,140,100\r\n  100 IF (I .EQ. NSETS) GO TO 120\r\n      IF (Z(I+1) .GT.0) GO TO 120\r\n      I = I + 1\r\n      IF (ELEMID.LT.Z(I-1) .OR. ELEMID.GT.-Z(I)) GO TO 130\r\n  110 JSTRS = 1\r\n      GO TO 140\r\n  120 IF (ELEMID .EQ. Z(I)) GO TO 110\r\n  130 I = I + 1\r\n      IF (I .LE. NSETS) GO TO 100\r\n  140 I = ISETF\r\n      IF (NWDFOR .EQ. 0) GO TO 190\r\n      IF (FORCEX) 160,190,150\r\n  150 IF (I .EQ. NSETF) GO TO 170\r\n      IF (Z(I+1) .GT.0) GO TO 170\r\n      I = I + 1\r\n      IF (ELEMID.LT.Z(I-1) .OR. ELEMID.GT.-Z(I)) GO TO 180\r\n  160 JFORC = 1\r\n      GO TO 190\r\n  170 IF (ELEMID .EQ. Z(I)) GO TO 160\r\n  180 I = I + 1\r\n      IF (I .LE. NSETF) GO TO 150\r\n  190 JANY= JSTRS + JFORC\r\n      IF (JANY .EQ. 0) IF (NESTA) 890,80,890\r\nC\r\nC     OK FALL HERE AND A STRESS OR FORCE REQUEST EXISTS\r\nC     IF THERMAL LOADING, GET THE ELEMENT THERMAL DATA.\r\nC     IF ELEMENT DEFORMATIONS, LOOK UP THE DEFORMATION\r\nC\r\nC\r\nC     ELEMENT TEMPERATURE\r\nC\r\n      IF (TLOADS .EQ. 0) GO TO 330\r\n      N = ELEM(IELEM+10)\r\nC\r\nC     IF NEW ELEMENTS ARE ADDED THAT HAVE SPECIAL BENDING THERMAL DATA\r\nC     POSSIBLE THEN THE FOLLOWING TEST SHOULD BE EXPANDED TO INCLUDE\r\nC     THEIR ELEMENT TYPE SO AS TO RECEIVE ZEROS AND ONLY THE AVERAGE\r\nC     TEMPERATURE RATHER THAN SIMULATED GRID POINT TEMPERATURES IN THE\r\nC     ABSENCE OF ANY USER SPECIFIED DATA.\r\nC\r\n      IF (IELTYP.EQ.34 .OR. IELTYP.EQ. 6 .OR. IELTYP.EQ.7  .OR.\r\n     1    IELTYP.EQ. 8 .OR. IELTYP.EQ.15 .OR. IELTYP.EQ.17 .OR.\r\n     2    IELTYP.EQ.18 .OR. IELTYP.EQ.19) N = 0\r\n      IF (IELTYP.EQ.74 .OR. IELTYP.EQ.75) N = 0\r\n      IF (IELTYP.EQ.64 .OR. IELTYP.EQ.83) N = 0\r\nC\r\nC\r\n      CALL SDRETD (IDELEM,TGRID,N)\r\nC\r\nC     SET THE AVERAGE ELEMENT TEMPERATURE CELL.\r\nC\r\n      TEMP = TGRID(1)\r\n      GO TO 340\r\nC\r\nC     NORMALLY TGRID(1) WILL CONTAIN THE AVERAGE ELEMENT TEMPERATUE\r\nC     AND IF GRID POINT TEMPERATURES ARE RETURNED THEY WILL BEGIN\r\nC     IN TGRID(2).\r\nC\r\n  330 JTEMP = -1\r\nC\r\nC     ELEMENT DEFORMATION\r\nC\r\n  340 DEFORM = 0.0\r\n      IF (ELDEF .EQ. 0) GO TO 360\r\n      DO 350 I = IDEF,NDEF,2\r\n      IF (Z(I) .EQ. ELEMID) GO TO 355\r\n  350 CONTINUE\r\n      GO TO 360\r\n  355 DEFORM = ZZ(I+1)\r\nC\r\nC     WRITE ID FOR STRESSES IF NOT YET WRITTEN FOR THIS ELEMENT TYPE.\r\nC\r\n  360 IF (STRESS.EQ.0 .OR.  NWDSTR.EQ.0 .OR. JSTRS.EQ.0) GO TO 365\r\n      IF (COMPS.EQ.-1 .AND. NSTROP.GT.1) GO TO 362\r\n      IF (IDSTRS) GO TO 365\r\n      NLOGIC = 1\r\n      OFILE  = OES1\r\n      DEVICE = SDEST\r\n      ISEQ   = 4\r\n      IFLTYP = DTYPE(ISEQ)\r\n      IRECX  = ICC + ISTR\r\n      NWDS   = NWDSTR\r\n      JCMPLX = NPTSTR\r\n      ASSIGN 365 TO IRETRN\r\n      GO TO 630\r\nC\r\n  362 IF (IDLYST) GO TO 365\r\n      NLOGIC = 3\r\n      OFILE  = OES1L\r\n      DEVICE = SDEST\r\n      IFLTYP = 22\r\n      IRECX  = ICC + ISTR\r\n      NWDS   = 10\r\n      JCMPLX = 0\r\n      OK2WRT = .FALSE.\r\n      ASSIGN 365 TO IRETRN\r\n      GO TO 630\r\nC\r\nC     WRITE ID FOR FORCES IF NOT YET WRITTEN FOR THIS ELEMENT TYPE.\r\nC\r\n  365 IF (FORCE.EQ. 0 .OR.  NWDFOR.EQ.0 .OR.  JFORC .EQ.0) GO TO 375\r\n      IF (COMPS.EQ.-1 .AND. NSTROP.GT.1 .AND. STRESS.NE.0) GO TO 367\r\n      IF (IDFORC) GO TO 375\r\n      NLOGIC = 2\r\n      OFILE  = OEF1\r\n      DEVICE = FDEST\r\n      ISEQ   = 5\r\n      IFLTYP = DTYPE(ISEQ)\r\n      IRECX  = ICC + IELF\r\n      NWDS   = NWDFOR\r\n      JCMPLX = NPTFOR\r\n      ASSIGN 375 TO IRETRN\r\n      GO TO 630\r\nC\r\n  367 IF (IDLYFR) GO TO 375\r\n      NLOGIC = 4\r\n      OFILE  = OEF1L\r\n      DEVICE = FDEST\r\n      IFLTYP = 23\r\n      IRECX  = ICC + IELF\r\n      NWDS   = 9\r\n      JCMPLX = 0\r\n      OK2WRT = .FALSE.\r\n      ASSIGN 375 TO IRETRN\r\n      GO TO 630\r\nC\r\nC     MOVE ESTA DATA INTO /SDR2X7/\r\nC\r\n  375 NSESTA = ESTAWD\r\n      IF (IELCHK.EQ.0 .OR. IPART.LT.2 .OR. IELCHK.NE.IELOLD) GO TO 377\r\n      IPART  = 1\r\n      GO TO 380\r\n  377 IPART  = 0\r\n  380 IPART  = IPART + 1\r\n      DO 390 I = 1,NWDSA\r\n      ESTAWD = ESTAWD + 1\r\n  390 ELESTA(I) = Z(ESTAWD)\r\n      ACSTIC = .FALSE.\r\nC\r\nC     CALL APPROPRIATE ELEMENT ROUTINE FOR STRESS AND FORCE COMPUTATIONS\r\nC\r\n      IF (HEAT) GO TO 1680\r\n      LOCAL = JLTYPE - 100\r\n      IF (LOCAL) 394,394,395\r\nC\r\nC     PAIRED -GO TO- ENTRIES PER ELEMENT SINGLE/DOUBLE PRECISION\r\nC\r\nC             1 CROD      2 C.....    3 CTUBE     4 CSHEAR    5 CTWIST\r\n  394 GO TO( 400,  400,  610,  610,  400,  400,  420,  420,  430,  430\r\nC\r\nC             6 CTRIA1    7 CTRBSC    8 CTRPLT    9 CTRMEM   10 CONROD\r\n     1,      450,  450,  460,  460,  470,  470,  480,  480,  400,  400\r\nC\r\nC            11 ELAS1    12 ELAS2    13 ELAS3    14 ELAS4    15 CQDPLT\r\n     2,      490,  490,  490,  490,  490,  490,  490,  490,  500,  500\r\nC\r\nC            16 CQDMEM   17 CTRIA2   18 CQUAD2   19 CQUAD1   20 CDAMP1\r\n     3,      520,  520,  450,  450,  540,  540,  540,  540,  610,  610\r\nC\r\nC            21 CDAMP2   22 CDAMP3   23 CDAMP4   24 CVISC    25 CMASS1\r\n     4,      610,  610,  610,  610,  610,  610,  610,  610,  610,  610\r\nC\r\nC            26 CMASS2   27 CMASS3   28 CMASS4   29 CONM1    30 CONM2\r\n     5,      610,  610,  610,  610,  610,  610,  610,  610,  610,  610\r\nC\r\nC            31 PLOTEL   32 C.....   33 C.....   34 CBAR     35 CCONE\r\n     6,      610,  610,  610,  610,  610,  610,  560,  560,  570,  570\r\nC\r\nC            36 CTRIARG  37 CTRAPRG  38 CTORDRG  39 CTETRA   40 CWEDGE\r\n     7,      580,  580,  590,  590,  600,  600,  601,  601,  602,  602\r\nC\r\nC            41 CHEXA1   42 CHEXA2   43 CFLUID2  44 CFLUID3  45 CFLUID4\r\n     8,      603,  603,  604,  604,  610,  610,  610,  610,  610,  610\r\nC\r\nC            46 CFLMASS  47 CAXIF2   48 CAXIF3   49 CAXIF4   50 CSLOT3\r\n     9,      610,  610,  605,  605,  606,  606,  607,  607,  608,  608\r\nC\r\n     *), JLTYPE\r\nC\r\nC            51 CSLOT4   52 CHBDY    53 CDUM1    54 CDUM2    55 CDUM3\r\n  395 GO TO( 609,  609,  610,  610, 1614, 1614, 1615, 1615, 1616, 1616\r\nC\r\nC            56 CDUM4    57 CDUM5    58 CDUM6    59 CDUM7    60 CDUM8\r\n     B,     1617, 1617, 1618, 1618, 1619, 1619, 1620, 1620, 1621, 1621\r\nC\r\nC            61 CDUM9    62 CQDMEM1  63 CQDMEM2  64 CQUAD4   65 CIHEX1\r\n     C,     1622, 1622, 1623, 1623, 1624, 1624, 1625, 1625, 1626, 1626\r\nC\r\nC            66 CIHEX2   67 CIHEX3   68 CQUADTS  69 CTRIATS  70 CTRIAAX\r\n     D,     1626, 1626, 1626, 1626, 1632, 1632, 1633, 1633, 1634, 1634\r\nC\r\nC            71 CTRAPAX  72 CAERO1   73 CTRIM6   74 CTRPLT1  75 CTRSHL\r\n     E,     1635, 1635,  610,  610, 1640, 1640, 1645, 1645, 1650, 1650\r\nC\r\nC            76 CFHEX1   77 CFHEX2   78 CFTETRA  79 CFWEDGE  80 CIS2D8\r\n     F,      610,  610,  610,  610,  610,  610,  610,  610, 1660, 1660\r\nC\r\nC            81 CELBOW   82 CFTUBE   83 CTRIA3\r\n     G,      1670, 1670, 610,  610, 1630, 1630\r\nC\r\n     *), LOCAL\r\nC\r\n  400 CALL SROD2\r\n      GO TO 620\r\n  420 K = 4\r\n      GO TO 440\r\n  430 K = 5\r\n  440 CALL SPANL2 (K)\r\n      GO TO 620\r\n  450 K = 3\r\n      GO TO 550\r\n  460 K = 0\r\n      GO TO 510\r\n  470 K = 3\r\n      GO TO 510\r\n  480 K = 1\r\n      GO TO 530\r\n  490 CALL SELAS2\r\n      GO TO 620\r\n  500 K = 4\r\n  510 CALL SBSPL2 (K,TGRID(1))\r\n      GO TO 620\r\n  520 K = 2\r\n  530 CALL STQME2 (K)\r\n      GO TO 620\r\n  540 K = 4\r\n  550 CALL STRQD2 (K,TGRID(1))\r\n      GO TO 620\r\n  560 CALL SBAR2 (TGRID(1))\r\n      GO TO 620\r\n  570 AGAIN = .FALSE.\r\n      CALL SCONE2 (SORC)\r\n      GO TO 620\r\n  580 CALL STRIR2 (TGRID(2))\r\n      GO TO 620\r\n  590 CALL STRAP2 (TGRID(2))\r\n      GO TO 620\r\n  600 CALL STORD2 (TGRID(2))\r\n      GO TO 620\r\n  601 CALL SSOLD2 (1,TGRID(2))\r\n      GO TO 620\r\n  602 CALL SSOLD2 (2,TGRID(2))\r\n      GO TO 620\r\n  603 CALL SSOLD2 (3,TGRID(2))\r\n      GO TO 620\r\n  604 CALL SSOLD2 (4,TGRID(2))\r\n      GO TO 620\r\n  605 KK = 0\r\n      GO TO 611\r\n  606 KK = 1\r\n      GO TO 611\r\n  607 KK = 2\r\n  611 CALL SAXIF2 (KK,IPART,BRANCH,Z(JLIST))\r\n      ACSTIC = .TRUE.\r\n      GO TO 620\r\n  608 KK = 0\r\n      GO TO 612\r\n  609 KK = 1\r\n  612 CALL SSLOT2 (KK,IPART,BRANCH,Z(JLIST))\r\n      ACSTIC = .TRUE.\r\n      GO TO 620\r\n 1614 CALL SDUM12\r\n      GO TO 620\r\n 1615 CALL SDUM22\r\n      GO TO 620\r\n 1616 CALL SDUM32\r\n      GO TO 620\r\n 1617 CALL SDUM42\r\n      GO TO 620\r\n 1618 CALL SDUM52\r\n      GO TO  620\r\n 1619 CALL SDUM62\r\n      GO TO 620\r\n 1620 CALL SDUM72\r\n      GO TO 620\r\n 1621 CALL SDUM82\r\n      GO TO 620\r\n 1622 CALL SDUM92\r\n      GO TO 620\r\n 1623 CALL SQDM12\r\n      GO TO 620\r\n 1624 CALL SQDM22\r\n      GO TO 620\r\n 1625 CALL SQUD42\r\n      GO TO 620\r\n 1626 CALL SIHEX2 (ELTYPE-64,TGRID(1),NIP,ISTRPT,ISTORE)\r\n      NGP  = 12*(ELTYPE-64) - 4\r\n      NGP1 = NGP + 1\r\n      IF (ELTYPE .EQ. 67) NGP1 = 21\r\n      NIP3 = NIP**3\r\n      IF (ISTRPT .LT. NIP3+1) GO TO 905\r\n      IF (ISTRPT .EQ. NIP3+1) GO TO 1626\r\n      IF (ISTRPT .EQ. NIP3+1+NGP1) ISTORE = 0\r\n      IF (KTYPE .EQ. 1) GO TO 620\r\n      NGPX = ISTRPT - (NIP3+1)\r\n      NW   = 22\r\n      IF (ELTYPE .EQ. 67) NW = 23\r\n      IST = NW*(NGPX-1)\r\n      IF (IPART .GE. KTYPE) GO TO 1628\r\nC\r\nC     STORE IMARINARY PARTS FOR THIS GRID (IHEX ELEMENTS)\r\nC\r\n      IJK = IST + ICORE\r\n      DO 1627 J = 1,NW\r\n 1627 Z(J+IJK) = BUFA(J)\r\n      IF (ISTORE .NE. 0) GO TO 1626\r\n      IVEC   = MIDVEC\r\n      ESTAWD = OLDAWD\r\n      GO TO 380\r\nC\r\nC     RETRIEVE IMAGINARY PARTS FOR THIS GRID (IHEX ELEMENTS)\r\nC\r\n 1628 IJK = IST + ICORE\r\n      DO 1629 J = 1,NW\r\n 1629 ISAVES(J) = Z(J+IJK)\r\n      GO TO 620\r\nC\r\n 1630 CALL STRI32\r\n      GO TO 620\r\n 1632 CONTINUE\r\n      GO TO 620\r\n 1633 CONTINUE\r\n      GO TO 620\r\n 1634 AGAIN = .FALSE.\r\n      CALL STRAX2 (SORC,TGRID(2))\r\n      GO TO 620\r\n 1635 AGAIN = .FALSE.\r\n      CALL STPAX2 (SORC,TGRID(2))\r\n      GO TO 620\r\n 1640 CALL STRM62 (TGRID(1))\r\n      GO TO 620\r\n 1645 CALL STRP12 (TGRID(1))\r\n      GO TO 620\r\n 1650 CALL  STRSL2 (TGRID(1))\r\n      GO TO 620\r\n 1660 CALL SS2D82 (IEQEX,NEQEX,TGRID(1))\r\n      GO TO 620\r\n 1670 CALL SELBO2 (TGRID(1))\r\n      GO TO 620\r\nC\r\nC     PHASE TWO HEAT ONLY (ALL ELEMENTS)\r\nC\r\n 1680 CALL SDHTF2 (IEQEX,NEQEX)\r\n      GO TO 620\r\n  610 GO TO 900\r\nC\r\nC     CALL ELEMENT TWO TIMES FOR COMPLEX VECTOR.  IMAGINARY FIRST, REAL\r\nC     SECOND.  CALL ELEMENT ROUTINE TWICE IF AXIC PROBLEM\r\nC     ONCE FOR EACH OF THE 2 VECTORS IN CORE\r\nC\r\n  620 IF (AXIC .AND. MIDVEC.NE.0 .AND. IPART.EQ.1) GO TO 625\r\n      IF (IPART .GE. KTYPE) GO TO 615\r\n  625 IVEC = MIDVEC\r\nC\r\nC     FOR CONICAL SHELL ONLY\r\nC\r\n      IF (AXIC .AND. KTYPE.NE.1) GO TO 626\r\n      ITEMP = 1\r\n      IF (SORC .EQ. 1) ITEMP = 2\r\n      SORC  = ITEMP\r\n  626 CONTINUE\r\n      ESTAWD = NSESTA\r\n      IF (AXIC .AND. KTYPE.EQ.1) GO TO 380\r\nC\r\nC     SAVE IMAGINARY OUTPUTS  (NOT MORE THAN 75 STRESS OR FORCE WORDS)\r\nC\r\n      DO 622 I = 1,75\r\n      ISAVES(I) = BUFA(I)\r\n  622 ISAVEF(I) = BUFB(I)\r\n      GO TO 380\r\nC\r\nC     SPLIT OUTPUT FROM SECOND CALL FOR ACOUSTIC ELEMENTS\r\nC     AXIF2, AXIF3, AXIF4, SLOT3, OR SLOT4.\r\nC\r\n  615 IF (.NOT. ACSTIC) GO TO 617\r\n      IF (IPART .LT. 2) GO TO 617\r\n      DO 613 I = 1,12\r\n      ISAVES(I) = BUFA(I   )\r\n      BUFA(I)   = BUFA(I+12)\r\n  613 CONTINUE\r\nC\r\nC\r\nC     OUTPUT ONLY FIRST N HARMONICS REQUESTED\r\nC\r\n  617 IF (.NOT. AXIC) GO TO 616\r\n      IF (NELHAR.LT.0 .OR. NELHAR.GT.OHARMS) GO TO 880\r\n      IF (IPART.EQ.2 .AND. KTYPE.EQ.1) GO TO 880\r\nC\r\nC     OUTPUT STRESS RESULTS ON OES1 (IF REQUESTED)\r\nC\r\n  616 IF (JSTRS.EQ.0 .OR. NWDSTR.EQ.0) GO TO 860\r\n      IF (KTYPE .EQ. 1) GO TO 850\r\nC\r\nC     COMBINE COMPLEX OUTPUT DESIRED PER FORMAT IN COMPLX ARRAY.\r\nC          REAL PARTS ARE IN BUFA   BUFB\r\nC          IMAG PARTS ARE IN ISAVES ISAVEF\r\nC\r\nC\r\nC     COMPLEX STRESSES\r\nC\r\n      IOUT = 0\r\n      I    = NPTSTR\r\n  651 NPT  = COMPLX(I)\r\n      IF (NPT) 652,653,654\r\n  652 NPT  = -NPT\r\n      IF (SPHASE .NE. 3) GO TO 654\r\nC\r\nC     COMPUTE MAGNITUDE/PHASE\r\nC\r\n      CALL MAGPHA (BUFA(NPT),ISAVES(NPT))\r\n  655 IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFA(NPT)\r\n      I    = I + 1\r\n      GO TO 651\r\n  654 IF (NPT .LE. LSTRES) GO TO 655\r\n      NPT  = NPT - LSTRES\r\n      IOUT = IOUT + 1\r\n      ELWORK(IOUT) = ISAVES(NPT)\r\n      I    = I + 1\r\n      GO TO 651\r\nC\r\nC     TRANSFER RESULTS TO BUFA\r\nC\r\n  653 DO 659 I = 1,IOUT\r\n  659 BUFA(I) = ELWORK(I)\r\n      NWDSTR  = IOUT\r\nC\r\nC     WRITE STRESSES\r\nC\r\nC\r\nC     DETERMINE DESTINATION FOR STRESS ENTRY\r\nC\r\n  850 IF (STRESS .EQ. 0) GO TO 860\r\n      IF (.NOT.  OK2WRT) GO TO 860\r\n      ID = BUFA(1)\r\n      BUFA(1) = 10*ID + SDEST\r\n      IF (XSETNS) 858,851,852\r\n  851 BUFA(1) = 10*ID\r\n      GO TO 858\r\n  852 IX = IXSETS\r\n  853 IF (IX .EQ. NXSETS) GO TO 854\r\n      IF (Z(IX+1) .GT. 0) GO TO 854\r\n      IF (ID.GE.Z(IX) .AND. ID.LE.(-Z(IX+1))) GO TO 858\r\n      IX = IX + 2\r\n      GO TO 855\r\n  854 IF (ID .EQ. Z(IX)) GO TO 858\r\n      IX = IX + 1\r\n  855 IF (IX .LE. NXSETS) GO TO 853\r\n      GO TO 851\r\nC\r\nC     NOW WRITE STRESS ENTRY\r\nC\r\n  858 CALL WRITE (OES1,BUFA(1),NWDSTR,0)\r\n      BUFA(1) = ID\r\nC\r\nC     OUTPUT FORCE RESULTS ON OEF1 (IF REQUESTED)\r\nC\r\n  860 IF (JFORC .EQ. 0  .OR. NWDFOR .EQ. 0) GO TO 880\r\n      IF (KTYPE .EQ. 1) GO TO 870\r\nC\r\nC     COMPLEX FORCES\r\nC\r\n      IOUT = 0\r\n      I    = NPTFOR\r\n  951 NPT  = COMPLX(I)\r\n      IF (NPT) 952,953,954\r\n  952 NPT  = -NPT\r\n      IF (FPHASE .NE. 3) GO TO 954\r\nC\r\nC     COMPUTE MAGNITUDE/PHASE FOR FORCES\r\nC\r\n      CALL MAGPHA (BUFB(NPT),ISAVEF(NPT))\r\n  955 IOUT = IOUT + 1\r\n      ELWORK(IOUT) = BUFB(NPT)\r\n      I    = I + 1\r\n      GO TO 951\r\n  954 IF (NPT .LE. LFORCE) GO TO 955\r\n      NPT  = NPT - LFORCE\r\n      IOUT = IOUT + 1\r\n      ELWORK(IOUT) = ISAVEF(NPT)\r\n      I    = I + 1\r\n      GO TO 951\r\nC\r\nC     TRANSFER RESULTS TO BUFB\r\nC\r\n  953 DO 959 I = 1,IOUT\r\n  959 BUFB(I) = ELWORK(I)\r\n      NWDFOR  = IOUT\r\nC\r\nC     WRITE FORCES\r\nC\r\nC\r\nC     DETERMINE DESTINATION FOR FORCE ENTRY\r\nC\r\n  870 IF (FORCE .EQ. 0) GO TO 880\r\n      IF (.NOT. OK2WRT) GO TO 880\r\n      ID = BUFB(1)\r\n      BUFB(1) = 10*ID + FDEST\r\n      IF (XSETNF) 878,871,872\r\n  871 BUFB(1) = 10*ID\r\n      GO TO 878\r\n  872 IX = IXSETF\r\n  873 IF (IX .EQ. NXSETF) GO TO 874\r\n      IF (Z(IX+1) .GT. 0) GO TO 874\r\n      IF (ID.GE.Z(IX) .AND. ID.LE.(-Z(IX+1))) GO TO 878\r\n      IX = IX + 2\r\n      GO TO 875\r\n  874 IF (ID .EQ. Z(IX)) GO TO 878\r\n      IX = IX + 1\r\n  875 IF (IX .LE. NXSETF) GO TO 873\r\n      GO TO 871\r\nC\r\nC     NOW WRITE FORCE ENTRY\r\nC\r\n  878 CALL WRITE (OEF1,BUFB(1),NWDFOR,0)\r\n      BUFB(1) = ID\r\n  880 GO TO 900\r\n  890 ESTAWD = ESTAWD + NWDSA\r\n  900 IF (AGAIN) GO TO 903\r\n      IF (ISTORE .EQ. 1) GO TO 1626\r\n      IF (KTYPE.NE.1 .OR. (AXIC .AND. MIDVEC.NE.0)) IVEC = ISAVE\r\n      IF (AXIC .AND. MIDVEC.NE.0) SORC = ISVSRC\r\n      IF (.NOT. AXIC) GO TO 905\r\n      IF (NELHAR .NE. NHARMS) GO TO 905\r\n  903 IF (ELTYPE .EQ. 35) CALL SCONE3 (AGAIN)\r\n      IF (ELTYPE .EQ. 70) CALL STRAX3 (AGAIN)\r\n      IF (ELTYPE .EQ. 71) CALL STPAX3 (AGAIN)\r\n      NELHAR = -1\r\n      GO TO 616\r\n  905 IF (NESTA .EQ. 0) GO TO 80\r\n      IF (Z(ESTAWD+1) .NE. 0) GO TO 90\r\nC\r\nC     END OF ESTA FOR CURRENT ELEMENT TYPE\r\nC\r\n  910 IF (.NOT. IDSTRS) GO TO 915\r\n      CALL WRITE (OES1,0,0,1)\r\n  915 IF (.NOT. IDFORC) GO TO 920\r\n      CALL WRITE (OEF1,0,0,1)\r\n  920 IF (.NOT. IDLYST) GO TO 925\r\n      CALL WRITE (OES1L,0,0,1)\r\n  925 IF (.NOT. IDLYFR) GO TO 930\r\n      CALL WRITE (OEF1L,0,0,1)\r\n  930 IF (NESTA .EQ. 0) GO TO 20\r\n  940 ESTAWD = ESTAWD + 2\r\n      IF (ESTAWD .GE. NESTA) GO TO 950\r\n      ELTYPE = Z(ESTAWD)\r\n      GO TO 25\r\nC\r\nC     END OF ESTA FILE HIT\r\nC\r\n  950 CONTINUE\r\n  960 CONTINUE\r\n      IVEC  = ISAVE\r\n      ICORE = JCORE\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE FOR WRITING ID RECORDS TO OUTPUT FILES\r\nC\r\n  630 DO 635 I = 1,50\r\n  635 BUF(I) = 0\r\nC\r\nC     IF THE ID IS BEING WRITTEN TO A FILE WITH COMPLEX DATA,\r\nC     CHANGE THE NUMBER OF WORDS TO REFLECT THE ACTUAL COUNT\r\nC     OF WORDS BEING PUT TOGETHER USING THE STRING OF NUMBERS\r\nC     IN THE 'COMPLX' ARRAY.  (SEE FORTRAN LABELS 651 THRU 654\r\nC     AND 951 THRU 954)\r\nC\r\n      IF (KTYPE  .EQ. 1) GO TO 645\r\n      IF (JCMPLX .EQ. 0) RETURN 1\r\n      JOUT = 0\r\n      I    = JCMPLX\r\n  638 NCMPLX = COMPLX(I)\r\n      IF (NCMPLX) 640,642,640\r\n  640 JOUT = JOUT + 1\r\n      I    = I + 1\r\n      GO TO 638\r\n  642 NWDS = JOUT\r\nC\r\nC     CHECK FOR VON MISES STRESS REQUEST.  SET WORD 11 IF\r\nC     REQUEST IS FOUND.\r\nC\r\n  645 IF (ANDF(NSTROP,1) .NE. 0) BUF(11) = 1\r\nC\r\n      GO TO (650,660,650,650,670,790,650,660,660,650), BRANCH\r\nC\r\nC     NORMAL STATICS OR DIFF.STIFF. PHASE 0 OR 1 OR BUCKLING PHASE 0.\r\nC\r\n  650 BUF(2) = IFLTYP\r\n      IX     = ICC + ISLOAD\r\n      BUF(5) = Z(ICC+1)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      BUF(8) = Z(IX)\r\n      IF (BRANCH .NE. 10) GO TO 840\r\n      IX     = ICC + ITTL + 84\r\n      Z(IX)  = PLATIT(1)\r\n      Z(IX+1)= PLATIT(2)\r\n      Z(IX+2)= PLATIT(3)\r\n      CALL INT2AL (UGVVEC-1,Z(IX+3),PLATIT(4))\r\n      GO TO 840\r\nC\r\nC     EIGENVALUES OR BUCKLING PHASE 1.\r\nC\r\n  660 BUF(2) = IFLTYP + KTYPEX\r\n      BUF(5) = Z(JLIST)\r\n      BUF(6) = Z(JLIST+1)\r\n      BUF(7) = Z(JLIST+2)\r\n      BUF(8) = 0\r\n      GO TO 840\r\nC\r\nC     FREQUENCY RESPONSE.\r\nC\r\n  670 IX     = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      BUF(2) = IFLTYP + KTYPEX\r\n  671 CONTINUE\r\nC\r\nC     FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF\r\nC\r\n      IF (KFRQ .NE. 0) GO TO 740\r\nC\r\nC     USER REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR\r\nC     OUTPUT EACH ACTUAL FREQ WHICH IS CLOSEST TO USER REQUEST.\r\nC\r\n      KFRQ   = 1\r\n      IX     = ICC + IFROUT\r\n      FSETNO = Z(IX)\r\n      IF (FSETNO .LE. 0) GO TO 690\r\n      IX     = ICC + ILSYM\r\n      ISETNF = IX+Z(IX) + 1\r\n  680 ISETFR = ISETNF + 2\r\n      NSETFR = Z(ISETNF+1) + ISETFR - 1\r\n      IF (Z(ISETNF) .EQ. FSETNO) GO TO 710\r\n      ISETNF = NSETFR + 1\r\n      IF (ISETNF .LT. IVEC) GO TO 680\r\n      FSETNO = -1\r\n  690 DO 700 J = ILIST,NLIST,2\r\n  700 Z(J+1) = 1\r\n      GO TO 740\r\n  710 DO 730 I = ISETFR,NSETFR\r\n      K      = 0\r\n      DIFF   = 1.E25\r\n      BUFR(1)= ZZ(I)\r\n      DO 720 J = ILIST,NLIST,2\r\n      IF (Z(J+1) .NE. 0) GO TO 720\r\n      DIFF1  = ABS(ZZ(J) - BUFR(1))\r\n      IF (DIFF1 .GE. DIFF) GO TO 720\r\n      DIFF = DIFF1\r\n      K    = J\r\n  720 CONTINUE\r\n      IF (K .NE. 0) Z(K+1) = 1\r\n  730 CONTINUE\r\nC\r\nC     DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT.\r\nC\r\n  740 IF (Z(JLIST+1) .EQ. 0) GO TO 960\r\n      BUF(5) = Z(JLIST)\r\n      GO TO 840\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n  790 BUF(5) = Z(JLIST)\r\n      BUF(2) = IFLTYP\r\n      IX     = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      GO TO 671\r\nC\r\nC     WRITE ID RECORD ON OUTPUT FILE.\r\nC     (FOR MORE DETAIL, SEE OES1 FILE IN PROGRAMMER MANUAL P.2.3-130)\r\nC\r\n  840 BUF(1) = DEVICE + 10*BRANCH\r\n      BUF(3) = ELTYPE\r\nC\r\nC     CHECK FOR TRIA1, TRIA2, TRIA3, QUAD1, QUAD2, QUAD4  ELEMENTS\r\nC\r\n      IF (ELTYPE.NE. 6 .AND. ELTYPE.NE.17 .AND. ELTYPE.NE.18 .AND.\r\n     1    ELTYPE.NE.19 .AND. ELTYPE.NE.64 .AND. ELTYPE.NE.83)\r\n     2    GO TO 845\r\nC\r\nC     CHECK FOR STRAIN OPTION\r\nC\r\n      IF (BUF(2).EQ.5 .AND. STRAIN) BUF(2) = 21\r\n  845 BUF(4) = Z(ICC+1)\r\n      IF (DDRMM) BUF(4) = 9999\r\n      BUF(9) = IABS(Z(IRECX+2))\r\n      IF (BUF(9).EQ.1 .AND. KTYPE.EQ.2) BUF(9) = 2\r\n      BUF(10) = NWDS\r\n      CALL WRITE (OFILE,BUF(1),50,0)\r\n      IX = ICC + ITTL\r\n      CALL WRITE (OFILE,Z(IX),96,1)\r\n      ILOGIC(NLOGIC) = .TRUE.\r\n      GO TO IRETRN, (365,375)\r\nC\r\nC     ERRORS\r\nC\r\n  980 N = 2\r\n      GO TO 1000\r\n  990 N = 3\r\n      GO TO 1000\r\n 1000 CALL MESAGE (N,FILE,NAM)\r\n      RETURN 1\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sdr3.f",
    "content": "      SUBROUTINE SDR3\r\n      INTEGER OFPFIL(6)\r\nC\r\n      COMMON /SYSTEM/ SYSBUF, L\r\nC*****\r\nC  MAIN DRIVER FOR THE SDR3 MODULE...\r\nC*****\r\n      CALL SDR3A( OFPFIL(1) )\r\nC*****\r\nC  IF ANY OF THE SIX DATA-BLOCKS DID NOT COMPLETE SORT2 CALL OFPDMP\r\nC*****\r\n      DO 10 I = 1,6\r\n      IF( OFPFIL(I) .EQ. 0 ) GO TO 10\r\n      WRITE(L,15)I,OFPFIL(I)\r\n   15 FORMAT(1H1,20(131(1H*)/),95H0DUE TO ERRORS MENTIONED PREVIOUSLY, S\r\n     1DR3 IS CALLING THE -OFP- TO OUTPUT SDR3-INPUT-DATA-BLOCK-,I2,17H I\r\n     2N SORT-I FORMAT/ 28H THE SDR3 TRACEBACK NUMBER =,I3//20(131(1H*)/\r\n     3))\r\n      IFILE = I + 100\r\n      CALL OFPDMP( IFILE )\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdr3a.f",
    "content": "      SUBROUTINE SDR3A (OFPFIL)\r\nC\r\nC     SORT-2  MODULE\r\nC\r\n      INTEGER         INAME(2),TRAIL(7),ID(146),IDTEMP(146),VECTOR(50),\r\n     1                SCRTCH(8),OFILE(6),IFILE(6),BUFF(10),OFPFIL(6),Z,\r\n     2                WORDS,EOF,CORE,BUFF9,BUFF10,GROUP,OUFILE,FILE,RECS\r\n     3,               RECPT,EOR,OUTRWD,RWD,FULL,OVRLAP,V IN BK,W PER BK,\r\n     4                V PER BK,TOTAL1,TOTAL2,AHEAD,ENTRYS(85)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUFSZ, L\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (NWDS,ID(10))\r\nC\r\nC     IF THE NUMBER OF SCRATCH FILES CHANGE, ONE SHOULD SET NSCRAT EQUAL\r\nC     TO THE NEW NUMBER AND INCREASE THE DATA BELOW\r\nC\r\nC     NFILES BELOW EQUALS THE NUMBER OF INPUT FILES AND ALSO EQUALS\r\nC     THE NUMBER OF OUTPUT FILES.  IF NFILES CHANGES, CHANGE THE DATA\r\nC     BELOW TO CONFORM...\r\nC     ALSO CHANGE DIMENSIONS OF BUFF,IFILE,OFILE,SCRTCH, AS REQUIRED...\r\nC\r\n      DATA    IFILE / 101,102,103,104,105,106 /\r\n      DATA    OFILE / 201,202,203,204,205,206 /\r\n      DATA    SCRTCH/ 301,302,303,304,305,306,307,308 /\r\n      DATA    TRAIL / 0,1,2,3,4,5,6 /\r\n      DATA    EOR   , NOEOR,RWD,INPRWD,OUTRWD / 1,0,1,0,1 /\r\nC\r\n      NFILES = 6\r\n      NSCRAT = 8\r\n      DO 4 I = 1,6\r\n    4 OFPFIL(I) = 0\r\n      DO 5 I = 1,146\r\n      IDTEMP(I) = 0\r\n    5 CONTINUE\r\nC\r\nC     BUFFERS AND OPEN CORE\r\nC\r\n      CORE = KORSZ(Z)\r\nC\r\n      BUFF(1) = CORE - IBUFSZ + 1\r\n      DO 10 I = 2,10\r\n      BUFF(I) = BUFF(I-1) - IBUFSZ\r\n   10 CONTINUE\r\n      BUFF9  = BUFF( 9)\r\n      BUFF10 = BUFF(10)\r\n      CORE   = BUFF(10) - 1\r\n      IF (CORE .LT. 1) GO TO 700\r\nC\r\nC     OPEN SCRATCH FILES FOR OUTPUT\r\nC\r\n      IERROR = 0\r\n      DO 30 I = 1,NSCRAT\r\n      IBUFF = BUFF(I)\r\n      CALL OPEN (*20,SCRTCH(I),Z(IBUFF),OUTRWD)\r\n      GO TO 30\r\n   20 IERROR = 1\r\n      WRITE  (L,21) UWM,I\r\n   21 FORMAT (A25,' 985, SDR3 FINDS SCRATCH',I1,' PURGED.')\r\n   30 CONTINUE\r\nC\r\nC     EXECUTE FOR NFILES FILES\r\nC\r\n      DO 460 FILE = 1,NFILES\r\n      EOF = 0\r\n      INFILE = IFILE(FILE)\r\n      OUFILE = OFILE(FILE)\r\nC\r\n      CALL OPEN (*460,INFILE,Z(BUFF9),INPRWD)\r\n      CALL OPEN (*480,OUFILE,Z(BUFF10),OUTRWD)\r\n      CALL FWDREC (*520,INFILE)\r\nC\r\nC     HEADER RECORD FOR OUFILE\r\nC\r\n      CALL FNAME (OUFILE,INAME(1))\r\n      CALL WRITE (OUFILE,INAME(1),2,EOR)\r\nC\r\nC     WRITE SOME JUNK IN TRAILER FOR NOW\r\nC\r\n      TRAIL(1) = OUFILE\r\n      CALL WRTTRL (TRAIL(1))\r\n      NO FRQ = 0\r\nC\r\nC     PROCEED WITH TRANSPOSE OF DATA = SORT-2\r\nC\r\nC     GROUP WILL BE THE NUMBER OF THE FIRST REC IN THE PRESENT GROUP OF\r\nC     DATA BLOCKS BEING OPERATED ON, LESS 1\r\nC\r\n      NRECS = 1\r\nC\r\n   50 ASSIGN 120 TO IRETRN\r\nC\r\n   60 CALL READ (*80,*620,INFILE,ID(1),146,EOR,IAMT)\r\n      IF (ID(1)/10 .EQ. 1) NOFRQ = 1\r\n      IDATA = 1\r\nC\r\n   70 ICORE = CORE\r\n      RECS  = 0\r\n      GROUP = NRECS\r\nC\r\nC     READ FIRST DATA BLOCK INTO CORE\r\nC\r\n      CALL READ (*530,*90,INFILE,Z(1),ICORE,NOEOR,IAMT)\r\nC\r\nC     INSUFFICIENT CORE,  IF FALL HERE, TO DO SORT II ON THIS FILE..\r\nC\r\n      GO TO 670\r\n   80 CALL CLOSE (INFILE,RWD)\r\n      CALL CLOSE (OUFILE,RWD)\r\n      GO TO 460\r\nC\r\n   90 IF (IAMT .EQ. 0) GO TO 441\r\n      ENTRYS(1) = IAMT/NWDS\r\nC\r\nC     SET UP IN-CORE ENTRY BLOCKS\r\nC     SPOT FOR TRANSPOSE HEADING DATA IS AT Z(ICORE-ENTRYS(1)+1)\r\nC\r\n      IHD2  = ICORE + 1\r\n      ICORE = ICORE - ENTRYS(1)\r\n      IHEAD = ICORE\r\n      IF (ICORE .LT. IAMT) GO TO 680\r\nC\r\nC     NOTATION - W PER BK = WORDS PER ENTRY BLOCK\r\nC                V PER BK = VECTORS PER ENTRY BLOCK\r\nC                V IN  BK = VECTORS NOW IN ENTRY BLOCKS\r\nC\r\n      W PER BK = ICORE/ENTRYS(1)\r\n      V PER BK = W PER BK/NWDS\r\n      W PER BK = V PER BK*NWDS\r\n      IF (V PER BK .LT. 1) GO TO 690\r\nC\r\nC     DISTRIBUTE FIRST DATA BLOCK TO INCORE ENTRY BLOCKS (BOTTOM TO TOP)\r\nC\r\n      NENTRY = ENTRYS(1)\r\n      TOTAL1 = W PER BK*ENTRYS(1) + 1\r\n      TOTAL2 = NWDS*ENTRYS(1) + 1\r\n      DO 110 I = 1,NENTRY\r\n      N1  = TOTAL1 - W PER BK*I\r\n      N2  = TOTAL2 - NWDS    *I\r\n      IHD = IHD2 - I\r\n      Z(IHD) = Z(N2)\r\n      Z(N1 ) = ID(5)\r\nC\r\nC     SAVE TRANSPOSE HEADING\r\nC\r\n      DO 100 J = 2,NWDS\r\n      N1 = N1 + 1\r\n      N2 = N2 + 1\r\n      Z(N1) = Z(N2)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\nC\r\n      V IN BK = 1\r\n      GO TO IRETRN, (120,150)\r\nC\r\n  120 NTYPES = 1\r\n  130 CALL READ (*159,*630,INFILE,IDTEMP(1),146,EOR,IAMT)\r\n      IF ((ID(2).EQ.IDTEMP(2) .AND. ID(3).EQ.IDTEMP(3) .AND.\r\n     1     ID(5).NE.IDTEMP(5)) .OR. (ID(5).NE.IDTEMP(5)) .OR.\r\n     2    (ID(4).NE.IDTEMP(4))) GO TO 160\r\nC\r\n      NTYPES = NTYPES + 1\r\n      NWORDS = IDTEMP(10)\r\nC\r\nC     WILL READ DATA AND COUNT ENTRYS\r\nC\r\n      IF (NTYPES .GT. 30) GO TO 472\r\n      ENTRYS(NTYPES) = 0\r\n  140 CALL READ (*540,*130,INFILE,IDTEMP(1),NWORDS,NOEOR,IAMT)\r\n      ENTRYS(NTYPES) = ENTRYS(NTYPES) + 1\r\n      GO TO 140\r\nC\r\n  150 AHEAD = 2*NTYPES - 2\r\n      IF (NDATA .EQ. 1) GO TO 260\r\n      GO TO 170\r\nC\r\nC     AT THIS POINT IT IS KNOWN HOW MANY TYPES ARE IN THE PRESENT GROUP\r\nC     OF DATA BLOCKS AND ALSO HOW MANY ENTRYS IN EACH TYPE\r\nC\r\n  159 IF (NTYPES .EQ. 1) EOF = 1\r\n  160 ITYPE = 1\r\n      NDATA = 1\r\n      IDATA = 1\r\nC\r\nC     POSITION TO READ 2-ND ID OF TYPE(ITYPE) IF NOT JUST READ\r\nC\r\n      IF (NTYPES .EQ. 1) GO TO 200\r\n      CALL REWIND (INFILE)\r\n      AHEAD = GROUP + 2*NTYPES\r\n  170 DO 180 I = 1,AHEAD\r\n      CALL FWDREC (*550,INFILE)\r\n  180 CONTINUE\r\nC\r\n  190 CALL READ (*260,*640,INFILE,IDTEMP(1),146,EOR,IAMT)\r\nC\r\nC     CHECK FOR BREAK POINT\r\nC\r\n  200 IF (NOFRQ .EQ. 1) GO TO 201\r\n      IF (ID(4) .NE. IDTEMP(4)) GO TO 270\r\n  201 CONTINUE\r\n      IF (EOF .EQ. 1) GO TO 270\r\n      IF (ITYPE .EQ. 1) NDATA = NDATA + 1\r\n      IDATA  = IDATA + 1\r\n      NENTRY = ENTRYS(ITYPE)\r\nC\r\nC     CHECK TO SEE IF THERE IS ENOUGH ROOM IN EACH OF THE INCORE\r\nC     ENTRY BLOCKS FOR ANOTHER VECTOR\r\nC     IF NOT DO SCRATCH FILE  OPERATIONS\r\nC\r\n      IF (V IN BK .LT. V PER BK) GO TO 220\r\nC\r\nC     NOT ENOUGH ROOM THUS DUMP CORE ENTRY BLOCKS ONTO SCRATCH FILES\r\nC\r\n      IF (IERROR .EQ. 1) GO TO 451\r\n      NPOINT = 1\r\n      NFILE  = NSCRAT\r\n      DO 210 I = 1,NENTRY\r\n      NFILE  = NFILE + 1\r\n      IF (NFILE .GT. NSCRAT) NFILE = 1\r\n      CALL WRITE (SCRTCH(NFILE),Z(NPOINT),W PER BK,EOR)\r\n      NPOINT = NPOINT + W PER BK\r\n  210 CONTINUE\r\n      RECS = RECS + NENTRY\r\nC\r\nC     IN CORE ENTRY BLOCKS ARE NOW EMPTY\r\nC\r\n      V IN BK = 0\r\nC\r\nC     DISTRIBUTE DATA TO INCORE ENTRY BLOCKS\r\nC\r\n  220 NPOINT = V IN BK*NWDS + 1\r\n      DO 230 I = 1,NENTRY\r\n      IEOR = I/NENTRY\r\n      CALL READ (*560,*650,INFILE,Z(NPOINT),NWDS,IEOR,IAMT)\r\n      Z(NPOINT) = IDTEMP(5)\r\n      NPOINT = NPOINT + W PER BK\r\n  230 CONTINUE\r\n      V IN BK = V IN BK + 1\r\nC\r\n      IF (NTYPES .EQ. 1) GO TO 190\r\n      IF (ITYPE  .EQ. 1) GO TO 240\r\n      IF (IDATA .EQ. NDATA) GO TO 270\r\nC\r\nC     NOW POSITION AHEAD TO READ NEXT ID FOR TYPE(ITYPE)\r\nC\r\n  240 AHEAD = 2*NTYPES - 2\r\n      DO 250 I = 1,AHEAD\r\n      CALL FWDREC (*570,INFILE)\r\n  250 CONTINUE\r\n      GO TO 190\r\nC\r\nC     ONE DATA TYPE IN THIS GROUP IS COMPLETE\r\nC\r\nC     OUTPUT IS IN CORE, AND ON SCRATCH FILES IF RECS IS NOT 0\r\nC\r\nC     NOW DUMP SCRATCHES AND (OR JUST) CORE ONTO FINAL OUTPUT TAPE\r\nC\r\nC     ID WILL BE WRITTEN BEFORE EACH ENTRY INSERTING INTO IT THE NEW\r\nC     HEADER VALUE REPLACING FREQUENCY OR TIME ETC\r\nC\r\n  260 EOF = 1\r\n  270 IF (RECS .EQ. 0) GO TO 290\r\nC\r\n      LAYERS = RECS/NENTRY\r\nC\r\nC     CLOSE SCRATCH FILES AND OPEN AS INPUT FILES\r\nC\r\n      DO 280 I = 1,NSCRAT\r\n      CALL CLOSE (SCRTCH(I),RWD)\r\n      IBUFF = BUFF(I)\r\n      CALL OPEN (*500,SCRTCH(I),Z(IBUFF),INPRWD)\r\n  280 CONTINUE\r\nC\r\nC     COMPUTE OVERLAPS PER LAYER\r\nC\r\n      OVRLAP = (NENTRY-1)/NSCRAT\r\nC\r\nC     COMPUTE HOW MANY TAPES HAVE ALL THE OVERLAPS\r\nC\r\n      FULL = NENTRY - OVRLAP*NSCRAT\r\nC\r\nC\r\nC     WRITE FINAL FILE THEN\r\nC\r\n  290 NFILE = 0\r\n      ID(2) = ID(2) + 2000\r\n      DO 400 I = 1,NENTRY\r\n      NFILE = NFILE + 1\r\n      IF (NFILE .GT. NSCRAT) NFILE = 1\r\nC\r\n      NPOINT = IHEAD + I\r\n      ID(5)  = Z(NPOINT)\r\n      CALL WRITE (OUFILE,ID(1),146,EOR)\r\nC\r\nC     ANYTHING ON SCRATCH FILES IS NOW WRITTEN\r\nC\r\n      IF (RECS .EQ. 0) GO TO 390\r\nC\r\n      DO 380 J = 1,LAYERS\r\nC\r\nC     FORWARD REC IF NECESSARY\r\nC\r\n      IF (J .GT. 1) GO TO 320\r\nC\r\nC     AHEAD TO FIRST PART IF NECESSARY\r\nC\r\n      IF (LAYERS .EQ. 1) GO TO 350\r\n      AHEAD = (I-1)/NSCRAT\r\nC\r\n      IF (AHEAD) 300,350,300\r\n  300 DO 310 K = 1,AHEAD\r\n      CALL FWDREC (*590,SCRTCH(NFILE))\r\n  310 CONTINUE\r\n      GO TO 350\r\nC\r\n  320 RECPT = OVRLAP\r\n      IF (NFILE .GT. FULL) RECPT = RECPT - 1\r\n      IF (RECPT) 350,350,330\r\n  330 DO 340 K = 1,RECPT\r\n      CALL FWDREC (*600,SCRTCH(NFILE))\r\n  340 CONTINUE\r\nC\r\nC     COPY RECORD FROM SCRTCH TO OUTFILE\r\nC\r\n  350 DO 370 K = 1,VPERBK\r\n      IEOR = K/V PER BK\r\n      CALL READ (*610,*660,SCRTCH(NFILE),VECTOR(1),NWDS,IEOR,IAMT)\r\n      CALL WRITE (OUFILE,VECTOR(1),NWDS,NOEOR)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n      IF (LAYERS .GT. 1) CALL REWIND (SCRTCH(NFILE))\r\nC\r\nC     COPY INCORE VECTORS TO OUTFILE\r\nC\r\n  390 WORDS  = V IN BK*NWDS\r\n      NPOINT = W PER BK*I - W PER BK + 1\r\n      CALL WRITE (OUFILE,Z(NPOINT),WORDS,EOR)\r\n  400 CONTINUE\r\n      IF (RECS .EQ. 0) GO TO 420\r\nC\r\nC     CLOSE SCRTCH FILES AND OPEN AS OUTPUT FILES\r\nC\r\n      DO 410 I = 1,NSCRAT\r\n      CALL CLOSE (SCRTCH(I),RWD)\r\n      IBUFF = BUFF(I)\r\n      CALL OPEN (*490,SCRTCH(I),Z(IBUFF),OUTRWD)\r\n  410 CONTINUE\r\nC\r\n  420 IF (ITYPE .EQ. NTYPES) GO TO 440\r\nC\r\n      ITYPE = ITYPE + 1\r\n      CALL REWIND (INFILE)\r\n      AHEAD = GROUP + ITYPE*2 - 2\r\n      DO 430 I = 1,AHEAD\r\n      CALL FWDREC (*580,INFILE)\r\n  430 CONTINUE\r\n      ASSIGN 150 TO IRETRN\r\n      EOF = 0\r\n      GO TO 60\r\nC\r\nC     THIS GROUP IS ABSOLUTELY COMPLETE AND WE ARE AT BREAK POINT\r\nC\r\n  440 IF (EOF .EQ. 1) GO TO 80\r\n      NRECS = NRECS + 2*NDATA*NTYPES\r\n      IF (NTYPES .GT. 1) GO TO 50\r\n  441 CONTINUE\r\n      DO 450 I = 1,146\r\n  450 ID(I) = IDTEMP(I)\r\n      GO TO 70\r\nC\r\nC\r\nC     ERROR CONDITIONS FOR THIS DATA BLOCK\r\nC\r\nC     FORMAT OF INPUT DATA BLOCK MAY BE INCORRECT (N=TRACEBACK CODE)\r\nC\r\n  490 N = 23\r\n      GO TO 452\r\n  500 N = 3\r\n      GO TO 452\r\n  520 N = 4\r\n      GO TO 452\r\n  530 N = 5\r\n      GO TO 452\r\n  540 N = 6\r\n      GO TO 452\r\n  550 N = 7\r\n      GO TO 452\r\n  560 N = 8\r\n      GO TO 452\r\n  570 N = 9\r\n      GO TO 452\r\n  580 N = 10\r\n      GO TO 452\r\n  590 N = 11\r\n      GO TO 452\r\n  600 N = 12\r\n      GO TO 452\r\n  610 N = 13\r\n      GO TO 452\r\n  620 N = 14\r\n      GO TO 452\r\n  630 N = 15\r\n      GO TO 452\r\n  640 N = 16\r\n      GO TO 452\r\n  650 N = 17\r\n      GO TO 452\r\n  660 N = 18\r\n      GO TO 452\r\n  452 OFPFIL(FILE) = N\r\n      WRITE  (L,453) UWM,FILE\r\n  453 FORMAT (A25,' 982, FORMAT OF SDR3 INPUT DATA BLOCK ',I3,\r\n     1        ' DOES NOT PERMIT SUCCESSFUL SORT-2 PROCESSING.')\r\n      GO TO 80\r\n  472 WRITE  (L,475) UFM,NTYPES\r\n  475 FORMAT (A23,' 3129, SDR3 CAN ONLY PROCESS 30 ELEMENT TYPES, ',\r\n     1        'PROBLEM HAS',I5)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     CORRESPONDING OUTPUT FILE IS PURGED.\r\nC\r\n  480 OFPFIL(FILE) = 2\r\n      WRITE  (L,481) UWM,FILE\r\n  481 FORMAT (A25,' 984,  SDR3 FINDS OUTPUT DATA-BLOCK',I4,' PURGED.')\r\n      GO TO 80\r\nC\r\nC     ATTEMPT TO USE SCRATCH FILES 1 OR MORE OF WHICH ARE PURGED.\r\nC\r\n  451 OFPFIL(FILE) = 1\r\n      GO TO 80\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  670 N = 19\r\n      GO TO 701\r\n  680 N = 20\r\n      GO TO 701\r\n  690 N = 21\r\n      GO TO 701\r\n  701 WRITE  (L,702) UWM,FILE\r\n  702 FORMAT (A25,' 983, SDR3 HAS INSUFFICIENT CORE TO PERFORM SORT-2',\r\n     1       ' ON INPUT DATA BLOCK',I4, /5X,\r\n     2       'OR DATA-BLOCK IS NOT IN CORRECT FORMAT.')\r\n      OFPFIL(FILE) = N\r\n      GO TO 80\r\nC\r\n  460 CONTINUE\r\nC\r\nC     CLOSE SCRATCH FILES\r\nC\r\n      DO 470 I = 1,NSCRAT\r\n      CALL CLOSE (SCRTCH(I),RWD)\r\n  470 CONTINUE\r\nC\r\n      GO TO 801\r\n  700 DO 704 I = 1,5\r\n  704 OFPFIL(I) = 22\r\n      WRITE  (L,703) UWM\r\n  703 FORMAT (A25,' 986, INSUFFICIENT CORE FOR SDR3.')\r\n  801 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdrchk.f",
    "content": "      SUBROUTINE SDRCHK (FORVEC,CFRVEC,LVEC,KONT)\r\nC   THIS ROUTINE IS USED BY ELEMENT SUBROUTINES THAT DETERMINE IF THE\r\nC REQUESTED STRESS/FORCE PRECISION IS AVAILABLE...\r\nC-----\r\n      REAL    FORVEC(LVEC) ,CFRVEC(LVEC)\r\n      COMMON /SDR2X9/ NCHK(5),TWOTOP,FNCHK\r\nC\r\n       DO 20 I = 1,LVEC\r\n      IF (CFRVEC(I).EQ.0.0) R = 1.0E0\r\n      IF (CFRVEC(I).NE.0.0) R = ABS (FORVEC(I)/CFRVEC(I) )\r\n      IF (R.GT.1.001) R = 1.0E0\r\n      IF (R.EQ.0.0) RJ = TWOTOP\r\n      IF (R.NE.0.0) RJ = TWOTOP + ALOG10 (R)\r\n      IF (RJ.LT.0.0) RJ = 0.0\r\n      CFRVEC(I) = RJ\r\n      IF (RJ.LT.FNCHK) KONT = KONT + 1\r\n   20 CONTINUE\r\nC-----\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdretd.f",
    "content": "      SUBROUTINE SDRETD (ELID,TI,GRIDS)\r\nC\r\nC     THIS ROUTINE (CALLED BY -SDR2E-) READS ELEMENT TEMPERATURE\r\nC     DATA FROM A PRE-POSITIONED RECORD\r\nC\r\nC     ELID   = ID OF ELEMENT FOR WHICH DATA IS DESIRED\r\nC     TI     = BUFFER DATA IS TO BE RETURNED IN\r\nC     GRIDS  = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED\r\nC            = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED.\r\nC     ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS\r\nC     OLDEL  = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0)\r\nC     OLDEID = ELEMENT ID FROM LAST CALL\r\nC     EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD\r\nC     ENDID  = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT\r\nC              TYPE.\r\nC     BUFFLG = NOT USED\r\nC     ITEMP  = TEMPERATURE LOAD SET ID\r\nC     IDEFT  = NOT USED\r\nC     IDEFM  = NOT USED\r\nC     RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE\r\nC     DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST\r\nC     AVRAGE = THE AVERAGE ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         EORFLG   ,ENDID    ,BUFFLG   ,RECORD\r\n      INTEGER         TI(33)   ,OLDEID   ,GRIDS    ,ELID     ,ELTYPE   ,\r\n     1                OLDEL    ,NAME(2)  ,GPTT     ,DEFALT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ DUM      ,IOUT\r\n      COMMON /SDRETT/ ELTYPE   ,OLDEL    ,EORFLG   ,ENDID    ,BUFFLG   ,\r\n     1                ITEMP    ,IDEFT    ,IDEFM    ,RECORD   ,OLDEID\r\n      COMMON /SDR2X2/ DUMMY(6) ,GPTT     ,DUM20(20)\r\n      COMMON /SDR2DE/ DUM2(2)  ,DEFALT\r\n      DATA    NAME  / 4HSDRE   ,4HTD  /  ,MAXWDS   / 33 /\r\nC\r\n      IF (OLDEID .EQ. ELID) RETURN\r\n      OLDEID = ELID\r\n      IF (ITEMP .NE. 0) GO TO 20\r\n      DO 10 I = 1,MAXWDS\r\n   10 TI(I) = 0\r\n      RETURN\r\nC\r\n   20 IF (.NOT.RECORD .OR. EORFLG) GO TO 80\r\n      IF (ELTYPE .NE. OLDEL) GO TO 160\r\n      IF (ENDID) GO TO 80\r\nC\r\nC     HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA\r\nC     HAS NOT YET BEEN REACHED.  READ AN ELEMENT ID\r\nC\r\n   40 CALL READ (*300,*310,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 50,80,50\r\n   50 IF (IABS(ID) .EQ. ELID) IF (ID) 90,90,70\r\n      IF (ID) 40,40,60\r\n   60 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 40\r\nC\r\nC     MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA\r\nC\r\n   70 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG)\r\nC\r\nC     IF QUAD4 (ELTYPE 64) OR TRIA3 (ELTYPE 83) ELEMENT, SET FLAG FOR\r\nC     SQUD42 OR STRI32\r\nC\r\n      IF (ELTYPE.NE.64 .OR. ELTYPE.NE.83) RETURN\r\n      TI(7) = 13\r\n      IF (TI(6) .NE. 1) TI(7) = 2\r\n      RETURN\r\nC\r\nC     NO MORE DATA FOR THIS ELEMENT TYPE\r\nC\r\n   80 ENDID = .TRUE.\r\nC\r\nC     NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT\r\nC\r\n   90 IF (DEFALT .EQ. -1) GO TO 140\r\n      IF (GRIDS  .GT.  0) GO TO 110\r\n      DO 100 I = 2,MAXWDS\r\n  100 TI(I) = 0\r\n      TI(1) = DEFALT\r\n      IF (ELTYPE .EQ. 34) TI(2) = DEFALT\r\n      RETURN\r\nC\r\n  110 IF (ELTYPE.NE.64 .OR. ELTYPE.NE.83) GO TO 120\r\nC                 QUAD4             TRIA3\r\n      TI(4) = 0\r\n      TI(5) = 0\r\n      TI(6) = 0\r\n      TI(7) = 0\r\n  120 DO 130 I = 1,GRIDS\r\n  130 TI(I) = DEFALT\r\n      TI(GRIDS+1) = DEFALT\r\n      RETURN\r\nC\r\nC     NO TEMP DATA OR DEFALT\r\nC\r\n  140 WRITE  (IOUT,150) UFM,ELID,ITEMP\r\n  150 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9,\r\n     1       ' IN SET',I9)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA)\r\nC\r\n  160 IF (ENDID) GO TO 190\r\n  170 CALL READ (*300,*310,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 170,190,180\r\n  180 CALL READ (*300,*310,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 170\r\nC\r\nC     READ ELTYPE AND COUNT\r\nC\r\n  190 CALL READ (*300,*200,GPTT,TI,2,0,FLAG)\r\n      OLDEL  = TI(1)\r\n      NWORDS = TI(2)\r\n      ENDID = .FALSE.\r\n      GO TO 40\r\nC     END OF RECORD HIT\r\nC\r\n  200 EORFLG = .TRUE.\r\n      GO TO 80\r\nC\r\n  300 CALL MESAGE (-2,GPTT,NAME)\r\n  310 CALL MESAGE (-3,GPTT,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdrht.f",
    "content": "      SUBROUTINE SDRHT\r\nC\r\nC     SPECIAL FLUX-DATA-RECOVERY MODULE FOR HBDY ELEMENTS IN HEAT\r\nC     TRANSFER.\r\nC\r\nC     DMAP CALLING SEQUENCE.\r\nC\r\nC     SDRHT SIL,USET,UGV,OEF1,SLT,EST,DIT,QGE,DLT,/OEF1X/V,N,TABS $\r\nC\r\n      LOGICAL         HAVIDS,CARDIN,LHBDY,TRANST,FOUND,MCH521\r\n      INTEGER         TABLST(13),Z,BUF(50),SYSBUF,RD,RDREW,WRT,WRTREW,\r\n     1                CLSREW,CLS,SUBR(2),NAME(2),EOR,IDPOS(3),OUTPT,\r\n     2                SLTYPS,LDWORD(16),UG,OEF1,SLT,EST,DIT,QGE,DLT,\r\n     3                OEF1X,BUF1,BUF2,BUF3,CORE,PASS,HBDYTP,MCBUGV(7),\r\n     4                FILE,ELTYPE,ESTWDS,ECPT(100),SLTAT,SLTREC,MCB(7),\r\n     5                EOL,GSIZE\r\n      REAL            RZ(1),RBUF(50),GRIDS(6)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /ZNTPKX/ AI(4),IROW,EOL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /BLANK / TABS\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT),\r\n     1                (CONSTS(2),TWOPI ),(CONSTS(3),RADDEG),\r\n     2                (Z(1),RZ(1)), (BUF(1),RBUF(1))\r\n      DATA    TABLST / 4, 1105,11,1, 1205,12,2, 1305,13,3, 1405,14,4  /\r\n      DATA    LENTRY / 14   /, EOR,NOEOR  / 1, 0 /, SUBR/ 4HSDRH,2HT  /\r\n      DATA    IDPOS  / 2,1,5/, HBDYTP/ 52 /,     SLTYPS / 16 /\r\n      DATA    LDWORD / 6,6,4,4,6,6,2,5,5,6,6,7,2,2,5,5  /\r\n      DATA    UG,OEF1, SLT,EST,DIT,QGE,DLT,OEF1X /\r\n     1        103,104, 105,106,107,108,109, 201  /\r\n      DATA    GRIDS  / 1.0, 2.0, 2.0, 3.0, 4.0, 2.0     /\r\nC\r\nC     SET UP CORE AND BUFFERS\r\nC\r\n      BUF1   = KORSZ(Z) - SYSBUF - 2\r\n      BUF2   = BUF1 - SYSBUF - 2\r\n      BUF3   = BUF2 - SYSBUF - 2\r\n      CORE   = BUF3 - 1\r\n      IDREC  = 1\r\n      IELTAB = 1\r\n      PASS   = 0\r\n      HAVIDS = .FALSE.\r\n      CARDIN = .FALSE.\r\n      MCH521 = MACH.EQ.5 .OR. MACH.EQ.21\r\nC\r\nC     OPEN INPUT FORCES -OEF1- AND OUTPUT FORCES -OEF1X-.\r\nC\r\n      CALL OPEN  (*1190,OEF1,Z(BUF1),RDREW)\r\n      CALL OPEN  (*1200,OEF1X,Z(BUF2),WRTREW)\r\n      CALL FNAME (OEF1X,NAME)\r\n      CALL WRITE (OEF1X,NAME,2,EOR)\r\n      CALL FWDREC (*1220,OEF1)\r\nC\r\nC     COPY RECORD PAIRS OF DATA FROM OEF1 TO OEF1X UNTIL HBDY DATA IS\r\nC     DETECTED.\r\nC\r\n   10 LCORE = CORE - IDREC\r\n      IF (LCORE .LT. 300) CALL MESAGE (-8,0,SUBR)\r\n      FILE = OEF1\r\n      CALL READ (*1180,*30,OEF1,Z(IDREC),LCORE,NOEOR,IFLAG)\r\n      WRITE  (OUTPT,20) SWM\r\n   20 FORMAT (A27,' 3063, INPUT FORCES DATA BLOCK HAS INCORRECT DATA.')\r\n      GO TO 1220\r\nC\r\nC     MODIFY ID-RECORD IF THIS IS FOR HBDY ELEMENTS.\r\nC\r\n   30 IF (Z(IDREC+2) .NE. HBDYTP) GO TO 40\r\n      LHBDY = .TRUE.\r\n      GO TO 50\r\n   40 LHBDY = .FALSE.\r\n      GO TO 90\r\nC\r\nC     SET CONSTANTS FROM OEF1 ID RECORD.\r\nC\r\n   50 IF (Z(IDREC)/10 .EQ. 6) GO TO 70\r\n      LOADID = Z(IDREC+7)\r\n      TRANST = .FALSE.\r\n      GO TO 80\r\n   70 LOADID = Z(IDREC+7)\r\n      TIME   = RZ(IDREC+4)\r\n      TRANST = .TRUE.\r\n   80 LWORDS = Z(IDREC+9)\r\n      Z(IDREC+9) = 5\r\nC/////\r\nC     CALL BUG (4HTRAN ,90,TRANST,1)\r\nC/////\r\n   90 CALL WRITE (OEF1X,Z(IDREC),IFLAG,EOR)\r\n      IF (LHBDY) GO TO 120\r\nC\r\nC     NOT AN HBDY ELEMENT TYPE THUS COPY DATA ACROSS.\r\nC\r\n  100 CALL READ  (*1260,*110,OEF1,Z(IDREC),LCORE,NOEOR,IFLAG)\r\n      CALL WRITE (OEF1X,Z(IDREC),LCORE,NOEOR)\r\n      GO TO 100\r\n  110 CALL WRITE (OEF1X,Z(IDREC),IFLAG,EOR)\r\n      GO TO 10\r\nC\r\nC     HBDY ELEMENT DATA ENCOUNTERED.\r\nC\r\n  120 PASS = PASS + 1\r\nC\r\nC     ON FIRST PASS ELEMENT-DATA-TABLE IS FORMED.\r\nC\r\nC     EACH ENTRY WILL CONTAIN,\r\nC\r\nC      1) ELEMENT-ID (HBDY).\r\nC      2) FLUX-RADIATION TERM FOR THIS ELEMENT.\r\nC      3) FLUX-X FROM OEF1 DATA.\r\nC      4) APPLIED LOAD (USING SLT DATA).\r\nC      5) HBDY ELEMENT TYPE (1 TO 6).\r\nC      6) HBDY AREA FACTOR.\r\nC      7) ALPHA VALUE.\r\nC      8) V1(1) *\r\nC      9) V1(2)  *  VECTOR-V1\r\nC     10) V1(3) *\r\nC     11) V2(1) *\r\nC     12) V2(2)  *  VECTOR-V2\r\nC     13) V2(3) *\r\nC     14) OUTPUT ID*10 + DEVICE CODE (FROM OEF1).\r\nC\r\nC     ON PASSES OTHER THAN THE FIRST ONLY THE FLUX-X VALUE IS EXTRACTED\r\nC     FROM OEF1-HBDY-ENTRIES.\r\nC\r\n      JELTAB = IELTAB - 1\r\nC\r\nC     INPUT = ID*10+CODE, NAME1,NAME2,GRD-X,GRD-Y,GRD-Z,FLUX-X,FLUX-Y,\r\nC             FLUX-Z   (TOTAL OF 9 WORDS)\r\nC\r\n  130 CALL READ (*1260,*150,OEF1,BUF,LWORDS,NOEOR,IFLAG)\r\n      IF (PASS .GT. 1) GO TO 140\r\n      Z(JELTAB+1) = BUF(1)/10\r\nC\r\nC     STORE (FLUX-X) AND (OUTPUT ID*10 + DEVICE CODE).\r\nC\r\n  140 Z(JELTAB+ 3) = BUF(7)\r\n      RZ(JELTAB+2) = 0.0\r\n      Z(JELTAB+14) = BUF(1)\r\n      JELTAB = JELTAB + LENTRY\r\n      IF (JELTAB .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      GO TO 130\r\nC\r\nC     END OF DATA.\r\nC\r\n  150 IF (PASS .GT. 1) GO TO 160\r\n      NELTAB = JELTAB\r\n      NUMBER = (NELTAB - IELTAB + 1)/LENTRY\r\nC\r\nC     OPEN UG FILE FOR INPUT OF UG VECTORS.\r\nC\r\n      CALL OPEN (*1220,UG,Z(BUF3),RDREW)\r\n      CALL FWDREC (*1220,UG)\r\n      MCBUGV(1) = UG\r\n      CALL RDTRL (MCBUGV)\r\n      GSIZE = MCBUGV(3)\r\n      GO TO 180\r\n  160 IF (JELTAB .EQ. NELTAB) GO TO 180\r\n      WRITE  (OUTPT,170) SWM,JELTAB,NELTAB\r\n  170 FORMAT (A27,' 3064, INCONSISTANT HBDY DATA RECORDS.  ',2I20)\r\n      GO TO 1220\r\nC\r\nC     ALL DATA FROM OEF1 IS AT HAND NOW.\r\nC     FILES ARE CLOSED WITHOUT REWIND.\r\nC\r\n  180 CALL CLOSE (OEF1,CLS)\r\n      CALL CLOSE (OEF1X,CLS)\r\nC\r\nC     ALLOCATE UG VECTOR SPACE ON FIRST PASS.\r\nC\r\n      IF (PASS .NE. 1) GO TO 190\r\n      IUG  = NELTAB + 1\r\n      NUG  = NELTAB + GSIZE\r\n      IUGZ = IUG - 1\r\n      IF (NUG + 5 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     BRING NEXT DISPLACEMENT VECTOR INTO CORE.\r\nC\r\n  190 DO 200 I = IUG,NUG\r\n      RZ(I) = TABS\r\n  200 CONTINUE\r\nC\r\n      CALL INTPK (*220,UG,0,1,0)\r\n  210 CALL ZNTPKI\r\n      KK = IUGZ + IROW\r\n      RZ(KK) = RZ(KK) + AI(1)\r\n      IF (EOL) 210,210,220\r\nC\r\nC     RAISE VECTOR RESULT TO 4TH POWER\r\nC\r\n  220 DO 230 I = IUG,NUG\r\n      RZ(I) = RZ(I)**4\r\n  230 CONTINUE\r\nC\r\nC     IF TRANSIENT PROBLEM SKIP ACCELERATION AND VELOCITY VECTORS\r\nC\r\n      IF (.NOT. TRANST) GO TO 250\r\n      DO 240 I = 1,2\r\n      CALL FWDREC (*250,UG)\r\n  240 CONTINUE\r\n  250 CONTINUE\r\nC/////\r\nC     CALL BUG (4HUG4  ,200,Z(IUG),NUG-IUG+1)\r\nC/////\r\nC\r\nC     IF NONLINEAR PROBLEM, COMPUTE FLUX RADIATION TERMS.\r\nC\r\nC                                            T           4\r\nC     (FLUX-RADIATION         ) = (Q           )(U +TABS)\r\nC                    EL-SUBSET      G,EL-SUBSET   G\r\nC\r\n      FILE = QGE\r\n      CALL OPEN (*261,QGE,Z(BUF1),RDREW)\r\n      IF (PASS .EQ. 1) GO TO 260\r\n      CALL FWDREC (*1260,QGE)\r\n      GO TO 280\r\n  261 IQGID = NUG + 1\r\n      NQGID = NUG\r\n      IDREC = NQGID\r\n      GO TO 311\r\n  260 CALL READ (*1260,*1270,QGE,BUF,-2,NOEOR,IFLAG)\r\nC\r\nC     ON FIRST PASS PICK UP ELEMENT ID LIST.\r\nC\r\n      IQGID = NUG + 1\r\n      CALL READ (*1260,*270,QGE,Z(IQGID),CORE-IQGID,NOEOR,IFLAG)\r\n      CALL MESAGE (-7,0,SUBR)\r\n  270 NQGID = NUG + IFLAG\r\n      IDREC = NQGID + 1\r\nC/////\r\nC     CALL BUG (4HQGID,410,Z(IQGID),NQGID-IQGID+1)\r\nC/////\r\nC\r\nC     EACH FLUX-RADIATION TERM IN THE ELEMENT TABLE IS CREATED BY\r\nC     FORMING THE DOT-PRODUCT OF THE COLUMN OF -QGE- HAVING THE\r\nC     SAME ELEMENT-ID WITH THE -UG- VECTOR IN CORE.\r\nC\r\n  280 DO 310 I = IQGID,NQGID,1\r\n      CALL INTPK (*310,QGE,0,1,0)\r\nC\r\nC     FIND OUT IF ID OF THIS VECTOR IS IN ELEMENT TABLE.\r\nC\r\n      KID = Z(I)\r\n      CALL BISLOC (*300,KID,Z(IELTAB),LENTRY,NUMBER,JPOINT)\r\n      JWORD = IELTAB + JPOINT\r\n      Z(JWORD) = 0\r\nC\r\nC     FORM DOT PRODUCT\r\nC\r\n  290 CALL ZNTPKI\r\n      K = IUGZ + IROW\r\n      RZ(JWORD) = RZ(JWORD) - AI(1)*RZ(K)\r\n      IF (EOL) 290,290,310\r\nC\r\nC     ID OF THIS COLUMN NOT IN ELEMENT TABLE\r\nC\r\n  300 CALL ZNTPKI\r\n      IF (EOL) 300,300,310\r\n  310 CONTINUE\r\nC/////\r\nC     CALL BUG (4HELTB ,440,Z(IELTAB),NELTAB-IELTAB+1)\r\nC/////\r\n      CALL CLOSE (QGE,CLSREW)\r\nC\r\nC     ON FIRST PASS, EST IS PASSED AND HBDY ELEMENTS CALLED.\r\nC\r\n  311 CONTINUE\r\n      IF (PASS .GT. 1) GO TO 380\r\n      FILE = EST\r\n      CALL GOPEN (EST,Z(BUF1),RDREW)\r\n      NEXT = IELTAB\r\nC\r\nC     READ THE ELEMENT TYPE\r\nC\r\n  320 CALL READ (*350,*1270,EST,ELTYPE,1,NOEOR,IFLAG)\r\n      IF (ELTYPE .EQ. HBDYTP) GO TO 330\r\n      CALL FWDREC (*1260,EST)\r\n      GO TO 320\r\nC\r\nC     HBDY ELEMENT-SUMMARY-TABLE DATA FOUND.\r\nC\r\n  330 ESTWDS = 53\r\n  340 CALL READ (*1260,*1270,EST,ECPT,ESTWDS,NOEOR,IFLAG)\r\nC\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN OUTPUT SET.\r\nC\r\n      IF (Z(NEXT) - ECPT(1)) 350,370,340\r\n  350 WRITE  (OUTPT,360) SWM,Z(NEXT)\r\n  360 FORMAT (A27,' 3065, THERE IS NO EST DATA FOR HBDY ELEMENT ID =',\r\n     1        I10)\r\n      GO TO 1220\r\nC\r\nC     THIS ELEMENT IS IN TABLE.\r\nC\r\n  370 CALL HBDY (ECPT,ECPT,2,RBUF,BUF)\r\nC\r\nC     PLANT HBDY OUTPUTS INTO TABLE.\r\nC\r\n      Z(NEXT+ 4) = ECPT(2)\r\n      Z(NEXT+ 5) = BUF(2)\r\n      Z(NEXT+ 6) = ECPT(17)\r\n      Z(NEXT+ 7) = BUF(11)\r\n      Z(NEXT+ 8) = BUF(12)\r\n      Z(NEXT+ 9) = BUF(13)\r\n      Z(NEXT+10) = BUF(14)\r\n      Z(NEXT+11) = BUF(15)\r\n      Z(NEXT+12) = BUF(16)\r\n      NEXT = NEXT + LENTRY\r\n      IF (NEXT .LT. NELTAB) GO TO 340\r\n      CALL CLOSE (EST,CLSREW)\r\nC\r\nC     LOAD SET PROCESSING IF LOAD-SET-ID IS NON-ZERO.\r\nC\r\n 380  IF (LOADID) 944,944,390\r\nC\r\nC     OPEN SLT FOR LOAD DATA.\r\nC\r\nC\r\n  390 FILE = SLT\r\n      CALL OPEN (*1250,SLT,Z(BUF1),RDREW)\r\n      IF (HAVIDS) CALL FWDREC (*1260,SLT)\r\n      IF (HAVIDS) GO TO 810\r\n      HAVIDS = .TRUE.\r\n      ILDID  = NQGID + 1\r\n      NLDID  = ILDID - 1\r\nC\r\nC     IDS OF LOAD SETS NOT IN CORE THUS BRING IN IDS FROM HEADER RECORD.\r\nC\r\n      IMAST  = ILDID\r\n      NSETS  = 0\r\n      NLDSET = 3\r\n      CALL READ (*1260,*1270,SLT,BUF,-2,NOEOR,IFLAG)\r\n  400 IF (NLDID+5 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      CALL READ (*1260,*410,SLT,Z(NLDID+1),1,NOEOR,IFLAG)\r\n      NSETS = NSETS + 1\r\n      Z(NLDID +2) = 1\r\n      Z(NLDID +3) = Z(NLDID+1)\r\n      RZ(NLDID+4) = 1.0\r\n      Z(NLDID +5) = NSETS\r\n      NLDID = NLDID + 5\r\n      GO TO 400\r\nC\r\nC     IF TRANSIENT PROBLEM THEN DLT OPERATIONS BEGIN\r\nC\r\n  410 IF (.NOT.TRANST) GO TO 800\r\n      FILE = DLT\r\n      CALL OPEN (*1250,DLT,Z(BUF2),RDREW)\r\n      CALL READ (*1260,*1270,DLT,BUF,3,NOEOR,IFLAG)\r\n      M = BUF(3)\r\n      FOUND = .FALSE.\r\n      IF (M .LE. 0) GO TO 430\r\n      DO 420 I = 1,M\r\n      CALL READ (*1260,*1270,DLT,BUF,1,NOEOR,IFLAG)\r\n      IF (BUF(1) .EQ. LOADID) FOUND = .TRUE.\r\n  420 CONTINUE\r\nC\r\nC     NOW READ RLOAD1, RLOAD2, TLOAD1, AND TLOAD2 IDS.\r\nC\r\n  430 IRTIDS = NLDID + 1\r\n      CALL READ (*1260,*440,DLT,Z(IRTIDS),CORE-IRTIDS,NOEOR,IFLAG)\r\n      CALL MESAGE (-7,0,SUBR)\r\n      GO TO 1220\r\n  440 NRTIDS = NLDID + IFLAG\r\nC\r\nC     IF LOADID WAS FOUND AMONG THE DLOAD IDS, SEARCH IS NOW MADE IN\r\nC     RECORD 1 OF THE DLT FOR THAT ID, AND ITS SUB-IDS.\r\nC\r\n      JJ1   = ILDID\r\n      JJ2   = NLDID\r\n      ILDID = NRTIDS + 1\r\n      NLDID = NRTIDS + 2\r\n      Z(ILDID  ) = LOADID\r\n      Z(ILDID+1) = 0\r\n      IF (.NOT. FOUND) GO TO 520\r\nC\r\nC     READ A MASTER DLOAD SET-ID.\r\nC\r\n  450 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG)\r\n      IF (BUF(1) .EQ. LOADID) GO TO 470\r\nC\r\nC     SKIP SUB-ID DATA OF THIS MASTER\r\nC\r\n  460 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG)\r\n      IF (BUF(2)) 450,460,460\r\nC\r\nC     MASTER-ID FOUND.  BUILD LOAD-SET-ID TABLE.\r\nC\r\n  470 FACTOR = RBUF(2)\r\n  472 IF (NLDID+11 .LE. CORE) GO TO 480\r\n      CALL MESAGE (8,0,SUBR)\r\n      GO TO 1220\r\n  480 CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG)\r\n      IF (BUF(2)) 540,540,490\r\n  490 Z(ILDID +1) = Z(ILDID+1) + 1\r\n      Z(NLDID +1) = BUF(2)\r\n      RZ(NLDID+2) = 0.0\r\n      Z(NLDID +3) = 0\r\n      RZ(NLDID+4) = RBUF(1)*FACTOR\r\n      Z(NLDID +5) = 0\r\n      NLDID = NLDID + 11\r\n      GO TO 472\r\nC\r\nC     LOADID NOT AMONG DLOADS FOR THIS TRANSIENT PROBLEM\r\nC\r\n  520 Z(ILDID+1) = 1\r\n      IF (NLDID+13 .LE. CORE) GO TO 530\r\n      CALL MESAGE (8,0,SUBR)\r\n      GO TO 1220\r\n  530 Z(NLDID +1) = Z(ILDID)\r\n      RZ(NLDID+2) = 0.0\r\n      Z(NLDID +3) = 0\r\n      RZ(NLDID+4) = 1.0\r\n      Z(NLDID +5) = 0\r\n      NLDID = NLDID + 11\r\nC\r\nC     IF THERE ARE ANY DLOAD CARDS AT ALL THEN BALANCE OF (OR ALL OF)\r\nC     RECORD 1 IS NOW SKIPPED.\r\nC\r\n  540 IF (M .GT. 0) CALL FWDREC (*1260,DLT)\r\nC\r\nC     NOW PICKING UP DATA NEEDED OF DYNAMIC LOAD SET RECORDS.\r\nC\r\n      K1 = ILDID + 2\r\n      K2 = NLDID\r\n      DO 580 I = IRTIDS,NRTIDS\r\nC\r\nC     READ THE LOAD TYPE\r\nC\r\n      CALL READ (*1260,*1270,DLT,BUF,2,NOEOR,IFLAG)\r\n      IF (BUF(1).NE.3 .AND. BUF(1).NE.4) GO TO 570\r\nC\r\nC     CHECK AND SEE IF THIS TLOAD ID IS AMONG THE SUB-IDS\r\nC\r\n      DO 550 J = K1,K2,11\r\n      IF (Z(J) .EQ. Z(I)) GO TO 560\r\n  550 CONTINUE\r\n      GO TO 570\r\nC\r\nC     YES THIS RECORD IS NEEDED.  THUS PUT ITS DATA IN TABLE.\r\nC\r\n  560 Z(J+4) = BUF(1)\r\nC\r\nC     SLT ID INTO TABLE\r\nC\r\n      Z(J) = -BUF(2)\r\nC\r\nC     SET SLT RECORD NUMBER\r\nC\r\n      K = 0\r\n      DO 565 L = JJ1,JJ2,5\r\n      K = K + 1\r\n      IF (Z(L) .EQ. BUF(2)) GO TO 566\r\n  565 CONTINUE\r\n      K = 0\r\n  566 Z(J+2) = K\r\n      CALL READ (*1260,*1270,DLT,Z(J+5),6,EOR,IFLAG)\r\n      IF (BUF(1) .EQ. 3) Z(J+6) = 0\r\n      GO TO 580\r\n  570 CALL FWDREC (*1260,DLT)\r\n  580 CONTINUE\r\nC\r\nC     CHECK IS NOW MADE TO INSURE ALL SUB-IDS RECEIVED DLT DATA.\r\nC\r\nC\r\nC     SET SLT IDS POSITIVE\r\nC\r\n      DO 581 I = K1,K2,11\r\n      Z(I) = IABS(Z(I))\r\n  581 CONTINUE\r\n      DO 610 I = K1,K2,11\r\n      IF (Z(I+4)) 590,590,610\r\nC\r\nC     ERROR\r\nC\r\n  590 WRITE  (OUTPT,600) UWM,Z(I)\r\n  600 FORMAT (A25,' 3066, THERE IS NO TLOAD1 OR TLOAD2 DATA FOR LOAD-',\r\n     1       'ID =',I9)\r\n  610 CONTINUE\r\nC\r\n      CALL CLOSE (DLT,CLSREW)\r\n      NLDSET = 11\r\nC\r\nC     SORT SUB-ID TABLE ON SLT RECORD NUMBERS.\r\nC\r\n      CALL SORT (0,0,11,3,Z(K1),K2-K1+1)\r\nC/////\r\nC     CALL BUG (4HTABL,640,Z(K1),K2-K1+1)\r\nC\r\nC     CONSTRUCTION OF TABLE-ID LIST.\r\nC\r\n      ITABID = NLDID + 1\r\n      NTABID = NLDID + 1\r\nC\r\nC     FIRST GET TABLE ID-S PRESENT IN THE SUB-ID TABLE.\r\nC\r\n      DO 680 I = K1,K2,11\r\nC\r\nC     CHECK FOR OTHER THAN TLOAD1 TYPE CARD\r\nC\r\n      IF (Z(I+4) .NE. 3) GO TO 680\r\nC\r\nC     CHECK FOR ID IN TABLE.\r\nC\r\n      IF (NTABID .LE. ITABID) GO TO 660\r\n      DO 650 J = ITABID,NTABID\r\n      IF (Z(I+5) .EQ. Z(J)) GO TO 680\r\n  650 CONTINUE\r\n  660 NTABID = NTABID + 1\r\n      IF (NTABID .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      Z(NTABID) = Z(I+5)\r\n  680 CONTINUE\r\nC\r\nC     NOW PASS SLT AND GET ANY TABLE IDS PRESENT IN QVECT PORTION OF\r\nC     RECORDS WE WILL BE USING.  (SLT IS CURRENTLY POSITIONED AT FIRST\r\nC     RECORD.)\r\nC\r\n      SLTAT = 1\r\n      FILE  = SLT\r\n      DO 780 I = K1,K2,11\r\n      NGO = Z(I+2) - SLTAT\r\n      IF (NGO) 780,710,690\r\n  690 DO 700 J = 1,NGO\r\n      CALL FWDREC (*1260,SLT)\r\n  700 CONTINUE\r\n      SLTAT = SLTAT + NGO\r\nC\r\nC     LOOK FOR QVECT CARDS.\r\nC\r\n  710 CALL READ (*1260,*770,SLT,BUF,2,NOEOR,IFLAG)\r\n      ITYPE  = BUF(1)\r\n      NCARDS = BUF(2)\r\n      NWORDS = LDWORD(ITYPE)\r\n      IF (ITYPE .NE. 16) GO TO 760\r\nC\r\nC     QVECT CARDS FOUND\r\nC\r\n      IF (NCARDS .LE. 0) GO TO 710\r\n      DO 750 J = 1,NCARDS\r\n      CALL READ (*1260,*1270,SLT,BUF,NWORDS,NOEOR,IFLAG)\r\n      DO 740 K = 2,4\r\n      L = NUMTYP(BUF(K))\r\n      IF (MCH521 .AND. BUF(K).GT.16000 .AND. BUF(K).LE.99999999) L= 1\r\n      IF (BUF(K).LE.0 .OR. L.NE.1) GO TO 740\r\nC\r\nC     TABLE ID FOUND.  ADD TO LIST IF NOT YET IN.\r\nC\r\n      IF (NTABID .LE. ITABID) GO TO 730\r\n      DO 720 L = ITABID,NTABID\r\n      IF (BUF(K) .EQ. Z(L)) GO TO 740\r\n  720 CONTINUE\r\n  730 NTABID = NTABID + 1\r\n      IF (NTABID .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      Z(NTABID) = BUF(K)\r\n  740 CONTINUE\r\n  750 CONTINUE\r\n      GO TO 710\r\n  760 IF (ITYPE .GT. 16) GO TO 1170\r\n      NWDCRD = -NWORDS*NCARDS\r\n      CALL READ (*1260,*1270,SLT,BUF,NWDCRD,NOEOR,IFLAG)\r\n      GO TO 710\r\n  770 SLTAT = SLTAT + 1\r\n  780 CONTINUE\r\n      NUMTAB   = NTABID - ITABID\r\n      Z(ITABID)= NUMTAB\r\n      NUMTAB   = Z(ITABID)\r\nC\r\nC     TABLE-ID LIST COMPLETE. NOW SORT IT AND PRIME TAB ROUTINE.\r\nC\r\n      CALL REWIND (SLT)\r\n      CALL FWDREC (*1260,SLT)\r\nC/////\r\nC     CALL BUG (4HTBID,555,Z(ITABID),NTABID-ITABID+1)\r\nC/////\r\n      IDIT = NTABID + 1\r\n      NDIT = IDIT\r\n      LZ   = CORE - IDIT\r\n      IF (LZ .GT. 10) GO TO 790\r\n      CALL MESAGE (8,0,SUBR)\r\n      GO TO 1220\r\n  790 CONTINUE\r\n      IF (NUMTAB .EQ. 0) GO TO 792\r\n      CALL SORT (0,0,1,1,Z(ITABID+1),NUMTAB)\r\n      CALL PRETAB(DIT,Z(IDIT),Z(IDIT),Z(BUF2),LZ,LUSED,Z(ITABID),TABLST)\r\n      NDIT = IDIT + LUSED\r\nC/////\r\nC     CALL BUG (4HDITS,557,Z(IDIT),NDIT-IDIT+1)\r\nC/////\r\n  792 CONTINUE\r\n      IDREC = NDIT + 1\r\n      GO TO 810\r\nC\r\nC     DETERMINE IF -LOADID- IS IN LIST OF LOAD SET IDS.\r\nC\r\n  800 IDREC = NLDID + 1\r\nC/////\r\nC     CALL BUG (4HLD1   ,360,Z(ILDID),NLDID-ILDID+1)\r\nC/////\r\n  810 CONTINUE\r\n      NMAST = NLDID\r\n      J = ILDID\r\n  820 IF (J .LE. NLDID) GO TO 910\r\nC\r\nC     LOAD SET ID LIST EXHAUSTED.\r\nC     BRING IN ANY LOAD CARDS IF NOT YET IN.\r\nC\r\n      IF (CARDIN) GO TO 920\r\nC\r\nC     THE LOAD-SET-ID TABLE HAS THE FOLLOWING FORMAT.\r\nC\r\nC     MASTER ID                                ******       Z(ILDID)\r\nC     NUMBER OF SUB-IDS FOR THIS MASTER              *\r\nC     SUB-ID             **  3-WORDS  ***             *\r\nC     SCALE FACTOR = F(T)  * ONLY IF     *             *\r\nC     SLT RECORD NUMBER  **  STATICS      * 11 WORDS   * REPEATS FOR\r\nC     CONSTANT SCALE FACTOR               * REPEATS    * EACH MASTER\r\nC     TYPE OF TLOAD =(3 OR 4)             * FOR EACH   * ID PRESENT\r\nC     TYPE3 TABLE ID (OR) TYPE4 T1        * SUB-ID     *\r\nC           0                   T2        * OF THIS    *\r\nC           0                   OMEGA     * MASTER     *\r\nC           0                   PHI       * ID         *\r\nC           0                   N        *             *\r\nC           0                   ALPHA ***              *\r\nC              .                                       *\r\nC              .                                      *\r\nC              .                                     *\r\nC                                              ******\r\nC             ...                    ...\r\nC             ...                    ...\r\nC             ...                    ...                    Z(NLDID)\r\nC\r\nC\r\n      CARDIN = .TRUE.\r\nC\r\nC     FORWARD SLT TO LOAD CARD RECORD.\r\nC\r\n      IF (NSETS) 850,850,830\r\n  830 DO 840 I = 1,NSETS\r\n      CALL FWDREC (*1250,SLT)\r\n  840 CONTINUE\r\nC\r\nC     READ AND ENTER MASTER ID INTO TABLE\r\nC\r\n  850 IF (NLDID+2 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      CALL READ (*1260,*900,SLT,Z(NLDID+1),2,NOEOR,IFLAG)\r\n      SCALE  = RZ(NLDID+2)\r\n      NLDID  = NLDID + 2\r\n      JCOUNT = NLDID\r\n      Z(JCOUNT) = 0\r\nC\r\nC     READ THE (SID, SCALE-FACTOR)  PAIRS FOR THIS ID.\r\nC\r\n  860 IF (NLDID+3 .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      CALL READ (*1260,*1270,SLT,Z(NLDID+1),2,NOEOR,IFLAG)\r\n      IF (Z(NLDID+1) .EQ. -1) GO TO 890\r\nC\r\nC     MULTIPLY SUBID SCALE FACTOR BY MASTER SCALE FACTOR.\r\nC\r\n      RZ(NLDID+2) = RZ(NLDID+2)*SCALE\r\nC\r\nC     DETERMIND SLT RECORD NUMBER OF THIS SUB ID.\r\nC\r\n      KREC = 1\r\n      DO 870 I = IMAST,NMAST,NLDSET\r\n      IF (Z(NLDID+1) .EQ. Z(I)) GO TO 880\r\n      KREC = KREC + 1\r\n  870 CONTINUE\r\n      KREC = 0\r\n  880 Z(NLDID+3) = KREC\r\n      NLDID = NLDID + 3\r\n      Z(JCOUNT) = Z(JCOUNT) + 1\r\n      GO TO 860\r\nC\r\nC     SORT ALL SUB-ID 3 WORD GROUPS ON SLT RECORD NUMBER.\r\nC\r\n  890 CALL SORT (0,0,3,3,Z(JCOUNT+1),NLDID-JCOUNT)\r\n      GO TO 850\r\nC\r\nC     REPOSITION SLT TO BEGINNING OF FIRST SLT RECORD\r\nC\r\n  900 IDREC = NLDID + 1\r\nC/////\r\nC     CALL BUG (4HLDID,460,Z(ILDID),NLDID - ILDID+1)\r\nC/////\r\n      CALL REWIND (SLT)\r\n      CALL FWDREC (*1260,SLT)\r\n      GO TO 820\r\nC\r\nC     CONTINUE SEARCH FOR LOADID\r\nC\r\n  910 IF (LOADID .EQ. Z(J)) GO TO 940\r\nC\r\nC     POSITION -J- TO NEXT LOAD-SET-ID IN TABLE\r\nC\r\n      J = J + NLDSET*Z(J+1) + 2\r\n      GO TO 820\r\nC\r\nC     -LOADID- NOT FOUND ANYWHERE.\r\nC\r\n  920 WRITE  (OUTPT,930) UWM,LOADID\r\n  930 FORMAT (A25,' 3067, LOAD SET ID =',I9,' IS NOT PRESENT.')\r\n      GO TO 1220\r\nC\r\nC     MATCH ON MASTER ID HAS BEEN FOUND.\r\nC\r\n  940 NLOADS = Z(J+1)\r\n      ILOAD  = J + 2\r\n      NLOAD  = ILOAD + NLDSET*NLOADS - 1\r\nC\r\nC     PROCESS ALL THE LOAD RECORDS FOR THIS MASTER-ID\r\nC\r\n      SLTAT = 1\r\nC/////\r\nC     CALL BUG (4HLOAD ,500,Z(ILOAD),NLOAD-ILOAD+1)\r\nC/////\r\nC\r\nC     INITIALIZE APPLIED LOAD TO 0.0 FOR ALL ELEMENTS IN TABLE\r\nC\r\n 944  CONTINUE\r\n      DO 945 I = IELTAB,NELTAB,LENTRY\r\n      RZ(I+3) = 0.0\r\n  945 CONTINUE\r\n      IF (LOADID .LE. 0) GO TO 1140\r\n      DO 1130 I = ILOAD,NLOAD,NLDSET\r\n      FACTOR = RZ(I+1)\r\n      IF (.NOT.TRANST) GO TO 960\r\nC\r\nC     FACTOR HAS TO BE FOUND AS F(TIME)\r\nC\r\n      IF (Z(I+4) .EQ. 4) GO TO 950\r\n      CALL TAB (Z(I+5),TIME,YVALUE)\r\n      FACTOR = RZ(I+3)*YVALUE\r\n      GO TO 960\r\n  950 TT = TIME - RZ(I+5)\r\n      IF (TT .EQ. 0.0) GO TO 951\r\n      IF (TT.LE.0.0 .OR. TIME.GE.RZ(I+6)) GO TO 955\r\n      FACTOR = RZ(I+3)*EXP(RZ(I+10)*TT)*(TT**RZ(I+9))*COS(TWOPI*\r\n     1         RZ(I+7)*TT + RZ(I+8)/RADDEG)\r\n      GO TO 960\r\n  951 IF (RZ(I+9) .NE. 0.0) GO TO 955\r\n      FACTOR = COS(TWOPI*RZ(I+7))\r\n      GO TO 960\r\n  955 FACTOR = 0.0\r\n  960 SLTREC = Z(I+2)\r\n      IF (SLTREC.LE.0 .OR. FACTOR.EQ.0.0) GO TO 1130\r\nC\r\nC     POSITION SLT TO RECORD DESIRED.\r\nC\r\n  980 NGO = SLTREC - SLTAT\r\n      IF (NGO) 990,1020,1000\r\nC\r\nC     NEED TO BACK UP ON SLT.\r\nC\r\n  990 CALL BCKREC (SLT)\r\n      SLTAT = SLTAT - 1\r\n      GO TO 980\r\nC\r\nC     NEED TO GO FORWARD ON SLT\r\nC\r\n 1000 DO 1010 J = 1,NGO\r\n      CALL FWDREC (*1260,SLT)\r\n 1010 CONTINUE\r\n      SLTAT = SLTAT + NGO\r\nC\r\nC     SLT IS NOW POSITIONED TO LOAD RECORD DESIRED.\r\nC\r\nC\r\nC     GENERATE LOADS FOR THOSE ELEMENTS IN THE TABLE USING ONLY QBDY1,\r\nC     QBDY2, AND QVECT CARDS.\r\nC\r\n 1020 CALL READ (*1260,*1130,SLT,BUF,2,NOEOR,IFLAG)\r\n      ITYPE = BUF(1)\r\n      IF (ITYPE .LE. SLTYPS) GO TO 1040\r\n      WRITE  (OUTPT,1030) SWM,ITYPE\r\n 1030 FORMAT (A27,' 3068, UNRECOGNIZED CARD TYPE =',I9,\r\n     1       ' FOUND IN -SLT- DATA BLOCK.')\r\n      GO TO 1220\r\n 1040 NCARDS = BUF(2)\r\n      IF (NCARDS) 1020,1020,1050\r\n 1050 NWORDS = LDWORD(ITYPE)\r\n      IF (ITYPE.GE.14 .AND. ITYPE.LE.16) GO TO 1060\r\n      NWDCRD = -NWORDS*NCARDS\r\n      CALL READ (*1260,*1270,SLT,BUF,NWDCRD,NOEOR,IFLAG)\r\n      GO TO 1020\r\n 1060 ITYPE = ITYPE - 13\r\n      JID = IDPOS(ITYPE)\r\n      DO 1120 K = 1,NCARDS\r\nC\r\nC     READ A QBDY1, QBDY2, OR QVECT ENTRY.\r\nC\r\n      CALL READ (*1260,*1270,SLT,BUF,NWORDS,NOEOR,IFLAG)\r\nC\r\nC     CHECK FOR ID IN THE TABLE (OTHERWISE SKIP).\r\nC\r\n      CALL BISLOC (*1120,BUF(JID),Z(IELTAB),LENTRY,NUMBER,JPOINT)\r\n      KK = IELTAB + JPOINT\r\nC\r\nC     THIS ELEMENT IS IN TABLE, THUS COMPUTE AND SUM IN THE LOAD.\r\nC\r\n      GO TO (1070,1080,1090), ITYPE\r\n 1070 RZ(KK+2) = RZ(KK+2) + RZ(KK+4)*RBUF(1)*FACTOR\r\n      GO TO 1120\r\nC\r\n 1080 KTYPE    = Z(KK+3)\r\n      RZ(KK+2) = RZ(KK+2) + FACTOR*RZ(KK+4)*(RBUF(2)+RBUF(3) + RBUF(4) +\r\n     1           RBUF(5))/GRIDS(KTYPE)\r\n      GO TO 1120\r\nC\r\nC\r\nC     CALL TAB IF E1,E2,E3 OF QVECT DATA ARE TABLE ID-S IMPLYING\r\nC     TIME DEPENDENCE\r\nC\r\n 1090 IF (.NOT.TRANST) GO TO 1099\r\n      DO 1094 KKK = 2,4\r\n      L = NUMTYP(BUF(KKK))\r\n      IF (MCH521 .AND. BUF(KKK).GT.16000 .AND. BUF(KKK).LE.99999999)\r\n     1    L = 1\r\n      IF (BUF(KKK).LE.0 .OR. L.NE.1) GO TO 1094\r\n      CALL TAB (BUF(KKK),TIME,YVALUE)\r\n      RBUF(KKK) = YVALUE\r\n 1094 CONTINUE\r\n 1099 KTYPE = Z(KK+3)\r\n      C = RBUF(2)*RZ(KK+6) + RBUF(3)*RZ(KK+7) + RBUF(4)*RZ(KK+8)\r\n      IF (KTYPE .EQ. 6) GO TO 1110\r\n      IF (C) 1100,1100,1120\r\n 1100 RZ(KK+2) = RZ(KK+2) - C*RZ(KK+4)*RZ(KK+5)*RBUF(1)*FACTOR\r\n      GO TO 1120\r\n 1110 RZ(KK+2) = RZ(KK+2) + FACTOR*RZ(KK+4)*RBUF(1)*RZ(KK+5)*SQRT(C*C +\r\n     1  (RBUF(2)*RZ(KK+9) + RBUF(3)*RZ(KK+10) + RBUF(4)*RZ(KK+11))**2)\r\nC\r\n 1120 CONTINUE\r\nC\r\n 1130 CONTINUE\r\n      CALL CLOSE (SLT,CLSREW)\r\nC/////\r\nC     CALL BUG (4HTELT,670,Z(IELTAB),NELTAB-IELTAB+1)\r\nC/////\r\nC\r\nC     ELEMENT TABLE IS NOW COMPLETE FOR OUTPUT.\r\nC\r\n 1140 FILE = OEF1X\r\n      CALL OPEN (*1250,OEF1X,Z(BUF1),WRT)\r\n      DO 1160 I = IELTAB,NELTAB,LENTRY\r\n      BUF( 1) = Z(I+13)\r\n      RBUF(2) = RZ(I+3)\r\n      RBUF(3) = RZ(I+2)\r\n      RBUF(4) = RZ(I+1)\r\n      RBUF(5) = RBUF(2) + RBUF(3) + RBUF(4)\r\n      CALL WRITE (OEF1X,BUF(1),5,NOEOR)\r\n 1160 CONTINUE\r\n      CALL WRITE (OEF1X,0,0,EOR)\r\n      FILE = OEF1\r\n      CALL OPEN (*1250,OEF1,Z(BUF2),RD)\r\n      GO TO 10\r\n 1170 WRITE (OUTPT,1030)ITYPE\r\n      GO TO 1220\r\nC\r\nC     ALL PROCESSING COMPLETE.\r\nC\r\n 1180 MCB(1) = OEF1\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = OEF1X\r\n      CALL WRTTRL (MCB)\r\n      GO TO 1220\r\nC\r\nC     ERROR CONDITIONS.\r\nC\r\n 1190 RETURN\r\nC\r\n 1200 WRITE  (OUTPT,1210) UWM\r\n 1210 FORMAT (A25,' 3069, OUTPUT DATA BLOCK FOR FORCES IS PURGED.')\r\n 1220 CALL CLOSE (OEF1,CLSREW)\r\n      CALL CLOSE (OEF1X,CLSREW)\r\n      CALL CLOSE (UG,CLSREW)\r\n      CALL CLOSE (EST,CLSREW)\r\n      CALL CLOSE (SLT,CLSREW)\r\n      CALL CLOSE (DLT,CLSREW)\r\n      GO TO 1190\r\n 1250 N = 1\r\n      GO TO 1280\r\n 1260 N = 2\r\n      GO TO 1280\r\n 1270 N = 3\r\n 1280 CALL MESAGE (N,FILE,SUBR)\r\n      GO TO 1220\r\n      END\r\n"
  },
  {
    "path": "mis/sdumx1.f",
    "content": "      SUBROUTINE SDUMX1\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4HSDUM/,     KK /\r\n     1        2H11,2H21,2H31,2H41,2H51,2H61,2H71,2H81,2H91 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY SDUM91\r\nC     ============\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM81\r\nC     ============\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM71\r\nC     ============\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM61\r\nC     ============\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM51\r\nC     ============\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM41\r\nC     ============\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM31\r\nC     ============\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM21\r\nC     ============\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM11\r\nC     ============\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1       'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sdumx2.f",
    "content": "      SUBROUTINE SDUMX2\r\nC\r\nC     DELETE ANY OF THE FOLLOW ENTRY POINT IF A SUBROUTINE OF THE SAME\r\nC     NAME ALREADY EXISTS\r\nC\r\n      INTEGER         II(9),KK(9)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      DATA    II    / 9*0/,   JJ /4HSDUM/,     KK /\r\n     1        2H12,2H22,2H32,2H42,2H52,2H62,2H72,2H82,2H92 /\r\nC\r\n      GO TO 30\r\nC\r\nC\r\n      ENTRY SDUM92\r\nC     ============\r\nC\r\n      J = 9\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM82\r\nC     ============\r\nC\r\n      J = 8\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM72\r\nC     ============\r\nC\r\n      J = 7\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM62\r\nC     ============\r\nC\r\n      J = 6\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM52\r\nC     ============\r\nC\r\n      J = 5\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM42\r\nC     ============\r\nC\r\n      J = 4\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM32\r\nC     ============\r\nC\r\n      J = 3\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM22\r\nC     ============\r\nC\r\n      J = 2\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SDUM12\r\nC     ============\r\nC\r\n      J = 1\r\nC     GO TO 10\r\nC\r\n   10 IF (II(J) .NE. 0) GO TO 30\r\n      II(J)  = 1\r\n      WRITE  (NOUT,20) UWM,JJ,KK(J)\r\n   20 FORMAT (A25,' 2182, SUBROUTINE ',2A4,' IS DUMMY.  ONLY ONE OF ',\r\n     1       'THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.')\r\n   30 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/seemat.f",
    "content": "      SUBROUTINE SEEMAT\r\nC\r\nC     SUBROUTINE SEEMAT IS THE DMAP DRIVER FOR UTILITY MODULE SEEMAT\r\nC     WHOSE DMAP CALL FOLLOWS\r\nC\r\nC     SEEMAT    A,B,C,D,E//C,N,PRINT(PLOT)/V,N,PFILE/C,N,FSIZE/\r\nC                          C,N,MODIDA/C,N,MODELA/C,N,PAPERX/C,N,PAPERY\r\nC\r\nC     INPUT DATA BLOCKS  - A,B,C,D,E ARE MATRICES, ANY OF WHICH MAY BE\r\nC                          PURGED.\r\nC\r\nC     OUTPUT DATA BLOCKS - NONE\r\nC\r\nC     PARAMETERS\r\nC       1. BCD, -PRINT- MEANS USE SYSTEM PRINTER (DEFAULT).\r\nC               -PLOT- MEANS USE SPECIFIED PLOTTER.\r\nC       2. INTEGER, PLOT COUNTER (INPUT + OUTPUT).\r\nC       3. INTEGER, FRAME SIZE = NUMBER OF CHARACTERS TO BE TYPED\r\nC                   IN AN ASSUMED SQUARE FRAME (DEFAULT=100).\r\nC       4. BCD, MODEL ID (DEFAULT=M).\r\nC       5. INTEGER, MODEL NUMBER (DEFAULT=1).\r\nC       6. REAL, X DIMENSION OF PLOT FRAME (DEFAULT=0.0).\r\nC       7. REAL, Y DIMENSION OF PLOT FRAME (DEFAULT=0.0).\r\nC      NOTE - PARAMETERS 2-7 ARE USED ONLY IF PARAMETER 1 = -PLOT-.\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      LOGICAL         TABLE,SQ,PLOTIT,PRNTIT,TAPBIT,NOBITS\r\n      INTEGER         NAME(5),GOBAC,BLANK,XSTAR,XDOLR,XDDDD,SEEMT(2),\r\n     1                A,B,C,IT(7),SYSBUF,EOL,EOR,IRO(10),IX(1),LBL(2),\r\n     2                ANDF,ORF,KPP(2),PLUS,BCOR,SYMBL(2),MODID(2),\r\n     3                TTL1(9),TTL2(4),TTL3(4),TTL4(3),LIN(25),\r\n     4                PP,PFILE,FSIZE,PLTTER,PLTYPE,PLOTER,PLTBUF,TWO\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,JAZZ1(6),NLINES,JAZZ2(2),LNCT,\r\n     1                JAZZ3(26),NBPC,NBPW,NCPW\r\n      COMMON /BLANK / PP(2),PFILE,FSIZE,MODIDA(2),MODELA,PAPERX,PAPERY\r\n      COMMON /ZZZZZZ/ X(1)\r\n      COMMON /ZNTPKX/ Z(4),IZ,EOL,EOR\r\n      COMMON /PLTDAT/ MODEL,PLTTER,REGION(4),AXMAX,AYMAX,EDGE(12),\r\n     1                SKPA(9),PLTYPE,PLOTER\r\n      COMMON /XXPARM/ PLTBUF,KAMRAN,NBLFM,SKPARM(4),PAPSIZ(2)\r\n      COMMON /TWO   / TWO(32)\r\n      EQUIVALENCE     (X(1),IX(1)),(IRO(1),ICOL1),(IRO(2),IBLCU1),\r\n     1                (IRO(3),IBLCU2),(IRO(4),JBLCU1),(IRO(5),JBLCU2),\r\n     2                (IRO(6),A,IPIJ1),(IRO(7),B,IPIJ2),(IRO(8),C),\r\n     3                (IT(1),NAM ),(IT(2),NCOLS),(IT(3),NROWS),\r\n     4                (IT(5),ITYP)\r\n      DATA    NAME  , SEEMT /101,102,103,104,105,4HSEEM,4HAT   /\r\n      DATA    BLANK , NCC,XSTAR,XDOLR,XDDDD/1H ,100,1H*,1H$,1HD/\r\n      DATA    KPP   / 4HPLOT,4H    /\r\n      DATA    PLUS  / 4H+   /\r\n      DATA    TTL1  / 4HSEEM,4HAT D,4HISPL,4HAY O,4HF MA,4HTRIX,\r\n     1                4H DAT,4HA BL,4HOCK /\r\n      DATA    TTL2  / 4HNO. ,4HCOLU,4HMNS ,4H=   /\r\n      DATA    TTL3  / 4HNO. ,4H  RO,4HWS  ,4H=   /\r\n      DATA    TTL4  / 4H(TRA,4HNSPO,4HSED)/\r\nC\r\n      NCC    = 100\r\n      PLOTIT =.FALSE.\r\n      PRNTIT =.TRUE.\r\n      NLNXX  = NLINES\r\n      IF (PP(1).NE.KPP(1) .OR. PP(2).NE.KPP(2)) GO TO 20\r\n      PLOTIT =.TRUE.\r\n      PRNTIT =.FALSE.\r\n      TABLE  =.FALSE.\r\n      NCC    = FSIZE\r\n      FNCC   = NCC\r\n      NLNXX  = NCC\r\n   20 LCOR   = KORSZ(X) - SYSBUF\r\nC\r\n      NCC1   = NCC/4\r\n      NCC5   = NCC - 5\r\n      LBLK   = (NCC*NLNXX-1)/32 + 3\r\n      IF (PRNTIT) GO TO 90\r\nC\r\nC     INITIALIZE PLOTTER\r\nC\r\n      MODID(1) = MODIDA(1)\r\n      MODID(2) = MODELA\r\n      CALL FNDPLT (PLTTER,MODEL,MODID)\r\n      PAPSIZ(1) = PAPERX\r\n      PAPSIZ(2) = PAPERY\r\n      KAMRAN = 3\r\n      NBLKFM = 0\r\n      CALL PLTSET\r\n      LCOR = LCOR - PLTBUF\r\n      KCOR = LCOR + SYSBUF + 1\r\n      IF (LCOR .LE. 0) CALL MESAGE (-8,SQ,SEEMT)\r\n      BCOR = LCOR - NCC1\r\n      IF (TAPBIT(PLOTER)) GO TO 70\r\n      WRITE  (NOUT,65) UWM,PLOTER\r\n   65 FORMAT (A25,' 1704, PLOT FILE -',A4,'- NOT SET UP')\r\n      GO TO 9999\r\n   70 IF (IABS(PLTYPE).NE.1) TABLE = .TRUE.\r\n      REGION(3) = AMIN1(AXMAX,AYMAX)\r\n      REGION(4) = REGION(3)\r\n      AXMAX = REGION(3)\r\n      AYMAX = REGION(4)\r\n      CALL MAPSET (0,0,1.01*FNCC,1.01*FNCC,0,0,AXMAX,AYMAX,2)\r\n      CALL MAP (0.005*FNCC,0.005*FNCC,BLLX,BLLY)\r\n      CALL MAP (1.005*FNCC,0.005*FNCC,BLRX,BLRY)\r\n      CALL MAP (1.005*FNCC,1.005*FNCC,BURX,BURY)\r\n      CALL MAP (0.005*FNCC,1.005*FNCC,BULX,BULY)\r\n      GO TO 90\r\n   85 CALL MESAGE (-1,PLOTER,SEEMT)\r\n   90 CONTINUE\r\nC\r\n      DO 9998 III = 1,5\r\nC\r\n      NAM = NAME(III)\r\n      CALL RDTRL (IT)\r\n      IF (NAM .LE. 0) GO TO 9998\r\n      CALL GOPEN (NAM,X(LCOR+1),0)\r\n      CALL FNAME (NAM,LBL)\r\n      SQ = .TRUE.\r\n      IF (NCOLS .NE. NROWS) SQ = .FALSE.\r\n      NBLKS = 0\r\n      NCOL1 = 0\r\n      IJMAX = MAX0(NCOLS,NROWS)\r\n      NROWS1= NROWS + 1\r\n      IF (PRNTIT) GO TO 95\r\n      IF (TABLE ) GO TO 92\r\n      PFILE = PFILE + 1\r\n      CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF)\r\n      CALL STPLOT (PFILE)\r\n      CALL MAP   (0.23*FNCC,0.50*FNCC,XXXX,YYYY)\r\n      CALL PRINT (XXXX,YYYY,1,TTL1,9,-1)\r\n      CALL PRINT (XXXX,YYYY,1,TTL1,9, 0)\r\n      CALL MAP   (0.60*FNCC,0.50*FNCC,XXXX,YYYY)\r\n      CALL PRINT (XXXX,YYYY,1,LBL,2,0)\r\n      CALL MAP   (0.75*FNCC,0.50*FNCC,XXXX,YYYY)\r\n      CALL PRINT (XXXX,YYYY,1,TTL4,3,0)\r\n      CALL MAP   (0.40*FNCC,0.40*FNCC,XXXX,YYYY)\r\n      CALL PRINT (XXXX,YYYY,1,TTL3,4,0)\r\n      CALL MAP   (0.40*FNCC,0.30*FNCC,XXXX,YYYY)\r\n      CALL PRINT (XXXX,YYYY,1,TTL2,4,0)\r\n      CALL MAP   (0.55*FNCC,0.40*FNCC,XXXX,YYYY)\r\n      CALL TYPINT (XXXX,YYYY,1,NROWS,0, 0)\r\n      CALL MAP   (0.55*FNCC,0.30*FNCC,XXXX,YYYY)\r\n      CALL TYPINT (XXXX,YYYY,1,NCOLS,0, 0)\r\n      CALL LINE (BLLX,BLLY,BULX,BULY,1,-1)\r\n      CALL LINE (BLLX,BLLY,BULX,BULY,1, 0)\r\n      CALL LINE (BULX,BULY,BURX,BURY,1, 0)\r\n      CALL LINE (BURX,BURY,BLRX,BLRY,1, 0)\r\n      CALL LINE (BLRX,BLRY,BLLX,BLLY,1, 0)\r\n      CALL STPLOT (-1)\r\n   92 CALL PAGE1\r\n      LNCT = LNCT + 5\r\n      WRITE  (NOUT,93) LBL(1),LBL(2),NCOLS,NROWS\r\n   93 FORMAT (//5X,'SEEMAT PLOT FOR TRANSPOSE OF', /22X,'MATRIX DATA ',\r\n     1       'BLOCK ',2A4,11X,'PLOT FILE ','    R','     C', /10X,\r\n     2       'SIZE =',I6,' ROWS BY',I6,' COLUMNS')\r\n      IF (TABLE) GO TO 95\r\n      WRITE  (NOUT,94) PFILE\r\n   94 FORMAT (1H0,62X,I5,2X,12HHEADER FRAME)\r\n   95 CONTINUE\r\nC\r\nC\r\nC     LOOP ON COLUMNS OF MATRIX\r\nC\r\n      NCOL = 1\r\n  100 CONTINUE\r\n      CALL INTPK (*2100,NAM,0,ITYP,0)\r\nC\r\nC     IF COLUMN IS NULL, RETURN FROM INTPK IS TO STATEMENT 2100\r\nC     ITY IS TYPE OF ELEMENT STORED IN Z, NOT USED IN THIS PROGRAM\r\nC     BLOCK IS DUMMY ENTRY NOT USED BY INTPK\r\nC\r\nC     LOOP ON ROWS OF MATRIX\r\nC\r\n      NROW = 1\r\n  200 CONTINUE\r\n      IF (EOL .NE. 0) GO TO 2100\r\nC\r\nC     READ ELEMENT OF MATRIX INTO /ZNTPKX/\r\nC\r\n      CALL ZNTPKI\r\nC\r\nC     COMPUTE BLOCK ID IN WHICH ELEMENT BELONGS\r\nC\r\nC     LOOK AT CURRENT BLOCK FIRST\r\nC\r\n      IF (NBLKS .LE. 0) GO TO 1045\r\n      IF (NCOL.LE.JBLCU1 .OR. NCOL.GT.JBLCU2 .OR. IZ.LE.IBLCU1 .OR.\r\n     1    IZ.GT.IBLCU2) GO TO 1020\r\n      NBLK = NBLCUR\r\n      GO TO 1050\r\nC\r\nC     SEARCH ALL BLOCKS TO FIND OLD ONE IN WHICH ELEMENT LIES\r\nC\r\n 1020 DO 1040 I2 = 1,NBLKS\r\n      IP  = LBLK*(I2-1) + 1\r\n      IP1 = IP + 2\r\n      IBLCU1 = IX(IP)\r\n      IBLCU2 = IBLCU1 + NCC\r\n      JBLCU1 = IX(IP+1)\r\n      JBLCU2 = JBLCU1 + NLNXX\r\n      IF (NCOL.LE.JBLCU1 .OR. NCOL.GT.JBLCU2 .OR. IZ.LE.IBLCU1 .OR.\r\n     1    IZ.GT.IBLCU2) GO TO 1040\r\n      NBLK = I2\r\n      GO TO 1050\r\n 1040 CONTINUE\r\n 1045 NBLK = -1\r\n 1050 IF (NBLK .GT. 0) GO TO 1100\r\nC\r\nC     SET UP NEW BLOCK IF THERE IS ROOM FOR IT IN CORE\r\nC\r\n      NBLKS1 = NBLKS + 1\r\n      IF (LBLK*NBLKS1 .LE. LCOR) GO TO 1070\r\n      WRITE  (NOUT,1060) SWM,NBLKS1\r\n 1060 FORMAT (A27,' 1701, AVAILABLE CORE EXCEEDED BY',I10,' LINE IMAGE',\r\n     1       ' BLOCKS.')\r\n      NBLKS  = -1\r\n      GO TO 9960\r\nC\r\nC     SET BLOCK POINTERS AND BLANK OUT LINE IMAGE\r\nC\r\n 1070 IP  = LBLK*NBLKS + 1\r\n      IP1 = IP + 2\r\n      IP2 = IP + LBLK - 1\r\n      DO 1071 I = IP1,IP2\r\n 1071 IX(I) = 0\r\n      DO 1074 IJM = 1,IJMAX\r\n      IF (IJM*NCC .LT. IZ) GO TO 1074\r\n      IX(IP) = NCC*(IJM-1)\r\n      GO TO 1075\r\n 1074 CONTINUE\r\n      KERROR = 1074\r\n      GO TO 9950\r\n 1075 DO 1079 IJM = 1,IJMAX\r\n      IF (IJM*NLNXX .LT. NCOL) GO TO 1079\r\n      IX(IP+1) = NLNXX*(IJM-1)\r\n      GO TO 1080\r\n 1079 CONTINUE\r\n      KERROR = 1079\r\n      GO TO 9950\r\n 1080 IBLCU1 = IX(IP)\r\n      IBLCU2 = IBLCU1 + NCC\r\n      JBLCU1 = IX(IP+1)\r\n      JBLCU2 = JBLCU1 + NLNXX\r\n      NBLKS  = NBLKS1\r\n      NBLCUR = NBLKS\r\n      IF (NBLKS .LE. 0) GO TO 9997\r\nC\r\nC     INSERT BIT INTO PACKED LINE IMAGE BLOCK\r\nC\r\n 1100 A = NCC*(NCOL-IX(IP+1)-1) + (IZ-IX(IP))\r\n      B = (A-1)/32\r\n      C = IP1 + B\r\n      B = A - 32*B\r\n      IX(C) = ORF(IX(C),TWO(B))\r\nC\r\nC     END OF LOOP ON ROWS\r\nC\r\n      NROW = NROW + 1\r\n      IF (NROW .LE. NROWS1) GO TO 200\r\n      KERROR = 2000\r\n      GO TO 9950\r\n 2100 IF (NCOL-NCOL1 .LT. NLNXX) GO TO 3000\r\nC\r\nC     OUTPUT GROUP OF LINE IMAGE BLOCKS\r\nC\r\n      ASSIGN 2200 TO GOBAC\r\n      GO TO 9500\r\n 2200 NBLKS = 0\r\n      NCOL1 = NCOL1 + NLNXX\r\nC\r\nC     END OF LOOP ON COLUMNS\r\nC\r\n 3000 NCOL = NCOL + 1\r\n      IF (NCOL .LE. NCOLS) GO TO 100\r\nC\r\nC     OUTPUT RESIDUAL LINE IMAGE BLOCKS\r\nC\r\n      ASSIGN 3050 TO GOBAC\r\n      GO TO 9500\r\n 3050 NBLKS = 0\r\n      GO TO 9997\r\nC\r\nC     OUTPUT GROUP OF LINE IMAGE BLOCKS\r\nC\r\n 9500 CONTINUE\r\n      IF (NBLKS .LE. 0) GO TO 9699\r\n      DO 9650 I = 1,NBLKS\r\n      IP = LBLK*(I-1) + 1\r\n      IF (PRNTIT) CALL PAGE1\r\n      I1 = IX(IP)\r\n      J100 = I1 + NCC\r\n      DO 9510 IJ = 1,10\r\n 9510 IRO(IJ) = I1 + 10*IJ\r\n      IF (PRNTIT) WRITE (NOUT,9520) (IRO(IJ),IJ=1,10)\r\n 9520 FORMAT (13H0TRANSPOSE OF,9X,8HCOLUMN..,10I10)\r\n      IF (PRNTIT) WRITE (NOUT,9530) LBL(1),LBL(2)\r\n 9530 FORMAT (8H MATRIX ,2A4,7X,3HROW,4X,10(9X,1H.),\r\n     1        /23X,3H...,4X,100(1H.)/24X,1H.)\r\n      ICOL1 = IX(IP+1)\r\n      I100  = ICOL1 + NLNXX\r\n      IP1   = IP - NCC1 + 1\r\n      IF (PRNTIT) GO TO 9535\r\n      PFILE = PFILE + 1\r\n      CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF)\r\n      CALL STPLOT (PFILE)\r\n      CALL TIPE (XXXX,YYYY,1,PLUS,1,-1)\r\n      IPAK  = (NCC+99)/100\r\n      IJA   = 5*IPAK\r\n      IJB   = NCC - IJA\r\n      FNCCY = 1.005*FNCC\r\n      DO 9531 IJ = IJA,IJB,IJA\r\n      FIJ = FLOAT(IJ)\r\n      CALL MAP (FIJ,FNCCY,XXXX,YYYY)\r\n 9531 CALL TIPE (XXXX,YYYY,1,PLUS,1,0)\r\n      FNCCX = 1.005*FNCC\r\n      DO 9532 IJ = IJA,IJB,IJA\r\n      FIJ = FNCC - FLOAT(IJ)\r\n      CALL MAP (FNCCX,FIJ,XXXX,YYYY)\r\n 9532 CALL TIPE (XXXX,YYYY,1,PLUS,1,0)\r\n      FNCCY = 0.005*FNCC\r\n      DO 9533 IJ = IJA,IJB,IJA\r\n      FIJ = FNCC - FLOAT(IJ)\r\n      CALL MAP (FIJ,FNCCY,XXXX,YYYY)\r\n 9533 CALL TIPE (XXXX,YYYY,1,PLUS,1,0)\r\n      FNCCX = 0.005*FNCC\r\n      DO 9534 IJ = IJA,IJB,IJA\r\n      FIJ = FLOAT(IJ)\r\n      CALL MAP (FNCCX,FIJ,XXXX,YYYY)\r\n 9534 CALL TIPE (XXXX,YYYY,1,PLUS,1,0)\r\n 9535 DO 9600 IJ = 1,NLNXX\r\n      IP1   = IP1 + NCC1\r\n      IPIJ1 = IP1 + 1\r\n      IPIJ2 = IP1 + NCC1\r\n      IB    = NCC*(IJ-1)\r\n      IW    = IB/32\r\n      IB    = IB - 32*IW\r\n      IW    = IW + IP + 2\r\n      NOBITS= .TRUE.\r\n      IF (PLOTIT) GO TO 9570\r\n      DO 9536 JJ = 1,NCC1\r\n 9536 LIN(JJ) = BLANK\r\n      DO 9540 JJ = 1,NCC\r\n      IB = IB + 1\r\n      IF (IB .LE. 32) GO TO 9537\r\n      IB = 1\r\n      IW = IW + 1\r\n 9537 IF (ANDF(IX(IW),TWO(IB)).EQ.0) GO TO 9540\r\n      NOBITS = .FALSE.\r\n      B   = (JJ-1)/4 + 1\r\n      C   = JJ - 4*(B-1)\r\n      IXX = XSTAR\r\n      IF (IX(IP+1)+IJ.EQ.NCOLS .OR. IX(IP)+JJ.EQ.NROWS) IXX = XDOLR\r\n      IF (SQ .AND. IX(IP+1)+IJ.EQ.IX(IP)+JJ) IXX = XDDDD\r\n      LIN(B) = KHRFN1(LIN(B),C,IXX,1)\r\n 9540 CONTINUE\r\n      IF (NOBITS) GO TO 9560\r\n      IF (MOD(IJ,5) .EQ. 0) GO TO 9550\r\n      WRITE  (NOUT,9545) (LIN(JJ),JJ=1,NCC1)\r\n 9545 FORMAT (28X,2H. ,25A4)\r\n      GO TO 9600\r\n 9550 ICOL1 = ICOL1 + 5\r\n      WRITE  (NOUT,9555) ICOL1,(LIN(JJ),JJ=1,NCC1)\r\n 9555 FORMAT (16X,I10,4H .. ,25A4)\r\n      GO TO 9600\r\n 9560 IF (MOD(IJ,5) .EQ. 0) GO TO 9565\r\n      WRITE (NOUT,9545)\r\n      GO TO 9600\r\n 9565 ICOL1 = ICOL1 + 5\r\n      WRITE (NOUT,9555) ICOL1\r\n      GO TO 9600\r\n 9570 FIJ = 101.0 - FLOAT(IJ)\r\n      DO 9580 JJ = 1,NCC\r\n      IB = IB + 1\r\n      IF (IB .LE. 32) GO TO 9577\r\n      IB = 1\r\n      IW = IW + 1\r\n 9577 IF (ANDF(IX(IW),TWO(IB)) .EQ. 0) GO TO 9580\r\n      NOBITS = .FALSE.\r\n      FJJ = FLOAT(JJ)\r\n      CALL MAP (FJJ,FIJ,XXXX,YYYY)\r\n      IF (SQ .AND. IX(IP+1)+IJ.EQ.IX(IP)+JJ) GO TO 9579\r\n      IF (IX(IP+1)+IJ.EQ.NCOLS .OR. IX(IP)+JJ.EQ.NROWS) GO TO 9578\r\n      CALL TIPE (XXXX,YYYY,1,XSTAR,1,0)\r\n      GO TO 9580\r\n 9578 CALL TIPE (XXXX,YYYY,1,XDOLR,1,0)\r\n      GO TO 9580\r\n 9579 CALL TIPE (XXXX,YYYY,1,XDDDD,1,0)\r\n 9580 CONTINUE\r\n 9600 CONTINUE\r\n      IF (PRNTIT) WRITE (NOUT,9640)\r\n 9640 FORMAT (1H0,29X,100(1H.)/30X,10(9X,1H.))\r\n      IF (PRNTIT) GO TO 9650\r\n      CALL STPLOT (-1)\r\n      LNCT = LNCT + 1\r\n      IF (LNCT .GT. NLINES) CALL PAGE1\r\n      WRITE  (NOUT,9645) PFILE,I100,J100\r\n 9645 FORMAT (1H ,62X,I5,2I6)\r\n 9650 CONTINUE\r\nC\r\n 9699 GO TO GOBAC, (2200,3050)\r\nC\r\n 9950 WRITE  (NOUT,9952) SWM,KERROR\r\n 9952 FORMAT (A27,' 1705, LOGIC ERROR AT STATEMENT',I5,\r\n     1       ' IN SUBROUTINE SEEMAT.')\r\n 9960 WRITE  (NOUT,9962) SIM,LBL\r\n 9962 FORMAT (A31,' 1702, UTILITY MODULE SEEMAT WILL ABANDON ',\r\n     1       'PROCESSING DATA BLOCK ',2A4 )\r\n 9997 CALL CLOSE (NAM,1)\r\n      IF (PRNTIT) GO TO 9998\r\n      IF (TABLE ) GO TO 9998\r\n      PFILE = PFILE + 1\r\n      CALL SOPEN (*85,PLOTER,X(KCOR),PLTBUF)\r\n      CALL STPLOT (PFILE)\r\n      CALL LINE (BLLX,BLLY,BURX,BURY,1,-1)\r\n      CALL LINE (BLLX,BLLY,BURX,BURY,1, 0)\r\n      CALL LINE (BULX,BULY,BURX,BURY,1, 0)\r\n      CALL LINE (BULX,BULY,BLRX,BLRY,1, 0)\r\n      CALL LINE (BLRX,BLRY,BLLX,BLLY,1, 0)\r\n      CALL LINE (BLLX,BLLY,BULX,BULY,1, 0)\r\n      CALL LINE (BURX,BURY,BLRX,BLRY,1, 0)\r\n      SYMBL(1) = 3\r\n      SYMBL(2) = 6\r\n      CALL MAP (0.505*FNCC,0.505*FNCC,XXXX,YYYY)\r\n      CALL SYMBOL (XXXX,YYYY,SYMBL,-1)\r\n      CALL SYMBOL (XXXX,YYYY,SYMBL, 0)\r\n      CALL STPLOT (-1)\r\n      LNCT = LNCT + 1\r\n      WRITE  (NOUT,9996) PFILE\r\n 9996 FORMAT (63X,I5,2X,13HTRAILER FRAME)\r\n 9998 CONTINUE\r\n 9999 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/selas1.f",
    "content": "      SUBROUTINE SELAS1(IARG)\r\nC*****\r\nC THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE ELAS ELEMENTS.\r\nC\r\nC\r\nC\r\nC*****\r\nC\r\nC\r\nC\r\nC              E C P T - S  F O R  E L A S  E L E M E N T S\r\nC\r\nC\r\nC\r\nC                  TYPE             TYPE           TYPE           TYPE\r\nC         CELAS1           CELAS2         CELAS3         CELAS4\r\nC ECPT(1) IELID     I      IELID     I    IELID      I   IELID      I\r\nC ECPT(2) IGP1      I      K         R    IS1        I   K          R\r\nC ECPT(3) IGP2      I      IGP1      I    IS2        I   IS1        I\r\nC ECPT(4) IC1       I      IGP2      I    K          R   IS2        I\r\nC ECPT(5) IC2       I      IC1       I    GSUBE      R\r\nC ECPT(6) K         R      IC2       I    S          R\r\nC ECPT(7) GSUBE     R      GSUBE     R\r\nC ECPT(8) S         R      S         R\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   IECPT(6)\r\nC\r\nC SDR2 PHASE I INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X5/\r\n     A                   ECPT(100),\r\n     1                   JELID              ,ISILNO(2)\r\n     2,                  STIFF              ,SCOEFF\r\n     3,                  DUMMY(120)\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (IECPT(1),ECPT(1)) ,(SCOEFF,ICOEFF)\r\nC\r\nC BUILD UP OUTPUT BLOCK DEPENDING UPON WHICH ELEMENT TYPE, ELAS1, ELAS2,\r\nC ELAS3 OR ELAS4, IS BEING WORKED ON.\r\nC\r\n      GO TO (10,20,30,40),IARG\r\nC\r\nC ELAS1\r\nC\r\n   10 ISILNO(1) = IECPT(2) + IECPT(4)\r\n      ISILNO(2) = IECPT(3) + IECPT(5)\r\n      IF (IECPT(4) .GT. 0) ISILNO(1) = ISILNO(1) - 1\r\n      IF (IECPT(5) .GT. 0) ISILNO(2) = ISILNO(2) - 1\r\n      STIFF  = ECPT(6)\r\n      SCOEFF = ECPT(8)\r\n      GO TO 50\r\nC\r\nC ELAS2\r\nC\r\n   20 ISILNO(1) = IECPT(3) + IECPT(5)\r\n      ISILNO(2) = IECPT(4) + IECPT(6)\r\n      IF (IECPT(5) .GT. 0) ISILNO(1) = ISILNO(1) - 1\r\n      IF (IECPT(6) .GT. 0) ISILNO(2) = ISILNO(2) - 1\r\n      STIFF  = ECPT(2)\r\n      SCOEFF = ECPT(8)\r\n      GO TO 50\r\nC\r\nC ELAS3\r\nC\r\n   30 ISILNO(1) = IECPT(2)\r\n      ISILNO(2) = IECPT(3)\r\n      STIFF  = ECPT(4)\r\n      SCOEFF = ECPT(6)\r\n      GO TO 50\r\nC\r\nC ELAS4\r\nC\r\n   40 ISILNO(1) = IECPT(3)\r\n      ISILNO(2) = IECPT(4)\r\n      STIFF  = ECPT(2)\r\n      ICOEFF = -1\r\nC\r\nC STORE ELEMENT ID.\r\nC\r\n   50 JELID = IECPT(1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/selas2.f",
    "content": "      SUBROUTINE SELAS2\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE SCALAR SPRING\r\nC ELEMENTS ELAS1, ELAS2, ELAS3 AND ELAS4.\r\nC*****\r\nC\r\nC\r\nC\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION.\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUMMY(33)          ,ICSTM\r\n     2,                  NCSTM              ,IVEC\r\n     3,                  IVECN              ,TEMPLD\r\n     4,                  ELDEFM\r\nC\r\nC SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   JELID              ,ISILNO(2)\r\n     2,                  STIFF              ,SCOEFF\r\n     3,                  XXXXXX(95)\r\n     4,                  JSELID             ,STRESS\r\n     5,                  YYYYYY(98)\r\n     6,                  JFELID             ,FORCE\r\n     7,                  ZZZZZZ(23)\r\n      EQUIVALENCE\r\n     1                   (SCOEFF,ICOEFF)\r\nC\r\nC\r\nC\r\n      IDISP = IVEC - 1\r\n      DISP1 = 0.0\r\n      DISP2 = 0.0\r\n      IF (ISILNO(1) .LE. 0) GO TO 10\r\n      IU = IDISP + ISILNO(1)\r\n      DISP1 = ZZ(IU)\r\n   10 IF (ISILNO(2) .LE. 0) GO TO 20\r\n      IU = IDISP + ISILNO(2)\r\n      DISP2 = ZZ(IU)\r\n   20 JFELID = JELID\r\n      FORCE = STIFF * (DISP1 - DISP2)\r\n      IF (ICOEFF .EQ. (-1)) RETURN\r\n      STRESS = SCOEFF * FORCE\r\n      JSELID = JELID\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/selbo1.f",
    "content": "      SUBROUTINE SELBO1\r\nC\r\nC     THIS ROUTINE IS PHASE 1 OF STRESS DATA RECOVERY FOR THE ELBOW\r\nC     ELEMENT MUCH OF THE CODE WAS LIFTED FROM THE KELBOW SUBROUTINE\r\nC\r\nC     ECPT FOR THE ELBOW\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NUMBER\r\nC     ECPT( 2)  -  ISILNO(2)      * SCALAR INDEX NOS. OF THE GRID POINTS\r\nC     ECPT( 3)  -    ...          *\r\nC     ECPT( 4)  -  SMALLV(3)      $ REFERENCE VECTOR\r\nC     ECPT( 5)  -    ...          $\r\nC     ECPT( 6)  -    ...          $\r\nC     ECPT( 7)  -  ICSSV          COOR. SYS. ID FOR SMALLV VECTOR\r\nC     ECPT( 8)  -  IMATID         MATERIAL ID.\r\nC     ECPT( 9)  -  A              CROSS-SECTIONAL AREA\r\nC     ECPT(10)  -  I1             $ AREA MOMENTS OF INERTIA\r\nC     ECPT(11)  -  I2             $\r\nC     ECPT(12)  -  FJ             TORSIONAL CONSTANT\r\nC     ECPT(13)  -  NSM            NON-STRUCTURAL MASS\r\nC     ECPT(14)  -  FE             FORCE ELEM. DESCRIPTIONS, FORCE METHOD\r\nC     ECPT(15)  -  R1             *STRESS RECOVERY COEFFICIENTS\r\nC     ECPT(16)  -  T1             *  RI=RADIAL LOCATION\r\nC     ECPT(17)  -  R2             *  TI=ANGULAR LOCATION\r\nC     ECPT(18)  -  T2             *     OF STRESS RECOVERY POINTS\r\nC     ECPT(19)  -  R3             *\r\nC     ECPT(20)  -  T3             *\r\nC     ECPT(21)  -  R4             *\r\nC     ECPT(22)  -  T4             *\r\nC     ECPT(23)  -  K1             $ AREA FACTOR FOR SHEAR\r\nC     ECPT(24)  -  K2             $\r\nC     ECPT(25)  -  C              STRESS INTENSIFICATION FACTOR\r\nC     ECPT(26)  -  KX             * FLEXIBILITY CORRECTION FACTORS\r\nC     ECPT(27)  -  KY             *\r\nC     ECPT(28)  -  KZ             *\r\nC     ECPT(29)  -  R              RADIUS OF CURVATURE\r\nC     ECPT(30)  -  BETAR          ANGLE FROM GA TO GB\r\nC     ECPT(31)  -  MCSIDA         COORD. SYS. ID. FOR GRID POINT A\r\nC     ECPT(32)  -  GPA(3)         *BASIC COORD. FOR GRID POINT A\r\nC     ECPT(33)  -   ...           *\r\nC     ECPT(34)  -   ...           *\r\nC     ECPT(35)  -  MCSIDB         COORD. SYS. ID. FOR GRID POINT B\r\nC     ECPT(36)  -  GPB(3)         *BASIC COORD. FOR GRID POINT B\r\nC     ECPT(37)  -   ...           *\r\nC     ECPT(38)  -   ...           *\r\nC     ECPT(39)  -  ELTEMP         AVG. ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL         ABASIC,BBASIC,BASIC\r\n      REAL            L,I1,I2,K1,K2,KE,KEP,NSM,HUT( 6),KEE(12,12),\r\n     1                KX,KY,KZ\r\n      DIMENSION       VECI(3),VECJ(3),VECK(3),ECPT(100),IECPT(100),\r\n     1                TA(18),TB(9),SMALV0(6),DP(20),F(6,6),S(12,12),\r\n     2                H(6,6),DF(6,6)\r\n      COMMON /SDR2X5/ IELID,ISILNO(2),SMALLV(3),ICSSV,IMATID,A,I1,I2,\r\n     1                FJ,NSM,FE,C1,C2,D1,D2,F1,F2,G1,G2,K1,K2,C,\r\n     2                KX,KY,KZ,R,BETAR,MCSIDA,GPA(3),MCSIDB,GPB(3),\r\n     3                TEMPEL,DUM3(61)\r\n      COMMON /SDR2X5/ JELID,JSILNO(2),SA(36),SB(36),OUT(21),THERM(30)\r\n      COMMON /SDR2X6/ KE(144),KEP(144),DELA(6),DELB(6)\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E,G,NU,RHO,ALPHA,T SUB 0,GSUBE,SIGT,SIGC,SIGS\r\n      EQUIVALENCE     (IELID,ECPT(1),IECPT(1)), (TA(10),TB(1)),\r\n     1                (KEE(1,1),KE(1),S(1,1))\r\n      DATA    DCR   / .017453292 /\r\nC\r\n      SID(X) = SIN(X*DCR)\r\n      COD(X) = COS(X*DCR)\r\n      DTR(X) = X*DCR\r\nC\r\n      X    = 1.0\r\n      ISOP = -1\r\nC\r\nC     SET UP POINTERS TO COORD. SYSTEM IDS\r\nC\r\n      JCSIDA = 31\r\n      JCSIDB = 35\r\n      ICSIDA = IECPT(31)\r\n      ICSIDB = IECPT(35)\r\nC\r\nC     DEFINE LOCATION OF END A, END B IN TERMS OF DP(1) THRU DP(6)\r\nC\r\n      DP(1) = ECPT(JCSIDA+1)\r\n      DP(2) = ECPT(JCSIDA+2)\r\n      DP(3) = ECPT(JCSIDA+3)\r\n      DP(4) = ECPT(JCSIDB+1)\r\n      DP(5) = ECPT(JCSIDB+2)\r\n      DP(6) = ECPT(JCSIDB+3)\r\nC\r\nC     DEFINE COMPONENTS OF VECTOR FROM END A TO CENTER OF CURVATURE,C\r\nC\r\n      DP(7) = ECPT(4)\r\n      DP(8) = ECPT(5)\r\n      DP(9) = ECPT(6)\r\n      FLD   = SQRT(DP(7)**2 + DP(8)**2 + DP(9)**2)\r\n      DP(7) = DP(7)/FLD\r\n      DP(8) = DP(8)/FLD\r\n      DP(9) = DP(9)/FLD\r\nC\r\nC     DETERMINE IF POINT A AND B ARE IN BASIC COORDINATES\r\nC\r\n      ABASIC =.TRUE.\r\n      BBASIC =.TRUE.\r\n      IF (ICSIDA .NE. 0) ABASIC =.FALSE.\r\n      IF (ICSIDB .NE. 0) BBASIC =.FALSE.\r\nC\r\nC     COMPUTE THE TRANSFORMATION MATRICES TA AND TB IF NECESSARY\r\nC\r\n      IF (ABASIC) GO TO 60\r\n      CALL TRANSS (ECPT(JCSIDA),TA)\r\n      CALL GMMATS (TA,3,3,0, DP(7),3,1,0, VECJ)\r\n      CALL GMMATS (TA,3,3,0, DP(1),3,1,0, DP(14))\r\n      DP(1) = DP(14)\r\n      DP(2) = DP(15)\r\n      DP(3) = DP(16)\r\n      GO TO 61\r\n   60 CONTINUE\r\n      VECJ(1) = DP(7)\r\n      VECJ(2) = DP(8)\r\n      VECJ(3) = DP(9)\r\n   61 IF (BBASIC) GO TO 62\r\n      CALL TRANSS (ECPT(JCSIDB),TB)\r\n      CALL GMMATS (TB,3,3,0, DP(4),3,1,0, DP(14))\r\n      DP(4) = DP(14)\r\n      DP(5) = DP(15)\r\n      DP(6) = DP(16)\r\n   62 CONTINUE\r\nC\r\nC     CONSTRUCT VECTOR FROM A TO B\r\nC\r\n      SMALV0(1) = DP(4) - DP(1)\r\n      SMALV0(2) = DP(5) - DP(2)\r\n      SMALV0(3) = DP(6) - DP(3)\r\n      FLL       = SQRT(SMALV0(1)**2 + SMALV0(2)**2 + SMALV0(3)**2)\r\n      SMALV0(1) = SMALV0(1)/FLL\r\n      SMALV0(2) = SMALV0(2)/FLL\r\n      SMALV0(3) = SMALV0(3)/FLL\r\nC\r\nC     COMPUTE THE K VECTOR VECK = SMALV0 X VECJ\r\nC\r\n      VECK(1) = SMALV0(2)*VECJ(3) - SMALV0(3)*VECJ(2)\r\n      VECK(2) = SMALV0(3)*VECJ(1) - SMALV0(1)*VECJ(3)\r\n      VECK(3) = SMALV0(1)*VECJ(2) - SMALV0(2)*VECJ(1)\r\n      FLL     = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      VECK(1) = VECK(1)/FLL\r\n      VECK(2) = VECK(2)/FLL\r\n      VECK(3) = VECK(3)/FLL\r\nC\r\nC     COMPUTE THE I VECTOR  VECI = VECJ X VECK\r\nC\r\n      VECI(1) = VECJ(2)*VECK(3) - VECJ(3)*VECK(2)\r\n      VECI(2) = VECJ(3)*VECK(1) - VECJ(1)*VECK(3)\r\n      VECI(3) = VECJ(1)*VECK(2) - VECJ(2)*VECK(1)\r\n      FLL     = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      VECI(1) = VECI(1)/FLL\r\n      VECI(2) = VECI(2)/FLL\r\n      VECI(3) = VECI(3)/FLL\r\nC\r\nC     SEARCH THE MATERIAL PROPERTIES TABLE FOR E,G AND THE DAMPING\r\nC     CONSTANT.\r\nC\r\n      MATIDC = IMATID\r\n      MATFLG = 1\r\n      IF (ISOP .EQ. 3) MATFLG = 12\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DAMPC = G SUB E\r\nC\r\nC     SET UP INTERMEDIATE VARIABLES FOR ELEMENT STIFFNESS MATRIX\r\nC     CALCULATION\r\nC\r\n      IF (KX .LT. 1.0E-8) KX = 1.0\r\n      IF (KY .LT. 1.0E-8) KY = 1.0\r\n      IF (KZ .LT. 1.0E-8) KZ = 1.0\r\n      FI1 = I1/KZ\r\n      FI2 = I2/KY\r\n      FJK = FJ/KX\r\nC\r\nC\r\nC     THE FOLLOWING CODE WAS TAKEN FROM SAP4 BENDKS ROUTINE FOR A CURVED\r\nC     PIPE ELEMENT\r\nC\r\nC\r\nC     COMPUTE SECTION PROPERTY CONSTANTS\r\nC\r\n      T  = DTR(BETAR)\r\n      RA = R/(A*E)\r\n      RV1= K1*R/(2.*G*A)\r\n      RV2= K2/K1*RV1\r\n      RT = R/(G*FJK*2.)\r\n      RB0= R/(E*FI2*2.)\r\n      RB1= R/(E*FI1)\r\n      R2 = R**2\r\nC\r\nC     COMPUTE COMMON TRIGONOMETRIC CONSTANTS\r\nC\r\n      ST  = SID(BETAR)\r\n      CT  = COD(BETAR)\r\n      S2T = SID(2.0*BETAR)\r\n      C2T = COD(2.0*BETAR)\r\nC\r\nC     FORM THE NODE FLEXIBILITY MATRIX AT NODE J REFERENCED TO THE\r\nC     LOCAL (X,Y,Z) COORDINATE SYSTEM AT NODE I.\r\nC\r\nC     X - DIRECTION  IN-PLANE TANGENT TO THE BEND AT NODE I AND\r\nC                    DIRECTED TOWARD NODE J\r\nC     Y - DIRECTION  IN-PLANE AND DIRECTED RADIALLY INWARD TO THE\r\nC                    CENTER OF CURVATURE\r\nC     Z - DIRECTION  OUT OF PLANE AND ORTHOGONAL TO X AND Y\r\nC\r\n      DO 50 I = 1,6\r\n      DO 50 K = I,6\r\n      F(I,K) = 0.0\r\n   50 CONTINUE\r\nC\r\nC     A X I A L\r\nC\r\n      F(1,1) = F(1,1) + 0.25*RA*(2.0*T + S2T)\r\n      F(2,2) = F(2,2) + 0.25*RA*(2.0*T - S2T)\r\nC\r\nC     N O T E   (COEFFICIENT CHANGE)\r\nC\r\n      F(1,2) = F(1,2) + 0.50*RA*ST**2\r\nC\r\nC     S H E A R\r\nC\r\n      F(1,1) = F(1,1) + 0.5*RV1*(2.0*T - S2T)\r\n      F(2,2) = F(2,2) + 0.5*RV1*(2.0*T + S2T)\r\n      F(3,3) = F(3,3) + 2.0*RV2*T\r\nC\r\nC     N O T E   (SIGN CHANGE)\r\nC\r\n      F(1,2) = F(1,2) - RV1*ST**2\r\nC\r\nC     T O R S I O N\r\nC\r\n      F(3,3) = F(3,3) + 0.5*RT*R2*(6.0*T+S2T-8.0*ST)\r\n      F(4,4) = F(4,4) + 0.5*RT*   (2.0*T+S2T)\r\n      F(5,5) = F(5,5) + 0.5*RT*   (2.0*T-S2T)\r\n      F(3,4) = F(3,4) +     RT*R *(ST-T*CT)\r\n      F(3,5) = F(3,5) +     RT*R *(2.0-2.0*CT-T*ST)\r\n      F(4,5) = F(4,5) + 0.5*RT*   (1.0-C2T)\r\nC\r\nC     B E N D I N G\r\nC\r\n      F(1,1) = F(1,1) + 0.25*RB1*R2*(2.0*T*(2.0+C2T)-3.0*S2T)\r\n      F(2,2) = F(2,2) + 0.25*RB1*R2*(2.0*T*(2.0-C2T)+3.0*S2T-8.0*ST)\r\n      F(3,3) = F(3,3) + 0.50*RB0*R2*(2.0*T-S2T)\r\n      F(4,4) = F(4,4) + 0.50*RB0*   (2.0*T-S2T)\r\n      F(5,5) = F(5,5) + 0.50*RB0*   (2.0*T+S2T)\r\n      F(6,6) = F(6,6) +      RB1*T\r\n      F(1,2) = F(1,2) + 0.25*RB1*R2*(1.0+3.0*C2T+2.0*T*S2T-4.0*CT)\r\n      F(1,6) = F(1,6) -      RB1*R *(ST-T*CT)\r\n      F(2,6) = F(2,6) +      RB1*R *(T*ST+CT-1.0)\r\n      F(3,4) = F(3,4) +      RB0*R *(ST-T*CT)\r\n      F(3,5) = F(3,5) -      RB0*R *T*ST\r\n      F(4,5) = F(4,5) - 0.50*RB0*   (1.0-C2T)\r\nC\r\nC\r\nC     FORM SYMMETRICAL UPPER PART OF FLEX MATRIX\r\nC\r\n      DO 65 I = 1,6\r\n      DO 65 K = I,6\r\n      DF(K,I) = F(I,K)\r\n      DF(I,K) = DF(K,I)\r\n   65 CONTINUE\r\nC\r\nC\r\nC     INVERT FLEX TO FORM STIFFNESS\r\nC\r\n      CALL INVERS (6,DF,6,DUM,0,DETERM,ISING,H)\r\n      IF (ISING .EQ. 2) WRITE (6,4002) F\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,38,ECPT(1))\r\n 4002 FORMAT (35H ELBOW STIFFNESS MATRIX IS SINGULAR, /,(5X,6E13.5))\r\nC\r\nC\r\nC     SET UP THE FORCE TRANSFORMATION RELATING REACTIONS AT NODE I\r\nC     ACTING ON THE MEMBER END DUE TO UNIT LOADS APPLIED TO THE MEMBER\r\nC     END AT NODE J.\r\nC\r\n      DO 100 I = 1,6\r\n      DO 100 K = 1,6\r\n      H(I,K) = 0.0\r\n  100 CONTINUE\r\nC\r\n      DO 105 K = 1,6\r\n      H(K,K) =-1.0\r\n  105 CONTINUE\r\nC\r\n      H(4,3) =-(R*(1.0 - CT))\r\n      H(5,3) = (R*ST)\r\n      H(6,1) =-H(4,3)\r\n      H(6,2) =-H(5,3)\r\nC\r\nC     FORM THE UPPER TRIANGULAR PORTION OF THE LOCAL ELEMENT STIFFNESS\r\nC     MATRIX FOR THE BEND\r\nC\r\n      DO 110 K = 1,6\r\n      DO 110 I = K,6\r\n      S(K+6,I+6) = DF(K,I)\r\n  110 CONTINUE\r\nC\r\n      DO 130 IR = 1,6\r\n      DO 130 IC = 1,6\r\n      S(IR,IC+6) = 0.0\r\n      DO 120 IN = 1,6\r\n      S(IR,IC+6) = S(IR,IC+6) + H(IR,IN)*DF(IN,IC)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\n      DO 150 IR = 1,6\r\n      DO 150 IC = IR,6\r\n      S(IR,IC)  = 0.0\r\n      DO 140 IN = 1,6\r\n      S(IR,IC) = S(IR,IC) + S(IR,IN+6)*H(IC,IN)\r\n  140 CONTINUE\r\n  150 CONTINUE\r\nC\r\nC     REFLECT FOR SYMMETRY\r\nC\r\n      DO 165 I = 1,12\r\n      DO 165 K = I,12\r\n      S(K,I) = S(I,K)\r\n  165 CONTINUE\r\nC\r\nC            E\r\nC     STORE K   IN KEP(1) THRU KEP(36) AND\r\nC            AA\r\nC\r\nC            E\r\nC     STORE K   IN KEP(37) THRU KEP(72)\r\nC            AB\r\nC\r\n      J = 0\r\n      DO 340 I = 1,72,12\r\n      LOW = I\r\n      LIM = LOW + 5\r\n      DO 330 K = LOW,LIM\r\n      J = J + 1\r\n      KEP(J) = KE(K)\r\n  330 KEP(J+36) = KE(K+6)\r\n  340 CONTINUE\r\nC\r\nC     COMPUTE THERMAL MATRIX\r\nC\r\n      L = DCR*ECPT(29)*ECPT(30)\r\n      DO 341 I = 1,6\r\n  341 HUT(I) = 0.0\r\n      ALPHAR = ALPHA*R\r\n      HUT(1) =-ALPHAR*SID(BETAR)\r\n      HUT(2) =-ALPHAR*(1.-COD(BETAR))\r\n      HUT(6) = 0.0\r\n      CALL GMMATS (KEP(1),6,6,0, HUT,6,1,0, THERM(1))\r\nC\r\nC                                                             T\r\nC     STORE VECI, VECJ, VECK IN KE(1) THRU KE(9) FORMING THE A  MATRIX.\r\nC\r\n      KE(1) = VECI(1)\r\n      KE(2) = VECI(2)\r\n      KE(3) = VECI(3)\r\n      KE(4) = VECJ(1)\r\n      KE(5) = VECJ(2)\r\n      KE(6) = VECJ(3)\r\n      KE(7) = VECK(1)\r\n      KE(8) = VECK(2)\r\n      KE(9) = VECK(3)\r\nC\r\nC     SET POINTERS SO THAT WE WILL BE WORKING WITH POINT A.\r\nC\r\n      BASIC = ABASIC\r\n      JCSID = JCSIDA\r\n      IWBEG = 0\r\n      IKEL  = 1\r\n      IAB   = 1\r\n      INDEX = ISILNO(1)\r\nC\r\nC     ZERO OUT THE ARRAY WHERE THE 3 X 3 MATRIX AND THE W  AND W  6 X 6\r\nC     MATRICES WILL RESIDE.                              A      B\r\nC\r\n      DO 350 I = 28,108\r\n  350 KE(I) = 0.0\r\nC\r\nC     SET UP THE -G- MATRIX. IG POINTS TO THE BEGINNING OF THE G MATRIX.\r\nC     G = AT X TI\r\nC\r\n  360 IG = 1\r\n      IF (BASIC) GO TO 380\r\n      CALL TRANSS (ECPT(JCSID),KE(10))\r\n      CALL GMMATS (KE(1),3,3,0, KE(10),3,3,0, KE(19))\r\n      IG = 19\r\nC\r\nC     FORM THE W  MATRIX OR THE W  MATRIX IN KE(37) OR KE(73) DEPENDING\r\nC               A                B\r\nC     UPON WHICH POINT - A OR B - IS UNDER CONSIDERATION.  G WILL BE\r\nC     STORED IN THE UPPER LEFT AND LOWER RIGHT CORNERS.  H, IF NON-ZERO,\r\nC     WILL BE STORED IN THE UPPER RIGHT CORNER.\r\nC\r\nC\r\n  380 KE(IWBEG+37) = KE(IG  )\r\n      KE(IWBEG+38) = KE(IG+1)\r\n      KE(IWBEG+39) = KE(IG+2)\r\n      KE(IWBEG+43) = KE(IG+3)\r\n      KE(IWBEG+44) = KE(IG+4)\r\n      KE(IWBEG+45) = KE(IG+5)\r\n      KE(IWBEG+49) = KE(IG+6)\r\n      KE(IWBEG+50) = KE(IG+7)\r\n      KE(IWBEG+51) = KE(IG+8)\r\n      KE(IWBEG+58) = KE(IG  )\r\n      KE(IWBEG+59) = KE(IG+1)\r\n      KE(IWBEG+60) = KE(IG+2)\r\n      KE(IWBEG+64) = KE(IG+3)\r\n      KE(IWBEG+65) = KE(IG+4)\r\n      KE(IWBEG+66) = KE(IG+5)\r\n      KE(IWBEG+70) = KE(IG+6)\r\n      KE(IWBEG+71) = KE(IG+7)\r\n      KE(IWBEG+72) = KE(IG+8)\r\nC\r\nC                              E                    E\r\nC     FORM THE PRODUCT  S  =  K   X  W   OR  S   = K    X  W, DEPENDING\r\nC                        A     AA     A       B     AB      B\r\nC     UPON WHICH POINT WE ARE WORKING WITH.\r\nC\r\n      CALL GMMATS (KEP(IKEL),6,6,0, KE(IWBEG+37),6,6,0, SA(IAB))\r\nC\r\nC     IF THE POINT UNDER CONSIDERATION IS POINT B WE ARE FINISHED. IF\r\nC     NOT, SET UP POINTS AND INDICATORS FOR WORKING WITH POINT B.\r\nC\r\n      IF (IWBEG .EQ. 36) GO TO 500\r\n      BASIC = BBASIC\r\n      JCSID = JCSIDB\r\n      IWBEG = 36\r\n      IKEL  = 37\r\n      IAB   = 37\r\n      INDEX = ISILNO(2)\r\n      DO 400 I = 28,36\r\n  400 KE(I) = 0.0\r\n      GO TO 360\r\nC\r\nC     FILL REMAINDER OF OUTPUT BLOCK.\r\nC\r\n  500 JELID   = IELID\r\n      JSILNO(1) = ISILNO(1)\r\n      JSILNO(2) = ISILNO(2)\r\n      I12     = 0.\r\n      OUT( 1) = A*E*ALPHA\r\n      OUT( 2) = A*E/L\r\n      OUT( 3) = A\r\n      OUT( 4) = FJ\r\n      OUT( 5) = I1\r\n      OUT( 6) = I2\r\n      OUT( 7) = C\r\n      OUT( 8) = C1\r\n      OUT( 9) = C2\r\n      OUT(10) = D1\r\n      OUT(11) = D2\r\n      OUT(12) = F1\r\n      OUT(13) = F2\r\n      OUT(14) = G1\r\n      OUT(15) = G2\r\n      OUT(16) = T SUB 0\r\n      OUT(17) = SIGT\r\n      OUT(18) = SIGC\r\n      OUT(19) = L\r\n      OUT(20) = R\r\n      OUT(21) = BETAR\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/selbo2.f",
    "content": "      SUBROUTINE SELBO2 (TI)\r\nC\r\nC     THIS ROUTINE IS THE PHASE II SUBROUTINE OF STRESS DATA RECOVERY\r\nC     FOR THE BEAM ELEMENT.\r\nC\r\n      INTEGER         TLOADS\r\n      REAL            I1,I2,L,M1A,M2A,M1B,M2B,I12,K1A,K2A,K1B,K2B,\r\n     1                TI(14),M2BT\r\n      EQUIVALENCE     (LDTEMP,TEMPLD),(MSTEN,SMTEN),(MSCOM,SMCOM)\r\n      COMMON /ZZZZZZ/ ZZ(1)\r\n      COMMON /SDR2X4/ XXXXXX(33),ICSTM,NCSTM,IVEC,IVECN,LDTEMP,ELDEFM,\r\n     1                DUM8(8),TLOADS\r\nC\r\nC     THE FIRST 100 LOCATIONS OF THE SDR2X7 BLOCK ARE RESERVED FOR INPUT\r\nC     PARAMETERS, THE SECOND 100 FOR STRESS OUTPUT PARAMETERS, AND FORCE\r\nC     OUTPUT PARAMETERS BEGIN AT LOCATION 201.\r\nC\r\n      COMMON /SDR2X7/ JELID,JSILNO(2),SA(36),SB(36),ST,SDELTA,A,FJ,I1,\r\n     1                I2,C,R1,T1,R2,T2,R3,T3,R4,T4,T SUB 0,SIGMAT,\r\n     2                SIGMAC,L,R,BETAR,THERM(4)\r\n      COMMON /SDR2X7/ ISELID,SIG1A,SIG2A,SIG3A,SIG4A,SIGAX,SIGAMX,\r\n     3                SIGAMN,MSTEN,SIG1B,SIG2B,SIG3B,SIG4B,SIGBX,\r\n     4                SIGBMX,SIGBMN,MSCOM,YYYYYY(83)\r\n      COMMON /SDR2X7/ IFELID,M1A,M2A,V1,V2,FX,T,M1B,M2BT,V1BT,FXBT,TBT\r\nC\r\n      COMMON /SDR2X8/ FA(6),FB(6),IDISP,IUA,IUB,P1,K1A,K2A,K1B,K2B,Q,W\r\n      DATA    DCR   / .017453292 /\r\nC\r\n      SID(X) = SIN(X*DCR)\r\n      COD(X) = COS(X*DCR)\r\nC\r\n      X   = 1.0\r\n      YL  = R*(1.-COD(BETAR))\r\n      XL  = R*SID(BETAR)\r\n      I12 = 0.\r\n      IDISP = IVEC - 1\r\n      IUA = IDISP + JSILNO(1)\r\n      CALL GMMATS (SA(1),6,6,0, ZZ(IUA),6,1,0, FA(1))\r\n      IUB = IDISP + JSILNO(2)\r\n      CALL GMMATS (SB(1),6,6,0, ZZ(IUB),6,1,0, FB(1))\r\n      FX  = -FA(1) - FB(1)\r\n      V1  = -FA(2) - FB(2)\r\n      V2  = -FA(3) - FB(3)\r\n      T   = -FA(4) - FB(4)\r\n      M2A =  FA(5) + FB(5)\r\n      M1A = -FA(6) - FB(6)\r\nC\r\nC     IF LDTEMP = -1, THE LOADING TEMPERATURE IS UNDEFINED\r\nC\r\n      IF (TLOADS .EQ. 0) GO TO 10\r\n      TBAR = TI(1)\r\n      DT   = TBAR - TSUB0\r\n      DO 5 I = 1,6\r\n      FA(I) = DT*THERM(I)\r\n    5 CONTINUE\r\n      FX  = FX  + FA(1)\r\n      V1  = V1  + FA(2)\r\n      M1A = M1A + FA(6)\r\n10    M1B = M1A - V1*XL + FX*YL\r\n      M2B = M2A - V2*XL\r\n      TB  = T   - V2*YL\r\nC\r\nC     TRANSFORM FORCES AT B-END TO A COORD. SYS TANGENT TO B-END\r\nC\r\n      FXBT = V1*SID(BETAR) + FX*ABS(COD(BETAR))\r\n      V1BT = V1*ABS(COD(BETAR))  - FX*SID(BETAR)\r\n      M2BT = M2B*ABS(COD(BETAR)) + TB*SID(BETAR)\r\n      TBT  =-M2B*SID(BETAR) + TB*ABS(COD(BETAR))\r\nC\r\nC     COMPUTE ELEMENT STRESSES AT 4 POINTS\r\nC\r\nC\r\nC     COMPUTE K1A AND K2A\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 30\r\n      IF (I1  .NE. 0.0) GO TO 20\r\n      K1A = 0.0\r\n      GO TO 40\r\n   20 K1A = -M1A/I1\r\n      GO TO 40\r\n   30 K1A = (M2A*I12 - M1A*I2)/(I1*I2 - I12**2)\r\n      K2A = (M1A*I12 - M2A*I1)/(I1*I2 - I12**2)\r\n      GO TO 60\r\n   40 IF (I2 .NE. 0.0) GO TO 50\r\n      K2A = 0.0\r\n      GO TO 60\r\n   50 K2A = -M2A/I2\r\nC\r\nC     CHANGE STRESS RECOVERY CONSTANTS FROM CYL. TO RECT. COORD.\r\nC\r\n      C1 = R1*SID(T1)\r\n      C2 = R1*COD(T1)\r\n      D1 = R2*SID(T2)\r\n      D2 = R2*COD(T2)\r\n      F1 = R3*SID(T3)\r\n      F2 = R3*COD(T3)\r\n      G1 = R4*SID(T4)\r\n      G2 = R4*COD(T4)\r\nC\r\nC     COMPUTE SIG1A, SIG2A, SIG3A AND SIG4A\r\nC\r\n   60 SIG1A = K1A*C1*C + K2A*C2\r\n      SIG2A = K1A*D1*C + K2A*D2\r\n      SIG3A = K1A*F1*C + K2A*F2\r\n      SIG4A = K1A*G1*C + K2A*G2\r\nC\r\nC     COMPUTE K1B AND K2B\r\nC\r\n      IF (I12 .NE. 0.0) GO TO 80\r\n      IF (I1  .NE. 0.0) GO TO 70\r\n      K1B = 0.0\r\n      GO TO 90\r\n   70 K1B = -M1B/I1\r\n      GO TO 90\r\n   80 K1B = (M2BT*I12 - M1B *I2)/(I1*I2 - I12**2)\r\n      K2B = (M1B *I12 - M2BT*I1)/(I1*I2 - I12**2)\r\n      GO TO 110\r\n   90 IF (I2 .NE. 0.0) GO TO 100\r\n      K2B = 0.0\r\n      GO TO 110\r\n  100 K2B = -M2BT/I2\r\nC\r\nC     COMPUTE SIG1B, SIG2B, SIG3B AND SIG4B\r\nC\r\n  110 SIG1B = K1B*C1*C + K2B*C2\r\n      SIG2B = K1B*D1*C + K2B*D2\r\n      SIG3B = K1B*F1*C + K2B*F2\r\n      SIG4B = K1B*G1*C + K2B*G2\r\n      IF (TLOADS .EQ. 0) GO TO 115\r\nC\r\nC     TEST IF AT LEAST ONE POINT TEMPERATURE IS GIVEN\r\nC\r\n      DO 111 I = 7,14\r\n      IF (TI(I) .NE. 0.0) GO TO 112\r\n  111 CONTINUE\r\n      GO TO 115\r\n  112 IF (A .EQ. 0.0) GO TO 115\r\n      EALF  =-ST/A\r\n      SIG1A = SIG1A + EALF*(TI( 7) - TI(3)*C1*C - TI(5)*C2 - TI(1))\r\n      SIG2A = SIG2A + EALF*(TI( 8) - TI(3)*D1*C - TI(5)*D2 - TI(1))\r\n      SIG3A = SIG3A + EALF*(TI( 9) - TI(3)*F1*C - TI(5)*F2 - TI(1))\r\n      SIG4A = SIG4A + EALF*(TI(10) - TI(3)*G1*C - TI(5)*G2 - TI(1))\r\n      SIG1B = SIG1B + EALF*(TI(11) - TI(4)*C1*C - TI(6)*C2 - TI(2))\r\n      SIG2B = SIG2B + EALF*(TI(12) - TI(4)*D1*C - TI(6)*D2 - TI(2))\r\n      SIG3B = SIG3B + EALF*(TI(13) - TI(4)*F1*C - TI(6)*F2 - TI(2))\r\n      SIG4B = SIG4B + EALF*(TI(14) - TI(4)*G1*C - TI(6)*G2 - TI(2))\r\n  115 CONTINUE\r\nC\r\nC     COMPUTE AXIAL STRESS\r\nC\r\n      SIGAX = 0.0\r\n      SIGBX = 0.0\r\n      IF (A .NE. 0.0) SIGAX = FX/A\r\n      IF (A .NE. 0.0) SIGBX = FXBT/A\r\nC\r\nC     COMPUTE MAXIMA AND MINIMA\r\nC\r\n      SIGAMX = SIGAX + AMAX1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMX = SIGBX + AMAX1(SIG1B,SIG2B,SIG3B,SIG4B)\r\n      SIGAMN = SIGAX + AMIN1(SIG1A,SIG2A,SIG3A,SIG4A)\r\n      SIGBMN = SIGBX + AMIN1(SIG1B,SIG2B,SIG3B,SIG4B)\r\nC\r\nC     COMPUTE MARGIN OF SAFETY IN TENSION\r\nC\r\n      IF (SIGMAT .LE. 0.0) GO TO 620\r\n      IF (AMAX1(SIGAMX,SIGBMX) .LE. 0.0) GO TO 620\r\n      Q = SIGMAT/AMAX1(SIGAMX,SIGBMX)\r\n      SMTEN = Q - 1.0\r\n      GO TO 630\r\n  620 MSTEN = 1\r\nC\r\nC     COMPUTE MARGIN OF SAFETY IN COMPRESSION\r\nC\r\n  630 IF (SIGMAC .LE. 0.0) GO TO 640\r\n      IF (AMIN1(SIGAMN,SIGBMN) .GE. 0.0) GO TO 640\r\n      W = -SIGMAC/AMIN1(SIGAMN,SIGBMN)\r\n      SMCOM  = W - 1.0\r\n      GO TO 150\r\n  640 MSCOM  = 1\r\n  150 ISELID = JELID\r\n      IFELID = JELID\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/selcam.f",
    "content": "      SUBROUTINE SELCAM (CAMERA,PLTNUM,OPT)\r\nC\r\n      REAL    EDGE(2)  ,ORIGIN(2),XYMAX(2) ,SAVE(2,3)\r\n      INTEGER A(17)    ,CAMERA   ,CAMNUM   ,OPT      ,PLOTER   ,PLTNUM\r\n     2,       CON10(2) ,CAM10(3)\r\nC\r\n      COMMON /PLTDAT/  PD(20,2)\r\nC\r\n      EQUIVALENCE (   MODEL,PD( 1,1)) , (  PLOTER,PD( 2,1))\r\n     1,           (XYMAX(1),PD( 7,1)) , ( EDGE(1),PD( 9,1))\r\n     2,           (  CAMNUM,PD(11,1)) ,(ORIGIN(1),PD( 8,2))\r\n      DATA CON10,CAM10 / 1,2, 1,2,3 /\r\nC\r\n       DO 101 I = 1,2\r\n      SAVE(I,1) = EDGE(I)\r\n      EDGE(I) = 0.\r\n      SAVE(I,2) = ORIGIN(I)\r\n      ORIGIN(I) = 0.\r\n      SAVE(I,3) = XYMAX(I)\r\n      XYMAX(I) = 0.\r\n      A(I) = IABS(PLTNUM)\r\n  101 CONTINUE\r\n      CAMNUM = MIN0(MAX0(CAMERA,1),3)\r\n      IF(OPT) 165,160,165\r\nC\r\nC     PLOTTER 1, 2\r\nC\r\n  160 A(3) = A(1)\r\n      A(1) = CON10(1)\r\n      A(2) = 0\r\n      A(4) = SAVE(1,3) + 2.*SAVE(1,1) + .1\r\n      A(5) = SAVE(2,3) + 2.*SAVE(2,1) + .1\r\n      A(6) = 0\r\n      CALL WPLT10 (A,0)\r\n  165 A(1) = CON10(2)\r\n      A(2) = CAM10(CAMNUM)\r\n      DO 166 I = 3,6\r\n      A(I) = 0\r\n  166 CONTINUE\r\n      CALL WPLT10 (A,0)\r\nC\r\n      DO 301 I=1,2\r\n      EDGE(I) = SAVE(I,1)\r\n      ORIGIN(I) = SAVE(I,2)\r\n      XYMAX(I) = SAVE(I,3)\r\n  301 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/semint.f",
    "content": "      SUBROUTINE SEMINT (DEBUG1)\r\nC\r\nC     SEMINT IS THE EXECUTION MONITOR FOR THE PREFACE.\r\nC     UMF IS NO LONGER SUPPORTED.\r\nC\r\nC     FOR DEBUG PURPOSE, PRINT OUT GOES TO UNIT 6, NOT OUTTAP\r\nC\r\n      INTEGER         AXIC,AXIF,OUTTAP,PLOTF,HICORE,DEBUG1\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SUBR(13)*6\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /IFPX1 / NCDS,T1(2,370)\r\n      COMMON /MACHIN/ MACH,DUMMY4(4)\r\n      COMMON /SYSTEM/ SYSTEM,OUTTAP,NOGO,INTAP,DUMM15(15),PLOTF,\r\n     1                DUMM6(6),AXIC,DUMMY3(3),HICORE,DUMMY6(6),\r\n     2                AXIF,DUMM30(30),ISUBS,ISY70(7),ISY77\r\n      COMMON /XECHOX/ ECHO(4)\r\n      COMMON /XXREAD/ INFLAG,INSAVE\r\n      DATA     BCD1 , BCD2,  BCD3,  BCD4  ,BCD5  ,BCD6,  BCD7   /\r\n     1         4HXCSA,4HIFP1,4HXSOR,4HXGPI,4HGNFI,4HTTIO,4HTTLP /\r\n      DATA     BCD8 , BCD9,  BCD10 ,BCD11                       /\r\n     1         4HTTOT,4HSOLI,4HFLUI,1HD                         /\r\n      DATA     SUBR / 'NASCAR','GNFIAT','TMTSIO','TMTSLP','XCSA  ',\r\n     1                'TMTSOT','ASDMAP','IFP1  ','XSORT2','IFP   ',\r\n     2                'IFP3  ','XGPI  ','BANDIT'/\r\nC\r\nC\r\n      INSAVE = INTAP\r\nC\r\nC     READ AND PROCESS THE NASTRAN CARD (IF PRESENT).\r\nC\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(1)\r\n   10 FORMAT (/,' -LINK1 DEBUG- SEMINT CALLING ',A6,' NEXT',/)\r\n      CALL NASCAR\r\nC\r\nC     DEFINE OPEN CORE FOR UNIVAC, VAX, AND UNIX\r\nC\r\n      IF (MACH.EQ.3 .OR. MACH.GE.5) CALL DEFCOR\r\nC\r\nC     GENERATE INITIAL FILE TABLES.\r\nC     COMPUTE NASTRAN TIMING CONSTANTS.\r\nC     READ EXECUTIVE CONTROL DECK AND SAVE NOGO FLAG.\r\nC     READ CASE CONTROL DECK, SORT BULK DATA AND EXECUTE\r\nC     INPUT FILE PROCESSOR UNLESS BULK DATA IS MISSING.\r\nC     IF CONICAL SHELL PROBLEM, EXECUTE IFP3.\r\nC\r\n      CALL CONMSG (BCD5,1,1)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(2)\r\n      CALL GNFIAT\r\nC\r\nC     CALL THE TIME TEST ROUTINES TO COMPUTE THE NASTRAN\r\nC     TIMING CONSTANTS AND INITIALIZE COMMON /NTIME/\r\nC\r\nC     GENERATE THE I/O TIMES AND\r\nC     CPU TIMES FOR VARIOUS TYPES OF LOOPS\r\nC\r\n      CALL CONMSG (BCD6,1,0)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(3)\r\n      CALL TMTSIO (*2000,DEBUG1)\r\n      CALL CONMSG (BCD7,1,0)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(4)\r\n      CALL TMTSLP\r\nC\r\nC     PROCESS EXECUTIVE CONTROL CARDS\r\nC\r\n 2000 CALL CONMSG (BCD1,1,1)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(5)\r\n      CALL XCSA\r\nC\r\nC     OUTPUT THE COMMON /NTIME/ ENTRIES IF DIAG 35 IS TURNED ON\r\nC\r\n      CALL SSWTCH (35,L35)\r\n      IF (L35 .EQ. 0) GO TO 3000\r\n      CALL CONMSG (BCD8,1,0)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(6)\r\n      CALL TMTSOT\r\nC\r\nC     PROCESS SUBSTRUCTURING DMAP\r\nC\r\n 3000 NOGOX = NOGO\r\n      NOGO  = 0\r\n      IF (DEBUG1.GT.0 .AND. ISUBS.NE.0) WRITE (6,10) SUBR(7)\r\n      IF (ISUBS .NE. 0) CALL ASDMAP\r\nC\r\nC     PROCESS CASE CONTROL CARDS\r\nC\r\n      CALL CONMSG (BCD2,1,1)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(8)\r\n      CALL IFP1\r\n      NOGO1 = NOGO\r\n      IF (NOGO .EQ. -9) NOGO = 1\r\n      IF (NOGO .LT.  0) NOGO = 0\r\n      KAXIF = 0\r\nC\r\nC     REVERT TO OLD XSORT TO PROCESS BULKDATA CARDS IF DIAG 42 IS\r\nC     TURNED ON,  OTHERWISE, USE XSORT2 FOR SPEED AND EFFICIENCY\r\nC\r\n      CALL CONMSG (BCD3,1,0)\r\n      CALL SSWTCH (42,L42)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(9)\r\n      IF (L42  .EQ.  1) CALL XSORT\r\n      IF (L42  .EQ.  0) CALL XSORT2\r\n      IF (NOGO .EQ. -2) GO TO 4000\r\nC\r\nC     INPUT FILE PROCESSOR(S) TO CHECK EACH BULKDATA CARD\r\nC\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(10)\r\n      CALL IFP\r\n      IF (DEBUG1.GT.0 .AND. AXIC.NE.0) WRITE (6,10) SUBR(11)\r\n      IF (AXIC .NE. 0) CALL IFP3\r\nC\r\nC     SET KAXIF AS IFP4 WILL MODIFY AXIF\r\nC\r\n      KAXIF = AXIF\r\n      IF (KAXIF.EQ.1 .OR. KAXIF.EQ.3) CALL IFP4\r\n      IF (KAXIF.EQ.2 .OR. KAXIF.EQ.3) CALL IFP5\r\nC\r\nC     SUPPRESS NOGO FLAG IF USER REQUESTS UNDEFORMED STRUCTURE PLOT VIA\r\nC     NASTRAN PLOTOPT CARD\r\nC\r\n 4000 IF (NOGO .EQ. -2) NOGO = 0\r\n      IF (NOGO.EQ.0 .AND. NOGO1.LT.0) NOGO = NOGO1\r\n      IF (NOGO.GE.1 .AND. NOGO1.LT.0) NOGO = -9\r\n      IF (NOGO1 .EQ. 0) NOGO1 = NOGO\r\nC\r\nC     NOGO FLAG CONDITIONS\r\nC     NOGOX.NE. 0, FATAL ERROR IN EXECUTIVE CONTROL\r\nC     NOGO .EQ.-9, FATAL ERROR IN BULKDATA AND IN PLOT COMMANDS\r\nC     NOGO .EQ. 0, NO FATAL ERROR DETECTED IN ENTIRE INPOUT DECK\r\nC     NOGO .GT. 0, FATAL ERROR IN BULKDATA, NO ERROR IN PLOT COMMANDS\r\nC     NOGO .LT. 0, NO ERROR IN BULKDATA, FATAL ERROR IN PLOT COMMANDS\r\nC\r\n      IF (NOGOX .NE. 0) GO TO 5500\r\n      IF (NOGO) 4100,4300,4200\r\n 4100 IF (NOGO.EQ.-9 .AND. PLOTF.NE.3) GO TO 5500\r\n      IF (PLOTF .LE. 1) GO TO 4200\r\n      NOGO = 0\r\n      GO TO 4300\r\n 4200 NOGO = 1\r\nC\r\nC     EXECUTE GENERAL PROBLEM INITIALIZATION IF DATA PERMITS.\r\nC\r\n 4300 IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n      CALL CONMSG (BCD4,1,0)\r\n      IF (DEBUG1 .GT. 0) WRITE (6,10) SUBR(12)\r\n      CALL XGPI\r\nC\r\nC     CALL BANDIT TO GENERATE GRID-POINT RE-SEQUENCE CARDS IF DATA\r\nC     PERMITS\r\nC\r\n      IF (NOGO.NE.0 .AND. NOGO1.LT.0) NOGO = -9\r\n      IF (NOGO.EQ.0 .AND. NOGO1.NE.0) NOGO = NOGO1\r\n      IF (ISY77.LT.0 .OR. NOGO .NE.0) GO TO 5100\r\n      IF (AXIC.NE.0  .OR. KAXIF.EQ.1 .OR. KAXIF.EQ.3) GO TO 5000\r\n      IF (DEBUG1 .GT.  0) WRITE (6,10) SUBR(13)\r\n      CALL BANDIT\r\n      GO TO 5100\r\n 5000 WRITE (OUTTAP,6100) UIM\r\n      BCDX = BCD10\r\n      IF (AXIC .NE. 0) BCDX = BCD9\r\n      WRITE (OUTTAP,6200) BCDX,BCD11\r\n      WRITE (OUTTAP,6300)\r\nC\r\nC     TERMINATE NASTRAN IF LINK 1 ONLY IS REQUESTED BY USER\r\nC\r\n 5100 IF (ISY77 .EQ. -2) CALL PEXIT\r\nC\r\nC     EXIT ACCORDING TO PLOT OPTION REQUEST\r\nC     SET PLOTF TO NEGATIVE ONLY IF JOB IS TO BE TERMINATED AFTER PLOTS\r\nC     IN LINK2\r\nC\r\n      J = PLOTF + 1\r\n      IF (NOGO .EQ. 0) GO TO (5800,5800,5700,5700,5800,5800), J\r\n      IF (NOGO .GT. 0) GO TO (5300,5300,5600,5600,5600,5600), J\r\n      IF (NOGO .LT. 0) GO TO (5500,5500,5500,5600,5600,5200), J\r\nC                      PLOTF =   0,   1,   2,   3,   4,   5\r\nC\r\n 5200 IF (NOGO+9) 5800,5500,5800\r\n 5300 IF (PLOTF .GT. 1) WRITE (OUTTAP,5400)\r\n 5400 FORMAT ('0*** ATTEMPT TO PLOT UNDEFORMED MODEL IS ABANDONED DUE',\r\n     1        ' TO FATAL ERROR IN BULK DATA')\r\n 5500 CALL MESAGE (-61,0,0)\r\n 5600 WRITE  (OUTTAP,5650) UWM\r\n 5650 FORMAT (A25,' - FATAL ERRORS ENCOUNTERED IN USER INPUT DECK,',\r\n     1       /5X,'HOWEVER, NASTRAN WILL ATTEMPT TO PLOT THE UNDEFORMED',\r\n     2       ' STRUCTURE AS REQUESTED BY USER')\r\n 5700 PLOTF = -PLOTF\r\n 5800 RETURN\r\nC\r\n 6100 FORMAT (A29,' - GRID-POINT RESEQUENCING PROCESSOR BANDIT IS NOT',\r\n     1       ' USED DUE TO')\r\n 6200 FORMAT (5X,'THE PRESENCE OF AXISYMMETRIC ',A4,A1,' DATA')\r\n 6300 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/seteq.f",
    "content": "      SUBROUTINE SETEQ (NAME1,NAME2,PREFX,DRY2,ITEST,IMORE,LIM)\r\nC\r\nC     SETS THE SUBSTRUCTURE NAME2 EQUIVALENT TO THE SUBSTRUCTURE NAME1.\r\nC     THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES\r\nC\r\nC         4  IF NAME1 DOES NOT EXIST\r\nC         8  IF DRY DOES NOT EQUAL ZERO AND NAME2 OR ONE OF THE NEW\r\nC            NAMES ALREADY EXISTS\r\nC         9  IF DRY IS EQUAL TO ZERO AND NAME2 OR ONE OF THE NEW NAMES\r\nC            DOES NOT EXIST\r\nC         1  OTHERWISE\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         DITUP,MDIUP,MORE\r\n      DIMENSION       NAME1(2),NAME2(2),ISAVE(50),NAMNEW(2),\r\n     1                IMORE(1),NMSBR(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IO ,IODUM(7),MDI,MDIPBN,MDILBN,MDIBL,\r\n     2                NXTDUM(15),DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SYS(3),IFRST\r\n      COMMON /OUTPUT/ TITLE(96),SUBTIT(96)\r\n      COMMON /SYSTEM/ NBUFF,NOUT,DUM(36),NBPC,NBPW,NCPW\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    PS, SS, IB, LL, CS, HL, BB,   IRD, IWRT,  INDSBR  /\r\n     1        1 , 1 , 1 ,  2,  2,  2,  1,     1,    2,      15  /\r\n      DATA    IEMPTY, MASK,   NMSBR         /\r\n     2        4H    , 4HMASK, 4HSETE,4HQ    /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      IF (NITEM+IFRST-1 .GT. 50) GO TO 970\r\n      DRY   = DRY2\r\n      ITEST = 1\r\n      CALL FDSUB (NAME1(1),IND1)\r\n      IF (IND1 .EQ. -1) GO TO 900\r\n      MASK   = ANDF(MASK,2**(NBPW-4*NBPC)-1)\r\n      MASKSS = COMPLF(LSHIFT(1023,10))\r\n      MASKLL = COMPLF(LSHIFT(1023,20))\r\n      MASKBB = LSHIFT(1023,20)\r\nC\r\nC     IF NAME2 EXISTS - VERIFY THAT IT IS MARKED EQUIVALENT TO NAME1.\r\nC     NAME2 MAY ALREADY EXIST FOR RUN=GO OR OPTIONS=PA\r\nC\r\n      CALL FDSUB (NAME2(1),IND2)\r\n      IF (IND2 .EQ. -1) GO TO 10\r\n      DRY = 0\r\nC\r\n      CALL FMDI (IND2,IMDI)\r\n      IPS = ANDF(BUF(IMDI+PS),1023)\r\n      IF (IPS .EQ.    0) GO TO 920\r\n      IF (IPS .EQ. IND1) GO TO 10\r\n      CALL FMDI (IND1,IMDI)\r\n      IPP = ANDF(BUF(IMDI+PS),1023)\r\n      IF (IPS .NE. IPP) GO TO 920\r\nC\r\nC     STEP 1.  MAKE A LIST OF ALL THE SUBSTRUCTURES CONTRIBUTING TO THE\r\nC     SUBSTRUCTURE NAME1, AND STORE IT IN THE ARRAY IMORE\r\nC\r\n   10 ITOP  = 1\r\n      IMORE(ITOP) = IND1\r\n      IPTR  = 1\r\n   20 CALL FMDI (IND1,IMDI)\r\n      I     = BUF(IMDI+LL)\r\n      INDLL = RSHIFT(ANDF(I,1073741823),20)\r\n      INDCS = RSHIFT(ANDF(I,1048575)   ,10)\r\n      IF (INDLL .EQ. 0) GO TO 40\r\n      DO 30 J = 1,ITOP\r\n      IF (IMORE(J) .EQ. INDLL) GO TO 40\r\n   30 CONTINUE\r\n      ITOP  = ITOP + 1\r\n      IF (ITOP .GT. LIM) GO TO 960\r\n      IMORE(ITOP) = INDLL\r\n   40 IF (INDCS.EQ.0 .OR. IPTR.EQ.1) GO TO 60\r\n      DO 50 J = 1,ITOP\r\n      IF (IMORE(J) .EQ. INDCS) GO TO 60\r\n   50 CONTINUE\r\n      ITOP  = ITOP + 1\r\n      IF (ITOP .GT. LIM) GO TO 960\r\n      IMORE(ITOP) = INDCS\r\n   60 IF (IPTR .EQ. ITOP) GO TO 100\r\n      IPTR  = IPTR + 1\r\n      IND1  = IMORE(IPTR)\r\n      GO TO 20\r\nC\r\nC     STEP 2.  CREATE AN IMAGE SUBSTRUCTURE FOR EACH SUBSTRUCTURE IN THE\r\nC     ARRAY IMORE, AND STORE ITS INDEX IN THE ARRAY IMAGE.  NOTE THAT\r\nC     SINCE IMORE(1) CONTAINS THE INDEX OF NAME1, IMAGE(1) WILL CONTAIN\r\nC     THE INDEX OF NAME2\r\nC     FOR EACH NEW NAME CHECK THAT MAKING ROOM FOR THE PREFIX DOES NOT\r\nC     TRUNCATE THE NAME\r\nC\r\n  100 IF (IPTR .NE. 1) GO TO 110\r\n      CALL FDSUB (NAME2(1),I)\r\n      GO TO 120\r\n  110 CALL FDIT (IND1,IDIT)\r\n      FIRST = KLSHFT(KRSHFT(PREFX,NCPW-1),NCPW-1)\r\n      REST  = KLSHFT(KRSHFT(BUF(IDIT),NCPW-3),NCPW-4)\r\n      NAMNEW(1) = ORF(ORF(FIRST,REST),MASK)\r\n      FIRST = KLSHFT(KRSHFT(BUF(IDIT),NCPW-4),NCPW-1)\r\n      REST  = KLSHFT(KRSHFT(BUF(IDIT+1),NCPW-3),NCPW-4)\r\n      NAMNEW(2)= ORF(ORF(FIRST,REST),MASK)\r\n      IF (KHRFN1(IEMPTY,4,BUF(IDIT+1),4) .NE. IEMPTY)\r\n     1    WRITE (NOUT,850) UWM,NAMNEW,BUF(IDIT),BUF(IDIT+1)\r\n      CALL FDSUB (NAMNEW(1),I)\r\n  120 IF (DRY .NE. 0) GO TO 130\r\n      IF (I   .NE.-1) GO TO 170\r\n      GO TO 910\r\n  130 IF (I .EQ. -1) GO TO 150\r\n      IPTR = IPTR + 1\r\n      IF (IPTR .GT. ITOP) GO TO 920\r\n      DO 140 I = IPTR,ITOP\r\n      IMAGE = IMORE(LIM+I)\r\n      CALL FDIT (IMAGE,IDIT)\r\n      BUF(IDIT  ) = IEMPTY\r\n      BUF(IDIT+1) = IEMPTY\r\n      DITUP = .TRUE.\r\n  140 CONTINUE\r\n      GO TO 920\r\n  150 IF (IPTR .NE. 1) GO TO 160\r\n      CALL CRSUB (NAME2(1),I)\r\n      GO TO 170\r\n  160 CALL CRSUB (NAMNEW(1),I)\r\n  170 IMORE(IPTR+LIM) = I\r\n      IF (IPTR .EQ. 1) GO TO 200\r\n      IPTR = IPTR - 1\r\n      IND1 = IMORE(IPTR)\r\n      GO TO 100\r\nC\r\nC     STEP 3.  BUILD THE MDI OF NAME2, AND OF ALL IMAGE SUBSTRUCTURES\r\nC\r\n  200 IND2 = I\r\n  210 CALL FMDI (IND1,IMDI)\r\n      DO 220 J = 1,DIRSIZ\r\n      ISAVE(J) = BUF(IMDI+J)\r\n  220 CONTINUE\r\nC\r\nC     SET THE SS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND1\r\nC\r\n      IF (DRY .EQ. 0) GO TO 230\r\n      BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKSS),LSHIFT(IND2,10))\r\n      MDIUP = .TRUE.\r\n  230 CALL FMDI (IND2,IMDI)\r\n      IF (DRY .EQ. 0) GO TO 420\r\n      I = ISAVE(PS)\r\nC\r\nC     SET THE PS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n      IPS = ANDF(I,1023)\r\n      IF (IPS .EQ. 0) GO TO 240\r\n      BUF(IMDI+PS) = IPS\r\n      GO TO 250\r\n  240 BUF(IMDI+PS) = IND1\r\nC\r\nC     SET THE SS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n  250 ISS = RSHIFT(ANDF(I,1048575),10)\r\n      IF (ISS .EQ. 0) GO TO 260\r\n      BUF(IMDI+SS) = ORF(ANDF(BUF(IMDI+SS),MASKSS),LSHIFT(ISS,10))\r\nC\r\nC     SET THE BB ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n  260 IBS = ANDF(I,MASKBB)\r\n      BUF(IMDI+BB) = ORF(ANDF(BUF(IMDI+BB),MASKLL),IBS)\r\n      I = ISAVE(LL)\r\nC\r\nC     SET THE HL ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n      IF (IPTR .EQ. 1) GO TO 300\r\n      IHL = ANDF(I,1023)\r\n      IF (IHL.EQ.0) GO TO 280\r\n      ASSIGN 270 TO IRET\r\n      IWANT = IHL\r\n      GO TO 320\r\n  270 BUF(IMDI+HL) = IFND\r\nC\r\nC     SET THE CS ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n  280 ICS = RSHIFT(ANDF(I,1048575),10)\r\n      IF (ICS .EQ. 0) GO TO 300\r\n      ASSIGN 290 TO IRET\r\n      IWANT = ICS\r\n      GO TO 320\r\n  290 BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKSS),LSHIFT(IFND,10))\r\nC\r\nC     SET THE LL ENTRY FOR THE SUBSTRUCTURE WITH INDEX IND2\r\nC\r\n  300 ILL = RSHIFT(ANDF(I,1073741823),20)\r\n      IF (ILL .EQ. 0) GO TO 400\r\n      ASSIGN 310 TO IRET\r\n      IWANT = ILL\r\n      GO TO 320\r\n  310 BUF(IMDI+LL) = ORF(ANDF(BUF(IMDI+LL),MASKLL),LSHIFT(IFND,20))\r\n      GO TO 400\r\nC\r\nC     FIND THE INDEX OF THE IMAGE SUBSTRUCTURE TO THE SUBSTRUCTURE WITH\r\nC     INDEX IWANT.  STORE THE FOUND INDEX IN IFND\r\nC\r\n  320 DO 330 K = 1,ITOP\r\n      IF (IMORE(K) .NE. IWANT) GO TO 330\r\n      IFND = IMORE(LIM+K)\r\n      GO TO IRET, (270,290,310)\r\n  330 CONTINUE\r\n      GO TO 930\r\nC\r\nC     SET THE POINTERS OF THE ITEMS BELONGING TO THE SUBSTRUCTURE WITH\r\nC     INDEX IND2\r\nC\r\n  400 DO 410 J = IFRST,DIRSIZ\r\n  410 BUF(IMDI+J) = 0\r\n  420 IF (IPTR .EQ. 1) GO TO 440\r\nC\r\nC     IMAGE SUBSTRUCTURE - SET POINTERS TO SHARED ITEMS AND SET IB BIT\r\nC\r\n      DO 430 J = 1,NITEM\r\n      IF (ITEM(4,J) .NE. 0) GO TO 430\r\n      ITM = J + IFRST - 1\r\n      IF (BUF(IMDI+ITM) .EQ. 0) BUF(IMDI+ITM) = ISAVE(ITM)\r\n  430 CONTINUE\r\n      BUF(IMDI+IB) = ORF(BUF(IMDI+IB),LSHIFT(1,30))\r\n      GO TO 500\r\nC\r\nC     SECONDARY SUBSTRUCTURE - SET POINTERS TO SHARED ITEMS\r\nC\r\n  440 DO 450 J = 1,NITEM\r\n      IF (ITEM(5,J) .NE. 0) GO TO 450\r\n      ITM = J + IFRST - 1\r\n      IF (BUF(IMDI+ITM) .EQ. 0) BUF(IMDI+ITM) = ISAVE(ITM)\r\n  450 CONTINUE\r\nC\r\nC     COPY APPROPRIATE ITEMS OF NAME1 AND WRITE THEM FOR\r\nC     NAME2 AFTER CHANGING NAME1 TO NAME2 AND INSERTING THE NEW PREFIX\r\nC     TO THE NAMES OF ALL CONTRIBUTING SUBSTRUCTURES\r\nC\r\n  500 DO 700 J = 1,NITEM\r\n      IF (ITEM(3,J) .EQ. 0) GO TO 700\r\n      KK = J + IFRST - 1\r\n      IF (BUF(IMDI+KK) .NE. 0) GO TO 700\r\n      IRDBL = ANDF(ISAVE(KK),JHALF)\r\n      IF (IRDBL.NE.0 .AND. IRDBL.NE.JHALF) GO TO 510\r\n      BUF(IMDI+KK) = ISAVE(KK)\r\n      GO TO 700\r\n  510 CALL SOFIO (IRD,IRDBL,BUF(IO-2))\r\n      CALL FDIT (IND2,IDIT)\r\n      BUF(IO+1) = BUF(IDIT  )\r\n      BUF(IO+2) = BUF(IDIT+1)\r\n      CALL GETBLK (0,IWRTBL)\r\n      IF (IWRTBL .EQ. -1) GO TO 940\r\n      NEWBLK = IWRTBL\r\n      NUMB = ITEM(3,J)/1000000\r\n      MIN  = (ITEM(3,J) - NUMB*1000000)/1000\r\n      INC  = ITEM(3,J) - NUMB*1000000 - MIN*1000\r\n      NUMB = BUF(IO+NUMB)\r\n      IF (NUMB.GT.1 .OR. ILL.NE.0 .OR. IPTR.NE.1) GO TO 530\r\nC\r\nC     BASIC SUBSTRUCTURE\r\nC\r\n      BUF(IO+MIN  ) = NAME2(1)\r\n      BUF(IO+MIN+1) = NAME2(2)\r\n      MORE = .FALSE.\r\n      GO TO 580\r\nC\r\nC     NOT A BASIC SUBSTRUCTURE\r\nC\r\n  530 IF (NUMB .LE. (BLKSIZ-MIN+1)/INC) GO TO 540\r\n      NUMB = NUMB - (BLKSIZ-MIN+1)/INC\r\n      MAX  = BLKSIZ\r\n      MORE = .TRUE.\r\n      GO TO 550\r\n  540 MAX  = MIN + INC*NUMB - 1\r\n      MORE = .FALSE.\r\nC\r\nC     INSERT THE NEW PREFIX TO THE NAMES OF ALL CONTRIBUTING SUBSTRUC-\r\nC     TURES\r\nC     IF THE COMPONENT IS FOR MODAL DOF ON THE SECONDARY SUBSTRUCTURE,\r\nC     USE THE ACTUAL NAME INSTEAD OF ADDING A PREFIX\r\nC\r\n  550 DO 570 K = MIN,MAX,INC\r\n      IF (BUF(IO+K).EQ.NAME1(1) .AND. BUF(IO+K+1).EQ.NAME1(2))\r\n     1    GO TO 560\r\n      FIRST = KLSHFT(KRSHFT(PREFX,NCPW-1),NCPW-1)\r\n      REST  = KLSHFT(KRSHFT(BUF(IO+K  ),NCPW-3),NCPW-4)\r\n      FIRST2= KLSHFT(KRSHFT(BUF(IO+K  ),NCPW-4),NCPW-1)\r\n      REST2 = KLSHFT(KRSHFT(BUF(IO+K+1),NCPW-3),NCPW-4)\r\n      BUF(IO+K  ) = ORF(ORF(FIRST ,REST ),MASK)\r\n      BUF(IO+K+1) = ORF(ORF(FIRST2,REST2),MASK)\r\n      GO TO 570\r\nC\r\n  560 BUF(IO+K  ) = NAME2(1)\r\n      BUF(IO+K+1) = NAME2(2)\r\n  570 CONTINUE\r\nC\r\nC     WRITE OUT UPDATED DATA BLOCK\r\nC\r\n  580 CALL SOFIO (IWRT,IWRTBL,BUF(IO-2))\r\n      CALL FNXT (IRDBL,INXT)\r\n      IF (MOD(IRDBL,2) .EQ. 1) GO TO 590\r\n      NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF)\r\n      GO TO 600\r\n  590 NEXT = ANDF(BUF(INXT),JHALF)\r\n  600 IF (NEXT .EQ. 0) GO TO 620\r\nC\r\nC     MORE BLOCKS TO COPY\r\nC\r\n      IRDBL = NEXT\r\n      CALL GETBLK (IWRTBL,NEXT)\r\n      IF (NEXT.NE.-1) GO TO 610\r\n      CALL RETBLK (NEWBLK)\r\n      GO TO 940\r\n  610 IWRTBL = NEXT\r\n      CALL SOFIO (IRD,IRDBL,BUF(IO-2))\r\n      MIN = 1\r\n      IF (MORE) GO TO 530\r\n      GO TO 580\r\nC\r\nC     NO MORE BLOCKS TO COPY.  UPDATE MDI OF NAME2\r\nC\r\n  620 BUF(IMDI+KK) = ORF(LSHIFT(RSHIFT(ISAVE(KK),IHALF),IHALF),NEWBLK)\r\n  700 CONTINUE\r\nC\r\n      MDIUP = .TRUE.\r\n      IF (IPTR .EQ. ITOP) GO TO 720\r\n      IPTR = IPTR + 1\r\n      IND1 = IMORE(IPTR    )\r\n      IND2 = IMORE(IPTR+LIM)\r\n      GO TO 210\r\nC\r\nC     WRITE USER MESSAGES\r\nC\r\n  720 IF(DRY .EQ. 0) GO TO 780\r\n      DO 730 I = 1,96\r\n  730 SUBTIT(I) = IEMPTY\r\n      CALL PAGE\r\n      CALL PAGE2 (-4)\r\n      WRITE (NOUT,800) NAME2,NAME1\r\n      IMAGE = IMORE(LIM+1)\r\n      CALL FMDI (IMAGE,IMDI)\r\n      IPS = ANDF(BUF(IMDI+1),1023)\r\n      CALL FDIT (IPS,I)\r\n      CALL PAGE2 (-2)\r\n      WRITE (NOUT,810) NAME2,BUF(I),BUF(I+1)\r\n      IPTR = 2\r\n      IF (IPTR .GT. ITOP) GO TO 990\r\n      CALL PAGE2 (-2)\r\n      WRITE (NOUT,820)\r\n  740 DO 750 I = 1,16\r\n  750 IMORE(I) = IEMPTY\r\n      J = 1\r\n  760 IMAGE = IMORE(IPTR+LIM)\r\n      CALL FDIT (IMAGE,I)\r\n      IMORE(J  ) = BUF(I  )\r\n      IMORE(J+1) = BUF(I+1)\r\n      IPTR = IPTR + 1\r\n      IF (IPTR .GT. ITOP) GO TO 770\r\n      J = J + 2\r\n      IF (J .LT. 16) GO TO 760\r\n  770 CALL PAGE2 (-2)\r\n      WRITE (NOUT,830) (IMORE(J),J=1,16)\r\n      IF (IPTR .LE. ITOP) GO TO 740\r\n      GO TO 990\r\nC\r\nC     DRY RUN - PRINT MESSAGE INDICATING ONLY ADDITIONS MADE\r\nC\r\n  780 CALL PAGE2 (-3)\r\n      WRITE (NOUT,840) UIM,NAME2,NAME1,NAME2\r\n      GO TO 990\r\nC\r\n  800 FORMAT (32X,67HS U B S T R U C T U R E   E Q U I V A L E N C E   O\r\n     1 P E R A T I O N ,///23X,13HSUBSTRUCTURE ,2A4,56H HAS BEEN CREATED\r\n     2 AND MARKED EQUIVALENT TO SUBSTRUCTURE ,2A4)\r\n  810 FORMAT (1H0,22X,28HTHE PRIMARY SUBSTRUCTURE OF ,2A4,4H IS ,2A4)\r\n  820 FORMAT (1H0,22X, 56HTHE FOLLOWING IMAGE SUBSTRUCTURES HAVE BEEN GE\r\n     1NERATED --)\r\n  830 FORMAT (1H0,22X,10(2A4,2X))\r\n  840 FORMAT (A29,' 6228, SUBSTRUCTURE ',2A4,' IS ALREADY AN EQUIVALENT'\r\n     1,      ' SUBSTRUCTURE TO ',2A4, /36X,'ONLY ITEMS NOT PREVIOUSLY ',\r\n     2       'EXISTING FOR ',2A4,' HAVE BEEN MADE EQUIVALENT.')\r\n  850 FORMAT (A25,' 6236, DURING THE CREATION OF A NEW IMAGE SUBSTRUC',\r\n     1       'TURE NAMED ',2A4,' THE LAST CHARACTER ', /5X,\r\n     2       'OF SUBSTRUCTURE NAMED ',2A4,' WAS TRUNCATED TO MAKE ROOM',\r\n     3       ' FOR THE PREFIX.')\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n  900 ITEST = 4\r\n      GO TO 990\r\n  910 ITEST = 9\r\n      GO TO 990\r\n  920 ITEST = 8\r\n      GO TO 990\r\n  930 CALL ERRMKN (INDSBR,3)\r\n  940 WRITE  (NOUT,950) UFM\r\n  950 FORMAT (A23,' 6223, SUBROUTINE SETEQ - THERE ARE NO MORE FREE ',\r\n     1        'BLOCKS AVAILABLE ON THE SOF.')\r\n      K = -37\r\n      GO TO 980\r\n  960 K = -8\r\n      GO TO 980\r\n  970 CALL ERRMKN (INDSBR,10)\r\n  980 CALL SOFCLS\r\n      CALL MESAGE (K,0,NMSBR)\r\nC\r\n  990 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/setfnd.f",
    "content": "      SUBROUTINE SETFND(*,SET,LSET,ID,NEXT)\r\nC*****\r\nC  FINDS AN ID IN A SORTED SET LIST WHICH MAY HAVE THE NASTRAN THROUGH\r\nC  NOTATION.  IE.  6,-18 IMPLIES 6 THRU 18.\r\nC\r\nC  -SET- IS THE LIST OF IDS.\r\nC  -LSET- IS THE LENGTH OF THE LIST IN -SET-.\r\nC  -ID- IS THE ID BEING LOOKED FOR IN THE LIST -SET-.\r\nC  -NEXT- IS A RELATIVE INDEX INTO THE LIST -SET-.  IT SHOULD BE SET\r\nC  TO 1 ON THE FIRST CALL TO THIS ROUTINE FOR A GIVEN LIST AND THEN\r\nC  RETURNED ON FUTURE CALLS.\r\nC\r\nC  THIS ROUTINE MOVES FORWARD ONLY UNTIL AN ID IN THE LIST IS GREATER\r\nC  THAN THE ID BEING ASKED FOR.    -NEXT-  IF NOT RESET TO 1 WILL ALLOW\r\nC  THE ROUTINE TO SEARCH ONLY FROM WHERE LAST SEARCH LEFT OFF.\r\nC\r\nC  THE NON-STANDARD RETURN IS TAKEN IN THE EVENT THE ID IS NOT IN THE\r\nC  LIST.  A NORMAL RETURN IS TAKEN IF THE ID IS IN THE LIST.\r\nC\r\nC  -NEXT- SHOULD BE SET TO 1 ON THE FIRST CALL TO THIS ROUTINE OR WHEN\r\nC  AN ID TO BE LOOKED FOR IS SMALLER THAN AN ID PREVIOUSLY LOOKED FOR.\r\nC\r\nC  IF IDS TO BE LOOKED FOR ARE NOT IN SORT AND THE SET LIST IS IN SORT\r\nC  WITHOUT THE NASTRAN THROUGH NOTATION, THEN THE NASTRAN BINARY SEARCH\r\nC  ROUTINE -BISRCH- SHOULD BE USED.\r\nC\r\nC  IT IS OK TO CALL THIS ROUTINE WITH MORE THAN ONE OF THE SAME IDS\r\nC  WITHOUT RESETTING -NEXT-.\r\nC*****\r\n      INTEGER SET(LSET)\r\nC\r\n   10 ID1 = SET(NEXT)\r\n   20 IF( NEXT - LSET ) 30,80,100\r\nC\r\nC     STILL POSITIONED WITHIN THE SET LIST.\r\nC\r\n   30 IF( ID - ID1 ) 100,110,40\r\nC\r\nC     CHECK FOR THRU CASE\r\nC\r\n   40 ID1 = SET(NEXT+1)\r\n      IF( ID1 ) 50,70,70\r\nC\r\nC     YES POSITIONED IN A THRU CASE\r\nC\r\n   50 IF( ID + ID1 ) 110,110,60\r\nC\r\nC     ID BEING LOOKED FOR IS BEYOND THIS THRU CASE.\r\nC\r\n   60 NEXT = NEXT + 2\r\n      GO TO 10\r\nC\r\nC     NOT IN A THRU CASE\r\nC\r\n   70 NEXT = NEXT + 1\r\n      GO TO 20\r\nC\r\nC     AT THE LAST ID IN THE LIST\r\nC\r\n   80 IF( ID - ID1 ) 100,110,90\r\n   90 NEXT = NEXT + 1\r\n  100 RETURN 1\r\n  110 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/setig.f",
    "content": "      SUBROUTINE SETIG (KG1,KG2,IG,NORIG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     THIS ROUTINE SETS IG(KG1,-)=KG2 AND IG(KG2,-)=KG1 IF THIS\r\nC     CONNECTION HAS NOT ALREADY BEEN SET.\r\nC     NEDGE = NUMBER OF UNIQUE EDGES.\r\nC\r\n      INTEGER          BUNPK\r\n      DIMENSION        IG(1),    NORIG(1), SUB(2)\r\n      COMMON /BANDS /  NN,       MM,       DUM2(2),  MAXGRD,   MAXDEG,\r\n     1                 DUM3(3),  NEDGE\r\n      COMMON /SYSTEM/  IBUF,     NOUT\r\n      DATA             SUB /     4HSETI,   4HG       /\r\nC\r\n      IF (KG1.EQ.0 .OR. KG2.EQ.0 .OR. KG1.EQ.KG2) GO TO 80\r\n      L=KG1\r\n      K=KG2\r\n      DO 50 LOOP=1,2\r\n      IF (LOOP.EQ.1) GO TO 20\r\n      L=KG2\r\n      K=KG1\r\n   20 M=0\r\n   30 M=M+1\r\n      IF (M.GT.MAXDEG) GO TO 60\r\n      IS=BUNPK(IG,L,M)\r\n      IF (IS.EQ.0) GO TO 40\r\n      IF (IS.NE.K) GO TO 30\r\n      GO TO 80\r\n   40 CALL BPACK (IG,L,M,K)\r\n      MM=MAX0(MM,M)\r\n      IF (LOOP.EQ.1) NEDGE = NEDGE + 1\r\n   50 CONTINUE\r\n      GO TO 80\r\nC\r\n   60 WRITE (NOUT,70) NORIG(L),MAXDEG\r\n   70 FORMAT (34H0***  FATAL ERROR - - - GRID POINT,I10,\r\n     1        48H  HAS DEGREE EXCEEDING THE NODAL DEGREE LIMIT OF,I8)\r\n      CALL MESAGE (-8,0,SUB)\r\n   80 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/setinp.f",
    "content": "      SUBROUTINE SETINP\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         RSHIFT,COMPLF\r\n      REAL             FWRD\r\n      DOUBLE PRECISION DWRD\r\n      DIMENSION        NAME(2),EL(1),GP(1),CARD(65),TYP(100),AWRD(2),\r\n     1                 PCARD(20),POCARD(200)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  SKP11,NSETS,SKP12(8),PCDB,SKP2(9),\r\n     1                 MERR,PLOT,MSETID,SKP3(7),MSET,IPCDB\r\n      COMMON /SYSTEM/  BUFSIZ,NOUT,NOGO,NIN,NSK(81),INTR\r\n      COMMON /GPTA1 /  NTYPES,LAST,INCR,NE(1)\r\n      COMMON /ZZZZZZ/  X(1)\r\n      EQUIVALENCE      (X(1),EL(1),GP(1))\r\n      EQUIVALENCE      (WORD,AWRD(1),IWRD,FWRD,DWRD)\r\n      DATA    INPREW,  OUTREW,REW,NOREW,EOR / 0, 1, 1, 3, 1000000      /\r\n      DATA    BLNK  ,  STOP,GO,NAME /4H    ,4HSTOP,4HGO  ,4H SET,3HINP /\r\n      DATA    SET   ,  INCL,  EXCL,  ELEM,  GRID,  POIN,  EXCE,  TO    /\r\n     1        3HSET ,  4HINCL,4HEXCL,4HELEM,4HGRID,4HPOIN,4HEXCE,2HTO  /\r\n      DATA    THRU  ,  ALL,    ILXX /4HTHRU,3HALL, 2HXX /\r\nC\r\n      CALL DELSET\r\n      B1 = KORSZ(X) - 5*BUFSIZ + 1\r\n      B2 = B1 + BUFSIZ\r\n      B3 = B2 + BUFSIZ\r\n      B4 = B3 + BUFSIZ\r\n      NOGO  = 0\r\n      ORG   = 0\r\n      PORG  = -1\r\n      ALLON = COMPLF(0)\r\n      POCARD(200) = RSHIFT(ALLON,1)\r\n      ENCARD = POCARD(200)\r\nC\r\nC     OPEN ALL NECESSARY FILES\r\nC\r\n      IOREW = INPREW\r\n      IF (INTR .LE. 0) GO TO 10\r\n      PCDB  = IPCDB\r\n      IOREW = OUTREW\r\n   10 CALL OPEN (*210,PCDB,X(B1),IOREW)\r\n      IF (INTR .LE. 0) GO TO 50\r\nC\r\n      WRITE (NOUT,270)\r\n   20 DO 25 J = 1,20\r\n   25 PCARD(J) = BLNK\r\n      DO 26 J = 1,199\r\n   26 POCARD(J) = BLNK\r\n      CALL XREAD (*28,PCARD)\r\n      IF (PCARD(1) .EQ. STOP) GO TO 220\r\n      IF (PCARD(1) .EQ.   GO) GO TO 40\r\n      CALL XRCARD (POCARD,199,PCARD)\r\n      CALL IFP1PC (1,ICONT,POCARD,ORG,PORG)\r\n      IF (NOGO .EQ. 0) GO TO 30\r\n      NOGO = 0\r\n   28 WRITE (NOUT,300)\r\n      GO TO 20\r\n   30 WRITE (1,290) PCARD\r\n      IE = 1\r\n      DO 33 J = 1,199\r\n      IF (POCARD(J) .NE. 0) GO TO 32\r\n      DO 31 JC = 1,5\r\n   31 IF (POCARD(J+JC) .NE. BLNK) GO TO 32\r\n      NW = J\r\n      GO TO 34\r\n   32 IF (POCARD(J) .NE. ENCARD) GO TO 33\r\n      NW = J\r\n      GO TO 34\r\n   33 CONTINUE\r\n      NW = 80\r\n   34 CALL WRITE (PCDB,POCARD,NW,IE)\r\n      GO TO 20\r\n   40 CALL CLOSE (PCDB,REW)\r\n      IF (INTR .GT. 10) NOUT = 1\r\n      CALL OPEN (*210,PCDB,X(B1),INPREW)\r\n   50 IF (INTR .LE. 0) CALL FREAD (PCDB,0,-2,1)\r\n      CALL GOPEN (PLOT,X(B2),OUTREW)\r\n      CALL GOPEN (MSET,X(B3),OUTREW)\r\n      CALL GOPEN (MSETID,X(B4),OUTREW)\r\n      CALL RDMODX (PCDB,MODE,WORD)\r\nC\r\nC     READ MODE FLAG.  SHOULD BE ALPHABETIC\r\nC\r\n  100 CALL READ (*200,*200,PCDB,MODE,1,0,I)\r\n      IF (MODE) 101,100,102\r\n  101 I = 1\r\n      IF (MODE .EQ. -4) I = 2\r\n      CALL FREAD (PCDB,0,-I,0)\r\n      GO TO 100\r\n  102 IF (MODE .LT. EOR) GO TO 103\r\n      CALL FREAD (PCDB,0,0,1)\r\n      GO TO 100\r\n  103 MODE = MODE + 1\r\n      CALL RDWORD (MODE,WORD)\r\n      CALL RDWORD (MODE,WORD)\r\n      IF (WORD.EQ.SET .AND. MODE.EQ.0) GO TO 115\r\nC\r\nC     THIS CARD IS A PLOT CONTROL CARD\r\nC\r\n  105 CALL BCKREC (PCDB)\r\n  106 CALL READ (*200,*110,PCDB,CARD,65,1,I)\r\n      WRITE  (NOUT,108)\r\n  108 FORMAT ('  ARRAY CARD OF 65 TOO SAMLL')\r\n      CALL MESAGE (-37,0,NAME)\r\n  110 CALL WRITE (PLOT,CARD,I,1)\r\n      IF (CARD(I)) 100,106,100\r\nC\r\nC     THIS CARD DEFINES A NEW SET\r\nC\r\n  115 ASSIGN 116 TO TRA\r\n      CALL RDMODE (*250,*105,*100,MODE,WORD)\r\n  116 SETID = IWRD\r\n      NELX  = 0\r\n      NGPX  = B1\r\n      NT    = 0\r\n      XX    = 1\r\n      ELGP  = 0\r\nC\r\n      IF (MODE .LE. 0) CALL RDMODE (*136,*121,*175,MODE,WORD)\r\n  121 CALL RDWORD (MODE,WORD)\r\nC\r\nC     CHECK FOR AN -INCLUDE- OR -EXCLUDE- CARD\r\nC\r\n  125 IF (WORD.NE.INCL .AND. WORD.NE.EXCL .AND. WORD.NE.EXCE) GO TO 128\r\n  126 IF (WORD .EQ. INCL) XX = 1\r\n      IF (WORD .EQ. EXCL) XX =-1\r\n      IF (WORD .EQ. EXCE) XX =-XX\r\n      IF (MODE.EQ.0) CALL RDMODE (*136,*127,*175,MODE,WORD)\r\n  127 CALL RDWORD (MODE,WORD)\r\n  128 IF (WORD .EQ. GRID) GO TO 131\r\n      IF (WORD .NE. ELEM) GO TO 147\r\nC\r\nC     ELEMENTS ARE TO BE INCLUDED OR EXCLUDED (BY ID OR TYPE)\r\nC\r\n      ELGP = 0\r\n      IF (MODE) 136,135,121\r\nC\r\nC     A LIST OF GRID POINTS IS TO BE INCLUDED OR EXCLUDED (PERTAIN ONLY\r\nC     TO DEFORMED PLOTS)\r\nC\r\n  131 IF (MODE .LE. 0) CALL RDMODE (*131,*132,*175,MODE,WORD)\r\n  132 CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.POIN .OR. MODE.NE.0) GO TO 125\r\n      ELGP = 1\r\nC\r\nC     A LIST OF ELEMENT OR GRID POINT ID-S CAN BE EXPLICITLY LISTED, OR\r\nC     PREFERABLY A RANGE CAN BE SPECIFIED (SEPARATED BY THE WORD -TO-\r\nC     OR -THRU-)\r\nC\r\n  135 CALL RDMODE (*136,*121,*175,MODE,WORD)\r\n  136 ASSIGN 137 TO TRA\r\n      GO TO 250\r\n  137 IF (NELX+1 .GE. NGPX) CALL MESAGE (-8,0,NAME)\r\n      IF (ELGP .NE. 0) GO TO 138\r\n      NELX = NELX + 1\r\n      EL(NELX) = ISIGN(IWRD,XX)\r\n      GO TO 140\r\n  138 NGPX = NGPX - 1\r\n      GP(NGPX) = ISIGN(IWRD,XX)\r\nC\r\n  140 CALL RDMODE (*250,*141,*175,MODE,WORD)\r\n  141 CALL RDWORD (MODE,WORD)\r\n      IF (WORD.NE.TO .AND. WORD.NE.THRU) GO TO 125\r\n      IF (MODE .NE. 0) GO TO 125\r\n      ASSIGN 142 TO TRA\r\n      CALL RDMODE (*250,*125,*175,MODE,WORD)\r\n  142 IF (NELX+2 .GE. NGPX) CALL MESAGE (-8,0,NAME)\r\n      IF (ELGP .NE. 0) GO TO 143\r\n      EL(NELX+1) = TO\r\n      EL(NELX+2) = IWRD\r\n      NELX = NELX + 2\r\n      GO TO 135\r\n  143 GP(NGPX-1) = TO\r\n      GP(NGPX-2) = ISIGN(IWRD,XX)\r\n      NGPX = NGPX - 2\r\n      GO TO 135\r\nC\r\nC     AN ELEMENT TYPE CAN BE INCLUDED OR EXCLUDED\r\nC\r\n  145 IF (MODE .LE. 0) CALL RDMODE (*136,*146,*175,MODE,WORD)\r\n  146 CALL RDWORD (MODE,WORD)\r\n  147 IF (WORD.EQ.INCL .OR. WORD.EQ.EXCL .OR. WORD.EQ.EXCE) GO TO 126\r\n      IF (WORD.EQ.GRID .OR. WORD.EQ.ELEM) GO TO 128\r\n      IF (WORD .NE. ALL) GO TO 150\r\n      I  = NTYPES + 1\r\n  149 NT = NT + 2\r\nC\r\nC     SECOND WORD FOR EACH TYP LOCATES ELEMENT INCLUDE/EXCLUDE SEARCH\r\nC     POINTER.  ELEMENT ID-S GIVEN PRIOR TO NELX ARE SKIPPED\r\nC\r\n      TYP(NT-1) = ISIGN(I,XX)\r\n      TYP(NT  ) = NELX + 1\r\n      ELGP = 0\r\n      GO TO 145\r\nC\r\n  150 DO 151 I = 1,NTYPES\r\n      IDX = (I-1)*INCR\r\nC\r\nC     SKIP ELEMENTS WITH\r\nC       1 GRID\r\nC       SCALAR CONNECTIONS POSSIBLE\r\nC       SPECIAL PLOTTER MNEMONIC OF -XX-\r\nC\r\n      IF (NE(IDX+10).LE.1 .OR. NE(IDX+11).NE.0) GO TO 151\r\n      IF (NE(IDX+16) .EQ. ILXX) GO TO 151\r\n      IF (AWRD(1).EQ.NE(IDX+1) .AND. AWRD(2).EQ.NE(IDX+2)) GO TO 149\r\n  151 CONTINUE\r\n      WRITE  (NOUT,155) UFM,AWRD\r\n  155 FORMAT (A23,' 699,',2A4,' ELEMENT IS INVALID')\r\n      NOGO = 1\r\n      ELGP = 0\r\n      GO TO 145\r\nC\r\nC     A SET HAS BEEN COMPLETELY DEFINED.  FIRST, WRITE THE SET ID\r\nC\r\n  175 IF (NELX.EQ.0 .AND. NT.EQ.0) GO TO 100\r\n      CALL WRITE (MSETID,SETID,1,0)\r\n      CALL WRITE (MSET,SETID,1,0)\r\nC\r\nC     WRITE THE SET OF EXPICIT ELEMENT ID-S\r\nC\r\n      CALL WRITE (MSET,NELX,1,0)\r\n      CALL WRITE (MSET,EL,NELX,0)\r\nC\r\nC     DELETE ALL ELEMENT TYPE DUPLICATES + WRITE REMAINING ONES\r\nC\r\n      N = 0\r\n      IF (NT .EQ. 0) GO TO 178\r\n      DO 177 J = 1,NT,2\r\n      XX = TYP(J)\r\n      IF (XX .EQ. 0) GO TO 177\r\n      DO 176 I = J,NT,2\r\n      IF (I.EQ.J .OR. IABS(XX).NE.IABS(TYP(I))) GO TO 176\r\nC\r\nC     DELETE BOTH IF NEGATIVE OF OTHER\r\nC\r\n      IF (XX .EQ. -TYP(I)) TYP(J) = 0\r\n      TYP(I) = 0\r\n  176 CONTINUE\r\n      IF (TYP(J) .EQ. 0) GO TO 177\r\n      N = N + 2\r\n      TYP(N-1) = XX\r\n      TYP(N  ) = TYP(J+1)\r\n  177 CONTINUE\r\n  178 CALL WRITE (MSET,N,1,0)\r\n      CALL WRITE (MSET,TYP,N,0)\r\nC\r\nC     WRITE THE SET OF EXPLICIT GRID POINT ID-S\r\nC\r\n      N = B1 - NGPX\r\n      CALL WRITE (MSET,N,1,0)\r\n      CALL WRITE (MSET,GP(NGPX),N,1)\r\n      NSETS = NSETS + 1\r\n      GO TO 100\r\nC\r\nC     END OF -PCDB-\r\nC\r\n  200 CALL CLSTAB (MSET,REW)\r\n      CALL CLSTAB (PLOT,REW)\r\n      CALL CLSTAB (MSETID,NOREW)\r\n      CALL CLOSE  (PCDB,REW)\r\n      IF (NSETS .EQ. 0) WRITE (NOUT,205) UIM\r\n  205 FORMAT (A29,', NO SETS EXIST IN PLOT PACKAGE')\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,0)\r\n  210 RETURN\r\n  220 NOGO = 1\r\n      RETURN\r\nC\r\nC     READ AN INTEGER\r\nC\r\n  250 IF (MODE .EQ. -1) GO TO 260\r\n      IF (MODE .EQ. -4) IWRD = DWRD\r\n      IF (MODE .NE. -4) IWRD = FWRD\r\n  260 GO TO TRA, (116,137,142)\r\nC\r\n  270 FORMAT (' ENTER PLOT DEFINITION OR ''GO'' IF DONE.')\r\n  290 FORMAT (20A4)\r\n  300 FORMAT (' BAD CARD TRY AGIAN')\r\n      END\r\n"
  },
  {
    "path": "mis/setlvl.f",
    "content": "      SUBROUTINE SETLVL (NEWNM,NUMB,OLDNMS,ITEST,IBIT)\r\nC\r\nC     CREATES A NEW SUBSTRUCTURE NEWNM WHERE\r\nC     - NEWNM IS AN INDEPENDENT SUBSTRUCTURE IF NUMB = 0\r\nC     - NEWNM IS REDUCED FROM THE FIRST SUBSTRUCTURE IN THE ARRAY OLDNMS\r\nC     - NEWNM RESULTS FROM COMBINING THE FIRST I SUBSTRUCTURES IN THE\r\nC       ARRAY OLDNMS IF NUMB = I\r\nC\r\nC     THE OUTPUT VARIABLE ITEST TAKES ON ONE OF THE FOLLOWING VALUES\r\nC          4  IF ONE  OR MORE SUBSTRUCTURES IN OLDNMS DO NOT EXIST\r\nC          7  IF NEWNM ALREADY EXISTS\r\nC          8  IF ONE OF THE SUBSTRUCTURES IN OLDNMS HAS ALREADY\r\nC             BEEN USED IN A REDUCTION OR COMBINATION\r\nC          1  OTHERWISE\r\nC\r\nC     IF ITEST IS SET TO 4, NUMB WILL BE SET TO THE NUMBER OF\r\nC     SUBSTRUCTURES IN OLDNMS THAT DO NOT EXIST AND THE FIRST NUMB NAMES\r\nC     IN OLDNMS WILL BE SET TO THE NAMES OF THOSE SUBSTRUCTURES THAT DO\r\nC     NOT EXIST.  BIT IBIT OF THE FIRST MDI WORD IS SET TO INDICATE THE\r\nC     APPROPRIATE TYPE OF SUBSTRUCTURE. IF IBIT IS ZERO NO CHANGE IS\r\nC     MADE TO THE MDI\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         DITUP,MDIUP\r\n      DIMENSION       NEWNM(2),OLDNMS(14),IOLD(7),NMSBR(2)\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL,\r\n     1                IODUM(8),MDI,MDIPBN,MDILBN,MDIBL,\r\n     2                NXTDUM(15),DITUP,MDIUP\r\n      DATA    IEMPTY/ 4H    /, NMSBR / 4HSETL,4HVL  /\r\n      DATA    LL,CS , HL    /  2,2,2 /\r\n      DATA    IB    / 1     /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ITEST = 1\r\n      CALL FDSUB (NEWNM(1),I)\r\n      IF (I  .NE.  -1) GO TO 500\r\n      IF (NUMB .EQ. 0) GO TO 20\r\nC\r\nC     MAKE SURE THAT ALL THE SUBSTRUCTURES IN OLDNMS DO EXIST.\r\nC\r\n      ICOUNT = 0\r\n      DO 10 I = 1,NUMB\r\n      K = 2*(I-1) + 1\r\n      CALL FDSUB (OLDNMS(K),IOLD(I))\r\n      IF (IOLD(I) .GT. 0) GO TO 10\r\n      ICOUNT = ICOUNT + 1\r\n      KK = 2*(ICOUNT-1) + 1\r\n      OLDNMS(KK  ) = OLDNMS(K  )\r\n      OLDNMS(KK+1) = OLDNMS(K+1)\r\n   10 CONTINUE\r\n      IF (ICOUNT .EQ. 0) GO TO 20\r\n      NUMB = ICOUNT\r\n      GO TO 510\r\n   20 CALL CRSUB (NEWNM(1),INEW)\r\n      IF (NUMB .EQ. 0) RETURN\r\nC\r\nC     NEWNM IS NOT A BASIC SUBSTRUCTURE (LEVEL 0).\r\nC     UPDATE NEWNM S DIRECTORY IN THE MDI.\r\nC\r\n      CALL FMDI (INEW,IMDI)\r\n      LLMASK = COMPLF(LSHIFT(1023,20))\r\n      BUF(IMDI+LL) = ORF(ANDF(BUF(IMDI+LL),LLMASK),LSHIFT(IOLD(1),20))\r\n      IF (IBIT .NE. 0) BUF(IMDI+IB) = ORF(BUF(IMDI+IB),LSHIFT(1,IBIT))\r\n      MDIUP = .TRUE.\r\nC\r\nC     UPDATE IN THE MDI THE DIRECTORIES OF THE SUBSTRUCTURES IN OLDNMS.\r\nC\r\n      IF (NUMB .GT. 7) NUMB = 7\r\n      MASKCS = COMPLF(LSHIFT(1023,10))\r\n      DO 50 I = 1,NUMB\r\n      CALL FMDI (IOLD(I),IMDI)\r\n      IF (ANDF(BUF(IMDI+HL),1023) .EQ. 0) GO TO 40\r\n      ICOUNT = I\r\n      GO TO 520\r\n   40 BUF(IMDI+HL) = ORF(BUF(IMDI+HL),INEW)\r\n      MDIUP = .TRUE.\r\n      IF (NUMB .EQ. 1) RETURN\r\n      IF (I .EQ. NUMB) GO TO 130\r\n      BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKCS),LSHIFT(IOLD(I+1),10))\r\n   50 CONTINUE\r\n  130 BUF(IMDI+CS) = ORF(ANDF(BUF(IMDI+CS),MASKCS),LSHIFT(IOLD(1),10))\r\n      RETURN\r\nC\r\nC     NEWNM ALREADY EXISTS.\r\nC\r\n  500 ITEST = 7\r\n      RETURN\r\nC\r\nC     ONE OR MORE OF THE SUBSTRUCTURES IN OLDNMS DO NOT EXIST.\r\nC\r\n  510 ITEST = 4\r\n      RETURN\r\nC\r\nC     ONE OF THE SUBSTRUCTURES IN OLDNMS HAS ALREADY BEEN USED IN A\r\nC     REDUCTION OR COMBINATION.  REMOVE ALL CHANGES THAT HAVE BEEN MADE.\r\nC\r\n  520 ITEST = 8\r\n      CALL FDIT (INEW,IDIT)\r\n      BUF(IDIT  ) = IEMPTY\r\n      BUF(IDIT+1) = IEMPTY\r\n      DITUP = .TRUE.\r\n      IF (2*INEW .NE. DITSIZ) GO TO 525\r\n      DITSIZ = DITSIZ - 2\r\n  525 DITNSB = DITNSB - 1\r\n      CALL FMDI (INEW,IMDI)\r\n      BUF(IMDI+LL) = ANDF(BUF(IMDI+LL),LLMASK)\r\n      MDIUP  = .TRUE.\r\n      ICOUNT = ICOUNT - 1\r\n      IF (ICOUNT .LT. 1) RETURN\r\n      DO 530 I = 1,ICOUNT\r\n      CALL FMDI (IOLD(I),IMDI)\r\n      BUF(IMDI+HL) = ANDF(BUF(IMDI+HL),COMPLF(1023))\r\n      BUF(IMDI+CS) = ANDF(BUF(IMDI+CS),MASKCS)\r\n      MDIUP = .TRUE.\r\n  530 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/setval.f",
    "content": "      SUBROUTINE SETVAL\r\nC\r\n      EXTERNAL        ANDF,RSHIFT\r\n      INTEGER         ANDF,RSHIFT,P,OSCAR,VPS,SUBNAM(2)\r\n      COMMON /BLANK / P(2,5)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /XVPS  / VPS(1)\r\n      COMMON /OSCENT/ OSCAR(1)\r\n      EQUIVALENCE     (KSYSTM(40),NBPW)\r\n      DATA    SUBNAM/ 4HSETV,4HAL   /\r\nC\r\n      J = 12\r\n      DO 100 I = 1,5\r\nC\r\nC     CHECK ODD PARAMETERS TO FIND VARIABLE ONES\r\nC\r\n      IF (ANDF(RSHIFT(OSCAR(J+1),NBPW-1),1) .EQ. 0) GO TO 200\r\nC\r\nC     PARAMETER IS VARIABLE\r\nC\r\n      K = ANDF(OSCAR(J+1),65535)\r\n      P(1,I) = P(2,I)\r\n      VPS(K) = P(1,I)\r\n      J = J + 2\r\n      IF (ANDF(RSHIFT(OSCAR(J),NBPW-1),1) .EQ. 0) J = J + 1\r\n  100 CONTINUE\r\n      GO TO 500\r\nC\r\n  200 CONTINUE\r\n      IF (I .GT. 1) GO TO 500\r\n      CALL MESAGE (-7,0,SUBNAM)\r\nC\r\n  500 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sfarea.f",
    "content": "      SUBROUTINE SFAREA (NGPT,V,G)\r\nC\r\nC     THIS SUBROUTINE IS CALLED ONLY BY EMGFIN TO COMPUTE THE SURFACE\r\nC     AREAS OF THE SOLID AND PLATE ELEMENTS\r\nC     NOTE - THE INPUT VALUE OF NGPT (NO. OF GRID POINTS) WILL BE\r\nC     CHANGED TO NO. OF SURFACE AREAS (OUTPUT) BY THIS ROUTINE\r\nC\r\nC     DEFINITION OF SURFACES ( 1 THRU 6)\r\nC\r\nC     LET CORNER POINTS 1, 2, 3, 4 ON THE BOTTOM SURFACE OF A CUBE,\r\nC     AND 5, 6, 7, AND 8 ARE ON TOP SURFACE. CORNER POINT 5 IS ON TOP\r\nC     OF POINT 1, THEN FOR SOLID (BRICK) ELEMENTS -\r\nC\r\nC       FACE       CORNER POINTS\r\nC     -------     ---------------\r\nC        1          1  2  3  4\r\nC        2          1  2  6  5\r\nC        3          2  3  7  6\r\nC        4          3  4  8  7\r\nC        5          4  1  5  8\r\nC        6          5  6  7  8\r\nC\r\nC     IN WEDGE AND TETRA, FACE 1 CONTAINS CORNER POINTS 1, 2, AND 3,\r\nC     FACE 2 IS MADE UP OF 1, 2, AND M, WHERE M IS A CORNER POINT NOT\r\nC     ON FACE 1, AND SIMILARLY, FACE 3 HOLDS CONNER POINTS 2, 3, AND N,\r\nC     AND SO ON.\r\nC\r\nC     PLATE (TRIANG AND QUAD) ELEMENTS HAVE ONE SURFACE. MASS AND VOLUME\r\nC     ARE COMPUTED HERE FOR THESE ELEMENTS.\r\nC\r\n      INTEGER         SUB(2),   JX(6),    KX(12),   TYPE(6)\r\n      REAL            V(1),     G(1),     A(6)\r\n      COMMON /BLANK/  DUMMY(16),VOLUME,   SURFAC\r\n      DATA    TETRA,  S2D8,     TRIM6,    TRPL1,    TRSHL  /\r\n     1        4HCTET, 4HCIS2,   4HCTRI,   4HCTRP,   4HCTRS /\r\n      DATA     JX  /  129, 133, 137, 141, 145, 149 /\r\n      DATA    TYPE /    4,   3,   8,   6,  20,  32 /\r\n      DATA     KX  /  9, 33, 5, 89, 17, 101, 29, 113, 41, 125, 89, 113 /\r\n      DATA     SUB /  4HSFAR,   4HEA      /\r\nC\r\nC     AREA(I,J,K)=.5*SQRT(\r\nC    1 ((G(J+2)-G(I+2))*(G(K+3)-G(I+3))-(G(J+3)-G(I+3))*(G(K+2)-G(I+2)))\r\nC    2 **2\r\nC    3+((G(J+3)-G(I+3))*(G(K+1)-G(I+1))-(G(J+1)-G(I+1))*(G(K+3)-G(I+3)))\r\nC    4 **2\r\nC    5+((G(J+1)-G(I+1))*(G(K+2)-G(I+2))-(G(J+2)-G(I+2))*(G(K+1)-G(I+1)))\r\nC    6 **2)\r\nC\r\nC     (THE ABOVE FUNCTION MAY BE TOO LONG FOR SOME MACHINE THAT\r\nC      WOULD CREATE PROBLEM IN COMPILING. SO MOVE IT OUT AND MAKE\r\nC      IT AN EXTERNAL FUNCTION. AND ADD A 'G,' INSIDE ARG. LIST)\r\nC\r\nC\r\nC     1 2 3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 - GRID PT\r\nC     1 5 9 13 17 21 25 29 33 37 41 45 49 53 57 61 65 69 73 77 - POINTER\r\nC\r\nC     21 22 23 24 25  26  27  28  29  30  31  32  C1  C2  C3  C4  C5  C6\r\nC     81 85 89 93 97 101 105 109 113 117 121 125 129 133 137 141 145 149\r\nC     (WHERE C1, C2, ..., C6 ARE CENTER POINTS ON FACES 1, 2, ..., 6)\r\nC\r\n      DO 10 L=1,6\r\n      IF (NGPT .EQ. TYPE(L)) GO TO (120,130,40,30,50,60), L\r\nC                   NO. OF GRID PT =  4,  3, 8, 6,20,32\r\n 10   CONTINUE\r\n      CALL MESAGE (-37,0,SUB)\r\nC\r\nC     4-GRID ELEMENT (TETRA)\r\nC\r\n 20   A(1) = AREA(G,1,5,9 )\r\n      A(2) = AREA(G,1,5,13)\r\n      A(3) = AREA(G,5,9,13)\r\n      A(4) = AREA(G,1,9,13)\r\n      NAREA = 4\r\n      GO TO 200\r\nC\r\nC     6-GRID ELEMENT (WEDGE)\r\nC\r\n 30   IF (V(1).EQ.TRIM6 .OR. V(1).EQ.TRPL1 .OR. V(1).EQ.TRSHL) GO TO 150\r\n      A(1) = AREA(G,1,5,9)\r\n      A(2) = AREA(G,1,5,13) + AREA(G,13,17,5)\r\n      A(3) = AREA(G,5,9,17) + AREA(G,17,21,9)\r\n      A(4) = AREA(G,1,9,13) + AREA(G,9,13,21)\r\n      A(5) = AREA(G,13,17,21)\r\n      NAREA = 5\r\n      GO TO 200\r\nC\r\nC     8-GIRD ELEMENT\r\nC\r\n 40   IF (V(1) .EQ. S2D8) GO TO 140\r\n      A(1) = AREA(G,1,5,9)   + AREA(G,1,9,13)\r\n      A(2) = AREA(G,1,5,17)  + AREA(G,5,17,21)\r\n      A(3) = AREA(G,5,21,25) + AREA(G,5,25,9)\r\n      A(4) = AREA(G,9,25,29) + AREA(G,9,29,13)\r\n      A(5) = AREA(G,13,1,29) + AREA(G,1,29,17)\r\n      A(6) = AREA(G,17,21,25)+ AREA(G,17,25,29)\r\n      GO TO 110\r\nC\r\nC     20-GRID ELEMENT\r\nC\r\n 50   A(1) = AREA(G, 1, 5,29) + AREA(G,29, 5,13) + AREA(G,13, 5, 9) +\r\n     1       AREA(G,13,17,21) + AREA(G,13,21,29) + AREA(G,29,25,21)\r\n      A(2) = AREA(G, 1, 5,33) + AREA(G,33, 5,53) + AREA(G,53,33,49) +\r\n     1       AREA(G,37,57,53) + AREA(G,53,37, 5) + AREA(G, 5, 9,37)\r\n      A(3) = AREA(G, 9,37,13) + AREA(G,13,37,61) + AREA(G,61,37,57) +\r\n     1       AREA(G,61,65,41) + AREA(G,41,61,13) + AREA(G,13,41,17)\r\n      A(4) = AREA(G,17,41,21) + AREA(G,21,69,41) + AREA(G,41,65,69) +\r\n     1       AREA(G,69,73,45) + AREA(G,45,69,21) + AREA(G,21,45,25)\r\n      A(5) = AREA(G, 1,33,29) + AREA(G,29,77,33) + AREA(G,33,49,77) +\r\n     1       AREA(G,77,73,45) + AREA(G,45,77,29) + AREA(G,29,45,25)\r\n      A(6) = AREA(G,49,53,77) + AREA(G,77,53,61) + AREA(G,61,53,57) +\r\n     1       AREA(G,61,65,69) + AREA(G,69,61,77) + AREA(G,77,69,73)\r\n      GO TO 110\r\nC\r\nC     32-GRID ELEMENT\r\nC\r\n 60   DO 70 L=1,6\r\n 70   A(L) = 0.0\r\n      KK = 1\r\n      DO 90 L=129,152,4\r\n      M = KX(KK  )\r\n      N = KX(KK+1)\r\n      DO 80 JJ=1,3\r\n 80   G(L+JJ) = 0.5*(G(M+JJ)+G(N+JJ))\r\n 90   KK = KK+2\r\n      JJ= 2\r\n      DO 100 L=1,12\r\n      M = L*4-3\r\n      N = M+4\r\n      IF (N .GT. 48) N=1\r\n      A( 1) = A( 1) + AREA(G,M,N,JX( 1))\r\n      A(JJ) = A(JJ) + AREA(G,M,N,JX(JJ))\r\n      M = (L+20)*4-3\r\n      N = M+4\r\n      IF (N .GT. 128) N=81\r\n      A( 6) = A( 6) + AREA(G,M,N,JX( 6))\r\n      A(JJ) = A(JJ) + AREA(G,M,N,JX(JJ))\r\n      IF (MOD(L,3) .EQ. 0) JJ = JJ+1\r\n 100  CONTINUE\r\n      A(2)=A(2)+AREA(G, 1, 49,133)+AREA(G,49, 65,133)+AREA(G,65, 81,133)\r\n     1         +AREA(G,13, 53,133)+AREA(G,53, 69,133)+AREA(G,69, 93,133)\r\n      A(3)=A(3)+AREA(G,13, 53,137)+AREA(G,53, 69,137)+AREA(G,69, 93,137)\r\n     1         +AREA(G,25, 57,137)+AREA(G,57, 73,137)+AREA(G,73,105,137)\r\n      A(4)=A(4)+AREA(G,25, 57,141)+AREA(G,57, 73,141)+AREA(G,73,105,141)\r\n     1         +AREA(G,37, 61,141)+AREA(G,61, 77,141)+AREA(G,77,117,141)\r\n      A(5)=A(5)+AREA(G,37, 61,145)+AREA(G,61, 77,145)+AREA(G,77,117,145)\r\n     1         +AREA(G, 1, 49,145)+AREA(G,49, 65,145)+AREA(G,65, 81,145)\r\n 110  NAREA = 6\r\n      GO TO 200\r\nC\r\nC     4-GRID ELEMENT (QUAD)\r\nC\r\n 120  IF (V(1) .EQ. TETRA) GO TO 20\r\n      A(1)=AREA(G,1,5,9) + AREA(G,1,5,13)\r\n      GO TO 160\r\nC\r\nC     3-GRID ELEMENT\r\nC\r\n 130  A(1)=AREA(G,1,5,9)\r\n      GO TO 160\r\nC\r\nC     8-GRID ELEMENT (IS2D8)\r\nC\r\n 140  J=33\r\n      A(1) = G(J)\r\n      GO TO 160\r\nC\r\nC     6-GRID TRIANGULAR ELEMENTS (TRIM6, TRPLT1, TRSHL)\r\nC\r\n 150  I=129\r\n      J=21\r\n      K=9\r\n      DO 155 L=1,3\r\n 155  G(L+I)=G(L+J) + (G(L+K)-G(L+J))*.33333\r\n      A(1) = AREA(G, 1, 5,129) + AREA(G, 5, 9,129) + AREA(G, 9,13,129) +\r\n     1       AREA(G,13,17,129) + AREA(G,17,21,129) + AREA(G,21, 1,129)\r\n 160  NAREA=1\r\nC\r\nC     AT THIS POINT, V(4) AND V(5) ARE THICKNESS AND DENSITY OF THE\r\nC     PLATE. COMPUTE VOLUME AND MASS AND PUT THEM BACK IN V(4) AND V(5)\r\nC\r\n      IF (VOLUME .LE. 0.0) GO TO 200\r\n      J=4\r\n      V(J+1) = A(1)*V(J)*V(J+1)\r\n      V(J) = A(1)*V(J)*VOLUME\r\nC\r\n 200  NGPT = NAREA\r\n      DO 210 L=1,NAREA\r\n 210  V(L+5) = A(L)*SURFAC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sfetch.f",
    "content": "      SUBROUTINE SFETCH (NAME,ITEM,IRW,ITEST)\r\nC\r\nC     POSITIONS THE SOF TO READ OR WRITE DATA ASSOCIATED WITH ITEM OF\r\nC     SUBSTRUCTURE NAME.\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         MDIUP\r\n      INTEGER         ANDF,BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ\r\n      DIMENSION       NAME(2),NMSBR(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,\r\n     1                IOITCD,IOBLK,MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15),\r\n     2                DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      DATA    IDLE  , IRD,IWRT /0,1,2/, NMSBR /4HSFET,4HCH  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      CALL FDSUB  (NAME(1),IOSIND)\r\n      IF (IOSIND .EQ. -1) GO TO 500\r\n      IOITCD = ITCODE(ITEM)\r\n      IF (IOITCD .EQ. -1) GO TO 510\r\nC\r\nC     CHECK IF ITEM IS A TABLE ITEM UNLESS SPECIAL CALL FROM MTRXO OR\r\nC     MTRXI\r\nC\r\n      IF (IRW .LT. 0) GO TO 10\r\n      ITM = ITTYPE(ITEM)\r\n      IF (ITM .NE. 0) GO TO 530\r\n   10 CALL FMDI (IOSIND,IMDI)\r\n      IOLBN = 1\r\n      IOPTR = IO + 1\r\n      IBL   = ANDF(BUF(IMDI+IOITCD),65535)\r\n      IRDWRT= IABS(IRW)\r\n      GO TO (30,80,30), IRDWRT\r\nC\r\nC     READ OPERATION.\r\nC\r\n   30 IF (IBL .EQ.     0) GO TO 50\r\n      IF (IBL .NE. 65535) GO TO 60\r\nC\r\nC     ITEM WAS PSEUDO-WRITTEN.\r\nC\r\n      ITEST = 2\r\n      GO TO 520\r\nC\r\nC     ITEM HAS NOT BEEN WRITTEN.\r\nC\r\n   50 ITEST = 3\r\n      GO TO 520\r\nC\r\nC     UPDATE THE COMMON BLOCK SOF, AND BRING INTO CORE THE DESIRED BLOCK\r\nC\r\n   60 ITEST = 1\r\n      IF (IRDWRT .EQ. 3) GO TO 520\r\n      IOPBN  = IBL\r\n      IOMODE = IRD\r\n      CALL SOFIO (IRD,IOPBN,BUF(IO-2))\r\n      RETURN\r\nC\r\nC     WRITE OPERATION.\r\nC\r\n   80 IF (IBL.EQ.0 .OR. IBL.EQ.65535) GO TO 90\r\nC\r\nC     ITEM HAS ALREADY BEEN WRITTEN.\r\nC\r\n      ITEST = 1\r\n      GO TO 520\r\n   90 ITEST1 = ITEST - 1\r\n      GO TO (100,110), ITEST1\r\nC\r\nC     ITEM IS TO BE PSEUDO-WRITTEN.\r\nC\r\n  100 BUF(IMDI+IOITCD) = 65535\r\n      MDIUP = .TRUE.\r\n      RETURN\r\nC\r\nC     ITEM IS TO BE WRITTEN.  GET A FREE BLOCK AND UPDATE THE COMMON\r\nC     BLOCK SOF.\r\nC\r\n  110 CALL GETBLK (0,IOBLK)\r\n      IF (IOBLK .EQ. -1) GO TO 1000\r\n      IOPBN  = IOBLK\r\n      IOMODE = IWRT\r\n      RETURN\r\nC\r\nC     NAME DOES NOT EXIST.\r\nC\r\n  500 ITEST = 4\r\n      GO TO 520\r\nC\r\nC     ITEM IS AN ILLEGAL ITEM NAME.\r\nC\r\n  510 ITEST  = 5\r\n  520 IOMODE = IDLE\r\n      RETURN\r\nC\r\nC     ATTEMPT TO OPERATE ON A MATRIX ITEM\r\nC\r\n  530 WRITE  (NOUT,540) SFM,ITEM,NAME\r\n  540 FORMAT (A25,' 6227, AN ATTEMPT HAS BEEN MADE TO OPERATE ON THE ',\r\n     1       'MATRIX ITEM ',A4,' OF SUBSTRUCTURE ',2A4,' USING SFETCH.')\r\n      GO TO 1010\r\nC\r\nC     NO MORE BLOCKS ON SOF\r\nC\r\n 1000 WRITE  (NOUT,1001) UFM\r\n 1001 FORMAT (A23,' 6223, SUBROUTINE SFETCH - THERE ARE NO MORE FREE ',\r\n     1       'BLOCKS AVAILABLE ON THE SOF.')\r\n 1010 CALL SOFCLS\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sgen.f",
    "content": "      SUBROUTINE SGEN\r\nC\r\nC     THIS MODULE PREPARES THE INPUT FILES TO NASTRAN FROM A SUBSTRUCTUR\r\nC     FORMULATION IN ORDER TO RUN THE SOLUTION PHASE OF NASTRAN.\r\nC     3 MAJOR STEPS ARE-\r\nC\r\nC     1.  READ CONSTRAINT AND DYNAMICS DATA, CONVERT TO PSEUDO-STRUCTURE\r\nC         DATA, AND OUTPUT ON GP4S AND DYNS.\r\nC\r\nC     2.  READ LOAD COMBO. DATA AND ASSEMBLE SCALAR LOAD SETS ON OUTPUT\r\nC         FILE GP3S.\r\nC\r\nC     3.  BUILD DUMMY FILES FOR EXECUTION- CASEI, GPL, EQEXIN, GPDT,\r\nC         BGPDT, CSTM, AND SIL.\r\nC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        ANDF,ORF,COMPLF\r\n      LOGICAL         NOLC,NOLS,PSUEDO,STEST\r\n      INTEGER         TEMP(10),TEMP2(10),TYPE(2),SPCS1(2),SPCSD(2),\r\n     1                MPCS(2),SPCS(2),LOADC(2),CTYPES(2,8),CTYPEO(2,8),\r\n     2                DAREAS(2),DELAYS(2),DPHSES(2),TICS(2),NLIMIT(3),\r\n     3                MINUS(3),ICODE(4,9),ICOMP(32),LTAB(4,9),MCB(7),\r\n     4                LSLOAD(3),LLOAD(3),NSGEN(2),NCASEC(2),Z(4)\r\n      REAL            RZ,FACT,RTEMP(10),RTEMP2(10)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / DRY,NAME(2),LUSET,NOGPDT\r\n      COMMON /SGENCM/ NONO,NSS,IPTR,BUF1,BUF2,BUF3,NZ\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      COMMON /SYSTEM/ IBUF,OUTT\r\n      COMMON /TWO   / TWO(2)\r\n      COMMON /UNPAKX/ ITY,IROW,NROW,INCR\r\n      EQUIVALENCE     (RZ(1),Z(1)),            (TEMP(1),RTEMP(1)),\r\n     1                (TEMP2(1),RTEMP2(1)),\r\n     2                (CTYPES(1,1),MPCS(1)),   (CTYPES(1,2),SPCS(1)),\r\n     3                (CTYPES(1,3),SPCS1(1)),  (CTYPES(1,4),SPCSD(1)),\r\n     4                (CTYPES(1,5),DAREAS(1)), (CTYPES(1,6),DELAYS(1)),\r\n     5                (CTYPES(1,7),DPHSES(1)), (CTYPES(1,8),TICS(1))\r\n      DATA    MINUS , NLIMIT /3*-1, 3*2147483647 /,\r\n     1        EQSS  / 4HEQSS /,     LODS /4HLODS /\r\n      DATA    CASEC , GEOM3 ,GEOM4 ,DYNAM        /\r\n     1        101   , 102   ,103   ,104          /,\r\n     2        CASES , CASEI ,GPL   ,EQEX  ,GPDT  /\r\n     3        201   , 202   ,203   ,204   ,205   /,\r\n     4        BGPDT , SIL   ,GP3S  ,GP4S  ,DYNS  /\r\n     5        206   , 207   ,208   ,209   ,210   /,\r\n     6        SCRT  , SCRT2 /\r\n     7        201   , 202   /\r\n      DATA    PVEC  / 4HPVEC/      ,NSGEN / 4HSGEN,4H    /\r\nC\r\nC     BULK DATA CARD CODES\r\nC\r\n      DATA    ICODE /\r\nC             MPCS\r\n     1                1110  ,11    ,0     ,0      ,\r\nC             SPCS\r\n     2                810   ,8     ,0     ,0      ,\r\nC             SPCS1\r\n     3                710   ,7     ,0     ,0      ,\r\nC             SPCSD\r\n     4                610   ,6     ,0     ,0      ,\r\nC             LOADC\r\n     5                500   ,5     ,0     ,0      ,\r\nC             DAREAS\r\n     6                9027  ,90    ,0     ,0      ,\r\nC             DELAYS\r\n     7                9137  ,91    ,0     ,0      ,\r\nC             DPHASES\r\n     8                9277  ,92    ,0     ,0      ,\r\nC             TICS\r\n     9                9307  ,93    ,0     ,0      /\r\nC\r\n      DATA    NTYPEC / 4 /\r\n      DATA    NTYPED / 4 /\r\n      DATA    LTAB   /\r\nC             MPC\r\n     1                4901  ,49    ,17    ,1      ,\r\nC             SPC\r\n     2                5501  ,55    ,16    ,2      ,\r\nC             SPC1\r\n     3                5481  ,58    ,12    ,3      ,\r\nC             SPCD\r\n     4                5110  ,51    ,256   ,4      ,\r\nC             LOADC\r\n     5                500   ,5     ,264   ,0      ,\r\nC             DAREA\r\n     6                27    ,17    ,182   ,5      ,\r\nC             DELAY\r\n     7                37    ,18    ,183   ,6      ,\r\nC             DPHASE\r\n     8                77    ,19    ,184   ,7      ,\r\nC             TIC\r\n     9                6607  ,66    ,137   ,8      /\r\n      DATA    LLOAD / 4551  ,61    ,84    /       ,\r\n     1        LSLOAD/ 5401  ,54    ,25    /\r\n      DATA    MPCS  / 4HMPCS,4H    /,     SPCS   / 4HSPCS,4H     /,\r\n     1        SPCS1 / 4HSPCS,4H1   /,     SPCSD  / 4HSPCS,4HD    /,\r\n     2        LOADC / 4HLOAD,4HC   /,     DAREAS / 4HDARE,4HAS   /,\r\n     3        DELAYS/ 4HDELA,4HYS  /,     DPHSES / 4HDPHA,4HSES  /,\r\n     4        TICS  / 4HTICS,4H    /\r\n      DATA    NCASEC/ 4HCASE,4HCC  /\r\n      DATA    CTYPEO/ 4HMPC ,4H    ,\r\n     1                4HSPC ,4H    ,\r\n     2                4HSPC1,4H    ,\r\n     3                4HSPCD,4H    ,\r\n     4                4HDARE,4HA   ,\r\n     5                4HDELA,4HY   ,\r\n     6                4HDPHA,4HSE  ,\r\n     7                4HTIC ,4H    /\r\n      DATA    XXXX  / 4HXXXX       /\r\nC\r\nC     INITIALIZE\r\nC\r\n      ITY  = 1\r\n      INCR = 1\r\n      NONO = 0\r\n      LARGE= TWO(2)\r\n      NZ   = KORSZ(Z(1))\r\n      IBS1 = NZ   - IBUF + 1\r\n      IBS2 = IBS1 - IBUF - 1\r\n      IBS3 = IBS2 - IBUF\r\n      BUF1 = IBS3 - IBUF\r\n      BUF2 = BUF1 - IBUF\r\n      BUF3 = BUF2 - IBUF\r\n      BUF4 = BUF3 - IBUF\r\n      NZ   = BUF4 - 1\r\n      IF (NZ .LE. 0) GO TO 5011\r\n      IF (NAME(1).EQ.XXXX .AND. NAME(2).EQ.XXXX) GO TO 3000\r\nC\r\nC     INITIALIZE LUSET AND NOGPDT FLAGS\r\nC\r\n      LUSET  = 0\r\n      NOGPDT = -1\r\nC\r\nC     FORM TABLES OF REFERENCED SID-S FOR LOAD, MPC, AND SPC\r\nC     CASE CONTROL CARDS.\r\nC\r\nC\r\nC     OPEN  SOF , GET EQSS ITEM , READ  SIL DATA INTO CORE\r\nC\r\n      CALL SOFOPN (Z(IBS1),Z(IBS2),Z(IBS3))\r\n      CALL SFETCH (NAME,EQSS,1,FLAG)\r\n      ITEM  = EQSS\r\n      IF (FLAG .NE. 1) GO TO 5001\r\n      CALL SUREAD (Z(1),NZ,NWDS,FLAG)\r\n      IF (FLAG .NE. 2) GO TO 5011\r\n      NSS = Z(3)\r\n      IZ  = NWDS + 1\r\nC\r\nC     READ SIL GROUP INTO CORE\r\nC\r\n      CALL SJUMP (NSS)\r\n      CALL SUREAD (Z(IZ),NZ-IZ+1,NSIL,FLAG)\r\n      IF  (FLAG .NE. 2) GO TO 5011\r\n      IPT =  IZ + NSIL - 2\r\nC\r\nC     FIND LENGTH OF VECTOR = LUSET\r\nC\r\n      IC = Z(IPT+1)\r\n      CALL DECODE (IC,ICOMP,NC)\r\n      LUSET = Z(IPT) + NC - 1\r\n      NOGPDT= LUSET\r\nC\r\nC     READ EQSS ( G ,IP, AND C AT A TIME) AND CONVERT IP TO SIL .\r\nC     WRITE ON SCRT\r\nC\r\n      IS   = 0\r\n      FILE = SCRT\r\n      CALL GOPEN (SCRT,Z(BUF2),1)\r\n      CALL SFETCH (NAME,EQSS,1,FLAG)\r\n      NJ = 1\r\n      CALL SJUMP (NJ)\r\nC\r\n   50 CALL SUREAD (TEMP,3,NWDS,FLAG)\r\n      IF (FLAG .NE. 1) GO TO 100\r\n      IPT  = IZ + 2*TEMP(2) - 2\r\n      TEMP(2) = Z(IPT)\r\n      CALL WRITE (SCRT,TEMP,3,0)\r\n      GO TO 50\r\n  100 IS = IS + 1\r\n      CALL WRITE (SCRT,TEMP,0,1)\r\n      IF (IS .LT. NSS) GO TO 50\r\n      CALL CLOSE (SCRT,1)\r\nC\r\nC     READ CONVERTED EQSS INTO CORE, STORE POINTERS TO THE BASIC  SUBS\r\nC     IN  Z(IPTR) TO Z(NPTR)\r\nC     CORE WILL CONTAIN-\r\nC       1. 4 WORD HEADER\r\nC       2. 2*NSS NAMES\r\nC       3. NSS+1 POINTERS TO EACH BASIC SUBST.BLOCK\r\nC       4. NSS BLOCKS OF G, IP, C DATA\r\nC       5. NZB LEFT OVER\r\nC\r\nC\r\n      IPTR = IZ\r\n      NPTR = IPTR\r\n      ISUB = IPTR + NSS + 1\r\n      NZB  = NZ - ISUB + 1\r\n      FILE = SCRT\r\n      CALL GOPEN (SCRT,Z(BUF2),0)\r\n      DO 200 I = 1,NSS\r\n      Z(NPTR) = ISUB\r\n      NPTR = NPTR + 1\r\n      CALL READ (*9002,*110,SCRT,Z(ISUB),NZB,1,NWDS)\r\n      GO TO 5011\r\n  110 ISUB = ISUB + NWDS\r\n      NZB  = NZB  - NWDS\r\n      IF (NZB .LE. 0) GO TO 5011\r\n  200 CONTINUE\r\n      Z(NPTR) = ISUB\r\n      CALL CLOSE (SCRT,1)\r\nC\r\nC     ***  GEOM4 DATA CONVERSION  ***\r\nC\r\nC          IN  - MPCS,SPCS,SPCS1,SPCSD CARDS\r\nC          OUT - MPC ,SPC ,SPC1 ,SCPD  ON SCRT\r\nC\r\n      FILE = GEOM4\r\n      NOG4 = 0\r\n      CALL PRELOC (*400,Z(BUF1),GEOM4)\r\n      MCB(1) = GEOM4\r\n      CALL RDTRL (MCB)\r\n      CALL GOPEN (SCRT,Z(BUF2),1)\r\n      STEST = .FALSE.\r\nC\r\nC     ***  MPCS CARDS  ***\r\nC\r\nC          IN  - NAME(2), G, C, F\r\nC          OUT - SIL, 0, F\r\nC\r\n      CALL LOCATE (*350,Z(BUF1),ICODE(1,1),IDX)\r\n      CALL WRITE (SCRT,ICODE(1,1),3,0)\r\n      STEST = .TRUE.\r\n      ICODE(4,1) = 1\r\n      TYPE(1) = MPCS(1)\r\n      TYPE(2) = MPCS(2)\r\n      IFL = 0\r\n      LID = 0\r\n  305 CALL READ (*9002,*346,GEOM4,J,1,0,NWDS)\r\n      IF (J .NE. LID) NSILD = 0\r\n      LID = J\r\n      CALL WRITE (SCRT,J,1,0)\r\n  310 CALL READ (*9002,*346,GEOM4,TEMP,5,0,NWDS)\r\n      IF (TEMP(3) .EQ.-1) GO TO 345\r\n      IF (TEMP(3) .EQ. 0) GO TO 310\r\nC\r\nC     FIND  REQUESTED SUBSTRUCTURE\r\nC\r\n      DO 320 I = 1,NSS\r\n      INAM = 2*I + 3\r\n      IF (Z(INAM).EQ.TEMP(1) .AND. Z(INAM+1).EQ.TEMP(2)) GO TO 330\r\n  320 CONTINUE\r\nC\r\nC     SUBSTRUCTURE NOT FOUND\r\nC\r\n      WRITE (OUTT,63290) UWM,TEMP(1),TEMP(2),TYPE,NAME\r\n      GO TO 310\r\nC\r\nC     FOUND SUBSTRUCTURE NAME\r\nC\r\n  330 IPT  = IPTR + I - 1\r\n      IGRD =  Z(IPT)\r\n      NGRD = (Z(IPT+1) - Z(IPT))/3\r\nC\r\nC     SEARCH FOR GRID POINT\r\nC\r\n      CALL BISLOC (*334,TEMP(3),Z(IGRD),3,NGRD,IGR)\r\n      IG = IGR + IGRD - 1\r\n  325 IF (Z(IG-3) .NE. Z(IG)) GO TO 331\r\n      IF (IG .LE. IGRD) GO TO 331\r\n      IG = IG - 3\r\n      GO TO 325\r\n  331 CODE = Z(IG+2)\r\nC\r\nC     FIND   THE  COMPONENT\r\nC\r\n      CALL DECODE (CODE,ICOMP,NC)\r\n      IF (TEMP(4) .EQ. 0) TEMP(4) = 1\r\n      DO 332 I = 1,NC\r\n      IF (TEMP(4) .NE. ICOMP(I)+1) GO TO 332\r\n      IC = I\r\n      GO TO 340\r\n  332 CONTINUE\r\n      IF (Z(IG+3) .NE. Z(IG)) GO TO 334\r\n      IF (IG+3 .GE. IGRD+3*NGRD) GO TO 334\r\n      IG = IG + 3\r\n      GO TO 331\r\nC\r\nC     BAD COMPONENT\r\nC\r\n  334 NONO = 1\r\n      WRITE (OUTT,60220) UFM,(TEMP(I),I=1,4),TYPE,NAME\r\n      GO TO 310\r\nC\r\nC     WRITE CONVERTED DATA ON SCRT\r\nC\r\n  340 TEMP(6) = Z(IG+1) + IC - 1\r\n      TEMP(7) = 0\r\n      TEMP(8) = TEMP(5)\r\n      CALL WRITE (SCRT,TEMP(6),3,0)\r\nC\r\nC     CHECK FOR DUPLICATE DEPENDENT SIL-S\r\nC\r\n      IF (IFL  .NE.  0) GO TO 310\r\n      IF (NSILD .EQ. 0) GO TO 343\r\n      DO 342 I = 1,NSILD\r\n      IF (Z(ISUB+I-1) .NE. TEMP(6)) GO TO 342\r\n      NONO = 1\r\n      WRITE (OUTT,63620) UFM,J,TEMP(1),TEMP(2),TEMP(3),TEMP(4)\r\n  342 CONTINUE\r\n      IF (NSILD .GT. NZB) GO TO 5011\r\n  343 Z(ISUB+NSILD) = TEMP(6)\r\n      NSILD = NSILD + 1\r\n      IFL = 1\r\n      GO TO 310\r\nC\r\nC     FINISHED ONE LOGICAL CARD, WRITE -1 FLAGS\r\nC\r\n  345 CALL WRITE (SCRT,MINUS,3,0)\r\n      IFL = 0\r\n      GO TO 305\r\nC\r\nC     FINISHED ALL MPCS CARDS, WRITE EOR AND UPDATE TRAILER\r\nC\r\n  346 CALL WRITE (SCRT,TEMP,0,1)\r\nC\r\nC     TURN OFF MPCS BIT\r\nC\r\n      J = (ICODE(2,1)-1)/16\r\n      I =  ICODE(2,1)- 16*J\r\n      MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2))\r\nC\r\nC     TURN ON MPC BIT\r\nC\r\n      J = (LTAB(2,1)-1)/16\r\n      I =  LTAB(2,1)- 16*J\r\n      MCB(J+2) = ORF(TWO(I+16),MCB(J+2))\r\nC\r\nC     ***  SPCS CARDS  ***\r\nC\r\nC          IN  - SID, NAME(2), G, C, G, C, G, C, ..., -1, -1\r\nC          OUT - SID, SIL, 0, 0 - REPEATED FOR EACH GRID\r\nC\r\n  350 CALL SGENA (SPCS,Z(BUF1),MCB,GEOM4,ICODE(1,2),0,SCRT,LTAB(1,2),1)\r\nC\r\nC     ***  SPCS1 CARDS  ***\r\nC\r\nC          IN  - SID, NAME(2), C, G, G, G, ..., -1\r\nC          OUT - SID, 0, SIL, -1 - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENB (SPCS1,Z(BUF1),MCB,GEOM4,ICODE(1,3),0,SCRT,LTAB(1,3),1)\r\nC\r\nC     ***  SPCSD CARDS  ***\r\nC\r\nC          IN  - SID, NAME(2), G, C, Y, ..., -1, -1, -1\r\nC          OUT - SID, SIL, 0, Y - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENA (SPCSD,Z(BUF1),MCB,GEOM4,ICODE(1,4),1,SCRT,LTAB(1,4),1)\r\nC\r\nC     END OF CONSTRAINT CARD CONVERSION\r\nC\r\n      CALL CLOSE (GEOM4,1)\r\n      CALL CLOSE (SCRT,1)\r\n      MCB(1) = GP4S\r\n      CALL WRTTRL (MCB)\r\n      GO TO 700\r\n  400 NOG4 = 1\r\nC\r\nC     ***  DYNAMICS DATA CONVERSION  ***\r\nC\r\nC          IN  - DAREAS,DELAYS,DPHASES,TICS CARDS\r\nC          OUT - DAREA ,DELAY ,DPHASE ,TIC  ON SCRT\r\nC\r\n  700 FILE  = DYNAM\r\n      NODYN = 0\r\n      CALL PRELOC (*750,Z(BUF1),DYNAM)\r\n      MCB(1) = DYNAM\r\n      CALL RDTRL (MCB)\r\n      CALL GOPEN (SCRT2,Z(BUF2),1)\r\nC\r\nC     ***  DAREAS  CARDS ***\r\nC\r\nC          IN  - SID, NAME(2), G, C, A, ..., -1, -1, -1\r\nC          OUT - SID, SIL, 0, A - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENA (DAREAS,Z(BUF1),MCB,DYNAM,ICODE(1,6),1,SCRT2,LTAB(1,6),\r\n     1            1)\r\nC\r\nC     ***  DELAYS CARDS  ***\r\nC\r\nC          IN  - SID, NAME(2), G, C, T, ..., -1, -1, -1\r\nC          OUT - SID, SIL, 0, T - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENA (DELAYS,Z(BUF1),MCB,DYNAM,ICODE(1,7),1,SCRT2,LTAB(1,7),\r\n     1            1)\r\nC\r\nC    ***  DPHASES CARDS  ***\r\nC\r\nC         IN  - SID, NAME(2), G, C, TH, ..., -1, -1, -1\r\nC         OUT - SID, SIL, 0, TH - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENA (DPHSES,Z(BUF1),MCB,DYNAM,ICODE(1,8),1,SCRT2,LTAB(1,8),\r\n     1            1)\r\nC\r\nC     ***  TICS CARDS  ***\r\nC\r\nC          IN  - SID, NAME(2), G, C, U, V, ..., -1, -1, -1, -1\r\nC          OUT - SID, SIL, 0, U, V - REPEATED FOR EACH GRID\r\nC\r\n      CALL SGENA (TICS,Z(BUF1),MCB,DYNAM,ICODE(1,9),2,SCRT2,LTAB(1,9),2)\r\nC\r\nC     END OF DYNAMICS CONVERSION\r\nC\r\n      CALL CLOSE (DYNAM,1)\r\n      CALL CLOSE (SCRT2,1)\r\n      MCB(1) = DYNS\r\n      CALL WRTTRL (MCB)\r\n      GO TO 1000\r\n  750 NODYN = 1\r\nC\r\nC     MERGE CONVERTED DATA WITH EXISTING DATA - GEOM4\r\nC\r\n 1000 IF (NOG4 .EQ. 1) GO TO 1500\r\n      CALL SGENM (NTYPEC,GEOM4,SCRT,GP4S,ICODE(1,1),LTAB(1,1),\r\n     1            CTYPES(1,1),CTYPEO(1,1))\r\nC\r\nC     MERGE CONVERTED DATA WITH EXISTING DATA - DYNAMICS\r\nC\r\n 1500 IF (NODYN .EQ. 1) GO TO 2005\r\n      CALL SGENM (NTYPED,DYNAM,SCRT2,DYNS,ICODE(1,6),LTAB(1,6),\r\n     1            CTYPES(1,1),CTYPEO(1,1))\r\nC\r\nC\r\nC     ***  GEOM3 PROCESSING  ***\r\nC\r\nC     THE LOAD VECTORS ARE COMBINED BY THE FACTORS\r\nC     GIVEN ON THE LOADC CARDS AND MERGED WITH SLOAD CARDS\r\nC\r\n 2005 CONTINUE\r\n      NOLC = .TRUE.\r\n      NOLS = .TRUE.\r\n      CALL PRELOC (*2350,Z(BUF1),GEOM4)\r\n      CALL LOCATE (*2350,Z(BUF1),ICODE(1,5),IDX)\r\nC\r\nC     READ FIRST GROUP OF LODS ITEM FOR SOLUTION STRUCTURE\r\nC\r\n      ITEM = LODS\r\n      CALL SFETCH (NAME,LODS,1,FLAG)\r\n      GO TO (2045,5001,2042,5001,5001), FLAG\r\nC\r\nC     LODS ITEM DOES NOT EXIST\r\nC\r\n 2042 NOLC = .TRUE.\r\n      GO TO 2350\r\n 2045 CALL SUREAD (Z(1),NZ,NWDS,ITEST)\r\n      GO TO (5011,2047,5002), ITEST\r\n 2047 NSS = Z(4)\r\n      ISS1= 5\r\n      NL  = Z(3)\r\n      IPT = 2*NSS + 5\r\n      IZL = 2*NSS + IPT + 2\r\n      Z(IPT  ) = IZL\r\n      Z(IPT+1) = 0\r\n      IF (IZL+NSS+NL .LE. NZ) GO TO 2050\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n      CALL CLOSE (GEOM4,1)\r\n      GO TO 5011\r\nC\r\nC     READ REMAINDER OF LODS INTO OPEN CORE AT Z(IZL)\r\nC\r\n 2050 DO 2100 I = 1,NSS\r\n      CALL SUREAD (Z(IZL),NZ-IZL+1,NWDS,ITEST)\r\n      GO TO (5011,2060,5002), ITEST\r\n 2060 IZL= IZL + NWDS\r\n      JG = IPT + 2*I\r\n      Z(JG  ) = IZL\r\n      Z(JG+1) = Z(JG-1) + NWDS - 1\r\n 2100 CONTINUE\r\nC\r\nC     CORE NOW CONTAINS\r\nC\r\nC            WORDS                 CONTENTS\r\nC        ------------------    -----------------------------------\r\nC        1--(IPT-1)            HEADER GROUP\r\nC        IPT--IPT+2*(NSS+1)    LOAD DATA POINTER, NO. OF PRIOR LOAD\r\nC                                  VECTORS (2 WORDS PER STRUCTURE)\r\nC        IPT+2*(NSS+1)+1 --=   NO OF LOADS + LOAD SET IDS\r\nC                                  GROUPED BY BASIC STRUCTURE\r\nC\r\nC     READ LOADC DATA CARDS AND CONVERT\r\nC\r\nC          IN  - SET ID, FACTOR, (NAME(2),SET,FACTOR) (REPEATED)\r\nC          OUT - SET ID, FACTOR, (VECTOR NO.,FACTOR)\r\nC\r\n      TYPE(1) = LOADC(1)\r\n      TYPE(2) = LOADC(2)\r\n      CALL OPEN (*9001,SCRT,Z(BUF2),1)\r\n 2150 CALL READ (*9002,*2300,GEOM4,TEMP,2,0,NWDS)\r\n      CALL WRITE (SCRT,TEMP,2,0)\r\n      LID = TEMP(1)\r\n      NOLC=.FALSE.\r\nC\r\nC     READ AN ENTRY\r\nC\r\n 2160 CALL FREAD (GEOM4,TEMP,4,0)\r\n      IF( TEMP(3) .EQ. -1) GO TO 2280\r\nC\r\nC     FIND SUBSTRUCTURE AND SET\r\nC\r\n      DO 2210 I = 1,NSS\r\n      INAM = ISS1 + 2*(I-1)\r\n      IF (Z(INAM).EQ.TEMP(1) .AND. Z(INAM+1).EQ.TEMP(2)) GO TO 2220\r\n 2210 CONTINUE\r\nC\r\nC     SUBSTRUCTURE NOT FOUND\r\nC\r\n      WRITE (OUTT,63290) UWM,TEMP(1),TEMP(2),TYPE,NAME\r\n      GO TO 2160\r\nC\r\nC     FOUND SUBSTRUCTURE NAME\r\nC\r\n 2220 JPT = IPT + 2*I - 2\r\nC\r\nC     POINTER TO LODS DATA FOR THIS SUBSTRUCTURE\r\nC\r\n      ILD = Z(JPT)\r\nC\r\nC     NUMBER OF SETS IN LODS DATA FOR THIS SUBSTRUCTURE\r\nC\r\n      NSET = Z(ILD)\r\nC\r\nC     FIND LOADC SET IN LODS DATA\r\nC\r\n      IF (NSET .EQ. 0) GO TO 2240\r\n      DO 2230 I = 1,NSET\r\n      IP = ILD + I\r\n      IF (Z(IP) .NE. TEMP(3)) GO TO 2230\r\n      LVEC = Z(JPT+1) + I\r\n      GO TO 2250\r\n 2230 CONTINUE\r\nC\r\nC     SET NOT FOUND\r\nC\r\n 2240 NONO = 1\r\n      WRITE (OUTT,63310) UFM,NAME,LID,TEMP(3),TEMP(1),TEMP(2)\r\n      GO TO 2160\r\n 2250 TEMP(1) = LVEC\r\n      TEMP(2) = TEMP(4)\r\n      CALL WRITE (SCRT,TEMP,2,0)\r\n      GO TO 2160\r\nC\r\nC     END OF LOGICAL LOADC CARD\r\nC\r\n 2280 CALL WRITE (SCRT,TEMP,0,1)\r\n      GO TO 2150\r\nC\r\nC     END OF LOADC RECORD\r\nC\r\n 2300 CALL CLOSE (SCRT,1)\r\n 2350 CALL CLOSE (GEOM4,1)\r\nC\r\nC     MERGE CONVERTED LOAD DATA WITH SLOAD DATA.\r\nC\r\nC\r\nC     IF ANY ERRORS WERE DETECTED, SKIP LOAD COMPUTATION\r\nC\r\n      IF (NONO .NE. 0) GO TO 3000\r\n      CALL GOPEN (GP3S,Z(BUF4),1)\r\nC\r\nC     COPY LOAD CARDS TO GP3S\r\nC\r\n      CALL PRELOC (*2430,Z(BUF1),GEOM3)\r\n      LDCD = 0\r\n      CALL LOCATE (*2420,Z(BUF1),LLOAD,IDX)\r\n      LDCD = 1\r\n      CALL WRITE (GP3S,LLOAD,3,0)\r\n 2405 CALL READ (*9002,*2410,GEOM3,Z(1),NZ,0,NWDS)\r\n      CALL WRITE (GP3S,Z(1),NZ,0)\r\n      GO TO 2405\r\n 2410 CALL WRITE (GP3S,Z(1),NWDS,1)\r\nC\r\nC     POSITION TO SLOAD CARDS\r\nC\r\n 2420 CALL LOCATE (*2430,Z(BUF1),LSLOAD,IDX)\r\n      NOLS = .FALSE.\r\n 2430 IF (NOLS) CALL CLOSE (GEOM3,1)\r\n      IF (.NOT.(NOLS .AND. NOLC)) CALL WRITE (GP3S,LSLOAD,3,0)\r\n      IF (NOLC) GO TO 2530\r\nC\r\nC     COPY LOAD VECTORS TO SCRATCH FILE\r\nC\r\n      FILE = SCRT2\r\n      ITEM = PVEC\r\n      IF (DRY .LT. 0) GO TO 2510\r\n      CALL MTRXI (SCRT2,NAME,PVEC,Z(BUF3),FLAG)\r\n      GO TO (2520,2431,5001,5001,5001,9001), FLAG\r\n 2431 FLAG = 3\r\n      GO TO 5001\r\nC\r\nC     IN DRY RUN MODE, LOADS PSEUDO-EXIST\r\nC\r\n 2510 PSUEDO =.TRUE.\r\n      GO TO 2530\r\nC\r\nC     LOADS EXIST\r\nC\r\n 2520 PSUEDO = .FALSE.\r\n      CALL GOPEN (SCRT2,Z(BUF3),0)\r\n      IREC   = 1\r\n      MCB(1) = SCRT2\r\n      CALL RDTRL (MCB)\r\n      NVEC  = MCB(2)\r\n      LUSET = MCB(3)\r\n      IF (2*LUSET .LT. NZ) GO TO 2530\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n      CALL CLOSE (SCRT2,1)\r\n      CALL CLOSE (GP3S ,1)\r\n      CALL CLOSE (GEOM3,1)\r\n      GO TO 5011\r\nC\r\nC     MERGE REAL AND ARTIFICIAL SLOAD CARDS\r\nC\r\n 2530 SIDC = 0\r\n      IROW = 1\r\n      NROW = LUSET\r\n      IF (.NOT.NOLC) CALL OPEN (*9001,SCRT,Z(BUF2),0)\r\n 2550 IF (NOLS) GO TO 2560\r\n      FILE = GEOM3\r\n      CALL READ (*9002,*2560,GEOM3,TEMP2,3,0,NWDS)\r\n      GO TO 2570\r\n 2560 IF (NOLC) GO TO 2900\r\n      TEMP2(1) = LARGE\r\n 2570 SIDS = TEMP2(1)\r\n      IF (NOLC) GO TO 2635\r\n      IF (SIDC .GT. SIDS) GO TO 2600\r\nC\r\nC     READ THE SID AND FACTOR OF THE LOADC CARD ITSELF\r\nC\r\n      FILE = SCRT\r\n      CALL READ (*2580,*9003,SCRT,TEMP,2,0,NWDS)\r\n      GO TO 2600\r\n 2580 TEMP(1) = LARGE\r\n      NOLC = .TRUE.\r\n      CALL CLOSE (SCRT,1)\r\n      IF (NOLS) GO TO 2900\r\n 2600 CONTINUE\r\n      DO 2620 I = 1,LUSET\r\n 2620 RZ(I) = 0.0\r\n      SIDC = TEMP(1)\r\n      FACT = RTEMP(2)\r\n      IF (.NOT.NOLC) GO TO 2670\r\n 2635 IF (NOLS) GO TO 2900\r\nC\r\nC     NO MORE LOADC CARDS, WRITE ENTIRE  SLOAD  RECORD\r\nC\r\n      CALL WRITE (GP3S,TEMP2,3,0)\r\n      FILE = GEOM3\r\n 2640 CALL READ (*9002,*2650,GEOM3,Z(1),NZ,0,NWDS)\r\n      CALL WRITE (GP3S,Z(1),NZ,0)\r\n      GO TO 2640\r\n 2650 CALL WRITE (GP3S,Z(1),NWDS,1)\r\n      GO TO 2900\r\n 2670 IF (.NOT.NOLS) GO TO 2680\r\nC\r\nC     NO MORE SLOAD CARDS ARE PRESENT\r\nC\r\n      SIDS = LARGE\r\n      GO TO 2700\r\nC\r\nC     BOTH LOADC AND SLOAD CARDS ARE PRESENT\r\nC\r\n 2680 IF (SIDS .LT. SIDC) GO TO 2810\r\nC\r\nC     READ LOADC DATA, FIND VECTOR, UNPACK, MULT BY FACTOR, AND ADD\r\nC     TO FIND A MATRIX COLUMN,USING FWDREC, CHANGE ON 16\r\nC\r\n 2700 FILE = SCRT\r\n      CALL READ (*9002,*2790,SCRT,TEMP,2,0,NWDS)\r\n      IF (TEMP(1).EQ.0 .OR. PSUEDO .OR. TEMP(2).EQ.0) GO TO 2700\r\n      N = TEMP(1) - IREC\r\n      IF (N) 2710,2750,2720\r\n 2710 N = -N\r\n      DO 2715 I = 1,N\r\n      CALL BCKREC (SCRT2)\r\n 2715 CONTINUE\r\n      GO TO 2750\r\n 2720 DO 2725 I = 1,N\r\n      CALL FWDREC (*2730,SCRT2)\r\n 2725 CONTINUE\r\n      GO TO 2750\r\nC\r\nC     CANT FIND LOAD VECTOR\r\nC\r\n 2730 WRITE (OUTT,63320) SFM,TEMP(1),NVEC,LUSET,NAME\r\n      NONO = 1\r\n      GO TO 2900\r\nC\r\nC     NOW SCRT2 IS POSITIONED TO THE DESIRED LOAD VECTOR.  UNPACK IT AND\r\nC     FACTOR AND ADD IT TO VECTOR AT TOP OF OPEN CORE\r\nC\r\n 2750 IREC = TEMP(1) + 1\r\n      CALL UNPACK (*2700,SCRT2,RZ(LUSET+1))\r\n      DO 2755 I = 1,LUSET\r\n      RZ(I) = RTEMP(2)*FACT*RZ(LUSET+I)+RZ(I)\r\n 2755 CONTINUE\r\n      GO TO 2700\r\nC\r\nC     HERE WHEN FINISHED COMBINING VECTORS FOR ONE LOADC CARD\r\nC\r\n 2790 CONTINUE\r\n      IF (SIDC .LT. SIDS) GO TO 2850\r\n 2810 IZ = TEMP2(2)\r\n      RZ(IZ) = RZ(IZ) +RTEMP2(3)\r\n      FILE = GEOM3\r\n      CALL READ (*9002,*2840,GEOM3,TEMP2,3,0,NWDS)\r\n      IF (TEMP2(1) .EQ. SIDS) GO TO 2810\r\n      SIDS = TEMP2(1)\r\n      GO TO 2850\r\n 2840 NOLS =.TRUE.\r\nC\r\nC     WRITE OUT LOAD VECTOR IN SLOAD FORMAT\r\nC\r\n 2850 TEMP(1) = MIN0(SIDS,SIDC)\r\n      DO 2860 I = 1,LUSET\r\n      IF (RZ(I) .EQ. 0.0) GO TO 2860\r\n      TEMP(2)  = I\r\n      RTEMP(3) = RZ(I)\r\n      CALL WRITE (GP3S,TEMP,3,0)\r\n 2860 CONTINUE\r\n      IF (SIDS .NE. SIDC) GO TO 2570\r\n      GO TO 2550\r\nC\r\nC     ALL LOADS PROCESSED\r\nC\r\n 2900 CALL WRITE (GP3S,0,0,1)\r\n      CALL WRITE (GP3S,NLIMIT,3,1)\r\n      CALL CLOSE (SCRT,1)\r\n      CALL CLOSE (GP3S,1)\r\n      CALL CLOSE (SCRT2,1)\r\n      CALL CLOSE (GEOM3,1)\r\n      MCB(1) = GP3S\r\nC\r\nC     TURN ON SLOAD BIT IN GP3S TRAILER\r\nC     ALSO LOAD CARD BIT IF LOAD CARDS EXIST\r\nC\r\n      DO 2910 I = 2,7\r\n 2910 MCB(I) = 0\r\n      J = (LSLOAD(2)-1)/16\r\n      I = LSLOAD(2)-16*J\r\n      MCB(J+2) = TWO(I+16)\r\n      IF (LDCD .EQ. 0) GO TO 2920\r\n      J = (LLOAD(2)-1)/16\r\n      I = LLOAD(2)-16*J\r\n      MCB(J+2) = ORF(MCB(J+2),TWO(I+16))\r\n 2920 CALL WRTTRL (MCB)\r\nC\r\nC     SPLIT CASE CONTROL  INTO SUBSTRUCTURE AND NORMAL NASTRAN\r\nC\r\n 3000 CALL OPEN (*9001,CASEC,Z(BUF1),0)\r\n      CALL OPEN (*9001,CASES,Z(BUF2),1)\r\n      CALL OPEN (*9001,CASEI,Z(BUF3),1)\r\n      FILE = CASES\r\n 3250 CALL READ (*3800,*3350,CASEC,Z(1),NZ,0,NWDS)\r\n 3350 IF (Z(1).EQ.NCASEC(1) .AND. Z(2).EQ.NCASEC(2)) FILE = CASEI\r\n      CALL WRITE (CASES,Z,NWDS,1)\r\n      IF (FILE .EQ. CASEI) CALL WRITE (CASEI,Z(1),NWDS,1)\r\n      GO TO 3250\r\n 3800 CONTINUE\r\n      MCB(1) = CASEC\r\n      CALL RDTRL (MCB)\r\n      MCB(1) = CASES\r\n      CALL WRTTRL (MCB)\r\n      MCB(1) = CASEI\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (CASEC,1)\r\n      CALL CLOSE (CASEI,1)\r\n      CALL CLOSE (CASES,1)\r\n      IF (NAME(1).EQ.XXXX .AND. NAME(2).EQ.XXXX) RETURN\r\n      IF (NONO .NE. 0) GO TO 4050\r\nC\r\nC     GENERATE  FICTITIOUS GP1 DATA BLOCKS\r\nC\r\nC\r\nC     ***  GPL FILE  ***\r\nC\r\nC     GPL HEADER RECORD HAS 3 WORD, (SEE GP1)\r\nC     SET THE 3RD WORD, MULTIPLIER MULT, TO 1000\r\nC\r\n      DO 4005 I = 2,7\r\n 4005 MCB(I) = 0\r\n      MCB(1) = GPL\r\n      FILE   = GPL\r\n      N = -1\r\n      CALL OPEN (*9200,GPL,Z(BUF1),1)\r\n      CALL FNAME (GPL,TEMP(1))\r\n      TEMP(3) = 1000\r\n      CALL WRITE (GPL,TEMP(1),3,1)\r\n      DO 4010 I = 1,LUSET\r\n 4010 CALL WRITE (GPL,I,1,0)\r\n      CALL WRITE (GPL,I,0,1)\r\n      DO 4020 I = 1,LUSET\r\n      TEMP(1) = I\r\n      TEMP(2) = 1000*I\r\n      CALL WRITE (GPL,TEMP,2,0)\r\n 4020 CONTINUE\r\n      CALL WRITE (GPL,I,0,1)\r\n      CALL CLOSE (GPL,1)\r\n      MCB(2) = LUSET\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ***  EQEXIN FILE  ***\r\nC\r\n 4050 MCB(1) = EQEX\r\n      CALL GOPEN (EQEX,Z(BUF1),1)\r\n      DO 4060 I = 1,LUSET\r\n      TEMP(1) = I\r\n      TEMP(2) = I\r\n      CALL WRITE (EQEX,TEMP,2,0)\r\n 4060 CONTINUE\r\n      CALL WRITE (EQEX,TEMP,0,1)\r\n      DO 4070 I = 1,LUSET\r\n      TEMP(1) = I\r\n      TEMP(2) = 10*I + 2\r\n      CALL WRITE (EQEX,TEMP,2,0)\r\n 4070 CONTINUE\r\n      CALL WRITE (EQEX,TEMP,0,1)\r\n      CALL CLOSE (EQEX,1)\r\n      MCB(2) = LUSET\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ***  GPDT FILE  ***\r\nC\r\n      MCB(1) = GPDT\r\n      DO 4105 I = 3,7\r\n 4105 TEMP(I) = 0\r\n      TEMP(2) = -1\r\n      CALL GOPEN (GPDT,Z(BUF1),1)\r\n      DO 4120 I = 1,LUSET\r\n      TEMP(1) = I\r\n      CALL WRITE (GPDT,TEMP,7,0)\r\n 4120 CONTINUE\r\n      CALL WRITE (GPDT,TEMP,0,1)\r\n      CALL CLOSE (GPDT,1)\r\n      MCB(2) = LUSET\r\n      CALL WRTTRL (MCB)\r\n      IF (NONO .NE. 0) GO TO 4200\r\nC\r\nC     ***  BGPDT FILE  ***\r\nC\r\n      MCB(1) = BGPDT\r\n      DO 4160 I = 2,4\r\n 4160 TEMP(I) = 0\r\n      TEMP(1) =-1\r\n      CALL GOPEN (BGPDT,Z(BUF1),1)\r\n      DO 4170 I = 1,LUSET\r\n      CALL WRITE (BGPDT,TEMP,4,0)\r\n 4170 CONTINUE\r\n      CALL WRITE (BGPDT,TEMP,0,1)\r\n      CALL CLOSE (BGPDT,1)\r\n      MCB(2) = LUSET\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ***  SIL FILE  ***\r\nC\r\n 4200 MCB(1) = SIL\r\n      CALL GOPEN (SIL,Z(BUF1),1)\r\n      DO 4220 I = 1,LUSET\r\n      CALL WRITE (SIL,I,1,0)\r\n 4220 CONTINUE\r\n      CALL WRITE (SIL,I,0,1)\r\n      CALL CLOSE (SIL,1)\r\nC\r\nC\r\n      MCB(2) = LUSET\r\n      MCB(3) = LUSET\r\n      CALL WRTTRL (MCB)\r\n      IF (NONO .NE. 0) DRY=-2\r\n      CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 5001 N = 2 - FLAG\r\n      GO TO 5010\r\n 5002 N = -ITEST - 4\r\n 5010 IF (DRY .LT. 0) N = IABS(N)\r\n      DRY = -2\r\n      CALL SMSG (N,ITEM,NAME)\r\n      RETURN\r\n 5011 N = -8\r\n      GO TO 9100\r\n 9001 N = -1\r\n      GO TO 9100\r\n 9002 N = -2\r\n      GO TO 9100\r\n 9003 N = -3\r\n 9100 CALL SOFCLS\r\n      IF (DRY .LT. 0) N = IABS(N)\r\n      DRY = -2\r\n 9200 CALL MESAGE (N,FILE,NSGEN)\r\n      RETURN\r\nC\r\nC     MESSAGE FORMATS\r\nC\r\n60220 FORMAT (A23,' 6022, SUBSTRUCTURE ',2A4,', GRID POINT',I9,\r\n     1       ', COMPONENTS',I9,1H,, /30X,'REFERENCED ON ',2A4,\r\n     2       ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4)\r\n63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4,\r\n     1       ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ',\r\n     2       'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED')\r\n63310 FORMAT (A23,' 6331, SOLUTION SUBSTRUCTURE ',2A4,' - LOADC SET',I9,\r\n     1       ' REFERENCES UNDEFINED LOAD', /30X,'SET',I9,\r\n     2       ' OF BASIC SUBSTRUCTURE ',2A4)\r\n63320 FORMAT (A25,' 6332, CANT FIND LOAD VECTOR NUMBER',I9,' IN LOAD ',\r\n     1       'MATRIX OF',I9,' COLUMNS', /32X,'BY',I9,\r\n     2       ' ROWS FOR SOLUTION STRUCTURE ',2A4)\r\n63620 FORMAT (A23,' 6362, MPCS SET',I9,' IS ILLEGAL.', //5X,\r\n     1       'SUBSTRUCTURE ',2A4,' GRID POINT',I9,' COMPONENT',I5,\r\n     2       ' SPECIFIES A NON-UNIQUE DEPENDENT DEGREE OF FREEDOM')\r\n      END\r\n"
  },
  {
    "path": "mis/sgena.f",
    "content": "      SUBROUTINE SGENA (TYPE,BUF,MCB,IFILE,ICODE,IEXTRA,OFILE,OCODE,\r\n     1                  OEXTRA)\r\nC\r\nC     THIS ROUTINE READS SUBSTRUCTURING CONSTRAINT AND DYNAMIC PROPERTY\r\nC     CARDS AND CONVERTS THEM TO NASTRAN FORMAT\r\nC\r\nC     INPUTS -\r\nC\r\nC     TYPE   - BCD CARD NAME\r\nC     BUF    - GINO BUFFER FOR INPUT FILE\r\nC     MCB    - MATRIX CONTROL BLOCK FOR INPUT FILE\r\nC     IFILE  - INPUT FILE NAME\r\nC     ICODE  - LOCATE CODE FOR INPUT CARD TYPE\r\nC     IEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE READ\r\nC     OFILE  - OUTPUT FILE NAME\r\nC     OCODE  - LOCATE CODE FOR OUTPUT CARD TYPE\r\nC     OEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE WRITTEN\r\nC\r\n      EXTERNAL        ANDF,COMPLF,ORF\r\n      INTEGER         TYPE(2),BUF(1),MCB(7),ICODE(4),OFILE,OCODE(4),\r\n     1                OEXTRA,Z,SYSBUF,OUTT,TWO,SUBNAM(2),CARD(20),COMP,\r\n     2                CIN(6),CODE,CEXIST(6),ANDF,COMPLF,ORF\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / IDRY,NAME(2)\r\n      COMMON /SGENCM/ NONO,NSS,IPTR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTT\r\n      COMMON /TWO   / TWO(32)\r\n      DATA    SUBNAM/ 4HSGEN,4HA    /\r\nC\r\nC     LOCATE CARDS ON FILE\r\nC\r\n      CALL LOCATE (*200,BUF(1),ICODE(1),ICD)\r\n      ICODE(4) = 1\r\nC\r\nC     WRITE HEADER RECORD ON OUTPUT FILE\r\nC\r\n      CALL WRITE (OFILE,ICODE(1),3,0)\r\nC\r\nC     READ SID AND SUBSTRUCTURING NAME FROM CARD\r\nC\r\n   10 CALL READ (*1002,*150,IFILE,CARD,3,0,NWDS)\r\n      CARD(4) = CARD(1)\r\n      N = 6 + OEXTRA\r\n      DO 20 I = 5,N\r\n   20 CARD(I) = 0\r\nC\r\nC     FIND SUBSTRUCTURE\r\nC\r\n      DO 30 I = 1,NSS\r\n      INAM = 2*I + 3\r\n      IF (Z(INAM).EQ.CARD(2) .AND. Z(INAM+1).EQ.CARD(3)) GO TO 50\r\n   30 CONTINUE\r\nC\r\nC     SUBSTRUCTURE NOT FOUND - SKIP OVER DATA\r\nC\r\n      CALL PAGE2 (-4)\r\n      WRITE (OUTT,63290) UWM,(CARD(J),J=2,3),TYPE,NAME\r\n   40 CALL FREAD (IFILE,CARD,2+IEXTRA,0)\r\n      IF (CARD(1)) 10,40,40\r\nC\r\nC     FOUND SUBSTRUCTURE NAME\r\nC\r\n   50 IPT  = IPTR + I - 1\r\n      IGRD = Z(IPT)\r\n      NGRD = (Z(IPT+1) - Z(IPT))/3\r\nC\r\nC     PROCESS GRID-COMPONENT PAIRS\r\nC\r\n   60 CALL FREAD (IFILE,CARD(5),2+IEXTRA,0)\r\n      IGRID = CARD(5)\r\n      IF (IGRID .EQ. -1) GO TO 10\r\n      IF (IGRID .EQ.  0) GO TO 60\r\n      COMP = CARD(6)\r\n      IF (COMP .EQ. 0) COMP = 1\r\n      CARD(6) = 0\r\n      CALL BISLOC (*80,IGRID,Z(IGRD),3,NGRD,IGR)\r\n      IG = IGR + IGRD - 1\r\n      NPRO = 0\r\n   70 IF (Z(IG-3) .NE. Z(IG)) GO TO 90\r\n      IF (IG .LE. IGRD) GO TO 90\r\n      IG = IG - 3\r\n      GO TO 70\r\nC\r\nC     BAD GRID\r\nC\r\n   80 NONO = 1\r\n      CALL PAGE2 (-3)\r\n      WRITE (OUTT,60220) UFM,(CARD(J),J=2,3),IGRID,COMP,TYPE,NAME\r\n      GO TO 60\r\nC\r\nC     SPLIT COMPONENTS\r\nC\r\n   90 CALL SPLT10 (COMP,CIN,NCIN)\r\n  100 CODE = Z(IG+2)\r\n      IF (CODE .EQ. 0) CODE = 1\r\n      ISIL = Z(IG+1)\r\n      CALL DECODE (CODE,CEXIST,NC)\r\nC\r\nC     FIND ACTUAL REMAINING COMPONENTS AND WRITE CONVERTED DATA TO\r\nC     OUTPUT FILE\r\nC\r\n      DO 120 J  = 1,NC\r\n      DO 120 JG = 1,NCIN\r\n      IF (CIN(JG)-CEXIST(J)-1) 120,110,120\r\n  110 NPRO = NPRO + 1\r\n      CARD(5) = ISIL + J - 1\r\n      CALL WRITE (OFILE,CARD(4),3+OEXTRA,0)\r\n  120 CONTINUE\r\n      IF (NPRO .GE. NCIN) GO TO 60\r\n      IF (Z(IG+3) .NE. Z(IG)) GO TO 80\r\n      IF ((IG+3) .GE. (IGRD+3*NGRD)) GO TO 80\r\n      IG = IG + 3\r\n      GO TO 100\r\nC\r\nC     FINISH PROCESSING CARDS BY CLOSING OUTPUT FILE RECORD\r\nC\r\n  150 CALL WRITE (OFILE,0,0,1)\r\nC\r\nC     TURN OFF TRAILER FOR INPUT CARD TYPE\r\nC\r\n      J = (ICODE(2) - 1)/16\r\n      I = ICODE(2) - 16*J\r\n      MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2))\r\nC\r\nC     TURN ON TRAILER FOR OUTPUT CARD TYPE\r\nC\r\n      J = (OCODE(2) - 1)/16\r\n      I = OCODE(2) - 16*J\r\n      MCB(J+2) = ORF(TWO(I+16),MCB(J+2))\r\nC\r\nC     RETURN\r\nC\r\n  200 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1002 CALL MESAGE (-2,IFILE,SUBNAM)\r\n      RETURN\r\n60220 FORMAT (A23,' 6022, SUBSTRUCTURE ',2A4,', GRID POINT',I9,\r\n     1       ', COMPONENTS',I9,1H, /30X,'REFERENCED ON ',2A4,\r\n     2       ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4)\r\n63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4,\r\n     1       ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ',\r\n     2       'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED')\r\n      END\r\n"
  },
  {
    "path": "mis/sgenb.f",
    "content": "      SUBROUTINE SGENB (TYPE,BUF,MCB,IFILE,ICODE,IEXTRA,OFILE,OCODE,\r\n     1                  OEXTRA)\r\nC\r\nC     THIS ROUTINE READS SUBSTRUCTURING CONSTRAINT CARDS AND CONVERTS\r\nC     THEM TO NASTRAN FORMAT\r\nC\r\nC     INPUTS -\r\nC\r\nC     TYPE   - BCD CARD NAME\r\nC     BUF    - GINO BUFFER FOR INPUT FILE\r\nC     MCB    - MATRIX CONTROL BLOCK FOR INPUT FILE\r\nC     IFILE  - INPUT FILE NAME\r\nC     ICODE  - LOCATE CODE FOR INPUT CARD TYPE\r\nC     IEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE READ\r\nC     OFILE  - OUTPUT FILE NAME\r\nC     OCODE  - LOCATE CODE FOR OUTPUT CARD TYPE\r\nC     OEXTRA - NUMBER OF EXTRA WORDS (AFTER GRID) TO BE WRITTEN\r\nC\r\n      EXTERNAL        ANDF,COMPLF,ORF\r\n      INTEGER         TYPE(2),BUF(1),MCB(7),ICODE(4),OFILE,OCODE(4),\r\n     1                OEXTRA,Z,SYSBUF,OUTT,TWO,SUBNAM(2),CARD(20),COMP,\r\n     2                CIN(6),CODE,CEXIST(6),ANDF,COMPLF,ORF\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / IDRY,NAME(2)\r\n      COMMON /SGENCM/ NONO,NSS,IPTR\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTT\r\n      COMMON /TWO   / TWO(32)\r\n      DATA    SUBNAM/ 4HSGEN,4HB    /\r\nC\r\nC     LOCATE CARDS ON FILE\r\nC\r\n      CALL LOCATE (*200,BUF(1),ICODE(1),ICD)\r\n      ICODE(4) = 1\r\nC\r\nC     WRITE HEADER RECORD ON OUTPUT FILE\r\nC\r\n      CALL WRITE (OFILE,ICODE(1),3,0)\r\nC\r\nC     READ SID, SUBSTRUCTURING NAME, AND COMPONENT CODE FORM CARD\r\nC\r\n   10 CALL READ (*1002,*150,IFILE,CARD,4,0,NWDS)\r\n      CARD(5) = CARD(1)\r\n      N = 6 + OEXTRA\r\n      DO 20 I = 6,N\r\n   20 CARD(I) = 0\r\n      CARD(7+OEXTRA) = -1\r\nC\r\nC     FIND SUBSTRUCTURE\r\nC\r\n      DO 30 I = 1,NSS\r\n      INAM = 2*I + 3\r\n      IF (Z(INAM).EQ.CARD(2) .AND. Z(INAM+1).EQ.CARD(3)) GO TO 50\r\n   30 CONTINUE\r\nC\r\nC     SUBSTRUCTURE NOT FOUND - SKIP OVER DATA\r\nC\r\n      CALL PAGE2 (-4)\r\n      WRITE (OUTT,63290) UWM,(CARD(J),J=2,3),TYPE,NAME\r\n   40 CALL FREAD (IFILE,CARD,1+IEXTRA,0)\r\n      IF (CARD(1)) 10,40,40\r\nC\r\nC     FOUND SUBSTRUCTURE NAME\r\nC\r\n   50 IPT  = IPTR + I - 1\r\n      IGRD = Z(IPT)\r\n      NGRD = (Z(IPT+1) - Z(IPT))/3\r\nC\r\nC     SPLIT COMPONENTS\r\nC\r\n      COMP = CARD(4)\r\n      IF (COMP .EQ. 0) COMP = 1\r\n      CALL SPLT10 (COMP,CIN,NCIN)\r\nC\r\nC     PROCESS GRID POINTS\r\nC\r\n   60 CALL FREAD (IFILE,CARD(7),1+IEXTRA,0)\r\n      IGRID = CARD(7)\r\n      IF (IGRID .EQ. -1) GO TO 10\r\n      IF (IGRID .EQ.  0) GO TO 60\r\n      CALL BISLOC (*80,IGRID,Z(IGRD),3,NGRD,IGR)\r\n      IG = IGR + IGRD - 1\r\n      NPRO = 0\r\n   70 IF (Z(IG-3) .NE. Z(IG)) GO TO 90\r\n      IF (IG .LE. IGRD) GO TO 90\r\n      IG = IG - 3\r\n      GO TO 70\r\nC\r\nC     BAD GRID\r\nC\r\n   80 NONO = 1\r\n      CALL PAGE2 (-3)\r\n      WRITE (OUTT,60220) UFM,(CARD(J),J=2,3),IGRID,COMP,TYPE,NAME\r\n      GO TO 60\r\nC\r\nC     DECODE 32-BIT WORD\r\nC\r\n   90 ISIL = Z(IG+1)\r\n      CODE = Z(IG+2)\r\n      IF (CODE .EQ. 0) CODE = 1\r\n      CALL DECODE (CODE,CEXIST,NC)\r\nC\r\nC     FIND ACTUAL REMAINING COMPONENTS AND WRITE CONVERTED DATA TO\r\nC     OUTPUT FILE\r\nC\r\n      DO 110 J  = 1,NC\r\n      DO 110 JG = 1,NCIN\r\n      IF (CIN(JG)-CEXIST(J)-1) 110,100,110\r\n  100 NPRO = NPRO + 1\r\n      CARD(7) = ISIL + J - 1\r\n      CALL WRITE (OFILE,CARD(5),3+OEXTRA,0)\r\n  110 CONTINUE\r\n      IF (NPRO .GE. NCIN) GO TO 60\r\n      IF (Z(IG+3) .NE. Z(IG)) GO TO 80\r\n      IF ((IG+3) .GE. (IGRD+3*NGRD)) GO TO 80\r\n      IG = IG + 3\r\n      GO TO 90\r\nC\r\nC     FINISH PROCESSING CARDS BY CLOSING OUTPUT FILE RECORD\r\nC\r\n  150 CALL WRITE (OFILE,0,0,1)\r\nC\r\nC     TURN OFF TRAILER FOR INPUT CARD TYPE\r\nC\r\n      J = (ICODE(2)-1)/16\r\n      I = ICODE(2) - 16*J\r\n      MCB(J+2) = ANDF(COMPLF(TWO(I+16)),MCB(J+2))\r\nC\r\nC     TURN ON TRAILER FOR OUTPUT CARD TYPE\r\nC\r\n      J = (OCODE(2)-1)/16\r\n      I = OCODE(2) - 16*J\r\n      MCB(J+2) = ORF(TWO(I+16),MCB(J+2))\r\nC\r\nC     RETURN\r\nC\r\n  200 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1002 CALL MESAGE (-2,IFILE,SUBNAM)\r\n      RETURN\r\n60220 FORMAT (A23,', SUBSTRUCTURE ',2A4,', GRID POINT',I9,\r\n     1       ', COMPONENTS',I9,1H, /30X,'REFERENCED ON ',2A4,\r\n     2       ' CARD, DO NOT EXIST ON SOLUTION STRUCTURE ',2A4)\r\n63290 FORMAT (A25,' 6329, SUBSTRUCTURE ',2A4,' REFERENCED ON ',2A4,\r\n     1       ' CARD', /30X,'IS NOT A COMPONENT BASIC SUBSTRUCTURE OF ',\r\n     2       'SOLUTION STRUCTURE ',2A4,/30X,'THIS CARD WILL BE IGNORED')\r\n      END\r\n"
  },
  {
    "path": "mis/sgenm.f",
    "content": "      SUBROUTINE SGENM (NTYPE,IFILE,SFILE,OFILE,ICODE,OCODE,CTYPES,\r\n     1                  CTYPEO)\r\nC\r\nC     THIS SUBROUTINE MERGES CONVERTED SUBSTRUCTURING DATA WITH EXISTING\r\nC     NASTRAN DATA\r\nC\r\nC     INPUTS\r\nC     NTYPE  - NUMBER OF DIFFERENT SUBSTRUCTURING CARDS\r\nC     IFILE  - INPUT FILE NAME\r\nC     SFILE  - SCRATCH FILE NAME\r\nC     OFILE  - OUTPUT FILE NAME\r\nC     ICODE  - LOCATE CODES FOR INPUT CARD TYPES\r\nC     OCODE  - LOCATE CODES FOR OUTPUT CARD TYPES\r\nC     CTYPES - BCD NAMES OF SUBSTRUCTURING CARDS\r\nC     CTYPEO - BCD NAMES OF CORRESPONDING NASTRAN CARDS\r\nC\r\n      INTEGER         SFILE,OFILE,ICODE(4,1),OCODE(4,1),CTYPES(2,8),\r\n     1                CTYPEO(2,8),BUF1,BUF2,BUF3,Z,SYSBUF,OUTT,CARD(3),\r\n     2                NLIMIT(3),SUBNAM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /BLANK / IDRY,NAME(2)\r\n      COMMON /SGENCM/ NONO,NSS,IPTR,BUF1,BUF2,BUF3,NZ\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,OUTT\r\n      DATA    NLIMIT/ 3*2147483647 /\r\n      DATA    SUBNAM/ 4HSGEN,4HM    /\r\nC\r\nC     OPEN FILES\r\nC\r\n      CALL GOPEN (IFILE,Z(BUF1),0)\r\n      CALL GOPEN (SFILE,Z(BUF2),0)\r\n      CALL GOPEN (OFILE,Z(BUF3),1)\r\nC\r\nC     READ HEADER FROM IFILE - DETERMINE IF SUBSTRUCTURING OR NASTRAN\r\nC     CARD\r\nC\r\n      FILE = IFILE\r\n   10 CALL READ (*1002,*1003,IFILE,CARD,3,0,IDX)\r\n      IF (CARD(1) .EQ. NLIMIT(1)) GO TO 70\r\n      DO 20 I = 1,NTYPE\r\n      IF (ICODE(1,I).NE.CARD(1) .OR. ICODE(2,I).NE.CARD(2)) GO TO 20\r\nC\r\nC     SKIP RECORD IF SUBSTRUCTURING CARD\r\nC\r\n      CALL FWDREC (*70,IFILE)\r\n      GO TO 10\r\n   20 CONTINUE\r\n      DO 30 I = 1,NTYPE\r\n      IF (OCODE(1,I).NE.CARD(1) .OR. OCODE(2,I).NE.CARD(2)) GO TO 30\r\nC\r\nC     FATAL ERROR IF BOTH SUBSTRUCTURING AND NASTRAN CARDS\r\nC\r\n      IF (ICODE(4,I) .EQ. 0) GO TO 40\r\n      NONO = 1\r\n      J = OCODE(4,I)\r\n      WRITE (OUTT,6330) UFM,NAME,(CTYPES(K,J),K=1,2),(CTYPEO(K,J),K=1,2)\r\n      CALL FWDREC (*70,IFILE)\r\n      GO TO 10\r\n   30 CONTINUE\r\nC\r\nC     COPY RECORD FROM IFILE TO OUTPUT\r\nC\r\n   40 CALL WRITE (OFILE,CARD,3,0)\r\n   50 CALL READ  (*1002,*60,IFILE,Z,NZ,0,NWDS)\r\n      CALL WRITE (OFILE,Z,NZ,0)\r\n      GO TO 50\r\n   60 CALL WRITE (OFILE,Z,NWDS,1)\r\n      GO TO 10\r\nC\r\nC     COPY RECORD FROM SFILE TO OUTPUT\r\nC\r\n   70 I1 = 1\r\n   80 DO 90 I = I1,NTYPE\r\n      IF (ICODE(4,I) .EQ. 1) GO TO 100\r\n   90 CONTINUE\r\n      GO TO 150\r\n  100 CALL FREAD (SFILE,CARD,3,0)\r\n      CALL WRITE (OFILE,OCODE(1,I),3,0)\r\n      FILE = SFILE\r\n  110 CALL READ  (*1002,*120,SFILE,Z,NZ,0,NWDS)\r\n      CALL WRITE (OFILE,Z,NZ,0)\r\n      GO TO 110\r\n  120 CALL WRITE (OFILE,Z,NWDS,1)\r\n      I1 = I + 1\r\n      GO TO 80\r\nC\r\nC     CLOSE FILES\r\nC\r\n  150 CALL WRITE (OFILE,NLIMIT,3,1)\r\n      CALL CLOSE (IFILE,1)\r\n      CALL CLOSE (SFILE,1)\r\n      CALL CLOSE (OFILE,1)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n 1002 M = -2\r\n      GO TO 2000\r\n 1003 M = -3\r\n 2000 CALL MESAGE (M,FILE,SUBNAM)\r\n      RETURN\r\nC\r\n 6330 FORMAT (A23,' 6330, SOLUTION SUBSTRUCTURE ',2A4,3H - ,2A4,' AND ',\r\n     1       2A4,' CARDS CANNOT BE USED TOGETHER.', /30X,\r\n     2       'USE EITHER ONE, BUT NOT BOTH.')\r\n      END\r\n"
  },
  {
    "path": "mis/shape.f",
    "content": "      SUBROUTINE SHAPE (*,GPLST,X,U,PEN,DEFORM,IOPT,IPTL,LIPLT,OPCOR)\r\nC\r\nC     IOPT CONTROLS THIS ROUTINE\r\nC     IOPT .LT. 0\r\nC       THE LINEL ARRAY WAS NOT CREATED.  UNIQUE LINES ARE NOT DRAWN.\r\nC     IOPT .GE. 0\r\nC       THE LIPLT ARRAY HAS CONNECTION DATA TO MAKE UNIQUE LINES. SUPLT\r\nC       WILL CREATE THE LINES.  IPTR IS ONE OF THE PARAMETERS.\r\nC\r\nC     REVISED 10/1990 BY G.CHAN/UNISYS, TO INCLUDE BAR, TRIA3 AND QUAE4\r\nC     OFFSET (PEDGE = 3)\r\nC\r\n      INTEGER         GPLST(1),PEN,DEFORM,LIPLT(1),ETYP,ECT,NAME(2),GP,\r\n     1                ELID,OPCOR,TE,BR,T3,Q4,OFFSET,PEDGE\r\n      REAL            X(3,1),U(2,1),OFF(6)\r\n      COMMON /BLANK / NGP,SKP1(9),SKP2(2),ECT,SKP21(7),MERR\r\n      COMMON /DRWDAT/ SKP15(15),PEDGE\r\n      DATA    TE,BR , T3,Q4  / 2HTE, 2HBR, 2HT3, 2HQ4 /\r\n      DATA    NAME  / 4HSHAP,1HE/\r\nC\r\n      CALL LINE (0,0,0,0,0,-1)\r\n      IF (IOPT .GE. 0) GO TO 120\r\n   10 CALL READ (*140,*130,ECT,ETYP,1,0,I)\r\n      OFFSET = 0\r\n      IF (ETYP .EQ. BR) OFFSET = 6\r\n      IF (ETYP.EQ.T3 .OR. ETYP.EQ.Q4) OFFSET = 1\r\n      CALL FREAD (ECT,I,1,0)\r\n      NGPEL = IABS(I)\r\n      IF (ETYP.NE.TE .AND. NGPEL.LT.5) GO TO 30\r\nC\r\nC     NOT A SIMPLE ELEMENT\r\nC\r\n   20 LGPEL = NGPEL\r\n      LTYP  = ETYP\r\n      CALL LINEL (LIPLT,LTYP,OPCOR,LGPEL,X,PEN,DEFORM,GPLST)\r\n      L = IABS(LTYP)\r\n      IF (L-1) 10,115,70\r\nC\r\n   30 L = NGPEL + 1\r\n      IF (NGPEL.LE.2 .OR. I.LT.0) L = NGPEL\r\n      LTYP = 10000\r\n      M = 1\r\n   40 CALL FREAD (ECT,ELID,1,0)\r\n      IF (ELID .LE. 0) GO TO 10\r\n      CALL FREAD (ECT,LID,1,0)\r\n      CALL FREAD (ECT,LIPLT,NGPEL,0)\r\n      IF (L .NE. NGPEL) LIPLT(L) = LIPLT(1)\r\nC\r\n      IF (OFFSET .NE. 0) CALL FREAD (ECT,OFF,OFFSET,0)\r\n      IF (OFFSET.EQ.0 .OR. DEFORM.NE.0) GO TO 70\r\nC\r\nC     IF THIS IS A BAR, TRIA3 OR QUAD4 ELEMENTS READ IN THE OFFSET\r\nC     NO SCALE FACTOR APPLIES TO OFFSET HERE\r\nC\r\n      IF (OFFSET .NE. 6) GO TO 50\r\nC\r\nC     BAR OFFSET\r\nC\r\n      OFF(1) = 0.707*SQRT(OFF(1)**2 + OFF(2)**2 + OFF(3)**2)\r\n      OFF(2) = 0.707*SQRT(OFF(4)**2 + OFF(5)**2 + OFF(6)**2)\r\n      OFF(3) = OFF(1)\r\n      GO TO 70\r\nC\r\nC     TRIA3 AND QUAD4 OFFSET\r\nC\r\n   50 OFF(1) = 0.707*OFF(1)\r\n      DO 60 I = 2,5\r\n   60 OFF(I) = OFF(1)\r\nC\r\nC     WRITE THE LINES.  0 FOR SIL MEANS NO LINES DRAWN\r\nC\r\n   70 J = 0\r\n      DO 110 I = 1,L\r\n      IF (J .EQ. 0) GO TO 80\r\n      X1 = X2\r\n      Y1 = Y2\r\n   80 GP = LIPLT(I)\r\n      IF (GP .EQ. 0) GO TO 110\r\n      GP = IABS(GPLST(GP))\r\n      IF (DEFORM .NE. 0) GO TO 90\r\n      X2 = X(2,GP)\r\n      Y2 = X(3,GP)\r\n      IF (OFFSET .EQ. 0) GO TO 100\r\nC\r\nC     IF OFFSET IS PRESENT, ADD ARBITRARY AN OFFSET LENGTH TO X2 AND Y2.\r\nC     SINCE THE OFFSET LENGTH IS SO TINY, ITS TRUE DIRECTION IS NOT OF\r\nC     VITAL CONCERNS. THE IDEA HERE IS THAT BIG OFFSET WILL SHOW IN THE\r\nC     PLOT IF ORIGINAL DATA CONTAINS ERRONEOUS AND BIG OFFSET VALUE(S).\r\nC\r\nC     IF OFFSET IS ADDED IN SAME DIRECTION AS THE PLOTTED LINE, ROTATE\r\nC     THE OFFSET LENGTH BY 90 DEGREE\r\nC\r\n      X2 = X2 + OFF(I)\r\n      XY = XY + OFF(I)\r\n      IF (ABS((X2-X1)-(Y2-Y1)) .LT. 0.01) X2 = X2 - 2.*OFF(I)\r\n      GO TO 100\r\n   90 X2 = U(1,GP)\r\n      Y2 = U(2,GP)\r\n  100 IF (J.EQ.0 .OR. J.EQ.GP) GO TO 110\r\n      CALL LINE (X1,Y1,X2,Y2,PEN,0)\r\n  110 J = GP\r\nC\r\n  115 IF (L-LTYP) 40,10,20\r\nC\r\nC\r\n  120 IF (PEDGE .EQ. 3) GO TO 130\r\n      CALL SUPLT (LIPLT(1),LIPLT(IPTL+1),X,U,GPLST,PEN,DEFORM)\r\n  130 CALL LINE (0,0,0,0,0,1)\r\n      IF (IOPT .LT. 0) CALL BCKREC (ECT)\r\n      GO TO 150\r\nC\r\nC     ILLEGAL EOF\r\nC\r\n  140 CALL MESAGE (-2,ECT,NAME)\r\n  150 IF (PEDGE .EQ. 3) RETURN 1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shcsgd.f",
    "content": "      SUBROUTINE SHCSGD (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA,\r\n     1                   NECPT,TUBD,CSID,THETAD,TUMSD)\r\nC\r\nC     WITH ENTRY SHCSGS (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA,\r\nC    1                   NECPT,TUBS,CSID,THETAS,TUMSS)\r\nC\r\nC\r\nC     'COORDINATE SYSTEM GENERATOR' ROUTINE FOR SHELL ELEMENTS.\r\nC\r\nC     THIS ROUTINE USES THE VALUES IN THE EST TABLE TO CREATE\r\nC     APPROPRIATE MATERIAL/STRESS COORDINATE SYSTEM TRANSFORMATIONS.\r\nC\r\nC     INPUT:\r\nC            CFLAG    - INDICATOR FLAG FROM CONNECTION\r\nC            CCSID    - CSID  FROM CONNECTION\r\nC            CTHETA   - ANGLE FROM CONNECTION\r\nC            PFLAG    - INDICATOR FLAG FROM PROPERTY\r\nC            PCSID    - CSID  FROM PROPERTY\r\nC            PTHETA   - ANGLE FROM PROPERTY\r\nC            NECPT    - ARRAY OF LENGTH 4, WORDS 2-4 ARE THE LOCATION\r\nC                       WHERE THE TRANSFORMATION NEEDS TO BE CALCULATED\r\nC            TUBD/S   - USER TO BASIC TRANSFORMATION\r\nC     OUTPUT:\r\nC            TUMSD/S  - USER TO MATERIAL/STRESS TRANSFORMATION\r\nC            CSID     - CSID  USED FOR CALCULATIONS\r\nC            THETAD/S - THETA USED FOR CALCULATIONS\r\nC\r\nC     NOTES:\r\nC     1- IF CSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED TO\r\nC        CALCULATE [TBMS] (MATERIAL/STRESS TO BASIC TRANSFORMATION).\r\nC        [TBMS] IS THEN PREMULTIPLIED BY [TUB] TO OBTAIN [TUMS].\r\nC        THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED\r\nC        UPON WHICH STEP 2 IS TAKEN.\r\nC     2- IF THETA HAS BEEN SPECIFIED, INPLANE TRANSFORMATION IS USED TO\r\nC        CALCULATE [TUMS] (MATERIAL/STRESS TO USER TRANSFORMATION).\r\nC     3- IF THE CONNECTION VALUE IS LEFT BLANK, THE PROPERTY VALUE IS\r\nC        USED.\r\nC     4- NON-STANDARD RETURN IS TAKEN WHEN THE X-AXIS OF THE SPECIFIED\r\nC        COORDINATE SYSTEM DOES NOT HAVE A PROJECTION ON THE X-Y PLANE\r\nC        OF THE ELEMENT COORD. SYSTEM\r\nC\r\nC\r\n      INTEGER          CSID,CCSID,PCSID,CFLAG,PFLAG,NECPT(4)\r\n      REAL             TUBS(9),TUMSS(9),TBMSS(9),XMS,YMS,THETAS,EPS1S,\r\n     1                 PIS,TWOPIS,RADDGS,DEGRDS,FLIPS\r\n      DOUBLE PRECISION TUBD(9),TUMSD(9),TBMSD(9),XMD,YMD,THETAD,EPS1D,\r\n     1                 PID,TWOPID,RADDGD,DEGRDD,FLIPD\r\n      COMMON /CONDAS/  PIS,TWOPIS,RADDGS,DEGRDS\r\n      COMMON /CONDAD/  PID,TWOPID,RADDGD,DEGRDD\r\n      EQUIVALENCE      (TBMSS(1),TBMSD(1))\r\n      DATA    EPS1D ,  EPS1S /1.0D-7, 1.0E-7 /\r\nC\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      FLIPD = 1.0D0\r\n      IF (CFLAG .EQ. 0) GO TO 130\r\nC\r\nC     DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/\r\nC     STRESS COORD. SYSTEM, DETERMINED BASED ON CCSID, ONTO THE XY-PLANE\r\nC     OF THE ELEMENT COORD. SYSTEM.\r\nC\r\n      CSID = CCSID\r\n      IF (CCSID .GT. 0) GO TO 110\r\nC\r\nC     [TUMS] = [TUB]\r\nC\r\n      DO 100 I = 1,9\r\n      TUMSD(I) = TUBD(I)\r\n 100  CONTINUE\r\n      GO TO 120\r\nC\r\nC     [TUMS] = [TUB] [TBMS]\r\nC\r\n 110  NECPT(1) = CCSID\r\n      CALL TRANSD (NECPT,TBMSD)\r\n      CALL GMMATD (TUBD,3,3,0, TBMSD,3,3,0, TUMSD)\r\nC\r\n 120  XMD = TUMSD(1)\r\n      YMD = TUMSD(4)\r\n      IF (DABS(XMD).LE.EPS1D .AND. DABS(YMD).LE.EPS1D) RETURN 1\r\n      THETAD = DATAN2(YMD,XMD)\r\n      IF (TUMSD(9) .LT. 0.0D0) FLIPD = -1.0D0\r\n      GO TO 190\r\nC\r\n 130  IF (CTHETA .EQ. 0.0) GO TO 140\r\nC\r\nC     DETERMINE THETA FROM CTHETA\r\nC\r\n      THETAD = DBLE(CTHETA)*DEGRDD\r\n      GO TO 190\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF PCSID AND/OR PTHETA ON THE\r\nC     PSHELL CARD.\r\nC\r\n 140  IF (PFLAG .EQ. 0) GO TO 180\r\nC\r\nC     DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/\r\nC     STRESS COORD. SYSTEM, DETERMINED BASED ON PCSID, ONTO THE XY-PLANE\r\nC     OF THE ELEMENT COORD. SYSTEM.\r\nC\r\n      CSID = PCSID\r\n      IF (PCSID .GT. 0) GO TO 160\r\nC\r\nC     [TUMS] = [TUB]\r\nC\r\n      DO 150 I = 1,9\r\n      TUMSD(I) = TUBD(I)\r\n 150  CONTINUE\r\n      GO TO 170\r\nC\r\nC     [TUMS] = [TUB] [TBMS]\r\nC\r\n 160  NECPT(1) = PCSID\r\n      CALL TRANSD (NECPT,TBMSD)\r\n      CALL GMMATD (TUBD,3,3,0, TBMSD,3,3,0, TUMSD)\r\nC\r\n 170  XMD = TUMSD(1)\r\n      YMD = TUMSD(4)\r\n      IF (DABS(XMD).LE.EPS1D .AND. DABS(YMD).LE.EPS1D) RETURN 1\r\n      THETAD = DATAN2(YMD,XMD)\r\n      IF (TUMSD(9) .LT. 0.0D0) FLIPD = -1.0D0\r\n      GO TO 190\r\nC\r\nC     DETERMINE THETA FROM PTHETA\r\nC\r\n 180  THETAD = DBLE(PTHETA)*DEGRDD\r\nC\r\nC     IF THE Z-AXIS OF THE TARGET MATERIAL/STRESS COORD. SYSTEM WAS NOT\r\nC     POINTING IN THE SAME GENERAL DIRECTION AS THE Z-AXIS OF THE USER\r\nC     COORD. SYSTEM, FLIP THE Y- AND Z-AXES OF THE FINAL COORDINATE\r\nC     SYSTEM TO ACCOUNT FOR IT.\r\nC\r\n 190  TUMSD(1) = DCOS(THETAD)\r\n      TUMSD(2) =-FLIPD*DSIN(THETAD)\r\n      TUMSD(3) = 0.0D0\r\n      TUMSD(4) = DSIN(THETAD)\r\n      TUMSD(5) = FLIPD*DCOS(THETAD)\r\n      TUMSD(6) = 0.0D0\r\n      TUMSD(7) = 0.0D0\r\n      TUMSD(8) = 0.0D0\r\n      TUMSD(9) = FLIPD\r\nC\r\n      RETURN\r\nC\r\nC\r\n      ENTRY SHCSGS (*,CFLAG,CCSID,CTHETA,PFLAG,PCSID,PTHETA,\r\n     1              NECPT,TUBS,CSID,THETAS,TUMSS)\r\nC     ======================================================\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      FLIPS = 1.0\r\n      IF (CFLAG .EQ. 0) GO TO 230\r\nC\r\nC     DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/\r\nC     STRESS COORD. SYSTEM, DETERMINED BASED ON CCSID, ONTO THE XY-PLANE\r\nC     OF THE ELEMENT COORD. SYSTEM.\r\nC\r\n      CSID = CCSID\r\n      IF (CCSID .GT. 0) GO TO 210\r\nC\r\nC     [TUMS] = [TUB]\r\nC\r\n      DO 200 I = 1,9\r\n      TUMSS(I) = TUBS(I)\r\n 200  CONTINUE\r\n      GO TO 220\r\nC\r\nC     [TUMS] = [TUB] [TBMS]\r\nC\r\n 210  NECPT(1) = CCSID\r\n      CALL TRANSS (NECPT,TBMSS)\r\n      CALL GMMATS (TUBS,3,3,0, TBMSS,3,3,0, TUMSS)\r\nC\r\n 220  XMS = TUMSS(1)\r\n      YMS = TUMSS(4)\r\n      IF (ABS(XMS).LE.EPS1S .AND. ABS(YMS).LE.EPS1S) RETURN 1\r\n      THETAS = ATAN2(YMS,XMS)\r\n      IF (TUMSS(9) .LT. 0.0) FLIPS = -1.0\r\n      GO TO 290\r\nC\r\n 230  IF (CTHETA .EQ. 0.0) GO TO 240\r\nC\r\nC     DETERMINE THETA FROM CTHETA\r\nC\r\n      THETAS = CTHETA*DEGRDS\r\n      GO TO 290\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF PCSID AND/OR PTHETA ON THE\r\nC     PSHELL CARD.\r\nC\r\n 240  IF (PFLAG .EQ. 0) GO TO 280\r\nC\r\nC     DETERMINE THETA FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL/\r\nC     STRESS COORD. SYSTEM, DETERMINED BASED ON PCSID, ONTO THE XY-PLANE\r\nC     OF THE ELEMENT COORD. SYSTEM.\r\nC\r\n      CSID = PCSID\r\n      IF (PCSID .GT. 0) GO TO 260\r\nC\r\nC     [TUMS] = [TUB]\r\nC\r\n      DO 250 I = 1,9\r\n      TUMSS(I) = TUBS(I)\r\n 250  CONTINUE\r\n      GO TO 270\r\nC\r\nC     [TUMS] = [TUB] [TBMS]\r\nC\r\n 260  NECPT(1) = PCSID\r\n      CALL TRANSS (NECPT,TBMSS)\r\n      CALL GMMATS (TUBS,3,3,0, TBMSS,3,3,0, TUMSS)\r\nC\r\n 270  XMS = TUMSS(1)\r\n      YMS = TUMSS(4)\r\n      IF (ABS(XMS).LE.EPS1S .AND. ABS(YMS).LE.EPS1S) RETURN 1\r\n      THETAS = ATAN2(YMS,XMS)\r\n      IF (TUMSS(9) .LT. 0.0) FLIPS = -1.0\r\n      GO TO 290\r\nC\r\nC     DETERMINE THETA FROM PTHETA\r\nC\r\n 280  THETAS = PTHETA*DEGRDS\r\nC\r\nC     IF THE Z-AXIS OF THE TARGET MATERIAL/STRESS COORD. SYSTEM WAS NOT\r\nC     POINTING IN THE SAME GENERAL DIRECTION AS THE Z-AXIS OF THE USER\r\nC     COORD. SYSTEM, FLIP THE Y- AND Z-AXES OF THE FINAL COORDINATE\r\nC     SYSTEM TO ACCOUNT FOR IT.\r\nC\r\n 290  TUMSS(1) = COS(THETAS)\r\n      TUMSS(2) =-FLIPS*SIN(THETAS)\r\n      TUMSS(3) = 0.0\r\n      TUMSS(4) = SIN(THETAS)\r\n      TUMSS(5) = FLIPS*COS(THETAS)\r\n      TUMSS(6) = 0.0\r\n      TUMSS(7) = 0.0\r\n      TUMSS(8) = 0.0\r\n      TUMSS(9) = FLIPS\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shctsd.f",
    "content": "      SUBROUTINE SHCTSD (IERR,ELID,PID,MID,TLAM,TMEAN,TGRAD,THETAE,\r\n     1                   FTHERM,EPSLNT,ICORE,CORE)\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO EVALUATE THERMAL STRAINS FOR COMPOSITE\r\nC     SHELL ELEMENTS.\r\nC\r\nC     INPUT :\r\nC           ELID   - ELEMENT ID\r\nC           PID    - PROPERTY ID\r\nC           MID    - ARRAY OF LAMINATE MATERIAL ID'S\r\nC           TLAM   - LAMINATE THICKNESS\r\nC           TMEAN  - ELEMENT MEAN TEMPERATURE\r\nC           TGRAD  - THERMAL GRADIENT\r\nC           THETAE - ANGLE FROM ELEMENT X-AXIS TO MATERIAL X-AXIS\r\nC           FTHERM - ARRAY OF THERMAL FORCES CONTAINING THE USER-\r\nC                    DEFINED THERMAL MOMENTS, IF SUPPLIED\r\nC           IPCMPI AND NPCMPI ARE THE STARTING POINT AND THE NUMBER\r\nC           OF WORDS OF PCOMPI DATA IN CORE, AS INPUT BY /SDR2C1/.\r\nC     OUTPUT:\r\nC           EPSLNT - ARRAY OF THERMAL STRAINS FOR THE LAMINATE\r\nC\r\nC\r\n      LOGICAL          NONMEM,PCMP,PCMP1,PCMP2\r\n      INTEGER          ELID,PID,MID(4),ICORE(1),PCOMP,PCOMP1,PCOMP2,\r\n     1                 PIDLOC,SYM,SYMMEM,INDX(6,3)\r\n      REAL             CORE(1)\r\n      DOUBLE PRECISION TLAM,TMEAN,TGRAD,THETAE,FTHERM(6),EPSLNT(6),\r\n     1                 MINRT,ABBD(6,6),STIFF(36),GLAY(9),GLAYT(9),\r\n     2                 GBAR(9),GPROP(25),ALPHAL(3),ALPHAE(3),GALPHA(3),\r\n     3                 THETA,TRANSL(9),TSUBO,DELTA,DELTAT,ZK,ZK1,ZREF,\r\n     4                 ZSUBI,C,C2,S,S2,PI,TWOPI,RADDEG,DEGRAD,DETERM,\r\n     5                 DUM(6)\r\n      COMMON /CONDAD/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP\r\n      COMMON /SDR2C1/  IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\nC\r\nC\r\n      DATA    PCOMP ,  PCOMP1,PCOMP2 / 0,1,2 /\r\n      DATA    SYM   ,  MEM   ,SYMMEM / 1,2,3 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR = 0\r\n      DO 20 LL = 1,6\r\n      DO 10 MM = 1,6\r\n      ABBD(LL,MM) = 0.0D0\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      MINRT = TLAM*TLAM*TLAM/12.0D0\r\n      ZREF  =-TLAM/2.0D0\r\nC\r\n      INFLAG = 12\r\n      ELTEMP = TMEAN\r\nC\r\n      ITYPE = -1\r\n      LPCOMP= IPCMP + NPCMP + NPCMP1 + NPCMP2\r\n      PCMP  = NPCMP  .GT. 0\r\n      PCMP1 = NPCMP1 .GT. 0\r\n      PCMP2 = NPCMP2 .GT. 0\r\nC\r\nC     ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE\r\nC\r\n      IF (LPCOMP .EQ. IPCMP) GO TO 600\r\nC\r\nC     LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA\r\nC     BLOCK WHICH IS IN CORE.\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n      IF (.NOT.PCMP) GO TO 110\r\n      IP = IPCMP\r\n      IF (ICORE(IP) .EQ. PID) GO TO 210\r\n      IPC11 = IPCMP1 - 1\r\n      DO 100 IP = IPCMP,IPC11\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC11) GO TO 100\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 200\r\n  100 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  110 IF (.NOT.PCMP1) GO TO 130\r\n      IP = IPCMP1\r\n      IF (ICORE(IP) .EQ. PID) GO TO 230\r\n      IPC21 = IPCMP2 - 1\r\n      DO 120 IP = IPCMP1,IPC21\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC21) GO TO 120\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 220\r\n  120 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n  130 IF (.NOT.PCMP2) GO TO 150\r\n      IP = IPCMP2\r\n      IF (ICORE(IP) .EQ. PID) GO TO 250\r\n      LPC11 = LPCOMP - 1\r\n      DO 140 IP = IPCMP2,LPC11\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.LPC11) GO TO 140\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 240\r\n  140 CONTINUE\r\nC\r\nC     PID WAS NOT LOCATED; ISSUE ERROR\r\nC\r\n  150 GO TO 600\r\nC\r\nC     PID WAS LOCATED; DETERMINE TYPE\r\nC\r\n  200 IP     = IP + 1\r\n  210 ITYPE  = PCOMP\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + 4*NLAY\r\n      GO TO 300\r\nC\r\n  220 IP     = IP + 1\r\n  230 ITYPE  = PCOMP1\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + NLAY\r\n      GO TO 300\r\nC\r\n  240 IP     = IP + 1\r\n  250 ITYPE  = PCOMP2\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + 2*NLAY\r\nC\r\n  300 TSUBO  = CORE(IPOINT+24)\r\n      DELTA  = TMEAN - TSUBO\r\n      LAMOPT = ICORE(PIDLOC+8)\r\n      NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = ALL     (ALL PLYS, DEFAULT)\r\nC            = SYM     (SYMMETRIC)\r\nC            = MEM     (MEMBRANE ONLY)\r\nC            = SYMMEM  (SYMMETRIC-MEMBRANE)\r\nC\r\nC     CONSTRUCT THE LAMINATE FORCE-STRAIN MATRIX\r\nC\r\nC     EXTENSIONAL\r\nC\r\n      MATID = MID(1)\r\n      CALL MAT (ELID)\r\n      CALL LPROPD (GPROP)\r\nC\r\n      DO 320 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 310 MM = 1,3\r\n      ABBD(LL,MM) = GPROP(MM+II)*TLAM\r\n  310 CONTINUE\r\n  320 CONTINUE\r\nC\r\nC     BENDING\r\nC\r\n      IF (.NOT.NONMEM) GO TO 400\r\nC\r\n      MATID = MID(2)\r\n      CALL MAT (ELID)\r\n      CALL LPROPD (GPROP)\r\nC\r\n      DO 340 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 330 MM = 1,3\r\n      ABBD(LL+3,MM+3) = GPROP(MM+II)*MINRT\r\n  330 CONTINUE\r\n  340 CONTINUE\r\nC\r\nC     MEMBRANE-BENDING\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 400\r\nC\r\n      MATID = MID(4)\r\n      CALL MAT (ELID)\r\n      CALL LPROPD (GPROP)\r\nC\r\n      DO 360 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 350 MM = 1,3\r\n      ABBD(LL,MM+3) = GPROP(MM+II)*TLAM*TLAM\r\n      ABBD(LL+3,MM) = GPROP(MM+II)*TLAM*TLAM\r\n  350 CONTINUE\r\n  360 CONTINUE\r\nC\r\nC\r\nC     BEGIN THE LOOP OVER LAYERS\r\nC\r\n  400 ZK = ZREF\r\n      DO 500 K = 1,NLAY\r\nC\r\nC     SET THE LAYER-DEPENDENT VARIABLES\r\nC\r\n      ZK1 = ZK\r\n      IF (ITYPE .NE. PCOMP) GO TO 410\r\n      ZK = ZK1 + CORE(PIDLOC+6+4*K)\r\n      THETA = CORE(PIDLOC   +7+4*K)\r\n      GO TO 430\r\nC\r\n  410 IF (ITYPE .NE. PCOMP1) GO TO 420\r\n      ZK = ZK1 + CORE(PIDLOC+7  )\r\n      THETA = CORE(PIDLOC   +8+K)\r\n      GO TO 430\r\nC\r\n  420 IF (ITYPE .NE. PCOMP2) GO TO 430\r\n      ZK = ZK1 + CORE(PIDLOC+7+2*K)\r\n      THETA = CORE(PIDLOC   +8+2*K)\r\nC\r\nC     LAYER MATERIAL PROPERTIES\r\nC\r\n  430 DO 440 IR = 1,9\r\n      GLAY(IR) = CORE(IPOINT+IR)\r\n  440 CONTINUE\r\nC\r\n      DO 450 IR = 1,3\r\n      ALPHAL(IR) = CORE(IPOINT+13+IR)\r\n  450 CONTINUE\r\nC\r\n      TI = ZK - ZK1\r\n      ZSUBI = (ZK+ZK1)/2.0D0\r\n      DELTAT = DELTA + ZSUBI*TGRAD\r\nC\r\nC     TRANSFORM THE LAYER MATERIAL PROPERTIES FROM THE FIBER SYSTEM TO\r\nC     THE ELEMENT SYSTEM\r\nC\r\n      THETA = THETA*DEGRAD + THETAE\r\n      C   = DCOS(THETA)\r\n      C2  = C*C\r\n      S   = DSIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANSL(1)  = C2\r\n      TRANSL(2)  = S2\r\n      TRANSL(3)  = C*S\r\n      TRANSL(4)  = S2\r\n      TRANSL(5)  = C2\r\n      TRANSL(6)  =-C*S\r\n      TRANSL(7)  =-2.0D0*C*S\r\n      TRANSL(8)  = 2.0D0*C*S\r\n      TRANSL(9)  = C2 - S2\r\nC\r\nC                _            T\r\nC     CALCULATE [G] = [TRANSL] [GLAY][TRANSL]\r\nC\r\n      CALL GMMATD (GLAY(1),3,3,0,  TRANSL(1),3,3,0, GLAYT(1))\r\n      CALL GMMATD (TRANSL(1),3,3,1, GLAYT(1),3,3,0, GBAR(1))\r\nC\r\nC     CALCULATE [ALPHAE] = [TRANSL]X[ALPHA]\r\nC     MODIFY [TRANSL] FOR TRANSFORMATIONS OF ALPHAS\r\nC\r\n      TRANSL(3) = -TRANSL(3)\r\n      TRANSL(6) = -TRANSL(6)\r\n      TRANSL(7) = -TRANSL(7)\r\n      TRANSL(8) = -TRANSL(8)\r\nC\r\n      CALL GMMATD (TRANSL(1),3,3,0, ALPHAL(1),3,1,0, ALPHAE(1))\r\nC\r\nC\r\nC     CALCULATE THERMAL FORCES AND MOMENTS\r\nC\r\n      CALL GMMATD (GBAR(1),3,3,0, ALPHAE(1),3,1,0, GALPHA(1))\r\nC\r\n      DO 460 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR  ) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (NONMEM)  FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)*\r\n     1                            DELTAT*(ZK*ZK-ZK1*ZK1)/2.0D0\r\n  460 CONTINUE\r\nC\r\nC     CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480\r\n      DELTAT = DELTA - ZSUBI*TGRAD\r\nC\r\n      DO 470 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR  ) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (NONMEM)  FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)*\r\n     1                            DELTAT*(ZK1*ZK1-ZK*ZK)/2.0D0\r\n  470 CONTINUE\r\n  480 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27\r\nC\r\n  500 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP OVER THE LAYERS\r\nC\r\nC     COMPUTE THERMAL STRAIN VECTOR\r\nC\r\nC                      -1\r\nC     {EPSLNT} = [ABBD]  {FTHERM}\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,ABBD,6,DUM,0,DETERM,ISING,INDX)\r\nC\r\n      DO 520 LL = 1,6\r\n      NN = 6*(LL-1)\r\n      DO 510 MM = 1,6\r\n      STIFF(NN+MM) = ABBD(LL,MM)\r\n  510 CONTINUE\r\n  520 CONTINUE\r\nC\r\n      CALL GMMATD (STIFF(1),6,6,0, FTHERM(1),6,1,0, EPSLNT(1))\r\n      GO TO 700\r\nC\r\n  600 IERR = 1\r\n  700 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shctss.f",
    "content": "      SUBROUTINE SHCTSS (IERR,ELID,PID,MID,TLAM,TMEAN,TGRAD,THETAE,\r\n     1                   FTHERM,EPSLNT,ICORE,CORE)\r\nC\r\nC     SINGLE PRECISION ROUTINE TO EVALUATE THERMAL STRAINS FOR COMPOSITE\r\nC     SHELL ELEMENTS.\r\nC\r\nC     INPUT :\r\nC           ELID   - ELEMENT ID\r\nC           PID    - PROPERTY ID\r\nC           MID    - ARRAY OF LAMINATE MATERIAL ID'S\r\nC           TLAM   - LAMINATE THICKNESS\r\nC           TMEAN  - ELEMENT MEAN TEMPERATURE\r\nC           TGRAD  - THERMAL GRADIENT\r\nC           THETAE - ANGLE FROM ELEMENT X-AXIS TO MATERIAL X-AXIS\r\nC           FTHERM - ARRAY OF THERMAL FORCES CONTAINING THE USER-\r\nC                    DEFINED THERMAL MOMENTS, IF SUPPLIED\r\nC           IPCMPI AND NPCMPI ARE THE STARTING POINT AND THE NUMBER\r\nC           OF WORDS OF PCOMPI DATA IN CORE, AS INPUT BY /SDR2C1/.\r\nC     OUTPUT:\r\nC           EPSLNT - ARRAY OF THERMAL STRAINS FOR THE LAMINATE\r\nC\r\nC\r\n      LOGICAL          NONMEM,PCMP,PCMP1,PCMP2\r\n      INTEGER          ELID,PID,MID(4),ICORE(1),PCOMP,PCOMP1,PCOMP2,\r\n     1                 PIDLOC,SYM,SYMMEM,INDX(6,3)\r\n      REAL             CORE(1)\r\n      REAL             TLAM,TMEAN,TGRAD,THETAE,FTHERM(6),EPSLNT(6),\r\n     1                 MINRT,ABBD(6,6),STIFF(36),GLAY(9),GLAYT(9),\r\n     2                 GBAR(9),GPROP(25),ALPHAL(3),ALPHAE(3),GALPHA(3),\r\n     3                 THETA,TRANSL(9),TSUBO,DELTA,DELTAT,ZK,ZK1,ZREF,\r\n     4                 ZSUBI,C,C2,S,S2,PI,TWOPI,RADDEG,DEGRAD,DETERM,\r\n     5                 DUM(6)\r\n      COMMON /CONDAS/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP\r\n      COMMON /SDR2C1/  IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\nC\r\nC\r\n      DATA    PCOMP ,  PCOMP1,PCOMP2 / 0,1,2 /\r\n      DATA    SYM   ,  MEM   ,SYMMEM / 1,2,3 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR = 0\r\n      DO 20 LL = 1,6\r\n      DO 10 MM = 1,6\r\n      ABBD(LL,MM) = 0.0\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      MINRT = TLAM*TLAM*TLAM/12.0\r\n      ZREF  =-TLAM/2.0\r\nC\r\n      INFLAG = 12\r\n      ELTEMP = TMEAN\r\nC\r\n      ITYPE = -1\r\n      LPCOMP= IPCMP + NPCMP + NPCMP1 + NPCMP2\r\n      PCMP  = NPCMP  .GT. 0\r\n      PCMP1 = NPCMP1 .GT. 0\r\n      PCMP2 = NPCMP2 .GT. 0\r\nC\r\nC     ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE\r\nC\r\n      IF (LPCOMP .EQ. IPCMP) GO TO 600\r\nC\r\nC     LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA\r\nC     BLOCK WHICH IS IN CORE.\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n      IF (.NOT.PCMP) GO TO 110\r\n      IP = IPCMP\r\n      IF (ICORE(IP) .EQ. PID) GO TO 210\r\n      IPC11 = IPCMP1 - 1\r\n      DO 100 IP = IPCMP,IPC11\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC11) GO TO 100\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 200\r\n  100 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  110 IF (.NOT.PCMP1) GO TO 130\r\n      IP = IPCMP1\r\n      IF (ICORE(IP) .EQ. PID) GO TO 230\r\n      IPC21 = IPCMP2 - 1\r\n      DO 120 IP = IPCMP1,IPC21\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.IPC21) GO TO 120\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 220\r\n  120 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n  130 IF (.NOT.PCMP2) GO TO 150\r\n      IP = IPCMP2\r\n      IF (ICORE(IP) .EQ. PID) GO TO 250\r\n      LPC11 = LPCOMP - 1\r\n      DO 140 IP = IPCMP2,LPC11\r\n      IF (ICORE(IP).NE.-1 .OR. IP.GE.LPC11) GO TO 140\r\n      IF (ICORE(IP+1) .EQ. PID) GO TO 240\r\n  140 CONTINUE\r\nC\r\nC     PID WAS NOT LOCATED; ISSUE ERROR\r\nC\r\n  150 GO TO 600\r\nC\r\nC     PID WAS LOCATED; DETERMINE TYPE\r\nC\r\n  200 IP     = IP + 1\r\n  210 ITYPE  = PCOMP\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + 4*NLAY\r\n      GO TO 300\r\nC\r\n  220 IP     = IP + 1\r\n  230 ITYPE  = PCOMP1\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + NLAY\r\n      GO TO 300\r\nC\r\n  240 IP     = IP + 1\r\n  250 ITYPE  = PCOMP2\r\n      PIDLOC = IP\r\n      NLAY   = ICORE(PIDLOC+1)\r\n      IPOINT = PIDLOC + 8 + 2*NLAY\r\nC\r\n  300 TSUBO  = CORE(IPOINT+24)\r\n      DELTA  = TMEAN - TSUBO\r\n      LAMOPT = ICORE(PIDLOC+8)\r\n      NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = ALL     (ALL PLYS, DEFAULT)\r\nC            = SYM     (SYMMETRIC)\r\nC            = MEM     (MEMBRANE ONLY)\r\nC            = SYMMEM  (SYMMETRIC-MEMBRANE)\r\nC\r\nC     CONSTRUCT THE LAMINATE FORCE-STRAIN MATRIX\r\nC\r\nC     EXTENSIONAL\r\nC\r\n      MATID = MID(1)\r\n      CALL MAT (ELID)\r\n      CALL LPROPS (GPROP)\r\nC\r\n      DO 320 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 310 MM = 1,3\r\n      ABBD(LL,MM) = GPROP(MM+II)*TLAM\r\n  310 CONTINUE\r\n  320 CONTINUE\r\nC\r\nC     BENDING\r\nC\r\n      IF (.NOT.NONMEM) GO TO 400\r\nC\r\n      MATID = MID(2)\r\n      CALL MAT (ELID)\r\n      CALL LPROPS (GPROP)\r\nC\r\n      DO 340 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 330 MM = 1,3\r\n      ABBD(LL+3,MM+3) = GPROP(MM+II)*MINRT\r\n  330 CONTINUE\r\n  340 CONTINUE\r\nC\r\nC     MEMBRANE-BENDING\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 400\r\nC\r\n      MATID = MID(4)\r\n      CALL MAT (ELID)\r\n      CALL LPROPS (GPROP)\r\nC\r\n      DO 360 LL = 1,3\r\n      II = 3*(LL-1)\r\n      DO 350 MM = 1,3\r\n      ABBD(LL,MM+3) = GPROP(MM+II)*TLAM*TLAM\r\n      ABBD(LL+3,MM) = GPROP(MM+II)*TLAM*TLAM\r\n  350 CONTINUE\r\n  360 CONTINUE\r\nC\r\nC\r\nC     BEGIN THE LOOP OVER LAYERS\r\nC\r\n  400 ZK = ZREF\r\n      DO 500 K = 1,NLAY\r\nC\r\nC     SET THE LAYER-DEPENDENT VARIABLES\r\nC\r\n      ZK1 = ZK\r\n      IF (ITYPE .NE. PCOMP) GO TO 410\r\n      ZK = ZK1 + CORE(PIDLOC+6+4*K)\r\n      THETA = CORE(PIDLOC   +7+4*K)\r\n      GO TO 430\r\nC\r\n  410 IF (ITYPE .NE. PCOMP1) GO TO 420\r\n      ZK = ZK1 + CORE(PIDLOC+8  )\r\n      THETA = CORE(PIDLOC   +8+K)\r\n      GO TO 430\r\nC\r\n  420 IF (ITYPE .NE. PCOMP2) GO TO 430\r\n      ZK = ZK1 + CORE(PIDLOC+7+2*K)\r\n      THETA = CORE(PIDLOC   +8+2*K)\r\nC\r\nC     LAYER MATERIAL PROPERTIES\r\nC\r\n  430 DO 440 IR = 1,9\r\n      GLAY(IR) = CORE(IPOINT+IR)\r\n  440 CONTINUE\r\nC\r\n      DO 450 IR = 1,3\r\n      ALPHAL(IR) = CORE(IPOINT+13+IR)\r\n  450 CONTINUE\r\nC\r\n      TI = ZK - ZK1\r\n      ZSUBI = (ZK+ZK1)/2.0\r\n      DELTAT = DELTA + ZSUBI*TGRAD\r\nC\r\nC     TRANSFORM THE LAYER MATERIAL PROPERTIES FROM THE FIBER SYSTEM TO\r\nC     THE ELEMENT SYSTEM\r\nC\r\n      THETA = THETA*DEGRAD + THETAE\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANSL(1)  = C2\r\n      TRANSL(2)  = S2\r\n      TRANSL(3)  = C*S\r\n      TRANSL(4)  = S2\r\n      TRANSL(5)  = C2\r\n      TRANSL(6)  =-C*S\r\n      TRANSL(7)  =-2.0*C*S\r\n      TRANSL(8)  = 2.0*C*S\r\n      TRANSL(9)  = C2 - S2\r\nC\r\nC                _            T\r\nC     CALCULATE [G] = [TRANSL] [GLAY][TRANSL]\r\nC\r\n      CALL GMMATS (GLAY(1),3,3,0,  TRANSL(1),3,3,0, GLAYT(1))\r\n      CALL GMMATS (TRANSL(1),3,3,1, GLAYT(1),3,3,0, GBAR(1))\r\nC\r\nC     CALCULATE [ALPHAE] = [TRANSL]X[ALPHA]\r\nC     MODIFY [TRANSL] FOR TRANSFORMATIONS OF ALPHAS\r\nC\r\n      TRANSL(3) = -TRANSL(3)\r\n      TRANSL(6) = -TRANSL(6)\r\n      TRANSL(7) = -TRANSL(7)\r\n      TRANSL(8) = -TRANSL(8)\r\nC\r\n      CALL GMMATS (TRANSL(1),3,3,0, ALPHAL(1),3,1,0, ALPHAE(1))\r\nC\r\nC\r\nC     CALCULATE THERMAL FORCES AND MOMENTS\r\nC\r\n      CALL GMMATS (GBAR(1),3,3,0, ALPHAE(1),3,1,0, GALPHA(1))\r\nC\r\n      DO 460 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR  ) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (NONMEM)  FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)*\r\n     1                            DELTAT*(ZK*ZK-ZK1*ZK1)/2.0\r\n  460 CONTINUE\r\nC\r\nC     CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480\r\n      DELTAT = DELTA - ZSUBI*TGRAD\r\nC\r\n      DO 470 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR  ) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (NONMEM)  FTHERM(IR+3) = FTHERM(IR+3) - GALPHA(IR)*\r\n     1                            DELTAT*(ZK1*ZK1-ZK*ZK)/2.0\r\n  470 CONTINUE\r\n  480 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27\r\nC\r\n  500 CONTINUE\r\nC\r\nC\r\nC     END OF LOOP OVER THE LAYERS\r\nC\r\nC     COMPUTE THERMAL STRAIN VECTOR\r\nC\r\nC                      -1\r\nC     {EPSLNT} = [ABBD]  {FTHERM}\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,ABBD,6,DUM,0,DETERM,ISING,INDX)\r\nC\r\n      DO 520 LL = 1,6\r\n      NN = 6*(LL-1)\r\n      DO 510 MM = 1,6\r\n      STIFF(NN+MM) = ABBD(LL,MM)\r\n  510 CONTINUE\r\n  520 CONTINUE\r\nC\r\n      CALL GMMATS (STIFF(1),6,6,0, FTHERM(1),6,1,0, EPSLNT(1))\r\n      GO TO 700\r\nC\r\n  600 IERR = 1\r\n  700 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sheard.f",
    "content": "      SUBROUTINE SHEARD\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE\r\nC     SHEAR PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE SHEAR PANEL ELEMENT\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC     ECPT( 3)  -   ...                   ...\r\nC     ECPT( 4)  -   ...                   ...\r\nC     ECPT( 5)  -   ...                   ...\r\nC     ECPT( 6)  -  MATID          MATERIAL ID.\r\nC     ECPT( 7)  -  T              THICKNESS\r\nC     ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC     ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC     ECPT(11)  -   ...                      ...\r\nC     ECPT(12)  -   ...                      ...\r\nC     ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC     ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC     ECPT(15)  -   ...                      ...\r\nC     ECPT(16)  -   ...                      ...\r\nC     ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC     ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC     ECPT(19)  -   ...                      ...\r\nC     ECPT(20)  -   ...                      ...\r\nC     ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC     ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC     ECPT(23)  -   ...                      ...\r\nC     ECPT(24)  -   ...                      ...\r\nC     ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          IHEAT,NOGO\r\n      INTEGER          IPART(4),DICT(11),ESTID\r\n      REAL             NU\r\n      DOUBLE PRECISION CEPX,CEPY,EP,ME(144),KOUT(144),MOUT(144),KE(144),\r\n     1                 T,NUC,G,E,C23,VLEFT(6),VRIGHT(6),TI(9),P(4),X1,\r\n     2                 Y1,X2,Y2,X3,Y3,X4,Y4,CEP1,CEP2,TEMP,YP,XP,SA,A,B,\r\n     3                 C,D,TERM,TERM1,TERM2,TERM3,TERM4,TERM5,F,XL13,\r\n     4                 XL24,CON,Z,XL,VD1(3),VD2(3),VKN(3),VK(3),V12(3),\r\n     5                 V41(3),VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4),\r\n     6                 SMALLV(4),A2,A3,A4,A5,B2,B3,B4,B5,C2,C3,C4,C5,\r\n     7                 D2,D3,D4,D5\r\n      DIMENSION        IECPT(100),ECPT(100)\r\n      COMMON /SYSTEM/  KSYSTM(55),IHEAT\r\n      COMMON /EMGPRM/  IXR,JCORE,NCORE,DUM(12),ISMB(3),IPREC,NOGO,HEAT\r\n      COMMON /EMGDIC/  IDM, LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/  IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3),\r\n     1                 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATOUT/  ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      EQUIVALENCE      (ME(1),KE(1)),(KOUT(1),MOUT(1)),\r\n     1                 (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5)\r\n      DATA    IPART /  1,2,3,4 /\r\nC\r\n      NGRIDS = 4\r\n      LDICT  = 5 + NGRIDS\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 400\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      IP      = IPREC\r\n      ISORT   = 0\r\nC\r\nC     CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DICT5  = GSUBE\r\nC\r\n      T   = TSP\r\n      G   = GSP\r\n      E   = ESP\r\n      IF (T*G .EQ. 0.0) GO TO 7770\r\n      C23 = 2.D0/3.D0\r\n      NUC = 1.D0/(1.D0+NU)\r\nC\r\nC     COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I = 1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC     COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE\r\nC     PROJECTED AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL    = DSQRT(VKN(1)**2 + VKN(2)**2  + VKN(3)**2)\r\n      IF (VKL .EQ. 0.) GO TO 7770\r\n      VK(1)  = VKN(1)/VKL\r\n      VK(2)  = VKN(2)/VKL\r\n      VK(3)  = VKN(3)/VKL\r\n      PA     = VKL/2.\r\nC\r\nC     COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I = 1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC     COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI,\r\nC     VJ\r\nC\r\n      V12DK   = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3)\r\n      VP12(1) = V12(1) - V12DK*VK(1)\r\n      VP12(2) = V12(2) - V12DK*VK(2)\r\n      VP12(3) = V12(3) - V12DK*VK(3)\r\n      VP12L   = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2)\r\n      IF (VP12L .EQ. 0.) GO TO 7770\r\n      VI(1) = VP12(1)/VP12L\r\n      VI(2) = VP12(2)/VP12L\r\n      VI(3) = VP12(3)/VP12L\r\n      VJ(1) = VK(2)*VI(3) - VK(3)*VI(2)\r\n      VJ(2) = VK(3)*VI(1) - VK(1)*VI(3)\r\n      VJ(3) = VK(1)*VI(2) - VK(2)*VI(1)\r\nC\r\nC     NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2)\r\n      IF (VJL .EQ. 0.) GO TO 7770\r\n      VJ(1) = VJ(1)/VJL\r\n      VJ(2) = VJ(2)/VJL\r\n      VJ(3) = VJ(3)/VJL\r\n      X1 = 0.\r\n      Y1 = 0.\r\n      X2 = VP12L\r\n      Y2 = 0.\r\n      X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3)\r\n      Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3)\r\n      X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3)\r\n      Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3)\r\nC\r\nC     CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT,\r\nC     CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.) GO TO 7780\r\n      IF (Y4 .LE. 0.) GO TO 7800\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 7790\r\n      IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7810\r\nC\r\nC     TEST FOR PARALLEL EFFECTS.\r\nC\r\n      CEP1 = DABS(Y3-Y4)\r\n      CEPX = DABS(X3-X4)\r\n      TEMP = X3 - X2\r\n      CEP2 = DABS(Y4*TEMP-Y3*X4)\r\n      CEPY = DABS(X4*TEMP+Y4*Y3)\r\n      EP   = 0.01D0\r\n      IF (CEP1 .LT. EP*CEPX) GO TO 30\r\n      IF (CEP2 .LT. EP*CEPY) GO TO 40\r\n      GO TO 70\r\n   30 IF (CEP2 .LT. EP*CEPY) GO TO 50\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      YP   = X2*Y3*Y4/TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4/TEMP\r\n      SA   = (X2 - XP)/YP\r\n      C    = (X1 - XP)/YP\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*\r\n     X       (SA**2+SA*C+C**2))\r\n      GO TO 80\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D    = -.5*(X4/Y4 + (X3-X2)/Y3)\r\n      XQ   = X4 - Y4*(X3-X4)/(Y3-Y4)\r\n      TEMP = 1.D0/DSQRT(1.D0+D**2)\r\n      P(1) = (XQ-X1-D*Y1)*TEMP\r\n      P(2) = (XQ-X2-D*Y2)*TEMP\r\n      P(3) = (XQ-X3-D*Y3)*TEMP\r\n      P(4) = (XQ-X4-D*Y4)*TEMP\r\n      TEMP = XQ - X4\r\n      B    = (TEMP*D+Y4)/(TEMP-Y4*D)\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*(B**2+B*D\r\n     1     + D**2))\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I = 1,4\r\n   60 P(I) = 1.\r\n      D = -.5D0*(X4/Y4+(X3-X2)/Y3+(Y3-Y4)/(X3-X4))\r\n      Z = PA/(2.*G*T)*(1.+2.*D**2*NUC)\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4 - (X3-X4)/(Y3-Y4)*Y4\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      XP   = X2*Y3*X4/TEMP\r\n      YP   = X2*Y3*Y4/TEMP\r\n      XL   = DSQRT((XQ-XP)**2 + YP**2)\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP*(XQ-X1-D*Y1)\r\n      P(2) = TEMP*(XQ-X2-D*Y2)\r\n      P(3) = TEMP*(XQ-X3-D*Y3)\r\n      P(4) = TEMP*(XQ-X4-D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .5D0*P(1)*P(2)*P(3)*P(4)/XL**2\r\n      TERM = (A + B + C23*(A3+B3) + .2D0*(A5+B5))*DLOG(DABS(A+B))\r\n      TERM1= (C + D + C23*(C3+D3) + .2D0*(C5+D5))*DLOG(DABS(C+D))\r\n      TERM2= (B + C + C23*(B3+C3) + .2D0*(B5+C5))*DLOG(DABS(B+C))\r\n      TERM3= (D + A + C23*(D3+A3) + .2D0*(D5+A5))*DLOG(DABS(D+A))\r\n      TERM4= .1D0*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3))\r\n      TERM5= .2D0*((A-C)*(B4-D4) + (B-D)*(A4-C4))\r\n      F    = TEMP*(TERM+TERM1-TERM2-TERM3+TERM4-TERM5)\r\n      Z    = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA))\r\n   80 XL13 = DSQRT(X3**2 + Y3**2)\r\n      XL24 = DSQRT((X4-X2)**2 + Y4**2)\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP    = X4*Y3 - X3*Y4\r\n      AVEC(1) = -.5*X2*Y4*XL13/TEMP\r\n      AVEC(2) =  .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4))\r\n      AVEC(3) = -AVEC(1)\r\n      AVEC(4) = -AVEC(2)\r\nC\r\n      DO 90 I = 1,144\r\n   90 KE(I) = 0.\r\n      DO 230 IPVT = 1,4\r\n      CON = AVEC(IPVT)/(2.*Z)\r\nC\r\nC     COMPUTE THE -VLEFT- VECTOR\r\nC\r\n      IVLBEG = 1\r\n      VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT)\r\n      VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT)\r\n      VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT)\r\n      IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150\r\n      CALL TRANSD (IECPT(4*IPVT+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4))\r\nC\r\nC     COMPUTE THE 6 X 6 -S\r\nC\r\n  150 DO 220 J = 1,4\r\n      IVRBEG = 1\r\n      VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1)\r\n      VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2)\r\n      VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3)\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 170\r\n      CALL TRANSD (IECPT(4*J+5),TI)\r\n      CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4))\r\n      IVRBEG = 4\r\n170   JT = (IPVT-1)*36 + (J-1)*9 + 1\r\n      CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT))\r\n      JT8 = JT + 8\r\n      DO 180 K = JT,JT8\r\n  180 KE(K) = CON*KE(K)*AVEC(J)\r\n 220  CONTINUE\r\n 230  CONTINUE\r\nC\r\nC     NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT\r\nC     FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE\r\nC\r\n      ASSIGN 290 TO K OR M\r\n  275 CONTINUE\r\n      DO 280 I = 1,3\r\n      IP1 = I + 1\r\n      IT  = IPART(I)\r\n      DO 270 J = IP1,4\r\n      JT = IPART(J)\r\n      IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270\r\n      IPART(I) = JT\r\n      IPART(J) = IT\r\n      IT = JT\r\n      GO TO 275\r\n 270  CONTINUE\r\n 280  CONTINUE\r\n      ISORT = 1\r\n      GO TO KORM, (290,420)\r\nC\r\nC     NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT\r\nC\r\nC     KE = (K  ,K  ,K  ,K  ,K  ,...,K  ,K  ,...,K  )\r\nC            11  12  13  14  21      24  31      44\r\nC\r\nC     WHERE  K  IS A 3X3 SUBMATRIX AND  SILS ARE IN GRID POINT ORDER\r\nC             IJ\r\nC\r\nC     AND    *****                  ****\r\nC            * K     K     K     K     *\r\nC            *  L1L1  L1L2  L1L3  L1L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC     KOUT = *  L2L1  L2L2  L2L3  L2L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC            *  L3L1  L3L2  L3L3  L3L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC            *  L4L1  L4L2  L4L3  L4L4 *\r\nC            ****                   ****\r\nC\r\nC     WHERE  KOUT     IS A   3X3    MATRIX AND SILS ARE IN INCREASING\r\nC                LILJ\r\nC     ORDER\r\nC\r\n 290  CONTINUE\r\n      DO 300 I = 1,4\r\n      IS = IPART(I)\r\n      DO 300 J = 1,4\r\n      JS = IPART(J)\r\n      DO 300 K = 1,3\r\n      DO 300 L = 1,3\r\n      IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L\r\n      IKE  = (IS-1)*36 + (JS-1)*9 + (K-1)* 3 + L\r\n  300 KOUT(IOUT) = KE(IKE)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ\r\nC\r\nC\r\n  400 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\n      CALL EMADTQ (6,ME)\r\n      IF (ISORT .EQ. 1) GO TO 420\r\n      ASSIGN 420 TO KORM\r\n      GO TO 275\r\nC\r\nC     RETURN WITH A GRID POINT SORT ARRAY IN IPART\r\nC\r\n  420 DO 440 I = 1,4\r\n      IT = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      MOUT(IJ  ) = ME(IT  )\r\n      MOUT(IJ+1) = ME(IT+1)\r\n  440 MOUT(IJ+2) = ME(IT+2)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) =  7\r\n      DICT5   = 0.\r\nC\r\n      CALL  EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 CALL MESAGE (30,26,IECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 IECPT(2) = 2\r\n      GO TO 7820\r\n 7790 IECPT(2) = 4\r\n      GO TO 7820\r\n 7800 IECPT(2) = 1\r\n      GO TO 7820\r\n 7810 IECPT(2) = 3\r\n 7820 CALL MESAGE (30,27,IECPT(1))\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/shears.f",
    "content": "      SUBROUTINE SHEARS\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE\r\nC     SHEAR PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE SHEAR PANEL ELEMENT\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC     ECPT( 3)  -   ...                   ...\r\nC     ECPT( 4)  -   ...                   ...\r\nC     ECPT( 5)  -   ...                   ...\r\nC     ECPT( 6)  -  MATID          MATERIAL ID.\r\nC     ECPT( 7)  -  T              THICKNESS\r\nC     ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC     ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC     ECPT(11)  -   ...                      ...\r\nC     ECPT(12)  -   ...                      ...\r\nC     ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC     ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC     ECPT(15)  -   ...                      ...\r\nC     ECPT(16)  -   ...                      ...\r\nC     ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC     ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC     ECPT(19)  -   ...                      ...\r\nC     ECPT(20)  -   ...                      ...\r\nC     ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC     ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC     ECPT(23)  -   ...                      ...\r\nC     ECPT(24)  -   ...                      ...\r\nC     ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          IHEAT,NOGO\r\n      INTEGER          IPART(4),DICT(11),ESTID\r\n      REAL             NU,NUC,ME(144),KOUT(144),MOUT(144)\r\n      REAL             KE(144),VLEFT(6),VRIGHT(6),TI(9),P(4),VD1(3),\r\n     1                 VD2(3),VKN(3),VK(3),V12(3),V41(3),VP12(3),VI(3),\r\n     2                 VJ(3),AVEC(4),SMALLU(4),SMALLV(4)\r\n      DIMENSION        IECPT(100),ECPT(100)\r\n      COMMON /SYSTEM/  KSYSTM(55),IHEAT\r\n      COMMON /EMGPRM/  IXR,JCORE,NCORE,DUM(12),ISMB(3),IPREC,NOGO,HEAT\r\n      COMMON /EMGDIC/  IDM, LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/  IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3),\r\n     1                 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATOUT/  ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      EQUIVALENCE      (ME(1),KE(1)),(KOUT(1),MOUT(1)),\r\n     1                 (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5)\r\n      DATA    IPART /  1,2,3,4 /\r\nC\r\n      NGRIDS = 4\r\n      LDICT  = 5 + NGRIDS\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 400\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      IP      = IPREC\r\n      ISORT   = 0\r\nC\r\nC     CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DICT5  = GSUBE\r\nC\r\n      T   = TSP\r\n      G   = GSP\r\n      E   = ESP\r\n      IF (T*G .EQ. 0.0) GO TO 7770\r\n      C23 = 2.0/3.0\r\n      NUC = 1.0/(1.0+NU)\r\nC\r\nC     COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I = 1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC     COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE\r\nC     PROJECTED AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL    = SQRT(VKN(1)**2 + VKN(2)**2  + VKN(3)**2)\r\n      IF (VKL .EQ. 0.) GO TO 7770\r\n      VK(1)  = VKN(1)/VKL\r\n      VK(2)  = VKN(2)/VKL\r\n      VK(3)  = VKN(3)/VKL\r\n      PA     = VKL/2.\r\nC\r\nC     COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I = 1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC     COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI,\r\nC     VJ\r\nC\r\n      V12DK   = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3)\r\n      VP12(1) = V12(1) - V12DK*VK(1)\r\n      VP12(2) = V12(2) - V12DK*VK(2)\r\n      VP12(3) = V12(3) - V12DK*VK(3)\r\n      VP12L   = SQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2)\r\n      IF (VP12L .EQ. 0.) GO TO 7770\r\n      VI(1) = VP12(1)/VP12L\r\n      VI(2) = VP12(2)/VP12L\r\n      VI(3) = VP12(3)/VP12L\r\n      VJ(1) = VK(2)*VI(3) - VK(3)*VI(2)\r\n      VJ(2) = VK(3)*VI(1) - VK(1)*VI(3)\r\n      VJ(3) = VK(1)*VI(2) - VK(2)*VI(1)\r\nC\r\nC     NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = SQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2)\r\n      IF (VJL .EQ. 0.) GO TO 7770\r\n      VJ(1) = VJ(1)/VJL\r\n      VJ(2) = VJ(2)/VJL\r\n      VJ(3) = VJ(3)/VJL\r\n      X1 = 0.\r\n      Y1 = 0.\r\n      X2 = VP12L\r\n      Y2 = 0.\r\n      X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3)\r\n      Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3)\r\n      X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3)\r\n      Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3)\r\nC\r\nC     CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT,\r\nC     CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.) GO TO 7780\r\n      IF (Y4 .LE. 0.) GO TO 7800\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 7790\r\n      IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7810\r\nC\r\nC     TEST FOR PARALLEL EFFECTS.\r\nC\r\n      CEP1 = ABS(Y3-Y4)\r\n      CEPX = ABS(X3-X4)\r\n      TEMP = X3 - X2\r\n      CEP2 = ABS(Y4*TEMP-Y3*X4)\r\n      CEPY = ABS(X4*TEMP+Y4*Y3)\r\n      EP   = 0.010\r\n      IF (CEP1 .LT. EP*CEPX) GO TO 30\r\n      IF (CEP2 .LT. EP*CEPY) GO TO 40\r\n      GO TO 70\r\n   30 IF (CEP2 .LT. EP*CEPY) GO TO 50\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      YP   = X2*Y3*Y4/TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4/TEMP\r\n      SA   = (X2 - XP)/YP\r\n      C    = (X1 - XP)/YP\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*\r\n     X       (SA**2+SA*C+C**2))\r\n      GO TO 80\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D    = -.5*(X4/Y4 + (X3-X2)/Y3)\r\n      XQ   = X4 - Y4*(X3-X4)/(Y3-Y4)\r\n      TEMP = 1.0/SQRT(1.0+D**2)\r\n      P(1) = (XQ-X1-D*Y1)*TEMP\r\n      P(2) = (XQ-X2-D*Y2)*TEMP\r\n      P(3) = (XQ-X3-D*Y3)*TEMP\r\n      P(4) = (XQ-X4-D*Y4)*TEMP\r\n      TEMP = XQ - X4\r\n      B    = (TEMP*D+Y4)/(TEMP-Y4*D)\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*(1.+C23*NUC*(B**2+B*D\r\n     1     + D**2))\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I = 1,4\r\n   60 P(I) = 1.\r\n      D = -.50*(X4/Y4+(X3-X2)/Y3+(Y3-Y4)/(X3-X4))\r\n      Z = PA/(2.*G*T)*(1.+2.*D**2*NUC)\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4 - (X3-X4)/(Y3-Y4)*Y4\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      XP   = X2*Y3*X4/TEMP\r\n      YP   = X2*Y3*Y4/TEMP\r\n      XL   = SQRT((XQ-XP)**2 + YP**2)\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP*(XQ-X1-D*Y1)\r\n      P(2) = TEMP*(XQ-X2-D*Y2)\r\n      P(3) = TEMP*(XQ-X3-D*Y3)\r\n      P(4) = TEMP*(XQ-X4-D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .50*P(1)*P(2)*P(3)*P(4)/XL**2\r\n      TERM = (A + B + C23*(A3+B3) + .20*(A5+B5))*ALOG(ABS(A+B))\r\n      TERM1= (C + D + C23*(C3+D3) + .20*(C5+D5))*ALOG(ABS(C+D))\r\n      TERM2= (B + C + C23*(B3+C3) + .20*(B5+C5))*ALOG(ABS(B+C))\r\n      TERM3= (D + A + C23*(D3+A3) + .20*(D5+A5))*ALOG(ABS(D+A))\r\n      TERM4= .10*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3))\r\n      TERM5= .20*((A-C)*(B4-D4) + (B-D)*(A4-C4))\r\n      F    = TEMP*(TERM+TERM1-TERM2-TERM3+TERM4-TERM5)\r\n      Z    = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA))\r\n   80 XL13 = SQRT(X3**2 + Y3**2)\r\n      XL24 = SQRT((X4-X2)**2 + Y4**2)\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP    = X4*Y3 - X3*Y4\r\n      AVEC(1) = -.5*X2*Y4*XL13/TEMP\r\n      AVEC(2) =  .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4))\r\n      AVEC(3) = -AVEC(1)\r\n      AVEC(4) = -AVEC(2)\r\nC\r\n      DO 90 I = 1,144\r\n   90 KE(I) = 0.\r\n      DO 230 IPVT = 1,4\r\n      CON = AVEC(IPVT)/(2.*Z)\r\nC\r\nC     COMPUTE THE -VLEFT- VECTOR\r\nC\r\n      IVLBEG = 1\r\n      VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT)\r\n      VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT)\r\n      VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT)\r\n      IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150\r\n      CALL TRANSS (IECPT(4*IPVT+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATS (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4))\r\nC\r\nC     COMPUTE THE 6 X 6 -S\r\nC\r\n  150 DO 220 J = 1,4\r\n      IVRBEG = 1\r\n      VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1)\r\n      VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2)\r\n      VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3)\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 170\r\n      CALL TRANSS (IECPT(4*J+5),TI)\r\n      CALL GMMATS (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4))\r\n      IVRBEG = 4\r\n170   JT = (IPVT-1)*36 + (J-1)*9 + 1\r\n      CALL GMMATS (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT))\r\n      JT8 = JT + 8\r\n      DO 180 K = JT,JT8\r\n  180 KE(K) = CON*KE(K)*AVEC(J)\r\n 220  CONTINUE\r\n 230  CONTINUE\r\nC\r\nC     NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT\r\nC     FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE\r\nC\r\n      ASSIGN 290 TO K OR M\r\n  275 CONTINUE\r\n      DO 280 I = 1,3\r\n      IP1 = I + 1\r\n      IT  = IPART(I)\r\n      DO 270 J = IP1,4\r\n      JT = IPART(J)\r\n      IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270\r\n      IPART(I) = JT\r\n      IPART(J) = IT\r\n      IT = JT\r\n      GO TO 275\r\n 270  CONTINUE\r\n 280  CONTINUE\r\n      ISORT = 1\r\n      GO TO KORM, (290,420)\r\nC\r\nC     NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT\r\nC\r\nC     KE = (K  ,K  ,K  ,K  ,K  ,...,K  ,K  ,...,K  )\r\nC            11  12  13  14  21      24  31      44\r\nC\r\nC     WHERE  K  IS A 3X3 SUBMATRIX AND  SILS ARE IN GRID POINT ORDER\r\nC             IJ\r\nC\r\nC     AND    *****                  ****\r\nC            * K     K     K     K     *\r\nC            *  L1L1  L1L2  L1L3  L1L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC     KOUT = *  L2L1  L2L2  L2L3  L2L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC            *  L3L1  L3L2  L3L3  L3L4 *\r\nC            *                         *\r\nC            * K     K     K     K     *\r\nC            *  L4L1  L4L2  L4L3  L4L4 *\r\nC            ****                   ****\r\nC\r\nC     WHERE  KOUT     IS A   3X3    MATRIX AND SILS ARE IN INCREASING\r\nC                LILJ\r\nC     ORDER\r\nC\r\n 290  CONTINUE\r\n      DO 300 I = 1,4\r\n      IS = IPART(I)\r\n      DO 300 J = 1,4\r\n      JS = IPART(J)\r\n      DO 300 K = 1,3\r\n      DO 300 L = 1,3\r\n      IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L\r\n      IKE  = (IS-1)*36 + (JS-1)*9 + (K-1)* 3 + L\r\n  300 KOUT(IOUT) = KE(IKE)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ\r\nC\r\n  400 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\nCWKBR 3/94 CALL EMADTQ (6,ME)\r\n      CALL EMASTQ (6,ME)\r\n      IF (ISORT .EQ. 1) GO TO 420\r\n      ASSIGN 420 TO KORM\r\n      GO TO 275\r\nC\r\nC     RETURN WITH A GRID POINT SORT ARRAY IN IPART\r\nC\r\n  420 DO 440 I = 1,4\r\n      IT = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      MOUT(IJ  ) = ME(IT  )\r\n      MOUT(IJ+1) = ME(IT+1)\r\n  440 MOUT(IJ+2) = ME(IT+2)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) =  7\r\n      DICT5   = 0.\r\nC\r\n      CALL  EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 CALL MESAGE (30,26,IECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 IECPT(2) = 2\r\n      GO TO 7820\r\n 7790 IECPT(2) = 4\r\n      GO TO 7820\r\n 7800 IECPT(2) = 1\r\n      GO TO 7820\r\n 7810 IECPT(2) = 3\r\n 7820 CALL MESAGE (30,27,IECPT(1))\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/shfors.f",
    "content": "      SUBROUTINE SHFORS (NUMPX,ELID,IGRID,THIKNS,G,EPSCSI,QVECI,IDR)\r\nC\r\nC     TO CALCULATE SHELL ELEMENT FORCES FOR A 2-DL FORMULATION BASE.\r\nC\r\nC\r\nC     INPUT :\r\nC           NUMPX  - NUMBER OF EVALUATION POINTS\r\nC           ELID   - ELEMENT ID\r\nC           IGRID  - ARRAY IF EXTERNAL GRID IDS\r\nC           THIKNS - EVALUATION POINT THICKNESSES\r\nC           G      - 6X6 STRESS-STRAIN MATRIX\r\nC           EPSCSI - CORRECTED STRAINS AT EVALUATION POINTS\r\nC           QVECI  - CALCULATED SHEAR FORCES READY FOR OUTPUT\r\nC           IDR    - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S\r\nC          /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS\r\nC\r\nC     OUTPUT:\r\nC            FORCES ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/.\r\nC\r\nC\r\nC     THE FORCE RESULTANT OUTPUT DATA BLOCK, UAI CODE\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     ------------------------------------------------\r\nC        2       GRID POINT NUMBER OR 'CNTR'\r\nC      3 - 10    FORCES AT ELEMENT CENTER POINT\r\nC     ---------- ABOVE DATA REPEATED 3 TIMES\r\nC                FOR GRID POINTS\r\nC\r\nC\r\nC     THE FORCE RESULTANT OUTPUT DATA BLOCK AT ELEMETN CENTER, COSMIC\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     ------------------------------------------------\r\nC      2 - 9     FORCES AT ELEMENT CENTER POINT\r\nC\r\nC\r\n      LOGICAL         GRIDS,VONMS,LAYER,STRCUR,STSREQ,STNREQ,FORREQ\r\n     1,               GRIDSS,VONMSS,LAYERS,COSMIC\r\n      INTEGER         IGRID(1),NFORS(1),IDR(1),ELID\r\n      REAL            THIKNS(1),G(6,6),EPSCSI(6,1),QVECI(2,1),\r\n     1                THICK,THICK2,T3OV12,DFORCE(8),GT(6,6)\r\n      COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100)\r\n      COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER\r\n     1,               GRIDSS,VONMSS,LAYERS\r\n      EQUIVALENCE     (NFORS(1),FORSUL(1))\r\n      DATA    COSMIC/ .TRUE. /\r\nC\r\nC\r\nC     ELEMENT CENTER POINT COMPUTAION ONLY FOR COSMIC\r\nC     IE. CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI\r\nC\r\n      NUMP = NUMPX\r\n      IF (COSMIC) NUMP = 1\r\nC\r\n      NFORS(1)  = ELID\r\nC\r\nC     START THE LOOP ON EVALUATION POINTS\r\nC\r\n      NUMP1 = NUMP - 1\r\n      DO 280 INPLAN = 1,NUMP\r\n      THICK  = THIKNS(INPLAN)\r\n      THICK2 = THICK*THICK\r\n      T3OV12 = THICK2*THICK/12.0\r\nC\r\n      IFORCE = 1\r\n      IF (COSMIC) GO TO 250\r\nC\r\n      IFORCE = (INPLAN-1)*9 + 2\r\n      IF (.NOT.(GRIDS .AND. GRIDSS) .OR. INPLAN.LE.1) GO TO 230\r\n      DO 200 INPTMP = 1,NUMP1\r\n      IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 220\r\n  200 CONTINUE\r\n  220 CONTINUE\r\n      IFORCE = INPTMP*9 + 2\r\n      NFORS(IFORCE) = IGRID(INPLAN)\r\n      GO TO 240\r\n  230 NFORS(IFORCE) = INPLAN - 1\r\n  240 IF (INPLAN .EQ. 1) NFORS(IFORCE) = IGRID(INPLAN)\r\nC\r\nC     MODIFY [G], THEN CALCULATE FORCES AND MOMENTS\r\nC\r\n  250 DO 260 IG = 1,3\r\n      DO 260 JG = 1,3\r\n      GT(IG  ,JG  ) = THICK *G(IG  ,JG  )\r\n      GT(IG+3,JG  ) = THICK2*G(IG+3,JG  )\r\n      GT(IG  ,JG+3) = THICK2*G(IG  ,JG+3)\r\n      GT(IG+3,JG+3) = T3OV12*G(IG+3,JG+3)\r\n  260 CONTINUE\r\n      CALL GMMATS (GT,6,6,0, EPSCSI(1,INPLAN),6,1,0, DFORCE(1))\r\nC\r\nC     OUTPUT QX AND QY (WE HAVE CALCULATED QY AND QX)\r\nC\r\n      DFORCE(7) = QVECI(2,INPLAN)\r\n      DFORCE(8) = QVECI(1,INPLAN)\r\nC\r\nC     SHIP OUT\r\nC\r\n      DO 270 IFOR = 1,8\r\n      FORSUL(IFORCE+IFOR) = DFORCE(IFOR)\r\n  270 CONTINUE\r\n  280 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shgmgd.f",
    "content": "      SUBROUTINE SHGMGD (*,ELID,TEM,MID,TS,NOALFA,G,RHO,GSUBE,TSUB0,\r\n     1                   EGNOR,ALPHA)\r\nC\r\nC     MATERIAL PROPERTY G-MATRICES GENERATOR FOR SHELL ELEMENTS\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     INPUT :\r\nC           ELID   - ELEMENT ID\r\nC           TEM    - 3X3 TRANSFORMATION BETWEEN ELEMENT AND MATERIAL\r\nC                    COORDINATE SYSTEMS\r\nC           MID    - ARRAY OF LENGTH 4, CONTAINS MATERIAL ID'S\r\nC           TS     - EQUIVALENT SHEAR THICKNESS\r\nC           NOALFA - LOGICAL TO REQUEST OR NOT REQUEST THERMAL EXPANSION\r\nC                    COEFFICIENTS\r\nC\r\nC     OUTPUT:\r\nC           G      - ARRAY OF LENGTH 36 (FOUR 3X3), CONATINS MATERIAL\r\nC                    PROPERTIES IN ELEMENT COORD. SYSTEM\r\nC           RHO    - MASS DENSITY FROM MEMBRANE MATERIAL\r\nC           GSUBE  - DAMPING COEFFICIENT FROM MEMBRANE OR BENDING\r\nC                    MATERIALS\r\nC           TSUB0  - REFERENCE TEMPERATURE\r\nC           EGNOR  - ARRAY OF PSEUDO E'S AND G'S FOR SHEAR FACTOR\r\nC                    CALCULATIONS IN BENDING\r\nC           ALPHA  - ARRAY OF THERMAL EXPANSION COEFFICIENTS\r\nC\r\nC     NOTES:\r\nC           1- THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX USING\r\nC              THE OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/).\r\nC              /MATOUT/ IS IN MAT2 FORMAT IF MAT1 AND/OR MAT2 ARE USED\r\nC              /MATOUT/ IS IN MAT8 FORMAT IF MAT8 CARD IS REQUESTED.\r\nC           2- ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC PROPERTY TYPES\r\nC              ARE SUPPORTED.\r\nC           3- PROPERTIES FOR MEMBRANE, BENDING, SHEAR FLEXIBILITY, AND\r\nC              MEMBRANE/BENDING COUPLING ARE PROCESSED.\r\nC           4- NON-STANDARD RETURN IS TAKEN WHEN THE MATERIAL FOR SHEAR\r\nC              FLEXIBILITY IS NOT PROPERLY DEFINED.\r\nC           5- SOME OF THE CONTENTS OF /MATIN/ MUST BE DEFINED PRIOR TO\r\nC              A CALL TO THIS ROUTINE.\r\nC           6- CONTENTS OF /TERMS/, MID, AND TS MAY BE CHANGED IN THIS\r\nC              ROUTINE.\r\nC\r\nC\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOALFA\r\n      INTEGER          MID(4),INDEX(3,3),ELID,NAME(2)\r\n      REAL             NU12,NU21,MATSET\r\n      DOUBLE PRECISION G(36),TEM(9),U(9),GT(9),EGNOR(4),DN12,DN21,PS1,\r\n     1                 PS2,RHO,TS,CONST,ALPHA(6),TALPHA(6),DETU,BDUM\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHOX,ALPH1,ALPH2,ALPH12,\r\n     1                 TREF,GE,ST,SC,SS,E,DUM(8),MATSET\r\nC                      MAT8 FORMAT...\r\n      EQUIVALENCE      (E1 ,G11),(NU12,G12),(E2,G13),(G2Z,G23),\r\n     1                 (G1Z,G33),(G12X,G22)\r\nC    2,                (GE ,E  ),(T0,ALPH12)\r\nC             EQUIV    (MATOUT(1),G11))\r\n      DATA    NAME  /  4HSHGM, 4HGD   /\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR:\r\nC     ISOTROPIC   MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      DO 10 IG = 1,36\r\n   10 G(IG) = 0.0D0\r\n      DO 20 IG = 1,4\r\n   20 EGNOR(IG) = 0.0D0\r\n      IF (NOALFA) GO TO 40\r\n      DO 30 IG = 1,6\r\n      ALPHA(IG) = 0.0D0\r\n   30 CONTINUE\r\nC\r\n   40 RHO   = 0.0D0\r\n      GSUBE = 0.0\r\n      TSUB0 = 0.0\r\n      INFLAG= 12\r\n      IGOBK = 0\r\n      IT0   = 0\r\nC\r\nC     BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID. FOR SHEAR\r\nC     FLEXIBILITY MATERIAL, DEFAULT TO THE BENDING MATERIAL IF BENDING\r\nC     IS PRESENT.\r\nC     IF SHEAR MATERIAL IS PRESENT, BUT YIELDS ZEROES, GO BACK AND RESET\r\nC     IT TO BENDING MATERIAL.\r\nC\r\n      M = 0\r\n  100 LPOINT = M*9\r\n      M = M + 1\r\n      IF (M .GT. 4) GO TO 600\r\n      IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 610\r\n      MATID = MID(M)\r\n      IF (MATID.EQ.0 .AND. M.NE.3) GO TO 100\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 100\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2)\r\nC\r\n      IF (M-1) 130,120,110\r\n  110 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 130\r\n  120 CALL MAT (ELID)\r\n      TMTSET = MATSET\r\n      IF (MATSET .EQ. 8.0) TMTSET = 3.0\r\n      MTYPE = IFIX(TMTSET+0.05) - 2\r\nC\r\nC     SET THE MISC ITEMS\r\nC\r\n  130 IF (MEMBRN .AND. M.EQ.1) RHO = DBLE(RHOX)\r\n      IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 140\r\n      GSUBE = GE\r\n      IF (MTYPE .GT. 0) GSUBE = E\r\n  140 IF (IT0 .GT. 0) GO TO 150\r\n      IT0   = 1\r\n      TSUB0 = TREF\r\n      IF (MTYPE .GT. 0) TSUB0 = ALPH12\r\nC\r\nC     BRANCH ON MATERIAL TYPE\r\nC\r\n  150 IF (MTYPE) 200, 210, 250\r\nC               MAT1,MAT2,MAT8\r\nC\r\nC\r\nC     ISOTROPIC  MATERIALS (MAT1)\r\nC     ---------------------------\r\nC\r\nC 200 IF (M .NE. 3) GO TO 205\r\n  200 IF (M .NE. 3) GO TO 220\r\nC\r\nC     G(LPOINT+1) = MATOUT(3)    <== G13, SHOULD BE MATOUT(6) <== G33\r\nC     G(LPOINT+4) = G(LPOINT+1)\r\nC     IF (G(LPOINT+1).EQ.0.0 .AND. SHRFLX) GO TO 300\r\nC\r\n      G(LPOINT+1) = G33\r\n      G(LPOINT+4) = G33\r\n      IF (G33.EQ.0.0 .AND. SHRFLX) GO TO 300\r\n      GO TO 400\r\nC\r\nC     ACCORDING TO Q4GMGD, SHOULD GO TO 220 NEXT\r\nC\r\nC 205 G(LPOINT+1) = G22\r\nC     G(LPOINT+2) = G12*G22\r\nC     G(LPOINT+4) = G12*G22\r\nC     G(LPOINT+5) = G22\r\nC     G(LPOINT+0) = G13         <== G13,  SHOULD IT BE G33 ??\r\nC     GO TO 400\r\nC\r\nC     ANISOTROPIC  MATERIALS (MAT2)\r\nC     -----------------------------\r\nC\r\n  210 IF (M .EQ. 3) GO TO 230\r\n  220 G(LPOINT+1) = G11\r\n      G(LPOINT+2) = G12\r\n      G(LPOINT+3) = G13\r\n      G(LPOINT+4) = G12\r\n      G(LPOINT+5) = G22\r\n      G(LPOINT+6) = G23\r\n      G(LPOINT+7) = G13\r\n      G(LPOINT+8) = G23\r\n      G(LPOINT+9) = G33\r\n      GO TO 400\r\nC\r\n  230 IF (SHRFLX) GO TO 240\r\n      IF (G11.EQ.0.0 .OR. G22.EQ.0.0) GO TO 400\r\n      DN21  = G12/G11\r\n      DN12  = G12/G22\r\n      CONST = DN21*DN12\r\n      IF (CONST .LT. 0.0D0) GO TO 400\r\n      PS1 = DBLE(G11)*(1.0D0-CONST)\r\n      PS2 = DBLE(G22)*(1.0D0-CONST)\r\n      IF (CONST .GT. 0.0D0) CONST = DSQRT(CONST)\r\n      CONST = 2.0D0*(1.0D0+CONST)\r\n      G(LPOINT+1) = PS1/CONST\r\n      G(LPOINT+4) = PS2/CONST\r\n      GO TO 400\r\nC\r\n  240 G(LPOINT+1) = G11\r\n      G(LPOINT+2) = G12\r\n      G(LPOINT+3) = G12\r\n      G(LPOINT+4) = G22\r\n      IF (G33 .NE. 0.0) GO TO 300\r\n      GO TO 400\r\nC\r\nC     ORTHOTROPIC MATERIALS (MAT8)\r\nC     ----------------------------\r\nC\r\n  250 IF (M  .EQ.   3) GO TO 260\r\n      IF (E1 .EQ. 0.0) GO TO 400\r\n      NU21 = NU12*E2/E1\r\n      CONST= 1.0D0 - DBLE(NU21*NU12)\r\n      IF (CONST .LE. 0.0D0) GO TO 400\r\n      G(LPOINT+1) = E1/CONST\r\n      G(LPOINT+2) = NU12*E2/CONST\r\n      G(LPOINT+4) = G(LPOINT+2)\r\n      G(LPOINT+5) = E2/CONST\r\n      G(LPOINT+9) = G12X\r\n      GO TO 400\r\nC\r\n  260 IF (SHRFLX) GO TO 270\r\n      IF (E1 .EQ. 0.0) GO TO 400\r\n      NU21  = NU12*E2/E1\r\n      CONST = NU21*NU12\r\n      IF (CONST .LE. 0.0D0) GO TO 400\r\n      CONST = DSQRT(CONST)\r\n      CONST = 2.0D0*(1.0D0+CONST)\r\n      G(LPOINT+1) = DBLE(E1)/CONST\r\n      G(LPOINT+4) = DBLE(E2)/CONST\r\n      GO TO 400\r\nC\r\nC 270 G(LPOINT+1) = MATOUT(5)        <== COSMIC (5) & (6) INTERCHANGED\r\nC     G(LPOINT+4) = MATOUT(6)\r\n  270 G(LPOINT+1) = G1Z\r\n      G(LPOINT+4) = G2Z\r\n      IF (G1Z.EQ.0.0 .AND. G2Z.EQ.0.0) GO TO 300\r\n      GO TO 400\r\nC\r\nC     BAD SHEAR MATERIAL\r\nC\r\n  300 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 400\r\n      RETURN 1\r\nC\r\nC     TRANSFORM NON-ISOTROPIC MATERIALS\r\nC\r\n  400 IF (MTYPE .LT. 0) GO TO 430\r\n      IF (M     .EQ. 3) GO TO 410\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(4)*TEM(4)\r\n      U(3) = TEM(1)*TEM(4)\r\n      U(4) = TEM(2)*TEM(2)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(2)*TEM(5)\r\n      U(7) = TEM(1)*TEM(2)*2.0D0\r\n      U(8) = TEM(4)*TEM(5)*2.0D0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L    = 3\r\n      GO TO 420\r\nC\r\n  410 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8)\r\n      U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3)\r\n      U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6)\r\n      U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7)\r\n      L    = 2\r\nC\r\n  420 CALL GMMATD ( U(1),L,L,1, G(LPOINT+1),L,L,0, GT(1))\r\n      CALL GMMATD (GT(1),L,L,0, U(1),L,L,0,  G(LPOINT+1))\r\nC\r\nC     GET THE THERMAL EXPANSION COEFFICIENTS, IF NEEDED\r\nC\r\n  430 IF (NOALFA .OR. M.GT.2) GO TO 100\r\n      MORB = (M-1)*3\r\n      IF (MTYPE) 500, 510, 520\r\nC               MAT1,MAT2,MAT8\r\nC\r\nC     MAT1\r\nC\r\n  500 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH1\r\n      ALPHA(MORB+3) = 0.0D0\r\n      GO TO 100\r\nC\r\nC     MAT2\r\nC\r\n  510 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH2\r\n      ALPHA(MORB+3) = ALPH12\r\n      GO TO 530\r\nC\r\nC     MAT8\r\nC\r\n  520 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH2\r\n      ALPHA(MORB+3) = 0.0D0\r\nC\r\nC     TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA.\r\nC     THE ALPHAS NEED TO BE PREMULTIPLIED BY [U] INVERSE.\r\nC\r\n  530 DO 540 IG = 1,3\r\n  540 TALPHA(IG+MORB) = ALPHA(IG+MORB)\r\n      MORB = MORB + 1\r\n      CALL INVERD (3,U,3,BDUM,0,DETU,ISNGU,INDEX)\r\n      CALL GMMATD (U,3,3,0, TALPHA(MORB),3,1,0, ALPHA(MORB))\r\n      GO TO 100\r\nC\r\nC\r\nC     LOOP IS DONE, CHECK FOR ALL ZEROES FOR SHEAR MATERIAL\r\nC\r\n  600 IF (G(19).NE.0.0D0 .OR. G(20).NE.0.0D0 .OR. G(21).NE.0.0D0 .OR.\r\n     1    G(22).NE.0.0D0) GO TO 610\r\n      IGOBK  = 1\r\n      M      = 2\r\n      MID(3) = 0\r\n      SHRFLX = .FALSE.\r\n      TS     = 0.833333333D0\r\nC              0.833333333D0 = 5.0D0/6.0D0\r\n      GO TO 100\r\nC\r\nC     SAVE PSEUDO E'S AND G'S FOR SHEAR FACTOR CALCULATIONS\r\nC\r\n  610 IF (.NOT.BENDNG) GO TO 620\r\n      EGNOR(1) = G(10)\r\n      EGNOR(2) = G(14)\r\n      EGNOR(3) = G(19)\r\n      EGNOR(4) = G(22)\r\nC\r\n  620 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shgmgs.f",
    "content": "      SUBROUTINE SHGMGS (*,ELID,TEM,MID,TS,NOALFA,G,RHO,GSUBE,TSUB0,\r\n     1                   EGNOR,ALPHA)\r\nC\r\nC     MATERIAL PROPERTY G-MATRICES GENERATOR FOR SHELL ELEMENTS\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     INPUT :\r\nC           ELID   - ELEMENT ID\r\nC           TEM    - 3X3 TRANSFORMATION BETWEEN ELEMENT AND MATERIAL\r\nC                    COORDINATE SYSTEMS\r\nC           MID    - ARRAY OF LENGTH 4, CONTAINS MATERIAL ID'S\r\nC           TS     - EQUIVALENT SHEAR THICKNESS\r\nC           NOALFA - LOGICAL TO REQUEST OR NOT REQUEST THERMAL EXPANSION\r\nC                    COEFFICIENTS\r\nC\r\nC     OUTPUT:\r\nC           G      - ARRAY OF LENGTH 36 (FOUR 3X3), CONATINS MATERIAL\r\nC                    PROPERTIES IN ELEMENT COORD. SYSTEM\r\nC           RHO    - MASS DENSITY FROM MEMBRANE MATERIAL\r\nC           GSUBE  - DAMPING COEFFICIENT FROM MEMBRANE OR BENDING\r\nC                    MATERIALS\r\nC           TSUB0  - REFERENCE TEMPERATURE\r\nC           EGNOR  - ARRAY OF PSEUDO E'S AND G'S FOR SHEAR FACTOR\r\nC                    CALCULATIONS IN BENDING\r\nC           ALPHA  - ARRAY OF THERMAL EXPANSION COEFFICIENTS\r\nC\r\nC     NOTES:\r\nC           1- THIS ROUTINE BUILDS THE MATERIAL PROPERTY MATRIX USING\r\nC              THE OUTPUT OF SUBROUTINE 'MAT' (/MATOUT/).\r\nC              /MATOUT/ IS IN MAT2 FORMAT IF MAT1 AND/OR MAT2 ARE USED\r\nC              /MATOUT/ IS IN MAT8 FORMAT IF MAT8 CARD IS REQUESTED.\r\nC           2- ISOTROPIC, ORTHOTROPIC, AND ANISOTROPIC PROPERTY TYPES\r\nC              ARE SUPPORTED.\r\nC           3- PROPERTIES FOR MEMBRANE, BENDING, SHEAR FLEXIBILITY, AND\r\nC              MEMBRANE/BENDING COUPLING ARE PROCESSED.\r\nC           4- NON-STANDARD RETURN IS TAKEN WHEN THE MATERIAL FOR SHEAR\r\nC              FLEXIBILITY IS NOT PROPERLY DEFINED.\r\nC           5- SOME OF THE CONTENTS OF /MATIN/ MUST BE DEFINED PRIOR TO\r\nC              A CALL TO THIS ROUTINE.\r\nC           6- CONTENTS OF /TERMS/, MID, AND TS MAY BE CHANGED IN THIS\r\nC              ROUTINE.\r\nC\r\nC\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOALFA\r\n      INTEGER          MID(4),INDEX(3,3),ELID,NAME(2)\r\n      REAL             NU12,NU21,MATSET\r\n      REAL             G(36),TEM(9),U(9),GT(9),EGNOR(4),DN12,DN21,PS1,\r\n     1                 PS2,RHO,TS,CONST,ALPHA(6),TALPHA(6),DETU,BDUM\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /MATOUT/  G11,G12,G13,G22,G23,G33,RHOX,ALPH1,ALPH2,ALPH12,\r\n     1                 TREF,GE,ST,SC,SS,E,DUM(8),MATSET\r\nC                      MAT8 FORMAT...\r\n      EQUIVALENCE      (E1 ,G11),(NU12,G12),(E2,G13),(G2Z,G23),\r\n     1                 (G1Z,G33),(G12X,G22)\r\nC    2,                (GE  ,E  ),(T0,ALPH12)\r\nC             EQUIV    (MATOUT(1),G11))\r\n      DATA    NAME  /  4HSHGM,4HGS    /\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR:\r\nC     ISOTROPIC   MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      DO 10 IG = 1,36\r\n   10 G(IG) = 0.0\r\n      DO 20 IG = 1,4\r\n   20 EGNOR(IG) = 0.0\r\n      IF (NOALFA) GO TO 40\r\n      DO 30 IG = 1,6\r\n      ALPHA(IG) = 0.0\r\n   30 CONTINUE\r\nC\r\n   40 RHO   = 0.0\r\n      GSUBE = 0.0\r\n      TSUB0 = 0.0\r\n      INFLAG= 12\r\n      IGOBK = 0\r\n      IT0   = 0\r\nC\r\nC     BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID. FOR SHEAR\r\nC     FLEXIBILITY MATERIAL, DEFAULT TO THE BENDING MATERIAL IF BENDING\r\nC     IS PRESENT.\r\nC     IF SHEAR MATERIAL IS PRESENT, BUT YIELDS ZEROES, GO BACK AND RESET\r\nC     IT TO BENDING MATERIAL.\r\nC\r\n      M = 0\r\n  100 LPOINT = M*9\r\n      M = M + 1\r\n      IF (M .GT. 4) GO TO 600\r\n      IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 610\r\n      MATID = MID(M)\r\n      IF (MATID.EQ.0 .AND. M.NE.3) GO TO 100\r\n      IF (MATID.EQ.0 .AND. M.EQ.3. AND. .NOT.BENDNG) GO TO 100\r\n      IF (MATID.EQ.0 .AND. M.EQ.3. AND. BENDNG) MATID = MID(2)\r\nC\r\n      IF (M-1) 130,120,110\r\n  110 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 130\r\n  120 CALL MAT (ELID)\r\n      TMTSET = MATSET\r\n      IF (MATSET .EQ. 8.0) TMTSET = 3.0\r\n      MTYPE = IFIX(TMTSET+0.05) - 2\r\nC\r\nC     SET THE MISC ITEMS\r\nC\r\n  130 IF (MEMBRN .AND. M.EQ.1) RHO = RHOX\r\n      IF (MEMBRN .AND. M.NE.1 .OR. .NOT.MEMBRN .AND. M.NE.2) GO TO 140\r\n      GSUBE = GE\r\n      IF (MTYPE .GT. 0) GSUBE = E\r\n  140 IF (IT0 .GT. 0) GO TO 150\r\n      IT0   = 1\r\n      TSUB0 = TREF\r\n      IF (MTYPE .GT. 0) TSUB0 = ALPH12\r\nC\r\nC     BRANCH ON MATERIAL TYPE\r\nC\r\n  150 IF (MTYPE) 200, 210, 250\r\nC               MAT1,MAT2,MAT8\r\nC\r\nC\r\nC     ISOTROPIC  MATERIALS (MAT1)\r\nC     ---------------------------\r\nC\r\nC 200 IF (M .NE. 3) GO TO 205\r\n  200 IF (M .NE. 3) GO TO 220\r\nC\r\nC     G(LPOINT+1) = MATOUT(3)   <== G13, SHOULD BE MATOUT(6) <== G33\r\nC     G(LPOINT+4) = G(LPOINT+1)\r\nC     IF (G(LPOINT+1).EQ.0.0 .AND. SHRFLX) GO TO 300\r\nC\r\n      G(LPOINT+1) = G33\r\n      G(LPOINT+4) = G33\r\n      IF (G33.EQ.0.0 .AND. SHRFLX) GO TO 300\r\n      GO TO 400\r\nC\r\nC     ACCORDING TO Q4GMGS, SHOULD TO TO 220 NEXT\r\nC\r\nC 205 G(LPOINT+1) = G22\r\nC     G(LPOINT+2) = G12*G22\r\nC     G(LPOINT+4) = G12*G22\r\nC     G(LPOINT+5) = G22\r\nC     G(LPOINT+9) = G13         <== G13,  SHOULD IT BE G33 ??\r\nC     GO TO 400\r\nC\r\nC     ANISOTROPIC  MATERIALS (MAT2)\r\nC     -----------------------------\r\nC\r\n  210 IF (M .EQ. 3) GO TO 230\r\n  220 G(LPOINT+1) = G11\r\n      G(LPOINT+2) = G12\r\n      G(LPOINT+3) = G13\r\n      G(LPOINT+4) = G12\r\n      G(LPOINT+5) = G22\r\n      G(LPOINT+6) = G23\r\n      G(LPOINT+7) = G13\r\n      G(LPOINT+8) = G23\r\n      G(LPOINT+9) = G33\r\n      GO TO 400\r\nC\r\n  230 IF (SHRFLX) GO TO 240\r\n      IF (G11.EQ.0.0 .OR. G22.EQ.0.0) GO TO 400\r\n      DN21  = G12/G11\r\n      DN12  = G12/G22\r\n      CONST = DN21*DN12\r\n      IF (CONST .LT. 0.0) GO TO 400\r\n      PS1 = G11*(1.0-CONST)\r\n      PS2 = G22*(1.0-CONST)\r\n      IF (CONST .GT. 0.0) CONST = SQRT(CONST)\r\n      CONST = 2.0*(1.0+CONST)\r\n      G(LPOINT+1) = PS1/CONST\r\n      G(LPOINT+4) = PS2/CONST\r\n      GO TO 400\r\nC\r\n  240 G(LPOINT+1) = G11\r\n      G(LPOINT+2) = G12\r\n      G(LPOINT+3) = G12\r\n      G(LPOINT+4) = G22\r\n      IF (G33 .NE. 0.0) GO TO 300\r\n      GO TO 400\r\nC\r\nC     ORTHOTROPIC MATERIALS (MAT8)\r\nC     ----------------------------\r\nC\r\n  250 IF (M  .EQ.   3) GO TO 260\r\n      IF (E1 .EQ. 0.0) GO TO 400\r\n      NU21 = NU12*E2/E1\r\n      CONST= 1.0 - NU21*NU12\r\n      IF (CONST .LE. 0.0) GO TO 400\r\n      G(LPOINT+1) = E1/CONST\r\n      G(LPOINT+2) = NU12*E2/CONST\r\n      G(LPOINT+4) = G(LPOINT+2)\r\n      G(LPOINT+5) = E2/CONST\r\n      G(LPOINT+9) = G12X\r\n      GO TO 400\r\nC\r\n  260 IF (SHRFLX) GO TO 270\r\n      IF (E1 .EQ. 0.0) GO TO 400\r\n      NU21  = NU12*E2/E1\r\n      CONST = NU21*NU12\r\n      IF (CONST .LE. 0.0) GO TO 400\r\n      CONST = SQRT(CONST)\r\n      CONST = 2.0*(1.0+CONST)\r\n      G(LPOINT+1) = E1/CONST\r\n      G(LPOINT+4) = E2/CONST\r\n      GO TO 400\r\nC\r\nC 270 G(LPOINT+1) = MATOUT(5)         <== COSMIC (5) & (6) INTERCHANGED\r\nC     G(LPOINT+4) = MATOUT(6)\r\n  270 G(LPOINT+1) = G1Z\r\n      G(LPOINT+4) = G2Z\r\n      IF (G1Z.EQ.0.0 .AND. G2Z.EQ.0.0) GO TO 300\r\n      GO TO 400\r\nC\r\nC     BAD SHEAR MATERIAL\r\nC\r\n  300 IF (.NOT.SHRFLX .AND. BENDNG) GO TO 400\r\n      RETURN 1\r\nC\r\nC     TRANSFORM NON-ISOTROPIC MATERIALS\r\nC\r\n  400 IF (MTYPE .LT. 0) GO TO 430\r\n      IF (M     .EQ. 3) GO TO 410\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(4)*TEM(4)\r\n      U(3) = TEM(1)*TEM(4)\r\n      U(4) = TEM(2)*TEM(2)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(2)*TEM(5)\r\n      U(7) = TEM(1)*TEM(2)*2.0\r\n      U(8) = TEM(4)*TEM(5)*2.0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L    = 3\r\n      GO TO 420\r\nC\r\n  410 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8)\r\n      U(2) = TEM(2)*TEM(9) + TEM(8)*TEM(3)\r\n      U(3) = TEM(4)*TEM(9) + TEM(7)*TEM(6)\r\n      U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7)\r\n      L    = 2\r\nC\r\n  420 CALL GMMATS ( U(1),L,L,1, G(LPOINT+1),L,L,0, GT(1))\r\n      CALL GMMATS (GT(1),L,L,0, U(1),L,L,0,  G(LPOINT+1))\r\nC\r\nC     GET THE THERMAL EXPANSION COEFFICIENTS, IF NEEDED\r\nC\r\n  430 IF (NOALFA .OR. M.GT.2) GO TO 100\r\n      MORB = (M-1)*3\r\n      IF (MTYPE) 500 ,510 ,520\r\nC                MAT1,MAT2,MAT8\r\nC\r\nC     MAT1\r\nC\r\n  500 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH1\r\n      ALPHA(MORB+3) = 0.0\r\n      GO TO 100\r\nC\r\nC     MAT2\r\nC\r\n  510 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH2\r\n      ALPHA(MORB+3) = ALPH12\r\n      GO TO 530\r\nC\r\nC     MAT8\r\nC\r\n  520 ALPHA(MORB+1) = ALPH1\r\n      ALPHA(MORB+2) = ALPH2\r\n      ALPHA(MORB+3) = 0.0\r\nC\r\nC     TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA.\r\nC     THE ALPHAS NEED TO BE PREMULTIPLIED BY [U] INVERSE.\r\nC\r\n  530 DO 540 IG = 1,3\r\n  540 TALPHA(IG+MORB) = ALPHA(IG+MORB)\r\n      MORB = MORB + 1\r\n      CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX)\r\n      CALL GMMATS (U,3,3,0, TALPHA(MORB),3,1,0, ALPHA(MORB))\r\n      GO TO 100\r\nC\r\nC\r\nC     LOOP IS DONE, CHECK FOR ALL ZEROES FOR SHEAR MATERIAL\r\nC\r\n  600 IF (G(19).NE.0.0 .OR. G(20).NE.0.0 .OR. G(21).NE.0.0 .OR.\r\n     1    G(22).NE.0.0) GO TO 610\r\n      IGOBK  = 1\r\n      M      = 2\r\n      MID(3) = 0\r\n      SHRFLX = .FALSE.\r\n      TS     = 0.833333333\r\nC              0.833333333 = 5.0/6.0\r\n      GO TO 100\r\nC\r\nC     SAVE PSEUDO E'S AND G'S FOR SHEAR FACTOR CALCULATIONS\r\nC\r\n  610 IF (.NOT.BENDNG) GO TO 620\r\n      EGNOR(1) = G(10)\r\n      EGNOR(2) = G(14)\r\n      EGNOR(3) = G(19)\r\n      EGNOR(4) = G(22)\r\nC\r\n  620 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shhmgd.f",
    "content": "      SUBROUTINE SHHMGD (*,ELID,MM,SIL,BGPDT,GPTH,ELTH,GPTEMP,FLAG,MID,\r\n     1                   MFLAG,MCID,THETA,TEMP,NNODE,NSIL,DELTAP,HTCON,\r\n     2                   HTCAP)\r\nC\r\nC     SHELL ELEMENT HEAT MATRIX GENERATOR FOR QUAD8 AND TRIA6 ELEMENTS\r\nC\r\nC          ********************************************************\r\nC          *                                                      *\r\nC          *  PRESENTLY COSMIC/NASTRAN DOES NOT USE THIS ROUTINE  *\r\nC          *                                                      *\r\nC          ********************************************************\r\nC\r\nC     PERFORMS ONE OF THE FOLLOWING FOR THE ISOPARAMETRIC SHELL ELEMENTS\r\nC\r\nC     FLAG =1  CALCULATE THE CONDUCTIVITY AND CAPACITY MATRICES.\r\nC     FLAG =2  CALCULATE THE DELTA-LOAD VECTOR FOR NONLINEAR HEAT.\r\nC\r\nC     INPUT :\r\nC           ELID  - ELEMENT ID\r\nC           MM    - MAXIMUM NO. OF NODES FOR THE ELEMENT\r\nC           SIL   - SIL ARRAY FROM CONNECTION\r\nC           BGPDT - BGPDT ARRAY FROM BGPDT\r\nC           GPTH  - GRID POINT THICKNESSES FROM CONNECTION\r\nC           ELTH  - ELEMENT THICKNESS FROM PROPERTY\r\nC           GPTEMP- GRID TEMPERATURES FROM GPTT\r\nC           FLAG  - OPTION INDICATOR\r\nC           MID   - MATERIAL ID\r\nC           MFLAG - MATERIAL FLAG\r\nC           MCID  - MATERIAL CID, IF MFLAG IS 1\r\nC           THETA - MATERIAL ANGLE, IF MFLAG IS 0\r\nC           TEMP  - TEMPERATURE VALUES (FOR NONLINEAR)\r\nC     OUTPUT:\r\nC           NSI L - REORDERED SIL ARRAY\r\nC           DELTAP- DELTA-LOAD VECTOR\r\nC           HTCON - CONDUCTIVITY MATRIX\r\nC           HTCAP - CAPACITY MATRIX\r\nC\r\n      INTEGER          SIL(8),NSIL(8),ELID,FLAG,IORDER(8),IORDRN(8),\r\n     1                 MMN(8),NECPT(4)\r\n      REAL             TEMP(1),GPTEMP(1),BGPDT(4,8),GPTH(8),BGPDM(3,8),\r\n     1                 ECPT(4),KHEAT\r\n      DOUBLE PRECISION XI,ETA,WX,WE,THK,POINTX(6),POINTE(2),WEITX(6),\r\n     1                 WEITE(2),WEITC,DETJ,SHP(10),VOLI,HTCON(1),\r\n     2                 HTCAP(1),TMPR(8),HTFLX(24),BTERMS(32),TEB(9),\r\n     3                 TUB(9),TBM(9),TEM(9),GT(4),GI(4),CENTE(3),AVGTHK,\r\n     4                 EPS1,XM,YM,THETAM,PI,TWOPI,RADDEG,DEGRAD,\r\n     5                 EGPDT(4,8),GPNORM(4,8),EPNORM(4,8),DGPTH(8),\r\n     6                 TIE(9),DELTAP(1),TCE(63)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /HMTOUT/  KHEAT(6), HTCP\r\n      COMMON /CONDAD/  PI,TWOPI,RADDEG,DEGRAD\r\n      EQUIVALENCE      (ECPT(1),NECPT(1))\r\n      DATA    EPS1  /  1.0D-11 /\r\nC\r\nC\r\nC     DOUBLE PRECISON VERSION\r\nC\r\nC\r\nC     BRANCH ON ELEMENT TYPE\r\nC\r\n      IF (MM .EQ. 6) GO TO 100\r\n      IF (MM .EQ. 8) GO TO 200\r\n      GO TO 3000\r\nC\r\nC     TRIA6\r\nC     1.0D0/6.0D0 = 0.166666667D0\r\nC     2.0D0/3.0D0 = 0.666666667D0\r\nC\r\n  100 INDX = 1\r\n      NXI  = 3\r\n      NETA = 1\r\n      POINTX(1) = 0.166666667D0\r\n      POINTX(2) = 0.166666667D0\r\n      POINTX(3) = 0.666666667D0\r\n      POINTX(4) = 0.166666667D0\r\n      POINTX(5) = 0.666666667D0\r\n      POINTX(6) = 0.166666667D0\r\nC\r\n      WEITX(1)  = 0.166666667D0\r\n      WEITX(2)  = 0.166666667D0\r\n      WEITX(3)  = 0.166666667D0\r\n      WEITX(4)  = 0.166666667D0\r\n      WEITX(5)  = 0.166666667D0\r\n      WEITX(6)  = 0.166666667D0\r\n      GO TO 300\r\nC\r\nC     QUAD8\r\nC     -DSQRT(1.0D0/3.0D0) = -0.577350269D0\r\nC\r\n  200 INDX = 2\r\n      NXI  = 2\r\n      NETA = 2\r\n      POINTX(1) =-0.577350269D0\r\n      POINTX(2) =-POINTX(1)\r\n      DO 210 I = 1,2\r\n      POINTE(I) = POINTX(I)\r\n      WEITX(I) = 1.0D0\r\n  210 WEITE(I) = 1.0D0\r\nC\r\nC     SET UP THE ELEMENT VARIABLES\r\nC\r\n  300 CALL SHSETD (*3000,MM,SIL,BGPDT,BGPDT,GPTH,ELTH,GPTEMP,BGPDM,\r\n     1             EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL,IORDER,\r\n     2             IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID)\r\nC\r\nC     GET THE TEMPERATURE VECTOR FROM CORE\r\nC\r\n      DO 320 I = 1,MM\r\n      TMPR(I) = 0.0D0\r\n      II = NSIL(I)\r\n      IF (II .EQ. 0) GO TO 320\r\n      TMPR(I) = TEMP(II)\r\n  320 CONTINUE\r\nC\r\n      NNODE2 = NNODE*NNODE\r\n      DO 330 I = 1,NNODE2\r\n      HTCON(I) = 0.0D0\r\n  330 HTCAP(I) = 0.0D0\r\nC\r\nC     GET THE PROPERTIES\r\nC\r\n      MATID   = MID\r\n      INFLAG  = 12\r\n      ELTEMP  = 0.0\r\n      ECPT(2) = 0.0\r\n      ECPT(3) = 0.0\r\n      ECPT(4) = 0.0\r\n      DO 400 I = 1,NNODE\r\n      ECPT(2) = ECPT(2) + BGPDT(2,I)\r\n      ECPT(3) = ECPT(3) + BGPDT(3,I)\r\n      ECPT(4) = ECPT(4) + BGPDT(4,I)\r\n  400 ELTEMP  = ELTEMP  + GPTEMP(I)\r\n      ELTEMP  = ELTEMP/NNODE\r\n      ECPT(2) = ECPT(2)/NNODE\r\n      ECPT(3) = ECPT(3)/NNODE\r\n      ECPT(4) = ECPT(4)/NNODE\r\nC\r\n      IF (MFLAG .EQ. 0) GO TO 500\r\nC\r\nC     CALCULATE [TEM] USING MCID\r\nC\r\n      IF (MCID .GT. 0) GO TO 420\r\n      DO 410 I = 1,9\r\n  410 TEM(I) = TEB(I)\r\n      GO TO 430\r\n  420 NECPT(1) = MCID\r\n      CALL TRANSD (ECPT,TBM)\r\n      CALL GMMATD (TEB,3,3,0, TBM,3,3,0, TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE MATERIAL\r\nC     COORD. SYSTEM ON TO THE XY PLANE OF THE ELEMENT COORD. SYSTEM\r\nC\r\n  430 XM = TEM(1)\r\n      YM = TEM(4)\r\n      IF (DABS(XM).GT.EPS1 .OR. DABS(YM).GT.EPS1) GO TO 440\r\n      GO TO 3000\r\n  440 THETAM = DATAN2(YM,XM)\r\n      GO TO 510\r\n  500 THETAM = THETA*DEGRAD\r\n  510 SINMAT = DSIN(THETAM)\r\n      COSMAT = DCOS(THETAM)\r\nC\r\n      CALL HMAT (ELID)\r\nC\r\n      GI(1) = DBLE(KHEAT(1))\r\n      GI(2) = DBLE(KHEAT(2))\r\n      GI(3) = GI(2)\r\n      GI(4) = DBLE(KHEAT(3))\r\nC\r\nC     IF NONLINEAR, GET THE UPDATED MATERIAL PROPERTIES\r\nC\r\n      IF (FLAG .EQ. 1) GO TO 1000\r\n      ELTEMP = 0.0\r\n      DO 900 I = 1,NNODE\r\n  900 ELTEMP = ELTEMP + SNGL(TMPR(I))\r\n      ELTEMP = ELTEMP/NNODE\r\nC\r\n      CALL HMAT (ELID)\r\nC\r\n      GI(1) = DBLE(KHEAT(1)) - GI(1)\r\n      GI(2) = DBLE(KHEAT(2)) - GI(2)\r\n      GI(3) = GI(2)\r\n      GI(4) = DBLE(KHEAT(3)) - GI(4)\r\nC\r\nC     START THE TRIPLE LOOP\r\nC\r\n 1000 CONTINUE\r\n      DO 2000 IXI = 1,NXI\r\n      XI = POINTX(IXI)\r\n      WX = WEITX(IXI)\r\nC\r\n      DO 1200 IETA = 1,NETA\r\n      IF (NETA .EQ. 1) GO TO 1010\r\n      ETA = POINTE(IETA)\r\n      WE  = WEITE(IETA)\r\n      GO TO 1020\r\n 1010 ETA = POINTX(IXI+NXI)\r\n      WE  = 1.0D0\r\n 1020 CONTINUE\r\nC\r\nC     CALCULATE THE B TERMS\r\nC\r\n      IF (MM .EQ. 8) CALL SHTRMD (*3000,ELID,MM,NNODE,XI,ETA,DGPTH,\r\n     1               EPNORM,EGPDT,IORDER,MMN,DETJ,THK,SHP,TIE,BTERMS)\r\n      IF (MM .EQ. 6) CALL SHTRMD (*3000,ELID,MM,NNODE,XI,ETA,DGPTH,\r\n     1               EPNORM,EGPDT,IORDRN,MMN,DETJ,THK,SHP,TIE,BTERMS)\r\nC\r\n      VOLI  = DETJ*WX*WE*THK*2.0D0\r\n      WEITC = VOLI*HTCP\r\n      DO 1030 I = 1,4\r\n 1030 GT(I) = GI(I)*VOLI\r\nC\r\n      CALL GMMATD (GT,2,2,0, BTERMS,2,NNODE,0, HTFLX)\r\n      CALL GMMATD (BTERMS,2,NNODE,-1, HTFLX,2,NNODE,0, HTCON)\r\nC\r\n      IF (WEITC .EQ. 0.0) GO TO 1200\r\n      IP = 1\r\n      DO 1060 I = 1,NNODE\r\n      DO 1060 J = 1,NNODE\r\n      HTCAP(IP) = HTCAP(IP) + SHP(I)*SHP(J)*WEITC\r\n 1060 IP = IP + 1\r\nC\r\n 1200 CONTINUE\r\n 2000 CONTINUE\r\nC\r\nC     RECOVER NONLINEAR DELTA-LOAD\r\nC\r\n      IF (FLAG .NE. 1)\r\n     1    CALL GMMATD (HTCON,NNODE,NNODE,0, TMPR,NNODE,1,0, DELTAP(1))\r\n      RETURN\r\nC\r\nC\r\n      ENTRY SHHMGS (*,ELID,MM,SIL,BGPDT,GPTH,ELTH,GPTEMP,FLAG,MID,\r\n     1                MFLAG,MCID,THETA,TEMP,NNODE,NSIL,DELTAP,HTCON,\r\n     2                HTCAP)\r\nC     =============================================================\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\n      RETURN\r\nC\r\n 3000 CONTINUE\r\n      RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/shlsts.f",
    "content": "      SUBROUTINE SHLSTS (ELID,PID,TLAM,EPSUMI,EPSCMI)\r\nC\r\nC     TO PERFORM LAYER STRAIN, STRESS AND FORCE CALCULATIONS FOR THE\r\nC     2-D SHELL ELEMENTS.\r\nC     ONLY THE ELEMENT CENTER VALUES ARE CONSIDERED\r\nC\r\nC     INPUT :\r\nC           ELID   - ELEMENT ID\r\nC           PID    - COMPOSITE PROPERTY ID\r\nC           TLAM   - AVERAGE ELEMENT THICKNESS\r\nC           EPSUMI - UNCORRECTED STRAINS IN MATERIAL COORD. SYSTEM\r\nC           EPSCMI - CORRECTED STRAINS IN MATERIAL COORD. SYSTEM\r\nC          /CONDAS/- TRIGONOMETRIC CONSTATNTS\r\nC          /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS\r\nC\r\nC     OUTPUT:\r\nC           OUTPUT DATA ARE WRITTEN DIRECTLY TO EACH APPROPRIATE OUTPUT\r\nC           FILE - OEF1L, OES1L/OES1AL\r\nC\r\nC\r\nC     LAYER STRESS/STRAIN OUTPUT BLOCK FOR EACH CTRIA3 ELEMENT\r\nC\r\nC         1.    10*ELEMENT ID + DEVICE CODE\r\nC         2.    NLAYER - NUMBER OF OUTPUT LAYERS\r\nC         3.    TYPE OF FAILURE THEORY SELECTED\r\nC\r\nC         4.    LAYER ID\r\nC        5-7.   LAYER STRESSES/STRAINS\r\nC         8.    LAYER FAILURE INDEX, FI\r\nC         9.    IFLAG1 = 1 IF FI.GE.0.999\r\nC                      = 0 OTHERWISE\r\nC       10-11.  INTERLAMINAR SHEAR STRESSES/STRAINS\r\nC        12.    SHEAR BONDING INDEX, FB\r\nC        13.    IFLAG2 = 1 IF FB.GE.0.999\r\nC                      = 0 OTHERWISE\r\nC         :\r\nC         :     REPEAT 4-13 NLAYER TIMES FOR EACH LAYER\r\nC\r\nC       LAST-1. MAXIMUM FAILURE INDEX OF LAMINATE, FIMAX\r\nC        LAST.  IFLAG3 = 1 IF FIMAX.GE.0.999\r\nC                      = 0 OTHERWISE\r\nC\r\nC\r\nC     FORCE OUTPUT BLOCK\r\nC\r\nC         1.    10*ELEMENT ID + DEVICE CODE\r\nC        2-9.   FORCE RESULTANTS:\r\nC                 MEMBRANE        BENDING     TRANSVERSE\r\nC               -- FORCES --    - MOMENTS -  SHEAR FROCES\r\nC               FX,  FY, FXY,   MX, MY, MXY,    VX, VY\r\nC\r\nC\r\n      LOGICAL         STRESS,STRAIN,FORCE,STSREQ,STNREQ,FORREQ,STRCUR,\r\n     1                GRIDS,VONMS,LAYER,GRIDSS,VONMSS,LAYERS,\r\n     2                TRNFLX,NONMEM,SYMLAY,PCMP,PCMP1,PCMP2\r\n      INTEGER         ELID,ELEMID,OES1L,OES1AL,OEF1L,PCOMP,PCOMP1,\r\n     1                PCOMP2,PID,PIDLOC,SYM,SYMMEM,SOUTI,HALF,FTHR,\r\n     2                STRINF,SDEST,EDEST,FDEST,IZ(1)\r\n      REAL            STRSLR(3),TRNSRR(2),EPSLR(3),ERNSRR(2),FINDXR,\r\n     1                FBONDR,FIMAXR,Z\r\n      REAL            TLAM,EPSUMI(6,1),EPSCMI(6,1),PI,TWOPI,RADDEG,\r\n     1                DEGRAD,GG(9),ULTSTN(6),TRANS(9),STRESL(3),\r\n     2                EPSLCM(3),EPSLUM(3),EPSLCF(3),EPSLUF(3),TRNAR(2),\r\n     3                ERNAR(2),TRNSHR(2),ERNSHR(2),FINDEX,FPMAX,FBOND,\r\n     4                FBMAX,FIMAX,FB(2),SB,V(2),EI(2),ZBAR(2),\r\n     5                ZK,ZK1,ZSUBI,ZREF,THETA,C,C2,S,S2,TI\r\n      COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER\r\n     1,               GRIDSS,VONMSS,LAYERS\r\n      COMMON /SDR2DE/ KSDRDE(200)\r\n      COMMON /SDR2X2/ DUM1(30),OES1L,OEF1L\r\n      COMMON /SDR2X7/ DUM2(100),STRES(69),DUM3(31),FORSUL(37),\r\n     1                DUM4(163),STRIN(69)\r\n      COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (Z(1) ,IZ(1)     ),(SDEST,KSDRDE( 26)),\r\n     1                (FDEST,KSDRDE(33)),(EDEST,KSDRDE(148)),\r\n     2                (OES1L,OES1AL    )\r\n      DATA    SYMMEM, MEM, SYM, PCOMP, PCOMP1, PCOMP2, STRINF /\r\n     1        3     , 2  , 1  , 0    , 1     , 2     , 5      /\r\nC\r\nC     INITIALIZE\r\nC\r\n      ZREF  =-TLAM/2.0\r\n      FINDEX= 0.0\r\n      FBOND = 0.0\r\n      FPMAX = 0.0\r\n      FBMAX = 0.0\r\n      FIMAX = 0.0\r\nC\r\n      DO 10 LL = 1,2\r\n      ERNAR(LL) = 0.0\r\n      TRNAR(LL) = 0.0\r\n      ERNSHR(LL)= 0.0\r\n      TRNSHR(LL)= 0.0\r\n   10 CONTINUE\r\nC\r\n      FORCE  = FORREQ .AND. LAYER\r\n      STRESS = STSREQ .AND. LAYER\r\n      STRAIN = STNREQ .AND. LAYERS\r\nC\r\n      ITYPE  = -1\r\n      LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2\r\n      PCMP   = NPCMP  .GT. 0\r\n      PCMP1  = NPCMP1 .GT. 0\r\n      PCMP2  = NPCMP2 .GT. 0\r\nC\r\n      IF (.NOT.FORCE) GO TO 20\r\nC\r\nC     WRITE FORCE RESULTANTS TO OEF1L IF REQUESTED\r\nC\r\n      ELEMID = 10*ELID + FDEST\r\n      CALL WRITE (OEF1L,ELEMID,1,0)\r\n      CALL WRITE (OEF1L,FORSUL(3),8,0)\r\nC\r\nC     FORCE REQUEST HAS BEEN PROCESSED. IF NO MORE REQUESTS WE ARE DONE.\r\nC     IF NOT, PREPARE FOR OTHER REQUESTS.\r\nC     ISSUE ERROR IF PCOMPI DATA HAS NOT BEEN READ INTO CORE.\r\nC\r\n   20 IF (.NOT.(STRESS .OR. STRAIN)) GO TO 650\r\nC\r\nC     START WRITING STRESS/STRAIN OUTPUT TO OES1L/OES1AL\r\nC     (NOTE - OES1L AND OES1AL ARE SAME FILE IN COSMIC/NASTRAN)\r\nC\r\nC     1.  10*ELEMENT ID + DEVICE CODE\r\nC\r\n      IF (LPCOMP .EQ. IPCMP) GO TO 600\r\n      ELEMID = 10*ELID + SDEST\r\n      IF (STRAIN) ELEMID = 10*ELID + EDEST\r\n      CALL WRITE (OES1L,ELEMID,1,0)\r\nC\r\nC     DETERMINE  IF INTERLAMINAR SHEAR STRESS CALCULATIONS ARE REQUIRED\r\nC     BY CHECKING THE TRANSVERSE SHEAR STRESS RESULTANTS QX AND QY\r\nC\r\n      V(1) = FORSUL( 9)\r\n      V(2) = FORSUL(10)\r\n      TRNFLX = V(1).NE.0.0 .OR. V(2).NE.0.0\r\nC\r\nC     LOCATE PID BY PERFORMING A SEQUENTIAL SEARCH OF THE PCOMPI DATA\r\nC     BLOCK WHICH IS IN CORE.\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n      IF (.NOT.PCMP) GO TO 40\r\n      IP = IPCMP\r\n      IF (IZ(IP) .EQ. PID) GO TO 110\r\n      IPC11 = IPCMP1 - 1\r\n      DO 30 IP = IPCMP,IPC11\r\n      IF (IZ(IP).EQ.-1 .AND. IP.LT.IPC11) IF (IZ(IP+1)-PID) 30,100,30\r\n   30 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n   40 IF (.NOT.PCMP1) GO TO 60\r\n      IP = IPCMP1\r\n      IF (IZ(IP) .EQ. PID) GO TO 140\r\n      IPC21 = IPCMP2 - 1\r\n      DO 50 IP = IPCMP1,IPC21\r\n      IF (IZ(IP).EQ.-1 .AND. IP.LT.IPC21) IF (IZ(IP+1)-PID) 50,130,50\r\n   50 CONTINUE\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n   60 IF (.NOT.PCMP2) GO TO 600\r\n      IP = IPCMP2\r\n      IF (IZ(IP) .EQ. PID) GO TO 160\r\n      LPC11 = LPCOMP - 1\r\n      DO 70 IP = IPCMP2,LPC11\r\n      IF (IZ(IP).EQ.-1 .AND. IP.LT.LPC11) IF (IZ(IP+1)-PID) 70,150,70\r\n   70 CONTINUE\r\nC\r\nC     PID WAS NOT LOCATED; ISSUE ERROR\r\nC\r\n      GO TO 600\r\nC\r\nC     PID WAS LOCATED; DETERMINE TYPE\r\nC\r\nC     FOR PCOMP BULK DATA DETERMINE HOW MANY LAYERS HAVE THE STRESS/\r\nC     STRAIN OUTPUT REQUEST (SOUTI).\r\nC     FOR PCOMP1 OR PCOMP2 BULK DATA ENTRIES LAYER STRESSES/STRAINS ARE\r\nC     OUTPUT FOR ALL LAYERS.\r\nC\r\n  100 IP = IP + 1\r\n  110 ITYPE  = PCOMP\r\n      PIDLOC = IP\r\n      NLAY   = IZ(PIDLOC+1)\r\n      NLAYER = NLAY\r\n      NSTRQT = 0\r\n      DO 120 K = 1,NLAY\r\n      IF (IZ(PIDLOC+8+4*K) .EQ. 1) NSTRQT = NSTRQT + 1\r\n  120 CONTINUE\r\n      NLAYER = NSTRQT\r\n      IPOINT = PIDLOC + 8 + 4*NLAY\r\n      ICONTR = IPOINT +    27*NLAY\r\n      GO TO 200\r\nC\r\n  130 IP = IP + 1\r\n  140 ITYPE  = PCOMP1\r\n      PIDLOC = IP\r\n      NLAY   = IZ(PIDLOC+1)\r\n      NLAYER = NLAY\r\n      IPOINT = PIDLOC +  8 +   NLAY\r\n      ICONTR = IPOINT + 25 + 2*NLAY\r\n      GO TO 200\r\nC\r\n  150 IP = IP + 1\r\n  160 ITYPE  = PCOMP2\r\n      PIDLOC = IP\r\n      NLAY   = IZ(PIDLOC+1)\r\n      NLAYER = NLAY\r\n      IPOINT = PIDLOC +  8 + 2*NLAY\r\n      ICONTR = IPOINT + 25 + 2*NLAY\r\nC\r\nC     DETERMINE GENERAL COMPOSITE PROPERTY VALUES\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = ALL    = 0 (ALL PLYS SPECIFIED, DEFAULT)\r\nC            = SYM    = 1 (SYMMETRIC)\r\nC            = MEM    = 2 (MEMBRANE ONLY)\r\nC            = SYMMEM = 3 (SYMMETRIC-MEMBRANE)\r\nC\r\nC     FTHR   - FAILURE THEORY\r\nC            = 1    HILL\r\nC            = 2    HOFFMAN\r\nC            = 3    TSAI-WU\r\nC            = 4    MAX-STRESS\r\nC            = 5    MAX-STRAIN\r\nC\r\nC     SB     - SHEAR BONDING STRENGTH\r\nC\r\n  200 LAMOPT = IZ(PIDLOC+8)\r\n      FTHR   = IZ(PIDLOC+5)\r\n      SB     =  Z(PIDLOC+4)\r\n      EI(1)  =  Z(ICONTR+1)\r\n      EI(2)  =  Z(ICONTR+2)\r\n      ZBAR(1)=  Z(ICONTR+3)\r\n      ZBAR(2)=  Z(ICONTR+4)\r\nC\r\n      NONMEM = LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM\r\n      SYMLAY = LAMOPT.EQ.SYM .OR.  LAMOPT.EQ.SYMMEM\r\n      IF (SYMLAY) NLAYER = 2*NLAYER\r\n      IF (NLAYER .EQ. 0) GO TO 650\r\nC\r\nC     CONTINUE TO WRITE LAYER-INDEPENDENT DATA TO OES1L/OES1AL\r\nC\r\nC     2.  NLAYER - NUMBER OF LAYERS FOR LAMINATE\r\nC     3.  TYPE OF FAILURE THEORY SELECTED\r\nC\r\n      CALL WRITE (OES1L,NLAYER,1,0)\r\n      CALL WRITE (OES1L,FTHR,1,0)\r\nC\r\nC     START THE LOOP OVER LAYERS\r\nC\r\n      ZK = ZREF\r\n      HALF = 1\r\n      IF (SYMLAY) HALF = 2\r\nC\r\n      DO 450 IHALF = 1,HALF\r\n      DO 440 KK = 1,NLAY\r\n      K = KK\r\n      IF (IHALF .EQ. 2) K = NLAY + 1 - KK\r\nC\r\nC     OBTAIN LAYER K INFORMATION\r\nC     - THE BOUNDARIES\r\nC     - THE DISTANCE FROM THE REFERENCE SURFACE TO THE MIDDLE OF LAYER\r\nC     - LAYER THICKNESS\r\nC     - STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA\r\nC       (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA)\r\nC\r\n      ZK1 = ZK\r\n      IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7      )\r\n      IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K)\r\n      ZSUBI = (ZK+ZK1)/2.0\r\n      TI = ZK - ZK1\r\n      SOUTI = 1\r\n      IF (ITYPE .EQ. PCOMP) SOUTI = IZ(PIDLOC+8+4*K)\r\nC\r\nC     LAYER MATERIAL PROPERTIES\r\nC\r\n      DO 210 IGI = 1,9\r\n      GG(IGI) = Z(IPOINT+IGI)\r\n  210 CONTINUE\r\nC\r\nC     LAYER ULTIMATE STRENGTHS\r\nC\r\n      DO 220 IR = 1,6\r\n      ULTSTN(IR) = Z(IPOINT+16+IR)\r\n  220 CONTINUE\r\nC\r\nC     LAYER ORIENTATION\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 +   K)\r\n      IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K)\r\n      THETA = THETA*DEGRAD\r\nC\r\nC     BUILD THE STRAIN TENSOR TRANSFORMATION TO TRANSFORM\r\nC     LAYER STRAINS FROM MATERIAL TO FIBER DIRECTION.\r\nC\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANS(1)  = C2\r\n      TRANS(2)  = S2\r\n      TRANS(3)  = C*S\r\n      TRANS(4)  = S2\r\n      TRANS(5)  = C2\r\n      TRANS(6)  =-C*S\r\n      TRANS(7)  =-2.0*C*S\r\n      TRANS(8)  = 2.0*C*S\r\n      TRANS(9)  = C2 - S2\r\nC\r\nC     CALCULATE THE CORRECTED AND UNCORRECTED STRAIN VECTORS AT ZSUBI\r\nC     IN THE MATERIAL COORD. SYSTEM, THENTRANSFORM STRAINS FROM MATERIAL\r\nC     TO FIBER COORD. SYSTEM AND CALCULATE THE LAYER STRESS VECTOR IN\r\nC     THE FIBER COORD. SYSTEM\r\nC\r\n      DO 300 IR = 1,3\r\n      EPSLCM(IR) = EPSCMI(IR,1) - ZSUBI*EPSCMI(IR+3,1)\r\n      EPSLUM(IR) = EPSUMI(IR,1) - ZSUBI*EPSUMI(IR+3,1)\r\n  300 CONTINUE\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, EPSLCM(1),3,1,0, EPSLCF(1))\r\n      CALL GMMATS (TRANS(1),3,3,0, EPSLUM(1),3,1,0, EPSLUF(1))\r\n      CALL GMMATS (GG(1),3,3,0,    EPSLCF,3,1,0,    STRESL(1))\r\nC\r\n      IF (FTHR .LE. 0) GO TO 310\r\nC\r\nC     COMPUTE FAILURE INDEX FOR THIS LAYER AND THE MAXIMUM FAILURE INDEX\r\nC\r\n      IF (FTHR .EQ. STRINF) CALL FAILRS (FTHR,ULTSTN,EPSLUF,FINDEX)\r\n      IF (FTHR .NE. STRINF) CALL FAILRS (FTHR,ULTSTN,STRESL,FINDEX)\r\n      IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX\r\nC\r\n  310 IF (.NOT.TRNFLX .OR. .NOT.NONMEM) GO TO 350\r\nC\r\nC     CALCULATE INTERLAMINAR SHEAR STRESSES AND STRAINS\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) ICONTR = IPOINT + 25\r\n      IF (ITYPE .EQ. PCOMP1) ICONTR = IPOINT + 23 + 2*K\r\n      IF (ITYPE .EQ. PCOMP2) ICONTR = IPOINT + 23 + 2*K\r\n      DO 320 IR = 1,2\r\n      ERNAR(IR) = ERNAR(IR) + TI*(ZBAR(IR)-ZSUBI)\r\n      TRNAR(IR) = TRNAR(IR) + TI*(ZBAR(IR)-ZSUBI)*Z(ICONTR+IR)\r\n  320 CONTINUE\r\nC\r\n      DO 330 IR = 1,2\r\n      TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR)\r\n      ERNSHR(IR) = V(IR)*ERNAR(IR)/EI(IR)\r\n  330 CONTINUE\r\nC\r\n      IF (SB .LE. 0.0) GO TO 350\r\nC\r\nC     CALCULATE SHEAR BONDING FAILURE INDEX, FB, AND THE MAX SHEAR\r\nC     BONDING INDEX, FBMAX.\r\nC\r\n      DO 340 IR = 1,2\r\n      FB(IR) = ABS(TRNSHR(IR))/SB\r\n  340 CONTINUE\r\nC\r\n      FBOND = FB(1)\r\n      IF (FB(2) .GT. FB(1)) FBOND = FB(2)\r\n      IF (FBOND .GE. FBMAX) FBMAX = FBOND\r\nC\r\n  350 IF (SOUTI .EQ. 0) GO TO 430\r\nC\r\nC     CONTINUE TO WRITE LAYER-DEPENDENT DATA TO OES1L AND OES1AL\r\nC\r\nC       4.   LAYER ID, LYRID\r\nC     5,6,7. LAYER STRESSES/STRAINS\r\nC       8.   LAYER FAILURE INDEX, FINDXR\r\nC       9.   IFLAG1 (=1 IF FINDXR.GE.0.999, DEFAULT=0)\r\nC     10,11. INTERLAMINAR SHEAR STRESSES/STRAINS\r\nC      12.   SHEAR BONDING FAILURE INDEX, FBONDR\r\nC      13.   IFLAG2 (=1 IF FBONDR.GE.0.999, DEFAULT=0)\r\nC       :    REPEAT 4-13 FOR NUMBER OF LAYER WITH LAYER STRESS/STRAIN\r\nC       :    REQUEST\r\nC\r\nC\r\n      LYRID = K\r\n      IF (IHALF .EQ. 2) LYRID = NLAY + KK\r\nC\r\n      FINDXR = FINDEX\r\n      IFLAG1 = 0\r\n      IF (ABS(FINDEX) .GE. 0.999) IFLAG1 = 1\r\nC\r\n      FBONDR = FBOND\r\n      IFLAG2 = 0\r\n      IF (ABS(FBOND ) .GE. 0.999) IFLAG2 = 1\r\nC\r\n      IF (.NOT.STRESS) GO TO 410\r\n      DO 400 ISTR = 1,3\r\n      STRSLR(ISTR) = STRESL(ISTR)\r\n  400 CONTINUE\r\n      TRNSRR(1) = TRNSHR(1)\r\n      TRNSRR(2) = TRNSHR(2)\r\n      CALL WRITE (OES1L,LYRID,1,0)\r\n      CALL WRITE (OES1L,STRSLR(1),3,0)\r\n      CALL WRITE (OES1L,FINDXR,1,0)\r\n      CALL WRITE (OES1L,IFLAG1,1,0)\r\n      CALL WRITE (OES1L,TRNSRR(1),2,0)\r\n      CALL WRITE (OES1L,FBONDR,1,0)\r\n      CALL WRITE (OES1L,IFLAG2,1,0)\r\nC\r\n  410 IF (.NOT.STRAIN) GO TO 430\r\n      DO 420 ISTR = 1,3\r\n      EPSLR(ISTR)  = EPSLUF(ISTR)\r\n  420 CONTINUE\r\n      ERNSRR(1) = ERNSHR(1)\r\n      ERNSRR(2) = ERNSHR(2)\r\n      CALL WRITE (OES1AL,LYRID,1,0)\r\n      CALL WRITE (OES1AL,EPSLR(1),3,0)\r\n      CALL WRITE (OES1AL,FINDXR,1,0)\r\n      CALL WRITE (OES1AL,IFLAG1,1,0)\r\n      CALL WRITE (OES1AL,ERNSRR(1),2,0)\r\n      CALL WRITE (OES1AL,FBONDR,1,0)\r\n      CALL WRITE (OES1AL,IFLAG2,1,0)\r\nC\r\nC     UPDATE IPOINT FOR PCOMP BULK DATA ENTRY\r\nC\r\n  430 IF (ITYPE .NE. PCOMP) GO TO 440\r\n      IF (IHALF.EQ.1 .AND. K.NE.NLAY) IPOINT = IPOINT + 27\r\n      IF (IHALF .EQ. 2) IPOINT = IPOINT - 27\r\n  440 CONTINUE\r\n  450 CONTINUE\r\nC\r\nC     END OF LOOP OVER LAYERS\r\nC\r\n      IF (FTHR .LE. 0) GO TO 500\r\nC\r\nC     DETERMINE THE MAXIMUM FAILURE INDEX\r\nC\r\n      FIMAX = FPMAX\r\n      IF (FBMAX .GT. ABS(FPMAX)) FIMAX = FBMAX\r\nC\r\nC     CONTINUE TO OUTPUT THE MAXIMUM FAILURE INDEX TO OES1L/OES1AL\r\nC\r\nC     LAST-1.  MAXIMUM FAILURE INDEX OF LIMIATE, FIMAXR\r\nC      LAST.   IFLAG3 (=1 IF FIMAXR.GE.0.999, DEFAULT=0)\r\nC\r\n  500 FIMAXR = FIMAX\r\n      IFLAG3 = 0\r\n      IF (ABS(FIMAX) .GE. 0.999) IFLAG3 = 1\r\nC\r\n      CALL WRITE (OES1L,FIMAXR,1,0)\r\n      CALL WRITE (OES1L,IFLAG3,1,0)\r\n      GO TO 650\r\nC\r\nC\r\nC     ERROR MESSAGE\r\nC\r\nC     NO PCOMP, PCOMP1, PCOMP2 FOUND\r\nC\r\n  600 CALL MESAGE (-30,223,ELID)\r\nC\r\n  650 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shpsts.f",
    "content": "      SUBROUTINE SHPSTS (SIGMA,VONMS,SIGP)\r\nC\r\nC     TO CALCULATE PRINCIPAL STRESSES AND THEIR ANGLES FOR THE\r\nC     ISOPARAMETRIC SHELL ELEMENTS\r\nC\r\nC\r\nC     INPUT :\r\nC           SIGMA  - ARRAY OF 3 STRESS COMPONENTS\r\nC           VONMS  - LOGICAL FLAG INDICATING THE PRESENCE OF VON-MISES\r\nC                    STRESS REQUEST\r\nC     OUTPUT:\r\nC           SIGP   - ARRAY OF PRINCIPAL STRESSES\r\nC\r\nC\r\n      LOGICAL VONMS\r\nCWKBNB 7/94 SPR94004\r\n      LOGICAL OSTRAI\r\n      COMMON / BLANK / APP(2), SORT2, IDUM(2), COMPS, SKP(4), OSTRAI\r\n     &,                SK2(39), MIDVE\r\nCWKBNE 7/94 SPR94004\r\n      REAL    SIGMA(3),SIGP(4),SIG,PROJ,TAUMAX,EPS,TXY2\r\n      DATA    EPS / 1.0E-11 /\r\nC\r\nC\r\nC     CALCULATE PRINCIPAL STRESSES\r\nC\r\n      SIG  = 0.5*(SIGMA(1)+SIGMA(2))\r\n      PROJ = 0.5*(SIGMA(1)-SIGMA(2))\r\n      TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)\r\nCWKBI 7/94 SPR94004\r\n      IF ( OSTRAI ) TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)/4.\r\n      IF (TAUMAX .NE. 0.0) TAUMAX = SQRT(TAUMAX)\r\n      IF (TAUMAX .LE. EPS) TAUMAX = 0.0\r\nC\r\nC     CALCULATE THE PRINCIPAL ANGLE\r\nC\r\n      TXY2 = SIGMA(3)*2.0\r\n      PROJ = PROJ*2.0\r\n      SIGP(1) = 0.0\r\n      IF (ABS(TXY2).GT.EPS .OR. ABS(PROJ).GT.EPS)\r\n     1    SIGP(1) = 28.64788976*ATAN2(TXY2,PROJ)\r\nC                   28.64788976 = 90./PI\r\nC\r\n      SIGP(2) = SIG + TAUMAX\r\n      SIGP(3) = SIG - TAUMAX\r\n      SIGP(4) = TAUMAX\r\nC\r\nC     OUTPUT VON MISES YIELD STRESS IF REQUESTED\r\nC\r\n      IF (.NOT.VONMS) RETURN\r\n      SIG = SIGP(2)*SIGP(2) + SIGP(3)*SIGP(3) - SIGP(2)*SIGP(3)\r\n      IF (SIG .NE. 0.0) SIG = SQRT(SIG)\r\n      IF (SIG .LE. EPS) SIG = 0.0\r\n      SIGP(4) = SIG\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shsetd.f",
    "content": "      SUBROUTINE SHSETD (*,MM,SIL,BGPDT,IGPDT,GPTH,ELTH,GPTEMP,BGPDM,\r\n     1                   EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL,\r\n     2                   IORDER,IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID)\r\nC\r\nC     TO SET UP FOR ISOPARAMETRIC SHELL ELEMENTS, CALLED ONLY BY SHHMGD\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     INPUT :\r\nC           MM       - MAXIMUM NO. OF NODES PER THIS TYPE ELEMENT\r\nC           SIL      - ARRAY OF SIL NUMBERS\r\nC           BGPDT    - BGPDT DATA FROM EST (REAL ARRAY)\r\nC           IGPDT    - BGPDT DATA FROM EST (INTEGER ARRAY)\r\nC           GPTH     - GRID POINT THICKNESS DATA\r\nC           ELTH     - ELEMENT THICKNESS FROM EPT\r\nC           GPTEMP   - GRID POINT TEMPERATURE DATA\r\nC           ELID     - ELEMENT ID\r\nC     OUTPUT:\r\nC           SIL      - ARRAY OF SIL NUMBERS        (REARRANGED)\r\nC           BGPDT    - BGPDT DATA (REAL ARRAY)     (REARRANGED)\r\nC           IGPDT    - BGPDT DATA (INTEGER ARRAY)  (REARRANGED)\r\nC           GPTH     - GRID POINT THICKNESS DATA   (REARRANGED)\r\nC           GPTEMP   - GRID POINT TEMPERATURE DATA (REARRANGED)\r\nC           BGPDM    - BGPDT DATA SAVED IN ORIGINAL FORMAT\r\nC           EGPDT    - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           DGPTH    - GRID POINT THICKNESS DATA\r\nC           GPNORM   - GRID POINT NORMALS\r\nC           EPNORM   - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM\r\nC           NNODE    - THE NO. OF NODES PRESENT IN THE ELEMENT\r\nC           MMN      - ARRAY OF MISSING MIDSIDE NODES\r\nC           NSIL     - INTERNALLY ORDERED SIL ARRAY\r\nC           IORDER   - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           IORDRN   - ARRAY OF ORDER INDICATORS FOR TRIA\r\nC           TEB      - TRANSFORMATION FROM ELEMENT TO BASIC COORD.SYSTEM\r\nC           TUB      - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM\r\nC           CENTE    - LOCATION OF THE CENTER OF THE ELEMENT\r\nC           AVGTHK   - AVERAGE THICKNESS OF THE ELEMENT\r\nC\r\n      LOGICAL          QUAD\r\n      INTEGER          SIL(8),IORDER(8),KSIL(8),KCID(8),MMN(8),NSIL(8),\r\n     1                 IORDRN(8),IGPDT(4,8),ELID\r\n      REAL             GPTEMP(8),TEMTEM(8),BGPDT(4,8),TGRID(4,8),\r\n     1                 GPTH(8),TMPTHK(8),BGPDM(3,8)\r\n      DOUBLE PRECISION CENT(3),CENTE(3),EGPDT(4,8),GGU(9),GGN(9),TEB(9),\r\n     1                 TEU(9),SMAX,SMIN,SL(3),GGE(9),TUB(9),CC,DGPTH(8),\r\n     2                 GPNORM(4,8),EPNORM(4,8),X31,Y31,X42,Y42,EXI,EXJ,\r\n     3                 AA,BB,UGPDM(3,8),TCE(63),AVGTHK\r\nC\r\nC\r\n      IF (MM.NE.3 .AND. MM.NE.4 .AND. MM.NE.6 .AND. MM.NE.8) GO TO 700\r\nC           TRIA3         QUAD4         TRIA6         QUAD8\r\nC\r\n      QUAD = MM.EQ.8 .OR. MM.EQ.4\r\n      MMX  = 3\r\n      IF (QUAD) MMX = 4\r\n      NNODE = MM\r\n      DO 10 I = 1,MM\r\n      MMN(I) = SIL(I)\r\n      KSIL(I)= SIL(I)\r\n      IF (SIL(I) .GT. 0) GO TO 10\r\n      NNODE = NNODE - 1\r\n   10 CONTINUE\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1,2 AND 4\r\nC     (3 FOR TRIA). THIS ARRAY WILL BE USED LATER TO DEFINE THE USER\r\nC     COORDINATE SYSTEM WHILE CALCULATING TRANSFORMATIONS INVOLVING\r\nC     THIS COORDINATE SYSTEM.\r\nC\r\n      DO 20 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (QUAD .AND. IJ.EQ.3) IJ = 4\r\n      DO 20 J = 1,3\r\n      JJ = J + 1\r\n   20 GGU(II+J) = DBLE(BGPDT(JJ,IJ))\r\n      CALL BETRND (TUB,GGU,0,ELID)\r\nC\r\nC     STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT COORD. SYSTEM\r\nC\r\n      DO 30 I = 1,3\r\n      I1 = I + 1\r\n      DO 30 J = 1,MM\r\n   30 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER COORD. SYSTEM\r\nC\r\n      DO 40 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 40 J = 1,MM\r\n      UGPDM(I,J) = 0.0D0\r\n      DO 40 K = 1,3\r\n      KK = IP + K\r\n   40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K))\r\nC\r\n      IF (QUAD) GO TO 200\r\nC\r\nC     FOR TRIA\r\nC     CALCULATE THE CENTER COORDINATES\r\nC\r\n      CENTE(1) = (GGU(1)+GGU(4)+GGU(7))/3.0D0\r\n      CENTE(2) = (GGU(2)+GGU(5)+GGU(8))/3.0D0\r\n      CENTE(3) = (GGU(3)+GGU(6)+GGU(9))/3.0D0\r\nC\r\nC     ESTABLISH THE INTERNAL COORDINATES:\r\nC     X-AXIS IS ALONG THE MIDDLE-SIZED SIDE AND THE XY-PLANE IS\r\nC     DETERMINED BY IT TOGETHER WITH THE SHORTEST SIDE\r\nC\r\n      CC = (GGU(7)-GGU(4))*(GGU(7)-GGU(4))\r\n     1   + (GGU(8)-GGU(5))*(GGU(8)-GGU(5))\r\n     2   + (GGU(9)-GGU(6))*(GGU(9)-GGU(6))\r\n      IF (CC .LE. 0.0D0) GO TO 700\r\n      SL(1) = DSQRT(CC)\r\n      CC = (GGU(7)-GGU(1))*(GGU(7)-GGU(1))\r\n     1   + (GGU(8)-GGU(2))*(GGU(8)-GGU(2))\r\n     2   + (GGU(9)-GGU(3))*(GGU(9)-GGU(3))\r\n      IF (CC .LE. 0.0D0) GO TO 700\r\n      SL(2) = DSQRT(CC)\r\n      CC = (GGU(4)-GGU(1))*(GGU(4)-GGU(1))\r\n     1   + (GGU(5)-GGU(2))*(GGU(5)-GGU(2))\r\n     2   + (GGU(6)-GGU(3))*(GGU(6)-GGU(3))\r\n      IF (CC .LE. 0.0D0) GO TO 700\r\n      SL(3) = DSQRT(CC)\r\n      SMAX  = SL(1)\r\n      ISMAX = 1\r\n      DO 100 I = 2,3\r\n      IF (SL(I) .LE. SMAX) GO TO 100\r\n      SMAX  = SL(I)\r\n      ISMAX = I\r\n  100 CONTINUE\r\n      SMIN  = SL(1)\r\n      ISMIN = 1\r\n      DO 110 I = 2,3\r\n      IF (SL(I) .GE. SMIN) GO TO 110\r\n      SMIN  = SL(I)\r\n      ISMIN = I\r\n  110 CONTINUE\r\n      IF (ISMAX .EQ. ISMIN) ISMIN = 3\r\n      MIDDL = IABS(ISMAX-ISMIN)\r\n      IF (ISMAX+ISMIN .EQ. 3) MIDDL = 3\r\nC\r\nC     DETECT THE POSSIBLE REVERSAL OF THE INTERNAL Z-AXIS WITH RESPECT\r\nC     TO THE USER Z-AXIS. IF THAT IS THE CASE, SWITCH ISMAX AND ISMIN\r\nC     TO AVOID THE PROBLEM. THE SIDE WITH MEDIUM LENGTH WILL STILL BE\r\nC     THE X-AXIS.\r\nC\r\n      IF (ISMAX .NE. MOD(ISMIN,3)+1) GO TO 120\r\n      III    = ISMIN\r\n      ISMIN  = ISMAX\r\n      ISMAX  = III\r\nC\r\n  120 IS3    = 3*(ISMAX-1)\r\n      GGN(1) = GGU(IS3+1)\r\n      GGN(2) = GGU(IS3+2)\r\n      GGN(3) = GGU(IS3+3)\r\nC\r\n      IS3    = 3*(ISMIN-1)\r\n      GGN(4) = GGU(IS3+1)\r\n      GGN(5) = GGU(IS3+2)\r\n      GGN(6) = GGU(IS3+3)\r\nC\r\n      IS3    = 3*(MIDDL-1)\r\n      GGN(7) = GGU(IS3+1)\r\n      GGN(8) = GGU(IS3+2)\r\n      GGN(9) = GGU(IS3+3)\r\nC\r\n      CALL BETRND (TEB,GGN,0,ELID)\r\n      GO TO 300\r\nC\r\nC     FOR QUAD\r\nC     THE ORIGIN OF THE ELEMENT COORD.SYSTEM IS IN THE MIDDLE OF THE\r\nC     ELEMENT\r\nC\r\n  200 DO 210 J = 1,3\r\n      CENT(J) = 0.0D0\r\n      DO 210 I = 1,MM\r\n  210 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER COORD. SYSTEM\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = X31*X31 + Y31*Y31\r\n      IF (AA .LE. 0.0D0) GO TO 700\r\n      AA  = DSQRT(AA)\r\n      BB  = X42*X42 + Y42*Y42\r\n      IF (BB .LE. 0.0D0) GO TO 700\r\n      BB  = DSQRT(BB)\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT COORD. SYSTEM AND USER\r\nC     COORD. SYSTEM\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\n      CALL BETRND (TEU,GGE,0,ELID)\r\n      CALL GMMATD (TEU,3,3,0, TUB,3,3,0,  TEB)\r\n      CALL GMMATD (TUB,3,3,1, CENT,3,1,0, CENTE)\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL\r\nC     ORDER.\r\nC\r\nC     IORDER(1)  = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(MM) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST\r\nC     G1,G2,G3,G4,G5,G6,G7,G8 .  THAT IS, THE \"I\" PART OF THE \"GI\" AS\r\nC     THEY ARE LISTED ON THE CONNECTIVITY BULK DATA CARD DESCRIPTION.\r\nC\r\n  300 KSILD = 99999995\r\n      DO 310 I = 1,MM\r\n      IORDER(I) = 0\r\n      IORDRN(I) = 0\r\n      KSIL(I) = SIL(I)\r\n      IF (SIL(I) .NE. 0) GO TO 310\r\n      KSIL(I) = KSILD\r\n      KSILD   = KSILD + 1\r\n  310 CONTINUE\r\n      DO 330 I = 1,MM\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 320 J = 2,MM\r\n      IF (ISIL .LE. KSIL(J)) GO TO 320\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n  320 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      IORDRN(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  330 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA\r\nC     INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE FUNCTIONS GO\r\nC     WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\n      DO 350 I = 1,MM\r\n      KSIL(I)  = SIL(I)\r\n      TMPTHK(I)= GPTH(I)\r\n      IF (MM .NE. 4) TEMTEM(I) = GPTEMP(I)\r\n      KCID(I) = IGPDT(1,I)\r\n      DO 340 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n      DO 370 I = 1,MM\r\n      IPOINT  = IORDER(I)\r\n      SIL(I)  = KSIL(IPOINT)\r\n      NSIL(I) = KSIL(IPOINT)\r\n      GPTH(I) = TMPTHK(IPOINT)\r\n      IF (MM .NE. 4) GPTEMP(I) = TEMTEM(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      DO 360 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  360 CONTINUE\r\n  370 CONTINUE\r\nC\r\n      IF (QUAD) GO TO 500\r\nC\r\nC     FOR TRIA\r\nC     CREATE THE INTERNAL ORDER OF THE NODES OF ELEMENT IN CONNECTION\r\nC     WITH THE INTERNAL COORDINATE SYSTEM THEN CALCULATE NORMALS\r\nC\r\n      DO 400 I = 1,MM\r\n      IF (IORDER(I) .EQ. ISMAX) IORDRN(I) = 1\r\n      IF (IORDER(I) .EQ. ISMIN) IORDRN(I) = 2\r\n      IF (IORDER(I) .EQ. MIDDL) IORDRN(I) = 3\r\n      IF (IORDER(I) .EQ. 4) IND4=I\r\n      IF (IORDER(I) .EQ. 5) IND5=I\r\n      IF (IORDER(I) .EQ. 6) IND6=I\r\n  400 CONTINUE\r\n      IF (MM .NE. 6) GO TO 410\r\n      IF (ISMAX+ISMIN .EQ. 3) IORDRN(IND4) = 4\r\n      IF (ISMAX+ISMIN .EQ. 4) IORDRN(IND6) = 4\r\n      IF (ISMAX+ISMIN .EQ. 5) IORDRN(IND5) = 4\r\n      IF (ISMIN+MIDDL .EQ. 3) IORDRN(IND4) = 5\r\n      IF (ISMIN+MIDDL .EQ. 4) IORDRN(IND6) = 5\r\n      IF (ISMIN+MIDDL .EQ. 5) IORDRN(IND5) = 5\r\n      IF (MIDDL+ISMAX .EQ. 3) IORDRN(IND4) = 6\r\n      IF (MIDDL+ISMAX .EQ. 4) IORDRN(IND6) = 6\r\n      IF (MIDDL+ISMAX .EQ. 5) IORDRN(IND5) = 6\r\nC\r\n  410 DO 420 I = 1,3\r\n      II = I + 1\r\n      IP = (I-1)*3\r\n      DO 420 J = 1,NNODE\r\n      EGPDT(II,J) = 0.0D0\r\n      DO 420 K = 1,3\r\n      KK = IP + K\r\n      EGPDT(II,J) = EGPDT(II,J) + TEB(KK)*(DBLE(BGPDT(K+1,J))-GGN(K))\r\n  420 CONTINUE\r\nC\r\nC     USE THE POINTERS IN IORDER AND IORDRN TO REORDER MMN\r\nC\r\n      DO 430 I = 1,MM\r\n      IPOINT = IORDRN(I)\r\n      JPOINT = IORDER(I)\r\n      MMN(IPOINT) = KSIL(JPOINT)\r\n  430 CONTINUE\r\nC\r\n      IF (MM .NE. 3) GO TO 520\r\n      DO 440 II=1,3\r\n      EPNORM(1,II) = 0.0D0\r\n      EPNORM(2,II) = 0.0D0\r\n      EPNORM(3,II) = 0.0D0\r\n      EPNORM(4,II) = 1.0D0\r\n      GPNORM(1,II) = 0.0D0\r\n      GPNORM(2,II) = TEB(7)\r\n      GPNORM(3,II) = TEB(8)\r\n      GPNORM(4,II) = TEB(9)\r\n  440 CONTINUE\r\n      GO TO 520\r\nC\r\nC     FOR QUAD - COMPUTE NODAL NORMALS\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE TRANSFORMED\r\nC     FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM\r\nC\r\n  500 IFLAG = 0\r\n      IF (MM .EQ. 4) CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .NE. 0) GO TO 700\r\nC\r\n      DO 510 I = 1,3\r\n      II = I + 1\r\n      IP = (I-1)*3\r\n      DO 510 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0D0\r\n      EGPDT (II,J) = 0.0D0\r\n      DO 510 K = 1,3\r\n      KK = IP + K\r\n      K1 = K  + 1\r\n      CC = DBLE(BGPDT(K1,J)) - GGU(K) - CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n      EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC\r\n  510 CONTINUE\r\nC\r\nC     SET AVGTHK TO ZERO\r\nC\r\n  520 AVGTHK = 0.0D0\r\n      DO 550 I = 1,NNODE\r\n      IO = IORDER(I)\r\n      IF (IO .GT. MMX) GO TO 550\r\nC\r\n      IF (GPTH(I)) 700,530,540\r\n  530 IF (ELTH .LE. 0.0) GO TO 700\r\n      GPTH(I)  = ELTH\r\n  540 DGPTH(I) = DBLE(GPTH(I))\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  550 CONTINUE\r\nC\r\n      DO 620 I = 1,NNODE\r\n      IO = IORDER(I)\r\n      IF (IO      .LE. MMX) GO TO 620\r\n      IF (GPTH(I) .GT. 0.0) GO TO 610\r\n      IO1 = IO  - MMX\r\n      IO2 = IO1 + 1\r\n      IF (IO2 .EQ. MMX+1) IO2 = 1\r\n      DO 600 J = 1,MM\r\n      JO = IORDER(J)\r\n      IF (JO .EQ. IO1) IC1 = J\r\n      IF (JO .EQ. IO2) IC2 = J\r\n  600 CONTINUE\r\n      GPTH (I) = (GPTH(IC1)+GPTH(IC2))/2.0\r\n  610 DGPTH(I) = DBLE(GPTH(I))\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  620 CONTINUE\r\n      RETURN\r\nC\r\n  700 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/shsets.f",
    "content": "      SUBROUTINE SHSETS (*,MM,SIL,BGPDT,IGPDT,GPTH,ELTH,GPTEMP,BGPDM,\r\n     1                   EGPDT,DGPTH,GPNORM,EPNORM,NNODE,MMN,NSIL,\r\n     2                   IORDER,IORDRN,TEB,TUB,CENTE,AVGTHK,TCE,ELID)\r\nC\r\nC     TO SET UP FOR ISOPARAMETRIC SHELL ELEMENTS, CALLED ONLY BY SHHMGS\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     INPUT :\r\nC           MM       - MAXIMUM NO. OF NODES PER THIS TYPE ELEMENT\r\nC           SIL      - ARRAY OF SIL NUMBERS\r\nC           BGPDT    - BGPDT DATA FROM EST (REAL ARRAY)\r\nC           IGPDT    - BGPDT DATA FROM EST (INTEGER ARRAY)\r\nC           GPTH     - GRID POINT THICKNESS DATA\r\nC           ELTH     - ELEMENT THICKNESS FROM EPT\r\nC           GPTEMP   - GRID POINT TEMPERATURE DATA\r\nC           ELID     - ELEMENT ID\r\nC     OUTPUT:\r\nC           SIL      - ARRAY OF SIL NUMBERS        (REARRANGED)\r\nC           BGPDT    - BGPDT DATA (REAL ARRAY)     (REARRANGED)\r\nC           IGPDT    - BGPDT DATA (INTEGER ARRAY)  (REARRANGED)\r\nC           GPTH     - GRID POINT THICKNESS DATA   (REARRANGED)\r\nC           GPTEMP   - GRID POINT TEMPERATURE DATA (REARRANGED)\r\nC           BGPDM    - BGPDT DATA SAVED IN ORIGINAL FORMAT\r\nC           EGPDT    - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           DGPTH    - GRID POINT THICKNESS DATA\r\nC           GPNORM   - GRID POINT NORMALS\r\nC           EPNORM   - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM\r\nC           NNODE    - THE NO. OF NODES PRESENT IN THE ELEMENT\r\nC           MMN      - ARRAY OF MISSING MIDSIDE NODES\r\nC           NSIL     - INTERNALLY ORDERED SIL ARRAY\r\nC           IORDER   - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           IORDRN   - ARRAY OF ORDER INDICATORS FOR TRIA\r\nC           TEB      - TRANSFORMATION FROM ELEMENT TO BASIC COORD.SYSTEM\r\nC           TUB      - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM\r\nC           CENTE    - LOCATION OF THE CENTER OF THE ELEMENT\r\nC           AVGTHK   - AVERAGE THICKNESS OF THE ELEMENT\r\nC\r\n      LOGICAL          QUAD\r\n      INTEGER          SIL(8),IORDER(8),KSIL(8),KCID(8),MMN(8),NSIL(8),\r\n     1                 IORDRN(8),IGPDT(4,8),ELID\r\n      REAL             GPTEMP(8),TEMTEM(8),BGPDT(4,8),TGRID(4,8),\r\n     1                 GPTH(8),TMPTHK(8),BGPDM(3,8)\r\n      REAL             CENT(3),CENTE(3),EGPDT(4,8),GGU(9),GGN(9),TEB(9),\r\n     1                 TEU(9),SMAX,SMIN,SL(3),GGE(9),TUB(9),CC,DGPTH(8),\r\n     2                 GPNORM(4,8),EPNORM(4,8),X31,Y31,X42,Y42,EXI,EXJ,\r\n     3                 AA,BB,UGPDM(3,8),TCE(63),AVGTHK\r\nC\r\nC\r\n      IF (MM.NE.3 .AND. MM.NE.4 .AND. MM.NE.6 .AND. MM.NE.8) GO TO 700\r\nC           TRIA3         QUAD4         TRIA6         QUAD8\r\nC\r\n      QUAD = MM.EQ.8 .OR. MM.EQ.4\r\n      MMX  = 3\r\n      IF (QUAD) MMX = 4\r\n      NNODE = MM\r\n      DO 10 I = 1,MM\r\n      MMN(I) = SIL(I)\r\n      KSIL(I)= SIL(I)\r\n      IF (SIL(I) .GT. 0) GO TO 10\r\n      NNODE = NNODE - 1\r\n   10 CONTINUE\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1,2 AND 4\r\nC     (3 FOR TRIA). THIS ARRAY WILL BE USED LATER TO DEFINE THE USER\r\nC     COORDINATE SYSTEM WHILE CALCULATING TRANSFORMATIONS INVOLVING\r\nC     THIS COORDINATE SYSTEM.\r\nC\r\n      DO 20 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (QUAD .AND. IJ.EQ.3) IJ = 4\r\n      DO 20 J = 1,3\r\n      JJ = J + 1\r\n   20 GGU(II+J) = BGPDT(JJ,IJ)\r\n      CALL BETRNS (TUB,GGU,0,ELID)\r\nC\r\nC     STORE INCOMING BGPDT FOR LUMPED MASS AND ELEMENT COORD. SYSTEM\r\nC\r\n      DO 30 I = 1,3\r\n      I1 = I + 1\r\n      DO 30 J = 1,MM\r\n   30 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER COORD. SYSTEM\r\nC\r\n      DO 40 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 40 J = 1,MM\r\n      UGPDM(I,J) = 0.0\r\n      DO 40 K = 1,3\r\n      KK = IP + K\r\n   40 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(BGPDM(K,J)-GGU(K))\r\nC\r\n      IF (QUAD) GO TO 200\r\nC\r\nC     FOR TRIA\r\nC     CALCULATE THE CENTER COORDINATES\r\nC\r\n      CENTE(1) = (GGU(1)+GGU(4)+GGU(7))/3.0\r\n      CENTE(2) = (GGU(2)+GGU(5)+GGU(8))/3.0\r\n      CENTE(3) = (GGU(3)+GGU(6)+GGU(9))/3.0\r\nC\r\nC     ESTABLISH THE INTERNAL COORDINATES:\r\nC     X-AXIS IS ALONG THE MIDDLE-SIZED SIDE AND THE XY-PLANE IS\r\nC     DETERMINED BY IT TOGETHER WITH THE SHORTEST SIDE\r\nC\r\n      CC = (GGU(7)-GGU(4))*(GGU(7)-GGU(4))\r\n     1   + (GGU(8)-GGU(5))*(GGU(8)-GGU(5))\r\n     2   + (GGU(9)-GGU(6))*(GGU(9)-GGU(6))\r\n      IF (CC .LE. 0.0) GO TO 700\r\n      SL(1) = SQRT(CC)\r\n      CC = (GGU(7)-GGU(1))*(GGU(7)-GGU(1))\r\n     1   + (GGU(8)-GGU(2))*(GGU(8)-GGU(2))\r\n     2   + (GGU(9)-GGU(3))*(GGU(9)-GGU(3))\r\n      IF (CC .LE. 0.0) GO TO 700\r\n      SL(2) = SQRT(CC)\r\n      CC = (GGU(4)-GGU(1))*(GGU(4)-GGU(1))\r\n     1   + (GGU(5)-GGU(2))*(GGU(5)-GGU(2))\r\n     2   + (GGU(6)-GGU(3))*(GGU(6)-GGU(3))\r\n      IF (CC .LE. 0.0) GO TO 700\r\n      SL(3) = SQRT(CC)\r\n      SMAX  = SL(1)\r\n      ISMAX = 1\r\n      DO 100 I = 2,3\r\n      IF (SL(I) .LE. SMAX) GO TO 100\r\n      SMAX  = SL(I)\r\n      ISMAX = I\r\n  100 CONTINUE\r\n      SMIN  = SL(1)\r\n      ISMIN = 1\r\n      DO 110 I = 2,3\r\n      IF (SL(I) .GE. SMIN) GO TO 110\r\n      SMIN  = SL(I)\r\n      ISMIN = I\r\n  110 CONTINUE\r\n      IF (ISMAX .EQ. ISMIN) ISMIN = 3\r\n      MIDDL = IABS(ISMAX-ISMIN)\r\n      IF (ISMAX+ISMIN .EQ. 3) MIDDL = 3\r\nC\r\nC     DETECT THE POSSIBLE REVERSAL OF THE INTERNAL Z-AXIS WITH RESPECT\r\nC     TO THE USER Z-AXIS. IF THAT IS THE CASE, SWITCH ISMAX AND ISMIN\r\nC     TO AVOID THE PROBLEM. THE SIDE WITH MEDIUM LENGTH WILL STILL BE\r\nC     THE X-AXIS.\r\nC\r\n      IF (ISMAX .NE. MOD(ISMIN,3)+1) GO TO 120\r\n      III    = ISMIN\r\n      ISMIN  = ISMAX\r\n      ISMAX  = III\r\nC\r\n  120 IS3    = 3*(ISMAX-1)\r\n      GGN(1) = GGU(IS3+1)\r\n      GGN(2) = GGU(IS3+2)\r\n      GGN(3) = GGU(IS3+3)\r\nC\r\n      IS3    = 3*(ISMIN-1)\r\n      GGN(4) = GGU(IS3+1)\r\n      GGN(5) = GGU(IS3+2)\r\n      GGN(6) = GGU(IS3+3)\r\nC\r\n      IS3    = 3*(MIDDL-1)\r\n      GGN(7) = GGU(IS3+1)\r\n      GGN(8) = GGU(IS3+2)\r\n      GGN(9) = GGU(IS3+3)\r\nC\r\n      CALL BETRNS (TEB,GGN,0,ELID)\r\n      GO TO 300\r\nC\r\nC     FOR QUAD\r\nC     THE ORIGIN OF THE ELEMENT COORD.SYSTEM IS IN THE MIDDLE OF THE\r\nC     ELEMENT\r\nC\r\n  200 DO 210 J = 1,3\r\n      CENT(J) = 0.0\r\n      DO 210 I = 1,MM\r\n  210 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER COORD. SYSTEM\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = X31*X31 + Y31*Y31\r\n      IF (AA .LE. 0.0) GO TO 700\r\n      AA  = SQRT(AA)\r\n      BB  = X42*X42 + Y42*Y42\r\n      IF (BB .LE. 0.0) GO TO 700\r\n      BB  = SQRT(BB)\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT COORD. SYSTEM AND USER\r\nC     COORD. SYSTEM\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\n      CALL BETRNS (TEU,GGE,0,ELID)\r\n      CALL GMMATS (TEU,3,3,0, TUB,3,3,0,  TEB)\r\n      CALL GMMATS (TUB,3,3,1, CENT,3,1,0, CENTE)\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL\r\nC     ORDER.\r\nC\r\nC     IORDER(1)  = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(MM) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST\r\nC     G1,G2,G3,G4,G5,G6,G7,G8 .  THAT IS, THE \"I\" PART OF THE \"GI\" AS\r\nC     THEY ARE LISTED ON THE CONNECTIVITY BULK DATA CARD DESCRIPTION.\r\nC\r\n  300 KSILD = 99999995\r\n      DO 310 I = 1,MM\r\n      IORDER(I) = 0\r\n      IORDRN(I) = 0\r\n      KSIL(I) = SIL(I)\r\n      IF (SIL(I) .NE. 0) GO TO 310\r\n      KSIL(I) = KSILD\r\n      KSILD   = KSILD + 1\r\n  310 CONTINUE\r\n      DO 330 I = 1,MM\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 320 J = 2,MM\r\n      IF (ISIL .LE. KSIL(J)) GO TO 320\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n  320 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      IORDRN(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  330 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA\r\nC     INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE FUNCTIONS GO\r\nC     WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\n      DO 350 I = 1,MM\r\n      KSIL(I)  = SIL(I)\r\n      TMPTHK(I)= GPTH(I)\r\n      IF (MM .NE. 4) TEMTEM(I) = GPTEMP(I)\r\n      KCID(I) = IGPDT(1,I)\r\n      DO 340 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n  340 CONTINUE\r\n  350 CONTINUE\r\n      DO 370 I = 1,MM\r\n      IPOINT  = IORDER(I)\r\n      SIL(I)  = KSIL(IPOINT)\r\n      NSIL(I) = KSIL(IPOINT)\r\n      GPTH(I) = TMPTHK(IPOINT)\r\n      IF (MM .NE. 4) GPTEMP(I) = TEMTEM(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      DO 360 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  360 CONTINUE\r\n  370 CONTINUE\r\nC\r\n      IF (QUAD) GO TO 500\r\nC\r\nC     FOR TRIA\r\nC     CREATE THE INTERNAL ORDER OF THE NODES OF ELEMENT IN CONNECTION\r\nC     WITH THE INTERNAL COORDINATE SYSTEM THEN CALCULATE NORMALS\r\nC\r\n      DO 400 I = 1,MM\r\n      IF (IORDER(I) .EQ. ISMAX) IORDRN(I) = 1\r\n      IF (IORDER(I) .EQ. ISMIN) IORDRN(I) = 2\r\n      IF (IORDER(I) .EQ. MIDDL) IORDRN(I) = 3\r\n      IF (IORDER(I) .EQ. 4) IND4=I\r\n      IF (IORDER(I) .EQ. 5) IND5=I\r\n      IF (IORDER(I) .EQ. 6) IND6=I\r\n  400 CONTINUE\r\n      IF (MM .NE. 6) GO TO 410\r\n      IF (ISMAX+ISMIN .EQ. 3) IORDRN(IND4) = 4\r\n      IF (ISMAX+ISMIN .EQ. 4) IORDRN(IND6) = 4\r\n      IF (ISMAX+ISMIN .EQ. 5) IORDRN(IND5) = 4\r\n      IF (ISMIN+MIDDL .EQ. 3) IORDRN(IND4) = 5\r\n      IF (ISMIN+MIDDL .EQ. 4) IORDRN(IND6) = 5\r\n      IF (ISMIN+MIDDL .EQ. 5) IORDRN(IND5) = 5\r\n      IF (MIDDL+ISMAX .EQ. 3) IORDRN(IND4) = 6\r\n      IF (MIDDL+ISMAX .EQ. 4) IORDRN(IND6) = 6\r\n      IF (MIDDL+ISMAX .EQ. 5) IORDRN(IND5) = 6\r\nC\r\n  410 DO 420 I = 1,3\r\n      II = I + 1\r\n      IP = (I-1)*3\r\n      DO 420 J = 1,NNODE\r\n      EGPDT(II,J) = 0.0\r\n      DO 420 K = 1,3\r\n      KK = IP + K\r\n      EGPDT(II,J) = EGPDT(II,J) + TEB(KK)*(BGPDT(K+1,J)-GGN(K))\r\n  420 CONTINUE\r\nC\r\nC     USE THE POINTERS IN IORDER AND IORDRN TO REORDER MMN\r\nC\r\n      DO 430 I = 1,MM\r\n      IPOINT = IORDRN(I)\r\n      JPOINT = IORDER(I)\r\n      MMN(IPOINT) = KSIL(JPOINT)\r\n  430 CONTINUE\r\nC\r\n      IF (MM .NE. 3) GO TO 520\r\n      DO 440 II=1,3\r\n      EPNORM(1,II) = 0.0\r\n      EPNORM(2,II) = 0.0\r\n      EPNORM(3,II) = 0.0\r\n      EPNORM(4,II) = 1.0\r\n      GPNORM(1,II) = 0.0\r\n      GPNORM(2,II) = TEB(7)\r\n      GPNORM(3,II) = TEB(8)\r\n      GPNORM(4,II) = TEB(9)\r\n  440 CONTINUE\r\n      GO TO 520\r\nC\r\nC     FOR QUAD - COMPUTE NODAL NORMALS\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE TRANSFORMED\r\nC     FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM\r\nC\r\n  500 IFLAG = 0\r\n      IF (MM .EQ. 4) CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .NE. 0) GO TO 700\r\nC\r\n      DO 510 I = 1,3\r\n      II = I + 1\r\n      IP = (I-1)*3\r\n      DO 510 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0\r\n      EGPDT (II,J) = 0.0\r\n      DO 510 K = 1,3\r\n      KK = IP + K\r\n      K1 = K  + 1\r\n      CC = BGPDT(K1,J) - GGU(K) - CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n      EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC\r\n  510 CONTINUE\r\nC\r\nC     SET AVGTHK TO ZERO\r\nC\r\n  520 AVGTHK = 0.0\r\n      DO 550 I = 1,NNODE\r\n      IO = IORDER(I)\r\n      IF (IO .GT. MMX) GO TO 550\r\nC\r\n      IF (GPTH(I)) 700,530,540\r\n  530 IF (ELTH .LE. 0.0) GO TO 700\r\n      GPTH(I)  = ELTH\r\n  540 DGPTH(I) = GPTH(I)\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  550 CONTINUE\r\nC\r\n      DO 620 I = 1,NNODE\r\n      IO = IORDER(I)\r\n      IF (IO      .LE. MMX) GO TO 620\r\n      IF (GPTH(I) .GT. 0.0) GO TO 610\r\n      IO1 = IO  - MMX\r\n      IO2 = IO1 + 1\r\n      IF (IO2 .EQ. MMX+1) IO2 = 1\r\n      DO 600 J = 1,MM\r\n      JO = IORDER(J)\r\n      IF (JO .EQ. IO1) IC1 = J\r\n      IF (JO .EQ. IO2) IC2 = J\r\n  600 CONTINUE\r\n      GPTH (I) = (GPTH(IC1)+GPTH(IC2))/2.0\r\n  610 DGPTH(I) = GPTH(I)\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  620 CONTINUE\r\n      RETURN\r\nC\r\n  700 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/shstns.f",
    "content": "      SUBROUTINE SHSTNS (NUMPX,ELID,IGRID,Z12,EPSLNI,BENDNG,IDR)\r\nC\r\nC     TO CALCULATE SHELL ELEMENT STRAINS FOR A 2-D FORMULATION BASE.\r\nC     COMPOSITE LAYER STRAINS ARE NOT CALCULATED IN THIS ROUTINE.\r\nC\r\nC\r\nC     INPUT :\r\nC           NUMPX  - NUMBER OF EVALUATION POINTS\r\nC           ELID   - ELEMENT ID\r\nC           IGRID  - ARRAY IF EXTERNAL GRID IDS\r\nC           Z12    - EVALUATION POINT FIBER DISTANCES\r\nC           EPSLNI - CORRECTED STRAINS AT EVALUATION POINTS\r\nC           BENDNG - INDICATES THE PRESENCE OF BENDING BEHAVIOR\r\nC           IDR    - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S\r\nC          /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS\r\nC\r\nC     OUTPUT:\r\nC           STRAINS ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/.\r\nC\r\nC\r\nC     THE STRAIN OUTPUT DATA BLOCK, UAI CODE\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     --------------------------------------------------------------\r\nC        2       GRID POINT NUMBER OR 'CNTR'\r\nC      3 - 10    STRAINS FOR LOWER POINTS OR MEMBRANE STRAINS\r\nC     11 - 18    STRAINS FOR UPPER POINTS OR BENDING CURVATURES\r\nC     ---------- ABOVE DATA REPEATED 3 TIMES\r\nC                FOR GRID POINTS\r\nC\r\nC\r\nC     THE STRAIN OUTPUT DATA BLOCK, AT ELEMENT CENTER ONLY, COSMIC\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     --------------------------------------------------------------\r\nC        2       LOWER FIBER DISTANCE\r\nC      3 -  9    STRAINS FOR LOWER POINTS OR MEMBRANE STRAINS\r\nC       10       UPPER FIBER DISTANCE\r\nC     11 - 17    STRAINS FOR UPPER POINTS OR BENDING CURVATURES\r\nC     ---------- ABOVE DATA REPEATED 3 TIMES\r\nC                FOR GRID POINTS\r\nC\r\nC\r\n      LOGICAL         BENDNG,STSREQ,STNREQ,FORREQ,STRCUR,\r\n     1                GRIDS,VONMS,LAYER,GRIDSS,VONMSS,LAYERS,COSMIC\r\n      INTEGER         IGRID(1),NSTRIN(1),IDR(1),ELID\r\nCWKBI NCL93012 3/94\r\n      INTEGER         NSTRES(1)\r\n      REAL            Z12(2,1),EPSLNI(6,1),EPSIL(3),EPSS,FIBER,EPSILP(4)\r\n      COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100)\r\n      COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER\r\n     1,               GRIDSS,VONMSS,LAYERS\r\n      EQUIVALENCE     (NSTRIN(1),STRIN(1))\r\nCWKBI NCL93012 3/94\r\n      EQUIVALENCE     (NSTRES(1), STRES(1))\r\nCWKBNB 7/94 SPR94004\r\n      LOGICAL         OSTRAI\r\n      COMMON / BLANK/ APP(2), SORT2, IDUM(2), COMPS, SKP(4), OSTRAI\r\n     &,               SK2(39), MIDVE\r\nCWKBNE 7/94 SPR94004\r\n      DATA    COSMIC, EPSS / .TRUE., 1.0E-17 /\r\nC\r\nC\r\nC     ELEMENT ENTER COMPUATION ONLY FOR COSMIC\r\nC     I.E. CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI\r\nC\r\n      NUMP = NUMPX\r\n      IF (COSMIC) NUMP = 1\r\nC\r\n      NSTRIN(1) = ELID\r\nC\r\nC     START THE LOOP ON EVALUATION POINTS\r\nC\r\n      NUMP1 = NUMP - 1\r\n      DO 250 INPLAN = 1,NUMP\r\nC\r\n      ISTRIN = 1\r\n      IF (COSMIC) GO TO 140\r\nC\r\n      ISTRIN = (INPLAN-1)*17 + 2\r\n      NSTRIN(ISTRIN) = INPLAN - 1\r\n      IF (.NOT.GRIDSS .OR. INPLAN.LE.1) GO TO 130\r\n      DO 100 INPTMP = 1,NUMP1\r\n      IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 120\r\n  100 CONTINUE\r\n      CALL ERRTRC ('SHSTNS  ',100)\r\n  120 ISTRIN = INPTMP*17 + 2\r\n      NSTRIN(ISTRIN) = IGRID(INPLAN)\r\n  130 IF (INPLAN .EQ. 1) NSTRIN(ISTRIN) = IGRID(INPLAN)\r\nC\r\nC     START THE LOOP ON FIBERS\r\nC\r\n  140 DO 240 IZ = 1,2\r\n      IF (.NOT.STRCUR) GO TO 190\r\nC\r\nC     IF STRAIN/CURVATURE IS REQUESTED, SIMPLY OUTPUT THE AVAILABLE\r\nC     STRAINS.\r\nC\r\n      STRIN(ISTRIN+1) = 0.0\r\n      DO 150 I = 1,3\r\n      EPSIL(I) = 0.0\r\n  150 CONTINUE\r\nCWKBI 7/94 SPR94004\r\n      IF ( OSTRAI .AND. IZ .EQ. 2 ) GO TO 171\r\n      IF (IZ .NE. 1) GO TO 170\r\n      DO 160 I = 1,3\r\n      EPSIL(I) = EPSLNI(I,INPLAN)\r\n  160 CONTINUE\r\nCWKBI 7/94 SPR94004\r\n      IF ( OSTRAI .AND. IZ .EQ. 1 ) GO TO 220\r\n  170 IF (.NOT.BENDNG .OR. IZ.NE.2) GO TO 190\r\nCWKBI 7/94 SPR94004\r\n  171 CONTINUE\r\n      DO 180 I = 1,3\r\n      EPSIL(I) = EPSLNI(I+3,INPLAN)\r\n  180 CONTINUE\r\n      GO TO 220\r\nC\r\nC     IF FIBER STRAINS ARE REQUESTED, EVALUATE STRAINS AT THIS FIBER\r\nC     DISTANCE\r\nC\r\n  190 FIBER = Z12(IZ,INPLAN)\r\n      STRIN(ISTRIN+1) = FIBER\r\n      DO 200 I = 1,3\r\n      EPSIL(I) = EPSLNI(I,INPLAN) - EPSLNI(I+3,INPLAN)*FIBER\r\n  200 CONTINUE\r\nC\r\nC     CLEANUP AND SHIP CALCULATED STRAINS\r\nC\r\n  220 DO 230 ITS = 1,3\r\n      IF (ABS(EPSIL(ITS)) .LE. EPSS) EPSIL(ITS) = 0.0\r\nCWKBR NCL93012 3/94      STRIN(ISTRIN+1+ITS) = EPSIL(ITS)  \r\n      STRES(ISTRIN+1+ITS) = EPSIL(ITS) \r\n  230 CONTINUE\r\nC\r\nC     CALCULATE PRINCIPAL STRAINS\r\nC\r\n      CALL SHPSTS (EPSIL(1),VONMSS,EPSILP)\r\nCWKBDB NCL93012 3/94\r\nC      STRIN(ISTRIN+5) = EPSILP(1)\r\nC      STRIN(ISTRIN+6) = EPSILP(2)\r\nC      STRIN(ISTRIN+7) = EPSILP(3)\r\nC      STRIN(ISTRIN+8) = EPSILP(4)\r\nCWKBDE NCL93012 3/94\r\nCWKBNB NCL93012 3/94\r\n      NSTRES( ISTRIN+1 ) = 0\r\n      IF ( IZ .EQ. 2 ) NSTRES( ISTRIN+1) = -1\r\n      STRES(ISTRIN+5) = EPSILP(1)\r\n      STRES(ISTRIN+6) = EPSILP(2)\r\n      STRES(ISTRIN+7) = EPSILP(3)\r\n      STRES(ISTRIN+8) = EPSILP(4) * 2.\r\nCWKBNE NCL93012 3/94\r\nC\r\n      ISTRIN = ISTRIN + 8\r\n  240 CONTINUE\r\n  250 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shstss.f",
    "content": "      SUBROUTINE SHSTSS (NUMPX,ELID,IGRID,THIKNS,Z12,G,EPSCSI,STEMP,\r\n     1                   TBAR,G2ALFB,BENDNG,IDR)\r\nC\r\nC     TO CALCULATE SHELL ELEMENT STRESSES FOR A 2-D FORMULATION BASE.\r\nC     COMPOSITE LAYER STRESSES ARE NOT CALCULATED IN THIS ROUTINE.\r\nC\r\nC\r\nC     INPUT :\r\nC           NUMPX  - NUMBER OF EVALUATION POINTS\r\nC           ELID   - ELEMENT ID\r\nC           IGRID  - ARRAY IF EXTERNAL GRID IDS\r\nC           THIKNS - EVALUATION POINT THICKNESSES\r\nC           Z12    - EVALUATION POINT FIBER DISTANCES\r\nC           G      - 6X6 STRESS-STRAIN MATRIX\r\nC           EPSCSI - CORRECTED STRAINS AT EVALUATION POINTS\r\nC           STEMP  - TEMPERATURE DATA FOR STRESS RECOVERY\r\nC           TBAR   - AVERAGE ELEMENT TEMPERATURE\r\nC           G2ALFB - MATRIX USED IN RECORRECTING OF STRESSES\r\nC           BENDNG - INDICATES THE PRESENCE OF BENDING BEHAVIOR\r\nC           IDR    - REORDERING ARRAY BASED ON EXTERNAL GRID POINT ID'S\r\nC          /TMPDAT/- TEMPERATURE-RELATED LOGICAL FLAGS\r\nC          /OUTREQ/- OUTPUT REQUEST LOGICAL FLAGS\r\nC\r\nC     OUTPUT:\r\nC           STRESSES ARE PLACED AT THE PROPER LOCATION IN /SDR2X7/.\r\nC\r\nC\r\nC     THE STRESS OUTPUT DATA BLOCK (UAI CODE)\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     -------------------------------------------------------\r\nC        2       'CNTR'\r\nC        3       LOWER FIBER DISTANCE\r\nC      4 - 10    STRESSES FOR LOWER POINTS AT ELEMENT CENTER POINT\r\nC       11       UPER  FIBER DISTANCE\r\nC     12 - 18    STRESSES FOR UPPER POINTS AT ELEMENT CENTER POINT\r\nC       19       FIRST GRID POINT NUMBER\r\nC     20 - 35    REPEAT  3 TO 18 ABOVE FOR FIRST  GRID POINT\r\nC     36 - 52    REPAET 19 TO 36 ABOVE FOR SECOND GRID POINT\r\nC     53 - 69    REPAET 19 TO 36 ABOVE FOR THIRD  GRID POINT\r\nC\r\nC\r\nC     THE STRESS OUTPUT DATA BLOCK AT ELEMENT CENTER ONLY, COSMIC\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     -------------------------------------------------------\r\nC        2       LOWER FIBER DISTANCE\r\nC      3 -  9    STRESSES FOR LOWER POINTS AT ELEMENT CENTER POINT\r\nC       10       UPER  FIBER DISTANCE\r\nC     11 - 17    STRESSES FOR UPPER POINTS AT ELEMENT CENTER POINT\r\nC\r\nC\r\n      LOGICAL         GRIDS, VONMS, LAYER, STRCUR,BENDNG,STSREQ,STNREQ,\r\n     1                GRIDSS,VONMSS,LAYERS,FORREQ,TEMPER,TEMPP1,TEMPP2,\r\n     2                COSMIC\r\n      INTEGER         IGRID(1),NSTRES(1),IDR(1),ELID\r\n      REAL            STEMP(2)\r\n      REAL            THIKNS(1),Z12(2,1),G(6,6),EPSCSI(6,1),G2ALFB(3,1),\r\n     1                S1MAT(3,3),S2MAT(3,3),SIGMA(3),EPSS,SIGMAP(4),\r\n     2                THICK,T3OV12,FIBER,CONST,TBAR,TPRIME,TSUBI\r\n      COMMON /SDR2X7/ DUM71(100),STRES(100),FORSUL(200),STRIN(100)\r\n      COMMON /TMPDAT/ TEMPER,TEMPP1,TEMPP2\r\n      COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER\r\n     1,               GRIDSS,VONMSS,LAYERS\r\n      EQUIVALENCE     (NSTRES(1),STRES(1))\r\n      DATA    COSMIC, EPSS  / .TRUE., 1.0E-11 /\r\nC\r\nC\r\nC     ELEMENT CENTER POINT COMPUTAION ONLY FOR COSMIC,\r\nC     I.E. THE CALLER SHOULD PASS 1 IN NUMPX FOR COSMIC, 4 FOR UAI\r\nC\r\n      NUMP = NUMPX\r\n      IF (COSMIC) NUMP = 1\r\nC\r\n      NSTRES(1) = ELID\r\nC\r\nC     START THE LOOP ON EVALUATION POINTS\r\nC\r\n      NUMP1 = NUMP - 1\r\n      DO 300 INPLAN = 1,NUMP\r\n      THICK  = THIKNS(INPLAN)\r\n      T3OV12 = THICK*THICK*THICK/12.0\r\nC\r\n      ISTRES = 1\r\n      IF (COSMIC) GO TO 140\r\nC\r\n      ISTRES = (INPLAN-1)*17 + 2\r\n      NSTRES(ISTRES) = INPLAN - 1\r\n      IF (.NOT.GRIDS .OR. INPLAN.LE.1) GO TO 130\r\n      DO 100 INPTMP = 1,NUMP1\r\n      IF (IDR(INPTMP) .EQ. IGRID(INPLAN)) GO TO 120\r\n  100 CONTINUE\r\n      CALL ERRTRC ('SHSTSS  ',100)\r\n  120 ISTRES = INPTMP*17 + 2\r\n      NSTRES(ISTRES) = IGRID(INPLAN)\r\n  130 IF (INPLAN .EQ. 1) NSTRES(ISTRES) = IGRID(INPLAN)\r\nC\r\nC\r\nC     START THE LOOP ON FIBERS\r\nC\r\n  140 DO 280 IZ = 1,2\r\n      FIBER = Z12(IZ,INPLAN)\r\n      STRES(ISTRES+1) = FIBER\r\n      CONST = 12.0*FIBER/THICK\r\nC\r\nC     CREATE [S1] AND [S2]\r\nC\r\n      DO 150 I = 1,3\r\n      DO 150 J = 1,3\r\n      S1MAT(I,J) = G(I  ,J  ) - CONST*G(I,J+3)\r\n      S2MAT(I,J) = G(I+3,J+3) - CONST*G(I,J+3)\r\n  150 CONTINUE\r\nC\r\nC     EVALUATE STRESSES AT THIS FIBER DISTANCE\r\nC\r\n      DO 170 I = 1,3\r\n      SIGMA(I) = 0.0\r\n      DO 160 J = 1,3\r\n      SIGMA(I) = SIGMA(I) + S1MAT(I,J)*EPSCSI(J  ,INPLAN)\r\n     1         - FIBER    * S2MAT(I,J)*EPSCSI(J+3,INPLAN)\r\n  160 CONTINUE\r\n  170 CONTINUE\r\nC\r\nC     IF TEMPERATURES ARE PRESENT, RECORRECT STRESSES FOR THERMAL\r\nC     STRESSES RESULTING FROM TEMPERATURE VALUES AT FIBER DISTANCES.\r\nC\r\n      IF (.NOT.TEMPER .OR. .NOT.BENDNG) GO TO 250\r\n      IF (.NOT.TEMPP1) GO TO 180\r\n      TPRIME = STEMP(2   )\r\n      TSUBI  = STEMP(2+IZ)\r\n      IF (ABS(TSUBI) .LT. EPSS) GO TO 250\r\n      TSUBI  = TSUBI - TPRIME*FIBER\r\n      GO TO 220\r\nC\r\n  180 IF (.NOT.TEMPP2) GO TO 250\r\n      TSUBI = STEMP(4+IZ)\r\n      IF (ABS(TSUBI) .LT. EPSS) GO TO 250\r\n      DO 200 IST = 1,3\r\n      SIGMA(IST) = SIGMA(IST) - STEMP(IST+1)*FIBER/T3OV12\r\n  200 CONTINUE\r\nC\r\n  220 TSUBI = TSUBI - TBAR\r\n      DO 230 ITS = 1,3\r\n      SIGMA(ITS) = SIGMA(ITS) - TSUBI*G2ALFB(ITS,INPLAN)\r\n  230 CONTINUE\r\nC\r\nC     CLEANUP AND SHIP CORRECTED STRESSES\r\nC\r\n  250 DO 260 ITS = 1,3\r\n      IF (ABS(SIGMA(ITS)) .LE. EPSS) SIGMA(ITS) = 0.0\r\n      STRES(ISTRES+1+ITS) = SIGMA(ITS)\r\n  260 CONTINUE\r\nC\r\nC     CALCULATE PRINCIPAL STRESSES\r\nC\r\n      CALL SHPSTS (SIGMA,VONMS,SIGMAP)\r\n      STRES(ISTRES+5) = SIGMAP(1)\r\n      STRES(ISTRES+6) = SIGMAP(2)\r\n      STRES(ISTRES+7) = SIGMAP(3)\r\n      STRES(ISTRES+8) = SIGMAP(4)\r\nC\r\n      ISTRES = ISTRES + 8\r\n  280 CONTINUE\r\n  300 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shstts.f",
    "content": "      SUBROUTINE SHSTTS (TAB,UAB,VAB)\r\nC\r\nC     TO CREATE STRESS TENSOR TRANSFORMATION MATRICES FROM AN ORTHOGONAL\r\nC     TRANSFORMATION FOR SHELL ELEMENTS.\r\nC\r\nC     INPUT :\r\nC           TAB    - ORTHOGONAL INPLANE ROTATION TRANSFORMATION\r\nC     OUTPUT:\r\nC           UAB    - TENSOR TRANSFORMATION FOR NORMAL AND INPLANE SHEAR\r\nC                    COMPONENTS\r\nC           VAB    - TENSOR TRANSFORMATION FOR OUT-OF-PLANE SHEAR\r\nC\r\nC     USAGE:\r\nC           THE INPUT IS ASSUMED TO BE ROW-LOADED.\r\nC           OUTPUTS ARE CREATED ROW-LOADED.\r\nC           DEFINING:\r\nC           [S]      AS A 2-D STRESS VECTOR;\r\nC           [E]      AS A 2-D STRAIN VECTOR;\r\nC           [Q]      AS A 2-D SHEAR FORCE VECTOR;\r\nC           [G]      AS A 2-D STRESS/FORCE-STRAIN RELATION; AND\r\nC           [ALPHA]  AS A VECTOR OF THERMAL EXPANSION COEFFICIENTS,\r\nC\r\nC           THEN THE FOLLOWING RELATIONSHIPS ARE TRUE:\r\nC\r\nC                       T                        T\r\nC           [S]  = [UAB] [S]         [G]  = [UAB] [G] [UAB]\r\nC              A            B           A            B\r\nC\r\nC                       T\r\nC           [Q]  = [VAB] [Q]\r\nC              A            B\r\nC\r\nC           IF [TBA] IS INPUT, THE OUTPUT WILL BE:\r\nC\r\nC                -1                      -1       T\r\nC           [UAB]  = [UBA],   AND   [VAB]  = [VAB] = [VBA]\r\nC\r\nC           WHICH MAY BE USED IN THE FOLLOWING:\r\nC\r\nC           [E]  = [UBA] [E]         [ALPHA]  = [UBA] [ALPHA]\r\nC              A            B               A                B\r\nC\r\nC           [Q]  = [VBA][Q]\r\nC              A           B\r\nC\r\nC\r\n      REAL     TAB(9),UAB(9),VAB(4)\r\nC\r\n      UAB(1) = TAB(1)*TAB(1)\r\n      UAB(2) = TAB(4)*TAB(4)\r\n      UAB(3) = TAB(1)*TAB(4)\r\n      UAB(4) = TAB(2)*TAB(2)\r\n      UAB(5) = TAB(5)*TAB(5)\r\n      UAB(6) = TAB(2)*TAB(5)\r\n      UAB(7) = TAB(1)*TAB(2)*2.0\r\n      UAB(8) = TAB(4)*TAB(5)*2.0\r\n      UAB(9) = TAB(1)*TAB(5) + TAB(2)*TAB(4)\r\nC\r\n      VAB(1) = TAB(5)*TAB(9)\r\n      VAB(2) = TAB(2)*TAB(9)\r\n      VAB(3) = TAB(4)*TAB(9)\r\n      VAB(4) = TAB(1)*TAB(9)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/shtrmd.f",
    "content": "      SUBROUTINE SHTRMD (*,ELID,MM,NNODE,XI,ETA,GPTH,EPNORM,EGPDT,\r\n     1                   IORDER,MMN,DETERM,TH,SHP,TIE,BTERMS)\r\nC\r\nC     TO CONSTRUCT THE JACOBIAN, SET UP INTEGRATION POINT COORD.\r\nC     SYSTEM, AND CALCULATE [B] TERMS FOR THE ISOPARAMETRIC QUADRATIC\r\nC     QUAD8 AND TRIA6 SHELL ELEMENTS\r\nC     =====     =====\r\nC\r\nC        *********************************************************\r\nC        *                                                       *\r\nC        *  PRESENTLY COSMIC/NASTRAN DOES NOT USE THIS ROUTINE   *\r\nC        *                                                       *\r\nC        *********************************************************\r\nC\r\nC     INPUT :\r\nC           ELID     - ELEMENT ID\r\nC           MM       - MAXIMUM NO. OF NODES FOR THIS TYPE ELEMENT\r\nC           NNODE    - THE NO. OF PRESENT NODES\r\nC           XI\r\nC           ETA      - INTEGERATION POINT COORDINATES\r\nC           GPTH     - GRID POINT THICKNESSES\r\nC           EPNORM   - GRID POINT NORMALS IN ELEMENT COORD. SYSTEM\r\nC           EGPDT    - GRID POINT DATA IN ELEMENT COORD. SYSTEM\r\nC           IORDER   - REORDERING ARRAY\r\nC           MMN      - MISSING MIDSIDE NODE INDICATOR\r\nC     OUTPUT:\r\nC           DETERM   - DETERMINANT OF JACOBIAN\r\nC           TH       - THICKNESS AT THIS INTEGRATION POINT\r\nC           SHP      - ARRAY OF SHAPE FUNCTIONS\r\nC           TIE      - TRANSFORMATION BETWEEN INTEG. PT. AND ELEMENT\r\nC                      COORD. SYSTEMS\r\nC           BTERMS   - TERMS OF [B] (DERIVATIVES OF SHAPE FUNCTIONS\r\nC                      WITH RESPECT TO XYZ OF ELEMENT COORD. SYSTEM)\r\nC\r\n      LOGICAL          BADJAC\r\n      INTEGER          IORDER(1),MMN(1),ELID\r\n      DOUBLE PRECISION EGPDT(4,1),EPNORM(4,1),DETERM,XI,ETA,HZTA,DETJ,\r\n     1                 SHP(10),JACOB(3,3),DSHPX(10),DSHPE(10),DSHP(16),\r\n     2                 TSHP(8),TDSHP(16),BTERMS(1),PSITRN(9),TIE(9),\r\n     3                 GPTH(1),TH\r\n      COMMON /Q8T6DT/  DETJ,HZTA,PSITRN,NN1,BADJAC,NN2\r\nC\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\n      IF (MM .EQ. 8) GO TO 10\r\n      IF (MM .EQ. 6) GO TO 20\r\n      GO TO 80\r\nC\r\nC     QUAD8 VERSION\r\nC\r\n   10 CALL Q8SHPD (MMN,XI,ETA,SHP,DSHP)\r\n      GO TO 30\r\nC\r\nC     TRIA6 VERSION\r\nC\r\n   20 CALL T6SHPD (XI,ETA,MMN,SHP,DSHPX,DSHPE)\r\n      DO 25 I = 1,MM\r\n      DSHP(I   ) = DSHPX(I)\r\n   25 DSHP(I+MM) = DSHPE(I)\r\nC\r\n   30 DO 40 I = 1,MM\r\n      TSHP (I) = SHP (I)\r\n      TDSHP(I) = DSHP(I)\r\n   40 TDSHP(I+MM) = DSHP(I+MM)\r\n      DO 45 I = 1,MM\r\n      IO = IORDER(I)\r\n      SHP (I) = TSHP(IO)\r\n      DSHP(I) = TDSHP(IO)\r\n   45 DSHP(I+MM) = TDSHP(IO+MM)\r\nC\r\n      TH = 0.0D0\r\n      DO 50 I = 1,NNODE\r\n   50 TH = TH + GPTH(I)*SHP(I)\r\nC\r\n      NN1 = NNODE\r\n      NN2 = MM\r\n      HZTA = 0.0D0\r\n      CALL JACOBD (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 80\r\nC\r\n      DETERM = DETJ\r\n      DO 60 I = 1,9\r\n   60 TIE(I) = PSITRN(I)\r\nC\r\n      IJ = 1\r\n      DO 70 I = 1,2\r\n      DO 70 J = 1,NNODE\r\n      BTERMS(IJ) = JACOB(I,1)*DSHP(J) + JACOB(I,2)*DSHP(J+MM)\r\n   70 IJ = IJ + 1\r\n      RETURN\r\nC\r\n   80 RETURN 1\r\nC\r\nC\r\n      ENTRY SHTRMS (*,ELID,MM,NNODE,XI,ETA,GPTH,EPNORM,EGPDT,\r\n     1                   IORDER,MMN,DETERM,TH,SHP,TIE,BTERMS)\r\nC     =======================================================\r\nC\r\nC     SINGLE PRELCISION VERSION\r\nC\r\n      GO TO 80\r\n      END\r\n"
  },
  {
    "path": "mis/shxtrs.f",
    "content": "      SUBROUTINE SHXTRS (NROW,NCOL,ARRAY)\r\nC\r\nC     TO EXTRAPOLATE VALUES IN ARRAY FROM A SET OF EVALUATION POINTS TO\r\nC     THE GRID POINTS OF SPECIFIC SHELL ELEMENTS.\r\nC     THE EXTRAPOLATION IS IN TWO DIMENSIONS.\r\nC\r\nC     INPUT :\r\nC           NROW   - SIZE OF THE SET OF VALUES\r\nC           NCOL   - NUMBER OF EVALUATION POINTS\r\nC           ARRAY  - ARRAY OF DATA TO BE EXTRAPOLATED\r\nC\r\nC     OUTPUT:\r\nC           ARRAY  - ARRAY OF EXTRAPOLATED DATA\r\nC\r\nC\r\n      LOGICAL TRIA\r\n      REAL    ARRAY(NROW,1),TEMP(4,4),SHP(4),TPOINT(2,3),QPOINT(2,4),\r\n     1        XSI,ETA\r\nC\r\nC\r\nC\r\n      DATA    TPOINT  / 0.0,  0.0,  1.0,  0.0,  0.0,  1.0             /\r\n      DATA    QPOINT  /-1.0, -1.0,  1.0, -1.0,  1.0,  1.0, -1.0,  1.0 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      TRIA   = NCOL .EQ. 3\r\nC\r\n      DO 10 I = 1,NROW\r\n      DO 10 J = 1,NCOL\r\n      TEMP(I,J) = 0.0\r\n   10 CONTINUE\r\nC\r\nC     BEGIN LOOP ON DESTINATION POINTS\r\nC\r\n      DO 70 I = 1,NCOL\r\nC\r\nC     EVALUATE PSEUDO-SHAPE FUNCTIONS\r\nC\r\n      IF (.NOT.TRIA) GO TO 30\r\nC\r\n      XSI    = TPOINT(1,I)\r\n      ETA    = TPOINT(2,I)\r\n      SHP(1) = 1.66666667 - 2.0*XSI - 2.0*ETA\r\n      SHP(2) = 2.0*XSI - 0.33333333\r\n      SHP(3) = 2.0*ETA - 0.33333333\r\n      GO TO 40\r\nC\r\n   30 XSI    = QPOINT(1,I)\r\n      ETA    = QPOINT(2,I)\r\n      CONST  = 0.577350269\r\n      SHP(1) = 0.75*(CONST-XSI)*(CONST-ETA)\r\n      SHP(2) = 0.75*(CONST-XSI)*(CONST+ETA)\r\n      SHP(3) = 0.75*(CONST+XSI)*(CONST-ETA)\r\n      SHP(4) = 0.75*(CONST+XSI)*(CONST+ETA)\r\nC\r\nC     EXTRAPOLATE\r\nC\r\n   40 DO 50 J = 1,NROW\r\n      DO 50 K = 1,NCOL\r\n      TEMP(J,I) = TEMP(J,I) + SHP(K)*ARRAY(J,K)\r\n   50 CONTINUE\r\nC\r\n   70 CONTINUE\r\nC\r\nC     COPY THE EXTRAPOLATED DATA BACK INTO ARRAY\r\nC\r\n      DO 90 J = 1,NCOL\r\n      DO 90 I = 1,NROW\r\n      ARRAY(I,J) = TEMP(I,J)\r\n   90 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sihex1.f",
    "content": "      SUBROUTINE SIHEX1 (TYPE,STRSPT,NIP)\r\nC\r\nC     PHASE 1 STRESS ROUTINE FOR IHEX1, IHEX2, AND IHEX3 ELEMENTS\r\nC\r\nC     TYPE = 1    IHEX1\r\nC     TYPE = 2    IHEX2\r\nC     TYPE = 3    IHEX3\r\nC\r\nC     THE EST ENTRIES ARE\r\nC\r\nC     NAME  ---------INDEX---------   DESCRIPTION\r\nC            IHEX1   IHEX2   IHEX3\r\nC\r\nC     EID        1       1       1    ELEMENT ID NO.\r\nC     SIL      2-9    2-21    2-33    SCALAR INDEX LIST\r\nC     MID       10      22      34    MATERIAL ID NO.\r\nC     CID       11      23      35    MATERIAL COORD. SYSTEM ID NO.\r\nC     NIP       12      24      36    NO. INTEGRATION POINTS PER EDGE\r\nC     MAXAR     13      25      37    MAX ASPECT RATIO\r\nC     ALFA      14      26      38    MAX ANGLE FOR NORMALS\r\nC     BETA      15      27      39    MAX ANGLE FOR MIDSIDE POINTS\r\nC     BGPDT  16-47  28-107  40-167    BASIC GRID POINT DATA\r\nC     GPT    48-55 108-127 168-199    GRID POINT TEMPERATURES\r\nC\r\nC     PHIOUT (ESTA) CONTAINS THE FOLLOWING WHERE NGP IS THE NUMBER\r\nC     OF GRID POINTS\r\nC\r\nC     ELEMENT ID\r\nC     NGP SIL NUMBERS\r\nC     NGP VALUES OF THE SHAPE FUNCTIONS AT THIS STRESS POINT\r\nC     REFERENCE TEMPERATURE\r\nC     6 THERMAL STRESS COEFFICIENTS\r\nC     NGP, 6 BY 3 MATRICES, RELATING STRESS TO DISPLACEMENTS AT THIS\r\nC          STRESS POINT (STORED ROW-WISE)\r\nC\r\n      LOGICAL         TDEP     ,ANIS       ,RECT       ,MTDEP\r\n      INTEGER         CID      ,BGPID      ,TYPE       ,IEST(1)    ,\r\n     1                EID      ,IPHIO(1)   ,STRSPT     ,ITAB(3,64) ,\r\n     2                IB(46)\r\n      REAL            NU       ,JACOB      ,DSHPB(3,32),BXYZ(3)    ,\r\n     1                GAUSS(8) ,S(4)       ,GMAT(36)   ,STORE(18)\r\n      CHARACTER       UFM*23   ,UWM*25\r\n      COMMON /XMSSG / UFM      ,UWM\r\n      COMMON /SYSTEM/ SYSBUF   ,IPRNT      ,JUNK(7)    ,MTEMP\r\n      COMMON /MATIN / MID      ,INFLAG     ,TEMP\r\n      COMMON /MATOUT/ E        ,G          ,NU         ,RHO        ,\r\n     1                ALPHA    ,TREF       ,SPACE(19)  ,MTDEP\r\n      COMMON /MATISO/ BUFM6(46)\r\n      COMMON /SDR2X5/ EST(100) ,PHIOUT(649)\r\n      COMMON /SDR2X6/ CID      ,BGPID(32)  ,EID        ,BGPDT(3,32),\r\n     1                GPT(32)  ,JACOB(3,3) ,DSHP(3,32) ,DETJ       ,\r\n     2                D        ,E1         ,E2         ,E3         ,\r\n     3                T(3,3)   ,NGP        ,SGLOB(18)\r\n      EQUIVALENCE     (EST(1),IEST(1),DSHPB(1,1)),\r\n     1                (PHIOUT(1),IPHIO(1)),(EST(97),IDXYZ),\r\n     2                (EST(98),BXYZ(1))   ,(IB(1),BUFM6(1))\r\n      DATA    GAUSS/  .57735027, .55555556, .77459667, .88888889 ,\r\n     1                .34785485, .86113631, .65214515, .33998104 /\r\nC\r\n      IF (STRSPT .EQ. 0) STRSPT = STRSPT + 1\r\n      IF (STRSPT .GT. 1) GO TO 505\r\nC\r\nC     MOVE EST DATA INTO /SDR2X6/, /MATIN/, AND PHIOUT\r\nC\r\n      EID = IEST(1)\r\n      NGP = 12*TYPE - 4\r\n      MID = IEST(NGP+2)\r\n      CID = IEST(NGP+3)\r\n      NIP = IEST(NGP+4)\r\n      IF (NIP .EQ. 0) NIP = TYPE/2 + 2\r\nC\r\nC     FOR STRESS COMPUTATION, SET NUMBER OF STRESS POINTS TO 2\r\nC     NUMBER OF GAUSS POINTS) TO CUT DOWN ON AMOUNT OF INFO ON ESTA\r\nC\r\n      NIP = 2\r\n      L   = 0\r\n      DO 5 I = 1,NIP\r\n      DO 5 J = 1,NIP\r\n      DO 5 K = 1,NIP\r\n      L   = L + 1\r\n      ITAB(1,L) = I\r\n      ITAB(2,L) = J\r\n      ITAB(3,L) = K\r\n    5 CONTINUE\r\n      DO 10 I = 1,NGP\r\n      GPT(  I) = EST (5*NGP+7+I)\r\n      BGPID(I) = IEST(NGP+4+4*I)\r\n      DO 10 J = 1,3\r\n      BGPDT(J,I) = EST(NGP+4+4*I+J)\r\n   10 CONTINUE\r\n      PHIOUT(1) = EST(1)\r\n      DO 20 I = 1,NGP\r\n   20 PHIOUT(I+1) = EST(I+1)\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     CHANGE FOR GENERAL ANISOTROPIC MATERIAL\r\nC\r\nC     TEST FOR ANISOTROPIC MATERIAL\r\nC\r\n      ANIS   = .FALSE.\r\n      INFLAG = 10\r\nC\r\nC     TEST FOR RECTANGULAR COORDINATE SYSTEM IN WHICH ANISOTROPIC\r\nC     MATERIAL IS DEFINED\r\nC\r\n      RECT = .TRUE.\r\n      TDEP = .TRUE.\r\nC\r\n      DO 60 I = 2,NGP\r\n      IF (GPT(I) .NE. GPT(1)) GO TO 70\r\n   60 CONTINUE\r\n      TDEP = .FALSE.\r\n   70 TEMP = GPT(1)\r\n      CALL MAT (EID)\r\n      IF (IB(46) .EQ. 6) ANIS = .TRUE.\r\n      TREF = BUFM6(44)\r\n      IF (.NOT.MTDEP) TDEP = .FALSE.\r\nC\r\nC     IF ISOTROPIC, TEMPERATURE INDEPENDENT MATERIAL, COMPUTE CONSTANTS\r\nC\r\n      IF (TDEP) GO TO 500\r\n      IF (ANIS) GO TO 490\r\n      IF (IB(46) .NE. 0) GO TO 480\r\n      WRITE  (IPRNT,470) UWM,MID,EID\r\n  470 FORMAT (A25,' 4005. AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED',\r\n     1       ' UNDER MATERIAL ID =',I10,' FOR ELEMENT ID =',I10, /32X,\r\n     2       'NU = 0.333 ASSUMED FOR STRESS COMPUTATION')\r\n      E1 = 1.5*E\r\n      E2 = 0.75*E\r\n      E3 = 0.375*E\r\n      GO TO 490\r\n  480 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      ALPHA = BUFM6(38)\r\n      GO TO 500\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC, DEFINED IN A RECTANGULAR\r\nC     COORDINATE SYSTEM, AND NOT TEMPERATURE DEPENDENT, TRANSFORM\r\nC     IT TO THE BASIC SYSTEM.\r\nC\r\n  490 IF (.NOT.RECT) GO TO 500\r\nC\r\nC     ADD CODE TO TRANSFORM GENERAL ANISOTROPIC MATERIAL\r\nC     TO BASIC COORDINATE SYSTEM HERE.\r\nC\r\n      DO 491 IJK = 1,36\r\n  491 GMAT(IJK) = BUFM6(IJK)\r\nC\r\nC     INITIALIZATION TO FIND GAUSS POINT COORDINATES\r\nC\r\n  505 CONTINUE\r\n  500 NIPM1 = NIP - 1\r\n      GO TO (510,520,530), NIPM1\r\n  510 S(1) = GAUSS(1)\r\n      S(2) =-GAUSS(1)\r\n      GO TO  540\r\n  520 S(1) = GAUSS(3)\r\n      S(2) = 0.\r\n      S(3) =-GAUSS(3)\r\n      GO TO  540\r\n  530 S(1) = GAUSS(6)\r\n      S(2) = GAUSS(8)\r\n      S(3) =-GAUSS(8)\r\n      S(4) =-GAUSS(6)\r\n  540 IF (STRSPT .EQ. NIP**3+1) GO TO 541\r\n      L = ITAB(1,STRSPT)\r\n      X = S(L)\r\n      L = ITAB(2,STRSPT)\r\n      Y = S(L)\r\n      L = ITAB(3,STRSPT)\r\n      Z = S(L)\r\n      GO TO 542\r\n  541 X = 0.\r\n      Y = 0.\r\n      Z = 0.\r\n  542 CONTINUE\r\nC\r\nC     GENERATE SHAPE FUNCTIONS AND JACOBIAN MATRIX INVERSE\r\nC\r\n      CALL IHEXSS (TYPE,PHIOUT(NGP+2),DSHP,JACOB,DETJ,EID,X,Y,Z,BGPDT)\r\n      IF (DETJ .NE. 0.0) GO TO 605\r\nC\r\nC     FALL HERE IF JACOBIAN MATRIX SINGULAR (BAD ELEMENT)\r\nC\r\n      J = NGP*19 + 7\r\n      DO 600 I = 1,J\r\n  600 PHIOUT(NGP+1+I) = 0.0\r\n      RETURN\r\nC\r\nC     COMPUTE STRAIN-DISPLACEMENT RELATIONS\r\nC\r\nC     REVERSE CALLING SEQUENCE SINCE MATRICES ARE COLUMN STORED\r\nC\r\n  605 CALL GMMATS (DSHP,NGP,3,0,JACOB,3,3,0,DSHPB)\r\nC\r\nC     IF MATERIAL IS TEMPERATURE DEPENDENT, MUST COMPUTE TEMPERATURE\r\nC     AT THIS STRESS POINT AND FETCH MATERIAL PROPERTIES AGAIN\r\nC\r\n      IF (.NOT.TDEP) GO TO 620\r\n      TEMP = 0.0\r\n      DO 610 J = 1,NGP\r\n  610 TEMP = TEMP + GPT(J)*PHIOUT(NGP+1+J)\r\n      CALL MAT (EID)\r\n      IF (ANIS) GO TO 630\r\n      IF (IB(46) .NE. 0) GO TO 615\r\n      WRITE (IPRNT,470) UWM,MID,EID\r\n      E1 = 1.5*E\r\n      E2 = 0.75*E\r\n      E3 = 0.375*E\r\n      GO TO 640\r\n  615 E1 = BUFM6(1)\r\n      E2 = BUFM6(2)\r\n      E3 = BUFM6(22)\r\n      ALPHA = BUFM6(38)\r\n      GO TO 640\r\nC\r\nC     IF MATERIAL IS ANISOTROPIC AND NOT DEFINED IN RECTANGJLAR\r\nC     COORDINATE SYSTEM, TRANSFORM IT TO BASIC COORDINATE SYSTEM AT\r\nC     THIS STRESS POINT.\r\nC\r\nC\r\nC     IN THIS VERSION, ANISOTROPIC PROPERTIES MUST BE RECTANGULAR\r\nC     JUST STORE G MATRIX\r\nC     ===========================================================\r\nC\r\nC     THIS CODE MUST BE COMPLETED WHEN GENERAL ANISOTROPIC MATERIAL IS\r\nC     ADDED.\r\nC\r\n  620 IF (.NOT.ANIS) GO TO 640\r\n  630 CONTINUE\r\n      DO 635 IJK = 1,36\r\n  635 GMAT(IJK) = BUFM6(IJK)\r\nC\r\nC     INSERT GLOBAL TO BASIC TRANSFORMATION OPERATIONS HERE FOR\r\nC     ANISOTROPIC MATERIAL.\r\nC\r\nC     MATERIAL HAS BEEN EVALUATED AT THIS STRESS POINT WHEN GET TO HERE\r\nC\r\nC     TEMPERATURE TO STRESS VECTOR\r\nC\r\n  640 PHIOUT(2*NGP+2) = TREF\r\n      IF (ANIS) GO TO 660\r\nC\r\nC     ISOTROPIC CASE\r\nC\r\n      DO 650 J = 1,3\r\n      PHIOUT(2*NGP+2+J) = -ALPHA*(E1+2.0*E2)\r\n      PHIOUT(2*NGP+5+J) = 0.0\r\n  650 CONTINUE\r\n      GO TO 670\r\nC\r\nC     ANISOTROPIC CASE\r\nC\r\nC     ADD CODE WHEN ANISOTROPIC MATERIAL BECOMES AVAILABLE\r\nC\r\n  660 CONTINUE\r\n      CALL GMMATS (GMAT,6,6,0,BUFM6(38),6,1,0,PHIOUT(2*NGP+3))\r\n      DO 661 IJK = 1,6\r\n      IS = 2*NGP + 2 + IJK\r\n      PHIOUT(IS) = -PHIOUT(IS)\r\n  661 CONTINUE\r\nC\r\nC     DISPLACEMENT TO STRESS MATRICES\r\nC\r\n  670 DO 840 I = 1,NGP\r\n      IS = 2*NGP + 8 + 18*(I-1)\r\nC\r\nC     ROW-STORED\r\nC\r\n      IF (ANIS) GO TO 680\r\nC\r\nC     ISOTROPIC CASE\r\nC\r\n      PHIOUT(IS+ 1) = E1*DSHPB(1,I)\r\n      PHIOUT(IS+ 2) = E2*DSHPB(2,I)\r\n      PHIOUT(IS+ 3) = E2*DSHPB(3,I)\r\n      PHIOUT(IS+ 4) = E2*DSHPB(1,I)\r\n      PHIOUT(IS+ 5) = E1*DSHPB(2,I)\r\n      PHIOUT(IS+ 6) = E2*DSHPB(3,I)\r\n      PHIOUT(IS+ 7) = E2*DSHPB(1,I)\r\n      PHIOUT(IS+ 8) = E2*DSHPB(2,I)\r\n      PHIOUT(IS+ 9) = E1*DSHPB(3,I)\r\n      PHIOUT(IS+10) = E3*DSHPB(2,I)\r\n      PHIOUT(IS+11) = E3*DSHPB(1,I)\r\n      PHIOUT(IS+14) = E3*DSHPB(3,I)\r\n      PHIOUT(IS+15) = E3*DSHPB(2,I)\r\n      PHIOUT(IS+16) = E3*DSHPB(3,I)\r\n      PHIOUT(IS+18) = E3*DSHPB(1,I)\r\n      PHIOUT(IS+12) = 0.0\r\n      PHIOUT(IS+13) = 0.0\r\n      PHIOUT(IS+17) = 0.0\r\n      GO TO 690\r\nC\r\nC     ANISOTROPIC CASE\r\nC\r\nC     ADD CODE WHEN GENERAL ANISOTROPIC MATERIAL BECOMES AVAILABLE\r\nC\r\n  680 CONTINUE\r\n      DO 681 IJK = 1,18\r\n  681 STORE(IJK) = 0.\r\n      STORE( 1) = DSHPB(1,I)\r\n      STORE( 5) = DSHPB(2,I)\r\n      STORE( 9) = DSHPB(3,I)\r\n      STORE(10) = DSHPB(2,I)\r\n      STORE(11) = DSHPB(1,I)\r\n      STORE(14) = DSHPB(3,I)\r\n      STORE(15) = DSHPB(2,I)\r\n      STORE(16) = DSHPB(3,I)\r\n      STORE(18) = DSHPB(1,I)\r\nC\r\n      CALL GMMATS (GMAT(1),6,6,0,STORE(1),6,3,0,PHIOUT(IS+1))\r\nC\r\nC     POST-MULTIPLY BY GLOBAL TO BASIC TRANSFORMATION MATRIX,\r\nC     IF NECESSARY\r\nC\r\n  690 IF (BGPID(I) .EQ. 0) GO TO 840\r\n      IDXYZ = BGPID(I)\r\n      DO 820 K = 1,3\r\n  820 BXYZ(K) = BGPDT(K,I)\r\nC\r\nC     FETCH TRANSFORMATION AND USE IT\r\nC\r\n      CALL TRANSS (IDXYZ,T)\r\n      CALL GMMATS (PHIOUT(IS+1),6,3,0,T,3,3,0,SGLOB)\r\n      DO 830 J = 1,18\r\n  830 PHIOUT(IS+J) = SGLOB(J)\r\n  840 CONTINUE\r\n      IPHIO(20*NGP+9) = NIP\r\n      NWDNOW = 20*NGP + 9\r\n      NWDISO = 649 - NWDNOW\r\n      IF (NWDISO .EQ. 0) RETURN\r\n      DO 850 I = 1,NWDISO\r\n      ISUB = NWDNOW + I\r\n  850 PHIOUT(ISUB) = 0.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sihex2.f",
    "content": "      SUBROUTINE SIHEX2 (TYPE,GPT,NIP,STRSPT,ISTORE)\r\nC\r\nC     PHASE 2 STRESS DATA RECOVERY FOR IHEX1, IHEX2, AND IHEX3 ELEMENTS\r\nC\r\nC           TYPE = 1    IHEX1\r\nC           TYPE = 2    IHEX2\r\nC           TYPE = 3    IHEX3\r\nC\r\nC***********************************************************************\r\nC\r\nC     ARRAY ESTA CONTAINS THE FOLLOWING WHERE NGP IS THE NUMBER OF\r\nC     GRID POINTS\r\nC\r\nC           ELEMENT ID\r\nC           NGP SIL NUMBERS\r\nC           NGP VALUES OF THE SHAPE FUNCTIONS AT THIS STRESS POINT\r\nC           REFERENCE TEMPERATURE\r\nC           6 THERMAL STRESS COEFFICIENTS\r\nC           NGP 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS\r\nC                 AT THIS STRESS POINT (STORED ROW-WISE)\r\nC\r\nC     PHIOUT STARTS AT ESTA(101)\r\nC\r\nC***********************************************************************\r\nC\r\nC\r\n      INTEGER    TYPE        ,IESTA(1)   ,ISTRS(11)  ,STRSPT     ,\r\n     1           SIL         ,OLDEID     ,EQEXIN     ,EXTRNL(32) ,\r\n     2           EQU         ,IFRVEC(11) ,EJECT      ,ISHD(7)    ,\r\n     3           TYP(4)      ,DUMMY\r\nC\r\n      REAL       GPT(1)      ,STRESS(10) ,SIGP(3)    ,SMAT(3,3)  ,\r\n     1           CSIG(6)     ,FRLAST(2)\r\n      REAL       STORE(384)  ,SIGS(126)  ,CSIGS(126)\r\n      DIMENSION  EX20G3(567) ,EX2031(132),EX2032(127),EX2033(127),\r\n     1           EX2034(127) ,EX2035(54)\r\n      DIMENSION  EX8G3(243)  ,EX8G31(132),EX8G32(111)\r\n      DIMENSION  EX20G2(168) ,EX2021(152),EX2022(16)\r\n      DIMENSION  EX8G2(72)\r\n      DIMENSION  EX8G4(576)  ,EX8G41(152),EX8G42(152),EX8G43(152),\r\n     1           EX8G44(120)\r\n      DIMENSION  EX20G4(1344),EX2041(152),EX2042(152),EX2043(152),\r\n     1           EX2044(152) ,EX2045(152),EX2046(152),EX2047(152),\r\n     2           EX2048(152) ,EX2049(128)\r\nC\r\n      COMMON /SYSTEM/ IBFSZ  ,NOUT       ,IDM(9)     ,LINE\r\nC\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\n      COMMON /SDR2X2/ BBB(4) ,EQEXIN\r\nC\r\n      COMMON /SDR2X4/ CCC(35),IVEC       ,IVECN       ,\r\n     1                JTEMP  ,DDD(13)    ,KTYPE       ,SKIP(56)   ,\r\n     2                ISOPL\r\nC\r\n      COMMON /SDR2X7/ ESTA(649)\r\nC\r\n      COMMON /SDR2X8/ IEND   ,DUMMY(32)  ,SIG(6)      ,\r\n     2                STRSPX ,NGP        ,LEQX        ,\r\n     3                NEQX   ,IPTS       ,MXLEQ       ,\r\n     4                L      ,I          ,J           ,\r\n     5                SIL    ,KLO        ,KHI         ,\r\n     6                K      ,KX         ,TEMP        ,\r\n     7                SA     ,SB         ,SC          ,\r\n     8                SN     ,SO         ,P           ,\r\n     9                Q      ,R          ,A           ,\r\n     A                B      ,PHI        ,X           ,\r\n     B                COSPHI ,S          ,T           ,\r\n     C                V      ,DCOS(3,3)  ,RM          ,\r\n     D                RX     ,RY         ,RZ          ,\r\n     E                RXY    ,RYZ        ,RZX         ,\r\n     F                ITRL(7),EQU(200)\r\n      COMMON /SDR2X9/ NCHK   ,ISUB       ,ILD         ,\r\n     1                FRTMEI(2)          ,TWOTOP      ,\r\n     2                FNCHK\r\nC     COMMON /SDRETT/ DUM(9) ,OLDEID\r\nC\r\nC\r\n      EQUIVALENCE     (IESTA(1),ESTA(1)) ,(STRESS(1),ISTRS(1),ESTA(101))\r\nC\r\n      EQUIVALENCE     (SIGP(1), SA)      ,(SIG(1) , SX),\r\n     1                (SIG(2) , SY)      ,(SIG(3) , SZ),\r\n     2                (SIG(4) ,SXY)      ,(SIG(5) ,SYZ),\r\n     3                (SIG(6) ,SZX)      ,(CSIG(1),IFRVEC(6))\r\nC\r\n      EQUIVALENCE     (LSUB,ISHD(1))     ,(LLD ,ISHD(2)),\r\n     3                (FRLAST(1),ISHD(6))\r\n      EQUIVALENCE     (EX20G3(  1),EX2031(1)),(EX20G3(133),EX2032(1)),\r\n     1                (EX20G3(260),EX2033(1)),(EX20G3(387),EX2034(1)),\r\n     2                (EX20G3(514),EX2035(1))\r\n      EQUIVALENCE     (EX8G3(   1),EX8G31(1)),(EX8G3( 133),EX8G32(1))\r\n      EQUIVALENCE     (EX20G2(  1),EX2021(1)),(EX20G2(153),EX2022(1))\r\n      EQUIVALENCE     (EX8G4(   1),EX8G41(1)),(EX8G4( 153),EX8G42(1)),\r\n     1                (EX8G4( 305),EX8G43(1)),(EX8G4( 457),EX8G44(1))\r\n      EQUIVALENCE     (EX20G4(  1),EX2041(1)),(EX20G4(153),EX2042(1)),\r\n     1                (EX20G4(305),EX2043(1)),(EX20G4(457),EX2044(1)),\r\n     2                (EX20G4(609),EX2045(1)),(EX20G4(761),EX2046(1)),\r\n     3                (EX20G4(913),EX2047(1)),(EX20G4(1065),EX2048(1)),\r\n     4                (EX20G4(1217),EX2049(1))\r\n      DATA EX8G2/\r\n     * -.0490,  .1830,  .1830, -.6830,  .1830, -.6830, -.6830, 2.5490,\r\n     *  .1830, -.6830, -.6830, 2.5490, -.0490,  .1830,  .1830, -.6830,\r\n     * -.6830, 2.5490,  .1830, -.6830,  .1830, -.6830, -.0490,  .1830,\r\n     *  .1830, -.6830, -.0490,  .1830, -.6830, 2.5490,  .1830, -.6830,\r\n     *  .1830, -.0490, -.6830,  .1830, -.6830,  .1830, 2.5490, -.6830,\r\n     * -.6830,  .1830, 2.5490, -.6830,  .1830, -.0490, -.6830,  .1830,\r\n     * 2.5490, -.6830, -.6830,  .1830, -.6830,  .1830,  .1830, -.0490,\r\n     * -.6830,  .1830,  .1830, -.0490, 2.5490, -.6830, -.6830,  .1830,\r\n     *  .1250,  .1250,  .1250,  .1250,  .1250,  .1250,  .1250,  .1250/\r\n      DATA EX8G31/\r\n     *  .0066, -.0235,  .0522, -.0235,  .0835, -.1852,  .0522, -.1852,\r\n     *  .4108, -.0235,  .0835, -.1852,  .0835, -.2963,  .6573, -.1852,\r\n     *  .6573,-1.4580,  .0522, -.1852,  .4108, -.1852,  .6573,-1.4580,\r\n     *  .4108,-1.4580, 3.2341,\r\n     *  .0522, -.1852,  .4108, -.1852,  .6573,-1.4580,  .4108,-1.4580,\r\n     * 3.2341, -.0235,  .0835, -.1852,  .0835, -.2963,  .6573, -.1852,\r\n     *  .6573,-1.4580,  .0066, -.0235,  .0522, -.0235,  .0835, -.1852,\r\n     *  .0522, -.1852,  .4108,\r\n     *  .4108,-1.4580, 3.2341, -.1852,  .6573,-1.4580,  .0522, -.1852,\r\n     *  .4108, -.1852,  .6573,-1.4580,  .0835, -.2963,  .6573, -.0235,\r\n     *  .0835, -.1852,  .0522, -.1852,  .4108, -.0235,  .0835, -.1852,\r\n     *  .0066, -.0235,  .0522,\r\n     *  .0522, -.1852,  .4108, -.0235,  .0835, -.1852,  .0066, -.0235,\r\n     *  .0522, -.1852,  .6573,-1.4580,  .0835, -.2963,  .6573, -.0235,\r\n     *  .0835, -.1852,  .4108,-1.4580, 3.2341, -.1852,  .6573,-1.4580,\r\n     *  .0522, -.1852,  .4108,\r\n     *  .0522, -.0235,  .0066, -.1852,  .0835, -.0235,  .4108, -.1852,\r\n     *  .0522, -.1852,  .0835, -.0235,  .6573, -.2963,  .0835,-1.4580,\r\n     *  .6573, -.1852,  .4108, -.1852,  .0522,-1.4580,  .6573, -.1852/\r\n      DATA EX8G32/\r\n     * 3.2341,-1.4580,  .4108,\r\n     *  .4108, -.1852,  .0522,-1.4580,  .6573, -.1852, 3.2341,-1.4580,\r\n     *  .4108, -.1852,  .0835, -.0235,  .6573, -.2963,  .0835,-1.4580,\r\n     *  .6573, -.1852,  .0522, -.0235,  .0066, -.1852,  .0835, -.0235,\r\n     *  .4108, -.1852,  .0522,\r\n     * 3.2341,-1.4580,  .4108,-1.4580,  .6573, -.1852,  .4108, -.1852,\r\n     *  .0522,-1.4580,  .6573, -.1852,  .6573, -.2963,  .0835, -.1852,\r\n     *  .0835, -.0235,  .4108, -.1852,  .0522, -.1852,  .0835, -.0235,\r\n     *  .0522, -.0235,  .0066,\r\n     *  .4108, -.1852,  .0522, -.1852,  .0835, -.0235,  .0522, -.0235,\r\n     *  .0066,-1.4580,  .6573, -.1852,  .6573, -.2963,  .0835, -.1852,\r\n     *  .0835, -.0235, 3.2341,-1.4580,  .4108,-1.4580,  .6573, -.1852,\r\n     *  .4108, -.1852,  .0522,\r\n     * -.0000,  .0000,  .0000,  .0000,  .0000,  .0000,  .0000, -.0000,\r\n     * -.0000, 0.0000,  .0000,  .0000,  .0000, 1.0000,  .0000, -.0000,\r\n     * -.0000, -.0000,  .0000,  .0000, -.0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000/\r\n      DATA EX8G41/\r\n     * -.0015,  .0052, -.0106,  .0198,  .0052, -.0183,  .0371, -.0697,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0198, -.0697,  .1415, -.2656,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0183,  .0644, -.1307,  .2452,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0697,  .2452, -.4978,  .9342,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0754,  .2653, -.5386, 1.0107,  .1415, -.4978, 1.0107,-1.8966,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0697,  .2452, -.4978,  .9342,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.2656,  .9342,-1.8966, 3.5591,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0697,  .2452, -.4978,  .9342,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.2656,  .9342,-1.8966, 3.5591,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0754,  .2653, -.5386, 1.0107,  .1415, -.4978, 1.0107,-1.8966,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0183,  .0644, -.1307,  .2452,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0697,  .2452, -.4978,  .9342,\r\n     * -.0015,  .0052, -.0106,  .0198,  .0052, -.0183,  .0371, -.0697,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0198, -.0697,  .1415, -.2656,\r\n     * -.2656,  .9342,-1.8966, 3.5591,  .1415, -.4978, 1.0107,-1.8966,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0198, -.0697,  .1415, -.2656,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.0754,  .2653, -.5386, 1.0107/\r\n      DATA EX8G42/\r\n     *  .0371, -.1307,  .2653, -.4978, -.0106,  .0371, -.0754,  .1415,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0183,  .0644, -.1307,  .2452,  .0052, -.0183,  .0371, -.0697,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0106,  .0371, -.0754,  .1415,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0015,  .0052, -.0106,  .0198,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0106,  .0371, -.0754,  .1415,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0015,  .0052, -.0106,  .0198,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0183,  .0644, -.1307,  .2452,  .0052, -.0183,  .0371, -.0697,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.0754,  .2653, -.5386, 1.0107,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0106,  .0371, -.0754,  .1415,\r\n     * -.2656,  .9342,-1.8966, 3.5591,  .1415, -.4978, 1.0107,-1.8966,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0198, -.0697,  .1415, -.2656,\r\n     *  .0198, -.0106,  .0052, -.0015, -.0697,  .0371, -.0183,  .0052,\r\n     *  .1415, -.0754,  .0371, -.0106, -.2656,  .1415, -.0697,  .0198,\r\n     * -.0697,  .0371, -.0183,  .0052,  .2452, -.1307,  .0644, -.0183,\r\n     * -.4978,  .2653, -.1307,  .0371,  .9342, -.4978,  .2452, -.0697,\r\n     *  .1415, -.0754,  .0371, -.0106, -.4978,  .2653, -.1307,  .0371,\r\n     * 1.0107, -.5386,  .2653, -.0754,-1.8966, 1.0107, -.4978,  .1415/\r\n      DATA EX8G43/\r\n     * -.2656,  .1415, -.0697,  .0198,  .9342, -.4978,  .2452, -.0697,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 3.5591,-1.8966,  .9342, -.2656,\r\n     * -.2656,  .1415, -.0697,  .0198,  .9342, -.4978,  .2452, -.0697,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 3.5591,-1.8966,  .9342, -.2656,\r\n     *  .1415, -.0754,  .0371, -.0106, -.4978,  .2653, -.1307,  .0371,\r\n     * 1.0107, -.5386,  .2653, -.0754,-1.8966, 1.0107, -.4978,  .1415,\r\n     * -.0697,  .0371, -.0183,  .0052,  .2452, -.1307,  .0644, -.0183,\r\n     * -.4978,  .2653, -.1307,  .0371,  .9342, -.4978,  .2452, -.0697,\r\n     *  .0198, -.0106,  .0052, -.0015, -.0697,  .0371, -.0183,  .0052,\r\n     *  .1415, -.0754,  .0371, -.0106, -.2656,  .1415, -.0697,  .0198,\r\n     * 3.5591,-1.8966,  .9342, -.2656,-1.8966, 1.0107, -.4978,  .1415,\r\n     *  .9342, -.4978,  .2452, -.0697, -.2656,  .1415, -.0697,  .0198,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 1.0107, -.5386,  .2653, -.0754,\r\n     * -.4978,  .2653, -.1307,  .0371,  .1415, -.0754,  .0371, -.0106,\r\n     *  .9342, -.4978,  .2452, -.0697, -.4978,  .2653, -.1307,  .0371,\r\n     *  .2452, -.1307,  .0644, -.0183, -.0697,  .0371, -.0183,  .0052,\r\n     * -.2656,  .1415, -.0697,  .0198,  .1415, -.0754,  .0371, -.0106,\r\n     * -.0697,  .0371, -.0183,  .0052,  .0198, -.0106,  .0052, -.0015,\r\n     * -.2656,  .1415, -.0697,  .0198,  .1415, -.0754,  .0371, -.0106/\r\n      DATA EX8G44/\r\n     * -.0697,  .0371, -.0183,  .0052,  .0198, -.0106,  .0052, -.0015,\r\n     *  .9342, -.4978,  .2452, -.0697, -.4978,  .2653, -.1307,  .0371,\r\n     *  .2452, -.1307,  .0644, -.0183, -.0697,  .0371, -.0183,  .0052,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 1.0107, -.5386,  .2653, -.0754,\r\n     * -.4978,  .2653, -.1307,  .0371,  .1415, -.0754,  .0371, -.0106,\r\n     * 3.5591,-1.8966,  .9342, -.2656,-1.8966, 1.0107, -.4978,  .1415,\r\n     *  .9342, -.4978,  .2452, -.0697, -.2656,  .1415, -.0697,  .0198,\r\n     * -.0008,  .0050,  .0050, -.0008,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0008,  .0050,  .0050, -.0008,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0324,  .2078,  .2078, -.0324,\r\n     * -.0324,  .2078,  .2078, -.0324,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0324,  .2078,  .2078, -.0324,\r\n     * -.0324,  .2078,  .2078, -.0324,  .0050, -.0324, -.0324,  .0050,\r\n     * -.0008,  .0050,  .0050, -.0008,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0008,  .0050,  .0050, -.0008/\r\n      DATA EX2021/\r\n     * -.0490,  .1830,  .1830, -.6830,  .1830, -.6830, -.6830, 2.5490,\r\n     *  .0670, -.2500, -.2500,  .9330,  .0670, -.2500, -.2500,  .9330,\r\n     *  .1830, -.6830, -.6830, 2.5490, -.0490,  .1830,  .1830, -.6830,\r\n     * -.2500,  .9330, -.2500,  .9330,  .0670, -.2500,  .0670, -.2500,\r\n     * -.6830, 2.5490,  .1830, -.6830,  .1830, -.6830, -.0490,  .1830,\r\n     * -.2500,  .9330,  .0670, -.2500, -.2500,  .9330,  .0670, -.2500,\r\n     *  .1830, -.6830, -.0490,  .1830, -.6830, 2.5490,  .1830, -.6830,\r\n     *  .0670, -.2500,  .0670, -.2500, -.2500,  .9330, -.2500,  .9330,\r\n     *  .0670,  .0670, -.2500, -.2500, -.2500, -.2500,  .9330,  .9330,\r\n     * -.2500, -.2500,  .9330,  .9330,  .0670,  .0670, -.2500, -.2500,\r\n     *  .9330,  .9330, -.2500, -.2500, -.2500, -.2500,  .0670,  .0670,\r\n     * -.2500, -.2500,  .0670,  .0670,  .9330,  .9330, -.2500, -.2500,\r\n     *  .1830, -.0490, -.6830,  .1830, -.6830,  .1830, 2.5490, -.6830,\r\n     * -.2500,  .0670,  .9330, -.2500, -.2500,  .0670,  .9330, -.2500,\r\n     * -.6830,  .1830, 2.5490, -.6830,  .1830, -.0490, -.6830,  .1830,\r\n     *  .9330, -.2500,  .9330, -.2500, -.2500,  .0670, -.2500,  .0670,\r\n     * 2.5490, -.6830, -.6830,  .1830, -.6830,  .1830,  .1830, -.0490,\r\n     *  .9330, -.2500, -.2500,  .0670,  .9330, -.2500, -.2500,  .0670,\r\n     * -.6830,  .1830,  .1830, -.0490, 2.5490, -.6830, -.6830,  .1830/\r\n      DATA EX2022/\r\n     * -.2500,  .0670, -.2500,  .0670,  .9330, -.2500,  .9330, -.2500,\r\n     *  .1250,  .1250,  .1250,  .1250,  .1250,  .1250,  .1250,  .1250/\r\n      DATA EX2031/\r\n     *  .0066, -.0235,  .0522, -.0235,  .0835, -.1852,  .0522, -.1852,\r\n     *  .4108, -.0235,  .0835, -.1852,  .0835, -.2963,  .6573, -.1852,\r\n     *  .6573,-1.4580,  .0522, -.1852,  .4108, -.1852,  .6573,-1.4580,\r\n     *  .4108,-1.4580, 3.2341,\r\n     * -.0000,  .0000, -.0000,  .0000, -.0000,  .0000, -.0000,  .0000,\r\n     * -.0000,  .0353, -.1252,  .2778, -.1252,  .4444, -.9859,  .2778,\r\n     * -.9859, 2.1869,  .0000,  .0000, -.0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000,\r\n     *  .0522, -.1852,  .4108, -.1852,  .6573,-1.4580,  .4108,-1.4580,\r\n     * 3.2341, -.0235,  .0835, -.1852,  .0835, -.2963,  .6573, -.1852,\r\n     *  .6573,-1.4580,  .0066, -.0235,  .0522, -.0235,  .0835, -.1852,\r\n     *  .0522, -.1852,  .4108,\r\n     * -.0000,  .0000,  .0000,  .2778, -.9859, 2.1869,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000,  .0000, -.1252,  .4444, -.9859, -.0000,\r\n     *  .0000, -.0000, -.0000, -.0000,  .0000,  .0353, -.1252,  .2778,\r\n     * -.0000,  .0000, -.0000,\r\n     *  .4108,-1.4580, 3.2341, -.1852,  .6573,-1.4580,  .0522, -.1852,\r\n     *  .4108, -.1852,  .6573,-1.4580,  .0835, -.2963,  .6573, -.0235,\r\n     *  .0835, -.1852,  .0522, -.1852,  .4108, -.0235,  .0835, -.1852/\r\n      DATA EX2032/\r\n     *  .0066, -.0235,  .0522,\r\n     * -.0000,  .0000, -.0000,  .0000, -.0000,  .0000,  .0000,  .0000,\r\n     * -.0000,  .2778, -.9859, 2.1869, -.1252,  .4444, -.9859,  .0353,\r\n     * -.1252,  .2778,  .0000,  .0000,  .0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000, -.0000,\r\n     *  .0522, -.1852,  .4108, -.0235,  .0835, -.1852,  .0066, -.0235,\r\n     *  .0522, -.1852,  .6573,-1.4580,  .0835, -.2963,  .6573, -.0235,\r\n     *  .0835, -.1852,  .4108,-1.4580, 3.2341, -.1852,  .6573,-1.4580,\r\n     *  .0522, -.1852,  .4108,\r\n     * -.0000,  .0000, -.0000,  .0353, -.1252,  .2778,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000,  .0000, -.1252,  .4444, -.9859, -.0000,\r\n     *  .0000, -.0000, -.0000,  .0000,  .0000,  .2778, -.9859, 2.1869,\r\n     * -.0000, -.0000, -.0000,\r\n     * -.0000,  .0353,  .0000,  .0000, -.1252,  .0000, -.0000,  .2778,\r\n     * -.0000,  .0000, -.1252,  .0000,  .0000,  .4444,  .0000,  .0000,\r\n     * -.9859, -.0000,  .0000,  .2778, -.0000, -.0000, -.9859, -.0000,\r\n     *  .0000, 2.1869,  .0000,\r\n     * -.0000,  .2778, -.0000,  .0000, -.9859,  .0000, -.0000, 2.1869,\r\n     *  .0000,  .0000, -.1252,  .0000,  .0000,  .4444,  .0000,  .0000/\r\n      DATA EX2033/\r\n     * -.9859, -.0000, -.0000,  .0353,  .0000, -.0000, -.1252, -.0000,\r\n     * -.0000,  .2778, -.0000,\r\n     * -.0000, 2.1869, -.0000,  .0000, -.9859,  .0000, -.0000,  .2778,\r\n     * -.0000,  .0000, -.9859,  .0000,  .0000,  .4444,  .0000, -.0000,\r\n     * -.1252, -.0000, -.0000,  .2778,  .0000, -.0000, -.1252, -.0000,\r\n     * -.0000,  .0353,  .0000,\r\n     * -.0000,  .2778, -.0000,  .0000, -.1252,  .0000, -.0000,  .0353,\r\n     *  .0000,  .0000, -.9859,  .0000,  .0000,  .4444,  .0000, -.0000,\r\n     * -.1252, -.0000,  .0000, 2.1869,  .0000, -.0000, -.9859, -.0000,\r\n     * -.0000,  .2778,  .0000,\r\n     *  .0522, -.0235,  .0066, -.1852,  .0835, -.0235,  .4108, -.1852,\r\n     *  .0522, -.1852,  .0835, -.0235,  .6573, -.2963,  .0835,-1.4580,\r\n     *  .6573, -.1852,  .4108, -.1852,  .0522,-1.4580,  .6573, -.1852,\r\n     * 3.2341,-1.4580,  .4108,\r\n     * -.0000,  .0000, -.0000,  .0000, -.0000,  .0000, -.0000,  .0000,\r\n     * -.0000,  .2778, -.1252,  .0353, -.9859,  .4444, -.1252, 2.1869,\r\n     * -.9859,  .2778,  .0000,  .0000,  .0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000,\r\n     *  .4108, -.1852,  .0522,-1.4580,  .6573, -.1852, 3.2341,-1.4580/\r\n      DATA EX2034/\r\n     *  .4108, -.1852,  .0835, -.0235,  .6573, -.2963,  .0835,-1.4580,\r\n     *  .6573, -.1852,  .0522, -.0235,  .0066, -.1852,  .0835, -.0235,\r\n     *  .4108, -.1852,  .0522,\r\n     * -.0000,  .0000, -.0000, 2.1869, -.9859,  .2778, -.0000,  .0000,\r\n     * -.0000,  .0000,  .0000,  .0000, -.9859,  .4444, -.1252, -.0000,\r\n     *  .0000, -.0000, -.0000, -.0000, -.0000,  .2778, -.1252,  .0353,\r\n     * -.0000,  .0000, -.0000,\r\n     * 3.2341,-1.4580,  .4108,-1.4580,  .6573, -.1852,  .4108, -.1852,\r\n     *  .0522,-1.4580,  .6573, -.1852,  .6573, -.2963,  .0835, -.1852,\r\n     *  .0835, -.0235,  .4108, -.1852,  .0522, -.1852,  .0835, -.0235,\r\n     *  .0522, -.0235,  .0066,\r\n     * -.0000,  .0000, -.0000,  .0000, -.0000,  .0000, -.0000,  .0000,\r\n     * -.0000, 2.1869, -.9859,  .2778, -.9859,  .4444, -.1252,  .2778,\r\n     * -.1252,  .0353,  .0000,  .0000,  .0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000, -.0000,\r\n     *  .4108, -.1852,  .0522, -.1852,  .0835, -.0235,  .0522, -.0235,\r\n     *  .0066,-1.4580,  .6573, -.1852,  .6573, -.2963,  .0835, -.1852,\r\n     *  .0835, -.0235, 3.2341,-1.4580,  .4108,-1.4580,  .6573, -.1852,\r\n     *  .4108, -.1852,  .0522/\r\n      DATA EX2035/\r\n     * -.0000,  .0000, -.0000,  .2778, -.1252,  .0353, -.0000,  .0000,\r\n     *  .0000,  .0000,  .0000,  .0000, -.9859,  .4444, -.1252, -.0000,\r\n     *  .0000, -.0000,  .0000,  .0000,  .0000, 2.1869, -.9859,  .2778,\r\n     * -.0000, -.0000, -.0000,\r\n     * -.0000,  .0000,  .0000,  .0000,  .0000,  .0000,  .0000, -.0000,\r\n     * -.0000, 0.0000,  .0000,  .0000,  .0000, 1.0000,  .0000, -.0000,\r\n     * -.0000, -.0000,  .0000,  .0000, -.0000, -.0000,  .0000,  .0000,\r\n     * -.0000,  .0000,  .0000/\r\n      DATA EX2041/\r\n     * -.0015,  .0052, -.0106,  .0198,  .0052, -.0183,  .0371, -.0697,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0198, -.0697,  .1415, -.2656,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0183,  .0644, -.1307,  .2452,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0697,  .2452, -.4978,  .9342,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0754,  .2653, -.5386, 1.0107,  .1415, -.4978, 1.0107,-1.8966,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0697,  .2452, -.4978,  .9342,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.2656,  .9342,-1.8966, 3.5591,\r\n     * -.0012,  .0042, -.0086,  .0161,  .0042, -.0148,  .0301, -.0565,\r\n     * -.0086,  .0301, -.0611,  .1147,  .0161, -.0565,  .1147, -.2152,\r\n     *  .0077, -.0270,  .0549, -.1030, -.0270,  .0951, -.1931,  .3624,\r\n     *  .0549, -.1931,  .3921, -.7358, -.1030,  .3624, -.7358, 1.3808,\r\n     *  .0077, -.0270,  .0549, -.1030, -.0270,  .0951, -.1931,  .3624,\r\n     *  .0549, -.1931,  .3921, -.7358, -.1030,  .3624, -.7358, 1.3808,\r\n     * -.0012,  .0042, -.0086,  .0161,  .0042, -.0148,  .0301, -.0565,\r\n     * -.0086,  .0301, -.0611,  .1147,  .0161, -.0565,  .1147, -.2152,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0697,  .2452, -.4978,  .9342,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.2656,  .9342,-1.8966, 3.5591,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0371, -.1307,  .2653, -.4978/\r\n      DATA EX2042/\r\n     * -.0754,  .2653, -.5386, 1.0107,  .1415, -.4978, 1.0107,-1.8966,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0183,  .0644, -.1307,  .2452,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0697,  .2452, -.4978,  .9342,\r\n     * -.0015,  .0052, -.0106,  .0198,  .0052, -.0183,  .0371, -.0697,\r\n     * -.0106,  .0371, -.0754,  .1415,  .0198, -.0697,  .1415, -.2656,\r\n     *  .0161, -.0565,  .1147, -.2152, -.1030,  .3624, -.7358, 1.3808,\r\n     * -.1030,  .3624, -.7358, 1.3808,  .0161, -.0565,  .1147, -.2152,\r\n     * -.0086,  .0301, -.0611,  .1147,  .0549, -.1931,  .3921, -.7358,\r\n     *  .0549, -.1931,  .3921, -.7358, -.0086,  .0301, -.0611,  .1147,\r\n     *  .0042, -.0148,  .0301, -.0565, -.0270,  .0951, -.1931,  .3624,\r\n     * -.0270,  .0951, -.1931,  .3624,  .0042, -.0148,  .0301, -.0565,\r\n     * -.0012,  .0042, -.0086,  .0161,  .0077, -.0270,  .0549, -.1030,\r\n     *  .0077, -.0270,  .0549, -.1030, -.0012,  .0042, -.0086,  .0161,\r\n     * -.2656,  .9342,-1.8966, 3.5591,  .1415, -.4978, 1.0107,-1.8966,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0198, -.0697,  .1415, -.2656,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.0754,  .2653, -.5386, 1.0107,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0106,  .0371, -.0754,  .1415,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0183,  .0644, -.1307,  .2452,  .0052, -.0183,  .0371, -.0697/\r\n      DATA EX2043/\r\n     *  .0198, -.0697,  .1415, -.2656, -.0106,  .0371, -.0754,  .1415,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0015,  .0052, -.0106,  .0198,\r\n     *  .0161, -.0565,  .1147, -.2152, -.0086,  .0301, -.0611,  .1147,\r\n     *  .0042, -.0148,  .0301, -.0565, -.0012,  .0042, -.0086,  .0161,\r\n     * -.1030,  .3624, -.7358, 1.3808,  .0549, -.1931,  .3921, -.7358,\r\n     * -.0270,  .0951, -.1931,  .3624,  .0077, -.0270,  .0549, -.1030,\r\n     * -.1030,  .3624, -.7358, 1.3808,  .0549, -.1931,  .3921, -.7358,\r\n     * -.0270,  .0951, -.1931,  .3624,  .0077, -.0270,  .0549, -.1030,\r\n     *  .0161, -.0565,  .1147, -.2152, -.0086,  .0301, -.0611,  .1147,\r\n     *  .0042, -.0148,  .0301, -.0565, -.0012,  .0042, -.0086,  .0161,\r\n     *  .0198, -.0697,  .1415, -.2656, -.0106,  .0371, -.0754,  .1415,\r\n     *  .0052, -.0183,  .0371, -.0697, -.0015,  .0052, -.0106,  .0198,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0371, -.1307,  .2653, -.4978,\r\n     * -.0183,  .0644, -.1307,  .2452,  .0052, -.0183,  .0371, -.0697,\r\n     *  .1415, -.4978, 1.0107,-1.8966, -.0754,  .2653, -.5386, 1.0107,\r\n     *  .0371, -.1307,  .2653, -.4978, -.0106,  .0371, -.0754,  .1415,\r\n     * -.2656,  .9342,-1.8966, 3.5591,  .1415, -.4978, 1.0107,-1.8966,\r\n     * -.0697,  .2452, -.4978,  .9342,  .0198, -.0697,  .1415, -.2656,\r\n     * -.0012,  .0042, -.0086,  .0161,  .0077, -.0270,  .0549, -.1030/\r\n      DATA EX2044/\r\n     *  .0077, -.0270,  .0549, -.1030, -.0012,  .0042, -.0086,  .0161,\r\n     *  .0042, -.0148,  .0301, -.0565, -.0270,  .0951, -.1931,  .3624,\r\n     * -.0270,  .0951, -.1931,  .3624,  .0042, -.0148,  .0301, -.0565,\r\n     * -.0086,  .0301, -.0611,  .1147,  .0549, -.1931,  .3921, -.7358,\r\n     *  .0549, -.1931,  .3921, -.7358, -.0086,  .0301, -.0611,  .1147,\r\n     *  .0161, -.0565,  .1147, -.2152, -.1030,  .3624, -.7358, 1.3808,\r\n     * -.1030,  .3624, -.7358, 1.3808,  .0161, -.0565,  .1147, -.2152,\r\n     * -.0012,  .0077,  .0077, -.0012,  .0042, -.0270, -.0270,  .0042,\r\n     * -.0086,  .0549,  .0549, -.0086,  .0161, -.1030, -.1030,  .0161,\r\n     *  .0042, -.0270, -.0270,  .0042, -.0148,  .0951,  .0951, -.0148,\r\n     *  .0301, -.1931, -.1931,  .0301, -.0565,  .3624,  .3624, -.0565,\r\n     * -.0086,  .0549,  .0549, -.0086,  .0301, -.1931, -.1931,  .0301,\r\n     * -.0611,  .3921,  .3921, -.0611,  .1147, -.7358, -.7358,  .1147,\r\n     *  .0161, -.1030, -.1030,  .0161, -.0565,  .3624,  .3624, -.0565,\r\n     *  .1147, -.7358, -.7358,  .1147, -.2152, 1.3808, 1.3808, -.2152,\r\n     *  .0161, -.1030, -.1030,  .0161, -.0565,  .3624,  .3624, -.0565,\r\n     *  .1147, -.7358, -.7358,  .1147, -.2152, 1.3808, 1.3808, -.2152,\r\n     * -.0086,  .0549,  .0549, -.0086,  .0301, -.1931, -.1931,  .0301,\r\n     * -.0611,  .3921,  .3921, -.0611,  .1147, -.7358, -.7358,  .1147/\r\n      DATA EX2045/\r\n     *  .0042, -.0270, -.0270,  .0042, -.0148,  .0951,  .0951, -.0148,\r\n     *  .0301, -.1931, -.1931,  .0301, -.0565,  .3624,  .3624, -.0565,\r\n     * -.0012,  .0077,  .0077, -.0012,  .0042, -.0270, -.0270,  .0042,\r\n     * -.0086,  .0549,  .0549, -.0086,  .0161, -.1030, -.1030,  .0161,\r\n     * -.2152, 1.3808, 1.3808, -.2152,  .1147, -.7358, -.7358,  .1147,\r\n     * -.0565,  .3624,  .3624, -.0565,  .0161, -.1030, -.1030,  .0161,\r\n     *  .1147, -.7358, -.7358,  .1147, -.0611,  .3921,  .3921, -.0611,\r\n     *  .0301, -.1931, -.1931,  .0301, -.0086,  .0549,  .0549, -.0086,\r\n     * -.0565,  .3624,  .3624, -.0565,  .0301, -.1931, -.1931,  .0301,\r\n     * -.0148,  .0951,  .0951, -.0148,  .0042, -.0270, -.0270,  .0042,\r\n     *  .0161, -.1030, -.1030,  .0161, -.0086,  .0549,  .0549, -.0086,\r\n     *  .0042, -.0270, -.0270,  .0042, -.0012,  .0077,  .0077, -.0012,\r\n     *  .0161, -.1030, -.1030,  .0161, -.0086,  .0549,  .0549, -.0086,\r\n     *  .0042, -.0270, -.0270,  .0042, -.0012,  .0077,  .0077, -.0012,\r\n     * -.0565,  .3624,  .3624, -.0565,  .0301, -.1931, -.1931,  .0301,\r\n     * -.0148,  .0951,  .0951, -.0148,  .0042, -.0270, -.0270,  .0042,\r\n     *  .1147, -.7358, -.7358,  .1147, -.0611,  .3921,  .3921, -.0611,\r\n     *  .0301, -.1931, -.1931,  .0301, -.0086,  .0549,  .0549, -.0086,\r\n     * -.2152, 1.3808, 1.3808, -.2152,  .1147, -.7358, -.7358,  .1147/\r\n      DATA EX2046/\r\n     * -.0565,  .3624,  .3624, -.0565,  .0161, -.1030, -.1030,  .0161,\r\n     *  .0198, -.0106,  .0052, -.0015, -.0697,  .0371, -.0183,  .0052,\r\n     *  .1415, -.0754,  .0371, -.0106, -.2656,  .1415, -.0697,  .0198,\r\n     * -.0697,  .0371, -.0183,  .0052,  .2452, -.1307,  .0644, -.0183,\r\n     * -.4978,  .2653, -.1307,  .0371,  .9342, -.4978,  .2452, -.0697,\r\n     *  .1415, -.0754,  .0371, -.0106, -.4978,  .2653, -.1307,  .0371,\r\n     * 1.0107, -.5386,  .2653, -.0754,-1.8966, 1.0107, -.4978,  .1415,\r\n     * -.2656,  .1415, -.0697,  .0198,  .9342, -.4978,  .2452, -.0697,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 3.5591,-1.8966,  .9342, -.2656,\r\n     *  .0161, -.0086,  .0042, -.0012, -.0565,  .0301, -.0148,  .0042,\r\n     *  .1147, -.0611,  .0301, -.0086, -.2152,  .1147, -.0565,  .0161,\r\n     * -.1030,  .0549, -.0270,  .0077,  .3624, -.1931,  .0951, -.0270,\r\n     * -.7358,  .3921, -.1931,  .0549, 1.3808, -.7358,  .3624, -.1030,\r\n     * -.1030,  .0549, -.0270,  .0077,  .3624, -.1931,  .0951, -.0270,\r\n     * -.7358,  .3921, -.1931,  .0549, 1.3808, -.7358,  .3624, -.1030,\r\n     *  .0161, -.0086,  .0042, -.0012, -.0565,  .0301, -.0148,  .0042,\r\n     *  .1147, -.0611,  .0301, -.0086, -.2152,  .1147, -.0565,  .0161,\r\n     * -.2656,  .1415, -.0697,  .0198,  .9342, -.4978,  .2452, -.0697,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 3.5591,-1.8966,  .9342, -.2656/\r\n      DATA EX2047/\r\n     *  .1415, -.0754,  .0371, -.0106, -.4978,  .2653, -.1307,  .0371,\r\n     * 1.0107, -.5386,  .2653, -.0754,-1.8966, 1.0107, -.4978,  .1415,\r\n     * -.0697,  .0371, -.0183,  .0052,  .2452, -.1307,  .0644, -.0183,\r\n     * -.4978,  .2653, -.1307,  .0371,  .9342, -.4978,  .2452, -.0697,\r\n     *  .0198, -.0106,  .0052, -.0015, -.0697,  .0371, -.0183,  .0052,\r\n     *  .1415, -.0754,  .0371, -.0106, -.2656,  .1415, -.0697,  .0198,\r\n     * -.2152,  .1147, -.0565,  .0161, 1.3808, -.7358,  .3624, -.1030,\r\n     * 1.3808, -.7358,  .3624, -.1030, -.2152,  .1147, -.0565,  .0161,\r\n     *  .1147, -.0611,  .0301, -.0086, -.7358,  .3921, -.1931,  .0549,\r\n     * -.7358,  .3921, -.1931,  .0549,  .1147, -.0611,  .0301, -.0086,\r\n     * -.0565,  .0301, -.0148,  .0042,  .3624, -.1931,  .0951, -.0270,\r\n     *  .3624, -.1931,  .0951, -.0270, -.0565,  .0301, -.0148,  .0042,\r\n     *  .0161, -.0086,  .0042, -.0012, -.1030,  .0549, -.0270,  .0077,\r\n     * -.1030,  .0549, -.0270,  .0077,  .0161, -.0086,  .0042, -.0012,\r\n     * 3.5591,-1.8966,  .9342, -.2656,-1.8966, 1.0107, -.4978,  .1415,\r\n     *  .9342, -.4978,  .2452, -.0697, -.2656,  .1415, -.0697,  .0198,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 1.0107, -.5386,  .2653, -.0754,\r\n     * -.4978,  .2653, -.1307,  .0371,  .1415, -.0754,  .0371, -.0106,\r\n     *  .9342, -.4978,  .2452, -.0697, -.4978,  .2653, -.1307,  .0371/\r\n      DATA EX2048/\r\n     *  .2452, -.1307,  .0644, -.0183, -.0697,  .0371, -.0183,  .0052,\r\n     * -.2656,  .1415, -.0697,  .0198,  .1415, -.0754,  .0371, -.0106,\r\n     * -.0697,  .0371, -.0183,  .0052,  .0198, -.0106,  .0052, -.0015,\r\n     * -.2152,  .1147, -.0565,  .0161,  .1147, -.0611,  .0301, -.0086,\r\n     * -.0565,  .0301, -.0148,  .0042,  .0161, -.0086,  .0042, -.0012,\r\n     * 1.3808, -.7358,  .3624, -.1030, -.7358,  .3921, -.1931,  .0549,\r\n     *  .3624, -.1931,  .0951, -.0270, -.1030,  .0549, -.0270,  .0077,\r\n     * 1.3808, -.7358,  .3624, -.1030, -.7358,  .3921, -.1931,  .0549,\r\n     *  .3624, -.1931,  .0951, -.0270, -.1030,  .0549, -.0270,  .0077,\r\n     * -.2152,  .1147, -.0565,  .0161,  .1147, -.0611,  .0301, -.0086,\r\n     * -.0565,  .0301, -.0148,  .0042,  .0161, -.0086,  .0042, -.0012,\r\n     * -.2656,  .1415, -.0697,  .0198,  .1415, -.0754,  .0371, -.0106,\r\n     * -.0697,  .0371, -.0183,  .0052,  .0198, -.0106,  .0052, -.0015,\r\n     *  .9342, -.4978,  .2452, -.0697, -.4978,  .2653, -.1307,  .0371,\r\n     *  .2452, -.1307,  .0644, -.0183, -.0697,  .0371, -.0183,  .0052,\r\n     *-1.8966, 1.0107, -.4978,  .1415, 1.0107, -.5386,  .2653, -.0754,\r\n     * -.4978,  .2653, -.1307,  .0371,  .1415, -.0754,  .0371, -.0106,\r\n     * 3.5591,-1.8966,  .9342, -.2656,-1.8966, 1.0107, -.4978,  .1415,\r\n     *  .9342, -.4978,  .2452, -.0697, -.2656,  .1415, -.0697,  .0198/\r\n      DATA EX2049/\r\n     *  .0161, -.0086,  .0042, -.0012, -.1030,  .0549, -.0270,  .0077,\r\n     * -.1030,  .0549, -.0270,  .0077,  .0161, -.0086,  .0042, -.0012,\r\n     * -.0565,  .0301, -.0148,  .0042,  .3624, -.1931,  .0951, -.0270,\r\n     *  .3624, -.1931,  .0951, -.0270, -.0565,  .0301, -.0148,  .0042,\r\n     *  .1147, -.0611,  .0301, -.0086, -.7358,  .3921, -.1931,  .0549,\r\n     * -.7358,  .3921, -.1931,  .0549,  .1147, -.0611,  .0301, -.0086,\r\n     * -.2152,  .1147, -.0565,  .0161, 1.3808, -.7358,  .3624, -.1030,\r\n     * 1.3808, -.7358,  .3624, -.1030, -.2152,  .1147, -.0565,  .0161,\r\n     * -.0008,  .0050,  .0050, -.0008,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0008,  .0050,  .0050, -.0008,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0324,  .2078,  .2078, -.0324,\r\n     * -.0324,  .2078,  .2078, -.0324,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0324,  .2078,  .2078, -.0324,\r\n     * -.0324,  .2078,  .2078, -.0324,  .0050, -.0324, -.0324,  .0050,\r\n     * -.0008,  .0050,  .0050, -.0008,  .0050, -.0324, -.0324,  .0050,\r\n     *  .0050, -.0324, -.0324,  .0050, -.0008,  .0050,  .0050, -.0008/\r\nC\r\n      DATA        DTOR        /0.0174532925E0/\r\n      DATA        NEQU        /200/\r\n      DATA        OLDEID      / 0 /\r\n      DATA        LLD,LSUB,FRLAST / 2*-1,2*-1.0E30 /\r\n      DATA        TYP         / 4HIHEX,1H1,1H2,1H3 /\r\nC\r\nC*****\r\nC     IF THIS IS THE FIRST STRESS POINT IN AN ELEMENT, INITIALIZE\r\nC     COUNTER AND GET EXTERNAL GRID POINT NUMBERS\r\nC*****\r\n      IF (ISTORE .EQ. 1) GO TO 2633\r\n      IF (OLDEID .EQ. IESTA(1)) GO TO 200\r\n      STRSPT=0\r\n      IPTS=(TYPE-1)/2\r\n      NGP =12*TYPE-4\r\n      NGP1=NGP+1\r\n      IF (TYPE .EQ. 3) NGP1=21\r\n      NIP=IESTA(20*NGP+9)\r\nC\r\nC     IF EQEXIN NOT YET READ IN, READ IT.\r\nC\r\n      IF (ISOPL.NE.EQEXIN  .AND. OLDEID.NE.0) GO TO 10\r\n      ISOPL=-1\r\n      ITRL(1)=EQEXIN\r\n      CALL RDTRL (ITRL)\r\n      LEQX =ITRL(2)*2\r\n      MXLEQ=(NEQU/2)*2\r\n      NEQX =(LEQX-1)/MXLEQ+1\r\n      L=LEQX\r\n      IF (NEQX .GT. 1) L=MXLEQ\r\n      IEND = 0\r\n      CALL READ (*140,*140,EQEXIN,EQU,L,0,I)\r\n      DO 5 I=2,L,2\r\n    5 EQU(I)=IABS(EQU(I))\r\n      CALL SORT (0,0,2,2,EQU,L)\r\n      L=L/2\r\nC\r\nC     CONVERT SIL NUMBERS TO EXTERNAL GRID POINT NUMBERS\r\nC\r\n   10 OLDEID = IESTA(1)\r\n      DO 15 I = 1,NGP\r\n   15 EXTRNL(I)=-IESTA(I+1)\r\n      DO 130 J=1,NEQX\r\n   16 DO 120 I=1,NGP\r\n      IF (EXTRNL(I) .GT. 0) GO TO 120\r\n      SIL=IESTA(I+1)*10+1\r\nC\r\nC     BINARY SEARCH FOR MATCH ON SIL NUMBER\r\nC\r\n      KLO=1\r\n      KHI=L\r\n   20 K=(KHI+KLO+1)/2\r\n   30 KX=2*K\r\n      IF (SIL-EQU(KX)) 40,110,50\r\n   40 KHI=K\r\n      GO TO 60\r\n   50 KLO=K\r\n   60 IF (KHI-KLO-1) 120,70,20\r\n   70 IF (K .EQ. KLO) GO TO 80\r\n      K=KLO\r\n      GO TO 90\r\n   80 K=KHI\r\n   90 KLO=KHI\r\n      GO TO 30\r\n  110 EXTRNL(I)=EQU(KX-1)\r\n  120 CONTINUE\r\n      IF (NEQX .EQ. 1) GO TO 130\r\n      DO 121 I=1,NGP\r\n      IF (EXTRNL(I) .LT. 0) GO TO 123\r\n  121 CONTINUE\r\n      GO TO 135\r\n  123 L=MXLEQ\r\n      IEND = 0\r\n      CALL READ (*140,*125,EQEXIN,EQU,L,0,I)\r\n  124 DO 122 I=2,L,2\r\n  122 EQU(I)=IABS(EQU(I))\r\n      CALL SORT (0,0,2,2,EQU,L)\r\n      L=L/2\r\n      IF (IEND .EQ. 1) GO TO 16\r\n      GO TO 130\r\n  125 CALL BCKREC (EQEXIN)\r\n      L=I\r\n      IEND = 1\r\n      IF (L .EQ. 0) GO TO 123\r\n      GO TO 124\r\n  130 CONTINUE\r\n  135 IF (TYPE .NE. 3) EXTRNL(NGP+1)=0\r\n      IF (IEND .EQ. 0) CALL BCKREC (EQEXIN)\r\n      IEND = 1\r\n      GO TO 200\r\n  140 CALL MESAGE (-61,0,0)\r\nC*****\r\nC     BEGIN STRESS COMPUTATION\r\nC*****\r\n  200 STRSPT=STRSPT+1\r\n      IF (STRSPT .EQ. NIP**3+1) OLDEID=0\r\n      ISTORE=0\r\n      IF (OLDEID .EQ. 0) ISTORE=1\r\nC*****\r\nC     THERMAL EFFECTS\r\nC*****\r\n      IF (JTEMP .EQ. -1) GO TO 230\r\nC\r\nC     COMPUTE TEMPERATURE AT THIS POINT\r\nC\r\n      TEMP=0.0\r\n      DO 210 I=1,NGP\r\n  210 TEMP=TEMP+ESTA(NGP+1+I)*GPT(I)\r\n      TEMP=TEMP-ESTA(2*NGP+2)\r\n      DO 220 I=1,6\r\n      SIG(I) =TEMP*ESTA(2*NGP+2+I)\r\n  220 CSIG(I)=ABS(SIG(I))\r\n      GO TO 250\r\n  230 DO 240 I=1,6\r\n      SIG(I) =0.0\r\n  240 CSIG(I)=0.0\r\nC*****\r\nC     DISPLACEMENT EFFECTS.  LOOP OVER GRID POINTS.\r\nC*****\r\n  250 DO 260 I=1,NGP\r\n      J=IVEC+IESTA(I+1)-1\r\n      K=NGP*2+18*(I-1)+9\r\n      CALL SMMATS (ESTA(K),6,3,-2,Z(J),3,1,0,SIG,CSIG)\r\n  260 CONTINUE\r\nC\r\nC     STORE THE GAUSS POINT STRESSES UNTIL WE HAVE THEM ALL\r\nC     NO NEED TO STORE NIP3 + 1ST SINCE CENTROIDAL VALUES WILL BE\r\nC     EXTRAPOLATED. ACTUALLY, NIP3 + 1ST TIMES THRU SIHEX1 AND 2 ARE\r\nC     NOW SUPERFLUOUS\r\nC\r\n      NIP3=NIP**3\r\n      IF (STRSPT .EQ. NIP3+1) GO TO 2611\r\n      IPOINT=6*(STRSPT-1)\r\n      DO 261 I=1,6\r\n      ISUB=IPOINT+I\r\n  261 STORE(ISUB)=SIG(I)\r\n 2611 CONTINUE\r\nC\r\nC     IF ALL GAUSS POINT  ARE DONE, EXTRAPOLATE TO GRIDS\r\nC\r\n      IF (OLDEID .NE. 0) RETURN\r\nC\r\n      IF (NGP-20) 2620,2624,2624\r\nC\r\nC     8 GRIDS\r\nC\r\n 2620 IF (NIP-3) 2621,2622,2623\r\n 2621 CALL SMMATS (EX8G2, 9,8,0,STORE,8,6,0,SIGS,CSIGS)\r\n      GO TO 2632\r\n 2622 CALL SMMATS (EX8G3, 9,27,0,STORE,27,6,0,SIGS,CSIGS)\r\n      GO TO 2632\r\n 2623 CALL SMMATS (EX8G4, 9,64,0,STORE,64,6,0,SIGS,CSIGS)\r\n      GO TO 2632\r\nC\r\nC     20 OR 32 GRIDS\r\nC\r\n 2624 IF (NIP-3) 2625,2626,2627\r\n 2625 CALL SMMATS (EX20G2,21,8,0,STORE,8,6,0,SIGS,CSIGS)\r\n      GO TO 2632\r\n 2626 CALL SMMATS (EX20G3,21,27,0,STORE,27,6,0,SIGS,CSIGS)\r\n      GO TO 2632\r\n 2627 CALL SMMATS (EX20G4,21,64,0,STORE,64,6,0,SIGS,CSIGS)\r\n 2632 RETURN\r\nC\r\nC     JUST FETCH APPROPRIATE SIGS AND LET ROUTINE COMPUTE PRINCIPAL\r\nC     STRESSES AND WRITE( OUT RESULTS\r\nC\r\n 2633 STRSPT=STRSPT+1\r\n      IPOINT=6*(STRSPT-NIP3-2)\r\n      DO 2634 I=1,6\r\n      ISUB=IPOINT+I\r\n      SIG(I) =SIGS(ISUB)\r\n      CSIG(I)=CSIGS(ISUB)\r\n 2634 CONTINUE\r\nC\r\n      ISAVE=STRSPT\r\n      STRSPT=STRSPT-NIP3-1\r\nC\r\nC     SKIP PRINCIPAL STRESS COMPUTATIONS IF FINAL STRESS VECTOR\r\nC     WILL BE COMPLEX.\r\nC\r\n      IF (KTYPE .EQ. 2) GO TO 300\r\nC*****\r\nC     SOLVE CUBIC EQUATION FOR PRINCIPAL STRESSES\r\nC*****\r\nC\r\nC         S**3+P*S**2+Q*S+R=0.0\r\nC\r\nC     REF. -- CRC STANDARD MATH TABLES 14TH ED., PP. 392,3\r\nC\r\n      RM=0.0\r\n      DO 262 I=1,6\r\n      IF (ABS(SIG(I)) .GT. RM) RM=ABS(SIG(I))\r\n  262 CONTINUE\r\n      IF (RM .LE. 0.0) GO TO 267\r\n      THRESH=1.0E-5\r\n  264 DO 263 I=1,6\r\n      IF (ABS(SIG(I)/RM) .LT. THRESH) SIG(I)=0.0\r\n  263 CONTINUE\r\n      RX = SX/RM\r\n      RY = SY/RM\r\n      RZ = SZ/RM\r\n      RXY= SXY/RM\r\n      RYZ= SYZ/RM\r\n      RZX= SZX/RM\r\n      P  =-RX-RY-RZ\r\n      Q  = RX*RY+RY*RZ+RZ*RX-RXY**2-RYZ**2-RZX**2\r\n      R  =-(RX*RY*RZ+2.0*RXY*RYZ*RZX-RX*RYZ**2-RY*RZX**2-RZ*RXY**2)\r\n      A  = (3.0*Q-P**2)/3.0\r\n      B  = (2.0*P**3-9.0*P*Q+27.0*R)/27.0\r\n      X  =-A**3/27.0\r\n      IF (X .GT. 1.0E-16) GO TO 270\r\nC\r\nC     CHECK FOR IMAGINARY ROOTS\r\nC\r\n      IF (ABS(X) .GT. RM*1.0E-6) GO TO 265\r\nC\r\nC     CHECK FOR 3 EQUAL ROOTS\r\nC\r\n      IF (ABS(B) .GT. 1.0E-6) GO TO 265\r\n      X  =0.0\r\n      PHI=0.0\r\n      GO TO 275\r\n  265 THRESH=10.0*THRESH\r\n      IF (THRESH .LT. 1.1E-3) GO TO 264\r\n  267 SA = 0.0\r\n      SB = 0.0\r\n      SC = 0.0\r\n      GO TO 280\r\n  270 COSPHI=-(B/2.0)/SQRT(X)\r\n      AX = ABS(COSPHI)\r\n      IF (AX.GT.0.9999 .AND. AX.LT.1.0001) COSPHI=SIGN(1.0,COSPHI)\r\n      IF (ABS(COSPHI) .GT. 1.0) GO TO 265\r\n      PHI=ACOS(COSPHI)\r\n      X =2.0*SQRT(-A/3.0)\r\n  275 SA=(X*COS(PHI/3.0)-P/3.0)*RM\r\n      SB=(X*COS(PHI/3.0+120.0*DTOR)-P/3.0)*RM\r\n      SC=(X*COS(PHI/3.0+240.0*DTOR)-P/3.0)*RM\r\n      RM=0.0\r\n      DO 276 I=1,3\r\n      IF (ABS(SIGP(I)) .GT. RM) RM=ABS(SIGP(I))\r\n  276 CONTINUE\r\n      DO 277 I=1,3\r\n      IF (ABS(SIGP(I)/RM) .LT. 1.0E-5) SIGP(I)=0.0\r\n  277 CONTINUE\r\nC*****\r\nC     COMPUTE MEAN STRESS OR PRESSURE\r\nC*****\r\n  280 SN=-(SA+SB+SC)/3.0\r\nC*****\r\nC     COMPUTE OCTAHEDRAL SHEAR STRESS\r\nC*****\r\n      SO=SQRT(((SA+SN)**2+(SB+SN)**2+(SC+SN)**2)/3.0)\r\nC*****\r\nC     COMPUTE DIRECTION COSINES OF THE PRINCIPAL PLANES\r\nC*****\r\n      RM=1.0E-6\r\n      DO 600 I=1,3\r\n      IF (SIGP(I) .EQ. 0.0) GO TO 580\r\n      SMAT(1,1)= 1.0-SX/SIGP(I)\r\n      SMAT(2,1)=-SXY/SIGP(I)\r\n      SMAT(3,1)=-SZX/SIGP(I)\r\n      SMAT(1,2)= SMAT(2,1)\r\n      SMAT(2,2)= 1.0-SY/SIGP(I)\r\n      SMAT(3,2)=-SYZ/SIGP(I)\r\n      SMAT(1,3)= SMAT(3,1)\r\n      SMAT(2,3)= SMAT(3,2)\r\n      SMAT(3,3)= 1.0-SZ/SIGP(I)\r\n      CALL SAXB (SMAT(1,1),SMAT(1,2),DCOS(1,I))\r\n      RX=SADOTB(DCOS(1,I),DCOS(1,I))\r\n      J =1\r\n      CALL SAXB (SMAT(1,2),SMAT(1,3),DCOS(1,I))\r\n      RY=SADOTB(DCOS(1,I),DCOS(1,I))\r\n      IF (RY .GT. RX) J=2\r\n      CALL SAXB (SMAT(1,3),SMAT(1,1),DCOS(1,I))\r\n      RZ=SADOTB(DCOS(1,I),DCOS(1,I))\r\n      IF (RZ.GT.RY .AND. RZ.GT.RX) J=3\r\n      P=SMAT(1,J)\r\n      Q=SMAT(2,J)\r\n      R=SMAT(3,J)\r\n      IF (J-2) 450,460,470\r\n  450 J=2\r\n      GO TO 480\r\n  460 J=3\r\n      GO TO 480\r\n  470 J=1\r\n  480 S=SMAT(1,J)\r\n      T=SMAT(2,J)\r\n      V=SMAT(3,J)\r\n      IF (ABS(Q) .LE. RM) GO TO 500\r\n      RX=V-T*R/Q\r\n      IF (ABS(RX) .LE. RM) GO TO 490\r\n      RZ=-(S-T*P/Q)/RX\r\n      RY=-(P+R*RZ)/Q\r\n  485 X=1.0+RZ*RZ+RY*RY\r\n      DCOS(1,I)=1.0/SQRT(X)\r\n      DCOS(2,I)=RY*DCOS(1,I)\r\n      DCOS(3,I)=RZ*DCOS(1,I)\r\n      GO TO 600\r\n  490 RX=S-T*P/Q\r\n      IF (ABS(RX) .LE. RM) GO TO 580\r\n      RY=-R/Q\r\n      X =1.0+RY*RY\r\n      DCOS(1,I)=0.0\r\n      DCOS(3,I)=1.0/SQRT(X)\r\n      DCOS(2,I)=RY*DCOS(3,I)\r\n      GO TO 600\r\n  500 IF (ABS(R) .LE. RM) GO TO 520\r\n      RZ=-P/R\r\n      IF (ABS(T) .LE. RM) GO TO 510\r\n      RY=-(S-V*P/R)/T\r\n      GO TO 485\r\n  510 IF (ABS(S-V*P/R) .LE. RM) GO TO 580\r\n      DCOS(1,I)=0.0\r\n      DCOS(2,I)=1.0\r\n      DCOS(3,I)=0.0\r\n      GO TO 600\r\n  520 IF (ABS(P) .LE. RM) GO TO 580\r\n      IF (ABS(V) .LE. RM) GO TO 530\r\n      RZ=-T/V\r\n      X =1.0+RZ*RZ\r\n      DCOS(1,I)=0.0\r\n      DCOS(2,I)=1.0/SQRT(X)\r\n      DCOS(3,I)=RZ*DCOS(2,I)\r\n      GO TO 600\r\n  530 IF (ABS(T) .LE. RM) GO TO 580\r\n      DCOS(1,I)=0.0\r\n      DCOS(2,I)=0.0\r\n      DCOS(3,I)=1.0\r\n      GO TO 600\r\n  580 DCOS(1,I)=0.0\r\n      DCOS(2,I)=0.0\r\n      DCOS(3,I)=0.0\r\n  600 CONTINUE\r\nC*****\r\nC     PUT IT AWAY IN THE STRESS ARRAY\r\nC*****\r\n  300 ISTRS(1)=IESTA(1)\r\n      IF (TYPE .EQ. 3) GO TO 310\r\n      ISTRS(2)=EXTRNL(STRSPT)\r\n      GO TO 420\r\n  310 ISTRS(11)=0\r\nC            1   2   3   4   5   6   7   8   9   10\r\n      GO TO (320,330,320,330,320,330,320,340,350,350,\r\n     2       350,350,360,370,360,370,360,370,360,380,\r\n     3       390),STRSPT\r\n  320 J=STRSPT/2+STRSPT\r\n      GO TO 410\r\n  330 J=(STRSPT-1)/2+STRSPT-1\r\n      K=J+3\r\n      GO TO 400\r\n  340 J=(STRSPT-1)/2+STRSPT-1\r\n      K=J-9\r\n      GO TO 400\r\n  350 J=(STRSPT-9)*3+1\r\n      K=J+20\r\n      GO TO 400\r\n  360 J=STRSPT/2+STRSPT+2\r\n      GO TO 410\r\n  370 J=(STRSPT-1)/2+STRSPT+1\r\n      K=J+3\r\n      GO TO 400\r\n  380 J=(STRSPT-1)/2+STRSPT+1\r\n      K=J-9\r\n      GO TO 400\r\n  390 ISTRS(2)=0\r\n      GO TO 420\r\n  400 ISTRS(11)=EXTRNL(K)\r\n  410 ISTRS(2)=EXTRNL(J)\r\n  420 STRESS(      3)=SX\r\n      STRESS(      4)=SXY\r\n      STRESS(      5)=SA\r\n      STRESS(      9)=SN\r\n      STRESS(     10)=SO\r\n      STRESS(IPTS+11)=SY\r\n      STRESS(IPTS+12)=SYZ\r\n      STRESS(IPTS+13)=SB\r\n      STRESS(IPTS+17)=SZ\r\n      STRESS(IPTS+18)=SZX\r\n      STRESS(IPTS+19)=SC\r\n      DO 430 I=1,3\r\n      STRESS(      5+I)=DCOS(1,I)\r\n      STRESS(IPTS+13+I)=DCOS(2,I)\r\n      STRESS(IPTS+19+I)=DCOS(3,I)\r\n  430 CONTINUE\r\n      STRSPT=ISAVE\r\n      IF (NCHK .LE. 0) GO TO 960\r\nC\r\nC   . CHECK PRECISION...\r\nC\r\n      KK = 0\r\n      CALL SDRCHK (SIG,CSIG,6,KK)\r\nC\r\n      IF (KK .EQ. 0) GO TO 960\r\nC\r\nC   . LIMITS EXCEEDED...\r\nC\r\n      JJ = 0\r\n      IFRVEC(1) = TYP(1)\r\n      IF (TYPE .EQ. 1) IFRVEC(2) = TYP(2)\r\n      IF (TYPE .EQ. 2) IFRVEC(2) = TYP(3)\r\n      IF (TYPE .EQ. 3) IFRVEC(2) = TYP(4)\r\n      IFRVEC(3) = IESTA(1)\r\n      IFRVEC(4) = ISTRS(2)\r\n      IFRVEC(5) = ISTRS(11)\r\n      IF (TYPE .NE. 3) IFRVEC(5) = -1\r\nC\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 930\r\nC\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      JJ = 1\r\n      CALL PAGE1\r\nC\r\n  910 CALL SD2RHD (ISHD,JJ)\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,920)\r\n  920 FORMAT (7X,4HTYPE,5X,3HEID,4X,4HGRD1,4X,4HGRD2,5X,2HSX,5X,\r\n     1        2HSY,5X,2HSZ,4X,3HSXY,4X,3HSYZ,4X,3HSZX)\r\n      GO TO 940\r\nC\r\n  930 IF (EJECT(2) .NE. 0) GO TO 910\r\n  940 WRITE  (NOUT,950) IFRVEC\r\n  950 FORMAT (1H0,3X,2A4,I7,2I8,6F7.1)\r\n  960 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sinc0s.f",
    "content": "      SUBROUTINE SINC0S (ROW,SICK, D,O,COS)\r\nC                    =\r\nC     SUBROUTINE SICOX (D,O,COS)\r\nC\r\nC     THIS ROUTINE WAS CALLED SICOX BEFORE, WITH ENTRY POINT SINCAS\r\nC                                                                =\r\nC     THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED\r\nC     ONLY BY VALVEC\r\nC\r\nC     IT CALCULATES SINES AND COSINES FOR GIVENS TRIDIAGONALIZATION\r\nC\r\n      INTEGER          ROWP2,ROW,SICK\r\n      DOUBLE PRECISION D(1),O(1),COS(1),Z\r\n      COMMON /GIVN  /  TITLE(100),N\r\nC\r\nC     D   = DIAGONAL AND SINES.\r\nC     O   = OFF-DIAGONAL.\r\nC     COS = COSINES.\r\nC\r\nC     RETURN\r\nC\r\nC\r\nC     ENTRY SINCAS (ROW,SICK)\r\nC     =======================\r\nC\r\nC     CALCULATE THE SINES AND COSINES OF ROW -ROW-.\r\nC\r\n      SICK  = 0\r\n      ROWP2 = ROW + 2\r\n      DO 105 I = ROWP2,N\r\n      IF (D(I) .EQ. 0.0D0) GO TO 101\r\nC\r\nC     CALCULATE THE ROTATION.\r\nC\r\n      SICK = 1\r\n      Z    = DSQRT(D(I)**2 + D(ROW+1)**2)\r\n      D(I) = D(I)/Z\r\n      COS(I) = D(ROW+1)/Z\r\n      D(ROW+1) = Z\r\n      IF (COS(I) .GE. 0.0D0) GO TO 105\r\n      COS(I) = DABS(COS(I))\r\n      D(I)   = -D(I)\r\n      D(ROW+1) = -D(ROW+1)\r\n      GO TO 105\r\nC\r\nC     NO ROTATION.\r\nC\r\n  101 COS(I) = 1.0D0\r\n  105 CONTINUE\r\n      O(ROW) = D(ROW+1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sinc0s1.f",
    "content": "      SUBROUTINE SINC0S1 (ROW,SICK, D,O,COS)\r\nC                    =\r\nC     SUBROUTINE SICOX (D,O,COS)\r\nC\r\nC     THIS ROUTINE WAS CALLED SICOX BEFORE, WITH ENTRY POINT SINCAS\r\nC                                                                =\r\nC     THIS ROUTINE IS CALLED ONLY BY TRIDI SUBROUTINE, WHICH IS CALLED\r\nC     ONLY BY VALVEC\r\nC\r\nC     IT CALCULATES SINES AND COSINES FOR GIVENS TRIDIAGONALIZATION\r\nC\r\n      INTEGER          ROWP2,ROW,SICK\r\n      REAL             D(1),O(1),COS(1),Z\r\n      COMMON /GIVN  /  TITLE(100),N\r\nC\r\nC     D   = DIAGONAL AND SINES.\r\nC     O   = OFF-DIAGONAL.\r\nC     COS = COSINES.\r\nC\r\nC     RETURN\r\nC\r\nC\r\nC     ENTRY SINCAS (ROW,SICK)\r\nC     =======================\r\nC\r\nC     CALCULATE THE SINES AND COSINES OF ROW -ROW-.\r\nC\r\n      SICK  = 0\r\n      ROWP2 = ROW + 2\r\n      DO 105 I = ROWP2,N\r\n      IF (D(I) .EQ. 0.0) GO TO 101\r\nC\r\nC     CALCULATE THE ROTATION.\r\nC\r\n      SICK = 1\r\n      Z    = SQRT(D(I)**2 + D(ROW+1)**2)\r\n      D(I) = D(I)/Z\r\n      COS(I) = D(ROW+1)/Z\r\n      D(ROW+1) = Z\r\n      IF (COS(I) .GE. 0.0) GO TO 105\r\n      COS(I) = ABS(COS(I))\r\n      D(I)   = -D(I)\r\n      D(ROW+1) = -D(ROW+1)\r\n      GO TO 105\r\nC\r\nC     NO ROTATION.\r\nC\r\n  101 COS(I) = 1.0\r\n  105 CONTINUE\r\n      O(ROW) = D(ROW+1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sjump.f",
    "content": "      SUBROUTINE SJUMP (N)\r\nC\r\nC     JUMP OVER N GROUPS WITHIN AN ITEM WHEN IN READ MODE.  N WILL BE\r\nC     RETURNED AS -1 IF THE END OF ITEM IS REACHED BEFORE JUMPING OVER\r\nC     N GROUPS.\r\nC\r\n      EXTERNAL        ANDF,RSHIFT\r\n      INTEGER         ANDF,RSHIFT,BUF,EOG,EOI,BLKSIZ,DIRSIZ,NMSBR(2)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,\r\n     1                IOITCD,IOBLK\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      DATA    IRD   / 1   /\r\n      DATA    EOG   , EOI /  4H$EOG ,4H$EOI       /\r\n      DATA    INDSBR/ 17  /, NMSBR  /4HSJUM,4HP   /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      IF (N .LE. 0) RETURN\r\n      ICOUNT = 0\r\n      IF (IOMODE .EQ. IRD) GO TO 20\r\n      N = -2\r\n      RETURN\r\nC\r\nC     SEARCH THROUGH SOF FOR END OF ITEM AND END OF GROUP.\r\nC\r\n   10 IOPTR = IOPTR + 1\r\n   20 IF (IOPTR .GT. BLKSIZ+IO) GO TO 50\r\n   30 IF (BUF(IOPTR) .NE.  EOI) GO TO 40\r\n      N = -1\r\n      RETURN\r\nC\r\n   40 IF (BUF(IOPTR) .NE. EOG) GO TO 10\r\n      ICOUNT = ICOUNT + 1\r\n      IF (ICOUNT .NE. N) GO TO 10\r\n      IOPTR = IOPTR + 1\r\n      RETURN\r\nC\r\nC     REACHED END OF BLOCK.  REPLACE THE BLOCK CURRENTLY IN CORE BY ITS\r\nC     LINK BLOCK.\r\nC\r\n   50 CALL FNXT (IOPBN,INXT)\r\n      IF (MOD(IOPBN,2) .EQ. 1) GO TO 60\r\n      NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF)\r\n      GO TO 70\r\n   60 NEXT = ANDF(BUF(INXT),JHALF)\r\n   70 IF (NEXT .EQ. 0) GO TO 510\r\n      IOPBN = NEXT\r\n      IOLBN = IOLBN + 1\r\n      CALL SOFIO (IRD,IOPBN,BUF(IO-2))\r\n      IOPTR = IO + 1\r\n      GO TO 30\r\n  510 CALL ERRMKN (INDSBR,9)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/skpfrm.f",
    "content": "      SUBROUTINE SKPFRM (BFRAMS)\r\nC\r\n      INTEGER         BFRAMS,BFRMS,PLOTER,CAMERA,A(10),ADV10(3),CON10\r\n      REAL            SAVE(2,4),XYMAX(2)\r\n      COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),AXYMAX(2),EDGE(2),CAMERA,\r\n     1                SKPPLT(9),PXYMAX(7),ORIGIN(2)\r\n      DATA    ADV10 , CON10 / 1,2,3, 3 /\r\nC\r\n      DO 101 I = 1,2\r\n      SAVE(I,1) = REG(I,1)\r\n      REG(I,1)  = 0.\r\n      SAVE(I,2) = REG(I,2)\r\n      REG(I,2)  = AXYMAX(I)+2.*EDGE(I)\r\n      SAVE(I,3) = ORIGIN(I)\r\n      ORIGIN(I) = 0.\r\n      SAVE(I,4) = EDGE(I)\r\n      EDGE(I)   = 0.\r\n  101 CONTINUE\r\n      XYMAX(1) = AMAX1(REG(1,2),REG(2,2))\r\n      XYMAX(2) = AMIN1(REG(1,2),REG(2,2))\r\n      REG(1,2) = XYMAX(1)\r\n      REG(2,2) = XYMAX(2)\r\n      BFRMS    = MIN0(MAX0(BFRAMS,1),5)\r\nC\r\nC     PLOTTER 1, 2\r\nC\r\n      A(1) = CON10\r\n      A(2) = ADV10(CAMERA)\r\n      DO 141 I = 3,6\r\n      A(I) = 0\r\n  141 CONTINUE\r\n      DO 142 I = 1,BFRMS\r\n      CALL WPLT10 (A,0)\r\n  142 CONTINUE\r\n      GO TO 300\r\nC\r\n  300 DO 301 I = 1,2\r\n      REG(I,1) = SAVE(I,1)\r\n      REG(I,2) = SAVE(I,2)\r\n      ORIGIN(I)= SAVE(I,3)\r\n      EDGE(I)  = SAVE(I,4)\r\n  301 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/skprec.f",
    "content": "      SUBROUTINE SKPREC(IFILE,K)\r\nC\r\n      INTEGER NAME(2)\r\nC\r\n      DATA NAME /4HSKPR,2HEC /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IF( K ) 10,30,20\r\nC\r\n   10 M=IABS(K)\r\n      DO 15 I=1,M\r\n      CALL BCKREC(IFILE)\r\n   15 CONTINUE\r\n      GO TO 30\r\nC\r\n   20 DO 25 I=1,K\r\n      CALL FWDREC(*40,IFILE)\r\n   25 CONTINUE\r\nC\r\n   30 RETURN\r\nC\r\n   40 CALL MESAGE(-2,IFILE,NAME)\r\n      GO TO 30\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sma1.f",
    "content": "      SUBROUTINE SMA1\r\nC*****\r\nC THIS ROUTINE IS A DRIVER AND INITIALIZATION PROGRAM FOR MODULE\r\nC 2.4.1 OF THE NASTRAN SYSTEM.  IT GENERATES THE STIFFNESS MATRIX, KGG,\r\nC THE STRUCTURAL DAMPING MATRIX, K4GG, AND THE GRID POINT SINGULARITY\r\nC TABLE, GPST.\r\nC*****\r\n      DOUBLE PRECISION\r\n     1                   DZ                 ,DPDUM\r\nC\r\n      INTEGER\r\n     1                   IZ(1)              ,EOR\r\n     2,                  CLSRW              ,CLSNRW\r\n     3,                  FROWIC\r\n     4,                  TNROWS             ,OUTRW\r\n     5,                  OPTION\r\nC\r\n      LOGICAL           ANYTAB        ,LINEAR\r\n      LOGICAL            DODET              ,HEAT\r\nC\r\n      DIMENSION\r\n     1                   NMSMA1(2)\r\n      DIMENSION IBUF(7)\r\nC\r\n      COMMON /BLANK/  NOGENL             ,NOK4GG   ,OPTION(2)\r\n      COMMON   /SYSTEM/  ISYS,SKIP(53),IPREC,ITHERM\r\nC\r\nC SMA1 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA1IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IFGEI              ,IGGEI\r\n     6,                  IFKGG              ,IGKGG\r\n     7,                  IF4GG              ,IG4GG\r\n     8,                  IFGPST             ,IGGPST\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBKGG(7)          ,MCB4GG(7)\r\nC\r\nC SMA1 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ /  Z(1)\r\nC\r\nC SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON   /SMA1BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6K              ,N6X6K\r\n     5,                  I6X64              ,N6X64\r\nC\r\nC SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA1CL/\r\n     1                   IOPT4              ,K4GGSW\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,IDETCK\r\n     7,                  DODET              ,NOGO\r\nC\r\nC ELEMENT DATA\r\nC\r\n      COMMON /GPTA1/ NELEMS, LAST, INCR, NE(1)\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA1ET/\r\n     1                   ECPT(100)\r\nC\r\nC SCRATCH COMMON BLOCK USED BY ELEMENT ROUTINES.\r\nC\r\n      COMMON   /SMA1DP/\r\n     1                   DPDUM(300)\r\nC\r\nC COMMON INTERFACE FOR HMAT -HEAT- MATERIAL ROUTINE.\r\nC\r\n      COMMON /HMATDD/ IHMAT,NHMAT,MPTMPT,IDIT,LINEAR,ANYTAB\r\nC\r\n      COMMON   /SMA1HT/  HEAT\r\nC\r\n      EQUIVALENCE\r\n     1                   (Z(1),IZ(1),DZ)\r\nC\r\n      DATA\r\n     1                   NMSMA1(1) /4HSMA1/ ,NMSMA1(2) /4H    /\r\nC*****\r\nC  SET THE LOGICAL HEAT FLAG IF THIS IS A -HEAT- FORMULATION\r\nC*****\r\n      CALL DELSET\r\n      LINEAR =.TRUE.\r\n      OPTION(1) = -1\r\n      HEAT = .FALSE.\r\n      IF( ITHERM .NE. 0 )   HEAT = .TRUE.\r\nC\r\n      IZMAX = KORSZ(Z)\r\nC\r\nC IF NOGENL .GT. 0, GENERAL ELEMENTS EXIST AND HENCE THE GPST IS NOT\r\nC CREATED AND SO DETCK WILL NOT BE CALLED.\r\nC\r\n      DODET = .TRUE.\r\n      IF (NOGENL .GT. 0) DODET = .FALSE.\r\n      IBUF(1) = IFECPT\r\n      CALL RDTRL(IBUF(1))\r\n      IF (IBUF(3).EQ.1) DODET = .FALSE.\r\nC\r\nC SET K4GG PURGE FLAGS\r\nC\r\n      NOK4GG = -1\r\n      K4GGSW = -1\r\nC\r\nC ATTEMPT TO OPEN THE OUTPUT FILE FOR THE KGG  MATRIX.  IF IT IS NOT\r\nC IN THE OSCAR, EXECUTION WILL BE TERMINATED SINCE WE DO NOT ALLOW\r\nC THE USER TO GENERATE ONLY A K4GG.\r\nC\r\n      IGKGG = IZMAX - ISYS\r\n      CALL OPEN(*100,IFKGG,Z(IGKGG),OUTRW)\r\nC\r\nC WRITE A TWO WORD BCD HEADER AND CLOSE THE KGG FILE WITHOUT REWIND.\r\nC\r\n      CALL FNAME (IFKGG,Z(1))\r\n      CALL WRITE (IFKGG,Z(1),2,EOR)\r\n      CALL CLOSE (IFKGG,CLSNRW)\r\nC\r\nC ATTEMPT TO OPEN THE K4GG FILE.\r\nC\r\n      IG4GG = IGKGG\r\n      IOPT4 = 0\r\n      CALL OPEN(*10,IF4GG,Z(IG4GG),OUTRW)\r\n      IOPT4 = 1\r\n      IG4GG = IG4GG - ISYS\r\n      CALL FNAME (IF4GG,Z(1))\r\n      CALL WRITE (IF4GG,Z(1),2,EOR)\r\n      CALL CLOSE(IF4GG,CLSNRW)\r\nC\r\nC SET UP POINTERS TO GINO BUFFERS AND SET UP MATRIX CONTROL BLOCKS.\r\nC\r\n   10 IGECPT = IG4GG - ISYS\r\n      IGGPCT = IGECPT - ISYS\r\n      IGGPST = IGGPCT - ISYS\r\n      IF (.NOT. DODET) IGGPST = IGGPST + ISYS\r\n      MCBKGG(1) = IFKGG\r\n      MCBKGG(2) = 0\r\n      MCBKGG(3) = 0\r\n      MCBKGG(4) = 6\r\n      MCBKGG(5) = IPREC\r\n      MCBKGG(6) = 0\r\n      MCBKGG(7) = 0\r\n      IF (IOPT4 .EQ. 0) GO TO 30\r\n      MCB4GG(1) = IF4GG\r\n      DO 20 I = 2,7\r\n   20 MCB4GG(I) = MCBKGG(I)\r\nC\r\nC ATTEMPT TO READ THE CSTM INTO CORE.\r\nC\r\n   30 NCSTM = 0\r\n      ICSTM = 0\r\n      LEFT = IGGPST - 1\r\n      CALL OPEN(*50,IFCSTM,Z(IGKGG),INRW)\r\n      CALL FWDREC(*9020,IFCSTM)\r\n      CALL READ(*9030,*40,IFCSTM,Z(1),LEFT,EOR,NCSTM)\r\nC\r\nC IF CORE WAS FILLED WITHOUT HITTING AN EOR CALL MESAGE\r\nC\r\n      CALL MESAGE (-8,IFCSTM,IFCSTM)\r\n   40 LEFT = LEFT - NCSTM\r\nC\r\nC PRETRD SETS UP FUTURE CALLS TO TRANSD.\r\nC\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      CALL PRETRS(Z(ICSTM+1),NCSTM)\r\n      CALL CLOSE (IFCSTM,CLSRW)\r\n   50 IMAT1 = NCSTM\r\n      NMAT1 = 0\r\n      NMAT2 = 0\r\n      NMAT3 = 0\r\n      NMAT4 = 0\r\nC\r\nC CALL PREMAT TO READ MPT AND THE DIT INTO CORE\r\nC\r\n      IMAT11 = IMAT1 + 1\r\nC*****\r\nC  IF THIS IS A -HEAT- PROBLEM THE HMAT ROUTINE IS USED TO READ MAT4 AND\r\nC  MAT5 CARDS INTO CORE.\r\nC*****\r\n      IF( .NOT. HEAT ) GO TO 56\r\n      IHMAT = IMAT11 + 1\r\n      NHMAT = IMAT11 + LEFT - 2\r\n      MPTMPT = IFMPT\r\n      IDIT = IFDIT\r\n      CALL HMAT( 0 )\r\n      LEFT = LEFT - NHMAT + IHMAT\r\n      IGPCT = NHMAT + 1\r\n      GO TO 58\r\nC*****\r\nC  NORMAL PREMAT PROCESSING.\r\nC*****\r\n   56 CALL PREMAT (IZ(IMAT11),Z(IMAT11),Z(IGKGG),LEFT,MATCR,IFMPT,IFDIT)\r\n      LEFT = LEFT - MATCR\r\n      IGPCT = NCSTM + MATCR\r\nC\r\nC OPEN THE ECPT AND GPCT INPUT FILES AND THE GPST OUTPUT FILE.\r\nC\r\n   58 CALL OPEN(*9070,IFECPT,Z(IGECPT),INRW)\r\n      CALL FWDREC(*9080,IFECPT)\r\n      CALL OPEN(*9090,IFGPCT,Z(IGGPCT),INRW)\r\n      CALL FWDREC(*9100,IFGPCT)\r\n      IF (.NOT. DODET) GO TO 60\r\n      CALL OPEN(*9110,IFGPST,Z(IGGPST),OUTRW)\r\n      CALL FNAME(IFGPST,ECPT(1))\r\n      CALL WRITE(IFGPST,ECPT(1),2,EOR)\r\nC\r\nC REOPEN THE KGG OUTPUT FILE WITHOUT REWIND, AND THE K4GG, IF CALLED FOR\r\nC\r\n   60 CALL OPEN(*9120,IFKGG,Z(IGKGG),3)\r\n      IF(IOPT4.NE.0)CALL OPEN(*9130,IF4GG,Z(IG4GG),3)\r\nC\r\nC CALL SUBROUTINE SMA1A WHICH WILL PERFORM ALL THE COMPUTATIONS.\r\nC\r\n      CALL SMA1A\r\n      IF(.NOT. LINEAR) OPTION(1)= 1\r\nC\r\nC CLOSE FILES AND WRITE TRAILERS.\r\nC\r\n      CALL CLOSE(IFECPT,CLSRW)\r\n      CALL CLOSE(IFGPCT,CLSRW)\r\n      IF (.NOT. DODET) GO TO 70\r\n      CALL CLOSE (IFGPST,CLSRW)\r\n      CALL WRTTRL (IFGPST)\r\n   70 CALL CLOSE (IFKGG,CLSRW)\r\n      MCBKGG(3) = MCBKGG(2)\r\n      CALL WRTTRL (MCBKGG(1))\r\n      IF (IOPT4 .EQ. 0) GO TO 100\r\n      CALL CLOSE(IF4GG,CLSRW)\r\n      IF (MCB4GG(6) .EQ. 0) GO TO 80\r\n      MCB4GG(3) = MCB4GG(2)\r\n      CALL WRTTRL (MCB4GG(1))\r\n      NOK4GG = 1\r\n      GO TO 100\r\n   80 DO 90 I = 2,7\r\n   90 MCB4GG(I) = 0\r\n      NOK4GG = -1\r\n  100 RETURN\r\nC\r\nC SUBROUTINE SMA1 ERROR EXITS.\r\nC\r\n 9020 IFILE = IFCSTM\r\n      GO TO 10002\r\n 9030 IFILE = - IFCSTM\r\n      GO TO 10002\r\n 9070 IFILE = IFECPT\r\n      GO TO 10001\r\n 9080 IFILE = IFECPT\r\n      GO TO 10002\r\n 9090 IFILE = IFGPCT\r\n      GO TO 10001\r\n 9100 IFILE = IFGPCT\r\n      GO TO 10002\r\n 9110 IFILE = IFGPST\r\n      GO TO 10001\r\n 9120 IFILE = IFKGG\r\n      GO TO 10001\r\n 9130 IFILE = IF4GG\r\n10001 IPARM = -1\r\n      GO TO 10010\r\n10002 IPARM = -2\r\n10010 CALL MESAGE (IPARM,IFILE,NMSMA1(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma1a.f",
    "content": "      SUBROUTINE SMA1A\r\nC\r\nC     THIS SUBROUTINE FORMERLY GENERATED THE KGG AND K4GG MATRICES FOR\r\nC     THE SMA1 MODULE.  THESE OPERATIONS ARE NOW PERFORMED IN THE EMG\r\nC     AND EMA MODULES AND SMA1A IS RETAINED IN SKELETAL FORM TO PROVIDE\r\nC     A VEHICLE FOR USER-PROVIDED ELEMENTS.\r\nC\r\n      LOGICAL          DODET,NOGO,HEAT,NOHEAT\r\n      INTEGER          IZ(1),EOR,CLSRW,CLSNRW,FROWIC,SYSPRT,TNROWS,\r\n     1                 OUTRW,OPTION\r\n      DOUBLE PRECISION DZ,DPWORD\r\n      DIMENSION        INPVT(2),DZ(1),NAME(2)\r\n      CHARACTER        UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG /  UFM,UWM,UIM,SFM,SWM\r\n      COMMON /BLANK /  NOGENL,NOK4GG,OPTION(2)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /SMA1HT/  HEAT\r\n      COMMON /SMA1IO/  IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT,\r\n     1                 IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG,IF4GG,IG4GG,\r\n     2                 IFGPST,IGGPST,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR,\r\n     3                 MCBKGG(7),MCB4GG(7)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SMA1BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6K,\r\n     1                 N6X6K,I6X64,N6X64\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,LLEFT,FROWIC,LROWIC,NROWSC,\r\n     1                 TNROWS,JMAX,NLINKS,LINK(10),IDETCK,DODET,NOGOO\r\n      COMMON /GPTA1 /  NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SMA1ET/  ECPT(200)\r\n      COMMON /ZBLPKX/  DPWORD,DUM(2),INDEX\r\n      EQUIVALENCE      (KSYSTM(2),SYSPRT),(KSYSTM(3),NOGO),\r\n     1                 (KSYSTM(55),IPREC),(Z(1),IZ(1),DZ(1))\r\n      DATA    NAME  /  4HSMA1, 4HA   /\r\nC\r\nC     FLAG FOR ERROR CHECK IF A NON-HEAT ELEMENT IS REFERENCED\r\nC     IN A -HEAT- FORMULATION.\r\nC\r\n      NOHEAT = .FALSE.\r\n      IPR = IPREC\r\nC\r\nC     READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1).\r\nC     INPVT(1) IS THE PIVOT POINT.  INPVT(1) .GT. 0 IMPLIES THE PIVOT\r\nC     POINT IS A GRID POINT.  INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT IS\r\nC     A SCALAR POINT.  INPVT(2) IS THE NUMBER OF WORDS IN THE REMAINDER\r\nC     OF THIS RECORD OF THE GPCT.\r\nC\r\n      IF (NOGO) WRITE (SYSPRT,5) SWM\r\n    5 FORMAT (A27,' 2055, NOGO FLAG IS ON AT ENTRY TO SMA1A AND IS ',\r\n     1       'BEING TURNED OFF.')\r\n      NOGO   = .FALSE.\r\n   10 IDETCK = 0\r\n      CALL READ (*1000,*700,IFGPCT,INPVT(1),2,NEOR,IFLAG)\r\n      NGPCT = INPVT(2)\r\n      CALL READ (*1000,*3000,IFGPCT,IZ(IGPCT+1),NGPCT,EOR,IFLAG)\r\nC\r\nC     FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6)\r\nC\r\n      FROWIC = 1\r\nC\r\nC     DECREMENT THE AMOUNT OF CORE REMAINING.\r\nC\r\n      LEFT = LLEFT - 2*NGPCT\r\n      IF (LEFT .LE. 0) GO TO 3003\r\n      IPOINT = IGPCT + NGPCT\r\n      NPOINT = NGPCT\r\n      I6X6K  = IPOINT + NPOINT\r\n      I6X6K  = (I6X6K-1)/2 + 2\r\nC\r\nC     CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE SMA1B\r\nC     TO ADD THE ELEMENT STRUCTURAL AND/OR DAMPING MATRICES TO KGG AND\r\nC     K4GG.\r\nC\r\n      IZ(IPOINT+1) = 1\r\n      I1  = 1\r\n      I   = IGPCT\r\n      J   = IPOINT + 1\r\n   30 I1  = I1 + 1\r\n      IF (I1 .GT. NGPCT) GO TO 40\r\n      I   = I + 1\r\n      J   = J + 1\r\n      INC = 6\r\n      IF (IZ(I) .LT. 0) INC = 1\r\n      IZ(J) = IZ(J-1) + INC\r\n      GO TO 30\r\nC\r\nC     JMAX = THE NUMBER OF COLUMNS OF KGG THAT WILL BE GENERATED WITH\r\nC     THE CURRENT GRID POINT.\r\nC\r\n   40 INC   = 5\r\n      ILAST = IGPCT  + NGPCT\r\n      JLAST = IPOINT + NPOINT\r\n      IF (IZ(ILAST) .LT. 0) INC = 0\r\n      JMAX  = IZ(JLAST) + INC\r\nC\r\nC     TNROWS = THE TOTAL NUMBER OF ROWS OF THE MATRIX TO BE GENERATED\r\nC              FOR THE CURRENT PIVOT POINT.\r\nC     TNROWS = 6 IF THE CURRENT PIVOT POINT IS A GRID POINT.\r\nC     TNROWS = 1 IF THE CURRENT PIVOT POINT IS A SCALAR POINT.\r\nC\r\n      TNROWS = 6\r\n      IF (INPVT(1) .LT. 0) TNROWS = 1\r\nC\r\nC     IF 2*TNROWS*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR\r\nC     THE KGG SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER TNROWS\r\nC     X JMAX CAN FIT IN CORE.\r\nC\r\n      ITEMP = TNROWS*JMAX\r\n      IF (2*ITEMP .LT. LEFT) GO TO 80\r\n      NAME(2) = INPVT(1)\r\n      CALL MESAGE (30,85,NAME)\r\nC\r\nC     THE WHOLE MATRIX CANNOT FIT IN CORE, DETERMINE HOW MANY ROWS CAN\r\nC     FIT. IF TNROWS = 1, WE CAN DO NOTHING FURTHER.\r\nC\r\n      IF (TNROWS .EQ. 1) GO TO 3003\r\n      NROWSC = 3\r\n   70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90\r\n      NROWSC = NROWSC - 1\r\n      IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 70\r\n   80 NROWSC = TNROWS\r\n   90 FROWIC = 1\r\nC\r\nC     LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6)\r\nC\r\n      LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     ZERO OUT THE KGG SUBMATRIX IN CORE\r\nC\r\n  100 LOW = I6X6K + 1\r\n      LIM = I6X6K + JMAX*NROWSC\r\n      DO 115 I = LOW,LIM\r\n  115 DZ(I) = 0.0D0\r\nC\r\nC     CHECK TO SEE IF THE K4GG MATRIX IS DESIRED.\r\nC\r\n      IF (IOPT4 .EQ. 0) GO TO 137\r\nC\r\nC     SINCE THE K4GG MATRIX IS TO BE COMPUTED, DETERMINE IF IT TOO CAN\r\nC     FIT INTO CORE\r\nC\r\n      IF (NROWSC .NE. TNROWS) GO TO 120\r\n      IF (4*TNROWS*JMAX .LT. LEFT)  GO TO 130\r\nC\r\nC     OPEN A SCRATCH FILE FOR K4GG.\r\nC\r\n  120 CALL MESAGE (-8,0,NAME)\r\nC\r\nC     THIS CODE TO BE FILLED IN LATER\r\nC     ===============================\r\nC\r\n  130 I6X64 = I6X6K + JMAX*TNROWS\r\n      LOW   = I6X64 + 1\r\n      LIM   = I6X64 + JMAX*TNROWS\r\n      DO 135 I = LOW,LIM\r\n  135 DZ(I) = 0.0D0\r\nC\r\nC     INITIALIZE THE LINK VECTOR TO -1.\r\nC\r\n  137 DO 140 I = 1,NLINKS\r\n  140 LINK(I) = -1\r\nC\r\nC     TURN FIRST PASS INDICATOR ON.\r\nC\r\n  150 IFIRST = 1\r\nC\r\nC     READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT.\r\nC\r\n      CALL FREAD (IFECPT,NPVT,1,0)\r\nC\r\nC     READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE.\r\nC\r\n  160 CALL READ (*3025,*500,IFECPT,ITYPE,1,NEOR,IFLAG)\r\n      IF (ITYPE.GE.53 .OR. ITYPE.LE.61) GO TO 165\r\n      CALL PAGE2 (-3)\r\n      WRITE  (SYSPRT,161) UFM,ITYPE\r\n  161 FORMAT (A23,' 2201, ELEMENT TYPE',I4,' NO LONGER SUPPORTED BY ',\r\n     1       'SMA1 MODULE.', /5X,\r\n     2       'USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION')\r\n      NOGO = .TRUE.\r\n      GO TO 1000\r\n  165 CONTINUE\r\nC\r\nC     READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE\r\nC     NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE).\r\nC\r\n      IDX = (ITYPE-1)*INCR\r\n      CALL FREAD (IFECPT,ECPT,NE(IDX+12),0)\r\n      ITEMP = NE(IDX+22)\r\nC\r\nC     IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN\r\nC     PROCESSED.\r\nC\r\n      IF (IFIRST .EQ. 1) GO TO 170\r\nC\r\nC     THIS IS NOT THE FIRST PASS.  IF ITYPE(TH) ELEMENT ROUTINE IS IN\r\nC     CORE, PROCESS IT.\r\nC\r\n      IF (ITEMP .EQ. LINCOR) GO TO 180\r\nC\r\nC     THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE.  IF THIS ELEMENT\r\nC     ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT\r\nC     ELEMENT.\r\nC\r\n      IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT\r\nC     RESIDES\r\nC\r\n      LINK(ITEMP) = 0\r\n      GO TO 160\r\nC\r\nC     SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS\r\nC     OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT\r\nC     IS IN A LINK THAT HAS ALREADY BEEN PROCESSED.  IF IT IS SUCH AN\r\nC     ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT.\r\nC\r\n  170 IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0\r\nC\r\n      LINCOR = ITEMP\r\n      IFIRST = 0\r\n      ITYPX  = ITYPE - 52\r\nC\r\nC     CALL THE PROPER ELEMENT ROUTINE.\r\nC\r\n  180 GO TO (\r\nC                                  CDUM1   CDUM2   CDUM3   CDUM4\r\nC                                    53      54      55      56\r\n     7                              467,    468,    469,    470,\r\nC          CDUM5   CDUM6   CDUM7   CDUM8   CDUM9\r\nC            57      58      59      60      61\r\n     8     471,    472,    473,    474,    475  ) , ITYPX\r\nC\r\nC\r\n  467 CALL KDUM1\r\n      GO TO 160\r\n  468 CALL KDUM2\r\n      GO TO 160\r\n  469 CALL KDUM3\r\n      GO TO 160\r\n  470 CALL KDUM4\r\n      GO TO 160\r\n  471 CALL KDUM5\r\n      GO TO 160\r\n  472 CALL KDUM6\r\n      GO TO 160\r\n  473 CALL KDUM7\r\n      GO TO 160\r\n  474 CALL KDUM8\r\n      GO TO 160\r\n  475 CALL KDUM9\r\n      GO TO 160\r\nC\r\nC     AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE.  SEARCH\r\nC     THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED.\r\nC\r\n  500 LINK(LINCOR) = 1\r\n      DO  510 I = 1,NLINKS\r\n      IF (LINK(I) .EQ. 0) GO TO 520\r\n  510 CONTINUE\r\n      GO TO 525\r\nC\r\nC     SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST\r\nC     BE BACKSPACED.\r\nC\r\n  520 CALL BCKREC (IFECPT)\r\n      GO TO 150\r\nC\r\nC    CHECK NOGOO FLAG. IF 1 SKIP BKDPK AND PROCESS ANOTHER GRID POINT\r\nC    FROM GPCT\r\nC\r\n  525 IF (NOGOO .EQ. 1) GO TO 10\r\nC\r\nC     IF NO GENERAL ELEMENTS EXIST, CHECK FOR GRID POINT SINGULARITIES.\r\nC\r\nCWKBR IF (DODET) CALL DETCK (0)\r\n      IF (DODET) CALL DETCK (0,NPVT,IFGPST)\r\nC\r\nC     AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE KGG FILE.\r\nC\r\n      ASSIGN 580 TO IRETRN\r\n      IFILE= IFKGG\r\n      IMCB = 1\r\n  530 I1   = 0\r\n  540 I2   = 0\r\n      IBEG = I6X6K + I1*JMAX\r\n      CALL BLDPK (2,IPR,IFILE,0,0)\r\n  550 I2  = I2 + 1\r\n      IF (I2 .GT. NGPCT) GO TO 570\r\n      JJ  = IGPCT + I2\r\n      INDEX = IABS(IZ(JJ)) - 1\r\n      LIM = 6\r\n      IF (IZ(JJ) .LT. 0) LIM = 1\r\n      JJJ = IPOINT + I2\r\n      KKK = IBEG + IZ(JJJ) - 1\r\n      I3  = 0\r\n  560 I3  = I3 + 1\r\n      IF (I3 .GT. LIM) GO TO 550\r\n      INDEX = INDEX + 1\r\n      KKK = KKK + 1\r\n      DPWORD = DZ(KKK)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n      GO TO 560\r\n  570 CALL BLDPKN (IFILE,0,MCBKGG(IMCB))\r\n      I1 = I1 + 1\r\n      IF (I1 .LT. NROWSC) GO TO 540\r\n      GO TO IRETRN, (580,600)\r\nC\r\nC     IF THE K4GG IS CALLED FOR, BLDPK IT.\r\nC\r\n  580 IF (IOPT4 .EQ.  0) GO TO 600\r\n      IF (IOPT4 .EQ. -1) GO TO 590\r\nC\r\nC     THE K4GG MATRIX IS IN CORE.\r\nC\r\n      ASSIGN 600 TO IRETRN\r\n      I6X6K = I6X64\r\n      IFILE = IF4GG\r\n      IMCB  = 8\r\n      GO TO 530\r\nC\r\nC     HERE WE NEED LOGIC TO READ K4GG FROM A SCRATCH FILE AND INSERT.\r\nC\r\n  590 CONTINUE\r\nC\r\nC     TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF\r\nC     ROWS TO BE COMPUTED, TNROWS.  IF IT IS, WE ARE DONE.  IF NOT, THE\r\nC     ECPT MUST BE BACKSPACED.\r\nC\r\n  600 IF (LROWIC .EQ. TNROWS) GO TO 10\r\n      CALL BCKREC (IFECPT)\r\n      FROWIC = FROWIC + NROWSC\r\n      LROWIC = LROWIC + NROWSC\r\n      GO TO 100\r\nC\r\nC     CHECK NOGOO = 1 SKIP BLDPK AND PROCESS ANOTHER RECORD\r\nC\r\n  700 IF (NOGOO .EQ. 1) GO TO 10\r\nC\r\nC     HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT\r\nC     NULL COLUMNS MUST BE OUTPUT ON THE KGG AND K4GG FILES.  IF DODET\r\nC     IS TRUE, CALL THE DETERMINANT CHECK ROUTINE TO WRITE SINGULARITY\r\nC     INFORMATION.\r\nC\r\n      NPVT = IABS(INPVT(1))\r\n      IF (INPVT(1) .GT. 0) GO TO 703\r\n      LIM  = 1\r\n      IXX  = -1\r\n      GO TO 706\r\n  703 LIM  = 6\r\n      IXX  = 1\r\nCWKBR  706 IF (DODET) CALL DETCK (IXX)\r\n  706 IF (DODET) CALL DETCK (IXX,NPVT,IFGPST)\r\n      DO 710 I = 1,LIM\r\n      CALL BLDPK (2,IPR,IFKGG,0,0)\r\n      CALL BLDPKN (IFKGG,0,MCBKGG)\r\n      IF (IOPT4 .NE. 1) GO TO 710\r\n      CALL BLDPK (2,IPR,IF4GG,0,0)\r\n      CALL BLDPKN (IF4GG,0,MCB4GG)\r\n  710 CONTINUE\r\n      CALL SKPREC (IFECPT,1)\r\n      GO TO 10\r\nC\r\nC     RETURN SINCE AN EOF HAS BEEN HIT ON THE GPCT FILE\r\nC\r\n 1000 IF (.NOT.NOGO .AND. NOGOO.EQ.0) RETURN\r\n      IPARM = -61\r\n      GO TO 4010\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 3000 IFILE = IFGPCT\r\n      GO TO 4003\r\n 3003 IPARM = -8\r\n      GO TO 4010\r\n 3025 IFILE = IFECPT\r\n      IPARM = -2\r\n      GO TO 4010\r\n 4003 IPARM = -3\r\n 4010 CALL MESAGE (IPARM,IFILE,NAME)\r\n      CALL MESAGE (-30,87,ITYPE)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma1b.f",
    "content": "      SUBROUTINE SMA1B (KE,J,II,IFILE,DAMPC)\r\nC\r\nC     SUBROUTINE SMA1B ADDS A N X N DOUBLE PRECISION MATRIX, KE, TO THE\r\nC     SUBMATRIX OF ORDER NROWSC X JMAX, WHICH IS IN CORE.  N IS 1 IF\r\nC     EITHER  NPVT, THE PIVOT POINT, IS A SCALAR POINT, OR J,THE SECOND\r\nC     SUBSCRIPT OF KE CORRESPONDS TO A SCALAR POINT, OR J .NE. TO ANY\r\nC     ENTRY IN THE GPCT.  OTHERWISE N IS 6.\r\nC\r\n      INTEGER          IZ(1),EOR,CLSRW,CLSNRW,FROWIC,TNROWS,OUTRW\r\n      DOUBLE PRECISION DZ(1),KE(36),DAMPC\r\n      COMMON /BLANK /  ICOM\r\n      COMMON /SYSTEM/  ISYS(21),LINKNO\r\n      COMMON /SEM   /  MASK(3),LNKNOS(15)\r\nC\r\nC     SMA1 I/O PARAMETERS\r\nC\r\n      COMMON /SMA1IO/  IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,\r\n     1                 IFGPCT,IGGPCT,IFGEI,IGGEI,IFKGG,IGKGG,\r\n     2                 IF4GG,IG4GG,IFGPST,IGGPST,INRW,OUTRW,\r\n     3                 CLSNRW,CLSRW,NEOR,EOR,MCBKGG(7),MCB4GG(7)\r\nC\r\nC     SMA1 VARIABLE CORE\r\nC\r\n      COMMON /ZZZZZZ/  Z(1)\r\nC\r\nC     SMA1 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON /SMA1BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,\r\n     1                 I6X6K,N6X6K,I6X64,N6X64\r\nC\r\nC     SMA1 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON /SMA1CL/  IOPT4,K4GGSW,NPVT,LEFT,FROWIC,LROWIC,\r\n     1                 NROWSC,TNROWS,JMAX,NLINKS,LINK(10),IDETCK,\r\n     2                 DODET,NOGO\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /SMA1ET/  ECPT(100)\r\nC\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1))\r\nC\r\nC\r\nC     CALL EMG1B AND THEN RETURN IF THIS IS LINK 8.\r\nC     PROCEED NORMALLY FOR OTHER LINKS.\r\nC\r\n      IF (LINKNO .NE. LNKNOS(8)) GO TO 2\r\n      CALL EMG1B (KE,J,II,IFILE,DAMPC)\r\n      RETURN\r\nC\r\nC     DETERMINE WHICH MATRIX IS BEING COMPUTED.\r\nC\r\n    2 IBASE = I6X6K\r\n      IF (IFILE .EQ. IFKGG) GO TO 5\r\n      IF (IOPT4 .LT. 0) RETURN\r\n      IBASE = I6X64\r\nC\r\nC     SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT\r\nC     IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1))\r\nC\r\n    5 LOW = IGPCT + 1\r\n      LIM = NGPCT + LOW - 2\r\n      IF (LOW .GT. LIM) GO TO 15\r\n      DO 10 I = LOW,LIM\r\n      ISAVE = I\r\n      IF (J .GE. IABS(IZ(I+1))) GO TO 10\r\n      IF (J .GE. IABS(IZ(I))  ) GO TO 20\r\n   10 CONTINUE\r\n      IF (J .GE. IABS(IZ(ISAVE+1))) ISAVE = ISAVE + 1\r\n      GO TO 20\r\nC\r\nC     IF II .GT. 0, WE ARE DEALING WITH A SCALAR POINT.\r\nC\r\n   15 ISAVE = LOW\r\n   20 IF (II .GT. 0) GO TO 60\r\nC\r\nC     AT THIS POINT IT HAS BEEN DETERMINED THAT J IS A SCALAR INDEX\r\nC     NUMBER WHICH CORRESPONDS TO A GRID POINT.  HENCE THE DOUBLE\r\nC     PRECISION 6 X 6 MATRIX, KE, WILL BE ADDED TO THE MATRIX.\r\nC\r\n      L1 = FROWIC - 1\r\n      JJ = IPOINT + ISAVE - IGPCT\r\n      J2 = IZ(JJ) - 1\r\n      I1 = 0\r\n      LIM= NROWSC - 1\r\n   30 IF (I1 .GT. LIM) RETURN\r\n      K1 = IBASE + I1*JMAX + J2\r\n      J1 = 0\r\n      L  = 6*L1\r\n      K  = K1\r\n   40 J1 = J1 + 1\r\n      IF (J1 .GT. 6) GO TO 50\r\n      K  = K + 1\r\n      L  = L + 1\r\n      IF (IFILE - IFKGG) 47,43,47\r\n   43 DZ(K) = DZ(K) + KE(L)\r\n      GO TO 40\r\n   47 DZ(K) = DZ(K) + DAMPC*KE(L)\r\n      GO TO 40\r\n   50 I1 = I1 + 1\r\n      L1 = L1 + 1\r\n      GO TO 30\r\nC\r\nC     AT THIS POINT WE ARE DEALING WITH A 1 X 1.\r\nC     FIRST COMPUTE THE ROW NUMBER, NROW\r\nC\r\n   60 NROW = II - NPVT + 1\r\nC\r\nC     THE FOLLOWING 2 FORTRAN STATEMENTS ARE MERELY TO CHECK THE PROGRAM\r\nC     LOGIC.  EVENTUALLY THEY CAN BE DELETED.\r\nC\r\n      IF (NROW.GE.1 .AND. NROW.LE.TNROWS) GO TO 70\r\n      CALL MESAGE (-30,22,NROW)\r\n   70 LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     IF NROW, THE ROW INTO WHICH THE NUMBER KE(1) IS TO BE ADDED IS NOT\r\nC     IN CORE IT CANNOT BE ADDED AT THIS TIME.\r\nC\r\n      IF (NROW.LT.FROWIC .OR. NROW.GT.LROWIC) RETURN\r\n      J2 = ISAVE\r\n      J3 = IPOINT + ISAVE - IGPCT\r\n      INDEX = IBASE + (NROW-1)*JMAX + IZ(J3) - IABS(IZ(J2)) + J\r\n      DZ(INDEX) = DZ(INDEX) + KE(1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma2.f",
    "content": "      SUBROUTINE SMA2\r\nC ******\r\nC THIS ROUTINE IS A DRIVER AND INITIALIZATION PROGRAM FOR MODULE\r\nC 2.4.2 OF THE NASTRAN SYSTEM.  IT GENERATES THE MASS MATRIX, MGG, AND\r\nC THE DAMPING MATRIX, BGG.\r\nC ******\r\nC\r\nC\r\nC\r\nC\r\n      LOGICAL             HEAT\r\nC\r\nC\r\n      DOUBLE PRECISION\r\n     1                   DZ                 ,ZZZZZZ\r\nC\r\nC\r\nC\r\n      INTEGER\r\n     1                   IZ(1)              ,EOR\r\n     2,                  CLSRW              ,CLSNRW\r\n     3,                  FROWIC\r\n     4,                  TNROWS             ,OUTRW\r\n     5,                  BGGIND\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   NMSMA2(2)\r\n      COMMON /BLANK/      WTMASS             ,NOMGG\r\n     1,                  NOBGG\r\nC\r\nC\r\nC\r\n      COMMON   /SYSTEM/  ISYS,ISEW1(53),IPREC,ITHERM\r\nC\r\nC SMA2 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA2IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IDUM2              ,IDUM3\r\n     6,                  IFMGG              ,IGMGG\r\n     7,                  IFBGG              ,IGBGG\r\n     8,                  IDUM4              ,IDUM5\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBMGG(7)          ,MCBBGG(7)\r\nC\r\nC SMA2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ /  Z(1)\r\nC\r\nC SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS.\r\nC\r\n      COMMON   /SMA2BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6M              ,N6X6M\r\n     5,                  I6X6B              ,N6X6B\r\nC\r\nC SMA2 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA2CL/\r\n     1                   IOPTB              ,BGGIND\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,NOGO\r\nC\r\nC ELEMENT DATA\r\nC\r\n      COMMON   /GPTA1/ NELEMS, LAST, INCR, NE(1)\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA2ET/\r\n     1                   ECPT(100)\r\nC\r\nC SCRATCH BLOCK FOR ELEMENT ROUTINES\r\nC\r\n      COMMON   /SMA2DP/\r\n     1                   ZZZZZZ(300)\r\nC\r\n      COMMON   /SMA2HT/  HEAT\r\nC\r\n      COMMON   /HMATDD/  IHMAT, NHMAT, MPTMPT, IDIT\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (Z(1),IZ(1),DZ)\r\nC\r\nC\r\nC\r\n      DATA\r\n     1                   NMSMA2(1) /4HSMA2/ ,NMSMA2(2) /4H    /\r\nC\r\nC*****\r\nC  SET HEAT FLAG\r\nC*****\r\n      HEAT = .FALSE.\r\n      IF( ITHERM .NE. 0 )   HEAT = .TRUE.\r\nC\r\nC\r\n      CALL DELSET\r\n      IZMAX = KORSZ (Z)\r\nC\r\nC SET PURGE FLAGS FOR BGG AND NO PURGE FLAG FOR MGG.\r\nC\r\n      BGGIND = -1\r\n      NOBGG  = -1\r\n      NOMGG = 1\r\nC\r\nC ATTEMPT TO OPEN THE OUTPUT FILE FOR THE MASS MATRIX.  IF IT IS NOT\r\nC IN THE OSCAR, EXECUTION WILL BE TERMINATED SINCE WE DO NOT ALLOW\r\nC THE USER TO GENERATE ONLY A BGG. (EXCEPT IN A HEAT TRANSER PROBLEM)\r\nC\r\n      IGMGG = IZMAX - ISYS\r\n      IF( HEAT ) GO TO 5\r\n      CALL OPEN(*100,IFMGG,Z(IGMGG),OUTRW)\r\nC\r\nC WRITE A TWO WORD BCD HEADER AND CLOSE THE MGG FILE WITHOUT REWIND.\r\nC\r\n      CALL FNAME (IFMGG,Z(1))\r\n      CALL WRITE (IFMGG,Z(1),2,EOR)\r\n      CALL CLOSE (IFMGG,CLSNRW)\r\nC\r\nC ATTEMPT TO OPEN THE BGG FILE.\r\nC\r\n    5 IGBGG = IGMGG\r\n      IOPTB = 0\r\n      CALL OPEN(*10,IFBGG,Z(IGBGG),OUTRW)\r\n      IOPTB = 1\r\n      IGBGG = IGBGG - ISYS\r\n      CALL FNAME (IFBGG,Z(1))\r\n      CALL WRITE (IFBGG,Z(1),2,EOR)\r\n      CALL CLOSE(IFBGG,CLSNRW)\r\nC\r\nC SET UP POINTERS TO GINO BUFFERS AND SET UP MATRIX CONTROL BLOCKS.\r\nC\r\n   10 IGECPT = IGBGG  - ISYS\r\n      IGGPCT = IGECPT - ISYS\r\n      MCBMGG(1) = IFMGG\r\n      MCBMGG(2) = 0\r\n      MCBMGG(3) = 0\r\n      MCBMGG(4) = 6\r\n      MCBMGG(5) = IPREC\r\n      MCBMGG(6) = 0\r\n      MCBMGG(7) = 0\r\n      IF (IOPTB .EQ. 0) GO TO 30\r\n      MCBBGG(1) = IFBGG\r\n      DO 20 I = 2,7\r\n   20 MCBBGG(I) = MCBMGG(I)\r\nC\r\nC ATTEMPT TO READ THE CSTM INTO CORE.\r\nC\r\n   30 NCSTM = 0\r\n      ICSTM = 0\r\n      LEFT = IGGPCT - 1\r\n      CALL OPEN(*50,IFCSTM,Z(IGMGG),INRW)\r\n      CALL FWDREC(*9020,IFCSTM)\r\n      CALL READ(*9030,*40,IFCSTM,Z(1),LEFT,EOR,NCSTM)\r\nC\r\nC IF CORE WAS FILLED WITHOUT HITTING AN EOR CALL MESAGE\r\nC\r\n      CALL MESAGE (-8,IFCSTM,IFCSTM)\r\n   40 LEFT = LEFT - NCSTM\r\nC\r\nC PRETRD SETS UP FUTURE CALLS TO TRANSD.\r\nC\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      CALL PRETRS(Z(ICSTM+1),NCSTM)\r\n      CALL CLOSE (IFCSTM,CLSRW)\r\n   50 IMAT1 = NCSTM\r\n      NMAT1 = 0\r\n      NMAT2 = 0\r\n      NMAT3 = 0\r\n      NMAT4 = 0\r\n      IMAT11 = IMAT1 + 1\r\nC*****\r\nC  IF -HEAT- PROBLEM THEN HMAT IS USED FOR MAT4 AND MAT5 CARDS.\r\nC*****\r\n      IF( .NOT. HEAT ) GO TO 56\r\n      IHMAT = IMAT11 + 1\r\n      NHMAT = IMAT11 + LEFT - 2\r\n      MPTMPT = IFMPT\r\n      IDIT = IFDIT\r\n      CALL HMAT( 0 )\r\n      LEFT = LEFT - NHMAT + IHMAT\r\n      IGPCT = NHMAT +1\r\n      GO TO 58\r\n   56 CALL PREMAT(IZ(IMAT11),Z(IMAT11),Z(IGMGG),LEFT,MATCR,IFMPT,IFDIT)\r\n      LEFT = LEFT - MATCR\r\n      IGPCT = NCSTM + MATCR\r\nC\r\nC OPEN THE ECPT INPUT FILE AND THE GPCT INPUT FILE.\r\nC\r\n   58 CALL OPEN(*9070,IFECPT,Z(IGECPT),INRW)\r\n      CALL FWDREC(*9080,IFECPT)\r\n      CALL OPEN(*9090,IFGPCT,Z(IGGPCT),INRW)\r\n      CALL FWDREC(*9100,IFGPCT)\r\nC\r\nC REOPEN THE MGG OUTPUT FILE WITHOUT REWIND, AND THE BGG, IF CALLED FOR.\r\nC\r\n      IF(.NOT.HEAT)CALL OPEN(*9110,IFMGG,Z(IGMGG),3)\r\n      IF(IOPTB.NE.0)CALL OPEN(*9120,IFBGG,Z(IGBGG),3)\r\nC\r\nC CALL SUBROUTINE SMA2A WHICH WILL PERFORM ALL THE COMPUTATIONS.\r\nC\r\n      CALL SMA2A\r\nC\r\nC CLOSE FILES AND WRITE TRAILERS.\r\nC\r\n      CALL CLOSE (IFGPCT,CLSRW)\r\n      CALL CLOSE (IFECPT,CLSRW)\r\n      CALL CLOSE (IFMGG ,CLSRW)\r\n      MCBMGG(3) = MCBMGG(2)\r\n      IF (MCBMGG(6) .NE. 0) GO TO 70\r\n      DO 60 I = 2,7\r\n   60 MCBMGG(I) = 0\r\n      NOMGG = -1\r\n   70 IF( .NOT. HEAT ) CALL WRTTRL( MCBMGG )\r\n      IF (IOPTB .EQ. 0) GO TO 100\r\n      CALL CLOSE (IFBGG ,CLSRW)\r\n      IF (MCBBGG(6) .EQ. 0) GO TO 80\r\n      MCBBGG(3) = MCBBGG(2)\r\n      CALL WRTTRL (MCBBGG(1))\r\n      NOBGG = 1\r\n      GO TO 100\r\n   80 DO 90 I = 2,7\r\n   90 MCBBGG(I) = 0\r\n      NOBGG = -1\r\n  100 RETURN\r\nC\r\nC SUBROUTINE SMA2 ERROR EXITS.\r\nC\r\n 9020 IFILE = IFCSTM\r\n      GO TO 10002\r\n 9030 IFILE = - IFCSTM\r\n      GO TO 10002\r\n 9070 IFILE = IFECPT\r\n      GO TO 10001\r\n 9080 IFILE = IFECPT\r\n      GO TO 10002\r\n 9090 IFILE = IFGPCT\r\n      GO TO 10001\r\n 9100 IFILE = IFGPCT\r\n      GO TO 10002\r\n 9110 IFILE = IFMGG\r\n      GO TO 10002\r\n 9120 IFILE = IFBGG\r\n      GO TO 10002\r\n10001 IPARM = -1\r\n      GO TO 10010\r\n10002 IPARM = -2\r\n10010 CALL MESAGE (IPARM,IFILE,NMSMA2(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma2a.f",
    "content": "      SUBROUTINE SMA2A\r\nC\r\nC     THIS SUBROUTINE FORMERLY GENERATED THE MGG AND BGG MATRICES FOR\r\nC     THE SMA2 MODULE.  THESE OPERATIONS ARE NOW PERFORMED IN THE EMG\r\nC     AND EMA MODULES AND SMA2A IS RETAINED IN SKELETAL FORM TO PROVIDE\r\nC     A VEHICLE FOR USER-SUPPLIED ELEMENTS.\r\nC\r\n      LOGICAL          HEAT\r\n      INTEGER          IZ(1),EOR,CLSRW,CLSNRW,FROWIC,SYSPRT,TNROWS,\r\n     1                 OUTRW\r\n      DOUBLE PRECISION DZ,DPWORD\r\n      DIMENSION        INPVT(2),DZ(1),NAME(2)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /BLANK /  WTMASS,NOMGG,NOBGG,ICMAS,ICMBAR,ICMROD,ICMQD1,\r\n     1                 ICMQD2,ICMTR1,ICMTR2,ICMTUB,ICMQDP,ICMTRP,ICMTRB\r\n      COMMON /SMA2HT/  HEAT\r\n      COMMON /SYSTEM/  ISYS,ISEW1(53),IPREC\r\n      COMMON /SMA2IO/  IFCSTM,IFMPT,IFDIT,IDUM1,IFECPT,IGECPT,IFGPCT,\r\n     1                 IGGPCT,IDUM2,IDUM3,IFMGG,IGMGG,IFBGG,IGBGG,IDUM4,\r\n     2                 IDUM5,INRW,OUTRW,CLSNRW,CLSRW,NEOR,EOR,MCBMGG(7),\r\n     3                 MCBBGG(7)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SMA2BK/  ICSTM,NCSTM,IGPCT,NGPCT,IPOINT,NPOINT,I6X6M,\r\n     1                 N6X6M,I6X6B,N6X6B\r\n      COMMON /SMA2CL/  IOPTB,BGGIND,NPVT,LLEFT,FROWIC,LROWIC,NROWSC,\r\n     1                 TNROWS,JMAX,NLINKS,LINK(10),NOGO\r\n      COMMON /GPTA1 /  NELEMS,LAST,INCR,NE(1)\r\n      COMMON /SMA2ET/  ECPT(200)\r\n      COMMON /ZBLPKX/  DPWORD,DUM(2),INDEX\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1))\r\n      DATA    NAME  /  4HSMA2,4HA   /\r\nC\r\n      IPR = IPREC\r\nC\r\nC     READ THE FIRST TWO WORDS OF NEXT GPCT RECORD INTO INPVT(1).\r\nC     INPVT(1) IS THE PIVOT POINT.  INPVT(1) .GT. 0 IMPLIES THE PIVOT\r\nC     POINT IS A GRID POINT.  INPVT(1) .LT. 0 IMPLIES THE PIVOT POINT\r\nC     IS A SCALAR POINT.  INPVT(2) IS THE NUMBER OF WORDS IN THE\r\nC     REMAINDER OF THIS RECORD OF THE GPCT.\r\nC\r\n   10 CALL READ (*1000,*700,IFGPCT,INPVT(1),2,NEOR,IFLAG)\r\n      NGPCT = INPVT(2)\r\n      CALL READ (*1000,*3000,IFGPCT,IZ(IGPCT+1),NGPCT,EOR,IFLAG)\r\nC\r\nC     FROWIC IS THE FIRST ROW IN CORE. (1 .LE. FROWIC .LE. 6)\r\nC\r\n      FROWIC = 1\r\nC\r\nC     DECREMENT THE AMOUNT OF CORE REMAINING.\r\nC\r\n      LEFT = LLEFT - 2*NGPCT\r\n      IF (LEFT .LE. 0) GO TO 3003\r\n      IPOINT = IGPCT + NGPCT\r\n      NPOINT = NGPCT\r\n      I6X6M  = IPOINT + NPOINT\r\n      I6X6M  = (I6X6M-1)/2 + 2\r\nC\r\nC     CONSTRUCT THE POINTER TABLE, WHICH WILL ENABLE SUBROUTINE INSERT\r\nC     TO ADD THE ELEMENT MASS AND/OR DAMPING MATRICES TO MGG AND/OR BGG.\r\nC\r\n      IZ(IPOINT+1) = 1\r\n      I1 = 1\r\n      I  = IGPCT\r\n      J  = IPOINT + 1\r\n   30 I1 = I1 + 1\r\n      IF (I1 .GT. NGPCT) GO TO 40\r\n      I  = I + 1\r\n      J  = J + 1\r\n      INC = 6\r\n      IF (IZ(I) .LT. 0) INC = 1\r\n      IZ(J) = IZ(J-1) + INC\r\n      GO TO 30\r\nC\r\nC     JMAX = THE NUMBER OF COLUMNS OF MGG THAT WILL BE GENERATED WITH\r\nC     THE CURRENT GRID POINT.\r\nC\r\n   40 INC   = 5\r\n      ILAST = IGPCT  + NGPCT\r\n      JLAST = IPOINT + NPOINT\r\n      IF (IZ(ILAST) .LT. 0) INC = 0\r\n      JMAX = IZ(JLAST) + INC\r\nC\r\nC     TNROWS = THE TOTAL NUMBER OF ROWS OF THE MATRIX TO BE GENERATED\r\nC              FOR THE CURRENT PIVOT POINT.\r\nC     TNROWS = 6 IF THE CURRENT PIVOT POINT IS A GRID POINT.\r\nC     TNROWS = 1 IF THE CURRENT PIVOT POINT IS A SCALAR POINT.\r\nC\r\n      TNROWS = 6\r\n      IF (INPVT(1) .LT. 0) TNROWS = 1\r\nC\r\nC     IF 2*TNROWS*JMAX .LT. LEFT THERE ARE NO SPILL LOGIC PROBLEMS FOR\r\nC     THE MGG SINCE THE WHOLE DOUBLE PRECISION SUBMATRIX OF ORDER\r\nC     TNROWS*JMAX CAN FIT IN CORE.\r\nC\r\n      ITEMP = TNROWS*JMAX\r\n      IF (2*ITEMP .LT. LEFT) GO TO 80\r\n      CALL MESAGE (30,86,INPVT)\r\nC\r\nC     THE WHOLE MATRIX CANNOT FIT IN CORE, DETERMINE HOW MANY ROWS CAN\r\nC     FIT. IF TNROWS = 1, WE CAN DO NOTHING FURTHER.\r\nC\r\n      IF (TNROWS .EQ. 1) GO TO 3003\r\n      NROWSC = 3\r\n   70 IF (2*NROWSC*JMAX .LT. LEFT) GO TO 90\r\n      NROWSC = NROWSC - 1\r\n      IF (NROWSC .EQ. 0) CALL MESAGE (-8,0,NAME)\r\n      GO TO 70\r\n   80 NROWSC = TNROWS\r\n   90 FROWIC = 1\r\nC\r\nC     LROWIC IS THE LAST ROW IN CORE. (1 .LE. LROWIC .LE. 6)\r\nC\r\n      LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC     ZERO OUT THE MGG SUBMATRIX IN CORE\r\nC\r\n  100 LOW = I6X6M + 1\r\n      LIM = I6X6M + JMAX*NROWSC\r\n      DO 115 I = LOW,LIM\r\n  115 DZ(I) = 0.0D0\r\nC\r\nC     CHECK TO SEE IF BGG MATRIX IS DESIRED.\r\nC\r\n      IF (IOPTB .EQ. 0) GO TO 137\r\nC\r\nC     SINCE THE BGG MATRIX IS TO BE COMPUTED,DETERMINE WHETHER OR NOT IT\r\nC     TOO CAN FIT IN CORE.\r\nC\r\n      IF (NROWSC .NE. TNROWS) GO TO 120\r\n      IF (4*TNROWS*JMAX .LT. LEFT) GO TO 130\r\nC\r\nC     OPEN A SCRATCH FILE FOR BGG\r\nC\r\n  120 CALL MESAGE (-8,0,NAME)\r\nC\r\nC     THIS CODE TO BE FILLED IN LATER\r\nC     ===============================\r\nC\r\n  130 I6X6B = I6X6M + JMAX*TNROWS\r\n      LOW = I6X6B + 1\r\n      LIM = I6X6B + JMAX*TNROWS\r\n      DO 135 I = LOW,LIM\r\n  135 DZ(I) = 0.0D0\r\nC\r\nC     INITIALIZE THE LINK VECTOR TO -1.\r\nC\r\n  137 DO 140 I = 1,NLINKS\r\n  140 LINK(I) = -1\r\nC\r\nC     TURN FIRST PASS INDICATOR ON.\r\nC\r\n  150 IFIRST = 1\r\nC\r\nC     READ THE 1ST WORD OF THE ECPT RECORD, THE PIVOT POINT, INTO NPVT.\r\nC\r\n      CALL FREAD (IFECPT,NPVT,1,0)\r\nC\r\nC     READ THE NEXT ELEMENT TYPE INTO THE CELL ITYPE.\r\nC\r\n  160 CALL READ (*3025,*500,IFECPT,ITYPE,1,NEOR,IFLAG)\r\n      IF (ITYPE.GE.53 .AND. ITYPE.LE.61) GO TO 165\r\n      CALL PAGE2 (-3)\r\n      SYSPRT = ISEW1(1)\r\n      WRITE  (SYSPRT,161) UFM,ITYPE\r\n  161 FORMAT (A23,' 2202, ELEMENT TYPE',I4,' NO LONGER SUPPORTED BY ',\r\n     1       'SMA2 MODULE.', /5X,\r\n     2       'USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION')\r\n      NOGO = 1\r\n      GO TO 1000\r\n  165 CONTINUE\r\nC\r\nC     READ THE ECPT ENTRY FOR THE CURRENT TYPE INTO THE ECPT ARRAY. THE\r\nC     NUMBER OF WORDS TO BE READ WILL BE NWORDS(ITYPE).\r\nC\r\n      IDX = (ITYPE-1)*INCR\r\n      CALL FREAD (IFECPT,ECPT,NE(IDX+12),0)\r\n      ITEMP = NE(IDX+23)\r\nC\r\nC     IF THIS IS THE 1ST ELEMENT READ ON THE CURRENT PASS OF THE ECPT\r\nC     CHECK TO SEE IF THIS ELEMENT IS IN A LINK THAT HAS ALREADY BEEN\r\nC     PROCESSED.\r\nC\r\n      IF (IFIRST .EQ. 1) GO TO 170\r\nC\r\nC     THIS IS NOT THE FIRST PASS.  IF ITYPE(TH) ELEMENT ROUTINE IS IN\r\nC     CORE, PROCESS IT.\r\nC\r\n      IF (ITEMP .EQ. LINCOR) GO TO 180\r\nC\r\nC     THE ITYPE(TH) ELEMENT ROUTINE IS NOT IN CORE.  IF THIS ELEMENT\r\nC     ROUTINE IS IN A LINK THAT ALREADY HAS BEEN PROCESSED READ THE NEXT\r\nC     ELEMENT.\r\nC\r\n      IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET A TO BE PROCESSED LATER FLAG FOR THE LINK IN WHICH THE ELEMENT\r\nC     RESIDES\r\nC\r\n      LINK(ITEMP) = 0\r\n      GO TO 160\r\nC\r\nC     SINCE THIS IS THE FIRST ELEMENT TYPE TO BE PROCESSED ON THIS PASS\r\nC     OF THE ECPT RECORD, A CHECK MUST BE MADE TO SEE IF THIS ELEMENT\r\nC     IS IN A LINK THAT HAS ALREADY BEEN PROCESSED.  IF IT IS SUCH AN\r\nC     ELEMENT, WE KEEP IFIRST = 1 AND READ THE NEXT ELEMENT.\r\nC\r\n  170 IF (LINK(ITEMP) .EQ. 1) GO TO 160\r\nC\r\nC     SET THE CURRENT LINK IN CORE = ITEMP AND IFIRST = 0\r\nC\r\n      LINCOR = ITEMP\r\n      IFIRST = 0\r\n      ITYPX  = ITYPE - 52\r\nC\r\nC     CALL THE PROPER ELEMENT ROUTINE.\r\nC\r\n  180 GO TO (\r\nC                                  CDUM1   CDUM2   CDUM3   CDUM4\r\nC                                    53      54      55      56\r\n     7                               4983,   4984,   4985,   4986,\r\nC          CDUM5   CDUM6   CDUM7   CDUM8   CDUM9\r\nC            57      58      59      60      61\r\n     8     4987,   4988,   4989,   4990,   4991  ) , ITYPX\r\nC\r\nC\r\n 4983 CALL MDUM1\r\n      GO TO 160\r\n 4984 CALL MDUM2\r\n      GO TO 160\r\n 4985 CALL MDUM3\r\n      GO TO 160\r\n 4986 CALL MDUM4\r\n      GO TO 160\r\n 4987 CALL MDUM5\r\n      GO TO 160\r\n 4988 CALL MDUM6\r\n      GO TO 160\r\n 4989 CALL MDUM7\r\n      GO TO 160\r\n 4990 CALL MDUM8\r\n      GO TO 160\r\n 4991 CALL MDUM9\r\n      GO TO 160\r\nC\r\nC     AT STATEMENT NO. 500 WE HAVE HIT AN EOR ON THE ECPT FILE.  SEARCH\r\nC     THE LINK VECTOR TO DETERMINE IF THERE ARE LINKS TO BE PROCESSED.\r\nC\r\n  500 LINK(LINCOR) = 1\r\n      DO  510 I = 1,NLINKS\r\n      IF (LINK(I) .EQ. 0) GO TO 520\r\n  510 CONTINUE\r\n      GO TO 525\r\nC\r\nC     SINCE AT LEAST ONE LINK HAS NOT BEEN PROCESSED THE ECPT FILE MUST\r\nC     BE BACKSPACED.\r\nC\r\n  520 CALL BCKREC (IFECPT)\r\n      GO TO 150\r\nC\r\nC     CHECK NOGO = 1 SKIP BLDPK\r\nC\r\n  525 IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     AT THIS POINT BLDPK THE NUMBER OF ROWS IN CORE UNTO THE MGG FILE.\r\nC\r\n      ASSIGN 580 TO IRETRN\r\nC\r\nC     HEAT TRANSFER PROBLEM, SKIP MGG\r\nC\r\n      IF (HEAT) GO TO 580\r\nC\r\n      IFILE = IFMGG\r\n      IMCB  = 1\r\nC\r\nC     MULTIPLY THE MASS MATRIX BY THE PARAMETER WTMASS IF IT IS NOT\r\nC     UNITY\r\nC\r\n      IF (WTMASS .EQ. 1.0) GO TO 530\r\n      LOW = I6X6M + 1\r\n      LIM = I6X6M + JMAX*NROWSC\r\n      DO 527 I = LOW,LIM\r\n  527 DZ(I) = DZ(I)*WTMASS\r\n  530 I1  = 0\r\n  540 I2  = 0\r\n      IBEG = I6X6M + I1*JMAX\r\n      CALL BLDPK (2,IPR,IFILE,0,0)\r\n  550 I2 = I2 + 1\r\n      IF (I2 .GT. NGPCT) GO TO 570\r\n      JJ = IGPCT + I2\r\n      INDEX = IABS(IZ(JJ)) - 1\r\n      LIM = 6\r\n      IF (IZ(JJ) .LT. 0) LIM = 1\r\n      JJJ = IPOINT + I2\r\n      KKK = IBEG + IZ(JJJ) - 1\r\n      I3 = 0\r\n  560 I3 = I3 + 1\r\n      IF (I3 .GT. LIM) GO TO 550\r\n      INDEX = INDEX + 1\r\n      KKK = KKK + 1\r\n      DPWORD = DZ(KKK)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n      GO TO 560\r\n  570 CALL BLDPKN (IFILE,0,MCBMGG(IMCB))\r\n      I1 = I1 + 1\r\n      IF (I1 .LT. NROWSC) GO TO 540\r\n      GO TO IRETRN, (580,600)\r\nC\r\nC     IF THE BGG IS CALLED FOR BLDPK IT.\r\nC\r\n  580 IF (IOPTB .EQ.  0) GO TO 600\r\n      IF (IOPTB .EQ. -1) GO TO 590\r\nC\r\nC     THE BGG MATRIX IS IN CORE\r\nC\r\n      ASSIGN 600 TO IRETRN\r\n      I6X6M = I6X6B\r\n      IFILE = IFBGG\r\n      IMCB  = 8\r\n      GO TO 530\r\nC\r\nC     HERE WE NEED LOGIC TO READ BGG FROM A SCRATCH FILE AND INSERT\r\nC\r\n  590 CONTINUE\r\nC\r\nC     TEST TO SEE IF THE LAST ROW IN CORE, LROWIC, = THE TOTAL NO. OF\r\nC     ROWS TO BE COMPUTED, TNROWS.  IF IT IS, WE ARE DONE.  IF NOT, THE\r\nC     ECPT MUST BE BACKSPACED.\r\nC\r\n  600 IF (LROWIC .EQ. TNROWS) GO TO 10\r\n      CALL BCKREC (IFECPT)\r\n      FROWIC = FROWIC + NROWSC\r\n      LROWIC = LROWIC + NROWSC\r\n      GO TO 100\r\nC\r\nC     CHECK NOGO = 1 SKIP BLDPK\r\nC\r\n  700 IF (NOGO .EQ. 1) GO TO 10\r\nC\r\nC     HERE WE HAVE A PIVOT POINT WITH NO ELEMENTS CONNECTED, SO THAT\r\nC     NULL COLUMNS MUST BE OUTPUT ON THE MGG AND BGG FILES.\r\nC\r\n      LIM = 6\r\n      IF (INPVT(1) .LT. 0) LIM = 1\r\n      DO 710 I = 1,LIM\r\n      IF (HEAT) GO TO 705\r\n      CALL BLDPK (2,IPR,IFMGG,0,0)\r\n      CALL BLDPKN (IFMGG,0,MCBMGG)\r\n  705 IF (IOPTB .NE. 1) GO TO 710\r\n      CALL BLDPK (2,IPR,IFBGG,0,0)\r\n      CALL BLDPKN (IFBGG,0,MCBBGG)\r\n  710 CONTINUE\r\n      CALL SKPREC (IFECPT,1)\r\n      GO TO 10\r\nC\r\nC     RETURN SINCE AN EOF HAS BEEN HIT ON THE GPCT FILE\r\nC\r\n 1000 IF (NOGO .EQ.1) CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\nC\r\nC     ERROR RETURNS\r\nC\r\n 3000 IFILE = IFGPCT\r\n      IPARM = 3\r\n      GO TO 4010\r\n 3003 CALL MESAGE (-8,IFILE,NAME)\r\n 3025 IFILE = IFECPT\r\n      IPARM = 2\r\n 4010 CALL MESAGE (-IPARM,IFILE,NAME)\r\n      CALL MESAGE (-30,87,ITYPE)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sma2b.f",
    "content": "      SUBROUTINE SMA2B (KE,J,II,IFILE,DUMDP)\r\nC ******\r\nC SUBROUTINE SMA2B  ADDS A N X N DOUBLE PRECISION MATRIX, KE, TO THE\r\nC SUBMATRIX OF ORDER NROWSC X JMAX, WHICH IS IN CORE.  N IS 1 IF EITHER\r\nC NPVT, THE PIVOT POINT, IS A  SCALAR POINT, OR J, THE SECOND SUBSCRIPT\r\nC OF KE CORRESPONDS TO A SCALAR POINT, OR J .NE. TO ANY ENTRY IN THE\r\nC GPCT.  OTHERWISE N IS 6.\r\nC ******\r\nC\r\nC\r\nC\r\nC\r\n      DOUBLE PRECISION\r\n     1                   DZ(1)              ,KE(36)\r\n     2,                  DUMDP\r\nC\r\nC\r\nC\r\n      INTEGER\r\n     1                   IZ(1)              ,EOR\r\n     2,                  CLSRW              ,CLSNRW\r\n     3,                  FROWIC\r\n     4,                  TNROWS             ,OUTRW\r\n      INTEGER ECPT\r\nC\r\n      COMMON /BLANK/ NOBGG\r\nC\r\nC\r\nC\r\n      COMMON   /SYSTEM/\r\n     1                   ISYS(21), LINKNO\r\n      COMMON   /SEM   /  MASK(3) , LNKNOS(15)\r\nC\r\nC SMA2 I/O PARAMETERS\r\nC\r\n      COMMON   /SMA2IO/\r\n     1                   IFCSTM             ,IFMPT\r\n     2,                  IFDIT              ,IDUM1\r\n     3,                  IFECPT             ,IGECPT\r\n     4,                  IFGPCT             ,IGGPCT\r\n     5,                  IDUM2              ,IDUM3\r\n     6,                  IFMGG              ,IGMGG\r\n     7,                  IFBGG              ,IGBGG\r\n     8,                  IDUM4              ,IDUM5\r\n     9,                  INRW               ,OUTRW\r\n     T,                  CLSNRW             ,CLSRW\r\n     1,                  NEOR               ,EOR\r\n     2,                  MCBMGG(7)          ,MCBBGG(7)\r\nC\r\nC SMA2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ /  Z(1)\r\nC\r\nC SMA2 VARIABLE CORE BOOKKEEPING PARAMETERS\r\nC\r\n      COMMON   /SMA2BK/\r\n     1                   ICSTM              ,NCSTM\r\n     2,                  IGPCT              ,NGPCT\r\n     3,                  IPOINT             ,NPOINT\r\n     4,                  I6X6M              ,N6X6M\r\n     5,                  I6X6B              ,N6X6B\r\nC\r\nC SMA2 PROGRAM CONTROL PARAMETERS\r\nC\r\n      COMMON   /SMA2CL/\r\n     1                   IOPTB              ,BGGIND\r\n     2,                  NPVT               ,LEFT\r\n     3,                  FROWIC             ,LROWIC\r\n     4,                  NROWSC             ,TNROWS\r\n     5,                  JMAX               ,NLINKS\r\n     6,                  LINK(10)           ,NOGO\r\nC\r\nC ECPT COMMON BLOCK\r\nC\r\n      COMMON   /SMA2ET/\r\n     1                   ECPT(100)\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (Z(1),IZ(1),DZ(1))\r\nC\r\nC\r\nC     CALL EMG1B AND THEN RETURN IF THIS IS LINK 8.\r\nC     PROCEED NORMALLY FOR OTHER LINKS.\r\nC\r\n      IF (LINKNO.NE.LNKNOS(8)) GO TO 100\r\n      CALL EMG1B (KE, J, II, IFILE, DUMDP)\r\n      RETURN\r\nC\r\nC DETERMINE WHICH MATRIX IS BEING COMPUTED.\r\nC\r\n  100 IBASE = I6X6M\r\n      IF (IFILE .EQ. IFMGG) GO TO 5\r\n      IF (IOPTB .LT. 0) RETURN\r\n      IBASE = I6X6B\r\nC\r\nC SEARCH THE GPCT AND FIND AN INDEX M SUCH THAT\r\nC IABS(GPCT(M)) .LE. J .LT. IABS(GPCT(M+1))\r\nC\r\n    5 LOW = IGPCT + 1\r\n      LIM = NGPCT + LOW - 2\r\n      IF (LOW .GT. LIM) GO TO 15\r\n      DO 10 I = LOW,LIM\r\n      ISAVE = I\r\n      IF (J .GE. IABS(IZ(I+1)) ) GO TO 10\r\n      IF (J .GE. IABS(IZ(I)) ) GO TO 20\r\n   10 CONTINUE\r\n      IF ( J .GE. IABS(IZ(ISAVE+1)) )  ISAVE = ISAVE + 1\r\n      GO TO 20\r\nC\r\nC IF II .GT. 0, WE ARE DEALING WITH A SCALAR POINT.\r\nC\r\n   15 ISAVE = LOW\r\n   20 IF (II .GT. 0) GO TO 60\r\nC\r\nC AT THIS POINT IT HAS BEEN DETERMINED THAT J IS A SCALAR INDEX NUMBER\r\nC WHICH CORRESPONDS TO A GRID POINT.  HENCE THE DOUBLE PRECISION 6 X 6\r\nC MATRIX, KE, WILL BE ADDED TO THE MATRIX.\r\nC\r\n      L1 = FROWIC - 1\r\n      JJ = IPOINT + ISAVE - IGPCT\r\n      J2 = IZ(JJ) - 1\r\n      I1 = 0\r\n      LIM = NROWSC - 1\r\n   30 IF (I1 .GT. LIM) RETURN\r\n      K1 = IBASE + I1*JMAX + J2\r\n      J1 = 0\r\n      L = 6*L1\r\n      K = K1\r\n   40 J1 = J1 + 1\r\n      IF (J1 .GT. 6) GO TO 50\r\n      L = L + 1\r\n      K = K + 1\r\n      DZ(K) = DZ(K) + KE(L)\r\n      GO TO 40\r\n   50 I1 = I1 + 1\r\n      L1 = L1 + 1\r\n      GO TO 30\r\nC\r\nC AT THIS POINT WE ARE DEALING WITH A 1 X 1.\r\nC FIRST COMPUTE THE ROW NUMBER, NROW\r\nC\r\n   60 NROW = II - NPVT + 1\r\nC\r\nC THE FOLLOWING 2 FORTRAN STATEMENTS ARE MERELY TO CHECK THE PROGRAM\r\nC LOGIC.  EVENTUALLY THEY CAN BE DELETED.\r\nC\r\n      IF (NROW .GE. 1  .AND.  NROW .LE. TNROWS)  GO TO 70\r\n      CALL MESAGE (-30,22,ECPT(1))\r\n   70 LROWIC = FROWIC + NROWSC - 1\r\nC\r\nC IF NROW, THE ROW INTO WHICH THE NUMBER KE(1) IS TO BE ADDED IS NOT\r\nC IN CORE IT CANNOT BE ADDED AT THIS TIME.\r\nC\r\n      IF (NROW .LT. FROWIC  .OR.  NROW .GT. LROWIC) RETURN\r\n      J2 = ISAVE\r\n      J3 = IPOINT + ISAVE - IGPCT\r\n      INDEX = IBASE + (NROW-1)*JMAX + IZ(J3) + J - IABS(IZ(J2))\r\n      DZ(INDEX) = DZ(INDEX) + KE(1)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sma3.f",
    "content": "      SUBROUTINE SMA3\r\nC\r\nC     THIS ROUTINE, FOR EACH GENERAL ELEMENT, READS THE GENERAL ELEMENT\r\nC     INPUT FILE, GEI, CALLS SMA3A OR SMA3B, DEPENDING UPON WHETHER OR\r\nC     NOT THE ORDERS OF THE K OR Z AND S MATRICES WILL ALLOW THE IN CORE\r\nC     MATRIX ROUTINES (CALLED BY SMA3A) TO BE USED, AND THEN CALLS THE\r\nC     MATRIX ADD ROUTINE TO ADD THE KGGX MATRIX TO THE GENERAL ELEMENT\r\nC     MATRIX.\r\nC\r\n      LOGICAL          EVEN,ONLYGE\r\n      INTEGER          IQ(1),EOR,OUTRW,CLSRW,CLSNRW\r\n      DOUBLE PRECISION DQ(1)\r\n      DIMENSION        IBUFF3(3),NAME(2),MCBID(7),BLOCK(11),IBLOCK(11)\r\n      COMMON /BLANK /  LUSET,NGENEL,NOECPT\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /ZZZZZZ/  Q(1)\r\n      COMMON /GENELY/  IFGEI,IFKGGX,IFOUT,IFA,IFB,IFC,IFD,IFE,IFF,INRW,\r\n     1                 OUTRW,CLSRW,CLSNRW,EOR,NEOR,MCBA(7),MCBB(7),\r\n     2                 MCBC(7),MCBD(7),MCBE(7),MCBF(7),MCBKGG(7),\r\n     3                 IUI,IUD,IZI,IS,IZIS,ISTZIS,IBUFF3,LEFT\r\n      EQUIVALENCE      (KSYSTM(1),ISYS),(KSYSTM(55),IPREC),\r\n     1                 (IQ(1),DQ(1),Q(1)),(IBUFF3(2),M),(IBUFF3(3),N),\r\n     2                 (MCBID(1),MCBC(1)),(BLOCK(1),IBLOCK(1))\r\n      DATA    NAME  /  4HSMA3,4H    /\r\nC\r\nC     GENERAL INITIALIZATION\r\nC\r\n      IFGEI  = 101\r\n      IFKGGX = 102\r\n      IF201  = 201\r\n      IF301  = 301\r\n      IF302  = 302\r\n      IF303  = 303\r\n      IF304  = 304\r\n      IF305  = 305\r\n      IF306  = 306\r\n      IFOUT  = IF201\r\n      IFA    = IF301\r\n      IFB    = IF302\r\n      IFC    = IF303\r\n      IFD    = IF304\r\n      IFE    = IF305\r\n      IFF    = IF306\r\n      IFG    = 307\r\n      INRW   = 0\r\n      OUTRW  = 1\r\n      CLSRW  = 1\r\n      CLSNRW = 2\r\n      EOR    = 1\r\n      NEOR  = 0\r\nC\r\nC     DETERMINE THE SIZE OF VARIABLE CORE AVAILABLE AND SET IUI TO THE\r\nC     ZEROTH LOCATION OF VARIABLE CORE.\r\nC\r\n      IQMAX = KORSZ (Q)\r\n      IUI   = 0\r\nC\r\nC     OPEN THE GENERAL ELEMENT INPUT FILE AND SKIP OVER THE HEADER\r\nC     RECORD.\r\nC\r\n      IGGEI = IQMAX - ISYS + 1\r\n      CALL GOPEN (IFGEI,Q(IGGEI),0)\r\n      IGA   = IGGEI - ISYS\r\nC\r\nC     DETERMINE IF THE NUMBER OF GENERAL ELEMENTS IS EVEN OR ODD.\r\nC\r\n      EVEN = .TRUE.\r\n      IF ((NGENEL/2)*2 .NE. NGENEL) EVEN = .FALSE.\r\n      IPASS = 0\r\nC\r\nC     COMPUTE LENGTH OF OPEN CORE\r\nC\r\n      LEFT = IGA - 1\r\n      NZ   = LEFT\r\nC\r\nC     READ THE TRAILER FOR KGGX TO SEE IF IT EXISTS.\r\nC\r\n      ONLYGE = .FALSE.\r\n      MCBKGG(1) = IFKGGX\r\n      CALL RDTRL (MCBKGG(1))\r\n      IF (MCBKGG(1) .LT. 0) GO TO 12\r\n      IFB = MCBKGG(1)\r\n      DO 10 I = 1,7\r\n      MCBB(I) = MCBKGG(I)\r\n   10 MCBKGG(I) = 0\r\n      GO TO 14\r\n   12 ONLYGE = .TRUE.\r\nC\r\nC     INITIALIZATION PRIOR TO LOOP\r\nC\r\n   14 IF (ONLYGE) GO TO 21\r\n      IFOUT = IF201\r\n      IF (EVEN) IFOUT = IF302\r\n      GO TO 30\r\n   21 IFA = IFOUT\r\n      IF (EVEN) IFA = IF302\r\nC\r\nC     BEGIN MAIN LOOP OF THE PROGRAM\r\nC\r\n   30 IPASS = IPASS + 1\r\nC\r\nC     READ THE ELEMENT ID, THE LENGTH OF THE UI SET, M, AND THE LENGTH\r\nC     OF THE UD SET, N\r\nC\r\n      CALL READ (*200,*210,IFGEI,IBUFF3(1),3,NEOR,IDUMMY)\r\n      NEEDED = 2*(M+N+M**2 + N**2 + 2*M*N)\r\n      ITEMP1 = 2*(M+N+ M**2) + 3*M\r\n      IF (ITEMP1 .GT. NEEDED) NEEDED = ITEMP1\r\nC\r\nC     DETERMINE IF THERE IS ENOUGH CORE STORAGE AVAILABLE TO USE THE IN\r\nC     CORE MATRIX ROUTINES.\r\nC\r\n      IF (NEEDED .GT. LEFT) GO TO 140\r\nC\r\nC\r\nC     **********  IN CORE VERSION  ****************\r\nC\r\nC     USE THE IN CORE MATRIX ROUTINES.  CALL SMA3A.\r\nC\r\n      CALL MAKMCB (MCBA,IFA,0,6,IPREC)\r\nC\r\nC     OPEN THE FILE ON WHICH THE CURRENT GENERAL ELEMENT WILL BE OUTPUT.\r\nC\r\n      CALL GOPEN (IFA,Q(IGA),1)\r\n      CALL SMA3A (MCBA)\r\nC\r\nC     STORE THE CORRECT NUMBER OF ROWS IN THE 3RD WORD OF THE MATRIX\r\nC     CONTROL BLOCK AND CLOSE THE FILE WITH REWIND.\r\nC\r\n      MCBA(3) = MCBA(2)\r\n      CALL WRTTRL (MCBA)\r\n      CALL CLOSE (IFA,CLSRW)\r\nC\r\nC     SUMATION\r\nC\r\nC     JUMP TO 100 ONLY IF THIS IS THE FIRST PASS AND KGGX DOES NOT EXIST\r\nC\r\n   60 IF (IPASS.EQ.1 .AND. ONLYGE) GO TO 100\r\n      CALL MAKMCB (MCBKGG,IFOUT,0,6,IPREC)\r\n      IBLOCK(1) = 1\r\n      BLOCK (2) = 1.0\r\n      BLOCK (3) = 0.0\r\n      BLOCK (4) = 0.0\r\n      BLOCK (5) = 0.0\r\n      BLOCK (6) = 0.0\r\n      IBLOCK(7) = 1\r\n      BLOCK (8) = 1.0\r\n      BLOCK (9) = 0.0\r\n      BLOCK(10) = 0.0\r\n      BLOCK(11) = 0.0\r\nC\r\nC     CLOSE GEI WITH NO REWIND SO SUBROUTINE ADD CAN HAVE THE BUFFER\r\nC\r\n      CALL CLOSE (IFGEI,2)\r\nC\r\nC     CALL SSG2C TO PERFORM SUMMATION - OUTPUT ON IFOUT\r\nC\r\n      CALL SSG2C (IFA,IFB,IFOUT,0,BLOCK)\r\n      IF (IPASS .EQ. NGENEL) GO TO 160\r\n      CALL RDTRL (MCBKGG)\r\nC\r\nC     RESTORE GEI AFTER SUMATION\r\nC\r\n      CALL GOPEN (IFGEI,Q(IGGEI),2)\r\n      IF (IPASS  .GT. 1) GO TO 130\r\n  100 IF (NGENEL .EQ. 1) GO TO 160\r\n      IFA   = IF301\r\n      IFB   = IF302\r\n      IFOUT = IF201\r\n      IF (.NOT.EVEN) GO TO 130\r\n      IFB   = IF201\r\n      IFOUT = IF302\r\nC\r\nC     SWITCH FILES IFB AND IFOUT FOR NEXT GENEL PROCESSING\r\nC\r\n  130 DO 135 I = 1,7\r\n      II = MCBKGG(I)\r\n      MCBKGG(I) = MCBB(I)\r\n  135 MCBB(I) = II\r\n      II = IFOUT\r\n      IFOUT = IFB\r\n      IFB = II\r\nC\r\nC     RETURN TO BEGIN LOOP\r\nC\r\n      GO TO 30\r\nC\r\nC     ***********  OUT OF CORE VERSION  *************\r\nC\r\nC     IFOUT MUST CONTAIN THE RESULTS OF THE LAST GENEL PROCESSED\r\nC     SWITCH FILES IFB AND IFOUT FOR OUT OF CORE VERSION\r\nC\r\n  140 IF (IPASS.EQ.1 .AND. ONLYGE .AND. .NOT.EVEN) GO TO 142\r\n      DO 141 I = 1,7\r\n      II = MCBKGG(I)\r\n      MCBKGG(I) = MCBB(I)\r\n  141 MCBB(I) = II\r\n      II = IFOUT\r\n      IFOUT = IFB\r\n      IFB = II\r\nC\r\nC     THE IN CORE MATRIX ROUTINES CANNOT BE USED.SUBROUTINE SMA3B BUILDS\r\nC     THE ZE IF Z IS INPUT OR THE ZINYS IF K IS INPUT AND IF PRESENT THE\r\nC     SE MATRICES. IF THE SE MATRIX IS PRESENT ISE IS POSITIVE.\r\nC     NOTE - SE(T) IS ON THE SE FILE.\r\nC\r\n  142 CALL SMA3B (ISE,IZK)\r\n      IF (IZK .EQ. 2) GO TO 145\r\nC\r\nC     FACTOR DECOMPOSES THE ZE MATRIX INTO ITS UPPER AND LOWER\r\nC     TRIANGULAR FACTORS.  TWO SCRATCH FILES ARE NEEDED.\r\nC\r\n      CALL FACTOR (IFA,IFE,IFF,IFD,IFC,IFG)\r\nC\r\nC     CONVERT IFB INTO THE IDENTITY MATRIX.  (MCBID HAS BEEN SET UP BY\r\nC     SMA3B)\r\nC\r\n      CALL WRTTRL (MCBID)\r\nC\r\nC     COMPUTE Z INVERSE\r\nC\r\n      CALL SSG3A (IFA,IFE,IFC,IFD,0,0,-1,0)\r\n  145 CONTINUE\r\nC\r\nC     GO TO 150 IF NO SE MATRIX IS PRESENT.\r\nC\r\n      IF (ISE .LT. 0) GO TO 150\r\nC\r\nC               T        T  -1\r\nC     COMPUTE -S XK OR -S XZ  AND STORE ON IFF\r\nC               E  E     E  E\r\nC\r\n      CALL SSG2B (IFB,IFD,0,IFF,0,IPREC,1,IFC)\r\nC\r\nC     TRANSPOSE THE SE FILE ONTO IFA.  HENCE IFA CONTAINS THE -SE MATRIX\r\nC\r\n      CALL TRANP1 (IFB,IFA,1,IFC,0,0,0,0,0,0,0)\r\nC\r\nC                       -1\r\nC     COMPUTE K X-S OR Z  X-S AND STORE ON IFE\r\nC              E   E    E    E\r\nC\r\n      CALL SSG2B (IFD,IFA,0,IFE,0,IPREC,1,IFC)\r\nC\r\nC              T          T  -1\r\nC     COMPUTE S XK XS OR S XZ  XS AND STORE ON IFC\r\nC              E  E  E    E  E   E\r\nC\r\n      CALL SSG2B (IFB,IFE,0,IFC,0,IPREC,1,IFA)\r\nC\r\nC     SMA3C BUILDS THE FINAL MATRIX OF G (LUSET) SIZE.\r\nC\r\n      MCBA(1) = IFA\r\n  150 CALL SMA3C (ISE,MCBA)\r\nC\r\nC     RETURN FILES IFB AND IFOUT TO ORIGIONAL FILES AFTER OUT OF CORE\r\nC\r\n      IF (IPASS.EQ.1 .AND. ONLYGE .AND. .NOT.EVEN) GO TO 60\r\n      DO 155 I = 1,7\r\n      II = MCBKGG(I)\r\n      MCBKGG(I) = MCBB(I)\r\n  155 MCBB(I) = II\r\n      II = IFOUT\r\n      IFOUT = IFB\r\n      IFB = II\r\nC\r\nC     RETURN TO SUMATION\r\nC\r\n      GO TO 60\r\nC\r\nC     WRAP-UP\r\nC\r\n  160 CALL CLOSE (IFGEI, CLSRW)\r\n      IF (IFOUT .NE. IF201) CALL MESAGE (-30,28,5)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n  200 CALL MESAGE (-2,IFGEI,NAME)\r\n  210 CALL MESAGE (-3,IFGEI,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma3a.f",
    "content": "      SUBROUTINE SMA3A (MCBCUR)\r\nC*****\r\nC THIS ROUTINE BUILDS A GENERAL ELEMENT MATRIX (DOUBLE PRECISION AND\r\nC SYMMETRIC) OF SIZE LUSET X LUSET.  MCBCUR IS THE MATRIX CONTROL BLOCK\r\nC FOR THIS MATRIX.\r\nC*****\r\n      DOUBLE PRECISION\r\n     1                   DQ(1)              ,DPWORD\r\n     2,                  DET\r\n      INTEGER\r\n     1                   IQ(1)              ,EOR\r\n     2,                  OUTRW              ,CLSRW\r\n     3,                  CLSNRW             ,SMALL\r\n      LOGICAL\r\n     1                   ZONLY\r\nC\r\n      DIMENSION\r\n     1                   MCBCUR(7)          ,MCB(7)\r\n     2,                  Q(1)               ,IBUFF3(3)\r\n     3,                  NAME(2)\r\nC\r\n      COMMON /BLANK/\r\n     1                   LUSET              ,NGENEL\r\n     2,                  NOECPT\r\n      COMMON   /SYSTEM/\r\n     1                   ISYS               ,DUMMY(53)\r\n     2,                  IPREC\r\n      COMMON   /ZZZZZZ/\r\n     1                   Q\r\n      COMMON   /GENELY/\r\n     1                   IFGEI              ,IFKGGX\r\n     2,                  IFOUT              ,IFA\r\n     3,                  IFB                ,IFC\r\n     4,                  IFD                ,IFE\r\n     5,                  IFF\r\n     8,                  INRW               ,OUTRW\r\n     9,                  CLSRW              ,CLSNRW\r\n     T,                  EOR                ,NEOR\r\n     1,                  MCBA(7)            ,MCBB(7)\r\n     2,                  MCBC(7)            ,MCBD(7)\r\n     3,                  MCBE(7)            ,MCBF(7)\r\n     4,                  MCBKGG(7)\r\n     1,                  IUI                ,IUD\r\n     2,                  IZI                ,IS\r\n     3,                  IZIS               ,ISTZIS\r\n     4,                  IBUFF3             ,LEFT\r\n      COMMON   /ZBLPKX/\r\n     1                   DPWORD             ,DUM2(2)\r\n     2,                  INDEX\r\nC\r\n      EQUIVALENCE\r\n     1                   (IQ(1),DQ(1),Q(1))\r\n     2,                  (IBUFF3(2),M)      ,(IBUFF3(3),N)\r\nC\r\n      DATA               NAME(1)/4HSMA3/    ,NAME(2)/4HA   /\r\nC\r\nC MAKE THE ARGUMENT A LOCAL VARIABLE\r\nC\r\n      DO 10 I=1,7\r\n   10 MCB(I) = MCBCUR(I)\r\nC\r\nC READ THE UI SET OF SCALAR INDEX NUMBERS INTO OPEN CORE.\r\nC\r\n      CALL FREAD(IFGEI,IQ(IUI+1),M,0)\r\nC\r\nC IUD POINTS TO THE ZEROTH LOCATION OF THE UD ARRAY.\r\nC\r\n      IUD = IUI + M\r\n      LEFT = LEFT - M\r\nC\r\nC SET UP ARITHMETIC CONSTANTS.\r\nC\r\n      MPN = M + N\r\n      MSQ = M**2\r\n      NSQ = N**2\r\n      ZONLY = .FALSE.\r\n      IF (N .EQ. 0) ZONLY = .TRUE.\r\n      IF (ZONLY) GO TO 20\r\nC\r\nC SINCE N .NE. 0, THE UD SET EXISTS.  READ IT INTO CORE.\r\nC\r\n      CALL FREAD(IFGEI,IQ(IUD+1),N,0)\r\n      LEFT = LEFT - N\r\nC\r\nC BUILD THE ARRAY IQ(IP+1),IQ(IP+2),...,IQ(IP+MPN) SUCH THAT\r\nC IQ(IP+K) = L IMPLIES IQ(IUI+L) IS THE K TH SMALLEST NUMBER OF THE\r\nC SET OF NUMBERS IQ(IUI+1),...,IQ(IUD+N)\r\nC\r\n   20 IP = IUI + MPN\r\n      K  = IP\r\n      LIMK = IP + MPN\r\n      LOW = IUI + 2\r\n      LIM = IUI + MPN\r\n   30 SMALL = IQ(IUI+1)\r\n      ISMALL = IUI + 1\r\n      DO 40 J=LOW,LIM\r\n      IF (IQ(J) .GE. SMALL) GO TO 40\r\n      SMALL  = IQ(J)\r\n      ISMALL = J\r\n   40 CONTINUE\r\n      K = K + 1\r\n      IDIFF = ISMALL - IUI\r\n      IQ(K) = IDIFF\r\n      IQ(IDIFF) = IQ(IDIFF) + LUSET\r\n      IF (K .LT. LIMK) GO TO 30\r\n      LOW = IUI + 1\r\n      DO 50 I=LOW,LIM\r\n      IF (IQ(I) .LE. LUSET) CALL MESAGE (-30,28,5)\r\n   50 IQ(I) = IQ(I) - LUSET\r\nC\r\nC READ INDICATOR OF Z OR K MATRIX\r\nC\r\n      CALL FREAD(IFGEI,IZK,1,0)\r\nC\r\nC SET UP POINTERS TO THE ZEROTH LOCATION OF THE DOUBLE PRECISION ARRAYS\r\nC       -1\r\nC K  ORZ  AND S\r\nC  E    E      E\r\nC\r\n      IZI = (IUI + 2*MPN - 1) / 2  +  2\r\n      IS = IZI + MSQ\r\nC\r\nC READ IN THE M**2 SINGLE PRECISION ELEMENTS OF THE SYMMETRIC Z OR K\r\nC INTO A TEMPORARY BUFFER BEGINNING AT Q(IBUFF)\r\nC\r\n      IBUFF = IUI + 2 * (MPN + MSQ)\r\nC\r\nC IF ALL OF Z OR K CANNOT FIT INTO THIS BUFFER, READ BLOCKS OF M WORDS\r\nC\r\n      IF (IBUFF + MSQ .GT. LEFT) GO TO 70\r\n      IND = NEOR\r\n      IF (ZONLY) IND = EOR\r\n      CALL FREAD(IFGEI,IQ(IBUFF+1),MSQ,IND)\r\nC\r\nC STORE THE SINGLE PRECISION MATRIX IN ITS DOUBLE PRECISION LOCATION.\r\nC\r\n      LIM = IZI + MSQ\r\n      I   = IZI\r\n      J   = IBUFF\r\n   60 I   = I + 1\r\n      IF (I .GT. LIM) GO TO 100\r\n      J   = J + 1\r\n      DQ(I) = Q(J)\r\n      GO TO 60\r\nC\r\nC READ Z OR K INTO THE BUFFER M WORDS AT A TIME AND STORE M WORDS\r\nC AT A TIME\r\nC\r\n   70 IND = NEOR\r\n      DO 90 K=1,M\r\n      IF (K .EQ. M  .AND.  ZONLY) IND = EOR\r\n      CALL FREAD(IFGEI,Q(IBUFF+1),M,IND)\r\n      I = IZI + (K - 1) * M\r\n      J = IBUFF\r\n      LIM = I + M\r\n   80 I = I + 1\r\n      IF (I .GT. LIM) GO TO 90\r\n      J = J + 1\r\n      DQ(I) = Q(J)\r\n      GO TO 80\r\n   90 CONTINUE\r\nC\r\nC IF K IS INPUT DO NOT COMPUTE INVERSE\r\nC\r\n  100 IF (IZK.EQ.2) GO TO 105\r\nC*****\r\nC COMPUTE THE INVERSE OF Z\r\nC                        E\r\nC*****\r\nC\r\nC THE 4TH ARGUMENT OF INVERD IS A DUMMY D.P. ARGUMENT WHILE 3 * M\r\nC WORDS OF WORKING STORAGE ARE NEEDED FOR THE 8TH ARGUMENT OF SUBROUTINE\r\nC INVERD.  SUBROUTINE INVERD WILL RETURN Z  INVERSE AT DQ(IZI+1)\r\nC                                         E\r\nC\r\n      IBUFF = IUI + 2 * (MPN + MSQ) + 5\r\n      II = IBUFF + 2 * M\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (M,DQ(IZI+1),M,IQ(IBUFF+1),0,DET,ISING,IQ(II+1))\r\nC\r\nC ISING = 2 IMPLIES A SINGULAR Z\r\nC                               E\r\nC\r\n      IF (ISING .EQ. 2) CALL MESAGE (-5,IDUMMY,NAME)\r\n  105 CONTINUE\r\nC\r\nC READ IN THE M*N ELEMENTS OF THE M X N  S MATRIX IF N .GT. 0.\r\nC THIS MATRIX IS SINGLE PRECISION AND ROW STORED.\r\nC\r\n      IF (ZONLY) GO TO 130\r\n      IBUFF = MPN + 2*MSQ + 2*M*N +5\r\n      CALL FREAD(IFGEI,Q(IBUFF+1),M*N,1)\r\nC\r\nC STORE THE S  MATRIX AT DQ(IS+1) MAKING S  DOUBLE PRECISION\r\nC            E                            E\r\nC\r\n      LOW = IS + 1\r\n      LIM = IS + M*N\r\n      J = IBUFF\r\n      DO 110 I=LOW,LIM\r\n      J = J + 1\r\n  110 DQ(I) = Q(J)\r\nC                  -1\r\nC COMPUTE K S  OR Z  S AND STORE AT DQ(IZIS+1)\r\nC          E E     E  E\r\nC\r\n      IZIS = IS + M*N\r\n      CALL GMMATD (DQ(IZI+1),M,M,0, DQ(IS+1),M,N,0, DQ(IZIS+1) )\r\nC\r\nC          T        T -1\r\nC COMPUTE S K S OR S Z  S AND STORE AT DQ(ISTZIS+1)\r\nC          E E E    E E  E\r\nC\r\n      ISTZIS = IZIS + M*N\r\n      CALL GMMATD (DQ(IS+1),M,N,1, DQ(IZIS+1),M,N,0, DQ(ISTZIS+1) )\r\nC\r\nC              -1\r\nC SET K S  OR Z  S  NEGATIVE\r\nC      E E     E  E\r\nC\r\n      LOW = IZIS + 1\r\n      LIM = IZIS + M*N\r\n      DO 120 I=LOW,LIM\r\n  120 DQ(I) = -DQ(I)\r\nC*****\r\nC AT THIS POINT ALL MATRICES HAVE BEEN COMPUTED\r\nC*****\r\nC\r\nC INITIALIZE FOR OUTPUT ONTO THE FILE\r\nC\r\n  130 IZROW  = 1\r\n      IZSCOL = 1\r\n      ICOL = 1\r\n      LIMJUI = IUI + M\r\n      LIMJUD = IUI + MPN\r\n      JUI  = IUI + 1\r\n      JUD  = IUD + 1\r\nC******\r\nC BEGIN OUTPUT LOOP\r\nC******\r\n  140 ILOOP = 0\r\n      IF (ZONLY) GO TO 150\r\n      IF (IQ(JUI) - IQ(JUD)) 150,470,240\r\nC\r\nC AT THIS POINT, WRITE OUT COLUMN(S) CORRESPONDING TO THE UI SET.\r\nC\r\n  150 IF (IQ(JUI) - ICOL) 160,190,170\r\nC\r\nC A TRANSFER TO STATEMENT NO. 1115 WILL BE MADE IF THE MAXIMUM OF THE\r\nC UD SET IS LESS THAN THE MINIMUM OF THE UI SET AND THE COLUMNS\r\nC CORRESPONDING TO THE UD SET HAVE BEEN OUTPUT.\r\nC\r\n  160 IF (ILOOP .EQ. 1  .OR.  ZONLY) GO TO 480\r\n      ILOOP = 1\r\n      GO TO 240\r\nC\r\nC SINCE IQ(JUI) .GT. ICOL, IQ(JUI) - ICOL COLUMNS OF ZERO VECTORS MUST\r\nC BE OUTPUT.\r\nC\r\n  170 LIM = IQ(JUI) - ICOL\r\n      DO 180 I=1,LIM\r\n      CALL BLDPK (2, IPREC, MCB(1), 0, 0)\r\n  180 CALL BLDPKN(MCB(1),0,MCB)\r\nC\r\nC INITIALIZE FOR THE OUTPUT OF THE CURRENT COLUMN BY CALLING BLDPK\r\nC\r\n  190 CALL BLDPK (2, IPREC, MCB(1), 0, 0)\r\n      DO 220 I=1,MPN\r\n      IPPI = IP + I\r\n      IF (IQ(IPPI) .GT. M) GO TO 200\r\nC\r\nC SINCE IQ(IPPI).LE.M,OUTPUT AN ELEMENT OF K OR Z INVERSE\r\nC\r\n      JROW = IZROW\r\n      JCOL = IQ(IPPI)\r\n      K = (JROW - 1) * M  +  JCOL  +  IZI\r\n      GO TO 210\r\nC\r\nC HERE WE ARE DEALING WITH A MEMBER OF THE UD SET.  HENCE AN ELEMENT OF\r\nC                -1\r\nC THE -K S  OR -Z  S  MATRIX MUST BE OUTPUT\r\nC       E E      E  E\r\nC\r\n  200 JROW = IZROW\r\n      JCOL = IQ(IPPI) - M\r\n      K = (JROW - 1) * N  +  JCOL  +  IZIS\r\nC\r\nC FILL ZBLPKI COMMON BLOCK\r\nC\r\n  210 KK = IQ(IPPI)\r\n      INDEX = IQ(KK)\r\n      DPWORD = DQ(K)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n  220 CONTINUE\r\nC\r\nC THE CURRENT COLUMN IS COMPLETE.  CALL BLDPKN TO WRAP UP.\r\nC\r\n      CALL BLDPKN(MCB(1),0,MCB)\r\n      IZROW = IZROW + 1\r\n      ICOL  = IQ(JUI) + 1\r\n      JUI = JUI + 1\r\n      IF (JUI .GT. LIMJUI) JUI = LIMJUI\r\n  230 IF (IZROW .GT. M  .AND.  IZSCOL .GT. N) GO TO 320\r\n      GO TO 140\r\nC\r\nC AT THIS POINT WRITE OUT A COLUMN(S) USING THE UD SET.\r\nC\r\n  240 IF (IQ(JUD) - ICOL) 250,280,260\r\nC\r\nC A TRANSFER TO STATEMENT NO. 1185 WILL BE MADE IF THE MAXIMUM OF THE\r\nC UI SET IS LESS THAN THE MINIMUM OF THE UD SET AND THE COLUMNS\r\nC CORRESPONDING TO THE UI SET HAVE BEEN OUTPUT.\r\nC\r\n  250 IF (ILOOP .EQ. 1) GO TO 490\r\n      ILOOP = 1\r\n      GO TO 150\r\nC\r\nC WRITE ZERO COLUMN(S).\r\nC\r\n  260 LIM = IQ(JUD) - ICOL\r\n      DO 270 I=1,LIM\r\n      CALL BLDPK (2, IPREC, MCB(1), 0, 0)\r\n  270 CALL BLDPKN(MCB(1),0,MCB)\r\n  280 CALL BLDPK (2, IPREC, MCB(1), 0, 0)\r\nC\r\nC OUTPUT A COLUMN WHOSE SIL NO. IS A MEMBER OF THE UD SET.\r\nC\r\n      DO 310 I=1,MPN\r\n      IPPI = IP + I\r\n      IF (IQ(IPPI) .GT. M) GO TO 290\r\nC\r\nC                                           -1\r\nC SINCE IQ(IPPI).LE.M,AN ELEMENT OF -KS OR -Z  S MUST BE OUTPUT\r\nC\r\n      JROW = IQ(IPPI)\r\n      JCOL = IZSCOL\r\n      K = (JROW - 1) * N  +  JCOL  +  IZIS\r\n      GO TO 300\r\nC\r\nC                       T         T -1\r\nC OUTPUT AN ELEMENT OF S K S  OR S Z  S\r\nC                       E E E     E E  E\r\nC\r\n  290 JROW = IQ(IPPI) - M\r\n      JCOL = IZSCOL\r\n      K = (JROW - 1) * N  + JCOL  +  ISTZIS\r\nC\r\nC SET UP PARAMETERS IN ZBLPKI COMMON BLOCK\r\nC\r\n  300 KK = IQ(IPPI)\r\n      INDEX = IQ(KK)\r\n      DPWORD = DQ(K)\r\n      IF (DPWORD .NE. 0.0D0) CALL ZBLPKI\r\n  310 CONTINUE\r\nC\r\nC WRAP UP THIS COLUMN.\r\nC\r\n      CALL BLDPKN(MCB(1),0,MCB)\r\n      IZSCOL = IZSCOL + 1\r\n      ICOL   = IQ(JUD)+ 1\r\n      JUD    = JUD + 1\r\n      IF (JUD .GT. LIMJUD) JUD = LIMJUD\r\n      GO TO 230\r\nC\r\nC DETERMINE IF ZERO COLUMNS ARE TO BE OUTPUT.\r\nC\r\n  320 K = IUI + M\r\n      L = IUD + N\r\n      MAX = IQ(K)\r\n      IF (IQ(L) .GT. MAX) MAX = IQ(L)\r\n      LIM = MAX - LUSET\r\n      IF (LIM) 330,350,500\r\nC\r\nC OUTPUT LIM ZERO COLUMNS\r\nC\r\n  330 LIM = IABS(LIM)\r\n      DO 340 I = 1,LIM\r\n      CALL BLDPK (2, IPREC, MCB(1), 0, 0)\r\n  340 CALL BLDPKN(MCB(1),0,MCB)\r\n  350 DO 360 I=1,7\r\n  360 MCBCUR(I) = MCB(I)\r\n      RETURN\r\nC\r\nC FATAL ERROR MESSAGES\r\nC\r\n  470 CALL MESAGE (-30,28,1)\r\n  480 CALL MESAGE (-30,28,2)\r\n  490 CALL MESAGE (-30,28,3)\r\n  500 CALL MESAGE (-30,28,4)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma3b.f",
    "content": "      SUBROUTINE SMA3B(IFLAG,IZK)\r\nC\r\nC     THIS ROUTINE PROCESSES A GENERAL ELEMENT FROM GEI\r\nC\r\nC     IT  PRODUCES A ZE MATRIX OR A ZINVS MATRIX AND A SE MATRIX\r\nC\r\nC     ASSUMES GEI SITS AT BEGINNING OF UI SET AND IS OPEN TO READ\r\nC\r\n      DOUBLE PRECISION D11\r\n      INTEGER SYSBUF,ZE,SE,GEI,SE1,ZE1,ZINVS\r\n      DIMENSION ZE(7),SE(7)\r\nC\r\n      COMMON  /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /ZBLPKX/D11(2),IDX\r\n      COMMON/GENELY/GEI,DUM1(2),ZE1,SE1,ID1,ZINVS,DUM2(22),ID(7),\r\n     1 DUM4(35),M,N\r\nC\r\nC     COMPUTE LENGTH OF VARIABLE CORE\r\nC\r\n      NZ  = KORSZ(Z)-SYSBUF\r\n      IFLAG=-1\r\n      NZ =NZ -SYSBUF\r\nC\r\nC SKIP M+N WORDS ON GEI FILE\r\nC\r\n      CALL FREAD(GEI,Z,M+N,0)\r\nC\r\nC READ FLAG VARIABLE FOR Z OR K MATRIX\r\nC\r\n      CALL FREAD(GEI,IZK,1,0)\r\nC\r\nC IF Z MATRIX INPUT,WRITE ON ZE1 FILE\r\nC IF K MATRIX INPUT,WRITE ON ZINVS FILE\r\nC\r\n      CALL MAKMCB(ZE,ZE1,M,6,2)\r\n      IF (IZK.EQ.2) ZE(1)=ZINVS\r\n      CALL MAKMCB(SE,SE1,N,2,2)\r\nC\r\nC READY FOR PACKING MATRICES\r\nC\r\nC\r\nC OPEN ZE MATRIX\r\nC\r\n      CALL GOPEN(ZE,Z(NZ+1),1)\r\nC\r\nC     LOOP ON M COLUMNS OF ZE\r\nC\r\n      DO 20 I=1,M\r\n      CALL BLDPK(2,2,ZE(1),0,0)\r\n      DO 10 J=1,M\r\n      CALL FREAD(GEI,Z,1,0)\r\n      D11(1) = Z(1)\r\n      IDX = J\r\n   10 CALL ZBLPKI\r\n      CALL BLDPKN(ZE(1),0,ZE)\r\n   20 CONTINUE\r\n      CALL CLOSE( ZE(1),1)\r\n      CALL WRTTRL( ZE )\r\n      IF(N .EQ. 0) GO TO 50\r\n      IFLAG =1\r\nC\r\nC     NOW BUILD SE TRANSPOSE\r\nC\r\nC\r\nC     OPEN AND WRITE HEADER\r\nC\r\n      CALL GOPEN(SE,Z(NZ+1),1)\r\nC\r\nC     LOOP ON N COLUMNS OF SE\r\nC     LOOP ON M COLUMNS OF SE  TRANSPOSE\r\nC\r\n      DO 40 I=1,M\r\n      CALL BLDPK(2,2,SE(1),0,0)\r\n      DO 30 J=1,N\r\n      CALL FREAD(GEI,Z,1,0)\r\n      D11(1) = -Z(1)\r\n      IDX = J\r\n   30 CALL ZBLPKI\r\n      CALL BLDPKN(SE(1),0,SE)\r\n   40 CONTINUE\r\n      CALL CLOSE(SE(1),1)\r\n      CALL WRTTRL(SE)\r\nC\r\nC     BACKSPACE GEI SO UD AND UI AVAILABLE LATER\r\nC\r\n   50 CALL BCKREC(GEI)\r\n      CALL CLOSE(GEI,2)\r\n      ID(1) = ID1\r\n      ID(2)=M\r\n      ID(3)=M\r\n      ID(4)=8\r\n      ID(5)=2\r\n      ID(6)=1\r\n      ID(7)=0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sma3c.f",
    "content": "      SUBROUTINE SMA3C(IFLAG,K)\r\nC\r\nC     THIS ROUTINE WILL MERGE ZINVS,ZS,STZ,AND STZS INTO KE AND\r\nC       BUILD KE UP TO G SIZE.  IF INFLAG .LT. 0 THERE ARE NO\r\nC       UD-S\r\nC\r\n      DOUBLE PRECISION A11,B11,D11\r\n      INTEGER ZINVS,ZS,STZ,STZS,GEI,SYSBUF,NAME(2),IZ(1)\r\n      DIMENSION BLOCK1(20),BLOCK2(20),K(7)\r\nC\r\n      COMMON /BLANK/LUSET\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ZBLPKX/ D11(2),ID\r\n      COMMON /SYSTEM/ SYSBUF, DUMMY(53), IPREC\r\n      COMMON /GENELY/GEI,DUM(4),STZS(1),ZINVS(1),ZS(1),STZ(1),DUM1(62),\r\n     1  M,N\r\nC\r\n      EQUIVALENCE (Z(1),IZ(1))\r\n      DATA NAME / 4HSMA3,4HC    /\r\nC\r\nC     IUI IS POINTER TO UI SET, IUD IS POINTER TO UD SET\r\nC\r\n      IUI =1\r\n      IUD =M+1\r\n      NZ = KORSZ(Z)\r\nC\r\nC     OPEN GEI(WITHOUT REWIND)\r\nC\r\n      NZ = NZ -SYSBUF\r\n      CALL GOPEN(GEI,Z(NZ+1),2)\r\nC\r\nC     READ IN UI SET\r\nC\r\n      CALL FREAD(GEI,Z,-3,0)\r\n      CALL FREAD(GEI,Z, M,0)\r\nC\r\nC     READ IN UD\r\nC\r\n      IF (IFLAG .LT. 0) GO TO 10\r\n      CALL FREAD(GEI,Z(IUD),N,1)\r\nC\r\nC     OPEN BUFFERS FOR MATRICES\r\nC\r\n   10 LLEN = M+N+2*SYSBUF\r\n      IF(IFLAG .GE. 0) LLEN = LLEN+3*SYSBUF\r\n      IF (LLEN .GT. NZ) GO TO 220\r\n      NZ = NZ-SYSBUF\r\n      CALL GOPEN(K,Z(NZ+1),1)\r\n      NZ = NZ -SYSBUF\r\n      CALL GOPEN(ZINVS,Z(NZ+1),0)\r\n      IF (IFLAG .LT. 0) GO TO 20\r\n      NZ =NZ -SYSBUF\r\n      CALL GOPEN(ZS,Z(NZ+1),0)\r\n      NZ =NZ -SYSBUF\r\n      CALL GOPEN(STZ,Z(NZ+1),0)\r\n      NZ =NZ -SYSBUF\r\n      CALL GOPEN(STZS,Z(NZ+1),0)\r\nC\r\nC     LOOP ON LUSET MAKING COLUMNS OF KGG\r\nC\r\n   20 K(2) = 0\r\n      K(3) = LUSET\r\n      K(4) = 6\r\n      K(5) = 2\r\n      K(6) = 0\r\n      K(7) = 0\r\n      IIP = 0\r\n      IDP = 0\r\n      DO 170 I=1,LUSET\r\n      CALL BLDPK (2, IPREC, K(1), 0, 0)\r\n      IF( IIP.GE.M )  GO TO 25\r\n      L = IUI + IIP\r\n      IF (I .EQ. IZ(L)) GO TO 30\r\n   25 CONTINUE\r\n      IF (IFLAG .LT. 0) GO TO 160\r\n      IF( IDP.GE.N )  GO TO 160\r\n      L = IUD + IDP\r\n      IF (I .EQ. IZ(L)) GO TO 40\r\n      GO TO 160\r\nC\r\nC     USING UI -- ZINVS AND STZ\r\nC\r\n   30 IIP = IIP +1\r\n      NAM1 = ZINVS(1)\r\n      NAM2 = STZ(1)\r\n      GO TO 50\r\nC\r\nC     USING UD ZS AND STZS\r\nC\r\n   40 IDP = IDP +1\r\n      NAM1 = ZS(1)\r\n      NAM2 = STZS(1)\r\nC\r\nC     MERGE ROUTINE FOR COLUMN\r\nC\r\n   50 IAD = 0\r\n      IBD = 0\r\n      IHOP = 0\r\n      CALL INTPK(*140,NAM1,BLOCK1(1),2,1)\r\n   60 IF(IFLAG .LT. 0) GO TO 150\r\n      CALL INTPK(*150,NAM2,BLOCK2(1),2,1)\r\n   70 CALL INTPKI(A11,IA,NAM1,BLOCK1(1),IAEOL)\r\n      L=  IUI +IA -1\r\n      II = IZ(L)\r\n      IF (IHOP .EQ. 1) GO TO 90\r\n      IHOP = 1\r\n   80 CALL INTPKI(B11,IB,NAM2,BLOCK2(1),IBEOL)\r\n      L = IUD +IB -1\r\n      JJ = IZ(L)\r\n   90 IF (II-JJ) 100,320,120\r\nC\r\nC     PUT IN A11\r\nC\r\n  100 D11(1) =A11\r\n      ID = II\r\n      CALL ZBLPKI\r\n      IF (IAEOL) 110,70,110\r\n  110 IAD = 1\r\n      II = 99999\r\n      IF(IBD) 160,120,160\r\nC\r\nC     PUT IN BUU\r\nC\r\n  120 D11(1) = B11\r\n      ID = JJ\r\n      CALL ZBLPKI\r\n      IF (IBEOL) 130,80,130\r\n  130 IBD = 1\r\n      JJ = 99999\r\n      IF(IAD) 160,100,160\r\nC\r\nC     NULL NAM1\r\nC\r\n  140 IAD =1\r\n      II = 99999\r\n      GO TO 60\r\nC\r\nC     NO NAM2\r\nC\r\n  150 IBD =1\r\n      JJ = 99999\r\n      IHOP =1\r\n      GO TO 70\r\nC\r\nC     END OF COLUMN\r\nC\r\n  160 CALL BLDPKN(K(1),0,K)\r\nC\r\nC     END LOOP\r\nC\r\n  170 CONTINUE\r\n      CALL WRTTRL (K)\r\n      CALL CLOSE (K(1),1)\r\n      CALL CLOSE (ZINVS(1),1)\r\n      IF (IFLAG .LT. 0) GO TO 180\r\n      CALL CLOSE (STZ(1),1)\r\n      CALL CLOSE (STZS(1),1)\r\n      CALL CLOSE (ZS(1),1)\r\n  180 RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  220 CALL MESAGE(-8,GEI,NAME)\r\n  320 CALL MESAGE(-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smc2cd.f",
    "content": "      SUBROUTINE SMC2CD ( ZI, ZD, ZIL, ZOL, NAR, LASROW, DTEMP\r\n     &                  , I1, I2, I3  )\r\nC\r\nC ZIL    = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA)\r\nC ZOL    = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2)\r\nC NAR    = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN\r\nC I1     = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN\r\nC I2     = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND \r\nC          NUMBER OF ROWS ALLOCATED FOR OUTER LOOP\r\nC I3     = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR \r\nC          ANY COLUMN\r\nC LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL\r\nC          +NEXTRA)\r\nC\r\n      DOUBLE COMPLEX    DTEMP(I3)              \r\n      DOUBLE COMPLEX    ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP\r\n      DOUBLE PRECISION  ZD(10)\r\n      INTEGER           ZI(10), NAR( I3 )\r\n      INTEGER           LASROW(I2)\r\n      INCLUDE           'SMCOMX.COM'                    \r\nC      \r\nC GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR\r\nC EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND\r\nC OUTER LOOP AREAS.\r\nC\r\nC BEGIN TO PROCESS EACH COLUMN\r\nC FOR COLUMN K, GET OUTER LOOP TERMS\r\nC    A(K,J) / A(J,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1)/A(1,1)\r\nC         A(5,2)/A(2,2)\r\nC         A(5,3)/A(3,3)\r\nC         A(5,4)/A(4,4)\r\nC ALSO, GET INNER LOOP TERMS\r\nC    A(I,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1) A(6,1)  .  A(N,1)\r\nC         A(5,2) A(6,2)  .  A(N,2)\r\nC         A(5,3) A(6,3)  .  A(N,3)\r\nC         A(5,4) A(6,4)  .  A(N,4)\r\nC         \r\nC  LOOP 7000 WILL BE ON K\r\nC  LOOP 6000 WILL BE ON J\r\nC    \r\n      IC1     = 1\r\n      IC2     = 2\r\n      IILROW1 = 1\r\nC      print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac\r\n      DO 7000 K = 1, NCOL\r\n      KK      = MOD( K, I2 )\r\n      IF ( KK .EQ. 0 ) KK = I2\r\n      LASROW( KK ) = 0\r\nC      PRINT *,' SMC2CD PROCESSING COLUMN K=',K\r\n      KCOL    = K\r\n      KDIR    = K*4 - 3\r\n      KMIDX   = ZI( KDIR   )\r\nC\r\nC SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE     \r\nC      \r\n      IF ( KMIDX .NE. 0 ) GO TO 500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( KCOL, ZI )\r\n      KMIDX  = ZI( KDIR )\r\n500   CONTINUE\r\n      KFRCOLP= KFRCOL\r\n      KLSCOLP= KLSCOL\r\n      KFRCOL = ZI( KDIR+1 )  \r\n      KM2    = ZI( KMIDX+1)\r\n      KRIDXN = KMIDX + 4 + KM2\r\n      KLSCOL = K - 1\r\n      KRIDX  = KMIDX+4\r\n      KRIDXS = KRIDX\r\n      KROW1  = ZI( KRIDX   )\r\n      KROWN  = KROW1 + ZI( KRIDX+1 ) - 1\r\n      KAROWS = 0\r\n      DO 510 KK = 1, KM2, 2\r\n      KAROWS = KAROWS + ZI( KRIDX+KK )\r\n510   CONTINUE\r\nC\r\nC IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT,\r\nC THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS\r\nC\r\n      IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350\r\nC     \r\nC NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN\r\nC THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS.\r\nC FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST \r\nC BEGIN AS IF NOTHING STORED.  IF SOME OF THE REQUIRED ROWS ARE PRESENT,\r\nC THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER\r\nC LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE\r\nC OUTER LOOP ARRAY.\r\nC\r\nC IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN\r\nC THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING\r\nC\r\n      IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350\r\n      KR      = 1\r\n      LROW1   = NAR( 1 ) \r\n      LROWN   = NAR( 1 ) + NAR( 2 ) - 1\r\nC\r\nC  LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT \r\nC          COLUMN PROCESSED\r\nC  LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN \r\nC          PROCESSED\r\nC      \r\nC FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED\r\nC FOR THIS COLUMN\r\nC\r\nC IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350\r\nC\r\n1105  CONTINUE\r\n      IF ( LROW1 .GT. KROW1 ) GO TO 1350\r\n      IF ( KROW1 .LT. LROWN ) GO TO 1100\r\nC\r\nC NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING\r\nC ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER\r\nC LOOP THAT CONTAINS THE VALUE OF ROW \"KROW1\" OF EACH COLUMN.\r\nC\r\n      INCR    = LROWN - LROW1 + 1\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1\r\n      KR      = KR + 2    \r\n      LROW1   = NAR( KR )\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1350     \r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      GO TO 1105\r\n1100  CONTINUE\r\nC      \r\nC THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT\r\nC THE PROPER ROW NUMBER IN THE INNER LOOP\r\nC\r\n      INCR    = KROW1 - LROW1\r\n      KROWB   = KROW1 \r\n      KROWSB  = KROWN - KROWB + 1 \r\n      KRIDXS  = KRIDX\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1    ) IILROW1 = IILROW1 - I1\r\n      LROW1   = KROW1\r\n      IILROW  = IILROW1\r\n1120  IF ( LROW1 .NE. KROW1 ) GO TO 1180\r\n      IF ( LROWN .EQ. KROWN ) GO TO 1130\r\n      IF ( LROWN .LT. KROWN ) GO TO 1140\r\n      IF ( LROWN .GT. KROWN ) GO TO 1150\r\nC\r\nC THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS\r\nC\r\n1130  CONTINUE\r\n      INCR    = KROWN - KROWB + 1\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      KRIDX   = KRIDX + 2\r\n      IF ( KRIDX .EQ. KRIDXN ) GO TO 1170\r\n      KR      = KR + 2\r\n      KROW1   = ZI( KRIDX )\r\n      KROWB   = KROW1   \r\n      KROWSB  = ZI( KRIDX+1 )  \r\n      KROWN   = KROW1 + KROWSB -1\r\n      KRIDXS  = KRIDX\r\n      LROW1   = NAR( KR )\r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1180 \r\n      GO TO 1120\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN\r\nC\r\n1140  CONTINUE\r\n      INCR    = LROWN  - KROWB + 1\r\n1145  KROWB   = KROWB  + INCR\r\n      KROWSB  = KROWSB - INCR\r\n      KRIDXS  = KRIDX\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      GO TO 1180\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN\r\nC\r\n1150  CONTINUE\r\n      INCR    = LROWN - LROW1 + 1\r\n      GO TO 1145\r\nC\r\nC ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX\r\nC FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS.\r\n1170  CONTINUE\r\n      KFRCOLG = KLSCOLP+1\r\n      IILROW  = IILROW1\r\n      GO TO 1400\r\nC\r\nC NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS\r\nC FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN\r\nC\r\n1180  CONTINUE\r\n      KFRCOLG = KFRCOL\r\n      GO TO 1400\r\nC\r\nC NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS\r\nC FROM THE BEGINNING\r\nC\r\n1350  IILROW1 = 1\r\n      IILROW  = 1\r\n      KROWB   = KROW1\r\n      KROWSB  = KROWN - KROW1 + 1\r\n      KFRCOLG = KFRCOL\r\n1400  CONTINUE\r\n      KRIDX   = KMIDX+4\r\n      DO 1450 J = 1, KM2\r\n      NAR( J ) = ZI( KRIDX+J-1 )\r\n1450  CONTINUE\r\n      NAR( KM2+1 ) = 0\r\n      IILROWB = IILROW\r\nC\r\nC KFRCOL  = FIRST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KLSCOL  = LAST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS\r\nC KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC\r\nC      PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS='\r\nC      PRINT *,  KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS\r\nC      PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx='\r\nC      PRINT *,  KROWB,KROWSB,IILROW1,IILROW,kridx\r\nC\r\nC KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY\r\nC COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA\r\nC\r\n      IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000\r\n      DO 3000 J = KFRCOLG, KLSCOL\r\n      IILCOL = MOD ( J, I2 )  \r\n      IF ( IILCOL .EQ. 0 ) IILCOL = I2\r\n      JCOL   = J\r\n      JDIR   = J*4 - 3\r\n      JMIDX  = ZI( JDIR   )\r\nC\r\nC SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE\r\nC      \r\n      IF (  JMIDX .NE. 0 ) GO TO 1500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( JCOL, ZI )\r\n      IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL\r\n      IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR )\r\n1500  CONTINUE\r\n      JRIDX  = JMIDX + 4\r\n      JM2    = ZI( JMIDX + 1 )\r\n      JRIDXN = JRIDX + JM2\r\n      JROWL  = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1\r\n      JVIDX  = JRIDXN\r\nC\r\nC SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM)\r\nC      \r\n      JVIDX  = JVIDX  / 2 + 1\r\n      ZOL( IILCOL, IC2 )  = (1.0D0,0.0D0) / \r\n     &                      CMPLX( ZD(JVIDX), ZD(JVIDX+1) )\r\nC\r\nC FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K\r\nC      \r\n      IF ( J .GT. KLSCOLP ) GO TO 1530\r\nC\r\nC SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP\r\nC\r\n      KRIDX  = KRIDXS   \r\n      KROW   = KROWB\r\n      KROWS  = KROWSB\r\n      IILROW = IILROWB           \r\nC\r\nC SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT\r\nC BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING.\r\nC\r\n      IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0\r\n      GO TO 1540\r\n1530  CONTINUE\r\nC\r\nC  MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP\r\nC\r\n      KRIDX  = KMIDX+4\r\n      KROW   = ZI( KRIDX   )\r\n      KROWS  = ZI( KRIDX+1 )\r\n      IILROW = IILROW1\r\n1540  CONTINUE\r\n      KROWN  = KROW + KROWS - 1\r\nC\r\nC JROWL IS LAST ROW TERM IN COLUMN \"J\".  IF THIS IS BEFORE THE FIRST ROW \r\nC \"KROW\" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN \"J\" AND\r\nC \"LASROW\" WILL INDICATE THE LAST VALUE STORED FOR COLUMN \"J\".\r\nC\r\n      IF ( JROWL .LT. KROW ) GO TO 3000\r\n2000  JROW   = ZI( JRIDX )\r\n      JROWS  = ZI( JRIDX+1 )\r\n      JROWN  = JROW + JROWS - 1\r\n2010  CONTINUE      \r\n      IF ( JROWN .LT. KROW  ) GO TO 2895\r\n      IF ( JROW  .GT. KROWN ) GO TO 2400\r\n      MISSIN = KROW - JROW\r\nC\r\nC CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING\r\nC THE DECOMPOSITION.  IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES\r\nC TO BE INITIALLY ZERO.\r\nC      \r\n      IF ( MISSIN .GE. 0 ) GO TO 2050\r\n      NZEROS = IABS( MISSIN )\r\nC\r\nC  STORE \"NZEROS\" NUMBER OF ZEROS FOR INNER LOOP TERMS\r\nC\r\n      IAVAIL = I1 - ( IILROW+NZEROS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2022\r\n      DO 2020 I = 1, NZEROS\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0)\r\n2020  CONTINUE\r\n      IILROW = IILROW + NZEROS\r\n      GO TO 2028\r\n2022  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NZEROS - ILIM1\r\n      DO 2024 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0)\r\n2024  CONTINUE\r\n      DO 2026 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = (0.0D0,0.0D0)\r\n2026  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2028  CONTINUE\r\n      KROW  = KROW  + NZEROS \r\n      KROWS = KROWS - NZEROS \r\n2050  CONTINUE\r\n      IF ( MISSIN .LE. 0 ) GO TO 2070\r\n      ISKIP  = KROW  - JROW\r\n      JVIDX  = JVIDX + ISKIP*2\r\n      JROW   = JROW  + ISKIP\r\n2070  CONTINUE\r\n      IROWN  = MIN0 ( KROWN, JROWN )\r\n      NUM    = IROWN - KROW + 1                                    \r\nC\r\nC  MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO \r\nC  THE INNER LOOP AREA\r\nC      \r\n      NROWS = IROWN - KROW + 1\r\n      IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120\r\n      DO 2100 I = 1, NROWS\r\n      IX2 = I*2\r\n      ZIL( IILROW+I-1,IILCOL ) = CMPLX(ZD(JVIDX+IX2-2 ),ZD(JVIDX+IX2-1))\r\n2100  CONTINUE\r\n      IILROW = IILROW + NROWS\r\n      GO TO 2180\r\n2120  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NROWS - ILIM1\r\n      DO 2122 I = 1, ILIM1\r\n      IX2 = I*2\r\n      ZIL( IILROW+I-1, IILCOL ) = CMPLX(ZD(JVIDX+IX2-2),ZD(JVIDX+IX2-1))\r\n2122  CONTINUE\r\n      JVTMP = JVIDX + ILIM1*2\r\n      DO 2124 I = 1, ILIM2\r\n      IX2 = I*2\r\n      ZIL( I, IILCOL ) = CMPLX( ZD(JVTMP+IX2-2), ZD(JVTMP+IX2-1) )\r\n2124  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2180  CONTINUE\r\n      LASROW( IILCOL ) = IILROW \r\nC\r\nC IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1\r\nC\r\n      IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1\r\n      JVIDX  = JVIDX + NROWS*2\r\n      JROW   = JROW  + NROWS\r\n      KROW   = IROWN + 1\r\n      KROWS  = KROWN - IROWN \r\nC\r\nC INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN\r\nC OR IROWN = KROWN\r\nC      \r\n      IF ( IROWN .EQ. JROWN ) GO TO 2900\r\n      GO TO 2530\r\n2400  CONTINUE\r\nC\r\nC STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF\r\nC OF ROWS FOR THIS PIVOTAL COLUMN. \r\nC\r\n      IAVAIL = I1 - ( IILROW+KROWS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2522\r\n      DO 2510 I = 1, KROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0D0,0.0D0)\r\n2510  CONTINUE\r\n      IILROW = IILROW + KROWS\r\n      GO TO 2528\r\n2522  CONTINUE\r\n      ILIM2  = KROWS - ( I1 - IILROW + 1 )\r\n      DO 2524 I = IILROW1, I1\r\n      ZIL( I, IILCOL ) = (0.0D0,0.0D0)\r\n2524  CONTINUE\r\n      DO 2526 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = (0.0D0,0.0D0)\r\n2526  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2528  CONTINUE\r\nC      \r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"K\"\r\nC\r\n2530  KRIDX  = KRIDX + 2\r\nC\r\nC IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE\r\nC\r\n      IF ( KRIDX .GE. KRIDXN ) GO TO 3000\r\n      KROW   = ZI( KRIDX )\r\n      KROWS  = ZI( KRIDX+1)\r\n      KROWN  = KROW + KROWS - 1\r\n      GO TO 2010\r\n2895  CONTINUE\r\nC\r\nC INCREMENT \"JVIDX\" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE \r\nC NEXT ROW OF COLUMN \"J\"\r\nC\r\n      JVIDX  = JVIDX + ( JROWN - JROW + 1 )*2\r\nC\r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"J\"\r\nC\r\n2900  JRIDX  = JRIDX + 2\r\n      IF ( JRIDX .GE. JRIDXN ) GO TO 3000\r\n      GO TO 2000\r\n3000  CONTINUE\r\n      IF ( K .EQ. 1 ) GO TO 6000\r\nC\r\nC COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA\r\nC \r\nC      do 100 k = 1,n\r\nC         do 10  i = k,n\r\nC         temp = 0.\r\nC         do 5  l = 1,k-1\r\nC            temp = temp + a(i,l)*a(k,l) / a(l,l)\r\nC    5       continue\r\nC         a(i,k) = a(i,k) - temp\r\nC   10    continue\r\nC\r\nC  THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT.\r\nC  THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT\r\nC  THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS\r\nC  MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS.\r\nC\r\nC         do 11 j = k+1,n\r\nC           a(k,j) = a(j,k) / a( k,k )\r\nC   11      continue\r\nC  100 continue\r\nC\r\nC   NROWS  = NUMBER OF ROWS STORED IN INNER LOOP\r\nC   KCOL   = LAST COLUMN NUMBER STORED IN INNER LOOP\r\nC   KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP\r\nC\r\n      NROWS = KAROWS\r\n      KDIR  = ( KCOL-1 ) * 4 + 1\r\n      KMIDX = ZI( KDIR )\r\n      KRIDX = KMIDX + 4\r\n      KM2   = ZI( KMIDX+1 )\r\n      KVIDX = KRIDX + KM2\r\n      KVIDX = ( KVIDX / 2 ) + 1\r\n      ILIM1   = IILROW1 + NROWS - 1\r\n      ILIM2   = 0\r\n      IAVAIL  = I1 - ILIM1\r\n      IF ( IAVAIL .GE. 0 ) GO TO 4010\r\n      ILIM1   = I1\r\n      ILIM2   = NROWS - ( I1 - IILROW1 + 1 )\r\n4010  CONTINUE\r\n      JLIM1   = MOD( KFRCOL, I2 )\r\n      JLIM2   = MOD( KLSCOL, I2 )\r\n      IF ( JLIM1 .EQ. 0 ) JLIM1 = I2\r\n      IF ( JLIM2 .EQ. 0 ) JLIM2 = I2\r\n      JLIM4   = 0\r\n      IF ( KFRCOL .EQ. K ) GO TO 6000 \r\n      IF ( JLIM2 .GE. JLIM1 ) GO TO 4015\r\n      JLIM4   = JLIM2\r\n      JLIM2   = I2\r\n4015  CONTINUE\r\nC      PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1\r\nC      PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS'\r\nC      PRINT *,  ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS\r\n      IF ( K .EQ. 1 ) GO TO 4007\r\nC\r\nC COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J\r\nC I.E.,   -A(K,J) / A(J,J) \r\nC  where K = current pivot column number; J = column being processed\r\nC      \r\nC     KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN\r\nC     JCOL   = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN\r\nC     ZOL(KBC,IC1) = FIRST ACTIVE ROW (\"IILROW1\") TERM OF COLUMN \"KBC\"\r\nC     ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN \"KBC\"\r\nC\r\n      DO 4005 KBC = JLIM1, JLIM2           \r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4005  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4007\r\n      DO 4006 KBC = 1, JLIM4\r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4006  CONTINUE\r\n4007  CONTINUE\r\nC      CALL KBHELPCD( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW )  \r\n      DO 4008 I = IILROW1, ILIM1\r\n      DTEMP(I) = (0.0D0,0.0D0)\r\n4008  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4022 J = JLIM1, JLIM2\r\n      LIMIT = ILIM1\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4022\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )      \r\n      CALL SMCCCD ( DTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &             ,ZOLTMP )\r\nC      DO 4020 I = IILROW1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4020  CONTINUE\r\n4022  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4030\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4024 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4024\r\n      LIMIT = ILIM1\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )      \r\n      CALL SMCCCD ( DTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &             ,ZOLTMP )\r\nC      DO 4023 I = IILROW1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4023  CONTINUE\r\n4024  CONTINUE\r\n4030  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4060\r\n      DO 4032 I = 1, ILIM2\r\n      DTEMP(I) = (0.0D0,0.0D0)\r\n4032  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4042 J = JLIM1, JLIM2\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )      \r\n      CALL SMCCCD ( DTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP )  \r\nC      DO 4040 I = 1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP              \r\nC4040  CONTINUE\r\n4042  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4046\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4044 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )      \r\n      CALL SMCCCD ( DTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP )  \r\nC      DO 4043 I = 1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4043  CONTINUE\r\n4044  CONTINUE\r\n4046  CONTINUE\r\n4060  CONTINUE\r\nC      \r\nC UPDATE EACH ACTIVE ROW TERM FOR COLUMN \"K\" BY SUBTRACTING \"DTEMP\"\r\nC\r\n      DO 4047 I = IILROW1, ILIM1\r\n      ZD( KVIDX   ) = ZD( KVIDX   ) - DREAL( DTEMP(I) )\r\n      ZD( KVIDX+1 ) = ZD( KVIDX+1 ) - DIMAG( DTEMP(I) )\r\n      KVIDX = KVIDX + 2\r\n4047  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4070\r\n      DO 4048 I = 1, ILIM2\r\n      ZD( KVIDX   ) = ZD( KVIDX   ) - DREAL( DTEMP(I) )\r\n      ZD( KVIDX+1 ) = ZD( KVIDX+1 ) - DIMAG( DTEMP(I) )\r\n      KVIDX = KVIDX + 2\r\n4048  CONTINUE\r\n4070  CONTINUE\r\nC\r\nC CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR      \r\nC MATRIX FILE\r\nC      \r\n6000  CONTINUE\r\n      CALL SMCOUT ( ZI, ZI, ZD, ZOL( 1,IC1 ), ZOL( 1,IC1 ) )\r\n7000  CONTINUE      \r\n      RETURN\r\n      END\r\n\u001a"
  },
  {
    "path": "mis/smc2cs.f",
    "content": "      SUBROUTINE SMC2CS ( ZI, ZCS, ZIL, ZOL, NAR, LASROW, RTEMP\r\n     &                  , I1, I2, I3  )\r\nC\r\nC ZIL    = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA)\r\nC ZOL    = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2)\r\nC NAR    = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN\r\nC I1     = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN\r\nC I2     = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND \r\nC          NUMBER OF ROWS ALLOCATED FOR OUTER LOOP\r\nC I3     = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR \r\nC          ANY COLUMN\r\nC LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL\r\nC          +NEXTRA)\r\nC\r\n      COMPLEX           ZCS(10)      , RTEMP(I3)              \r\n      COMPLEX           ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP\r\n      INTEGER           ZI(10), NAR( I3 )\r\n      INTEGER           LASROW(I2)\r\n      INCLUDE           'SMCOMX.COM'                    \r\nC      \r\nC GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR\r\nC EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND\r\nC OUTER LOOP AREAS.\r\nC\r\nC\r\nC BEGIN TO PROCESS EACH COLUMN\r\nC FOR COLUMN K, GET OUTER LOOP TERMS\r\nC    A(K,J) / A(J,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1)/A(1,1)\r\nC         A(5,2)/A(2,2)\r\nC         A(5,3)/A(3,3)\r\nC         A(5,4)/A(4,4)\r\nC ALSO, GET INNER LOOP TERMS\r\nC    A(I,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1) A(6,1)  .  A(N,1)\r\nC         A(5,2) A(6,2)  .  A(N,2)\r\nC         A(5,3) A(6,3)  .  A(N,3)\r\nC         A(5,4) A(6,4)  .  A(N,4)\r\nC         \r\nC  LOOP 7000 WILL BE ON K\r\nC  LOOP 6000 WILL BE ON J\r\nC    \r\n      IC1     = 1\r\n      IC2     = 2\r\n      IILROW1 = 1\r\nc      print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac\r\n      DO 7000 K = 1, NCOL\r\n      KK      = MOD( K, I2 )\r\n      IF ( KK .EQ. 0 ) KK = I2\r\n      LASROW( KK ) = 0\r\nc      PRINT *,' SMC2RD PROCESSING COLUMN K=',K\r\n      KCOL    = K\r\n      KDIR    = K*4 - 3\r\n      KMIDX   = ZI( KDIR   )\r\nC\r\nC SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE     \r\nC      \r\n      IF ( KMIDX .NE. 0 ) GO TO 500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( KCOL, ZI )\r\n      KMIDX  = ZI( KDIR )\r\n500   CONTINUE\r\n      KFRCOLP= KFRCOL\r\n      KLSCOLP= KLSCOL\r\n      KFRCOL = ZI( KDIR+1 )  \r\n      KM2    = ZI( KMIDX+1)\r\n      KRIDXN = KMIDX + 4 + KM2\r\n      KLSCOL = K - 1\r\n      KRIDX  = KMIDX+4\r\n      KRIDXS = KRIDX\r\n      KROW1  = ZI( KRIDX   )\r\n      KROWN  = KROW1 + ZI( KRIDX+1 ) - 1\r\n      KAROWS = 0\r\n      DO 510 KK = 1, KM2, 2\r\n      KAROWS = KAROWS + ZI( KRIDX+KK )\r\n510   CONTINUE\r\nC\r\nC IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT,\r\nC THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS\r\nC\r\n      IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350\r\nC     \r\nC NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN\r\nC THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS.\r\nC FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST \r\nC BEGIN AS IF NOTHING STORED.  IF SOME OF THE REQUIRED ROWS ARE PRESENT,\r\nC THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER\r\nC LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE\r\nC OUTER LOOP ARRAY.\r\nC\r\nC IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN\r\nC THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING\r\nC\r\n      IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350\r\n      KR      = 1\r\n      LROW1   = NAR( 1 ) \r\n      LROWN   = NAR( 1 ) + NAR( 2 ) - 1\r\nC\r\nC  LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT \r\nC          COLUMN PROCESSED\r\nC  LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN \r\nC          PROCESSED\r\nC      \r\nC FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED\r\nC FOR THIS COLUMN\r\nC\r\nC IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350\r\nC\r\n1105  CONTINUE\r\n      IF ( LROW1 .GT. KROW1 ) GO TO 1350\r\n      IF ( KROW1 .LT. LROWN ) GO TO 1100\r\nC\r\nC NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING\r\nC ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER\r\nC LOOP THAT CONTAINS THE VALUE OF ROW \"KROW1\" OF EACH COLUMN.\r\nC\r\n      INCR    = LROWN - LROW1 + 1\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1\r\n      KR      = KR + 2    \r\n      LROW1   = NAR( KR )\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1350     \r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      GO TO 1105\r\n1100  CONTINUE\r\nC      \r\nC THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT\r\nC THE PROPER ROW NUMBER IN THE INNER LOOP\r\nC\r\n      INCR    = KROW1 - LROW1\r\n      KROWB   = KROW1 \r\n      KROWSB  = KROWN - KROWB + 1 \r\n      KRIDXS  = KRIDX\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1    ) IILROW1 = IILROW1 - I1\r\n      LROW1   = KROW1\r\n      IILROW  = IILROW1\r\n1120  IF ( LROW1 .NE. KROW1 ) GO TO 1180\r\n      IF ( LROWN .EQ. KROWN ) GO TO 1130\r\n      IF ( LROWN .LT. KROWN ) GO TO 1140\r\n      IF ( LROWN .GT. KROWN ) GO TO 1150\r\nC\r\nC THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS\r\nC\r\n1130  CONTINUE\r\n      INCR    = KROWN - KROWB + 1\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      KRIDX   = KRIDX + 2\r\n      IF ( KRIDX .EQ. KRIDXN ) GO TO 1170\r\n      KR      = KR + 2\r\n      KROW1   = ZI( KRIDX )\r\n      KROWB   = KROW1   \r\n      KROWSB  = ZI( KRIDX+1 )  \r\n      KROWN   = KROW1 + KROWSB -1\r\n      KRIDXS  = KRIDX\r\n      LROW1   = NAR( KR )\r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1180 \r\n      GO TO 1120\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN\r\nC\r\n1140  CONTINUE\r\n      INCR    = LROWN  - KROWB + 1\r\n1145  KROWB   = KROWB  + INCR\r\n      KROWSB  = KROWSB - INCR\r\n      KRIDXS  = KRIDX\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      GO TO 1180\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN\r\nC\r\n1150  CONTINUE\r\n      INCR    = LROWN - LROW1 + 1\r\n      GO TO 1145\r\nC\r\nC ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX\r\nC FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS.\r\n1170  CONTINUE\r\n      KFRCOLG = KLSCOLP+1\r\n      IILROW  = IILROW1\r\n      GO TO 1400\r\nC\r\nC NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS\r\nC FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN\r\nC\r\n1180  CONTINUE\r\n      KFRCOLG = KFRCOL\r\n      GO TO 1400\r\nC\r\nC NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS\r\nC FROM THE BEGINNING\r\nC\r\n1350  IILROW1 = 1\r\n      IILROW  = 1\r\n      KROWB   = KROW1\r\n      KROWSB  = KROWN - KROW1 + 1\r\n      KFRCOLG = KFRCOL\r\n1400  CONTINUE\r\n      KRIDX   = KMIDX+4\r\n      DO 1450 J = 1, KM2\r\n      NAR( J ) = ZI( KRIDX+J-1 )\r\n1450  CONTINUE\r\n      NAR( KM2+1 ) = 0\r\n      IILROWB = IILROW\r\nC\r\nC KFRCOL  = FIRST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KLSCOL  = LAST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS\r\nC KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC\r\nc      PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS='\r\nc      PRINT *,  KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS\r\nc      PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx='\r\nc      PRINT *,  KROWB,KROWSB,IILROW1,IILROW,kridx\r\nC\r\nC KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY\r\nC COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA\r\nC\r\n      IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000\r\n      DO 3000 J = KFRCOLG, KLSCOL\r\n      IILCOL = MOD ( J, I2 )  \r\n      IF ( IILCOL .EQ. 0 ) IILCOL = I2\r\n      JCOL   = J\r\n      JDIR   = J*4 - 3\r\n      JMIDX  = ZI( JDIR   )\r\nC\r\nC SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE\r\nC      \r\n      IF (  JMIDX .NE. 0 ) GO TO 1500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( JCOL, ZI )\r\n      IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL\r\n      IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR )\r\n1500  CONTINUE\r\n      JRIDX  = JMIDX + 4\r\n      JM2    = ZI( JMIDX + 1 )\r\n      JRIDXN = JRIDX + JM2\r\n      JROWL  = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1\r\n      JVIDX  = JRIDXN\r\nC\r\nC SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM)\r\nC      \r\n      JVIDX  = JVIDX  / 2 + 1\r\n      ZOL( IILCOL, IC2 )  = (1.0,0.0) / ZCS( JVIDX )\r\nC\r\nC FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K\r\nC      \r\n      IF ( J .GT. KLSCOLP ) GO TO 1530\r\nC\r\nC SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP\r\nC\r\n      KRIDX  = KRIDXS   \r\n      KROW   = KROWB\r\n      KROWS  = KROWSB\r\n      IILROW = IILROWB           \r\nC\r\nC SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT\r\nC BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING.\r\nC\r\n      IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0\r\n      GO TO 1540\r\n1530  CONTINUE\r\nC\r\nC  MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP\r\nC\r\n      KRIDX  = KMIDX+4\r\n      KROW   = ZI( KRIDX   )\r\n      KROWS  = ZI( KRIDX+1 )\r\n      IILROW = IILROW1\r\n1540  CONTINUE\r\n      KROWN  = KROW + KROWS - 1\r\nC\r\nC JROWL IS LAST ROW TERM IN COLUMN \"J\".  IF THIS IS BEFORE THE FIRST ROW \r\nC \"KROW\" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN \"J\" AND\r\nC \"LASROW\" WILL INDICATE THE LAST VALUE STORED FOR COLUMN \"J\".\r\nC\r\n      IF ( JROWL .LT. KROW ) GO TO 3000\r\n2000  JROW   = ZI( JRIDX )\r\n      JROWS  = ZI( JRIDX+1 )\r\n      JROWN  = JROW + JROWS - 1\r\n2010  CONTINUE      \r\n      IF ( JROWN .LT. KROW  ) GO TO 2895\r\n      IF ( JROW  .GT. KROWN ) GO TO 2400\r\n      MISSIN = KROW - JROW\r\nC\r\nC CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING\r\nC THE DECOMPOSITION.  IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES\r\nC TO BE INITIALLY ZERO.\r\nC      \r\n      IF ( MISSIN .GE. 0 ) GO TO 2050\r\n      NZEROS = IABS( MISSIN )\r\nC\r\nC  STORE \"NZEROS\" NUMBER OF ZEROS FOR INNER LOOP TERMS\r\nC\r\n      IAVAIL = I1 - ( IILROW+NZEROS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2022\r\n      DO 2020 I = 1, NZEROS\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0)\r\n2020  CONTINUE\r\n      IILROW = IILROW + NZEROS\r\n      GO TO 2028\r\n2022  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NZEROS - ILIM1\r\n      DO 2024 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0)\r\n2024  CONTINUE\r\n      DO 2026 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = (0.0,0.0)\r\n2026  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2028  CONTINUE\r\n      KROW  = KROW  + NZEROS \r\n      KROWS = KROWS - NZEROS \r\n2050  CONTINUE\r\n      IF ( MISSIN .LE. 0 ) GO TO 2070\r\n      ISKIP  = KROW  - JROW\r\n      JVIDX  = JVIDX + ISKIP\r\n      JROW   = JROW  + ISKIP\r\n2070  CONTINUE\r\n      IROWN  = MIN0 ( KROWN, JROWN )\r\n      NUM    = IROWN - KROW + 1                                    \r\nC\r\nC  MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO \r\nC  THE INNER LOOP AREA\r\nC      \r\n      NROWS = IROWN - KROW + 1\r\n      IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120\r\n      DO 2100 I = 1, NROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = ZCS(JVIDX+I-1 )\r\n2100  CONTINUE\r\n      IILROW = IILROW + NROWS\r\n      GO TO 2180\r\n2120  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NROWS - ILIM1\r\n      DO 2122 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = ZCS( JVIDX+I-1 )\r\n2122  CONTINUE\r\n      JVTMP = JVIDX + ILIM1\r\n      DO 2124 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = ZCS( JVTMP+I-1 )\r\n2124  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2180  CONTINUE\r\n      LASROW( IILCOL ) = IILROW \r\nC\r\nC IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1\r\nC\r\n      IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1\r\n      JVIDX  = JVIDX + NROWS\r\n      JROW   = JROW  + NROWS\r\n      KROW   = IROWN + 1\r\n      KROWS  = KROWN - IROWN \r\nC\r\nC INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN\r\nC OR IROWN = KROWN\r\nC      \r\n      IF ( IROWN .EQ. JROWN ) GO TO 2900\r\n      GO TO 2530\r\n2400  CONTINUE\r\nC\r\nC STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF\r\nC OF ROWS FOR THIS PIVOTAL COLUMN. \r\nC\r\n      IAVAIL = I1 - ( IILROW+KROWS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2522\r\n      DO 2510 I = 1, KROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = (0.0,0.0)\r\n2510  CONTINUE\r\n      IILROW = IILROW + KROWS\r\n      GO TO 2528\r\n2522  CONTINUE\r\n      ILIM2  = KROWS - ( I1 - IILROW + 1 )\r\n      DO 2524 I = IILROW1, I1\r\n      ZIL( I, IILCOL ) = (0.0,0.0)\r\n2524  CONTINUE\r\n      DO 2526 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = (0.0,0.0)\r\n2526  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2528  CONTINUE\r\nC      \r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"K\"\r\nC\r\n2530  KRIDX  = KRIDX + 2\r\nC\r\nC IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE\r\nC\r\n      IF ( KRIDX .GE. KRIDXN ) GO TO 3000\r\n      KROW   = ZI( KRIDX )\r\n      KROWS  = ZI( KRIDX+1)\r\n      KROWN  = KROW + KROWS - 1\r\n      GO TO 2010\r\n2895  CONTINUE\r\nC\r\nC INCREMENT \"JVIDX\" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE \r\nC NEXT ROW OF COLUMN \"J\"\r\nC\r\n      JVIDX  = JVIDX + ( JROWN - JROW + 1 )\r\nC\r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"J\"\r\nC\r\n2900  JRIDX  = JRIDX + 2\r\n      IF ( JRIDX .GE. JRIDXN ) GO TO 3000\r\n      GO TO 2000\r\n3000  CONTINUE\r\n      IF ( K .EQ. 1 ) GO TO 6000\r\nC\r\nC COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA\r\nC \r\nC      do 100 k = 1,n\r\nC         do 10  i = k,n\r\nC         temp = 0.\r\nC         do 5  l = 1,k-1\r\nC            temp = temp + a(i,l)*a(k,l) / a(l,l)\r\nC    5       continue\r\nC         a(i,k) = a(i,k) - temp\r\nC   10    continue\r\nC\r\nC  THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT.\r\nC  THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT\r\nC  THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS\r\nC  MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS.\r\nC\r\nC         do 11 j = k+1,n\r\nC           a(k,j) = a(j,k) / a( k,k )\r\nC   11      continue\r\nC  100 continue\r\nC\r\nC   NROWS  = NUMBER OF ROWS STORED IN INNER LOOP\r\nC   KCOL   = LAST COLUMN NUMBER STORED IN INNER LOOP\r\nC   KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP\r\nC\r\n      NROWS = KAROWS\r\n      KDIR  = ( KCOL-1 ) * 4 + 1\r\n      KMIDX = ZI( KDIR )\r\n      KRIDX = KMIDX + 4\r\n      KM2   = ZI( KMIDX+1 )\r\n      KVIDX = KRIDX + KM2\r\n      KVIDX = ( KVIDX / 2 ) + 1\r\n      ILIM1   = IILROW1 + NROWS - 1\r\n      ILIM2   = 0\r\n      IAVAIL  = I1 - ILIM1\r\n      IF ( IAVAIL .GE. 0 ) GO TO 4010\r\n      ILIM1   = I1\r\n      ILIM2   = NROWS - ( I1 - IILROW1 + 1 )\r\n4010  CONTINUE\r\n      JLIM1   = MOD( KFRCOL, I2 )\r\n      JLIM2   = MOD( KLSCOL, I2 )\r\n      IF ( JLIM1 .EQ. 0 ) JLIM1 = I2\r\n      IF ( JLIM2 .EQ. 0 ) JLIM2 = I2\r\n      JLIM4   = 0\r\n      IF ( KFRCOL .EQ. K ) GO TO 6000\r\n      IF ( JLIM2 .GE. JLIM1 ) GO TO 4015\r\n      JLIM4   = JLIM2\r\n      JLIM2   = I2\r\n4015  CONTINUE\r\nC      PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1\r\nC      PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS'\r\nC      PRINT *,  ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS\r\n      IF ( K .EQ. 1 ) GO TO 4007\r\nC\r\nC COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J\r\nC I.E.,   -A(K,J) / A(J,J) \r\nC  where K = current pivot column number; J = column being processed\r\nC      \r\nC     KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN\r\nC     JCOL   = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN\r\nC     ZOL(KBC,IC1) = FIRST ACTIVE ROW (\"IILROW1\") TERM OF COLUMN \"KBC\"\r\nC     ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN \"KBC\"\r\nC\r\n      DO 4005 KBC = JLIM1, JLIM2           \r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4005  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4007\r\n      DO 4006 KBC = 1, JLIM4\r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4006  CONTINUE\r\n4007  CONTINUE\r\nC      CALL KBHELPCS( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW )  \r\n      DO 4008 I = IILROW1, ILIM1\r\n      RTEMP(I) = (0.0,0.0)\r\n4008  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4022 J = JLIM1, JLIM2\r\n      LIMIT = ILIM1\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4022\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )   \r\n      CALL SMCCCS ( RTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &             ,ZOLTMP )\r\nC      DO 4020 I = IILROW1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4020  CONTINUE\r\n4022  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4030\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4024 J = 1, JLIM4\r\n      ITEST = LASROW(J)\r\n      IF ( ITEST .EQ. 0 ) GO TO 4024\r\n      LIMIT = ILIM1\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )   \r\n      CALL SMCCCS ( RTEMP( IILROW1 ), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &             ,ZOLTMP )\r\nC      DO 4023 I = IILROW1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4023  CONTINUE\r\n4024  CONTINUE\r\n4030  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4060\r\n      DO 4032 I = 1, ILIM2\r\n      RTEMP(I) = (0.0,0.0)\r\n4032  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4042 J = JLIM1, JLIM2\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )   \r\n      CALL SMCCCS ( RTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) \r\nC      DO 4040 I = 1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP             \r\nC4040  CONTINUE\r\n4042  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4046\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4044 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )   \r\n      CALL SMCCCS ( RTEMP( 1 ), ZIL( 1,J ), LIMIT, ZOLTMP ) \r\nC      DO 4043 I = 1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4043  CONTINUE\r\n4044  CONTINUE\r\n4046  CONTINUE\r\n4060  CONTINUE\r\nC      \r\nC UPDATE EACH ACTIVE ROW TERM FOR COLUMN \"K\" BY SUBTRACTING \"RTEMP\"\r\nC\r\n      DO 4047 I = IILROW1, ILIM1\r\n      ZCS( KVIDX ) = ZCS( KVIDX ) - RTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4047  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4070\r\n      DO 4048 I = 1, ILIM2\r\n      ZCS( KVIDX ) = ZCS( KVIDX ) - RTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4048  CONTINUE\r\n4070  CONTINUE\r\nC\r\nC CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR      \r\nC MATRIX FILE\r\nC      \r\n6000  CONTINUE\r\n      CALL SMCOUT ( ZI, ZI, ZCS, ZOL( 1,IC1 ), ZOL( 1,IC1 ) )\r\n7000  CONTINUE      \r\n      RETURN\r\n      END\r\n\u001a"
  },
  {
    "path": "mis/smc2rd.f",
    "content": "      SUBROUTINE SMC2RD ( ZI, ZD, ZIL, ZOL, NAR, LASROW, DTEMP\r\n     &                  , I1, I2, I3  )\r\nC\r\nC ZIL    = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA)\r\nC ZOL    = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2)\r\nC NAR    = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN\r\nC I1     = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN\r\nC I2     = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND \r\nC          NUMBER OF ROWS ALLOCATED FOR OUTER LOOP\r\nC I3     = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR \r\nC          ANY COLUMN\r\nC LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL\r\nC          +NEXTRA)\r\nC\r\n      DOUBLE PRECISION  ZD(10)       ,DTEMP(I3)              \r\n      DOUBLE PRECISION  ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP\r\n      INTEGER           ZI(10), NAR( I3 )\r\n      INTEGER           LASROW(I2)\r\n      INCLUDE           'SMCOMX.COM'                    \r\nC      \r\nC GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR\r\nC EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND\r\nC OUTER LOOP AREAS.\r\nC\r\nC\r\nC BEGIN TO PROCESS EACH COLUMN\r\nC FOR COLUMN K, GET OUTER LOOP TERMS\r\nC    A(K,J) / A(J,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1)/A(1,1)\r\nC         A(5,2)/A(2,2)\r\nC         A(5,3)/A(3,3)\r\nC         A(5,4)/A(4,4)\r\nC ALSO, GET INNER LOOP TERMS\r\nC    A(I,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1) A(6,1)  .  A(N,1)\r\nC         A(5,2) A(6,2)  .  A(N,2)\r\nC         A(5,3) A(6,3)  .  A(N,3)\r\nC         A(5,4) A(6,4)  .  A(N,4)\r\nC         \r\nC  LOOP 7000 WILL BE ON K\r\nC  LOOP 6000 WILL BE ON J\r\nC    \r\nC      CALL AUDIT ( 'BEGIN   ', 1 )\r\n      IC1     = 1\r\n      IC2     = 2\r\n      IILROW1 = 1\r\nC      print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac\r\nC      CALL AUDIT ( 'DO7000  ', 1 )\r\n      DO 7000 K = 1, NCOL\r\n      KK      = MOD( K, I2 )\r\n      IF ( KK .EQ. 0 ) KK = I2\r\n      LASROW( KK ) = 0\r\nC      PRINT *,' SMC2RD PROCESSING COLUMN K=',K\r\n      KCOL    = K\r\n      KDIR    = K*4 - 3\r\n      KMIDX   = ZI( KDIR   )\r\nC\r\nC SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE     \r\nC      \r\n      IF ( KMIDX .NE. 0 ) GO TO 500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\nC      PRINT *,' CALLING SMCSPL FOR K=',K\r\n      CALL SMCSPL ( KCOL, ZI )\r\n      KMIDX  = ZI( KDIR )\r\n500   CONTINUE\r\n      KFRCOLP= KFRCOL\r\n      KLSCOLP= KLSCOL\r\n      KFRCOL = ZI( KDIR+1 )  \r\n      KM2    = ZI( KMIDX+1)\r\n      KRIDXN = KMIDX + 4 + KM2\r\n      KLSCOL = K - 1\r\n      KRIDX  = KMIDX+4\r\n      KRIDXS = KRIDX\r\n      KROW1  = ZI( KRIDX   )\r\n      KROWN  = KROW1 + ZI( KRIDX+1 ) - 1\r\n      KAROWS = 0\r\n      DO 510 KK = 1, KM2, 2\r\n      KAROWS = KAROWS + ZI( KRIDX+KK )\r\n510   CONTINUE\r\nC      PRINT *,' SMC2RD,K,KFRCOL,KLSCOL,KROW1,KROWN,KAROWS='\r\nC      PRINT *,         K,KFRCOL,KLSCOL,KROW1,KROWN,KAROWS\r\nC\r\nC IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT,\r\nC THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS\r\nC\r\n      IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350\r\nC     \r\nC NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN\r\nC THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS.\r\nC FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST \r\nC BEGIN AS IF NOTHING STORED.  IF SOME OF THE REQUIRED ROWS ARE PRESENT,\r\nC THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER\r\nC LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE\r\nC OUTER LOOP ARRAY.\r\nC\r\nC IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN\r\nC THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING\r\nC\r\n      IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350\r\n      KR      = 1\r\n      LROW1   = NAR( 1 ) \r\n      LROWN   = NAR( 1 ) + NAR( 2 ) - 1\r\nC\r\nC  LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT \r\nC          COLUMN PROCESSED\r\nC  LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN \r\nC          PROCESSED\r\nC      \r\nC FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED\r\nC FOR THIS COLUMN\r\nC\r\nC IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350\r\nC\r\n1105  CONTINUE\r\n      IF ( LROW1 .GT. KROW1 ) GO TO 1350\r\n      IF ( KROW1 .LT. LROWN ) GO TO 1100\r\nC\r\nC NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING\r\nC ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER\r\nC LOOP THAT CONTAINS THE VALUE OF ROW \"KROW1\" OF EACH COLUMN.\r\nC\r\n      INCR    = LROWN - LROW1 + 1\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1\r\n      KR      = KR + 2    \r\n      LROW1   = NAR( KR )\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1350     \r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      GO TO 1105\r\n1100  CONTINUE\r\nC      \r\nC THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT\r\nC THE PROPER ROW NUMBER IN THE INNER LOOP\r\nC\r\n      INCR    = KROW1 - LROW1\r\n      KROWB   = KROW1 \r\n      KROWSB  = KROWN - KROWB + 1 \r\n      KRIDXS  = KRIDX\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1    ) IILROW1 = IILROW1 - I1\r\n      LROW1   = KROW1\r\n      IILROW  = IILROW1\r\n1120  IF ( LROW1 .NE. KROW1 ) GO TO 1180\r\n      IF ( LROWN .EQ. KROWN ) GO TO 1130\r\n      IF ( LROWN .LT. KROWN ) GO TO 1140\r\n      IF ( LROWN .GT. KROWN ) GO TO 1150\r\nC\r\nC THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS\r\nC\r\n1130  CONTINUE\r\n      INCR    = KROWN - KROWB + 1\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      KRIDX   = KRIDX + 2\r\n      IF ( KRIDX .EQ. KRIDXN ) GO TO 1170\r\n      KR      = KR + 2\r\n      KROW1   = ZI( KRIDX )\r\n      KROWB   = KROW1   \r\n      KROWSB  = ZI( KRIDX+1 )  \r\n      KROWN   = KROW1 + KROWSB -1\r\n      KRIDXS  = KRIDX\r\n      LROW1   = NAR( KR )\r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1180 \r\n      GO TO 1120\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN\r\nC\r\n1140  CONTINUE\r\n      INCR    = LROWN  - KROWB + 1\r\n1145  KROWB   = KROWB  + INCR\r\n      KROWSB  = KROWSB - INCR\r\n      KRIDXS  = KRIDX\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      GO TO 1180\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN\r\nC\r\n1150  CONTINUE\r\n      INCR    = LROWN - LROW1 + 1\r\n      GO TO 1145\r\nC\r\nC ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX\r\nC FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS.\r\nC SET IILROW TO FIRST ROW POSITION FOR NEW COLUMN DATA.\r\nC\r\n1170  CONTINUE\r\n      KFRCOLG = KLSCOLP+1\r\n      IILROW  = IILROW1\r\n      GO TO 1400\r\nC\r\nC NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS\r\nC FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN\r\nC\r\n1180  CONTINUE\r\n      KFRCOLG = KFRCOL\r\n      GO TO 1400\r\nC\r\nC NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS\r\nC FROM THE BEGINNING\r\nC\r\n1350  IILROW1 = 1\r\n      IILROW  = 1\r\n      KROWB   = KROW1\r\n      KROWSB  = KROWN - KROW1 + 1\r\n      KFRCOLG = KFRCOL\r\n1400  CONTINUE\r\n      KRIDX   = KMIDX+4\r\n      DO 1450 J = 1, KM2\r\n      NAR( J ) = ZI( KRIDX+J-1 )\r\n1450  CONTINUE\r\n      NAR( KM2+1 ) = 0\r\n      IILROWB = IILROW\r\nC\r\nC KFRCOL  = FIRST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KLSCOL  = LAST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS\r\nC KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC\r\nC      PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS='\r\nC      PRINT *,  KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS\r\nC      PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx='\r\nC      PRINT *,  KROWB,KROWSB,IILROW1,IILROW,kridx\r\nC\r\nC KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY\r\nC COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA\r\nC\r\n      IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000\r\nC      CALL AUDIT ( 'DO3000  ', 1 )\r\n      DO 3000 J = KFRCOLG, KLSCOL\r\nC      PRINT *,' 3000,J,IILROW=',J,IILROW\r\n      IILCOL = MOD ( J, I2 )  \r\n      IF ( IILCOL .EQ. 0 ) IILCOL = I2\r\n      JCOL   = J\r\n      JDIR   = J*4 - 3\r\n      JMIDX  = ZI( JDIR   )\r\nC\r\nC SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE\r\nC      \r\n      IF (  JMIDX .NE. 0 ) GO TO 1500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( JCOL, ZI )\r\n      IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL\r\n      IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR )\r\n1500  CONTINUE\r\n      JRIDX  = JMIDX + 4\r\n      JM2    = ZI( JMIDX + 1 )\r\n      JRIDXN = JRIDX + JM2\r\n      JROWL  = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1\r\n      JVIDX  = JRIDXN\r\nC\r\nC SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM)\r\nC      \r\n      JVIDX  = JVIDX  / 2 + 1\r\nC      PRINT *,' DIAGONAL TERM,JCOL=',JCOL,ZD(JVIDX)\r\n      ZOL( IILCOL, IC2 )  = 1.0D0 / ZD( JVIDX )\r\nC\r\nC FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K\r\nC      \r\n      IF ( J .GT. KLSCOLP ) GO TO 1530\r\nC\r\nC SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP\r\nC\r\n      KRIDX  = KRIDXS   \r\n      KROW   = KROWB\r\n      KROWS  = KROWSB\r\n      IILROW = IILROWB           \r\nC \r\nC SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT\r\nC BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING.\r\nC\r\n      IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0\r\n      GO TO 1540\r\n1530  CONTINUE\r\nC\r\nC  MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP\r\nC\r\n      KRIDX  = KMIDX+4\r\n      KROW   = ZI( KRIDX   )\r\n      KROWS  = ZI( KRIDX+1 )\r\n      IILROW = IILROW1\r\n1540  CONTINUE\r\n      KROWN  = KROW + KROWS - 1\r\nC\r\nC JROWL IS LAST ROW TERM IN COLUMN \"J\".  IF THIS IS BEFORE THE FIRST ROW \r\nC \"KROW\" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN \"J\" AND\r\nC \"LASROW\" WILL INDICATE THE LAST VALUE STORED FOR COLUMN \"J\".\r\nC\r\n      IF ( JROWL .LT. KROW ) GO TO 3000\r\n2000  JROW   = ZI( JRIDX )\r\n      JROWS  = ZI( JRIDX+1 )\r\n      JROWN  = JROW + JROWS - 1\r\n2010  CONTINUE      \r\n      IF ( JROWN .LT. KROW  ) GO TO 2895\r\n      IF ( JROW  .GT. KROWN ) GO TO 2400\r\n      MISSIN = KROW - JROW\r\nC\r\nC CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING\r\nC THE DECOMPOSITION.  IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES\r\nC TO BE INITIALLY ZERO.\r\nC      \r\n      IF ( MISSIN .GE. 0 ) GO TO 2050\r\n      NZEROS = IABS( MISSIN )\r\nC\r\nC  STORE \"NZEROS\" NUMBER OF ZEROS FOR INNER LOOP TERMS\r\nC\r\n      IAVAIL = I1 - ( IILROW+NZEROS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2022\r\n      DO 2020 I = 1, NZEROS\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0D0\r\n2020  CONTINUE\r\n      IILROW = IILROW + NZEROS\r\n      GO TO 2028\r\n2022  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NZEROS - ILIM1\r\n      DO 2024 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0D0\r\n2024  CONTINUE\r\n      DO 2026 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = 0.0D0\r\n2026  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2028  CONTINUE\r\n      KROW  = KROW  + NZEROS \r\n      KROWS = KROWS - NZEROS \r\n2050  CONTINUE\r\n      IF ( MISSIN .LE. 0 ) GO TO 2070\r\n      ISKIP  = KROW  - JROW\r\n      JVIDX  = JVIDX + ISKIP*NVTERM\r\n      JROW   = JROW  + ISKIP\r\n2070  CONTINUE\r\n      IROWN  = MIN0 ( KROWN, JROWN )\r\n      NUM    = IROWN - KROW + 1                                    \r\nC\r\nC  MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO \r\nC  THE INNER LOOP AREA\r\nC      \r\n      NROWS = IROWN - KROW + 1\r\n      IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120\r\n      DO 2100 I = 1, NROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = ZD(JVIDX+I-1 )\r\n2100  CONTINUE\r\n      IILROW = IILROW + NROWS\r\n      GO TO 2180\r\n2120  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NROWS - ILIM1\r\n      DO 2122 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = ZD( JVIDX+I-1 )\r\n2122  CONTINUE\r\n      JVTMP = JVIDX + ILIM1\r\n      DO 2124 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = ZD( JVTMP+I-1 )\r\n2124  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2180  CONTINUE\r\n      LASROW( IILCOL ) = IILROW \r\nC\r\nC IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1\r\nC\r\n      IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1\r\n      JVIDX  = JVIDX + NROWS\r\n      JROW   = JROW  + NROWS\r\n      KROW   = IROWN + 1\r\n      KROWS  = KROWN - IROWN \r\nC\r\nC INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN\r\nC OR IROWN = KROWN\r\nC      \r\n      IF ( IROWN .EQ. JROWN ) GO TO 2900\r\n      GO TO 2530\r\n2400  CONTINUE\r\nC\r\nC STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF\r\nC OF ROWS FOR THIS PIVOTAL COLUMN. \r\nC\r\n      IAVAIL = I1 - ( IILROW+KROWS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2522\r\n      DO 2510 I = 1, KROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0D0\r\n2510  CONTINUE\r\n      IILROW = IILROW + KROWS\r\n      GO TO 2528\r\n2522  CONTINUE\r\n      ILIM2  = KROWS - ( I1 - IILROW + 1 )\r\n      DO 2524 I = IILROW, I1\r\n      ZIL( I, IILCOL ) = 0.0D0\r\n2524  CONTINUE\r\n      DO 2526 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = 0.0D0\r\n2526  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2528  CONTINUE\r\nC      \r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"K\"\r\nC\r\n2530  KRIDX  = KRIDX + 2\r\nC\r\nC IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE\r\nC\r\n      IF ( KRIDX .GE. KRIDXN ) GO TO 3000\r\n      KROW   = ZI( KRIDX )\r\n      KROWS  = ZI( KRIDX+1)\r\n      KROWN  = KROW + KROWS - 1\r\n      GO TO 2010\r\n2895  CONTINUE\r\nC\r\nC INCREMENT \"JVIDX\" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE \r\nC NEXT ROW OF COLUMN \"J\"\r\nC\r\n      JVIDX  = JVIDX + ( JROWN - JROW + 1 )*NVTERM\r\nC\r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"J\"\r\nC\r\n2900  JRIDX  = JRIDX + 2\r\n      IF ( JRIDX .GE. JRIDXN ) GO TO 3000\r\n      GO TO 2000\r\n3000  CONTINUE\r\nC      CALL AUDIT ( 'DO3000  ', 2 )\r\n      IF ( K .EQ. 1 ) GO TO 6000\r\nC\r\nC COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA\r\nC \r\nC      do 100 k = 1,n\r\nC         do 10  i = k,n\r\nC         temp = 0.\r\nC         do 5  l = 1,k-1\r\nC            temp = temp + a(i,l)*a(k,l) / a(l,l)\r\nC    5       continue\r\nC         a(i,k) = a(i,k) - temp\r\nC   10    continue\r\nC\r\nC  THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT.\r\nC  THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT\r\nC  THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS\r\nC  MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS.\r\nC\r\nC         do 11 j = k+1,n\r\nC           a(k,j) = a(j,k) / a( k,k )\r\nC   11      continue\r\nC  100 continue\r\nC\r\nC   NROWS  = NUMBER OF ROWS STORED IN INNER LOOP\r\nC   KCOL   = LAST COLUMN NUMBER STORED IN INNER LOOP\r\nC   KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP\r\nC\r\n      NROWS = KAROWS\r\n      KDIR  = ( KCOL-1 ) * 4 + 1\r\n      KMIDX = ZI( KDIR )\r\n      KRIDX = KMIDX + 4\r\n      KM2   = ZI( KMIDX+1 )\r\n      KVIDX = KRIDX + KM2\r\n      KVIDX = ( KVIDX / 2 ) + 1\r\n      ILIM1   = IILROW1 + NROWS - 1\r\n      ILIM2   = 0\r\n      IAVAIL  = I1 - ILIM1\r\n      IF ( IAVAIL .GE. 0 ) GO TO 4010\r\n      ILIM1   = I1\r\n      ILIM2   = NROWS - ( I1 - IILROW1 + 1 )\r\n4010  CONTINUE\r\n      JLIM1   = MOD( KFRCOL, I2 )\r\n      JLIM2   = MOD( KLSCOL, I2 )\r\n      IF ( JLIM1 .EQ. 0 ) JLIM1 = I2\r\n      IF ( JLIM2 .EQ. 0 ) JLIM2 = I2\r\n      JLIM4   = 0\r\n      IF ( KFRCOL .EQ. K ) GO TO 6000\r\n      IF ( JLIM2 .GE. JLIM1 ) GO TO 4015\r\n      JLIM4   = JLIM2\r\n      JLIM2   = I2\r\n4015  CONTINUE\r\nC      PRINT *,' K,ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS'\r\nC      PRINT *,  K,ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS\r\n      IF ( K .EQ. 1 ) GO TO 4007\r\nC\r\nC COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J\r\nC I.E.,   -A(K,J) / A(J,J) \r\nC  where K = current pivot column number; J = column being processed\r\nC      \r\nC     KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN\r\nC     JCOL   = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN\r\nC     ZOL(KBC,IC1) = FIRST ACTIVE ROW (\"IILROW1\") TERM OF COLUMN \"KBC\"\r\nC     ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN \"KBC\"\r\nC\r\nC      CALL AUDIT ( 'COMP-ZOL', 1 )\r\n      DO 4005 KBC = JLIM1, JLIM2           \r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\nC      IF ( K.EQ.16) PRINT *,' KBC,IC1,ZOL-1=',KBC,IC1,ZOL(KBC,IC1)  \r\nC      IF ( K.EQ.16) PRINT *,' ZIL,ZOL=',ZIL(IILROW1,KBC),ZOL(KBC,IC2)\r\nC      IF ( K.EQ.16) PRINT *,' KBC,IC1,IILROW1,IC2=',KBC,IC1,IILROW1,IC2\r\n4005  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4007\r\n      DO 4006 KBC = 1, JLIM4\r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\nC      IF ( K.EQ.16 ) PRINT *,' KBC,IC1,ZOL-2=',KBC,IC1,ZOL(KBC,IC1)  \r\nC      IF ( K.EQ.16) PRINT *,' ZIL,ZOL=',ZIL(IILROW1,KBC),ZOL(KBC,IC2)\r\nC      IF ( K.EQ.16) PRINT *,' KBC,IC1,IILROW1,IC2=',KBC,IC1,IILROW1,IC2\r\n4006  CONTINUE\r\n4007  CONTINUE\r\nC      CALL AUDIT ( 'COMP-ZOL', 2 )\r\nC      IF ( K .EQ.16 ) \r\nC     & CALL KBHELPRD( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW )     \r\nC      CALL AUDIT ( 'COMP-ZIL', 1 )\r\n      DO 4008 I = IILROW1, ILIM1\r\n      DTEMP(I) = 0.0D0\r\n4008  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4022 J = JLIM1, JLIM2\r\n      LIMIT = ILIM1\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4022\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )\r\n      CALL SMCCRD ( DTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &           , ZOLTMP ) \r\nC      DO 4020 I = IILROW1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP \r\nC      IF ( K .EQ. 16 ) PRINT *,' 1-I,J,DTEMP,ZIL,ZOLTMP='\r\nC      IF ( K .EQ. 16 ) PRINT *,    I,J,DTEMP(I),ZIL(I,J),ZOLTMP\r\nC4020  CONTINUE\r\n4022  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4030\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4024 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4024\r\n      LIMIT = ILIM1\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )\r\n      CALL SMCCRD ( DTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &           , ZOLTMP ) \r\nC      DO 4023 I = IILROW1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC      IF ( K .EQ.16 ) PRINT *,' 2-I,J,DTEMP,ZIL,ZOLTMP='\r\nC      IF ( K .EQ.16 ) PRINT *,    I,J,DTEMP(I),ZIL(I,J),ZOLTMP\r\nC4023  CONTINUE\r\n4024  CONTINUE\r\n4030  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4060\r\n      DO 4032 I = 1, ILIM2\r\n      DTEMP(I) = 0.0D0\r\n4032  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4042 J = JLIM1, JLIM2\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J, IC1 )\r\n      CALL SMCCRD ( DTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP )  \r\nC      DO 4040 I = 1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP              \r\nC      IF ( K .EQ.16 ) PRINT *,' 3-I,J,DTEMP,ZIL,ZOLTMP='\r\nC      IF ( K .EQ.16 ) PRINT *,    I,J,DTEMP(I),ZIL(I,J),ZOLTMP\r\nC4040  CONTINUE\r\n4042  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4046\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4044 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J, IC1 )\r\n      CALL SMCCRD ( DTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP )  \r\nC      DO 4043 I = 1, LIMIT\r\nC      DTEMP(I) = DTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC      IF ( K .EQ.16 ) PRINT *,' 4-I,J,DTEMP,ZIL,ZOLTMP='\r\nC      IF ( K .EQ.16 ) PRINT *,    I,J,DTEMP(I),ZIL(I,J),ZOLTMP\r\nC4043  CONTINUE\r\n4044  CONTINUE\r\n4046  CONTINUE\r\n4060  CONTINUE\r\nC      CALL AUDIT ( 'COMP-ZIL', 2 )\r\nC      \r\nC UPDATE EACH ACTIVE ROW TERM FOR COLUMN \"K\" BY SUBTRACTING \"DTEMP\"\r\nC\r\nC      CALL AUDIT ( 'UPDATECO', 1 )\r\n      DO 4047 I = IILROW1, ILIM1\r\n      ZD( KVIDX ) = ZD( KVIDX ) - DTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4047  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4070\r\n      DO 4048 I = 1, ILIM2\r\n      ZD( KVIDX ) = ZD( KVIDX ) - DTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4048  CONTINUE\r\n4070  CONTINUE\r\nC      CALL AUDIT ( 'UPDATECO', 2 )\r\nC\r\nC CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR      \r\nC MATRIX FILE\r\nC      \r\n6000  CONTINUE\r\nC      CALL AUDIT ( 'SMCOUT  ',1 )\r\n      CALL SMCOUT ( ZI, ZI, ZD, ZOL( 1,IC1 ), ZOL( 1,IC1 ) )\r\nC      CALL AUDIT ( 'SMCOUT  ',2 )\r\n7000  CONTINUE      \r\nC      CALL AUDIT ( 'DO7000  ', 2 )\r\nC      CALL AUDIT ( 'END     ', 2 )\r\n      RETURN\r\n      END\r\n\u001a"
  },
  {
    "path": "mis/smc2rs.f",
    "content": "      SUBROUTINE SMC2RS ( ZI, ZS, ZIL, ZOL, NAR, LASROW, RTEMP\r\n     &                  , I1, I2, I3  )\r\nC\r\nC ZIL    = INNER LOOP TERMS (SIZE = MAXNAC * (MAXNCOL+NEXTRA)\r\nC ZOL    = OUTER LOOP TERMS (SIZE = (MAXNCOL+NEXTRA) * 2)\r\nC NAR    = SAVE AREA FOR ACTIVE ROWS OF PREVIOUS COLUMN\r\nC I1     = MAXIMUM NUMBER OF ACTIVE ROWS FOR THIS COLUMN\r\nC I2     = NUMBER OF COLUMNS ALLOCATED FOR STORAGE OF INNER AND \r\nC          NUMBER OF ROWS ALLOCATED FOR OUTER LOOP\r\nC I3     = MAXIMUM NUMBER OF WORDS FOR DEFINING THE ACTIVE ROWS FOR \r\nC          ANY COLUMN\r\nC LASROW = LAST NON-ZERO ROW INDEX FOR A GIVEN COLUMN (SIZE = MAXNCOL\r\nC          +NEXTRA)\r\nC\r\n      REAL              ZS(10)       , RTEMP(I3)              \r\n      REAL              ZIL( I1, I2 ), ZOL( I2, 2 ), ZOLTMP\r\n      INTEGER           ZI(10), NAR( I3 )\r\n      INTEGER           LASROW(I2)\r\n      INCLUDE           'SMCOMX.COM'                    \r\nC      \r\nC GET ROW VALUES CORRESPONDING TO THE ACTIVE ROWS OF COLUMN K FOR\r\nC EACH COLUMN KFRCOL THROUGH KLSCOL IN ORDER TO FILL INNER LOOP AND\r\nC OUTER LOOP AREAS.\r\nC\r\nC\r\nC BEGIN TO PROCESS EACH COLUMN\r\nC FOR COLUMN K, GET OUTER LOOP TERMS\r\nC    A(K,J) / A(J,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1)/A(1,1)\r\nC         A(5,2)/A(2,2)\r\nC         A(5,3)/A(3,3)\r\nC         A(5,4)/A(4,4)\r\nC ALSO, GET INNER LOOP TERMS\r\nC    A(I,J)\r\nC       K = CURRENT PIVOTAL COLUMN\r\nC       I = RANGES FROM K TO LAST ACTIVE ROW OF COLUMN K\r\nC       J = RANGES FROM FIRST COLUMN DATA NEEDED FOR COLUMN K TO K-1\r\nC    (E.G.,\r\nC         A(5,1) A(6,1)  .  A(N,1)\r\nC         A(5,2) A(6,2)  .  A(N,2)\r\nC         A(5,3) A(6,3)  .  A(N,3)\r\nC         A(5,4) A(6,4)  .  A(N,4)\r\nC         \r\nC  LOOP 7000 WILL BE ON K\r\nC  LOOP 6000 WILL BE ON J\r\nC    \r\n      IC1     = 1\r\n      IC2     = 2\r\n      IILROW1 = 1\r\nc      print *,' i1,i2,i3,maxncol,maxnac=',i1,i2,i3,maxncol,maxnac\r\n      DO 7000 K = 1, NCOL\r\n      KK      = MOD( K, I2 )\r\n      IF ( KK .EQ. 0 ) KK = I2\r\n      LASROW( KK ) = 0\r\nc      PRINT *,' SMC2RS PROCESSING COLUMN K=',K\r\n      KCOL    = K\r\n      KDIR    = K*4 - 3\r\n      KMIDX   = ZI( KDIR   )\r\nC\r\nC SEE IF DATA IS ON IN MEMORY OR ON THE SPILL FILE     \r\nC      \r\n      IF ( KMIDX .NE. 0 ) GO TO 500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( KCOL, ZI )\r\n      KMIDX  = ZI( KDIR )\r\n500   CONTINUE\r\n      KFRCOLP= KFRCOL\r\n      KLSCOLP= KLSCOL\r\n      KFRCOL = ZI( KDIR+1 )  \r\n      KM2    = ZI( KMIDX+1)\r\n      KRIDXN = KMIDX + 4 + KM2\r\n      KLSCOL = K - 1\r\n      KRIDX  = KMIDX+4\r\n      KRIDXS = KRIDX\r\n      KROW1  = ZI( KRIDX   )\r\n      KROWN  = KROW1 + ZI( KRIDX+1 ) - 1\r\n      KAROWS = 0\r\n      DO 510 KK = 1, KM2, 2\r\n      KAROWS = KAROWS + ZI( KRIDX+KK )\r\n510   CONTINUE\r\nC\r\nC IF THE PREVIOUS COLUMN DID NOT NEED DATA FROM A COLUMN PRECEEDING IT,\r\nC THEN MUST RELOAD THE INNER AND OUTER LOOP ARRAYS\r\nC\r\n      IF ( KLSCOLP .LT. KFRCOLP ) GO TO 1350\r\nC     \r\nC NOW MUST FIND THE ROW AND COLUMN NUMBER FOR THIS PIVOT COLUMN\r\nC THAT IS NOT ALREADY IN THE INNER LOOP AND OUTER LOOP ARRAYS.\r\nC FIRST CHECK THAT THE FIRST REQUIRED ROW IS STORED, IF NOT THEN WE MUST \r\nC BEGIN AS IF NOTHING STORED.  IF SOME OF THE REQUIRED ROWS ARE PRESENT,\r\nC THEN FIND THE NEXT POSITION AND ROW NUMBER TO BE STORED IN THE INNER\r\nC LOOP ARRAY AND THE NEXT POSITION AND COLUMN NUMBER TO BE STORED IN THE\r\nC OUTER LOOP ARRAY.\r\nC\r\nC IF THE FIRST COLUMN IS LESS THAN FIRST COLUMN OF LAST PIVOT COLUMN\r\nC THEN WE MUST LOAD THE INNER AND OUTER LOOPS FROM THE BEGINNING\r\nC\r\n      IF ( KFRCOL .LT. KFRCOLP ) GO TO 1350\r\n      KR      = 1\r\n      LROW1   = NAR( 1 ) \r\n      LROWN   = NAR( 1 ) + NAR( 2 ) - 1\r\nC\r\nC  LROW1 = FIRST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT \r\nC          COLUMN PROCESSED\r\nC  LROWN = LAST ROW OF A STRING OF CONTIGUOUS ROWS OF LAST PIVOT COLUMN \r\nC          PROCESSED\r\nC      \r\nC FIND FIRST ROW IN INNER LOOP THAT MATCHES THE FIRST ROW REQUIRED\r\nC FOR THIS COLUMN\r\nC\r\nC IF THERE IS NO MATCH FOR THE FIRST COLUMN, THEN GO TO 1350\r\nC\r\n1105  CONTINUE\r\n      IF ( LROW1 .GT. KROW1 ) GO TO 1350\r\n      IF ( KROW1 .LT. LROWN ) GO TO 1100\r\nC\r\nC NO OVERLAP WITH THIS STRING, GO AND GET NEXT STRING\r\nC ADJUST 'ILLROW1' WHICH IS THE POINTER TO THE FIRST ROW IN THE INNER\r\nC LOOP THAT CONTAINS THE VALUE OF ROW \"KROW1\" OF EACH COLUMN.\r\nC\r\n      INCR    = LROWN - LROW1 + 1\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1 ) IILROW1 = IILROW1 - I1\r\n      KR      = KR + 2    \r\n      LROW1   = NAR( KR )\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1350     \r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      GO TO 1105\r\n1100  CONTINUE\r\nC      \r\nC THERE IS AN OVERLAP, SET KROWB, KROWSB, AND IILROW1 TO REFLECT\r\nC THE PROPER ROW NUMBER IN THE INNER LOOP\r\nC\r\n      INCR    = KROW1 - LROW1\r\n      KROWB   = KROW1 \r\n      KROWSB  = KROWN - KROWB + 1 \r\n      KRIDXS  = KRIDX\r\n      IILROW1 = IILROW1 + INCR\r\n      IF ( IILROW1 .GT. I1    ) IILROW1 = IILROW1 - I1\r\n      LROW1   = KROW1\r\n      IILROW  = IILROW1\r\n1120  IF ( LROW1 .NE. KROW1 ) GO TO 1180\r\n      IF ( LROWN .EQ. KROWN ) GO TO 1130\r\n      IF ( LROWN .LT. KROWN ) GO TO 1140\r\n      IF ( LROWN .GT. KROWN ) GO TO 1150\r\nC\r\nC THIS SET OF ROWS MATCHES, GO AND CHECK THE NEXT SET OF ROW NUMBERS\r\nC\r\n1130  CONTINUE\r\n      INCR    = KROWN - KROWB + 1\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      KRIDX   = KRIDX + 2\r\n      IF ( KRIDX .EQ. KRIDXN ) GO TO 1170\r\n      KR      = KR + 2\r\n      KROW1   = ZI( KRIDX )\r\n      KROWB   = KROW1   \r\n      KROWSB  = ZI( KRIDX+1 )  \r\n      KROWN   = KROW1 + KROWSB -1\r\n      KRIDXS  = KRIDX\r\n      LROW1   = NAR( KR )\r\n      LROWN   = LROW1 + NAR( KR+1 ) - 1\r\n      IF ( LROW1 .EQ. 0 ) GO TO 1180 \r\n      GO TO 1120\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN GT LROWN\r\nC\r\n1140  CONTINUE\r\n      INCR    = LROWN  - KROWB + 1\r\n1145  KROWB   = KROWB  + INCR\r\n      KROWSB  = KROWSB - INCR\r\n      KRIDXS  = KRIDX\r\n      IILROW  = IILROW + INCR\r\n      IF ( IILROW .GT. I1 ) IILROW = IILROW - I1\r\n      GO TO 1180\r\nC\r\nC LAST ROW NUMBERS DO NOT MATCH, KROWN LT LROWN\r\nC\r\n1150  CONTINUE\r\n      INCR    = LROWN - LROW1 + 1\r\n      GO TO 1145\r\nC\r\nC ROWS MATCH FOR INNER LOOP COLUMN VALUES, NOW DETERMINE THE COLUMN INDEX\r\nC FOR THE NEXT COLUMN TO ADD TO THE INNER AND OUTER LOOP ARRAYS.\r\n1170  CONTINUE\r\n      KFRCOLG = KLSCOLP+1\r\n      IILROW  = IILROW1\r\n      GO TO 1400\r\nC\r\nC NOT ALL NEEDED ROW VALUES ARE PRESENT, MUST GET NEEDED ROWS\r\nC FOR ALL COLUMNS REQUIRED FOR THIS PIVOT COLUMN\r\nC\r\n1180  CONTINUE\r\n      KFRCOLG = KFRCOL\r\n      GO TO 1400\r\nC\r\nC NO MATCH FOUND, WILL START LOADING THE INNER AND OUTER LOOP ARRAYS\r\nC FROM THE BEGINNING\r\nC\r\n1350  IILROW1 = 1\r\n      IILROW  = 1\r\n      KROWB   = KROW1\r\n      KROWSB  = KROWN - KROW1 + 1\r\n      KFRCOLG = KFRCOL\r\n1400  CONTINUE\r\n      KRIDX   = KMIDX+4\r\n      DO 1450 J = 1, KM2\r\n      NAR( J ) = ZI( KRIDX+J-1 )\r\n1450  CONTINUE\r\n      NAR( KM2+1 ) = 0\r\n      IILROWB = IILROW\r\nC\r\nC KFRCOL  = FIRST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KLSCOL  = LAST COLUMN NEEDED FOR PIVOT COLUMN \"K\"\r\nC KFRCOLG = FIRST COLUMN TO BE PLACED IN INNER/OUTER LOOP ARRAYS\r\nC KFRCOLP = FIRST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC KLSCOLP = LAST COLUMN OF LAST PIVOT COLUMN PROCESSED\r\nC\r\nc      PRINT *,' KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS='\r\nc      PRINT *,  KFRCOL,KLSCOL,KFRCOLG,KFRCOLP,KLSCOLP,KAROWS\r\nc      PRINT *,' KROWB,KROWSB,IILROW1,IILROW,kridx='\r\nc      PRINT *,  KROWB,KROWSB,IILROW1,IILROW,kridx\r\nC\r\nC KLSCOL WILL BE LESS THAN KFRCOLG FOR THE FIRST COLUMN AND FOR ANY\r\nC COLUMN THAT DOES NOT NEED A PRECEEDING COLUMN OF DATA\r\nC\r\n      IF ( KLSCOL .LT. KFRCOLG ) GO TO 6000\r\n      DO 3000 J = KFRCOLG, KLSCOL\r\n      IILCOL = MOD ( J, I2 )  \r\n      IF ( IILCOL .EQ. 0 ) IILCOL = I2\r\n      JCOL   = J\r\n      JDIR   = J*4 - 3\r\n      JMIDX  = ZI( JDIR   )\r\nC\r\nC SEE IF COLUMN DATA IS IN MEMORY OR ON THE SPILL FILE\r\nC      \r\n      IF (  JMIDX .NE. 0 ) GO TO 1500\r\nC\r\nC DATA IS ON THE SPILL FILE\r\nC      \r\n      CALL SMCSPL ( JCOL, ZI )\r\n      IF ( ZI( JDIR ) .EQ. 0 ) JMIDX = ISPILL\r\n      IF ( ZI( JDIR ) .NE. 0 ) JMIDX = ZI( JDIR )\r\n1500  CONTINUE\r\n      JRIDX  = JMIDX + 4\r\n      JM2    = ZI( JMIDX + 1 )\r\n      JRIDXN = JRIDX + JM2\r\n      JROWL  = ZI( JRIDX+JM2-2 ) + ZI( JRIDX+JM2-1 ) - 1\r\n      JVIDX  = JRIDXN\r\nC\r\nC SAVE DIAGONAL TERM FOR COLUMN J ; (ALWAYS, THE FIRST TERM)\r\nC      \r\n      ZOL( IILCOL, IC2 )  = 1.0 / ZS( JVIDX )\r\nC\r\nC FOR EACH COLUMN J, GET REQUIRED ROWS; I.E, ACTIVE ROWS OF COLUMN K\r\nC      \r\n      IF ( J .GT. KLSCOLP ) GO TO 1530\r\nC\r\nC SET VARIABLES FOR ADDING ROW TERMS TO AN EXISTING COLUMN IN THE INNER LOOP\r\nC\r\n      KRIDX  = KRIDXS   \r\n      KROW   = KROWB\r\n      KROWS  = KROWSB\r\n      IILROW = IILROWB           \r\nC\r\nC SET LASROW TO ZERO IF THIS COLUMN IS BEING RELOADED INTO ZIL AND NOT\r\nC BEING ADDED TO FROM SOME PREVIOUS COLUMN PROCESSING.\r\nC\r\n      IF ( IILROWB .EQ. IILROW1 ) LASROW( J ) = 0\r\n      GO TO 1540\r\n1530  CONTINUE\r\nC\r\nC  MUST RESET KRIDX, KROW AND KROWS FOR INSERTION OF NEW COLUMN IN INNER LOOP\r\nC\r\n      KRIDX  = KMIDX+4\r\n      KROW   = ZI( KRIDX   )\r\n      KROWS  = ZI( KRIDX+1 )\r\n      IILROW = IILROW1\r\n1540  CONTINUE\r\n      KROWN  = KROW + KROWS - 1\r\nC\r\nC JROWL IS LAST ROW TERM IN COLUMN \"J\".  IF THIS IS BEFORE THE FIRST ROW \r\nC \"KROW\" TERM NEEDED, THEN NO MORE TERMS ARE NEEDED FROM COLUMN \"J\" AND\r\nC \"LASROW\" WILL INDICATE THE LAST VALUE STORED FOR COLUMN \"J\".\r\nC\r\n      IF ( JROWL .LT. KROW ) GO TO 3000\r\n2000  JROW   = ZI( JRIDX )\r\n      JROWS  = ZI( JRIDX+1 )\r\n      JROWN  = JROW + JROWS - 1\r\n2010  CONTINUE      \r\n      IF ( JROWN .LT. KROW  ) GO TO 2895\r\n      IF ( JROW  .GT. KROWN ) GO TO 2400\r\n      MISSIN = KROW - JROW\r\nC\r\nC CHECK TO SEE IF THERE ARE MISSING TERMS, I.E., TERMS CREATED DURING\r\nC THE DECOMPOSITION.  IF THERE ARE MISSING TERMS, THEN SET THEIR VALUES\r\nC TO BE INITIALLY ZERO.\r\nC      \r\n      IF ( MISSIN .GE. 0 ) GO TO 2050\r\n      NZEROS = IABS( MISSIN )\r\nC\r\nC  STORE \"NZEROS\" NUMBER OF ZEROS FOR INNER LOOP TERMS\r\nC\r\n      IAVAIL = I1 - ( IILROW+NZEROS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2022\r\n      DO 2020 I = 1, NZEROS\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0\r\n2020  CONTINUE\r\n      IILROW = IILROW + NZEROS\r\n      GO TO 2028\r\n2022  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NZEROS - ILIM1\r\n      DO 2024 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0\r\n2024  CONTINUE\r\n      DO 2026 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = 0.0\r\n2026  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2028  CONTINUE\r\n      KROW  = KROW  + NZEROS \r\n      KROWS = KROWS - NZEROS \r\n2050  CONTINUE\r\n      IF ( MISSIN .LE. 0 ) GO TO 2070\r\n      ISKIP  = KROW  - JROW\r\n      JVIDX  = JVIDX + ISKIP*NVTERM\r\n      JROW   = JROW  + ISKIP\r\n2070  CONTINUE\r\n      IROWN  = MIN0 ( KROWN, JROWN )\r\n      NUM    = IROWN - KROW + 1                                    \r\nC\r\nC  MOVE INNER LOOP VALUES FROM IN-MEMORY LOCATION TO \r\nC  THE INNER LOOP AREA\r\nC      \r\n      NROWS = IROWN - KROW + 1\r\n      IF ( NROWS .GT. ( I1 - IILROW + 1 ) ) GO TO 2120\r\n      DO 2100 I = 1, NROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = ZS(JVIDX+I-1 )\r\n2100  CONTINUE\r\n      IILROW = IILROW + NROWS\r\n      GO TO 2180\r\n2120  ILIM1 = I1 - IILROW + 1\r\n      ILIM2 = NROWS - ILIM1\r\n      DO 2122 I = 1, ILIM1\r\n      ZIL( IILROW+I-1, IILCOL ) = ZS( JVIDX+I-1 )\r\n2122  CONTINUE\r\n      JVTMP = JVIDX + ILIM1\r\n      DO 2124 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = ZS( JVTMP+I-1 )\r\n2124  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2180  CONTINUE\r\n      LASROW( IILCOL ) = IILROW \r\nC\r\nC IF ALL OF THE ROWS ARE NON-ZERO, SET LASROW COUNTER TO IILROW1\r\nC\r\n      IF ( IILROW .EQ. IILROW1 ) LASROW( IILCOL ) = IILROW1\r\n      JVIDX  = JVIDX + NROWS\r\n      JROW   = JROW  + NROWS\r\n      KROW   = IROWN + 1\r\n      KROWS  = KROWN - IROWN \r\nC\r\nC INCREMENT EITHER KROW OR JROW DEPENDING UPON WHETHER IROWN = JROWN\r\nC OR IROWN = KROWN\r\nC      \r\n      IF ( IROWN .EQ. JROWN ) GO TO 2900\r\n      GO TO 2530\r\n2400  CONTINUE\r\nC\r\nC STORE ZEROS FOR CREATED TERMS AND INCREMENT TO THE NEXT SET OF\r\nC OF ROWS FOR THIS PIVOTAL COLUMN. \r\nC\r\n      IAVAIL = I1 - ( IILROW+KROWS-1 )\r\n      IF ( IAVAIL .LT. 0 ) GO TO 2522\r\n      DO 2510 I = 1, KROWS\r\n      ZIL( IILROW+I-1, IILCOL ) = 0.0\r\n2510  CONTINUE\r\n      IILROW = IILROW + KROWS\r\n      GO TO 2528\r\n2522  CONTINUE\r\n      ILIM2  = KROWS - ( I1 - IILROW + 1 )\r\n      DO 2524 I = IILROW1, I1\r\n      ZIL( I, IILCOL ) = 0.0\r\n2524  CONTINUE\r\n      DO 2526 I = 1, ILIM2\r\n      ZIL( I, IILCOL ) = 0.0\r\n2526  CONTINUE\r\n      IILROW = ILIM2 + 1\r\n2528  CONTINUE\r\nC      \r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"K\"\r\nC\r\n2530  KRIDX  = KRIDX + 2\r\nC\r\nC IF THERE ARE NO MORE ROWS FOR THIS COLUMN, THEN COLUMN IS COMPLETE\r\nC\r\n      IF ( KRIDX .GE. KRIDXN ) GO TO 3000\r\n      KROW   = ZI( KRIDX )\r\n      KROWS  = ZI( KRIDX+1)\r\n      KROWN  = KROW + KROWS - 1\r\n      GO TO 2010\r\n2895  CONTINUE\r\nC\r\nC INCREMENT \"JVIDX\" TO POINT TO THE CORRESPONDING VALUE TERM FOR THE \r\nC NEXT ROW OF COLUMN \"J\"\r\nC\r\n      JVIDX  = JVIDX + ( JROWN - JROW + 1 )*NVTERM\r\nC\r\nC INCREMENT THE INDEX TO THE NEXT SET OF ROWS FOR COLUMN \"J\"\r\nC\r\n2900  JRIDX  = JRIDX + 2\r\n      IF ( JRIDX .GE. JRIDXN ) GO TO 3000\r\n      GO TO 2000\r\n3000  CONTINUE\r\n      IF ( K .EQ. 1 ) GO TO 6000\r\nC\r\nC COMPUTE THE TERMS FOR THE CURRENT COLUMN OF DATA\r\nC \r\nC      do 100 k = 1,n\r\nC         do 10  i = k,n\r\nC         temp = 0.\r\nC         do 5  l = 1,k-1\r\nC            temp = temp + a(i,l)*a(k,l) / a(l,l)\r\nC    5       continue\r\nC         a(i,k) = a(i,k) - temp\r\nC   10    continue\r\nC\r\nC  THE FOLLOWING LAST COMPUTATION TAKES PLACE IN SUBROUTINE SMCOUT.\r\nC  THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT\r\nC  THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS\r\nC  MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS.\r\nC\r\nC         do 11 j = k+1,n\r\nC           a(k,j) = a(j,k) / a( k,k )\r\nC   11      continue\r\nC  100 continue\r\nC\r\nC   NROWS  = NUMBER OF ROWS STORED IN INNER LOOP\r\nC   KCOL   = LAST COLUMN NUMBER STORED IN INNER LOOP\r\nC   KFRCOL = FIRST COLUMN NUMBER STORED IN INNER LOOP\r\nC\r\n      NROWS = KAROWS\r\n      KDIR  = ( KCOL-1 ) * 4 + 1\r\n      KMIDX = ZI( KDIR )\r\n      KRIDX = KMIDX + 4\r\n      KM2   = ZI( KMIDX+1 )\r\n      KVIDX = KRIDX + KM2\r\n      ILIM1   = IILROW1 + NROWS - 1\r\n      ILIM2   = 0\r\n      IAVAIL  = I1 - ILIM1\r\n      IF ( IAVAIL .GE. 0 ) GO TO 4010\r\n      ILIM1   = I1\r\n      ILIM2   = NROWS - ( I1 - IILROW1 + 1 )\r\n4010  CONTINUE\r\n      JLIM1   = MOD( KFRCOL, I2 )\r\n      JLIM2   = MOD( KLSCOL, I2 )\r\n      IF ( JLIM1 .EQ. 0 ) JLIM1 = I2\r\n      IF ( JLIM2 .EQ. 0 ) JLIM2 = I2\r\n      JLIM4   = 0\r\n      IF ( KFRCOL .EQ. K ) GO TO 6000\r\n      IF ( JLIM2 .GE. JLIM1 ) GO TO 4015\r\n      JLIM4   = JLIM2\r\n      JLIM2   = I2\r\n4015  CONTINUE\r\nC      PRINT *,' JLIM1,JLIM2,JLIM4,IILROW1=',JLIM1,JLIM2,JLIM4,IILROW1\r\nC      PRINT *,' ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS'\r\nC      PRINT *,  ILIM1,ILIM2,JLIM1,JLIM2,JLIM4,IILROW1,NROWS\r\n      IF ( K .EQ. 1 ) GO TO 4007\r\nC\r\nC COMPUTE THE OUTER LOOP TERM FOR THIS COLUMN J\r\nC I.E.,   -A(K,J) / A(J,J) \r\nC  where K = current pivot column number; J = column being processed\r\nC      \r\nC     KAROWS = NUMBER OF ACTIVE ROWS FOR THE CURRENT PIVOTAL COLUMN\r\nC     JCOL   = COLUMN NUMBER OF CURRENT PIVOTAL COLUMN\r\nC     ZOL(KBC,IC1) = FIRST ACTIVE ROW (\"IILROW1\") TERM OF COLUMN \"KBC\"\r\nC     ZOL(KBC,IC2) = DIAGONAL TERM FOR COLUMN \"KBC\"\r\nC\r\n      DO 4005 KBC = JLIM1, JLIM2           \r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4005  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4007\r\n      DO 4006 KBC = 1, JLIM4\r\n      ZOL( KBC, IC1 ) = ZIL( IILROW1, KBC ) * ZOL( KBC, IC2 )\r\n4006  CONTINUE\r\n4007  CONTINUE\r\nC      CALL KBHELPRS( KFRCOL, KLSCOL, ZOL, ZIL, I1, I2, LASROW )    \r\n      DO 4008 I = IILROW1, ILIM1\r\n      RTEMP(I) = 0.0\r\n4008  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4022 J = JLIM1, JLIM2\r\n      LIMIT = ILIM1\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4022\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J,IC1 )  \r\n      CALL SMCCRS ( RTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &            , ZOLTMP )\r\nC      DO 4020 I = IILROW1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4020  CONTINUE\r\n4022  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4030\r\nC\r\nC PROCESS ROWS IILROW1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4024 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 ) GO TO 4024\r\n      LIMIT = ILIM1\r\n      IF ( ITEST .GT. IILROW1 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J,IC1 )  \r\n      CALL SMCCRS ( RTEMP(IILROW1), ZIL( IILROW1,J ), LIMIT-IILROW1+1\r\n     &            , ZOLTMP )\r\nC      DO 4023 I = IILROW1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4023  CONTINUE\r\n4024  CONTINUE\r\n4030  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4060\r\n      DO 4032 I = 1, ILIM2\r\n      RTEMP(I) = 0.0\r\n4032  CONTINUE\r\nC\r\nC PROCESS COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      DO 4042 J = JLIM1, JLIM2\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4042\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS JLIM1 THROUGH JLIM2\r\nC      \r\n      ZOLTMP = ZOL( J,IC1 )  \r\n      CALL SMCCRS ( RTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP )\r\nC      DO 4040 I = 1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP              \r\nC4040  CONTINUE\r\n4042  CONTINUE\r\n      IF ( JLIM4 .EQ. 0 ) GO TO 4046\r\nC\r\nC PROCESS ROWS 1 THROUGH LIMIT FOR COLUMNS 1 THROUGH JLIM4\r\nC      \r\n      DO 4044 J = 1, JLIM4\r\n      ITEST = LASROW( J )\r\n      IF ( ITEST .EQ. 0 .OR. ITEST .GT. IILROW1 ) GO TO 4044\r\n      LIMIT = ILIM2\r\n      IF ( ITEST .LE. ILIM2 ) LIMIT = ITEST - 1\r\n      ZOLTMP = ZOL( J,IC1 )  \r\n      CALL SMCCRS ( RTEMP(1), ZIL( 1,J ), LIMIT, ZOLTMP )\r\nC      DO 4043 I = 1, LIMIT\r\nC      RTEMP(I) = RTEMP(I) + ZIL( I, J ) * ZOLTMP\r\nC4043  CONTINUE\r\n4044  CONTINUE\r\n4046  CONTINUE\r\n4060  CONTINUE\r\nC      \r\nC UPDATE EACH ACTIVE ROW TERM FOR COLUMN \"K\" BY SUBTRACTING \"RTEMP\"\r\nC\r\n      DO 4047 I = IILROW1, ILIM1\r\n      ZS( KVIDX ) = ZS( KVIDX ) - RTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4047  CONTINUE\r\n      IF ( ILIM2 .EQ. 0 ) GO TO 4070\r\n      DO 4048 I = 1, ILIM2\r\n      ZS( KVIDX ) = ZS( KVIDX ) - RTEMP(I)\r\n      KVIDX = KVIDX + 1\r\n4048  CONTINUE\r\n4070  CONTINUE\r\nC\r\nC CALL SMCOUT TO WRITE OUT THE COLUMN TO THE OUTPUT LOWER TRIANGULAR      \r\nC MATRIX FILE\r\nC      \r\n6000  CONTINUE\r\n      CALL SMCOUT ( ZI, ZI, ZS, ZOL( 1,IC1 ), ZOL( 1,IC1 ) )\r\n7000  CONTINUE      \r\n      RETURN\r\n      END\r\n\u001a"
  },
  {
    "path": "mis/smcccd.f",
    "content": "      SUBROUTINE SMCCCD ( DTEMP, ZIL, ILIM, ZOL )\r\n      DOUBLE COMPLEX      DTEMP( ILIM ), ZIL( ILIM ), ZOL\r\n      DO 10 I = 1, ILIM\r\n      DTEMP( I ) = DTEMP( I ) + ZIL( I ) * ZOL\r\n10    CONTINUE\r\n      RETURN\r\n      END\r\n      \r\n      \r\n"
  },
  {
    "path": "mis/smcccs.f",
    "content": "      SUBROUTINE SMCCCS ( CTEMP, ZIL, ILIM, ZOL )\r\n      COMPLEX    CTEMP( ILIM ), ZIL( ILIM ), ZOL\r\n      DO 10 I = 1, ILIM\r\n      CTEMP( I ) = CTEMP( I ) + ZIL( I ) * ZOL\r\n10    CONTINUE\r\n      RETURN\r\n      END\r\n      \r\n      \r\n"
  },
  {
    "path": "mis/smccrd.f",
    "content": "      SUBROUTINE SMCCRD ( DTEMP, ZIL, ILIM, ZOL )\r\n      DOUBLE PRECISION DTEMP( ILIM ), ZIL( ILIM ), ZOL\r\n      DO 10 I = 1, ILIM\r\n      DTEMP( I ) = DTEMP( I ) + ZIL( I ) * ZOL\r\n10    CONTINUE\r\n      RETURN\r\n      END\r\n      \r\n      \r\n"
  },
  {
    "path": "mis/smccrs.f",
    "content": "      SUBROUTINE SMCCRS ( TEMP, ZIL, ILIM, ZOL )\r\n      REAL       TEMP( ILIM ), ZIL( ILIM ), ZOL\r\n      DO 10 I = 1, ILIM\r\n      TEMP( I ) = TEMP( I ) + ZIL( I ) * ZOL\r\n10    CONTINUE\r\n      RETURN\r\n      END\r\n      \r\n      \r\n"
  },
  {
    "path": "mis/smcdmp.f",
    "content": "      SUBROUTINE SMCDMP (  ZI, ZR, ZD )\r\nC      \r\nC SMCDMP DUMPS THE CONTENTS OF THE COLUMN DATA AS STORED IN MEMORY\r\nC AND POINTED TO BY THE DIRECTORY CREATED BY SUBROUTINE SMCPH1\r\nC\r\n      INTEGER          ZI(10)\r\n      REAL             ZR(10)\r\n      DOUBLE PRECISION ZD(10)\r\n      INCLUDE   'SMCOMX.COM'\r\n      DO 1000 ICOL = 1, NCOL\r\n      IND = ( ICOL-1 ) * 4 + 1\r\n      INDEXR = ZI( IND )\r\n      IF ( INDEXR .EQ. 0 ) GO TO 700\r\n      ICOLUM  = ZI( INDEXR   )\r\n      LENROWS = ZI( INDEXR+1 )\r\n      NWORDS  = ZI( INDEXR+2 )\r\n      LENVALS = ZI( INDEXR+3 )\r\n      WRITE( NOUT,901) ICOLUM\r\n901   FORMAT(/,' -----------------------------COLUMN NUMBER   =',I10)\r\n      WRITE ( NOUT, 900 )  ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3)\r\n     &,                    LENROWS, LENVALS, NWORDS\r\n900   FORMAT(20X,' COLUMN DIRECTORY: INDEX                    =',I10\r\n     &,/    ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT    =',I10\r\n     &,/    ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN       =',I10\r\n     &,/    ,20X,' SAVPOS                                     =',2X,Z8\r\n     &,/    ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS       =',I10\r\n     &,/    ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN    =',I10\r\n     &,/    ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN =',I10\r\n     & )\r\n      INDEXR = INDEXR + 4\r\n      INDEXV = INDEXR+LENROWS\r\n      INDEXVD= INDEXV / 2 + 1\r\n      IEND   = INDEXV\r\n50    IROW   = ZI( INDEXR )\r\n      NTERMS = ZI( INDEXR+1 )\r\n      WRITE( NOUT,905) IROW, NTERMS, KTYPE\r\n905   FORMAT(' ROW, TERMS, TYPE=',3I10)\r\n      GO TO ( 100, 200, 300, 400 ), KTYPE\r\n100   WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,NTERMS)\r\n906   FORMAT( 5E16.8 )\r\n      INDEXV = INDEXV + NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n200   WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,NTERMS)\r\n907   FORMAT( 5D16.8 )\r\n      INDEXV = INDEXV  + 2*NTERMS\r\n      INDEXVD= INDEXVD + NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n300   WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,2*NTERMS)\r\n      INDEXV = INDEXV + 2*NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n400   WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,2*NTERMS)\r\n      INDEXV = INDEXV  + 4*NTERMS\r\n      INDEXVD= INDEXVD + 2*NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n500   IF ( INDEXR .GE. IEND ) GO TO 1000   \r\n      GO TO 50\r\n700   CONTINUE\r\n      WRITE( NOUT,901) ICOL\r\n      WRITE ( NOUT, 902 )  ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3)\r\n902   FORMAT(20X,' COLUMN DIRECTORY: INDEX                    =',I10\r\n     &,/    ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT    =',I10\r\n     &,/    ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN       =',I10\r\n     &,/    ,20X,' SAVPOS                                     =',2X,Z8\r\n     &,/    ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS       = N/A'\r\n     &,/    ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN    = N/A'\r\n     &,/    ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN = N/A'\r\n     & )\r\n      WRITE( NOUT,908) \r\n908   FORMAT(20X,' ------COLUMN HAS BEEN PUT TO SPILL FILE-----')\r\n1000  CONTINUE\r\n7777  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcdmp1.f",
    "content": "      SUBROUTINE SMCDMP1 (  ZI, ZR, ZD )\r\n      INTEGER          ZI(10)\r\n      REAL             ZR(10)\r\n      DOUBLE PRECISION ZD(10)\r\n      INCLUDE   'SMCOMX.COM'\r\n      DO 1000 ICOL = 1, NCOL\r\n      IND = ( ICOL-1 ) * 4 + 1\r\n      INDEXR = ZI( IND )\r\n      IF ( ZI( INDEXR ) .EQ. 0 ) GO TO 700\r\n      ICOLUM  = ZI( INDEXR   )\r\n      LENROWS = ZI( INDEXR+1 )\r\n      NWORDS  = ZI( INDEXR+2 )\r\n      LENVALS = ZI( INDEXR+3 )\r\n      WRITE( NOUT,901) ICOLUM\r\n901   FORMAT(/,' -----------------------------COLUMN NUMBER   =',I10)\r\n      WRITE ( NOUT, 900 )  ZI(IND), ZI(IND+1), ZI(IND+2), ZI(IND+3)\r\n     &,                    LENROWS, LENVALS, NWORDS\r\n900   FORMAT(20X,' COLUMN DIRECTORY: INDEX                    =',I10\r\n     &,/    ,20X,' FIRST COLUMN DATA NEEDED FOR THIS PIVOT    =',I10\r\n     &,/    ,20X,' LAST PIVOT COLUMN TO USE THIS COLUMN       =',I10\r\n     &,/    ,20X,' SAVPOS                                     =',2X,Z8\r\n     &,/    ,20X,' NUMBER OF WORDS DEFINING ROW NUMBERS       =',I10\r\n     &,/    ,20X,' NUMBER OF NON-ZERO TERMS IN THIS COLUMN    =',I10\r\n     &,/    ,20X,' TOTAL NUMBER OF WORDS ALLOCATED FOR COLUMN =',I10\r\n     & )\r\n      INDEXR = INDEXR + 4\r\n      INDEXV = INDEXR+LENROWS\r\n      INDEXVD= INDEXV / 2 + 1\r\n      IEND   = INDEXV\r\n50    IROW   = ZI( INDEXR )\r\n      NTERMS = ZI( INDEXR+1 )\r\n      WRITE( NOUT,905) IROW, NTERMS, KTYPE\r\n905   FORMAT(' ROW, TERMS, TYPE=',3I10)\r\n      GO TO ( 100, 200, 300, 400 ), KTYPE\r\n100   WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,NTERMS)\r\n906   FORMAT( 5E16.8 )\r\n      INDEXV = INDEXV + NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n200   WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,NTERMS)\r\n907   FORMAT( 5D16.8 )\r\n      INDEXV = INDEXV  + 2*NTERMS\r\n      INDEXVD= INDEXVD + NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n300   WRITE( NOUT,906) (ZR(INDEXV+K-1),K=1,2*NTERMS)\r\n      INDEXV = INDEXV + 2*NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n400   WRITE( NOUT,907) (ZD(INDEXVD+K-1),K=1,2*NTERMS)\r\n      INDEXV = INDEXV  + 4*NTERMS\r\n      INDEXVD= INDEXVD + 2*NTERMS\r\n      INDEXR = INDEXR + 2\r\n      GO TO 500\r\n500   IF ( INDEXR .GE. IEND ) GO TO 1000   \r\n      GO TO 50\r\n700   WRITE( NOUT,908) \r\n908   FORMAT( ' COLUMN HAS BEEN PUT TO SPILL FILE')\r\n1000  CONTINUE\r\n7777  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smchlp.f",
    "content": "      SUBROUTINE SMCHLP\r\nC      \r\nC SMCHLP WRITES THE CONTENTS OF THE KEY PARAMETERS IN THE SYMMETRIC\r\nC DECOMPOSITION COMMON BLOCKS\r\nC\r\n      INCLUDE 'SMCOMX.COM'\r\n      WRITE ( NOUT, 9001 ) \r\n     &    NCOL   , IERROR  , IVWRDS , MAXNAC \r\n     &,   NSPILL , MAXINLOP, IDBASE , IDBMAX \r\n     &,   IBUF1  , IBUF2   , OPNSCR , IOLOOP\r\n     &,   LASCOL , KROW    , KROWS  , KROWN\r\n     &,   KRIDX  , KRIDXN  , JRIDXN , JROW    \r\n     &,   JROWS  , JROWN   , JRIDX  , JVIDX  \r\n     &,   IROW1  , IROWN   , KFRCOL , KLSCOL\r\n     &,   KLSROW , IOL     , IIL    , KTYPE \r\n     &,   ISKIP  , INDEXV  , KCOL   , MAXNCOL\r\n     &,   MEMFRE , MEMCOL1 , MEMLCK , MEMLAS\r\n     &,   MEMCOLN, ISPILL  , NBANDW , NVTERM\r\n9001  FORMAT(//\r\n     &,  ' NCOL   =',I9,' IERROR  =',I9,' IVWRDS =',I9,' MAXNAC =',I9\r\n     &,/,' NSPILL =',I9,' MAXINLOP=',I9,' IDBASE =',I9,' IDBMAX =',I9\r\n     &,/,' IBUF1  =',I9,' IBUF2   =',I9,' OPNSCR =',L9,' IOLOOP =',I9\r\n     &,/,' LASCOL =',I9,' KROW    =',I9,' KROWS  =',I9,' KROWN  =',I9\r\n     &,/,' KRIDX  =',I9,' KRIDXN  =',I9,' JRIDXN =',I9,' JROW   =',I9\r\n     &,/,' JROWS  =',I9,' JROWN   =',I9,' JRIDX  =',I9,' JVIDX  =',I9\r\n     &,/,' IROW1  =',I9,' IROWN   =',I9,' KFRCOL =',I9,' KLSCOL =',I9\r\n     &,/,' KLSROW =',I9,' IOL     =',I9,' IIL    =',I9,' KTYPE  =',I9\r\n     &,/,' ISKIP  =',I9,' INDEXV  =',I9,' KCOL   =',I9,' MAXNCOL=',I9\r\n     &,/,' MEMFRE =',I9,' MEMCOL1 =',I9,' MEMLCK =',I9,' MEMLAS =',I9\r\n     &,/,' MEMCOLN=',I9,' ISPILL  =',I9,' NBANDW =',I9,' NVTERM =',I9  \r\n     & )\r\n      WRITE ( NOUT, 9002 ) ISYSBF, ISPREC\r\n9002  FORMAT(\r\n     & /,' ISYSBF =',I9,' ISPREC   =',I9 )\r\n      WRITE ( NOUT, 9003 ) MBLK, MOBLK\r\n9003  FORMAT(/,' MBLK (INPUT MATRIX STRING BLOCK)=',/,3(5I10,/)\r\n     &      ,/,' MOBLK (OUTPUT MATRIX STRING BLOCK)=',/,3(5I10,/))\r\n      WRITE ( NOUT, 9004 ) LCORE, POWER, MINDD, CHLSKY, ISCR1\r\n9004  FORMAT(\r\n     & /,' LCORE  =',I9,' POWER   =',I9,' MINDD   =',E16.8\r\n     &,/,' CHLSKY =',I9,' ISCR1   =',I9 )\r\n      WRITE ( NOUT, 9005 ) MCB, LLL\r\n9005  FORMAT('  INPUT MATRIX MCB=',/,7I8,\r\n     & /,    ' OUTPUT MATRIX MCB=',/,7I8 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcomp.f",
    "content": "      SUBROUTINE SMCOMP (*,ZI,ZR,ZD)\r\nC      \r\nC DRIVER PROGRAM FOR SYMMETRIC DECOMPOSITION.  SUBROUTINE SMCPH1 READS\r\nC THE INPUT MATRIX AND STORES THE DATA EITHER IN MEMORY OR ON THE\r\nC SPILL FILE.  SUBROUTINE SMCPH2 IS THEN CALLED TO PERFORM THE\r\nC MATRIX DECOMPOSITION.\r\nC\r\n      REAL              ZR(4)\r\n      INTEGER           ZI(4)\r\n      INTEGER           MODULE(5), BEGN, END\r\n      DOUBLE PRECISION  ZD(4)\r\n      INCLUDE          'SMCOMX.COM'\r\nC  mcb   - matrix control block for input matrix\r\nC  lll   - matrix control block for lower triangular matrix\r\nC  dbc   - dbc(1) = available scratch file, dbc(2-7) are not used\r\nC  scr1, scr2, scr3 - three available scratch files\r\nC  lcore - amount of open core available for use\r\nC  ddr   - d.p. values of (real, imaginary) for scaled value of determinant\r\nC  power - scale factor to apply to determinant, determinant=det * 10**power\r\nC  mindd - d.p. value for minimum value of diagonal elements\r\nC  chlsky - cholesky option when =1, i.e., form c matrix\r\nC     \r\n      DATA  MODULE / 4HSMCO, 4HMP  , 3*4H    /\r\n      DATA  BEGN   / 4HBEGN /\r\n      DATA  END    / 4HEND  /\r\n      IERROR = 0 \r\n      NCOL   = MCB(2)\r\n      MODULE( 3 ) = BEGN\r\n      STURM  = 0\r\n      CALL CONMSG ( MODULE, 5, 0 )\r\n      CALL SMCPH1 ( ZI, ZR, ZD )\r\n      IF ( IERROR .EQ. 1 ) GO TO 701\r\n      IF ( IERROR .NE. 0 ) GO TO 700\r\n      CALL SMCPH2 ( ZI, ZR, ZD )\r\n      IF ( IERROR .EQ. 1 ) GO TO 701\r\nC\r\nC print roots information if this is an eigenvalue problem, and keep\r\nC two largest shift point data if several shift point movings are involved.\r\nC      \r\n      IF ( SHFTPT .GT. 0. ) WRITE ( NOUT, 901 ) STURM, SHFTPT\r\n901   FORMAT( 20X, I5, ' ROOTS BELOW ', 1P,E14.6 )\r\n      IF ( STURM .NE. 0 ) GO TO 100\r\n      IF ( KEEP  .LE. 0 ) GO TO 700\r\n      STURM  = KEEP\r\n      SHFTPT = PTSHFT\r\n      GO TO 700\r\n100   IF ( KEEP .GT. STURM ) GO TO 700\r\n      JJ     = KEEP\r\n      RS     = PTSHFT\r\n      KEEP   = STURM\r\n      PTSHFT = JJ\r\n      SHFTPT = RS\r\n700   MODULE( 3 ) = END\r\n      CALL CONMSG ( MODULE, 5, 0 )\r\n      IF ( IERROR .NE. 0 ) RETURN 1\r\n      GO TO 777\r\n701   CONTINUE\r\n      MODULE( 3 ) = END\r\n      CALL CONMSG ( MODULE, 5, 0 )\r\n777   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcout.f",
    "content": "      SUBROUTINE SMCOUT ( ZI, ZR, ZD, ZRS, ZRD )\r\nC\r\nC SMCOUT DOES THE FINAL DIVISION OF THE TERMS OF THE PIVOTAL COLUMN\r\nC AND WRITES THE COLUMN DATA TO THE LOWER TRIANGULAR MATRIX.\r\nC\r\nC THE FOLLOWING CALCULATIONS ARE DONE IN SUBROUTINE SMC2-RS,RD,CS,CD\r\nC \r\nC      do 100 k = 1,n\r\nC         do 10  i = k,n\r\nC         temp = 0.\r\nC         do 5  l = 1,k-1\r\nC            temp = temp + a(i,l)*a(k,l) / a(l,l)\r\nC    5       continue\r\nC         a(i,k) = a(i,k) - temp\r\nC   10    continue\r\nC\r\nC            THE FOLLOWING LAST COMPUTATION TAKES PLACE IN THIS SUBROUTINE.\r\nC            THE RESULTS OF THE DIVISION ARE WRITTEN TO THE OUTPUT FILE BUT\r\nC            THE RESULTS OF THE ABOVE (WITHOUT THE DIVISION BELOW) IS\r\nC            MAINTAINED IN MEMORY FOR REMAINING COLUMN COMPUTATIONS.\r\nC\r\nC         do 11 j = k+1,n\r\nC           a(k,j) = a(j,k) / a( k,k )\r\nC   11      continue\r\nC  100 continue\r\nC\r\nC  THE FINAL COMPUTATIONS ARE WRITTEN TO THE LLL MATRIX USING PUTSTR/ENDPUT.\r\nC\r\n      INTEGER          ZI(10)\r\n      REAL             ZR(10), MINDS, ZRS(10)\r\n      DOUBLE PRECISION ZD(10), DAKK2, DAKKR, DAKKI, DAKK, XND(10)\r\n      DOUBLE PRECISION DR    , ZRD(10)\r\n      INCLUDE  'SMCOMX.COM'\r\n      CHARACTER         UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON / XMSSG  / UFM  , UWM  , UIM  , SFM\r\n      COMMON / ZZZZZZ / XNS(10)\r\n      EQUIVALENCE      ( XNS, XND )\r\n      EQUIVALENCE      ( MINDS, MINDD ), (DSR, DDR ), (DSC, DDC )\r\n      DATA               RZERO / 1.0E-10  / \r\nC      PRINT *,' SMCOUT-ENTER,KCOL=',KCOL\r\n      KDIR  = ( KCOL-1 ) * 4 + 1\r\n      KMIDX = ZI( KDIR )\r\n      KRIDX = KMIDX + 4\r\n      KM2   = ZI( KMIDX+1 )\r\n      KRIDN = KRIDX + KM2   \r\n      NROWS = 0\r\n      DO 10 I = 1, KM2, 2\r\n      NROWS  = NROWS + ZI( KRIDX + I ) \r\n10    CONTINUE\r\n      KVIDX = KRIDX + KM2  \r\n      GO TO (1000, 2000, 3000, 4000 ), KTYPE\r\nC\r\nC DO DIVISION IN REAL SINGLE PRECISION AND COMPUTE THE  DETERMINANT DDS.\r\nC CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT (\"MINDS\")\r\nC\r\n1000  CONTINUE\r\n      AKK          =  ZR( KVIDX )     \r\nCWKBI  7/95 SPR95005\r\n      IF ( AKK .EQ. 0.0 ) GO TO 7002\r\n1010  IF ( ABS( DSR ) .LT. 10. ) GO TO 1020\r\n      DSR = DSR / 10.\r\n      POWER = POWER + 1\r\n      GO TO 1010\r\n1020  IF ( ABS( DSR ) .GT. 0.1 ) GO TO 1030\r\n      DSR = DSR * 10.\r\n      POWER = POWER - 1\r\n      GO TO 1020\r\n1030  DSR    = DSR * AKK\r\n      MINDS  = AMIN1 ( ABS(AKK), MINDS )\r\n      IF ( CHLSKY .EQ. 0 ) GO TO 1040\r\n      IF ( AKK .LE. 0 ) GO TO 7001\r\n      AKK = SQRT( AKK )\r\n1040  IF ( AKK .LT. 0. ) STURM = STURM + 1\r\nCWKBD  7/95 SPR95005\r\nC      IF ( AKK .EQ. 0. ) GO TO 7002\r\n1050  ZRS( 1 ) = AKK\r\nCWKBR 7/95 SPR95005\r\nC      AKK      = 1. / AKK\r\n      AKK      = -1. / AKK\r\n      DO 1150 I = 2, NROWS\r\nCWKBR 7/95 SPR95005\r\nC      ZRS( I ) = -1.0 * ZR( KVIDX + I - 1 ) * AKK \r\n      ZRS( I ) =  ZR( KVIDX + I - 1 ) * AKK \r\n1150  CONTINUE\r\n      GO TO 5000\r\nC\r\nC DO DIVISION IN REAL DOUBLE PRECISION AND COMPUTE THE  DETERMINANT DDR.\r\nC CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT (\"MINDD\")\r\nC\r\n2000  CONTINUE\r\n      KVIDX = ( KVIDX/2 ) + 1            \r\n      DAKK  =  ZD( KVIDX )  \r\nCWKBI  7/95 SPR95005\r\n      IF ( DAKK .EQ. 0.D0 ) GO TO 7002\r\n2010  IF ( DABS( DDR ) .LT. 10.D0 ) GO TO 2020\r\n      DDR = DDR / 10.D0\r\n      POWER = POWER + 1\r\n      GO TO 2010\r\n2020  IF ( DABS( DDR ) .GT. 0.1 ) GO TO 2030\r\n      DDR   = DDR * 10.D0\r\n      POWER = POWER - 1\r\n      GO TO 2020\r\n2030  DDR   = DDR * DAKK\r\n      MINDD = DMIN1 ( DABS(DAKK), MINDD )\r\n      IF ( CHLSKY .EQ. 0 ) GO TO 2040\r\n      IF ( DAKK .LE. 0 ) GO TO 7001\r\n      DAKK = DSQRT( DAKK )\r\n2040  IF ( DAKK .LT. 0.D0 ) STURM = STURM + 1\r\nCWKBD 7/95 SPR95005\r\nC      IF ( DAKK .EQ. 0.D0 ) GO TO 7002\r\n2050  ZRD( 1 ) = DAKK\r\nCWKBR 7/95 SPR95005\r\nC      DAKK        = 1.D0 / DAKK   \r\n      DAKK        = -1.D0 / DAKK   \r\n      DO 2150 I = 2, NROWS\r\nCWKBR 7/95 SPR95005\r\nC      ZRD( I ) = -1.0D0 * ZD( KVIDX + I - 1 ) * DAKK  \r\n      ZRD( I ) = ZD( KVIDX + I - 1 ) * DAKK  \r\n2150  CONTINUE\r\n      GO TO 5000\r\nC\r\nC DO DIVISION IN COMPLEX SINGLE PRECISION AND COMPUTE THE DETERMINANT \r\nC DSR AND DSC.\r\nC CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT (\"MINDS\")\r\nC\r\n3000  CONTINUE\r\nC   (A+Bi) / (C+Di) = (AC + DB + ( CB-AD )i ) / (C**2 + D**2)\r\n      AKKR  = ZR( KVIDX   )\r\n      AKKI  = ZR( KVIDX+1 )\r\n      AKK2  = AKKR*AKKR + AKKI*AKKI\r\nCWKBI  7/95 SPR95005      \r\n      IF ( AKK2 .EQ. 0. ) GO TO 7002     \r\n3010  IF ( ABS( DSR**2 + DSC**2 ) .LT. 10. ) GO TO 3020\r\n      DSR   = DSR / 10.\r\n      DSC   = DSC / 10.\r\n      POWER = POWER + 1\r\n      GO TO 3010\r\n3020  IF ( ABS( DSR**2 + DSC**2 ) .GT. 0.1 ) GO TO 3030\r\n      DSR   = DSR * 10.\r\n      DSC   = DSC * 10.\r\n      POWER = POWER - 1\r\n      GO TO 3020\r\n3030  RS    = DSR*AKKR - DSC*AKKI\r\n      DSC   = DSR*AKKI + DSC*AKKR\r\n      DSR   = RS\r\n      MINDS = AMIN1 ( ABS(AKK2), MINDS )\r\n      IF ( CHLSKY .EQ. 0 ) GO TO 3040\r\n      IF ( AKK2 .LE. 0 ) GO TO 7001\r\n      AKK2 = SQRT( AKK2 )\r\n3040  IF ( AKKR .LT. 0. ) STURM = STURM + 1\r\nCWKBD  7/95 SPR95005\r\nC      IF ( AKK2 .EQ. 0. ) GO TO 7002     \r\n3050  ZRS( 1 ) = AKKR\r\n      ZRS( 2 ) = AKKI\r\n      NROWM   = NROWS * 2 - 1\r\nCWKBR 7/95 SPR95005\r\nC      AKK2    = 1. / AKK2   \r\n      AKK2    = -1. / AKK2   \r\n      KVIDX   = KVIDX + 1\r\n      DO 3150 I = 2, NROWM, 2\r\nCWKBDB 7/95 SPR95005\r\nC      ZRS( I+1 ) =  -1.0 * ( ZR( KVIDX+I-1   ) * AKKR  +\r\nC     &                         ZR( KVIDX+I   ) * AKKI  ) * AKK2\r\nC      ZRS( I+2 ) =  -1.0 * ( ZR( KVIDX+I     ) * AKKR  -\r\nC     &                         ZR( KVIDX+I-1 ) * AKKI  ) * AKK2\r\nCWKBDE 7/95 SPR95005\r\nCWKBIB 7/95 SPR95005\r\n      ZRS( I+1 ) =  ( ZR( KVIDX+I-1 ) * AKKR  +\r\n     &                ZR( KVIDX+I   ) * AKKI  ) * AKK2\r\n      ZRS( I+2 ) =  ( ZR( KVIDX+I   ) * AKKR  -\r\n     &                ZR( KVIDX+I-1 ) * AKKI  ) * AKK2\r\nCWKBIE 7/95 SPR95005\r\n3150  CONTINUE\r\n      GO TO 5000\r\nC\r\nC DO DIVISION IN COMPLEX DOUBLE PRECISION AND COMPUTE THE DETERMINANT \r\nC DDR AND DDC.\r\nC CHECK FOR THE SMALLEST VALUE OF ANY DIAGONAL ELEMENT (\"MINDD\")\r\nC\r\n4000  CONTINUE\r\n      KVIDX = ( KVIDX/2 ) + 1            \r\n      DAKKR = ZD( KVIDX   )\r\n      DAKKI = ZD( KVIDX+1 )\r\n      DAKK2 = DAKKR*DAKKR + DAKKI*DAKKI\r\nCWKBI  7/95 SPR95005      \r\n      IF ( DAKK2 .EQ. 0. ) GO TO 7002 \r\n4010  IF ( DABS( DDR**2 + DDC**2 ) .LT. 10.D0 ) GO TO 4020\r\n      DDR   = DDR / 10.\r\n      DDC   = DDC / 10.\r\n      POWER = POWER + 1\r\n      GO TO 4010\r\n4020  IF ( DABS( DDR**2 + DDC**2 ) .GT. 0.1D0 ) GO TO 4030\r\n      DDR   = DDR * 10.\r\n      DDC   = DDC * 10.\r\n      POWER = POWER - 1\r\n      GO TO 4020\r\n4030  DR    = DDR*DAKKR - DDC*DAKKI\r\n      DDC   = DDR*DAKKI + DDC*DAKKR\r\n      DDR   = DR\r\n      MINDD = DMIN1 ( DABS(DAKK2), MINDD )\r\n      IF ( CHLSKY .EQ. 0 ) GO TO 4040\r\n      IF ( DAKK2 .LE. 0 ) GO TO 7001\r\n      DAKK2 = DSQRT( DAKK2 )\r\n4040  IF ( DAKKR .LT. 0. ) STURM = STURM + 1\r\nCWKBD  7/95 SPR95005\r\nC      IF ( DAKK2 .EQ. 0. ) GO TO 7002 \r\n4050  ZRD( 1 ) = DAKKR\r\n      ZRD( 2 ) = DAKKI\r\n      NROWM1  = NROWS * 2 - 1\r\nCWKBR 7/95 SPR95005\r\nC      DAKK2   = 1.D0 / (DAKK2 )   \r\n      DAKK2   = -1.D0 / (DAKK2 )   \r\n      KVIDX   = KVIDX + 1\r\n      DO 4150 I = 2, NROWM1, 2\r\nCWKBDB 7/95 SPR95005\r\nC      ZRD( I+1 ) = -1.0D0 * ( ZD( KVIDX+I-1 ) * DAKKR  +\r\nC     &                          ZD( KVIDX+I ) * DAKKI  ) * DAKK2\r\nC      ZRD( I+2 ) = -1.0D0 * ( ZD( KVIDX+I )   * DAKKR  -\r\nC     &                        ZD( KVIDX+I-1 ) * DAKKI  ) * DAKK2\r\nCWKBDE 7/95 SPR95005\r\nCWKBIB 7/95 SPR95005\r\n      ZRD( I+1 ) = ( ZD( KVIDX+I-1 ) * DAKKR  +\r\n     &               ZD( KVIDX+I   ) * DAKKI  ) * DAKK2\r\n      ZRD( I+2 ) = ( ZD( KVIDX+I   ) * DAKKR  -\r\n     &               ZD( KVIDX+I-1 ) * DAKKI  ) * DAKK2\r\nCWKBIE 7/95 SPR95005\r\n4150  CONTINUE\r\n      GO TO 5000\r\nC\r\nC NOW WRITE THE COLUMN OUT TO THE OUTPUT MATRIX\r\nC\r\n5000  CONTINUE\r\n      ITWRDS      = 0\r\n      MOBLK( 8 )  = -1\r\n      MOBLK( 12 ) = KCOL\r\n      KROW  = ZI( KRIDX )\r\n      KROWS = ZI( KRIDX+ 1)\r\n      IF ( KTYPE .LE. 2 ) NWDS = 1\r\n      IF ( KTYPE .GT. 2 ) NWDS = 2\r\n      IOL = 1\r\n5050  CALL PUTSTR ( MOBLK )\r\n      MOBLK( 4 ) = KROW\r\n      MOBLK( 7 ) = MIN0 ( KROWS, MOBLK(6) )\r\n      JSTR = MOBLK( 5 )\r\n      NSTR = JSTR + (MOBLK( 7 ) - 1 ) * NWDS \r\n      IF ( KTYPE .GE. 3 ) NSTR = NSTR + 1\r\n      IF ( KPREC .EQ. 2 ) GO TO 5200\r\nC \r\nC MOVE REAL SINGLE AND SINGLE COMPLEX VALUES INTO BUFFER\r\nC\r\n5100  DO 5150 JJ = JSTR, NSTR\r\n      XNS( JJ ) = ZRS( IOL  )\r\n      IOL = IOL + 1\r\n5150  CONTINUE\r\n      ITWRDS = NSTR - JSTR + 1\r\n      GO TO 5500\r\nC\r\nC MOVE REAL DOUBLE AND DOUBLE COMPLEX VALUES INTO BUFFER\r\nC\r\n5200  DO 5250 JJ = JSTR, NSTR\r\n      XND( JJ ) = ZRD( IOL )\r\nC      PRINT *,' SMCOUT,ROW,NUM,TERM=',MOBLK(4),MOBLK(7),XND(JJ)\r\n      IOL = IOL + 1\r\n5250  CONTINUE\r\n      ITWRDS = ( NSTR-JSTR+1 ) * 2\r\n5500  CONTINUE\r\nC\r\nC CHECK TO SEE IF ALL CONSECUTIVE ROWS CAN BE STORED IN THE BUFFER\r\nC I.E., ARE THERE ENOUGH WORDS IN THE AVAILABLE STRING\r\nC\r\n      IF ( MOBLK( 7 ) .EQ. KROWS ) GO TO 5600\r\n      ISTORE = MOBLK( 7 )\r\n      KROWS  = KROWS - ISTORE\r\n      KROW   = KROW  + ISTORE\r\n      CALL ENDPUT ( MOBLK )\r\n      GO TO 5050\r\nC\r\nC ALL OF THE CURRENT CONSECUTIVE ROWS WERE STORED IN THE BUFFER.\r\nC GO AND GET THE NEXT SET OF CONSECUTIVE ROWS, IF ANY EXIST.\r\nC\r\n5600  KRIDX = KRIDX + 2\r\n      IF ( KRIDX .GE. KRIDN ) GO TO 7000\r\n      CALL ENDPUT ( MOBLK )\r\n      KROW  = ZI( KRIDX )\r\n      KROWS = ZI( KRIDX+1 )\r\n      GO TO 5050\r\nC\r\nC ALL ROWS OF THIS COLUMN HAVE BEEN STORED, CLOSE OUT THE COLUMN\r\nC\r\n7000  MOBLK( 8 ) = 1\r\n      CALL ENDPUT ( MOBLK )\r\n      GO TO 7777\r\n7001  WRITE ( NOUT, 9001 ) UFM, KCOL\r\n9001  FORMAT(A23,' 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION'\r\n     &,' ON A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SMCOMP.'\r\n     &,/,' NEGATIVE DIAGONAL TERM FOUND ON COLUMN ',I6)\r\n      IERROR = 4\r\n      CALL MESAGE ( -61, 0, 0 )\r\n7002  WRITE ( NOUT, 9002 ) UWM, KCOL, RZERO\r\n9002  FORMAT(A25,' 2396, SMCOMP COMPUTED A ZERO ON THE DIAGONAL '\r\n     &,'DURING DECOMPOSITION OF ROW NUMBER ',I6,'.',/\r\n     &,' USE OF DIAG 22 OUTPUT SHOULD PERMIT YOU TO CORRELATE THE'\r\n     &,' ROW WITH A MODEL D.O.F.',/,' A VALUE OF ',E13.6\r\n     &,' WILL BE USED IN PLACE OF THE ZERO, HOWEVER',/\r\n     &,' THE ACCURACY OF THE DECOMPOSITION MAY BE IN DOUBT.')\r\n      AKK   = RZERO\r\n      DAKK  = RZERO\r\n      AKKR  = RZERO\r\n      AKKI  = RZERO\r\n      DAKKR = RZERO\r\n      DAKKI = RZERO\r\n      AKK2  = AKKR*AKKR   + AKKI*AKKI\r\n      DAKK2 = DAKKR*DAKKR + DAKKI*DAKKI\r\nCWKBIB 7/95 SPR95005\r\n      GO TO ( 7010, 7020, 7030, 7040 ), KTYPE\r\n7010  CONTINUE\r\n      ZR( KVIDX ) = AKK    \r\n      GO TO 1010\r\n7020  CONTINUE\r\n      ZD( KVIDX ) = DAKK   \r\n      GO TO 2010\r\n7030  CONTINUE\r\n      ZR( KVIDX   ) = AKKR\r\n      ZR( KVIDX+1 ) = AKKI\r\n      GO TO 3010\r\n7040  CONTINUE\r\n      ZD( KVIDX   ) = DAKKR   \r\n      ZD( KVIDX+1 ) = DAKKI   \r\n      GO TO 4010\r\nCWKBIE 7/95 SPR95005\r\nCWKBD  7/95 SPR95005\r\nC      GO TO ( 1050, 2050, 3050, 4050 ), KTYPE\r\n7777  LLL( 6 ) = MAX0( LLL(6), ITWRDS )\r\n      LLL( 7 ) = LLL( 7 ) + ITWRDS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcph1.f",
    "content": "      SUBROUTINE SMCPH1 ( ZI, ZR, ZD )              \r\n      REAL              ZR(4)   ,MINDS\r\n      LOGICAL           FRSTVAL \r\n      INTEGER           ZI(4)   ,ITEMP(4)\r\n      INTEGER           PRC     ,WORDS   ,RLCMPX  ,NAME(2), REW\r\n      DOUBLE PRECISION  ZD(4)   ,XND(10)\r\n      CHARACTER         UFM*23  ,UWM*25  ,UIM*29  ,SFM*25\r\n      CHARACTER*4       CNAME(2)\r\n      CHARACTER*14      CTYPE(4)\r\nC \r\nC  KTYPE   = TYPE (1-RS,2-RD,3-CS,4-CD) OF LOWER TRIANGULAR MATRIX\r\nC  KPREC   = PRECISION (1-SINGL, 2-DOUBL) OF LOWER TRIANGULAR MATRIX\r\nC  MAXROW  = HIGHEST ROW NUMBER REFERENCED THUS FAR IN PROCESSING\r\nC            A GIVEN COLUMN - NEEDED TO DETERMINE CREATED TERMS DURING\r\nC            DECOMPOSITION\r\nC  MAXINLOP= MAXIMUM TERMS FOR ANY GIVEN INNER LOOP\r\nC  MAXNCOL = MAXIMUM NUMBER OF COLUMNS REFERENCED BY ANY GIVEN COLUMN\r\nC  LASCOL  = LAST COLUMN NUMBER OF MATRIX TO BE DECOMPOSED\r\nC  NEXCOL  = FIRST NON-ZERO TERM IN CURRENT PIVOT COLUMN BELOW DIAGONAL\r\nC            USED TO DETERMINE THE NEXT PIVOT COLUMN WHERE THE ROW\r\nC            WILL BE NEEDED.\r\nC  ICURCOL = CURRENT COLUMN BEING PROCESSED\r\nC  MXRECL  = MAXIMUM SIZE IN WORDS OF ANY ONE RECORD WRITTEN TO THE \r\nC            SPILL FILE\r\nC  NSPILL  = NUMBER OF COLUMNS WRITTEN TO THE SPILL FILE\r\nC\r\n      INCLUDE  'SMCOMX.COM'\r\n      COMMON  /XMSSG /  UFM     ,UWM     ,UIM     ,SFM\r\n      COMMON  /NTIME /  NITEMS  ,TMIO    ,TMBPAK  ,TMIPAK  ,TMPAK   \r\n     1,                 TMUPAK  ,TMGSTR  ,TMPSTR  ,TMT(4)  ,TML(4)\r\n      COMMON  /NAMES /  RDNRW   ,RDREW   ,WRT     ,WRTREW  ,REW     \r\n     1,                 NOREW   ,EOFNRW  ,RSP     ,RDP     ,CSP     \r\n     2,                 CDP     ,SQR     ,RECT    ,DIAG    ,LOWTRI  \r\n     3,                 UPRTRI  ,SYM\r\n      COMMON  /ZZZZZZ/  XNS(10)\r\n      COMMON  /TYPE  /  PRC(2)  , WORDS(4), RLCMPX(4)     \r\n      COMMON  /LOGOUT/  LOUT\r\n      EQUIVALENCE       ( DDR     , DSR    ), (DDC    , DSC  )\r\n      EQUIVALENCE       ( MINDD   , MINDS  ), (XNS    , XND  )\r\n      EQUIVALENCE       ( MBLK(6) , MTERMS ), (MBLK(5), MSTR )\r\n      EQUIVALENCE       ( MBLK(4) , MROW   ), (MBLK(2), MTYPE)\r\n      EQUIVALENCE       ( CNAME   , NAME   )\r\n      DATA              CTYPE / 'REAL SINGLE   ', 'REAL DOUBLE   '\r\n     &,                         'COMPLEX SINGLE', 'COMPLEX DOUBLE' /\r\nC\r\nC   open core is allocated as follows for phase1 of the decomposition\r\nC\r\nC       -------------------------------\r\nC       zi(1) -  Beginning of directory for in-memory column data\r\nC       Directory (4,n) , n=number of columns of matrix\r\nC                  (1,i) = index to active rows and terms within memory\r\nC                  (2,i) = first column data needed for this pivot\r\nC                  (3,i) = last pivot column to use this data\r\nC                  (4,i) = savpos position pointer for data spilled to a\r\nC                          scratch file\r\nC       -------------------------------\r\nC       zi(iacrow) - Beginning of active row vector.\r\nC       Vector for determining active rows for each column, n words\r\nC       Each row value will define the next column where the row value\r\nC       is next needed for calculation of the lll matrix.\r\nC       -------------------------------     \r\nC       zi(IRVAL) - Stagging area for storing data \r\nC       Defines the values in the next section of open core, 2*n\r\nC                  (1,i) = row number\r\nC                  (2,i) = number of consecutive terms beginning at row\r\nC       This section and the next section are staging areas for storing\r\nC       of rows and row values of columns to be pointed to by the directory\r\nC       in the first part of open core.\r\nC       -------------------------------         \r\nC       zi(IVVAL)\r\nC       Row values of column as defined by previous section, n*iprec words\r\nC       -------------------------------         \r\nC       zi(idbase)\r\nC       Memory for rows and terms of columns as pointed to by directory\r\nC       in the first part of open core.  This data is loaded from the  \r\nC       bottom up to allow for better management of open core in\r\nC       subroutine smcph2 which is called after this subroutine.\r\nC       The format for the storage of this data is as follows:\r\nC          (index from directory above points to the first word of the\r\nC           data that follows)\r\nC               1.  Column number\r\nC               2.  Length of active row section (m*2), m=number of\r\nC                   repeats of contents of words 5 and 6 below.\r\nC               3.  Total number of words in this block of allocation\r\nC               4.  Length of values section\r\nC               5.  row number\r\nC               6.  number of consecutive values beginning at this row\r\nC                   (words 5 and 6 repeat m times)\r\nC           5+2*m.  row value for first row\r\nC     5+2*m+iprec.  next row value (iprec=1,2,4)\r\nC   5+2*m+iprec*l.  last row value for column (l=total values)\r\nC       -------------------------------         \r\nC       zi(ibuf2)\r\nC       Buffer for spill file if all column values can not be kept in memory   \r\nC       -------------------------------\r\nC       zi(ibuf1)\r\nC       Buffer for input matrix file to be decomposed\r\nC       -------------------------------\r\nC\r\nc      CALL AUDIT ( 'BEGIN   ', 1 )\r\nc      CALL AUDIT ( 'SMCPH1  ', 1 )\r\n      CALL FNAME ( MCB, NAME ) \r\n      NCOL   = MCB( 2 )\r\n      MEMCOLN= 0\r\n      MXRECL = 0\r\n      MAXNAC = 0\r\n      MAXNAR = 0\r\n      IPREC  = PRC  ( MCB( 5 ) )\r\n      KTYPE  = MCB( 5 )\r\n      IF ( ISPREC .EQ. 2 .AND. KTYPE .EQ. 1 ) KTYPE = 2\r\n      IF ( ISPREC .EQ. 2 .AND. KTYPE .EQ. 3 ) KTYPE = 4\r\n      IF ( ISPREC .EQ. 1 .AND. KTYPE .EQ. 2 ) KTYPE = 1\r\n      IF ( ISPREC .EQ. 1 .AND. KTYPE .EQ. 4 ) KTYPE = 3\r\n      IF ( KTYPE  .EQ. 1 .OR.  KTYPE .EQ. 3 ) KPREC = 1\r\n      IF ( KTYPE  .EQ. 2 .OR.  KTYPE .EQ. 4 ) KPREC = 2\r\n      IVWRDS = WORDS( KTYPE )\r\n      IACROW = 4*NCOL + 1\r\n      IRVAL  = IACROW + NCOL\r\n      IVVAL  = IRVAL  + 2*NCOL\r\nC\r\nC ENSURE THAT IVVAL IS ON A DOUBLE WORD BOUNDARY\r\nC      \r\n      IF ( MOD( IVVAL,2 )  .EQ. 0 ) IVVAL = IVVAL + 1\r\n      IDBASE = IVVAL  + IVWRDS*NCOL\r\nC\r\nC ENSURE THAT IDBASE IS ON A DOUBLE WORD BOUNDARY\r\nC      \r\n      IF ( MOD( IDBASE,2 ) .EQ. 0 ) IDBASE = IDBASE + 1\r\n      IF ( LCORE .LT. (IDBASE + 2*ISYSBF) ) GO TO 7001\r\n      IBUF1  = LCORE - ISYSBF\r\n      IBUF2  = IBUF1 - ISYSBF\r\n      IDBMAX = IBUF2 - 1\r\nC\r\nC ENSURE THAT IDBMAX IS ON A DOUBLE WORD BOUNDARY\r\nC      \r\n      IF ( MOD( IDBMAX,2 ) .EQ. 0 ) IDBMAX = IDBMAX - 1\r\n      IDBIND = IDBMAX\r\n      CALL OPEN   ( *7002, MCB, ZI(IBUF1), RDREW )\r\n      CALL SKPREC ( MCB, 1 )\r\n      MBLK(1) = MCB( 1 )\r\n      LLL(2)  = MCB( 2 )\r\n      LLL(3)  = MCB( 2 )\r\n      LLL(4)  = 4\r\n      LLL(5)  = KTYPE\r\n      LLL(6)  = 0\r\n      LLL(7)  = LSHIFT( 1, NBPW-2 - (NBPW-32) )\r\n      ICURCOL = 1\r\n      OPNSCR  = .FALSE.\r\n      NSPILL  = 0\r\n      MAXROW  = 0\r\n      MAXINLOP= 0\r\n      MAXNCOL = 0\r\n      LASCOL  = 0\r\n      POWER   = 0\r\n      IF ( KPREC .NE. 2 ) GO TO 5\r\n      DDR     = 1.0D0\r\n      DDC     = 0.0D0\r\n      MINDD   = 1.0D+25\r\n      GO TO 8\r\n5     DSR     = 1.0\r\n      DCR     = 0.0\r\n      MINDS   = 1.0E+25\r\n8     CONTINUE\r\n      MOBLK( 1 ) = LLL( 1 )\r\n      MOBLK( 2 ) = KTYPE\r\n      MOBLK( 3 ) = 1\r\nC\r\nC ZERO OUT THE ACTIVE COLUMN VECTOR\r\nC      \r\n      DO 10 I = 1, NCOL\r\n      ZI( IACROW + I - 1 ) = 0\r\n10    CONTINUE\r\n      LEN = NCOL*4\r\nC\r\nC ZERO OUT THE DIRECTORY\r\nC      \r\n      DO 20 I = 1, LEN\r\n      ZI( I )   = 0\r\n20    CONTINUE\r\n50    CONTINUE\r\n      NTERMS  = 0\r\n      FRSTVAL = .TRUE.\r\n      INDEXR  = IRVAL\r\n      INDEXV  = IVVAL\r\n      INDEXVD = ( INDEXV / 2 ) + 1\r\n      MBLK(8) = -1            \r\n      NEXCOL  = 0\r\n      INDDIR = (ICURCOL-1)*4 + 1    \r\n100   CALL GETSTR ( *1000, MBLK )\r\n      IF ( ICURCOL .LE. ( MROW+MTERMS-1) ) GO TO 120\r\nC\r\nC ALL ROW TERMS ARE BEFORE CURRENT PIVOT COLUMN; SKIP THESE TERMS\r\nC AND GET NEXT STRING.\r\nC CHECK TO SEE IF THIS IS THE FIRST TERM OF THE PIVOT COLUMN\r\nC      \r\n      IF ( ZI( INDDIR + 1 ) .EQ. 0 ) ZI( INDDIR + 1 ) = MROW \r\n      CALL ENDGET ( MBLK )\r\n      GO TO 100\r\nC\r\nC SAVE SOME OR ALL OF THE TERMS IN THIS STRING\r\nC IF THIS IS NOT THE FIRST STRING TO PROCESS, THEN SAVE ALL VALUES\r\nC\r\n120   ISKIP = 0\r\n      IF ( .NOT. FRSTVAL ) GO TO 140\r\nC\r\nC CHECK IF THIS IS THE FIRST TERM OF THE PIVOT COLUMN\r\nC      \r\n      IF ( ZI( INDDIR + 1 ) .EQ. 0 ) ZI( INDDIR + 1 ) = MROW \r\nC\r\nC OTHERWISE, CHECK IF ALL TERMS OR ONLY SOME ARE TO BE SAVED\r\nC      \r\n      FRSTVAL = .FALSE.\r\n      IF ( ICURCOL .EQ. MROW ) GO TO 130\r\nC\r\nC CHECK FOR ZERO ON THE DIAGONAL\r\nC      \r\n      IF ( ICURCOL .LT. MROW ) GO TO 7004\r\nC\r\nC SKIP ALL TERMS BEFORE THE CURRENT PIVOT COLUMN \r\nC      \r\n      ISKIP = ICURCOL - MROW \r\n      ZI( INDEXR   ) = ICURCOL\r\n      NTERMS         = MTERMS - ISKIP\r\n      ZI( INDEXR+1 ) = NTERMS \r\n      IF ( ( MTERMS-ISKIP ) .GT. 1 ) NEXCOL = ICURCOL + 1\r\n      GO TO 200\r\n130   CONTINUE\r\n      IF ( MTERMS .GT. 1 ) NEXCOL = MROW + 1\r\n      ZI(INDEXR   ) = MROW\r\n      ZI(INDEXR+1 ) = MTERMS\r\n      NTERMS        = MTERMS\r\n      GO TO 200\r\n140   CONTINUE\r\nC\r\nC CHECK TO SEE IF CURRENT STRING IS AN EXTENSION OF PREVIOUS STRING\r\nC      \r\n      IF ( (ZI( INDEXR )+ZI( INDEXR+1 ) ) .EQ. MROW ) GO TO 170\r\nC\r\nC NO, MUST CREATE NEW POINTER FOR VALUES\r\nC BUT FIRST, CHECK FOR PROVIDING FOR COMPUTED TERMS OF \r\nC PREVIOUS PIVOT COLUMNS\r\nC      \r\n      IROW1 = ZI( INDEXR ) + ZI( INDEXR+1 )\r\n      IROWN = MROW - 1\r\n      IRFLAG = 1\r\n      GO TO 6000\r\nC\r\nC NOW CHECK IF THE ADDED TERMS ARE PART OF SAME STRING AS THAT JUST\r\nC GOTTEN FROM GETSTR CALL\r\nC\r\n150   IF ( ( ZI(INDEXR) + ZI(INDEXR+1) ) .EQ. MROW ) GO TO 170 \r\nC\r\nC NEW STRING TO BE DEFINED FOR THE CURRENT TERMS FROM GETSTR\r\nC\r\n160   INDEXR = INDEXR + 2\r\n      ZI(INDEXR   ) = MROW\r\n      ZI(INDEXR+1 ) = MTERMS \r\n      NTERMS        = NTERMS + MTERMS\r\n      IF ( NEXCOL .EQ. 0 ) NEXCOL = MROW\r\n      GO TO 200\r\n170   CONTINUE\r\nC\r\nC TERMS ARE AN EXTENSION OF EXISTING DATA, CHANGE THE NUMBER OF TERMS \r\nC      \r\n      ZI( INDEXR+1 ) = ZI( INDEXR+1 ) + MTERMS\r\n      NTERMS         = NTERMS + MTERMS\r\n      IF ( NEXCOL .EQ. 0 ) NEXCOL = MROW\r\n200   CALL SMCRTR ( ZR, ZD )      \r\nC\r\nC SET ACTIVE COLUMN ROW NUMBERS FOR POSSIBLE EXPANDED TERMS\r\nC      \r\n      IROW1 = MROW + ISKIP\r\n      IROWN = IROW1 + MTERMS - 1 - ISKIP\r\n      DO 400 K = IROW1, IROWN\r\n      ZI( IACROW + K - 1 ) = NEXCOL\r\n400   CONTINUE\r\nC\r\nC GO AND GET ADDITIONAL STRINGS IF ANY\r\nC      \r\n      CALL ENDGET ( MBLK )\r\n      GO TO 100\r\n1000  CONTINUE\r\nC\r\nC END OF READING CURRENT COLUMN, CHECK IF DIAGONAL TERM FOUND\r\nC      \r\nC      PRINT *,' SMCPH1,ICURCOL,NEXCOL,MAXROW=',ICURCOL,NEXCOL,MAXROW\r\n      IF ( FRSTVAL ) GO TO 7004\r\nC\r\nC SEE IF ANY COMPUTED TERMS FROM PREVIOUS PIVOT COLUMNS ARE TO BE \r\nC ADDED ONTO THE END OF THE CURRENT ACTIVE ROWS FOR THIS COLUMN\r\nC      \r\n      LROW  = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1\r\n      IF ( LROW .GT. MAXROW ) MAXROW = LROW\r\n      IROW1 = LROW + 1\r\n      IROWN = MAXROW\r\n      IRFLAG = 2\r\nC      PRINT *,' B1050,ICURCOL,IROWN,IROW1=',ICURCOL,IROWN,IROW1\r\n      IF ( IROWN .GE. IROW1 ) GO TO 6000\r\nC\r\nC SET UP DIRECTORY AND SAVE DATA EITHER\r\nC IN MEMORY OR ON SPILL FILE\r\nC\r\n 1050 CONTINUE\r\nC\r\nC RECOMPUTE LROW IN CASE NEW TERMS WERE ADDED FROM PREVIOUS PIVOT COLUMNS\r\nC      \r\n      LROW   = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1     \r\nC\r\nC INDEXR POINTS TO CURRENT DIRECTORY ENTRY BUT INDEXV POINTS TO NEXT\r\nC AVAILABLE POSITION FOR STORING TERMS\r\nC      \r\n      NRVALS = INDEXR - IRVAL + 2\r\n      NVVALS = INDEXV - IVVAL \r\n      NWORDS = NRVALS + NVVALS + 4\r\nC\r\nC SAVE DATA IN MEMORY AND SET DIRECTORY ACCORDINGLY\r\nC      \r\n      ITEST = IDBIND - NWORDS + 1\r\nC\r\nC MAKE SURE ITEST IS ON DOUBLE WORD BOUNDARY\r\nC      \r\n      IF ( MOD( ITEST,2 ) .EQ. 0 ) ITEST = ITEST - 1\r\nC\r\nC CHECK TO SEE IF THERE IS SUFFICIENT MEMORY\r\nC      \r\n      MAXNAR = MAX0( NRVALS, MAXNAR )\r\n      IF ( ITEST .LT. IDBASE ) GO TO 1800\r\n      IDBIND = ITEST\r\n      ZI( INDDIR     ) = IDBIND\r\n      ZI( INDDIR + 3 ) = 0\r\n      ZI( IDBIND     ) = ICURCOL\r\n      ZI( IDBIND + 1 ) = NRVALS\r\n      ZI( IDBIND + 2 ) = NWORDS\r\n      ZI( IDBIND + 3 ) = NTERMS\r\n      IDBIND = IDBIND + 3\r\n      DO 1100 K = 1, NRVALS\r\n      ZI( IDBIND + K ) = ZI( IRVAL + K - 1 )\r\n1100  CONTINUE\r\n      IDBIND = IDBIND + NRVALS\r\n      IF ( KPREC .EQ. 2 ) GO TO 1300\r\n      DO 1200 K = 1, NVVALS\r\n      ZI( IDBIND + K ) = ZI( IVVAL + K - 1 )\r\n1200  CONTINUE\r\n      GO TO 1400\r\n1300  INDXV = IDBIND / 2 \r\n      NV    = NVVALS / 2                   \r\n      IVD   = IVVAL  / 2 \r\n      DO 1350 K = 1, NV\r\n      ZD( INDXV+K ) = ZD( IVD+K )\r\n1350  CONTINUE\r\n1400  CONTINUE\r\n      IDBIND = IDBIND + NVVALS - NWORDS\r\n      LASCOL = ICURCOL\r\n      MEMCOLN= ICURCOL\r\n      ITEST  = NRVALS + NVVALS + 4\r\n      IF ( ITEST .GT. MXRECL ) MXRECL = ITEST\r\n      GO TO 2000\r\n1800  CONTINUE\r\n      IF ( OPNSCR ) GO TO 1810\r\n      OPNSCR = .TRUE.\r\n      CALL OPEN ( *7003, ISCR1, ZI(IBUF2), WRTREW )\r\nC\r\nC NO MORE MEMORY, SAVE COLUMN DATA TO SPILL FILE, KEEP RECORD POSITION\r\nC\r\n1810  ITEMP( 1 ) = ICURCOL\r\n      ITEMP( 2 ) = NRVALS\r\n      ITEMP( 3 ) = 0\r\n      ITEMP( 4 ) = NTERMS\r\n      CALL WRITE ( ISCR1, ITEMP, 4, 0 )\r\n      CALL SAVPOS( ISCR1, KPOS )            \r\n      CALL WRITE ( ISCR1, ZI( IRVAL ), INDEXR-IRVAL+2, 0 )\r\n      CALL WRITE ( ISCR1, ZI( IVVAL ), INDEXV-IVVAL+2, 1 )\r\n      ZI( INDDIR   ) = 0\r\n      ZI( INDDIR+3 ) = KPOS\r\n      NSPILL = NSPILL + 1\r\n      ITEST  = NRVALS + NVVALS + 4\r\n      IF ( ITEST .GT. MXRECL ) MXRECL = ITEST\r\n2000  CONTINUE\r\n      LROW   = ZI( INDEXR ) + ZI( INDEXR+1 ) - 1\r\nC\r\nC SAVE LAST PIVOT COLUMN FOR WHICH DATA IN THIS COLUMN IS USED\r\nC      \r\n      IF ( NTERMS .GT. MAXNAC ) MAXNAC = NTERMS\r\n      ZI( INDDIR+2 ) = LROW\r\n      IFIRSTC = ZI( INDDIR+1 )\r\n      MAXTES  = ( ICURCOL - IFIRSTC + 1 )\r\n      IF ( MAXTES .GT. MAXNCOL  ) MAXNCOL = MAXTES\r\n      MAXTES  = NTERMS * ( ICURCOL - IFIRSTC )\r\n      IF ( MAXTES .GT. MAXINLOP ) MAXINLOP = MAXTES\r\nC\r\nC CHECK TO DETERMINE IF ALL COLUMNS HAVE BEEN PROCESSED\r\nC      \r\n      IF ( ICURCOL .GE. NCOL ) GO TO 7777\r\nC\r\nC CHECK IF ONLY ONE TERM IN THIS COLUMN\r\nC      \r\n      IF ( NEXCOL .NE. 0 ) GO TO 2005\r\nC\r\nC MUST FIND FIRST NON-ZERO TERM FOLLOWING THE CURRENT PIVOT\r\nC      \r\n      DO 2002 K = ICURCOL+1, NCOL\r\n      IF ( ZI( IACROW+K ) .NE. ICURCOL ) GO TO 2002\r\n      NEXCOL = K\r\n      GO TO 2005\r\n2002  CONTINUE\r\n      WRITE ( NOUT, 9901 ) ICURCOL\r\n      GO TO 2030\r\n9901  FORMAT(' SYMMETRIC DECOMPOSITION FOUND NO TERMS BEING '\r\n     &,' CONNECTED TO DIAGONAL ON COLUMN ',I6)\r\n2005  CONTINUE\r\nC      PRINT *,' AFTER 2005,ICURCOL,NEXCOL=',ICURCOL,NEXCOL\r\nC\r\nC UPDATE ACTIVE ROWS IN COLUMN VECTOR FOR ALL TERMS OF THIS COLUMN\r\nC      \r\n      LEN = IRVAL + NRVALS - 1\r\n      DO 2010 K = IRVAL, LEN, 2\r\n      IROW = ZI( K )\r\n      NROW = IROW + ZI( K+1 ) - 1\r\n      DO 2010 L = IROW, NROW\r\n      ZI( IACROW + L - 1 ) = NEXCOL      \r\n2010  CONTINUE\r\n      DO 2020 L = ICURCOL+1, MAXROW\r\n      IF ( ZI( IACROW+L-1 ) .EQ. ICURCOL ) ZI( IACROW+L-1) = NEXCOL \r\n2020  CONTINUE\r\n2030  CONTINUE\r\nC\r\nC END OF CURRENT COLUMN, PREPARE FOR NEXT COLUMN\r\nC\r\nC      write ( nout, 901 ) icurcol\r\nC901   format(20x,' Active rows after processing column ',i10)\r\nC      do 2040 l = 1, ncol\r\nC      write ( nout, 902 ) l, zi(iacrow+l-1)\r\nC902   format(' Row, next reference =',2i7)\r\nC2040  continue\r\nC      write ( nout, 903 )\r\nC903   format(20x, ' Directory',/,\r\nC     &' Column  Memory Index   First Used    Last Used    Savpos')\r\nC      do 2050 l = 1, ncol\r\nC      ind = ( l-1 ) * 4 + 1\r\nC      write ( nout, 904 ) l, zi(ind), zi(ind+1), zi(ind+2), zi(ind+3)\r\nC904   format( i7, i14, i13, i13, i9)\r\nC2050  continue\r\n      ICURCOL = ICURCOL + 1    \r\n      INDDIR  = (ICURCOL-1)*4 + 1    \r\n      GO TO 50\r\nC\r\nC THE FOLLOWING IS AN INTERNAL ROUTINE TO ADD COMPUTED TERMS RESULTING\r\nC FROM THE PROCESSING OF PREVIOUS PIVOT COLUMNS INTO THE CURRENT ACTIVE\r\nC ROWS FOR THE CURRENT COLUMN \r\nC\r\n6000  CONTINUE\r\n      DO 6100 K = IROW1, IROWN\r\n      IF ( ZI(IACROW + K - 1 ) .LT. ICURCOL ) GO TO 6100\r\n      IF ( NEXCOL .EQ. 0 ) NEXCOL = K \r\nC\r\nC NEED TO ADD THIS TERM TO THE ACTIVE ROWS\r\nC CHECK TO SEE IF THIS TERM IS AN EXTENSION OF CURRENT TERMS\r\nC      \r\n      IF ( (ZI( INDEXR ) + ZI( INDEXR+1 ) ) .EQ. K )\r\n     &    GO TO 6010\r\nC\r\nC NO, NEED TO CREATE ANOTHER POINTER\r\nC      \r\n      INDEXR = INDEXR + 2\r\n      ZI( INDEXR )   = K\r\n      ZI( INDEXR+1 ) = 1\r\n      NTERMS         = NTERMS +1\r\n      GO TO 6020\r\n6010  CONTINUE\r\nC\r\nC JUST ADD TO THE NUMBER OF CONSECUTIVE VALUES FOR CURRENT ROW\r\nC      \r\n      ZI( INDEXR+1 ) = ZI( INDEXR+1 ) + 1\r\n      NTERMS         = NTERMS + 1\r\n6020  CONTINUE      \r\nC\r\nC NOW, ZERO OUT ROW VALUE\r\nC      \r\n      GO TO ( 6030, 6040, 6050, 6060), KTYPE\r\nC\r\nC TYPE IS REAL SP\r\nC\r\n6030  ZR( INDEXV ) = 0.\r\n      INDEXV = INDEXV + 1\r\n      GO TO 6100\r\nC\r\nC TYPE IS REAL DP\r\nC\r\n6040  ZD( INDEXVD ) = 0.D0\r\n      INDEXVD = INDEXVD + 1\r\n      INDEXV  = INDEXV  + 2\r\n      GO TO 6100\r\nC\r\nC TYPE IS COMPLEX SP\r\nC\r\n6050  ZR( INDEXV   ) = 0.\r\n      ZR( INDEXV+1 ) = 0.\r\n      INDEXV = INDEXV + 2\r\n      GO TO 6100\r\nC\r\nC TYPE IS COMPLEX DP\r\nC\r\n6060  ZD( INDEXVD   ) = 0.D0\r\n      ZD( INDEXVD+1 ) = 0.D0\r\n      INDEXVD = INDEXVD + 2\r\n      INDEXV  = INDEXV  + 4\r\n      GO TO 6100\r\n6100  CONTINUE\r\n      GO TO ( 150, 1050 ), IRFLAG\r\nC\r\nC INSUFFICIENT MEMORY\r\nC\r\n7001  MINMUM = NCOL*7 + 2*NCOL*IVWRDS + 2*ISYSBF \r\n      WRITE ( NOUT, 9001 ) UFM, MCB(1), CNAME, NCOL, KTYPE\r\n     &,                    LCORE, MINMUM\r\n9001  FORMAT(1X,A23,/,' INSUFFICIENT MEMORY TO DECOMPOSE MATRIX IN '\r\n     &,I4,' FILE NAME=',2A4\r\n     &,/,' NUMBER OF COLUMNS=',I7,' TYPE=',I2,' MEMORY AVAILABLE =',I10\r\n     &,/,' MINIMUM REQUIRED IS =',I10)\r\nC      CALL MESAGE ( -8, 0, 0 )\r\n      IERROR = 1\r\n      GO TO 7777\r\n7002  CALL FNAME ( MCB, NAME )\r\n      WRITE ( NOUT, 9002 ) UFM, MCB(1), CNAME\r\n9002  FORMAT(1X, A23, /,' SMCPH1 UNABLE TO OPEN FILE ',I4,' NAME= ',2A4)\r\n      IERROR = 2\r\n      CALL MESAGE ( -61, 0, 0 )\r\n7003  CALL FNAME ( ISCR1, NAME )\r\n      WRITE ( NOUT, 9003 ) UFM, ISCR1, CNAME\r\n9003  FORMAT(1X, A23, /,' SMCPH1 UNABLE TO OPEN FILE ',I4,' NAME= ',2A4)\r\n      IERROR = 2\r\n      CALL MESAGE ( -61, 0, 0 )\r\nC\r\nC ZERO ON DIAGONAL, TERMINATE DECOMPOSITION BUT FIRST SCAN REST OF\r\nC MATRIX TO DETERMINE OTHER COLUMNS WITH ZERO DIAGONALS.\r\nC\r\n7004  CONTINUE\r\n      IERROR = 7\r\n      IZEROS = 1\r\n      INDEXZ = 0\r\n      IF ( FRSTVAL ) GO TO 7020\r\n      CALL ENDGET ( MBLK )\r\n7010  CALL SKPREC ( MBLK, 1 )  \r\n7020  INDEXZ = INDEXZ + 1\r\n      ZI ( INDEXZ ) = ICURCOL\r\n7025  ICURCOL = ICURCOL + 1\r\n      IF ( ICURCOL .GT. NCOL ) GO TO 7050\r\n      MBLK( 8 ) = -1\r\n7030  CALL GETSTR ( *7020, MBLK )\r\n      CALL ENDGET ( MBLK ) \r\n      IF ( ICURCOL .GE. MROW .AND. ICURCOL .LE. MROW+MTERMS-1)GO TO 7040\r\n      IF ( MROW    .GT. ICURCOL ) GO TO 7010\r\n      GO TO 7030\r\n7040  CALL SKPREC ( MBLK, 1 )\r\n      GO TO 7025\r\n7050  CALL CLOSE ( MCB  , REW )\r\n      CALL CLOSE ( ISCR1, REW )\r\n      WRITE ( NOUT, 9050 ) UFM, CNAME, (ZI(K),K=1,INDEXZ)\r\n9050  FORMAT(A23,' 3097, SYMMETRIC DECOMPOSITION OF DATA BLOCK ',2A4\r\n     &,      ' ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR -'\r\n     &,/,(5X,20I6,/))\r\n      RETURN\r\n7777  CONTINUE\r\nC      CALL SMCHLP\r\nC      CALL SMCDMP ( ZI, ZR, ZD )\r\n7778  CONTINUE\r\n      CALL CLOSE ( MCB, REW )\r\n      ITWRDS  = IDBMAX - IDBIND\r\n      ITCOLS  = NCOL   - NSPILL\r\n      CALL SSWTCH ( 45, L45 )\r\n      IF ( L45 .EQ. 0 ) GO TO 7779\r\n      WRITE ( LOUT, 9004 ) ITCOLS , NSPILL , MAXNAC, MAXNCOL\r\n     &,                    MAXINLOP, ITWRDS\r\n9004  FORMAT(/\r\n     &  ,14X,' STATISTICS FOR SYMMETRIC DECOMPOSITION OF FILE ',/\r\n     &,/, 7X,' COLUMNS CONTAINED IN MEMORY                         =',I8\r\n     &,/, 7X,' COLUMNS WRITTEN TO SPILL FILE                       =',I8\r\n     &,/, 7X,' MAX. NO. OF ACTIVE ROWS FOR ANY ACTIVE COLUMN       =',I8\r\n     &,/, 7X,' MAX. NUMBER OF COLUMNS REFERENCED BY A PIVOT COLUMN =',I8   \r\n     &,/, 7X,' MAX. TERMS FOR ANY GIVEN INNER LOOP                 =',I8\r\n     &,/, 7X,' TOTAL WORDS IN OPEN CORE USED FOR COLUMN DATA       =',I8 \r\n     & )\r\n      WRITE ( LOUT, 9005 ) 'INPUT ', CNAME, CTYPE( MCB( 5 ) )\r\n      CALL FNAME ( LLL, NAME )\r\n      WRITE ( LOUT, 9005 ) 'OUTPUT', CNAME, CTYPE( KTYPE )\r\n9005  FORMAT(     \r\n     &   8X, A6,' FILE: ',2A4     ,'      DATA TYPE= ',A14 )\r\nc      CALL AUDIT( 'SMCPH1  ', 2 )\r\n7779  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcph2.f",
    "content": "      SUBROUTINE SMCPH2 ( ZI, ZR, ZD )              \r\nC     \r\nC SMCPH2 PERFORMS THE ACTUAL DECOMPOSITION OF THE MATRIX THAT WAS \r\nC SETUP IN MEMORY AND/OR THE SPILL BY SMCPH1.\r\nC SEE SMCPH1 FOR THE DEFINITION OF SOME OF THE VARIABLES IN /SMCOMX/\r\nC\r\n      REAL              ZR(10)\r\n      DOUBLE PRECISION  ZD(10)  ,XND(10)              \r\n      INTEGER           ZI(10)  ,ITEMP(4)\r\n      INTEGER           PRC     ,WORDS   ,RLCMPX  ,NAME(2)\r\n      CHARACTER*4       CNAME(2)\r\n      CHARACTER         UFM*23  ,UWM*25  ,UIM*29  ,SFM*25\r\n      INCLUDE           'SMCOMX.COM'                    \r\n      COMMON  /LOGOUT/  LOUT\r\n      COMMON  /XMSSG /  UFM     ,UWM     ,UIM     ,SFM\r\n      COMMON  /NAMES /  RDNRW   ,RDREW   ,WRT     ,WRTREW  ,REW     \r\n     1,                 NOREW   ,EOFNRW  ,RSP     ,RDP     ,CSP     \r\n     2,                 CDP     ,SQR     ,RECT    ,DIAG    ,LOWTRI  \r\n     3,                 UPRTRI  ,SYM\r\n      COMMON  /ZZZZZZ/  XNS(10)\r\n      COMMON  /TYPE  /  PRC(2)  , WORDS(4), RLCMPX(4)     \r\n      EQUIVALENCE       ( XNS, XND )\r\n      EQUIVALENCE       ( MBLK(6), MTERMS ), (MBLK(5), MSTR )\r\n      EQUIVALENCE       ( MBLK(4), MROW   ), (MBLK(2), MTYPE)\r\n      EQUIVALENCE       ( NAME   , CNAME  )\r\nc\r\nc   open core is allocated as follows for the decomposition\r\nc\r\nC       -------------------------------\r\nC       zi(1)\r\nC       Directory  (4,n) , n=number of columns of matrix\r\nC                  (1,i) = index to active rows and terms within memory\r\nC                  (2,i) = first column data needed for this pivot\r\nC                  (3,i) = last pivot column to use this data\r\nC                          (also, the last active row of this column)\r\nC                  (4,i) = savpos position pointer for data spilled to a\r\nC                          scratch file\r\nC       -------------------------------\r\nC       zi(nar)\r\nC       Area for storage of row numbers used for previous column of\r\nC       decomposition (length=MAXNAR+2)\r\nC       -------------------------------    \r\nC       zi(ispill)\r\nC       Area to read data from spill file (length =MXRECL+4)\r\nC       This area is not needed if no columns written to spill file\r\nC       -------------------------------\r\nC       zi(ILSROW)\r\nC       Area for storage of last non-zero row term for a given column\r\nC       (length=MAXNCOL)\r\nC       -------------------------------\r\nC       zi(ioloop)\r\nC       Values for outer loop terms in all row computations in the\r\nC       current pivotal column.\r\nC\r\nC         temp = temp + a(i,j) * a(k,j) / a(j,j)\r\nC                                ===============\r\nC            i = row of column\r\nC            k = pivotal column being processed\r\nC            j = 1, k-1\r\nC          a(i,k) = a(i,k) - temp\r\nC          (Note, length is 2*MAXNCOL)\r\nC          MAXNCOL = maximum number of columns referenced by any\r\nC                    pivotal column\r\nC       -------------------------------     \r\nC       zi(iiloop)\r\nC       Values for inner loop terms in each row computation\r\nC         temp = temp + a(i,j) * a(k,j) / a(j,j)\r\nC                       ======\r\nC            i = row of column\r\nC            k = pivotal column being processed\r\nC            j = 1, k-1\r\nC          a(i,k) = a(i,k) - temp  \r\nC          (Note, length is  MAXNCOL*MAXNAC)\r\nC          MAXNAC = MAXIMUM NUMBER OF ACTIVE ROWS FOR ANY GIVEN COLUMN\r\nC       -------------------------------         \r\nC       zi(iwork)\r\nC       Temporary storage for storing \"temp\" values for each row (see\r\nC       \"temp\" in above equation for zi(iiloop) )\r\nC       -------------------------------\r\nC       zi(idbase)\r\nC       Memory for rows and terms of columns as pointed to by directory\r\nC       in the first part of open core.  This data is loaded from the  \r\nC       bottom up to allow for better management of open core.\r\nC       The format for the storage of this data is as follows:\r\nC          (index from directory above points to the first word of the\r\nC           data that follows)\r\nC               1.  Column number\r\nC               2.  Length of active row section (m*2), m=number of\r\nC                   repeats of contents of words 5 and 6 below.\r\nC               3.  Total number of words in this block of allocation\r\nC               4.  Length of values section\r\nC               5.  row number\r\nC               6.  number of consecutive values beginning at this row\r\nC                   (words 5 and 6 repeat m times)\r\nC           5+2*m.  value for first row\r\nC     5+2*m+iprec.  next row value (iprec=1,2,4)\r\nC   5+2*m+iprec*l.  last row value for column (l=total values)\r\nC       -------------------------------         \r\nC       zi(ibuf2)\r\nC       Buffer for spill file if all column values can not be kept in memory   \r\nC       -------------------------------\r\nC       zi(ibuf1)\r\nC       Buffer for input matrix file to be decomposed\r\nC       -------------------------------\r\nC\r\nc      CALL AUDIT ('SMCPH2  ',1 )\r\n      NAR    = NCOL*4 + 1\r\n      ILSROW = NAR + MAXNAR + 2\r\n      MSPILL = 0\r\n      ISPILL = 0\r\n      IF ( NSPILL .EQ. 0 ) GO TO 5\r\n      ISPILL = NAR + MAXNAR + 1   \r\n      IF ( MOD( ISPILL,2 ) .EQ. 0 ) ISPILL = ISPILL + 1\r\n      ILSROW = ISPILL + MXRECL + 4\r\n5     CONTINUE\r\n      IOLOOP = ILSROW + MAXNCOL + 2  \r\n      IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1\r\n      IILOOP = IOLOOP + 2*MAXNCOL*IVWRDS\r\n      IWORK  = IILOOP + MAXNCOL*MAXNAC*IVWRDS\r\n      ITOTAL = IWORK  + MAXNAC*IVWRDS\r\n      INDDIR = LASCOL * 4 - 3\r\n      IDBASE = ZI( INDDIR )\r\n      MEMFRE = 0\r\n      MEMLAS = 0\r\n      MEMLCK = 0\r\n      MEMCOL1= 1\r\n      XNCOL  = NCOL\r\n      XSPILL = NSPILL \r\n      XFACT  = XNCOL / ( XNCOL-NSPILL )\r\nC\r\nC  MORE = ESTIMATED NUMBER OF WORDS NEEDED FOR STORING ALL OF MATRIX\r\nC  IADJ = WORDS OF COLUMN DATA THAT WILL NEED TO BE WRITTEN TO THE SPILL\r\nC         FILE TO ALLOW FOR \"ITOTAL\" WORDS FOR THE PHASE II ARRAYS.\r\nC\r\n      MORE   = XFACT * ( LCORE - IDBASE )\r\n      IADJ   = 0\r\n      IF ( ITOTAL .GT. IDBASE ) IADJ = ITOTAL - IDBASE\r\n      MAXMEM = ITOTAL + MORE + IADJ\r\n      CALL SSWTCH ( 45, L45 )\r\n      IF ( NSPILL .EQ. 0 .AND. L45 .EQ. 0 ) GO TO 10\r\n      WRITE ( LOUT, 8002 ) MAXMEM, LCORE\r\n8002  FORMAT(\r\n     &    7X,' ESTIMATED OPEN CORE NEEDED TO ELIMINATE USE OF SPILL=',I8\r\n     &,/, 7X,' OPEN CORE AVAILABLE FOR THIS DECOMPOSITION          =',I8 \r\n     & )\r\nC\r\nC TEST TO BE SURE THAT AT LEAST HALF OF THE MEMORY IS AVAILABLE.\r\nC IF NOT, USE OLD METHOD INSTEAD OF THIS ONE.\r\nC\r\n      XMAXMEM = MAXMEM\r\n      XCORE   = LCORE\r\n      PERCNT  = XCORE / XMAXMEM\r\n      IF ( PERCNT .LT. .5 ) GO TO 7008\r\nC\r\nC CHECK TO SEE IF ENOUGH OPEN CORE FOR INNER AND OUTER LOOP VALUES\r\nC\r\n10    IF ( ITOTAL .LT. IDBASE ) GO TO 500\r\nC\r\nC NEED MORE OPEN CORE FOR LOOP AREAS.  WRITE COLUMN DATA TO SPILL FILE.\r\nC IF COLUMNS WERE WRITTEN TO SPILL FILE FROM SMCPH1, THEN FILE WILL\r\nC STILL BE OPEN.  IF NOT, MUST ALLOW FOR SPILL AREA IN OPEN CORE AND\r\nC RE-ADJUST THE OPEN CORE POINTERS.\r\nC      \r\n      NEXTRA = 0\r\n      IF ( OPNSCR ) GO TO 20\r\n      OPNSCR = .TRUE.\r\n      CALL OPEN ( *7003, ISCR1, ZI( IBUF2 ), WRTREW )\r\n      ISPILL = NAR + MAXNAR + 1   \r\n      IF ( MOD( ISPILL,2 ) .EQ. 0 ) ISPILL = ISPILL + 1\r\n      ILSROW = ISPILL + MXRECL + 4\r\n      IOLOOP = ILSROW + MAXNCOL + 2\r\n      IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1\r\n      IILOOP = IOLOOP + 2*MAXNCOL*IVWRDS\r\n      IWORK  = IILOOP + MAXNCOL*MAXNAC*IVWRDS\r\n      ITOTAL = IWORK  + MAXNAC*IVWRDS\r\n20    CONTINUE\r\nC\r\nC WRITE THE LAST COLUMN OF DATA CURRENTLY IN MEMORY TO THE SPILL FILE\r\nC      \r\n      INDEX  = ZI( INDDIR ) \r\n      IRVAL  = INDEX + 4                                            \r\n      NRVALS = ZI( INDEX+1 )\r\n      NTERMS = ZI( INDEX+3 )                         \r\n      IVVAL  = IRVAL + NRVALS         \r\n      ITEMP( 1 ) = ZI( INDEX )\r\n      ITEMP( 2 ) = NRVALS\r\n      ITEMP( 3 ) = 0\r\n      ITEMP( 4 ) = NTERMS\r\nC      PRINT *,' SMCPH2 CALLING WRITE FOR ITEMP,NRVALS,NTERMS,IVWRDS'\r\nC      PRINT *,                           ITEMP,NRVALS,NTERMS,IVWRDS\r\n      CALL WRITE ( ISCR1, ITEMP, 4, 0 )\r\n      CALL SAVPOS( ISCR1, KPOS )   \r\n      CALL WRITE ( ISCR1, ZR( IRVAL ), NRVALS, 0 )\r\n      CALL WRITE ( ISCR1, ZR( IVVAL ), NTERMS*IVWRDS, 1 )  \r\n      ZI( INDDIR   ) = 0       \r\n      ZI( INDDIR+3 ) = KPOS\r\n50    INDDIR = INDDIR - 4\r\n      IF ( INDDIR .LE. 0 ) GO TO 7008\r\n      IF ( ZI ( INDDIR ) .EQ. 0 ) GO TO 50\r\nC\r\nC RESET IDBASE TO INDICATE THE LAST COLUMN OF DATA IN MEMORY\r\nC      \r\n      IDBASE = ZI( INDDIR )\r\n      MSPILL = MSPILL + 1\r\n      GO TO 10\r\nC\r\nC OPEN THE OUTPUT FILE\r\nC\r\n500   CONTINUE\r\n      LEFT   = IDBASE - ITOTAL\r\nC\r\nC DETERMINE HOW MANY MORE COLUMNS OF THE INNER LOOP AREA AND\r\nC EXTRA TERMS OF THE OUTER LOOP AREA ARE AVAILABLE\r\nC   NEXTRA = NUMBER OF EXTRA COLUMNS AVAILABLE IN THE INNER LOOP AREA\r\nC          = NUMBER OF EXTRA COLUMNS AVAILABLE IN THE OUTER LOOP AREA\r\nC            (INNER LOOP AREA SIZE = MAXNAC * ( MAXNCOL + NEXTRA ) )\r\nC            (OUTER LOOP AREA SIZE = 2      * ( MAXNCOL + NEXTRA ) )\r\nC          = NUMBER OF EXTRA ROWS IN THE \"ILSROW\" ARRAY (MAXNCOL+NEXTRA)\r\nC  (Note: for each column added, we need the following:\r\nC           for array ILSROW:                1\r\nC           to insure double word boundary:  1\r\nC           for outer loop:                  2*IVWRDS\r\nC           for inner loop:                  MAXNAC*IVWRDS\r\nC           ( must allow for temp array size:    MAXNAC*IVWRDS\r\n      NEED   = 2 + 2*IVWRDS + MAXNAC*IVWRDS\r\n      NEXTRA = ( LEFT - 2 - (MAXNAC*IVWRDS) ) / NEED\r\nC      PRINT *,' LEFT,NEED,NEXTRA=',LEFT,NEED,NEXTRA\r\n      IF ( NEXTRA .EQ. 0 ) GO TO 505\r\n      IOLOOP = ILSROW +            ( MAXNCOL+NEXTRA ) + 2   \r\n      IF ( MOD( IOLOOP,2 ) .EQ. 0 ) IOLOOP = IOLOOP + 1\r\n      IILOOP = IOLOOP + ( 2      * ( MAXNCOL+NEXTRA ) ) * IVWRDS\r\n      IWORK  = IILOOP + ( MAXNAC * ( MAXNCOL+NEXTRA ) ) * IVWRDS\r\n      ITOTAL = IWORK  +            ( MAXNAC           ) * IVWRDS\r\n505   IF ( KPREC .EQ. 2 ) IOLOOP = IOLOOP / 2 + 1\r\n      IF ( KPREC .EQ. 2 ) IILOOP = IILOOP / 2 + 1\r\n      IF ( KPREC .EQ. 2 ) IWORK  = IWORK  / 2 + 1\r\n      NVTERM = 1\r\n      IF ( KTYPE .GE. 3 ) NVTERM = 2\r\n      IF ( MSPILL .NE. 0 ) WRITE ( LOUT, 8001 ) MSPILL\r\n8001  FORMAT(8X,'ADDITIONAL COLUMNS WRITTEN TO SPILL '\r\n     &,'FOR PHASE II PROCESSING =',I6)\r\n      IF ( .NOT. OPNSCR ) GO TO 510\r\n      CALL CLOSE ( ISCR1, 1 )\r\n      CALL OPEN  ( *7002, ISCR1, ZI( IBUF2 ), RDREW )\r\n510   CONTINUE\r\n      CALL OPEN ( *7001, LLL, ZI( IBUF1 ), WRTREW )\r\n      CALL FNAME ( LLL, NAME )\r\n      CALL WRITE ( LLL, NAME, 2, 1 )\r\nC\r\nC DO THE DECOMPOSITION NOW\r\nC      \r\nc      CALL AUDIT ( 'SMC2RD  ', 1 )\r\nC      PRINT *,' IILOOP,IOLOOP,NAR,ILSROW,NEXTRA,IDBASE,IWORK,ISPILL'\r\nC      PRINT *,  IILOOP,IOLOOP,NAR,ILSROW,NEXTRA,IDBASE,IWORK,ISPILL\r\n      GO TO ( 1000, 2000, 3000, 4000 ), KTYPE\r\n1000  CONTINUE\r\n      CALL SMC2RS ( ZI, ZR, ZR( IILOOP ), ZR( IOLOOP ), ZI( NAR )\r\n     &,    ZI( ILSROW ), ZR( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR )\r\n      GO TO 5000\r\n2000  CONTINUE\r\n      CALL SMC2RD ( ZI, ZD, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR )\r\n     &,    ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR )\r\n      GO TO 5000\r\n3000  CONTINUE                 \r\nC      PRINT *,' CALLING SMC2CS'\r\n      CALL SMC2CS ( ZI, ZR, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR )\r\n     &,    ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR )\r\n      GO TO 5000\r\n4000  CONTINUE\r\nC      PRINT *,' CALLING SMC2CD'\r\n      CALL SMC2CD ( ZI, ZD, ZD( IILOOP ), ZD( IOLOOP ), ZI( NAR )\r\n     &,    ZI( ILSROW ), ZD( IWORK ), MAXNAC, MAXNCOL+NEXTRA, MAXNAR )\r\n      GO TO 5000\r\n5000  CONTINUE\r\nc      CALL AUDIT ( 'SMC2RD  ', 2 )\r\n      CALL CLOSE ( LLL  , 1 )\r\n      CALL CLOSE ( ISCR1, 1 )\r\n      GO TO 7777\r\n7001  CONTINUE\r\n      CALL FNAME ( LLL, NAME )\r\n      IERROR = 2\r\n      WRITE ( NOUT, 9001 ) UFM, LLL(1), CNAME\r\n9001  FORMAT(1X,A23,/,' SMCPH2 UNABLE TO OPEN FILE ',I4,' ;FILE NAME ='\r\n     &,  2A4 )\r\n      GO TO 7100\r\n7002  CALL FNAME ( ISCR1, NAME )\r\n      WRITE ( NOUT, 9001 ) UFM, ISCR1, CNAME\r\n      IERROR = 3\r\n      GO TO 7100\r\n7003  CONTINUE\r\n      IERROR = 2\r\n      CALL FNAME ( ISCR1, NAME )\r\n      WRITE ( NOUT, 9001 ) UFM, ISCR1, CNAME\r\n      GO TO 7100\r\n7008  CONTINUE\r\n      CALL FNAME ( LLL, NAME )\r\n      MINUM = (.5 * XMAXMEM ) - LCORE\r\n      WRITE ( LOUT, 9008 ) NCOL, MINUM\r\n9008  FORMAT(8X,'INSUFFICIENT OPEN CORE FOR DECOMPOSITION WITH NEW'\r\n     &,' METHOD'\r\n     &,/,    8X,'TOTAL NUMBER OF COLUMNS IN MATRIX =',I8\r\n     &,/,    8X,'SUGGESTED ADDITIONAL OPEN CORE IS =',I8)\r\n      CALL CLOSE ( ISCR1, 1 )\r\nC      CALL MESAGE ( -8, 0, 0 )\r\n      IERROR = 1\r\n      GO TO 7777\r\n7100  CALL MESAGE ( -61, 0, 0 )  \r\n7777  CONTINUE\r\nc      CALL AUDIT ( 'SMCPH2  ',2)\r\nc      CALL AUDIT ( 'END     ',1)\r\nc      IF ( NCOL .NE. 0 ) STOP\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcrtr.f",
    "content": "      SUBROUTINE SMCRTR ( ZR, ZD )\r\nC\r\nC  THIS SUBROUTINE MOVES DATA FROM STRINGS TO OPEN CORE AND PERFORMS      \r\nC  ANY TYPE CONVERSIONS REQUIRED.  KTYPE IS THE TYPE THAT THE\r\nC  DECOMPOSITION IS TO BE DONE.  MTYPE IS THE TYPE OF INPUT DATA ON\r\nC  THE MATRIX TO BE DECOMPOSED.  ISKIP IS THE NUMBER OF TERMS AT THE\r\nC  BEGINNING OF THE STRING TO SKIP OVER.\r\nC      \r\n      REAL              ZR(10)\r\n      DOUBLE PRECISION  XND(10), ZD(10)\r\n      INCLUDE 'SMCOMX.COM'\r\n      COMMON  /ZZZZZZ/  XNS(10)\r\n      EQUIVALENCE       ( XNS, XND )\r\n      EQUIVALENCE       ( MBLK(6), MTERMS ), (MBLK(5), MSTR )\r\n      EQUIVALENCE       ( MBLK(4), MROW   ), (MBLK(2), MTYPE)\r\n      GO TO ( 1000, 2000, 3000, 4000 ), KTYPE\r\n1000  GO TO ( 1010, 1020, 1030, 1040 ), MTYPE\r\nC\r\nC INPUT IS RS AND DECOMPOSITION TO BE DONE IN RS\r\nC\r\n1010  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 1015 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XNS( ISTR + K - 1 )\r\n1015  CONTINUE\r\n      INDEXV = INDEXV + NUM           \r\n      GO TO 7000\r\nC\r\nC INPUT IS RD AND DECOMPOSITION TO BE DONE IN RS   \r\nC\r\n1020  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 1025 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XND( ISTR + K - 1 )\r\n1025  CONTINUE\r\n      INDEXV  = INDEXV  + NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CS AND DECOMPOSITION TO BE DONE IN RS   \r\nC\r\n1030  CONTINUE\r\n      ISTR   = MSTR   + ISKIP*2\r\n      NUM    = MTERMS - ISKIP \r\n      DO 1035 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XNS( ISTR + (K-1)*2 )\r\n1035  CONTINUE\r\n      INDEXV = INDEXV + NUM           \r\n      GO TO 7000\r\nC\r\nC INPUT IS CD AND DECOMPOSITION TO BE DONE IN RS\r\nC\r\n1040  CONTINUE\r\n      ISTR   = MSTR   + ISKIP*2\r\n      NUM    = MTERMS - ISKIP \r\n      DO 1045 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XND( ISTR + (K-1)*2 )\r\n1045  CONTINUE\r\n      INDEXV  = INDEXV  + NUM\r\n      GO TO 7000\r\n2000  GO TO ( 2010, 2020, 2030, 2040 ), MTYPE\r\nC\r\nC INPUT IS RS AND DECOMPOSITION TO BE DONE IN RD\r\nC\r\n2010  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 2015 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XNS( ISTR + K - 1 )\r\n2015  CONTINUE\r\n      INDEXV  = INDEXV  + 2*NUM           \r\n      INDEXVD = INDEXVD + NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS RD AND DECOMPOSITION TO BE DONE IN RD   \r\nC\r\n2020  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 2025 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XND( ISTR + K - 1 )\r\n2025  CONTINUE\r\n      INDEXVD = INDEXVD + NUM               \r\n      INDEXV  = INDEXV  + 2*NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CS AND DECOMPOSITION TO BE DONE IN RD   \r\nC\r\n2030  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = MTERMS - ISKIP \r\n      DO 2035 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XNS( ISTR + (K-1)*2 )\r\n2035  CONTINUE\r\n      INDEXV  = INDEXV  + 2*NUM           \r\n      INDEXVD = INDEXVD + NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CD AND DECOMPOSITION TO BE DONE IN RD\r\nC\r\n2040  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = MTERMS - ISKIP \r\n      DO 2045 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XND( ISTR + (K-1)*2 )\r\n2045  CONTINUE\r\n      INDEXVD = INDEXVD + NUM           \r\n      INDEXV  = INDEXV  + 2*NUM\r\n      GO TO 7000\r\n3000  GO TO ( 3010, 3020, 3030, 3040 ), MTYPE\r\nC\r\nC INPUT IS RS AND DECOMPOSITION TO BE DONE IN CS\r\nC\r\n3010  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 3015 K = 1, NUM\r\n      ZR( INDEXV + (K-1)*2 )   = XNS( ISTR + K - 1 )\r\n      ZR( INDEXV + (K-1)*2+1 ) = 0.0\r\n3015  CONTINUE\r\n      INDEXV = INDEXV + 2*NUM           \r\n      GO TO 7000\r\nC\r\nC INPUT IS RD AND DECOMPOSITION TO BE DONE IN CS   \r\nC\r\n3020  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 3025 K = 1, NUM\r\n      ZR( INDEXV + (K-1)*2 )     = XND( ISTR + K - 1 )  \r\n      ZR( INDEXV + (K-1)*2 + 1 ) = 0.0D0  \r\n3025  CONTINUE\r\n      INDEXV  = INDEXV  + 2*NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CS AND DECOMPOSITION TO BE DONE IN CS   \r\nC\r\n3030  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = ( MTERMS - ISKIP ) * 2\r\n      DO 3035 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XNS( ISTR + K - 1 )\r\n3035  CONTINUE\r\n      INDEXV = INDEXV + NUM           \r\n      GO TO 7000\r\nC\r\nC INPUT IS CD AND DECOMPOSITION TO BE DONE IN CS\r\nC\r\n3040  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = ( MTERMS - ISKIP ) * 2\r\n      DO 3045 K = 1, NUM\r\n      ZR( INDEXV + K - 1 ) = XND( ISTR + K - 1 )\r\n3045  CONTINUE\r\n      INDEXV  = INDEXV  + NUM\r\n      GO TO 7000\r\n4000  GO TO ( 4010, 4020, 4030, 4040 ), MTYPE\r\nC\r\nC INPUT IS RS AND DECOMPOSITION TO BE DONE IN CD\r\nC\r\n4010  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 4015 K = 1, NUM\r\n      ZD( INDEXVD + (K-1)*2 )   = XNS( ISTR + K - 1 )\r\n      ZD( INDEXVD + (K-1)*2+1 ) = 0.0\r\n4015  CONTINUE\r\n      INDEXV = INDEXV   + 4*NUM           \r\n      INDEXVD = INDEXVD + 2*NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS RD AND DECOMPOSITION TO BE DONE IN CD   \r\nC\r\n4020  CONTINUE\r\n      ISTR   = MSTR   + ISKIP\r\n      NUM    = MTERMS - ISKIP \r\n      DO 4025 K = 1, NUM\r\n      ZD( INDEXVD + (K-1)*2 )     = XND( ISTR + K - 1 )  \r\n      ZD( INDEXVD + (K-1)*2 + 1 ) = 0.0D0  \r\n4025  CONTINUE\r\n      INDEXV  = INDEXV  + 4*NUM\r\n      INDEXVD = INDEXVD + 2*NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CS AND DECOMPOSITION TO BE DONE IN CD   \r\nC\r\n4030  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = ( MTERMS - ISKIP ) * 2\r\n      DO 4035 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XNS( ISTR + K - 1 )\r\n4035  CONTINUE\r\n      INDEXV  = INDEXV + 2*NUM           \r\n      INDEXVD = INDEXVD + NUM\r\n      GO TO 7000\r\nC\r\nC INPUT IS CD AND DECOMPOSITION TO BE DONE IN CD\r\nC\r\n4040  CONTINUE\r\n      ISTR   = MSTR + ISKIP*2\r\n      NUM    = ( MTERMS - ISKIP ) * 2\r\n      DO 4045 K = 1, NUM\r\n      ZD( INDEXVD + K - 1 ) = XND( ISTR + K - 1 )\r\n4045  CONTINUE\r\n      INDEXV  = INDEXV  + 2*NUM\r\n      INDEXVD = INDEXVD + NUM\r\n      GO TO 7000\r\n7000  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smcspl.f",
    "content": "      SUBROUTINE SMCSPL ( MCOL, ZI )\r\nC      \r\nC SMCSPL RETRIEVES COLUMN \"MCOL\" FROM THE SPILL FILE.\r\nC IF THIS COLUMN IS THE PIVOT COLUMN AND NO SPACE IS AVAILABLE, THEN\r\nC IN-MEMORY DATA WILL BE WRITTEN TO THE SPILL FILE TO MAKE SPACE\r\nC AVAILABLE FOR THE COLUMN DATA.  IF THE COLUMN IS NOT THE PIVOT \r\nC COLUMN, THEN THE DATA IS READ INTO THE SPILL ARRAY IN OPEN CORE.\r\nC WHEN A NEW PIVOT COLUMN IS DETERMINED, AN ANALYSIS IS DONE TO\r\nC FREE UP MEMORY OF COLUMN DATA NO LONGER NEEDED.\r\nC\r\n      INTEGER          ZI(10), ITEMP(4)\r\n      INCLUDE  'SMCOMX.COM'\r\n      CHARACTER    UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON / XMSSG / UFM, UWM, UIM, SFM\r\n      MDIR = (MCOL-1)*4 + 1\r\nC\r\nC POSITION SPILL FILE TO CORRECT RECORD FOR THIS COLUMN AND READ DATA\r\nC\r\n      CALL FILPOS ( ISCR1, ZI( MDIR+3 ) )\r\n      CALL READ ( *7001, *7002, ISCR1, ZI( ISPILL ), 4, 0, 4 )  \r\n      MM2    = ZI( ISPILL+1 )\r\n      MTERMS = ZI( ISPILL+3 )\r\n      MWORDS = MM2 + MTERMS * IVWRDS \r\nC      PRINT *,' SMCSPL,MM2,MTERMS,MWORDS=',MM2,MTERMS,MWORDS\r\n      CALL READ ( *7001, *7002, ISCR1, ZI( ISPILL+4 ),MWORDS,1,MWORDS ) \r\nC\r\nC CHECK IF WE HAVE ALREADY SCANNED FOR UNNEEDED COLUMNS FOR THIS PIVOT\r\nC      \r\nC      PRINT *,' SMCSPL,MEMLCK,KCOL=',MEMLCK,KCOL\r\n      IF ( MEMLCK .EQ. KCOL ) GO TO 300\r\n      MEMLCK = KCOL\r\nC\r\nC SCAN FOR COLUMNS NO LONGER NEEDED AND ADD THEM TO THE FREE CHAIN\r\nC      \r\n      IFIRST = 0\r\n      DO 200 I = MEMCOL1, KCOL\r\n      IDIR = (I-1)*4 + 1\r\nC\r\nC CHECK TO SEE IF THIS COLUMN NEEDED BY ANY SUBSEQUENT COLUMNS TO FOLLOW\r\nC\r\n      IF ( ZI( IDIR + 2 ) .GE. KCOL ) GO TO 199\r\nC      \r\nC DATA NO LONGER NEEDED, IS DATA IN MEMORY IF SO FREE THE SPACE TO THE\r\nC FREE CHAIN\r\nC\r\n      IF ( ZI( IDIR     ) .EQ. 0    ) GO TO 200\r\nC       \r\nC DATA IS IN MEMORY, RETURN SPACE TO FREE CHAIN\r\nC FIRST, CHECK IF A FREE CHAIN EXISTS\r\nC\r\n      IF ( MEMFRE .NE. 0 ) GO TO 100\r\nC\r\nC FREE CHAIN DOES NOT EXISTS, MAKE THIS SPACE THE FREE CHAIN      \r\nC\r\n      IIDX   = ZI( IDIR )\r\n      MEMFRE = IIDX\r\n      MEMLAS = IIDX\r\n      ZI( IIDX )   = 0\r\n      ZI( IIDX+1 ) = 0\r\n      ZI( IDIR   ) = 0\r\n      GO TO 200\r\nC\r\nC FREE CHAIN EXISTS, ADD THIS SPACE TO IT\r\nC\r\n100   LIDX   = MEMLAS\r\n      IIDX   = ZI( IDIR )\r\n      MEMLAS = IIDX\r\n      ZI( LIDX+1 ) = MEMLAS\r\n      ZI( IIDX   ) = LIDX\r\n      ZI( IIDX+1 ) = 0\r\n      ZI( IDIR   ) = 0\r\n      GO TO 200\r\n199   IF ( IFIRST .EQ. 0 ) IFIRST = I\r\n200   CONTINUE\r\n      MEMCOL1 = IFIRST\r\nC\r\nC CHECK IF THE FREE CHAIN IS EMPTY\r\nC\r\n300   IF ( MEMFRE .EQ. 0 ) GO TO 1000 \r\nC\r\nC LOOP THROUGH FREE CHAIN TO FIND BLOCK LARGE ENOUGH FOR DATA\r\nC      \r\n      IIDX = MEMFRE\r\n400   CONTINUE\r\n      IF ( ZI( IIDX+2 ) .GE. (MWORDS+4) ) GO TO 500\r\n      IIDX = ZI( IIDX+1 )\r\n      IF ( IIDX .NE. 0 ) GO TO 400\r\nC\r\nC FREE CHAIN EXHAUSTED WITHOUT LARGE ENOUGH BLOCK, MUST CREATE SPACE\r\nC      \r\nC      PRINT *,' SMCSPL GOING TO 1000 FROM 400'\r\n      GO TO 1000\r\nC\r\nC SPACE FOUND, USE THIS FOR THE COLUMN DATA READ FROM THE SPILL FILE.\r\nC RECONNECT FREE CHAIN WITHOUT THIS SPACE\r\nC\r\n500   ZI ( MDIR ) = IIDX\r\n      IPREV  = ZI( IIDX   )\r\n      INEXT  = ZI( IIDX+1 )\r\nC      PRINT *,' SMCSPL,AFTER 500,IPREV,INEXT=',IPREV,INEXT\r\n      IF ( IPREV .NE. 0 ) GO TO 510\r\n      IF ( INEXT .EQ. 0 ) GO TO 505 \r\n      ZI( INEXT ) = 0\r\n      MEMFRE      = INEXT\r\n      GO TO 530\r\n505   MEMFRE = 0\r\n      GO TO 530\r\n510   IF ( INEXT .EQ. 0 ) GO TO 520\r\nC      PRINT *,' SMCSPL,AFTER 510,INEXT,IPREV=',INEXT,IPREV\r\n      ZI( IPREV+1 ) = INEXT\r\n      ZI( INEXT   ) = IPREV\r\n      GO TO 530\r\n520   ZI( IPREV+1 ) = 0\r\n      MEMLAS        = IPREV\r\nC \r\nC MOVE DATA TO IN MEMORY LOCATION\r\nC\r\n530   CONTINUE\r\n      ZI( MDIR    ) = IIDX\r\n      ZI( MDIR+3  ) = 0   \r\n      ZI( IIDX    ) = MCOL\r\n      ZI( IIDX+1  ) = MM2\r\n      ZI( IIDX+3  ) = MTERMS\r\n      DO 540 J = 1, MWORDS\r\n      ZI( IIDX+J+3 ) = ZI (ISPILL+J+3 )\r\n540   CONTINUE\r\n      MEMCOLN = MCOL\r\nC      PRINT *,' SMCSPL,A540,IIDX,ZI(1-5=',IIDX,(ZI(IIDX+KB),KB=0,4)\r\n      GO TO 7777\r\nC\r\nC NO SPACE FOUND IN MEMORY FOR THIS DATA.\r\nC CHECK IF COLUMN BEING REQUESTED IS THE PIVOT COLUMN\r\nC\r\n 1000 CONTINUE \r\nC      PRINT *,' SMCSPL,MCOL,KCOL=',MCOL,KCOL\r\n      IF ( MCOL .NE. KCOL ) GO TO 2000 \r\nC\r\nC COLUMN REQUESTED IS THE PIVOT COLUMN, FIRST DETERMINE IF THERE\r\nC ARE CONTIGUOUS BLOCKS IN THE FREE CHAIN THAT CAN BE MERGED TOGETHER\r\nC\r\n      IF ( MEMFRE .EQ. 0 ) GO TO 1400\r\n      INDEX1 = MEMFRE\r\n      INDEXT = MEMFRE\r\n1100  CONTINUE\r\n      INDEX2 = ZI( INDEXT + 1 )\r\n      IF ( INDEX2 .EQ. 0 ) GO TO 1300\r\nC\r\nC COMPUTE THE LAST ADDRESS (PLUS 1) OF THIS FREE BLOCK AND COMPARE\r\nC IT WITH THE BEGINNING OF BLOCK REFERENCED BY VARIABLE \"INDEX1\"\r\nC      \r\n      IEND   = INDEX2 + ZI( INDEX2 + 2 )\r\n      IF ( IEND .EQ. INDEX1 ) GO TO 1200\r\nC\r\nC BLOCK IS NOT CONTIGUOUS, GO AND TEST NEXT BLOCK IN CHAIN\r\nC\r\n      INDEXT = INDEX2\r\n      GO TO 1100\r\nC \r\nC BLOCK IS CONTIGUOUS, MERGE THIS BLOCK AND THEN GO BACK TO\r\nC TEST THE FREE CHAIN FOR SPACE FOR THE CURRENT PIVOT COLUMN.\r\nC     EACH FREE CHAIN BLOCK HAS THE FOLLOWING FORMAT FOR THE FIRST 3\r\nC     WORDS: \r\nC             (1) = Pointer to previous block in chain\r\nC             (2) = Pointer to next block in chain\r\nC             (3) = Number of words in this block\r\nC         (Note: Blocks are allocated from high memory to low:)\r\nC              Memory Address N\r\nC                     Block k\r\nC                     Block k-1\r\nC                        .\r\nC                     Block 1\r\nC              Memory Address N+M\r\nC\r\n1200  CONTINUE\r\nC      PRINT *,' SMCSPL,A1200,INDEX1,INDEX2=',INDEX1,INDEX2\r\n      ZI( INDEX2+2 ) = ZI( INDEX1+2 ) + ZI( INDEX2+2 )\r\nC\r\nC RESET NEXT AND PREVIOUS POINTERS OF CHAIN BLOCKS\r\nC\r\n      INDEXP        = ZI( INDEX1 )\r\n      ZI( INDEX2 )  = INDEXP\r\n      IF ( INDEXP .EQ. 0 ) MEMFRE = INDEX2\r\n      IF ( INDEXP .NE. 0 ) ZI( INDEXP+1 ) = INDEX2\r\nC      PRINT *,' SMCSPL,A1200,MWORDS,ZI(INDEX1+2=',MWORDS,ZI(INDEX1+2)\r\n      IF ( ZI( INDEX2+2 ) .LT. (MWORDS+4) ) GO TO 1000\r\n      IIDX = INDEX2\r\n      GO TO 500\r\nC\r\nC  NO BLOCKS CONTIGUOUS WITH THIS BLOCK, GET NEXT BLOCK IN CHAIN\r\nC  AND CHECK FOR CONTIGUOUS BLOCKS WITH IT.\r\nC\r\n1300  CONTINUE\r\n      INDEX1 = ZI( INDEX1 + 1 )\r\nC\r\nC  FIRST CHECK THAT THERE IS ANOTHER BLOCK IN THE FREE CHAIN\r\nC\r\n      IF ( INDEX1 .EQ. 0 ) GO TO 1400\r\n      INDEXT = MEMFRE\r\n      GO TO 1100\r\n1400  CONTINUE\r\nC\r\nC COLUMN REQUESTED IS THE PIVOT COLUMN, MUST FIND MEMORY TO READ\r\nC THIS DATA INTO.  SEARCH FOR LAST COLUMN IN MEMORY WITH SUFFICIENT\r\nC SPACE AND WRITE THAT COLUMN TO SPILL AND READ THE PIVOT COLUMN DATA\r\nC INTO THE MEMORY THAT BECAME AVAILABLE.\r\nC      \r\n      IDIR   = (MEMCOLN-1) * 4 + 1\r\n      KCOLP1 = KCOL + 1\r\n      DO 1500 I = MEMCOLN, 1, -1\r\n      IF ( I .EQ. KCOL ) GO TO 1500\r\n      IDIR = (I-1)*4 + 1\r\nC\r\nC CHECK TO SEE IF DATA ALREADY ON SPILL FILE\r\nC      \r\n      IF ( ZI( IDIR ) .EQ. 0 ) GO TO 1500\r\nC\r\nC DATA IS IN MEMORY, CHECK TO SEE IF ENOUGH SPACE\r\nC      \r\n      IMIDX = ZI( IDIR )\r\n      IF ( ZI( IMIDX+2 ) .LT. (MWORDS+4) ) GO TO 1500\r\nC\r\nC SUFFICIENT SPACE, WRITE THIS COLUMN DATA TO THE SPILL FILE\r\nC TO MAKE ROOM FOR THE PIVOTAL COLUMN DATA TO BE KEPT IN MEMORY.\r\nC SKIP TO END OF FILE, BACKSPACE OVER EOF, CLOSE AND REOPEN FILE \r\nC FOR WRITE WITH APPEND.\r\nC      \r\n      CALL DSSEND( ISCR1 )\r\n      CALL SKPREC( ISCR1, -1 )\r\n      CALL CLOSE ( ISCR1,  2 )\r\n      CALL GOPEN ( ISCR1, ZI( IBUF2 ), 3 )\r\n      IM2    = ZI( IMIDX+1 )\r\n      ITERMS = ZI( IMIDX+3 ) \r\n      LENGTH = IM2 + ITERMS*IVWRDS\r\n      ITEMP( 1 ) = I\r\n      ITEMP( 2 ) = IM2\r\n      ITEMP( 3 ) = 0\r\n      ITEMP( 4 ) = ITERMS\r\n      CALL WRITE ( ISCR1, ITEMP , 4, 0 )\r\n      CALL SAVPOS( ISCR1, KPOS )  \r\n      CALL WRITE ( ISCR1, ZI( IMIDX+4 ), LENGTH, 1 )\r\n      CALL CLOSE ( ISCR1, 3 )\r\n      CALL GOPEN ( ISCR1, ZI( IBUF2 ), 0 )\r\nC \r\nC SET DIRECTORY AND MOVE DATA INTO MEMORY LOCATION\r\nC\r\nC      PRINT *,' SMCSPL B1450,IMIDX,ISPILL=',IMIDX,ISPILL\r\n      ZI( IDIR    ) = 0\r\n      ZI( IDIR+3  ) = KPOS\r\n      ZI( MDIR    ) = IMIDX\r\n      ZI( MDIR+3  ) = 0\r\n      ZI( IMIDX   ) = MCOL\r\n      ZI( IMIDX+1 ) = MM2\r\n      ZI( IMIDX+3 ) = MTERMS\r\nC      PRINT *,' SMCSPL,B1450,MCOL,MM2,MTERMS=',MCOL,MM2,MTERMS\r\n      DO 1450 J = 1, MWORDS\r\n      ZI( IMIDX+J+3 ) = ZI (ISPILL+J+3 )\r\n1450  CONTINUE\r\n      MEMCOLN = MCOL\r\nC      PRINT *,' SMCSPL,A1450,ZI(1-5=',(ZI(IMIDX+KB),KB=0,4)\r\n      GO TO 7777    \r\n1500  CONTINUE\r\nC\r\nC NONE OF THE EXISTING IN-MEMORY ALLOCATIONS ARE LARGE ENOUGH.\r\nC THEREFORE, MUST MERGE TWO TOGETHER TO TRY AND MAKE ENOUGH SPACE.\r\nC      \r\n      DO 1900 I = MEMCOLN, 1, -1\r\n      IF ( I .EQ. KCOL ) GO TO 1900\r\n      IDIR = ( I-1)*4 + 1\r\n      IF ( ZI( IDIR ) .EQ. 0 ) GO TO 1900\r\n      IMIDX1  = ZI( IDIR )\r\n      ISPACE1 = ZI( IMIDX1+2 )\r\nC      PRINT *,' SMCSPL,B1800,IMIDX1,ISPACE1=',IMIDX1,ISPACE1\r\n      IEND1   = IMIDX1 + ISPACE1\r\n      DO 1800 J = MEMCOLN, 1, -1\r\n      IF ( J .EQ. KCOL ) GO TO 1800\r\n      IF ( J .EQ. I    ) GO TO 1800\r\n      JDIR = ( J-1 ) * 4 + 1\r\n      IF ( ZI( JDIR ) .EQ. 0 ) GO TO 1800\r\n      JMIDX1  = ZI( JDIR )\r\n      ISPACE2 = ZI( JMIDX1+2 )\r\nC      PRINT *,' SMCSPL,I1800,JMIDX1,ISPACE2=',JMIDX1,ISPACE2\r\n      IEND2   = JMIDX1 + ISPACE2\r\n      IF ( IABS( IMIDX1-IEND2 ) .LE. 4 ) GO TO 1700\r\n      IF ( IABS( JMIDX1-IEND1 ) .LE. 4 ) GO TO 1700\r\n      GO TO 1800\r\nC\r\nC COLUMNS J AND I HAVE CONTIGUOUS MEMORY, CHECK IF COMBINED SPACE IS\r\nC LARGE ENOUGH FOR THIS COLUMN\r\nC\r\n1700  ITOTAL = ISPACE1 + ISPACE2\r\nC      PRINT *,' SMCSPL,A1700,ISPACE1,ISPACE2,ITOTAL,MWORDS='\r\nC     &,         ISPACE1,ISPACE2,ITOTAL,MWORDS\r\n      IF ( ITOTAL .LT. (MWORDS+4) ) GO TO 1900\r\nC\r\nC SPACE IS LARGE ENOUGH, SO WRITE COLUMNS I AND J TO SPILL AND MERGE\r\nC THE TWO AREAS TOGETHER.\r\nC SKIP TO END OF FILE, BACKSPACE OVER EOF, CLOSE AND REOPEN FILE \r\nC FOR WRITE WITH APPEND.\r\nC      \r\n      CALL DSSEND ( ISCR1 )\r\n      CALL SKPREC ( ISCR1, -1 )\r\n      CALL CLOSE  ( ISCR1,  2 )\r\n      CALL GOPEN  ( ISCR1, ZI( IBUF2 ), 3 )\r\nC\r\nC WRITE COLUMN I TO SPILL FILE\r\nC\r\n      IM2        = ZI( IMIDX1+1 )\r\n      ITERMS     = ZI( IMIDX1+3 )\r\n      ILEN       = IM2 + ITERMS*IVWRDS\r\n      ITEMP( 1 ) = I\r\n      ITEMP( 2 ) = IM2\r\n      ITEMP( 3 ) = 0\r\n      ITEMP( 4 ) = ITERMS\r\nC      PRINT *,' SMCSPL WRITING COLUMN I=',I\r\n      CALL WRITE ( ISCR1, ITEMP, 4, 0 )\r\n      CALL SAVPOS( ISCR1, KPOS ) \r\n      CALL WRITE ( ISCR1, ZI( IMIDX1+4 ), ILEN, 1 )\r\nC      \r\nC RESET DIRECTORY FOR COLUMN I\r\nC\r\n      ZI( IDIR   ) = 0\r\n      ZI( IDIR+3 ) = KPOS\r\nC\r\nC WRITE COLUMN J TO THE SPILL FILE\r\nC\r\n      JM2    = ZI( JMIDX1+1 )\r\n      JTERMS = ZI( JMIDX1+3 )\r\n      JLEN   = 4 + JM2 + JTERMS*IVWRDS\r\n      ITEMP( 1 ) = J\r\n      ITEMP( 2 ) = JM2\r\n      ITEMP( 3 ) = 0\r\n      ITEMP( 4 ) = JTERMS\r\nC      PRINT *,' SMCSPL,WRITING COLUMN J=',J\r\n      CALL WRITE ( ISCR1, ITEMP, 4, 0 )\r\n      CALL SAVPOS( ISCR1, KPOS )\r\n      CALL WRITE ( ISCR1, ZI( JMIDX1+4 ), JLEN, 1 )\r\nC \r\nC RESET DIRECTORY FOR COLUMN J\r\nC\r\n      ZI( JDIR   ) = 0\r\n      ZI( JDIR+3 ) = KPOS\r\n      CALL CLOSE ( ISCR1, 3 )\r\n      CALL GOPEN ( ISCR1, ZI( IBUF2 ), 0 )\r\n      INDEX = JMIDX1\r\n      IF ( IMIDX1 .LT. JMIDX1 ) INDEX = IMIDX1\r\nC\r\nC MOVE DATA INTO MEMORY LOCATION\r\nC\r\n      PRIN T*,' B1750,INDEX,ISPILL=',INDEX,ISPILL\r\n      ZI( INDEX   ) = MCOL   \r\n      ZI( INDEX+1 ) = MM2\r\n      ZI( INDEX+2 ) = ITOTAL\r\n      ZI( INDEX+3 ) = MTERMS\r\n      ZI( MDIR    ) = INDEX\r\n      ZI( MDIR+3  ) = 0\r\n      DO 1750 K = 1, MWORDS\r\n      ZI( INDEX+K+3 ) = ZI( ISPILL+K+3 )\r\n1750  CONTINUE\r\n      MEMCOLN = MCOL\r\n      GO TO 7777\r\n1800  CONTINUE\r\n1900  CONTINUE\r\n      GO TO 7003\r\nC\r\nC NO SPACE FOUND AND COLUMN IS NOT THE PIVOTAL COLUMN, USE DATA\r\nC FROM SPILL AREA\r\nC\r\n2000  CONTINUE\r\n7777  CONTINUE\r\nC      print *,' smcspl is returning, memfre=',memfre\r\nC      ikb = memfre\r\nC      do 9777 kk = 1, 100\r\nC      if ( ikb .eq. 0 ) go to 9778\r\nC      print *,' free block i,1-3=',kk,(zi(ikb+kb),kb=0,2)\r\nC      ikb = zi( ikb+1 )\r\nC9777  continue\r\nC9778  continue\r\n      RETURN\r\n7001  WRITE ( NOUT, 9001 ) UFM, KCOL\r\n9001  FORMAT(1X, A23,/,' UNEXPECTED END OF FILE FOR COLUMN ',I4\r\n     &,' IN SUBROUTINE SMCSPL')\r\n      IERROR = 3\r\n      GO TO 7070\r\n7002  WRITE ( NOUT, 9002 ) UFM, KCOL\r\n9002  FORMAT(1X, A23,/,' UNEXPECTED END OF RECORD FOR COLUMN ',I4\r\n     &,' IN SUBROUTINE SMCSPL')\r\n      IERROR = 3\r\n      GO TO 7070\r\n7003  WRITE ( NOUT, 9003 ) UFM, KCOL\r\n9003  FORMAT(1X,A23,/,' INSUFFICIENT CORE IN SUBROUTINE SMCSPL FOR'\r\n     &,' SYMMETRIC DECOMPOSITION, COLUMN=',I6)\r\n      IERROR = 1\r\n      GO TO 7070\r\n7070  CALL SMCHLP \r\n      CALL MESAGE( -61, 0, 0 )\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smleig.f",
    "content": "      SUBROUTINE SMLEIG(D,O,VAL)\r\nC\r\nC     COMPUTES EIGENVALUES AND VECTORS FOR 1X1 AND 2X2\r\nC\r\n      DOUBLE PRECISION D(2),O(2),VAL(2),P,Q\r\n      INTEGER ENTRY,XENTRY,SYSBUF,PHIA,MCB(7)\r\n      DIMENSION VCOM(30)\r\nC\r\n      COMMON/SYSTEM/SYSBUF\r\n      COMMON /GIVN / TITLE(150)\r\n      COMMON /PACKX/IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/IT3,III,JJJ,INCR1\r\nC\r\n      EQUIVALENCE\r\n     1 (MO,TITLE(2)),(MD,TITLE(3)),(ENTRY,TITLE(11)),(XENTRY,TITLE(20)),\r\n     2 (VCOM(1),TITLE(101)),(N,VCOM(1)),(LAMA,VCOM(6)),(PHIA,VCOM(12)),\r\n     3 (NFOUND,VCOM(10))\r\nC\r\n      DATA MCB/7*0/\r\nC\r\nC     D        ARRAY OF DIAGONALS\r\nC     O        ARRAY OF OFF DIAGONALS\r\nC     VAL      ARRAY OF EIGENVALUES\r\nC     LAMA     FILE OF EIGENVALUES--HEADER,VALUES,ORDER FOUND\r\nC     PHIA     FILE OF  VECTORS   --......,VECTORS-D.P.\r\nC     MO       RESTART TAPE FOR MORE EIGENVALUES\r\nC     MD       INPUT MATRIX\r\nC     N        ORDER OF  PROBLEM\r\nC     NFOUND   NUMBER OF EIGENVALUES/VECTOR PREVIOUSLY FOUND\r\nC\r\n      IBUF1 =(KORSZ(O) - SYSBUF +1 )/2  -1\r\nC\r\nC     OPEN INPUT MATRIX\r\nC\r\n      CALL GOPEN(MD,O(IBUF1),0)\r\nC\r\nC     SETUP FOR UNPACK\r\nC\r\n      IT3 = 2\r\n      III = 1\r\n      JJJ = N\r\n      INCR1= 1\r\n      ASSIGN 101 TO ITRA\r\n      CALL UNPACK(*1000,MD,D)\r\n  101 IF(N .EQ. 2) GO TO 110\r\nC\r\nC     THE MATRIX IS A 1X1\r\nC\r\n      O(1) = 0.0D0\r\n      VAL(1) = D(1)\r\n      LOC = 1\r\n      GO TO 120\r\nC\r\nC     THE MATRIX IS A 2X2\r\nC\r\n  110 O(1) = D(2)\r\n      O(2) = 0.0D0\r\n      ASSIGN 111 TO ITRA\r\n      III = 2\r\n      CALL UNPACK(*1000,MD,D(2))\r\n  111 P = D(1) + D(2)\r\n      Q = DSQRT( P*P -4.0D0*(D(1)*D(2)- O(1)**2))\r\n      VAL(1) =(P+Q)/2.0D0\r\n      VAL(2) = (P-Q)/2.0D0\r\n      LOC = 0\r\nC\r\nC     WRAP UP ROUTINE\r\nC\r\n  120 CALL CLOSE(MD,1)\r\nC\r\nC     COPY D,O,LOC ONTO MO FOR RESTART\r\nC\r\n      CALL GOPEN(MO,O(IBUF1),1)\r\nC\r\nC     SETUP FOR PACK\r\nC\r\n      IM1=1\r\n      IT1=2\r\n      IT2=2\r\n      II =1\r\n      JJ = N\r\n      INCR =1\r\n      CALL PACK(D,MO,MCB)\r\n      CALL PACK(O,MO,MCB)\r\n      CALL WRITE(MO,LOC,1,1)\r\n      CALL CLOSE(MO,1)\r\n      IF(N .NE. 1) GO TO 125\r\nC\r\nC     1X1 WRITE OUT VECTORS AND VALUES\r\nC\r\n      MCB(1) = PHIA\r\n      MCB(2) = 0\r\n      MCB(3) = 1\r\n      MCB(4) = 2\r\n      MCB(5) = 2\r\n      MCB(6) = 0\r\n      CALL GOPEN(PHIA,O(IBUF1),  1)\r\n      JJ = 1\r\n      CALL PACK(1.0D0,PHIA,MCB)\r\n      CALL CLOSE(PHIA,1)\r\n      CALL WRTTRL(MCB(1))\r\n      CALL GOPEN(LAMA,O(IBUF1),1 )\r\n      IF (NFOUND .EQ. 0) GO TO 128\r\n      DO 126 I= 1,NFOUND\r\n      CALL WRITE(LAMA,0.0,1,0)\r\n  126 CONTINUE\r\n  128 VALX = VAL(1)\r\n      CALL WRITE(LAMA,VALX,1,1)\r\n      IF (NFOUND .EQ. 0) GO TO 129\r\n      DO 127 I= 1,NFOUND\r\n      CALL WRITE(LAMA,I,1,0)\r\n  127 CONTINUE\r\n  129 CALL WRITE(LAMA,NFOUND+1,1,1)\r\n      CALL CLOSE(LAMA,1)\r\n      MCB(1) = LAMA\r\n      CALL WRTTRL(MCB)\r\n  125 XENTRY = -ENTRY\r\n      RETURN\r\n 1000 DO 1001 I =III,JJJ\r\n      D(I) = 0.0D0\r\n 1001 CONTINUE\r\n      GO TO  ITRA,(111,101)\r\n      END\r\n"
  },
  {
    "path": "mis/smleig1.f",
    "content": "      SUBROUTINE SMLEIG1(D,O,VAL)\r\nC\r\nC     COMPUTES EIGENVALUES AND VECTORS FOR 1X1 AND 2X2\r\nC\r\n      REAL    D(2),O(2),VAL(2),P,Q\r\n      INTEGER ENTRY,XENTRY,SYSBUF,PHIA,MCB(7)\r\n      DIMENSION VCOM(30)\r\nC\r\n      COMMON/SYSTEM/SYSBUF\r\n      COMMON /GIVN / TITLE(150)\r\n      COMMON /PACKX/IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/IT3,III,JJJ,INCR1\r\nC\r\n      EQUIVALENCE\r\n     1 (MO,TITLE(2)),(MD,TITLE(3)),(ENTRY,TITLE(11)),(XENTRY,TITLE(20)),\r\n     2 (VCOM(1),TITLE(101)),(N,VCOM(1)),(LAMA,VCOM(6)),(PHIA,VCOM(12)),\r\n     3 (NFOUND,VCOM(10))\r\nC\r\n      DATA MCB/7*0/\r\nC\r\nC     D        ARRAY OF DIAGONALS\r\nC     O        ARRAY OF OFF DIAGONALS\r\nC     VAL      ARRAY OF EIGENVALUES\r\nC     LAMA     FILE OF EIGENVALUES--HEADER,VALUES,ORDER FOUND\r\nC     PHIA     FILE OF  VECTORS   --......,VECTORS-D.P.\r\nC     MO       RESTART TAPE FOR MORE EIGENVALUES\r\nC     MD       INPUT MATRIX\r\nC     N        ORDER OF  PROBLEM\r\nC     NFOUND   NUMBER OF EIGENVALUES/VECTOR PREVIOUSLY FOUND\r\nC\r\nCWKBR 2/94      IBUF1 =(KORSZ(O) - SYSBUF +1 )/2  -1     \r\n      IBUF1 =(KORSZ(O) - SYSBUF +1 )  -1     \r\nC\r\nC     OPEN INPUT MATRIX\r\nC\r\n      CALL GOPEN(MD,O(IBUF1),0)\r\nC\r\nC     SETUP FOR UNPACK\r\nC\r\n      IT3 = 1\r\n      III = 1\r\n      JJJ = N\r\n      INCR1= 1\r\n      ASSIGN 101 TO ITRA\r\n      CALL UNPACK(*1000,MD,D)\r\n  101 IF(N .EQ. 2) GO TO 110\r\nC\r\nC     THE MATRIX IS A 1X1\r\nC\r\n      O(1) = 0.0\r\n      VAL(1) = D(1)\r\n      LOC = 1\r\n      GO TO 120\r\nC\r\nC     THE MATRIX IS A 2X2\r\nC\r\n  110 O(1) = D(2)\r\n      O(2) = 0.0\r\n      ASSIGN 111 TO ITRA\r\n      III = 2\r\n      CALL UNPACK(*1000,MD,D(2))\r\n  111 P = D(1) + D(2)\r\n      Q = SQRT( P*P -4.0*(D(1)*D(2)- O(1)**2))\r\n      VAL(1) =(P+Q)/2.0\r\n      VAL(2) = (P-Q)/2.0\r\n      LOC = 0\r\nC\r\nC     WRAP UP ROUTINE\r\nC\r\n  120 CALL CLOSE(MD,1)\r\nC\r\nC     COPY D,O,LOC ONTO MO FOR RESTART\r\nC\r\n      CALL GOPEN(MO,O(IBUF1),1)\r\nC\r\nC     SETUP FOR PACK\r\nC\r\n      IM1=1\r\n      IT1=1\r\n      IT2=1\r\n      II =1\r\n      JJ = N\r\n      INCR =1\r\n      CALL PACK(D,MO,MCB)\r\n      CALL PACK(O,MO,MCB)\r\n      CALL WRITE(MO,LOC,1,1)\r\n      CALL CLOSE(MO,1)\r\n      IF(N .NE. 1) GO TO 125\r\nC\r\nC     1X1 WRITE OUT VECTORS AND VALUES\r\nC\r\n      MCB(1) = PHIA\r\n      MCB(2) = 0\r\n      MCB(3) = 1\r\n      MCB(4) = 2\r\n      MCB(5) = 2\r\n      MCB(6) = 0\r\n      CALL GOPEN(PHIA,O(IBUF1),  1)\r\n      JJ = 1\r\n      CALL PACK(1.0,PHIA,MCB)\r\n      CALL CLOSE(PHIA,1)\r\n      CALL WRTTRL(MCB(1))\r\n      CALL GOPEN(LAMA,O(IBUF1),1 )\r\n      IF (NFOUND .EQ. 0) GO TO 128\r\n      DO 126 I= 1,NFOUND\r\n      CALL WRITE(LAMA,0.0,1,0)\r\n  126 CONTINUE\r\n  128 VALX = VAL(1)\r\n      CALL WRITE(LAMA,VALX,1,1)\r\n      IF (NFOUND .EQ. 0) GO TO 129\r\n      DO 127 I= 1,NFOUND\r\n      CALL WRITE(LAMA,I,1,0)\r\n  127 CONTINUE\r\n  129 CALL WRITE(LAMA,NFOUND+1,1,1)\r\n      CALL CLOSE(LAMA,1)\r\n      MCB(1) = LAMA\r\n      CALL WRTTRL(MCB)\r\n  125 XENTRY = -ENTRY\r\n      RETURN\r\n 1000 DO 1001 I =III,JJJ\r\n      D(I) = 0.0\r\n 1001 CONTINUE\r\n      GO TO  ITRA,(111,101)\r\n      END\r\n"
  },
  {
    "path": "mis/smmats.f",
    "content": "      SUBROUTINE SMMATS (A,IROWA,ICOLA,MTA,  B,IROWB,ICOLB,NTB,  C,E)\r\nC*****\r\nC     SMMATS - S P E C I A L   M A T R I X   M U L T I P L Y\r\nC                                 A N D\r\nC                           T R A N S P O S E\r\nC            S I N G L E  P R E C I S I O N  V E R S I O N\r\nC\r\nC     PERFORMS                                     WHEN\r\nC               A            *  B            =  C     MTA=0  NTB= 0\r\nC               A            *  B TRANSPOSE  =  C          0       1\r\nC               A TRANSPOSE  *  B            =  C          1       0\r\nC               A TRANSPOSE  *  B TRANSPOSE  =  C          1       1\r\nC  THE CORRESPONDING OPERATIONS ARE DONE ON -E- USING ABSOLUTE VALUES.\r\nC*****\r\nC     A -  IS A MATRIX (ROWA) ROWS BY (COLA) COLUMNS\r\nC     B -  IS A MATRIX (ROWB) ROWS BY (COLB) COLUMNS\r\nC     A,B AND C ARE STORED BY ROWS (EXAMPLE)\r\nC              MATRIX                   STORED\r\nC         A=   1    2              A=   1\r\nC              3    4                   2\r\nC              5    6                   3\r\nC                                       4\r\nC                                       5\r\nC                                       6\r\nC*****\r\nC*****\r\nC IF MTA .LT. 0, C AND E ARE NOT ZEROED OUT.  HENCE THE ROUTINE, IN THIS\r\nC     CASE, COMPUTES  A * B  +  D  =  C  WHERE THE MATRIX  D  HAS BEEN\r\nC     STORED ROW-WISE AT  C  BY THE CALLING PROGRAM.  IF MTA = -1,  A\r\nC     IS TRANSPOSED.  IF MTA = -2,  A  IS NOT TRANSPOSED.  NTB IS\r\nC     DEFINED AS ABOVE AND IS INDEPENDENT OF MTA.\r\nC\r\n      INTEGER   ROWA,COLA,  ROWB,COLB\r\n      DOUBLE PRECISION AIA,BJB,CIJ,EIJ\r\n      DIMENSION   A(1),B(1),C(1),IPARM(2)\r\n     1,           E(1)\r\nC\r\n      ROWA = IROWA\r\n      COLA = ICOLA\r\n      ROWB = IROWB\r\n      COLB = ICOLB\r\n      NTA = IABS(MTA)\r\n      IF (MTA .EQ. (-2)) NTA = 0\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 0) IF (COLA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 0) IF (ROWA - ROWB) 80,5,80\r\n      IF (NTA .EQ. 0  .AND.  NTB .EQ. 1) IF (COLA - COLB) 80,5,80\r\n      IF (NTA .EQ. 1  .AND.  NTB .EQ. 1) IF (ROWA - COLB) 80,5,80\r\n    5 IF (NTA .EQ. 1) GO TO 10\r\n      ILIM= ROWA\r\n      KLIM= COLA\r\n      INCI= COLA\r\n      INCKA= 1\r\n      GO TO 20\r\n   10 ILIM= COLA\r\n      KLIM= ROWA\r\n      INCI= 1\r\n      INCKA= COLA\r\n   20 IF(NTB.EQ.1) GO TO 30\r\n      JLIM= COLB\r\n      INCJ= 1\r\n      INCKB= COLB\r\n      GO TO 40\r\n   30 JLIM= ROWB\r\n      INCJ= COLB\r\n      INCKB= 1\r\n   40 IF (MTA .LT. 0) GO TO 47\r\n      LIM = ILIM * JLIM\r\n      DO 45 I = 1,LIM\r\n      E(I) = 0.0\r\n   45 C(I) = 0.0\r\n   47 IJ = 0\r\n      I = 0\r\n   50 I = I + 1\r\n      IFIX=I*INCI-COLA\r\n      J = 0\r\n   60 J = J + 1\r\n      IJ=IJ+1\r\n      IA=IFIX\r\n      JB=J*INCJ-COLB\r\n      CIJ=DBLE(C(IJ))\r\n      EIJ=DBLE(E(IJ))\r\n      K = 0\r\n   70 K = K + 1\r\n      IA=IA+INCKA\r\n      JB=JB+INCKB\r\n      AIA=DBLE(A(IA))\r\n      BJB=DBLE(B(JB))\r\n      CIJ=CIJ+ AIA * BJB\r\n      EIJ=EIJ+ DABS(AIA) * DABS(BJB)\r\n      IF (K .LT. KLIM) GO TO 70\r\n      C(IJ)=SNGL(CIJ)\r\n      E(IJ)=SNGL(EIJ)\r\n      IF (J .LT. JLIM) GO TO 60\r\n      IF (I .LT. ILIM) GO TO 50\r\n      RETURN\r\n   80 IPARM(1) = NTA\r\n      IPARM(2) = NTB\r\n      CALL MESAGE (-30,21,IPARM(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smp1.f",
    "content": "      SUBROUTINE SMP1\r\nC\r\nC     SMP1 PARTITIONS KFF INTO KAAB,KOAB AND KOOB\r\nC     GO IS SOLVED FROM THE EQUATION KOOB*GO = -KOAB\r\nC     KAA IS THEN COMPUTED FROM THE EQUATION KAA = KAAB + KOAB(T)*GO\r\nC     IF ANY OF THE MATRICES MFF, BFF OR K4FF IS PRESENT, THEN\r\nC     PARTITIONS ARE MADE AND THE EQUATION\r\nC     XAA = XAAB + GO(T)*XOAB + XOAB(T)*GO + GO(T)*XOOB*GO\r\nC     IS EVALUATED WHERE X = M OR B OR K4\r\nC\r\n      INTEGER         MCB(7), USET,   SCR1,   SCR2,    SCR3,\r\n     1                SCR4,   SCR5,   SCR6,   SCR7,    UF,\r\n     2                UA,     GO,     FF(3),  AAB,     OAB,\r\n     3                OOB,    AA(3),  BAA,    IOAB(3), IOOB(3),\r\n     4                UO,     BFF\r\n      COMMON /BITPOS/ UM,     UO,     UR,     USG,     USB,    UL,\r\n     1                UA,     UF,     US,     UN,      UG,     UE,\r\n     2                UP\r\n      EQUIVALENCE     (FF(3),MFF), (FF(2),BFF), (FF(1),K4FF),\r\n     1                (AA(3),MAA), (AA(2),BAA), (AA(1),K4AA),\r\n     2                (IOOB(3),OOB), (IOAB(3),OAB), (AAB,SCR5),\r\n     3                (IOOB(1),SCR6), (IOAB(1),SCR7)\r\n      DATA            USET,   KFF,    MFF,    BFF,     K4FF  /\r\n     1                101,    102,    103,    104,     105   /\r\n      DATA            GO,     KAA,    KOOB,   LOO,     MAA   /\r\n     1                201,    202,    203,    204,     205   /\r\n      DATA            OOB,    OAB,    BAA,    K4AA           /\r\n     1                206,    207,    208,    209            /\r\n      DATA            SCR1,   SCR2,   SCR3,   SCR4,    SCR5  /\r\n     1                301,    302,    303,    304,     305   /\r\n      DATA            SCR6,   SCR7,   IOOB(2),IOAB(2)        /\r\n     1                306,    307,    306,    307            /\r\nC\r\nC     MATRIX NAME EQUIVALENCES NOT REFERENCED\r\nC\r\nC     EQUIVALENCED    (AAB,   MAAB,   BAAB,   K4AAB,  SCR5)\r\nC                     (OOB,   MOOB,   BOOB,   K4OOB,  SCR6)\r\nC                     (OAB,   MOAB,   BOAB,   K4OAB,  SCR7)\r\nC\r\nC     PARTITION KFF INTO KAAB,KOAB, AND KOOB\r\nC\r\n      CALL UPART (USET,SCR1,UF,UA,UO)\r\n      CALL MPART (KFF,AAB,IOAB,0,KOOB)\r\nC\r\nC     DECOMPOSE KOOB INTO LOO\r\nC\r\n      CALL FACTOR (KOOB,LOO,SCR2,SCR3,SCR4,SCR6)\r\nC\r\nC     SOLVE KOOB*GO = -KOAB FOR GO\r\nC     THEN COMPUTE  KAA = KAAB + KOAB(T)*GO\r\nC\r\n      CALL SOLVER (LOO,GO,IOAB,AAB,KAA,0,0,SCR4)\r\nC\r\n      DO 40 I = 1,3\r\nC\r\nC                     K4FF\r\nC     TEST TO SEE IF   BFF  IS PRESENT\r\nC                      MFF\r\nC\r\n      MCB(1) = FF(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 40\r\nC\r\nC         K4FF                              K4AAB, K4OAB, K4OOB\r\nC     IF   BFF IS PRESENT, PARTITION INTO    BAAB,  BOAB,  BOOB\r\nC          MFF                               MAAB,  MOAB,  MOOB\r\nC\r\nC     THEN COMPUTE  K4AA, BAA, MAA  RESPECTIVELY\r\nC\r\n      CALL MPART (FF(I),AAB,IOAB(I),0,IOOB(I))\r\n      CALL ELIM  (AAB,IOAB(I),IOOB(I),GO,AA(I),SCR2,SCR3,SCR4)\r\n   40 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smp2.f",
    "content": "      SUBROUTINE SMP2\r\nC*****\r\nC THIS MODULE, WHICH IS CALLED ONLY FOR DIFFERENTIAL STIFFNESS, PARTI-\r\nC TIONS KDFF AND THEN COMPUTES KDAA AS FOLLOWS ....\r\nC                       I\r\nC               -D      I     D\r\nC               K       I    K\r\nC   D            AA     I     AO\r\nC  K   =     ----------------------\r\nC   FF                  I\r\nC                D  T   I     D\r\nC              (K  )    I    K\r\nC                AO     I     OO\r\nC                       I\r\nC\r\nC   D     -D         D                 D         T             D\r\nC  K   =  K     +   K    X  G    +   (K    X  G )    +   G  X K    X  G\r\nC   AA     AA        AO      O         AO      O          O    OO      O\r\nC\r\nC*****\r\nC\r\nC DMAP CALL ...\r\nC\r\nC     SMP2     USET,GO,KDFF/KDAA/\r\nC\r\n      INTEGER\r\n     1                   USET               ,GO\r\n     2,                  SCR1               ,SCR2\r\n     3,                  UF                 ,UA\r\n     4,                  UO                 ,MCB(7)\r\nC\r\nC\r\nC\r\n      COMMON /BLANK/ ICOM\r\nC\r\nC INPUT FILES\r\nC\r\n      DATA     USET,GO,KDFF /101,102,103/\r\nC\r\nC OUTPUT FILE\r\nC\r\n      DATA     KDAA /201/\r\nC\r\nC SCRATCH FILES\r\nC\r\n      DATA     SCR1,SCR2,KDAAB,KDAO,KDOO /301,302,303,304,305/\r\nC\r\nC USET BIT POSITIONS\r\nC\r\n      DATA     UF,UA,UO/26,25,30/\r\nC\r\nC  TEST FOR PRESENCE OF KDFF\r\nC\r\n      MCB(1)=KDFF\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1).LT.0) RETURN\r\nC\r\nC PARTITION KFF\r\nC\r\n      CALL UPART (USET,SCR1,UF,UA,UO)\r\n      CALL MPART (KDFF,KDAAB,KDAO,O,KDOO)\r\nC\r\nC COMPUTE KDAA\r\nC\r\n      CALL ELIM(KDAAB,KDAO,KDOO,GO,KDAA,SCR1,SCR2,306)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smpyad.f",
    "content": "      SUBROUTINE SMPYAD\r\nC\r\n      INTEGER         SRESLT   ,SADD     ,TMAT     ,TRLRA    ,TRLRB  ,\r\n     1                TRLRC    ,TRLRD    ,TRNSP    ,SIGNAB   ,SIGNC  ,\r\n     1                SCRTCH   ,TRLR(7,5),MAT(5)   ,ADDMAT   ,RESMAT ,\r\n     1                RECMAT   ,DOSI(3)  ,REFUS(3) ,OUTPT    ,NAME(2)\r\n      CHARACTER       UFM*23   ,UWM*25   ,UIM*29   ,SFM*25   ,SWM*27\r\n      COMMON /XMSSG / UFM      ,UWM      ,UIM      ,SFM      ,SWM\r\n      COMMON /MPYADX/ TRLRA(7) ,TRLRB(7) ,TRLRC(7) ,TRLRD(7) ,NA     ,\r\n     1                TRNSP    ,SIGNAB   ,SIGNC    ,IPREC1   ,SCRTCH\r\n     2       /ZZZZZZ/ A(1)\r\n     3       /BLANK / N        ,SRESLT   ,SADD     ,IPREC    ,TMAT(4)\r\n     4       /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (KSYSTM(55),KPREC) ,(KSYSTM(2),OUTPT)\r\n      DATA    MAT   / 101      ,102      ,103      ,104      ,105 /\r\n      DATA    ADDMAT, RESMAT   ,INTRES   ,MPYADS   ,RECMAT        /\r\n     1        106   , 201      ,301      ,302      ,2             /\r\n      DATA    DOSI  / 4HSING   ,4HDOUB   ,4HMLTP   /\r\n      DATA    REFUS / 2*3H     ,3HREF    /\r\n      DATA    NAME  / 4HSMPY   ,4HAD     /\r\n     1\r\nC\r\n      IF (N .LE. 1) GO TO 200\r\n      IF (N .GT. 5) N = 5\r\n      IPREC1 = 1\r\n      ITYPE  = 0\r\nC\r\nC     IF ONE OF THE -N- MATRICES IN THE PRODUCT DOES NOT EXIST,\r\nC     SKIP THE ENTIRE CALCULATION.\r\nC\r\n      DO 101 I = 1,N\r\n      TRLR(1,I) = MAT(I)\r\n      CALL RDTRL (TRLR(1,I))\r\n      IF (TRLR(1,I).LE.0 .OR. TRLR(2,I).LE.0 .OR. TRLR(3,I).LE.0)\r\n     1    GO TO 200\r\n      IF (TRLR(5,I).EQ.2 .OR. TRLR(5,I).EQ.4) IPREC1 = 2\r\n      IF (TRLR(5,I).EQ.3 .OR. TRLR(5,I).EQ.4) ITYPE  = 2\r\n  101 CONTINUE\r\nC\r\nC     CHECK TO SEE IF THE INPUT MATRICES ARE CONFORMABLE\r\nC\r\n      NM1  = N - 1\r\n      NOGO = 0\r\n      DO 170 I = 1,NM1\r\n      ICOL = TRLR(2,I)\r\n      IF (TMAT(I) .NE. 0) ICOL = TRLR(3,I)\r\n      IROW = TRLR(3,I+1)\r\n      IF (I .EQ. NM1) GO TO 160\r\n      IF (TMAT(I+1) .NE. 0) IROW = TRLR(2,I+1)\r\n  160 IF (ICOL .NE. IROW) NOGO = 1\r\n  170 CONTINUE\r\n      TRLRC(1) = ADDMAT\r\n      CALL RDTRL (TRLRC)\r\n      IF (TRLRC(1) .LE. 0) GO TO 180\r\n      IROW = TRLR(3,1)\r\n      IF (TMAT(1) .NE. 0) IROW = TRLR(2,1)\r\n      ICOL = TRLR(2,N)\r\n      IF (IROW.NE.TRLRC(3) .OR. ICOL.NE.TRLRC(2)) NOGO = 1\r\n  180 IF (NOGO .EQ. 1) CALL MESAGE (-55,0,NAME)\r\nC\r\n      IF (IPREC1.LT.1 .OR. IPREC1.GT.2) IPREC1 = KPREC\r\n      IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 222\r\n      IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3\r\n      WRITE  (OUTPT,221) SWM,DOSI(IPREC),REFUS(IPREC),NAME,DOSI(IPREC1)\r\n  221 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ',\r\n     1        2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE')\r\n      IF (IPREC .NE. 3) IPREC1 = IPREC\r\n  222 IPREC = IPREC1\r\n      ITYPE = ITYPE + IPREC1\r\nC\r\nC     SETUP THE MPYADX COMMON BLOCK.\r\nC\r\n      IF ((N+1)/2 .EQ. N/2) GO TO 105\r\n      TRLRB(1) = INTRES\r\n      M = RESMAT\r\n      GO TO 106\r\n  105 TRLRB(1) = RESMAT\r\n      M = INTRES\r\n  106 TRLRC(1) = 0\r\n      DO 107 I = 1,7\r\n      TRLRD(I) = TRLR(I,N)\r\n  107 CONTINUE\r\n      TRLRD(4) = RECMAT\r\n      NA = KORSZ(A)\r\n      SIGNAB = 1\r\n      SIGNC  = SADD\r\n      SCRTCH = MPYADS\r\nC\r\nC     DO THE N-1 MULTIPLICATIONS.\r\nC\r\n      DO 125 K = 2,N\r\n      J = N - K + 1\r\n      TRLRA(1) = TRLR(1,J)\r\n      IF (K .NE. 3) L = TRLRB(1)\r\n      IF (K .EQ. 3) L = M\r\n      TRLRB(1) = TRLRD(1)\r\n      TRLRD(1) = L\r\n      DO 110 I = 2,7\r\n      TRLRA(I) = TRLR(I,J)\r\n      TRLRB(I) = TRLRD(I)\r\n  110 CONTINUE\r\n      IF (K .NE. N) GO TO 111\r\n      TRLRC(1) = ADDMAT\r\n      CALL RDTRL (TRLRC)\r\n      IF (TRLRC(1). LT. 0) TRLRC(1) = 0\r\n      TRLRD(5) = ITYPE\r\n      SIGNAB   = SRESLT\r\n      GO TO 115\r\n  111 TRLRD(5) = IPREC1\r\n      IF (TRLRA(5).GT.2 .OR. TRLRB(5).GT.2) TRLRD(5) = IPREC1 + 2\r\n  115 TRNSP = TMAT(J)\r\n      TRLRD(3) = TRLRA(3)\r\n      IF (TRNSP .NE. 0) TRLRD(3) = TRLRA(2)\r\n      TRLRD(2) = TRLRB(2)\r\n      CALL MPYAD (A,A,A)\r\n  125 CONTINUE\r\n      IF (TRLRD(2) .EQ. TRLRD(3)) TRLRD(4) = 1\r\n      CALL WRTTRL (TRLRD)\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/smsg.f",
    "content": "      SUBROUTINE SMSG (NO,P1,P2)\r\nC\r\nC     MESSAGE WRITER FOR SUBSTRUCTURE DIAGNOSTICS, 61XX SERIES\r\nC\r\n      INTEGER         P1,P2(2),P3(2),POS(2),NEG(2),PNG(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,K\r\n      DATA    POS   , NEG/4HWARN,4HING ,4HFATA,4HL   /\r\n      DATA    NMSG  / 8  /, NMSG1 / 11 /\r\nC\r\n      L = IABS(NO)\r\n      MSGNO  = L + 6100\r\n      IF (L.LT.1 .OR. L.GT.NMSG) GO TO 99\r\n      IF (NO) 30,30,40\r\n   30 PNG(1) = NEG(1)\r\n      PNG(2) = NEG(2)\r\n      GO TO 50\r\n   40 PNG(1) = POS(1)\r\n      PNG(2) = POS(2)\r\n      GO TO 50\r\nC\r\nC\r\n      ENTRY SMSG1 (NO,P1,P2,P3)\r\nC     ========================\r\nC\r\n      L = IABS(NO)\r\n      IF (L.LE.NMSG .OR. L.GT.NMSG1) GO TO 99\r\nC\r\n   50 GO TO (1,2,3,4,5,6,7,8,9,10,11,12), L\r\n    1 WRITE (K,201) PNG,MSGNO\r\n      WRITE (K,101) P1,P2\r\n      GO TO 100\r\n    2 WRITE (K,201) PNG,MSGNO\r\n      WRITE (K,102) P1,P2\r\n      GO TO 100\r\n    3 WRITE (K,201) PNG,MSGNO\r\n      WRITE (K,103) P1,P2\r\n      GO TO 100\r\n    4 WRITE (K,201) PNG,MSGNO\r\n      WRITE (K,104) P2\r\n      GO TO 100\r\n    5 WRITE (K,201) PNG,MSGNO\r\n      WRITE (K,105) P2\r\n      GO TO 100\r\n    6 WRITE (K,200) PNG,MSGNO\r\n      WRITE (K,106) P1,P2\r\n      GO TO 100\r\n    7 WRITE (K,200) PNG,MSGNO\r\n      WRITE (K,107) P1,P2\r\n      GO TO 100\r\n    8 WRITE (K,200) PNG,MSGNO\r\n      WRITE (K,108) P1,P2\r\n      GO TO 100\r\n    9 WRITE (K,109) P3,P1,P2\r\n      GO TO 100\r\n   10 WRITE (K,110) P3,P1,P2\r\n      GO TO 100\r\n   11 WRITE (K,111) P3,P1,P2\r\n      GO TO 100\r\n   12 WRITE (K,112)\r\n      GO TO 100\r\n   99 WRITE (K,120) NO,P1,P2\r\n  100 IF (NO .GT. 0) RETURN\r\n      IF (L .LE. NMSG) CALL SOFCLS\r\n      WRITE (K,130)\r\n      CALL ERRTRC ('SMSG    ',130)\r\n      RETURN\r\nC\r\n  101 FORMAT (' REQUESTED SOF ITEM DOES NOT EXIST.  ITEM ',A4,\r\n     1        ', SUBSTRUCTURE ',2A4)\r\n  102 FORMAT (' REQUESTED SUBSTRUCTURE DOES NOT EXIST.  ITEM ',A4,\r\n     1        ', SUBSTRUCTURE ',2A4)\r\n  103 FORMAT (' REQUESTED SOF ITEM HAS INVALID NAME.  ITEM ',A4,\r\n     1        ', SUBSTRUCTURE ',2A4)\r\n  104 FORMAT (' ATTEMPT TO CREATE DUPLICATE SUBSTRUCTURE NAME ',2A4)\r\n  105 FORMAT (' ATTEMPT TO RE-USE SUBSTRUCTURE ',2A4,' IN A REDUCE ',\r\n     1       ' OR COMBINE OPERATION.  USE EQUIV SUBSTRUCTURE COMMAND')\r\n  106 FORMAT (' UNEXPECTED END OF GROUP ENCOUNTERED WHILE READING ITEM '\r\n     1,       A4,', SUBSTRUCTURE ',2A4)\r\n  107 FORMAT (' UNEXPECTED END OF ITEM ENCOUNTERED WHILE READING ITEM ',\r\n     1        A4,', SUBSTRUCTURE ',2A4)\r\n  108 FORMAT (' INSUFFICIENT SPACE ON SOF FOR ITEM ',A4,', SUBSTRUCTURE'\r\n     1,       1X,2A4)\r\n  109 FORMAT (A23,' 6211, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' HAS ALREADY BEEN WRITTEN.')\r\n  110 FORMAT (A23,' 6632, MODULE ',2A4,' - NASTRAN MATRIX FILE FOR I/O',\r\n     1       ' OF SOF ITEM ',A4,', SUBSTRUCTURE ',2A4,', IS PURGED.')\r\n  111 FORMAT (A23,' 6215, MODULE ',2A4,' - ITEM ',A4,\r\n     1       ' OF SUBSTRUCTURE ',2A4,' PSEUDO-EXISTS ONLY.')\r\n  112 FORMAT (' ')\r\n  120 FORMAT (' NO MESSAGE FOR MESSAGE NO.',I5,' PARAMETERS = ',2I10,\r\n     1        10X,2A10)\r\n  130 FORMAT (//,' FATAL ERROR')\r\n  200 FORMAT (' *** SYSTEM ',2A4,' MESSAGE',I5)\r\n  201 FORMAT (' *** USER ',2A4,' MESSAGE',I5)\r\n      END\r\n"
  },
  {
    "path": "mis/snpdf.f",
    "content": "      SUBROUTINE SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,EE,DIJ,BETA,\r\n     1                  CV)\r\nC\r\nC     SNPDF CALCULATES THE STEADY PART OF THE INFLUENCE COEFFICIENT\r\nC     MATRIX ELEMENTS\r\nC\r\n      TEST1 = 0.9999\r\n      TEST2 = 0.0001*EE\r\nC\r\nC     ***  TEST1 AND TEST2  SERVE AS A MEASURE OF  'NEARNESS'  WITH\r\nC     RESPECT TO THE BOUND-  AND TRAILING VORTICES RESPECTIVELY - SEE\r\nC     TESTS BELOW\r\nC     NOTE THAT THE MACH NUMBER EFFECT IS ACCOUNTED FOR BY STRETCHING\r\nC     THE  X-COORDINATES AND THE  SWEEP ANGLE OF THE BOUND VORTEX LINE\r\nC\r\n      TLB   = TL/BETA\r\n      SQTLB = SQRT(1.0+TLB**2)\r\n      SLB   = TLB/SQTLB\r\n      CLB   = 1.0/SQTLB\r\n      CAVE  = CV\r\n      CLSGS = CLB*SGS\r\n      CLCGS = CLB*CGS\r\n      EX    = EE*TLB\r\n      EY    = EE*CGS\r\n      EZ    = EE*SGS\r\n      X0B   = X0/BETA\r\n      RIX   = X0B+ EX\r\n      RIY   = Y0 + EY\r\n      RIZ   = Z0 + EZ\r\n      RIMAG = SQRT(RIX**2 + RIY**2 + RIZ**2)\r\n      ROX   = X0B- EX\r\n      ROY   = Y0 - EY\r\n      ROZ   = Z0 - EZ\r\n      ROMAG = SQRT(ROX**2 + ROY**2 + ROZ**2)\r\n      CAB   = (RIX*SLB+ RIY*CLCGS + RIZ*CLSGS)/RIMAG\r\n      CBB   = (ROX*SLB+ ROY*CLCGS + ROZ*CLSGS)/ROMAG\r\n      CBI   =-RIX/RIMAG\r\n      CAO   = ROX/ROMAG\r\n      RICAB = RIMAG*CAB\r\n      DBX   = RIX - RICAB*SLB\r\n      DBY   = RIY - RICAB*CLCGS\r\n      DBZ   = RIZ - RICAB*CLSGS\r\n      DB2   = DBX**2 + DBY**2 + DBZ**2\r\n      DI2   = RIY**2 + RIZ**2\r\n      DO2   = ROY**2 + ROZ**2\r\n      ACAB  = ABS(CAB)\r\n      ACBB  = ABS(CBB)\r\nC\r\nC     ***  THE FOLLOWING IS A TEST TO SEE IF THE RECEIVING POINT LIES ON\r\nC     OR NEAR THE BOUND VORTEX  --  IF SO, THE CONTRIBUTION OF THE BOUND\r\nC     VORTEX IS SET TO ZERO\r\nC\r\n      IF (ACAB .GT. TEST1) GO TO 30\r\n      IF (ACBB .GT. TEST1) GO TO 30\r\n      CACB = (CAB-CBB)/DB2\r\n      GO TO  60\r\n   30 IF (CAB*CBB) 40,50,50\r\n   40 CACB = 0.\r\n      GO TO 60\r\n   50 CACB = 0.5*ABS((1./RIMAG**2)-(1./ROMAG**2))\r\n   60 CONTINUE\r\n      VBY = CACB*(DBX*CLSGS - DBZ*SLB)\r\n      VBZ = CACB*(DBY*SLB - DBX*CLCGS)\r\nC\r\nC     ***  TEST TO SEE IF THE RECEIVING POINT LIES ON OR NEAR THE\r\nC     INBOARD TRAILING VORTEX  --  IF SO, THE CONTRIBUTION OF THE\r\nC     INBOARD TRAILING VORTEX IS SET TO ZERO\r\nC\r\n      IF (DI2 .GT. TEST2) GO TO 62\r\n      VIY  = 0.0\r\n      VIZ  = 0.0\r\n      GO TO  64\r\n   62 CONTINUE\r\n      ONECBI = (1.0-CBI)/DI2\r\n      VIY =  ONECBI*RIZ\r\n      VIZ = -ONECBI*RIY\r\n   64 CONTINUE\r\nC\r\nC     ***  TEST TO SEE IF THE RECEIVING POINT LIES ON OR NEAR THE\r\nC     OUTBOARD TRAILING VORTEX  --  IF SO, THE CONTRIBUTION OF THE\r\nC     OUTBOARD TRAILING VORTEX IS SET TO ZERO\r\nC\r\n      IF (DO2 .GT. TEST2) GO TO 66\r\n      VOY  = 0.0\r\n      VOZ  = 0.0\r\n      GO TO  68\r\n   66 CONTINUE\r\n      CAOONE = (1.0+CAO)/DO2\r\n      VOY = -CAOONE*ROZ\r\n      VOZ =  CAOONE*ROY\r\n   68 CONTINUE\r\n      VY  = VBY + VIY + VOY\r\n      VZ  = VBZ + VIZ + VOZ\r\n      WW  = VY*SGR - VZ*CGR\r\n      DIJ = WW*CAVE/25.132741\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sofcls.f",
    "content": "      SUBROUTINE SOFCLS\r\nC\r\nC     WRITES OUT AT THE TERMINATION OF A MODULE ALL THE IN CORE BUFFERS\r\nC     AND COMMON BLOCKS.\r\nC\r\n      LOGICAL         DITUP,MDIUP,NXTUP,OPNSOF,NXTRST\r\n      INTEGER         BUF,A,B,FILNAM,FILSIZ,PSSWRD,DIT,DITPBN,DITLBN,\r\n     1                MDI,MDIPBN,MDILBN\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / A(37)\r\n      COMMON /SYS   / B(6)\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      COMMON /SYSTEM/ NBUFF\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2),\r\n     1                FIRST,OPNSOF\r\n      EQUIVALENCE     (DIT   ,A(1) ),(DITPBN,A(2) ),(DITLBN,A(3) ),\r\n     1                (MDI   ,A(15)),(MDIPBN,A(16)),(MDILBN,A(17)),\r\n     2                (NXT   ,A(19)),(NXTPBN,A(20)),(NXTLBN,A(21)),\r\n     3                (DITUP ,A(34)),(MDIUP ,A(35)),(NXTUP ,A(36)),\r\n     4                (NXTRST,A(37))\r\n      DATA    IWRT  / 2 /\r\nC\r\n      IF (.NOT.OPNSOF) RETURN\r\n      IF (DITPBN .EQ. 0) GO TO 20\r\n      IF (.NOT.DITUP) GO TO 20\r\n      CALL SOFIO (IWRT,DITPBN,BUF(DIT-2))\r\n      DITUP = .FALSE.\r\n      GO TO 40\r\n   20 IF (NXTPBN .EQ. 0) GO TO 40\r\n      IF (.NOT.NXTUP) GO TO 40\r\n      CALL SOFIO (IWRT,NXTPBN,BUF(NXT-2))\r\n      NXTUP = .FALSE.\r\n   40 IF (MDIPBN .EQ. 0) GO TO 60\r\n      IF (.NOT.MDIUP) GO TO 60\r\n      CALL SOFIO (IWRT,MDIPBN,BUF(MDI-2))\r\n      MDIUP = .FALSE.\r\nC\r\nC     WRITE OUT COMMON BLOCKS.\r\nC\r\n   60 LAST = NBUFF - 4\r\n      DO 62 I = 1,LAST\r\n   62 BUF(DIT+I) = 0\r\n      BUF(DIT+1) = PSSWRD(1)\r\n      BUF(DIT+2) = PSSWRD(2)\r\n      BUF(DIT+4) = NFILES\r\n      DO 70 I = 1,NFILES\r\n      BUF(DIT+ 4+I) = FILNAM(I)\r\n      BUF(DIT+14+I) = FILSIZ(I)\r\n      BUF(DIT+33+I) = A(22+I)\r\n   70 CONTINUE\r\n      DO 80 I = 1,4\r\n      BUF(DIT+24+I) = B(I)\r\n   80 CONTINUE\r\n      BUF(DIT+29) = A(4)\r\n      BUF(DIT+30) = A(5)\r\n      BUF(DIT+31) = A(6)\r\n      BUF(DIT+32) = A(18)\r\n      BUF(DIT+33) = A(22)\r\n      BUF(DIT+44) = A(33)\r\n      NXTRST      = .FALSE.\r\n      BUF(DIT+45) = A(37)\r\n      BUF(DIT+46) = B(5)\r\n      BUF(DIT+47) = B(6)\r\nC\r\n      BUF(DIT+100) = NITEM\r\n      K = 100\r\n      DO 92 I = 1,NITEM\r\n      DO 90 J = 1,7\r\n   90 BUF(DIT+K+J) = ITEM(J,I)\r\n   92 K = K + 7\r\n      IBL = 1\r\n      DO 100 I = 1,NFILES\r\n      BUF(DIT+3) = I\r\n      CALL SOFIO (IWRT,IBL,BUF(DIT-2))\r\n      IBL = IBL + FILSIZ(I)\r\n  100 CONTINUE\r\n      CALL SOFIO (7, 0, 0)\r\n      OPNSOF = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sofi.f",
    "content": "      SUBROUTINE SOFI\r\nC\r\nC     MODULE USED TO COPY SELECTED ITEMS FROM SELECTED SUBSTRUCTURES\r\nC     ONTO NASTRAN MATRIX FILES.   THE CALLING SEQUENCE TO THE MODULE\r\nC     IS\r\nC     SOFI   /A,B,C,D,E/V,N,DRY/C,N,NAME/C,N,IA/C,N,IB/C,N,IC/C,N,ID/\r\nC                       C,N,IE $\r\nC\r\n      INTEGER         DRY,FILE,SYSBUF,XXXX\r\n      DIMENSION       FILE(5),MODNAM(2),MCB(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / DRY,NAME(2), ITEMS(2,5)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      DATA    FILE  / 201,202,203,204,205 /\r\n      DATA    IBLNK , XXXX/4H    ,4HXXXX  /\r\n      DATA    MODNAM/ 4HSOFI,4H           /\r\nC\r\n      DO 5 I = 1,5\r\n      IF (ITEMS(1,I).EQ.XXXX .OR. ITEMS(1,I).EQ.0) ITEMS(1,I) = IBLNK\r\n    5 CONTINUE\r\nC\r\n      NZ = KORSZ(IZ)\r\n      IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,MODNAM(1))\r\n      IB1 = NZ  - SYSBUF + 1\r\n      IB2 = IB1 - SYSBUF - 1\r\n      IB3 = IB2 - SYSBUF\r\n      CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3))\r\n      IF (DRY .GE. 0) GO TO 60\r\nC\r\nC     CHECK THE EXISTENCE OF THE SOF FILE.\r\nC\r\n      DO 50 I = 1,5\r\n      IF (ITEMS(1,I) .EQ. IBLNK) GO TO 50\r\n      MCB(1) = FILE(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 50\r\n      CALL SOFTRL (NAME(1),ITEMS(1,I),MCB)\r\n      ITEST = MCB(1)\r\n      GO TO (50,50,20,30,40), ITEST\r\n   20 WRITE (NOUT,1020) UWM,ITEMS(1,I),NAME(1),NAME(2)\r\n      GO TO 45\r\n   30 WRITE (NOUT,1030) UWM,NAME(1),NAME(2)\r\n      DRY = -2\r\n      GO TO 130\r\n   40 WRITE (NOUT,1040) UWM,ITEMS(1,I)\r\n   45 DRY = -2\r\n   50 CONTINUE\r\n      GO TO 130\r\nC\r\nC     COPY SOF DATA INTO NASTRAN DATA BLOCKS\r\nC\r\n   60 DO 120 I = 1,5\r\n      IF (ITEMS(1,I) .EQ. IBLNK) GO TO 120\r\n      MCB(1) = FILE(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 120\r\n      CALL MTRXI (FILE(I),NAME(1),ITEMS(1,I),0,ITEST)\r\n      GO TO (120,70,80,90,100,120), ITEST\r\n   70 WRITE (NOUT,1050) UWM,ITEMS(1,I),NAME(1),NAME(2)\r\n      GO TO 110\r\n   80 WRITE (NOUT,1020) UWM,ITEMS(1,I),NAME(1),NAME(2)\r\n      GO TO 120\r\n   90 WRITE (NOUT,1030) UWM,NAME(1),NAME(2)\r\n      DRY = -2\r\n      GO TO 130\r\n  100 WRITE (NOUT,1040) UWM,ITEMS(1,I)\r\n  110 DRY = -2\r\n  120 CONTINUE\r\n  130 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 1020 FORMAT (A25,' 6216, MODULE SOFI - ITEM ',A4,' OF SUBSTRUCTURE ',\r\n     1        2A4,' DOES NOT EXIST.')\r\n 1030 FORMAT (A25,' 6212, MODULE SOFI - THE SUBSTRUCTURE ',2A4,\r\n     1        ' DOES NOT EXIST.')\r\n 1040 FORMAT (A25,' 6213, MODULE SOFI - ',A4,' IS AN ILLEGAL ITEM NAME')\r\n 1050 FORMAT (A25,' 6215, MODULE SOFI - ITEM ',A4,' OF SUBSTRUCTURE ',\r\n     1        2A4,' PSEUDO-EXISTS ONLY.')\r\n      END\r\n"
  },
  {
    "path": "mis/sofint.f",
    "content": "      SUBROUTINE SOFINT (IB1,IB2,NUMB,IBL1)\r\nC\r\nC     CALLED ONCE BY EVERY RUN USING THE SOF UTILITY SUBROUTINES.\r\nC     SHOULD BE CALLED BEFORE ANY OF THEM IS CALLED.  IF THE SOF IS\r\nC     NOT EMPTY, SOME SECURITY CHECKS WILL BE TAKEN CARE OF, AND THE\r\nC     SOF COMMON BLOCKS WILL BE UPDATED AND WRITTEN OUT ON THE FIRST\r\nC     BLOCK OF EACH OF THE SOF FILES.  IF THE SOF IS EMPTY, THE DIT\r\nC     MDI, AND ARRAY NXT WILL BE INITIALIZED AND WRITTEN OUT ON THE\r\nC     THIRD, FOURTH, AND SECOND BLOCKS OF THE FIRST FILE OF THE SOF,\r\nC     AND THE SOF COMMON BLOCKS WILL BE INITIALIZED AND WRITTEN OUT\r\nC     ON THE FIRST BLOCK OF EACH OF THE SOF FILES.\r\nC\r\nC     THE FIRST BLOCK OF EACH OF THE SOF FILES CONTAINS THE FOLLOWING\r\nC     INFORMATION\r\nC       WORD                   WORD                   WORD\r\nC      NUMBER  CONTENTS       NUMBER  CONTENTS       NUMBER  CONTENTS\r\nC      ------  --------       ------  --------       ------  --------\r\nC       1- 2   PASSWORD          26   DIRSIZ            32   MDIBL\r\nC          3   FILE NUMBER       27   SUPSIZ            33   NXTTSZ\r\nC          4   NFILES            28   AVBLKS         34-43   NXTFSZ\r\nC       5-14   FILNAM            29   DITSIZ            44   NXTCUR\r\nC      15-24   FILSIZ            30   DITNSB            45   NXTRST\r\nC         25   BLKSIZ            31   DITBL             46   HIBLK\r\nC                                                       47   IFRST\r\nC\r\nC     STARTING AT LOCATION 100 THE CONTENTS OF THE ITEMDT COMMON BLOCK\r\nC     ARE STORED\r\nC\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ORF\r\n      LOGICAL         FIRST\r\n      INTEGER         FILNAM,FILSIZ,STATUS,FILE,PSSWRD,ORF,HIBLK,\r\n     1                BUF,RSHIFT,NAME(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27,SIM*31\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM,SIM\r\n      COMMON /MACHIN/ MAC,IHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2),\r\n     1                FIRST\r\n      COMMON /SYSTEM/ NBUFF,NOUT,X1(36),NBPC,NBPW,NCPW\r\n      COMMON /SYS   / NSBUFF,X4(3),HIBLK,IFRST\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    IRD,IWRT    /1, 2  /\r\n      DATA    IEMPTY,NAME /4H    ,4HSOFI,4HNT  /\r\nC\r\n      IF (NCPW .LE. 4) GO TO 5\r\n      N = NBPW - NBPC*4\r\n      DO 3 I = 1,10\r\n      FILNAM(I) = LSHIFT(RSHIFT(FILNAM(I),N),N)\r\n    3 CONTINUE\r\n    5 IF (NFILES .LE. 0) GO TO 1000\r\n      IF (STATUS .EQ. 0) GO TO 250\r\nC\r\nC     THE SOF IS NOT EMPTY.  READ THE FIRST BLOCK OF THE FIRST SOF FILE\r\nC     AND VERIFY THE SECURITY VARIABLES.\r\nC\r\n      FILE = FILNAM(1)\r\n      CALL SOFIO (IRD,1,BUF(IB1-2))\r\n      IF ((BUF(IB1+1).NE.PSSWRD(1)) .OR. (BUF(IB1+2).NE.PSSWRD(2)))\r\n     1     GO TO 1050\r\n      IF (BUF(IB1+3) .NE. 1) GO TO 1060\r\n      IF (BUF(IB1+25) .NE. NSBUFF) GO TO 1040\r\nC\r\nC     CHECK IF THE SPECIFIED NUMBER OF FILES AND THEIR SIZES IS ADEQUATE\r\nC\r\n      IF (BUF(IB1+4) .GE. NFILES) GO TO 10\r\n      MAX = BUF(IB1+4) - 1\r\n      GO TO 20\r\n   10 MAX = NFILES - 1\r\n   20 IF (MAX .LT. 1) GO TO 50\r\n      DO 30 I = 1,MAX\r\n      IF (BUF(IB1+14+I) .EQ. FILSIZ(I)) GO TO 30\r\n      FILE = FILNAM(I)\r\n      GO TO 1070\r\n   30 CONTINUE\r\nC\r\nC     CHECK IF ALL SOF FILES HAVE THE CORRECT PASSWORD AND SEQUENCE\r\nC     NUMBER\r\nC\r\n      MAX = MAX + 1\r\n      IBL = 1\r\n      DO 40 I = 2,MAX\r\n      FILE = FILNAM(I)\r\n      IBL  = IBL + FILSIZ(I-1)\r\n      CALL SOFIO (IRD,IBL,BUF(IB1-2))\r\n      IF ((BUF(IB1+1).NE.PSSWRD(1)) .OR. (BUF(IB1+2).NE.PSSWRD(2)))\r\n     1     GO TO 1050\r\n      IF (BUF(IB1+3) .NE. I) GO TO 1060\r\n   40 CONTINUE\r\n      CALL SOFIO (IRD,1,BUF(IB1-2))\r\n      MAX = MAX - 1\r\n   50 IF (BUF(IB1+14+MAX+1) .EQ. FILSIZ(MAX+1)) GO TO 130\r\n      MAXNXT = 0\r\n      IF (MAX .LT. 1) GO TO 70\r\n      DO 60 I = 1,MAX\r\n      MAXNXT = MAXNXT+BUF(IB1+33+I)\r\n   60 CONTINUE\r\n   70 LASTSZ = (FILSIZ(MAX+1)-1)/BUF(IB1+27)\r\n      IF (FILSIZ(MAX+1)-1 .EQ. LASTSZ*BUF(IB1+27)) GO TO 80\r\n      LASTSZ = LASTSZ + 1\r\n   80 MAXNXT = MAXNXT + LASTSZ\r\n      IF (BUF(IB1+33) .GT. MAXNXT) GO TO 1080\r\n      MAXOLD = MAXNXT - LASTSZ + BUF(IB1+33+MAX+1)\r\n      IF (BUF(IB1+33) .NE. MAXOLD) GO TO 130\r\n      IF (BUF(IB1+14+MAX+1) .GT. FILSIZ(MAX+1)) GO TO 1080\r\n      LSTSIZ = MOD(BUF(IB1+14+MAX+1)-2,BUF(IB1+27)) + 1\r\n      IF (LSTSIZ .EQ. BUF(IB1+27)) GO TO 130\r\nC\r\nC     THE SIZE OF THE LAST SUPERBLOCK THAT WAS USED ON FILE (MAX+1)\r\nC     SHOULD BE INCREASED.\r\nC\r\n      IF (FILSIZ(MAX+1)-BUF(IB1+14+MAX+1) .GE. BUF(IB1+27)-LSTSIZ)\r\n     1    GO TO 90\r\n      NUMB = FILSIZ(MAX+1) - BUF(IB1+14+MAX+1)\r\n      GO TO 100\r\n   90 NUMB = BUF(IB1+27) - LSTSIZ\r\n  100 IBL1 = 0\r\n      IF (MAX .LT. 1) GO TO 120\r\n      DO 110 I = 1,MAX\r\n      IBL1 = IBL1 + FILSIZ(I)\r\n  110 CONTINUE\r\n  120 IBL1 = IBL1 + BUF(IB1+14+MAX+1) + 1\r\n      GO TO 135\r\n  130 NUMB = 0\r\nC\r\nC     UPDATE THE VARIABLE WHICH INDICATES THE NUMBER OF FREE BLOCKS ON\r\nC     THE SOF.\r\nC\r\n  135 IF (NFILES-BUF(IB1+4)) 140,160,170\r\n  140 IDIFF = BUF(IB1+14+NFILES) - FILSIZ(NFILES)\r\n      MIN   = NFILES + 1\r\n      LAST  = BUF(IB1+4)\r\n      DO 150 I = MIN,LAST\r\n      IDIFF = IDIFF + BUF(IB1+14+I)\r\n  150 CONTINUE\r\n      GO TO 190\r\n  160 IDIFF = BUF(IB1+14+NFILES) - FILSIZ(NFILES)\r\n      GO TO 190\r\n  170 IHERE1 = BUF(IB1+4)\r\n      IDIFF  = BUF(IB1+14+IHERE1) - FILSIZ(IHERE1)\r\n      MIN    = BUF(IB1+4) + 1\r\n      DO 180 I = MIN,NFILES\r\n      IDIFF = IDIFF - FILSIZ(I)\r\n  180 CONTINUE\r\n  190 BUF(IB1+28) = BUF(IB1+28) - IDIFF\r\nC\r\nC     IF NO ITEM STRUCTURE IS ON THE SOF (THE SOF WAS CREATED BEFORE\r\nC     LEVEL 17.0) THEN USE THE LEVEL 16.0 ITEM STRUCTURE.\r\nC\r\n      IF (BUF(IB1+100).GT.0 .AND. BUF(IB1+100).LE.100) GO TO 198\r\n      WRITE (NOUT,6235) UWM\r\n      BUF(IB1+ 47) = 3\r\n      BUF(IB1+100) = 18\r\n      K = 100\r\n      DO 194 I = 1,18\r\n      DO 192 J = 1,7\r\n  192 BUF(IB1+K+J) = ITEM(J,I)\r\n  194 K = K + 7\r\n      GO TO 200\r\nC\r\nC     CHECK IF THE DIRECTORY SIZE HAS BEEN CHANGED\r\nC\r\n  198 IF (NITEM .EQ. BUF(IB1+100)) GO TO 200\r\n      WRITE (NOUT,6233) UWM\r\nC\r\nC     UPDATE THE COMMON BLOCKS USED BY THE SOF UTILITY SUBROUTINES.\r\nC\r\n  200 BUF(IB1+4) = NFILES\r\n      DO 210 I = 1,NFILES\r\n      BUF(IB1+4 +I) = FILNAM(I)\r\n      BUF(IB1+14+I) = FILSIZ(I)\r\n      BUF(IB1+33+I) = (FILSIZ(I)-1)/BUF(IB1+27)\r\n      IF (FILSIZ(I)-1 .EQ. BUF(IB1+33+I)*BUF(IB1+27)) GO TO 210\r\n      BUF(IB1+33+I) = BUF(IB1+33+I) + 1\r\n  210 CONTINUE\r\nC\r\nC     WRITE THE UPDATED ARRAY A ON THE FIRST BLOCK OF EACH OF THE SOF\r\nC     FILES.\r\nC\r\n      IBL = 1\r\n      DO 220 I = 1,NFILES\r\n      BUF(IB1+3) = I\r\n      CALL SOFIO (IWRT,IBL,BUF(IB1-2))\r\n      IBL = IBL + FILSIZ(I)\r\n  220 CONTINUE\r\n      GO TO 340\r\nC\r\nC     THE SOF IS EMPTY.  INITIALIZE THE SOF COMMON BLOCKS WHICH ARE\r\nC     STORED IN THE ARRAY A.\r\nC     CHECK IF THE NASTRAN BUFFER SIZE IS LARGE ENOUGH\r\nC\r\n  250 MIN = 100 + 7*NITEM + (NBUFF-NSBUFF)\r\n      IF (NBUFF .LT. MIN) GO TO 1090\r\n      LAST  = NBUFF - 4\r\n      HIBLK = 0\r\n      IFRST = 3\r\n      DO 255 I = 1,LAST\r\n  255 BUF(IB1+ I) = 0\r\n      BUF(IB1+ 1) = PSSWRD(1)\r\n      BUF(IB1+ 2) = PSSWRD(2)\r\n      BUF(IB1+25) = NSBUFF\r\n      BUF(IB1+26) = NITEM + IFRST - 1\r\n      BUF(IB1+27) = 2*(BUF(IB1+25)-1)\r\n      BUF(IB1+28) = -4\r\n      DO 260 I = 1,NFILES\r\n      BUF(IB1+28) = BUF(IB1+28) + FILSIZ(I)\r\n  260 CONTINUE\r\n      BUF(IB1+29) = 0\r\n      BUF(IB1+30) = 0\r\n      BUF(IB1+31) = 3\r\n      BUF(IB1+32) = 4\r\n      BUF(IB1+33) = 1\r\n      BUF(IB1+44) = 1\r\n      BUF(IB1+45) = 0\r\n      BUF(IB1+46) = 4\r\n      BUF(IB1+47) = IFRST\r\nC\r\n      BUF(IB1+100) = NITEM\r\n      K = 100\r\n      DO 280 I = 1,NITEM\r\n      DO 270 J = 1,7\r\n  270 BUF(IB1+K+J) = ITEM(J,I)\r\n  280 K = K + 7\r\nC\r\nC     INITIALIZE THE ARRAY NXT AND WRITE IT ON THE SECOND BLOCK OF THE\r\nC     FIRST SOF FILE.\r\nC\r\n      DO 300 I = 1,LAST\r\n      BUF(IB2+I) = 0\r\n  300 CONTINUE\r\n      IF (BUF(IB1+27)+1 .GT. FILSIZ(1)) GO TO 302\r\n      MAX = BUF(IB1+25) - 1\r\n      BUF(IB2+MAX+1) = LSHIFT(BUF(IB1+27)+1,IHALF)\r\n      BUF(IB2+1) = BUF(IB1+27) + 1\r\n      GO TO 308\r\n  302 IF (MOD(FILSIZ(1),2) .EQ. 1) GO TO 304\r\n      MAX = FILSIZ(1)/2\r\n      GO TO 306\r\n  304 MAX = (FILSIZ(1)-1)/2\r\n      BUF(IB2+MAX+1) = LSHIFT(FILSIZ(1),IHALF)\r\n  306 BUF(IB2+1) = FILSIZ(1)\r\n  308 BUF(IB2+1) = ORF(BUF(IB2+1),LSHIFT(5,IHALF))\r\n      BUF(IB2+2) = 0\r\n      BUF(IB2+3) = 6\r\n      DO 310 I = 4,MAX\r\n      BUF(IB2+I) = 2*I\r\n      BUF(IB2+I) = ORF(BUF(IB2+I),LSHIFT(2*I-1,IHALF))\r\n  310 CONTINUE\r\n      CALL SOFIO (IWRT,1,BUF(IB2-2))\r\n      CALL SOFIO (IWRT,2,BUF(IB2-2))\r\nC\r\nC     INITIALIZE THE DIT AND WRITE IT ON THE THIRD BLOCK OF THE FIRST\r\nC     SOF FILE.\r\nC\r\n      DO 320 I = 1,LAST\r\n      BUF(IB2+I) = IEMPTY\r\n  320 CONTINUE\r\n      CALL SOFIO (IWRT,3,BUF(IB2-2))\r\nC\r\nC     INITIALIZE THE MDI AND WRITE IT ON THE FOURTH BLOCK OF THE FIRST\r\nC     SOF FILE.\r\nC\r\n      DO 330 I = 1,LAST\r\n      BUF(IB2+I) = 0\r\n  330 CONTINUE\r\n      CALL SOFIO (IWRT,4,BUF(IB2-2))\r\n      NUMB = 0\r\n      GO TO 200\r\nC\r\nC     PRINT MESSAGE INDICATING THE STATUS OF THE CURRENT SOF FILES.\r\nC\r\n  340 WRITE (NOUT,360) SIM,NFILES\r\n      DO 350 I = 1,NFILES\r\n      WRITE (NOUT,370) I,FILSIZ(I)\r\n  350 CONTINUE\r\n      WRITE  (NOUT,380) BUF(IB1+25)\r\n  360 FORMAT (A31,' 6201,',I3,' FILES HAVE BEEN ALLOCATED TO THE SOF ',\r\n     1       'WHERE --')\r\n  370 FORMAT (18H     SIZE OF FILE ,I2,3H = ,I10,7H BLOCKS)\r\n  380 FORMAT (32H     AND WHERE A BLOCK CONTAINS ,I4,6H WORDS)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 1000 WRITE  (NOUT,1001) SFM\r\n 1001 FORMAT (A25,' 6202.  THE REQUESTED NO. OF FILES IS NON POSITIVE.')\r\n      CALL MESAGE (-37,0,NAME(1))\r\n      RETURN\r\nC\r\n 1040 I = (NBUFF-NSBUFF) + BUF(IB1+25)\r\n      WRITE  (NOUT,1041) UFM,I\r\n 1041 FORMAT (A23,' 6205, SUBROUTINE SOFINT - THE BUFFER SIZE HAS BEEN',\r\n     1       ' MODIFIED.', /30X,\r\n     2       'THE CORRECT NASTRAN PARAMETER IS BUFFSIZE = ',I6)\r\n      GO TO 1082\r\nC\r\n 1050 WRITE  (NOUT,1051) UFM,FILE\r\n 1051 FORMAT (A23,' 6206, SUBROUTINE SOFINT - WRONG PASSWORD ON SOF ',\r\n     1       'FILE ',A4,1H.)\r\n      GO TO 1082\r\nC\r\n 1060 WRITE  (NOUT,1061) UFM,FILE\r\n 1061 FORMAT (A23,' 6207, SUBROUTINE SOFINT - THE SOF FILE ',A4,\r\n     1       ' IS OUT OF SEQUENCE.')\r\n      GO TO 1082\r\nC\r\n 1070 WRITE  (NOUT,1071) UFM,FILE\r\n 1071 FORMAT (A23,' 6208, SUBROUTINE SOFINT - THE SIZE OF THE SOF FILE '\r\n     1,       A4,' HAS BEEN MODIFIED.')\r\n      GO TO 1082\r\nC\r\n 1080 WRITE  (NOUT,1081) UFM,FILE\r\n 1081 FORMAT (A23,' 6209, SUBROUTINE SOFINT - THE NEW SIZE OF FILE ',A4,\r\n     1       ' IS TOO SMALL.')\r\n 1082 CALL MESAGE (-61,0,0)\r\nC\r\n 1090 WRITE  (NOUT,1091) UFM,MIN\r\n 1091 FORMAT (A23,' 6234, THE NASTRAN BUFFER SIZE IS TO SMALL FOR THE',\r\n     1       ' SOF FILE.', /30X,'MINIMUM BUFFER SIZE IS ',I10)\r\n      GO TO 1082\r\nC\r\n 6233 FORMAT (A25,' 6233, THE ITEM STRUCTURE HAS BEEN CHANGED FOR THE ',\r\n     1       'SOF.', /32X,'NEW CAPABILITIES USING THESE ITEMS MAY NOT ',\r\n     2       'BE USED WITH THIS SOF.')\r\nC\r\n 6235 FORMAT (A25,'6235, THE OLD SOF CONTAINS NO ITEM STRUCTURE ',\r\n     1       'INFORMATION.', /27X,'THE LEVEL 16.0 ITEM STRUCTURE WILL ',\r\n     2       'BE USED.')\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/sofo.f",
    "content": "      SUBROUTINE SOFO\r\nC\r\nC     MODULE USED TO TRANSFER NASTRAN DATA BLOCKS TO THE SOF FILE FOR\r\nC     PURPOSES OF SAVING THE DATA FOR SUBSEQUENT RUNS OR SUBSEQUENT\r\nC     EXECUTION STEPS.  THE CALLING SEQUENCE TO THE MODULE IS\r\nC\r\nC     SOFO     A,B,C,D,E//V,N,DRY/C,N,NAME/C,N,IA/C,N,IB/C,N,IC/\r\nC                         C,N,ID/C,N,IE $\r\nC\r\n      INTEGER         SYSBUF,DRY,FILE,XXXX\r\n      DIMENSION       FILE(5),MODNAM(2),MCB(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / DRY,NAME(2),ITEMS(2,5)\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      DATA    FILE  / 101,102,103,104,105/\r\n      DATA    MODNAM/ 4HSOFO,4H    /\r\n      DATA    IBLNK , XXXX / 4H    ,4HXXXX/\r\nC\r\n      DO 5 I = 1,5\r\n      IF (ITEMS(1,I).EQ.XXXX .OR. ITEMS(1,I).EQ.0) ITEMS(1,I) = IBLNK\r\n    5 CONTINUE\r\nC\r\n      IF (DRY .LT. 0) RETURN\r\n      NZ = KORSZ(IZ)\r\n      IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,MODNAM(1))\r\n      IB1 = NZ  - SYSBUF + 1\r\n      IB2 = IB1 - SYSBUF - 1\r\n      IB3 = IB2 - SYSBUF\r\n      CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3))\r\nC\r\nC     COPY MATRICES FROM NASTRAN DATA BLOCKS TO SOF.\r\nC\r\n      DO 50 I = 1,5\r\n      IF (ITEMS(1,I) .EQ. IBLNK) GO TO 50\r\n      MCB(1) = FILE(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 50\r\n      CALL MTRXO (FILE(I),NAME(1),ITEMS(1,I),0,ITEST)\r\n      GO TO (10,50,50,20,30,50), ITEST\r\n   10 WRITE (NOUT,1010) UWM,ITEMS(1,I),NAME(1),NAME(2)\r\n      DRY = -2\r\n      GO TO 50\r\n   20 WRITE (NOUT,1020) UWM,NAME(1),NAME(2)\r\n      DRY = -2\r\n      GO TO 60\r\n   30 WRITE (NOUT,1030) UWM,ITEMS(1,I)\r\n      DRY = -2\r\n   50 CONTINUE\r\n   60 CALL SOFCLS\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n 1010 FORMAT (A25,' 6211, MODULE SOFO - ITEM ',A4,' OF SUBSTRUCTURE ',\r\n     1        2A4,' HAS ALREADY BEEN WRITTEN.')\r\n 1020 FORMAT (A25,' 6212, MODULE SOFO - THE SUBSTRUCTURE ',2A4,\r\n     1       ' DOES NOT EXIST.')\r\n 1030 FORMAT (A25,' 6213, MODULE SOFO - ',A4,' IS AN ILLEGAL ITEM NAME')\r\n      END\r\n"
  },
  {
    "path": "mis/sofopn.f",
    "content": "      SUBROUTINE SOFOPN (B1,B2,B3)\r\nC\r\nC     READS THE SOF AND SYS COMMON BLOCKS FROM THE DIRECT ACCESS STORAGE\r\nC     DEVICE, AND INITIALIZES THE POINTERS TO THE THREE BUFFERS NEEDED\r\nC     BY THE SOF UTILITY SUBROUTINES\r\nC\r\n      LOGICAL         FIRST,OPNSOF\r\n      INTEGER         B1(1),B2(1),B3(1),BUF,DIT,A,B,CORWDS,GINOBL\r\n      DIMENSION       NAME(2),IPTR(3)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / A(37)\r\n      COMMON /SYS   / B(6)\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10),STATUS,PSSWRD(2),\r\n     1                FIRST,OPNSOF\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      COMMON /GINOX / C(161),GINOBL\r\n      DATA    NAME  / 4HSOFO,4HPN  /\r\n      DATA    IRD   / 1 /\r\nC\r\n      IF (OPNSOF) GO TO 1000\r\nC\r\nC     CHECK IF THE OPEN CORE BUFFERS ARE LARGE ENOUGH AND DO NOT OVERLAP\r\nC\r\n      IPTR(1) = CORWDS(BUF,B1) + 2\r\n      IPTR(2) = CORWDS(BUF,B2) + 2\r\n      IPTR(3) = CORWDS(BUF,B3) + 2\r\n      ISIZ    = KORSZ(BUF)\r\n      DO 2 I = 1,3\r\n      IF (ISIZ-IPTR(I) .LT. NBUFF-3) CALL MESAGE (-8,0,NAME)\r\n    2 CONTINUE\r\n      DO 4 I = 1,2\r\n      K = I + 1\r\n      DO 3 J = K,3\r\n      ISIZ = IPTR(I) - IPTR(J)\r\n      IF (ISIZ .LT.     0) ISIZ = -ISIZ\r\n      IF (ISIZ .LT. NBUFF) CALL MESAGE (-8,0,NAME)\r\n    3 CONTINUE\r\n    4 CONTINUE\r\n      A( 1) = IPTR(1)\r\n      A( 7) = IPTR(2)\r\n      A(15) = IPTR(3)\r\n      A(19) = IPTR(1)\r\nC\r\nC     SET SOF BUFFER SIZE FROM /GINOX/\r\nC     ON IBM USE /SYSTEM/ BECAUSE /GINOX/ IS IN SUPER LINK\r\nC\r\n      B(1) = GINOBL\r\n      IF (MACH.EQ.2 .OR. MACH.GE.5) B(1) = NBUFF - 4\r\nCWKBD 3/94      IF (MACH .EQ. 12) B(1) =NBUFF -28\r\n      IF (FIRST) CALL SOFINT (IPTR(1),IPTR(2),NUMB,IBL1)\r\nC\r\nC     READ AND INITIALIZE THE COMMON BLOCKS SYS AND SOF\r\nC\r\n      DIT = IPTR(1)\r\n      CALL SOFIO (IRD,1,BUF(DIT-2))\r\n      DO 20 I = 1,4\r\n      B(I) = BUF(DIT+24+I)\r\n   20 CONTINUE\r\n      B(5) = BUF(DIT+46)\r\n      B(6) = BUF(DIT+47)\r\n      A(1) = IPTR(1)\r\n      A(2) = 0\r\n      A(3) = 0\r\n      A(4) = BUF(DIT+29)\r\n      A(5) = BUF(DIT+30)\r\n      A(6) = BUF(DIT+31)\r\n      A(7) = IPTR(2)\r\n      DO 30 I = 8,14\r\n      A(I) = 0\r\n   30 CONTINUE\r\n      A(15) = IPTR(3)\r\n      A(16) = 0\r\n      A(17) = 0\r\n      A(18) = BUF(DIT+32)\r\n      A(19) = IPTR(1)\r\n      A(20) = 0\r\n      A(21) = 0\r\n      A(22) = BUF(DIT+33)\r\n      DO 35 I = 1,NFILES\r\n      A(22+I) = BUF(DIT+33+I)\r\n   35 CONTINUE\r\n      A(33) = BUF(DIT+44)\r\n      A(34) = 0\r\n      A(35) = 0\r\n      A(36) = 0\r\n      A(37) = BUF(DIT+45)\r\nC\r\nC     INITILIZE COMMON BLOCK ITEMDT\r\nC\r\n      NITEM = BUF(DIT+100)\r\n      K = 100\r\n      DO 38 I = 1,NITEM\r\n      DO 37 J = 1,7\r\n   37 ITEM(J,I) = BUF(DIT+K+J)\r\n   38 K = K + 7\r\n      OPNSOF = .TRUE.\r\n      IF (.NOT. FIRST) RETURN\r\n      FIRST  = .FALSE.\r\n      IF (NUMB .EQ. 0) RETURN\r\nC\r\nC     ADD THE NUMBER NUMB OF BLOCKS TO THE SUPERBLOCK WHOSE SIZE\r\nC     NEEDED TO BE INCREASED\r\nC\r\n      DO 40 I = 1,NUMB\r\n      CALL RETBLK (IBL1+I-1)\r\n   40 CONTINUE\r\n      B(4) = B(4) - NUMB\r\n      RETURN\r\nC\r\nC     ERROR MESSAGE\r\nC\r\n 1000 WRITE  (NOUT,1001) UFM\r\n 1001 FORMAT (A23,' 6222 - ATTEMPT TO CALL SOFOPN MORE THAN ONCE ',\r\n     1       'WITHOUT CALLING SOFCLS.')\r\n      CALL SOFCLS\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sofsiz.f",
    "content": "      INTEGER FUNCTION SOFSIZ (DUM)\r\nC*****\r\nC     RETURNS THE REMAINING NUMBER OF AVAILABLE WORDS ON THE SOF.\r\nC*****\r\n      INTEGER      BLKSIZ,AVBLKS\r\n      DIMENSION    NMSBR(2)\r\n      COMMON /SYS/ BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS\r\n      DATA  NMSBR/ 4HSOFS,4HIZ  /\r\nC*****\r\n      CALL CHKOPN (NMSBR(1))\r\n      SOFSIZ = BLKSIZ*AVBLKS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/softoc.f",
    "content": "      SUBROUTINE SOFTOC\r\nC\r\nC     SOF TABLE OF CONTENTS ROUTINE\r\nC\r\nC\r\nC     THE CURRENT SUBSTRUCTURE TYPE BIT POSITIONS ARE -\r\nC\r\nC        NO BIT - BASIC SUBSTRUCTURE (EXCEPT IMAGE BIT)\r\nC        BIT 30 - IMAGE SUBSTRUCTURE\r\nC            29 - COMBINED SUBSTRUCTURE\r\nC            28 - GUYAN REDUCTUION SUBSTRUCTURE\r\nC            27 - MODAL REDUCTION SUBSTRUCTURE\r\nC            26 - COMPLEX MODAL REDUCTION SUBSTRUCTURE\r\nC\r\nC     TO ADD A NEW SUBSTRUCTURE TYPE BIT THE FOLLOWING UPDATES ARE\r\nC     REQUIRED.\r\nC\r\nC        1) INCREASE THE DEMENSION OF TYPE.\r\nC        2) INCREASE THE VALUE OF NTYPE IN THE DATA STATEMENT.\r\nC        3) ADD A NEW BCD TYPE VALUE TO THE DATA STATEMENT.\r\nC\r\nC\r\nC     THIS ROUTINE IS CURRENTLY CODED TO HANDLE UP TO 27 SOF ITEMS\r\nC     AUTOMATICALLY.\r\nC     TO INCREASE THIS TO 40 ITEMS PERFORM THE FOLLOWING UPDATES.\r\nC\r\nC        1) CHANGE THE DIMENSION OF HDR TO (40,4)\r\nC        2) CHANGE THE DIMENSION OF ITM TO (40)\r\nC        3) CHANGE THE VALUE OF MAXITM IN THE DATA STATEMENT TO 40\r\nC        4) CHANGE THE INNER GROUPS ON FORMAT 80 TO 39(A1,1X),A1\r\nC        5) CHANGE THE INNER GROUP ON FORMAT 100 TO 39(A1,1X),A1\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF\r\n      INTEGER         AVBLKS,BLANK,DITNSB,BUF,SSNAME(2),ANDF,SS,PS,CS,\r\n     1                HL,RSHIFT,DIRSIZ,SOFSIZ,DITSIZ,NUM(10),BLKSIZ,\r\n     2                HIBLK,FILSIZ,TYPE(5),ITM(27),HDR(27,4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DIT,DITPBN,DITLBN,DITSIZ,DITNSB,DITBL\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ,SUPSIZ,AVBLKS,HIBLK,IFRST\r\n      COMMON /SOFCOM/ NFILES,FILNAM(10),FILSIZ(10)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,Z1(6),NLPP,Y(2),LINE,Z2(26),NBPC,NBPW\r\n      COMMON /ITEMDT/ NITEM,ITEM(7,1)\r\n      DATA    TYPE  / 2HB , 2HC , 2HR , 2HM , 2HCM /\r\n      DATA    NUM   / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6 ,1H7, 1H8, 1H9, 1H0 /\r\n      DATA    BLANK / 4H     /\r\n      DATA    IMAGE / 4HI    /\r\n      DATA    NTYPE / 6      /\r\n      DATA    MAXITM/ 27     /\r\nC\r\n      NITM = NITEM\r\n      IF (NITM .LE. MAXITM) GO TO 10\r\n      NITM = MAXITM\r\n      WRITE  (NOUT,6237) SWM,MAXITM\r\n 6237 FORMAT (A27,' 6237, THE SOFTOC ROUTINE CAN HANDLE ONLY',I4,\r\n     1       ' ITEMS.', /34X,'ADDITIONAL ITEMS WILL NOT BE SHOWN')\r\nC\r\nC     SET UP HEADINGS AND MASKS\r\nC\r\n   10 NSHFT = 0\r\n      DO 30 I = 1,4\r\n      DO 20 J = 1,NITM\r\n   20 HDR(J,I) = KLSHFT(ITEM(1,J),NSHFT/NBPC)\r\n      K = NITM + 1\r\n      IF (K .GT. MAXITM) GO TO 30\r\n      DO 22 J = K,MAXITM\r\n   22 HDR(J,I) = BLANK\r\n   30 NSHFT = NSHFT + NBPC\r\nC\r\n      LINE  = NLPP + 1\r\n      M0009 = 1023\r\n      M1019 = LSHIFT(1023,10)\r\n      M2029 = LSHIFT(1023,20)\r\n      IMASK = LSHIFT(1,30)\r\nC\r\nC     LOOP THROUGH DIT\r\nC\r\n      DO 110 JMKN = 1,DITSIZ,2\r\n      I = (JMKN-1)/2 + 1\r\n      CALL FDIT (I,K)\r\n      SSNAME(1) = BUF(K  )\r\n      SSNAME(2) = BUF(K+1)\r\n      IF (SSNAME(1).EQ.BLANK .AND. SSNAME(2).EQ.BLANK) GO TO 110\r\n      CALL FMDI (I,K)\r\nC\r\nC     TEST TYPE BITS IN MDI\r\nC\r\n      DO 40 IT = 2,NTYPE\r\n      IBIT = ANDF(BUF(K+1),LSHIFT(1,31-IT))\r\n      IF (IBIT .NE. 0) GO TO 50\r\n   40 CONTINUE\r\n      IT = 1\r\n   50 IS = ANDF(BUF(K+1),IMASK)\r\n      IM = BLANK\r\n      IF (IS .NE. 0) IM = IMAGE\r\n      SS = RSHIFT(ANDF(BUF(K+1),M1019),10)\r\n      PS = ANDF(BUF(K+1),M0009)\r\n      LL = RSHIFT(ANDF(BUF(K+2),M2029),20)\r\n      CS = RSHIFT(ANDF(BUF(K+2),M1019),10)\r\n      HL = ANDF(BUF(K+2),M0009)\r\nC\r\nC     LOOP THROUGH MDI ENTRY FOR THIS SUBSTRUCTURE DETERMINING THE\r\nC     SIZE OF EACH EXISTING ITEM.\r\nC\r\n      DO 70 J = 1,NITM\r\n      JJ = J + IFRST - 1\r\n      IF (BUF(K+JJ) .EQ. 0) GO TO 60\r\n      INUM = RSHIFT(BUF(K+JJ),IHALF)*BLKSIZ\r\n      INUM = ALOG10(FLOAT(INUM)) + .3\r\n      ITM(J) = NUM(INUM)\r\n      IF (IS.NE.0 .AND. ITEM(4,J).EQ.0) ITM(J) = NUM(10)\r\n      IF (PS.NE.0 .AND. IS.EQ.0 .AND. ITEM(5,J).EQ.0) ITM(J) = NUM(10)\r\n      GO TO 70\r\n   60 ITM(J) = BLANK\r\n   70 CONTINUE\r\nC\r\n      LINE = LINE + 1\r\n      IF (LINE .LE. NLPP) GO TO 90\r\n      CALL PAGE1\r\n      LINE = LINE + 9 - 4\r\n      WRITE  (NOUT,80) HDR\r\n   80 FORMAT (//,26X,90HS U B S T R U C T U R E   O P E R A T I N G   F\r\n     1I L E   T A B L E   O F   C O N T E N T S , //,\r\n     1 1H ,51X,26(A1,2X),A1,/1H ,51X,26(A1,2X),A1,/1H ,51X,26(A1,2X),A1,\r\n     2 /,1H ,4X,12HSUBSTRUCTURE,35X,26(A1,2X),A1, /1H ,4X,3HNO.,3X,4HNAM\r\n     3E,4X,4HTYPE,3X,2HSS,3X,2HPS,3X,2HLL,3X,2HCS,3X,2HHL,4X,80(1H-)/)\r\nC\r\n   90 WRITE  (NOUT,100) I,SSNAME,IM,TYPE(IT),SS,PS,LL,CS,HL,\r\n     1                  (ITM(L),L=1,NITM)\r\n  100 FORMAT (2X,I6,2X,2A4,2X,A1,A2,5(1X,I4),4X,26(A1,2X),A1)\r\n  110 CONTINUE\r\nC\r\nC     PRINT SOF SPACE UTILIZATION MESSAGE\r\nC\r\n      LINE = LINE + 8\r\n      IF (LINE .GT. NLPP) CALL PAGE1\r\n      K    = SOFSIZ(K)\r\n      NBLK = 0\r\n      DO 115 I = 1,NFILES\r\n  115 NBLK = NBLK + FILSIZ(I)\r\n      IPER = (AVBLKS*100)/NBLK\r\n      WRITE  (NOUT,120) K,AVBLKS,IPER,HIBLK\r\n  120 FORMAT (//,51X,80HSIZE OF ITEM IS GIVEN IN POWERS OF TEN   (0 INDI\r\n     1CATES DATA IS STORED IN PRIMARY) ,/,\r\n     2        26H0*** UNUSED SPACE ON SOF = ,I9,7H WORDS.  ,/,\r\n     3        22X,                   4HOR = ,I9,8H BLOCKS. ,/,\r\n     4        22X,                   4HOR = ,I9,9H PERCENT.,/,\r\n     5        26H0*** HIGHEST BLOCK USED  = ,I9)\r\n      LINE = NLPP\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/softrl.f",
    "content": "      SUBROUTINE SOFTRL (NAME,ITEM,MCB)\r\nC\r\nC     UTILITY SUBROUTINE TO OBTAIN THE MATRIX TRAILER FOR A MATRIX\r\nC     STORED ON THE SOF\r\nC     STATUS OF THE SOF ITEM IS RETURNED IN WORD ONE OF THE MATRIX\r\nC     CONTROL BLOCK\r\nC\r\nC         1 NORMAL RETURN - THE TRAILER IS STORED IN WORDS 2 THRU 7\r\nC         2 ITEM WAS PESUDO WRITTEN\r\nC         3 ITEM DOES NOT EXIST\r\nC         4 SUBSTRUCTURE NAME DOES NOT EXIST\r\nC         5 ILLEGAL ITEM NAME\r\nC\r\n      EXTERNAL        ANDF,RSHIFT\r\n      INTEGER         ANDF,RSHIFT,BUF,BLKSIZ,NMSBR(2),MCB(7),NAME(2)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /SOF   / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,\r\n     1                IOITCD,IOBLK\r\n      COMMON /SYS   / BLKSIZ\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      DATA    IRD   / 1/\r\n      DATA    NMSBR / 4HSOFT,4HRL  /\r\nC\r\nC\r\nC     CHECK IF ITEM IS ONE OF THE FOLLOWING ALLOWABLE NAMES.\r\nC     KMTX,MMTX,PVEC,POVE,UPRT,HORG,UVEC,QVEC,PAPP,POAP,LMTX\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      IOITCD = ITCODE(ITEM)\r\n      ITM = ITTYPE(ITEM)\r\n      IF (ITM .NE. 1) GO TO 1000\r\nC\r\nC     FIND SUBSTRUCTURE NAME AND MDI BLOCK\r\nC\r\n      CALL FDSUB (NAME,IOSIND)\r\n      IF (IOSIND .LT. 0) GO TO 1010\r\n      CALL FMDI (IOSIND,IMDI)\r\nC\r\nC     GET BLOCK NUMBER OF FIRST BLOCK\r\nC\r\n      IOPBN = ANDF(BUF(IMDI+IOITCD),JHALF)\r\n      IF (IOPBN .EQ.     0) GO TO 1020\r\n      IF (IOPBN .EQ. JHALF) GO TO 1030\r\n      IOLBN = 1\r\nC\r\nC     GET NEXT BLOCK IN CHAIN\r\nC\r\n   20 CALL FNXT (IOPBN,INXT)\r\n      IF (MOD(IOPBN,2) .EQ. 1) GO TO 30\r\n      NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF)\r\n      GO TO 40\r\n   30 NEXT = ANDF(BUF(INXT),JHALF)\r\n   40 CONTINUE\r\n      IF (NEXT .EQ. 0) GO TO 50\r\n      IOPBN = NEXT\r\n      IOLBN = IOLBN + 1\r\n      GO TO 20\r\nC\r\nC     WE HAVE HIT END OF CHAIN - READ THE LAST BLOCK\r\nC\r\n   50 CALL SOFIO (IRD,IOPBN,BUF(IO-2))\r\n      I1 = IO - 2\r\n      I2 = I1 + BLKSIZ + 4\r\nC\r\nC     EXTRACT TRAILER FROM BLOCK\r\nC\r\n      DO 60 I = 1,6\r\n   60 MCB(I+1) = BUF(IO+BLKSIZ-6+I)\r\n      MCB(1  ) = 1\r\n      RETURN\r\nC\r\nC\r\nC     ERRORS\r\nC\r\nC     ILLEGAL ITEM\r\nC\r\n 1000 MCB(1) = 5\r\n      RETURN\r\nC\r\nC     SUBSTRUCTURE DOES NOT EXIST\r\nC\r\n 1010 MCB(1) = 4\r\n      RETURN\r\nC\r\nC     ITEM DOES NOT EXIST\r\nC\r\n 1020 MCB(1) = 3\r\n      RETURN\r\nC\r\nC     ITEM IS PESUDO WRITTEN\r\nC\r\n 1030 MCB(1) = 2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sofut.f",
    "content": "      SUBROUTINE SOFUT\r\nC\r\nC     THE PURPOSE OF THE MODULE IS TO PERFORM THE TASKS OF ALTERING THE\r\nC     SOF FILE IN ORDER TO EDIT, PURGE, AND EQUIVALENCE THE DATA ITEMS\r\nC     OF SELECTED SUBSTRUCTURES.  THE CALLING SEQUENCE TO THE MODULE IS\r\nC\r\nC     SOFUT     //V,N,DRY/C,N,NAME1/C,N,OPER/C,N,OPT/C,N,NAME2/\r\nC                 C,N,PREFX/C,N,IA/C,N,IB/C,N,IC/C,N,ID/C,N,IE $\r\nC\r\n      LOGICAL         DITUP\r\n      INTEGER         DRY,OPER,OPT,PREFX,SYSBUF,DELE,RENAM,NAME(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / DRY,NAME1(2),OPER(2),OPT,NAME2(2),PREFX(2),\r\n     1                ITEMS(10)\r\n      COMMON /SOF   / SSS(33),DITUP\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      DATA    IEDIT , IDEST,IEQUIV / 4HEDIT    ,4HDEST ,4HEQUI   /\r\n      DATA    IPRNT / 4HSOFP/\r\n      DATA    DELE  / 4HDELE/\r\n      DATA    RENAM / 4HRENA/\r\n      DATA    NAME  / 4HSOFU,4HT   /\r\n      DATA    ISCR1 / 301   /\r\nC\r\n      ITASK = 0\r\n      IF (OPER(1) .EQ.  IEDIT) ITASK = 1\r\n      IF (OPER(1) .EQ.  IDEST) ITASK = 2\r\n      IF (OPER(1) .EQ. IEQUIV) ITASK = 3\r\n      IF (OPER(1) .EQ.  IPRNT) ITASK = 4\r\n      IF (OPER(1) .EQ.   DELE) ITASK = 5\r\n      IF (OPER(1) .EQ.  RENAM) ITASK = 6\r\n      IF (ITASK .EQ. 0) GO TO 1000\r\nC\r\nC     ALLOCATE BUFFERS FOR THE SOF UTILITY SUBROUTINES\r\nC\r\n      NZ  = KORSZ(IZ)\r\n      IF (3*SYSBUF .GT. NZ) CALL MESAGE (-8,0,NAME(1))\r\n      IB1 = NZ  - SYSBUF + 1\r\n      IB2 = IB1 - SYSBUF - 1\r\n      IB3 = IB2 - SYSBUF\r\n      CALL SOFOPN (IZ(IB1),IZ(IB2),IZ(IB3))\r\n      NZ  = IB3 - 1\r\n      GO TO (20,30,40,130,180,200), ITASK\r\nC\r\nC     EDIT OPERATION\r\nC\r\n   20 CALL EDIT (NAME1(1),OPT,ITEST)\r\n      GO TO 50\r\nC\r\nC     DESTROY OPERATION\r\nC\r\n   30 I = NZ/2 + 1\r\n      CALL DSTROY (NAME1(1),ITEST,IZ,IZ(I),I-1)\r\n      GO TO 50\r\nC\r\nC     EQUIVALENCE OPERATION\r\nC\r\n   40 I = NZ/2 + 1\r\n      CALL SETEQ (NAME1,NAME2,PREFX,DRY,ITEST,IZ,I-1)\r\nC\r\nC     TEST RETURN CODE\r\nC\r\n   50 GO TO (110,110,110,60,110,70,110,80,90,100), ITEST\r\n   60 WRITE (NOUT,1010) UWM,NAME1\r\n      GO TO 100\r\n   70 WRITE (NOUT,1020) UWM,NAME1\r\n      GO TO 100\r\n   80 WRITE (NOUT,1030) UWM,NAME2\r\n      GO TO 100\r\n   90 WRITE (NOUT,1040) UWM,NAME2\r\n  100 DRY = -2\r\n  110 CALL SOFCLS\r\n      GO TO 1100\r\nC\r\nC     PRINT OPERATIONS\r\nC\r\n  130 IF (OPT) 140,140,150\r\nC\r\nC     PRINT SOF TABLE OF CONTENTS (DIT MDI)\r\nC\r\n  140 CALL SOFTOC\r\n      IF (OPT .EQ. 0) GO TO 170\r\nC\r\nC     PRINT SOF DATA ITEMS\r\nC\r\n  150 DO 160 I = 1,5\r\n      II = ITTYPE(ITEMS(2*I-1))\r\n      IF (II) 160,152,154\r\nC\r\nC     TABLE ITEM\r\nC\r\n  152 CALL ITMPRT (NAME1,ITEMS(2*I-1),NZ,OPT)\r\n      GO TO 160\r\nC\r\nC     MATRIX ITEM\r\nC\r\n  154 CALL MATWRT (ISCR1,NAME1,ITEMS(2*I-1),NZ)\r\nC\r\n  160 CONTINUE\r\n  170 CALL SOFCLS\r\n      GO TO 1100\r\nC\r\nC     DELETE OPERATION\r\nC\r\n  180 DO 190 I = 1,10\r\n  190 CALL DELETE (NAME1,ITEMS(I),ITEST)\r\n      GO TO 50\r\nC\r\nC     RENAME OPERATION\r\nC\r\n  200 CALL RENAME (NAME1,NAME2,IZ(1),NZ,ITEST)\r\n      GO TO 50\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1000 WRITE  (NOUT,1001) UWM,OPER(1),OPER(2)\r\n 1001 FORMAT (A25,' 6217, MODULE SOFUT - ',2A4,' IS AN ILLEGAL ',\r\n     1       'PARAMETER NAME.')\r\n      GO TO 1100\r\nC\r\n 1010 FORMAT (A25,' 6212, MODULE SOFUT - THE SUBSTRUCTURE ',2A4,\r\n     1       ' DOES NOT EXIST.')\r\nC\r\n 1020 FORMAT (A25,' 6218, MODULE SOFUT - THE SUBSTRUCTURE ',2A4,1X,\r\n     1       'CANNOT BE DESTROYED BECAUSE IT IS AN IMAGE SUBSTRUCTURE.')\r\nC\r\n 1030 FORMAT (A25,' 6219, MODULE SOFUT - RUN EQUALS DRY OR STEP AND ',\r\n     1       'SUBSTRUCTURE ',2A4, /33X,\r\n     2       'OR ONE OF THE NEW NAMES ALREADY EXISTS.')\r\nC\r\n 1040 FORMAT (A25,' 6220, MODULE SOFUT - RUN = GO AND SUBSTRUCTURE ',\r\n     1        2A4,' OR ONE OF THE NEW NAMES DOES NOT EXIST')\r\nC\r\n 1100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/solid.f",
    "content": "      SUBROUTINE SOLID( TEMPS, PG, ITYPE )\r\nC*****\r\nC  ELEMENT THERMAL LOAD GENERATOR FOR THE WEDGE, HEXA1, AND HEXA2\r\nC\r\nC  ITYPE = 1 IMPLIES WEDGE - 3 TETRAHEDRONS\r\nC\r\nC  ITYPE = 2 IMPLIES HEXA(6-SIDED-SOLID) 5 TETRAHEDRONS\r\nC\r\nC  ITYPE = 3 IMPLIES HEXA(6-SIDED-SOLID) 10 TETRAHEDRONS\r\nC\r\nC*****\r\n      INTEGER       NECPT(52)           ,M(13,4)\r\nC\r\n      REAL          TEMPS(8)           ,PG(6)              ,TMPS(4)\r\nC\r\n      COMMON/TRIMEX/ECPT(100)\r\nC\r\n      EQUIVALENCE( NECPT(1), ECPT(1) )\r\nC*****\r\nC\r\nC  E C P T     TETRA          WEDGE          HEXA\r\nC  -----------------------------------------------\r\nC  ECPT( 1) =  EL ID          EL ID          EL ID\r\nC  ECPT( 2) =  MAT-ID         MAT-ID         MAT-ID\r\nC  ECPT( 3) =  GRID-1         GRID-1         GRID-1\r\nC  ECPT( 4) =  GRID-2         GRID-2         GRID-2\r\nC  ECPT( 5) =  GRID-3         GRID-3         GRID-3\r\nC  ECPT( 6) =  GRID-4         GRID-4         GRID-4\r\nC  ECPT( 7) =  CSID-1         GRID-5         GRID-5\r\nC  ECPT( 8) =  X1             GRID-6         GRID-6\r\nC  ECPT( 9) =  Y1             CSID-1         GRID-7\r\nC  ECPT(10) =  Z1             X1             GRID-8\r\nC  ECPT(11) =  CSID-2         Y1             CSID-1\r\nC  ECPT(12) =  X2             Z1             X1\r\nC  ECPT(13) =  Y2             CSID-2         Y1\r\nC  ECPT(14) =  Z2             X2             Z1\r\nC  ECPT(15) =  CSID-3         Y2             CSID-2\r\nC  ECPT(16) =  X3             Z2             X2\r\nC  ECPT(17) =  Y3             CSID-3         Y2\r\nC  ECPT(18) =  Z3             X3             Z2\r\nC  ECPT(19) =  CSID-4         Y3             CSID-3\r\nC  ECPT(20) =  X4             Z3             X3\r\nC  ECPT(21) =  Y4             CSID-4         Y3\r\nC  ECPT(22) =  Z4             X4             Z3\r\nC  ECPT(23) =  EL-TEM         Y4             CSID-4\r\nC  ECPT(24)                   Z4             X4\r\nC  ECPT(25)                   CSID-5         Y4\r\nC  ECPT(26)                   X5             Z4\r\nC  ECPT(27)                   Y5             CSID-5\r\nC  ECPT(28)                   Z5             X5\r\nC  ECPT(29)                   CSID-6         Y5\r\nC  ECPT(30)                   X6             Z5\r\nC  ECPT(31)                   Y6             CSID-6\r\nC  ECPT(32)                   Z6             X6\r\nC  ECPT(33)                   ELTEMP         Y6\r\nC  ECPT(34)                                  Z6\r\nC  ECPT(35)                                  CSID-7\r\nC  ECPT(36)                                  X7\r\nC  ECPT(37)                                  Y7\r\nC  ECPT(38)\r\nC  ECPT(39)                                  CSID-8\r\nC  ECPT(40)                                  X8\r\nC  ECPT(41)                                  Y8\r\nC  ECPT(42)                                  Z8\r\nC  ECPT(43)                                  EL-TEMP\r\nC*****\r\nC\r\nC*****\r\nC  MAP FOR WEDGE  M(I,J)  I=TETRAHEDRON, J=GRID POINT\r\nC*****\r\n      DATA M( 1,1),M( 1,2),M( 1,3),M( 1,4) / 1   ,2   ,3   ,6 /\r\n      DATA M( 2,1),M( 2,2),M( 2,3),M( 2,4) / 1   ,2   ,6   ,5 /\r\n      DATA M( 3,1),M( 3,2),M( 3,3),M( 3,4) / 1   ,4   ,5   ,6 /\r\nC*****\r\nC  MAP FOR HEXA-SOLID (5 OR 10 TETRAHEDRONS)\r\nC*****\r\n      DATA M( 4,1),M( 4,2),M( 4,3),M( 4,4) / 1   ,2   ,3   ,6 /\r\n      DATA M( 5,1),M( 5,2),M( 5,3),M( 5,4) / 1   ,3   ,4   ,8 /\r\n      DATA M( 6,1),M( 6,2),M( 6,3),M( 6,4) / 1   ,3   ,8   ,6 /\r\n      DATA M( 7,1),M( 7,2),M( 7,3),M( 7,4) / 1   ,5   ,6   ,8 /\r\n      DATA M( 8,1),M( 8,2),M( 8,3),M( 8,4) / 3   ,6   ,7   ,8 /\r\n      DATA M( 9,1),M( 9,2),M( 9,3),M( 9,4) / 2   ,3   ,4   ,7 /\r\n      DATA M(10,1),M(10,2),M(10,3),M(10,4) / 1   ,2   ,4   ,5 /\r\n      DATA M(11,1),M(11,2),M(11,3),M(11,4) / 2   ,4   ,5   ,7 /\r\n      DATA M(12,1),M(12,2),M(12,3),M(12,4) / 2   ,5   ,6   ,7 /\r\n      DATA M(13,1),M(13,2),M(13,3),M(13,4) / 4   ,5   ,7   ,8 /\r\nC*****\r\nC  BRANCH ON ELEMENT TYPE\r\nC*****\r\n      GO TO(1000,2000,3000), ITYPE\r\nC*****\r\nC  COME HERE FOR WEDGE COMPUTATIONS.\r\nC  KTETRA IS CALLED 3 TIMES BASED ON WEDGE MAPPING MATRIX.\r\nC*****\r\n 1000 ITET = 1\r\n      NTET = 3\r\n      ITEMP= 33\r\n      NGRIDS = 6\r\n      IOPT = 0\r\n      GO TO 6000\r\nC*****\r\nC  COME HERE FOR 5-TETRAHEDRON 6-SIDED SOLID\r\nC*****\r\n 2000 ITET = 4\r\n      NTET = 8\r\n      ITEMP= 43\r\n      NGRIDS = 8\r\n      IOPT = 0\r\n      GO TO 6000\r\nC*****\r\nC  COME HERE FOR 10-TETRAHEDRON 6-SIDED SOLID\r\nC*****\r\n 3000 ITET = 4\r\n      NTET =13\r\n      ITEMP= 43\r\n      NGRIDS = 8\r\n      IOPT = 1\r\n      GO TO 6000\r\n 6000 DO 6010 J = 1,50\r\n      ECPT(J+50) = ECPT(J)\r\n 6010 CONTINUE\r\nC\r\nC  FILL MAT ID AND EL TEMP\r\nC\r\n      NECPT(2) = NECPT(52)\r\n      NECPT(23) = NECPT (ITEMP+50)\r\n      DO 8000 I = ITET,NTET\r\nC\r\nC     FILL IN GRID SIL-S AND COORDINATE SETS\r\nC\r\n      DO 7030 J = 1,4\r\n      KPOINT = M(I,J)\r\n      TMPS(J) = TEMPS(KPOINT)\r\n      NECPT(J+2) = NECPT(KPOINT+52)\r\n      KPOINT = 4*KPOINT + NGRIDS - 3\r\n      JPOINT = 4*J + 2\r\n      NECPT(JPOINT+1) = NECPT(KPOINT+52)\r\n      NECPT(JPOINT+2) = NECPT(KPOINT+53)\r\n      NECPT(JPOINT+3) = NECPT(KPOINT+54)\r\n      NECPT(JPOINT+4) = NECPT(KPOINT+55)\r\n 7030 CONTINUE\r\n      CALL TETRA( TMPS(1), PG(1), IOPT )\r\n 8000 CONTINUE\r\nC*****\r\nC  ALL THROUGH\r\nC*****\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/solve.f",
    "content": "      SUBROUTINE SOLVE\r\nC\r\nC     SOLVE IS A DMAP DRIVER TO SOLVE THE MATRIX EQUATION AX=B\r\nC\r\nC     SOLVE   A,B/X/SYM/SIGN/PREC/TYPE $\r\nC\r\nC     SYM     =  1 - USE SYMETRIC DECOMPOSITION\r\nC                0 - CHOOSE WHICH DECOMPOSITION BASED ON INPUT MATRIX\r\nC               -1 - USE UNSYMETRIC DECOMPOSITION\r\nC     ISIGN   =  1   SOLVE AX = B\r\nC               -1   SOLVE AX =-B\r\nC     IPREC   =  PRECISION USED IN THE FBS PASS\r\nC     ITYPE   =  DESIRED TYPE OF THE OUTPUT MATRIX X\r\nC\r\nC\r\n      INTEGER          NAME(2)   ,RECT     ,A        ,B        ,\r\n     1                 CDP       ,RDP      ,SYM      ,SQR      ,\r\n     2                 DOSI(3)   ,REFUS(3) ,OUTPT    ,X\r\n      REAL             ZZ(1)     ,ZZZ(1)   ,ZZZZ(1)  ,ZZZZZ(1)\r\n      DOUBLE PRECISION DET       ,DETT     ,MINDIA   ,CDET     ,\r\n     1                 CMNDIA    ,DETC     ,MINDS\r\n      CHARACTER        UFM*23    ,UWM*25   ,UIM*29   ,SFM*25   ,\r\n     1                 SWM*27\r\n      COMMON /XMSSG /  UFM       ,UWM      ,UIM      ,SFM      ,\r\n     1                 SWM\r\n      COMMON /BLANK /  ISYM      ,KSIGN    ,IPREC    ,ITYPE\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      COMMON /SFACT /  IFILA(7)  ,IFILL1(7),IFILC(7) ,ISCR11   ,\r\n     1                 ISCR22    ,NZ       ,DET      ,DETC     ,\r\n     2                 IPOWER    ,ISCR33   ,MINDS    ,ICHOL\r\n      COMMON /FBSX  /  IFILL(7)  ,IFILLT(7),IFILB(7) ,IFILX(7) ,\r\n     1                 NX        ,IPREC1   ,ISIGN1   ,ISCR\r\n      COMMON /DCOMPX/  IA(7)     ,IL(7)    ,IU(7)    ,ISR1     ,\r\n     1                 ISR2      ,ISR3     ,DETT     ,IPOW     ,\r\n     2                 NZZ       ,MINDIA   ,IB       ,IBBAR\r\n      COMMON /CDCMPX/  JA(7)     ,KL(7)    ,KU(7)    ,JSCR1    ,\r\n     1                 JSCR2     ,JSCR3    ,CDET(2)  ,JPOW     ,\r\n     2                 NZZZZ     ,CMNDIA   ,JBB      ,JBBAR\r\n      COMMON /GFBSX /  JL(7)     ,JU(7)    ,JB(7)    ,JX(7)    ,\r\n     1                 NZZZ      ,IPR      ,ISGN\r\n      COMMON /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                 REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                 RDP       ,CSP      ,CDP      ,SQR      ,\r\n     3                 RECT      ,DIAG     ,LOWER    ,UPPER    ,\r\n     4                 SYM       ,ROW      ,IDENTY\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (ZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZZ(1),Z(1))\r\n      EQUIVALENCE      (ZZZZZ(1),Z(1))\r\n      EQUIVALENCE      (KSYSTM(55),KPREC)  ,(KSYSTM(2),OUTPT)\r\n      DATA    A,B,X /  101,102,201/,     NAME  / 4HSOLV,4HE    /\r\n      DATA    ISCR1 ,  ISCR2,ISCR3,ISCR4,ISCR5 /\r\n     1        301   ,  302  ,303  ,304  ,305   /\r\n      DATA    DOSI  /  4HSING , 4HDOUB , 4HMLTP/,\r\n     1        REFUS /  2*3H   , 3HREF          /\r\nC\r\nC\r\n      JA(1) = A\r\n      CALL RDTRL (JA)\r\nC\r\n      IFORM = JA(4)\r\n      IF (ISYM) 1,5,3\r\n    1 IF (IFORM .EQ. SYM) WRITE (OUTPT,2) UWM,NAME\r\n    2 FORMAT (A25,' 2340, MODULE ',2A4,' HAS BEEN REQUESTED TO DO ',\r\n     1       'UNSYMETRIC DECOMPOSITION OF A SYMETRIC MATRIX.')\r\n      IFORM = RECT\r\n      IF (JA(2) .EQ. JA(3)) IFORM = SQR\r\n      GO TO 5\r\n    3 IF (JA(2).EQ.JA(3) .AND. IFORM.NE.SYM) WRITE (OUTPT,4) SWM,NAME\r\n    4 FORMAT (A27,' 2341, MODULE ',2A4,' HAS BEEN FURNISHED A SQUARE ',\r\n     1       'MATRIX MARKED UNSYMETRIC FOR SYMETRIC DECOMPOSITION.')\r\n      IFORM = SYM\r\n    5 ISYM  = -1\r\n      IF (IFORM .EQ. SYM) ISYM = 1\r\n      JA(4) = IFORM\r\n      IF (ISYM .LT. 0) GO TO 30\r\nC\r\nC     SET UP CALL TO SDCOMP AND FBS\r\nC\r\n      INDEX = 1\r\n      ICHOL = 0\r\n      DO  9  I = 1,7\r\n    9 IFILA(I) = JA(I)\r\n      N = IFILA(2)\r\n      IFILL1(1) = ISCR1\r\n      IFILC(1)  = ISCR2\r\n      ISCR11 = ISCR3\r\n      ISCR22 = ISCR4\r\n      ISCR33 = ISCR5\r\n      NZ = KORSZ(Z)\r\n      IFILL1(5) = IFILA(5)\r\n      CALL SDCOMP (*20,Z,Z,Z)\r\n      IFILL1(3) = IFILL1(2)\r\n      IFILL1(4) = LOWER\r\n      CALL WRTTRL (IFILL1)\r\n      IFILL(1) = ISCR1\r\n      CALL RDTRL (IFILL)\r\n      IFILB(1) = B\r\n      CALL RDTRL (IFILB)\r\nC\r\nC     IF THE B MATRIX IS PURGED, ASSUME AN IDENTITY MATRIX IN ITS PLACE\r\nC\r\n      IF (IFILB(1) .LE. 0) CALL MAKMCB (IFILB,B,N,IDENTY,JA(5))\r\n      ISIGN1 = KSIGN\r\n      IA5 = IFILA(5)\r\n      IB5 = IFILB(5)\r\nC\r\nC     DETERMINE THE PRECISION FOR THE CALCULATIONS\r\nC     AND THE TYPE OF THE OUTPUT MATRIX\r\nC\r\n  200 IPREC1 = KPREC\r\n      IF ((IA5.GT.0 .AND. IA5.LE.4) .OR. (IB5.GT.0 .AND. IB5.LE.4))\r\n     1     IPREC1 = 1\r\n      IF (IA5.EQ.2 .OR. IA5.EQ.4 .OR. IB5.EQ.2 .OR. IB5.EQ.4) IPREC1 = 2\r\n      IF (IPREC.EQ.IPREC1 .OR. IPREC.EQ.0) GO TO 222\r\n      IF (IPREC.LT.1 .OR. IPREC.GT.2) IPREC = 3\r\n      WRITE  (OUTPT,221) SWM,DOSI(IPREC),REFUS(IPREC),NAME,DOSI(IPREC1)\r\n  221 FORMAT (A27,' 2163, REQUESTED ',A4,'LE PRECISION ',A3,'USED BY ',\r\n     1       2A4,2H. ,A4,'LE PRECISION IS LOGICAL CHOICE')\r\n      IF (IPREC .NE. 3 ) IPREC1 = IPREC\r\n  222 IPREC = IPREC1\r\n      LTYPE = IPREC1\r\n      IF (IA5.EQ.3 .OR. IA5.EQ.4 .OR. IB5.EQ.3 .OR. IB5.EQ.4)\r\n     1    LTYPE = IPREC1 + 2\r\n      IF (ITYPE.EQ.0 .OR. ITYPE.EQ.LTYPE) GO TO 224\r\n      JJ = 1\r\n      IF (ITYPE.LT.1 .OR. ITYPE.GT.4 ) JJ = 3\r\n      WRITE  (OUTPT,223) SFM,ITYPE,REFUS(JJ),NAME,LTYPE\r\n  223 FORMAT (A27,' 2164, REQUESTED TYPE ',I4,2H, ,A3,'USED BY ',2A4,\r\n     1       '. TYPE ',I4,' IS LOGICAL CHOICE.')\r\n      IF (JJ .NE. 3 ) LTYPE = ITYPE\r\n  224 ITYPE = LTYPE\r\n      IF (INDEX .EQ. 2) GO TO 45\r\nC\r\nC     DEFINE THE MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX\r\nC\r\n      CALL MAKMCB (IFILX,X,N,RECT,ITYPE)\r\n      NX = KORSZ(ZZ)\r\n      IF (IFILB(4) .EQ. IDENTY) IFILB(5) = IPREC\r\n      ISCR = ISCR1\r\n      CALL FBS (ZZ,ZZ)\r\n      IF (IFILX(2) .EQ. N) IFILX(4) = SQR\r\n      CALL WRTTRL (IFILX)\r\n      RETURN\r\nC\r\n   20 NO = ISIGN(5,ISYM)\r\n      ISYM = -1\r\n      CALL MESAGE (NO,A,NAME)\r\nC\r\nC     SET UP THE CALL TO DECOMP AND GFBS\r\nC\r\n   30 CONTINUE\r\n      INDEX = 2\r\n      IF (JA(5) .GT. 2) GO TO 80\r\n      IA(1) = A\r\n      IL(1) = ISCR1\r\n      IU(1) = ISCR2\r\n      ISR1  = ISCR3\r\n      ISR3  = ISCR5\r\n      ISR2  = ISCR4\r\n      NZZ   = KORSZ(ZZZ)\r\n      CALL RDTRL (IA)\r\n      IA(4) = SQR\r\n      N     = IA(2)\r\n      IL(5) = JA(5)\r\n      IB    = 0\r\n      IBBAR = 0\r\n      CALL DECOMP (*20,ZZZ,ZZZ,ZZZ)\r\n      DO 35 I = 1,7\r\n      JL(I) = IL(I)\r\n      JU(I) = IU(I)\r\n   35 CONTINUE\r\n   40 JB(1) = B\r\n      CALL RDTRL (JB)\r\nC\r\nC     IF THE B MATRIX IS PURGED, ASSUME AN IDENTITY MATRIX IN ITS PLACE\r\nC\r\n      IF (JB(1) .LE. 0) CALL MAKMCB (JB,B,N,IDENTY,JA(5))\r\n      IA5  = JA(5)\r\n      IB5  = JB(5)\r\n      ISGN = KSIGN\r\nC\r\nC     DETERMINE THE PRECISION FOR THE CALCULATIONS\r\nC     AND THE TYPE OF THE OUTPUT MATRIX\r\nC\r\n      GO TO 200\r\n   45 IPR = IPREC\r\nC\r\nC     DEFINE THE MATRIX CONTROL BLOCK FOR THE OUTPUT MATRIX\r\nC\r\n      CALL MAKMCB (JX,X,N,RECT,ITYPE)\r\n      NZZZ = KORSZ(ZZZZ)\r\n      IF (JB(4) .EQ. IDENTY) JB(5) = IPREC\r\n      CALL GFBS (ZZZZ,ZZZZ)\r\n      IF (JX(2) .EQ. N) JX(4) =  SQR\r\n      CALL WRTTRL (JX)\r\n      RETURN\r\nC\r\nC     SET UP CALL TO CDCOMP AND GFBS\r\nC\r\n   80 CONTINUE\r\n      KL(1) = ISCR1\r\n      KU(1) = ISCR2\r\n      JSCR1 = ISCR3\r\n      JSCR2 = ISCR4\r\n      JSCR3 = ISCR5\r\n      NZZZZ = KORSZ(ZZZZZ)\r\n      JA(4) = SQR\r\n      N     = JA(2)\r\n      KL(5) = JA(5)\r\n      JBB   = 0\r\n      JBBAR = 0\r\n      CALL CDCOMP (*20,ZZZZZ,ZZZZZ,ZZZZZ)\r\n      DO 90 I = 1, 7\r\n      JL(I) = KL(I)\r\n      JU(I) = KU(I)\r\n   90 CONTINUE\r\n      GO TO 40\r\n      END\r\n"
  },
  {
    "path": "mis/solve1.f",
    "content": "      SUBROUTINE SOLVE1(A1,R1,RP,XI,LAM2,LAM3,LAM4,CONT)\r\nC\r\nC     ROUTINE TO SOLVE FOR LAMBDAS AS FNCTS. OF XI\r\nC\r\nC\r\n      REAL LAM2,LAM3,LAM4\r\nC\r\n      IF (RP.EQ.0.0) GO TO 20\r\nC\r\n      SUM = A1 + XI / RP\r\n      SINSUM = SIN(SUM)\r\n      BB = R1 - RP * (SIN(A1) - SINSUM)\r\n      RT = 0.0E0\r\n      IF( SINSUM .NE. 0.0E0 ) RT = BB / SINSUM\r\n      PSI1 = COS(SUM)\r\n      PSI2 = -SINSUM / RP\r\nC\r\nC     CHECK FOR SHELL CAP CASE\r\n      IF ( A1 .NE. 0.0 )  GO TO 40\r\n      LAM2  = 0.0E0\r\n      IF( BB .NE. 0.0E0 ) LAM2  = PSI1 / BB\r\n      LAM3  =  1.0 / RP\r\n      LAM4  = -1.0 / RP**2\r\n      GO TO 50\r\nC\r\nC     ALF1 = ALF2\r\nC\r\n   20 SINA = SIN(A1)\r\n      COSA = COS(A1)\r\n      BB = R1 + XI * COSA\r\n      RT = 0.0E0\r\n      IF( SINA .NE. 0.0E0 ) RT = BB / SINA\r\n      PSI1 = COSA\r\n      PSI2 = 0.0\r\nC\r\n   40 LAM2 = 0.0E0\r\n      IF( BB .NE. 0.0E0 ) LAM2 = PSI1 / BB\r\n      LAM3 = 0.0E0\r\n      IF( RT .NE. 0.0E0 ) LAM3 = 1.0E0 / RT\r\n      LAM4 = 0.0E0\r\n      IF( BB .NE. 0.0E0 ) LAM4 = PSI2 / BB\r\nC\r\n   50 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/solver.f",
    "content": "      SUBROUTINE SOLVER (LOWER,X,B,IN,OUT,EPS,IFL,SCR)\r\nC\r\nC    SOLVER PERFORMS THREE OPERATIONS--\r\nC    1. SOLVES FOR B BY FORWARD-BACKWARD SUBSTITUTION\r\nC    2. COMPUTES OUT = IN + B(T)*X\r\nC    3. IF REQUESTED, COMPUTES EPSILON = NORM(OUT)/NORM(IN)\r\nC\r\n      INTEGER         X     ,OUT   ,FILEL ,FILEU ,FILEB ,FILEX ,SCR    ,\r\n     1                PREC  ,SIGN  ,FILEE ,FILEF ,FILEG ,FILEH ,T      ,\r\n     2                SIGNC ,SIGNAB,PRECX ,EOL   ,EOR   ,SYSBUF,SCRTCH ,\r\n     3                B     ,SCR1  ,NAME(2)\r\n      DOUBLE PRECISION       AD    ,NUM   ,DENOM\r\n      DIMENSION       FILEL(7)     ,FILEU(7)     ,FILEB(7)     ,\r\n     1                FILEX(7)     ,FILEE(7)     ,FILEF(7)     ,\r\n     2                FILEG(7)     ,FILEH(7)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM   ,UWM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /FBSX  / FILEL ,FILEU ,FILEB ,FILEX ,NZ    ,PREC  ,SIGN   ,\r\n     1                SCR1\r\n      COMMON /MPYADX/ FILEE ,FILEF ,FILEG ,FILEH ,NZZ   ,T     ,SIGNAB ,\r\n     1                SIGNC ,PRECX ,SCRTCH\r\n      COMMON /ZNTPKX/ AD(2) ,I     ,EOL   ,EOR\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF)  ,(KSYSTM(55),IPREC)  ,\r\n     1                (KSYSTM(2),IOUTPT)\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS FOR FORWARD-BACKWARD SOLUTION\r\nC\r\n      NZ = KORSZ(Z)\r\n      FILEL(1) = LOWER\r\n      CALL RDTRL (FILEL)\r\n      FILEB(1) = B\r\n      CALL RDTRL (FILEB)\r\n      CALL MAKMCB (FILEX,X,FILEB(3),FILEB(4),IPREC)\r\n      PREC = IPREC\r\n      SIGN = -1\r\nC\r\nC     SOLVE A*X = -B FOR X WHERE A HAS BEEN FACTORED\r\nC\r\n      SCR1 = SCR\r\n      CALL FBS (Z,Z)\r\n      CALL WRTTRL (FILEX)\r\nC\r\nC     INITIALIZE MATRIX CONTROL BLOCKS FOR MPYAD OPERATION\r\nC\r\n      DO 50 K = 1,7\r\n      FILEE(K) = FILEB(K)\r\n   50 FILEF(K) = FILEX(K)\r\n      FILEG(1) = IN\r\n      CALL RDTRL (FILEG)\r\n      CALL MAKMCB (FILEH,OUT,FILEG(3),FILEG(4),IPREC)\r\n      NZZ = NZ\r\n      T   = 1\r\n      SIGNAB = 1\r\n      SIGNC  = 1\r\n      PRECX  = IPREC\r\n      SCRTCH = SCR\r\nC\r\nC     COMPUTE OUT = IN + B(T)*X\r\nC\r\n      CALL MPYAD  (Z,Z,Z)\r\n      CALL WRTTRL (FILEH)\r\nC\r\nC     IF REQUESTED,COMPUTE EPS = NORM(OUT) / NORM(IN)\r\nC\r\n      IF (IFL .EQ. 0) RETURN\r\n      N1 = NZ - SYSBUF\r\n      N2 = N1 - SYSBUF\r\n      CALL GOPEN (OUT,Z(N1+1),0)\r\n      CALL GOPEN ( IN,Z(N2+1),0)\r\n      NUM   = 0.0D0\r\n      DENOM = 0.0D0\r\n      NCOL  = FILEG(2)\r\n      DO 130 K = 1,NCOL\r\n      CALL INTPK (*110,OUT,0,2,0)\r\n  100 CALL ZNTPKI\r\n      NUM = NUM + DABS(AD(1))*DABS(AD(1))\r\n      IF (EOL .EQ. 0) GO TO 100\r\n  110 CALL INTPK (*130,IN,0,2,0)\r\n  120 CALL ZNTPKI\r\n      DENOM = DENOM + DABS(AD(1))*DABS(AD(1))\r\n      IF (EOL .EQ. 0) GO TO 120\r\n  130 CONTINUE\r\n      IF (DENOM .EQ. 0.0D0) GO TO 160\r\n      EPS = DSQRT(NUM/DENOM)\r\n      GO TO 180\r\n  160 CALL FNAME (IN,NAME)\r\n      WRITE  (IOUTPT,170) UWM,NAME\r\n  170 FORMAT (A25,' 2401, ',2A4,' MATRIX IS NULL.  AN ARBITRARY VALUE ',\r\n     1       'OF 1.0 IS THEREFORE ASSIGNED TO', /5X,\r\n     2       'THE RIGID BODY ERROR RATIO (EPSILON SUB E).')\r\n      EPS = 1.0\r\n  180 CALL CLOSE (IN, 1)\r\n      CALL CLOSE (OUT,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sort.f",
    "content": "      SUBROUTINE SORT (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC\r\nC     THE ORIGINAL NASTRAN SORT ROUTINE FOR IN-CORE SORTING AND FILE\r\nC     SORT IS NOW RENAMED SORTI\r\nC     (ONLY 5 PERCENT OF NASTRAN ROUTINES ACTUALLY CALL SORTI, WITH NON-\r\nC     ZERO IDUM AND JDUM)\r\nC\r\nC     THIS NEW SORT ROUTINE WITH IDUM=JDUM=0, PERFORMS ONLY IN-CORE SORT\r\nC     FOR INTEGERS, FLOATING POINT NUMBERS, AND BCD WORDS, BY THE\r\nC     MODIFIED SHELL METHOD\r\nC     IT USES MUCH LESS CORE SPACE\r\nC\r\nC     ARRAY Z IS NR-ROWS BY (NWDS/NR)-COLUMNS IN SIZE\r\nC     DATA STORED ROW-WISE IN Z, AND TO BE SORTED BY KEYWD-TH ROW\r\nC\r\nC     USE A NEGATIVE KEYWD  IF THE ORIGINAL ORDER OF THE TABLE ENTRIES\r\nC     ARE TO BE PRESERVED AND THE COLUMN OF KEYWORDS CONTAINS DUPLICATES\r\nC     (INTEGER SORT ONLY)    E.G.\r\nC\r\nC     ORIGINAL TABLE     SORTED(KEYWD=+1)       SORTED(KEYWD=-1)\r\nC     ---------------    ----------------       ----------------\r\nC       1      4             1      4               1      4\r\nC       2      2             1     10               1      3\r\nC       1      3             1      3               1     10\r\nC       1     10             2      2               2      2\r\nC\r\nC\r\nC     THIS ROUTINE WOULD SWITCH BACK TO THE OLD SHUTTLE EXCHANGE METHOD\r\nC     NUMBERS OVERFLOW DUE TO THE REQUIREMENT THAT ORIGINAL ORDER MUST B\r\nC     MAINTAINED\r\nC\r\nC     ENTRY POINTS\r\nC\r\nC     SORT   - TABLE SORT BY INTEGER\r\nC     SORTF  - TABLE SORT BY F.P. NUMBER\r\nC     SORTA  - TABLE SORT BY ALPHABETS, 4-BCD CHARACTERS\r\nC     SORTA8 - TABLE SORT BY ALPHABETS, 8-BCD CHAR. (KEYWD AND KEYWD+1)\r\nC     SORTA7 - SAME AS SORTA8, EXCEPT LEADING CHAR. IS IGNORED\r\nC     SORT2K - 2-KEYWORD SORT, SORT BY KEYWD AND KEYWD+1, INTEGER OR\r\nC              REAL NUMBER KEYS. NEGATIVE KEYWD IS IGNORED\r\nC\r\nC     THE TWO SORT CALLS OF THE FOLLOWING FORM CAN BE REPLACED BY ONE CA\r\nC     TO SORT2K, WHICH IS FASTER, NO DANGER OF NUMBER OVERFLOW, AND THE\r\nC     ORIGINAL SEQUENCE WILL NOT CHANGE WHEN THERE ARE DUPLICATES.\r\nC\r\nC         CALL SORT (0,0,N1,-(N2+1),TABLE,N3)\r\nC         CALL SORT (0,0,N1,-N2,    TABLE,N3)\r\nC              CAN BE REPLACED BY\r\nC         CALL SORT2K (0,0,N1,N2,TABLE,N3)\r\nC\r\nC\r\nC     WRITTEN BY G.CHAN/SPERRY, 3/1987\r\nC\r\n      LOGICAL         RVSBCD\r\n      INTEGER         ZI,      ZN,      TEMP,    Z(NR,1), TWO31,   TWO,\r\n     1                SUBR(6)\r\n      REAL            RI,      RN\r\n      COMMON /SYSTEM/ IBUF,    NOUT,    DM37(37),NBPW\r\n      COMMON /MACHIN/ MACH,    IJHLF(2),LQRO\r\n      COMMON /TWO   / TWO(16)\r\n      EQUIVALENCE     (ZI,RI), (ZN,RN)\r\n      DATA    SUBR  / 2H  ,    2HF ,    2HA ,    2HA8,    2HA7,    2H2K/\r\nC\r\nC     CHECK ERROR, CHECK DATA TYPE, AND PREPARE FOR SORT\r\nC\r\n      ISORT = 1\r\n      GO TO 10\r\nC\r\n      ENTRY SORTF (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC     =======================================\r\n      ISORT = 2\r\n      GO TO 10\r\nC\r\n      ENTRY SORTA (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC     =======================================\r\n      ISORT = 3\r\n      GO TO 10\r\nC\r\n      ENTRY SORTA8 (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC     ========================================\r\n      ISORT = 4\r\n      GO TO 10\r\nC\r\n      ENTRY SORTA7 (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC     ========================================\r\n      ISORT = 5\r\n      GO TO 10\r\nC\r\n      ENTRY SORT2K (IDUM,JDUM,NR,KEYWD,Z,NWDS)\r\nC     ========================================\r\n      ISORT = 6\r\nC\r\n   10 IF (NWDS .EQ. 0) GO TO 330\r\n      IF (IDUM.NE.0 .OR. JDUM.NE.0) GO TO 300\r\n      RVSBCD = MOD(LQRO,10) .EQ. 1\r\n      KEY  = IABS(KEYWD)\r\n      IF (KEY .GT. NR) GO TO 280\r\n      NC = NWDS/NR\r\n      IF (NC*NR .NE. NWDS) GO TO 280\r\n      M  = NC\r\n      IF (ISORT.NE.1 .OR. KEYWD.GE.0) GO TO 30\r\nC\r\nC                     - INTEGER SORT ONLY -\r\nC     IF ORIGINAL ORDER IS TO BE MAINTAINED WHERE DUPLICATE KEYWORDS MAY\r\nC     OCCUR, ADD INDICES TO THE KEYWORDS (GOOD FOR BOTH POSITIVE AND\r\nC     NEGATIVE RANGES, AND BE SURE THAT KEYWORDS ARE NOT OVERFLOWED),\r\nC     SORT THE DATA, AND REMOVE THE INDICES LATER\r\nC\r\nC     IF KEYWORD OVERFLOWS, SWITCH TO SHUTTLE EXCHANGE METHOD\r\nC\r\n      IF (NC.GE.TWO(16) .AND. NBPW.LE.32) GO TO 200\r\n      J = 30\r\n      IF (NBPW .GE. 60) J = 62\r\n      TWO31 = 2**J\r\n      LIMIT = (TWO31-NC)/NC\r\n      DO 20 I = 1,NC\r\n      J = Z(KEY,I)\r\n      IF (IABS(J) .GT. LIMIT) GO TO 200\r\n      J = J*NC + I\r\n      K =-1\r\n      IF (J .LT. 0) K =-NC\r\n   20 Z(KEY,I) = J + K\r\nC\r\nC     SORT BY\r\nC     MODIFIED SHELL METHOD, A SUPER FAST SORTER\r\nC\r\n   30 M = M/2\r\n      IF (M .EQ. 0) GO TO 180\r\n      J = 1\r\n      K = NC - M\r\n   40 I = J\r\n   50 N = I + M\r\n      ZI= Z(KEY,I)\r\n      ZN= Z(KEY,N)\r\n      GO TO (60,80,90,90,90,60), ISORT\r\nC           INT FP A4 A8 A7 2K\r\nC\r\n   60 IF (ZI-ZN) 170,70,150\r\n   70 IF (ISORT .EQ. 1) GO TO 170\r\n      IF (Z(KEY+1,I)-Z(KEY+1,N)) 170,170,150\r\n   80 IF (RI-RN) 170,170,150\r\n   90 KK = 1\r\n      IF (ISORT .EQ. 5) GO TO 110\r\nC\r\nC     COMPARE 1ST BYTE, THEN COMPARE 2ND, 3RD, AND 4TH BYTES TOGETHER\r\nC     IF MACHINE DOES NOT USE REVERSED BCD ORDER. THOSE MACHINES WITH\r\nC     REVERSED BCD ORDER (VAX, ULTRIX, S/G) MUST COMPARE EACH BYTE\r\nC     SEPERATELY BECAUSE OF THE SIGN BIT\r\nC\r\n  100 IF (KHRFN1(ZERO,4,ZI,1) - KHRFN1(ZERO,4,ZN,1)) 170,110,150\r\n  110 IF (.NOT.RVSBCD) IF (KHRFN1(ZI,1,ZERO,4)-KHRFN1(ZN,1,ZERO,4))\r\n     1                                               170,140,150\r\n      IF (KHRFN1(ZERO,4,ZI,2) - KHRFN1(ZERO,4,ZN,2)) 170,120,150\r\n  120 IF (KHRFN1(ZERO,4,ZI,3) - KHRFN1(ZERO,4,ZN,3)) 170,130,150\r\n  130 IF (KHRFN1(ZERO,4,ZI,4) - KHRFN1(ZERO,4,ZN,4)) 170,140,150\r\n  140 IF (ISORT.LE.3 .OR. KK.EQ.2) GO TO 170\r\n      ZI = Z(KEY+1,I)\r\n      ZN = Z(KEY+1,N)\r\n      KK = 2\r\n      GO TO 100\r\n  150 DO 160 L = 1,NR\r\n      TEMP = Z(L,I)\r\n      Z(L,I) = Z(L,N)\r\n  160 Z(L,N) = TEMP\r\n      I = I - M\r\n      IF (I .GE. 1) GO TO 50\r\n  170 J = J + 1\r\n      IF (J-K) 40,40,30\r\n  180 IF (ISORT.NE.1 .OR. KEYWD.GE.0) GO TO 330\r\n      DO 190 I = 1,NC\r\n  190 Z(KEY,I) = Z(KEY,I)/NC\r\n      GO TO 330\r\nC\r\nC     SORT BY\r\nC     SHUTTLE EXCHANGE THETHOD, A SLOW SORTER\r\nC     (THIS WAS NASTRAN ORIGINAL SORTER, MODIFIED FOR 2-D ARRAY OPERATIO\r\nC     WITH 20-COLUMN LIMITATION REMOVED)\r\nC\r\n  200 IF (I .LE. 1) GO TO 220\r\n      J = I - 1\r\n      DO 210 I = 1,J\r\n  210 Z(KEY,I) = Z(KEY,I)/NC\r\nC\r\n  220 DO 270 II = 2,NC\r\n      ZI = Z(KEY,II)\r\n      JJ = II - 1\r\n      IF (ZI .GE. Z(KEY,JJ)) GO TO 270\r\n  230 JJ = JJ - 1\r\n      IF (JJ .GT. 0) IF (ZI-Z(KEY,JJ)) 230,240,240\r\n  240 JJ = JJ + 2\r\n      DO 260 I = 1,NR\r\n      TEMP = Z(I,II)\r\n      M = II\r\n      DO 250 J = JJ,II\r\n      Z(I,M) = Z(I,M-1)\r\n  250 M = M - 1\r\n  260 Z(I,JJ-1) = TEMP\r\n  270 CONTINUE\r\n      GO TO 330\r\nC\r\nC     ERROR. FORCING A WALK BACK\r\nC\r\n  280 WRITE  (NOUT,290) SUBR(ISORT),NR,KEY,NWDS,NC\r\n  290 FORMAT ('0*** ERROR IN SORT',A2,4I8)\r\n      GO TO 320\r\n  300 WRITE  (NOUT,310)\r\n  310 FORMAT ('0*** CALLING ROUTINE SHOULD CALL SORTI')\r\nCWKBR  320 CALL ERRTRC ('SORT    ',320)\r\n  320 CONTINUE\r\n  330 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sortdg.f",
    "content": "      SUBROUTINE SORTDG (STK1,STK2,X1,X2,NDEG)\r\nC\r\nC     SORTDG SORTS STK2 BY DEGREE OF THE NODE AND ADDS IT TO THE END\r\nC     OF STK1 IN ORDER OF LOWEST TO HIGHEST DEGREE.  X1 AND X2 ARE THE\r\nC     NUMBER OF NODES IN STK1 AND STK2 RESPECTIVELY.\r\nC\r\n      INTEGER          X1,       X2,       STK1,     STK2,     TEMP\r\n      DIMENSION        NDEG(1),  STK1(1),  STK2(1)\r\n      COMMON /BANDG /  N,        IDPTH\r\nC\r\n      IND=X2\r\n   10 ITEST=0\r\n      IND=IND-1\r\n      IF (IND.LT.1) GO TO 40\r\n      DO 30 I=1,IND\r\n      J=I+1\r\n      ISTK2=STK2(I)\r\n      JSTK2=STK2(J)\r\n      IF (NDEG(ISTK2).LE.NDEG(JSTK2)) GO TO 30\r\n      ITEST=1\r\n      TEMP=STK2(I)\r\n      STK2(I)=STK2(J)\r\n      STK2(J)=TEMP\r\n   30 CONTINUE\r\n      IF (ITEST.EQ.1) GO TO 10\r\n   40 DO 50 I=1,X2\r\n      X1=X1+1\r\n      STK1(X1)=STK2(I)\r\n   50 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sorti.f",
    "content": "      SUBROUTINE SORTI (INPFL,OUTFL,NWDS,KEYWRD,L,NX)\r\nC\r\nC     WITH ENTRY POINT SORTI2 TO SORT TABLE BY 2 KEY WORDS\r\nC\r\nC     THIS SORTING ROUTINE WAS CALLED SORT BEFORE, AND IS NOW RENAMED\r\nC     SORTI. IT IS CAPABLE FOR IN-CORE SORTING AND FILE SORT.\r\nC\r\nC     THE NEW SUBROUTINE SORT IS A TRUNCATED VERSION OF THIS ROUTINE\r\nC     ONLY FOR IN-CORE SORTING. IT CAN HANDLE INTEGER, REAL, BCD(A4),\r\nC     BCD(A8), BCD(A7), AND 2-KEY SORTINGS.\r\nC\r\nC     (95 PERCENT OF NASTRAN ROUTINES ACTUALLY CALL SORT. THE REMAINING\r\nC       5 PERCENT CALL SORTI)\r\nC\r\nC     IF INPFL AND OUTFL ARE ZERO, CALLING ROUTINE SHOULD CALL SORT\r\nC     FOR EFFICIENCY\r\nC\r\nC     THE OLD SHUTTLE EXCHANGE, WHICH WAS VERY SLOW, IS NOW REPLACED BY\r\nC     A SUPER FAST SORTER, A MODIFIED SHELL SORT.\r\nC\r\nC     THIS MODIFIED VERSION ALSO SORTS TABLE OF ANY LENGTH (PREVIOUSLY N\r\nC     OF WORDS PER ENTRY, NWDS, WAS LIMITED TO 20)\r\nC\r\n      INTEGER         OUTFL,SCRA,SCRB,SCRC,DIST1,DIST2,DUMMY,TOTAL,OUT,\r\n     1                SUBR(2),L(NWDS,2),TEMP,FILE,R,BUFA,BUFB,BUFC,\r\n     2                SYSBUF,BUFIN,TWO,TWO31\r\n      COMMON /SETUP / NFILE(6),BUFIN\r\n      COMMON /SYSTEM/ SYSBUF,DUM38(38),NBPW\r\n      COMMON /TWO   / TWO(16)\r\n      EQUIVALENCE     (NFILE(1),SCRB),(NFILE(2),SCRC),(NFILE(3),SCRA)\r\n      DATA    SUBR  / 4HSORT, 4HI    /\r\nC\r\n      KEY2 = 1\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY SORTI2 (INPFL,OUTFL,NWDS,KEYWRD,L,NX)\r\nC     ==========================================\r\nC\r\n      KEY2 = 2\r\nC\r\nC     IF INPFL EQ 0, CORE BLOCK L OF LENGTH NX IS TO BE SORTED\r\nC     IF INPFL NE 0, INPFL IS TO BE SORTED USING BLOCK L\r\nC\r\n   10 KEYWD = IABS(KEYWRD)\r\n      NNN   = NX\r\n      IF (NNN .LT. NWDS) GO TO 350\r\n      J = 30\r\n      IF (NBPW .GE. 60) J = 62\r\n      TWO31 = 2**J\r\n      IF (INPFL .EQ. 0) GO TO 30\r\n      BUFA  = NX - SYSBUF + 1\r\nC\r\nC     MINIMUM CORE REQUIREMENT = 2 X NUMBER OF WORDS PER ENTRY\r\nC\r\n      NZ  = BUFA - 1\r\n      IF (NZ .LT. NWDS+NWDS) GO TO 360\r\n      CALL OPEN (*370,SCRA,L(BUFA,1),1)\r\n      NN  = (NZ/NWDS)*NWDS\r\n      NNN = NN\r\n      OUT = SCRA\r\n      NREC= 0\r\n   20 CALL READ (*430,*170,INPFL,L,NN,0,NNN)\r\nC\r\nC     SORT PHASE --\r\nC\r\n   30 LEN = NNN/NWDS\r\n      IF (LEN*NWDS .NE. NNN) GO TO 365\r\n      M = LEN\r\n      IF (KEYWRD .GE. 0) GO TO 40\r\nC\r\nC                     - INTEGER SORT ONLY -\r\nC     IF ORIGINAL ORDER IS TO BE MAINTAINED WHERE DUPLICATE KEYWORDS MAY\r\nC     OCCUR, ADD INDICES TO THE KEYWORDS (GOOD FOR BOTH POSITIVE AND\r\nC     NEGATIVE RANGES, AND BE SURE THAT KEYWORDS ARE NOT OVERFLOWED),\r\nC     SORT THE DATA, AND REMOVE THE INDICES LATER\r\nC\r\nC     IF ANY KEYWORD OVERFLOWS, SWITCH TO SHUTTLE EXCHANGE METHOD\r\nC     LIMIT IS THE MAX VALUE BEFORE INTEGER OVERFLOW\r\nC\r\n      IF (LEN.GE.TWO(16) .AND. NBPW.LE.32) GO TO 130\r\n      LIMIT = (TWO31-LEN)/LEN\r\n      DO 35 I = 1,LEN\r\n      J = L(KEYWD,I)\r\n      IF (IABS(J) .GT. LIMIT) GO TO 124\r\n      J = J*LEN + I\r\n      K = -1\r\n      IF (J .LT. 0) K = -LEN\r\n   35 L(KEYWD,I) = J + K\r\n      IF (KEY2 .EQ. 1) GO TO 40\r\n      DO 37 I = 1,LEN\r\n      J = L(KEYWD+1,I)\r\n      IF (IABS(J) .GT. LIMIT) GO TO 120\r\n      J = J*LEN + I\r\n      K = -1\r\n      IF (J .LT. 0) K = -LEN\r\n   37 L(KEYWD+1,I) = J + K\r\nC\r\nC     SORT BY\r\nC     MODIFIED SHELL METHOD, A SUPER FAST SORTER\r\nC\r\n   40 M = M/2\r\n      IF (M .EQ. 0) GO TO 110\r\n      J = 1\r\n      K = LEN - M\r\n   45 I = J\r\n   50 N = I + M\r\n      IF (L(KEYWD,I)-L(KEYWD,N)) 105, 60,95\r\n   60 IF (KEY2 .EQ. 1) GO TO 105\r\n      IF (L(KEYWD+1,I)-L(KEYWD+1,N)) 105,105,95\r\n   95 DO 100 R = 1,NWDS\r\n      TEMP   = L(R,I)\r\n      L(R,I) = L(R,N)\r\n  100 L(R,N) = TEMP\r\n      I = I - M\r\n      IF (I .GE. 1) GO TO 50\r\n  105 J = J + 1\r\n      IF (J-K) 45,45,40\r\n  110 IF (KEYWRD .GE. 0) GO TO 160\r\n      DO 115 I = 1,LEN\r\n      L(KEYWD,I) = L(KEYWD,I)/LEN\r\n      IF (KEY2 .EQ. 2) L(KEYWD+1,I) = L(KEYWD+1,I)/LEN\r\n  115 CONTINUE\r\n      GO TO 160\r\nC\r\nC     SORT BY\r\nC     SHUTTLE EXCHANGE METHOD, A SLOW SORTER\r\nC     (THIS WAS NASTRAN ORIGINAL SORTER, MODIFIED FOR 2-D ARRAY\r\nC     OPERATION WITH 20-COLUMN LIMITATION REMOVED)\r\nC\r\n  120 IF (I .LE. 1) GO TO 123\r\n      J = I - 1\r\n      DO 121 I = 1,J\r\n  121 L(KEYWD+1,I) = L(KEYWD+1,I)/LEN\r\n  123 I = LEN\r\n  124 IF (I .LE. 1) GO TO 130\r\n      J = I - 1\r\n      DO 125 I = 1,J\r\n  125 L(KEYWD,I) = L(KEYWD,I)/LEN\r\nC\r\n  130 DO 155 II = 2,LEN\r\n      JJ = II - 1\r\n      IF (L(KEYWD,II)-L(KEYWD,JJ)) 135,133,155\r\n  133 IF (KEY2 .EQ. 1) GO TO 155\r\n      IF (L(KEYWD+1,II) .GE. L(KEYWD+1,JJ)) GO TO 155\r\n  135 JJ = JJ - 1\r\n      IF (JJ .LE. 0) GO TO 140\r\n      IF (L(KEYWD,II)-L(KEYWD,JJ)) 135,137,140\r\n  137 IF (KEY2 .EQ. 2) IF (L(KEYWD+1,II)-L(KEYWD+1,JJ)) 135,140,140\r\n  140 JJ = JJ + 2\r\n      DO 150 I = 1,NWDS\r\n      TEMP = L(I,II)\r\n      M = II\r\n      DO 145 J = JJ,II\r\n      L(I,M) = L(I,M-1)\r\n  145 M = M - 1\r\n  150 L(I,JJ-1) = TEMP\r\n  155 CONTINUE\r\nC\r\nC     IF CORE SORT, SORT IS COMPLETED. IF FILE SORT, WRITE BLOCK ON\r\nC     SCRATCH FILE TO BE MERGED LATER.\r\nC\r\n  160 IF (INPFL .EQ. 0) GO TO 350\r\n  165 CALL WRITE (SCRA,L,NNN,1)\r\n      NREC = NREC + 1\r\n      IF (NNN-NN) 180,20,180\r\n  170 IF (NNN) 180,180,175\r\n  175 IF (NNN-NWDS-NWDS) 165,30,30\r\n  180 CALL CLOSE (SCRA,1)\r\nC\r\nC     IF ONLY ONE RECORD, BYPASS MERGE\r\nC\r\n      IF (NREC .EQ. 1) GO TO 320\r\nC\r\nC     COMPUTE OPTIMUM DISTRIBUTION OF SORTED RECORDS ON TWO SCRATCH\r\nC     FILES FOR MERGE PHASE USING FIBONACCI SEQUENCE\r\nC\r\n      LEVEL = 0\r\n      DIST1 = 1\r\n      DIST2 = 0\r\n      TOTAL = 1\r\n  190 DUMMY = TOTAL - NREC\r\n      IF (DUMMY .GE. 0) GO TO 195\r\n      DIST1 = DIST1 + DIST2\r\n      DIST2 = DIST1 - DIST2\r\n      TOTAL = DIST1 + DIST2\r\n      LEVEL = LEVEL + 1\r\n      GO TO 190\r\n  195 BUFB  = BUFA - SYSBUF\r\n      BUFC  = BUFB - SYSBUF\r\n      IF (BUFC .LT. 1) GO TO 360\r\n      NN = BUFB - 1\r\nC\r\nC     COPY N SORTED RECORDS ONTO SECOND SCRATCH FILE\r\nC\r\n      CALL OPEN (*370,SCRA,L(BUFA,1),0)\r\n      CALL OPEN (*380,SCRB,L(BUFB,1),1)\r\n      N = DIST2 - DUMMY\r\n      DO 205 I = 1,N\r\n  200 CALL READ  (*440,*205,SCRA,L,NN,0,NFLAG)\r\n      CALL WRITE (SCRB,L,NN,0)\r\n      GO TO 200\r\n  205 CALL WRITE (SCRB,L,NFLAG,1)\r\n      CALL CLOSE (SCRB,1)\r\n      CALL CLOSE (SCRA,2)\r\n      NFILE(4) = SCRB\r\n      NFILE(5) = SCRC\r\n      K = 4\r\nC\r\nC     MERGE PHASE ---\r\nC     INPUT FILE WITH GREATER NUMBER IF RECORDS = IN1\r\nC     INPUT FILE WITH LESSER  NUMBER OF RECORDS = IN2\r\nC     EACH PASS MERGES ALL RECORDS FROM IN2 WITH LIKE NUMBER OF RECORDS\r\nC     (INCLUDING DUMMY RECORDS) FROM IN1 ONTO OUT. FOR NEXT PASS IN1\r\nC     BECOMES IN2, IN2 BECOMES OUT, AND OUT BECOMES IN1.\r\nC\r\n      DO 310 I = 1,LEVEL\r\n      K = K - 1\r\n      IF (K .EQ. 0) K = 3\r\n      IN1 = NFILE(K)\r\n      IN2 = NFILE(K+1)\r\n      OUT = NFILE(K+2)\r\n      LAST= 2\r\n      CALL OPEN (*390,IN1,L(BUFA,1),2)\r\n      CALL OPEN (*400,IN2,L(BUFB,1),2)\r\n      CALL OPEN (*410,OUT,L(BUFC,1),1)\r\n      DO 300 J = 1,DIST2\r\n      IF1 = NWDS\r\n      IF2 = NWDS\r\n      CALL READ (*450,*275,IN1,L,NWDS,0,IF1)\r\n      IF (DUMMY) 210,210,280\r\n  210 CALL READ (*460,*290,IN2,L(1,2),NWDS,0,IF2)\r\n  220 IF (L(KEYWD,1)-L(KEYWD,2)) 260,230,270\r\n  230 IF (KEY2 .EQ. 2) IF (L(KEYWD+1,1)-L(KEYWD+1,2)) 260,260,270\r\n  260 CALL WRITE (OUT,L,NWDS,0)\r\n      CALL READ  (*450,*275,IN1,L,NWDS,0,IF1)\r\n      IF (IF2) 260,260,220\r\n  270 CALL WRITE (OUT,L(1,2),NWDS,0)\r\n      CALL READ  (*460,*290,IN2,L(1,2),NWDS,0,IF2)\r\n      IF (IF1) 270,270,220\r\n  275 IF (IF2) 300,300,270\r\n  280 DUMMY = DUMMY - 1\r\n      IF2 = 0\r\n  290 IF (IF1) 300,300,260\r\n  300 CALL WRITE (OUT,0,0,1)\r\n      DIST2 = DIST1 - DIST2\r\n      DIST1 = DIST1 - DIST2\r\n      IF (DIST2 .EQ. 0) LAST = 1\r\n      CALL CLOSE (IN1,LAST)\r\n      CALL CLOSE (IN2,1)\r\n  310 CALL CLOSE (OUT,1)\r\nC\r\nC     COPY PHASE ---\r\nC     IF OUTPUT FILE IS NOT SPECIFIED, NFILE(6) WILL CONTAIN NAME OF\r\nC     SCRATCH FILE CONTAINING OUTPUT\r\nC\r\n  320 NFILE(6) = OUT\r\n      IF (OUTFL .EQ. 0) GO TO 350\r\n      CALL OPEN (*410,OUT,L(BUFA,1),0)\r\n      IF (INPFL .NE. OUTFL) GO TO 330\r\n      CALL CLOSE (INPFL,1)\r\n      CALL OPEN  (*420,INPFL,L(BUFIN,1),1)\r\n  330 CALL READ  (*470,*340,OUT,L,NZ,0,NFLAG)\r\n      CALL WRITE (OUTFL,L,NZ,0)\r\n      GO TO 330\r\n  340 CALL WRITE (OUTFL,L,NFLAG,1)\r\n      CALL CLOSE (OUT,1)\r\n  350 RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  360 J = -8\r\n      FILE = 0\r\n      GO TO  500\r\n  365 J = -37\r\n      GO TO  500\r\n  370 FILE = SCRA\r\n      GO TO  480\r\n  380 FILE = SCRB\r\n      GO TO  480\r\n  390 FILE = IN1\r\n      GO TO  480\r\n  400 FILE = IN2\r\n      GO TO  480\r\n  410 FILE = OUT\r\n      GO TO  480\r\n  420 FILE = INPFL\r\n      GO TO  480\r\n  430 FILE = INPFL\r\n      GO TO  490\r\n  440 FILE = SCRA\r\n      GO TO  490\r\n  450 FILE = IN1\r\n      GO TO  490\r\n  460 FILE = IN2\r\n      GO TO  490\r\n  470 FILE = OUT\r\n      GO TO  490\r\n  480 J = -1\r\n      GO TO  500\r\n  490 J = -2\r\n  500 CALL MESAGE (J,FILE,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/spanl1.f",
    "content": "      SUBROUTINE SPANL1(IARG)\r\nC*****\r\nC THIS ROUTINE COMPUTES PHASE I PARAMETERS FOR STRESS DATA RECOVERY FOR\r\nC THE SHEAR PANEL (IF IARG = 4) AND THE TWIST PANEL (IF IARG = 5).\r\nC MUCH OF THE CODE WAS LIFTED FROM SUBROUTIVE KPANEL\r\nC*****\r\nC\r\nC                 E C P T  F O R  B O T H  P A N E L S\r\nC ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC ECPT( 3)  -   ...                   ...\r\nC ECPT( 4)  -   ...                   ...\r\nC ECPT( 5)  -   ...                   ...\r\nC ECPT( 6)  -  MATID          MATERIAL ID.\r\nC ECPT( 7)  -  T              THICKNESS\r\nC ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC ECPT(11)  -   ...                      ...\r\nC ECPT(12)  -   ...                      ...\r\nC ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC ECPT(15)  -   ...                      ...\r\nC ECPT(16)  -   ...                      ...\r\nC ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC ECPT(19)  -   ...                      ...\r\nC ECPT(20)  -   ...                      ...\r\nC ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC ECPT(23)  -   ...                      ...\r\nC ECPT(24)  -   ...                      ...\r\nC ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\n      REAL\r\n     1                   NU\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   VD1(3)             ,VD2(3)\r\n     2,                  VKN(3)             ,VK(3)\r\n     3,                  V12(3)             ,V41(3)\r\n     4,                  VP12(3)            ,VI(3)\r\n     5,                  VJ(3)              ,AVEC(4)\r\n     6,                  SMALLU(4)          ,SMALLV(4)\r\n     7,                  P(4)               ,IECPT(100)\r\n     8,                  ECPT(100)\r\n     9,                  VLEFT(6)           ,TI(9)\r\nC\r\nC SDR2 PHASE I INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X5/\r\n     1                   IELID              ,ISILNO(4)\r\n     2,                  MATID              ,T\r\n     3,                  FMU                ,ICSID1\r\n     4,                  GP1(3)             ,ICSID2\r\n     5,                  GP2(3)             ,ICSID3\r\n     6,                  GP3(3)             ,ICSID4\r\n     7,                  GP4(3)             ,TEMPEL\r\n     8,                  XXXXXX(75)\r\n      COMMON   /SDR2X5/\r\n     1                   JELID              ,JSILNO(4)\r\n     2,                  S(3,4)             ,OUT(15)\r\n     3,                  YYYYYY(93)\r\nC\r\nC SDR2 SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X6/\r\n     1                   VLEFT              ,TI\r\n     2,                  SPCON\r\n     4,                  VD1                ,VD2\r\n     5,                  VKN                ,VK\r\n     6,                  V12                ,V41\r\n     7,                  VP12               ,VI\r\n     8,                  VJ                 ,AVEC\r\n     9,                  SMALLU             ,SMALLV\r\n     T,                  P                  ,X1\r\n     1,                  X2                 ,X3\r\n     2,                  X4                 ,Y1\r\n     3,                  Y2                 ,Y3\r\n     4,                  Y4                 ,VKL\r\n     5,                  PA                 ,V12DK\r\n     6,                  CEP1               ,CEP2\r\n     7,                  EP                 ,TEMP\r\n      COMMON   /SDR2X6/\r\n     1                   YP                 ,XP\r\n     2,                  SA                 ,XQ\r\n     4,                  B                  ,XL\r\n     5,                  A                  ,A2\r\n     6,                  A3                 ,A4\r\n     7,                  A5                 ,B2\r\n     8,                  B3                 ,B4\r\n     9,                  B5                 ,C\r\n     T,                  C2                 ,C3\r\n     1,                  C4                 ,C5\r\n     2,                  D                  ,D2\r\n     3,                  D3                 ,D4\r\n     4,                  D5                 ,TERM1\r\n     5,                  TERM2              ,TERM3\r\n     6,                  TERM4              ,TERM5\r\n     7,                  XL13               ,XL24\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\nC\r\nC\r\nC\r\n      COMMON   /MATOUT/\r\n     1                   E                  ,G\r\n     2,                  NU                 ,RHO\r\n     3,                  ALPHA              ,TSUBO\r\n     4,                  GSUBE              ,SIGT\r\n     5,                  SIGC               ,SIGS\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (IELID,IECPT(1),ECPT(1))\r\nC\r\nC CALL MAT TO GET MATERIAL PROPERTIES.\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\nC\r\nC COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I=1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3)-VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1)-VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2)-VD1(2)*VD2(1)\r\n      VKL = SQRT(VKN(1)**2+VKN(2)**2+VKN(3)**2)\r\n      IF (VKL .EQ. 0.0) GO TO 160\r\n      VK(1) = VKN(1)/VKL\r\n      VK(2) = VKN(2)/VKL\r\n      VK(3) = VKN(3)/VKL\r\n      PA = .5 * VKL\r\nC\r\nC COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I=1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK = V12(1)*VK(1)+V12(2)*VK(2)+V12(3)*VK(3)\r\n      VP12(1) = V12(1)-V12DK*VK(1)\r\n      VP12(2) = V12(2)-V12DK*VK(2)\r\n      VP12(3) = V12(3)-V12DK*VK(3)\r\n      VP12L = SQRT(VP12(1)**2+VP12(2)**2+VP12(3)**2)\r\n      IF (VP12L .EQ. 0.0) GO TO 170\r\n      VI(1) = VP12(1)/VP12L\r\n      VI(2) = VP12(2)/VP12L\r\n      VI(3) = VP12(3)/VP12L\r\n      VJ(1) = VK(2)*VI(3)-VK(3)*VI(2)\r\n      VJ(2) = VK(3)*VI(1)-VK(1)*VI(3)\r\n      VJ(3) = VK(1)*VI(2)-VK(2)*VI(1)\r\nC\r\nC NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = SQRT (VJ(1)**2  +  VJ(2)**2  +  VJ(3)**2)\r\n      IF (VJL .EQ. 0.0) GO TO 180\r\n      VJ(1) = VJ(1) / VJL\r\n      VJ(2) = VJ(2) / VJL\r\n      VJ(3) = VJ(3) / VJL\r\n      X1 = 0.0\r\n      Y1 = 0.0\r\n      X2 = VP12L\r\n      Y2 = 0.0\r\n      X3 = VI(1) * VD1(1)  +  VI(2) * VD1(2)  +  VI(3) * VD1(3)\r\n      Y3 = VJ(1) * VD1(1)  +  VJ(2) * VD1(2)  +  VJ(3) * VD1(3)\r\n      X4 =-VI(1) * V41(1)  -  VI(2) * V41(2)  -  VI(3) * V41(3)\r\n      Y4 =-VJ(1) * V41(1)  -  VJ(2) * V41(2)  -  VJ(3) * V41(3)\r\nC\r\nC CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES.  IF NOT,\r\nC CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.0) GO TO 190\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 200\r\n      IF (Y4 .LE. 0.0) GO TO 210\r\n      IF (X4 .GE. X2 - (X2-X3)*Y4/Y3) GO TO 220\r\nC\r\nC TEST FOR PARALLEL EFFECTS.\r\nC\r\n      TEMP = X3 - X2\r\n      EP = 0.01\r\n      IF (ABS(Y3-Y4).LT.ABS(X3-X4)*EP) GO TO 30\r\n      IF (ABS(Y4*TEMP-Y3*X4).LT.ABS(X4*TEMP+Y4*Y3)*EP) GO TO 40\r\n      GO TO 70\r\n   30 IF (ABS(Y4*TEMP-Y3*X4).LT.ABS(X4*TEMP+Y4*Y3)*EP) GO TO 50\r\nC\r\nC AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO THE\r\nC LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4  -  Y4 * (X3-X2)\r\n      YP   = X2*Y3*Y4 / TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4 / TEMP\r\n      SA   =(X2 - XP) / YP\r\n      C    =(X1 - XP) / YP\r\n      Z    =(  (P(1)*P(2)*PA) / (P(3)*P(4)*2.0*G*T)  ) *\r\n     1      (  1.0  +  2.0/(3.0 + 3.0*NU) * (SA**2 + SA*C + C**2)  )\r\n      GO TO 80\r\nC\r\nC AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO THE\r\nC LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D    = -.5 * (  X4/Y4  +  (X3-X2)/Y3  )\r\n      XQ   = X4  - Y4  *  (X3-X4)/(Y3-Y4)\r\n      TEMP = 1.0 / SQRT (1.0 + D**2)\r\n      P(1) = ( XQ - X1 - D*Y1) * TEMP\r\n      P(2) = ( XQ - X2 - D*Y2) * TEMP\r\n      P(3) = ( XQ - X3 - D*Y3) * TEMP\r\n      P(4) = ( XQ - X4 - D*Y4) * TEMP\r\n      TEMP =   XQ - X4\r\n      B    =   (TEMP * D  +  Y4)  /  (TEMP  -  Y4*D)\r\n      Z    =(  (P(1)*P(2)*PA) / (P(3)*P(4)*2.0*G*T)  ) *\r\n     1      (  1.0  +  2.0/(3.0 + 3.0*NU) * (B**2 + B*D + D**2)  )\r\n      GO TO 80\r\nC\r\nC IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I=1,4\r\n   60 P(I) = 1.0\r\n      D    = -.5 * (  X4/Y4  +  (X3-X2)/Y3  +  (Y3-Y4)/(X3-X4)  )\r\n      Z    = PA / (2.0*G*T) * (1.0 + 2.0*D**2/(1.0+NU))\r\n      GO TO 80\r\nC\r\nC IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4  -  (X3-X4)/(Y3-Y4) * Y4\r\n      TEMP = Y3*X4  -  Y4*(X3-X2)\r\n      XP   = X2*Y3*X4 / TEMP\r\n      YP   = X2*Y3*Y4 / TEMP\r\n      XL   = SQRT ( (XQ-XP)**2 + YP**2 )\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP * (XQ - X1 - D*Y1)\r\n      P(2) = TEMP * (XQ - X2 - D*Y2)\r\n      P(3) = TEMP * (XQ - X3 - D*Y3)\r\n      P(4) = TEMP * (XQ - X4 - D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .5 * P(1) * P(2) * P(3) * P(4) / XL**2\r\n      TERM =    A  +  B  +  2.0*(A3+B3)/3.0  +  .2*(A5+B5)\r\n      TERM1=    C  +  D  +  2.0*(C3+D3)/3.0  +  .2*(C5+D5)\r\n      TERM2=    B  +  C  +  2.0*(B3+C3)/3.0  +  .2*(B5+C5)\r\n      TERM3=    D  +  A  +  2.0*(D3+A3)/3.0  +  .2*(D5+A5)\r\n      TERM =   TERM  * ALOG(ABS(A+B))\r\n      TERM1=   TERM1 * ALOG(ABS(C+D))\r\n      TERM2=   TERM2 * ALOG(ABS(B+C))\r\n      TERM3=   TERM3 * ALOG(ABS(D+A))\r\n      TERM4=  .1*( (A2-C2)*(B3-D3)  +  (B2-D2)*(A3-C3) )\r\n      TERM5=  .2*( (A -C )*(B4-D4)  +  (B -D )*(A4-C4) )\r\n      F    =  TEMP * (TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5)\r\n      Z    =  P(1)*P(2) / (P(3)*P(4)*2.0*G*T) * (PA + 4.0/(1.0+NU) *\r\n     1                                               (F - 2.0*PA/3.0))\r\n   80 XL13 =  SQRT (X3**2 + Y3**2)\r\n      XL24 =  SQRT (  (X4-X2)**2  +  Y4**2  )\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP = X4 * Y3  -  X3 * Y4\r\n      AVEC(1) = -.5 * X2 * Y4 * XL13 / TEMP\r\n      AVEC(2) = .5 * X2 * Y3 * XL24 / (TEMP - X2 * (Y3-Y4) )\r\n      AVEC(3) = - AVEC(1)\r\n      AVEC(4) = - AVEC(2)\r\nC\r\nC IF IARG = 4, WE HAVE A SHEAR PANEL, AND IF IARG = 5, A TWIST PANEL.\r\nC\r\n      IF (IARG .EQ. 4) GO TO 100\r\nC\r\nC SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU AND\r\nC SMALLU IN SMALLV.\r\nC\r\n      DO 90 I=1,4\r\n      TEMP = SMALLU(I)\r\n      SMALLU(I) = -SMALLV(I)\r\n   90 SMALLV(I) = TEMP\r\nC\r\nC COMPUTE THE SINGLE PRECISION CONSTANT SPCON\r\nC\r\n  100 IF (IARG .EQ. 5) GO TO 110\r\n      SPCON = -1.0/ (2.0 * Z * T)\r\n      GO TO 120\r\n  110 SPCON = -1.0/ (4.0 * Z)\r\nC\r\nC COMPUTE THE FOUR 1 X 3 MATRICES S\r\nC\r\n  120 DO 140 I=1,4\r\n      IVLBEG = 1\r\n      VLEFT(1) = SMALLU(I) * VI(1)  +  SMALLV(I) * VJ(1)\r\n      VLEFT(2) = SMALLU(I) * VI(2)  +  SMALLV(I) * VJ(2)\r\n      VLEFT(3) = SMALLU(I) * VI(3)  +  SMALLV(I) * VJ(3)\r\n      IF (IECPT(4*I+5) .EQ. 0) GO TO 130\r\n      IVLBEG = 4\r\n      CALL TRANSS (IECPT(4*I+5),TI)\r\n      CALL GMMATS (VLEFT(1),3,1,1, TI,3,3,0, VLEFT(4) )\r\n  130 CONTINUE\r\n      S(1,I) = SPCON * VLEFT(IVLBEG  ) * AVEC(I)\r\n      S(2,I) = SPCON * VLEFT(IVLBEG+1) * AVEC(I)\r\n      S(3,I) = SPCON * VLEFT(IVLBEG+2) * AVEC(I)\r\n  140 CONTINUE\r\n      OUT(1) = AVEC(1)\r\n      OUT(2) = AVEC(2)\r\n      OUT(3) = T\r\n      OUT(4) = P(2) / P(1)\r\n      OUT(5) = P(1) * P(2) / P(3)**2\r\n      OUT(6) = P(1) * P(2) / P(4)**2\r\n      OUT(7) = SIGS\r\n      JELID = IELID\r\n      DO 150 I=1,4\r\n  150 JSILNO(I) = ISILNO(I)\r\n      IF( IARG .NE. 4 ) RETURN\r\nC*****\r\nC  ADDITIONAL PHASE-1 OUTPUTS FOR SHEAR PANEL FORCES  IN PHASE 2\r\nC*****\r\n      OUT(8) = P(1) / P(3) *T\r\n      OUT(9) = ( P(1)*P(2) ) / ( P(3)*P(4) ) * T\r\n      OUT(10) = P(2) / P(4) * T\r\n      OUT(11)= -V12DK / 2.0\r\n      OUT(12)= X2 / 2.0\r\n      OUT(13)= SQRT( (X3-X2)**2 + Y3**2 ) / 2.0\r\n      OUT(14)= SQRT( (X4-X3)**2 + (Y4-Y3)**2 ) / 2.0\r\n      OUT(15)= SQRT( X4**2 + Y4**2 ) / 2.0\r\n      RETURN\r\n  160 CONTINUE\r\n  170 CONTINUE\r\n  180 CALL MESAGE (-30,26,IECPT(1))\r\n  190 IECPT(2) = 2\r\n      GO TO 230\r\n  200 IECPT(2) = 4\r\n      GO TO 230\r\n  210 IECPT(2) = 1\r\n      GO TO 230\r\n  220 IECPT(2) = 3\r\n  230 CALL MESAGE (-30,27,IECPT(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/spanl2.f",
    "content": "      SUBROUTINE SPANL2(IARG)\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE SHEAR AND\r\nC TWIST PANEL ELEMENTS.\r\nC*****\r\nC\r\nC\r\n      REAL    FRLAST(2)\r\n      INTEGER EJECT    ,ISHD(7)  ,ISTYP(2) ,TYP(4)   ,IFOR(1)\r\nC\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION.\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUMMY(33)          ,ICSTM\r\n     2,                  NCSTM              ,IVEC\r\n     3,                  IVECN              ,TEMPLD\r\n     4,                  ELDEFM\r\nC\r\nC SDR2 PHASE II INPUT AND OUTPUT BLOCK.\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   IELID              ,ISILNO(4)\r\n     2,                  S(3,4)             ,A(2)\r\n     3,                  T                  ,RATIO(3)\r\n     4,                  SIGS               ,RQ(4)\r\n     5,                  RK(4)              ,XXXXXX(68)\r\n      COMMON   /SDR2X7/\r\n     1                   JSELID             ,STRES(3)\r\n     2,                  YYYYYY(96)\r\n      COMMON   /SDR2X7/\r\n     1                   JFELID             ,FORCES(16)\r\n     2,                  ZZZZZZ(8)\r\nC\r\nC SDR2 SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   S1BAR              ,TERM\r\n     2,                  TAU(4)             ,IDISP\r\n     3,                  IU                 ,CTU(4)\r\n     4,                  CFRVEC(19)\r\nC\r\nC OUTPUT PRECISION CHECK BLOCK\r\nC\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\nC\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\nC\r\n      EQUIVALENCE(STRES(1),TAUMAX)\r\n      EQUIVALENCE(STRES(2),TAUAVG)\r\n      EQUIVALENCE(STRES(3),MARSAF,SAFMAR)\r\n      EQUIVALENCE(FORCES(1),IFOR(1),P13)\r\n      EQUIVALENCE(FORCES(2),P24)\r\nC////////  FOLLOWING 8 FORCES MAY NOT BE EQUIVALENCED CORRECTLY YET/////\r\n      EQUIVALENCE(FORCES(1),F1 )\r\n      EQUIVALENCE(FORCES(2),F2 )\r\n      EQUIVALENCE(FORCES(3),F3 )\r\n      EQUIVALENCE(FORCES(4),F4 )\r\n      EQUIVALENCE(FORCES(5),F5 )\r\n      EQUIVALENCE(FORCES(6),F6 )\r\n      EQUIVALENCE(FORCES(7),F7 )\r\n      EQUIVALENCE(FORCES(8),F8 )\r\n      EQUIVALENCE(FORCES( 9),RK1)\r\n      EQUIVALENCE(FORCES(10),Q1)\r\n      EQUIVALENCE(FORCES(11),RK2)\r\n      EQUIVALENCE(FORCES(12),Q2)\r\n      EQUIVALENCE(FORCES(13),RK3)\r\n      EQUIVALENCE(FORCES(14),Q3)\r\n      EQUIVALENCE(FORCES(15),RK4)\r\n      EQUIVALENCE(FORCES(16),Q4)\r\n      EQUIVALENCE(ISHD(1),LSUB)\r\n      EQUIVALENCE(ISHD(2),LLD)\r\n      EQUIVALENCE(ISHD(6),FRLAST(1))\r\n      EQUIVALENCE(CFRVEC(1),IFRVEC)\r\nC\r\n      DATA LSUB,LLD,FRLAST / 2*-1, -1.0E30, -1.0E30 /\r\n      DATA TYP / 4HSHEA,1HR, 4HTWIS,1HT /\r\n      DATA LARG / 0 /\r\nC\r\n      IDISP = IVEC - 1\r\nC\r\nC COMPUTE AVERAGE STRESS ALONG SIDE 1 IF WE ARE DEALING WITH A SHEAR\r\nC PANEL OR MEAN FIBRE SHEAR STRESS IF WE HAVE A TWIST PANEL.\r\nC\r\n      CS1BR = 0.0\r\n      S1BAR = 0.0\r\n      DO 10 I = 1,4\r\n      IU = IDISP + ISILNO(I)\r\n      IF (IARG .EQ. 5) IU = IU + 3\r\n      CALL SMMATS(S(1,I),3,1,1,ZZ(IU),3,1,0,TERM,CTRM)\r\n      CS1BR = CS1BR + CTRM\r\n   10 S1BAR = S1BAR + TERM\r\nC\r\nC COMPUTE STRESSES AT THE CORNERS\r\nC\r\n      TAU(1) = RATIO(1) * S1BAR\r\n      TAU(2) = S1BAR / RATIO(1)\r\n      TAU(3) = RATIO(2) * S1BAR\r\n      TAU(4) = RATIO(3) * S1BAR\r\n      CTU(1) = ABS (RATIO(1)) * CS1BR\r\n      CTU(2) = CS1BR / ABS (RATIO(1))\r\n      CTU(3) = ABS (RATIO(2)) * CS1BR\r\n      CTU(4) = ABS (RATIO(3)) * CS1BR\r\nC\r\nC COMPUTE AVERAGE STRESS\r\nC\r\n      TAUAVG = 0.25 * (TAU(1) + TAU(2) + TAU(3) + TAU(4))\r\n      CFRVEC(3) = 0.25E0 * (CTU(1) + CTU(2) + CTU(3) + CTU(4) )\r\nC\r\nC COMPUTE MAXIMUM STRESS\r\nC\r\n      TAUMAX = ABS(TAU(1))\r\n      CFRVEC(2) = TAUMAX\r\n      DO 50 I = 2,4\r\n      IF (ABS(TAU(I)) .GT. TAUMAX) TAUMAX = ABS(TAU(I))\r\n      IF (CTU(I).GT.CFRVEC(2))  CFRVEC(2) = CTU(I)\r\n   50 CONTINUE\r\nC\r\nC COMPUTE MARGIN OF SAFETY\r\nC\r\n      IF(SIGS.LE.0.0)GO TO 100\r\n      IF(TAUMAX.EQ.0.0)GO TO 100\r\n      SAFMAR=SIGS/TAUMAX-1.0\r\n      GO TO 101\r\n  100 MARSAF=1\r\n  101 CONTINUE\r\nC\r\nC FOR A SHEAR PANEL COMPUTE LOADS, FOR A TWIST PANEL COMPUTE STRESSES.\r\nC\r\n      IF( IARG .NE. 4 ) GO TO 70\r\nC\r\nC     SHEAR PANEL FORCES\r\nC\r\n      Q1 = S1BAR*T /  SQRT( 1.0 + ( RQ(4)/RK(1) )**2)\r\n      Q2 = S1BAR * RQ(1) /  SQRT( 1.0 + ( RQ(4)/RK(2) )**2)\r\n      Q3 = S1BAR * RQ(2) /  SQRT( 1.0 + ( RQ(4)/RK(3) )**2)\r\n      Q4 = S1BAR * RQ(3) /  SQRT( 1.0 + ( RQ(4)/RK(4) )**2)\r\n      CFRVEC(13) = CS1BR * ABS(T) / SQRT (1.0E0 + (RQ(4)/RK(1) ) **2 )\r\n      DO 60 I = 1,3\r\n      F     = SQRT (1.0E0 + ( RQ(4)/RK(I+1) ) **2  )\r\n      FORCES(2*I+10) = S1BAR * RQ(I) / F\r\n   60 CFRVEC(2*I+13) = CS1BR * ABS(RQ(I)) / F\r\nC\r\n      F     = ABS (RQ(4))\r\n      RK1 = -( Q1 + Q4 ) * RQ(4)\r\n      RK2 = -( Q1 + Q2 ) * RQ(4)\r\n      RK3 = -( Q2 + Q3 ) * RQ(4)\r\n      RK4 = -( Q3 + Q4 ) * RQ(4)\r\n      CFRVEC(12) = (CFRVEC(13) + CFRVEC(19)) * F\r\n      CFRVEC(14) = (CFRVEC(13) + CFRVEC(15)) * F\r\n      CFRVEC(16) = (CFRVEC(15) + CFRVEC(17)) * F\r\n      CFRVEC(18) = (CFRVEC(17) + CFRVEC(19)) * F\r\n      F1 = Q4 * RK(4)\r\n      F2 = Q1 * RK(1)\r\n      F5 = Q2 * RK(2)\r\n      F6 = Q3 * RK(3)\r\n      CFRVEC(4) = CFRVEC(19) * ABS (RK(4) )\r\n      CFRVEC(5) = CFRVEC(13) * ABS (RK(1) )\r\n      CFRVEC(8) = CFRVEC(15) * ABS (RK(2) )\r\n      CFRVEC(9) = CFRVEC(17) * ABS (RK(3) )\r\n      F3 = -F2\r\n      F4 = -F5\r\n      F7 = -F6\r\n      F8 = -F1\r\n      CFRVEC( 6) = CFRVEC(5)\r\n      CFRVEC( 7) = CFRVEC(8)\r\n      CFRVEC(10) = CFRVEC(9)\r\n      CFRVEC(11) = CFRVEC(4)\r\n      GO TO 80\r\nC\r\nC     TWIST STRESSES\r\nC\r\n   70 P13 = A(1) * S1BAR * T\r\n      P24 = A(2) * S1BAR * T\r\n      TERM = T / 6.0\r\n      CFRVEC(4) = A(1) * CS1BR * T\r\n      CFRVEC(5) = A(2) * CS1BR * T\r\n      P13  = P13 * TERM\r\n      P24  = P24 * TERM\r\n      CFRVEC(4) = ABS (CFRVEC(4) * TERM)\r\n      CFRVEC(5) = ABS (CFRVEC(5) *TERM)\r\nC\r\nC STORE ELEMENT ID IN OUTPUT SLOTS.\r\nC\r\n   80 JSELID = IELID\r\n      JFELID = IELID\r\n      IF (NCHK.LE.0) GO TO 260\r\nC\r\nC  . CHECK PRECISION...\r\nC\r\n      K = 0\r\nC\r\nC  . STRESSES...\r\n      CALL SDRCHK (STRES(1),CFRVEC(2),2,K)\r\nC\r\nC  . FORCES...\r\n      I = 16\r\n      IF (IARG.NE.4) I = 2\r\n      CALL SDRCHK (FORCES(1),CFRVEC(4),I,K)\r\n      IF (K.EQ.0) GO TO 260\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      IFRVEC = IELID\r\n      I = 1\r\n      IF (IARG.NE.4) I = 3\r\n      ISTYP(1) = TYP(I)\r\n      ISTYP(2) = TYP(I+1)\r\n      J = 0\r\nC\r\n      IF  (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND. LARG.EQ.IARG\r\n     1.AND. LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 230\r\n      LSUB = ISUB\r\n      LARG = IARG\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 2\r\n      CALL PAGE1\r\n  200 CALL SD2RHD (ISHD,J)\r\n      LINE = LINE + 1\r\n      IF (IARG.EQ.4) WRITE(NOUT,210)\r\n      IF (IARG.NE.4) WRITE(NOUT,220)\r\n  210 FORMAT (7X,4HTYPE,5X,42HEID  SMAX  SAVE  F1-4  F1-2  F2-1  F2-3  F\r\n     1,60H3-2  F3-4  F4-3  F4-1   K-1  SH12   K-2  SH23   K-3  SH34    \r\n     2, 9HK-4  SH41)\r\n  220 FORMAT (7X,4HTYPE,5X,27HEID  SMAX  SAVE  M1-3  M2-4)\r\n      GO TO 240\r\n  230 IF (EJECT(2).NE.0) GO TO 200\r\n  240 I = 19\r\n      IF (IARG.NE.4) I = 5\r\n      WRITE(NOUT,250) ISTYP,(CFRVEC(J),J=1,I)\r\n  250 FORMAT (1H0,6X,A4,A1,I7,18F6.1)\r\nC\r\n  260 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/splt10.f",
    "content": "      SUBROUTINE SPLT10( ICOMP, COMPS, NC)\r\n      INTEGER COMPS(9)\r\n      IF( ICOMP .EQ. 0) ICOMP= 1\r\n      IC = ICOMP\r\n      NC = 0\r\n      DO 10  I=1,9\r\n      IX = IC/10\r\n      JX = IC - 10*IX\r\n      IC = IX\r\n      IF ( JX .EQ. 0) GO TO 5\r\n      NC =NC+1\r\n      COMPS(NC)= JX\r\n    5 IF( IC .EQ. 0) GO TO 15\r\n   10 CONTINUE\r\n   15 IF (NC .EQ. 1) RETURN\r\n      CALL SORT (0,0,1,1, COMPS,NC )\r\nC\r\nC     REMOVE DUPLICATES\r\n      IX= 1\r\n      DO 20 I=2,NC\r\n      IF ( COMPS(I) .EQ. COMPS(I-1)) GO TO 20\r\n      IX = IX+1\r\n      COMPS(IX) = COMPS(I)\r\n   20 CONTINUE\r\n      NC = IX\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sptchk.f",
    "content": "      SUBROUTINE SPTCHK\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY BANDIT TO CHECK THE PRESENCE OF ANY\r\nC     UNDEFINED SPOINT. RESET NGRID AND RETURN FOR ONE MORE COMPUTATION\r\nC     IF THAT IS THE CASE\r\nC\r\n      INTEGER         GEOM1,    GEOM2,    RD,       RDREW,    REW,\r\n     1                Z,        SPOINT(2),NAME(2),  KG(200)\r\n      COMMON /SYSTEM/ IBUF,     NOUT\r\n      COMMON /BANDA / IBUF1,    DUM6(6),  NPT(2)\r\n      COMMON /BANDB / DUM3(3),  NGRID,    DUM4(4),  IREPT\r\n      COMMON /BANDD / NDD(9)\r\n      COMMON /BANDS / SKIP(4),  MAXGRD\r\n      COMMON /GEOMX / GEOM1,    GEOM2\r\n      COMMON /NAMES / RD,       RDREW,    DUM2(2),  REW\r\n      COMMON /GPTA1 / NE,       LAST,     INCR,     KE(1)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA            SPOINT,   NAME /    5551,49,  4HBMIS, 4HS      /\r\nC\r\nC     LIST ALL SPOINTS IN Z(1) THRU Z(NS)\r\nC\r\n      IF (IREPT .EQ. 3) GO TO 160\r\n      NS=1\r\n      CALL PRELOC (*160,Z(IBUF1),GEOM2)\r\n      CALL LOCATE (*40,Z(IBUF1),SPOINT,K)\r\n 30   CALL READ (*180,*40,GEOM2,Z(NS),1,0,K)\r\n      NS=NS+1\r\n      GO TO 30\r\n 40   NS=NS-1\r\n      CALL REWIND (GEOM2)\r\nC\r\nC     CHECK THE PRESENCE OF ELAST, DAMP AND MASS CARDS (ELEMENT TYPES\r\nC     201 THRU 1301).  THEY MAY SPECIFY SCALAR POINTS WITHOUT USING\r\nC     SPOINT CARDS.\r\nC\r\n      NSS=NS\r\n      DO 100 IELEM=26,350,INCR\r\n      CALL LOCATE (*100,Z(IBUF1),KE(IELEM+3),J)\r\n      NWDS =KE(IELEM+5)\r\n      NGPT1=KE(IELEM+12)\r\n      NGPTS=KE(IELEM+9)+NGPT1-1\r\n 50   CALL READ (*180,*100,GEOM2,KG(1),NWDS,0,J)\r\n      DO 90 I=NGPT1,NGPTS\r\n      IF (NS .EQ. 0) GO TO 70\r\n      CALL BISLOC (*70,KG(I),Z(1),1,NS,K)\r\n      GO TO 90\r\n 70   NSS=NSS+1\r\n      IF (NSS .GE. IBUF1) GO TO 110\r\n      Z(NSS)=KG(I)\r\n 90   CONTINUE\r\n      GO TO 50\r\n 100  CONTINUE\r\n 110  CALL CLOSE (GEOM2,REW)\r\n      K=NSS-NS-1\r\n      IF (K) 160,140,120\r\nC\r\nC     SOME SCALAR POINTS ARE USED, BUT NOT SPECIFIED BY SPOINT CARDS.\r\nC     SORT THEM, AND THROW OUT DUPLICATES\r\nC\r\n 120  NS1=NS+1\r\n      CALL SORT (0,0,1,1,Z(NS1),NSS-NS)\r\n      K  =NSS\r\n      NSS=NS1\r\n      J  =NS+2\r\n      DO 130 I=J,K\r\n      IF (Z(I) .EQ. Z(I-1)) GO TO 130\r\n      NSS=NSS+1\r\n      Z(NSS)=Z(I)\r\n 130  CONTINUE\r\nC\r\nC     RE-COMPUTE THE TOTAL NO. OF GRID POINTS, NGRID, AND RETURN FOR\r\nC     ONE MORE BANDIT COMPUTATION\r\nC\r\n 140  NPT(2)=NSS-NS\r\n      NGRID =NPT(1)+NPT(2)\r\n      DO 150 I=1,9\r\n 150  NDD(I)=0\r\n      IREPT =2\r\n      RETURN\r\nC\r\n 160  WRITE (NOUT,170) MAXGRD\r\n 170  FORMAT (120H1*** USER FATAL ERROR 2007,  THIS STRUCTURE MODEL USES\r\n     1 MORE GRID POINTS THAN THE TOTAL NO. OF GRID CARDS IN BULK DATA (=\r\n     2,I6,1H),/)\r\n      NGRID=0\r\n      GO TO 190\r\nC\r\n 180  CALL MESAGE (-3,GEOM2,NAME)\r\n 190  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdm11.f",
    "content": "      SUBROUTINE SQDM11\r\nC\r\nC     PHASE I OF STRESS DATA RECOVERY FOR THE  QUADRILATERAL MEMBRANE\r\nC     ELEMENT\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC\r\nC            MAT    - MATERIAL DATA ROUTINE\r\nC            MESAGE - ERROR MESSAGE WRITER\r\nC            GMMATS - SINGLE MATRIX MULTIPLY AND TRANSPOSE\r\nC            TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC\r\nC\r\n      REAL            LA,LB,LC,LD,LDD2,LBD1,LCD1,LCD2,MAGI,MAGJ,MAGK\r\n      DIMENSION       ECPT(26),EE(144)\r\n      COMMON /SYSTEM/ DUMMY(39),NBPW\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X5/ NECPT(1),NGRID(4),ANGLE,MATID1,T,FMU,\r\n     2                DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,\r\n     4                DUMMY3,X3,Y3,Z3,DUMMY4,X4,Y4,Z4,DUMB(75),\r\n     6                PH1OUT(100),FORVEC(25)\r\n      COMMON /SDR2X6/ E(9),TI(9),THETA,TEMPAR(150),A(24),G(9),B(96)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3),TSUB0,GSUBE,\r\n     1                SIGTEN,SIGCOM,SIGSHE,G2X211,G2X212,G2X222\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1))\r\nC\r\nC\r\nC      ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC        ECPT       DESCRIPTION                        ROUTINE    TYPE\r\nC     *******    *********************************     ********  ******\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2)   GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3)   GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4)   GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5)   GRID POINT D                          NGRID(4)  INTEGER\r\nC     ECPT( 6) = THETA = ANGLE OF MATERIAL             ANGLE      REAL\r\nC     ECPT( 7)   MATERIAL ID                           MATID     INTEGER\r\nC     ECPT( 8) = THICKNESS                             T          REAL\r\nC     ECPT( 9) = NON-STRUCTURAL MASS                   FMU        REAL\r\nC     ECPT(10)   COORD. SYSTEM ID 1                    NECPT(10) INTEGER\r\nC     ECPT(11) = X1                                     X1        REAL\r\nC     ECPT(12) = Y1                                     Y1        REAL\r\nC     ECPT(13) = Z1                                     Z1        REAL\r\nC     ECPT(14)   COORD. SYSTEM ID 2                    NECPT(14) INTEGER\r\nC     ECPT(15) = X2                                     X2        REAL\r\nC     ECPT(16) = Y2                                     Y2        REAL\r\nC     ECPT(17) = Z2                                     Z2        REAL\r\nC     ECPT(18)   COORD. SYSTEM ID 3                    NECPT(18) INTEGER\r\nC     ECPT(19) = X3                                     X3        REAL\r\nC     ECPT(20) = Y3                                     Y3        REAL\r\nC     ECPT(21) = Z3                                     Z3        REAL\r\nC     ECPT(22)   COORD. SYSTEM ID 4                    NECPT(22) INTEGER\r\nC     ECPT(23) = X4                                     X4        REAL\r\nC     ECPT(24) = Y4                                     Y4        REAL\r\nC     ECPT(25)   Z4                                     Z4        REAL\r\nC     ECPT(26) = ELEMENT TEMPERATURE                    ECPT(26)  REAL\r\nC\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (12X12) FOR THE QUAD-MEMBRANE PROJECT\r\nC                         ONTO THE MEAN PLANE\r\nC\r\n      DO 2 I = 1,144\r\n      EE(I) = 0.\r\n    2 CONTINUE\r\nC\r\nC     E(1), E(4), E(7) WILL BE THE I-VECTOR\r\nC     E(2), E(5), E(8) WILL BE THE J-VECTOR\r\nC     E(3), E(6), E(9) WILL BE THE K-VECTOR\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF ACTUAL GRID POINTS\r\nC\r\n      X21 = X2 - X1\r\n      Y21 = Y2 - Y1\r\n      Z21 = Z2 - Z1\r\n      X31 = X3 - X1\r\n      Y31 = Y3 - Y1\r\n      Z31 = Z3 - Z1\r\n      X41 = X4 - X1\r\n      Y41 = Y4 - Y1\r\n      Z41 = Z4 - Z1\r\n      X42 = X4 - X2\r\n      Y42 = Y4 - Y2\r\n      Z42 = Z4 - Z2\r\nC\r\nC     COMPUTE ELEMENTS OF THE E MATRIX (3X3)\r\nC\r\n      PK1 = Y31*Z42 - Z31*Y42\r\n      PK2 = Z31*X42 - X31*Z42\r\n      PK3 = X31*Y42 - Y31*X42\r\n      MAGK= SQRT(PK1**2 + PK2**2 + PK3**2)\r\n      IF (MAGK .GT. 1.0E-06) GO TO 40\r\n      CALL MESAGE (-30,32,ECPT(1))\r\n   40 PK1 = PK1/MAGK\r\n      PK2 = PK2/MAGK\r\n      PK3 = PK3/MAGK\r\nC\r\nC     HH IS THE MEASURE OF NON-PLANARITY OF THE ELEMENT\r\nC\r\n      HH  = X21*PK1 + Y21*PK2 + Z21*PK3\r\n      PI1 = X21 - HH*PK1\r\n      PI2 = Y21 - HH*PK2\r\n      PI3 = Z21 - HH*PK3\r\n      MAGI= SQRT(PI1**2 + PI2**2 + PI3**2)\r\n      IF (MAGI .GT. 1.0E-06) GO TO 41\r\n      CALL MESAGE (-30,31,ECPT(1))\r\n   41 PI1 = PI1/MAGI\r\n      PI2 = PI2/MAGI\r\n      PI3 = PI3/MAGI\r\n      HH  =-HH/2.\r\nC\r\nC     THIS SIGN CHANGE MADE BECAUSE SIGN OF H AS DEFINED ON\r\nC     PAGE 4.87-105 OF PROGRAMMERS MANUAL IS WRONG\r\nC\r\n      PJ1 = PK2*PI3 - PK3*PI2\r\n      PJ2 = PK3*PI1 - PK1*PI3\r\n      PJ3 = PK1*PI2 - PK2*PI1\r\n      MAGJ= SQRT(PJ1**2 + PJ2**2 + PJ3**2)\r\n      PJ1 = PJ1/MAGJ\r\n      PJ2 = PJ2/MAGJ\r\n      PJ3 = PJ3/MAGJ\r\n      E(1)= PI1\r\n      E(2)= PJ1\r\n      E(3)= PK1\r\n      E(4)= PI2\r\n      E(5)= PJ2\r\n      E(6)= PK2\r\n      E(7)= PI3\r\n      E(8)= PJ3\r\n      E(9)= PK3\r\nC\r\nC     STORE FOUR (3X3) E MATRICES INTO (12X12) E MATRIX\r\nC\r\n      LLCT = -39\r\n      DO 5 IICT = 1,12,3\r\n      LLCT = LLCT + 39\r\n      NNCT = 0\r\n      MMCT =-12\r\n      DO 4 JJCT = 1,3\r\n      MMCT = MMCT + 12\r\n      DO 3 KKCT = 1,3\r\n      NNCT = NNCT + 1\r\n      KTOT = KKCT + LLCT + MMCT\r\n      EE(KTOT) = E(NNCT)\r\n    3 CONTINUE\r\n    4 CONTINUE\r\n    5 CONTINUE\r\nC\r\nC     COMPUTE DIFFERENCES OF COORDINATES OF GRID POINTS IN THE MEAN PLAN\r\nC\r\n      X12 =-(X21*E(1) + Y21*E(4) + Z21*E(7))\r\n      X13 =-(X31*E(1) + Y31*E(4) + Z31*E(7))\r\n      X14 =-(X41*E(1) + Y41*E(4) + Z41*E(7))\r\n      Y3A = (X31*E(2) + Y31*E(5) + Z31*E(8))\r\n      Y4A = (X42*E(2) + Y42*E(5) + Z42*E(8))\r\n      X24 = X14 - X12\r\n      X23 = X13 - X12\r\n      X34 = X14 - X13\r\n      Y34 = Y3A - Y4A\r\nC\r\nC\r\nC     COMPUTE LENGTHS OF SIDES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      LA = ABS(X12)\r\n      LB = SQRT(X23**2 + Y3A**2)\r\n      LC = SQRT(X34**2 + Y34**2)\r\n      LD = SQRT(X14**2 + Y4A**2)\r\nC\r\nC     COMPUTE THE CHARACTERISTIC ANGLES OF ELEMENT IN THE MEAN PLANE\r\nC\r\n      CTH1  =-X14/LD\r\n      STH1  = Y4A/LD\r\n      CTH2  = X23/LB\r\n      STH2  = Y3A/LB\r\n      CTH31 = X34/LC\r\n      STH31 =-Y34/LC\r\n      CTH41 = CTH1\r\n      STH41 = STH1\r\n      CTH32 = STH2\r\n      STH32 = CTH2\r\n      CTH42 = STH31\r\n      STH42 = CTH31\r\nC\r\n      DLT1  = CTH31*CTH32 - STH31*STH32\r\n      DLT2  = CTH42*CTH41 + STH41*STH42\r\n      LDD2  = LD*DLT2\r\n      LBD1  = LB*DLT1\r\n      LCD1  = LC*DLT1\r\n      LCD2  = LC*DLT2\r\nC\r\nC                                                  *       *\r\nC     COMPUTE THE INTERSECTION OF THE DIAGONALS(ETA  AND XI ) OF\r\nC     THE ELEMENTS IN THE MEAN PLANE\r\nC\r\n      TOL  = 1.0E-3*(-X12)\r\n      IF (NBPW .GE. 60) TOL  = 1.0E-5*(-X12)\r\n      TOL2 = 1.0E-3*X12*X12\r\n      IF (NBPW .GE. 60) TOL2 = 1.0E-5*X12*X12\r\n      IF (ABS(X34+X12).GT.TOL .OR. ABS(Y34).GT.TOL) GO TO 6\r\n      ETAS =.5\r\n      XIS  =.5\r\n      GO TO 16\r\n    6 IF (ABS(X24).LT.TOL .OR. ABS(X13).LT.TOL) GO TO 7\r\n      XSTAR = (Y4A*X13*X12)/((Y3A*X24)-(Y4A*X13))\r\n      YSTAR = (-Y4A/X24)*(XSTAR+X12)\r\n      GO TO 9\r\n    7 IF (ABS(X13) .GT. TOL) GO TO 8\r\n      XSTAR = -X13\r\n      YSTAR = (-Y4A/X24)*X12\r\n      GO TO 9\r\n    8 XSTAR = -X12\r\n      YSTAR = (Y3A/X13)*X12\r\n    9 IF (ABS(X34+X12) .LT. TOL) GO TO 13\r\n      C1 = Y34*XSTAR - YSTAR*(X34+X12)\r\n      A2 =-Y4A*X23 + Y3A*X14\r\n      B2 =-Y4A*X12 + C1\r\n      IF (ABS(A2) .LE. TOL2) GO TO 10\r\n      TEMP2 = SQRT(B2**2-(4.*A2*X12*YSTAR))/(2.*A2)\r\n      TEMP1 =-B2/(2.*A2)\r\n      ETAS  = TEMP1 - TEMP2\r\n      IF (ETAS.LE.0. .OR. ETAS.GE.1.) ETAS = TEMP1 + TEMP2\r\n      GO TO 11\r\n   10 ETAS = (-X12*YSTAR)/B2\r\n   11 IF (ABS(Y34) .LT. TOL) GO TO 12\r\n      XIS = (-C1 + ((Y4A*X23) - (Y3A*X14))*ETAS)/(Y34*X12)\r\n      GO TO 16\r\n   12 XIS = (XSTAR + (X14*ETAS))/((ETAS*(X34+X12)) - X12)\r\n      GO TO 16\r\n   13 A3 = -X14*Y34\r\n      B3 =  X12*Y4A - Y34*XSTAR\r\n      IF (ABS(A3) .LE. TOL2) GO TO 14\r\n      TEMP2 = SQRT(B3**2 + (4.*A3*X12*YSTAR))/(2.*A3)\r\n      TEMP1 = -B3/(2.*A3)\r\n      ETAS  = TEMP1 - TEMP2\r\n      IF (ETAS.LE.0. .OR. ETAS.GE.1.) ETAS = TEMP1 + TEMP2\r\n      GO TO 15\r\n   14 ETAS = (X12*YSTAR)/B3\r\n   15 XIS  = (YSTAR - (Y4A*ETAS))/(Y34*ETAS)\r\nC\r\nC     SET UP THE (12X12) TRANSFORMATION MATRIX B BETWEEN THE MEAN PLANE\r\nC                        AND ACTUAL GRID POINTS\r\nC\r\n   16 DO 17 I = 2,92\r\n      B(I)  = 0.\r\n   17 CONTINUE\r\n      B(1)  = 1.\r\n      B(10) = 1.\r\n      B(17) =-HH/LA\r\n      B(18) =-HH/(LD*STH1) + ((HH*CTH1)/(LA*STH1))\r\n      B(19) = HH/LA\r\n      B(20) = (HH*CTH2)/(LA*STH2)\r\n      B(23) = (HH*CTH42)/LDD2\r\n      B(24) = (HH*STH42)/LDD2\r\n      B(27) = 1.\r\n      B(36) = 1.\r\n      B(41) =-B(17)\r\n      B(42) = (-HH*CTH1)/(LA*STH1)\r\n      B(43) = B(17)\r\n      B(44) = ((-HH*CTH2)/(LA*STH2)) + (HH/(LB*STH2))\r\n      B(45) = (-HH*STH31)/LBD1\r\n      B(46) = (-HH*CTH31)/LBD1\r\n      B(53) = 1.\r\n      B(62) = 1.\r\n      B(68) =-HH/(LB*STH2)\r\n      B(69) = HH*((STH31/LBD1) + (CTH32/LCD1))\r\n      B(70) = HH*((CTH31/LBD1) + (STH32/LCD1))\r\n      B(71) = (-HH*STH41)/LCD2\r\n      B(72) = (HH*CTH41)/LCD2\r\n      B(79) = 1.\r\n      B(88) = 1.\r\n      B(90) = HH/(LD*STH1)\r\n      B(93) = (-HH*CTH32)/LCD1\r\n      B(94) = (-HH*STH32)/LCD1\r\n      B(95) = HH*((-CTH42/LDD2) + (STH41/LCD2))\r\n      B(96) = HH*((-STH42/LDD2) - (CTH41/LCD2))\r\n      DO 18 I = 1,24\r\n      A(I)  = 0.\r\n   18 CONTINUE\r\nC                                                     T\r\nC     COMPUTE TRANSFORMED MATRIX OF STIFFNESSES  G = P  * G * P\r\nC\r\n      THETA  = ANGLE*DEGRA\r\n      SINTH  = SIN(THETA)\r\n      COSTH  = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      MATID  = MATID1\r\n      INFLAG = 2\r\n      ELTEMP = ECPT(26)\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     STORE INTO G MATRIX\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTE MATRIX A TO RELATE DISPLACEMENTS TO STRAINS\r\nC\r\n      AJ    = (-Y4A*X12) + (-Y34*X12*XIS) + ETAS*((-Y4A*X23)+(Y3A*X14))\r\n      A(1)  = (-Y4A + (Y3A*ETAS) - (Y34*XIS))/AJ\r\n      A(3)  = ( Y4A - (Y4A*ETAS) + (Y34*XIS))/AJ\r\n      A(5)  = ( Y4A*ETAS)/AJ\r\n      A(7)  = (-Y3A*ETAS)/AJ\r\n      A(10) = (-X24 + (X23*ETAS) + (X34*XIS))/AJ\r\n      A(12) = ( X14 - (X14*ETAS) - (X34*XIS))/AJ\r\n      A(14) = ((X14*ETAS) - (X12*XIS))/AJ\r\n      A(16) = (-X12 - (X23*ETAS) + (X12*XIS))/AJ\r\n      A(17) = (-X24 + (X23*ETAS) + (X34*XIS))/AJ\r\n      A(18) = (-Y4A + (Y3A*ETAS) - (Y34*XIS))/AJ\r\n      A(19) = ( X14 - (X14*ETAS) - (X34*XIS))/AJ\r\n      A(20) = ( Y4A - (Y4A*ETAS) + (Y34*XIS))/AJ\r\n      A(21) = ((X14*ETAS) - (X12*XIS))/AJ\r\n      A(22) = (Y4A*ETAS)/AJ\r\n      A(23) = (-X12 - (X23*ETAS) + (X12*XIS))/AJ\r\n      A(24) = (-Y3A*ETAS)/AJ\r\nC\r\nC                          T    T\r\nC     COMPUTE S = G * A * B  * E\r\nC\r\n      CALL GMMATS (B(1),12,8,1,EE(1),12,12,1,TEMPAR(1))\r\n      CALL GMMATS (A(1),3,8,0,TEMPAR(1),8,12,0,TEMPAR(100))\r\n      CALL GMMATS (G(1),3,3,0,TEMPAR(100),3,12,0,TEMPAR(1))\r\n      DO 27 L = 1,4\r\n      DO 19 N = 2,5\r\n      IF (NECPT(N) .NE. NGRID(L)) GO TO 19\r\n      KA = 4*N + 2\r\n      GO TO 20\r\n   19 CONTINUE\r\n      CALL MESAGE (-30,34,ECPT(1))\r\n   20 IF (NECPT(KA) .EQ. 0) GO TO 21\r\n      CALL TRANSS (NECPT(KA),TI)\r\n      GO TO 23\r\n   21 DO 22 II = 1,9\r\n      TI(II) = 0.\r\n   22 CONTINUE\r\n      TI(1) = 1.\r\n      TI(5) = 1.\r\n      TI(9) = 1.\r\n   23 LCNT  = 3*(L-1)\r\n      IROWCT= -12\r\n      NN    = 0\r\n      DO 25 JJ = 1,3\r\n      IROWCT= IROWCT + 12\r\n      DO 24 KK = 1,3\r\n      NN   = NN + 1\r\n      KTOT = KK + IROWCT + LCNT\r\n      NN49 = NN + 49\r\n      TEMPAR(NN49) = TEMPAR(KTOT)\r\n   24 CONTINUE\r\n   25 CONTINUE\r\n      CALL GMMATS (TEMPAR(50),3,3,0,TI,3,3,0,TEMPAR(60))\r\nC\r\nC                                                          TH\r\nC     MATRICES S  RELATE DISPLACEMENTS TO STRESSES AT THE I   GRIDPOINT\r\nC               I\r\nC\r\n      DO 26 IL = 1,9\r\n      KTOT = IL + 9*L\r\n      IL59 = IL + 59\r\n      PH1OUT(KTOT) = TEMPAR(IL59)\r\n   26 CONTINUE\r\n   27 CONTINUE\r\n      CALL GMMATS (G(1),3,3,0,ALPHAS(1),3,1,0,PH1OUT(7))\r\n      PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = ECPT(4)\r\n      PH1OUT(5) = ECPT(5)\r\n      PH1OUT(6) = TSUB0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdm12.f",
    "content": "      SUBROUTINE SQDM12\r\nC\r\nC      PHASE TWO STRESS DATA RECOVERY QUADRILATERAL MEMBRANE\r\nC\r\nC      ELEMENT ID\r\nC      4 SILS\r\nC      T SUB 0\r\nC      S SUB T 3X1\r\nC      4 S ARRAYS EACH 3X3\r\nC\r\nC\r\nC     STRES(1) - PH1OUT(1)\r\nC     STRES(2) - SIGMA X\r\nC     STRES(3) - SIGMA Y\r\nC     STRES(4) - SIGMA XY\r\nC     STRES(5) - PHI 1 ANGLE OF PRINCIPAL DIRECTION OF STRESS\r\nC     STRES(6) - SIGMA 1\r\nC     STRES(7) - SIGMA 2\r\nC     STRES(8) - TAU MAXIMUM SHEAR STRESS\r\nC\r\n      DIMENSION NSIL(4),S(36),ST(3),FRLAST(2),PH1OUT(45)\r\n      INTEGER EJECT,ISHED(7),ISTYP(2)\r\nC\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\n      COMMON   /ZZZZZZ/ Z(1)\r\n      COMMON   /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM\r\n      COMMON   /SDR2X7/ EST(100),STRES(100),FORVEC(25)\r\n      COMMON   /SDR2X8/ STRESS(3),VEC(3),TEM,TEMP,NPOINT,DELTA,NSIZE,\r\n     1      CSTRS(4),CVC(3)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\nC\r\n      EQUIVALENCE (PH1OUT(1),EST(1)) , (NSIL(1),PH1OUT(2)) ,\r\n     1 (TSUB0,PH1OUT(6)) , (ST(1),PH1OUT(7)) , (S(1),PH1OUT(10))\r\n     2, (FTEMP,LDTEMP) , (ISHED(1),LSUB) , (ISHED(2),LLD)\r\n     3, (ISHED(6),FRLAST(1))\r\n      DATA ISTYP / 4HQDME, 2HM1 /\r\n      DATA LSUB,LLD,FRLAST / 2*-1, -1.0E30, -1.0E30 /\r\nC\r\nC      ZERO OUT THE STRESS VECTOR\r\nC\r\n      STRESS(1)=0.\r\n      STRESS(2)=0.\r\n      STRESS(3)=0.\r\n      CSTRS(2) = 0.0E0\r\n      CSTRS(3) = 0.0E0\r\n      CSTRS(4) = 0.0E0\r\nC\r\nC                           I=4                      -\r\nC         STRESS VECTOR =(SUMMATION (S )(U )) - (S )(T - T)\r\nC                           I=1       I   I       T       0\r\n      DO 3 I=1,4\r\n      NPOINT=IVEC+NSIL(I)-1\r\n      CALL SMMATS (S(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC(1),CVC(1))\r\n      DO 2 J=1,3\r\n      IF (NCHK.LE.0)GO TO 1\r\n      CSTRS(J+1) = CSTRS(J+1) + CVC(J)\r\n    1 STRESS(J) = STRESS(J) + VEC(J)\r\n    2 CONTINUE\r\n    3 CONTINUE\r\n      STRES(1) = PH1OUT(1)\r\n      STRES(2) = STRESS(1)\r\n      STRES(3) = STRESS(2)\r\n      STRES(4) = STRESS(3)\r\n      CSTRS(1) = STRES(1)\r\nC\r\nC      ADD IN TEMPERATURE EFFECTS\r\nC\r\n      IF(LDTEMP.EQ.(-1)) GO TO 200\r\n      TEM = FTEMP-TSUB0\r\n      DO 4 I=2,4\r\n      STRES(I)=STRES(I)-ST(I-1)*TEM\r\n    4 CONTINUE\r\nC\r\nC      STRESS VECTOR COMPLETE AND CONTAINS SIGMA X ,  SIGMA Y ,  SIGMA X\r\nC\r\nC      PRINCIPAL STRESSES AND ANGLE OF ACTION PHI\r\nC\r\n  200 TEMP=STRES(2)-STRES(3)\r\nC\r\nC     COMPUTE TAU\r\nC\r\n      STRES(8)=SQRT((TEMP/2.0E0)**2+STRES(4)**2)\r\n      DELTA=(STRES(2)+STRES(3))/2.0E0\r\nC\r\nC     COMPUTE SIGMA 1 AND SIGMA 2\r\nC\r\n      STRES(6)=DELTA+STRES(8)\r\n      STRES(7)=DELTA-STRES(8)\r\n      DELTA=2.0E0*STRES(4)\r\n      IF (ABS(DELTA).LT.1.0E-15.AND.ABS(TEMP).LT.1.0E-15) GO TO 5\r\n      IF(ABS(TEMP) .LT. 1.0E-15) GO TO 6\r\nC\r\nC     COMPUTE PHI 1 DEPENDING ON WHETHER OR NOT SIGMA XY AND/OR\r\nC               (SIGMA 1 - SIGMA 2) ARE ZERO\r\nC\r\n      STRES(5)=ATAN2(DELTA,TEMP)*28.6478898E00\r\n      GO TO 7\r\n    5 STRES(5)=0.0E0\r\n      GO TO 7\r\n    6 STRES(5)=45.\r\n    7 IF (NCHK.LE.0) GO TO 150\r\nC\r\nC  . STRESS PRECISION CHECK...\r\nC\r\n      K = 0\r\n      CALL SDRCHK (STRES(2),CSTRS(2),3,K)\r\n      IF (K.EQ.0) GO TO 150\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      J = 0\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD  .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 120\r\nC\r\n      LSUB = ISUB\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      LLD = ILD\r\n      J = 1\r\n      CALL PAGE1\r\n  100 CALL SD2RHD (ISHED,J)\r\n      WRITE(NOUT,110)\r\n      LINE = LINE + 1\r\n  110 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,4X,3HSXY)\r\n      GO TO 130\r\n  120 IF (EJECT (2) .NE. 0) GO TO 100\r\nC\r\n  130 WRITE(NOUT,140) ISTYP,CSTRS\r\n  140 FORMAT (1H0,5X,A4,A2,I7,4F7.1)\r\nC\r\n  150 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdm21.f",
    "content": "      SUBROUTINE SQDM21\r\nC\r\nC     PHASE-I STRESS-DATA-RECOVERY ROUTINE FOR THE -QDMEM2- ELEMENT.\r\nC\r\nC     THIS ROUTINE WILL PREPARE FOR USE BY -SQDM22-, THE PHASE-II\r\nC     ROUTINE, A TABLE CONTAINING THE FOLLOWING.\r\nC\r\nC     TABLE WORDS        DISCRIPTION\r\nC     ------------------------------------------------------\r\nC       1 THRU   1       ELEMENT-ID\r\nC       2 THRU   5       4 SILS\r\nC       6 THRU   6       ELEMENT-THICKNESS\r\nC       7 THRU   7       REFERENCE TEMP -TSUB0-\r\nC       8 THRU 151       16 (3X3) KIJ-G MATRICES\r\nC     152 THRU 187       4 (3X3) STRESS MATRICES\r\nC     188 THRU 199       4 (3X1) TEMP VECTORS\r\nC     200 THRU 202       ST (3X1) STRESS-TEMPERATURE VECTOR\r\nC     203 THRU 206       4 SIDE LENGTHS\r\nC\r\nC     ELEMENT EST ENTRY CONTENTS\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC     +   1 = ID                                        +\r\nC     +   2 = SIL-PT-A            (ELEMENT CONNECTS     +\r\nC     +   3 = SIL-PT-B             GRID POINTS A,B,     +\r\nC     +   4 = SIL-PT-C             C,D IN THAT ORDER)   +\r\nC     +   5 = SIL-PT-D                                  +\r\nC     +   6 = MATERIAL-ANGLE                            +\r\nC     +   7 = MATERIAL-ID                               +\r\nC     +   8 = THICKNESS OF ELEMENT                      +\r\nC     +   9 = NON-STRUCTURAL-MASS                       +\r\nC     +  10 = COORD-SYS-ID PT-A OR 0                    +\r\nC     +  11 = XA                                        +\r\nC     +  12 = YA                                        +\r\nC     +  13 = ZA                                        +\r\nC     +  14 = COORD-SYS-ID PT-B OR 0                    +\r\nC     +  15 = XB                                        +\r\nC     +  16 = YB                                        +\r\nC     +  17 = ZB                                        +\r\nC     +  18 = COORD-SYS-ID PT-C OR 0                    +\r\nC     +  19 = XC                                        +\r\nC     +  20 = YC                                        +\r\nC     +  21 = ZC                                        +\r\nC     +  22 = COORD-SYS-ID PT-D OR 0                    +\r\nC     +  23 = XD                                        +\r\nC     +  24 = YD                                        +\r\nC     +  25 = ZD                                        +\r\nC     +  26 = AVERAGE OF CONNECTED GRID TEMPERATURES    +\r\nC     + + + + + + + + + + + + + + + + + + + + + + + + + +\r\nC\r\n      LOGICAL         PLANAR\r\n      INTEGER         NEST(7), MAP(4,3)\r\n      REAL            K1SUM, K5SUM, ISINTH, ICOSTH, KMAT(63), SMAT(27),\r\n     1                PMAT(9), JTEMP9, K5MOD, KTEMP9(9), ZMAT(9),\r\n     2                ITEMP9(9), Q(3,3,4), IMAT12, RMAT(3,5), ETI(36),\r\n     3                DVEC(3,4), KVEC(3)\r\n      CHARACTER       UFM*23, UWM*25\r\n      COMMON /XMSSG / UFM, UWM\r\nC\r\nC     FOLLOWING COMMON BLOCK MUST BE DIMENSIONED AT LEAST 350 IN SDR2B\r\nC\r\n      COMMON /SDR2X5/ EST(100), ID, ISILS(4), ELTHIK, REFTMP,\r\n     1                K1SUM(9,16), SG(36),PT(3,4), ST(3),RG(4)\r\nC\r\nC     WORKING STORAGE BLOCK (KEEP .LE. 300 WORDS)\r\nC\r\n      COMMON /SDR2X6/ K5SUM(9,5), SISUM(9,5), PISUM(3,5), R(3,4,5),\r\n     1                K5MOD(9,5), G(36),  T(9), E(9), IMAT12(12),\r\n     2                JTEMP9(9), GSUBE(9)\r\n      COMMON /MATIN / MATID, INFLAG, ELTEMP, STRESS, SINTH, COSTH\r\n      COMMON /MATOUT/ G11, G12, G13, G22, G23, G33, RHO, ALPS(3), TSUB0\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /CONDAS/ PI, TWOPI, RADEG, DEGRA, S4PISQ\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT), (NEST(1),EST(1))\r\n      DATA    MAP   / 1, 2, 3, 4,\r\n     1                2, 3, 4, 1,\r\n     2                5, 5, 5, 5  /\r\nC\r\nC     COMPUTE BASIC SIN AND COSINE OF ELEMENT MATERIAL ANGLE.\r\nC\r\n      ANGL   = EST(6)*DEGRA\r\n      ISINTH = SIN(ANGL)\r\n      ICOSTH = COS(ANGL)\r\nC\r\nC     COMPUTE GSUBE MATRIX\r\nC\r\n      INFLAG = 2\r\n      MATID  = NEST(7)\r\n      ELTEMP = EST(26)\r\n      SINTH  = 0.0\r\n      COSTH  = 1.0\r\n      CALL MAT (NEST(1))\r\n      GSUBE(1) = G11\r\n      GSUBE(2) = G12\r\n      GSUBE(3) = G13\r\n      GSUBE(4) = G12\r\n      GSUBE(5) = G22\r\n      GSUBE(6) = G23\r\n      GSUBE(7) = G13\r\n      GSUBE(8) = G23\r\n      GSUBE(9) = G33\r\nC\r\nC     BASIC WHOLE-ELEMENT CALCULATIONS\r\nC\r\n      CALL Q2BCS (EST,PLANAR,RMAT,E,IERROR)\r\n      IF (IERROR) 10,10,400\r\nC\r\nC     ZERO SUMMATION ARRAYS\r\nC\r\n   10 DO 40 I = 1,9\r\n      DO 20 J = 1,16\r\n      K1SUM(I,J) = 0.0\r\n   20 CONTINUE\r\n      DO 30 J = 1,5\r\n      K5SUM(I,J) = 0.0\r\n      SISUM(I,J) = 0.0\r\n   30 CONTINUE\r\n   40 CONTINUE\r\nC\r\n      DO 60 I = 1,5\r\n      PISUM(1,I) = 0.0\r\n      PISUM(2,I) = 0.0\r\n      PISUM(3,I) = 0.0\r\n   60 CONTINUE\r\nC\r\nC     SUB-TRIANGLES ARE COMPUTED AND RESULTS SUMMED.\r\nC\r\n      DO 100 I = 1,4\r\nC\r\nC     CALL TRIANGLE CALCULATION ROUTINE TO GET (3X3) SUB-PARTITIONS\r\nC\r\n      IA = MAP(I,1)\r\n      IB = MAP(I,2)\r\n      IC = MAP(I,3)\r\nC\r\n      CALL Q2TRMS (RMAT(1,IA),RMAT(1,IB),RMAT(1,IC),ALPS ,ISINTH,ICOSTH,\r\n     1             GSUBE,EST(8),IERROR,3,KMAT,PMAT,SMAT,ZMAT)\r\n      IF (IERROR) 70,70,400\r\nC\r\nC     SUM IN KCA,KCB,KCC 3-(3X3)-S STORED FIRST IN KMAT\r\nC\r\nC     ALSO SUM IN KAA,KAB,KBA,KBB = LAST 4-(3X3)-S STORED IN KMAT.\r\nC     THESE GO INTO 4 OF THE 16 POSSIBLE (3X3) SUM MATRICES = ,\r\nC\r\nC     K11,K12,K13,K14,K21,K22,K23,K24,K31,K32,K33,K34,K41,K42,K43,K44\r\nC\r\nC     J1,J2,J3,J4 WILL EACH POINT TO 1 OF THE 16 (3X3)-S.\r\nC\r\n   70 J1 = 5*IA - 4\r\n      J2 = 4*IA - 4 + IB\r\n      J3 = 4*IB - 4 + IA\r\n      J4 = 5*IB - 4\r\nC\r\n      DO 80 K = 1,9\r\n      K5SUM(K,IA) = K5SUM(K,IA) + KMAT(K   )\r\n      K5SUM(K,IB) = K5SUM(K,IB) + KMAT(K+ 9)\r\n      K5SUM(K,IC) = K5SUM(K,IC) + KMAT(K+18)\r\n      K1SUM(K,J1) = K1SUM(K,J1) + KMAT(K+27)\r\n      K1SUM(K,J2) = K1SUM(K,J2) + KMAT(K+36)\r\n      K1SUM(K,J3) = K1SUM(K,J3) + KMAT(K+45)\r\n      K1SUM(K,J4) = K1SUM(K,J4) + KMAT(K+54)\r\n      SISUM(K,IA) = SISUM(K,IA) + SMAT(K   )\r\n      SISUM(K,IB) = SISUM(K,IB) + SMAT(K+ 9)\r\n      SISUM(K,IC) = SISUM(K,IC) + SMAT(K+18)\r\n   80 CONTINUE\r\nC\r\n      DO 90 K = 1,3\r\n      PISUM(K,IA) = PISUM(K,IA) + PMAT(K  )\r\n      PISUM(K,IB) = PISUM(K,IB) + PMAT(K+3)\r\n      PISUM(K,IC) = PISUM(K,IC) + PMAT(K+6)\r\n   90 CONTINUE\r\nC\r\n  100 CONTINUE\r\nC\r\nC     FORMATION OF THE FOUR (3X3) G MATRICES.\r\nC                     -1\r\nC     (G ) = -(K5SUM  ) (K  )   NOTE.  IF -PLANAR- THEN MODIFIED\r\nC       I           55    5I           K5SUM MATRICES ARE USED.\r\nC\r\n      IF (PLANAR) GO TO 120\r\n      DO 110 I = 1,5\r\n      DO 110 J = 1,9\r\n      K5MOD(J,I) = K5SUM(J,I)\r\n  110 CONTINUE\r\n      GO TO 140\r\nC\r\n  120 DO 130 I = 1,5\r\n      K5MOD(1,I) = K5SUM(1,I)\r\n      K5MOD(2,I) = K5SUM(2,I)\r\n      K5MOD(3,I) = K5SUM(3,I)\r\n      K5MOD(4,I) = K5SUM(4,I)\r\n      K5MOD(5,I) = K5SUM(5,I)\r\n      K5MOD(6,I) = K5SUM(6,I)\r\n      K5MOD(7,I) = 0.0\r\n      K5MOD(8,I) = 0.0\r\n      K5MOD(9,I) =-0.25\r\n  130 CONTINUE\r\n      K5MOD(9,5) = 1.0\r\nC\r\nC     INVERT K5MOD   AND NEGATE RESULT.\r\nC                 55\r\nC\r\n  140 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,K5MOD(1,5),3,DUMMY,0,DETERM,ISING,ITEMP9)\r\n      IF (ISING .EQ. 2) GO TO 400\r\nC\r\n      DO 150 I = 1,9\r\n      K5MOD(I,5) = -K5MOD(I,5)\r\n  150 CONTINUE\r\nC\r\nC     FORM G MATRICES\r\nC\r\n      DO 160 I = 1,4\r\n      CALL GMMATS (K5MOD(1,5),3,3,0, K5MOD(1,I),3,3,0, G(9*I-8))\r\n  160 CONTINUE\r\nC\r\nC     FORM STIFFNESS MATRIX BY ROW-PARTIONS.\r\nC\r\n      DO 210 I = 1,4\r\nC                          T\r\nC     IF -PLANAR- FORM (G ) (K  ) FOR USE IN COLUMN-PARTITIONS LOOP.\r\nC                        I    55\r\nC\r\n      IF (.NOT.PLANAR) GO TO 170\r\n      CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,5),3,3,0, ITEMP9)\r\nC\r\nC     COLUMN-PARTITIONS-LOOP\r\nC\r\n  170 DO 200 J = 1,4\r\nC                                   T\r\nC     FORM (K  ) = (K1SUM  ) + (K  ) (G )\r\nC            IJ          IJ      5I    J\r\nC\r\n      CALL GMMATS (K5SUM(1,I),3,3,1, G(9*J-8),3,3,0, JTEMP9)\r\n      LPART = 4*I - 4 + J\r\n      DO 180 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + JTEMP9(K)\r\n  180 CONTINUE\r\nC\r\nC     BALANCE OF TERMS IF -PLANAR-\r\nC\r\nC                T            T\r\nC     ADD IN (G ) (K  ) + (G ) (K  )(G )\r\nC              I    5J      I    55   J\r\nC\r\n      IF (.NOT.PLANAR) GO TO 200\r\n      CALL GMMATS (ITEMP9,3,3,0, G(9*J-8),3,3,0, JTEMP9)\r\n      CALL GMMATS (G(9*I-8),3,3,1, K5SUM(1,J),3,3,0, KTEMP9)\r\n      DO 190 K = 1,9\r\n      K1SUM(K,LPART) = K1SUM(K,LPART) + KTEMP9(K) + JTEMP9(K)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\nC     CALCULATION OF 4 (Q ) MATRICES, EACH 3X3.\r\nC                        I\r\nC\r\n      DO 260 I = 1,4\r\n      IA = MAP(I,1)\r\n      IB = MAP(I,2)\r\n      DO 230 J = 1,3\r\n      DVEC(J,I) = RMAT(J,IB) - RMAT(J,IA)\r\n  230 CONTINUE\r\n      FMAG  = SQRT(SADOTB(DVEC(1,I),DVEC(1,I)))\r\n      RG(I) = FMAG\r\n      IF (FMAG) 400,400,240\r\n  240 DO 250 J = 1,3\r\n      DVEC(J,I) = DVEC(J,I)/FMAG\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\n      DO 280 I = 1,4\r\n      J = I - 1\r\n      IF (J .EQ. 0) J = 4\r\n      I1 = MAP(J,1)\r\n      I2 = MAP(J,2)\r\n      CALL SAXB (DVEC(1,I2),DVEC(1,I1),KVEC)\r\nC\r\nC     NORMALIZE, NEGATE, AND STORE AS DELTA-VEC IN (Q )\r\nC                                                    I\r\n      FMAG = SQRT(SADOTB(KVEC,KVEC))\r\n      IF (FMAG) 400,400,270\r\n  270 Q(1,3,I) = -KVEC(1)/FMAG\r\n      Q(2,3,I) = -KVEC(2)/FMAG\r\n      Q(3,3,I) = -KVEC(3)/FMAG\r\nC\r\nC     STORE D VECTORS AS ALPHA- VECTORS IN (Q )\r\nC                                            I\r\n      Q(1,1,I) = -DVEC(1,I)\r\n      Q(2,1,I) = -DVEC(2,I)\r\n      Q(3,1,I) = -DVEC(3,I)\r\nC\r\n      Q(1,2,I) = DVEC(1,J)\r\n      Q(2,2,I) = DVEC(2,J)\r\n      Q(3,2,I) = DVEC(3,J)\r\nC\r\nC     INVERT 3X3\r\nC\r\nC     AGAIN NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED .\r\nC     SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,Q(1,1,I),3,DUMMY,0,DETERM,ISING,JTEMP9)\r\n      IF (ISING .EQ. 2) GO TO 400\r\n  280 CONTINUE\r\nC\r\nC     FORM FINAL OUTPUTS\r\nC\r\n      DO 370 I = 1,4\r\n      II = 9*I - 8\r\nC\r\nC     TRANSFORMATION ETI = (E)(T )\r\nC                               I\r\nC\r\n      KK = 4*I\r\n      IF (NEST(KK+6)) 290,300,290\r\n  290 CALL TRANSS (NEST(KK+6),T)\r\n      CALL GMMATS (E,3,3,0, T,3,3,0, ETI(II))\r\n      GO TO 320\r\nC\r\n  300 KK = II\r\n      DO 310 J = 1,9\r\n      ETI(KK) = E(J)\r\n      KK = KK + 1\r\n  310 CONTINUE\r\nC\r\nC       G            E      E\r\nC     (S ) = 0.25( (S ) + (S )(G ) )(E)(T )\r\nC       I            I      5   I        I\r\nC\r\n  320 CALL GMMATS (SISUM(1,5),3,3,0, G(II),3,3,0, JTEMP9)\r\n      DO 330 J = 1,9\r\n      JTEMP9(J) = 0.25*(JTEMP9(J)+SISUM(J,I))\r\n  330 CONTINUE\r\n      CALL GMMATS (JTEMP9,3,3,0, ETI(II),3,3,0, SG(II))\r\nC\r\nC       T     -         T -\r\nC     (P ) = (P ) + (G ) (P )\r\nC       I      I      I    5\r\nC\r\n      CALL GMMATS (G(II),3,3,1, PISUM(1,5),3,1,0, PT(1,I))\r\n      DO 360 J = 1,3\r\n      PISUM(J,I) = PT(J,I) + PISUM(J,I)\r\n  360 CONTINUE\r\n      CALL GMMATS (Q(1,1,I),3,3,1, PISUM(1,I),3,1,0, PT(1,I))\r\n  370 CONTINUE\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX TO GLOBAL\r\nC\r\nC        G           E\r\nC     (K  ) = (Q )(K  )(E)(T )\r\nC       IJ      I   IJ      J\r\nC\r\n      JPART = 0\r\n      DO 390 I = 1,4\r\n      DO 380 J = 1,4\r\n      JPART = JPART + 1\r\n      CALL GMMATS (Q(1,1,I),3,3,1, K1SUM(1,JPART),3,3,0, JTEMP9)\r\n      CALL GMMATS (JTEMP9,3,3,0, ETI(9*J-8),3,3,0, K1SUM(1,JPART))\r\n  380 CONTINUE\r\n  390 CONTINUE\r\nC\r\nC     (S ) = (GSUBE)(ALPHAS)\r\nC       T\r\nC\r\n      CALL GMMATS (GSUBE,3,3,0, ALPS,3,1,0, ST)\r\nC\r\nC     MISC. DATA FOR PHASE-II\r\nC\r\n      ID       = NEST(1)\r\n      ISILS(1) = NEST(2)\r\n      ISILS(2) = NEST(3)\r\n      ISILS(3) = NEST(4)\r\n      ISILS(4) = NEST(5)\r\n      ELTHIK   = EST(8)\r\n      REFTMP   = TSUB0\r\n      RETURN\r\nC\r\nC     ERROR CONDITION\r\nC\r\n  400 WRITE  (IOUTPT,410) UWM,NEST(1)\r\n  410 FORMAT (A25,' 3101, SINGULARITY OR BAD GEOMETRY FOR QDMEM2 ELEM.',\r\n     1       ' ID =',I9, /5X,'STRESS OR FORCES WILL BE INCORRECT.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdm22.f",
    "content": "      SUBROUTINE SQDM22\r\nC\r\nC     PHASE-II STRESS-DATA-RECOVERY ROUTINE FOR THE -QDMEM2- ELEMENT.\r\nC\r\nC     THIS ROUTINE USES DATA PREPARED BY -SQDM21-, THE PHASE-I ROUTINE,\r\nC     TOGETHER WITH THE DISPLACEMENT VECTOR AND TEMPERATURE DATA\r\nC     TO ARRIVE AT STRESS AND FORCE OUTPUTS.\r\nC\r\n      INTEGER         IFORCE(1),ISTR(1),ISILS(4),EJECT,ISHED(7),ISTYP(2)\r\n      REAL            STRESS(8),FORCE(17),KIJ(9,16),SG(36),PT(3,4),\r\n     1                ST(3),RG(4),FRLAST(2)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),TLOADS\r\n      COMMON /SDR2X7/ ID(217)\r\n      COMMON /SDR2X8/ VEC(4),SIGXYZ(3),F(4,3),SHEARS(4),CVC(4),FF(4,3),\r\n     1                CFRVEC(20),CSHARS(4)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\n      COMMON /SYSTEM/ IBFSZ,NOUT,IDM(9),LINE\r\n      EQUIVALENCE     (TEMP,LDTEMP)\r\n      EQUIVALENCE     (ID(2),ISILS(1)),(ID(7),TSUB0),(ID(8),KIJ(1,1)),\r\n     1                (ID(101),STRESS(1),ISTR(1)),\r\n     2                (ID(152),SG(1)),(ID(188),PT(1,1)),\r\n     3                (ID(200),ST(1)),(ID(201),FORCE(1),IFORCE(1)),\r\n     4                (ID(203),RG(1))\r\n      EQUIVALENCE     (F2,FORCE( 2)),(F1,FORCE( 3)),(F3,FORCE( 4)),\r\n     1                (F4,FORCE( 5)),(F6,FORCE( 6)),(F5,FORCE( 7)),\r\n     2                (F7,FORCE( 8)),(F8,FORCE( 9)),(FK1,FORCE(10)),\r\n     3                (Q1,FORCE(11)),(FK2,FORCE(12)),(Q2,FORCE(13)),\r\n     4                (FK3,FORCE(14)),(Q3,FORCE(15)),(FK4,FORCE(16)),\r\n     5                (Q4,FORCE(17))\r\n      EQUIVALENCE     (ISHED(1),LSUB),(ISHED(2),LLD),\r\n     1                (ISHED(6),FRLAST(1))\r\n      DATA    ISTYP / 4HQDME, 2HM2 /\r\n      DATA    LSUB  , LLD,FRLAST   / 2*-1, -1.0E30,-1.0E30 /\r\nC\r\nC     SIG , SIG , TAU   = SUMMATION((S )(U )) - (S )(TEMP-T )\r\nC        X     Y     XY               I   I       T        0\r\nC\r\n      SIGXYZ(1) = 0.0\r\n      SIGXYZ(2) = 0.0\r\n      SIGXYZ(3) = 0.0\r\n      CFRVEC(2) = 0.0\r\n      CFRVEC(3) = 0.0\r\n      CFRVEC(4) = 0.0\r\nC\r\n      DO 20 I = 1,4\r\n      J = IVEC + ISILS(I)\r\n      CALL SMMATS (SG(9*I-8),3,3,0, Z(J-1),3,1,0, VEC,CVC)\r\n      DO 10 J = 1,3\r\n      SIGXYZ(J  ) = SIGXYZ(J  ) + VEC(J)\r\n      CFRVEC(J+1) = CFRVEC(J+1) + CVC(J)\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 40\r\n      TBAR = TEMP - TSUB0\r\n      DO 30 J = 1,3\r\n      SIGXYZ(J) = SIGXYZ(J) - ST(J)*TBAR\r\n   30 CONTINUE\r\nC\r\nC     FORCES\r\nC          I                             T\r\nC        (F ) = SUMMATION((K  )(U )) - (P )(TEMP-T )\r\nC                           IJ   I       I        0\r\nC\r\n   40 IPART   = 0\r\n      DO 60 I = 1,4\r\n      F(I,1)  = 0.0\r\n      F(I,2)  = 0.0\r\n      F(I,3)  = 0.0\r\n      FF(I,1) = 0.0\r\n      FF(I,2) = 0.0\r\n      FF(I,3) = 0.0\r\n      DO 50 J = 1,4\r\n      K       = IVEC  + ISILS(J)\r\n      IPART   = IPART + 1\r\n      CALL SMMATS (KIJ(1,IPART),3,3,0, Z(K-1),3,1,0, VEC,CVC)\r\n      F(I,1)  = F(I,1)  + VEC(1)\r\n      F(I,2)  = F(I,2)  + VEC(2)\r\n      F(I,3)  = F(I,3)  + VEC(3)\r\n      FF(I,1) = FF(I,1) + CVC(1)\r\n      FF(I,2) = FF(I,2) + CVC(2)\r\n      FF(I,3) = FF(I,3) + CVC(3)\r\n   50 CONTINUE\r\n      IF (LDTEMP .EQ. -1) GO TO 60\r\n      TBAR   = TEMP - TSUB0\r\n      F(I,1) = F(I,1) - PT(1,I)*TBAR\r\n      F(I,2) = F(I,2) - PT(2,I)*TBAR\r\n      F(I,3) = F(I,3) - PT(3,I)*TBAR\r\n   60 CONTINUE\r\nC\r\nC     SHEARS = SUMMATION (R )(U )\r\nC                          I   I\r\n      DO 80 I = 1,4\r\n      IP1 = I + 1\r\n      IF (IP1 .EQ. 5) IP1 = 1\r\n      SHEARS(I) = (F(IP1,2)-F(I,1))/RG(I)\r\n      CSHARS(I) = (FF(IP1,2)-FF(I,1))/ABS(RG(I))\r\n   80 CONTINUE\r\nC\r\nC     ALL COMPUTATIONS COMPLETE.\r\nC\r\n      Q1 = -SHEARS(1)\r\n      Q2 =  SHEARS(2)\r\n      Q3 = -SHEARS(3)\r\n      Q4 =  SHEARS(4)\r\n      CFRVEC(14) = -CSHARS(1)\r\n      CFRVEC(16) = +CSHARS(2)\r\n      CFRVEC(18) = -CSHARS(3)\r\n      CFRVEC(20) = +CSHARS(4)\r\nC\r\n      ISTR(1)   = ID(1)\r\n      CFRVEC(1) = STRESS(1)\r\n      STRESS(2) = SIGXYZ(1)\r\n      STRESS(3) = SIGXYZ(2)\r\n      STRESS(4) = SIGXYZ(3)\r\nC\r\n      IFORCE(1) = ID(1)\r\n      F1 = F(1,1)\r\n      F2 = F(1,2)\r\n      F3 = F(2,2)\r\n      F4 = F(2,1)\r\n      F5 = F(3,1)\r\n      F6 = F(3,2)\r\n      F7 = F(4,2)\r\n      F8 = F(4,1)\r\n      CFRVEC( 6) = FF(1,1)\r\n      CFRVEC( 5) = FF(1,2)\r\n      CFRVEC( 7) = FF(2,2)\r\n      CFRVEC( 8) = FF(2,1)\r\n      CFRVEC(10) = FF(3,1)\r\n      CFRVEC( 9) = FF(3,2)\r\n      CFRVEC(11) = FF(4,2)\r\n      CFRVEC(12) = FF(4,1)\r\nC\r\n      FK1 = F(1,3)\r\n      FK2 = F(2,3)\r\n      FK3 = F(3,3)\r\n      FK4 = F(4,3)\r\n      CFRVEC(13) = FF(1,3)\r\n      CFRVEC(15) = FF(2,3)\r\n      CFRVEC(17) = FF(3,3)\r\n      CFRVEC(19) = FF(4,3)\r\nC\r\n      TEMP = STRESS(2) - STRESS(3)\r\nC\r\nC     COMPUTE TAU\r\nC\r\n      STRESS(8) = SQRT((TEMP/2.0)**2+STRESS(4)**2)\r\n      DELTA = (STRESS(2)+STRESS(3))/2.0\r\nC\r\nC     COMPUTE SIGMA 1 AND SIGMA 2\r\nC\r\n      STRESS(6) = DELTA + STRESS(8)\r\n      STRESS(7) = DELTA - STRESS(8)\r\n      DELTA = 2.0*STRESS(4)\r\nC\r\nC     COMPUTE PHI 1 DEPENDING ON WHETHER OR NOT SIGMA XY AND/OR\r\nC               (SIGMA 1 - SIGMA 2) ARE ZERO\r\nC\r\n      IF (ABS(TEMP) .LT. 1.0E-15) GO TO 5\r\n      STRESS(5) = ATAN2(DELTA,TEMP)*28.64788980\r\n      GO TO 7\r\n    5 IF (ABS(DELTA) .LT. 1.0E-15) GO TO 6\r\n      STRESS(5) = 0.0\r\n      GO TO 7\r\n    6 STRESS(5) = 45.0\r\n    7 IF (NCHK .LE. 0) GO TO 150\r\nC\r\nC     STRESS/FORCE PRECISION CHECK\r\nC\r\n      K = 0\r\nC\r\nC     STRESSES\r\nC\r\n      CALL SDRCHK (STRESS(2),CFRVEC(2),3,K)\r\nC\r\nC     FORCES\r\nC\r\n      CALL SDRCHK (FORCE(2),CFRVEC(5),16,K)\r\n      IF (K .EQ. 0) GO TO 150\r\nC\r\nC     LIMITS EXCEEDED\r\nC\r\n      J = 0\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 120\r\nC\r\n      LSUB = ISUB\r\n      LLD  = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 1\r\n      CALL PAGE1\r\n  100 CALL SD2RHD (ISHED,J)\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,110)\r\n  110 FORMAT (3X,4HTYPE,5X,3HEID,4X,2HSX,4X,2HSY,3X,3HSXY,11H  F1-4  F1-\r\n     1,60H2  F2-1  F2-3  F3-2  F3-4  F4-3  F4-1   K-1  SH12   K-2  SH2\r\n     2,25H3   K-3  SH34   K-4  SH41)\r\n      GO TO 130\r\n  120 IF (EJECT(2) .NE. 0) GO TO 100\r\nC\r\n  130 WRITE  (NOUT,140) ISTYP,CFRVEC\r\n  140 FORMAT (2H0 ,A4,A2,I7,19F6.1)\r\nC\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdme1.f",
    "content": "      SUBROUTINE SQDME1\r\nC\r\nC          ECPT                        ECPT\r\nC       RECEIVED BY                 REQUIRED BY\r\nC         SQDME1                      STRME1\r\nC     -----------------------     --------------------------\r\nC     ECPT( 1) = EL. ID           ECPT( 1) = EL. ID\r\nC     ECPT( 2) = GRD. PT. A       ECPT( 2) = GRD. PT. A\r\nC     ECPT( 3) = GRD. PT. B       ECPT( 3) = GRD. PT. B\r\nC     ECPT( 4) = GRD. PT. C       ECPT( 4) = GRD. PT. C\r\nC     ECPT( 5) = GRD. PT. D       ECPT( 5) = THETA\r\nC     ECPT( 6) = THETA            ECPT( 6) = MATERIAL ID\r\nC     ECPT( 7) = MATERIAL ID      ECPT( 7) = T\r\nC     ECPT( 8) = T                ECPT( 8) = NON-STRUCT. MASS\r\nC     ECPT( 9) = NON-STRUCT. MASS ECPT( 9) = COORD. SYS. ID 1\r\nC     ECPT(10) = COORD. SYS. ID 1 ECPT(10) = X1\r\nC     ECPT(11) = X1               ECPT(11) = Y1\r\nC     ECPT(12) = Y1               ECPT(12) = Z1\r\nC     ECPT(13) = Z1               ECPT(13) = COORD. SYS. ID 2\r\nC     ECPT(14) = COORD. SYS. ID 2 ECPT(14) = X2\r\nC     ECPT(15) = X2               ECPT(15) = Y2\r\nC     ECPT(16) = Y2               ECPT(16) = Z2\r\nC     ECPT(17) = Z2               ECPT(17) = COORD. SYS. ID 3\r\nC     ECPT(18) = COORD. SYS. ID 3 ECPT(18) = X3\r\nC     ECPT(19) = X3               ECPT(19) = Y3\r\nC     ECPT(20) = Y3               ECPT(20) = Z3\r\nC     ECPT(21) = Z3               ECPT(21) = ELEMENT TEMPERATURE\r\nC     ECPT(22) = COORD. SYS. ID 4\r\nC     ECPT(23) = X4\r\nC     ECPT(24) = Y4\r\nC     ECPT(25) = Z4\r\nC     ECPT(26) = ELEMENT TEMPERATURE\r\nC\r\nC     NOTE. THE FOLLOWING ARE INTEGERS - GRID POINTS, MAT ID, EL.ID,\r\nC                                        COORD. SYS. IDS.\r\nC           ALL OTHERS ARE REAL IN THE ECPT.\r\nC\r\n      INTEGER         NECPT(100)\r\n      REAL            IVEC,JVEC,KVEC\r\n      DIMENSION       M(12),R(6),NGRID(4),COORD(16),SSUBT(3),S(27)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X6/ DUMMY(100),SUM(36),STEMP(9),D1(3),D2(3),A1(3),\r\n     1                A2(3),A3(3),A4(3),IVEC(3),JVEC(3),KVEC(3),VECL,H,\r\n     2                V(8),ECPTSA(36),ST(3),NCOORD,NPOINT,NSUB1,NSUB2,\r\n     3                NSUB3,T(9),COSANG,SINANG,U1,U2,DUMY(61)\r\n      COMMON /SDR2X5/ ECPT(100),PH1OUT(100),FORVEC(25)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(NECPT(1),ECPT(1)),\r\n     1                (R(1),IVEC(1)),(NGRID(1),ECPTSA(2)),\r\n     2                (COORD(1),ECPTSA(10)),(S(1),PH1OUT(10)),\r\n     3                (SSUBT(1),PH1OUT(7))\r\n      DATA    M     / 1, 2, 4, 2, 3, 1, 3, 4, 2, 4, 1, 3 /\r\nC\r\nC\r\n      ANGL   = ECPT(6)*DEGRA\r\n      COSANG = COS(ANGL)\r\n      SINANG = SIN(ANGL)\r\nC\r\nC     VECTORS D1 AND D2  FMMS-46 PAGE 6\r\nC     A1 A2 A3 A4\r\nC\r\n      DO 10 I = 1,3\r\n      D1(I) = ECPT(I+18) - ECPT(I+10)\r\n      D2(I) = ECPT(I+22) - ECPT(I+14)\r\n      A1(I) = ECPT(I+14) - ECPT(I+10)\r\n      A2(I) = ECPT(I+18) - ECPT(I+14)\r\n      A3(I) = ECPT(I+22) - ECPT(I+18)\r\n   10 A4(I) = ECPT(I+10) - ECPT(I+22)\r\nC\r\nC     K-VECTOR = NORMALIZED D1 CROSS D2\r\nC\r\n      KVEC(1) = D1(2)*D2(3) - D1(3)*D2(2)\r\n      KVEC(2) = D1(3)*D2(1) - D1(1)*D2(3)\r\n      KVEC(3) = D1(1)*D2(2) - D1(2)*D2(1)\r\n      VECL    = SQRT(KVEC(1)**2 + KVEC(2)**2 + KVEC(3)**2)\r\n      IF (VECL .LT. 1.0E-06) CALL MESAGE (-30,26,ECPT(1))\r\n      KVEC(1) = KVEC(1)/VECL\r\n      KVEC(2) = KVEC(2)/VECL\r\n      KVEC(3) = KVEC(3)/VECL\r\nC\r\nC     I-VECTOR = NORMALIZED A SUB 12 - H * KVECTOR\r\nC     GET H FIRST = (A SUB 12 DOT KVECTOR)/2\r\nC\r\n      H = (A1(1)*KVEC(1) + A1(2)*KVEC(2) + A1(3)*KVEC(3))/2.0\r\nC\r\n      IVEC(1) = A1(1) - H*KVEC(1)\r\n      IVEC(2) = A1(2) - H*KVEC(2)\r\n      IVEC(3) = A1(3) - H*KVEC(3)\r\n      VECL    = SQRT(IVEC(1)**2 + IVEC(2)**2 + IVEC(3)**2)\r\n      IF (VECL .LT. 1.0E-06) CALL MESAGE (-30,26,ECPT(1))\r\n      IVEC(1) = IVEC(1)/VECL\r\n      IVEC(2) = IVEC(2)/VECL\r\n      IVEC(3) = IVEC(3)/VECL\r\nC\r\nC     J-VECTOR = K CROSS I\r\nC\r\n      JVEC(1) = KVEC(2)*IVEC(3) - KVEC(3)*IVEC(2)\r\n      JVEC(2) = KVEC(3)*IVEC(1) - KVEC(1)*IVEC(3)\r\n      JVEC(3) = KVEC(1)*IVEC(2) - KVEC(2)*IVEC(1)\r\nC\r\n      VECL    = SQRT(JVEC(1)**2 + JVEC(2)**2 + JVEC(3)**2)\r\n      JVEC(1) = JVEC(1)/VECL\r\n      JVEC(2) = JVEC(2)/VECL\r\n      JVEC(3) = JVEC(3)/VECL\r\nC\r\nC\r\n      V(1) = 1.0\r\n      V(2) = 0.0\r\nC\r\nC     R ARRAY IS EQUIVALENCED TO IVECTOR AND JVECTOR\r\nC\r\n      CALL GMMATS (R,2,3,0, A2,3,1,0, V(3))\r\n      CALL GMMATS (R,2,3,0, A3,3,1,0, V(5))\r\n      CALL GMMATS (R,2,3,0, A4,3,1,0, V(7))\r\nC\r\nC     NORMALIZE THE 4 2X1 V ARRAYS\r\nC\r\n      DO 20 I = 1,4\r\n      VECL = SQRT(V(2*I-1)**2 + V(2*I)**2)\r\n      IF (VECL .LT. 1.0E-10) CALL MESAGE (-30,26,ECPT(1))\r\n      V(2*I-1) = V(2*I-1)/VECL\r\n   20 V(2*I  ) = V(2*I  )/VECL\r\nC\r\nC     MAPPING MATRIX M IS IN DATA STATEMENT.\r\nC\r\nC     NOW MAKE 4 CALLS TO STRME1 WHICH WILL RETURN\r\nC     S , S , S , S , T SUB 0\r\nC      A   B   C   T\r\nC\r\nC     SAVE GRID SILS AND COORDINATE SYSTEMS.\r\nC\r\n      DO 30 I = 1,36\r\n   30 ECPTSA(I) = ECPT(I)\r\nC\r\n      ECPT(6) = ECPT(7)\r\n      ECPT(7) = ECPT(8)\r\n      ECPT(8) = ECPT(9)\r\nC\r\nC     ZERO OUT SUM MATRICES\r\nC\r\n      DO 40 I = 1,36\r\n   40 SUM(I) = 0.0\r\n      ST(1) = 0.0\r\n      ST(2) = 0.0\r\n      ST(3) = 0.0\r\nC\r\n      ECPT(21) = ECPT(26)\r\nC\r\n      DO 90 I = 1,4\r\nC\r\nC     POINTER TO THE SILS IN THE MAPPING MATRIX\r\nC\r\n      NCOORD = 8\r\n      NPOINT = 3*I - 3\r\n      DO 60 J = 2,4\r\n      NPOINT = NPOINT + 1\r\n      NSUB1  = M(NPOINT)\r\n      DO 50 K = 1,4\r\n      NSUB3  = 4*NSUB1 - 4 + K\r\n      NCOORD = NCOORD + 1\r\n   50 ECPT(NCOORD) = COORD(NSUB3)\r\n   60 NECPT(J) = NGRID(NSUB1)\r\nC\r\nC     SET UP T MATRIX FOR THIS TRIANGLE.  T IS 3X3\r\nC\r\n      U1   = V(2*I-1)\r\n      U2   = V(2*I  )\r\nC\r\n      T(1) = U1**2\r\n      T(2) = U2**2\r\n      T(7) = U1*U2\r\n      T(3) =-2.0*T(7)\r\n      T(4) = T(2)\r\n      T(5) = T(1)\r\n      T(6) =-T(3)\r\n      T(8) =-T(7)\r\n      T(9) = T(1) - T(2)\r\nC\r\nC     COMPUTE NET SINTH AND COSTH FOR ANISOTROPIC POSSIBILITY\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\nC\r\n      CALL STRME1 (1)\r\nC\r\nC\r\nC     NOW TRANSFORM AND ADD THE S MATRICES INTO THE RESPECTIVE SUM\r\nC     MATRICES.\r\nC\r\n      DO 80 J = 1,3\r\nC\r\nC     POINTER TO TRIANGLE I ROW IN THE MAPPING MATRIX\r\nC\r\n      NPOINT = 3*I - 3\r\nC\r\nC     TRANSFORM S\r\nC\r\n      CALL GMMATS (T,3,3,0, S(9*J-8),3,3,0, STEMP)\r\nC\r\nC     ADD STEMP INTO RESPECTIVE KSUM POSITIONS\r\nC\r\nC     ZERO POINTER INTO KSUM MATRICES\r\nC\r\n      NSUB1 = NPOINT + J\r\n      NSUB1 = M(NSUB1)*9 - 9\r\n      DO 70 K = 1,9\r\n      NSUB1 = NSUB1 + 1\r\n   70 SUM(NSUB1) = SUM(NSUB1) + STEMP(K)\r\n   80 CONTINUE\r\nC\r\nC     TRANSFORM AND ADD IN S SUB T\r\nC\r\n      CALL GMMATS (T,3,3,0, S SUB T, 3,1,0, STEMP)\r\n      ST(1) = ST(1) + STEMP(1)\r\n      ST(2) = ST(2) + STEMP(2)\r\n      ST(3) = ST(3) + STEMP(3)\r\n   90 CONTINUE\r\nC\r\nC     ALL MATRICES COMPLETE\r\nC\r\nC     FILL OUTPUT BLOCK\r\nC\r\n      DO 100 I = 1,5\r\n  100 PH1OUT(I) = ECPTSA(I)\r\n      PH1OUT(7) = ST(1)*0.25\r\n      PH1OUT(8) = ST(2)*0.25\r\n      PH1OUT(9) = ST(3)*0.25\r\n      DO 110 I = 1,36\r\n  110 PH1OUT(I+9) = 0.25*SUM(I)\r\nC\r\nC     PHASE 1 COMPLETE OUTPUT BLOCK CONTAINS 45 WORDS\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqdpl1.f",
    "content": "      SUBROUTINE SQDPL1\r\nC\r\nC     PHASE I OF STRESS DATA RECOVERY FOR TRI OR QUAD PLATE.\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING.\r\nC\r\nC     1) ELEMENT ID\r\nC     2) 4 SILS\r\nC     3) I\r\nC     4) Z1 AND Z2\r\nC     5) 4  5X6 S-SUB-I ARRAYS\r\nC     6) 3X1 S SUB T MATRIX\r\nC     THUS, 131 WORDS FOR QUAD-PLATE\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION                   DEFINITION\r\nC       ECPT      BSC.BEND.TRI.-----TYPE       QUAD.PLT.---------TYPE\r\nC     --------   --------------------------    -------------------------\r\nC     ECPT( 1) = ELEMENT ID         INTEGER ** ELEMENT           INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER ** GRID PT.A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER ** GRID PT.B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER ** GRID PT.C         INTEGER\r\nC     ECPT( 5) = THETA              REAL    ** GRID PT.D         INTEGER\r\nC     ECPT( 6) = MAT ID 1           INTEGER ** THETA             REAL\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL    ** MAT ID 1          INTEGER\r\nC     ECPT( 8) = MAT ID 2           INTEGER ** I  MOM. OF INERT. REAL\r\nC     ECPT( 9) = T2                 REAL    ** MAT ID 2          INTEGER\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL    ** T2                REAL\r\nC     ECPT(11) = Z1                 REAL    ** NON-STRUCT. MASS  REAL\r\nC     ECPT(12) = Z2                 REAL    ** Z1                REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER ** Z2                REAL\r\nC     ECPT(14) = X1                 REAL    ** COORD. SYS. ID 1  INTEGER\r\nC     ECPT(15) = Y1                 REAL    ** X1                REAL\r\nC     ECPT(16) = Z1                 REAL    ** Y1                REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER ** Z1                REAL\r\nC     ECPT(18) = X2                 REAL    ** COORD. SYS. ID 2  INTEGER\r\nC     ECPT(19) = Y2                 REAL    ** X2                REAL\r\nC     ECPT(20) = Z2                 REAL    ** Y2                REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER ** Z2                REAL\r\nC     ECPT(22) = X3                 REAL    ** COORD. SYS. ID 3  INTEGER\r\nC     ECPT(23) = Y3                 REAL    ** X3                REAL\r\nC     ECPT(24) = Z3                 REAL    ** Y3                REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL    ** Z3                REAL\r\nC     ECPT(26) =                            ** COORD. SYS. ID 4  INTEGER\r\nC     ECPT(27) =                            ** X4                REAL\r\nC     ECPT(28) =                            ** Y4                REAL\r\nC     ECPT(29) =                            ** Z4                REAL\r\nC     ECPT(30) =                            ** ELEMENT TEMP      REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB,SUBSCC\r\n      REAL            IVECT,JVECT,KVECT,D(9)\r\n      DIMENSION       NECPT(100),M(12),VQ1(3),VQ2(3),VQ3(3),VQ4(3),\r\n     1                REQUIV(10)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X5/ ECPT(100),PH1OUT(128),ST(3)\r\n      COMMON /SDR2X6/ A(45),TEMP15(15),PROD15(15),T(9),TITE(18),V(25),\r\n     1                D1(3),D2(3),SPDUM1(18),U1,U2,SINANG,COSANG,\r\n     2                SSUM(60),R(2,5),XSUBB,XSUBC,YSUBC,E(18),TEMP,\r\n     3                VV1(2),VV2(2),H,A1(3),NPOINT,SPDUM2(5),IVECT(3),\r\n     4                JVECT(3),KVECT(3),SPDUM3(15),THETA,NSUBC,\r\n     5                SPDUM4(1),SUBSCA,SUBSCB,SUBSCC,SPDUM5(2),XC,YC,\r\n     6                SPDUM6(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA(3)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(ECPT(1),NECPT(1)),\r\n     1                (VQ1(1),ECPT(15)),(VQ2(1),ECPT(19)),\r\n     2                (VQ3(1),ECPT(23)),(VQ4(1),ECPT(27)),\r\n     3                (REQUIV(1),R(1,1))\r\n      DATA    M     / 2,4,1,  3,1,2,  4,2,3,  1,3,4 /\r\nC\r\n      IDSAVE = NECPT(7)\r\n      EYE    = ECPT(8)\r\n      THETA  = ECPT(6)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X5) FOR QUADRILATERAL PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,10\r\n   10 REQUIV(I) = 0.0\r\nC\r\nC     SHIFT ECPT UP TO MATCH STRBS1 FOR CERTAIN VARIABLES.\r\nC\r\n      DO 30 I = 6,12\r\n   30 ECPT(I) = ECPT(I+1)\r\nC\r\n      DO 40 I = 1,3\r\n      D1(I) = VQ3(I) - VQ1(I)\r\n      D2(I) = VQ4(I) - VQ2(I)\r\n   40 A1(I) = VQ2(I) - VQ1(I)\r\nC\r\nC     NON-NORMALIZED K-VECTOR = D1 CROSS D2\r\nC\r\n      KVECT(1) = D1(2)*D2(3) - D2(2)*D1(3)\r\n      KVECT(2) = D1(3)*D2(1) - D2(3)*D1(1)\r\n      KVECT(3) = D1(1)*D2(2) - D2(1)*D1(2)\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC\r\n      TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 50 I = 1,3\r\n   50 KVECT(I) = KVECT(I)/TEMP\r\nC\r\nC     COMPUTE H = (A1 DOT KVECT)/2\r\nC\r\n      TEMP = (A1(1)*KVECT(1) + A1(2)*KVECT(2) + A1(3)*KVECT(3))/2.0\r\nC\r\nC     I-VECTOR =(A1) - H*(KVECT)    NON-NORMALIZED\r\nC\r\n      DO 60 I = 1,3\r\n   60 IVECT(I) = A1(I) - TEMP*KVECT(I)\r\nC\r\nC     NORMALIZE I-VECTOR\r\nC\r\n      TEMP =  SQRT(IVECT(1)**2 + IVECT(2)**2 + IVECT(3)**2)\r\n      DO 70 I = 1,3\r\n   70 IVECT(I) = IVECT(I)/TEMP\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP =  SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 80 I = 1,3\r\n   80 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     X2 GOES INTO R(1,2) AND Y3 GOES INTO R(2,3)\r\nC\r\n      R(1,2) = A1(1)*IVECT(1) + A1(2)*IVECT(2) + A1(3)*IVECT(3)\r\n      R(2,3) = D1(1)*JVECT(1) + D1(2)*JVECT(2) + D1(3)*JVECT(3)\r\nC\r\nC     X4 GOES INTO R(1,4) AND Y4 GOES INTO R(2,4)\r\nC\r\n      R(1,4) = D2(1)*IVECT(1) + D2(2)*IVECT(2) + D2(3)*IVECT(3) + R(1,2)\r\n      R(2,4) = D2(1)*JVECT(1) + D2(2)*JVECT(2) + D2(3)*JVECT(3)\r\nC\r\nC     STRESS CALCULATION POINT WHICH IS THE DIAGONALS INTERSECTION.\r\nC\r\n      FTEMP  = R(1,3)*R(2,4) + R(2,3)*(R(1,2)-R(1,4))\r\n      IF (FTEMP .EQ. 0.0) CALL MESAGE (-30,26,ECPT(1))\r\n      R(1,5) = R(1,2)*R(1,3)*R(2,4)/FTEMP\r\n      R(2,5) = R(1,2)*R(2,3)*R(2,4)/FTEMP\r\nC\r\nC     CHECK OF 4 POINTS FOR ANGLE GREATER THAN OR EQUAL TO 180 DEGREES.\r\nC\r\n      IF (R(2,3).LE.0.0 .OR. R(2,4).LE.0.0) GO TO 90\r\n      TEMP = R(1,2) - (R(1,2)-R(1,3))*R(2,4)/R(2,3)\r\n      IF (R(1,4) .GE. TEMP) GO TO 90\r\n      TEMP = R(2,3)*R(1,4)/R(2,4)\r\n      IF (R(1,3) .GT. TEMP) GO TO 100\r\n   90 CALL MESAGE (-30,35,ECPT(1))\r\nC\r\nC     SET UP THE M-MATRIX FOR MAPPING TRIANGLES, IN DATA STATEMENT\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n  100 ELTEMP = ECPT(30)\r\n      DO 110 I = 1,60\r\n  110 SSUM(I) = 0.0\r\nC\r\n      DO 160 J = 1,4\r\n      KM     = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 120 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  120 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1     = VV1(1)/XSUBB\r\n      U2     = VV1(2)/XSUBB\r\n      XSUBC  = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC  = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC    = SQRT((R(1,SUBSCA)-R(1,5))**2 + (R(2,SUBSCA)-R(2,5))**2)\r\n      YC    = 0.0\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL STRBS1 (1)\r\nC\r\nC     RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S   , S   , S   , EACH 5X3.   45 WORDS STORED IN A( 1)...A(45)\r\nC        A     B     C\r\nC\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1*0.25\r\n      V( 2) = U2*U2*0.25\r\n      V(11) = U1*U2*0.25\r\n      V( 3) =-V(11)*2.0\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1*0.25\r\n      V(20) =-U2*0.25\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 150 I = 1,3\r\n      CALL GMMATS (V,5,5,0, A(15*I-14),5,3,0, TEMP15)\r\n      CALL GMMATS (TEMP15,5,3,0, T,3,3,0, PROD15)\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 140 K = 1,15\r\n      NSUBC = NPOINT + K\r\n  140 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  150 CONTINUE\r\nC\r\n  160 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 170 I = 1,18\r\n  170 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\n      DO 210 I = 1,4\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 10\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 180\r\n      CALL TRANSS (NECPT(NSUBC),T)\r\n      CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 200\r\nC\r\n  180 DO 190 K = 1,18\r\n  190 TITE(K) = E(K)\r\nC\r\n  200 CALL GMMATS (SSUM(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21))\r\nC\r\n  210 CONTINUE\r\nC\r\nC     I,Z1,Z2,ELEM ID, 4 SILS FOR PHASE 2\r\nC\r\n      PH1OUT(1) = ECPT( 1)\r\n      PH1OUT(2) = ECPT( 2)\r\n      PH1OUT(3) = ECPT( 3)\r\n      PH1OUT(4) = ECPT( 4)\r\n      PH1OUT(5) = ECPT( 5)\r\n      PH1OUT(6) = ECPT( 7)\r\n      PH1OUT(7) = ECPT(11)\r\n      PH1OUT(8) = ECPT(12)\r\nC\r\nC     GET S SUB T MATRIX\r\nC\r\n      MATID   = IDSAVE\r\n      ECPT(8) = EYE\r\n      STRESS  = 0\r\n      SINTH   = SINANG\r\n      COSTH   = COSANG\r\n      INFLAG  = 2\r\n      CALL MAT (ECPT(1))\r\n      D(1) = G11*ECPT(8)\r\n      D(2) = G12*ECPT(8)\r\n      D(3) = G13*ECPT(8)\r\n      D(4) = D(2)\r\n      D(5) = G22*ECPT(8)\r\n      D(6) = G23*ECPT(8)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = G33*ECPT(8)\r\n      CALL GMMATS (D(1),3,3,0, ALPHA(1),3,1,0, ST(1))\r\nC\r\nC     ALL PHASE ONE COMPLETE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sqrtm.f",
    "content": "      SUBROUTINE SQRTM(A,IA,B,IB)\r\nC\r\nC     SCALED ARITHMETIC ROUTINES--SQUARE ROOT\r\nC\r\n      DIMENSION IPSW(1)\r\n      DOUBLE PRECISION A,B\r\n      DOUBLE PRECISION DETSW(1)\r\n      A = B\r\n      IA = IB\r\n      IF(MOD(IA,2) .EQ. 0) GO TO 10\r\n      IA = IA-1\r\n      A = A*10.0\r\n   10 IA=IA/2\r\n      A = DSQRT(DMAX1(A,0.D0))\r\n   20 RETURN\r\nC\r\nC     DCALE OF DETERMINANT BY FACTORS OF 10\r\nC\r\n      ENTRY DETM6(DETSW,IPSW)\r\n      IF(DETSW(1) .EQ. 0.0D0) GO TO 20\r\n   30 IF(DABS(DETSW(1)) .GT. 10.0D0) GO TO 50\r\n   40 IF(DABS(DETSW(1)) .LT. 0.1D0) GO TO 60\r\n      GO TO 20\r\n   50 DETSW(1) = DETSW(1)*0.1D0\r\n      IPSW(1) = IPSW(1)+1\r\n      GO TO 30\r\n   60 DETSW(1) = DETSW(1)*10.0D0\r\n      IPSW(1) = IPSW(1)-1\r\n      GO TO 40\r\n      END\r\n"
  },
  {
    "path": "mis/squd41.f",
    "content": "      SUBROUTINE SQUD41\r\nC\r\nC     PHASE 1  STRESS DATA RECOVERY FOR CQUAD4 ELEMENT\r\nC\r\nC                EST  LISTING\r\nC\r\nC     WORD       TYPE         DESCRIPTION\r\nC     --------------------------------------------------------------\r\nC       1          I    ELEMENT ID, EID\r\nC       2 THRU 5   I    SILS, GRIDS 1 THRU 4\r\nC       6 THRU 9   R    MEMBRANE THICKNESSES T AT GRIDS 1 THRU 4\r\nC      10          R    MATERIAL PROPERTY ORIENTATION ANGLE, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE TM ON CQUAD4 CARD)\r\nC      11          I    TYPE FLAG FOR WORD 10\r\nC      12          R    GRID ZOFF  (OFFSET)\r\nC      13          I    MATERIAL ID FOR MEMBRANE, MID1\r\nC      14          R    ELEMENT THICKNESS, T (MEMBRANE, UNIFORMED)\r\nC      15          I    MATERIAL ID FOR BENDING, MID2\r\nC      16          R    BENDING INERTIA FACTOR, I\r\nC      17          I    MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC      18          R    TRANSV. SHEAR CORRECTION FACTOR TS/T\r\nC      19          R    NON-STRUCTURAL MASS, NSM\r\nC      20 THRU 21  R    Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC      22          I    MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC      23          R    MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC      24          I    TYPE FLAG FOR WORD 23\r\nC      25          I    INTEGRATION ORDER\r\nC      26          R    STRESS ANGLE OF ROTATION, THETA\r\nC               OR I    COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC      27          I    TYPE FLAG FOR WORD 26\r\nC      28          R    ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC      29 THRU 44  I/R  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC      45          R    ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL         BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,NOCSUB\r\n      INTEGER         NEST(45),NPHI(2395),SIL(4),KSIL(4),KCID(8),\r\n     1                IGPDT(4,4),ELID,SCSID,FLAGS,FLAGM,NECPT(4),\r\n     2                INDEX(3,3),MID(4),Q4STRS,IPN(4),HUNMEG,ROWFLG,\r\n     3                TYPE,NAME(2)\r\n      REAL            BGPDM(3,4),CENT(3),GPTH(4),GPNORM(4,4),BGPDT(4,4),\r\n     1                MATSET,MOMINR,TMPTHK(4),TGRID(4,4),EPNORM(4,4),\r\n     2                EGPDT(4,4),G(6,6),GI(36),SHP(4),DSHP(8),GGE(9),\r\n     3                GGU(9),PTINT(2),PTINTP(3),TBS(9),TEU(9),TSE(9),\r\n     4                TEB(9),TBG(9),TUB(9),TUM(9),TSU(9),U(9),GT(9),\r\n     5                TBM(9),TEM(9),TMI(9),ECPT(4),GPC(3),XA(4),YB(4),\r\n     6                ALFA(3),GPTH2(4),RELOUT(300),NUNORX,NUNORY,\r\n     7                UGPDM(3,4),CENTE(3),BMATRX(192),XYBMAT(96),\r\n     8                JACOB(3,3),PHI(9),PSITRN(9),TMPSHP(4),DSHPTP(8),\r\n     9                KHEAT,TMS(9),DQ(24),JACOBU(9),JACBS(9),JACOBE(9),\r\n     O                ZC(4),VNT(3,4)\r\nCWKBNB 11/93 SPR 93020\r\n      REAL            VD1(3), VD2(3), VKN(3), VKS(3)\r\n     1,               V12(3), V41(3), VP12(3),VIS(3), VJS(3)\r\nCWKBNE 11/93 SPR 93020\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SDR2X5/ EST(100),PHIOUT(2395)\r\n      COMMON /SDR2X6/ IELOUT(300)\r\n      COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /SYSTEM/ SYSTM(100)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/ RMTOUT(25)\r\n      COMMON /Q4DT  / DETJ,HZTA,PSITRN,NNODE,BADJAC,NODE\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /HMTOUT/ KHEAT(7),TYPE\r\n      COMMON /Q4COMS/ ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                UEV(3,4),ROWFLG,IORDER(4)\r\n      EQUIVALENCE     (IGPDT(1,1),BGPDT(1,1)),(EST(1)  ,NEST(1)   ),\r\n     1                (BGPDT(1,1),EST(29)   ),(GPTH(1) ,EST(6)    ),\r\n     2                (ELTH      ,EST(14)   ),(SIL(1)  ,NEST(2)   ),\r\n     3                (NPHI(1)   ,PHIOUT(1) ),(INT     ,NEST(25)  ),\r\n     4                (ZOFF      ,NEST(12)  ),(ZOFF1   ,EST(28)   ),\r\n     5                (IELOUT(1) ,RELOUT(1) ),(MATSET  ,RMTOUT(25)),\r\n     6                (NECPT(1)  ,ECPT(1)   ),(SYSTM(2),NOUT      ),\r\n     7                (PHIOUT(65),GPTH2(1)  ),(SYSTM(3),NOGO      ),\r\n     8                (HTCP      ,KHEAT(4)  ),(ITHERM  ,SYSTM(56) )\r\n      DATA    EPS1  / 1.0E-16/   ,IPN / 1,4,2,3 /\r\n      DATA    NAME  / 4HQUAD,4H4      /\r\n      DATA    HUNMEG/ 100000000       /\r\n      DATA    CONST / 0.57735026918962/\r\nC\r\nC     PHIOUT DATA BLOCK\r\nC     --------------------------------------------------------------\r\nC     PHIOUT(1)                 = ELID (ELEMENT ID)\r\nC     PHIOUT(2-9)               = SIL NUMBERS\r\nC     PHIOUT(10-17)             = ARRAY IORDER\r\nC     PHIOUT(18)                = TSUB0 (REFERENCE TEMP.)\r\nC     PHIOUT(19-20)             = Z1 & Z2 (FIBER DISTANCES)\r\nC     PHIOUT(21)                = AVGTHK  (AVERAGE THICKNESS)\r\nC     PHIOUT(22)                = MOMINR  (MOMENT OF INER. FACTOR)\r\nC     PHIOUT(23-58)             = GBAR (BASIC MAT. PROP. MATRIX)\r\nC                                 (W/O SHEAR)\r\nC     PHIOUT(59-61)             = THERMAL EXPANSION COEFFICIENTS\r\nC                                 FOR MEMBRANE MATERIAL\r\nC     PHIOUT(62-64)             = THERMAL EXPANSION COEFFICIENTS\r\nC                                 FOR BENDING MATERIAL\r\nC     PHIOUT(65-68)             = CORNER NODE THICKNESSES\r\nC     PHIOUT(69-77)             = 3X3 TRANSFORMATION FROM USER TO\r\nC                                 MATERIAL COORD. SYSTEM\r\nC     PHIOUT(78)                = OFFSET OF ELEMENT FROM GP PLANE\r\nC     PHIOUT(79)                = ID OF THE ORIGINAL PCOMP(I)\r\nC                                 PROPERTY ENTRY FOR COMPOSITES\r\nC     PHIOUT(80-(79+9*NNODE))   = 3X3 TRANSFORMATIONS FROM GLOBAL\r\nC                                 TO ELEMENT COORDINATE SYSTEM\r\nC                                 FOR EACH EXISTING NODE\r\nC\r\nC     THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT AND THE\r\nC     CENTER POINT (10 TIMES). THE EVALUATION POINTS ARE AT THE\r\nC     STANDARD 2X2X2 GAUSSIAN POINTS. THE CHOICE OF THE\r\nC     FINAL STRESS AND FORCE OUTPUT POINTS IS MADE AT THE SUBCASE\r\nC     LEVEL (PHASE 2.)\r\nC\r\nC              1                  THICKNESS OF THE ELEMENT AT THIS\r\nC                                 EVALUATION POINT\r\nC            2 - 10               3X3 TRANSFORMATION FROM TANGENT\r\nC                                 TO STRESS C.S. AT THIS EVAL. PT.\r\nC           11 - 19               CORRECTION TO GBAR-MATRIX FOR\r\nC                                 MEMBRANE-BENDING COUPLING AT THIS\r\nC                                 EVALUATION POINT\r\nC           20 - 28               3X3 TRANSFORMATION FROM MATERIAL\r\nC                                 TO INTEGRATION PT. COORDINATE\r\nC                                 SYSTEM\r\nC           29 - 32               2X2 PROPERTY MATRIX FOR OUT-OF-\r\nC                                 PLANE SHEAR (G3)\r\nC         32+1 - 32+NNODE         ELEMENT SHAPE FUNCTIONS\r\nC   32+NNODE+1 - 32+NNODE+8*NDOF  STRAIN RECOVERY MATRIX\r\nC\r\nC\r\nC              IELOUT DATA BLOCK      (TOTAL OF NWORDS = 102)\r\nC     --------------------------------------------------------------\r\nC              1                  ELEMENT ID\r\nC              2                  AVERAGE THICKNESS\r\nC\r\nC     THE FOLLOWING IS REPEATED FOR EACH CORNER POINT.\r\nC\r\nC         WORD  1                 SIL NUMBER\r\nC         WORD  2-10              TBS TRANSFORMATION FOR Z1\r\nC         WORD 11-19              TBS TRANSFORMATION FOR Z2\r\nC         WORD 20-22              NORMAL VECTOR IN BASIC C.S.\r\nC         WORD 23-25              GRID COORDS IN BASIC C.S.\r\nC\r\nC\r\n      Q4STRS = 0\r\n      ELID   = NEST(1)\r\n      NPHI(1)= ELID\r\n      NORPTH =.FALSE.\r\n      NODE   = 4\r\n      NNODE  = 4\r\n      NDOF   = NNODE*6\r\n      ND2    = NDOF*2\r\n      ND3    = NDOF*3\r\n      ND4    = NDOF*4\r\n      ND5    = NDOF*5\r\n      ND6    = NDOF*6\r\n      ND7    = NDOF*7\r\n      ND8    = NDOF*8\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS 1, 2 AND 4.\r\nC     THIS ARRAY WILL BE USED LATER TO DEFINE THE USER COORD. SYSTEM\r\nC     WHILE CALCULATING  TRANSFORMATIONS INVOLVING THIS COORD. SYSTEM.\r\nC\r\n      DO 10 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (IJ .EQ. 3) IJ = 4\r\n      DO 10 J = 1,3\r\n      JJ = J + 1\r\n   10 GGU(II+J) = BGPDT(JJ,IJ)\r\nCWKBD 11/93 SPR93020      CALL BETRNS (TUB,GGU,0,ELID)\r\nCWKBNB 11/93 SPR93020\r\nC    ADD FROM SHEAR ELEMENT\r\nC\r\nC    COMPUTE DIAGONAL VECTORS\r\nC\r\n      DO 21 I = 1,3\r\n      II=I+1\r\n      VD1(I) = BGPDT(II,3) - BGPDT(II,1)\r\n   21 VD2(I) = BGPDT(II,4) - BGPDT(II,2)\r\nC\r\nC    COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC    AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 )\r\n      IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n2070  FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 )\r\n      VKS(1) = VKN(1)/VKL\r\n      VKS(2) = VKN(2)/VKL\r\n      VKS(3) = VKN(3)/VKL\r\n      PA = VKL/2.\r\nC\r\nC  COMPUTE SIDES -12- AND -41-\r\n      DO 25 I = 1,3\r\n      II = I + 1\r\n      V12(I) = BGPDT(II,2) - BGPDT(II,1)\r\n      V41(I) = BGPDT(II,1) - BGPDT(II,4)\r\n25    CONTINUE\r\nC\r\nC  COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK   = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3)\r\n      VP12(1) = V12(1) - V12DK*VKS(1)\r\n      VP12(2) = V12(2) - V12DK*VKS(2)\r\n      VP12(3) = V12(3) - V12DK*VKS(3)\r\n      VP12L   = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 )\r\n      IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n      VIS(1) = VP12(1) / VP12L\r\n      VIS(2) = VP12(2) / VP12L\r\n      VIS(3) = VP12(3) / VP12L\r\n      VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2)\r\n      VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3)\r\n      VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1)\r\nC\r\nC   NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 )\r\n      IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1)\r\n      VJS(1) = VJS(1) / VJL\r\n      VJS(2) = VJS(2) / VJL\r\n      VJS(3) = VJS(3) / VJL\r\n      DO 29 I = 1,3\r\n      TUB(I)   = VIS(I)\r\n      TUB(I+3) = VJS(I)\r\n      TUB(I+6) = VKS(I)\r\n29    CONTINUE\r\nCWKBNE 11/93 SPR93020\r\n\r\nC\r\nC     STORE INCOMING BGPDT FOR ELEMENT C.S.\r\nC\r\n      DO 20 I = 1,3\r\n      I1 = I + 1\r\n      DO 20 J = 1,4\r\n   20 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER C.S.\r\nC\r\n      DO 30 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 30 J = 1,4\r\n      UGPDM(I,J) = 0.0\r\n      DO 30 K = 1,3\r\n      KK = IP + K\r\n   30 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*((BGPDM(K,J))-GGU(K))\r\nC\r\nC     THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT\r\nC\r\n      DO 40 J = 1,3\r\n      CENT(J) = 0.0\r\n      DO 40 I = 1,4\r\n   40 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER C.S.\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = SQRT(X31*X31 + Y31*Y31)\r\n      BB  = SQRT(X42*X42 + Y42*Y42)\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S.\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\nC     START FILLING IN IELOUT ARRAY WITH DATA TO BE STORED IN GPSRN\r\nC\r\n      IELOUT(1) = ELID\r\n      DO 50 I = 1,4\r\n      IELOUT(3+(I-1)*25) = SIL(I)\r\n      DO 50 J = 1,3\r\n      RELOUT(25*I+J-1) = BGPDT(J+1,I)\r\n   50 CONTINUE\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST G1,G2,G3,G4.\r\nC     THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE\r\nC     CONNECTIVITY BULK DATA CARD DESCRIPTION.\r\nC\r\nC\r\n      DO 60 I = 1,4\r\n      IORDER(I) = 0\r\n   60 KSIL(I) = SIL(I)\r\nC\r\n      DO 80 I = 1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 70 J = 2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 70\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n   70 CONTINUE\r\n      IORDER(I)   = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n   80 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE\r\nC     FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\n      DO 100 I = 1,4\r\n      KSIL(I)   = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      KCID(I)   = IGPDT(1,I)\r\n      DO 90 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\n      DO 120 I = 1,4\r\n      IPOINT  = IORDER(I)\r\n      GPTH(I) = TMPTHK(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      SIL(I)     = KSIL(IPOINT)\r\n      NPHI(I+1 ) = KSIL(IPOINT)\r\n      NPHI(I+5 ) = 0\r\n      NPHI(I+9 ) = IPOINT\r\n      NPHI(I+13) = 0\r\n      DO 110 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\n      NPHI(19) = NEST(20)\r\n      NPHI(20) = NEST(21)\r\n      PHIOUT(18) = 0.0\r\n      OFFSET   = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\n      PHIOUT(78) = OFFSET\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n      CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .EQ. 0) GO TO 130\r\n      WRITE (NOUT,1710) UFM,ELID\r\n      GO TO 1430\r\n  130 CONTINUE\r\nC\r\nC     PUT NORMALS IN IELOUT\r\nC\r\n      DO 140 I = 1,NNODE\r\n      IO  = IORDER(I)\r\n      IOP = (IO-1)*25 + 21\r\n      RELOUT(IOP+1) = GPNORM(2,I)\r\n      RELOUT(IOP+2) = GPNORM(3,I)\r\n      RELOUT(IOP+3) = GPNORM(4,I)\r\n  140 CONTINUE\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n      AVGTHK = 0.0\r\n      DO 160 I = 1,NNODE\r\n      IO = IORDER(I)\r\n      IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH\r\n      IF (GPTH(I) .GT. 0.0) GO TO 150\r\n      WRITE (NOUT,1700) UFM,ELID,SIL(I)\r\n      GO TO 1430\r\n  150 AVGTHK = AVGTHK + GPTH(I)/NNODE\r\n      GPTH2(IO) = GPTH(I)\r\n  160 CONTINUE\r\nC\r\n      MOMINR = 0.0\r\n      TSFACT = 5.0/6.0\r\n      NOCSUB = .FALSE.\r\n      IF (NEST(15) .NE.  0) MOMINR = EST(16)\r\n      IF (NEST(17) .NE.  0) TS = EST(18)\r\n      IF ( EST(18) .EQ. .0) TS = 5.0/6.0\r\n      PHIOUT(21) = AVGTHK\r\n      PHIOUT(22) = MOMINR\r\nC\r\nC     SET LOGICAL NOCSUB IF EITHER MOMINR OR TS ARE NOT DEFAULT\r\nC     VALUES. THIS WILL BE USED TO OVERRIDE ALL CSUBB COMPUTATIONS.\r\nC     I.E. DEFAULT VALUES OF UNITY ARE USED.\r\nC\r\n      EPSI = ABS(MOMINR - 1.0)\r\n      EPST = ABS(TS  - TSFACT)\r\n      EPS  = .05\r\nC     NOCSUB = EPSI.GT.EPS .OR. EPST.GT.EPS\r\nC\r\nC     PUT THE AVERAGE THICKNESS IN RELOUT\r\nC\r\n      RELOUT(2) = AVGTHK\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE\r\nC     TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S.\r\nC\r\n      CALL BETRNS (TEU,GGE,0,ELID)\r\n      CALL GMMATS (TEU,3,3,0, TUB,3,3,0, TEB)\r\n      CALL GMMATS (TUB,3,3,1, CENT,3,1,0, CENTE)\r\nC\r\n      DO 170 I = 1,3\r\n      II = I + 1\r\n      IP = (I-1)*3\r\n      DO 170 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0\r\n      EGPDT (II,J) = 0.0\r\n      DO 170 K = 1,3\r\n      KK = IP + K\r\n      K1 = K + 1\r\n      CC = BGPDT(K1,J) - GGU(K) - CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n  170 EGPDT (II,J) = EGPDT (II,J) + TEB(KK)*CC\r\nC\r\nC     INITIALIZE MATERIAL VARIABLES\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR-\r\nC     ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      INFLAG = 12\r\n      RHO    = 0.0\r\n      ELTEMP =  EST(45)\r\n      MID(1) = NEST(13)\r\n      MID(2) = NEST(15)\r\n      MID(3) = NEST(17)\r\n      MID(4) = NEST(22)\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\nC\r\nC     CHECK FOR COMPOSITE MATERIAL\r\nC\r\n      NPHI(79) = 0\r\n      DO 180 IMG = 1,4\r\n      IF (MID(IMG) .GT. HUNMEG) GO TO 190\r\n  180 CONTINUE\r\n      GO TO 200\r\n  190 NPHI(79) = MID(IMG) - IMG*HUNMEG\r\n  200 CONTINUE\r\nC\r\nC     DETERMINE FACTORS TO BE USED IN CSUBB CALCULATIONS\r\nC\r\n      IF (.NOT.BENDNG) GO TO 250\r\n      DO 220 I = 1,4\r\n      DO 210 J = 1,NNODE\r\n      JO = IORDER(J)\r\n      IF (I .NE. JO) GO TO 210\r\n      XA(I) = EGPDT(2,J)\r\n      YB(I) = EGPDT(3,J)\r\n      ZC(I) = EGPDT(4,J)\r\n      VNT(1,I) = EPNORM(2,J)\r\n      VNT(2,I) = EPNORM(3,J)\r\n      VNT(3,I) = EPNORM(4,J)\r\n  210 CONTINUE\r\n  220 CONTINUE\r\nC\r\n      A = 0.5*(XA(2) + XA(3) - XA(1) - XA(4))\r\n      B = 0.5*(YB(4) + YB(3) - YB(1) - YB(2))\r\n      IF (A .GT. B) ASPECT = B/A\r\n      IF (A .LE. B) ASPECT = A/B\r\nC\r\nC     IRREGULAR 4-NODE CODE-  GEOMETRIC VARIABLES\r\nC\r\nC     CALCULATE AND NORMALIZE- UNIT EDGE VECTORS,UNIT NORMAL VECTORS\r\nC\r\n      DO 230 I = 1,4\r\n      J = I + 1\r\n      IF (J .EQ. 5) J = 1\r\n      UEV(1,I) = XA(J) - XA(I)\r\n      UEV(2,I) = YB(J) - YB(I)\r\n      UEV(3,I) = ZC(J) - ZC(I)\r\n      UNV(1,I) = (VNT(1,J)+VNT(1,I))*0.50\r\n      UNV(2,I) = (VNT(2,J)+VNT(2,I))*0.50\r\n      UNV(3,I) = (VNT(3,J)+VNT(3,I))*0.50\r\n      CC       = UEV(1,I)**2 + UEV(2,I)**2 + UEV(3,I)**2\r\n      IF (CC .GE. 1.0E-8) CC = SQRT(CC)\r\n      EDGEL(I) = CC\r\n      UEV(1,I) = UEV(1,I)/CC\r\n      UEV(2,I) = UEV(2,I)/CC\r\n      UEV(3,I) = UEV(3,I)/CC\r\n      CC       = SQRT(UNV(1,I)**2 + UNV(2,I)**2 + UNV(3,I)**2)\r\n      UNV(1,I) = UNV(1,I)/CC\r\n      UNV(2,I) = UNV(2,I)/CC\r\n      UNV(3,I) = UNV(3,I)/CC\r\n  230 CONTINUE\r\nC\r\nC     CALCULATE INTERNAL NODAL ANGLES\r\nC\r\n      DO 240 I = 1,4\r\n      J = I - 1\r\n      IF (J .EQ. 0) J = 4\r\n      ANGLEI(I) =-UEV(1,I)*UEV(1,J)-UEV(2,I)*UEV(2,J)-UEV(3,I)*UEV(3,J)\r\n      IF (ABS(ANGLEI(I)) .LT. 1.0E-8) ANGLEI(I) = 0.0\r\n  240 CONTINUE\r\n  250 CONTINUE\r\nC\r\nC     SET THE INTEGRATION POINTS\r\nC\r\n      PTINT(1) = -CONST\r\n      PTINT(2) =  CONST\r\nC\r\n      IF (ITHERM .NE. 0) GO TO 1500\r\nC\r\nC     IN PLANE SHEAR REDUCTION\r\nC\r\n      XI  = 0.0\r\n      ETA = 0.0\r\n      KPT = 1\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 260 I = 1,4\r\n      TMPSHP(I  ) = SHP (I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  260 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 270 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP( I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  270 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\n      DO 280 IZTA = 1,2\r\n      ZETA = PTINT(IZTA)\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      HZTA = ZETA/2.0\r\nC\r\n      CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1430\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION BETWEEN\r\nC     INVER AND GMMAT.\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0, JACOB,3,3,1, PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B-MATRIX AT\r\nC     THE TWO INTEGRATION POINTS.\r\nC\r\n      ROWFLG = 2\r\n      CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT))\r\n      KPT = KPT + ND2\r\n  280 CONTINUE\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS.\r\nC     NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH\r\nC     WILL BE SET IN POSITION LATER.\r\nC\r\n  290 DO 300 IEC = 2,4\r\n  300 ECPT(IEC) = 0.0\r\nC\r\nC\r\nC     EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM\r\nC     THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE\r\nC     SYSTEM. THESE STEPS ARE TO BE FOLLOWED-\r\nC\r\nC     1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED\r\nC        TO CALCULATE TBM-MATRIX (MATERIAL TO BASIC TRANSFORMATION).\r\nC        THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRNS\r\nC        TO CALCULATE TEB-MATRIX (BASIC TO ELEMENT TRANSFORMATION).\r\nC        TBM-MATRIX IS THEN PREMULTIPLIED BY TEB-MATRIX TO OBTAIN\r\nC        TEM-MATRIX. THEN STEP 3 WILL BE TAKEN.\r\nC\r\nC     2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED\r\nC        TO CALCULATE TEM-MATRIX (MATERIAL TO ELEMENT TRANSFORMATION).\r\nC\r\nC                          T\r\nC     3-           G   =  U   G   U\r\nC                   E          M\r\nC\r\nC\r\n      FLAGM = NEST(11)\r\n      IF (FLAGM .EQ. 0) GO TO 360\r\n      MCSID = NEST(10)\r\nC\r\nC     CALCULATE TUM-MATRIX USING MCSID\r\nC\r\n  310 IF (MCSID .GT. 0) GO TO 330\r\n      DO 320 I = 1,9\r\n  320 TEM(I) = TEB(I)\r\n      GO TO 340\r\n  330 NECPT(1) = MCSID\r\n      CALL TRANSS (ECPT,TBM)\r\nC\r\nC     MULTIPLY TEB AND TBM MATRICES\r\nC\r\n      CALL GMMATS (TEB,3,3,0, TBM,3,3,0, TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n  340 CONTINUE\r\n      XM = TEM(1)\r\n      YM = TEM(4)\r\n      IF (ABS(XM).GT.EPS1 .OR. ABS(YM).GT.EPS1) GO TO 350\r\n      NEST(2) = MCSID\r\n      J = 231\r\n      GO TO 1440\r\n  350 THETAM = ATAN2(YM,XM)\r\n      GO TO 370\r\nC\r\nC     CALCULATE TEM-MATRIX USING THETAM\r\nC\r\n  360 THETAM = EST(10)*DEGRAD\r\n      IF (THETAM .EQ. 0.0) GO TO 380\r\n  370 CALL ANGTRS (THETAM,1,TUM)\r\n      CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM)\r\n      GO TO 400\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM\r\nC     ON THE PSHELL CARD.\r\nC\r\n  380 FLAGM = NEST(24)\r\n      IF (FLAGM .EQ. 0) GO TO 390\r\n      MCSID = NEST(23)\r\n      GO TO 310\r\nC\r\n  390 THETAM = EST(23)*DEGRAD\r\n      GO TO 370\r\nC\r\n  400 CONTINUE\r\nC\r\nC     STORE TUM IN PHIOUT\r\nC\r\n      DO 410 IEM = 1,9\r\n  410 PHIOUT(68+IEM) = TUM(IEM)\r\nC\r\n      IF (ITHERM .NE. 0) GO TO 1600\r\nC\r\nC     BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID\r\nC\r\n      DO 420 LL = 1,36\r\n  420 GI(LL) = 0.0\r\nC\r\n      M    = 0\r\n      IT0  = 0\r\n      IGOBK= 0\r\n  430 M    = M + 1\r\n      IF (M .GT. 4) GO TO 680\r\n      IF (M.EQ.4 .AND. IGOBK.EQ.1) GO TO 690\r\n      MATID = MID(M)\r\n      IF (MATID.EQ.0 .AND. M.NE.3) GO TO 430\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. .NOT.BENDNG) GO TO 430\r\n      IF (MATID.EQ.0 .AND. M.EQ.3 .AND. BENDNG) MATID = MID(2)\r\nC\r\n      IF (M-1) 460,450,440\r\n  440 IF (MATID.EQ.MID(M-1) .AND. IGOBK.EQ.0) GO TO 460\r\n  450 CALL MAT (ELID)\r\n  460 CONTINUE\r\nC\r\n      IF (IT0 .GT. 0) GO TO 470\r\n      TSUB0 = RMTOUT(11)\r\n      IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10)\r\n      PHIOUT(18) = TSUB0\r\n      IT0 = 1\r\n  470 CONTINUE\r\nC\r\n      COEFF = 1.0\r\nC     IF (M .EQ. 2) COEFF = MOMINR\r\n      IF (M .EQ. 3) COEFF = TS\r\n      LPOINT = (M-1)*9 + 1\r\nC\r\n      CALL Q4GMGS (M,COEFF,GI(LPOINT))\r\nC\r\nCWKBDB 11/93 SPR93020\r\nC      IF (M .GT. 0) GO TO 490\r\nC      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 480\r\nC      NEST(2) = MATID\r\nC      J = 231\r\nC      GO TO 1440\r\nC\r\nC  480 M = -M\r\nC  490 CONTINUE\r\nC      MTYPE = IFIX(MATSET+.05) - 2\r\nC      IF (NOCSUB) GO TO 580\r\nC      GO TO (580,500,540,580), M\r\nCC\r\nC  500 IF (MTYPE) 510,520,530\r\nC  510 ENORX = RMTOUT(16)\r\nC      ENORY = RMTOUT(16)\r\nC      GO TO 580\r\nC  520 ENORX = RMTOUT(1)\r\nC      ENORY = RMTOUT(4)\r\nC      GO TO 580\r\nC  530 ENORX = RMTOUT(1)\r\nC      ENORY = RMTOUT(3)\r\nC      GO TO 580\r\nC\r\nC  540 IF (MTYPE) 550,560,570\r\nC  550 GNORX = RMTOUT(6)\r\nC      GNORY = RMTOUT(6)\r\nC      GO TO 580\r\nC  560 GNORX = RMTOUT(1)\r\nC      GNORY = RMTOUT(4)\r\nC      GO TO 580\r\nC  570 GNORX = RMTOUT(6)\r\nC      GNORY = RMTOUT(5)\r\nC      IF (GNORX .EQ. 0.0) GNORX = RMTOUT(4)\r\nC      IF (GNORY .EQ. 0.0) GNORY = RMTOUT(4)\r\nC  580 CONTINUE\r\nCWKBDE 11/93 SPR93020\r\nCWKBNB 11/93 SPR93020\r\n      IF (M .GT. 0) GO TO 490\r\n      IF (.NOT.SHRFLX .AND. BENDNG) GO TO 480\r\n      NEST(2) = MATID\r\n      J = 231\r\n      GO TO 1440\r\n  480 M = -M\r\n  490 CONTINUE\r\n      MTYPE = IFIX(MATSET+.05) - 2\r\n      IF (NOCSUB) GO TO 580\r\n      GO TO (580,500,540,580), M\r\nCWKBNE 11/93 SPR93020\r\nCWKBNB 2/94 SPR93020\r\n  500 IF ( MTYPE ) 510, 520, 530\r\n  510 ENORX = RMTOUT(16)\r\n      ENORY = RMTOUT(16)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 580\r\n  520 ENORX = RMTOUT(1)\r\n      ENORY = RMTOUT(4)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 580\r\n  530 ENORX = RMTOUT(1)\r\n      ENORY = RMTOUT(3)\r\n      DNUX  = GI( LPOINT+1 ) / GI( LPOINT )\r\n      DNUY  = GI( LPOINT+3 ) / GI( LPOINT+4 )\r\n      GO TO 580\r\n  540 IF ( MTYPE ) 550, 560, 570\r\n  550 GNORX = RMTOUT(6)\r\n      GNORY = RMTOUT(6)\r\n      GO TO 580\r\n  560 GNORX = RMTOUT(1)\r\n      GNORY = RMTOUT(4)\r\n      GO TO 580\r\n  570 GNORX = RMTOUT(6)\r\n      GNORY = RMTOUT(5)\r\n      IF ( GNORX .EQ. 0.0D0 ) GNORX = RMTOUT(4)\r\n      IF ( GNORY .EQ. 0.0D0 ) GNORY = RMTOUT(4)\r\n  580 CONTINUE\r\nCWKBNE 2/94 SPR93020\r\n      IF (MATSET .EQ. 1.0) GO TO 610\r\n      IF (M      .EQ.   3) GO TO 590\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(2)*TEM(2)\r\n      U(3) = TEM(1)*TEM(2)\r\n      U(4) = TEM(4)*TEM(4)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(4)*TEM(5)\r\n      U(7) = TEM(1)*TEM(4)*2.0\r\n      U(8) = TEM(2)*TEM(5)*2.0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L    = 3\r\n      GO TO 600\r\nC\r\n  590 U(1) = TEM(5)*TEM(9) + TEM(6)*TEM(8)\r\n      U(2) = TEM(4)*TEM(9) + TEM(6)*TEM(7)\r\n      U(3) = TEM(2)*TEM(9) + TEM(3)*TEM(8)\r\n      U(4) = TEM(1)*TEM(9) + TEM(3)*TEM(7)\r\n      L    = 2\r\nC\r\n  600 CALL GMMATS (U(1),L,L,1, GI(LPOINT),L,L,0, GT(1))\r\n      CALL GMMATS (GT(1),L,L,0, U(1),L,L,0, GI(LPOINT))\r\nC\r\nC     TRANSFORM THERMAL EXPANSION COEFF'S AND STORE THEM IN PHIOUT\r\nC\r\n  610 CONTINUE\r\n      IF (M      .GT. 2 ) GO TO 430\r\n      IF (MATSET .EQ. 2.) GO TO 620\r\n      IF (MATSET .EQ. 8.) GO TO 640\r\nC\r\nC     MAT1\r\nC\r\n      ALFA(1) = RMTOUT(8)\r\n      ALFA(2) = RMTOUT(8)\r\n      ALFA(3) = 0.0\r\n      GO TO 650\r\nC\r\nC     MAT2\r\nC\r\n  620 DO 630 IMAT = 1,3\r\n  630 ALFA(IMAT) = RMTOUT(7+IMAT)\r\n      GO TO 650\r\nC\r\nC     MAT8\r\nC\r\n  640 ALFA(1) = RMTOUT(8)\r\n      ALFA(2) = RMTOUT(9)\r\n      ALFA(3) = 0.0\r\nC\r\n  650 MPOINT = (M-1)*3 + 59\r\n      IF (MATSET .EQ. 1.0) GO TO 660\r\n      CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX)\r\n      CALL GMMATS (U,3,3,0, ALFA,3,1,0, PHIOUT(MPOINT))\r\n      GO TO 430\r\n  660 DO 670 IALF = 1,3\r\n      MP = MPOINT - 1 + IALF\r\n  670 PHIOUT(MP) = ALFA(IALF)\r\n      GO TO 430\r\n  680 CONTINUE\r\n      IF (MID(3) .LT. HUNMEG) GO TO 690\r\n      IF (GI(19).NE.0. .OR. GI(20).NE.0. .OR. GI(21).NE.0. .OR.\r\n     1    GI(22).NE.0.) GO TO 690\r\n      IGOBK = 1\r\n      M = 2\r\n      MID(3) = MID(2)\r\n      GO TO 430\r\n  690 CONTINUE\r\nC\r\n      NOCSUB = ENORX.EQ.0.0 .OR. ENORY.EQ.0.0 .OR.\r\n     1         GNORX.EQ.0.0 .OR. GNORY.EQ.0.0 .OR.\r\n     2        MOMINR.EQ.0.0\r\nC\r\nC\r\nC     FILL IN THE BASIC 6X6 MATERIAL PROPERTY MATRIX G\r\nC\r\n      DO 700 IG = 1,6\r\n      DO 700 JG = 1,6\r\n  700 G(IG,JG) = 0.0\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 720\r\n      DO 710 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 710 JG = 1,3\r\n      JG1 = JG + IG1\r\n      G(IG,JG) = GI(JG1)\r\n  710 CONTINUE\r\nC\r\n  720 IF (.NOT.BENDNG) GO TO 750\r\n      DO 730 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 730 JG = 4,6\r\n      JG2 = JG + IG2\r\n      G(IG,JG) = GI(JG2)\r\n  730 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 750\r\n      DO 740 IG = 1,3\r\n      KG  = IG + 3\r\n      IG1 = (IG-1)*3\r\n      DO 740 JG = 1,3\r\n      LG  = JG + 3\r\n      JG1 = JG + IG1\r\n      G(IG,LG) = GI(JG1)\r\n      G(KG,JG) = GI(JG1)\r\n  740 CONTINUE\r\nC\r\nC     STORE 6X6 GBAR-MATRIX IN PHIOUT\r\nC\r\n  750 IG1 = 22\r\n      DO 760 IG = 1,6\r\n      DO 760 JG = 1,6\r\n      IG1 = IG1 + 1\r\n  760 PHIOUT(IG1) = G(IG,JG)\r\nC\r\nC\r\nC     STRESS TRANSFORMATIONS\r\nC     ----------------------\r\nC\r\nC     THE NECESSARY TRANSFORMATIONS ARE PERFORMED IN THE FOLLOWING\r\nC     MANNER-\r\nC\r\nC     1- ALL THE TRANSFORMATIONS ARE CALCULATED IN PHASE I AND THEN\r\nC        TRANSFERED THRU DATA BLOCK 'PHIOUT' TO PHASE II WHERE THE\r\nC        ACTUAL MULTIPLICATIONS ARE PERFORMED.\r\nC\r\nC     2- THE STRAIN RECOVERY MATRIX B\r\nC        IS EVALUATED IN THE ELEMENT COORDINATE SYSTEM IN PHASE I\r\nC        AND TRANSFERED TO PHASE II. THE DISPLACEMENTS, HOWEVER,\r\nC        ENTER PHASE II IN GLOBAL COORDINATES. THEREFORE,\r\nC        2A) 3X3 TRANSFORMATIONS FROM GLOBAL TO ELEMENT COORDINATE\r\nC            SYSTEM (TEG) FOR EACH GRID POINT ARE CALCULATED AND\r\nC            STORED IN  PHIOUT (80 - (79+9*NNODE)).\r\nC            USING THESE TRANSFORMATIONS THE DISPLACEMENTS AT\r\nC            EACH GRID POINT WILL BE EVALUATED IN THE ELEMENT\r\nC            COORDINATE SYSTEM AFTER ENTERING PHASE II.\r\nC\r\nC        2B) A 3X3 TRANSFORMATION FROM THE TANGENT TO THE USER-\r\nC            DEFINED STRESS COORDINATE SYSTEM (TSI) IS CALCULATED\r\nC            FOR EACH INTEGRATION POINT AND STORED ALONG WITH OTHER\r\nC            DATA FOR THAT INTEGRATION POINT AT POSITIONS 2-10 OF\r\nC            THE REPEATED DATA FOR EACH EVALUATION POINT.\r\nC            IT WILL BE USED TO TRANSFORM THE STRESS OUTPUT TO\r\nC            ANY DESIRED COORDINATE SYSTEM.\r\nC            NOTE THAT THESE CALCULATIONS WILL BE PERFORMED INSIDE\r\nC            THE DOUBLE LOOP.\r\nC\r\nC     CALCULATIONS FOR TEG-MATRIX\r\nC\r\nC     CALCULATE  TBG-MATRIX (GLOBAL TO BASIC), THEN\r\nC     MULTIPLY  TEB AND TBG MATRICES  TO GET  TEG-MATRIX\r\nC     FOR THIS GRID POINT AND STORE IT IN PHIOUT.\r\nC\r\n      DO 820 I = 1,NNODE\r\n      IP = 80 + (I-1)*9\r\n      IF (IGPDT(1,I) .LE. 0) GO TO 800\r\n      CALL TRANSS (IGPDT(1,I),TBG)\r\n      CALL GMMATS (TEB,3,3,0, TBG,3,3,0, PHIOUT(IP))\r\n      GO TO 820\r\nC\r\n  800 DO 810 J = 1,9\r\n  810 PHIOUT(IP+J-1) = TEB(J)\r\n  820 CONTINUE\r\nC\r\nC     INITIALIZE THE ARRAYS USED IN THE DOUBLE LOOP CALCULATION.\r\nC     EVALUATION OF STRESSES IS DONE AT 2X2 POINTS AND AT THE\r\nC     CENTER OF THE ELEMENT, AT THE MID-SURFACE.\r\nC\r\n      IF (BENDNG) GO TO 840\r\n      J = ND3 + 1\r\n      DO 830 IBMX = J,ND8\r\n  830 BMATRX(IBMX) = 0.0\r\n  840 CONTINUE\r\nC\r\n      ICOUNT = -(8*NDOF+NNODE+32) + 79 + 9*NNODE\r\nC\r\n      PTINTP(1) =-CONST\r\n      PTINTP(2) = CONST\r\n      PTINTP(3) = 0.0\r\nC\r\nC\r\nC     HERE BEGINS THE TRIPLE LOOP ON STATEMENTS 835 AND 840\r\nC     -----------------------------------------------------\r\nC\r\n      DO 1420 IXSI = 1,3\r\n      XI = PTINTP(IXSI)\r\nC\r\n      DO 1420 IETA = 1,3\r\n      ETA = PTINTP(IETA)\r\n      IF (IXSI.EQ.3 .AND. IETA.NE.3) GO TO 1420\r\n      IF (IXSI.NE.3 .AND. IETA.EQ.3) GO TO 1420\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 900 I = 1,4\r\n      TMPSHP(I  ) = SHP (I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n  900 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 910 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n  910 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\n      TH = 0.0\r\n      DO 920 ITH = 1,NNODE\r\n  920 TH = TH + SHP(ITH)*GPTH(ITH)\r\n      REALI = MOMINR*TH*TH*TH/12.0\r\n      TSI = TS*TH\r\nC\r\n      IF (NOCSUB) GO TO 970\r\n      IF (.NOT.BENDNG) GO TO 970\r\nC      NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0\r\nC      NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0\r\nCWKBNB 2/94 SPR93020\r\n      NUNORX = MOMINR*ENORX/(2.0*GNORX) - 1.0\r\n      NUNORY = MOMINR*ENORY/(2.0*GNORY) - 1.0\r\n      IF ( NUNORX .LT. 0. ) NUNORX = DNUX\r\n      IF ( NUNORY .LT. 0. ) NUNORY = DNUY\r\nCWKBNE 2/94 SPR93020\r\nCWKBDB 2/94 SPR93020\r\nC      EIX = MOMINR*ENORX\r\nC      EIY = MOMINR*ENORY\r\nC      TGX = 2.0*GNORX\r\nC      TGY = 2.0*GNORY\r\nC      NUNORX = EIX/TGX - 1.0\r\nC      IF (EIX .GT. TGX) NUNORX = 1.0 - TGX/EIX\r\nC      NUNORY = EIY/TGY - 1.0\r\nC      IF (EIY .GT. TGY) NUNORY = 1.0 - TGY/EIY\r\nC      IF (NUNORX .GT. 0.999999) NUNORX = 0.999999\r\nC      IF (NUNORY .GT. 0.999999) NUNORY = 0.999999\r\nCWKBDE 2/94 SPR93020\r\nC     IF (NUNORX .GT. .49) NUNORX = 0.49\r\nC     IF (NUNORY .GT. .49) NUNORY = 0.49\r\n      CC = ASPECT\r\n      AX = A\r\n      IF (ETA .LT. 0.0) AX = A + CONST*(XA(2)-XA(1)-A)\r\n      IF (ETA .GT. 0.0) AX = A + CONST*(XA(3)-XA(4)-A)\r\n      PSIINX = 32.0*REALI/((1.0-NUNORX)*TSI*AX*AX)\r\n      BY = B\r\n      IF (XI .LT. 0.0) BY = B + CONST*(YB(4)-YB(1)-B)\r\n      IF (XI .GT. 0.0) BY = B + CONST*(YB(3)-YB(2)-B)\r\n      PSIINY = 32.0*REALI/((1.0-NUNORY)*TSI*BY*BY)\r\n      IF (.NOT.SHRFLX) GO TO 930\r\n      TSMFX = PSIINX\r\n      TSMFY = PSIINY\r\n      IF (TSMFX .GT. 1.0) TSMFX = 1.0\r\n      IF (TSMFY .GT. 1.0) TSMFY = 1.0\r\n      GO TO 980\r\n  930 IF (PSIINX .GE. 1.0) GO TO 940\r\n      TSMFX = PSIINX/(1.0-PSIINX)\r\n      IF (TSMFX .LE. 1.0) GO TO 950\r\n  940 TSMFX = 1.0\r\n  950 IF (PSIINY .GE. 1.0) GO TO 960\r\n      TSMFY = PSIINY/(1.0-PSIINY)\r\n      IF (TSMFY .LE. 1.0) GO TO 980\r\n  960 TSMFY = 1.0\r\n      GO TO 980\r\nC\r\n  970 TSMFX = 1.0\r\n      TSMFY = 1.0\r\n  980 CONTINUE\r\nC\r\nC     IRREGULAR 4-NODE CODE-  CALCULATION OF NODAL EDGE SHEARS\r\nC                             AT THIS INTEGRATION POINT\r\nC\r\nC\r\n      DO 1050 IJ = 1,4\r\n      II = IJ - 1\r\n      IF (II .EQ. 0) II = 4\r\n      IK = IJ + 1\r\n      IF (IK .EQ. 5) IK = 1\r\nC\r\n      DO 1000 IR = 1,4\r\n      IF (IJ .NE. IORDER(IR)) GO TO 1000\r\n      IOJ = IR\r\n      GO TO 1010\r\n 1000 CONTINUE\r\n 1010 DO 1020 IR = 1,4\r\n      IF (IK .NE. IORDER(IR)) GO TO 1020\r\n      IOK = IR\r\n      GO TO 1030\r\n 1020 CONTINUE\r\n 1030 AA = SHP(IOJ)\r\n      BB = SHP(IOK)\r\nC\r\n      DO 1040 IS = 1,3\r\n      EDGSHR(IS,IJ) = (UEV(IS,IJ)+ANGLEI(IJ)*UEV(IS,II))*AA/\r\n     1                (1.0-ANGLEI(IJ)*ANGLEI(IJ))\r\n     2              + (UEV(IS,IJ)+ANGLEI(IK)*UEV(IS,IK))*BB/\r\n     3                (1.0-ANGLEI(IK)*ANGLEI(IK))\r\n 1040 CONTINUE\r\n 1050 CONTINUE\r\nC\r\n      DO 1410 IZTA = 1,2\r\n      ZETA = PTINT(IZTA)\r\n      HZTA = ZETA/2.0\r\n      IBOT = (IZTA-1)*ND2\r\nC\r\nC     SET THE PHIOUT POINTER\r\nC\r\n      ICOUNT = ICOUNT + 32 + NNODE + 8*NDOF\r\nC\r\n      PHIOUT(ICOUNT+1) = TH\r\nC\r\nC     STORE SHAPE FUNCTION VALUES IN PHIOUT\r\nC\r\n      DO 1060 I = 1,NNODE\r\n      PHIOUT(ICOUNT+32+I) = SHP(I)\r\n 1060 CONTINUE\r\nC\r\nC     STORE THE CORRECTION TO GBAR-MATRIX IN PHIOUT\r\nC\r\n      IG1 = ICOUNT + 10\r\n      IG4 = 28\r\n      DO 1070 IG = 1,9\r\n      IG1 = IG1 + 1\r\n      PHIOUT(IG1) = -GI(IG4)*ZETA*6.0\r\n 1070 IG4 = IG4 + 1\r\nC\r\nC     STORE G3-MATRIX IN PHIOUT\r\nC\r\n      IPH = ICOUNT + 28\r\n      PHIOUT(IPH+1) = TSMFY*GI(19)\r\n      PHIOUT(IPH+2) = SQRT(TSMFX*TSMFY)*GI(20)\r\n      PHIOUT(IPH+3) = SQRT(TSMFX*TSMFY)*GI(21)\r\n      PHIOUT(IPH+4) = TSMFX*GI(22)\r\nC\r\nC     COMPUTE THE JACOBIAN AT THIS GAUSS POINT,\r\nC     ITS INVERSE AND ITS DETERMINANT.\r\nC\r\n      CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1430\r\nC\r\nC     COMPUTE PSI TRANSPOSE X JACOBIAN INVERSE.\r\nC     HERE IS THE PLACE WHERE THE INVERSE JACOBIAN IS FLAGED TO BE\r\nC     TRANSPOSED BECAUSE OF OPPOSITE MATRIX LOADING CONVENTION BETWEEN\r\nC     INVER AND GMMAT.\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0, JACOB,3,3,1, PHI)\r\nC\r\n      CALL GMMATS (TEM,3,3,1, PSITRN,3,3,1, TMI)\r\nC\r\nC     STORE TMI-MATRIX IN PHIOUT\r\nC\r\n      IPH = ICOUNT + 20\r\n      DO 1080 I = 1,9\r\n      PHIOUT(IPH) = TMI(I)\r\n 1080 IPH = IPH + 1\r\nC\r\nC     ARRAY ECPT(4) WHICH IS USED IN TRANSS CONSISTS OF THE C.S. ID\r\nC     AND THE COORDINATES (IN BASIC C.S.) OF THE POINT FROM (OR TO)\r\nC     WHICH THE TRANSFORMATION IS BEING PERFORMED. THE COORDINATES\r\nC     ARE NOT USED IF THE DESIGNATED COORDINATE SYSTEM IS RECTANGULAR.\r\nC\r\n      DO 1100 I = 1,3\r\n      GPC(I) = 0.0\r\n      II = I + 1\r\n      DO 1090 J = 1,NNODE\r\n 1090 GPC(I) = GPC(I) + SHP(J)*(BGPDT(II,J) + HZTA*GPTH(J)*GPNORM(II,J))\r\n 1100 ECPT(II) = GPC(I)\r\nC\r\nC     CALCULATIONS FOR TSE-MATRIX\r\nC\r\n      FLAGS = NEST(27)\r\n      IF (FLAGS .EQ. 0) GO TO 1300\r\nC\r\nC     FLAGS IS 1, I.E. SCSID HAS BEEN SPECIFIED.\r\nC     CALCULATE TBS-MATRIX (STRESS TO BASIC)\r\nC\r\n      SCSID = NEST(26)\r\n      IF (SCSID .LE. 0) GO TO 1200\r\n      NECPT(1) = SCSID\r\n      CALL TRANSS (ECPT,TBS)\r\n      GO TO 1220\r\n 1200 DO 1210 I = 1,3\r\n      II = (I-1)*3\r\n      DO 1210 J = 1,3\r\n      JJ = (J-1)*3\r\n 1210 TSU(II+J) = TUB(I+JJ)\r\n      GO TO 1230\r\nC\r\nC     MULTIPLY\r\nC               T         T\r\nC            TBS  AND  TUB  TO GET TSU-MATRIX (USER TO STRESS)\r\nC\r\n 1220 CALL GMMATS (TBS,3,3,1, TUB,3,3,1, TSU)\r\nC\r\nC     CALCULATE THETAS FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     STRESS C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n 1230 CONTINUE\r\n      XS = TSU(1)\r\n      YS = TSU(2)\r\n      IF (ABS(XS).GT.EPS1 .OR. ABS(YS).GT.EPS1) GO TO 1240\r\n      NEST(2) = SCSID\r\n      J = 233\r\n      GO TO 1440\r\n 1240 THETAS = ATAN2(YS,XS)\r\n      GO TO 1310\r\nC\r\nC     FLAGS IS 0, I.E. THETAS HAS BEEN SPECIFIED.\r\nC     SUBROUTINE ANGTRS RETURNS THE 3X3 TRANSFORMATION USING THETAS.\r\nC     NOTE THAT IF THETAS IS LEFT BLANK (DEFAULT), THE TRANSFORMATION\r\nC     WILL BE IDENTITY,  I.E. THE STRESSES WILL BE OUTPUT IN THE\r\nC     ELEMENT COORDINATE SYSTEM.\r\nC     IF Q4STRS IS SET EQUAL TO 1, STRESSES WILL BE OUTPUT IN THE E C.S.\r\nC     WHICH COOINCIDES WITH MSC'S  VERSION OF ELEMENT COORDINATE SYSTEM.\r\nC\r\n 1300 THETAS = EST(26)*DEGRAD\r\n 1310 IF (Q4STRS .EQ. 1) GO TO 1320\r\n      CALL ANGTRS (THETAS,0,TSU)\r\n      CALL GMMATS (TSU,3,3,0, TEU,3,3,1, TSE)\r\n      GO TO 1330\r\n 1320 CALL ANGTRS (THETAS,0,TSE)\r\nC                                   T\r\nC     CALCULATE  TSI  = TSE X PSITRN  AND STORE IT IN PHIOUT\r\nC\r\n 1330 CALL GMMATS (TSE,3,3,0, PSITRN,3,3,1, PHIOUT(ICOUNT+2))\r\nC\r\nC     FOR CORNER POINTS (THE STRESS EVALUATION POINTS EXCEPT FOR THE\r\nC     ONES AT THE CENTER), CALCULATE TSB-MATRIX AND STORE IT IN IELOUT.\r\nC\r\n      IF (IXSI+IETA .GT. 4) GO TO 1340\r\n      IP  = (IXSI-1)*2 + IETA\r\n      IP1 = IPN(IP)\r\n      IP2 = (IP1-1)*25 + 4 + (IZTA-1)*9\r\n      CALL GMMATS (TSE,3,3,0, TEB,3,3,0, RELOUT(IP2))\r\n 1340 CONTINUE\r\nC\r\nC     CALL Q4BMGS TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 3 TO CREATE THE FIRST 6 ROWS. THEN SET IT\r\nC     TO 1 FOR THE LAST 2 ROWS.\r\nC\r\n      ROWFLG = 3\r\n      CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,BMATRX(1))\r\n      DO 1350 IX = 1,NDOF\r\n 1350 BMATRX(IX+ND2) = XYBMAT(IBOT+IX)\r\nC\r\n      IF (.NOT.BENDNG) GO TO 1370\r\n      ROWFLG = 1\r\n      CALL Q4BMGS (DSHP,GPTH,EGPDT,EPNORM,PHI,BMATRX(1+ND6))\r\n      DO 1360 IX = 1,NDOF\r\n 1360 BMATRX(IX+ND5) = XYBMAT(IBOT+IX+NDOF)\r\n 1370 CONTINUE\r\nC\r\nC\r\nC     HERE WE SHIP OUT THE STRAIN RECOVERY MATRIX.\r\nC     --------------------------------------------\r\nC\r\n      KCOUNT = ICOUNT + 32 + NNODE\r\n      DO 1400 IPH = 1,ND8\r\n 1400 PHIOUT(KCOUNT+IPH) = BMATRX(IPH)\r\n 1410 CONTINUE\r\n 1420 CONTINUE\r\n      RETURN\r\nC\r\n 1430 NOGO = 1\r\n      RETURN\r\nC\r\n 1440 CALL MESAGE (30,J,NAME)\r\n      GO TO 1430\r\nC\r\nC     BEGINNING OF HEAT RECOVERY.\r\nC\r\n 1500 CONTINUE\r\n      MATID    = NEST(13)\r\n      INFLAG   = 2\r\n      NPHI(22) = 2\r\n      NPHI(23) = NNODE\r\n      NPHI(24) = NAME(1)\r\n      NPHI(25) = NAME(2)\r\n      XI  = 0.0\r\n      ETA = 0.0\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 1510 I = 1,4\r\n      TMPSHP(I  ) = SHP (I  )\r\n      DSHPTP(I  ) = DSHP(I  )\r\n 1510 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 1520 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK  )\r\n      DSHP(I  ) = DSHPTP(KK  )\r\n 1520 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\n      HZTA = 0.0\r\n      CALL JACOBS (ELID,SHP,DSHP,GPTH,EGPDT,EPNORM,JACOBE)\r\n      IF (BADJAC) GO TO 1430\r\nC\r\n      DO 1530 I = 2,4\r\n      ECPT(I) = 0.0\r\n      DO 1530 J = 1,NNODE\r\n 1530 ECPT(I) = ECPT(I) + SHP(J)*BGPDT(I,J)\r\nC\r\n      FLAGS = NEST(27)\r\n      IF (FLAGS .EQ. 0) GO TO 1580\r\n      SCSID = NEST(26)\r\n      IF (SCSID .LE. 0) GO TO 1540\r\n      NECPT(1) = SCSID\r\n      CALL TRANSS (ECPT,TBS)\r\n      CALL GMMATS (TBS,3,3,1, TUB,3,3,1, TSU)\r\n      GO TO 1560\r\n 1540 DO 1550 I = 1,3\r\n      II = (I-1)*3\r\n      DO 1550 J = 1,3\r\n      JJ = (J-1)*3\r\n 1550 TSU(II+J) = TUB(I+JJ)\r\n 1560 CONTINUE\r\n      XS = TSU(1)\r\n      YS = TSU(2)\r\n      IF (ABS(XS).GT.EPS1 .OR. ABS(YS).GT.EPS1) GO TO 1570\r\n      NEST(2) = SCSID\r\n      J = 233\r\n      GO TO 1440\r\n 1570 THETAS = ATAN2(YS,XS)\r\n      GO TO 1590\r\n 1580 THETAS = EST(26)*DEGRAD\r\n 1590 CALL ANGTRS (THETAS,0,TSU)\r\n      SINMAT = 0.0\r\n      COSMAT = 1.0\r\n      CALL HMAT (ELID)\r\n      PHIOUT(26) = KHEAT(1)\r\n      PHIOUT(27) = KHEAT(2)\r\n      PHIOUT(28) = KHEAT(2)\r\n      PHIOUT(29) = KHEAT(3)\r\nC\r\nC     BRANCH IF THERMAL CONDUCTIVITY KHEAT IS ISOTROPIC.\r\nC     OTHERWISE, FIND TBM, TBS AND TMS AND COMPUTE THE KHEAT\r\nC     TENSOR IN 2-DIMENSIONAL STRESS COORDINATE SYSTEM.\r\nC\r\nC     COMMENTS FROM G.CHAN/UNISYS     10/88\r\nC     HMAT ROUTINE DOES NOT RETURN 'TYPE' IN COSMIC NASTRAN\r\nC     SO WE CAN ONLY ASSUME THERMAL CONDUCTIVITY IS ISOTROPIC AND\r\nC     BRANCH TO 1610 UNCONDITIOANLLY BY SETTING TYPE =-1\r\nC\r\n                                                TYPE =-1\r\nC\r\n      IF (TYPE.EQ.4 .OR. TYPE.EQ.-1) GO TO 1610\r\n      GO TO 290\r\n 1600 CONTINUE\r\n      CALL GMMATS (TUM,3,3,1, TSU,3,3,1, TMS)\r\n      TMS(3) = TMS(4)\r\n      TMS(4) = TMS(5)\r\n      CALL GMMATS (TMS,2,2,1, PHIOUT(26),2,2,0, TUM)\r\n      CALL GMMATS (TUM,2,2,0, TMS,2,2,0, PHIOUT(26))\r\n 1610 CONTINUE\r\n      CALL GMMATS (TEU,3,3,1, JACOBE,3,3,0, JACOBU)\r\n      CALL GMMATS (TSU,3,3,0, JACOBU,3,3,0, JACBS)\r\n      DO 1620 J = 1,NNODE\r\n      DQ(J) = DSHP(J)\r\n      JN = J + NNODE\r\n      DQ(JN) = DSHP(J+4)\r\n      JN = JN + NNODE\r\n 1620 DQ(JN) = 0.0\r\n      CALL GMMATS (JACBS,3,3,0, DQ,3,NNODE,0, PHIOUT(35))\r\n      RETURN\r\nC\r\n 1700 FORMAT (A23,', QUAD4 ELEMENT HAS UNDEFINED THICKNESS.  ELEMENT',\r\n     1       ' ID =',I8,', SIL ID =',I8)\r\n 1710 FORMAT (A23,', MODULE SDR2 DETECTS BAD OR REVERSE GEOMETRY FOR ',\r\n     1       'ELEMENT ID =',I8)\r\n      END\r\n"
  },
  {
    "path": "mis/squd42.f",
    "content": "      SUBROUTINE SQUD42\r\nC\r\nC     PHASE 2 STRESS RECOVERY FOR 4-NODE ISOPARAMETRIC QUADRILATERAL\r\nC     SHELL ELEMENT (QUAD4)\r\nC\r\nC     NOTE - FOR LAMINATED COMPOSITE ELEMENTS THE FOLLOWING ARE\r\nC            NOT SUPPORTED\r\nC\r\nC         1. VARIABLE GRID POINT THICKNESS\r\nC         3. TEMPERATURE AT 'FIBRE' DISTANCE\r\nC\r\nC         ALSO STRESSES ARE ONLY EVALUATED AT THE ELEMENT CENTRE\r\nC         AND SIMILARILY FOR STRESS RESULTANTS\r\nC\r\nC\r\nC     ALGORITHM -\r\nC\r\nC     1- STRAIN RECOVERY DATA IS SENT BY PHASE 1 THRU 'PHIOUT',\r\nC        WHICH INCLUDES ALL THE NECESSARY TRANSFORMATIONS AND\r\nC        STRAIN RECOVERY MATRICES. THE DATA IS REPEATED FOR EACH\r\nC        STRESS EVALUATION POINT.\r\nC     2- GLOBAL DISPLACEMENT VECTOR ENTERS THE ROUTINE IN CORE.\r\nC     3- BASED ON THE DATA IN /SDR2X4/, LOCATION OF THE GLOBAL\r\nC        DISPLACEMENT VECTOR FOR THE CURRENT SUBCASE IS DETERMINED.\r\nC     4- WORD 132 OF /SDR2DE/ CONTAINS THE STRESS OUTPUT REQUEST\r\nC        OPTION FOR THE CURRENT SUBCASE.\r\nC     5- ELEMENT/GRID POINT TEMPERATURE DATA ENTERS THE ROUTINE\r\nC        THRU /SDR2DE/ (POSITIONS 97-103, 104-129 NOT USED.)\r\nC     6- ELEMENT STRAINS ARE CALCULATED, CORRECTED FOR THERMAL\r\nC        STRAINS, AND PREMULTIPLIED BY G-MATRIX.\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         EXTRM,LAYER,COMPOS,GRIDS,INTGS,MAXSH,VONMS,BENDNG,\r\n     1                TRNFLX,TEMPP1,TEMPP2,SNRVRX,SNRVRY,FOUR,PCMP,\r\n     2                PCMP1,PCMP2,DEBUG\r\nCWKBNB NCL93012 3/94      \r\n      LOGICAL         OSTRAI\r\n      REAL            EPSAVG(6)\r\nCWKBNE NCL93012 3/94\r\n      INTEGER         INTZ(1),IGRID(5),NPHI(2395),NSTRES(86),ELID,\r\n     1                KSIL(8),IORDER(8),CENTER,NFORS(46),EXTRNL,\r\nCWKBR 3/95 SPR94017 2  INDXG2(3,3),INDX(6,3),OPRQST,FLAG,IPN(5),COMPS,  \r\n     2                INDXG2(3,3),INDX(6,3),FLAG,IPN(5),COMPS,  \r\n     3                OES1L,OEF1L,PCOMP,PCOMP1,PCOMP2,PIDLOC,SYM,SYMMEM,\r\n     4                SOUTI,FTHR,STRAIN,ELEMID,PLYID,ANDF,SDEST,FDEST\r\nC    5,               GPSTRS,INDEXU(3,3),INDEXV(2,3)\r\n      REAL            MOMINR,KHIT,MINTR,TDELTA(6),DELTA(48),TSTB(5,5),\r\n     1                TSTT(5,5),TSTN(50),DELTAT(8),U(36),G(36),G2(9),\r\n     2                ALFAM(3),ALFAB(3),Z1(5),Z2(5),GPTH(4),STRES(86),\r\n     3                G3(4),TMI(9),TRANS(9),STRNT(3),STRNB(3),STRNTC(3),\r\n     4                STRNBC(3),EPST(3),EPSB(3),EPSE(3),EPSTOT(3),FB(2),\r\n     5                EPSLNE(3),STRESL(3),STRESE(3),EZEROT(6),ALPHA(3),\r\n     6                V(2),EI(2),ZBAR(2),TRNAR(2),TRNSHR(2),ULTSTN(6),\r\n     7                ABBD(6,6),STIFF(36),MTHER(6),DUMC(6),STEMP(8)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ KSYSTM(60)\r\n      COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2,\r\n     1                NSTROP\r\n      COMMON /SDR2X2/ DUMM(30),OES1L,OEF1L\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP\r\n      COMMON /SDR2X7/ PHIOUT(2395)\r\n      COMMON /SDR2X8/ SIGMA(3),ICOUNT,NSTOT,THIKNS(5),ISTRES,KPOINT,\r\n     1                EXTRNL(8),TSTR(50),XPOINT(2),SHPFNC(4),EPSLN(8),\r\n     2                KHIT(3),G2ALFB(30),TST(20),TES(9),TESU(9),TESV(4),\r\n     3                REALI(5),GT(36),EPSLNT(6),TSIGMA(8),SIGNX(4),\r\n     4                SIGNY(4),VXCNTR,VYCNTR,FXCNTR,FYCNTR,FXYCNT,\r\n     5                STRX(2),STRY(2),STRS(2),FORSUL(46)\r\n      COMMON /SDR2DE/ KSDRDE(141)\r\nCWKBR NCL93012 3/94      COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS   \r\n      COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS,SKP(4),OSTRAI\r\n      COMMON /CONDAS/ PI,TWOPI,RADDEG,DEGRAD\r\n      EQUIVALENCE     (Z(1)   ,INTZ(1)   ), (NFORS(1) ,FORSUL(1) ),\r\n     1                (NPHI(1),PHIOUT(1) ), (NSTRES(1),STRES(1)  ),\r\n     2                (ELID   ,NPHI(1)   ), (KSIL(1)  ,NPHI(2)   ),\r\n     3                (TSUB0  ,PHIOUT(18)), (IORDER(1),NPHI(10)  ),\r\n     4                (AVGTHK ,PHIOUT(21)), (MOMINR   ,PHIOUT(22)),\r\n     5                (G(1)   ,PHIOUT(23)), (ALFAM(1) ,PHIOUT(59)),\r\n     6                (GPTH(1),PHIOUT(65)), (ALFAB(1) ,PHIOUT(62)),\r\n     7                (IPID   ,NPHI(79)  ), (KSTRS    ,KSDRDE(42)),\r\n     8                (KFORCE ,KSDRDE(41)), (STEMP(1) ,KSDRDE(97)),\r\n     9                (SDEST  ,KSDRDE(26)), (FDEST    ,KSDRDE(33)),\r\n     O                (NOUT   ,KSYSTM(2) ), (STEMP(7) ,FLAG      )\r\nC    1,               (INDEXU(1,1),INDEXV(1,1))\r\n      DATA    DEBUG / .FALSE.  /\r\n      DATA    CENTER/ 4HCNTR   /\r\n      DATA    CONST / 0.57735026918962/\r\n      DATA    EPSS  / 1.0E-11  /\r\n      DATA    EPSA  / 1.0E-7   /\r\n      DATA    IPN   / 1,4,2,3,5/\r\n      DATA    PCOMP / 0 /\r\n      DATA    PCOMP1/ 1 /\r\n      DATA    PCOMP2/ 2 /\r\n      DATA    SYM   / 1 /\r\n      DATA    MEM   / 2 /\r\n      DATA    SYMMEM/ 3 /\r\n      DATA    STRAIN/ 5 /\r\nC\r\nC     DEFINE PHIOUT(2395), THE TRANSMITTED DATA BLOCK\r\nC\r\nC     ADDRESS     DESCRIPTIONS\r\nC\r\nC        1        ELID\r\nC      2 - 9      SIL NUMBERS\r\nC     10 - 17     IORDER\r\nC       18        TREF\r\nC     19 - 20     FIBRE DISTANCES Z1, Z2 AS SPECIFIED ON PSHELL CARD\r\nC       21        AVGTHK- AVERAGE THICKNESS OF THE ELEMENT\r\nC       22        MOMINR- MOMENT OF INERTIA FACTOR\r\nC     23 - 58     GBAR-MATRIX, 6X6 MATRIX OF MATERIAL PROPERTY (W/O G3)\r\nC     59 - 61     THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE\r\nC     62 - 64     THERMAL EXPANSION COEFFICIENTS FOR BENDING\r\nC     65 - 68     CORNER NODE THICKNESSES\r\nC     69 - 77     TUM-MATRIX, 3X3 TRANSFORMATION FROM MATERIAL TO USER\r\nC                 DEFINED COORDINATE SYSTEM\r\nC       78        OFFSET OF ELEMENT FROM GP PLANE\r\nC       79        ORIGINAL PROPERTY ID FOR COMPOSITES\r\nC     80 - 79+9*NNODE\r\nC                 TEG-MATRIX, A 3X3 MATRIX FOR THE TRANSFORMATION\r\nC                 MATRIX FROM GLOBAL COORD TO ELMT COORD FOR\r\nC                 EACH NODE.\r\nC                 TEG-MATRIX, 3X3 DATA ARE REPEATED FOR NNODES\r\nC     --------\r\nC     START FROM PHIOUT(79+9*NNODE+1) AS A REFERENCE ADDRESS\r\nC                       79+9*4    +1= 116\r\nC\r\nC     ADDRESS     DESCRIPTIONS\r\nC\r\nC        1        T, MEMBRANE THICKNESS AT THIS EVALUATION POINT\r\nC      2 - 10     TES-MATRIX, A 3X3 TRANSFORMATION MATRIX FROM ELEM.\r\nC                        C.S. TO USER DEFINED STRESS C.S. AT THIS\r\nC                        EVALUATION POINT\r\nC     11 - 19     CORRECTION TO GBAR-MATRIX FOR MEMBRANE-BENDING\r\nC                        COUPLING AT THIS EVALUATION POINT\r\nC     20 - 28     TMI-MATRIX, 3X3 TRANSFORMATION FROM TANGENT TO MATERIA\r\nC     29 - 32     G3-MATRIX\r\nC     33 - 32+NNODE\r\nC                 ELEMENT SHAPE FUNCTION VALUES AT THIS EVAL. POINT\r\nC     32+NNODE+1 -\r\nC     32+NNODE+8*NDOF\r\nC                 B-MATRIX, 8 X NDOF\r\nC\r\nC     --------    ABOVE DATA BATCH REPEATED 10 TIMES\r\nC\r\nC     TOTAL PHIOUT WORDS = (116-1) + (32+4+8*(6*4))*10\r\nC                        =    115  + (32+4+192)*10 = 115 + 2280 = 2395\r\nC\r\nC\r\nC     DEFINE STRES (TOTAL OF 86 WORDS), THE STRESS OUTPUT DATA BLOCK\r\nC\r\nC     ADDRESS     DESCRIPTIONS\r\nC\r\nC        1        ELID\r\nC     -------------------------------------------------------\r\nC        2        INTEGRATION POINT NUMBER\r\nC     3  - 10     STRESSES FOR LOWER POINTS\r\nC     11 - 18     STRESSES FOR UPPER POINTS\r\nC     ---------   ABOVE DATA REPEATED 4 TIMES\r\nC     70 - 86     STRESSES FOR CENTER POINT\r\nC\r\nC     DEFINE FORSUL (TOTAL OF 46 WORDS), THE FORCE RESULTANT OUTPUT\r\nC     DATA BLOCK.\r\nC\r\nC     ADDRESS    DESCRIPTIONS\r\nC\r\nC        1       ELID\r\nC     ------------------------------------------------\r\nC        2       GRID POINT NUMBER\r\nC      3 - 10    FORCES\r\nC     --------   ABOVE DATA REPEATED 4 TIMES\r\nC     38 - 46    FORCES FOR CENTER POINT\r\nC\r\nC     NSTOT  = NUMBER OF DATA OUTPUT THRU 'STRES'\r\nC     NFORCE = NUMBER OF DATA OUTPUT THRU 'FORSUL'\r\nC     NNODE  = TOTAL NUMBER OF NODES\r\nC     NDOF   = TOTAL NUMBER OF DEGREES OF FREEDOM\r\nC     LDTEMP = SWITCH TO DETERMINE IF THERMAL EFFECTS ARE PRESENT\r\nC     ICOUNT = POINTER FOR PHIOUT DATA\r\nC\r\nC     STAGE 1 -  INITIALIZATION\r\nC     =========================\r\nC\r\nCWKBNB 3/95 SPR94017\r\n      DO 5 I = 1,6\r\n      EPSAVG( I ) = 0.\r\n5     CONTINUE\r\nCWKBNE 3/95 SPR94017\r\n      NSTOT = 1 + 5 + 5*2*8\r\n      NFORCE= 1 + 5*9\r\n      NNODE = 0\r\n      DO 10 ICHK = 1,8\r\n      IF (KSIL(ICHK) .GT. 0) NNODE = NNODE + 1\r\n   10 EXTRNL(ICHK) = 0\r\n      NDOF = 6*NNODE\r\n      FOUR = NNODE .EQ. 4\r\nC\r\nC     COMMENTS FROM G.C. 2/1990\r\nC     EXTRNL ARE SET TO ZEROS ABOVE AND NEVER SET TO ANY VALUE LATER.\r\nC     IT IS THEN USED TO SET IGRID. WHAT'S EXTRNL FOR?\r\nC     THE ANSWER IS THAT EXTRNL AND IGRID ARE USED ONLY WHEN GRIDS FLAG\r\nC     IS TRUE. GRIDS IS FALSE IN COSMIC VERSION.\r\nC\r\nC     ALSO, A MISSING ROUTINE, FNDGID, SUPPOSELY RETURNS EXTERNAL GRID\r\nC     NUMBER FROM SIL INDEX. FNDGID IS LOCATED A FEW LINES BELOW 80\r\nC\r\nC     CHECK THE OUTPUT AND STRESS REQUEST\r\nC\r\n      GRIDS = .FALSE.\r\n      INTGS = .TRUE.\r\n      MAXSH = ANDF(NSTROP,1) .EQ. 0\r\n      VONMS = ANDF(NSTROP,1) .NE. 0\r\n      EXTRM = ANDF(NSTROP,2) .EQ. 0\r\n      LAYER = ANDF(NSTROP,2) .NE. 0\r\n      BENDNG= MOMINR .GT. 0.0\r\nC\r\nC     NOTE - MAXSH AND EXTRM ARE NO LONGER USED\r\nC\r\nC     IF LAYERED STRESS/STARIN OUTPUT IS REQUESTED, AND THERE ARE NO\r\nC     LAYERED COMPOSITE DATA, SET LAYER FLAG TO FALSE\r\nC\r\n      IF (LAYER .AND. NPCMP+NPCMP1+NPCMP2.LE.0) LAYER = .FALSE.\r\nC\r\nC     IF LAYERED OUTPUT IS REQUESTED BUT THE CURRENT ELEMENT IS NOT A\r\nC     LAYERED COMPOSITE, SET LAYER FLAG TO FALSE\r\nC\r\n      IF (LAYER .AND. IPID.LT.0) LAYER = .FALSE.\r\nC\r\nCWKBDB 3/95 SPR94017\r\nC      OPRQST = -2\r\nC      IF (KSTRS  .EQ. 1) OPRQST = OPRQST + 1\r\nC      IF (KFORCE .EQ. 1) OPRQST = OPRQST + 2\r\nCWKBI NCL93012 3/94\r\nC      IF ( OSTRAI ) OPRQST = OPRQST + 1\r\nC      IF (OPRQST .EQ.-2) RETURN\r\nCWKBDE 3/95 SPR94017\r\nCWKBI  3/95 SPR94017\r\n      IF ( ( KSTRS  .NE. 1 ) .AND. \r\n     &     ( KFORCE .NE. 1 ) .AND. \r\n     &     (.NOT.OSTRAI)          )RETURN\r\nC\r\nC     CHECK FOR FIBRE DISTANCES Z1 AND Z2 BEING BLANK\r\nC\r\n      LOGZ12 = -4\r\n      IF (NPHI(19) .EQ. 0) LOGZ12 = LOGZ12 + 2\r\n      IF (NPHI(20) .EQ. 0) LOGZ12 = LOGZ12 + 4\r\nC\r\nC     CHECK FOR THE TYPE OF TEMPERATURE DATA\r\nC     NOTES  1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3\r\nC            2- IF NIETHER TYPE IS TRUE, GRID POINT TEMPERATURES\r\nC               ARE PRESENT.\r\nC\r\n      TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ.  2\r\nC\r\nC     CHECK FOR OFFSET AND COMPOSITES\r\nC\r\n      OFFSET = PHIOUT(78)\r\n      COMPOS = COMPS.EQ.-1 .AND. IPID.GT.0\r\nC\r\nC     ZERO OUT STRESS AND FORCE RESULTANT ARRAYS\r\nC\r\n      DO 20 K = 1,NSTOT\r\n   20 STRES(K) = 0.0\r\n      DO 30 I = 1,NFORCE\r\n   30 FORSUL(I)= 0.0\r\n      NSTRES(1)= ELID\r\n      NFORS(1) = ELID\r\nC\r\nC     ZERO OUT THE COPY OF GBAR-MATRIX TO BE USED BY THIS ROUTINE\r\nC\r\n      DO 40 K = 1,36\r\n   40 GT(K) = 0.0\r\nC\r\nC     STAGE 2 - ARRANGEMENT OF INCOMING DATA\r\nC     ======================================\r\nC\r\nC     SORT THE GRID TEMPERATURE CHANGES INTO SIL ORDER (IF PRESENT)\r\nC\r\n      IF (LDTEMP .EQ.     -1) GO TO 60\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 60\r\nC\r\nC     DO 50 K = 1,NNODE\r\nC     KPOINT = IORDER(K)\r\nC  50 DELTAT(K) = STEMP(KPOINT)\r\nC\r\nC     COMMENTS FORM G.CHAN/UNISYS  2/93\r\nC     THE ABOVE DO 50 LOOP DOES NOT WORK SINCE STEMP(2 THRU NNODE) = 0.0\r\nC\r\n      DO 50 K = 1,NNODE\r\n   50 DELTAT(K) = STEMP(1)\r\nC\r\nC     PICK UP THE GLOBAL DISPLACEMENT VECTOR AND TRANSFORM IT\r\nC     INTO THE ELEMENT C.S.\r\nC\r\n   60 DO 80 IDELT = 1,NNODE\r\n      JDELT = IVEC + KSIL(IDELT) - 2\r\n      KDELT = 6*(IDELT-1)\r\n      DO 70 LDELT = 1,6\r\n      TDELTA(LDELT) = Z(JDELT+LDELT)\r\n   70 CONTINUE\r\nC\r\nC     FETCH TEG-MATRIX 3X3 FOR EACH NODE AND LOAD IT IN A 6X6 MATRIX\r\nC     INCLUDE THE EFFECTS OF OFFSET\r\nC\r\n      CALL TLDRS  (OFFSET,IDELT,PHIOUT(80),U)\r\n      CALL GMMATS (U,6,6,0, TDELTA,6,1,0, DELTA(KDELT+1))\r\n   80 CONTINUE\r\nC\r\nC     GET THE EXTERNAL GRID POINT ID NUMBERS FOR CORRESPONDING SIL\r\nC     NUMBERS.\r\nC\r\nC     CALL FNDGID (ELID,8,KSIL,EXTRNL)\r\nC\r\nC     STAGE 3 - CALCULATION OF STRAINS\r\nC     ================================\r\nC\r\nC     INTEGRATION DATA IN PHIOUT IS ARRANGED IN ETA, XI INCREASING\r\nC     SEQUENCE.\r\nC\r\n      ISIG  = 1\r\n      ICOUNT= -(8*NDOF+NNODE+32) + 79 + 9*NNODE\r\nC\r\n      DO 350 INPLAN = 1,5\r\n      INPLN1 = IPN(INPLAN)\r\nC\r\nC     MATCH GRID ID NUMBER WHICH IS IN SIL ORDER\r\nC\r\n      IF (INPLAN .EQ. 5) GO TO 100\r\n      DO 90 I = 1,NNODE\r\n      IF (IORDER(I) .NE. INPLN1) GO TO 90\r\n      IGRID(INPLAN) = EXTRNL(I)\r\n      GO TO 110\r\n   90 CONTINUE\r\n      GO TO 110\r\nC\r\n  100 IGRID(INPLAN) = CENTER\r\n  110 CONTINUE\r\nC\r\n      DO 340 IZTA = 1,2\r\n      ZETA = (IZTA*2-3)*CONST\r\nC\r\n      ICOUNT = ICOUNT + 8*NDOF + NNODE + 32\r\n      IF (IZTA .EQ. 2) GO TO 160\r\nC\r\nC     THICKNESS AND MOMENT OF INERTIA AT THIS POINT\r\nC\r\n      THIKNS(INPLAN) = PHIOUT(ICOUNT+1)\r\n      IF (GRIDS .AND. INPLAN.NE.5) THIKNS(INPLAN) = GPTH(INPLN1)\r\n      REALI(INPLAN) = MOMINR*THIKNS(INPLAN)**3/12.0\r\nC\r\nC     DETERMINE FIBER DISTANCE VALUES\r\nC\r\n      IF (LOGZ12 .EQ. -4) GO TO 150\r\n      IF (LOGZ12) 120,130,140\r\nC\r\n  120 Z1(INPLAN) = -0.5*THIKNS(INPLAN)\r\n      Z2(INPLAN) = PHIOUT(20)\r\n      GO TO 160\r\nC\r\n  130 Z1(INPLAN) = PHIOUT(19)\r\n      Z2(INPLAN) = 0.5*THIKNS(INPLAN)\r\n      GO TO 160\r\nC\r\n  140 Z1(INPLAN) = -0.5*THIKNS(INPLAN)\r\n      Z2(INPLAN) = -Z1(INPLAN)\r\n      GO TO 160\r\nC\r\n  150 Z1(INPLAN) = PHIOUT(19)\r\n      Z2(INPLAN) = PHIOUT(20)\r\n  160 CONTINUE\r\nC\r\nC     FIRST COMPUTE LOCAL STRAINS UNCORRECTED FOR THERMAL STRAINS\r\nC     AT THIS EVALUATION POINT.\r\nC\r\nC        EPSLN  = PHIOUT(KSIG) * DELTA\r\nC          EPS  =       B      *   U\r\nC          8X1        8XNDOF    NDOFX1\r\nC\r\n      KSIG = ICOUNT+NNODE+33\r\n      CALL GMMATS (PHIOUT(KSIG),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN)\r\nC\r\nC     CALCULATE THERMAL STRAINS IF TEMPERATURES ARE PRESENT\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 260\r\n      DO 170 IET = 1,6\r\n  170 EPSLNT(IET) = 0.0\r\nC\r\nC     A) MEMBRANE STRAINS\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 190\r\nC\r\nC     GRID TEMPERATURES\r\nC\r\n      KSHP = ICOUNT + 32\r\n      TBAR = 0.0\r\n      DO 180 ISH = 1,NNODE\r\n      KSH  = KSHP + ISH\r\n  180 TBAR = TBAR + PHIOUT(KSH)*DELTAT(ISH)\r\n      TMEAN= TBAR\r\n      GO TO 200\r\nC\r\nC     ELEMENT TEMPERATURES\r\nC\r\n  190 TBAR = STEMP(1)\r\n  200 TBAR = TBAR - TSUB0\r\n      DO 210 IEPS = 1,3\r\n  210 EPSLNT(IEPS) = -TBAR*ALFAM(IEPS)\r\nC\r\nC     B) BENDING STRAINS (ELEMENT TEMPERATURES ONLY)\r\nC\r\n      IF (.NOT.BENDNG) GO TO 260\r\n      IF (.NOT.(TEMPP1 .OR. TEMPP2)) GO TO 260\r\nC\r\nC     EXTRACT G2-MATRIX FROM GBAR-MATRIX AND CORRECT IT FOR COUPLING\r\nC\r\n      IG21 = 0\r\n      DO 220 IG2 = 1,3\r\n      IG22 = (IG2-1)*6 + 21\r\n      DO 220 JG2 = 1,3\r\n      IG21 = IG21 + 1\r\n      JG22 = JG2  + IG22\r\n  220 G2(IG21) = G(JG22) + PHIOUT(ICOUNT+10+IG21)\r\nC\r\n      IG2AB = (ISIG*3)/5 + 1\r\n      CALL GMMATS (G2,3,3,0, ALFAB,3,1,0, G2ALFB(IG2AB))\r\nC\r\n      IF (TEMPP1) GO TO 240\r\n      CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2)\r\n      CALL GMMATS (G2,3,3,0, STEMP(2),3,1,0, KHIT)\r\n      DO 230 IEPS = 4,6\r\n  230 EPSLNT(IEPS) = KHIT(IEPS-3)*ZETA*THIKNS(INPLAN)/(2.*REALI(INPLAN))\r\n      GO TO 260\r\nC\r\n  240 TPRIME = STEMP(2)\r\n      DO 250 IEPS = 4,6\r\n  250 EPSLNT(IEPS) = -TPRIME*ALFAB(IEPS-3)*ZETA*THIKNS(INPLAN)/2.\r\nC\r\nC     MODIFY GBAR-MATRIX\r\nC\r\n  260 I1 = -6\r\n      I2 = 12\r\n      I3 = 11 + ICOUNT\r\n      DO 270 I = 1,3\r\n      I1 = I1 + 6\r\n      I2 = I2 + 6\r\n      DO 270 J = 1,3\r\n      J1 = J  + I1\r\n      J3 = J1 + 3\r\n      J4 = J  + I2\r\n      J2 = J4 + 3\r\n      GT(J1) = G(J1)\r\n      GT(J2) = G(J2)\r\n      GT(J3) = G(J3) + PHIOUT(I3)\r\n      GT(J4) = G(J4) + PHIOUT(I3)\r\n  270 I3 = I3 + 1\r\nC\r\nC     DETERMINE G MATRIX FOR THIS EVALUATION POINT\r\nC\r\n      DO 280 I = 1,4\r\n  280 G3(I) = PHIOUT(ICOUNT+28+I)\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 300\r\nC\r\nC     CORRECT STRAINS FOR THERMAL EFFECTS\r\nC\r\n      DO 290 I = 1,6\r\n  290 EPSLN(I) = EPSLN(I) + EPSLNT(I)\r\nC\r\nC     CALCULATE STRESS VECTOR\r\nC\r\n  300 CALL GMMATS (GT(1),6,6,0, EPSLN(1),6,1,0, TSIGMA(1))\r\n      CALL GMMATS (G3(1),2,2,0, EPSLN(7),2,1,0, TSIGMA(7))\r\nCWKBNB NCL93012 3/94\r\n      IF ( IZTA .NE. 1 ) GO TO 303\r\n      DO 301 IAV = 1, 3\r\n      EPSAVG(IAV) = EPSAVG(IAV) + EPSLN(IAV)\r\n301   CONTINUE\r\n      DO 302 IAV = 4, 6\r\n      EPSAVG(IAV) = EPSAVG(IAV) + EPSLN(IAV) / CONST\r\n302   CONTINUE\r\n303   CONTINUE\r\nCWKBNE NCL93012 3/94\r\n      IF (.NOT.BENDNG) GO TO 320\r\nC\r\nC     COMBINE STRESSES ONLY IF 'BENDING'\r\nC\r\n      DO 310 I = 1,3\r\n  310 TSIGMA(I) = TSIGMA(I+3)\r\nC\r\n  320 CONTINUE\r\nC\r\nC     TRANSFORM STRESSES FROM ELEMENT TO STRESS C.S.\r\nC\r\n      DO 330 I = 1,9\r\n  330 TES(I) = PHIOUT(ICOUNT+1+I)\r\nC\r\n      TESU(1) = TES(1)*TES(1)\r\n      TESU(2) = TES(4)*TES(4)\r\n      TESU(3) = TES(1)*TES(4)\r\n      TESU(4) = TES(2)*TES(2)\r\n      TESU(5) = TES(5)*TES(5)\r\n      TESU(6) = TES(2)*TES(5)\r\n      TESU(7) = TES(1)*TES(2)*2.0\r\n      TESU(8) = TES(4)*TES(5)*2.0\r\n      TESU(9) = TES(1)*TES(5) + TES(2)*TES(4)\r\nC\r\n      CALL GMMATS (TESU(1),3,3,1, TSIGMA(1),3,1,0, TSTR(ISIG))\r\nC\r\n      TESV(1) = TES(5)*TES(9) + TES(6)*TES(8)\r\n      TESV(2) = TES(2)*TES(9) + TES(8)*TES(3)\r\n      TESV(3) = TES(4)*TES(9) + TES(7)*TES(6)\r\n      TESV(4) = TES(1)*TES(9) + TES(3)*TES(7)\r\nC\r\n      ISIG = ISIG + 3\r\n      CALL GMMATS (TESV(1),2,2,1, TSIGMA(7),2,1,0, TSTR(ISIG))\r\nC\r\n  340 ISIG = ISIG + 2\r\n  350 CONTINUE\r\nC\r\nC     IF REQUIRED, EXTRAPOLATE STRESSES FROM INTEGRATION POINTS\r\nC     TO CORNER POINTS.\r\nC\r\nC     FIRST EXTRAPOLATE ACROSS ZETA, REGARDLESS OF INPLANE REQUEST\r\nC\r\n      DO 370 IKK = 1,5\r\n      ITB = (IKK-1)*10\r\n      DO 360 IJJ = 1,5\r\n      TSTB(IKK,IJJ) = TSTR(ITB+  IJJ)\r\n      TSTT(IKK,IJJ) = TSTR(ITB+5+IJJ)\r\n  360 CONTINUE\r\n  370 CONTINUE\r\nC\r\n      X1 = -CONST\r\n      X2 = -X1\r\nC\r\n      DO 380 K = 1,2\r\n      IK = 0\r\n      XX = -1.0\r\n      IF (K .EQ. 2) XX =-XX\r\n      IF (K .EQ. 2) IK = 5\r\nC\r\n      XN22 = (XX-X1)/(X2-X1)\r\n      XN11 = 1.0 - XN22\r\nC\r\n      DO 380 I = 1,5\r\n      IKKN = (I-1)*10 + IK\r\n      DO 380 J = 1,5\r\n  380 TSTN(IKKN+J) = TSTB(I,J)*XN11 + TSTT(I,J)*XN22\r\nC\r\n      DO 390 II = 1,50\r\n  390 TSTR(II) = TSTN(II)\r\nC\r\n      IF (INTGS .OR. COMPOS) GO TO 540\r\nC\r\n      IXTR = 5\r\n      JXTR = IXTR*4\r\nC\r\n      IZ1 = 0\r\n      DO 530 IZ = 1,2\r\nC\r\n      DO 400 I = 1,JXTR\r\n  400 TST(I) = 0.0\r\nC\r\nC     FOR THE SAKE OF COMPATIBILITY BETWEEN THE CONVENTION FOR\r\nC     SHEAR FORCES, AND THE CONVENTION FOR EXTRAPOLATION, WE MAY\r\nC     HAVE TO CHANGE THE SIGNS AROUND FOR SPECIFIC POINTS. THEY\r\nC     WILL BE RETURNED TO THE ORIGINAL SIGNS AFTER EXTRAPOLATION IS\r\nC     COMPLETE.\r\nC\r\nCWKBR 3/95 SPR94017      IF (OPRQST .LT. 0) GO TO 460\r\n      IF ( KFORCE .NE. 1 ) GO TO 460\r\n      DO 440 I = 1,4\r\n      J = (I-1)*2*IXTR + IZ1 + 4\r\n      IF (TSTR(J) .EQ. 0.0) GO TO 410\r\n      SIGNY(I) = TSTR(J)/ABS(TSTR(J))\r\n      GO TO 420\r\n  410 SIGNY(I) = 0.0\r\n  420 IF (TSTR(J+1) .EQ. 0.0) GO TO 430\r\n      SIGNX(I) = TSTR(J+1)/ABS(TSTR(J+1))\r\n      GO TO 440\r\n  430 SIGNX(I) = 0.0\r\n  440 CONTINUE\r\nC\r\n      SNRVRY = .FALSE.\r\n      IF (SIGNY(1)*SIGNY(2).LE.0.0 .OR. SIGNY(3)*SIGNY(4).LE.0.0 .OR.\r\n     1    SIGNY(3)*SIGNY(1).LE.0.0) SNRVRY = .TRUE.\r\n      SNRVRX = .FALSE.\r\n      IF (SIGNX(1)*SIGNX(2).LE.0.0 .OR. SIGNX(3)*SIGNX(4).LE.0.0 .OR.\r\n     1    SIGNX(3)*SIGNX(1).LE.0.0) SNRVRX = .TRUE.\r\nC\r\n      IF (.NOT.SNRVRY) GO TO 450\r\n      TSTR(IZ1+4) = -TSTR(IZ1+4)\r\n      TSTR(IZ1+4+4*IXTR) = -TSTR(IZ1+4+4*IXTR)\r\n  450 IF (.NOT.SNRVRX) GO TO 460\r\n      TSTR(IZ1+5) = -TSTR(IZ1+5)\r\n      TSTR(IZ1+5+2*IXTR) = -TSTR(IZ1+5+2*IXTR)\r\n  460 CONTINUE\r\nC\r\n      XPOINT(1) = -1.0\r\n      XPOINT(2) = +1.0\r\n      IR = 0\r\nC\r\n      DO 490 IX = 1,2\r\n      XI = XPOINT(IX)\r\nC\r\n      DO 490 IE = 1,2\r\n      ETA = XPOINT(IE)\r\nC\r\n      SHPFNC(1) = 0.75*(CONST-XI)*(CONST-ETA)\r\n      SHPFNC(2) = 0.75*(CONST-XI)*(CONST+ETA)\r\n      SHPFNC(3) = 0.75*(CONST+XI)*(CONST-ETA)\r\n      SHPFNC(4) = 0.75*(CONST+XI)*(CONST+ETA)\r\nC\r\n      LI = IR*IXTR\r\n      IR = IR + 1\r\nC\r\n      DO 480 IS = 1,4\r\n      LK = (IS-1)*2*IXTR + IZ1\r\nC\r\n      DO 470 IT = 1,IXTR\r\n      TST(LI+IT) = TST(LI+IT) + SHPFNC(IS)*TSTR(LK+IT)\r\n  470 CONTINUE\r\n  480 CONTINUE\r\n  490 CONTINUE\r\nC\r\n      J1 = 0\r\n      DO 500 IS = 1,4\r\n      J2 = (IS-1)*2*IXTR + IZ1\r\n      DO 500 JS = 1,IXTR\r\n      J1 = J1 + 1\r\n      J2 = J2 + 1\r\n  500 TSTR(J2) = TST(J1)\r\nC\r\nC     CHANGE THE SIGNS BACK, IF NECESSARY\r\nC\r\nCWKBR 3/95 SPR94017     IF (OPRQST .LT. 0) GO TO 520\r\n      IF ( KFORCE .NE. 1 ) GO TO 520\r\n      IF (.NOT.SNRVRY) GO TO 510\r\n      TSTR(IZ1+4) = -TSTR(IZ1+4)\r\n      TSTR(IZ1+4+4*IXTR) = -TSTR(IZ1+4+4*IXTR)\r\n  510 IF (.NOT.SNRVRX) GO TO 520\r\n      TSTR(IZ1+5) = -TSTR(IZ1+5)\r\n      TSTR(IZ1+5+2*IXTR) = -TSTR(IZ1+5+2*IXTR)\r\n  520 CONTINUE\r\n  530 IZ1 = IZ1 + IXTR\r\n  540 CONTINUE\r\nC\r\nC     STAGE 4 - CALCULATION OF OUTPUT STRESSES\r\nC     ========================================\r\nC\r\nCWKBR 3/95 SPR94017     IF (OPRQST .EQ. 0) GO TO 740  \r\n      IF ( (KSTRS .NE. 1) .AND. (.NOT. OSTRAI) ) GO TO 740  \r\nC\r\nCWKBNB NCL93012 3/94\r\n      DO 731 IAV = 1, 3\r\n      EPSAVG(IAV) = EPSAVG(IAV) / 5.\r\n731   CONTINUE\r\n      DO 732 IAV = 4, 6\r\n      EPSAVG(IAV) = EPSAVG(IAV) / ( 5. * PHIOUT(21)/2. )\r\n732   CONTINUE\r\nCWKBNE NCL93012 3/94\r\n      ISIG    = 0\r\n      IG2A    = 0\r\n      STRX(1) = 0.0\r\n      STRX(2) = 0.0\r\n      STRY(1) = 0.0\r\n      STRY(2) = 0.0\r\n      STRS(1) = 0.0\r\n      STRS(2) = 0.0\r\n      DO 730 INPLAN = 1,5\r\n      INPLN1 = INPLAN\r\n      IF (INPLAN .EQ. 2) INPLN1 = 4\r\n      IF (INPLAN .EQ. 3) INPLN1 = 2\r\n      IF (INPLAN .EQ. 4) INPLN1 = 3\r\nC\r\n      ISTRES = (INPLN1-1)*17 + 2\r\nC\r\n      IDPONT = IGRID(INPLAN)\r\n      IF (INTGS) IDPONT = INPLN1\r\n      IF (INTGS .AND. INPLAN.EQ.5) IDPONT = CENTER\r\n      NSTRES(ISTRES) = IDPONT\r\n      THICK = THIKNS(INPLAN)\r\nC\r\n      DO 720 IZ = 1,2\r\n      IF (IZ .EQ. 2) ISTRES = ISTRES + 8\r\n      FIBRE = Z1(INPLAN)\r\n      IF (IZ .EQ. 2) FIBRE = Z2(INPLAN)\r\nCWKBNB NCL93012 3/94\r\n      IF ( .NOT. OSTRAI ) GO TO 545\r\n      IF ( IZ .NE. 1 ) GO TO 542\r\n      NSTRES( ISTRES+1 ) = 0\r\n      SIGMA( 1 ) = EPSAVG( 1 )\r\n      SIGMA( 2 ) = EPSAVG( 2 )\r\n      SIGMA( 3 ) = EPSAVG( 3 )\r\n      GO TO 630\r\n542   CONTINUE\r\n      NSTRES( ISTRES+1 ) = -1\r\n      SIGMA( 1 ) = EPSAVG( 4 )\r\n      SIGMA( 2 ) = EPSAVG( 5 )\r\n      SIGMA( 3 ) = EPSAVG( 6 )\r\n      GO TO 630\r\n545   CONTINUE\r\nCWKBNE NCL93012 3/94\r\n      STRES(ISTRES+1) = FIBRE\r\nC\r\nC     EVALUATE STRESSES AT THIS FIBRE DISTANCE\r\nC\r\n      DO 550 I = 1,3\r\n      SIGMA(I) = (0.5-FIBRE/THICK)*TSTR(ISIG+I) + (0.5+FIBRE/THICK)\r\n     1           *TSTR(ISIG+I+5)\r\n  550 CONTINUE\r\nC\r\nC     IF TEMPERATURES ARE PRESENT, CORRECT STRESSES FOR THERMAL\r\nC     STRESSES ASSOCIATED WITH THE DATA RELATED TO FIBRE DISTANCES.\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 610\r\nC\r\nC     IF NO BENDING, TREAT IT LIKE GRID POINT TEMPERATURES\r\nC\r\n      IF (.NOT.BENDNG) GO TO 610\r\n      IF (TEMPP1) GO TO 560\r\n      IF (TEMPP2) GO TO 570\r\n      GO TO 610\r\nC\r\n  560 TSUBI = STEMP(2+IZ)\r\n      IF (ABS(TSUBI) .LT. EPSS) GO TO 610\r\n      TSUBI = TSUBI - TPRIME*FIBRE\r\n      GO TO 590\r\nC\r\n  570 TSUBI = STEMP(4+IZ)\r\n      IF (ABS(TSUBI) .LT. EPSS) GO TO 610\r\n      DO 580 IST = 1,3\r\n  580 SIGMA(IST) = SIGMA(IST) - STEMP(IST+1)*FIBRE/REALI(INPLAN)\r\n  590 TSUBI = TSUBI - TBAR\r\n      DO 600 ITS = 1,3\r\n      SIGMA(ITS) = SIGMA(ITS) - TSUBI*G2ALFB(IG2A+ITS)\r\n  600 CONTINUE\r\nC\r\nC     AVERAGE THE VALUES FROM OTHER 4 POINTS FOR THE CENTER POINT\r\nC\r\n  610 IF (INPLAN .EQ. 5) GO TO 620\r\n      STRX(IZ) = STRX(IZ) + 0.25*SIGMA(1)\r\n      STRY(IZ) = STRY(IZ) + 0.25*SIGMA(2)\r\n      STRS(IZ) = STRS(IZ) + 0.25*SIGMA(3)\r\n      GO TO 630\r\n  620 SIGMA(1) = STRX(IZ)\r\n      SIGMA(2) = STRY(IZ)\r\n      SIGMA(3) = STRS(IZ)\r\n  630 DO 640 IS = 1,3\r\n  640 STRES(ISTRES+1+IS) = SIGMA(IS)\r\nC\r\nC     CALCULATE PRINCIPAL STRESSES\r\nC\r\n      SIGAVG = 0.5*(SIGMA(1) + SIGMA(2))\r\n      PROJ   = 0.5*(SIGMA(1) - SIGMA(2))\r\n      TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)\r\nCWKBNB 7/94 SPR94004\r\n      IF ( .NOT. OSTRAI ) GO TO 645\r\n      TAUMAX = PROJ*PROJ + SIGMA(3)*SIGMA(3)/4.\r\n      GO TO 649\r\n645   CONTINUE\r\nCWKBNE 7/94 SPR94004\r\n      IF (ABS(TAUMAX) .LE. EPSS) GO TO 650\r\nCWKBI  7/94 SPR94004\r\n649   CONTINUE\r\n      TAUMAX = SQRT(TAUMAX)\r\n      GO TO 660\r\n  650 TAUMAX = 0.0\r\nC\r\nC     PRINCIPAL ANGLE\r\nC\r\n  660 TXY2 = SIGMA(3)*2.0\r\n      PROJ = PROJ*2.0\r\n      IF (ABS(TXY2).LE.EPSA .AND. ABS(PROJ).LE.EPSA) GO TO 670\r\n      STRES(ISTRES+5) = 28.647890*ATAN2(TXY2,PROJ)\r\n      GO TO 680\r\n  670 STRES(ISTRES+5) = 0.0\r\n  680 SIGMA1 = SIGAVG + TAUMAX\r\n      SIGMA2 = SIGAVG - TAUMAX\r\n      STRES(ISTRES+6) = SIGMA1\r\n      STRES(ISTRES+7) = SIGMA2\r\nC\r\nC     OUTPUT VON MISES YIELD STRESS IF ASKED FOR BY THE USER\r\nC\r\n      IF (VONMS) GO TO 690\r\n      STRES(ISTRES+8) = TAUMAX\r\nCWKBI NCL93012 3/94\r\n      IF ( OSTRAI ) STRES(ISTRES+8) = 2.*TAUMAX\r\n      GO TO 720\r\nC\r\n  690 SIGYP = SIGMA1*SIGMA1 + SIGMA2*SIGMA2 - SIGMA1*SIGMA2\r\n      IF (ABS(SIGYP) .LE. EPSS) GO TO 700\r\n      SIGYP = SQRT(SIGYP)\r\n      GO TO 710\r\n  700 SIGYP = 0.0\r\n  710 STRES(ISTRES+8) = SIGYP\r\nC\r\n  720 IG2A = IG2A + 3\r\n  730 ISIG = ISIG + 10\r\nCWKBNB NCL93012 3/94\r\n      DO 733 IAV = 1, 6\r\n      EPSAVG( IAV ) = 0.\r\n733   CONTINUE\r\nCWKBNE NCL93012 3/94\r\nC\r\nC     STAGE 5 - ELEMENT FORCE OUTPUT\r\nC     ==============================\r\nC\r\n  740 IF (LAYER) GO TO 750\r\nCWKBR 3/95 SPR94017     IF (OPRQST .LT. 0) GO TO 790\r\n      IF ( KFORCE .NE. 1 ) GO TO 790\r\nC\r\n  750 CONTINUE\r\n      ISIG   = 0\r\n      VXCNTR = 0.0\r\n      VYCNTR = 0.0\r\n      FXCNTR = 0.0\r\n      FYCNTR = 0.0\r\n      FXYCNT = 0.0\r\n      DO 780 INPLAN = 1,5\r\n      INPLN1 = INPLAN\r\n      IF (INPLAN .EQ. 2) INPLN1 = 4\r\n      IF (INPLAN .EQ. 3) INPLN1 = 2\r\n      IF (INPLAN .EQ. 4) INPLN1 = 3\r\n      THICK = THIKNS(INPLAN)\r\nC\r\n      IFORCE = (INPLN1-1)*9 + 2\r\nC\r\n      IDPONT = IGRID(INPLAN)\r\n      IF (INTGS) IDPONT = INPLN1\r\n      IF (INTGS .AND. INPLAN.EQ.5) IDPONT = CENTER\r\n      NFORS(IFORCE) = IDPONT\r\nC\r\nC     CALCULATE FORCES AT MID-SURFACE LEVEL\r\nC\r\n      DO 760 IFOR = 1,3\r\n      FORSUL(IFORCE+IFOR  )=(TSTR(ISIG+IFOR)+TSTR(ISIG+IFOR+5))*THICK/2.\r\n      FORSUL(IFORCE+IFOR+3)=(TSTR(ISIG+IFOR)-TSTR(ISIG+IFOR+5))*\r\n     1                       REALI(INPLAN)/THICK\r\n  760 CONTINUE\r\nC\r\nC     INTERCHANGE 7 AND 8 POSITIONS TO BE COMPATIBLE WITH THE\r\nC     OUTPUT FORMAT OF VX AND VY (WE HAVE CALCULATED VY AND VX)\r\nC\r\n      IF (INPLAN .EQ. 5) GO TO 770\r\n      FORSUL(IFORCE+7) = (TSTR(ISIG+5) + TSTR(ISIG+10))*THICK*0.5\r\n      FORSUL(IFORCE+8) = (TSTR(ISIG+4) + TSTR(ISIG+ 9))*THICK*0.5\r\nC\r\nC     SUBSTITUTE THE AVERAGE OF CORNER (OR INTEGRATION) POINT\r\nC     MEMBRANE AND SHEAR FORCES FOR THE CENTER POINT\r\nC\r\n      FXCNTR = FXCNTR + FORSUL(IFORCE+1)*0.25\r\n      FYCNTR = FYCNTR + FORSUL(IFORCE+2)*0.25\r\n      FXYCNT = FXYCNT + FORSUL(IFORCE+3)*0.25\r\n      VXCNTR = VXCNTR + FORSUL(IFORCE+7)*0.25\r\n      VYCNTR = VYCNTR + FORSUL(IFORCE+8)*0.25\r\n      GO TO 780\r\n  770 CONTINUE\r\n      FORSUL(IFORCE+1) = FXCNTR\r\n      FORSUL(IFORCE+2) = FYCNTR\r\n      FORSUL(IFORCE+3) = FXYCNT\r\n      FORSUL(IFORCE+7) = VXCNTR\r\n      FORSUL(IFORCE+8) = VYCNTR\r\nC\r\n  780 ISIG = ISIG + 10\r\nC\r\nC     DO NOT WRITE TO PHIOUT IF LAYER STRESSES ARE REQUESTED\r\nC     BECAUSE PHIOUT NEEDS TO BE INTACT\r\n      IF (LAYER) GO TO 900\r\nC\r\nC     STAGE 7 - SHIPPING OF NORMAL STRESSES\r\nC     =====================================\r\nC\r\nC     STORE THE STRESSES WHERE THE HIGHER LEVEL ROUTINES EXPECT\r\nC     TO FIND THEM.\r\nC     BUT FIRST, MOVE THE CENTER POINT STRESSES TO THE TOP.\r\nC\r\nCWKBR 3/95 SPR94017     IF (OPRQST .EQ. 0) GO TO 840     \r\n      IF ( (KSTRS .NE. 1) .AND. (.NOT.OSTRAI) ) GO TO 840     \r\n  790 NPHI(101) = NSTRES(1)\r\n      DO 800 I = 3,18\r\n      I99 = I + 99\r\n  800 NPHI(I99) = NSTRES(I+68)\r\nC\r\nC     DEBUG PRINTOUT\r\nC\r\n      IF (DEBUG) WRITE (NOUT,810) (STRES(I),I=71,86)\r\n  810 FORMAT (' SQUD42 - STRESSES', (/1X,8E13.5))\r\nC\r\n      DO 830 I = 19,86\r\n      I99 = I + 99\r\n  830 NPHI(I99) = NSTRES(I-17)\r\nC\r\nC     STORE FORCES IN THEIR APPROPRIATE LOCATION\r\nC\r\nCWKBR 3/95 SPR94017     IF (OPRQST .LT. 0) RETURN\r\n      IF ( KFORCE .NE. 1 ) RETURN\r\n  840 NPHI(201) = NFORS(1)\r\n      DO 850 I = 3,10\r\n      I199 = I + 199\r\n  850 NPHI(I199) = NFORS(I+36)\r\nC\r\nC     DEBUG PRINTOUT\r\nC\r\n      IF (DEBUG) WRITE (NOUT,860) (FORSUL(I),I=39,46)\r\n  860 FORMAT (' SQUD42 - FORCES', (/1X,8E13.5))\r\nC\r\n      DO 870 I = 11,46\r\n      I199 = I + 199\r\n  870 NPHI(I199) = NFORS(I-9)\r\nC\r\nC     PROCESSING FOR NORMAL STRESS REQUEST COMPLETED\r\nC\r\n      GO TO 2100\r\nC\r\nC     ELEMENT LAYER STRESS CALCULATION\r\nC\r\nC     CHECK STRESS AND FORCE OUTPUT REQUEST\r\nC\r\n  900 IF ((KFORCE.NE.0 .OR. KSTRS.NE.0) .AND. .NOT.COMPOS) GO TO 2220\r\nC\r\nC     WRITE FORCE RESULTANTS TO OEF1L IF REQUESTED\r\nC         1.    10*ELEMENT ID + DEVICE CODE (FDEST)\r\nC        2-9.   FORCE RESULTANTS\r\nC               FX, FY, FXY, MX, MY, MXY, VX, VY\r\nC\r\n      IF (KFORCE .EQ.  0) GO TO 910\r\n      ELEMID = 10*ELID + FDEST\r\n      IF (LDTEMP .NE. -1) GO TO 910\r\n      CALL WRITE (OEF1L,ELEMID,1,0)\r\n      CALL WRITE (OEF1L,FORSUL(39),8,0)\r\nC\r\n  910 IF (KSTRS.EQ.0 .AND. LDTEMP.EQ.-1) RETURN\r\n      ELEMID = 10*ELID + SDEST\r\nC\r\nC     LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH\r\nC     OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE\r\nC     THE TYPE OF 'PCOMP' BULK DATA ENTRY.\r\nC\r\nC     SET POINTER LPCOMP\r\nC\r\n      LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2\r\nC\r\nC\r\nC     POINTER DESCRIPITION\r\nC     --------------------\r\nC     IPCMP  - LOCATION OF START OF PCOMP DATA IN CORE\r\nC     NPCMP  - NUMBER OF WORDS OF PCOMP DATA\r\nC     IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE\r\nC     NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA\r\nC     IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE\r\nC     NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA\r\nC\r\nC     ITYPE  - TYPE OF PCOMP BULK DATA ENTRY\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = SYM  (SYMMETRIC)\r\nC            = MEM  (MEMBRANE )\r\nC            = SYMMEM  (SYMMETRIC-MEMBRANE)\r\nC\r\nC     FTHR   - FAILURE THEORY\r\nC            = 1    HILL\r\nC            = 2    HOFFMAN\r\nC            = 3    TSAI-WU\r\nC            = 4    MAX-STRESS\r\nC            = 5    MAX-STRAIN\r\nC\r\nC     ULTSTN - ULTIMATE STRENGTH VALUES\r\nC\r\nC     SET POINTERS\r\nC\r\n      ITYPE = -1\r\nC\r\n      PCMP  = .FALSE.\r\n      PCMP1 = .FALSE.\r\n      PCMP2 = .FALSE.\r\nC\r\n      PCMP  = NPCMP  .GT. 0\r\n      PCMP1 = NPCMP1 .GT. 0\r\n      PCMP2 = NPCMP2 .GT. 0\r\nC\r\nC     CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE\r\nC\r\n      IF (.NOT.PCMP .AND. .NOT.PCMP1 .AND. .NOT.PCMP2) GO TO 2200\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n      IF (.NOT.PCMP) GO TO 960\r\nC\r\n      IP = IPCMP\r\n      IF (INTZ(IP) .EQ. IPID) GO TO 950\r\n      IPC11 = IPCMP1 - 1\r\n      DO 930 IP = IPCMP,IPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 920\r\n      GO TO 930\r\n  920 IF (INTZ(IP+1) .EQ. IPID) GO TO 940\r\n  930 CONTINUE\r\n      GO TO 960\r\nC\r\n  940 IP = IP + 1\r\n  950 ITYPE = PCOMP\r\n      GO TO 1070\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  960 IF (.NOT.PCMP1) GO TO 1010\r\n      IP = IPCMP1\r\n      IF (INTZ(IP) .EQ. IPID) GO TO 1000\r\n      IPC21 = IPCMP2 - 1\r\n      DO 980 IP = IPCMP1,IPC21\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 970\r\n      GO TO 980\r\n  970 IF (INTZ(IP+1) .EQ. IPID) GO TO 990\r\n  980 CONTINUE\r\n      GO TO 1010\r\nC\r\n  990 IP = IP + 1\r\n 1000 ITYPE = PCOMP1\r\n      GO TO 1070\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n 1010 IF (.NOT.PCMP2) GO TO 1060\r\nC\r\n      IP = IPCMP2\r\n      IF (INTZ(IP) .EQ. IPID) GO TO 1050\r\n      LPC11 = LPCOMP - 1\r\n      DO 1030 IP = IPCMP2,LPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 1020\r\n      GO TO 1030\r\n 1020 IF (INTZ(IP+1) .EQ. IPID) GO TO 1040\r\n 1030 CONTINUE\r\n      GO TO 1060\r\nC\r\n 1040 IP = IP + 1\r\n 1050 ITYPE = PCOMP2\r\n      GO TO 1070\r\nC\r\nC     CHECK IF PID HAS NOT BEEN LOCATED\r\nC\r\n 1060 IF (ITYPE .EQ. -1) GO TO 2200\r\nC\r\nC     LOCATION OF PID\r\nC\r\n 1070 PIDLOC = IP\r\n      LAMOPT = INTZ(PIDLOC+8)\r\nC\r\nC     INTILIZE\r\nC\r\n      DO 1080 IR = 1,3\r\n      STRNT(IR) = 0.0\r\n      STRNB(IR) = 0.0\r\n 1080 CONTINUE\r\nC\r\nC     CALCULATION OF STRAINS\r\nC\r\nC     INTEGRATION DATA IN PHIOUT IS ARRANGED IN ETA,XI INCREASING\r\nC     SEQUENCE.\r\nC\r\n      ISIG   = 1\r\n      ICOUNT = -(8*NDOF+NNODE+32) + 79 + 9*NNODE\r\nC\r\n      DO 1200 INPLAN = 1,5\r\n      INPLN1 = IPN(INPLAN)\r\nC\r\nC     MATCH GRID ID NUMBER WHICH IS IN SIL ORDER\r\nC\r\n      IF (INPLAN .EQ. 5) GO TO 1100\r\n      DO 1090 I = 1,NNODE\r\n      IF (IORDER(I) .NE. INPLN1) GO TO 1090\r\n      IGRID(INPLAN) = EXTRNL(I)\r\n      GO TO 1110\r\n 1090 CONTINUE\r\n      GO TO 1110\r\nC\r\n 1100 IGRID(INPLAN) = CENTER\r\n 1110 CONTINUE\r\nC\r\n      DO 1190 IZTA = 1,2\r\n      ZETA = (IZTA*2-3)*CONST\r\nC\r\n      ICOUNT = ICOUNT + 8*NDOF + NNODE + 32\r\nC\r\nC     FIRST COMPUTE LOCAL STRAINS AT THIS EVALUATION POINT\r\nC\r\nC        EPSLN = PHIOUT(KSIG) * DELTA\r\nC          EPS =        B     *   U\r\nC          8X1        8XNDOF    NDOFX1\r\nC\r\n      KSIG = ICOUNT + NNODE + 33\r\n      CALL GMMATS (PHIOUT(KSIG),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN)\r\nC\r\nC     TRANSFORM THE STRAINS AT THIS EVALUATION POINT TO THE\r\nC     MATERIAL COORDINATE SYSTEM\r\nC\r\n      DO 1120 IR = 1,9\r\n 1120 TMI(IR) = PHIOUT(ICOUNT+19+IR)\r\nC\r\nC     TOTAL STRAIN AT EVALUATION POINT = MEMBRANE + BENDING\r\nC\r\n      DO 1130 IR = 1,3\r\n 1130 EPSTOT(IR) = EPSLN(IR) + EPSLN(IR+3)\r\nC\r\nC     GENERATE TRANS-MATRIX TO TRANSFORM STRAINS FROM I TO M SYSTEM\r\nC\r\n      TRANS(1)  = TMI(1)*TMI(1)\r\n      TRANS(2)  = TMI(2)*TMI(2)\r\n      TRANS(3)  = TMI(1)*TMI(2)\r\n      TRANS(4)  = TMI(4)*TMI(4)\r\n      TRANS(5)  = TMI(5)*TMI(5)\r\n      TRANS(6)  = TMI(4)*TMI(5)\r\n      TRANS(7)  = 2.0*TMI(1)*TMI(4)\r\n      TRANS(8)  = 2.0*TMI(2)*TMI(5)\r\n      TRANS(9)  = TMI(1)*TMI(5) + TMI(2)*TMI(4)\r\nC\r\nC     TRANSFORM TOTAL STRAINS\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, EPSTOT(1),3,1,0, EPSE(1))\r\nC\r\n      IF (INPLAN .EQ. 5) GO TO 1160\r\nC\r\nC     AVERAGE THE STRAIN VECTORS OF THE FOUR INTGS POINTS AT EACH\r\nC     LEVEL TO CALCULATE THE ELEMENT CENTRE STRAIN VECTOR FOR THE\r\nC     UPPER AND BOTTOM LEVELS.\r\nC\r\n      DO 1150 IR = 1,3\r\n      IF (IZTA .EQ. 2) GO TO 1140\r\n      STRNB(IR) = STRNB(IR) + 0.25*EPSE(IR)\r\n      GO TO 1150\r\n 1140 STRNT(IR) = STRNT(IR) + 0.25*EPSE(IR)\r\n 1150 CONTINUE\r\n      GO TO 1190\r\nC\r\nC     TOTAL STRAIN VECTORS AT ELEMENT CENTRE\r\nC\r\n 1160 DO 1180 IR = 1,3\r\n      IF (IZTA .EQ. 2) GO TO 1170\r\n      STRNBC(IR) = EPSE(IR)\r\n      GO TO 1180\r\n 1170 STRNTC(IR) = EPSE(IR)\r\n 1180 CONTINUE\r\nC\r\n 1190 CONTINUE\r\n 1200 CONTINUE\r\nC\r\nC     EXTRAPOLATE STRAINS ACROSS ZETA\r\nC\r\n      DO 1210 IR = 1,3\r\n      EPST(IR) = (STRNT(IR)-STRNB(IR))*(+1.0+CONST)/(2.0*CONST)\r\n     1         +  STRNB(IR)\r\n      EPSB(IR) = (STRNT(IR)-STRNB(IR))*(-1.0+CONST)/(2.0*CONST)\r\n     1         +  STRNB(IR)\r\n 1210 CONTINUE\r\nC\r\nC     CALCULATE LAYER STRESSES AND FAILURE INDICES (IF REQUESTED)\r\nC     AND WRITE TO THE OUTPUT FILE OES1L\r\nC         1.    10*ELEMENT ID + DEVICE CODE (SDEST)\r\nC         2.    NLAYER - NUMBER OF LAYERS FOR LAMINATE\r\nC         3.    TYPE OF FAILURE THEORY SELECTED\r\nC\r\nC         4.    PLY ID\r\nC       5,6,7.  LAYER STRESSES\r\nC         8.    PLY FAILURE INDEX (FP)\r\nC         9.    IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0)\r\nC       10,11.  INTERLAMINAR SHEAR STRESSES\r\nC        12.    SHEAR BONDING INDEX (SB)\r\nC        13.    IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0)\r\nC         :     4 - 13 REPEATED FOR THE NUMBER OF LAYERS WITH\r\nC         :           LAYER STRESS REQUEST\r\nC      LAST-1.  MAXIMUM FAILURE INDEX OF LAMINATE  (FIMAX)\r\nC       LAST.   IFLAG (= 1 IF FIMAX.GE.0.999, DEFAULT = 0)\r\nC\r\nC      1-LAST.  REPEAT FOR NUMBER OF ELEMENTS\r\nC\r\nC       (NOTE - ONLY THE ELEMENT CENTRE VALUES ARE CALCULATED)\r\nC\r\nC     == 1.\r\nC\r\n      IF (KSTRS .EQ. 1) CALL WRITE (OES1L,ELEMID,1,0)\r\nC\r\nC     DETERMINE INTRINSIC LAMINATE PROPERTIES\r\nC\r\nC     LAMINATE THICKNESS\r\nC\r\n      TLAM = PHIOUT(21)\r\nC\r\nC     REFERENCE SURFACE\r\nC\r\n      ZREF = -TLAM/2.0\r\nC\r\nC     NUMBER OF LAYERS\r\nC\r\n      NLAY = INTZ(PIDLOC+1)\r\nC\r\nC     FOR PCOMP BULK DATA DETERMINE HOW MANY LAYERS HAVE THE STRESS\r\nC     OUTPUT REQUEST (SOUTI)\r\nC     NOTE - FOR PCOMP1 OR PCOMP2 BULK DATA ENTRIES LAYER\r\nC            STRESSES ARE OUTPUT FOR ALL LAYERS.\r\nC\r\n      NLAYER = NLAY\r\nC\r\n      IF (ITYPE .NE. PCOMP) GO TO 1230\r\nC\r\n      NSTRQT = 0\r\n      DO 1220 K = 1,NLAY\r\n      IF (INTZ(PIDLOC+8+4*K) .EQ. 1) NSTRQT = NSTRQT + 1\r\n 1220 CONTINUE\r\n      NLAYER = NSTRQT\r\nC\r\nC     WRITE TOTAL NUMBER OF LAYERS WITH STRESS REQ TO OES1L\r\nC\r\n 1230 IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) NLAYER = 2*NLAYER\r\nC\r\nC     == 2.\r\nC\r\n      IF (KSTRS .EQ. 1) CALL WRITE (OES1L,NLAYER,1,0)\r\nC\r\nC     SET POINTER\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) IPOINT = PIDLOC + 8 + 4*NLAY\r\n      IF (ITYPE .EQ. PCOMP1) IPOINT = PIDLOC + 8 +   NLAY\r\n      IF (ITYPE .EQ. PCOMP2) IPOINT = PIDLOC + 8 + 2*NLAY\r\nC\r\nC     FAILURE THEORY TO BE USED IN COMPUTING FAILURE INDICES\r\nC\r\n      FTHR = INTZ(PIDLOC+5)\r\nC\r\nC     WRITE TO OUTPUT FILE TYPE OF FAILURE THEORY SELECTED\r\nC\r\nC     == 3.\r\nC\r\n      IF (KSTRS .EQ. 1) CALL WRITE (OES1L,FTHR,1,0)\r\nC\r\nC     SHEAR BONDING STRENGTH\r\nC\r\n      SB     = Z(PIDLOC+4)\r\n      FINDEX = 0.0\r\n      FBOND  = 0.0\r\n      FPMAX  = 0.0\r\n      FBMAX  = 0.0\r\n      FIMAX  = 0.0\r\nC\r\nC     SET TRNFLX IF INTERLAMINAR SHEAR STRESS CALCULATIONS\r\nC     IS REQUIRED\r\nC\r\n      TRNFLX = .FALSE.\r\nC\r\nC     TRANSVERSE SHEAR STRESS RESULTANTS QX AND QY\r\nC\r\n      V(1) = FORSUL(45)\r\n      V(2) = FORSUL(46)\r\n      TRNFLX = V(1).NE.0.0 .AND. V(2).NE.0.0\r\n      IF (.NOT.TRNFLX) GO TO 1240\r\n      IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 27*NLAY\r\n      IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2)\r\n     1    ICONTR = IPOINT + 25 + 2*NLAY\r\nC\r\nC     LAMINATE BENDING INERTIA\r\nC\r\n      EI(1)   = Z(ICONTR+1)\r\n      EI(2)   = Z(ICONTR+2)\r\nC\r\nC     LOCATION OF NEUTRAL SURFACE\r\nC\r\n      ZBAR(1) = Z(ICONTR+3)\r\n      ZBAR(2) = Z(ICONTR+4)\r\nC\r\nC     INTILIZISE\r\nC\r\n 1240 DO 1250 LL = 1,2\r\n      TRNAR(LL)  = 0.0\r\n      TRNSHR(LL) = 0.0\r\n 1250 CONTINUE\r\nC\r\nC     ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM\r\nC     THE USER DEFINED COORDINATE SYSTEM\r\nC\r\n      THETAE = ACOS(PHIOUT(69))\r\n      THETAE = THETAE*DEGRAD\r\nC\r\nC     SWITCH FOR THEMAL EFFECTS\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1290\r\nC\r\nC     LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE\r\nC\r\n      TSUBO = Z(IPOINT+24)\r\nC\r\nC     MEAN ELEMENT TEMPERATURE\r\nC\r\n      TBAR = TMEAN\r\n      IF (TEMPP1 .OR. TEMPP2) TBAR = STEMP(1)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1290\r\n      IF (.NOT.(TEMPP1 .OR. TEMPP2)) GO TO 1290\r\n      IF (.NOT.TEMPP1) GO TO 1260\r\nC\r\nC     TEMPERATURE GRADIENT TPRIME\r\nC\r\n      TPRIME = STEMP(2)\r\nC\r\n 1260 IF (.NOT.TEMPP2) GO TO 1290\r\nC\r\nC     COMPUTE REFERENCE SURFACE STRAINS AND CURVATURES\r\nC     DUE TO THERMAL MOMENTS\r\nC\r\nC     MOMENT OF INERTIA OF LAMINATE\r\nC\r\n      MINTR = (TLAM**3)/12.0\r\nC\r\nC     DETERMINE ABBD-MATRIX FROM PHIOUT(23-58)\r\nC\r\n      ICOUNT = 89 + 9*NNODE\r\n      DO 1270 LL = 1,3\r\n      DO 1270 MM = 1,3\r\n      NN = MM + 6*(LL-1)\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL  ,MM  ) = PHIOUT(NN+22)*TLAM\r\n      ABBD(LL  ,MM+3) = PHIOUT(ICOUNT+II)*(TLAM*TLAM)/(-6.0*CONST)\r\n      ABBD(LL+3,MM  ) = PHIOUT(ICOUNT+II)*(TLAM*TLAM)/(-6.0*CONST)\r\n      ABBD(LL+3,MM+3) = PHIOUT(NN+43)*MINTR\r\n 1270 CONTINUE\r\nC\r\nC     COMPUTE THERMAL REF STRAINS AND CURVATURES\r\nC                                   -1\r\nC        EZEROT-VECTOR =  ABBD-MATRIX   X  MTHR-VECTOR\r\nC\r\n      MTHER( 1) = 0.0\r\n      MTHER( 2) = 0.0\r\n      MTHER( 3) = 0.0\r\n      MTHER( 4) = STEMP(2)\r\n      MTHER( 5) = STEMP(3)\r\n      MTHER( 6) = STEMP(4)\r\nC\r\n      CALL INVERS (6,ABBD,6,DUMC,0,DETRM,ISING,INDX)\r\nC\r\n      DO 1280 LL = 1,6\r\n      DO 1280 MM = 1,6\r\n      NN = MM + 6*(LL-1)\r\n      STIFF(NN) = ABBD(LL,MM)\r\n 1280 CONTINUE\r\nC\r\n      CALL GMMATS (STIFF(1),6,6,0, MTHER(1),6,1,0, EZEROT(1))\r\nC\r\n 1290 CONTINUE\r\nC\r\n      DO 1300 LL = 1,6\r\n 1300 FORSUL(LL) = 0.0\r\nC\r\nC     LOOP OVER NLAY\r\nC\r\n      DO 1600 K = 1,NLAY\r\nC\r\nC     ZSUBI -DISTANCE FROM REFERENCE SURFACE TO MID OF LAYER K\r\nC\r\n      ZK1 = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC+7    )\r\n      IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC+7+2*K)\r\nC\r\n      ZSUBI = (ZK+ZK1)/2.0\r\nC\r\nC     LAYER THICKNESS\r\nC\r\n      TI = ZK - ZK1\r\nC\r\nC     CALCULATE STRAIN VECTOR AT STN ZSUBI\r\nC\r\n      DO 1400 IR = 1,3\r\n      EPSLNE(IR) = (.5-ZSUBI/TLAM)*EPSB(IR) + (.5+ZSUBI/TLAM)*EPST(IR)\r\n 1400 CONTINUE\r\nC\r\nC     LAYER ORIENTATION\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC+7+4*K)\r\n      IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC+8+  K)\r\n      IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC+8+2*K)\r\nC\r\nC     BUILD TRANS-MATRIX TO TRANSFORM LAYER STRAINS FROM MATERIAL\r\nC     TO FIBRE DIRECTION.\r\nC\r\n      THETA = THETA*DEGRAD\r\nC\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANS(1)  = C2\r\n      TRANS(2)  = S2\r\n      TRANS(3)  = C*S\r\n      TRANS(4)  = S2\r\n      TRANS(5)  = C2\r\n      TRANS(6)  =-C*S\r\n      TRANS(7)  =-2.0*C*S\r\n      TRANS(8)  = 2.0*C*S\r\n      TRANS(9)  = C2-S2\r\nC\r\nC     TRANSFORM STRAINS FROM ELEMENT TO FIBRE COORD SYSTEM\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, EPSLNE(1),3,1,0, EPSLN(1))\r\nC\r\nC     SWITCH FOR TEMPERATURE EFFECTS\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1470\r\nC\r\nC     CORRECT LAYER STRAIN VECTOR FOR THERMAL EFFECTS\r\nC\r\nC     LAYER THERMAL COEFFICIENTS OF EXPANSION ALPHA-VECTOR\r\nC\r\n      DO 1410 LL = 1,3\r\n      ALPHA(LL) = Z(IPOINT+13+LL)\r\n 1410 CONTINUE\r\nC\r\nC     ELEMENT TEMPERATURE\r\nC\r\n      DELT = TBAR - TSUBO\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1420\r\n      IF (.NOT.TEMPP1) GO TO 1420\r\nC\r\nC     TEMPERATURE GRADIENT TPRIME\r\nC\r\n      DELT = DELT + ZSUBI*TPRIME\r\nC\r\n 1420 DO 1430 LL = 1,3\r\n      EPSLNT(LL) = -ALPHA(LL)*DELT\r\n 1430 CONTINUE\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1450\r\n      IF (.NOT.TEMPP2) GO TO 1450\r\nC\r\nC     COMPUTE STRAIN DUE TO THERMAL MOMENTS\r\nC\r\n      DO 1440 LL = 1,3\r\n      EPSLNT(LL) = EPSLNT(LL) + (EZEROT(LL) + ZSUBI*EZEROT(LL+3))\r\n 1440 CONTINUE\r\nC\r\nC     COMBINE MECHANICAL AND THERMAL STRAINS\r\nC\r\n 1450 DO 1460 LL = 1,3\r\n      EPSLN(LL) = EPSLN(LL) + EPSLNT(LL)\r\n 1460 CONTINUE\r\nC\r\n 1470 CONTINUE\r\nC\r\nC     CALCULATE STRESS VECTOR STRESL IN FIBRE COORD SYS\r\nC\r\nC     STRESL-VECTOR  =  G-MATRIX  X  EPSLN-VECTOR\r\nC\r\n      CALL GMMATS (Z(IPOINT+1),3,3,0, EPSLN,3,1,0, STRESL(1))\r\nC\r\nC     USE FORCE RESTULANTS CALCULATED PREVIOUSLY\r\nC     I.E. AT EXTREME FIBER STATIONS EXCEPT FOR THERMAL LOADING CASES\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1490\r\n      IF (KFORCE .EQ.  0) GO TO 1490\r\nC\r\nC     TRANSFORM LAYER STRESSES TO ELEMENT AXIS\r\nC\r\n      IF (THETAE .GT. 0.0) THETA = THETA + THETAE\r\nC\r\nC     BUILD STRESS TRANSFORMATION MATRIX\r\nC\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANS(1)  = C2\r\n      TRANS(2)  = S2\r\n      TRANS(3)  =-2.0*C*S\r\n      TRANS(4)  = S2\r\n      TRANS(5)  = C2\r\n      TRANS(6)  = 2.0*C*S\r\n      TRANS(7)  = C*S\r\n      TRANS(8)  =-C*S\r\n      TRANS(9)  = C2-S2\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, STRESL(1),3,1,0, STRESE(1))\r\nC\r\n      DO 1480 IR = 1,3\r\n      FORSUL(IR) = FORSUL(IR) + STRESE(IR)*TI\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1480\r\n      FORSUL(IR+3) = FORSUL(IR+3) - STRESE(IR)*TI*ZSUBI\r\n 1480 CONTINUE\r\nC\r\n 1490 IF (FTHR .LE. 0) GO TO 1530\r\nC\r\nC     WRITE ULTIMATE STRENGTH VALUES TO ULTSTN\r\nC\r\n      DO 1500 IR = 1,6\r\n 1500 ULTSTN(IR) = Z(IPOINT+16+IR)\r\nC\r\nC     CALL FTHR TO COMPUTE FAILURE INDEX FOR PLY\r\nC\r\n      IF (FTHR .EQ. STRAIN) GO TO 1510\r\n      CALL FAILUR (FTHR,ULTSTN,STRESL,FINDEX)\r\n      GO TO 1520\r\nC\r\n 1510 CALL FAILUR (FTHR,ULTSTN,EPSLN,FINDEX)\r\nC\r\nC     DETERMINE THE MAX FAILURE INDEX\r\nC\r\n 1520 IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX\r\nC\r\n 1530 CONTINUE\r\nC\r\nC     SET POINTERS\r\nC\r\n      IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 25\r\n      IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2)\r\n     1    ICONTR = IPOINT + 23 + 2*K\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1570\r\n      IF (.NOT.TRNFLX) GO TO 1570\r\nC\r\nC     CALCULATE INTERLAMINAR SHEAR STRESSES\r\nC\r\n      DO 1540 IR = 1,2\r\n      TRNAR(IR) = TRNAR(IR) + (Z(ICONTR+IR))*TI*(ZBAR(IR)-ZSUBI)\r\n 1540 CONTINUE\r\nC\r\nC     THE INTERLAMINAR SHEAR STRESSES AT STN ZSUBI\r\nC\r\n      DO 1550 IR = 1,2\r\n      TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR)\r\n 1550 CONTINUE\r\nC\r\nC     CALCULATE SHEAR BONDING FAILURE INDEX FB\r\nC     NOTE- SB IS ALWAYS POSITIVE\r\nC\r\n      IF (SB .EQ. 0.0) GO TO 1570\r\nC\r\n      DO 1560 IR = 1,2\r\n      FB(IR) = ABS(TRNSHR(IR))/SB\r\n 1560 CONTINUE\r\nC\r\n      FBOND = FB(1)\r\n      IF (FB(2) .GT. FB(1)) FBOND = FB(2)\r\nC\r\nC     CALCULATE MAX SHEAR BONDING INDEX\r\nC\r\n      IF (FBOND .GE. FBMAX) FBMAX = FBOND\r\nC\r\n 1570 CONTINUE\r\nC\r\n      IF (KSTRS .EQ. 0) GO TO 1590\r\nC\r\nC     WRITE TO OUTPUT FILE THE FOLLOWING\r\nC       4.    PLY (OR LAYER) ID\r\nC     5,6,7.  LAYER STRESSES\r\nC       8.    LAYER FAILURE INDEX\r\nC       9.    IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0)\r\nC     10,11.  INTERLAMINAR SHEAR STRESSES\r\nC      12.    SHEAR BONDING FAILURE INDEX\r\nC      13.    IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0)\r\nC\r\nC     CHECK LAYER STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA\r\nC     (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA)\r\nC\r\n      IF (ITYPE .NE. PCOMP) GO TO 1580\r\n      SOUTI = INTZ(PIDLOC+8+4*K)\r\n      IF (SOUTI .EQ. 0) GO TO 1590\r\n 1580 PLYID = K\r\nC\r\nC     == 4.\r\nC\r\n      CALL WRITE (OES1L,PLYID,1,0)\r\nC\r\nC     == 5,6,7.\r\nC\r\n      CALL WRITE (OES1L,STRESL(1),3,0)\r\nC\r\nC     == 8.\r\nC\r\n      CALL WRITE (OES1L,FINDEX,1,0)\r\nC\r\nC     SET IFLAG\r\nC\r\n      IFLAG = 0\r\n      IF (ABS(FINDEX) .GE. 0.999) IFLAG = 1\r\nC\r\nC     == 9.\r\nC\r\n      CALL WRITE (OES1L,IFLAG,1,0)\r\nC\r\nC     == 10,11.\r\nC\r\n      CALL WRITE (OES1L,TRNSHR(1),2,0)\r\nC\r\nC     == 12.\r\nC\r\n      CALL WRITE (OES1L,FBOND,1,0)\r\nC\r\nC     SET IFLAG\r\nC\r\n      IFLAG = 0\r\n      IF (ABS(FBOND) .GE. 0.999) IFLAG = 1\r\nC\r\nC     == 13.\r\nC\r\n      CALL WRITE (OES1L,IFLAG,1,0)\r\nC\r\nC\r\nC     UPDATE IPOINT FOR PCOMP BULK DATA ENTRY\r\nC\r\n 1590 IF (ITYPE.EQ.PCOMP .AND. K.NE.NLAY) IPOINT = IPOINT + 27\r\nC\r\n 1600 CONTINUE\r\nC\r\nC     FALL HERE IF SYMMETRIC OPTION HAS BEEN EXERCISED\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 2000\r\nC\r\nC     LOOP OVER SYMMETRIC LAYERS\r\nC\r\n      DO 1900 KK = 1,NLAY\r\n      K = NLAY + 1 - KK\r\nC\r\nC     ZSUBI -DISTANCE FROM REFERENCE SURFACE TO MID OF LAYER K\r\nC\r\n      ZK1 = ZK\r\n      IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC+7    )\r\n      IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC+7+2*K)\r\nC\r\n      ZSUBI = (ZK+ZK1)/2.0\r\nC\r\nC     LAYER THICKNESS\r\nC\r\n      TI = ZK - ZK1\r\nC\r\nC     CALCULATE STRAIN VECTOR AT STN ZSUBI\r\nC\r\n      DO 1700 IR = 1,3\r\n      EPSLNE(IR) = (.5-ZSUBI/TLAM)*EPSB(IR) + (.5+ZSUBI/TLAM)*EPST(IR)\r\n 1700 CONTINUE\r\nC\r\nC     LAYER ORIENTATION\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC+7+4*K)\r\n      IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC+8+  K)\r\n      IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC+8+2*K)\r\nC\r\nC     BUILD TRANS-MATRIX TO TRANSFORM LAYER STRAINS FROM MATERIAL\r\nC     TO FIBRE DIRECTION.\r\nC\r\n      THETA = THETA*DEGRAD\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANS(1)  = C2\r\n      TRANS(2)  = S2\r\n      TRANS(3)  = C*S\r\n      TRANS(4)  = S2\r\n      TRANS(5)  = C2\r\n      TRANS(6)  =-C*S\r\n      TRANS(7)  =-2.0*C*S\r\n      TRANS(8)  = 2.0*C*S\r\n      TRANS(9)  = C2 - S2\r\nC\r\nC     TRANSFORM STRAINS FROM MATERIAL TO FIBRE COORD SYSTEM\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, EPSLNE(1),3,1,0, EPSLN(1))\r\nC\r\nC     SWITCH FOR TEMPERATURE EFFECTS\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1770\r\nC\r\nC     CORRECT LAYER STRAIN VECTOR FOR THERMAL EFFECTS\r\nC\r\nC     LAYER THERMAL COEFFICIENTS OF EXPANSION ALPHA-VECTOR\r\nC\r\n      DO 1710 LL = 1,3\r\n      ALPHA(LL) = Z(IPOINT+13+LL)\r\n 1710 CONTINUE\r\nC\r\nC     ELEMENT TEMPERATURE\r\nC\r\n      DELT = TBAR - TSUBO\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1720\r\n      IF (.NOT.TEMPP1) GO TO 1720\r\nC\r\nC     TEMPERATURE GRADIENT TPRIME\r\nC\r\n      DELT = DELT + ZSUBI*TPRIME\r\nC\r\n 1720 DO 1730 LL = 1,3\r\n      EPSLNT(LL) = -ALPHA(LL)*DELT\r\n 1730 CONTINUE\r\nC\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1750\r\n      IF (.NOT.TEMPP2) GO TO 1750\r\nC\r\nC     COMPUTE STRAIN DUE TO THERMAL MOMENTS\r\nC\r\n      DO 1740 LL = 1,3\r\n      EPSLNT(LL) = EPSLNT(LL) + (EZEROT(LL) + ZSUBI*EZEROT(LL+3))\r\n 1740 CONTINUE\r\nC\r\nC     COMBINE MECHANICAL AND THERMAL STRAINS\r\nC\r\n 1750 DO 1760 LL = 1,3\r\n      EPSLN(LL)  = EPSLN(LL) + EPSLNT(LL)\r\n 1760 CONTINUE\r\nC\r\n 1770 CONTINUE\r\nC\r\nC     CALCULATE STRESS VECTOR STRESL IN FIBRE COORD SYS\r\nC\r\nC     STRESL-VECTOR =  G-MATRIX  X  EPSLN-VECTOR\r\nC\r\n      CALL GMMATS (Z(IPOINT+1),3,3,0, EPSLN,3,1,0, STRESL(1))\r\nC\r\nC     COMPUTE FORCE RESULTANTS IF REQUESTED\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1790\r\n      IF (KFORCE .EQ.  0) GO TO 1790\r\nC\r\nC     TRANSFORM LAYER STRESSES TO ELEMENT AXIS\r\nC\r\n      IF (THETAE .GT. 0.0) THETA = THETA + THETAE\r\nC\r\nC     BUILD STRESS TRANSFORMATION MATRIX\r\nC\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANS(1)  = C2\r\n      TRANS(2)  = S2\r\n      TRANS(3)  =-2.0*C*S\r\n      TRANS(4)  = S2\r\n      TRANS(5)  = C2\r\n      TRANS(6)  = 2.0*C*S\r\n      TRANS(7)  = C*S\r\n      TRANS(8)  =-C*S\r\n      TRANS(9)  = C2 - S2\r\nC\r\n      CALL GMMATS (TRANS(1),3,3,0, STRESL(1),3,1,0, STRESE(1))\r\nC\r\n      DO 1780 IR = 1,3\r\n      FORSUL(IR) = FORSUL(IR) + STRESE(IR)*TI\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1780\r\n      FORSUL(IR+3) = FORSUL(IR+3) - STRESE(IR)*TI*ZSUBI\r\n 1780 CONTINUE\r\nC\r\n 1790 IF (FTHR .LE. 0) GO TO 1830\r\nC\r\nC     WRITE ULTIMATE STRENGTH VALUES TO ULTSTN\r\nC\r\n      DO 1800 IR = 1,6\r\n 1800 ULTSTN(IR) = Z(IPOINT+16+IR)\r\nC\r\nC     CALL FTHR TO COMPUTE FAILURE INDEX FOR PLY\r\nC\r\n      IF (FTHR .EQ. STRAIN) GO TO 1810\r\n      CALL FAILUR (FTHR,ULTSTN,STRESL,FINDEX)\r\n      GO TO 1820\r\nC\r\n 1810 CALL FAILUR (FTHR,ULTSTN,EPSLN,FINDEX)\r\nC\r\nC     DETERMINE THE MAX FAILURE INDEX\r\nC\r\n 1820 IF (ABS(FINDEX) .GE. ABS(FPMAX)) FPMAX = FINDEX\r\nC\r\n 1830 CONTINUE\r\nC\r\nC     SET POINTERS\r\nC\r\n      IF (ITYPE .EQ. PCOMP) ICONTR = IPOINT + 25\r\n      IF (ITYPE.EQ.PCOMP1 .OR. ITYPE.EQ.PCOMP2)\r\n     1    ICONTR = IPOINT + 23 + 2*K\r\nC\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1870\r\n      IF (.NOT.TRNFLX) GO TO 1870\r\nC\r\nC     CALCULATE INTERLAMINAR SHEAR STRESSES\r\nC\r\n      DO 1840 IR = 1,2\r\n      TRNAR(IR) = TRNAR(IR) + (Z(ICONTR+IR))*TI*(ZBAR(IR)-ZSUBI)\r\n 1840 CONTINUE\r\nC\r\nC     THE INTERLAMINAR SHEAR STRESSES AT STN ZSUBI\r\nC\r\n      DO 1850 IR = 1,2\r\n      TRNSHR(IR) = V(IR)*TRNAR(IR)/EI(IR)\r\n 1850 CONTINUE\r\nC\r\nC     CALCULATE SHEAR BONDING FAILURE INDEX FB\r\nC     NOTE- SB IS ALWAYS POSITIVE\r\nC\r\n      IF (SB .EQ. 0.0) GO TO 1870\r\nC\r\n      DO 1860 IR = 1,2\r\n      FB(IR) = ABS(TRNSHR(IR))/SB\r\n 1860 CONTINUE\r\nC\r\n      FBOND = FB(1)\r\n      IF (FB(2) .GT. FB(1)) FBOND = FB(2)\r\nC\r\nC     CALCULATE MAX SHEAR BONDING INDEX\r\nC\r\n      IF (FBOND .GE. FBMAX) FBMAX = FBOND\r\nC\r\n 1870 CONTINUE\r\nC\r\n      IF (KSTRS .EQ. 0) GO TO 1890\r\nC\r\nC     WRITE TO OUTPUT FILE THE FOLLOWING\r\nC       4.     PLY (OR LAYER) ID\r\nC     5,6,7.   LAYER STRESSES\r\nC       8.     LAYER FAILURE INDEX\r\nC       9.     IFLAG (= 1 IF FP.GE.0.999, DEFAULT = 0)\r\nC     10,11.   INTERLAMINAR SHEAR STRESSES\r\nC      12.     SHEAR BONDING FAILURE INDEX\r\nC      13.     IFLAG (= 1 IF SB.GE.0.999, DEFAULT = 0)\r\nC\r\nC     CHECK LAYER STRESS OUTPUT REQUEST (SOUTI) FOR PCOMP BULK DATA\r\nC     (NOT SUPPORTED FOR PCOMP1 OR PCOMP2 BULK DATA)\r\nC\r\n      IF (ITYPE .NE. PCOMP) GO TO 1880\r\n      SOUTI = INTZ(PIDLOC+8+4*K)\r\n      IF (SOUTI .EQ. 0) GO TO 1890\r\n 1880 PLYID = NLAY + KK\r\nC\r\nC     == 4.\r\nC\r\n      CALL WRITE (OES1L,PLYID,1,0)\r\nC\r\nC     == 5,6,7\r\nC\r\n      CALL WRITE (OES1L,STRESL(1),3,0)\r\nC\r\nC     == 8.\r\nC\r\n      CALL WRITE (OES1L,FINDEX,1,0)\r\nC\r\nC     SET IFLAG\r\nC\r\n      IFLAG = 0\r\n      IF (ABS(FINDEX) .GE. 0.999) IFLAG = 1\r\nC\r\nC     == 9.\r\nC\r\n      CALL WRITE (OES1L,IFLAG,1,0)\r\nC\r\nC     == 10,11.\r\nC\r\n      CALL WRITE (OES1L,TRNSHR(1),2,0)\r\nC\r\nC     == 12.\r\nC\r\n      CALL WRITE (OES1L,FBOND,1,0)\r\nC\r\nC     SET IFLAG\r\nC\r\n      IFLAG = 0\r\n      IF (ABS(FBOND) .GE. 0.999) IFLAG = 1\r\nC\r\nC     == 13.\r\nC\r\n      CALL WRITE (OES1L,IFLAG,1,0)\r\nC\r\nC     UPDATE IPOINT FOR PCOMP BULK DATA ENTRY\r\nC\r\n 1890 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT - 27\r\n 1900 CONTINUE\r\nC\r\n 2000 IF (FTHR .LE. 0) GO TO 2010\r\nC\r\nC     DETERMINE 'FIMAX' THE MAX FAILURE INDEX FOR THE LAMINATE\r\nC\r\n      FIMAX = FPMAX\r\n      IF (FBMAX .GT. ABS(FPMAX)) FIMAX = FBMAX\r\nC\r\nC     == LAST-1.\r\nC\r\n 2010 IF (KSTRS .EQ. 1) CALL WRITE (OES1L,FIMAX,1,0)\r\nC\r\n      IFLAG = 0\r\n      IF (ABS(FIMAX) .GE. 0.999) IFLAG = 1\r\nC\r\nC     == LAST.\r\nC\r\n      IF (KSTRS .EQ. 1) CALL WRITE (OES1L,IFLAG,1,0)\r\nC\r\n      IF (KFORCE .EQ.  0) GO TO 2100\r\n      IF (LDTEMP .EQ. -1) GO TO 2100\r\n      CALL WRITE (OEF1L,ELEMID,1,0)\r\n      CALL WRITE (OEF1L,FORSUL(1),6,0)\r\n      CALL WRITE (OEF1L,FORSUL(45),2,0)\r\nC\r\n 2100 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 2200 WRITE  (NOUT,2210) UWM\r\n 2210 FORMAT (A25,' - NO PCOMP, PCOMP1 OR PCOMP2 DATA AVAILABLE FOR ',\r\n     1       'LAYER STRESS RECOVERY BY SUBROUTINE SQUD42.')\r\n      GO TO 2100\r\n 2220 WRITE  (NOUT,2230) UFM\r\n 2230 FORMAT (A23,', LAYER STRESS OR FORCE RECOVERY WAS REQUESTED WHILE'\r\n     1,      ' PROBLEM WAS NOT SET UP FOR', /5X,'LAYER COMPUTATION')\r\n      CALL MESAGE (-61,0,0)\r\n      END\r\n"
  },
  {
    "path": "mis/srod1.f",
    "content": "      SUBROUTINE SROD1\r\nC*****\r\nC THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE ROD.\r\nC*****\r\nC\r\nC\r\nC\r\n      DIMENSION          IECPT(13)\r\nC\r\nC\r\nC\r\nC\r\nC INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X5/\r\n     A                   ECPT(17)           ,DUMMY1(83),\r\n     1                   IELID              ,ISILNO(2)\r\n     2,                  SAT(3)             ,SBT(3)\r\n     3,                  SAR(3)             ,SBR(3)\r\n     4,                  ST                 ,SDELTA\r\n     5,                  AREA               ,FJOVRC\r\n     6,                  T SUBC 0           ,SIGMAT\r\n     7,                  SIGMAC             ,SIGMAS\r\n     8,                  SIGVEC(77)         ,FORVEC(25)\r\nC\r\nC SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X6/\r\n     1                   XN(6)              ,TI(9)\r\n     2,                  XL                 ,EOVERL\r\n     3,                  IBASE\r\nC\r\nC INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\nC\r\nC\r\nC\r\n      COMMON   /MATOUT/\r\n     1                   E                  ,G\r\n     2,                  NU                 ,RHO\r\n     3,                  ALPHA              ,T SUB 0\r\n     4,                  GSUBE              ,SIGT\r\n     5,                  SIGC               ,SIGS\r\nC\r\nC\r\nC\r\n      EQUIVALENCE        (IECPT(1),ECPT(1))\r\nC\r\nC CALL MAT TO GET MATERIAL PROPERTIES\r\nC\r\n      MATIDC = IECPT(4)\r\n      MATFLG = 1\r\n      ELTEMP = ECPT(17)\r\n      CALL MAT (IECPT(1))\r\nC\r\nC SET UP VECTOR ALONG THE ROD, COMPUTE LENGTH AND NORMALIZE\r\nC\r\n      XN(1) = ECPT(10) - ECPT(14)\r\n      XN(2) = ECPT(11) - ECPT(15)\r\n      XN(3) = ECPT(12) - ECPT(16)\r\n      XL =  XN(1)**2  +  XN(2)**2  +  XN(3)**2\r\n      XL =  SQRT(XL)\r\n      XN(1) = XN(1) / XL\r\n      XN(2) = XN(2) / XL\r\n      XN(3) = XN(3) / XL\r\n      EOVERL = E / XL\r\n      GCOVRL = G * ECPT(6) / XL\r\n      IBASE = 0\r\nC\r\nC TRANSFORM XN VECTOR IF POINT A IS NOT IN BASIC COORDINATES.\r\nC\r\n      IF (IECPT(9) .EQ. 0) GO TO 10\r\n      IBASE = 3\r\n      CALL TRANSS (IECPT(9),TI)\r\n      CALL GMMATS (XN(1),3,1,1, TI(1),3,3,0, XN(4) )\r\n   10 SAT(1) = XN(IBASE +1) * EOVERL\r\n      SAT(2) = XN(IBASE +2) * EOVERL\r\n      SAT(3) = XN(IBASE +3) * EOVERL\r\n      SAR(1) = XN(IBASE +1) * GCOVRL\r\n      SAR(2) = XN(IBASE +2) * GCOVRL\r\n      SAR(3) = XN(IBASE +3) * GCOVRL\r\nC\r\nC TRANSFORM XN VECTOR IF POINT B IS NOT IN BASIC COORDINATES.\r\nC\r\n      IBASE = 0\r\n      IF (IECPT(13) .EQ. 0) GO TO 20\r\n      IBASE = 3\r\n      CALL TRANSS (IECPT(13),TI)\r\n      CALL GMMATS (XN(1),3,1,1, TI(1),3,3,0, XN(4) )\r\n   20 SBT(1) = - XN(IBASE+1) * EOVERL\r\n      SBT(2) = - XN(IBASE+2) * EOVERL\r\n      SBT(3) = - XN(IBASE+3) * EOVERL\r\n      SBR(1) = - XN(IBASE+1) * GCOVRL\r\n      SBR(2) = - XN(IBASE+2) * GCOVRL\r\n      SBR(3) = - XN(IBASE+3) * GCOVRL\r\nC\r\nC FILL REMAINDER OF OUTPUT BLOCK\r\nC\r\n      ST     = - ALPHA * E\r\n      SDELTA = - EOVERL\r\n      AREA   =   ECPT(5)\r\n      IF(ECPT(6)) 30,40,30\r\n   30 FJOVRC = ECPT(7) / ECPT(6)\r\n      GO TO 50\r\n   40 FJOVRC = 0.0\r\n   50 TSUBC0 = TSUB0\r\n      SIGMAT = SIGT\r\n      SIGMAC = SIGC\r\n      SIGMAS = SIGS\r\n      IELID = IECPT(1)\r\n      ISILNO(1) = IECPT(2)\r\n      ISILNO(2) = IECPT(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/srod2.f",
    "content": "      SUBROUTINE SROD2\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE ROD.\r\nC*****\r\n      REAL    CFRVEC(4),FRLAST(2)\r\n      INTEGER EJECT    ,ISHD(7)  ,TYP(4)\r\nC\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\n      COMMON /SDR2DE/ SKP2DE(8),IELTYP\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC BLOCK FOR POINTERS, LOADING TEMPERATURE AND ELEMENT DEFORMATION.\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUMMY(33)          ,ICSTM\r\n     2,                  NCSTM              ,IVEC\r\n     3,                  IVECN              ,TEMPLD\r\n     4,                  ELDEFM\r\nC\r\nC SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   IELID              ,ISILNO(2)\r\n     2,                  SAT(3)             ,SBT(3)\r\n     3,                  SAR(3)             ,SBR(3)\r\n     4,                  ST                 ,SDELTA\r\n     5,                  AREA               ,FJOVRC\r\n     6,                  T SUBC 0           ,SIGMAT\r\n     7,                  SIGMAC             ,SIGMAS\r\n     8,                  DUMMY2(77)\r\n     9,                  JSELID             ,SIGMA\r\n     T,                  SMSIG              ,TAU\r\n     1,                  SMTAU              ,DUMMY3(95)\r\n     2,                  JFELID             ,P\r\n     3,                  TORQUE             ,DUMMY4(22)\r\nC\r\nC SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   TRANA              ,TRANB\r\n     2,                  ROTA               ,ROTB\r\n     3,                  IUTA               ,IUTB\r\n     4,                  IURA               ,IURB\r\n     5,                  IFRVEC(7)          ,CHKVEC(4)\r\nC\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\nC\r\n      EQUIVALENCE\r\n     1                   (TEMPLD,LDTEMP)    ,(SMSIG,MSSIG)\r\n     2,                  (SMTAU,MSTAU)\r\n     3,      (CFRVEC(1),CSIGA) , (CFRVEC(2),CTAU) , (CFRVEC(3),CP)\r\n     4,      (CFRVEC(4),CTRQUE), (IFRVEC(4),CFRVEC(1))\r\n     5,      (ISHD(1),LSUB), (ISHD(2),LLD), (ISHD(6),FRLAST(1))\r\nC\r\n      DATA LLD,LSUB,FRLAST / 2*-1, -1.0E30, -1.0E30 /\r\n      DATA TYP / 4H CON , 4HROD  , 4HTUBE, 1H   /\r\nC\r\n      IDISP = IVEC - 1\r\n      IUTA  = IDISP + ISILNO(1)\r\n      CALL SMMATS (SAT(1),3,1,1, ZZ(IUTA),3,1,0, TRANA,CTRNA)\r\n      IUTB  = IDISP + ISILNO(2)\r\n      CALL SMMATS (SBT(1),3,1,1, ZZ(IUTB),3,1,0, TRANB,CTRNB)\r\n      SIGMA = TRANA + TRANB + SDELTA * ELDEFM\r\n      CSIGA = CTRNA + CTRNB\r\n      IF (LDTEMP .EQ. (-1) ) GO TO 10\r\n      SIGMA = SIGMA + ST * (TEMPLD - T SUBC 0)\r\n   10 IURA  = IUTA + 3\r\n      CHKVEC(1) = SIGMA\r\n      CALL SMMATS (SAR(1),3,1,1, ZZ(IURA),3,1,0, ROTA,CRTA)\r\n      IURB  = IUTB + 3\r\n      CALL SMMATS (SBR(1),3,1,1, ZZ(IURB),3,1,0, ROTB,CRTB)\r\n      TORQUE = ROTA + ROTB\r\n      CP = AREA * CSIGA\r\n      CHKVEC(3) = P\r\n      CTAU = ABS (FJOVRC) * CTRQUE\r\n      CHKVEC(2) = TAU\r\n      CTRQUE = CRTA + CRTB\r\n      CHKVEC(4) = TORQUE\r\nC\r\nC COMPUTE AXIAL FORCE, P, AND TORQUE\r\nC\r\n      P = AREA * SIGMA\r\n      TAU = FJOVRC * TORQUE\r\nC\r\nC COMPUTE MARGIN OF SAFETY IN EXTENSION\r\nC\r\n      IF(SIGMA.LE.0.0)GO TO 101\r\n      IF(SIGMAT.LE.0.0)GO TO 102\r\n      SMSIG=SIGMAT/SIGMA-1.0\r\n      GO TO 180\r\n  101 IF(SIGMA.NE.0.0) GO TO 103\r\n      GO TO 102\r\n  103 IF(SIGMAC .LE. 0.0) GO TO 102\r\n      SMSIG = -SIGMAC/SIGMA - 1.0\r\n      GO TO 180\r\n  102 MSSIG=1\r\nC\r\nC     COMPUTE MARGIN OF SAFETY IN TORSION\r\nC\r\n  180 IF(SIGMAS.LE.0.0) GO TO 190\r\n      IF(TAU.EQ.0.0)GO TO 190\r\n      SMTAU= SIGMAS/ABS(TAU) - 1.0\r\n      GO TO 110\r\n  190 MSTAU=1\r\n  110 JSELID = IELID\r\n      JFELID = IELID\r\n      IF (NCHK .LE. 0 ) GO TO 260\r\nC\r\nC  . CHECK PRECISION...\r\nC\r\n      IFRVEC(3) = IELID\r\n      K = 0\r\n      CALL SDRCHK (CHKVEC,CFRVEC,4,K)\r\nC\r\n      IF (K.EQ.0) GO TO 260\r\nC\r\nC  . LIMITS EXCEEDED...\r\nC\r\n      J = 0\r\n      IFRVEC(1) = TYP(4)\r\n      IF (IELTYP.EQ.10) IFRVEC(1) = TYP(1)\r\n      IFRVEC(2) = TYP(2)\r\n      IF (IELTYP.EQ.3) IFRVEC(2) = TYP(3)\r\nC\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 240\r\nC\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 1\r\n      CALL PAGE1\r\nC\r\n  220 CALL SD2RHD (ISHD,J)\r\n      LINE = LINE + 1\r\n      WRITE(NOUT,230)\r\n  230 FORMAT(7X,4HTYPE,5X,3HEID,5X,2HSA,5X,2HST,5X,9HAF TORQUE )\r\n      GO TO 245\r\nC\r\n  240 IF (EJECT(2).NE.0) GO TO 220\r\n  245 WRITE(NOUT,250) IFRVEC\r\n  250 FORMAT (1H0,3X,2A4,I7,4F7.1)\r\n  260 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ss2d81.f",
    "content": "      SUBROUTINE SS2D81\r\nC\r\nC     PHASE 1 OF STRESS DATA RECOVERY FOR 2-D, 8 GRID POINT\r\nC     ISOPARAMETRIC STRUCTURAL ELEMENT\r\nC\r\n      REAL            KX,KY\r\n      DIMENSION       G(9),QQ(15),XI(8),ETA(8),NPH1(62),TB(9),XX(16),\r\n     1                XY1(3),XY2(3),DNXI(8),DNETA(8),ECPT(1),\r\n     2                VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(6),\r\n     3                PT(3),IWS(2,3)\r\n      COMMON /SDR2X4/ IDUM(33),ICSTM,NCSTM\r\n      COMMON /SDR2X5/ NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1,\r\n     1                ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4,\r\n     2                ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7,\r\n     3                ISYS8,X8,Y8,Z8,TTEMP,DUMB(54),PH1OUT(400)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                TREF,GE,KX,KY,C\r\n      COMMON /SDR2X6/ DNC(16),DNL(16),XXJB(2,2),XJB(4),TB,DETERM,DUMARG,\r\n     1                XY,ALPHAS(3),TSAVE(6)\r\n      EQUIVALENCE     (ECPT(1),NECPT(1)),(NPH1(1),PH1OUT(1)),\r\n     1                (XY1(1),X1),(XY2(1),X2),\r\n     2                (DNC(1),DNXI(1)),(DNC(9),DNETA(1)),(QQ(1),G11)\r\n      DATA    XI    / -1., 1., 1., -1., 0., 1., 0., -1./\r\n      DATA    ETA   / -1.,-1., 1.,  1.,-1., 0., 1.,  0./\r\nC\r\nC     ECPT LIST\r\nC                                      IN\r\nC                                      THIS\r\nC     ECPT       DESCRIPTION           ROUTINE        TYPE\r\nC     --------   --------------------  ----------  -----------\r\nC     ECPT( 1) = ELEMENT ID            NECPT(1)       INTEGER\r\nC     ECPT( 2) = GRID POINT 1          NGRID(1)       INTEGER\r\nC     ECPT( 3) = GRID POINT 2          NGRID(2)       INTEGER\r\nC     ECPT( 4) = GRID POINT 3          NGRID(3)       INTEGER\r\nC     ECPT( 5) = GRID POINT 4          NGRID(4)       INTEGER\r\nC     ECPT( 6) = GRID POINT 5          NGRID(5)       INTEGER\r\nC     ECPT( 7) = GRID POINT 6          NGRID(6)       INTEGER\r\nC     ECPT( 8) = GRID POINT 7          NGRID(7)       INTEGER\r\nC     ECPT( 9) = GRID POINT 8          NGRID(8)       INTEGER\r\nC     ECPT(10) = COORD SYS ID-STRESS   ID1            INTEGER\r\nC     ECPT(11) = ANIS. MATERIAL ANGLE  TH             REAL\r\nC     ECPT(12) = MATERIAL ID           MATID1         INTEGER\r\nC     ECPT(13) = THICKNESS             T              REAL\r\nC     ECPT(14) = COORD SYS ID 1        ISYS1          INTEGER\r\nC     ECPT(15) = X1                    X1             REAL\r\nC     ECPT(16) = Y1                    Y1             REAL\r\nC     ECPT(17) = Z1                    Z1             REAL\r\nC     ECPT(18) = COORD SYS ID 2        ISYS2          INTEGER\r\nC     ECPT(19) = X2                    X2             REAL\r\nC     ECPT(20) = Y2                    Y2             REAL\r\nC     ECPT(21) = Z2                    Z2             REAL\r\nC     ECPT(22) = COORD SYS ID 3        ISYS3          INTEGER\r\nC     ECPT(23) = X3                    X3             REAL\r\nC     ECPT(24) = Y3                    Y3             REAL\r\nC     ECPT(25) = Z3                    Z3             REAL\r\nC     ECPT(26) = COORD SYS ID 4        ISYS4          INTEGER\r\nC     ECPT(27) = X4                    X4             REAL\r\nC     ECPT(28) = Y4                    Y4             REAL\r\nC     ECPT(29) = Z4                    Z4             REAL\r\nC     ECPT(30) = COORD SYS ID 5        ISYS5          INTEGER\r\nC     ECPT(31) = X5                    X5             REAL\r\nC     ECPT(32) = Y5                    Y5             REAL\r\nC     ECPT(33) = Z5                    Z5             REAL\r\nC     ECPT(34) = COORD SYS ID 6        ISYS6          INTEGER\r\nC     ECPT(35) = X6                    XL             REAL\r\nC     ECPT(36) = Y6                    Y6             REAL\r\nC     ECPT(37) = Z6                    Z6             REAL\r\nC     ECPT(38) = COORD SYS ID 7        ISYS7          INTEGER\r\nC     ECPT(39) = X7                    X7             REAL\r\nC     ECPT(40) = Y7                    Y7             REAL\r\nC     ECPT(41) = Z7                    Z7             REAL\r\nC     ECPT(42) = COORD SYS ID 8        ISYS8          INTEGER\r\nC     ECPT(43) = X8                    X8             REAL\r\nC     ECPT(44) = Y8                    Y8             REAL\r\nC     ECPT(45) = Z8                    Z8             REAL\r\nC     ECPT(46) = ELEMENT TEMP          TTEMP          REAL\r\nC\r\nC\r\nC     UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2\r\nC\r\n      DO 20 I = 1,3\r\n      VECI(I) = XY2(I) - XY1(I)\r\n   20 CONTINUE\r\n      VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (VECIL .EQ. 0.0)GO TO 40\r\n      VECI(1) = VECI(1)/VECIL\r\n      VECI(2) = VECI(2)/VECIL\r\n      VECI(3) = VECI(3)/VECIL\r\nC\r\nC     K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO\r\nC     GRID\r\nC\r\n      VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1)\r\n      VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1)\r\n      VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1)\r\n      VECKL   = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (VECKL .EQ. 0.0) GO TO 40\r\n      VECK(1) = VECK(1)/VECKL\r\n      VECK(2) = VECK(2)/VECKL\r\n      VECK(3) = VECK(3)/VECKL\r\nC\r\nC     J VECTOR IS OBTAINED BY CROSSING K INTO I\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\nC\r\n      E1T(1) = VECI(1)\r\n      E1T(2) = VECI(2)\r\n      E1T(3) = VECI(3)\r\n      E1T(4) = VECJ(1)\r\n      E1T(5) = VECJ(2)\r\n      E1T(6) = VECJ(3)\r\nC\r\nC     STORE ELEMENT COORDS FOR GRIDS 1 AND 2\r\nC\r\n      XX(1) = 0.\r\n      XX(2) = 0.\r\n      XX(3) = VECIL\r\n      XX(4) = 0.\r\nC\r\nC     FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR\r\nC     FROM GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD.\r\nC     IS THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO\r\nC     THE GRID POINT.\r\nC\r\n      DO 30 I = 3,8\r\n      IXX    = 2*I - 1\r\n      ISUB   = 4*I + 11\r\n      VEC(1) = ECPT(ISUB  ) - X1\r\n      VEC(2) = ECPT(ISUB+1) - Y1\r\n      VEC(3) = ECPT(ISUB+2) - Z1\r\n      XX(IXX)= VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3)\r\n      VVEC(1)= VECI(2)*VEC(3) - VECI(3)*VEC(2)\r\n      VVEC(2)= VECI(3)*VEC(1) - VECI(1)*VEC(3)\r\n      VVEC(3)= VECI(1)*VEC(2) - VECI(2)*VEC(1)\r\n      XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n   30 CONTINUE\r\n      GO TO 150\r\nC\r\nC     INAPPROPRIATE GEOMETRY\r\nC\r\n   40 CALL MESAGE (-30,31,ECPT(1))\r\nC\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n  150 TTH    = TH*3.1415927/180.\r\n      SINTH  = SIN(TTH)\r\n      COSTH  = COS(TTH)\r\n      ELTEMP = TTEMP\r\n      INFLAG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (ECPT(1))\r\n      DO 160 I = 1,3\r\n  160 G(I) = QQ(I)\r\n      G(4) = QQ(2)\r\n      G(5) = QQ(4)\r\n      G(6) = QQ(5)\r\n      G(7) = QQ(3)\r\n      G(8) = QQ(5)\r\n      G(9) = QQ(6)\r\nC\r\nC     STORE G MATRIX IN PH1OUT\r\nC\r\n      DO 200 I = 1,9\r\n  200 PH1OUT(I+62) = G(I)\r\nC\r\nC     COMPUTE AND STORE TRANSFORMATION MATRICES IF NECESSARY\r\nC\r\n      DO 220 I = 1,8\r\n      ISUB = 4*I + 10\r\n      IF (NECPT(ISUB) .EQ. 0)GO TO 205\r\n      CALL TRANSS (NECPT(ISUB),TB)\r\n      CALL GMMATS (E1T,2,3,0,TB,3,3,0,TSAVE)\r\n      GO TO 211\r\n  205 DO 210 J = 1,6\r\n      TSAVE(J) = E1T(J)\r\n  210 CONTINUE\r\n  211 K = 6*I + 7\r\n      DO 215 J = 1,6\r\n      KK = K + J\r\n      PH1OUT(KK) = TSAVE(J)\r\n  215 CONTINUE\r\n  220 CONTINUE\r\nC\r\nC     START MAJOR LOOP\r\nC\r\n      PT(1) = -0.57735027\r\n      PT(2) = -PT(1)\r\n      IF (ID1 .EQ. 2) GO TO 221\r\n      PT(1) = -0.77459667\r\n      PT(2) =  0.\r\n      PT(3) = -PT(1)\r\n  221 L = 0\r\n      DO 380 III = 1,ID1\r\n      DO 380 JJJ = 1,ID1\r\n      L = L + 1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X AND Y EACH GRID POINT\r\nC\r\n      DO 230 N = 1,4\r\n      DNXI(N) = .25*XI(N)*(1.+PT(JJJ)*ETA(N))*\r\n     1                    (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N) = .25*ETA(N)*(1.+PT(III)*XI(N))*\r\n     1                    (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N))\r\n  230 CONTINUE\r\nC\r\n      DO 231 N = 5,7,2\r\n      DNXI(N) = -PT(III)*(1.+PT(JJJ)*ETA(N))\r\n      DNETA(N)= .5*(1.-PT(III)*PT(III))*ETA(N)\r\n  231 CONTINUE\r\nC\r\n      DO 232 N = 6,8,2\r\n      DNXI(N) =.5*XI(N)*(1.-PT(JJJ)*PT(JJJ))\r\n      DNETA(N)= -PT(JJJ)*(1.+PT(III)*XI(N))\r\n  232 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATS (DNC,2,8,0,XX,8,2,0,XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 240 I = 1,2\r\n      DO 240 J = 1,2\r\n      K = K + 1\r\n  240 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1))\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z\r\nC\r\n      K = 0\r\n      DO 250 I = 1,2\r\n      DO 250 J = 1,2\r\n      K = K + 1\r\n  250 XJB(K) = XXJB(I,J)\r\n      CALL GMMATS (XJB,2,2,0,DNC,2,8,0,DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\nC\r\nC     STORE DERIVATIVES IN PH1OUT\r\nC\r\n      K = 16*L + 55\r\n      DO 370 I = 1,16\r\n      KK = K + I\r\n      PH1OUT(KK) = DNL(I)\r\n  370 CONTINUE\r\nC\r\nC     LOOP FOR OTHER GRID POINTS\r\nC\r\n  380 CONTINUE\r\n      PH1OUT(1) = ECPT(1)\r\n      DO 390 I = 1,8\r\n  390 PH1OUT(I+1) = ECPT(I+1)\r\n      PH1OUT(10 ) = TREF\r\nC\r\nC     COMPUTE VECTOR FOR THERMAL EXPANSION\r\nC\r\n      ALPHAS(1) = ALPHA1\r\n      ALPHAS(2) = ALPHA2\r\n      ALPHAS(3) = ALP12\r\nC\r\n      CALL GMMATS (G,3,3,0,ALPHAS,3,1,0,PH1OUT(11))\r\nC\r\n      NPH1(62) = ID1\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ss2d82.f",
    "content": "      SUBROUTINE SS2D82 (IEQEX,NEQEX,TGRID)\r\nC\r\nC     PHASE 2 OF STRESS DATA RECOVERY FOR 2-D, 8 GRID POINT\r\nC     ISOPARAMETRIC STRUCTURAL ELEMENT\r\nC\r\nC     PH1OUT CONTAINS THE FOLLOWING\r\nC     ELEMENT ID\r\nC     8 SILS\r\nC     TREF\r\nC     ST ARRAY\r\nC     TRANSFORMATION MATRIX FROM GLOBAL TO ELEMENT COORDINATES\r\nC     COORD SYSTEM ID FOR STRESS OUTPUT\r\nC     G MATRIX\r\nC     DNX,DNY AT EACH GRID POINT -EVALUATED 8 TIMES\r\nC\r\nC\r\n      DIMENSION       TGRID(8),ST(3),TA(48),G(9),B(9),DB(72),DISP(24),\r\n     1                SIG(3),BB(72),DNX(8),DNY(8),TB(6),TEMP(9),\r\n     2                ISTRES(3),NSIL(1),NPH1(1),DN(8),XI(8),ETA(8),\r\n     3                PT(3),EX2D82(32),EX2D83(72),SIGS(27),SIGT(24),\r\n     4                IZ(1),STRESS(43)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM\r\n      COMMON /SDR2X7/ PH1OUT(100),STR(250),FORVEC(250)\r\n      COMMON /SDR2X8/ DISP,DNX,DNY,DNZ,B,TB,BB,DB,SIG,IBASE,NSTRT,NPT,\r\n     1                IS,IDTEMP\r\n      EQUIVALENCE     (PH1OUT(1),NPH1(1)),(PH1OUT(1),ID),\r\n     1                (NSIL(1),PH1OUT(2)),(TREF,PH1OUT(10)),\r\n     2                (ST(1),PH1OUT(11)),(TA(1),PH1OUT(14)),\r\n     3                (G(1),PH1OUT(63)),(PH1OUT(62),ID1),\r\n     4                (ISTRES(1),STRESS(1)),(LDTEMP,ELTEMP),\r\n     5                (Z(1),IZ(1))\r\n      DATA    EX2D82/\r\n     1 1.86603,-.50000,-.50000, .13397,-.50000, .13397,1.86603,-.50000,\r\n     2  .13397,-.50000,-.50000,1.86603,-.50000,1.86603, .13397,-.50000,\r\n     3  .68301,-.18301, .68301,-.18301,-.18301,-.18301, .68301, .68301,\r\n     4 -.18301, .68301,-.18301, .68301, .68301, .68301,-.18301,-.18301/\r\n      DATA    EX2D83/\r\n     1 2.18694,-.98589, .27778,-.98589, .44444,-.12522, .27778,-.12522,\r\n     2  .03528, .27778,-.12522, .03528,-.98589, .44444,-.12522,2.18694,\r\n     3 -.98589, .27778, .03528,-.12522, .27778,-.12522, .44444,-.98589,\r\n     4  .27778,-.98589,2.18694, .27778,-.98589,2.18694,-.12522, .44444,\r\n     5 -.98589, .03528,-.12522, .27778,-.00000,0.00000,-.00000,1.47883,\r\n     6 -.66667, .18784, .00000,-.00000,-.00000,-.00000, .18784, .00000,\r\n     7 -.00000,-.66667,-.00000, .00000,1.47883, .00000,-.00000,0.00000,\r\n     8  .00000, .18784,-.66667,1.47883, .00000,-.00000, .00000,-.00000,\r\n     9 1.47883, .00000,-.00000,-.66667,-.00000,-.00000, .18784,0.00000/\r\n      DATA    XI    / -1., 1., 1.,-1., 0., 1., 0.,-1./\r\n      DATA    ETA   / -1.,-1., 1., 1.,-1., 0., 1., 0./\r\nC\r\nC     SET UP DISPLACEMENTS FOR THIS ELEMENT\r\nC\r\n      IS  = 0\r\n      DO 10 I = 1,8\r\n      NSTRT = IVEC + NSIL(I) - 1\r\n      DO 10 J = 1,3\r\n      IS  = IS + 1\r\n      NPT = NSTRT + J - 1\r\n      DISP(IS) = Z(NPT)\r\n   10 CONTINUE\r\nC\r\nC     INITIALIZE SOME MATRICES\r\nC\r\n      DO 30 I = 1,72\r\n   30 BB(I) = 0.\r\nC\r\nC     SET UP INDICATOR FOR GRID POINT TEMPERATURES\r\nC\r\n      IDTEMP = 0\r\n      DO 40 I = 1,8\r\n      IF (TGRID(I) .NE. 0.) GO TO 50\r\n   40 CONTINUE\r\n      GO TO 60\r\n   50 IDTEMP = 1\r\nC\r\nC     START LOOPING FOR STRESSES\r\nC\r\n   60 IDN = 4\r\n      IF (ID1 .EQ. 3) IDN = 9\r\n      III = 0\r\n      PT(1) = -0.57735027\r\n      PT(2) = -PT(1)\r\n      IF (ID1 .EQ. 2) GO TO 133\r\n      PT(1) = -0.77459667\r\n      PT(2) = 0.\r\n      PT(3) = -PT(1)\r\n  133 DO 135 JII = 1,ID1\r\n      DO 135 JJJ = 1,ID1\r\n      III = III + 1\r\nC\r\nC     COMPUTE BASE POINTER FOR PICKING UP DERIVATIVES\r\nC\r\n      IBASE = 71 + 16*(III-1)\r\nC\r\n      DO 70 N = 1,8\r\n      NX = N + IBASE\r\n      NY = N + IBASE + 8\r\n      DNX(N) = PH1OUT(NX)\r\n      DNY(N) = PH1OUT(NY)\r\n   70 CONTINUE\r\nC\r\n      DO 130 N = 1,8\r\nC\r\nC     SET UP THE B MATRIX\r\nC\r\n      DO 75 I = 1,9\r\n      TEMP(I) = 0.\r\n   75 B(I) = 0.\r\n      B(1) = DNX(N)\r\n      B(4) = DNY(N)\r\n      B(5) = DNY(N)\r\n      B(6) = DNX(N)\r\nC\r\nC     TRANSFORM TO ELEMENT COORDINATES\r\nC\r\n      KK = 6*N - 6\r\n      DO 80 I = 1,6\r\n      K  = KK + I\r\n      TB(I) = TA(K)\r\n   80 CONTINUE\r\n      CALL GMMATS (B,3,2,0,TB,2,3,0,TEMP(1))\r\n      N3 = 3*N\r\n      BB(N3- 2) = TEMP(1)\r\n      BB(N3- 1) = TEMP(2)\r\n      BB(N3   ) = TEMP(3)\r\n      BB(N3+22) = TEMP(4)\r\n      BB(N3+23) = TEMP(5)\r\n      BB(N3+24) = TEMP(6)\r\n      BB(N3+46) = TEMP(7)\r\n      BB(N3+47) = TEMP(8)\r\n      BB(N3+48) = TEMP(9)\r\n  130 CONTINUE\r\nC\r\nC     BRING IN G MATRIX\r\nC\r\n      CALL GMMATS (G,3,3,0,BB,3,24,0,DB)\r\nC\r\nC     COMPUTE STRESSES\r\nC\r\n      CALL GMMATS (DB,3,24,0,DISP,24,1,0,SIG)\r\nC\r\nC     STORE GAUSS POINT STRESSES INTO SIGT\r\nC\r\n      I3 = 3*(III-1)\r\n      DO 131 I = 1,3\r\n      ISUB = I3 + I\r\n      SIGS(ISUB) = SIG(I)\r\n  131 CONTINUE\r\nC\r\nC     COMPUTE GAUSS POINT  TEMPERATURES\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 135\r\n      IF (IDTEMP .EQ.  1) GO TO 229\r\n      RGTEMP = ELTEMP - TREF\r\n      GO TO 250\r\nC\r\nC     ALL TEMPERATURES ARE DEFAULT VALUE\r\nC\r\n  229 DO 230 N = 1,4\r\n      DN(N) = .25*(1.+PT(JII)*XI(N))*(1.+PT(JJJ)*ETA(N))\r\n     1           *(PT(JII)*XI(N)+PT(JJJ)*ETA(N)-1.)\r\n  230 CONTINUE\r\n      DO 231 N = 5,7,2\r\n      DN(N) = .5*(1.-PT(JII)*PT(JII))*(1.+PT(JJJ)*ETA(N))\r\n  231 CONTINUE\r\n      DO 232 N = 6,8,2\r\n      DN(N) = .5*(1.+PT(JII)*XI(N))*(1.-PT(JJJ)*PT(JJJ))\r\n  232 CONTINUE\r\n      GSTEMP = 0.\r\n      DO 240 N = 1,8\r\n      GSTEMP = GSTEMP + DN(N)*TGRID(N)\r\n  240 CONTINUE\r\n      RGTEMP = GSTEMP - TREF\r\n  250 CONTINUE\r\n      DO 260 I = 1,3\r\n      ISUB = I3 + I\r\n      SIGS(ISUB) = SIGS(ISUB) - ST(I)*RGTEMP\r\n  260 CONTINUE\r\nC\r\n  135 CONTINUE\r\nC\r\nC     MULTIPLY BY TRANSFORMATION FROM GAUSS POINTS TO GRID POINTS\r\nC\r\n      IF (ID1 .EQ. 2) CALL GMMATS (EX2D82,8,4,0,SIGS,4,3,0,SIGT)\r\n      IF (ID1 .EQ. 3) CALL GMMATS (EX2D83,8,9,0,SIGS,9,3,0,SIGT)\r\nC\r\nC     FINISH UP\r\nC\r\n      DO 500 III = 1,8\r\nC\r\nC     MOVE A ROW OF SIGT INTO SIG\r\nC\r\n      I3 = 3*(III-1)\r\n      DO 132 I = 1,3\r\n      ISUB = I3 + I\r\n      SIG(I) = SIGT(ISUB)\r\n  132 CONTINUE\r\nC\r\nC     STORE STRESSES\r\nC\r\n      JSUB  = 5*(III-1) + 4\r\n      ISUB1 = IEQEX + 1\r\n      ISUB2 = IEQEX + NEQEX - 1\r\n      DO 161 JJJ = ISUB1,ISUB2,2\r\n      NS = IZ(JJJ)/10\r\n      IF (NS .NE. NSIL(III)) GO TO 161\r\n      ISTRES(JSUB) = IZ(JJJ-1)\r\n      GO TO 162\r\n  161 CONTINUE\r\n      CALL MESAGE (-30,164,IZ(JJJ))\r\n  162 CONTINUE\r\n      ISTRES(JSUB+1) = 0\r\n      DO 170 I = 1,3\r\n      JJSUB = JSUB + 1 + I\r\n      STRESS(JJSUB) = SIG(I)\r\n  170 CONTINUE\r\nC\r\nC     LOOP FOR OTHER GRID POINTS\r\nC\r\n  500 CONTINUE\r\nC\r\nC     FINISH UP\r\nC\r\nC     ELEMENT ID\r\nC\r\n      ISTRES(1) = ID\r\nC\r\nC     NUMBER OF GRID POINTS PER ELEMENT\r\nC\r\n      ISTRES(2) = 8\r\nC\r\nC     NUMBER OF STRESSES OUTPUT PER ELEMENT\r\nC\r\n      ISTRES(3) = 3\r\nC\r\n      DO 600 I = 1,43\r\n  600 STR(I) = STRESS(I)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg1.f",
    "content": "      SUBROUTINE SSG1\r\nC\r\n      INTEGER         PG,SLT,BGPDT,CSTM,SIL,ECPT,MPT,GPTT,EDT,CASECC,\r\n     1                CORE(166),SYSBUF,IWORD(4),MCB(7),SUBNAM(2)\r\n      DIMENSION       PG(7),ILIST(360),ARY(1),DEFML(2),IDEFML(2),\r\n     1                IARY(1),GVECT(1080)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /LOADX / LC,SLT,BGPDT,OLD,CSTM,SIL,ISIL,ECPT,MPT,GPTT,EDT,\r\n     1                N(3),LODC,MASS,NOBLD,IDIT,DUM6(6)\r\n      COMMON /BLANK / NROWSP,LOADNN\r\n      COMMON /SYSTEM/ SYSBUF,IOTPE,DUM53(53),ITHERM\r\n      COMMON /LOADS / NLOAD,IPTR\r\n      COMMON /ZZZZZZ/ ICORE(1)\r\n      EQUIVALENCE     (CORE(1),ICORE(1),IARY(1),ARY(1)),\r\n     1                (DEFML(1),IDEFML(1))\r\n      DATA    IWORD / 4,6,7,162/\r\n      DATA    SUBNAM/ 4HSSG1,4H    /\r\nC\r\nC     MODIFY OPEN CORE POINTER IPTR FOR MAGNETICS PROBLEM\r\nC\r\n      IPTR  = MAX0(NROWSP,166)\r\n      MCB(1)= 105\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .GT. 0) IPTR = MAX0(3*NROWSP,3*MCB(2),166)\r\nC\r\nC     INITIALIZE.\r\nC\r\n      LC    = KORSZ(ICORE(1))\r\n      NLLST = LC - 2*SYSBUF\r\n      SLT   = 101\r\n      BGPDT = 102\r\n      CSTM  = 103\r\n      SIL   = 104\r\n      ECPT  = 105\r\n      MPT   = 106\r\n      GPTT  = 107\r\n      EDT   = 108\r\n      MASS  = 109\r\n      CASECC= 110\r\n      IDIT  = 111\r\n      LODC  = 201\r\nC             205 = NEWSLT (THERMAL)\r\n      PG(1) = 301\r\n      ICR2  = 302\r\n      ICR3  = 303\r\n      DO 10 I = 2,7\r\n   10 PG(I) = 0\r\n      PG(3) = NROWSP\r\n      PG(4) = 2\r\n      PG(5) = 1\r\nC\r\nC     AVOID CALCULATING UNUSED LOADS\r\nC\r\nC     NEDT  = NUMBER OF ELEMENT  DEFORMATIONS\r\nC     NTEMP = NUMBER OF THERMAL LOADS\r\nC     NCENT = NUMBER OF CENTRIFUGAL LOADS\r\nC\r\n      CALL SSG1A (N1,ILIST(1),NEDT,NTEMP,NCENT,CASECC,IHARM)\r\n      N1A = N1 + 1\r\n      LC  = LC - SYSBUF\r\n      CALL OPEN (*310,PG(1),ICORE(LC+1),1)\r\n      CALL WRITE (PG(1),PG(1),2,1)\r\n      NGRAV = 0\r\n      NEX   = N1 + NTEMP + NEDT + NCENT\r\n      IF (N1 .EQ. 0) GO TO 21\r\nC\r\nC     MODIFY SLT -QVOL-, -QBDY1-, -QBDY2-, AND -QVECT- CARDS.\r\nC\r\n      NEWSLT = ICR3\r\n      IF (ITHERM .NE. 0) NEWSLT = 205\r\n      ISLT = SLT\r\n      CALL SSGSLT (SLT,NEWSLT,ECPT)\r\n      SLT = NEWSLT\r\n      CALL EXTERN (NEX,NGRAV,GVECT(1),ILIST(1),PG(1),N1,IHARM)\r\nC\r\nC     RESET -SLT- TO ORIGINAL SLT DATA BLOCK\r\nC\r\n      SLT = ISLT\r\n      N1  = N1 - NGRAV\r\n   21 IF (NTEMP) 30,40,30\r\n   30 CALL TEMPL (NTEMP,ILIST(N1+1),PG(1))\r\n      N1 = N1 + NTEMP\r\n   40 IF (NEDT) 50,60,50\r\n   50 CALL EDTL (NEDT,ILIST(N1+1),PG(1))\r\n      N1 = N1 + NEDT\r\n   60 CALL CLOSE (PG,1)\r\n      CALL WRTTRL (PG(1))\r\n      IF (NGRAV) 90,100,90\r\n   90 CONTINUE\r\nC\r\nC     CHECK TO SEE IF THE MASS MATRIX IS PURGED\r\nC\r\n      MCB(1) = MASS\r\n      CALL RDTRL (MCB(1))\r\n      IF (MCB(1) .LE. 0) CALL MESAGE (-56,0,IWORD)\r\n      CALL GRAVL1 (NGRAV,GVECT(1),ICR2,IHARM)\r\nC\r\nC     USE LOAD FILE AS SCRATCH NOTHING ON IT NOW\r\nC\r\n      CALL SSG2B (MASS,ICR2,0,ICR3,0,1,1,LODC)\r\n      CALL GRAVL2 (NGRAV,ICR3,PG(1))\r\n      N1 = N1 + NGRAV\r\n  100 IPONT1 = IPTR + 2\r\n      IPONT  = IPTR + 1\r\n      NLOAD  = 0\r\n      DO 110 I = 1,NLLST\r\n  110 IARY(I) = 0\r\n      CALL OPEN (*320,CASECC,ICORE(LC+1),0)\r\n      LC1  = LC - SYSBUF\r\n      ISLT = 0\r\n      CALL OPEN (*130,SLT,ICORE(LC1+1),0)\r\n      ISLT = 1\r\n      DO 120 I = 1,N1A\r\n      CALL FWDREC (*270,SLT)\r\n  120 CONTINUE\r\n  130 DO 140 I = 1,LOADNN\r\n      CALL FWDREC (*320,CASECC)\r\n  140 CONTINUE\r\n      IFRST = 0\r\n  150 CALL READ (*250,*250,CASECC,CORE(1),166,1,FLAG)\r\n      IF (IFRST .NE. 0) GO TO 151\r\n      IFRST = 1\r\n      ISPCN = CORE(3)\r\n      MPCN  = CORE(2)\r\n  151 CONTINUE\r\nC\r\nC     TEST FOR SYMMETRY, BUCKLING OR DIFFERENTIAL STIFFNESS.\r\nC\r\n      IF (CORE(16).NE.0 .OR. CORE(5).NE.0 .OR. CORE(138).NE.0) GO TO 150\r\n      IF (CORE(3).NE.ISPCN .OR. CORE(2).NE.MPCN) GO TO 250\r\n      INULL = 0\r\n      DO 230 K = 1,4\r\n      I = IWORD(K)\r\n      IF (ITHERM.NE.0 .AND. I.EQ.7) GO TO 230\r\n      IF (CORE(I) .EQ. 0) GO TO 230\r\n      DO 160 J = 1,N1\r\n      IF (CORE(I) .EQ. ILIST(J)) GO TO 220\r\n  160 CONTINUE\r\nC\r\nC     COMBINATION CARD\r\nC\r\n      INULL = 1\r\n  170 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG)\r\n      IF (CORE(I) .EQ. IDEFML(1)) GO TO 190\r\n  180 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG)\r\n      IF (IDEFML(2) .EQ. -1) GO TO 170\r\n      GO TO 180\r\n  190 A = DEFML(2)\r\n  200 CALL READ (*270,*330,SLT,IDEFML(1),2,0,IFLAG)\r\n      IF (IDEFML(2) .EQ.  -1) GO TO 210\r\n      IF (IPONT+1 .GT. NLLST) GO TO 340\r\n      IARY(IPONT  ) = IARY(IPONT) + 1\r\n      IARY(IPONT1 ) = IDEFML(2)\r\n      ARY(IPONT1+1) = A*DEFML(1)\r\n      IPONT1 = IPONT1 + 2\r\n      GO TO 200\r\n  210 CALL BCKREC (SLT)\r\n      GO TO 230\r\n  220 IARY(IPONT) = IARY(IPONT) + 1\r\n      IF (IPONT+1 .GT. NLLST) GO TO 340\r\n      IARY(IPONT1 ) = CORE(I)\r\n      ARY(IPONT1+1) = 1.0\r\n      IPONT1 = IPONT1 + 2\r\n      INULL  = 1\r\n  230 CONTINUE\r\n      IF (INULL .EQ. 0) GO TO 260\r\n  240 IPONT = IPONT + IARY(IPONT)*2 + 1\r\n      NLOAD = NLOAD + 1\r\n      IPONT1= IPONT1+ 1\r\n      GO TO 150\r\n  250 CALL CLOSE (CASECC,1)\r\n      IF (ISLT .EQ. 1) CALL CLOSE (SLT,1)\r\n      CALL COMBIN (PG(1),ILIST(1),N1)\r\n      RETURN\r\nC\r\n  260 IARY(IPONT) = 1\r\n      IF (IPONT+1 .GT. NLLST) GO TO 340\r\n      IARY(IPONT1 ) =-1\r\n      ARY(IPONT1+1) = 1.0\r\n      IPONT1 = IPONT1 + 2\r\n      GO TO 240\r\nC\r\n  270 IP1 = SLT\r\n  280 IP2 =-1\r\n  290 CALL MESAGE (IP2,IP1,SUBNAM)\r\n      IP1 = CASECC\r\n      GO TO 280\r\n  310 IP1 = PG(1)\r\n      GO TO 280\r\n  320 IP1 = CASECC\r\n      GO TO 280\r\n  330 IP2 =-2\r\n      IP1 = SLT\r\n      GO TO 290\r\nC\r\n  340 I = ICORE(I)\r\n      NWDS = 0\r\n  350 CALL READ (*330,*360,SLT,CORE(1),LC,0,IFLAG)\r\n      NWDS = NWDS + LC\r\n      GO TO 350\r\n  360 NWDS = NWDS + IFLAG\r\n      WRITE  (IOTPE,370) UFM,I,NLLST,NWDS\r\n  370 FORMAT (A23,' 3176, INSUFFICIENT OPEN CORE AVAILABLE TO PROCESS ',\r\n     1       'ALL LOAD CARD COMBINATIONS IN MODULE SSG1.',\r\n     2       /32X,'CURRENT LOAD ID BEING PROCESSED IS',I9,1H.,\r\n     3       /32X,'OPEN CORE AVAILABLE IS',I9,' WORDS.',\r\n     4       /32X,'ADDITIONAL OPEN CORE REQUIRED IS',I9,' WORDS.')\r\n      IP1 = 0\r\n      IP2 =-61\r\n      GO TO 290\r\n      END\r\n"
  },
  {
    "path": "mis/ssg1a.f",
    "content": "      SUBROUTINE SSG1A (N1,ILIST,NEDT,NTEMP,NCENT,CASECC,IHARM)\r\nC\r\nC     ROUTINE ANALIZES CASECC AND SLT TO BUILD LISTS OF SELECTED\r\nC     LOADS\r\nC\r\n      INTEGER         SYSTEM,SLT,BGPDT,CSTM,SIL,ECPT,MPT,GPTT,EDT,\r\n     1                CASECC,CORE(138),NAME(2),NAME1(2),ILIST(1),\r\n     2                IDEFML(1080),ITEMPL(1080),ICOMB(1080)\r\n      COMMON /LOADX / LC,SLT,BGPDT,OLD,CSTM,SIL,ISIL,ECPT,MPT,GPTT,EDT,\r\n     1                N(3),LODC,MASS,NOBLD\r\n      COMMON /BLANK / NROWSP,LOADNN\r\n      COMMON /SYSTEM/ SYSTEM,NOUT,DUM53(53),ITHERM\r\n      COMMON /ZZZZZZ/ ICORE(1)\r\n      EQUIVALENCE     (ICORE(1),CORE(1))\r\n      DATA    NAME  / 4HSSG1,4HA   /\r\n      DATA    NAME1 / 4HSLT ,4HSSG1/\r\nC\r\nC\r\nC     INITIALIZE.\r\nC\r\n      NEDT  = 0\r\n      NTEMP = 0\r\n      NCENT = 0\r\n      IFOUND= 0\r\n      N1    = 0\r\n      LC1   = LC - SYSTEM\r\n      ISLT  = 0\r\n      CALL OPEN (*20,SLT,CORE(LC1+1),0)\r\n      ISLT = 1\r\n      CALL READ (*320,*10,SLT,ILIST(1), -2,0,N1)\r\n      CALL READ (*320,*10,SLT,ILIST(1),LC1,1,N1)\r\nC\r\nC     ALLOW FOR 360 LOADS\r\nC\r\n   10 IF (N1 .LE. 360) GO TO 12\r\n      NAME(2) = N1\r\n      CALL MESAGE (-30,137,NAME)\r\n   12 LC1   = LC1 - SYSTEM\r\n      LLIST = N1\r\n   20 CALL OPEN (*350,CASECC,CORE(LC1+1),0)\r\n      IONE  = 0\r\n      DO 30 I = 1,LOADNN\r\n   30 CALL FWDREC (*350,CASECC)\r\n      IFRST = 0\r\n   40 CALL READ (*110,*350,CASECC,CORE(1),166,1,FLAG)\r\n      IF (IFRST .NE. 0) GO TO 41\r\n      IFRST = 1\r\n      ISPCN = CORE(3)\r\n      MPCN  = CORE(2)\r\nC\r\nC     TEST FOR SYMMETRY BUCKLING, OR DIFFERENTIAL STIFFNESS\r\nC\r\n   41 IF (CORE(16).NE.0 .OR. CORE(5).NE.0 .OR. CORE(138).NE.0) GO TO 40\r\n      IF (CORE(2).NE.MPCN .OR. CORE(3).NE.ISPCN) GO TO 110\r\n      IHARM  = CORE(136)\r\n      IONE   = 1\r\n      IF (CORE(6) .EQ. 0) GO TO 50\r\nC\r\nC     SEE IF EL DEFORM LOAD ALREADY APPLIED\r\nC\r\n      IF (NEDT .EQ. 0) GO TO 52\r\n      DO 51 I = 1,NEDT\r\n      IF (IDEFML(I) .EQ. CORE(6)) GO TO 50\r\n   51 CONTINUE\r\nC\r\nC     ADD TO LIST\r\nC\r\n   52 CONTINUE\r\n      NEDT = NEDT + 1\r\n      IDEFML(NEDT) = CORE(6)\r\n   50 IF (CORE(7) .EQ. 0) GO TO 60\r\nC\r\nC     SEE IF TEMP LOAD ALREADY APPLIED\r\nC\r\n      IF (ITHERM .NE. 0) GO TO 60\r\n      IF (NTEMP  .EQ. 0) GO TO 54\r\n      DO 53 I = 1,NTEMP\r\n      IF (ITEMPL(I) .EQ. CORE(7)) GO TO 60\r\n   53 CONTINUE\r\n   54 CONTINUE\r\n      NTEMP = NTEMP + 1\r\n      ITEMPL(NTEMP) = CORE(7)\r\n   60 IF (CORE(4) .EQ. 0) GO TO 40\r\n      IF (ISLT .EQ. 0) CALL MESAGE (-31,CORE(4),NAME1)\r\n      IF (N1   .EQ. 0) GO TO 90\r\n      DO 80 I = 1,N1\r\n      IF (CORE(4) .EQ. IABS(ILIST(I))) GO TO 100\r\n   80 CONTINUE\r\nC\r\nC     MUST LOOK AT LOAD CARDS\r\nC\r\n   90 IFOUND = IFOUND + 1\r\n      ICOMB(IFOUND) = CORE(4)\r\n      GO TO 40\r\n  100 ILIST (I) = -IABS(ILIST(I))\r\n      GO TO 40\r\n  110 CALL CLOSE (CASECC,1)\r\n      IF (IONE  .EQ. 0) GO TO 360\r\n      IF (NTEMP .EQ. 0) GO TO 130\r\n      DO 120 I = 1,NTEMP\r\n      J = N1 + I\r\n  120 ILIST(J) = ITEMPL (I)\r\n  130 IF(NEDT .EQ. 0) GO TO 150\r\n      DO 140 I = 1,NEDT\r\n      J = N1 + NTEMP + I\r\n  140 ILIST(J) = IDEFML(I)\r\n  150 IF (IFOUND .EQ. 0) GO TO 270\r\nC\r\nC     LOOK AT LOAD CARDS\r\nC\r\n      DO 180 I = 1,N1\r\n      CALL FWDREC (*320,SLT)\r\n  180 CONTINUE\r\n      I = 1\r\n      NOGO = 0\r\n      CALL READ (*370,*190,SLT,CORE(1),LC1,1,IFLAG)\r\n  190 LLIST = N1 + NEDT + NTEMP\r\n      IF (LLIST .EQ. 0) GO TO 370\r\n      DO 260 I = 1,IFOUND\r\n      J = 1\r\n  200 IF (ICOMB(I) .EQ. CORE(J)) GO TO 220\r\n      J = J + 6\r\n  210 IF (J-1 .GT. IFLAG) GO TO 255\r\n      IF (CORE(J-1) .EQ. -1) GO TO 200\r\n      J = J + 2\r\n      GO TO 210\r\n  220 J = J + 3\r\n  230 IF (CORE(J) .EQ. -1) GO TO 260\r\n      DO 250 K = 1,LLIST\r\n      IF (CORE(J) .NE. IABS(ILIST(K))) GO TO 250\r\n      ILIST(K) = -IABS(ILIST(K))\r\n      J = J + 2\r\n      GO TO 230\r\n  250 CONTINUE\r\n  255 CALL MESAGE (31,ICOMB(I),NAME1)\r\n      NOGO = 1\r\n  260 CONTINUE\r\n      IF (NOGO .NE. 0) GO TO 390\r\n  270 IF (ISLT .NE. 0) CALL CLOSE (SLT,1)\r\n      IF (N1 .EQ. 0) GO TO 310\r\n      DO 300 I = 1,N1\r\n      IF (ILIST (I)) 290,300,280\r\n  280 ILIST (I) = 0\r\n      GO TO 300\r\n  290 ILIST (I) = -ILIST(I)\r\n  300 CONTINUE\r\n  310 RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n  320 IP1 = SLT\r\n  330 IP2 = -1\r\n      CALL MESAGE (IP2,IP1,NAME)\r\n  350 IP1 = CASECC\r\n      GO TO 330\r\n  360 WRITE  (NOUT,365)\r\n  365 FORMAT ('0*** MISSING LOAD CARD IN CASE CONTROL')\r\n      CALL MESAGE (-7,0,NAME)\r\n  370 IP2 = 31\r\n      DO 380 I = 1,IFOUND\r\n      IP1 = ICOMB(I)\r\n      CALL MESAGE (IP2,IP1,NAME1)\r\n  380 CONTINUE\r\n  390 CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ssg2.f",
    "content": "      SUBROUTINE SSG2\r\nC\r\nC     MULTI  = 0  IMPLIES NO MULTI-POINT CONSTRAINTS PN = PG\r\nC\r\nC     SINGLE = 0  IMPLIES NO SINGLE POINT CONSTRAINTS PF = PN\r\nC\r\nC     OMIT   = 0  IMPLIES NO OMITTED POINTS PA = PF\r\nC\r\nC     REACT  = 0  IMPLIES NO FREE BODY PROBLEM PL = PA\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         USET,GM,KFS,GO,PNBAR,PG,PM,PO,PA,SINGLE,OMIT,\r\n     1                PVECT,PS,D,PL,PR,QR,REACT,UM,UN,UG,US,UF,UO,UA,\r\n     2                UL,UR,PF,PABAR,PN,PFBAR,ANDF,YS,IA(7),USET1,SR4\r\n      DIMENSION       CORE(1)\r\n      COMMON /SYSTEM/ DUM54(54),IPREC\r\n      COMMON /PATX  / LC,N,NO,N4,USET1,IBC\r\n      COMMON /BLANK / SINGLE\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /ZZZZZZ/ CORE\r\nC\r\n      DATA    USET  , GM    ,KFS   ,GO    ,PNBAR ,PM    ,PO    ,PN    /\r\n     1        101   , 102   ,104   ,105   ,302   ,303   ,202   ,204   /\r\n      DATA    PFBAR , PF    ,PABAR ,PA    ,PS    ,D     ,PL    ,PR    /\r\n     1        302   , 204   ,302   ,204   ,203   ,106   ,204   ,302   /\r\n      DATA    QR    , PVECT ,YS    ,PG    ,SR4   /\r\n     1        201   , 301   ,103   ,107   ,304   /\r\nC\r\nC\r\n      PNBAR = 302\r\n      PN    = 204\r\n      PR    = 302\r\n      PF    = 204\r\n      PA    = 204\r\n      LC    = KORSZ(CORE)\r\nC\r\nC     DECIDE IF MULTI,SINGLE,OMIT,REACT ARE 1 OR ZERO\r\nC\r\n      IA(1) = USET\r\n      USET1 = USET\r\n      CALL RDTRL (IA)\r\n      MULTI = ANDF(IA(5),TWO1(UM))\r\n      SINGLE= ANDF(IA(5),TWO1(US))\r\n      OMIT  = ANDF(IA(5),TWO1(UO))\r\n      REACT = ANDF(IA(5),TWO1(UR))\r\n      IF (REACT .LE. 0) GO TO 10\r\n      IF (.NOT.(MULTI.GT.0 .AND. SINGLE.EQ.0 .AND. OMIT.EQ.0)) GO TO 5\r\n      PNBAR = 204\r\n      PN    = 302\r\n      PR    = 303\r\n      GO TO 20\r\n    5 CONTINUE\r\n      PF    = 201\r\n      PA    = 303\r\n   10 IF (MULTI) 20,30,20\r\nC\r\n   20 CALL CALCV (PVECT,UG,UN,UM,CORE(1))\r\n      CALL SSG2A (PG,PNBAR,PM,PVECT)\r\n      CALL SSG2B (GM,PM,PNBAR,PN,1,IPREC,1,SR4)\r\n      GO TO 40\r\nC\r\n   30 PN = PG\r\n   40 IF (SINGLE) 50,70,50\r\n   50 CALL CALCV (PVECT,UN,UF,US,CORE(1))\r\n      CALL SSG2A (PN,PFBAR,PS,PVECT)\r\n      CALL SSG2B (KFS,YS,PFBAR,PF,0,IPREC,0,SR4)\r\n      GO TO 80\r\n   70 PF = PN\r\n   80 IF (OMIT) 90,100,90\r\nC\r\n   90 CALL CALCV (PVECT,UF,UA,UO,CORE(1))\r\n      CALL SSG2A (PF,PABAR,PO,PVECT)\r\n      CALL SSG2B (GO,PO,PABAR,PA,1,IPREC,1,SR4)\r\n      GO TO 110\r\n  100 PA = PF\r\n  110 IF (REACT) 120,130,120\r\nC\r\n  120 CALL CALCV (PVECT,UA,UL,UR,CORE(1))\r\n      CALL SSG2A (PA,PL,PR,PVECT)\r\n      CALL SSG2B (D,PL,PR,QR,1,IPREC,-1,SR4)\r\n  130 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg2a.f",
    "content": "      SUBROUTINE SSG2A (PG,PNBAR,PM,PVACT)\r\nC\r\n      INTEGER         PG,PNBAR,PM,PVACT,RULE,PVECT(7),CORE(6)\r\n      COMMON /PARMEG/ IA1(7),IA11(7),IA12(7),IA21(7),IA22(7),LCR,RULE\r\n      COMMON /PATX  / LCORE,N,NO(4)\r\n      COMMON /ZZZZZZ/ ICORE(1)\r\n      EQUIVALENCE     (ICORE(1),CORE(1))\r\nC\r\nC\r\n      PVECT(1)= PVACT\r\n      CALL RDTRL (PVECT)\r\n      IA1(1)  = PG\r\n      CALL RDTRL (IA1)\r\n      IA11(1) = PNBAR\r\n      IA12(1) = PM\r\n      DO 10 I = 2,5\r\n      IA11(I) = IA1(I)\r\n   10 IA12(I) = IA1(I)\r\n      IA11(3) = N\r\n      IA12(3) = NO(1)\r\n      IA21(1) = 0\r\n      IA22(1) = 0\r\n      RULE    = 0\r\n      LCR     = KORSZ(CORE)\r\n      CORE(1) = 0\r\n      CORE(2) = 1\r\n      CORE(3) = IA1(2)\r\n      CORE(4) = 2\r\n      CORE(5) = 1\r\n      CORE(6) = 0\r\n      CALL PARTN (CORE,PVECT,CORE)\r\n      IF (IA11(1) .NE. 0) CALL WRTTRL (IA11)\r\n      IF (IA12(1) .NE. 0) CALL WRTTRL (IA12)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg2b.f",
    "content": "      SUBROUTINE SSG2B (KFS,CDT,PABAR,SR1,T1,IPREC1,IA1,SR2)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /SYSTEM/ KSYSTM(55)\r\n      COMMON /MPYADX/ FILEA(7),FILEB(7),FILEC(7),FILED(7),NZ,T,I1,I2,\r\n     1                PREC,SCR2\r\n      EQUIVALENCE     (KSYSTM(55),KPREC1), (KSYSTM(1),SYSBUF),\r\n     1                (KSYSTM( 2),IOUTPT)\r\n      DATA    SQUARE, RECT,DIAG,SYMM,IDENT / 1,2,3,6,8 /\r\nC\r\n      PREC1 = MIN0(KPREC1,IPREC1)\r\n      IF (PREC1 .LE. 0) PREC1 = KPREC1\r\n      NZ = KORSZ(CORE)\r\n      DO 10 I = 1,21\r\n   10 FILEA(I) = 0\r\n      FILEA(1) = KFS\r\n      SCR2 = SR2\r\n      IF (IABS(IA1)-1) 40,20,30\r\n   20 I2 = IA1\r\n      I1 = IA1\r\n      GO TO 50\r\n   30 I2 =-1\r\n      I1 = 1\r\n      GO TO 50\r\n   40 I1 =-1\r\n      I2 = 1\r\n   50 CALL RDTRL (FILEA)\r\n      FILEB(1) = CDT\r\n      CALL RDTRL (FILEB)\r\n      IF (FILEB(1) .LE. 0) FILEB(4) = SYMM\r\n      FILEC(1) = PABAR\r\n      CALL RDTRL (FILEC)\r\n      IF (FILEC(1) .LE. 0) GO TO 70\r\n      IF (FILEC(2).EQ.FILEB(2) .OR. FILEB(1).LE.0) GO TO 80\r\n      WRITE (IOUTPT,60) SWM,FILEB(1),FILEB(3),FILEB(2),FILEB(3),FILEC(2)\r\n   60 FORMAT (A27,' 2363, SSG2B FORCED MPYAD COMPATIBILITY OF MATRIX ON'\r\n     1,       I5,8H, FROM (,I5,1H,,I5,7H), TO (,I5,1H,,I5,1H))\r\n      FILEB(2) = FILEC(2)\r\n      GO TO 80\r\n   70 FILEC(1) = 0\r\n      FILEC(4) = DIAG\r\n   80 FILED(4) = RECT\r\n      FILED(1) = SR1\r\nC\r\nC     COMPUTE TYPE OF OUTPUT\r\nC\r\n      IRC = 0\r\n      IF (FILEA(5).GT.2 .OR. FILEB(5).GT.2 .OR. (FILEC(5).GT.2 .AND.\r\n     1    FILEC(1).NE.0)) IRC = 2\r\n      FILED(5) = PREC1 + IRC\r\n      T = T1\r\n      PREC = PREC1\r\n      FILED(3) = FILEA(3)\r\n      IF (T .NE. 0) FILED(3) = FILEA(2)\r\n      IF (FILEA(1).LE.0 .OR. FILEB(1).LE.0) FILED(3) = FILEC(3)\r\n      CALL MPYAD (CORE,CORE,CORE)\r\n      IF (FILED(2).EQ.FILED(3) .AND. FILED(4).NE.SYMM) FILED(4) = SQUARE\r\n      IF (FILED(4).EQ.SYMM .OR. FILED(4).NE.SQUARE) GO TO 100\r\nC\r\nC     IF END RESULT IS A SYMMETRIC MATRIX, MAKE SURE THE FORM IS SET TO\r\nC     6 (SYMM). IT COULD SAVE CPU TIME LATER AND WORTH ONE FINAL CHECK.\r\nC\r\n      K = 0\r\n      DO 90 I = 1,21,7\r\n      IF (FILEA(I) .LE. 0) GO TO 90\r\n      J = FILEA(I+3)\r\n      IF (J.EQ.DIAG .AND. I.EQ.15   ) GO TO 90\r\n      IF (J.NE.SYMM .AND. J.NE.IDENT) GO TO 100\r\n      IF (J .EQ.  SYMM) K = K + 10\r\n      IF (J .EQ. IDENT) K = K + 1\r\n   90 CONTINUE\r\n      IF (K .GT.  0) FILED(4) = IDENT\r\n      IF (K .GE. 10) FILED(4) = SYMM\r\n  100 CALL WRTTRL (FILED)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg2c.f",
    "content": "      SUBROUTINE SSG2C (A,B,C,OP,BLOCK)\r\nC\r\n      INTEGER          A,B,C    ,OP       ,BLOCK(11),NA(2)    ,NB(2)\r\n      DIMENSION        IA(5)    ,IB(5)    ,IC(5)    ,IT(1)    ,IT1(1)\r\n      DOUBLE PRECISION DIT1\r\n      INTEGER          DT1(2)\r\n      CHARACTER        UFM*23   ,UWM*25\r\n      COMMON /XMSSG /  UFM      ,UWM\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /SADDX /  NOMAT    ,LCORE    ,MCBS(67)\r\n      COMMON /SYSTEM/  KSYSTM(65)\r\n      EQUIVALENCE      (DT1,DIT1)\r\n      EQUIVALENCE      (KSYSTM(55),IPR1)  ,(MCBS(1),IA(1))  ,\r\n     1                 (MCBS(8),IT(1),DIT),(MCBS(13),IB(1)) ,\r\n     2                 (MCBS(20),IT1(1)),(MCBS(61),IC(1)) ,\r\n     3                 (KSYSTM(2),NOUT)   ,(IA5,IA(5)) ,(IB5,IB(5))\r\nC\r\nC     BLOCK(6) WAS NOT USED IN ORIGINAL NASTRAN. IT IS NOW USED TO FLAG\r\nC     THE CHECKING OF THE INPUT MATRICES COMPATABILITY IF THE CALLER\r\nC     PRESETS BLOCK(6) TO -1\r\nC\r\n      IA(1) = A\r\n      CALL RDTRL (IA)\r\n      IF (IA(1) .LT. 0) IA(1) = 0\r\n      IB(1) = B\r\n      CALL RDTRL (IB)\r\n      IF (IB(1) .GT. 0) GO TO 10\r\n      IB(1) = 0\r\n      IF (IA(1)) 150,150,30\r\n   10 DO 20 I = 2,4\r\n   20 IC(I) = IB(I)\r\n      GO TO 50\r\n   30 DO 40 I = 2,4\r\n   40 IC(I) = IA(I)\r\nC\r\n   50 NOMIX = 0\r\n      IF (BLOCK(6) .NE. -1) GO TO 70\r\n      IF (IA5.EQ.0 .OR. IB5.EQ.0) GO TO 70\r\n      IF ((IA5.LE.2 .AND. IB5.LE.2) .OR. (IA5.GE.3 .AND. IB5.GE.3))\r\n     1    GO TO 70\r\n      IF (MAX0(IA5,BLOCK(1)) .EQ. MAX0(IB5,BLOCK(7))) GO TO 70\r\n      NOMIX = 1\r\n      CALL FNAME (A,NA)\r\n      CALL FNAME (B,NB)\r\n      WRITE  (NOUT,60) UWM,NA,IA(2),IA(3),IA5,IA(4),NB,IB(2),IB(3),\r\n     1                 IB5,IB(4)\r\n   60 FORMAT (A25,', SSG2C RECEIVES TWO MIXED FILE TYPES FOR ADDING.',\r\n     1        /,2(5X,'FILE ',2A4,'(',I6,' X',I6,') TYPE =',I3,\r\n     2        ', FORM =',I3))\r\nC\r\nC     UNSY + SYM = UNSY\r\nC\r\n   70 IF (IC(4) .NE. 6) GO TO 80\r\n      IF (IA(1).NE.0 .AND. IA(4).NE.6) IC(4) = 1\r\n      IF (IB(1).NE.0 .AND. IB(4).NE.6) IC(4) = 1\r\n   80 IF (OP .LT. 0) IA(2) = -IC(2)\r\n      DO 90 I = 1,5\r\n      IT(I)  = BLOCK(I  )\r\n   90 IT1(I) = BLOCK(I+6)\r\n      DT1(1) = MCBS(20)\r\n      DT1(2) = MCBS(21)\r\n      IF (NOMIX .NE. 0) WRITE (NOUT,92,ERR=95) IT(1),DIT,IT1(1),DIT1\r\n   92 FORMAT ('  MULTIPLIERS =',I3,D12.3,I8,D12.3)\r\n   95 IC(1)  = C\r\n      LCORE  = KORSZ(CORE)\r\nC\r\nC     DETERMINE TYPE OF OUTPUT\r\nC\r\n      IRC = 0\r\n      IF (IA(1) .EQ. 0) GO TO 100\r\n      IF (IA5.GT.2 .OR.  IT(1).GT.2) IRC = 2\r\n  100 IF (IB(1) .EQ. 0) GO TO 110\r\n      IF (IB5.GT.2 .OR. IT1(1).GT.2) IRC = 2\r\n  110 CONTINUE\r\n      IPREC = IPR1\r\n      IC(5) = IRC + IPREC\r\n      NOMAT = 2\r\n      IF (NOMIX .EQ. 0) GO TO 130\r\n      CALL FNAME (IC(1),NA)\r\n      WRITE  (NOUT,120) NA,IC(2),IC(3),IC(5),IC(4)\r\n  120 FORMAT (5X,'FILE ',2A4,'(',I6,' X',I6,') TYPE =',I3,', FORM =',I3,\r\n     1        5X,'(RESULTANT)')\r\n  130 CALL SADD (CORE,CORE)\r\n      CALL WRTTRL (IC)\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg3.f",
    "content": "      SUBROUTINE SSG3\r\nC\r\nC     DMAP FOR STATIC SOLUTION GENERATOR 3\r\nC\r\nC     SSG3   LLL,KLL,PL,LOO,KOOB,PO /ULV,UOV,RULV,RUOV/ V,N,OMIT/\r\nC            V,Y,IRES/V,N,SKIP/V,N,EPSI $\r\nC\r\n      INTEGER        LLL,KLL,PL,LOO,PO,ULV,UOV,SR1,SR2,OMIT,RULV,RUOV\r\n      COMMON /BLANK/ OMIT,IRES,NSKIP,EPSI\r\n      DATA    LLL  , KLL,  PL, LOO, KOOB, PO, ULV, UOV, RULV, RUOV /\r\n     1        101  , 102, 103, 104, 105, 106, 201, 202, 203 , 204  /\r\n      DATA    SR1  , SR2  /\r\n     1        301  , 302  /\r\nC\r\n      CALL SSG3A (KLL,LLL,PL,ULV,SR1,SR2,0,RULV)\r\n      IF (OMIT .GE. 0) CALL SSG3A (KOOB,LOO,PO,UOV,SR1,SR2,0,RUOV)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssg3a.f",
    "content": "      SUBROUTINE SSG3A (A,LLL,B,X,SR1,SR2,ITR1,RES)\r\nC\r\nC     SSG3A SOLVES AX = B USING A = L*LT\r\nC\r\nC     ON OPTION COMPUTES RESIDUAL VECTOR RES = A*X - B\r\nC     AND EPSI= X(T)*RES/B(T)*X\r\nC\r\n      INTEGER          A,        B,        X,        SR1,\r\n     1                 FILL,     FILLT,    FILB,     SR2,\r\n     2                 FILX,     PREC,     RES,      SYSBUF,\r\n     3                 NAME(2)\r\n      DOUBLE PRECISION DCORE(1), DNUM,     DNOM,     DX\r\n      COMMON /BLANK /  N,        IRES,     NSKIP,    IEPSI\r\n      COMMON /FBSX  /  FILL(7),  FILLT(7), FILB(7),  FILX(7),\r\n     1                 NZ,       PREC,     ISIGN\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      COMMON /SYSTEM/  KSYSTM(55)\r\n      COMMON /UNPAKX/  ITB,      I,        J,        INCUR\r\n      COMMON /ZNTPKX/  DX(2),    IK,       IEOL,     IEOR\r\n      EQUIVALENCE      (CORE(1),DCORE(1)), (KSYSTM(1),SYSBUF),\r\n     1                 (KSYSTM(55),IPREC)\r\n      DATA    NAME  /  4HSSG3,   4HA       /\r\nC\r\n      FILL(1) = LLL\r\n      CALL RDTRL (FILL)\r\n      IF (FILL(1) .LE. 0) CALL MESAGE (-1,LLL,NAME)\r\n      FILB(1) = B\r\n      CALL RDTRL (FILB)\r\n      NLOAD = FILB(2)\r\n      NLEN  = FILB(3)\r\n      ISIGN = 1\r\n      PREC  = 2\r\n      NZ    = KORSZ(CORE)\r\n      DO 10 I = 2,7\r\n   10 FILX(I) = FILB(I)\r\n      FILX(1) = X\r\nC\r\nC     SAVE DISPLACEMENT VECTOR IN DOUBLE PRECISION\r\nC\r\n      FILX(5) = 1\r\n      IF (FILB(5) .GT. 2) FILX(5) = 3\r\n      FILX(5) = FILX(5) + IPREC - 1\r\n      CALL FBS (CORE,CORE)\r\n      CALL WRTTRL (FILX)\r\n      IF (ITR1 .LT. 0) GO TO 130\r\n      FILL(1) = RES\r\n      CALL RDTRL (FILL)\r\n      IF (FILL(1) .LE. 0) GO TO 130\r\nC\r\nC     COMPUTE RESIDUAL VECTOR\r\nC\r\n      CALL SSG2B (A,X,B,RES,0,2,-2,SR1)\r\nC\r\nC     COMPUTE EPSI\r\nC\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (X,CORE(NZ+1),0)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (RES,CORE(NZ+1),0)\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (B,CORE(NZ+1),0)\r\n      IF (NZ .LT. 2*NLEN) GO TO 180\r\n      ITB = 2\r\n      INCUR = 1\r\n      I = 1\r\n      J = NLEN\r\n      DO 120 L = 1,NLOAD\r\n      CALL UNPACK (*80,X,CORE)\r\n      DNUM = 0.0D0\r\n      DNOM = 0.0D0\r\n      CALL INTPK (*90,RES,0,2,0)\r\n   20 IF (IEOL) 40,30,40\r\n   30 CALL ZNTPKI\r\n      DNUM = DNUM + DX(1)*DCORE(IK)\r\n      GO TO 20\r\n   40 CALL INTPK (*100,B,0,2,0)\r\n   50 IF (IEOL) 70,60,70\r\n   60 CALL ZNTPKI\r\n      DNOM = DNOM + DX(1)*DCORE(IK)\r\n      GO TO 50\r\n   70 EPSI = DNUM/DNOM\r\n      GO TO 110\r\n   80 CALL FWDREC (*160,RES)\r\n   90 CALL FWDREC (*170,B)\r\n  100 EPSI = 0.0\r\n  110 CALL MESAGE (35,NSKIP+L-1,EPSI)\r\n      IF (ABS(EPSI) .LT. 1.0E-3) GO TO 120\r\n      IEPSI = -1\r\n      CALL MESAGE (58,1.0E-3,NSKIP+L-1)\r\n  120 CONTINUE\r\n      CALL CLOSE (X,1)\r\n      CALL CLOSE (RES,1)\r\n      CALL CLOSE (B,1)\r\n  130 RETURN\r\nC\r\n  150 CALL MESAGE (-1,IPM,NAME)\r\n  160 IPM = RES\r\n      GO TO 150\r\n  170 IPM = B\r\n      GO TO 150\r\n  180 CALL MESAGE (-8,0,NAME)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ssg4.f",
    "content": "      SUBROUTINE SSG4\r\nC\r\nC     DRIVER TO DO INERTIAL RELIEF PORTION OF SSG\r\nC\r\nC     DMAP SEQUENCE\r\nC\r\nC     SSG4  PL,QR,PO,MR,MLR,D,MLL,MOOB,MOAB,GO,USET/PLI,POI/V,N,IOMT $\r\nC\r\n      INTEGER  GO,USET\r\n      INTEGER PL,QR,PO,D,PLI,POI,SCR1,SCR2,SCR3,SCR4,SCR5\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG\r\n      COMMON /BLANK/ IOMT\r\n      DATA PL,QR,PO,MR,MLR,D,MLL,MOOB,MOAB,PLI,POI,SCR1,SCR2,SCR3,SCR4\r\n     1   ,SCR5,GO,USET\r\n     2   / 101,102,103,104,105,106,107,108,109,201,202,301,302,303,304,\r\n     3   305,110,111/\r\nC\r\nC     COMPUTE  MR-1*QR=TEMP2\r\nC\r\n      CALL FACTOR(MR,SCR1,SCR2,SCR3,SCR4,SCR5)\r\n      CALL SSG3A( MR, SCR1, QR, SCR3, SCR4, SCR5, -1, XXX )\r\nC\r\nC     COMPUTE  MLL*D+MLR=TEMP1\r\nC\r\n      CALL SSG2B(MLL,D,MLR,SCR4,0,2,1,SCR1)\r\nC\r\nC     COMPUTE  TEMP1*TEMP2+PL=PLI\r\nC\r\n      CALL SSG2B(SCR4,SCR3,PL,PLI,0,2,1,SCR1)\r\n      IF(IOMT) 20,20,10\r\nC\r\nC     COMPUTE  MOOB*GO+MOAB=SCR4\r\nC\r\n   10 CALL SSG2B(MOOB,GO,MOAB,SCR4,0,2,1,SCR1)\r\nC\r\nC     COMPUTE DI*TEMP2  =SCR2\r\nC\r\n      CALL SSG2B(D,SCR3,0,SCR2,0,2,1,SCR1)\r\n      CALL SDR1B(SCR5,SCR2,SCR3,SCR1,UA,UL,UO,USET,0,0)\r\nC\r\nC     COMPUTE  SCR4*SCR1+PO=POI\r\nC\r\n      CALL SSG2B(SCR4,SCR1,PO,POI,0,2,1,SCR3)\r\n   20 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssgetd.f",
    "content": "      SUBROUTINE SSGETD (ELID,TI,GRIDS)\r\nC\r\nC     THIS ROUTINE (CALLED BY -EDTL-) READS ELEMENT TEMPERATURE\r\nC     DATA FROM A PRE-POSITIONED RECORD\r\nC\r\nC     ELID   = ID OF ELEMENT FOR WHICH DATA IS DESIRED\r\nC     TI     = BUFFER DATA IS TO BE RETURNED IN\r\nC     GRIDS  = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED\r\nC            = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED.\r\nC     ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS\r\nC     OLDEL  = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0)\r\nC     EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD\r\nC     ENDID  = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT\r\nC              TYPE.\r\nC     BUFFLG = NOT USED\r\nC     ITEMP  = TEMPERATURE LOAD SET ID\r\nC     IDEFT  = NOT USED\r\nC     IDEFM  = NOT USED\r\nC     RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE\r\nC     DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST\r\nC     AVRAGE = THE AVERAGE ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         EORFLG   ,ENDID    ,BUFFLG   ,RECORD\r\n      INTEGER         TI(7)    ,GRIDS    ,ELID     ,ELTYPE   ,OLDEL   ,\r\n     1                NAME(2)  ,GPTT     ,DEFALT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ DUM      ,IOUT\r\n      COMMON /SSGETT/ ELTYPE   ,OLDEL    ,EORFLG   ,ENDID    ,BUFFLG  ,\r\n     1                ITEMP    ,IDEFT    ,IDEFM    ,RECORD\r\n      COMMON /LOADX / DUMMY(9) ,GPTT\r\n      COMMON /FPT   / DEFALT\r\n      DATA    NAME  / 4HSSGE,4HTD   /    ,MAXWDS   / 15 /\r\nC\r\n      IF (ITEMP .NE. 0) GO TO 20\r\n      DO 10 I = 1,MAXWDS\r\n   10 TI(I) = 0\r\n      RETURN\r\nC\r\n   20 IF (.NOT.RECORD .OR. EORFLG) GO TO 80\r\n   30 IF (ELTYPE .NE. OLDEL) GO TO 150\r\n      IF (ENDID) GO TO 80\r\nC\r\nC     HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA\r\nC     HAS NOT YET BEEN REACHED.  READ AN ELEMENT ID\r\nC\r\n   40 CALL READ (*200,*210,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 50,80,50\r\n   50 IF (IABS(ID) .EQ. ELID) IF (ID) 90,90,70\r\n      IF (ID) 40,40,60\r\n   60 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 40\r\nC\r\nC     MATCH ON ELEMNT ID MADE, AND IT WAS WITH DATA.\r\nC     IF QUAD4 OR TRIA3 ELEMENT, SET THE TI(7) FLAG FOR TLQD4D/S (QAUD4)\r\nC     OR TLTR3D/S (TRIA3)\r\nC\r\n   70 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG)\r\n      IF (ELTYPE.NE.64 .AND. ELTYPE.NE.83) RETURN\r\n      TI(7) = 13\r\n      IF (TI(6) .NE. 1) TI(7) = 2\r\n      RETURN\r\nC\r\nC     NO MORE DATA FOR THIS ELEMENT TYPE\r\nC\r\n   80 ENDID = .TRUE.\r\nC\r\nC     NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT\r\nC\r\n   90 IF (DEFALT .EQ. -1) GO TO 130\r\n      IF (GRIDS  .GT.  0) GO TO 110\r\n      DO 100 I = 2,MAXWDS\r\n  100 TI(I) = 0\r\n      TI(1) = DEFALT\r\n      IF (ELTYPE .EQ. 34) TI(2) = DEFALT\r\n      RETURN\r\n  110 DO 120 I = 1,GRIDS\r\n  120 TI(I) = DEFALT\r\n      TI(GRIDS+1) = DEFALT\r\n      RETURN\r\nC\r\nC     NO TEMP DATA OR DEFALT\r\nC\r\n  130 WRITE  (IOUT,140) UFM,ELID,ITEMP\r\n  140 FORMAT (A23,' 4017. THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9,\r\n     1        ' IN SET',I9)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA)\r\nC\r\n  150 IF (ENDID) GO TO 180\r\n  160 CALL READ (*200,*210,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 160,180,170\r\n  170 CALL READ (*200,*210,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 160\r\nC\r\nC     READ ELTYPE AND COUNT\r\nC\r\n  180 CALL READ (*200,*190,GPTT,TI,2,0,FLAG)\r\n      OLDEL  = TI(1)\r\n      NWORDS = TI(2)\r\n      ENDID  = .FALSE.\r\n      GO TO 30\r\nC\r\nC     END OF RECORD HIT\r\nC\r\n  190 EORFLG = .TRUE.\r\n      GO TO 80\r\nC\r\n  200 CALL MESAGE (-2,GPTT,NAME)\r\n  210 CALL MESAGE (-3,GPTT,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssght.f",
    "content": "      SUBROUTINE SSGHT\r\nC\r\nC     THIS IS THE STATIC-SOLUTION-GENERATOR FOR HEAT TRANSFER.\r\nC\r\nC     DMAP CALLING SEQUENCE.\r\nC\r\nC     SSGHT  USET,SIL,GPTT,GM,EST,MPT,DIT,PF,PS,KFF,KFS,KSF,KSS,RFN,RSN,\r\nC            LFILE,UFILE/UGV,QG,RULV/V,N,NLK/V,N,NLR/C,Y,EPS0/C,Y,TABS/\r\nC            C,Y,MAXITR/C,Y,IRES/V,N,MPCF1/V,N,SINGLE $\r\nC\r\n      LOGICAL         NOGO,NOQG,RULVEC,DIAGON,LINEAR,LOOP1,NLRAD\r\n      INTEGER         BUF(10),SYSBUF,OUTPT,TSET,RD,RDREW,WRT,WRTREW,\r\n     1                CLSREW,CLS,PRECIS,CORE,SINGLE,EOR,UMCB,BMCB,XMCB,\r\n     2                PKIN,PKOUT,PKIROW,PKNROW,PKINCR,EOL,BUF1,BUF2,\r\n     3                MCB(7),RULMCB(7),GSIZE,FILE,FSIZE,SSIZE,FLAG,WORD,\r\n     4                MCB2(7),NAME(2),USET,GPTT,GM,EST,DIT,UFILE,PF,PS,\r\n     5                RFN,RSN,UGV,QG,RULV,SUBR(2),DITX,Z,SCRT1,SCRT2,\r\n     6                SCRT3,TREQST,TSTART,TEND,TLOOP,SCRT4,TELAPS,\r\n     7                ALIBI(5,5)\r\n      REAL            RBUF(10),RZ(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /FBSX  / JLMCB(7),JUMCB(7),JBMCB(7),JXMCB(7),JZZZ,JPREC,\r\n     1                JSIGN\r\n      COMMON /GFBSX / LMCB(7),UMCB(7),BMCB(7),XMCB(7),LZ,IPREC,ISIGN\r\n      COMMON /PACKX / PKIN,PKOUT,PKIROW,PKNROW,PKINCR\r\n      COMMON /ZNTPKX/ AI(4),IROW,EOL\r\n      COMMON /ZBLPKX/ AO(4),JROW\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /STIME / TREQST\r\n      COMMON /HMATDD/ IHMAT,NHMAT,MPTX,DITX\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / NLK,NLR,EPS0,TABS,MAXITR,IRES,MPCF1,SINGLE\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(2),OUTPT),\r\n     1                (KSYSTM(10),TSET),(KSYSTM(55),IPREC1),\r\n     2                (BUF(1),RBUF(1)),(Z(1),RZ(1)),(IDFALT,DEFALT)\r\n      DATA    DIAGON/ .FALSE. /\r\n      DATA    SUBR  / 4HSSGH,4HT     /, EOR,NOEOR /1,0/\r\n      DATA    USET  , GPTT,GM,EST,MPTFIL / 101,103,104,105,106/\r\nC     DATA    SIL   / 102     /\r\n      DATA    DIT   , PF,PS,KFF,KFS,KSF,KSS/107,108,109,110,111,112,113/\r\n      DATA    RFN   , RSN,LFILE,UFILE  / 114,115,116,117/\r\n      DATA    UGV   , QG,RULV / 201,202,203 /\r\n      DATA    SCRT1 , SCRT2,SCRT3,SCRT4/ 301,302,303,304/\r\n      DATA    ALIBI / 4H NOR,4HMAL ,4HCONV,4HERGE,4HNCE ,\r\n     1                4H MAX,4HIMUM,4H ITE,4HRATI,4HONS ,\r\n     2                4H DIV,4HERGI,4HNG S,4HOLUT,4HION ,\r\n     3                4H INS,4HUFFI,4HCIEN,4HT TI,4HME  ,\r\n     4                4H MAX,4HIMUM,4H CON,4HVERG,4HENCE/\r\nC\r\nC     OPEN CORE\r\nC\r\nC          PRE-ITERATIONS              DURING-ITERATIONS\r\nC         +--------------+\r\nC         I              I  Z(IUNI)\r\nC         I    I         I\r\nC         I  (U ) VECTOR I\r\nC         I    N         I\r\nC         I              I  Z(NUNI)\r\nC         +--------------+\r\nC         I              I  Z(IHMAT)\r\nC         I  HMAT CORE   I\r\nC         I  BLOCK IF    I\r\nC         I  REQUIRED    I\r\nC         I              I  Z(NHMAT)\r\nC         +--------------+\r\nC         I              I  Z(IUN)\r\nC         I (U ) PARTIT. I\r\nC         I   N  VECTOR  I\r\nC         I      FOR F+S I\r\nC         I              I  Z(NUN)\r\nC         +--------------+  -  -  -  -  -  -  -  -  -  -  -  -  -\r\nC         I              I  Z(IEQIV)        MSIZE\r\nC         I              I           -  -  -  *  -  -  EQUIV TABLE\r\nC         I   E          I                   *I*       WILL BE PLACED\r\nC         I(UN )EQIV.TBL I                  * I *      ON SCRATCH FILE\r\nC         I   G          I                    I        DURING ITERATIONS\r\nC         I              I  Z(NEQIV)          I\r\nC         +--------------+  -  -  -   +----------------+\r\nC         I              I  Z(IUM)    I                I  Z(ISN)\r\nC         I (U )PARTIT.  I            I (S ) DIAGONAL  I\r\nC         I   M VECTOR   I            I   N            I\r\nC         I              I  Z(NUM)    I                I\r\nC         +--------------+            I                I  Z(NSN)\r\nC         I              I  Z(IUME)   +----------------+\r\nC         I   E          I            I                I  Z(IDELU)\r\nC         I (U ) TABLE   I            I (DELTA U ) VEC.I\r\nC         I   M          I  Z(NUME)   I         N      I\r\nC         +--------------+            I                I  Z(NDELU)\r\nC                                     +----------------+\r\nC                                     I                I  Z(IDELP)\r\nC                                     I (DELTA P ) VEC.I\r\nC                                     I         N      I\r\nC                                     I                I  Z(NDELP)\r\nC                                     +----------------+\r\nC                                            .\r\nC                                      CORE  . UNUSED\r\nC                           Z(CORE)          .            Z(CORE)\r\nC         - - - - - - - - - - - - - - +----------------+\r\nC                                     I  BUFFER 2      I  Z(BUF2)\r\nC                                     I                I\r\nC                                     +----------------+\r\nC                                     I  BUFFER 1      I  Z(BUF1)\r\nC                                     I                I\r\nC                                     +----------------+\r\nC\r\nC     CORE SIZE AND BUFFERS\r\nC\r\n      LCORE = KORSZ(Z)\r\n      BUF1  = LCORE - SYSBUF - 2\r\n      BUF2  = BUF1  - SYSBUF - 2\r\n      CORE  = BUF2  - 1\r\n      IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR)\r\n      PRECIS = 1\r\nC\r\nC     SET MISC. FLAGS.\r\nC\r\n      EPS010 = 10.0*EPS0\r\n      EPSOLD = EPS0 + 1.0\r\n      NLRAD  = .TRUE.\r\n      IF (NLR .EQ. -1) NLRAD = .FALSE.\r\n      CALL SSWTCH (18,K)\r\n      IF (K .EQ. 1) DIAGON = .TRUE.\r\n      LINEAR = .TRUE.\r\n      IF (NLK .EQ. +1) LINEAR = .FALSE.\r\nC\r\nC     READ TRAILER OF USET TO GET GSIZE.\r\nC\r\n      MCB(1) = USET\r\n      CALL RDTRL (MCB)\r\n      FILE = USET\r\n      IF (MCB(1) .LE. 0) GO TO 1290\r\n      GSIZE = MCB(3)\r\nC\r\nC     READ GM TRAILER TO DETERMINE COUNT OF UM POINTS\r\nC\r\n      MCB(1) = GM\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 30\r\n      MSIZE = MCB(3)\r\n      GO TO 40\r\n   30 MSIZE = 0\r\n   40 NSIZE = GSIZE - MSIZE\r\nC\r\nC     CORE ALLOCATION.\r\nC\r\n      IUNI  = 1\r\n      NUNI  = NSIZE\r\n      IUNIZ = IUNI - 1\r\n      IHMAT = NUNI + 1\r\n      NHMAT = NUNI\r\n      IF (.NOT.LINEAR) NHMAT = CORE\r\n      MPTX  = MPTFIL\r\n      DITX  = DIT\r\n      IF (.NOT.LINEAR) CALL PREHMA (Z)\r\n      IUN   = NHMAT + 1\r\n      NUN   = NHMAT + NSIZE\r\n      IEQIV = NUN + 1\r\n      NEQIV = NUN + GSIZE\r\nC\r\nC     EQUIVALENCE TABLE WILL BE PUT ON SCRATCH DURING ITERATIONS.\r\nC\r\n      ISN   = NUN + MSIZE + 1\r\n      NSN   = ISN + NSIZE - 1\r\n      IF (.NOT.NLRAD) NSN = ISN - 1\r\n      ISNZ  = ISN - 1\r\n      IDELU = NSN + 1\r\n      NDELU = NSN + NSIZE\r\n      IDELUZ= IDELU - 1\r\n      IDELP = NDELU + 1\r\n      NDELP = NDELU + NSIZE\r\n      IF (NDELP .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      IDELPZ= IDELP - 1\r\n      IUM   = NEQIV + 1\r\n      NUM   = NEQIV + MSIZE\r\n      IUMZ  = IUM - 1\r\n      IUME  = NUM + 1\r\n      NUME  = NUM + MSIZE\r\n      IUMEZ = IUME - 1\r\n      IF (NUME .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     CONSTRUCTION OF (U ) AND (U ) TABLES.\r\nC                       M        N\r\nC\r\n      FILE   = USET\r\n      CALL GOPEN (USET,Z(BUF1),RDREW)\r\n      MPOINT = IUMZ\r\n      NPOINT = IUN - 1\r\n      ISIL   = 0\r\n      FSIZE  = 0\r\n      CALL FREAD (USET,Z(IEQIV),GSIZE,0)\r\n      CALL CLOSE (USET,CLSREW)\r\n      DO 120 I = IEQIV,NEQIV\r\n      WORD = Z(I)\r\n      ISIL = ISIL + 1\r\nC\r\nC     CHECK FOR M-POINT\r\nC\r\n      IF (MOD(WORD,2) .LE. 0) GO TO 90\r\n      MPOINT = MPOINT + 1\r\n      Z(MPOINT) = ISIL\r\n      GO TO 120\r\nC\r\nC     ASSUME N-POINT\r\nC\r\n   90 NPOINT = NPOINT + 1\r\nC\r\nC     CHECK FOR F OR S POINT\r\nC\r\n      IF (MOD(WORD/2,2)) 100,100,110\r\nC\r\nC     OK N-POINT IS AN F-POINT.\r\nC\r\n  100 Z(NPOINT) = -ISIL\r\n      FSIZE = FSIZE + 1\r\n      GO TO 120\r\nC\r\nC     OK N-POINT IS ASSUMED AN S-POINT\r\nC\r\n  110 Z(NPOINT) = +ISIL\r\n  120 CONTINUE\r\n      SSIZE = NSIZE - FSIZE\r\nC\r\nC     U  AND U  ARE COMPLETE.\r\nC      M      N\r\nC\r\n      IF (ISIL.EQ.GSIZE .AND. NPOINT.EQ.NUN .AND. MPOINT.EQ.NUM)\r\n     1    GO TO 140\r\n      WRITE  (OUTPT,130) SFM\r\n  130 FORMAT (A25,' 3081, INCONSISTENT USET DATA DETECTED.')\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC             E\r\nC     BUILD (U ) EQUIVALENCE (U ) POINTS FOR (U ).\r\nC             M                N               M\r\nC\r\n  140 IF (NUME .LT. IUME) GO TO 250\r\n      DO 150 I = IUME,NUME\r\n      Z(I) = 0\r\n  150 CONTINUE\r\n      CALL GOPEN (GM,Z(BUF1),RDREW)\r\n      DO 210 I = 1,NSIZE\r\nC\r\nC     OPERATE ON A COLUMN OF GM.\r\nC\r\n      CALL INTPK (*210,GM,0,PRECIS,0)\r\n  160 CALL ZNTPKI\r\nC\r\nC                             E\r\nC     ROW POSITION -IROW- IN U  GETS COLUMN NUMBER.\r\nC                             M\r\nC\r\n      IPOS = IUMEZ + IROW\r\n      IF (Z(IPOS)) 170,170,190\r\n  170 Z(IPOS) = I\r\n  180 IF (EOL) 160,160,210\r\nC\r\nC     ERROR\r\nC\r\n  190 WRITE  (OUTPT,200) UWM,IROW,I\r\n  200 FORMAT (A25,' 3082, M =',I10,'  N =',I10)\r\n      GO TO 180\r\n  210 CONTINUE\r\n      CALL CLOSE (GM,CLSREW)\r\nC\r\nC     INSURE ALL UME SLOTS FILLED\r\nC\r\n      NOGO = .FALSE.\r\n      DO 240 I = IUME,NUME\r\n      IF (Z(I)) 220,220,240\r\n  220 M = I - IUMEZ\r\n      ISIL = IUMZ + M\r\n      WRITE  (OUTPT,230) UFM,M,Z(ISIL)\r\n  230 FORMAT (A23,' 3083, UM POSITION =',I10,', SIL =',I10)\r\n      NOGO = .TRUE.\r\n  240 CONTINUE\r\n      IF (NOGO) CALL MESAGE (-61,0,SUBR)\r\nC\r\nC                        E\r\nC     CONSTRUCTION OF (UN ) EQUIVALENCE TABLE.\r\nC                        G\r\nC\r\n  250 MPOINT = IUM\r\n      MPT  = Z(MPOINT)\r\n      IF (MPOINT .GT. NUM ) MPT = 1000000\r\n      MPTE = IUME\r\n      MVAL = Z(MPTE)\r\n      NVAL = 1\r\n      K = IEQIV - 1\r\n      DO 270 I = 1,GSIZE\r\n      K = K + 1\r\n      IF (I .NE. MPT) GO TO 260\r\nC\r\nC     M-POINT NEXT\r\nC\r\n      Z(K) = MVAL\r\n      MPTE = MPTE + 1\r\n      MVAL = Z(MPTE)\r\n      MPOINT = MPOINT + 1\r\n      MPT  = Z(MPOINT)\r\n      IF (MPOINT .GT. NUM ) MPT = 1000000\r\n      GO TO 270\r\nC\r\nC     N-POINT NEXT\r\nC\r\n  260 Z(K) = NVAL\r\n      NVAL = NVAL + 1\r\n  270 CONTINUE\r\nC\r\nC     SET UP RULV IF RESIDUAL LOAD MATRIX IS TO BE FORMED.\r\nC\r\n      RULVEC = .FALSE.\r\n      IF (IRES .LE. 0) GO TO 290\r\n      CALL MAKMCB (RULMCB,RULV,FSIZE,2,PRECIS)\r\n      CALL GOPEN (RULV,Z(BUF1),WRTREW)\r\n      CALL CLOSE (RULV,CLS)\r\n      RULVEC = .TRUE.\r\nC\r\nC     GRID POINT TEMPERATURE DATA IS EXPANDED INTO CORE NOW.  ONLY\r\nC\r\nC      1\r\nC     U  IS FORMED.\r\nC      N\r\nC\r\nC\r\n  290 IF (TSET) 300,300,310\r\n  300 K = 0\r\n      GO TO 320\r\n  310 K = 1\r\n  320 DO 330 I = IUNI,NUNI\r\n      Z(I) = K\r\n  330 CONTINUE\r\n      IF (TSET) 510,510,340\r\nC\r\nC     POSITION GPTT TO GRID TEMPERATURE DATA SECTION.\r\nC\r\n  340 FILE = GPTT\r\n      CALL OPEN (*1290,GPTT,Z(BUF1),RDREW)\r\n      CALL FREAD (GPTT,BUF,-2,0)\r\n      NUMBER = 0\r\n  350 CALL READ (*1300,*360,GPTT,BUF,3,NOEOR,FLAG)\r\n      NUMBER = MAX0(NUMBER,BUF(3))\r\n      GO TO 350\r\n  360 CALL SKPREC (GPTT,NUMBER)\r\nC\r\nC     NOW AT GRID TEMP SECTION HEADER.\r\nC\r\n      CALL FREAD (GPTT,BUF,-2,0)\r\n  400 CALL READ (*1300,*1330,GPTT,BUF,3,NOEOR,FLAG)\r\n      IF (TSET .NE. BUF(1)) GO TO 400\r\nC\r\nC     BUF(1)=SET-ID,  BUF(2)=-1 OR DEFAULT TEMP,  BUF(3)=GPTT RECORD.\r\nC\r\n      DEFALT = RBUF(2)\r\n      IF (BUF(3) .LE. 0) GO TO 470\r\n      CALL SKPREC (GPTT,BUF(3))\r\nC\r\nC     TEMP PAIRS IN INTERNAL-ID AND TEMPERATURE.\r\nC\r\n      IUNAT = IUN\r\n      ISIL  = IABS(Z(IUNAT))\r\n      IUNIAT= IUNI\r\nC\r\nC     READ A TEMPERATURE PAIR.\r\nC\r\n  430 CALL READ (*1300,*470,GPTT,BUF,2,NOEOR,FLAG)\r\n  440 IF (BUF(1)-ISIL) 430,450,460\r\n  450 Z(IUNIAT) = BUF(2)\r\n  460 IUNAT = IUNAT + 1\r\n      ISIL  = IABS(Z(IUNAT))\r\n      IUNIAT= IUNIAT + 1\r\n      IF (IUNIAT .LE. NUNI) GO TO 440\r\n  470 CALL CLOSE (GPTT,CLSREW)\r\nC\r\nC     CHECK FOR INTEGER 1-S WHICH GET THE DEFAULT TEMP.\r\nC\r\n      NOGO = .FALSE.\r\n      DO 500 I = IUNI,NUNI\r\n      IF (Z(I) .NE. 1) GO TO 500\r\n      IF (IDFALT .NE. -1) GO TO 490\r\n      NOGO = .TRUE.\r\n      K = IUN + I - IUNI\r\n      ISIL = IABS(Z(K))\r\n      WRITE  (OUTPT,480) UFM,ISIL\r\n  480 FORMAT (A23,' 3084, THERE IS NO TEMPERATURE DATA FOR SIL NUMBER',\r\n     1        I10)\r\n      GO TO 500\r\n  490 RZ(I) = DEFALT\r\n  500 CONTINUE\r\n      IF (NOGO) CALL MESAGE (-61,0,SUBR)\r\n  510 CONTINUE\r\nC\r\nC               1                  1\r\nC     COMPUTE (P ) = (P ) - (K  )(U ) AND SAVE ON SCRATCH-4.\r\nC               F      F      FS   S\r\nC\r\n      K = IDELPZ + FSIZE\r\n      DO 520 I = IDELP,K\r\n      Z(I) = 0\r\n  520 CONTINUE\r\n      CALL OPEN (*540,PF,Z(BUF1),RDREW)\r\n      CALL FWDREC (*540,PF)\r\n      CALL INTPK (*540,PF,0,PRECIS,0)\r\n  530 CALL ZNTPKI\r\n      K = IDELPZ + IROW\r\n      RZ(K) = AI(1)\r\n      IF (EOL) 530,530,540\r\n  540 CALL CLOSE (PF,CLSREW)\r\nC\r\nC                         1\r\nC     SUBTRACT OFF (K  )(U )\r\nC                    FS   S\r\nC\r\n      IAT = IUN - 1\r\n      CALL OPEN (*590,KFS,Z(BUF1),RDREW)\r\n      CALL FWDREC (*590,KFS)\r\n      DO 580 I = 1,SSIZE\r\nC\r\nC     FIND NEXT US POINT TEMPERATURE DATA.\r\nC\r\n  550 IAT = IAT + 1\r\n      IF (Z(IAT)) 550,550,560\r\n  560 K = IUNIZ + IAT - IUN + 1\r\n      CALL INTPK (*580,KFS,0,PRECIS,0)\r\n      VALUE = RZ(K)\r\n  570 CALL ZNTPKI\r\n      K = IDELPZ + IROW\r\n      RZ(K) = RZ(K) - AI(1)*VALUE\r\n      IF (EOL) 570,570,580\r\n  580 CONTINUE\r\n  590 CALL CLOSE (KFS,CLSREW)\r\nC\r\nC                1\r\nC     PACK OUT (P ) ON SCRATCH-4\r\nC                F\r\nC\r\n      CALL GOPEN (SCRT4,Z(BUF1),WRTREW)\r\n      CALL MAKMCB (MCB,SCRT4,FSIZE,2,PRECIS)\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = FSIZE\r\n      PKINCR = 1\r\n      CALL PACK (Z(IDELP),SCRT4,MCB)\r\n      CALL CLOSE (SCRT4,CLSREW)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     ELEMENT INITIAL PROCESSING PHASE.\r\nC\r\n      CALL GOPEN  (SCRT1,Z(BUF2),WRTREW)\r\n      IF (LINEAR) GO TO 600\r\n      CALL GOPEN  (EST,Z(BUF1),RDREW)\r\n      CALL SSGHT1 (EST,SCRT1,Z(IEQIV))\r\n      CALL CLOSE  (EST,CLSREW)\r\nC\r\nC        E\r\nC     (UN ) EQUIVALENCE TABLE IS NOW APPENDED TO -SCRT1-.\r\nC        G\r\nC\r\n  600 CALL WRITE (SCRT1,0,0,1)\r\n      CALL WRITE (SCRT1,Z(IEQIV),GSIZE,1)\r\n      CALL CLOSE (SCRT1,CLSREW)\r\nC\r\nC                      1            3\r\nC     FORM (S ) = 4( (U ) + (TABS) )  DIAGONAL MATRIX.\r\nC            N         N\r\nC\r\n      IF (.NOT.NLRAD) GO TO 630\r\n      J = IUNIZ\r\n      DO 620 I = ISN,NSN\r\n      J = J + 1\r\n      RZ(I) = 4.0*(RZ(J) + TABS)**3\r\n  620 CONTINUE\r\nC\r\nC     SET PARTITIONING TABLE IN TERMS OF WHERE ELEMENTS ARE TO MOVE TO\r\nC     WHEN GOING FROM N-SET TO F+S SETS.\r\nC\r\n  630 IS = FSIZE\r\n      IF = 0\r\n      DO 660 I = IUN,NUN\r\n      IF (Z(I)) 640,640,650\r\nC\r\nC     F-POINTER\r\nC\r\n  640 IF   = IF + 1\r\n      Z(I) = IF\r\n      GO TO 660\r\nC\r\nC     S-POINTER\r\nC\r\n  650 IS = IS + 1\r\n      Z(I)  = IS\r\n  660 CONTINUE\r\n      LOOP  = 0\r\n      LOOP1 = .TRUE.\r\n      PFMAG = 0.0\r\nC\r\nC     == ITERATION SECTION ==\r\nC\r\nC     ITERATIVE LOOPING\r\nC\r\n  670 LOOP = LOOP + 1\r\nC\r\nC     TIME LEFT AT START OF LOOP\r\nC\r\n      CALL TMTOGO (TSTART)\r\n      DO 680 I = IDELP,NDELP\r\n      Z(I) = 0\r\n  680 CONTINUE\r\n      IF (LOOP1 .OR. LINEAR) GO TO 690\r\n      CALL GOPEN (SCRT1,Z(BUF1),RDREW)\r\n      CALL SSGHT2 (SCRT1,Z(IDELP),Z(IUNI))\r\n      CALL CLOSE (SCRT1,CLSREW)\r\nC\r\nC     PARTITION DELTA-P VECTOR INTO DELTA-F AND DELTA-S VECTORS.\r\nC\r\n      CALL SSGHTP (Z(IUN),Z(IDELP),NSIZE)\r\nC\r\nC                     I\r\nC     GENERATION OF (N ) WILL BE PERFORMED IN CORE SPACE OF (DELTA-P)\r\nC                     F\r\nC       I                          I        4         I\r\nC     (N ) = (DELTA-P ) + (R  )( (U  + TABS)  - (S )(U ) )\r\nC       F            F      FN     N               N  N\r\nC\r\n  690 IF (.NOT.NLRAD) GO TO 730\r\n      CALL OPEN (*720,RFN,Z(BUF2),RDREW)\r\n      CALL FWDREC (*720,RFN)\r\n      DO 710 I = 1,NSIZE\r\nC\r\nC     OPERATE ON A COLUMN OF RFN\r\nC\r\n      CALL INTPK (*710,RFN,0,PRECIS,0)\r\nC\r\nC     COMPUTE CONSTANT FOR COLUMN\r\nC\r\n      K  = IUNIZ + I\r\n      UN = RZ(K)\r\n      K  = ISNZ + I\r\n      SN = RZ(K)\r\n      VALUE = (UN + TABS)**4 - SN*UN\r\nC\r\nC     UNPACK NON-ZERO TERMS OF COLUMN.\r\nC\r\n  700 CALL ZNTPKI\r\n      K = IDELPZ + IROW\r\n      RZ(K) = RZ(K) + AI(1)*VALUE\r\n      IF (EOL) 700,700,710\r\n  710 CONTINUE\r\n  720 CALL CLOSE (RFN,CLSREW)\r\nC\r\nC          I      1      I\r\nC     (PBAR ) = (P ) - (N )\r\nC          F      F      F\r\nC                    I\r\nC     FIRST NEGATE (N ) SITTING IN DELTA-P CORE SPACE,\r\nC                    F\r\nC                                     1\r\nC     THEN ADD IN NON-ZERO TERMS OF (P )\r\nC                                     F\r\nC\r\n  730 K = IDELPZ + FSIZE\r\n      DO 740 I = IDELP,K\r\n      RZ(I) = -RZ(I)\r\n  740 CONTINUE\r\nC\r\nC            1\r\nC     OPEN (P ) FOR UNPACKING OF ONE COLUMN.\r\nC            F\r\nC\r\n      CALL OPEN (*760,SCRT4,Z(BUF2),RDREW)\r\n      CALL FWDREC (*760,SCRT4)\r\n      CALL INTPK (*760,SCRT4,0,PRECIS,0)\r\n  750 CALL ZNTPKI\r\n      K = IDELPZ + IROW\r\n      RZ(K) = RZ(K) + AI(1)\r\n      IF (LOOP1) PFMAG = PFMAG + AI(1)*AI(1)\r\n      IF (EOL) 750,750,760\r\n  760 CALL CLOSE (SCRT4,CLSREW)\r\nC\r\nC          I\r\nC     (PBAR ) IS NOW PACKED OUT TO SCRATCH-2.\r\nC          F\r\nC\r\n      IF (.NOT.LOOP1) GO TO 790\r\n      PFMAG = SQRT(PFMAG)\r\n      IF (PFMAG) 770,770,790\r\n  770 WRITE  (OUTPT,780) UFM\r\n  780 FORMAT (A23,' 3085, THE PF LOAD VECTOR IS EITHER PURGED OR NULL.')\r\n      CALL MESAGE (-61,0,SUBR)\r\n  790 CALL MAKMCB (MCB2,SCRT2,FSIZE,2,2)\r\n      CALL GOPEN (SCRT2,Z(BUF2),WRTREW)\r\n      PKIN   = PRECIS\r\n      PKOUT  = IPREC1\r\n      PKIROW = 1\r\n      PKNROW = FSIZE\r\n      PKINCR = 1\r\n      CALL PACK (Z(IDELP),SCRT2,MCB2)\r\n      CALL CLOSE (SCRT2,CLSREW)\r\n      CALL WRTTRL (MCB2)\r\nC\r\nC                       I           I\r\nC     (DELTA-P ) = (PBAR ) - (K  )(U )\r\nC             F         F      FF   F\r\nC          I\r\nC     (PBAR ) IS SITING IN CORE CURRENTLY.  (IT WILL BE GONE TOMORROW.)\r\nC          F\r\nC                       I       I        I\r\nC     FIRST PARTITION (U ) TO (U ) AND (U )\r\nC                       N       F        S\r\nC\r\n      CALL SSGHTP (Z(IUN),Z(IUNI),NSIZE)\r\n      CALL OPEN (*820,KFF,Z(BUF1),RDREW)\r\n      CALL FWDREC (*820,KFF)\r\n      DO 810 I = 1,FSIZE\r\nC\r\nC     OPERATE ON ONE COLUMN OF KFF\r\nC\r\n      CALL INTPK (*810,KFF,0,PRECIS,0)\r\nC\r\nC                                 I\r\nC     LOCATE COLUMN MULTIPLIER = U\r\nC                                 FI\r\nC\r\n      K = IUNIZ + I\r\n      VALUE = RZ(K)\r\n  800 CALL ZNTPKI\r\nC                                                            I\r\nC     SUBTRACT THIS ELEMENT*VALUE FROM IROW POSITION OF (PBAR )\r\nC                                                            F\r\n      K = IDELPZ + IROW\r\n      RZ(K) = RZ(K) - AI(1)*VALUE\r\n      IF (EOL) 800,800,810\r\n  810 CONTINUE\r\n  820 CALL CLOSE (KFF,CLSREW)\r\nC\r\nC     COMPUTE EPSILON\r\nC                    P\r\nC\r\n      K   = IDELPZ + FSIZE\r\n      SUM = 0.0\r\n      DO 830 I = IDELP,K\r\n      SUM = SUM + RZ(I)**2\r\n  830 CONTINUE\r\n      SUM = SQRT(SUM)\r\n      EPSUBP = SUM/PFMAG\r\n      IF (LOOP1 .AND. DIAGON) WRITE (OUTPT,840) EPSUBP\r\n  840 FORMAT ('1D I A G   1 8   O U T P U T   F R O M   S S G H T', //,\r\n     1       ' ITERATION    EPSILON-P',9X,'LAMBDA-1',10X,'EPSILON-T',\r\n     2       /1X,60(1H=), /,6H     1,1P,E19.6)\r\nC\r\nC                                                   I\r\nC     IF -RULV- IS BEING FORMED, THEN WRITE (DELTA-P ) OUT ON -RULV-.\r\nC                                                   F\r\nC\r\n      IF (.NOT. RULVEC) GO TO 850\r\n      CALL OPEN (*850,RULV,Z(BUF1),WRT)\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = FSIZE\r\n      PKINCR = 1\r\n      CALL PACK (Z(IDELP),RULV,RULMCB)\r\n      CALL CLOSE (RULV,CLS)\r\nC\r\nC                     I+1\r\nC     NOW SOLVE FOR (U   ) IN,\r\nC                     F\r\nC                           I+1         I\r\nC                   (L)(U)(U   ) = (PBAR )\r\nC                           F           F\r\nC\r\nC\r\n  850 ISIGN   =+1\r\n      IPREC   = 2\r\n      LMCB(1) = LFILE\r\n      CALL RDTRL (LMCB)\r\n      UMCB(1) = UFILE\r\n      CALL RDTRL (UMCB)\r\n      BMCB(1) = SCRT2\r\n      CALL RDTRL (BMCB)\r\n      CALL MAKMCB (XMCB,SCRT3,FSIZE,2,2)\r\nC\r\nC     INSURE EVEN BOUNDARY (ARRAY WILL BE USED AS DOUBLE PRECISION)\r\nC\r\n      JDELP = NDELP + 1 + MOD(NDELP+1,2) + 1\r\n      LZ = LCORE - JDELP\r\nCWKBI 3/94\r\n      JZZZ = LZ\r\n      DO 855 IJK = 1,31\r\n      JLMCB(IJK) = LMCB(IJK)\r\n  855 CONTINUE\r\n      IF (UMCB(1) .GT. 0) CALL GFBS (Z(JDELP),Z(JDELP))\r\n      IF (UMCB(1) .LE. 0) CALL  FBS (Z(JDELP),Z(JDELP))\r\n      IF (UMCB(1) .GT. 0) CALL WRTTRL( XMCB)\r\n      IF (UMCB(1) .LE. 0) CALL WRTTRL(JXMCB)\r\nC\r\nC       I+1\r\nC     (U   ) IS NOW MOVED FROM SCRATCH-3 INTO CORE IN (DELTA-P ) SPACE.\r\nC       F                                                     N\r\nC\r\n      CALL GOPEN (SCRT3,Z(BUF1),RDREW)\r\n      K = IDELPZ + FSIZE\r\n      DO 860 I = IDELP,K\r\n      Z(I) = 0\r\n  860 CONTINUE\r\n      CALL INTPK (*880,SCRT3,0,PRECIS,0)\r\n  870 CALL ZNTPKI\r\n      K = IDELPZ + IROW\r\n      RZ(K) = AI(1)\r\n      IF (EOL) 870,870,880\r\n  880 CALL CLOSE (SCRT3,CLSREW)\r\n      IF (LOOP1) GO TO 985\r\nC\r\nC                      I+1       I\r\nC     ALPHA = SUM OF (U   ) (PBAR )          IROW = 1,FSIZE\r\nC                      F         F\r\nC                       IROW      IROW\r\nC\r\nC                           I+1      I\r\nC     BETA = SUM OF (DELTA-U   )(PBAR )      IROW = 1,FSIZE\r\nC                           F        F\r\nC                            IROW     IROW\r\nC\r\nC                      I+1    I       I\r\nC     GAMMA = SUM OF (U    - U  )(PBAR )     IROW = 1,FSIZE\r\nC                      F      F       F\r\nC                       IROW   IROW    IROW\r\nC\r\nC     WHERE I = ITERATION GREATER THAN 1.\r\nC\r\n      CALL GOPEN (SCRT2,Z(BUF1),RDREW)\r\n      ALPHA = 0.0\r\n      BETA  = 0.0\r\n      GAMMA = 0.0\r\n      CALL INTPK (*900,SCRT2,0,PRECIS,0)\r\nC\r\nC     ONLY NON-ZERO TERMS OF (PBAR ) NEED BE CONSIDERED.\r\nC                                 F\r\n  890 CALL ZNTPKI\r\n      KUFIP1 = IDELPZ + IROW\r\n      KDELU  = IDELUZ + IROW\r\n      KUFI   = IUNIZ  + IROW\r\n      ALPHA  = ALPHA  + RZ(KUFIP1)*AI(1)\r\n      BETA   = BETA   + RZ(KDELU) *AI(1)\r\n      GAMMA  = GAMMA  + (RZ(KUFIP1) - RZ(KUFI))*AI(1)\r\n      IF (EOL) 890,890,900\r\n  900 CALL CLOSE (SCRT2,CLSREW)\r\nC\r\nC     CONVERGENCE TESTS ARE MADE HERE.\r\nC\r\nC     WHEN ENTERING EXIT MODE,\r\nC         -IEXIT-        -REASON-\r\nC            1           NORMAL CONVERGENCE\r\nC            2           NO CONVERGENCE AT MAXIMUM ITERATIONS\r\nC            3           NO CONVERGENCE UNSTABLE ITERATION\r\nC            4           NO CONVERGENCE INSUFFICIENT TIME\r\nC            5           MAXIMUM CONVERGENCE, BUT EPSHT NOT SATISFIED\r\nC\r\n      IF (GAMMA) 910,920,910\r\n  910 FLAMDA = ABS(BETA/GAMMA)\r\n      GO TO 930\r\n  920 FLAMDA = 100.0\r\n      EPST   = 0.0\r\n      GO TO 970\r\n  930 IF (ALPHA) 940,960,940\r\n  940 IF (FLAMDA-1.0) 950,960,950\r\n  950 EPST = ABS(GAMMA/((FLAMDA - 1.0)*ALPHA))\r\n      GO TO 970\r\n  960 EPST = 100.0\r\n  970 CALL TMTOGO (KLEFT)\r\n      TELAPS = TREQST - KLEFT\r\n      TAU    = 1.0 - FLOAT(TLOOP+TELAPS)/(.8*FLOAT(TREQST))\r\n      IF (DIAGON) WRITE (OUTPT,980) LOOP,EPSUBP,FLAMDA,EPST\r\n  980 FORMAT (I6,1P,E19.6,1P,E18.6,1P,E18.6)\r\n      IEXIT  = 1\r\n      IF (EPST.LT.EPS0 .AND. FLAMDA.GT.1.0 .AND. EPSUBP.LT.EPS010)\r\n     1    GO TO 1060\r\nC\r\nC     TEST FOR TWO SUCCESSIVE CASES PASSING TEST\r\nC\r\n      IF (EPST.LT.EPS0 .AND. EPSOLD.LT.EPS0) GO TO 1060\r\n      EPSOLD = EPST\r\n      IEXIT  = 2\r\n      IF (LOOP .GE. MAXITR) GO TO 1060\r\n      IEXIT  = 3\r\n      IF (FLAMDA.LE.1.0 .AND. LOOP.GE.4) GO TO 1060\r\n      IEXIT  = 5\r\n      IF (GAMMA .EQ. 0.) GO TO 1060\r\n      IEXIT  = 4\r\n      IF (TAU) 1060,990,990\r\nC\r\nC                   I\r\nC     COMPUTE (DELTA ) TO BE USED ON NEXT LOOP\r\nC                   U\r\nC\r\n  985 IEXIT = 2\r\n      IF (LOOP .GE. MAXITR) GO TO 1051\r\n  990 K  = IDELPZ + FSIZE\r\n      KDELU = IDELUZ\r\n      KI = IUNIZ\r\n      KIP1 = IDELPZ\r\n      DO 1000 I = IDELP,K\r\n      KDELU = KDELU + 1\r\n      KI = KI + 1\r\n      KIP1 = KIP1 + 1\r\n      RZ(KDELU) = RZ(KIP1) - RZ(KI)\r\n 1000 CONTINUE\r\nC\r\nC                       I+1\r\nC     MOVE (U ) UNDER (U   ) BOTH TO BE IN (DELTA-P ) CORE.\r\nC            S          F                          N\r\nC\r\n      ASSIGN 1050 TO IRETRN\r\n 1010 K1 = IUNI + FSIZE\r\n      K2 = IDELPZ + FSIZE\r\n      IF (SSIZE .LE. 0) GO TO 1030\r\n      DO 1020 I = K1,NUNI\r\n      K2 = K2 + 1\r\n      RZ(K2) = RZ(I)\r\n 1020 CONTINUE\r\nC\r\nC             I+1                       I+1\r\nC     MERGE (U   ) AND (U ) BACK INTO (U   ) FORM.\r\nC             F          S              N\r\nC\r\n 1030 KUNI = IUNIZ\r\n      DO 1040 I = IUN,NUN\r\n      KUNI = KUNI + 1\r\n      JPOS = IDELPZ + Z(I)\r\n      Z(KUNI) = Z(JPOS)\r\n 1040 CONTINUE\r\n      GO TO IRETRN, (1050,1180)\r\nC\r\nC     READY NOW FOR ANOTHER LOOP.\r\nC\r\n 1050 CALL TMTOGO (TEND)\r\n      TLOOP = TSTART - TEND\r\n      LOOP1 = .FALSE.\r\n      GO TO 670\r\nC\r\nC     == END ITERATION SECTION ==\r\nC\r\nC     ITERATION HALTED, NOW IN EXIT MODE.\r\nC     IF QG FILE IS PRESENT, FORCES OF CONSTRAINT ARE PARTIALLY COMPUTED\r\nC     QS WILL BE FORMED IN THE CORE SPACE USED UP TO NOW FOR (DELTA-U).\r\nC\r\nC                           I\r\nC     (Q ) = -(P ) + (K  )(U ) + (K  )(U ) + (DELTA-P ) + (PRODUCT )\r\nC       S       S      SF   F      SS   S            S            S\r\nC\r\nC                                 I         4        I\r\nC     WHERE (PRODUCT ) = (R  )( (U   + TABS)  - (S  U ) )\r\nC                   S      SN     NJ              NJ N\r\nC\r\nC                                      J = 1,NSIZE\r\nC\r\nC     LOAD (DELTA-P ) INTO QS FORMATION CORE SPACE.\r\nC                  S\r\nC\r\n 1051 WRITE  (OUTPT,1052) UWM\r\n 1052 FORMAT (A25,' 3132, SSGHT RECOVERING FROM SEVERE USER CONVERGENCE'\r\n     1,       ' CRITERIA.')\r\n 1060 WRITE  (OUTPT,1070) UIM,IEXIT,(ALIBI(J,IEXIT),J=1,5)\r\n 1070 FORMAT (A29,' 3086, ENTERING SSGHT EXIT MODE BY REASON NUMBER ',\r\n     1        I2,2H (,5A4,1H) )\r\n      NOQG = .TRUE.\r\n      CALL OPEN (*1170,QG,Z(BUF2),WRTREW)\r\n      NOQG = .FALSE.\r\n      CALL FNAME (QG,NAME)\r\n      CALL WRITE (QG,NAME,2,EOR)\r\n      IQS  = IDELU\r\n      NQS  = IDELUZ + SSIZE\r\n      IQSZ = IDELUZ\r\n      K    = IDELPZ + FSIZE\r\n      DO 1080 I = IQS,NQS\r\n      K    = K + 1\r\n      Z(I) = Z(K)\r\n 1080 CONTINUE\r\nC\r\nC     SUBTRACT OFF NON-ZERO TERMS OF PS VECTOR.\r\nC\r\n      CALL OPEN (*1100,PS,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1100,PS)\r\n      CALL INTPK (*1100,PS,0,PRECIS,0)\r\n 1090 CALL ZNTPKI\r\n      K = IQSZ + IROW\r\n      RZ(K) = RZ(K) - AI(1)\r\n      IF (EOL) 1090,1090,1100\r\n 1100 CALL CLOSE (PS,CLSREW)\r\nC\r\nC                   I\r\nC     ADD IN (K  )(U )\r\nC              SF   F\r\nC\r\n      CALL OPEN (*1130,KSF,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1130,KSF)\r\n      DO 1120 I = 1,FSIZE\r\n      CALL INTPK (*1120,KSF,0,PRECIS,0)\r\n      K = IDELPZ + I\r\n      VALUE = RZ(K)\r\n 1110 CALL ZNTPKI\r\n      K = IQSZ + IROW\r\n      RZ(K) = RZ(K) + AI(1)*VALUE\r\n      IF (EOL) 1110,1110,1120\r\n 1120 CONTINUE\r\n 1130 CALL CLOSE (KSF,CLSREW)\r\nC\r\nC     ADD IN (K  )(U )\r\nC              SS   S\r\nC\r\n      IF (SSIZE .EQ. 0) GO TO 1160\r\n      CALL OPEN (*1160,KSS,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1160,KSS)\r\n      IUSZ = IUNIZ + FSIZE\r\n      DO 1150 I = 1,SSIZE\r\n      CALL INTPK (*1150,KSS,0,PRECIS,0)\r\n      K = IUSZ + I\r\n      VALUE = RZ(K)\r\n 1140 CALL ZNTPKI\r\n      K = IQSZ + IROW\r\n      RZ(K) = RZ(K) + AI(1)*VALUE\r\n      IF (EOL) 1140,1140,1150\r\n 1150 CONTINUE\r\n 1160 CALL CLOSE (KSS,CLSREW)\r\nC\r\nC                                     I\r\nC     TO COMPUTE ADDITIONAL PRODUCT (U ) IS NOW FORMED.\r\nC                                     N\r\nC                           I\r\nC     THUS MERGE (U ) AND (U )\r\nC                  S        F\r\nC                                  I\r\nC     FIRST MOVE (U ) DOWN UNDER (U ), THEN DO MERGE.\r\nC                  S               F\r\nC\r\n 1170 ASSIGN 1180 TO IRETRN\r\n      GO TO 1010\r\nC\r\nC     OK FORM AND ADD (PRODUCT) IN.\r\nC\r\n 1180 IF (.NOT.NLRAD) GO TO 1220\r\n      IF (NOQG) GO TO 1250\r\n      CALL OPEN (*1210,RSN,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1210,RSN)\r\n      DO 1200 I = 1,NSIZE\r\n      CALL INTPK (*1200,RSN,0,PRECIS,0)\r\n      KU = IUNIZ + I\r\n      KS = ISNZ + I\r\n      VALUE = (RZ(KU) + TABS)**4 - RZ(KU)*RZ(KS)\r\n 1190 CALL ZNTPKI\r\n      K = IQSZ + IROW\r\n      RZ(K) = RZ(K) + AI(1)*VALUE\r\n      IF (EOL) 1190,1190,1200\r\n 1200 CONTINUE\r\n 1210 CALL CLOSE (RSN,CLSREW)\r\nC\r\nC     (QS) IS COMPLETE AND READY FOR EXPANSION TO GSIZE AND OUTPUT.\r\nC\r\n 1220 CALL MAKMCB (MCB,QG,GSIZE,2,PRECIS)\r\n      JROW = 0\r\n      FILE = USET\r\n      IF (SSIZE .EQ. 0) GO TO 1250\r\n      CALL GOPEN (USET,Z(BUF1),RDREW)\r\n      IQ = IQS\r\n      CALL BLDPK (PRECIS,PRECIS,QG,0,0)\r\n 1230 CALL FREAD (USET,WORD,1,0)\r\n      JROW = JROW + 1\r\n      IF (MOD(WORD/2,2)) 1230,1230,1240\r\n 1240 AO(1) = RZ(IQ)\r\n      CALL ZBLPKI\r\n      IQ = IQ + 1\r\n      IF (IQ .LE. NQS) GO TO 1230\r\nC\r\nC     QS HAS NOW BEEN EXPANDED TO GSIZE AND OUTPUT ON QG DATA BLOCK.\r\nC\r\n      CALL BLDPKN (QG,0,MCB)\r\n      CALL CLOSE  (QG,CLSREW)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (USET,CLSREW)\r\nC\r\nC     PACK OUT (U ) USING THE EQUIVALENCE TABLE TO ORDER\r\nC                G\r\nC\r\nC     THE U  POINTS.\r\nC          N\r\nC\r\nC\r\nC     READ EQUIVALENCE TABLE BACK INTO CORE AT THIS TIME.\r\nC\r\n 1250 FILE = SCRT1\r\n      CALL GOPEN  (SCRT1,Z(BUF1),RDREW)\r\n      CALL SKPREC (SCRT1,1)\r\n      CALL FREAD  (SCRT1,Z(IEQIV),GSIZE,0)\r\nC\r\n      CALL CLOSE  (SCRT1,CLSREW)\r\nC\r\nC     REPLACE POINTERS WITH THE VALUES.\r\nC\r\n      DO 1270 I = IEQIV,NEQIV\r\n      K = IUNIZ + Z(I)\r\n      RZ(I) = RZ(K)\r\n 1270 CONTINUE\r\nC\r\nC     PACK OUT (U )\r\nC                G\r\nC\r\n      CALL MAKMCB (MCB,UGV,GSIZE,2,PRECIS)\r\n      CALL GOPEN  (UGV,Z(BUF1),1)\r\n      PKIN   = PRECIS\r\n      PKOUT  = PRECIS\r\n      PKIROW = 1\r\n      PKNROW = GSIZE\r\n      PKINCR = 1\r\n      CALL PACK (Z(IEQIV),UGV,MCB)\r\n      CALL CLOSE (UGV,CLSREW)\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     COMPLETE RULV IF NECESSARY.\r\nC\r\n      IF (.NOT.RULVEC) GO TO 1280\r\n      CALL GOPEN (RULV,Z(BUF1),3)\r\n      CALL CLOSE (RULV,CLSREW)\r\n      CALL WRTTRL (RULMCB)\r\n 1280 RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n 1290 N = -1\r\n      GO TO 1320\r\n 1300 N = -2\r\n      GO TO 1320\r\n 1320 CALL MESAGE (N,FILE,SUBR)\r\n 1330 WRITE  (OUTPT,1340) UFM,TSET\r\n 1340 FORMAT (A23,' 3087, TEMPERATURE SET',I10,' IS NOT PRESENT IN ',\r\n     1        'GPTT DATA BLOCK.')\r\n      CALL MESAGE (-61,0,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssght1.f",
    "content": "      SUBROUTINE SSGHT1 (IEST,FILE,NEQUIV  )\r\nC*****\r\nC     THIS ROUTINE CONVERTS THE EST DATA FOR ALL THERMAL ELEMENTS TO A\r\nC     COMMON FORMAT. OPTIONAL TASKS INCLUDE CALCULATING MATOUT DATA AND\r\nC     CONVERTING  SIL VALUES TO UN VALUES.\r\nC*****\r\n      INTEGER  ELID, SUB, SIL, NESTO(45), ELEM, NEST(2),ZP, BUFM\r\n      INTEGER  TYPE,FILE, POINTR(8,23), NEQUIV(1) ,SUBR(2),FLAG\r\n      INTEGER POINT1(8,20),POINT2(8, 3)\r\n      REAL     EST(100)\r\n      LOGICAL  LINEAR\r\nC\r\n      COMMON/ CONDAS/ CONSTS(5)\r\n      COMMON/ ESTOUT/ ELID,SUB,NAME(2),SIL(8),IMAT,AF,THETA,R(3,8),\r\n     1                MATO(6)\r\n      COMMON/  MATIN/ MATID,INFLAG,ELTEMP,DUM(1),SINTH,COSTH\r\n      COMMON/ HMTOUT/ BUFM(7)\r\n      COMMON/ GPTA1 / NELEMS, LAST, INCR, ELEM(1)\r\n      COMMON/ HMATDD/ XXX(4), LINEAR\r\nC\r\n      EQUIVALENCE  (CONSTS(1) , PI     )\r\n      EQUIVALENCE  (NESTO(1),ELID) ,( NEST(1), EST(1) )\r\n      EQUIVALENCE  (POINT1(1,1),POINTR(1,1)), (POINT2(1,1),POINTR(1,21))\r\nC\r\n      DATA SUBR / 4HSSGH ,4HT1   /\r\n      DATA NUMELT / 23 /\r\nC*****\r\nC     THE POINTERS TO THE EST DATA ARE\r\nC\r\nC        IM    MAT ID\r\nC        ITH   THETA\r\nC        IA    AREA\r\nC        IG    GRID POINT DATA\r\nC        IS    SIL MINUS 1\r\nC        NP    NO. OF POINTS\r\nC        SUB   SUBROUTINE TYPE\r\nC                       NO.  IS   ITH  IM   IA   IG   NP   SUB\r\nC                      ----  --   ---  --   --   --   --   ----\r\n      DATA   POINT1 /    1   ,0   ,0   ,4   ,5   ,9   ,2   ,1\r\n     2                  ,3   ,0   ,0   ,4   ,5   ,8   ,2   ,1\r\n     3                  ,6   ,0   ,5   ,6   ,7   ,15  ,3   ,2\r\n     4                  ,9   ,0   ,5   ,6   ,7   ,9   ,3   ,2\r\n     5                  ,10  ,0   ,0   ,4   ,5   ,9   ,2   ,1\r\n     6                  ,16  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     7                  ,17  ,0   ,5   ,6   ,7   ,9   ,3   ,2\r\n     8                  ,18  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     9                  ,19  ,0   ,6   ,7   ,8   ,16  ,4   ,3\r\n     T                  ,34  ,0   ,0   ,16  ,17  ,34  ,2   ,1\r\n     1                  ,36  ,0   ,5   ,6   ,0   ,7   ,3   ,4\r\n     2                  ,37  ,0   ,6   ,7   ,0   ,8   ,4   ,5\r\n     3                  ,39  ,1   ,0   ,2   ,0   ,7   ,4   ,6\r\n     4                  ,40  ,1   ,0   ,2   ,0   ,9   ,6   ,7\r\n     5                  ,41  ,1   ,0   ,2   ,0   ,11  ,8   ,8\r\n     6                  ,42  ,1   ,0   ,2   ,0   ,11  ,8   ,9\r\n     7                  ,52  ,1   ,0   ,15  ,16  ,21  ,8   ,10\r\n     8                  ,62  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     9                  ,63  ,0   ,6   ,7   ,8   ,10  ,4   ,3\r\n     T                  ,65  ,0   ,0   ,10  ,0   ,16  ,8   ,16 /\r\n      DATA   POINT2 /    66  ,0   ,0   ,22  ,0   ,28  ,20  ,16\r\n     2                  ,67  ,0   ,0   ,34  ,0   ,40  ,32  ,1\r\n     3                  ,76  ,0   ,11  ,12  ,13  ,14  ,8   ,17 /\r\nC*****\r\n      CALL DELSET\r\n   10 CALL READ(*120,*140,IEST,TYPE,1,0,FLAG)\r\n      DO 20 I =1,NUMELT\r\n      IEL = I\r\n      IF (TYPE   - POINTR(1,I)) 30,40,20\r\n   20 CONTINUE\r\n   30 CALL FWDREC(*150,IEST)\r\n      GO TO 10\r\nC\r\n   40 CONTINUE\r\n      ZP =   (TYPE-1)*INCR\r\n      NAME(1)= ELEM(ZP+1)\r\n      NAME(2)= ELEM(ZP+2)\r\n      NWORDS = ELEM(ZP+12)\r\n   50 CONTINUE\r\n      CALL READ(*150,*130,IEST,EST,NWORDS,0,FLAG)\r\n      ELID = NEST(1)\r\n      DO 55 I = 5,45\r\n      NESTO(I) = 0\r\n   55 CONTINUE\r\n      IF( TYPE .EQ. 3) EST(5) = PI*EST(6)*(EST(5)-EST(6))\r\n      IF( TYPE.EQ.52 .AND. NEST(2).EQ.7) EST(16)=PI*(EST(19)+EST(20))\r\n      IS = POINTR(2,IEL)\r\n      ITH= POINTR(3,IEL)\r\n      IM = POINTR(4,IEL)\r\n      IA = POINTR(5,IEL)\r\n      IG = POINTR(6,IEL)\r\n      SUB= POINTR(8,IEL)\r\n      NP = POINTR(7,IEL)\r\nC\r\n      IF(SUB .EQ. 10) SUB = SUB + NEST(2)-1\r\n      INFLAG =1\r\n      IF( SUB .GE. 16) INFLAG=3\r\n      IF( SUB .LT. 2 .OR. SUB .GT. 5)  GO TO 60\r\n      INFLAG =2\r\n      GO TO 70\r\n   60 IF(SUB  .LT. 6 .OR. SUB .GT. 9)  GO TO 70\r\n      INFLAG =3\r\n   70 CONTINUE\r\n      IF( IA.GT. 0) AF = EST(IA)\r\n      MATID = NEST(IM)\r\n      IF(MATID .LE. 0) GO TO 50\r\n      SINTH=0.0\r\n      COSTH=1.0\r\n      IF( INFLAG .NE. 2) GO TO 80\r\n      THETA= EST(ITH)*PI/180.0\r\n      IF( THETA .EQ.0.0)GO TO 80\r\n      SINTH= SIN(THETA)\r\n      COSTH= COS(THETA)\r\n   80 ITEMP = IG + 4*NP\r\n      ELTEMP = EST(ITEMP)\r\n      IMAT = MATID\r\n      LINEAR=.FALSE.\r\n      CALL HMAT( ELID )\r\nC*****\r\nC     TEST IF NONLINEAR\r\nC*****\r\n      IF( LINEAR ) GO TO 50\r\n      DO 90 I=1,6\r\n   90 MATO(I)= BUFM(I)\r\n      DO 110 I=1,NP\r\n      JPOINT = 4*(I-1) + IG\r\n      DO 100 J=1,3\r\n      ILOC = JPOINT + J\r\n  100 R(J,I) = EST(ILOC)\r\n      ISIL= IS+I + 1\r\n      IPT    =NEST(ISIL)\r\n      IF( IPT.EQ. 0) GO TO 110\r\n      SIL(I) = NEQUIV(IPT)\r\n  110 CONTINUE\r\nC*****\r\nC     WRITE A UNIFORM EST GROUP OF CONVERTED DATA HERE\r\nC*****\r\n      CALL WRITE(FILE,NESTO(1), 45, 0 )\r\nC*****\r\nC     RETURN FOR ANOTHER ELEMENT\r\nC******\r\n      GO TO 50\r\n  120 RETURN\r\nC*****\r\nC     DONE WITH THIS ELEMENT TYPE\r\nC*****\r\n  130 IF( FLAG .EQ. 0) GO TO 10\r\nC******\r\n  140 J=-3\r\n      GO TO 160\r\n  150 J = -2\r\n  160 CALL MESAGE(J,IEST,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssght2.f",
    "content": "      SUBROUTINE SSGHT2 (FILE,DELTA,UNI)\r\nC\r\nC     THIS ROUTINE USES THE TEMPERATURE VECTOR DATA TO CALCULATE\r\nC     LOAD VECTER TERMS WITH THE EQUATION-\r\nC\r\nC     DELTAP = (K(TI) - K(TO))*T1\r\nC          WHERE       TO IS THE INITIAL TEMPERATURE\r\nC                      TI IS THE  NEW  TEMPERATURE VECTOR\r\nC                      K  IS THE TEMPERATURE DEPENDENT CONDUCTIVITY\r\nC                          MATRIX\r\nC                      DELTAP  IS THE NONLINEAR LOAD\r\nC\r\n      INTEGER          ELID,SUB,SIL,NPTS(15),NELS(15),IP(4),SMAP(52),\r\n     1                 FILE,FLAG,SINDX(4),SUBR(2)\r\n      REAL             MATO,MATOUT,TEMP,UNI(1),DELTA(1)\r\n      DOUBLE PRECISION CONSTD,DRTEMP(3,4),DRT(4,4),C(12),K(9),KQ(9),\r\n     1                 DR(3,4),T1(8),EL,AREA,RBAR,PI,FACT,DETERM,DADOTB\r\n      COMMON/ CONDAD/  CONSTD(5)\r\n      COMMON/ MATIN /  MATID,INFLAG,TEMP,DUM,SINTH,COSTH\r\n      COMMON/ HMTOUT/  MATOUT(6)\r\n      COMMON/ ESTOUT/  ELID,SUB,NAME(2),SIL(8),IMAT,AF,THETA,R(3,8),\r\n     1                 MATO(6)\r\n      EQUIVALENCE      (CONSTD(1),PI)\r\n      DATA    NPTS  /  2,3,4,3,4,4,6,8, 8,1,2,2,3,4,2 /\r\n      DATA    NELS  /  1,1,4,1,4,1,3,5,10,1,1,1,1,4,1 /\r\n      DATA    SUBR  /  4HSSGH ,4HT2   /\r\n      DATA    SMAP  /  1      ,2      ,3      ,6      ,\r\n     1                 1      ,2      ,6      ,5      ,\r\n     2                 1      ,4      ,5      ,6      ,\r\n     3                 1      ,2      ,3      ,6      ,\r\n     4                 1      ,3      ,4      ,8      ,\r\n     5                 1      ,3      ,8      ,6      ,\r\n     6                 1      ,5      ,6      ,8      ,\r\n     7                 3      ,6      ,7      ,8      ,\r\n     8                 2      ,3      ,4      ,7      ,\r\n     9                 1      ,2      ,4      ,5      ,\r\n     O                 2      ,4      ,5      ,7      ,\r\n     1                 2      ,5      ,6      ,7      ,\r\n     2                 4      ,5      ,7      ,8      /\r\nC\r\nC     READ DATA, 45 WORDS PER ELEMENT.\r\nC\r\n   10 CALL READ (*480,*470,FILE,ELID,45,0,FLAG)\r\nC\r\nC     CALCULATE AVERAGE ELEMENT TEMPERATURE\r\nC\r\n      NP    = NPTS(SUB)\r\n      XPTS  = FLOAT(NP)\r\n      IF (SUB .GT. 9) XPTS = XPTS*2.0\r\nC\r\n      TEMP  = 0.0\r\n      DO 20 I = 1,NP\r\n      LTEMP = SIL(I)\r\n      TEMP  = TEMP + UNI(LTEMP)\r\n      IF (SUB .LE. 9) GO TO 20\r\n      IF (SIL(I+4) .EQ. 0) GO TO 20\r\n      LTEMP = SIL(I+4)\r\n      TEMP  = TEMP + UNI(LTEMP)\r\n   20 CONTINUE\r\n      TEMP  = TEMP/XPTS\r\nC\r\nC     SET UP CALL TO MATERIAL SUBROUTINE\r\nC\r\n      INFLAG = 1\r\n      IF (SUB.GE.2 .AND. SUB.LE.5) INFLAG = 2\r\n      IF (SUB.GE.6 .AND. SUB.LE.9) INFLAG = 3\r\n      SINTH = 0.0\r\n      COSTH = 1.0\r\n      IF (THETA.EQ.0.0 .OR. INFLAG.NE.2) GO TO 30\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n   30 MATID = IMAT\r\n      CALL HMAT (ELID)\r\nC\r\nC     SUBTRACT  CONDUCTIVITY AT INITIAL TEMPERATURE AND PLACE IN  MATRIX\r\nC\r\n      IF (INFLAG .EQ. 2) GO TO 40\r\n      IF (INFLAG .EQ. 3) GO TO 50\r\n      K(1) = MATOUT(1) - MATO(1)\r\n      GO TO 60\r\n   40 K(1) = MATOUT(1) - MATO(1)\r\n      K(2) = MATOUT(2) - MATO(2)\r\n      K(3) = K(2)\r\n      K(4) = MATOUT(3) - MATO(3)\r\n      GO TO 60\r\n   50 K(1) = MATOUT(1) - MATO(1)\r\n      K(2) = MATOUT(2) - MATO(2)\r\n      K(3) = MATOUT(3) - MATO(3)\r\n      K(4) = K(2)\r\n      K(5) = MATOUT(4) - MATO(4)\r\n      K(6) = MATOUT(5) - MATO(5)\r\n      K(7) = K(3)\r\n      K(8) = K(6)\r\n      K(9) = MATOUT(6) - MATO(6)\r\n   60 CONTINUE\r\n      IP(1) = 1\r\n      IP(2) = 2\r\n      IP(3) = 3\r\n      IF (SUB.NE.3 .AND. SUB.NE.5) GO TO 100\r\nC\r\nC     MOVE  QUADS TO ELEMENT COORDINATES\r\nC\r\n      DO 95 J = 1,2\r\n      L  = 1\r\n      M  = 2\r\n      I1 = 1\r\n      I2 = 2\r\n      I3 = 3\r\n      I4 = 4\r\n      IF (J .EQ. 1) GO TO 65\r\n      L  = 3\r\n      M  = 4\r\n      I1 = 3\r\n      I2 = 4\r\n      I3 = 1\r\n      I4 = 2\r\n   65 CONTINUE\r\n      DO 70 I = 1,3\r\n      DR(I,1) = R(I,I2) - R(I,I1)\r\n      DR(I,3) = R(I,I3) - R(I,I1)\r\n      DR(I,2) = R(I,I4) - R(I,I2)\r\n   70 CONTINUE\r\n      CALL DAXB (DR(1,3),DR(1,2),DR(1,4))\r\nC\r\n      AREA = DSQRT(DR(1,4)**2 + DR(2,4)**2 + DR(3,4)**2)\r\nC\r\n      DO 80 I = 1,3\r\n   80 DR(I,4) = DR(I,4)/AREA\r\n      EL = DR(1,4)*DR(1,1) + DR(2,4)*DR(2,1) + DR(3,4)*DR(3,1)\r\n      DO 81 I = 1,3\r\n   81 DR(I,1) = DR(I,1) - EL*DR(I,4)\r\n      EL = DSQRT(DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2)\r\n      DO 82 I = 1,3\r\n   82 DR(I,1) = DR(I,1)/EL\r\nC\r\n      CALL DAXB (DR(1,4),DR(1,1),DR(1,2))\r\n      DO 90 I = 1,3\r\n   90 DR(I,4) = R(I,I4) - R(I,I1)\r\n      CALL GMMATD (DR(1,1),2,3,0, DR(1,3),2,3,1, KQ)\r\n      DRT(L,3) = KQ(1)\r\n      DRT(L,4) = KQ(2)\r\n      DRT(M,3) = KQ(3)\r\n      DRT(M,4) = KQ(4)\r\n      DRT(L,1) = 0.0D0\r\n      DRT(L,2) = EL\r\n      DRT(M,1) = 0.0D0\r\n      DRT(M,2) = 0.0D0\r\n   95 CONTINUE\r\n      GO TO 120\r\n  100 IF (SUB.NE.2 .AND .SUB.NE.4) GO TO 120\r\nC\r\nC     MOVE  TRIANGLES TO ELEMENT COORDINATES\r\nC\r\n      DO 110 I = 1,3\r\n      DR(I,1) = R(I,2) - R(I,1)\r\n  110 DR(I,2) = R(I,3) - R(I,1)\r\nC\r\n      EL   = DR(1,1)**2 + DR(2,1)**2 + DR(3,1)**2\r\n      EL   = DSQRT(EL)\r\n      AREA = DADOTB( DR(1,1),DR(1,2))/EL\r\n      CALL DAXB (DR(1,1), DR(1,2), DR(1,3))\r\n      DR(2,3) = DSQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/EL\r\n      DR(1,3) = AREA\r\n      DR(1,1) = 0.0D0\r\n      DR(1,2) = EL\r\n      DR(2,1) = 0.0D0\r\n      DR(2,2) = 0.0D0\r\n  120 CONTINUE\r\nC\r\nC     LOOP  ON  SUBELEMENTS  (ONE FOR MOST)\r\nC\r\n      NEL = NELS(SUB)\r\n      DO 460 IEL = 1,NEL\r\nC\r\n      GO TO (130,160,160,140,140, 200,220,240,240,330,330,330,\r\n     1       330,330,330), SUB\r\nC\r\nC     RODS,BARS, ETC.\r\nC\r\n  130 C(1) = 1.0D0\r\n      C(2) =-1.0D0\r\n      EL = (R(1,2)-R(1,1))**2 + (R(2,2)-R(2,1))**2 + (R(3,2)-R(3,1))**2\r\n      EL = DSQRT(EL)\r\n      KQ(1) = AF*K(1)/EL\r\n      IP(1) = 1\r\n      IP(2) = 2\r\n      NP = 2\r\n      NQ = 1\r\n      GO TO 300\r\nC\r\nC     RING ELEMENTS, TRIANGLES AND QUADRILATERALS\r\nC\r\n  140 RBAR = 0.0\r\n      DO 150 I = 1,3\r\n      IG = I + IEL - 1\r\n      IF (IG .GT. 4) IG = IG - 4\r\n      RBAR  = RBAR + R(1,IG)\r\n  150 IP(I) = IG\r\n      AF = RBAR/3.0*PI\r\n      IF (SUB .EQ. 5) GO TO 160\r\n      I1 = IP(1)\r\n      I2 = IP(2)\r\n      I3 = IP(3)\r\n      GO TO 180\r\n  160 J  = 1\r\n      I1 = 1\r\n      I2 = 2\r\n      I3 = 3\r\n      IF (IEL.EQ.2 .OR. IEL.EQ.4) I3 = 4\r\n      IP(1) = 1\r\n      IP(2) = 2\r\n      IP(3) = 3\r\n      IF (IEL .EQ. 1) GO TO 165\r\n      IP(3) = 4\r\n      IF (IEL .EQ. 2) GO TO 165\r\n      J     = 3\r\n      IP(1) = 3\r\n      IP(2) = 4\r\n      IP(3) = 1\r\n      IF (IEL .EQ. 3) GO TO 165\r\n      IP(3) = 2\r\n  165 DO 170 I = 1,4\r\n      DR(1,I) = DRT(J,I)\r\n      DR(2,I) = DRT(J+1,I)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n      AREA = DR(1,I1)*(DR(2,I2) - DR(2,I3))\r\n     1     + DR(1,I2)*(DR(2,I3) - DR(2,I1))\r\n     2     + DR(1,I3)*(DR(2,I1) - DR(2,I2))\r\nC\r\n      C(1) = (DR(2,I2) - DR(2,I3))/AREA\r\n      C(2) = (DR(2,I3) - DR(2,I1))/AREA\r\n      C(3) = (DR(2,I1) - DR(2,I2))/AREA\r\nC\r\n      C(4) = (DR(1,I3) - DR(1,I2))/AREA\r\n      C(5) = (DR(1,I1) - DR(1,I3))/AREA\r\n      C(6) = (DR(1,I2) - DR(1,I1))/AREA\r\nC\r\n      IF (SUB.EQ.3 .OR. SUB.EQ.5) AREA = AREA/2.0D0\r\n      DO 190 I = 1,4\r\n  190 KQ(I) = K(I)*AREA*AF/2.0D0\r\nC\r\n      NP = 3\r\n      NQ = 2\r\n      GO TO 300\r\nC\r\nC     SOLID ELEMENTS\r\nC\r\n  200 DO 210 I = 1,4\r\n  210 IP(I) = I\r\n      GO TO 260\r\nC\r\nC     WEDGE\r\nC\r\n  220 LROW = 4*IEL - 4\r\n      DO 230 I = 1,4\r\n      I1 = LROW + I\r\n  230 IP(I) = SMAP(I1)\r\n      GO TO 260\r\nC\r\nC     HEXA1 AND HEXA2 ELEMENTS\r\nC\r\n  240 LROW = 4*IEL + 8\r\n      DO 250 I = 1,4\r\n      I1 = LROW +I\r\n  250 IP(I) = SMAP(I1)\r\n      I1 = IP(1)\r\n  260 DO 270 I = 1,3\r\n      IG = IP(I+1)\r\n      DO 270 J = 1,3\r\n      DR(J,I) = R(J,IG) - R(J,I1)\r\n  270 CONTINUE\r\nC\r\nC     COMPUTE INVERSE AND BRING ALONG THE DETERMINANT FROM INVERD.\r\nC\r\n      ISING = 0\r\n      CALL INVERD (3, DR(1,1),3,C(1), 0, DETERM,ISING,C(5))\r\n      DO 280 I = 1,3\r\n      IG = 4*I - 4\r\n      C(IG+1) = 0.0D0\r\n      DO 280 J = 2,4\r\n      I1 = IG + J\r\n      C(I1  ) = DR(J-1,I)\r\n      C(IG+1) = C(IG+1) - C(I1)\r\n  280 CONTINUE\r\n      FACT = DETERM/6.0D0\r\n      IF (SUB .EQ. 9)  FACT = FACT/2.0D0\r\n      DO 290 I = 1,9\r\n  290 KQ(I) = K(I)*FACT\r\n      NP = 4\r\n      NQ = 3\r\nC\r\nC     PERFORM  MATRIX MULTPLIES FOR EACH SUBELEMENT\r\nC                               T\r\nC                       DP  =  C  K  C * T1\r\nC\r\n  300 DO 310 I = 1,NP\r\n      IG = IP(I)\r\n      LTEMP = SIL(IG)\r\n      T1(I) = UNI(LTEMP)\r\n      SINDX(I) = SIL(IG)\r\n  310 CONTINUE\r\n      CALL GMMATD (C,NQ,NP,0, T1,NP,1,0, DRTEMP)\r\n      CALL GMMATD (KQ,NQ,NQ,0, DRTEMP,NQ,1,0, DRTEMP(1,3))\r\n      CALL GMMATD (C,NQ,NP,1, DRTEMP(1,3),NQ,1,0, KQ(1))\r\n      DO 320 I = 1,NP\r\n      IG = SINDX(I)\r\n      DELTA(IG)  = DELTA(IG) + KQ(I)\r\n  320 CONTINUE\r\n      GO TO 460\r\nC\r\nC     BOUNDARY HEAT CONVECTION ELEMENTS\r\nC\r\n  330 ITYPE = SUB - 9\r\n      IF (ITYPE .GT. 7) GO TO 10\r\n      GO TO (340,350,370,380,380,350,350), ITYPE\r\n  340 NP = 1\r\n      KQ(1) = AF*K(1)\r\n      GO TO 410\r\n  350 NP = 2\r\n      EL = (R(1,2)-R(1,1))**2 + (R(2,2)-R(2,1))**2 + (R(3,2)-R(3,1))**2\r\n      KQ(1) = AF*K(1)*DSQRT(EL)/3.0D0\r\n      KQ(2) = KQ(1)/2.0D0\r\n      KQ(3) = KQ(2)\r\n      KQ(4) = KQ(1)\r\n      GO TO 410\r\nC\r\nC     RING SURFACE\r\nC\r\n  370 EL    = ((R(1,2)-R(1,1))**2 + (R(3,2)-R(3,1))**2)\r\n      C(1)  = PI*K(1)*DSQRT(EL)/6.0D0\r\n      KQ(1) = C(1)*(3.0D0*R(1,1) + R(1,2))\r\n      KQ(2) = C(1)*(      R(1,1) + R(1,2))\r\n      KQ(3) = KQ(2)\r\n      KQ(4) = C(1)*(      R(1,1) + 3.0D0*R(1,2))\r\n      NP= 2\r\n      GO TO 410\r\nC\r\nC     TRIANGLES  (ALSO FOR SUBELEMENT OF QUAD)\r\nC\r\n  380 DO 390 I = 1,3\r\n      IG = I + IEL - 1\r\n      IF (IG .GT. 4) IG = IG - 4\r\n      IP(I) = IG\r\n  390 CONTINUE\r\n      I1 = IP(1)\r\n      I2 = IP(2)\r\n      I3 = IP(3)\r\n      DO 400 I = 1,3\r\n      DR(I,1) = R(I,I2) - R(I,I1)\r\n  400 DR(I,2) = R(I,I3) - R(I,I1)\r\n      CALL DAXB (DR(I,1),DR(I,2),DR(I,3))\r\n      AREA = DSQRT(DR(1,3)**2 + DR(2,3)**2 + DR(3,3)**2)/12.0D0\r\n      IF (ITYPE .EQ. 5) AREA = AREA/2.0D0\r\n      KQ(1) = AREA*K(1)\r\n      KQ(2) = KQ(1)/2.0D0\r\n      KQ(3) = KQ(2)\r\n      KQ(4) = KQ(2)\r\n      KQ(5) = KQ(1)\r\n      KQ(6) = KQ(2)\r\n      KQ(7) = KQ(2)\r\n      KQ(8) = KQ(2)\r\n      KQ(9) = KQ(1)\r\n      NP    = 3\r\nC\r\nC     PERFORM MATRIX MULTIPLY, FIRST GET TEMPERATURE VECTOR\r\nC\r\n  410 DO 430 I = 1,NP\r\n      IG = IP(I)\r\n      LTEMP  = SIL(IG)\r\n      T1(I)  = UNI(LTEMP)\r\n      IF (SIL(IG+4) .NE. 0) GO TO 420\r\n      T1(I+4) = 0.0D0\r\n      GO TO 430\r\n  420 LTEMP   = SIL(IG+4)\r\n      T1(I+4) = UNI(LTEMP)\r\n  430 CONTINUE\r\n      CALL GMMATD (KQ(1),NP,NP,0, T1(1),NP,1,0, C)\r\n      CALL GMMATD (KQ(1),NP,NP,0, T1(5),NP,1,0, C(5))\r\n      DO 450 I = 1,NP\r\n      IG  = IP(I)\r\n      IPG = SIL(IG)\r\n      DELTA(IPG) = DELTA(IPG) + C(I) - C(I+4)\r\n      IG = IG + 4\r\n      IF (SIL(IG)) 450,450,440\r\n  440 IPG = SIL(IG)\r\n      DELTA(IPG) = DELTA(IPG) + C(I+4) - C(I)\r\n  450 CONTINUE\r\nC\r\n  460 CONTINUE\r\n      GO TO 10\r\n  470 RETURN\r\nC\r\n  480 J = -2\r\n      CALL MESAGE (FILE,J,SUBR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssghtp.f",
    "content": "      SUBROUTINE SSGHTP(ORDER,Z,LZ)\r\nC*****\r\nC  SPECIAL IN-PLACE PARTITIONING ROUTINE USED ONLY BY SSGHT MODULE.\r\nC*****\r\n      INTEGER ORDER(LZ), Z(LZ), SAVE1, SAVE2, PTR\r\n      I = 1\r\n      ISAVE = 1\r\nC\r\nC     CHECK TO SEE THAT POINTER TO NEXT SLOT HAS NOT BEEN USED YET.\r\nC\r\n   10 PTR = ORDER(I)\r\n      IF( PTR .GT. 1000000 ) GO TO 40\r\n      ORDER(I) = PTR + 1000000\r\nC\r\nC     IF THE MOVE-TO LOCATION IS THE SAME, THEN DO NOTHING.\r\nC\r\n      IF( PTR .EQ. I ) GO TO 40\r\nC\r\nC     SAVE VALUE CURRENTLY IN SLOT WE ARE MOVING TO.\r\nC\r\n      SAVE1 = Z(PTR)\r\nC\r\nC     MOVE ITEM INTO SLOT\r\nC\r\n      Z(PTR) = Z(I)\r\nC\r\nC     SET POINTER TO WHERE -SAVE1- IS TO BE MOVED.\r\nC\r\n   20 JPTR = ORDER(PTR)\r\n      IF( JPTR .GT. 1000000 ) GO TO 30\r\n      ORDER(PTR) = JPTR + 1000000\r\n      SAVE2 = Z(JPTR)\r\n      Z(JPTR) = SAVE1\r\n      SAVE1 = SAVE2\r\n      PTR = JPTR\r\n      GO TO 20\r\nC\r\nC     END OF CHAIN.  GO BACK AND LOOK FOR ANOTHER.\r\nC\r\n   30 I = ISAVE + 1\r\n      GO TO 50\r\n   40 I = I + 1\r\n   50 ISAVE = I\r\n      IF( I .LE. LZ ) GO TO 10\r\nC\r\nC     CLEAR OUT FLAGS AND RETURN.\r\nC\r\n      DO 60 I = 1,LZ\r\n      ORDER(I) = ORDER(I) - 1000000\r\n   60 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssgkhi.f",
    "content": "      SUBROUTINE SSGKHI (TREAL,TINT,FN)\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE (5X1) KHI  VECTOR FOR USE BY TRBSC,\r\nC                                           E\r\nC     TRPLT, AND QDPLT.\r\nC\r\nC     WHEN PROCESSING THE TRPLT OR QDPLT THIS ROUTINE SHOULD BE CALLED\r\nC     AFTER THE FIRST SUBTRIANGLE ONLY DUE TO THE D MATRIX ORIENTATION.\r\nC\r\n      INTEGER         TINT(6),INDEX(9)\r\n      REAL            TREAL(6),KHI\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(6)\r\n      COMMON /MATOUT/ DUM(7),ALPHA1,ALPHA2,ALPH12\r\n      COMMON /TRIMEX/ EID\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\nC\r\nC     DETERMINE TYPE OF TEMPERATURE DATA\r\nC\r\n      IF (TINT(6) .NE. 1) GO TO 100\r\nC\r\nC     TEMPERATURE DATA IS TEMPP1 OR TEMPP3 TYPE.\r\nC\r\n      KHI(1) = -ALPHA1*TREAL(2)*FN\r\n      KHI(2) = -ALPHA2*TREAL(2)*FN\r\n      KHI(3) = -ALPH12*TREAL(2)*FN\r\n      GO TO 120\r\nC\r\nC     TEMPERATURE DATA IS TEMPP2 TYPE.\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n  100 ISING = -1\r\n      CALL INVERS (3,D(1),3,0,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 2) GO TO 110\r\n      WRITE  (IOUT,105) UFM,EID\r\n  105 FORMAT (A23,' 4018, A SINGULAR MATERIAL MATRIX -D- FOR ELEMENT',\r\n     1       I9,' HAS BEEN DETECTED BY ROUTINE SSGKHI', /26X,'WHILE ',\r\n     2       'TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.')\r\n      CALL MESAGE (-61,0,0)\r\n  110 CALL GMMATS (D(1),3,3,0, TREAL(2),3,1,0, KHI(1))\r\n      KHI(1) = KHI(1)*FN\r\n      KHI(2) = KHI(2)*FN\r\n      KHI(3) = KHI(3)*FN\r\n  120 KHI(4) = 0.0\r\n      KHI(5) = 0.0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssgslt.f",
    "content": "      SUBROUTINE SSGSLT (SLT,NEWSLT,EST)\r\nC\r\nC     THIS SUBROUTINE OF THE SSG1 MODULE COPIES THE SLT TO ANOTHER\r\nC     FILE.  IN THE COPYING PROCESS ANY -QVOL-, -QBDY1-, -QBDY2-, OR\r\nC     -QVECT- EXTERNAL LOAD TYPE DATA FOUND WILL BE ALTERED SO AS TO\r\nC     REPLACE THEIR ELEMENT ID REFERENCES WITH THE APPROPRIATE SILS, AND\r\nC     MISC. CONSTANTS.  THE EXTERNAL LOADS WILL BE PREPARED AS USUAL FOR\r\nC     THESE AND OTHER LOAD CARD TYPES VIA SUBROUTINE EXTERN.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         ANY,NOGO,BGCORE,BGOPEN\r\n      REAL            AREA,HC1,HC2,HC3,Q0,PIOVR4,XX,YY,ZZ,\r\n     1                RBUF(50),RZ(1),RECPT(100)\r\n      INTEGER         MCB(7),ECPT(100),BUF(50),SUBR(2),TYPE(25,4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / NROWSP\r\n      COMMON /GPTA1 / NELEM,LAST,INCR,NE(1)\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,CLSREW,CLS\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF  ), (KSYSTM(2),OUTPT  ),\r\n     1                (ECPT(1)  ,RECPT(1)), (BUF(1)   ,RBUF(1)),\r\n     2                (Z(1)     ,RZ(1)   )\r\n      DATA    SUBR  / 4HSSGS,4HLT    /    , NOEOR,EOR/ 0, 1 /\r\n      DATA    BGPDT / 102/\r\n      DATA    PIOVR4/ 0.7853981634E0 /\r\n      DATA    CBAR  / 34 /\r\n      DATA    CROD  /  1 /\r\n      DATA    CONROD/ 10 /\r\n      DATA    CTUBE /  3 /\r\n      DATA    CTRMEM/  9 /\r\n      DATA    CTRIA1/  6 /\r\n      DATA    CTRIA2/ 17 /\r\n      DATA    CQDMEM/ 16 /\r\n      DATA    CQDMM1/ 62 /\r\n      DATA    CQDMM2/ 63 /\r\n      DATA    CQUAD4/ 64 /\r\n      DATA    CTRIA3/ 83 /\r\n      DATA    CQUAD1/ 19 /\r\n      DATA    CQUAD2/ 18 /\r\n      DATA    CTRIRG/ 36 /\r\n      DATA    CTRPRG/ 37 /\r\n      DATA    CTETRA/ 39 /\r\n      DATA    CWEDGE/ 40 /\r\n      DATA    CHEXA1/ 41 /\r\n      DATA    CHEXA2/ 42 /\r\n      DATA    CHBDY / 52 /\r\n      DATA    CIHEX1/ 65 /\r\n      DATA    CIHEX2/ 66 /\r\n      DATA    CIHEX3/ 67 /\r\nC\r\n      DATA    NTYPES/ 25 /\r\nC\r\nC          SLT            NEWSLT         FLAG FOR       DATA\r\nC          WORDS-IN       WORDS-OUT      SPEC-PROC      CORE-LOCAT\r\nC          ==========     ==========     ==========     ==========\r\nC     FORCE\r\n      DATA TYPE( 1,1)/ 6/,TYPE( 1,2)/ 6/,TYPE( 1,3)/ 0/,TYPE( 1,4)/ 0/\r\nC     MOMENT\r\n      DATA TYPE( 2,1)/ 6/,TYPE( 2,2)/ 6/,TYPE( 2,3)/ 0/,TYPE( 2,4)/ 0/\r\nC     FORCE1\r\n      DATA TYPE( 3,1)/ 4/,TYPE( 3,2)/ 4/,TYPE( 3,3)/ 0/,TYPE( 3,4)/ 0/\r\nC     MOMNT1\r\n      DATA TYPE( 4,1)/ 4/,TYPE( 4,2)/ 4/,TYPE( 4,3)/ 0/,TYPE( 4,4)/ 0/\r\nC     FORCE2\r\n      DATA TYPE( 5,1)/ 6/,TYPE( 5,2)/ 6/,TYPE( 5,3)/ 0/,TYPE( 5,4)/ 0/\r\nC     MOMNT2\r\n      DATA TYPE( 6,1)/ 6/,TYPE( 6,2)/ 6/,TYPE( 6,3)/ 0/,TYPE( 6,4)/ 0/\r\nC     SLOAD\r\n      DATA TYPE( 7,1)/ 2/,TYPE( 7,2)/ 2/,TYPE( 7,3)/ 0/,TYPE( 7,4)/ 0/\r\nC     GRAV\r\n      DATA TYPE( 8,1)/ 5/,TYPE( 8,2)/ 5/,TYPE( 8,3)/ 0/,TYPE( 8,4)/ 0/\r\nC     PLOAD\r\n      DATA TYPE( 9,1)/ 5/,TYPE( 9,2)/ 5/,TYPE( 9,3)/ 0/,TYPE( 9,4)/ 0/\r\nC     RFORCE\r\n      DATA TYPE(10,1)/ 6/,TYPE(10,2)/ 6/,TYPE(10,3)/ 0/,TYPE(10,4)/ 0/\r\nC     PRESAX\r\n      DATA TYPE(11,1)/ 6/,TYPE(11,2)/ 6/,TYPE(11,3)/ 0/,TYPE(11,4)/ 0/\r\nC     QHBDY\r\n      DATA TYPE(12,1)/ 7/,TYPE(12,2)/ 7/,TYPE(12,3)/ 0/,TYPE(12,4)/ 0/\r\nC     QVOL\r\n      DATA TYPE(13,1)/ 2/,TYPE(13,2)/12/,TYPE(13,3)/ 1/,TYPE(13,4)/ 0/\r\nC     QBDY1\r\n      DATA TYPE(14,1)/ 2/,TYPE(14,2)/10/,TYPE(14,3)/ 1/,TYPE(14,4)/ 0/\r\nC     QBDY2\r\n      DATA TYPE(15,1)/ 5/,TYPE(15,2)/10/,TYPE(15,3)/ 1/,TYPE(15,4)/ 0/\r\nC     QVECT\r\n      DATA TYPE(16,1)/ 5/,TYPE(16,2)/19/,TYPE(16,3)/ 1/,TYPE(16,4)/ 0/\r\nC     PLOAD3\r\n      DATA TYPE(17,1)/38/,TYPE(17,2)/38/,TYPE(17,3)/ 0/,TYPE(17,4)/ 0/\r\nC     PLOAD1\r\n      DATA TYPE(18,1)/ 7/,TYPE(18,2)/ 7/,TYPE(18,3)/ 0/,TYPE(18,4)/ 0/\r\nC     PLOADX\r\n      DATA TYPE(19,1)/ 5/,TYPE(19,2)/ 5/,TYPE(19,3)/ 0/,TYPE(19,4)/ 0/\r\nC     SPCFLD  (WORDS OUT IS A DUMMY VALUE-IT WILL REALLY BE 3*NROWSP)\r\n      DATA TYPE(20,1)/ 5/,TYPE(20,2)/ 4/,TYPE(20,3)/ 0/,TYPE(20,4)/ 0/\r\nC     CEMLOOP\r\n      DATA TYPE(21,1)/12/,TYPE(21,2)/12/,TYPE(21,3)/ 0/,TYPE(21,4)/ 0/\r\nC     GEMLOOP  ,BOTH INPUT AND OUTPUT ARE DUMMY.\r\n      DATA TYPE(22,1)/ 5/,TYPE(22,2)/ 4/,TYPE(22,3)/ 0/,TYPE(22,4)/ 0/\r\nC     MDIPOLE (OUTPUT VALUE IS A DUMMY)\r\n      DATA TYPE(23,1)/ 9/,TYPE(23,2)/ 5/,TYPE(23,3)/ 0/,TYPE(23,4)/ 0/\r\nC     REMFLUX    (OUTPUT VALUE IS A DUMMY)\r\n      DATA TYPE(24,1)/ 5/,TYPE(24,2)/ 5/,TYPE(24,3)/ 0/,TYPE(24,4)/ 0/\r\nC     PLOAD4\r\n      DATA TYPE(25,1)/11/,TYPE(25,2)/11/,TYPE(25,3)/ 0/,TYPE(25,4)/ 0/\r\nC\r\nC                     SLT                         NEWSLT\r\nC     CARD=TYPE       WORDS IN                    WORDS OUT\r\nC     =========       ========                    =========\r\nC\r\nC     QVOL=13         1 = QV                      1 = NUM-POINTS(1 TO 8)\r\nC                     2 = ELEMENT ID              2 = ELEMENT ID\r\nC                                                 3 THRU 10 = 8 SILS\r\nC                                                 11 = COEFICIENT\r\nC                                                 12 = TYPE 1 = 1 DIMEN\r\nC                                                           2 = 2 DIMEN\r\nC                                                           3 = BELL-EL\r\nC                                                           4 = SOLID\r\nC\r\nC     QBDY1=14        1 = Q0                      1 = TYPE (1 TO 5)\r\nC                     2 = ELEMENT ID              2 = ELEMENT ID\r\nC                                                 3 THRU  6 = 4 SILS\r\nC                                                 7 THRU 10 = 4 COEFS.\r\nC\r\nC     QBDY2=15        1 = ELEMENT ID              1 = ELEMENT ID\r\nC                     2 = Q01                     2 = TYPE (1 TO 5)\r\nC                     3 = Q02                     3 THRU  6 = 4 SILS\r\nC                     4 = Q03                     7 THRU 10 = 4 COEFS.\r\nC                     5 = Q04\r\nC\r\nC     QVECT=16        1 = Q0                      1 THRU 4 = 4 SILS\r\nC                     2 = E1                      5 = ELEMENT ID\r\nC                     3 = E2                      6 = TYPE (1 TO 5)\r\nC                     4 = E3                      7 THRU 10 = 4 COEFS.\r\nC                     5 = ELEMENT ID              11 = E1\r\nC                                                 12 = E2\r\nC                                                 13 = E3\r\nC                                                 14 THRU 16 = V1 VECTOR\r\nC                                                 17 THRU 19 = V2 VECTOR\r\nC\r\nC\r\nC\r\nC     SPCFLD=20       1 = CID                     1 THRU 3*NROWSP=\r\nC                     2 = HCX                     TOTAL HC VALUES AT\r\nC                     3 = HCY                     THE GRID POINTS\r\nC                     4 = HCZ\r\nC                     5 = GRID ID OR -1\r\nC\r\nC\r\nC     CEMLOOP=21                                  SAME AS FOR\r\nC     GEMLOOP=22                                  SPCFLD\r\nC\r\nC\r\nC\r\nC     MDIPOLE=23      1  =CID                     SAME AS\r\nC                     2-4=LOCATION OF DIPOLE      SPCFLD\r\nC                     5-7=DIPOLE MOMENT\r\nC                     8  =MIN. DISTANCE\r\nC                     9  =MAX. DISTANCE\r\nC\r\nC     REMFLUX=24      SAME INPUT AS               1 THRU 3*(NO. OF\r\nC                     SPCFLD EXCEPT               ELEMENTS)= TOTAL\r\nC                     WORD 5 IS ELEMENT ID        REMANENT FLUX DENSITY\r\nC                                                 FOR EACH ELEMNT IN\r\nC                                                 ORDER ON EST\r\nC\r\nC     THE ELEMENT ID MUST REMAIN IN THE SAME LOCATION ON OUTPUT.\r\nC\r\nC\r\nC     SET UP CORE AND BUFFERS. (PG BUFFER IS OPEN IN SSG1)\r\nC\r\n      BGCORE=.FALSE.\r\n      BGOPEN=.FALSE.\r\n      NOGO  = .FALSE.\r\n      BUF1  = KORSZ(Z) - 2*SYSBUF - 2\r\n      BUF2  = BUF1 - SYSBUF - 2\r\n      BUF3  = BUF2 - SYSBUF - 2\r\n      CORE  = BUF3 - 1\r\n      IF (CORE .LT. 100) CALL MESAGE (-8,0,SUBR)\r\nC\r\nC     OPEN SLT, AND NEWSLT.  COPY HEADER RECORD ACROSS.\r\nC\r\n      CALL OPEN (*650,SLT,Z(BUF1),RDREW)\r\n      CALL OPEN (*660,NEWSLT,Z(BUF2),WRTREW)\r\n      CALL READ (*670,*10,SLT,Z,CORE,EOR,IWORDS)\r\n      CALL MESAGE (-8,0,SUBR)\r\n   10 CALL FNAME (NEWSLT,Z)\r\n      CALL WRITE (NEWSLT,Z,IWORDS,EOR)\r\nC\r\nC     READ TRAILER OF SLT AND GET COUNT OF LOAD SET RECORDS.\r\nC\r\n      MCB(1) = SLT\r\n      CALL RDTRL (MCB)\r\n      NRECS  = MCB(2)\r\n      MCB(1) = NEWSLT\r\n      CALL WRTTRL (MCB)\r\nC\r\nC     PROCESSING OF LOAD SET RECORDS IF ANY.\r\nC\r\n      IF (NRECS) 620,620,20\r\n   20 I = 1\r\n   21 CONTINUE\r\n      ANY  = .FALSE.\r\n      NCORE= NRECS+2\r\n      IFIRST = 0\r\nC\r\nC     ZERO OUT EXISTANCE FLAGS\r\nC\r\n      DO 25 K = 1,NTYPES\r\n      TYPE(K,4) = 0\r\n   25 CONTINUE\r\nC\r\nC     READ CARD TYPE AND COUNT OF CARDS\r\nC\r\n   30 CALL READ (*670,*110,SLT,BUF,2,NOEOR,IWORDS)\r\n   35 CONTINUE\r\n      ITYPE  = BUF(1)\r\n      ENTRYS = BUF(2)\r\nC\r\nC     CHECK FOR KNOWN TYPE\r\nC\r\n      IF (ITYPE.LE.NTYPES .AND. ITYPE.GT.0) GO TO 50\r\n      WRITE  (OUTPT,40) SFM,ITYPE\r\n   40 FORMAT (A25,' 3094, SLT LOAD TYPE',I9,' IS NOT RECOGNIZED.')\r\n      CALL MESAGE (-61,0,SUBR)\r\nC\r\nC     CHECK FOR SPECIAL PROCESSING.\r\nC\r\n   50 INCNT = TYPE(ITYPE,1)\r\nC\r\nC     IF TYPE IS CEMLOOP,SPCFLD,MDIPOLE, OR GEMLOOP,GO TO 800 FOR\r\nC     SPECIAL PROCESSING. GO TO 1000 FOR REMFLUX PROCESSING\r\nC\r\n      IF (ITYPE.GE.20 .AND. ITYPE.LE.23) GO TO 800\r\n      IF (ITYPE .EQ. 24) GO TO 1000\r\n      OUTCNT = TYPE(ITYPE,2)\r\n      IFLAG  = TYPE(ITYPE,3)\r\nC\r\n      IF (IFLAG) 90,90,60\r\nC\r\nC     OK BRING DATA INTO CORE.\r\nC\r\n   60 JCORE = NCORE + 1\r\n      TYPE(ITYPE,4) = JCORE\r\n      Z(JCORE  ) = ITYPE\r\n      Z(JCORE+1) = ENTRYS\r\n      JCORE = JCORE + 2\r\n      NCORE = JCORE + ENTRYS*OUTCNT - 1\r\n      IF (NCORE .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\n      DO 70 J = JCORE,NCORE\r\n      Z(J) = 1\r\n   70 CONTINUE\r\n      KCORE = JCORE\r\nC\r\nC     READ IN THE LOAD ENTRIES.\r\nC\r\n      DO 80 J = JCORE,NCORE,OUTCNT\r\n      CALL FREAD (SLT,Z(J),INCNT,0)\r\n   80 CONTINUE\r\n      ID = 2\r\n      IF (ITYPE .EQ. 15) ID = 1\r\n      IF (ITYPE .EQ. 16) ID = 5\r\n      CALL SORT (0,0,OUTCNT,ID,Z(KCORE),NCORE-KCORE+1)\r\n      ANY = .TRUE.\r\n      GO TO 30\r\nC\r\nC     NO SPECIAL PROCESSING OF THIS LOAD TYPE THUS JUST COPY IT ACROSS.\r\nC\r\n   90 CALL WRITE (NEWSLT,BUF,2,NOEOR)\r\n      DO 100 J = 1,ENTRYS\r\n      CALL FREAD (SLT,BUF,INCNT,0)\r\n      CALL WRITE (NEWSLT,BUF,OUTCNT,NOEOR)\r\n  100 CONTINUE\r\n      GO TO 30\r\nC\r\nC     ALL DATA NOW IN CORE FOR THIS LOAD SET.\r\nC\r\n  110 IF (.NOT. ANY) GO TO 600\r\nC\r\nC     THE EST IS NOW PROCESSED FOR ELEMENT TYPES CHECKED BELOW.\r\nC\r\n      CALL GOPEN (EST,Z(BUF3),RDREW)\r\nC\r\nC     READ ELEMENT TYPE\r\nC\r\n  120 CALL READ (*500,*690,EST,ELTYPE,1,NOEOR,IWORDS)\r\n      IF (ELTYPE .EQ. CBAR  ) GO TO 140\r\n      IF (ELTYPE .EQ. CROD  ) GO TO 150\r\n      IF (ELTYPE .EQ. CONROD) GO TO 150\r\n      IF (ELTYPE .EQ. CTUBE ) GO TO 160\r\n      IF (ELTYPE .EQ. CTRMEM) GO TO 170\r\n      IF (ELTYPE .EQ. CTRIA1) GO TO 180\r\n      IF (ELTYPE .EQ. CTRIA2) GO TO 170\r\n      IF (ELTYPE .EQ. CTRIA3) GO TO 175\r\n      IF (ELTYPE .EQ. CQDMEM) GO TO 190\r\n      IF (ELTYPE .EQ. CQDMM1) GO TO 190\r\n      IF (ELTYPE .EQ. CQDMM2) GO TO 190\r\n      IF (ELTYPE .EQ. CQUAD1) GO TO 200\r\n      IF (ELTYPE .EQ. CQUAD2) GO TO 190\r\n      IF (ELTYPE .EQ. CQUAD4) GO TO 195\r\n      IF (ELTYPE .EQ. CTRIRG) GO TO 210\r\n      IF (ELTYPE .EQ. CTRPRG) GO TO 220\r\n      IF (ELTYPE .EQ. CTETRA) GO TO 230\r\n      IF (ELTYPE .EQ. CWEDGE) GO TO 240\r\n      IF (ELTYPE .EQ. CHEXA1) GO TO 250\r\n      IF (ELTYPE .EQ. CHEXA2) GO TO 250\r\n      IF (ELTYPE .EQ. CIHEX1) GO TO 252\r\n      IF (ELTYPE .EQ. CIHEX2) GO TO 254\r\n      IF (ELTYPE .EQ. CIHEX3) GO TO 256\r\n      IF (ELTYPE .EQ. CHBDY ) GO TO 360\r\n  130 CALL FWDREC (*700,EST)\r\n      GO TO 120\r\nC\r\nC     BAR\r\nC\r\n  140 ESTWDS = 42\r\n      GRID1  = 2\r\n      POINTS = 2\r\n      IAREA  = 17\r\n      ITYPE  = 1\r\n      GO TO 260\r\nC\r\nC     ROD AND CONROD\r\nC\r\n  150 ESTWDS = 17\r\n      GRID1  = 2\r\n      POINTS = 2\r\n      IAREA  = 5\r\n      ITYPE  = 1\r\n      GO TO 260\r\nC\r\nC     TUBE\r\nC\r\n  160 ESTWDS = 16\r\n      GRID1  = 2\r\n      POINTS = 2\r\n      IAREA  = 5\r\n      ITYPE  = 1\r\n      GO TO 260\r\nC\r\nC     TRMEM AND TRIA2\r\nC\r\n  170 ESTWDS = 21\r\n      GRID1  = 2\r\n      POINTS = 3\r\n      IAREA  = 7\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     TRIA3\r\nC\r\n  175 ESTWDS = 39\r\n      GRID1  = 2\r\n      POINTS = 3\r\n      IAREA  = 7\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     TRIA1\r\nC\r\n  180 ESTWDS = 27\r\n      GRID1  = 2\r\n      POINTS = 3\r\n      IAREA  = 7\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     QDMEM AND QUAD2\r\nC\r\n  190 ESTWDS = 26\r\n      GRID1  = 2\r\n      POINTS = 4\r\n      IAREA  = 8\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     QUAD4\r\nC\r\n  195 ESTWDS = 45\r\n      GRID1  = 2\r\n      POINTS = 4\r\n      IAREA  = 8\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     QUAD1\r\nC\r\n  200 ESTWDS = 32\r\n      GRID1  = 2\r\n      POINTS = 4\r\n      IAREA  = 8\r\n      ITYPE  = 2\r\n      GO TO 260\r\nC\r\nC     TRIRG\r\nC\r\n  210 ESTWDS = 19\r\n      GRID1  = 2\r\n      POINTS = 3\r\n      IAREA  = 0\r\n      ITYPE  = 3\r\n      GO TO 260\r\nC\r\nC     TRAPRG\r\nC\r\n  220 ESTWDS = 24\r\n      GRID1  = 2\r\n      POINTS = 4\r\n      IAREA  = 0\r\n      ITYPE  = 3\r\n      GO TO 260\r\nC\r\nC     TETRA\r\nC\r\n  230 ESTWDS = 23\r\n      GRID1  = 3\r\n      POINTS = 4\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 260\r\nC\r\nC     WEDGE\r\nC\r\n  240 ESTWDS = 33\r\n      GRID1  = 3\r\n      POINTS = 6\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 260\r\nC\r\nC     HEXA1 AND HEXA2\r\nC\r\n  250 ESTWDS = 43\r\n      GRID1  = 3\r\n      POINTS = 8\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 260\r\nC\r\nC     IHEX1\r\nC\r\n  252 ESTWDS = 55\r\n      GRID1  = 3\r\n      POINTS = 8\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 260\r\nC\r\nC     IHEX2 AND IHEX3 ARE NOT IMPLEMENTED DUE TO\r\nC        1. ECPT ARRAY TOO SMALL IN THIS ROUTINE\r\nC        2. QVOL ROUTINE CAN NOT HANDLE SOLID ELEMENTS HAVING MORE THAN\r\nC           8 GRID POINTS\r\nC\r\nC     IHEX2\r\nC\r\n  254 ESTWDS = 127\r\n      GRID1  = 3\r\n      POINTS = 20\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 130\r\nC\r\nC     IHEX3\r\nC\r\n  256 ESTWDS = 199\r\n      GRID1  = 3\r\n      POINTS = 32\r\n      IAREA  = 0\r\n      ITYPE  = 4\r\n      GO TO 130\r\nC\r\nC     MISC. ELEMENTS OF EST FILE.  DO QVOL REFERENCES.\r\nC\r\n  260 IF (TYPE(13,4) .EQ. 0) GO TO 130\r\n      IDQVOL = TYPE(13,4) + 3\r\n      ENTRYS = Z(IDQVOL-2)\r\n      IWORDS = 12\r\n      J1 = IDQVOL\r\n      J2 = J1 + ENTRYS*IWORDS\r\n      IDPTR = 2\r\n      ASSIGN 280 TO IRETRN\r\n  270 CALL READ (*700,*120,EST,ECPT,ESTWDS,NOEOR,IFLAG)\r\nC\r\nC     LOOK FOR THIS ELEMENT ID AMONG QVOL DATA.\r\nC\r\n      CALL BISLOC (*270,ECPT(1),Z(IDQVOL),12,ENTRYS,JPOINT)\r\nC\r\nC     MATCH FOUND ON ID. COMPUTE ZERO POINTER TO ZERO WORD OF QVOL ENTRY\r\nC\r\n      INDEX = IDQVOL + JPOINT - 3\r\n      GO TO 710\r\nC\r\nC     IF COEFICIENT IS NOT AN INTEGER 1 ENTRY HAS BEEN ALTERED BEFORE.\r\nC\r\n  280 DO 350 INDEX = K1,K2,IWORDS\r\n      IF (Z(INDEX+11) .EQ. 1) GO TO 300\r\n      WRITE  (OUTPT,290) UWM,ELTYPE,ECPT(1),Z(I+2)\r\n  290 FORMAT (A25,' 3095, ELEMENT TYPE',I9,' WITH ID =',I9,\r\n     1       ', REFERENCED BY A QVOL CARD IN LOAD SET',I9,1H,, /5X,\r\n     2       'IS NOT BEING USED FOR INTERNAL HEAT GENERATION IN THIS ',\r\n     3       'LOAD SET BECAUSE ANOTHER ELEMENT TYPE WITH THE SAME ID',\r\n     4       /5X,'HAS ALREADY BEEN USED.')\r\n      GO TO 350\r\nC\r\nC     ALTER ENTRY IN PLACE (NOTE THE CONVERSION TABLE ABOVE)\r\nC\r\nC     GET AREA FACTOR FROM ECPT AND REVISE ENTRY.\r\nC\r\n  300 IF (IAREA .EQ. 0) GO TO 310\r\n      AREA = RECPT(IAREA)\r\n      IF (ELTYPE.EQ.CTUBE) AREA = PIOVR4*(AREA**2-(AREA-2.*RECPT(6))**2)\r\n      GO TO 320\r\n  310 AREA = 1.0\r\n  320 I1 = INDEX + 3\r\n      I2 = INDEX + 10\r\n      DO 330 J = I1,I2\r\n      Z(J) = 0\r\n  330 CONTINUE\r\n      I2 = I1 + POINTS - 1\r\n      IGRID = GRID1\r\n      DO 340 J = I1,I2\r\n      Z(J)  = ECPT(IGRID)\r\n      IGRID = IGRID+1\r\n  340 CONTINUE\r\n      RZ(INDEX+11) = RZ(INDEX+1)*AREA\r\n      Z(INDEX + 1) = POINTS\r\n      Z(INDEX +12) = ITYPE\r\n  350 CONTINUE\r\n      GO TO 270\r\nC\r\nC     HBDY ELEMENTS OF EST FILE.  DO QBDY1, QBDY2, AND QVECT REFERENCES.\r\nC\r\nC\r\nC     BUF(3) IS SET TO 0 AS A FLAG TO TELL IF HBDY HAS BEEN CALLED FOR\r\nC     THIS ELEMENT.\r\nC\r\n  360 IF (TYPE(14,4)+TYPE(15,4)+TYPE(16,4) .EQ. 0) GO TO 130\r\n      IDBDY1 = TYPE(14,4) + 3\r\n      IDBDY2 = TYPE(15,4) + 2\r\n      IDQVEC = TYPE(16,4) + 6\r\n      QBDY1S = Z(IDBDY1-2)\r\n      QBDY2S = Z(IDBDY2-1)\r\n      QVECTS = Z(IDQVEC-5)\r\n      ESTWDS = 53\r\nC\r\nC     READ AN HBDY ELEMENT ECPT FROM THE EST.\r\nC\r\n  370 CALL READ (*700,*120,EST,ECPT,ESTWDS,NOEOR,IFLAG)\r\nC\r\nC     LOOK FOR ID AMONG QBDY1 DATA\r\nC\r\n      IF (TYPE(14,4) .EQ. 0) GO TO 410\r\n      IWORDS = 10\r\n      J1 = IDBDY1\r\n      J2 = J1 + QBDY1S*IWORDS\r\n      IDPTR = 2\r\n      ASSIGN 380 TO IRETRN\r\n      CALL BISLOC (*410,ECPT(1),Z(IDBDY1),10,QBDY1S,JPOINT)\r\nC\r\nC     MATCH FOUND.  CHECK FOR PREVIOUS REFERENCE.\r\nC\r\n      INDEX = IDBDY1 + JPOINT - 3\r\n      GO TO 710\r\n  380 DO 400 INDEX = K1,K2,IWORDS\r\n      IF (Z(INDEX+10) .EQ. 1) GO TO 390\r\n      WRITE  (OUTPT,382) UFM,ECPT(1)\r\n  382 FORMAT (A23,' 2362, CHBDY CARDS WITH DUPLICATE IDS FOUND IN EST,',\r\n     1       ' CHBDY ID NUMBER =',I9)\r\n      NOGO = .TRUE.\r\n      GO TO 650\r\nC\r\nC     ALTER ENTRY FOR OUTPUT.  GET AREA FACTORS FOR HBDY ELEMENT.\r\nC\r\n  390 CALL HBDY (ECPT,ECPT,2,RBUF,BUF)\r\n      Z(INDEX +3) = BUF(3)\r\n      Z(INDEX +4) = BUF(4)\r\n      Z(INDEX +5) = BUF(5)\r\n      Z(INDEX +6) = BUF(6)\r\n      RZ(INDEX+7) = RBUF(7)*RZ(INDEX+1)\r\n      RZ(INDEX+8) = RBUF(8)*RZ(INDEX+1)\r\n      RZ(INDEX+9) = RBUF(9)*RZ(INDEX+1)\r\n      RZ(INDEX+10)= RBUF(10)*RZ(INDEX+1)\r\n      Z(INDEX +1) = ECPT(2)\r\n  400 CONTINUE\r\nC\r\nC     LOOK FOR ID AMONG QBDY2 DATA.\r\nC\r\n  410 IF (TYPE(15,4) .EQ. 0) GO TO 450\r\n      IWORDS = 10\r\n      J1 = IDBDY2\r\n      J2 = J1 + QBDY2S*IWORDS\r\n      IDPTR = 1\r\n      ASSIGN 420 TO IRETRN\r\n      CALL BISLOC (*450,ECPT(1),Z(IDBDY2),10,QBDY2S,JPOINT)\r\nC\r\nC     MATCH FOUND.  CHECK FOR PREVIOUS REFERENCE.\r\nC\r\n      INDEX = IDBDY2 + JPOINT - 2\r\n      GO TO 710\r\n  420 DO 440 INDEX = K1,K2,IWORDS\r\n      IF (Z(INDEX+10) .EQ. 1) GO TO 430\r\n      WRITE (OUTPT,382) UFM,ECPT(1)\r\n      NOGO = .TRUE.\r\n      GO TO 650\r\nC\r\nC     ALTER ENTRY FOR OUTPUT.  GET AREA FACTORS FOR HBDY ELEMENT.\r\nC\r\n  430 CALL HBDY (ECPT,ECPT,2,RBUF,BUF)\r\n      RZ(INDEX+7) = RBUF(7)*RZ(INDEX+2)\r\n      RZ(INDEX+8) = RBUF(8)*RZ(INDEX+3)\r\n      RZ(INDEX+9) = RBUF(9)*RZ(INDEX+4)\r\n      RZ(INDEX+10)= RBUF(10)*RZ(INDEX+5)\r\n      Z(INDEX +3) = BUF(3)\r\n      Z(INDEX +4) = BUF(4)\r\n      Z(INDEX +5) = BUF(5)\r\n      Z(INDEX +6) = BUF(6)\r\n      Z(INDEX +2) = ECPT(2)\r\n  440 CONTINUE\r\nC\r\nC     LOOK FOR ID AMONG QVECT DATA\r\nC\r\n  450 IF (TYPE(16,4) .EQ. 0) GO TO 490\r\n      IWORDS = 19\r\n      J1 = IDQVEC\r\n      J2 = J1 + QVECTS*IWORDS\r\n      IDPTR = 5\r\n      ASSIGN 460 TO IRETRN\r\n      CALL BISLOC (*490,ECPT(1),Z(IDQVEC),19,QVECTS,JPOINT)\r\nC\r\nC     MATCH FOUND.  CHECK FOR PREVIOUS REFERENCE.\r\nC\r\n      INDEX = IDQVEC + JPOINT - 6\r\n      GO TO 710\r\n  460 DO 480 INDEX = K1,K2,IWORDS\r\n      IF (Z(INDEX+19) .EQ. 1) GO TO 470\r\n      WRITE (OUTPT,382) UFM,ECPT(1)\r\n      NOGO = .TRUE.\r\n      GO TO 650\r\nC\r\nC     ALTER ENTRY FOR OUTPUT.  GET AREA FACTORS FOR HBDY ELEMENT.\r\nC\r\n  470 CALL HBDY (ECPT,ECPT,3,RBUF,BUF)\r\n      RZ(INDEX+11) = RZ(INDEX+2)\r\n      RZ(INDEX+12) = RZ(INDEX+3)\r\n      RZ(INDEX+13) = RZ(INDEX+4)\r\n      RZ(INDEX+14) = RBUF(11)\r\n      RZ(INDEX+15) = RBUF(12)\r\n      RZ(INDEX+16) = RBUF(13)\r\n      RZ(INDEX+17) = RBUF(14)\r\n      RZ(INDEX+18) = RBUF(15)\r\n      RZ(INDEX+19) = RBUF(16)\r\n      Q0           = RZ(INDEX+1)\r\n      Z(INDEX + 1) = BUF(3)\r\n      Z(INDEX + 2) = BUF(4)\r\n      Z(INDEX + 3) = BUF(5)\r\n      Z(INDEX + 4) = BUF(6)\r\n      Z(INDEX + 6) = ECPT(2)\r\n      RZ(INDEX+ 7) = RBUF(7)*Q0\r\n      RZ(INDEX+ 8) = RBUF(8)*Q0\r\n      RZ(INDEX+ 9) = RBUF(9)*Q0\r\n      RZ(INDEX+10) = RBUF(10)*Q0\r\n  480 CONTINUE\r\n  490 GO TO 370\r\nC\r\nC     EST HAS BEEN PASSED FOR ALL ELEMENTS.  NOW OUTPUT DATA TO NEWSLT.\r\nC\r\n  500 CALL CLOSE (EST,CLSREW)\r\n      DO 590 J = 13,16\r\n      JCORE = TYPE(J,4)\r\n      IF (JCORE) 590,590,510\r\n  510 NWORDS = Z(JCORE+1)*TYPE(J,2) + 2\r\nC\r\nC     INSURE THAT ALL ENTRYS WERE MODIFIED.\r\nC     CHECK WORD 7 FOR NO INTEGER 1 IN TYPES 14,15, AND 16.\r\nC     CHECK WORD 11 FOR NO INTEGER 1 IN TYPE 13.\r\nC\r\n      K = 8\r\n      IF (J .EQ. 13) K = 12\r\n      I1 = JCORE + K\r\n      I2 = I1 + NWORDS - 3\r\n      OUTCNT = TYPE(J,2)\r\n      DO 580 L = I1,I2,OUTCNT\r\n      IF (Z(L) .NE. 1) GO TO 580\r\n      K = J - 12\r\n      GO TO (520,530,540,550), K\r\n  520 ID = L - 9\r\n      GO TO 560\r\n  530 ID = L - 5\r\n      GO TO 560\r\n  540 ID = L - 6\r\n      GO TO 560\r\n  550 ID = L - 2\r\n      GO TO 560\r\n  560 WRITE  (OUTPT,570) UFM,Z(ID)\r\n  570 FORMAT (A23,' 3096, ELEMENT ID =',I9,' AS REFERENCED ON A QVOL, ',\r\n     1       'QBDY1, QBDY2, OR QVECT LOAD CARD,', /5X,'COULD NOT BE ',\r\n     2       'FOUND AMONG ACCEPTABLE ELEMENTS FOR THAT LOAD TYPE.')\r\n      NOGO = .TRUE.\r\n  580 CONTINUE\r\n      CALL WRITE (NEWSLT,Z(JCORE),NWORDS,NOEOR)\r\n  590 CONTINUE\r\nC\r\nC     COMPLETE THIS LOAD SET RECORD ON -NEWSLT-.\r\nC\r\n  600 CALL WRITE (NEWSLT,0,0,EOR)\r\n      I = I+1\r\n      IF (I .LE. NRECS) GO TO 21\r\nC\r\nC     COPY BALANCE OF DATA ON -SLT- TO -NEWSLT- WHATEVER IT BE.\r\nC\r\n  620 CALL READ (*640,*630,SLT,Z,CORE,NOEOR,IWORDS)\r\n      CALL WRITE (NEWSLT,Z,CORE,NOEOR)\r\n      GO TO 620\r\n  630 CALL WRITE (NEWSLT,Z,IWORDS,EOR)\r\n      GO TO 620\r\nC\r\nC     NEWSLT IS COMPLETE.\r\nC\r\n  640 CALL CLOSE (SLT,CLSREW)\r\n      CALL CLOSE (NEWSLT,CLSREW)\r\n  650 IF (NOGO) CALL MESAGE (-61,0,SUBR)\r\n      RETURN\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n  660 CALL MESAGE (-1,NEWSLT,SUBR)\r\n  670 CALL MESAGE (-2,SLT   ,SUBR)\r\n  690 CALL MESAGE (-3,EST   ,SUBR)\r\n  700 CALL MESAGE (-2,EST   ,SUBR)\r\n  701 CALL MESAGE (-2,BGPDT ,SUBR)\r\n      RETURN\r\nC\r\nC     INTERNAL ROUTINE TO FIND THE START AND END OF ENTRYS HAVING THE\r\nC     SAME ID IN A GIVEN CARD-TYPE SET.\r\nC\r\nC\r\nC     BACK UP TO FIRST ENTRY OF THIS ID.\r\nC\r\n  710 JINDEX = INDEX + IDPTR - IWORDS\r\n  720 IF (JINDEX .LT. J1) GO TO 730\r\n      IF (Z(JINDEX) .NE. ECPT(1)) GO TO 730\r\n      JINDEX = JINDEX - IWORDS\r\n      GO TO 720\r\n  730 K1 = JINDEX + IWORDS - IDPTR\r\nC\r\nC     FIND LAST ENTRY OF THIS ID.\r\nC\r\n      JINDEX = K1 + IWORDS + IDPTR\r\n  740 IF (JINDEX .GE. J2) GO TO 750\r\n      IF (Z(JINDEX) .NE. ECPT(1)) GO TO 750\r\n      JINDEX = JINDEX + IWORDS\r\n      GO TO 740\r\n  750 K2 = JINDEX - IWORDS - IDPTR\r\n      GO TO IRETRN, (280,380,420,460)\r\nC\r\nC     SPECIAL PROCESSING FOR SPCFLD,CEMLOOP,MDIPOLE, AND GEMLOOP. SET UP\r\nC     A VECTOR FOR ALL BUT SPCFLD CARDS, COMPUTE FIELD AT EACH POINT\r\nC     IN BGPDT. WHEN FINISHED, ALL THE E AND M CARD TYPES WILL BE\r\nC     ACCUMULATED INTO ONE SPCFLD-LIKE CARD WITH FIELD VALUSS AT EACH\r\nC     POINT\r\nC\r\n  800 IF (IFIRST .EQ. 1) GO TO 811\r\n      IFIRST = 1\r\n      JCORE1 = NCORE+1\r\n      JCOREN = NCORE+3*NROWSP\r\n      IF (JCOREN.GT.CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\n      DO 810 J1 = JCORE1,JCOREN\r\n  810 RZ(J1) = 0.\r\nC\r\nC     ALL E AND M CARDS WILL BE COMBINED INTO ONE LOGICAL CARD OF\r\nC     TYPE=20, 3*NROWSP VALUES HCX,HCY,HCZ AT EACH POINT IN THE MODEL.\r\nC     FOR CEMLOOP AND GEMLOOP, WE MUST PICK UP BGPDT FOREACH POINT AND\r\nC     COMPUTE FIELD FOR EACH LOOP\r\nC *** 10/1/80 WE MUST ALSO FIND HC AT INTEGRATION POINTS AND CENTROIDS.\r\nC     SO ALSO COPY SLT INFO TO NEWSLT FOR USE IN EANDM\r\nC\r\nC\r\nC     1ST OCCURRENCE OF A CARD TYPE. CHECK ON TYPE\r\nC\r\n  811 JTYPE = ITYPE-19\r\n      GO TO (812,840,840,840), JTYPE\r\nC\r\nC     SPCFLD\r\nC\r\n  812 BUF(1) = 20\r\n      BUF(2) = 1\r\n      CALL WRITE (NEWSLT,BUF,2,0)\r\n      DO 830 J1 = 1,ENTRYS\r\nC\r\nC     READ ONE SPCFLD CARD\r\nC\r\n      CALL FREAD (SLT,BUF,5,0)\r\n      IF (BUF(5).NE.-1) GO TO 825\r\nC\r\nC     BUF(1)=CID WHICH IS ASSUMED TO BE 0 FOR NOW\r\nC\r\nC     ALL GRIDS GET HC\r\nC\r\n      DO 820 J2 = JCORE1,JCOREN,3\r\n      RZ(J2  ) = RZ(J2  )+RBUF(2)\r\n      RZ(J2+1) = RZ(J2+1)+RBUF(3)\r\n      RZ(J2+2) = RZ(J2+2)+RBUF(4)\r\n  820 CONTINUE\r\n      GO TO 830\r\nC\r\n  825 ISUB = NCORE+3*BUF(5)-2\r\n      RZ(ISUB  ) = RZ(ISUB  )+RBUF(2)\r\n      RZ(ISUB+1) = RZ(ISUB+1)+RBUF(3)\r\n      RZ(ISUB+2) = RZ(ISUB+2)+RBUF(4)\r\n  830 CONTINUE\r\nC\r\nC     DONE WITH ALL SPCFLD CARDS IN THIS LOAD SET. CHECK FOR OTHER CARD\r\nC     TYPES IN THIS LOAD SET\r\nC\r\n      CALL WRITE (NEWSLT,RZ(JCORE1),3*NROWSP,0)\r\n      GO TO 910\r\nC\r\nC     CEMLOOP,GEMLOOP, OR MDIPOLE\r\nC     CHECK FOR ENOUGH CORE TO READ IN BGPDT. IF NOT, READ ONE POINT AT\r\nC     A TIME\r\nC\r\n  840 IF (BGOPEN) GO TO 850\r\nC\r\nC     IF MODCOM(9) IS NOT SET TO NONZERO, THEN WE WILL NOT COMPUTE HCFLD\r\nC     AT GRID POINTS FOR COILS, ETC.(ONLY SPCFLD) SINCE IT TAKES TIME\r\nC     AND IS NOT NEEDED IN ANY SUBSEQUENT COMPUTATION. (ONLY SPCFLD INFO\r\nC     IS NEEDED LATER. ALL OTHER HC INFO IS COMPUTED LATER) IF MODCOM(9)\r\nC     IS SET TO NONZERO, HCFLD IS COMPUTED AT THE POINTS FOR ALL LOAD\r\nC     TYPES AND CAN BE PRINTED FOR INFORMATIONAL PURPOSES IF DESIRED.\r\nC\r\n      IF (KSYSTM(65) .EQ. 0) GO TO 850\r\n      CALL GOPEN (BGPDT,Z(BUF3),0)\r\n      MCB(1) = BGPDT\r\n      CALL RDTRL (MCB)\r\n      NPTS   = MCB(2)\r\n      BGCORE = .TRUE.\r\n      BGOPEN = .TRUE.\r\n      IF (JCOREN+4*NPTS.GT.CORE) BGCORE=.FALSE.\r\n      NEXT = JCOREN+4*NPTS\r\n      IF (.NOT.BGCORE) NEXT=JCOREN\r\n      IF (BGCORE) CALL FREAD (BGPDT,Z(JCOREN+1),4*NPTS,0)\r\n  850 CONTINUE\r\n      CALL WRITE (NEWSLT,BUF,2,0)\r\nC\r\n      DO 900 J1 = 1,ENTRYS\r\nC\r\nC     READ CEMLOOP, GEMLOOP, OR MDIPOLE ENTRY\r\nC\r\n      IWORDS = 12\r\n      IF (ITYPE .EQ. 22) IWORDS = 48\r\n      IF (ITYPE .EQ. 23) IWORDS = 9\r\n      CALL FREAD (SLT,BUF,IWORDS,0)\r\n      CALL WRITE (NEWSLT,BUF,IWORDS,0)\r\n      IF (KSYSTM(65) .EQ. 0) GO TO 900\r\nC\r\nC\r\nC     DO THIS LOOP FOR ALL POINTS\r\nC\r\n      DO 890 KK = 1,NPTS\r\n      IF (BGCORE) GO TO 880\r\n      CALL FREAD (BGPDT,BUF,4,0)\r\n      IF (BUF(1) .EQ. -1) GO TO 890\r\n      XX = RBUF(2)\r\n      YY = RBUF(3)\r\n      ZZ = RBUF(4)\r\n      GO TO 885\r\n  880 JCOR = JCOREN+4*KK\r\n      IF (Z(JCOR-3) .EQ. -1) GO TO 890\r\n      XX = RZ(JCOR-2)\r\n      YY = RZ(JCOR-1)\r\n      ZZ = RZ(JCOR )\r\n  885 IF (ITYPE .EQ. 21) GO TO 886\r\n      IF (ITYPE .EQ. 23) GO TO 888\r\n      CALL GELOOP (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 887\r\n  886 CALL AXLOOP (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n      GO TO 887\r\n  888 CALL DIPOLE (RBUF,BUF,XX,YY,ZZ,HC1,HC2,HC3)\r\n  887 ISUB = NCORE+3*KK-2\r\n      RZ(ISUB  ) = RZ(ISUB  )+HC1\r\n      RZ(ISUB+1) = RZ(ISUB+1)+HC2\r\n      RZ(ISUB+2) = RZ(ISUB+2)+HC3\r\nC\r\nC     GO BACK FOR ANOTHER POINT\r\nC\r\n  890 CONTINUE\r\n      IF (BGCORE) GO TO 900\r\n      CALL REWIND (BGPDT)\r\n      CALL FWDREC (*701,BGPDT)\r\nC\r\nC     GET ANOTHER LOOP OR DIPOLE\r\nC\r\n  900 CONTINUE\r\nC\r\nC     CHECK IF NEXT CARD TYPE IS 21 ,22, OR 23. CARD TYPES ON SLT ARE\r\nC     IN INCREASING CARD TYPE). IF SO, STAY HERE. OTHERWISE, WRITE OUT\r\nC     ALL CARD TYPES GENERATING AN SPCFLD-TYPE CARD AND GOING ONTO\r\nC     HCFLDS MUST HAVE CONSECUTIVE TYPE NUMBERS FOR THIS SPECIAL\r\nC     PROCESSING THE GENERATED SPCFLD AND GO BACK TO NORMAL PROCESSING\r\nC\r\n  910 CALL READ (*670,*920,SLT,BUF,2,NOEOR,IWORDS)\r\n      ITYPE  = BUF(1)\r\n      ENTRYS = BUF(2)\r\n      IF (BUF(1).GE.20 .AND. BUF(1).LE.23) GO TO 811\r\n      IEOR = 0\r\n      GO TO 930\r\n  920 IEOR = 1\r\n  930 BUF(1) =-20\r\n      BUF(2) = 1\r\n      CALL WRITE (NEWSLT,BUF,2,0)\r\n      CALL WRITE (NEWSLT,RZ(JCORE1),3*NROWSP,0)\r\n      IF (BGOPEN) CALL CLOSE (BGPDT,1)\r\n      IF (IEOR .EQ. 1) GO TO 110\r\n      GO TO 35\r\nC\r\nC     REMFLUX PROCESSING. CREATE A VECTOR OF ORDER 3N,N=NUMBER OF\r\nC     ELEMENTS IN MODEL,N IS 1ST TRAILER WORD OF EST. THE VECTOR\r\nC     CONTAINS TOTAL BX,BY,BZ FROM ALL REMFLUX CARDS FOR EACH ELEMENT\r\nC     IN THE ORDER OF ELEMENTS ON EST\r\nC\r\n 1000 CALL GOPEN (EST,Z(BUF3),0)\r\n      MCB(1) = EST\r\n      CALL RDTRL (MCB)\r\n      NEL    = MCB(2)\r\n      JCORE1 = NCORE+1\r\n      JCOREN = NCORE+3*NEL\r\n      JCOREX = JCOREN+5*ENTRYS\r\n      IF (JCOREX .GT. CORE) CALL MESAGE (-8,0,SUBR)\r\nC\r\n      NELS = 0\r\n      DO 1010 J1 = JCORE1,JCOREN\r\n 1010 RZ(J1) = 0.\r\nC\r\nC     READ ALL REMFLUX CARDS\r\nC\r\n      CALL FREAD (SLT,RZ(JCOREN+1),5*ENTRYS,0)\r\nC\r\n 1020 CALL READ (*1050,*690,EST,ELTYPE,1,0,IWORDS)\r\n      IDX = (ELTYPE-1)*INCR\r\n      ESTWDS = NE(IDX+12)\r\n 1025 CALL READ (*700,*1020,EST,ELID,1,0,IWORDS)\r\n      NELS = NELS+1\r\n      ISUB = NCORE+3*NELS-2\r\n      CALL FREAD (EST,DUM,-ESTWDS+1,0)\r\nC\r\nC     CHECK FOR THIS ELID AMONG THE REMFLUX CARDS\r\nC\r\n      DO 1040 J1 = 1,ENTRYS\r\n      ISUB1 = JCOREN+5*J1\r\n      IF (Z(ISUB1) .EQ.   -1) GO TO 1030\r\n      IF (ELID .NE. Z(ISUB1)) GO TO 1040\r\nC\r\nC     MATCH-STORE THIS PERM MAG\r\nC\r\n 1030 RZ(ISUB  ) = RZ(ISUB  )+RZ(ISUB1-3)\r\n      RZ(ISUB+1) = RZ(ISUB+1)+RZ(ISUB1-2)\r\n      RZ(ISUB+2) = RZ(ISUB+2)+RZ(ISUB1-1)\r\n 1040 CONTINUE\r\nC\r\nC     READ ANOTHER ELEMENT ID\r\nC\r\n      GO TO 1025\r\nC\r\nC     EST EXHAUSTED\r\nC\r\n 1050 CALL CLOSE (EST,1)\r\n      BUF(1) = 24\r\n      BUF(2) = 1\r\n      CALL WRITE (NEWSLT,BUF,2,0)\r\n      CALL WRITE (NEWSLT,RZ(JCORE1),3*NEL,0)\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/sslot1.f",
    "content": "      SUBROUTINE SSLOT1(IOPT)\r\nC                  IOPT-  CSLOT3 = 0,  CSLOT4 = 1\r\nC     THE ECPT DATA FOR THESE ELEMENTS ARE\r\nC\r\nC     FIELD   CSLOT3                CSLOT4\r\nC       1       ID                  ID\r\nC       2       SIL1                SIL1\r\nC       3       SIL2                SIL2\r\nC       4       SIL3                SIL3\r\nC       5       RHO                 SIL4\r\nC       6       BULK                RHO\r\nC       7       M                   BULK\r\nC       8       N                   M\r\nC       9       CID1                N\r\nC       10      R1                  CID1\r\nC      11       Z1                  R1\r\nC      12       W1                  Z1\r\nC      13       CID2                W1\r\nC      14       R2                  CID2\r\nC      15       Z2                  R2\r\nC      16       W2                  Z2\r\nC      17       CID3                W2\r\nC      18       R3                  CID3\r\nC      19       Z3                  R3\r\nC      20       W3                  Z3\r\nC      21       TEMP                W3\r\nC      22                           CID4\r\nC      23                           R4\r\nC      24                           Z4\r\nC***** 25                           W4\r\nC***** 26                           TEMP\r\n      INTEGER NECPT(100),NOUT(100)\r\n      DIMENSION SV(24)\r\n      COMMON/SDR2X5/ ECPT(100),OUT(100)\r\n      COMMON/SDR2X6/ R(4),Z(4),RHO,FACT,A,NC1,NC2,NC3,IRET,NR,\r\n     1 COL,NR1,NR2,NR3,II,IJ\r\n      EQUIVALENCE (ECPT(1),NECPT(1)),(OUT(1),NOUT(1)),(OUT(6),SV(1))\r\n      IOT = 6\r\n      DO 10 I=1,30\r\n   10 NOUT(I) = 0\r\n      NC1 =1\r\n      NC2 =2\r\n      NC3 =3\r\n      IF(IOPT.NE.0) GO TO 30\r\nC     SET UP FOR THE SLOT3 ELEMENT\r\nC****\r\n      RHO = ECPT(5)\r\n      IRET=4\r\n      DO 20 I=1,3\r\n      NR= 4*(I-1)+10\r\n      R(I)=ECPT(NR)\r\n      Z(I)=ECPT(NR+1)\r\n   20 CONTINUE\r\n      GO TO 80\r\nC****\r\nC     THE CSLOT4 ELEMENT IS CALCULATED AS FOLLOWS\r\n   30 CONTINUE\r\n      RHO = ECPT(6)*4.0\r\n      DO 40 I =1,4\r\n      NR = 4*(I-1) +11\r\n      R(I) = ECPT(NR)\r\n      Z(I) = ECPT(NR+1)\r\n   40 CONTINUE\r\n      NCOL=6\r\n      IRET =1\r\n      GO TO 80\r\n   50 NC3 =4\r\n      IRET=2\r\n      GO TO 80\r\n   60 NC2 =3\r\n      IRET=3\r\n      GO TO 80\r\n   70 NC1= 2\r\n      IRET=4\r\n   80 A =    (R(NC1)*(Z(NC2)-Z(NC3)) +R(NC2)*(Z(NC3)-Z(NC1))\r\n     1        + R(NC3)*(Z(NC1)-Z(NC2)) )\r\n      FACT = - RHO *A\r\n      SV(NC1)=(Z(NC2) -Z(NC3))/FACT+SV(NC1)\r\n      SV(NC2)=(Z(NC3) -Z(NC1))/FACT+SV(NC2)\r\n      SV(NC3)=(Z(NC1) -Z(NC2))/FACT+SV(NC3)\r\nC\r\n      NR1= 3+IOPT +NC1\r\n      NR2= 3+IOPT +NC2\r\n      NR3= 3+IOPT +NC3\r\nC\r\n      SV(NR1)=(R(NC3)-R(NC2))/FACT +SV(NR1)\r\n      SV(NR2)=(R(NC1)-R(NC3))/FACT +SV(NR2)\r\n      SV(NR3)=(R(NC2)-R(NC1))/FACT +SV(NR3)\r\nC\r\n      GO TO (50,60,70,90),IRET\r\nC\r\n   90 CONTINUE\r\n      NR = IOPT+3\r\n      IF(IOPT .EQ. 1) RHO =RHO/4.0\r\n      DO 100 I =1,NR\r\n      J=I+1\r\n      IF(J .GT. IOPT+3) J =J-IOPT-3\r\n      FACT = 1.0/(SQRT((R(J)-R(I))**2+(Z(J)-Z(I))**2)*RHO)\r\n      II=  IOPT*(I+1) +4*I+3\r\n      FACT = 1.0/(SQRT((R(J)-R(I))**2+(Z(J)-Z(I))**2)*RHO)\r\n      II=  IOPT*(I+1) +4*I+3\r\n      IJ = II +J -I\r\n      SV(II) = FACT\r\n      SV(IJ) =-FACT\r\n  100 CONTINUE\r\nC\r\nC*****\r\nC     WRAP UP OUTPUT\r\nC*****\r\n      NOUT(1)= NECPT(1)\r\n      NOUT(2)= NECPT(2)\r\n      NOUT(3)= NECPT(3)\r\n      NOUT(4)= NECPT(4)\r\n      IF(IOPT.GT.0) NOUT(5)= NECPT(5)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sslot2.f",
    "content": "      SUBROUTINE SSLOT2 (IOPT,IPART,BRANCH,EIGEN)\r\nC\r\nC     THE OPTIONS ARE\r\nC         IOPT   -  CSLOT3 = 0,  CSLOT4 = 1\r\nC         IPART  -  FIRST  = 1,  SECOND = 2\r\nC         BRANCH -  SDR2 PROCESS CODE WORD\r\nC\r\n      INTEGER         SIL      ,ELID     ,BRANCH\r\n      DIMENSION       EIGEN(3)\r\n      COMMON /SDR2X4/ DUMY(35) ,IVEC\r\n      COMMON /SDR2X7/ ELID     ,SIL(4)   ,SV(95)   ,ID1     ,VELR(11),\r\n     1                ID2      ,VELI(11)\r\n      COMMON /ZZZZZZ/ ZZ(1)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      EQUIVALENCE     (CONSTS(2),TWOPI)\r\nC\r\n      KL  = IOPT + 3\r\n      KL2 = KL + 2\r\n      IF (IPART .EQ. 2) GO TO 20\r\n      DO 10 I = 1,11\r\n      VELR(I) = 0.0\r\n   10 VELI(I) = 0.0\r\n   20 X   = 1.0\r\n      Y   = 0.0\r\n      IF (BRANCH .EQ. 2) X = SQRT(ABS(EIGEN(2)))\r\n      IF (BRANCH .EQ. 5) X = TWOPI*EIGEN(1)\r\n      IF (X    .NE. 0.0) X = 1.0/X\r\n      IF (BRANCH .NE. 9) GO TO 30\r\n      EM  = EIGEN(2)**2 + EIGEN(3)**2\r\n      IF (EM .EQ. 0.0) GO TO 30\r\n      X   = EIGEN(2)/EM\r\n      Y   =-EIGEN(3)/EM\r\n   30 IF (IPART .NE. 2) GO TO 40\r\n      EM  = X\r\n      X   =-Y\r\n      Y   = EM\r\n   40 ID1 = ELID\r\n      ID2 = ELID\r\nC\r\n      DO 80 I = 1,KL\r\n      K   = IVEC + SIL(I) - 1\r\n      IF (X .EQ. 0.0) GO TO 60\r\n      DO 50 J = 1,KL2\r\n      IJ  = KL*(J-1) + I\r\nC\r\n      VELR(J) = SV(IJ)*ZZ(K)*X + VELR(J)\r\n   50 CONTINUE\r\n   60 IF (Y .EQ. 0.0) GO TO 80\r\n      DO 70 J = 1,KL2\r\n      IJ  = KL*(J-1) + I\r\n      VELI(J) = SV(IJ)*ZZ(K)*Y + VELI(J)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssold1.f",
    "content": "      SUBROUTINE SSOLD1(ITYPE)\r\nC*****\r\nC\r\nC  E C P T     TETRA          WEDGE          HEXA\r\nC  -----------------------------------------------\r\nC  ECPT( 1) =  EL ID          EL ID          EL ID\r\nC  ECPT( 2) =  MAT-ID         MAT-ID         MAT-ID\r\nC  ECPT( 3) =  GRID-1         GRID-1         GRID-1\r\nC  ECPT( 4) =  GRID-2         GRID-2         GRID-2\r\nC  ECPT( 5) =  GRID-3         GRID-3         GRID-3\r\nC  ECPT( 6) =  GRID-4         GRID-4         GRID-4\r\nC  ECPT( 7) =  CSID-1         GRID-5         GRID-5\r\nC  ECPT( 8) =  X1             GRID-6         GRID-6\r\nC  ECPT( 9) =  Y1             CSID-1         GRID-7\r\nC  ECPT(10) =  Z1             X1             GRID-8\r\nC  ECPT(11) =  CSID-2         Y1             CSID-1\r\nC  ECPT(12) =  X2             Z1             X1\r\nC  ECPT(13) =  Y2             CSID-2         Y1\r\nC  ECPT(14) =  Z2             X2             Z1\r\nC  ECPT(15) =  CSID-3         Y2             CSID-2\r\nC  ECPT(16) =  X3             Z2             X2\r\nC  ECPT(17) =  Y3             CSID-3         Y2\r\nC  ECPT(18) =  Z3             X3             Z2\r\nC  ECPT(19) =  CSID-4         Y3             CSID-3\r\nC  ECPT(20) =  X4             Z3             X3\r\nC  ECPT(21) =  Y4             CSID-4         Y3\r\nC  ECPT(22) =  Z4             X4             Z3\r\nC  ECPT(23) =  EL-TEM         Y4             CSID-4\r\nC  ECPT(24)                   Z4             X4\r\nC  ECPT(25)                   CSID-5         Y4\r\nC  ECPT(26)                   X5             Z4\r\nC  ECPT(27)                   Y5             CSID-5\r\nC  ECPT(28)                   Z5             X5\r\nC  ECPT(29)                   CSID-6         Y5\r\nC  ECPT(30)                   X6             Z5\r\nC  ECPT(31)                   Y6             CSID-6\r\nC  ECPT(32)                   Z6             X6\r\nC  ECPT(33)                   ELTEMP         Y6\r\nC  ECPT(34)                                  Z6\r\nC  ECPT(35)                                  CSID-7\r\nC  ECPT(36)                                  X7\r\nC  ECPT(37)                                  Y7\r\nC  ECPT(38)\r\nC  ECPT(39)                                  CSID-8\r\nC  ECPT(40)                                  X8\r\nC  ECPT(41)                                  Y8\r\nC  ECPT(42)                                  Z8\r\nC  ECPT(43)                                  EL-TEMP\r\nC*****\r\n      REAL NU\r\n      INTEGER NECPT(100),NPHI(170), M(14,4)\r\nC\r\n      COMMON / SDR2X5/ ECPT(100),PHIOUT(170)\r\n      COMMON / SDR2X6 /       CMAT(18,8)         ,BETA(8)\r\n     1                       ,TEMP(18)           ,ELVOL\r\n     2                       ,VOL                ,FACT\r\n     3                       ,NPTS               ,NEL\r\n     4                       ,MFIRST             ,NROW\r\n     5                       ,ITEST              ,FLOC\r\n     6                       ,J1                 ,JLOC\r\n     7                       ,KPT                ,NTEMP\r\n     8                       ,GE(36)             ,H(4,4)\r\n     9                       ,R(3,3)             ,TI(9)\r\n      COMMON / MATIN / NMAT,MATFLG,ELTEMP\r\n      COMMON / MATOUT/ E,G,NU,RHO,ALFA,TEMPO\r\nC\r\n      EQUIVALENCE (NPHI(1),PHIOUT(1))\r\n      EQUIVALENCE (NECPT(1),ECPT(1))\r\nC\r\n      DATA  M( 1,1),M( 1,2),M( 1,3),M( 1,4)/ 1   ,2   ,3   ,4 /\r\nC\r\n      DATA  M( 2,1),M( 2,2),M( 2,3),M( 2,4)/ 1   ,2   ,3   ,6 /\r\n      DATA  M( 3,1),M( 3,2),M( 3,3),M( 3,4)/ 1   ,2   ,6   ,5 /\r\n      DATA  M( 4,1),M( 4,2),M( 4,3),M( 4,4)/ 1   ,4   ,5   ,6 /\r\nC\r\n      DATA  M( 5,1),M( 5,2),M( 5,3),M( 5,4)/ 1   ,2   ,3   ,6 /\r\n      DATA  M( 6,1),M( 6,2),M( 6,3),M( 6,4)/ 1   ,3   ,4   ,8 /\r\n      DATA  M( 7,1),M( 7,2),M( 7,3),M( 7,4)/ 1   ,3   ,8   ,6 /\r\n      DATA  M( 8,1),M( 8,2),M( 8,3),M( 8,4)/ 1   ,5   ,6   ,8 /\r\n      DATA  M( 9,1),M( 9,2),M( 9,3),M( 9,4)/ 3   ,6   ,7   ,8 /\r\n      DATA  M(10,1),M(10,2),M(10,3),M(10,4)/ 2   ,3   ,4   ,7 /\r\n      DATA  M(11,1),M(11,2),M(11,3),M(11,4)/ 1   ,2   ,4   ,5 /\r\n      DATA  M(12,1),M(12,2),M(12,3),M(12,4)/ 2   ,4   ,5   ,7 /\r\n      DATA  M(13,1),M(13,2),M(13,3),M(13,4)/ 2   ,5   ,6   ,7 /\r\n      DATA  M(14,1),M(14,2),M(14,3),M(14,4)/ 4   ,5   ,7   ,8 /\r\nC\r\n      GO TO (100,110,120,130),ITYPE\r\nC*****\r\nC     THE TYPE OF THE ELEMENT DETERMINES THE FOLLOWING PARAMETERS\r\nC*****\r\n  100 NPTS  =4\r\n      NEL   =1\r\n      MFIRST=1\r\n      GO TO 140\r\n  110 NPTS  =6\r\n      NEL   =3\r\n      MFIRST=2\r\n      GO TO 140\r\n  120 NPTS  =8\r\n      NEL   =5\r\n      MFIRST=5\r\n      GO TO 140\r\n  130 NPTS  =8\r\n      NEL   =10\r\n      MFIRST=5\r\n  140 CONTINUE\r\nC*****\r\nC     ZERO OUT ARRAYS\r\nC*****\r\n      ELVOL =0.0\r\n      DO 200  J =1,NPTS\r\n      BETA(J) =0.0\r\n      DO 200  I =1,18\r\n      CMAT(I,J) = 0.0\r\n  200 CONTINUE\r\nC*****\r\nC     LOOP ON SUBELEMENTS\r\nC*****\r\n      DO 1000 ME =1,NEL\r\n      NROW = MFIRST +ME -1\r\nC*****\r\nC     J  CORRESPONDS TO THE X,Y,AND Z LOCATIONS OF EACH CONNECTED POINT\r\nC*****\r\n      DO 400 J =1,3\r\n      J1 = M(NROW,1)*4 +NPTS +J -1\r\nC*****\r\nC     I  CORRESPONDS TO POINTS 2,3,AND 4\r\nC*****\r\n      DO 400 I= 1,3\r\n      JLOC = M(NROW,I+1)*4 + NPTS + J - 1\r\nC*****\r\nC     ECPT(JLOC) IS THE JTH COMPONENT OF POINT I+1\r\nC*****\r\n  400 R(I,J) = ECPT(JLOC) -ECPT(J1)\r\nC*****\r\nC     INVERT THE GEOMETRY MATRIX EXPLICITLY USING VECTOR OPERATORS\r\nC*****\r\n      CALL SAXB(   R(1,3),R(1,2),TEMP)\r\n      H(2,1) = TEMP(1) + TEMP(2) + TEMP(3)\r\n      H(2,2) = R(2,2)*R(3,3) -R(3,2)*R(2,3)\r\n      H(2,3) = R(3,2)*R(1,3) -R(1,2)*R(3,3)\r\n      H(2,4) = R(1,2)*R(2,3) -R(2,2)*R(1,3)\r\n      CALL SAXB(   R(1,1),R(1,3),TEMP)\r\n      H(3,1) = TEMP(1)+ TEMP(2) +TEMP(3)\r\n      H(3,2) = R(2,3)*R(3,1) -R(3,3)*R(2,1)\r\n      H(3,3) = R(3,3)*R(1,1) -R(1,3)*R(3,1)\r\n      H(3,4) = R(1,3)*R(2,1) -R(2,3)*R(1,1)\r\n      CALL SAXB(   R(1,1),R(1,2),TEMP)\r\n      H(4,1) =-TEMP(1) -TEMP(2)-TEMP(3)\r\n      H(4,2) = R(2,1)*R(3,2) -R(3,1)*R(2,2)\r\n      H(4,3) = R(3,1)*R(1,2) -R(1,1)*R(3,2)\r\n      H(4,4) = R(1,1)*R(2,2) -R(2,1)*R(1,2)\r\n      VOL =   (R(1,3)*TEMP(1) + R(2,3)*TEMP(2) +R(3,3)*TEMP(3))/6.0\r\n      ELVOL = ELVOL +VOL\r\n      DO 500 I = 1,4\r\n      KPT = M(NROW,I)\r\n      BETA(KPT) = BETA(KPT) + VOL\r\n      CMAT(1, KPT) = H(2,I)/6.0  + CMAT(1 ,KPT)\r\n      CMAT(5, KPT) = H(3,I)/6.0  + CMAT(5 ,KPT)\r\n      CMAT(9, KPT) = H(4,I)/6.0  + CMAT(9 ,KPT)\r\n      CMAT(11,KPT) = H(4,I)/6.0  + CMAT(11,KPT)\r\n      CMAT(12,KPT) = H(3,I)/6.0  + CMAT(12,KPT)\r\n      CMAT(13,KPT) = H(4,I)/6.0  + CMAT(13,KPT)\r\n      CMAT(15,KPT) = H(2,I)/6.0  + CMAT(15,KPT)\r\n      CMAT(16,KPT) = H(3,I)/6.0  + CMAT(16,KPT)\r\n      CMAT(17,KPT) = H(2,I)/6.0  + CMAT(17,KPT)\r\n  500 CONTINUE\r\n 1000 CONTINUE\r\nC*****\r\nC     END OF ELEMENT LOOP\r\nC*****\r\nC*****\r\nC     CMAT CONTAINS THE SUM OF THE STRAIN -DISPLACEMENT MATRICES\r\nC                       TIMES THE VOLUME OF THE CONNECTED TETRAHEDRON\r\nC\r\nC     CALL THE MATERIAL  ROUTINE TO OBTAIN PARAMETERS\r\nC*****\r\n      NMAT = NECPT(2)\r\n      MATFLG =1\r\n      ELTEMP = ECPT(5*NPTS+3)\r\n      CALL MAT (ECPT(1))\r\n      FACT = E /((1.0+NU)*(1.0-2.0*NU) )\r\n      DO 1010 I = 1,36\r\n 1010 GE(I) = 0.0\r\n      GE(1) = FACT*(1.0-NU)\r\n      GE(2) = FACT* NU\r\n      GE(3) = GE(2)\r\n      GE(7) = GE(2)\r\n      GE(8) = GE(1)\r\n      GE(9) = GE(2)\r\n      GE(13)= GE(2)\r\n      GE(14)= GE(2)\r\n      GE(15)= GE(1)\r\n      GE(22)= G\r\n      GE(29)= G\r\n      GE(36)= G\r\nC*****\r\nC     EACH CMAT MATRIX IS PREEMULTIPLIED BY THE STRESS-STRAIN GE MATRIX\r\nC         AND DIVIDED BY THE SUM OF THE VOLUMES.\r\nC     IF NECESSARY THE MATRIX IS POST-MULTIPLIED BY A GLOBAL TRANSFORM T\r\nC\r\nC     LOOP ON GRID POINTS\r\nC*****\r\n      DO 2000 I =1,NPTS\r\n      NPHI(I+1) = NECPT(I+2)\r\n      K= NPTS+I +8\r\n      PHIOUT(K) =  BETA(I)/(4.0*ELVOL)\r\n      ICORD = NPTS +4*I -1\r\n      DO 1100 J =1,18\r\n 1100 CMAT(J,I) = CMAT(J,I)/ELVOL\r\n      K= NPTS*2 +18*I -9\r\n      IF(NECPT(ICORD).NE.0) GO TO 1200\r\n      CALL GMMATS( GE,6,6,0,CMAT(1,I),6,3,0,PHIOUT(K) )\r\n      GO TO 2000\r\n 1200 CALL TRANSS(NECPT(ICORD), TI )\r\n      CALL GMMATS( CMAT(1,I),6,3,0,TI,3,3,0,TEMP)\r\n      CALL GMMATS( GE,6,6,0,TEMP,6,3,0, PHIOUT(K) )\r\n 2000 CONTINUE\r\nC\r\n      NPHI(1) = NECPT(1)\r\n      PHIOUT(NPTS+2) = TEMPO\r\n      TEMP(1)= ALFA\r\n      TEMP(2)= ALFA\r\n      TEMP(3)= ALFA\r\n      TEMP(4)= 0.0\r\n      TEMP(5)= 0.0\r\n      TEMP(6)= 0.0\r\nC*****\r\nC     THE THERMAL EXPANSION VECTOR IS MULTIPLIED BY THE STRESS-STRAIN\r\nC       MATRIX,GE\r\nC*****\r\n      CALL GMMATS( GE,6,6,0,TEMP(1),6,1,0,PHIOUT(NPTS+3) )\r\nC*****\r\nC     THE OUTPUT ARRAY IS NOW COMPLETE\r\nC*****\r\n      RETURN\r\nC*****\r\nC     PHIOUT CONTAINS THE FOLLOWING WHERE N IS THE NUMBER OF CORNERS\r\nC\r\nC              ELEMENT ID\r\nC              N SILS\r\nC              T SUB 0\r\nC              6 THERMAL STRESS COEFFICIENTS\r\nC              N VOLUME RATIO COEFFICIENTS\r\nC              N 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS\r\nC\r\nC*****\r\n      END\r\n"
  },
  {
    "path": "mis/ssold2.f",
    "content": "      SUBROUTINE SSOLD2 (ITYPE,FTEMP)\r\nC\r\nC     PHASE TWO STRESS DATA RECOVERY FOR THE SOLID ELEMENTS\r\nC\r\nC     ITYPE = 1,2,3,OR4 CORRESPONDING TO THE TETRA,WEDGE,HEXA1,ORHEXA2\r\nC             ELEMENTS\r\nC\r\nC     PHIOUT CONTAINS THE FOLLOWING WHERE N IS THE NUMBER OF CORNERS\r\nC\r\nC             ELEMENT ID\r\nC             N SILS\r\nC             T SUB 0\r\nC             6 THERMAL STRESS COEFFICIENTS\r\nC             N VOLUME RATIO COEFFICIENTS\r\nC             N 6 BY 3 MATRICES RELATING STRESS TO DISPLACEMENTS\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      INTEGER         NPHI(1),EJECT,ISHD(7),TYP(8),ISTYP(2)\r\n      REAL            FTEMP(8),FRLAST(2)\r\n      COMMON /SYSTEM/ IBFSZ,NOUT,IDM(9),LINE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM\r\n      COMMON /SDR2X7/ PHIOUT(100),STRES(100),FORVEC(25)\r\n      COMMON /SDR2X8/ TEMP(6),FACTOR,NPTS,NPOINT,KS,KBETA,SIGMA(9),\r\n     1                CTMP(6),CSIG(7)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\n      EQUIVALENCE     (NPHI(1),PHIOUT(1)),(ISHD(1),LSUB),\r\n     1                (ISHD(2),LLD),(ISHD(6),FRLAST(1))\r\n      DATA    TYP   / 4HTETR,1HA, 4HWEDG,1HE, 4HHEXA,1H1, 4HHEXA,1H2  /\r\n      DATA    LLD   , LSUB,FRLAST / 2*-1, -1.0E30, -1.0E30  /\r\nC\r\n      GO TO (100,110,120,120), ITYPE\r\n  100 NPTS = 4\r\n      GO TO 130\r\n  110 NPTS = 6\r\n      GO TO 130\r\n  120 NPTS = 8\r\nC\r\nC\r\n  130 DO 140 I = 1,9\r\n      CSIG(I)  = 0.0\r\n  140 SIGMA(I) = 0.0\r\nC\r\nC     LOOP ON GRID POINTS, DISPLACEMENT EFFECTS\r\nC\r\n      DO 1000 N = 1,NPTS\r\n      NPOINT = IVEC + NPHI(N+1) - 1\r\n      KS =  18*N + 2*NPTS - 9\r\n      CALL SMMATS (PHIOUT(KS),6,3,0, Z(NPOINT),3,1,0, TEMP,CTMP)\r\n      DO 200 I = 1,6\r\n      CSIG (I+1) =  CSIG(I+1) + CTMP(I)\r\n  200 SIGMA(I+1) = SIGMA(I+1) + TEMP(I)\r\nC\r\nC     TEMPERATURE EFFECTS\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 1000\r\n      KBETA  = NPTS + N + 8\r\n      FACTOR = (FTEMP(N) - PHIOUT(NPTS+2))*PHIOUT(KBETA)\r\nC\r\n      DO 300 I = 1,6\r\n      KBETA = NPTS + I + 2\r\n  300 SIGMA(I+1) = SIGMA(I+1) - PHIOUT(KBETA)*FACTOR\r\n 1000 CONTINUE\r\n      SIGMA(1) = PHIOUT(1)\r\n      DO 1100 I = 1,7\r\n 1100 STRES(I) = SIGMA(I)\r\nC\r\nC     OCTAHEDRAL STRESS AND HYDROSTATIC PRESSURE\r\nC\r\n      STRES(8) = SQRT(SIGMA(2)*(SIGMA(2) - SIGMA(3) - SIGMA(4))*2.0 +\r\n     1           2.0*SIGMA(3)*(SIGMA(3) - SIGMA(4)) + 2.0* SIGMA(4)**2 +\r\n     2           6.0*(SIGMA(5)**2 + SIGMA(6)**2 + SIGMA(7)**2))/3.0\r\n      STRES(9) = -(SIGMA(2) + SIGMA(3) + SIGMA(4))/3.0\r\n      IF (NCHK .LE. 0) GO TO 450\r\nC\r\nC   . CHECK PRECISION\r\nC\r\n      CSIG(1) = PHIOUT(1)\r\n      K = 0\r\nC\r\nC   . STRESSES\r\nC\r\n      CALL SDRCHK (SIGMA(2),CSIG(2),6,K)\r\n      IF (K .EQ. 0) GO TO 450\r\nC\r\nC   . LIMITS EXCEEDED\r\nC\r\n      J = 2*ITYPE\r\n      ISTYP(1) = TYP(J-1)\r\n      ISTYP(2) = TYP(J  )\r\n      J = 0\r\nC\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2)) GO TO 420\r\n      LSUB = ISUB\r\n      LLD  = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 2\r\n      CALL PAGE1\r\n  400 CALL SD2RHD (ISHD,J)\r\n      LINE = LINE + 1\r\n      WRITE  (NOUT,410)\r\n  410 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,5X,2HSZ,4X,3HTYZ,4X,\r\n     1        3HTXZ,4X,3HTXY)\r\n      GO TO 430\r\n  420 IF (EJECT(2) .NE. 0) GO TO 400\r\n  430 WRITE  (NOUT,440,ERR=450) ISTYP,CSIG\r\n  440 FORMAT (1H0,6X,A4,A1,I7,6F7.1)\r\nC\r\n  450 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ssplin.f",
    "content": "      SUBROUTINE SSPLIN(NI,XYI,ND,XYD,KX,KY,KD,KT,DZ,G,NCORE,ISNG)\r\n      LOGICAL LX,LY,LONE,IKD,IKT\r\n      DIMENSION    G(1),XYI(1),XYD(1),NAME(2)\r\n      REAL DET\r\n      DATA NAME/4HSSPL,4HIN  /\r\n      LONE = .TRUE.\r\n      LX = .TRUE.\r\n      LY = .TRUE.\r\n      IKT = .FALSE.\r\n      IKD = .FALSE.\r\n      IF(KY.LT.0.OR.KX.LT.0) LONE = .FALSE.\r\n      IF(KY.LT.0.OR.KX.GT.0) LX   = .FALSE.\r\n      IF(KY.GT.0.OR.KX.LT.0) LY   = .FALSE.\r\n      N = NI\r\n      IF(LONE) N=N+1\r\n      IF(LX  ) N=N+1\r\n      IF(LY  ) N=N+1\r\n      EX = FLOAT(KX)\r\n      EY = FLOAT(KY)\r\n      IF(KT.EQ.1) IKT = .TRUE.\r\n      IF(KD.EQ.1)  IKD = .TRUE.\r\n      NB = ND*(1+KD)\r\nC\r\nC     CORE NEEDED\r\nC\r\nC                A          G         INVERS\r\n      NEEDED =           NB*NI      + 3*N\r\nC                               B         C\r\n      IF(IKT) NEEDED = NEEDED + NB*N  + NI*N\r\nC                                      C          A OR B\r\n      IF(.NOT.IKT) NEEDED = NEEDED + NI*N + MAX0(N*N,NB*N)\r\n      IF(NEEDED.GT.NCORE) CALL MESAGE(-8,0,NAME)\r\n      IS = NCORE - 3*N -1\r\n      IG = 1\r\nC\r\nC     IF  KT = 1 COMPUTE B THEN A THEN C IN A SPACE\r\nC\r\nC     IF KT = 0 COMPUTE C THEN A THEN B IN A SPACE\r\nC\r\n      NT = 2*NI\r\n      IF(.NOT.IKT) GO TO 65\r\n      GO TO 95\r\nC\r\nC     COMPUTE TO A MATRIX\r\nC\r\n    1 K = IA\r\nC\r\nC     ZERO A\r\nC\r\n      II = K+1\r\n      IK = II + N*N\r\n      DO 5 I = II,IK\r\n    5 G(I) = 0.0\r\n      II = 1\r\n      IK = 0\r\n      DO 60 I = 1,NT,2\r\n      K = K+IK\r\n      JJ = I/2\r\n      DO 20 J = I,NT,2\r\n      K = K+1\r\n      JJ = JJ +1\r\n      SUM = 0.0\r\n      XM = (XYI(I) - XYI(J)) **2\r\n      XP = (XYI(I) + XYI(J)) **2\r\n      YM = (XYI(I+1) - XYI(J+1)) **2\r\n      YP = (XYI(I+1) + XYI(J+1)) **2\r\n      T1 = XM+YM\r\n      T2 = XP+YM\r\n      T3 = XM+YP\r\n      T4 = XP+YP\r\n      IF(T1.NE.0.0) SUM = T1 * ALOG(T1)\r\n      IF(T2.NE.0.0.AND.KX.NE.0)SUM = SUM + (T2*ALOG(T2)*EX)\r\n      IF(T3.NE.0.0.AND.KY.NE.0) SUM = SUM + (T3 * ALOG(T3) * EY)\r\n      IF(T4.NE.0.0.AND.KY.NE.0.AND.KX.NE.0)SUM=SUM+(T4*ALOG(T4)*EX*EY)\r\n      IF(J.EQ.I) GO TO 10\r\n      G(K) = SUM\r\nC\r\nC     SYMETRY TERM\r\nC\r\n      KK = K + (N-1)*(JJ-II)\r\n      G(KK) = SUM\r\n      GO TO 20\r\n   10 G(K) = SUM + DZ\r\n      KK = K\r\n   20 CONTINUE\r\n      INR = 0\r\n      IF(.NOT.LONE) GO TO 30\r\n      INR = INR +1\r\n      G(K+INR) = 1.0\r\n      G(KK+INR*N) = 1.0\r\n   30 IF(.NOT.LX) GO TO 40\r\n      INR = INR +1\r\n      G(K+INR) = XYI(I)\r\n      G(KK+INR*N) = XYI(I)\r\n   40 IF(.NOT.LY) GO TO 50\r\n      INR = INR +1\r\n      G(K+INR) = XYI(I+1)\r\n      G(KK+INR*N) = XYI(I+1)\r\n   50 IK = II + INR\r\n      II = II +1\r\n   60 CONTINUE\r\nC\r\nC     CALL INVERS FOR A-1 C  OR A-1 B\r\nC\r\nC     REPLACE CALLS TO INVAER WITH CALLS TO INVERS\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISNG = -1\r\n      CALL INVERS(N,G(IA+1),N,G(MP),NC,DET,ISNG,G(IS))\r\n      IF(ISNG.EQ.2) GO TO 1000\r\n      IF(.NOT.IKT) GO TO 100\r\n      IC = IA\r\n      K = IC+1\r\n      GO TO 70\r\nC\r\nC     C MATRIX COLUMN STORED\r\nC\r\n   65 IC = NB*NI\r\n      MP = IC+1\r\n   70 DO 90 I = 1,NI\r\n      DO 80 J = 1,N\r\n      IC = IC+1\r\n      G(IC) = 0.0\r\n      IF(I.EQ.J) G(IC) = 1.0\r\n   80 CONTINUE\r\n   90 CONTINUE\r\n      IF(IKT) GO TO 170\r\n      NC = NI\r\n      IA = IC\r\n      GO TO 1\r\nC\r\nC     B MATRIX COLUMN STORED\r\nC\r\n   95 IB = NB*NI\r\n      MP = IB +1\r\n      GO TO 110\r\n  100 IB = IA\r\n  110 NR = 2*ND\r\n      K = IB +1\r\n      DO 160 J = 1,NR,2\r\n      DO 120 I = 1,NT,2\r\n      IB = IB+1\r\n      ALT1 = 0.0\r\n      ALT2 = 0.0\r\n      ALT3 = 0.0\r\n      ALT4 = 0.0\r\n      XM = XYD(J)- XYI(I)\r\n      XP = XYI(I) + XYD(J)\r\n      YM = XYD(J+1) - XYI(I+1)\r\n      YP = XYI(I+1) + XYD(J+1)\r\n      T1 = XM*XM + YM*YM\r\n      T2 = XP*XP + YM*YM\r\n      T3 = XM*XM + YP*YP\r\n      T4 = XP*XP +YP*YP\r\n      IF(T1.NE.0.0) ALT1 = ALOG(T1)\r\n      IF(T2.NE.0.0.AND.KX.NE.0)ALT2 = ALOG(T2)\r\n      IF(T3.NE.0.0.AND.KY.NE.0)ALT3 = ALOG(T3)\r\n      IF(T4.NE.0.0.AND.KX.NE.0.AND.KY.NE.0) ALT4 = ALOG(T4)\r\n      G(IB) = T1*ALT1 + T2*ALT2*EX + T3*ALT3*EY + T4*ALT4*EX*EY\r\n      IF(.NOT.IKD) GO TO 120\r\n      IK = IB + N\r\n      G(IK) = 2.0*( XM*(1.0+ALT1) + XP*(1.0+ALT2)*EX +\r\n     *        XM*(1.0+ALT3)*EY + XP*(1.0+ALT4)*EX*EY)\r\n  120 CONTINUE\r\n      INR = 0\r\n      IF(.NOT.LONE) GO TO 130\r\n      INR = INR +1\r\n      G(IB+INR) = 1.0\r\n      IF(IKD) G(IB+INR+N) = 0.0\r\n  130 IF(.NOT.LX) GO TO 140\r\n      INR = INR +1\r\n      G(IB+INR) = XYD(J)\r\n      IF(IKD) G(IB+INR+N) = 1.0\r\n  140 IF(.NOT.LY) GO TO 150\r\n      INR = INR +1\r\n      G(IB+INR) = XYD(J+1)\r\n      IF(IKD) G(IB+INR+N) = 0.0\r\n  150 IB = IB+INR + N*KD\r\n  160 CONTINUE\r\n      IF(.NOT.IKT) GO TO 180\r\n      IA = IB\r\n      NC = NB\r\n      GO TO 1\r\n  170 CONTINUE\r\nC\r\nC     GMMATS WANTS ROW STORED SO INVERT ROWS AND COLUMNS AND INVERT\r\nC     MULTIPLICATION ORDER\r\nC\r\n      CALL GMMATS(G(MP),NB,N,0,G(K),NI,N,1,G(IG))\r\n      GO TO 1000\r\n  180 CONTINUE\r\n      CALL GMMATS(G(MP),NI,N,0,G(K),NB,N,1,G(IG))\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sswtch.f",
    "content": "      SUBROUTINE SSWTCH (NBIT,L)\r\nC\r\nC     PURPOSE OF THIS ROUTINE IS TO SET L = 1 IF SENSE SWITCH BIT IS\r\nC     ON, OTHERWISE L = 0.\r\nC\r\nC     SENSE SWITCH DEFINITION\r\nC      1 = DUMP CORE WHEN SUBROUTINE DUMP OR PDUMP(NO ARGUMENTS) IS\r\nC          CALLED\r\nC      2 = DUMP FIAT TABLE AFTER ALLOCATION\r\nC      3 = DUMP DATA POOL DICTIONARY AFTER ALLOCATION\r\nC      4 = DUMP OSCAR FILE AT END OF XGPI\r\nC      5 = CONSOLE MESSAGE DESIRED (BEGIN)\r\nC      6 = CONSOLE MESSAGE DESIRED (END)\r\nC      7 = EIGENVALUE EXTRACTION DIAGNOSTICS\r\nC          (DETERMINANT AND INVERSE POWER)\r\nC      8 = TRACES NPTP ON 1108\r\nC      9 = TURNS ON PRINTER PLOTTER FOR ANY XYPLOT REQUESTS\r\nC     10 = USES ALTERNATE ALGORITHUM FOR NON LINEAR LOADS SEE SPR 153\r\nC     11 = ACTIVE ROW AND COLUMN TIME PRINTS\r\nC     12 = CONPLEX EIGENVALUE EXTRACTION DIAGNOSTICS\r\nC          (INVERSE POWER)\r\nC     28 = PUNCHES OUT LINK SPECIFICATION TABLE - DECK XBSBD\r\nC     29 = PROCESS LINK SPECIFICATION UPDATE DECK\r\nC     30 = PUNCHES OUT ALTERS TO XSEM-S FOR SWITCHES 1-15\r\nC     31 = PRINT LINK SPECIFICATION TABLE\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF\r\n      INTEGER         SWITCH,ANDF,RSHIFT,RENTER\r\n      COMMON /SYSTEM/ XSYS(78),SWITCH(3)\r\n      COMMON /XLINK / LXLINK,MAXLNK\r\n      COMMON /SEM   / DUMMY(3),NS(1)\r\n      DATA    RENTER/ 4HREEN /\r\nC\r\n      L = 0\r\n      IF (IRET .EQ.  1) RETURN\r\n      IF (NBIT .GT. 31) GO TO 10\r\n      IF (ANDF(LSHIFT(1,NBIT-1),SWITCH(1)) .NE. 0) L = 1\r\n      RETURN\r\nC\r\n   10 NBIT2 = NBIT - 31\r\n      IF (ANDF(LSHIFT(1,NBIT2-1),SWITCH(2)) .NE. 0) L = 1\r\n      RETURN\r\nC\r\nC\r\n      ENTRY PRESSW (NBIT,L)\r\nC     =====================\r\nC\r\nC     PRESSW IS CALLED ONLY BY BGNSYS AND XCSA TO SETUP DIAGNOSTIC BITS\r\nC     FOR A PARTICULAR LINK.\r\nC     BITS  0 THRU 47 ARE USED FOR 48 DIAGNOSTICS\r\nC     BITS 49 THRU 63 ARE RESERVED FOR 15 LINK NOS.\r\nC     NBIT HERE (INPUT) CONTAINS BCD WORD NSXX WHERE XX IS LINK NO.\r\nC\r\n      IRET = 0\r\n      IF (NBIT .EQ. RENTER) RETURN\r\n      IF (SWITCH(3)+SWITCH(2) .EQ. 0) IRET = 1\r\n      I = 32 - MAXLNK\r\n      IF (RSHIFT(SWITCH(2),I) .EQ. 0) GO TO 40\r\n      DO 20 I = 1,MAXLNK\r\n      IF (NBIT .EQ. NS(I)) GO TO 30\r\n   20 CONTINUE\r\n      I = 0\r\n      IF (NBIT .EQ. NS (16)) I = 5\r\n      IF (NBIT .EQ. NS (17)) I = 8\r\n      IF (NBIT .EQ. NS (18)) I = 13\r\n      IF (NBIT .EQ. NS (19)) I = 6\r\n      IF (NBIT .EQ. NS (20)) I = 2\r\n      IF (NBIT .EQ. NS (21)) I = 9\r\n      IF (NBIT .EQ. NS (22)) I = 11\r\n      IF (NBIT .EQ. NS (23)) I = 15\r\n      IF (I .NE. 0) GO TO 30\r\n      GO TO 40\r\n   30 NBIT2 = I + 31 - MAXLNK\r\n      IF (ANDF(LSHIFT(1,NBIT2),SWITCH(2)) .EQ. 0) IRET = 1\r\n   40 IF (IRET .EQ. 0) SWITCH(1) = SWITCH(3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stack.f",
    "content": "      SUBROUTINE STACK (IDEG,NEW,ILD,IW)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     STACK POINTS OF ZERO DEGREE AT END OF THE NUMBERING.\r\nC     IW IS SCRATCH STORAGE.\r\nC\r\n      DIMENSION       IDEG(1),  NEW(1),   ILD(1),   IW(1)\r\n      COMMON /BANDS / NN\r\n      COMMON /BANDD / DUM(5),   KT\r\nC\r\n      KT  = 0\r\n      NN1 = NN - 1\r\nC\r\nC     LIST POINTS OF ZERO DEGREE AND INCREMENT COUNTER KT.\r\nC\r\n      DO 10 I = 1,NN\r\n      IF (IDEG(I) .GT. 0) GO TO 10\r\n      KT = KT + 1\r\n      IW(KT) = ILD(I)\r\n   10 CONTINUE\r\n      IF (KT .LE. 0) GO TO 80\r\nC\r\nC     SORT LIST OF RENUMBERED NUMBERS TO BE STACKED.\r\nC\r\n      IF (KT .LE. 1) GO TO 40\r\n      KT1 = KT-1\r\n      DO 30 I = 1,KT1\r\n      K = KT - I\r\n      KFLAG = 0\r\n      DO 20 J = 1,K\r\n      J1 = J + 1\r\n      IF (IW(J) .LE. IW(J1))  GO TO 20\r\n      KFLAG = 1\r\n      L = IW(J)\r\n      IW(J ) = IW(J1)\r\n      IW(J1) = L\r\n   20 CONTINUE\r\n      IF (KFLAG .EQ. 0) GO TO 40\r\n   30 CONTINUE\r\n   40 CONTINUE\r\nC\r\nC     STACK POINTS OF ZERO DEGREE AT END OF NEW.\r\nC\r\n      DO 70 L = 1,KT\r\n      I = IW(L) - L + 1\r\n      K = NEW(I)\r\n      IF (I .GE. NN) GO TO 60\r\n      DO 50 J = I,NN1\r\n   50 NEW(J) = NEW(J+1)\r\n   60 NEW(NN) = K\r\n   70 CONTINUE\r\nC\r\nC     CORRECT ILD, THE INVERSE OF NEW.\r\nC\r\n   80 DO 90 I = 1,NN\r\n      K = NEW(I)\r\n   90 ILD(K) = I\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/step.f",
    "content": "      SUBROUTINE STEP (U2,U1,U0,P,IBUF)\r\nC\r\nC     STEP WILL INTEGRATE FORWARD ONE TIME STEP\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      INTEGER         FILE(7)  ,SQR     ,RSP     ,DUM     ,IBUF(1)\r\n      DIMENSION       U2(1)    ,U1(1)   ,U0(1)   ,P(1)\r\n      COMMON /TRDXX / DUM(21)  ,ISCR1   ,ISCR2   ,ISCR3   ,ISCR4   ,\r\n     1                ISCR5    ,ISCR6   ,IOPEN   ,ISYM\r\n      COMMON /NAMES / DUMM(7)  ,RSP     ,DUMN(3) ,SQR\r\n      COMMON /INFBSX/ IFIL(7)  ,IFILU(7)\r\nC\r\n      FILE(1) = ISCR1\r\n      FILE(2) = DUM(2)\r\n      FILE(4) = SQR\r\nC\r\nC     TELL MATVEC/INTFBS FILES ARE OPEN\r\nC\r\n      IOPEN = 1\r\nC\r\nC     FORM R.H.S. OF THE INTEGRATION EQUATION\r\nC\r\n      CALL MATVEC (U1(1),P(1),FILE,IBUF)\r\n      FILE(1) = ISCR4\r\n      CALL MATVEC (U0(1),P(1),FILE,IBUF)\r\nC\r\nC     CALL INTFBS/FBSINT TO DO THE FORWARD/BACKWARD PASS\r\nC\r\n      IFIL(1)  = ISCR2\r\n      IFILU(1) = ISCR3\r\n      CALL RDTRL (IFIL)\r\n      CALL RDTRL (IFILU)\r\n      IFIL(5)  = RSP\r\n      IFIL(3)  = DUM(2)\r\n      IF (ISYM .EQ. 1) CALL INTFBS (P(1),U2(1),IBUF)\r\n      IF (ISYM .EQ. 0) CALL FBSINT (P(1),U2(1))\r\n      IOPEN = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/step2.f",
    "content": "      SUBROUTINE STEP2 (U2,U1,U0,P,IBUF)\r\nC\r\nC     STEP2 WILL INTEGRATE FORWARD ONE TIME STEP\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      INTEGER          FILE(7) ,SQR     ,RDP     ,DUM     ,IBUF(1)\r\n      DOUBLE PRECISION U2(1)   ,U1(1)   ,U0(1)   ,P(1)\r\n      COMMON /TRDXX /  DUM(21) ,ISCR1   ,ISCR2   ,ISCR3   ,ISCR4   ,\r\n     1                 ISCR5   ,ISCR6   ,IOPEN   ,ISYM\r\n      COMMON /NAMES /  DUMM(8) ,RDP     ,DUMN(2) ,SQR\r\n      COMMON /INFBSX/  IFIL(7) ,IFILU(7)\r\nC\r\n      FILE(1) = ISCR1\r\n      FILE(2) = DUM(2)\r\n      FILE(4) = SQR\r\nC\r\nC     TELL MATVC2/INVFBS FILES ARE OPEN\r\nC\r\n      IOPEN = 1\r\nC\r\nC     FORM R.H.S. OF THE INTEGRATION EQUATION\r\nC\r\n      CALL MATVC2 (U1(1),P(1),FILE,IBUF)\r\n      FILE(1) = ISCR4\r\n      CALL MATVC2 (U0(1),P(1),FILE,IBUF)\r\nC\r\nC     CALL INVFBS/FBSINT TO DO THE FORWARD/BACKWARD PASS\r\nC\r\n      IFIL(1)  = ISCR2\r\n      IFILU(1) = ISCR3\r\n      CALL RDTRL (IFIL)\r\n      CALL RDTRL (IFILU)\r\n      IFIL(5) = RDP\r\n      IFIL(3) = DUM(3)\r\n      IF (ISYM .EQ. 1) IOPEN = - 20\r\n      IF (ISYM .EQ. 1) CALL INVFBS (P(1),U2(1),IBUF)\r\n      IF (ISYM .EQ. 0) CALL FBSINT (P(1),U2(1))\r\n      IOPEN = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stord1.f",
    "content": "      SUBROUTINE STORD1\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE IS PHASE  I OF STRESS DATA RECOVERY FOR AN AXI-SYMMETRIC\r\nC TOROIDAL THIN SHELL RING\r\nC*****\r\nC\r\nC\r\nC\r\nC                        ECPT FOR THE TOROIDAL RING\r\nC\r\nC                                                       TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                         I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A              I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B              I\r\nC ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A             R\r\nC ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED)   R\r\nC ECPT( 6) MATERIAL ORIENTATION (NOT USED)                R\r\nC ECPT( 7) MATERIAL IDENTIFICATION                        I\r\nC ECPT( 8) MEMBRANE THICKNESS                             R\r\nC ECPT( 9) FLEXURE THICKNESS                              R\r\nC ECPT(10) COOR. SYS. ID. FOR GRID POINT A                I\r\nC ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(14) COOR. SYS. ID. FOR GRID POINT B                I\r\nC ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES        R\r\nC\r\nC\r\n      DIMENSION          IECPT(18)\r\n      DIMENSION          GAMBQF(72),    GAMBQM(48)\r\n      DIMENSION          EE(4), GAMBQ(144), GAMRS(144)\r\n      DIMENSION          AKI(36),  DELINT(66)\r\n      DIMENSION                    ICS(2)\r\n      DIMENSION          GAMBL(144)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON   /SDR2X5/\r\n     1                   ECPT(18)\r\n     2,                  DUM5(82)\r\n     3,                  IDEL,     IGP(2),   TZ\r\n     4,                  SEL(180), TS(30),   AK(144)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC        ,MATFLG\r\n     2,                  ELTEMP        ,STRESS\r\n     3,                  SINTH         ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)          ,ANU(3)\r\n     2,                  RHO           ,G(3)\r\n     3,                  ALF(3)        ,TZERO,    GSUBE\r\n      COMMON   /SDR2X6/\r\n     1                   D(180),   R(2),     Z(2),     ALPH(2)\r\nC\r\n      EQUIVALENCE ( CONSTS(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE        (A1, ALPH(1)), (A2, ALPH(2))\r\n      EQUIVALENCE        (R1, R(1)),    (R2, R(2))\r\n      EQUIVALENCE        (Z1, Z(1)),    (Z2, Z(2))\r\n      EQUIVALENCE        (GAMBQF(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMBQM(1), GAMBQ(73))\r\n      EQUIVALENCE        (DELINT(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMRS(1),  GAMBQ(1))\r\n      EQUIVALENCE        (AKI(1),    GAMBQ(1))\r\n      EQUIVALENCE        (GAMBL(1), GAMBQ(1))\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT(1)\r\n      IGP(1) = IECPT(2)\r\n      IGP(2) =  IECPT(3)\r\n      MATID  =  IECPT(7)\r\n      ICS(1) =  IECPT(10)\r\n      ICS(2) =  IECPT(14)\r\n      ALPH(1)=  ECPT(4)\r\n      ALPH(2)=  ECPT(5)\r\n      TM     =  ECPT(8)\r\n      TF     =  ECPT(9)\r\n      R(1)   =  ECPT(11)\r\n      D(1)   =  ECPT(12)\r\n      Z(1)   =  ECPT(13)\r\n      R(2)   =  ECPT(15)\r\n      D(2)   =  ECPT(16)\r\n      Z(2)   =  ECPT(17)\r\n      TEMPE  =  ECPT(18)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,2\r\n      IF (R(I) .LT. 0.0E0) CALL MESAGE(-30,37,IDEL)\r\n      IF (D(I) .NE. 0.0E0) CALL MESAGE(-30,37,IDEL)\r\n  200 CONTINUE\r\nC\r\nC\r\nC DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING\r\nC\r\n      ITORD = 0\r\n      IF (ABS(A1-A2) .LE. .000001) ITORD = 1\r\n      IF (ITORD .EQ. 1  .AND.  ABS(A1-90.0E0) .LE. .00001) ITORD = -1\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      A1 = A1 * DEGRA\r\n      A2 = A2 * DEGRA\r\n      PHIB = A2 - A1\r\n      SINA1 =  SIN(A1)\r\n      COSA1 =  COS(A1)\r\n      SINA2 =  SIN(A2)\r\n      COSA2 =  COS(A2)\r\nC\r\n      IF (ITORD .NE. 0) GO TO 300\r\nC\r\nC FOR THE TOROIDAL RING\r\nC\r\n      RP =  SQRT( (R2-R1)**2 + (Z2-Z1)**2 )\r\n     1      / (2.0E0 *  SIN(PHIB/2.0E0))\r\n      S = PHIB * RP\r\n      GO TO 350\r\nC\r\nC FOR THE CONICAL OR CYLINDRICAL RING\r\nC\r\n  300 CONTINUE\r\n      RP = 0.0D0\r\n      S  =  SQRT( (R2-R1)**2 + (Z2-Z1)**2 )\r\nC\r\n  350 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE BASIC AND REQUIRED INTEGRALS\r\nC\r\nC\r\nC SET UP ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE\r\nC\r\n      D(21) = 0.0E0\r\n      D(22) = RP\r\n      D(23) = R1\r\n      D(24) = COSA1\r\n      D(25) = SINA1\r\nC\r\nC COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS\r\nC\r\n      D(30) = R1 - RP * SINA1\r\n      D(31) = RP * COSA1\r\n      D(32) = RP * SINA1\r\n      D(33) = COSA1 ** 2\r\n      D(34) = SINA1 * COSA1\r\n      D(35) = SINA1 ** 2\r\n      D(36) = 0.5 - D(35)\r\nC\r\nC START LOOP  FOR CALCULATIONS OF INTEGRALS\r\nC\r\n      DO 500 JP1 = 1,11\r\n      J = JP1 - 1\r\n      K = (J * 6) + 1\r\n      DJP1 = JP1\r\nC\r\nC TEST FOR ELEMENT SHAPE\r\nC\r\n      IF (ITORD) 470,400,430\r\nC\r\nC THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1),...,D(6)\r\nC\r\n  400 CONTINUE\r\n      D(20) = (RP ** JP1)\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = D(20) * (PHIB ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = (PHIB ** (JP1+1)) / (DJP1 + 1.0E0)\r\n      D(10) = 1.0E0\r\n      DO 410 I = 1,20\r\n      IP = JP1 + 2 * I + 1\r\n      D(11) = 2 * I + 1\r\n      D(10) = D(10) * D(11) * (D(11)-1.0E0)\r\n      D(12) = (-1.0E0)** I  * PHIB ** IP\r\n     1        / ((DJP1 + D(11)) * D(10))\r\n      D(13) =  ABS( D(12) / D(2) )\r\n      D(2) = D(2) + D(12)\r\n      IF (D(13) .LE. 1.0E-10) GO TO 415\r\n  410 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  415 CONTINUE\r\n      D(2) = D(20) * D(2)\r\nC\r\nC COMPUTE I(J,3)\r\nC\r\n      D(3) = (PHIB ** JP1) / DJP1\r\n      D(10) = 1.0E0\r\n      DO 420 I = 1,20\r\n      IP = JP1 + 2 * I\r\n      D(11) = 2 * I\r\n      D(10) = D(10) * D(11) * (D(11) - 1.0E0)\r\n      D(12) = (-1.0E0)** I  * PHIB ** IP\r\n     1        / ((DJP1 + D(11)) * D(10))\r\n      D(13) =  ABS( D(12) / D(3) )\r\n      D(3) = D(3) + D(12)\r\n      IF (D(13) .LE. 1.0E-10) GO TO 425\r\n  420 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  425 CONTINUE\r\n      D(3) = D(20) * D(3)\r\n      D(26) = DJP1\r\nC\r\nC COMPUTE I(J,4)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(4), 1, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(4) = D(20) * D(4)\r\nC\r\nC COMPUTE I(J,5)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(5), 2, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(5) = D(20) * D(5)\r\nC\r\nC COMPUTE I(J,6)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(6), 3, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(6) = D(20) * D(6)\r\nC\r\nC THE TOROIDAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3)\r\n      DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3)\r\n      DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6)\r\n      DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2)\r\n      DELINT(K+4) = D(34) * (D(6)-D(4))  + D(36) * D(5)\r\n      DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4)\r\n      GO TO 490\r\nC\r\nC THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\n  430 CONTINUE\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = (S ** JP1) / DJP1\r\nC\r\n      IF (J - 1) 435,440,445\r\nC\r\nC COMPUTE I(0,2)\r\nC\r\n  435 CONTINUE\r\n      D(2) = ALOG( (R1 + S*COSA1) / R1 ) / COSA1\r\n      GO TO 460\r\nC\r\nC COMPUTE I(1,2)\r\nC\r\n  440 CONTINUE\r\n      D(2) = (S - (R1/COSA1) * ALOG( (R1 + S*COSA1) / R1 )) / COSA1\r\n      GO TO 460\r\nC\r\nC COMPUTE I(J,2) WHERE J .GT. 1\r\nC\r\n  445 CONTINUE\r\n      D(2) = 1.0E0 / DJP1\r\n      D(10) =-S * COSA1 / R1\r\n      DO 450 I = 1,1000\r\n      D(11) = JP1 + I\r\n      D(12) = (D(10) ** I) / D(11)\r\n      D(2) = D(2) + D(12)\r\n      IF (D(12) .LT. 1.0E-4 ) GO TO 455\r\n  450 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  455 CONTINUE\r\n      D(2) = ( (S ** JP1) / R1 ) * D(2)\r\n  460 CONTINUE\r\nC\r\nC THE CONICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = COSA1 * D(1)\r\n      DELINT(K+4) = D(34) * D(2)\r\n      DELINT(K+5) = D(33) * D(2)\r\n      GO TO 490\r\nC\r\nC THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\n  470 CONTINUE\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = (S ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = D(1) / R1\r\nC\r\nC THE CYLINDRICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = 0.0E0\r\n      DELINT(K+4) = 0.0E0\r\n      DELINT(K+5) = 0.0E0\r\nC\r\n  490 CONTINUE\r\n  500 CONTINUE\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT(IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      EP = E(1)\r\n      ET = E(2)\r\n      VPT= ANU(1)\r\n      TZ = TZERO\r\n      VTP= VPT * ET / EP\r\n      DEL = 1.0E0 - VPT * VTP\r\nC\r\nC\r\nC GENERATE THE ELASTIC CONSTANTS MATRIX(2X2)\r\nC\r\n      EE(1) = EP / DEL\r\n      EE(2) = ET * VPT / DEL\r\n      EE(3) = EE(2)\r\n      EE(4) = ET / DEL\r\nC\r\nC\r\nC FORM THE STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\nC COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE\r\nC\r\n      D(1) = EP / ET\r\n      D(7) = 0.0E0\r\n      IF (ITORD .EQ. 0) D(7) = 1.0E0 / RP\r\n      D(2) = D(1) * D(7)\r\n      D(3) = D(2) * D(7)\r\n      D(4) = VPT * D(7)\r\n      D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI\r\n      D(6) =(EP * (TF**3) / (12.0E0 * (D(1) - VPT**2))) * TWOPI\r\nC\r\nC CALL THE AMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10)\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN AMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN AMATRX ROUTINE.\r\nC\r\nC\r\n      CALL AMATRX(AK(1), VPT, D(1), D(2), D(3), D(4), D(5), D(6)\r\n     1,           DELINT(1) )\r\nC\r\nC\r\nC FORM THE STRESS MATRIX IN FIELD COORDINATES\r\nC\r\nC COMPUTE THE CONSTANTS NEEDED IN THE SCRLM SUBROUTINE\r\nC\r\n      D(1) = 0.0E0\r\n      IF (ITORD .EQ. 0) D(1) = 1.0E0 / RP\r\n      D(2) = 0.0E0\r\n      D(3) = S / 2.0E0\r\n      D(4) = S\r\nC\r\nC CALL THE SCRLM SUBROUTINE TO COMPUTE THE STRESS MATRIX TRANSPOSED\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN THE SCRLM SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE SEL ARRAY WILL RETURN WITH\r\nC THE STRESS MATRIX TRANSPOSED (10X15, STORED ROWWISE) BUT IN THE SCRLM\r\nC SUBROUTINE THE STRESS MATRIX IS COMPUTED AS A DOUBLY SUBSCRIPTED\r\nC 15X10 ARRAY (STORED COLUMNWISE).\r\nC\r\nC\r\n      CALL SCRLM (SEL(1), D(2), EE(1), TM, 0.0E0, RP, A1, R1, D(1), TF)\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 600 I = 1,72\r\n      GAMBQF(I) = 0.0E0\r\n  600 CONTINUE\r\n      D(1) = S\r\n      D(2) = S ** 2\r\n      D(3) = S ** 3\r\n      D(4) = S ** 4\r\n      D(5) = S ** 5\r\n      GAMBQF( 3) = 1.0E0\r\n      GAMBQF(16) = 1.0E0\r\n      GAMBQF(30) = 0.5E0\r\n      GAMBQF(39) = -10.0E0 / D(3)\r\n      GAMBQF(40) = - 6.0E0 / D(2)\r\n      GAMBQF(42) = - 1.5E0 / D(1)\r\n      GAMBQF(45) = -GAMBQF(39)\r\n      GAMBQF(46) = - 4.0E0 / D(2)\r\n      GAMBQF(48) =   0.5E0 / D(1)\r\n      GAMBQF(51) =  15.0E0 / D(4)\r\n      GAMBQF(52) =   8.0E0 / D(3)\r\n      GAMBQF(54) =   1.5E0 / D(2)\r\n      GAMBQF(57) = -GAMBQF(51)\r\n      GAMBQF(58) =   7.0E0 / D(3)\r\n      GAMBQF(60) = - 1.0E0 / D(2)\r\n      GAMBQF(63) = - 6.0E0 / D(5)\r\n      GAMBQF(64) = - 3.0E0 / D(4)\r\n      GAMBQF(66) = - 0.5E0 / D(3)\r\n      GAMBQF(69) = -GAMBQF(63)\r\n      GAMBQF(70) =  GAMBQF(64)\r\n      GAMBQF(72) = -GAMBQF(66)\r\n      DO 650 I = 1,48\r\n      GAMBQM(I) = 0.0E0\r\n  650 CONTINUE\r\n      GAMBQM( 1) = 1.0E0\r\n      GAMBQM(17) = 1.0E0\r\n      GAMBQM(25) = - 3.0E0 / D(2)\r\n      GAMBQM(29) = - 2.0E0 / D(1)\r\n      GAMBQM(31) = -GAMBQM(25)\r\n      GAMBQM(35) = - 1.0E0 / D(1)\r\n      GAMBQM(37) =   2.0E0 / D(3)\r\n      GAMBQM(41) =   1.0E0 / D(2)\r\n      GAMBQM(43) = -GAMBQM(37)\r\n      GAMBQM(47) =  GAMBQM(41)\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS(GAMBQ(1), 10, 12, 1, AK(1), 10, 10, 0, D(1) )\r\n      CALL GMMATS(D(1), 12, 10,  0, GAMBQ(1), 10, 12, 0, AK(1) )\r\nC\r\nC\r\nC RE-ARRANGE THE TRANSFORMATION MATRIX (GAMBQ) SUCH THAT THE MEMBRANE\r\nC AND FLEXURE TERMS ARE REVERSED\r\nC\r\n      DO 660 I = 1,72\r\n      D(I) = GAMBQF(I)\r\n  660 CONTINUE\r\n      DO 670 I = 1,48\r\n      GAMBQ(I) = GAMBQM(I)\r\n  670 CONTINUE\r\n      DO 680 I = 1,72\r\n      GAMBQ(I+48) = D(I)\r\n  680 CONTINUE\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (SEL(1), 10, 15, 1, GAMBQ(1), 10, 12, 0, D(1) )\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC\r\nC COORDINATES\r\nC\r\n      DO 700 I = 1,144\r\n      GAMRS(I) = 0.0E0\r\n  700 CONTINUE\r\n      GAMRS( 1) =  COSA1\r\n      GAMRS( 3) = -SINA1\r\n      GAMRS(25) =  SINA1\r\n      GAMRS(27) =  COSA1\r\n      GAMRS(40) = -1.0E0\r\n      GAMRS(53) =  1.0E0\r\n      GAMRS(66) =  1.0E0\r\n      GAMRS(79) =  COSA2\r\n      GAMRS(81) = -SINA2\r\n      GAMRS(103)=  SINA2\r\n      GAMRS(105)=  COSA2\r\n      GAMRS(118)= -1.0E0\r\n      GAMRS(131)=  1.0E0\r\n      GAMRS(144)=  1.0E0\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX FROM ELEMENT TO BASIC COORDINATES\r\nC\r\n      CALL GMMATS (  D(1), 15, 12, 0, GAMRS(1), 12, 12, 0, SEL(1) )\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES\r\nC\r\n      CALL GMMATS(GAMRS(1), 12, 12, 1, AK(1), 12, 12, 0, D(1) )\r\n      CALL GMMATS(D(1), 12, 12,  0, GAMRS(1), 12, 12, 0, AK(1) )\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES\r\nC FOR THE TWO GRID POINTS AND EXPAND TO (6X6)\r\nC\r\n      DO 730 I = 1,144\r\n      GAMBL(I) = 0.0E0\r\n  730 CONTINUE\r\n      DO 800 I = 1,2\r\n      CALL TRANSS (ICS(I) , D(1))\r\n      K = 78 * (I - 1)\r\n      DO 750 J = 1,3\r\n      KK = K + 12* (J-1) + 1\r\n      KL = 3 * (J-1) + 1\r\n      KJ = K + 12* (J+2) + J + 3\r\n      GAMBL(KK  ) = D(KL  )\r\n      GAMBL(KK+1) = D(KL+1)\r\n      GAMBL(KK+2) = D(KL+2)\r\n      GAMBL(KJ) = 1.0E0\r\n  750 CONTINUE\r\n  800 CONTINUE\r\nC\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1), 12, 12, 1, AK(1), 12, 12, 0, D(1) )\r\n      CALL GMMATS (D(1), 12, 12,  0, GAMBL(1), 12, 12, 0, AK(1) )\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (SEL(1), 15, 12, 0, GAMBL(1), 12, 12, 0, D(1) )\r\nC\r\n      DO 820 I = 1,180\r\n      SEL(I) = D(I)\r\n  820 CONTINUE\r\nC\r\nC\r\nC FORM THE THERMAL STRESS VECTOR (30X1)\r\nC\r\nC THE MEMBRANE TEMPERATURE TERMS WILL BE STORED IN TS(1),...,TS(15) AND\r\nC THE FLEXURE GRADIENT TEMP. TERMS WILL BE STORED IN TS(16),...,TS(30)\r\nC\r\nC\r\nC COMPUTE CONSTANTS NEEDED IN THE THERMAL STRESS CALCULATIONS\r\nC\r\n      D(1) = 0.0E0\r\n      D(2) = S / 2.0E0\r\n      D(3) = S\r\n      D(4) = EE(1) * ALF(1) + EE(2) * ALF(2)\r\n      D(5) = EE(3) * ALF(1) + EE(4) * ALF(2)\r\n      D(6) = (EE(1)-EE(2)) * ALF(1) + (EE(3)-EE(4)) * ALF(2)\r\n      D(7) = TF ** 3 / 12.0E0\r\n      D(8) = TM / S\r\n      D(9) = D(7) / S\r\nC\r\nC START THE LOOP TO FORM THE THERMAL STRESS VECTORS AT EACH OF THE\r\nC THREE STRESS POINTS\r\nC\r\n      DO 850 I = 1,3\r\n      CALL SOLVE1(A1, R1, RP, D(I), D(12), D(13), D(14), 0.0E0)\r\n      K = 5 * (I - 1)\r\n      KK = K + 15\r\n      TS(K +1) = TM * D(4)\r\n      TS(K +2) = TM * D(5)\r\n      TS(K +3) = D(7) * D(4)\r\n      TS(K +4) =-D(7) * D(5)\r\n      TS(K +5) = D(7) * D(12) * D(6)\r\n      TS(KK+1) = D(8) * D(I)  * D(4)\r\n      TS(KK+2) = D(8) * D(I)  * D(5)\r\n      TS(KK+3) = D(9) * D(I)  * D(4)\r\n      TS(KK+4) =-D(9) * D(I)  * D(5)\r\n      TS(KK+5) = D(9) * (D(4) + D(I) * D(12) * D(6))\r\n  850 CONTINUE\r\nC\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stord2.f",
    "content": "      SUBROUTINE STORD2 (TI)\r\nC\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR AN AXI-SYMMETRIC\r\nC TOROIDAL THIN SHELL RING\r\nC*****\r\nC\r\nC\r\nC\r\n      DIMENSION          TI(2)\r\n      DIMENSION          DUM3(225)\r\n      DIMENSION          STRES(100),    FORCE(25)\r\n      DIMENSION          ISTRES(100),   IFORCE(25)\r\nC\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC\r\nC SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUM1(33)\r\n     2,                  ICSTM,    NCSTM,    IVEC,     IVECN\r\n     3,                  TEMPLD,   ELDEFM\r\nC\r\nC\r\nC SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   IDEL,     IGP(2),   TZ\r\n     2,                  SEL(180), TS(30),   AK(144)\r\nC\r\nC\r\nC SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   DISP(12), EFORC(12),ESTRES(15)\r\nC\r\nC\r\n      EQUIVALENCE (DUM3(1) , IDEL)\r\n      EQUIVALENCE  (DUM3(101) , STRES(1) , ISTRES(1))\r\n      EQUIVALENCE  (DUM3(201) , FORCE(1) , IFORCE(1))\r\n      EQUIVALENCE (LDTEMP, TEMPLD)\r\nC\r\nC\r\nC\r\nC INITIALIZE COUNTERS\r\nC\r\n      NDOF  = 6\r\n      NUMPT = 2\r\n      N = NDOF * NUMPT\r\n      NSP   = 3\r\n      NCOMP =  5\r\n      NS = NSP * NCOMP\r\nC\r\nC\r\nC LOCATE THE DISPLACEMENTS\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NUMPT\r\n      ILOC = IVEC + IGP(I) - 2\r\n      DO 100 J = 1,NDOF\r\n      ILOC = ILOC + 1\r\n      K = K + 1\r\n      DISP(K) = ZZ(ILOC)\r\n  100 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE GRID POINT FORCES\r\nC\r\n      CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) )\r\nC\r\nC\r\nC COMPUTE THE STRESSES\r\nC\r\n      CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) )\r\nC\r\nC\r\nC COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS\r\nC AND SUBTRACT FROM APPARENT STRESS\r\nC\r\n      IF (LDTEMP .EQ. (-1)) GO TO 300\r\nC\r\n      DTM1 = TI(1) - TZ\r\n      DTM2 = TI(2) - TI(1)\r\n      DTF1 = 0.0E0\r\n      DTF2 = 0.0E0\r\nC\r\nC THE TERMS DTF1 AND DTF2 ARE FUNCTIONS OF THE FLEXURAL GRADIENT\r\nC TEMPERATURE BUT SINCE THESE TEMPERATURES ARE NOT AVAILABLE\r\nC THE TERMS WILL BE SET TO ZERO. THEY ARE USUALLY DEFINED AS FOLLOWS,\r\nC     DTF1 = TF(1) - TZ\r\nC     DTF2 = TF(2) - TF(1)\r\nC WHERE TF(1) AND TF(2) ARE THE FLEXURAL GRADIENT TEMPERATURES AT\r\nC GRID POINTS 1 AND 2 RESPECTIVELY.\r\nC\r\n      K = 0\r\n      DO 250 I = 1,NSP\r\n      DO 225 J = 1,NCOMP\r\n      K = K + 1\r\n      IF (J.GT.2) GO TO 200\r\n      ESTRES(K) = ESTRES(K) - DTM1 * TS(K) - DTM2 * TS(K+15)\r\n      GO TO 225\r\n  200 CONTINUE\r\n      ESTRES(K) = ESTRES(K) - DTF1 * TS(K) - DTF2 * TS(K+15)\r\n  225 CONTINUE\r\n  250 CONTINUE\r\nC\r\n  300 CONTINUE\r\nC\r\nC\r\nC STORE RESULTS FOR OUTPUT PRINT\r\nC\r\n      K = 0\r\n      J = 1\r\n      ISTRES(1)   = IDEL\r\n      DO 400 KK = 1,NSP\r\n      DO 400 I = 1,NCOMP\r\n      J = J + 1\r\n      K = K + 1\r\n      STRES(J) = ESTRES(K)\r\n  400 CONTINUE\r\nC\r\nC\r\n      K = 0\r\n      J = 1\r\n      IFORCE(1)   = IDEL\r\n      DO 500 I = 1,NUMPT\r\n      DO 500 KK= 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\n  500 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpaic.f",
    "content": "      SUBROUTINE STPAIC(BLOC,DY,NSIZE,GAP,BM,GM,PM,NS,CLA,AJJL)\r\n      COMPLEX CH,CDUM,EKM\r\n      DIMENSION BLOC(1),DY(1),NSIZE(1),GAP(1)\r\n      DIMENSION BM(4,4,NS),GM(4,3,NS),PM(37,NS)\r\n      DIMENSION CLA(1)\r\n      DIMENSION CH(3,3),CDUM(4,4)\r\n      COMMON /STRIPC/NNS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1),\r\n     *   DUM,       BB(4),BETA(4),EKM(4,4)\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /PACKX / ITI,ITO,II,NN,INCR\r\n      K = 1\r\n      II = NROW +1\r\n      NN = NROW\r\n      IF(EKR(1).LE..00001) EKR(1) = 0.0\r\n      NSTED=0\r\n      IF(EKR(K).EQ.0.0) NSTED=1\r\n      DO 190 N=1,NS\r\n      BOB=BLOC(N)/BREF\r\n      EKL=EKR(K)*BOB\r\n      CONST=  CLA(N)*DY(N)*CLAM\r\n      CR = FM\r\n      IF ( NCIRC.NE.0 ) CR = BB(1)\r\n      CI = 0.\r\n      NOPEN = 0\r\n      IF(NSIZE(N).EQ.3.AND.GAP(N).EQ.0.0) NOPEN = 1\r\n      TSR= 0.5*GAP(N)/BLOC(N)\r\n      IM=NSIZE(N)\r\n      IF(IM-3) 31,32,32\r\n   31 JM=2\r\n      J1=2\r\n      GO TO 33\r\n   32 JM=4\r\n      J1=3\r\n   33 CONTINUE\r\n      CALL STPK(EKL,N,NSIZE(N),NOPEN,NSTED,TSR,PM(1,N),CR,CI,IM,J1)\r\n      DO 50 I=1,IM\r\n      DO 50 J=1,JM\r\n      CDUM(I,J)=CMPLX(0.0,0.0)\r\n      DO 50 M=1,JM\r\n   50 CDUM(I,J) = CDUM(I,J) + BM(I,M,N)*EKM(M,J)\r\n      DO 70 I=1,IM\r\n      DO 70 J=1,J1\r\n      CH(I,J)  =CMPLX(0.0,0.0)\r\n      DO 60 M=1,JM\r\n   60 CH(I,J)   = CH(I,J)   + CDUM(I,M)*GM(M,J,N)\r\n   70 CH(I,J)   = CONST * CH(I,J)\r\n      NN = NN + IM\r\n      DO 80 I=1,IM\r\n      CALL PACK(CH(1,I),AJJL,MCB)\r\n   80 CONTINUE\r\n      II = II + IM\r\n  190 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpax1.f",
    "content": "      SUBROUTINE STPAX1\r\nC\r\nC     THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE AXI-\r\nC     SYMMETRIC WITH A TRAPEZOIDAL CROSS SECTION\r\nC\r\nC\r\nC     ECPT (01) = ELEMENT ID                                I\r\nC     ECPT (02) = SIL A                                     I\r\nC     ECPT (03) = SIL B                                     I\r\nC     ECPT (04) = SIL C                                     I\r\nC     ECPT (05) = SIL D\r\nC     ECPT (06) = MATERIAL ORIENTATION ANGLE(DEGREES)       R\r\nC     ECPT (08) = MATERIAL ID                               I\r\nC     ECPT (09) TO ECPT (22) FOR PHI\r\nC     ECPT (23) = COOR. SYS. FOR GRID POINT A               I\r\nC     ECPT (24) = X-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT (25) = Z-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT (26) = 0.0\r\nC     ECPT (27) = COOR. SYS. FOR GRID POINT B\r\nC     ECPT (28) = X-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT (29) = Z-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT (30) = 0.0\r\nC     ECPT (31) = COOR. SYS. FOR GRID POINT C               I\r\nC     ECPT (32) = X-COOR. FOR GRID POINT C                  R\r\nC     ECPT (33) = Z-COOR. FOR GRID POINT C                  R\r\nC     ECPT (34) = 0.0\r\nC     ECPT (35) = COOR. SYS. FOR GRID POINT D               I\r\nC     ECPT (36) = X-COOR FOR GRID POINT D                   R\r\nC     ECPT (37) = Z-COOR FOR GRID POINT D                   R\r\nC     ECPT (38) = 0.0\r\nC     ECPT (39) = EL. TEMPERATURE FOR MATERIAL PROP         R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         PZMAT,LSYS78\r\n      INTEGER         SP(50)\r\n      DIMENSION       IECPT(40),DELINT(12),TEO(45),ACURL(208),\r\n     1                ICS(4),D1(48),D2(16),ACURP1(48),ACURP2(16),\r\n     2                GABABQ(12,12),GBP(4,4),ALFB(6),EE(63),WJP(3,4)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /SDR2X5/ ECPT(39),DUM5(61),IDEL,IGP(4),TZ,SEL(360),TS(06),\r\n     1                AK(144),PHI(14),AKPH2(16),AKUPH(48),SELP1(120),\r\n     2                SELP2(180),SELP3(60)\r\n      COMMON /SDR2X6/ D(144),E1(36),WJ(6,12),R(5),Z(5)\r\n     1\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /MATPZ / PZOUT(51)\r\nC     COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25,\r\nC                     CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56,\r\nC                     CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25,\r\nC                     E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,\r\nC                     EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE\r\n      COMMON /SYSTEM/ IBUF,IOUT,DUM75(75),KSYS78\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      EQUIVALENCE     (CONSTS(1),PI),(CONSTS(2),TWOPI),\r\n     1                (CONSTS(4),DEGRAD),(ACURL(1),AK(1)),\r\n     2                (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2),\r\n     3                (R(3),R3),(R(4),R4),(Z(1),Z1),\r\n     4                (Z(2),Z2),(Z(3),Z3),(Z(4),Z4),\r\n     5                (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193))\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\nC\r\nC     START EXECUTION\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT( 1)\r\n      IGP(1) = IECPT( 2)\r\n      IGP(2) = IECPT( 3)\r\n      IGP(3) = IECPT( 4)\r\n      IGP(4) = IECPT( 5)\r\n      MATID  = IECPT( 8)\r\n      ICS(1) = IECPT(23)\r\n      ICS(2) = IECPT(27)\r\n      ICS(3) = IECPT(31)\r\n      R(1)   =  ECPT(24)\r\n      D(1)   =  ECPT(26)\r\n      Z(1)   =  ECPT(25)\r\n      R(2)   =  ECPT(28)\r\n      Z(2)   =  ECPT(29)\r\n      D(2)   =  ECPT(30)\r\n      R(3)   =  ECPT(32)\r\n      Z(3)   =  ECPT(33)\r\n      D(3)   =  ECPT(34)\r\n      ICS(4) = IECPT(35)\r\n      Z(4)   =  ECPT(37)\r\n      D(4)   =  ECPT(38)\r\n      R(4)   =  ECPT(36)\r\n      TEMPE  =  ECPT(39)\r\n      DGAMA  =  ECPT( 6)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LE. 0.0) GO TO 910\r\n      IF (D(I) .NE. 0.0) GO TO 910\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3,Z4)\r\n      Z1   = Z1 - ZMIN\r\n      Z2   = Z2 - ZMIN\r\n      Z3   = Z3 - ZMIN\r\n      Z4   = Z4 - ZMIN\r\n      RMIN = AMIN1(R1,R2,R3,R4)\r\n      RMAX = AMAX1(R1,R2,R3,R4)\r\n      IF (RMAX/RMIN .LE. 10.) GO TO 206\r\nC\r\nC     RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1\r\nC\r\n      IDEL1 = IDEL/1000\r\n      WRITE  (IOUT,205) UFM,IDEL1\r\n  205 FORMAT (A23,', TRAPAX ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ',\r\n     1       'RADIUS RATIO EXCEEDING 10.', /5X,'ACCURACY OF NUMERICAL',\r\n     2       ' INTEGRATION WOULD BE IN DOUBT.')\r\n      GO TO 910\r\n  206 CONTINUE\r\nC\r\nC     FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID\r\nC     POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,144\r\n  300 GABABQ( I, 1) = 0.0\r\n      GABABQ( 1, 1) = 1.0\r\n      GABABQ( 2, 1) = R1\r\n      GABABQ( 3, 1) = Z1\r\n      GABABQ( 4, 1) = R1*Z1\r\n      GABABQ( 5, 2) = 1.0\r\n      GABABQ( 6, 2) = R1\r\n      GABABQ( 7, 2) = Z1\r\n      GABABQ( 8, 2) = GABABQ(4,1)\r\n      GABABQ( 9, 3) = 1.0\r\n      GABABQ(10, 3) = R1\r\n      GABABQ(11, 3) = Z1\r\n      GABABQ(12, 3) = GABABQ(4,1)\r\n      GABABQ( 1, 4) = 1.0\r\n      GABABQ( 2, 4) = R2\r\n      GABABQ( 3, 4) = Z2\r\n      GABABQ( 4, 4) = R2*Z2\r\n      GABABQ( 5, 5) = 1.0\r\n      GABABQ( 6, 5) = R2\r\n      GABABQ( 7, 5) = Z2\r\n      GABABQ( 8, 5) = GABABQ(4,4)\r\n      GABABQ( 9, 6) = 1.0\r\n      GABABQ(10, 6) = R2\r\n      GABABQ(11, 6) = Z2\r\n      GABABQ(12, 6) = GABABQ(4,4)\r\n      GABABQ( 1, 7) = 1.0\r\n      GABABQ( 2, 7) = R3\r\n      GABABQ( 3, 7) = Z3\r\n      GABABQ( 4, 7) = R3*Z3\r\n      GABABQ( 5, 8) = 1.0\r\n      GABABQ( 6, 8) = R3\r\n      GABABQ( 7, 8) = Z3\r\n      GABABQ( 8, 8) = GABABQ(4,7)\r\n      GABABQ( 9, 9) = 1.0\r\n      GABABQ(10, 9) = R3\r\n      GABABQ(11, 9) = Z3\r\n      GABABQ(12, 9) = GABABQ(4,7)\r\n      GABABQ( 1,10) = 1.0\r\n      GABABQ( 2,10) = R4\r\n      GABABQ( 3,10) = Z4\r\n      GABABQ( 4,10) = R4*Z4\r\n      GABABQ( 5,11) = 1.0\r\n      GABABQ( 6,11) = R4\r\n      GABABQ( 7,11) = Z4\r\n      GABABQ( 8,11) = GABABQ(4,10)\r\n      GABABQ( 9,12) = 1.0\r\n      GABABQ(10,12) = R4\r\n      GABABQ(11,12) = Z4\r\n      GABABQ(12,12) = GABABQ(4,10)\r\nC\r\n      IF (LSYS78) GO TO 305\r\n      GBP(1,1) = 1.0\r\n      GBP(2,1) = R(1)\r\n      GBP(3,1) = Z(1)\r\n      GBP(4,1) = R(1)*Z(1)\r\n      GBP(1,2) = 1.0\r\n      GBP(2,2) = R(2)\r\n      GBP(3,2) = Z(2)\r\n      GBP(4,2) = R(2)*Z(2)\r\n      GBP(1,3) = 1.0\r\n      GBP(2,3) = R(3)\r\n      GBP(3,3) = Z(3)\r\n      GBP(4,3) = R(3)*Z(3)\r\n      GBP(1,4) = 1.0\r\n      GBP(2,4) = R(4)\r\n      GBP(3,4) = Z(4)\r\n      GBP(4,4) = R(4)*Z(4)\r\n  305 CONTINUE\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (12,GABABQ,12,D(10),0,D(11),ISING,SP)\r\n      IF (ISING .EQ. 2) GO TO 920\r\nC\r\n      IF (KSYS78 .EQ. 1) CALL INVERS (4,GBP,4,D(10),0,D(11),ISING,SP)\r\n      IF (ISING  .EQ. 2) GO TO 920\r\nC\r\nC     MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT\r\nC\r\nC       DELINT(1) = (-1,0)\r\nC       DELINT(02)= (-1,1)\r\nC       DELINT(03)= (-1,2)\r\nC       DELINT(04)= ( 0,0)\r\nC       DELINT(05)= ( 0,1)\r\nC       DELINT(06)= ( 0,2)\r\nC       DELINT(07)= ( 1,0)\r\nC       DELINT(08)= ( 1,1)\r\nC       DELINT(09)= ( 1,2)\r\nC       DELINT(10)= ( 2,0)\r\nC       DELINT(11)= ( 2,1)\r\nC       DELINT(12)= ( 3,0)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,4\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .NE. 12) GO TO 340\r\n      IP = 3\r\n      IQ = 0\r\n  340 CONTINUE\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      DGAMR  = DGAMA*DEGRAD\r\n      SINTH  = SIN(DGAMR)\r\n      COSTH  = COS(DGAMR)\r\n      COSG   = COSTH\r\n      SING   = SINTH\r\n      CALL MAT (IDEL)\r\n      PZMAT  = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 410\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 420\r\n  410 RHO    = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  420 CONTINUE\r\n      IF (SETMAT .EQ. 2.0) GO TO 915\r\n      TZ = TZERO\r\n      IF (KSYS78 .GT. 0) GO TO 500\r\nC\r\nC     SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO*ET/ER\r\n      VZO = VOZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.0/(1.0 - VRO*VOR - VOZ*VZO - VZR*VRZ - VRO*VOZ*VZR -\r\n     1           VRZ*VOR*VZO)\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  500 CONTINUE\r\n      DO 510 I = 1,45\r\n  510 TEO (I) = 0.0\r\nC\r\n      IF (KSYS78 .GT. 0) GO TO 520\r\n      TEO ( 1) = ER*(1.0 - VOZ*VZO)*DEL\r\n      TEO ( 2) = ER*(VZR + VZO*VOR)*DEL\r\n      TEO ( 3) = EZ*(1.0 - VRO*VOR)*DEL\r\n      TEO ( 4) = ER*(VOR + VZR*VOZ)*DEL\r\n      TEO ( 5) = ET*(VZO + VRO*VZR)*DEL\r\n      TEO ( 6) = ET*(1.0 - VRZ*VZR)*DEL\r\n      TEO (10) = GRZ\r\n      TEO (15) = GOR\r\n      TEO (21) = GZO\r\n      GO TO 530\r\n  520 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\nC\r\n      IF (KSYS78 .EQ. 2) GO TO 530\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  530 CONTINUE\r\nC\r\n      C2   = COSG*COSG\r\n      C4   = C2*C2\r\n      S2   = SING*SING\r\n      S4   = S2*S2\r\n      C2S2 = C2*S2\r\n      C3   = COSG*C2\r\n      S3   = SING*S2\r\n      CS2  = COSG*S2\r\n      SC2  = SING*C2\r\n      CS   = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.0*C2S2 * (TEO(2) + 2.0\r\n     1       * TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2 * (TEO(1)+TEO(3)-4.0*TEO(10))\r\n      EE( 3) = TEO(1)*S4 + 2.0*C2S2 * (TEO(2)+2.0*TEO(10))\r\n     3       +  TEO(3)*C4\r\n      EE( 4) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 5) = TEO(4)*S2 + TEO(5)*C2\r\n      EE( 6) = TEO(6)\r\n      EE( 7) = COSG*SING*S2 * (TEO(2)-TEO(3)+2.0*TEO(10))\r\n     7       + SING*COSG*C2 * (TEO(1)-TEO(2)-2.0*TEO(10))\r\n      EE( 8) = SING*COSG*C2 * (TEO(2)-TEO(3)+2.0*TEO(10))\r\n     8       + COSG*SING*S2 * (TEO(1)-TEO(2)-2.0*TEO(10))\r\n      EE( 9) = SING*COSG * (TEO(4) - TEO(5))\r\n      EE(10) = C2S2 * (TEO(1)-2.0*TEO(2)+TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(12) = 0.0\r\n      EE(13) = 0.0\r\n      EE(15) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(20) = COSG*SING * (TEO(15) - TEO(21))\r\n      EE(21) = TEO(15)*S2 + TEO(21)*C2\r\nC\r\n      IF (LSYS78) GO TO 540\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) -\r\n     7         SC2*(TEO(23)+2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) +\r\n     8         SC2*(TEO(22)-2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) -\r\n     O         SC2*(TEO(26)-2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) +\r\n     1         SC2*( TEO(25)+2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) +\r\n     6         SC2*(-TEO(32)-TEO(25)+TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) +\r\n     7         SC2*(TEO(23)+TEO(31)-TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n  540 CONTINUE\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      IECPT(1) = IECPT(1) - (IECPT(1)/1000)*1000 - 1\r\n      AJHO  = IECPT(1)\r\n      AJJHO = AJHO*AJHO\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL ( 1) = (EE(6) + AJJHO * EE(15)) * DELINT(1)\r\n      ACURL ( 2) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(4)\r\n      ACURL ( 3) = (EE(6) + AJJHO * EE(15)) * DELINT(2)\r\n     1           +  EE(9) * DELINT (4)\r\n      ACURL ( 4) = (EE(4) + EE(6) + AJJHO * EE(15))* DELINT(5)\r\n     1           +  EE(9) * DELINT(7)\r\n      ACURL ( 5) = AJHO * (EE(6) + EE(15)) * DELINT(1)\r\n      ACURL ( 6) = AJHO * EE(6) * DELINT(4)\r\n      ACURL ( 7) = AJHO * (EE(6) + EE(15))* DELINT(2) - AJHO * EE(20)\r\n     1           * DELINT(4)\r\n      ACURL ( 8) = AJHO * EE(6) * DELINT(5) - AJHO * EE(20) * DELINT(7)\r\n      ACURL ( 9) = AJJHO * EE(20) * DELINT(1)\r\n      ACURL (10) = DELINT(4) * (EE(9) + AJJHO*EE(20))\r\n      ACURL (11) = DELINT(4) * EE(5) + AJJHO * DELINT(2) * EE(20)\r\n      ACURL (12) = DELINT(7) * EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20))\r\n      ACURL (14) = (EE(1) + 2.0 * EE(4) + EE(6) + AJJHO * EE(15))\r\n     1           * DELINT(7)\r\n      ACURL (15) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(5)\r\n     1           + (EE(7) + EE(9)) * DELINT(7)\r\n      ACURL (16) = (EE(1) + 2.0 * EE(4) + AJJHO * EE(15) + EE(6))\r\n     1           * DELINT(8) + (EE(7) + EE(9)) * DELINT(10)\r\n      ACURL (17) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(4)\r\n      ACURL (18) = AJHO * (EE(4) + EE(6)) * DELINT(7)\r\n      ACURL (19) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(5) - AJHO\r\n     1           * EE(20) * DELINT(7)\r\n      ACURL (20) = AJHO * (EE(4) + EE(6)) * DELINT(8) - AJHO * EE(20)\r\n     1           * DELINT(10)\r\n      ACURL (21) = AJJHO * EE(20) * DELINT(4)\r\n      ACURL (22) = DELINT(7) * (EE(7) + EE(9) + AJJHO*EE(20))\r\n      ACURL (23) = DELINT(7)*(EE(2)+EE(5))+AJJHO*DELINT(5)*EE(20)\r\n      ACURL (24) = DELINT(10)*(EE(2)+EE(5))+DELINT(8)*(EE(7)+EE(9)) +\r\n     1             DELINT(8)*AJJHO*EE(20)\r\n      ACURL (27) = (EE(6) + AJJHO * EE(15)) * DELINT(3) + 2.0\r\n     1           * EE(9) * DELINT(5) + EE(10) * DELINT (7)\r\n      ACURL (28) = (EE(4) + EE(6) + AJJHO * EE(15)) * DELINT(6)\r\n     1           + EE(10) * DELINT(10) + (EE(7) + 2.0 * EE(9))\r\n     2           * DELINT (8)\r\n      ACURL (29) = AJHO * (EE(6) + EE(15)) * DELINT(2) + AJHO\r\n     1           * EE(9) * DELINT(4)\r\n      ACURL (30) = AJHO * EE(6) * DELINT(5) + AJHO * EE(9) * DELINT(7)\r\n      ACURL (31) = AJHO * (EE(6) + EE(15)) * DELINT(3) + AJHO * (EE(9)\r\n     1           - EE(20)) * DELINT(5)\r\n      ACURL (32) = AJHO * (EE(9) - EE(20))* DELINT(8) + AJHO\r\n     1           * EE(6) * DELINT(6)\r\n      ACURL (33) = AJJHO * EE(20) * DELINT(2)\r\n      ACURL (34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20))\r\n      ACURL (35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3)\r\n     1           * EE(20)\r\n      ACURL (36) = DELINT(10)*EE(8)+DELINT(8)*(EE(5)+EE(10)) +\r\n     1             DELINT(6)*(EE(9)+AJJHO*EE(20))\r\n      ACURL (40) = (EE(1) + 2.0 * EE(4) + EE(6) + AJJHO * EE(15))\r\n     1           * DELINT(9) + (2.0 * EE(7) + 2.0 * EE(9))\r\n     2           * DELINT(11)+ EE(10) * DELINT(12)\r\n      ACURL (41) = AJHO * (EE(4) + EE(6) + EE(15)) * DELINT(5)\r\n     1           + AJHO * EE(9) * DELINT(7)\r\n      ACURL (42) = AJHO * (EE(4) + EE(6)) * DELINT(8) + AJHO * EE(9)\r\n     1           * DELINT(10)\r\n      ACURL (43) = AJHO * (EE(4) + EE(6) + EE(15))* DELINT(6)\r\n     1           + AJHO * (EE(9) - EE(20)) * DELINT(8)\r\n      ACURL (44) = AJHO * (EE(4) + EE(6)) * DELINT(9) + AJHO\r\n     1           * (EE(9) - EE(20)) * DELINT(11)\r\n      ACURL (45) = AJJHO * EE(20) * DELINT(5)\r\n      ACURL (46) = DELINT(8)*(EE(7) + EE(9) + AJJHO*EE(20)) + DELINT(10)\r\n     1           * EE(10)\r\n      ACURL (47) = DELINT(8)*(EE(2) + EE(5)) + DELINT(10)*EE(8) +\r\n     1             AJJHO*DELINT(6)*EE(20)\r\n      ACURL (48) = DELINT(11)*(EE(2)+EE(5)+EE(10)) + DELINT(12)*EE(8) +\r\n     1             DELINT(9)*(EE(7)+EE(9)+AJJHO*EE(20))\r\n      ACURL (53) = (EE(15) + AJJHO * EE(6)) * DELINT(1)\r\n      ACURL (54) = AJJHO * EE(6) * DELINT(4)\r\n      ACURL (55) = (EE(15) + AJJHO * EE(6)) * DELINT(2) - EE(20)\r\n     1           * DELINT(4)\r\n      ACURL (56) = AJJHO * EE(6) * DELINT(5) - EE(20) * DELINT(7)\r\n      ACURL (57) = AJHO * EE(20) * DELINT(1)\r\n      ACURL (58) = AJHO*DELINT(4)*(EE(9)+EE(20))\r\n      ACURL (59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20))\r\n      ACURL (60) = AJHO*(DELINT(7)*EE(5)+DELINT(5)*(EE(9)+EE(20)))\r\n      ACURL (66) = AJJHO * EE(6) * DELINT(7)\r\n      ACURL (67) = AJJHO * EE(6) * DELINT(5)\r\n      ACURL (68) = AJJHO * EE(6) * DELINT(8)\r\n      ACURL (69) = 0.0\r\n      ACURL (70) = AJHO*DELINT(7)*EE(9)\r\n      ACURL (71) = AJHO*DELINT(7)*EE(5)\r\n      ACURL (72) = AJHO*(DELINT(10)*EE(5)+DELINT(8)*EE(9))\r\n      ACURL (79) = (EE(15) + AJJHO * EE(6)) * DELINT(3) - 2.0\r\n     1           * EE(20) * DELINT(5) + EE(21) * DELINT(7)\r\n      ACURL (80) = AJJHO * EE(6) * DELINT(6) - EE(20) * DELINT(8)\r\n     1           + EE(21) * DELINT(10)\r\n      ACURL (81) = AJHO * (EE(20) * DELINT(2) - EE(21) * DELINT(4))\r\n      ACURL (82) = AJHO*(DELINT(5)*(EE(9)+EE(20))-DELINT(7)*EE(21))\r\n      ACURL (83) = AJHO*(DELINT(5)*(EE(5)-EE(21))+DELINT(3)*EE(20))\r\n      ACURL (84) = AJHO*(DELINT(8)*(EE(5)-EE(21))+DELINT(6)*(EE(9) +\r\n     1             EE(20)))\r\n      ACURL (92) = EE(21) * DELINT(12) + AJJHO * EE(6) * DELINT(9)\r\n      ACURL (93) =-AJHO * EE(21) * DELINT(7)\r\n      ACURL (94) = AJHO*(DELINT(8)*EE(9)-DELINT(10)*EE(21))\r\n      ACURL (95) = AJHO* DELINT(8) * (EE(5)-EE(21))\r\n      ACURL (96) = AJHO*(DELINT(11)*(EE(5)-EE(21))+DELINT(9)*EE(9))\r\n      ACURL (105) = AJJHO * EE(21) * DELINT(1)\r\n      ACURL (106) = AJJHO*DELINT(4)*EE(21)\r\n      ACURL (107) = AJJHO*DELINT(2)*EE(21)\r\n      ACURL (108) = AJJHO*DELINT(5)*EE(21)\r\n      ACURL (118) = DELINT(7)*(EE(10)+AJJHO*EE(21))\r\n      ACURL (119) = DELINT(7)*EE(8)+AJJHO*DELINT(5)*EE(21)\r\n      ACURL (120) = DELINT(10)*EE(8)+DELINT(8)*(EE(10)+AJJHO*EE(21))\r\n      ACURL (131) = DELINT(7)*EE(3)+AJJHO*DELINT(3)*EE(21)\r\n      ACURL (132) = DELINT(10)*EE(3)+DELINT(8)*EE(8)+AJJHO*DELINT(6)*\r\n     1              EE(21)\r\n      ACURL (144) = DELINT(12)*EE(3) + 2.0*DELINT(11)*EE(8) +\r\n     1              DELINT(9)*(EE(10)+AJJHO*EE(21))\r\nC\r\n      IF (LSYS78) GO TO 550\r\n      ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51)-EE(45))\r\n      ACURL(146) = DELINT(4)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n      ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(4)*\r\n     7             (EE(44)-AJHO*EE(50))\r\n      ACURL(148) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     8           + DELINT(7)*(EE(44)-AJHO*EE(50))\r\n      ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))\r\n      ACURL(150) = DELINT(7)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)\r\n     O           - EE(45)-EE(39)))\r\n      ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(7)\r\n     1           * (EE(44)+EE(38)-AJHO*EE(50))\r\n      ACURL(152) = DELINT(8)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     2             EE(45)-EE(39)))+DELINT(10)*(EE(44)+EE(38)-AJHO*\r\n     2             EE(50))\r\n      ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))-DELINT(4)*AJHO\r\n     3           * EE(48)\r\n      ACURL(154) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     4           + DELINT(7)*(EE(46)-AJHO*EE(48))\r\n      ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(5)*\r\n     5             (EE(44)-AJHO*(EE(50)+EE(48)))+DELINT(7)*EE(47)\r\n      ACURL(156) = DELINT(6)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     6           + DELINT(8)*(EE(46)+EE(44)-AJHO*(EE(50)+EE(48)))+\r\n     6             DELINT(10)*EE(47)\r\n      ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))-DELINT(7)\r\n     7           * AJHO*EE(48)\r\n      ACURL(158) = DELINT(8)*(EE(43)+EE(47)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     8             EE(45)-EE(39)))-DELINT(10)*(EE(46)-AJHO*EE(48))\r\n      ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(8)\r\n     9           * (EE(44)+EE(38)-AJHO*(EE(50)+EE(48)))+DELINT(10)*\r\n     9             EE(47)\r\n      ACURL(160) = DELINT(9)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     O             EE(45)-EE(39)))+DELINT(11)*(EE(46)+EE(44)+EE(38)-\r\n     O             AJHO*(EE(50)+EE(48)))+DELINT(12)*EE(47)\r\n      ACURL(161) = DELINT(1)*AJHO*(EE(51)-AJHO*EE(45))\r\n      ACURL(162) = DELINT(4)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n      ACURL(163) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(4)*\r\n     3             (AJHO*EE(44)-EE(50))\r\n      ACURL(164) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(51)))\r\n     4           + DELINT(7)*(AJHO*EE(44)-EE(50))\r\n      ACURL(165) =-DELINT(4)*AJJHO*EE(45)\r\n      ACURL(166) = DELINT(7)*AJHO*(EE(43)-AJHO*EE(45))\r\n      ACURL(167) = DELINT(7)*AJHO*EE(44)-DELINT(5)*AJJHO*EE(45)\r\n      ACURL(168) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)*\r\n     8             AJHO*EE(44)\r\n      ACURL(169) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))-DELINT(4)*AJHO*\r\n     9             EE(54)\r\n      ACURL(170) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n     O           + DELINT(7)*(EE(52)-AJHO*EE(54))\r\n      ACURL(171) = DELINT(3)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(5)*\r\n     1             (AJHO*(EE(44)-EE(54))-EE(50))+DELINT(7)*EE(53)\r\n      ACURL(172) = DELINT(6)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n     2           + DELINT(8)*(EE(52)-EE(50)+AJHO*(EE(44)-EE(54)))\r\n     2           + DELINT(10)*EE(53)\r\n      ACURL(173) =-DELINT(5)*AJJHO*EE(45)-DELINT(7)*AJHO*EE(54)\r\n      ACURL(174) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)*\r\n     4             (EE(54)-AJHO*EE(54))\r\n      ACURL(175) =-DELINT(6)*AJJHO*EE(45)+DELINT(8)*AJHO*(EE(44)-\r\n     5             EE(54))+DELINT(10)*EE(53)\r\n      ACURL(176) = DELINT(9)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(11)*\r\n     6             (EE(52)+AJHO*(EE(44)-EE(54)))+DELINT(12)*EE(53)\r\n      ACURL(177) = DELINT(1)*AJJHO*EE(54)\r\n      ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(52))\r\n      ACURL(179) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(53)\r\n      ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))-DELINT(7)*AJHO\r\n     O           * EE(53)\r\n      ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(48))\r\n      ACURL(182) = DELINT(7)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48)))\r\n      ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(48))+DELINT(7)*\r\n     3             (EE(47)-AJHO*EE(53))\r\n      ACURL(184) = DELINT(8)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48)))\r\n     4           + DELINT(10)*(EE(47)-AJHO*EE(53))\r\n      ACURL(185) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(42)\r\n      ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(7)*(EE(40)\r\n     6           - AJHO*EE(42))\r\n      ACURL(187) = DELINT(3)*AJJHO*EE(54)-DELINT(5)*AJHO*(EE(53)+EE(42))\r\n     7           + DELINT(7)*EE(41)\r\n      ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(8)*\r\n     8             (EE(40)-AJHO*(EE(53)+EE(42)))+DELINT(10)*EE(41)\r\n      ACURL(189) =-DELINT(5)*AJHO*EE(48)+DELINT(4)*AJJHO*EE(54)\r\n     9           - DELINT(7)*AJHO*EE(42)\r\n      ACURL(190) = DELINT(8)*(EE(46)-AJHO*EE(48))+DELINT(7)*AJHO*\r\n     O             (AJHO*EE(54)-EE(52))+DELINT(10)*(EE(40)-AJHO*EE(42))\r\n      ACURL(191) =-DELINT(6)*AJHO*EE(48)+DELINT(5)*AJJHO*EE(54)+\r\n     1             DELINT(8)*(EE(47)-AJHO*EE(42))-DELINT(7)*AJHO*EE(53)\r\n     1           + DELINT(10)*EE(41)\r\n      ACURL(192) = DELINT(9)*(EE(46)-AJHO*EE(48))+DELINT(8)*AJHO*\r\n     2             (AJHO*EE(54)-EE(52))+DELINT(11)*(EE(47)+EE(40)-\r\n     2             AJHO*EE(42))-DELINT(10)*AJHO*EE(53)+DELINT(12)*EE(41)\r\nC\r\n      ACURL(193) = DELINT(1)*AJJHO*EE(63)\r\n      ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57))\r\n      ACURL(195) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60)\r\n      ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)*\r\n     6             AJHO*EE(60)\r\n      ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57))\r\n      ACURL(198) = DELINT(7)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))\r\n      ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*(EE(56)\r\n     9           - AJHO*EE(60))\r\n      ACURL(200) = DELINT(8)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))\r\n     O           + DELINT(10)*(EE(56)-AJHO*EE(60))\r\n      ACURL(201) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60)\r\n      ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*\r\n     2             (EE(56)-AJHO*EE(60))\r\n      ACURL(203) = DELINT(3)*AJJHO*EE(63)-DELINT(5)*2.0*AJHO*EE(60)\r\n     3           + DELINT(7)*EE(59)\r\n      ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*\r\n     4             (EE(56)-2.0*AJHO*EE(60))+DELINT(10)*EE(59)\r\n      ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)*\r\n     5             AJHO*EE(60)\r\n      ACURL(206) = DELINT(8)*(AJJHO*EE(63)-2.0*EE(57)+EE(55))+DELINT(10)\r\n     6           * (EE(56)-AJHO*EE(60))\r\n      ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*(EE(56)\r\n     7           - 2.0*AJHO*EE(60))+DELINT(10)*EE(59)\r\n      ACURL(208) = DELINT(9)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))+\r\n     8             2.0*DELINT(11)*(EE(56)-AJHO*EE(60))+DELINT(12)*EE(59)\r\n  550 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\nC     EXPAND ACURL INTO (12X12)\r\nC\r\n      DO 610 IB = 2,12\r\n      IC = 13*IB - 25\r\n      I  = IC\r\n      DO 605 J = IB,12\r\n      IC = IC + 12\r\n      I  = I + 1\r\n  605 ACURL(IC) = ACURL(I)\r\n  610 CONTINUE\r\nC\r\n      DGAMA = PI\r\n      IF (AJHO .EQ. 0.0) DGAMA = TWOPI\r\n      DO 630 I = 1,144\r\n  630 ACURL(I) = ACURL(I)*DGAMA\r\nC\r\n      IF (LSYS78) GO TO 638\r\n      DO 632 I = 145,208\r\n  632 ACURL(I) = ACURL(I)*DGAMA\r\n  638 CONTINUE\r\nC\r\n      CALL GMMATS (GABABQ,12,12,1, ACURL, 12,12,0, D )\r\n      CALL GMMATS (     D,12,12,0, GABABQ,12,12,0, AK)\r\nC\r\n      IF (LSYS78) GO TO 639\r\n      CALL GMMATS (GABABQ,12,12,1, ACURP1,12,4,0, D1)\r\n      CALL GMMATS (D1,12,4,0, GBP,4,4,0, AKUPH)\r\n      CALL GMMATS (GBP,4,4,1, ACURP2,4,4,0, D2)\r\n      CALL GMMATS (D2,4,4,0, GBP,4,4,0, AKPH2)\r\n  639 CONTINUE\r\nC\r\nC     ********** COORDINATE SYSTEM NOT POSSIBLE ***********************\r\nC     *** WITH RINGAX.  THE FOLLOWING CODE WILL IMPLEMENT IT  *********\r\nC     IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO-\r\nC     ELECTRIC\r\nC\r\nC     ZERO OUT THE AKI MATRIX\r\nC\r\nC.    DO 700 I = 1,144\r\nC.    AKI(I) = 0.0\r\nC.700 CONTINUE\r\nC.    DO 800 I = 1,4\r\nC.    CALL TRANSS (ICS(I),D(1))\r\nC.    K = 39 * (I-1) + 1\r\nC.    DO 800 J = 1, 3\r\nC.    KK = K + 12*(J-1)\r\nC.    JJ = 3*(J-1) + 1\r\nC.    AKI (KK  ) = D (JJ  )\r\nC.    AKI (KK+1) = D (JJ+1)\r\nC.    AKI (KK+2) = D (JJ+2)\r\nC.800 CONTINUE\r\nC\r\nC     TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\nC.    CALL GMMATS (AKI(1),12,12,1, AK(1),12,12,0, D(1))\r\nC.    CALL GMMATS (D(1),12,12,0, AKI(1),12,12,0, AK(1))\r\nC\r\nC     COMPUTE THE FIFTH GRID POINT\r\nC\r\n      R(5) = (R1 + R2 + R3 + R4)/4.0\r\n      Z(5) = (Z1 + Z2 + Z3 + Z4)/4.0\r\nC\r\nC     FORM WJ MATRIX\r\nC\r\n      DO 9001 IKI = 1,5\r\n      DO 1000 I = 1,72\r\n 1000 WJ(I, 1) = 0.0\r\n      RSUM     = R(IKI)\r\n      ZSUM     = Z(IKI)\r\n      ZDR      = ZSUM/RSUM\r\n      WJ(1, 2) = 1.0\r\n      WJ(1, 4) = ZSUM\r\n      WJ(2,11) = 1.0\r\n      WJ(2,12) = RSUM\r\n      WJ(3, 1) = 1.0/RSUM\r\n      WJ(3, 2) = 1.0\r\n      WJ(3, 3) = ZDR\r\n      WJ(3, 4) = ZSUM\r\n      WJ(3, 5) = AJHO/RSUM\r\n      WJ(3, 6) = AJHO\r\n      WJ(3, 7) = AJHO*ZDR\r\n      WJ(3, 8) = AJHO*ZSUM\r\n      WJ(4, 3) = 1.0\r\n      WJ(4, 4) = RSUM\r\n      WJ(4,10) = 1.0\r\n      WJ(4,12) = ZSUM\r\n      WJ(5, 1) =-AJHO/RSUM\r\n      WJ(5, 2) =-AJHO\r\n      WJ(5, 3) =-AJHO*ZDR\r\n      WJ(5, 4) =-AJHO*ZSUM\r\n      WJ(5, 5) =-1.0/RSUM\r\n      WJ(5, 7) =-ZDR\r\n      WJ(6, 7) = 1.0\r\n      WJ(6, 8) = RSUM\r\n      WJ(6, 9) =-AJHO/RSUM\r\n      WJ(6,10) =-AJHO\r\n      WJ(6,11) =-AJHO*ZDR\r\n      WJ(6,12) =-AJHO*ZSUM\r\nC\r\n      IF (LSYS78) GO TO 1060\r\nC\r\nC     FORM WJP MATRIX\r\nC\r\n      DO 1050 I = 1,3\r\n      DO 1050 J = 1,4\r\n 1050 WJP(I,J) = 0.0\r\nC\r\n      WJP(1,2) = 1.0\r\n      WJP(1,4) = ZSUM\r\n      WJP(2,3) = 1.0\r\n      WJP(2,4) = RSUM\r\n      WJP(3,1) =-AJHO/RSUM\r\n      WJP(3,2) =-AJHO\r\n      WJP(3,3) =-AJHO*ZDR\r\n      WJP(3,4) =-AJHO*ZSUM\r\n 1060 CONTINUE\r\nC\r\nC     EXPAND EE(21) INTO E1(36)\r\nC\r\n      DO 1065 I = 1,36\r\n 1065 E1( I) = 0.0\r\n      E1( 1) = EE( 1)\r\n      E1( 2) = EE( 2)\r\n      E1( 3) = EE( 4)\r\n      E1( 4) = EE( 7)\r\n      E1( 7) = EE( 2)\r\n      E1( 8) = EE( 3)\r\n      E1( 9) = EE( 5)\r\n      E1(10) = EE( 8)\r\n      E1(13) = EE( 4)\r\n      E1(14) = EE( 5)\r\n      E1(15) = EE( 6)\r\n      E1(16) = EE( 9)\r\n      E1(19) = EE( 7)\r\n      E1(20) = EE( 8)\r\n      E1(21) = EE( 9)\r\n      E1(22) = EE(10)\r\n      E1(29) = EE(15)\r\n      E1(36) = EE(21)\r\nC\r\nC     COMPUTE THE STRESS MATRICES\r\nC\r\n      K = 72*(IKI-1) + 1\r\n      CALL GMMATS (WJ,12,6,1, GABABQ,12,12,0, D(1))\r\n      CALL GMMATS (E1(1),6,6,0, D(1),6,12,0, SEL(K))\r\nC\r\n      IF (LSYS78) GO TO 1070\r\n      KP1 = 24*(IKI-1) + 1\r\n      CALL GMMATS (WJP,4,3,1, GBP,4,4,0, D2(1))\r\n      CALL GMMATS (EE(37),6,3,0, D2(1),3,4,0, SELP1(KP1))\r\n      KP2 = 36*(IKI-1) + 1\r\n      CALL GMMATS (EE(37),6,3,1, D(1),6,12,0, SELP2(KP2))\r\n      KP3 = 12*(IKI-1) + 1\r\n      CALL GMMATS (EE(55),3,3,0, D2(1),3,4,0, SELP3(KP3))\r\n 1070 CONTINUE\r\nC\r\nC     ** COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX *******************\r\nC     ** THE FOLLOWING CODE WILL IMPLEMENT IT **************************\r\nC     ** NOTE THAT WJ IS SEL(K) IN FOLLOWING GMMATS ********************\r\nC\r\nC     ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO-\r\nC     ELECTRIC TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL\r\nC     COORDINATES\r\nC..   CALL GMMATS (WJ,6,12,0, AKI(1),12,12,0, SEL(K) )\r\nC\r\nC\r\n 9001 CONTINUE\r\nC\r\nC     COMPUTE THE THERMAL STRAIN\r\nC\r\n      ALFB(1) = ALF(1)\r\n      ALFB(2) = ALF(3)\r\n      ALFB(3) = ALF(2)\r\n      ALFB(4) = 0.0\r\n      ALFB(5) = 0.0\r\n      ALFB(6) = 0.0\r\nC\r\nC     COMPUTE THE THERMAL STRESS\r\nC\r\n      TS(1) = EE(1)*ALFB(1) + EE(2)*ALFB(2) + EE(4)*ALFB(3)\r\n      TS(2) = EE(2)*ALFB(1) + EE(3)*ALFB(2) + EE(5)*ALFB(3)\r\n      TS(3) = EE(4)*ALFB(1) + EE(5)*ALFB(2) + EE(6)*ALFB(3)\r\n      TS(4) = EE(7)*ALFB(1) + EE(8)*ALFB(2) + EE(9)*ALFB(3)\r\n      TS(5) = 0.0\r\n      TS(6) = 0.0\r\nC\r\nC     SAVE ECPT(9) TO ECP(22)\r\nC\r\n      DO 9006 IKI = 1,14\r\n      PHI (IKI) = ECPT(8+IKI)\r\n 9006 CONTINUE\r\n      GO TO 940\r\nC\r\nC     SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMLATE\r\nC\r\n  910 I = 37\r\n       GO TO 930\r\n  915 I = 126\r\n       GO TO 930\r\n  920 I = 26\r\n  930 CALL MESAGE (-30,I,IDEL)\r\n  940 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpax2.f",
    "content": "      SUBROUTINE STPAX2 (SORC,TI)\r\nC\r\nC     THIS ROUTINE IS PHASE II OF STRESS RECOVERY FOR THE TRAPEZOIDAL\r\nC     CROSS SECTION RING\r\nC\r\nC     OUTPUTS FROM PHASE I ARE THE FOLLOWING..\r\nC     IDEL, IGP(4), TZ, SEL(360), TS(06), AK(144), PHI(14)\r\nC     AKUPH(48), AKPH2(16), SELP1(120), SELP2(180), SELP3(60)\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         ZERO,ZERON,LSYS78\r\n      INTEGER         SORC,IBLOCK(62,14),ISTRES(100),IFORCE(25),ELEMID,\r\n     1                ICLOCK(62,14)\r\n      REAL            NPHI\r\n      DIMENSION       TI(4),DUM3(225),STRES(100),FORCE(25),AKUPH(48),\r\n     1                AKPH2(16),SELP1(120),SELP2(180),SELP3(60),D4(4),\r\n     2                D15(15),D30(30),DISPP(4),ECHRG(4),EFLUX(15)\r\nC\r\nC     SDR2 VARIABLE CORE\r\nC\r\n      COMMON /ZZZZZZ/ ZZ(1)\r\nC\r\nC     SDR2 BLOCK FOR POINTERS AND LOADING  TEMPERATURES\r\nC\r\n      COMMON /SDR2X4/ DUM1(33),ICSTM,NCSTM,IVEC,IVECN,TEMPLD,ELDEFM,\r\n     1                DUM4(12),KTYPE\r\nC\r\nC     SCRATCH BLOCK\r\nC\r\n      COMMON /SDR2X8/ DISP(12),EFORC(12),ESTRES(30),HARM,N,SINPHI,\r\n     1                CONPHI,NPHI,NANGLE,ELEMID,UNU(93),NELHAR,KANGLE,\r\n     2                KLEMID\r\nC\r\nC     SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON /SDR2X7/ IDEL,IGP(4),TZ,SEL(360),TS(6),AK(144),PHI(14),\r\n     1                DUM2(424),BLOCK(62,14),CLOCK(62,14)\r\nC\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78\r\n      COMMON /SDR2DE/ DUM5(33), IPART\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      EQUIVALENCE     (IBLOCK(1,1),BLOCK(1,1)),(ICLOCK(1,1),CLOCK(1,1)),\r\n     1                (DUM3(1),IDEL),(DUM3(101),STRES(1),ISTRES(1)),\r\n     2                (DUM3(201),FORCE(1),IFORCE(1)),(CONSTS(4),DEGRAD),\r\n     3                (LDTEMP,TEMPLD),(DUM2(1),AKUPH(1)),\r\n     4                (DUM2(49),AKPH2(1)),(DUM2(65),SELP1(1)),\r\n     5                (DUM2(185),SELP2(1)),(DUM2(365),SELP3(1)),\r\n     6                (UNU(1),D4(1)),(UNU(5),D15(1)),(UNU(20),D30(1))\r\n      DATA    ZERON / .FALSE. /\r\n      DATA    IOSORC/ 0       /\r\nC\r\n      ELEMID = IDEL / 1000\r\n      NELHAR = IDEL - ELEMID*1000\r\n      KLEMID = ELEMID\r\n      LSYS78 =.FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\nC\r\nC     SET BLOCK = 0 IF HARMONIC = 0\r\nC\r\n      N = NELHAR - 1\r\n      IF (N .NE. 0) GO TO 21\r\n      IF (N.EQ.0 .AND. ZERON .AND. IOSORC .NE. SORC) GO TO 14\r\n      ZERON  = .TRUE.\r\n      IOSORC = SORC\r\n      DO 15 I = 2,62\r\n      DO 15 J = 1,14\r\n      IF (KTYPE.NE.2 .OR. IPART.NE.2) BLOCK(I,J) = 0.0\r\n      CLOCK(I,J) = 0.0\r\n   15 CONTINUE\r\nC\r\nC     SET ANGLES CONTROL FOR SUMMATION\r\nC\r\n      ZERO = .FALSE.\r\n      J = 0\r\n      DO 16 I = 1,14\r\n      IF (PHI(I)) 17,18,17\r\n   18 IF (ZERO) GO TO 16\r\n      ZERO = .TRUE.\r\n   17 J = J + 1\r\n      BLOCK(1,J) = PHI(I)\r\n      CLOCK(1,J) = PHI(I)\r\n   16 CONTINUE\r\n      J = J + 1\r\n      IF (J .GT. 14) GO TO 21\r\n      IBLOCK(1,J) = 1\r\n      ICLOCK(1,J) = 1\r\n      GO TO 21\r\n   14 ZERON = .FALSE.\r\n   21 HARM  = N\r\nC\r\nC     INITIALIZE LOCAL VARIABLES\r\nC\r\n      NDOF  = 3\r\n      NUMPT = 4\r\n      N     = NDOF*NUMPT\r\n      NSP   = 5\r\n      NCOMP = 6\r\n      NS    = NSP*NCOMP\r\nC\r\nC     FIND GRID POINTS DISPLACEMENTS\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NUMPT\r\n      ILOC = IVEC + IGP(I) - 2\r\nC\r\n      IF (LSYS78) GO TO 90\r\n      ILOCP = ILOC + 4\r\n      DISPP(I) = ZZ(ILOCP)\r\n   90 CONTINUE\r\nC\r\n      DO 100 J = 1,NDOF\r\n      ILOC = ILOC + 1\r\n      K = K + 1\r\n      DISP(K) = ZZ(ILOC)\r\n  100 CONTINUE\r\nC\r\nC     COMPUTE THE GRID POINT FORCES\r\nC\r\n      CALL GMMATS (AK(1),N,N,0, DISP(1),N,1,0, EFORC(1))\r\nC\r\n      DO 109 I = 1,4\r\n  109 ECHRG(I) = 0.0\r\nC\r\n      IF (LSYS78) GO TO 125\r\n      CALL GMMATS (AKUPH(1),N,NUMPT,0, DISPP(1),NUMPT,1,0, D15(1))\r\n      DO 110 I = 1,12\r\n  110 EFORC(I) = EFORC(I) + D15(I)\r\nC\r\n      CALL GMMATS (AKUPH(1),N,NUMPT,1, DISP(1),N,1,0, D4(1))\r\n      CALL GMMATS (AKPH2(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, ECHRG(1))\r\n      DO 120 I = 1,4\r\n  120 ECHRG(I) = ECHRG(I) + D4(I)\r\n  125 CONTINUE\r\nC\r\nC     COMPUTE THE STRESSES\r\nC\r\n      CALL GMMATS (SEL(1),NS,N,0, DISP(1),N,1,0, ESTRES(1))\r\nC\r\n      DO 129 I = 1,15\r\n  129 EFLUX(I) = 0.0\r\nC\r\n      IF (LSYS78) GO TO 145\r\n      CALL GMMATS (SELP1(1),NS,NUMPT,0, DISPP(1),NUMPT,1,0, D30(1))\r\n      DO 130 I = 1,30\r\n  130 ESTRES(I) = ESTRES(I) + D30(I)\r\nC\r\n      CALL GMMATS (SELP2(1),15,N,0, DISP(1),N,1,0, EFLUX(1))\r\n      CALL GMMATS (SELP3(1),15,NUMPT,0, DISPP(1),NUMPT,1,0, D15(1))\r\n      DO 140 I = 1,15\r\n  140 EFLUX(I) = EFLUX(I) + D15(I)\r\n  145 CONTINUE\r\nC\r\nC     COMPUTE THERMAL STRESS IF IT IS EXISTS\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 300\r\n      K = 0\r\n      T = TZ\r\n      IF (HARM .GT. 0.0) T = 0.0\r\n      DO 200 I = 1,NSP\r\n      DT = TI(I) - T\r\n      IF (I .EQ. 5) DT = (TI(1)+TI(2)+TI(3)+TI(4))/4.0 - T\r\n      DO 200 J = 1,NCOMP\r\n      K = K + 1\r\n      ESTRES(K) = ESTRES(K) - DT*TS(J)\r\n  200 CONTINUE\r\n  300 CONTINUE\r\nC\r\nC     BRANCH TO INSERT HARMONIC STRESSES AND FORCES INTO BLOCK OR CLOCK\r\nC\r\nC     KTYPE = 1 - REAL OUTPUT, STORED IN BLOCK, NOTHING IN CLOCK\r\nC     KTYPE = 2 - COMPLEX OUTPUT\r\nC     IPART = 1 - IMAGINARY PART OF COMPLEX OUTPUT, STORED IN BLOCK\r\nC     IPART = 2 - REAL PART OF COMPLEX OUTPUT, STORED IN CLOCK\r\nC\r\n      IF (KTYPE.EQ.2 .AND. IPART.EQ.2) GO TO 550\r\nC\r\nC     INSERT HARMONIC STRESSES AND FORCES INTO BLOCK\r\nC\r\n      DO 370 I = 1,14\r\n      IF (IBLOCK(1,I) .EQ. 1) GO TO 380\r\n      IF (HARM .EQ. 0.0) GO TO 350\r\n      NPHI   = HARM*BLOCK(1,I)*DEGRAD\r\n      SINPHI = SIN(NPHI)\r\n      CONPHI = COS(NPHI)\r\n      GO TO (330,310), SORC\r\nC\r\n  310 CONTINUE\r\n      DO 315 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      BLOCK(2+KE,I) = BLOCK(2+KE,I) + CONPHI*ESTRES(1+KEPZ)\r\n      BLOCK(3+KE,I) = BLOCK(3+KE,I) + CONPHI*ESTRES(2+KEPZ)\r\n      BLOCK(4+KE,I) = BLOCK(4+KE,I) + CONPHI*ESTRES(3+KEPZ)\r\n      BLOCK(5+KE,I) = BLOCK(5+KE,I) + CONPHI*ESTRES(4+KEPZ)\r\n      BLOCK(6+KE,I) = BLOCK(6+KE,I) + SINPHI*ESTRES(5+KEPZ)\r\n      BLOCK(7+KE,I) = BLOCK(7+KE,I) + SINPHI*ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 315\r\n      KEPZ2 = KEPZ/2\r\n      BLOCK( 8+KE,I) = BLOCK( 8+KE,I) + CONPHI*EFLUX (1+KEPZ2)\r\n      BLOCK( 9+KE,I) = BLOCK( 9+KE,I) + CONPHI*EFLUX (2+KEPZ2)\r\n      BLOCK(10+KE,I) = BLOCK(10+KE,I) + SINPHI*EFLUX (3+KEPZ2)\r\n  315 CONTINUE\r\nC\r\n      DO 320 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      BLOCK(47+KR,I) = BLOCK(47+KR,I) + CONPHI*EFORC(1+KRPZ)\r\n      BLOCK(48+KR,I) = BLOCK(48+KR,I) + SINPHI*EFORC(2+KRPZ)\r\n      BLOCK(49+KR,I) = BLOCK(49+KR,I) + CONPHI*EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) BLOCK(50+KR,I) = BLOCK(50+KR,I) +CONPHI*ECHRG(KR3)\r\n  320 CONTINUE\r\n      GO TO 370\r\nC\r\n  330 CONTINUE\r\n      DO 335 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      BLOCK(2+KE,I) = BLOCK(2+KE,I) + SINPHI*ESTRES(1+KEPZ)\r\n      BLOCK(3+KE,I) = BLOCK(3+KE,I) + SINPHI*ESTRES(2+KEPZ)\r\n      BLOCK(4+KE,I) = BLOCK(4+KE,I) + SINPHI*ESTRES(3+KEPZ)\r\n      BLOCK(5+KE,I) = BLOCK(5+KE,I) + SINPHI*ESTRES(4+KEPZ)\r\n      BLOCK(6+KE,I) = BLOCK(6+KE,I) - CONPHI*ESTRES(5+KEPZ)\r\n      BLOCK(7+KE,I) = BLOCK(7+KE,I) - CONPHI*ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 335\r\n      KEPZ2 = KEPZ/2\r\n      BLOCK( 8+KE,I) = BLOCK( 8+KE,I) + SINPHI*EFLUX(1+KEPZ2)\r\n      BLOCK( 9+KE,I) = BLOCK( 9+KE,I) + SINPHI*EFLUX(2+KEPZ2)\r\n      BLOCK(10+KE,I) = BLOCK(10+KE,I) - CONPHI*EFLUX(3+KEPZ2)\r\n  335 CONTINUE\r\nC\r\n      DO 340 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      BLOCK(47+KR,I) = BLOCK(47+KR,I) + SINPHI*EFORC(1+KRPZ)\r\n      BLOCK(48+KR,I) = BLOCK(48+KR,I) - CONPHI*EFORC(2+KRPZ)\r\n      BLOCK(49+KR,I) = BLOCK(49+KR,I) + SINPHI*EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) BLOCK(50+KR,I) = BLOCK(50+KR,I) +SINPHI*ECHRG(KR3)\r\n  340 CONTINUE\r\n      GO TO 370\r\nC\r\n  350 DO 355 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      BLOCK(2+KE,I) = ESTRES(1+KEPZ)\r\n      BLOCK(3+KE,I) = ESTRES(2+KEPZ)\r\n      BLOCK(4+KE,I) = ESTRES(3+KEPZ)\r\n      BLOCK(5+KE,I) = ESTRES(4+KEPZ)\r\n      BLOCK(6+KE,I) = ESTRES(5+KEPZ)\r\n      BLOCK(7+KE,I) = ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 355\r\n      KEPZ2 = KEPZ/2\r\n      BLOCK( 8+KE,I) = EFLUX(1+KEPZ2)\r\n      BLOCK( 9+KE,I) = EFLUX(2+KEPZ2)\r\n      BLOCK(10+KE,I) = EFLUX(3+KEPZ2)\r\n  355 CONTINUE\r\nC\r\n      DO 360 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      BLOCK(47+KR,I) = EFORC(1+KRPZ)\r\n      BLOCK(48+KR,I) = EFORC(2+KRPZ)\r\n      BLOCK(49+KR,I) = EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) BLOCK(50+KR,I) = ECHRG(KR3)\r\n  360 CONTINUE\r\nC\r\n  370 CONTINUE\r\nC\r\nC     COPY STRESSES AND FORCES INTO OUTPUT BLOCKS\r\nC\r\n  380 CONTINUE\r\n      J = 2\r\n      K = 1\r\n      L = 0\r\n      ISTRES (1) = ELEMID\r\n      ISTRES (2) = NELHAR\r\n      DO 400 I = 1,NS\r\n      J = J + 1\r\n      STRES(J) = ESTRES(I)\r\nC\r\n      IF (I/6 .NE. K) GO TO 400\r\n      K = K + 1\r\n      DO 390 II = 1,3\r\n      J = J + 1\r\n      L = L + 1\r\n      STRES(J) = EFLUX(L)\r\n  390 CONTINUE\r\nC\r\n  400 CONTINUE\r\n      K = 0\r\n      J = 2\r\n      L = 1\r\n      IFORCE(1) = ELEMID\r\n      IFORCE(2) = NELHAR\r\n      DO 500 I  = 1,NUMPT\r\n      DO 500 KK = 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\nC\r\n      IF (K/3 .NE. L) GO TO 500\r\n      J = J + 1\r\n      FORCE(J) = ECHRG(L)\r\n      L = L + 1\r\nC\r\n  500 CONTINUE\r\nC\r\n      IF (KTYPE.EQ.1 .OR. (KTYPE.EQ.2 .AND. IPART.EQ.1)) GO TO 1001\r\n  550 CONTINUE\r\nC\r\nC     INSERT HARMONIC STRESSES AND FORCES INTO CLOCK\r\nC\r\n      DO 690 I = 1,14\r\n      IF (ICLOCK(1,I) .EQ. 1) GO TO 700\r\n      IF (HARM .EQ. 0.0) GO TO 660\r\n      NPHI   = HARM*CLOCK(1,I)*DEGRAD\r\n      SINPHI = SIN(NPHI)\r\n      CONPHI = COS(NPHI)\r\n      GO TO (630,600), SORC\r\n  600 CONTINUE\r\nC\r\n      DO 610 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      CLOCK(2+KE,I) = CLOCK(2+KE,I) + CONPHI*ESTRES(1+KEPZ)\r\n      CLOCK(3+KE,I) = CLOCK(3+KE,I) + CONPHI*ESTRES(2+KEPZ)\r\n      CLOCK(4+KE,I) = CLOCK(4+KE,I) + CONPHI*ESTRES(3+KEPZ)\r\n      CLOCK(5+KE,I) = CLOCK(5+KE,I) + CONPHI*ESTRES(4+KEPZ)\r\n      CLOCK(6+KE,I) = CLOCK(6+KE,I) + SINPHI*ESTRES(5+KEPZ)\r\n      CLOCK(7+KE,I) = CLOCK(7+KE,I) + SINPHI*ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 610\r\n      KEPZ2 = KEPZ/2\r\n      CLOCK( 8+KE,I) = CLOCK( 8+KE,I) + CONPHI*EFLUX (1+KEPZ2)\r\n      CLOCK( 9+KE,I) = CLOCK( 9+KE,I) + CONPHI*EFLUX (2+KEPZ2)\r\n      CLOCK(10+KE,I) = CLOCK(10+KE,I) + SINPHI*EFLUX (3+KEPZ2)\r\n  610 CONTINUE\r\nC\r\n      DO 620 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      CLOCK(47+KR,I) = CLOCK(47+KR,I) + CONPHI*EFORC(1+KRPZ)\r\n      CLOCK(48+KR,I) = CLOCK(48+KR,I) + SINPHI*EFORC(2+KRPZ)\r\n      CLOCK(49+KR,I) = CLOCK(49+KR,I) + CONPHI*EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) CLOCK(50+KR,I) = CLOCK(50+KR,I) +CONPHI*ECHRG(KR3)\r\n  620 CONTINUE\r\n      GO TO 690\r\nC\r\n  630 CONTINUE\r\n      DO 640 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      CLOCK(2+KE,I) = CLOCK(2+KE,I) + SINPHI*ESTRES(1+KEPZ)\r\n      CLOCK(3+KE,I) = CLOCK(3+KE,I) + SINPHI*ESTRES(2+KEPZ)\r\n      CLOCK(4+KE,I) = CLOCK(4+KE,I) + SINPHI*ESTRES(3+KEPZ)\r\n      CLOCK(5+KE,I) = CLOCK(5+KE,I) + SINPHI*ESTRES(4+KEPZ)\r\n      CLOCK(6+KE,I) = CLOCK(6+KE,I) - CONPHI*ESTRES(5+KEPZ)\r\n      CLOCK(7+KE,I) = CLOCK(7+KE,I) - CONPHI*ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 640\r\n      KEPZ2 = KEPZ/2\r\n      CLOCK( 8+KE,I) = CLOCK( 8+KE,I) + SINPHI*EFLUX(1+KEPZ2)\r\n      CLOCK( 9+KE,I) = CLOCK( 9+KE,I) + SINPHI*EFLUX(2+KEPZ2)\r\n      CLOCK(10+KE,I) = CLOCK(10+KE,I) - CONPHI*EFLUX(3+KEPZ2)\r\n  640 CONTINUE\r\nC\r\n      DO 650 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      CLOCK(47+KR,I) = CLOCK(47+KR,I) + SINPHI*EFORC(1+KRPZ)\r\n      CLOCK(48+KR,I) = CLOCK(48+KR,I) - CONPHI*EFORC(2+KRPZ)\r\n      CLOCK(49+KR,I) = CLOCK(49+KR,I) + SINPHI*EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) CLOCK(50+KR,I) = CLOCK(50+KR,I) +SINPHI*ECHRG(KR3)\r\n  650 CONTINUE\r\n      GO TO 690\r\nC\r\n  660 DO 670 IE = 1,5\r\n      KE   = 9*(IE-1)\r\n      KEPZ = 6*(IE-1)\r\n      CLOCK(2+KE,I) = ESTRES(1+KEPZ)\r\n      CLOCK(3+KE,I) = ESTRES(2+KEPZ)\r\n      CLOCK(4+KE,I) = ESTRES(3+KEPZ)\r\n      CLOCK(5+KE,I) = ESTRES(4+KEPZ)\r\n      CLOCK(6+KE,I) = ESTRES(5+KEPZ)\r\n      CLOCK(7+KE,I) = ESTRES(6+KEPZ)\r\nC\r\n      IF (LSYS78) GO TO 670\r\n      KEPZ2 = KEPZ/2\r\n      CLOCK( 8+KE,I) = EFLUX(1+KEPZ2)\r\n      CLOCK( 9+KE,I) = EFLUX(2+KEPZ2)\r\n      CLOCK(10+KE,I) = EFLUX(3+KEPZ2)\r\n  670 CONTINUE\r\nC\r\n      DO 680 IR = 1,4\r\n      KR   = 4*(IR-1)\r\n      KRPZ = 3*(IR-1)\r\n      CLOCK(47+KR,I) = EFORC(1+KRPZ)\r\n      CLOCK(48+KR,I) = EFORC(2+KRPZ)\r\n      CLOCK(49+KR,I) = EFORC(3+KRPZ)\r\n      KR3 = 1 + KRPZ/3\r\n      IF(.NOT.LSYS78) CLOCK(50+KR,I) = ECHRG(KR3)\r\n  680 CONTINUE\r\nC\r\n  690 CONTINUE\r\nC\r\nC     COPY STRESSES AND FORCES INTO OUTPUT BLOCKS\r\nC\r\n  700 CONTINUE\r\n      J = 2\r\n      K = 1\r\n      L = 0\r\n      ISTRES (1) = ELEMID\r\n      ISTRES (2) = NELHAR\r\n      DO 720 I = 1,NS\r\n      J = J + 1\r\n      STRES(J) = ESTRES(I)\r\nC\r\n      IF (I/6 .NE. K) GO TO 720\r\n      K = K + 1\r\n      DO 710 II = 1,3\r\n      J = J + 1\r\n      L = L + 1\r\n      STRES(J) = EFLUX(L)\r\n  710 CONTINUE\r\n  720 CONTINUE\r\nC\r\n      K = 0\r\n      J = 2\r\n      L = 1\r\n      IFORCE(1) = ELEMID\r\n      IFORCE(2) = NELHAR\r\n      DO 800 I  = 1,NUMPT\r\n      DO 800 KK = 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\nC\r\n      IF (K/3 .NE. L) GO TO 800\r\n      J = J + 1\r\n      FORCE(J) = ECHRG(L)\r\n      L = L + 1\r\n  800 CONTINUE\r\nC\r\n 1001 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpax3.f",
    "content": "      SUBROUTINE STPAX3 ( AGAIN)\r\n      INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(62,14)\r\n     1,       ICLOCK(62,14),CANGLE\r\nC\r\n      REAL    SAVEF(75), SAVES(75)\r\nC\r\n      LOGICAL AGAIN\r\nC\r\n      COMMON /SDR2X7/ DUM(100),STRESS(100),FORCE(25)\r\n     1,               SKIP(729),BLOCK(62,14),CLOCK(62,14)\r\nC\r\nC SCRATCH BLOCK\r\n      COMMON /SDR2X8/ DISP(59),NANGLE,ELEMID,UNU(94),KANGLE,KLEMID\r\n      COMMON /ISAVE / ISAVEF(75),ISAVES(75)\r\nC\r\n      COMMON /SDR2DE/ DUM5(33), IPART\r\nC\r\n      COMMON /SDR2X4/ DUM4(51),KTYPE\r\nC\r\nC\r\n      EQUIVALENCE ( ISTRES(1), STRESS(1)), ( IFORCE(1), FORCE(1))\r\n     1,            (IBLOCK(1,1), BLOCK(1,1))\r\n     2,            (ICLOCK(1,1),CLOCK(1,1)),(ISAVEF(1),SAVEF(1))\r\n     3,            (ISAVES(1),SAVES(1)),(NANGLE,CANGLE)\r\nC\r\n      IF ( AGAIN ) GO TO 10\r\n      AGAIN = .TRUE.\r\n      KANGLE = 0\r\n   10 NANGLE = KANGLE\r\n      ELEMID = KLEMID\r\n      NANGLE = NANGLE + 1\r\n      KANGLE = NANGLE\r\nC\r\nC\r\nC  BRANCH TO INSERT STRESSES AND FORCES INTO FORCE AND STRESS OR\r\nC                                            SAVEF AND SAVES\r\nC\r\nC    KTYPE=1 - REAL OUTPUT FROM BLOCK IS TRANSFERED TO CLOCK, THEN\r\nC              STORED IN FORCE AND STRESS, NOTHING IN SAVEF AND SAVES\r\nC    KTYPE=2 - COMPLEX OUTPUT\r\nC    IPART=1 - IMAGINARY PART OF COMPLEX OUTPUT FROM BLOCK, STORED\r\nC              IN SAVEF AND SAVES\r\nC    IPART=2 - REAL PART OF COMPLEX OUTPUT FROM CLOCK STORED IN\r\nC              FORCE AND STRESS\r\nC\r\n      IF(KTYPE.EQ.2) GO TO 19\r\n      DO 15 I=1,62\r\n      DO 15 J=1,14\r\n   15 CLOCK(I,J) = BLOCK(I,J)\r\n   19 CONTINUE\r\nC\r\nC  OUTPUT FORCES FOR THIS ANGLE\r\n      IFORCE(1)=ELEMID\r\n      FORCE(2) = CLOCK(1,CANGLE)\r\n      DO 20 I=1,16\r\n      FORCE(2+I) = CLOCK(46+I,CANGLE)\r\n   20 CONTINUE\r\nC\r\nC OUTPUT STRESSES\r\n      ISTRES  (1) = ELEMID\r\n      STRESS(2) = CLOCK(1,CANGLE)\r\n      DO 30 I=1,45\r\n      STRESS(2+I) = CLOCK(I+1,CANGLE)\r\n   30 CONTINUE\r\nC\r\n      IF(KTYPE.EQ.2) GO TO 40\r\n      IF(CANGLE .EQ. 14) GO TO 100\r\n      IF(ICLOCK(1,CANGLE+1) .EQ. 1) GO TO 100\r\n      GO TO 70\r\nC\r\n   40 CONTINUE\r\nC\r\nC  OUTPUT FORCES FOR THIS ANGLE\r\n      ISAVEF(1)=ELEMID\r\n      SAVEF(2) = BLOCK (1,NANGLE)\r\n      DO 50 I=1,16\r\n      SAVEF (2+I) = BLOCK (46+I, NANGLE)\r\n   50 CONTINUE\r\nC\r\nC OUTPUT STRESSES\r\n      ISAVES(1) = ELEMID\r\n      SAVES(2) = BLOCK(1,NANGLE)\r\n      DO 60 I=1,45\r\n      SAVES(2+I) = BLOCK(I+1,NANGLE)\r\n   60 CONTINUE\r\nC\r\n      IF (NANGLE .EQ. 14) GO TO 100\r\n      IF (IBLOCK(1,NANGLE+1) .EQ. 1)  GO TO 100\r\n   70 CONTINUE\r\nC\r\n      RETURN\r\n  100 AGAIN = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpbg.f",
    "content": "      SUBROUTINE STPBG(BM,GM,NS,BLOC,D,CA,NSIZE)\r\nC     MAKES MATRICES BM AND GM FOR EACH STRIP\r\n      DIMENSION NSIZE(1),CA(1),D(1),BLOC(1),BM(4,4,NS),GM(4,3,NS)\r\n      DO 100 N=1,NS\r\n      DO 10 I=1,4\r\n      DO 10 J=1,4\r\n   10 BM(I,J,N)=0.0\r\n      DO 15 I=1,4\r\n      DO 15 J=1,3\r\n   15 GM(I,J,N)=0.0\r\n      BM(1,1,N)=  BLOC(N)\r\n      BM(2,2,N)= -BLOC(N)*BLOC(N)\r\n      GM(1,1,N)=-1.0/BLOC(N)\r\n      GM(2,2,N)= 1.0\r\n      IF(NSIZE(N).EQ.2) GO TO 50\r\nC         CONTROL SURFACE CASE\r\n      E= CA(N) + D(N) - 1.5*BLOC(N)\r\n      BM(3,3,N)=E*BLOC(N)\r\n      BM(3,4,N)= BM(2,2,N)\r\n      GM(3,3,N)= 1.0\r\n      GM(4,3,N)= -E/BLOC(N)\r\n   50 CONTINUE\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpbs0.f",
    "content": "      SUBROUTINE STPBS0(X,NCODE,BJ0,BY0)\r\nC     SUBROUTINE  BES0.  J AND Y BESSEL FUNCTIONS OF ORDER ZERO\r\nC     E. ALBANO, ORGN 3721, EXT 1022, OCT. 1967\r\nC     COMPUTES J0(X)  IF X IS GREATER THAN -3.\r\nC     COMPUTES Y0(X)  IF (X IS GREATER THAN E AND NCODE = 1 ),\r\nC           WHERE\r\n      INTEGER NAME(2)\r\n      DATA NAME /4HSTPB,4HS0  /\r\n      E=0.00001\r\nC                 REF. US DEPT OF COMMERCE HANDBOOK (AMS 55)  PG. 369\r\n      A=ABS(X)\r\n      IF(A-3.) 10,10,100\r\n   10 Z=X*X/9.\r\n      BJ0=1.+Z*(-2.2499997+Z*(1.2656208+Z*(-0.3163866+Z*(0.0444479\r\n     1    +Z*(-0.0039444+Z* 0.00021)))))\r\n      IF(NCODE-1)  15,20,15\r\n   15 RETURN\r\n   20 IF(X-E) 200,25,25\r\n   25 BY0=0.63661977*BJ0*(ALOG(X)-.69314718)+.36746691+Z*(0.60559366+Z*\r\n     1    (-0.74350384+Z*(0.25300117+Z*(-0.04261214+Z*(0.00427916\r\n     2    -0.00024846*Z)))))\r\n      RETURN\r\n  100 IF(X   ) 250,250,110\r\n  110 U=1./SQRT(X)\r\n      Z=3./X\r\n      W=0.79788456+Z*(-0.00000077+Z*(-0.0055274+Z*(-0.00009512+Z*\r\n     1  (0.00137237+Z*(-0.00072805+0.00014476*Z)))))\r\n      T=X-0.78539816+Z*(-0.04166397+Z*(-0.00003954+Z*(0.00262573+Z*\r\n     1  (-0.00054125+Z*(-0.00029333+0.00013558*Z)))))\r\n      UW=U*W\r\n      BJ0=UW*COS(T)\r\n      IF(NCODE-1) 15,120,15\r\n  120 BY0=UW*SIN(T)\r\n 1000 RETURN\r\n  200 CONTINUE\r\n  250 CONTINUE\r\n      CALL MESAGE(-7,0,NAME)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/stpbs1.f",
    "content": "      SUBROUTINE STPBS1(X,NCODE,BJ1,BY1)\r\nC     SUBROUTINE BES1        J AND Y BESSEL FUNCTIONS OF FIRST ORDER\r\nC     E. ALBANO, ORGN 3721, EXT 1022, OCT 1967\r\nC     COMPUTES J1(X) IF X IS GREATER THAN -3.\r\nC     COMPUTES Y1(X) IF (X IS GREATER THAN E AND NCODE = 1 ),\r\nC           WHERE\r\n      INTEGER NAME(2)\r\n      DATA NAME /4HSTPB,4HS1  /\r\n      E=0.00001\r\nC                 REF. US DEPT OF COMMERCE HANBOOK (AMS 58)  PG. 370\r\n      A=ABS(X)\r\n      IF(A-3.) 10,10,100\r\n   10 Z=X*X/9.\r\n      BJ1=X*(0.5+Z*(-0.56249985+Z*(0.21093573+Z*(-0.03954289+Z*\r\n     1      (0.00443319+Z*(-0.00031761+0.00001109*Z))))))\r\n      IF(NCODE-1) 15,20,15\r\n   15 RETURN\r\n   20 IF(X-E) 200,25,25\r\n   25 BY1=0.63661977*BJ1*(ALOG(X)-.69314718)+(-0.6366198 +Z*\r\n     1   (0.2212091+Z*(2.1682709 +Z*(-1.3164827+Z*(0.3123951+Z*\r\n     2   (-0.0400976+0.0027873*Z))))))/X\r\n      RETURN\r\n  100 IF(X) 250,250,110\r\n  110 U=1./SQRT(X)\r\n      Z=3./X\r\n      W=0.79788456+Z*(0.00000156+Z*(0.01659667+Z*(0.00017105+Z*\r\n     1  (-0.00249511+Z*(0.00113653-0.00020033*Z)))))\r\n      T=X-2.35619449+Z*(0.12499612+Z*(0.00005650+Z*(-0.00637879+Z*\r\n     1  (0.00074348+Z*(0.00079824-0.00029166*Z)))))\r\n      UW=U*W\r\n      BJ1=UW*COS(T)\r\n      IF(NCODE-1) 15,120,15\r\n  120 BY1=UW*SIN(T)\r\n 1000 RETURN\r\n  200 CONTINUE\r\n  250 CONTINUE\r\n      CALL MESAGE(-7,0,NAME)\r\n      GO TO 1000\r\n      END\r\n"
  },
  {
    "path": "mis/stpda.f",
    "content": "      SUBROUTINE STPDA (INPUT,AJJL,SKJ)\r\nC\r\nC     DRIVER FOR STRIP THEORY\r\nC\r\n      INTEGER         SYSBUF,IZ(8),AJJL,SKJ,NAME(2),CLAF,LCLAF,LCIRC\r\n      COMPLEX         EKM\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /STRIPC/ NS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1),\r\n     1                DUM,BB(4),BETA(4),EKM(4,4)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /CONDAS/ PI,TWOPI\r\n      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK\r\n      COMMON /BLANK / NK,NJ\r\n      COMMON /PACKX / ITI,IT0,II,NN,INCR\r\n      EQUIVALENCE     (IZ(1),Z(1))\r\n      DATA     NAME / 4HSTPD,4HA   /\r\nC\r\n      ICORE = KORSZ(IZ) - 4*SYSBUF\r\nC\r\nC     BRING IN DATA AND ALLOCATE CORE\r\nC\r\n      CALL FREAD (INPUT,Z,8,0)\r\n      NNJ   = IZ(1)\r\n      CLAF  = IZ(2)\r\n      LCLAF = IZ(3)\r\n      NCIRC = IZ(4)\r\n      LCIRC = IZ(5)\r\n      NNCIRC= NCIRC + 1\r\n      NMACH = IZ(6)\r\n      NS    = IZ(7)\r\n      I8    = 8\r\n      CLAM  = Z(I8)\r\n      FM    = 1.0\r\n      BREF  = REFC / 2.0\r\n      EKR(1)= RFK\r\n      IDY   = 1\r\n      IBLOC = IDY  + NS\r\n      ID    = IBLOC+ NS\r\n      ICA   = ID   + NS\r\n      IGAP  = ICA  + NS\r\n      INSIZE= IGAP + NS\r\n      ICLA  = INSIZE + NS\r\n      IBM   = ICLA + NS\r\n      IGM   = IBM  + 16 * NS\r\n      IPM   = IGM  + 12 * NS\r\n      IOC   = IPM  + 37 * NS\r\n      IF (IOC.GT.ICORE) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     READ IN ARRAYS WHICH ARE FIXED\r\nC\r\n      NW = 6*NS\r\n      CALL FREAD (INPUT,Z,NW,0)\r\nC\r\nC     SET CLA ARRAY OR BB AND BETA\r\nC\r\n      IF (CLAF .EQ. 0) GO TO 40\r\n      IF (CLAF .LT. 0) GO TO 30\r\nC\r\nC     FIND MACH NUMBER FOR CLA\r\nC\r\n      DO 10 I = 1,NMACH\r\n      CALL FREAD (INPUT,RM,1,0)\r\n      IF (RM .EQ. FMACH) GO TO 20\r\n      CALL FREAD (INPUT,Z,-NS,0)\r\n   10 CONTINUE\r\n      GO TO 999\r\nC\r\nC     MACH NUMBER NOT INPUT ON AEFACT CARD CLCAF\r\nC\r\n   20 CALL FREAD (INPUT,Z(ICLA),NS,1)\r\n      GO TO 90\r\n   30 CALL FREAD (INPUT,RM,1,0)\r\n      CALL FREAD (INPUT,Z(ICLA),NS,1)\r\n      DO  35 I = 1,NS\r\n      Z(ICLA+I-1) = Z(ICLA+I-1) * SQRT((1.0-(RM*RM*CLAM*CLAM)) /\r\n     1                           (1.0-(FMACH*FMACH*CLAM*CLAM)))\r\n   35 CONTINUE\r\n      GO TO 90\r\n   40 DO 50 I = 1,NS\r\n   50 Z(ICLA+I-1) = TWOPI\r\n      IF (NCIRC .EQ. 0) GO TO 80\r\n      DO 60 I = 1,NMACH\r\n      CALL FREAD (INPUT,RM,1,0)\r\n      IF (RM .EQ. FMACH) GO TO 70\r\n      CALL FREAD (INPUT,Z,-(2*NCIRC+1),0)\r\n   60 CONTINUE\r\n      GO TO 998\r\n   70 CALL FREAD (INPUT,BB(1),1,0)\r\n      DO 75 I = 2,NNCIRC\r\n      CALL FREAD (INPUT,BB(I),1,0)\r\n      CALL FREAD (INPUT,BETA(I),1,0)\r\n   75 CONTINUE\r\n   80 CALL FREAD (INPUT,Z,0,1)\r\nC\r\nC     OUTPUT SKJ\r\nC\r\n   90 ITI = 1\r\n      IT0 = 3\r\n      II  = ISK\r\n      NSK = NSK+1\r\n      NN  = NSK\r\n      RM  = 1.0\r\n      DO 100 I = 1,NNJ\r\n      CALL PACK (RM,SKJ,TSKJ)\r\n      II  = II+1\r\n      IF (I .EQ. NNJ) GO TO 100\r\n      NN  = NN+1\r\n  100 CONTINUE\r\n      ISK = II\r\n      NSK = NN\r\n      ITI = 3\r\n      IT0 = 3\r\n      CALL STPBG  (Z(IBM),Z(IGM),NS,Z(IBLOC),Z(ID),Z(ICA),Z(INSIZE))\r\n      CALL STPPHI (Z(ICA),Z(IBLOC),Z(IPM),NS)\r\n      CALL STPAIC (Z(IBLOC),Z(IDY),Z(INSIZE),Z(IGAP),Z(IBM),Z(IGM),\r\n     1             Z(IPM),NS,Z(ICLA),AJJL)\r\n      NROW = NROW + NNJ\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  998 N = LCIRC\r\n      GO TO 1000\r\n  999 N = LCLAF\r\n 1000 WRITE  (NOUT,9999) UFM,FMACH,N\r\n 9999 FORMAT (A23,' 2426, MACH NUMBER ',F10.5,' WAS NOT FOUND ON ',\r\n     1       'AEFACT CARD',I9)\r\n      CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpk.f",
    "content": "      SUBROUTINE STPK(EK,N,NSTOP,NOPEN,NSTED,TSR,PM,CR,CI,IM,J1)\r\nC     COMPUTES K MATRIX FOR STRIP NUMBER N\r\nC     EK= LOCAL REDUCED FREQUENCY\r\nC     NSTOP  =2 FOR NO CONTROL SURFACE\r\nC     NOPEN  =1 FOR OPEN GAP\r\nC     TSR = GAP/SEMICHORD RATIO  (FOR CLOSED STAGE ONLY)\r\nC     NSTED =1 FOR STEADY CASE\r\n      DIMENSION P(37)   , PM(1)\r\n      COMPLEX EKM,W,T,R,V1,V2,UNIT,CMP0\r\n      COMPLEX W2\r\n      COMMON /STRIPC/NNS,BREF,CLAM,FM,NCIRC,NNCIRC,EKR(1),\r\n     *   DUM,       BB(4),BETA(4),EKM(4,4)\r\n      DATA NHEK,NHTR,NHTI,NHSIZE /4HEK  ,4HTR  ,4HTI  ,4HSIZE/\r\n      UNIT=CMPLX(1.0,0.0)\r\n      CMP0=CMPLX(0.0,0.0)\r\n      T=2.0*UNIT\r\n      DO 10 I=1,37\r\n   10 P(I)=PM(I)\r\n      DO 15 I=1,4\r\n      DO 15 J=1,4\r\n   15 EKM(I,J)= CMP0\r\n      A1=0.318310\r\n      A2=0.101321\r\n      IF(NSTED.NE.1) GO TO 50\r\nC     STEADY CASE\r\n      E1K = 1.E20\r\n      EKM(1,2)=2.0\r\n      IF(NSTOP.EQ.2) GO TO 100\r\n      EKM(1,3)=A1*2.0*P(1)\r\n      EKM(2,3)=A1*P(5)\r\n      EKM(3,2)=A1*2.0*P(31)\r\n      EKM(3,3)=A2*(2.0*P(1)*P(31) + P(35) )\r\n      EKM(4,2)=A1*P(8)\r\n      EKM(4,3)=A2*(P(1)*P(8) + P(10) )\r\n      IF(NOPEN.EQ.1) GO TO 100\r\nC     CLOSED STAGE\r\n      EKM(1,4)=A1*2.0*P(13)\r\n      EKM(2,4)=A1*P(15)\r\n      TST=AMAX1(0.01  ,TSR)\r\n      EKM(3,4)=A2*(2.0*P(13)*P(31) +2.0*ALOG(TST) +P(21))\r\n      EKM(4,4)=A2*(P(13)*P(8) + P(18))\r\n   50 IF(NSTED.EQ.1) GO TO 100\r\nC\r\nC     UNSTEADY CASE, EM(1,1)=(K SUB A)/EK**2, ETC.\r\n      E1K  = 1./EK\r\n      T=CMP0\r\n      V1=CMP0\r\n      V2=CMP0\r\n      IF(EK.GT.1000.0) GO TO 71\r\n      IF ( NCIRC.GT.0 ) GO TO 73\r\n      CALL STPBS0(EK,1,BJ0,BY0)\r\n      CALL STPBS1(EK,1,BJ1,BY1)\r\n      DENOM=(BJ1+BY0)**2 + (BY1-BJ0)**2\r\n      CR= (BJ1*(BJ1+BY0) + BY1*(BY1-BJ0) )/DENOM\r\n      CI=-(BY1*BY0 + BJ1*BJ0)/DENOM\r\nC     (CR + I*CI  = THEODORSEN FUNCTION)\r\n      GO TO 72\r\nC  NEXT 8 STATEMENTS ARE FOR GENERATION OF WAGNER FUNCTIONS\r\n   73 CR = BB(1)\r\n      CI = 0.0\r\n      DO 40 NN = 2,NNCIRC\r\n      BEOEK = BETA(NN)/EK\r\n      FCR = BB(NN)/(1.0 + BEOEK*BEOEK)\r\n      CR = CR + FCR\r\n      CI = CI + FCR*BEOEK\r\n   40 CONTINUE\r\n72    T=2.0*CMPLX(CR,CI) - UNIT\r\n      W=CMPLX(0.0,EK)\r\n      V1=UNIT/W\r\n      V2=V1*V1\r\n   60 R=T+UNIT\r\n      W2 = -W*W\r\n      EKM(1,1)=-( R*V1 +1. )\r\n      EKM(1,1) = EKM(1,1) * W2\r\n      EKM(1,2)=-( R*(V2+V1) + V1 + 0.5 )\r\n      EKM(1,2) = EKM(1,2) * W2\r\n      EKM(2,1)=-( 0.5 )\r\n      EKM(2,1) = EKM(2,1) * W2\r\n      EKM(2,2)=-( V1 + 0.375 )\r\n      EKM(2,2) = EKM(2,2) * W2\r\n      IF(NSTOP.EQ.2) GO TO 100\r\n      EKM(1,3)=-A1*( R*(V2*P(1)+0.5*V1*P(2)) + V1*P(3) + 0.5 *P(4) )\r\n      EKM(1,3) = EKM(1,3) * W2\r\n      EKM(2,3)=-A1*( V2*P(5) + 0.5*V1*P(6) + 0.25*P(7) )\r\n      EKM(2,3) = EKM(2,3) * W2\r\n      EKM(3,1)=-A1*( R*V1*P(31) + P(3) )\r\n      EKM(3,1) = EKM(3,1) * W2\r\n      EKM(3,2)=-A1*( R*(V2+V1)*P(31) + V1*P(32) + 0.25*P(6) )\r\n      EKM(3,2) = EKM(3,2) * W2\r\n      EKM(3,3)=-A2*( R*(V2*P(1)+0.5*V1*P(2))*P(31) +\r\n     1                  V2*P(35) + V1*P(36) + 0.5*P(37) )\r\n      EKM(3,3) = EKM(3,3) * W2\r\n      EKM(4,1)=-A1*0.5*( R*V1*P(8) + P(4) )\r\n      EKM(4,1) = EKM(4,1) * W2\r\n      EKM(4,2)=-A1*0.5*( R*(V2+V1)*P(8) + V1*P(9) + 0.5*P(7) )\r\n      EKM(4,2) = EKM(4,2) * W2\r\n      EKM(4,3)=-A2*( R*(V2*P(1)+0.5*V1*P(2))*0.5*P(8) +\r\n     1                  V2*P(10) + 0.5*V1*P(11) + 0.25*P(12) )\r\n      EKM(4,3) = EKM(4,3) * W2\r\n      IF(NOPEN.NE.1) GO TO 70\r\nC     OPEN STAGE\r\n      EKM(1,4)=-A1*( R*V1*P(1) + P(3) )\r\n      EKM(1,4) = EKM(1,4) * W2\r\n      EKM(2,4)=-A1*( V1*P(5) + 0.25*P(6) )\r\n      EKM(2,4) = EKM(2,4) * W2\r\n      EKM(3,4)=-A2*( R*V1*P(1)*P(31) + V1*P(35) + P(17) )\r\n      EKM(3,4) = EKM(3,4) * W2\r\n      EKM(4,4)=-A2*( R*0.5*V1*P(1)*P(8) + V1*P(10) + 0.5*P(37) )\r\n      EKM(4,4) = EKM(4,4) * W2\r\n      GO TO 100\r\n   70 CONTINUE\r\nC     CLOSED STAGE\r\n      EKM(1,4)=-A1*( R*(V2*P(13)+ V1*P(1) ) + V1*P(14) + P(3) )\r\n      EKM(1,4) = EKM(1,4) * W2\r\n      EKM(2,4)=-A1*( V2*P(15) + 2.0*V1*P(5) + 0.25*P(6) )\r\n      EKM(2,4) = EKM(2,4) * W2\r\n      TST=AMAX1(0.01  ,TSR)\r\n      EKM(3,4)=-A2*( R*(V2*P(13)+V1*P(1))*P(31) +\r\n     1               V2*(2.0*ALOG(TST) + P(21)) + V1*P(16) + P(17) )\r\n      EKM(3,4) = EKM(3,4) * W2\r\n      EKM(4,4)=-A2*( R*(V2*P(13)+V1*P(1))*0.5*P(8) +\r\n     1               V2*P(18) + V1*P(19) + 0.5*P(37) )\r\n      EKM(4,4) = EKM(4,4) * W2\r\n  100 CONTINUE\r\n      CALL BUG(NHEK  ,100,EK,1)\r\n      CALL BUG(NHTR  ,100,CR,1)\r\n      CALL BUG(NHTI  ,100,CI,1)\r\n      CALL BUG(NHSIZE,100,N,1)\r\n      RETURN\r\n71    CR = .5\r\n      CI = 0.\r\n      W = CMPLX(0.0,EK)\r\n      GO TO 60\r\n      END\r\n"
  },
  {
    "path": "mis/stplot.f",
    "content": "      SUBROUTINE STPLOT (PLTNUM)\r\nC\r\n      INTEGER         PLTNUM,DATE(3),IDTE(8),CHAR,PLOTER,PLTYPE,PLTAPE,\r\n     1                EOF,CAMERA,BFRAMS\r\n      REAL            SAVE(2,2)\r\n      COMMON /XXPARM/ PBUFSZ,CAMERA,BFRAMS\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /CHAR94/ CHAR(60)\r\n      COMMON /PLTDAT/ MODEL,PLOTER,REG(2,2),XYMAX(13),CHRSCL,SKPA1(3),\r\n     1                CNTX,SKPA2(5),PLTYPE,PLTAPE,SKPA3,EOF\r\n      EQUIVALENCE     (KSYSTM(15),DATE(1))\r\n      DATA    IDTE  / 2*1H ,1H/, 2*1H , 1H/, 2*1H  /, LSTPLT, M / 0,0 /\r\nC\r\n      IF (PLTNUM .LT. 0) GO TO 150\r\nC\r\nC     SELECT THE PROPER CAMERA\r\nC\r\n      CALL SELCAM (CAMERA,PLTNUM,0)\r\nC\r\nC     GENERATE THE ID PLOT\r\nC\r\n      IF (PLOTER .NE. LSTPLT) CALL SKPFRM (1)\r\n      LSTPLT = PLOTER\r\n      CALL IDPLOT (ID)\r\n      IF (ID .EQ. 0) GO TO 120\r\n      CALL SELCAM (CAMERA,PLTNUM,0)\r\n      CALL SKPFRM (1)\r\nC\r\nC     INSERT THE BLANK FRAMES ON FILM ONLY\r\nC\r\n  120 IF (CAMERA.EQ.2 .OR. IABS(PLTYPE).NE.1) GO TO 130\r\n      IF (BFRAMS .EQ. 0) GO TO 130\r\n      CALL SELCAM (1,0,1)\r\n      CALL SKPFRM (MAX0(BFRAMS,1))\r\n  130 CALL SELCAM (CAMERA,0,1)\r\nC\r\nC     TYPE THE PLOT NUMBER IN UPPER LEFT AND RIGHT CORNERS OF THE PLOT\r\nC\r\n      IF (PLTNUM .EQ. 0) GO TO 135\r\n      DO 131 I  = 1,2\r\n      SAVE(I,1) = REG(I,1)\r\n      REG (I,1) = 0.\r\n      SAVE(I,2) = REG(I,2)\r\n      REG (I,2) = XYMAX(I)\r\n  131 CONTINUE\r\n      CALL TYPINT (0,0,0,0,0,-1)\r\n      CALL TYPINT (REG(1,1)+CHRSCL,REG(2,2)-CHRSCL,+1,PLTNUM,0,0)\r\nC\r\nC     PRINT THE DATE\r\nC\r\n      IF (M .NE. 0) GO TO 1312\r\n      DO 1311 N = 1,7,3\r\n      M = M + 1\r\n      I = DATE(M)/10 + 1\r\n      J = DATE(M) - (I-1)*10 + 1\r\n      IF (I .EQ. 1) I = 48\r\n      IDTE(N  ) = CHAR(I)\r\n 1311 IDTE(N+1) = CHAR(J)\r\nC\r\n 1312 CALL TIPE (8.*CNTX,REG(2,2)-CHRSCL,1,IDTE(1),8,0)\r\nC\r\n      CALL TYPINT (REG(1,2)-CHRSCL,REG(2,2)-CHRSCL,-1,PLTNUM,0,0)\r\n      DO 132 I = 1,2\r\n      REG(I,1) = SAVE(I,1)\r\n      REG(I,2) = SAVE(I,2)\r\n  132 CONTINUE\r\n  135 CALL TYPINT (0,0,0,0,0,1)\r\n      GO TO 200\r\nC\r\nC     TERMINATE A PLOT\r\nC\r\n  150 CALL SKPFRM (1)\r\n      CALL TYPINT (0,0,0,0,0,1)\r\n      IF (EOF .EQ. 0) CALL SEOF (PLTAPE)\r\n      CALL SCLOSE (PLTAPE)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stpphi.f",
    "content": "      SUBROUTINE STPPHI(CA,BLOC,PM,NS)\r\nC     PHI-FUNCTIONS FOR EACH STRIP (NACA TM 991, PG 19).\r\nC     THE FOLLOWING FUNCTIONS ARE NOT COMPUTED, THEY ARE LEFT ZEROED\r\nC         - NUMBERS  20, 22-30, 33, 34\r\n      DIMENSION CA(1),BLOC(1),PM(37,NS)\r\n      DIMENSION P(37)\r\n      PI=3.141593\r\n      DO 100 N=1,NS\r\n      DO 10 I=1,37\r\n   10 P(I)=0.0\r\n      CT=CA(N)/BLOC(N)\r\n      IF(CT.LE.1.0E-03) GO TO 50\r\n      C=CT-1.0\r\n      C2=C*C\r\n      S2=1.0-C2\r\n      S =SQRT(S2)\r\n      X=ATAN2(S,C)\r\nC     WATCH THIS TRIG\r\n      PMX=PI-X\r\n      P(1)  = PMX + S\r\n      P(2)  = PMX*(1.+2.*C) + S*(2.+C)\r\n      P(3)  = PMX + S*C\r\n      P(4)  = PMX*2.*C  + S*2.*(2.+C2)/3.\r\n      P(5)  = S*(1.-C)\r\n      P(6)  = 2.*PMX + S*2.*(2.-C)*(1.+2.*C)/3.\r\n      P(7)  = PMX*(0.5+2.*C) + S*(8.+5.*C+4.*C2-2.*C2*C)/6.\r\n      P(8)  = PMX*(-1.+2.*C) + S*(2.-C)\r\n      P(9)  = PMX*(1.+2.*C) + S*(2.+3.*C+4.*C2)/3.\r\n      P(11) = P(2)*P(3)\r\n      P(12) = PMX*PMX*(0.5+4.*C2) + PMX*S*C*(7.+2.*C2) + S2*(2.+2.5*C2)\r\n      P(13) = SIN(0.5*X)/COS(0.5*X)\r\n      P(14) = 2.*S\r\n      P(15) = P(13)-P(14)\r\n      P(16) = P(1)*P(14)\r\n      P(17) = P(3)**2 +S2*S2\r\n      P(18) = -P(13)*(PMX*(1.+2.*C)-S*C)\r\n      P(19) = P(3)*S\r\n      P(21) = -2.*(C + ALOG(S2) )\r\n      P(31) = PMX - S\r\n      P(32) = PMX + S*(1.+2.*C)\r\n      P(35) = 2.*S2\r\n      P(36) = P(32)*P(3) + 2.*S2*S2\r\n      P(37) = P(3)*( P(2) - P(3) )\r\n      P(10) = P(31)*P(5)\r\n   50 DO 60 I=1,37\r\n   60 PM(I,N)= P(I)\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stppt2.f",
    "content": "      SUBROUTINE STPPT2(INPUT,W1JK,W2JK)\r\n      INTEGER W1JK,W2JK\r\n      COMPLEX ONE,ZERO\r\n      COMMON /PACKX/ ITI,IT0,II,NN,INCR\r\n      COMMON /AMGP2/ TW1JK(7),TW2JK(7)\r\n      ONE = (1.0,0.0)\r\n      ZERO = (0.0,0.0)\r\n      CALL FREAD(INPUT,NJ,1,1)\r\n      DO 10 I=1,NJ\r\n      NN = II\r\n      CALL PACK(ONE,W1JK,TW1JK)\r\n      CALL PACK(ZERO,W2JK,TW2JK)\r\n      II = II+1\r\n   10 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stqme2.f",
    "content": "      SUBROUTINE STQME2( NTYPE )\r\nC\r\nC     PHASE TWO STRESS DATA RECOVERY TRIANGULAR MEMBRANE\r\nC\r\nC     NTYPE = 1 TRI-MEMBRANE\r\nC     NTYPE = 2 QUAD-MEMBRANE\r\nC\r\nC     PH1OUT CONTAINS THE FOLLOWING\r\nC     *** NTYPE = 1 ***\r\nC     ELEMENT ID\r\nC     3 SILS\r\nC     1 DUMMY\r\nC     T SUB 0\r\nC     S SUB T 3X1\r\nC     3 S ARRAYS EACH 3X3\r\nC\r\nC     *** NTYPE = 2 ***\r\nC     ELEMENT ID\r\nC     4 SILS\r\nC     T SUB 0\r\nC     S SUB T 3X1\r\nC     4 S ARRAYS EACH 3X3\r\nC\r\n      REAL    FRLAST(2)\r\n      INTEGER EJECT    ,ISHD(7)  ,ISTYP(2) ,TYP(3)\r\n      DIMENSION NSIL(4), SI(36), PH1OUT(45), ST(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM\r\n      COMMON /SDR2X7/ EST(100),STRES(100),FORVEC(25)\r\n      COMMON /SDR2X8/ STRESS(3),VEC(3),TEM,TEMP,NPOINT,DELTA,NSIZE,\r\n     1             CVEC(3),CSTR(4)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\nC\r\n      EQUIVALENCE\r\n     1  (PH1OUT(1),EST(1))\r\n     2 ,(NSIL(1),PH1OUT(2))\r\n     3 ,(TSUB0,PH1OUT(6))\r\n     4 ,(ST(1),PH1OUT(7))\r\n     5 ,(SI(1),PH1OUT(10))\r\n     6 ,(FTEMP,LDTEMP)\r\n     7 , (ISHD(1),LSUB) , (ISHD(2),LLD) , (ISHD(6),FRLAST(1) )\r\nC\r\n      DATA LSUB,LLD,FRLAST / 2*-1 , -1.0E30, -1.0E30 /\r\n      DATA TYP / 2HTR, 2HQD, 3HMEM /\r\nC     ******************************************************************\r\nC     ZERO OUT THE STRESS VECTOR\r\n      DO 5 I = 1,3\r\n      STRESS(I) = 0.0E0\r\n    5 CSTR(I+1) = 0.0E0\r\nC\r\nC                          I=NSIZE\r\nC        STRESS VECTOR =(SUMMATION (S )(U )) - (S )(LDTEMP - T SUB 0)\r\nC                          I=1       I   I       T\r\n      NSIZE = NTYPE + 2\r\n      DO 20 I = 1,NSIZE\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      CALL SMMATS (SI(9*I-8),3,3,0, Z(NPOINT),3,1,0, VEC,CVEC)\r\n      DO 30 J = 1,3\r\n      CSTR(J+1) = CSTR(J+1) + CVEC(J)\r\n   30 STRESS(J) = STRESS(J) + VEC(J)\r\nC\r\n   20 CONTINUE\r\nC\r\n      STRES(1) = PH1OUT(1)\r\n      STRES(2) = STRESS(1)\r\n      STRES(3) = STRESS(2)\r\n      STRES(4) = STRESS(3)\r\nC\r\nC     ADD IN TEMPERATURE EFFECTS\r\nC\r\n      IF( LDTEMP .EQ. (-1) ) GO TO 200\r\n      TEM = FTEMP - T SUB 0\r\n      DO 90 I = 2,4\r\n   90 STRES(I) = STRES(I) - ST(I-1) * TEM\r\nC     STRESS VECTOR COMPLETE AND CONTAINS SIGMA X ,  SIGMA Y ,  SIGMA XY\r\nC\r\nC     ******************************************************************\r\nC\r\nC     PRINCIPAL STRESSES AND ANGLE OF ACTION PHI\r\n  200 TEMP = STRES(2) - STRES(3)\r\n      STRES(8) = SQRT( (TEMP/2.0E0)**2 + STRES(4)**2 )\r\n      DELTA = (STRES(2) + STRES(3))/2.0E0\r\n      STRES(6) = DELTA + STRES(8)\r\n      STRES(7) = DELTA - STRES(8)\r\n      DELTA = 2.0E0 * STRES(4)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 101\r\n      STRES(5) = ATAN2( DELTA,TEMP ) * 28.6478898 E00\r\n      RETURN\r\n  101 STRES(5) = 0.0E0\r\n      IF (NCHK.LE.0) GO TO 250\r\nC\r\nC  . CHECK PRECISION...\r\nC\r\n      CSTR(1) = PH1OUT(1)\r\n      K = 0\r\nC\r\n      CALL SDRCHK (STRES(2),CSTR(2),3,K)\r\n      IF (K.EQ.0) GO TO 250\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      ISTYP(1) = TYP(NTYPE)\r\n      ISTYP(2) = TYP(3)\r\n      J = 0\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 220\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 2\r\n      CALL PAGE1\r\n  205 CALL SD2RHD (ISHD,J)\r\n      LINE = LINE + 1\r\n      WRITE(NOUT,210)\r\n  210 FORMAT (7X,4HTYPE,5X,3HEID,5X,2HSX,5X,2HSY,4X,3HSXY)\r\n      GO TO 230\r\n  220 IF (EJECT(2).NE.0) GO TO 205\r\n  230 WRITE(NOUT,240) ISTYP,CSTR\r\n  240 FORMAT (1H0,6X,A2,A3,I7,3F7.1)\r\nC\r\n  250 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strap1.f",
    "content": "      SUBROUTINE STRAP1\r\nC\r\nC     THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE\r\nC     TRAPEZOIDAL CROSS SECTION RING\r\nC\r\nC     ECPT FOR THE TRAPEZOIDAL RING\r\nC                                                          TYPE\r\nC     ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC     ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC     ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC     ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC     ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D             I\r\nC     ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC     ECPT( 7) MATERIAL IDENTIFICATION                       I\r\nC     ECPT( 8) COOR. SYS. ID. FOR GRID POINT A               I\r\nC     ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(12) COOR. SYS. ID. FOR GRID POINT B               I\r\nC     ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(16) COOR. SYS. ID. FOR GRID POINT C               I\r\nC     ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(20) COOR. SYS. ID. FOR GRID POINT D               I\r\nC     ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\n      DIMENSION       IECPT(24),ICS(4),GAMBQ(64),DZERO(32),SP(24),\r\n     1                ALFB(4),TEO(16),EE(16),DELINT(12),GAMQS(96),JRZ(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X5/ ECPT(24),DUM5(76),IDEL,IGP(4),TZ,SEL(240),TS(4),\r\n     1                AK(144)\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO\r\n      COMMON /SDR2X6/ D(144),GAMBL(144),R(5),Z(5)\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      EQUIVALENCE     (CONSTS(2),TWOPI),(CONSTS(4),DEGRA),\r\n     1                (IECPT(1),ECPT(1)),(R(1),R1),(R(2),R2),(R(3),R3),\r\n     2                (R(4),R4),(Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4),\r\n     3                (GAMBL(1),SP(1)),(GAMBL(1),TEO(1)),\r\n     4                (GAMBL(17),DELINT(1))\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT(1)\r\n      IGP(1) = IECPT(2)\r\n      IGP(2) = IECPT(3)\r\n      IGP(3) = IECPT(4)\r\n      IGP(4) = IECPT(5)\r\n      MATID  = IECPT(7)\r\n      ICS(1) = IECPT(8)\r\n      ICS(2) = IECPT(12)\r\n      ICS(3) = IECPT(16)\r\n      ICS(4) = IECPT(20)\r\n      R(1)   = ECPT(9)\r\n      D(1)   = ECPT(10)\r\n      Z(1)   = ECPT(11)\r\n      R(2)   = ECPT(13)\r\n      D(2)   = ECPT(14)\r\n      Z(2)   = ECPT(15)\r\n      R(3)   = ECPT(17)\r\n      D(3)   = ECPT(18)\r\n      Z(3)   = ECPT(19)\r\n      R(4)   = ECPT(21)\r\n      D(4)   = ECPT(22)\r\n      Z(4)   = ECPT(23)\r\n      TEMPE  = ECPT(24)\r\n      DGAMA  = ECPT(6)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LT. 0.0) CALL MESAGE (-30,37,IDEL)\r\n      IF (D(I) .NE. 0.0) CALL MESAGE (-30,37,IDEL)\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3,Z4)\r\n      Z1   = Z1 - ZMIN\r\n      Z2   = Z2 - ZMIN\r\n      Z3   = Z3 - ZMIN\r\n      Z4   = Z4 - ZMIN\r\n      RMIN = AMIN1(R1,R2,R3,R4)\r\n      RMAX = AMAX1(R1,R2,R3,R4)\r\n      IF (RMIN .EQ. 0.) GO TO 206\r\n      IF (RMAX/RMIN .LE. 10.) GO TO 206\r\nC\r\nC     RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1\r\nC\r\n      WRITE  (IOUT,205) UFM,IDEL\r\n  205 FORMAT (A23,', TRAPRG ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ',\r\n     1       'RADIUS RATIO EXCEEDING 10.', /5X,\r\n     2       'ACCURACY OF NUMERICAL INTEGRATION WOULD BE IN DOUBT.')\r\n      CALL MESAGE (-30,37,IDEL)\r\n  206 CONTINUE\r\n      ICORE = 0\r\n      J = 1\r\n      DO 210 I = 1,4\r\n      IF (R(I) .NE. 0.) GO TO 210\r\n      ICORE  = ICORE + 1\r\n      JRZ(J) = I\r\n      J = 2\r\n  210 CONTINUE\r\n      IF (ICORE.NE.0 .AND. ICORE.NE.2) CALL MESAGE (-30,37,IDEL)\r\nC\r\nC     FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,64\r\n      GAMBQ(I) = 0.0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ( 4) = R1*Z1\r\n      GAMBQ(13) = 1.0\r\n      GAMBQ(14) = R1\r\n      GAMBQ(15) = Z1\r\n      GAMBQ(16) = GAMBQ(4)\r\n      GAMBQ(17) = 1.0\r\n      GAMBQ(18) = R2\r\n      GAMBQ(19) = Z2\r\n      GAMBQ(20) = R2*Z2\r\n      GAMBQ(29) = 1.0\r\n      GAMBQ(30) = R2\r\n      GAMBQ(31) = Z2\r\n      GAMBQ(32) = GAMBQ(20)\r\n      GAMBQ(33) = 1.0\r\n      GAMBQ(34) = R3\r\n      GAMBQ(35) = Z3\r\n      GAMBQ(36) = R3*Z3\r\n      GAMBQ(45) = 1.0\r\n      GAMBQ(46) = R3\r\n      GAMBQ(47) = Z3\r\n      GAMBQ(48) = GAMBQ(36)\r\n      GAMBQ(49) = 1.0\r\n      GAMBQ(50) = R4\r\n      GAMBQ(51) = Z4\r\n      GAMBQ(52) = R4*Z4\r\n      GAMBQ(61) = 1.0\r\n      GAMBQ(62) = R4\r\n      GAMBQ(63) = Z4\r\n      GAMBQ(64) = GAMBQ(52)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP)\r\nC\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,26,IDEL)\r\nC\r\nC     MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT\r\nC\r\n      IF (ICORE .EQ. 0) GO TO 305\r\n      JJ1 = 2*JRZ(1) - 1\r\n      JJ2 = 2*JRZ(2) - 1\r\nC\r\n      DO 303 I = 1,8\r\n      J = 8*(I-1)\r\n      GAMBQ(I    ) = 0.0\r\n      GAMBQ(I+ 16) = 0.0\r\n      GAMBQ(J+JJ1) = 0.\r\n      GAMBQ(J+JJ2) = 0.\r\n  303 CONTINUE\r\n  305 CONTINUE\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC     INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC       DELINT( 1) - (-1,0)\r\nC       DELINT( 2) - (-1,1)\r\nC       DELINT( 3) - (-1,2)\r\nC       DELINT( 4) - ( 0,0)\r\nC       DELINT( 5) - ( 0,1)\r\nC       DELINT( 6) - ( 0,2)\r\nC       DELINT( 7) - ( 1,0)\r\nC       DELINT( 8) - ( 1,1)\r\nC       DELINT( 9) - ( 1,2)\r\nC       DELINT(10) - ( 2,0)\r\nC       DELINT(11) - ( 2,1)\r\nC       DELINT(12) - ( 3,0)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,4\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .NE. 12) GO TO 340\r\n      IP = 3\r\n      IQ = 0\r\n  340 CONTINUE\r\n      IF (ICORE .EQ. 0) GO TO 345\r\n      IF (I1    .GT. 3) GO TO 345\r\n      DELINT(I1) = 0.0\r\n      GO TO 350\r\n  345 CONTINUE\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC     SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      TZ  = TZERO\r\n      VTR = VRT*ET/ER\r\n      VZT = VTZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1          - VRZ*VTR*VZT\r\nC\r\nC     GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE( 1) = ER*(1.0 - VTZ*VZT)/DEL\r\n      EE( 2) = ER*(VTR + VZR*VTZ)/DEL\r\n      EE( 3) = ER*(VZR + VTR*VZT)/DEL\r\n      EE( 4) = 0.0\r\n      EE( 5) = EE(2)\r\n      EE( 6) = ET*(1.0 - VRZ*VZR)/DEL\r\n      EE( 7) = ET*(VZT + VRT*VZR)/DEL\r\n      EE( 8) = 0.0\r\n      EE( 9) = EE(3)\r\n      EE(10) = EE(7)\r\n      EE(11) = EZ*(1.0 - VRT*VTR)/DEL\r\n      EE(12) = 0.0\r\n      EE(13) = 0.0\r\n      EE(14) = 0.0\r\n      EE(15) = 0.0\r\n      EE(16) = GRZ\r\nC\r\nC     FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC     GEOMETRIC AXIS\r\nC\r\n      DGAMR   = DGAMA*DEGRA\r\n      COSG    = COS(DGAMR)\r\n      SING    = SIN(DGAMR)\r\n      TEO( 1) = COSG**2\r\n      TEO( 2) = 0.0\r\n      TEO( 3) = SING**2\r\n      TEO( 4) = SING*COSG\r\n      TEO( 5) = 0.0\r\n      TEO( 6) = 1.0\r\n      TEO( 7) = 0.0\r\n      TEO( 8) = 0.0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) =-TEO(4)\r\n      TEO(13) =-2.0*TEO(4)\r\n      TEO(14) = 0.0\r\n      TEO(15) =-TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC     TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC     TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATS (TEO,4,4,1, EE ,4,4,0, D )\r\n      CALL GMMATS (D  ,4,4,0, TEO,4,4,0, EE)\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\n      EE48   = EE(4) + EE(8)\r\n      D ( 1) = EE(1) + 2.0 * EE(2) + EE(6)\r\n      AK( 1) = EE(6) * DELINT(1)\r\n      AK( 2) = (EE(2) + EE(6)) * DELINT(4)\r\n      AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4)\r\n      AK( 4) = (EE(2) + EE(6)) * DELINT(5) + EE(8) * DELINT(7)\r\n      AK( 5) = 0.0\r\n      AK( 6) = EE(8) * DELINT(4)\r\n      AK( 7) = EE(7) * DELINT(4)\r\n      AK( 8) = EE(7) * DELINT(7) + EE(8) * DELINT(5)\r\n      AK( 9) = AK(2)\r\n      AK(10) = D(1) * DELINT(7)\r\n      AK(11) = (EE(2) + EE(6)) * DELINT(5) + EE48 * DELINT(7)\r\n      AK(12) = D(1) * DELINT(8) + EE48 * DELINT(10)\r\n      AK(13) = 0.0\r\n      AK(14) = EE48 * DELINT(7)\r\n      AK(15) = (EE(3) + EE(7)) * DELINT(7)\r\n      AK(16) = (EE(3) + EE(7)) * DELINT(10) + EE48 * DELINT(8)\r\n      AK(17) = AK( 3)\r\n      AK(18) = AK(11)\r\n      AK(19) = EE(6) * DELINT(3) + EE(16)* DELINT(7)\r\n     1         + (EE(8) + EE(14)) * DELINT(5)\r\n      AK(20) = (EE(2) + EE(6)) * DELINT(6) + EE(16) * DELINT(10)\r\n     1         + (EE(8) + EE(13) + EE(14)) * DELINT(8)\r\n      AK(21) = 0.0\r\n      AK(22) = EE(16) * DELINT(7) + EE(8) * DELINT(5)\r\n      AK(23) = EE(7) * DELINT(5) + EE(15) * DELINT(7)\r\n      AK(24) = (EE(7) + EE(16)) * DELINT(8)\r\n     1         + EE(8) *DELINT(6) + EE(15) * DELINT(10)\r\n      AK(25) = AK(4)\r\n      AK(26) = AK(12)\r\n      AK(27) = AK(20)\r\n      AK(28) = D(1) * DELINT(9) + EE(16) * DELINT(12)\r\n     1         + (EE48 + EE(13) + EE(14)) * DELINT(11)\r\n      AK(29) = 0.0\r\n      AK(30) = EE(16) * DELINT(10) + EE48 * DELINT(8)\r\n      AK(31) = (EE(3) + EE(7)) * DELINT(8) + EE(15) * DELINT(10)\r\n      AK(32) = (EE(3) + EE(7) + EE(16)) * DELINT(11)\r\n     1         + EE(15) * DELINT(12) + EE48 * DELINT(9)\r\n      AK(33) = 0.0\r\n      AK(34) = 0.0\r\n      AK(35) = 0.0\r\n      AK(36) = 0.0\r\n      AK(37) = 0.0\r\n      AK(38) = 0.0\r\n      AK(39) = 0.0\r\n      AK(40) = 0.0\r\n      AK(41) = AK( 6)\r\n      AK(42) = AK(14)\r\n      AK(43) = AK(22)\r\n      AK(44) = AK(30)\r\n      AK(45) = 0.0\r\n      AK(46) = EE(16)*DELINT(7)\r\n      AK(47) = EE(15)*DELINT(7)\r\n      AK(48) = EE(16)*DELINT(8) + EE(15) * DELINT(10)\r\n      AK(49) = AK( 7)\r\n      AK(50) = AK(15)\r\n      AK(51) = AK(23)\r\n      AK(52) = AK(31)\r\n      AK(53) = 0.0\r\n      AK(54) = AK(47)\r\n      AK(55) = EE(11)*DELINT( 7)\r\n      AK(56) = EE(11)*DELINT(10) + EE(12) * DELINT(8)\r\n      AK(57) = AK( 8)\r\n      AK(58) = AK(16)\r\n      AK(59) = AK(24)\r\n      AK(60) = AK(32)\r\n      AK(61) = 0.0\r\n      AK(62) = AK(48)\r\n      AK(63) = AK(56)\r\n      AK(64) = EE(11) * DELINT(12) + EE(16) * DELINT(9)\r\n     1       + (EE(12) + EE(13)) * DELINT(11)\r\nC\r\n      DO 600 I = 1,64\r\n      AK(I) = TWOPI*AK(I)\r\n  600 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GAMBQ,8,8,1, AK   ,8,8,0, D )\r\n      CALL GMMATS (D    ,8,8,0, GAMBQ,8,8,0, AK)\r\nC\r\nC     GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF\r\nC     FREEDOM PER POINT\r\nC\r\n      DO 700 I = 1,96\r\n      GAMQS( I) = 0.0\r\n  700 CONTINUE\r\n      GAMQS( 1) = 1.0\r\n      GAMQS(15) = 1.0\r\n      GAMQS(28) = 1.0\r\n      GAMQS(42) = 1.0\r\n      GAMQS(55) = 1.0\r\n      GAMQS(69) = 1.0\r\n      GAMQS(82) = 1.0\r\n      GAMQS(96) = 1.0\r\nC\r\nC     TRANSFORM THE STIFFNESS MATRIX FROM TWO TO THREE DEGREES OF\r\nC     FREEDOM PER POINT\r\nC\r\n      CALL GMMATS (GAMQS(1),8,12,1, AK(1)   ,8, 8,0, D(1) )\r\n      CALL GMMATS (D(1)    ,12,8,0, GAMQS(1),8,12,0, AK(1))\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR  GRID POINTS\r\nC\r\n      DO 750 I = 1,144\r\n      GAMBL(I) = 0.0\r\n  750 CONTINUE\r\n      DO 800 I = 1,4\r\n      CALL TRANSS (ICS(I),D(1))\r\n      K = 39*(I-1) + 1\r\n      DO 800 J = 1,3\r\n      KK = K + 12*(J-1)\r\n      JJ = 3 *(J-1) + 1\r\n      GAMBL(KK  ) = D(JJ  )\r\n      GAMBL(KK+1) = D(JJ+1)\r\n      GAMBL(KK+2) = D(JJ+2)\r\n  800 CONTINUE\r\nC\r\nC     TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1),12,12,1, AK(1)   ,12,12,0, D(1) )\r\n      CALL GMMATS (D(1)    ,12,12,0, GAMBL(1),12,12,0, AK(1))\r\nC\r\nC     COMPUTE THE FIFTH GRID POINT TO BE THE AVERAGE OF THE FOUR\r\nC     CORNER POINTS\r\nC\r\n      R(5) = (R1 + R2 + R3 + R4)/4.0\r\n      Z(5) = (Z1 + Z2 + Z3 + Z4)/4.0\r\nC\r\nC     INITIALIZE THE CONSTANT PORTION OF THE D SUB 0 MATRIX\r\nC\r\n      DO 850 I = 1,32\r\n      DZERO(I) = 0.0\r\n  850 CONTINUE\r\n      DZERO( 2) = 1.0\r\n      DZERO(10) = 1.0\r\n      DZERO(23) = 1.0\r\n      DZERO(27) = 1.0\r\n      DZERO(30) = 1.0\r\nC\r\nC     START THE LOOP TO COMPUTE THE STRESS MATRIX FOR EACH GRID POINT\r\nC\r\n      DO 950 J = 1,5\r\nC\r\nC     COMPUTE THE VARIABLE PORTION OF THE D SUB 0 MATRIX\r\nC\r\n      DZERO( 4) = Z(J)\r\n      IF (ICORE .NE. 0) GO TO 875\r\n      DZERO( 9) = 1.00/R(J)\r\n      DZERO(11) = Z(J)/R(J)\r\n  875 CONTINUE\r\n      DZERO(12) = Z(J)\r\n      DZERO(24) = R(J)\r\n      DZERO(28) = R(J)\r\n      DZERO(32) = Z(J)\r\nC\r\nC     COMPUTE THE STRESS MATRIX IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (EE(1),4,4,0, DZERO(1),4,8,0, D(1))\r\nC\r\nC     TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (D(1),4,8,0, GAMBQ(1),8,8,0, D(37))\r\nC\r\nC     TRANSFORM THE STRESS MATRIX FROM TWO TO THREE DEGREES OF FREEDOM\r\nC     PER POINT\r\nC\r\n      CALL GMMATS (D(37),4,8,0, GAMQS(1),8,12,0, D(73))\r\nC\r\nC     TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      K = 48*(J-1) + 1\r\n      CALL GMMATS (D(73),4,12,0, GAMBL(1),12,12,0, SEL(K))\r\nC\r\n  950 CONTINUE\r\nC\r\nC     COMPUTE THE THERMAL STRAIN VECTOR\r\nC\r\n      DO 900 I = 1,3\r\n      ALFB(I) = ALF(I)\r\n  900 CONTINUE\r\n      ALFB(4) = 0.0\r\nC\r\nC     COMPUTE THE THERMAL STRESS VECTOR\r\nC\r\n      CALL GMMATS (EE(1),4,4,0, ALFB(1),4,1,0, TS(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strap2.f",
    "content": "      SUBROUTINE STRAP2 (TI)\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE TRAPEZOIDAL\r\nC CROSS SECTION RING\r\nC*****\r\nC\r\nC\r\nC\r\n      DIMENSION          TI(4)\r\n      DIMENSION          DUM3(225)\r\n      DIMENSION          STRES(100),    FORCE(25)\r\n      DIMENSION          ISTRES(100),   IFORCE(25)\r\nC\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC\r\nC SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUM1(33)\r\n     2,                  ICSTM,    NCSTM,    IVEC,     IVECN\r\n     3,                  TEMPLD,   ELDEFM\r\nC\r\nC\r\nC SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   IDEL,     IGP(4),   TZ\r\n     2,                  SEL(240), TS(4),    AK(144)\r\nC\r\nC\r\nC SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   DISP(12), EFORC(12),ESTRES(20)\r\nC\r\nC\r\n      EQUIVALENCE (DUM3(1) , IDEL)\r\n      EQUIVALENCE  (DUM3(101) , STRES(1) , ISTRES(1))\r\n      EQUIVALENCE  (DUM3(201) , FORCE(1) , IFORCE(1))\r\n      EQUIVALENCE (LDTEMP, TEMPLD)\r\nC\r\nC\r\nC INITIALIZE COUNTERS\r\nC\r\n      NDOF  = 3\r\n      NUMPT = 4\r\n      N = NDOF * NUMPT\r\n      NSP   = 5\r\n      NCOMP =  4\r\n      NS = NSP * NCOMP\r\nC\r\nC\r\nC LOCATE THE DISPLACEMENTS\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NUMPT\r\n      ILOC = IVEC + IGP(I) - 2\r\n      DO 100 J = 1,NDOF\r\n      ILOC = ILOC + 1\r\n      K = K + 1\r\n      DISP(K) = ZZ(ILOC)\r\n  100 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE GRID POINT FORCES\r\nC\r\n      CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) )\r\nC\r\nC\r\nC COMPUTE THE STRESSES\r\nC\r\n      CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) )\r\nC\r\nC\r\nC COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS\r\nC AND SUBTRACT FROM APPARENT STRESS\r\nC\r\n      IF (LDTEMP .EQ. (-1)) GO TO 300\r\nC\r\n      K = 0\r\n      DO 200 I = 1,NSP\r\n      DT = TI(I) - TZ\r\n      IF (I.EQ.5) DT = (TI(1)+TI(2)+TI(3)+TI(4)) / 4.0E0  -  TZ\r\n      DO 200 J = 1,NCOMP\r\n      K = K + 1\r\n      ESTRES(K) = ESTRES(K) - DT * TS(J)\r\n  200 CONTINUE\r\nC\r\n  300 CONTINUE\r\nC\r\nC\r\nC STORE RESULTS FOR OUTPUT PRINT\r\nC\r\n      K = 0\r\n      J = 1\r\n      ISTRES(1)   = IDEL\r\n      DO 400 KK = 1,NSP\r\n      DO 400 I = 1,NCOMP\r\n      J = J + 1\r\n      K = K + 1\r\n      STRES(J) = ESTRES(K)\r\n  400 CONTINUE\r\nC\r\nC\r\n      K = 0\r\n      J = 1\r\n      IFORCE(1)   = IDEL\r\n      DO 500 I = 1,NUMPT\r\n      DO 500 KK= 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\n  500 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strax1.f",
    "content": "      SUBROUTINE STRAX1\r\nC\r\nC     THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE AXI-\r\nC     SYMMETRIC RING WITH TRIANGULAR CROSS SECTION RING\r\nC\r\nC     ECPT ( 1) = ELEMENT ID\r\nC     ECPT ( 2) = SIL A                                   I\r\nC     ECPT ( 3) = SIL B                                   I\r\nC     ECPT ( 4) = SIL C                                   I\r\nC     ECPT ( 5) = MATERIAL ORIENTATION ANGLE(DEGREES)     R\r\nC     ECPT ( 7) = MATERIAL ID                             I\r\nC     ECPT ( 8) TO ECPT(21) = STRESS PHASE ANG.           R\r\nC     ECPT (22) = CORD. SYS. GRID POINT A (NOT USED)      I\r\nC     ECPT (23) = R-CORD OF GRID A                        R\r\nC     ECPT (24) = Z-CORD OF GRID A                        R\r\nC     ECPT (25) = 0.0                                     R\r\nC     ECPT (26) = CORD. SYS. GRID POINT B (NOT USED)      I\r\nC     ECPT (27) = R-CORD OF GRID B                        R\r\nC     ECPT (28) = Z-CORD OF GRID B                        R\r\nC     ECPT (29) = 0.0                                     R\r\nC     ECPT (30) = CORD. SYS. GRID POINT C (NOT USED)      I\r\nC     ECPT (31) = R-CORD OF GRID C                        R\r\nC     ECPT (32) = Z-CORD OF GRID C                        R\r\nC     ECPT (33) = 0.0                                     R\r\nC     ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP       R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         PZMAT,LSYS78\r\n      DIMENSION       IECPT(35),DELINT(12),TEO(45),ACURL(117),R(3),\r\n     1                Z(3),ICS(3),D1(27),D2(9),ACURP1(27),ACURP2(9),\r\n     2                GABABP(3,3),EE(63),WJP(3,3)\r\nC     ECPT COMMON BLOCK\r\n      COMMON /SDR2X5/ ECPT(34),DUM5(66),IDEL,IGP(3),TZ,SEL(54),TS(6),\r\n     1                AK(81),PHI(14),SELP1(18),AKPH2(9),AKUPH(27),\r\n     2                SELP2(27),SELP3(9)\r\n      COMMON /SDR2X6/ GABABQ(9,9), D(81), WJ(6,9)\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /MATPZ / PZOUT(51)\r\nC     COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25,\r\nC                     CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56,\r\nC                     CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25,\r\nC                     E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,EPS2\r\nC                     EPS23,EPS33,RHO,A1,A2,A12,TREF,GE\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78\r\n      EQUIVALENCE     (IECPT(1),ECPT(1)), (Z(1),Z1), (Z(2),Z2),\r\n     1                (R(1),R1), (R(2),R2), (R(3),R3), (Z(3),Z3),\r\n     2                (CONSTS(1),PI), (CONSTS(4),DEGRAD),\r\n     3                (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109))\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\nC\r\nC     START EXECUTION\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT( 1)\r\n      IGP(1) = IECPT( 2)\r\n      IGP(2) = IECPT( 3)\r\n      IGP(3) = IECPT( 4)\r\n      MATID  = IECPT( 7)\r\n      ICS(1) = IECPT(22)\r\n      R(1)   = ECPT( 23)\r\n      Z(1)   = ECPT( 24)\r\n      D(1)   = ECPT( 25)\r\n      ICS(2) = IECPT(26)\r\n      R(2)   = ECPT( 27)\r\n      Z(2)   = ECPT( 28)\r\n      D(2)   = ECPT( 29)\r\n      ICS(3) = IECPT(30)\r\n      R(3)   = ECPT( 31)\r\n      Z(3)   = ECPT( 32)\r\n      D(3)   = ECPT( 33)\r\n      DGAMA  = ECPT(  5)\r\n      TEMPE  = ECPT( 34)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,3\r\n      IF (R(I) .LE. 0.0) GO TO 910\r\n      IF (D(I) .NE. 0.0) GO TO 910\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC     FORM THE TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,81\r\n  300 GABABQ(I,1) = 0.0\r\n      AA = R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1\r\n      AA = 1.0/AA\r\n      C1 = AA*(R2*Z3 - Z2*R3)\r\n      C2 =-AA*(Z3 - Z2)\r\n      C3 = AA*(R3 - R2)\r\n      GABABQ(1,1) = C1\r\n      GABABQ(1,2) = C2\r\n      GABABQ(1,3) = C3\r\n      GABABQ(2,4) = C1\r\n      GABABQ(2,5) = C2\r\n      GABABQ(2,6) = C3\r\n      GABABQ(3,7) = C1\r\n      GABABQ(3,8) = C2\r\n      GABABQ(3,9) = C3\r\n      IF (LSYS78) GO TO 302\r\n      GABABP(1,1) = C1\r\n      GABABP(1,2) = C2\r\n      GABABP(1,3) = C3\r\n  302 CONTINUE\r\n      C1 =-AA*(R1*Z3 - Z1*R3)\r\n      C2 = AA*(Z3 - Z1)\r\n      C3 =-AA*(R3 - R1)\r\n      GABABQ(4,1) = C1\r\n      GABABQ(4,2) = C2\r\n      GABABQ(4,3) = C3\r\n      GABABQ(5,4) = C1\r\n      GABABQ(5,5) = C2\r\n      GABABQ(5,6) = C3\r\n      GABABQ(6,7) = C1\r\n      GABABQ(6,8) = C2\r\n      GABABQ(6,9) = C3\r\n      IF (LSYS78) GO TO 304\r\n      GABABP(2,1) = C1\r\n      GABABP(2,2) = C2\r\n      GABABP(2,3) = C3\r\n  304 CONTINUE\r\n      C1 = AA*(R1*Z2 - Z1*R2)\r\n      C2 =-AA*(Z2 - Z1)\r\n      C3 = AA*(R2 - R1)\r\n      GABABQ(7,1) = C1\r\n      GABABQ(7,2) = C2\r\n      GABABQ(7,3) = C3\r\n      GABABQ(8,4) = C1\r\n      GABABQ(8,5) = C2\r\n      GABABQ(8,6) = C3\r\n      GABABQ(9,7) = C1\r\n      GABABQ(9,8) = C2\r\n      GABABQ(9,9) = C3\r\n      IF (LSYS78) GO TO 306\r\n      GABABP(3,1) = C1\r\n      GABABP(3,2) = C2\r\n      GABABP(3,3) = C3\r\n  306 CONTINUE\r\nC\r\nC     COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED\r\nC     BY THE FOLLOWING TABLE\r\nC\r\nC       DELINT(01) = (-1,0)\r\nC       DELINT(02) = (-1,1)\r\nC       DELINT(03) = (-1,2)\r\nC       DELINT(04) = (0, 0)\r\nC       DELINT(05) = (0, 1)\r\nC       DELINT(06) = (1, 0)\r\nC\r\n      RA  = (R1 + R2 + R3)/3.0\r\n      ZA  = (Z1 + Z2 + Z3)/3.0\r\n      RH  = AMIN1(R1,R2,R3)/10.0\r\n      DR  = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1))\r\n      AREA= (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0\r\n      I1  = 0\r\n      DO 400 I = 1,2\r\n      IP  = I - 2\r\n      DO 350 J = 1,3\r\n      IQ  = J  - 1\r\n      I1  = I1 + 1\r\n      IF (I1 .NE. 6) GO TO 310\r\n      IP  = 1\r\n      IQ  = 0\r\n  310 IF (DR .GT. RH) GO TO 320\r\n      DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA\r\n      GO TO 330\r\n  320 DELINT(I1) = AIS(3,IP,IQ,R,Z)\r\n  330 DELINT(I1) = ABS(DELINT(I1))\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n      DGAMR  = DGAMA*DEGRAD\r\n      COSG   = COS(DGAMR)\r\n      SING   = SIN(DGAMR)\r\n      SINTH  = SING\r\n      COSTH  = COSG\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\n      PZMAT  = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 410\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 420\r\n  410 RHO    = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  420 CONTINUE\r\n      IF (SETMAT .EQ. 2.0) GO TO 920\r\n      TZ = TZERO\r\n      IF (KSYS78 .GT. 0) GO TO 500\r\nC\r\nC     SET MATERIAL PROPERTIES IN LOCAL VARIABLES (AGAIN)\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO*ET/ER\r\n      VZO = VOZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.0/(1.0-VRO*VOR-VOZ*VZO-VZR*VRZ-VRO*VOZ*VZR-VRZ*VOR*VZO)\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  500 CONTINUE\r\n      DO 510 I = 1,45\r\n  510 TEO (I) = 0.0\r\n      IF (KSYS78 .GT. 0) GO TO 512\r\n      TEO ( 1) = ER*(1.0 - VOZ*VZO)*DEL\r\n      TEO ( 2) = ER*(VZR + VZO*VOR)*DEL\r\n      TEO ( 3) = EZ*(1.0 - VRO*VOR)*DEL\r\n      TEO ( 4) = ER*(VOR + VZR*VOZ)*DEL\r\n      TEO ( 5) = ET*(VZO + VRO*VZR)*DEL\r\n      TEO ( 6) = ET*(1.0 - VRZ*VZR)*DEL\r\n      TEO (10) = GRZ\r\n      TEO (15) = GOR\r\n      TEO (21) = GZO\r\n      GO TO 514\r\n  512 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\nC\r\n      IF (KSYS78 .EQ. 2) GO TO 514\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  514 CONTINUE\r\nC\r\n      DO 520 I = 5,63\r\n  520 EE(I) = 0.0\r\n      C2  = COSG*COSG\r\n      C4  = C2  *C2\r\n      S2  = SING*SING\r\n      S4  = S2  *S2\r\n      C2S2= C2  *S2\r\n      C3  = COSG*C2\r\n      S3  = SING*S2\r\n      CS2 = COSG*S2\r\n      SC2 = SING*C2\r\n      CS  = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.0*C2S2*(TEO(2) + 2.0*TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1) + TEO(3)-4.0*TEO(10))\r\n      EE( 3) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 4) = COSG*SING*S2*(TEO(2)-TEO(3) + 2.0*TEO(10))\r\n     4       + SING*COSG*C2*(TEO(1)-TEO(2) - 2.0*TEO(10))\r\n      EE( 7) = EE(2)\r\n      EE( 8) = TEO(1)*S4 + 2.0*C2S2*(TEO(2) + 2.0*TEO(10)) + TEO(3)*C4\r\n      EE( 9) = TEO(4)*S2 + TEO(5)*C2\r\n      EE(10) = SING*COSG*C2 * (TEO(2)-TEO(3) + 2.0*TEO(10))\r\n     O       + COSG*SING*S2 * (TEO(1)-TEO(2) - 2.0*TEO(10))\r\n      EE(13) = EE(3)\r\n      EE(14) = EE(9)\r\n      EE(15) = TEO(6)\r\n      EE(16) = SING*COSG*(TEO(4)-TEO(5))\r\n      EE(19) = EE(4)\r\n      EE(20) = EE(10)\r\n      EE(21) = EE(16)\r\n      EE(22) = C2S2*(TEO(1) - 2.0*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(29) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(30) = SING*COSG*(TEO(15)-TEO(21))\r\n      EE(35) = EE(30)\r\n      EE(36) = TEO(15)*S2 + TEO(21)*C2\r\n      IF (LSYS78) GO TO 530\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32))\r\n     7       - SC2*(TEO(23)+2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31))\r\n     8       + SC2*(TEO(22)-2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32))\r\n     O       - SC2*(TEO(26)-2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31))\r\n     1       + SC2*( TEO(25)+2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31))\r\n     6       + SC2*(-TEO(32)-TEO(25)+TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32))\r\n     7       + SC2*(TEO(23)+TEO(31)-TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n  530 CONTINUE\r\nC\r\n      IECPT(1) = IECPT(1) - (IECPT(1)/1000)*1000 - 1\r\n      AJHO  = IECPT(1)\r\n      AJJHO = AJHO*AJHO\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL( 1) = (EE(15) + AJJHO*EE(29))*DELINT(1)\r\n      ACURL( 2) = (EE( 3) + EE(15) + AJJHO*EE(29))*DELINT(4)\r\n      ACURL( 3) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4)\r\n      ACURL( 4) = (EE(15) + EE(29))*AJHO*DELINT(1)\r\n      ACURL( 5) = EE(15)*AJHO*DELINT(4)\r\n      ACURL( 6) = (EE(15)+EE(29))*AJHO*DELINT(2) - EE(30)*AJHO*DELINT(4)\r\n      ACURL( 7) = AJJHO*DELINT(1)*EE(35)\r\n      ACURL( 8) = (EE(16) + AJJHO*EE(35))*DELINT(4)\r\n      ACURL( 9) = EE(9)*DELINT(4) + AJJHO*DELINT(2)*EE(35)\r\n      ACURL(11) = (EE(1) + 2.0*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6)\r\n      ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5)\r\n     1          + (EE(4) + EE (16))*DELINT(6)\r\n      ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4)\r\n      ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO\r\n      ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5)\r\n     1          - AJHO*EE(30)*DELINT(6)\r\n      ACURL(16) = AJJHO*DELINT(4)*EE(35)\r\n      ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6)\r\n      ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35)\r\n      ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) + EE(22)*DELINT(6)\r\n     1          + 2.0*EE(16)*DELINT(5)\r\n      ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT(2)\r\n     1          + AJHO*DELINT(4)*EE(16)\r\n      ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16)\r\n      ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3)\r\n     1          + (EE(16) - EE(30))*AJHO*DELINT(5)\r\n      ACURL(25) = AJJHO*DELINT(2)*EE(35)\r\n      ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5)\r\n      ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6)\r\n     1          + AJJHO*DELINT(3)*EE(35)\r\n      ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1)\r\n      ACURL(32) = EE(15)*AJJHO*DELINT(4)\r\n      ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4)\r\n      ACURL(34) = AJHO*DELINT(1)*EE(35)\r\n      ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4)\r\n      ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35)\r\n      ACURL(41) = AJJHO*DELINT(6)*EE(15)\r\n      ACURL(42) = EE(15)*AJJHO*DELINT(5)\r\n      ACURL(43) = 0.0\r\n      ACURL(44) = AJHO*DELINT(6)*EE(16)\r\n      ACURL(45) = EE(9)*AJHO*DELINT(6)\r\n      ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36)*DELINT(6)\r\n     1          - 2.0*DELINT(5)*EE(35)\r\n      ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36))\r\n      ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16)\r\n     1          + EE(35))*DELINT(5)\r\n      ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5)\r\n     1          + AJHO*DELINT(3)*EE(35)\r\n      ACURL(61) = EE(36)*AJJHO*DELINT(1)\r\n      ACURL(62) = EE(36)*AJJHO*DELINT(4)\r\n      ACURL(63) = (EE(36))*AJJHO*DELINT(2)\r\n      ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6)\r\n      ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6)\r\n      ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6)\r\nC\r\n      IF (LSYS78) GO TO 540\r\n      ACURL(82) =-(EE(45)-AJHO*EE(51))*AJHO*DELINT(1)\r\n      ACURL(83) = (EE(43)-AJHO*EE(45)-AJHO*EE(49)\r\n     3          + AJJHO*EE(51))*DELINT(4)\r\n      ACURL(84) = (EE(44)-AJHO*EE(50))*DELINT(4)-(EE(45)\r\n     4          - AJHO*EE(51))*AJHO*DELINT(2)\r\n      ACURL(85) =-(EE(39)+EE(45)-AJHO*EE(51))*AJHO*DELINT(4)\r\n      ACURL(86) = (EE(37)+EE(43)-(EE(39)+EE(45)+EE(49)\r\n     6          - AJHO*EE(51))*AJHO)*DELINT(6)\r\n      ACURL(87) = (EE(38)+EE(44)-AJHO*EE(50))*DELINT(6)-(EE(39)+EE(45)\r\n     7          - AJHO*EE(51))*AJHO*DELINT(5)\r\n      ACURL(88) =-(EE(45)-AJHO*EE(51))*AJHO*DELINT(2)-EE(48)*AJHO*\r\n     8            DELINT(4)\r\n      ACURL(89) = (EE(43)-AJHO*EE(45)-AJHO*EE(49)+AJJHO*EE(51))*\r\n     9            DELINT(5) +(EE(46)-EE(48)*AJHO)*DELINT(6)\r\n      ACURL(90) = (EE(44)-AJHO*EE(48)-AJHO*EE(50))*DELINT(5)+EE(47)*\r\n     O            DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3)\r\n      ACURL(91) =-(EE(45)*AJHO-EE(51))*AJHO*DELINT(1)\r\n      ACURL(92) = (AJHO*EE(43)-AJJHO*EE(45)-EE(49)+AJHO*EE(51))*\r\n     2            DELINT(4)\r\n      ACURL(93) = (EE(44)*AJHO-EE(50))*DELINT(4)-(EE(45)*AJHO-EE(51))*\r\n     3            AJHO*DELINT(2)\r\n      ACURL(94) =-EE(45)*AJJHO*DELINT(4)\r\n      ACURL(95) = (EE(43)-AJHO*EE(45))*AJHO*DELINT(6)\r\n      ACURL(96) = EE(44)*AJHO*DELINT(6)-EE(45)*AJJHO*DELINT(5)\r\n      ACURL(97) =-(EE(45)*AJHO-EE(51))*AJHO*DELINT(2)-EE(54)*AJHO*\r\n     7            DELINT(4)\r\n      ACURL(98) = (EE(43)*AJHO-AJJHO*EE(45)-EE(49)+EE(51)*AJHO)*\r\n     8            DELINT(5)+(EE(52)-AJHO*EE(54))*DELINT(6)\r\n      ACURL(99) = (EE(44)*AJHO-EE(50)-EE(54)*AJHO)*DELINT(5)+EE(53)*\r\n     9            DELINT(6)-(EE(45)*AJHO-EE(51))*AJHO*DELINT(3)\r\n      ACURL(100) = EE(54)*AJJHO*DELINT(1)\r\n      ACURL(101) =-(EE(52)-EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(102) =-(EE(53)*DELINT(4)-EE(54)*AJHO*DELINT(2))*AJHO\r\n      ACURL(103) =-(EE(48)-EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(104) = (EE(46)-EE(48)*AJHO-EE(52)*AJHO+EE(54)*AJJHO)*\r\n     4             DELINT(6)\r\n      ACURL(105) = (EE(47)-EE(53)*AJHO)*DELINT(6)-(EE(48)-EE(54)*AJHO)*\r\n     5             AJHO*DELINT(5)\r\n      ACURL(106) = EE(54)*AJJHO*DELINT(2)-EE(42)*AJHO*DELINT(4)\r\n      ACURL(107) = (EE(40)-EE(42)*AJHO)*DELINT(6)-(EE(52)-EE(54)*AJHO)*\r\n     7             AJHO*DELINT(5)\r\n      ACURL(108) = EE(41)*DELINT(6)+(-EE(42)-EE(53))*AJHO*DELINT(5)+\r\n     8             EE(54)*AJJHO*DELINT(3)\r\n      ACURL(109) = EE(63)*AJJHO*DELINT(1)\r\n      ACURL(110) = (-EE(57)+EE(63)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(111) =-EE(60)*AJHO*DELINT(4)+EE(63)*AJJHO*DELINT(2)\r\n      ACURL(112) = ACURL(110)\r\n      ACURL(113) = (EE(55)-2.0*EE(57)*AJHO+EE(63)*AJJHO)*DELINT(6)\r\n      ACURL(114) = (EE(56)-EE(60)*AJHO)*DELINT(6)+(-EE(57)+EE(63)*AJHO)*\r\n     4             AJHO*DELINT(5)\r\n      ACURL(115) = ACURL(111)\r\n      ACURL(116) = ACURL(114)\r\n      ACURL(117) = EE(59)*DELINT(6)-2.0*EE(60)*AJHO*DELINT(5)+EE(63)*\r\n     7             AJJHO*DELINT(3)\r\n  540 CONTINUE\r\nC\r\nC     EXPAND ACURL INTO (9X9)\r\nC\r\n      DO 610 IB = 2,9\r\n      IC = 10*IB - 19\r\n      I  = IC\r\n      DO 605 J = IB,9\r\n      IC = IC + 9\r\n      I  = I + 1\r\n  605 ACURL(IC) = ACURL(I)\r\n  610 CONTINUE\r\n      DGAMR = PI\r\n      IF (AJHO .EQ. 0) DGAMR = 2.0*PI\r\n      DO 630 I = 1,81\r\n  630 ACURL(I) = DGAMR*ACURL(I)\r\nC\r\n      IF (LSYS78) GO TO 640\r\n      DO 635 I = 82,117\r\n  635 ACURL(I) = ACURL(I)*DGAMR\r\n  640 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GABABQ,9,9,1, ACURL,9,9,0,D )\r\n      CALL GMMATS (     D,9,9,0,GABABQ,9,9,0,AK)\r\nC\r\n      IF (LSYS78) GO TO 650\r\n      CALL GMMATS (GABABQ,9,9,1,ACURP1,9,3,0,D1   )\r\n      CALL GMMATS (    D1,9,3,0,GABABP,3,3,0,AKUPH)\r\n      CALL GMMATS (GABABP,3,3,1,ACURP2,3,3,0,D2   )\r\n      CALL GMMATS (    D2,3,3,0,GABABP,3,3,0,AKPH2)\r\n  650 CONTINUE\r\nC\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC     **** COORDINATE SYS NOT POSSIBLE WITH RINGAX ********\r\nC     **** THE FOLLOWING CODE COULD IMPLEMENT IT   ********\r\nC     **   IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR\r\nC          PIEZOELECTRIC\r\nC.    DO 750 I = 1,81\r\nC.750 AKI(I) = 0.00\r\nC.    DO 800 I = 1,3\r\nC.    CALL TRANSS (ICS(I),D(1))\r\nC.    K = 30*(I-1) + 1\r\nC.    DO 800 J = 1,3\r\nC.    KK = K + 9*(J-1)\r\nC.    JJ = 3*(J-1) + 1\r\nC.    AKI(KK  ) = D(JJ  )\r\nC.    AKI(KK+1) = D(JJ+1)\r\nC.    AKI(KK+2) = D(JJ+2)\r\nC.800 CONTINUE\r\nC\r\nC     TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\nC.    CALL GMMATS (AKI,9,9,1, AK,9,9,0,D )\r\nC.    CALL GMMATS (  D,9,9,0,AKI,9,9,0,AK)\r\nC\r\nC     FORM WJ MATRIX\r\nC\r\n      DO 1000 I = 1,6\r\n      DO 1000 J = 1,9\r\n 1000 WJ (I,J) = 0.0\r\n      RSUM = 0.0\r\n      ZSUM = 0.0\r\n      DO 1040 I = 1,3\r\n      RSUM = RSUM + R(I)\r\n 1040 ZSUM = ZSUM + Z(I)\r\n      RSUM = RSUM/3.0\r\n      ZSUM = ZSUM/3.0\r\n      ZDR  = ZSUM/RSUM\r\n      WJ (1,2) = 1.0\r\n      WJ (2,9) = 1.0\r\n      WJ (3,1) = 1.0/RSUM\r\n      WJ (3,2) = 1.0\r\n      WJ (3,3) = ZDR\r\n      WJ (3,4) = AJHO/RSUM\r\n      WJ (3,5) = AJHO\r\n      WJ (3,6) = AJHO*ZDR\r\n      WJ (4,3) = 1.0\r\n      WJ (4,8) = 1.0\r\n      WJ (5,1) =-AJHO/RSUM\r\n      WJ (5,2) =-AJHO\r\n      WJ (5,3) =-AJHO*ZDR\r\n      WJ (5,4) =-1.0/RSUM\r\n      WJ (5,6) =-ZDR\r\n      WJ (6,6) = 1.0\r\n      WJ (6,7) =-AJHO/RSUM\r\n      WJ (6,8) =-AJHO\r\n      WJ (6,9) =-AJHO*ZDR\r\nC\r\n      IF (LSYS78) GO TO 1060\r\nC\r\nC     FORM WJP MATRIX\r\nC\r\n      DO 1050 I = 1,3\r\n      DO 1050 J = 1,3\r\n 1050 WJP(I,J) = 0.0\r\nC\r\n      WJP(1,2) = 1.0\r\n      WJP(2,3) = 1.0\r\n      WJP(3,1) = -AJHO/RSUM\r\n      WJP(3,2) = -AJHO\r\n      WJP(3,3) = -AJHO*ZDR\r\n 1060 CONTINUE\r\nC\r\nC     COMPUTE THE STRESS MATRIX\r\nC\r\n      CALL GMMATS (   WJ,9,6,1,GABABQ,9,9,0,D(1))\r\n      CALL GMMATS (EE(1),6,6,0,  D(1),6,9,0,SEL )\r\n      IF (LSYS78) GO TO 1070\r\n      CALL GMMATS (   WJP,3,3,1,GABABP,3,3,0,D2(1))\r\n      CALL GMMATS (EE(37),6,3,0, D2(1),3,3,0,SELP1)\r\n      CALL GMMATS (EE(37),6,3,1,  D(1),6,9,0,SELP2)\r\n      CALL GMMATS (EE(55),3,3,0, D2(1),3,3,0,SELP3)\r\n 1070 CONTINUE\r\nC\r\nC    *** MORE CORD SYS REMOVAL.  FEL ABOVE IS WJ **********\r\nC    **  IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR\r\nC        PIEZOELECTRIC\r\nC\r\nC.    CALL GMMATS (WJ,6,9,0, AK,9,9,0, SEL)\r\nC\r\nC\r\nC     TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\nC     COMPUTE THE THE THERMAL STRESS\r\nC\r\n      TS(1) = EE( 1)*ALF(1) + EE( 2)*ALF(3) + EE( 3)*ALF(2)\r\n      TS(2) = EE( 7)*ALF(1) + EE( 8)*ALF(3) + EE( 9)*ALF(2)\r\n      TS(3) = EE(13)*ALF(1) + EE(14)*ALF(3) + EE(15)*ALF(2)\r\n      TS(4) = EE(19)*ALF(1) + EE(20)*ALF(3) + EE(21)*ALF(2)\r\n      TS(5) = 0.0\r\n      TS(6) = 0.0\r\n      DO 1100 IKI = 1,14\r\n      PHI(IKI) = ECPT(7+IKI)\r\n 1100 CONTINUE\r\n      GO TO 940\r\nC\r\nC     SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n  910 I = 37\r\n      GO TO 930\r\n  920 I = 126\r\n  930 CALL MESAGE (30,I,IDEL)\r\n      NOGO = 1\r\n  940 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strax2.f",
    "content": "      SUBROUTINE STRAX2 (SORC,TI)\r\nC\r\nC     THIS ROUTINE IS PHASE II OF STRESS DATA FOR THE TRIANGULAR\r\nC     CROSS SECTION RING\r\nC\r\nC     OUTPUTS FROM PHASE I ARE THE FOLLOWING -\r\nC     IDEL IGP(3) TZ SEL(54) TS(4) AK(81) PHI(14)\r\nC     AKUPH(27) AKPH2(9) SELP1(18) SELP2(27) SELP3(9)\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         ZERO,ZERON,LSYS78\r\n      INTEGER         SORC,IBLOCK(22,14),ISTRES(100),IFORCE(25),ELEMID,\r\n     1                ICLOCK(22,14)\r\n      REAL            NPHI\r\n      DIMENSION       TI(3),DUM3(225),STRES(100),FORCE(25),AKUPH(27),\r\n     1                AKPH2(9),SELP1(18),SELP2(27),SELP3(9),D3(3),D6(6),\r\n     2                D9(9),DISPP(3),ECHRG(3),EFLUX(3)\r\nC\r\nC     SDR2 VARIABLE CORE\r\nC\r\n      COMMON /ZZZZZZ/ ZZ(1)\r\nC\r\nC     SDR2 BLOCK FOR POINTERS AND LOADING  TEMPERATURES\r\nC\r\n      COMMON /SDR2X4/ DUM1(33),ICSTM,NCSTM,IVEC,IVECN,TEMPLD,ELDEFM,\r\n     1                DUM4(12),KTYPE\r\nC\r\nC     SCRATCH BLOCK\r\nC\r\n      COMMON /SDR2X8/ DISP(9),EFORC(9),ESTRES(9),HARM,N,SINPHI,CONPHI,\r\n     1                NPHI,NANGLE,ELEMID,UNU(123),NELHAR\r\nC\r\nC     SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON /SDR2X7/ IDEL,IGP(3),TZ,SEL(54),TS(6),AK(81),PHI(14),\r\n     1                DUM2(90),BLOCK(22,14),CLOCK(22,14)\r\nC\r\n      COMMON /SDR2DE/ DUM5(33), IPART\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78\r\n      EQUIVALENCE     (IBLOCK(1,1),BLOCK(1,1)),(ICLOCK(1,1),CLOCK(1,1)),\r\n     1                (DUM3(1),IDEL),(LDTEMP,TEMPLD),\r\n     2                (DUM3(109),STRES(9),ISTRES(9),EFLUX(1)),\r\n     3                (DUM3(201),FORCE(1),IFORCE(1)),\r\n     4                (DUM2(1),SELP1(1)),(DUM2(19),AKPH2(1)),\r\n     5                (DUM2(28),AKUPH(1)),(DUM2(55),SELP2(1)),\r\n     6                (DUM2(82),SELP3(1)),(CONSTS(4),DEGRAD),\r\n     7                (UNU(1),D3(1)),(UNU(4),D6(1)),(UNU(10),D9(1))\r\n      DATA    ZERON / .FALSE. /\r\n      DATA    IOSORC/ 0       /\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\nC\r\n      ELEMID = IDEL/1000\r\n      NELHAR = IDEL - ELEMID*1000\r\nC\r\nC     SET BLOCK = 0 IF HARMONIC = 0\r\nC\r\n      N = NELHAR - 1\r\n      IF (N .NE. 0) GO TO 21\r\n      IF (N.EQ.0 .AND. ZERON .AND. IOSORC .NE. SORC) GO TO 14\r\n      ZERON  = .TRUE.\r\n      IOSORC = SORC\r\n      DO 15 I = 2,22\r\n      DO 15 J = 1,14\r\n      IF (KTYPE.NE.2 .OR. IPART.NE.2) BLOCK(I,J) = 0.0\r\n      CLOCK(I,J) = 0.0\r\n   15 CONTINUE\r\nC\r\nC     SET ANGLES CONTROL FOR SUMMATION\r\nC\r\n      ZERO = .FALSE.\r\n      J = 0\r\n      DO 16 I = 1,14\r\n      IF (PHI(I)) 17,18,17\r\n   18 IF (ZERO) GO TO 16\r\n      ZERO = .TRUE.\r\n   17 J = J + 1\r\n      BLOCK(1,J) = PHI(I)\r\n      CLOCK(1,J) = PHI(I)\r\n   16 CONTINUE\r\n      J = J + 1\r\n      IF (J .GT. 14) GO TO 21\r\n      IBLOCK(1,J) = 1\r\n      ICLOCK(1,J) = 1\r\n      GO TO 21\r\n   14 ZERON = .FALSE.\r\n   21 HARM  = N\r\nC\r\nC     INITIALIZE LOCAT VARIABLES\r\nC\r\n      NDOF  = 3\r\n      NUMPT = 3\r\n      N     = NDOF*NUMPT\r\n      NSP   = 1\r\n      NCOMP = 6\r\n      NS    = NSP*NCOMP\r\nC\r\nC     FIND GRID POINTS DISPLACEMENTS\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NUMPT\r\n      ILOC = IVEC + IGP(I) - 2\r\nC\r\n      IF (LSYS78) GO TO 90\r\n      ILOCP = ILOC + 4\r\n      DISPP(I) = ZZ(ILOCP)\r\n   90 CONTINUE\r\n      DO 100 J = 1,NDOF\r\n      ILOC = ILOC + 1\r\n      K    = K + 1\r\n      DISP(K) = ZZ(ILOC)\r\n  100 CONTINUE\r\nC\r\nC     COMPUTE THE GRID POINT FORCES\r\nC\r\n      CALL GMMATS (AK(1),N,N,0, DISP(1),N,1,0, EFORC(1))\r\nC\r\n      DO 109 I = 1,3\r\n  109 ECHRG(I) = 0.0\r\nC\r\n      IF (LSYS78) GO TO 125\r\n      CALL GMMATS (AKUPH(1),N,NUMPT,0, DISPP(1),NUMPT,1,0, D9(1))\r\n      DO 110 I = 1,9\r\n  110 EFORC(I) = EFORC(I) + D9(I)\r\nC\r\n      CALL GMMATS (AKUPH(1),N,NUMPT,1, DISP(1),N,1,0, D3(1))\r\n      CALL GMMATS (AKPH2(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, ECHRG(1))\r\n      DO 120 I = 1,3\r\n  120 ECHRG(I) = ECHRG(I) + D3(I)\r\nC\r\nC     COMPUTE THE STRESSES\r\nC\r\n  125 CALL GMMATS (SEL(1),NS,N,0, DISP(1),N,1,0, ESTRES(1))\r\nC\r\n      DO 129 I = 1,3\r\n  129 EFLUX(I) = 0.0\r\nC\r\n      IF (LSYS78) GO TO 145\r\n      CALL GMMATS (SELP1(1),NS,NUMPT,0, DISPP(1),NUMPT,1,0, D6(1))\r\n      DO 130 I = 1,6\r\n  130 ESTRES(I) = ESTRES(I) + D6(I)\r\nC\r\n      CALL GMMATS (SELP2(1),NUMPT,N,0, DISP(1),N,1,0, EFLUX(1))\r\n      CALL GMMATS (SELP3(1),NUMPT,NUMPT,0, DISPP(1),NUMPT,1,0, D3(1))\r\nC\r\n      DO 140 I = 1,3\r\n  140 EFLUX(I) = EFLUX(I) + D3(I)\r\nC\r\nC     COMPUTE THERMAL STRESS IF IT IS EXISTS\r\nC\r\n  145 IF (LDTEMP .EQ. -1) GO TO 300\r\n      DT = TZ\r\n      IF (HARM .GT. 0.0) DT = 0.0\r\n      DT = (TI(1)+TI(2)+TI(3))/3.0 - DT\r\n      DO 200 I = 1,NS\r\n      ESTRES(I) = ESTRES(I) - DT*TS(I)\r\n  200 CONTINUE\r\nC\r\nC     BRANCH TO INSERT HARMONIC STRESSES AND FORCES INTO BLOCK OR CLOCK\r\nC\r\nC     KTYPE = 1 - REAL OUTPUT, STORED IN BLOCK, NOTHING IN CLOCK\r\nC     KTYPE = 2 - COMPLEX OUTPUT\r\nC     IPART = 1 - IMAGINARY PART OF COMPLEX OUTPUT, STORED IN BLOCK\r\nC     IPART = 2 - REAL PART OF COMPLEX OUTPUT, STORED IN CLOCK\r\nC\r\n  300 IF (KTYPE.EQ.2 .AND. IPART.EQ.2) GO TO 505\r\nC\r\nC     INSERT HARMONIC STRESSES AND FORCES INTO BLOCK\r\nC\r\n      DO 380 I = 1,14\r\n      IF (IBLOCK(1,I) .EQ. 1) GO TO 390\r\n      IF (HARM .NE. 0.0) GO TO 330\r\n      DO 310 IWA = 1,6\r\n      BLOCK(IWA+1,I) = ESTRES(IWA)\r\n      BLOCK(IWA+7,I) = EFORC (IWA)\r\n  310 CONTINUE\r\n      BLOCK(14,I) = EFORC(7)\r\n      BLOCK(15,I) = EFORC(8)\r\n      BLOCK(16,I) = EFORC(9)\r\nC\r\n      IF (LSYS78) GO TO 320\r\n      BLOCK(17,I) = EFLUX(1)\r\n      BLOCK(18,I) = EFLUX(2)\r\n      BLOCK(19,I) = EFLUX(3)\r\n      BLOCK(20,I) = ECHRG(1)\r\n      BLOCK(21,I) = ECHRG(2)\r\n      BLOCK(22,I) = ECHRG(3)\r\n  320 CONTINUE\r\n      GO TO 380\r\n  330 CONTINUE\r\n      NPHI   = HARM*BLOCK(1,I)*DEGRAD\r\n      SINPHI = SIN(NPHI)\r\n      CONPHI = COS(NPHI)\r\nC\r\n      GO TO (360,340), SORC\r\nC\r\n  340 BLOCK( 2,I) = BLOCK( 2,I) + CONPHI*ESTRES(1)\r\n      BLOCK( 3,I) = BLOCK( 3,I) + CONPHI*ESTRES(2)\r\n      BLOCK( 4,I) = BLOCK( 4,I) + CONPHI*ESTRES(3)\r\n      BLOCK( 5,I) = BLOCK( 5,I) + CONPHI*ESTRES(4)\r\n      BLOCK( 6,I) = BLOCK( 6,I) + SINPHI*ESTRES(5)\r\n      BLOCK( 7,I) = BLOCK( 7,I) + SINPHI*ESTRES(6)\r\n      BLOCK( 8,I) = BLOCK( 8,I) + CONPHI*EFORC(1)\r\n      BLOCK( 9,I) = BLOCK( 9,I) + SINPHI*EFORC(2)\r\n      BLOCK(10,I) = BLOCK(10,I) + CONPHI*EFORC(3)\r\n      BLOCK(11,I) = BLOCK(11,I) + CONPHI*EFORC(4)\r\n      BLOCK(12,I) = BLOCK(12,I) + SINPHI*EFORC(5)\r\n      BLOCK(13,I) = BLOCK(13,I) + CONPHI*EFORC(6)\r\n      BLOCK(14,I) = BLOCK(14,I) + CONPHI*EFORC(7)\r\n      BLOCK(15,I) = BLOCK(15,I) + SINPHI*EFORC(8)\r\n      BLOCK(16,I) = BLOCK(16,I) + CONPHI*EFORC(9)\r\n      IF (LSYS78) GO TO 350\r\n      BLOCK(17,I) = BLOCK(17,I) + CONPHI*EFLUX(1)\r\n      BLOCK(18,I) = BLOCK(18,I) + CONPHI*EFLUX(2)\r\n      BLOCK(19,I) = BLOCK(19,I) + SINPHI*EFLUX(3)\r\n      BLOCK(20,I) = BLOCK(20,I) + CONPHI*ECHRG(1)\r\n      BLOCK(21,I) = BLOCK(21,I) + CONPHI*ECHRG(2)\r\n      BLOCK(22,I) = BLOCK(22,I) + CONPHI*ECHRG(3)\r\n  350 CONTINUE\r\n      GO TO 380\r\n  360 BLOCK( 2,I) = BLOCK( 2,I) + SINPHI*ESTRES(1)\r\n      BLOCK( 3,I) = BLOCK( 3,I) + SINPHI*ESTRES(2)\r\n      BLOCK( 4,I) = BLOCK( 4,I) + SINPHI*ESTRES(3)\r\n      BLOCK( 5,I) = BLOCK( 5,I) + SINPHI*ESTRES(4)\r\n      BLOCK( 6,I) = BLOCK( 6,I) - CONPHI*ESTRES(5)\r\n      BLOCK( 7,I) = BLOCK( 7,I) - CONPHI*ESTRES(6)\r\n      BLOCK( 8,I) = BLOCK( 8,I) + SINPHI*EFORC(1)\r\n      BLOCK( 9,I) = BLOCK( 9,I) - CONPHI*EFORC(2)\r\n      BLOCK(10,I) = BLOCK(10,I) + SINPHI*EFORC(3)\r\n      BLOCK(11,I) = BLOCK(11,I) + SINPHI*EFORC(4)\r\n      BLOCK(12,I) = BLOCK(12,I) - CONPHI*EFORC(5)\r\n      BLOCK(13,I) = BLOCK(13,I) + SINPHI*EFORC(6)\r\n      BLOCK(14,I) = BLOCK(14,I) + SINPHI*EFORC(7)\r\n      BLOCK(15,I) = BLOCK(15,I) - CONPHI*EFORC(8)\r\n      BLOCK(16,I) = BLOCK(16,I) - SINPHI*EFORC(9)\r\n      IF (LSYS78) GO TO 370\r\n      BLOCK(17,I) = BLOCK(17,I) + SINPHI*EFLUX(1)\r\n      BLOCK(18,I) = BLOCK(18,I) + SINPHI*EFLUX(2)\r\n      BLOCK(19,I) = BLOCK(19,I) - CONPHI*EFLUX(3)\r\n      BLOCK(20,I) = BLOCK(20,I) + SINPHI*ECHRG(1)\r\n      BLOCK(21,I) = BLOCK(21,I) + SINPHI*ECHRG(2)\r\n      BLOCK(22,I) = BLOCK(22,I) + SINPHI*ECHRG(3)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\nC\r\nC     COPY STRESSES AND FORCES INTO OUTPUT BLOCKS\r\nC     FLUXES ARE EQUIVALENCED INTO STRES(J)\r\nC     CHARGES ARE WRITTEN INTO FORCE(J)\r\nC\r\n  390 J = 2\r\n      ISTRES (1) = ELEMID\r\n      ISTRES (2) = NELHAR\r\n      DO 400 I = 1,NCOMP\r\n      J = J + 1\r\n      STRES(J) = ESTRES(I)\r\n  400 CONTINUE\r\n      K = 0\r\n      J = 2\r\n      IFORCE(1) = ELEMID\r\n      IFORCE(2) = NELHAR\r\n      DO 500 I  = 1,NUMPT\r\n      DO 500 KK = 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\nC\r\n      IF (K.NE.3 .AND. K.NE.6 .AND. K.NE.9) GO TO 500\r\n      J  = J + 1\r\n      K3 = K/3\r\n      FORCE(J) = ECHRG(K3)\r\n  500 CONTINUE\r\nC\r\n      IF (KTYPE.EQ.1 .OR. (KTYPE.EQ.2 .AND. IPART.EQ.1)) GO TO 1000\r\nC\r\nC     INSERT HARMONIC STRESSES AND FORCES INTO CLOCK\r\nC\r\n  505 DO 580 I = 1,14\r\n      IF (ICLOCK(1,I) .EQ. 1) GO TO 600\r\n      IF (HARM .NE. 0.0) GO TO 530\r\n      DO 510 IWA = 1,6\r\n      CLOCK(IWA+1,I) = ESTRES(IWA)\r\n      CLOCK(IWA+7,I) = EFORC (IWA)\r\n  510 CONTINUE\r\n      CLOCK(14,I) = EFORC(7)\r\n      CLOCK(15,I) = EFORC(8)\r\n      CLOCK(16,I) = EFORC(9)\r\nC\r\n      IF (LSYS78) GO TO 520\r\n      CLOCK(17,I) = EFLUX(1)\r\n      CLOCK(18,I) = EFLUX(2)\r\n      CLOCK(19,I) = EFLUX(3)\r\n      CLOCK(20,I) = ECHRG(1)\r\n      CLOCK(21,I) = ECHRG(2)\r\n      CLOCK(22,I) = ECHRG(3)\r\n  520 CONTINUE\r\n      GO TO 580\r\n  530 CONTINUE\r\n      NPHI   = HARM*CLOCK(1,I)*DEGRAD\r\n      SINPHI = SIN(NPHI)\r\n      CONPHI = COS(NPHI)\r\nC\r\n      GO TO (560,540), SORC\r\nC\r\n  540 CLOCK( 2,I) = CLOCK( 2,I) + CONPHI*ESTRES(1)\r\n      CLOCK( 3,I) = CLOCK( 3,I) + CONPHI*ESTRES(2)\r\n      CLOCK( 4,I) = CLOCK( 4,I) + CONPHI*ESTRES(3)\r\n      CLOCK( 5,I) = CLOCK( 5,I) + CONPHI*ESTRES(4)\r\n      CLOCK( 6,I) = CLOCK( 6,I) + SINPHI*ESTRES(5)\r\n      CLOCK( 7,I) = CLOCK( 7,I) + SINPHI*ESTRES(6)\r\n      CLOCK( 8,I) = CLOCK( 8,I) + CONPHI*EFORC(1)\r\n      CLOCK( 9,I) = CLOCK( 9,I) + SINPHI*EFORC(2)\r\n      CLOCK(10,I) = CLOCK(10,I) + CONPHI*EFORC(3)\r\n      CLOCK(11,I) = CLOCK(11,I) + CONPHI*EFORC(4)\r\n      CLOCK(12,I) = CLOCK(12,I) + SINPHI*EFORC(5)\r\n      CLOCK(13,I) = CLOCK(13,I) + CONPHI*EFORC(6)\r\n      CLOCK(14,I) = CLOCK(14,I) + CONPHI*EFORC(7)\r\n      CLOCK(15,I) = CLOCK(15,I) + SINPHI*EFORC(8)\r\n      CLOCK(16,I) = CLOCK(16,I) + CONPHI*EFORC(9)\r\nC\r\n      IF (LSYS78) GO TO 550\r\n      CLOCK(17,I) = CLOCK(17,I) + CONPHI*EFLUX(1)\r\n      CLOCK(18,I) = CLOCK(18,I) + CONPHI*EFLUX(2)\r\n      CLOCK(19,I) = CLOCK(19,I) + SINPHI*EFLUX(3)\r\n      CLOCK(20,I) = CLOCK(20,I) + CONPHI*ECHRG(1)\r\n      CLOCK(21,I) = CLOCK(21,I) + CONPHI*ECHRG(2)\r\n      CLOCK(22,I) = CLOCK(22,I) + CONPHI*ECHRG(3)\r\n  550 CONTINUE\r\n      GO TO 580\r\nC\r\n  560 CLOCK( 2,I) = CLOCK( 2,I) + SINPHI*ESTRES(1)\r\n      CLOCK( 3,I) = CLOCK( 3,I) + SINPHI*ESTRES(2)\r\n      CLOCK( 4,I) = CLOCK( 4,I) + SINPHI*ESTRES(3)\r\n      CLOCK( 5,I) = CLOCK( 5,I) + SINPHI*ESTRES(4)\r\n      CLOCK( 6,I) = CLOCK( 6,I) - CONPHI*ESTRES(5)\r\n      CLOCK( 7,I) = CLOCK( 7,I) - CONPHI*ESTRES(6)\r\n      CLOCK( 8,I) = CLOCK( 8,I) + SINPHI*EFORC(1)\r\n      CLOCK( 9,I) = CLOCK( 9,I) - CONPHI*EFORC(2)\r\n      CLOCK(10,I) = CLOCK(10,I) + SINPHI*EFORC(3)\r\n      CLOCK(11,I) = CLOCK(11,I) + SINPHI*EFORC(4)\r\n      CLOCK(12,I) = CLOCK(12,I) - CONPHI*EFORC(5)\r\n      CLOCK(13,I) = CLOCK(13,I) + SINPHI*EFORC(6)\r\n      CLOCK(14,I) = CLOCK(14,I) + SINPHI*EFORC(7)\r\n      CLOCK(15,I) = CLOCK(15,I) - CONPHI*EFORC(8)\r\n      CLOCK(16,I) = CLOCK(16,I) + SINPHI*EFORC(9)\r\n      IF (LSYS78) GO TO 570\r\n      CLOCK(17,I) = CLOCK(17,I) + SINPHI*EFLUX(1)\r\n      CLOCK(18,I) = CLOCK(18,I) + SINPHI*EFLUX(2)\r\n      CLOCK(19,I) = CLOCK(19,I) - CONPHI*EFLUX(3)\r\n      CLOCK(20,I) = CLOCK(20,I) + SINPHI*ECHRG(1)\r\n      CLOCK(21,I) = CLOCK(21,I) + SINPHI*ECHRG(2)\r\n      CLOCK(22,I) = CLOCK(22,I) + SINPHI*ECHRG(3)\r\n  570 CONTINUE\r\n  580 CONTINUE\r\nC\r\nC     COPY STRESSES AND FORCES INTO OUTPUT BLOCKS\r\nC     FLUXES ARE EQUIVALENCED INTO STRES(J)\r\nC     CHARGES ARE WRITTEN INTO FORCE(J)\r\nC\r\n  600 J = 2\r\n      ISTRES (1) = ELEMID\r\n      ISTRES (2) = NELHAR\r\n      DO 700 I = 1,NCOMP\r\n      J = J + 1\r\n      STRES(J) = ESTRES(I)\r\n  700 CONTINUE\r\n      K = 0\r\n      J = 2\r\n      IFORCE(1) = ELEMID\r\n      IFORCE(2) = NELHAR\r\n      DO 800 I  = 1,NUMPT\r\n      DO 800 KK = 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\nC\r\n      IF (K.NE.3 .AND. K.NE.6 .AND. K.NE.9) GO TO 800\r\n      J  = J + 1\r\n      K3 = K/3\r\n      FORCE(J) = ECHRG(K3)\r\n  800 CONTINUE\r\nC\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strax3.f",
    "content": "      SUBROUTINE STRAX3 ( AGAIN)\r\nC\r\n      INTEGER IFORCE(25), ISTRES(100), ELEMID, IBLOCK(22,14)\r\n     1,       ICLOCK(22,14),CANGLE\r\n      REAL    SAVEF(75), SAVES(75)\r\nC\r\n      LOGICAL AGAIN\r\nC\r\n      COMMON /SDR2X7/ DUM(100),STRESS(100),FORCE(25)\r\n     1,               SKIP(25),BLOCK(22,14),CLOCK(22,14)\r\nC\r\nC SCRATCH BLOCK\r\n      COMMON  /SDR2X8/\r\n     U                 DISP(9), EFORC(9), ESTRES(9)\r\n     3,                HARM, N, SINPHI, CONPHI, NPHI, NANGLE\r\n     3,                ELEMID, UNU(123), NELHAR\r\nC\r\n      COMMON /ISAVE / ISAVEF(75),ISAVES(75)\r\nC\r\n      COMMON /SDR2DE/ DUM5(33), IPART\r\nC\r\n      COMMON /SDR2X4/ DUM4(51),KTYPE\r\nC\r\n      EQUIVALENCE ( ISTRES(1), STRESS(1)), ( IFORCE(1), FORCE(1))\r\n     1, (IBLOCK(1,1), BLOCK(1,1)), (ICLOCK(1,1),CLOCK(1,1))\r\n     2, (ISAVEF(1),SAVEF(1)),(ISAVES(1),SAVES(1))\r\n     3, (NANGLE,CANGLE)\r\nC\r\n      IF ( AGAIN ) GO TO 10\r\n      AGAIN = .TRUE.\r\n      NANGLE = 0\r\n   10 NANGLE = NANGLE + 1\r\nC\r\nC\r\nC  BRANCH TO INSERT STRESSES AND FORCES INTO FORCE AND STRESS OR\r\nC                                            SAVEF AND SAVES\r\nC\r\nC    KTYPE=1 - REAL OUTPUT FROM BLOCK IS TRANSFERED TO CLOCK, THEN\r\nC            STORED IN FORCE AND STRESS, NOTHING IN SAVEF AND SAVES\r\nC    KTYPE=2 - COMPLEX OUTPUT\r\nC    IPART=1 - IMAGINARY PART OF COMPLEX OUTPUT FROM BLOCK, STORED\r\nC              IN SAVEF AND SAVES\r\nC    IPART=2 - REAL PART OF COMPLEX OUTPUT FROM CLOCK STORED IN\r\nC              FORCE AND STRESS\r\nC\r\n      IF (KTYPE.EQ.2) GO TO 19\r\n      DO 15 I=1,22\r\n      DO 15 J=1,14\r\n   15 CLOCK(I,J) = BLOCK(I,J)\r\n   19 CONTINUE\r\nC\r\nC  OUTPUT FORCES FOR THIS ANGLE\r\nC\r\n      IFORCE(1)=ELEMID\r\n      FORCE(2) = CLOCK(1,CANGLE)\r\n      J = 2\r\n      DO 20 I=1,9\r\n      J = J + 1\r\n      FORCE(J) = CLOCK(I+7,CANGLE)\r\nC\r\nC  OUTPUT CHARGES\r\n      IF((I.NE.3).AND.(I.NE.6).AND.(I.NE.9)) GO TO 20\r\n      J = J + 1\r\n      K=19+I/3\r\n      FORCE(J) = CLOCK(K,CANGLE)\r\n   20 CONTINUE\r\nC\r\nC OUTPUT STRESSES\r\n      ISTRES  (1) = ELEMID\r\n      STRESS(2) = CLOCK(1,CANGLE)\r\n      DO 30 I = 1, 6\r\n      STRESS(2+I) = CLOCK(I+1,CANGLE)\r\n   30 CONTINUE\r\nC\r\nC  OUTPUT FLUXES\r\n      DO 32 I=1,3\r\n   32 STRESS(I+8) = CLOCK(I+16,CANGLE)\r\nC\r\n      IF(KTYPE.EQ.2) GO TO 40\r\n      IF(CANGLE .EQ. 14) GO TO 100\r\n      IF(ICLOCK(1,CANGLE+1) .EQ. 1) GO TO 100\r\n      GO TO 90\r\nC\r\n   40 CONTINUE\r\nC\r\nC  OUTPUT FORCES FOR THIS ANGLE\r\nC\r\n      ISAVEF(1)=ELEMID\r\n      SAVEF(2) = BLOCK (1,NANGLE)\r\n      J = 2\r\n      DO 50 I=1,9\r\n      J = J + 1\r\n      SAVEF(J) = BLOCK(I+7,NANGLE)\r\nC\r\nC  OUTPUT CHARGES\r\n      IF((I.NE.3).AND.(I.NE.6).AND.(I.NE.9)) GO TO 50\r\n      J = J + 1\r\n      K=19+I/3\r\n      SAVEF(J) = BLOCK(K,NANGLE)\r\n   50 CONTINUE\r\nC\r\nC OUTPUT STRESSES\r\n      ISAVES(1) = ELEMID\r\n      SAVES(2) = BLOCK (1, NANGLE)\r\n      DO 60 I=1,6\r\n      SAVES(2+I) = BLOCK ( I+1,NANGLE)\r\n   60 CONTINUE\r\nC\r\nC  OUTPUT FLUXES\r\n      DO 70 I=1,3\r\n   70 SAVES(I+8) = BLOCK(I+16,NANGLE)\r\nC\r\n      IF (NANGLE .EQ. 14) GO TO 100\r\n      IF (IBLOCK (1,NANGLE+1) .EQ. 1)  GO TO 100\r\n   90 CONTINUE\r\nC\r\n      RETURN\r\n  100 AGAIN = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strbs1.f",
    "content": "      SUBROUTINE STRBS1 (IOPT)\r\nC\r\nC     PHASE ONE FOR STRESS RECOVERY\r\nC\r\nC           IOPT = 0    (BASIC BENDING TRIANGLE)\r\nC           IOPT = 1    (SUB-CALCULATIONS FOR SQDPL1)\r\nC           IOPT = 2    (SUB-CALCULATIONS FOR STRPL1)\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO\r\nC\r\nC           MAT    - MATERIAL DATA ROUTINE\r\nC           TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC           INVERS - SINGLE PRECISION INVERSE ROUTINE\r\nC           GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC           MESAGE - ERROR MESSAGE WRITER\r\nC\r\n      LOGICAL         STRAIN\r\n      INTEGER         SUBSCA,SUBSCB\r\n      REAL            KS,J2X2,ST(3)\r\n      DIMENSION       D(9),G2X2(4),J2X2(4),S(258),ECPT(25),G(9),HIC(18),\r\n     1                HIB(18),TITE(18),T(9),KS(30),HINV(36)\r\nC\r\nC     COMMON /SDR2X3/ ESTWDS(32),ESTAWD(32),NGPS(32),STRSWD(32),\r\nC    1                FORCWD(32)\r\nC     THE ABOVE COMMON BLOCK IS NOT USED IN THIS ROUTINE DIRECTLY.\r\nC\r\nC     ESTWDS(I) = THE NUMBER OF WORDS IN THE EST INPUT BLOCK FOR\r\nC                 THE  I-TH ELEMENT TYPE.\r\nC     ESTAWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-I FOR THE\r\nC                 I-TH ELEMENT TYPE, AND INSERTED INTO THE ESTA ARRAY\r\nC                 OF THE LABELED BLOCK SDR2X5\r\nC     NGPS  (I) = THE NUMBER OF GRID POINTS ASSOCIATED WITH THE I-TH\r\nC                 ELEMENT TYPE.\r\nC     STRSWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-II FOR\r\nC                 THE I-TH ELEMENT TYPE, AND INSERTED INTO THE ESTA\r\nC                 ARRAY OF THE LABELED BLOCK SDR2X5.\r\nC     FORCWD(I) = THE NUMBER OF WORDS COMPUTED IN PHASE-II FOR\r\nC                 THE I-TH ELEMENT TYPE, AND INSERTED INTO THE FORCES\r\nC                 ARRAY OF THE LABELED BLOCK SDR2X5.\r\nC\r\n      COMMON /BLANK / IDUMMY(10), STRAIN\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0,G SUB E,SIGTEN,SIGCOM,SIGSHE,G2X211,\r\n     2                G2X212,G2X222\r\n      COMMON /SDR2X6/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA,\r\n     1                XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3,\r\n     2                YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4),\r\n     3                NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR,\r\n     4                NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(1)\r\n      COMMON /SDR2X5/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                X3,Y3,Z3,DUMB(76),PH1OUT(100),FORVEC(25)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(D(1),G(1),A(79)),\r\n     1                (ECPT(1),NECPT(1)),(KS(1),PH1OUT(1)),\r\n     2                (G2X2(1),A(88)),(S(1),A(55)),(TITE(1),A(127)),\r\n     3                (J2X2(1),A(92)),(T(1),A(118)),(HIB(1),A(109)),\r\n     4                (HIC(1),A(127)),(HINV(1),A(73)),(ST(1),PH1OUT(99))\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE             NAME IN\r\nC                                                      THIS\r\nC     ECPT                                             ROUTINE    TYPE\r\nC     --------   -----------------------------------   --------  -------\r\nC     ECPT( 1) = ELEMENT ID                            NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                          NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                          NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                          NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL             ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                         MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA                 EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                         MATID2    INTEGER\r\nC     ECPT( 9) = T2                                    T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                   FMU       REAL\r\nC     ECPT(11) = Z1                                    Z11       REAL\r\nC     ECPT(12) = Z2                                    Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                    NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                    X1        REAL\r\nC     ECPT(15) = Y1                                    Y1        REAL\r\nC     ECPT(16) = Z1                                    Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                    NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                    X2        REAL\r\nC     ECPT(19) = Y2                                    Y2        REAL\r\nC     ECPT(20) = Z2                                    Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                    NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                    X3        REAL\r\nC     ECPT(23) = Y3                                    Y3        REAL\r\nC     ECPT(24) = Z3                                    Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                   ELTEMP    REAL\r\nC\r\n      IF (IOPT .GT. 0) GO TO 30\r\n      ELTEMP = ECPT(25)\r\nC\r\nC     SET UP  I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE\r\nC     X-SUB-B, X-SUB-C, AND Y-SUB-C.\r\nC\r\nC     E(11), E(14), E(17) WILL BE THE I-VECTOR.\r\nC     E(12), E(15), E(18) WILL BE THE J-VECTOR.\r\nC     E( 1), E( 4), E( 7) WILL BE THE K-VECTOR.\r\nC\r\nC     FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED)\r\nC\r\n      E(11) = X2 - X1\r\n      E(14) = Y2 - Y1\r\n      E(17) = Z2 - Z1\r\nC\r\nC     FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = SQRT(E(11)**2 + E(14)**2 + E(17)**2)\r\n      IF (XSUBB .GT. 1.0E-06) GO TO 10\r\n      CALL MESAGE (-30,37,ECPT(1))\r\nC\r\nC     NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n   10 E(11) = E(11)/XSUBB\r\n      E(14) = E(14)/XSUBB\r\n      E(17) = E(17)/XSUBB\r\nC\r\nC     TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8)\r\nC\r\n      E(2) = X3 - X1\r\n      E(5) = Y3 - Y1\r\n      E(8) = Z3 - Z1\r\nC\r\nC     X-SUB-C = I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8)\r\nC\r\nC     CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(1) = E(14)*E( 8) - E( 5)*E(17)\r\n      E(4) = E( 2)*E(17) - E(11)*E( 8)\r\n      E(7) = E(11)*E( 5) - E( 2)*E(14)\r\nC\r\nC     FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2)\r\n      IF (YSUBC .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE (-30,37,ECPT(1))\r\nC\r\nC     NORMALIZE K-VECTOR WITH Y-SUB-C\r\nC\r\n   20 E(1) = E(1)/YSUBC\r\n      E(4) = E(4)/YSUBC\r\n      E(7) = E(7)/YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS GET -- J = K CROSS I\r\nC\r\n      E(12) = E( 4)*E(17) - E(14)*E( 7)\r\n      E(15) = E(11)*E( 7) - E( 1)*E(17)\r\n      E(18) = E( 1)*E(14) - E(11)*E( 4)\r\nC\r\nC     NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE\r\nC\r\n      TEMP  = SQRT(E(12)**2 + E(15)**2 + E(18)**2)\r\n      E(12) = E(12)/TEMP\r\n      E(15) = E(15)/TEMP\r\n      E(18) = E(18)/TEMP\r\n      E( 2) = 0.0\r\n      E( 3) = 0.0\r\n      E( 5) = 0.0\r\n      E( 6) = 0.0\r\n      E( 8) = 0.0\r\n      E( 9) = 0.0\r\n      E(10) = 0.0\r\n      E(13) = 0.0\r\n      E(16) = 0.0\r\nC\r\nC     CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA.\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     SETTING UP G MATRIX\r\nC\r\n   30 MATID  = MATID1\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 50 I = 1,9\r\n   50 D(I) = G(I)*EYE\r\n      IF (IOPT .EQ. 0) CALL GMMATS (D,3,3,0, ALPHA1,3,1,0, ST(1))\r\nC\r\n      XBAR =(XSUBB + XSUBC)/3.0\r\n      YBAR = YSUBC/3.0\r\n      IF (IOPT .GT. 0) GO TO 60\r\n      XC = XBAR\r\n      YC = YBAR\r\nC\r\nC     FORMING K  5X6 AND STORING TEMPORARILY IN PH1OUT OUTPUT SPACE.\r\nC              S                             (EQUIVALENCED)\r\nC\r\n   60 XC3 = 3.0*XC\r\n      YC3 = 3.0*YC\r\n      YC2 = 2.0*YC\r\n      IF (STRAIN) GO TO 63\r\n      KS( 1) = D(1)\r\n      KS( 2) = D(3)\r\n      KS( 3) = D(2)\r\n      KS( 4) = D(1)*XC3\r\n      KS( 5) = D(2)*XC + D(3)*YC2\r\n      KS( 6) = D(2)*YC3\r\n      KS( 7) = D(2)\r\n      KS( 8) = D(6)\r\n      KS( 9) = D(5)\r\n      KS(10) = D(2)*XC3\r\n      KS(11) = D(5)*XC + D(6)*YC2\r\n      KS(12) = D(5)*YC3\r\n      KS(13) = D(3)\r\n      KS(14) = D(9)\r\n      KS(15) = D(6)\r\n      KS(16) = D(3)*XC3\r\n      KS(17) = D(6)*XC + D(9)*YC2\r\n      KS(18) = D(6)*YC3\r\nC\r\nC     ROWS 4 AND 5\r\nC\r\n      KS(19) = 0.0\r\n      KS(20) = 0.0\r\n      KS(21) = 0.0\r\n      KS(22) =-D(1)*6.0\r\n      KS(23) =-D(2)*2.0 - D(9)*4.0\r\n      KS(24) =-D(6)*6.0\r\n      KS(25) = 0.0\r\n      KS(26) = 0.0\r\n      KS(27) = 0.0\r\n      KS(28) =-D(3)*6.0\r\n      KS(29) =-D(6)*6.0\r\n      KS(30) =-D(5)*6.0\r\n      GO TO 67\r\n   63 CONTINUE\r\n      DO 65 I = 1,30\r\n      KS(I) = 0.0\r\n   65 CONTINUE\r\n      KS( 1) = 1.0\r\n      KS( 4) = XC3\r\n      KS( 9) = 1.0\r\n      KS(11) = XC\r\n      KS(12) = YC3\r\n      KS(14) = 0.5\r\n      KS(17) = YC\r\n   67 CONTINUE\r\nC\r\nC     MULTIPLY FIRST 3 ROWS BY 2.0\r\nC\r\n      DO 70 I = 1,18\r\n   70 KS(I) = KS(I)*2.0\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37) TRHU A(72)\r\nC\r\n      DO 90 I = 37,72\r\n   90 A(I) = 0.0\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0*XSUBB\r\n      A(52) =-3.0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.\r\n      A(65) = XCYC*2.0\r\n      A(66) = YCSQ*3.0\r\n      A(67) =-2.0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.0) GO TO 110\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 110\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73)...A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP  =  2.0*D(2) + 4.0*D(9)\r\n      A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6)\r\n      A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6)\r\n      A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 100 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n  100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  110 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .NE. 2) GO TO 120\r\nC\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,38,ECPT(1))\r\nC\r\nC     SAVE H-INVERSE IF TRI-PLATE IS CALLING\r\nC\r\n  120 DO 130 I = 1,36\r\n  130 HINV(I) = A(I+36)\r\nC\r\nC     FILL  S-MATRIX, EQUIVALENCED TO A(55).  (6X3)\r\nC\r\n      S( 1) = 1.0\r\n      S( 2) = 0.0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0\r\n      S( 5) = 1.0\r\n      S( 6) = 0.0\r\n      S( 7) = 0.0\r\n      S( 8) = 0.0\r\n      S( 9) = 1.0\r\n      S(10) = 1.0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0\r\n      S(14) = 1.0\r\n      S(15) = 0.0\r\n      S(16) = 0.0\r\n      S(17) = 0.0\r\n      S(18) = 1.0\r\nC\r\nC     COMPUTE  S , S ,  AND S    NO TRANSFORMATIONS\r\nC               A   B        C\r\nC\r\nC                -1\r\nC     S  = - K  H  S ,   S  = K  H   ,   S  = K  H\r\nC      A      S           B    S  IB      C    S  IC\r\nC\r\nC     S   COMPUTATION.\r\nC      A\r\nC\r\n      CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16))\r\nC\r\nC     DIVIDE  H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION.\r\nC\r\n      I = 0\r\n      J =-6\r\n  150 J = J + 6\r\n      K = 0\r\n  160 K = K + 1\r\n      I = I + 1\r\n      ISUB = J + K\r\n      HIB(I) = HINV(ISUB    )\r\n      HIC(I) = HINV(ISUB + 3)\r\n      IF (K .LT. 3 ) GO TO 160\r\n      IF (J .LT. 30) GO TO 150\r\nC\r\n      CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1))\r\nC\r\nC     MULTIPLY S SUB A BY (-1)\r\nC\r\n      DO 170 I = 1,15\r\n  170 A(I) = -A(I)\r\nC\r\nC     S  COMPUTATION\r\nC      B\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16))\r\nC\r\nC     S  COMPUTATION\r\nC      C\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31))\r\nC\r\nC     RETURN IF TRI OR QUAD PLATE ROUTINE IS CALLING.\r\nC\r\n      IF (IOPT .GT. 0) RETURN\r\nC                                   T\r\nC     TRANSFORM  S , S , S  WITH   E  T  , I = A,B,C\r\nC                 A   B   C            I\r\nC                              T         T\r\nC     COMPUTING TRANSPOSE OF  E  T  =  T  E\r\nC                                 I     I\r\n      DO 200 I = 1,3\r\nC\r\nC     POINTER TO S MATRIX = 15*I - 14\r\nC                 I\r\nC     POINTER TO OUTPUT POSITION = 30*I - 21\r\nC\r\nC     CHECK TO SEE IF T IS NEEDED.\r\nC\r\n      IF (NECPT(4*I+9)) 180,190,180\r\n  180 CALL TRANSS (NECPT(4*I+9),T)\r\n      CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      CALL GMMATS (A(15*I-14),5,3,0, TITE,6,3,1, PH1OUT(30*I-21))\r\n      GO TO 200\r\n  190 CALL GMMATS (A(15*I-14),5,3,0, E,6,3,1, PH1OUT(30*I-21))\r\n  200 CONTINUE\r\n      PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = ECPT(4)\r\nC\r\nC     PH1OUT(5) IS A DUMMY\r\nC\r\n      PH1OUT(6) = ECPT( 7)\r\n      PH1OUT(7) = ECPT(11)\r\n      PH1OUT(8) = ECPT(12)\r\nC\r\nC     PHASE I   BASIC BENDING TRIANGLE  SDR2 COMPLETE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stri31.f",
    "content": "      SUBROUTINE STRI31\r\nC\r\nC     ROUTINE TO RECOVER CTRIA3 ELEMENT FORCES, STRAINS, AND STRESSES.\r\nC     PHASE 1.\r\nC\r\nC     WAS NAMED T3ST1D/S IN UAI CODE\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\nC     ****************        RESIDES IN COMMON BLOCK SDR2X5 (AFTER EST)\r\nC     PH1OUT DATA BLOCK       TOTAL NO. OF WORDS = 713\r\nC     ****************\r\nC\r\nC     PH1OUT( 1)    = ELID, ELEMENT ID\r\nC     PH1OUT( 2- 4) = SIL NUMBERS\r\nC     PH1OUT( 5- 7) = ARRAY IORDER\r\nC     PH1OUT( 8)    = TSUB0, REFERENCE TEMP.\r\nC     PH1OUT( 9-10) = Z1 & Z2, FIBER DISTANCES\r\nC     PH1OUT(11)    = ID OF THE ORIGINAL PCOMPI PROPERTY ENTRY\r\nC     PH1OUT(12)    = DUMMY WORD (FOR ALLIGNMENT)\r\nC\r\nC     PH1RST( 1)    = AVGTHK, AVERAGE THICKNESS\r\nC     PH1RST( 2)    = MOMINR, MOMENT OF INER. FACTOR\r\nC     PH1RST( 3-38) = 6X6 MATERIAL PROPERTY MATRIX (NO SHEAR)\r\nC     PH1RST(39-41) = THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE\r\nC     PH1RST(42-44) = THERMAL EXPANSION COEFFICIENTS FOR BENDING\r\nC     PH1RST(45-47) = CORNER NODE THICKNESSES\r\nC     PH1RST(48)    = OFFSET OF ELEMENT FROM GP PLANE\r\nC     PH1RST(49-57) = 3X3 USER-TO-MATERIAL COORD. TRNASF. MATRIX UEM\r\nC     PH1RST(58-66) = 3X3 ELEM-TO-STRESS/STRAIN TRANSF. TENSOR TES\r\nC     PH1RST(67-93) = THREE 3X3 GLOBAL-TO-ELEM COORD. TRANSFORMATION\r\nC                     NODAL MATRICES TEG, ONE FOR EACH NODE\r\nC\r\nC     THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT (4 TIMES, AT\r\nC     THE CENTER OF THE ELEMENT AND AT 3 STANDARD TRIANGULAR POINTS).\r\nC     THE CHOICE OF THE FINAL STRESS/FORCE OUTPUT POINTS IS MADE AT THE\r\nC     SUBCASE LEVEL (PHASE 2).\r\nC\r\nC              1             ELEMENT THICKNESS AT THIS POINT\r\nC            2 - 5           OUT-OF-PLANE-SHEAR-FORCE/STRAIN MATRIX\r\nC            6 - 8           ELEMENT SHAPE FUNCTION VALUES\r\nC          8+1 - 8+8*NDOF    STRAIN RECOVERY MATRIX\r\nC\r\nC\r\nC     *****************      RESIDES IN COMMON BLOCK SDR2X6\r\nC     IELOUT DATA BLOCK      CONTAINS DATA FOR GPSRN\r\nC     *****************      (TOTAL NO OF WORDS =  77)\r\nC\r\nC              1             ELEMENT ID\r\nC              2             AVERAGE THICKNESS\r\nC\r\nC     THE FOLLOWING IS REPEATED FOR EACH NODE.\r\nC\r\nC         WORD  1            SIL NUMBER\r\nC         WORD  2-10         [TSB] FOR Z1\r\nC         WORD 11-19         [TSB] FOR Z2\r\nC         WORD 20-22         NORMAL VECTOR IN BASIC COORD. SYSTEM\r\nC         WORD 23-25         GRID COORDS   IN BASIC COORD. SYSTEM\r\nC\r\nC\r\n      LOGICAL         MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,\r\n     1                SHEART,NOALFA,USERST\r\n      INTEGER         NPHI(100),NEST(39),SIL(3),SILO,IGPDT(4,3),ELID,\r\n     1                NECPT(4),MID(4),PIDO,SCSID,FLAGS,HUNMEG,ITHERM,\r\n     2                NAME(2),INDEX(2,3),SYSBUF,NOUT,NOGO,PREC\r\n      REAL            RELOUT(300),GPTH(3),BGPDT(4,3),ECPT(4),\r\n     1                KHEAT,HTCP,TSUB0,GSUBE,ELTEMP,Z1O,Z2O\r\n      REAL            PH1RST,DGPTH(3),TH,AVGTHK,GPNORM(4,3),\r\n     1                EPNORM(4,3),EGPDT(4,3),CENTE(3),OFFSET,ALPHA(6),\r\n     2                GI(36),RHO,JOG,JOK,K11,K22,ZZ(4),AIC(18),\r\n     3                EGNOR(4),TSS,LX,LY,EDGLEN(3),MOMINR,TS,REALI,TSI,\r\n     4                TEU(9),TES(9),TEB(9),TBG(9),TUS(9),TEM(9),TSB(9),\r\n     5                TSM(9),TUB(9),TUM(9),THETAM,THETAS,UEM(9),VEM(4),\r\n     6                DETERM,BDUM(3),SHPT(3),BTERMS(6),BMAT1(486),\r\n     7                BMATRX(162),BMTRX(36),DRKCE(33)\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,NOGO,IDUM(51),PREC,ITHERM\r\n      COMMON /SDR2X5/ EST(100),\r\n     1                ELID,SILO(3),IORDER(3),TSUB0,Z1O,Z2O,PIDO,IDUMAL,\r\n     1                PH1RST(701)\r\n      COMMON /SDR2X6/ IELOUT(300)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /HMTOUT/ KHEAT(7),TYPE\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      EQUIVALENCE     (EST( 1),NEST(1) ), (EST( 2),SIL(1)),\r\n     1                (EST( 5),GPTH(1) ), (EST(10),ZOFF  ),\r\n     2                (EST(12),ELTH    ), (EST(23),INT   ),\r\n     3                (EST(26),ZOFF1   ), (EST(39),TEMPEL),\r\n     4                (EST(27),BGPDT(1,1), IGPDT(1,1))\r\n      EQUIVALENCE     (NPHI( 1),ELID   ), (NPHI (27),DRKCE(1) ),\r\n     1                (NECPT(1),ECPT(1)), (IELOUT(1),RELOUT(1)),\r\n     2                (HTCP,KHEAT(4))\r\n      DATA    HUNMEG, ISTART / 100000000, 93 /,  EPS / 1.0E-17 /\r\n      DATA    NAME  / 4HTRIA , 4H3           /\r\nC\r\nC     INITIALIZE\r\nC\r\n      NNODE  = 3\r\n      MOMINR = 0.0\r\n      TS     = 0.0\r\n      ELTEMP = TEMPEL\r\n      ELID   = NEST(1)\r\n      Z1O    = EST(18)\r\n      Z2O    = EST(19)\r\n      PIDO   = NEST(11) - HUNMEG\r\n      MCSID  = NEST(21)\r\n      SCSID  = NEST(24)\r\n      FLAGS  = NEST(25)\r\n      USERST = SCSID.LT.0 .AND. FLAGS.EQ.1\r\n      NOALFA = .FALSE.\r\n      SHEART = .TRUE.\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     START FILLING IN THE DATA BLOCKS\r\nC\r\n      IELOUT(1) = ELID\r\n      DO 20 I = 1,3\r\n      IELOUT(3+(I-1)*25) = SIL(I)\r\n      DO 10 J = 1,3\r\n      RELOUT(25*I+J-1) = BGPDT(J+1,I)\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n      CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 600\r\n      CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU)\r\n      DO 30 I = 1,3\r\n      SILO(I) = SIL(I)\r\n   30 CONTINUE\r\nC\r\nC     SET THE NUMBER OF DOF'S\r\nC\r\n      NNOD2 = NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NPART = NDOF*NDOF\r\n      ND2   = NDOF*2\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\n      ND8   = NDOF*8\r\n      ND9   = NDOF*9\r\nC\r\nC     PASS THE LOCATION OF THE ELEMENT CENTER FOR TRANSFORMATIONS.\r\nC\r\n      DO 40 IEC = 2,4\r\n      ECPT(IEC) = CENTE(IEC-1)\r\n   40 CONTINUE\r\nC\r\nC     STRESS TRANSFORMATIONS\r\nC\r\n      IF (.NOT.USERST) GO TO 50\r\n      EST (24) = 0.0\r\n      NEST(25) = 0\r\n   50 CALL SHCSGS (*620,NEST(25),NEST(24),EST(24),NEST(25),NEST(24),\r\n     1             EST(24),NECPT,TUB,SCSID,THETAS,TUS)\r\n      CALL GMMATS (TEU,3,3,0, TUS,3,3,0, TES)\r\nC\r\nC     OBTAIN MATERIAL INFORMATION\r\nC\r\nC     SET MATERIAL FLAGS\r\nC     0.83333333 = 5.0/6.0\r\nC\r\n      IF (NEST(13) .NE.   0) MOMINR = EST(14)\r\n      IF (NEST(13) .NE.   0) TS = EST(16)\r\n      IF ( EST(16) .EQ. 0.0) TS = 0.83333333\r\n      IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333\r\nC\r\n      MID(1) = NEST(11)\r\n      MID(2) = NEST(13)\r\n      MID(3) = NEST(15)\r\n      MID(4) = NEST(20)\r\nC\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH = .FALSE.\r\nC\r\nC     SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD. SYSTM\r\nC\r\n      CALL SHCSGS (*610,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20),\r\n     1             NEST(20),NECPT,TUB,MCSID,THETAM,TUM)\r\nC\r\nC     BRANCH ON FORMULATION TYPE, HEAT\r\nC\r\n      IF (ITHERM .NE. 0) GO TO 500\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\n      CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM)\r\n      CALL GMMATS (TES,3,3,1, TEM,3,3,0, TSM)\r\n      CALL SHGMGS (*630,ELID,TSM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0,\r\n     1             EGNOR,ALPHA)\r\nC\r\nC     TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL\r\nC     CALCULATED ZERO TERMS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 70\r\n      DO 60 I = 28,36\r\n      IF (ABS(GI(I)) .GT. EPS) GO TO 70\r\n   60 CONTINUE\r\n      MBCOUP = .FALSE.\r\n   70 CONTINUE\r\nC\r\nC     CONTINUE FILLING IN THE DATA BLOCKS\r\nC\r\n      PH1RST( 1) = AVGTHK\r\n      PH1RST( 2) = MOMINR\r\n      PH1RST(48) = OFFSET\r\n      RELOUT( 2) = AVGTHK\r\nC\r\nC     PUT NORMALS IN IELOUT, GRID THICKNESS IN PH1OUT\r\nC\r\n      DO 80 I = 1,NNODE\r\n      IO  = IORDER(I)\r\n      IOP = (IO-1)*25 + 21\r\n      RELOUT(IOP+1) = GPNORM(2,I)\r\n      RELOUT(IOP+2) = GPNORM(3,I)\r\n      RELOUT(IOP+3) = GPNORM(4,I)\r\n      PH1RST(44+IO) = DGPTH(I)\r\n   80 CONTINUE\r\nC\r\nC     CALCULATE [TSB] AND STORE IT IN IELOUT.\r\nC\r\n      CALL GMMATS (TES,3,3,1, TEB,3,3,0, TSB)\r\n      ND25 = NNODE*25\r\n      DO 100 IP2 = 3,ND25,25\r\n      DO 90 IX = 1,9\r\n      RELOUT(IP2+IX  ) = TSB(IX)\r\n      RELOUT(IP2+IX+9) = TSB(IX)\r\n   90 CONTINUE\r\n  100 CONTINUE\r\nC\r\nC     STORE ALPHA IN PH1RST(39-44)\r\nC\r\n      DO 110 IALF = 1,6\r\n      PH1RST(38+IALF) = ALPHA(IALF)\r\n  110 CONTINUE\r\nC\r\nC     STORE UEM IN PH1RST(49-57)\r\nC     STORE TES IN PH1RST(58-66)\r\nC\r\n      CALL SHSTTS (TEM,UEM,VEM)\r\n      DO 120 LL = 1,9\r\n      PH1RST(48+LL) = UEM(LL)\r\n      PH1RST(57+LL) = TES(LL)\r\n  120 CONTINUE\r\nC\r\nC     STORE THE 6X6 [G] IN PH1RST\r\nC\r\n      DO 130 IG = 3,38\r\n      PH1RST(IG) = 0.0\r\n  130 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 160\r\n      DO 150 IG = 1,3\r\n      IG1 = (IG-1)*6 + 2\r\n      IG2 = (IG-1)*3\r\n      DO 140 JG = 1,3\r\n      PH1RST(IG1+JG) = GI(IG2+JG)\r\n  140 CONTINUE\r\n  150 CONTINUE\r\nC\r\n  160 IF (.NOT.BENDNG) GO TO 210\r\n      DO 180 IG = 1,3\r\n      IG1 = (IG-1)*6 + 23\r\n      IG2 = (IG-1)*3 +  9\r\n      DO 170 JG = 1,3\r\n      PH1RST(IG1+JG) = GI(IG2+JG)*MOMINR\r\n  170 CONTINUE\r\n  180 CONTINUE\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 210\r\n      DO 200 IG = 1,3\r\n      IG3 = (IG-1)*3\r\n      IG1 =  IG3 +  5\r\n      IG2 =  IG3 + 27\r\n      IG3 =  IG3 + 20\r\n      DO 190 JG = 1,3\r\n      PH1RST(IG1+JG) = GI(IG2+JG)\r\n      PH1RST(IG3+JG) = GI(IG2+JG)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n  210 CONTINUE\r\nC\r\nC     CALCULATE [TEG] FOR EACH NODE AND STORE IT IN PH1RST\r\nC\r\n      DO 220 I = 1,NNODE\r\n      IP = 67 + (I-1)*9\r\n      CALL TRANSS (IGPDT(1,I),TBG)\r\n      CALL GMMATS (TEB,3,3,0, TBG,3,3,0, PH1RST(IP))\r\n  220 CONTINUE\r\nC\r\nC     GET THE GEOMETRY CORRECTION TERMS\r\nC\r\n      IF (.NOT.BENDNG) GO TO 230\r\n      CALL T3GEMS (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX,\r\n     1             AIC,JOG,JOK,K11,K22)\r\n      IF (IERR .NE. 0) GO TO 600\r\nC\r\nC     REDUCED INTEGRATION\r\nC\r\n  230 IF (INT .NE. 0) GO TO 260\r\nC\r\nC     DETERMINE THE AVERAGE [B] FOR OUT-OF-PLANE SHEAR\r\nC\r\n      DO 240 IPT = 1,3\r\n      KPT = (IPT-1)*ND9 + 1\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMAT1(KPT))\r\n      IF (IERR .NE. 0) GO TO 600\r\n  240 CONTINUE\r\nC\r\n      DO 250 I = 1,NDOF\r\n      BMTRX(I     ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9)\r\n      BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9)\r\n  250 CONTINUE\r\nC\r\nC     STRAIN/STRESS EVALUATION LOOP\r\nC\r\nC     PRESET THE PH1RST COUNTER TO THE START OF THE REPEATED SECTION\r\nC     WHICH WILL NOW BE FILLED.\r\nC\r\n  260 ICOUNT =  ISTART\r\nC\r\n      DO 400 IPT = 4,7\r\nC\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 600\r\nC\r\n      IF (INT .NE. 0) GO TO 310\r\n      DO 300 IX = 1,NDOF\r\n      BMATRX(IX+ND6) = BMTRX(IX     )\r\n      BMATRX(IX+ND7) = BMTRX(IX+NDOF)\r\n  300 CONTINUE\r\nC\r\nC     FINISH FILLING IN THE DATA BLOCKS\r\nC\r\nC     STORE THICKNESS\r\nC\r\n  310 PH1RST(ICOUNT+1) = TH\r\nC\r\nC     STORE [G3]\r\nC\r\n      IF (.NOT.BENDNG) GO TO 330\r\n      REALI = MOMINR*TH*TH*TH/12.0\r\n      TSI   = TS*TH\r\n      TSS   = 1.0/(2.0*12.0*REALI)\r\nC\r\n      ZZ(1) = (JOG/TSI)* GI(22) + TSS*JOK*K22\r\n      ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0\r\n      ZZ(3) = ZZ(2)\r\n      ZZ(4) = (JOG/TSI)* GI(19) + TSS*JOK*K11\r\nC\r\n      CALL INVERS (2,ZZ,2,BDUM,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 1) GO TO 600\r\nC\r\n      DO 320 IG = 1,4\r\n      PH1RST(ICOUNT+1+IG) = ZZ(IG)\r\n  320 CONTINUE\r\n      GO TO 350\r\nC\r\n  330 DO 340 IG = 1,4\r\n      PH1RST(ICOUNT+1+IG) = 0.0\r\n  340 CONTINUE\r\nC\r\nC     STORE SHAPE FUNCTION VALUES\r\nC\r\n  350 DO 360 I = 1,NNODE\r\n      PH1RST(ICOUNT+5+I) = SHPT(I)\r\n  360 CONTINUE\r\nC\r\nC     STORE THE STRAIN RECOVERY MATRIX\r\nC\r\n      DO 370 IPH = 1,ND8\r\n      PH1RST(ICOUNT+8+IPH) = BMATRX(IPH)\r\n  370 CONTINUE\r\nC\r\nC     END OF THE EVALUATION LOOP\r\nC\r\nC     INCREMENT THE PH1RST COUNTER\r\nC\r\n      ICOUNT = ICOUNT + 8 + 8*NDOF\r\nC\r\n  400 CONTINUE\r\n      GO TO 700\r\nC\r\nC\r\nC     BEGINNING OF HEAT FORCE RECOVERY\r\nC\r\n  500 CONTINUE\r\nC\r\nC     SET UP FOR THE UNIVERSAL PHASE 2 HEAT RECOVERY\r\nC\r\n      NPHI(22) = 2\r\n      NPHI(23) = NNODE\r\n      NPHI(24) = NAME(1)\r\n      NPHI(25) = NAME(2)\r\nC\r\n      SHEART = .FALSE.\r\n      IPT = 4\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 600\r\nC\r\n      MATID  = NEST(11)\r\n      INFLAG = 2\r\n      THETAS = THETAS - THETAM\r\n      SINMAT = SIN(THETAS)\r\n      COSMAT = COS(THETAS)\r\n      CALL HMAT (ELID)\r\nC\r\n      DRKCE(1) = KHEAT(1)\r\n      DRKCE(2) = KHEAT(2)\r\n      DRKCE(3) = KHEAT(2)\r\n      DRKCE(4) = KHEAT(3)\r\nC\r\n      TES(3) = TES(4)\r\n      TES(4) = TES(5)\r\n      CALL GMMATS (TES,2,2,1, BTERMS,2,NNODE,0, DRKCE(10))\r\nC\r\n      GO TO 700\r\nC\r\nC\r\nC     FATAL ERRORS\r\nC\r\nC     CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS\r\nC\r\n  600 J = 224\r\n      GO TO 640\r\nC\r\nC     THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION\r\nC     ON THE PLANE OF THE CTRIA3 ELEMENT\r\nC\r\n  610 J = 225\r\n      NEST(2) = MCSID\r\n      GO TO 640\r\nC\r\nC     THE X-AXIS OF THE STRESS COORDINATE SYSTEM ID HAS NO PROJECTION\r\nC     ON THE PLANE OF THE CTRIA3 ELEMENT\r\nC\r\n  620 J = 227\r\n      NEST(2) = SCSID\r\n      GO TO 640\r\nC\r\nC     ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT\r\nC     FOR MID3 APPLICATION\r\nC\r\n  630 J = 226\r\n      NEST(2) = MID(3)\r\nC\r\n  640 CALL MESAGE (30,J,NEST(1))\r\n      NOGO = 1\r\nC\r\n  700 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stri32.f",
    "content": "      SUBROUTINE STRI32\r\nC\r\nC     ROUTINE TO RECOVER CTRIA3 ELEMENT FORCES, STRAINS, AND STRESSES.\r\nC     PHASE 2.\r\nC\r\nC     WAS NAMED T3ST2D/S (DISP) IN UAI CODE\r\nC\r\nC     ALGORITHM:\r\nC\r\nC     1- STRAIN RECOVERY DATA IS SENT BY PHASE 1 THRU PH1OUT IN /SDR2X7/\r\nC        WHICH INCLUDES ALL THE NECESSARY TRANSFORMATIONS AND STRAIN\r\nC        RECOVERY MATRICES. A MAJOR PORTION OF THE DATA IS REPEATED FOR\r\nC        EACH STRESS EVALUATION POINT.\r\nC     2- GLOBAL DISPLACEMENT VECTOR, WHICH RESIDES IN CORE, IS PASSED TO\r\nC        THE ROUTINE THRU THE CALLING SEQUENCE.\r\nC     3- NSTROP IN /SDR2C1/ CONTAINS THE STRESS OUTPUT REQUEST OPTION\r\nC        FOR THE CURRENT SUBCASE.\r\nC     4- WORD 151 OF /SDR2DE/ CONTAINS THE STRAIN OUTPUT REQUEST OPTION\r\nC        FOR THE CURRENT SUBCASE (NEPSOP).\r\nC     5- ELEMENT/GRID POINT TEMPERATURE DATA ENTERS THE ROUTINE THRU\r\nC        /SDR2DE/ (POSITIONS 97-129.)\r\nC     6- ELEMENT STRAINS ARE CALCULATED, CORRECTED FOR THERMAL STRAINS,\r\nC        AND PREMULTIPLIED BY [G].\r\nC\r\nC\r\nC     *****************       RESIDES IN COMMON BLOCK /SDR2X7/\r\nC     PH1OUT DATA BLOCK       TOTAL NO. OF WORDS =  713\r\nC     *****************\r\nC\r\nC     PH1OUT( 1)    = ELID, ELEMENT ID\r\nC     PH1OUT( 2- 4) = SIL NUMBERS\r\nC     PH1OUT( 5- 7) = ARRAY IORDER\r\nC     PH1OUT( 8)    = TSUB0, REFERENCE TEMP.\r\nC     PH1OUT( 9-10) = Z1 AND Z2, FIBER DISTANCES\r\nC     PH1OUT(11)    = ID OF THE ORIGINAL PCOMPI PROPERTY ENTRY\r\nC     PH1OUT(12)    = DUMMY WORD (FOR ALLIGNMENT)\r\nC\r\nC     PH1RST( 1)    = AVGTHK, AVERAGE THICKNESS\r\nC     PH1RST( 2)    = MOMINR, MOMENT OF INER. FACTOR\r\nC     PH1RST( 3-38) = 6X6 MATERIAL PROPERTY (NO SHEAR)\r\nC     PH1RST(39-41) = THERMAL EXPANSION COEFFICIENTS FOR MEMBRANE\r\nC     PH1RST(42-44) = THERMAL EXPANSION COEFFICIENTS FOR BENDING\r\nC     PH1RST(45-47) = NODAL   THICKNESSES\r\nC     PH1RST(48)    = OFFSET OF ELEMENT FROM GP PLANE\r\nC     PH1RST(49-57) = 3X3 USER-TO-MATERIAL COORD. TRANSF. MATRIX, UEM\r\nC     PH1RST(58-66) = 3X3 ELEM-TO-STRSS/STRAIN  TRANSF. TENSOR, TES\r\nC     PH1RST(67-93) = 3X3 GLOBAL-TO-ELEM COORD. TRANSF. MATRICES, TEG,\r\nC                     ONE FOR EACH NODE\r\nC\r\nC     THE FOLLOWING IS REPEATED FOR EACH EVALUATION POINT (4 TIMES).\r\nC     THE EVALUATION POINTS ARE AT THE CENTER OF THE ELEMENT AND\r\nC     STANDARD TRIANGULAR POINTS. THE CHOICE OF THE FINAL STRESS/\r\nC     FORCE OUTPUT POINTS IS MADE AT THE SUBCASE LEVEL (PHASE 2).\r\nC\r\nC              1             ELEMENT THICKNESS AT THIS POINT\r\nC            2 - 5           OUT-OF-PLANE-SHEAR-FORCE/STRAIN MATRIX\r\nC            6 - 8           ELEMENT SHAPE FUNCTION VALUES\r\nC          8+1 - 8+8*NDOF    STRAIN RECOVERY MATRIX\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         COMPOS,STSREQ,STNREQ,FORREQ,TEMPER,TEMPP1,TEMPP2,\r\n     1                GRIDS ,VONMS ,LAYER ,BENDNG,STRCUR,\r\n     2                GRIDSS,VONMSS,LAYERS\r\nCWKBI NCL93012 3/94\r\n      LOGICAL         OSTRAI\r\n      INTEGER         ELID,CENTER,EXTRNL,\r\n     1                FLAG,COMPS,ANDF,LDTEMP,DEVICE,OES1L,OEF1L,OES1AL\r\n      REAL            G(6,6),ALFAM(3),ALFAB(3),GPTH(3),STEMP(8)\r\nCWKBR NCL93012 3/94 COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS \r\n      COMMON /BLANK / APP(2),SORT2,IDUM(2),COMPS, SKP(4), OSTRAI \r\n      COMMON /ZZZZZZ/ DISP(1)\r\n      COMMON /SDR2X2/ DUMM(30),OES1L,OEF1L\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP\r\nC    1,               DUM(13),KTYPE\r\n      COMMON /SDR2C1/ IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2,NSTROP\r\n      COMMON /SDR2DE/ KSDRDE(200)\r\n      COMMON /SDR2X7/ ELID,KSIL(3),IORDER(3),TSUB0,Z1O,Z2O,IPID,\r\n     1                IDUMAL,PH1RST(701)\r\n      COMMON /SDR2X8/ EXTRNL(6),IGRID(4),IDR(3),INDXG2(3,3),THIKNS(4),\r\n     1                Z12(2,4),DELTA(39),DELTAT(6),TDELTA(6),G2(3,3),\r\n     2                U(36),STEMPD(3),EPSLN(8),EPSLNM(6),EPSLNT(6),\r\n     3                VXVY(2),EPSCSI(6,4),EPSUSI(6,4),QVECI(2,4),\r\n     4                EPSCMI(6,4),EPSUMI(6,4),TES(9),UES(9),VES(4),\r\n     5                UEM(9),G2ALFB(3,4),\r\n     6                GDUM,DETG2,T3OV12,OFFSET,TBAR\r\n      COMMON /OUTREQ/ STSREQ,STNREQ,FORREQ,STRCUR,GRIDS,VONMS,LAYER,\r\n     1                GRIDSS,VONMSS,LAYERS\r\n      COMMON /TMPDAT/ TEMPER,TEMPP1,TEMPP2\r\n      EQUIVALENCE     (IZ1O,Z1O),(IZ2O,Z2O),\r\n     1                (AVGTHK,PH1RST(1)),(MOMINR,PH1RST(2)),\r\n     2                (G(1,1),PH1RST(3)),(ALFAM(1),PH1RST(39)),\r\n     3                (ALFAB(1),PH1RST(42)),(GPTH(1),PH1RST(45)),\r\n     4                (DEVICE,KSDRDE(2)),(NEPSOP,KSDRDE(151)),\r\n     5                (KSTRS,KSDRDE(42)),(KSTRN ,KSDRDE(142)),\r\n     6                (KFORC,KSDRDE(41)),(STEMP(1),KSDRDE(97)),\r\n     7                (STEMP(7),FLAG)   ,(OES1AL,OES1L)\r\n      DATA    ISTART/ 93    /\r\n      DATA    CENTER/ 4HCNTR/\r\n      DATA    NBLNK / 4HBLNK/\r\nC\r\nC     INITIALIZE\r\nC\r\nC     NNODE  = TOTAL NUMBER OF NODES\r\nC     NDOF   = TOTAL NUMBER OF DEGREES OF FREEDOM\r\nC     LDTEMP = FLAG INDICATING THE PRESENCE OF TEMPERATURE LOADS\r\nC     ICOUNT = POINTER FOR PH1RST DATA\r\nC\r\nC     STRCUR = STRAIN/CURVATURE OUTPUT REQUEST FLAG\r\nC\r\n      NNODE  = 3\r\n      NDOF   = 6*NNODE\r\n      NDOF8  = 8*NDOF\r\n      TEMPER = LDTEMP .NE. -1\r\n      BENDNG = MOMINR .GT. 0.0\r\nC\r\nC     CHECK FOR OFFSET AND COMPOSITES\r\nC\r\n      OFFSET = PH1RST(48)\r\n      COMPOS = COMPS.EQ.-1 .AND. IPID.GT.0\r\nC\r\nC     CHECK THE OUTPUT STRESS FORCE AND STRAIN REQUESTS\r\nC\r\n      STSREQ = KSTRS .EQ. 1\r\n      FORREQ = KFORC .EQ. 1\r\n      STNREQ = KSTRN .EQ. 1\r\nC\r\nC     STRESS OUTPUT REQUEST FLAGS\r\nC\r\nC     GRIDS = ANDF(NSTROP, 1).NE.0\r\nC     VONMS = ANDF(NSTROP, 8).NE.0\r\nC     LAYER = ANDF(NSTROP,32).NE.0 .AND. COMPOS .AND. KTYPE.EQ.1\r\nC\r\n      GRIDS = .FALSE.\r\n      VONMS = ANDF(NSTROP,1) .NE. 0\r\n      LAYER = ANDF(NSTROP,2) .NE. 0\r\nC\r\nC     STRAIN OUTPUT REQUEST FLAGS\r\nC\r\nC     GRIDSS = ANDF(NEPSOP,  1).NE.0 .AND. STNREQ\r\nC     VONMSS = ANDF(NEPSOP,  8).NE.0 .AND. STNREQ\r\nC     LAYERS = ANDF(NEPSOP, 32).NE.0 .AND. COMPOS .AND. KTYPE.EQ.1\r\nC     STRCUR = ANDF(NEPSOP,128).NE.0 .AND. STNREQ\r\nC\r\n      GRIDSS = .FALSE.\r\n      VONMSS = .FALSE.\r\n      LAYERS = .FALSE.\r\n      STRCUR = .FALSE.\r\nCWKBNB NCL93012 3/94\r\n      STNREQ = OSTRAI\r\n      STRCUR = OSTRAI\r\nCWKBNE NCL93012 3/94\r\nC\r\nC     IF USER ERRONEOUSLY REQESTS LAYERED OUTPUT AND THERE ARE NO LAYER-\r\nC     COMPOSITE DATA, SET LAYER FLAGS TO FALSE\r\nC\r\n      IF (NPCMP+NPCMP1+NPCMP2 .GT. 0) GO TO 10\r\n      LAYER  = .FALSE.\r\n      LAYERS = .FALSE.\r\n      GO TO 20\r\nC\r\nC     USER CORRECTLY REQUESTS LAYERED OUTPUT, BUT CURRENT ELEMENT IS NOT\r\nC     A LAYER-COMPOSITE; SET LAYER FLAGS TO FALSE\r\nC\r\n   10 IF (IPID .GT. 0) GO TO 20\r\n      LAYER  = .FALSE.\r\n      LAYERS = .FALSE.\r\nC\r\nC     SET DEFAULTS FOR FORCE IF STRESS ABSENT\r\nC\r\n   20 IF (.NOT.FORREQ .OR. NSTROP.NE.0) GO TO 30\r\n      LAYER = .FALSE.\r\nC\r\nC     CHECK FOR THE TYPE OF TEMPERATURE DATA (SET BY SDRETD)\r\nC     - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3.\r\nC     - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT.\r\nC\r\n   30 TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ.  2\r\nC\r\nC     GET THE EXTERNAL GRID POINT ID NUMBERS FOR CORRESPONDING SIL NOS.\r\nC\r\nC     CALL FNDGID (ELID,3,KSIL,EXTRNL)\r\nC\r\n      DO 40 I = 1,NNODE\r\n   40 EXTRNL(I) = 0\r\nC\r\nC     COMMENTS FROM G.C.  2/1990\r\nC     EXTRNL ARE SET TO ZEROS HERE. IT IS USED LATER FOR SETTING IDR\r\nC     ARRAY. BOTH EXTRNL AND IDR ARE USED ONLY WHEN GRIDS IS TRUE.\r\nC     IN COSMIC VERSION, GRIDS IS FALSE.\r\nC\r\nC\r\nC     PREPARE TO REARRANGE STRESSES, STRAINS, AND FORCES ACCORDING TO\r\nC     EXTERNAL ORDER\r\nC\r\n      IF (.NOT.GRIDS .AND. .NOT.GRIDSS) GO TO 70\r\n      DO 60 INPL = 1,3\r\n      DO 50 I = 1,NNODE\r\n      IF (IORDER(I) .NE. INPL) GO TO 50\r\n      IDR(INPL) = EXTRNL(I)\r\n      GO TO 60\r\n   50 CONTINUE\r\n   60 CONTINUE\r\n      GO TO 80\r\n   70 IDR(1) = 1\r\n      IDR(2) = 2\r\n      IDR(3) = 3\r\nC\r\nC     ARRANGE THE INCOMING DATA\r\nC\r\nC     SORT THE GRID TEMPERATURE CHANGES INTO SIL ORDER\r\nC\r\n   80 IF (.NOT.TEMPER .OR. (TEMPP1 .AND. TEMPP2)) GO TO 100\r\n      DO 90 K = 1,NNODE\r\n      KPOINT = IORDER(K)\r\n      DELTAT(K) = STEMP(KPOINT)\r\n   90 CONTINUE\r\nC\r\nC     PICK UP THE GLOBAL DISPLACEMENT VECTOR AND TRANSFORM IT INTO THE\r\nC     ELEMENT COORD. SYSTEM\r\nC\r\n  100 DO 120 IDELT = 1,NNODE\r\n      JDELT = IVEC + KSIL(IDELT) - 2\r\n      KDELT = 6*(IDELT-1) + 1\r\n      DO 110 LDELT = 1,6\r\n      TDELTA(LDELT) = DISP(JDELT+LDELT)\r\n  110 CONTINUE\r\nC\r\nC     FETCH [TEG] 3X3 FOR EACH NODE, LOAD IT INTO A 6X6 MATRIX AND\r\nC     INCLUDE THE EFFECTS OF OFFSET\r\nC\r\n      CALL TLDRS  (OFFSET,IDELT,PH1RST(67),U)\r\n      CALL GMMATS (U,6,6,0, TDELTA,6,1,0, DELTA(KDELT))\r\n  120 CONTINUE\r\nC\r\nC     RECOVER THE STRESS-TO-ELEMENT ORTHOGONAL TRANSFORMATION AND BUILD\r\nC     THE ELEMENT-TO-STRESS 'STRAIN' TENSOR TRANSFORMATION.\r\nC     IF LAYER OUTPUT IS REQUESTED, STRAINS MUST BE TRANSFORMED TO THE\r\nC     MATERIAL COORDINATE SYSTEM.\r\nC\r\n      DO 130 I = 1,9\r\n      UEM(I) = PH1RST(48+I)\r\n      TES(I) = PH1RST(57+I)\r\n  130 CONTINUE\r\n      CALL SHSTTS (TES,UES,VES)\r\nC\r\nC     RECOVER STRAINS AT EVALUATION POINTS\r\nC\r\nC     THE ARRANGEMENT OF EVALUATION POINTS ON THE MID-SURFACE FOLLOWS\r\nC     THE SEQUENCE OF GRID POINTS AS INPUT BY THE USER. THEREFORE,\r\nC     SHUFFLING OF DATA IS ONLY REQUIRED TO MATCH THE USER-DEFINED ORDER\r\nC     OF INPUT.\r\nC\r\nC     PRESET THE PH1RST COUNTER TO THE START OF THE REPEATED SECTION\r\nC     WHICH WILL NOW BE FILLED.\r\nC\r\n      ICOUNT = ISTART\r\nC\r\n      DO 500 INPLAN = 1,4\r\nC\r\nC     MATCH GRID ID NUMBER WHICH IS IN SIL ORDER\r\nC\r\n      IGRID(INPLAN) = CENTER\r\n      IF (INPLAN .LE. 1) GO TO 210\r\n      DO 200 I = 1,NNODE\r\n      IF (IORDER(I) .NE. INPLAN-1) GO TO 200\r\n      IGRID(INPLAN) = EXTRNL(I)\r\n  200 CONTINUE\r\nC\r\nC     THICKNESS AND MOMENT OF INERTIA AT THIS POINT\r\nC\r\n  210 THIKNS(INPLAN) = PH1RST(ICOUNT+1)\r\n      IF ((GRIDS .OR. GRIDSS) .AND. INPLAN.NE.1)\r\n     1     THIKNS(INPLAN) = GPTH(INPLAN-1)\r\n      T3OV12 = THIKNS(INPLAN)**3/12.0\r\nC\r\nC     DETERMINE FIBER DISTANCE VALUES\r\nC\r\n      Z12(1,INPLAN) = Z1O\r\n      IF (IZ1O .EQ. NBLNK) Z12(1,INPLAN) =-0.5*THIKNS(INPLAN)\r\nC\r\n      Z12(2,INPLAN) = Z2O\r\n      IF (IZ2O .EQ. NBLNK) Z12(2,INPLAN) = 0.5*THIKNS(INPLAN)\r\nC\r\nC\r\nC     FIRST COMPUTE LOCAL STRAINS UNCORRECTED FOR THERMAL STRAINS AT\r\nC     THIS EVALUATION POINT.\r\nC\r\nC     EPSLN = PH1RST(KSIG) * DELTA\r\nC       EPS =        B     *   U\r\nC       8X1        8XNDOF    NDOFX1\r\nC\r\n      CALL GMMATS (PH1RST(ICOUNT+9),8,NDOF,0, DELTA(1),NDOF,1,0, EPSLN)\r\nC\r\n      IF (.NOT.LAYER .AND. .NOT.LAYERS) GO TO 230\r\nC\r\nC     TRANSFORM UNCORRECTED STRAINS FROM ELEMENT TO MATERIAL COORD.\r\nC     SYSTEM TO BE USED FOR ELEMENT LAYER STRAINS\r\nC\r\n      CALL GMMATS (UEM(1),3,3,0, EPSLN(1),3,1,0, EPSUMI(1,INPLAN))\r\n      CALL GMMATS (UEM(1),3,3,0, EPSLN(4),3,1,0, EPSUMI(4,INPLAN))\r\nC\r\n      DO 220 I = 1,6\r\n      EPSCMI(I,INPLAN) = EPSUMI(I,INPLAN)\r\n  220 CONTINUE\r\nC\r\n  230 IF (.NOT.FORREQ .AND. LAYER .AND. LAYERS) GO TO 250\r\nC\r\nC     TRANSFORM UNCORRECTED STRAINS FROM ELEMENT TO STRESS COORD. SYSTEM\r\nC     TO BE USED FOR ELEMENT STRAINS\r\nC\r\n      CALL GMMATS (UES(1),3,3,0, EPSLN(1),3,1,0, EPSUSI(1,INPLAN))\r\n      CALL GMMATS (UES(1),3,3,0, EPSLN(4),3,1,0, EPSUSI(4,INPLAN))\r\nC\r\n      DO 240 I = 1,6\r\n      EPSCSI(I,INPLAN) = EPSUSI(I,INPLAN)\r\n  240 CONTINUE\r\nC\r\nC     IF REQUIRED, COMPUTE SHEAR FORCES AT THIS EVALUATION POINT IN THE\r\nC     ELEMENT COORD. SYSTEM, THEN TRANSFORM AND STORE THEM. CONSULT\r\nC     SHSTTS DOCUMENTATION ON WHY [VES] MAY BE USED TO TRANSFORM FORCES\r\nC     DESPITE THE FACT THAT IT IS MEANT FOR STRAINS.\r\nC     SHEAR STRAINS MAY NOT BE TRANSFORMED BEFORE MULTIPLICATION BECAUSE\r\nC     [G3] IS DIRECTION-DEPENDENT.\r\nC\r\n  250 IF (.NOT.(FORREQ .OR. LAYER .OR. LAYERS)) GO TO 260\r\n      CALL GMMATS (PH1RST(ICOUNT+2),2,2,0, EPSLN(7),2,1,0, VXVY)\r\n      CALL GMMATS (VES(1),2,2,0, VXVY,2,1,0, QVECI(1,INPLAN))\r\nC\r\nC     CALCULATE THERMAL STRAINS IF TEMPERATURES ARE PRESENT\r\nC\r\n  260 IF (.NOT.TEMPER) GO TO 420\r\n      DO 270 IET = 1,6\r\n      EPSLNT(IET) = 0.0\r\n  270 CONTINUE\r\nC\r\nC     MEMBRANE STRAINS\r\nC\r\n      IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 280\r\n      TBAR = STEMP(1)\r\n      GO TO 300\r\n  280 TBAR = 0.0\r\n      DO 290 ISH = 1,NNODE\r\n      TBAR = TBAR + PH1RST(ICOUNT+5+ISH)*DELTAT(ISH)\r\n  290 CONTINUE\r\nC\r\n  300 DO 310 IEPS = 1,3\r\n      EPSLNT(IEPS) = (TBAR-TSUB0)*ALFAM(IEPS)\r\n  310 CONTINUE\r\nC\r\nC     BENDING STRAINS (ELEMENT TEMPERATURES ONLY)\r\nC\r\n      IF (.NOT.BENDNG .OR. .NOT.(TEMPP1 .AND. TEMPP2)) GO TO 390\r\nC\r\nC     EXTRACT [G2] FROM [G]\r\nC\r\n      DO 330 IG2 = 1,3\r\n      DO 320 JG2 = 1,3\r\n      G2(IG2,JG2) = G(IG2+3,JG2+3)\r\n  320 CONTINUE\r\n  330 CONTINUE\r\n      CALL GMMATS (G2,3,3,0, ALFAB,3,1,0, G2ALFB(1,INPLAN))\r\nC\r\n      IF (.NOT.TEMPP2) GO TO 370\r\n      DO 350 IG2 = 1,3\r\n      DO 340 JG2 = 1,3\r\n      G2(IG2,JG2) = G2(IG2,JG2)*T3OV12\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\n      DO 360 ITMP = 1,3\r\n      STEMPD(ITMP) = STEMP(ITMP+1)\r\n  360 CONTINUE\r\nC\r\n      CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2)\r\n      CALL GMMATS (G2,3,3,0, STEMPD,3,1,0, EPSLNT(4))\r\n      GO TO 390\r\nC\r\n  370 IF (.NOT.TEMPP1) GO TO 390\r\n      TPRIME = STEMP(2)\r\n      DO 380 IEPS = 4,6\r\n      EPSLNT(IEPS) = -TPRIME*ALFAB(IEPS-3)\r\n  380 CONTINUE\r\n  390 CONTINUE\r\nC\r\nC     CORRECT STRAINS FOR THERMAL EFFECTS\r\nC\r\n      DO 400 I = 1,6\r\n      EPSLNM(I) = EPSLN(I) - EPSLNT(I)\r\n  400 CONTINUE\r\nC\r\n      IF (.NOT.LAYER) GO TO 410\r\nC\r\nC     TRANSFORM CORRECTED STRAINS FROM ELEMENT TO MATERIAL COOR. SYSTEM\r\nC     TO BE USED FOR ELEMENT LAYER STRESSES\r\nC\r\n      CALL GMMATS (UEM(1),3,3,0, EPSLNM(1),3,1,0, EPSCMI(1,INPLAN))\r\n      CALL GMMATS (UEM(1),3,3,0, EPSLNM(4),3,1,0, EPSCMI(4,INPLAN))\r\nC\r\n  410 IF (LAYER .AND. .NOT.FORREQ) GO TO 420\r\nC\r\nC     TRANSFORM CORRECTED STRAINS FROM ELEMENT TO STRESS COORD. SYSTEM\r\nC     TO BE USED FOR ELEMENT STRESSES AND ELEMENT (LAYER) FORCES\r\nC\r\n      CALL GMMATS (UES(1),3,3,0, EPSLNM(1),3,1,0, EPSCSI(1,INPLAN))\r\n      CALL GMMATS (UES(1),3,3,0, EPSLNM(4),3,1,0, EPSCSI(4,INPLAN))\r\nC\r\nC     CORRECT THE CURVATURE SIGNS WHEN THE Z-AXIS OF THE TARGET STRESS\r\nC     COORD. SYSTEM IS FLIPPED WITH RESPECT TO THE USER COORD. SYSTEM.\r\nC     THIS DOES NOT AFFECT THE MEMBRANE STRAINS, AND TRANSVERSE SHEAR\r\nC     STRAIN TRANSFORMATION TAKES CARE OF THOSE COMPONENTS.\r\nC\r\n  420 IF (PH1RST(66) .GE. 0.0) GO TO 440\r\n      DO 430 I = 4,6\r\n      EPSCMI(I,INPLAN) = -EPSCMI(I,INPLAN)\r\n      EPSCSI(I,INPLAN) = -EPSCSI(I,INPLAN)\r\n      EPSUMI(I,INPLAN) = -EPSUMI(I,INPLAN)\r\n      EPSUSI(I,INPLAN) = -EPSUSI(I,INPLAN)\r\n  430 CONTINUE\r\nC\r\nC     END OF THE STRAIN RECOVERY LOOP\r\nC\r\nC     INCREMENT THE PH1RST POINTER\r\nC\r\n  440 ICOUNT = ICOUNT + 8 + NDOF8\r\n  500 CONTINUE\r\nC\r\nC\r\nC     IF REQUIRED, EXTRAPOLATE NON-CENTER VALUES FROM EVALUATION POINTS\r\nC     TO GRID POINTS.\r\nC\r\n      IF (GRIDSS) CALL SHXTRS (6,NNODE,EPSUSI(1,2))\r\n      IF (GRIDS ) CALL SHXTRS (6,NNODE,EPSCSI(1,2))\r\n      IF (GRIDS .AND. FORREQ) CALL SHXTRS (2,NNODE,QVECI(1,2))\r\nC\r\nC     CALCULATE AND OUTPUT STRESSES\r\nC\r\n      IF (STSREQ .AND. .NOT.LAYER)\r\n     1    CALL SHSTSS (4,ELID,IGRID,THIKNS,Z12,G,EPSCSI,STEMP,TBAR,\r\n     2                 G2ALFB,BENDNG,IDR)\r\nC\r\nC     CALCULATE AND OUTPUT STRAINS\r\nC\r\n      IF (STNREQ .AND. .NOT.LAYERS)\r\n     1    CALL SHSTNS (4,ELID,IGRID,Z12,EPSUSI,BENDNG,IDR)\r\nC\r\nC     CALCULATE AND OUTPUT FORCES\r\nC\r\n      IF (FORREQ .OR. LAYER .OR. LAYERS)\r\n     1   CALL SHFORS (4,ELID,IGRID,THIKNS,G,EPSCSI,QVECI,IDR)\r\nC\r\nC     CALCULATE AND OUTPUT LAYER-RELATED INFORMATION\r\nC\r\n      IF (LAYER .OR. LAYERS)\r\n     1   CALL SHLSTS (ELID,IPID,AVGTHK,EPSUMI,EPSCMI)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strir1.f",
    "content": "      SUBROUTINE STRIR1\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE IS PHASE I OF STRESS DATA RECOVERY FOR THE TRIANGULAR\r\nC CROSS SECTION RING\r\nC*****\r\nC\r\nC\r\nC                        ECPT FOR THE TRIANGULAR RING\r\nC\r\nC\r\nC                                                      TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC ECPT( 6) MATERIAL IDENTIFICATION                       I\r\nC ECPT( 7) COOR. SYS. ID. FOR GRID POINT A               I\r\nC ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(11) COOR. SYS. ID. FOR GRID POINT B               I\r\nC ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(15) COOR. SYS. ID. FOR GRID POINT C               I\r\nC ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\nC\r\n      DIMENSION          IECPT(19)\r\n      DIMENSION          R(3),     Z(3),     ICS(3)\r\n      DIMENSION          SP(18),   TEO(16),  DELINT(8)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON   /SDR2X5/\r\n     1                   ECPT(19)\r\n     2,                  DUM5(81)\r\n     3,                  IDEL,     IGP(3),   TZ\r\n     4,                  SEL(36),  TS(4),    AK(81)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)               ,ANU(3)\r\n     2,                  RHO                ,G(3)\r\n     3,                  ALF(3)             ,TZERO\r\n      COMMON   /SDR2X6/\r\n     1                   D(81) ,   GAMBQ(36),     EE(16),   GAMQS(54)\r\n     3,                  DZERO(24),     GAMBL(81),     ALFB(4)\r\nC\r\n      EQUIVALENCE ( CONSTS(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE   (R(1),R1),     (R(2),R2),     (R(3),R3)\r\n     1,             (Z(1),Z1),     (Z(2),Z2),     (Z(3),Z3)\r\n      EQUIVALENCE        (GAMBL( 1),    SP(1))\r\n      EQUIVALENCE        (GAMBL( 1),    TEO(1))\r\n      EQUIVALENCE        (GAMBL(17),    DELINT(1))\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL  = IECPT(1)\r\n      IGP(1)= IECPT(2)\r\n      IGP(2)= IECPT(3)\r\n      IGP(3)= IECPT(4)\r\n      MATID = IECPT(6)\r\n      ICS(1)= IECPT(7)\r\n      ICS(2)= IECPT(11)\r\n      ICS(3)= IECPT(15)\r\n      R(1)  = ECPT(8)\r\n      D(1)  = ECPT(9)\r\n      Z(1)  = ECPT(10)\r\n      R(2)  = ECPT(12)\r\n      D(2)  = ECPT(13)\r\n      Z(2)  = ECPT(14)\r\n      R(3)  = ECPT(16)\r\n      D(3)  = ECPT(17)\r\n      Z(3)  = ECPT(18)\r\n      TEMPE = ECPT(19)\r\n      DGAMA = ECPT(5)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,3\r\n      IF (R(I) .LT. 0.0E0) CALL MESAGE (-30, 37, IDEL)\r\n      IF (D(I) .NE. 0.0E0) CALL MESAGE (-30, 37, IDEL)\r\n  200 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1, Z2, Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,36\r\n      GAMBQ(I) = 0.0E0\r\n  300 CONTINUE\r\n      GAMBQ( 1) = 1.0E0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ(10) = 1.0E0\r\n      GAMBQ(11) = R1\r\n      GAMBQ(12) = Z1\r\n      GAMBQ(13) = 1.0E0\r\n      GAMBQ(14) = R2\r\n      GAMBQ(15) = Z2\r\n      GAMBQ(22) = 1.0E0\r\n      GAMBQ(23) = R2\r\n      GAMBQ(24) = Z2\r\n      GAMBQ(25) = 1.0E0\r\n      GAMBQ(26) = R3\r\n      GAMBQ(27) = Z3\r\n      GAMBQ(34) = 1.0E0\r\n      GAMBQ(35) = R3\r\n      GAMBQ(36) = Z3\r\nC\r\nC\r\nC     NO NEED TO COMPUTR DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP)\r\nC\r\n      IF (ISING .EQ. 2) CALL MESAGE(-30,26,IDEL)\r\nC\r\nC\r\nC\r\nC CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC              DELINT( 1) - (-1,0)\r\nC              DELINT( 2) - (-1,1)\r\nC              DELINT( 3) - (-1,2)\r\nC              DELINT( 4) - ( 0,0)\r\nC              DELINT( 5) - ( 0,1)\r\nC              DELINT( 6) - ( 1,0)\r\nC              DELINT( 7) - ( 0,2)\r\nC              DELINT( 8) - ( 1,2)\r\nC\r\nC\r\nC TEST FOR RELATIVE SMALL AREA OF INTEGRATION\r\nC AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS\r\nC\r\n      DR = AMAX1 (  ABS(R1-R2) ,  ABS(R2-R3) ,  ABS(R3-R1) )\r\n      RH = AMIN1 ( R1 , R2 , R3 ) / 10.0E0\r\n      DZ = AMAX1 (  ABS(Z1-Z2) ,  ABS(Z2-Z3) ,  ABS(Z3-Z1) )\r\n      ZH = AMIN1 ( Z1 , Z2 , Z3 ) / 10.0E0\r\n      RA = (R1 + R2 + R3) / 3.0E0\r\n      ZA = (Z1 + Z2 + Z3) / 3.0E0\r\n      AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0E0\r\n      KODE = 0\r\n      IF ( ABS( (R2-R1)/R2 ) .LT. 1.0E-5) KODE = 1\r\n      IF ( DR .LE. RH  .OR.  DZ .LE. ZH ) KODE = -1\r\nC\r\nC\r\n  310 CONTINUE\r\n      I1 = 0\r\n      DO 400 I = 1,3\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350\r\n      I1 = I1 + 1\r\n      IF (KODE) 320,330,340\r\n  320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA\r\n      GO TO 350\r\n  330 DELINT(I1) =    AI (1,3,1,2,1,3,IP,IQ,R,Z)\r\n     1            +   AI (3,2,1,2,3,2,IP,IQ,R,Z)\r\n      GO TO 350\r\n  340 CONTINUE\r\n      DELINT(I1) =    AI (1,3,3,2,1,3,IP,IQ,R,Z)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\n      D(1)      = DELINT(6)\r\n      DELINT(6) = DELINT(7)\r\n      DELINT(7) = D(1)\r\nC\r\nC\r\nC TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS\r\nC AND IF IT EXIST APPROXIMATE INTEGRALS\r\nC\r\n      IF (KODE .LT. 0) GO TO 500\r\n      DO 450 I = 1,8\r\n      IF (DELINT(I) .LT. 0.0E0) GO TO 475\r\n  450 CONTINUE\r\n      IF (DELINT(8) .LE. DELINT(7)) GO TO 475\r\n      IF (DELINT(3) .GE. DELINT(8)) GO TO 475\r\n      IF (DELINT(3) .GT. DELINT(7)) GO TO 475\r\n      GO TO 500\r\n  475 CONTINUE\r\n      KODE = -1\r\n      GO TO 310\r\n  500 CONTINUE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      ER = E(1)\r\n      ET = E(2)\r\n      EZ = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      TZ = TZERO\r\n      VTR = VRT * ET / ER\r\n      VZT = VTZ * EZ / ET\r\n      VRZ = VZR * ER / EZ\r\n      DEL = 1.0E0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1       - VRZ*VTR*VZT\r\nC\r\nC\r\nC GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE(1) = ER * (1.0E0 - VTZ*VZT) / DEL\r\n      EE(2) = ER * (VTR + VZR*VTZ) / DEL\r\n      EE(3) = ER * (VZR + VTR*VZT) / DEL\r\n      EE(4) = 0.0E0\r\n      EE(5) = EE(2)\r\n      EE(6) = ET * (1.0E0 - VRZ*VZR) / DEL\r\n      EE(7) = ET * (VZT + VRT*VZR) / DEL\r\n      EE(8) = 0.0E0\r\n      EE(9) = EE(3)\r\n      EE(10)= EE(7)\r\n      EE(11)= EZ * (1.0E0 - VRT*VTR) / DEL\r\n      EE(12)= 0.0E0\r\n      EE(13)= 0.0E0\r\n      EE(14)= 0.0E0\r\n      EE(15)= 0.0E0\r\n      EE(16)= GRZ\r\nC\r\nC\r\nC FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC GEOMETRIC AXIS\r\nC\r\n      DGAMR = DGAMA * DEGRA\r\n      COSG =  COS(DGAMR)\r\n      SING =  SIN(DGAMR)\r\n      TEO( 1) = COSG ** 2\r\n      TEO( 2) = 0.0E0\r\n      TEO( 3) = SING ** 2\r\n      TEO( 4) = SING * COSG\r\n      TEO( 5) = 0.0E0\r\n      TEO( 6) = 1.0E0\r\n      TEO( 7) = 0.0E0\r\n      TEO( 8) = 0.0E0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0E0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) = -TEO(4)\r\n      TEO(13) = -2.0E0 * TEO(4)\r\n      TEO(14) = 0.0E0\r\n      TEO(15) = -TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC\r\nC TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATS (TEO , 4, 4, 1, EE , 4, 4, 0, D )\r\n      CALL GMMATS (D   , 4, 4, 0, TEO, 4, 4, 0, EE)\r\nC\r\nC\r\nC\r\nC FORM THE ELEMENT STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\n      AK( 1) = EE(6) * DELINT(1)\r\n      AK( 2) = (EE(2) + EE(6)) * DELINT(4)\r\n      AK( 3) = EE(6) * DELINT(2) + EE(8) * DELINT(4)\r\n      AK( 4) = 0.0E0\r\n      AK( 5) = EE(8) * DELINT(4)\r\n      AK( 6) = EE(7) * DELINT(4)\r\n      AK( 7) = AK(2)\r\n      AK( 8) = (EE(1) + 2.0E0*EE(2) + EE(6)) * DELINT(6)\r\n      AK( 9) = (EE(2) + EE(6)) * DELINT(5) + (EE(4) + EE(8)) *DELINT(6)\r\n      AK(10) = 0.0E0\r\n      AK(11) = (EE(4) + EE(8)) * DELINT(6)\r\n      AK(12) = (EE(3) + EE(7)) * DELINT(6)\r\n      AK(13) = AK(3)\r\n      AK(14) = AK(9)\r\n      AK(15) = EE(6) * DELINT(3) + 2.0E0*EE(8) * DELINT(5)\r\n     1         + EE(16) * DELINT(6)\r\n      AK(16) = 0.0E0\r\n      AK(17) = EE(8) * DELINT(5) + EE(16) * DELINT(6)\r\n      AK(18) = EE(7) * DELINT(5) + EE(12) * DELINT(6)\r\n      AK(19) = 0.0E0\r\n      AK(20) = 0.0E0\r\n      AK(21) = 0.0E0\r\n      AK(22) = 0.0E0\r\n      AK(23) = 0.0E0\r\n      AK(24) = 0.0E0\r\n      AK(25) = AK(5)\r\n      AK(26) = AK(11)\r\n      AK(27) = AK(17)\r\n      AK(28) = 0.0E0\r\n      AK(29) = EE(16) * DELINT(6)\r\n      AK(30) = EE(12) * DELINT(6)\r\n      AK(31) = AK(6)\r\n      AK(32) = AK(12)\r\n      AK(33) = AK(18)\r\n      AK(34) = 0.0E0\r\n      AK(35) = AK(30)\r\n      AK(36) = EE(11) * DELINT(6)\r\nC\r\n      DO 600 I = 1,36\r\n      AK(I) = TWOPI * AK(I)\r\n  600 CONTINUE\r\nC\r\nC TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD COORDINATES\r\nC TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GAMBQ , 6, 6, 1, AK , 6, 6, 0, D )\r\n      CALL GMMATS (D  , 6, 6, 0, GAMBQ , 6, 6, 0, AK)\r\nC\r\nC\r\nC\r\nC GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF\r\nC FREEDOM PER POINT\r\nC\r\n      DO 700 I = 1,54\r\n      GAMQS( I) = 0.0E0\r\n  700 CONTINUE\r\n      GAMQS( 1) = 1.0E0\r\n      GAMQS(12) = 1.0E0\r\n      GAMQS(22) = 1.0E0\r\n      GAMQS(33) = 1.0E0\r\n      GAMQS(43) = 1.0E0\r\n      GAMQS(54) = 1.0E0\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM TWO TO THREE DEGREES OF\r\nC FREEDOM PER POINT\r\nC\r\n      CALL GMMATS (GAMQS(1) , 6, 9, 1, AK(1) , 6, 6, 0, D(1) )\r\n      CALL GMMATS (D(1)    , 9, 6, 0, GAMQS(1) , 6, 9, 0, AK(1) )\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC\r\n      DO 750 I = 1,81\r\n      GAMBL(I) = 0.0E0\r\n  750 CONTINUE\r\n      DO 800 I = 1,3\r\n      CALL TRANSS (ICS(I) , D(1))\r\n      K = 30* (I-1) + 1\r\n      DO 800 J = 1,3\r\n      KK = K + 9 * (J-1)\r\n      JJ = 3 * (J-1) + 1\r\n      GAMBL(KK  ) = D(JJ  )\r\n      GAMBL(KK+1) = D(JJ+1)\r\n      GAMBL(KK+2) = D(JJ+2)\r\n  800 CONTINUE\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1) , 9, 9, 1, AK(1) , 9, 9, 0, D(1) )\r\n      CALL GMMATS (D(1)    , 9, 9, 0, GAMBL(1) , 9, 9, 0, AK(1) )\r\nC\r\nC\r\nC FORM THE D SUB 0 MATRIX\r\nC\r\n      DO 850 I = 1,24\r\n      DZERO(I) = 0.0E0\r\n  850 CONTINUE\r\n      DZERO( 2) = 1.0E0\r\n      DZERO( 7) = 1.0E0 / RA\r\n      DZERO( 8) = 1.0E0\r\n      DZERO( 9) = ZA / RA\r\n      DZERO(18) = 1.0E0\r\n      DZERO(21) = 1.0E0\r\n      DZERO(23) = 1.0E0\r\nC\r\nC\r\nC COMPUTE THE STRESS MATRIX IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (EE(1) , 4, 4, 0, DZERO(1) , 4, 6, 0, D(1) )\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (D(1) , 4, 6, 0, GAMBQ(1) , 6, 6, 0, SEL(1) )\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX FROM TWO TO THREE DEGREES OF FREEDOM\r\nC PER POINT\r\nC\r\n      CALL GMMATS (SEL(1) , 4, 6, 0, GAMQS(1) , 6, 9, 0, D(1) )\r\nC\r\nC\r\nC TRANSFORM THE STRESS MATRIX FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (D(1) , 4, 9, 0, GAMBL(1) , 9, 9, 0, SEL(1) )\r\nC\r\nC\r\nC COMPUTE THE THERMAL STRAIN VECTOR\r\nC\r\n      DO 900 I = 1,3\r\n      ALFB(I) = ALF(I)\r\n  900 CONTINUE\r\n      ALFB(4) = 0.0E0\r\nC\r\nC\r\nC COMPUTE THE THERMAL STRESS VECTOR\r\nC\r\n      CALL GMMATS (EE(1) , 4, 4, 0, ALFB(1) , 4, 1, 0, TS(1) )\r\nC\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strir2.f",
    "content": "      SUBROUTINE STRIR2 (TI)\r\nC\r\nC*****\r\nC THIS ROUTINE IS PHASE II OF STRESS DATA RECOVERY FOR THE TRIANGULAR\r\nC\r\nC CROSS SECTION RING\r\nC*****\r\nC\r\nC\r\nC\r\n      DIMENSION          TI(3)\r\n      DIMENSION          DUM3(225)\r\n      DIMENSION          STRES(100),    FORCE(25)\r\n      DIMENSION          ISTRES(100),   IFORCE(25)\r\nC\r\nC\r\nC SDR2 VARIABLE CORE\r\nC\r\n      COMMON   /ZZZZZZ/  ZZ(1)\r\nC\r\nC\r\nC SDR2 BLOCK FOR POINTERS AND LOADING TEMPERATURES\r\nC\r\n      COMMON   /SDR2X4/\r\n     1                   DUM1(33)\r\n     2,                  ICSTM,    NCSTM,    IVEC,     IVECN\r\n     3,                  TEMPLD,   ELDEFM\r\nC\r\nC\r\nC SDR2 INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X7/\r\n     1                   IDEL,     IGP(3),   TZ\r\n     2,                  SEL(36),  TS(4),    AK(81),   DUM2(99)\r\nC\r\nC\r\nC SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X8/\r\n     1                   DISP(9),  EFORC(9), ESTRES(4)\r\nC\r\nC\r\n      EQUIVALENCE (DUM3(1) , IDEL)\r\n      EQUIVALENCE  (DUM3(101) , STRES(1) , ISTRES(1))\r\n      EQUIVALENCE  (DUM3(201) , FORCE(1) , IFORCE(1))\r\n      EQUIVALENCE (LDTEMP, TEMPLD)\r\nC\r\nC\r\nC INITIALIZE COUNTERS\r\nC\r\n      NDOF  = 3\r\n      NUMPT = 3\r\n      N = NDOF * NUMPT\r\n      NSP   = 1\r\n      NCOMP =  4\r\n      NS = NSP * NCOMP\r\nC\r\nC\r\nC LOCATE THE DISPLACEMENTS\r\nC\r\n      K = 0\r\n      DO 100 I = 1,NUMPT\r\n      ILOC = IVEC + IGP(I) - 2\r\n      DO 100 J = 1,NDOF\r\n      ILOC = ILOC + 1\r\n      K = K + 1\r\n      DISP(K) = ZZ(ILOC)\r\n  100 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE GRID POINT FORCES\r\nC\r\n      CALL GMMATS ( AK(1) , N, N, 0, DISP(1) , N, 1, 0, EFORC(1) )\r\nC\r\nC\r\nC COMPUTE THE STRESSES\r\nC\r\n      CALL GMMATS ( SEL(1), NS, N, 0, DISP(1) , N, 1, 0, ESTRES(1) )\r\nC\r\nC\r\nC COMPUTE THERMAL STRESS IF THERMAL LOAD EXISTS\r\nC AND SUBTRACT FROM APPARENT STRESS\r\nC\r\n      IF (LDTEMP .EQ. (-1)) GO TO 300\r\nC\r\n      DT = (TI(1) + TI(2) +TI(3)) / 3.0E0  -  TZ\r\n      DO 200 I = 1,NS\r\n      ESTRES(I) = ESTRES(I) - DT * TS(I)\r\n  200 CONTINUE\r\nC\r\n  300 CONTINUE\r\nC\r\nC\r\nC STORE RESULTS FOR OUTPUT PRINT\r\nC\r\n      J = 1\r\n      ISTRES( 1)  = IDEL\r\n      DO 400 I = 1,NCOMP\r\n      J = J + 1\r\n      STRES(J) = ESTRES(I)\r\n  400 CONTINUE\r\nC\r\nC\r\n      K = 0\r\n      J = 1\r\n      IFORCE(1)   = IDEL\r\n      DO 500 I = 1,NUMPT\r\n      DO 500 KK= 1,NDOF\r\n      J = J + 1\r\n      K = K + 1\r\n      FORCE(J) = EFORC(K)\r\n  500 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strm61.f",
    "content": "      SUBROUTINE STRM61\r\nC\r\nC\r\nC   PHASE I OF  STRESS DATA RECOVERY FOR TRIANGULAR MEMBRANE ELEMENT TRI\r\nC\r\nC   OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING\r\nC\r\nC   1) ELEMENT ID             WORDS    1    STORAGE IN PH1OUT   1\r\nC   2) SIX SILS               WORDS    6                        2-7\r\nC   3) THICKNESS T1           WORDS    1                        8\r\nC   4) THICKNESS T2           WORDS    1                        9\r\nC   5) THICKNESS T3           WORDS    1                       10\r\nC   6) REFERENCE TEMP T0      WORDS    1                       11\r\nC   7) S SUB I MATRICES       WORDS    216                     12-227\r\nC   8) THERMAL VECTOR G ALF   WORDS    3                      228-230\r\nC\r\nC    EST ENTRIES SAME AS IN SUBROUTINE KTRM6S\r\nC\r\nC\r\n      REAL NSM,IVECT,JVECT,KVECT\r\nC\r\n      DIMENSION IEST(45),IND(6,3),EE1(6),NPH1OU(990),XC(6),YC(6),ZC(6)\r\n     1,   Q(6,6),QQ(36),IVECT(3),JVECT(3),KVECT(3),E( 6 ),EPH1(6)\r\n     2,   NAME(2),ICS(6),NL(6),TRANS(9),BALOTR(9),EMOD(9),TM(3,12)\r\n     3,   TMM(36)\r\nC\r\n      COMMON /SDR2X5/ EST(100),PH1OUT(250)\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY\r\nC\r\n      EQUIVALENCE (NPH1OU(1),PH1OUT(1)),(IEST(1),EST(1))\r\n      EQUIVALENCE (TM(1,1),TMM(1))\r\nC\r\n      DATA NAME /4HSTRM,4H61  / , BLANK  /4H    /\r\n      DATA DEGRA /0.0174532925/\r\nC\r\n      IDELE=IEST(1)\r\n      DO 109 I=1,6\r\n      NL(I)=IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM=EST(8)\r\n      MATID1=IEST(9)\r\n      TMEM1 =EST(10)\r\n      TMEM3 =EST(11)\r\n      TMEM5 =EST(12)\r\nC\r\nC   IF TMEM3 OR TMEM5 IS 0.0 OR BLANK , IT WILL BE SET EQUAL TO TMEM1\r\nC\r\n      IF (TMEM3.EQ.0.0. OR .TMEM3.EQ.BLANK)  TMEM3 = TMEM1\r\nC\r\n      IF (TMEM5.EQ.0.0. OR .TMEM5.EQ.BLANK)  TMEM5 = TMEM1\r\nC\r\n      NSM = EST(13)\r\nC\r\n      J=0\r\n      DO 120 I=14,34,4\r\n      J=J+1\r\n      ICS(J)=IEST(I)\r\n      XC(J) = EST(I+1)\r\n      YC(J) = EST(I+2)\r\n      ZC(J)=EST(I+3)\r\n  120 CONTINUE\r\n      ELTEMP=(EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0\r\n      THETA1=THETAM*DEGRA\r\n      SINTH=SIN(THETA1)\r\n      COSTH=COS(THETA1)\r\n      IF (ABS(SINTH).LE.1.0E-06) SINTH=0.0\r\nC\r\nC\r\nC   EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\n      TO=TREF\r\nC\r\nC   CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,DISTA,DISTB,DISTC,IEST(1),\r\n     1           NAME)\r\nC\r\nC   TRANSFORMATION MATRIX BETWEEN ELEMENT AND BASIC CO-ORDINATES\r\nC\r\n      E(1)=IVECT(1)\r\n      E(2)=JVECT(1)\r\n      E(3)=IVECT(2)\r\n      E(4)=JVECT(2)\r\n      E(5)=IVECT(3)\r\n      E(6)=JVECT(3)\r\nC\r\nC   CALCULATIONS FOR  Q MATRIX AND ITS INVERSE\r\nC\r\n      DO 110 I=1,6\r\n      DO 110 J=1,6\r\n      Q(I,J)=0.0\r\n  110 CONTINUE\r\n      DO 115 I=1,6\r\n      Q(I,1)=1.0\r\n      Q(I,2)=XC(I)\r\n      Q(I,3)=YC(I)\r\n      Q(I,4)=XC(I)*XC(I)\r\n      Q(I,5)=XC(I)*YC(I)\r\n      Q(I,6)=YC(I)*YC(I)\r\n  115 CONTINUE\r\nC\r\nC     FIND INVERSE OF Q  MATRIX\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,QQ(1),0,DETERM,ISING,IND)\r\nC\r\nC   ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR\r\nC\r\n      DO 152 I=1,6\r\n      DO 152 J=1,6\r\n      IJ=(I-1)*6+J\r\n      QQ(IJ)=Q(I,J)\r\n  152 CONTINUE\r\n      DO 154 I=1,9\r\n      BALOTR(I)=0.0\r\n  154 CONTINUE\r\nC\r\n      DO 102 I=1,7\r\n      PH1OUT(I)=EST(I)\r\n  102 CONTINUE\r\n      PH1OUT(8)=EST(10)\r\n      PH1OUT(9)=EST(11)\r\n      PH1OUT(10)=EST(12)\r\n      PH1OUT(11)=TO\r\n      EMOD(1)=EM(1)\r\n      EMOD(2)=EM(2)\r\n      EMOD(3)=EM(3)\r\n      EMOD(4)=EM(2)\r\n      EMOD(5)=EM(4)\r\n      EMOD(6)=EM(5)\r\n      EMOD(7)=EM(3)\r\n      EMOD(8)=EM(5)\r\n      EMOD(9)=EM(6)\r\nC\r\nC   STRESSES AND STRAINS ARE EVALUATED AT FOUR POINTS ,VIZ., THE THREE\r\nC   CORNER GRID POINTS AND THE CENTROID\r\nC\r\n      DO 700 JJ=1,4\r\n      J=2*(JJ-1)+1\r\n      IF (J.EQ.7) GO TO 103\r\n      X=XC(J)\r\n      Y=YC(J)\r\n      GO TO 104\r\n  103 X=(XC(1)+XC(3)+XC(5))/3.0\r\n      Y=(YC(1)+YC(3)+YC(5))/3.0\r\n  104 CONTINUE\r\n      DO 105 I=1,36\r\n      TMM(I)=0.0E0\r\n  105 CONTINUE\r\nC\r\nC   TM MATRIX IS THE PRODUCT OF B AND QINVERSE MATRICES\r\nC\r\n      DO 258 J=1,6\r\n      J1=(J-1)*2+1\r\n      J2=J1+1\r\n      TM(1,J1)=Q(2,J)+2.0*X*Q(4,J)+Y*Q(5,J)\r\n      TM(2,J2)=Q(3,J)+X*Q(5,J)+2.0*Y*Q(6,J)\r\n      TM(3,J1)=TM(2,J2)\r\n      TM(3,J2)=TM(1,J1)\r\n  258 CONTINUE\r\n      DO 600 II=1,6\r\n      IF (ICS(II).EQ.0) GO TO 130\r\n      CALL TRANSS (IEST(4*II+10),TRANS)\r\n      CALL GMMATS (E,3,2,+1,TRANS,3,3,0,EE1)\r\n      GO TO 133\r\n  130 CONTINUE\r\n      DO 132 I=1,3\r\n      DO 132 J=1,2\r\n      I1=(I-1)*2+J\r\n      J1=(J-1)*3+I\r\n      EE1(J1)=E(I1)\r\n  132 CONTINUE\r\n  133 CONTINUE\r\n      IJ1=(JJ-1)*54+(II-1)*9+12\r\n      MZ=(II-1)*6+1\r\n      CALL GMMATS (EMOD,3,3,0,TMM(MZ),2,3,+1,EPH1)\r\n      CALL GMMATS (EPH1,3,2,0,EE1,2,3,0,PH1OUT(IJ1))\r\n  600 CONTINUE\r\n  700 CONTINUE\r\n      CALL GMMATS (EMOD,3,3,0,ALF,3,1,0,PH1OUT(228))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strm62.f",
    "content": "      SUBROUTINE STRM62 (TI)\r\nC\r\nC\r\nC     PHASE II OF STRESS DATA RECOVERY FOR TRIANGULAR MEMBRANE ELEMENT\r\nC     TRIM6\r\nC\r\nC     PHASE I OUTPUT IS THE FOLLOWING\r\nC\r\nC     PH1OUT(1)               ELEMENT ID\r\nC     PH1OUT(2, THRU 7)       6 S1L5\r\nC     PH1OUT(8 THRU 10)       THICKNESSES AT CORNER GRID POINT\r\nC     PH1OUT(11)              REFERENCE TEMPERATURE\r\nC     PH1OUT(12)-(227)        S SUB I MATRICES FOR 4 POINTS\r\nC     PH1OUT(228)-(230)       THERMAL VECTOR - G TIMES ALPHA\r\nC\r\nC\r\n      INTEGER         TLOADS\r\n      DIMENSION       TI(6),NS1L(6),NPH1OU(990),STR(18),SI(36),\r\n     1                STOUT(99),STRESS(3)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),TLOADS\r\n      COMMON /SDR2X7/ PH1OUT(250)\r\n      COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM\r\n      EQUIVALENCE     (NS1L(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)),\r\n     1                (SI(1),PH1OUT(11)),(LDTEMP,FTEMP)\r\nC\r\n      DO 155 II=1,4\r\nC\r\nC     ZERO OUT LOCAL STRESSES\r\nC\r\n      SIG X  1 =0.0\r\n      SIG Y  1 =0.0\r\n      SIG XY 1 =0.0\r\n      SIG X  2 =0.0\r\n      SIG Y  2 =0.0\r\n      SIG XY 2 =0.0\r\n      IF (NS1L(1).EQ.0) GO TO 90\r\nC\r\nC     ZERO STRESS VECTOR STORAGE\r\nC\r\n      DO 42 I=1,3\r\n      STRESS(I)=0.0\r\n   42 CONTINUE\r\nC\r\nC                        I=6\r\nC     STRESS VECTOR =(SUMMATION (5 )(U ) ) - (S )(TEMP      - TEMP   )\r\nC                        I=1      I   I        T      POINT       REF\r\nC\r\n      DO 60 I=1,6\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\nC\r\n      NPOINT = IVEC + NPH1OU(I+1) - 1\r\nC\r\nC     POINTER TO  3X3 S SUB I MATRIX\r\nC\r\n      NPT1=12+(I-1)*9+(II-1)*54\r\nC\r\n      CALL GMMATS (PH1OUT(NPT1),3,3,0,Z(NPOINT),3,1,0,VEC(1))\r\n      DO 50 J=1,3\r\n      STRESS(J)=STRESS(J)+VEC(J)\r\n      STR(J)=STRESS(J)\r\n   50 CONTINUE\r\n   60 CONTINUE\r\n      IF (LDTEMP.EQ.(-1)) GO TO 80\r\n      II12=II*2-1\r\n      IF (II.NE.4) TEM=TI(II12)-PH1OUT(11)\r\n      IF( II.EQ.4) TEM=(TI(1)+TI(2)+TI(3)+TI(4)+TI(5)+TI(6))/6.0-\r\n     1    PH1OUT(11)\r\n      DO 70 I=1,3\r\n      STRESS(I)=STRESS(I)-PH1OUT(227+I)*TEM\r\n      STR(I)=STRESS(I)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n   90 IF (NPH1OU(2).EQ.0) GO TO 120\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\nC\r\nC     8 LOCATIONS FOR STRESS AT A POINT AS FOLLOWS\r\nC\r\nC      1. ELEMENT ID\r\nC      2. SIGMA X1\r\nC      3. SIGMA Y1\r\nC      4. SIGMA XY1\r\nC      5. ANGLE OF ZERO SHEAR\r\nC      6. SIGMA PRINCIPAL STRESS 1\r\nC      7. SIGMA PRINCIPAL STRESS 2\r\nC      8. TAU MAX\r\nC\r\nC     FOR EACH POINT, THESE VALUES ARE STORED IN STOUT(1-8,9-16,\r\nC     17-24,25-32) ALSO IN LOCATIONS STR(1-7) EXCEPT THE ELEMENT ID\r\nC     FINALLY, THESE VALUES ARE STORED IN PH1OUT(101-108,109-115,\r\nC     116-122,123-129)\r\nC\r\n      TEMP = STRESS(1)-STRESS(2)\r\n      TEMP1= SQRT ((TEMP/2.0E0)**2 + STRESS(3)**2)\r\n      STR(7)= TEMP1\r\n      DELTA= (STRESS(1)+STRESS(2))/2.0\r\n      STR(5)=DELTA+TEMP1\r\n      STR(6)=DELTA-TEMP1\r\n      DELTA= 2.0E0 * STRESS(3)\r\n      IF (ABS(DELTA).LT.1.0E-15.AND.ABS(TEMP).LT.1.0E-15) GO TO 100\r\n      STR(4)=ATAN2(DELTA,TEMP)*28.6478898E0\r\n      GO TO 110\r\n  100 STR(4)=0.0\r\n  110 CONTINUE\r\n      GO TO 140\r\n  120 DO 130 I=1,9\r\n      STR(I)=0.0E0\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n      IJK=(II-1)*8\r\n      STOUT(IJK+1)=PH1OUT(1)\r\n      DO 149 I=2,8\r\n  149 STOUT(IJK+I)=STR(I-1)\r\n  155 CONTINUE\r\n      DO 156 I=1,8\r\n  156 PH1OUT(100+I)=STOUT(I)\r\n      DO 159 J=1,3\r\n      DO 159 I=1,7\r\n      J1=108+(J-1)*7+I\r\n      J2=J*8+I+1\r\n      PH1OUT(J1)=STOUT(J2)\r\n  159 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strme1.f",
    "content": "      SUBROUTINE STRME1 ( NTYPE )\r\nC\r\nC     ******** PHASE I OF STRESS DATA RECOVERY *************************\r\nC     ******** TRIANGULAR MEMBRANE ELEMENT *****************************\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO. . .\r\nC\r\nC     MAT    - MATERIAL DATA ROUTINE\r\nC     TRANSS - SINGLE PRECISION TRANSFORMATION SUPPLIER\r\nC     GMMATS - SINGLE PRECISION MATRIX MULTIPLY AND TRANSPOSE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IF NTYPE = 0  COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC\r\nC     IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY\r\nC\r\nC\r\nC\r\n      DIMENSION G(9), ECPT(21)\r\nC\r\n      LOGICAL STRAIN\r\nC\r\n      COMMON /BLANK / IDUMMY(10), STRAIN\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X5/\r\n     1                   NECPT(1)           ,NGRID(3)\r\n     2                  ,ANGLE              ,MATID1\r\n     3                  ,T                  ,FMU\r\n     4                  ,DUMMY1             ,X1\r\n     5                  ,Y1                 ,Z1\r\n     6                  ,DUMMY2             ,X2\r\n     7                  ,Y2                 ,Z2\r\n     8                  ,DUMMY3             ,X3\r\n     9                  ,Y3                 ,Z3            ,DUMB(80)\r\n     T                  ,PH1OUT(100)        ,FORVEC(25)\r\n      COMMON /SDR2X6/ C(18),E(18),TI(9),TEMPAR(27),TEMP\r\n     2      ,XSUBB,XSUBC,YSUBC,VOL,REELMU,DELTA,FLAMDA,THETA ,DUMMY(219)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3),\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (G(1),TEMPAR(19)) ,(ECPT(1),NECPT(1))\r\nC\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     ******************************************************************\r\n      ELTEMP = ECPT(21)\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\n      E(1) = X2 - X1\r\n      E(3) = Y2 - Y1\r\n      E(5) = Z2 - Z1\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\n      XSUBB =  SQRT( E(1)**2 + E(3)**2 + E(5)**2 )\r\n      IF(XSUBB .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE(-30,31,ECPT(1))\r\nC\r\nC  20 NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\n   20 E(1) = E(1) / XSUBB\r\n      E(3) = E(3) / XSUBB\r\n      E(5) = E(5) / XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = X3 - X1\r\n      E(4) = Y3 - Y1\r\n      E(6) = Z3 - Z1\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA) ,  THUS\r\n      XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3) * E(6)  -  E(5) * E(4)\r\n      E(8) = E(5) * E(2)  -  E(1) * E(6)\r\n      E(9) = E(1) * E(4)  -  E(3) * E(2)\r\nC\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\n      YSUBC =  SQRT( E(7)**2 + E(8)**2 + E(9)**2 )\r\n      IF(YSUBC .GT. 1.0E-06) GO TO 25\r\n      CALL MESAGE(-30,32,ECPT(1))\r\nC\r\nC  25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   25 E(7) = E(7) / YSUBC\r\n      E(8) = E(8) / YSUBC\r\n      E(9) = E(9) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS.GET J = I CROSS K AND\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5) * E(8) - E(3) * E(9)\r\n      E(4) = E(1) * E(9) - E(5) * E(7)\r\n      E(6) = E(3) * E(7) - E(1) * E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\n      TEMP =  SQRT( E(2)**2 + E(4)**2 + E(6)**2 )\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\nC\r\n      REELMU = 1.0D0 / XSUBB\r\n      FLAMDA = 1.0D0 / YSUBC\r\n      DELTA  = XSUBC / XSUBB - 1.0E0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC                 CSUBA = (3X2) STORED IN C(1) . . .C(6)  BY ROWS\r\nC                 CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS\r\nC                 CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0E0\r\n      C(3)  =  0.0E0\r\n      C(4)  =  FLAMDA * DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0E0\r\n      C(9)  =  0.0E0\r\n      C(10) = -FLAMDA * REELMU * XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0E0\r\n      C(14) =  0.0E0\r\n      C(15) =  0.0E0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0E0\r\nC\r\n      IF( NTYPE .EQ. 1 ) GO TO 30\r\n      THETA = ANGLE * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n   30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      ELTEMP = ECPT(21)\r\n      MATID = MATID1\r\n      INFLAG = 2\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      IF (STRAIN) GO TO 40\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\n      GO TO 50\r\n   40 G(1) = 1.0\r\n      G(2) = 0.0\r\n      G(3) = 0.0\r\n      G(4) = 0.0\r\n      G(5) = 1.0\r\n      G(6) = 0.0\r\n      G(7) = 0.0\r\n      G(8) = 0.0\r\n      G(9) = 0.5\r\n   50 CONTINUE\r\nC\r\nC     ******************************************************************\r\nC\r\nC     G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC\r\nC\r\nC                           T\r\nC     COMPUTE  S  = G  C   E   T   , I = 1,2,3.\r\nC               I       I       I\r\nC\r\n      DO 100 I = 1,3\r\nC\r\nC     POINTER TO C   = 6*I - 5\r\nC                 I\r\nC\r\n      CALL GMMATS ( G,3,3,0,  C(6*I-5),3,2,0,  TEMPAR(1))\r\n      CALL GMMATS ( TEMPAR(1),3,2,0,  E,3,2,1,  TEMPAR(10) )\r\nC\r\nC     DO WE NEED TRANSFORMATION TI\r\nC\r\n      IF( NECPT(4*I + 5) .EQ. 0 ) GO TO 60\r\n      CALL TRANSS( NECPT(4*I + 5), TI )\r\n      CALL GMMATS( TEMPAR(10),3,3,0,  TI,3,3,0,  PH1OUT(9*I+1) )\r\n      GO TO 100\r\n   60 NPT1 = 9 * I\r\n      DO 80 J = 10,18\r\n      NPT1 = NPT1 + 1\r\n   80 PH1OUT(NPT1) = TEMPAR(J)\r\n  100 CONTINUE\r\nC\r\nC     COMPUTE S    = G  ALPHAS\r\nC               T\r\n      CALL GMMATS( G,3,3,0,  ALPHAS,3,1,0,  PH1OUT(7) )\r\nC\r\nC     SAVE  T SUB 0  FOR PHASE II\r\nC\r\n      PH1OUT(6) = T SUB 0\r\n      PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = ECPT(2)\r\n      PH1OUT(3) = ECPT(3)\r\n      PH1OUT(4) = ECPT(4)\r\nC\r\nC     THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION\r\nC     TO ANOTHER ROUTINE...\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/strnam.f",
    "content": "      SUBROUTINE STRNAM ( IELT, ISCAN, NAME )\r\n      CHARACTER*12    NAME\r\n      LOGICAL        LAYERD\r\n      COMMON / XSCANX / DUM(21), LAYERD\r\n      COMMON / SYSTEM / ISYSBF, NOUT\r\nC      PRINT *,' ENTERRING STRNAM,IELT,ISCAN=',IELT,ISCAN\r\n      NAME= ' '\r\n      IF ( IELT .NE. 1 .AND. IELT .NE. 3 .AND. IELT .NE. 10 ) GO TO 10\r\nC ROD, TUBE, CONROD\r\n      IF ( ISCAN .EQ. 2 ) NAME='AXIAL'\r\n      IF ( ISCAN .EQ. 4 ) NAME='TORSIONAL'\r\n      IF ( ISCAN .EQ. 3 ) NAME='MARGIN'\r\n      IF ( ISCAN .EQ. 5 ) NAME='MARGIN'\r\n      GO TO 7000\r\n10    IF ( IELT .NE. 4 .AND. IELT .NE. 5 ) GO TO 20\r\nC SHEAR, TWIST\r\n      IF ( ISCAN .EQ. 2 ) NAME='MAX-SHR'\r\n      IF ( ISCAN .EQ. 4 ) NAME='MARGIN'\r\n      IF ( ISCAN .EQ. 3 ) NAME='AVG'\r\n      GO TO 7000\r\n20    IF ( IELT .NE. 6  .AND. IELT .NE. 17 .AND. IELT .NE. 19 .AND.\r\n     &     IELT .NE. 18 .AND. IELT .NE. 7  .AND. IELT .NE. 8  .AND.\r\n     &     IELT .NE. 15 ) GO TO 30\r\nC TRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT\r\n      IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 11 ) NAME='NORM-X'\r\n      IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 12 ) NAME='NORM-Y'\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 13 ) NAME='SHEAR-XY'\r\n      IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 15 ) NAME='MAJOR'\r\n      IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 16 ) NAME='MINOR'\r\n      IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 17 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n30    IF ( IELT .NE. 9 .AND. IELT .NE. 16 .AND. IELT .NE. 62 .AND.\r\n     &     IELT .NE. 63 ) GO TO 40\r\nC TRMEM, QDMEM, QDMEM1, QDMEM2\r\n      IF ( ISCAN .EQ. 2 ) NAME='NORM-X'\r\n      IF ( ISCAN .EQ. 3 ) NAME='NORM-Y'\r\n      IF ( ISCAN .EQ. 4 ) NAME='SHEAR-XY'\r\n      IF ( ISCAN .EQ. 6 ) NAME='MAJOR'\r\n      IF ( ISCAN .EQ. 7 ) NAME='MINOR'\r\n      IF ( ISCAN .EQ. 8 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n40    IF ( IELT .NE. 11 .AND. IELT .NE. 12 .AND. IELT .NE. 13 .AND.\r\n     &     IELT .NE. 80 ) GO TO 50\r\nC ELAS1, ELAS2, ELAS3, IS2D8\r\n      IF ( ISCAN .EQ. 2 ) NAME='OCT-SHR'\r\n      GO TO 7000\r\n50    IF ( IELT .NE. 34 .AND. IELT .NE. 81 ) GO TO 60\r\nC BAR, ELBOW\r\n      IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 8 ) NAME='SB-MAX'\r\n      IF ( ISCAN .EQ. 14.OR. ISCAN .EQ.15 ) NAME='SB-MAX'\r\n      IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ.16 ) NAME='MARGIN'\r\n      IF ( ISCAN .EQ. 6 ) NAME='AXIAL'\r\n      GO TO 7000\r\n60    IF ( IELT .NE. 35 ) GO TO 70\r\nC CONEAX\r\n      IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 22 ) NAME='NORM-U'\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 23 ) NAME='NORM-V'\r\n      IF ( ISCAN .EQ. 6 .OR. ISCAN .EQ. 24 ) NAME='SHEAR-UV'\r\n      IF ( ISCAN .EQ. 8 .OR. ISCAN .EQ. 26 ) NAME='MAJOR'\r\n      IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 27 ) NAME='MINOR'\r\n      IF ( ISCAN .EQ. 10.OR. ISCAN .EQ. 28 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n70    IF ( IELT .NE. 36 ) GO TO 80\r\nC TRIARG\r\n      IF ( ISCAN .EQ. 2 ) NAME='RADIAL'\r\n      IF ( ISCAN .EQ. 3 ) NAME='CIRCUM'\r\n      IF ( ISCAN .EQ. 4 ) NAME='AXIAL'\r\n      IF ( ISCAN .EQ. 5 ) NAME='SHEAR'\r\n      GO TO 7000\r\n80    IF ( IELT .NE. 37 ) GO TO 90\r\nC TRAPRG\r\n      KSCAN = MOD( ISCAN, 4 )\r\n      IF ( KSCAN .EQ. 2 .AND. ISCAN .NE. 18 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 3 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 0 ) NAME='AXIAL'\r\n      IF ( KSCAN .EQ. 1 ) NAME='SHEAR'\r\n      IF ( KSCAN .EQ. 2 .AND. ISCAN .NE. 2 ) NAME='SHR-FORC'\r\n      GO TO 7000\r\n90    IF ( IELT .NE. 38 ) GO TO 100\r\nC TORDRG\r\n      KSCAN = MOD( ISCAN, 5 )\r\n      IF ( KSCAN .EQ. 2 ) NAME='MEM-T'\r\n      IF ( KSCAN .EQ. 3 ) NAME='MEM-C'\r\n      IF ( KSCAN .EQ. 4 ) NAME='FLEX-T'\r\n      IF ( KSCAN .EQ. 0 ) NAME='FLEX-C'\r\n      IF ( KSCAN .EQ. 1 ) NAME='SHR-FORC'\r\n      GO TO 7000\r\n100   IF ( IELT .NE. 65 .AND. IELT .NE. 66 ) GO TO 110\r\nC IHEX1, IHEX2\r\n      KSCAN = MOD( ISCAN, 22 )\r\n      IF ( KSCAN .EQ. 3 ) NAME='NORM-X'\r\n      IF ( KSCAN .EQ. 4 ) NAME='SHEAR-XY'\r\n      IF ( KSCAN .EQ. 5 ) NAME='PRINC-A'\r\n      IF ( KSCAN .EQ. 9 ) NAME='MEAN'\r\n      IF ( KSCAN .EQ.11 ) NAME='NORM-Y'\r\n      IF ( KSCAN .EQ.12 ) NAME='SHEAR-YZ'\r\n      IF ( KSCAN .EQ.13 ) NAME='PRINC-B'\r\n      IF ( KSCAN .EQ.17 ) NAME='NORM-Z'\r\n      IF ( KSCAN .EQ.18 ) NAME='SHEAR-ZX'\r\n      IF ( KSCAN .EQ.19 ) NAME='PRINC-C'\r\n      IF ( KSCAN .EQ.10 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n110   IF ( IELT .NE. 67 ) GO TO 120\r\nC IHEX3\r\n      KSCAN = MOD( ISCAN, 23 )\r\n      IF ( KSCAN .EQ. 3 ) NAME='NORM-X'\r\n      IF ( KSCAN .EQ. 4 ) NAME='SHEAR-XY'\r\n      IF ( KSCAN .EQ. 5 ) NAME='PRINC-A'\r\n      IF ( KSCAN .EQ. 9 ) NAME='MEAN'\r\n      IF ( KSCAN .EQ.12 ) NAME='NORM-Y'\r\n      IF ( KSCAN .EQ.13 ) NAME='SHEAR-YZ'\r\n      IF ( KSCAN .EQ.14 ) NAME='PRINC-B'\r\n      IF ( KSCAN .EQ.18 ) NAME='NORM-Z'\r\n      IF ( KSCAN .EQ.19 ) NAME='SHEAR-ZX'\r\n      IF ( KSCAN .EQ.20 ) NAME='PRINC-C'\r\n      IF ( KSCAN .EQ.10 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n120   IF ( IELT .NE. 70 .AND. IELT .NE. 71 ) GO TO 130\r\nC TRIAAX, TRAPAX\r\n      KSCAN = MOD ( ISCAN, 8 )\r\n      IF ( KSCAN .EQ. 3 ) NAME='RADIAL'\r\n      IF ( KSCAN .EQ. 4 ) NAME='AXIAL'\r\n      IF ( KSCAN .EQ. 5 ) NAME='CIRCUM'\r\n      IF ( KSCAN .EQ. 6 ) NAME='MEM-C'\r\n      IF ( KSCAN .EQ. 7 ) NAME='FLEX-T'\r\n      IF ( KSCAN .EQ. 0 ) NAME='FLEX-C'\r\n      GO TO 7000\r\n130   IF ( IELT .NE. 64 .AND. IELT .NE. 83 ) GO TO 150\r\nC QUAD4, TRIA3 WITHOUT LAMINATION\r\n      IF ( LAYERD ) GO TO 140\r\n      IF ( ISCAN .EQ. 3 .OR. ISCAN .EQ. 11 ) NAME='NORMAL-X'\r\n      IF ( ISCAN .EQ. 4 .OR. ISCAN .EQ. 12 ) NAME='NORMAL-Y'\r\n      IF ( ISCAN .EQ. 5 .OR. ISCAN .EQ. 13 ) NAME='SHEAR-XY'\r\n      IF ( ISCAN .EQ. 7 .OR. ISCAN .EQ. 15 ) NAME='MAJOR'\r\n      IF ( ISCAN .EQ. 18.OR. ISCAN .EQ. 16 ) NAME='MINOR'\r\n      IF ( ISCAN .EQ. 9 .OR. ISCAN .EQ. 17 ) NAME='MAX-SHR'\r\n      GO TO 7000\r\n140   CONTINUE\r\nC   QUAD4 AND TRIA3 WITH LAMINATION\r\n      KSCAN = MOD( ISCAN, 10 )\r\n      IF ( ISCAN .EQ. 5 ) NAME='NORMAL-1'\r\n      IF ( ISCAN .EQ. 6 ) NAME='NORMAL-2'\r\n      IF ( ISCAN .EQ. 7 ) NAME='SHEAR-12'\r\n      IF ( ISCAN .EQ. 0 ) NAME='SHEAR-1Z'\r\n      IF ( ISCAN .EQ. 1 ) NAME='SHEAR-2Z'\r\n      GO TO 7000\r\n150   WRITE ( NOUT, 901 ) IELT\r\n901   FORMAT(//,' SCAN MODULE PROCESSING UNKNOWN ELEMENT NUMBER '\r\n     &       ,I8,//)\r\n      CALL MESAGE( -61,0,0)\r\n7000  CONTINUE\r\nC      PRINT *,' RETURNING FROM STRNAM,FIELD=',NAME\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strp11.f",
    "content": "      SUBROUTINE STRP11\r\nC\r\nC     PHASE 1 STRESS DATA RECOVERY FOR CTRPLT1 - HIGHER ORDER PLATE\r\nC     ELEMENT\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING\r\nC\r\nC     1) ELEMENT ID              WORDS    1     STORAGE IN PH1OUT  1\r\nC     2) SIX SILS                WORDS    6                      2-7\r\nC     3) BENDING THICKNESSES     WORDS    3                      8-10\r\nC     4) STRESS POINTS           WORDS    8                     11-18\r\nC     5) 4 NOS. 6 5X6 S MATRICES WORDS    720                   19-738\r\nC     6) 3X1 S SUB T MATRIX      WORDS    3                    739-741\r\nC\r\nC     ECPT ENTRIES\r\nC     AS IN STIFFNESS ROUTINE KTRPL1\r\nC\r\n      LOGICAL          NOTS\r\n      REAL             J11,J12,J22,NSM,IVECT,JVECT,KVECT\r\n      DOUBLE PRECISION DETERM\r\n      DIMENSION        NAME(2),INDEX(20,3),ICS(6),NL(6),Q(6,6),IND(6,3),\r\n     1                 EMOD(9),XC(6),YC(6),ZC(6),QQQ(20,20),QQQINV(360),\r\n     2                 TS6(40),TS7(59),IEST(42),IVECT(3),JVECT(3),\r\n     3                 KVECT(3),E(18),V1(3),V2(3),V3(3),E1(18),\r\n     4                 PH1BEN(9),PH1SHR(6),PH2(18),PH3(12),PH4(90),\r\n     5                 TRANS(9),BALOTR(36),D(9),DPH1(9),G(4),GPH1(6),\r\n     6                 NPH1OU(990)\r\n      COMMON /SDR2X5/  EST(100),PH1OUT(990),FORVEC(24),\r\n     1                 X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3,\r\n     2                 QQQINV,TS6,TS7,PH2,PH3,PH4,Q,E,E1,TRANS,BALOTR\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN /  MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/  EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                 RJ11,RJ12,RJ22\r\nC\r\nC\r\nC     EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS\r\nC     A MIXED INTEGER AND REAL ARRAY\r\nC\r\n      EQUIVALENCE     (A,DISTA), (B,DISTB), (C,DISTC),\r\n     1                (V1(1),EST(19)),(V2(1),EST(23)),(V3(1),EST(27)),\r\n     2                (IEST(1),EST(1)),\r\n     3                (D11,EM(1)),(D12,EM(2)), (D13,EM(3)),\r\n     4                (D22,EM(4)),(D23,EM(5)), (D33,EM(6))\r\n      EQUIVALENCE     (NPH1OU(1),PH1OUT(1))\r\n      EQUIVALENCE     (PH1OUT(401),INDEX(1,1),IND(1,1))\r\n      EQUIVALENCE     (PH1OUT(1),QQQ(1,1))\r\n      DATA  DEGRA  /  0.0174532925            /\r\n      DATA  BLANK  ,  NAME / 4H    , 4HCTRP, 4HLT1   /\r\nC\r\n      NOTS  =.FALSE.\r\n      IDELE = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I) = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = (EST(10)*12.0)**0.333333333333\r\n      TMEM3  = (EST(11)*12.0)**0.333333333333\r\n      TMEM5  = (EST(12)*12.0)**0.333333333333\r\n      MATID2 = IEST(13)\r\n      TSHR1  = EST(14)\r\n      TSHR3  = EST(15)\r\n      TSHR5  = EST(16)\r\n      NSM    = EST(17)\r\n      J      = 0\r\n      DO 120 I = 24,44,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n  120 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 IS ZERO OR BLANK, THEY WILL BE SET EQUAL TO\r\nC     TMEM1\r\nC     SO ALSO FOR TEMP3 OR TEMP5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS = .TRUE.\r\n      ELTEMP = EST(48)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\n      EMOD(1) = D11\r\n      EMOD(2) = D12\r\n      EMOD(3) = D13\r\n      EMOD(4) = D12\r\n      EMOD(5) = D22\r\n      EMOD(6) = D23\r\n      EMOD(7) = D13\r\n      EMOD(8) = D23\r\n      EMOD(9) = D33\r\n      MATID   = MATID2\r\n      MATFLG  = 3\r\n      J11     = 0.0\r\n      J12     = 0.0\r\n      J22     = 0.0\r\n      IF (NOTS) GO TO 146\r\n      CALL MAT (IDELE)\r\n  146 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\n      CALL AF (F,1,A,B,C,A1,A2,A3,TMEM1,TMEM3,TMEM5,1)\r\n      CALL AF (F,1,A,B,C,B1,B2,B3,TSHR1,TSHR3,TSHR5,1)\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 177 I = 1,18\r\n  177 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 110 I = 1,20\r\n      DO 110 J = 1,20\r\n  110 QQQ(I,J) = 0.0\r\n      DO 115 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 113\r\nC\r\n      IF (NOTS) GO TO 1137\r\n      X = XC(I)\r\n      Y = YC(I)\r\n      CALL STRPTS (TS6,NOTS)\r\n      DO 113 JJ = 1,20\r\n      QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ)\r\n      QQQ(I3,JJ) = QQQ(I3,JJ) + TS6(   JJ)\r\n  113 CONTINUE\r\n 1137 CONTINUE\r\n  115 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\n      CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO 152 I = 1,20\r\n      DO 152 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n  152 CONTINUE\r\n      DO 154 I = 1,36\r\n  154 BALOTR(I) = 0.0\r\nC\r\n      DO 102 I = 1,7\r\n      PH1OUT(I) = EST(I)\r\n  102 CONTINUE\r\n      PH1OUT( 8) = TMEM1\r\n      PH1OUT( 9) = TMEM3\r\n      PH1OUT(10) = TMEM5\r\n      PH1OUT(11) = EST(18)\r\n      PH1OUT(12) = EST(19)\r\n      PH1OUT(13) = EST(20)\r\n      PH1OUT(14) = EST(21)\r\n      PH1OUT(15) = EST(22)\r\n      PH1OUT(16) = EST(23)\r\n      DO 700 JJ = 1,4\r\n      JJ1 = JJ*2 - 1\r\n      IF (JJ .NE. 4) X = XC(JJ1)\r\n      IF (JJ .NE. 4) Y = YC(JJ1)\r\n      IF (JJ .EQ. 4) X = (XC(1)+XC(3)+XC(5))/3.0\r\n      IF (JJ .EQ. 4) Y = (YC(1)+YC(3)+YC(5))/3.0\r\n      IF (JJ .EQ. 4) PH1OUT(17) = (A1+A2*X+A3*Y)/2.0\r\n      IF( JJ .EQ. 4) PH1OUT(18) = -PH1OUT(17)\r\n      DO 105 I = 1,60\r\n      TS7(I) = 0.0\r\n  105 CONTINUE\r\n      AI = PH1OUT(7+JJ)**3/12.0\r\n      IF (JJ .EQ. 4) AI = PH1OUT(17)**3/1.5\r\n      DO 107 I = 1,9\r\n  107 D(I) = EMOD(I)*AI\r\n      X2  = X*X\r\n      XY  = X*Y\r\n      Y2  = Y*Y\r\n      X3  = X2*X\r\n      X2Y = X2*Y\r\n      XY2 = X*Y2\r\n      Y3  = Y2*Y\r\n      TS7( 4) = 2.0\r\n      TS7( 7) = 6.0*X\r\n      TS7( 8) = 2.0*Y\r\n      TS7(11) = 12.0*X2\r\n      TS7(12) = 6.0*XY\r\n      TS7(13) = 2.0*Y2\r\n      TS7(16) = 20.0*X3\r\n      TS7(17) = 6.0*XY2\r\n      TS7(18) = 2.0*Y3\r\n      TS7(26) = 2.0\r\n      TS7(29) = 2.0*X\r\n      TS7(30) = 6.0*Y\r\n      TS7(33) = 2.0*X2\r\n      TS7(34) = TS7(12)\r\n      TS7(35) = 12.0*Y2\r\n      TS7(37) = 2.0*X3\r\n      TS7(38) = 6.0*X2Y\r\n      TS7(39) = 12.0*XY2\r\n      TS7(40) = 20.0*Y3\r\n      TS7(45) = 2.0\r\n      TS7(48) = 4.0*X\r\n      TS7(49) = 4.0*Y\r\n      TS7(52) = 6.0*X2\r\n      TS7(53) = 8.0*XY\r\n      TS7(54) = 6.0*Y2\r\n      TS7(57) = 12.0*X2Y\r\n      TS7(58) = TS7(39)\r\n      TS7(59) = 8.0*Y3\r\n      CALL GMMATS (TS7,3,20,0, QQQINV,20,18,0, PH4(1))\r\n      CALL STRPTS (TS6,NOTS)\r\n      CALL GMMATS (TS6,2,20,0, QQQINV,20,18,0, PH4(55))\r\n      DO 600 II = 1,6\r\n      IF (ICS(II) .EQ. 0) GO TO 130\r\n      J = 4*II + 20\r\n      CALL TRANSS (IEST(J),TRANS)\r\n      DO 124 J = 1,3\r\n      L = 6*(J-1) + 1\r\n      M = 3*(J-1) + 1\r\n      BALOTR(L   ) = TRANS(M  )\r\n      BALOTR(L+ 1) = TRANS(M+1)\r\n      BALOTR(L+ 2) = TRANS(M+2)\r\n      BALOTR(L+21) = TRANS(M  )\r\n      BALOTR(L+22) = TRANS(M+1)\r\n      BALOTR(L+23) = TRANS(M+2)\r\n  124 CONTINUE\r\n      CALL GMMATS (E,6,3,+1, BALOTR,6,6,0, E1)\r\n      GO TO 133\r\n  130 CONTINUE\r\n      DO 132 I = 1,3\r\n      DO 132 J = 1,6\r\n      I1 = (I-1)*6 + J\r\n      J1 = (J-1)*3 + I\r\n      E1(I1) = E(J1)\r\n  132 CONTINUE\r\n  133 CONTINUE\r\n      KZ = (II-1)*3 + 1\r\n      PH1BEN(1) = PH4(KZ   )\r\n      PH1BEN(2) = PH4(KZ+ 1)\r\n      PH1BEN(3) = PH4(KZ+ 2)\r\n      PH1BEN(4) = PH4(KZ+18)\r\n      PH1BEN(5) = PH4(KZ+19)\r\n      PH1BEN(6) = PH4(KZ+20)\r\n      PH1BEN(7) = PH4(KZ+36)\r\n      PH1BEN(8) = PH4(KZ+37)\r\n      PH1BEN(9) = PH4(KZ+38)\r\n      CALL GMMATS (D,3,3,0, PH1BEN,3,3,0, DPH1)\r\n      CALL GMMATS (DPH1,3,3,0, E1,3,6,0, PH2)\r\n      MZ = (II-1)*3 + 55\r\n      PH1SHR(1) = PH4(MZ   )\r\n      PH1SHR(2) = PH4(MZ+ 1)\r\n      PH1SHR(3) = PH4(MZ+ 2)\r\n      PH1SHR(4) = PH4(MZ+18)\r\n      PH1SHR(5) = PH4(MZ+19)\r\n      PH1SHR(6) = PH4(MZ+20)\r\n      IF (NOTS) GO TO 166\r\n      THK  = B1 + B2*X + B3*Y\r\n      G(1) = EM(6)*THK\r\n      G(2) = 0.0\r\n      G(3) = 0.0\r\n      G(4) = G(1)\r\n      CALL GMMATS (G,2,2,0, PH1SHR,2,3,0, GPH1)\r\n      GO TO 168\r\n  166 CONTINUE\r\n      GPH1(1) = PH1SHR(1)\r\n      GPH1(2) = PH1SHR(2)\r\n      GPH1(3) = PH1SHR(3)\r\n      GPH1(4) = PH1SHR(4)\r\n      GPH1(5) = PH1SHR(5)\r\n      GPH1(6) = PH1SHR(6)\r\n  168 CONTINUE\r\n      CALL GMMATS (GPH1,2,3,0, E1,3,6,0, PH3)\r\n      DO 148 I = 1,3\r\n      DO 148 J = 1,6\r\n      I1 = (I-1)*6 + J\r\n      I2 = I1 + 18\r\n      J1 = (II-1)*30 + (JJ-1)*180 + I1 + 18\r\n      J2 = J1 + 18\r\n      PH1OUT(J1) = PH2(I1)\r\n      IF (I .NE. 3) PH1OUT(J2) = PH3(I1)\r\n  148 CONTINUE\r\n  600 CONTINUE\r\n      JJ1 = (JJ-1)*3 + 1\r\n      CALL GMMATS (D,3,3,0, ALF,3,1,0, PH1OUT(738+JJ1))\r\n  700 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strp12.f",
    "content": "      SUBROUTINE STRP12 (TI)\r\nC\r\nC     PHASE II OF STRESS DATA RECOVERY\r\nC\r\n      LOGICAL         FLAG\r\n      INTEGER         TLOADS\r\n      REAL            TI(6),SDELTA(3)\r\n      DIMENSION       NSIL(6),STR(18),NPH1OU(990),SI(36),STOUT(68),\r\n     1                REALI(4)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),\r\n     1                TLOADS,MAXSIZ\r\n      COMMON /SDR2X7/ PH1OUT(990),FORVEC(24)\r\n      COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM,\r\n     1                Z1 OVR I,Z2 OVR I,STRESS(18)\r\n      EQUIVALENCE     (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)),\r\n     1                (SI(1),PH1OUT(19)),(LDTEMP,FTEMP),(F1,N1)\r\nC\r\nC     FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION\r\nC\r\nC     M ,  M ,  M ,  V ,  V    FOR ALL SIX GRID POINTS\r\nC      X   Y   XY   X   Y\r\nC\r\nC                                NPTS\r\nC     THE 5X1 FORCE VECTOR = SUMMATION  (S )(U )   FOR EACH POINT\r\nC                                I=1       I   I\r\nC\r\n      NPTS = 6\r\n      DO 15 I = 1,24\r\n   15 FORVEC( I) = 0.0\r\n      FORVEC( 1) = PH1OUT(1)\r\n      FORVEC( 7) = PH1OUT(1)\r\n      FORVEC(13) = PH1OUT(1)\r\n      FORVEC(19) = PH1OUT(1)\r\nC\r\nC     DO 155 II = 1,4\r\nC\r\n      II = 0\r\n   17 II = II + 1\r\n      IF (II .GT. 4) GO TO 155\r\nC\r\nC     ZERO OUT LOCAL STRESSES\r\nC\r\n      SIG X  1 = 0.0\r\n      SIG Y  1 = 0.0\r\n      SIG XY 1 = 0.0\r\n      SIG X  2 = 0.0\r\n      SIG Y  2 = 0.0\r\n      SIG XY 2 = 0.0\r\nC\r\n      IF (NSIL(1) .EQ. 0) GO TO 30\r\nC\r\nC     FORM SUMMATION\r\nC\r\n      DO 20 I = 1,6\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      II1 = (II-1)*180 + 30*I - 29\r\n      CALL GMMATS (SI(II1),5,6,0, Z(NPOINT),6,1,0, VEC(1))\r\nC\r\n      DO 10 J = 2,6\r\n      IJ = (II-1)*6 + J\r\n   10 FORVEC(IJ) = FORVEC(IJ) + VEC(J-1)\r\n   20 CONTINUE\r\nC\r\n      IF (TLOADS .EQ. 0) GO TO 23\r\n      JST  = (II-1)*3 + 738\r\n      I1   = (II-1)*6\r\n      FLAG = .FALSE.\r\n      F1   = TI(6)\r\n      IF (N1 .EQ. 1) GO TO 22\r\n      FORVEC(I1+2) = FORVEC(I1+2) - TI(2)\r\n      FORVEC(I1+3) = FORVEC(I1+3) - TI(3)\r\n      FORVEC(I1+4) = FORVEC(I1+4) - TI(4)\r\n      IF (TI(5).EQ.0.0 .AND. TI(6).EQ.0.0) FLAG = .TRUE.\r\n      GO TO 23\r\n   22 FORVEC(I1+2) = FORVEC(I1+2) + TI(2)*PH1OUT(JST+1)\r\n      FORVEC(I1+3) = FORVEC(I1+3) + TI(2)*PH1OUT(JST+2)\r\n      FORVEC(I1+4) = FORVEC(I1+4) + TI(2)*PH1OUT(JST+3)\r\n      IF (TI(3).EQ.0.0 .AND. TI(4).EQ.0.0) FLAG = .TRUE.\r\n   23 CONTINUE\r\nC\r\nC     FORCE VECTOR IS NOW COMPLETE\r\nC\r\n      IF (II .EQ. 4) GO TO 24\r\n      I1 = II*2 + 9\r\n      I2 = I1 + 1\r\n      Z1 OVR I = -12.0*PH1OUT(I1)/PH1OUT(7+II)**3\r\n      Z2 OVR I = -12.0*PH1OUT(I2)/PH1OUT(7+II)**3\r\n      GO TO 25\r\n   24 ZI OVR I = -1.5/PH1OUT(17)**2\r\n      Z2 OVR I = -Z1 OVR I\r\n   25 CONTINUE\r\n      II1 = (II-1)*6\r\nC\r\n      K1 = 0\r\n      ASSIGN 26 TO IRETRN\r\n      GO TO 170\r\nC\r\n   26 SIG X  1 = FORVEC(II1+2)*Z1 OVR I - SDELTA(1)\r\n      SIG Y  1 = FORVEC(II1+3)*Z1 OVR I - SDELTA(2)\r\n      SIG XY 1 = FORVEC(II1+4)*Z1 OVR I - SDELTA(3)\r\nC\r\n      K1 = 1\r\n      ASSIGN 27 TO IRETRN\r\n      GO TO 170\r\nC\r\n   27 SIG X  2 = FORVEC(II1+2)*Z2 OVR I - SDELTA(1)\r\n      SIG Y  2 = FORVEC(II1+3)*Z2 OVR I - SDELTA(2)\r\n      SIG XY 2 = FORVEC(II1+4)*Z2 OVR I - SDELTA(3)\r\nC\r\n      GO TO 40\r\n   30 Z1 = 0.0\r\n      Z2 = 0.0\r\nC\r\n   40 CONTINUE\r\nC\r\nC     STRESS OUTPUT VECTOR IS THE FOLLOWING\r\nC\r\nC      1) ELEMENT ID\r\nC      2) Z1 = FIBER DISTANCE 1\r\nC      3) SIG X  1\r\nC      4) SIG Y  1\r\nC      5) SIG XY 1\r\nC      6) ANGLE OF ZERO SHEAR AT Z1\r\nC      7) SIG P1 AT Z1\r\nC      8) SIG P2 AT Z1\r\nC      9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1\r\nC     10) ELEMENT ID\r\nC     11) Z2 = FIBER DISTANCE 2\r\nC     12) SIG X  2\r\nC     13) SIG Y  2\r\nC     14) SIG XY 2\r\nC     15) ANGLE OF ZERO SHEAR AT Z2\r\nC     16) SIG P1 AT Z2\r\nC     17) SIG P2 AT Z2\r\nC     S7) SIG P2 AT Z2\r\nC     18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2\r\nC\r\n      IF (NPH1OU(2) .EQ. 0) GO TO 120\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\n      STR( 1) = PH1OUT(1)\r\n      STR( 2) = PH1OUT(II*2+9)\r\n      STR( 3) = SIG X 1\r\n      STR( 4) = SIG Y 1\r\n      STR( 5) = SIG XY 1\r\n      STR(10) = PH1OUT(1)\r\n      STR(11) = PH1OUT(II*2+10)\r\n      STR(12) = SIG X  2\r\n      STR(13) = SIG Y  2\r\n      STR(14) = SIG XY 2\r\nC\r\n      DO 110 I = 3,12,9\r\n      TEMP     = STR(I)-STR(I+1)\r\n      STR(I+6) = SQRT((TEMP/2.0)**2+STR(I+2)**2)\r\n      DELTA    = (STR(I)+STR(I+1))/2.0\r\n      STR(I+4) = DELTA+STR(I+6)\r\n      STR(I+5) = DELTA-STR(I+6)\r\n      DELTA    = 2.0*STR(I+2)\r\n      IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 100\r\n      STR(I+3) = ATAN2(DELTA,TEMP)*28.6478898E0\r\n      GO TO 110\r\n  100 STR(I+3) = 0.0\r\n  110 CONTINUE\r\n      GO TO 140\r\n  120 DO 130 I = 2,18\r\n  130 STR( I) = 0.0\r\n  140 STR( 1) = PH1OUT(1)\r\n      STR(10) = PH1OUT(1)\r\nC\r\nC     ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT\r\nC\r\n      IJK = (II-1)*17\r\n      STOUT(IJK+1) = PH1OUT(1)\r\n      DO 149 I = 2,9\r\n  149 STOUT(IJK+I) = STR(I)\r\n      DO 150 I = 10,17\r\n  150 STOUT (IJK+I) = STR(I+1)\r\nC\r\n      GO TO 17\r\n  155 CONTINUE\r\n      DO 156 I = 1,17\r\n  156 PH1OUT(100+I) = STOUT(I)\r\n      DO 159 J = 1,3\r\n      DO 159 I = 1,16\r\n      J1 = 117 + (J-1)*16 + I\r\n      J2 = (J-1)*17 + I + 18\r\n      PH1OUT(J1) = STOUT(J2)\r\n  159 CONTINUE\r\n      DO 157 I = 1,6\r\n  157 PH1OUT(200+I) = FORVEC(I)\r\n      DO 158 I = 1,5\r\n      PH1OUT(206+I) = FORVEC(I+ 7)\r\n  158 PH1OUT(211+I) = FORVEC(I+13)\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE\r\nC\r\n  170 IF (TLOADS.EQ.0 .OR. FLAG) GO TO 200\r\n      JST = 738 + (II-1)*3\r\n      REALI(1) = PH1OUT(8)**3/12.0\r\n      REALI(2) = PH1OUT(9)**3/12.0\r\n      REALI(3) = PH1OUT(10)**3/12.0\r\n      CENTHK   = PH1OUT(17)*2.0\r\n      REALI(4) = CENTHK**3/12.0\r\n      IF (N1 .EQ. 1) GO TO 190\r\n      FF = TI(K1+5) - TI(1)\r\n      IF (ABS(PH1OUT(K1+9+2*II)) .LE.1.0E-07) GO TO 200\r\n      SDELTA(1) = (PH1OUT(JST+1)*FF + TI(2)*PH1OUT(K1+9+2*II))/REALI(II)\r\n      SDELTA(2) = (PH1OUT(JST+2)*FF + TI(3)*PH1OUT(K1+9+2*II))/REALI(II)\r\n      SDELTA(3) = (PH1OUT(JST+3)*FF + TI(4)*PH1OUT(K1+9+2*II))/REALI(II)\r\n      GO TO 210\r\n  190 CONTINUE\r\n      IF (ABS(PH1OUT(K1+9+2*II)) .LE. 1.0E-07) GO TO 200\r\n      FF1 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II)\r\n      FF2 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II)\r\n      FF3 = (TI(K1+3) - PH1OUT(K1+9+2*II)*TI(2)-TI(1))/REALI(II)\r\n      SDELTA(1) = PH1OUT(JST+1)*FF1\r\n      SDELTA(2) = PH1OUT(JST+2)*FF2\r\n      SDELTA(3) = PH1OUT(JST+3)*FF3\r\n      GO TO 210\r\n  200 SDELTA(1) = 0.0\r\n      SDELTA(2) = 0.0\r\n      SDELTA(3) = 0.0\r\n  210 GO TO IRETRN, (26,27)\r\n      END\r\n"
  },
  {
    "path": "mis/strpl1.f",
    "content": "      SUBROUTINE STRPL1\r\nC\r\nC     PHASE I OF STRESS DATA RECOVERY FOR TRI-PLATE\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING.\r\nC\r\nC     1) ELEMENT ID\r\nC     2) 3 SILS AND A DUMMY\r\nC     3) I\r\nC     4) Z1 AND Z2\r\nC     5) 3  5X6 S-SUB-I ARRAYS\r\nC     6) 3 X 1  S SUB T MATRIX\r\nC     THUS, 101 WORDS FOR THE TRI-PLATE\r\nC\r\nC\r\nC     ECPT LISTS AS OF AUGUST 4, 1967\r\nC\r\nC                 DEFINITION\r\nC       ECPT      BSC.BEND.TRI. AND THE TRI-PLATE\r\nC     ========   ================================\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB,SUBSCC\r\n      REAL            L1,L2,IVECT,JVECT,KVECT,D(9)\r\n      DIMENSION       M(9),REQUIV(9),G(36),TITE(10),V(25),HQ(12),\r\n     1                TEMP15(15),PROD15(15),NECPT(25),V1(3),V2(3),V3(3)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SDR2X5/ ECPT(100),PH1OUT(98),ST(3)\r\n      COMMON /SDR2X6/ A(45),T(9),S(18),HINV(36),PROD12(12),D1(3),D2(3),\r\n     1                HABC(18),SSUM(60),R(2,4),IVECT(3),JVECT(3),\r\n     2                KVECT(3),VV1(2),VV2(2),XSUBB,XSUBC,YSUBC,E(18),\r\n     3                TEMP,L1,L2,C1,C2,S1,S2,X1,X2,Y1,Y2,NPOINT,DUM9,\r\n     4                TEMP1,TEMP2,PROD9(9),TEMP9(9),DUM8,KM,SUBSCA,\r\n     5                SUBSCB,SUBSCC,DUM11,THETA,NSUBC,ISING,U1,U2,\r\n     6                SINANG,COSANG,DUM10,XC,YC,DETERM,DUM12(4)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA(3)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(PROD15(1),PROD9(1)),\r\n     1                (REQUIV(1),R(1,1)),(NECPT(1),ECPT(1)),\r\n     2                (V1(1),ECPT(14)),(V2(1),ECPT(18)),\r\n     3                (V3(1),ECPT(22)),(TITE(1),A(1)),\r\n     4                (V(1),PROD12(1)),(HQ(1),A(1))\r\n      DATA    M     / 1,2,4, 2,3,4, 3,1,4 /\r\nC\r\n      ELTEMP = ECPT(25)\r\n      THETA  = ECPT(5)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,8\r\n   10 REQUIV(I) = 0.0\r\nC\r\n      DO 20 I = 1,3\r\n      D2(I) = V2(I) - V1(I)\r\n   20 D1(I) = V3(I) - V1(I)\r\nC\r\nC     X2  GOES IN R(1,2)\r\nC\r\n      R(1,2)  = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2)\r\n      DO 30 I = 1,3\r\n   30 IVECT(I) = D2(I)/R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\nC\r\n      KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3)\r\n      KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1)\r\n      KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\nC\r\n      R(2,3)  = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 40 I = 1,3\r\n   40 KVECT(I) = KVECT(I)/R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 60 I = 1,3\r\n   60 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\nC\r\n      R(1,4) = (R(1,2) + R(1,3))/3.0\r\n      R(2,4) = R(2,3)/3.0\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n      DO 80 I = 1,60\r\n   80 SSUM(I) = 0.0\r\n      DO 90 I = 1,36\r\n   90 G(I) = 0.0\r\nC\r\n      DO 180 J = 1,3\r\n      KM = 3*J - 3\r\nC\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1     = VV1(1)/XSUBB\r\n      U2     = VV1(2)/XSUBB\r\n      XSUBC  = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC  = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC = XSUBC\r\n      YC = YSUBC\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR TRIANGLE -J-\r\nC\r\n      CALL STRBS1 (2)\r\nC\r\nC     RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S  , S  , S  , EACH 5X3.  45 WORDS STORED IN A( 1) THRU A(45)\r\nC        A    B    C\r\nC\r\nC     AND ALSO H-INVERSE IS AT A(73) THRU A(108) AND S IS AT A(55) THRU\r\nC     A(72)\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1/3.0\r\n      V( 2) = U2*U2/3.0\r\n      V(11) = U1*U2/3.0\r\n      V( 3) =-V(11)*2.0\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1/3.0\r\n      V(20) =-U2/3.0\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 120 I = 1,3\r\n      CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1))\r\n      CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0,  PROD15(1))\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 110 K = 1,15\r\n      NSUBC = NPOINT + K\r\n  110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  120 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1  = XSUBB - XSUBC\r\n      TEMP2  = YSUBC**2\r\n      L1     = SQRT(XSUBC**2 + TEMP2)\r\n      L2     = SQRT(TEMP1**2 + TEMP2)\r\n      S1     = XSUBC/L1\r\n      S2     = TEMP1/L2\r\n      C1     = YSUBC/L1\r\n      C2     = YSUBC/L2\r\n      X1     = XSUBC/2.0\r\n      Y1     = YSUBC/2.0\r\n      X2     = (XSUBB + XSUBC)/2.0\r\n      Y2     = Y1\r\n      HQ( 1) =-XSUBC*C1\r\n      HQ( 2) = X1*S1 - Y1*C1\r\n      HQ( 3) = 2.0*Y1*S1\r\n      HQ( 4) =-3.0*X1*X1*C1\r\n      HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1)\r\n      HQ( 6) = 3.0*Y1*Y1*S1\r\n      HQ( 7) = 2.0*X2*C2\r\n      HQ( 8) = X2*S2 + Y2*C2\r\n      HQ( 9) = 2.0*Y2*S2\r\n      HQ(10) = 3.0*X2*X2*C2\r\n      HQ(11) = Y2*(2.0*X2*S2 + Y2*C2)\r\n      HQ(12) = 3.0*Y2*Y2*S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\n      CALL GMMATS (HQ(1),2,6,0, HINV(1),6,6,0, PROD12(1))\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1))\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT(H     ) AND (H     )  PARTITION\r\nC            PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA,SUBSCB,SUBSCC.\r\nC\r\n      DO 170 I = 1,3\r\nC\r\nC     POINTER TO H  = 6*I - 6\r\nC                 I\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1))\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1  ROW 1 OF H INTO ROW 1 OF G.\r\nC            ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2  ROW 1 OF H INTO ROW 2 OF G.\r\nC            ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3  ROW 1 OF H INTO ROW 3 OF G.\r\nC            ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF (J-2) 140,130,160\r\nC\r\n  130 NPOINT = NPOINT + 3\r\n  140 DO 150 K = 1,6\r\n      NPOINT = NPOINT + 1\r\n  150 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 170\r\n  160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1)\r\n      G(NPOINT+8) = G(NPOINT+8) + TEMP9(2)\r\n      G(NPOINT+9) = G(NPOINT+9) + TEMP9(3)\r\n      G(NPOINT+1) = G(NPOINT+1) + TEMP9(4)\r\n      G(NPOINT+2) = G(NPOINT+2) + TEMP9(5)\r\n      G(NPOINT+3) = G(NPOINT+3) + TEMP9(6)\r\nC\r\n  170 CONTINUE\r\n  180 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 190 I = 1,18\r\n  190 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC               *         *     -1\r\nC     (S ) = (S  )  -  (S  )(G )  (G )        I = A,B,C\r\nC       I      I         4    4     I\r\nC\r\nC        E            T                  T\r\nC     (S  ) = (S ) (E) (C ) = (S ) (TITE)     I = A,B,C\r\nC       I       I        I      I\r\nC\r\nC                                 *     -1\r\nC     FIRST GET COMMON PRODUCT (S  )(G )\r\nC                                4    4\r\nC\r\nC     INVERT  (G )  STORE INVERSE BACK INTO  (G )\r\nC               4                              4\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1))\r\nC\r\nC     CHECK FOR SINGULARITY.  ISING = 2 IMPLIES SINGULARITY\r\nC\r\n      GO TO (210,200), ISING\r\n  200 CALL MESAGE (-30,36,ECPT(1))\r\nC\r\n  210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1))\r\nC\r\n      DO 260 I = 1,3\r\nC\r\nC    (PROD15) (G )\r\nC               I\r\nC\r\n      CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1))\r\nC\r\nC     SUBTRACT TEMP15 FROM S\r\nC                           I\r\nC\r\n      NPOINT = 15*I - 15\r\n      DO 220 K = 1,15\r\n      NPOINT = NPOINT + 1\r\n  220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K)\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 9\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 230\r\n      CALL TRANSS (NECPT(NSUBC),T(1))\r\n      CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 250\r\nC\r\n  230 DO 240 K = 1,18\r\n  240 TITE(K) = E(K)\r\nC\r\n  250 CALL GMMATS (SSUM(15*I -14),5,3,0, TITE(1),6,3,1, PH1OUT(30*I-21))\r\nC\r\n  260 CONTINUE\r\nC\r\nC     I,Z1,Z2,ELEM ID, 3 SILS FOR PHASE 2... PH1OUT(5) IS A DUMMY\r\nC\r\n      PH1OUT(1) = ECPT( 1)\r\n      PH1OUT(2) = ECPT( 2)\r\n      PH1OUT(3) = ECPT( 3)\r\n      PH1OUT(4) = ECPT( 4)\r\n      PH1OUT(6) = ECPT( 7)\r\n      PH1OUT(7) = ECPT(11)\r\n      PH1OUT(8) = ECPT(12)\r\nC\r\nC     FORM S SUB T MATRIX\r\nC\r\n      MATID  = NECPT(6)\r\n      STRESS = 0\r\n      SINTH  = SINANG\r\n      COSTH  = COSANG\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\n      D(1) = G11*ECPT(7)\r\n      D(2) = G12*ECPT(7)\r\n      D(3) = G13*ECPT(7)\r\n      D(4) = D(2)\r\n      D(5) = G22*ECPT(7)\r\n      D(6) = G23*ECPT(7)\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = G33*ECPT(7)\r\n      CALL GMMATS (D(1),3,3,0, ALPHA(1),3,1,0, ST(1))\r\nC\r\nC     ALL PHASE ONE COMPLETE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strpts.f",
    "content": "      SUBROUTINE STRPTS (TS6,NOTS)\r\nC\r\nC    STRESS ROUTINE ,CALLED FROM STRP11, FOR HIGHER ORDER PLATE ELEMENT\r\nC\r\n      REAL J11,J12,J22\r\n      LOGICAL NOTS\r\n      DIMENSION TS6(40)\r\n      COMMON /MATOUT/ EM(6)\r\n      COMMON /SDR2X5/ DUMSD(1114)\r\n     1,    X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3\r\n      DO 105 I=1,40\r\n      TS6(I)=0.0\r\n  105 CONTINUE\r\n      THK=A1+A2*X+A3*Y\r\n      THK1=THK**3/12.0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      IF (NOTS) GO TO 146\r\n      THK=B1+B2*X+B3*Y\r\n      J11=1.0/(EM(6)*THK)\r\n      J12=0.0\r\n      J22=J11\r\n      GO TO 148\r\n  146 CONTINUE\r\n      J11=1.0\r\n      J12=0.0\r\n      J22=1.0\r\n  148 CONTINUE\r\nC\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\nC\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      A38=A13+A14\r\n      A39=A12+A16\r\n      A40=A23+A24\r\n      A41=A22+A26\r\n      TS6( 7)=6.0*A11\r\n      TS6( 8)=2.0*A31\r\n      TS6( 9)=2.0*A32\r\n      TS6(10)=6.0*A15\r\n      TS6(11)=24.0*A11*X\r\n      TS6(12)=6.0*(A31*X+A11*Y)\r\n      TS6(13)=4.0*(A32*X+A31*Y)\r\n      TS6(14)=6.0*(A15*X+A32*Y)\r\n      TS6(15)=24.0*A15*Y\r\n      IF (NOTS) GO TO 156\r\n      TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2)\r\n      TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21)\r\n     1   +6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33)\r\n     1   +6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15)\r\n      TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2)\r\n      GO TO 158\r\n  156 CONTINUE\r\n      TS6(16)=60.0*A11*X2\r\n      TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=12.0*(2.0*A15*XY+A32*Y2)\r\n      TS6(20)=60.0*A15*Y2\r\n  158 CONTINUE\r\n      TS6(27)=6.0*A21\r\n      TS6(28)=2.0*A33\r\n      TS6(29)=2.0*A34\r\n      TS6(30)=6.0*A25\r\n      TS6(31)=24.0*A21*X\r\n      TS6(32)=6.0*(A33*X+A21*Y)\r\n      TS6(33)=4.0*(A34*X+A33*Y)\r\n      TS6(34)=6.0*(A25*X+A34*Y)\r\n      TS6(35)=24.0*A25*Y\r\n      IF (NOTS) GO TO 166\r\n      TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2)\r\n      TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21)\r\n     1   +6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33)\r\n     1   +6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15)\r\n      TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2)\r\n      GO TO 168\r\n  166 CONTINUE\r\n      TS6(36)=60.0*A21*X2\r\n      TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=12.0*(2.0*A25*XY+A34*Y2)\r\n      TS6(40)=60.0*A25*Y2\r\n  168 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strqd1.f",
    "content": "      SUBROUTINE STRQD1 ( NTYPE )\r\nC\r\nC**************** PHASE I  STRESS DATA RECOVERY ************************\r\nC **********************************************************************\r\nC\r\nC     9/12/67         E C P T     L I S T I N G\r\nC                    ***************************\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC **********************************************************************\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC **********************************************************************\r\nC\r\n      DIMENSION SAVE(32)\r\nC\r\nC     ********FOLLOWING BLOCK IS SET AT MINIMUM LENGTH REQUIRED BY\r\nC     ********THIS ROUTINE.....\r\nC\r\n      COMMON /SDR2X5/  ECPT(100) ,    PH1OUT(176)\r\nC\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC              NTYPE = 1  IMPLIES STRIA1\r\nC              NTYPE = 2  IMPLIES STRIA2\r\nC              NTYPE = 3  IMPLIES SQUAD1\r\nC              NTYPE = 4  IMPLIES SQUAD2\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I=1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO OPERATIONS DESIRED\r\nC\r\nC              STRIA1    STRIA2    SQUAD1    SQUAD2\r\n      GO TO(20,100,150,230),NTYPE\r\nC\r\nC     **************\r\nC 100 *** STRIA1 ***\r\nC     **************\r\nC\r\nC     SET UP ECPT FOR CALL TO STRME1(0), FIRST CHECK T1 FOR ZERO.\r\n   20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 50\r\n      DO 30 I=9,21\r\n   30 ECPT(I) = SAVE(I + 6)\r\nC\r\n      CALL STRME1(0)\r\nC\r\nC     MOVE OUTPUT FROM STRME1 DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (102 THRU 137)\r\nC\r\n      DO 40 I=1,36\r\n   40 PH1OUT(I+101)  = PH1OUT(I)\r\n      GO TO 60\r\nC\r\n   50 PH1OUT(102) = ECPT(1)\r\n      PH1OUT(103) = 0.0E0\r\nC\r\nC 150 SET UP ECPT FOR CALL TO STQPL1(3), FIRST CHECK I AND T2 EQUAL ZERO\r\n   60 IF( SAVE(9) .EQ. 0.0E0 ) GO TO 90\r\n      DO 70 I=1,5\r\n   70 ECPT(I) = SAVE(I)\r\n      DO 80 I=6,25\r\n   80 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL STRPL1\r\n      RETURN\r\nC\r\n   90 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC 200 *** STRIA2 ***\r\nC     **************\r\n  100 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 140\r\nC     SET UP ECPT FOR CALL TO STRME1(0)\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL STRME1( 0 )\r\nC\r\nC     MOVE OUTPUT FROM STRME1 DOWN TO NEAR BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 36) DOWN TO (102 THRU 137)\r\nC\r\n      DO 110 I=1,36\r\n  110 PH1OUT(I+101)  = PH1OUT(I)\r\nC\r\nC     SET UP ECPT FOR CALL TO STQPL1(3)\r\nC\r\n      DO 120 I=1,6\r\n  120 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7) ** 3  / 12.0E0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11) =-SAVE(7)/2.0E0\r\n      ECPT(12) = -ECPT(11)\r\n      DO 130 I=13,25\r\n  130 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL STRPL1\r\n      RETURN\r\nC\r\n  140 PH1OUT(  1) = ECPT(1)\r\n      PH1OUT(  2) = 0.0E0\r\n      PH1OUT(102) = ECPT(1)\r\n      PH1OUT(103) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC 300 *** SQUAD1 ***\r\nC     **************\r\nC\r\n  150 IF(SAVE(8).EQ.0.0E0)GO TO 180\r\nC\r\nC     SET UP ECPT FOR CALL TO SQDME1\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 160 I=10,26\r\n  160 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL SQDME1\r\nC\r\nC     MOVE OUTPUT FROM SQDME1 DOWN TO BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (132 THRU 176)\r\nC\r\n      DO 170 I=1,45\r\n  170 PH1OUT(I+131)   = PH1OUT(I)\r\nC\r\n      GO TO 190\r\n  180 PH1OUT(132) = ECPT(1)\r\n      PH1OUT(133) = 0.0E0\r\nC\r\n  190 IF( SAVE(10) .EQ. 0.0E0 ) GO TO 220\r\nC\r\nC     SET UP ECPT FOR CALL TO STQPL1(4)\r\nC\r\n      DO 200 I=1,6\r\n  200 ECPT(I) = SAVE(I)\r\n      DO 210 I=7,30\r\n  210 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL SQDPL1\r\n      RETURN\r\nC\r\n  220 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      RETURN\r\nC\r\nC     **************\r\nC 400 *** SQUAD2 ***\r\nC     **************\r\nC\r\n  230 IF( SAVE(8) .EQ. 0.0E0 ) GO TO 270\r\nC\r\nC     SET UP ECPT FOR CALL TO SQDME1\r\nC\r\nC      ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL SQDME1\r\nC     MOVE OUTPUT FROM SQDME1 DOWN TO BOTTOM OF PH1OUT\r\nC     WORDS (1 THRU 45) DOWN TO (132 THRU 176)\r\nC\r\n      DO 240 I=1,45\r\n  240 PH1OUT(I+131)   = PH1OUT(I)\r\nC\r\nC\r\nC     SET UP ECPT FOR CALL TO STQPL1(4)\r\nC\r\n      DO 250 I=1,7\r\n  250 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8) **3 / 12.0E0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11)= SAVE(9)\r\n      ECPT(12) =-SAVE(8)/2.0E0\r\n      ECPT(13) =-ECPT(12)\r\n      DO 260 I=14,30\r\n  260 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL SQDPL1\r\nC\r\n      RETURN\r\nC\r\n  270 PH1OUT(1) = ECPT(1)\r\n      PH1OUT(2) = 0.0E0\r\n      PH1OUT(132) = ECPT(1)\r\n      PH1OUT(133) = 0.0E0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strqd2.f",
    "content": "      SUBROUTINE STRQD2( NPTS, TI )\r\nC\r\nC     ****PHASE II OF STRESS DATA RECOVERY*********\r\nC\r\nC     NPTS = 3 IMPLIES STRIA1 OR STRIA2  (PHASE II)\r\nC     NPTS = 4 IMPLIES SQUAD1 OR SQUAD2  (PHASE II)\r\nC\r\n      LOGICAL FLAG\r\n      LOGICAL STRAIN\r\nC\r\n      REAL    TI(6)    ,SDELTA(3),SSTRSS(3),FRLAST(2)\r\nC\r\n      INTEGER IST(10)\r\n      INTEGER TLOADS   ,EJECT    ,IFRVEC(12),ISHED(7),TR       ,QU\r\n     1,       ONTW(2)  ,ISTYP(2)\r\nC\r\n      DIMENSION NSIL(4), STR(18), NPH1OU(2), SI(36)\r\nC\r\n      COMMON /BLANK / IDUMMY(10), STRAIN\r\n      COMMON   /SYSTEM/  IBFSZ    ,NOUT     ,IDM(9)   ,LINE\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35), IVEC, IVECN, LDTEMP, DEFORM,DUM8(8),\r\n     1  TLOADS\r\n      COMMON /SDR2X7/ PH1OUT(200),FORVEC(6)\r\n      COMMON /SDR2X8/ TEMP,DELTA,NPOINT,I,J,NPT1,VEC(5),TEM\r\n     1,            Z1 OVR I, Z2 OVR I,STRESS(3),CHPOUT(30),CVEC(5)\r\n     1,            CFRVEC(12)\r\n      COMMON /SDR2X9/ NCHK,ISUB,ILD,FRTMEI(2),TWOTOP,FNCHK\r\n      COMMON /SDR2DE/ SKP2DE(8),IELTYP\r\nC\r\n      EQUIVALENCE\r\n     1  (NSIL(1),PH1OUT(2))\r\n     2 ,(NPH1OU(1),PH1OUT(1))\r\n     3 ,(SI(1),PH1OUT(9))\r\n     6 ,(STR(1),PH1OUT(101))\r\n     7 ,(LDTEMP,FTEMP)\r\n     8 ,(F1,N1)\r\n     9,  (CFRVEC(1),IFRVEC(1)) ,  (ISHED(6),FRLAST(1))\r\n     *,  (ISHED(1),LSUB) , (ISHED(2),LLD)\r\n      EQUIVALENCE (STR(1), IST(1))\r\nC\r\n      DATA TR,QU,ONTW / 4HTRIA , 4HQUAD , 1H1 , 1H2  / , LLD  / -100 /\r\n      DATA LSUB,FRLAST / -100 , -1.0E30 , -1.0E30   /\r\n      DATA IBLANK /4H    /\r\nC **********************************************************************\r\nC **********************************************************************\r\nC\r\nC     PHASE I OUTPUT FROM THE PLATE IS THE FOLLWOING\r\nC\r\nC     PH1OUT(1)                        ELEMENT ID\r\nC     PH1OUT(2 THRU 5)                 3 SILS AND DUMMY OR 4 SILS\r\nC     PH1OUT(6)                        I\r\nC     PH1OUT(7 THRU 8)                 Z1 AND Z2\r\nC     PH1OUT(9 THRU 30*NPTS+8)         3 OR 4 S SUB I  5X6 ARRAYS\r\nC     PH1OUT(30*NPTS+9 THRU 30*NPTS+11)  S SUB T MATRIX\r\nC\r\nC **********************************************************************\r\nC\r\nC     PHASE I OUTPUT FROM THE MEMBRANE IS THE FOLLOWING\r\nC     NOTE..BEGIN = 30*NPTS+11\r\nC\r\nC     PH1OUT(BEGIN + 1)                ELEMENT ID\r\nC     PH1OUT(BEGIN + 2 THRU BEGIN + 5) 3 SILS AND DUMMY OR 4 SILS\r\nC     PH1OUT(BEGIN + 6)                T SUB 0\r\nC     PH1OUT(BEGIN + 7 THRU BEGIN + 9) S SUB T  3X1 ARRAY\r\nC     PH1OUT(BEGIN + 10 THRU BEGIN + 9*NPTS+9) 3 OR 4 S SUB I 3X3 ARRAYS\r\nC\r\nC **********************************************************************\r\nC **********************************************************************\r\nC\r\nC     THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES...\r\nC     SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN\r\nC     MEMBRANES.\r\nC\r\nC     A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH\r\nC     INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW\r\nC\r\nC\r\nC\r\nC     FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION\r\nC\r\nC     M ,  M ,  M  ,  V ,  V\r\nC      X    Y    XY    X    Y\r\nC\r\nC                                NPTS\r\nC     THE  5X1 FORCE VECTOR = SUMMATION  (S )(U )\r\nC                                I=1       I   I\r\nC\r\nC *********************************************************************\r\nC\r\nC  . ZERO FORVEC AND PRECISION CHECK STORAGE...\r\nC\r\n      DO 5 I = 1,6\r\n      FORVEC(I) = 0.0E0\r\n      CFRVEC(I) = 0.0E0\r\n    5 CFRVEC(I+6) = 0.0E0\r\n      FORVEC(1) = PH1OUT(1)\r\nC\r\nC     ZERO OUT LOCAL STRESSES\r\nC\r\n      SIG X  1 = 0.0E0\r\n      SIG Y  1 = 0.0E0\r\n      SIG XY 1 = 0.0E0\r\n      SIG X  2 = 0.0E0\r\n      SIG Y  2 = 0.0E0\r\n      SIG XY 2 = 0.0E0\r\nC\r\n      IF( NSIL(1) .EQ. 0 ) GO TO 30\r\nC\r\nC     FORM SUMMATION\r\nC\r\n      DO 20 I=1,NPTS\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      CALL SMMATS (SI(30*I-29),5,6,0, Z(NPOINT),6,1,0, VEC(1),CVEC(1) )\r\n      DO 10 J=2,6\r\n      CFRVEC(J) = CFRVEC(J) + CVEC(J-1)\r\n   10 FORVEC(J) = FORVEC(J) + VEC(J-1)\r\nC\r\n   20 CONTINUE\r\n      IF (STRAIN) GO TO 220\r\n      IF( TLOADS .EQ. 0 ) GO TO 25\r\n      JST = 30*NPTS+8\r\n      FLAG = .FALSE.\r\n      F1 = TI(6)\r\n      IF( N1 .EQ. 1 ) GO TO 22\r\n      FORVEC(2) = FORVEC(2) - TI(2)\r\n      FORVEC(3) = FORVEC(3) - TI(3)\r\n      FORVEC(4) = FORVEC(4) - TI(4)\r\n      IF( TI(5).EQ.0.0 .AND. TI(6).EQ.0.0 ) FLAG = .TRUE.\r\n      GO TO 25\r\n   22 FORVEC(2) = FORVEC(2) + TI(2)*PH1OUT(JST+1)\r\n      FORVEC(3) = FORVEC(3) + TI(2)*PH1OUT(JST+2)\r\n      FORVEC(4) = FORVEC(4) + TI(2)*PH1OUT(JST+3)\r\n      IF( TI(3).EQ.0.0 .AND. TI(4).EQ.0.0 ) FLAG = .TRUE.\r\n   25 CONTINUE\r\nC\r\nC     FORCE VECTOR IS NOW COMPLETE\r\nC\r\n      Z1 = PH1OUT(7)\r\n      Z2 = PH1OUT(8)\r\nC\r\n      Z1 OVR I = - PH1OUT(7) / PH1OUT(6)\r\n      Z2 OVR I = - PH1OUT(8) / PH1OUT(6)\r\n      Z1I = ABS (Z1OVRI)\r\n      Z2I = ABS (Z2OVRI)\r\nC\r\n      K1 = 0\r\n      ASSIGN 26 TO IRETRN\r\n      GO TO 170\r\nC\r\n   26 SIG X  1 = FORVEC(2) * Z1 OVR I - SDELTA(1)\r\n      SIG Y  1 = FORVEC(3) * Z1 OVR I - SDELTA(2)\r\n      SIG XY 1 = FORVEC(4) * Z1 OVR I - SDELTA(3)\r\n      CFRVEC(7) = CFRVEC(2) * Z1I\r\n      CFRVEC(8) = CFRVEC(3) * Z1I\r\n      CFRVEC(9) = CFRVEC(4) * Z1I\r\nC\r\n      K1 = 1\r\n      ASSIGN 27 TO IRETRN\r\n      GO TO 170\r\nC\r\n   27 SIG X  2 = FORVEC(2) * Z2 OVR I - SDELTA(1)\r\n      SIG Y  2 = FORVEC(3) * Z2 OVR I - SDELTA(2)\r\n      SIG XY 2 = FORVEC(4) * Z2 OVR I - SDELTA(3)\r\n      CFRVEC(10) = CFRVEC(2) * Z2I\r\n      CFRVEC(11) = CFRVEC(3) * Z2I\r\n      CFRVEC(12) = CFRVEC(4) * Z2I\r\nC     *******************************\r\nC\r\n      GO TO 40\r\n   30 Z1 = 0.0E0\r\n      Z2 = 0.0E0\r\nC\r\nC     FIND SIG X, SIG Y, SIG XY, FOR MEMBRANE CONSIDERATION\r\n   40 IF( NPH1OU(30*NPTS+13) .EQ. 0 ) GO TO 90\r\nC\r\nC     ZERO STRESS VECTOR STORAGE\r\nC\r\n      STRESS(1) = 0.0E0\r\n      STRESS(2) = 0.0E0\r\n      STRESS(3) = 0.0E0\r\n      SSTRSS(1) = 0.0E0\r\n      SSTRSS(2) = 0.0E0\r\n      SSTRSS(3) = 0.0E0\r\nC\r\nC                            I=NPTS\r\nC        STRESS VECTOR = (  SUMMATION(S )(U )  ) - (S )(LDTEMP - T )\r\nC                            I=1       I   I         T            0\r\nC\r\n      DO 60 I=1,NPTS\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\n      NPOINT = 30*NPTS + 12 + I\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\n      NPOINT = IVEC + NPH1OU (NPOINT) - 1\r\nC\r\nC     POINTER TO S SUB I 3X3\r\n      NPT1 = 30*NPTS + 12 + 9*I\r\nC\r\n      CALL SMMATS (PH1OUT(NPT1),3,3,0, Z(NPOINT),3,1,0, VEC(1),CVEC(1))\r\n      DO 50 J=1,3\r\n      SSTRSS(J) = SSTRSS(J) + CVEC(J)\r\n   50 STRESS(J) = STRESS(J) + VEC(J)\r\nC\r\n   60 CONTINUE\r\nC\r\n      IF (STRAIN) GO TO 230\r\n      IF(LDTEMP .EQ. (-1) ) GO TO 80\r\nC\r\nC     POINTER TO T SUB 0 = 30*NPTS + 17\r\nC\r\n      TEM = FTEMP - PH1OUT(30*NPTS + 17)\r\n      DO 70 I=1,3\r\n      NPOINT = 30*NPTS + 17 + I\r\n   70 STRESS(I) = STRESS(I) -PH1OUT(NPOINT) *TEM\r\nC\r\nC     ADD MEMBRANE STRESSES TO PLATE STRESSES\r\nC\r\n   80 SIG X  1 = SIG X  1 + STRESS(1)\r\n      SIG Y  1 = SIG Y  1 + STRESS(2)\r\n      SIG XY 1 = SIG XY 1 + STRESS(3)\r\n      SIG X  2 = SIG X  2 + STRESS(1)\r\n      SIG Y  2 = SIG Y  2 + STRESS(2)\r\n      SIG XY 2 = SIG XY 2 + STRESS(3)\r\n      CFRVEC( 7) = CFRVEC( 7) + SSTRSS(1)\r\n      CFRVEC( 8) = CFRVEC( 8) + SSTRSS(2)\r\n      CFRVEC( 9) = CFRVEC( 9) + SSTRSS(3)\r\n      CFRVEC(10) = CFRVEC(10) + SSTRSS(1)\r\n      CFRVEC(11) = CFRVEC(11) + SSTRSS(2)\r\n      CFRVEC(12) = CFRVEC(12) + SSTRSS(3)\r\nC\r\nC     STRESS OUTPUT VECTOR IS THE FOLLOWING\r\nC\r\nC      1) ELEMENT ID\r\nC      2) Z1 = FIBER DISTANCE 1\r\nC      3) SIG X  1\r\nC      4) SIG Y  1\r\nC      5) SIG XY 1\r\nC      6) ANGLE OF ZERO SHEAR AT Z1\r\nC      7) SIG P1 AT Z1\r\nC      8) SIG P2 AT Z1\r\nC      9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1\r\nC\r\nC     10) ELEMENT ID\r\nC     11) Z2 = FIBER DISTANCE 2\r\nC     12) SIG X  2\r\nC     13) SIG Y  2\r\nC     14) SIG XY 2\r\nC     15) ANGLE OF ZERO SHEAR AT Z2\r\nC     16) SIG P1 AT Z2\r\nC     17) SIG P2 AT Z2\r\nC     S7) SIG P2 AT Z2\r\nC     18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2\r\nC\r\nC\r\n   90 IF( NPH1OU(2) .EQ. 0 .AND. NPH1OU(30*NPTS+13) .EQ. 0 ) GO TO 120\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\n      STR( 1) = PH1OUT(1)\r\n      STR( 2) = Z1\r\n      STR( 3) = SIG X  1\r\n      STR( 4) = SIG Y  1\r\n      STR( 5) = SIG XY 1\r\n      STR(10) = PH1OUT(1)\r\n      STR(11) = Z2\r\n      STR(12) = SIG X  2\r\n      STR(13) = SIG Y  2\r\n      STR(14) = SIG XY 2\r\nC\r\n      DO 110 I=3,12,9\r\n      TEMP = STR(I) - STR(I+1)\r\n      STR(I+6) = SQRT( (TEMP/2.0E0)**2 + STR(I+2)**2 )\r\n      DELTA = (  STR(I)  +  STR(I+1)  )  /  2.0E0\r\n      STR(I+4) = DELTA + STR(I+6)\r\n      STR(I+5) = DELTA - STR(I+6)\r\n      DELTA = 2.0E0 * STR(I+2)\r\n      IF( ABS(DELTA) .LT. 1.0E-15 .AND. ABS(TEMP) .LT. 1.0E-15)GO TO 100\r\n      STR(I+3) = ATAN2( DELTA,TEMP ) * 28.6478898E0\r\n      GO TO 110\r\n  100 STR(I+3) = 0.0E0\r\n  110 CONTINUE\r\nC\r\n      GO TO 140\r\n  120 DO 130 I=2,18\r\n  130 STR(I) = 0.0E0\r\n  140 STR(1) = PH1OUT(1)\r\n      STR(10) = PH1OUT(1)\r\nC\r\nC\r\nC     ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT\r\nC\r\n      DO 150 I=10,17\r\n  150 STR(I) = STR(I+1)\r\n      IF (.NOT.STRAIN) GO TO 152\r\n      IST( 2) = IBLANK\r\n      STR( 5) = 2.0*STR(5)\r\n      STR( 9) = 2.0*STR(9)\r\n      IST(10) = IBLANK\r\n      STR(13) = 2.0*STR(13)\r\n      STR(17) = 2.0*STR(17)\r\n  152 CONTINUE\r\nC\r\nC  . STRESS CHECK...\r\nC\r\n      IF (NCHK .LE. 0 ) GO TO 999\r\n      CFRVEC(1) = PH1OUT(1)\r\n      K = 0\r\nC  . FORCES...\r\n      CALL SDRCHK (FORVEC(2),CFRVEC(2),5,K)\r\nC  . STRESSES...\r\n      CALL SDRCHK (STR(3),CFRVEC( 7),3,K)\r\n      CALL SDRCHK (STR(11),CFRVEC(10),3,K)\r\nC\r\n      IF (K.EQ.0) GO TO 999\r\nC\r\nC  . LIMITS EXCEEDED...\r\n      J = 0\r\n      ISTYP(1) = TR\r\n      ISTYP(2) = ONTW(1)\r\n      IF (IELTYP.GT.17) ISTYP(1) = QU\r\n      IF (IABS (IELTYP-17).LT.2) ISTYP(2) = ONTW(2)\r\nC\r\n      IF (LSUB.EQ.ISUB .AND. FRLAST(1).EQ.FRTMEI(1) .AND.\r\n     1    LLD .EQ.ILD  .AND. FRLAST(2).EQ.FRTMEI(2) ) GO TO 156\r\nC\r\n      LSUB = ISUB\r\n      LLD = ILD\r\n      FRLAST(1) = FRTMEI(1)\r\n      FRLAST(2) = FRTMEI(2)\r\n      J = 1\r\n      CALL PAGE1\r\n  154 CALL SD2RHD (ISHED,J)\r\n      LINE = LINE + 1\r\n      WRITE(NOUT,155)\r\n  155 FORMAT (7X,51HTYPE     EID     MX     MY    MXY     VX     VY    ,\r\n     *38HSX1    SY1   SXY1    SX2    SY2   SXY2)\r\n      GO TO 157\r\nC\r\n  156 IF (EJECT(2).NE.0) GO TO 154\r\nC\r\n  157 WRITE(NOUT,158) ISTYP,IFRVEC(1),(CFRVEC(II),II=2,12)\r\n  158 FORMAT (1H0,5X,A4,A2,I7,11F7.1)\r\nC\r\n      GO TO 999\r\nC\r\nC     INTERNAL SUBROUTINE\r\nC\r\n  170 IF( TLOADS.EQ.0 .OR. FLAG ) GO TO 200\r\n      JST = 30*NPTS + 8\r\n      IF( N1 .EQ. 1 ) GO TO 190\r\n      FF = TI(K1+5) - TI(1)\r\n      SDELTA(1) = (PH1OUT(JST+1)*FF + TI(2)*PH1OUT(K1+7)) / PH1OUT(6)\r\n      SDELTA(2) = (PH1OUT(JST+2)*FF + TI(3)*PH1OUT(K1+7)) / PH1OUT(6)\r\n      SDELTA(3) = (PH1OUT(JST+3)*FF + TI(4)*PH1OUT(K1+7)) / PH1OUT(6)\r\n      GO TO 210\r\n  190 FF = (TI(K1+3) - PH1OUT(K1+7)*TI(2) - TI(1))/PH1OUT(6)\r\n      SDELTA(1) = PH1OUT(JST+1)*FF\r\n      SDELTA(2) = PH1OUT(JST+2)*FF\r\n      SDELTA(3) = PH1OUT(JST+3)*FF\r\n      GO TO 210\r\n  200 SDELTA(1) = 0.0\r\n      SDELTA(2) = 0.0\r\n      SDELTA(3) = 0.0\r\n  210 GO TO IRETRN,(26,27)\r\nC\r\nC     SPECIAL CALCULATIONS FOR STRAINS.\r\nC\r\n  220 SIGX2 = FORVEC(2)\r\n      SIGY2 = FORVEC(3)\r\n      SIGXY2= FORVEC(4)\r\n      GO TO 40\r\nC\r\n  230 SIGX1 = STRESS(1)\r\n      SIGY1 = STRESS(2)\r\n      SIGXY1= STRESS(3)\r\n      GO TO 90\r\n  999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strscn.f",
    "content": "      SUBROUTINE STRSCN (S OR F)        \r\nC        \r\nC     THIS ROUTINE PERFORMS STRESS AND FORCE OUTPUT SCAN.        \r\nC        \r\nC     ACKNOWLEDGEMENT -        \r\nC        \r\nC     THIS ROUTINE WAS WRITTEN ORIGINALLY BY LOCKHEED/GEORGIA FOR USER  \r\nC     DMAP-ALTER APPLICATION. IT WAS GREATLY MODIFIED BY G.CHAN/SPERRY  \r\nC     SO THAT USERS CAN SPECIFY THE OUTPUT SCAN PARAMETERS FROM THE     \r\nC     CASE CONTROL SECTION VIA THE SCAN INPUT CARD(S).  ONLY A VERY     \r\nC     SMALL PORTION OF THE ORIGINAL PROGRAM REMAINS.  THE DMAP-ALTER    \r\nC     APPLICATION IS STILL AVAILABLE TO THE USER        \r\nC        \r\nC     THIS ROUTINE IS CALLED ONLY BY SCAN        \r\nC     IT DOES NOT OPEN NOR CLOSE ANY FILE        \r\nC        \r\nC     SCAN PARAMETER -        \r\nC        \r\nC          S OR F  - STRESS (1) OR FORCE (2) SCAN FLAG        \r\nC          INFILE  - INPUT FILE, EITHER STRESS OR FORCE OUTPUT FILE     \r\nC          OUFILE  - OUTPUT FILE FROM SCAN OPERATION, TO BE PRINTED     \r\nC                    AGAIN BY OFP        \r\nC          IOPT    - OPTION 1, SCAN BY AMAX-AMIN (.GT.AMAX AND .LT.AMIN)\r\nC                    OPTION 2, SCAN BY NTOP-        \r\nC                  . TOP N LARGEST (TENSION) AND SMALLEST (COMPRESSION) \r\nC                    IN STRESS SCAN.        \r\nC                  . TOP N LARGEST ONLY IF NO COMPRESSION STRESS PRESENT\r\nC                  . TOP N SMALLEST ONLY IF NO TENSION STRESS PRESENT   \r\nC                  . TOP N VALUES SCAN FOR FORCES IF TOP N IS POSITIVE  \r\nC                  . LEAST N VALUES SCAN FOR FORCES OR MARGIN (STRESS)  \r\nC                    IF TOP N IS NEGATIVE        \r\nC                  - IOPT IS INITIALIZED IN SCAN        \r\nC                  - STRSCN WILL SET IOPT TO A NEGATIVE NUMBER IF INPUT \r\nC                    FILE IS NOT A STRESS OR FORCE FILE        \r\nC          ISET    - A LIST OF ELEMENT IDS TO BE SCANNED        \r\nC          IEL     - ELEMENT TYPE (CODE) TO BE SCANNED        \r\nC          IELT    - ELEMENT NAME IN 2 BCD WORDS        \r\nC          ICASE   - USED LOCALLY FOR SUBCASE NUMBER.        \r\nC          SUBC    - CURRENT SUBCASE NO. USED IN SCAN AND STRSCN        \r\nC          OSUBC   - SUBCASE NO. PROCESSED PREVIOUSLY        \r\nC          ISORT   - SET LOCALLY TO 1 IF INPUT FILE DATA IS IN SORT1    \r\nC                    TYPE FORMAT, TO 2 IF IN SORT2        \r\nC          DEBUG   - LOCAL DEBUG FLAG, SET BY SCAN        \r\nC          OEL     - ELEMENT TYPE PROCESSED PREVIOUSLY        \r\nC        \r\nC     SEE SUBROUTINE SCAN FOR MORE PARAMETER DEFINITIONS        \r\nC        \r\nC *** IF SCAN IS CALLED BY USER VIA DMAP ALTER, WE HAVE        \r\nC        \r\nC          ISET      =-2        \r\nC          LBEG=LEND = 0, NOT USED        \r\nC          LCSE1 AND = BEGINNING AND ENDING POINTERS TO AN ELEM. LIST   \r\nC          LCSE2       (SORT1, ALL SUBCASES), OR A SUBCASE LIST (SORT2, \r\nC                      ALL ELEMS) IF THEY ARE GIVEN. OTHERWISE, LCSE1=-1\r\nC                      AND LCSE2=0        \r\nC        \r\nC *** IF SCAN IS CALLED BY RIGID FORMAT, WE HAVE        \r\nC        \r\nC          ISET      =-1  IMPLIES THAT ALL ELEMENTS ARE TE BE SCANNED,  \r\nC                         AND LBEG .GT. LEND        \r\nC          ISET      = N  IMPLIES THAT ELEM. ID SET N IS REQUESTED. THE \r\nC                         SET DATA IS STORED IN IZ(LBEG) THRU IZ(LEND)  \r\nC          ISET      = 0  NOT DEFINED        \r\nC          LCSE1 AND =    ARE COMPONENT DUPLICATION FLAG (IDUPL) AND    \r\nC          LCSE2          INCREMENT FLAG (INC)        \r\nC                    = 0  IMPLIES NO DUPLICATION/INCR SET BY COMPONENT  \r\nC          LCSE1     =-2  SET AND USE LOCALLY IF SORT2 AND ELEM. SET ARE\r\nC                         INVOLVED.        \r\nC          LBEG AND  =    ARE BEGINNING AND ENDING POINTERS TO THE ELEM.\r\nC          LEND           ID SET, ALL ELEMS. (LBEG .GT. LEND IF ISET=-1)\r\nC        \r\n      LOGICAL         IOPEN,    JOPEN,    ANY,      DEBUG        \r\n      LOGICAL         LAYERD,   STRESS,   FORCE\r\n      CHARACTER*100   CHEAD\r\n      CHARACTER*12    FIELD,    SCNFLD(6)\r\n      INTEGER         OUFILE,   HEAD,     IHEAD(25),ID(50),   IZ(2),    \r\n     1                EOR,      OEL,      NAM(2),   SORTX(3), ISCAN(10),\r\n     2                SUBC,     OSUBC,    QUAD4,    TRIA3,    TOPN, \r\n     3                S OR F,   IBLANK         \r\n      COMMON /OUTPUT/ HEAD(96)        \r\n      COMMON /XSCANX/ INFILE,   OUFILE,   LCORE,    LBEG,     LEND,     \r\n     1                IOPEN,    JOPEN,    IEL,      IOPT,     ISET,     \r\n     2                ISORT,    ITRL3,    SUBC,     OSUBC,    OEL,      \r\n     3                DEBUG,    LLOOP,    QUAD4,    TRIA3,    STRESS,    \r\n     4                FORCE,    LAYERD\r\n      COMMON /BLANK / IELT(2),  ICOMP,    TOPN,     AMAX,     AMIN,     \r\n     1                LCSE1,    LCSE2,    ICOMPX        \r\n      COMMON /SYSTEM/ IBUF,     NOUT,     SPACE(6), NLPP,     DUM,      \r\n     1                NPAGE,    LINE        \r\n      COMMON /NAMES / RD,       RDREW,    WRT,      WRTREW,   REW,      \r\n     1                NOREW,    EOFNRW        \r\n      COMMON /ZZZZZZ/ Z(2)        \r\n      EQUIVALENCE     (IZ(1),Z(1))        \r\n      EQUIVALENCE     (CHEAD, IHEAD(1))\r\n      DATA            NAM,                SORTX                       / \r\n     1                4HSTRS,   4HCN  ,   4HSORT,   4H1   ,   4H2     / \r\n      DATA            T24,      EOR,      NOEOR,    IBLANK            /                       / \r\n     1                1.E+24,   1,        0    ,    1H                / \r\nC        \r\nC *** SET ISCAN ARRAY FROM COMPONENT SPECIFICATION        \r\nC        \r\n      CHEAD = ' '\r\n      NSCAN=0        \r\n      NTOP =IABS(TOPN)        \r\nC      PRINT *,' ENTERRING STRSCN,NTOP,ICOMP=',NTOP,ICOMP\r\n      DO 20 I=1,30        \r\n      J=2**(I-1)        \r\n      IF (MOD(ICOMP,2*J) .LT. J) GO TO 10        \r\n      NSCAN=NSCAN+1        \r\n      IF (I .EQ. 1) GO TO 670        \r\n      ISCAN(NSCAN)=I        \r\n 10   IF (ICOMPX .EQ. 0) GO TO 20        \r\n      IF (MOD(ICOMPX,2*J) .LT. J) GO TO 20        \r\n      NSCAN=NSCAN+1        \r\n      ISCAN(NSCAN)=I+31        \r\n 20   CONTINUE        \r\nC      PRINT *,' AFTER 20, ICOMP=',ICOMP\r\n      J=2*J        \r\n      IF (ICOMP .LT. J) GO TO 24        \r\n      NSCAN=NSCAN+1        \r\n      ISCAN(NSCAN)=31        \r\n 24   IF (ICOMPX .LT. J) GO TO 26        \r\n      NSCAN=NSCAN+1        \r\n      ISCAN(NSCAN)=62        \r\n 26   IF (ICOMPX .NE. 0) CALL SORT (0,0,1,1,ISCAN,NSCAN)        \r\nC      DEBUG = .TRUE.\r\nC      PRINT *,' AFTER 26,NSCAN=',NSCAN\r\nC      PRINT *,' AFTER 26,ISCAN=',(ISCAN(KB),KB=1,NSCAN)\r\n      IF (.NOT.DEBUG) GO TO 40        \r\n      WRITE (NOUT,30) IOPEN,JOPEN,IELT,IEL,ISET,ICOMP,ICOMPX,LCSE1,     \r\n     1                LCSE2,ISORT,SUBC,ITRL3,LBEG,LEND,NSCAN        \r\n 30   FORMAT (//2X,12HDEBUG/STRSCN,/,2(2X,L1),2X,2A4,13I8)        \r\n      IF (IOPT .EQ. 2) WRITE (NOUT,33) NTOP,(ISCAN(J),J=1,NSCAN)        \r\n      IF (IOPT .EQ. 1) WRITE (NOUT,35) AMAX,AMIN,(ISCAN(J),J=1,NSCAN)   \r\n 33   FORMAT (5X,I9,31I3)        \r\n 35   FORMAT (5X,2E10.3,31I3)        \r\n      IF (LEND .GT. LBEG) WRITE (NOUT,38) ISET,(IZ(J),J=LBEG,LEND)      \r\n 38   FORMAT (/5X,3HSET,I8, (/5X,15I7))        \r\n      IF (NSCAN .GT. 10) GO TO 590        \r\n      IF (NSCAN .EQ.  0) GO TO 670        \r\nC        \r\nC *** INITIALIZATION        \r\nC        \r\n 40   IDUPL=LCSE1        \r\n      INC  =LCSE2        \r\n      JNC  =0        \r\n      IF (ISET+1) 70,50,60        \r\n 50   LCSE1=0        \r\n      LCSE2=0        \r\n      GO TO 70        \r\n 60   LCSE1=IZ(LBEG)        \r\n      LCSE2=IABS(IZ(LEND))        \r\n 70   NS   =-1        \r\n      IF (LCSE1 .GT. LCSE2) GO TO 640        \r\n      IF (.NOT.IOPEN .OR. .NOT.JOPEN) GO TO 600        \r\nC        \r\n      LBUF1=1        \r\n      LBUF3=0        \r\n      LBUF0=LBUF1-1        \r\n      IL2  =0        \r\n      NREW =0        \r\n      ICASE=-1        \r\n      ANY  =.FALSE.        \r\n      IF (OSUBC .EQ. 0) CALL FWDREC (*610,INFILE)        \r\n      IF (ISET.EQ.-2 .OR. ISORT.EQ.2 .OR. SUBC.NE.OSUBC) GO TO 100      \r\n      DO 80 I=1,3        \r\n      CALL BCKREC (INFILE)        \r\n 80   CONTINUE        \r\n      GO TO 90        \r\nC        \r\nC *** READ INPUT FILE ID RECORD AND SET ISORT FLAG FOR SORT1 OR SORT2   \r\nC     DATA TYPE        \r\nC     AT THIS TIME, ISORT MAY BE ALREADY SET BY PREVIOUS SCAN, OR ZERO  \r\nC        \r\n 85   IF (ISORT.EQ.2 .OR. NREW.GE.2) GO TO 490        \r\n      NREW=NREW+1        \r\n      CALL REWIND (INFILE)        \r\n 90   CALL FWDREC (*610,INFILE)        \r\n 100  CALL READ (*85,*110,INFILE,ID,50,0,IWDS)        \r\n      CALL READ (*610,*620,INFILE,HEAD,96,1,IWDS)        \r\n      ISORT=1        \r\n      IF (ID(2) .GE. 2000) ISORT=2        \r\n      IF (ID(2) .GE. 3000) GO TO 500        \r\nC        \r\nC *** SYNCHRONIZE SUBCASE ID (WHICH MAY NOT BE IN ASCENDING ORDER)      \r\nC        \r\n      IF (ISET.EQ.-2 .OR. ISORT.EQ.2 .OR. ID(4).EQ.SUBC) GO TO 130      \r\n 110  CALL REWIND (INFILE)        \r\n      NREW=NREW+1        \r\n      IF (NREW .GT. 2) GO TO 490        \r\n 120  CALL FWDREC (*610,INFILE)        \r\n      CALL READ (*610,*110,INFILE,ID,10,1,IWDS)        \r\n      IF (ID(4) .NE. SUBC) GO TO 120        \r\n      CALL BCKREC (INFILE)        \r\n      GO TO 100        \r\nC        \r\nC *** SYNCHRONIZE ELEMENT TYPE (WHICH MAY NOT BE IN ASCENDING ORDER)    \r\nC        \r\n 130  IF (ID(3)-IEL) 90,140,90        \r\n 140  OEL =IEL        \r\n      NREW=0        \r\nC        \r\nC *** POSITION DATA BLOCK FOR FIRST CASE AND BEGIN SCAN        \r\nC        \r\n      I=140        \r\n      IF (DEBUG) WRITE (NOUT,145) I,ISET,ISORT,ICASE,LCSE1,LCSE2,SUBC   \r\n 145  FORMAT (/9X,12HDEBUG/STRSCN,I4,1H-,/2X,I9,11I7,3X,L1)        \r\n      NWDS =ID(10)        \r\nCWKBNB 1/3/94 SPR93010 & 93011\r\n      LAYERD = .FALSE.\r\nC FOR LAYERED QUAD4 AND TRIA3 IEL WILL BE EITHER 64 OR 83 RESPECTIVELY\r\nC AND ID(10) WILL BE 10 (10 IS THE NUMBER OF WORDS PER LINE TO BE PRINTED). \r\n      IF ( (IEL .EQ. 64 .OR. IEL .EQ. 83) .AND. ID(10) .EQ. 10 )\r\n     &         LAYERD = .TRUE.\r\n      IF ( .NOT. LAYERD ) GO TO 144\r\nC TO DETERMINE THE NUMBER OF WORDS PER EACH ELEMENT, WILL NEED TO DETERMINE\r\nC HOW MANY LAYERS ARE PRESENT (Z(LBUF1+1)) AND ALLOW 10 WORDS PER LAYER\r\nC PLUS A THREE WORD HEADER AND TWO EXTRA WORDS ON THE END.\r\n      CALL READ (*610,*340,INFILE,IZ(LBUF1),3,0,IWDS)  \r\n      NWDS = 3 + 10*IZ(LBUF1+1) + 2\r\nC      PRINT *,' COMPUTED NWDS=',NWDS\r\n      CALL BCKREC ( INFILE )\r\nCWKBNE 1/3/94 SPR93010 & 93011\r\n 144  NWDS1=NWDS+1        \r\n      LBUF2=LBUF1+NWDS1        \r\n      LBUF3=LBUF2        \r\n      IH1  =LBUF2        \r\n 146  IH2  =LBUF2+NWDS1*NTOP-1        \r\n      IL1  =IH2+1        \r\n      IL2  =IH2+NWDS1*NTOP        \r\n      IF (IL2 .GT. LCORE) GO TO 660        \r\n      II   =0        \r\n      JJ   =0        \r\n      KK   =0        \r\n      MM   =IH1        \r\n      NN   =IL1        \r\n      IDELM=-1        \r\n      ICASE=0        \r\n      ANY  =.FALSE.        \r\n      IF (LCSE1 .EQ. -2) LCSE1=0        \r\n      IF (LCSE1 .GT. -2) NS=LBEG        \r\n 150  NS=NS-1        \r\n      NS=MIN0(NS,LBEG-1)        \r\n      IF (ISORT.EQ.2 .AND. IDELM.NE.-1) GO TO 90        \r\n 160  CALL READ (*610,*340,INFILE,IZ(LBUF1),NWDS,0,IWDS)        \r\nC        \r\nC *** CHECK WHETHER THIS ELEMENT IS NEEDED FOR SCAN        \r\nC     WALK THROUGH SET ARRAY IF IT IS NECESSARY TO DO SO (R.F. ONLY)    \r\nC     CHECK SUBCASE NO. INSTEAD OF ELEM. ID IF THIS IS A USER DAMP ALTER\r\nC     RUN WITH SORT2 TYPE DATA        \r\nC        \r\n      IF (ISET  .NE. -2) GO TO 170        \r\n      IF (LCSE1 .LE. -1) GO TO 200        \r\n      ICASE=IZ(LBUF1)        \r\n      IF (ISORT .EQ. 1) ICASE=ICASE/10        \r\n      IF (ICASE .GE. LCSE1) IF (ICASE-LCSE2) 200,200,330        \r\n      GO TO 160        \r\n 170  IF (ISET.EQ.-1 .OR. LCSE1.EQ.-2) GO TO 200        \r\n      IDELM=IZ(LBUF1)/10        \r\n      IF (ISORT .EQ. 2) IDELM=ID(5)/10        \r\n 180  NS=NS+1        \r\n      IF (NS .GT. LEND) GO TO 330        \r\n      IZN=IZ(NS)        \r\n      IF (IZN .GE. 0) IF (IDELM-IZN) 150,190,180        \r\n      IZN =IABS(IZN)        \r\n      IF (IDELM .EQ. IZN) GO TO 190        \r\n      IZN1=IZ(NS-1)        \r\n      IF (IZN1.LE.0 .OR. IZN1.GT.IZN) GO TO 640        \r\n      IF (IDELM .GT. IZN ) GO TO 180        \r\n      IF (IDELM .LT. IZN1) GO TO 640        \r\n      NS=NS-1        \r\n 190  IF (ISORT .EQ. 2) LCSE1=-2        \r\nC        \r\nC *** MAKE SURE DEVICE CODE IS SET TO PRINT (SORT1 ONLY)        \r\nC     SET UP COMPONENT DUPLICATION/INC LOOP IF THEY ARE VALID        \r\nC        \r\n 200  IF (ISORT .EQ. 1) IZ(LBUF1)=(IZ(LBUF1)/10)*10 + 1        \r\n      I=200        \r\n      IF (DEBUG) WRITE (NOUT,145) I,IZ(LBUF1),ICASE,LCSE1,LCSE2,IDUPL,  \r\n     1                            INC,NS,ISORT,NWDS,ISET,SUBC,IOPT,ANY  \r\n      JDUPL=1        \r\n      JNC  =0        \r\n      IF (ISET.EQ.-2 .OR. IDUPL.LE.0) GO TO 210        \r\n      JDUPL=IDUPL        \r\n      JNC  =INC        \r\nC        \r\nC *** PICKUP MAX AND MIN OF CURRENT ELEMENT DATA        \r\nC     SAVE THESE MAX, MIN AS KEYS FOR SORTING LATER        \r\nC        \r\n 210  BMAX=-T24        \r\n      BMIN= T24        \r\nC QUAD4 (=64) AND TRIA3 (=83) WILL HAVE JDUPL NE 0 FOR LAMINATED\r\nC CASE (I.E., WHEN LAYERD IS TRUE) FOR STRESS CASES\r\n      IF ( ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) .AND. JDUPL .EQ. 49\r\n     &     .AND. .NOT. LAYERD .AND. STRESS ) GO TO 492\r\n      IF ( ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) .AND. JDUPL .NE. 49\r\n     &     .AND.       LAYERD .AND. STRESS ) GO TO 492\r\nCWKBNB 1/3/94 SPR93010 & 93011\r\nC SET QUAD4 OR TRIA3 TO FALSE TO INDICATE TO SUBROUTINE SCAN THAT \r\nC DATA FOR THESE ELEMENTS HAS BEEN FOUND IN EITHER OES1 OR OES1L FILES.\r\n      IF ( IEL .EQ. 64 ) QUAD4 = 1\r\n      IF ( IEL .EQ. 83 ) TRIA3 = 1\r\nC IF JDUPL IS 49 THAN THIS IS A QUAD4 OR TRIA3 LAYERED ELEMENT, GET\r\nC VALUE AFTER ELEMENT ID IN RECORD TO DETERMINE THE NUMBER OF LAYERS IN\r\nC IN THE ELEMENT.\r\n      IF ( JDUPL .EQ. 49 ) JDUPL = IZ(LBUF0+2)\r\nCWKBNE 1/3/94 SPR93010 & 93011\r\nC      PRINT *,' BEFORE 230,JDUPL,JNC,NSCAN=',JDUPL,JNC,NSCAN\r\nC      PRINT *,' BEFORE 230,ISCAN=',(ISCAN(KB),KB=1,NSCAN)\r\n      DO 230 J=1,NSCAN        \r\n      I=ISCAN(J)        \r\n      IF (I .GT. NWDS) GO TO 230        \r\n      KK=0        \r\n      DO 220 K=1,JDUPL        \r\nC      WRITE(6,77777)Z(LBUF0+I+KK)\r\nC77777 FORMAT(' HEX OF Z=',Z8)\r\n      ZK=Z(LBUF0+I+KK)        \r\n      IF (ZK .GT. BMAX) BMAX=ZK        \r\n      IF (ZK .LT. BMIN) BMIN=ZK        \r\n 220  KK=KK+JNC        \r\n 230  CONTINUE        \r\nC        \r\n      IF (IOPT .EQ. 2) GO TO 250        \r\nC        \r\nC *** OPTION ONE (IOPT=1, BY MAX-MIN)        \r\nC     ===============================        \r\nC        \r\nC     LBUF2 AND LBUF3 ARE BEGINNING AND ENDING POINTERS TO THE SCANNED  \r\nC     DATA ARRAY        \r\nC        \r\n      IF (BMAX.LT.AMAX .AND. BMIN.GT.AMIN) GO TO 160        \r\n      IF (LBUF3+NWDS1 .GT. LCORE) GO TO 630        \r\n      ANY=.TRUE.        \r\n      DO 240 I=1,NWDS        \r\n      Z(LBUF3+I)=Z(LBUF0+I)        \r\n 240  CONTINUE        \r\n      Z(LBUF3)=BMAX        \r\n      IF (BMIN .LE. AMIN) Z(LBUF3)=BMIN        \r\n      LBUF3=LBUF3+NWDS1        \r\n      GO TO 160        \r\nC        \r\nC *** OPTION TWO (IOPT=2)        \r\nC     ===================        \r\nC        \r\nC     TOP AND BOTTOM N VALUES FOR STRESSES        \r\nC     TOP VALUE SCAN FOR FORCES IF TOPN IS POSITIVE        \r\nC     BOTTEM VALUE SCAN FOR FORCES AND MARGIN ETC. IF TOPN IS NEGATIVE  \r\nC        \r\nC     II AND JJ ARE TOP AND BOTTOM ARRAY COUNTERS        \r\nC     MM IS POINTER TO THE SMALLEST OF THE TOP VALUSES        \r\nC     NN IS POINTER TO THE BIGGEST OF THE BOTTOM VALUSES        \r\nC        \r\nC     WHEN TOP AND BOTTOM ARRAYS ARE FILLED UP COMPLETELY WITH SCANNED  \r\nC     DATA (II=JJ=NTOP), IH1 AND IH2 ARE BEGINNING AND ENDING POINTERS  \r\nC     TO THE TOP VALUES, SIMILARY, IL1 AND IL2 ARE FOR THE BOTTOM VALUES\r\nC        \r\nC     REMEMBER, SORF=1 FOR STRESS SCAN, SORF=2 FOR FORCE SCAN        \r\nC               NTOP=IABS(TOPN)        \r\nC        \r\n 250  ANY=.TRUE.        \r\n      IF ( SORF.EQ.2 .AND. TOPN.LE.0) GO TO 290        \r\n      IF ((SORF.EQ.1 .AND. BMAX.LT.0.0) .OR.        \r\n     1   (II.GE.NTOP .AND. BMAX.LT.Z(MM))) GO TO 290        \r\n      DO 260 I=1,NWDS        \r\n 260  Z(MM+I)=Z(LBUF0+I)        \r\n      Z(MM)=BMAX        \r\n      IF (II .GE. NTOP) GO TO 270        \r\n      II=II+1        \r\n      MM=MM+NWDS1        \r\n      IF (II .LT. NTOP) GO TO 290        \r\n 270  MM  =IH1        \r\n      BMAX=+T24        \r\n      DO 280 I=IH1,IH2,NWDS1        \r\n      IF (Z(I) .GT. BMAX) GO TO 280        \r\n      BMAX=Z(I)        \r\n      MM  =I        \r\n 280  CONTINUE        \r\nC        \r\n 290  IF ( SORF.EQ.2 .AND. TOPN.GE.0) GO TO 160        \r\n      IF ((SORF.EQ.1 .AND. BMIN.GT.0 .AND. TOPN.GT.0) .OR.        \r\n     1   (JJ.GE.NTOP .AND. BMIN.GT.Z(NN))) GO TO 160        \r\n      DO 300 I=1,NWDS        \r\n 300  Z(NN+I)=Z(LBUF0+I)        \r\n      Z(NN)=BMIN        \r\n      IF (JJ .GE. NTOP) GO  TO 310        \r\n      JJ=JJ+1        \r\n      NN=NN+NWDS1        \r\n      IF (JJ .LT. NTOP) GO TO 160        \r\n 310  NN  =IL1        \r\n      BMIN=-T24        \r\n      DO 320 I=IL1,IL2,NWDS1        \r\n      IF (Z(I) .LT. BMIN) GO TO 320        \r\n      BMIN=Z(I)        \r\n      NN  =I        \r\n 320  CONTINUE        \r\n      GO TO 160        \r\nC        \r\nC *** ELEM. ID LIST, OR SUBCASE LIST, HAS BEEN EXHAULSTED        \r\nC     (NOTE - SHOULD RETURN WITHOUT FWDREC HERE.  IF STRSCN IS CALLED   \r\nC             AGAIN, FWDREC WILL BE DONE AT 90)        \r\nC        \r\n 330  I=330        \r\n      IF (DEBUG) WRITE (NOUT,145) I,IDELM,ICASE,ISORT,NS,LBEG,LEND,     \r\n     1                            LCSE1,LCSE2        \r\n      IF (ANY) GO TO 350        \r\n      GO TO 510        \r\nC        \r\nC *** EOR READ (FROM 160)        \r\nC        \r\n 340  ID(11)=0        \r\n      IF (ANY) GO TO 350        \r\n      ID(11)=1        \r\n      ID(10)=1        \r\n      NWDS  =1        \r\n      IL2   =IH1+1        \r\n      IZ(IL2)=01        \r\n      IF (ISORT .EQ. 2) IZ(IL2)=0        \r\n      IZ(  2)=1        \r\nC        \r\nC *** THIS ELEMENT TYPE IS DONE.  BEGIN OUTPUT PROCEDURE        \r\nC     MAKE SURE DEVICE CODE IS SET TO PRINT, ALWAYS        \r\nC     ADD SCAN HEADER TO LABEL LINE        \r\nC        \r\n 350  ID(1)=(ID(1)/10)*10 + 1        \r\n      IF (ISORT .EQ. 2) ID(5)=(ID(5)/10)*10 + 1        \r\n      CALL WRITE (OUFILE,ID(1),50,NOEOR)        \r\n      GO TO 530        \r\n 360  IF (IOPT .EQ. 1) GO TO 370        \r\n      WRITE(CHEAD(69:100), 8004 ) NTOP\r\n8004  FORMAT('TOP AND BOTTOM  ',I4,' VALUES')\r\n      GO TO 380        \r\n 370  WRITE(CHEAD(69:100), 8005 ) AMIN, AMAX\r\n8005  FORMAT('EXCLUDING TO ',2(F8.1))\r\n 380  CONTINUE        \r\n      HEAD(73)=IBLANK        \r\n      DO 400 I = 1, 25\r\n400   HEAD(I+64) = IHEAD(I)\r\n      HEAD(95)=SORTX(1)        \r\n      HEAD(96)=SORTX(2)        \r\n      IF (ISORT .EQ. 2) HEAD(96)=SORTX(3)        \r\n      CALL WRITE (OUFILE,HEAD,96,EOR)        \r\nC        \r\n      KK=1        \r\n      J =2        \r\n      IF (.NOT.ANY) GO TO 460        \r\nC        \r\nC *** (IOPT=2 ONLY) IF TOP AND BOTTOM ARRAYS ARE NOT FULL (I.E. II AND/ \r\nC     OR JJ ARE  .LT. NTOP), WE NEED TO SQUEEZE OUT SOME EMPTY CELLS IN \r\nC     THE SPACE FROM Z(IH1) THRU Z(IL2) BEFORE SORTING THE SCANNED DATA \r\nC        \r\n      IF (IOPT .EQ. 2) GO TO 410        \r\n      IL2=LBUF3        \r\n      GO TO 430        \r\n 410  IF (II+JJ .EQ. 2*NTOP) GO TO 430        \r\n      KK =(NTOP-II)*NWDS1        \r\n      IL2=IH2+JJ*NWDS1        \r\n      DO 420 I=IL1,IL2        \r\n 420  Z(I-KK)=Z(I)        \r\n      IL2=IH1+(II+JJ)*NWDS1-1        \r\nC        \r\nC *** MOVE MAX-MIN KEYS BEHIND IL2 SPACE AND BEGIN A 2-COLUMN SORT      \r\nC     THUS AVOID MASSIVE DATA TRANSFER DURING SORTING IF THE ORIGINAL   \r\nC     MULTI-COLUMNS SCANNED DATA WERE USED.        \r\nC        \r\n 430  KK=(IL2-IH1+1)/NWDS1        \r\n      IF (IL2+2*KK .GT. LCORE) IF (IOPT-1) 630,630,660        \r\n      I =IH1        \r\n      J =IL2-2        \r\n      K =0        \r\n 440  J =J+2        \r\n      K =K+1        \r\n      Z (J+1)=Z(I)        \r\n      IZ(J+2)=K        \r\n      I =I+NWDS1        \r\n      IF (I .LT. IL2) GO TO 440        \r\n      K =2*KK        \r\n      CALL SORTF (0,0,2,1,Z(IL2+1),K)        \r\nC        \r\nC *** BEGIN OUTPUT SCANNED DATA        \r\nC        \r\n      J =J+2        \r\n      IF (DEBUG) WRITE (NOUT,450) J,KK,(Z(IL2+I),IZ(IL2+I+1),I=1,K,2)   \r\n 450  FORMAT (/9X,17HDEBUG/STRSCN 450-,2I7,(/15X,E11.3,I5))        \r\n 460  DO 470 K=1,KK        \r\n      I =IH1+(IZ(J)-1)*NWDS1        \r\n      CALL WRITE (OUFILE,IZ(I+1),NWDS,NOEOR)        \r\n 470  J =J-2        \r\n      CALL WRITE (OUFILE,0,0,EOR)        \r\n      ITRL3=ITRL3+2        \r\n      J    =KK*NWDS        \r\n      IF (DEBUG) WRITE (NOUT,750) J,ITRL3,II,JJ        \r\n      IF (.NOT.ANY) GO TO 680        \r\nC        \r\nC*** EOF ON INPUT FILE (FROM 100)        \r\nC     NEXT ACTION WILL BE LOOP-BACK FOR MORE OR RETURN TO SCAN        \r\nC        \r\nC           R.F. (ISET.NE.-2)        I     USER DMAP ALTER (ISET=-2)    \r\nC     -------------------------------+----------------------------------\r\nC     SORT1 - RETURN TO SCAN FOR     I  SORT1 - LOOP BACK FOR NEXT SUB- \r\nC             NEXT SUBCASE           I          CASE, DISREGARDING THE  \r\nC                                    I          ELEM ID LIST        \r\nC     SORT2 - LOOP BACK FOR NEXT     I  SORT2 - LOOP BACK FOR NEXT ELEM,\r\nC             ELEM. IF NO ELEM. LIST I          DISREGARDING THE SUBCASE\r\nC           - IF ELEM. LIST EXISTS,  I          LIST        \r\nC             LOOP BACK ONLY IF MORE I        \r\nC             ELEM. TO BE PROCESSED  I        \r\nC             OTHERWISE, RETURN      I        \r\nC        \r\n 480  IF (IL2 .LE. 0) GO TO 510        \r\n      IL2 =-1        \r\n      NREW=0        \r\n      IF (ISET  .EQ. -2) GO TO 100        \r\n      IF (ISORT .EQ.  1) GO TO 510        \r\n      IF (LEND .GT. LBEG) IF (NS-LEND) 100,510,510        \r\n      GO TO 100        \r\nC        \r\nC *** COULD NOT FIND ELEMENT OR SUBCASE        \r\nC        \r\n 490  IF (IL2 .NE. 0) GO TO 510        \r\nCWKBNB 1/4/94 SPR93010 & 93011\r\n 492  IF ( IEL .EQ. 64 .AND. QUAD4 .EQ. 0 ) QUAD4 = -1\r\n      IF ( IEL .EQ. 83 .AND. TRIA3 .EQ. 0 ) TRIA3 = -1\r\n      IF ( IEL .EQ. 64 .OR. IEL .EQ. 83 ) GO TO 510\r\nCWKBNE 1/4/94 SPR93010 & 93011\r\n      CALL FNAME (INFILE,Z(1))        \r\n      WRITE (NOUT,710) IELT,Z(1),Z(2),NREW        \r\n      GO TO 510        \r\nC        \r\nC *** JOB DONE        \r\nC        \r\n 500  IOPT=-ID(2)        \r\n 510  DO 520 I=1,16        \r\n 520  HEAD(I+73)=IBLANK        \r\n      HEAD(  95)=IBLANK        \r\n      HEAD(  96)=IBLANK        \r\n      OSUBC=SUBC        \r\n      RETURN        \r\nC        \r\nC *** INTERNAL ROUTINE TO SYNTHESIZE THE COMPONENTS FOR HEADING  \r\nC        \r\n 530  IF (JNC .LE. 0) GO TO 550        \r\n550   NUMFLD = 0\r\nC      PRINT *,' STRSCN,INC,IDUPL,NSCAN=',INC,IDUPL,NSCAN\r\nC      PRINT *,' ISCAN=',(ISCAN(KB),KB=1,NSCAN)\r\n      DO 580 I = 1, NSCAN\r\nC      PRINT *,' STRSCN CALLING STRNAM,I,ISCAN=',I,ISCAN(I)\r\n      IF ( STRESS ) CALL STRNAM ( IEL, ISCAN(I), FIELD )\r\n      IF ( FORCE  ) CALL FORNAM ( IEL, ISCAN(I), FIELD )\r\n      IF ( FIELD  .EQ. ' ' ) GO TO 580\r\n      IF ( NUMFLD .EQ. 0   ) GO TO 570\r\n      DO 560 K = 1, NUMFLD\r\n      IF ( FIELD .EQ. SCNFLD( K ) ) GO TO 580\r\n560   CONTINUE\r\n570   IF ( NUMFLD .GE. 6 ) GO TO 585\r\n      NUMFLD = NUMFLD + 1\r\n      SCNFLD( NUMFLD ) = FIELD\r\n580   CONTINUE\r\n585   IF ( NUMFLD .EQ. 1 ) CHEAD(1:19) = 'SCANNED BY FIELD:  '\r\n      IF ( NUMFLD .NE. 1 ) CHEAD(1:19) = 'SCANNED BY FIELDS: '\r\n      ISTR = 20\r\n      DO 588 I = 1, NUMFLD\r\n      LEN = INDEX( SCNFLD(I), ' ' )\r\n      IEND = ISTR + LEN - 1\r\n      IF ( IEND .GT. 51 ) GO TO 587\r\n      IF ( I .EQ. 1 ) CHEAD( ISTR:IEND ) = SCNFLD(I)(1:LEN) \r\n      IF ( I .GT. 1 ) CHEAD( ISTR:IEND+2 ) = ', '//SCNFLD(NUMFLD)(1:LEN)\r\n      ISTR = IEND \r\n      IF ( I .GT. 1 ) ISTR = IEND + 2\r\n      GO TO 588\r\n587   CHEAD( ISTR:51) = ',...'\r\n      GO TO 589\r\n588   CONTINUE\r\n589   CONTINUE\r\n      IF ( ISET .LE. 0 ) GO TO 360\r\n      WRITE ( CHEAD(52:68), 8001 ) ISET\r\n8001  FORMAT(' SET:',I8 )\r\n      GO TO 360        \r\nC        \r\nC *** FILE ERRORS        \r\nC        \r\n 590  WRITE (NOUT,720) IELT        \r\n      GO TO 670        \r\n 600  WRITE (NOUT,700) IOPEN,JOPEN        \r\n      GO TO 510        \r\n 610  IF (.NOT.ANY) GO TO 680        \r\n      J=-2        \r\n      GO TO 650        \r\n 620  J=-3        \r\n      GO TO 650        \r\n 630  WRITE (NOUT,730) IELT        \r\n      GO TO 510        \r\n 640  WRITE (NOUT,740) ISET,LCSE1,LCSE2,LBEG,LEND,NS,(IZ(J),J=LBEG,LEND)\r\n      GO TO 510        \r\n 650  CALL MESAGE (J,INFILE,NAM)        \r\n      GO TO 510        \r\n 660  J=(LCORE-LBUF2+1)/(2*NWDS1)        \r\n      WRITE (NOUT,760) IELT,NTOP,J        \r\n      NTOP=J        \r\n      GO TO 146        \r\n 670  WRITE (NOUT,770) ICOMP,ICOMPX,IELT        \r\n      GO TO 510        \r\n 680  IF (DEBUG) WRITE (NOUT,780) IELT,SUBC        \r\n      CALL MESAGE (30,220,IELT)        \r\n      GO TO 480        \r\nC        \r\n 700  FORMAT (//5X,52HSYSTEM ERROR/STRSCN.  INPUT OR OUTPUT FILE NOT REA\r\n     1DY, 2(2X,L1))        \r\n 710  FORMAT (//5X, 8HELEMENT ,2A4,32H, OR SUBCASE, NOT IN DATA BLOCK , \r\n     1  2A4,I7,8H REWINDS)        \r\n 720  FORMAT (//5X,34HTOO MANY COMPONENTS SPECIFIED FOR ,2A4)        \r\n 730  FORMAT (//5X,40HINSUFFICIENT CORE TO PROCESS OUTPUT SCAN,        \r\n     1 /5X,56HSMALL VALUES OF AMAX-AMIN REQUIRE LARGE CORE REQUIREMENT) \r\n 740  FORMAT (//5X,23HSYSTEM ERROR/STRSCN 740,7X,6I7, /,(5X,12I10))     \r\n 750  FORMAT (/,I9,37H WORDS WRITTEN TO OUTPUT FILE, RECORD,I5,9X,2I5)  \r\n 760  FORMAT (//5X,45HINSUFFICIENT CORE TO PROCESS OUTPUT SCAN FOR ,2A4,\r\n     1 /5X,89HLARGE TOPN VALUE REQUIRES EXCESSIVE CORE REQUIREMENT.  TOP\r\n     2N IS AUTOMATICALLY REDUCED FROM,I5,3H TO,I5)        \r\n 770  FORMAT (//5X,40HFIELD COMPONENT ERROR, CASE ABORT/STRSCN,5X,2I9,  \r\n     1  1X,2A4)        \r\n 780  FORMAT (//5X,37HNO APPLICABLE ELEMT OR SUBCASE/STRSCN,3X,2A4,I8)  \r\n      END        \r\n"
  },
  {
    "path": "mis/strsl1.f",
    "content": "      SUBROUTINE STRSL1\r\nC\r\nC     OUTPUTS FROM THIS PHASE FOR USE IN PHASE II ARE THE FOLLOWING\r\nC\r\nC     1)  ELEMENT ID              WORDS    1    STORAGE IN PH1OUT  1\r\nC     2)  SIX SILS                WORDS    6                     2-7\r\nC     3)  3 MEMBRANE  THICKNESES  WORDS    3                     8-10\r\nC     4)  3 BENDING  THICKNESES   WORDS    3                    11-13\r\nC     5)  8  STRESS DATA POINTS   WORDS    8                    14-21\r\nC     6)  4 NOS. STRESS MATRICES (6-5X6 EACH) WORDS 720         22-741\r\nC     7)  S SUB T MATRIX          WORDS  4X3                   742-753\r\nC     8)  ELEMENT ID              WORD     1                   754\r\nC     9)  SIX SILS                WORDS    6                   755-760\r\nC     10) ELEMENT TEMPERATURE     WORD     1                   761\r\nC     11) 4 NOS. MEMBRANE STRESS MATRICES 4(6-3X3)             762-1193\r\nC\r\nC     ECPT LISTS\r\nC\r\nC     ECPT ( 1) = ELEMENT ID                                    INTEGER\r\nC     ECPT ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1          INTEGER\r\nC     ECPT ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2          INTEGER\r\nC     ECPT ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3          INTEGER\r\nC     ECPT ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4          INTEGER\r\nC     ECPT ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5          INTEGER\r\nC     ECPT ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6          INTEGER\r\nC     ECPT ( 8) = THETA                                         REAL\r\nC     ECPT ( 9) = MATERIAL ID 1                                 INTEGER\r\nC     ECPT (10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT (11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT (12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT (13) = MATERIAL ID 2                                 INTEGER\r\nC     ECPT (14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT (15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT (16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT (17) = MATERIAL ID 3                                 INTEGER\r\nC     ECPT (18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT (19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT (20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT (21) = NON-STRUCTURAL MASS                           REAL\r\nC     ECPT (22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT (23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT (24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT (25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT (26) = DISTANCE 015 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT (27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT (28) = CO-ORDINATE SYSTEM ID FOR GRID A              INTEGER\r\nC     ECPT (29) = CO-ORDINATE X1                                REAL\r\nC     ECPT (30) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (31) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (32) = CO-ORDINATE SYSTEM ID FOR GRID B              INTEGER\r\nC     ECPT (33) = CO-ORDINATE X1                                REAL\r\nC     ECPT (34) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (35) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (36) = CO-ORDINATE SYSTEM ID FOR GRID C              INTEGE9\r\nC     ECPT (37) = CO-ORDINATE X1                                REAL\r\nC     ECPT (38) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (39) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (40) = CO-ORDINATE SYSTEM ID FOR GRID D              INTEGER\r\nC     ECPT (41) = CO-ORDINATE X1                                REAL\r\nC     ECPT (42) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (43) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (44) = CO-ORDINATE SYSTEM ID FOR GRID E              INTEGER\r\nC     ECPT (45) = CO-ORDINATE X1                                REAL\r\nC     ECPT (46) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (47) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (48) = CO-ORDINATE SYSTEM ID FOR GRID F              INTEGER\r\nC     ECPT (49) = CO-ORDINATE X1                                REAL\r\nC     ECPT (50) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (51) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (52) = ELEMENT TEMPERATURE  AT GRID POINTS G1        REAL\r\nC     ECPT (53) = ELEMENT TEMPERATURE  AT GRID POINTS G2        REAL\r\nC     ECPT (54) = ELEMENT TEMPERATURE  AT GRID POINTS G3        REAL\r\nC     ECPT (55) = ELEMENT TEMPERATURE  AT GRID POINTS G4        REAL\r\nC     ECPT (56) = ELEMENT TEMPERATURE  AT GRID POINTS G5        REAL\r\nC     ECPT (57) = ELEMENT TEMPERATURE  AT GRID POINTS G6        REAL\r\nC\r\n      LOGICAL         NOTS\r\n      REAL            J11,J12,J22,NSM,IVECT(3),JVECT(3),KVECT(3)\r\n      DIMENSION       NAME(2),INDEX(20,3),ICS(6),NL(6),XC(6),YC(6),\r\n     1                ZC(6),QQQ(20,20),QQQINV(360),TS6(40),TS7(60),\r\n     2                E(18),V1(3),V2(3),V3(3),IEST(42),E1(18),PH1BEN(9),\r\n     3                PH1SHR(6),PH2(18),PH3(12),PH4(90),TMMM(36),\r\n     4                Q(6,6),IND(6,3),CAB(3),EE( 30),PH1MEM(6),EPH1(15),\r\n     5                SI(9),EMOD(9),D(9),DPH1(9),G(4),GPH1(6),\r\n     6                NPH1OU(990),TM(96),TMQQ(90),EE1(5,6),TMM(3,12),\r\n     7                TMB(60),TMBQ(54),TRANS(9),BALOTR(36)\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      COMMON /SDR2X5/ EST(100),PH1OUT(1200),FORVEC(24),X,Y,Z,DISTA,\r\n     1                DISTB,DISTC,A1,A2,A3,AA1,AA2,AA3,QQQINV,QQ,TM,\r\n     2                TMQQ,TS6,TS7,Q,EE,EE1,PH2,PH3,PH4,E,E1,XC,YC,ZC,\r\n     3                PH1MEM,PH1BEN,PH1SHR,DPH1,EPH1,GPH1,G,D,ICS,NL,\r\n     4                CAB,TRANS,BALOTR,EMOD,SI\r\n      EQUIVALENCE     (A,DISTA),(B,DISTB),(C,DISTC),(V1(1),EST(29)),\r\n     1                (V2(1),EST(37)),(V3(1),EST(45)),(IEST(1),EST(1)),\r\n     2                (TMMM(1),TMM(1,1)),(PH1OUT(1),QQQ(1,1)),\r\n     3                (PH1OUT(401),INDEX(1,1),IND(1,1)),\r\n     4                (NPH1OU(1),PH1OUT(1))\r\n      DATA   DEGRA  / 0.0174532925 /\r\n      DATA   BLANK  , NAME / 4H    , 4HTRSH, 4HL     /\r\nC\r\n      NOTS   = .TRUE.\r\n      IDELE  = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.3333333333\r\n      TBEND3 = (EST(15)*12.0)**0.3333333333\r\n      TBEND5 = (EST(16)*12.0)**0.3333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS =.TRUE.\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      DO 20 I = 28,48,4\r\n      J = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n   20 CONTINUE\r\n      ELTEMP = EST(52)\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF (MATID1 .EQ. 0) GO TO 30\r\n      CALL MAT (IDELE)\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\nC\r\n   30 MATID = MATID2\r\n      IF (MATID2 .EQ. 0) GO TO 40\r\n      MATFLG = 2\r\n      CALL MAT (IDELE)\r\n      D11  = EM(1)\r\n      D12  = EM(2)\r\n      D13  = EM(3)\r\n      D21  = D12\r\n      D22  = EM(4)\r\n      D23  = EM(5)\r\n      D31  = D13\r\n      D32  = D23\r\n      D33  = EM(6)\r\n      D(1) = D11\r\n      D(2) = D12\r\n      D(3) = D13\r\n      D(4) = D21\r\n      D(5) = D22\r\n      D(6) = D23\r\n      D(7) = D13\r\n      D(8) = D23\r\n      D(9) = D33\r\n      D334 = D33*4.0\r\n      D132 = D13*2.0\r\n      D232 = D23*2.0\r\n      J11  = 0.0\r\n      J12  = 0.0\r\n      J22  = 0.0\r\n      IF (NOTS) GO TO 40\r\n      CALL MAT (IDELE)\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n   40 CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION - MEMBRANE\r\nC\r\n      CALL AF (F,1,A,B,C,C1,C2,C3,TMEM1,TMEM2,TMEM3,1)\r\n      CAB(1) = C1\r\n      CAB(2) = C2\r\n      CAB(3) = C3\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,1,A,B,C,A1,A2,A3,TBEND1,TBEND3,TBEND5,1)\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1   = A1SQ*A1\r\n      C2   = 3.0*A1SQ*A2\r\n      C3   = 3.0*A1SQ*A3\r\n      C4   = 3.0*A1*A2SQ\r\n      C5   = 6.0*A1*A2*A3\r\n      C6   = 3.0*A3SQ*A1\r\n      C7   = A2SQ*A2\r\n      C8   = 3.0*A2SQ*A3\r\n      C9   = 3.0*A2*A3SQ\r\n      C10  = A3*A3SQ\r\nC\r\nC     AA1, AA2, AA3  ARE COEFFICIENTS IN THICKNESS VARIATION FOR\r\nC     TRANSVERSE SHEAR\r\nC\r\n      CALL AF (F,1,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\nC\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 50 I = 1,18\r\n   50 E(I)  = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 60 I = 1,400\r\n   60 QQQ(I,1) = 0.0\r\n      DO 70 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n   70 CONTINUE\r\nC\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 80 I = 1,6\r\n      DO 80 J = 1,6\r\n      I1 = 3*(I-1) + 1\r\n   80 Q(I,J) = QQQ(I1,J)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,TS6(1),0,DET,ISING,IND)\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     SET ISING = -1 AGAIN.\r\n      ISING = -1\r\n      CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1     Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1     Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1     Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4 = H4*2.0\r\n      H6 = H6*2.0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY * W\r\nC\r\n      H5 = H5*2.0\r\n      DO 90 I = 1,20\r\n      DO 90 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQQINV(IJ) = QQQ(I,J)\r\n   90 CONTINUE\r\n      DO 100 I = 1,36\r\n  100 BALOTR(I) = 0.0\r\nC\r\n      DO 110 I = 1,7\r\n      NPH1OU (I) = IEST(I)\r\n  110 CONTINUE\r\n      IF (MATID2.EQ.0) GO TO 120\r\n      GO TO 140\r\n  120 DO 130 I = 2,7\r\n      NPH1OU (I) = 0\r\n  130 CONTINUE\r\n  140 PH1OUT( 8) = TMEM1\r\n      PH1OUT( 9) = TMEM3\r\n      PH1OUT(10) = TMEM5\r\n      PH1OUT(11) = TBEND1\r\n      PH1OUT(12) = TBEND3\r\n      PH1OUT(13) = TBEND5\r\n      PH1OUT(14) = EST(22)\r\n      PH1OUT(15) = EST(23)\r\n      PH1OUT(16) = EST(24)\r\n      PH1OUT(17) = EST(25)\r\n      PH1OUT(18) = EST(26)\r\n      PH1OUT(19) = EST(27)\r\n      EMOD(1) = G11\r\n      EMOD(2) = G12\r\n      EMOD(3) = G13\r\n      EMOD(4) = G12\r\n      EMOD(5) = G22\r\n      EMOD(6) = G23\r\n      EMOD(7) = G13\r\n      EMOD(8) = G23\r\n      EMOD(9) = G33\r\n      DO 150 I = 1,30\r\n  150 EE(I)   = 0.0\r\n      EE( 1)  = IVECT(1)\r\n      EE( 2)  = JVECT(1)\r\n      EE( 3)  = KVECT(1)\r\n      EE( 6)  = IVECT(2)\r\n      EE( 7)  = JVECT(2)\r\n      EE( 8)  = KVECT(2)\r\n      EE(11)  = IVECT(3)\r\n      EE(12)  = JVECT(3)\r\n      EE(13)  = KVECT(3)\r\n      EE(19)  = IVECT(1)\r\n      EE(20)  = JVECT(1)\r\n      EE(24)  = IVECT(2)\r\n      EE(25)  = JVECT(2)\r\n      EE(29)  = IVECT(3)\r\n      EE(30)  = JVECT(3)\r\n      DO 340 JJ = 1,4\r\n      J = 2*JJ - 1\r\n      IF (JJ .EQ. 4) GO TO 160\r\n      X = XC(J)\r\n      Y = YC(J)\r\n      GO TO 170\r\n  160 X = (XC(1) + XC(3) + XC(5))/3.0\r\n      Y = (YC(1) + YC(3) + YC(5))/3.0\r\n      PH1OUT(20) = (A1 + A2*X + A3*Y)/2.0\r\n      PH1OUT(21) =-PH1OUT(20)\r\n  170 IF (MATID2 .EQ. 0) GO TO 190\r\n      DO 180 I = 1,60\r\n      TS7(I) = 0.0\r\n  180 CONTINUE\r\n      THK  = A1 + A2*X + A3*Y\r\n      THK1 = THK**3/12.0\r\n      D(1) = D11*THK1\r\n      D(2) = D12*THK1\r\n      D(3) = D13*THK1\r\n      D(4) = D(2)\r\n      D(5) = D22*THK1\r\n      D(6) = D23*THK1\r\n      D(7) = D(3)\r\n      D(8) = D(6)\r\n      D(9) = D33*THK1\r\n      X2   = X*X\r\n      XY   = X*Y\r\n      Y2   = Y*Y\r\n      X3   = X2*X\r\n      X2Y  = X2*Y\r\n      XY2  = X*Y2\r\n      Y3   = Y2*Y\r\n      TS7( 4) = 2.0\r\n      TS7( 7) = 6.0*X\r\n      TS7( 8) = 2.0*Y\r\n      TS7(11) = 12.0*X2\r\n      TS7(12) = 6.0*XY\r\n      TS7(13) = 2.0*Y2\r\n      TS7(16) = 20.0*X3\r\n      TS7(17) = 6.0*XY2\r\n      TS7(18) = 2.0*Y3\r\n      TS7(26) = 2.0\r\n      TS7(29) = 2.0*X\r\n      TS7(30) = 6.0*Y\r\n      TS7(33) = 2.0*X2\r\n      TS7(34) = TS7(12)\r\n      TS7(35) = 12.0*Y2\r\n      TS7(37) = 2.0*X3\r\n      TS7(38) = 6.0*X2Y\r\n      TS7(39) = 12.0*XY2\r\n      TS7(40) = 20.0*Y3\r\n      TS7(45) = 2.0\r\n      TS7(48) = 4.0*X\r\n      TS7(49) = 4.0*Y\r\n      TS7(52) = 6.0*X2\r\n      TS7(53) = 8.0*XY\r\n      TS7(54) = 6.0*Y2\r\n      TS7(57) = 12.0*X2Y\r\n      TS7(58) = TS7(39)\r\n      TS7(59) = 8.0*Y3\r\n      CALL GMMATS (TS7,3,20,0,QQQINV,20,18,0,PH4(1))\r\n      CALL STRSLV (TS6,NOTS)\r\n      CALL GMMATS (TS6,2,20,0,QQQINV,20,18,0,PH4(55))\r\nC\r\n  190 IF (MATID1 .EQ. 0) GO TO 220\r\n      DO 200 I = 1,36\r\n      TMMM(I) = 0.0\r\n  200 CONTINUE\r\n      DO 210 J = 1,6\r\n      J1 = (J-1)*2 + 1\r\n      J2 = J1 + 1\r\n      TMM(1,J1) = Q(2,J) + 2.0*X*Q(4,J) + Y*Q(5,J)\r\n      TMM(2,J2) = Q(3,J) + X*Q(5,J) + 2.0*Y*Q(6,J)\r\n      TMM(3,J1) = TMM(2,J2)\r\n      TMM(3,J2) = TMM(1,J1)\r\n  210 CONTINUE\r\n      X4   = X3*X\r\n      X3Y  = X3*Y\r\n      X2Y2 = X2*Y2\r\n      XY3  = X*Y3\r\n      Y4   = Y*Y3\r\n      X5   = X4*X\r\n      X3Y2 = X3*Y2\r\n      X2Y3 = X2*Y3\r\n      XY4  = X*Y4\r\n      Y5   = Y*Y4\r\n      TMB( 1) = -H4\r\n      TMB( 2) = -H4*X\r\n      TMB( 3) = -H4*Y\r\n      TMB( 4) = -H4*X2\r\n      TMB( 5) = -H4*XY\r\n      TMB( 6) = -H4*Y2\r\n      TMB( 7) = -H4*X3\r\n      TMB( 8) = -H4*X2Y\r\n      TMB( 9) = -H4*XY2\r\n      TMB(10) = -H4*Y3\r\n      TMB(11) = -H4*X4\r\n      TMB(12) = -H4*X3Y\r\n      TMB(13) = -H4*X2Y2\r\n      TMB(14) = -H4*XY3\r\n      TMB(15) = -H4*Y4\r\n      TMB(16) = -H4*X5\r\n      TMB(17) = -H4*X3Y2\r\n      TMB(18) = -H4*X2Y3\r\n      TMB(19) = -H4*XY4\r\n      TMB(20) = -H4*Y5\r\n      TMB(21) = -H6\r\n      TMB(22) = -H6*X\r\n      TMB(23) = -H6*Y\r\n      TMB(24) = -H6*X2\r\n      TMB(25) = -H6*XY\r\n      TMB(26) = -H6*Y2\r\n      TMB(27) = -H6*X3\r\n      TMB(28) = -H6*X2Y\r\n      TMB(29) = -H6*XY2\r\n      TMB(30) = -H6*Y3\r\n      TMB(31) = -H6*X4\r\n      TMB(32) = -H6*X3Y\r\n      TMB(33) = -H6*X2Y2\r\n      TMB(34) = -H6*XY3\r\n      TMB(35) = -H6*Y4\r\n      TMB(36) = -H6*X5\r\n      TMB(37) = -H6*X3Y2\r\n      TMB(38) = -H6*X2Y3\r\n      TMB(39) = -H6*XY4\r\n      TMB(40) = -H6*Y5\r\n      TMB(41) = -H5\r\n      TMB(42) = -H5*X\r\n      TMB(43) = -H5*Y\r\n      TMB(44) = -H5*X2\r\n      TMB(45) = -H5*XY\r\n      TMB(46) = -H5*Y2\r\n      TMB(47) = -H5*X3\r\n      TMB(48) = -H5*X2Y\r\n      TMB(49) = -H5*XY2\r\n      TMB(50) = -H5*Y3\r\n      TMB(51) = -H5*X4\r\n      TMB(52) = -H5*X3Y\r\n      TMB(53) = -H5*X2Y2\r\n      TMB(54) = -H5*XY3\r\n      TMB(55) = -H5*Y4\r\n      TMB(56) = -H5*X5\r\n      TMB(57) = -H5*X3Y2\r\n      TMB(58) = -H5*X2Y3\r\n      TMB(59) = -H5*XY4\r\n      TMB(60) = -H5*Y5\r\n      CALL GMMATS (TMB,3,20,0, QQQINV,20,18,0, TMBQ)\r\nC\r\n  220 DO 330 II = 1,6\r\n      IF (ICS(II) .EQ. 0) GO TO 240\r\n      CALL TRANSS (IEST(4*II+24),TRANS)\r\n      DO 230 J = 1,3\r\n      L = 6*(J-1) + 1\r\n      M = 3*(J-1) + 1\r\n      BALOTR(L   ) = TRANS(M  )\r\n      BALOTR(L+1 ) = TRANS(M+1)\r\n      BALOTR(L+2 ) = TRANS(M+2)\r\n      BALOTR(L+21) = TRANS(M  )\r\n      BALOTR(L+22) = TRANS(M+1)\r\n      BALOTR(L+23) = TRANS(M+2)\r\n  230 CONTINUE\r\n      CALL GMMATS (E,6,3,+1, BALOTR,6,6,0, E1)\r\n      GO TO 260\r\n  240 DO 250 I = 1,3\r\n      DO 250 J = 1,6\r\n      I1 = (I-1)*6 + J\r\n      J1 = (J-1)*3 + I\r\n      E1(I1) = E(J1)\r\n  250 CONTINUE\r\n  260 IF (MATID2 .EQ. 0) GO TO 300\r\n      KZ = (II-1)*3 + 1\r\n      PH1BEN(1) = PH4(KZ   )\r\n      PH1BEN(2) = PH4(KZ+ 1)\r\n      PH1BEN(3) = PH4(KZ+ 2)\r\n      PH1BEN(4) = PH4(KZ+18)\r\n      PH1BEN(5) = PH4(KZ+19)\r\n      PH1BEN(6) = PH4(KZ+20)\r\n      PH1BEN(7) = PH4(KZ+36)\r\n      PH1BEN(8) = PH4(KZ+37)\r\n      PH1BEN(9) = PH4(KZ+38)\r\n      CALL GMMATS (D,3,3,0, PH1BEN,3,3,0, DPH1)\r\n      CALL GMMATS (DPH1,3,3,0, E1,3,6,0, PH2)\r\n      MZ = (II-1)*3 + 55\r\n      PH1SHR(1) = PH4(MZ   )\r\n      PH1SHR(2) = PH4(MZ+ 1)\r\n      PH1SHR(3) = PH4(MZ+ 2)\r\n      PH1SHR(4) = PH4(MZ+18)\r\n      PH1SHR(5) = PH4(MZ+19)\r\n      PH1SHR(6) = PH4(MZ+20)\r\n      IF (NOTS) GO TO 270\r\n      THK  = AA1 + AA2*X + AA3*Y\r\n      G(1) = EM(6)*THK\r\n      G(2) = 0.0\r\n      G(3) = 0.0\r\n      G(4) = G(1)\r\n      CALL GMMATS (G,2,2,0, PH1SHR,2,3,0, GPH1)\r\n      GO TO 280\r\n  270 GPH1(1) = PH1SHR(1)\r\n      GPH1(2) = PH1SHR(2)\r\n      GPH1(3) = PH1SHR(3)\r\n      GPH1(4) = PH1SHR(4)\r\n      GPH1(5) = PH1SHR(5)\r\n      GPH1(6) = PH1SHR(6)\r\n  280 CALL GMMATS (GPH1,2,3,0, E1,3,6,0, PH3)\r\n      DO 290 I = 1,3\r\n      DO 290 J = 1,6\r\n      I1 = (I-1)*6 + J\r\n      I2 = I1 + 18\r\n      J1 = (II-1)*30 + (JJ-1)*180 + I1 + 21\r\n      J2 = J1 + 18\r\n      PH1OUT(J1) = PH2(I1)\r\n      IF (I .NE. 3) PH1OUT(J2) = PH3(I1)\r\n  290 CONTINUE\r\nC\r\n  300 IF (MATID1 .EQ. 0) GO TO 330\r\n      DO 310 I = 1,3\r\n      DO 310 J = 1,2\r\n      JI = (I-1)*5 + J\r\n      IJ = (J-1)*3 + I + (II-1)*6\r\n      TM(JI) = TMMM(IJ)\r\n  310 CONTINUE\r\n      DO 320 I = 1,3\r\n      DO 320 J = 1,3\r\n      JI = (I-1)*5  + J + 2\r\n      IJ = (I-1)*18 + J + (II-1)*3\r\n      TM(JI) = TMBQ(IJ)\r\n  320 CONTINUE\r\n      IF (ICS(II) .NE. 0) CALL GMMATS (EE,6,5,+1, BALOTR,6,6,0, EE1)\r\n      IJ1 = (JJ-1)*108 + (II-1)*18 + 762\r\n      CALL  GMMATS (EMOD,3,3,0, TM(1),3,5,0, EPH1)\r\n      IF (ICS(II) .EQ. 0) CALL GMMATS (EPH1,3,5,0,EE,6,5,+1,PH1OUT(IJ1))\r\n      IF (ICS(II) .NE. 0) CALL GMMATS (EPH1,3,5,0,EE1,5,6,0,PH1OUT(IJ1))\r\n  330 CONTINUE\r\n  340 CONTINUE\r\nC\r\n      JST = 742 + (JJ-1)*3\r\n      IF (MATID2 .NE. 0) CALL GMMATS (D,3,3,0,ALF(1),3,1,0,PH1OUT(JST))\r\n      IF (MATID1 .NE. 0) CALL GMMATS (EMOD,3,3,0,ALF(1),3,1,0,\r\n     1    PH1OUT(1194))\r\n      IF (MATID1 .EQ. 0) GO TO 360\r\n      DO 350 I = 1,7\r\n  350 NPH1OU(753+I) = IEST(I)\r\n      GO TO 380\r\n  360 DO 370 I = 1,7\r\n      NPH1OU(753+I) = 0\r\n  370 CONTINUE\r\n  380 PH1OUT(761) = TREF\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/strsl2.f",
    "content": "      SUBROUTINE STRSL2 (TI)\r\nC\r\nC     PHASE II OF STRESS DATA RECOVERY\r\nC\r\n      LOGICAL         FLAG\r\n      INTEGER         TLOADS\r\n      REAL            TI(6),SDELTA(3)\r\n      DIMENSION       REALI(4),NSIL(6),STR(18),NPH1OU(990),SI(36),\r\n     1                STOUT(68)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SDR2X4/ DUMMY(35),IVEC,IVECN,LDTEMP,DEFORM,DUM8(8),\r\n     1                TLOADS,MAXSIZ\r\n      COMMON /SDR2X7/ PH1OUT(1200),FORVEC(24)\r\n      COMMON /SDR2X8/ TEMP,DELTA,NPOINT,IJ1,IJ2,NPT1,VEC(5),TEM,\r\n     1                Z1 OVR I,Z2 OVR I,STRESS(18)\r\n      EQUIVALENCE     (NSIL(1),PH1OUT(2)),(NPH1OU(1),PH1OUT(1)),\r\n     1                (SI(1),PH1OUT(22)),(LDTEMP,FTEMP),(F1,N1)\r\nC\r\nC     PHASE I OUTPUT FROM THE PLATE IS THE FOLLOWING\r\nC\r\nC     PH1OUT(1)                        ELEMENT ID\r\nC     PH1OUT(2 THRU 7)                 6 SILS\r\nC     PH1OUT(8 THRU 10)                TMEM1,TMEM3,TMEM5\r\nC     PH1OUT(11 THRU 13) (14)-(21)     Z1 AND Z2  TBEND1,TBEND3,TBEND5\r\nC     PH1OUT (22 THRU 741)             4 S SUB I MATRICES,EACH 6X5X6 ARR\r\nC     PH1OUT (742-753)                 4 - 3X3 S SUB T MATRICES\r\nC\r\nC     PHASE 1 OUTPUT FROM THE MEMBRANE IS THE FOLLOWING\r\nC\r\nC     PH1OUT(754)             ELEMENT ID\r\nC     PH1OUT(755-760)         6 SILS\r\nC     PH1OUT(761)             T SUB 0\r\nC     PH1OUT(762-1193)        4 SETS OF 6 NOS. 3 X 6 S SUB I\r\nC     PH1OUT(1194-1196)       S SUB T MATRIX\r\nC\r\nC     THE ABOVE ELEMENTS ARE COMPOSED OF PLATES AND MEMBRANES...\r\nC     SOME MAY ONLY CONTAIN PLATES WHILE OTHERS MAY ONLY CONTAIN\r\nC     MEMBRANES.\r\nC     A CHECK FOR A ZERO FIRST SIL IN THE PHASE I OUTPUT, WHICH\r\nC     INDICATES WHETHER ONE OR THE OTHER HAS BEEN OMITTED, IS MADE BELOW\r\nC\r\nC     FIRST GET FORCE VECTOR FOR THE PLATE CONSIDERATION\r\nC\r\nC     M ,  M ,  M ,  V ,  V    FOR ALL SIX GRID POINTS\r\nC      X   Y   XY   X   Y\r\nC                                NPTS\r\nC     THE 5X1 FORCE VECTOR = SUMMATION  (S )(U )   FOR EACH POINT\r\nC                                I=1       I   I\r\nC\r\nC     ZERO FORVEC STORAGE\r\nC\r\n      NPTS = 6\r\n      DO 15 I = 1,24\r\n   15 FORVEC( I) = 0.0\r\n      FORVEC( 1) = PH1OUT(1)\r\n      FORVEC( 7) = PH1OUT(1)\r\n      FORVEC(13) = PH1OUT(1)\r\n      FORVEC(19) = PH1OUT(1)\r\n      II = 0\r\n   17 II = II+1\r\n      IF (II .GT. 4) GO TO 155\r\nC\r\nC     ZERO OUT LOCAL STRESSES\r\nC\r\n      SIG X  1 = 0.0\r\n      SIG Y  1 = 0.0\r\n      SIG XY 1 = 0.0\r\n      SIG X  2 = 0.0\r\n      SIG Y  2 = 0.0\r\n      SIG XY 2 = 0.0\r\nC\r\n      IF (NSIL(1) .EQ. 0) GO TO 30\r\nC\r\nC     FORM SUMMATION\r\nC\r\n      DO 20 I = 1,6\r\nC\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC\r\n      NPOINT = IVEC + NSIL(I) - 1\r\nC\r\n      II1 = (II-1)*180 + 30*I - 29\r\n      CALL GMMATS (SI(II1),5,6,0, Z(NPOINT),6,1,0, VEC(1))\r\nC\r\n      DO 10 J = 2,6\r\n      IJ = (II-1)*6 + J\r\n   10 FORVEC(IJ) = FORVEC(IJ) + VEC(J-1)\r\n   20 CONTINUE\r\nC\r\n      IF (TLOADS .EQ. 0) GO TO 23\r\n      JST  = 741 + (II-1)*3\r\n      I1   = (II-1)*6\r\n      FLAG = .FALSE.\r\n      F1   = TI(6)\r\n      IF (N1 .EQ. 1) GO TO 22\r\n      FORVEC(I1+2) = FORVEC(I1+2) - TI(2)\r\n      FORVEC(I1+3) = FORVEC(I1+3) - TI(3)\r\n      FORVEC(I1+4) = FORVEC(I1+4) - TI(4)\r\n      IF (TI(5).EQ.0.0 .AND. TI(6).EQ.0.0) FLAG = .TRUE.\r\n      GO TO 23\r\n   22 FORVEC(I1+2) = FORVEC(I1+2) + TI(2)*PH1OUT(JST+1)\r\n      FORVEC(I1+3) = FORVEC(I1+3) + TI(2)*PH1OUT(JST+2)\r\n      FORVEC(I1+4) = FORVEC(I1+4) + TI(2)*PH1OUT(JST+3)\r\n      IF (TI(3).EQ.0.0 .AND. TI(4).EQ.0.0) FLAG = .TRUE.\r\n   23 CONTINUE\r\nC\r\nC     FORCE VECTOR IS NOW COMPLETE\r\nC\r\n      IF (II .EQ. 4) GO TO 24\r\n      I1 = 13 + 2*II - 1\r\n      I2 = I1 + 1\r\n      Z1 OVR I = -12.0*PH1OUT(I1)/PH1OUT(10+II)**3\r\n      Z2 OVR I = -12.0*PH1OUT(I2)/PH1OUT(10+II)**3\r\n      GO TO 25\r\n   24 Z1 OVR I = -1.5/PH1OUT(20)**2\r\n      Z2 OVR I = -Z1 OVR I\r\n   25 CONTINUE\r\n      II1 = (II-1)*6\r\nC\r\n      K1  = 0\r\n      ASSIGN 26 TO IRETRN\r\n      GO TO 170\r\nC\r\n   26 SIG X  1 = FORVEC(II1+2)*Z1 OVR I-SDELTA(1)\r\n      SIG Y  1 = FORVEC(II1+3)*Z1 OVR I-SDELTA(2)\r\n      SIG XY 1 = FORVEC(II1+4)*Z1 OVR I-SDELTA(3)\r\nC\r\n      K1 = 1\r\n      ASSIGN 27 TO IRETRN\r\n      GO TO 170\r\nC\r\n   27 SIG X  2 = FORVEC(II1+2)*Z2 OVR I-SDELTA(1)\r\n      SIG Y  2 = FORVEC(II1+3)*Z2 OVR I-SDELTA(2)\r\n      SIG XY 2 = FORVEC(II1+4)*Z2 OVR I-SDELTA(3)\r\nC\r\n      GO TO 40\r\n   30 Z1 = 0.0\r\n      Z2 = 0.0\r\nC\r\n   40 IF (NPH1OU(754) .EQ. 0) GO TO 90\r\nC\r\nC     ZERO STRESS VECTOR STORAGE\r\nC\r\n      DO 42 I = 1,3\r\n   42 STRESS(I) = 0.0\r\nC\r\nC                            I=NPTS\r\nC        STRESS VECTOR = (  SUMMATION(S )(U )  ) - (S )(LDTEMP - T )\r\nC                            I=1       I   I         T            0\r\nC\r\n      DO 60 I = 1,6\r\nC\r\nC     POINTER TO I-TH SIL IN PH1OUT\r\nC     POINTER TO DISPLACEMENT VECTOR IN VARIABLE CORE\r\nC     POINTER TO S SUB I 3X3\r\nC\r\n      NPOINT = 754 + I\r\n      NPOINT = IVEC + NPH1OU(NPOINT) - 1\r\n      NPT1=762+(I-1)*18+(II-1)*108\r\n      CALL GMMATS (PH1OUT(NPT1),3,6,0, Z(NPOINT),6,1,0, VEC(1))\r\nC\r\n      DO 50 J = 1,3\r\n   50 STRESS(J) = STRESS(J) + VEC(J)\r\nC\r\n   60 CONTINUE\r\nC\r\n      IF (LDTEMP .EQ. -1) GO TO 80\r\nC\r\nC     POINTER TO T SUB 0 = 761\r\nC\r\n      TEM = FTEMP - PH1OUT(761)\r\n      DO 70 I = 1,3\r\n      NPOINT = 1193 + I\r\n   70 STRESS(I) = STRESS(I) - PH1OUT(NPOINT)*TEM\r\nC\r\nC     ADD MEMBRANE STRESSES TO PLATE STRESSES\r\nC\r\n   80 SIG X  1 = SIG X  1 + STRESS(1)\r\n      SIG Y  1 = SIG Y  1 + STRESS(2)\r\n      SIG XY 1 = SIG XY 1 + STRESS(3)\r\n      SIG X  2 = SIG X  2 + STRESS(1)\r\n      SIG Y  2 = SIG Y  2 + STRESS(2)\r\n      SIG XY 2 = SIG XY 2 + STRESS(3)\r\nC\r\nC     STRESS OUTPUT VECTOR IS THE FOLLOWING\r\nC\r\nC      1) ELEMENT ID\r\nC      2) Z1 = FIBER DISTANCE 1\r\nC      3) SIG X  1\r\nC      4) SIG Y  1\r\nC      5) SIG XY 1\r\nC      6) ANGLE OF ZERO SHEAR AT Z1\r\nC      7) SIG P1 AT Z1\r\nC      8) SIG P2 AT Z1\r\nC      9) TAU MAX = MAXIMUM SHEAR STRESS AT Z1\r\nC     10) ELEMENT ID\r\nC     11) Z2 = FIBER DISTANCE 2\r\nC     12) SIG X  2\r\nC     13) SIG Y  2\r\nC     14) SIG XY 2\r\nC     15) ANGLE OF ZERO SHEAR AT Z2\r\nC     16) SIG P1 AT Z2\r\nC     17) SIG P2 AT Z2\r\nC     S7) SIG P2 AT Z2\r\nC     18) TAU MAX = MAXIMUM SHEAR STRESS AT Z2\r\nC\r\n   90 IF (NPH1OU(755).EQ.0 .AND. NPH1OU(2).EQ.0) GO TO 120\r\nC\r\nC     COMPUTE PRINCIPAL STRESSES\r\nC\r\n      STR( 1) = PH1OUT(1)\r\n      STR( 2) = PH1OUT(II*2+12)\r\n      STR( 3) = SIG X 1\r\n      STR( 4) = SIG Y 1\r\n      STR( 5) = SIG XY 1\r\n      STR(10) = PH1OUT(1)\r\n      STR(11) = PH1OUT(II*2+13)\r\n      STR(12) = SIG X  2\r\n      STR(13) = SIG Y  2\r\n      STR(14) = SIG XY 2\r\nC\r\n      DO 110 I = 3,12,9\r\n      TEMP     = STR(I) - STR(I+1)\r\n      STR(I+6) = SQRT((TEMP/2.0)**2+STR(I+2)**2)\r\n      DELTA    = (STR(I)+STR(I+1))/2.0\r\n      STR(I+4) = DELTA + STR(I+6)\r\n      STR(I+5) = DELTA - STR(I+6)\r\n      DELTA    = 2.0*STR(I+2)\r\n      IF (ABS(DELTA).LT.1.0E-15 .AND. ABS(TEMP).LT.1.0E-15) GO TO 100\r\n      STR(I+3) = ATAN2(DELTA,TEMP)*28.6478898\r\n      GO TO 110\r\n  100 STR(I+3) = 0.0\r\n  110 CONTINUE\r\n      GO TO 140\r\n  120 DO 130 I = 2,18\r\n  130 STR( I) = 0.0\r\n  140 STR( 1) = PH1OUT(1)\r\n      STR(10) = PH1OUT(1)\r\nC\r\nC     ADDITION TO ELIMINATE 2ND ELEMENT ID IN OUTPUT\r\nC\r\n      IJK = (II-1)*17\r\n      STOUT(IJK+1) = PH1OUT(1)\r\n      DO 149 I = 2,9\r\n  149 STOUT(IJK+I) = STR(I)\r\n      DO 150 I = 10,17\r\n  150 STOUT (IJK+I) = STR(I+1)\r\n      GO TO 17\r\n  155 CONTINUE\r\nC\r\n      DO 156 I = 1,17\r\n  156 PH1OUT(100+I) = STOUT(I)\r\n      DO 159 J = 1,3\r\n      DO 159 I = 1,16\r\n      J1 = 117 + (J-1)*16 + I\r\n      J2 = (J-1)*17 + I + 18\r\n      PH1OUT(J1) = STOUT(J2)\r\n  159 CONTINUE\r\n      DO 157 I = 1,6\r\n  157 PH1OUT(200+I) = FORVEC(I)\r\n      DO 158 I = 1,5\r\n      PH1OUT(206+I) = FORVEC(I+ 7)\r\n  158 PH1OUT(211+I) = FORVEC(I+13)\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE\r\nC\r\n  170 IF (TLOADS.EQ.0 .OR. FLAG) GO TO 200\r\n      JST = 741 + (II-1)*3\r\n      REALI(1) = PH1OUT(11)**3/12.0\r\n      REALI(2) = PH1OUT(12)**3/12.0\r\n      REALI(3) = PH1OUT(13)**3/12.0\r\n      REALI(4) = PH1OUT(20)**3/1.50\r\n      IF (N1 .EQ. 1) GO TO 190\r\n      FF = TI(K1+5) - TI(1)\r\n      IF (ABS(PH1OUT(K1+12+2*II)) .LE. 1.0E-07) GO TO 200\r\n      SDELTA(1) = (PH1OUT(JST+1)*FF +TI(2)*PH1OUT(K1+12+2*II))/REALI(II)\r\n      SDELTA(2) = (PH1OUT(JST+2)*FF +TI(3)*PH1OUT(K1+12+2*II))/REALI(II)\r\n      SDELTA(3) = (PH1OUT(JST+3)*FF +TI(4)*PH1OUT(K1+2*II+12))/REALI(II)\r\n      GO TO 210\r\n  190 CONTINUE\r\n      IF (ABS(PH1OUT(K1+12+2*II)) .LE. 1.0E-07) GO TO 200\r\n      FF = (TI(K1+3) - PH1OUT(K1+12+2*II)*TI(2) - TI(1))/REALI(II)\r\n      SDELTA(1) = PH1OUT(JST+1)*FF\r\n      SDELTA(2) = PH1OUT(JST+2)*FF\r\n      SDELTA(3) = PH1OUT(JST+3)*FF\r\n      GO TO 210\r\n  200 SDELTA(1) = 0.0\r\n      SDELTA(2) = 0.0\r\n      SDELTA(3) = 0.0\r\n  210 GO TO IRETRN, (26,27)\r\n      END\r\n"
  },
  {
    "path": "mis/strslv.f",
    "content": "      SUBROUTINE STRSLV (TS6,NOTS)\r\nC\r\nC    STRESS ROUTINE ,CALLED FROM STRP11, FOR HIGHER ORDER PLATE ELEMENT\r\nC\r\n      REAL J11,J12,J22\r\n      LOGICAL NOTS\r\n      DIMENSION TS6(40)\r\n      COMMON /MATOUT/ EM(6)\r\n      COMMON /SDR2X5/ DUMSD(1324)\r\n     1,    X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3\r\n      DO 105 I=1,40\r\n      TS6(I)=0.0\r\n  105 CONTINUE\r\n      THK=A1+A2*X+A3*Y\r\n      THK1=THK**3/12.0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      IF (NOTS) GO TO 146\r\n      THK=B1+B2*X+B3*Y\r\n      J11=1.0/(EM(6)*THK)\r\n      J12=0.0\r\n      J22=J11\r\n      GO TO 148\r\n  146 CONTINUE\r\n      J11=1.0\r\n      J12=0.0\r\n      J22=1.0\r\n  148 CONTINUE\r\nC\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\nC\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      A38=A13+A14\r\n      A39=A12+A16\r\n      A40=A23+A24\r\n      A41=A22+A26\r\n      TS6( 7)=6.0*A11\r\n      TS6( 8)=2.0*A31\r\n      TS6( 9)=2.0*A32\r\n      TS6(10)=6.0*A15\r\n      TS6(11)=24.0*A11*X\r\n      TS6(12)=6.0*(A31*X+A11*Y)\r\n      TS6(13)=4.0*(A32*X+A31*Y)\r\n      TS6(14)=6.0*(A15*X+A32*Y)\r\n      TS6(15)=24.0*A15*Y\r\n      IF (NOTS) GO TO 156\r\n      TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2)\r\n      TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21)\r\n     1   +6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33)\r\n     1   +6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15)\r\n      TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2)\r\n      GO TO 158\r\n  156 CONTINUE\r\n      TS6(16)=60.0*A11*X2\r\n      TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=12.0*(2.0*A15*XY+A32*Y2)\r\n      TS6(20)=60.0*A15*Y2\r\n  158 CONTINUE\r\n      TS6(27)=6.0*A21\r\n      TS6(28)=2.0*A33\r\n      TS6(29)=2.0*A34\r\n      TS6(30)=6.0*A25\r\n      TS6(31)=24.0*A21*X\r\n      TS6(32)=6.0*(A33*X+A21*Y)\r\n      TS6(33)=4.0*(A34*X+A33*Y)\r\n      TS6(34)=6.0*(A25*X+A34*Y)\r\n      TS6(35)=24.0*A25*Y\r\n      IF (NOTS) GO TO 166\r\n      TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2)\r\n      TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21)\r\n     1   +6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33)\r\n     1   +6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15)\r\n      TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2)\r\n      GO TO 168\r\n  166 CONTINUE\r\n      TS6(36)=60.0*A21*X2\r\n      TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=12.0*(2.0*A25*XY+A34*Y2)\r\n      TS6(40)=60.0*A25*Y2\r\n  168 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/stube1.f",
    "content": "      SUBROUTINE STUBE1\r\nC*****\r\nC THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE ECPT FOR THE TUBE\r\nC SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL SROD1\r\nC TO COMPUTE THE PHASE I PARAMETERS FOR STRESS DATA RECOVERY FOR THE ROD\r\nC*****\r\nC\r\nC\r\nC\r\nC                      E C P T  F O R  T H E  T U B E\r\nC\r\nC\r\nC\r\nC ECPT( 1)  -  ELEMENT ID.\r\nC ECPT( 2)  -  SCALAR INDEX NUMBER FOR GRID POINT A\r\nC ECPT( 3)  -  SCALAR INDEX NUMBER FOR GRID POINT B\r\nC ECPT( 4)  -  MATERIAL ID.\r\nC ECPT( 5)  -  OUTSIDE DIAMETER\r\nC ECPT( 6)  -  THICKNESS\r\nC ECPT( 7)  -  NON-STRUCTURAL MASS\r\nC ECPT( 8)  -  COOR. SYS. ID. FOR GRID POINT A\r\nC ECPT( 9)  -  BASIC COORDINATES OF GRID POINT A\r\nC ECPT(10)  -                ...\r\nC ECPT(11)  -                ...\r\nC ECPT(12)  -  COOR. SYS. ID. FOR GRID POINT B\r\nC ECPT(13)  -  BASIC COORDINATES OF GRID POINT B\r\nC ECPT(14)  -                ...\r\nC ECPT(15)  -                ...\r\nC ECPT(16)  -  ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\nC\r\nC SDR2 PHASE I INPUT AND OUTPUT BLOCK\r\nC\r\n      COMMON   /SDR2X5/\r\n     1                   ECPT(16)           ,DUM(84)\r\nC\r\nC SDR2 SCRATCH BLOCK\r\nC\r\n      COMMON   /SDR2X6/\r\n     1                   TEMP               ,A\r\n     2,                  FJ                 ,C\r\nC\r\nC PHYSICAL CONSTANTS\r\nC\r\n      COMMON /CONDAS/    PI       ,TWOPI    ,RADEG    ,DEGRA    ,\r\n     1                   S4PISQ\r\nC\r\nC\r\nC\r\n      TEMP = ECPT(5) - ECPT(6)\r\nC\r\nC COMPUTE AREA, TORSIONAL INERTIA AND STRESS COEFFICIENT.\r\nC\r\n      A = TEMP * ECPT(6) * PI\r\n      FJ = .25 * A * (TEMP**2  +  ECPT(6)**2)\r\n      C  = .5  * ECPT(5)\r\nC\r\nC MOVE THE -END- OF THE ARRAY -DOWN ONE SLOT- SO THAT ENTRIES 7 THRU 16\r\nC OF THE ECPT WILL BE STORED AT POSITIONS 8 THRU 17.\r\nC\r\n      M = 18\r\n      DO 10 I = 1,10\r\n      M = M - 1\r\n   10 ECPT(M) = ECPT(M-1)\r\n      ECPT(5) = A\r\n      ECPT(6) = FJ\r\n      ECPT(7) = C\r\n      CALL SROD1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sub.f",
    "content": "      SUBROUTINE SUB(X,Y,A,B)\r\nC*******\r\nC     SUB WILL FORM Y = A*X - B*Y  WHERE A AND B ARE SCALAR MULTIPLIERS\r\nC     FOR THE VECTORS X AND Y\r\nC*******\r\n      DOUBLE PRECISION   X(1)      ,Y(1)     ,A        ,B\r\n      COMMON   /INVPWX/  XX        ,NCOL\r\n      DO 10 I = 1,NCOL\r\n   10 Y(I) = X(I)*A - Y(I)*B\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sub1.f",
    "content": "      SUBROUTINE SUB1(X,Y,A,B)\r\nC     SUBROUTINE SUB(X,Y,A,B)\r\nC*******\r\nC     SUB WILL FORM Y = A*X - B*Y  WHERE A AND B ARE SCALAR MULTIPLIERS\r\nC     FOR THE VECTORS X AND Y\r\nC*******\r\nC     DOUBLE PRECISION   X(1)      ,Y(1)     ,A        ,B\r\n      DOUBLE PRECISION A,B\r\n      REAL X(1),Y(1)\r\n      COMMON   /INVPWX/  XX        ,NCOL\r\n      A1 = A\r\n      B1 = B\r\n      DO 10 I = 1,NCOL\r\n   10 Y(I) = X(I)*A1- Y(I)*B1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/suba.f",
    "content": "      SUBROUTINE SUBA\r\nC\r\nC     UNSTEADY FLOW ANAYSIS OF A SUPERSONIC CASCADE\r\nC\r\nC     LIFT AND MOMENT COEFICIENT\r\nC\r\n      DIMENSION       PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21),\r\n     1                SBKDE1(201),SBKDE2(201),SUMSV1(201),SUMSV2(201),\r\n     2                SVKL1(201),SVKL2(201),XLSV1(21),XLSV2(21),\r\n     3                XLSV3(21),XLSV4(21)\r\n      COMPLEX         SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,\r\n     3                F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,\r\n     4                SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     5                C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,\r\n     6                BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,\r\n     7                PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,T1,T2,T3,T4,\r\n     8                GUSAMP,FQ7,CEXP3,CEXP4,CEXP5,CONST,C1A,C2A\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\n      S1   = SPS - SNS\r\n      S2   = SPS*DEL - SIGMA\r\n      S3   = SPS/(DSTR**2)\r\n      S4   = SNS/DSTR\r\n      S0   = 2.0 - SPS + SNS\r\n      T1   = CEXP(-AI*SIGMA)\r\n      T2   = CEXP(AI*SIGMA)\r\n      A1   = 2.0*PI/S1\r\n      B1   = S2/S1\r\n      GAM  = S2\r\n      C1P  = GAM/DSTR - SCRK\r\n      C1N  = GAM/DSTR + SCRK\r\n      ALP  = GAM*S3 + S4*CSQRT(C1P)*CSQRT(C1N)\r\n      BC   = -B1/ALP*BSYCON/SIN(PI*B1/A1)\r\n      T3   = ALP - DEL\r\n      F1   = (ALP-AMU)/T3*AI*SNS/(BETA*(GAM-ALP*SPS))\r\n      ARG2 = DEL\r\n      CALL AKAPM (ARG2,BKDEL1)\r\n      ARG  = DEL - GL\r\n      CALL AKAPM  (ARG,BKDEL2)\r\n      CALL DLKAPM (ARG2,BLKAP1)\r\n      INX  = 0\r\n      CALL DRKAPM (ALP,INX,BLKAPM)\r\n      F1   = F1*BKDEL1/BLKAPM*(-T3/(T3+GL)*A*AI*BKDEL2/BKDEL1 +\r\n     1       B*BLKAP1+B/T3)\r\n      F1S  = F1\r\n      NL   = 10\r\n      RL1  = NL - 1\r\n      CEXP3 = CEXP(-AI*T3/RL1*S1)\r\n      PRES1(1) = F1S\r\n      NNL1 = NL - 1\r\n      DO 453 JL = 1,NNL1\r\n      PRES1(JL+1) = PRES1(JL)*CEXP3\r\n  453 CONTINUE\r\n      F1   = F1*AI/T3*(CEXP(-AI*T3*S1)-1.0)\r\n      AM1  = F1/(AI*T3)-F1S/(AI*T3)*S1*CEXP(-AI*T3*S1)\r\n      AMTEST = 0.0\r\n      FQB  = BKDEL1/(BETA*BC)*CEXP(AI*S2/2.0)*\r\n     1      (-A*AI*BKDEL2/BKDEL1+B*BLKAP1)\r\n      DO 20 I = 1,200\r\n      R    = I\r\n      GAMP = 2.0*PI*R + S2\r\n      GAMN =-2.0*PI*R + S2\r\n      C1P  = (GAMP/DSTR) - SCRK\r\n      C2P  = (GAMP/DSTR) + SCRK\r\n      ALP  = GAMP*S3 + S4*CSQRT(C1P)*CSQRT(C2P)\r\n      T3   = ALP - DEL\r\n      IDX  = I\r\n      CALL DRKAPM (ALP,IDX,BLKAPM)\r\n      C1   = (ALP-AMU)/T3*AI*SNS/(BETA*(GAMP-ALP*SPS))*BKDEL1/\r\n     1       (BLKAPM)*(-T3/(T3+GL)*A*AI*BKDEL2/BKDEL1+B*BLKAP1+B/T3)\r\n      C1N  = (GAMN/DSTR) - SCRK\r\n      C2N  = (GAMN/DSTR) + SCRK\r\n      ALN  = GAMN*S3 + S4*CSQRT(C1N)*CSQRT(C2N)\r\n      T4   = ALN - DEL\r\n      IDX  =-I\r\n      CALL DRKAPM (ALN,IDX,BLKAPM)\r\n      C2   = (ALN-AMU)/T4*AI*SNS/(BETA*(GAMN-ALN*SPS))*BKDEL1/\r\n     1       (BLKAPM)*(-T4/(T4+GL)*A*AI*BKDEL2/BKDEL1+B*BLKAP1+B/T4)\r\n      F1   = F1+C1*AI/T3*(CEXP(-AI*T3*S1)-1.0)+C2*AI/\r\n     1       T4*(CEXP(-AI*T4*S1)-1.0)\r\n      AM1  = AM1+C1/(AI*T3)*(-S1*CEXP(-AI*T3*S1)+AI/\r\n     1       T3*(CEXP(-AI*T3*S1)-1.0))+C2/(AI*T4)*\r\n     2       (-S1*CEXP(-AI*T4*S1)+AI/T4*(CEXP(-AI*T4*S1)-1.0))\r\n      C2A  = C2\r\n      C1A  = C1\r\n      AA   = S1/RL1\r\n      CEXP3 = CEXP(-AI*T3*AA)\r\n      CEXP4 = CEXP(-AI*T4*AA)\r\n      TEMP  = 2.0*PI*R\r\n      CEXP5 = CEXP(AI*(SIGMA-SNS*DEL)/S1*AA)\r\n      CONST = 4.0*FQB/TEMP\r\n      PRES1(1) = PRES1(1) + C1 + C2\r\n      DO 454 JL = 1,NNL1\r\n      CONST = CONST*CEXP5\r\n      C1A   = C1A*CEXP3\r\n      C2A   = C2A*CEXP4\r\n      PRES1(JL+1) = PRES1(JL+1) + C1A + C2A\r\n      PRES1(JL+1) = PRES1(JL+1) + CONST*SIN(TEMP*JL/RL1)\r\n  454 CONTINUE\r\n      IF (CABS((AM1-AMTEST)/AM1) .LT. 0.0005) GO TO 45\r\n      AMTEST = AM1\r\n   20 CONTINUE\r\n      GO TO 9992\r\n 9992 WRITE  (IBBOUT,3005) UFM\r\n 3005 FORMAT (A23,' FROM AMG MODULE. AM1 LOOP IN SUBROUTINE SUBA DID ',\r\n     1        'NOT CONVERGE.')\r\n      CALL MESAGE (-61,0,0)\r\n   45 CONTINUE\r\n      AA    = S1/RL1\r\n      CEXP3 = CEXP(AI*(SIGMA-SNS*DEL)/RL1)\r\n      CONST = FQB\r\n      TEMP  = 2.0*AA/(SPS-SNS)\r\n      PRES1(1) = PRES1(1) - FQB\r\n      DO 4541 JL = 1,NNL1\r\n      CONST = CONST*CEXP3\r\n      PRES1(JL+1) = PRES1(JL+1) - CONST*(1.0-JL*TEMP)\r\n 4541 CONTINUE\r\n      Y    = 0.0\r\n      Y1   = SNS\r\n      ARG  = DEL - GL\r\n      CALL ALAMDA (ARG,Y,BLAM1)\r\n      CALL ALAMDA (ARG,Y1,BLAM2)\r\n      CALL AKAPPA (ARG,BKAP1)\r\n      FT2  = A*AI*(DEL-GL-AMU)*BLAM1/BKAP1\r\n      FT2T = A*AI*(DEL-GL-AMU)*BLAM2/BKAP1\r\n      ARG  = DEL\r\n      CALL ALAMDA (ARG,Y,BLAM1)\r\n      CALL ALAMDA (ARG,Y1,BLAM2)\r\n      CALL AKAPPA (ARG,BKAP1)\r\n      GAM  = SQRT(DEL**2-SCRK**2)\r\n      S5   = SIN(SNS*GAM)\r\n      S6   = COS(SNS*GAM)\r\n      C1   =-1.0/(BETA*GAM*S5)\r\n      C1T  = C1*(AI*SPS*T2*S6-SNS*DEL/GAM*T2*S5)-BLAM2/BKAP1*DEL/GAM*(S5\r\n     1       +GAM*SNS*S6)/(GAM*S5)\r\n      C1   = C1*(ARG/GAM*SNS*S5+AI*SPS*T2)-BLAM1/BKAP1*DEL/(GAM*S5)*(S5/\r\n     1       GAM+SNS*S6)\r\n      FT3  =-B*(BLAM1/BKAP1+(DEL-AMU)*C1)\r\n      FT3T =-B*(BLAM2/BKAP1+(DEL-AMU)*C1T)\r\n      IF (GL .EQ. 0.0) GO TO 50\r\n      F2   = FT2*(CEXP(2.0*AI*GL)-CEXP(AI*GL*S1))/(AI*GL)+\r\n     1       FT3*S0+B*AI*(DEL-AMU)*BLAM1/BKAP1*(4.0-S1**2)/2.0\r\n      AM2  = FT2*(2.0*CEXP(2.0*AI*GL)/(AI*GL)-S1/(AI*GL)*CEXP(GL*AI*S1)+\r\n     1       (CEXP(2.0*AI*GL)-CEXP(AI*S1*GL))/GL**2)+FT3*(4.0-S1**2)/2.0\r\n     2       +B*AI*(DEL-AMU)*BLAM1/BKAP1*(8.0-S1**3)/3.0\r\n      F2P  = FT2T*T1*CEXP(AI*GL*SNS)/(AI*GL)*(CEXP(2.0*AI*GL)-\r\n     1       CEXP(AI*GL*S1))+FT3T*T1*S0+B*AI*(DEL-AMU)*T1*BLAM2/\r\n     2       BKAP1*(S0**2/2.0+SPS*S0)\r\n      AM2P = FT2T*T1*(CEXP(AI*GL*SPS)/(AI*GL)*S0*CEXP(AI*GL*S0)+\r\n     1       CEXP(AI*GL*SPS)/(GL**2)*(CEXP(AI*GL*S0)-1.0))+\r\n     2       FT3T*T1*S0**2/2.0+B*AI*(DEL-AMU)*T1*BLAM2/BKAP1*(S0**3/3.0+\r\n     3       SPS*S0**2/2.0)\r\n      GO TO 55\r\n   50 CONTINUE\r\n      F2   = FT2*S0+FT3*S0+B*AI*(DEL-AMU)*BLAM1/BKAP1*(4.-S1**2)/2.\r\n      AM2  = FT2*(4.0-S1**2)/2.0+FT3*(4.0-S1**2)/2.0+B*AI*(DEL-AMU)*\r\n     1       BLAM1/BKAP1*(8.0-S1**3)/3.0\r\n      F2P  = FT2T*T1*S0+FT3T*T1*S0+B*AI*(DEL-AMU)*T1*BLAM2/BKAP1*(S0**2\r\n     1       /2.0+SPS*S0)\r\n      AM2P = FT2T*T1*S0**2/2.0+FT3T*T1*S0**2/2.0+B*AI*(DEL-AMU)*T1*BLAM2\r\n     1       /BKAP1*(S0**3/3.0+SPS*S0**2/2.0)\r\n   55 CONTINUE\r\n      NL2  = 20\r\n      RL2  = NL2 - 1\r\n      AA   = SPS - SNS\r\n      CONST = B*AI*(DEL-AMU)*BLAM1/BKAP1\r\n      TEMP = S0/RL2\r\n      C1A  = AI*GL\r\n      CEXP3 = CEXP(C1A*AA)\r\n      CEXP4 = CEXP(C1A*TEMP)\r\n      DO 455 JL = 1,NL2\r\n      XL = AA + TEMP*(JL-1)\r\n      PRES2(JL) = FT2*CEXP3 + FT3+CONST*XL\r\n      CEXP3 = CEXP3*CEXP4\r\n  455 CONTINUE\r\n      CALL SUBBB\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subb.f",
    "content": "      SUBROUTINE SUBB(KB,KS,I,J,JB,LB,LS,NDY,NYFL,PI,EPS,SGR,CGR,\r\n     *   AR,BETA,SUM,RIA,DELX,YB,ZB,YS,ZS,X)\r\nC   ***   COMPUTES ELEMENTS OF THE SUBMATRICES  DZP, DZZ, DZY, DYP,\r\nC         DYZ  AND  DYY  USING  SUBROUTINE  DZY\r\n      REAL       KD1R,KD1I, KD2R,KD2I\r\n      COMPLEX    DPUR,DPUL,DPLR,DPLL,DP,SUM\r\n      DIMENSION RIA(1),DELX(1),YB(1),ZB(1),YS(1),ZS(1),X(1)\r\n      COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR\r\n      COMMON     /KDS/ IND,KD1R,KD1I,KD2R,KD2I\r\n      FLND = FLOAT(ND)\r\n      FLNE = FLOAT(NE)\r\n      IND  = 0\r\n      DPUR = (0.0,0.0)\r\n      DPUL = (0.0,0.0)\r\n      DPLR = (0.0,0.0)\r\n      DPLL = (0.0,0.0)\r\n      ANOT = RIA(JB)\r\n      DXS  = DELX(J)\r\n      ABSYB= ABS(YB(LB))\r\n      ABSZB= ABS(ZB(LB))\r\n      IFLAG = 0\r\n      IDFLAG = 0\r\n      IF (KB.EQ.0)  GO TO  20\r\n      TEST1= ABS(YB(LB) -YB(KB))\r\n      TEST2= ABS(ZB(LB) -ZB(KB))\r\n      IF  (TEST1.GT.EPS. OR .TEST2.GT.EPS)  GO TO  20\r\n      IFLAG = 1\r\n      IF(NDY .NE. NYFL) GO TO 20\r\n      IF( I .NE. J ) GO TO 20\r\n      IDFLAG = 1\r\n      D2D  =       1.0 /(2.0*PI*ANOT*ANOT*(1.0+AR))\r\n      IF    (NDY.NE.0)  D2D=D2D/AR\r\n      SUM  = CMPLX(D2D,0.0)\r\n      SIGN1 = 1.0\r\n      IF(NDY.NE.0) SIGN1 = -1.0\r\n      IF(ABSYB.LT.EPS) SUM=(1.0+SIGN1*FLND)*SUM\r\n      IF(ABSZB.LT.EPS) SUM=(1.0+SIGN1*FLNE)*SUM\r\n      DPUR = SUM\r\n   20 CONTINUE\r\n      XX   = X(I)\r\n      Y    = YS(KS)\r\n      Z    = ZS(KS)\r\n      XI1  = X(J) - 0.5*DXS\r\n      XI2  = X(J) + 0.5*DXS\r\n      ETA  = YS(LS)\r\n      ZETA = ZS(LS)\r\n      AO   = ANOT\r\n      IDZDY= NDY\r\n      IGO  = 1\r\n      LHS = 0\r\n      IF(IFLAG .EQ. 1) GO TO 45\r\n   30 CONTINUE\r\n      CALL        DZY  (XX, Y, Z, SGR, CGR, XI1, XI2, ETA, ZETA, AR, AO,\r\n     1  KR, REFC, BETA, FMACH, LHS,\r\n     2         IDZDY ,   DZDYR ,   DZDYI )\r\n      DP   = CMPLX(DZDYR,DZDYI)\r\n      GO TO  (40,50,70,80),  IGO\r\n   40 CONTINUE\r\nC  UPPER RIGHT-HAND SIDE CONTRIBUTION\r\n      DPUR = DP\r\n      IF (KB.EQ.LB)  GO TO 100\r\n   45 CONTINUE\r\n      IF (ND.EQ.0) GO TO 60\r\n      IF (IDFLAG.EQ.1.AND.ABSYB.LT.EPS) GO TO 60\r\n      IGO  = 2\r\n      ETA  = -YS(LS)\r\n      LHS = 1\r\n      GO TO  30\r\n   50 CONTINUE\r\nC  UPPER LEFT-HAND SIDE CONTRIBUTION\r\n      DPUL = DP\r\n   60 CONTINUE\r\n      IF (NE.EQ.0) GO TO 90\r\n      IF(IDFLAG.EQ.1.AND.ABSZB.LT.EPS) GO TO 90\r\n      IGO  = 3\r\n      ETA  =  YS(LS)\r\n      ZETA = -ZS(LS)\r\n      LHS = 1\r\n      GO TO  30\r\n   70 CONTINUE\r\nC  LOWER RIGHT-HAND SIDE CONTRIBUTION\r\n      DPLR = DP\r\n      IF (ND.EQ.0) GO TO 90\r\n      IF(IDFLAG.EQ.1.AND.ABSYB.LT.EPS) GO TO 90\r\n      IGO  = 4\r\n      ETA  = -YS(LS)\r\n      ZETA = -ZS(LS)\r\n      LHS = 0\r\n      GO TO  30\r\n   80 CONTINUE\r\nC  LOWER  LEFT-HAND SIDE CONTRIBUTION\r\n      DPLL = DP\r\n   90 CONTINUE\r\n      SUM  = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subbb.f",
    "content": "      SUBROUTINE SUBBB\r\nC\r\n      COMPLEX         SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,\r\n     3                F1S,C1,C2P,C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,\r\n     4                SUM2,F2,BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     5                GUSAMP,C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,\r\n     6                FT3TST,BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,\r\n     7                CMOMT,PRES1,PRES2,PRES3,PRES4,QRES4,CEXP4C,FQA,\r\n     8                FQB,T1,T2,T3,T4,CEXP2A,CEXP2B,CEXP2C,CEXP4A,\r\n     9                CEXP4B,FQ7,C1A,C3A,C4A,CONST,CEXP3,CEXP4,CEXP3A,\r\n     O                CEXP3B,CEXP3C\r\n      DIMENSION       PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21),\r\n     1                SBKDE1(201),SBKDE2(201),SUMSV1(201),SUMSV2(201),\r\n     2                SVKL1(201),SVKL2(201),XLSV1(21),XLSV2(21),\r\n     3                XLSV3(21),XLSV4(21)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\n      S1    = 2.0 + SNS - SPS\r\n      T1    = CEXP(-AI*SIGMA)\r\n      T2    = CEXP(+AI*SIGMA)\r\n      TEMP  = S1/RL2\r\n      C1A   = AI*GL\r\n      CONST = B*AI*(DEL-AMU)*BLAM2/BKAP1\r\n      CEXP3 = CEXP(C1A*SPS )\r\n      CEXP4 = CEXP(C1A*TEMP)\r\n      XL    = SPS\r\n      DO 456 JL = 1,NL2\r\n      PRES3(JL) = (FT2T*CEXP3+FT3T+CONST*XL)*T1\r\n      CEXP3 = CEXP3*CEXP4\r\n      XL    = XL + TEMP\r\n  456 CONTINUE\r\n      FT3TST = 0.0\r\n      FT2  = 0.0\r\n      FT3  = 0.0\r\n      FT2T = 0.0\r\n      FT3T = 0.0\r\n      FQA  = BKDEL1/(BC*BETA)*(A*AI*BKDEL2/BKDEL1-B*BLKAP1)*\r\n     1       CEXP(-AI*(DEL*SPS-SIGMA)/2.0)\r\n      DO 60 I = 1,50\r\n      RT  = 0.0\r\n      R   = I - 1\r\n      RI  = (-1.0)**(I-1)\r\nCWKBR ALP = SQRT((R*PI/SNS)**2+SCRK**2)\r\n      ALP = SQRT((R*PI/SNS)**2+SCRK**2)\r\n      ALN = -ALP\r\n      CALL AKAPM (ALP,BKDEL3)\r\n      T3  = ALP - DEL\r\n      SVKL1(I) = BKDEL3\r\n      IF (I .EQ. 1) RT = 1.0\r\n      SUM1  = (ALP-AMU)/(T3)*(RI-CEXP(AI*(T3)*SPS)*T2)/\r\n     1        (BETA*(1.0+RT))*RI/(SNS*ALP)*BKDEL1/BKDEL3*(A*AI*BKDEL2/\r\n     2        BKDEL1*(T3)/(T3+GL)-B*BLKAP1-B/(T3))\r\n      SUM1T = (ALP-AMU)/(T3)*(1.0-CEXP(AI*(T3)*SPS)*T2*RI)/\r\n     1        (BETA*(1.0+RT))*RI/(SNS*ALP)*BKDEL1/BKDEL3*(A*AI*BKDEL2/\r\n     2        BKDEL1*(T3)/(T3+GL)-B*BLKAP1-B/(T3))\r\n      SUMSV1(I) = (ALP-AMU)/(T3)*(1.0-CCOS((T3)*SPS+SIGMA+R*PI))/\r\n     1        (BETA*(1.0+RT)*SNS*ALP)*BKDEL1/BKDEL3*CEXP(-2.0*AI*(ALP-\r\n     2        DEL))*(A*BKDEL2/BKDEL1*(T3)/(T3+GL)+B*AI*BLKAP1+B*AI/(T3))\r\n      FT2   = SUM1*AI/(T3)*(CEXP(-2.0*AI*(T3))-CEXP(-AI*(SPS-SNS)*(T3)))\r\n     1        + FT2\r\n      FT3   = SUM1*(2.0*AI*CEXP(-2.0*AI*(T3))/(T3)-AI*(SPS-SNS)/\r\n     1        (T3)*CEXP(-AI*(T3)*(SPS-SNS))+CEXP(-2.0*AI*(T3))/\r\n     2        ((T3)**2)-CEXP(-AI*(T3)*(SPS-SNS))/((T3)**2)) + FT3\r\n      FT2T  = SUM1T*T1*CEXP(-AI*(T3)*SPS)*AI/(T3)*(CEXP(-AI*(T3)*(S1))-\r\n     1        1.0) + FT2T\r\n      FT3T  = SUM1T*T1*CEXP(-AI*(T3)*SPS)*((S1)*AI/(T3)*CEXP(-AI*(T3)*\r\n     1        (S1)) + 1.0/((T3)**2)*(CEXP(-AI*(T3)*(S1))-1.0)) + FT3T\r\n      CALL AKAPM (ALN,BKDEL3)\r\n      T4    = ALN - DEL\r\n      SVKL2(I) = BKDEL3\r\n      SUM2  = (ALN-AMU)/(T4)*(RI-CEXP(AI*(T4)*SPS)*T2)/(BETA*(1.0+RT))*\r\n     1        RI/(SNS*ALN)*BKDEL1/BKDEL3*(A*AI*BKDEL2/BKDEL1*(T4)/\r\n     2        (T4+GL)-B*BLKAP1-B/(T4))\r\n      SUM2T = (ALN-AMU)/(T4)*(1.0-CEXP(AI*(T4)*SPS)*T2*RI)/(BETA*(1.0+\r\n     1        RT))*RI/(SNS*ALN)*BKDEL1/BKDEL3*(A*AI*BKDEL2/BKDEL1*(T4)/\r\n     2        (T4+GL)-B*BLKAP1-B/(T4))\r\n      SUMSV2(I) = (ALN-AMU)/(T4)*(1.0-CCOS((T4)*SPS+SIGMA+R*PI))/\r\n     1        (BETA*(1.0+RT)*SNS*ALN)*BKDEL1/BKDEL3*CEXP(-2.0*AI*(T4))*\r\n     2        (A*BKDEL2/BKDEL1*(T4)/(T4+GL)+B*AI*BLKAP1+B*AI/(T4))\r\n      FT2   = FT2+SUM2*AI/(T4)*(CEXP(-2.0*AI*(T4))-CEXP(-AI*(SPS-SNS)*\r\n     1        (T4)))\r\n      FT2T  = SUM2T*T1*CEXP(-AI*(T4)*SPS)*AI/(T4)*(CEXP(-AI*(T4)*(S1))-\r\n     1        1.0) + FT2T\r\n      FT3   = FT3+SUM2*(2.0*AI*CEXP(-2.0*AI*(T4))/(T4)-AI*(SPS-SNS)/\r\n     1        (T4)*CEXP(-AI*(T4)*(SPS-SNS))+CEXP(-2.0*AI*(T4))/\r\n     2        ((T4)**2)-CEXP(-AI*(T4)*(SPS-SNS))/((T4)**2))\r\n      FT3T  = FT3T+SUM2T*T1*CEXP(-AI*(T4)*SPS)*((S1)*AI/(T4)*\r\n     1        CEXP(-AI*(T4)*(S1))+1./((T4)**2)*(CEXP(-AI*(T4)*(S1))-1.))\r\n      I7    = I\r\n      AA    = SPS - SNS\r\n      TEMP  = S1/RL2\r\n      TEMP2 = R*PI/SNS\r\n      CONST = 4.0/PI*FQA\r\n      TEMP3 = R + RT\r\n      C3A   = -AI*T3\r\n      C4A   = -AI*T4\r\n      C1A   = AI*DEL\r\n      CEXP3A = CEXP(C3A*AA)\r\n      CEXP3B = CEXP(C3A*SPS)\r\n      CEXP3C = CEXP(C3A*TEMP)\r\n      CEXP4A = CEXP(C4A*AA)\r\n      CEXP4B = CEXP(C4A*SPS)\r\n      CEXP4C = CEXP(C4A*TEMP)\r\n      CEXP2A = CEXP(C1A*AA)\r\n      CEXP2B = CEXP(C1A*SPS)\r\n      CEXP2C = CEXP(C1A*TEMP)\r\n      XL1    = AA\r\n      DO 457 JL = 1,NL2\r\n      PRES2(JL) = SUM1*CEXP3A+SUM2*CEXP4A + PRES2(JL)\r\n      PRES2(JL) = PRES2(JL) + CONST*CEXP2A*RI/TEMP3*SIN(TEMP2*(XL1-SPS))\r\n      XL2 = XL1 + SNS\r\n      PRES3(JL) = (SUM1T*CEXP3B+SUM2T*CEXP4B)*T1 + PRES3(JL)\r\n      PRES3(JL) = PRES3(JL)+CONST*CEXP2B/TEMP3*SIN(TEMP2*(XL2-SPS))*T1\r\n      XL1 = XL1 + TEMP\r\n      CEXP3A = CEXP3A*CEXP3C\r\n      CEXP4A = CEXP4A*CEXP4C\r\n      CEXP2A = CEXP2A*CEXP2C\r\n      CEXP3B = CEXP3B*CEXP3C\r\n      CEXP4B = CEXP4B*CEXP4C\r\n      CEXP2B = CEXP2B*CEXP2C\r\n  457 CONTINUE\r\n      IF (CABS((FT3-FT3TST)/FT3) .LT. 0.0006) GO TO 65\r\n      FT3TST = FT3\r\n   60 CONTINUE\r\n      GO TO 9994\r\n   65 CONTINUE\r\n      FT3TST = FT3\r\n      F2     = F2  + FT2\r\n      AM2    = AM2 + FT3\r\n      F2P    = F2P + FT2T\r\n      AM2P   = AM2P+ FT3T\r\n      AA     = SPS - SNS\r\n      AA1    = SPS + SNS\r\n      AA2    = SPS + 2.0*SNS\r\n      TEMP   = S1/RL2\r\n      XL     = AA\r\n      C1A    = AI*DEL\r\n      CEXP3  = CEXP(C1A*AA)\r\n      CEXP3C = CEXP(C1A*TEMP)\r\n      CEXP4  = CEXP(C1A*SPS)\r\n      CONST  = 2.0*FQA\r\n      CEXP2A = T1*CONST\r\n      DO 4571 JL = 1,NL2\r\n      STEP = 0.0\r\n      IF (XL .GE. AA1) STEP = 1.0\r\n      PRES2(JL) = PRES2(JL) + CONST*CEXP3*((XL-SPS)/SNS-2.0*STEP)\r\n      XL2  = XL + SNS\r\n      STEP = 0.0\r\n      IF (XL2 .GE. AA2) STEP = 1.0\r\n      PRES3(JL) = PRES3(JL) - CEXP2A*CEXP4*(1.0-(XL2-SPS)/SNS+2.0*STEP)\r\n      CEXP3 = CEXP3*CEXP3C\r\n      CEXP4 = CEXP4*CEXP3C\r\n      XL  = XL + TEMP\r\n 4571 CONTINUE\r\n      GAM = SPS*DEL - SIGMA\r\n      C1P = (GAM/DSTR) - SCRK\r\n      C2P = (GAM/DSTR) + SCRK\r\n      ALP = GAM*SPS/(DSTR**2) - SNS/DSTR*CSQRT(C1P)*CSQRT(C2P)\r\n      T3  = ALP - DEL\r\n      F4  = CEXP(AI*(ALP*SPS-GAM))*(ALP*SPS-GAM)/((ALP*DSTR**2-GAM*SPS)*\r\n     1      (T3))\r\n      CALL AKAPM (ALP,BKDEL3)\r\n      SBKDE1(1) = BKDEL3\r\n      SBKDE2(1) = 0.0\r\n      CALL AKAPPA (DEL,BKAP1)\r\n      CARG = DEL - GL\r\n      CALL AKAPPA (CARG,CKAP1)\r\n      F4  = F4*BKDEL3/(BKDEL1*BKAP1)*(A*(BKDEL1/BKDEL2*(T3)/(T3+GL)*\r\n     1      (DEL-GL-AMU)*CEXP(2.0*AI*GL)*BKAP1/CKAP1)+B*AI*(1.0-2.0*AI*\r\n     2      (DEL-AMU)-(DEL-AMU)*RES)-B*AI*(DEL-AMU)*(BLKAP1-1.0/(T3)))\r\n      F5S = B*AI/(BKDEL1*BKAP1)*(1.0-2.0*AI*(DEL-AMU) - (DEL-AMU)*RES -\r\n     1      (DEL-AMU)*BLKAP1)\r\n      F6S = A/(BKDEL1*BKAP1)*(BKDEL1/BKDEL2*(DEL-GL-AMU)*CEXP(2.0*AI*GL)\r\n     1      *BKAP1/CKAP1)\r\n      F4S = F4\r\n      FQ7 = BC*(F6S+F5S)\r\n      TEMP  = (SPS-SNS)/RL1\r\n      TEMP2 = 2.0 - SPS\r\n      CONST = -T1*F4S\r\n      C1A   = -AI*T3\r\n      CEXP3A = CEXP(C1A*SNS)\r\n      CEXP3B = CEXP(C1A*TEMP)\r\n      DO 458 JL = 1,NL\r\n      PRES4(JL) = CONST*CEXP3A\r\n      CEXP3A = CEXP3A*CEXP3B\r\n  458 CONTINUE\r\n      C1  = CEXP(-AI*(T3)*SPS)\r\n      C2  = CEXP(-AI*(T3)*SNS)\r\n      F4  = F4*AI*T1/(T3)*(C1-C2)\r\n      AM4 = F4S*T1*(AI*SPS*C1/(T3)-AI*SNS*C2/(T3)+(C1-C2)/\r\n     1      ((T3)**2))+F4S*AI*(2.0-SPS)*T1/(T3)*(C1-C2)\r\n      CALL SUBC\r\n      RETURN\r\nC\r\n 9994 WRITE  (IBBOUT,3015) UFM\r\n 3015 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBC.  AM4 LOOP DID NOT ',\r\n     1       'CONVERGE.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subc.f",
    "content": "      SUBROUTINE SUBC\r\nC\r\n      COMPLEX         GUSAMP,SBKDE1,SBKDE2,\r\n     1                F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,AM5TT,AM6,\r\n     2                SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,AM5T,\r\n     3                AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,\r\n     4                C2P,C2N,\r\n     5                C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,BLAM2,\r\n     6                FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     7                C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,\r\n     8                FT3TST,C1A,C2A,C3A,CEXP1,CEXP2,CEXP3,CEXP1A,\r\n     9                CEXP2A,CEXP3A,CONST,\r\n     O                BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,\r\n     1                CLIFT,CMOMT,C4A,CEXP4,CEXP5,CEXP4A,CEXP5A,\r\n     2                PRES1,PRES2,PRES3,PRES4,QRES4,FQA,FQB,T1,T2,T3,FQ7\r\n      DIMENSION       PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21),\r\n     1                SBKDE1(201),SBKDE2(201),\r\n     2                SUMSV1(201),SUMSV2(201),SVKL1(201),SVKL2(201),\r\n     3                XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\n      AM4TST = 0.0\r\n      S1 = SPS*DEL - SIGMA\r\n      S2 = SPS/(DSTR**2)\r\n      S3 = SNS/DSTR\r\n      S4 = SPS + SNS\r\n      T3 = CEXP(-AI*SIGMA)\r\n      DO 70 I = 1,200\r\n      R  = I\r\n      GAMP = 2.0*PI*R + S1\r\n      GAMN =-2.0*PI*R + S1\r\n      C1P = (GAMP/DSTR) - SCRK\r\n      C2P = (GAMP/DSTR) + SCRK\r\n      ALP = GAMP*S2 - S3*CSQRT(C1P)*CSQRT(C2P)\r\n      T1  = ALP - DEL\r\n      CALL AKAPM (ALP,BKDEL3)\r\n      SBKDE1(I+1) = BKDEL3\r\n      SUM1 = CEXP(AI*(ALP*SPS-GAMP))*(ALP*SPS-GAMP)*BKDEL3/((ALP*DSTR**2\r\n     1     - GAMP*SPS)*T1)*(F6S*T1/(T1+GL) + F5S\r\n     2     + B*AI/(BKDEL1*BKAP1)*(DEL-AMU)/(ALP-DEL))\r\n      C1N  = (GAMN/DSTR) - SCRK\r\n      C2N  = (GAMN/DSTR) + SCRK\r\n      ALN  = GAMN*S2 - S3*CSQRT(C1N)*CSQRT(C2N)\r\n      T2   = ALN - DEL\r\n      CALL AKAPM (ALN,BKDEL3)\r\n      SBKDE2(I+1) = BKDEL3\r\n      SUM2 = CEXP(AI*(ALN*SPS-GAMN))*(ALN*SPS-GAMN)*BKDEL3/((ALN*DSTR**2\r\n     1     - GAMN*SPS)*T2)*(F6S*(T2)/(T2+GL) + F5S\r\n     2     + B*AI/(BKDEL1*BKAP1)*(DEL-AMU)/(T2))\r\n      C1P  = CEXP(-AI*(T1)*SPS)\r\n      C2P  = CEXP(-AI*(T1)*SNS)\r\n      C1N  = CEXP(-AI*(T2)*SPS)\r\n      C2N  = CEXP(-AI*(T2)*SNS)\r\n      F4   = F4 + SUM1*T3*AI/(T1)*(C1P-C2P) + SUM2*T3*AI/(T2)*(C1N-C2N)\r\n      AM4  = AM4 + SUM1*T3*(AI*SPS*C1P/(T1) - AI*SNS*C2P/(T1) + 1.0/\r\n     1       ((T1)**2)*(C1P-C2P)+AI*(2.0-SPS)/(T1)*(C1P-C2P)) +\r\n     2       SUM2*T3*(AI*SPS*C1N/(T2)-AI*SNS*C2N/(T2) + 1.0/\r\n     3       ((T2)**2)*(C1N-C2N) + AI*(2.0-SPS)/(T2)*(C1N-C2N))\r\n      I6   = I + 1\r\n      TEMP = (SPS-SNS)/RL1\r\n      C1A  =-AI*T1\r\n      C2A  =-AI*T2\r\n      C3A  = AI*DEL\r\n      CEXP1  = CEXP(C1A*SNS)\r\n      CEXP2  = CEXP(C2A*SNS)\r\n      CEXP3  = CEXP(C3A*SNS)\r\n      CEXP1A = CEXP(C1A*TEMP)\r\n      CEXP2A = CEXP(C2A*TEMP)\r\n      CEXP3A = CEXP(C3A*TEMP)\r\n      CONST  = FQ7/(2.0*PI)\r\n      TEMP2  = 2.0*PI*R/S4\r\n      C4A    =-AI*S1\r\n      CEXP4  = CEXP(C4A*(2.0*SNS/S4+0.5))\r\n      CEXP5  = CEXP(C4A*0.5)\r\n      CEXP4A = CEXP(C4A*TEMP/S4)\r\n      CEXP5A = CEXP(C4A*TEMP/(SPS+SNS))\r\n      XL     = SNS\r\n      DO 459 JL = 1,NL\r\n      PRES4(JL) = PRES4(JL) - T3*(SUM1*CEXP1 + SUM2*CEXP2\r\n     1          + CONST*CEXP3*(CEXP4*SIN(TEMP2*(SNS+XL))/R\r\n     2          - CEXP5*SIN(TEMP2*(SPS+XL))/R))\r\n      XL    = XL + TEMP\r\n      CEXP1 = CEXP1*CEXP1A\r\n      CEXP2 = CEXP2*CEXP2A\r\n      CEXP3 = CEXP3*CEXP3A\r\n      CEXP4 = CEXP4*CEXP4A\r\n      CEXP5 = CEXP5*CEXP5A\r\n  459 CONTINUE\r\n      IF (CABS((AM4-AM4TST)/AM4) .LT. 0.0006) GO TO 75\r\n      AM4TST = AM4\r\n   70 CONTINUE\r\n      GO TO 9994\r\n   75 CONTINUE\r\n      TEMP  = (SPS-SNS)/RL1\r\n      TEMP1 = 2.0*SNS/S4 + 0.5\r\n      TEMP2 = 0.5 - (SPS+SNS)/S4\r\n      C1A   = AI*DEL\r\n      C2A   =-AI*S1\r\n      C3A   =-C2A\r\n      CEXP1 = CEXP(C1A*SNS)\r\n      CEXP2 = CEXP(C2A*TEMP1)\r\n      CEXP3 = CEXP(C3A*TEMP2)\r\n      CEXP1A= CEXP(C1A*TEMP)\r\n      CEXP2A= CEXP(C2A*TEMP/S4)\r\n      CONST = T3*FQ7/2.0\r\n      XL    = SNS\r\n      DO 4596 JL = 1,NL\r\n      PRES4(JL) = PRES4(JL) - CONST*CEXP1*(CEXP2*((SNS+XL)/S4-0.5)\r\n     1          - CEXP3*((SPS+XL)/S4-1.5))\r\n      XL    = XL + TEMP\r\n      CEXP1 = CEXP1*CEXP1A\r\n      CEXP2 = CEXP2*CEXP2A\r\n      CEXP3 = CEXP3*CEXP2A\r\n 4596 CONTINUE\r\n      CALL SUBCC\r\n      RETURN\r\nC\r\n 9994 WRITE  (IBBOUT,3015) UFM\r\n 3015 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBC.  AM4 LOOP DID NOT ',\r\n     1       'CONVERGE.')\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subcc.f",
    "content": "      SUBROUTINE SUBCC\r\nC\r\nC     THIS ROUTINE WAS ORIGINALLY CALLED SUBD\r\nC\r\n      COMPLEX         GUSAMP,SBKDE1,SBKDE2,\r\n     1                F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,AM5TT,AM6,\r\n     2                SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,AM5T,\r\n     3                AI,A,B,BSYCON,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,\r\n     4                C2P,C2N,\r\n     5                C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,BLAM2,\r\n     6                FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,\r\n     7                C1P,C1N,BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,\r\n     8                BC,BC2,BC3,BC4,BC5,CA1,CA2,CA3,CA4,\r\n     9                CLIFT,CMOMT,PRES1,PRES2,PRES3,PRES4,QRES4,FQ7,\r\n     O                FQA,FQB,SS,T1,T2,T3,T4,CONST,CONST2,CONST3,CONST4,\r\n     1                CONST5,CONST6,C1A,C2A,CEXP1,CEXP2,CEXP1A,CEXP2A\r\n      DIMENSION       PRES1(21),PRES2(21),PRES3(21),PRES4(21),QRES4(21),\r\n     1                SBKDE1(201),SBKDE2(201),\r\n     2                SUMSV1(201),SUMSV2(201),SVKL1(201),SVKL2(201),\r\n     3                XLSV1(21),XLSV2(21),XLSV3(21),XLSV4(21)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF,IBBOUT\r\n      COMMON /BLK1  / SCRK,SPS,SNS,DSTR,AI,PI,DEL,SIGMA,BETA,RES\r\n      COMMON /BLK2  / BSYCON\r\n      COMMON /BLK3  / SBKDE1,SBKDE2,F4,F4S,AM4,F5S,F6S,AM4TST,SUM3,SUM4,\r\n     1                AM5TT,AM6,SUMSV1,SUMSV2,SVKL1,SVKL2,F5,F5T,AM5,\r\n     2                AM5T,A,B,ALP,F1,AM1,ALN,BLKAPM,BKDEL3,F1S,C1,C2P,\r\n     3                C2N,C2,AMTEST,FT2,BLAM1,FT3,AM2,SUM1,SUM2,F2,\r\n     4                BLAM2,FT2T,C1T,FT3T,F2P,AM2P,SUM1T,SUM2T,C1P,C1N,\r\n     5                BKDEL1,BKDEL2,BLKAP1,ARG,ARG2,FT3TST,BC,BC2,BC3,\r\n     6                BC4,BC5,CA1,CA2,CA3,CA4,CLIFT,CMOMT,PRES1,PRES2,\r\n     7                PRES3,PRES4,QRES4,FQA,FQB,FQ7\r\n      COMMON /BLK4  / I,R,Y,A1,B1,C4,C5,GL,I6,I7,JL,NL,RI,RT,R5,SN,SP,\r\n     1                XL,Y1,AMU,GAM,IDX,INX,NL2,RL1,RL2,RQ1,RQ2,XL1,\r\n     2                ALP1,ALP2,GAMN,GAMP,INER,IOUT,REDF,STAG,STEP,\r\n     3                AMACH,BETNN,BETNP,BKAP1,XLSV1,XLSV2,XLSV3,XLSV4,\r\n     4                ALPAMP,AMOAXS,GUSAMP,DISAMP,PITAXS,PITCOR\r\nC\r\n      AM6 = 0.0\r\n      F5  = 0.0\r\n      AM5 = 0.0\r\n      S1  = SPS + SNS\r\n      S2  = SIGMA - SPS*DEL\r\n      S3  = SPS/(DSTR**2)\r\n      S4  = SNS/DSTR\r\n      S5  = DEL*SNS + SIGMA\r\n      SS  = CEXP(-AI*SIGMA)\r\n      DO 150 IOUT = 1,200\r\n      IF (IOUT .GT. I7) GO TO 240\r\n      R5  = IOUT - 1\r\n      RQ1 = SQRT((R5*PI/SNS)**2+SCRK**2)\r\n      RQ2 =-RQ1\r\n      C4  = (RQ1*S1+S2)/(2.0*PI)\r\n      C5  = (RQ2*S1+S2)/(2.0*PI)\r\n      BC2 = BC/(2.0*SVKL1(IOUT))*CEXP(-AI*(-S2)*(SPS+3.0*SNS)/\r\n     1      (2.0*S1))/(2.0*PI*AI)\r\n      BC3 = BC2*SVKL1(IOUT)/SVKL2(IOUT)\r\n      BC4 = BC/(2.0*SVKL1(IOUT))*CEXP(AI*(-S2)*(SNS-SPS)/\r\n     1      (2.0*S1))/(2.0*PI*AI)\r\n      BC5 = BC4*SVKL1(IOUT)/SVKL2(IOUT)\r\n      F5T = 0.0\r\n      AM5T= 0.0\r\n      AM5TT = 0.0\r\n      DO 10 JL = 1,NL\r\n      QRES4(JL) = 0.0\r\n   10 CONTINUE\r\n      DO 100 INER = 1,200\r\n      R    = INER - 1\r\n      GAMP = 2.0*PI*R - S2\r\n      GAMN =-2.0*PI*R - S2\r\n      C1P  = (GAMP/DSTR) - SCRK\r\n      C2P  = (GAMP/DSTR) + SCRK\r\n      ALP  = GAMP*S3 - S4*CSQRT(C1P)*CSQRT(C2P)\r\n      BKDEL3 = SBKDE1(INER)\r\n      IF (INER .LE. I6) GO TO 20\r\n      CALL AKAPM (ALP,BKDEL3)\r\n      SBKDE1(INER) = BKDEL3\r\n   20 CONTINUE\r\n      T1   = ALP*SPS-GAMP\r\n      T2   = ALP*DSTR**2-GAMP*SPS\r\n      SUM1 = SUMSV1(IOUT)*CEXP(AI*T1)*BKDEL3*T1/\r\n     1       (T2*SVKL1(IOUT)*(ALP-RQ1))\r\n      SUM3 = SUMSV2(IOUT)*CEXP(AI*T1)*BKDEL3*T1/\r\n     1       (T2*SVKL2(IOUT)*(ALP-RQ2))\r\n      IF (INER .EQ. 1) GO TO 40\r\n      C1N  = (GAMN/DSTR) - SCRK\r\n      C2N  = (GAMN/DSTR) + SCRK\r\n      ALN  = GAMN*S3 - S4*CSQRT(C1N)*CSQRT(C2N)\r\n      BKDEL3 = SBKDE2(INER)\r\n      IF (INER .LE. I6) GO TO 30\r\n      CALL AKAPM (ALN,BKDEL3)\r\n      SBKDE2(INER) = BKDEL3\r\n   30 CONTINUE\r\n      T1   = ALN*SPS - GAMN\r\n      T2   = ALN*DSTR**2 - GAMN*SPS\r\n      SUM2 = SUMSV1(IOUT)*CEXP(AI*T1)*BKDEL3*T1/\r\n     1       (T2*SVKL1(IOUT)*(ALN-RQ1))\r\n      SUM4 = SUMSV2(IOUT)*CEXP(AI*T1)*BKDEL3*T1/\r\n     1       (T2*SVKL2(IOUT)*(ALN-RQ2))\r\n   40 CONTINUE\r\n      IF (INER .EQ. 1) SUM2 = 0.0\r\n      IF (INER .EQ. 1) SUM4 = 0.0\r\n      C1P = CEXP(-AI*(ALP-DEL)*SPS)\r\n      C2P = CEXP(-AI*(ALP-DEL)*SNS)\r\n      C1N = CEXP(-AI*(ALN-DEL)*SPS)\r\n      C2N = CEXP(-AI*(ALN-DEL)*SNS)\r\n      F5T = F5T + (SUM1+SUM3)*AI*SS/(ALP-DEL)*(C1P-C2P) +\r\n     1      (SUM2+SUM4)*SS*AI/(ALN-DEL)*(C1N-C2N)\r\n      AM5T= AM5T + (SUM1+SUM3)*SS*(AI*SPS*C1P/(ALP-DEL) - AI*SNS*C2P/\r\n     1      (ALP-DEL) + 1.0/((ALP-DEL)**2)*(C1P-C2P) + AI*(2.0-SPS)/\r\n     2      (ALP-DEL)*(C1P-C2P)) + (SUM2+SUM4)*SS*(AI*SPS*C1N/(ALN-DEL)\r\n     3    - AI*SNS*C2N/(ALN-DEL) + 1.0/((ALN-DEL)**2)*(C1N-C2N) +\r\n     4      AI*(2.0-SPS)/(ALN-DEL)*(C1N-C2N))\r\n      TEMP  = (SPS-SNS)/RL1\r\n      CONST = (SUM1+SUM3)*SS\r\n      CONST2= (SUM2+SUM4)*SS\r\n      C1A   =-AI*(ALP-DEL)\r\n      C2A   =-AI*(ALN-DEL)\r\n      CEXP1 = CEXP(C1A*SNS)\r\n      CEXP2 = CEXP(C2A*SNS)\r\n      CEXP1A= CEXP(C1A*TEMP)\r\n      CEXP2A= CEXP(C2A*TEMP)\r\n      DO 50 JL = 1,NL\r\n      QRES4(JL) = QRES4(JL) - (CONST*CEXP1+CONST2*CEXP2)\r\n      CEXP1 = CEXP1*CEXP1A\r\n      CEXP2 = CEXP2*CEXP2A\r\n   50 CONTINUE\r\n      BETNP = ( 2.0*R*PI-S5)/S1\r\n      BETNN = (-2.0*R*PI-S5)/S1\r\n      C1P   = CEXP(-2.0*PI*R*AI*SNS/S1)\r\n      C2P   = CEXP(-2.0*PI*R*AI*SPS/S1)\r\n      C1N   = CEXP(2.0*PI*R*AI*SNS/S1)\r\n      C2N   = CEXP(2.0*PI*R*AI*SPS/S1)\r\n      T1    = CEXP(-AI*BETNP*SPS)\r\n      T2    = CEXP(-AI*BETNP*SNS)\r\n      T3    = CEXP(-AI*BETNN*SPS)\r\n      T4    = CEXP(-AI*BETNN*SNS)\r\n      CA1   = AI*SS/BETNP*(T1-T2)\r\n      CA2   = AI*SS/BETNN*(T3-T4)\r\n      CA3   = SS*(AI*SPS/BETNP*T1 - AI*SNS*T2/BETNP+(T1-T2)/\r\n     1        BETNP**2 + (2.0-SPS)*AI/BETNP*(T1-T2))\r\n      CA4   = SS*(AI*SPS*T3/BETNN - AI*SNS*T4/BETNN+(T3-T4)/\r\n     1        BETNN**2 + (2.0-SPS)*AI/BETNN*(T3-T4))\r\n      IF (INER .GT. 1) GO TO 70\r\n      F5T   = F5T - SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4)*CA1 -\r\n     1        SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5)*CA1\r\n      AM5T  = AM5T - SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4)*CA3 -\r\n     1        SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5)*CA3\r\n      TEMP  = (SPS-SNS)/RL1\r\n      CONST = SS*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)/(R-C4)\r\n      CONST2= SS*SUMSV2(IOUT)*(BC3*C1P-BC5*C2P)/(R-C5)\r\n      C1A   =-AI*BETNP\r\n      CEXP1 = CEXP(C1A*SNS)\r\n      CEXP1A= CEXP(C1A*TEMP)\r\n      DO 60 JL = 1,NL\r\n      QRES4(JL) = QRES4(JL)+CONST*CEXP1+CONST2*CEXP1\r\n      CEXP1 = CEXP1*CEXP1A\r\n   60 CONTINUE\r\n      GO TO 90\r\n   70 CONTINUE\r\n      F5T = F5T - SUMSV1(IOUT)*((BC2*C1P-BC4*C2P)/(R-C4)*CA1 -\r\n     1      (BC2*C1N-BC4*C2N)/(R+C4)*CA2) - SUMSV2(IOUT)*\r\n     2      ((BC3*C1P-BC5*C2P)/(R-C5)*CA1-(BC3*C1N-BC5*C2N)/(R+C5)*CA2)\r\n      AM5T= AM5T - SUMSV1(IOUT)*((BC2*C1P-BC4*C2P)/(R-C4)*CA3-(BC2*C1N-\r\n     1      BC4*C2N)/(R+C4)*CA4)-SUMSV2(IOUT)*((BC3*C1P-BC5*C2P)/\r\n     2      (R-C5)*CA3-(BC3*C1N-BC5*C2N)/(R+C5)*CA4)\r\n      TEMP   = (SPS-SNS)/RL1\r\n      CONST  = (BC2*C1P-BC4*C2P)/(R-C4)\r\n      CONST2 = (BC2*C1N-BC4*C2N)/(R+C4)\r\n      CONST3 = (BC3*C1P-BC5*C2P)/(R-C5)\r\n      CONST4 = (BC3*C1N-BC5*C2N)/(R+C5)\r\n      CONST5 = SS*SUMSV1(IOUT)\r\n      CONST6 = SS*SUMSV2(IOUT)\r\n      C1A    =-AI*BETNP\r\n      C2A    =-AI*BETNN\r\n      CEXP1  = CEXP(C1A*SNS)\r\n      CEXP2  = CEXP(C2A*SNS)\r\n      CEXP1A = CEXP(C1A*TEMP)\r\n      CEXP2A = CEXP(C2A*TEMP)\r\n      DO 80 JL = 1,NL\r\n      QRES4(JL) = QRES4(JL) + CONST5*(CONST*CEXP1-CONST2*CEXP2) +\r\n     1            CONST6*(CONST3*CEXP1-CONST4*CEXP2)\r\n      CEXP1  = CEXP1*CEXP1A\r\n      CEXP2  = CEXP2*CEXP2A\r\n   80 CONTINUE\r\n   90 CONTINUE\r\n      IF (CABS((AM5TT-AM5T)/AM5T) .LT. 0.001) GO TO 110\r\n      AM5TT  = AM5T\r\n  100 CONTINUE\r\n      GO TO 200\r\n  110 CONTINUE\r\n      IF (INER  .LE.  I6) GO TO 120\r\n      I6 = INER\r\n  120 CONTINUE\r\n      F5  = F5  + F5T\r\n      AM5 = AM5 + AM5T\r\n      DO 130 JL = 1,NL\r\n      PRES4(JL) = PRES4(JL) + QRES4(JL)\r\n  130 CONTINUE\r\n      ALP1 = (2.0*PI*C4-DEL*SNS-SIGMA)/S1\r\n      ALP2 = (2.0*PI*C5-DEL*SNS-SIGMA)/S1\r\n      T1   = 1.0 - CEXP(-2.0*PI*AI*C4)\r\n      T2   = 1.0 - CEXP(-2.0*PI*AI*C5)\r\n      C1P  = CEXP(-2.0*PI*AI*C4*SNS/S1)/(T1)\r\n      C2P  = CEXP( 2.0*PI*AI*C4*SNS/S1)/(T1)\r\n      C1N  = CEXP(-2.0*PI*AI*C5*SNS/S1)/(T2)\r\n      C2N  = CEXP( 2.0*PI*AI*C5*SNS/S1)/(T2)\r\n      T1   = CEXP(-AI*SPS*ALP1)\r\n      T2   = CEXP(-AI*SNS*ALP1)\r\n      T3   = CEXP(-AI*SPS*ALP2)\r\n      T4   = CEXP(-AI*SNS*ALP2)\r\n      CA1  = AI*SS/ALP1*(T1-T2)\r\n      CA2  = AI*SS/ALP2*(T3-T4)\r\n      CA3  = SS*(AI*SPS*T1/ALP1 - AI*SNS*T2/ALP1 + (T1-T2)/\r\n     1       ALP1**2 + (2.0-SPS)*AI/ALP1*(T1-T2))\r\n      CA4  = SS*(AI*SPS*T3/ALP2 - AI*SNS*T4/ALP2 + (T3-T4)/\r\n     1       ALP2**2 + (2.0-SPS)*AI/ALP2*(T3-T4))\r\n      F5   = F5 - 2.0*PI*AI*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)*CA1 - 2.0*PI*\r\n     1       AI*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N)*CA2\r\n      AM5  = AM5 - 2.0*PI*AI*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)*CA3 - 2.0*\r\n     1       PI*AI*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N)*CA4\r\n      TEMP = (SPS-SNS)/RL1\r\n      CONST  = SS*2.0*PI*AI\r\n      CONST2 = CONST*SUMSV1(IOUT)*(BC2*C1P-BC4*C2P)\r\n      CONST3 = CONST*SUMSV2(IOUT)*(BC3*C1N-BC5*C2N)\r\n      C1A    =-AI*ALP1\r\n      C2A    =-AI*ALP2\r\n      CEXP1  = CEXP(C1A*SNS)\r\n      CEXP2  = CEXP(C2A*SNS)\r\n      CEXP1A = CEXP(C1A*TEMP)\r\n      CEXP2A = CEXP(C2A*TEMP)\r\n      DO 140 JL = 1,NL\r\n      PRES4(JL) = PRES4(JL)+CONST2*CEXP1+CONST3*CEXP2\r\n      CEXP1  = CEXP1*CEXP1A\r\n      CEXP2  = CEXP2*CEXP2A\r\n  140 CONTINUE\r\n      IF (CABS((AM5-AM6)/AM5) .LT. 0.0009) GO TO 160\r\n      AM6 = AM5\r\n  150 CONTINUE\r\n      GO TO 220\r\n  160 CONTINUE\r\n      CLIFT = F1 + F2 - F2P + F4 + F5\r\n      CMOMT = AM1 + AM2 - AM2P + AM4 + AM5 - AMOAXS*CLIFT\r\n      GO TO 270\r\nC\r\n  200 WRITE  (IBBOUT,210) UFM\r\n  210 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC.  AM5T LOOP DID NOT',\r\n     1       ' CONVERGE.')\r\n      GO TO 260\r\n  220 WRITE  (IBBOUT,230) UFM\r\n  230 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC.  AM5 LOOP DID NOT',\r\n     1       ' CONVERGE.')\r\n      GO TO 260\r\n  240 WRITE  (IBBOUT,250) UFM,I7\r\n  250 FORMAT (A23,' - AMG MODULE -SUBROUTINE SUBCC.  OUTER LOOP OF AM5',\r\n     1       ' EXCEEDED I7 (',I6,1H))\r\n  260 CALL MESAGE (-61,0,0)\r\n  270 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subi.f",
    "content": "      SUBROUTINE SUBI (DA,DZB,DYB,DAR,DETA,DZETA,DCGAM,DSGAM,DEE,DXI,TL,\r\n     1                 DETAI,DZETAI,DCGAMI,DSGAMI,DEEI,DTLAMI,DMUY,DMUZ,\r\n     2                 INFL,IOUTFL)\r\nC\r\nC     COMPUTES THE IMAGE POINT COORDINATES INSIDE ASSOCIATED BODIES AND\r\nC     THE  MU-Z  MU-Y  ELEMENTS USED IN SUBROUTINE FWMW\r\nC\r\n      EPS   = 0.1*DEE\r\n      DMUY  = 0.0\r\n      DMUZ  = 0.0\r\n      IGO   = 1\r\n      PSQR  = SQRT(((DETA-DYB)*DAR)**2 + (DZETA-DZB)**2)\r\n      COSTH = (DETA -DYB)*DAR/PSQR\r\n      SINTH = (DZETA-DZB)/PSQR\r\n      CT2   = COSTH*COSTH\r\n      ST2   = SINTH*SINTH\r\n      CT3   = COSTH*CT2\r\n      ST3   = SINTH*ST2\r\n      YCBAR = DA*(1.0-DAR*DAR)*CT3 + DYB\r\n      ZCBAR = DA*(DAR*DAR-1.0)*ST3/DAR + DZB\r\n      PAREN = ST2 + DAR*DAR*CT2\r\n      PAR3  = PAREN*PAREN**2\r\n      ABAR  = DA*SQRT(PAR3)/DAR\r\n      ABAR2 = ABAR*ABAR\r\n      IF (INFL .NE. 0)  GO TO  300\r\n      ETA1  = DETA  - DEE*DCGAM\r\n      ETA2  = DETA  + DEE*DCGAM\r\n      ZETA1 = DZETA - DEE*DSGAM\r\n      ZETA2 = DZETA + DEE*DSGAM\r\n      RHO12 = (ETA1 - YCBAR)**2 + (ZETA1-ZCBAR)**2\r\n      RHO22 = (ETA2 - YCBAR)**2 + (ZETA2-ZCBAR)**2\r\n      ETAI1 = YCBAR + (ETA1-YCBAR)*ABAR2/RHO12\r\n      ETAI2 = YCBAR + (ETA2-YCBAR)*ABAR2/RHO22\r\n      ZETI1 = ZCBAR + (ZETA1-ZCBAR)*ABAR2/RHO12\r\n      ZETI2 = ZCBAR + (ZETA2-ZCBAR)*ABAR2/RHO22\r\n      DEEI  = SQRT((ETAI2-ETAI1)**2 + (ZETI2-ZETI1)**2)/2.0\r\n      DETAI = (ETAI1 + ETAI2)/2.0\r\n      DZETAI= (ZETI1 + ZETI2)/2.0\r\n      DCGAMI=-(ETAI2 - ETAI1)/(2.0*DEEI)\r\n      DSGAMI=-(ZETI2 - ZETI1)/(2.0*DEEI)\r\n      DXI1  = DXI  - DEE*TL\r\n      DXI2  = DXI  + DEE*TL\r\n      DELXI = DXI1 - DXI2\r\n      DTLAMI= DELXI/(2.0*DEEI)\r\n      IF (ABS(DAR-1.0) .LE. 0.0001)  GO TO  420\r\n      GO TO 301\r\n  300 CONTINUE\r\n      RHO2  = (DETA-YCBAR)**2 + (DZETA-ZCBAR)**2\r\n      RHO4  = RHO2*RHO2\r\n      DETAI = YCBAR + (DETA -YCBAR)*ABAR2/RHO2\r\n      DZETAI= ZCBAR + (DZETA-ZCBAR)*ABAR2/RHO2\r\n  301 CONTINUE\r\n      GO TO (302,303,304), IGO\r\n  302 CONTINUE\r\n      XETAI = DETAI\r\n      XZETAI= DZETAI\r\n      GO TO 307\r\n  303 CONTINUE\r\n      XETAI = ETAI1\r\n      XZETAI= ZETI1\r\n      GO TO  307\r\n  304 CONTINUE\r\n      XETAI = ETAI2\r\n      XZETAI= ZETI2\r\n  307 CONTINUE\r\n      IF (DAR .LT. 1.0) GO TO  310\r\n      DYBM  = DYB - EPS\r\n      DYBP  = DYB + EPS\r\n      IF (DETA .GE.DYB .AND. XETAI .LT.DYBM) GO TO  325\r\n      IF (DETA .LE.DYB .AND. XETAI .GT.DYBP) GO TO  325\r\n      GO TO  320\r\n  310 CONTINUE\r\n      DZBM  = DZB - EPS\r\n      DZBP  = DZB + EPS\r\n      IF (DZETA.GE.DZB .AND. XZETAI.LT.DZBM) GO TO  325\r\n      IF (DZETA.LE.DZB .AND. XZETAI.GT.DZBP) GO TO  325\r\n  320 CONTINUE\r\n      PART1 = ((XETAI  - DYB)/DA)**2\r\n      PART2 = ((XZETAI - DZB)/(DA*DAR))**2\r\n      TEDIF = PART1 + PART2 - 1.0\r\n      IF (INFL  .EQ.   0) GO TO  400\r\n      IF (TEDIF .LE. EPS) GO TO  330\r\n  325 CONTINUE\r\n      IOUTFL = 0\r\n      GO TO  500\r\n  330 CONTINUE\r\n      IOUTFL = 1\r\n      TRM1 = (DETA-YCBAR)**2 - (DZETA-ZCBAR)**2\r\n      TRM2 = 2.0*(DETA-YCBAR)*(DZETA-ZCBAR)\r\n      DMUY = -(-DSGAM*TRM1 + DCGAM*TRM2)*ABAR2/RHO4\r\n      DMUZ = -(-DSGAM*TRM2 - DCGAM*TRM1)*ABAR2/RHO4\r\n      GO TO 500\r\n  400 CONTINUE\r\n      IF (TEDIF .GT. EPS) GO TO 325\r\n      IF (IGO   .EQ.   3) GO TO 420\r\n      IGO  = IGO + 1\r\n      GO TO 301\r\n  420 CONTINUE\r\n      IOUTFL = 1\r\n  500 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subp.f",
    "content": "      SUBROUTINE SUBP (I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,XIC,DELX,EE,XLAM,\r\n     1                 SG,CG,YS,ZS)\r\nC\r\nC     COMPUTES ELEMENTS OF THE SUBMATRICES  DPP, DPZ  AND  DPY\r\nC     USING  SUBROUTINES  SNPDF,  INCRO  AND SUBI\r\nC\r\n      REAL           KR,M\r\n      COMPLEX        DPUR,DPUL,DPLR,DPLL,DP,SUM\r\n      DIMENSION      XIC(1),DELX(1),EE(1),XLAM(1),SG(1),CG(1),YS(1),\r\n     1               ZS(1)\r\n      COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR\r\n      COMMON /DLCOM/ DUM(3),F\r\nC\r\n      EPS  = 0.00001\r\n      M    = FMACH\r\n      BETA = SQRT(1.0-M*M)\r\n      FL   = REFC\r\n      FLND = FLOAT(ND)\r\n      FLNE = FLOAT(NE)\r\n      SGS  = SG(LS)\r\n      CGS  = CG(LS)\r\n      DPUR = (0.0,0.0)\r\n      DPUL = (0.0,0.0)\r\n      DPLR = (0.0,0.0)\r\n      DPLL = (0.0,0.0)\r\n      DIJ  = 0.0\r\n      DELR = 0.0\r\n      DELI = 0.0\r\n      DIJI = 0.0\r\n      DELRI= 0.0\r\n      DELII= 0.0\r\nC\r\nC     UPPER RIGHT SENDING POINT\r\nC\r\n      IGO  = 1\r\n      TL   = XLAM(J)\r\n      SQTL = SQRT(1.0+TL**2)\r\n      SL   = TL/SQTL\r\n      CL   = 1.0/SQTL\r\n      X    = XIC(I) + F*DELX(I)\r\n      X0   = X - XIC(J)\r\n      Y0   = YREC - YS(LS)\r\n      Z0   = ZREC - ZS(LS)\r\n      ES   = EE(LS)\r\n      DXS  = DELX(J)\r\n      AX   = X0\r\n      AY   = Y0\r\n      AZ   = Z0\r\n      CV   = DXS\r\nC\r\n   30 NOBI = 1\r\n      CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,ES,DIJ,BETA,CV)\r\n      IF (KR .LE. EPS) GO TO  40\r\n      SDELX= DXS\r\n      DELY = 2.0*ES\r\n      AX1  = AX + ES*TL\r\n      AY1  = AY + ES*CGS\r\n      AZ1  = AZ + ES*SGS\r\n      AX2  = AX - ES*TL\r\n      AY2  = AY - ES*CGS\r\n      AZ2  = AZ - ES*SGS\r\n      CALL INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS,CGS,\r\n     1            KR,FL,BETA,SDELX,DELY,DELR,DELI)\r\n   40 CONTINUE\r\n      DP = CMPLX(((DIJ+DIJI)-(DELR +DELRI)),(-DELI-DELII))\r\n      GO TO (140,150,170,180), IGO\r\n  140 CONTINUE\r\n      DPUR = DP\r\nC\r\nC     TEST FOR ABS(YS(LS)) .LE..001 TAKEN OUT\r\nC\r\n      IF (ND .EQ. 0) GO TO 160\r\nC\r\nC     UPPER LEFT  SENDING POINT\r\nC\r\n      IGO  = 2\r\n      SGS  =-SGS\r\n      TL   =-TL\r\n      SL   =-SL\r\n      Y0   = YREC + YS(LS)\r\n      AY   = Y0\r\n      GO TO  30\r\n  150 CONTINUE\r\n      DPUL = DP\r\n  160 CONTINUE\r\n      IF (NE .EQ. 0) GO TO 190\r\nC\r\nC     LOWER RIGHT SENDING POINT\r\nC\r\n      IGO  = 3\r\n      TL   = XLAM(J)\r\n      SL   = TL/(SQRT(1.0+TL*TL))\r\n      Y0   = YREC - YS(LS)\r\n      Z0   = ZREC + ZS(LS)\r\n      AY   = Y0\r\n      AZ   = Z0\r\n      SGS  =-SG(LS)\r\n      GO TO  30\r\n  170 CONTINUE\r\n      DPLR = DP\r\n      IF (ND .EQ. 0) GO TO 190\r\nC\r\nC     LOWER LEFT  SENDING POINT\r\nC\r\n      IGO  = 4\r\n      SGS  = SG(LS)\r\n      TL   =-XLAM(J)\r\n      SL   = TL/(SQRT(1.0+TL*TL))\r\n      Y0   = YREC + YS(LS)\r\n      AY   = Y0\r\n      GO TO  30\r\n  180 CONTINUE\r\n      DPLL = DP\r\n  190 CONTINUE\r\n      SUM  = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subpb.f",
    "content": "      SUBROUTINE SUBPB (I,L,LS,J,SGR,CGR,YREC,ZREC,SUM,XIC,DELX,EE,XLAM,\r\n     1                  SG,CG,YS,ZS,NAS,NASB,AVR,ZB,YB,ARB,XLE,XTE,X,NB)\r\nC\r\nC     COMPUTES ELEMENTS OF THE SUBMATRICES  DPP, DPZ  AND  DPY\r\nC     USING  SUBROUTINES  SNPDF, INCRO AND SUBI\r\nC\r\n      REAL           KR,M\r\n      COMPLEX        DPUR,DPUL,DPLR,DPLL,DP,SUM\r\n      DIMENSION      XIC(1),DELX(1),EE(1),XLAM(1),SG(1),CG(1),YS(1),\r\n     1               ZS(1),NAS(1),NASB(1),AVR(1),ZB(1),YB(1),ARB(1),\r\n     2               XLE(1),XTE(1),X(1)\r\n      COMMON /AMGMN/ MCB(7),NROW,ND,NE,REFC,FMACH,KR\r\nC\r\n      EPS  = 0.00001\r\n      M    = FMACH\r\n      BETA = SQRT(1.0-M*M)\r\n      FL   = REFC\r\n      FLND = FLOAT(ND)\r\n      FLNE = FLOAT(NE)\r\n      SGS  = SG(LS)\r\n      CGS  = CG(LS)\r\n      DPUR = (0.0,0.0)\r\n      DPUL = (0.0,0.0)\r\n      DPLR = (0.0,0.0)\r\n      DPLL = (0.0,0.0)\r\n      DIJ  = 0.0\r\n      DELR = 0.0\r\n      DELI = 0.0\r\n      DIJI = 0.0\r\n      DELRI= 0.0\r\n      DELII= 0.0\r\n      INFL = 0\r\n      IOUTFL = 0\r\nC\r\nC     UPPER RIGHT SENDING POINT\r\nC\r\n      IGO  = 1\r\n      TL   = XLAM(J)\r\n      SQTL = SQRT(1.0+TL**2)\r\n      SL   = TL/SQTL\r\n      CL   = 1.0/SQTL\r\n      X0   = X(I) - XIC(J)\r\n      Y0   = YREC - YS(LS)\r\n      Z0   = ZREC - ZS(LS)\r\n      ES   = EE(LS)\r\n      DXS  = DELX(J)\r\n      AX   = X0\r\n      AY   = Y0\r\n      AZ   = Z0\r\n      CV   = DXS\r\nC\r\n   30 NOBI = 1\r\n      NA2  = 0\r\n      CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,ES,DIJ,BETA,CV)\r\n      IF (KR .LE. EPS) GO TO 40\r\n      SDELX = DXS\r\n      DELY = 2.0*ES\r\n      AX1  = AX + ES*TL\r\n      AY1  = AY + ES*CGS\r\n      AZ1  = AZ + ES*SGS\r\n      AX2  = AX - ES*TL\r\n      AY2  = AY - ES*CGS\r\n      AZ2  = AZ - ES*SGS\r\n      CALL INCRO (AX,AY,AZ,AX1,AY1,AZ1,AX2,AY2,AZ2,SGR,CGR,SGS,CGS,\r\n     1            KR,FL,BETA,SDELX,DELY,DELR,DELI)\r\n   40 IF (NB .EQ. 0) GO TO 120\r\n      NOAS = NAS(L)\r\nC\r\nC     CHECK FOR ASSOCIATED BODIES\r\nC\r\n      IF (NOAS .EQ. 0) GO TO 120\r\n      DIJS  = DIJ\r\n      DELRS = DELR\r\n      DELIS = DELI\r\n      DIJI  = 0.0\r\n      DELRI = 0.0\r\n      DELII = 0.0\r\n      NA1   = NA2 + 1\r\n      NA2   = NA2 + NOAS\r\n      IF (NA2 .GT. NB) NA2 = NB\r\nC\r\nC     START DO-LOOP FOR THE SUMMATION OF THE WING-IMAGE CONTRIBUTIONS\r\nC     OVER  RANGE(P)\r\nC\r\n      DO 110 NA = NA1,NA2\r\n      NOB  = NASB(NA)\r\nC\r\nC     NOB IS THE SEQUENCE NUMBER OF THE CURRENT BODY ASSOCIATED WITH\r\nC     PANEL  L  IN WHICH THE SENDING POINT  J  LIES\r\nC\r\n      NOBI = NOB\r\n      DA   = AVR(NOB)\r\n      DAR  = ARB(NOB)\r\n      DXLE = XLE(NOB)\r\n      DXTE = XTE(NOB)\r\n      GO TO (50,60,70,80), IGO\r\n   50 CONTINUE\r\n      DZB  = ZB(NOB)\r\n      DYB  = YB(NOB)\r\n      DETA = YS(LS)\r\n      DZETA= ZS(LS)\r\n      GO TO  90\r\n   60 CONTINUE\r\n      DZB  = ZB(NOB)\r\n      DYB  =-YB(NOB)\r\n      DETA =-YS(LS)\r\n      DZETA= ZS(LS)\r\n      GO TO  90\r\n   70 CONTINUE\r\n      DZB  =-ZB(NOB)\r\n      DYB  = YB(NOB)\r\n      DETA = YS(LS)\r\n      DZETA=-ZS(LS)\r\n      GO TO  90\r\n   80 CONTINUE\r\n      DZB  =-ZB(NOB)\r\n      DYB  =-YB(NOB)\r\n      DETA =-YS(LS)\r\n      DZETA=-ZS(LS)\r\n   90 CONTINUE\r\n      DCGAM= CGS\r\n      DSGAM= SGS\r\n      DEE  = ES\r\n      DXI  = XIC(J)\r\n      IF (DXI.LT.DXLE .OR. DXI.GT.DXTE) GO TO 110\r\n      CALL SUBI (DA,DZB,DYB,DAR,DETA,DZETA,DCGAM,DSGAM,DEE,DXI,TL,DETAI,\r\n     1           DZETAI,DCGAMI,DSGAMI,DEEI,DTLAMI,DMUY,DMUZ,INFL,IOUTFL)\r\n      DIJ  = 0.0\r\n      IF (INFL.NE.0 .OR. IOUTFL.EQ.0) GO TO 100\r\n      DTL  = DTLAMI\r\n      DSQRTL = SQRT(1.0+DTL**2)\r\n      DSL  = DTL/DSQRTL\r\n      DCL  = 1.0/DSQRTL\r\n      X0I  = X0\r\n      Y0I  = YREC - DETAI\r\n      Z0I  = ZREC - DZETAI\r\n      CALL SNPDF (DSL,DCL,DTL,DSGAMI,DCGAMI,SGR,CGR,X0I,Y0I,Z0I,DEEI,\r\n     1            DIJ,BETA,CV)\r\n      DIJI = DIJI + DIJ\r\n      IF  (KR .LE. EPS) GO TO 100\r\n      DELR = 0.0\r\n      DELI = 0.0\r\n      AYI  = Y0I\r\n      AZI  = Z0I\r\n      AY1I = AYI - DEEI*DCGAMI\r\n      AZ1I = AZI - DEEI*DSGAMI\r\n      AY2I = AYI + DEEI*DCGAMI\r\n      AZ2I = AZI + DEEI*DSGAMI\r\n      DEEI2 = 2.0*DEEI\r\n      CALL INCRO (AX,AYI,AZI,AX1,AY1I,AZ1I,AX2,AY2I,AZ2I,SGR,CGR,DSGAMI,\r\n     1            DCGAMI,KR,FL,BETA,SDELX,DEEI2,DELR,DELI)\r\n      DELRI = DELRI + DELR\r\n      DELII = DELII + DELI\r\n      GO TO 110\r\n  100 CONTINUE\r\n      DELRI = 0.0\r\n      DELII = 0.0\r\n  110 CONTINUE\r\n      DIJ  = DIJS\r\n      DELR = DELRS\r\n      DELI = DELIS\r\n  120 CONTINUE\r\n      DP = CMPLX(((DIJ+DIJI)-(DELR+DELRI)),(-DELI-DELII))\r\n      GO TO (140,150,170,180), IGO\r\n  140 CONTINUE\r\n      DPUR = DP\r\n      IF (ND .EQ. 0) GO TO 160\r\nC\r\nC     UPPER LEFT  SENDING POINT\r\nC\r\n      IGO = 2\r\n      SGS =-SGS\r\n      TL  =-TL\r\n      SL  =-SL\r\n      Y0  = YREC + YS(LS)\r\n      AY  = Y0\r\n      GO TO 30\r\n  150 CONTINUE\r\n      DPUL = DP\r\n  160 CONTINUE\r\n      IF (NE .EQ. 0) GO TO 190\r\nC\r\nC     LOWER RIGHT SENDING POINT\r\nC\r\n      IGO = 3\r\n      TL  = XLAM(J)\r\n      SL  = TL/(SQRT(1.0+TL*TL))\r\n      Y0  = YREC - YS(LS)\r\n      Z0  = ZREC + ZS(LS)\r\n      AY  = Y0\r\n      AZ  = Z0\r\n      SGS =-SG(LS)\r\n      GO TO 30\r\n  170 CONTINUE\r\n      DPLR = DP\r\n      IF (ND .EQ. 0) GO TO 190\r\nC\r\nC     LOWER LEFT  SENDING POINT\r\nC\r\n      IGO = 4\r\n      SGS = SG(LS)\r\n      TL  =-XLAM(J)\r\n      SL  = TL/(SQRT(1.0+TL*TL))\r\n      Y0  = YREC + YS(LS)\r\n      AY  = Y0\r\n      GO TO 30\r\n  180 CONTINUE\r\n      DPLL = DP\r\n  190 CONTINUE\r\n      SUM  = DPUR + FLND*DPUL + FLNE*DPLR + FLND*FLNE*DPLL\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/subph1.f",
    "content": "      SUBROUTINE SUBPH1\r\nC\r\nC     THIS MODULE PERFORMS THE PHASE 1 CONVERSION OF NASTRAN DATA BLOCK\r\nC     TABLES TO THEIR EQUIVALENT SOF ITEMS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,ANDF,ORF\r\n      LOGICAL         LAST\r\n      INTEGER         BUF(10),TEMP(10),TYPE,SUB1(2),ICODE(32),MCB(7),\r\n     1                LTYPE1(5),LTYPE2(5),LTYPE3(5)\r\n      REAL            RZ(12)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ BSIZE,OUT\r\n      COMMON /BLANK / DRY,NAME(2),PSET,PITM\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (RZ(1),Z(1))\r\n      DATA    CASE  , EQEX,USET,BGPD,CSTM,GPSE,ELSE,SCRT/\r\n     1        101   , 102 ,103 ,104 ,105 ,106 ,107 ,301 /\r\n      DATA    EQSS  / 4HEQSS/,ICSTM/4HCSTM/,LODS /4HLODS/,PLTS/4HPLTS/,\r\n     1        BGSS  / 4HBGSS/\r\n      DATA    IUA   / 25    /, SUB1/4HSUBP,4HH1   /\r\n      DATA    LTYPE1/ 4HEXTE,4HRNAL,4H STA,4HTIC ,4HLOAD/\r\n      DATA    LTYPE2/ 4H    ,4H    ,4HTHER,4HMAL ,4HLOAD/\r\n      DATA    LTYPE3/ 4H ELE,4HMENT,4H DEF,4HORMA,4HTION/\r\n      DATA    LOAP  , PAPP  /4HLOAP,4HPAPP/,  I0 / 0    /\r\nC\r\n      MUA = TWO(IUA)\r\nC\r\nC     INITIALLIZE CORE, ETC\r\nC\r\n      IF (DRY .EQ. 0) RETURN\r\n      NC = KORSZ(Z(1))\r\n      B1 = NC - BSIZE + 1\r\nC\r\nC     OPEN SCRATCH FILE TO WRITE CONVERTED DATA\r\nC\r\n      B2   =  B1  - BSIZE\r\n      B3   =  B2  - BSIZE\r\n      BUF1 =  B3  - BSIZE\r\n      BUF2 =  BUF1- BSIZE\r\n      NZ   =  BUF2- 1\r\nC\r\nC     TEST FOR CORE\r\nC\r\n      IF (NZ .LE. 0) GO TO 4010\r\nC\r\n      CALL SOFOPN (Z(B1),Z(B2),Z(B3))\r\nC\r\nC     EQSS GENERATION\r\nC\r\n      FILE = USET\r\n      CALL OPEN (*5001,USET,Z(BUF1),0)\r\n      CALL FWDREC (*5001,USET)\r\nC\r\nC     READ USET INTO CORE\r\nC\r\n      CALL READ (*5001,*20,USET,Z(1),NZ,0,NU)\r\nC\r\nC     RAN OUT OF CORE\r\nC\r\n      CALL CLOSE (USET,1)\r\n      GO TO 4010\r\nC\r\n 20   CALL CLOSE (USET,1)\r\nC\r\nC     FLAG ELEMENTS IN UA SET  (SET OTHERS TO ZERO)\r\nC\r\n      DO 40 I = 1,NU\r\n      IF (ANDF(MUA,Z(I)) .EQ. 0) GO TO 30\r\n      Z(I) = 1\r\n      GO TO 40\r\n 30   Z(I) = 0\r\n 40   CONTINUE\r\nC\r\nC     READ  SECOND RECORD OF EQEXIN - CONTAINS  G AND SIL PAIRS\r\nC\r\n      FILE = EQEX\r\n      CALL OPEN (*5001,EQEX,Z(BUF1),0)\r\n      CALL FWDREC (*5001,EQEX)\r\n      CALL FWDREC (*5001,EQEX)\r\nC\r\nC     OPEN SCRATCH FILE TO WRITE CONVERTED DATA\r\nC\r\n      CALL OPEN (*5001,SCRT,Z(BUF2),1)\r\nC\r\nC     LOOP ON GRID POINTS\r\nC\r\n      K = 0\r\n      I = 0\r\nC\r\n 50   CALL READ (*5001,*110,EQEX,BUF,2,0,NWDS)\r\n      C = 0\r\n      I = I + 1\r\n      ISIL = BUF(2)/10\r\n      TYPE = BUF(2) - 10*ISIL\r\n      IF (TYPE-2) 60,80,4020\r\nC\r\nC     GRID POINT, DETERMINE UA COMPONENTS, PUT IN BINARY FORM\r\nC\r\n 60   DO 70 J = 1,6\r\n      IU = ISIL + J - 1\r\n      IF (Z(IU) .EQ. 0) GO TO 70\r\n      C  = ORF(C,LSHIFT(1,J-1))\r\n 70   CONTINUE\r\n      GO TO 90\r\nC\r\nC     SCALAR POINT\r\nC\r\n 80   IF (Z(ISIL) .NE. 0) C = 1\r\nC\r\nC     WRITE OUT G AND C\r\nC\r\n 90   IF (C .EQ. 0) GO TO 100\r\n      BUF(2) = C\r\n      CALL WRITE (SCRT,BUF,2,0)\r\n      K = K + 1\r\n 100  CONTINUE\r\n      GO TO 50\r\nC\r\n 110  MCB(1) = EQEX\r\n      CALL RDTRL (MCB)\r\n      NPTS = MCB(2)\r\n      CALL REWIND (EQEX)\r\n      CALL CLOSE (SCRT,1)\r\n      IF (NPTS*2 .GT. NZ) GO TO 4010\r\nC\r\nC     READ FIRST RECORD OF EQEXIN - GET G AND IOLD\r\nC     READ SCRATCH - GET G AND C\r\nC     BUILD TABLE IN CORE\r\nC\r\n      FILE = EQEX\r\n      CALL FWDREC (*5001,EQEX)\r\n      FILE = SCRT\r\n      CALL OPEN (*5001,SCRT,Z(BUF2),0)\r\nC\r\nC     SET CORE TO ZERO\r\nC\r\n      DO 150 I = 1,NPTS\r\n      IZP = 2*I\r\n      Z(IZP  ) = 0\r\n      Z(IZP-1) = 0\r\n 150  CONTINUE\r\n      NNEW = K\r\nC\r\nC     LOOP ON POINTS IN SCRATCH FILE, STORE C IN ITH WORD OF ENTRY\r\nC     POSITION OF ENTRY IS THE INTERNAL SEQUENCE\r\nC\r\n      IF (K .LE. 0) GO TO 210\r\n      DO 200 I = 1,K\r\n      FILE = SCRT\r\n      CALL READ (*5001,*210,SCRT,BUF,2,0,NWDS)\r\n      FILE = EQEX\r\n 180  CALL READ (*5001,*210,EQEX,TEMP,2,0,NWDS)\r\n      IF (BUF(1)-TEMP(1)) 5001,190,180\r\n 190  IZP = 2*TEMP(2)\r\n      Z(IZP) = BUF(2)\r\n 200  CONTINUE\r\nC\r\nC     CORE TABLE IS COMPLETE, FILL IN FIRST ENTRIES\r\nC\r\n 210  CALL CLOSE (SCRT,1)\r\n      CALL REWIND (EQEX)\r\n      K = 0\r\n      DO 300 I = 1,NPTS\r\n      IF (Z(2*I) .EQ. 0) GO TO 300\r\n      K = K + 1\r\n      Z(2*I-1) = K\r\n 300  CONTINUE\r\nC\r\nC     CORE NOW CONTAINS NEW IP VALUES AND C IN OLD IP POSITIONS\r\nC\r\n      FILE = EQSS\r\nC\r\nC     CHECK IF SUBSTRUCTURE EXISTS ALREADY\r\nC\r\n      CALL FWDREC (*5001,EQEX)\r\n      CALL SETLVL (NAME,0,TEMP,ITEST,0)\r\n      IF (ITEST .NE. 1) WRITE (OUT,6325) UWM,NAME\r\n      ITEST = 3\r\n      CALL SFETCH (NAME,EQSS,2,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 340\r\n      WRITE (OUT,6326) UWM,NAME,EQSS\r\n      GO TO 1000\r\n 340  BUF(1) = NAME(1)\r\n      BUF(2) = NAME(2)\r\n      BUF(3) = 1\r\n      BUF(4) = NNEW\r\n      BUF(5) = NAME(1)\r\n      BUF(6) = NAME(2)\r\nC\r\n      CALL SUWRT (BUF,6,2)\r\nC\r\nC     PROCESS EQSS OUTPUT-  G, IP, C - SORTED ON G\r\nC\r\n      DO 400 I = 1,NPTS\r\nC\r\n      CALL READ (*5001,*400,EQEX,TEMP,2,0,NWDS)\r\nC\r\n      IPT = TEMP(2)*2 - 1\r\n      IF (Z(IPT) .EQ. 0) GO TO 400\r\n      TEMP(2) = Z(IPT  )\r\n      TEMP(3) = Z(IPT+1)\r\n      CALL SUWRT (TEMP,3,1)\r\n 400  CONTINUE\r\n      CALL SUWRT (TEMP,0,2)\r\nC\r\nC     BUILD SIL TABLE BY COUNTING C VALUES\r\nC\r\n      NC = 0\r\n      IS = 1\r\n      DO 500 I = 1,NPTS\r\n      IPT = 2*I - 1\r\nC\r\n      IF (Z(IPT) .EQ. 0) GO TO 500\r\n      IS = IS + NC\r\n      Z(IPT) = IS\r\nC\r\n      CALL SUWRT (Z(IPT),2,1)\r\nC\r\nC     CALCULATE NUMBER OF COMPONENTS FOR NEXT STEP\r\nC\r\n      KCODE = Z(IPT+1)\r\n      CALL DECODE (KCODE,ICODE,NC)\r\n 500  CONTINUE\r\n      CALL SUWRT (0,0,2)\r\n      CALL SUWRT (TEMP,0,3)\r\n 1000 CALL CLOSE (EQEX,1)\r\nC\r\nC     BGSS GENERATION\r\nC\r\n      FILE = BGPD\r\n      CALL OPEN (*5001,BGPD,Z(BUF1),0)\r\n      CALL FWDREC (*5001,BGPD)\r\n      ITEST = 3\r\n      CALL SFETCH (NAME,BGSS,2,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 1100\r\n      WRITE (OUT,6326) UWM,NAME,BGSS\r\n      GO TO 2000\r\n 1100 CONTINUE\r\nC\r\n      BUF(1) = NAME(1)\r\n      BUF(2) = NAME(2)\r\n      BUF(3) = NNEW\r\n      CALL SUWRT (BUF,3,2)\r\n      DO 1200 I = 1,NPTS\r\n      CALL READ (*5001,*1200,BGPD,BUF,4,0,NWDS)\r\nC\r\n      IF (Z(2*I-1) .EQ. 0) GO TO 1200\r\nC\r\n      CALL SUWRT (BUF,4,1)\r\n 1200 CONTINUE\r\n      CALL SUWRT (0,0,2)\r\n      CALL SUWRT (BUF,0,3)\r\n 2000 CALL CLOSE (BGPD,1)\r\nC\r\nC\r\nC     CSTM GENERATION\r\nC\r\nC\r\n      CALL OPEN (*2500,CSTM,Z(BUF1),0)\r\nC\r\nC     CSTM EXISTS\r\nC\r\n      CALL FWDREC (*5001,CSTM)\r\n      ITEST = 3\r\n      CALL SFETCH (NAME,ICSTM,2,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 2100\r\n      WRITE (OUT,6326) UWM,NAME,ICSTM\r\n      GO TO 2400\r\nC\r\n 2100 BUF(1) = NAME(1)\r\n      BUF(2) = NAME(2)\r\n      CALL SUWRT (BUF,2,2)\r\nC\r\nC     BLAST COPY\r\nC\r\n      CALL READ (*5001,*2200,CSTM,Z(1),NZ,1,NWDS)\r\n      GO TO 4010\r\n 2200 CALL SUWRT (Z(1),NWDS,2)\r\n      CALL SUWRT (0,0,3)\r\n 2400 CALL CLOSE (CSTM,1)\r\nC\r\nC     LODS GENERATION\r\nC\r\n 2500 NLOD = 0\r\nC\r\n      CALL GOPEN (CASE,Z(BUF1),0)\r\nC\r\n      ICASE = 0\r\nC\r\n 2600 CALL READ (*2800,*2800,CASE,Z(1),9,1,NWDS)\r\n      ICASE = ICASE + 1\r\n      IF (Z(I0+4) .EQ. 0) GO TO 2610\r\n      WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE1,Z(I0+4)\r\n      Z(NLOD+10) = Z(I0+4)\r\n      GO TO 2700\r\n 2610 IF (Z(I0+7) .EQ. 0) GO TO 2620\r\n      WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE2,Z(I0+7)\r\n      Z(NLOD+10) = Z(I0+7)\r\n      GO TO 2700\r\n 2620 IF (Z(I0+6) .EQ. 0) GO TO 2630\r\n      WRITE (OUT,6327) UIM,NAME,ICASE,LTYPE3,Z(I0+6)\r\n      Z(NLOD+10) = Z(I0+6)\r\n      GO TO 2700\r\n 2630 Z(NLOD+10) = 0\r\n 2700 NLOD = NLOD + 1\r\n      GO TO 2600\r\n 2800 ITEST = 3\r\n      LITM  = LODS\r\n      IF (PITM .EQ. PAPP) LITM = LOAP\r\n      CALL SFETCH (NAME,LITM,2,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 2810\r\n      WRITE (OUT,6326) UWM,NAME,LITM\r\n      GO TO 2900\r\n 2810 Z(   1) = NAME(1)\r\n      Z(I0+2) = NAME(2)\r\n      Z(I0+3) = NLOD\r\n      Z(I0+4) = 1\r\n      Z(I0+5) = NAME(1)\r\n      Z(I0+6) = NAME(2)\r\n      CALL SUWRT (Z(1),6,2)\r\n      CALL SUWRT (NLOD,1,1)\r\n      CALL SUWRT (Z(I0+10),NLOD,2)\r\n      CALL SUWRT (Z(1),0,3)\r\n 2900 CALL CLOSE (CASE,1)\r\nC\r\nC     PLOT SET DATA (PLTS) GENERATION\r\nC\r\n      IF (PSET .LE. 0) GO TO 4000\r\n      FILE = BGPD\r\n      CALL GOPEN (BGPD,Z(BUF1),0)\r\nC\r\n      ITEST = 3\r\n      CALL SFETCH (NAME,PLTS,2,ITEST)\r\n      IF (ITEST .EQ. 3) GO TO 3010\r\n      WRITE (OUT,6326) UWM,NAME,PLTS\r\n      CALL CLOSE (BGPD,1)\r\n      GO TO 4000\r\nC\r\n 3010 BUF(1) = NAME(1)\r\n      BUF(2) = NAME(2)\r\n      BUF(3) = 1\r\n      BUF(4) = NAME(1)\r\n      BUF(5) = NAME(2)\r\n      CALL SUWRT (BUF,5,1)\r\n      DO 3012 I = 1,11\r\n 3012 Z(I) = 0\r\n      RZ( 4) = 1.0\r\n      RZ( 8) = 1.0\r\n      RZ(12) = 1.0\r\n      CALL SUWRT (Z,12,2)\r\nC\r\n      CALL READ (*5001,*3020,BGPD,Z(1),NZ,0,NWDS)\r\n      GO TO 4010\r\n 3020 CALL SUWRT (Z,NWDS,2)\r\n      CALL CLOSE (BGPD,1)\r\n      FILE = EQEX\r\n      CALL GOPEN (EQEX,Z(BUF1),0)\r\n      CALL READ (*5001,*3030,EQEX,Z,NZ,1,NWDS)\r\n      GO TO 4010\r\n 3030 CALL SUWRT (Z,NWDS,2)\r\n      CALL CLOSE (EQEX,1)\r\n      FILE = GPSE\r\n      LAST = .FALSE.\r\n      CALL OPEN (*3500,GPSE,Z(BUF1),0)\r\nC\r\n      CALL FWDREC (*3500,GPSE)\r\nC\r\n      CALL READ (*5001,*3050,GPSE,Z(1),NZ,0,NSETS)\r\n      GO TO 4010\r\nC\r\nC     FIND PLOT SET ID\r\nC\r\n 3050 IF (NSETS .EQ. 0) GO TO 3500\r\nC\r\n      DO 3060 I = 1,NSETS\r\n      IF (Z(I) .EQ. PSET) GO TO 3070\r\n 3060 CONTINUE\r\n      GO TO 3500\r\n 3070 IREC = I - 1\r\nC\r\n 3075 IF (IREC .EQ. 0) GO TO 3090\r\nC\r\nC     POSITION FILE TO SELECTED SET\r\nC\r\n      DO 3080 I = 1,IREC\r\n      CALL FWDREC (*3500,FILE)\r\n 3080 CONTINUE\r\n 3090 CALL READ (*3500,*3100,FILE,Z(1),NZ,0,NWDS)\r\n      GO TO 4010\r\n 3100 CALL SUWRT (Z(1),NWDS,2)\r\n      CALL CLOSE (FILE,1)\r\n      IF (LAST) GO TO 3300\r\n      LAST = .TRUE.\r\n      FILE = ELSE\r\n      CALL OPEN (*3500,ELSE,Z(BUF1),0)\r\n      CALL FWDREC (*3500,ELSE)\r\n      GO TO 3075\r\nC\r\nC     FINISHED\r\nC\r\n 3300 CALL SUWRT (Z(1),0,3)\r\n      GO TO 4000\r\n 3500 CALL CLOSE (FILE,1)\r\n      WRITE  (OUT,3510) UWM,PSET\r\n 3510 FORMAT (A25,' 6050, REQUESTED PLOT SET NO.',I8,\r\n     1       ' HAS NOT BEEN DEFINED')\r\nC\r\n 4000 CALL SOFCLS\r\n      WRITE  (OUT,6361) UIM,NAME\r\n 6361 FORMAT (A29,' 6361, PHASE 1 SUCCESSFULLY EXECUTED FOR ',\r\n     1       'SUBSTRUCTURE ',2A4)\r\n      RETURN\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n 4010 WRITE  (OUT,4015) UFM,NZ\r\n 4015 FORMAT (A23,' 6011, INSUFFICIENT CORE TO LOAD TABLES', /5X,\r\n     1       'IN MODULE SUBPH1, CORE =',1I8)\r\n      DRY = -2\r\n      GO TO 6000\r\nC\r\nC     BAD GRID POINT TYPE (IE AXISYMMETRIC OR)\r\nC\r\n 4020 WRITE  (OUT,4035) UFM,BUF(1)\r\n 4035 FORMAT (A23,' 6013 , ILLEGAL TYPE OF POINT DEFINED FOR ',\r\n     1       'SUBSTRUCTURE ANALYSIS.', /5X,'POINT NUMBER =',I9)\r\n      GO TO 6000\r\nC\r\nC     BAD FILE\r\nC\r\n 5001 WRITE  (OUT,5005) SFM,FILE\r\n 5005 FORMAT (A25,' 6012, FILE =',I4,' IS PURGED OR NULL AND IS ',\r\n     1       'REQUIRED IN PHASE 1 SUBSTRUCTURE ANALYSIS.')\r\nC\r\n 6000 CALL SOFCLS\r\n      CALL MESAGE (-61,0,SUB1)\r\n      RETURN\r\nC\r\nC\r\n 6325 FORMAT (A25,' 6325, SUBSTRUCTURE PHASE 1, BASIC SUBSTRUCTURE ',\r\n     1       2A4,' ALREADY EXISTS ON SOF.', /32X,\r\n     2       'ITEMS WHICH ALREADY EXIST WILL NOT BE REGENERATED.')\r\n 6326 FORMAT (A25,' 6326, SUBSTRUCTURE ',2A4,', ITEM ',A4,\r\n     1       ' ALREADY EXISTS ON SOF.')\r\n 6327 FORMAT (A29,' 6327, SUBSTRUCTURE ',2A4,' SUBCASE',I9,\r\n     1       ' IS IDENTIFIED BY', /36X,5A4,' SET',I9,' IN LODS ITEM.',\r\n     2       /36X,'REFER TO THIS NUMBER ON LOADC CARDS.')\r\n      END\r\n"
  },
  {
    "path": "mis/summ.f",
    "content": "      SUBROUTINE SUMM(SUM,ISUM,TERM1,ITERM1,TERM2,ITERM2,N)\r\nC\r\n      DOUBLE PRECISION SUM,TERM1,TERM2,TEMP1,TEMP2\r\n      DOUBLE PRECISION FACTOR\r\nC\r\n      IF (TERM1.EQ.0.0D0) GO TO 30\r\n      IF (TERM2.EQ.0.0D0) GO TO 40\r\n      TEMP1 = TERM1\r\n      TEMP2 = TERM2\r\n      ISAVE = ITERM1\r\n      IF(ITERM1 .EQ. ITERM2) GO TO 50\r\n      MULT = IABS (ITERM1 - ITERM2)\r\nCDVAX TEST TO PREVENT FLOATING PT OVFLOW IF EXPONENT DIFF TOO LARGE\r\n      IF(MULT.GT.37 .AND. ITERM1.GT.ITERM2) GO TO 40\r\n      IF(MULT.GT.37 .AND. ITERM2.GT.ITERM1) GO TO 30\r\n      FACTOR = 10.0D0**MULT\r\n      IF(ITERM1 .GT. ITERM2) GO TO 20\r\n      TEMP1 = TERM1/FACTOR\r\n      ISAVE = ITERM2\r\n      GO TO 50\r\n   20 TEMP2 = TERM2/FACTOR\r\n      GO TO 50\r\n   30 IF(N .NE. 1) GO TO 35\r\n      SUM = TERM2\r\n   31 ISUM = ITERM2\r\n      GO TO 70\r\n   35 SUM = -TERM2\r\n      GO TO 31\r\n   40 SUM = TERM1\r\n      ISUM = ITERM1\r\n      GO TO 70\r\n   50 IF(N .NE. 1) GO TO 60\r\n      SUM = TEMP1+TEMP2\r\n      ISUM = ISAVE\r\n      GO TO 70\r\n   60 SUM = TEMP1-TEMP2\r\n      ISUM = ISAVE\r\n   70 IF (SUM.EQ.0.0D0) ISUM = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sumphi.f",
    "content": "      COMPLEX FUNCTION SUMPHI(IXR,IYR,ND1,NDN,CAPPHI,DSS,N,M,ASYM)\r\nC\r\nC     FUNCTION TO COMPUTE SUM OF CAPPHI-DELTA SOURCE STENGTH PRODUCT\r\nC\r\n      LOGICAL ASYM\r\n      DIMENSION ND1(1),NDN(1)\r\n      COMPLEX  CAPPHI(1),DSS(N,M)\r\nC\r\n      SUMPHI  =  ( 0.0 , 0.0 )\r\n      IF ( IXR .EQ. 0 )   RETURN\r\n      DO   400   I = 1 , IXR\r\n      IXS  =  I - 1\r\n      IP  =  IXR - IXS\r\n      LTOT  =  2 * IP + 1\r\n      IPHI  =  ( IP * ( IP + 1 ) ) / 2\r\n      IYS  =  IYR - IXR + IXS\r\n      DO   300   L = 1 , LTOT\r\n      IF ( ASYM .AND. IYS .EQ. 0 )   GO TO  200\r\n      J  =  IABS ( IYS ) + 1\r\n      IF ( .NOT. ( I .GE. (ND1(J)) .AND. I .LE. NDN(J) ) )   GO TO 200\r\n      S  =  1.0\r\n      IF ( ASYM .AND. IYS .LT. 0 )   S  =  -S\r\n      IJPHI  =  IPHI + 1 + IABS ( IYR - IYS )\r\n      SUMPHI  =  SUMPHI + S * CAPPHI(IJPHI) * DSS(I,J)\r\n 200  IYS  =  IYS + 1\r\n 300  CONTINUE\r\n 400  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/suplt.f",
    "content": "      SUBROUTINE SUPLT (IZ,IY,X,U,GPLST,PEN,DEFORM)\r\nC\r\nC     TO CREATE A SET OF UNIQUE LINES TO BE PLOTTED.  IN ADDITION, TO\r\nC     AVOID SKIPPING ALL OVER THE PLOT FOR EACH LINE.\r\nC\r\nC     INPUT (SIMULAR TO -GPCT-)\r\nC       NGRID - NUMBER OF INTERNAL GRID POINTS.\r\nC       IY    - 1 THRU NGRID - POINTERS TO FIRST CONNECTION OF THE\r\nC                              INTERNAL GRID MATCHING THIS INDEX.\r\nC                              IF THE GRID HAS NO ENTRIES IZ(I+1) WILL\r\nC                              HAVE THE SAME POINTER VALUE.\r\nC             - NGRID+1      - POINTER TO END-OF-RECORD.\r\nC       IZ    - CONNECTING INTERNAL GRIDS.  POINTER FOR NEXT GRID\r\nC                              DETERMINES LAST ENTRY.  ENTRIES PUSHED\r\nC                              DOWN AND  -1  ADDED AT END AS EACH ENTRY\r\nC                              IS USED.\r\nC\r\nC       NTAB  = TOTAL ENTRY COUNTER IN GPCT\r\nC       ID1   = START OF CURRENT -LINE-\r\nC       ID2   = END   OF CURRENT -LINE-\r\nC       ID3   = START OF LAST -LINE-\r\nC       ID4   = END   OF LAST -LINE-\r\nC\r\n      INTEGER         IZ(1),IY(1),PEN,DEFORM,GPLST(1),NM(5),M(71),\r\n     1                M1(17),M2(17),M3(11),M4(17),M5(9),ERR(4),LM(5),\r\n     2                LIMT(2)\r\n      REAL            U(2,1),X(3,1)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /BLANK / NGRID,SKP1(19),MERR\r\n      EQUIVALENCE     (M1(1),M( 1)), (M2(1),M(18)), (M3(1),M(35)),\r\n     1                (M4(1),M(46)), (M5(1),M(63))\r\n      DATA    NM    / 17,17,11,17, 9 /,\r\n     1        LM    /  1,18,35,46,63 /,\r\n     2        M1    / 4H(35X, 4H,26H, 4HSUPL, 4HT RE, 4HJECT, 4HED P,\r\n     3                4HLOT., 4H PIV, 4HOT,I, 4H8,26, 4HH IS, 4H ZER,\r\n     4                4HO OR, 4H SAM, 4HE AS, 4H ENT, 4HRY.)/,\r\n     5        M2    / 4H(35X, 4H,54H, 4HSUPL, 4HT RE, 4HJECT, 4HED P,\r\n     6                4HLOT., 4H NEG, 4HATIV, 4HE NU, 4HMBER, 4H ENT,\r\n     7                4HRIES, 4H - N, 4H3,N4, 4H =,2, 4HI10)/,\r\n     8        M3    / 4H(35X, 4H,31H, 4HUNEX, 4HPECT, 4HED E, 4HOF I,\r\n     9                4HN SU, 4HPLT , 4H- PI, 4HVOT,, 4HI10)/,\r\n     O        M4    / 4H(35X, 4H,11H, 4HSUPL, 4HT-EN, 4HTRY,, 4HI10,,\r\n     1                4H22H , 4HFOR , 4HPIVO, 4HT NO, 4HT FO, 4HUND ,\r\n     2                4H(,2I, 4H6,8H, 4H) RA, 4HNGE., 4H)   /,\r\n     3        M5    / 4H(35X, 4H,24H, 4HNO E, 4HLEME, 4HNTS , 4HIN T,\r\n     4                4HHIS , 4HSET., 4H)   /\r\nC\r\n      LINESP = 0\r\nC\r\nC     LOCATE FIRST PIVOT (ID1) WITH ODD NUMBER OF ENTRIES\r\nC\r\n      ID2 = 0\r\n      ID1 = 0\r\n      DO 10 I = 1,NGRID\r\n      LL  = IY(I+1) - IY(I)\r\n      IF (LL .EQ. 0) GO TO 10\r\nC\r\nC     IN CASE AN ODD NO. ENTRIES ISN'T FOUND THE DEFAULT IS FIRST PIVOT\r\nC\r\n      IF (ID2 .EQ. 0) ID2 = I\r\n      IF (MOD(LL,2) .EQ. 0) GO TO 10\r\n      ID1 = I\r\n      I1  = IY(I)\r\n      ID2 = IZ(I1)\r\n      GO TO 20\r\n   10 CONTINUE\r\nC\r\n   20 NTAB = IY(NGRID+1) - IY(1)\r\nC\r\nC     NO ELEMENTS IN THE SET\r\nC\r\n      IF (NTAB .EQ. 0) GO TO 440\r\nC\r\nC     SEE IF ANY ODD ENTRIES FOUND\r\nC\r\n      LIMT(1) = 0\r\n      LIMT(2) = NGRID + 1\r\n      IF (ID1 .NE. 0) GO TO 140\r\n      ID1 = ID2\r\n      I1  = IY(ID1)\r\n      ID2 = IZ(I1)\r\n      GO TO 140\r\nC\r\nC     START OF LOOP AFTER FIRST -LINE-\r\nC\r\n   30 IF (N4) 410,260,40\r\nC\r\nC     LAST END HAS ENTRY TO CONTINUE FROM\r\nC\r\n   40 ID1 = ID4\r\nC\r\nC     INTERNAL SEARCH FOR FIRST GPCT ENTRY ABOVE AND BELOW THE PIVOT\r\nC     VALUE FOR THE PIVOT           *** M I N / M A X ***\r\nC\r\n   50 I1 = IY(ID1)\r\n      IL =-100000\r\n      IH = 100000\r\n      J1 = IY(ID1+1) - 1\r\nC\r\n      DO 80 I = I1,J1\r\n      IF (IZ(I)    ) 100,400,60\r\n   60 IF (IZ(I)-ID1)  70,400,90\r\n   70 IL = IZ(I)\r\n   80 CONTINUE\r\n      GO TO 100\r\nC\r\n   90 IH = IZ(I)\r\nC\r\nC     DETERMINE  WHICH IS CLOSER TO PIVOT\r\nC\r\n  100 I = ID1 - IL\r\n      J = IH  - ID1\r\n      IF (J-I) 130,110,120\r\nC\r\nC     EQUAL DISTANT, GO TO SAME DIRECTION AS BEFORE\r\nC\r\n  110 IF (ID4-ID3) 120,400,130\r\nC\r\nC     ID2 IS LESSOR ID\r\nC\r\n  120 ID2 = IL\r\n      GO TO 140\r\nC\r\nC     ID2 IS GREATER ID\r\nC\r\n  130 ID2 = IH\r\nC\r\nC     OUTPUT THE LINE -\r\nC     NOTE THAT ID4 MAY BE RESET AT 320 SO DONT TAKE SHORTCUTS\r\nC\r\n  140 CONTINUE\r\n      I  = IABS(GPLST(ID1))\r\n      J  = IABS(GPLST(ID2))\r\n      IF (DEFORM .NE. 0) GO TO 160\r\n      X1 = X(2,I)\r\n      Y1 = X(3,I)\r\n      X2 = X(2,J)\r\n      Y2 = X(3,J)\r\n      GO TO 170\r\n  160 X1 = U(1,I)\r\n      Y1 = U(2,I)\r\n      X2 = U(1,J)\r\n      Y2 = U(2,J)\r\n  170 CONTINUE\r\n      CALL LINE (X1,Y1,X2,Y2,PEN,0)\r\n      LINESP = LINESP + 1\r\nC\r\nC     REMOVE ENTRIES FROM CORE, LEFT SHIFT AS NEEDED AND PUT -1 AT THE\r\nC     END OF THE TABLE.  PLACE THE NUMBER OF ENTRIES LEFT IN N3 AND N4.\r\nC     DECREMENT THE TOTAL NUMBER OF ENTRIES BY 2. SET ID3 AND ID4.\r\nC\r\n      IF (NTAB .LE. 2) GO TO 460\r\n      KK = 0\r\n      J1 = I1\r\n      J2 = IY(ID1+1) - 1\r\n      LL = ID2\r\n  180 IPAR = J1\r\n      IL = 0\r\nC\r\n      DO 230 I = J1,J2\r\n      IF (IZ(I)-LL) 210,200,190\r\n  190 IZ(IPAR) = IZ(I)\r\n      GO TO 220\r\nC\r\nC     COMPONENT TO BE ELIMINATED HAS BEEN FOUND\r\nC\r\n  200 IL = 1\r\n      GO TO 230\r\n  210 IF (IZ(I)) 240,400,220\r\n  220 IPAR = IPAR + 1\r\n  230 CONTINUE\r\nC\r\n  240 IZ(IPAR) = -LL\r\n      IF (IL .EQ. 0) GO TO 430\r\n      IF (KK .NE. 0) GO TO 250\r\n      KK = 2\r\n      ID3= ID1\r\n      N3 = IPAR - J1\r\n      LL = ID2\r\n      J1 = IY(LL  )\r\n      J2 = IY(LL+1) - 1\r\n      LL = ID1\r\n      GO TO 180\r\n  250 NTAB= NTAB - 2\r\n      ID4 = ID2\r\n      N4  = IPAR - J1\r\n      GO TO 30\r\nC\r\nC     CASE ID4 HAS NO MORE ENTRIES. CHECK IF ID3 CAN BE PIVOT\r\nC\r\n  260 IF (N3) 410,280,270\r\nC\r\nC     NONZERO - ID3 IS TO BE ID1\r\nC\r\n  270 ID1 = ID3\r\n      GO TO 50\r\nC\r\nC     ID3 AND ID4 ARE NULL.  GO TO CLOSEST END OF TABLE FROM ID4\r\nC\r\n  280 I = NGRID - ID4\r\n      J = 1\r\n      IF (I .GT. ID4) J = -1\r\n      L = (J+2)/2 + 1\r\n      LIM = LIMT(L)\r\n      LEN = ID4\r\nC\r\n      ASSIGN 310 TO IRET1\r\n      KK = ID4\r\n  290 KK = KK + J\r\n      IF (KK .EQ. LIM) GO TO IRET1, (310,420)\r\n      IPAR = 2\r\n      ASSIGN 300 TO IRET\r\n      GO TO 370\r\nC\r\nC     CHECK IF ANY ENTRIES FOUND\r\nC\r\n  300 IF (IPAR .EQ. 0) GO TO 290\r\nC\r\nC     ENTRY FOUND\r\nC\r\n      LEN = KK + J\r\n      ID4 = KK\r\n      N4  = IPAR\r\n      GO TO 320\r\nC\r\nC     THAT END OF TABLE FAILED - TRY OTHER END\r\nC\r\n  310 J   = -J\r\n      LIMT(L) = LEN\r\n      L   = (J+2)/2 + 1\r\n      LIM = LIMT(L)\r\n      KK  = ID4\r\n      ASSIGN 420 TO IRET1\r\n      GO TO 290\r\nC\r\nC     AN ENTRY WAS FOUND - CHECK FOR ODD NUMBER OF ENTRIES FOR PIVOT\r\nC\r\n  320 IF (MOD(IPAR,2) .EQ. 1) GO TO 360\r\nC\r\nC     NOT AN ODD NUMBER OF ENTRIES FOR ID4.  CHECK GPCT ENTRIES\r\nC     FOR ONLY ONE ENTRY.\r\nC\r\n      ASSIGN 340 TO IRET\r\nC\r\n      IH = J2\r\n      IL = J1 - 1\r\n  330 IL = IL + 1\r\n      KK = IZ(IL)\r\n      IF (KK .LE. 0) GO TO 40\r\n      IPAR = 1\r\n      GO TO 370\r\n  340 CONTINUE\r\n      IF (IPAR .EQ.  1) GO TO 360\r\n      IF (IL   .LT. IH) GO TO 330\r\nC\r\nC     PIVOT NOW DETERMINED\r\nC\r\n      GO TO 40\r\n  360 ID1 = KK\r\n      GO TO 50\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO DETERMINE NUMBER OF ENTRIES FOR PIVOT\r\nC\r\nC     INPUT\r\nC        IPAR = 1 -- 0,1 OR MORE THAN 1 ENTRY RETURN\r\nC             = 2 -- ACTUAL NUMBER OF ENTRIES RETURN\r\nC        KK   = ID OF PIVOT\r\nC\r\nC     OUTPUT\r\nC        IPAR = DESIRED NUMBER OF ENTRIES\r\nC        KK   = SAME AS INPUT\r\nC        J1   = POINTER TO 1ST LOCATION\r\nC        J2   = NOT NECESSARILY LAST LOCATION (I.E. IPAR INPUT AS 1)\r\nC\r\n  370 J1 = IY(KK  )\r\n      J2 = IY(KK+1) - 1\r\n      IF (IPAR .EQ. 1) J2 = MIN0(J1+2,J2)\r\n      IPAR = 0\r\n      IF (J2-J1 .LT. 0) GO TO 390\r\nC\r\n      DO 380 I = J1,J2\r\n      IF (IZ(I)) 390,400,380\r\n  380 IPAR = IPAR + 1\r\n  390 GO TO IRET, (300,340)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 ERR(1) = 1\r\n      ERR(2) = ID1\r\n      K = 1\r\n      GO TO 450\r\n  410 ERR(1) = 2\r\n      ERR(2) = N3\r\n      ERR(3) = N4\r\n      K = 2\r\n      GO TO 450\r\n  420 ERR(1) = 1\r\n      ERR(2) = ID4\r\n      K = 3\r\n      GO TO 450\r\n  430 ERR(1) = 3\r\n      ERR(2) = LL\r\n      ERR(3) = J1\r\n      ERR(4) = J2\r\n      K = 4\r\n      GO TO 450\r\n  440 ERR(1) = 0\r\n      K = 5\r\nC\r\n  450 I = LM(K)\r\n      CALL WRTPRT (MERR,ERR,M(I),NM(K))\r\n      IF (K .EQ. 5) GO TO 530\r\nC\r\nC     CONVERT TABLE TO ORIGINAL VALUES UNLESS THIS IS THE LAST CALL\r\nC\r\n  460 IL = NGRID  + 1\r\n      I  = IY(IL) - 1\r\n      IF (DEFORM .NE. 0) GO TO 530\r\n      DO 480 J = 1,I\r\n  480 IZ(J) = IABS(IZ(J))\r\nC\r\n      DO 520 J1 = 1,NGRID\r\n      IF (IY(J1) .EQ. IY(J1+1)) GO TO 520\r\n      I = IY(J1)\r\n      L = I\r\n      N = IY(J1+1) - 1\r\n      IF (I+1 .GT. N) GO TO 520\r\nC\r\nC     SHUTTLE EXCHANGE\r\nC     (NOTE FROM G.CHAN/UNISYS  10/1990\r\nC     THERE ARE MORE THAN JUST A SHUTTLE SORTING HERE. REPLACING THE\r\nC     SHUTTLE EXCHANGE METHOD BY SORT ROUTINE, WHICH USES A MUCH FASTER\r\nC     TECHNEQUE, DOES NOT WORK HERE)\r\nC\r\n  490 IF (IZ(I) .LE. IZ(I+1)) GO TO 510\r\n      K = IZ(I+1)\r\n      IZ(I+1) = IZ(I)\r\n      IZ(I  ) = K\r\n      J = I\r\n  500 IF (J .EQ. L) GO TO 510\r\n      IF (IZ(J) .GE. IZ(J-1)) GO TO 510\r\n      K = IZ(J)\r\n      IZ(J  ) = IZ(J-1)\r\n      IZ(J-1) = K\r\n      J = J - 1\r\n      GO TO 500\r\n  510 IF (I .GE. N-1) GO TO 520\r\n      I = I + 1\r\n      GO TO 490\r\nC\r\n  520 CONTINUE\r\nC\r\nC     A NONSTANDARD RETURN COULD BE ADDED HERE.  BAD PLOT RESULTS IF\r\nC     THIS ROUTINE FAILS.  THE FRAME WILL BE PRESENT HOWEVER\r\nC\r\n  530 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/suread.f",
    "content": "      SUBROUTINE SUREAD (IA,ND,NOUT,ITEST)\r\nC\r\nC     READS DATA FROM THE SOF INTO THE ARRAY IA.  ND IS AN INPUT\r\nC     PARAMETER INDICATING THE NUMBER OF WORDS DESIRED.  ND=-1 MEANS\r\nC     READ UNTIL END OF GROUP. NOUT IS AN OUTPUT PARAMETER INDICATING\r\nC     THE NUMBER OF WORD THAT HAVE BEEN READ.  ITEST IS AN OUTPUT\r\nC     PARAMETER WHERE ITEST=3 MEANS END OF ITEM ENCOUNTERED, ITEST=2\r\nC     MEANS END OF GROUP ENCOUNTERED, AND ITEST=1 OTHERWISE.\r\nC\r\n      EXTERNAL        ANDF,RSHIFT\r\n      INTEGER         ANDF,RSHIFT,BUF,BLKSIZ,DIRSIZ,IA(1),NMSBR(2)\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,\r\n     1                IOITCD,IOBLK\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      DATA    IDLE  , IRD / 0,1    /\r\n      DATA    IEOG  , IEOI/ 4H$EOG ,4H$EOI       /\r\n      DATA    INDSBR/ 19  /, NMSBR /4HSURE,4HAD  /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ICOUNT = 0\r\n      IF (IOMODE .EQ. IRD) GO TO 20\r\n      ITEST = 4\r\n      NOUT  = 0\r\n      RETURN\r\nC\r\n   10 ICOUNT = ICOUNT + 1\r\n      IA(ICOUNT) = BUF(IOPTR)\r\n      IOPTR = IOPTR + 1\r\n      IF (ICOUNT .EQ. ND) GO TO 35\r\n   20 IF (IOPTR .GT. BLKSIZ+IO) GO TO 80\r\nC\r\nC     READ SOF INTO ARRAY IA, BUT WATCH FOR END OF GROUP AND END OF ITEM\r\nC\r\n   30 IF (BUF(IOPTR) .EQ. IEOI) GO TO 50\r\n      IF (BUF(IOPTR).EQ.IEOG .AND. ND.NE.-2) GO TO 40\r\n      GO TO 10\r\nC\r\nC     READ THE REQUIRED NUMBER OF WORDS.\r\nC\r\n   35 ITEST = 1\r\n      GO TO 70\r\nC\r\nC    REACHED END OF GROUP.\r\nC\r\n   40 ITEST = 2\r\n      GO TO 60\r\nC\r\nC    REACHED END OF ITEM.\r\nC\r\n   50 ITEST  = 3\r\n      IOMODE = IDLE\r\n   60 IOPTR  = IOPTR + 1\r\n   70 NOUT   = ICOUNT\r\n      RETURN\r\nC\r\nC     REACHED END OF BLOCK.  REPLACE THE BLOCK CURRENTLY IN CORE BY ITS\r\nC     LINK BLOCK.\r\nC\r\n   80 CALL FNXT (IOPBN,INXT)\r\n      IF (MOD(IOPBN,2) .EQ. 1) GO TO 90\r\n      NEXT = ANDF(RSHIFT(BUF(INXT),IHALF),JHALF)\r\n      GO TO 100\r\n   90 NEXT = ANDF(BUF(INXT),JHALF)\r\n  100 IF (NEXT .EQ. 0) GO TO 510\r\n      IOPBN = NEXT\r\n      IOLBN = IOLBN + 1\r\n      CALL SOFIO (IRD,IOPBN,BUF(IO-2))\r\n      IOPTR = IO + 1\r\n      GO TO 30\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n  510 CALL ERRMKN (INDSBR,9)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/suwrt.f",
    "content": "      SUBROUTINE SUWRT (IA,NWORDS,ITEST)\r\nC\r\nC     COPIES DATA FROM THE ARRAY IA ON THE SOF.  NWORD IS AN INPUT\r\nC     PARAMETER INDICATING THE NUMBER OF WORDS TO BE COPIED.  ITEST IS\r\nC     AN INPUT PARAMETER WHERE ITEST=1 MEANS MORE TO COME, ITEST=2 MEANS\r\nC     WRITE END OF GROUP, AND ITEST=3 MEANS WRITE END OF ITEM.\r\nC\r\n      EXTERNAL        LSHIFT,ANDF,ORF\r\n      LOGICAL         MDIUP\r\n      INTEGER         BUF,MDI,MDIPBN,MDILBN,MDIBL,BLKSIZ,DIRSIZ,ANDF,ORF\r\n      DIMENSION       IA(1),NMSBR(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /MACHIN/ MACH,IHALF,JHALF\r\n      COMMON /ZZZZZZ/ BUF(1)\r\n      COMMON /SOF   / DITDUM(6),\r\n     1                IO,IOPBN,IOLBN,IOMODE,IOPTR,IOSIND,IOITCD,IOBLK,\r\n     2                MDI,MDIPBN,MDILBN,MDIBL,NXTDUM(15),DITUP,MDIUP\r\n      COMMON /SYS   / BLKSIZ,DIRSIZ\r\n      COMMON /SYSTEM/ NBUFF,NOUT\r\n      DATA    IDLE  , IWRT / 0,2    /\r\n      DATA    IEOG  , IEOI / 4H$EOG ,4H$EOI /, NMSBR /4HSUWR,4HT   /\r\nC\r\n      CALL CHKOPN (NMSBR(1))\r\n      ICOUNT = 0\r\n      IF (IOMODE .EQ. IWRT) GO TO 10\r\n      ITEST = 4\r\n      RETURN\r\nC\r\nC     KEEP COPYING DATA FROM THE ARRAY IA INTO THE INPUT/OUTPUT BUFFER\r\nC     UNTIL THE BUFFER IS FULL, OR UNTIL THE REQUESTED NUMBER OF WORDS\r\nC     HAS BEEN COPIED.\r\nC\r\n   10 IF (IOPTR .GT. BLKSIZ+IO) GO TO 30\r\n   20 IF (ICOUNT .EQ. NWORDS) GO TO (80,60,50), ITEST\r\n      ICOUNT = ICOUNT + 1\r\n      BUF(IOPTR) = IA(ICOUNT)\r\n      IOPTR = IOPTR + 1\r\n      GO TO 10\r\nC\r\nC     THE BUFFER IS FULL.  OUTPUT IT ON THE SOF.\r\nC\r\n   30 CALL SOFIO (IWRT,IOPBN,BUF(IO-2))\r\n      CALL GETBLK (IOPBN,J)\r\n      IF (J .EQ. -1) GO TO 40\r\n      IOPBN = J\r\n      IOLBN = IOLBN + 1\r\n      IOPTR = IO + 1\r\n      GO TO 20\r\nC\r\nC     THERE ARE NO MORE FREE BLOCKS ON THE SOF.  RETURN THE BLOCKS THAT\r\nC     HAVE BEEN USED SO FAR BY THE ITEM BEING WRITTEN, AND CLOSE THE SOF\r\nC     THEN ISSUE A FATAL ERROR MESSAGE.\r\nC\r\n   40 CALL RETBLK (IOBLK)\r\n      CALL SOFCLS\r\n      GO TO 90\r\nC\r\nC     WRITE END OF ITEM, OUTPUT THE INPUT/OUTPUT BUFFER ON THE SOF, AND\r\nC     UPDATE THE MDI.\r\nC\r\n   50 BUF(IOPTR) = IEOI\r\n      CALL SOFIO (IWRT,IOPBN,BUF(IO-2))\r\n      CALL FMDI (IOSIND,IMDI)\r\n      BUF(IMDI+IOITCD) = IOBLK\r\n      BUF(IMDI+IOITCD) = ORF(ANDF(BUF(IMDI+IOITCD),JHALF),\r\n     1                       LSHIFT(IOLBN,IHALF))\r\n      MDIUP  = .TRUE.\r\n      IOMODE = IDLE\r\n      GO TO 70\r\nC\r\nC     WRITE END OF GROUP.\r\nC\r\n   60 BUF(IOPTR) = IEOG\r\n   70 IOPTR = IOPTR + 1\r\n   80 RETURN\r\nC\r\nC     ERROR MESSAGES.\r\nC\r\n   90 WRITE  (NOUT,100) UFM\r\n  100 FORMAT (A23,' 6223, THERE ARE NO MORE FREE BLOCKS AVAILABLE ON',\r\n     1       ' THE SOF FILE.')\r\n      CALL SOFCLS\r\n      CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/switch.f",
    "content": "      SUBROUTINE SWITCH\r\nC\r\nC     THE PURPOSE OF THIS MODULE IS TO INTERCHANGE THE NAMES OF THE\r\nC     TWO INPUT FILES.  THIS IS ACCOMPLISHED BY THE DIRECT UPDATING\r\nC     OF THE FIAT\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      INTEGER         FILE1,FILE2,MODNAM(2),NAME(2),PSAVE1,PSAVE2,\r\n     1                ANDF,ORF,RSHIFT,COMPLF,UNIT,UNIT1,UNIT2,UNT\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /XFIAT / IFIAT(3)\r\n      COMMON /XFIST / IFIST(2)\r\n      COMMON /XPFIST/ IPFIST\r\n      COMMON /BLANK / IPARAM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT,SKIP(21),ICFIAT\r\n      DATA    FILE1 / 101/, FILE2 / 102/, MODNAM/ 4HSWIT,4HCH  /\r\nC\r\n      IF (IPARAM .GE. 0) RETURN\r\n      MASK2 = 32767\r\n      MASK3 = COMPLF(MASK2)\r\n      MASK  = LSHIFT(1,30) - 1\r\n      MASK  = LSHIFT(RSHIFT(MASK,16),16)\r\n      MASK1 = COMPLF(MASK)\r\n      NUNIQE= IFIAT(1)*ICFIAT + 3\r\n      MXE   = IFIAT(2)*ICFIAT + 3\r\n      LASTWD= IFIAT(3)*ICFIAT + 3\r\nC\r\nC     LOCATE FILE POINTERS IN THE FIST\r\nC\r\n      NWD    = 2*IPFIST   + 2\r\n      NACENT = 2*IFIST(2) + 2\r\n      NFILES = NACENT - NWD\r\n      PSAVE1 = 0\r\n      PSAVE2 = 0\r\n      DO 10 I = 1,NFILES,2\r\n      IF (IFIST(NWD+I).NE.FILE1 .AND. IFIST(NWD+I).NE.FILE2) GO TO 10\r\n      IF (IFIST(NWD+I)-FILE1) 2,3,2\r\n    2 IF (IFIST(NWD+I)-FILE2) 10,4,10\r\n    3 PSAVE1 = IFIST(NWD+I+1) + 1\r\n      GO TO 10\r\n    4 PSAVE2 = IFIST(NWD+I+1) + 1\r\n   10 CONTINUE\r\nC\r\nC     CHECK THAT FILES ARE IN FIST\r\nC\r\n      IF (PSAVE1 .EQ. 0) CALL MESAGE (-1,FILE1,MODNAM)\r\n      IF (PSAVE2 .EQ. 0) CALL MESAGE (-1,FILE2,MODNAM)\r\nC\r\nC     SWITCH FILE NAMES IN FIAT\r\nC\r\n      NAME(1) = IFIAT(PSAVE1+1)\r\n      NAME(2) = IFIAT(PSAVE1+2)\r\n      UNIT1   = ANDF(MASK2,IFIAT(PSAVE1))\r\n      UNIT2   = ANDF(MASK2,IFIAT(PSAVE2))\r\n      NWD     = ICFIAT*IFIAT(3) - 2\r\n      LTU1    = ANDF(MASK,IFIAT(PSAVE1))\r\n      LTU2    = ANDF(MASK,IFIAT(PSAVE2))\r\n      IFIAT(PSAVE1  ) = ORF(ANDF(IFIAT(PSAVE1),MASK2),LTU2)\r\n      IFIAT(PSAVE1+1) = IFIAT(PSAVE2+1)\r\n      IFIAT(PSAVE1+2) = IFIAT(PSAVE2+2)\r\n      IFIAT(PSAVE2  ) = ORF(ANDF(IFIAT(PSAVE2),MASK2),LTU1)\r\n      IFIAT(PSAVE2+1) = NAME(1)\r\n      IFIAT(PSAVE2+2) = NAME(2)\r\nC\r\nC     SWITCH STACKED DATA BLOCKS\r\nC\r\n      DO 100 I = 4,NWD,ICFIAT\r\n      IF (PSAVE1.EQ.I .OR. PSAVE2.EQ.I) GO TO 100\r\n      UNIT = ANDF(MASK2,IFIAT(I))\r\n      IF (UNIT.NE.UNIT1 .AND. UNIT.NE.UNIT2) GO TO 100\r\n      IF (UNIT .EQ. UNIT1) UNT = UNIT2\r\n      IF (UNIT .EQ. UNIT2) UNT = UNIT1\r\n      IF (I   .GT. NUNIQE) GO TO 50\r\nC\r\nC     DATA BLOCK RESIDES IN UNIQUE PART OF FIAT\r\nC     MOVE ENTRY TO BOTTOM\r\nC\r\n      IF (LASTWD+ICFIAT .LE. MXE) GO TO 30\r\n      WRITE  (NOUT,20) SFM\r\n   20 FORMAT (A25,' 1021, FIAT OVERFLOW')\r\n      CALL MESAGE (-37,0,MODNAM)\r\n   30 IFIAT(LASTWD+1) = ORF(ANDF(IFIAT(I),MASK3),UNT)\r\n      DO 40 K = 2,ICFIAT\r\n   40 IFIAT(LASTWD+K) = IFIAT(I+K-1)\r\n      LASTWD   = LASTWD   + ICFIAT\r\n      IFIAT(3) = IFIAT(3) + 1\r\nC\r\nC     CLEAR OLD ENTRY IN UNIQUE PART\r\nC\r\n      IFIAT(I) = ANDF(IFIAT(I),MASK2)\r\n      J1 = I + 1\r\n      J2 = I + ICFIAT - 1\r\n      DO 45 K = J1,J2\r\n   45 IFIAT(K) = 0\r\n      GO TO 100\r\nC\r\nC     DATA BLOCK RESIDES IN NON-UNIQUE PORTION OF FIAT\r\nC     SWITCH UNIT NUMBERS\r\nC\r\n   50 IFIAT(I) = ORF(ANDF(IFIAT(I),MASK3),UNT)\r\n  100 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/sxloop.f",
    "content": "      SUBROUTINE SXLOOP (X,Y,N)\r\nC\r\nC     SINGLE PRECISION VERSION OF CXLOOP, CALLED ONLY BY CDCMPS\r\nC\r\n      REAL       X(1),   Y(1)\r\n      REAL       XX(2) , YY(2), MPY(2)\r\n      NN = N + N\r\n      DO 10 I = 1,NN\r\n   10 X(I) = Y(I)\r\n      RETURN\r\nC\r\n      ENTRY SLOOP (XX,YY,MPY,M)\r\n      MM = M + M\r\n      DO 20 I = 1,MM,2\r\n      XX(I  ) = XX(I  ) - MPY(1)*YY(I) + MPY(2)*YY(I+1)\r\n   20 XX(I+1) = XX(I+1) - MPY(2)*YY(I) - MPY(1)*YY(I+1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/symbol.f",
    "content": "      SUBROUTINE SYMBOL (X,Y,SYMX,OPT)\r\nC\r\nC     (X,Y) = POINT AT WHICH THE SYMBOLS ARE TO BE TYPED.\r\nC     SYMX  = SYMBOLS TO BE TYPED.\r\nC     OPT   = -1 TO INITIATE  THE TYPING MODE.\r\nC           = +1 TO TERMINATE THE TYPING MODE.\r\nC           =  0 TO TYPE THE SYMBOL.\r\nC\r\n      INTEGER SYM,SYMX(2),OPT,PLOTER,SYMBL\r\n      COMMON /PLTDAT/ MODEL,PLOTER\r\n      COMMON /SYMBLS/ NSYM, SYMBL(20,2)\r\nC\r\n      IF (OPT .EQ. 0) GO TO 110\r\n      CALL TIPE (0,0,0,0,0,OPT)\r\n      GO TO 200\r\nC\r\n  110 DO 150 I = 1,2\r\n      IF (SYMX(I) .LE. 0) GO TO 150\r\n      SYM = SYMX(I) - NSYM*((SYMX(I)-1)/NSYM)\r\n      SYM = SYMBL(SYM,PLOTER)\r\n      CALL TYPE10 (X,Y,0,SYM,0,0)\r\n      GO TO 150\r\n  150 CONTINUE\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3bgbs.f",
    "content": "      SUBROUTINE T3BGBS (NG,NB,GMAT,BMAT,KMAT)\r\nC\r\nC     WITH ENTRY T3BGBD (NG,NB,GMAD,BMAD,KMAD)\r\nC\r\nC     ROUTINE FOR EFFICIENT TRIPLE-MULTPLICATION OF [B] AND [G] MATRICES\r\nC     TO EVALUATE THE CONTRIBUTION TO THE ELEMENT STIFFNESS MATRIX FROM\r\nC     THE CURRENT INTEGRATION POINT\r\nC\r\nC\r\nC     INPUT :\r\nC           NG          - NUMBER OF ROWS AND COLUMNS OF GMAT\r\nC           NB          - NUMBER OF COLUMNS OF BMAT\r\nC           GMAT/GMAD   - [G], FORCE-STRAIN RELATIONSHIP\r\nC           BMAT/BMAD   - [B], STRAIN-DISPLACEMENT RELATIONSHIP\r\nC     OUTPUT:\r\nC           KMAT/KMAD   - CONTRIBUTION TO THE ELEMENT STIFFNESS MATRIX\r\nC                         FROM THE CURRENT INTEGRATION POINT\r\nC\r\nC     ALGORITHM:\r\nC           MATRICES ARE MULTIPLIED IN FULL WHEN MEMBRANE-BENDING\r\nC           COUPLING IN PRESENT, OTHERWISE PARTIAL MULTIPLICATION\r\nC           IS PERFORMED.\r\nC           IN EACH TRIPLE MULTIPLY, THE RESULT IS ADDED TO KMAT.\r\nC\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      REAL             GMAT(9,1),BMAT(1),KMAT(1),G1(3,3),GBMAT(162)\r\n      DOUBLE PRECISION GMAD(9,1),BMAD(1),KMAD(1),G2(3,3),GBMAD(162)\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      EQUIVALENCE      (G1(1,1),G2(1,1)),(GBMAT(1),GBMAD(1))\r\nC\r\nC\r\nC     SINGLE PRECISION\r\nC\r\n      ND3 = NB*3\r\n      ND6 = NB*6\r\nC\r\nC     IF [G] IS FULLY POPULATED, PERFORM STRAIGHT MULTIPLICATION AND\r\nC     RETURN.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 10\r\n      CALL GMMATS (GMAT,NG,NG,0,  BMAT,NG,NB,0,  GBMAT)\r\n      CALL GMMATS (BMAT,NG,NB,-1, GBMAT,NG,NB,0, KMAT )\r\n      GO TO 60\r\nC\r\nC     MULTIPLY MEMBRANE TERMS WHEN PRESENT\r\nC\r\n   10 IF (.NOT.MEMBRN) GO TO 30\r\n      DO 20 I = 1,3\r\n      DO 20 J = 1,3\r\n      G1(I,J) = GMAT(I,J)\r\n   20 CONTINUE\r\n      CALL GMMATS (G1,3,3,0, BMAT(1),3,NB,0, GBMAT)\r\n      CALL GMMATS (BMAT(1),3,NB,-1, GBMAT,3,NB,0, KMAT)\r\nC\r\nC     MULTIPLY BENDING TERMS WHEN PRESENT\r\nC\r\n   30 IF (.NOT.BENDNG) GO TO 60\r\n      DO 40 I = 1,3\r\n      II = I + 3\r\n      DO 40 J = 1,3\r\n      JJ = J + 3\r\n      G1(I,J) = GMAT(II,JJ)\r\n   40 CONTINUE\r\n      CALL GMMATS (G1,3,3,0, BMAT(ND3+1),3,NB,0, GBMAT)\r\n      CALL GMMATS (BMAT(ND3+1),3,NB,-1, GBMAT,3,NB,0, KMAT)\r\nC\r\n      DO 50 I = 1,3\r\n      II = I + 6\r\n      DO 50 J = 1,3\r\n      JJ = J + 6\r\n      G1(I,J) = GMAT(II,JJ)\r\n   50 CONTINUE\r\n      CALL GMMATS (G1,3,3,0, BMAT(ND6+1),3,NB,0, GBMAT)\r\n      CALL GMMATS (BMAT(ND6+1),3,NB,-1, GBMAT,3,NB,0, KMAT)\r\n   60 RETURN\r\nC\r\nC\r\n      ENTRY T3BGBD (NG,NB,GMAD,BMAD,KMAD)\r\nC     ===================================\r\nC\r\nC     DOUBLE PRECISION\r\nC\r\n      ND3 = NB*3\r\n      ND6 = NB*6\r\nC\r\nC     IF [G] IS FULLY POPULATED, PERFORM STRAIGHT MULTIPLICATION AND\r\nC     RETURN.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 100\r\n      CALL GMMATD (GMAD,NG,NG,0,  BMAD,NG,NB,0,  GBMAD)\r\n      CALL GMMATD (BMAD,NG,NB,-1, GBMAD,NG,NB,0, KMAD )\r\n      GO TO 150\r\nC\r\nC     MULTIPLY MEMBRANE TERMS WHEN PRESENT\r\nC\r\n  100 IF (.NOT.MEMBRN) GO TO 120\r\n      DO 110 I = 1,3\r\n      DO 110 J = 1,3\r\n      G2(I,J) = GMAD(I,J)\r\n  110 CONTINUE\r\n      CALL GMMATD (G2,3,3,0, BMAD(1),3,NB,0, GBMAD)\r\n      CALL GMMATD (BMAD(1),3,NB,-1, GBMAD,3,NB,0, KMAD)\r\nC\r\nC     MULTIPLY BENDING TERMS WHEN PRESENT\r\nC\r\n  120 IF (.NOT.BENDNG) GO TO 150\r\n      DO 130 I = 1,3\r\n      II = I + 3\r\n      DO 130 J = 1,3\r\n      JJ = J + 3\r\n      G2(I,J) = GMAD(II,JJ)\r\n  130 CONTINUE\r\n      CALL GMMATD (G2,3,3,0, BMAD(ND3+1),3,NB,0, GBMAD)\r\n      CALL GMMATD (BMAD(ND3+1),3,NB,-1, GBMAD,3,NB,0, KMAD)\r\nC\r\n      DO 140 I = 1,3\r\n      II = I + 6\r\n      DO 140 J = 1,3\r\n      JJ = J + 6\r\n      G2(I,J) = GMAD(II,JJ)\r\n  140 CONTINUE\r\n      CALL GMMATD (G2,3,3,0, BMAD(ND6+1),3,NB,0, GBMAD)\r\n      CALL GMMATD (BMAD(ND6+1),3,NB,-1, GBMAD,3,NB,0, KMAD)\r\nC\r\n  150 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/t3bmgd.f",
    "content": "      SUBROUTINE T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,\r\n     1                  DETJAC,SHP,BTERMS,BMATRX)\r\nC\r\nC     B-MATRIX GENERATOR ROUTINE FOR TRIA3 ELEMENTS\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO GENERATE A 9XNDOF B-MATRIX AT A\r\nC     GIVEN INTEGRATION POINT, USING THE DERIVATIVES OF THE 2-D SHAPE\r\nC     FUNCTIONS.\r\nC     OPTIONALLY, AN 8XNDOF B-MATRIX IS CONSTRUCTED AND/OR SHEAR TERMS\r\nC     MAY BE DROPPED ALTOGETHER, YIELDING 6XNDOF MATRIX.\r\nC     FOR STRESS RECOVERY, THE EVALUATION POINTS ARE AT THE ELEMENT\r\nC     INTERIOR POINTS RATHER THAN ON THE EDGES.\r\nC     THE CONTENTS OF /TERMS/ ARE USED TO CONSTRUCT THE B-MATRIX\r\nC     ACCORDING TO THE BEHAVIORAL REQUIREMENTS OF THE ELEMENT.\r\nC\r\nC\r\nC     INPUT :\r\nC           IPT    - POINTER TO THE CURVILNEAR COORDINATES\r\nC           SHEART - LOGICAL INDICATING THE REQUIREMENT FOR OUT-OF-PLANE\r\nC                    SHEAR TERMS\r\nC           IORDER - ARRAY OF INTERNAL SEQUENCE OF NODES\r\nC           EGPDT  - GRID POINT DATA IN THE ELEMENT COORD. SYSTEM\r\nC           DGPTH  - NODAL THICKNESSES\r\nC           AIC    - TRANSFORMATION TO RELIEVE GEOMETRY BIAS\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           TH     - THICKNESS AT THE INTEG. PT.\r\nC           DETJAC - DETERMINANT OF JACOBIAN AT THE INTEG. PT.\r\nC           SHP    - ARRAY OF REORDERED SHAPE FUNCTIONS\r\nC           BTERMS - DERIVATIVES WRT THE PHYSICAL COORDINATES\r\nC           BMATRX - STRAIN-DISPLACEMENT RELATIONSHIP\r\nC\r\nC\r\n      LOGICAL          SHEART,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      INTEGER          IORDER(3)\r\n      DOUBLE PRECISION EGPDT(4,1),DGPTH(1),AIC(1),TH,DETJAC,BMATRX(1),\r\n     1                 BTERMS(1),SHP(3),DSHPX(3),DSHPE(3),TSHP(3),\r\n     2                 TDSHPX(3),TDSHPE(3),VI(2),VJ(2),JACOB(4),EPS,\r\n     3                 PTINT(2,7),TRC(2,3),XSI,XSII,ETA,ETAI,PSI,PSII,\r\n     4                 DNX,DNY,SHPF\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      DATA    EPS   /  1.0D-13 /\r\n      DATA    PTINT /  0.5D0, 0.0D0, 0.5D0, 0.5D0, 0.0D0, 0.5D0,\r\n     1                 0.333333333333333D0, 0.333333333333333D0,\r\n     2                 0.166666666666667D0, 0.166666666666667D0,\r\n     3                 0.166666666666667D0, 0.666666666666667D0,\r\n     4                 0.666666666666667D0, 0.166666666666667D0/\r\n      DATA    TRC   /  0.0D0, 0.0D0, 1.0D0, 0.0D0, 0.0D0, 1.0D0/\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR = 0\r\n      NNODE= 3\r\n      ND1  = NNODE*6\r\n      ND2  = ND1*2\r\n      ND3  = ND1*3\r\n      ND4  = ND1*4\r\n      ND5  = ND1*5\r\n      ND6  = ND1*6\r\n      ND7  = ND1*7\r\n      ND8  = ND1*8\r\n      ND9  = ND1*9\r\nC\r\n      DO 30 I = 1,6\r\n      BTERMS(I) = 0.0D0\r\n   30 CONTINUE\r\n      DO 40 I = 1,ND9\r\n      BMATRX(I) = 0.0D0\r\n   40 CONTINUE\r\nC\r\nC     CALCULATE THE SHAPE FUNCTIONS AND THEIR DERIVATIVES, THEN SORT\r\nC     THEM.\r\nC\r\n      XSI = PTINT(1,IPT)\r\n      ETA = PTINT(2,IPT)\r\n      PSI = 1.0D0 - XSI - ETA\r\nC\r\n      DO 50 I = 1,3\r\n      XSII = TRC(1,I)\r\n      ETAI = TRC(2,I)\r\n      PSII = 1.0D0 - XSII - ETAI\r\nC\r\n      SHP(I)   = XSI*XSII + ETA*ETAI + PSI*PSII\r\n      DSHPX(I) = XSII - PSII\r\n      DSHPE(I) = ETAI - PSII\r\n   50 CONTINUE\r\nC\r\n      DO 60 I  = 1,NNODE\r\n      TSHP(I)  = SHP(I)\r\n      TDSHPX(I)= DSHPX(I)\r\n      TDSHPE(I)= DSHPE(I)\r\n   60 CONTINUE\r\nC\r\n      DO 70 I  = 1,NNODE\r\n      KK       = IORDER(I)\r\n      SHP(I)   = TSHP(KK)\r\n      DSHPX(I) = TDSHPX(KK)\r\n      DSHPE(I) = TDSHPE(KK)\r\n   70 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT THICKNESS\r\nC\r\n      TH = 0.0D0\r\n      DO 80 ISH = 1,NNODE\r\n      TH = TH + SHP(ISH)*DGPTH(ISH)\r\n   80 CONTINUE\r\nC\r\nC     SET UP THE JACOBIAN\r\nC\r\n      DO 90 I = 1,2\r\n      VI(I) = 0.0D0\r\n      VJ(I) = 0.0D0\r\n      II = I + 1\r\n      DO 90 J = 1,NNODE\r\n      VI(I) = VI(I) + EGPDT(II,J)*DSHPX(J)\r\n      VJ(I) = VJ(I) + EGPDT(II,J)*DSHPE(J)\r\n   90 CONTINUE\r\nC\r\nC     INVERT THE JACOBIAN\r\nC\r\n      DETJAC = VI(1)*VJ(2) - VI(2)*VJ(1)\r\n      IF (DETJAC .GE. EPS) GO TO 100\r\n      IERR = 1\r\n      RETURN\r\nC\r\n  100 JACOB(1) =  VJ(2)/DETJAC\r\n      JACOB(2) = -VI(2)/DETJAC\r\n      JACOB(3) = -VJ(1)/DETJAC\r\n      JACOB(4) =  VI(1)/DETJAC\r\nC\r\n      DO 110 I = 1,4\r\n      IF (DABS(JACOB(I)) .LT. EPS) JACOB(I) = 0.0D0\r\n  110 CONTINUE\r\nC\r\n      IPT1 = IPT*2 - 1\r\n      I71  = IPT1\r\n      I72  = IPT1 + 1\r\n      I81  = IPT1 + 6\r\n      I82  = IPT1 + 7\r\n      I91  = IPT1 + 12\r\n      I92  = IPT1 + 13\r\nC\r\nC     LOOP OVER NODES AND BUILD PARTITIONS OF B-MATRIX\r\nC\r\n      IP = 0\r\n      DO 150 I = 1,NNODE\r\nC\r\nC     CALCULATE DERIVATIVES WRT THE PHYSICAL COORDINATES.\r\nC\r\n      DNX  = JACOB(1)*DSHPX(I) + JACOB(2)*DSHPE(I)\r\n      DNY  = JACOB(3)*DSHPX(I) + JACOB(4)*DSHPE(I)\r\n      SHPF = SHP(I)\r\nC\r\n      BTERMS(I      ) = DNX\r\n      BTERMS(I+NNODE) = DNY\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 120\r\nC\r\nC     ROW 1\r\nC\r\n      BMATRX(IP+1) = DNX\r\nC\r\nC     ROW 2\r\nC\r\n      BMATRX(IP+2+ND1) = DNY\r\nC\r\nC     ROW 3\r\nC\r\n      BMATRX(IP+1+ND2) = DNY\r\n      BMATRX(IP+2+ND2) = DNX\r\nC\r\n  120 IF (.NOT.BENDNG) GO TO 150\r\nC\r\nC     ROW 4\r\nC\r\n      BMATRX(IP+5+ND3) = -DNX\r\nC\r\nC     ROW 5\r\nC\r\n      BMATRX(IP+4+ND4) =  DNY\r\nC\r\nC     ROW 6\r\nC\r\n      BMATRX(IP+5+ND5) = -DNY\r\n      BMATRX(IP+4+ND5) =  DNX\r\nC\r\n      IF (.NOT.SHEART) GO TO 150\r\n      IF (IPT .LT.  4) GO TO 130\r\nC\r\nC     8-ROW MATRIX\r\nC\r\nC     ROW 7\r\nC\r\n      BMATRX(IP+3+ND6) =  DNY\r\n      BMATRX(IP+4+ND6) = -SHPF\r\nC\r\nC     ROW 8\r\nC\r\n      BMATRX(IP+3+ND7) =  DNX\r\n      BMATRX(IP+5+ND7) =  SHPF\r\n      GO TO 150\r\nC\r\nC     9-ROW MATRIX\r\nC\r\nC     ROW 7\r\nC\r\n  130 BMATRX(IP+3+ND6) =  AIC(I71)*DNY + AIC(I72)*DNX\r\n      BMATRX(IP+4+ND6) = -AIC(I71)*SHPF\r\n      BMATRX(IP+5+ND6) =  AIC(I72)*SHPF\r\nC\r\nC     ROW 8\r\nC\r\n      BMATRX(IP+3+ND7) =  AIC(I81)*DNY + AIC(I82)*DNX\r\n      BMATRX(IP+4+ND7) = -AIC(I81)*SHPF\r\n      BMATRX(IP+5+ND7) =  AIC(I82)*SHPF\r\nC\r\nC     ROW 9\r\nC\r\n      BMATRX(IP+3+ND8) =  AIC(I91)*DNY + AIC(I92)*DNX\r\n      BMATRX(IP+4+ND8) = -AIC(I91)*SHPF\r\n      BMATRX(IP+5+ND8) =  AIC(I92)*SHPF\r\nC\r\n  150 IP = IP + 6\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3bmgs.f",
    "content": "      SUBROUTINE T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,\r\n     1                   DETJAC,SHP,BTERMS,BMATRX)\r\nC\r\nC     [B] MATRIX GENERATOR ROUTINE FOR TRIA3 ELEMENTS\r\nC\r\nC     SINGLE PRECISION ROUTINE TO GENERATE A 9XNDOF [B] MATRIX AT A\r\nC     GIVEN INTEGRATION POINT, USING THE DERIVATIVES OF THE 2-D SHAPE\r\nC     FUNCTIONS.\r\nC     OPTIONALLY, AN 8XNDOF [B] MATRIX IS CONSTRUCTED AND/OR SHEAR TERMS\r\nC     MAY BE DROPPED ALTOGETHER, YIELDING 6XNDOF MATRIX.\r\nC     FOR STRESS RECOVERY, THE EVALUATION POINTS ARE AT THE ELEMENT\r\nC     INTERIOR POINTS RATHER THAN ON THE EDGES.\r\nC     THE CONTENTS OF /TERMS/ ARE USED TO CONSTRUCT THE [B] MATRIX\r\nC     ACCORDING TO THE BEHAVIORAL REQUIREMENTS OF THE ELEMENT.\r\nC\r\nC\r\nC     INPUT :\r\nC           IPT    - POINTER TO THE CURVILNEAR COORDINATES\r\nC           SHEART - LOGICAL INDICATING THE REQUIREMENT FOR OUT-OF-PLANE\r\nC                    SHEAR TERMS\r\nC           IORDER - ARRAY OF INTERNAL SEQUENCE OF NODES\r\nC           EGPDT  - GRID POINT DATA IN THE ELEMENT COORD. SYSTEM\r\nC           DGPTH  - NODAL THICKNESSES\r\nC           AIC    - TRANSFORMATION TO RELIEVE GEOMETRY BIAS\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           TH     - THICKNESS AT THE INTEG. PT.\r\nC           DETJAC - DETERMINANT OF JACOBIAN AT THE INTEG. PT.\r\nC           SHP    - ARRAY OF REORDERED SHAPE FUNCTIONS\r\nC           BTERMS - DERIVATIVES WRT THE PHYSICAL COORDINATES\r\nC           BMATRX - STRAIN-DISPLACEMENT RELATIONSHIP\r\nC\r\nC\r\n      LOGICAL          SHEART,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      INTEGER          IORDER(3)\r\n      REAL             EGPDT(4,1),DGPTH(1),AIC(1),TH,DETJAC,BMATRX(1),\r\n     1                 BTERMS(1),SHP(3),DSHPX(3),DSHPE(3),TSHP(3),\r\n     2                 TDSHPX(3),TDSHPE(3),VI(2),VJ(2),JACOB(4),EPS,\r\n     3                 PTINT(2,7),TRC(2,3),XSI,XSII,ETA,ETAI,PSI,PSII,\r\n     4                 DNX,DNY,SHPF\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      DATA    EPS   /  1.0E-13 /\r\n      DATA    PTINT /  0.5,    0.0,    0.5, 0.5,    0.0,    0.5,\r\n     1                 0.333333333333333D0, 0.333333333333333D0,\r\n     2                 0.166666666666667D0, 0.166666666666667D0,\r\n     3                 0.166666666666667D0, 0.666666666666667D0,\r\n     4                 0.666666666666667D0, 0.166666666666667D0/\r\n      DATA    TRC   /  0.0,    0.0,    1.0, 0.0,    0.0,    1.0/\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR = 0\r\n      NNODE= 3\r\n      ND1  = NNODE*6\r\n      ND2  = ND1*2\r\n      ND3  = ND1*3\r\n      ND4  = ND1*4\r\n      ND5  = ND1*5\r\n      ND6  = ND1*6\r\n      ND7  = ND1*7\r\n      ND8  = ND1*8\r\n      ND9  = ND1*9\r\nC\r\n      DO 30 I = 1,6\r\n      BTERMS(I) = 0.0\r\n   30 CONTINUE\r\n      DO 40 I = 1,ND9\r\n      BMATRX(I) = 0.0\r\n   40 CONTINUE\r\nC\r\nC     CALCULATE THE SHAPE FUNCTIONS AND THEIR DERIVATIVES, THEN SORT\r\nC     THEM.\r\nC\r\n      XSI = PTINT(1,IPT)\r\n      ETA = PTINT(2,IPT)\r\n      PSI = 1.0 - XSI - ETA\r\nC\r\n      DO 50 I = 1,3\r\n      XSII = TRC(1,I)\r\n      ETAI = TRC(2,I)\r\n      PSII = 1.0 - XSII - ETAI\r\nC\r\n      SHP(I)   = XSI*XSII + ETA*ETAI + PSI*PSII\r\n      DSHPX(I) = XSII - PSII\r\n      DSHPE(I) = ETAI - PSII\r\n   50 CONTINUE\r\nC\r\n      DO 60 I  = 1,NNODE\r\n      TSHP(I)  = SHP(I)\r\n      TDSHPX(I)= DSHPX(I)\r\n      TDSHPE(I)= DSHPE(I)\r\n   60 CONTINUE\r\nC\r\n      DO 70 I  = 1,NNODE\r\n      KK       = IORDER(I)\r\n      SHP(I)   = TSHP(KK)\r\n      DSHPX(I) = TDSHPX(KK)\r\n      DSHPE(I) = TDSHPE(KK)\r\n   70 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT THICKNESS\r\nC\r\n      TH = 0.0\r\n      DO 80 ISH = 1,NNODE\r\n      TH = TH + SHP(ISH)*DGPTH(ISH)\r\n   80 CONTINUE\r\nC\r\nC     SET UP THE JACOBIAN\r\nC\r\n      DO 90 I = 1,2\r\n      VI(I) = 0.0\r\n      VJ(I) = 0.0\r\n      II = I + 1\r\n      DO 90 J = 1,NNODE\r\n      VI(I) = VI(I) + EGPDT(II,J)*DSHPX(J)\r\n      VJ(I) = VJ(I) + EGPDT(II,J)*DSHPE(J)\r\n   90 CONTINUE\r\nC\r\nC     INVERT THE JACOBIAN\r\nC\r\n      DETJAC = VI(1)*VJ(2) - VI(2)*VJ(1)\r\n      IF (DETJAC .GE. EPS) GO TO 100\r\n      IERR = 1\r\n      RETURN\r\nC\r\n  100 JACOB(1) =  VJ(2)/DETJAC\r\n      JACOB(2) = -VI(2)/DETJAC\r\n      JACOB(3) = -VJ(1)/DETJAC\r\n      JACOB(4) =  VI(1)/DETJAC\r\nC\r\n      DO 110 I = 1,4\r\n      IF (ABS(JACOB(I)) .LT. EPS) JACOB(I) = 0.0\r\n  110 CONTINUE\r\nC\r\n      IPT1 = IPT*2 - 1\r\n      I71  = IPT1\r\n      I72  = IPT1 + 1\r\n      I81  = IPT1 + 6\r\n      I82  = IPT1 + 7\r\n      I91  = IPT1 + 12\r\n      I92  = IPT1 + 13\r\nC\r\nC     LOOP OVER NODES AND BUILD PARTITIONS OF [B]\r\nC\r\n      IP = 0\r\n      DO 150 I = 1,NNODE\r\nC\r\nC     CALCULATE DERIVATIVES WRT THE PHYSICAL COORDINATES.\r\nC\r\n      DNX  = JACOB(1)*DSHPX(I) + JACOB(2)*DSHPE(I)\r\n      DNY  = JACOB(3)*DSHPX(I) + JACOB(4)*DSHPE(I)\r\n      SHPF = SHP(I)\r\nC\r\n      BTERMS(I      ) = DNX\r\n      BTERMS(I+NNODE) = DNY\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 120\r\nC\r\nC     ROW 1\r\nC\r\n      BMATRX(IP+1) = DNX\r\nC\r\nC     ROW 2\r\nC\r\n      BMATRX(IP+2+ND1) = DNY\r\nC\r\nC     ROW 3\r\nC\r\n      BMATRX(IP+1+ND2) = DNY\r\n      BMATRX(IP+2+ND2) = DNX\r\nC\r\n  120 IF (.NOT.BENDNG) GO TO 150\r\nC\r\nC     ROW 4\r\nC\r\n      BMATRX(IP+5+ND3) = -DNX\r\nC\r\nC     ROW 5\r\nC\r\n      BMATRX(IP+4+ND4) =  DNY\r\nC\r\nC     ROW 6\r\nC\r\n      BMATRX(IP+5+ND5) = -DNY\r\n      BMATRX(IP+4+ND5) =  DNX\r\nC\r\n      IF (.NOT.SHEART) GO TO 150\r\n      IF (IPT .LT.  4) GO TO 130\r\nC\r\nC     8-ROW MATRIX\r\nC\r\nC     ROW 7\r\nC\r\n      BMATRX(IP+3+ND6) =  DNY\r\n      BMATRX(IP+4+ND6) = -SHPF\r\nC\r\nC     ROW 8\r\nC\r\n      BMATRX(IP+3+ND7) =  DNX\r\n      BMATRX(IP+5+ND7) =  SHPF\r\n      GO TO 150\r\nC\r\nC     9-ROW MATRIX\r\nC\r\nC     ROW 7\r\nC\r\n  130 BMATRX(IP+3+ND6) =  AIC(I71)*DNY + AIC(I72)*DNX\r\n      BMATRX(IP+4+ND6) = -AIC(I71)*SHPF\r\n      BMATRX(IP+5+ND6) =  AIC(I72)*SHPF\r\nC\r\nC     ROW 8\r\nC\r\n      BMATRX(IP+3+ND7) =  AIC(I81)*DNY + AIC(I82)*DNX\r\n      BMATRX(IP+4+ND7) = -AIC(I81)*SHPF\r\n      BMATRX(IP+5+ND7) =  AIC(I82)*SHPF\r\nC\r\nC     ROW 9\r\nC\r\n      BMATRX(IP+3+ND8) =  AIC(I91)*DNY + AIC(I92)*DNX\r\n      BMATRX(IP+4+ND8) = -AIC(I91)*SHPF\r\n      BMATRX(IP+5+ND8) =  AIC(I92)*SHPF\r\nC\r\n  150 IP = IP + 6\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3gemd.f",
    "content": "      SUBROUTINE T3GEMD (IERR,EGPDT,IORDER,GB,GS,LX,LY,EDGLEN,SHRFLX,\r\n     1                   AIC,JOG,JOK,K11,K22)\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO SET UP THE REQUIRED SHEAR-RELATED\r\nC     TRANSFORMATION TO RELIEVE THE TRIA3 GEOMETRY BIAS IN BENDING.\r\nC\r\nC     INPUT :\r\nC           EGPDT  - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           GB     - ARRAY OF BENDING MATERIAL PROPERTIES\r\nC           GS     - ARRAY OF SHEAR   MATERIAL PROPERTIES\r\nC           LX     - DIMENSION OF ELEMENT ALONG X-AXIS\r\nC           LY     - DIMENSION OF ELEMENT ALONG Y-AXIS\r\nC           EDGLEN - EDGE LENGTHS\r\nC           SHRFLX - LOGICAL INDICATING THE PRESENCE OF SHEAR FLEX\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           AIC    - TRANSFORMATION TO RELIEVE GEOMETRY BIAS\r\nC           JOG    - SHEAR   STIFFNESS FACTOR\r\nC           JOK    - BENDING STIFFNESS FACTOR\r\nC           K11    - BENDING STIFFNESS FACTOR\r\nC           K22    - BENDING STIFFNESS FACTOR\r\nC\r\nC\r\nC     [C]    - TRANSFORMATION TO YIELD GAMMAT ALONG THE ELEMENT SIDES.\r\nC\r\nC     [AA]   - TRANSFORMATION FROM GAMMA0 (AT THE ELEMENT CENTER) TO\r\nC              GAMMAT (ALONG THE ELEMENT SIDES).\r\nC\r\nC                  -1\r\nC     [AIC]  - [AA]  [C]\r\nC\r\nC\r\n      LOGICAL          SHRFLX\r\n      INTEGER          IORDER(3),INDEX(3,3)\r\n      DOUBLE PRECISION EGPDT(4,3),GB(9),GS(4),EDGLEN(3),LX,LY,AIC(18),\r\n     1                 JOG,JOK,K11,K22,XX(3),YY(3),AA(9),H1,H2,BDUM(3),\r\n     2                 DETERM,COSA,SINA,COSB,SINB,COSC,SINC\r\nC\r\nC\r\n      IERR = 0\r\n      DO 20 I = 1,3\r\n      DO 10 J = 1,3\r\n      JO = IORDER(J)\r\n      IF (I .NE. JO) GO TO 10\r\n      XX(I) = EGPDT(2,J)\r\n      YY(I) = EGPDT(3,J)\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      COSA = ((XX(2)-XX(1))/EDGLEN(1))\r\n      SINA = ((YY(2)-YY(1))/EDGLEN(1))\r\n      COSB = ((XX(3)-XX(2))/EDGLEN(2))\r\n      SINB = ((YY(3)-YY(2))/EDGLEN(2))\r\n      COSC = ((XX(1)-XX(3))/EDGLEN(3))\r\n      SINC = ((YY(1)-YY(3))/EDGLEN(3))\r\nC\r\n      AA(1) = SINA\r\n      AA(2) = COSA\r\n      AA(3) = 1.0D0\r\n      AA(4) = SINB\r\n      AA(5) = COSB\r\n      AA(6) = 1.0D0\r\n      AA(7) = SINC\r\n      AA(8) = COSC\r\n      AA(9) = 1.0D0\r\nC\r\n      CALL INVERD (3,AA,3,BDUM,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 1) GO TO 30\r\nC\r\n      AIC( 1) = AA(1)*SINA\r\n      AIC( 2) = AA(1)*COSA\r\n      AIC( 3) = AA(2)*SINB\r\n      AIC( 4) = AA(2)*COSB\r\n      AIC( 5) = AA(3)*SINC\r\n      AIC( 6) = AA(3)*COSC\r\n      AIC( 7) = AA(4)*SINA\r\n      AIC( 8) = AA(4)*COSA\r\n      AIC( 9) = AA(5)*SINB\r\n      AIC(10) = AA(5)*COSB\r\n      AIC(11) = AA(6)*SINC\r\n      AIC(12) = AA(6)*COSC\r\n      AIC(13) = AA(7)*SINA\r\n      AIC(14) = AA(7)*COSA\r\n      AIC(15) = AA(8)*SINB\r\n      AIC(16) = AA(8)*COSB\r\n      AIC(17) = AA(9)*SINC\r\n      AIC(18) = AA(9)*COSC\r\nC\r\nC     CALCULATE THE BENDING STIFFNESS FACTORS\r\nC\r\n      H1  = LY\r\n      H2  = LX\r\n      K11 = 1.0D0/(H1*H1)*GB(5)\r\n      K22 = 1.0D0/(H2*H2)*GB(1)\r\nC\r\n      JOK = K11*K22\r\n      IF (JOK .NE. 0.0D0) JOK = 1.0D0/JOK\r\n      JOG = 0.0D0\r\n      IF (SHRFLX) JOG = GS(1)*GS(4) - GS(2)*GS(3)\r\n      IF (JOG .NE. 0.0D0) JOG = 1.0D0/JOG\r\n      GO TO 40\r\nC\r\n   30 IERR = 1\r\n   40 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3gems.f",
    "content": "      SUBROUTINE T3GEMS (IERR,EGPDT,IORDER,GB,GS,LX,LY,EDGLEN,SHRFLX,\r\n     1                   AIC,JOG,JOK,K11,K22)\r\nC\r\nC     SINGLE PRECISION ROUTINE TO SET UP THE REQUIRED SHEAR-RELATED\r\nC     TRANSFORMATION TO RELIEVE THE TRIA3 GEOMETRY BIAS IN BENDING.\r\nC\r\nC     INPUT :\r\nC           EGPDT  - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           GB     - ARRAY OF BENDING MATERIAL PROPERTIES\r\nC           GS     - ARRAY OF SHEAR   MATERIAL PROPERTIES\r\nC           LX     - DIMENSION OF ELEMENT ALONG X-AXIS\r\nC           LY     - DIMENSION OF ELEMENT ALONG Y-AXIS\r\nC           EDGLEN - EDGE LENGTHS\r\nC           SHRFLX - LOGICAL INDICATING THE PRESENCE OF SHEAR FLEX\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           AIC    - TRANSFORMATION TO RELIEVE GEOMETRY BIAS\r\nC           JOG    - SHEAR   STIFFNESS FACTOR\r\nC           JOK    - BENDING STIFFNESS FACTOR\r\nC           K11    - BENDING STIFFNESS FACTOR\r\nC           K22    - BENDING STIFFNESS FACTOR\r\nC\r\nC\r\nC     [C]    - TRANSFORMATION TO YIELD GAMMAT ALONG THE ELEMENT SIDES.\r\nC\r\nC     [AA]   - TRANSFORMATION FROM GAMMA0 (AT THE ELEMENT CENTER) TO\r\nC              GAMMAT (ALONG THE ELEMENT SIDES).\r\nC\r\nC                  -1\r\nC     [AIC]  - [AA]  [C]\r\nC\r\nC\r\n      LOGICAL  SHRFLX\r\n      INTEGER  IORDER(3),INDEX(3,3)\r\n      REAL     EGPDT(4,3),GB(9),GS(4),EDGLEN(3),LX,LY,AIC(18),\r\n     1         JOG,JOK,K11,K22,XX(3),YY(3),AA(9),H1,H2,BDUM(3),\r\n     2         DETERM,COSA,SINA,COSB,SINB,COSC,SINC\r\nC\r\nC\r\n      IERR = 0\r\n      DO 20 I = 1,3\r\n      DO 10 J = 1,3\r\n      JO = IORDER(J)\r\n      IF (I .NE. JO) GO TO 10\r\n      XX(I) = EGPDT(2,J)\r\n      YY(I) = EGPDT(3,J)\r\n   10 CONTINUE\r\n   20 CONTINUE\r\nC\r\n      COSA = ((XX(2)-XX(1))/EDGLEN(1))\r\n      SINA = ((YY(2)-YY(1))/EDGLEN(1))\r\n      COSB = ((XX(3)-XX(2))/EDGLEN(2))\r\n      SINB = ((YY(3)-YY(2))/EDGLEN(2))\r\n      COSC = ((XX(1)-XX(3))/EDGLEN(3))\r\n      SINC = ((YY(1)-YY(3))/EDGLEN(3))\r\nC\r\n      AA(1) = SINA\r\n      AA(2) = COSA\r\n      AA(3) = 1.0\r\n      AA(4) = SINB\r\n      AA(5) = COSB\r\n      AA(6) = 1.0\r\n      AA(7) = SINC\r\n      AA(8) = COSC\r\n      AA(9) = 1.0\r\nC\r\n      CALL INVERS (3,AA,3,BDUM,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 1) GO TO 30\r\nC\r\n      AIC( 1) = AA(1)*SINA\r\n      AIC( 2) = AA(1)*COSA\r\n      AIC( 3) = AA(2)*SINB\r\n      AIC( 4) = AA(2)*COSB\r\n      AIC( 5) = AA(3)*SINC\r\n      AIC( 6) = AA(3)*COSC\r\n      AIC( 7) = AA(4)*SINA\r\n      AIC( 8) = AA(4)*COSA\r\n      AIC( 9) = AA(5)*SINB\r\n      AIC(10) = AA(5)*COSB\r\n      AIC(11) = AA(6)*SINC\r\n      AIC(12) = AA(6)*COSC\r\n      AIC(13) = AA(7)*SINA\r\n      AIC(14) = AA(7)*COSA\r\n      AIC(15) = AA(8)*SINB\r\n      AIC(16) = AA(8)*COSB\r\n      AIC(17) = AA(9)*SINC\r\n      AIC(18) = AA(9)*COSC\r\nC\r\nC     CALCULATE THE BENDING STIFFNESS FACTORS\r\nC\r\n      H1  = LY\r\n      H2  = LX\r\n      K11 = 1.0/(H1*H1)*GB(5)\r\n      K22 = 1.0/(H2*H2)*GB(1)\r\nC\r\n      JOK = K11*K22\r\n      IF (JOK .NE. 0.0) JOK = 1.0/JOK\r\n      JOG = 0.0\r\n      IF (SHRFLX) JOG = GS(1)*GS(4) - GS(2)*GS(3)\r\n      IF (JOG .NE. 0.0) JOG = 1.0/JOG\r\n      GO TO 40\r\nC\r\n   30 IERR = 1\r\n   40 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3pl4d.f",
    "content": "      SUBROUTINE T3PL4D\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO PROCESS PLOAD4 PRESSURE DATA AND\r\nC     GENERATE EQUIVALENT NODAL LOADS FOR A TRIA3 ELEMENT.\r\nC\r\nC     WAS NAMED T3PRSD (LOADVC,RPDATA,IPDATA) IN UAI\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC    DATA IN THE PLOAD4 ENTRY, 11 WORDS IN ISLT ARRAY\r\nC\r\nC       EID - ELEMENT ID, IPDATA(0)=ISLT(1)\r\nC       PPP - CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA,\r\nC             RPDATA (1-4)\r\nC       DUM - DUMMY DATA WORDS, IPDATA (5-6)\r\nC       CID - COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR,\r\nC             IPDATA(7)\r\nC       NV  - PRESSURE DIRECTION VECTOR, RPDATA(8-10)\r\nC           - IF CID IS BLANK OR ZERO, THE PRESSURE ACTS NORMAL TO THE\r\nC             SURFACE OF THE ELEMENT.\r\nC\r\nC     EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE OBTAINED\r\nC     VIA BI-LINEAR INTERPOLATION\r\nC\r\n      LOGICAL          CONSTP,SHEART,NORMAL\r\n      INTEGER          IPDATA(7),ISLT(1),IGPDT(4,3),SIL(3),IORDER(3),\r\n     1                 ELID,CID,SYSBUF,NOUT,NOGO\r\n      REAL             GPTH(3),BGPDT(4,3),NV(3),NVX(3),LOCATE(3),\r\n     1                 PE(3,3),RPDATA(1),LOADVC\r\n      DOUBLE PRECISION DPE(3,3),SHP(3),WEIGHT,DETJAC,V3T(3),\r\n     1                 P,PPP(3),BTERMS(6),BMATRX(162),EGPDT(4,3),\r\n     2                 CENTE(3),GPNORM(4,3),EPNORM(4,3),TEB(9),TUB(9),\r\n     3                 DGPTH(3),TH,AVGTHK,AIC(1),EDGLEN(3),LX,LY\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO\r\n      COMMON /ZZZZZZ/  LOADVC(1)\r\n      COMMON /PINDEX/  EST(45),SLT(11)\r\n      EQUIVALENCE      (SLT( 1),ISLT(1)),(EST( 1),ELID),(EST(2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)),(EST(12),ELTH),\r\n     2                 (EST(27),BGPDT(1,1),IGPDT(1,1)),\r\n     3                 (SLT( 2),IPDATA(1) ,RPDATA(1))\r\nC\r\nC     INITIALIZE\r\nC\r\n      WEIGHT = 1.0D0/6.0D0\r\n      SHEART = .FALSE.\r\n      NNODE  = 3\r\n      NDOF   = 3\r\n      DO 10 I = 1,NDOF\r\n      DO 10 J = 1,NNODE\r\n      DPE(I,J) = 0.0D0\r\n   10 CONTINUE\r\nC\r\nC     GET THE PRESSURE INFORMATION\r\nC\r\nC     EST (45 WORDS) AND SLT (11 WORDS) ARE THE DATA FOR EST AND SLT\r\nC     WHICH ARE READ IN BY EXTERN AND ARE READY TO BE USED\r\nC\r\nC     IF ISLT(1).GT.0, GET THE PLOAD4 DATA FROM THE PROCESSED PLOAD2\r\nC                      INFORMATION IN ARRAY SLT.\r\nC                      (NOT AVAILABLE IN COSMIC/NASTRAN)\r\nC     IF ISLT(1).LT.0, GET THE PLOAD4 DATA FROM THE ORIGINAL PLOAD4\r\nC                      INFORMATION IN ARRAY RPDATA.\r\nC                      (SET TO NEGATIVE BY PLOAD4 SUBROUTINE)\r\nC\r\n      IF (ISLT(1) .LT. 0) GO TO 20\r\n      NORMAL = .TRUE.\r\n      CONSTP = .TRUE.\r\n      P = DBLE(SLT(2))\r\n      GO TO 60\r\nC\r\n   20 DO 30 I = 1,NNODE\r\n      PPP(I) = DBLE(RPDATA(I))\r\n   30 CONTINUE\r\n      CONSTP = PPP(2).EQ.0.0D0 .AND. PPP(3).EQ.0.0D0\r\n      IF (CONSTP) P = PPP(1)\r\n      CID = IPDATA(7)\r\nC\r\nC     GET THE DIRECTION VECTOR AND NORMALIZE IT\r\nC\r\n      X = 0.0\r\n      DO 40 I = 1,NNODE\r\n      NV(I) = RPDATA(I+7)\r\n      X = X + NV(I)*NV(I)\r\n   40 CONTINUE\r\n      NORMAL = .TRUE.\r\n      IF (X .LE. 0.0) GO TO 60\r\n      NORMAL = .FALSE.\r\n      X = SQRT(X)\r\n      DO 50 I = 1,NNODE\r\n      NV(I) = NV(I)/X\r\n   50 CONTINUE\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n   60 CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 200\r\nC\r\nC     START THE LOOP ON INTEGRATION POINTS\r\nC\r\n      DO 150 IPT = 5,7\r\nC\r\n      CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,SHP,\r\n     1             BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 200\r\nC\r\nC     CALCULATE THE PRESSURE AT THIS POINT\r\nC\r\n      IF (CONSTP) GO TO 80\r\n      P = 0.0D0\r\n      DO 70 I = 1,NNODE\r\n      P = P + SHP(I)*PPP(I)\r\n   70 CONTINUE\r\nC\r\nC     SET THE DIRECTION OF PRESSURE AT THIS POINT.\r\nC     THE RESULTING VECTOR MUST BE IN THE BASIC COORD. SYSTEM\r\nC\r\n   80 IF (.NOT.NORMAL) GO TO 90\r\n      V3T(1) = TEB(7)*DETJAC\r\n      V3T(2) = TEB(8)*DETJAC\r\n      V3T(3) = TEB(9)*DETJAC\r\n      GO TO 120\r\nC\r\n   90 IF (CID .NE. 0) GO TO 100\r\n      V3T(1) = NV(1)*DETJAC\r\n      V3T(2) = NV(2)*DETJAC\r\n      V3T(3) = NV(3)*DETJAC\r\n      GO TO 120\r\nC\r\nC     FOR NON-ZERO CID, COMPUTE THE LOCATION OF THE INTEGRATION POINT SO\r\nC     THAT WE CAN ROTATE THE USER VECTOR PER CID.  THIS LOCATION IS\r\nC     REQUIRED ONLY IF CID IS CYLINDRICAL OR SPHERICAL.\r\nC\r\n  100 LOCATE(1) = 0.0\r\n      LOCATE(2) = 0.0\r\n      LOCATE(3) = 0.0\r\n      DO 110 J  = 1,NNODE\r\n      LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J)\r\n      LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J)\r\n      LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J)\r\n  110 CONTINUE\r\nC\r\nC     NOW ROTATE THE VECTOR\r\nC\r\n      CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID)\r\n      V3T(1) = NVX(1)*DETJAC\r\n      V3T(2) = NVX(2)*DETJAC\r\n      V3T(3) = NVX(3)*DETJAC\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS INTEGRATION\r\nC     POINT AS NT*P*V3T\r\nC\r\n  120 DO 130 I = 1,NNODE\r\n      DO 130 J = 1,NDOF\r\n      DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J)\r\n      PE(J,I)  = DPE(J,I)\r\n  130 CONTINUE\r\nC\r\n  150 CONTINUE\r\nC\r\nC     END OF NUMERICAL INTEGRATION LOOP\r\nC     ADD ELEMENT LOAD TO OVERALL LOAD.\r\nC\r\n      DO 170 J = 1,NNODE\r\n      IF (IGPDT(1,J) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BGPDT(2,J),\r\n     1                                    IGPDT(1,J))\r\n      JP = SIL(J) - 1\r\n      DO 170 I = 1,NDOF\r\n      LOADVC(JP+I) = LOADVC(JP+I) + PE(I,J)\r\n  170 CONTINUE\r\n      GO TO 250\r\nC\r\nC     FATAL ERROR\r\nC\r\n  200 ISLT(1) = IABS(ISLT(1))\r\n      CALL MESAGE (30,224,ISLT(1))\r\n      NOGO = 1\r\nC\r\n  250 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3pl4s.f",
    "content": "      SUBROUTINE T3PL4S\r\nC\r\nC     SINGLE PRECISION ROUTINE TO PROCESS PLOAD4 PRESSURE DATA AND\r\nC     GENERATE EQUIVALENT NODAL LOADS FOR A TRIA3 ELEMENT.\r\nC\r\nC     WAS NAMED T3PRSS (LOADVC,RPDATA,IPDATA) IN UAI\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\nC    DATA IN THE PLOAD4 ENTRY, 11 WORDS IN ISLT ARRAY\r\nC\r\nC       EID - ELEMENT ID, IPDATA(0)=ISLT(1)\r\nC       PPP - CORNER GRID POINT PRESSURES PER UNIT SURFACE AREA,\r\nC             RPDATA (1-4)\r\nC       DUM - DUMMY DATA WORDS, IPDATA (5-6)\r\nC       CID - COORDINATE SYSTEM FOR DEFINITION OF PRESSURE VECTOR,\r\nC             IPDATA(7)\r\nC       NV  - PRESSURE DIRECTION VECTOR, RPDATA(8-10)\r\nC           - IF CID IS BLANK OR ZERO, THE PRESSURE ACTS NORMAL TO THE\r\nC             SURFACE OF THE ELEMENT.\r\nC\r\nC     EQUIVALENT NUMERICAL INTEGRATION POINT LOADS PP(III) ARE OBTAINED\r\nC     VIA BI-LINEAR INTERPOLATION\r\nC\r\nC\r\n      LOGICAL          CONSTP,SHEART,NORMAL\r\n      INTEGER          IPDATA(7),ISLT(1),IGPDT(4,3),SIL(3),IORDER(3),\r\n     1                 ELID,CID,SYSBUF,NOUT,NOGO\r\n      REAL             GPTH(3),BGPDT(4,3),NV(3),NVX(3),LOCATE(3),\r\n     1                 PE(3,3),RPDATA(1),LOADVC\r\n      REAL             DPE(3,3),SHP(3),WEIGHT,DETJAC,X,UNV(3),V3T(3),\r\n     1                 P,PPP(3),BTERMS(6),BMATRX(162),EGPDT(4,3),\r\n     2                 CENTE(3),GPNORM(4,3),EPNORM(4,3),TEB(9),TUB(9),\r\n     3                 DGPTH(3),TH,AVGTHK,AIC(1),EDGLEN(3),LX,LY\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO\r\n      COMMON /ZZZZZZ/  LOADVC(1)\r\n      COMMON /PINDEX/  EST(45),SLT(11)\r\n      EQUIVALENCE      (SLT( 1),ISLT(1)),(EST( 1),ELID),(EST(2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)),(EST(12),ELTH),\r\n     2                 (EST(27),BGPDT(1,1),IGPDT(1,1)),\r\n     3                 (SLT( 2),IPDATA(1) ,RPDATA(1))\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      WEIGHT = 1.0/6.0\r\n      SHEART = .FALSE.\r\n      NNODE  = 3\r\n      NDOF   = 3\r\n      DO 10 I = 1,NDOF\r\n      DO 10 J = 1,NNODE\r\n      DPE(I,J) = 0.0\r\n   10 CONTINUE\r\nC\r\nC     GET THE PRESSURE INFORMATION\r\nC\r\nC     EST (45 WORDS) AND SLT (11 WORDS) ARE THE DATA FOR EST AND SLT\r\nC     WHICH ARE READ IN BY EXTERN AND ARE READY TO BE USED\r\nC\r\nC\r\nC     IF ISLT(1).GT.0, GET THE PLOAD4 DATA FROM THE PROCESSED PLOAD2\r\nC                      INFORMATION IN ARRAY SLT.\r\nC                      (NOT AVAILABLE IN COSMIC.NASTRAN)\r\nC     IF ISLT(1).LT.0, GET THE PLOAD4 DATA FROM THE ORIGINAL PLOAD4\r\nC                      INFORMATION IN ARRAY PDATA.\r\nC\r\n      IF (ISLT(1) .LT. 0) GO TO 20\r\n      NORMAL = .TRUE.\r\n      CONSTP = .TRUE.\r\n      P = SLT(2)\r\n      GO TO 60\r\nC\r\n   20 DO 30 I = 1,NNODE\r\n      PPP(I) = RPDATA(I)\r\n   30 CONTINUE\r\n      CONSTP = PPP(2).EQ.0.0 .AND. PPP(3).EQ.0.0\r\n      IF (CONSTP) P = PPP(1)\r\n      CID = IPDATA(7)\r\nC\r\nC     GET THE DIRECTION VECTOR AND NORMALIZE IT\r\nC\r\n      X = 0.0\r\n      DO 40 I = 1,NNODE\r\n      UNV(I) = RPDATA(I+7)\r\n      X = X + UNV(I)*UNV(I)\r\n   40 CONTINUE\r\nC\r\n      NORMAL = .TRUE.\r\n      IF (X .LE. 0.0) GO TO 60\r\n      NORMAL = .FALSE.\r\n      X = SQRT(X)\r\n      DO 50 I = 1,NNODE\r\n      NV(I) = UNV(I)/X\r\n   50 CONTINUE\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n   60 CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 200\r\nC\r\nC     START THE LOOP ON INTEGRATION POINTS\r\nC\r\n      DO 150 IPT = 5,7\r\nC\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,SHP,\r\n     1             BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 200\r\nC\r\nC     CALCULATE THE PRESSURE AT THIS POINT\r\nC\r\n      IF (CONSTP) GO TO 80\r\n      P = 0.0\r\n      DO 70 I = 1,NNODE\r\n      P = P + SHP(I)*PPP(I)\r\n   70 CONTINUE\r\nC\r\nC     SET THE DIRECTION OF PRESSURE AT THIS POINT.\r\nC     THE RESULTING VECTOR MUST BE IN THE BASIC COORD. SYSTEM\r\nC\r\n   80 IF (.NOT.NORMAL) GO TO 90\r\n      V3T(1) = TEB(7)*DETJAC\r\n      V3T(2) = TEB(8)*DETJAC\r\n      V3T(3) = TEB(9)*DETJAC\r\n      GO TO 120\r\nC\r\n   90 IF (CID .NE. 0) GO TO 100\r\n      V3T(1) = NV(1)*DETJAC\r\n      V3T(2) = NV(2)*DETJAC\r\n      V3T(3) = NV(3)*DETJAC\r\n      GO TO 120\r\nC\r\nC     FOR NON-ZERO CID, COMPUTE THE LOCATION OF THE INTEGRATION POINT SO\r\nC     THAT WE CAN ROTATE THE USER VECTOR PER CID.  THIS LOCATION IS\r\nC     REQUIRED ONLY IF CID IS CYLINDRICAL OR SPHERICAL.\r\nC\r\n  100 LOCATE(1) = 0.0\r\n      LOCATE(2) = 0.0\r\n      LOCATE(3) = 0.0\r\n      DO 110 J  = 1,NNODE\r\n      LOCATE(1) = LOCATE(1) + BGPDT(2,J)*SHP(J)\r\n      LOCATE(2) = LOCATE(2) + BGPDT(3,J)*SHP(J)\r\n      LOCATE(3) = LOCATE(3) + BGPDT(4,J)*SHP(J)\r\n  110 CONTINUE\r\nC\r\nC     NOW ROTATE THE VECTOR\r\nC\r\n      CALL GLBBAS (NV(1),NVX(1),LOCATE(1),CID)\r\n      V3T(1) = NVX(1)*DETJAC\r\n      V3T(2) = NVX(2)*DETJAC\r\n      V3T(3) = NVX(3)*DETJAC\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE LOAD MATRIX FROM THIS INTEGRATION\r\nC     POINT AS NT*P*V3T\r\nC\r\n  120 DO 130 I = 1,NNODE\r\n      DO 130 J = 1,NDOF\r\n      DPE(J,I) = DPE(J,I) + WEIGHT*P*SHP(I)*V3T(J)\r\n      PE(J,I)  = DPE(J,I)\r\n  130 CONTINUE\r\nC\r\n  150 CONTINUE\r\nC\r\nC     END OF NUMERICAL INTEGRATION LOOP\r\nC     ADD ELEMENT LOAD TO OVERALL LOAD.\r\nC\r\n      DO 170 J = 1,NNODE\r\n      IF (IGPDT(1,J) .NE. 0) CALL BASGLB (PE(1,J),PE(1,J),BGPDT(2,J),\r\n     1                                    IGPDT(1,J))\r\nC\r\n      JP = SIL(J) - 1\r\n      DO 170 I = 1,NDOF\r\n      LOADVC(JP+I) = LOADVC(JP+I) + PE(I,J)\r\n  170 CONTINUE\r\n      GO TO 250\r\nC\r\nC     FATAL ERROR\r\nC\r\n  200 ISLT(1) = IABS(ISLT(1))\r\n      CALL MESAGE (30,224,ISLT(1))\r\n      NOGO = 1\r\nC\r\n  250 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3setd.f",
    "content": "      SUBROUTINE T3SETD (IERR,SIL,JGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,\r\n     1           EPNORM,IORDER,TEB,TUB,CENT,AVGTHK,LX,LY,EDGLEN,ELID)\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO DO THE SET-UP FOR TRIA3 ELEMENTS\r\nC\r\nC\r\nC     INPUT :\r\nC           SIL    - ARRAY OF SIL NUMBERS\r\nC           JGPDT  - BGPDT DATA (INTEGER ARRAY)\r\nC           ELTH   - ELEMENT THICKNESS FROM EPT\r\nC           GPTH   - GRID POINT THICKNESS DATA\r\nC           ELID   - ELEMENT ID\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           SIL    - ARRAY OF SIL NUMBERS       (REARRANGED)\r\nC           JGPDT  - BGPDT DATA (INTEGER ARRAY) (REARRANGED)\r\nC           GPTH   - GRID POINT THICKNESS DATA  (REARRANGED)\r\nC           DGPTH  - GRID POINT THICKNESS DATA  (HIGH PREC)\r\nC           EGPDT  - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           GPNORM - GRID POINT NORMALS\r\nC           EPNORM - GRID POINT NORMALS IN ELEMENT COORD .SYSTEM\r\nC           IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           TEB    - TRANSFORMATION FROM ELEMENT TO BASIC COORD. SYSTEM\r\nC           TUB    - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM\r\nC           CENT   - LOCATION OF THE CENTER OF THE ELEMENT\r\nC           AVGTHK - AVERAGE THICKNESS OF THE ELEMENT\r\nC           LX     - DIMENSION OF ELEMENT ALONG X-AXIS\r\nC           LY     - DIMENSION OF ELEMENT ALONG Y-AXIS\r\nC           EDGLEN - EDGE LENGTHS\r\nC\r\nC\r\n      INTEGER          IGPDT(4,3),JGPDT(4,3),IGRID(4,3),SIL(3),\r\n     1                 IORDER(3),KSIL(3),ELID\r\n      REAL             BGPDT(4,3),GPTH(3),TMPTHK(3)\r\n      DOUBLE PRECISION CENT(3),EGPDT(4,3),GGU(9),TEB(9),TUB(9),CC,\r\n     1                 DGPTH(3),GPNORM(4,3),EPNORM(4,3),AVGTHK,LX,LY,\r\n     2                 AREA2,LENGTH,SMALL,X(3),Y(3),Z(3),EDG12(3),\r\n     3                 EDG23(3),EDG13(3),EDGLEN(3),AXIS(3,3)\r\n      EQUIVALENCE      (IGPDT(1,1),BGPDT(1,1))\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR  = 0\r\n      NNODE = 3\r\nC\r\n      DO 100 I = 1,NNODE\r\n      DO 100 J = 1,4\r\n      IGPDT(J,I) = JGPDT(J,I)\r\n  100 CONTINUE\r\nC\r\nC     SET UP THE USER COORDINATE SYSTEM\r\nC\r\n      DO 120 I = 1,3\r\n      II = (I-1)*3\r\n      DO 120 J = 1,3\r\n      GGU(II+J) = DBLE(BGPDT(J+1,I))\r\n  120 CONTINUE\r\n      CALL BETRND (TUB,GGU,0,ELID)\r\nC\r\nC     SET UP THE ELEMENT COORDINATE SYSTEM\r\nC\r\nC     1. SET UP THE EDGE VECTORS AND THEIR LENGTHS\r\nC\r\n      DO 140 I = 1,NNODE\r\n      X(I) = BGPDT(2,I)\r\n      Y(I) = BGPDT(3,I)\r\n      Z(I) = BGPDT(4,I)\r\n  140 CONTINUE\r\nC\r\n      CENT(1) = (X(1)+X(2)+X(3))/3.0D0\r\n      CENT(2) = (Y(1)+Y(2)+Y(3))/3.0D0\r\n      CENT(3) = (Z(1)+Z(2)+Z(3))/3.0D0\r\nC\r\n      EDG12(1) = X(2) - X(1)\r\n      EDG12(2) = Y(2) - Y(1)\r\n      EDG12(3) = Z(2) - Z(1)\r\n      EDGLEN(1)= EDG12(1)**2 + EDG12(2)**2 + EDG12(3)**2\r\n      IF (EDGLEN(1) .EQ. 0.0D0) GO TO 380\r\n      EDGLEN(1) = DSQRT(EDGLEN(1))\r\nC\r\n      EDG23(1) = X(3) - X(2)\r\n      EDG23(2) = Y(3) - Y(2)\r\n      EDG23(3) = Z(3) - Z(2)\r\n      EDGLEN(2)= EDG23(1)**2 + EDG23(2)**2 + EDG23(3)**2\r\n      IF (EDGLEN(2) .EQ. 0.0D0) GO TO 380\r\n      EDGLEN(2) = DSQRT(EDGLEN(2))\r\nC\r\n      EDG13(1) = X(3) - X(1)\r\n      EDG13(2) = Y(3) - Y(1)\r\n      EDG13(3) = Z(3) - Z(1)\r\n      EDGLEN(3)= EDG13(1)**2 + EDG13(2)**2 + EDG13(3)**2\r\n      IF (EDGLEN(3) .EQ. 0.0D0) GO TO 380\r\n      EDGLEN(3) = DSQRT(EDGLEN(3))\r\nC\r\nC     2. FIND THE SMALLEST EDGE LENGTH\r\nC\r\n      SMALL = EDGLEN(1)\r\n      NODEI = 3\r\n      NODEJ = 1\r\n      NODEK = 2\r\nC\r\n      IF (EDGLEN(2) .GE. SMALL) GO TO 160\r\n      SMALL = EDGLEN(2)\r\n      NODEI = 1\r\n      NODEJ = 2\r\n      NODEK = 3\r\n  160 IF (EDGLEN(3) .GE. SMALL) GO TO 180\r\n      SMALL = EDGLEN(3)\r\n      NODEI = 2\r\n      NODEJ = 1\r\n      NODEK = 3\r\nC\r\nC     3. ESTABLISH AXIS 3 AND NORMALIZE IT\r\nC\r\n  180 CALL DAXB (EDG12,EDG13,AXIS(1,3))\r\nC\r\n      LENGTH = DSQRT(AXIS(1,3)**2 + AXIS(2,3)**2 + AXIS(3,3)**2)\r\n      AXIS(1,3) = AXIS(1,3)/LENGTH\r\n      AXIS(2,3) = AXIS(2,3)/LENGTH\r\n      AXIS(3,3) = AXIS(3,3)/LENGTH\r\n      AREA2     = LENGTH\r\nC\r\nC     4. ESTABLISH AXES 1 AND 2 AND NORMALIZE THEM\r\nC\r\n      AXIS(1,1) = (X(NODEJ)+X(NODEK))/2.0D0 - X(NODEI)\r\n      AXIS(2,1) = (Y(NODEJ)+Y(NODEK))/2.0D0 - Y(NODEI)\r\n      AXIS(3,1) = (Z(NODEJ)+Z(NODEK))/2.0D0 - Z(NODEI)\r\nC\r\n      LENGTH = DSQRT(AXIS(1,1)**2 + AXIS(2,1)**2 + AXIS(3,1)**2)\r\n      AXIS(1,1) = AXIS(1,1)/LENGTH\r\n      AXIS(2,1) = AXIS(2,1)/LENGTH\r\n      AXIS(3,1) = AXIS(3,1)/LENGTH\r\nC\r\n      CALL DAXB (AXIS(1,3),AXIS(1,1),AXIS(1,2))\r\nC\r\n      DO 200 I = 1,3\r\n      TEB(I  ) = AXIS(I,1)\r\n      TEB(I+3) = AXIS(I,2)\r\n      TEB(I+6) = AXIS(I,3)\r\n  200 CONTINUE\r\nC\r\n      LX = LENGTH\r\n      LY = AREA2/LX\r\nC\r\nC\r\nC     THE ELEMENT COORDINATE SYSTEM IS NOW READY\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL\r\nC     ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(3) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST  G1,G2,....\r\nC     THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE\r\nC     CONNECTION BULK DATA CARD DESCRIPTION.\r\nC\r\n      DO 220 I = 1,NNODE\r\n      KSIL(I) = SIL(I)\r\n  220 CONTINUE\r\nC\r\n      DO 260 I = 1,NNODE\r\n      ITEMP = 1\r\n      ISIL = KSIL(1)\r\n      DO 240 J = 2,NNODE\r\n      IF (ISIL .LE. KSIL(J)) GO TO 240\r\n      ITEMP = J\r\n      ISIL = KSIL(J)\r\n  240 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  260 CONTINUE\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA\r\nC     INTO INCREASING SIL ORDER.\r\nC\r\n      DO 280 I = 1,NNODE\r\n      KSIL(I) = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      DO 280 J = 1,4\r\n      IGRID(J,I) = IGPDT(J,I)\r\n  280 CONTINUE\r\n      DO 300 I = 1,NNODE\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      GPTH(I)= TMPTHK(IPOINT)\r\n      DO 300 J = 1,4\r\n      IGPDT(J,I) = IGRID(J,IPOINT)\r\n      JGPDT(J,I) = IGPDT(J,I)\r\n  300 CONTINUE\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS MUST BE TRANSFORMED\r\nC     FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM\r\nC\r\n      DO 320 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 320 J = 1,NNODE\r\n      EGPDT(I+1,J) = 0.0D0\r\n      DO 320 K = 1,3\r\n      CC = DBLE(BGPDT((K+1),J)) - CENT(K)\r\n      EGPDT(I+1,J) = EGPDT(I+1,J) + TEB(IP+K)*CC\r\n  320 CONTINUE\r\nC\r\nC     SET NODAL NORMALS\r\nC\r\n      DO 340 I = 1,NNODE\r\n      EPNORM(1,I) = 0.0D0\r\n      EPNORM(2,I) = 0.0D0\r\n      EPNORM(3,I) = 0.0D0\r\n      EPNORM(4,I) = 1.0D0\r\n      GPNORM(1,I) = 0.0D0\r\n      GPNORM(2,I) = TEB(7)\r\n      GPNORM(3,I) = TEB(8)\r\n      GPNORM(4,I) = TEB(9)\r\n  340 CONTINUE\r\nC\r\nC     SET NODAL THICKNESSES\r\nC\r\n      AVGTHK = 0.0D0\r\n      DO 370 I = 1,NNODE\r\n      IF (GPTH(I)) 380,350,360\r\n  350 IF (ELTH .LE. 0) GO TO 380\r\n      GPTH(I) = ELTH\r\n  360 DGPTH(I) = DBLE(GPTH(I))\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  370 CONTINUE\r\n      GO TO 400\r\nC\r\n  380 IERR = 1\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/t3sets.f",
    "content": "      SUBROUTINE T3SETS (IERR,SIL,JGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,\r\n     1           EPNORM,IORDER,TEB,TUB,CENT,AVGTHK,LX,LY,EDGLEN,ELID)\r\nC\r\nC     SINGLE PRECISION ROUTINE TO DO THE SET-UP FOR TRIA3 ELEMENTS\r\nC\r\nC\r\nC     INPUT :\r\nC           SIL    - ARRAY OF SIL NUMBERS\r\nC           JGPDT  - BGPDT DATA (INTEGER ARRAY)\r\nC           ELTH   - ELEMENT THICKNESS FROM EPT\r\nC           GPTH   - GRID POINT THICKNESS DATA\r\nC           ELID   - ELEMENT ID\r\nC     OUTPUT:\r\nC           IERR   - ERROR FLAG\r\nC           SIL    - ARRAY OF SIL NUMBERS       (REARRANGED)\r\nC           JGPDT  - BGPDT DATA (INTEGER ARRAY) (REARRANGED)\r\nC           GPTH   - GRID POINT THICKNESS DATA  (REARRANGED)\r\nC           DGPTH  - GRID POINT THICKNESS DATA  (HIGH PREC)\r\nC           EGPDT  - BGPDT DATA IN ELEMENT COORD. SYSTEM\r\nC           GPNORM - GRID POINT NORMALS\r\nC           EPNORM - GRID POINT NORMALS IN ELEMENT COORD .SYSTEM\r\nC           IORDER - ARRAY OF ORDER INDICATORS FOR REARRANGED DATA\r\nC           TEB    - TRANSFORMATION FROM ELEMENT TO BASIC COORD. SYSTEM\r\nC           TUB    - TRANSFORMATION FROM USER TO BASIC COORD. SYSTEM\r\nC           CENT   - LOCATION OF THE CENTER OF THE ELEMENT\r\nC           AVGTHK - AVERAGE THICKNESS OF THE ELEMENT\r\nC           LX     - DIMENSION OF ELEMENT ALONG X-AXIS\r\nC           LY     - DIMENSION OF ELEMENT ALONG Y-AXIS\r\nC           EDGLEN - EDGE LENGTHS\r\nC\r\nC\r\n      INTEGER          IGPDT(4,3),JGPDT(4,3),IGRID(4,3),SIL(3),\r\n     1                 IORDER(3),KSIL(3),ELID\r\n      REAL             BGPDT(4,3),GPTH(3),TMPTHK(3)\r\n      REAL             CENT(3),EGPDT(4,3),GGU(9),TEB(9),TUB(9),CC,\r\n     1                 DGPTH(3),GPNORM(4,3),EPNORM(4,3),AVGTHK,LX,LY,\r\n     2                 AREA2,LENGTH,SMALL,X(3),Y(3),Z(3),EDG12(3),\r\n     3                 EDG23(3),EDG13(3),EDGLEN(3),AXIS(3,3)\r\n      EQUIVALENCE      (IGPDT(1,1),BGPDT(1,1))\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      IERR  = 0\r\n      NNODE = 3\r\nC\r\n      DO 100 I = 1,NNODE\r\n      DO 100 J = 1,4\r\n      IGPDT(J,I) = JGPDT(J,I)\r\n  100 CONTINUE\r\nC\r\nC     SET UP THE USER COORDINATE SYSTEM\r\nC\r\n      DO 120 I = 1,3\r\n      II = (I-1)*3\r\n      DO 120 J = 1,3\r\n      GGU(II+J) = BGPDT(J+1,I)\r\n  120 CONTINUE\r\n      CALL BETRNS (TUB,GGU,0,ELID)\r\nC\r\nC     SET UP THE ELEMENT COORDINATE SYSTEM\r\nC\r\nC     1. SET UP THE EDGE VECTORS AND THEIR LENGTHS\r\nC\r\n      DO 140 I = 1,NNODE\r\n      X(I) = BGPDT(2,I)\r\n      Y(I) = BGPDT(3,I)\r\n      Z(I) = BGPDT(4,I)\r\n  140 CONTINUE\r\nC\r\n      CENT(1) = (X(1)+X(2)+X(3))/3.0\r\n      CENT(2) = (Y(1)+Y(2)+Y(3))/3.0\r\n      CENT(3) = (Z(1)+Z(2)+Z(3))/3.0\r\nC\r\n      EDG12(1) = X(2) - X(1)\r\n      EDG12(2) = Y(2) - Y(1)\r\n      EDG12(3) = Z(2) - Z(1)\r\n      EDGLEN(1)= EDG12(1)**2 + EDG12(2)**2 + EDG12(3)**2\r\n      IF (EDGLEN(1) .EQ. 0.0) GO TO 380\r\n      EDGLEN(1) = SQRT(EDGLEN(1))\r\nC\r\n      EDG23(1) = X(3) - X(2)\r\n      EDG23(2) = Y(3) - Y(2)\r\n      EDG23(3) = Z(3) - Z(2)\r\n      EDGLEN(2)= EDG23(1)**2 + EDG23(2)**2 + EDG23(3)**2\r\n      IF (EDGLEN(2) .EQ. 0.0) GO TO 380\r\n      EDGLEN(2) = SQRT(EDGLEN(2))\r\nC\r\n      EDG13(1) = X(3) - X(1)\r\n      EDG13(2) = Y(3) - Y(1)\r\n      EDG13(3) = Z(3) - Z(1)\r\n      EDGLEN(3)= EDG13(1)**2 + EDG13(2)**2 + EDG13(3)**2\r\n      IF (EDGLEN(3) .EQ. 0.0) GO TO 380\r\n      EDGLEN(3) = SQRT(EDGLEN(3))\r\nC\r\nC     2. FIND THE SMALLEST EDGE LENGTH\r\nC\r\n      SMALL = EDGLEN(1)\r\n      NODEI = 3\r\n      NODEJ = 1\r\n      NODEK = 2\r\nC\r\n      IF (EDGLEN(2) .GE. SMALL) GO TO 160\r\n      SMALL = EDGLEN(2)\r\n      NODEI = 1\r\n      NODEJ = 2\r\n      NODEK = 3\r\n  160 IF (EDGLEN(3) .GE. SMALL) GO TO 180\r\n      SMALL = EDGLEN(3)\r\n      NODEI = 2\r\n      NODEJ = 1\r\n      NODEK = 3\r\nC\r\nC     3. ESTABLISH AXIS 3 AND NORMALIZE IT\r\nC\r\n  180 CALL SAXB (EDG12,EDG13,AXIS(1,3))\r\nC\r\n      LENGTH = SQRT(AXIS(1,3)**2 + AXIS(2,3)**2 + AXIS(3,3)**2)\r\n      AXIS(1,3) = AXIS(1,3)/LENGTH\r\n      AXIS(2,3) = AXIS(2,3)/LENGTH\r\n      AXIS(3,3) = AXIS(3,3)/LENGTH\r\n      AREA2     = LENGTH\r\nC\r\nC     4. ESTABLISH AXES 1 AND 2 AND NORMALIZE THEM\r\nC\r\n      AXIS(1,1) = (X(NODEJ)+X(NODEK))/2.0 - X(NODEI)\r\n      AXIS(2,1) = (Y(NODEJ)+Y(NODEK))/2.0 - Y(NODEI)\r\n      AXIS(3,1) = (Z(NODEJ)+Z(NODEK))/2.0 - Z(NODEI)\r\nC\r\n      LENGTH = SQRT(AXIS(1,1)**2 + AXIS(2,1)**2 + AXIS(3,1)**2)\r\n      AXIS(1,1) = AXIS(1,1)/LENGTH\r\n      AXIS(2,1) = AXIS(2,1)/LENGTH\r\n      AXIS(3,1) = AXIS(3,1)/LENGTH\r\nC\r\n      CALL SAXB (AXIS(1,3),AXIS(1,1),AXIS(1,2))\r\nC\r\n      DO 200 I = 1,3\r\n      TEB(I  ) = AXIS(I,1)\r\n      TEB(I+3) = AXIS(I,2)\r\n      TEB(I+6) = AXIS(I,3)\r\n  200 CONTINUE\r\nC\r\n      LX = LENGTH\r\n      LY = AREA2/LX\r\nC\r\nC\r\nC     THE ELEMENT COORDINATE SYSTEM IS NOW READY\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN INCREASING SIL\r\nC     ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(3) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE LIST  G1,G2,....\r\nC     THAT IS, THE 'I' PART OF THE 'GI' AS THEY ARE LISTED ON THE\r\nC     CONNECTION BULK DATA CARD DESCRIPTION.\r\nC\r\n      DO 220 I = 1,NNODE\r\n      KSIL(I) = SIL(I)\r\n  220 CONTINUE\r\nC\r\n      DO 260 I = 1,NNODE\r\n      ITEMP = 1\r\n      ISIL = KSIL(1)\r\n      DO 240 J = 2,NNODE\r\n      IF (ISIL .LE. KSIL(J)) GO TO 240\r\n      ITEMP = J\r\n      ISIL = KSIL(J)\r\n  240 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n  260 CONTINUE\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE GEOMETRY DATA\r\nC     INTO INCREASING SIL ORDER.\r\nC\r\n      DO 280 I = 1,NNODE\r\n      KSIL(I) = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      DO 280 J = 1,4\r\n      IGRID(J,I) = IGPDT(J,I)\r\n  280 CONTINUE\r\n      DO 300 I = 1,NNODE\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      GPTH(I)= TMPTHK(IPOINT)\r\n      DO 300 J = 1,4\r\n      IGPDT(J,I) = IGRID(J,IPOINT)\r\n      JGPDT(J,I) = IGPDT(J,I)\r\n  300 CONTINUE\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS MUST BE TRANSFORMED\r\nC     FROM THE BASIC COORD. SYSTEM TO THE ELEMENT COORD. SYSTEM\r\nC\r\n      DO 320 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 320 J = 1,NNODE\r\n      EGPDT(I+1,J) = 0.0\r\n      DO 320 K = 1,3\r\n      CC = BGPDT((K+1),J) - CENT(K)\r\n      EGPDT(I+1,J) = EGPDT(I+1,J) + TEB(IP+K)*CC\r\n  320 CONTINUE\r\nC\r\nC     SET NODAL NORMALS\r\nC\r\n      DO 340 I = 1,NNODE\r\n      EPNORM(1,I) = 0.0\r\n      EPNORM(2,I) = 0.0\r\n      EPNORM(3,I) = 0.0\r\n      EPNORM(4,I) = 1.0\r\n      GPNORM(1,I) = 0.0\r\n      GPNORM(2,I) = TEB(7)\r\n      GPNORM(3,I) = TEB(8)\r\n      GPNORM(4,I) = TEB(9)\r\n  340 CONTINUE\r\nC\r\nC     SET NODAL THICKNESSES\r\nC\r\n      AVGTHK = 0.0\r\n      DO 370 I = 1,NNODE\r\n      IF (GPTH(I)) 380,350,360\r\n  350 IF (ELTH .LE. 0.0) GO TO 380\r\n      GPTH(I) = ELTH\r\n  360 DGPTH(I) = GPTH(I)\r\n      AVGTHK = AVGTHK + DGPTH(I)/NNODE\r\n  370 CONTINUE\r\n      GO TO 400\r\nC\r\n  380 IERR = 1\r\n  400 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1.f",
    "content": "      SUBROUTINE TA1\r\nC\r\nC     TA1 CONTROLS THE EXECUTION OF THE TABLE ASSEMBLER.\r\nC\r\nC     DMAP CALL IS\r\nC\r\nC     TA1   ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,\r\nC           ECPT,GPCT,MPTX,PCOMPS,EPTX/V,N,LUSET/V,N,NOSIMP=-1/\r\nC           V,N,NOSUP=-1,1,2/V,N,NOGENEL=-1/V,N,GENEL/V,N,COMPS=1 $\r\nC\r\nC\r\nC     EITHER THE GPECT OR BOTH GPECT AND ECPT, GPCT MAY BE GENERATED.\r\nC     IF NOSUP .EQ. 1, GENERATE GPECT. IF NOSUP .EQ. 2 , GENERATE ALL.\r\nC     IF NOSUP .LT. 0, GENERATE NONE.\r\nC\r\nC   1. TA1 EXECUTES TA1A WHICH BUILDS THE ELEMENT SUMMARY TABLE (EST)\r\nC   2. TA1 EXECUTES TA1B WHICH BUILDS THE ELEMENT CONNECTION AND\r\nC      PROPERTIES TABLE (ECPT) AND THE GRID POINT CONNECTION TABLE(GPCT)\r\nC   3. IF GENERAL ELEMENTS ARE PRESENT, TA1 EXECUTES TA1C WHICH BUILDS\r\nC      THE GENERAL ELEMENT INPUT (GEI).\r\nC   4. IF LAMINATED COMPOSITE ELEMENTS ARE PRESENT, TA1 EXECUTES\r\nC      TA1CPS/D WHICH -\r\nC      (1) CREATES PCOMPS DATA, WHICH INCLUDES THE ECHOING OF\r\nC          INTRINSIC LAYER PROPERTIES, AND\r\nC      (2) CALCULATES OVERALL MATERIAL PROPERTIES.\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GENL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,\r\n     1                ECPT  ,GPCT  ,SCR1  ,SCR2  ,TWO   ,EST   ,\r\n     2                ANDF  ,SCR3  ,SCR4  ,GEI   ,CSTM  ,GPECT ,\r\n     3                PCOMPS,EPTX  ,COMPS ,EQEXIN,GENEL(2)\r\n      DIMENSION       MCB(7)\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /SYSTEM/ ISYSTM(54)   ,IPREC\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4  ,EQEXIN\r\n      COMMON /TWO   / TWO(32)\r\n      DATA    GENEL / 4301 , 43 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      CALL DELSET\r\n      ECT    = 101\r\n      EPT    = 102\r\n      BGPDT  = 103\r\n      SIL    = 104\r\n      GPTT   = 105\r\n      CSTM   = 106\r\n      MPT    = 107\r\n      EQEXIN = 108\r\nC\r\n      EST    = 201\r\n      GEI    = 202\r\n      GPECT  = 203\r\n      ECPT   = 204\r\n      GPCT   = 205\r\n      MPTX   = 206\r\n      PCOMPS = 207\r\n      EPTX   = 208\r\nC\r\n      SCR1   = 301\r\n      SCR2   = 302\r\n      SCR3   = 303\r\n      SCR4   = 304\r\nC\r\nC     TEST FOR PRESENCE OF GENERAL ELEMENTS\r\nC\r\n      NOGENL = -1\r\n      MCB(1) = ECT\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LT. 0) GO TO 100\r\n      J = (GENEL(2)-1)/16\r\n      K =  GENEL(2)-16*J\r\n      IF (ANDF(MCB(J+2),TWO(K+16)) .NE. 0) NOGENL = 1\r\nC\r\nC     EXECUTE TA1A FOR ALL PROBLEMS\r\nC\r\n  100 CALL TA1A\r\nC\r\nC     EXECUTE TA1CPD/S TO BUILD PCOMPS DATA\r\nC\r\n      IF (NOSUP .EQ. 0) GO TO 300\r\n      IF (COMPS .NE.-1) GO TO 200\r\n      IF (IPREC .EQ. 1) CALL TA1CPS\r\n      IF (IPREC .EQ. 2) CALL TA1CPD\r\n  200 IF (NOSUP .EQ. 1) GO TO 400\r\nC\r\nC     EXECUTE TA1B IF SIMPLE ELEMENTS ARE PRESENT\r\nC\r\n  300 IF (NOSIMP.GT. 0) CALL TA1B\r\n      IF (NOSUP .EQ. 0) GO TO 500\r\nC\r\nC     CALL TA1H TO GENERATE GPECT\r\nC\r\n  400 IF (NOSIMP .GT. 0) CALL TA1H\r\nC\r\nC     EXECUTE TA1C IF GENERAL ELEMENTS ARE PRESENT\r\nC\r\n  500 IF (NOGENL .GT. 0) CALL TA1C\r\n      GENL = -NOGENL\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1a.f",
    "content": "      SUBROUTINE TA1A\r\nC\r\nC     TA1A BUILDS THE ELEMENT SUMMARY TABLE (EST).\r\nC     THE EST GROUPS ECT, EPT, BGPDT AND ELEMENT TEMP. DATA FOR EACH\r\nC     SIMPLE ELEMENT OF THE STRUCTURE. THE EST CONTAINS ONE LOGICAL\r\nC     RECORD PER SIMPLE ELEMENT TYPE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         EORFLG,ENDID ,RECORD,FRSTIM,Q4T3\r\n      INTEGER         ZEROS(4)     ,BUF(50)      ,NAM(2),GPSAV(34)    ,\r\n     1                PCOMP(2)     ,PCOMP1(2)    ,PCOMP2(2)           ,\r\n     2                IPSHEL(16)\r\n      REAL            DEFTMP,TLAM  ,ZOFFS ,ZZ(1) ,BUFR(50)            ,\r\n     1                TGRID(33)    ,RPSHEL(16)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /GPTA1 / NELEM ,LAST  ,INCR  ,ELEM(1)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,IDFTMP,\r\n     1                IBACK ,RECORD,OLDEID\r\n      COMMON /TA1ACM/ IG(90)\r\n      COMMON /TWO   / KTWO(32)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF ) , (KSYSTM( 2),NOUT ) ,\r\n     1                (KSYSTM(10),TEMPID ) , (KSYSTM(56),IHEAT) ,\r\n     2                (IDFTMP    ,DEFTMP ) , (BUFR(1)   ,BUF(1)),\r\n     3                (Z(1)      ,ZZ(1)  ) , (IPSHEL( 1),RPSHEL(1))\r\n      DATA    NAM   / 4HTA1A,4H    /\r\n      DATA    ZEROS / 4*0   /\r\n      DATA    BAR   / 34    /\r\n      DATA    HBDY  / 52    /\r\n      DATA    QDMEM2/ 63    /\r\n      DATA    QUAD4 / 64    /\r\n      DATA    TRIA3 / 83    /\r\n      DATA    PCOMP / 5502, 55 /\r\n      DATA    PCOMP1/ 5602, 56 /\r\n      DATA    PCOMP2/ 5702, 57 /\r\n      DATA    SYM   / 1     /\r\n      DATA    MEM   / 2     /\r\n      DATA    SYMMEM/ 3     /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      IF (NELEM .GT. 90) GO TO 1190\r\n      BUF1  = KORSZ(Z) - SYSBUF - 2\r\n      BUF2  = BUF1 - SYSBUF - 3\r\n      BUF3  = BUF2 - SYSBUF\r\n      FRSTIM= .TRUE.\r\n      LSTPRP= 0\r\n      KSCALR= 0\r\n      ITABL = 0\r\n      NOSIMP=-1\r\n      NOGOX = 0\r\n      NOGO  = 0\r\n      M8    =-8\r\n      COMPS = 1\r\n      NOPSHL=-1\r\n      NPSHEL= 0\r\n      OLDID = 0\r\n      CALL SSWTCH (40,L40)\r\nC\r\nC     READ THE ELEMENT CONNECTION TABLE.\r\nC     IF PROPERTY DATA IS DEFINED FOR THE ELEMENT, READ THE EPT INTO\r\nC     CORE AND SORT IF REQUIRED. THEN FOR EACH ECT ENTRY, LOOK UP AND\r\nC     ATTACH THE PROPERTY DATA. WRITE ECT+EPT ON SCR1.\r\nC     IF PROPERTY DATA NOT DEFINED FOR ELEMENT, COPY ECT DATA ON SCR1.\r\nC     IF NO SIMPLE ELEMENTS IN ECT, RETURN.\r\nC\r\nC     FOR THE PLATE AND SHELL ELEMENTS REFERENCING PCOMP, PCOMP1 OR\r\nC     PCOMP2 BULK DATA ENTRIES, PROPERTY DATA IN THE FORM OF PSHELL\r\nC     BULK DATA ENTRY IS CALLED AND WRITTEN TO SCR1\r\nC\r\n      FILE = ECT\r\n      CALL OPEN (*540,ECT,Z(BUF1),RDREW)\r\n      CALL SKPREC (ECT,1)\r\n      FILE = SCR1\r\n      CALL OPEN (*1100,SCR1,Z(BUF3),WRTREW)\r\n      BUF(1) = EPT\r\n      CALL RDTRL(BUF)\r\n      NOEPT = BUF(1)\r\n      IF (BUF(1) .LT. 0) GO TO 10\r\n      CALL PRELOC (*10,Z(BUF2),EPT)\r\nC\r\nC     LOCATE, ONE AT A TIME, SIMPLE ELEMENT TYPE IN ECT. IF PRESENT,\r\nC     WRITE POINTER ON  SCR1. SET POINTERS AND, IF DEFINED, LOCATE AND\r\nC     READ ALL PROPERTY DATA FROM EPT.\r\nC\r\n   10 CALL ECTLOC (*200,ECT,BUF,I)\r\n      ID = -1\r\n      ELTYPE = ELEM(I+2)\r\n      CALL WRITE (SCR1,I,1,0)\r\n      Q4T3 = .FALSE.\r\n      IF (ELTYPE.EQ.QUAD4 .OR. ELTYPE.EQ.TRIA3) Q4T3 = .TRUE.\r\n      IF (ELEM(I+10) .EQ. 0) KSCALR = 1\r\n      M  = ELEM(I+5)\r\n      MM = ELEM(I+8)\r\n      IF (MM .EQ. 0) GO TO 120\r\n      MX = MM\r\n      NOPROP = 0\r\n      IF (ELEM(I+6) .NE. LSTPRP) GO TO 20\r\n      IF (ELTYPE    .EQ. QDMEM2) NOPROP = 1\r\n      GO TO 80\r\n   20 IF (NOEPT .LT. 0) GO TO 1130\r\nC\r\nC     LOCATE PROPERTY CARD\r\nC\r\n      LL = 0\r\n      CALL LOCATE (*50,Z(BUF2),ELEM(I+6),FLAG)\r\n      NOPROP = 1\r\n   30 LSTPRP = ELEM(I+6)\r\n   40 IF (LL+MM .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\n      IF (NOPROP .EQ. 0) GO TO 80\r\n      CALL READ (*1110,*55,EPT,Z(LL+1),MM,0,FLAG)\r\n      LL = LL + MM\r\n      GO TO 40\r\nC\r\nC     CHECK FOR QUAD4 AND TRIA3 ELEMENTS WITH ONLY PCOMP CARDS\r\nC\r\nC     SET POINTER FOR NO PSHELL DATA, AND\r\nC     READ PCOMP, PCOMP1 AND PCOMP2 DATA INTO CORE\r\nC\r\n   50 IF (.NOT.Q4T3) GO TO 60\r\n      NOPSHL = 1\r\n      GO TO 700\r\nC\r\nC     CHECK FOR QUAD4 AND TRIA3 ELEMENTS WITH BOTH PCOMP AND PSHELL\r\nC     CARDS\r\nC\r\nC     IF LL.GT.0 HERE, PSHELL DATA IS PRESENT,\r\nC     NEED TO CHECK THE PRESENCE OF PCOMP DATA, AND RESET NOPSHL POINTER\r\nC     IF NECCESSARY\r\nC\r\nC     EVENTUALLY, WE WILL HAVE\r\nC\r\nC     NOPSHL =-1, LOGIC ERROR FOR QUAD4/TRIA3 PROPERTY DATA\r\nC            = 0, ONLY PSHELL DATA PRESENT\r\nC            = 1, ONLY PCOMP TYPE DATA PRESENT\r\nC            = 2, BOTH PSHELL AND PCOMP DATA PRESENT (SEE STA.760)\r\nC\r\n   55 IF (.NOT.Q4T3) GO TO 70\r\n      IF (LL .LE. 0) GO TO 700\r\n      NOPSHL = 0\r\n      GO TO 70\r\nC\r\n   60 IF (NOPROP .EQ. 0) GO TO 1130\r\nC\r\nC     Z(1) THRU Z(LL) CONTAIN PROPERTY DATA\r\nC\r\n   70 IF (MM .LE. 4) CALL SORT (0,0,MM,1,Z(1),LL)\r\n      KN = LL/MM\r\n      IF (NOPSHL .EQ. 0) GO TO 700\r\nC\r\nC     READ ECT DATA FOR ELEMENT. LOOK UP PROPERTY DATA IF CURRENT ELEM.\r\nC     HAS A PROPERTY ID DIFFERNENT FROM THAT OF THE PREVIOUS ELEMENT.\r\nC     WRITE ECT + EPT (OR NEW GENERATED PSHELL) DATA ON SCR1.\r\nC\r\n   80 CALL READ (*1110,*140,ECT,BUF,M,0,FLAG)\r\n      NOSIMP = NOSIMP + 1\r\n      IF (BUF(2) .NE. ID) NOPROP = 1\r\n      ID = BUF(2)\r\n      BUF(2) = BUF(1)\r\n      BUF(1) = M + MM - 2\r\n      IF (NOPROP .EQ. 0) GO TO 90\r\n      IF (Q4T3 .AND. NOPSHL.EQ.1) GO TO 800\r\n      NPSHEL = 0\r\n      GO TO 600\r\n   90 CALL WRITE (SCR1,BUF(1),M,0)\r\n      IF (.NOT.Q4T3) GO TO 100\r\n      IF (NPSHEL .EQ. 1) GO TO 110\r\n  100 CALL WRITE (SCR1,Z(KX+2),MM-1,0)\r\n      NPSHEL = 0\r\n      NOPROP = 0\r\n      GO TO 80\r\n  110 CALL WRITE (SCR1,IPSHEL(1),MM-1,0)\r\n      NOPROP = 0\r\n      GO TO 80\r\nC\r\nC     EPT DATA NOT DEFINED FOR ELEMENT. COPY ECT DATA ON SCR1.\r\nC\r\n  120 BUF(1) = M\r\n      M1 = M + 1\r\n  130 CALL READ  (*1110,*140,ECT,BUF(2),M,0,FLAG)\r\n      CALL WRITE (SCR1,BUF(1),M1,0)\r\n      NOSIMP = NOSIMP + 1\r\n      GO TO 130\r\n  140 CALL WRITE (SCR1,0,0,1)\r\n      GO TO 10\r\nC\r\nC     HERE WHEN ALL ELEMENTS HAVE BEEN PROCESSED.\r\nC     IF NONE FOUND, EXIT.\r\nC\r\n  200 CONTINUE\r\n      IF (NOEPT .GE. 0) CALL CLOSE (EPT,CLSREW)\r\n      CALL CLOSE (SCR1,CLSREW)\r\n      IF (NOSIMP .EQ. -1) RETURN\r\n      NOSIMP = NOSIMP + 1\r\nC\r\nC     READ THE BGPDT INTO CORE (UNLESS ALL SCALAR PROBLEM).\r\nC     READ THE SIL INTO CORE.\r\nC\r\n      NBGP = 0\r\n      IF (KSCALR .EQ. 0) GO TO 220\r\n      FILE = BGPDT\r\n      CALL OPEN   (*1100,BGPDT,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1110,BGPDT)\r\n      CALL READ   (*1110,*210,BGPDT,Z(1),BUF2,1,NBGP)\r\n      CALL MESAGE (M8,0,NAM)\r\n  210 CALL CLOSE  (BGPDT,CLSREW)\r\n  220 FILE = SIL\r\n      CALL OPEN   (*1100,SIL,Z(BUF1),RDREW)\r\n      CALL FWDREC (*1110,SIL)\r\n      CALL READ   (*1110,*230,SIL,Z(NBGP+1),BUF2-NBGP,1,NSIL)\r\n      CALL MESAGE (M8,0,NAM)\r\n  230 CALL CLOSE  (SIL,CLSREW)\r\nC\r\nC     IF TEMP DEPENDENT MATERIALS IN PROBLEM,\r\nC     OPEN GPTT AND POSITION TO PROPER THERMAL RECORD\r\nC\r\n      RECORD = .FALSE.\r\n      ITEMP  = TEMPID\r\n      IF (TEMPID .EQ. 0) GO TO 310\r\n      FILE = GPTT\r\n      CALL OPEN (*1160,GPTT,Z(BUF3),RDREW)\r\n      ITMPID = NBGP+NSIL+3\r\n      CALL READ (*1110,*240,GPTT,Z(ITMPID-2),BUF2-ITMPID,1,NID)\r\n      CALL MESAGE (-8,0,NAM)\r\n  240 NTMPID = ITMPID - 5 + NID\r\n      DO 250 I = ITMPID,NTMPID,3\r\n      IF (TEMPID .EQ. Z(I)) GO TO 260\r\n  250 CONTINUE\r\n      GO TO 1160\r\n  260 IDFTMP = Z(I+1)\r\n      IF (IDFTMP .NE. -1) DEFTMP = ZZ(I+1)\r\n      N = Z(I+2)\r\n      IF (N .EQ. 0) GO TO 310\r\n      RECORD =.TRUE.\r\n      N = N - 1\r\n      IF (N .EQ. 0) GO TO 280\r\n      DO 270 I = 1,N\r\n      CALL FWDREC (*1110,GPTT)\r\n  270 CONTINUE\r\nC\r\nC     READ SET ID AND VERIFY FOR CORRECTNESS\r\nC\r\n  280 CALL READ (*1110,*1120,GPTT,ISET,1,0,FLAG)\r\n      IF (ISET .EQ. TEMPID) GO TO 300\r\n      WRITE  (NOUT, 290) SFM,ISET,TEMPID\r\n  290 FORMAT (A25,' 4020, TA1A HAS PICKED UP TEMPERATURE SET',I9,\r\n     1       ' AND NOT THE REQUESTED SET',I9)\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     INITIALIZE /TA1ETT/ VARIABLES\r\nC\r\n  300 OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG =.FALSE.\r\n      ENDID  =.TRUE.\r\nC\r\nC     LOOP THRU THE ECT+EPT DATA\r\nC     CONVERT INTERNAL GRID POINT INDICES TO SIL VALUES FOR EACH NON-\r\nC     SCALER ELEMENT, ATTACH THE BGPDT DATA AND,\r\nC     IF A TEMPERATURE PROBLEM, COMPUTE THE ELEMENT TEMP FROM THE GPTT\r\nC     DATA OR SUBSTITUTE THE DEFAULT TEMP.\r\nC     WRITE THE RESULT ON THE EST, ONE RECORD PER ELEMENT TYPE\r\nC\r\n  310 CALL OPEN  (*1100,SCR1,Z(BUF1),RDREW)\r\n      CALL OPEN  (*1100,EST,Z(BUF2),WRTREW)\r\n      CALL FNAME (EST,BUF)\r\n      CALL WRITE (EST,BUF,2,1)\r\n      LOCBGP = 1\r\nC\r\nC     RESET SOME OF THE /TA1ACM/ VALUES IF IT IS A -HEAT- FORMULATION\r\nC\r\n      IF (IHEAT .LE. 0) GO TO 320\r\nC\r\nC     TRIARG ELEMENT (TYPE 36)\r\n      IG(36) = 14\r\nC\r\nC     TRAPRG ELEMENT (TYPE 37)\r\n      IG(37) = 14\r\nC\r\nC     REPLACE QDMEM1 ELEMENT (TYPE 62) BY QDMEM ELEMENT (TYPE 16)\r\n      IG(62) = 14\r\nC\r\nC     REPLACE QDMEM2 ELEMENT (TYPE 63) BY QDMEM ELEMENT (TYPE 16)\r\n      IG(63) = 14\r\nC\r\nC     READ POINTER FROM SCR1. WRITE ELEMENT TYPE ON EST.\r\nC     SET POINTERS FOR CONVERSION OF GRID NOS TO SIL VALUES.\r\nC\r\n  320 CALL READ (*500,*1120,SCR1,I,1,0,FLAG)\r\n      ELTYPE = ELEM(I+2)\r\n      CALL WRITE (EST,ELTYPE,1,0)\r\nC\r\nC     ELEMENT TYPE  USED TO INDEX INTO /TA1ACM/\r\nC     AND SET USED  /OPEN CORE/  BLOCKS NEGATIVE\r\nC\r\n      IG(ELTYPE) = -IG(ELTYPE)\r\n      NAME  = ELEM(I   )\r\n      JSCALR= ELEM(I+10)\r\n      MM    = ELEM(I+ 9)\r\n      LX    = ELEM(I+12)\r\n      IF (ELEM(I+8) .EQ. 0) LX = LX + 1\r\n      MM    = LX + MM - 1\r\n      JTEMP = ELEM(I+13)\r\n      NTEMP = 1\r\n      IF (JTEMP .EQ. 4) NTEMP = ELEM(I+14) - 1\r\nC         IHEX1/2/3,TRIM6\r\nC\r\nC     READ ECT + EPT DATA FOR ELEMENT FROM SCR1.\r\nC\r\n  330 CALL READ (*1110,*400,SCR1,BUF,1,0,FLAG)\r\n      CALL READ (*1110,*1120,SCR1,BUF(2),BUF(1),0,FLAG)\r\nC\r\n      IF (NOGO.NE.0 .OR. NOGOX.NE.0) GO TO 350\r\n      IF (ELTYPE .NE. BAR) GO TO 350\r\nC\r\nC     FOR BAR AND BEAM ELEMENTS, STORE COORDINATES AND\r\nC     COORDINATE SYSTEM ID FOR ORIENTATION VECTOR.\r\nC\r\n      KX = 4*(BUF(3)-1) + LOCBGP\r\n      IF (BUF(8) .EQ. 1) GO TO 340\r\n      BUF(8) = BUF(5)\r\n      IF (BUF(8) .EQ. 0) GO TO 340\r\n      K = 4*(BUF(8)-1)  + LOCBGP\r\n      BUFR(5) = ZZ(K+1) - ZZ(KX+1)\r\n      BUFR(6) = ZZ(K+2) - ZZ(KX+2)\r\n      BUFR(7) = ZZ(K+3) - ZZ(KX+3)\r\n      BUF(8)  = 0\r\n      GO TO 350\r\n  340 BUF(8)  = Z(KX)\r\nC\r\nC     SAVE INTERNAL GRID NOS, THEN CONVERT TO SIL NOS\r\nC     AND WRITE ECT + EPT DATA ON EST.\r\nC\r\n  350 DO 360 L = LX,MM\r\n      GPSAV(L) = 0\r\n      IF (BUF(L) .EQ. 0) GO TO 360\r\n      GPSAV(L) = BUF(L)\r\n      K = GPSAV(L) + NBGP\r\n      BUF(L) = Z(K)\r\n  360 CONTINUE\r\n      CALL WRITE (EST,BUF(2),BUF(1),0)\r\nC\r\nC     IF NOT SCALAR ELEMENT, PICK UP BGPDT DATA AND WRITE ON EST.\r\nC\r\n      IF (JSCALR .NE. 0) GO TO 330\r\n      DO 380 L = LX,MM\r\n      IF (GPSAV(L) .EQ. 0) GO TO 370\r\n      K = (GPSAV(L)-1)*4\r\n      CALL WRITE (EST,Z(K+1),4,0)\r\n      IF (Z(K+1) .GE. 0) GO TO 380\r\n      IF (ELTYPE.EQ.HBDY .AND. L.GT.LX+3) GO TO 380\r\n      NOGO = 1\r\n      CALL MESAGE (30,131,BUF(2))\r\n      GO TO 380\r\n  370 CALL WRITE (EST,ZEROS,4,0)\r\n  380 CONTINUE\r\nC\r\nC     ELEMENT TEMP. IS NOT USED IN CONM1 AND CONM2 (ELEM TYPES 29 30)\r\nC\r\n      TGRID(1) = 0.\r\n      IF (ELTYPE.EQ.29 .OR. ELTYPE.EQ.30) GO TO 390\r\nC\r\nC     IF NOT SCALAR ELEMENT, COMPUTE AND WRITE ELEMENT TEMP ON EST.\r\nC\r\n      CALL TA1ETD (BUF(2),TGRID,NTEMP)\r\n      IF (ELTYPE .EQ. BAR) TGRID(1) = (TGRID(1)+TGRID(2))/2.0\r\n  390 CALL WRITE (EST,TGRID,NTEMP,0)\r\n      GO TO 330\r\nC\r\nC     CLOSE EST RECORD AND RETURN FOR ANOTHER ELEMENT TYPE.\r\nC\r\n  400 CALL WRITE (EST,0,0,1)\r\n      GO TO 320\r\nC\r\nC     ALL ELEMENTS HAVE BEEN PROCESSED-- CLOSE FILES, WRITE TRAILER AND\r\nC     EXIT\r\nC\r\n  500 CALL CLOSE (SCR1,CLSREW)\r\n      CALL CLOSE (EST,CLSREW)\r\n      CALL CLOSE (GPTT,CLSREW)\r\n      BUF(1) = EST\r\n      BUF(2) = NOSIMP\r\n      IF (NOGOX .NE. 0) NOGO = 1\r\n      IF (NOGO  .NE. 0) CALL MESAGE (-61,0,0)\r\n      DO 510 I = 3,7\r\n  510 BUF(I) = 0\r\nC\r\nC     PROCESS /TA1ACM/ LOAD EST TRAILER WITH FLAGS\r\nC     TO THE USED /OPEN CORE/ BLOCKS\r\nC\r\n      DO 530 I = 1,NELEM\r\n      IF (IG(I) .GE. 0) GO TO 530\r\n      K = IG(I)\r\n      DO 520 J = I,NELEM\r\n  520 IF (IG(J) .EQ. K) IG(J) = -IG(J)\r\n      J = IG(I)\r\n      IF (J .GT. 48) CALL MESAGE (-61,I,J)\r\n      K = (J-1)/16\r\n      J = J - K*16\r\n      BUF(K+5) = BUF(K+5) + KTWO(J+16)\r\n  530 CONTINUE\r\n      CALL WRTTRL (BUF)\r\n  540 RETURN\r\nC\r\nC     **************************************************\r\nC\r\nC     INTERNAL BINARY SEARCH ROUTINE\r\nC\r\n  600 KLO = 1\r\n      KHI = KN\r\n  610 K   = (KLO+KHI+1)/2\r\n  620 KX  = (K-1)*MX + ITABL\r\n      IF (ID-Z(KX+1)) 630,90,640\r\n  630 KHI = K\r\n      GO TO 650\r\n  640 KLO = K\r\n  650 IF (KHI-KLO-1 ) 690,660,610\r\n  660 IF (K .EQ. KLO) GO TO 670\r\n      K   = KLO\r\n      GO TO 680\r\n  670 K   = KHI\r\n  680 KLO = KHI\r\n      GO TO 620\r\n  690 IF (Q4T3 .AND. NOPSHL.GE.1) GO TO 800\r\n      GO TO 1140\r\nC\r\nC     **************************************************\r\nC\r\nC     PROCESSING FOR LAMINATED COMPOSITES\r\nC\r\nC     INTERNAL SUBROUTINE TO READ PCOMP, PCOMP1 AND PCOMP2 DATA INTO\r\nC     CORE\r\nC\r\nC\r\nC     INITIALIZE VARIABLES AND SET POINTERS\r\nC\r\n  700 NPC    = 0\r\n      NPC1   = 0\r\n      NPC2   = 0\r\n      TYPC   = 0\r\n      TYPC1  = 0\r\n      TYPC2  = 0\r\n      N      = BUF3 - LL\r\nC\r\nC     LOCATE PCOMP DATA AND READ INTO CORE\r\nC\r\n      IPC  = LL + 1\r\n      CALL LOCATE (*720,Z(BUF2),PCOMP,FLAG)\r\n      CALL READ   (*1110,*710,EPT,Z(IPC),N,0,NPC)\r\n      CALL MESAGE (-8,0,NAM)\r\n  710 IF (NPC .GT. 0) TYPC = 1\r\n      N = N - NPC\r\nC\r\nC     LOCATE PCOMP1 DATA AND READ INTO CORE\r\nC\r\n  720 IPC1 = IPC + NPC\r\n      CALL LOCATE (*740,Z(BUF2),PCOMP1,FLAG)\r\n      CALL READ   (*1110,*730,EPT,Z(IPC1),N,0,NPC1)\r\n      CALL MESAGE (-8,0,NAM)\r\n  730 IF (NPC1 .GT. 0) TYPC1 = 1\r\n      N = N - NPC1\r\nC\r\nC     LOCATE PCOMP2 DATA AND READ INTO CORE\r\nC\r\n  740 IPC2 = IPC1 + NPC1\r\n      CALL LOCATE (*760,Z(BUF2),PCOMP2,FLAG)\r\n      CALL READ   (*1110,*750,EPT,Z(IPC2),N,0,NPC2)\r\n      CALL MESAGE (-8,0,NAM)\r\n  750 IF (NPC2 .GT. 0) TYPC2 = 1\r\nC\r\nC     SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE\r\nC\r\n  760 LPCOMP = IPC2 + NPC2\r\n      IF (LPCOMP-1 .GT. LL) COMPS = -1\r\nC\r\nC     CHECK FOR NO PCOMP, PCOMP1 OR PCOMP2 DATA\r\nC     SET NOPSHL TO 2 IF BOTH 'PCOMP' AND PSHELL DATA ARE PRESENT\r\nC\r\n      IF (NOPSHL.EQ.1 .AND. COMPS.EQ. 1) GO TO 1130\r\n      IF (NOPSHL.EQ.0 .AND. COMPS.EQ.-1) NOPSHL = 2\r\n      GO TO 80\r\nC\r\nC     ***************************************************************\r\nC\r\nC     INTERNAL SUBROUTINE TO LOCATE A PARTICULAR PROPERTY ID FROM THE\r\nC     'PCOMP' DATA AND TO CONVERT THE DATA TO PSHELL DATA FORMAT\r\nC\r\n  800 CONTINUE\r\nC\r\nC     Z(LL+1) THRU Z(LPCOMP) CONTAIN 'PCOMP' DATA\r\nC\r\nC     SET POINTERS\r\nC\r\n      KPC    = 4\r\n      KPC2   = 2\r\n      LEN    = 0\r\n      NLAY   = 0\r\n      EOELOC = 0\r\n      PIDLOC = 0\r\n      ITYPE  =-1\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n      IF (TYPC .EQ. 0) GO TO 850\r\n      Z(LPCOMP+1) = IPC\r\n      NPCOMP = 0\r\n      N = 2\r\nC\r\n      LPC = IPC1 - 1\r\n      DO 820 IIP = IPC,LPC\r\n      IF (Z(IIP) .NE. -1) GO TO 820\r\n      Z(LPCOMP+N  ) = IIP\r\n      Z(LPCOMP+N+1) = IIP + 1\r\n      IF (IIP .EQ. LPC) Z(LPCOMP+N+1) = 0\r\n      N = N + 2\r\n      NPCOMP = NPCOMP + 1\r\n  820 CONTINUE\r\n      IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     LOCATE PARTICULAR PID\r\nC\r\n      DO 830 IIP = 1,NPCOMP\r\n      EOELOC = Z(LPCOMP+2*IIP  )\r\n      PIDLOC = Z(LPCOMP+2*IIP-1)\r\n      IF (Z(PIDLOC) .EQ. ID) GO TO 840\r\n  830 CONTINUE\r\n      GO TO 850\r\nC\r\n  840 LEN  = EOELOC - PIDLOC\r\n      NLAY = (LEN-8)/KPC\r\n      ITYPE= 0\r\n      GO TO 940\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  850 IF (TYPC1 .EQ. 0) GO TO 890\r\nC\r\n      Z(LPCOMP+1) = IPC1\r\n      NPCOMP = 0\r\n      N = 2\r\nC\r\n      LPC1 = IPC2 - 1\r\n      DO 860 IIP1 = IPC1,LPC1\r\n      IF (Z(IIP1) .NE. -1) GO TO 860\r\n      Z(LPCOMP+N  ) = IIP1\r\n      Z(LPCOMP+N+1) = IIP1 + 1\r\n      IF (IIP1 .EQ. LPC1) Z(LPCOMP+N+1) = 0\r\n      NPCOMP = NPCOMP + 1\r\n      N = N + 2\r\n  860 CONTINUE\r\n      IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     LOCATE PARTICULAR PID\r\nC\r\n      DO 870 IIP1 = 1,NPCOMP\r\n      EOELOC = Z(LPCOMP+2*IIP1  )\r\n      PIDLOC = Z(LPCOMP+2*IIP1-1)\r\n      IF (Z(PIDLOC) .EQ. ID) GO TO 880\r\n  870 CONTINUE\r\n      GO TO 890\r\nC\r\n  880 LEN  = EOELOC - PIDLOC\r\n      NLAY = LEN - 8\r\n      ITYPE= 1\r\n      GO TO 940\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n  890 IF (TYPC2 .EQ. 0) GO TO 930\r\nC\r\n      Z(LPCOMP+1) = IPC2\r\n      NPCOMP = 0\r\n      N = 2\r\nC\r\n      LPC2 = LPCOMP - 1\r\n      DO 900 IIP2 = IPC2,LPC2\r\n      IF (Z(IIP2) .NE. -1) GO TO 900\r\n      Z(LPCOMP+N  ) = IIP2\r\n      Z(LPCOMP+N+1) = IIP2 + 1\r\n      IF (IIP2 .EQ. LPC2) Z(LPCOMP+N+1) = 0\r\n      NPCOMP = NPCOMP + 1\r\n      N = N + 2\r\n  900 CONTINUE\r\n      IF (LPCOMP+N-2 .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     LOCATE PARTICULAR PID\r\nC\r\n      DO 910 IIP2 = 1,NPCOMP\r\n      EOELOC = Z(LPCOMP+2*IIP2  )\r\n      PIDLOC = Z(LPCOMP+2*IIP2-1)\r\n      IF (Z(PIDLOC) .EQ. ID) GO TO 920\r\n  910 CONTINUE\r\n      GO TO 930\r\nC\r\n  920 LEN  = EOELOC - PIDLOC\r\n      NLAY = (LEN-8)/KPC2\r\n      ITYPE= 2\r\n      GO TO 940\r\nC\r\nC     CHECK IF PID HAS BEEN FOUND IN 'PCOMP' DATA\r\nC\r\n  930 IF (ITYPE .LT. 0) GO TO 1140\r\nC\r\nC     DETERMINE DATA TO BE WRITTEN IN THE FORM OF PSHELL AND\r\nC     WRITE TO SCR1\r\nC\r\nC     ITYPE  = 0,  PCOMP  ENTRY\r\nC            = 1,  PCOMP1 ENTRY\r\nC            = 2,  PCOMP2 ENTRY\r\nC\r\nC     CALCULATE LAMINATE THICKNESS - TLAM\r\nC\r\n  940 TLAM = 0.\r\nC\r\nC     NOTE - IF Z(PIDLOC+7) IS EQUAL TO SYM OR SYMMEM, THE OPTION\r\nC            TO MODEL EITHER A SYMMETRICAL OR SYMMETRICAL-MEMBRANE\r\nC            LAMINATE HAS BEEN EXERCISED.  THEREFORE, THE TOTAL\r\nC            THICKNESS IS TLAM = 2.0*TLAM\r\nC\r\nC     SET LAMOPT\r\nC\r\n      LAMOPT = Z(PIDLOC+7)\r\nC\r\nC     PCOMP DATA\r\nC\r\n      IF (ITYPE .GT. 0) GO TO 960\r\n      DO 950 K = 1,NLAY\r\n      II   = (PIDLOC+5) + 4*K\r\n      TLAM = TLAM + ZZ(II)\r\n  950 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\n      GO TO 1000\r\nC\r\nC     PCOMP1 DATA\r\nC\r\n  960 IF (ITYPE .GT. 1) GO TO 970\r\n      II   = PIDLOC + 6\r\n      TLAM = ZZ(II)*NLAY\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\n      GO TO 1000\r\nC\r\nC     PCOMP2 DATA\r\nC\r\n  970 DO 980 K = 1,NLAY\r\n      II   = (PIDLOC+6) + 2*K\r\n      TLAM = TLAM + ZZ(II)\r\n  980 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\nC\r\nC\r\nC     CREATE NEW PSHELL DATA AND WRITE TO ARRAY IPSHEL\r\nC     NOTE - PID IS NOT WRITTEN TO IPSHEL\r\nC\r\nC     IPSHEL DATA TO BE WRITTEN TO SCR1\r\nC     ============================================================\r\nC     IPSHEL( 1)     = MID1     MEMBRANE MATERIAL\r\nC     IPSHEL( 2)     = T        DEFAULT MEMBRANE THICKNESS\r\nC     IPSHEL( 3)     = MID2     BENDING MATERIAL\r\nC     IPSHEL( 4)     = 12I/T**3 BENDING STIFFNESS PARAMETER\r\nC     IPSHEL( 5)     = MID3     TRANVERSE SHEAR MATERIAL\r\nC     IPSHEL( 6)     = TS/T     SHEAR THICKNESS FACTOR\r\nC     IPSHEL( 7)     = NSM      NON-STRUCTURAL MASS\r\nC     IPSHEL(8,9)    = Z1,Z2    FIBRE DISTANCES\r\nC     IPSHEL(10)     = MID4     MEMBRANE-BENDING COUPLING MATERIAL\r\nC     IPSHEL(11)     = MCSID OR THETAM   //DATA FROM PSHELL\r\nC     IPSHEL(12)     = FLAGM               OVERRIDDEN BY EST(18-19)//\r\nC     IPSHEL(13)     = INTEGRATION ORDER (SET TO 0)\r\nC                     (THE INTEGRATION ORDER IS NOT USED IN THE PROGRAM,\r\nC                      BUT THIS WORD IS REQUIRED BECAUSE OF THE DESIGN\r\nC                      OF THE EST DATA FOR THE CQUAD4/TRIA3 ELEMENTS.)\r\nC     IPSHEL(14)     = SCSID OR THETAS   //DATA FROM PSHELL\r\nC     IPSHEL(15)     = FLAGS               OVERRIDDEN BY EST(20-21)//\r\nC     IPSHEL(16)     = ZOFF\r\nC\r\nC     CALCULATE ZOFFS\r\nC\r\n 1000 IF (Z(PIDLOC+1) .NE. 0) ZOFFS = ZZ(PIDLOC+1) + 0.5*TLAM\r\n      IF (Z(PIDLOC+1) .EQ. 0) ZOFFS = 0.0\r\n      IF (ABS(ZOFFS)  .LE. 0.001) ZOFFS = 0.0\r\nC\r\nC     SET POINTER TO INDICATE NEW PSHELL DATA CREATED\r\nC\r\n      NPSHEL = 1\r\nC\r\nC     INITIALIZE IPSHEL ARRAY\r\nC\r\n      DO 1010 KK = 1,16\r\n      IPSHEL(KK) = 0\r\n 1010 CONTINUE\r\nC\r\n      RPSHEL( 4) = 1.0\r\n      RPSHEL( 6) = 1.0\r\nC\r\n      IPSHEL( 1) = ID + 100000000\r\n      RPSHEL( 2) = TLAM\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020\r\n      IPSHEL( 3) = ID + 200000000\r\n      IPSHEL( 5) = ID + 300000000\r\n 1020 RPSHEL( 7) = ZZ(PIDLOC+2)\r\n      RPSHEL( 9) = 0.5*TLAM\r\n      RPSHEL( 8) =-RPSHEL(9)\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM)\r\n     1    IPSHEL(10) = ID + 400000000\r\n      IPSHEL(13) = 0\r\n      RPSHEL(16) = ZOFFS\r\nC\r\nC     DO NOT WRITE TO OUTPUT FILE IF PREVIOUS ID IS SAME AS NEW ID.\r\nC     OTHERWISE, WRITE THE NEWLY CREATED PSHELL BULK DATA ENTRY TO\r\nC     OUTPUT FILE IF DIAG 40 IS TURNED ON\r\nC\r\n      IF (OLDID .EQ. ID) GO TO 1060\r\n      IF (  .NOT.FRSTIM) GO TO 1040\r\n      FRSTIM = .FALSE.\r\n      IF (L40 .EQ. 0) GO TO 1060\r\nCWKBR CALL PAGE (3)\r\n      CALL PAGE2 (3)\r\n      WRITE  (NOUT,1030)\r\n 1030 FORMAT (//9X,'THE INPUT PCOMP, PCOMP1 OR PCOMP2 BULK DATA',\r\n     1       ' ENTRIES HAVE BEEN REPLACED BY THE FOLLOWING PSHELL',\r\n     2       ' AND MAT2 ENTRIES.',//)\r\n 1040 IF (L40 .EQ. 0) GO TO 1060\r\n      WRITE (NOUT,1050) ID,IPSHEL( 1),RPSHEL( 2),IPSHEL( 3),\r\n     1                     RPSHEL( 4),IPSHEL( 5),RPSHEL( 6),\r\n     2                     RPSHEL( 7),RPSHEL( 8),RPSHEL( 9),\r\n     3                     IPSHEL(10),RPSHEL(11),RPSHEL(14),\r\n     4                     RPSHEL(16)\r\n 1050 FORMAT (' PSHELL',I14,I12,1X,1P,E11.4,I12,1X,1P,E11.4,I12,\r\n     1       2(1X,1P,E11.4), /9X,2(1X,1P,E11.4),I12,2(1X,F11.1),1X,\r\n     2       1P,E11.4)\r\nC\r\nC     SET OLDID TO ID\r\nC\r\n 1060 OLDID = ID\r\n      GO TO 90\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1100 J = -1\r\n      GO TO 1150\r\n 1110 J = -2\r\n      GO TO 1150\r\n 1120 J = -3\r\n      GO TO 1150\r\n 1130 BUF(1) = ELEM(I  )\r\n      BUF(2) = ELEM(I+1)\r\n      NOGOX  = 1\r\n      CALL MESAGE (30,11,BUF)\r\n      KX = ITABL\r\n      GO TO 30\r\n 1140 KSAVEW = BUF(3)\r\n      BUF(3) = ID\r\n      NOGO = 1\r\n      CALL MESAGE (30,10,BUF(2))\r\n      KX = ITABL\r\n      BUF(3) = KSAVEW\r\n      GO TO 90\r\n 1150 CALL MESAGE (J,FILE,NAM)\r\n 1160 BUF(1) = TEMPID\r\n      BUF(2) = 0\r\n      CALL MESAGE (-30,44,BUF)\r\n      RETURN\r\nC\r\nC     ARRAY IG IS FIRST DIMENSIONED IN TA1ABD\r\nC\r\n 1190 WRITE  (NOUT,1200) SFM\r\n 1200 FORMAT (A25,', IG ARRAY IN TA1A TOO SMALL')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/ta1b.f",
    "content": "      SUBROUTINE TA1B\r\nC\r\nC     TA1B BUILDS THE ELEMENT CONNECTION AND PROPERTIES TABLE (ECPT)\r\nC     AND THE GRID POINT CONNECTION TABLE. THE ECPT CONTAINS ONE LOGICAL\r\nC     RECORD FOR EACH GRID OR SCALAR POINT IN THE STRUCTURE.  EACH\r\nC     LOGICAL RECORD CONTAINS EST TYPE DATA FOR ELEMENTS CONNECTED TO\r\nC     THE GRID OR SCALAR POINT THE GPCT IS A SUMMARY OF THE ECPT.  EACH\r\nC     LOGICAL RECORD CONTAINS ALL GRID POINTS CONNECTED TO THE PIVOT (BY\r\nC     MEANS OF STRUCTURAL ELEMENTS).\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         EORFLG,ENDID ,RECORD\r\n      INTEGER         ANDF  ,GENL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,\r\n     1                CSTM  ,EST   ,GEI   ,ECPT  ,GPCT  ,SCR1  ,SCR2  ,\r\n     2                SCR3  ,SCR4  ,Z     ,SYSBUF,TEMPID,ELEM  ,ELEMID,\r\n     3                OUTPT ,CBAR  ,PLOTEL,RD    ,RDREW ,WRT   ,WRTREW,\r\n     4                CLSREW,CLS   ,BUF   ,GPSAV ,FLAG  ,BUF1  ,BUF2  ,\r\n     5                BUF3  ,FILE  ,RET   ,RET1  ,OP    ,TWO24 ,SCRI  ,\r\n     6                SCRO  ,BLK   ,RET2  ,OUFILE,GPECT ,ELTYPE,OLDEL ,\r\n     7                OLDEID,BUF4  ,EQEXIN,ZEROS(4)     ,QUADTS,TRIATS,\r\n     8                PLOT  ,REACT ,SHEAR ,TWIST ,BAR   ,PPSE\r\n      DIMENSION       NAM(2),BLK(2),ZZ(1) ,TGRID(33)    ,BUF(50),\r\n     1                BUFR(50)     ,GPSAV(34)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM   ,UWM   ,UIM   ,SFM\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4  ,EQEXIN\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /GPTA1 / NELEM ,JLAST ,INCR  ,ELEM(1)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG,ITEMP ,IDFTMP,\r\n     1                IBACK ,RECORD,OLDEID\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) ,(KSYSTM(2),OUTPT ),\r\n     1                (KSYSTM(10),TEMPID) ,(IDFTMP   ,DEFTMP)\r\n      EQUIVALENCE     (BLK(1),NPVT), (BUF(1),BUFR(1)),(Z(1),ZZ(1)),\r\n     1                (BLK(2),N)\r\n      DATA    NAM   / 4HTA1B,3H   /,  CBAR/ 4HBAR  /, PLOT/ 4HPLOT    /\r\n      DATA    TWO24 / 8388608     /, ZEROS/ 0,0,0,0/, PPSE/ 4303      /\r\n      DATA    PLOTEL, REACT,SHEAR,TWIST,IHEX2,IHEX3,QUADTS,TRIATS,BAR /\r\n     1        5201  , 5251, 4,    5,    66,   67,   68,    69,    34  /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      N2   = 2*NELEM - 1\r\n      N21  = N2 + 1\r\n      BUF1 = KORSZ(Z) - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      BUF4 = BUF3 - SYSBUF\r\n      NEQ1 = NSIL + 1\r\n      NEQ2 = 0\r\n      KSCALR = 0\r\nC\r\nC     THE GRID POINT COUNTER (GPC) HAS ONE ENTRY PER GRID OR SCALAR\r\nC     POINT IN THE STRUCTURE. EACH ENTRY CONTAINS THE NUMBER OF\r\nC     STRUCTURAL ELEMENTS CONNECTED TO THE POINT.\r\nC\r\n      DO 2001 I = 1,NSIL\r\n 2001 Z(I+1) = 0\r\nC\r\nC     OPEN THE ECT. INITIALIZE TO LOOP THRU BY ELEMENT TYPE.\r\nC\r\n      FILE = ECT\r\n      CALL PRELOC (*3200,Z(BUF1),ECT)\r\n      NOECT = 1\r\n      DO 2026 I = 1,JLAST,INCR\r\nC\r\nC     IGNORE PLOTEL ELEMENTS.  OTHERWISE, LOCATE AN ELEMENT TYPE.\r\nC     IF PRESENT, READ ALL ELEMENTS OF THAT TYPE AND INCREMENT THE GPC\r\nC     ENTRY FOR EACH POINT TO WHICH THE ELEMENT IS CONNECTED.\r\nC\r\n      IF (ELEM(I) .EQ. PLOT) GO TO 2026\r\n      CALL LOCATE (*2026,Z(BUF1),ELEM(I+3),FLAG)\r\n      NOECT = 0\r\n      LX = ELEM(I+12)\r\n      MM = LX + ELEM(I+9) - 1\r\n      M  = ELEM(I+5)\r\n      IF (ELEM(I+10) .EQ. 0) KSCALR = 1\r\n 2021 CALL READ (*3201,*2026,ECT,BUF,M,0,FLAG)\r\n      DO 2022 L = LX,MM\r\n      K  = BUF(L)\r\n      IF (K .NE. 0) Z(K+1) = Z(K+1) + 1\r\n 2022 CONTINUE\r\n      GO TO 2021\r\n 2026 CONTINUE\r\n      CALL CLOSE (ECT,CLSREW)\r\n      IF (NOECT .NE. 0) GO TO 3209\r\nC\r\nC     REPLACE ENTRIES IN THE GPC BY A RUNNING SUM THUS CREATING POINTERS\r\nC     INTO ECPT0.  QUEUE WARNING MESSAGES FOR GRID PTS. WITH NO ELEMENTS\r\nC     CONNECTED.\r\nC     (BRING IN EQEXIN AND ECHO OUT EXTERNAL GRID PT. ID  G.C/UNISYS 91)\r\nC\r\n      Z(1)  = 1\r\n      MAXEL = 0\r\n      DO 2037 I = 1,NSIL\r\n      MAXEL = MAX0(MAXEL,Z(I+1))\r\n      IF (Z(I+1) .NE. 0) GO TO 2037\r\nC\r\n      J = 0\r\n      IF (NEQ2) 2035,2031,2033\r\n 2031 NEQ2 = -1\r\n      Z(NEQ1) = EQEXIN\r\n      CALL RDTRL (Z(NEQ1))\r\n      IF (Z(NEQ1) .LE. 0) GO TO 2035\r\n      FILE = EQEXIN\r\nCWKBR CALL GOPEN (EQEXIN,EQEXIN,Z(BUF1),RDREW)\r\n      CALL GOPEN (EQEXIN,Z(BUF1),RDREW)\r\n      CALL READ (*3200,*2032,EQEXIN,Z(NEQ1),BUF4,1,NEQ2)\r\n 2032 CALL CLOSE (EQEXIN,CLSREW)\r\n      CALL SORT (0,0,2,2,Z(NEQ1),NEQ2)\r\n 2033 J = Z((I-1)*2+NEQ1)\r\nC\r\n 2035 BUF(1) = I\r\n      BUF(2) = J\r\n      CALL MESAGE (30,15,BUF)\r\n 2037 Z(I+1) = Z(I) + Z(I+1)\r\nC\r\nC     DETERMINE BAND OF ENTRIES IN ECPT0 WHICH WILL FIT IN CORE\r\nC     NDX1 = POINTER IN GPC TO 1ST  ENTRY FOR CURRENT PASS.\r\nC     NDX2 = POINTER IN GPC TO LAST ENTRY FOR CURRENT PASS.\r\nC\r\n      NDX1 = 1\r\n      NDX2 = NSIL\r\n      LLX  = 1\r\n      IECPT0 = NSIL + 2\r\n      LENGTH = BUF1 - IECPT0\r\n      OP   = WRTREW\r\n 2042 IF (Z(NDX2+1)-Z(NDX1)+2 .LE. LENGTH) GO TO 2050\r\n      NDX2 = NDX2 - 1\r\n      GO TO 2042\r\nC\r\nC     PASS THE ECT. FOR EACH GRID PT IN RANGE ON THIS PASS,\r\nC     STORE ELEMENT POINTER = 2**24 * J + WORD POSITION IN ECT RECORD.\r\nC     WHERE J= (POINTER IN ELEM TABLE - 1)/INCR * 2 +1\r\nC\r\n 2050 CALL PRELOC (*3200,Z(BUF1),ECT)\r\n      IZERO = Z(NDX1)\r\n      J = 1\r\n      DO 2055 I = 1,JLAST,INCR\r\n      IF (ELEM(I) .EQ. PLOT) GO TO 2055\r\n      IDCNTR = TWO24*J\r\n      CALL LOCATE (*2055,Z(BUF1),ELEM(I+3),FLAG)\r\n      M  = ELEM(I+ 5)\r\n      LX = ELEM(I+12)\r\n      MM = LX + ELEM(I+9) - 1\r\n 2052 CALL READ (*3201,*2055,ECT,BUF,M,0,FLAG)\r\n      DO 2054 L = LX,MM\r\n      K  = BUF(L)\r\n      IF (K.LT.NDX1 .OR. K.GT.NDX2) GO TO 2054\r\n      IX = Z(K) - IZERO + IECPT0\r\n      Z(IX) = IDCNTR\r\n      Z(K ) = Z(K) + 1\r\n 2054 CONTINUE\r\n      IDCNTR = IDCNTR + M\r\n      GO TO 2052\r\n 2055 J = J + 2\r\n      CALL CLOSE (ECT,CLSREW)\r\nC\r\nC     WRITE ECPT0 AND TEST FOR ADDITIONAL PASSES\r\nC     ECPT0 CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT.\r\nC     EACH LOGICAL RECORD CONTAINS N PAIRS OF(-1,ELEMENT POINTER)WHERE\r\nC     N= NUMBER OF ELEMENTS CONNECTED TO THE PIVOT.\r\nC     IF NO ELEMENTS CONNECTED TO POINT, RECORD IS ONE WORD = 0.\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*3200,SCR1,Z(BUF1),OP)\r\n      BUF(1) = -1\r\n      LJ = IECPT0 - 1\r\n      DO 2062 I = NDX1,NDX2\r\n      M  = Z(I) - LLX\r\n      IF (M .NE. 0) GO TO 2063\r\n      CALL WRITE (SCR1,0,1,1)\r\n      GO TO 2062\r\n 2063 DO 2061 J = 1,M\r\n      LJ = LJ + 1\r\n      BUF(2) = Z(LJ)\r\n 2061 CALL WRITE (SCR1,BUF,2,0)\r\n      CALL WRITE (SCR1,0,0,1)\r\n 2062 LLX = Z(I)\r\n      IF (NDX2 .GE. NSIL) GO TO 2070\r\n      CALL CLOSE (SCR1,CLS)\r\n      NDX1 = NDX2 + 1\r\n      NDX2 = NSIL\r\n      OP   = WRT\r\n      GO TO 2042\r\nC\r\nC     READ AS MUCH OF ECT AS CORE CAN HOLD\r\nC     FIRST N21 CELLS OF CORE CONTAIN A POINTER TABLE WHICH HAS TWO\r\nC     ENTRIES PER ELEMENT TYPE. 1ST ENTRY HAS POINTER TO 1ST WORD OF\r\nC     ECT DATA IN CORE FOR AN ELEMENT TYPE  2ND ENTRY HAS WORD POSITION\r\nC     IN ECT RECORD OF THAT TYPE FOR LAST ENTRY READ ON PREVIOUS PASS.\r\nC\r\n 2070 CALL CLOSE (SCR1,CLSREW)\r\n      SCRI = SCR1\r\n      SCRO = SCR2\r\n      CALL PRELOC (*3200,Z(BUF1),ECT)\r\n      I = 1\r\n      IELEM = 1\r\n      DO 2071 J = 1,N21\r\n 2071 Z(J) = 0\r\n      L = N21 + 1\r\n 2072 IF (ELEM(IELEM+3).EQ.PLOTEL .OR. ELEM(IELEM+3).EQ.REACT)\r\n     1    GO TO 2074\r\n      CALL LOCATE (*2074,Z(BUF1),ELEM(IELEM+3),FLAG)\r\n      Z(I) = L\r\n      LL   = 0\r\n      M    = ELEM(IELEM+5)\r\n      LAST = BUF3 - M\r\n 2073 IF (L .GT. LAST) GO TO 2080\r\n      CALL READ (*3201,*2074,ECT,Z(L),M,0,FLAG)\r\n      L  = L  + M\r\n      LL = LL + M\r\n      GO TO 2073\r\n 2074 I  = I + 2\r\n      IELEM = IELEM + INCR\r\n      IF (IELEM .LE. JLAST) GO TO 2072\r\nC\r\nC     PASS ECPT0 ENTRIES LINE BY LINE\r\nC     ATTACH EACH REFERENCED ECT ENTRY WHICH IS NOW IN CORE\r\nC\r\n 2080 CALL OPEN (*3200,SCRI,Z(BUF2),RDREW)\r\n      CALL OPEN (*3200,SCRO,Z(BUF3),WRTREW)\r\n 2082 CALL READ (*2090,*2086,SCRI,BUF,1,0,FLAG)\r\n      IF (BUF(1)) 2083,2087,2085\r\n 2083 CALL READ (*3201,*3202,SCRI,BUF(2),1,0,FLAG)\r\n      K = BUF(2)/TWO24\r\n      KTWO24 = K*TWO24\r\n      IDPTR  = BUF(2) - KTWO24\r\n      KK = Z(K) + IDPTR - Z(K+1)\r\n      IF (Z(K).EQ.0 .OR. KK.GT.LAST) GO TO 2084\r\n      J  = ((K-1)/2)*INCR + 1\r\n      MM = ELEM(J+5)\r\n      BUF(1) = MM\r\n      BUF(2) = Z(KK) + KTWO24\r\n      CALL WRITE (SCRO,BUF,2,0)\r\n      CALL WRITE (SCRO,Z(KK+1),MM-1,0)\r\n      GO TO 2082\r\n 2084 CALL WRITE (SCRO,BUF,2,0)\r\n      GO TO 2082\r\n 2085 CALL READ  (*3201,*3202,SCRI,BUF(2),BUF(1),0,FLAG)\r\n      CALL WRITE (SCRO,BUF,BUF(1)+1,0)\r\n      GO TO 2082\r\n 2086 CALL WRITE (SCRO,0,0,1)\r\n      GO TO 2082\r\n 2087 CALL WRITE (SCRO,0,1,1)\r\n      CALL FWDREC (*3201,SCRI)\r\n      GO TO 2082\r\nC\r\nC     TEST FOR COMPLETION OF STEP\r\nC     IF INCOMPLETE, SET FOR NEXT PASS\r\nC\r\n 2090 CALL CLOSE (SCRI,CLSREW)\r\n      CALL CLOSE (SCRO,CLSREW)\r\n      IF (I .GT. N2) GO TO 2100\r\n      K    = SCRI\r\n      SCRI = SCRO\r\n      SCRO = K\r\n      L = N21 + 1\r\n      DO 2091 J = 1,N21\r\n 2091 Z(J) = 0\r\n      Z(I) = L\r\n      Z(I+1) = LL\r\n      GO TO 2073\r\nC\r\nC     READ THE EPT INTO CORE (IF PRESENT)\r\nC     FIRST N21 CELLS OF CORE CONTAINS PROPERTIES POINTER TABLE WHICH\r\nC     HAS TWO WORDS PER ELEMENT TYPE, 1ST WORD HAS POINTER TO 1ST WORD\r\nC     OF PROPERTY DATA FOR THAT ELEMENT TYPE. 2ND WORD HAS NUMBER OF\r\nC     PROPERTY CARDS FOR THAT TYPE.\r\nC\r\n 2100 CALL CLOSE (ECT,CLSREW)\r\n      DO 2101 I = 1,N21\r\n 2101 Z(I) = 0\r\n      L = 1\r\n      CALL PRELOC (*2120,Z(BUF1),EPT)\r\n      IELEM  = 1\r\n      LSTPRP = 0\r\n      L = N21 + 1\r\n      DO 2107 II = 1,N2,2\r\n      IF (ELEM(IELEM+6).EQ.LSTPRP .AND. LSTPRP.NE.PPSE) GO TO 2106\r\n      CALL LOCATE (*2107,Z(BUF1),ELEM(IELEM+6),FLAG)\r\n      LSTPRP = ELEM(IELEM+6)\r\n      M      = ELEM(IELEM+8)\r\n      ELTYPE = ELEM(IELEM+2)\r\n      Z(II)  = L\r\n 2102 IF (L+M .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\n      CALL READ (*3201,*2103,EPT,Z(L),M,0,FLAG)\r\n      L = L + M\r\n      GO TO 2102\r\n 2103 N = L - Z(II)\r\n      Z(II+1) = N/M\r\n      IF (ELTYPE.EQ.SHEAR .OR. ELTYPE.EQ.TWIST) GO TO 2104\r\n      IF (M .GT. 4) GO TO 2107\r\n 2104 I = Z(II)\r\n      CALL SORT (0,0,M,1,Z(I),N)\r\n      GO TO 2107\r\n 2106 N = 4\r\n      IF (ELTYPE.EQ.IHEX2 .OR. ELTYPE.EQ.IHEX3) N = 2\r\n      Z(II  ) = Z(II-N  )\r\n      Z(II+1) = Z(II-N+1)\r\n 2107 IELEM   = IELEM + INCR\r\n      CALL CLOSE (EPT,CLSREW)\r\nC\r\nC     DETERMINE IF THE BGPDT AND SIL\r\nC     WILL FIT IN CORE ON TOP OF THE EPT.\r\nC\r\n      NUMBER = 4*KSCALR + 1\r\n      IBACK  = 0\r\n      LENGTH = BUF4 - L - 4*MAXEL\r\n      IF (NUMBER*NSIL .GT. LENGTH) GO TO 2150\r\nC\r\nC     IF YES, READ THE BGPDT,SIL AND GPTT INTO CORE\r\nC\r\n 2120 ASSIGN 2130 TO RET\r\n      IPASS = 1\r\n      GO TO 3050\r\nC\r\nC     PASS ECPT0 LINE BY LINE\r\nC     FOR EACH ECT ENTRY, 1. ATTACH PROPERTY DATA (IF DEFINED)\r\nC     2. ATTACH BASIC GRID POINT DATA (UNLESS SCALER ELEMENT), AND\r\nC     3. CONVERT GRID PT NOS TO SIL VALUES\r\nC     4. IF TEMPERATURE PROBLEM, ATTACH ELEMENT TEMP(UNLESS SCALAR ELEM)\r\nC\r\n 2130 INFILE = SCRO\r\n      OUFILE = ECPT\r\nC\r\nC     OPEN ECPT0, ECPT AND GPCT FILES\r\nC\r\n 2144 GO TO 3060\r\nC\r\nC     WRITE PIVOT GRID POINT ON ECPT\r\nC\r\n 2131 IF (LL-LOCSIL .GE. NSIL) GO TO 2179\r\n      IF (IBACK .LE. 0) GO TO 21311\r\n      CALL BCKREC (GPTT)\r\nC\r\nC     RESET /TA1ETT/ VARIABLES\r\nC\r\n      IBACK  = 0\r\n      OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG =.FALSE.\r\n      ENDID  =.TRUE.\r\n      CALL READ (*3201,*3202,GPTT,ISET,1,0,FLAG)\r\n      IF (ISET .EQ. TEMPID) GO TO 21311\r\n      WRITE (OUTPT,3084) SFM,ISET,TEMPID\r\n      CALL MESAGE (-61,0,0)\r\n21311 NPVT = Z(LL)\r\n      CALL WRITE (ECPT,NPVT,1,0)\r\n      IF (Z(LL+1)-Z(LL) .EQ. 1) NPVT = -NPVT\r\n      I = LOCGPC\r\nC\r\nC     READ AN ECT LINE FROM ECPT0. SET POINTERS AS A FUNCTION OF ELEM\r\nC     TYPE.  IF ELEMENT IS BAR, PROCESS ORIENTATION VECTOR.  AXIS AND\r\nC     THE STRESS AXIS DEFINITION BASED ON GRID POINTS MA AND SA.\r\nC\r\n 2132 CALL READ (*3201,*2138,INFILE,BUF(1),1,0,FLAG)\r\n      IF (BUF(1)) 3207,2143,2133\r\n 2133 CALL READ (*3201,*3202,INFILE,BUF(2),BUF(1),0,FLAG)\r\n      IK = BUF(2)/TWO24\r\n      II = ((IK-1)/2)*INCR + 1\r\n      LX = ELEM(II+12) + 1\r\n      M  = ELEM(II+ 8)\r\n      JSCALR =  ELEM(II+10)\r\n      MM = LX + ELEM(II+ 9) - 1\r\n      LQ = 4\r\n      IF (M .EQ. 0) LQ = 3\r\n      NAME  = ELEM(II   )\r\n      JTEMP = ELEM(II+13)\r\n      ELTYPE= ELEM(II+ 2)\r\n      NTEMP = 1\r\n      IF (JTEMP .EQ. 4) NTEMP = ELEM(II+14) - 1\r\n      IF (ELTYPE .EQ. QUADTS) GO TO 3083\r\n      IF (ELTYPE .EQ. TRIATS) GO TO 30841\r\n      IF (NAME   .EQ.   CBAR) GO TO 3080\r\nC\r\nC     SAVE INTERNAL GRID NOS AND CONVERT TO SIL NOS.\r\nC\r\n 2141 GO TO 3030\r\nC\r\nC     IF ONE   PASS, WRITE ECT       SECTION  OF ECPT LINE.\r\nC     IF TWO PASSES, WRITE ECT + EPT SECTIONS OF ECPT LINE.\r\nC\r\n 2134 ID = BUF(3)\r\n      NX = BUF(1) + 2 - LQ\r\n      BUF(1) = ELEM(II+2)\r\n      BUF(2) = BUF(2) - IK*TWO24\r\n      ELEMID = BUF(2)\r\n      CALL WRITE (ECPT,BUF(1),2,0)\r\n      CALL WRITE (ECPT,BUF(LQ),NX,0)\r\n      IF (IPASS .EQ. 2) GO TO 2137\r\nC\r\nC     IF PROPERTY DATA IS DEFINED, LOOK UP AND WRITE EPT SECTION OF ECPT\r\nC\r\n      IF (M .EQ. 0) GO TO 2137\r\n      ASSIGN 2137 TO RET\r\n      GO TO 3040\r\nC\r\nC     IF ELEMENT IS NOT A SCALAR ELEMENT,\r\nC     WRITE BGPDT AND ELEMENT TEMPERATURE SECTIONS OF ECPT LINE.\r\nC\r\n 2137 IF (JSCALR .NE. 0) GO TO 2132\r\n      GO TO 3090\r\nC\r\nC     CLOSE ECPT RECORD. WRITE GPCT RECORD.\r\nC\r\n 2138 CALL WRITE (ECPT,0,0,1)\r\n      GO TO 3070\r\nC\r\nC     HERE IF NO ELEMENTS CONNECTED TO PIVOT.\r\nC\r\n 2143 CALL WRITE (ECPT,0,0,1)\r\n      IF (NOGPCT .NE. 0) CALL WRITE (GPCT,NPVT,1,1)\r\n      LL = LL + 1\r\n      CALL FWDREC (*3202,INFILE)\r\n      GO TO 2131\r\nC\r\nC     HERE IF ECPT CONSTRUCTION IS TWO PASSES.\r\nC     PASS ECPT0 LINE BY LINE FOR EACH ECT ENTRY, ATTACH PROPERTY DATA\r\nC     IF DEFINED\r\nC\r\n 2150 CALL OPEN (*3200,SCRO,Z(BUF1),RDREW)\r\n      CALL OPEN (*3200,SCRI,Z(BUF2),WRTREW)\r\n      OUFILE = SCRI\r\nC\r\nC     READ AN ECT LINE FROM ECT0. SET POINTERS AS FUNCTION OF ELEM TYPE.\r\nC\r\n 2152 CALL READ (*2159,*2156,SCRO,BUF,1,0,FLAG)\r\n      IF (BUF(1)) 3207,2158,2153\r\n 2153 CALL READ (*3201,*3203,SCRO,BUF(2),BUF(1),0,FLAG)\r\n      IK = BUF(2)/TWO24\r\n      II = ((IK-1)/2)*INCR + 1\r\n      M  = ELEM(II+8)\r\n      NX = BUF(1) + 1\r\nC\r\nC     IF PROPERTY DATA IS DEFINED FOR ELEMENT, WRITE ECT DATA ON SCRI,\r\nC     THEN LOOK UP AND WRITE EPT DATA ON SCRI.\r\nC\r\n      IF (M .EQ. 0) GO TO 2155\r\n      ID = BUF(3)\r\n      BUF(1) = BUF(1) + M - 1\r\n      CALL WRITE (SCRI,BUF(1),NX,0)\r\n      ASSIGN 2152 TO RET\r\n      GO TO 3040\r\nC\r\nC     PROPERTY DATA NOT DEFINED. WRITE ECT LINE ON SCRI.\r\nC\r\n 2155 CALL WRITE (SCRI,BUF,NX,0)\r\n      GO TO 2152\r\nC\r\nC     CLOSE RECORD. RETURN FOR ANOTHER PIVOT.\r\nC\r\n 2156 CALL WRITE (SCRI,0,0,1)\r\n      GO TO 2152\r\nC\r\nC     ALL PIVOTS COMPLETE. CLOSE FILES.\r\nC\r\n 2159 CALL CLOSE (SCRO,CLSREW)\r\n      CALL CLOSE (SCRI,CLSREW)\r\n      GO TO 2160\r\nC\r\nC     HERE IF NO ELEMENTS CONNECTED TO PIVOT.\r\nC\r\n 2158 CALL WRITE  (SCRI,0,1,1)\r\n      CALL FWDREC (*3201,SCRO)\r\n      GO TO 2152\r\nC\r\nC     READ THE BGPDT, SIL AND, IF TEMPERATURE PROBLEM,\r\nC     THE GPTT INTO CORE.\r\nC\r\n 2160 L = 1\r\n      ASSIGN 2170 TO RET\r\n      GO TO 3050\r\nC\r\nC     SET POINTERS AND BRANCH TO COMMON CODE TO ASSEMBLE ECPT.\r\nC\r\n 2170 INFILE = SCRI\r\n      OUFILE = ECPT\r\n      IPASS  = 2\r\n      GO TO 2144\r\nC\r\nC     CLOSE FILES, WRITE TRAILERS AND EXIT.\r\nC\r\n 2179 CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (GPTT,CLSREW)\r\n      CALL CLOSE (ECPT,CLSREW)\r\n      BUF(1) = ECT\r\n      CALL RDTRL (BUF(1))\r\n      BUF(3) = 0\r\n      K  = 8192\r\n      K1 = ANDF(BUF(5),K)\r\n      IF (K1 .NE. K) GO TO 2180\r\n      BUF(3) = 1\r\n      IRIGD  = 1\r\n 2180 CONTINUE\r\n      BUF(1) = ECPT\r\n      DO 21791 I = 2,7\r\n      BUF(I) = 7\r\n21791 CONTINUE\r\n      CALL WRTTRL (BUF)\r\n      IF (NOGPCT .EQ. 0) RETURN\r\n      CALL CLOSE (GPCT,CLSREW)\r\n      BUF(1) = GPCT\r\n      CALL WRTTRL (BUF)\r\n      RETURN\r\nC\r\nC\r\nC     INTERNAL BINARY SEARCH ROUTINE\r\nC\r\n 3000 KLO = 1\r\n 3001 K   = (KLO+KHI+1)/2\r\n 3008 KX  = (K-1)*M + LOCX\r\n      IF (ID-Z(KX)) 3002,3009,3003\r\n 3002 KHI = K\r\n      GO TO 3004\r\n 3003 KLO = K\r\n 3004 IF (KHI-KLO-1) 30091,3005,3001\r\n 3005 IF (K .EQ. KLO) GO TO 3006\r\n      K   = KLO\r\n      GO TO 3007\r\n 3006 K   = KHI\r\n 3007 KLO = KHI\r\n      GO TO 3008\r\n 3009 GO TO RET1, (3041)\r\n30091 GO TO RET2, (3205)\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO SAVE GRID PTS IN AN ECT LINE\r\nC     AND CONVERT GRID PT NOS IN ECT LINE TO SIL VALUES\r\nC\r\n 3030 DO 3032 L = LX,MM\r\n      GPSAV(L) = 0\r\n      IF (BUF(L) .EQ. 0) GO TO 3032\r\n      GPSAV(L) = BUF(L)\r\n      K  = GPSAV(L) + LOCSIL - 1\r\n      BUF(L) = Z(K)\r\n      IX = 0\r\n      IF (Z(K+1)-Z(K) .EQ. 1) IX = 1\r\n      Z(I) = 2*Z(K) + IX\r\n      I  = I + 1\r\n 3032 CONTINUE\r\n      IF (I .GE. BUF3) CALL MESAGE (-8,0,NAM)\r\n      GO TO 2134\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO ATTACH EPT DATA\r\nC\r\n 3040 LOCX = Z(IK)\r\n      IF (LOCX .EQ. 0) GO TO 3206\r\n      KHI  = Z(IK+1)\r\n      ASSIGN 3041 TO RET1\r\n      ASSIGN 3205 TO RET2\r\n      GO TO 3000\r\n 3041 CALL WRITE (OUFILE,Z(KX+1),M-1,0)\r\n      GO TO RET, (2137,2152)\r\nC\r\nC     INTERNAL ROUTINE TO READ THE BGPDT, SIL AND GPTT INTO CORE\r\nC\r\n 3050 NBGP   = 0\r\n      LOCBGP = L\r\n      IF (KSCALR .EQ. 0) GO TO 3059\r\n      CALL OPEN (*3200,BGPDT,Z(BUF1),RDREW)\r\n      CALL FWDREC (*3201,BGPDT)\r\n      NBGP  = 4*NSIL\r\n      CALL READ (*3201,*3202,BGPDT,Z(LOCBGP),NBGP,1,FLAG)\r\n      CALL CLOSE (BGPDT,CLSREW)\r\n 3059 L = L + NBGP\r\n      CALL OPEN (*3200,SIL,Z(BUF1),RDREW)\r\n      CALL FWDREC (*3201,SIL)\r\n      LOCSIL = LOCBGP + NBGP\r\n      CALL READ (*3201,*3203,SIL,Z(LOCSIL),NSIL,1,FLAG)\r\n      CALL CLOSE (SIL,CLSREW)\r\n      NX = LOCSIL + NSIL\r\n      Z(NX)  = LUSET + 1\r\n      LOCTMP = NX + 1\r\n      NTMP   = LOCTMP - 1\r\n      RECORD =.FALSE.\r\n      ITEMP  = TEMPID\r\n      IBACK  = 0\r\n      IF (TEMPID .EQ. 0) GO TO 3058\r\n      FILE   = GPTT\r\n      CALL OPEN (*3200,GPTT,Z(BUF4),RDREW)\r\n      CALL READ (*3201,*3051,GPTT,Z(LOCTMP),BUF3-LOCTMP,0,NID)\r\n      CALL MESAGE (-8,0,NAM)\r\n 3051 ITMPID = LOCTMP + 2\r\n      NTMPID = LOCTMP + NID - 3\r\n      DO 3052 IJK = ITMPID,NTMPID,3\r\n      IF (TEMPID .EQ. Z(IJK)) GO TO 3053\r\n 3052 CONTINUE\r\n      GO TO 3210\r\n 3053 IDFTMP = Z(IJK+1)\r\n      IF (IDFTMP . NE. -1) DEFTMP = ZZ(IJK+1)\r\n      N = Z(IJK+2)\r\n      IF (N .EQ. 0) GO TO 3058\r\n      RECORD =.TRUE.\r\n      N = N - 1\r\n      IF (N .EQ. 0) GO TO 3055\r\n      DO 3054 IJK = 1,N\r\n      CALL FWDREC (*3201,GPTT)\r\n 3054 CONTINUE\r\nC\r\nC     READ SET ID AND VERIFY FOR CORRECTNESS\r\nC\r\n 3055 CALL READ (*3201,*3202,GPTT,ISET,1,0,FLAG)\r\n      IF (ISET .EQ. TEMPID) GO TO 3061\r\n      WRITE  (OUTPT,3084) SFM,ISET,TEMPID\r\n 3084 FORMAT (A25,' 4021, TA1B HAS PICKED UP TEMPERATURE SET',I9,\r\n     1       ' AND NOT THE REQUESTED SET',I9,1H.)\r\n      CALL MESAGE (-61,0,NAM)\r\nC\r\nC     INITIALIZE /TA1ETT/ VARIABLES\r\nC\r\n 3061 OLDEID = 0\r\n      OLDEL  = 0\r\n      EORFLG =.FALSE.\r\n      ENDID  =.TRUE.\r\n 3058 GO TO RET, (2130,2170)\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO OPEN SCRATCH, ECPT AND GPCT FILES\r\nC\r\n 3060 CALL OPEN (*3200,INFILE,Z(BUF1),RDREW)\r\n      CALL OPEN (*3200,ECPT,Z(BUF2),WRTREW)\r\n      CALL FNAME (ECPT,BUF)\r\n      CALL WRITE (ECPT,BUF,2,1)\r\n      NOGPCT = 0\r\n      CALL OPEN (*3062,GPCT,Z(BUF3),WRTREW)\r\n      NOGPCT = 1\r\n      CALL FNAME (GPCT,BUF)\r\n      CALL WRITE (GPCT,BUF,2,1)\r\n 3062 LL = LOCSIL\r\n      LOCGPC = NTMP + 1\r\n      GO TO 2131\r\nC\r\nC     INTERNAL ROUTINE TO SORT AND WRITE THE GPCT\r\nC\r\n 3070 IF (NOGPCT .EQ. 0) GO TO 3073\r\n      N = I - LOCGPC\r\n      CALL SORT (0,0,1,1,Z(LOCGPC),N)\r\n      Z(I) = 0\r\n      J  = LOCGPC\r\n      II = LOCGPC\r\n 3071 IF (Z(II) .EQ. Z(II+1)) GO TO 3072\r\n      NX = Z(II)/2\r\n      LX = Z(II) - 2*NX\r\n      IF (LX .NE. 0) NX = -NX\r\n      Z(J) = NX\r\n      J  = J  + 1\r\n 3072 II = II + 1\r\n      IF (II .LT. I) GO TO 3071\r\n      N  = J - LOCGPC\r\n      CALL WRITE (GPCT,BLK,2,0)\r\n      CALL WRITE (GPCT,Z(LOCGPC),N,1)\r\n 3073 LL = LL + 1\r\n      GO TO 2131\r\nC\r\nC     FOR BAR ELEMENTS, STORE COORDINATES AND\r\nC     COORDINATE SYSTEM ID FOR ORIENTATION VECTOR.\r\nC\r\n 3080 KX = 4*(BUF(4)-1) + LOCBGP\r\n      IF (BUF(9) .EQ. 1) GO TO 3082\r\n      BUF(9) = BUF(6)\r\n      IF (BUF(9) .EQ. 0) GO TO 3082\r\n      K = 4*(BUF(9)-1) + LOCBGP\r\n      BUFR(6) = ZZ(K+1) - ZZ(KX+1)\r\n      BUFR(7) = ZZ(K+2) - ZZ(KX+2)\r\n      BUFR(8) = ZZ(K+3) - ZZ(KX+3)\r\n      BUF(9)  = 0\r\n      GO TO 2141\r\n 3082 BUF(9)  = Z(KX)\r\n      GO TO 2141\r\nC\r\nC     FOR QUADTS AND TRIATS ELEMENTS, STORE COORDINATES FOR MATERIAL\r\nC     AND STRESS AXIS DEFINITION\r\nC\r\n 3083 IS1 = 12\r\n      GO TO 3085\r\n30841 IS1 = 10\r\n 3085 IS2 = IS1 + 9\r\n      DO 3086 IST = IS1,IS2,3\r\n      IGP = BUF(IST)\r\n      IF (IGP .EQ. 0) GO TO 3086\r\n      K = 4*(IGP-1) + LOCBGP\r\n      BUFR(IST  ) = ZZ(K+1)\r\n      BUFR(IST+1) = ZZ(K+2)\r\n      BUFR(IST+2) = ZZ(K+3)\r\n 3086 CONTINUE\r\n      GO TO 2141\r\nC\r\nC     CODE TO WRITE BGPDT AND ELEMENT TEMPERATURE SECTIONS OF ECAT LINE.\r\nC\r\n 3090 DO 3095 L = LX,MM\r\n      IF (GPSAV(L) .EQ. 0) GO TO 3094\r\n      K = LOCBGP + 4*(GPSAV(L)-1)\r\n      CALL WRITE (ECPT,Z(K),4,0)\r\n      GO TO 3095\r\n 3094 CALL WRITE (ECPT,ZEROS,4,0)\r\n 3095 CONTINUE\r\n      CALL TA1ETD (ELEMID,TGRID,NTEMP)\r\n      IF (ELTYPE .EQ. BAR) TGRID(1) = (TGRID(1)+TGRID(2))/2.0\r\n      CALL WRITE (ECPT,TGRID,NTEMP,0)\r\n      GO TO 2132\r\nC\r\nC     FATAL ERROR MESAGES\r\nC\r\n 3200 J = -1\r\n      GO TO 3220\r\n 3201 J = -2\r\n      GO TO 3220\r\n 3203 CONTINUE\r\n 3202 J = -3\r\n      GO TO 3220\r\n 3205 BUF(1) = ELEMID\r\n      BUF(2) = ID\r\n      N = 10\r\n      GO TO 3219\r\n 3206 BUF(1) = ELEM(II  )\r\n      BUF(2) = ELEM(II+1)\r\n      N = 11\r\n      GO TO 3219\r\n 3207 BUF(1) = 0\r\n      BUF(2) = 0\r\n      N = 14\r\n      GO TO 3219\r\n 3209 BUF(1) = 0\r\n      BUF(2) = 0\r\n      N = 13\r\n      GO TO 3219\r\n 3210 BUF(1) = TEMPID\r\n      BUF(2) = 0\r\n      N = 44\r\n 3219 CALL MESAGE (-30,N,BUF)\r\n 3220 CALL MESAGE (J,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1c.f",
    "content": "      SUBROUTINE TA1C\r\nC\r\nC     TA1C READS GENERAL ELEMENTS FROM THE ECT AND BUILDS THE GEI.\r\nC     FOR EACH GENERAL ELEMENT, THE UI AND UD LISTS ARE CONVERTED TO\r\nC     SIL NOS. AND SORTED ON SIL NO. THE ELEMENTS OF THE Z AND S\r\nC     MATRICES ARE WRITTEN IN INTERNAL SORT (I.E., ROW AND COL NOS\r\nC     CORRESPOND TO POSITION IN THE SORTED UI AND UD LISTS.\r\nC\r\nC\r\n      INTEGER         GENL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                EST   ,GPECT ,GEI   ,ECPT  ,GPCT  ,SCR1  ,SCR2  ,\r\n     2                SCR3  ,SCR4  ,Z     ,SYSBUF,BUF1  ,BUF2  ,BUF3  ,\r\n     3                FILE  ,FLAG  ,GENEL ,RD    ,RDREW ,WRT   ,WRTREW,\r\n     4                CLSREW,SILNO ,BUF   ,HALF\r\n      DIMENSION       NAM(2),BUF(10)      ,GENEL(2)\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4\r\n      COMMON /TAC1AX/ BUF1  ,BUF2  ,BUF3  ,IUI   ,NUI   ,IUD   ,NUD   ,\r\n     1                IZ    ,NOGO  ,IDGENL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,DUM38(38)    ,NBPW\r\n      COMMON /SETUP / NFILE(6)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      DATA    GENEL / 4301  ,43  / ,NAM /  4HTA1C,4H    /\r\n      DATA    HALF  / 65536      /\r\nC\r\nC     ADD MORE BITS TO HALF IF MACHINE WORD IS LARGER THAN 32\r\nC\r\n      IF (NBPW .GE. 36) HALF = 4*HALF\r\n      IF (NBPW .GT. 36) HALF = 4*HALF\r\nC\r\nC     SET BUFFER POINTERS, ETC.\r\nC\r\n      BUF1 = KORSZ(Z) - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\n      NOGO = 0\r\n      NOGENL = 0\r\nC\r\nC     READ THE SIL INTO CORE\r\nC\r\n      FILE = SIL\r\n      CALL OPEN (*2001,SIL,Z(BUF1),RDREW)\r\n      CALL FWDREC (*2002,SIL)\r\n      CALL READ (*2002,*1011,SIL,Z,BUF2,1,NSIL)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1011 CALL CLOSE (SIL,CLSREW)\r\nC\r\nC     OPEN THE GEI. WRITE HEADER RECORD.\r\nC\r\n      FILE = GEI\r\n      CALL OPEN (*2001,GEI,Z(BUF2),WRTREW)\r\n      CALL FNAME (GEI,BUF)\r\n      CALL WRITE (GEI,BUF,2,1)\r\nC\r\nC     OPEN THE ECT. READ ELEMENT ID.\r\nC\r\n      FILE = ECT\r\n      CALL PRELOC (*2001,Z(BUF1),ECT)\r\n      CALL LOCATE (*2006,Z(BUF1),GENEL,FLAG)\r\n 1031 CALL READ (*2002,*1150,ECT,BUF,1,0,FLAG)\r\n      IDGENL = BUF(1)\r\n      NOGENL = NOGENL + 1\r\nC\r\nC     READ THE UI LIST. STORE POSITION IN UI LIST, SIL NO.,\r\nC     INTERNAL GRID NO., AND COMPONENT CODE.\r\nC\r\n      IUI = NSIL + 1\r\n      I = IUI\r\n      J = 1\r\n 1041 CALL READ (*2002,*2003,ECT,Z(I+2),2,0,FLAG)\r\n      IF (Z(I+2) .EQ. -1) GO TO 1042\r\n      Z(I) = J\r\n      K = Z(I+2)\r\n      Z(I+1) = Z(K)\r\n      IF (Z(I+3) .NE. 0) Z(I+1) = Z(I+1) + Z(I+3) - 1\r\n      I = I + 4\r\n      J = J + 1\r\n      GO TO 1041\r\n 1042 NUI   = I - 4\r\n      NBRUI = J - 1\r\n      NWDUI = 4*NBRUI\r\nC\r\nC     READ THE UD LIST (IF PRESENT). STORE POSITION IN UD LIST, SIL NO.,\r\nC     INTERNAL GRID NO., AND COMPONENT CODE.\r\nC\r\n      IUD = I\r\n      J = 1\r\n 1051 CALL READ (*2002,*2003,ECT,Z(I+2),2,0,FLAG)\r\n      IF (Z(I+2) .EQ. -1) GO TO 1052\r\n      Z(I) = J\r\n      K = Z(I+2)\r\n      Z(I+1) = Z(K)\r\n      IF (Z(I+3) .NE. 0) Z(I+1) = Z(I+1) + Z(I+3) - 1\r\n      I = I + 4\r\n      J = J + 1\r\n      GO TO 1051\r\n 1052 NUD   = I - 4\r\n      NBRUD = J - 1\r\n      NWDUD = 4*NBRUD\r\n      IZ = I\r\nC\r\nC     SORT UI AND UD LISTS ON SIL NO.\r\nC     STORE INTERNAL POSITION IN UI AND UD LISTS.\r\nC     WRITE ELEMENT ID, NO. OF UI-S, NO. OF UD-S.\r\nC     WRITE SIL NOS. FOR UI LIST AND SIL NOS. FOR UD LIST.\r\nC\r\n      CALL SORTI (0,0,4,2,Z(IUI),NWDUI)\r\n      BUF(2) = NBRUI\r\n      BUF(3) = NBRUD\r\n      CALL WRITE (GEI,BUF,3,0)\r\n      K = 1\r\n      DO 1061 I = IUI,NUI,4\r\n      SILNO  = Z(I+1)\r\n      Z(I+1) = K\r\n      CALL WRITE (GEI,SILNO,1,0)\r\n 1061 K = K + 1\r\n      IF (NBRUD .EQ. 0) GO TO 1070\r\n      CALL SORTI (0,0,4,2,Z(IUD),NWDUD)\r\n      K = 1\r\n      DO 1062 I = IUD,NUD,4\r\n      SILNO  = Z(I+1)\r\n      Z(I+1) = K\r\n      CALL WRITE (GEI,SILNO,1,0)\r\n 1062 K = K + 1\r\nC\r\nC     SORT UI LIST ON EXTERNAL POSITION.\r\nC\r\n 1070 CALL SORTI (0,0,4,1,Z(IUI),NWDUI)\r\nC\r\nC     DETERMINE IF CORE WILL HOLD THE FULL Z OR K MATRIX\r\nC\r\n      NCORE  = BUF2 - IZ\r\n      NWDZ   = NBRUI**2\r\n      NOCORE = 0\r\n      IF (NWDZ .GT. NCORE) NOCORE = 1\r\nC\r\nC     READ INDICATOR OF INPUT OF Z OR K MATRIX\r\nC\r\n      CALL READ (*2002,*2003,ECT,IJK,1,0,FLAG)\r\n      CALL WRITE (GEI,IJK,1,0)\r\n      KOZ = 0\r\n      IF (IJK .EQ. 2) KOZ = 1\r\nC\r\nC     READ THE ELEMENTS OF THE Z OR K MATRIX.\r\nC     CONVERT FROM EXTERNAL ROW AND COL NOS. TO INTERNAL ROW AND COL\r\nC     NOS.  IF CORE WILL HOLD Z OR K, STORE THE ELEMENTS IN CORE\r\nC     OTHERWISE, WRITE CODED ROW/COL NOS AND ELEMENTS ON SCRATCH FILE.\r\nC\r\n      IF (NOCORE .NE. 0) CALL OPEN (*2001,SCR4,Z(BUF3),WRTREW)\r\n      DO 1094 I = IUI,NUI,4\r\n      INTROW = Z(I+1)\r\n      KROW = IZ + (INTROW-1)*NBRUI - 1\r\n      DO 1094 J = I,NUI,4\r\n      INTCOL = Z(J+1)\r\n      KCOL = IZ + (INTCOL-1)*NBRUI - 1\r\n      CALL READ (*2002,*2003,ECT,BUF(3),1,0,FLAG)\r\n      IF (NOCORE .NE. 0) GO TO 1092\r\n      K    = KROW + INTCOL\r\n      Z(K) = BUF(3)\r\n      K    = KCOL + INTROW\r\n      Z(K) = BUF(3)\r\n      GO TO 1093\r\n 1092 M = 3\r\n      BUF(1) = INTCOL\r\n      BUF(2) = INTROW\r\n      IF (INTROW .EQ. INTCOL) GO TO 1095\r\n      BUF(4) = INTROW\r\n      BUF(5) = INTCOL\r\n      BUF(6) =BUF(3)\r\n      M = 6\r\n 1095 CALL WRITE (SCR4,BUF,M,0)\r\n 1093 CONTINUE\r\n 1094 CONTINUE\r\n      IF (NOCORE .NE. 0) CALL CLOSE (SCR4,CLSREW)\r\nC\r\nC     IF Z OR K MATRIX IS IN CORE,WRITE IT OUT\r\nC     OTHERWISE,SORT THE MATRIX AND THEN WRITE IT.\r\nC\r\n      IF (NOCORE .EQ. 0) GO TO  1103\r\n      CALL OPEN (*2001,SCR4,Z(BUF3),RDREW)\r\n      NFILE(1) = SCR1\r\n      NFILE(2) = SCR2\r\n      NFILE(3) = SCR3\r\n      CALL SORTI (SCR4,0,3,2,Z(IZ),NCORE-SYSBUF)\r\n      CALL CLOSE (SCR4,CLSREW)\r\n      IF (NFILE(6) .EQ. NFILE(1)) NFILE(1) = SCR4\r\n      IF (NFILE(6) .EQ. NFILE(2)) NFILE(2) = SCR4\r\n      IF (NFILE(6) .EQ. NFILE(3)) NFILE(3) = SCR4\r\n      JFILE = NFILE(6)\r\n      CALL OPEN (*2001, JFILE, Z(BUF3), RDREW)\r\n      CALL SORTI (JFILE, 0, 3, -1, Z(IZ), NCORE-SYSBUF)\r\n      CALL CLOSE (JFILE, CLSREW)\r\n      CALL OPEN  (*2001,NFILE(6),Z(BUF3),RDREW)\r\n 1101 CALL READ  (*2002,*1102,NFILE(6),BUF,3,0,FLAG)\r\n      CALL WRITE (GEI,BUF(3),1,0)\r\n      GO TO 1101\r\n 1102 CALL CLOSE (NFILE(6),CLSREW)\r\n      GO TO 1110\r\n 1103 CALL WRITE (GEI,Z(IZ),NWDZ,0)\r\nC\r\nC     READ FLAG WORD FOR S MATRIX.\r\nC     IF S MATRIX NOT PRESENT, BUT UD IS PRESENT,\r\nC     EXECUTE TA1CA TO COMPUTE AND WRITE S MATRIX.\r\nC     IF S MATRIX AND UD BOTH NOT PRESENT, CLOSE GEI RECORD AND LOOP\r\nC     BACK\r\nC\r\n 1110 CALL READ (*2002,*2003,ECT,BUF,1,0,FLAG)\r\n      IF (BUF(1) .NE. 0) GO TO 1120\r\n      IF (NBRUD  .EQ. 0) GO TO 1111\r\n      CALL SORTI (0,0,4,2,Z(IUI),NWDUI)\r\n      CALL TA1CA (KOZ)\r\n 1111 CALL WRITE (GEI,0,0,1)\r\n      GO TO 1031\r\nC\r\nC     S MATRIX IS PRESENT.\r\nC     DETERMINE IF CORE WILL HOLD THE FULL S MATRIX\r\nC\r\n 1120 NWDS = NBRUD*NBRUI\r\n      CALL SORTI (0,0,4,1,Z(IUD),NWDUD)\r\n      NOCORE = 0\r\n      IF (NWDS .GT. NCORE) NOCORE = 1\r\nC\r\nC     READ THE ELEMENTS OF THE S MATRIX.\r\nC     CONVERT FROM EXTERNAL ROW AND COL NOS TO INTERNAL ROW AND COL NOS.\r\nC     IF CORE WILL HOLD S, STORE THE ELEMENTS IN CORE.\r\nC     OTHERWISE, WRITE CODED ROW/COL NOS AND ELEMENTS ON SCRATCH FILE.\r\nC\r\n      IF (NOCORE .NE. 0) CALL OPEN (*2001,SCR4,Z(BUF3),WRTREW)\r\n      DO 1133 I = IUI,NUI,4\r\n      INTROW = Z(I+1)\r\n      KROW   = IZ + (INTROW-1)*NBRUD - 1\r\n      DO 1132 J = IUD,NUD,4\r\n      INTCOL = Z(J+1)\r\n      K = KROW + INTCOL\r\n      CALL READ (*2002,*2003,ECT,BUF(3),1,0,FLAG)\r\n      IF (NOCORE .NE. 0) GO TO 1131\r\n      Z(K) = BUF(3)\r\n      GO TO 1132\r\n 1131 BUF(1) = INTROW\r\n      BUF(2) = INTCOL\r\n      CALL WRITE (SCR4,BUF,3,1)\r\n 1132 CONTINUE\r\n 1133 CONTINUE\r\n      IF (NOCORE .NE. 0) CALL CLOSE (SCR4,CLSREW)\r\nC\r\nC     IF S MATRIX IS IN CORE, WRITE IT OUT.\r\nC     OTHERWISE, SORT THE MATRIX AND THEN WRITE IT.\r\nC\r\n      IF (NOCORE .EQ. 0) GO TO 1142\r\n      CALL OPEN (*2001,SCR4,Z(BUF3),RDREW)\r\n      NFILE(1) = SCR1\r\n      NFILE(2) = SCR2\r\n      NFILE(3) = SCR3\r\n      CALL SORTI (SCR4,0,3,2,Z(IZ),NCORE-SYSBUF)\r\n      CALL CLOSE (SCR4,CLSREW)\r\n      IF (NFILE(6) .EQ. NFILE(1)) NFILE(1) = SCR4\r\n      IF (NFILE(6) .EQ. NFILE(2)) NFILE(2) = SCR4\r\n      IF (NFILE(6) .EQ. NFILE(3)) NFILE(3) = SCR4\r\n      JFILE = NFILE(6)\r\n      CALL OPEN (*2001, JFILE, Z(BUF3), RDREW)\r\n      CALL SORTI (JFILE, 0, 3, -1, Z(IZ), NCORE-SYSBUF)\r\n      CALL CLOSE (JFILE, CLSREW)\r\n      CALL OPEN  (*2001,NFILE(6),Z(BUF3),RDREW)\r\n 1141 CALL READ  (*2002,*1143,NFILE(6),BUF,3,0,FILE)\r\n      CALL WRITE (GEI,BUF(3),1,0)\r\n      GO TO 1141\r\n 1142 CALL WRITE (GEI,Z(IZ),NWDS,0)\r\n 1143 CALL WRITE (GEI,0,0,1)\r\n      GO TO 1031\r\nC\r\nC     HERE WHEN NO MORE GENERAL ELEMENTS\r\nC\r\n 1150 CALL CLOSE (ECT,CLSREW)\r\n      CALL CLOSE (GEI,CLSREW)\r\n      BUF(1) = GEI\r\n      BUF(2) = NOGENL\r\n      CALL WRTTRL (BUF)\r\n      IF (NOGO .NE. 0) CALL MESAGE (-61,0,NAM)\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n 2001 N = -1\r\n      GO TO 2005\r\n 2002 N = -2\r\n      GO TO 2005\r\n 2003 N = -3\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n 2006 CALL MESAGE (-30,63,BUF)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1ca.f",
    "content": "      SUBROUTINE TA1CA(KOZ)\r\nC*****\r\nC THIS ROUTINE, CALLED BY SUBROUTINE TA1C, COMPUTES THE S MATRIX OF A\r\nC GENERAL ELEMENT FROM INFORMATION IN THE CSTM AND BGPDT DATA BLOCKS.\r\nC SEE FMMS-57 FOR EQUATIONS.\r\nC*****\r\n      DOUBLE PRECISION\r\n     1                   V(3)               ,T(9)\r\n     2,                  E(18)              ,D(42)\r\n     3,                  S(6)               ,DET\r\n     4,                  B(6)               ,INDEX(18)\r\n     5,                  DD(30)             ,DL(25)\r\n     6,                  DU(25)\r\nC\r\nC\r\nC\r\n      INTEGER\r\n     1                   CSTM               ,BGPDT\r\n     2,                  GEI                ,FILE\r\n     3,                  CLSRW              ,EOR\r\n     4,                  BUFR1              ,BUFR2\r\n     5,                  BUFR3\r\nC\r\nC\r\nC\r\n      DIMENSION\r\n     1                   NAME(2)            ,SSP(6)\r\n     2,                  Z(1)\r\n     3,                  LROW(5)            ,ICOL(6)\r\nC\r\nC\r\nC\r\n      COMMON   /TA1COM/\r\n     1                   DUM3(3)            ,BGPDT\r\n     2,                  DUM2(2)            ,CSTM\r\n     3,                  DUM22(2)           ,GEI\r\nC\r\nC OPEN CORE\r\nC\r\n      COMMON   /ZZZZZZ/\r\n     1                   IZ(1)\r\nC\r\nC\r\nC\r\n      COMMON   /NAMES /\r\n     1                   DUMMY1             ,INRW\r\n     2,                  DUMMY2             ,OUTRW\r\n     3,                  CLSRW\r\nC\r\nC\r\nC\r\n      COMMON   /TAC1AX/\r\n     1                   BUFR1              ,BUFR2\r\n     2,                  BUFR3              ,IUI\r\n     3,                  NUI                ,IUD\r\n     4,                  NUD                ,IZZZ\r\n     5,                  NOGO               ,IDGENL\r\nC\r\nC\r\nC\r\n      EQUIVALENCE\r\n     1                   (Z(1),IZ(1))\r\nC\r\nC\r\nC\r\n      DATA     EOR,NEOR /1,0/\r\n      DATA     NAME(1)/4HTA1C/ , NAME(2)/4HA   /\r\nC\r\nC INITIALIZE\r\nC\r\n      NCSTM = 0\r\n      ICSTM = IZZZ\r\n      LEFT  = BUFR3 - ICSTM\r\nC\r\nC ATTEMPT TO OPEN THE CSTM\r\nC\r\n      FILE = CSTM\r\n      CALL OPEN(*20,CSTM,Z(BUFR3),INRW)\r\n      CALL FWDREC(*9020,CSTM)\r\n      CALL READ(*9020,*10,CSTM,Z(ICSTM+1),LEFT,EOR,NCSTM)\r\n      CALL MESAGE (-8,0,NAME(1))\r\n   10 CALL CLOSE (CSTM,CLSRW)\r\nC\r\nC PRETRD SETS UP SUBSEQUENT CALLS TO TRANSD\r\nC\r\n      CALL PRETRD (Z(ICSTM+1),NCSTM)\r\n      LEFT = LEFT - NCSTM\r\nC\r\nC READ THE BGPDT INTO CORE\r\nC\r\n   20 IBGPDT = ICSTM + NCSTM\r\n      FILE = BGPDT\r\n      CALL OPEN(*9010,BGPDT,Z(BUFR3),INRW)\r\n      CALL FWDREC(*9020,BGPDT)\r\n      CALL READ(*9020,*30,BGPDT,Z(IBGPDT+1),LEFT,EOR,NBGPDT)\r\n      CALL MESAGE (-8,0,NAME(1))\r\n   30 CALL CLOSE (BGPDT,CLSRW)\r\nC\r\nC ZERO OUT THE E MATRIX\r\nC\r\n      DO 40 I = 1,18\r\n   40 E(I) = 0.0D0\r\n      E(1)  = 1.0D0\r\n      E(8)  = 1.0D0\r\n      E(15) = 1.0D0\r\n      IND = 0\r\n   50 IND = IND + 1\r\nC*****\r\nC IF IND = 1, THE D MATRIX IS FORMED IN THE DO 200 LOOP.\r\nC IF IND = 2, THE S MATRIX IS FORMED AND OUTPUT A ROW AT A TIME IN THE\r\nC DO LOOP.\r\nC*****\r\n      IF (IND - 2) 60,70,300\r\n   60 CONTINUE\r\nC\r\nC     IF STIFFNESS IS INPUT,CALCULATE LIM\r\nC\r\n      IF (KOZ.EQ.1) GO TO 65\r\n      LIM = 6\r\n      LIMA = 6\r\n      IBEG = IUD\r\n      GO TO 80\r\n   65 LIM = (NUD - IUD) / 4 + 1\r\n      LIMA = LIM\r\n      IBEG = IUD\r\n      GO TO 80\r\n   70 LIM = (NUI - IUI) / 4  +  1\r\n      IBEG = IUI\r\n      IROW = 37\r\n   80 J = IBEG - 2\r\n      I = 1\r\n   85 CONTINUE\r\n      IF (IND .EQ. 1) IROW = 6*I - 5\r\n      J = J + 4\r\n      JJ = IZ(J+1)\r\n      K = IBGPDT + 4*(IZ(J) - 1)\r\nC\r\nC COMPUTE THE V VECTOR\r\nC\r\n      V(1) = 0.0D0\r\n      V(2) = 0.0D0\r\n      V(3) = 0.0D0\r\n      KK = JJ\r\n      IF (JJ .GT. 3) KK = JJ - 3\r\n      IF (IZ(K+1) .EQ. 0) GO TO 120\r\n      CALL TRANSD (IZ(K+1),T)\r\n      GO TO (90,100,110), KK\r\n   90 V(1) = T(1)\r\n      V(2) = T(4)\r\n      V(3) = T(7)\r\n      GO TO 130\r\n  100 V(1) = T(2)\r\n      V(2) = T(5)\r\n      V(3) = T(8)\r\n      GO TO 130\r\n  110 V(1) = T(3)\r\n      V(2) = T(6)\r\n      V(3) = T(9)\r\n      GO TO 130\r\n  120 V(KK) = 1.0D0\r\nC\r\nC FORM THE E MATRIX IF THE DEGREE OF FREEDOM IS A TRANSLATION.\r\nC\r\n  130 IF (JJ .GT. 3) GO TO 150\r\n      E( 5) =  Z(K+4)\r\n      E( 6) = -Z(K+3)\r\n      E(10) = -Z(K+4)\r\n      E(12) =  Z(K+2)\r\n      E(16) =  Z(K+3)\r\n      E(17) = -Z(K+2)\r\n      IF (IZ(K+1) .EQ. 0) GO TO 140\r\n      CALL GMMATD (V,3,1,1, E,3,6,0, D(IROW) )\r\n      GO TO 180\r\n  140 IEROW = 6*JJ - 5\r\n      D(IROW  ) = E(IEROW  )\r\n      D(IROW+1) = E(IEROW+1)\r\n      D(IROW+2) = E(IEROW+2)\r\n      D(IROW+3) = E(IEROW+3)\r\n      D(IROW+4) = E(IEROW+4)\r\n      D(IROW+5) = E(IEROW+5)\r\n      GO TO 180\r\nC\r\nC THE DEGREE OF FREEDOM IS A ROTATION.\r\nC\r\n  150 LL = IROW\r\n      DO 160 L = 1,6\r\n      D(LL) = 0.0D0\r\n  160 LL = LL + 1\r\n      IF (IZ(K+1) .EQ. 0) GO TO 170\r\n      D(IROW+3) = V(1)\r\n      D(IROW+4) = V(2)\r\n      D(IROW+5) = V(3)\r\n      GO TO 180\r\n  170 LL = IROW + JJ - 1\r\n      D(LL) = 1.0D0\r\nC\r\nC IF IND = 2 FORM A ROW OF THE S MATRIX AND WRITE IT OUT.\r\nC\r\n  180 IF (IND .EQ. 1) GO TO 200\r\nC\r\nC     IF STIFFNESS MATRIX INPUT AND LESS THAN 6 RIGID BODY DEGREES OF\r\nC     FREEDOM, BRANCH\r\nC\r\n      IF (KOZ.EQ.1.AND.LIMA.LT.6) GO TO 410\r\n      CALL GMMATD (D(37),6,1,1, D(1),6,6,0, S(1) )\r\n      DO 190 L = 1,6\r\n  190 SSP(L) = S(L)\r\n      CALL WRITE (GEI,SSP,6,NEOR)\r\n  195 CONTINUE\r\n  200 CONTINUE\r\n      I = I + 1\r\n      IF (I.LE.LIM) GO TO 85\r\n      IF (IND .NE. 1) GO TO 300\r\nC\r\nC     IF STIFFNESS MATRIX WAS INPUT AND LESS THAN 6 RIGID BODY DEGREES\r\nC     OF FREEDOM, BRANCH\r\nC\r\n      IF (KOZ.EQ.1.AND.LIM.LT.6) GO TO 310\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERD (6,D(1),6,B(1),0,DET,ISING,INDEX(1))\r\n      IF (ISING .EQ. 1) GO TO 50\r\n      NOGO = 1\r\n      CALL MESAGE (30,82,IDGENL)\r\n      GO TO 300\r\n  310 CONTINUE\r\nC\r\nC     SWITCH FROM ROW STORED TO COLUMN STORED\r\nC\r\n      DO 320 I=1,LIM\r\n      DO 320 J=1,6\r\n      INDXZ = I+(J-1)*LIM\r\n  320 DD(INDXZ) = D(6*I+J-6)\r\nC\r\nC     DETERMINE RANK OF DD AND EXPRESS MATRIX OF MAXIMAL RANK AS A\r\nC     PRODUCT OF TRIANGULAR FACTORS\r\nC\r\n      CALL DMFGR(DD,LIM,6,1.05E-05,IRANK,LROW,ICOL)\r\n      IF (IRANK.EQ.LIM) GO TO 325\r\n      NOGO = 1\r\n      CALL MESAGE (30,152,IDGENL)\r\n      GO TO 300\r\nC\r\nC     EXTRACT LOWER AND UPPER TRIANGULAR FACTORS, FORM PRODUCT,RESTORE\r\nC     ROWS TO THEIR POSITION BEFORE FACTORIZATION AND INVERT. THEN\r\nC     EXPAND MATRIX TO BE OF DIMENSION  6 BY IRANK\r\nC\r\n  325 IF (IRANK.EQ.1) GO TO 365\r\n      DO 335 I=1,25\r\n      DL(I) = 0.0D0\r\n  335 DU(I) = 0.0D0\r\n      DO 350 I=1,IRANK\r\n      DO 350 J=1,IRANK\r\n      IF (I.GT.J) GO TO 340\r\n      IF (I.EQ.J) GO TO 330\r\n      INDXZ = I+(J-1)*IRANK\r\n      DL(INDXZ) = DD(I*IRANK+J-IRANK)\r\n      GO TO 350\r\n  330 INDXZ = I+(J-1)*IRANK\r\n      DL(INDXZ) = 1.0D0\r\n  340 INDXZ = I+(J-1)*IRANK\r\n      DU(INDXZ) = DD(I*IRANK+J-IRANK)\r\n  350 CONTINUE\r\n      CALL GMMATD (DL(1),LIM,LIM,0,DU(1),LIM,LIM,0,DD)\r\n      DO 360 I=1,LIM\r\n      K = LROW(I)\r\n      DO 360 J=1,LIM\r\n      INDXZ = J+(K-1)*LIM\r\n  360 D(INDXZ) = DD(I*LIM+J-LIM)\r\nC     AGAIN NO NEED TO COMPUTE DETERMINANT\r\n      ISING = -1\r\n      CALL INVERD (LIM,D(1),LIM,B(1),0,DET,ISING,INDEX(1))\r\n      IF (ISING.EQ.1) GO TO 370\r\n      NOGO = 1\r\n      CALL MESAGE (30,153,IDGENL)\r\n      GO TO 300\r\n  365 D(1) = 1.0D0/DD(1)\r\n  370 K = LIM * LIM + 1\r\n      J = LIM * 6\r\n      DO 380  I = K,J\r\n  380 D(I) = 0.0D0\r\n      GO TO 50\r\n  410 CONTINUE\r\nC\r\nC     REARRANGE COLUMNS TO AGREE WITH ORDER OF DD AFTER MATRIX FACTOR-\r\nC     IZATION\r\nC\r\n      DO 420 L = 1,6\r\n      LK = ICOL(L)\r\n  420 B(L) = D(36+LK)\r\nC\r\nC     MULTIPLY DI BY THE EXPANDED INVERSE OF DD\r\nC\r\n      CALL GMMATD (B(1),1,6,0,D(1),6,LIMA,0,S(1))\r\nC\r\nC     WRITE OUT THIS ROW OF THE S MATRIX\r\nC\r\n      DO 430 L =1,LIMA\r\n  430 SSP(L) = S(L)\r\n      CALL WRITE (GEI,SSP,LIMA,NEOR)\r\n      GO TO 195\r\n  300 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 9010 CALL MESAGE (-1,FILE,NAME(1))\r\n 9020 CALL MESAGE (-1,FILE,NAME(1))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1cpd.f",
    "content": "      SUBROUTINE TA1CPD\r\nC\r\nC     G3 MATRIX CALCULATION WITH NEW FORMULATION\r\nC\r\nC     THIS ROUTINE IS CALLED IN TA1 IF PARAM COMPS IS SET TO -1\r\nC     INDICATING PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES ARE\r\nC     PRESENT. IT'S PRIMARY FUNCTION IS TO -\r\nC       1. CREATE FILE PCOMPS WHICH WILL CONTAIN THE ECHO OF THE\r\nC          'PCOMPS' ENTRIES ALONG WITH INDIVIDUAL LAYER INTRINISIC\r\nC          PROPERTY MATRICES.\r\nC       2. CALCULATE OVERALL MATERIAL PROPERTIES IN THE FORM OF MAT2\r\nC          ENTRIES AND WRITE TO FILE MPTX.\r\nC       3. GENERATE EQUIVALENT PSHELL PROPERTY ENTRIES AND WRITE TO\r\nC          FILE EPTX.\r\nC\r\n      EXTERNAL         ANDF,ORF\r\n      LOGICAL          OK UAI\r\n      INTEGER          PCOMP(2),PCOMP1(2),PCOMP2(2),COMPS,PCBIT(3),EPTX,\r\n     1                 PSHLPR,EPTWDS,PSHBIT,RD,RDREW,WRT,WRTREW,CLSREW,\r\n     2                 CLS,IPSHEL(17),PSHNAM(3),PCOMPR,TYPC,TYPC1,TYPC2,\r\n     3                 FLAG,EPT,PCOMPS,EOF,ELID,PIDLOC,EOELOC,SYM,Z,\r\n     4                 SYMMEM,EOE,SYSBUF,POS,POS1,BUF0,BUF1,BUF2,BUF3,\r\n     5                 BUF4,BUF5,FILE,INDEX(6,3),INDEXX(3,3),ANDF,ORF,\r\n     6                 BLANK\r\n      DIMENSION        RZ(1),NPCMP(3),NPCMP1(3),NPCMP2(3),NAM(2),\r\n     1                 NAM1(2),NAM2(2),MATNAM(3),IPCOMP(7),IMEMBR(17),\r\n     2                 IBENDG(17),IMEMBD(17),ITRSHR(17),IMPTX(7),\r\n     3                 IEPTX(7)\r\n      REAL             GLAY(25),GMEMBR(17),GBENDG(17),GMEMBD(17),\r\n     1                 GTRSHR(17),EXX,EYY,EIXX,EIYY,ZX,ZY,RPSHEL(17),\r\n     2                 ALFA1,ALFA2,ALFA12,TREF,GSUBE\r\n      DOUBLE PRECISION THETA,THETAR,C,C2,C4,S,S2,S4,PI,TWOPI,RADDEG,\r\n     1                 DEGRAD,T(9),GT(9),GBR(9),GBAR(3,3),G(25),\r\n     2                 GD(9),GDT(9),GDBR(9),GDBAR(3,3),GD2(3,3),U(9),\r\n     3                 G3I(9),G3IU(9),G3BR(9),G3BAR(3,3),G1(3,3),\r\n     4                 G2(3,3),G3(2,2),G4(3,3),TLAM,ZK,ZK1,ZREF,\r\n     5                 ZG1,ZG2,ZG4,ZI,TI,RHO,DETRMN,CONST,ZBARX,ZBARY,\r\n     6                 TRFLX(2,2),ZBARXT,ZBARXB,ZBARYT,ZBARYB,ZBAR(2),\r\n     7                 GTRFLX(2,2),G3INVD(2,2),EX,EY,E(2),FI(2),\r\n     8                 FII(2),RI(2),DETERM,DUM(6),DUMMY(3),STIFF(6,6),\r\n     9                 EI(2),GD1(3,3),GD4(3,3),EPSI\r\n      COMMON /BLANK /  LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/  NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                 MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                 PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4\r\n      COMMON /NAMES /  RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  SYSBUF,NOUT  ,NOGO  ,DM(20),ICFIAT\r\n      COMMON /MATIN /  MATID ,INFLAG,ELTEMP\r\n      COMMON /MATOUT/  RMTOUT(25)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /CONDAD/  PI    ,TWOPI ,RADDEG,DEGRAD\r\n      COMMON /TWO   /  TWO(32)\r\n      EQUIVALENCE      (Z(1)     ,RZ(1)    ), (IPSHEL(1),RPSHEL(1)),\r\n     1                 (IMEMBR(1),GMEMBR(1)), (IBENDG(1),GBENDG(1)),\r\n     2                 (IMEMBD(1),GMEMBD(1)), (ITRSHR(1),GTRSHR(1))\r\nC     DATA    MPT   /  107/\r\nC     DATA    MPTX  /  206/\r\nC     DATA    PCOMPS/  207/\r\nC     DATA    EPTX  /  208/\r\n      DATA    PCOMP /  5502,55/\r\n      DATA    PCOMP1/  5602,56/\r\n      DATA    PCOMP2/  5702,57/\r\n      DATA    NPCMP /  5502,55,280/\r\n      DATA    NPCMP1/  5602,56,281/\r\n      DATA    NPCMP2/  5702,57,282/\r\n      DATA    PSHNAM/  5802,58,283/\r\n      DATA    MATNAM/  203, 2, 78 /\r\n      DATA    PCBIT /  55, 56, 57 /\r\n      DATA    PSHBIT/  58/\r\n      DATA    I1ST  /  1 /\r\n      DATA    SYM   /  1 /\r\n      DATA    MEM   /  2 /\r\n      DATA    SYMMEM/  3 /\r\n      DATA    MT2BIT/  2 /\r\n      DATA    EOE   /  -1/\r\n      DATA    NAM   /  4HTA1C, 4HPD   /\r\n      DATA    NAM2  /  4HPCOM, 4HPS   /\r\n      DATA    BLANK /  4HBLNK         /\r\n      DATA    OK UAI/  .TRUE.         /\r\n      DATA    EPSI  /  1.0D-15        /\r\nC\r\n      BUF0 = KORSZ(Z) - SYSBUF - 2\r\n      BUF1 = BUF0 - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      BUF4 = BUF3 - SYSBUF - 2\r\n      BUF5 = BUF4 - SYSBUF - 2\r\nC\r\nC     PERFORM GENERAL INITILIZATION\r\nC\r\n      MATWDS = 0\r\n      EOF    = 0\r\n      ELID   = 0\r\n      MAT2PR = 0\r\n      PSHLPR = 0\r\n      ICOUNT = 0\r\n      RHO    = 0.0D0\r\n      IF (MACH .EQ. 2) EPSI = 1.0D-12\r\nC\r\nC     OPEN EPTX AND WRITE HEADER RECORD\r\nC\r\n      FILE = EPTX\r\n      CALL OPEN  (*1200,EPTX,Z(BUF0),WRTREW)\r\n      CALL FNAME (EPTX,NAM1)\r\n      CALL WRITE (EPTX,NAM1,2,1)\r\nC\r\nC     OPEN MPTX AND WRITE HEADER RECORD\r\nC\r\n      FILE = MPTX\r\n      CALL OPEN  (*1200,MPTX,Z(BUF1),WRTREW)\r\n      CALL FNAME (MPTX,NAM1)\r\n      CALL WRITE (MPTX,NAM1,2,1)\r\nC\r\nC     OPEN MPT AND POSITION FILE\r\nC\r\n      FILE = MPT\r\n      CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1200,MPT)\r\nC\r\nC     OPEN PCOMPS AND WRITE HEADER RECORD\r\nC     WRITE TO IPCOMP(1), THE GINO FILE NAME OF PCOMPS\r\nC\r\n      FILE = PCOMPS\r\n      CALL OPEN  (*1200,PCOMPS,Z(BUF3),WRTREW)\r\n      CALL WRITE (PCOMPS,NAM2,2,1)\r\nC\r\n      IPCOMP(1) = PCOMPS\r\n      DO 10 LL = 2,7\r\n   10 IPCOMP(LL) = 0\r\nC\r\nC     COPY ALL EPT ENTRIES UP TO PSHELL TYPE TO FILE EPTX\r\nC     IF NONE FOUND, MUST CREATE ONE BEFORE THE LAST RECORD IN FILE\r\nC\r\nC     SET AVAILABLE CORE\r\nC\r\n      N = BUF5 - 1\r\n      IEPT = I1ST\r\n      FILE = EPT\r\n      CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FWDREC (*1200,EPT)\r\n      IREC = 0\r\n   20 CALL FWDREC (*30,EPT)\r\n      IREC = IREC + 1\r\n      GO TO 20\r\nC\r\n   30 CALL REWIND (EPT)\r\n      CALL FWDREC (*1200,EPT)\r\n      IRED = 0\r\n   40 CALL READ (*1200,*50,EPT,Z(IEPT),N,1,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n   50 IF (Z(IEPT) .EQ. 4902) GO TO 60\r\n      IRED = IRED + 1\r\n      IF (IRED .EQ. IREC) GO TO 70\r\n      CALL WRITE (EPTX,Z(IEPT),EPTWDS,1)\r\n      EPTWDS = 0\r\n      GO TO 40\r\nC\r\n   60 PSHLPR = 1\r\n   70 CALL BCKREC (EPT)\r\n      CALL SAVPOS (EPT,POS1)\r\n      CALL CLOSE  (EPT,CLSREW)\r\nC\r\nC     OPEN EPT\r\nC\r\n      FILE = EPT\r\n      CALL PRELOC (*1200,Z(BUF4),EPT)\r\nC\r\nC     COPY ALL MAT ENTRIES UP TO MAT2 TYPE TO FILE MPTX\r\nC\r\nC     SET AVAILABLE CORE\r\nC\r\n      N = BUF5 - 1\r\n      IMAT = I1ST\r\n   80 CALL READ (*110,*90,MPT,Z(IMAT),N,1,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n   90 IF (Z(IMAT) .GE. 203) GO TO 100\r\n      CALL WRITE (MPTX,Z(IMAT),MATWDS,1)\r\n      MATWDS = 0\r\n      GO TO 80\r\n  100 CALL BCKREC (MPT)\r\n      CALL SAVPOS (MPT,POS)\r\n      IF (Z(IMAT) .EQ. 203) MAT2PR = 1\r\n      GO TO 120\r\nC\r\nC     SET END OF FILE FLAG\r\nC\r\n  110 EOF = 1\r\nC\r\nC     CLOSE MPT BEFORE CALLING PREMAT\r\nC\r\n  120 CALL CLOSE (MPT,1)\r\nC\r\nC     SET POINTERS AND PERFORM INITILIZATION\r\nC\r\n      IPC1  = 1\r\n      NPC   = 0\r\n      NPC1  = 0\r\n      NPC2  = 0\r\n      TYPC  = 0\r\n      TYPC1 = 0\r\n      TYPC2 = 0\r\nC\r\nC     SET SIZE OF AVAILABLE CORE\r\nC\r\n      N   = BUF5 - 1\r\n      IPC = 1\r\nC\r\nC     LOCATE PCOMP DATA AND READ INTO CORE\r\nC\r\n      CALL LOCATE (*140,Z(BUF4),PCOMP,FLAG)\r\nC\r\n      CALL READ (*1200,*130,EPT,Z(IPC),N,0,NPC)\r\n      CALL MESAGE (-8,0,NAM)\r\n  130 IF (NPC .GT. 0) TYPC = 1\r\n      IPC1 = IPC + NPC\r\n      IF (IPC1 .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      N = N - NPC\r\nC\r\nC     LOCATE PCOMP1 DATA AND READ INTO CORE\r\nC\r\n  140 CALL LOCATE (*160,Z(BUF4),PCOMP1,FLAG)\r\nC\r\n      IPC1 = IPC + NPC\r\n      CALL READ (*180,*150,EPT,Z(IPC1),N,0,NPC1)\r\n      CALL MESAGE (-8,0,NAM)\r\n  150 IF (NPC1 .GT. 0) TYPC1 = 1\r\n      IPC2 = IPC1 + NPC1\r\n      IF (IPC2 .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      N = N - NPC1\r\nC\r\nC     LOCATE PCOMP2 DATA AND READ INTO CORE\r\nC\r\n  160 CALL LOCATE (*180,Z(BUF4),PCOMP2,FLAG)\r\nC\r\n      IPC2 = IPC1 + NPC1\r\n      CALL READ (*180,*170,EPT,Z(IPC2),N,0,NPC2)\r\n      CALL MESAGE (-8,0,NAM)\r\n  170 IF (NPC2 .GT. 0) TYPC2 = 1\r\nC\r\nC     SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE\r\nC\r\n  180 LPCOMP = IPC + NPC + NPC1 + NPC2\r\n      IF (LPCOMP .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     CLOSE EPT BEFORE PROCESSING PCOMPI\r\nC\r\n      CALL CLOSE (EPT,1)\r\nC\r\nC     READ MATERIAL PROPERTY TABLE INTO CORE\r\nC\r\n      IMAT  = LPCOMP + 1\r\n      N1MAT = BUF5 - IMAT\r\n      CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF5),N1MAT,N2MAT,MPT,DIT)\r\n      IF (IMAT+N2MAT .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      ICORE = IMAT + N2MAT + 1\r\nC\r\nC     SET POINTERS\r\nC\r\n      ITYPE  =-1\r\n      ISTART = 0\r\n      IFINIS = 0\r\nC\r\nC     PROCESS ALL 'PCOMP' ENTRY TYPES SEQUENTIALLY\r\nC\r\nC     PCOMP ENTRIES\r\nC\r\n      IF (TYPC .EQ. 0) GO TO 190\r\n      ITYPE  = 0\r\n      ISTART = IPC\r\n      IFINIS = IPC1 - 1\r\n      NWDPC  = 8\r\n      KPC    = 4\r\n      PCOMPR = 1\r\n      GO TO 220\r\nC\r\nC     PCOMP1 ENTRIES\r\nC\r\n  190 IF (TYPC1 .EQ. 0) GO TO 200\r\n      ITYPE  = 1\r\n      ISTART = IPC1\r\n      IFINIS = IPC2 - 1\r\n      NWDPC  = 8\r\n      KPC    = 1\r\n      PCOMPR = 1\r\n      GO TO 220\r\nC\r\nC     PCOMP2 ENTRIES\r\nC\r\n  200 IF (TYPC2 .EQ. 0) GO TO 210\r\n      ITYPE  = 2\r\n      ISTART = IPC2\r\n      IFINIS = LPCOMP - 1\r\n      NWDPC  = 8\r\n      KPC    = 2\r\nC\r\nC     CHECK IF NO PCOMP DATA HAS BEEN READ INTO CORE\r\nC\r\n  210 IF (TYPC.EQ.0 .AND. TYPC1.EQ.0 .AND. TYPC2.EQ.0) GO TO 1210\r\nC\r\nC     SET INFLAG = 12, SO THAT FOR LAMINA REFERENCING MAT1 OR MAT2\r\nC     PROPERTY ENTRY WILL BE RETURNED IN MAT2 FORMAT. EXECPT FOR\r\nC     THOSE REFERENCING MAT8 PROPERTY, IN WHICH CASE THE ENTRY\r\nC     IS MERELY ECHOED.\r\nC\r\n  220 INFLAG = 12\r\nC\r\nC     SET POINTERS\r\nC\r\nC     WRITE 3-WORD IDENTITY FOR PCOMP DATA\r\nC\r\nC     PCOMP TYPE\r\nC\r\n      IF (ITYPE .NE. 0) GO TO 230\r\n      CALL WRITE (PCOMPS,NPCMP,3,0)\r\n      GO TO 250\r\nC\r\nC     PCOMP1 TYPE\r\nC\r\n  230 IF (ITYPE .NE. 1) GO TO 240\r\n      CALL WRITE (PCOMPS,NPCMP1,3,0)\r\n      GO TO 250\r\nC\r\nC     PCOMP2 TYPE\r\nC\r\n  240 CALL WRITE (PCOMPS,NPCMP2,3,0)\r\nC\r\nC     PROCESS ALL 'PCOMP' ENTRIES\r\nC\r\n  250 LEN    = 0\r\n      NLAY   = 0\r\n      EOELOC = 0\r\n      PIDLOC = 1\r\n      TLAM   = 0.D0\r\n      RHO    = 0.D0\r\n      ZK     = 0.0D0\r\n      ZK1    = 0.0D0\r\nC\r\nC ... NEXT 5 TERMS ARE NEW IN 2/1990 UAI CODE\r\nC     PICK THEM UP IF OK UAI FLAG IS .TRUE.\r\nC\r\n      IF (.NOT.OK UAI) GO TO 255\r\n      TREF   = 0.0\r\n      GSUBE  = 0.0\r\n      ALFA1  = 0.0\r\n      ALFA2  = 0.0\r\n      ALFA12 = 0.0\r\nC\r\n  255 DO 260 II = ISTART,IFINIS\r\n      IF (Z(II) .EQ. -1) GO TO 270\r\n  260 CONTINUE\r\nC\r\n  270 EOELOC = II\r\n      PIDLOC = ISTART\r\n      LEN  = EOELOC - PIDLOC\r\n      NLAY = (LEN - NWDPC)/KPC\r\n      LAMOPT = Z(PIDLOC+7)\r\nC\r\nC     DETERMINE LAMINATE THICKNESS\r\nC\r\nC     PCOMP DATA\r\nC\r\n      IF (ITYPE .GT. 0) GO TO 290\r\n      DO 280 K = 1,NLAY\r\n      IIK  = (PIDLOC+5) + 4*K\r\n      TLAM = TLAM + RZ(IIK)\r\n  280 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM\r\n      GO TO 320\r\nC\r\nC     PCOMP1 DATA\r\nC\r\n  290 IF (ITYPE .GT. 1) GO TO 300\r\n      IIK  = PIDLOC + 6\r\n      TLAM = RZ(IIK)*NLAY\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM\r\n      GO TO 320\r\nC\r\nC     PCOMP2 DATA\r\nC\r\n  300 DO 310 K = 1,NLAY\r\n      IIK  = (PIDLOC+6) + 2*K\r\n      TLAM = TLAM + RZ(IIK)\r\n  310 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0D0*TLAM\r\nC\r\nC     WRITE TO PCOMPS\r\nC      1. PID\r\nC      2. NLAY - NUMBER OF LAYERS\r\nC      3. REMAINDER OF PCOMP ENTRY\r\nC\r\n  320 CALL WRITE (PCOMPS,Z(PIDLOC),1,0)\r\n      CALL WRITE (PCOMPS,NLAY,1,0)\r\nC\r\nC     SET LEN TO THE NO. WORDS TO BE WRITTEN TO PCOMPS\r\nC\r\n      LEN = LEN - 1\r\n      CALL WRITE (PCOMPS,Z(PIDLOC+1),LEN,0)\r\nC\r\nC     CALL MAT TO GET LAYER PROPERTIES AND WRITE TO PCOMPS\r\nC     NOTE FOR PCOMP1 AND PCOMP2 ENTRIES THE PROPERTY MATRIX\r\nC     IS ONLY WRITTEN TO PCOMPS ONCE. (ALL LAYER PER ENTRY HAVE\r\nC     THE SAME MID.\r\nC     SIMILARILY FOR PCOMP ENTRY, IF ALL LAYERS REFERENCE THE SAME\r\nC     MID, THEN THE PROPERTY MATRIX IS ONLY WRITTEN ONCE TO PCOMPS.\r\nC\r\nC          ITYPE = 0 PCOMP  ENTRY\r\nC          ITYPE = 1 PCOMP1 ENTRY\r\nC          ITYPE = 2 PCOMP2 ENTRY\r\nC\r\n      MID = 0\r\nC\r\nC     INTILIZISE G1, G2, G3 AND G4 MATRICES\r\nC\r\n      DO 330 LL = 1,3\r\n      DO 330 MM = 1,3\r\n      G1 (LL,MM) = 0.0D0\r\n      GD1(LL,MM) = 0.0D0\r\n      G2 (LL,MM) = 0.0D0\r\n      GD2(LL,MM) = 0.0D0\r\n      G4 (LL,MM) = 0.0D0\r\n      GD4(LL,MM) = 0.0D0\r\n  330 CONTINUE\r\nC\r\n      DO 340 LL = 1,2\r\n      FII(LL)  = 0.0D0\r\n      FI(LL)   = 0.0D0\r\n      RI(LL)   = 0.0D0\r\n      ZBAR(LL) = 0.0D0\r\n      DO 340 MM = 1,2\r\n      G3(LL,MM)     = 0.0D0\r\n      GTRFLX(LL,MM) = 0.0D0\r\n      TRFLX(LL,MM)  = 0.0D0\r\n      G3INVD(LL,MM) = 0.0D0\r\n  340 CONTINUE\r\nC\r\nC     INTILIZISE ZBAR\r\nC\r\n      ZBARX   = 0.0D0\r\n      ZBARY   = 0.0D0\r\n      ZBARXT  = 0.0D0\r\n      ZBARXB  = 0.0D0\r\n      ZBARYT  = 0.0D0\r\n      ZBARYB  = 0.0D0\r\n      ZX      = 0.000\r\n      ZY      = 0.000\r\nC\r\n      EIXX    = 0.000\r\n      EIYY    = 0.000\r\nC\r\nC     LOOP OVER LAYERS\r\nC\r\n      DO 500 K = 1,NLAY\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 410\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 420\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPD TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPD (G)\r\nC\r\nC     COPY G(25) TO GLAY(25), FOR WRITING TO PCOMPS\r\nC\r\n      DO 400 KK = 1,25\r\n  400 GLAY(KK) = G(KK)\r\nC\r\nC ... NEXT 20 LINES ARE NEW FROM 2/1990 UAI CODE\r\nC\r\nC     COPY ALFA1, ALFA2 AND ALFA12 FROM GLAY(14 THRU 16)\r\nC\r\n      IF (.NOT.OK UAI) GO TO 410\r\n      ALFA1  = GLAY(14)\r\n      ALFA2  = GLAY(15)\r\n      ALFA12 = GLAY(16)\r\nC\r\nC     IF PCOMP, COPY TREF AND GE FROM THE MAIN CARD TO THE MATERIAL\r\nC     PROPERTY DATA. THIS IS DONE FOR THE FIRST LAYER\r\nC\r\n      IF (K     .GT. 1) GO TO 410\r\n      IF (ITYPE .GE. 1) GO TO 405\r\n      TREF  = RZ(PIDLOC+5)\r\n      GSUBE = RZ(PIDLOC+6)\r\n      GLAY(24) = TREF\r\n      GLAY(25) = GSUBE\r\n      GO TO 410\r\n  405 TREF  = GLAY(24)\r\n      GSUBE = GLAY(25)\r\nC\r\nC     WRITE THE LAYER PROPERTY MATRIX G TO FILE PCOMPS\r\nC\r\n  410 CALL WRITE (PCOMPS,GLAY(1),25,0)\r\nC\r\nC\r\nC     CALCULATE CONTRIBUTION OF EACH LAYER TO OVERALL PROPERTY\r\nC     MATRICES G1, G2, G4\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  420 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = DABS(THETA)\r\n      IF (C .LT. 0.00002D0) C = 0.0D0\r\n      IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C =  90.0D0\r\n      IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0\r\n      IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0\r\n      IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0\r\n      IF (THETA .LT. 0.0D0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = DCOS(THETAR)\r\n      IF (DABS(C) .LT. EPSI) C = 0.0D0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = DSIN(THETAR)\r\n      IF (DABS(S) .LT. EPSI) S = 0.0D0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC                       T\r\nC     CALCULATE GBAR = T  X G X T\r\nC\r\nC     MULTIPLY G X T AND WRITE TO GT\r\nC\r\n      CALL GMMATD (G(1),3,3,0, T(1),3,3,0, GT(1))\r\nC\r\nC               T\r\nC     MULTIPLY T  X GT AND WRITE TO GBR\r\nC\r\n      CALL GMMATD (T(1),3,3,1, GT(1),3,3,0, GBR(1))\r\nC\r\nC     WRITE GBR IN TWO DIMENSIONED ARRAY GBAR\r\nC\r\n      DO 430 LL = 1,3\r\n      DO 430 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GBAR(LL,MM) = GBR(NN)\r\n  430 CONTINUE\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC                        T\r\nC     CALCULATE GDBAR = T  X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 440 LL = 1,9\r\n  440 GD(LL) = 0.0D0\r\n      CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC               T\r\nC     MULTIPLY T  X GDT AND WRITE TO GDBR\r\nC\r\n      CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GDBR IN TWO DIMENSIONED ARRAY GDBAR\r\nC\r\n      DO 450 LL = 1,3\r\n      DO 450 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  450 CONTINUE\r\nC\r\nC     *********************************************************\r\nC     *   NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *   COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *   DEGRADED I.E SET TO ZERO.                           *\r\nC     *********************************************************\r\nC\r\n      GDBAR(1,2) = 0.0D0\r\n      GDBAR(2,1) = 0.0D0\r\n      GDBAR(1,3) = 0.0D0\r\n      GDBAR(3,1) = 0.0D0\r\n      GDBAR(2,3) = 0.0D0\r\n      GDBAR(3,2) = 0.0D0\r\nC\r\nC     PERFORM INITIALIZATION\r\nC\r\n      ZREF = -TLAM/2.0D0\r\n      ZK1  = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\n      ZG1 = ZK - ZK1\r\n      ZG4 =-(ZK**2 - ZK1**2)*0.5D0\r\n      ZG2 = (ZK**3 - ZK1**3)*0.33333333D0\r\nC\r\nC     CALCULATE LAYER CONTRIBUTION TO G1, G2, GD2 ,G4\r\nC\r\n      DO 460 IR = 1,3\r\n      DO 460 IC = 1,3\r\n      G1 (IR,IC) =  G1(IR,IC) +  GBAR(IR,IC)*ZG1\r\n      GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 460\r\n      G2 (IR,IC) =  G2(IR,IC) +  GBAR(IR,IC)*ZG2\r\n      GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2\r\n      IF (LAMOPT .EQ. SYM) GO TO 460\r\n      G4 (IR,IC) =  G4(IR,IC) +  GBAR(IR,IC)*ZG4\r\n      GD4(IR,IC) = GD4(IR,IC) + GDBAR(IR,IC)*ZG4\r\n  460 CONTINUE\r\nC\r\nC     CHECK LAMINATION OPTION AND IF SYMM OR SYMM.MEMB CALCULATE\r\nC     LAYER CONTRIBUTION TO THE MEMBRANE, BENDING AND THE\r\nC     MEMEBRANE-BENDING MATRICES\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480\r\nC\r\n      DO 470 IR = 1,3\r\n      DO 470 IC = 1,3\r\n      G1 (IR,IC) =  G1(IR,IC) +  GBAR(IR,IC)*ZG1\r\n      GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 470\r\n      G2 (IR,IC) =  G2(IR,IC) +  GBAR(IR,IC)*ZG2\r\n      GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2\r\n  470 CONTINUE\r\nC\r\n  480 CONTINUE\r\nC\r\nC     ************************************************************\r\nC     CALCULATION OF ZBARX AND ZBARY\r\nC            NEUTRAL SURFACE LOCATION IN X- AND Y- DIRECTION\r\nC\r\nC          TI  -  THICKNESS OF LAYER K\r\nC          ZI  -  DISTANCE FROM REFERENCE SURFACE TO MID OF LAMINA K\r\nC       EX,EY  -  APPARENT ENGINEERING PROPERTY. I.E YOUNGS MODULUS\r\nC                 IN THE LONGITUDINAL AND TRANSVERSE DIRECTIONS IN\r\nC                 THE MATERIAL COORDINATE SYSTEM.\r\nC     ************************************************************\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM\r\nC\r\n      EX = 1.0D0/GDBAR(1,1)\r\n      EY = 1.0D0/GDBAR(2,2)\r\nC\r\n      EXX = EX\r\n      EYY = EY\r\nC\r\nC     WRITE EXX AND EYY TO PCOMPS\r\nC\r\n      CALL WRITE (PCOMPS,EXX,1,0)\r\n      CALL WRITE (PCOMPS,EYY,1,0)\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 490\r\nC\r\n      TI = ZK - ZK1\r\n      ZI = (ZK + ZK1)/2.0D0\r\nC\r\n      ZBARXT = ZBARXT + EX*TI*ZI\r\n      ZBARXB = ZBARXB + EX*TI\r\n      ZBARYT = ZBARYT + EY*TI*ZI\r\n      ZBARYB = ZBARYB + EY*TI\r\nC\r\nC     CALCULATE CONTRIBUTION TO OVERALL DENSITY RHO\r\nC\r\n  490 IF (G(23) .EQ. 0.) GO TO 500\r\n      RHO = RHO + G(23)*ZG1\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  500 CONTINUE\r\nC\r\nC     JUMP IF LAMOPT IS MEMBRANE OR SYMM.MEMBRANE\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 520\r\nC\r\nC     WRITE GD1, GD2 AND GD4 TO STIFF MATRIX AND INVERT\r\nC     TO DETERMINE THE OVERALL BENDING PROPERTY FOR THE\r\nC     LAMINATE.\r\nC\r\n      DO 510 LL= 1,3\r\n      DO 510 MM = 1,3\r\n      STIFF(LL  ,MM  ) = GD1(LL,MM)\r\n      STIFF(LL  ,MM+3) = GD4(LL,MM)\r\n      STIFF(LL+3,MM  ) = GD4(LL,MM)\r\n      STIFF(LL+3,MM+3) = GD2(LL,MM)\r\n  510 CONTINUE\r\nC\r\nC     INVERT STIFF\r\nC\r\n      ISING = -1\r\n      CALL INVERD (6,STIFF,6,DUM,0,DETERM,ISING,INDEX)\r\nC\r\n      EI(1) = 1.0D0/STIFF(4,4)\r\n      EI(2) = 1.0D0/STIFF(5,5)\r\nC\r\n      EIXX = EI(1)\r\n      EIYY = EI(2)\r\nC\r\nC     WRITE EIXX AND EIYY TO PCOMPS\r\nC\r\n  520 CALL WRITE (PCOMPS,EIXX,1,0)\r\n      CALL WRITE (PCOMPS,EIYY,1,0)\r\nC\r\nC     ***************************************************************\r\nC     *   THE MEMBRANE, BENDING, AND MEMEBRANE-BENDING MATRICES     *\r\nC     *   G1, G2, AND G4 ARE GIVEN BY THE FOLLOWING                 *\r\nC     ***************************************************************\r\nC\r\n      DO 530 IR = 1,3\r\n      DO 530 IC = 1,3\r\n      G1(IR,IC) = (1.0D0/TLAM)*G1(IR,IC)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 530\r\n      G2(IR,IC) = (12.0D0/TLAM**3)*G2(IR,IC)\r\n      IF (LAMOPT.EQ.SYM) GO TO 530\r\n      G4(IR,IC) = (1.0D0/TLAM**2)*G4(IR,IC)\r\n  530 CONTINUE\r\nC\r\nC     CALCULATE LOCATION OF NEUTRAL SURFACE ZBARX AND ZBARY\r\nC     FOR LAMINATE\r\nC\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM)\r\n     1    GO TO 540\r\n      ZBARX   = ZBARXT/ZBARXB\r\n      ZBARY   = ZBARYT/ZBARYB\r\n      ZBAR(1) = ZBARX\r\n      ZBAR(2) = ZBARY\r\nC\r\n      ZX = ZBARX\r\n      ZY = ZBARY\r\nC\r\nC     WRITE ZX AND ZY TO PCOMPS\r\nC\r\n  540 CALL WRITE (PCOMPS,ZX,1,0)\r\n      CALL WRITE (PCOMPS,ZY,1,0)\r\nC\r\nC     CALCULATE OVERALL DENSITY RHO\r\nC\r\n      IF (RHO .EQ. 0.) GO TO 550\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) RHO = 2.0D0*RHO\r\n      RHO = RHO/TLAM\r\nC\r\nC     *****************************************************************\r\nC     *    CHECK IF TRANSVERSE FLEXIBILITY MATRIX NEEDS TO CALCULATED *\r\nC     *    OTHERWISE JUMP TO PROCEED AS PER NORMAL.                   *\r\nC     *****************************************************************\r\nC\r\n  550 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 830\r\n      IF (G(10) .EQ. 0.0D0) GO TO 830\r\nC\r\nC     LOOP OVER ALL THE LAYERS\r\nC\r\n      DO 700 K = 1,NLAY\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 560\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 560\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPD TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPD (G)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  560 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = DABS(THETA)\r\n      IF (C .LT. 0.00002D0) C = 0.0D0\r\n      IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C =  90.0D0\r\n      IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0\r\n      IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0\r\n      IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0\r\n      IF (THETA .LT. 0.0D0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = DCOS(THETAR)\r\n      IF (DABS(C) .LT. EPSI) C = 0.0D0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = DSIN(THETAR)\r\n      IF (DABS(S) .LT. EPSI) S = 0.0D0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC                       T\r\nC     CALCULATE GDBR = T  X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 570 LL = 1,9\r\n  570 GD(LL) = 0.0D0\r\n      CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC               T\r\nC     MULTIPLY T  X GDT AND WRITE TO GDBR\r\nC\r\n      CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GBR TO GDBAR\r\nC\r\n      DO 580 LL = 1,3\r\n      DO 580 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  580 CONTINUE\r\nC\r\nC     *************************************************************\r\nC     *       NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *       COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *       DEGRADED I.E SET TO ZERO.                           *\r\nC     *************************************************************\r\nC\r\n      GDBAR(1,2) = 0.0D0\r\n      GDBAR(2,1) = 0.0D0\r\n      GDBAR(1,3) = 0.0D0\r\n      GDBAR(3,1) = 0.0D0\r\n      GDBAR(2,3) = 0.0D0\r\n      GDBAR(3,2) = 0.0D0\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE\r\nC\r\n      E(1) = 1.0D0/GDBAR(1,1)\r\n      E(2) = 1.0D0/GDBAR(2,2)\r\nC\r\nC     PERFORM INTILIZATION\r\nC\r\n      ZREF = -TLAM/2.0D0\r\n      ZK1 = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX U\r\nC\r\n      U(1) = C\r\n      U(2) = S\r\n      U(3) =-S\r\n      U(4) = C\r\nC\r\nC     CALCULATE G3BAR = UT X G3I X U\r\nC     G3I MATRIX  -  LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS\r\nC\r\n      DO 590 LL = 1,4\r\n      MM = LL + 9\r\n      G3I(LL) = G(MM)\r\n  590 CONTINUE\r\nC\r\nC     MULTIPLY G3I X U AND WRITE TO G3IU\r\nC\r\n      CALL GMMATD (G3I(1),2,2,0, U(1),2,2,0, G3IU(1))\r\nC\r\nC     MULTIPLY UT X G3IU AND WRITE TO G3BR\r\nC\r\n      CALL GMMATD (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1))\r\nC\r\nC     WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR\r\nC\r\n      DO 600 LL = 1,2\r\n      DO 600 MM = 1,2\r\n      NN = MM + 2*(LL-1)\r\n      G3BAR(LL,MM) = G3BR(NN)\r\n  600 CONTINUE\r\nC\r\nC     INVERT G3BAR\r\nC\r\n      DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1)\r\n      IF (DETRMN .EQ. 0.0D0) GO TO 1230\r\nC\r\n      G3INVD(1,1) = G3BAR(2,2)/DETRMN\r\n      G3INVD(1,2) =-G3BAR(1,2)/DETRMN\r\n      G3INVD(2,1) =-G3BAR(2,1)/DETRMN\r\n      G3INVD(2,2) = G3BAR(1,1)/DETRMN\r\nC\r\nC     G3 MATRIX CALC\r\nC\r\n      ZI = (ZK + ZK1)/2.0D0\r\n      TI =  ZK - ZK1\r\nC\r\n      DO 610 IR = 1,2\r\n      RI(IR) = ((FI(IR)/E(IR)) + (ZBAR(IR)-ZK1)*TI - (TI*TI/3.0D0))\r\n     1       * (FI(IR)/E(IR))\r\n      RI(IR) = RI(IR) + ZBAR(IR)*TI*TI*((ZBAR(IR)-2.0D0*ZK1)/3.0D0\r\n     1       - (TI/4.0D0))\r\n      RI(IR) = RI(IR) + TI*TI*((ZK1*ZK1)/3.0D0 + (ZK1*TI)/4.0D0\r\n     1       + (TI*TI)/20.0D0)\r\n      RI(IR) = RI(IR)*E(IR)*E(IR)*TI\r\n  610 CONTINUE\r\nC\r\n      DO 620 IR = 1,2\r\n      DO 620 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC)\r\n  620 CONTINUE\r\nC\r\n      DO 630 IR = 1,2\r\n      FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI)\r\n      FI(IR)  = FI(IR) + FII(IR)\r\n  630 CONTINUE\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  700 CONTINUE\r\nC\r\nC     FALL HERE IF LAMOPT IS SYMM AND G3 CALCULATION IS REQUIRED\r\nC\r\n      IF (LAMOPT .NE. SYM) GO TO  810\r\n      DO 800 KK = 1,NLAY\r\n      K = NLAY + 1 - KK\r\nC\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 710\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 710\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPD TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPD (G)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  710 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = DABS(THETA)\r\n      IF (C .LT. 0.00002D0) C = 0.0D0\r\n      IF (C.GT.89.9998D0 .AND. C.LT.90.0002D0) C =  90.0D0\r\n      IF (C.GT.179.998D0 .AND. C.LT.180.002D0) C = 180.0D0\r\n      IF (C.GT.269.998D0 .AND. C.LT.270.002D0) C = 270.0D0\r\n      IF (C.GT.359.998D0 .AND. C.LT.360.002D0) C = 360.0D0\r\n      IF (THETA .LT. 0.0D0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = DCOS(THETAR)\r\n      IF (DABS(C) .LT. EPSI) C = 0.0D0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = DSIN(THETAR)\r\n      IF (DABS(S) .LT. EPSI) S = 0.0D0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC                       T\r\nC     CALCULATE GDBR = T  X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 720 LL = 1,9\r\n  720 GD(LL) = 0.0D0\r\n      CONST = 1.0D0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATD (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC               T\r\nC     MULTIPLY T  X GDT AND WRITE TO GDBR\r\nC\r\n      CALL GMMATD (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GBR TO GDBAR\r\nC\r\n      DO 730 LL = 1,3\r\n      DO 730 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  730 CONTINUE\r\nC\r\nC     *************************************************************\r\nC     *       NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *       COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *       DEGRADED I.E SET TO ZERO.                           *\r\nC     *************************************************************\r\nC\r\n      GDBAR(1,2) = 0.0D0\r\n      GDBAR(2,1) = 0.0D0\r\n      GDBAR(1,3) = 0.0D0\r\n      GDBAR(3,1) = 0.0D0\r\n      GDBAR(2,3) = 0.0D0\r\n      GDBAR(3,2) = 0.0D0\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERD (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE\r\nC\r\n      E(1) = 1.0D0/GDBAR(1,1)\r\n      E(2) = 1.0D0/GDBAR(2,2)\r\nC\r\nC     PERFORM INTILIZATION\r\nC\r\n      ZREF = -TLAM/2.0D0\r\n      ZK1  = ZK\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX U\r\nC\r\n      U(1) = C\r\n      U(2) = S\r\n      U(3) =-S\r\n      U(4) = C\r\nC\r\nC     CALCULATE G3BAR = UT X G3I X U\r\nC     G3I MATRIX  -  LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS\r\nC\r\n      DO 740 LL = 1,4\r\n      MM = LL + 9\r\n      G3I(LL) = G(MM)\r\n  740 CONTINUE\r\nC\r\nC     MULTIPLY G3I X U AND WRITE TO G3IU\r\nC\r\n      CALL GMMATD (G3I(1),2,2,0, U(1),2,2,0, G3IU(1))\r\nC\r\nC     MULTIPLY UT X G3IU AND WRITE TO G3BR\r\nC\r\n      CALL GMMATD (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1))\r\nC\r\nC     WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR\r\nC\r\n      DO 750 LL = 1,2\r\n      DO 750 MM = 1,2\r\n      NN = MM + 2*(LL-1)\r\n      G3BAR(LL,MM) = G3BR(NN)\r\n  750 CONTINUE\r\nC\r\nC     INVERT G3BAR\r\nC\r\n      DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1)\r\n      IF (DETRMN .EQ. 0.0D0) GO TO 1230\r\nC\r\n      G3INVD(1,1) = G3BAR(2,2)/DETRMN\r\n      G3INVD(1,2) =-G3BAR(1,2)/DETRMN\r\n      G3INVD(2,1) =-G3BAR(2,1)/DETRMN\r\n      G3INVD(2,2) = G3BAR(1,1)/DETRMN\r\nC\r\nC     THE CORRESSPONDING LAYER ON THE OTHER SIDE OF SYMMETRY\r\nC\r\n      ZI = (ZK + ZK1)/2.0D0\r\n      TI =  ZK - ZK1\r\nC\r\n      DO 760 IR = 1,2\r\n      RI(IR) = (FI(IR)/E(IR) +(-ZK1)*TI-TI*TI/3.0D0 )*FI(IR)/E(IR)\r\n     1       + (ZK1*ZK1/3.0D0+ZK1*TI/4.0D0+TI*TI/20.0D0)*TI*TI\r\n      RI(IR) = RI(IR)*E(IR)*E(IR)*TI\r\n  760 CONTINUE\r\nC\r\n      DO 770 IR = 1,2\r\n      DO 770 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC)\r\n  770 CONTINUE\r\nC\r\n      DO 780 IR = 1,2\r\n      FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI)\r\n      FI(IR)  = FI(IR) + FII(IR)\r\n  780 CONTINUE\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  800 CONTINUE\r\nC\r\n  810 DO 820 IR = 1,2\r\n      DO 820 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC)*TLAM/(EI(IR)**2)\r\n  820 CONTINUE\r\nC\r\nC     INVERT GTRFLX\r\nC\r\n      DETRMN = GTRFLX(1,1)*GTRFLX(2,2) - GTRFLX(1,2)*GTRFLX(2,1)\r\n      IF (DETRMN .EQ. 0.0D0) GO TO 1230\r\nC\r\n      G3(1,1) = GTRFLX(2,2)/DETRMN\r\n      G3(1,2) =-GTRFLX(1,2)/DETRMN\r\n      G3(2,1) =-GTRFLX(2,1)/DETRMN\r\n      G3(2,2) = GTRFLX(1,1)/DETRMN\r\nC\r\nC     BECAUSE G3(1,2) IS NOT EQUAL TO G3(2,1) IN GENERAL\r\nC     AN AVERAGE VALUE WILL BE USED FOR THE COUPLING TERMS\r\nC\r\n      G3(1,2) = (G3(1,2) + G3(2,1))/2.0D0\r\n      G3(2,1) = G3(1,2)\r\nC\r\nC    *****************************************************\r\nC    WRITE THE NEWLY GENERATED G1, G2, G3, AND G4 MATRICES\r\nC    TO MPTX IN THE FORM OF MAT2 DATA ENTRIES\r\nC    *****************************************************\r\nC\r\nC      NOTE - THE MID FOR THESE MATRICES ARE AS FOLLOWS-\r\nC         1. MID1  -- PID + 100000000\r\nC         2. MID2  -- PID + 200000000\r\nC         3. MID3  -- PID + 300000000\r\nC         4. MID4  -- PID + 400000000\r\nC\r\nC     INITIALIZE G1, G2, G3, AND G4 MATRICES\r\nC\r\n  830 DO 840 JJ = 1,17\r\n      GMEMBR(JJ) = 0.0D0\r\n      GBENDG(JJ) = 0.0D0\r\n      GTRSHR(JJ) = 0.0D0\r\n      GMEMBD(JJ) = 0.0D0\r\n  840 CONTINUE\r\nC\r\n      IMEMBR(1) = 0\r\n      IBENDG(1) = 0\r\n      ITRSHR(1) = 0\r\n      IMEMBD(1) = 0\r\nC\r\nC     START GENERATING G1 MEMBRANE MATRIX\r\nC\r\n      IMEMBR( 1) = Z(PIDLOC) + 100000000\r\n      GMEMBR( 2) = G1(1,1)\r\n      GMEMBR( 3) = G1(1,2)\r\n      GMEMBR( 4) = G1(1,3)\r\n      GMEMBR( 5) = G1(2,2)\r\n      GMEMBR( 6) = G1(2,3)\r\n      GMEMBR( 7) = G1(3,3)\r\n      GMEMBR( 8) = RHO\r\nC\r\nC ... NEXT 5 TERMS ARE NEW FROM 2/1990 UAI CODE\r\nC\r\n      IF (.NOT.OK UAI) GO TO 845\r\n      GMEMBR( 9) = ALFA1\r\n      GMEMBR(10) = ALFA2\r\n      GMEMBR(11) = ALFA12\r\n      GMEMBR(12) = TREF\r\n      GMEMBR(13) = GSUBE\r\nC\r\n  845 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 850\r\nC\r\nC     START GENERATING G2 BENDING MATRIX\r\nC\r\n      IBENDG( 1) = Z(PIDLOC) + 200000000\r\n      GBENDG( 2) = G2(1,1)\r\n      GBENDG( 3) = G2(1,2)\r\n      GBENDG( 4) = G2(1,3)\r\n      GBENDG( 5) = G2(2,2)\r\n      GBENDG( 6) = G2(2,3)\r\n      GBENDG( 7) = G2(3,3)\r\nC\r\nC ... NEXT 3 TERMS ARE NEW FROM 2/1990 UAI CODE\r\nC\r\n      IF (.NOT.OK UAI) GO TO 847\r\nC     GBEMDG( 8) = ??\r\n      GBENDG( 9) = ALFA1\r\n      GBENDG(10) = ALFA2\r\n      GBENDG(11) = ALFA12\r\nC\r\nC     START GENERATING G3 TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\nC\r\n  847 ITRSHR( 1) = Z(PIDLOC) + 300000000\r\n      GTRSHR( 2) = G3(1,1)\r\n      GTRSHR( 3) = G3(1,2)\r\n      GTRSHR( 4) = G3(2,1)\r\n      GTRSHR( 5) = G3(2,2)\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 850\r\nC\r\nC     START GENERATING G4 MEMBRANE-BENDING COUPLING MATRIX\r\nC\r\n      IMEMBD( 1) = Z(PIDLOC) + 400000000\r\n      GMEMBD( 2) = G4(1,1)\r\n      GMEMBD( 3) = G4(1,2)\r\n      GMEMBD( 4) = G4(1,3)\r\n      GMEMBD( 5) = G4(2,2)\r\n      GMEMBD( 6) = G4(2,3)\r\n      GMEMBD( 7) = G4(3,3)\r\nC\r\n  850 CONTINUE\r\nC\r\nC     ******************************************************\r\nC     GENERATE EQUIVALENT PSHELL BULK DATA ENTIES FOR EVERY\r\nC     PCOMPI BULK DATA ENTRY. THIS IS NECESSARY FOR DEMG TO\r\nC     FUNCTION CORRECTLY WHEN LAMINATED COMPOSITE ELEMENTS\r\nC     ARE PRESENT.\r\nC     ******************************************************\r\nC\r\n      IPSHEL( 1) = Z(PIDLOC)\r\n      IPSHEL( 2) = Z(PIDLOC) + 100000000\r\n      RPSHEL( 3) = TLAM\r\n      IPSHEL( 4) = Z(PIDLOC) + 200000000\r\n      RPSHEL( 5) = 1.0\r\n      IPSHEL( 6) = Z(PIDLOC) + 300000000\r\n      RPSHEL( 7) = 1.0\r\n      RPSHEL( 8) = RZ(PIDLOC+2)\r\n      RPSHEL( 9) =-TLAM/2.0\r\n      RPSHEL(10) = TLAM/2.0\r\n      IPSHEL(11) = Z(PIDLOC) + 400000000\r\n      RPSHEL(12) = 0.0\r\n      IPSHEL(13) = 0\r\n      IPSHEL(14) = 0\r\n      RPSHEL(15) = 0.0\r\n      IPSHEL(16) = 0\r\n      RPSHEL(17) = 0.0\r\nC\r\n      ZOFFS = RZ(PIDLOC+1) + TLAM/2.0\r\n      IF (Z(PIDLOC)  .EQ.  BLANK) ZOFFS = 0.0\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) ZOFFS = 0.0\r\n      IF (ABS(ZOFFS) .LE. 1.0E-3) ZOFFS = 0.0\r\n      RPSHEL(14) = ZOFFS\r\nC\r\n      IF (LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM) GO TO 860\r\n      IPSHEL( 4) = 0\r\n      IPSHEL( 6) = 0\r\n      IPSHEL(11) = 0\r\n      RPSHEL(14) = 0.0\r\n  860 IF (LAMOPT .NE. SYM) GO TO 870\r\n      IPSHEL(11) = 0\r\n  870 CONTINUE\r\nC\r\nC     UPDATE COUNTER ICOUNT TO INDICATE MAT2 AND PSHELL DATA IS BEING\r\nC     WRITTEN SECOND TIME\r\nC\r\n      ICOUNT = ICOUNT + 1\r\nC\r\n      IF (ICOUNT .GT. 1) GO TO 900\r\nC\r\n      IF (PSHLPR .NE. 1) GO TO 890\r\n      ICORE = LPCOMP + 1 + N2MAT\r\n      N = BUF5 - ICORE\r\n      CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FILPOS (EPT,POS1)\r\n      CALL READ (*900,*880,EPT,Z(ICORE),N,0,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n  880 CALL WRITE (EPTX,Z(ICORE),EPTWDS,0)\r\n      GO TO 900\r\n  890 CALL WRITE (EPTX,PSHNAM,3,0)\r\n  900 CALL WRITE (EPTX,IPSHEL(1),17,0)\r\nC\r\n      IF (ICOUNT .GT. 1) GO TO 930\r\nC\r\n      IF (MAT2PR .NE. 1) GO TO 920\r\n      ICORE = LPCOMP + 1 + N2MAT\r\n      N = BUF5 - ICORE\r\n      CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FILPOS (MPT,POS)\r\n      CALL READ (*930,*910,MPT,Z(ICORE),N,0,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n  910 CALL WRITE (MPTX,Z(ICORE),MATWDS,0)\r\n      GO TO 930\r\n  920 CALL WRITE (MPTX,MATNAM,3,0)\r\n  930 CALL WRITE (MPTX,IMEMBR(1),17,0)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 940\r\n      CALL WRITE (MPTX,IBENDG(1),17,0)\r\n      CALL WRITE (MPTX,ITRSHR(1),17,0)\r\n      IF (LAMOPT .EQ. SYM) GO TO 940\r\n      CALL WRITE (MPTX,IMEMBD(1),17,0)\r\n  940 CONTINUE\r\n      CALL SSWTCH (40,L40)\r\n      IF (L40 .EQ. 0) GO TO 980\r\nC\r\nC     WRITE THE NEWLY GENERATED PROPERTY MATRICES TO THE OUTPUT FILE\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) IMEMBR(1),(GMEMBR(LL),LL=2,16)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 980\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) IBENDG(1),(GBENDG(LL),LL=2,16)\r\n      IF (GTRSHR(1) .EQ. 0.0) GO TO 950\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) ITRSHR(1),(GTRSHR(LL),LL=2,16)\r\n  950 IF (LAMOPT .EQ. SYM) GO TO 980\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) IMEMBD(1),(GMEMBD(LL),LL=2,16)\r\n  960 FORMAT(/,' MAT2',7X,I9,7(1X,1P,E11.4),/,9X,8(1X,F11.1))\r\nC\r\nC     UPDATE LOCATION OF NEXT PID\r\nC\r\n  980 PIDLOC = EOELOC + 1\r\n      ISTART = PIDLOC\r\nC\r\nC     WRITE END OF ENTRY (EOE) TO PCOMPS BEFORE PROCESSING\r\nC     NEXT PCOMP ENTRY\r\nC\r\n      CALL WRITE (PCOMPS,EOE,1,0)\r\nC\r\nC     CHECK IF ALL 'PCOMP' TYPE ENTRIES HAVE BEEN PROCESSED\r\nC\r\n      IF (ISTART .GE. IFINIS) IF (ITYPE-1) 990,1000,1010\r\nC\r\nC     PROCESS NEXT 'PCOMP' ENTRY\r\nC\r\n      GO TO 250\r\nC\r\n  990 CALL WRITE (PCOMPS,0,0,1)\r\n      IF (TYPC1 .GT. 0) GO TO 190\r\n      IF (TYPC2 .GT. 0) GO TO 200\r\n      GO TO 1020\r\nC\r\n 1000 CALL WRITE (PCOMPS,0,0,1)\r\n      IF (TYPC2 .GT. 0) GO TO 200\r\n      GO TO 1020\r\nC\r\n 1010 CALL WRITE (PCOMPS,0,0,1)\r\nC\r\nC     ALL 'PCOMP' TYPES PROCESSED\r\nC     WRITE EOR ON MPTX AND EPTX\r\nC\r\n 1020 CALL WRITE (MPTX,0,0,1)\r\n      CALL WRITE (EPTX,0,0,1)\r\nC\r\nC     COPY REMAINDER OF EPT TO EPTX\r\nC\r\n      ICORE = 1\r\n      N = BUF5 - 1\r\n      EPTWDS = 0\r\n      IF (PSHLPR .NE. 1) CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FILPOS (EPT,POS1)\r\n      IF (PSHLPR .EQ. 1) CALL FWDREC (*1050,EPT)\r\n 1030 CALL READ (*1050,*1040,EPT,Z(ICORE),N,1,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1040 CALL WRITE (EPTX,Z(ICORE),EPTWDS,1)\r\n      EPTWDS = 0\r\n      GO TO 1030\r\nC\r\nC     READ TRAILER FROM EPT AND WRITE TO EPTX\r\nC\r\n 1050 DO 1060 KK = 1,7\r\n 1060 IEPTX(KK) = 0\r\n      IEPTX( 1) = EPT\r\nC\r\n      CALL RDTRL (IEPTX)\r\n      IEPTX(1) = EPTX\r\n      KT721 = ANDF(PSHBIT,511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IEPTX(K1) = ORF(IEPTX(K1),TWO(K2))\r\n      CALL WRTTRL (IEPTX)\r\nC\r\nC     IF EOF ON MPT,THEN ALL MAT2 DATA COPIED TO MPTX\r\nC\r\n      IF (EOF .EQ. 1) GO TO 1090\r\nC\r\nC     OTHERWISE COPY REMAINDER OF MPT TO MPTX\r\nC\r\n      ICORE = 1\r\n      N = BUF5 - 1\r\n      MATWDS = 0\r\n      IF (MAT2PR .NE. 1) CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FILPOS (MPT,POS)\r\n      IF (MAT2PR .EQ. 1) CALL FWDREC (*1090,MPT)\r\n 1070 CALL READ (*1090,*1080,MPT,Z(ICORE),N,1,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1080 CALL WRITE (MPTX,Z(ICORE),MATWDS,1)\r\n      MATWDS = 0\r\n      GO TO 1070\r\nC\r\nC     READ TRAILER FROM MPT AND WRITE TO MPTX\r\nC\r\n 1090 DO 1100 KK = 1,7\r\n 1100 IMPTX(KK) = 0\r\n      IMPTX( 1) = MPT\r\nC\r\n      CALL RDTRL (IMPTX)\r\n      IMPTX(1) = MPTX\r\n      KT721 = ANDF(MT2BIT,511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IMPTX(K1) = ORF(IMPTX(K1),TWO(K2))\r\n      CALL WRTTRL (IMPTX)\r\nC\r\nC     WRITE TO TRAILER OF PCOMPS\r\nC\r\nC     SET TRAILER BIT POSITION TO ZERO IF ENTRY TYPE DOES NOT EXIST\r\nC\r\n      IF (TYPC  .EQ. 0) PCBIT(1) = 0\r\n      IF (TYPC1 .EQ. 0) PCBIT(2) = 0\r\n      IF (TYPC2 .EQ. 0) PCBIT(3) = 0\r\nC\r\n      DO 1110 LL = 1,3\r\n      KT721 = ANDF(PCBIT(LL),511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IPCOMP(K1) = ORF(IPCOMP(K1),TWO(K2))\r\n 1110 CONTINUE\r\nC\r\nC     WHEN ICFIAT IS 11, A 65536 IS LEFT IN IPCOMP(2) ACCIDENTALLY\r\nC     ZERO IT OUT\r\nC\r\n      IF (ICFIAT .EQ. 11) IPCOMP(2) = 0\r\n      CALL WRTTRL (IPCOMP)\r\nC\r\nC     CLOSE ALL FILES\r\nC\r\n      CALL CLOSE (PCOMPS,1)\r\n      CALL CLOSE (EPTX,1)\r\n      CALL CLOSE (MPTX,1)\r\n      CALL CLOSE (MPT,1)\r\n      CALL CLOSE (EPT,1)\r\nC\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1200 CALL MESAGE (-1,FILE,NAM)\r\n      GO TO 1300\r\n 1210 CALL PAGE2 (2)\r\n      WRITE  (NOUT,1220)\r\n 1220 FORMAT ('0*** SYSTEM FATAL ERROR.  PCOMP, PCOMP1 OR PCOMP2',\r\n     1        ' DATA NOT FOUND BY SUBROUTINE TA1CPD.')\r\n      NOGO = 1\r\n      GO TO 1300\r\n 1230 CALL PAGE2 (4)\r\n      WRITE (NOUT,1240) MATID\r\n      NOGO = 1\r\n 1240 FORMAT ('0*** USER FATAL ERROR.  IMPROPER DATA PROVIDED FOR',\r\n     1        ' CALCULATION OF TRANSVERSE SHEAR FLEXIBILITY MATRIX',\r\n     2        /23X,'FOR LAMINA REFERENCING MID ',I8,'.',\r\n     3        /23X,'CHECK DATA ON MAT BULK DATA ENTRY.')\r\n 1300 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1cps.f",
    "content": "      SUBROUTINE TA1CPS\r\nC\r\nC     G3 MATRIX CALCULATION WITH NEW FORMULATION\r\nC\r\nC     THIS ROUTINE IS CALLED IN TA1 IF PARAM COMPS IS SET TO -1\r\nC     INDICATING PCOMP, PCOMP1 OR PCOMP2 BULK DATA ENTRIES ARE\r\nC     PRESENT. IT'S PRIMARY FUNCTION IS TO -\r\nC       1. CREATE FILE PCOMPS WHICH WILL CONTAIN THE ECHO OF THE\r\nC          'PCOMPS' ENTRIES ALONG WITH INDIVIDUAL LAYER INTRINISIC\r\nC          PROPERTY MATRICES.\r\nC       2. CALCULATE OVERALL MATERIAL PROPERTIES IN THE FORM OF MAT2\r\nC          ENTRIES AND WRITE TO FILE MPTX.\r\nC       3. GENERATE EQUIVALENT PSHELL PROPERTY ENTRIES AND WRITE TO\r\nC          FILE EPTX.\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      LOGICAL         OK UAI\r\n      INTEGER         PCOMP(2),PCOMP1(2),PCOMP2(2),COMPS,PCBIT(3),EPTX,\r\n     1                PSHLPR,EPTWDS,PSHBIT,RD,RDREW,WRT,WRTREW,CLSREW,\r\n     2                CLS,IPSHEL(17),PSHNAM(3),PCOMPR,TYPC,TYPC1,TYPC2,\r\n     3                FLAG,EPT,PCOMPS,EOF,ELID,PIDLOC,EOELOC,SYM,SYMMEM,\r\n     4                EOE,SYSBUF,POS,POS1,Z,BUF0,BUF1,BUF2,BUF3,BUF4,\r\n     5                BUF5,FILE,INDEX(6,3),INDEXX(3,3),ANDF,ORF,BLANK\r\n      REAL            GLAY(25),GMEMBR(17),GBENDG(17),GMEMBD(17),\r\n     1                GTRSHR(17),EXX,EYY,EIXX,EIYY,ZX,ZY,RPSHEL(17),\r\n     2                ALFA1,ALFA2,ALFA12,TREF,GSUBE\r\n      REAL            THETA,THETAR,C,C2,C4,S,S2,S4,PI,TWOPI,RADDEG,\r\n     1                DEGRAD,T(9),GT(9),GBR(9),GBAR(3,3),G(25),GD(9),\r\n     2                GDT(9),GDBR(9),GDBAR(3,3),GD2(3,3),U(9),G3I(9),\r\n     3                G3IU(9),G3BR(9),G3BAR(3,3),G1(3,3),G2(3,3),\r\n     4                G3(2,2),G4(3,3),TLAM,ZK,ZK1,ZREF,ZG1,ZG2,ZG4,ZI,\r\n     5                TI,RHO,DETRMN,CONST,ZBARX,ZBARY,TRFLX(2,2),ZBARXT,\r\n     6                ZBARXB,ZBARYT,ZBARYB,ZBAR(2),GTRFLX(2,2),GD4(3,3),\r\n     7                G3INVD(2,2),EX,EY,E(2),FI(2),FII(2),RI(2),DETERM,\r\n     8                DUM(6),DUMMY(3),STIFF(6,6),EI(2),GD1(3,3),EPSI\r\n      DIMENSION       RZ(1),NPCMP(3),NPCMP1(3),NPCMP2(3),NAM(2),NAM1(2),\r\n     1                NAM2(2),MATNAM(3),IPCOMP(7),IMEMBR(17),IBENDG(17),\r\n     2                IMEMBD(17),ITRSHR(17),IMPTX(7),IEPTX(7)\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /SYSTEM/ SYSBUF,NOUT  ,NOGO  ,DM(20),ICFIAT\r\n      COMMON /MATIN / MATID ,INFLAG,ELTEMP\r\n      COMMON /MATOUT/ RMTOUT(25)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /CONDAS/ PI    ,TWOPI ,RADDEG,DEGRAD\r\n      COMMON /TWO   / TWO(32)\r\n      EQUIVALENCE     (Z(1)     ,RZ(1)    ), (IPSHEL(1),RPSHEL(1)),\r\n     1                (IMEMBR(1),GMEMBR(1)), (IBENDG(1),GBENDG(1)),\r\n     2                (IMEMBD(1),GMEMBD(1)), (ITRSHR(1),GTRSHR(1))\r\nC     DATA    MPT   / 107/\r\nC     DATA    MPTX  / 206/\r\nC     DATA    PCOMPS/ 207/\r\nC     DATA    EPTX  / 208/\r\n      DATA    PCOMP / 5502,55/\r\n      DATA    PCOMP1/ 5602,56/\r\n      DATA    PCOMP2/ 5702,57/\r\n      DATA    NPCMP / 5502,55,280/\r\n      DATA    NPCMP1/ 5602,56,281/\r\n      DATA    NPCMP2/ 5702,57,282/\r\n      DATA    PSHNAM/ 5802,58,283/\r\n      DATA    MATNAM/ 203, 2, 78 /\r\n      DATA    PCBIT / 55, 56, 57 /\r\n      DATA    PSHBIT/ 58 /\r\n      DATA    MT2BIT/ 2  /\r\n      DATA    I1ST  / 1  /\r\n      DATA    SYM   / 1  /\r\n      DATA    MEM   / 2  /\r\n      DATA    SYMMEM/ 3  /\r\n      DATA    EOE   / -1 /\r\n      DATA    NAM   / 4HTA1C, 4HPS   /\r\n      DATA    NAM2  / 4HPCOM, 4HPS   /\r\n      DATA    BLANK / 4HBLNK         /\r\n      DATA    OK UAI/ .TRUE.         /\r\n      DATA    EPSI  / 1.0E-15        /\r\nC\r\n      BUF0 = KORSZ(Z) - SYSBUF - 2\r\n      BUF1 = BUF0 - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF - 2\r\n      BUF3 = BUF2 - SYSBUF - 2\r\n      BUF4 = BUF3 - SYSBUF - 2\r\n      BUF5 = BUF4 - SYSBUF - 2\r\nC\r\nC     PERFORM GENERAL INITILIZATION\r\nC\r\n      MATWDS = 0\r\n      EOF    = 0\r\n      ELID   = 0\r\n      MAT2PR = 0\r\n      PSHLPR = 0\r\n      ICOUNT = 0\r\n      RHO    = 0.0\r\nC\r\nC     OPEN EPTX AND WRITE HEADER RECORD\r\nC\r\n      FILE = EPTX\r\n      CALL OPEN (*1200,EPTX,Z(BUF0),WRTREW)\r\n      CALL FNAME (EPTX,NAM1)\r\n      CALL WRITE (EPTX,NAM1,2,1)\r\nC\r\nC     OPEN MPTX AND WRITE HEADER RECORD\r\nC\r\n      FILE = MPTX\r\n      CALL OPEN (*1200,MPTX,Z(BUF1),WRTREW)\r\n      CALL FNAME (MPTX,NAM1)\r\n      CALL WRITE (MPTX,NAM1,2,1)\r\nC\r\nC     OPEN MPT AND POSITION FILE\r\nC\r\n      FILE = MPT\r\n      CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FWDREC (*1200,MPT)\r\nC\r\nC     OPEN PCOMPS AND WRITE HEADER RECORD\r\nC     WRITE TO IPCOMP(1), THE GINO FILE NAME OF PCOMPS\r\nC\r\n      FILE = PCOMPS\r\n      CALL OPEN (*1200,PCOMPS,Z(BUF3),WRTREW)\r\n      CALL WRITE (PCOMPS,NAM2,2,1)\r\nC\r\n      IPCOMP(1) = PCOMPS\r\n      DO 10 LL = 2,7\r\n   10 IPCOMP(LL) = 0\r\nC\r\nC     COPY ALL EPT ENTRIES UP TO PSHELL TYPE TO FILE EPTX\r\nC     IF NONE FOUND, MUST CREATE ONE BEFORE THE LAST RECORD IN FILE\r\nC\r\nC     SET AVAILABLE CORE\r\nC\r\n      N    = BUF5 - 1\r\n      IEPT = I1ST\r\n      FILE = EPT\r\n      CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FWDREC (*1200,EPT)\r\n      IREC = 0\r\n   20 CALL FWDREC (*30,EPT)\r\n      IREC = IREC + 1\r\n      GO TO 20\r\nC\r\n   30 CALL REWIND (EPT)\r\n      CALL FWDREC (*1200,EPT)\r\n      IRED = 0\r\n   40 CALL READ (*1200,*50,EPT,Z(IEPT),N,1,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n   50 IF (Z(IEPT) .EQ. 4902) GO TO 60\r\n      IRED = IRED + 1\r\n      IF (IRED .EQ. IREC) GO TO 70\r\n      CALL WRITE (EPTX,Z(IEPT),EPTWDS,1)\r\n      EPTWDS = 0\r\n      GO TO 40\r\nC\r\n   60 PSHLPR = 1\r\n   70 CALL BCKREC (EPT)\r\n      CALL SAVPOS (EPT,POS1)\r\n      CALL CLOSE (EPT,CLSREW)\r\nC\r\nC     OPEN EPT\r\nC\r\n      FILE = EPT\r\n      CALL PRELOC (*1200,Z(BUF4),EPT)\r\nC\r\nC     COPY ALL MAT ENTRIES UP TO MAT2 TYPE TO FILE MPTX\r\nC\r\nC     SET AVAILABLE CORE\r\nC\r\n      N = BUF5 - 1\r\n      IMAT = I1ST\r\n   80 CALL READ (*110,*90,MPT,Z(IMAT),N,1,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n   90 IF (Z(IMAT) .GE. 203) GO TO 100\r\n      CALL WRITE (MPTX,Z(IMAT),MATWDS,1)\r\n      MATWDS = 0\r\n      GO TO 80\r\n  100 CALL BCKREC (MPT)\r\n      CALL SAVPOS (MPT,POS)\r\n      IF (Z(IMAT) .EQ. 203) MAT2PR = 1\r\n      GO TO 120\r\nC\r\nC    SET END OF FILE FLAG\r\nC\r\n  110 EOF = 1\r\nC\r\nC     CLOSE MPT BEFORE CALLING PREMAT\r\nC\r\n  120 CALL CLOSE (MPT,1)\r\nC\r\nC     SET POINTERS AND PERFORM INITILIZATION\r\nC\r\n      IPC1  = 1\r\n      NPC   = 0\r\n      NPC1  = 0\r\n      NPC2  = 0\r\n      TYPC  = 0\r\n      TYPC1 = 0\r\n      TYPC2 = 0\r\nC\r\nC     SET SIZE OF AVAILABLE CORE\r\nC\r\n      N   = BUF5 - 1\r\n      IPC = 1\r\nC\r\nC     LOCATE PCOMP DATA AND READ INTO CORE\r\nC\r\n      CALL LOCATE (*140,Z(BUF4),PCOMP,FLAG)\r\nC\r\n      CALL READ (*1200,*130,EPT,Z(IPC),N,0,NPC)\r\n      CALL MESAGE (-8,0,NAM)\r\n  130 IF (NPC .GT. 0) TYPC = 1\r\n      IPC1 = IPC + NPC\r\n      IF (IPC1 .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      N = N - NPC\r\nC\r\nC     LOCATE PCOMP1 DATA AND READ INTO CORE\r\nC\r\n  140 CALL LOCATE (*160,Z(BUF4),PCOMP1,FLAG)\r\nC\r\n      IPC1 = IPC + NPC\r\n      CALL READ (*180,*150,EPT,Z(IPC1),N,0,NPC1)\r\n      CALL MESAGE (-8,0,NAM)\r\n  150 IF (NPC1 .GT. 0) TYPC1 = 1\r\n      IPC2 = IPC1 + NPC1\r\n      IF (IPC2 .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      N = N - NPC1\r\nC\r\nC     LOCATE PCOMP2 DATA AND READ INTO CORE\r\nC\r\n  160 CALL LOCATE(*180,Z(BUF4),PCOMP2,FLAG)\r\nC\r\n      IPC2 = IPC1 + NPC1\r\n      CALL READ (*180,*170,EPT,Z(IPC2),N,0,NPC2)\r\n      CALL MESAGE (-8,0,NAM)\r\n  170 IF (NPC2 .GT. 0) TYPC2 = 1\r\nC\r\nC     SET SIZE OF LPCOMP. NUMBER OF WORDS READ INTO CORE\r\nC\r\n  180 LPCOMP = IPC + NPC + NPC1 + NPC2\r\n      IF (LPCOMP .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\nC\r\nC     CLOSE EPT BEFORE PROCESSING PCOMPI\r\nC\r\n      CALL CLOSE (EPT,1)\r\nC\r\nC     READ MATERIAL PROPERTY TABLE INTO CORE\r\nC\r\n      IMAT  = LPCOMP + 1\r\n      N1MAT = BUF5 - IMAT\r\n      CALL PREMAT (Z(IMAT),Z(IMAT),Z(BUF5),N1MAT,N2MAT,MPT,DIT)\r\n      IF (IMAT+N2MAT .GE. BUF5) CALL MESAGE (-8,0,NAM)\r\n      ICORE = IMAT + N2MAT + 1\r\nC\r\nC     SET POINTERS\r\nC\r\n      ITYPE  =-1\r\n      ISTART = 0\r\n      IFINIS = 0\r\nC\r\nC     PROCESS ALL 'PCOMP' ENTRY TYPES SEQUENTIALLY\r\nC\r\nC     PCOMP ENTRIES\r\nC\r\n      IF (TYPC .EQ. 0) GO TO 190\r\n      ITYPE  = 0\r\n      ISTART = IPC\r\n      IFINIS = IPC1 - 1\r\n      NWDPC  = 8\r\n      KPC    = 4\r\n      PCOMPR = 1\r\n      GO TO 220\r\nC\r\nC     PCOMP1 ENTRIES\r\nC\r\n  190 IF (TYPC1 .EQ. 0) GO TO 200\r\n      ITYPE  = 1\r\n      ISTART = IPC1\r\n      IFINIS = IPC2 - 1\r\n      NWDPC  = 8\r\n      KPC    = 1\r\n      PCOMPR = 1\r\n      GO TO 220\r\nC\r\nC     PCOMP2 ENTRIES\r\nC\r\n  200 IF (TYPC2 .EQ. 0) GO TO 210\r\n      ITYPE  = 2\r\n      ISTART = IPC2\r\n      IFINIS = LPCOMP - 1\r\n      NWDPC  = 8\r\n      KPC    = 2\r\nC\r\nC     CHECK IF NO PCOMP DATA HAS BEEN READ INTO CORE\r\nC\r\n  210 IF (TYPC.EQ.0 .AND. TYPC1.EQ.0 .AND. TYPC2.EQ.0) GO TO 1210\r\nC\r\nC     SET INFLAG = 12, SO THAT FOR LAMINA REFERENCING MAT1 OR MAT2\r\nC     PROPERTY ENTRY WILL BE RETURNED IN MAT2 FORMAT. EXECPT FOR\r\nC     THOSE REFERENCING MAT8 PROPERTY, IN WHICH CASE THE ENTRY\r\nC     IS MERELY ECHOED.\r\nC\r\n  220 INFLAG = 12\r\nC\r\nC     SET POINTERS\r\nC\r\nC     WRITE 3-WORD IDENTITY FOR PCOMP DATA\r\nC\r\nC     PCOMP TYPE\r\nC\r\n      IF (ITYPE .NE. 0) GO TO 230\r\n      CALL WRITE (PCOMPS,NPCMP,3,0)\r\n      GO TO 250\r\nC\r\nC     PCOMP1 TYPE\r\nC\r\n  230 IF (ITYPE .NE. 1) GO TO 240\r\n      CALL WRITE (PCOMPS,NPCMP1,3,0)\r\n      GO TO 250\r\nC\r\nC     PCOMP2 TYPE\r\nC\r\n  240 CALL WRITE (PCOMPS,NPCMP2,3,0)\r\nC\r\nC     PROCESS ALL 'PCOMP' ENTRIES\r\nC\r\n  250 LEN    = 0\r\n      NLAY   = 0\r\n      EOELOC = 0\r\n      PIDLOC = 1\r\n      TLAM   = 0.0\r\n      RHO    = 0.0\r\n      ZK     = 0.0\r\n      ZK1    = 0.0\r\n      TREF   = 0.0\r\n      GSUBE  = 0.0\r\n      ALFA1  = 0.0\r\n      ALFA2  = 0.0\r\n      ALFA12 = 0.0\r\nC\r\n      DO 260 II = ISTART,IFINIS\r\n      IF (Z(II) .EQ. -1) GO TO 270\r\n  260 CONTINUE\r\nC\r\n  270 EOELOC = II\r\n      PIDLOC = ISTART\r\n      LEN    = EOELOC - PIDLOC\r\n      NLAY   = (LEN - NWDPC)/KPC\r\n      LAMOPT = Z(PIDLOC+7)\r\nC\r\nC     DETERMINE LAMINATE THICKNESS\r\nC\r\nC     PCOMP DATA\r\nC\r\n      IF (ITYPE .GT. 0) GO TO 290\r\n      DO 280 K = 1,NLAY\r\n      IIK  = (PIDLOC+5) + 4*K\r\n      TLAM = TLAM + RZ(IIK)\r\n  280 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\n      GO TO  320\r\nC\r\nC     PCOMP1 DATA\r\nC\r\n  290 IF (ITYPE .GT. 1) GO TO 300\r\n      IIK  = PIDLOC + 6\r\n      TLAM = RZ(IIK)*NLAY\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\n      GO TO 320\r\nC\r\nC     PCOMP2 DATA\r\nC\r\n  300 DO 310 K = 1,NLAY\r\n      IIK  = (PIDLOC+6) + 2*K\r\n      TLAM = TLAM + RZ(IIK)\r\n  310 CONTINUE\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) TLAM = 2.0*TLAM\r\nC\r\nC     WRITE TO PCOMPS\r\nC      1. PID\r\nC      2. NLAY - NUMBER OF LAYERS\r\nC      3. REMAINDER OF PCOMP ENTRY\r\nC\r\n  320 CALL WRITE (PCOMPS,Z(PIDLOC),1,0)\r\n      CALL WRITE (PCOMPS,NLAY,1,0)\r\nC\r\nC     SET LEN TO THE NO. WORDS TO BE WRITTEN TO PCOMPS\r\nC\r\n      LEN = LEN - 1\r\n      CALL WRITE (PCOMPS,Z(PIDLOC+1),LEN,0)\r\nC\r\nC     CALL MAT TO GET LAYER PROPERTIES AND WRITE TO PCOMPS\r\nC     NOTE FOR PCOMP1 AND PCOMP2 ENTRIES THE PROPERTY MATRIX\r\nC     IS ONLY WRITTEN TO PCOMPS ONCE. (ALL LAYER PER ENTRY HAVE\r\nC     THE SAME MID.\r\nC     SIMILARILY FOR PCOMP ENTRY, IF ALL LAYERS REFERENCE THE SAME\r\nC     MID, THEN THE PROPERTY MATRIX IS ONLY WRITTEN ONCE TO PCOMPS.\r\nC\r\nC          ITYPE = 0 PCOMP  ENTRY\r\nC          ITYPE = 1 PCOMP1 ENTRY\r\nC          ITYPE = 2 PCOMP2 ENTRY\r\nC\r\n      MID = 0\r\nC\r\nC     INITIALIZE G1, G2, G3 AND G4 MATRICES\r\nC\r\n      DO 330 LL = 1,3\r\n      DO 330 MM = 1,3\r\n      G1 (LL,MM) = 0.0\r\n      GD1(LL,MM) = 0.0\r\n      G2 (LL,MM) = 0.0\r\n      GD2(LL,MM) = 0.0\r\n      G4 (LL,MM) = 0.0\r\n      GD4(LL,MM) = 0.0\r\n  330 CONTINUE\r\nC\r\n      DO 340 LL = 1,2\r\n      FII(LL)  = 0.0\r\n      FI(LL)   = 0.0\r\n      RI(LL)   = 0.0\r\n      ZBAR(LL) = 0.0\r\n      DO 340 MM = 1,2\r\n      G3(LL,MM) = 0.0\r\n      GTRFLX(LL,MM) = 0.0\r\n      TRFLX(LL,MM)  = 0.0\r\n      G3INVD(LL,MM) = 0.0\r\n  340 CONTINUE\r\nC\r\nC     INTILIZISE ZBAR\r\nC\r\n      ZBARX   = 0.0\r\n      ZBARY   = 0.0\r\n      ZBARXT  = 0.0\r\n      ZBARXB  = 0.0\r\n      ZBARYT  = 0.0\r\n      ZBARYB  = 0.0\r\n      ZX      = 0.0\r\n      ZY      = 0.0\r\nC\r\n      EIXX    = 0.0\r\n      EIYY    = 0.0\r\nC\r\nC     LOOP OVER LAYERS\r\nC\r\n      DO 500 K = 1,NLAY\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 410\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 420\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPS TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPS (G)\r\nC\r\nC     COPY G(25) TO GLAY(25), FOR WRITING TO PCOMPS\r\nC\r\n      DO 400 KK = 1,25\r\n  400 GLAY(KK) = G(KK)\r\nC\r\nC     NEX 20 LINES ARE NEW FROM 2/90 UAI CODE\r\nC     COPY ALFA1, ALFA2 AND ALFA12 FROM GLAY(14 THRU 16)\r\nC\r\n      IF (.NOT.OK UAI) GO TO 410\r\n      ALFA1  = GLAY(14)\r\n      ALFA2  = GLAY(15)\r\n      ALFA1  = GLAY(16)\r\nC\r\nC     IF PCOMP, COPY TREF AND GE FROM THE MAIN CARD TO MATERIAL\r\nC     PROPERTY DATA. THIS IS DONE FOR THE FIRST LAYER\r\nC\r\n      IF (K     .EQ. 1) GO TO 410\r\n      IF (ITYPE .GE. 1) GO TO 405\r\n      TREF  = RZ(PIDLOC+5)\r\n      GSUBE = RZ(PIDLOC+6)\r\n      GLAY(24) = TREF\r\n      GLAY(25) = GSUBE\r\n      GO TO 410\r\n  405 TREF  = GLAY(24)\r\n      GSUBE = GLAY(25)\r\nC\r\nC     WRITE THE LAYER PROPERTY MATRIX G TO FILE PCOMPS\r\nC\r\n  410 CALL WRITE (PCOMPS,GLAY(1),25,0)\r\nC\r\nC     CALCULATE CONTRIBUTION OF EACH LAYER TO OVERALL PROPERTY\r\nC     MATRICES G1, G2, G4\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  420 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = ABS(THETA)\r\n      IF (C .LT. 0.000002) C = 0.0\r\n      IF (C.GT.89.99998 .AND. C.LT.90.00002) C =  90.0\r\n      IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0\r\n      IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0\r\n      IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0\r\n      IF (THETA .LT. 0.0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = COS(THETAR)\r\n      IF (ABS(C) .LT. EPSI) C = 0.0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = SIN(THETAR)\r\n      IF (ABS(S) .LT. EPSI) S = 0.0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC     CALCULATE GBAR = TT X G X T\r\nC\r\nC     MULTIPLY G X T AND WRITE TO GT\r\nC\r\n      CALL GMMATS (G(1),3,3,0, T(1),3,3,0, GT(1))\r\nC\r\nC     MULTIPLY TT X GT AND WRITE TO GBR\r\nC\r\n      CALL GMMATS (T(1),3,3,1, GT(1),3,3,0, GBR(1))\r\nC\r\nC     WRITE GBR IN TWO DIMENSIONED ARRAY GBAR\r\nC\r\n      DO 430 LL = 1,3\r\n      DO 430 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GBAR(LL,MM) = GBR(NN)\r\n  430 CONTINUE\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC     CALCULATE GDBAR = TT X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 440 LL = 1,9\r\n  440 GD(LL) = 0.0\r\n      CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC     MULTIPLY TT X GDT AND WRITE TO GDBR\r\n      CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GDBR IN TWO DIMENSIONED ARRAY GDBAR\r\nC\r\n      DO 450 LL = 1,3\r\n      DO 450 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  450 CONTINUE\r\nC\r\nC     *********************************************************\r\nC     *   NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *   COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *   DEGRADED I.E SET TO ZERO.                           *\r\nC     *********************************************************\r\nC\r\n      GDBAR(1,2) = 0.0\r\n      GDBAR(2,1) = 0.0\r\n      GDBAR(1,3) = 0.0\r\n      GDBAR(2,3) = 0.0\r\n      GDBAR(3,1) = 0.0\r\n      GDBAR(3,2) = 0.0\r\nC\r\nC     PERFORM INITIALIZATION\r\nC\r\n      ZREF = -TLAM/2.0\r\n      ZK1  = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\n      ZG1 = ZK - ZK1\r\n      ZG4 =-(ZK**2 - ZK1**2)*0.5\r\n      ZG2 = (ZK**3 - ZK1**3)*0.33333333\r\nC\r\nC     CALCULATE LAYER CONTRIBUTION TO G1, G2, DG2, AND G4 MATRICES\r\nC\r\n      DO 460 IR = 1,3\r\n      DO 460 IC = 1,3\r\n      G1 (IR,IC) =  G1(IR,IC) +  GBAR(IR,IC)*ZG1\r\n      GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 460\r\n      G2 (IR,IC) =  G2(IR,IC) +  GBAR(IR,IC)*ZG2\r\n      GD2(IR,IC) =  GD2(IR,IC)+ GDBAR(IR,IC)*ZG2\r\n      IF (LAMOPT .EQ. SYM) GO TO 460\r\n      G4 (IR,IC) =  G4(IR,IC) +  GBAR(IR,IC)*ZG4\r\n      GD4(IR,IC) = GD4(IR,IC) + GDBAR(IR,IC)*ZG4\r\n  460 CONTINUE\r\nC\r\nC     CHECK LAMINATION OPTION AND IF SYMM OR SYMM.MEMB CALCULATE\r\nC     LAYER CONTRIBUTION TO THE MEMBRANE, BENDING AND THE\r\nC     MEMEBRANE-BENDING MATRICES\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 480\r\nC\r\n      DO 470 IR = 1,3\r\n      DO 470 IC = 1,3\r\n      G1 (IR,IC) =  G1(IR,IC) +  GBAR(IR,IC)*ZG1\r\n      GD1(IR,IC) = GD1(IR,IC) + GDBAR(IR,IC)*ZG1\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 470\r\n      G2 (IR,IC) =  G2(IR,IC) +  GBAR(IR,IC)*ZG2\r\n      GD2(IR,IC) = GD2(IR,IC) + GDBAR(IR,IC)*ZG2\r\n  470 CONTINUE\r\nC\r\n  480 CONTINUE\r\nC\r\nC     **************************************************************\r\nC     CALCULATION OF ZBARX AND ZBARY\r\nC            NEUTRAL SURFACE LOCATION IN X- AND Y- DIRECTION\r\nC\r\nC           TI  -  THICKNESS OF LAYER K\r\nC           ZI  -  DISTANCE FROM REFERENCE SURFACE TO MID OF LAMINA K\r\nC        EX,EY  -  APPARENT ENGINEERING PROPERTY. I.E YOUNGS MODULUS\r\nC                  IN THE LONGITUDINAL AND TRANSVERSE DIRECTIONS IN\r\nC                  THE MATERIAL COORDINATE SYSTEM.\r\nC     **************************************************************\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM\r\nC\r\n      EX = 1.0/GDBAR(1,1)\r\n      EY = 1.0/GDBAR(2,2)\r\nC\r\n      EXX = EX\r\n      EYY = EY\r\nC\r\nC     WRITE EXX AND EYY TO PCOMPS\r\nC\r\n      CALL WRITE (PCOMPS,EXX,1,0)\r\n      CALL WRITE (PCOMPS,EYY,1,0)\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 490\r\nC\r\n      TI = ZK - ZK1\r\n      ZI = (ZK + ZK1)/2.0\r\nC\r\n      ZBARXT = ZBARXT + EX*TI*ZI\r\n      ZBARXB = ZBARXB + EX*TI\r\n      ZBARYT = ZBARYT + EY*TI*ZI\r\n      ZBARYB = ZBARYB + EY*TI\r\nC\r\nC     CALCULATE CONTRIBUTION TO OVERALL DENSITY RHO\r\nC\r\n  490 IF (G(23) .EQ. 0.) GO TO 500\r\n      RHO = RHO + G(23)*ZG1\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  500 CONTINUE\r\nC\r\nC     JUMP IF LAMOPT IS MEMBRANE OR SYMM.MEMBRANE\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 520\r\nC\r\nC     WRITE GD1, GD2 AND GD4 MATRICES TO STIFF MATRIX AND INVERT\r\nC     TO DETERMINE THE OVERALL BENDING PROPERTY FOR THE LAMINATE.\r\nC\r\n      DO 510 LL = 1,3\r\n      DO 510 MM = 1,3\r\n      STIFF(LL  ,MM  ) = GD1(LL,MM)\r\n      STIFF(LL  ,MM+3) = GD4(LL,MM)\r\n      STIFF(LL+3,MM  ) = GD4(LL,MM)\r\n      STIFF(LL+3,MM+3) = GD2(LL,MM)\r\n  510 CONTINUE\r\nC\r\nC     INVERT STIFF\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,STIFF,6,DUM,0,DETERM,ISING,INDEX)\r\nC\r\n      EI(1) = 1.0/STIFF(4,4)\r\n      EI(2) = 1.0/STIFF(5,5)\r\nC\r\n      EIXX = EI(1)\r\n      EIYY = EI(2)\r\nC\r\nC     WRITE EIXX AND EIYY TO PCOMPS\r\nC\r\n  520 CALL WRITE (PCOMPS,EIXX,1,0)\r\n      CALL WRITE (PCOMPS,EIYY,1,0)\r\nC\r\nC     ***************************************************************\r\nC     *   THE MEMBRANE, BENDING, AND MEMEBRANE-BENDING MATRICES     *\r\nC     *   G1, G2, G3, AND G4  ARE GIVEN BY THE FOLLOWING            *\r\nC     ***************************************************************\r\nC\r\n      DO 530 IR = 1,3\r\n      DO 530 IC = 1,3\r\n      G1(IR,IC)  = (1.0/TLAM)*G1(IR,IC)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 530\r\n      G2(IR,IC)  = (12.0/TLAM**3)*G2(IR,IC)\r\n      IF (LAMOPT .EQ. SYM) GO TO 530\r\n      G4(IR,IC)  = (1.0/TLAM**2)*G4(IR,IC)\r\n  530 CONTINUE\r\nC\r\nC     CALCULATE LOCATION OF NEUTRAL SURFACE ZBARX AND ZBARY\r\nC     FOR LAMINATE\r\nC\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM)\r\n     1    GO TO 540\r\n      ZBARX = ZBARXT/ZBARXB\r\n      ZBARY = ZBARYT/ZBARYB\r\n      ZBAR(1) = ZBARX\r\n      ZBAR(2) = ZBARY\r\nC\r\n      ZX = ZBARX\r\n      ZY = ZBARY\r\nC\r\nC     WRITE ZX AND ZY TO PCOMPS\r\nC\r\n  540 CALL WRITE (PCOMPS,ZX,1,0)\r\n      CALL WRITE (PCOMPS,ZY,1,0)\r\nC\r\nC     CALCULATE OVERALL DENSITY RHO\r\nC\r\n      IF (RHO .EQ. 0.) GO TO 550\r\n      IF (LAMOPT.EQ.SYM .OR. LAMOPT.EQ.SYMMEM) RHO = 2.0*RHO\r\n      RHO = RHO/TLAM\r\nC\r\nC     ****************************************************************\r\nC     *   CHECK IF TRANSVERSE FLEXIBILITY MATRIX NEEDS TO CALCULATED *\r\nC     *   OTHERWISE JUMP TO PROCEED AS PER NORMAL.                   *\r\nC     ****************************************************************\r\nC\r\n  550 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 830\r\n      IF (G(10) .EQ. 0.0) GO TO 830\r\nC\r\nC     LOOP OVER ALL THE LAYERS\r\nC\r\n      DO 700 K = 1,NLAY\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 560\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 560\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPS TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPS (G)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  560 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = ABS(THETA)\r\n      IF (C .LT. 0.000002) C = 0.0\r\n      IF (C.GT.89.99998 .AND. C.LT.90.00002) C =  90.0\r\n      IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0\r\n      IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0\r\n      IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0\r\n      IF (THETA .LT. 0.0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = COS(THETAR)\r\n      IF (ABS(C) .LT. EPSI) C = 0.0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = SIN(THETAR)\r\n      IF (ABS(S) .LT. EPSI) S = 0.0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC     CALCULATE GDBR = TT X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 570 LL = 1,9\r\n  570 GD(LL) = 0.0\r\n      CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC     MULTIPLY TT X GDT AND WRITE TO GDBR\r\nC\r\n      CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GBR TO GDBAR\r\nC\r\n      DO 580 LL = 1,3\r\n      DO 580 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  580 CONTINUE\r\nC\r\nC     *************************************************************\r\nC     *       NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *       COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *       DEGRADED I.E SET TO ZERO.                           *\r\nC     *************************************************************\r\nC\r\n      GDBAR(1,2) = 0.0\r\n      GDBAR(2,1) = 0.0\r\n      GDBAR(1,3) = 0.0\r\n      GDBAR(2,3) = 0.0\r\n      GDBAR(3,1) = 0.0\r\n      GDBAR(3,2) = 0.0\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE\r\nC\r\n      E(1) = 1.0/GDBAR(1,1)\r\n      E(2) = 1.0/GDBAR(2,2)\r\nC\r\nC     PERFORM INTILIZATION\r\nC\r\n      ZREF = -TLAM/2.0\r\n      ZK1  = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX U\r\nC\r\n      U(1) = C\r\n      U(2) = S\r\n      U(3) =-S\r\n      U(4) = C\r\nC\r\nC     CALCULATE G3BAR = UT X G3I X U\r\nC     G3I MATRIX  -  LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS\r\nC\r\n      DO 590 LL = 1,4\r\n      MM = LL + 9\r\n      G3I(LL) = G(MM)\r\n  590 CONTINUE\r\nC\r\nC     MULTIPLY G3I X U AND WRITE TO G3IU\r\nC\r\n      CALL GMMATS (G3I(1),2,2,0, U(1),2,2,0, G3IU(1))\r\nC\r\nC     MULTIPLY UT X G3IU AND WRITE TO G3BR\r\nC\r\n      CALL GMMATS (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1))\r\nC\r\nC     WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR\r\nC\r\n      DO 600 LL = 1,2\r\n      DO 600 MM = 1,2\r\n      NN = MM + 2*(LL-1)\r\n      G3BAR(LL,MM) = G3BR(NN)\r\n  600 CONTINUE\r\nC\r\nC     INVERT G3BAR\r\nC\r\n      DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1)\r\n      IF (DETRMN .EQ. 0.0) GO TO 1230\r\nC\r\n      G3INVD(1,1) = G3BAR(2,2)/DETRMN\r\n      G3INVD(1,2) =-G3BAR(1,2)/DETRMN\r\n      G3INVD(2,1) =-G3BAR(2,1)/DETRMN\r\n      G3INVD(2,2) = G3BAR(1,1)/DETRMN\r\nC\r\nC     G3 MATRIX CALC\r\nC\r\n      ZI = (ZK + ZK1)/2.0\r\n      TI =  ZK - ZK1\r\nC\r\n      DO 610 IR = 1,2\r\n      RI(IR) = ((FI(IR)/E(IR)) + (ZBAR(IR)-ZK1)*TI - (TI*TI/3.0))\r\n     1       * (FI(IR)/E(IR))\r\n      RI(IR) = RI(IR) + ZBAR(IR)*TI*TI*((ZBAR(IR)-2.0*ZK1)/3.0\r\n     1       - (TI/4.0))\r\n      RI(IR) = RI(IR) + TI*TI*((ZK1*ZK1)/3.0 + (ZK1*TI)/4.0\r\n     1       + (TI*TI)/20.0)\r\n      RI(IR) = RI(IR)*E(IR)*E(IR)*TI\r\n  610 CONTINUE\r\nC\r\n      DO 620 IR = 1,2\r\n      DO 620 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC)\r\n  620 CONTINUE\r\nC\r\n      DO 630 IR = 1,2\r\n      FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI)\r\n      FI(IR)  = FI(IR) + FII(IR)\r\n  630 CONTINUE\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  700 CONTINUE\r\nC\r\nC\r\nC    FALL HERE IF LAMOPT IS SYMM AND G3 CALCULATION IS REQUIRED\r\nC\r\nC\r\n      IF (LAMOPT .NE. SYM) GO TO  810\r\n      DO 800 KK = 1,NLAY\r\n      K = NLAY + 1 - KK\r\nC\r\n      IF (ITYPE .EQ. 0) MATID = Z(PIDLOC+4+4*K)\r\n      IF (ITYPE.EQ.1 .OR. ITYPE.EQ.2) MATID = Z(PIDLOC+5)\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.0 .AND. MID.EQ.MATID)) GO TO 710\r\n      IF (K.GE.2 .AND. (ITYPE.EQ.1 .OR.  ITYPE.EQ.2)  ) GO TO 710\r\nC\r\n      MID = MATID\r\n      CALL MAT (ELID)\r\nC\r\nC     CALL LPROPS TO GET LAYER PROPERTY MATRICES\r\nC\r\n      CALL LPROPS (G)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX T\r\nC\r\n  710 IF (ITYPE .EQ. 0) THETA = RZ(PIDLOC+6+4*K)\r\n      IF (ITYPE .EQ. 1) THETA = RZ(PIDLOC+7+  K)\r\n      IF (ITYPE .EQ. 2) THETA = RZ(PIDLOC+7+2*K)\r\n      C = ABS(THETA)\r\n      IF (C .LT. 0.000002) C = 0.0\r\n      IF (C.GT.89.99998 .AND. C.LT.90.00002) C =  90.0\r\n      IF (C.GT.179.9998 .AND. C.LT.180.0002) C = 180.0\r\n      IF (C.GT.269.9998 .AND. C.LT.270.0002) C = 270.0\r\n      IF (C.GT.359.9998 .AND. C.LT.360.0002) C = 360.0\r\n      IF (THETA .LT. 0.0) C = -C\r\n      THETAR = C*DEGRAD\r\nC\r\n      C  = COS(THETAR)\r\n      IF (ABS(C) .LT. EPSI) C = 0.0\r\n      C2 = C*C\r\n      C4 = C2*C2\r\n      S  = SIN(THETAR)\r\n      IF (ABS(S) .LT. EPSI) S = 0.0\r\n      S2 = S*S\r\n      S4 = S2*S2\r\nC\r\n      T(1) = C2\r\n      T(2) = S2\r\n      T(3) = C*S\r\n      T(4) = S2\r\n      T(5) = C2\r\n      T(6) =-C*S\r\n      T(7) =-2.0*C*S\r\n      T(8) = 2.0*C*S\r\n      T(9) = C2 - S2\r\nC\r\nC     PROCESSING FOR G3 MATRIX\r\nC\r\nC     CALCULATE GDBR = TT X GD X T\r\nC\r\nC     DETERMINE GD MATRIX, WHICH IS EQUAL TO G MATRIX WITH POISSONS\r\nC     RATIO=0.0\r\nC        GD(1) ---- YOUNGS MODULUS IN X-DIRN\r\nC        GD(5) ---- YOUNGS MODULUS IN Y-DIRN\r\nC        GD(9) ---- INPLANE SHEAR MODULUS\r\nC\r\n      DO 720 LL = 1,9\r\n  720 GD(LL) = 0.0\r\n      CONST = 1.0 - (G(2)*G(4))/(G(5)*G(1))\r\n      GD(1) = G(1)*CONST\r\n      GD(5) = G(5)*CONST\r\n      GD(9) = G(9)\r\nC\r\nC     MULTIPLY GD X T AND WRITE TO GDT\r\nC\r\n      CALL GMMATS (GD(1),3,3,0, T(1),3,3,0, GDT(1))\r\nC\r\nC     MULTIPLY TT X GDT AND WRITE TO GDBR\r\nC\r\n      CALL GMMATS (T(1),3,3,1, GDT(1),3,3,0, GDBR(1))\r\nC\r\nC     WRITE GBR TO GDBAR\r\nC\r\n      DO 730 LL = 1,3\r\n      DO 730 MM = 1,3\r\n      NN = MM + 3*(LL-1)\r\n      GDBAR(LL,MM) = GDBR(NN)\r\n  730 CONTINUE\r\nC\r\nC     *************************************************************\r\nC     *       NOTE TO APPROXIMATE BEAM BEHAVIOUR THE CROSS AND    *\r\nC     *       COUPLING TERMS IN THE GDBAR MATRIX NEED TO BE       *\r\nC     *       DEGRADED I.E SET TO ZERO.                           *\r\nC     *************************************************************\r\nC\r\n      GDBAR(1,2) = 0.0\r\n      GDBAR(2,1) = 0.0\r\n      GDBAR(1,3) = 0.0\r\n      GDBAR(2,3) = 0.0\r\n      GDBAR(3,1) = 0.0\r\n      GDBAR(3,2) = 0.0\r\nC\r\nC     INVERT GDBAR TO DETERMINE EX AND EY\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,GDBAR,3,DUMMY,0,DETERM,ISING,INDEXX)\r\nC\r\nC     THE YOUNGS MODULI EX AND EY IN THE MATERIAL COORD SYSTEM ARE\r\nC\r\n      E(1) = 1.0/GDBAR(1,1)\r\n      E(2) = 1.0/GDBAR(2,2)\r\nC\r\nC     PERFORM INTILIZATION\r\nC\r\n      ZREF = -TLAM/2.0\r\n      ZK1  = ZK\r\n      IF (ITYPE .EQ. 0) ZK = ZK1 + RZ(PIDLOC+5+4*K)\r\n      IF (ITYPE .EQ. 1) ZK = ZK1 + RZ(PIDLOC+6    )\r\n      IF (ITYPE .EQ. 2) ZK = ZK1 + RZ(PIDLOC+6+2*K)\r\nC\r\nC     BUILD TRANSFORMATION MATRIX U\r\nC\r\n      U(1) = C\r\n      U(2) = S\r\n      U(3) =-S\r\n      U(4) = C\r\nC\r\nC     CALCULATE G3BAR = UT X G3I X U\r\nC     G3I MATRIX  -  LAYER K TRANSFORMED G3, IN MATERIAL COORD-SYS\r\nC\r\n      DO 740 LL = 1,4\r\n      MM = LL + 9\r\n      G3I(LL) = G(MM)\r\n  740 CONTINUE\r\nC\r\nC     MULTIPLY G3I X U AND WRITE TO G3IU\r\nC\r\n      CALL GMMATS (G3I(1),2,2,0, U(1),2,2,0, G3IU(1))\r\nC\r\nC     MULTIPLY UT X G3IU AND WRITE TO G3BR\r\nC\r\n      CALL GMMATS (U(1),2,2,1, G3IU(1),2,2,0, G3BR(1))\r\nC\r\nC     WRITE G3BR IN TWO DIMENSIONED ARRAY G3BAR\r\nC\r\n      DO 750 LL = 1,2\r\n      DO 750 MM = 1,2\r\n      NN = MM + 2*(LL-1)\r\n      G3BAR(LL,MM) = G3BR(NN)\r\n  750 CONTINUE\r\nC\r\nC     INVERT G3BAR\r\nC\r\n      DETRMN = G3BAR(1,1)*G3BAR(2,2) - G3BAR(1,2)*G3BAR(2,1)\r\n      IF (DETRMN .EQ. 0.0) GO TO 1230\r\nC\r\n      G3INVD(1,1) = G3BAR(2,2)/DETRMN\r\n      G3INVD(1,2) =-G3BAR(1,2)/DETRMN\r\n      G3INVD(2,1) =-G3BAR(2,1)/DETRMN\r\n      G3INVD(2,2) = G3BAR(1,1)/DETRMN\r\nC\r\nC     THE CORRESSPONDING LAYER ON THE OTHER SIDE OF SYMMETRY\r\nC\r\n      ZI = (ZK + ZK1)/2.0\r\n      TI =  ZK - ZK1\r\nC\r\n      DO 760 IR = 1,2\r\n      RI(IR) = (FI(IR)/E(IR) +(-ZK1)*TI-TI*TI/3.0 )*FI(IR)/E(IR)\r\n     1       + (ZK1*ZK1/3.0+ZK1*TI/4.0+TI*TI/20.0)*TI*TI\r\n      RI(IR) = RI(IR)*E(IR)*E(IR)*TI\r\n  760 CONTINUE\r\nC\r\n      DO 770 IR = 1,2\r\n      DO 770 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC) + RI(IR)*G3INVD(IR,IC)\r\n  770 CONTINUE\r\nC\r\n      DO 780 IR = 1,2\r\n      FII(IR) = E(IR)*TI*(ZBAR(IR)-ZI)\r\n      FI(IR)  = FI(IR) + FII(IR)\r\n  780 CONTINUE\r\nC\r\nC     PROCESS NEXT LAYER\r\nC\r\n  800 CONTINUE\r\nC\r\n  810 DO 820 IR = 1,2\r\n      DO 820 IC = 1,2\r\n      GTRFLX(IR,IC) = GTRFLX(IR,IC)*TLAM/(EI(IR)**2)\r\n  820 CONTINUE\r\nC\r\nC     INVERT GTRFLX\r\nC\r\n      DETRMN = GTRFLX(1,1)*GTRFLX(2,2) - GTRFLX(1,2)*GTRFLX(2,1)\r\n      IF (DETRMN .EQ. 0.0) GO TO 1230\r\nC\r\n      G3(1,1) = GTRFLX(2,2)/DETRMN\r\n      G3(1,2) =-GTRFLX(1,2)/DETRMN\r\n      G3(2,1) =-GTRFLX(2,1)/DETRMN\r\n      G3(2,2) = GTRFLX(1,1)/DETRMN\r\nC\r\nC     BECAUSE G3(1,2) IS NOT EQUAL TO G3(2,1) IN GENERAL\r\nC     AN AVERAGE VALUE WILL BE USED FOR THE COUPLING TERMS\r\nC\r\n      G3(1,2) = (G3(1,2) + G3(2,1))/ 2.0\r\n      G3(2,1) = G3(1,2)\r\nC\r\nC     *****************************************************\r\nC     WRITE THE NEWLY GENERATED G1, G2, G3, AND G4 MATRICES\r\nC     TO MPTX IN THE FORM OF MAT2 DATA ENTRIES\r\nC     *****************************************************\r\nC\r\nC      NOTE - THE MID FOR THESE MATRICES ARE AS FOLLOWS-\r\nC         1. MID1  -- PID + 100000000\r\nC         2. MID2  -- PID + 200000000\r\nC         3. MID3  -- PID + 300000000\r\nC         4. MID4  -- PID + 400000000\r\nC\r\nC    INITIALIZE G1, G2, G3, AND G4 MATRICES\r\nC\r\n  830 DO 840 JJ = 1,17\r\n      GMEMBR(JJ) = 0.0\r\n      GBENDG(JJ) = 0.0\r\n      GTRSHR(JJ) = 0.0\r\n      GMEMBD(JJ) = 0.0\r\n  840 CONTINUE\r\nC\r\n      IMEMBR(1) = 0\r\n      IBENDG(1) = 0\r\n      ITRSHR(1) = 0\r\n      IMEMBD(1) = 0\r\nC\r\nC     START GENERATING G1 MEMBRANE MATRIX\r\nC\r\n      IMEMBR( 1) = Z(PIDLOC) + 100000000\r\n      GMEMBR( 2) = G1(1,1)\r\n      GMEMBR( 3) = G1(1,2)\r\n      GMEMBR( 4) = G1(1,3)\r\n      GMEMBR( 5) = G1(2,2)\r\n      GMEMBR( 6) = G1(2,3)\r\n      GMEMBR( 7) = G1(3,3)\r\n      GMEMBR( 8) = RHO\r\nC\r\nC     NEXT 5 LINES ARE NEW FROM 2/90 UAI CODE\r\nC\r\n      IF (.NOT.OK UAI) GO TO 845\r\n      GMEMBR( 9) = ALFA1\r\n      GMEMBR(10) = ALFA2\r\n      GMEMBR(11) = ALFA12\r\n      GMEMBR(12) = TREF\r\n      GMEMBR(13) = GSUBE\r\nC\r\n  845 IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 850\r\nC\r\nC     START GENERATING G2 BENDING MATRIX\r\nC\r\n      IBENDG( 1) = Z(PIDLOC) + 200000000\r\n      GBENDG( 2) = G2(1,1)\r\n      GBENDG( 3) = G2(1,2)\r\n      GBENDG( 4) = G2(1,3)\r\n      GBENDG( 5) = G2(2,2)\r\n      GBENDG( 6) = G2(2,3)\r\n      GBENDG( 7) = G2(3,3)\r\nC\r\nC     NEXT 3 LINES ARE NEW FROM 2/90 UAI CODE\r\nC\r\n      IF (.NOT.OK UAI) GO TO 847\r\nC     GBENDG( 8) = ??\r\n      GBENDG( 9) = ALFA1\r\n      GBENDG(10) = ALFA2\r\n      GBENDG(11) = ALFA12\r\nC\r\nC     START GENERATING G3 TRANSVERSE SHEAR FLEXIBILITY MATRIX\r\nC\r\n  847 ITRSHR( 1) = Z(PIDLOC) + 300000000\r\n      GTRSHR( 2) = G3(1,1)\r\n      GTRSHR( 3) = G3(1,2)\r\n      GTRSHR( 4) = G3(2,1)\r\n      GTRSHR( 5) = G3(2,2)\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO TO 850\r\nC\r\nC     START GENERATING G4 MEMBRANE-BENDING COUPLING MATRIX\r\nC\r\n      IMEMBD( 1) = Z(PIDLOC) + 400000000\r\n      GMEMBD( 2) = G4(1,1)\r\n      GMEMBD( 3) = G4(1,2)\r\n      GMEMBD( 4) = G4(1,3)\r\n      GMEMBD( 5) = G4(2,2)\r\n      GMEMBD( 6) = G4(2,3)\r\n      GMEMBD( 7) = G4(3,3)\r\nC\r\n  850 CONTINUE\r\nC\r\nC     *******************************************************\r\nC     GENERATE EQUIVALENT PSHELL BULK DATA ENTIES FOR EVERY\r\nC     PCOMPI BULK DATA ENTRY. THIS IS NECESSARY FOR DEMG TO\r\nC     FUNCTION CORRECTLY WHEN LAMINATED COMPOSITE ELEMENTS\r\nC     ARE PRESENT.\r\nC     *******************************************************\r\nC\r\n      IPSHEL( 1) = Z(PIDLOC)\r\n      IPSHEL( 2) = Z(PIDLOC) + 100000000\r\n      RPSHEL( 3) = TLAM\r\n      IPSHEL( 4) = Z(PIDLOC) + 200000000\r\n      RPSHEL( 5) = 1.0\r\n      IPSHEL( 6) = Z(PIDLOC) + 300000000\r\n      RPSHEL( 7) = 1.0\r\n      RPSHEL( 8) = RZ(PIDLOC+2)\r\n      RPSHEL( 9) =-TLAM/2.0\r\n      RPSHEL(10) = TLAM/2.0\r\n      IPSHEL(11) = Z(PIDLOC) + 400000000\r\n      RPSHEL(12) = 0.0\r\n      IPSHEL(13) = 0\r\n      IPSHEL(14) = 0\r\n      RPSHEL(15) = 0.0\r\n      IPSHEL(16) = 0\r\n      RPSHEL(17) = 0.0\r\nC\r\n      ZOFFS = RZ(PIDLOC+1) + TLAM/2.0\r\n      IF (Z(PIDLOC)  .EQ.  BLANK) ZOFFS = 0.0\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) ZOFFS = 0\r\n      IF (ABS(ZOFFS) .LE. 1.0E-3) ZOFFS = 0.0\r\n      RPSHEL(14) = ZOFFS\r\nC\r\n      IF (LAMOPT.NE.MEM .AND. LAMOPT.NE.SYMMEM) GO TO 860\r\n      IPSHEL( 4) = 0\r\n      IPSHEL( 6) = 0\r\n      IPSHEL(11) = 0\r\n      RPSHEL(14) = 0.0\r\n  860 IF (LAMOPT .NE. SYM) GO TO 870\r\n      IPSHEL(11) = 0\r\n  870 CONTINUE\r\nC\r\nC     UPDATE COUNTER ICOUNT TO INDICATE MAT2 AND PSHELL DATA IS BEING\r\nC     WRITTEN SECOND TIME\r\nC\r\n      ICOUNT = ICOUNT + 1\r\nC\r\n      IF (ICOUNT .GT. 1) GO TO 900\r\nC\r\n      IF (PSHLPR .NE. 1) GO TO 890\r\n      ICORE = LPCOMP + 1 + N2MAT\r\n      N = BUF5 - ICORE\r\n      CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FILPOS (EPT,POS1)\r\n      CALL READ (*900,*880,EPT,Z(ICORE),N,0,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n  880 CALL WRITE (EPTX,Z(ICORE),EPTWDS,0)\r\n      GO TO 900\r\n  890 CALL WRITE (EPTX,PSHNAM,3,0)\r\n  900 CALL WRITE (EPTX,IPSHEL(1),17,0)\r\nC\r\n      IF (ICOUNT .GT. 1) GO TO 930\r\nC\r\n      IF (MAT2PR .NE. 1) GO TO 920\r\n      ICORE = LPCOMP + 1 + N2MAT\r\n      N = BUF5 - ICORE\r\n      CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FILPOS (MPT,POS)\r\n      CALL READ (*930,*910,MPT,Z(ICORE),N,0,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n  910 CALL WRITE (MPTX,Z(ICORE),MATWDS,0)\r\n      GO TO 930\r\n  920 CALL WRITE (MPTX,MATNAM,3,0)\r\n  930 CALL WRITE (MPTX,IMEMBR(1),17,0)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 940\r\n      CALL WRITE (MPTX,IBENDG(1),17,0)\r\n      CALL WRITE (MPTX,ITRSHR(1),17,0)\r\n      IF (LAMOPT .EQ. SYM) GO TO 940\r\n      CALL WRITE (MPTX,IMEMBD(1),17,0)\r\n  940 CONTINUE\r\n      CALL SSWTCH (40,L40)\r\n      IF (L40 .EQ. 0) GO TO 980\r\nC\r\nC     WRITE THE NEWLY GENERATED PROPERTY MATRICES TO THE OUTPUT FILE\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) IMEMBR(1),(GMEMBR(LL),LL=2,16)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 980\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) IBENDG(1),(GBENDG(LL),LL=2,16)\r\n      IF (GTRSHR(1) .EQ. 0.0) GO TO 950\r\n      CALL PAGE2 (2)\r\n      WRITE (NOUT,960) ITRSHR(1),(GTRSHR(LL),LL=2,16)\r\n  950 IF (LAMOPT .EQ. SYM) GO TO 980\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,960) IMEMBD(1),(GMEMBD(LL),LL=2,16)\r\n  960 FORMAT (/,' MAT2',7X,I9,7(1X,1P,E11.4),/,9X,8(1X,F11.1))\r\nC\r\nC     UPDATE LOCATION OF NEXT PID\r\nC\r\n  980 PIDLOC = EOELOC + 1\r\n      ISTART = PIDLOC\r\nC\r\nC     WRITE END OF ENTRY (EOE) TO PCOMPS BEFORE PROCESSING\r\nC     NEXT PCOMP ENTRY\r\nC\r\n      CALL WRITE (PCOMPS,EOE,1,0)\r\nC\r\nC     CHECK IF ALL 'PCOMP' TYPE ENTRIES HAVE BEEN PROCESSED\r\nC\r\n      IF (ISTART .GE. IFINIS) IF (ITYPE-1) 990,1000,1010\r\nC\r\nC     PROCESS NEXT 'PCOMP' ENTRY\r\nC\r\n      GO TO 250\r\nC\r\n  990 CALL WRITE (PCOMPS,0,0,1)\r\n      IF (TYPC1 .GT. 0) GO TO 190\r\n      IF (TYPC2 .GT. 0) GO TO 200\r\n      GO TO 1020\r\nC\r\n 1000 CALL WRITE (PCOMPS,0,0,1)\r\n      IF (TYPC2 .GT. 0) GO TO 200\r\n      GO TO 1020\r\nC\r\n 1010 CALL WRITE (PCOMPS,0,0,1)\r\nC\r\nC     ALL 'PCOMP' TYPES PROCESSED\r\nC     WRITE EOR ON MPTX AND EPTX\r\nC\r\n 1020 CALL WRITE (MPTX,0,0,1)\r\n      CALL WRITE (EPTX,0,0,1)\r\nC\r\nC     COPY REMAINDER OF EPT TO EPTX\r\nC\r\n      ICORE = 1\r\n      N = BUF5 - 1\r\n      EPTWDS = 0\r\n      IF (PSHLPR .NE. 1) CALL OPEN (*1200,EPT,Z(BUF4),RDREW)\r\n      CALL FILPOS (EPT,POS1)\r\n      IF (PSHLPR .EQ. 1) CALL FWDREC (*1050,EPT)\r\n 1030 CALL READ (*1050,*1040,EPT,Z(ICORE),N,1,EPTWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1040 CALL WRITE (EPTX,Z(ICORE),EPTWDS,1)\r\n      EPTWDS = 0\r\n      GO TO 1030\r\nC\r\nC     READ TRAILER FROM EPT AND WRITE TO EPTX\r\nC\r\n 1050 DO 1060 KK = 1,7\r\n 1060 IEPTX(KK) = 0\r\n      IEPTX( 1) = EPT\r\nC\r\n      CALL RDTRL(IEPTX)\r\n      IEPTX(1) = EPTX\r\n      KT721 = ANDF(PSHBIT,511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IEPTX(K1) = ORF(IEPTX(K1),TWO(K2))\r\n      CALL WRTTRL (IEPTX)\r\nC\r\nC     IF EOF ON MPT,THEN ALL MAT2 DATA COPIED TO MPTX\r\nC\r\n      IF (EOF .EQ. 1) GO TO 1090\r\nC\r\nC     OTHERWISE COPY REMAINDER OF MPT TO MPTX\r\nC\r\n      ICORE = 1\r\n      N = BUF5 - 1\r\n      MATWDS = 0\r\n      IF (MAT2PR .NE. 1) CALL OPEN (*1200,MPT,Z(BUF2),RDREW)\r\n      CALL FILPOS (MPT,POS)\r\n      IF (MAT2PR .EQ. 1) CALL FWDREC (*1090,MPT)\r\n 1070 CALL READ (*1090,*1080,MPT,Z(ICORE),N,1,MATWDS)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1080 CALL WRITE (MPTX,Z(ICORE),MATWDS,1)\r\n      MATWDS = 0\r\n      GO TO 1070\r\nC\r\nC     READ TRAILER FROM MPT AND WRITE TO MPTX\r\nC\r\n 1090 DO 1100 KK = 1,7\r\n 1100 IMPTX(KK) = 0\r\n      IMPTX( 1) = MPT\r\nC\r\n      CALL RDTRL(IMPTX)\r\n      IMPTX(1) = MPTX\r\n      KT721 = ANDF(MT2BIT,511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IMPTX(K1) = ORF(IMPTX(K1),TWO(K2))\r\n      CALL WRTTRL (IMPTX)\r\nC\r\nC     WRITE TO TRAILER OF PCOMPS\r\nC\r\nC     SET TRAILER BIT POSITION TO ZERO IF ENTRY TYPE DOES NOT EXIST\r\nC\r\n      IF (TYPC  .EQ. 0) PCBIT(1) = 0\r\n      IF (TYPC1 .EQ. 0) PCBIT(2) = 0\r\n      IF (TYPC2 .EQ. 0) PCBIT(3) = 0\r\nC\r\n      DO 1110 LL = 1,3\r\n      KT721 = ANDF(PCBIT(LL),511)\r\n      K1 = (KT721-1)/16 + 2\r\n      K2 = KT721 - (K1-2)*16 + 16\r\n      IPCOMP(K1) = ORF(IPCOMP(K1),TWO(K2))\r\n 1110 CONTINUE\r\nC\r\nC     WHEN ICFIAT IS 11, A 65536 IS LEFT IN IPCOMP(2) ACCIDENTALLY\r\nC     ZERO IT OUT\r\nC\r\n      IF (ICFIAT .EQ. 11) IPCOMP(2) = 0\r\n      CALL WRTTRL (IPCOMP)\r\nC\r\nC     CLOSE ALL FILES\r\nC\r\n      CALL CLOSE (PCOMPS,1)\r\n      CALL CLOSE (EPTX,1)\r\n      CALL CLOSE (MPTX,1)\r\n      CALL CLOSE (MPT,1)\r\n      CALL CLOSE (EPT,1)\r\nC\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESSAGES\r\nC\r\n 1200 CALL MESAGE (-1,FILE,NAM)\r\n      GO TO 1300\r\n 1210 CALL PAGE2 (2)\r\n      WRITE  (NOUT,1220)\r\n 1220 FORMAT ('0*** SYSTEM FATAL ERROR.  PCOMP, PCOMP1 OR PCOMP2',\r\n     1        ' DATA NOT FOUND BY SUBROUTINE TA1CPS.')\r\n      NOGO = 1\r\n      GO TO 1300\r\n 1230 CALL PAGE2 (4)\r\n      WRITE (NOUT,1240) MATID\r\n      NOGO = 1\r\n 1240 FORMAT ('0*** USER FATAL ERROR.  IMPROPER DATA PROVIDED FOR',\r\n     1       ' CALCULATION OF TRANSVERSE SHEAR FLEXIBILITY MATRIX',\r\n     2       /,23X,'FOR LAMINA REFERENCING MID ',I8,'.',\r\n     3       /,23X,'CHECK DATA ON MAT BULK DATA ENTRY.')\r\n 1300 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1etd.f",
    "content": "      SUBROUTINE TA1ETD (ELID,TI,GRIDS)\r\nC\r\nC     THIS ROUTINE (CALLED BY -TA1A- AND -TA1B-) READS ELEMENT\r\nC     TEMPERATURE DATA FROM A PRE-POSITIONED RECORD\r\nC\r\nC     ELID   = ID OF ELEMENT FOR WHICH DATA IS DESIRED\r\nC     TI     = BUFFER DATA IS TO BE RETURNED IN\r\nC     GRIDS  = 0 IF EL-TEMP FORMAT DATA IS TO BE RETURNED\r\nC            = NO. OF GRID POINTS IF GRID POINT DATA IS TO BE RETURNED.\r\nC     ELTYPE = ELEMENT TYPE TO WHICH -ELID- BELONGS\r\nC     OLDEL  = ELEMENT TYPE CURRENTLY BEING WORKED ON (INITIALLY 0)\r\nC     OLDEID = ELEMENT ID FROM LAST CALL\r\nC     EORFLG = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED IN RECORD\r\nC     ENDID  = .TRUE. WHEN ALL DATA HAS BEEN EXHAUSTED WITHIN AN ELEMENT\r\nC              TYPE.\r\nC     BUFFLG = NOT USED\r\nC     ITEMP  = TEMPERATURE LOAD SET ID\r\nC     IDEFT  = NOT USED\r\nC     IDEFM  = NOT USED\r\nC     RECORD = .TRUE. IF A RECORD OF DATA IS INITIALLY AVAILABLE\r\nC     DEFALT = THE DEFALT TEMPERATURE VALUE OR -1 IF IT DOES NOT EXIST\r\nC     AVRAGE = THE AVERAGE ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         EORFLG,ENDID ,BUFFLG,RECORD\r\n      INTEGER         TI(2) ,OLDEID,GRIDS ,ELID  ,ELTYPE,OLDEL\r\n      INTEGER         NAME(2)      ,GPTT  ,DEFALT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ DUM   ,IOUT\r\n      COMMON /TA1ETT/ ELTYPE,OLDEL ,EORFLG,ENDID ,BUFFLG\r\n     1               ,ITEMP ,DEFALT,IBACK ,RECORD,OLDEID\r\n      COMMON /TA1COM/ DUMMY(5)     ,GPTT\r\n      DATA    NAME  / 4HTA1E,4HTD  /,MAXWDS/ 33 /\r\nC\r\n      IF (OLDEID .EQ. ELID) RETURN\r\n      OLDEID = ELID\r\nC\r\n      IF (ITEMP .NE. 0) GO TO 20\r\n      DO 10 I = 1,MAXWDS\r\n   10 TI(I) = 0.0\r\n      RETURN\r\nC\r\n   20 IF (.NOT.RECORD .OR. EORFLG) GO TO 50\r\n   15 IF (ELTYPE .NE. OLDEL) GO TO 30\r\n      IF (ENDID) GO TO 50\r\nC\r\nC     HERE WHEN ELTYPE IS AT HAND AND END OF THIS TYPE DATA\r\nC     HAS NOT YET BEEN REACHED.  READ AN ELEMENT ID\r\nC\r\n   35 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 40,50,40\r\n   40 IF (IABS(ID) .EQ. ELID) IF (ID) 51,51,70\r\n      IF (ID) 35,35,45\r\n   45 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 35\r\nC\r\nC     MATCH ON ELEMNT ID MADE AND IT WAS WITH DATA\r\nC\r\n   70 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      RETURN\r\nC\r\nC     NO MORE DATA FOR THIS ELEMENT TYPE\r\nC\r\n   50 ENDID = .TRUE.\r\nC\r\nC     NO DATA FOR ELEMENT ID DESIRED, THUS USE DEFALT\r\nC\r\n   51 IF (DEFALT .EQ. -1) GO TO 100\r\n      IF (GRIDS  .GT.  0) GO TO 75\r\n      DO 80 I = 2,MAXWDS\r\n   80 TI(I) = 0\r\n      TI(1) = DEFALT\r\n      IF (ELTYPE .EQ. 34) TI(2) = DEFALT\r\n      RETURN\r\nC\r\n   75 DO 76 I = 1,GRIDS\r\n   76 TI(I) = DEFALT\r\n      TI(GRIDS+1) = DEFALT\r\n      RETURN\r\nC\r\nC     NO TEMP DATA OR DEFALT\r\nC\r\n  100 WRITE  (IOUT,301) UFM,ELID,ITEMP\r\n  301 FORMAT (A23,' 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT',I9,\r\n     1       ' IN SET',I9 )\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     LOOK FOR MATCH ON ELTYPE (FIRST SKIP ANY UNUSED ELEMENT DATA)\r\nC\r\n   30 IF (ENDID) GO TO 32\r\n   31 CALL READ (*5002,*5001,GPTT,ID,1,0,FLAG)\r\n      IF (ID) 31,32,33\r\n   33 CALL READ (*5002,*5001,GPTT,TI,NWORDS,0,FLAG)\r\n      GO TO 31\r\nC\r\nC     READ ELTYPE AND COUNT\r\nC\r\n   32 CALL READ (*5002,*300,GPTT,TI,2,0,FLAG)\r\n      OLDEL  = TI(1)\r\n      NWORDS = TI(2)\r\n      ENDID  = .FALSE.\r\n      IBACK  = 1\r\n      GO TO 15\r\nC\r\nC     END OF RECORD HIT\r\nC\r\n  300 EORFLG = .TRUE.\r\n      GO TO 50\r\n 5002 CALL MESAGE (-2,GPTT,NAME)\r\n 5001 CALL MESAGE (-3,GPTT,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ta1h.f",
    "content": "      SUBROUTINE TA1H\r\nC\r\nC     FOR LEVEL 16 A MAJOR REVISION HAS BEEN MADE TO TA1B. THE ECPT AND\r\nC     GPCT ARE NO LONGER CONTSTRUCTED BUT, INSTEAD, THE GPECT IS BUILT.\r\nC     THE GPECT IS ESSENTIALLY A TRUNCATED VERSION OF THE OLD ECPT. IT\r\nC     CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT IN THE\r\nC     MODEL. EACH LOGICAL RECORD CONTAINS THE CONNECTION DATA FOR EACH\r\nC     ELEMENT CONNECTED TO THE GRID POINT.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         GENL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                EST   ,GEI   ,ECPT  ,GPCT  ,SCR1  ,SCR2  ,SCR3  ,\r\n     2                SCR4  ,Z     ,SYSBUF,TEMPID,ELEM  ,TEMPSZ,ELEMID,\r\n     3                OUTPT ,RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS   ,\r\n     4                BUF   ,FLAG  ,BUF1  ,BUF2  ,BUF3  ,OP    ,TWO24 ,\r\n     5                SCRI  ,SCRO  ,BLK   ,OUFILE,ANDF  ,OUT(3),GPECT ,\r\n     6                EQEXIN\r\n      DIMENSION       BUF(50)      ,BUFR(50)     ,NAM(2),BLK(2),ZZ(1)\r\n      COMMON /BLANK / LUSET ,NOSIMP,NOSUP ,NOGENL,GENL  ,COMPS\r\n      COMMON /TA1COM/ NSIL  ,ECT   ,EPT   ,BGPDT ,SIL   ,GPTT  ,CSTM  ,\r\n     1                MPT   ,EST   ,GEI   ,GPECT ,ECPT  ,GPCT  ,MPTX  ,\r\n     2                PCOMPS,EPTX  ,SCR1  ,SCR2  ,SCR3  ,SCR4  ,EQEXIN\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /GPTA1 / NELEM ,JLAST ,INCR  ,ELEM(1)\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW,CLS\r\n      COMMON /TA1AB / TEMPSZ\r\nCZZ   COMMON /ZZTAA2/ Z(1)\r\n      COMMON /ZZZZZZ/ Z(20000)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF) ,(KSYSTM(2),OUTPT),\r\n     1                (KSYSTM(10),TEMPID) ,(BUF(1),BUFR(1)) ,\r\n     2                (Z(1),ZZ(1))        ,(BLK(2),N)\r\n      DATA    NAM   / 4HTA1H, 4H    /     ,TWO24  / 4194304 /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION\r\nC\r\n      N2   = 2*NELEM - 1\r\n      N21  = N2 + 1\r\n      BUF1 = KORSZ(Z) - SYSBUF - 2\r\n      BUF2 = BUF1 - SYSBUF\r\n      BUF3 = BUF2 - SYSBUF\r\nCWKBR spr 93012      NEQ1 = NSIL + 1\r\n      NEQ1 = NSIL + 2\r\n      NEQ2 = 0\r\nC\r\nC     THE GRID POINT COUNTER(GPC)HAS ONE ENTRY PER GRID OR SCALAR POINT\r\nC     IN THE STRUCTURE. EACH ENTRY CONTAINS THE NUMBER OF STRUCTURAL\r\nC     ELEMENTS CONNECTED TO THE POINT.\r\nC\r\n      DO 2001 I = 1,NSIL\r\n 2001 Z(I+1) = 0\r\nC\r\nC     OPEN THE ECT. INITIALIZE TO LOOP THRU BY ELEMENT TYPE.\r\nC\r\n      FILE = ECT\r\n      CALL GOPEN (ECT,Z(BUF1),RDREW)\r\n      NOECT = 1\r\nC\r\nC     IGNORE PLOTEL AND REACT ELEMENTS. OTHERWISE, LOCATE AN ELEMENT\r\nC     TYPE. IF PRESENT, READ ALL ELEMENTS OF THAT TYPE AND INCREMENT\r\nC     THE GPC ENTRY FOR EACH POINT TO WHICH THE ELEMENT IS CONNECTED.\r\nC\r\n 2012 CALL ECTLOC (*2026,ECT,BUF,I)\r\n      NOECT = 0\r\n      LX = ELEM(I+12)\r\n      MM = LX+ELEM(I+9) - 1\r\n      M  = ELEM(I+5)\r\n 2021 CALL READ (*3201,*2012,ECT,BUF,M,0,FLAG)\r\n      DO 2022 L = LX,MM\r\n      K  = BUF(L)\r\n      IF (K .NE. 0) Z(K+1) = Z(K+1) + 1\r\n 2022 CONTINUE\r\n      GO TO 2021\r\n 2026 CONTINUE\r\n      IF (NOECT .NE. 0) GO TO 3209\r\nC\r\nC     REPLACE ENTRIES IN THE GPC BY A RUNNING SUM\r\nC     THUS CREATING POINTERS INTO ECPT0\r\nC     QUEUE WARNING MESSAGES FOR GRID PTS. WITH NO ELEMENTS CONNECTED.\r\nC\r\n      Z(1)  = 1\r\n      MAXEL = 0\r\n      DO 2037 I = 1,NSIL\r\n      MAXEL = MAX0(MAXEL,Z(I+1))\r\n      IF (Z(I+1) .NE. 0) GO TO 2037\r\nC\r\n      J = 0\r\n      IF (NEQ2) 2035,2031,2033\r\n 2031 NEQ2 = -1\r\n      Z(NEQ1) = EQEXIN\r\n      CALL RDTRL (Z(NEQ1))\r\n      IF (Z(NEQ1) .LE. 0) GO TO 2035\r\n      FILE = EQEXIN\r\n      CALL GOPEN (EQEXIN,Z(BUF2),RDREW)\r\n      CALL READ (*3200,*2032,EQEXIN,Z(NEQ1),BUF3,1,NEQ2)\r\n 2032 CALL CLOSE (EQEXIN,CLSREW)\r\n      CALL SORT (0,0,2,2,Z(NEQ1),NEQ2)\r\n 2033 J = Z((I-1)*2+NEQ1)\r\nC\r\n 2035 BUF(1) = I\r\n      BUF(2) = J\r\n      CALL MESAGE (30,15,BUF)\r\n 2037 Z(I+1) = Z(I) + Z(I+1)\r\nC\r\nC     DETERMINE BAND OF ENTRIES IN ECPT0 WHICH WILL FIT IN CORE\r\nC     NDX1 = POINTER IN GPC TO 1ST  ENTRY FOR CURRENT PASS.\r\nC     NDX2 = POINTER IN GPC TO LAST ENTRY FOR CURRENT PASS.\r\nC\r\n      NDX1 = 1\r\n      NDX2 = NSIL\r\n      LLX  = 1\r\n      IECPT0 = NSIL + 2\r\n      LENGTH = BUF1 - IECPT0\r\n      OP = WRTREW\r\n 2042 IF (Z(NDX2+1)-Z(NDX1)+2 .LE. LENGTH) GO TO 2050\r\n      NDX2 = NDX2 - 1\r\n      GO TO 2042\r\nC\r\nC     PASS THE ECT. FOR EACH GRID PT IN RANGE ON THIS PASS,\r\nC     STORE ELEMENT POINTER = 2**K * J + WORD POSITION IN ECT RECORD\r\nC     WHERE K=22 FOR LEVEL 16 AND J = ENTRY NBR OF ELEMENT IN /GPTA1/\r\nC     (WHICH IS SAME AS ELEMENT TYPE AS OF LEVEL 15)\r\nC\r\n 2050 FILE = ECT\r\n      CALL GOPEN (ECT,Z(BUF1),RDREW)\r\n      IZERO = Z(NDX1)\r\n 2051 CALL ECTLOC (*2059,ECT,BUF,I)\r\n      J  = (I-1)/INCR + 1\r\n      IDCNTR = TWO24*J\r\n      M  = ELEM(I+5)\r\n      LX = ELEM(I+12)\r\n      MM = LX + ELEM(I+9) - 1\r\n 2052 CALL READ (*3201,*2051,ECT,BUF,M,0,FLAG)\r\n      DO 2054 L = LX,MM\r\n      K  = BUF(L)\r\n      IF (K.LT.NDX1 .OR. K.GT.NDX2) GO TO 2054\r\n      IX = Z(K) - IZERO + IECPT0\r\n      Z(IX) = IDCNTR\r\n      Z(K)  = Z(K) + 1\r\n 2054 CONTINUE\r\n      IDCNTR = IDCNTR + M\r\n      GO TO 2052\r\n 2059 CONTINUE\r\nC\r\nC     WRITE ECPT0 AND TEST FOR ADDITIONAL PASSES\r\nC     ECPT0 CONTAINS ONE LOGICAL RECORD FOR EACH GRID OR SCALAR POINT.\r\nC     EACH LOGICAL RECORD CONTAINS N PAIRS OF(-1,ELEMENT POINTER)WHERE\r\nC     N= NUMBER OF ELEMENTS CONNECTED TO THE PIVOT.\r\nC     IF NO ELEMENTS CONNECTED TO POINT, RECORD IS ONE WORD = 0.\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN (*3200,SCR1,Z(BUF1),OP)\r\n      ELEMID =  1\r\n      BUF(1) = -1\r\n      LJ = IECPT0 - 1\r\n      DO 2062 I = NDX1,NDX2\r\n      M  = Z(I) - LLX\r\n      IF (M .NE. 0) GO TO 2063\r\n      CALL WRITE (SCR1,0,1,1)\r\n      GO TO 2062\r\n 2063 DO 2061 J = 1,M\r\n      LJ = LJ + 1\r\n      BUF(2) = Z(LJ)\r\n 2061 CALL WRITE (SCR1,BUF,2,0)\r\n      CALL WRITE (SCR1,0,0,1)\r\n 2062 LLX = Z(I)\r\n      IF (NDX2 .GE. NSIL) GO TO 2070\r\n      CALL CLOSE (SCR1,CLS)\r\n      NDX1 = NDX2 + 1\r\n      NDX2 = NSIL\r\n      OP   = WRT\r\n      GO TO 2042\r\nC\r\nC     READ AS MUCH OF ECT AS CORE CAN HOLD\r\nC     FIRST N21 CELLS OF CORE CONTAIN A POINTER TABLE WHICH HAS TWO\r\nC     ENTRIES PER ELEMENT TYPE. 1ST ENTRY HAS POINTER TO 1ST WORD OF\r\nC     ECT DATA IN CORE FOR AN ELEMENT TYPE  2ND ENTRY HAS WORD POSITION\r\nC     IN ECT RECORD OF THAT TYPE FOR LAST ENTRY READ ON PREVIOUS PASS.\r\nC\r\n 2070 CALL CLOSE (SCR1,CLSREW)\r\n      SCRI = SCR1\r\n      SCRO = SCR2\r\n      FILE = ECT\r\n      CALL GOPEN (ECT,Z(BUF1),RDREW)\r\n      DO 2071 J = 1,N21\r\n 2071 Z(J) = 0\r\n      L = N21 + 1\r\n 2072 CALL ECTLOC (*2080,ECT,BUF,IELEM)\r\n      I = 2*((IELEM-1)/INCR + 1) - 1\r\n      Z(I) = L\r\n      LL   = 0\r\n      M    = ELEM(IELEM+5)\r\n      LAST = BUF3-M\r\n 2073 IF (L .GT. LAST) GO TO 2080\r\n      CALL READ (*3201,*2074,ECT,Z(L),M,0,FLAG)\r\n      Z(L)   = ELEMID\r\n      ELEMID = ELEMID +1\r\n      L  = L  + M\r\n      LL = LL + M\r\n      GO TO 2073\r\n 2074 CONTINUE\r\n      GO TO 2072\r\nC\r\nC     PASS ECPT0 ENTRIES LINE BY LINE\r\nC     ATTACH EACH REFERENCED ECT ENTRY WHICH IS NOW IN CORE\r\nC\r\n 2080 FILE = SCRI\r\n      CALL OPEN (*3200,SCRI,Z(BUF2),RDREW)\r\n      CALL OPEN (*3200,SCRO,Z(BUF3),WRTREW)\r\n 2082 CALL READ (*2090,*2086,SCRI,BUF,1,0,FLAG)\r\n      IF (BUF(1)) 2083,2087,2085\r\n 2083 CALL READ (*3201,*3202,SCRI,BUF(2),1,0,FLAG)\r\n      KHR = BUF(2)/TWO24\r\n      KTWO24 = KHR*TWO24\r\n      K  = 2*KHR - 1\r\n      IDPTR = BUF(2) - KTWO24\r\n      KK = Z(K) + IDPTR - Z(K+1)\r\n      IF (Z(K).EQ.0 .OR. KK.GT.LAST) GO TO 2084\r\n      J  = (KHR-1)*INCR + 1\r\n      MM = ELEM(J+5)\r\n      BUF(1) = MM\r\n      BUF(2) = ANDF(Z(KK),TWO24-1) + KTWO24\r\n      CALL WRITE (SCRO,BUF,2,0)\r\n      CALL WRITE (SCRO,Z(KK+1),MM-1,0)\r\n      GO TO 2082\r\n 2084 CALL WRITE (SCRO,BUF,2,0)\r\n      GO TO 2082\r\n 2085 CALL READ  (*3201,*3202,SCRI,BUF(2),BUF(1),0,FLAG)\r\n      CALL WRITE (SCRO,BUF,BUF(1)+1,0)\r\n      GO TO 2082\r\n 2086 CALL WRITE (SCRO,0,0,1)\r\n      GO TO 2082\r\n 2087 CALL WRITE (SCRO,0,1,1)\r\n      CALL FWDREC (*3201,SCRI)\r\n      GO TO 2082\r\nC\r\nC     TEST FOR COMPLETION OF STEP\r\nC     IF INCOMPLETE, SET FOR NEXT PASS\r\nC\r\n 2090 CALL CLOSE (SCRI,CLSREW)\r\n      CALL CLOSE (SCRO,CLSREW)\r\n      IF (IELEM .EQ. 0) GO TO 2100\r\n      K = SCRI\r\n      SCRI = SCRO\r\n      SCRO = K\r\n      L = N21 + 1\r\n      DO 2091 J = 1,N21\r\n 2091 Z(J) = 0\r\n      Z(I) = L\r\n      Z(I+1) = LL\r\n      GO TO 2073\r\nC\r\nC     READ THE SIL INTO CORE. OPEN ECPT0 AND GPECT.\r\nC     WRITE HEADER RECORD ON GPECT - 3RD WORD = NO OF ENTRIES IN /GPTA1/\r\nC\r\n 2100 FILE = SIL\r\n      CALL GOPEN (SIL,Z(BUF1),RDREW)\r\n      CALL FREAD (SIL,Z,NSIL,1)\r\n      Z(NSIL+1) = LUSET + 1\r\n      CALL CLOSE (SIL,CLSREW)\r\n      INFILE = SCRO\r\n      OUFILE = GPECT\r\n      MAXDOF = 0\r\n      FILE   = INFILE\r\n      CALL OPEN (*3200,INFILE,Z(BUF1),RDREW)\r\n      CALL OPEN (*3200,OUFILE,Z(BUF2),WRTREW)\r\n      CALL FNAME (OUFILE,BUF)\r\n      BUF(3) = NELEM\r\n      CALL WRITE (OUFILE,BUF,3,1)\r\nC\r\nC     PASS ECPT0 LINE BY LINE. FOR EACH LINE -\r\nC     1. CONVERT GRID NBRS TO SIL VALUES\r\nC     2. SORT SIL NBRS AND DISCARD MISSING ONES\r\nC     3. WRITE LINE ON GPECT\r\nC\r\n      DO 2158 LL = 1,NSIL\r\nC\r\nC     WRITE SIL AND DOF FOR PIVOT\r\nC\r\n      BUF(1) = Z(LL)\r\n      BUF(2) = Z(LL+1) - Z(LL)\r\n      CALL WRITE (OUFILE,BUF,2,0)\r\nC\r\nC     READ AN ECT LINE FROM ECPT0. SET POINTERS AS A FUNCTION OF ELEM\r\nC     TYPE.\r\nC\r\n 2140 CALL READ (*3201,*2154,INFILE,BUF,1,0,FLAG)\r\n      IF (BUF(1)) 3207, 2150, 2142\r\n 2142 CALL READ (*3201,*3202,INFILE,BUF(2),BUF(1),0,FLAG)\r\n      KHR   = BUF(2)/TWO24\r\n      IELEM = (KHR-1)*INCR + 1\r\n      NGRIDS= ELEM(IELEM+9)\r\n      IGR1  = ELEM(IELEM+12) + 1\r\n      IGR2  = IGR1 + NGRIDS - 1\r\n      MAXEL = 0\r\nC\r\nC     CONVERT GRID NUMBERS TO SIL VALUES. DISCARD ANY MISSING (ZERO)\r\nC     GRID POINTS THEN SORT LIST ON SIL VALUE\r\nC\r\n      DO 2146 II = IGR1,IGR2\r\n      K = BUF(II)\r\n      IF (K .NE. 0) GO TO 2145\r\n      BUF(II) = 2147483647\r\n      NGRIDS  = NGRIDS - 1\r\n      GO TO 2146\r\n 2145 BUF(II) = Z(K)\r\n      MAXEL   = MAX0(MAXEL,Z(K+1)-Z(K))\r\n 2146 CONTINUE\r\n      CALL SORT (0,0,1,1,BUF(IGR1),ELEM(IELEM+9))\r\n      MAXDOF = MAX0(MAXDOF,NGRIDS*MAXEL)\r\nC\r\nC     WRITE A LINE ON GPECT.\r\nC     - NUMBER OF WORDS IN ENTRY (NOT INCLUDING THIS WORD)\r\nC       ELEMENT ID\r\nC       ELEMENT TYPE\r\nC       THE SORTED SIL LIST FOR THE GRID POINTS\r\nC\r\n      OUT(1) = -(NGRIDS+2)\r\n      OUT(2) = BUF(2) - KHR*TWO24\r\n      OUT(3) = ELEM(IELEM+2)\r\n      CALL WRITE (OUFILE,OUT,3,0)\r\n      CALL WRITE (OUFILE,BUF(IGR1),NGRIDS,0)\r\n      GO TO 2140\r\nC\r\nC     HERE IF NO ELEMENTS CONNECTED TO PIVOT.\r\nC\r\n 2150 CALL WRITE (OUFILE,0,0,1)\r\n      CALL FWDREC (*3202,INFILE)\r\n      GO TO 2158\r\nC\r\nC     HERE WHEN ALL ELEMENTS COMPLETE FOR CURRENT PIVOT\r\nC\r\n 2154 CALL WRITE (OUFILE,0,0,1)\r\n 2158 CONTINUE\r\nC\r\nC     CLOSE FILES, WRITE TRAILER AND RETURN.\r\nC\r\n      CALL CLOSE (INFILE,CLSREW)\r\n      CALL CLOSE (OUFILE,CLSREW)\r\n      BUF(1) = OUFILE\r\n      BUF(2) = NELEM\r\n      BUF(3) = NSIL\r\n      BUF(4) = MAXEL\r\n      BUF(5) = MAXDOF\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      CALL WRTTRL (BUF)\r\n      RETURN\r\nC\r\nC     FATAL ERROR MESAGES\r\nC\r\n 3200 J = -1\r\n      GO TO 3220\r\n 3201 J = -2\r\n      GO TO 3220\r\n 3202 J = -3\r\n      GO TO 3220\r\n 3207 BUF(1) = 0\r\n      BUF(2) = 0\r\n      CALL MESAGE (-30,14,BUF)\r\n 3209 BUF(1) = 0\r\n      BUF(2) = 0\r\n      CALL MESAGE (-30,13,BUF)\r\n      BUF(1) = TEMPID\r\n      BUF(2) = 0\r\n      N = 44\r\n      GO TO 3219\r\n 3219 CALL MESAGE (-30,N,BUF)\r\n 3220 CALL MESAGE (J,FILE,NAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tabfmt.f",
    "content": "      SUBROUTINE TABFMT\r\nC\r\nC     MODULE MAIN PROGRAM FOR DMAP MODULE TABPRT\r\nC\r\nC     THE CALL TO THIS MODULE IS\r\nC\r\nC     TABPRT TDB // C,N,KEY / C,N,OPT1 / C,N,OPT2 $\r\nC\r\nC            TDB IS THE TABLE DATA BLOCK TO BE PRINTED.\r\nC\r\nC            KEY IS THE BCD VALUE WHICH DETERMINES THE FORMAT BY\r\nC                 WHICH THE TABLE IS PRINTED.\r\nC                 THERE IS NO DEFAULT VALUE FOR KEY.\r\nC\r\nC            OPT1 IS A SKIP FACTOR BETWEEN DATA LINES.\r\nC                 OPT1.EQ.0 MEANS  NO SPACE BETWEEN DATA LINES.\r\nC                 OPT1.NE.0 MEANS ONE SPACE BETWEEN DATA LINES.\r\nC                 THE DEFAULT VALUE FOR OPT1 IS 0\r\nC\r\nC            OPT2 IS ZERO BY DEFAULT.\r\nC                 SKIP FILE-NAME AND KEY CHECKING IF OPT2 IS NON-ZERO.\r\nC\r\n      INTEGER         P,P2,P3,NA,R,X(14),SUBNAM(2),NAME(2),NONE(2),\r\n     1                NAM(2),RE,F,T(7),WD,RL,Y,Z(2),EID,A,B,\r\n     2                H1,H2,H3,HX,ZERO,ONE,TWO\r\n      REAL            RX(14)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / P(2),P2,P3\r\n      COMMON /SYSTEM/ NB,NO,JUNK1(6),NLPP,JUNK2(2),LINE\r\n      COMMON /OUTPUT/ T1(32),T2(32),T3(32),H1(32),H2(32),H3(32)\r\n      COMMON /TABFTX/ LA,NA(2,21)  ,  HX(32,40)  , RE(21)\r\n      COMMON /ZZZZZZ/ IX(1)\r\n      EQUIVALENCE     (RX(1),X(1),IX(1))\r\n      DATA    NONE  / 4H (NO , 4HNE)  /\r\n      DATA    SUBNAM/ 4HTABF , 4HMT   /\r\n      DATA    F     / 101   /\r\n      DATA    ZERO  / 4H  0 /, ONE    / 4H  1 / , TWO / 4H  2 /\r\nC\r\nC\r\n    1 FORMAT (1H )\r\nC\r\n      LC = KORSZ(X) - NB\r\n      IB = LC + 1\r\n      IF (LC .LE. 0) CALL MESAGE (-8,LC,SUBNAM)\r\n      LS = 1\r\n      IF (P2 .NE. 0) LS = 2\r\nC\r\n      DO 100 I = 1,LA\r\n      IF (P(1).EQ.NA(1,I) .AND. P(2).EQ.NA(2,I)) GO TO 200\r\n  100 CONTINUE\r\n      GO TO 9901\r\nC\r\n  200 CONTINUE\r\n      CALL FNAME (F,NAME)\r\n      IF (NAME(1).EQ.NONE(1) .AND. NAME(2).EQ.NONE(2)) GO TO 9902\r\n      T(1) = F\r\n      CALL RDTRL (T)\r\n      IF (T(1) .LE. 0) GO TO 9902\r\n      CALL OPEN (*9902,F,X(IB),0)\r\n      CALL READ (*9903,*9904,F,NAM,2,RE(I),KF)\r\n      IF (NAM(1).EQ.P(1) .AND. NAM(2).EQ.P(2)) GO TO 250\r\n      IF (P3 .EQ. 0) GO TO 9901\r\n  250 CONTINUE\r\nC\r\n      GO TO (1100,1200,1300,1400,1500,1600,1700,1800,1900,2000\r\n     1      ,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000\r\n     2      ,3100), I\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK BGPDT.\r\nC\r\n 1100 CONTINUE\r\n      M1 = 2\r\n      M2 = 3\r\n      M3 = 4\r\n      ASSIGN 1110 TO R\r\n      GO TO 8000\r\n 1110 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ONE\r\n      IF (LC .LT. 4) GO TO 9905\r\n      J = 0\r\n 1120 CALL READ (*9903,*1180,F,X,4,0,KF)\r\n      J = J + 1\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1140\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1140 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE  (NO,1150) J,X(1),(RX(L),L=2,4)\r\n 1150 FORMAT (20X,I10,I13,1X,1P,3E20.5)\r\n      GO TO 1120\r\n 1180 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 9000\r\n      GO TO 9906\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK GPL.\r\nC\r\n 1200 CONTINUE\r\nC\r\nC     RECORD 1\r\nC\r\n      M1 = 2\r\n      M2 = 5\r\n      M3 = 6\r\n      ASSIGN 1205 TO R\r\n      GO TO 8000\r\n 1205 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ONE\r\n      IF (LC .LT. 5) GO TO 9905\r\n      J = -4\r\n 1210 CALL READ (*9903,*1230,F,X,5,0,KF)\r\n      J = J + 5\r\n      LINE = LINE + LS\r\n      IF (LINE.LE.NLPP) GO TO 1220\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1220 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE  (NO,1225) J,(X(L),L=1,5)\r\n 1225 FORMAT (11X,I8,5(9X,I8,3X))\r\n      GO TO 1210\r\n 1230 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 1250\r\n      J = J + 5\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1240\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1240 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE (NO,1225) J,(X(L),L=1,KF)\r\nC\r\nC     RECORD 2\r\nC\r\n 1250 IF (I .EQ. 4) GO TO 9000\r\n      M1 = 2\r\n      M2 = 7\r\n      M3 = 8\r\n      ASSIGN 1255 TO R\r\n      GO TO 8000\r\n 1255 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = TWO\r\n      IF (LC .LT. 6) GO TO 9905\r\n      J = -2\r\n 1260 CALL READ (*9903,*1280,F,X,6,0,KF)\r\n      J = J + 3\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1270\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1270 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE  (NO,1275) J,(X(L),L=1,6)\r\n 1275 FORMAT (11X,I8,2X,3(9X,I8,4X,I12))\r\n      GO TO 1260\r\n 1280 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 1292\r\n      J = J + 3\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1290\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1290 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE (NO,1275) J,(X(L),L=1,KF)\r\nC\r\n 1292 IF (MOD(KF,2) .EQ. 0) GO TO 9000\r\n      GO TO 9906\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK CSTM\r\nC\r\n 1300 CONTINUE\r\n      M1 = 2\r\n      M2 = 9\r\n      M3 = 10\r\n      ASSIGN 1310 TO R\r\n      GO TO 8000\r\n 1310 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ONE\r\n      IF (LC .LT. 14) GO TO 9905\r\n      J = 0\r\n 1320 CALL READ (*9903,*1380,F,X,14,0,KF)\r\n      J = J + 1\r\n      LINE = LINE + LS + 2\r\n      IF (LINE .LE. NLPP) GO TO 1340\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS + 2\r\n 1340 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE (NO,1350) J,X(1),X(2),RX( 6),RX( 7),RX( 8),RX( 3)\r\n     1                           ,RX( 9),RX(10),RX(11),RX( 4)\r\n     2                           ,RX(12),RX(13),RX(14),RX( 5)\r\n 1350 FORMAT( 10X,I10,I10,I10, 1P,3E20.8,10X,1P,E20.8\r\n     1       /40X,             1P,3E20.8,10X,1P,E20.8\r\n     2       /40X,             1P,3E20.8,10X,1P,E20.8)\r\n      GO TO 1320\r\n 1380 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 9000\r\n      GO TO 9906\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK GPLD\r\nC\r\n 1400 CONTINUE\r\n      GO TO 1200\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK EQEXIN\r\nC\r\n 1500 CONTINUE\r\n      M1 = 2\r\n      M2 = 11\r\n      M3 = 12\r\n      ASSIGN 1501 TO R\r\n      GO TO 8000\r\n 1501 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ONE\r\n 1502 IF (LC .LT. 8) GO TO 9905\r\n      J = -3\r\n 1510 CALL READ (*9903,*1530,F,X,8,0,KF)\r\n      J = J + 4\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1520\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1520 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE  (NO,1525) J,(X(L),L=1,8)\r\n 1525 FORMAT (7X,I8,4(7X,I8,6X,I8))\r\n      GO TO 1510\r\n 1530 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 1550\r\n      J = J + 4\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1540\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1540 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE (NO,1525) J,(X(L),L=1,KF)\r\nC\r\nC     RECORD 2\r\nC\r\n 1550 IF (H1(24) .EQ. TWO) GO TO 9000\r\n      M1 = 2\r\n      M2 = 11\r\n      M3 = 22\r\n      ASSIGN 1555 TO R\r\n      GO TO 8000\r\n 1555 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = TWO\r\n      GO TO 1502\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK EQDYN\r\nC\r\n 1600 CONTINUE\r\n      GO TO 1500\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK GPDT\r\nC\r\n 1700 CONTINUE\r\n      M1 = 2\r\n      M2 = 13\r\n      M3 = 14\r\n      ASSIGN 1710 TO R\r\n      GO TO 8000\r\n 1710 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ONE\r\n      IF (LC .LT. 7) GO TO 9905\r\n      J = 0\r\n 1720 CALL READ (*9903,*1750,F,X,7,0,KF)\r\n      J = J + 1\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1730\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1730 IF (P2 .NE. 0) WRITE (NO,1)\r\n      WRITE  (NO,1740) X(1),X(2),RX(3),RX(4),RX(5),X(6),X(7)\r\n 1740 FORMAT (7X,I8,10X,I8,10X,3(1P,E12.5,5X),5X,I8,10X,I8)\r\n      GO TO 1720\r\n 1750 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 9000\r\n      GO TO 9906\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK GPTT\r\nC\r\n 1800 CONTINUE\r\nC\r\nC     RECORD 0\r\nC\r\n      M1 = 2\r\n      M2 = 15\r\n      M3 = 16\r\n      ASSIGN 1805 TO R\r\n      GO TO 8000\r\n 1805 CONTINUE\r\n      H1(19) = P(1)\r\n      H1(20) = P(2)\r\n      H1(24) = ZERO\r\n      IF ((LC/3)*3 .EQ. 0) GO TO 9905\r\n      IVAL = (LC/3)*3\r\n      CALL READ (*9903,*1812,F,X,IVAL,0,KF)\r\n      GO TO 9905\r\n 1812 WD = ((KF-1)/3) + 1\r\n      IF (KF .EQ. 0) WD = ((LC-1)/3) + 1\r\n      DO 1825 J = 1,WD\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1815\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1815 IF (P2 .NE. 0) WRITE (NO,1)\r\n      IF (X(3*J-1) .EQ. -1) GO TO 1822\r\n      WRITE  (NO,1821) J,X(3*J-2),RX(3*J-1),X(3*J)\r\n 1821 FORMAT (7X,I8,10X,I8,14X,1P,E12.5,19X,I8)\r\n      GO TO 1825\r\n 1822 WRITE  (NO,1823) J,X(3*J-2),X(3*J-1),X(3*J)\r\n 1823 FORMAT (7X,I8,10X,I8,14X,6X,I3,22X,I8)\r\n 1825 CONTINUE\r\nC\r\nC     RECORD 1 AND ALL OTHERS\r\nC\r\n      M1 = 17\r\n      M2 = 1\r\n      M3 = 18\r\n      ASSIGN 1835 TO R\r\n      GO TO 8000\r\n 1835 CONTINUE\r\n      DO 1895 RL = 1,J\r\n      IF (X(3*RL)   .EQ. 0) GO TO 1895\r\n      IF ((LC-3*WD) .LT. 4) GO TO 9905\r\n      CALL READ (*9903,*9904,F,Y,1,0,KF)\r\n 1840 CALL READ (*9903,*1895,F,Z,2,0,KF)\r\n 1845 CALL READ (*9903,*9904,F,EID,1,0,KF)\r\nC\r\nC     ELEMENT ID EQUALS ZERO INDICATES THE END OF DATA FOR CURRENT TYPE\r\nC\r\n      IF ((LC-3*WD) .LT. Z(2)) GO TO 9905\r\nC\r\nC     ELEMENT ID LESS THAN ZERO INDICATES NONEXISTENT TEMPERATURE VALUES\r\nC\r\n      IF (EID) 1848,1840,1847\r\n 1847 IVAL = 3*WD + 1\r\n      CALL READ (*9903,*9904,F,X(IVAL),Z(2),0,KF)\r\n 1848 A = 3*WD + 1\r\n      B = A + 7\r\n      IF (B .GE. (A+Z(2))) B = A + Z(2) - 1\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1865\r\n      CALL PAGE\r\n      WRITE  (NO,1850) X(3*RL),Y\r\n 1850 FORMAT (9X,I8,11X,I8,11X,I8,13X,I8)\r\n      WRITE  (NO,1860)\r\n 1860 FORMAT (14H0   ELEMENT ID,8X,5H( 1 ),9X,5H( 2 ),9X,5H( 3 ),9X,\r\n     1                             5H( 4 ),9X,5H( 5 ),9X,5H( 6 ),9X,\r\n     2                             5H( 7 ),9X,5H( 8 ) )\r\n      WRITE (NO,1)\r\n      LINE = LS + 3\r\n 1865 IF (EID) 1866,1840,1867\r\n 1866 WRITE (NO,1870) EID\r\n      GO TO 1845\r\n 1867 WRITE  (NO,1870) EID,(RX(L),L=A,B)\r\n 1870 FORMAT (4X,I8,3X,8(2X,1P,E12.5) )\r\n      IF (P2 .NE. 0) WRITE (NO,1)\r\n      IF (B .EQ. (A+Z(2)-1)) GO TO 1845\r\n      A = A + 8\r\n 1875 B = A + 7\r\n      IF (B .GE. (A+Z(2))) B = A + Z(2) - 1\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1880\r\n      CALL PAGE\r\n      WRITE (NO,1850) X(3*RL),Y\r\n      WRITE (NO,1)\r\n      LINE = LS + 3\r\n 1880 WRITE  (NO,1885) (RX(L),L=A,B)\r\n 1885 FORMAT (17X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5,\r\n     1         2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5,2X,1P,E12.5)\r\n      IF (P2 .NE. 0) WRITE (NO,1)\r\n      IF (B .EQ. (A+Z(2)-1)) GO TO 1845\r\n      A = A + 8\r\n      GO TO 1875\r\n 1895 CONTINUE\r\n      IF (KF .EQ. 0) GO TO 9000\r\n      GO TO 9906\r\nC\r\nC     PRINT CONTENTS OF TABLE DATA BLOCK GPCT\r\nC\r\n 1900 CONTINUE\r\n      M1 = 19\r\n      M2 = 20\r\n      M3 = 21\r\n      ASSIGN 1910 TO R\r\n      GO TO 8000\r\n 1910 CONTINUE\r\n      IF (LC .LT. 12) GO TO 9905\r\n      J = 0\r\n 1920 CALL READ (*1990,*9904,F,PI,1,0,KF)\r\n      J  = J + 1\r\n      WD = 10\r\n      LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1930\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1930 IF (P2 .NE. 0) WRITE (NO,1)\r\n      CALL READ (*9903,*1980,F,M,1,0,KF)\r\n      CALL READ (*9903,*1940,F,X,10,0,KF)\r\n      GO TO 1945\r\n 1940 WD = KF\r\n 1945 WRITE  (NO,1950) J,PI,M,(X(L),L=1,WD)\r\n 1950 FORMAT (3X,I8,12(2X,I8))\r\n      IF (M .LE. 10) GO TO 1920\r\n 1960 LINE = LINE + LS\r\n      IF (LINE .LE. NLPP) GO TO 1965\r\n      CALL PAGE\r\n      WRITE (NO,1)\r\n      LINE = LS\r\n 1965 IF (P2 .NE. 0) WRITE (NO,1)\r\n      CALL READ (*9903,*1975,F,X,10,0,KF)\r\n      WRITE  (NO,1970) (X(L),L=1,WD)\r\n 1970 FORMAT (31X,10(2X,I8))\r\n      GO TO 1960\r\n 1975 WD = KF\r\n      WRITE (NO,1970) (X(L),L=1,WD)\r\n      GO TO 1920\r\n 1980 M = 0\r\n      WRITE (NO,1950) PI,M\r\n      GO TO 1920\r\n 1990 IF (J .EQ. 0) GO TO 9903\r\n      GO TO 9000\r\nC\r\nC     PRINT CONTENTS OF\r\nC\r\n 2000 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2100 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2200 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2300 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2400 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2500 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2600 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2700 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2800 CONTINUE\r\n      GO TO 9000\r\nC\r\n 2900 CONTINUE\r\n      GO TO 9000\r\nC\r\n 3000 CONTINUE\r\n      GO TO 9000\r\nC\r\n 3100 CONTINUE\r\n      GO TO 9000\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO SET HEADINGS AND INITIALIZE LINE COUNTER.\r\nC     -------------------------------------------------------------\r\nC\r\n 8000 CONTINUE\r\n      DO 8010 M = 1,32\r\n      H1(M) = HX(M,M1)\r\n      H2(M) = HX(M,M2)\r\n      H3(M) = HX(M,M3)\r\n 8010 CONTINUE\r\n      LINE = NLPP\r\n      GO TO R, (1110,1205,1255,1310,1501,1555,1710,1805,1835,1910)\r\nC\r\nC\r\nC     PRINT TRAILER OF TABLE DATA BLOCK\r\nC     ---------------------------------\r\nC\r\n 9000 CONTINUE\r\n      WRITE  (NO,9010) (T(L),L=2,7)\r\n 9010 FORMAT (15H0*** TRAILER = ,6I18)\r\n      GO TO 9999\r\nC\r\nC\r\n 9901 WRITE  (NO,9951) UWM,P\r\n 9951 FORMAT (A25,' 2094, SUBROUTINE TABFMT, KEYNAME ',2A4,\r\n     1       ' NOT IN LIST OF AVAILABLE KEYNAMES.')\r\n      GO TO 9993\r\nC\r\n 9902 WRITE  (NO,9952) UWM\r\n 9952 FORMAT (A25,' 2095, SUBROUTINE TABFMT, PURGED INPUT.')\r\n      GO TO 9995\r\nC\r\n 9903 WRITE  (NO,9953) UWM\r\n 9953 FORMAT (A25,' 2096, SUBROUTINE TABFMT, EOF ENCOUNTERED.')\r\n      GO TO 9995\r\nC\r\n 9904 WRITE  (NO,9954) UWM\r\n 9954 FORMAT (A25,' 2097, SUBROUTINE TABFMT, EOR ENCOUNTERED.')\r\n      GO TO 9995\r\nC\r\n 9905 WRITE  (NO,9955) UWM\r\n 9955 FORMAT (A25,' 2098, SUBROUTINE TABFMT, INSUFFICIENT CORE.')\r\n      GO TO 9995\r\nC\r\n 9906 WRITE  (NO,9956) UWM,KF\r\n 9956 FORMAT (A25,' 2099, SUBROUTINE TABFMT, KF =',I10)\r\n      GO TO 9995\r\nC\r\n 9993 WRITE  (NO,9994) (NA(1,L),NA(2,L),L=1,LA)\r\n 9994 FORMAT ('0*** LIST OF RECOGNIZED KEYNAMES FOLLOWS...', /(20X,2A4))\r\nC\r\n 9995 CONTINUE\r\nC\r\nC     DO NOT CALL PEXIT SINCE THIS IS AN OUTPUT PROCESSOR.\r\nC\r\n 9999 CALL CLOSE (F,1)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/table5.f",
    "content": "      SUBROUTINE TABLE5 (*,IN,OUT,TRL,IBUF,WRT,LFN,FN)\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY OUTPT5 TO COPY A TABLE FILE IN 'IN'\r\nC     TO AN OUPUT FILE 'OUT', BY FORTRAN WRITE, FORMATTED OR UNFORMATTED\r\nC\r\nC     IN,OUT = INPUT AND OUTPUT FILE, INTEGERS\r\nC     TRL    = TRAILER OF INPUT FILE, INTEGERS\r\nC     P4     = 0, OUTPUT FILE IS TO BE WRITTEN UNFORMATTED, BINARY, INT.\r\nC            = 1, OUTPUT FILE IS TO BE WRITTEN FORMATTED, INTEGER\r\nC     TI     = ARRAY TO OVERRIDE DATA TYPE OUTPUT. INTEGERS\r\nC              SEE RULES BELOW.\r\nC     Z,IBUF = OPEN CORE AND GINO BUFFER POINTER, INTEGER\r\nC     WRT,LFN= ARE COMMUNICATION FLAGS BETWEEN TABLE5 AND OUTPT5\r\nC     FN     = ARRAY FOR INPUT FILE NAME\r\nC\r\nC     THE FOLLOWING CONVENTIONS ARE USED FOR FORMATTED TAPE -\r\nC\r\nC       A   '/'+A4  FORMAT FOR BCD WORD               ( 5 BYTES)\r\nC       AN  'I'+I9  FORMAT FOR INTEGER                (10 BYTES)\r\nC       A 'R'+E14.7 FORMAT FOR S.P. REAL NUMBER.      (15 BYTES)\r\nC       A 'D'+D14.7 FORMAT FOR D.P. REAL NUMBER.      (15 BYTES)\r\nC       A 'X'+4 BLANKS IS A FILLER, AT END OF A LINE  ( 5 BYTES)\r\nC\r\nC       EACH RECORD IS PRECEEDED BY L5 (IN I10 FORMAT) WHERE L5 IS THE\r\nC       TOTAL NO. OF CHARACTERS OF THIS CURRENT RECORD DIVIDED BY 5.\r\nC\r\nC       EACH RECORD IS WRITTEN IN MULTIPLE LINES OF 130 CHARACTERS EACH.\r\nC       (131 CHARACTERS TO BE EXACTLY - 130 PLUS A BLANK)\r\nC\r\nC       ONE OR TWO FILLERS MAY ATTACH TO THE END OF A LINE TO MAKE UP\r\nC       130 CHARACTERS. THAT IS, INTEGER AND S.P.REAL NUMBER AT THE END\r\nC       OF A LINE WILL NOT BE SPLITTED BETWEEN TWO LINES\r\nC\r\nC       IF A ZERO IS PRECEEDED BY A F.P. REAL NUMBER, IT WILL BE WRITTEN\r\nC       OUT AS A REAL ZERO (0.0), INTEGER ZERO (0) OTHERWISE.\r\nC\r\nC       DUE TO THE FACTS THAT FLOATING POINT ZEROS ARE ALWAYS TREATED AS\r\nC       INTEGERS, DOUBLE PRECISION CAN NOT BE DETECTED, AND OCCATIONALLY\r\nC       AUTOMATIC DATA TYPE CHECKING MAY ERR, THE USER CAN OVERRIDE THE\r\nC       OUTPUT DATA FORMAT BY DEFINING TI ARRAYS WITH THE FOLLOWING\r\nC       RULES -\r\nC\r\nC          EACH TI PARAMETER MUST HOLD 9 DIGITS, FROM LEFT TO RIGHT.\r\nC               ZEROS-FILLED IF NECCESSARY.\r\nC               TOTALLY THERE ARE 10 TI PARAMETERS. THEREFORE, THERE ARE\r\nC               UP TO 90 CONTINUOUS DIGITS CAN BE USED.\r\nC               (DEFAULT IS 90 ZEROS)\r\nC          EACH DIGIT HOLDS VALUE FROM 0 THROUGH 9, VALUE\r\nC               0 MEANS DATA TYPE WILL BE SET AUTOMATICALLY BY TABLE5\r\nC               1 MEANS DATA TYPE IS INTEGER\r\nC               2 MEANS DATA TYPE IS REAL, SINGLE PRECISION\r\nC               3 MEANS DATA TYPE IS BCD WORD (4 BYTES PER WORD)\r\nC               4 MEANS DATA TYPE IS REAL, DOUGLE PRECISION\r\nC             5-9 HAS SPECIAL MEANING. IT MEANS THERE ARE (5-9) VALUES\r\nC                 OF DATA TYPE DEFINED BY THE NEXT VALUE FOLLOWING.\r\nC          EACH DIGIT IN TI, EXCEPT 5 THRU 9, DEFINES THE CORRESPODING\r\nC               DATA TYPE IN THE TABLE BLOCK DATA, STARTING FROM THE\r\nC               FIRST DATA WORD AND CONTINUE TO THE LAST.\r\nC          IF TI(1) IS NEGATIVE, INTERMEDIATE STEPS IN FORMAT GENERATION\r\nC               ARE PRINTED OUT.\r\nC     E.G.\r\nC     TABLE- 3  4  3.4  5.0E-3  TESTING  .6D+7  9  G  3.2  8  0.  0  4\r\nC            12 13  14  15  28  61   88   14   44 .7D+7\r\nC     TI   - TI(1) =-112233413, TI(2) = 212516140  OR\r\nC            TI(1) = 604000025, TI(2) = 060400000 (7TH AND 24 WORDS ARE\r\nC                                            D.P. AND 12TH WORD IS REAL)\r\nC     NOTE - 2 BCD WORDS IN 'TESTING',\r\nC            ALL OTHERS ARE 1 COMPUTER WORD PER DATA ENTRY\r\nC            TI(2), THE LAST TI USED HERE, MUST FILL UP WITH ZEROS TO\r\nC               MAKE UP A 9-DIGIT WORD.\r\nC\r\nC     TO READ THE OUTPUT FILE, USE TABLE-V SUBROUTINE AS REFERENCE\r\nC\r\nC     NOTE - THE FORMATTED OUTPUT FILE CAN BE VIEWED AND/OR EDITTED BY\r\nC            THE SYSTEM EDITOR\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS,  1989\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL          DEBUG,TION,DP\r\n      INTEGER          TRL(7),NAME(2),SUB(2),FN(3,1)\r\n      REAL             TEMP(2),RZ(1)\r\n      DOUBLE PRECISION DTEMP\r\n      CHARACTER*10     FMT(30),FMTI,FMTR,FMTD,FMTB,FMTX,LPREN,RPREN,\r\n     1                 LPRI10\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /BLANK /  DUMMY(4),P4,TI(1)\r\n      COMMON /ZZZZZZ/  Z(1)\r\nCWKBI 7/94\r\n      COMMON /MACHIN/  MACH\r\n      EQUIVALENCE      (Z(1),RZ(1)) ,  (DTEMP,TEMP(1))\r\n      DATA    SUB   /  4HTABL,4HE5  /, DEBUG   /   .FALSE.      /\r\n      DATA    FMTI,    FMTR         / '1HI,I9,' ,  '1HR,E14.7,' /\r\n      DATA    FMTB,    FMTD         / '1H/,A4,' ,  '1HD,D14.7,' /\r\n      DATA    FMTX,    LPRI10       / '1HX,4X,' ,  '(I10,'      /\r\n      DATA    LPREN,   RPREN, DEL   / '(', '1X)',   4H),.)      /\r\n      DATA    END,     TBLE         /  4H*END,      4HTBLE      /\r\nC\r\n      DEBUG = .FALSE.\r\n      IF (TI(1) .LT. 0) DEBUG =.TRUE.\r\n      TI(1) = IABS(TI(1))\r\n      TION  = .FALSE.\r\n      DO 10 L = 1,10\r\n      IF (TI(L) .NE. 0) TION=.TRUE.\r\n   10 CONTINUE\r\n      IF (DEBUG) CALL PAGE1\r\n      IF (DEBUG) WRITE (NOUT,20)\r\n   20 FORMAT (///5X,'*** IN TABLE5/OUTPUT5 ***')\r\n      KORE  = IBUF - 2\r\nC\r\nC     OPEN INPUT FILE, AND READ FILE NAME IN THE FILE HEADER RECORD\r\nC     WRITE ONE HEADER RECORD, IN OUTPT5 MATRIX HEADER FORMAT, TO\r\nC     OUTPUT TAPE\r\nC\r\n      CALL OPEN (*810,IN,Z(IBUF),0)\r\n      CALL READ (*820,*830,IN,NAME,2,1,KK)\r\n      IF (DEBUG) WRITE (NOUT,30) NAME\r\n   30 FORMAT (/5X,'PROCESSING...',2A4,/)\r\n      I = 0\r\n      J = 1\r\n      TRL(7) = 0\r\n      IF (P4 .EQ. 0) WRITE (OUT   ) I,J,J,DTEMP,(TRL(K),K=2,7),NAME\r\n      IF (P4 .EQ. 1) WRITE (OUT,40) I,J,J,DTEMP,(TRL(K),K=2,7),NAME\r\n   40 FORMAT (3I8,/,D26.17,6I8,2A4)\r\nC\r\n   50 IF (P4 .EQ. 1) GO TO 100\r\nC\r\nC     UNFORMATED WRITE\r\nC\r\n      J = 2\r\n   60 CALL READ  (*700,*70,IN,Z(J),KORE,1,KK)\r\n      J = 0\r\n      GO TO 840\r\n   70 IF (J .EQ. 1) GO TO 80\r\n      J = 1\r\n      Z(1) = KK\r\n   80 CALL WRITE (OUT,Z(1),KK,1)\r\n      GO TO 60\r\nC\r\nC     FORMATTED WRITE\r\nC\r\n  100 J = 2\r\n      CALL READ (*700,*110,IN,Z(J),KORE,1,KK)\r\n      J = 0\r\n      GO TO 840\r\nC\r\nC     SET UP USER DIRECTED TI TABLE IN Z(KK2) THRU Z(KK3)\r\nC\r\n  110 IF (DEBUG) WRITE (NOUT,120) (TI(J),J=1,10)\r\n  120 FORMAT (//5X,'TI PARAMETERS =',/4X,10(1X,I9))\r\n      KK1 = KK  + 2\r\n      KK2 = KK1 + KK\r\n      KK3 = KK2 + KK\r\n      J   = KORE - KK3 - 9\r\n      IF (J .LT. 0) GO TO 840\r\n      DO 140 K = KK1,KK3\r\n  140 Z(K) = 0\r\n      IF (.NOT.TION) GO TO 260\r\n      K  = KK1 - 9\r\n      LL = 0\r\n      L  = -1\r\n  150 IF (L .GE. 0) GO TO 170\r\n      L  = 8\r\n      LL = LL + 1\r\n      K  = K  + 9\r\n      IF (K.GE.KK2 .OR. LL.GT.10) GO TO 200\r\n      TIL= TI(LL)\r\n      IF (TIL .GT. 0) GO TO 170\r\n      L  = -1\r\n      GO TO 150\r\n  170 TIL10 = TIL/10\r\n      Z(K+L)= TIL - TIL10*10\r\n      TIL   = TIL10\r\n      L  = L - 1\r\n      GO TO 150\r\nC\r\n  200 K  = KK2 - 1\r\n      IF (DEBUG) WRITE (NOUT,210) (Z(J),J=KK1,K)\r\n  210 FORMAT (//5X,'DIGITIZED TI PARAMTERS =',/,(3X,25I3))\r\n      I  = KK2\r\n      DO 240 J = KK1,K\r\n      JZ = Z(J)\r\n      IF (JZ .LE. 4) GO TO 230\r\n      JI = JZ + I - 1\r\n      JJ = Z(J+1)\r\n      IF (JJ .GT. 4) GO TO 860\r\n      DO 220 L = I,JI\r\n  220 Z(L) = JJ\r\n      I  = JI + 1\r\n      Z(J+1) = -1\r\n      GO TO 240\r\n  230 IF (JZ .EQ. -1) GO TO 240\r\n      Z(I) = JZ\r\n      I  = I + 1\r\n  240 CONTINUE\r\n      I  = KK3 - 1\r\n      IF (DEBUG) WRITE (NOUT,250) (Z(J),J=KK2,I)\r\n  250 FORMAT (//,5X,'DECODED TI PARAMETERS =',/,(3X,25I3))\r\nC\r\nC     COUNT HOW MANY 5-BYTE WORDS TO BE GENERATED, FILLERS INCLUDED\r\nC\r\n  260 KK2 = KK2 - 1\r\n      K   = KK1\r\n      PJJ = 1\r\n      L5  = 10\r\nC\r\n      IF (DEBUG) CALL PAGE1\r\n      DO 400 I = 1,KK\r\n      K   = K + 1\r\n      PJJ = JJ\r\n      IF (TION) GO TO 290\r\n  280 JJ  = NUMTYP(Z(I+1)) + 1\r\n      GO TO 300\r\n  290 JJ  = Z(KK2+I) + 1\r\n      IF (JJ .EQ. 1) GO TO 280\r\n  300 GO TO (310,320,340,380,340), JJ\r\nC              0,  I,  R,  B,  D\r\nC\r\nC     ZERO\r\nC\r\n  310 JJ  = 3\r\n      IF (PJJ.EQ.3 .OR. PJJ.EQ.5) GO TO 340\r\n      JJ  = 2\r\nC\r\nC     INTEGER\r\nC\r\n  320 IF (MOD(L5,130) .LE. 120) GO TO 330\r\n      Z(K)= 6\r\n      K   = K  + 1\r\n      L5  = L5 + 5\r\n  330 Z(K)= JJ\r\n      L5  = L5 + 10\r\n      GO TO 400\r\nC\r\nC     REAL, S.P. OR D.P.\r\nC\r\n  340 J   = MOD(L5,130)\r\n      IF (J-120) 370,350,360\r\n  350 L5  = L5 + 5\r\n      Z(K)= 6\r\n      K   = K  + 1\r\n  360 L5  = L5 + 5\r\n      Z(K)= 6\r\n      K   = K + 1\r\n  370 Z(K)= JJ\r\n      L5  = L5 + 15\r\n      GO TO 400\r\nC\r\nC     BCD\r\nC\r\n  380 Z(K)= JJ\r\n      L5  = L5 + 5\r\nC\r\n  400 CONTINUE\r\nC\r\nC     NOW WE FORM THE FORMAT\r\nC\r\n      DP  = .FALSE.\r\n      KK  = K\r\n      Z(1) = (L5-10)/5\r\n      FMT(1) = LPRI10\r\nC\r\n      L5  = 10\r\n      L   = 1\r\n      I   = 1\r\n      IB  = 1\r\n      K   = KK1\r\n  500 IF (L5 .LT. 130) GO TO 540\r\n      L   = L + 1\r\n      FMT(L) = RPREN\r\n      IF (.NOT.DEBUG) GO TO 520\r\n      CALL PAGE2 (-5)\r\n      WRITE  (NOUT,510) (FMT(J),J=1,L)\r\n  510 FORMAT (/,' DYNAMICALLY GENERATED FORMAT =',/,(1X,7A10))\r\nCWKBD 7/94   520 WRITE  (OUT,FMT,ERR=530) (RZ(J),J=IB,I) \r\nCWKBNB 7/94\r\n  520 IF ( MACH .NE. 5 .AND. MACH .NE. 2 ) GO TO 525\r\n      WRITE  (OUT,FMT,ERR=530) (RZ(J),J=IB,I) \r\n      GO TO 530\r\n  525 ISAVE = NOUT\r\n      NOUT  = OUT\r\n      CALL FORWRT ( FMT, RZ(IB), I-IB+1)\r\n      NOUT  = ISAVE\r\nCWKBNE 7/94\r\n  530 IB  = I + 1\r\n      L5  = 0\r\n      L   = 1\r\n      FMT(1) = LPREN\r\nC\r\n  540 K   = K + 1\r\n      IF (K .GT. KK) GO TO 650\r\n      I   = I + 1\r\n      L   = L + 1\r\n      J   = Z(K)\r\n      GO TO (600,600,610,620,630,640), J\r\nC              0,  I,  R,  B,  D, FL\r\n  600 FMT(L) = FMTI\r\n      L5  = L5 + 10\r\n      GO TO 500\r\nC\r\nC     S.P. REAL NUMBERS\r\nC\r\n  610 FMT(L) = FMTR\r\n      L5  = L5 + 15\r\n      GO TO 500\r\nC\r\n  620 FMT(L) = FMTB\r\n      L5  = L5 + 5\r\n      GO TO 500\r\nC\r\nC     D.P. NUMBERS\r\nC\r\n  630 FMT(L) = FMTD\r\n      L5     = L5 + 15\r\n      TEMP(1)= RZ(L  )\r\n      TEMP(2)= RZ(L+1)\r\n      Z(L  ) = SNGL(DTEMP)\r\n      Z(L+1) = DEL\r\n      DP     =.TRUE.\r\n      GO TO 500\r\nC\r\nC     FILLER\r\nC\r\n  640 FMT(L) = FMTX\r\n      L5 = L5 + 5\r\n      I  = I  - 1\r\n      GO TO 500\r\nC\r\n  650 L  = L + 1\r\n      FMT(L) = RPREN\r\n      IF (.NOT.DEBUG) GO TO 660\r\n      CALL PAGE2 (-5)\r\n      WRITE (NOUT,510) (FMT(J),J=1,L)\r\nC\r\nC     REMOVED SECOND HALVES OF ALL D.P. NUMBERS IF THEY ARE PRESENT\r\nC     THEN WRITE THE ARRAY OUT WITH THE GENERATED FORMAT\r\nC\r\n  660 IF (.NOT.DP) GO TO 680\r\n      K   = IB - 1\r\n      DO 670 J = IB,I\r\n      IF (Z(J) .EQ. DEL) GO TO 670\r\n      K   = K + 1\r\n      Z(K)= Z(J)\r\n  670 CONTINUE\r\n      I   = K\r\nCWKBD 7/94  680 WRITE (OUT,FMT,ERR=690) (RZ(J),J=IB,I) \r\nCWKBNB 7/94\r\n  680 IF ( MACH .NE. 2 .AND. MACH .NE. 5 ) GO TO 685\r\n      WRITE (OUT,FMT,ERR=690) (RZ(J),J=IB,I) \r\n      GO TO 690\r\n  685 ISAVE = NOUT\r\n      NOUT  = OUT\r\n      CALL FORWRT ( FMT, RZ(IB), I-IB+1) \r\n      NOUT  = ISAVE\r\nCWKBNE 7/94\r\nC\r\nC     RETURN TO PROCESS ANOTHER RECORD ON INPUT FILE\r\nC\r\n  690 DEBUG = .FALSE.\r\n      GO TO 50\r\nC\r\nC     ALL DONE. SET WRT FLAG, UPDATE LFN AND FN, AND CLOSE INPUT FILE\r\nC     AND ECHO USER MESSAGES\r\nC\r\n  700 WRT = 1\r\n      IF (LFN .LT. 0) LFN = 0\r\n      LFN = LFN + 1\r\n      FN(1,LFN) = NAME(1)\r\n      FN(2,LFN) = NAME(2)\r\n      FN(3,LFN) = TBLE\r\n      CALL CLOSE (IN,1)\r\n      IF (P4 .EQ. 1) GO TO 730\r\n      CALL PAGE2 (-7)\r\n      WRITE  (OUT) I,END\r\n      WRITE  (NOUT,710) UIM,NAME\r\n  710 FORMAT (A29,' FROM OUTPUT5 MODULE, SUCCESSFUL TABLE-DATA ',\r\n     1       'TRANSFERED FROM INPUT FILE ',2A4,' TO OUTPUT TAPE', //5X,\r\n     2        'A HEADER RECORD WAS FIRST WRITTEN, THEN FOLLOWED BY')\r\n      WRITE  (NOUT,720)\r\n  720 FORMAT (5X,'FORTRAN UNFORMATTED (BINARY) WRITE')\r\n      GO TO 950\r\n  730 I  = 1\r\n      WRITE  (OUT,740) I,END\r\n  740 FORMAT (1X,I9,1X,A4)\r\n      CALL PAGE2 (-13)\r\n      WRITE  (NOUT,710) UIM,NAME\r\n      WRITE  (NOUT,750)\r\n  750 FORMAT (5X,'FORTRAN FORMATTED WRITE, 130 CHARACTERS PER LINE -',\r\n     1      /10X,'(''/'',A4 FOR BCD WORD       ( 5 BYTES)',\r\n     2      /11X,'''I'',I9 FOR INTEGER        (10 BYTES)',\r\n     3      /11X,'''R'',E14.7 FOR S.P. REAL   (15 BYTES)',\r\n     4      /11X,'''D'',D14.7 FOR D.P. NUMBER (15 BYTES)',\r\n     5      /11X,'''X    '', FOR FILLER       ( 5 BYTES)')\r\n      GO TO 950\r\nC\r\nC     ERROR\r\nC\r\n  810 J = 1\r\n      GO TO 850\r\n  820 J = 2\r\n      GO TO 850\r\n  830 J = 3\r\n      GO TO 850\r\n  840 IN= J\r\n      J = 8\r\n  850 CALL MESAGE (J,IN,SUB)\r\n      GO TO 880\r\n  860 WRITE  (NOUT,870) UWM,JI,JJ\r\n  870 FORMAT (A25,', OUTPTT5 MODULE PARAMETER ERROR.  WRONG INDEX ',\r\n     1       'VALUES',2I3)\r\n  880 CALL FNAME (IN,NAME)\r\n      WRITE  (NOUT,890) NAME\r\n  890 FORMAT (/5X,'TABLE DATA BLOCK ',2A4,' WAS NOT COPIED TO OUTPUT',\r\n     1        ' TAPE')\r\n  900 CALL FWDREC (*950,IN)\r\n      GO TO 900\r\nC\r\n  950 RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/tablev.f",
    "content": "      SUBROUTINE TABLE V (*,IN,LL,TRL,NAME,P4,IBUF,Z5)\r\nC\r\nC     TABLE-V IS CALLED ONLY BY INPUT5 TO GENERATE A GINO TABLE\r\nC     DATA BLOCK IN 'OUT' FROM AN INPUT FILE 'IN' - A REVERSE PROCESS\r\nC     OF TABLE-5.\r\nC     THE INPUT FILE WAS FORTRAN WRITTEN, FORMATTED OR UNFORMATTED\r\nC\r\nC     IN     = INPUT FILE, INTEGERS\r\nC     LL     = (200+LL) IS THE OUTPUT FILE, INTEGER\r\nC     TRL    = AN ARRAY OF 7 WORDS FOR TRAILER\r\nC     NAME   = ORIGINAL FILE NAME FROM INPUT FILE, 2 BCD WORDS, PLUS 1\r\nC     P4     = 0, INPUT FILE WAS WRITTEN UNFORMATTED, BINARY, INTEGER\r\nC            = 1, INPUT FILE WAS WRITTEN FORMATTED, ASCII, INTEGER\r\nC     IBUF   = OPEN CORE AND GINO BUFFER POINTER, INTEGER\r\nC\r\n      LOGICAL          DEBUG\r\n      INTEGER          SYSBUF,P4,Z,TRL(7),OUT,NAME(3),NAMEX(2),SUB(2),\r\n     1                 END,TBLE,FUF,FU(2)\r\n      REAL             RZ(1),Z4(2)\r\n      DOUBLE PRECISION DZ\r\n      CHARACTER*1      Z1,I1,R1,B1,D1,F1\r\n      CHARACTER*5      Z5(1),Z5L,END5\r\n      CHARACTER*10     Z10\r\n      CHARACTER*15     Z15\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (Z1,Z5L), (Z(1),RZ(1)), (DZ,Z4(1))\r\n      DATA    I1,R1,   B1,D1,F1  / 'I', 'R', '/', 'D', 'X'    /\r\n      DATA    FU,      END,END5  / 2H  ,2HUN, 4H*END, ' *END' /\r\n      DATA    SUB,     TBLE      / 4HTABL,4HEV  ,     4HTBLE  /\r\n      DATA    DEBUG              / .FALSE.                    /\r\nC\r\n      IF (DEBUG) WRITE (NOUT,10)\r\n 10   FORMAT (///,' *** IN TABLE-V, DEBUG ***')\r\n      KORE  = IBUF-1\r\n      KORE9 = (KORE/9)*9\r\n      OUT   = 200+LL\r\n      LL    = LL+1\r\n      KOUNT = 0\r\nC\r\nC     OPEN GINO OUTPUT FILE AND WRITE A FILE HEADER\r\nC\r\n      CALL OPEN (*180,OUT,Z(IBUF),1)\r\n      CALL FNAME (OUT,NAMEX)\r\n      CALL WRITE (OUT,NAMEX,2,1)\r\n      IF (DEBUG) WRITE (NOUT,20) NAMEX\r\n 20   FORMAT (/5X,'GENERATING...',2A4,/)\r\n      NAME(3) = TBLE\r\n      IF (P4 .EQ. 1) GO TO 40\r\nC\r\nC     UNFORMATED READ\r\nC\r\n 30   READ (IN,ERR=150,END=130) LN,(Z(J),J=1,LN)\r\n      IF (LN .GT. KORE) GO TO 170\r\n      IF (LN.EQ.1 .AND. Z(1).EQ.END) GO TO 130\r\n      CALL WRITE  (OUT,Z(1),LN,1)\r\n      KOUNT = KOUNT+1\r\n      GO TO 30\r\nC\r\nC     FORMATTED READ\r\nC\r\n 40   READ  (IN,50,ERR=150,END=130) LN,(Z5(J),J=1,LN)\r\n 50   FORMAT (I10,24A5,/,(26A5))\r\n      IF (LN .GT. KORE) GO TO 170\r\n      IF (LN.EQ.1 .AND. Z5(1).EQ.END5) GO TO 130\r\n      IF (LN .LE. -1) GO TO 130\r\n      LB = (LN*5)/4+1\r\n      K  = 0\r\n      L  = 1\r\n 60   IF (L .GT. LN) GO TO 120\r\n      K  = K+1\r\n      Z5L= Z5(L)\r\n      IF (Z1 .EQ. I1) GO TO 90\r\n      IF (Z1 .EQ. R1) GO TO 100\r\n      IF (Z1 .EQ. B1) GO TO 70\r\n      IF (Z1 .EQ. F1) GO TO 80\r\n      IF (Z1 .EQ. D1) GO TO 110\r\n      WRITE  (NOUT,65) Z5L\r\n 65   FORMAT (/,' SYSTEM ERROR/TABLEV @65  Z5L=',A5)\r\n      GO TO 150\r\nC\r\nC     BCD\r\nC\r\n 70   READ (Z5L,75) Z(LB+K)\r\n 75   FORMAT (1X,A4)\r\nC\r\nC     FILLER\r\nC\r\n 80   L = L+1\r\n      GO TO 60\r\nC\r\nC     INTEGER\r\nC\r\n 85   FORMAT (3A5)\r\n 90   WRITE  (Z10,85) Z5(L),Z5(L+1)\r\n      READ   (Z10,95) Z(LB+K)\r\n 95   FORMAT (1X,I9)\r\n      L = L+2\r\n      GO TO 60\r\nC\r\nC     REAL, SINGLE PRECISION\r\nC\r\n 100  WRITE  (Z15, 85) Z5(L),Z5(L+1),Z5(L+2)\r\n      READ   (Z15,105) RZ(LB+K)\r\n 105  FORMAT (1X,E14.7)\r\n      L = L+3\r\n      GO TO 60\r\nC\r\nC     REAL, DOUBLE PRECISION\r\nC\r\n 110  WRITE (Z15, 85) Z5(L),Z5(L+1),Z5(L+2)\r\n      READ  (Z15,115) DZ\r\n 115  FORMAT (1X,D14.7)\r\n      RZ(LB+K  ) = Z4(1)\r\n      RZ(LB+K+1) = Z4(2)\r\n      K = K+1\r\n      L = L+3\r\n      GO TO 60\r\nC\r\n 120  IF (K .LE. 0) GO TO 40\r\n      CALL WRITE (OUT,Z(LB+1),K,1)\r\n      KOUNT = KOUNT+1\r\n      GO TO 40\r\nC\r\nC     ALL DONE.\r\nC     CLOSE OUTPUT GINO FILE AND WRITE TRAILER\r\nC\r\n 130  CALL CLOSE (OUT,1)\r\n      IF (DEBUG) WRITE (NOUT,135) TRL(2),KOUNT\r\n 135  FORMAT (/,' DEBUG ECHO - OLD AND NEW COLUMN COUNTS =',2I5)\r\n      TRL(1) = OUT\r\n      TRL(2) = KOUNT\r\n      CALL WRTTRL (TRL)\r\n      FUF = FU(1)\r\n      IF (P4 .EQ. 0) FUF = FU(2)\r\n      WRITE  (NOUT,140) FUF,NAMEX\r\n 140  FORMAT (/5X,'DATA TRANSFERED SUCCESSFULLY FROM ',A2,'FORMATTED ',\r\n     1       'TAPE TO GINO OUTPUT FILE ',2A4)\r\n      GO TO 200\r\nC\r\nC     ERROR\r\nC\r\n 150  CALL CLOSE (OUT,1)\r\n      WRITE  (NOUT,160) NAMEX\r\n 160  FORMAT (//5X,'ERROR IN READING INPUT TAPE IN TABLEV. NO ',2A4,\r\n     1         /5X,'FILE GENERATED')\r\n      GO TO 200\r\n 170  CALL MESAGE (8,0,SUB)\r\n      GO TO 200\r\n 180  CALL MESAGE (1,OUT,SUB)\r\nC\r\n 200  RETURN 1\r\n      END\r\n"
  },
  {
    "path": "mis/tabpch.f",
    "content": "      SUBROUTINE TABPCH\r\nC\r\nC     THE TABPCH MODULE WILL PUNCH UP TO 5 TABLES INTO DTI CARDS\r\nC\r\nC     DMAP CALL IS\r\nC\r\nC     TABPCH  IN1,IN2,IN3,IN4,IN5//P1,P2,P3,P4,P5\r\nC\r\nC     SINGLE FIELD CARDS WILL BE MADE UNLESS REAL NUMBERS ARE TO BE MADE\r\nC     ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION.\r\nC\r\nC     LAST REVISED, 3/93, BY G.CHAN/UNISYS\r\nC     PUNCH KELM, MELM AND BELM IN D.P. IF THESE DATA BLOCKS ARE IN D.P.\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      INTEGER          SYSBUF    ,IZ(10)    ,IFNM(5)   ,NAME(2)   ,\r\n     1                 MCB(7)    ,FILE      ,TABNM(2)  ,DTI(2)    ,\r\n     2                 DTIS(2)   ,IDATA(20) ,ENDREC(2) ,OUT       ,\r\n     3                 IFORM(20) ,BLANK     ,INT(2)    ,IREAL(2)  ,\r\n     4                 LL(4)     ,INTD(2)   ,PFORM(30) ,IBCD(2)   ,\r\n     5                 SP(3)     ,IBCDD(2)  ,FORM(30,2),FORMS(30,2)\r\n      REAL             RDATA(20)\r\n      DOUBLE PRECISION DZ(1)\r\n      CHARACTER        UFM*23    ,UWM*25    ,UIM*29\r\n      COMMON /XMSSG /  UFM       ,UWM       ,UIM\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  SYSBUF    ,OUT       ,KSYSTM(88),LPCH\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /BLANK /  N1(2,5)\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1)),  (IDATA(1),RDATA(1))\r\n      DATA    BLANK /  1H             /\r\n      DATA    DTI   /  4HDTI , 1H     /\r\n      DATA    DTIS  /  4HDTI*, 1H     /\r\n      DATA    ENDREC/  4HENDR, 4HEC   /\r\n      DATA    FORMS /  4H(2A4, 26*2H  ,4H,1H+ ,4HA2,I, 4H5)  , 4H(A1,,\r\n     1                 4HA2,I ,4H5    ,24*2H  ,4H,1H+, 4HA2,I, 4H5)  /\r\n      DATA    IBCD  /  4H,2A4, 1H     /\r\n      DATA    IBCDD /  4H,2A4, 4H,8X  /\r\n      DATA    IFNM  /  101, 102, 103, 104, 105/\r\n      DATA    INT   /  4H,I8 , 1H     /\r\n      DATA    INTD  /  4H,I16, 1H     /\r\n      DATA    IPLUS /  1H+            /\r\n      DATA    IREAL /  4H,E16, 4H.9   /\r\n      DATA    ISTAR /  1H*            /\r\n      DATA    NAME  /  4HTABP, 4HCH   /\r\n      DATA    LL    /  1, 1, 3, 2     /\r\n      DATA    NSP   ,  SP  / 3, 4HKELM, 4HMELM, 4HBELM /\r\nC\r\n      NZ    = KORSZ(Z)\r\n      IBUF  = NZ - SYSBUF + 1\r\n      NZ    = IBUF - 1\r\n      ICRQ  = 10 - NZ\r\n      IF (NZ .LE. 10) GO TO 830\r\n      NREAD = NZ/2  - 2\r\n      NLIST = NREAD + 3\r\n      DO 10 J = 1,2\r\n      DO 10 I = 1,30\r\n      FORM(I,J) = FORMS(I,J)\r\n   10 CONTINUE\r\nC\r\nC     FOR EACH  TABLE DEFINED\r\nC\r\n      NS = -1\r\n      DO 720 I = 1,5\r\n      MCB(1) = IFNM(I)\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 720\r\nC\r\nC     TABLE EXISTS SET IT UP\r\nC\r\n      FILE = IFNM(I)\r\n      CALL OPEN  (*800,FILE,IZ(IBUF),0)\r\n      CALL FNAME (FILE,TABNM)\r\n      IO  = 0\r\n      KMB = 4\r\n      IF (MCB(5).EQ.1 .OR. MCB(5).EQ.3) GO TO 40\r\n      DO 20 J = 1,NSP\r\n      IF (KMB.EQ.1 .OR. TABNM(1).NE.SP(J)) GO TO 20\r\n      KMB = 1\r\n      IO  = 1\r\n      NREAD = NZ -1\r\n   20 CONTINUE\r\n      IF (NS .NE. -1) GO TO 40\r\n      NS = 1\r\n      CALL PAGE1\r\n      WRITE  (OUT,30) UWM\r\n   30 FORMAT (A25,', MODULE TABPCH ASSUMES ALL REAL DATA ARE IN S.P..',\r\n     1       '  D.P. DATA THEREFORE MAY BE PUNCHED ERRONEOUSLY')\r\n      IF (MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.10 .OR. MACH.EQ.21)\r\n     1   WRITE (OUT,35)\r\n   35 FORMAT (4X,'(ALL INTEGERS EXCEEDING 16000 ARE PUNCHED AS REAL ',\r\n     1        'NUMBERS. ALL REAL NUMBERS OUTSIDE E-27 OR E+27 RANGE ',\r\n     2        'ARE PUNCHED AS INTEGERS)')\r\nC\r\n   40 CALL READ (*810,*820,FILE,IZ(1),-2,0,ILEN)\r\n      IRECNO = 0\r\n      ICHR   = N1(1,I)\r\n      IZ(3)  = 0\r\nC\r\nC     SET UP FIRST RECORD\r\nC\r\n      IZ(1) = TABNM(1)\r\n      IZ(2) = TABNM(2)\r\n      IZ(4) = MCB(2)\r\n      IZ(5) = MCB(3)\r\n      IZ(6) = MCB(4)\r\n      IZ(7) = MCB(5)\r\n      IZ(8) = MCB(6)\r\n      IZ(9) = MCB(7)\r\n      CALL READ (*700,*50,FILE,IZ(10),NREAD,0,ILEN)\r\n      ICRQ  = NREAD\r\n      GO TO 830\r\n   50 ILEN  = ILEN + 11\r\n   60 IZ(ILEN-1) = ENDREC(1)\r\n      IZ(ILEN  ) = ENDREC(2)\r\n      GO TO 90\r\nC\r\nC     BRING IN NEXT RECORD\r\nC\r\n   70 CALL READ (*700,*80,FILE,IZ(KMB),NREAD,IO,ILEN)\r\n      ICRQ  = NREAD\r\n      GO TO 830\r\n   80 IF (KMB .EQ. 1) GO TO 600\r\n      IZ(3) = IZ(3) + 1\r\n      IF (ILEN .EQ. 0) GO TO 70\r\n      ILEN  = ILEN + 5\r\n      GO TO 60\r\nC\r\nC     BUILD FORMAT VECTOR  1= INTEGER, 2 =BCD, 3=REAL\r\nC\r\n   90 JV = 3\r\n      DO 100 K = 1,ILEN\r\n      M  = NLIST + K - 1\r\n      J  = NUMTYP(IZ(K))\r\n      IF (J.EQ.0 .AND. JV.NE.3) J = JV\r\n      IZ(M) = LL(J+1)\r\n  100 JV = J\r\nC\r\nC     MOVE DATA/FORMAT TO DATA AREA 8 FIELDS AT A TIME--SET D.F. FLAG\r\nC\r\n      ID   = 1\r\n      IF   = NLIST\r\n      IFRS = 1\r\nC\r\nC     HERE FOR EIGHT MORE WORDS\r\nC\r\n  110 IDF = 0\r\n      IDT = 1\r\n      IFT = 1\r\n      NF  = 1\r\nC\r\nC     HERE  FOR EACH FIELD\r\nC\r\n  120 IDATA(IDT) = IZ(ID)\r\n      IFORM(IFT) = IZ(IF)\r\n      IF (IFORM(IFT) .EQ. 3) IDF = 1\r\n      IF (IFORM(IFT) .NE. 2) GO TO 140\r\nC\r\nC     BCD IS TWO WORDS\r\nC\r\n      IDATA(IDT+1) = IZ(ID+1)\r\nC\r\nC     MAY BE FALSE BCD, CHECK FORMAT OF SECOND WORD ALSO\r\nC     (SOME REAL NUMBER BIT PATTERNS LOOK LIKE BCD).\r\nC\r\n      IF (IZ(IF+1) .EQ. 2) GO TO 130\r\nC\r\nC     SECOND WORD IS NOT BCD, ASSUME FIRST WORD IS REAL.\r\nC\r\n      IDF = 1\r\n      IFORM(IFT) = 3\r\n      GO TO 140\r\n  130 IDT = IDT + 2\r\n      IFT = IFT + 1\r\n      ID  = ID  + 2\r\n      IF  = IF  + 2\r\n      GO TO 150\r\nC\r\nC     REAL OR INTEGER\r\nC\r\n  140 IDT = IDT + 1\r\n      IFT = IFT + 1\r\n      ID  = ID  + 1\r\n      IF  = IF  + 1\r\nC\r\nC     BUMP FIELD COUNTER\r\nC\r\n  150 NF = NF + 1\r\n      IF (NF .GT.    8) GO TO 160\r\n      IF (ID .LT. ILEN) GO TO 120\r\nC\r\nC     FILL  WITH BLANKS\r\nC\r\n      IDATA(IDT  ) = BLANK\r\n      IDATA(IDT+1) = BLANK\r\n      IFORM(IFT  ) = 2\r\n      GO TO 130\r\nC\r\nC     PUNCH OUT 8 FIELDS OF DATA\r\nC\r\n  160 IDT = 0\r\n      IF (IDF .NE. 0) GO TO 400\r\nC\r\nC     SINGLE FIELD CARD\r\nC\r\n      NF = 1\r\n  170 M  = 2*NF + 2\r\n      IF (IFORM(NF)-2) 180,200,210\r\nC\r\nC     INTEGER\r\nC\r\n  180 FORM(M  ,IFRS) = INT(1)\r\n      FORM(M+1,IFRS) = INT(2)\r\nC\r\nC     GET NEXT ITEM\r\nC\r\n      IDT = IDT + 1\r\n  190 NF  = NF  + 1\r\n      IF (NF .LE. 8) GO TO 170\r\n      GO TO 220\r\nC\r\nC     BCD\r\nC\r\n  200 FORM(M  ,IFRS) = IBCD(1)\r\n      FORM(M+1,IFRS) = IBCD(2)\r\n      IDT = IDT + 2\r\n      GO TO 190\r\nC\r\nC     REAL NOT LEGAL\r\nC\r\n  210 IP1 = -37\r\n      GO TO 850\r\nC\r\nC     PUNCH OUT SINGLE CARD\r\nC\r\n  220 IF (IFRS .NE. 1) GO TO 270\r\n      DO 230 J = 1,30\r\n      PFORM(J) = FORM(J,1)\r\n  230 CONTINUE\r\n      WRITE (LPCH,PFORM,ERR=240) DTI,(RDATA(M),M=1,IDT),ICHR,IRECNO\r\n  240 IRECNO = IRECNO + 1\r\n      IFRS = 2\r\n      DO 250 J = 1,30\r\n  250 FORM(J,1) = FORMS(J,1)\r\n  260 IF (ID .GE. ILEN) GO TO 70\r\n      GO TO 110\r\nC\r\nC     CONTINUATION CARD\r\nC\r\n  270 IRCNM1 = IRECNO - 1\r\n      DO 280 J = 1,30\r\n      PFORM(J) = FORM(J,2)\r\n  280 CONTINUE\r\n      WRITE (LPCH,PFORM,ERR=290) IPLUS,ICHR,IRCNM1,(RDATA(M),M=1,IDT),\r\n     1                           ICHR,IRECNO\r\n  290 IRECNO = IRECNO + 1\r\n      DO 300 J = 1,30\r\n  300 FORM(J,2) = FORMS(J,2)\r\n      GO TO 260\r\nC\r\nC     DOUBLE FIELD CARDS\r\nC\r\n  400 NF = 1\r\n      IS = 1\r\n      IT = 4\r\n      IDT= 0\r\n      M  = 2\r\n  410 M  = M + 2\r\n      IF (IFORM(NF)-2) 420,450,460\r\nC\r\nC     INTEGER\r\nC\r\n  420 FORM(M  ,IFRS) = INTD(1)\r\n      FORM(M+1,IFRS) = INTD(2)\r\n  430 IDT = IDT + 1\r\n  440 NF  = NF  + 1\r\n      IF (M .LE. 8) GO TO 410\r\n      GO TO 470\r\nC\r\nC     BCD\r\nC\r\n  450 FORM(M  ,IFRS) = IBCDD(1)\r\n      FORM(M+1,IFRS) = IBCDD(2)\r\n      IDT = IDT + 2\r\n      GO TO 440\r\nC\r\nC     REAL\r\nC\r\n  460 FORM(M  ,IFRS) = IREAL(1)\r\n      FORM(M+1,IFRS) = IREAL(2)\r\n      GO TO 430\r\nC\r\nC     PUNCH OUT DOUBLE FIELD CARD\r\nC\r\n  470 IF (IFRS .NE. 1) GO TO 520\r\n      DO 480 J = 1,30\r\n      PFORM(J) = FORM(J,1)\r\n  480 CONTINUE\r\n      WRITE (LPCH,PFORM,ERR=490) DTIS,(RDATA(M),M=IS,IDT),ICHR,IRECNO\r\n  490 IRECNO = IRECNO + 1\r\n      DO 500 J = 1,30\r\n  500 FORM(J,1) = FORMS(J,1)\r\n      IFRS = 2\r\n  510 IT = 8\r\n      M  = 2\r\n      IS = IDT + 1\r\n      GO TO 410\r\nC\r\nC     CONTINUATION CARD\r\nC\r\n  520 IRCNM1 = IRECNO - 1\r\n      DO 530 J = 1,30\r\n      PFORM(J) = FORM(J,2)\r\n  530 CONTINUE\r\n      WRITE (LPCH,PFORM,ERR=540) ISTAR,ICHR,IRCNM1,(RDATA(M),M=IS,IDT),\r\n     1                           ICHR,IRECNO\r\n  540 IRECNO = IRECNO + 1\r\n      DO 550 J = 1,30\r\n  550 FORM(J,2) = FORMS(J,2)\r\n      IF (IT .EQ. 4) GO TO 510\r\n      GO TO 260\r\nC\r\nC     PUNCH KELM, MELM AND BELM IN D.P.\r\nC\r\n  600 IF (ILEN .EQ. 0) GO TO 70\r\n      ILEN = ILEN/2\r\n      JE = 0\r\n  610 JB = JE + 1\r\n      JE = JE + 4\r\n      IRCNM1 = IRECNO\r\n      IRECNO = IRECNO + 1\r\n      IF (JE .GE. ILEN) GO TO 630\r\n      WRITE  (LPCH,620,ERR=840) ICHR,IRCNM1,(DZ(J),J=JB,JE),ICHR,IRECNO\r\n  620 FORMAT (1H*,A2,I5,1P,4D16.9,1X,A2,I5)\r\n      GO TO 610\r\n  630 JE = ILEN\r\n      WRITE  (LPCH,640,ERR=840) ICHR,IRCNM1,(DZ(J),J=JB,JE)\r\n  640 FORMAT (1H*,A2,I5,1P,4D16.9)\r\n      GO TO 70\r\nC\r\nC     CLOSE OFF FILES\r\nC\r\n  700 CALL CLOSE (FILE,1)\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUT,710) UIM,TABNM,IRECNO\r\n  710 FORMAT (A29,' 4015, TABLE ',2A4,' WAS PUNCHED OUT,',I8,' CARDS.')\r\n  720 CONTINUE\r\n      WRITE  (LPCH,730)\r\n  730 FORMAT (1H , /,1H , /,1H )\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  800 IP1 = -1\r\n      GO TO 850\r\n  810 IP1 =-2\r\n      GO TO 850\r\n  820 IP1 =-3\r\n      GO TO 850\r\n  830 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 850\r\n  840 IP1 = -37\r\nC\r\n  850 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tabprt.f",
    "content": "      SUBROUTINE TABPRT (INAME1)\r\nC\r\nC     WILL PRINT TABLE - USING 1P,E13.6, I13, OR (9X,A4) FORMAT\r\nC\r\nC     ALL REAL NUMBERS ARE ASSUMED TO BE SINGLE PRECISION.\r\nC\r\nC     REVISED  3/91 BY G.CHAN/UNISYS\r\nC     THREE PARAMETERS ARE ADDED - OP CODE (OP), RECORDD NO. (IRC), AND\r\nC     WORD NO. (IWD)\r\nC     THE DEFAULTS OF THESE PARAMETERS ARE - BLANK, 3, AND 3\r\nC     OP CODE OPTIONS ARE 'PUREBCD', 'PUREFPN', AND 'PUREINT'\r\nC\r\nC     LAST REVISED, 12/92, BY G.CHAN/UNISYS, TO INCLUDE 3 SPECIAL TABLES\r\nC     - KELM, MELM, BELM  - WHICH CONTAIN D.P. DATA WORDS IN 32- AND 36-\r\nC     BIT WORD MACHINES.\r\nC\r\nC     IF OP CODE IS 'PUREBCD', RECORDS IRC AND THEREAFTER, AND BEGINNING\r\nC     FROM WORD IWD OF EACH RECORD TO THE END OF THAT RECORD, ARE ALL\r\nC     BCD  WORDS.\r\nC     SIMILARILY FOR 'PUREINT' FOR INTEGER WORDS, AND 'PUREFPN' FOR\r\nC     FLOATING POINT NUMBERS\r\nC\r\nC     THESE PARAMETER OPTIONS ARE NECESSARY BECAUSE IF THE PRINTED DATA\r\nC     IS NOT OF STRING TYPE, SUBROUTINE NUMTYP IS CALLED TO FIND OUT\r\nC     WHAT TYPE OF DATA IN EACH DATA WORD.  HOWEVER NUMTYP IS NOT 100\r\nC     PERCENT FOOL-PROOF. ONCE IN A FEW THOUSANDS NUMTYP CAN NOT\r\nC     DISTINGUISH A REAL NUMBER FROM A BCD WORD\r\nC\r\nC  $MIXED_FORMATS\r\nC\r\n      LOGICAL          DEC\r\n      INTEGER          BLOCK(20),TYPES(4),FORMAT,FORMS(2),JPOINT,ROW,\r\n     1                 TYPE,FLAG,RECF,STRNBR,SYSBUF,OTPE,PURE,BCD,FPN,\r\n     2                 OP,NAME(2),ICORE(133)\r\n      REAL             XNS(1),SP(3)\r\n      DOUBLE PRECISION XND(1),DCORE(1)\r\n      CHARACTER        UFM*23,UWM*25\r\nCWKBI\r\n      CHARACTER*1      CORE1(2000)\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /BLANK /  OP(2),IRC,IWD\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /SYSTEM/  SYSBUF,OTPE,INX(6),NLPP,INX1(2),LINE,DUM(42),IPRC\r\n      COMMON /OUTPUT/  HEAD1(96),HEAD2(96)\r\n      COMMON /ZZZZZZ/  CORE(1)\r\n      EQUIVALENCE      (XND(1),CORE(1))\r\n      EQUIVALENCE      (XNS(1),XND(1)),  (ICORE(1),CORE(1),DCORE(1)),\r\n     1                 (BLOCK(2), TYPE   ), (BLOCK(3), FORMAT),\r\n     2                 (BLOCK(4), ROW    ), (BLOCK(5), JPOINT),\r\n     3                 (BLOCK(6), NTERMS ), (BLOCK(8), FLAG  )\r\nCWKBI\r\n      EQUIVALENCE      (CORE, CORE1)\r\n      DATA    OPAREN,  CPAREN,EC,EC1,EC2,INTGC,ALPHC,ALPHC1,CONT,UNED /\r\n     1        4H(1X ,  4H)   ,4H,1P,,4HE13.,2H6 ,4H,I13,4H,9X,,4HA4   ,\r\n     2        4HCONT,  4HINUE   /  D/2HD  /, NAME  / 4HTABP,4HRT      /\r\n      DATA    BLANK ,  TABL,EBB /  1H  ,4HTABL, 1HE     /\r\n      DATA    TYPES /  3HRSP,3HRDP,3HCSP ,3HCDP/, FORMS / 3HYES ,2HNO /\r\n      DATA    PURE  ,  BCD,FPN,INT /   4HPURE, 4HBCD , 4HFPN , 4HINT  /\r\n      DATA    NSP   ,  SP / 3, 4HKELM, 4HMELM, 4HBELM   /\r\nC\r\n      NZ  = KORSZ(CORE) - SYSBUF\r\n      IF (NZ .LE. 0) CALL MESAGE (-8,-NZ,NAME)\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.10 .OR. MACH.EQ.21\r\n      INAME = INAME1\r\n      CALL OPEN (*190,INAME,CORE(NZ+1),0)\r\n      DO 10 I = 1,96\r\n   10 HEAD2(I) = BLANK\r\n      HEAD2(1) = TABL\r\n      HEAD2(2) = EBB\r\n      CALL FNAME (INAME,HEAD2(3))\r\n      CALL PAGE\r\n      HEAD2(6) = CONT\r\n      HEAD2(7) = UNED\r\n      HEAD2(8) = D\r\n      IF (IPRC.EQ.1 .OR. INAME.NE.101) GO TO 15\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OTPE,13) UWM\r\n   13 FORMAT (A25,', TABPRT MODULE ASSUMES ALL REAL DATA ARE IN S.P.,',\r\n     1       ' D.P. DATA THEREFORE MAY BE PRINTED ERRONEOUSLY')\r\n   15 INUM     = NZ/2 - 1\r\n      INUM     = MAX0(INUM,133)\r\n      NS       = INUM + 1\r\n      LLEN     = 0\r\n      CORE(1)  = OPAREN\r\n      IREC     = 0\r\n      IRCD     = 999999999\r\n      IXXX     = 999999999\r\n      IF (OP(1).NE.PURE .OR. OP(2).EQ.BLANK) GO TO 20\r\n      IF (OP(2) .EQ. INT) JJ = 2\r\n      IF (OP(2) .EQ. FPN) JJ = 3\r\n      IF (OP(2) .EQ. BCD) JJ = 4\r\n      IF (IRC .GT. 0) IRCD = IRC\r\n      IF (IWD .GT. 0) IXXX = IWD + INUM\r\n      IF (IRC .LE. 0) IRCD = 3\r\n      IF (IWD .LE. 0) IXXX = 3 + INUM\r\n   20 CALL PAGE2 (-2)\r\n      IF (DEC .AND. IREC.EQ.0) WRITE (OTPE,25)\r\n   25 FORMAT (4X,'(ALL INTEGERS EXCEEDING 16000 ARE PRINTED AS REAL ',\r\n     1        'NUMBERS. ALL REAL NUMBERS OUTSIDE E-27 OR E+27 RANGE ',\r\n     2        'ARE PRINTED AS INTEGERS)')\r\n      WRITE  (OTPE,30) IREC\r\n   30 FORMAT (/,' RECORD NO.',I6)\r\n      IREC = IREC + 1\r\n      DO 35 I  = 1,NSP\r\n      IF (HEAD2(3) .NE. SP(I)) GO TO 35\r\n      ICORE(1) = INAME\r\n      CALL RDTRL (ICORE)\r\n      IF (ICORE(2) .EQ. 2) GO TO 60\r\n   35 CONTINUE\r\n      IX   = INUM\r\n      NRED = 0\r\n      NP   = INUM - 1\r\n      BLOCK(1) = INAME1\r\n      CALL RECTYP (BLOCK,RECF)\r\n      IF (RECF .NE. 0) GO TO 200\r\n      JV   = 4\r\n   40 IX   = IX + 1\r\n      IOUT = 4\r\n      NRED = NRED + 1\r\n      NP   = NP + 1\r\n      CALL READ (*170,*160,INAME,CORE(IX),1,0,IFLAG)\r\nC\r\n      IF (IREC.GT.IRCD .OR. IX.GT.IXXX) GO TO 50\r\n      JJ = NUMTYP(ICORE(IX)) + 1\r\n      IF (JJ.EQ.1 .AND. JV.NE.4) JJ = JV\r\n      JV = JJ\r\n   50 GO TO (140,140,100,120), JJ\r\nC\r\nC     TABLES KELM, MELM, AND BELM - D.P. DATA ONLY\r\nC\r\n   60 CALL READ (*170,*170,INAME,CORE(1),2,1,IFLAG)\r\n      WRITE  (OTPE,65) ICORE(1),ICORE(2)\r\n   65 FORMAT (10X,2A4)\r\n   70 WRITE  (OTPE,30) IREC\r\n      CALL READ (*170,*80,INAME,CORE(1),NZ,1,IFLAG)\r\n      CALL MESAGE (-8,0,NAME)\r\n   80 NP   = IFLAG/2\r\n      JJ   = (NP+9)/10\r\n      CALL PAGE2 (-JJ)\r\n      IREC = IREC + 1\r\n      WRITE  (OTPE,90,ERR=70) (DCORE(I),I=1,NP)\r\n   90 FORMAT (1X,1P,10D13.6)\r\n      GO TO 70\r\nC\r\nC     REAL NUMBER  (1)\r\nC\r\n  100 IOUT = 1\r\n      IF (LLEN+13 .GT. 132) GO TO 160\r\n  110 CORE(NRED+1) = EC\r\n      CORE(NRED+2) = EC1\r\n      CORE(NRED+3) = EC2\r\n      NRED = NRED + 2\r\n  115 LLEN = LLEN + 13\r\n      GO TO 40\r\nC\r\nC     ALPHA  (2)\r\nC\r\n  120 IOUT = 2\r\n      IF (LLEN+6 .GT. 132) GO TO 160\r\n  130 CORE(NRED+1) = ALPHC\r\n      CORE(NRED+2) = ALPHC1\r\n      NRED = NRED + 1\r\n      GO TO 115\r\nC\r\nC     INTEGER  (3)\r\nC\r\n  140 IOUT = 3\r\n      IF (LLEN+13 .GT. 132) GO TO 160\r\n  150 ICORE(NRED+1) = INTGC\r\n      GO TO 115\r\nC\r\nC     BUFFER FULL- END RECORD AND PRINT THE LINE\r\nC\r\nC     PREVIOUSLY, THE FORMAT IS IN CORE, WHICH IS DIMENSIONED TO 1.\r\nC     THIS MAY NOT WORK IN SOME MACHINES. THE FORMAT IS NOW SPECIFIED IN\r\nC     ICORE, WHICH IS DIMENSIONED TO 133.\r\nC     (CORE AND ICORE ARE EQUIVALENT)\r\nC\r\n  160 CORE(NRED+1) = CPAREN\r\n      IF (NRED .GE. 133) CALL MESAGE (-37,0,NAME)\r\n      CALL PAGE2 (-1)\r\n      IF (NRED .EQ. 1) GO TO 165\r\n      IF (MACH .NE. 2 .AND. MACH .NE. 5 ) GO TO 162\r\n      WRITE (OTPE,ICORE,ERR=164) (CORE(I),I=NS,NP)\r\n      GO TO 164\r\n  162 CALL WRTFMT (ICORE(NS),NP-NS+1,CORE1)\r\n  164 CONTINUE\r\n      LLEN = 0\r\n      NRED = 1\r\n      NP   = INUM\r\nC\r\nC     FINISH SEMI-PROCESSED WORD.\r\nC\r\n      CORE(INUM+1) = CORE(IX)\r\n      IX = INUM + 1\r\n      GO TO (110,130,150,20), IOUT\r\nC\r\n  165 WRITE  (OTPE,166)\r\n  166 FORMAT (' THIS RECORD IS NULL.')\r\nC\r\nC     GO TO 161 IS LOGICALLY UNSOUND. CHANG TO 164. (G.CHAN/UNISYS 1/93)\r\nC     GO TO 161\r\nCWKBR GO TO 164\r\n      GO TO 162\r\nC\r\n  170 CALL CLOSE (INAME,1)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OTPE,180)\r\n  180 FORMAT (//,' END OF FILE')\r\nC\r\nC     PRINT TRAILER FOR FILE\r\nC\r\n  190 ICORE(1) = INAME\r\n      CALL RDTRL (ICORE)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OTPE,195) (ICORE(I),I=2,7)\r\n  195 FORMAT ('0TRAILER WORD1 =',I8,' WORD2 =',I8,' WORD3 =',I8,\r\n     1                ' WORD4 =',I8,' WORD5 =',I8,' WORD6 =',I8)\r\n      RETURN\r\nC\r\nC\r\nC     HERE IF STRING FORMATTED RECORD\r\nC\r\n  200 FLAG   =-1\r\n      STRNBR = 1\r\n      CALL GETSTR (*250,BLOCK)\r\n      IFORM = FORMAT + 1\r\n  205 CALL PAGE2 (-2)\r\n      WRITE  (OTPE,206) STRNBR,ROW,TYPES(TYPE),FORMS(IFORM),NTERMS\r\n  206 FORMAT ('0STRING NO.',I5,'   ROW POSITION=',I5,'   STRING TYPE=',\r\n     1        A3,'   STRING TRAILERS=',A3,'   NUMBER OF TERMS=',I5)\r\n      STRNBR = STRNBR + 1\r\n      GO TO (210,220,230,240), TYPE\r\nC\r\nC     PRINT REAL SINGLE PRECISION STRING\r\nC\r\n  210 NPOINT = JPOINT + NTERMS - 1\r\n      J = JPOINT\r\n  211 N = MIN0(J+7,NPOINT)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OTPE,212) (XNS(I),I=J,N)\r\n  212 FORMAT (1X,8(1P,E15.7))\r\n      IF (N .EQ. NPOINT) GO TO 214\r\n      J = N + 1\r\n      GO TO 211\r\n  214 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*20,BLOCK)\r\n      GO TO 205\r\nC\r\nC     PRINT STRING IN REAL DOUBLE PRECISION\r\nC\r\n  220 NPOINT = JPOINT + NTERMS - 1\r\n      J = JPOINT\r\n  221 N = MIN0(J+7,NPOINT)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OTPE,222) (XND(I),I=J,N)\r\n  222 FORMAT (1X,8(1P,D15.7))\r\n      IF (N .EQ. NPOINT) GO TO 224\r\n      J = N + 1\r\n      GO TO 221\r\n  224 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*20,BLOCK)\r\n      GO TO 205\r\nC\r\nC     PRINT STRING IN COMPLEX SINGLE PRECISION\r\nC\r\n  230 NPOINT = JPOINT + 2*NTERMS - 1\r\n      J = JPOINT\r\n  231 N = MIN0(J+7,NPOINT)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OTPE,232) (XNS(I),I=J,N)\r\n  232 FORMAT (1X,4(1P,E14.7,1P,E15.7,2H//))\r\n      IF (N .EQ. NPOINT) GO TO 234\r\n      J = N + 1\r\n      GO TO 231\r\n  234 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*20,BLOCK)\r\n      GO TO 205\r\nC\r\nC     PRINT STRING IN COMPLEX DOUBLE PRECISION\r\nC\r\n  240 NPOINT = JPOINT + 2*NTERMS - 1\r\n      J = JPOINT\r\n  241 N = MIN0(J+7,NPOINT)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OTPE,242) (XND(I),I=J,N)\r\n  242 FORMAT (1X,4(1P,D14.7,1P,D15.7,2H//))\r\n      IF (N .EQ. NPOINT) GO TO 244\r\n      J = N + 1\r\n      GO TO 241\r\n  244 CALL ENDGET (BLOCK)\r\n      CALL GETSTR (*20,BLOCK)\r\n      GO TO 205\r\nC\r\nC     PRINT NULL COLUMN\r\nC\r\n  250 CALL PAGE2 (-1)\r\n      WRITE  (OTPE,252)\r\n  252 FORMAT (5X,'NULL COLUMN')\r\n      GO TO 20\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/tabpt.f",
    "content": "      SUBROUTINE TABPT\r\nC\r\nC     MODULE DRIVER TO PRINT TABLES\r\nC\r\n      DIMENSION      IN(5),ITRL(7)\r\n      COMMON /BLANK/ OP(2),IRC,IWD\r\n      DATA    IN   / 101,102,103,104,105 /, BLANK / 4H     /\r\nC\r\n      DO 10 I = 1,5\r\n      ITRL(1) = IN(I)\r\n      CALL RDTRL (ITRL(1))\r\n      IF (ITRL(1) .GT. 0) CALL TABPRT (IN(I))\r\n   10 CONTINUE\r\n      OP(1) = BLANK\r\n      OP(2) = BLANK\r\n      IRC = 0\r\n      IWD = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tapbit.f",
    "content": "      LOGICAL FUNCTION TAPBIT (FILE)\r\nC\r\n      EXTERNAL  ANDF\r\n      INTEGER   FIST,XFIAT,FIAT,FILE,ANDF,NAM(2)\r\n      COMMON   /XXFIAT/ XFIAT(1)\r\n     1         /XPFIST/ NPFIST\r\n     2         /XFIST / NFIST,LFIST,FIST(1)\r\n     3         /XFIAT / MFIAT,NFIAT,LFIAT,FIAT(1)\r\n      COMMON   /SYSTEM/ IB(45)\r\n      COMMON   /TWO   / ITWO(32)\r\n      DATA      NAM   / 4HTAPB,4HIT   /\r\nC\r\n      TAPBIT = .TRUE.\r\n      DO 10 J = 1,NPFIST\r\n      IF (FIST(2*J-1) .EQ. FILE) GO TO 20\r\n   10 CONTINUE\r\n      NPF1 = NPFIST + 1\r\n      DO 15 J = NPF1,LFIST\r\n      IF (FIST(2*J-1) .EQ. FILE) GO TO 30\r\n   15 CONTINUE\r\n      CALL MESAGE (-21,FILE,NAM)\r\nC\r\n   20 J = -FIST(2*J)\r\n      IF (ANDF(ITWO(32-J),IB(45)) .NE. 0) RETURN\r\n      IF (ANDF(XFIAT(J+1),32768)  .EQ. 0) TAPBIT = .FALSE.\r\n      RETURN\r\nC\r\n   30 J = FIST(2*J)\r\n      IF (ANDF(FIAT(J+1),32768) .EQ. 0) TAPBIT = .FALSE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/termsd.f",
    "content": "      SUBROUTINE TERMSD (NNODE,GPTH,EPNORM,EGPDT,IORDER,MMN,BTERMS)\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO CALCULATE B-MATRIX TERMS\r\nC     FOR ELEMENTS  QUAD4, QUAD8 AND TRIA6.\r\nC\r\nC     THE INPUT FLAG LETS THE SUBROUTINE SWITCH BETWEEN QUAD4,\r\nC     QUAD8 AND TRIA6 VERSIONS\r\nC\r\nC     ELEMENT TYPE FLAG (LTYPFL) = 1  FOR QUAD4,\r\nC                                = 2  FOR TRIA6 (NOT AVAILABLE),\r\nC                                = 3  FOR QUAD8 (NOT AVAILABLE).\r\nC\r\nC     THE OUTPUT CONSISTS OF THE DETERMINANT OF THE JACOBIAN\r\nC     (DETJ), SHAPE FUNCTIONS AND THEIR DERIVATIVES. THE OUTPUT\r\nC     PARAMETER, BADJAC, IS AN INTERNAL LOGICAL FLAG TO THE CALLING\r\nC     ROUTINE INDICATING THAT THE JACOBIAN IS NOT CORRECT.\r\nC     PART OF THE INPUT IS PASSED TO THIS SUBROUTINE THROUGH THE\r\nC     INTERNAL COMMON BLOCK  /COMJAC/.\r\nC\r\n      LOGICAL          BADJAC\r\n      INTEGER          MMN(1),LTYPFL,IORDER(1),INDEX(3,3)\r\n      REAL             EGPDT(4,1),EPNORM(4,1)\r\n      DOUBLE PRECISION XI,ETA,ZETA,DETJ,SHP(8),JACOB(3,3),DSHPX(8),\r\n     1                 DSHPE(8),DSHP(16),TSHP(8),TDSHP(16),BTERMS(1),\r\n     2                 DUM,TEMP,EPS,TIE(9),TJ(3,3),VN(3),CJAC,GPTH(1),\r\n     3                 TH,GRIDC(3,8)\r\n      COMMON /COMJAC/  XI,ETA,ZETA,DETJ,BADJAC,LTYPFL\r\n      COMMON /CJACOB/  CJAC(19)\r\n      EQUIVALENCE      (DSHPX(1),DSHP(1)), (DSHPE(1),DSHP(9) )\r\n      EQUIVALENCE      (VN(1)   ,CJAC(8)), (TIE(1)  ,CJAC(11))\r\n      EQUIVALENCE      (TH      ,CJAC(1))\r\nC\r\n      EPS = 1.0D-15\r\n      BADJAC = .FALSE.\r\nC\r\n      GO TO (10,30,20), LTYPFL\r\nC\r\nC     QUAD4 VERSION\r\nC\r\n   10 NGP = 4\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\n      GO TO 40\r\nC\r\nC     QUAD8 VERSION\r\nC\r\n   20 NGP = 8\r\n      GO TO 40\r\nC\r\nC     TRIA6 VERSION\r\nC\r\n   30 NGP = 6\r\nC\r\n   40 DO 50 I = 1,NGP\r\n      TSHP (I  ) = SHP(I)\r\n      TDSHP(I  ) = DSHP(I)\r\n   50 TDSHP(I+8) = DSHP(I+NGP)\r\n      DO 60 I = 1,NGP\r\n      IO = IORDER(I)\r\n      SHP (I  ) = TSHP(IO)\r\n      DSHP(I  ) = TDSHP(IO)\r\n   60 DSHP(I+8) = TDSHP(IO+8)\r\nC\r\n      TH = 0.0D0\r\n      DO 70 I = 1,NNODE\r\n      TH = TH + GPTH(I)*SHP(I)\r\n      DO 70 J = 1,3\r\n      J1 = J + 1\r\n      GRIDC(J,I) = EGPDT(J1,I) + ZETA*GPTH(I)*EPNORM(J1,I)*0.5D0\r\n   70 CONTINUE\r\nC\r\n      DO 80 I = 1,2\r\n      II = (I-1)*8\r\n      DO 80 J = 1,3\r\n      TJ(I,J) = 0.0D0\r\n      DO 80 K = 1,NNODE\r\n      TJ(I,J) = TJ(I,J) + DSHP(K+II)*GRIDC(J,K)\r\n   80 CONTINUE\r\nC\r\n      DO 90 I = 1,3\r\n      TJ(3,I) = 0.0D0\r\n      DO 90 J = 1,NNODE\r\n   90 TJ(3,I) = TJ(3,I) + 0.5D0*GPTH(J)*SHP(J)*EPNORM(I+1,J)\r\nC\r\n      DO 100 I = 1,3\r\n      DO 100 J = 1,3\r\n      IF (DABS(TJ(I,J)) .LT. EPS) TJ(I,J) = 0.0D0\r\n  100 CONTINUE\r\nC\r\nC     SET UP THE TRANSFORMATION FROM THIS INTEGRATION POINT C.S.\r\nC     TO THE ELEMENT C.S.  TIE\r\nC\r\n      VN(1) = TJ(1,2)*TJ(2,3) - TJ(2,2)*TJ(1,3)\r\n      VN(2) = TJ(2,1)*TJ(1,3) - TJ(1,1)*TJ(2,3)\r\n      VN(3) = TJ(1,1)*TJ(2,2) - TJ(2,1)*TJ(1,2)\r\nC\r\n      TEMP = DSQRT(VN(1)*VN(1) + VN(2)*VN(2) + VN(3)*VN(3))\r\nC\r\n      TIE(7) = VN(1)/TEMP\r\n      TIE(8) = VN(2)/TEMP\r\n      TIE(9) = VN(3)/TEMP\r\nC\r\n      TEMP = DSQRT(TIE(8)*TIE(8) + TIE(9)*TIE(9))\r\nC\r\n      TIE(1) = TIE(9)/TEMP\r\n      TIE(2) = 0.0D0\r\n      TIE(3) =-TIE(7)/TEMP\r\nC\r\n      TIE(4) = TIE(8)*TIE(3)\r\n      TIE(5) = TEMP\r\n      TIE(6) =-TIE(1)*TIE(8)\r\nC\r\n      CALL INVERD (3,TJ,3,DUM,0,DETJ,ISING,INDEX)\r\nC\r\nC\r\nC     NOTE - THE INVERSE OF JACOBIAN HAS BEEN STORED IN TJ\r\nC            UPON RETURN FROM INVERD.\r\nC\r\n      IF (ISING.EQ.1 .AND. DETJ.GT.0.0D0) GO TO 110\r\n      BADJAC = .TRUE.\r\n      GO TO 150\r\nC\r\n  110 CONTINUE\r\nC\r\n      DO 120 I = 1,3\r\n      II = (I-1)*3\r\n      DO 120 J = 1,3\r\n      JACOB(I,J) = 0.0D0\r\n      DO 120 K = 1,3\r\n      IK = II + K\r\n  120 JACOB(I,J) = JACOB(I,J) + TIE(IK)*TJ(K,J)\r\nC\r\nC     MULTIPLY THE INVERSE OF THE JACOBIAN BY THE TRANSPOSE\r\nC     OF THE ARRAY CONTAINING DERIVATIVES OF THE SHAPE FUNCTIONS\r\nC     TO GET THE TERMS USED IN THE ASSEMBLY OF THE B MATRIX.\r\nC     NOTE THAT THE LAST ROW CONTAINS THE SHAPE FUNCTION VALUES.\r\nC\r\n      NODE3 = NNODE*3\r\n      DO 130 I = 1,NNODE\r\n  130 BTERMS(NODE3+I) = SHP(I)*JACOB(3,3)\r\nC\r\n      DO 140 I = 1,3\r\n      II = (I-1)*NNODE\r\n      DO 140 J = 1,NNODE\r\n      IJ = II + J\r\n      BTERMS(IJ) = 0.0D0\r\n      DO 140 K = 1,2\r\n      IK = (K-1)*8\r\n  140 BTERMS(IJ) = BTERMS(IJ) + JACOB(I,K)*DSHP(IK+J)\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/termss.f",
    "content": "      SUBROUTINE TERMSS (NNODE,GPTH,EPNORM,EGPDT,IORDER,MMN,BTERMS)\r\nC\r\nC     SINGLE PRECISION ROUTINE TO CALCULATE B-MATRIX TERMS\r\nC     FOR ELEMENTS  QUAD4, QUAD8 AND TRIA6.\r\nC\r\nC     THE INPUT FLAG LETS THE SUBROUTINE SWITCH BETWEEN QUAD4,\r\nC     QUAD8 AND TRIA6 VERSIONS\r\nC\r\nC     ELEMENT TYPE FLAG (LTYPFL) = 1  FOR QUAD4,\r\nC                                = 2  FOR TRIA6 (NOT AVAILABLE),\r\nC                                = 3  FOR QUAD8 (NOT AVAILABLE).\r\nC\r\nC     THE OUTPUT CONSISTS OF THE DETERMINANT OF THE JACOBIAN\r\nC     (DETJ), SHAPE FUNCTIONS AND THEIR DERIVATIVES. THE OUTPUT\r\nC     PARAMETER, BADJAC, IS AN INTERNAL LOGICAL FLAG TO THE CALLING\r\nC     ROUTINE INDICATING THAT THE JACOBIAN IS NOT CORRECT.\r\nC     PART OF THE INPUT IS PASSED TO THIS SUBROUTINE THROUGH THE\r\nC     INTERNAL COMMON BLOCK  /COMJAC/.\r\nC\r\n      LOGICAL          BADJAC\r\n      INTEGER          MMN(1),LTYPFL,IORDER(1),INDEX(3,3)\r\n      REAL             EGPDT(4,1),EPNORM(4,1)\r\n      REAL             XI,ETA,ZETA,DETJ,SHP(8),JACOB(3,3),DSHPX(8),\r\n     1                 DSHPE(8),DSHP(16),TSHP(8),TDSHP(16),BTERMS(1),\r\n     2                 DUM,TEMP,EPS,TIE(9),TJ(3,3),VN(3),CJAC,GPTH(1),\r\n     3                 TH,GRIDC(3,8)\r\n      COMMON /COMJAC/  XI,ETA,ZETA,DETJ,BADJAC,LTYPFL\r\n      COMMON /CJACOB/  CJAC(19)\r\n      EQUIVALENCE      (DSHPX(1),DSHP(1)), (DSHPE(1),DSHP(9) )\r\n      EQUIVALENCE      (VN(1)   ,CJAC(8)), (TIE(1)  ,CJAC(11))\r\n      EQUIVALENCE      (TH      ,CJAC(1))\r\nC\r\n      EPS = 1.0E-15\r\n      BADJAC = .FALSE.\r\nC\r\n      GO TO (10,30,20), LTYPFL\r\nC\r\nC     QUAD4 VERSION\r\nC\r\n   10 NGP = 4\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\n      GO TO 40\r\nC\r\nC     QUAD8 VERSION\r\nC\r\n   20 NGP = 8\r\n      GO TO 40\r\nC\r\nC     TRIA6 VERSION\r\nC\r\n   30 NGP = 6\r\nC\r\n   40 DO 50 I = 1,NGP\r\n      TSHP (I  ) = SHP(I)\r\n      TDSHP(I  ) = DSHP(I)\r\n   50 TDSHP(I+8) = DSHP(I+NGP)\r\n      DO 60 I = 1,NGP\r\n      IO = IORDER(I)\r\n      SHP (I  ) = TSHP(IO)\r\n      DSHP(I  ) = TDSHP(IO)\r\n   60 DSHP(I+8) = TDSHP(IO+8)\r\nC\r\n      TH = 0.0\r\n      DO 70 I = 1,NNODE\r\n      TH = TH + GPTH(I)*SHP(I)\r\n      DO 70 J = 1,3\r\n      J1 = J + 1\r\n      GRIDC(J,I) = EGPDT(J1,I) + ZETA*GPTH(I)*EPNORM(J1,I)*0.5\r\n   70 CONTINUE\r\nC\r\n      DO 80 I = 1,2\r\n      II = (I-1)*8\r\n      DO 80 J = 1,3\r\n      TJ(I,J) = 0.0\r\n      DO 80 K = 1,NNODE\r\n      TJ(I,J) = TJ(I,J) + DSHP(K+II)*GRIDC(J,K)\r\n   80 CONTINUE\r\nC\r\n      DO 90 I = 1,3\r\n      TJ(3,I) = 0.0\r\n      DO 90 J = 1,NNODE\r\n   90 TJ(3,I) = TJ(3,I) + 0.5*GPTH(J)*SHP(J)*EPNORM(I+1,J)\r\nC\r\n      DO 100 I = 1,3\r\n      DO 100 J = 1,3\r\n      IF (ABS(TJ(I,J)) .LT. EPS) TJ(I,J) = 0.0\r\n  100 CONTINUE\r\nC\r\nC     SET UP THE TRANSFORMATION FROM THIS INTEGRATION POINT C.S.\r\nC     TO THE ELEMENT C.S.  TIE\r\nC\r\n      VN(1) = TJ(1,2)*TJ(2,3) - TJ(2,2)*TJ(1,3)\r\n      VN(2) = TJ(2,1)*TJ(1,3) - TJ(1,1)*TJ(2,3)\r\n      VN(3) = TJ(1,1)*TJ(2,2) - TJ(2,1)*TJ(1,2)\r\nC\r\n      TEMP = SQRT(VN(1)*VN(1) + VN(2)*VN(2) + VN(3)*VN(3))\r\nC\r\n      TIE(7) = VN(1)/TEMP\r\n      TIE(8) = VN(2)/TEMP\r\n      TIE(9) = VN(3)/TEMP\r\nC\r\n      TEMP = SQRT(TIE(8)*TIE(8) + TIE(9)*TIE(9))\r\nC\r\n      TIE(1) = TIE(9)/TEMP\r\n      TIE(2) = 0.0\r\n      TIE(3) =-TIE(7)/TEMP\r\nC\r\n      TIE(4) = TIE(8)*TIE(3)\r\n      TIE(5) = TEMP\r\n      TIE(6) =-TIE(1)*TIE(8)\r\nC\r\n      CALL INVERS (3,TJ,3,DUM,0,DETJ,ISING,INDEX)\r\nC\r\nC\r\nC     NOTE - THE INVERSE OF JACOBIAN HAS BEEN STORED IN TJ\r\nC            UPON RETURN FROM INVERS.\r\nC\r\n      IF (ISING.EQ.1 .AND. DETJ.GT.0.0) GO TO 110\r\n      BADJAC = .TRUE.\r\n      GO TO 150\r\nC\r\n  110 CONTINUE\r\nC\r\n      DO 120 I = 1,3\r\n      II = (I-1)*3\r\n      DO 120 J = 1,3\r\n      JACOB(I,J) = 0.0\r\n      DO 120 K = 1,3\r\n      IK = II + K\r\n  120 JACOB(I,J) = JACOB(I,J) + TIE(IK)*TJ(K,J)\r\nC\r\nC     MULTIPLY THE INVERSE OF THE JACOBIAN BY THE TRANSPOSE\r\nC     OF THE ARRAY CONTAINING DERIVATIVES OF THE SHAPE FUNCTIONS\r\nC     TO GET THE TERMS USED IN THE ASSEMBLY OF THE B MATRIX.\r\nC     NOTE THAT THE LAST ROW CONTAINS THE SHAPE FUNCTION VALUES.\r\nC\r\n      NODE3 = NNODE*3\r\n      DO 130 I = 1,NNODE\r\n  130 BTERMS(NODE3+I) = SHP(I)*JACOB(3,3)\r\nC\r\n      DO 140 I = 1,3\r\n      II = (I-1)*NNODE\r\n      DO 140 J = 1,NNODE\r\n      IJ = II + J\r\n      BTERMS(IJ) = 0.0\r\n      DO 140 K = 1,2\r\n      IK = (K-1)*8\r\n  140 BTERMS(IJ) = BTERMS(IJ) + JACOB(I,K)*DSHP(IK+J)\r\n  150 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tetra.f",
    "content": "      SUBROUTINE TETRA (TEMPS,PG,IOPT)\r\nC\r\nC     ELEMENT THERMAL LOAD GENERATOR FOR THE TETRAHEDRON SOLID ELEMENT\r\nC\r\nC     LOOKING DOWN ON THIS ELEMENT, GRIDS 1,2,3 ARE THE BASE AND MUST BE\r\nC     LABELED COUNTERCLOCKWISE. GRID 4 MUST BE ABOVE THE PLANE FORMED BY\r\nC     GRIDS 1,2,3 AND CLOSEST TO THIS OBSERVER.\r\nC\r\nC     ECPT FOR THE TETRAHEDRON SOLID ELEMENT\r\nC\r\nC     ECPT( 1) = ELEMENT ID\r\nC     ECPT( 4) = SIL GRID POINT 3\r\nC     ECPT( 5) = SIL GRID POINT 4\r\nC     ECPT( 2) = MATERIAL ID (MAT1 MATERIAL TYPE)\r\nC     ECPT( 3) = SIL GRID POINT 1\r\nC     ECPT( 4) = SIL GRID POINT 2\r\nC     ECPT( 5) = SIL GRID POINT 3\r\nC     ECPT( 6) = SIL GRID POINT 4\r\nC     ECPT( 7) = COORD SYS ID GRID PT 1\r\nC     ECPT( 8) = X1\r\nC     ECPT( 9) = Y1\r\nC     ECPT(10) = Z1\r\nC     ECPT(11) = COORD SYS ID GRID PT 2\r\nC     ECPT(12) = X2\r\nC     ECPT(13) = Y2\r\nC     ECPT(14) = Z2\r\nC     ECPT(15) = COORD SYS ID GRID PT 3\r\nC     ECPT(16) = X3\r\nC     ECPT(17) = Y3\r\nC     ECPT(18) = Z3\r\nC     ECPT(19) = COORD SYS ID GRID PT 4\r\nC     ECPT(20) = X4\r\nC     ECPT(21) = Y4\r\nC     ECPT(22) = Z4\r\nC     ECPT(23) = ELEMENT TEMPERATURE\r\nC\r\n      INTEGER         NECPT(2) ,OUT\r\n      REAL            TEMPS(4) ,PG(6)   ,P(6)    ,C(72)    ,G(36)    ,\r\n     1                H(16)    ,CTG(18) ,NU      ,ALFA(6)  ,TEMP(12)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SYSBUF   ,OUT\r\n      COMMON /TRIMEX/ ECPT(23)\r\n      COMMON /MATIN / MATID    ,INFLAG  ,ELTEMP\r\n      COMMON /MATOUT/ E        ,GG      ,NU      ,RHO       ,ALPHA   ,\r\n     1                TSUB0    ,GSUBE   ,SIGT    ,SIGC      ,SIGS\r\n      EQUIVALENCE     (NECPT(1),ECPT(1))\r\nC\r\nC     FILL THE 4 X 4 H MATRIX.\r\nC\r\n      H( 1) = 1.0\r\n      H( 2) = ECPT( 8)\r\n      H( 3) = ECPT( 9)\r\n      H( 4) = ECPT(10)\r\n      H( 5) = 1.0\r\n      H( 6) = ECPT(12)\r\n      H( 7) = ECPT(13)\r\n      H( 8) = ECPT(14)\r\n      H( 9) = 1.0\r\n      H(10) = ECPT(16)\r\n      H(11) = ECPT(17)\r\n      H(12) = ECPT(18)\r\n      H(13) = 1.0\r\n      H(14) = ECPT(20)\r\n      H(15) = ECPT(21)\r\n      H(16) = ECPT(22)\r\nC\r\nC     INVERT H AND GET THE DETERMINANT\r\nC\r\n      ISING = 0\r\nC\r\n      CALL INVERS (4,H(1),4,DUM,0,HDETER,ISING,TEMP(1))\r\nC\r\nC     IF THE MATRIX IS SINGULAR TETRAHEDRON IS BAD\r\nC\r\n      HDETER = ABS(HDETER)\r\n      IF (ISING .NE. 2) GO TO 200\r\n      WRITE  (OUT,150) UFM,NECPT(1)\r\n  150 FORMAT (A23,' 4002, MODULE SSG1 DETECTS BAD OR REVERSE GEOMETRY ',\r\n     1       'FOR ELEMENT ID =',I9)\r\n      GO TO 900\r\nC\r\nC     GET THE MATERIAL DATA AND FILL THE 6X6 G MATERIAL STRESS-STRAIN\r\nC     MATRIX.\r\nC\r\n  200 INFLAG = 1\r\n      MATID  = NECPT(2)\r\n      ELTEMP = ECPT(23)\r\n      CALL MAT (NECPT(1))\r\n      DO 210 I = 1,36\r\n  210 G(I)  = 0.0\r\n      TEMP1 = (1.0+NU)*(1.0-2.0*NU)\r\n      IF (TEMP1 .NE. 0.0) GO TO 240\r\n      WRITE  (OUT,230) UFM,MATID,ECPT(1)\r\n  230 FORMAT (A23,' 4003, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED ',\r\n     1       'UNDER MATERIAL ID =',I9,' FOR ELEMENT ID =',I9)\r\n      GO TO 900\r\n  240 G( 1) = E*(1.0-NU)/TEMP1\r\n      G( 8) = G(1)\r\n      G(15) = G(1)\r\n      G( 2) = E*NU/TEMP1\r\n      G( 3) = G(2)\r\n      G( 7) = G(2)\r\n      G( 9) = G(2)\r\n      G(13) = G(2)\r\n      G(14) = G(2)\r\n      G(22) = GG\r\n      G(29) = GG\r\n      G(36) = GG\r\nC\r\nC     FILL 4 C-MATRICES. (6X3) EACH.\r\nC\r\n      DO 400 I = 1,72\r\n  400 C(I) = 0.0\r\n      DO 500 I = 1,4\r\n      J = 18*I - 18\r\n      C(J+ 1) = H(I+ 4)\r\n      C(J+ 5) = H(I+ 8)\r\n      C(J+ 9) = H(I+12)\r\n      C(J+11) = H(I+12)\r\n      C(J+12) = H(I+ 8)\r\n      C(J+13) = H(I+12)\r\n      C(J+15) = H(I+ 4)\r\n      C(J+16) = H(I+ 8)\r\n      C(J+17) = H(I+ 4)\r\n  500 CONTINUE\r\nC\r\nC     DIVIDE DETERMINANT BY 6.0, AND BY AN ADDITIONAL 2.0 IF A SUB-TETRA\r\nC     FOR THE HEXA-10 ELEMENT.\r\nC\r\n      IF (IOPT) 602,601,602\r\n  601 HDETER = HDETER/6.0\r\n      GO TO 610\r\n  602 HDETER = HDETER/12.0\r\nC\r\nC     INTRODUCE TBAR AND ALPHA\r\nC\r\n  610 HDETER = HDETER*(0.25*(TEMPS(1)+TEMPS(2)+TEMPS(3)+TEMPS(4))-TSUB0)\r\n     1         *ALPHA\r\nC\r\nC     FILL ALPHA VECTOR\r\nC\r\n      ALFA(1) = HDETER\r\n      ALFA(2) = HDETER\r\n      ALFA(3) = HDETER\r\n      ALFA(4) = 0.0\r\n      ALFA(5) = 0.0\r\n      ALFA(6) = 0.0\r\nC\r\nC     LOOP FOR THE FOUR GRID POINTS\r\nC\r\n      DO 800 I = 1,4\r\n      CALL GMMATS (C(18*I-17),6,3,1, G(1),6,6,0, CTG(1))\r\n      CALL GMMATS (CTG(1),3,6,0, ALFA(1),6,1,0, P(1))\r\nC\r\nC     TRANSFORM TO GLOBAL\r\nC\r\n      P(4) = 0.0\r\n      P(5) = 0.0\r\n      P(6) = 0.0\r\n      K    = 4*I + 3\r\n      IF (NECPT(K) .NE. 0) CALL BASGLB (P(1),P(1),NECPT(K+1),NECPT(K))\r\nC\r\nC     INSERT LOAD VECTOR FOR GRID POINT\r\nC\r\n      L = NECPT(I+2) - 1\r\n      DO 790 J = 1,3\r\n      L = L + 1\r\n      PG(L) = PG(L) + P(J)\r\n  790 CONTINUE\r\n  800 CONTINUE\r\n      RETURN\r\nC\r\n  900 CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tiger.f",
    "content": "      SUBROUTINE TIGER (IG,LIST,INV,II3,NORIG,KG,JG)\r\nC\r\nC     THIS ROUTINE MAKES ADDITIONS TO THE CONNECTION TABLE IG TO REFLECT\r\nC     THE PRESENCE OF MPC'S AND STORES THE DEPENDENT POINTS IN LIST.\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     NEQ =NUMBER OF MPC EQUATIONS.\r\nC     NEQR=NUMBER OF MPC EQUATIONS COMING FROM RIGID ELEMENTS\r\nC\r\n      INTEGER          SCR1,     BUNPK,    RDREW,    RD,       REW\r\n      DIMENSION        IG(1),    LIST(1),  NORIG(1), KG(1),    SUB(2),\r\n     1                 JG(1),    INV(II3,1)\r\n      COMMON /BANDA /  IBUF1,    NOMPC,    NODEP\r\n      COMMON /BANDB /  DUM6B(6), KDIM\r\n      COMMON /BANDD /  DUM(7),   NEQ,      NEQR\r\n      COMMON /BANDS /  NN,       MM,       DUM2S(2), MAXGRD,   MAXDEG,\r\n     1                 DUM3S(3), NEDGE\r\n      COMMON /GEOMX /  GDUM(3),  SCR1\r\n      COMMON /SYSTEM/  IBUF,     NOUT\r\n      COMMON /NAMES /  RD,       RDREW,    NDUM(2),  REW\r\n      COMMON /ZZZZZZ/  IZ(1)\r\n      DATA             SUB /     4HTIGE, 4HR   /\r\nC\r\n      IF (NEQ+NEQR .EQ. 0) GO TO 170\r\n      KDIM4=KDIM*4\r\n      CALL OPEN (*200,SCR1,IZ(IBUF1),RDREW)\r\nC\r\nC     GENERATE NEW CONNECTIONS.\r\nC     TWO PASSES.   FIRST PASS FOR MPC CARDS, AND SECOND FOR RIGID ELEM.\r\nC\r\n      DO 60 JJ=1,2\r\n      IF (JJ .EQ. 1) NQ=NEQ\r\n      IF (JJ .EQ. 2) NQ=NEQR\r\n      IF (NQ .EQ. 0) GO TO 60\r\nC\r\nC     READ MPC EQUATIONS AND RIGID ELEMENT GRIDS\r\nC     AND CONVERT ORIGINAL GRID NOS. TO INTERNAL LABELS.\r\nC\r\n      DO 50 II=1,NQ\r\n      CALL READ (*210,*210,SCR1,NTERM,1,0,M)\r\n      KK=1\r\n      J2=2\r\n      IF (JJ .EQ. 1) GO TO 10\r\n      K=MOD(NTERM,1000)\r\n      NTERM=NTERM/1000\r\n      KK=NTERM-K\r\n      J2=NTERM\r\n   10 IF (NTERM.GT.KDIM4) GO TO 70\r\n      CALL READ (*210,*210,SCR1,KG,NTERM,1,M)\r\n      CALL SCAT (KG,NTERM,INV,II3,NORIG)\r\nC\r\n      DO 40 K=1,KK\r\n      IGRID=KG(K)\r\n      IF (NODEP.EQ.+1) LIST(IGRID)=IGRID\r\nC\r\nC     IGRID=DEPENDENT GRID POINT IN AN MPC EQUATION.\r\nC\r\n      CALL BUNPAK(IG,IGRID,MAXDEG,JG)\r\n      DO 30 I=1,MAXDEG\r\n      L=JG(I)\r\n      IF (L.LE.0) GO TO 40\r\nC\r\nC     L= A GRID POINT THAT IGRID IS CONNECTED TO BEFORE THE MPC IS APPLI\r\nC\r\n      IF (NTERM.LT.2) GO TO 30\r\n      DO 20 J=J2,NTERM\r\n      CALL SETIG (L,KG(J),IG,NORIG)\r\n   20 CONTINUE\r\n   30 CONTINUE\r\n   40 CONTINUE\r\n   50 CONTINUE\r\n   60 CONTINUE\r\n      GO TO 90\r\nC\r\n   70 WRITE (NOUT,80)\r\n   80 FORMAT (72H0*** MPC CARDS NOT PROCESSED IN BANDIT DUE TO INSUFFICI\r\n     1ENT SCRATCH SPACE,//)\r\n      NEQ =0\r\n      NEQR=0\r\n   90 CALL CLOSE (SCR1,REW)\r\nC\r\nC     QUIT HERE IF MPC DEPENDENT POINTS ARE NOT TO BE DELETED FROM THE\r\nC     CONNECTION TABLE IG.\r\nC\r\n      IF (NODEP.NE.+1) GO TO 170\r\nC\r\nC     COMPRESS OUT ZEROS FORM LIST\r\nC\r\n      N=0\r\n      DO 110 I=1,NN\r\n      IF (LIST(I).EQ.0) GO TO 110\r\n      N=N+1\r\n      LIST(N)=LIST(I)\r\n  110 CONTINUE\r\nC\r\nC     DELETES ALL REFERENCE IN THE CONNECTION TABLE IG TO THOSE POINTS\r\nC     IN LIST\r\nC\r\n      IF (N.LE.0) GO TO 170\r\n      MM1=MM-1\r\n      DO 160 II=1,N\r\n      I=LIST(II)\r\n      CALL BUNPAK (IG,I,MM,JG)\r\n      DO 150 J=1,MM\r\n      L=JG(J)\r\n      IF (L.EQ.0) GO TO 160\r\n      NEDGE=NEDGE-1\r\n      K=0\r\n  120 K=K+1\r\n      M=BUNPK(IG,L,K)\r\n      IF (M.NE. I) GO TO 120\r\n      IF (K.GE.MM) GO TO 140\r\n      DO 130 NP=K,MM1\r\n      IS=BUNPK(IG,L,NP+1)\r\n  130 CALL BPACK (IG,L,NP,IS)\r\n  140 CALL BPACK (IG,L,MM1+1,0)\r\n      CALL BPACK (IG,I,J,0)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n  170 RETURN\r\nC\r\nC     SCR1 FILE ERROR\r\nC\r\n  200 K=-1\r\n      GO TO 220\r\n  210 K=-2\r\n  220 CALL MESAGE (K,SCR1,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/timal3.f",
    "content": "      SUBROUTINE TIMAL3\r\nC\r\nC     ASSEMBLY LANGUAGE ROUTINE FOR TIMTS3\r\nC\r\nC     NOTES FROM G.CHAN/UNISYS, 10/1989\r\nC     THIS ROUTINE IS NOT USED IN NASTRAN. IF IT IS ACTIVATED, MAKE SURE\r\nC     THE EQUIVALENCE OF A=B=C=D=AC=BC=CC=DC=AD=BD=CD=DD IS REMOVED\r\nC\r\n      REAL             B(1),  C(1),  D(1)\r\n      DOUBLE PRECISION AD(2), BD(1), CD(1), DD(1)\r\n      COMPLEX          AC(1), BC(1), CC(1), DC(1)\r\nC\r\n      COMMON /BLANK /  N,M\r\n      COMMON /ZZZZZZ/  A(1)\r\nC\r\n      EQUIVALENCE     (A(1),AC(1),AD(1), B(1),BC(1),BD(1),\r\n     1                 C(1),CC(1),CD(1), D(1),DC(1),DD(1))\r\nC\r\nC\r\n      ENTRY TMTRSP\r\nC     ============\r\nC     REAL SINGLE PRECISION - TIGHT LOOP\r\nC\r\n      DO 100 I = 1,N\r\n      DO 110 J = 1,M\r\n      D(J) = A(J)*B(J) + C(J)\r\n  110 CONTINUE\r\n  100 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMMRSP\r\nC     ============\r\nC     REAL SINGLE PRECISION - MEDIUM LOOP\r\nC\r\n      DO 200 I = 1,N\r\n      DO 210 J = 1,M\r\n      D(J) = A(I)*B(J) + C(J)\r\n  210 CONTINUE\r\n  200 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMLRSP\r\nC     ============\r\nC     REAL SINGLE PRECISION - LOOSE LOOP\r\nC\r\n      DO 300 I = 1,N\r\n      DO 310 J = 1,M\r\n      L = I+J-1\r\n      D(J) = A(I)*B(L) + C(J)\r\n  310 CONTINUE\r\n  300 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMTRDP\r\nC     ============\r\nC     REAL DOUBLE PRECISION - TIGHT LOOP\r\nC\r\n      DO 120 I = 1,N\r\n      DO 130 J = 1,M\r\n      DD(J) = AD(J)*BD(J) + CD(J)\r\n  130 CONTINUE\r\n  120 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMMRDP\r\nC     ============\r\nC     REAL DOUBLE PRECISION - MEDIUM LOOP\r\nC\r\n      DO 220 I = 1,N\r\n      DO 230 J = 1,M\r\n      DD(J) = AD(I)*BD(J) + CD(J)\r\n  230 CONTINUE\r\n  220 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMLRDP\r\nC     ============\r\nC     REAL DOUBLE PRECISION - LOOSE LOOP\r\nC\r\n      DO 320 I = 1,N\r\n      DO 330 J = 1,M\r\n      L = I + J - 1\r\n      DD(J) = AD(I)*BD(L) + CD(J)\r\n  330 CONTINUE\r\n  320 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMTCSP\r\nC     ============\r\nC     COMPLEX SINGLE PRECISION - TIGHT LOOP\r\nC\r\n      DO 410 I = 1,N\r\n      DO 420 J = 1,M\r\n      DC(J) = AC(J)*BC(J) + CC(J)\r\n  420 CONTINUE\r\n  410 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMMCSP\r\nC     ============\r\nC     COMPLEX SINGLE PRECISION - MEDIUM LOOP\r\nC\r\n      DO 430 I = 1,N\r\n      DO 440 J = 1,M\r\n      DC(J) = AC(I)*BC(J) + CC(J)\r\n  440 CONTINUE\r\n  430 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMLCSP\r\nC     ============\r\nC     COMPLEX SINGLE PRECISION - LOOSE LOOP\r\nC\r\n      DO 450 I = 1,N\r\n      DO 460 J = 1,M\r\n      L = I + J - 1\r\n      DC(J) = AC(I)*BC(L) + CC(J)\r\n  460 CONTINUE\r\n  450 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMTCDP\r\nC     ============\r\nC     COMPLEX DOUBLE PRECISION - TIGHT LOOP\r\nC\r\n      DO 160 I = 1,N\r\n      DO 170 J = 1,M\r\nC\r\nC     D(J) AND D(J+1) CALCULATIONS WERE REVERSED\r\nC     IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP\r\nC\r\n      DD(J+1) = AD(J) * BD(J  ) - AD(J+1) * BD(J+1) + CD(J  )\r\n      DD(J  ) = AD(J) * BD(J+1) + AD(J+1) * BD(J  ) + CD(J+1)\r\n  170 CONTINUE\r\n  160 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMMCDP\r\nC     ============\r\nC     COMPLEX DOUBLE PRECISION - MEDIUM LOOP\r\nC\r\n      DO 260 I = 1,N\r\n      DO 270 J = 1,M\r\n      DD(J  ) = AD(I)*BD(J  ) - AD(I+1)*BD(J+1) + CD(J  )\r\n      DD(J+1) = AD(I)*BD(J+1) + AD(I+1)*BD(J  ) + CD(J+1)\r\n  270 CONTINUE\r\n  260 CONTINUE\r\n      GO TO 999\r\nC\r\nC\r\n      ENTRY TMLCDP\r\nC     ============\r\nC     COMPLEX DOUBLE PRECISION - LOOSE LOOP\r\nC\r\n      DO 360 I = 1,N\r\n      DO 370 J = 1,M\r\n      L = I + J - 1\r\n      DD(J  ) = AD(I)*BD(L  ) - AD(I+1)*BD(L+1) + CD(J  )\r\n      DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L  ) + CD(J+1)\r\n  370 CONTINUE\r\n  360 CONTINUE\r\nC\r\n  999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/timeeq.f",
    "content": "      SUBROUTINE TIMEEQ (B,BBAR,C,CBAR,R,IENTRY,NCOL,TIM)\r\nC\r\nC     TIMEEQ SOLVES THE TIME AND CORE FUNCTIONS FOR DECOMP AND CDCOMP\r\nC\r\n      INTEGER         SYSBUF\r\n      REAL            MB(1),MC(1),K1,K2,K3,K4,K5\r\n      COMMON /NTIME / LNTIME, TCONS(15)\r\n     1       /SYSTEM/ KSYSTM(65)\r\nC\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF),(KSYSTM(40),NBPW),\r\n     1                (KSYSTM(55),IPREC ),(TCONS (1) ,AAIO),\r\n     2                (TCONS ( 2),AAPAK ),(TCONS (8),MB(1)),\r\n     3                (TCONS (12),MC(1) )\r\nC\r\nC\r\n      IRET  = 0\r\n      IENTR = IENTRY\r\n    1 AMB   = MB(IPREC)\r\n      AMC   = MC(IPREC)\r\n      IF (NBPW .LT. 60) GO TO 2\r\n      AMB   = 3.0*AMB\r\n      AMC   = 3.0*AMC\r\n    2 AIO   = AAIO\r\n      APAK  = AAPAK\r\n      IF (IENTR .EQ. 1) GO TO 10\r\n      AMB   = 5.*AMB\r\n      AMC   = 5.*AMC\r\n      AIO   = AIO+AIO\r\n      APAK  = 1.1*APAK\r\n   10 IF (IRET .EQ. 1) GO TO 20\r\n      TIM = FLOAT(NCOL)*(AMB*BBAR*R+AMC*(BBAR*C+BBAR*CBAR+B*CBAR+\r\n     1      2.0*C*CBAR)+AIO*BBAR*(B+BBAR-R-1.0))*1.E-06\r\n      RETURN\r\nC\r\nC\r\n      ENTRY TFIN (AB,ABBAR,AC,ACBAR,AR,JENTRY,ANCOL,TIMEX)\r\nC     ====================================================\r\nC\r\n      IRET  = 1\r\n      IENTR = JENTRY\r\n      GO TO 1\r\n   20 TIMEX = 0.\r\n      K1    = ANCOL - AB - ABBAR - ABBAR\r\n      IF (K1 .LE. 0.) GO TO 30\r\n      TIMEX = K1*(AMB*ABBAR*AR+AIO*ABBAR*(AB+ABBAR-AR)+APAK*(AB+ABBAR*\r\n     1        2.))\r\n   30 K2  = AB + ABBAR\r\n      K3  = K2\r\n      IF (ANCOL .GE. AB+ABBAR+ABBAR) GO TO 35\r\n      K2  = ANCOL - ABBAR\r\n      K3  = AB + ABBAR\r\n      IF (ANCOL .LT. AB+ABBAR) K3 = ANCOL\r\n   35 TIMEX = TIMEX+.5*K2*(ABBAR*K2*AMB+(K3-AR)*(AIO-AMB)*ABBAR+\r\n     1        2.*APAK*ABBAR+APAK*K2)\r\n      IF (ANCOL .LT. AB+ABBAR+ABBAR) GO TO 40\r\n      K4 = AB + ABBAR - AR\r\n      K5 = AB + 1.5*ABBAR\r\n      IF (AB .GT. AR) K4 = ABBAR\r\n      GO TO 50\r\n   40 K4 = ANCOL - AR\r\n      K5 = ANCOL\r\n      IF (ANCOL-AR .GT. ABBAR) K4 = ABBAR\r\n   50 TIMEX = TIMEX+ABBAR**3/3.*AMB+K4**3*.5*AIO+APAK*ABBAR*K5\r\n      TIMEX = (TIMEX+(ANCOL-ABBAR)*(AMC*(ABBAR*AC+AB*ACBAR+ABBAR*ACBAR+\r\n     1        AC*ACBAR)+APAK*(AC+ACBAR)))*1.E-06\r\n      RETURN\r\nC\r\nC\r\n      ENTRY RCORE (IB,IBBAR,IC,ICBAR,INCOL,KENTRY,NX,IR)\r\nC     ==================================================\r\nC     ENTRY FOR THE CORE FUNCTION\r\nC\r\n      IR = (NX-((IB+IBBAR+1) +2*KENTRY*MIN0(INCOL,IB+IBBAR+IBBAR)+\r\n     1     2*KENTRY*IC*(IBBAR+2)+2*ICBAR*KENTRY*(MIN0(IB+IBBAR,INCOL)+1)\r\n     2     +2*KENTRY*IC*ICBAR +IC+ICBAR*KENTRY+ICBAR)-6*SYSBUF)/\r\n     3     (2*KENTRY*IBBAR)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/timts1.f",
    "content": "      SUBROUTINE TIMTS1\r\nC\r\nC     TIMTS1 TIME TESTS GINO AND THE PACK ROUTINES\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         SYSBUF, OUTPUT, FILES(2), F1, F2, BUF1, BUF2,\r\n     1                END, RD(4), WRT(4), BCK(4), MCB(7), EOL, EOR,\r\n     2                BLD(16), INT(16), PAK(16), UNP(16), TYPE, P,\r\n     3                TYPIN1, TYPOU1, TYPOU2, ISUBR(2), ANDF, OPT1,\r\n     4                OPT2, NAME(4), MASK( 9), ABLK(15), BBLK(15),\r\n     5                GET(16), PUT(16)\r\n      REAL            X(1), Z(1)\r\n      DOUBLE PRECISION ZD, XD\r\n      CHARACTER       UFM*23, UWM*25, UIM*29, SFM*25\r\n      COMMON /XMSSG / UFM, UWM, UIM, SFM\r\n      COMMON /BLANK / N, M, TYPE, OPT1, OPT2\r\n      COMMON /SYSTEM/ SYSBUF, OUTPUT\r\n      COMMON /ZBLPKX/ ZD(2), IZ\r\n      COMMON /ZNTPKX/ XD(2), IX, EOL, EOR\r\n      COMMON /PACKX / TYPIN1, TYPOU1, I1, J1, INCR1\r\n      COMMON /UNPAKX/ TYPOU2, I2, J2, INCR2\r\n      COMMON /ZZZZZZ/ A(1)\r\n      EQUIVALENCE     (ZD(1),Z(1)),(XD(1),X(1))\r\n      DATA    FILES / 301, 302 / , RD   / 1H , 1H , 1H , 4HREAD /\r\n      DATA    I1000 / 1000     / , I1001/ 1001 /  ,\r\n     1        WRT   / 1H , 1H , 4H   W, 4HRITE /  ,\r\n     2        BCK   / 4H   B, 4HACKW,   4HARD , 4HREAD /\r\n      DATA    BLD   / 1H , 4HBLDP, 4HK( R, 4HSP ) ,\r\n     1                1H , 4HBLDP, 4HK( R, 4HDP ) ,\r\n     2                1H , 4HBLDP, 4HK( C, 4HSP ) ,\r\n     3                1H , 4HBLDP, 4HK( C, 4HDP ) /\r\n      DATA    INT   / 1H , 4HINTP, 4HK( R, 4HSP ) ,\r\n     1                1H , 4HINTP, 4HK( R, 4HDP ) ,\r\n     2                1H , 4HINTP, 4HK( C, 4HSP ) ,\r\n     3                1H , 4HINTP, 4HK( C, 4HDP ) /\r\n      DATA    PAK   / 1H , 4H PAC, 4HK( R, 4HSP ) ,\r\n     1                1H , 4H PAC, 4HK( R, 4HDP ) ,\r\n     2                1H , 4H PAC, 4HK( C, 4HSP ) ,\r\n     3                1H , 4H PAC, 4HK( C, 4HDP ) /\r\n      DATA    UNP   / 1H , 4HUNPA, 4HK( R, 4HSP ) ,\r\n     1                1H , 4HUNPA, 4HK( R, 4HDP ) ,\r\n     2                1H , 4HUNPA, 4HK( C, 4HSP ) ,\r\n     3                1H , 4HUNPA, 4HK( C, 4HDP ) /\r\n      DATA    PUT   / 4H   P, 4HUTST, 4HR( R, 4HSP ) ,\r\n     1                4H   P, 4HUTST, 4HR( R, 4HDP ) ,\r\n     2                4H   P, 4HUTST, 4HR( C, 4HSP ) ,\r\n     3                4H   P, 4HUTST, 4HR( C, 4HDP ) /\r\n      DATA    GET   / 4H   G, 4HETST, 4HR( R, 4HSP ) ,\r\n     1                4H   G, 4HETST, 4HR( R, 4HDP ) ,\r\n     2                4H   G, 4HETST, 4HR( C, 4HSP ) ,\r\n     3                4H   G, 4HETST, 4HR( C, 4HDP ) /\r\n      DATA    NMASK / 9 /\r\n      DATA    ISUBR / 4HTIMT, 4HS1  /\r\nC\r\nC     INITIALIZE\r\nC\r\n      CALL PAGE1\r\n      F1   = FILES(1)\r\n      F2   = FILES(2)\r\n      BUF1 = KORSZ(A) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      END  = N*M\r\n      IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR)\r\n      DO 12 I = 1,END\r\n      A(I) = I\r\n   12 CONTINUE\r\n      N10  = N*10\r\n      M10  = M/10\r\n      IF (M10 .LE. 0) M10 = 1\r\n      FN = N\r\n      FM = M\r\n      P  = 4*(TYPE-1) + 1\r\n      MASK(1) = 1\r\n      DO 14 I = 2,NMASK\r\n   14 MASK(I) = 2*MASK(I-1)\r\n      WRITE  (OUTPUT,11) N, M, TYPE, OPT1, OPT2\r\n   11 FORMAT (1H  , 20X, 25HNASTRAN TIME TEST C   N =, I4, 5H, M =, I4 ,\r\n     1         8H, TYPE =,I4, 8H, OPT1 =,I4, 8H, OPT2 =,I4)\r\nC\r\nC     WRITE TEST\r\nC\r\n      IF (ANDF(OPT2,MASK(1)) .EQ. 0) GO TO 50\r\n      CALL OPEN (*901,F1,A(BUF1),1)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 21 I = 1,N\r\n      CALL WRITE (F1,A,M,1)\r\n   21 CONTINUE\r\n      CALL CPUTIM (T2,T1,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL OPEN (*901,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 22 I = 1,N10\r\n      CALL WRITE (F2,A,M10,1)\r\n   22 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 30 TO IRET\r\n      NAME(1) = WRT(1)\r\n      NAME(2) = WRT(2)\r\n      NAME(3) = WRT(3)\r\n      NAME(4) = WRT(4)\r\n      GO TO 100\r\nC\r\nC     READ TEST\r\nC\r\n   30 CONTINUE\r\n      IF (ANDF(OPT2,MASK(2)) .EQ. 0) GO TO 40\r\n      CALL OPEN (*901,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 31 I = 1,N\r\n      CALL READ (*902,*903,F1,A(I1000),M,1,FLAG)\r\n   31 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,2)\r\n      CALL OPEN (*901,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 32 I = 1,N10\r\n      CALL READ (*902,*903,F2,A(I1000),M10,1,FLAG)\r\n   32 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,2)\r\n      ASSIGN 40 TO IRET\r\n      NAME(1) = RD(1)\r\n      NAME(2) = RD(2)\r\n      NAME(3) = RD(3)\r\n      NAME(4) = RD(4)\r\n      GO TO 100\r\nC\r\nC     BACKWARD READ TEST\r\nC\r\n   40 CONTINUE\r\n      IF (ANDF(OPT2,MASK(3)) .EQ. 0) GO TO 50\r\n      CALL OPEN (*901,F1,A(BUF1),2)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 41 I = 1,N\r\n      CALL BCKREC (F1)\r\n      CALL READ (*902,*903,F1,A(I1000),M,1,FLAG)\r\n      CALL BCKREC (F1)\r\n   41 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL OPEN (*901,F2,A(BUF2),2)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 42 I = 1,N10\r\n      CALL BCKREC (F2)\r\n      CALL READ (*902,*903,F2,A(I1000),M10,1,FLAG)\r\n      CALL BCKREC (F2)\r\n   42 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 50 TO IRET\r\n      NAME(1) = BCK(1)\r\n      NAME(2) = BCK(2)\r\n      NAME(3) = BCK(3)\r\n      NAME(4) = BCK(4)\r\n      GO TO 100\r\nC\r\nC     BLDPK TEST\r\nC\r\n   50 CONTINUE\r\n      IF (ANDF(OPT2,MASK(4)) .EQ. 0) GO TO 70\r\n      CALL OPEN (*901,F1,A(BUF1),1)\r\n      CALL MAKMCB (MCB,F1,M,2,TYPE)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 51 I = 1,N\r\n      CALL BLDPK (TYPE,TYPE,F1,0,0)\r\n      DO 52 J = 1,M\r\n      Z(1) = 1.0\r\n      IZ   = J\r\n      CALL ZBLPKI\r\n   52 CONTINUE\r\n      CALL BLDPKN (F1,0,MCB)\r\n   51 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F1,1)\r\n      CALL MAKMCB (MCB,F2,M10,2,TYPE)\r\n      CALL OPEN (*901,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 54 I = 1,N10\r\n      CALL BLDPK (TYPE,TYPE,F2,0,0)\r\n      DO 55 J = 1,M10\r\n      Z(1) = 2.0\r\n      IZ   = J\r\n      CALL ZBLPKI\r\n   55 CONTINUE\r\n      CALL BLDPKN (F2,0,MCB)\r\n   54 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 60 TO IRET\r\n      NAME(1) = BLD(P)\r\n      NAME(2) = BLD(P+1)\r\n      NAME(3) = BLD(P+2)\r\n      NAME(4) = BLD(P+3)\r\n      GO TO 100\r\nC\r\nC     INTPK TEST\r\nC\r\n   60 CONTINUE\r\n      IF (ANDF(OPT2,MASK(5)) .EQ. 0) GO TO 70\r\n      CALL OPEN (*901,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 61 I = 1,N\r\n      CALL INTPK (*902,F1,0,TYPE,0)\r\n      DO 62 J = 1,M\r\n      CALL ZNTPKI\r\n      IF (IX  .NE. J) GO TO 110\r\n      IF (EOL .EQ. 0) GO TO 62\r\n      IF (IX  .NE. M) GO TO 110\r\n   62 CONTINUE\r\n      IF (EOL .EQ. 0) GO TO 110\r\n   61 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL OPEN (*901,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 63 I = 1,N10\r\n      CALL INTPK (*902,F2,0,TYPE,0)\r\n      DO 64 J = 1,M10\r\n      CALL ZNTPKI\r\n      IF (IX  .NE.   J) GO TO 110\r\n      IF (EOL .EQ.   0) GO TO 64\r\n      IF (IX  .NE. M10) GO TO 110\r\n   64 CONTINUE\r\n      IF (EOL .EQ. 0) GO TO 110\r\n   63 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 70 TO IRET\r\n      NAME(1) = INT(P)\r\n      NAME(2) = INT(P+1)\r\n      NAME(3) = INT(P+2)\r\n      NAME(4) = INT(P+3)\r\n      GO TO 100\r\nC\r\nC     PACK TEST\r\nC\r\n   70 CONTINUE\r\n      IF (ANDF(OPT2,MASK(6)) .EQ. 0) GO TO 90\r\n      CALL MAKMCB (MCB,F1,M,2,TYPE)\r\n      TYPIN1 = TYPE\r\n      TYPOU1 = TYPE\r\n      I1 = 1\r\n      J1 = M\r\n      INCR1 = 1\r\n      MX = M*TYPE\r\n      DO 72 I = 1,MX\r\n      A(I+1000) = I\r\n   72 CONTINUE\r\n      CALL OPEN (*901,F1,A(BUF1),1)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 73 I = 1,N\r\n      CALL PACK (A(I1001),F1,MCB)\r\n   73 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F1,1)\r\n      CALL MAKMCB (MCB,F2,M10,2,TYPE)\r\n      J1 = M10\r\n      CALL OPEN (*901,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 75 I = 1,N10\r\n      CALL PACK (A(I1001),F2,MCB)\r\n   75 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 80 TO IRET\r\n      NAME(1) = PAK(P)\r\n      NAME(2) = PAK(P+1)\r\n      NAME(3) = PAK(P+2)\r\n      NAME(4) = PAK(P+3)\r\n      GO TO 100\r\nC\r\nC     UNPACK TEST\r\nC\r\n   80 CONTINUE\r\n      IF (ANDF(OPT2,MASK(7)) .EQ. 0) GO TO 90\r\n      TYPOU2 = TYPE\r\n      I2 = 1\r\n      J2 = M\r\n      INCR2 = 1\r\n      CALL OPEN (*901,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 81 I = 1,N\r\n      CALL UNPACK (*902,F1,A(I1001))\r\n   81 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      J2 = M10\r\n      CALL OPEN (*901,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 82 I = 1,N10\r\n      CALL UNPACK (*902,F2,A(I1001))\r\n   82 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,2)\r\n      ASSIGN 90 TO IRET\r\n      NAME(1) = UNP(P)\r\n      NAME(2) = UNP(P+1)\r\n      NAME(3) = UNP(P+2)\r\n      NAME(4) = UNP(P+3)\r\n      GO TO 100\r\n   90 CONTINUE\r\nC\r\nC     PUTSTR TEST\r\nC\r\nC\r\n      IF (ANDF(OPT2,MASK(8)) .EQ. 0) GO TO 220\r\n      KERR = 1\r\n      ABLK(1) = F1\r\n      ABLK(2) = TYPE\r\n      ABLK(3) = 1\r\n      CALL GOPEN (F1,A(BUF1),1)\r\n      NWDS = TYPE\r\n      IF (TYPE .EQ. 3) NWDS = 2\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 95 I = 1,N\r\n      ABLK(4) = 0\r\n      ABLK(8) = -1\r\n      DO 94 J = 1,10\r\n      NBRSTR  = M10\r\n   91 CALL PUTSTR (ABLK)\r\n      IF( NBRSTR .EQ. 0) GO TO 910\r\n      ABLK(7) = MIN0(ABLK(6),NBRSTR)\r\n      ABLK(4) = ABLK(4) + ABLK(7) + 4\r\n      MM = ABLK(7)*NWDS\r\n      DO 92 K = 1,MM\r\n      X(1) = A(K)\r\n   92 CONTINUE\r\n      IF (ABLK(7) .EQ. NBRSTR) GO TO 93\r\n      CALL ENDPUT (ABLK)\r\n      NBRSTR = NBRSTR - ABLK(7)\r\n      GO TO 91\r\n   93 IF (J .EQ. 10) ABLK(8) = 1\r\n      CALL ENDPUT (ABLK)\r\n   94 CONTINUE\r\n   95 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      M100 = MAX0(M10/10,1)\r\n      CALL GOPEN (F2,A(BUF2),1)\r\n      KERR = 2\r\n      BBLK(1) = F2\r\n      BBLK(2) = TYPE\r\n      BBLK(3) = 1\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 209 I = 1,N10\r\n      BBLK(4) = 0\r\n      BBLK(8) = -1\r\n      DO 208 J = 1,10\r\n      NBRSTR = M100\r\n  202 CALL PUTSTR (BBLK)\r\n      IF (NBRSTR .EQ. 0) GO TO 910\r\n      BBLK(7) = MIN0(BBLK(6),NBRSTR)\r\n      BBLK(4) = BBLK(4) + BBLK(7) + 4\r\n      MM = BBLK(7)*NWDS\r\n      DO 203 K = 1,MM\r\n      X(1) = A(K)\r\n  203 CONTINUE\r\n      IF (BBLK(7) .EQ. NBRSTR) GO TO 206\r\n      NBRSTR = NBRSTR - BBLK(7)\r\n      GO TO 202\r\n  206 IF (J .EQ. 10) BBLK(8) = 1\r\n      CALL ENDPUT (BBLK)\r\n  208 CONTINUE\r\n  209 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 210 TO IRET\r\n      NAME(1) = PUT(P)\r\n      NAME(2) = PUT(P+1)\r\n      NAME(3) = PUT(P+2)\r\n      NAME(4) = PUT(P+3)\r\n      GO TO 100\r\nC\r\nC     GETSTR TEST\r\nC\r\n  210 IF (ANDF(OPT2,MASK(9)) .EQ. 0) GO TO 220\r\n      CALL GOPEN (F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 214 I = 1,N\r\n      ABLK(8) = -1\r\n  211 CALL GETSTR (*214,ABLK)\r\n      MM = ABLK(6)*NWDS\r\n      DO 212 K = 1,MM\r\n      X(1) = A(K)\r\n  212 CONTINUE\r\n      CALL ENDGET (ABLK)\r\n      GO TO 211\r\n  214 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL GOPEN  (F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 219 I = 1,N10\r\n      BBLK(8) = -1\r\n  215 CALL GETSTR (*219,BBLK)\r\n      MM = BBLK(6)*NWDS\r\n      DO 216 K = 1,MM\r\n      X(1) = A(K)\r\n  216 CONTINUE\r\n      CALL ENDGET (BBLK)\r\n      GO TO 215\r\n  219 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 220 TO IRET\r\n      NAME(1) = GET(P)\r\n      NAME(2) = GET(P+1)\r\n      NAME(3) = GET(P+2)\r\n      NAME(4) = GET(P+3)\r\n      GO TO 100\r\nC\r\n  220 CONTINUE\r\n      RETURN\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO WRITE OUTPUT ONTO THE OUTPUT FILE\r\nC\r\n  100 CONTINUE\r\n      TIME1 = T2 - T1\r\n      TIME2 = T4 - T3\r\n      TPRREC = 1.0E6*(TIME2 - TIME1)/(9.0*FN)\r\n      TPRWRD = (1.0E6*TIME1 - FN*TPRREC)/(FN*FM)\r\nC\r\n      WRITE  (OUTPUT,111) NAME, TIME1, NAME, TIME2, TPRWRD, TPRREC\r\n  111 FORMAT (1H0, 4A4,\r\n     1        '   N     M-WORD RECORDS -- TIME1 = ', E12.5, ' SECONDS'/\r\n     2        1X , 4A4,\r\n     3        ' 10*N M/10-WORD RECORDS -- TIME2 = ', E12.5, ' SECONDS'/\r\n     4        1H0,'IF THE MODEL IS TIME = (N*M)TPRWRD + N*TPRREC, THEN'/\r\n     5        1H0, 16X,\r\n     6        '     -- TIME PER WORD   (TPRWRD) = ', E12.5, ' MICRO',\r\n     7        'SECONDS  --  DATA FOR USE IN COMMON /NTIME/'/\r\n     8        1X , 16X,\r\n     9        '     -- TIME PER RECORD (TPRREC) = ', E12.5, ' MICRO',\r\n     O        'SECONDS')\r\nC\r\n      GO TO IRET, (30,40,50,60,70,80,90,210,220)\r\nC\r\nC     INTERNAL ROUTINE CALLED FOR AN ABORT IN THE INTPK TEST\r\nC\r\n  110 CONTINUE\r\n      WRITE  (OUTPUT,121) SFM,INT(P),INT(P+1),INT(P+2),INT(P+3)\r\n  121 FORMAT (A25,' 2197, ABORT CALLED DURING TIME TEST OF ',4A4)\r\nC\r\nC     ABNORMAL RETURNS FROM GINO--ALL FATAL ERRORS\r\nC\r\n  901 CONTINUE\r\n  902 CONTINUE\r\n  903 CALL MESAGE (-61,0,0)\r\n  910 WRITE  (OUTPUT,911) KERR\r\n  911 FORMAT (23H0*** TIMTS1 FATAL ERROR,I4 )\r\n      GO TO 903\r\n      END\r\n"
  },
  {
    "path": "mis/timts2.f",
    "content": "      SUBROUTINE TIMTS2\r\nC\r\nC     TIMTS2 TIME TESTS CPU TIMES FOR VARIOUS TYPES OF LOOPS\r\nC\r\nC\r\n      INTEGER         SYSBUF, OUTPUT, BUF1, BUF2, END, END2, END4,\r\n     1                P, OPT1, OPT2, TYPE, NAME(4), TIG(16), MED(16),\r\n     2                LOS(16), ISUBR(2)\r\n      REAL            B(1), C(1), D(1)\r\n      DOUBLE PRECISION ADND, AD(1), BD(1), CD(1), DD(1)\r\n      COMPLEX         AC(1), BC(1), CC(1), DC(1), ADNC\r\n      COMMON /BLANK / N, M, TYPE, OPT1, OPT2\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /ZZZZZZ/ A(1)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF), (KSYSTM(2),OUTPUT),\r\n     1                (A(1),AC(1),AD(1), B(1),BC(1),BD(1),\r\n     2                 C(1),CC(1),CD(1), D(1),DC(1),DD(1))\r\n      DATA    TIG   / 1H ,4HTIGH, 4HT( R,4HSP ) ,\r\n     1                1H ,4HTIGH, 4HT( R,4HDP ) ,\r\n     2                1H ,4HTIGH, 4HT( C,4HSP ) ,\r\n     3                1H ,4HTIGH, 4HT( C,4HDP ) /\r\n      DATA    MED   / 1H ,4HMEDI, 4HUM(R,4HSP ) ,\r\n     1                1H ,4HMEDI, 4HUM(R,4HDP ) ,\r\n     2                1H ,4HMEDI, 4HUM(C,4HSP ) ,\r\n     3                1H ,4HMEDI, 4HUM(C,4HDP ) /\r\n      DATA    LOS   / 1H ,4HLOOS, 4HE (R,4HSP ) ,\r\n     1                1H ,4HLOOS, 4HE (R,4HDP ) ,\r\n     2                1H ,4HLOOS, 4HE (C,4HSP ) ,\r\n     3                1H ,4HLOOS, 4HE (C,4HDP ) /\r\n      DATA    ISUBR / 4HTIMT, 4HS2  /, M8/-8/\r\nC\r\nC     INITIALIZE\r\nC\r\n      CALL PAGE1\r\n      WRITE  (OUTPUT,11) N,M,TYPE,OPT1\r\n   11 FORMAT (1H  , 20X, 25HNASTRAN TIME TEST D   N =, I4, 5H, M =, I4 ,\r\n     1        8H, TYPE =,I4, 8H, OPT1 =,I4)\r\n      BUF1 = KORSZ(A) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      END = N*M\r\n      IF (END .GE. BUF1-1) CALL MESAGE (M8,0,ISUBR)\r\nC\r\nC     CPU TIME TESTS\r\nC\r\n      P = 4*(TYPE-1) + 1\r\n      ASQ  = M + N\r\n      ADNO = 1/(ASQ*ASQ)\r\n      ADND = ADNO\r\n      ADNC = CMPLX(ADNO,ADNO)\r\n      END2 = END/2\r\n      END4 = END/4\r\n      GO TO (105,106,107,108), TYPE\r\nC\r\nC     REAL CPU TIME TESTS\r\nC\r\n  105 CONTINUE\r\nC\r\n      IF (M.GT.END .OR. N.GT.END) CALL MESAGE (M8,0,ISUBR)\r\n      DO 111 I = 1,END\r\n  111 A(I) = ADNO\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 100 I = 1,N\r\n      DO 110 J = 1,M\r\n      D(J) = A(J)*B(J) + C(J)\r\n  110 CONTINUE\r\n  100 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 1\r\n      NAME(1) = TIG(P  )\r\n      NAME(2) = TIG(P+1)\r\n      NAME(3) = TIG(P+2)\r\n      NAME(4) = TIG(P+3)\r\n      GO TO 500\r\n  501 CONTINUE\r\nC\r\n      DO 211 I = 1,END\r\n  211 A(I) = ADNO\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 200 I = 1,N\r\n      DO 210 J = 1,M\r\n      D(J) = A(I)*B(J) + C(J)\r\n  210 CONTINUE\r\n  200 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 2\r\n      NAME(1) = MED(P  )\r\n      NAME(2) = MED(P+1)\r\n      NAME(3) = MED(P+2)\r\n      NAME(4) = MED(P+3)\r\n      GO TO 500\r\n  502 CONTINUE\r\nC\r\n      DO 311 I = 1,END\r\n  311 A(I) = ADNO\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 300 I = 1,N\r\n      DO 310 J = 1,M\r\n      L = I + J - 1\r\n      D(J) = A(I)*B(L) + C(J)\r\n  310 CONTINUE\r\n  300 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 3\r\n      NAME(1) = LOS(P  )\r\n      NAME(2) = LOS(P+1)\r\n      NAME(3) = LOS(P+2)\r\n      NAME(4) = LOS(P+3)\r\n      GO TO 500\r\nC\r\nC     DOUBLE PRECISION TESTS\r\nC\r\n  106 CONTINUE\r\nC\r\n      IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (M8,0,ISUBR)\r\n      DO 131 I = 1,END2\r\n  131 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 120 I = 1,N\r\n      DO 130 J = 1,M\r\n      DD(J) = AD(J)*BD(J) + CD(J)\r\n  130 CONTINUE\r\n  120 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 4\r\n      NAME(1) = TIG(P  )\r\n      NAME(2) = TIG(P+1)\r\n      NAME(3) = TIG(P+2)\r\n      NAME(4) = TIG(P+3)\r\n      GO TO 500\r\n  504 CONTINUE\r\nC\r\n      DO 231 I = 1,END2\r\n  231 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 220 I = 1,N\r\n      DO 230 J = 1,M\r\n      DD(J) = AD(I)*BD(J) + CD(J)\r\n  230 CONTINUE\r\n  220 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 5\r\n      NAME(1) = MED(P  )\r\n      NAME(2) = MED(P+1)\r\n      NAME(3) = MED(P+2)\r\n      NAME(4) = MED(P+3)\r\n      GO TO 500\r\n  505 CONTINUE\r\nC\r\n      DO 331 I = 1,END2\r\n  331 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 320 I = 1,N\r\n      DO 330 J = 1,M\r\n      L = I + J - 1\r\n      DD(J) = AD(I)*BD(L) + CD(J)\r\n  330 CONTINUE\r\n  320 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 6\r\n      NAME(1) = LOS(P  )\r\n      NAME(2) = LOS(P+1)\r\n      NAME(3) = LOS(P+2)\r\n      NAME(4) = LOS(P+3)\r\n      GO TO 500\r\nC\r\nC     COMPLEX SINGLE PRECISION TESTS\r\nC\r\n  107 CONTINUE\r\nC\r\n      IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (M8,0,ISUBR)\r\n      DO 421 I = 1,END2\r\n  421 AC(I) = ADNC\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 410 I = 1,N\r\n      DO 420 J = 1,M\r\n      DC(J) = AC(J)*BC(J) + CC(J)\r\n  420 CONTINUE\r\n  410 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 7\r\n      NAME(1) = TIG(P  )\r\n      NAME(2) = TIG(P+1)\r\n      NAME(3) = TIG(P+2)\r\n      NAME(4) = TIG(P+3)\r\n      GO TO 500\r\n  507 CONTINUE\r\nC\r\n      DO 441 I = 1,END2\r\n  441 AC(I) = ADNC\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 430 I = 1,N\r\n      DO 440 J = 1,M\r\n      DC(J) = AC(I)*BC(J) + CC(J)\r\n  440 CONTINUE\r\n  430 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 8\r\n      NAME(1) = MED(P  )\r\n      NAME(2) = MED(P+1)\r\n      NAME(3) = MED(P+2)\r\n      NAME(4) = MED(P+3)\r\n      GO TO 500\r\n  508 CONTINUE\r\nC\r\n      DO 461 I = 1,END2\r\n  461 AC(I) = ADNC\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 450 I = 1,N\r\n      DO 460 J = 1,M\r\n      L = I + J - 1\r\n      DC(J) = AC(I)*BC(L) + CC(J)\r\n  460 CONTINUE\r\n  450 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 9\r\n      NAME(1) = LOS(P  )\r\n      NAME(2) = LOS(P+1)\r\n      NAME(3) = LOS(P+2)\r\n      NAME(4) = LOS(P+3)\r\n      GO TO 500\r\nC\r\nC     DOUBLE PRECISION COMPLEX TESTS\r\nC\r\n  108 CONTINUE\r\nC\r\n      IF (M.GT.END4 .OR. N.GT.END4) CALL MESAGE (M8,0,ISUBR)\r\n      DO 171 I = 1,END2\r\n  171 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 160 I = 1,N\r\n      DO 170 J = 1,M\r\nC\r\nC     D(J) AND D(J+1) CALCULATIONS WERE REVERSED\r\nC     IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP\r\nC\r\n      DD(J+1) = AD(J)*BD(J  ) - AD(J+1)*BD(J+1) + CD(J  )\r\n      DD(J  ) = AD(J)*BD(J+1) + AD(J+1)*BD(J  ) + CD(J+1)\r\n  170 CONTINUE\r\n  160 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 10\r\n      NAME(1) = TIG(P  )\r\n      NAME(2) = TIG(P+1)\r\n      NAME(3) = TIG(P+2)\r\n      NAME(4) = TIG(P+3)\r\n      GO TO 500\r\n  510 CONTINUE\r\nC\r\n      DO 271 I = 1,END2\r\n  271 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 260 I = 1,N\r\n      DO 270 J = 1,M\r\n      DD(J  ) = AD(I)*BD(J  ) - AD(I+1)*BD(J+1) + CD(J  )\r\n      DD(J+1) = AD(I)*BD(J+1) + AD(I+1)*BD(J  ) + CD(J+1)\r\n  270 CONTINUE\r\n  260 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 11\r\n      NAME(1) = MED(P  )\r\n      NAME(2) = MED(P+1)\r\n      NAME(3) = MED(P+2)\r\n      NAME(4) = MED(P+3)\r\n      GO TO 500\r\n  511 CONTINUE\r\nC\r\n      DO 371 I = 1,END2\r\n  371 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 360 I = 1,N\r\n      DO 370 J = 1,M\r\n      L = I + J - 1\r\n      DD(J  ) = AD(I)*BD(L  ) - AD(I+1)*BD(L+1) + CD(J  )\r\n      DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L  ) + CD(J+1)\r\n  370 CONTINUE\r\n  360 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IRET = 12\r\n      NAME(1) = LOS(P  )\r\n      NAME(2) = LOS(P+1)\r\n      NAME(3) = LOS(P+2)\r\n      NAME(4) = LOS(P+3)\r\n      GO TO 500\r\n  600 CONTINUE\r\n      RETURN\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO WRITE OUTPUT ONTO THE OUTPUT FILE\r\nC\r\n  500 TIME = T2 - T1\r\n      ITOT = M*N\r\n      TPEROP = 1.0E6*TIME/ITOT\r\n      IF (IRET.EQ.2 .OR. IRET.EQ.5 .OR. IRET.EQ.8 .OR. IRET.EQ.11)\r\n     1    WRITE (OUTPUT,998) NAME,ITOT,TIME,TPEROP\r\nC\r\n      IF (IRET.NE.2 .AND. IRET.NE.5 .AND. IRET.NE.8 .AND. IRET.NE.11)\r\n     1    WRITE (OUTPUT,999) NAME,ITOT,TIME,TPEROP\r\nC\r\n  998 FORMAT (1H0, 4A4, ' CPU TIME FOR ', I9,\r\n     1        ' OPERATIONS = ', E12.5, ' SECONDS'/\r\n     2        1X , 16X, ' CPU TIME FOR ', '      ONE',\r\n     3        ' OPERATION  = ', E12.5, ' MICROSECONDS')\r\nC\r\n  999 FORMAT (1H0, 4A4, ' CPU TIME FOR ', I9,\r\n     1        ' OPERATIONS = ', E12.5, ' SECONDS'/\r\n     2        1X , 16X, ' CPU TIME FOR ', '      ONE',\r\n     3        ' OPERATION  = ', E12.5, ' MICROSECONDS',\r\n     4        '  ---  DATA FOR USE IN COMMON /NTIME/')\r\nC\r\n      GO TO (501,502,600,504,505,600,507,508,600,510,511,600), IRET\r\n      END\r\n"
  },
  {
    "path": "mis/timtst.f",
    "content": "      SUBROUTINE TIMTST\r\nC\r\nC     TIMETEST   /,/ C,N,N / C,N,M / C,N,T / C,N,O1 / C,N,O2 $\r\nC\r\n      INTEGER         T,O1,O2\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / N,M,T,O1,O2\r\n      COMMON /SYSTEM/ ISYSBF, NOUT\r\nC\r\n      IF (O1.LT.1 .OR. O1.GT.2) GO TO 9901\r\n      GO TO (100, 200), O1\r\nC\r\n  100 CONTINUE\r\n      CALL TIMTS1\r\n      GO TO 900\r\nC\r\n  200 CONTINUE\r\n      CALL TIMTS2\r\nC\r\n  900 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 9901 WRITE  (NOUT,9951) UWM\r\n 9951 FORMAT (A25,' 2195, ILLEGAL VALUE FOR P4 =',I7)\r\nC\r\n      WRITE  (NOUT,9996)\r\n 9996 FORMAT ('0*** MODULE TIMETEST TERMINAL ERROR.')\r\nC\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/tipe.f",
    "content": "      SUBROUTINE TIPE (X,Y,XYD,CHR,N,OPT)\r\nC\r\nC     (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS\r\nC             LEFT-TO-RIGHT OR TOP-TO-BOTTOM.\r\nC     XYD   = +/-1 IF X = STARTING OR ENDING POINT OF THE LINE.\r\nC           = +/-2 IF Y = STARTING OR ENDING POINT OF THE LINE.\r\nC     CHR   = CHARACTERS TO BE TYPED.\r\nC     N     = NUMBER OF CHARACTERS.\r\nC     OPT   = -1 TO INITIATE  THE TYPING MODE.\r\nC           = +1 TO TERMINATE THE TYPING MODE.\r\nC           =  0 TO TYPE A LINE.\r\nC\r\n      INTEGER         XYD,CHR(1),OPT,PLOTER,CHAR,C(80),BLANK,LSTCHR,\r\n     1                CHARX,D\r\n      REAL            XY(2,2)\r\n      COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTCHR(2)\r\n      COMMON /CHAR94/ CHAR(60)\r\n      DATA    BLANK , LSTCHR / 48,47 /\r\nC\r\n      IF (OPT .NE. 0)  GO TO 150\r\nC\r\nC     OPT = 0.\r\nC\r\n      D = MAX0(IABS(XYD),1)\r\n      S = CNTCHR(D)\r\n      IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S\r\n      XY(1,1) = X\r\n      XY(2,1) = Y\r\n      XY(1,2) = XY(1,1)\r\n      XY(2,2) = XY(2,1)\r\nC\r\nC     PRINT A MAXIMUM OF 80 CHARACTERS AT A TIME.\r\nC\r\n      DO 130 J = 1,N,80\r\n      IF (XYD .LT. 0) GO TO 105\r\n      L1 = J\r\n      L2 = L1 + 79\r\n      IF (L2 .GT. N) L2 = N\r\n      GO TO 106\r\n  105 L2 = N  - J + 1\r\n      L1 = L2 - 79\r\n      IF (L1 .LE. 0) L1 = 1\r\nC\r\n  106 NC = 0\r\n      DO 120 L = L1,L2\r\n      CHARX = CHR(L)\r\n      DO 110 I = 1,LSTCHR\r\n      IF (CHARX .EQ. CHAR(I)) GO TO 111\r\n  110 CONTINUE\r\n      I  = BLANK\r\n  111 NC = NC + 1\r\n      C(NC) = I\r\n  120 CONTINUE\r\nC\r\nC     TYPE THE -NC- CHARACTERS JUST PROCESSED.\r\nC\r\n      XY(D,2) = XY(D,1) + S*FLOAT(L1-1)\r\n      CALL TYPE10 (XY(1,2),XY(2,2),XYD,C,NC,0)\r\n      GO TO 130\r\n  130 CONTINUE\r\n      GO TO 200\r\nC\r\nC     OPT = +/-1\r\nC\r\n  150 CALL TYPE10 (0,0,0,0,0,OPT)\r\n      GO TO 200\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tis2d8.f",
    "content": "      SUBROUTINE TIS2D8 (TEMP,PG)\r\nC\r\nC     THIS ROUTINE COMPUTES EQUIVALENT LOADS DUE TO GRID POINT\r\nC     TEMPERATURES FOR THE 2-D, 8 GRID POINT ISOPARAMETRIC ELEMENT\r\nC\r\nC     ECPT LIST                        IN\r\nC                                      THIS\r\nC     ECPT       DESCRIPTION           ROUTINE         TYPE\r\nC     --------   --------------------  --------       -------\r\nC     ECPT( 1) = ELEMENT ID            NECPT(1)       INTEGER\r\nC     ECPT( 2) = GRID POINT 1          NGRID(1)       INTEGER\r\nC     ECPT( 3) = GRID POINT 2          NGRID(2)       INTEGER\r\nC     ECPT( 4) = GRID POINT 3          NGRID(3)       INTEGER\r\nC     ECPT( 5) = GRID POINT 4          NGRID(4)       INTEGER\r\nC     ECPT( 6) = GRID POINT 5          NGRID(5)       INTEGER\r\nC     ECPT( 7) = GRID POINT 6          NGRID(6)       INTEGER\r\nC     ECPT( 8) = GRID POINT 7          NGRID(7)       INTEGER\r\nC     ECPT( 9) = GRID POINT 8          NGRID(8)       INTEGER\r\nC     ECPT(10) = COORD SYS ID-STRESS   ID1            INTEGER\r\nC     ECPT(11) = ANIS. MATERIAL ANGLE  TH             REAL\r\nC     ECPT(12) = MATERIAL ID           MATID1         INTEGER\r\nC     ECPT(13) = THICKNESS             T              REAL\r\nC     ECPT(14) = COORD SYS ID 1        ISYS1          INTEGER\r\nC     ECPT(15) = X1                    X1             REAL\r\nC     ECPT(16) = Y1                    Y1             REAL\r\nC     ECPT(17) = Z1                    Z1             REAL\r\nC     ECPT(18) = COORD SYS ID 2        ISYS2          INTEGER\r\nC     ECPT(19) = X2                    X2             REAL\r\nC     ECPT(20) = Y2                    Y2             REAL\r\nC     ECPT(21) = Z2                    Z2             REAL\r\nC     ECPT(22) = COORD SYS ID 3        ISYS3          INTEGER\r\nC     ECPT(23) = X3                    X3             REAL\r\nC     ECPT(24) = Y3                    Y3             REAL\r\nC     ECPT(25) = Z3                    Z3             REAL\r\nC     ECPT(26) = COORD SYS ID 4        ISYS4          INTEGER\r\nC     ECPT(27) = X4                    X4             REAL\r\nC     ECPT(28) = Y4                    Y4             REAL\r\nC     ECPT(29) = Z4                    Z4             REAL\r\nC     ECPT(30) = COORD SYS ID 5        ISYS5          INTEGER\r\nC     ECPT(31) = X5                    X5             REAL\r\nC     ECPT(32) = Y5                    Y5             REAL\r\nC     ECPT(33) = Z5                    Z5             REAL\r\nC     ECPT(34) = COORD SYS ID 6        ISYS6          INTEGER\r\nC     ECPT(35) = X6                    XL             REAL\r\nC     ECPT(36) = Y6                    Y6             REAL\r\nC     ECPT(37) = Z6                    Z6             REAL\r\nC     ECPT(38) = COORD SYS ID 7        ISYS7          INTEGER\r\nC     ECPT(39) = X7                    X7             REAL\r\nC     ECPT(40) = Y7                    Y7             REAL\r\nC     ECPT(41) = Z7                    Z7             REAL\r\nC     ECPT(42) = COORD SYS ID 8        ISYS8          INTEGER\r\nC     ECPT(43) = X8                    X8             REAL\r\nC     ECPT(44) = Y8                    Y8             REAL\r\nC     ECPT(45) = Z8                    Z8             REAL\r\nC     ECPT(46) = ELEMENT TEMP          TTEMP          REAL\r\nC\r\n      REAL            KX,KY\r\n      DIMENSION       G(9),QQ(15),XI(8),ETA(8),XY1(3),XY2(3),BT(12),\r\n     1                ECPT(1),TEMPAR(8),DNX(1),DNY(1),IZ(1),DNXI(1),\r\n     2                DNETA(1),TEMP(8),PG(1),DN(8),IWS(2,3),\r\n     3                VEC(3),VVEC(3),VECI(3),VECJ(3),VECK(3),E1T(6)\r\n      COMMON /TRANX / Z(14)\r\n      COMMON /TRIMEX/ NECPT(1),NGRID(8),ID1,TH,MATID1,T,ISYS1,X1,Y1,Z1,\r\n     1                ISYS2,X2,Y2,Z2,ISYS3,X3,Y3,Z3,ISYS4,X4,Y4,Z4,\r\n     2                ISYS5,X5,Y5,Z5,ISYS6,X6,Y6,Z6,ISYS7,X7,Y7,Z7,\r\n     3                ISYS8,X8,Y8,Z8,TTEMP,SAVE(16),RTSIDE(3),TEMPAV,\r\n     4                ALPHAS(3),XX(16),DNC(16),DNL(16),XXJB(2,2),\r\n     5                XJB(4),PT(3),H(3),G,BT,DETERM,DUMARG\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                TREF,GE,KX,KY,C\r\n      EQUIVALENCE     (ECPT(1),NECPT(1)),(Z(1),IZ(1)),(QQ(1),G11),\r\n     1                (DNC(1),DNXI(1)),(DNC(9),DNETA(1)),\r\n     2                (DNL(1),DNX(1)),(DNL(9),DNY(1)),\r\n     3                (TEMPAR(1),BT(1)),(XY1(1),X1),(XY2(1),X2)\r\n      DATA    XI    / -1., 1., 1., -1., 0., 1., 0., -1./\r\n      DATA    ETA   / -1.,-1., 1.,  1.,-1., 0., 1.,  0./\r\nC\r\nC     UNIT I VECTOR IS FROM GRID POINT 1 TO GRID POINT 2\r\nC\r\n      DO 20 I = 1,3\r\n      VECI(I) = XY2(I) - XY1(I)\r\n   20 CONTINUE\r\n      VECIL = SQRT(VECI(1)**2 + VECI(2)**2 + VECI(3)**2)\r\n      IF (VECIL .EQ. 0.0) GO TO 40\r\n      VECI(1) = VECI(1)/VECIL\r\n      VECI(2) = VECI(2)/VECIL\r\n      VECI(3) = VECI(3)/VECIL\r\nC\r\nC     K VECTOR IS OBTAINED BY CROSSING I INTO VECTOR FROM GRID PT. 1 TO\r\nC     GRID\r\nC\r\n      VECK(1) = VECI(2)*(Z4-Z1) - VECI(3)*(Y4-Y1)\r\n      VECK(2) = VECI(3)*(X4-X1) - VECI(1)*(Z4-Z1)\r\n      VECK(3) = VECI(1)*(Y4-Y1) - VECI(2)*(X4-X1)\r\n      VECKL   = SQRT(VECK(1)**2 + VECK(2)**2 + VECK(3)**2)\r\n      IF (VECKL .EQ. 0.0) GO TO 40\r\n      VECK(1) = VECK(1)/VECKL\r\n      VECK(2) = VECK(2)/VECKL\r\n      VECK(3) = VECK(3)/VECKL\r\nC\r\nC     J VECTOR IS OBTAINED BY CROSSING K INTO I\r\nC\r\n      VECJ(1) = VECK(2)*VECI(3) - VECK(3)*VECI(2)\r\n      VECJ(2) = VECK(3)*VECI(1) - VECK(1)*VECI(3)\r\n      VECJ(3) = VECK(1)*VECI(2) - VECK(2)*VECI(1)\r\nC\r\n      E1T(1) = VECI(1)\r\n      E1T(2) = VECI(2)\r\n      E1T(3) = VECI(3)\r\n      E1T(4) = VECJ(1)\r\n      E1T(5) = VECJ(2)\r\n      E1T(6) = VECJ(3)\r\nC\r\nC     STORE ELEMENT COORDS FOR GRIDS 1 AND 2\r\nC\r\n      XX(1) = 0.\r\n      XX(2) = 0.\r\n      XX(3) = VECIL\r\n      XX(4) = 0.\r\nC\r\nC     FOR GRIDS 3-8, THE X COORDINATE IS THE DOT PRODUCT OF HTE VECTOR\r\nC     FROM THE GRID POINT TO\r\nC     GRID POINT 1 TO THE GRID POINT AND THE I VECTOR. THE Y COORD. IS\r\nC     THE L OF THE I VECTOR CROSSED INTO THE VECTOR FROM GRID 1 TO THE\r\nC     GRID POINT.\r\nC\r\n      DO 30 I = 3,8\r\n      IXX  = 2*I - 1\r\n      ISUB = 4*I + 11\r\n      VEC(1)  = ECPT(ISUB  ) - X1\r\n      VEC(2)  = ECPT(ISUB+1) - Y1\r\n      VEC(3)  = ECPT(ISUB+2) - Z1\r\n      XX(IXX) = VEC(1)*VECI(1) + VEC(2)*VECI(2) + VEC(3)*VECI(3)\r\n      VVEC(1) = VECI(2)*VEC(3) - VECI(3)*VEC(2)\r\n      VVEC(2) = VECI(3)*VEC(1) - VECI(1)*VEC(3)\r\n      VVEC(3) = VECI(1)*VEC(2) - VECI(2)*VEC(1)\r\n      XX(IXX+1) = SQRT(VVEC(1)**2 + VVEC(2)**2 + VVEC(3)**2)\r\n   30 CONTINUE\r\n      GO TO 150\r\nC\r\nC     INAPPROPRIATE GEOMETRY\r\nC\r\n   40 CALL MESAGE (-30,31,ECPT(1))\r\nC\r\nC     COMPUTE MATERIAL PROPERTIES\r\nC\r\n  150 TTH   = TH*3.1415927/180.\r\n      SINTH = SIN(TTH)\r\n      COSTH = COS(TTH)\r\n      INFLAG= 2\r\n      MATID = MATID1\r\nC\r\nC     ZERO OUT SOME MATRICES\r\nC\r\n      DO 225 I = 1,16\r\n  225 SAVE(I) = 0.\r\nC\r\n      PT(1) =-0.57735027\r\n      PT(2) =-PT(1)\r\n      H(1)  = 1.\r\n      H(2)  = 1.\r\n      IF (ID1 .EQ. 2) GO TO 226\r\n      PT(1) =-0.77459667D0\r\n      PT(2) = 0.D0\r\n      PT(3) =-PT(1)\r\n      H(1)  = 5.0/9.0\r\n      H(2)  = 8.0/9.0\r\n      H(3)  = H(1)\r\nC\r\nC     2 OR 3 QUADRATURE POINTS\r\nC\r\n  226 DO 255 III = 1,ID1\r\n      DO 255 JJJ = 1,ID1\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO XI AND ETA\r\nC     EACH GRID POINT\r\nC\r\n      DO 230 N = 1,4\r\n      DN(N)   = 0.25*(1.+PT(III)*XI(N))*(1.+PT(JJJ)*ETA(N))*\r\n     1          (PT(III)*XI(N)+PT(JJJ)*ETA(N)-1.)\r\n      DNXI(N) = 0.25*XI(N)*(1.+PT(JJJ)*ETA(N))*\r\n     1          (2.*PT(III)*XI(N)+PT(JJJ)*ETA(N))\r\n      DNETA(N)= 0.25*ETA(N)*(1.+PT(III)*XI(N))*\r\n     1          (PT(III)*XI(N)+2.*PT(JJJ)*ETA(N))\r\n  230 CONTINUE\r\nC\r\n      DO 231 N = 5,7,2\r\n      DN(N)   = 0.5*(1.-PT(III)*PT(III))*(1.+PT(JJJ)*ETA(N))\r\n      DNXI(N) =-PT(III)*(1.+PT(JJJ)*ETA(N))\r\n      DNETA(N)= 0.5*(1.-PT(III)*PT(III))*ETA(N)\r\n  231 CONTINUE\r\nC\r\n      DO 232 N = 6,8,2\r\n      DN(N)   = 0.5*(1.+PT(III)*XI(N))*(1.-PT(JJJ)*PT(JJJ))\r\n      DNXI(N) = 0.5*XI(N)*(1.-PT(JJJ)*PT(JJJ))\r\n      DNETA(N)=-PT(JJJ)*(1.+PT(III)*XI(N))\r\n  232 CONTINUE\r\nC\r\nC     COMPUTE JACOBEAN\r\nC\r\nC           N1XI   N2XI   N3XI   N4XI   N5XI   N6XI   N7XI   N8XI\r\nC     DNC = N1ETA  N2ETA  N3ETA  N4ETA  N5ETA  N6ETA  N7ETA  N8ETA\r\nC\r\nC          X1  Y1\r\nC          X2  Y2\r\nC          X3  Y3\r\nC     XX = X4  Y4\r\nC          X5  Y5\r\nC          X6  Y6\r\nC          X7  Y7\r\nC          X8  Y8\r\nC\r\n      CALL GMMATS (DNC,2,8,0, XX,8,2,0, XJB)\r\nC\r\nC     XJB IS ROW-STORED-IT MUST BE COLUMN-STORED AND DOUBLY DIMENSIONED\r\nC     FOR INVERSION\r\nC\r\n      K = 0\r\n      DO 240 I = 1,2\r\n      DO 240 J = 1,2\r\n      K = K + 1\r\n  240 XXJB(I,J) = XJB(K)\r\nC\r\nC     COMPUTE INVERSE AND DETERMINANT OF JACOBEAN\r\nC\r\n      CALL INVERS (2,XXJB,2,DUMARG,0,DETERM,ISING,IWS)\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,143,ECPT(1))\r\nC\r\nC     COMPUTE DERIVATIVES WITH RESPECT TO X,Y,AND Z\r\nC\r\n      K = 0\r\n      DO 245 I = 1,2\r\n      DO 245 J = 1,2\r\n      K = K + 1\r\n  245 XJB(K) = XXJB(I,J)\r\n      CALL GMMATS (XJB,2,2,0, DNC,2,8,0, DNL)\r\nC\r\nC           N1X N2X N3X N4X N5X N6X N7X N8X\r\nC     DNL = N1Y N2Y N3Y N4Y N5Y N6Y N7Y N8Y\r\nC\r\n      COEF = DETERM*H(III)*H(JJJ)\r\nC\r\nC     COMPUTE GAUSS POINT TEMPERATURE\r\nC\r\n      GSTEMP = 0.\r\n      DO 234 N = 1,8\r\n      GSTEMP = GSTEMP + DN(N)*(TEMP(N))\r\n  234 CONTINUE\r\nC\r\nC     GSTEMP IS THE GAUSS POINT TEMPERATURE. FIND MATERIAL PROPERTIES\r\nC     BASED ON THIS TEMPERATURE. IF SAME AS PREVIOUS TEMPERATURE,DO NOT\r\nC     RECOMPUTE.\r\nC\r\n      LLL = III*JJJ\r\n      IF (LLL .EQ. 1) GO TO 236\r\n      IF (GSTEMP .EQ. ELTEMP) GO TO 237\r\n  236 ELTEMP = GSTEMP\r\n      CALL MAT (ECPT(1))\r\n      DO 160 I = 1,3\r\n  160 G(I) = QQ(I)\r\n      G(4) = QQ(2)\r\n      G(5) = QQ(4)\r\n      G(6) = QQ(5)\r\n      G(7) = QQ(3)\r\n      G(8) = QQ(5)\r\n      G(9) = QQ(6)\r\n      ALPHAS(1) = ALPHA1\r\n      ALPHAS(2) = ALPHA2\r\n      ALPHAS(3) = ALP12\r\nC\r\n      CALL GMMATS (G,3,3,0, ALPHAS,3,1,0, RTSIDE)\r\nC\r\nC     COMPUTE RELATIVE GAUSS POINT TEMPERATURE\r\nC\r\n      RGTEMP = GSTEMP - TREF\r\nC\r\n  237 CONTINUE\r\nC\r\n      COEF = COEF*RGTEMP\r\nC\r\nC     SET UP BT\r\nC\r\n      DO 239 KK = 1,8\r\nC\r\n      DO 238 I = 1,6\r\n  238 BT(I) = 0.\r\nC\r\n      BT(1) = DNX(KK)\r\n      BT(3) = DNY(KK)\r\n      BT(5) = BT(3)\r\n      BT(6) = BT(1)\r\nC\r\n      CALL GMMATS (BT,2,3,0, RTSIDE,3,1,0, TEMPAR(7))\r\nC\r\nC     ADD TO PREVIOUS RESULTS\r\nC\r\n      SAVE(2*KK-1) = SAVE(2*KK-1) + TEMPAR(7)*COEF\r\n      SAVE(2*KK  ) = SAVE(2*KK  ) + TEMPAR(8)*COEF\r\nC\r\nC     CONTINUE FOR MORE GRID POINTS\r\nC\r\n  239 CONTINUE\r\nC\r\nC     CONTINUE FOR MORE GAUSS POINTS\r\nC\r\n  255 CONTINUE\r\nC\r\nC     TRANSFORMATIONS AND ADD TO OVERALL VECTOR\r\nC\r\n      DO 350 KK = 1,8\r\n      TEMPAR(7) = SAVE(2*KK-1)\r\n      TEMPAR(8) = SAVE(2*KK  )\r\nC\r\nC     CONVERT FROM ELEMENT COORDINATES TO BASIC\r\nC\r\n      CALL GMMATS (E1T,2,3,1, TEMPAR(7),2,1,0, TEMPAR(1))\r\n      ISUB = 4*KK + 10\r\n      IF (NECPT(ISUB) .EQ. 0) GO TO 300\r\nC\r\nC     MUST TRANSFORM FROM BASIC COORDS TO GLOBAL\r\nC\r\n      CALL BASGLB (TEMPAR(1),TEMPAR(1),ECPT(ISUB+1),NECPT(ISUB))\r\nC\r\nC     ADD THIS VECTOR TO OVERALL LOAD VECTOR\r\nC\r\n  300 DO 310 I = 1,3\r\n      L = NGRID(KK) + I - 1\r\n  310 PG(L) = PG(L) + TEMPAR(I)*T\r\nC\r\nC     GET ANOTHER PARTITION\r\nC\r\n  350 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tker.f",
    "content": "      SUBROUTINE TKER (X0,Y0,Z0,KR,BR,SGR,CGR,SGS,CGS,T1,T2,M)\r\nC\r\nC     COMPUTES EITHER THE TOTAL KERNELS (IND=0) USED IN THE CALCULATION\r\nC     OF A FINITE LENGTH DOUBLET LINE,  OR\r\nC     THE INCREMENTAL OSCILLATORY KERNELS (IND=1) USED IN EVALUATING\r\nC     THE INFLUENCE COEFFICIENT MATRIX ELEMENTS\r\nC\r\n      REAL         M,KR,I00R,I00I,J00R,J00I,I10R,I10I,I20R3,I20I3,I0UR,\r\n     1             I0UI,J0UR,J0UI,I1UR,I1UI,I2UR3,I2UI3,K1,MU1,MU,K2,\r\n     2             K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P,KD1R,\r\n     3             KD1I, KD2R,KD2I\r\n      COMMON /DLM/ K10,K20,K1RT1,K1IT1,K2RT2P,K2IT2P,K10T1,K20T2P\r\n      COMMON /KDS/ IND,KD1R,KD1I,KD2R,KD2I\r\nC\r\n      EPS    = 0.00001\r\n      K10    = 0.0\r\n      K20    = 0.0\r\n      K1RT1  = 0.0\r\n      K1IT1  = 0.0\r\n      K2RT2P = 0.0\r\n      K2IT2P = 0.0\r\n      K10T1  = 0.0\r\n      K20T2P = 0.0\r\n      R1     = SQRT(Y0*Y0 + Z0*Z0)\r\n      R1S    = R1\r\n      IF (ABS(R1) .GT. EPS) GO TO 200\r\n      IF (X0) 905,120,120\r\n  120 C1     = KR*X0/BR\r\n      T1     = CGR*CGS + SGR*SGS\r\n      K10    = 2.0\r\n      K1RT1  = 2.0*T1*COS(C1)\r\n      K1IT1  =-2.0*T1*SIN(C1)\r\n      K10T1  = 2.0*T1\r\n      GO TO  905\r\n  200 C1     = CGR\r\n      C2     = SGR\r\n      C3     = CGS\r\n      C4     = SGS\r\n      T2P    = (Z0*Z0*C1*C3 + Y0*Y0*C2*C4 - Z0*Y0*(C2*C3+C1*C4))\r\n      T2     = (100.*T2P)/(BR*BR)\r\n      IF (ABS(T2)-EPS) 210,220,220\r\n  210 ICHUZ  = 1\r\n      T1     = CGR*CGS + SGR*SGS\r\n      T2     = 0.0\r\n      GO TO 300\r\n  220 T1     = CGR*CGS + SGR*SGS\r\n      IF (ABS(T1)-EPS) 230,240,240\r\n  230 ICHUZ  = 2\r\n      T1     = 0.\r\n      GO TO 300\r\n  240 ICHUZ  = 3\r\n  300 BETA2  = (1.-M*M)\r\n      BIGR   = SQRT(X0*X0 + BETA2*R1*R1)\r\n      K1     = KR*R1/BR\r\n      MU1    = (M*BIGR-X0)/(BETA2*R1)\r\n      MU     = ABS(MU1)\r\n      K2     = K1*K1\r\n      IF (MU1) 310,320,330\r\n  310 ICHUZ  = ICHUZ + 3\r\n      GO TO 330\r\n  320 ICHUZ  = ICHUZ + 6\r\nC\r\nC     (N*C)**2  FOR  N = 1,11  AND C = .372 =\r\nC\r\nC       .138384      .553536     1.245456      2.214144\r\nC      3.4596       4.981824     6.780816      8.856576\r\nC     11.209104    13.8384      16.744464\r\nC\r\nC     (N*C)  FOR  N = 1,12  AND  14,16,18,20,22   =\r\nC\r\nC       .744        1.116        1.488         1.86      2.232\r\nC      2.604        2.976        3.348         3.72      4.092\r\nC      4.464        5.208        5.952         6.696     7.44\r\nC      8.184\r\nC\r\nC     A(N)  FOR N = 1,11  =\r\nC\r\nC      .24186198   -2.7918027    24.991079    -111.59196\r\nC      271.43549   -305.75288    -41.18363     545.98537\r\nC     -644.78155    328.72755    -64.279511\r\nC\r\n  330 CONTINUE\r\n      EXARG = -0.372*MU\r\nC\r\nC     THE FOLLOWING TEST ON THE SIZE OF THE ARGUMENT TO  EXP  IS\r\nC     NEEDED TO AVOID UNDERFLOW IN  SUBPROGRAM  EXP\r\nC\r\n      IF (EXARG .GE. -180.0) GO TO 335\r\n      E   = 0.0\r\n      GO TO 337\r\n  335 E   = EXP(EXARG)\r\n  337 CONTINUE\r\n      C1  =  0.138384 + K2\r\n      C2  =  0.553536 + K2\r\n      C3  =  1.245456 + K2\r\n      C4  =  2.214144 + K2\r\n      C5  =  3.4596   + K2\r\n      C6  =  4.981824 + K2\r\n      C7  =  6.780816 + K2\r\n      C8  =  8.856576 + K2\r\n      C9  = 11.209104 + K2\r\n      C10 = 13.8384   + K2\r\n      C11 = 16.744464 + K2\r\n      R1  = .24186198 / C1\r\n      R2  =-2.7918027 / C2\r\n      R3  = 24.991079 / C3\r\n      R4  =-111.59196 / C4\r\n      R5  = 271.43549 / C5\r\n      R6  =-305.75288 / C6\r\n      R7  =-41.18363  / C7\r\n      R8  = 545.98537 / C8\r\n      R9  =-644.78155 / C9\r\n      R10 = 328.72755 / C10\r\n      R11 =-64.279511 / C11\r\n      IF (ICHUZ .LT. 4) GO TO 340\r\n      I00R = .372*(R1 + 2.*R2 + 3.*R3 + 4.*R4 + 5.*R5 + 6.*R6 + 7.*R7 +\r\n     1        8.*R8 + 9.*R9 + 10.*R10 + 11.*R11)\r\n      I00I =-K1*(R1 + R2 + R3 + R4 + R5 + R6 + R7 + R8 + R9 + R10 + R11)\r\n  340 GO TO (420,350,350,390,350,350,380,350,350), ICHUZ\r\n  350 Q1  = R 1/ C1\r\n      Q2  = R 2/ C2\r\n      Q3  = R 3/ C3\r\n      Q4  = R 4/ C4\r\n      Q5  = R 5/ C5\r\n      Q6  = R 6/ C6\r\n      Q7  = R 7/ C7\r\n      Q8  = R 8/ C8\r\n      Q9  = R 9/ C9\r\n      Q10 = R10/C10\r\n      Q11 = R11/C11\r\n      GO TO (420,410,410,390,360,360,380,360,360), ICHUZ\r\n  360 J00R  = Q1*(.138384-K2)+Q2*(.553536-K2)+Q3*(1.245456-K2)+Q4*\r\n     1        (2.214144-K2)+Q5*(3.4596-K2)+Q6*(4.981824-K2)+Q7*(6.780816\r\n     2        -K2)+Q8*(8.856576-K2)+Q9*(11.209104-K2)+Q10*(13.8384-K2)+\r\n     3        Q11*(16.744464-K2)\r\n      I20R3 = 2.+K1*I00I+K2*J00R\r\n      GO TO  (420,410,410,390,410,390,380,370,370),ICHUZ\r\n  370 J00I  = -K1*(.744*Q1+1.488*Q2+2.232*Q3+2.976*Q4+3.72*Q5+4.464*Q6+\r\n     1        5.208*Q7+5.952*Q8+6.696*Q9+7.44*Q10+8.184*Q11)\r\n      I20I3 = -K1*I00R+K2*J00I\r\n      IF (ICHUZ .EQ. 8) GO TO 500\r\n  380 I10I = -K1*I00R\r\n  390 I10R = 1.+ K1*I00I\r\n      GO TO (420,410,410,420,410,410,500,500,500), ICHUZ\r\n  410 J0UR = E*(Q1*(0.138384 - K2 + 0.372*MU*C1) +\r\n     1       E*(Q2*(0.553536 - K2 + 0.744*MU*C2) +\r\n     2       E*(Q3*(1.245456 - K2 + 1.116*MU*C3) +\r\n     3       E*(Q4*(2.214144 - K2 + 1.488*MU*C4) +\r\n     4       E*(Q5*(3.4596   - K2 + 1.860*MU*C5) +\r\n     5       E*(Q6*(4.981824 - K2 + 2.232*MU*C6) +\r\n     6       E*(Q7*(6.780816 - K2 + 2.604*MU*C7) +\r\n     7       E*(Q8*(8.856576 - K2 + 2.976*MU*C8) +\r\n     8       E*(Q9*(11.209104- K2 + 3.348*MU*C9) +\r\n     9       E*(Q10*(13.8384 - K2 + 3.72*MU*C10) +\r\n     O       E*(Q11*(16.744464-K2 + 4.092*MU*C11))))))))))))\r\n      J0UI = -K1*(E*(Q1*(0.744 + MU*C1) + E*(Q2*(1.488 + MU*C2) +\r\n     1            E*(Q3*(2.232 + MU*C3) + E*(Q4*(2.976 + MU*C4) +\r\n     2            E*(Q5*(3.720 + MU*C5) + E*(Q6*(4.464 + MU*C6) +\r\n     3            E*(Q7*(5.208 + MU*C7) + E*(Q8*(5.952 + MU*C8) +\r\n     4            E*(Q9*(6.696 + MU*C9) + E*(Q10*(7.44 + MU*C10)+\r\n     5            E*(Q11*(8.184+ MU*C11)))))))))))))\r\n  420 I0UR = .372*E*(R1+E*(2.*R2+E*(3.*R3+E*(4.*R4+E*(5.*R5+E*(6.*R6+\r\n     1            E*(7.*R7+E*(8.*R8+E*(9.*R9+E*(10.*R10+E*11.*R11))))))\r\n     2            ))))\r\n      I0UI = -K1*(E*(R1+E*(R2+E*(R3+E*(R4+E*(R5+E*(R6+E*(R7+E*(R8+E*(R9\r\n     1           +E*(R10+E*R11)))))))))))\r\n      R1   = R1S\r\n      C6   = K1*MU\r\n      C1   = SIN(C6)\r\n      C2   = COS(C6)\r\n      C3   = SQRT(1.+MU*MU)\r\n      C4   = MU/C3\r\n      C5   = C4/(1.+MU*MU)\r\n      GO TO (430,440,430,430,440,430,500,500,500), ICHUZ\r\n  430 I1UR = C2*(1.-C4+K1*I0UI) - C1*K1*I0UR\r\n      I1UI =-C2*K1*I0UR - C1*(1.-C4+K1*I0UI)\r\n      GO TO (500,440,440,460,440,440,500,500,500), ICHUZ\r\n  440 I2UR3 = C2*(2.*(1.-C4)-C5+K1*I0UI+K2*J0UR)+C1*(C6*(1.-C4)-K1*I0UR\r\n     1        + K2*J0UI)\r\n      I2UI3 = C2*(C6*(1.-C4)-K1*I0UR+K2*J0UI)-C1*(2.*(1.-C4)-C5+K1*I0UI\r\n     1        + K2*J0UR)\r\n      GO TO (500,500,500,460,450,450,500,500,500), ICHUZ\r\n  450 I2UR3 = 2.0*I20R3 - I2UR3\r\n      IF (ICHUZ-6) 500,460,500\r\n  460 CAR  = 2.*I10R - I1UR\r\n      I1UR = CAR\r\n  500 DK1R = 0.\r\n      R1   = R1S\r\n      DK1I = 0.\r\n      DK2R = 0.\r\n      DK2I = 0.\r\n      C3   = K1*MU1\r\n      C1   = COS(C3)\r\n      C2   = SIN(C3)\r\n      C3   = M*R1/BIGR\r\n      C4   = SQRT(1.+MU1*MU1)\r\n      C5   = KR*X0/BR\r\n      C6   = COS(C5)\r\n      C7   = SIN(C5)\r\n      GO TO (530,540,530,530,540,530,510,520,510), ICHUZ\r\n  510 I1UR = I10R\r\n      I1UI = I10I\r\n      IF (ICHUZ-7) 520,530,520\r\n  520 I2UR3 = I20R3\r\n      I2UI3 = I20I3\r\n      IF (ICHUZ-8) 530,540,530\r\n  530 CK1R = I1UR + C3*C1/C4\r\n      CK1I = I1UI - C3*C2/C4\r\n      K10  = 1.0 + X0/BIGR\r\n      DK1R = CK1R*C6 + CK1I*C7\r\n      DK1I = CK1I*C6 - CK1R*C7\r\n      GO TO (900,540,540,900,540,540,900,540,540), ICHUZ\r\n  540 C8   = (BETA2*(R1/BIGR)**2 + (2.+MU1*C3)/(C4*C4))*(-C3/C4)\r\n      C9   = (K1*C3)*( C3/C4)\r\n      CK2R = -I2UR3 + C8*C1 - C9*C2\r\n      CK2I = -I2UI3 - C9*C1 - C8*C2\r\n      K20  = -2.0 - X0*(2.0+BETA2*(R1/BIGR)**2)/BIGR\r\n      DK2R = CK2R*C6 + CK2I*C7\r\n      DK2I = CK2I*C6 - CK2R*C7\r\n  900 CONTINUE\r\n      K1RT1  = T1 *DK1R\r\n      K1IT1  = T1 *DK1I\r\n      K2RT2P = T2P*DK2R\r\n      K2IT2P = T2P*DK2I\r\n      K10T1  = K10*T1\r\n      K20T2P = K20*T2P\r\n  905 CONTINUE\r\n      KD1R = K1RT1  - K10T1*FLOAT(IND)\r\n      KD1I = K1IT1\r\n      KD2R = K2RT2P - K20T2P*FLOAT(IND)\r\n      KD2I = K2IT2P\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tktztk.f",
    "content": "      SUBROUTINE TKTZTK(TK,Z,NZ,L,M,N)\r\nC\r\nC     THIS ROUTINE  PERFORMS A COORDINATE TRANSFORMATION ON THE\r\nC     SYMMETRIC HALF OF A 3 BY 3 MATRIX\r\nC\r\n      DOUBLE PRECISION TK(3,3),Z(1)\r\n      TK(1,1)=Z(NZ  )*Z(L  )+Z(NZ+3)*Z(L+1)+Z(NZ+6)*Z(L+2)\r\n      TK(2,1)=Z(NZ+1)*Z(L  )+Z(NZ+4)*Z(L+1)+Z(NZ+7)*Z(L+2)\r\n      TK(3,1)=Z(NZ+2)*Z(L  )+Z(NZ+5)*Z(L+1)+Z(NZ+8)*Z(L+2)\r\n      TK(1,2)=Z(NZ  )*Z(L+1)+Z(NZ+3)*Z(M  )+Z(NZ+6)*Z(M+1)\r\n      TK(2,2)=Z(NZ+1)*Z(L+1)+Z(NZ+4)*Z(M  )+Z(NZ+7)*Z(M+1)\r\n      TK(3,2)=Z(NZ+2)*Z(L+1)+Z(NZ+5)*Z(M  )+Z(NZ+8)*Z(M+1)\r\n      TK(1,3)=Z(NZ  )*Z(L+2)+Z(NZ+3)*Z(M+1)+Z(NZ+6)*Z(N  )\r\n      TK(2,3)=Z(NZ+1)*Z(L+2)+Z(NZ+4)*Z(M+1)+Z(NZ+7)*Z(N  )\r\n      TK(3,3)=Z(NZ+2)*Z(L+2)+Z(NZ+5)*Z(M+1)+Z(NZ+8)*Z(N  )\r\n      Z(L  )=Z(NZ  )*TK(1,1)+Z(NZ+3)*TK(1,2)+Z(NZ+6)*TK(1,3)\r\n      Z(L+1)=Z(NZ  )*TK(2,1)+Z(NZ+3)*TK(2,2)+Z(NZ+6)*TK(2,3)\r\n      Z(L+2)=Z(NZ  )*TK(3,1)+Z(NZ+3)*TK(3,2)+Z(NZ+6)*TK(3,3)\r\n      Z(M  )=Z(NZ+1)*TK(2,1)+Z(NZ+4)*TK(2,2)+Z(NZ+7)*TK(2,3)\r\n      Z(M+1)=Z(NZ+1)*TK(3,1)+Z(NZ+4)*TK(3,2)+Z(NZ+7)*TK(3,3)\r\n      Z(N  )=Z(NZ+2)*TK(3,1)+Z(NZ+5)*TK(3,2)+Z(NZ+8)*TK(3,3)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tldrs.f",
    "content": "      SUBROUTINE TLDRS (OFFSET,II,TRANS,TRANS1)\r\nC\r\nC     &    ENTRY TLDRD (DFFSET,II,TRAND,TRAND1)\r\nC\r\nC     MODIFIED TO INCLUDE THE EFFECTS OF OFFSET\r\nC\r\n      REAL             TRANS(1),TRANS1(36),OFFSET\r\n      DOUBLE PRECISION TRAND(1),TRAND1(36),DFFSET\r\nC\r\nC     SINGLE PRECISION -\r\nC\r\n      DO 10 I = 1,36\r\n   10 TRANS1(I) = 0.0\r\nC\r\n      IPOINT = 9*(II-1)\r\nC\r\n      DO 30 I = 1,3\r\n      JPOINT = 6*(I-1)\r\n      KPOINT = JPOINT  + 21\r\n      LPOINT = 3*(I-1) + IPOINT\r\nC\r\n      DO 20 J = 1,3\r\n      TRANS1(JPOINT+J) = TRANS(LPOINT+J)\r\n      TRANS1(KPOINT+J) = TRANS(LPOINT+J)\r\n   20 CONTINUE\r\n   30 CONTINUE\r\nC\r\n      IF (OFFSET .EQ. 0.0) GO TO 100\r\n      TRANS1(4) = OFFSET*TRANS(IPOINT+4)\r\n      TRANS1(5) = OFFSET*TRANS(IPOINT+5)\r\n      TRANS1(6) = OFFSET*TRANS(IPOINT+6)\r\n      TRANS1(10)=-OFFSET*TRANS(IPOINT+1)\r\n      TRANS1(11)=-OFFSET*TRANS(IPOINT+2)\r\n      TRANS1(12)=-OFFSET*TRANS(IPOINT+3)\r\n      GO TO 100\r\nC\r\n      ENTRY TLDRD (DFFSET,II,TRAND,TRAND1)\r\nC     ====================================\r\nC\r\nC     DOUBLE PRECISION -\r\nC\r\n      DO 60 I = 1,36\r\n   60 TRAND1(I) = 0.0D0\r\nC\r\n      IPOINT = 9*(II-1)\r\nC\r\n      DO 80 I = 1,3\r\n      JPOINT = 6*(I-1)\r\n      KPOINT = JPOINT  + 21\r\n      LPOINT = 3*(I-1) + IPOINT\r\nC\r\n      DO 70 J = 1,3\r\n      TRAND1(JPOINT+J) = TRAND(LPOINT+J)\r\n      TRAND1(KPOINT+J) = TRAND(LPOINT+J)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\nC\r\n      IF (DFFSET .EQ. 0.0D0) GO TO 100\r\n      TRAND1(4) = DFFSET*TRAND(IPOINT+4)\r\n      TRAND1(5) = DFFSET*TRAND(IPOINT+5)\r\n      TRAND1(6) = DFFSET*TRAND(IPOINT+6)\r\n      TRAND1(10)=-DFFSET*TRAND(IPOINT+1)\r\n      TRAND1(11)=-DFFSET*TRAND(IPOINT+2)\r\n      TRAND1(12)=-DFFSET*TRAND(IPOINT+3)\r\n  100 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlodm6.f",
    "content": "      SUBROUTINE TLODM6 (TI)\r\nC\r\nC     THERMAL LOAD VECTOR FOR TRIM6 (LINEAR STRAIN MEMBRANE TRIANGLE)\r\nC     ELEMENT\r\nC\r\nC     EST ENTRIES\r\nC\r\nC     EST ( 1) = ELEMENT ID                              INTEGER\r\nC     EST ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1    INTEGER\r\nC     EST ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2    INTEGER\r\nC     EST ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3    INTEGER\r\nC     EST ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4    INTEGER\r\nC     EST ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5    INTEGER\r\nC     EST ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6    INTEGER\r\nC     EST ( 8) = THETA                                   REAL\r\nC     EST ( 9) = MATERIAL IDENTIFICATION NUMBER          INTEGER\r\nC     EST (10) = THICKNESS T1 AT GRID POINT 1            REAL\r\nC     EST (11) = THICKNESS T3 AT GRID POINT 3            REAL\r\nC     EST (12) = THICKNESS T5 AT GRID POINT 5            REAL\r\nC     EST (13) = NON-STRUCTURAL MASS                     REAL\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE IN NASTRAN BASIC SYSTEM\r\nC\r\nC     EST (14) = CO-ORDINATE SYSTEM ID FOR GRID POINT 1  INTEGER\r\nC     EST (15) = CO-ORDINATE X1                          REAL\r\nC     EST (16) = CO-ORDINATE Y1                          REAL\r\nC     EST (17) = CO-ORDINATE Z1                          REAL\r\nC     EST (18) = CO-ORDINATE SYSTEM ID FOR GRID POINT 2  INTEGER\r\nC     EST (19) = CO-ORDINATE X2                          REAL\r\nC     EST (20) = CO-ORDINATE Y2                          REAL\r\nC     EST (21) = CO-ORDINATE Z2                          REAL\r\nC     EST (22) = CO-ORDINATE SYSTEM ID FOR GRID POINT 3  INTEGER\r\nC     EST (23) = CO-ORDINATE X3                          REAL\r\nC     EST (24) = CO-ORDINATE Y3                          REAL\r\nC     EST (25) = CO-ORDINATE Z3                          REAL\r\nC     EST (26) = CO-ORDINATE SYSTEM ID FOR GRID POINT 4  INTEGER\r\nC     EST (27) = CO-ORDINATE X4                          REAL\r\nC     EST (28) = CO-ORDINATE Y4                          REAL\r\nC     EST (29) = CO-ORDINATE Z4                          REAL\r\nC     EST (30) = CO-ORDINATE SYSTEM ID FOR GRID POINT 5  INTEGER\r\nC     EST (31) = CO-ORDINATE X5                          REAL\r\nC     EST (32) = CO-ORDINATE Y5                          REAL\r\nC     EST (33) = CO-ORDINATE Z5                          REAL\r\nC     EST (34) = CO-ORDINATE SYSTEM ID FOR GRID POINT 6  INTEGER\r\nC     EST (35) = CO-ORDINATE X6                          REAL\r\nC     EST (36) = CO-ORDINATE Y6                          REAL\r\nC     EST (37) = CO-ORDINATE Z6                          REAL\r\nC     EST (38) TO EST (43)  -  ELEMENT TEMPERATURES AT SIX GRID POINTS\r\nC\r\n      LOGICAL         UNIMEM,   UNITEM\r\n      REAL            IVECT(3), JVECT(3), KVECT(3), CC(3),    DD(3),\r\n     1                G(9),     G1(3),    NAME(2),  F(5,5),   NSM,\r\n     2                XC(6),    YC(6),    ZC(6),    Q(6,6),   E(6),\r\n     3                TRANS(9), QINV(36), PTEM(12), PTELE(12),PTGLB(18),\r\n     4                PSUB(2),  PSUBT(3), PSUBT1(3),TI(6)\r\n      INTEGER         XU(12),   YU(12),   XV(12),   YV(12),   SIL(6),\r\n     1                SIL1,     RK(3),    SK(3),    TL(3),    UL(3),\r\n     2                IND(6,3), ICS(6),   IEST(45), NL(6)\r\n      COMMON /TRIMEX/ EST(100)\r\n      COMMON /ZZZZZZ/ PG(1)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\nC\r\nC     EQUIVALENCE  IEST WITH EST IN COMMON BLOCK /EMGEST/ SINCE EST IS\r\nC     A MIXED INTEGER AND REAL ARRAY\r\nC\r\n      EQUIVALENCE   (IEST(1),EST(1))\r\n      EQUIVALENCE   (A,DISTA),(B,DISTB),(C,DISTC),(CC(1),C1),(CC(2),C2),\r\n     1              (CC(3),C3),(DD(1),D1),(DD(2),D2),(DD(3),D3)\r\n      DATA   XU   / 0,1,0,2,1,0,6*0/ ,   YU / 0,0,1,0,1,2,6*0/\r\n      DATA   XV   / 6*0,0,1,0,2,1,0/ ,   YV / 6*0,0,0,1,0,1,2/\r\n      DATA   RK   / 0,1,0          / ,   SK / 0,0,1          /\r\n      DATA   TL   / 0,1,0          / ,   UL / 0,0,1          /\r\n      DATA   BLANK/ 4H             / ,  NAME/ 4HTRIM, 4H6    /\r\n      DATA   DEGRA/ 0.0174532925   /\r\nC\r\nC     ALLOCATE EST VALUES TO RESPECTIVE  LOCAL  VARIABLES\r\nC\r\n      IDELE = IEST(1)\r\n      DO 10 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n   10 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\nC\r\nC     IF TMEM3 OR TMEM5 IS 0.0 OR BLANK,IT WILL BE SET EQUAL TO TMEM1\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\nC\r\n      NSM = EST(13)\r\nC\r\n      J = 0\r\n      DO 20 I = 14,34,4\r\n      J = J + 1\r\n      ICS(J) = IEST(I )\r\n      XC (J) = EST(I+1)\r\n      YC (J) = EST(I+2)\r\n      ZC (J) = EST(I+3)\r\n   20 CONTINUE\r\nC\r\nC     TEMPERATURE AT THE THREE GRID POINTS ARE  DENOTED BY TO1,TO3 AND\r\nC     TO5\r\nC\r\n      TO1 = TI(1)\r\n      TO3 = TI(3)\r\n      TO5 = TI(5)\r\nC\r\n      ELTEMP = (EST(38)+EST(39)+EST(40)+EST(41)+EST(42)+EST(43))/6.0\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     CALCULATIONS FOR THE  TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F, AND\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION\r\nC\r\n      CALL AF (F,5,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,0)\r\n      UNIMEM = .FALSE.\r\n      IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM = .TRUE.\r\nC\r\nC     CALCULATIONS FOR  Q MATRIX AND ITS INVERSE\r\nC\r\n      DO 30 I = 1,6\r\n      DO 30 J = 1,6\r\n      Q(I,J) = 0.0\r\n   30 CONTINUE\r\n      DO 40 I = 1,6\r\n      Q(I,1) = 1.0\r\n      Q(I,2) = XC(I)\r\n      Q(I,3) = YC(I)\r\n      Q(I,4) = XC(I)*XC(I)\r\n      Q(I,5) = XC(I)*YC(I)\r\n      Q(I,6) = YC(I)*YC(I)\r\n   40 CONTINUE\r\nC\r\nC     FIND INVERSE OF Q MATRIX\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,QINV(1),0,DETERM,ISING,IND)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT Q MATRIX IS SINGULAR\r\nC\r\nC     EVALUATE  MATERIAL PROPERTIES AND FILL IN G MATRIX\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      CALL MAT (IDELE)\r\n      G(1) = EM(1)\r\n      G(2) = EM(2)\r\n      G(3) = EM(3)\r\n      G(4) = EM(2)\r\n      G(5) = EM(4)\r\n      G(6) = EM(5)\r\n      G(7) = EM(3)\r\n      G(8) = EM(5)\r\n      G(9) = EM(6)\r\nC\r\nC     G1 IS G TIMES ALFA\r\nC\r\n      CALL GMMATS (G,3,3,0,ALF,3,1,0,G1)\r\nC\r\nC     CALCULATION OF THERMAL LOAD VECTOR\r\nC\r\nC     EVALUATE THE CONSTANTS D1,D2,D3 IN THE LINEAR EQUATION FOR\r\nC     TEMPERATURE VARIATION OVER THE ELEMENT\r\nC\r\n      T1BAR = TO1 - TREF\r\n      T3BAR = TO3 - TREF\r\n      T5BAR = TO5 - TREF\r\nC\r\n      CALL AF (F,5,A,B,C,D1,D2,D3,T1BAR,T2BAR,T3BAR,1)\r\n      UNITEM = .FALSE.\r\n      IF (ABS(D2).LE.1.0E-06 .AND. ABS(D3).LE.1.0E-06) UNITEM = .TRUE.\r\n      DO 90 I = 1,12\r\n      IX  = XU(I)\r\n      RIX = IX\r\n      JX  = YU(I)\r\n      RJX = JX\r\n      KX  = XV(I)\r\n      RKX = KX\r\n      LX  = YV(I)\r\n      RLX = LX\r\n      PTEMP = 0.0\r\n      DO 70 K = 1,3\r\n      IXR = IX + RK(K)\r\n      JXS = JX + SK(K)\r\n      KXR = KX + RK(K)\r\n      LXS = LX + SK(K)\r\n      DO 50 L = 1,3\r\n      IXRT  = IXR + TL(L)\r\n      JXSU1 = JXS + UL(L) + 1\r\n      KXRT1 = KXR + TL(L) + 1\r\n      LXSU  = LXS + UL(L)\r\n      IXRT1 = IXRT+ 1\r\n      JXSU  = JXSU1 - 1\r\n      KXRT  = KXRT1 - 1\r\n      LXSU1 = LXSU + 1\r\n      IF (IXRT .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(1)*RIX*F(IXRT ,JXSU1)\r\n      IF (LXSU .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(2)*RLX*F(KXRT1,LXSU )\r\n      IF (JXSU .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RJX*F(IXRT1,JXSU )\r\n      IF (KXRT .GT.0) PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RKX*F(KXRT ,LXSU1)\r\n      IF (UNITEM) GO TO 60\r\n   50 CONTINUE\r\n   60 CONTINUE\r\n      IF (UNIMEM) GO TO 80\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      PTEM(I) = PTEMP\r\n   90 CONTINUE\r\nC\r\n      CALL GMMATS (Q,6,6,0,PTEM(1),6,1,0,PTELE(1))\r\n      CALL GMMATS (Q,6,6,0,PTEM(7),6,1,0,PTELE(7))\r\nC\r\nC     REORDER THE THERMAL LOAD VEC SO THAT THE DISPLACEMENTS OF A GRID\r\nC     POINT ARE ARRANGED CONSECUTIVELY\r\nC\r\n      DO 110 K = 1,6\r\n      DO 100 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 2*(K-1) + I\r\n      PTEM(I1) = PTELE(K1)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\nC\r\nC     TRANSFORM THE THERMAL LOAD VECTOR PTEM FROM ELEMENT CO-ORDINATES\r\nC     TO BASIC CO-ORDINATES\r\nC\r\n      E(1) = IVECT(1)\r\n      E(2) = JVECT(1)\r\n      E(3) = IVECT(2)\r\n      E(4) = JVECT(2)\r\n      E(5) = IVECT(3)\r\n      E(6) = JVECT(3)\r\n      DO 120 I = 1,18\r\n      PTGLB(I) = 0.0\r\n  120 CONTINUE\r\n      DO 130 I = 1,6\r\n      SIL(I) = I\r\n  130 CONTINUE\r\n      DO 200 I = 1,6\r\n      SIL1 = SIL(I)\r\n      DO 140 K = 1,2\r\n      K1 = (SIL1-1)*2 + K\r\n      PSUB(K) = PTEM(K1)\r\n  140 CONTINUE\r\n      CALL GMMATS (E,3,2,0,PSUB,2,1,0,PSUBT)\r\nC\r\nC     TRANSFORM THE PSUBT ROM BASIC TO GLOBAL CO-ORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 160\r\n      K = 4*SIL1 + 10\r\n      CALL TRANSS (IEST(K),TRANS)\r\n      CALL GMMATS (TRANS(1),3,3,1,PSUBT,3,1,0,PSUBT1)\r\n      DO 150 K = 1,3\r\n      PSUBT(K) = PSUBT1(K)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\nC\r\nC     INSERT PTGLB IN GLOBAL LOAD VECTOR PG\r\nC\r\n      DO 180 II = 1,3\r\n      I1 = (I-1)*3 + II\r\n      I2 = IEST(I+1) + II - 1\r\n      PTGLB(I1) = PSUBT(II)\r\n      PG(I2) = PG(I2) + PSUBT(II)\r\n  180 CONTINUE\r\n  200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlodsl.f",
    "content": "      SUBROUTINE TLODSL (TREAL,TINT)\r\nC\r\nC     ECPT ENTRIES\r\nC\r\nC     ECPT ( 1) = ELEMENT ID                                    INTEGER\r\nC     ECPT ( 2) = SCALAR INDEX NUMBER FOR GRID POINT 1          INTEGER\r\nC     ECPT ( 3) = SCALAR INDEX NUMBER FOR GRID POINT 2          INTEGER\r\nC     ECPT ( 4) = SCALAR INDEX NUMBER FOR GRID POINT 3          INTEGER\r\nC     ECPT ( 5) = SCALAR INDEX NUMBER FOR GRID POINT 4          INTEGER\r\nC     ECPT ( 6) = SCALAR INDEX NUMBER FOR GRID POINT 5          INTEGER\r\nC     ECPT ( 7) = SCALAR INDEX NUMBER FOR GRID POINT 6          INTEGER\r\nC     ECPT ( 8) = THETA                                         REAL\r\nC     ECPT ( 9) = MATERIAL ID 1                                 INTEGER\r\nC     ECPT (10) = THICKNESS T1 AT GRID POINT G1\r\nC     ECPT (11) = THICKNESS T3 AT GRID POINT G3\r\nC     ECPT (12) = THICKNESS T5 AT GRID POINT G5\r\nC     ECPT (13) = MATERIAL ID 2                                 INTEGER\r\nC     ECPT (14) = THICKNESS TBEND1 FOR BENDING AT GRID POINT G1\r\nC     ECPT (15) = THICKNESS TBEND3 FOR BENDING AT GRID POINT G3\r\nC     ECPT (16) = THICKNESS TBEND5 FOR BENDING AT GRID POINT G5\r\nC     ECPT (17) = MATERIAL ID 3                                 INTEGER\r\nC     ECPT (18) = THICKNESS TSHR1 FOR TRANSVERSE SHEAR AT GRID POINT G1\r\nC     ECPT (19) = THICKNESS TSHR3 FOR TRANSVERSE SHEAR AT GRID POINT G3\r\nC     ECPT (20) = THICKNESS TSHR5 FOR TRANSVERSE SHEAR AT GRID POINT G5\r\nC     ECPT (21) = NON-STRUCTURAL MASS                           REAL\r\nC     ECPT (22) = DISTANCE Z11 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT (23) = DISTANCE Z21 FOR STRESS CALCULATION  AT GRID POINT G1\r\nC     ECPT (24) = DISTANCE Z13 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT (25) = DISTANCE Z23 FOR STRESS CALCULATION  AT GRID POINT G3\r\nC     ECPT (26) = DISTANCE Z15 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC     ECPT (27) = DISTANCE Z25 FOR STRESS CALCULATION  AT GRID POINT G5\r\nC\r\nC     X1,Y1,Z1 FOR ALL SIX POINTS ARE  IN NASTRAN BASIC SYSTEM\r\nC\r\nC     ECPT (28) = CO-ORDINATE SYSTEM ID FOR GRID A              INTEGER\r\nC     ECPT (29) = CO-ORDINATE X1                                REAL\r\nC     ECPT (30) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (31) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (32) = CO-ORDINATE SYSTEM ID FOR GRID B              INTEGER\r\nC     ECPT (33) = CO-ORDINATE X1                                REAL\r\nC     ECPT (34) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (35) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (36) = CO-ORDINATE SYSTEM ID FOR GRID C              INTEGER\r\nC     ECPT (37) = CO-ORDINATE X1                                REAL\r\nC     ECPT (38) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (39) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (40) = CO-ORDINATE SYSTEM ID FOR GRID D              INTEGER\r\nC     ECPT (41) = CO-ORDINATE X1                                REAL\r\nC     ECPT (42) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (43) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (44) = CO-ORDINATE SYSTEM ID FOR GRID E              INTEGER\r\nC     ECPT (45) = CO-ORDINATE X1                                REAL\r\nC     ECPT (46) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (47) = CO-ORDINATE Z1                                REAL\r\nC     ECPT (48) = CO-ORDINATE SYSTEM ID FOR GRID F              INTEGER\r\nC     ECPT (49) = CO-ORDINATE X1                                REAL\r\nC     ECPT (50) = CO-ORDINATE Y1                                REAL\r\nC     ECPT (51) = CO-ORDINATE Z1                                REAL\r\nC     EST  (52) = ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         NOGO,     NOTS,     UNIBEN,   UNITEM,   UNIMEM\r\n      INTEGER         XU(32),   YU(32),   XV(32),   YV(32),   XW(32),\r\n     1                YW(32),   RK(3),    SK(3),    ELID,     ESTID,\r\n     2                TL(3),    UL(3),    QT(3),    PT(3),    XTHK(10),\r\n     3                YTHK(10), SMALL(6), TINT(6),  ICS(6),   IEST(42),\r\n     4                NL(6),    IND(6,3), ELTYPE,   SIL1,    INDEX(20,3)\r\n      REAL            TREAL(6), G(9),     G1(3),    NAME(2),  F(14,14),\r\n     1                XC(6),    YC(6),    ZC(6),    TS6(40),  EE(30),\r\n     2                Q(6,6),   QQ(960),  CC(10),   CAB(3),   P3(30),\r\n     3                P6(32),   P7(30),   P8(5),    P9(6),    PL(3),\r\n     4                DD(3),    TRAND(9), PTEM(32), GE1(9),   EL(3),\r\n     5                IVECT(3), JVECT(3), KVECT(3),\r\n     6                QQQ(20,20),         QQQINV(360),        BALOTR(36)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /TRIMEX/ EST(100)\r\n      COMMON /ZZZZZZ/ PG(1)\r\n      COMMON /SSGWRK/ IND,FAC,F,P3,P6,P7\r\n      COMMON /EMGDIC/ ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\n      COMMON /SYSTEM/ IBUF,NOUT\r\n      EQUIVALENCE     (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)),\r\n     1                (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)),\r\n     2                (C9,CC(9)),(C10,CC(10)),(IEST(1),EST(1)),\r\n     3                (A,DISTA),(B,DISTB),(C,DISTC),(THK1,TBEND1),\r\n     4                (THK2,TBEND3),(THK3,TBEND5)\r\n      DATA    XU    / 0,1,0,2,1,0,26*0/,      YU/0,0,1,0,1,2,26*0    /,\r\n     1        XV    / 6*0,0,1,0,2,1,0,20*0/ , YV/6*0,0,0,1,0,1,2,20*0/,\r\n     2        XW    / 12*0,0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0   /,\r\n     3        YW    / 12*0,0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5   /\r\n      DATA    BLANK , NAME / 4H    ,  4HTRSH,4HL          /\r\n      DATA    RK,SK / 0,1,0,  0,0,1/, DEGRA /0.0174532925 /\r\n      DATA    XTHK  / 0,1,0,2,1,0,3,2,1,0/,  YTHK/ 0,0,1,0,1,2,0,1,2,3/\r\n      DATA    TL    / 0,1,0/, UL/0,0,1/, PT/0,1,0/, QT/0,0,1/\r\nC\r\nC     COMPONENT CODE,ICODE,IS  111111  AND HAS A VALUE OF 63\r\nC\r\n      NOTS   = .FALSE.\r\n      IDELE  = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I)  = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST (8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = EST(10)\r\n      TMEM3  = EST(11)\r\n      TMEM5  = EST(12)\r\n      MATID2 = IEST(13)\r\n      TBEND1 = (EST(14)*12.0)**0.3333333333\r\n      TBEND3 = (EST(15)*12.0)**0.3333333333\r\n      TBEND5 = (EST(16)*12.0)**0.3333333333\r\n      MATID3 = IEST(17)\r\n      TSHR1  = EST(18)\r\n      TSHR3  = EST(19)\r\n      TSHR5  = EST(20)\r\n      NSM    = EST(21)\r\n      J      = 0\r\n      DO 120 I = 28,48,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n  120 CONTINUE\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK, THEY WILL BE\r\nC     SET EQUAL TO TMEM1 SO ALSO FOR TSHR3,TSHR5,TBEND3 AND TBEND5\r\nC\r\n      T1PRIM = -TREAL(2)\r\n      T3PRIM = -TREAL(2)\r\n      T5PRIM = -TREAL(2)\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3.EQ.BLANK) TMEM3 = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5.EQ.BLANK) TMEM5 = TMEM1\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3.EQ.BLANK) TSHR3 = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5.EQ.BLANK) TSHR5 = TSHR1\r\n      IF (TSHR1 .EQ. 0.0) NOTS = .TRUE.\r\n      IF (TBEND3.EQ.0.0 .OR. TBEND3.EQ.BLANK) TBEND3 = TBEND1\r\n      IF (TBEND5.EQ.0.0 .OR. TBEND5.EQ.BLANK) TBEND5 = TBEND1\r\n      IF (T3PRIM.EQ.0.0 .OR. T3PRIM.EQ.BLANK) T3PRIM = T1PRIM\r\n      IF (T5PRIM.EQ.0.0 .OR. T5PRIM.EQ.BLANK) T5PRIM = T1PRIM\r\n      ELTEMP = EST(52)\r\n      AVTHK  = (TBEND1 + TBEND3 + TBEND5)/3.0\r\n      AVINER = AVTHK**3/12.0\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUTE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID  = MATID1\r\n      IF (MATID .LE. 0) GO TO 122\r\n      CALL MAT (IDELE)\r\nC\r\n      G11 = EM(1)\r\n      G12 = EM(2)\r\n      G13 = EM(3)\r\n      G22 = EM(4)\r\n      G23 = EM(5)\r\n      G33 = EM(6)\r\n      GM1 = EM(1)*ALF(1) + EM(2)*ALF(2) + EM(3)*ALF(3)\r\n      GM2 = EM(2)*ALF(1) + EM(4)*ALF(2) + EM(5)*ALF(3)\r\n      GM3 = EM(3)*ALF(1) + EM(5)*ALF(2) + EM(6)*ALF(3)\r\n      G11PR = 0.0\r\n      G22PR = 0.0\r\n      G33PR = 0.0\r\n  122 CONTINUE\r\n      MATFLG = 2\r\n      MATID  = MATID2\r\n      IF (MATID .LE. 0) GO TO 149\r\n      CALL MAT (IDELE)\r\n      D11  = EM(1)\r\n      D12  = EM(2)\r\n      D13  = EM(3)\r\n      D22  = EM(4)\r\n      D23  = EM(5)\r\n      D33  = EM(6)\r\n      G(1) = EM(1)\r\n      G(2) = EM(2)\r\n      G(3) = EM(3)\r\n      G(4) = EM(2)\r\n      G(5) = EM(4)\r\n      G(6) = EM(5)\r\n      G(7) = EM(3)\r\n      G(8) = EM(5)\r\n      G(9) = EM(6)\r\nC\r\nC     IF  TINT(6).NE.1,G1 IS G AND T1PRIME IS ALPHA TIMES T1PRIME\r\nC     IF  TINT(6).EQ.1,G1 IS G TIMES ALPHA AND T1PRIME IS T1PRIME\r\nC\r\n      IF  (TINT(6) .NE. 1) GO TO 147\r\nC\r\nC     G1 IS G TIMES ALFA\r\nC\r\n      CALL GMMATS (G,3,3,0, ALF,3,1,0, G1)\r\nC\r\n      G11PR = G1(1)\r\n      G22PR = G1(2)\r\n      G33PR = G1(3)\r\n      GO TO 149\r\n  147 CONTINUE\r\n      DO 148 I = 1,9\r\n  148 GE1(I) = G(I)*AVINER\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,GE1(1),3,TS6(1),0,DETERM,ISING,INDEX)\r\n      IF (ISING .EQ. 2) GO TO 905\r\n      CALL GMMATS (GE1,3,3,0, TREAL(2),3,1,0, PL(1))\r\n  149 CONTINUE\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n      CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAME)\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,14,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 110 I = 1,20\r\n      DO 110 J = 1,20\r\n  110 QQQ(I,J) = 0.0\r\n      DO 115 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\n  115 CONTINUE\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\n      DO 128 I = 1,6\r\n      DO 128 J = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      Q(I,J) = QQQ(I1,J)\r\n  128 CONTINUE\r\nC\r\nC     SET ISING = -1\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,Q,6,TS6(1),0,DETERM,ISING,IND)\r\n      IF (ISING .EQ. 2) GO TO 904\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1) I\r\nC\r\nC     AGAIN SET ISING = -1\r\nC\r\n      ISING = -1\r\n      CALL INVERS (20,QQQ,20,TS6(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\n      IF (ISING .EQ. 2) GO TO 905\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO  153 I = 1,960\r\n      QQ(I) = 0.0\r\n  153 CONTINUE\r\n      DO 154 I = 1,6\r\n      DO 154 J = 1,6\r\n      IJ = (I-1)*30 + J\r\n      IK = (I+5)*30 + J + 6\r\n      QQ(IJ) = Q(I,J)\r\n      QQ(IK) = Q(I,J)\r\n  154 CONTINUE\r\n      DO 156 I = 1,20\r\n      DO 156 J = 1,18\r\n      IJ = 372 + (I-1)*30 + J\r\n      QQ (IJ) = QQQ(I,J)\r\n      IJ1 = (I-1)*18 + J\r\n      QQQINV(IJ1) = QQQ(I,J)\r\n  156 CONTINUE\r\nC\r\nC     START EXECUTION FOR STIFFNESS MATRIX CALCULATION\r\nC\r\nC     CM IS STIFFNESS MATRIX IN ELEMENT COORDINATES\r\nC\r\nC     EVALUATE THE CONSTANTS C1,C2,AND C3 IN THE LINEAR EQUATION FOR\r\nC     THICKNESS VARIATION - MEMBRANE\r\nC\r\n      CALL AF (F,14,A,B,C,C1,C2,C3,TMEM1,TMEM3,TMEM5,1)\r\n      CAB(1) = C1\r\n      CAB(2) = C2\r\n      CAB(3) = C3\r\n      AREA   = F(1,1)\r\n      VOL    = C1*F(1,1) + C2*F(2,1) + C3*F(1,2)\r\n      UNIBEN =.FALSE.\r\n      UNIMEM =.FALSE.\r\n      UNITEM =.FALSE.\r\n      IF (ABS(C2).LE.1.0E-06 .AND. ABS(C3).LE.1.0E-06) UNIMEM =.TRUE.\r\nC\r\n      D334 = D33*4.0\r\n      D132 = D13*2.0\r\n      D232 = D23*2.0\r\nC\r\nC     DD(1) TO DD(3) ARE THE CONSTANTS IN LINEAR EQUATION FOR TEMP\r\nC     GRADIENT. CURRENTLY ONLY UNIFORM TEMP GRADIENT IS PERMITTED IN\r\nC     THE ELEMENT, THOUGH THE CODE IS WRITTEN FOR LINEAR VARIATION\r\nC\r\n      CALL AF (F,14,A,B,C,DD(1),DD(2),DD(3),T1PRIM,T3PRIM,T5PRIM,1)\r\nC\r\nC     EL(1) TO EL(3) ARE THE CONSTANTS IN THE LINEAR EQUATION FOR\r\nC     MEAN TEMP VARIATION\r\nC\r\n      EL(1) = TREAL(1) - TREF\r\n      EL(2) = 0.0\r\n      EL(3) = 0.0\r\nC\r\nC     A1,A2,A3 ARE THE COEFFICIENTS OF LINEAR EQUATION FOR VARIATION\r\nC     OF BENDING THICKNESSES\r\nC\r\n      CALL AF (F,14,A,B,C,A1,A2,A3,THK1,THK2,THK3,1)\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1   = A1SQ*A1\r\n      C2   = 3.0*A1SQ*A2\r\n      C3   = 3.0*A1SQ*A3\r\n      C4   = 3.0*A1*A2SQ\r\n      C5   = 6.0*A1*A2*A3\r\n      C6   = 3.0*A3SQ*A1\r\n      C7   = A2SQ*A2\r\n      C8   = 3.0*A2SQ*A3\r\n      C9   = 3.0*A2*A3SQ\r\n      C10  = A3*A3SQ\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE.\r\n      EL2  = EL(2)\r\n      EL3  = EL(3)\r\n      IF (ABS(EL2).LE.1.E-06 .AND. ABS(EL3).LE.1.E-06) UNITEM =.TRUE.\r\nC\r\nC     AA1, AA2, AA3  ARE COEFFICIENTS IN THICKNESS VARIATION FOR\r\nC     TRANSVERSE SHEAR\r\nC\r\n      CALL AF (F,14,A,B,C,AA1,AA2,AA3,TSHR1,TSHR3,TSHR5,1)\r\n      H4 = Q(4,1)*ZC(1) + Q(4,2)*ZC(2) + Q(4,3)*ZC(3) + Q(4,4)*ZC(4) +\r\n     1     Q(4,5)*ZC(5) + Q(4,6)*ZC(6)\r\n      H5 = Q(5,1)*ZC(1) + Q(5,2)*ZC(2) + Q(5,3)*ZC(3) + Q(5,4)*ZC(4) +\r\n     1     Q(5,5)*ZC(5) + Q(5,6)*ZC(6)\r\n      H6 = Q(6,1)*ZC(1) + Q(6,2)*ZC(2) + Q(6,3)*ZC(3) + Q(6,4)*ZC(4) +\r\n     1     Q(6,5)*ZC(5) + Q(6,6)*ZC(6)\r\n      H4 = H4*2.0\r\n      H6 = H6*2.0\r\nC\r\nC     H5 IS MULTIPLIED BY 2.0, SO THAT EXY=DU/DY + DV/DX - ZXY*W\r\nC\r\n      H5 = H5*2.0\r\nC\r\nC     CALCULATION OF THERMAL LOAD VECTOR\r\nC\r\n      DO 670 I = 1,32\r\n      PTEM(I) = 0.0\r\n      IX   = XU(I)\r\n      RIX  = IX\r\n      JX   = YU(I)\r\n      RJX  = JX\r\n      KX   = XV(I)\r\n      RKX  = KX\r\n      LX   = YV(I)\r\n      RLX  = LX\r\n      MX   = XW(I)\r\n      RMX  = MX\r\n      NX   = YW(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0)\r\n      RNX1 = RNX*(RNX-1.0)\r\n      IXP1 = IX + 1\r\n      JXP1 = JX + 1\r\n      KXP1 = KX + 1\r\n      LXP1 = LX + 1\r\n      MXP1 = MX + 1\r\n      NXP1 = NX + 1\r\n      MX01 = MX - 1\r\n      MX1  = MX + 1\r\n      NX01 = NX - 1\r\n      NX1  = NX + 1\r\n      PTEMP= 0.0\r\n      IF (I .LE. 12) GO TO 225\r\n      DO 215 K = 1,10\r\n      MX01X= MX01+ XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX01Y= NX01+ YTHK(K)\r\n      MXX  = MX  + XTHK(K)\r\n      NXY  = NX  + YTHK(K)\r\n      IF (TINT(6) .NE. 1) GO TO 213\r\n      DO 212 L = 1,3\r\n      MX01XP= MX01X+ PT(L)\r\n      NX1YQ = NX1Y + QT(L)\r\n      MX1XP = MX1X + PT(L)\r\n      NX01YQ= NX01Y+ QT(L)\r\n      MXXP  = MXX  + PT(L)\r\n      NXYQ  = NXY  + QT(L)\r\n      IF (MX01XP.GT.0 .AND. NX1YQ.GT.0)\r\n     1    PTEMP = PTEMP + CC(K)*DD(L)*G1(1)*RMX1*F(MX01XP,NX1YQ)\r\n      IF (MX1XP.GT.0 .AND. NX01YQ.GT.0)\r\n     1    PTEMP = PTEMP + CC(K)*DD(L)*G1(2)*RNX1*F(MX1XP,NX01YQ)\r\n      IF (MXXP.GT.0 .AND. NXYQ.GT.0)\r\n     1    PTEMP = PTEMP + CC(K)*DD(L)*G1(3)*RMNX*F(MXXP,NXYQ)\r\n      IF (UNITEM) GO TO 213\r\n  212 CONTINUE\r\n  213 CONTINUE\r\n      IF (TINT(6) .EQ. 1) GO TO 214\r\n      IF (MX01X .GT. 0) PTEMP = PTEMP + CC(K)*RMX1*(PL(1)*G(1)\r\n     1                        + PL(2)*G(2) + PL(3)*G(3))*F(MX01X,NX1Y)\r\n      IF (NX01Y .GT. 0) PTEMP = PTEMP + CC(K)*RNX1*(PL(1)*G(4)\r\n     1                        + PL(2)*G(5) + PL(3)*G(6))*F(MX1X,NX01Y)\r\n      IF (MXX.GT.0 .AND. NXY.GT.0) PTEMP = PTEMP + CC(K)*RMNX*(PL(1)*\r\n     1                        G(7)+PL(2)*G(8)+PL(3)*G(9))*F(MXX,NXY)\r\n  214 CONTINUE\r\n      IF (UNIBEN) GO TO 2150\r\n  215 CONTINUE\r\n 2150 CONTINUE\r\n      PTEM(I) = PTEMP/12.0\r\n      GO TO 235\r\n  225 CONTINUE\r\n      DO 263 K = 1,3\r\n      IXR = IX + RK(K)\r\n      JXS = JX + SK(K)\r\n      KXR = KX + RK(K)\r\n      LXS = LX + SK(K)\r\n      DO 262 L = 1,3\r\n      IXRT  = IXR + TL(L)\r\n      JXSU1 = JXS + UL(L) + 1\r\n      KXRT1 = KXR + TL(L) + 1\r\n      LXSU  = LXS + UL(L)\r\n      IXRT1 = IXRT  + 1\r\n      JXSU  = JXSU1 - 1\r\n      KXRT  = KXRT1 - 1\r\n      LXSU1 = LXSU  + 1\r\n      MKR1  = MX + KX + RK(K) - 1\r\n      NLS1  = NX + LX + SK(K) - 1\r\n      IF (IXRT .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM1*RIX*F(IXRT,JXSU1)\r\n      IF (LXSU .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM2*RLX*F(KXRT1,LXSU)\r\n      IF (JXSU .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM3*RJX*F(IXRT1,JXSU)\r\n      IF (KXRT .GT. 0) PTEMP = PTEMP +CAB(K)*EL(L)*GM3*RKX*F(KXRT,LXSU1)\r\n      IF (MKR1.GT.0 .AND. NLS1.GT.0) PTEMP = PTEMP -(G11PR*H4*EL(L)*\r\n     1    CAB(K)*F(MKR1,NLS1))-(G22PR*H4*EL(L)*CAB(K)*F(MKR1,NLS1))-\r\n     2    (G33PR*H4*EL(L)*CAB(K)*F(MKR1,NLS1))\r\n      IF (UNITEM) GO TO 2620\r\n  262 CONTINUE\r\n 2620 CONTINUE\r\n      IF (UNIMEM) GO TO 2630\r\n  263 CONTINUE\r\n 2630 CONTINUE\r\n      PTEM(I) = PTEMP\r\n  235 CONTINUE\r\n  670 CONTINUE\r\n      CALL GMMATS (QQ,32,30,+1,PTEM,32,1,0,P6)\r\n      DO 179 I = 1,30\r\n      EE(I)  = 0.0\r\n  179 CONTINUE\r\n      EE( 1) = IVECT(1)\r\n      EE( 2) = JVECT(1)\r\n      EE( 3) = KVECT(1)\r\n      EE( 6) = IVECT(2)\r\n      EE( 7) = JVECT(2)\r\n      EE( 8) = KVECT(2)\r\n      EE(11) = IVECT(3)\r\n      EE(12) = JVECT(3)\r\n      EE(13) = KVECT(3)\r\n      EE(19) = IVECT(1)\r\n      EE(20) = JVECT(1)\r\n      EE(24) = IVECT(2)\r\n      EE(25) = JVECT(2)\r\n      EE(29) = IVECT(3)\r\n      EE(30) = JVECT(3)\r\n      DO 278 K = 1,6\r\n      DO 277 I = 1,2\r\n      K1 = 6*(I-1) + K\r\n      I1 = 5*(K-1) + I\r\n      P7(I1) = P6(K1)\r\n  277 CONTINUE\r\n  278 CONTINUE\r\n      DO 283 K = 1,6\r\n      DO 282 I = 1,3\r\n      I2 = 5*(K-1) + I + 2\r\n      K2 = 12 + (K-1)*3 + I\r\n      P7(I2) = P6(K2)\r\n  282 CONTINUE\r\n  283 CONTINUE\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE ROTATED\r\nC     - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM ELEMENT COORDINATES TO BASIC\r\nC     COORDINATES\r\nC\r\nC     TRANSFORM STIFFNESS MATRIX FROM BASIC COORDINAYES TO GLOBAL (DISP)\r\nC     COORDINATES\r\nC\r\n      DO 302 I = 1,6\r\n      SMALL(I) = I\r\n  302 CONTINUE\r\n      DO 308 I = 1,6\r\n      SIL1 = SMALL(I)\r\n      DO 310 II = 1,36\r\n      BALOTR(II) = 0.0\r\n  310 CONTINUE\r\n      DO 304 K = 1,5\r\n      K1 = (SIL1-1)*5 + K\r\n      P8(K) = P7(K1)\r\n  304 CONTINUE\r\n      CALL GMMATS (EE,6,5,0,P8,5,1,0,P9)\r\nC\r\nC     TRANSFORM THE KSUB(36) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(SIL1).EQ.0 .OR. ICS(SIL1).EQ.0) GO TO 330\r\n      JJ = 4*SIL1 + 24\r\n      CALL TRANSS (IEST(JJ),TRAND)\r\n      DO 320 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+ 1) = TRAND(M+1)\r\n      BALOTR(L+ 2) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  320 CONTINUE\r\n      CALL GMMATS (BALOTR(1),6,6,1, P9(1),6,1,0, P6(1))\r\n      DO 350 K = 1,6\r\n  350 P9(K) = P6(K)\r\n  330 CONTINUE\r\n      DO 370 II = 1,6\r\n      I2 = IEST(I+1) + II - 1\r\n      PG(I2) = PG(I2) + P9(II)\r\n  370 CONTINUE\r\n  308 CONTINUE\r\n      GO TO 999\r\n  904 WRITE (NOUT,2416) UFM,IEST(1)\r\n      GO TO 910\r\n  905 WRITE (NOUT,2417) UFM,IEST(1)\r\n  910 NOGO = .TRUE.\r\n      GO TO 999\r\nC\r\n 2416 FORMAT (A23,' 2416, MATRIX RELATING GENERALIZED PARAMETERS AND ',\r\n     1       'GRID POINT DISPLACEMENTS IS SINGULAR.',/26X,\r\n     2       'CHECK COORDINATES OF ELEMENT  TRSHL WITH ID =',I9,1H.)\r\n 2417 FORMAT (A23,' 2417, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =',\r\n     1       I9,' HAS BEEN DETECTED BY SUBROUTINE TLODSL', /26X,'WHILE',\r\n     2       ' TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.')\r\n  999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlodt1.f",
    "content": "      SUBROUTINE TLODT1 (TREAL,TINT)\r\nC\r\nC     THERMAL LOAD VECTOR FOR TRPLT1 (HIGHER ORDER PLATE BENDING ELEMENT\r\nC\r\nC     ECPT ENTRIES\r\nC     AS IN STIFFNESS ROUTINE KTRPL1\r\nC\r\n      LOGICAL         NOGO,NOTS,UNIBEN,UNITEM\r\n      INTEGER         XPOWER(20),YPOWER(20),XTHK(10),YTHK(10),PT(3),\r\n     1                QT(3),SIL(6),SIL1,TINT(6)\r\n      REAL            IVECT,JVECT,KVECT\r\n      DIMENSION       F(10,10),XC(6),YC(6),ZC(6),QQQ(20,20),QQINV(360),\r\n     1                TS1(60),TS2(60),IEST(42),TREAL(6),TRAND(9),DD(3),\r\n     2                ICS(6),GE1(9),NAM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3,G1(3),\r\n     1                D(3),E(18),IVECT(3),JVECT(3),KVECT(3),CC(10),G(9),\r\n     2                PTEM(20),PTELE(18),PTGLB(36),PSUB(3),PSUBT(6),\r\n     3                PSUBT1(6),TS6(40),NAME(2),INDEX(20,3),NL(6),TL(3),\r\n     4                BALOTR(36)\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /TRIMEX/ EST(100)\r\n      COMMON /ZZZZZZ/ PG(1)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN / MATID,MATFLG,ELTEMP,PLA34,SINTH,COSTH\r\n      COMMON /MATOUT/ EM(6),RHOY,ALF(3),TREF,GSUBE,SIGTY,SIGCY,SIGSY,\r\n     1                RJ11,RJ12,RJ22\r\nC\r\nC     EQUIVALENCE IECPT WITH ECPT IN COMMON BLOCK /SMA1ET/ SINCE ECPT IS\r\nC     A MIXED INTEGER AND REAL ARRAY\r\nC\r\n      EQUIVALENCE     (THK1,TMEM1),(THK2,TMEM3),(THK3,TMEM5),\r\n     1                (A,DISTA),(B,DISTB),(C,DISTC),(IEST(1),EST(1)),\r\n     2                (C1,CC(1)),(C2,CC(2)),(C3,CC(3)),(C4,CC(4)),\r\n     3                (C5,CC(5)),(C6,CC(6)),(C7,CC(7)),(C8,CC(8)),\r\n     4                (C9,CC(9)),(C10,CC(10)),(D(1),D1),(D(2),D2),\r\n     5                (D(3),D3),(DD(1),D(1))\r\n      DATA    BLANK , NAM  / 4H    , 4HTRPL, 4HT1    /\r\n      DATA    XPOWER/ 0,1,0,2,1,0,3,2,1,0,4,3,2,1,0,5,3,2,1,0/\r\n      DATA    YPOWER/ 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,2,3,4,5/\r\n      DATA    XTHK  / 0,1,0,2,1,0,3,2,1,0 /\r\n      DATA    YTHK  / 0,0,1,0,1,2,0,1,2,3 /\r\n      DATA    PT    / 0,1,0 /,  QT / 0,0,1/\r\n      DATA    DEGRA / 0.0174532925 /\r\nC\r\nC\r\n      NOTS  = .FALSE.\r\n      IDELE = IEST(1)\r\n      DO 109 I = 1,6\r\n      NL(I) = IEST(I+1)\r\n  109 CONTINUE\r\n      THETAM = EST(8)\r\n      MATID1 = IEST(9)\r\n      TMEM1  = (EST(10)*12.0)**0.333333333333\r\n      TMEM3  = (EST(11)*12.0)**0.333333333333\r\n      TMEM5  = (EST(12)*12.0)**0.333333333333\r\n      TSHR1  = EST(14)\r\n      TSHR3  = EST(15)\r\n      TSHR5  = EST(16)\r\n      J      = 0\r\n      DO 120 I = 24,44,4\r\n      J      = J + 1\r\n      ICS(J) = IEST(I)\r\n      XC(J)  = EST(I+1)\r\n      YC(J)  = EST(I+2)\r\n      ZC(J)  = EST(I+3)\r\n  120 CONTINUE\r\n      TEMP1  = TREAL(1)\r\n      TEMP3  = TREAL(1)\r\n      TEMP5  = TREAL(1)\r\n      T1PRIM =-TREAL(2)\r\n      T3PRIM =-TREAL(2)\r\n      T5PRIM =-TREAL(2)\r\nC\r\nC     IF TMEM3 OR TMEM5 EQUAL TO ZERO OR BLANK,THEY WILL BE SET EQUAL TO\r\nC     SO ALSO FOR TEMP3 AND TEMP5\r\nC\r\n      IF (TMEM3.EQ.0.0 .OR. TMEM3 .EQ.BLANK) TMEM3  = TMEM1\r\n      IF (TMEM5.EQ.0.0 .OR. TMEM5 .EQ.BLANK) TMEM5  = TMEM1\r\n      IF (TEMP3.EQ.0.0 .OR. TEMP3 .EQ.BLANK) TEMP3  = TEMP1\r\n      IF (TEMP5.EQ.0.0 .OR. TEMP5 .EQ.BLANK) TEMP5  = TEMP1\r\n      IF (T3PRIM.EQ..0 .OR. T3PRIM.EQ.BLANK) T3PRIM = T1PRIM\r\n      IF (T5PRIM.EQ..0 .OR. T5PRIM.EQ.BLANK) T5PRIM = T1PRIM\r\n      IF (TSHR3.EQ.0.0 .OR. TSHR3 .EQ.BLANK) TSHR3  = TSHR1\r\n      IF (TSHR5.EQ.0.0 .OR. TSHR5 .EQ.BLANK) TSHR5  = TSHR1\r\n      ELTEMP = EST(48)\r\n      AVTHK  = (TMEM1+TMEM3+TMEM5)/3.0\r\n      AVINER = AVTHK**3/12.0\r\n      IF (TSHR1 .EQ. 0.0) NOTS = .TRUE.\r\n      THETA1 = THETAM*DEGRA\r\n      SINTH  = SIN(THETA1)\r\n      COSTH  = COS(THETA1)\r\n      IF (ABS(SINTH) .LE. 1.0E-06) SINTH = 0.0\r\nC\r\nC     EVALUATE MATERIAL PROPERTIES\r\nC\r\n      MATFLG = 2\r\n      MATID = MATID1\r\n      CALL MAT (IDELE)\r\nC\r\n      G(1) = EM(1)\r\n      G(2) = EM(2)\r\n      G(3) = EM(3)\r\n      G(4) = EM(2)\r\n      G(5) = EM(4)\r\n      G(6) = EM(5)\r\n      G(7) = EM(3)\r\n      G(8) = EM(5)\r\n      G(9) = EM(6)\r\nC\r\nC     IF TINT(6).NE.1,G1 IS G AND T1PRIME IS ALPHA TIMES T1PRIME\r\nC     IF TINT(6).EQ.1,G1 IS G TIMES ALPHA AND T1PRIME IS T1PRIME\r\nC\r\n      IF (TINT(6) .NE. 1) GO TO 147\r\nC\r\nC     G1 IS G TIMES ALPHA\r\nC\r\n      CALL GMMATS (G,3,3,0, ALF,3,1,0, G1)\r\n      GO TO 149\r\n  147 CONTINUE\r\n      DO 148 I = 1,9\r\n  148 GE1(I) = G(I)*AVINER\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,GE1(1),3,TS1(1),0,DETERM,ISING,INDEX)\r\n      IF (ISING .EQ. 2) GO TO 901\r\n      CALL GMMATS (GE1,3,3,0, TREAL(2),3,1,0, TL(1))\r\nC\r\nC     CALCULATIONS FOR THE TRIANGLE\r\nC\r\n  149 CALL TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,IEST(1),NAM )\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 177 I = 1,18\r\n  177 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC     EVALUATE CONSTANTS D1,D2,D3 IN THE LINEAR EQUATION FOR TEMPERATURE\r\nC     GRADIENT VARIATION OVER THE ELEMENT\r\nC\r\n      CALL AF (F,10,A,B,C,D1,D2,D3,THK1,THK2,THK3,1)\r\n      UNITEM = .FALSE.\r\n      IF (ABS(D2).LE.1.0E-06 .AND. ABS(D3).LE.1.0E-06) UNITEM =.TRUE.\r\nC\r\n      DISTAB = DISTA + DISTB\r\n      A1   = (THK1*DISTA+THK2*DISTB)/DISTAB\r\n      A2   = (THK2-THK1)/DISTAB\r\n      A3   = (THK3-A1)/DISTC\r\n      A1SQ = A1*A1\r\n      A2SQ = A2*A2\r\n      A3SQ = A3*A3\r\n      C1   = A1SQ*A1\r\n      C2   = 3.0*A1SQ*A2\r\n      C3   = 3.0*A1SQ*A3\r\n      C4   = 3.0*A1*A2SQ\r\n      C5   = 6.0*A1*A2*A3\r\n      C6   = 3.0*A3SQ*A1\r\n      C7   = A2SQ*A2\r\n      C8   = 3.0*A2SQ*A3\r\n      C9   = 3.0*A2*A3SQ\r\n      C10  = A3*A3SQ\r\n      CALL AF (F,10,A,B,C,B1,B2,B3,TSHR1,TSHR3,TSHR5,1)\r\n      UNIBEN =.FALSE.\r\n      IF (ABS(A2).LE.1.0E-06 .AND. ABS(A3).LE.1.0E-06) UNIBEN =.TRUE.\r\nC\r\nC     COMPUTE THE AREA INTEGRATION FUNCTION F\r\nC\r\n      CALL AF (F,10,A,B,C,0,0,0,0,0,0,-1)\r\nC\r\nC     CALCULATIONS FOR QMATRIX (QQQ) AND ITS INVERSE\r\nC\r\n      DO 110 I = 1,400\r\n  110 QQQ(I,1) = 0.0\r\n      DO 115 I = 1,6\r\n      I1 = (I-1)*3 + 1\r\n      I2 = (I-1)*3 + 2\r\n      I3 = (I-1)*3 + 3\r\n      QQQ(I1, 1) = 1.0\r\n      QQQ(I1, 2) = XC(I)\r\n      QQQ(I1, 3) = YC(I)\r\n      QQQ(I1, 4) = XC(I)*XC(I)\r\n      QQQ(I1, 5) = XC(I)*YC(I)\r\n      QQQ(I1, 6) = YC(I)*YC(I)\r\n      QQQ(I1, 7) = QQQ(I1, 4)*XC(I)\r\n      QQQ(I1, 8) = QQQ(I1, 4)*YC(I)\r\n      QQQ(I1, 9) = QQQ(I1, 5)*YC(I)\r\n      QQQ(I1,10) = QQQ(I1, 6)*YC(I)\r\n      QQQ(I1,11) = QQQ(I1, 7)*XC(I)\r\n      QQQ(I1,12) = QQQ(I1, 7)*YC(I)\r\n      QQQ(I1,13) = QQQ(I1, 8)*YC(I)\r\n      QQQ(I1,14) = QQQ(I1, 9)*YC(I)\r\n      QQQ(I1,15) = QQQ(I1,10)*YC(I)\r\n      QQQ(I1,16) = QQQ(I1,11)*XC(I)\r\n      QQQ(I1,17) = QQQ(I1,12)*YC(I)\r\n      QQQ(I1,18) = QQQ(I1,13)*YC(I)\r\n      QQQ(I1,19) = QQQ(I1,14)*YC(I)\r\n      QQQ(I1,20) = QQQ(I1,15)*YC(I)\r\n      QQQ(I2, 3) = 1.0\r\n      QQQ(I2, 5) = XC(I)\r\n      QQQ(I2, 6) = YC(I)*2.0\r\n      QQQ(I2, 8) = QQQ(I1, 4)\r\n      QQQ(I2, 9) = QQQ(I1, 5)*2.0\r\n      QQQ(I2,10) = QQQ(I1, 6)*3.0\r\n      QQQ(I2,12) = QQQ(I1, 7)\r\n      QQQ(I2,13) = QQQ(I1, 8)*2.0\r\n      QQQ(I2,14) = QQQ(I1, 9)*3.0\r\n      QQQ(I2,15) = QQQ(I1,10)*4.0\r\n      QQQ(I2,17) = QQQ(I1,12)*2.0\r\n      QQQ(I2,18) = QQQ(I1,13)*3.0\r\n      QQQ(I2,19) = QQQ(I1,14)*4.0\r\n      QQQ(I2,20) = QQQ(I1,15)*5.0\r\n      QQQ(I3, 2) =-1.0\r\n      QQQ(I3, 4) =-2.0*XC(I)\r\n      QQQ(I3, 5) =-YC(I)\r\n      QQQ(I3, 7) =-QQQ(I1, 4)*3.0\r\n      QQQ(I3, 8) =-QQQ(I1, 5)*2.0\r\n      QQQ(I3, 9) =-QQQ(I1, 6)\r\n      QQQ(I3,11) =-QQQ(I1, 7)*4.0\r\n      QQQ(I3,12) =-QQQ(I1, 8)*3.0\r\n      QQQ(I3,13) =-QQQ(I1, 9)*2.0\r\n      QQQ(I3,14) =-QQQ(I1,10)\r\n      QQQ(I3,16) =-QQQ(I1,11)*5.0\r\n      QQQ(I3,17) =-QQQ(I1,13)*3.0\r\n      QQQ(I3,18) =-QQQ(I1,14)*2.0\r\n      QQQ(I3,19) =-QQQ(I1,15)\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 113\r\nC\r\n      IF (NOTS) GO TO 115\r\n      X = XC(I)\r\n      Y = YC(I)\r\n      CALL TLODT3 (TS6,NOTS)\r\n      DO 113 JJ = 1,20\r\n      QQQ(I2,JJ) = QQQ(I2,JJ) - TS6(20+JJ)\r\n      QQQ(I3,JJ) = QQQ(I3,JJ) + TS6(   JJ)\r\n  113 CONTINUE\r\n  115 CONTINUE\r\nC\r\n      QQQ(19,16) = 5.0*A**4*C\r\n      QQQ(19,17) = 3.0*A**2*C**3 - 2.0*A**4*C\r\n      QQQ(19,18) =-2.0*A*C**4 + 3.0*A**3*C**2\r\n      QQQ(19,19) = C**5 - 4.0*A**2*C**3\r\n      QQQ(19,20) = 5.0*A*C**4\r\n      QQQ(20,16) = 5.0*B**4*C\r\n      QQQ(20,17) = 3.0*B**2*C**3 - 2.0*B**4*C\r\n      QQQ(20,18) = 2.0*B*C**4 - 3.0*B**3*C**2\r\n      QQQ(20,19) = C**5 - 4.0*B**2*C**3\r\n      QQQ(20,20) =-5.0*B*C**4\r\nC\r\nC     FOURTH ARGUMENT IS A DUMMY LOCATION FOR INVERSE AND HENCE TS1(1)\r\nC     IS U\r\nC\r\nC     AGAIN SET ISING = -1\r\nC\r\n      ISING = -1\r\n      CALL  INVERS (20,QQQ,20,TS1(1),0,DETERM,ISING,INDEX)\r\nC\r\nC     ISING EQUAL TO 2 IMPLIES THAT QQQ IS SINGULAR\r\nC\r\nC     FIRST 18 COLUMNS OF QQQ INVERSE IS THE QQQINV FOR USE IN STIFFNESS\r\nC     MATRIX CALCULATIONS\r\nC\r\n      DO 152 I = 1,20\r\n      DO 152 J = 1,18\r\n      IJ = (I-1)*18 + J\r\n      QQINV (IJ) = QQQ(I,J)\r\n  152 CONTINUE\r\nC\r\n      DO 220 I = 1,20\r\n      MX   = XPOWER(I)\r\n      RMX  = MX\r\n      NX   = YPOWER(I)\r\n      RNX  = NX\r\n      RMNX = RMX*RNX\r\n      RMX1 = RMX*(RMX-1.0D0)\r\n      RNX1 = RNX*(RNX-1.0D0)\r\n      PTEMP= 0.0\r\n      MX01 = MX - 1\r\n      MX1  = MX + 1\r\n      NX01 = NX - 1\r\n      NX1  = NX + 1\r\n      DO 215 K = 1,10\r\n      MX01X= MX01+ XTHK(K)\r\n      NX1Y = NX1 + YTHK(K)\r\n      MX1X = MX1 + XTHK(K)\r\n      NX01Y= NX01+ YTHK(K)\r\n      MXX  = MX  + XTHK(K)\r\n      NXY  = NX  + YTHK(K)\r\n      IF (TINT(6) .NE. 1) GO TO 213\r\n      DO 212 L = 1,3\r\n      MX01XP= MX01X+ PT(L)\r\n      NX1YQ = NX1Y + QT(L)\r\n      MX1XP = MX1X + PT(L)\r\n      NX01YQ= NX01Y+ QT(L)\r\n      MXXP  = MXX  + PT(L)\r\n      NXYQ  = NXY  + QT(L)\r\n      IF (MX01XP.GT.0 .AND. NX1YQ.GT.0)\r\n     1    PTEMP = PTEMP+CC(K)*DD(L)*G1(1)*RMX1*F(MX01XP,NX1YQ)\r\n      IF (MX1XP.GT.0 .AND. NX01YQ.GT.0)\r\n     1    PTEMP = PTEMP+CC(K)*DD(L)*G1(2)*RNX1*F(MX1XP,NX01YQ)\r\n      IF (MXXP.GT.0 .AND. NXYQ.GT.0)\r\n     1    PTEMP = PTEMP+CC(K)*DD(L)*G1(3)*RMNX*F(MXXP,NXYQ)\r\n      IF (UNITEM) GO TO 213\r\n  212 CONTINUE\r\nC\r\n  213 IF (TINT(6) .EQ. 1) GO TO 214\r\n      IF (MX01X .GT. 0) PTEMP = PTEMP + CC(K)*RMX1*(TL(1)*G(1)\r\n     1                        + TL(2)*G(2) + TL(3)*G(3))*F(MX01X,NX1Y)\r\n      IF (NX01Y .GT. 0) PTEMP = PTEMP + CC(K)*RNX1*(TL(1)*G(4)\r\n     1                        + TL(2)*G(5) + TL(3)*G(6))*F(MX1X,NX01Y)\r\n      IF (MXX.GT.0 .AND. NXY.GT.0) PTEMP = PTEMP + CC(K)*RMNX*\r\n     1                   (TL(1)*G(7)+TL(2)*G(8)+TL(3)*G(9))*F(MXX,NXY)\r\n  214 IF (UNIBEN) GO TO 216\r\n  215 CONTINUE\r\nC\r\n  216 PTEM(I) = PTEMP/12.0\r\n  220 CONTINUE\r\nC\r\nC     IF NO TRANSVERSE SHEAR GO TO 230\r\nC\r\nC     IF TSHR EQUAL TO ZERO OR MATID3 EQUAL TO ZERO, SKIP THESE\r\nC     CALCULATIONS\r\nC\r\n      IF (NOTS) GO TO 230\r\nC\r\n      CALL TLODT2 (TS1,TS2)\r\n      DO 226 I = 1,20\r\n      PTEM(I) = PTEM(I) + TS2(I)\r\n  226 CONTINUE\r\nC\r\nC     (QQQINV) TRANSPOSE (KTR3)  (QQQINV)\r\nC\r\n  230 CALL  GMMATS (QQINV,20,18,+1, PTEM,20,1,0, PTELE)\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL (THAT IS\r\nC     COORDINATE AT ANY GRID POINT IN WHICH DISPLACEMENT AND STRESSES\r\nC     ARE R - NOT NEEDED IF FIELD 7 IN GRID CARD IS ZERO)\r\nC\r\n      DO 301 I = 1,36\r\n      PTGLB(I) = 0.0\r\n  301 CONTINUE\r\n      DO 302 I = 1,6\r\n      SIL(I) = I\r\n  302 CONTINUE\r\n      DO 380 I = 1,6\r\n      DO 310 II = 1,36\r\n      BALOTR(II) = 0.0D0\r\n  310 CONTINUE\r\n      SIL1 = SIL(I)\r\n      DO 304 K = 1,3\r\n      K1 = (SIL1-1)*3 + K\r\n      PSUB(K) = PTELE(K1)\r\n  304 CONTINUE\r\n      CALL GMMATS (E,6,3,0, PSUB,3,1,0, PSUBT)\r\nC\r\nC     TRANSFORM THE PSUBT(6) FROM BASIC TO DISPLACEMENT COORDINATES\r\nC\r\n      IF (NL(I).EQ.0 .OR. ICS(I).EQ.0) GO TO 330\r\n      JJ = 4*I + 20\r\n      CALL TRANSS (IEST(JJ),TRAND)\r\n      DO 320 JJ = 1,3\r\n      L = 6*(JJ-1) + 1\r\n      M = 3*(JJ-1) + 1\r\n      BALOTR(L   ) = TRAND(M  )\r\n      BALOTR(L+1 ) = TRAND(M+1)\r\n      BALOTR(L+2 ) = TRAND(M+2)\r\n      BALOTR(L+21) = TRAND(M  )\r\n      BALOTR(L+22) = TRAND(M+1)\r\n      BALOTR(L+23) = TRAND(M+2)\r\n  320 CONTINUE\r\n      CALL GMMATS (BALOTR(1),6,6,1, PSUBT,6,1,0, PSUBT1)\r\n      DO 350 K = 1,6\r\n      PSUBT(K) = PSUBT1(K)\r\n  350 CONTINUE\r\nC\r\nC     INSERT PTGLB IN PG\r\nC\r\n  330 DO 370 II = 1,6\r\n      I1 = (I-1)*6 + II\r\n      I2 = IEST(I+1) + II - 1\r\n      PTGLB(I1) = PSUBT(II)\r\n      PG(I2) = PG(I2) + PSUBT(II)\r\n  370 CONTINUE\r\n  380 CONTINUE\r\n      GO TO 999\r\nC\r\n  901 WRITE  (IOUT,905) UFM,IEST(1)\r\n  905 FORMAT (A23,' 2412, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =',\r\n     1       I9,' HAS BEEN DETECTED BY SUBROUTINE TLODT1', /26X,'WHILE',\r\n     2       ' TRYING TO COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.')\r\n      NOGO=.TRUE.\r\n  999 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlodt2.f",
    "content": "      SUBROUTINE TLODT2 (TS1,TS2)\r\nC\r\nC    CALCULATION OF PTGEN2 - GEN THERMAL LOAD VECTOR DUE TO TRANSVERSE S\r\nC\r\n      DIMENSION       TS1(60),TS2(20),TS3(20)\r\n      REAL            J11,J12,J22\r\n      COMMON /EMGEST/ EST(100)\r\n      COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3,B1,B2,B3,G1(3),\r\n     1                D(3)\r\n      COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22\r\n      DIMENSION       BE(7),GA(7),WT(7),CONS(2)\r\n      DATA       BE / 0.33333333333333, 0.47014206   , 0.05971588  ,\r\n     1                0.47014206      , 0.101286505  , 0.79742699  ,\r\n     2                0.101286505     /\r\n      DATA       GA / 0.33333333333333, 2*.47014206  , 0.05971588  ,\r\n     1                2*0.101286505   , 0.79742699   /\r\n      DATA       WT / 0.1125          , 3*0.066197075, 3*0.06296959/\r\nC\r\n      CONS(1)=DISTA*DISTC\r\n      CONS(2)=DISTB*DISTC\r\n      DO 104 I=1,60\r\n      TS1(I)=0.0\r\n  104 CONTINUE\r\n      DO 106 I=1,20\r\n      TS3(I)=0.0\r\n  106 CONTINUE\r\n      DO 150 K=1,7\r\n      DO 145 KASE=1,2\r\n      IF (KASE.EQ.1) X= BE(K)*DISTA\r\n      IF (KASE.EQ.2) X=-BE(K)*DISTB\r\n      Y=GA(K)*DISTC\r\n      CONS1=WT(K)*CONS(KASE)\r\n      THK=A1+A2*X+A3*Y\r\n      TEMP=D(1)+D(2)*X+D(3)*Y\r\n      THK1=THK**3/12.0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      J11=1.0/(EM(6)*THK)\r\n      J22=J11\r\n      J12=0.0\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31= A14+2.0*A13\r\n      A32= A12+2.0*A16\r\n      A33= A24+2.0*A23\r\n      A34= A22+2.0*A26\r\n      A35= A33+A11\r\n      A36= A34+A31\r\n      A37= A25+A32\r\n      TS1(31)  =-24.0*A11\r\n      TS1(33)  =-24.0*A21\r\n      TS1(34)  =-6.0*A31\r\n      TS1(35)  =-6.0*A21\r\n      TS1(36)  =-6.0*A35\r\n      TS1(37)  =-4.0*A32\r\n      TS1(38)  =-4.0*A33\r\n      TS1(39)  =-4.0*A36\r\n      TS1(40)  =-6.0*A15\r\n      TS1(41)  =-6.0*A34\r\n      TS1(42)  =-6.0*A37\r\n      TS1(44)  =-24.0*A25\r\n      TS1(45)  =-24.0*A15\r\n      TS1(46)  =-120.0*A11*X\r\n      TS1(48)  =-120.0*A21*X\r\n      TS1(49)  =-12.0*(A32*X+A31*Y)\r\n      TS1(50)  =-12.0*(A33*X+A21*Y)\r\n      TS1(51)  =-12.0*(A36*X+A35*Y)\r\n      TS1(52)  =-12.0*(A15*X+A32*Y)\r\n      TS1(53)  =-12.0*(A34*X+A33*Y)\r\n      TS1(54)  =-12.0*(A37*X+A36*Y)\r\n      TS1(55)  =-24.0*A15*Y\r\n      TS1(56)  =-24.0*(A25*X+A34*Y)\r\n      TS1(57)  =-24.0*(A15*X+A37*Y)\r\n      TS1(59)  =-120.0*A25*Y\r\n      TS1(60)  =-120.0*A15*Y\r\nC\r\nC\r\n      CALL GMMATS (TS1,20,3,0,G 1,3,1,0,TS2)\r\n      DO 112 I=1,20\r\n      TS2(I)=TS2(I)*TEMP*THK1*CONS1\r\n      TS3(I)=TS3(I)+TS2(I)\r\n  112 CONTINUE\r\n  145 CONTINUE\r\n  150 CONTINUE\r\n      DO 160 I=1,20\r\n      TS2(I)=TS3(I)\r\n  160 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlodt3.f",
    "content": "      SUBROUTINE TLODT3  (TS6,NOTS)\r\n      COMMON /SSGWRK/ X,Y,Z,DISTA,DISTB,DISTC,\r\n     1    A1,A2,A3,B1,B2,B3,DUM50(50)\r\n      REAL J11,J12,J22\r\n      LOGICAL NOTS\r\n      COMMON /MATOUT/ EM(6)\r\n      DIMENSION TS6(40)\r\n      DO 105 I=1,40\r\n      TS6(I)=0.0\r\n  105 CONTINUE\r\n      THK=A1+A2*X+A3*Y\r\n      THK1=THK**3/12.0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      IF (NOTS) GO TO 146\r\n      THK=B1+B2*X+B3*Y\r\n      J11=1.0/(EM(6)*THK)\r\n      J12=0.0\r\n      J22=J11\r\n      GO TO 148\r\n  146 CONTINUE\r\n      J11=1.0\r\n      J12=0.0\r\n      J22=1.0\r\n  148 CONTINUE\r\nC\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\nC\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      A38=A13+A14\r\n      A39=A12+A16\r\n      A40=A23+A24\r\n      A41=A22+A26\r\n      TS6( 7)=6.0*A11\r\n      TS6( 8)=2.0*A31\r\n      TS6( 9)=2.0*A32\r\n      TS6(10)=6.0*A15\r\n      TS6(11)=24.0*A11*X\r\n      TS6(12)=6.0*(A31*X+A11*Y)\r\n      TS6(13)=4.0*(A32*X+A31*Y)\r\n      TS6(14)=6.0*(A15*X+A32*Y)\r\n      TS6(15)=24.0*A15*Y\r\n      IF (NOTS) GO TO 156\r\n      TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2)\r\n      TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21)\r\n     1   +6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33)\r\n     1   +6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15)\r\n      TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2)\r\n      GO TO 158\r\n  156 CONTINUE\r\n      TS6(16)=60.0*A11*X2\r\n      TS6(17)=6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=12.0*(2.0*A15*XY+A32*Y2)\r\n      TS6(20)=60.0*A15*Y2\r\n  158 CONTINUE\r\n      TS6(27)=6.0*A21\r\n      TS6(28)=2.0*A33\r\n      TS6(29)=2.0*A34\r\n      TS6(30)=6.0*A25\r\n      TS6(31)=24.0*A21*X\r\n      TS6(32)=6.0*(A33*X+A21*Y)\r\n      TS6(33)=4.0*(A34*X+A33*Y)\r\n      TS6(34)=6.0*(A25*X+A34*Y)\r\n      TS6(35)=24.0*A25*Y\r\n      IF (NOTS) GO TO 166\r\n      TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2)\r\n      TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21)\r\n     1   +6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33)\r\n     1   +6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15)\r\n      TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2)\r\n      GO TO 168\r\n  166 CONTINUE\r\n      TS6(36)=60.0*A21*X2\r\n      TS6(37)=6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=12.0*(2.0*A25*XY+A34*Y2)\r\n      TS6(40)=60.0*A25*Y2\r\n  168 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tlqd4d.f",
    "content": "       SUBROUTINE TLQD4D\r\nC\r\nC     ELEMENT THERMAL LOAD GENERATOR FOR 4-NODE ISOPARAMETRIC\r\nC     QUADRILATERAL SHELL ELEMENT (QUAD4)\r\nC     (DOUBLE PRECISION VERSION)\r\nC\r\nC     COMPLETELY RESTRUCTURED FOR COMPOSITES WITH THE FOLLOWING\r\nC     LIMITATION -\r\nC     1. FOR DIFFERENT GRID POINT TEMPERATURES AN AVERAGE\r\nC        VALUE IS TAKEN.                       HEMANT  2/24/86\r\nC\r\nC\r\nC                 EST LISTING\r\nC     ---------------------------------------------------------\r\nC      1          EID\r\nC      2 THRU 5   SILS, GRIDS 1 THRU 4\r\nC      6 THRU 9   T (MEMBRANE), GRIDS 1 THRU 4\r\nC     10          THETA (MATERIAL)\r\nC     11          TYPE FLAG FOR WORD 10\r\nC     12          ZOFF  (OFFSET)\r\nC     13          MATERIAL ID FOR MEMBRANE\r\nC     14          T (MEMBRANE)\r\nC     15          MATERIAL ID FOR BENDING\r\nC     16          I FACTOR (BENDING)\r\nC     17          MATERIAL ID FOR TRANSVERSE SHEAR\r\nC     18          FACTOR FOR T(S)\r\nC     19          NSM (NON-STRUCTURAL MASS)\r\nC     20 THRU 21  Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC     22          MATERIAL ID FOR MEMBRANE-BENDING COUPLING\r\nC     23          THETA (MATERIAL) FROM PSHELL CARD\r\nC     24          TYPE FLAG FOR WORD 23\r\nC     25          INTEGRATION ORDER\r\nC     26          THETA (STRESS)\r\nC     27          TYPE FLAG FOR WORD 26\r\nC     28          ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC     29 THRU 44  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC     45          ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL          BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,\r\n     1                 TEMPP1,TEMPP2,PCMP,PCMP1,PCMP2,COMPOS\r\n      INTEGER          INTZ(1),NOUT,NEST(45),ELID,SIL(4),KSIL(4),\r\n     1                 KCID(4),IGPDT(4,4),FLAG,ROWFLG,NECPT(4),\r\n     2                 MID(4),INDEX(3,3),INDX(6,3),COMPS,NAM(2),\r\n     3                 PCOMP,PCOMP1,PCOMP2,SYM,SYMMEM,PID,PIDLOC\r\n      REAL             GPTH(4),TGRID(4,4),GPNORM(4,4),BGPDT(4,4),\r\n     1                 MATSET,TMPTHK(4),ECPT(4),EGPDT(4,4),\r\n     2                 EPNORM(4,4),BGPDM(3,4),ALPHAM(6),TSUB0,STEMP,Z\r\n      DOUBLE PRECISION DGPTH(4),THK,EPS1,XI,ETA,DETJ,HZTA,PSITRN(9),\r\n     1                 JACOB(9),PHI(9),MOMINR,COEFF,REALI,PI,TWOPI,\r\n     2                 RADDEG,DEGRAD,SHP(4),DSHP(8),TMPSHP(4),\r\n     3                 DSHPTP(8),GT(9),G(6,6),GI(36),U(9),TRANS(36),\r\n     4                 PTINT(2),GGE(9),GGU(9),TBM(9),TEB(9),TEM(9),\r\n     5                 TUB(9),TUM(9),TEU(9),TBG(9),UGPDM(3,4),CENTE(3),\r\n     6                 CENT(3),X31,Y31,X42,Y42,AA,BB,CC,EXI,EXJ,XM,YM,\r\n     7                 THETAM,BMATRX(144),XYBMAT(96),ALPHA(6),ALFAM(3),\r\n     8                 ALFAB(3),TALFAM(3),TALFAB(3),ALPHAD(6),PT(24),\r\n     9                 PTG(24),TBAR,TTBAR,TGRAD,THRMOM(3),G2I(9),G2(9),\r\n     O                 GTEMPS(6),EPSUBT(6),GEPSBT(6),DETU,DETG2,DETERM\r\n      DOUBLE PRECISION ABBD(6,6),STIFF(36),GPROP(25),GLAY(9),GLAYT(9),\r\n     1                 GBAR(9),GALPHA(3),ALPHAL(3),ALPHAE(3),MINTR,\r\n     2                 TLAM,THETA,THETAE,TRANSL(9),TSUBO,TMEAN,TEMPEL,\r\n     3                 DELTA,DELTAT,ZK,ZK1,ZREF,ZSUBI,C,C2,S,S2,\r\n     4                 FTHERM(6),EPSLNT(6),OFFSET,CONST,UEV,ANGLEI,\r\n     5                 EDGEL,EDGSHR,UNV\r\nCWKBNB 11/93 SPR 93020\r\n      DOUBLE PRECISION VD1(3), VD2(3), VKN(3), VKS(3)\r\n     1,                V12(3), V41(3), VP12(3),VIS(3), VJS(3)\r\nCWKBNE 11/93 SPR 93020\r\nCWKBI 9/94 SPR93020\r\n      DOUBLE PRECISION VKL, V12DK, VP12L, VJL\r\nC\r\n      COMMON /CONDAD/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /TRIMEX/  EST(45)\r\n      COMMON /SYSTEM/  BUFFER(100)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/  RMTOUT(25)\r\n      COMMON /SGTMPD/  STEMP(8)\r\nCZZ   COMMON /ZZSSB1/  Z(1)\r\n      COMMON /ZZZZZZ/  Z(20000)\r\n      COMMON /BLANK /  NROWSP,IPARAM,COMPS\r\n      COMMON /COMPST/  IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\n      COMMON /Q4DT  /  DETJ,HZTA,PSITRN,NNODE,BADJAC,N1\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMD/  ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                 UEV(3,4),ROWFLG,IORDER(4)\r\nC\r\n      EQUIVALENCE      (Z(1)     ,INTZ(1)), (IGPDT(1,1),BGPDT(1,1))\r\n      EQUIVALENCE      (EST(1)   ,NEST(1)), (MATSET    ,RMTOUT(25))\r\n      EQUIVALENCE      (GPTH(1)  ,EST(6) ), (BGPDT(1,1),EST(29)   )\r\n      EQUIVALENCE      (ELTH     ,EST(14)), (SIL(1)    ,NEST(2)   )\r\n      EQUIVALENCE      (ZOFF     ,EST(12)), (ZOFF1     ,EST(28)   )\r\n      EQUIVALENCE      (NECPT(1) ,ECPT(1)), (BUFFER(1) ,SYSBUF    )\r\n      EQUIVALENCE      (BUFFER(2),NOUT   ), (BUFFER(3) ,NOGO      )\r\n      EQUIVALENCE      (STEMP(7) ,FLAG   ), (ALFAM(1)  ,ALPHA(1)  )\r\n      EQUIVALENCE      (ALFAB(1) ,ALPHA(4))\r\nC\r\n      DATA EPS1    / 1.0D-7 /\r\n      DATA PCOMP   / 0 /\r\n      DATA PCOMP1  / 1 /\r\n      DATA PCOMP2  / 2 /\r\n      DATA SYM     / 1 /\r\n      DATA MEM     / 2 /\r\n      DATA SYMMEM  / 3 /\r\n      DATA CONST   / 0.57735026918962D+0 /\r\n      DATA NAM     / 4HTLQD,4H4D         /\r\nC\r\nC     ZERO THE VARIOUS ALPHA ARRAYS\r\nC\r\n      DO 10 I =1,6\r\n      ALPHAM(I) = 0.0\r\n      ALPHA(I)  = 0.0D0\r\n      ALPHAD(I) = 0.0D0\r\n   10 CONTINUE\r\n      DO 20 I =1,3\r\n      TALFAM(I) = 0.0D0\r\n      TALFAB(I) = 0.0D0\r\n   20 CONTINUE\r\nC\r\n      ELID = NEST(1)\r\n      LTYPFL = 1\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     TEST FOR COMPOSITE ELEMENT\r\nC\r\n      COMPOS = .FALSE.\r\nC\r\n      PID = NEST(13) - 100000000\r\n      COMPOS = COMPS.EQ.-1 .AND. PID.GT.0\r\nC\r\nC     CHECK FOR THE TYPE OF TEMPERATURE DATA\r\nC     NOTES-  1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3\r\nC             2- IF NO TEMPPI CARDS, GRID POINT TEMPERATURES\r\nC                ONLY ARE PRESENT\r\nC\r\n      TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ. 2\r\nC\r\n      N1   = 4\r\n      NNODE= 4\r\n      NDOF = NNODE*6\r\n      ND2  = NDOF*2\r\n      ND3  = NDOF*3\r\n      ND4  = NDOF*4\r\n      ND5  = NDOF*5\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS\r\nC     1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE\r\nC     THE USER COORDINATE SYSTEM WHILE CALCULATING\r\nC     TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM.\r\nC\r\n      DO 30 I = 1,3\r\n      II = (I-1)*3\r\n      IJ = I\r\n      IF (IJ .EQ. 3) IJ = 4\r\n      DO 30 J = 1,3\r\n      JJ = J+1\r\n   30 GGU(II+J) = BGPDT(JJ,IJ)\r\nCWKBD 11/93 SPR93020      CALL BETRND (TUB,GGU,0,ELID)\r\nCWKBNB 11/93 SPR93020\r\nC    ADD FROM SHEAR ELEMENT\r\nC\r\nC    COMPUTE DIAGONAL VECTORS\r\nC\r\n      DO 21 I = 1,3\r\n      II=I+1\r\n      VD1(I) = BGPDT(II,3) - BGPDT(II,1)\r\n   21 VD2(I) = BGPDT(II,4) - BGPDT(II,2)\r\nC\r\nC    COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC    AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL = DSQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 )\r\n      IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n2070  FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 )\r\n      VKS(1) = VKN(1)/VKL\r\n      VKS(2) = VKN(2)/VKL\r\n      VKS(3) = VKN(3)/VKL\r\n      PA = VKL/2.\r\nC\r\nC  COMPUTE SIDES -12- AND -41-\r\n      DO 25 I = 1,3\r\n      II = I + 1\r\n      V12(I) = BGPDT(II,2) - BGPDT(II,1)\r\n      V41(I) = BGPDT(II,1) - BGPDT(II,4)\r\n25    CONTINUE\r\nC\r\nC  COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK   = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3)\r\n      VP12(1) = V12(1) - V12DK*VKS(1)\r\n      VP12(2) = V12(2) - V12DK*VKS(2)\r\n      VP12(3) = V12(3) - V12DK*VKS(3)\r\n      VP12L   = DSQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 )\r\n      IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n      VIS(1) = VP12(1) / VP12L\r\n      VIS(2) = VP12(2) / VP12L\r\n      VIS(3) = VP12(3) / VP12L\r\n      VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2)\r\n      VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3)\r\n      VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1)\r\nC\r\nC   NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = DSQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 )\r\n      IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1)\r\n      VJS(1) = VJS(1) / VJL\r\n      VJS(2) = VJS(2) / VJL\r\n      VJS(3) = VJS(3) / VJL\r\n      DO 29 I = 1,3\r\n      TUB(I)   = VIS(I)\r\n      TUB(I+3) = VJS(I)\r\n      TUB(I+6) = VKS(I)\r\n29    CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     STORE INCOMING BGPDT FOR ELEMENT C.S. CALCULATION\r\nC\r\n      DO 40 I = 1,3\r\n      I1 = I + 1\r\n      DO 40 J = 1,4\r\n   40 BGPDM(I,J) = BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER C.S.\r\nC\r\n      DO 50 I = 1,3\r\n      IP = (I-1)*3\r\n      DO 50 J = 1,4\r\n      UGPDM(I,J) = 0.0\r\n      DO 50 K = 1,3\r\n      KK = IP + K\r\n   50 UGPDM(I,J) = UGPDM(I,J) + TUB(KK)*(DBLE(BGPDM(K,J))-GGU(K))\r\nC\r\nC\r\nC     THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT\r\nC\r\n      DO 60 J = 1,3\r\n      CENT(J) = 0.0D0\r\n      DO 60 I = 1,4\r\n   60 CENT(J) = CENT(J) + UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER C. S.\r\nC\r\n      X31 = UGPDM(1,3) - UGPDM(1,1)\r\n      Y31 = UGPDM(2,3) - UGPDM(2,1)\r\n      X42 = UGPDM(1,4) - UGPDM(1,2)\r\n      Y42 = UGPDM(2,4) - UGPDM(2,2)\r\n      AA  = DSQRT(X31*X31+Y31*Y31)\r\n      BB  = DSQRT(X42*X42+Y42*Y42)\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31 = X31/AA\r\n      Y31 = Y31/AA\r\n      X42 = X42/BB\r\n      Y42 = Y42/BB\r\n      EXI = X31 - X42\r\n      EXJ = Y31 - Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S.\r\nC\r\n      GGE(1) = CENT(1)\r\n      GGE(2) = CENT(2)\r\n      GGE(3) = CENT(3)\r\nC\r\n      GGE(4) = GGE(1) + EXI\r\n      GGE(5) = GGE(2) + EXJ\r\n      GGE(6) = GGE(3)\r\nC\r\n      GGE(7) = GGE(1) - EXJ\r\n      GGE(8) = GGE(2) + EXI\r\n      GGE(9) = GGE(3)\r\nC\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE\r\nC     LIST  G1,G2,G3,G4 .  THAT IS, THE 'I' PART\r\nC     OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY\r\nC     BULK DATA CARD DESCRIPTION.\r\nC\r\nC\r\n      DO 70 I = 1,4\r\n      IORDER(I) = 0\r\n      KSIL(I) = SIL(I)\r\n   70 CONTINUE\r\nC\r\n      DO 90 I = 1,4\r\n      ITEMP = 1\r\n      ISIL  = KSIL(1)\r\n      DO 80 J = 2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 80\r\n      ITEMP = J\r\n      ISIL  = KSIL(J)\r\n   80 CONTINUE\r\n      IORDER(I) = ITEMP\r\n      KSIL(ITEMP) = 99999999\r\n   90 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE\r\nC     FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\nC\r\n      DO 110 I = 1,4\r\n      KSIL(I  ) = SIL(I)\r\n      TMPTHK(I) = GPTH(I)\r\n      KCID(I  ) = IGPDT(1,I)\r\n      DO 100 J = 2,4\r\n      TGRID(J,I) = BGPDT(J,I)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      DO 130 I = 1,4\r\n      IPOINT = IORDER(I)\r\n      SIL(I) = KSIL(IPOINT)\r\n      GPTH(I)= TMPTHK(IPOINT)\r\n      IGPDT(1,I) = KCID(IPOINT)\r\n      DO 120 J = 2,4\r\n      BGPDT(J,I) = TGRID(J,IPOINT)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\nC     SORT THE GRID POINT TEMPERATURES (IN STEMP(1-4)). IF PRESENT AND\r\nC     MAKE DOUBLE PRECISION THE OTHER KINDS OF TEMPERATURE DATA IF\r\nC     TEMPPI CARDS PRESENT\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 150\r\nC\r\n      TEMPEL = 0.0D0\r\n      DO 140 I = 1,4\r\n      IPNT = IORDER(I)\r\n      GTEMPS(I) = STEMP(IPNT)\r\n      TEMPEL = TEMPEL + GTEMPS(I)\r\n  140 CONTINUE\r\n      TEMPEL = TEMPEL*0.25D0\r\n      GO TO 170\r\nC\r\n  150 IF (TEMPP2) GO TO 160\r\nC\r\n      TBAR  = STEMP(1)\r\n      TGRAD = STEMP(2)\r\n      GO TO 170\r\nC\r\n  160 TBAR = STEMP(1)\r\n      THRMOM(1) = STEMP(2)\r\n      THRMOM(2) = STEMP(3)\r\n      THRMOM(3) = STEMP(4)\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n  170 CALL Q4NRMD (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .EQ. 0) GO TO 180\r\n      J = -230\r\n      GO TO 1580\r\nC\r\nC     DETERMINE NODAL THICKNESSES\r\nC\r\n  180 DO 200 I = 1,NNODE\r\n      IF (GPTH(I) .EQ. 0.0) GPTH(I) = ELTH\r\n      IF (GPTH(I) .GT. 0.0) GO TO 190\r\n      WRITE (NOUT,1700) ELID\r\n      NOGO = 1\r\n      GO TO 1600\r\n  190 DGPTH(I) = GPTH(I)\r\n  200 CONTINUE\r\nC\r\n      MOMINR = 0.0D0\r\n      IF (NEST(15) .NE. 0) MOMINR = EST(16)\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE\r\nC     TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S.\r\nC\r\n      CALL BETRND (TEU,GGE,0,ELID)\r\n      CALL GMMATD (TEU,3,3,0,TUB,3,3,0,TEB)\r\n      CALL GMMATD (TUB,3,3,1,CENT,3,1,0,CENTE)\r\nC\r\n      IP = -3\r\n      DO 210 II = 2,4\r\n      IP = IP + 3\r\n      DO 210 J = 1,NNODE\r\n      EPNORM(II,J) = 0.0\r\n      EGPDT(II,J)  = 0.0\r\n      DO 210 K = 1,3\r\n      KK = IP + K\r\n      K1 = K + 1\r\n      CC = DBLE(BGPDT(K1,J)) - GGU(K) - CENTE(K)\r\n      EPNORM(II,J) = EPNORM(II,J) + TEB(KK)*GPNORM(K1,J)\r\n  210 EGPDT(II,J)  = EGPDT(II,J)  + SNGL(TEB(KK)*CC)\r\nCWKBNB 11/93 SPR93020\r\n      DO 171 J = 1, 4\r\n      EGPDT(4,J) = CENT(3)\r\n171   CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     BEGIN INITIALIZING MATERIAL VARIABLES\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR -\r\nC     ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      INFLAG = 12\r\n      ELTEMP = EST(45)\r\n      MID(1) = NEST(13)\r\n      MID(2) = NEST(15)\r\n      MID(3) = 0\r\n      MID(4) = NEST(22)\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH =.FALSE.\r\nC\r\nC     SET THE INTEGRATION POINTS\r\nC\r\n      PTINT(1) = -CONST\r\n      PTINT(2) =  CONST\r\nC\r\nC     IN PLANE SHEAR REDUCTION\r\nC\r\n      XI  = 0.0D0\r\n      ETA = 0.0D0\r\n      KPT = 1\r\n      KPT1= ND2\r\nC\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 300 I = 1,4\r\n      TMPSHP(I) = SHP(I)\r\n      DSHPTP(I) = DSHP(I)\r\n  300 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 310 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP(I) = TMPSHP(KK)\r\n      DSHP(I) = DSHPTP(KK)\r\n  310 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\n      DO 320 IZTA = 1,2\r\n      ZTA = PTINT(IZTA)\r\n      HZTA= ZTA/2.0D0\r\n      CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1600\r\nC\r\n      CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGD TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B AT\r\nC     THE TWO INTEGRATION POINTS.\r\nC\r\n      ROWFLG = 2\r\n      CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT))\r\n  320 KPT = KPT + KPT1\r\nC\r\nC     SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSD.\r\nC     NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH\r\nC     WILL BE SET IN POSITION LATER.\r\nC\r\n      DO 330 IEC = 2,4\r\n  330 ECPT(IEC) = 0.0\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM\r\nC     THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE\r\nC     SYSTEM. THESE STEPS ARE TO BE FOLLOWED-\r\nC\r\nC     1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSD IS CALLED\r\nC        TO CALCULATE TBM MATRIX (MATERIAL TO BASIC TRANSFORMATION).\r\nC        THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRND\r\nC        TO CALCULATE TEB MATRIX (BASIC TO ELEMENT TRANSFORMATION).\r\nC        TBM IS THEN PREMULTIPLIED BY TEB TO OBTAIN TEM MATRIX.\r\nC        THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED\r\nC        UPON WHICH STEP 2 IS TAKEN.\r\nC\r\nC     2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRD IS CALLED\r\nC        TO CALCULATE TEM MATRIX (MATERIAL TO ELEMENT TRANSFORMATION).\r\nC\r\nC                          T\r\nC     3-          G   =   U   G    U\r\nC                  E           M\r\nC\r\nC\r\n      IF (NEST(11) .EQ. 0) GO TO 390\r\n      MCSID = NEST(10)\r\nC\r\nC     CALCULATE TEM USING MCSID\r\nC\r\n  340 IF (MCSID .GT. 0) GO TO 360\r\n      DO 350 I = 1,9\r\n  350 TEM(I) = TEB(I)\r\n      GO TO 370\r\n  360 NECPT(1) = MCSID\r\n      CALL TRANSD (ECPT,TBM)\r\nC\r\nC     MULTIPLY TEB AND TBM\r\nC\r\n      CALL GMMATD (TEB,3,3,0,TBM,3,3,0,TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n  370 IMT = -1\r\n      XM  = TEM(1)\r\n      YM  = TEM(4)\r\n      IF (DABS(XM) .LE. EPS1) IMT = IMT + 1\r\n      IF (DABS(YM) .LE. EPS1) IMT = IMT + 2\r\n      IF (IMT .LT. 2) GO TO 380\r\n      NEST(2) = MCSID\r\n      J = -231\r\n      GO TO 1580\r\n  380 THETAM = DATAN2(YM,XM)\r\n      GO TO 400\r\nC\r\nC     CALCULATE TEM USING THETAM\r\nC\r\n  390 THETAM = DBLE(EST(10))*DEGRAD\r\n      IF (THETAM .EQ. 0.0D0) GO TO 410\r\n  400 CALL ANGTRD (THETAM,1,TUM)\r\n      CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      GO TO 480\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM\r\nC     ON THE PSHELL CARD.\r\nC\r\n  410 IF (NEST(24) .EQ. 0) GO TO 420\r\n      MCSID = NEST(23)\r\n      GO TO 340\r\nC\r\n  420 THETAM = DBLE(EST(23))*DEGRAD\r\n      GO TO 400\r\nC\r\nC     BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID\r\nC\r\n  480 M = 0\r\n  500 M = M + 1\r\n      IF (M .GT. 4) GO TO 690\r\n      MATID = MID(M)\r\n      IF (MATID .EQ. 0) GO TO 500\r\n      IF (M-1) 530,520,510\r\n  510 IF (MATID .EQ. MID(M-1)) GO TO 530\r\n  520 CALL MAT (ELID)\r\n  530 CONTINUE\r\nC\r\n      TSUB0 = RMTOUT(11)\r\n      IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10)\r\nC\r\n      COEFF = 1.0D0\r\n      LPOINT= (M-1)*9 + 1\r\nC\r\n      CALL Q4GMGD (M,COEFF,GI(LPOINT))\r\nC\r\n      IF (THETAM .EQ. 0.0D0) GO TO 550\r\nC\r\n      U(1) = TEM(1)*TEM(1)\r\n      U(2) = TEM(4)*TEM(4)\r\n      U(3) = TEM(1)*TEM(4)\r\n      U(4) = TEM(2)*TEM(2)\r\n      U(5) = TEM(5)*TEM(5)\r\n      U(6) = TEM(2)*TEM(5)\r\n      U(7) = TEM(1)*TEM(2)*2.0D0\r\n      U(8) = TEM(4)*TEM(5)*2.0D0\r\n      U(9) = TEM(1)*TEM(5) + TEM(2)*TEM(4)\r\n      L    = 3\r\nC\r\n      CALL GMMATD (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1))\r\n      CALL GMMATD (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT))\r\nC\r\n  550 IF (COMPOS) GO TO 500\r\nC\r\nC     TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA\r\nC\r\n      IF (M .GT. 2) GO TO 500\r\n      MORB = (M-1)*3\r\n      IF (MATSET .EQ. 2.0) GO TO 610\r\n      IF (MATSET .EQ. 8.0) GO TO 630\r\nC\r\nC     MAT1\r\nC\r\n      DO 600 IMAT = 1,2\r\n  600 ALPHAM(IMAT+MORB) = RMTOUT(8)\r\n      ALPHAM(3+MORB) = 0.0\r\n      GO TO 640\r\nC\r\nC     MAT2\r\nC\r\n  610 DO 620 IMAT = 1,3\r\n  620 ALPHAM(IMAT+MORB) = RMTOUT(7+IMAT)\r\n      GO TO 640\r\nC\r\nC     MAT8\r\nC\r\n  630 ALPHAM(MORB+1) = RMTOUT(8)\r\n      ALPHAM(MORB+2) = RMTOUT(9)\r\n      ALPHAM(MORB+3) = 0.0\r\nC\r\nC     SKIP THE TRANSFORMATION OF ALPHAM IF MATSET = 1. OR THETAM = 0.D0\r\nC\r\n  640 IF (MATSET .EQ.   1.0) GO TO 650\r\n      IF (THETAM .NE. 0.0D0) GO TO 670\r\nC\r\n  650 DO 660 IG = 1,3\r\n      ALPHA(IG+MORB) = ALPHAM(IG+MORB)\r\n  660 CONTINUE\r\n      GO TO 500\r\nC\r\nC     THE ALPHAS NEED TO BE PREMULTIPLIED BY U INVERSE. INCREMENT MORB\r\nC     BY 1 TO INDICATE WHERE TO FILL THE ARRAYS, AND PUT THE SINGLE\r\nC     PREC. ARRAY OF ALPHAM INTO THE DOUBLE PREC. ARRAY OF ALPHAD FOR\r\nC     THE CALL TO GMMATD.\r\nC\r\n  670 MORB = MORB + 1\r\n      DO 680 I =1,6\r\n      ALPHAD(I) = ALPHAM(I)\r\n  680 CONTINUE\r\n      CALL INVERD (3,U,3,BDUM,0,DETU,ISNGU,INDEX)\r\n      CALL GMMATD (U,3,3,0,ALPHAD(MORB),3,1,0,ALPHA(MORB))\r\n      GO TO 500\r\nC\r\n  690 IF (.NOT.COMPOS) GO TO 1070\r\nC\r\nC      IF LAMINATED COMPOSITE ELEMENT, DETERMINE THE THERMAL\r\nC      STRAIN VECTOR DUE TO THE APPLIED THERMAL LOADING.\r\nC      NOTE THE FOLLOWING -\r\nC         1. DIFFERENT GRID POINT TEMPERATURES ARE NOT SUPPORTED\r\nC\r\nC     LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH\r\nC     OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE\r\nC     THE TYPE OF 'PCOMP' BULK DATA ENTRY.\r\nC\r\nC     POINTER DESCRIPITION\r\nC     --------------------\r\nC     IPCMP  - LOCATION OF START OF PCOMP DATA IN CORE\r\nC     NPCMP  - NUMBER OF WORDS OF PCOMP DATA\r\nC     IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE\r\nC     NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA\r\nC     IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE\r\nC     NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA\r\nC\r\nC     ITYPE  - TYPE OF PCOMP BULK DATA ENTRY\r\nC\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = SYM  (SYMMETRIC)\r\nC            = MEM  (MEMBRANE)\r\nC            = SYMMEM  (SYMMETRIC-MEMBRANE)\r\nC\r\nC\r\nC     SET POINTER LPCOMP\r\n      LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2\r\nC\r\nC     SET POINTERS\r\nC\r\n      ITYPE = -1\r\nC\r\n      PCMP  = .FALSE.\r\n      PCMP1 = .FALSE.\r\n      PCMP2 = .FALSE.\r\nC\r\n      PCMP   = NPCMP  .GT. 0\r\n      PCMP1  = NPCMP1 .GT. 0\r\n      PCMP2  = NPCMP2 .GT. 0\r\nC\r\nC     CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE\r\nC\r\n      IF (PCMP .OR. PCMP1 .OR. PCMP2) GO TO 700\r\n      J = -229\r\n      GO TO 1580\r\nC\r\nC     SEARCH FOR PID IN PCOMP DATA\r\nC\r\n  700 IF (.NOT.PCMP) GO TO 750\r\nC\r\n      IP = IPCMP\r\n      IF (INTZ(IP) .EQ. PID) GO TO 740\r\n      IPC11 = IPCMP1 - 1\r\n      DO 720 IP = IPCMP,IPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 710\r\n      GO TO 720\r\n  710 IF (INTZ(IP+1) .EQ. PID) GO TO 730\r\n  720 CONTINUE\r\n      GO TO 750\r\nC\r\n  730 IP = IP+1\r\n  740 ITYPE = PCOMP\r\n      GO TO 860\r\nC\r\nC     SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  750 IF (.NOT.PCMP1) GO TO 800\r\n      IP = IPCMP1\r\n      IF (INTZ(IP) .EQ. PID) GO TO 790\r\n      IPC21 = IPCMP2 - 1\r\n      DO 770 IP = IPCMP1,IPC21\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 760\r\n      GO TO 770\r\n  760 IF (INTZ(IP+1) .EQ. PID) GO TO 780\r\n  770 CONTINUE\r\n      GO TO 800\r\nC\r\n  780 IP = IP+1\r\n  790 ITYPE = PCOMP1\r\n      GO TO 860\r\nC\r\nC     SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n  800 IP = IPCMP2\r\n      IF (INTZ(IP) .EQ. PID) GO TO 840\r\n      LPC11 = LPCOMP - 1\r\n      DO 820 IP = IPCMP2,LPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 810\r\n      GO TO 820\r\n  810 IF (INTZ(IP+1) .EQ. PID) GO TO 830\r\n  820 CONTINUE\r\n      GO TO 850\r\nC\r\n  830 IP = IP+1\r\n  840 ITYPE = PCOMP2\r\n      GO TO 860\r\nC\r\nC     CHECK IF PID HAS NOT BEEN LOCATED\r\nC\r\n  850 IF (ITYPE .NE. -1) GO TO 860\r\n      J = -229\r\n      GO TO 1580\r\nC\r\nC     LOCATION OF PID\r\nC\r\n  860 PIDLOC = IP\r\n      LAMOPT = INTZ(PIDLOC+8)\r\nC\r\nC     DETERMINE INTRINSIC LAMINATE PROPERTIES\r\nC\r\nC     LAMINATE THICKNESS\r\nC\r\n      TLAM = ELTH\r\nC\r\nC     LAMINATE EXTENSIONAL, BENDING AND MEMBRANE-BENDING MATRICES\r\nC\r\n      DO 870 LL = 1,6\r\n      DO 870 MM = 1,6\r\n      ABBD(LL,MM) = 0.0D0\r\n  870 CONTINUE\r\nC\r\nC     EXTENSIONAL\r\nC\r\n      MATID = MID(1)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPD (GPROP)\r\nC\r\n      DO 880 LL = 1,3\r\n      DO 880 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL,MM) = GPROP(II)*TLAM\r\n  880 CONTINUE\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 910\r\nC\r\nC     BENDING\r\nC\r\n      MATID = MID(2)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPD (GPROP)\r\nC\r\nC     MOMENT OF INERTIA OF LAMINATE\r\nC\r\n      MINTR = (TLAM**3)/12.0D0\r\nC\r\n      DO 890 LL = 1,3\r\n      DO 890 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL+3,MM+3) = GPROP(II)*MINTR\r\n  890 CONTINUE\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO  TO 910\r\nC\r\nC     MEMBRANE-BENDING\r\nC\r\n      MATID = MID(4)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPD (GPROP)\r\nC\r\n      DO 900 LL = 1,3\r\n      DO 900 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL,MM+3) = GPROP(II)*TLAM*TLAM\r\n      ABBD(LL+3,MM) = GPROP(II)*TLAM*TLAM\r\n  900 CONTINUE\r\nC\r\nC     REFERENCE SURFACE\r\nC\r\n  910 ZREF = -TLAM/2.0D0\r\nC\r\nC     NUMBER OF LAYERS\r\nC\r\n      NLAY = INTZ(PIDLOC+1)\r\nC\r\nC     SET POINTER\r\nC\r\n      IF (ITYPE .EQ. PCOMP)  IPOINT = (PIDLOC + 8 + 4*NLAY)\r\n      IF (ITYPE .EQ. PCOMP1) IPOINT = (PIDLOC + 8 +   NLAY)\r\n      IF (ITYPE .EQ. PCOMP2) IPOINT = (PIDLOC + 8 + 2*NLAY)\r\nC\r\nC     ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM\r\nC     THE ELEMENT AXIS\r\nC\r\n      THETAE = DATAN(TEM(2)/TEM(1))\r\n      THETAE = THETAE*DEGRAD\r\nC\r\nC     LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE\r\nC\r\n      TSUBO = Z(IPOINT+24)\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 920\r\n      TMEAN = TEMPEL\r\n      GO TO 930\r\nC\r\n  920 TMEAN = STEMP(1)\r\nC\r\n  930 DELTA = TMEAN - TSUBO\r\nC\r\n      DO 940 LL = 1,6\r\n      FTHERM(LL) = 0.0D0\r\n  940 CONTINUE\r\nC\r\nC     ALLOW FOR APPLIED THERMAL MOMENTS\r\nC\r\n      IF (.NOT.TEMPP2) GO TO 960\r\nC\r\n      DO 950 LL = 1,3\r\n  950 FTHERM(LL+3) = THRMOM(LL)\r\nC\r\nC     LOOP OVER NLAY\r\nC\r\n  960 DO 1050 K = 1,NLAY\r\nC\r\n      ZK1 = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7)\r\n      IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K)\r\nC\r\n      ZSUBI = (ZK+ZK1)/2.0D0\r\nC\r\nC     LAYER THICKNESS\r\nC\r\n      TI = ZK - ZK1\r\nC\r\nC     LAYER ORIENTATION\r\nC\r\n      IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 +   K)\r\n      IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K)\r\nC\r\nC\r\n      THETA = THETA * DEGRAD\r\nC\r\n      IF (THETAE .GT. 0.0D0) THETA = THETA + THETAE\r\nC\r\n      C   = DCOS(THETA)\r\n      C2  = C*C\r\n      S   = DSIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANSL(1)  = C2\r\n      TRANSL(2)  = S2\r\n      TRANSL(3)  = C*S\r\n      TRANSL(4)  = S2\r\n      TRANSL(5)  = C2\r\n      TRANSL(6)  =-C*S\r\n      TRANSL(7)  =-2.0D0*C*S\r\n      TRANSL(8)  = 2.0D0*C*S\r\n      TRANSL(9)  = C2-S2\r\nC\r\nC     CALCULATE GBAR = TRANST X GLAY X TRANS\r\nC\r\n      DO 1000 IR = 1,9\r\n      GLAY(IR) = Z(IPOINT+IR)\r\n 1000 CONTINUE\r\nC\r\n      CALL GMMATD (GLAY(1),3,3,0,TRANSL(1),3,3,0,GLAYT(1))\r\n      CALL GMMATD (TRANSL(1),3,3,1,GLAYT(1),3,3,0,GBAR(1))\r\nC\r\nC     CALCULATE ALPHAE = TRANSL X ALPHA\r\nC\r\nC     MODIFY TRANSL FOR TRANSFORMATIONS OF ALPHAS\r\nC\r\n      TRANSL(3) = -TRANSL(3)\r\n      TRANSL(6) = -TRANSL(6)\r\n      TRANSL(7) = -TRANSL(7)\r\n      TRANSL(8) = -TRANSL(8)\r\nC\r\n      DO 1010 IR = 1,3\r\n      ALPHAL(IR) = Z(IPOINT+13+IR)\r\n 1010 CONTINUE\r\nC\r\n      CALL GMMATD (TRANSL(1),3,3,0,ALPHAL(1),3,1,0,ALPHAE(1))\r\nC\r\nC     CALCULATE LAMINATE OPERATING TEMPERATURE (ALLOWING FOR\r\nC     TEMPERATURE GRADIENT IF APPLIED)\r\nC\r\n      DELTAT = DELTA\r\n      IF (TEMPP1) DELTAT = DELTA + ZSUBI*TGRAD\r\nC\r\nC     CALCULATE THERMAL FORCES AND MOMENTS\r\nC\r\n      CALL GMMATD (GBAR(1),3,3,0,ALPHAE(1),3,1,0,GALPHA(1))\r\nC\r\n      DO 1020 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK - ZK1)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020\r\n      FTHERM(IR+3) = FTHERM(IR+3) -\r\n     1               GALPHA(IR)*DELTAT*((ZK**2)-(ZK1**2))/2.0D0\r\n 1020 CONTINUE\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 1040\r\nC\r\nC     CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS\r\nC\r\n      DELTAT = DELTA\r\n      IF (TEMPP1) DELTAT = DELTA - ZSUBI*TGRAD\r\nC\r\n      DO 1030 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1030\r\n      FTHERM(IR+3) = FTHERM(IR+3) -\r\n     1               GALPHA(IR)*DELTAT*((ZK1**2)-(ZK**2))/2.0D0\r\n 1030 CONTINUE\r\nC\r\n 1040 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27\r\nC\r\n 1050 CONTINUE\r\nC\r\nC     COMPUTE THERMAL STRAIN VECTOR\r\nC                 -1\r\nC     EPSLN = ABBD   X FTHERM\r\nC\r\n      CALL INVERD (6,ABBD,6,DUM,0,DETERM,ISING,INDX)\r\nC\r\n      DO 1060 LL = 1,6\r\n      DO 1060 MM = 1,6\r\n      NN = MM + 6*(LL-1)\r\n      STIFF(NN) = ABBD(LL,MM)\r\n 1060 CONTINUE\r\nC\r\n      CALL GMMATD (STIFF(1),6,6,0,FTHERM(1),6,1,0,EPSLNT(1))\r\nC\r\nC     INITIALIZE NECESSARY ARRAYS BEFORE STARTING THE\r\nC     DOUBLE INTEGRATION LOOP\r\nC\r\n 1070 DO 1100 I = 1,9\r\n      G2(I) = 0.0D0\r\n 1100 CONTINUE\r\n      DO 1110 I = 1,6\r\n      EPSUBT(I) = 0.0D0\r\n 1110 CONTINUE\r\n      DO 1120 I = 1,NDOF\r\n      PT(I)  = 0.0D0\r\n      PTG(I) = 0.0D0\r\n 1120 CONTINUE\r\nC\r\nC     FILL IN THE 6X6 MATERIAL PROPERTY MATRIX G\r\nC\r\n      DO 1130 IG = 1,6\r\n      DO 1130 JG = 1,6\r\n 1130 G(IG,JG) = 0.0D0\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1150\r\n      DO 1140 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 1140 JG = 1,3\r\n      JG1 = JG + IG1\r\n      G(IG,JG) = GI(JG1)\r\n 1140 CONTINUE\r\nC\r\n 1150 IF (.NOT.BENDNG) GO TO 1180\r\n      I = 0\r\n      DO 1160 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 1160 JG = 4,6\r\n      JG2 = JG + IG2\r\n      G(IG,JG) = GI(JG2)*MOMINR\r\nC\r\nC     SAVE THE G-MATRIX FOR BENDING IN G2\r\nC\r\n      I = I + 1\r\n      G2(I) = G(IG,JG)\r\n 1160 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1180\r\n      IF (MBCOUP) GO TO 1180\r\n      DO 1170 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      KG = IG + 3\r\n      DO 1170 JG = 1,3\r\n      JG1 = JG + IG1\r\n      LG  = JG + 3\r\n      G(IG,LG) = GI(JG1)\r\n      G(KG,JG) = GI(JG1)\r\n 1170 CONTINUE\r\nC\r\nC     HERE BEGINS THE DOUBLE LOOP ON STATEMENT 1470 TO\r\nC     GAUSS INTEGRATE FOR THE ELEMENT STIFFNESS MATRIX.\r\nC\r\n 1180 DO 1470 IXSI = 1,2\r\n      XI = PTINT(IXSI)\r\nC\r\n      DO 1470 IETA = 1,2\r\n      ETA = PTINT(IETA)\r\nC\r\n      CALL Q4SHPD (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 1200 I = 1,4\r\n      TMPSHP(I  ) = SHP(I)\r\n      DSHPTP(I  ) = DSHP(I)\r\n 1200 DSHPTP(I+4) = DSHP(I+4)\r\n      DO 1210 I = 1,4\r\n      KK = IORDER(I)\r\n      SHP (I  ) = TMPSHP(KK)\r\n      DSHP(I  ) = DSHPTP(KK)\r\n 1210 DSHP(I+4) = DSHPTP(KK+4)\r\nC\r\nC     CALCULATE THE ELEMENT THICKNESS AT THIS POINT\r\nC\r\n      THK = 0.0D0\r\n      DO 1220 I = 1,NNODE\r\n 1220 THK = THK + DGPTH(I)*SHP(I)\r\n      REALI = THK*THK*THK/12.0D0\r\nC\r\nC     CALCULATE T-BAR FOR THIS INTEGRATION POINT. SKIP OVER IF TEMPPI\r\nC     CARDS ARE PRESENT, THEN CALCULATE ALPHA*T FOR EACH CASE\r\nC\r\n      IF (COMPOS) GO TO 1370\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 1310\r\n      TBAR = 0.0D0\r\n      DO 1300 I =1,NNODE\r\n 1300 TBAR  = TBAR + SHP(I)*GTEMPS(I)\r\nC\r\n 1310 TTBAR = TBAR - TSUB0\r\n      IF (.NOT.MEMBRN) GO TO 1330\r\n      DO 1320 I = 1,3\r\n 1320 TALFAM(I) = TTBAR*ALFAM(I)\r\nC\r\n 1330 IF (.NOT.BENDNG) GO TO 1370\r\n      IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 1370\r\n      IF (TEMPP2) GO TO 1350\r\n      DO 1340 I = 1,3\r\n 1340 TALFAB(I) = -TGRAD*ALFAB(I)\r\n      GO TO 1370\r\nC\r\n 1350 DO 1360 IG2 = 1,9\r\n 1360 G2I(IG2) = G2(IG2)*REALI\r\n      CALL INVERD (3,G2I,3,GDUM,0,DETG2,ISNGG2,INDEX)\r\n      CALL GMMATD (G2I,3,3,0,THRMOM,3,1,0,TALFAB)\r\nC\r\nC     START THE THIRD INTEGRATION LOOP (THRU THE THICKNESS)\r\nC\r\n 1370 DO 1460 IZTA = 1,2\r\n      ZTA  = PTINT(IZTA)\r\n      HZTA = ZTA/2.0D0\r\n      IBOT = (IZTA-1)*ND2\r\nC\r\n      CALL JACOB2 (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1600\r\nC\r\n      CALL GMMATD (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGD TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 3. IT WILL RETURN THE FIRST 6 ROWS.\r\nC\r\n      ROWFLG = 3\r\n      CALL Q4BMGD (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX(1))\r\n      DO 1380 IX = 1,NDOF\r\n 1380 BMATRX(IX+ND2) = XYBMAT(IBOT+IX)\r\nC\r\n      IF (.NOT.BENDNG) GO TO 1410\r\n      DO 1390 IX = 1,NDOF\r\n 1390 BMATRX(IX+ND5) = XYBMAT(IBOT+IX+NDOF)\r\nC\r\nC     NOW COMPLETE THE G-MATRIX IF COUPLING EXISTS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 1410\r\n      DO 1400 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      KG  = IG + 3\r\n      DO 1400 JG = 1,3\r\n      JG4 = JG + IG4\r\n      JG1 = JG4- 27\r\n      LG  = JG + 3\r\n      G(IG,LG) =-GI(JG4)*ZTA*6.0D0 + GI(JG1)\r\n      G(KG,JG) =-GI(JG4)*ZTA*6.0D0 + GI(JG1)\r\n 1400 CONTINUE\r\nC\r\nC     MULTIPLY DETERMINANT, B-TRANSPOSE, G-MATRIX, & THERMAL\r\nC     STRAIN MATRIX.\r\nC                         T\r\nC         P  =  DETERM * B  * G * EPSILON\r\nC          T                             T\r\nC\r\n 1410 IF (COMPOS) GO TO 1430\r\n      DO 1420 I = 1,3\r\n      EPSUBT(I) = DETJ*TALFAM(I)\r\n 1420 EPSUBT(I+3) = -DETJ*TALFAB(I)*HZTA*THK\r\n      GO TO 1450\r\nC\r\n 1430 DO 1440 IR = 1,3\r\n      EPSUBT(IR  ) = DETJ*EPSLNT(IR)\r\n 1440 EPSUBT(IR+3) =-DETJ*EPSLNT(IR+3)*THK*HZTA\r\nC\r\n 1450 CALL GMMATD (G,6,6,0,EPSUBT,6,1,0,GEPSBT)\r\n      CALL GMMATD (BMATRX,6,NDOF,-1,GEPSBT,6,1,0,PT)\r\nC\r\n 1460 CONTINUE\r\n 1470 CONTINUE\r\nC\r\nC     TRIPLE INTEGRATION LOOP IS NOW FINISHED\r\nC\r\nC     PICK UP THE BASIC TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC\r\n      DO 1500 I = 1,36\r\n 1500 TRANS(I) = 0.0D0\r\nC\r\n      DO 1540 I = 1,NNODE\r\n      IPOINT = 9*(I-1) + 1\r\n      IF (IGPDT(1,I) .LE. 0) GO TO 1510\r\n      CALL TRANSD (BGPDT(1,I),TBG)\r\n      GO TO 1530\r\n 1510 DO 1520 J = 1,9\r\n 1520 TBG(J) = 0.0D0\r\n      TBG(1) = 1.0D0\r\n      TBG(5) = 1.0D0\r\n      TBG(9) = 1.0D0\r\nC\r\n 1530 CALL GMMATD (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT))\r\n 1540 CONTINUE\r\nC\r\nC     TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL\r\nC     GLOBAL COORDINATE SYSTEMS OF EACH NODE. NOTE THAT THE\r\nC     TRANSFORMATION MATRICES ARE STORED IN  TRANS = TEG,\r\nC     AND THAT THE 6-DOF LOAD VECTOR FOR EACH NODE USES THE\r\nC     SAME 3X3 TRANSFORMATION MATRIX FOR THE TRANSLATIONAL\r\nC     DOF'S (1-3) AND THE ROTATIONAL DOF'S (4-6).\r\nC\r\nC                        T\r\nC              PT  =  TEG   *  PT\r\nC                G               E\r\nC\r\n      DO 1550 I = 1,NNODE\r\n      IPT  = (I-1)*9 + 1\r\n      JPT1 = (I-1)*6 + 1\r\n      JPT2 = JPT1 + 3\r\n      CALL GMMATD (TRANS(IPT),3,3,1,PT(JPT1),3,1,0,PTG(JPT1))\r\n      CALL GMMATD (TRANS(IPT),3,3,1,PT(JPT2),3,1,0,PTG(JPT2))\r\n 1550 CONTINUE\r\nC\r\nC     WE NOW HAVE THE THERMAL LOAD VECTOR IN GLOBAL COORDINATES,\r\nC     IN PTG. THE NEXT AND LAST STEP IS TO COMBINE IT WITH THE\r\nC     SYSTEM LOAD VECTOR CONTAINED IN Z.\r\nC\r\n      L = 0\r\n      DO 1560 I = 1,NNODE\r\n      K = SIL(I) - 1\r\n      DO 1560 J = 1,6\r\n      K = K + 1\r\n      L = L + 1\r\n      Z(K) = Z(K) + SNGL(PTG(L))\r\n 1560 CONTINUE\r\n      GO TO 1600\r\nC\r\n 1580 CALL MESAGE (30,J,NAM)\r\n      NOGO = 1\r\n 1600 RETURN\r\nC\r\n 1700 FORMAT ('0*** SYSTEM FATAL ERROR. THE ELEMENT THICKNESS FOR ',\r\n     1        ' QUAD4 EID = ',I8,' IS NOT COMPLETELY DEFINED.')\r\n      END\r\n"
  },
  {
    "path": "mis/tlqd4s.f",
    "content": "      SUBROUTINE TLQD4S\r\nC\r\nC     ELEMENT THERMAL LOAD GENERATOR FOR 4-NODE ISOPARAMETRIC\r\nC     QUADRILATERAL SHELL ELEMENT (QUAD4)\r\nC     (SINGLE PRECISION VERSION)\r\nC\r\nC     COMPLETELY RESTRUCTURED FOR COMPOSITES WITH THE FOLLOWING\r\nC     LIMITATION -\r\nC     1. FOR DIFFERENT GRID POINT TEMPERATURES AN AVERAGE\r\nC        VALUE IS TAKEN.                       HEMANT  2/24/86\r\nC\r\nC\r\nC                 EST LISTING\r\nC     ---------------------------------------------------------\r\nC      1          EID\r\nC      2 THRU 5   SILS, GRIDS 1 THRU 4\r\nC      6 THRU 9   T (MEMBRANE), GRIDS 1 THRU 4\r\nC     10          THETA (MATERIAL)\r\nC     11          TYPE FLAG FOR WORD 10\r\nC     12          ZOFF  (OFFSET)\r\nC     13          MATERIAL ID FOR MEMBRANE\r\nC     14          T (MEMBRANE)\r\nC     15          MATERIAL ID FOR BENDING\r\nC     16          I FACTOR (BENDING)\r\nC     17          MATERIAL ID FOR TRANSVERSE SHEAR\r\nC     18          FACTOR FOR T(S)\r\nC     19          NSM (NON-STRUCTURAL MASS)\r\nC     20 THRU 21  Z1, Z2  (STRESS FIBRE DISTANCES)\r\nC     22          MATERIAL ID FOR MEMBRANE-BENDING COUPLING\r\nC     23          THETA (MATERIAL) FROM PSHELL CARD\r\nC     24          TYPE FLAG FOR WORD 23\r\nC     25          INTEGRATION ORDER\r\nC     26          THETA (STRESS)\r\nC     27          TYPE FLAG FOR WORD 26\r\nC     28          ZOFF1 (OFFSET)  OVERRIDDEN BY EST(12)\r\nC     29 THRU 44  CID,X,Y,Z - GRIDS 1 THRU 4\r\nC     45          ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL          BADJAC,MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,\r\n     1                 TEMPP1,TEMPP2,PCMP,PCMP1,PCMP2,COMPOS\r\n      INTEGER          INTZ(1),NOUT,NEST(45),ELID,SIL(4),KSIL(4),\r\n     1                 KCID(4),IGPDT(4,4),FLAG,ROWFLG,NECPT(4),\r\n     2                 MID(4),INDEX(3,3),INDX(6,3),COMPS,NAM(2),\r\n     3                 PCOMP,PCOMP1,PCOMP2,SYM,SYMMEM,PID,PIDLOC\r\n      REAL             GPTH(4),TGRID(4,4),GPNORM(4,4),BGPDT(4,4),\r\n     1                 MATSET,TMPTHK(4),ECPT(4),EGPDT(4,4),\r\n     2                 EPNORM(4,4),BGPDM(3,4),ALPHAM(6),TSUB0,STEMP,Z\r\n      REAL             DGPTH(4),THK,EPS1,XI,ETA,DETJ,HZTA,PSITRN(9),\r\n     1                 JACOB(9),PHI(9),MOMINR,COEFF,REALI,PI,TWOPI,\r\n     2                 RADDEG,DEGRAD,SHP(4),DSHP(8),TMPSHP(4),\r\n     3                 DSHPTP(8),GT(9),G(6,6),GI(36),U(9),TRANS(36),\r\n     4                 PTINT(2),GGE(9),GGU(9),TBM(9),TEB(9),TEM(9),\r\n     5                 TUB(9),TUM(9),TEU(9),TBG(9),UGPDM(3,4),CENTE(3),\r\n     6                 CENT(3),X31,Y31,X42,Y42,AA,BB,CC,EXI,EXJ,XM,YM,\r\n     7                 THETAM,BMATRX(144),XYBMAT(96),ALPHA(6),ALFAM(3),\r\n     8                 ALFAB(3),TALFAM(3),TALFAB(3),ALPHAD(6),PT(24),\r\n     9                 PTG(24),TBAR,TTBAR,TGRAD,THRMOM(3),G2I(9),G2(9),\r\n     O                 GTEMPS(6),EPSUBT(6),GEPSBT(6),DETU,DETG2,DETERM\r\n      REAL             ABBD(6,6),STIFF(36),GPROP(25),GLAY(9),GLAYT(9),\r\n     1                 GBAR(9),GALPHA(3),ALPHAL(3),ALPHAE(3),MINTR,\r\n     2                 TLAM,THETA,THETAE,TRANSL(9),TSUBO,TMEAN,TEMPEL,\r\n     3                 DELTA,DELTAT,ZK,ZK1,ZREF,ZSUBI,C,C2,S,S2,\r\n     4                 FTHERM(6),EPSLNT(6),OFFSET,CONST,UEV,ANGLEI,\r\n     5                 EDGEL,EDGSHR,UNV\r\nCWKBNB 11/93 SPR 93020\r\n      REAL             VD1(3), VD2(3), VKN(3), VKS(3)\r\n     1,                V12(3), V41(3), VP12(3),VIS(3), VJS(3)\r\nCWKBNE 11/93 SPR 93020\r\n      COMMON /CONDAS/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /TRIMEX/  EST(45)\r\n      COMMON /SYSTEM/  BUFFER(100)\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP\r\n      COMMON /MATOUT/  RMTOUT(25)\r\n      COMMON /SGTMPD/  STEMP(8)\r\nCZZ   COMMON /ZZSSB1/  Z(1)\r\n      COMMON /ZZZZZZ/  Z(20000)\r\n      COMMON /BLANK /  NROWSP,IPARAM,COMPS\r\n      COMMON /COMPST/  IPCMP,NPCMP,IPCMP1,NPCMP1,IPCMP2,NPCMP2\r\n      COMMON /Q4DT  /  DETJ,HZTA,PSITRN,NNODE,BADJAC,N1\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /Q4COMS/  ANGLEI(4),EDGSHR(3,4),EDGEL(4),UNV(3,4),\r\n     1                 UEV(3,4),ROWFLG,IORDER(4)\r\nC\r\n      EQUIVALENCE     (Z(1)     ,INTZ(1)), (IGPDT(1,1),BGPDT(1,1))\r\n      EQUIVALENCE     (EST(1)   ,NEST(1)), (BGPDT(1,1),EST(29)   )\r\n      EQUIVALENCE     (ELTH     ,EST(14)), (GPTH(1)   ,EST(6)    )\r\n      EQUIVALENCE     (SIL(1)   ,NEST(2)), (MATSET    ,RMTOUT(25))\r\n      EQUIVALENCE     (ZOFF     ,EST(12)), (ZOFF1     ,EST(28)   )\r\n      EQUIVALENCE     (NECPT(1) ,ECPT(1)), (BUFFER(1) ,SYSBUF    )\r\n      EQUIVALENCE     (BUFFER(2),NOUT   ), (BUFFER(3) ,NOGO      )\r\n      EQUIVALENCE     (STEMP(7) ,FLAG   ), (ALFAB(1)  ,ALPHA(4)  )\r\n      EQUIVALENCE     (ALFAM(1) ,ALPHA(1))\r\nC\r\n      DATA EPS1     / 1.0E-7 /\r\n      DATA PCOMP    / 0 /\r\n      DATA PCOMP1   / 1 /\r\n      DATA PCOMP2   / 2 /\r\n      DATA SYM      / 1 /\r\n      DATA MEM      / 2 /\r\n      DATA SYMMEM   / 3 /\r\n      DATA CONST    / 0.57735026918962 /\r\n      DATA NAM      / 4HTLQD,4H4S      /\r\nC\r\nC-----ZERO THE VARIOUS ALPHA ARRAYS\r\nC\r\n      DO 10 I =1,6\r\n      ALPHAM(I) = 0.0\r\n      ALPHA(I)  = 0.0\r\n      ALPHAD(I) = 0.0\r\n   10 CONTINUE\r\n      DO 20 I =1,3\r\n      TALFAM(I) = 0.0\r\n      TALFAB(I) = 0.0\r\n   20 CONTINUE\r\nC\r\n      ELID=NEST(1)\r\n      LTYPFL=1\r\n      OFFSET=ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET=ZOFF1\r\nC\r\nC     TEST FOR COMPOSITE ELEMENT\r\nC\r\n      COMPOS = .FALSE.\r\nC\r\n      PID = NEST(13) - 100000000\r\n      COMPOS = COMPS.EQ.-1 .AND. PID.GT.0\r\nC\r\nC-----CHECK FOR THE TYPE OF TEMPERATURE DATA\r\nC     NOTES-  1- TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3\r\nC             2- IF NO TEMPPI CARDS, GRID POINT TEMPERATURES\r\nC                ONLY ARE PRESENT\r\nC\r\n      TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ. 2\r\nC\r\n      N1=4\r\n      NNODE=4\r\n      NDOF=NNODE*6\r\n      ND2=NDOF*2\r\n      ND3=NDOF*3\r\n      ND4=NDOF*4\r\n      ND5=NDOF*5\r\nC\r\nC     FILL IN ARRAY GGU WITH THE COORDINATES OF GRID POINTS\r\nC     1, 2 AND 4. THIS ARRAY WILL BE USED LATER TO DEFINE\r\nC     THE USER COORDINATE SYSTEM WHILE CALCULATING\r\nC     TRANSFORMATIONS INVOLVING THIS COORDINATE SYSTEM.\r\nC\r\n      DO 30 I=1,3\r\n      II=(I-1)*3\r\n      IJ=I\r\n      IF (IJ .EQ. 3) IJ=4\r\n      DO 30 J=1,3\r\n      JJ=J+1\r\n   30 GGU(II+J)=BGPDT(JJ,IJ)\r\nCWKBD 11/93 SPR93020      CALL BETRNS (TUB,GGU,0,ELID)\r\nCWKBNB 11/93 SPR93020\r\nC    ADD FROM SHEAR ELEMENT\r\nC\r\nC    COMPUTE DIAGONAL VECTORS\r\nC\r\n      DO 21 I = 1,3\r\n      II=I+1\r\n      VD1(I) = BGPDT(II,3) - BGPDT(II,1)\r\n   21 VD2(I) = BGPDT(II,4) - BGPDT(II,2)\r\nC\r\nC    COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE PROJECTED\r\nC    AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL = SQRT( VKN(1)**2 + VKN(2)**2 + VKN(3)**2 )\r\n      IF ( VKL .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n2070  FORMAT(//,' ILLEGAL GEOMETRY FOR QUAD4 ELEMENT, ID=',I10 )\r\n      VKS(1) = VKN(1)/VKL\r\n      VKS(2) = VKN(2)/VKL\r\n      VKS(3) = VKN(3)/VKL\r\n      PA = VKL/2.\r\nC\r\nC  COMPUTE SIDES -12- AND -41-\r\n      DO 25 I = 1,3\r\n      II = I + 1\r\n      V12(I) = BGPDT(II,2) - BGPDT(II,1)\r\n      V41(I) = BGPDT(II,1) - BGPDT(II,4)\r\n25    CONTINUE\r\nC\r\nC  COMPUTE DOT PRODUCT, V12DK, OR V12 AND VK, THE VECTORS VP12, VI, VJ\r\nC\r\n      V12DK   = V12(1)*VKS(1) + V12(2)*VKS(2) + V12(3)*VKS(3)\r\n      VP12(1) = V12(1) - V12DK*VKS(1)\r\n      VP12(2) = V12(2) - V12DK*VKS(2)\r\n      VP12(3) = V12(3) - V12DK*VKS(3)\r\n      VP12L   = SQRT( VP12(1)**2 + VP12(2)**2 + VP12(3)**2 )\r\n      IF ( VP12L .EQ. 0. ) WRITE( NOUT, 2070 ) EST(1)\r\n      VIS(1) = VP12(1) / VP12L\r\n      VIS(2) = VP12(2) / VP12L\r\n      VIS(3) = VP12(3) / VP12L\r\n      VJS(1) = VKS(2)*VIS(3) - VKS(3)*VIS(2)\r\n      VJS(2) = VKS(3)*VIS(1) - VKS(1)*VIS(3)\r\n      VJS(3) = VKS(1)*VIS(2) - VKS(2)*VIS(1)\r\nC\r\nC   NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL = SQRT( VJS(1)**2 + VJS(2)**2 + VJS(3)**2 )\r\n      IF ( VJL .EQ. 0. ) WRITE ( NOUT, 2070 ) EST(1)\r\n      VJS(1) = VJS(1) / VJL\r\n      VJS(2) = VJS(2) / VJL\r\n      VJS(3) = VJS(3) / VJL\r\n      DO 29 I = 1,3\r\n      TUB(I)   = VIS(I)\r\n      TUB(I+3) = VJS(I)\r\n      TUB(I+6) = VKS(I)\r\n29    CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     STORE INCOMING BGPDT FOR ELEMENT C.S. CALCULATION\r\nC\r\n      DO 40 I=1,3\r\n      I1=I+1\r\n      DO 40 J=1,4\r\n   40 BGPDM(I,J)=BGPDT(I1,J)\r\nC\r\nC     TRANSFORM BGPDM FROM BASIC TO USER C.S.\r\nC\r\n      DO 50 I=1,3\r\n      IP=(I-1)*3\r\n      DO 50 J=1,4\r\n      UGPDM(I,J)=0.0\r\n      DO 50 K=1,3\r\n      KK=IP+K\r\n   50 UGPDM(I,J)=UGPDM(I,J)+TUB(KK)*((BGPDM(K,J))-GGU(K))\r\nC\r\nC\r\nC     THE ORIGIN OF THE ELEMENT C.S. IS IN THE MIDDLE OF THE ELEMENT\r\nC\r\n      DO 60 J=1,3\r\n      CENT(J)=0.0\r\n      DO 60 I=1,4\r\n   60 CENT(J)=CENT(J)+UGPDM(J,I)/NNODE\r\nC\r\nC     STORE THE CORNER NODE DIFF. IN THE USER C.S.\r\nC\r\n      X31=UGPDM(1,3)-UGPDM(1,1)\r\n      Y31=UGPDM(2,3)-UGPDM(2,1)\r\n      X42=UGPDM(1,4)-UGPDM(1,2)\r\n      Y42=UGPDM(2,4)-UGPDM(2,2)\r\n      AA=SQRT(X31*X31+Y31*Y31)\r\n      BB=SQRT(X42*X42+Y42*Y42)\r\nC\r\nC     NORMALIZE XIJ'S\r\nC\r\n      X31=X31/AA\r\n      Y31=Y31/AA\r\n      X42=X42/BB\r\n      Y42=Y42/BB\r\n      EXI=X31-X42\r\n      EXJ=Y31-Y42\r\nC\r\nC     STORE GGE ARRAY, THE OFFSET BETWEEN ELEMENT C.S. AND USER C.S.\r\nC\r\n      GGE(1)=CENT(1)\r\n      GGE(2)=CENT(2)\r\n      GGE(3)=CENT(3)\r\nC\r\n      GGE(4)=GGE(1)+EXI\r\n      GGE(5)=GGE(2)+EXJ\r\n      GGE(6)=GGE(3)\r\nC\r\n      GGE(7)=GGE(1)-EXJ\r\n      GGE(8)=GGE(2)+EXI\r\n      GGE(9)=GGE(3)\r\nC\r\nC\r\nC     THE ARRAY IORDER STORES THE ELEMENT NODE ID IN\r\nC     INCREASING SIL ORDER.\r\nC\r\nC     IORDER(1) = NODE WITH LOWEST  SIL NUMBER\r\nC     IORDER(4) = NODE WITH HIGHEST SIL NUMBER\r\nC\r\nC     ELEMENT NODE NUMBER IS THE INTEGER FROM THE NODE\r\nC     LIST  G1,G2,G3,G4 .  THAT IS, THE 'I' PART\r\nC     OF THE 'GI' AS THEY ARE LISTED ON THE CONNECTIVITY\r\nC     BULK DATA CARD DESCRIPTION.\r\nC\r\nC\r\n      DO 70 I=1,4\r\n      IORDER(I)=0\r\n      KSIL(I)=SIL(I)\r\n   70 CONTINUE\r\nC\r\n      DO 90 I=1,4\r\n      ITEMP=1\r\n      ISIL=KSIL(1)\r\n      DO 80 J=2,4\r\n      IF (ISIL .LE. KSIL(J)) GO TO 80\r\n      ITEMP=J\r\n      ISIL=KSIL(J)\r\n   80 CONTINUE\r\n      IORDER(I)=ITEMP\r\n      KSIL(ITEMP)=99999999\r\n   90 CONTINUE\r\nC\r\nC     ADJUST EST DATA\r\nC\r\nC\r\nC     USE THE POINTERS IN IORDER TO COMPLETELY REORDER THE\r\nC     GEOMETRY DATA INTO INCREASING SIL ORDER.\r\nC     DON'T WORRY!! IORDER ALSO KEEPS TRACK OF WHICH SHAPE\r\nC     FUNCTIONS GO WITH WHICH GEOMETRIC PARAMETERS!\r\nC\r\nC\r\n      DO 110 I=1,4\r\n      KSIL(I)=SIL(I)\r\n      TMPTHK(I)=GPTH(I)\r\n      KCID(I)=IGPDT(1,I)\r\n      DO 100 J=2,4\r\n      TGRID(J,I)=BGPDT(J,I)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      DO 130 I=1,4\r\n      IPOINT=IORDER(I)\r\n      SIL(I)=KSIL(IPOINT)\r\n      GPTH(I)=TMPTHK(IPOINT)\r\n      IGPDT(1,I)=KCID(IPOINT)\r\n      DO 120 J=2,4\r\n      BGPDT(J,I)=TGRID(J,IPOINT)\r\n  120 CONTINUE\r\n  130 CONTINUE\r\nC\r\nC-----SORT THE GRID POINT TEMPERATURES (IN STEMP(1-4))\r\nC     IF PRESENT AND MAKE REAL          THE OTHER\r\nC     KINDS OF TEMPERATURE DATA IF TEMPPI CARDS PRESENT\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 150\r\nC\r\n      TEMPEL = 0.0\r\n      DO 140 I =1,4\r\n      IPNT = IORDER(I)\r\n      GTEMPS(I) = STEMP(IPNT)\r\n      TEMPEL = TEMPEL + 0.25 * GTEMPS(I)\r\n  140 CONTINUE\r\n      GO TO 170\r\nC\r\n  150 IF (TEMPP2) GO TO 160\r\nC\r\n      TBAR  = STEMP(1)\r\n      TGRAD = STEMP(2)\r\n      GO TO 170\r\nC\r\n  160 TBAR = STEMP(1)\r\n      THRMOM(1) = STEMP(2)\r\n      THRMOM(2) = STEMP(3)\r\n      THRMOM(3) = STEMP(4)\r\n  170 CONTINUE\r\nC\r\nC     COMPUTE NODE NORMALS\r\nC\r\n      CALL Q4NRMS (BGPDT,GPNORM,IORDER,IFLAG)\r\n      IF (IFLAG .EQ. 0) GO TO 180\r\n      J = -230\r\n      GO TO 1580\r\nC\r\nC     DETERMINE NODAL THICKNESSES\r\nC\r\n  180 DO 200 I=1,NNODE\r\n      IF (GPTH(I) .EQ. 0.0) GPTH(I)=ELTH\r\n      IF (GPTH(I) .GT. 0.0) GO TO 190\r\n      WRITE (NOUT,1700) ELID\r\n      NOGO=1\r\n      GO TO 1600\r\n  190 DGPTH(I)=GPTH(I)\r\n  200 CONTINUE\r\nC\r\n      MOMINR=0.0\r\n      IF (NEST(15) .NE. 0) MOMINR=EST(16)\r\nC\r\nC\r\nC     THE COORDINATES OF THE ELEMENT GRID POINTS HAVE TO BE\r\nC     TRANSFORMED FROM THE BASIC C.S. TO THE ELEMENT C.S.\r\nC\r\nC\r\n      CALL BETRNS (TEU,GGE,0,ELID)\r\n      CALL GMMATS (TEU,3,3,0,TUB,3,3,0,TEB)\r\n      CALL GMMATS (TUB,3,3,1,CENT,3,1,0,CENTE)\r\nC\r\n      IP = -3\r\n      DO 210 II=2,4\r\n      IP=IP+3\r\n      DO 210 J=1,NNODE\r\n      EPNORM(II,J)=0.0\r\n      EGPDT(II,J)=0.0\r\n      DO 210 K=1,3\r\n      KK=IP+K\r\n      K1=K+1\r\n      CC=(BGPDT(K1,J))-GGU(K)-CENTE(K)\r\n      EPNORM(II,J)=EPNORM(II,J)+TEB(KK)*GPNORM(K1,J)\r\n  210 EGPDT( II,J)=EGPDT(II,J)+(TEB(KK)*CC)\r\nCWKBNB 11/93 SPR93020\r\n      DO 171 J = 1, 4\r\n      EGPDT(4,J) = CENT(3)\r\n171   CONTINUE\r\nCWKBNE 11/93 SPR93020\r\nC\r\nC     BEGIN INITIALIZING MATERIAL VARIABLES\r\nC\r\nC     SET INFLAG = 12 SO THAT SUBROUTINE MAT WILL SEARCH FOR -\r\nC     ISOTROPIC MATERIAL PROPERTIES AMONG THE MAT1 CARDS,\r\nC     ORTHOTROPIC MATERIAL PROPERTIES AMONG THE MAT8 CARDS, AND\r\nC     ANISOTROPIC MATERIAL PROPERTIES AMONG THE MAT2 CARDS.\r\nC\r\n      INFLAG=12\r\n      ELTEMP= EST(45)\r\n      MID(1)=NEST(13)\r\n      MID(2)=NEST(15)\r\n      MID(3)=0\r\n      MID(4)=NEST(22)\r\n      MEMBRN=MID(1).GT.0\r\n      BENDNG=MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX=MID(3).GT.0\r\n      MBCOUP=MID(4).GT.0\r\n      NORPTH=.FALSE.\r\nC\r\nC     SET THE INTEGRATION POINTS\r\nC\r\n      PTINT(1) = -CONST\r\n      PTINT(2) =  CONST\r\nC\r\nC     IN PLANE SHEAR REDUCTION\r\nC\r\n      XI =0.0\r\n      ETA=0.0\r\n      KPT=1\r\n      KPT1=ND2\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 300 I=1,4\r\n      TMPSHP(I  )=SHP(I)\r\n      DSHPTP(I  )=DSHP(I)\r\n  300 DSHPTP(I+4)=DSHP(I+4)\r\n      DO 310 I=1,4\r\n      KK=IORDER(I)\r\n      SHP (I  )=TMPSHP(KK)\r\n      DSHP(I  )=DSHPTP(KK)\r\n  310 DSHP(I+4)=DSHPTP(KK+4)\r\nC\r\n      DO 320 IZTA=1,2\r\n      ZTA =PTINT(IZTA)\r\n      HZTA=ZTA/2.0\r\n      CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1600\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 2. IT WILL SAVE THE 3RD ROW OF B AT\r\nC     THE TWO INTEGRATION POINTS.\r\nC\r\n      ROWFLG = 2\r\n      CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,XYBMAT(KPT))\r\n  320 KPT=KPT+KPT1\r\nC\r\nC     SET THE ARRAY OF LENGTH 4 TO BE USED IN CALLING TRANSS.\r\nC     NOTE THAT THE FIRST WORD IS THE COORDINATE SYSTEM ID WHICH\r\nC     WILL BE SET IN POSITION LATER.\r\nC\r\n      DO 330 IEC=2,4\r\n  330 ECPT(IEC)=0.0\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\nC     EACH MATERIAL PROPERTY MATRIX G HAS TO BE TRANSFORMED FROM\r\nC     THE MATERIAL COORDINATE SYSTEM TO THE ELEMENT COORDINATE\r\nC     SYSTEM. THESE STEPS ARE TO BE FOLLOWED -\r\nC\r\nC     1- IF MCSID HAS BEEN SPECIFIED, SUBROUTINE TRANSS IS CALLED\r\nC        TO CALCULATE TBM MATRIX (MATERIAL TO BASIC TRANSFORMATION).\r\nC        THIS WILL BE FOLLOWED BY A CALL TO SUBROUTINE BETRNS\r\nC        TO CALCULATE TEB MATRIX (BASIC TO ELEMENT TRANSFORMATION).\r\nC        TBM IS THEN PREMULTIPLIED BY TEB TO OBTAIN TEM MATRIX.\r\nC        THEN USING THE PROJECTION OF X-AXIS, AN ANGLE IS CALCULATED\r\nC        UPON WHICH STEP 2 IS TAKEN.\r\nC\r\nC     2- IF THETAM HAS BEEN SPECIFIED, SUBROUTINE ANGTRS IS CALLED\r\nC        TO CALCULATE TEM MATRIX (MATERIAL TO ELEMENT TRANSFORMATION).\r\nC\r\nC                        T\r\nC     3-          G  =  U   G   U\r\nC                  E         M\r\nC\r\nC\r\n      IF (NEST(11) .EQ. 0) GO TO 390\r\n      MCSID=NEST(10)\r\nC\r\nC     CALCULATE TEM USING MCSID\r\nC\r\n  340 IF (MCSID .GT. 0) GO TO 360\r\n      DO 350 I=1,9\r\n  350 TEM(I)=TEB(I)\r\n      GO TO 370\r\n  360 NECPT(1)=MCSID\r\n      CALL TRANSS (ECPT,TBM)\r\nC\r\nC     MULTIPLY TEB AND TBM\r\nC\r\n      CALL GMMATS (TEB,3,3,0,TBM,3,3,0,TEM)\r\nC\r\nC     CALCULATE THETAM FROM THE PROJECTION OF THE X-AXIS OF THE\r\nC     MATERIAL C.S. ON TO THE XY PLANE OF THE ELEMENT C.S.\r\nC\r\n  370 IMT=-1\r\n      XM=TEM(1)\r\n      YM=TEM(4)\r\n      IF (ABS(XM) .LE. EPS1) IMT=IMT+1\r\n      IF (ABS(YM) .LE. EPS1) IMT=IMT+2\r\n      IF (IMT .LT. 2) GO TO 380\r\n      NEST(2) = MCSID\r\n      J = -231\r\n      GO TO 1580\r\n  380 THETAM= ATAN2(YM,XM)\r\n      GO TO 400\r\nC\r\nC     CALCULATE TEM USING THETAM\r\nC\r\n  390 THETAM = (EST(10))*DEGRAD\r\n      IF (THETAM .EQ. 0.0) GO TO 410\r\n  400 CALL ANGTRS (THETAM,1,TUM)\r\n      CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      GO TO 430\r\nC\r\nC     DEFAULT IS CHOSEN, LOOK FOR VALUES OF MCSID AND/OR THETAM\r\nC     ON THE PSHELL CARD.\r\nC\r\n  410 IF (NEST(24) .EQ. 0) GO TO 420\r\n      MCSID=NEST(23)\r\n      GO TO 340\r\nC\r\n  420 THETAM = (EST(23))*DEGRAD\r\n      GO TO 400\r\nC\r\n  430 CONTINUE\r\nC\r\nC     BEGIN THE LOOP TO FETCH PROPERTIES FOR EACH MATERIAL ID\r\nC\r\n      M=0\r\n  500 M=M+1\r\n      IF (M .GT. 4) GO TO 690\r\n      MATID=MID(M)\r\n      IF (MATID .EQ. 0) GO TO 500\r\nC\r\n      IF (M-1) 530,520,510\r\n  510 IF (MATID.EQ.MID(M-1)) GO TO 530\r\n  520 CALL MAT (ELID)\r\n  530 CONTINUE\r\nC\r\n      TSUB0 = RMTOUT(11)\r\n      IF (MATSET .EQ. 8.0) TSUB0 = RMTOUT(10)\r\nC\r\n      COEFF=1.0\r\n      LPOINT=(M-1)*9+1\r\nC\r\n      CALL Q4GMGS (M,COEFF,GI(LPOINT))\r\nC\r\n      IF (THETAM .EQ. 0.0) GO TO 550\r\nC\r\n      U(1)=TEM(1)*TEM(1)\r\n      U(2)=TEM(4)*TEM(4)\r\n      U(3)=TEM(1)*TEM(4)\r\n      U(4)=TEM(2)*TEM(2)\r\n      U(5)=TEM(5)*TEM(5)\r\n      U(6)=TEM(2)*TEM(5)\r\n      U(7)=TEM(1)*TEM(2)*2.0\r\n      U(8)=TEM(4)*TEM(5)*2.0\r\n      U(9)=TEM(1)*TEM(5)+TEM(2)*TEM(4)\r\n      L=3\r\nC\r\n      CALL GMMATS (U(1),L,L,1,GI(LPOINT),L,L,0,GT(1))\r\n      CALL GMMATS (GT(1),L,L,0,U(1),L,L,0,GI(LPOINT))\r\nC\r\n  550 CONTINUE\r\nC\r\n      IF (COMPOS) GO TO 500\r\nC\r\nC-----TRANSFORM THERMAL EXPANSION COEFFICIENTS AND STORE THEM IN ALPHA\r\nC\r\n      IF (M .GT. 2) GO TO 500\r\n      MORB = (M-1)*3\r\n      IF (MATSET .EQ. 2.0) GO TO 610\r\n      IF (MATSET .EQ. 8.0) GO TO 630\r\nC\r\nC     MAT1\r\nC\r\n      DO 600 IMAT=1,2\r\n  600 ALPHAM(IMAT+MORB)=RMTOUT(8)\r\n      ALPHAM(3+MORB) = 0.0\r\n      GO TO 640\r\nC\r\nC     MAT2\r\nC\r\n  610 DO 620 IMAT=1,3\r\n  620 ALPHAM(IMAT+MORB)=RMTOUT(7+IMAT)\r\n      GO TO 640\r\nC\r\nC     MAT8\r\nC\r\n  630 ALPHAM(MORB+1)=RMTOUT(8)\r\n      ALPHAM(MORB+2)=RMTOUT(9)\r\n      ALPHAM(MORB+3)=0.0\r\nC\r\nC-----SKIP THE TRANSFORMATION OF ALPHAM IF MATSET = 1.0\r\nC     OR THETAM = 0.0\r\nC\r\n  640 CONTINUE\r\nC\r\n      IF (MATSET .EQ. 1.0) GO TO 650\r\n      IF (THETAM .NE. 0.0) GO TO 670\r\nC\r\n  650 DO 660 IG = 1,3\r\n      ALPHA(IG+MORB) = ALPHAM(IG+MORB)\r\n  660 CONTINUE\r\n      GO TO 500\r\nC\r\nC-----THE ALPHAS NEED TO BE PREMULTIPLIED BY U INVERSE.\r\nC     INCREMENT MORB BY 1 TO INDICATE WHERE TO FILL THE\r\nC     ARRAYS, AND PUT THE SINGLE PREC. ARRAY OF ALPHAM\r\nC     INTO THE DOUBLE PREC. ARRAY OF ALPHAD FOR THE CALL\r\nC     TO GMMATS.\r\nC\r\n  670 MORB = MORB + 1\r\n      DO 680 I =1,6\r\n      ALPHAD(I) = ALPHAM(I)\r\n  680 CONTINUE\r\n      CALL INVERS (3,U,3,BDUM,0,DETU,ISNGU,INDEX)\r\n      CALL GMMATS (U,3,3,0,ALPHAD(MORB),3,1,0,ALPHA(MORB))\r\n      GO TO 500\r\nC\r\n  690 IF (.NOT.COMPOS) GO TO  1070\r\nC\r\nC****\r\nC      IF LAMINATED COMPOSITE ELEMENT, DETERMINE THE THERMAL\r\nC      STRAIN VECTOR DUE TO THE APPLIED THERMAL LOADING.\r\nC      NOTE THE FOLLOWING -\r\nC         1. DIFFERENT GRID POINT TEMPERATURES ARE NOT SUPPORTED\r\nC\r\nC****\r\nC     LOCATE PID BY CARRYING OUT A SEQUENTIAL SEARCH\r\nC     OF THE PCOMPS DATA BLOCK, AND ALSO DETERMINE\r\nC     THE TYPE OF 'PCOMP' BULK DATA ENTRY.\r\nC****\r\nC\r\nC****\r\nC     POINTER DESCRIPITION\r\nC     --------------------\r\nC     IPCMP  - LOCATION OF START OF PCOMP DATA IN CORE\r\nC     NPCMP  - NUMBER OF WORDS OF PCOMP DATA\r\nC     IPCMP1 - LOCATION OF START OF PCOMP1 DATA IN CORE\r\nC     NPCMP1 - NUMBER OF WORDS OF PCOMP1 DATA\r\nC     IPCMP2 - LOCATION OF START OF PCOMP2 DATA IN CORE\r\nC     NPCMP2 - NUMBER OF WORDS OF PCOMP2 DATA\r\nC\r\nC     ITYPE  - TYPE OF PCOMP BULK DATA ENTRY\r\nC\r\nC\r\nC     LAMOPT - LAMINATION GENERATION OPTION\r\nC            = SYM  (SYMMETRIC)\r\nC            = MEM  (MEMBRANE)\r\nC            = SYMMEM  (SYMMETRIC-MEMBRANE)\r\nC\r\nC\r\nC****\r\nC\r\nC\r\nC**** SET POINTER LPCOMP\r\n      LPCOMP = IPCMP + NPCMP + NPCMP1 + NPCMP2\r\nC\r\nC**** SET POINTERS\r\n      ITYPE = -1\r\nC\r\n      PCMP  = .FALSE.\r\n      PCMP1 = .FALSE.\r\n      PCMP2 = .FALSE.\r\nC\r\n      PCMP   = NPCMP  .GT. 0\r\n      PCMP1  = NPCMP1 .GT. 0\r\n      PCMP2  = NPCMP2 .GT. 0\r\nC\r\nC**** CHECK IF NO 'PCOMP' DATA HAS BEEN READ INTO CORE\r\nC\r\n      IF (PCMP .OR. PCMP1 .OR. PCMP2) GO TO 700\r\n      J = -229\r\n      GO TO 1580\r\nC\r\nC**** SEARCH FOR PID IN PCOMP DATA\r\nC\r\n  700 IF (.NOT.PCMP) GO TO 750\r\nC\r\n      IP = IPCMP\r\n      IF (INTZ(IP) .EQ. PID) GO TO 740\r\n      IPC11 = IPCMP1 - 1\r\n      DO 720 IP = IPCMP,IPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP1-1)) GO TO 710\r\n      GO TO 720\r\n  710 IF (INTZ(IP+1) .EQ. PID) GO TO 730\r\n  720 CONTINUE\r\n      GO TO 750\r\nC\r\n  730 IP = IP+1\r\n  740 ITYPE = PCOMP\r\n      GO TO 860\r\nC\r\nC**** SEARCH FOR PID IN PCOMP1 DATA\r\nC\r\n  750 IF (.NOT.PCMP1) GO TO 800\r\n      IP = IPCMP1\r\n      IF (INTZ(IP) .EQ. PID) GO TO 790\r\n      IPC21 = IPCMP2 - 1\r\n      DO 770 IP = IPCMP1,IPC21\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(IPCMP2-1)) GO TO 760\r\n      GO TO 770\r\n  760 IF (INTZ(IP+1) .EQ. PID) GO TO 780\r\n  770 CONTINUE\r\n      GO TO 800\r\nC\r\n  780 IP = IP+1\r\n  790 ITYPE = PCOMP1\r\n      GO TO 860\r\nC\r\nC**** SEARCH FOR PID IN PCOMP2 DATA\r\nC\r\n  800 IP = IPCMP2\r\n      IF (INTZ(IP) .EQ. PID) GO TO 840\r\n      LPC11 = LPCOMP - 1\r\n      DO 820 IP = IPCMP2,LPC11\r\n      IF (INTZ(IP).EQ.-1 .AND. IP.LT.(LPCOMP-1)) GO TO 810\r\n      GO TO 820\r\n  810 IF (INTZ(IP+1) .EQ. PID) GO TO 830\r\n  820 CONTINUE\r\n      GO TO 850\r\nC\r\n  830 IP = IP+1\r\n  840 ITYPE = PCOMP2\r\n      GO TO 860\r\nC\r\nC\r\nC**** CHECK IF PID HAS NOT BEEN LOCATED\r\nC\r\n  850 IF (ITYPE .NE. -1) GO TO 860\r\n      J = -229\r\n      GO TO 1580\r\nC\r\nC**** LOCATION OF PID\r\nC\r\n  860 PIDLOC = IP\r\n      LAMOPT = INTZ(PIDLOC+8)\r\nC\r\nC\r\nC**** DETERMINE INTRINSIC LAMINATE PROPERTIES\r\nC\r\nC     LAMINATE THICKNESS\r\nC\r\n      TLAM = ELTH\r\nC\r\nC**** LAMINATE EXTENSIONAL, BENDING AND MEMBRANE-BENDING MATRICES\r\nC\r\n      DO 870 LL = 1,6\r\n      DO 870 MM = 1,6\r\n      ABBD(LL,MM) = 0.0\r\n  870 CONTINUE\r\nC\r\nC     EXTENSIONAL\r\nC\r\n      MATID = MID(1)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPS (GPROP)\r\nC\r\n      DO 880 LL = 1,3\r\n      DO 880 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL,MM) = GPROP(II)*TLAM\r\n  880 CONTINUE\r\nC\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 910\r\nC\r\nC     BENDING\r\nC\r\n      MATID = MID(2)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPS (GPROP)\r\nC\r\nC**** MOMENT OF INERTIA OF LAMINATE\r\n      MINTR = (TLAM**3)/12.0\r\nC\r\n      DO 890 LL = 1,3\r\n      DO 890 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL+3,MM+3) = GPROP(II)*MINTR\r\n  890 CONTINUE\r\nC\r\n      IF (LAMOPT .EQ. SYM) GO  TO 910\r\nC\r\nC     MEMBRANE-BENDING\r\nC\r\n      MATID = MID(4)\r\n      CALL MAT (ELID)\r\nC\r\n      CALL LPROPS (GPROP)\r\nC\r\n      DO 900 LL = 1,3\r\n      DO 900 MM = 1,3\r\n      II = MM + 3*(LL-1)\r\n      ABBD(LL,MM+3) = GPROP(II)*TLAM*TLAM\r\n      ABBD(LL+3,MM) = GPROP(II)*TLAM*TLAM\r\n  900 CONTINUE\r\nC\r\n  910 CONTINUE\r\nC\r\nC**** REFERENCE SURFACE\r\n      ZREF = -TLAM/2.0\r\nC\r\nC**** NUMBER OF LAYERS\r\n      NLAY = INTZ(PIDLOC + 1)\r\nC\r\nC**** SET POINTER\r\n      IF (ITYPE .EQ. PCOMP ) IPOINT = (PIDLOC + 8 + 4*NLAY)\r\n      IF (ITYPE .EQ. PCOMP1) IPOINT = (PIDLOC + 8 + NLAY)\r\n      IF (ITYPE .EQ. PCOMP2) IPOINT = (PIDLOC + 8 + 2*NLAY)\r\nC\r\nC****\r\nC     ALLOW FOR THE ORIENTATION OF THE MATERIAL AXIS FROM\r\nC     THE ELEMENT AXIS\r\nC****\r\nC\r\n      THETAE = ATAN(TEM(2)/TEM(1))\r\n      THETAE = THETAE*DEGRAD\r\nC\r\nC\r\nC**** LAMINATE REFERENCE (OR LAMINATION) TEMPERATURE\r\n      TSUBO = Z(IPOINT+24)\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 920\r\n      TMEAN = TEMPEL\r\n      GO TO 930\r\nC\r\n  920 TMEAN = STEMP(1)\r\nC\r\n  930 DELTA = TMEAN - TSUBO\r\nC\r\n      DO 940 LL = 1,6\r\n      FTHERM(LL) = 0.0\r\n  940 CONTINUE\r\nC\r\nC**** ALLOW FOR APPLIED THERMAL MOMENTS\r\nC\r\n      IF (.NOT.TEMPP2) GO TO 960\r\nC\r\n      DO 950 LL = 1,3\r\n  950 FTHERM(LL+3) = THRMOM(LL)\r\nC\r\n  960 CONTINUE\r\nC\r\nC\r\nC     L O O P  O V E R  N L A Y\r\nC\r\n      DO 1050 K = 1,NLAY\r\nC\r\n      ZK1 = ZK\r\n      IF (K .EQ. 1) ZK1 = ZREF\r\n      IF (ITYPE .EQ. PCOMP ) ZK = ZK1 + Z(PIDLOC + 6 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) ZK = ZK1 + Z(PIDLOC + 7)\r\n      IF (ITYPE .EQ. PCOMP2) ZK = ZK1 + Z(PIDLOC + 7 + 2*K)\r\nC\r\n      ZSUBI = (ZK+ZK1)/2.0\r\nC\r\nC**** LAYER THICKNESS\r\n      TI = ZK - ZK1\r\nC\r\nC**** LAYER ORIENTATION\r\n      IF (ITYPE .EQ. PCOMP ) THETA = Z(PIDLOC + 7 + 4*K)\r\n      IF (ITYPE .EQ. PCOMP1) THETA = Z(PIDLOC + 8 + K)\r\n      IF (ITYPE .EQ. PCOMP2) THETA = Z(PIDLOC + 8 + 2*K)\r\nC\r\nC\r\n      THETA = THETA * DEGRAD\r\nC\r\n      IF (THETAE .GT. 0.0) THETA = THETA + THETAE\r\nC\r\n      C   = COS(THETA)\r\n      C2  = C*C\r\n      S   = SIN(THETA)\r\n      S2  = S*S\r\nC\r\n      TRANSL(1)  = C2\r\n      TRANSL(2)  = S2\r\n      TRANSL(3)  = C*S\r\n      TRANSL(4)  = S2\r\n      TRANSL(5)  = C2\r\n      TRANSL(6)  =-C*S\r\n      TRANSL(7)  =-2.0*C*S\r\n      TRANSL(8)  = 2.0*C*S\r\n      TRANSL(9)  = C2-S2\r\nC\r\nC**** CALCULATE GBAR = TRANST X GLAY X TRANS\r\nC\r\n      DO 1000 IR = 1,9\r\n      GLAY(IR) = Z(IPOINT+IR)\r\n 1000 CONTINUE\r\nC\r\n      CALL GMMATS (GLAY(1),3,3,0,TRANSL(1),3,3,0,GLAYT(1))\r\n      CALL GMMATS (TRANSL(1),3,3,1,GLAYT(1),3,3,0,GBAR(1))\r\nC\r\nC**** CALCULATE ALPHAE = TRANSL X ALPHA\r\nC\r\nC\r\nC     MODIFY TRANSL FOR TRANSFORMATIONS OF ALPHAS\r\nC\r\n      TRANSL(3) = -TRANSL(3)\r\n      TRANSL(6) = -TRANSL(6)\r\n      TRANSL(7) = -TRANSL(7)\r\n      TRANSL(8) = -TRANSL(8)\r\nC\r\n      DO 1010 IR = 1,3\r\n      ALPHAL(IR) = Z(IPOINT+13+IR)\r\n 1010 CONTINUE\r\nC\r\n      CALL GMMATS (TRANSL(1),3,3,0,ALPHAL(1),3,1,0,ALPHAE(1))\r\nC\r\nC\r\nC**** CALCULATE LAMINATE OPERATING TEMPERATURE (ALLOWING FOR\r\nC     TEMPERATURE GRADIENT IF APPLIED)\r\nC\r\n      DELTAT = DELTA\r\n      IF (TEMPP1) DELTAT = DELTA + ZSUBI*TGRAD\r\nC\r\nC**** CALCULATE THERMAL FORCES AND MOMENTS\r\nC\r\n      CALL GMMATS (GBAR(1),3,3,0,ALPHAE(1),3,1,0,GALPHA(1))\r\nC\r\n      DO 1020 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK - ZK1)\r\n      IF (LAMOPT.EQ.MEM .OR. LAMOPT.EQ.SYMMEM) GO TO 1020\r\n      FTHERM(IR+3) = FTHERM(IR+3) -\r\n     1               GALPHA(IR)*DELTAT*((ZK**2)-(ZK1**2))/2.0\r\n 1020 CONTINUE\r\nC\r\n      IF (LAMOPT.NE.SYM .AND. LAMOPT.NE.SYMMEM) GO TO 1040\r\nC\r\nC**** CALCULATE CONTRIBUTION FROM SYMMETRIC LAYERS\r\nC\r\n      DELTAT = DELTA\r\n      IF (TEMPP1) DELTAT = DELTA - ZSUBI*TGRAD\r\nC\r\n      DO 1030 IR = 1,3\r\n      FTHERM(IR) = FTHERM(IR) + GALPHA(IR)*DELTAT*(ZK-ZK1)\r\n      IF (LAMOPT .EQ. SYMMEM) GO TO 1030\r\n      FTHERM(IR+3) = FTHERM(IR+3) -\r\n     1               GALPHA(IR)*DELTAT*((ZK1**2)-(ZK**2))/2.0\r\n 1030 CONTINUE\r\nC\r\n 1040 IF (ITYPE .EQ. PCOMP) IPOINT = IPOINT + 27\r\nC\r\n 1050 CONTINUE\r\nC\r\nC\r\nC****\r\nC     COMPUTE THERMAL STRAIN VECTOR\r\nC****\r\nC                 -1\r\nC     EPSLN = ABBD   X FTHERM\r\nC\r\n      CALL INVERS (6,ABBD,6,DUM,0,DETERM,ISING,INDX)\r\nC\r\n      DO 1060 LL = 1,6\r\n      DO 1060 MM = 1,6\r\n      NN = MM + 6*(LL-1)\r\n      STIFF(NN) = ABBD(LL,MM)\r\n 1060 CONTINUE\r\nC\r\n      CALL GMMATS (STIFF(1),6,6,0,FTHERM(1),6,1,0,EPSLNT(1))\r\nC\r\n 1070 CONTINUE\r\nC\r\nC\r\nC-----INITIALIZE NECESSARY ARRAYS BEFORE STARTING THE\r\nC     DOUBLE INTEGRATION LOOP\r\nC\r\n      DO 1100 I =1,9\r\n      G2(I) = 0.0\r\n 1100 CONTINUE\r\n      DO 1110 I =1,6\r\n      EPSUBT(I) = 0.0\r\n 1110 CONTINUE\r\n      DO 1120 I =1,NDOF\r\n      PT(I)  = 0.0\r\n      PTG(I) = 0.0\r\n 1120 CONTINUE\r\nC\r\nC     FILL IN THE 6X6 MATERIAL PROPERTY MATRIX G\r\nC\r\n      DO 1130 IG=1,6\r\n      DO 1130 JG=1,6\r\n 1130 G(IG,JG)=0.0\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1150\r\n      DO 1140 IG=1,3\r\n      IG1=(IG-1)*3\r\n      DO 1140 JG=1,3\r\n      JG1=JG+IG1\r\n      G(IG,JG)=GI(JG1)\r\n 1140 CONTINUE\r\nC\r\n 1150 IF (.NOT.BENDNG) GO TO 1180\r\n      I = 0\r\n      DO 1160 IG=4,6\r\n      IG2=(IG-2)*3\r\n      DO 1160 JG=4,6\r\n      JG2=JG+IG2\r\n      G(IG,JG)=GI(JG2)*MOMINR\r\nC\r\nC     SAVE THE G-MATRIX FOR BENDING IN G2\r\nC\r\n      I = I + 1\r\n      G2(I) = G(IG,JG)\r\n 1160 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1180\r\n      IF (MBCOUP) GO TO 1180\r\n      DO 1170 IG=1,3\r\n      IG1=(IG-1)*3\r\n      KG=IG+3\r\n      DO 1170 JG=1,3\r\n      JG1=JG+IG1\r\n      LG=JG+3\r\n      G(IG,LG)=GI(JG1)\r\n      G(KG,JG)=GI(JG1)\r\n 1170 CONTINUE\r\n 1180 CONTINUE\r\nC\r\nC****\r\nC     HERE BEGINS THE DOUBLE LOOP ON STATEMENT 1470 TO\r\nC     GAUSS INTEGRATE FOR THE ELEMENT STIFFNESS MATRIX.\r\nC****\r\nC\r\n      DO 1470 IXSI=1,2\r\n      XI=PTINT(IXSI)\r\nC\r\n      DO 1470 IETA=1,2\r\n      ETA=PTINT(IETA)\r\nC\r\n      CALL Q4SHPS (XI,ETA,SHP,DSHP)\r\nC\r\nC     SORT THE SHAPE FUNCTIONS AND THEIR DERIVATIVES INTO SIL ORDER.\r\nC\r\n      DO 1200 I=1,4\r\n      TMPSHP(I  )=SHP(I)\r\n      DSHPTP(I  )=DSHP(I)\r\n 1200 DSHPTP(I+4)=DSHP(I+4)\r\n      DO 1210 I=1,4\r\n      KK=IORDER(I)\r\n      SHP (I  )=TMPSHP(KK)\r\n      DSHP(I  )=DSHPTP(KK)\r\n 1210 DSHP(I+4)=DSHPTP(KK+4)\r\nC\r\nC     CALCULATE THE ELEMENT THICKNESS AT THIS POINT\r\nC\r\n      THK=0.0\r\n      DO 1220 I=1,NNODE\r\n 1220 THK=THK+DGPTH(I)*SHP(I)\r\n      REALI=THK*THK*THK/12.0\r\nC\r\nC-----CALCULATE T-BAR FOR THIS INTEGRATION POINT\r\nC     SKIP OVER IF TEMPPI CARDS ARE PRESENT\r\nC     THEN CALCULATE ALPHA*T FOR EACH CASE\r\nC\r\n      IF (COMPOS) GO TO 1370\r\nC\r\n      IF (TEMPP1 .OR. TEMPP2) GO TO 1310\r\n      TBAR = 0.0\r\n      DO 1300 I =1,NNODE\r\n 1300 TBAR = TBAR + SHP(I) * GTEMPS(I)\r\n 1310 CONTINUE\r\nC\r\n      TTBAR = TBAR - TSUB0\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 1330\r\n      DO 1320 I =1,3\r\n 1320 TALFAM(I) = TTBAR * ALFAM(I)\r\nC\r\n 1330 IF (.NOT.BENDNG) GO TO 1370\r\n      IF (.NOT.TEMPP1 .AND. .NOT.TEMPP2) GO TO 1370\r\n      IF (TEMPP2) GO TO 1350\r\n      DO 1340 I =1,3\r\n 1340 TALFAB(I) = -TGRAD * ALFAB(I)\r\n      GO TO 1370\r\nC\r\n 1350 CONTINUE\r\n      DO 1360 IG2=1,9\r\n 1360 G2I(IG2) = G2(IG2)*REALI\r\n      CALL INVERS (3,G2I,3,GDUM,0,DETG2,ISNGG2,INDEX)\r\n      CALL GMMATS (G2I,3,3,0,THRMOM,3,1,0,TALFAB)\r\n 1370 CONTINUE\r\nC\r\nC     START THE THIRD INTEGRATION LOOP (THRU THE THICKNESS)\r\nC\r\n      DO 1460 IZTA=1,2\r\n      ZTA =PTINT(IZTA)\r\n      HZTA=ZTA/2.0\r\n      IBOT=(IZTA-1)*ND2\r\nC\r\n      CALL JACOBS (ELID,SHP,DSHP,DGPTH,EGPDT,EPNORM,JACOB)\r\n      IF (BADJAC) GO TO 1600\r\nC\r\n      CALL GMMATS (PSITRN,3,3,0,JACOB,3,3,1,PHI)\r\nC\r\nC     CALL Q4BMGS TO GET B MATRIX\r\nC     SET THE ROW FLAG TO 3. IT WILL RETURN THE FIRST 6 ROWS.\r\nC\r\n      ROWFLG = 3\r\n      CALL Q4BMGS (DSHP,DGPTH,EGPDT,EPNORM,PHI,BMATRX(1))\r\n      DO 1380 IX=1,NDOF\r\n 1380 BMATRX(IX+ND2)=XYBMAT(IBOT+IX)\r\nC\r\n      IF (.NOT.BENDNG) GO TO 1410\r\n      DO 1390 IX=1,NDOF\r\n 1390 BMATRX(IX+ND5)=XYBMAT(IBOT+IX+NDOF)\r\nC\r\nC     NOW COMPLETE THE G-MATRIX IF COUPLING EXISTS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 1410\r\n      DO 1400 IG=1,3\r\n      IG4=(IG+8)*3\r\n      KG=IG+3\r\n      DO 1400 JG=1,3\r\n      JG4=JG+IG4\r\n      JG1=JG4-27\r\n      LG=JG+3\r\n      G(IG,LG)=-GI(JG4)*ZTA*6.0+GI(JG1)\r\n      G(KG,JG)=-GI(JG4)*ZTA*6.0+GI(JG1)\r\n 1400 CONTINUE\r\n 1410 CONTINUE\r\nC\r\nC-----MULTIPLY DETERMINANT, B-TRANSPOSE, G-MATRIX, & THERMAL\r\nC     STRAIN MATRIX.\r\nC\r\nC                         T\r\nC         P  =  DETERM * B  * G * EPSILON\r\nC          T                             T\r\nC\r\n      IF (COMPOS) GO TO 1430\r\n      DO 1420 I =1,3\r\n      EPSUBT(I) = DETJ * TALFAM(I)\r\n 1420 EPSUBT(I+3) = - DETJ * TALFAB(I) * HZTA * THK\r\n      GO TO 1450\r\nC\r\n 1430 DO 1440 IR = 1,3\r\n      EPSUBT(IR  ) = DETJ*EPSLNT(IR)\r\n 1440 EPSUBT(IR+3) =-DETJ*EPSLNT(IR+3)*THK*HZTA\r\n 1450 CONTINUE\r\nC\r\n      CALL GMMATS (G,6,6,0,EPSUBT,6,1,0,GEPSBT)\r\n      CALL GMMATS (BMATRX,6,NDOF,-1,GEPSBT,6,1,0,PT)\r\nC\r\n 1460 CONTINUE\r\n 1470 CONTINUE\r\nC\r\nC----TRIPLE INTEGRATION LOOP IS NOW FINISHED\r\nC\r\nC****\r\nC     PICK UP THE BASIC TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC****\r\n      DO 1500 I=1,36\r\n 1500 TRANS(I)=0.0\r\nC\r\n      DO 1540 I=1,NNODE\r\n      IPOINT=9*(I-1)+1\r\n      IF (IGPDT(1,I) .LE. 0) GO TO 1510\r\nC\r\n      CALL TRANSS (BGPDT(1,I),TBG)\r\n      GO TO 1530\r\nC\r\n 1510 DO 1520 J=1,9\r\n 1520 TBG(J)=0.0\r\n      TBG(1)=1.0\r\n      TBG(5)=1.0\r\n      TBG(9)=1.0\r\nC\r\n 1530 CALL GMMATS (TEB,3,3,0,TBG,3,3,0,TRANS(IPOINT))\r\n 1540 CONTINUE\r\nC\r\nC\r\nC-----TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL\r\nC     GLOBAL COORDINATE SYSTEMS OF EACH NODE. NOTE THAT THE\r\nC     TRANSFORMATION MATRICES ARE STORED IN  TRANS = TEG,\r\nC     AND THAT THE 6-DOF LOAD VECTOR FOR EACH NODE USES THE\r\nC     SAME 3X3 TRANSFORMATION MATRIX FOR THE TRANSLATIONAL\r\nC     DOF'S (1-3) AND THE ROTATIONAL DOF'S (4-6).\r\nC\r\nC                         T\r\nC               PT  =  TEG   *  PT\r\nC                 G               E\r\nC\r\n      DO 1550 I =1,NNODE\r\n      IPT  = (I-1)*9 + 1\r\n      JPT1 = (I-1)*6 + 1\r\n      JPT2 = JPT1 + 3\r\nC\r\n      CALL GMMATS (TRANS(IPT),3,3,1,PT(JPT1),3,1,0,PTG(JPT1))\r\n      CALL GMMATS (TRANS(IPT),3,3,1,PT(JPT2),3,1,0,PTG(JPT2))\r\nC\r\n 1550 CONTINUE\r\nC\r\nC\r\nC-----WE NOW HAVE THE THERMAL LOAD VECTOR IN GLOBAL COORDINATES,\r\nC     IN PTG. THE NEXT AND LAST STEP IS TO COMBINE IT WITH THE\r\nC     SYSTEM LOAD VECTOR CONTAINED IN Z.\r\nC\r\n      L=0\r\n      DO 1560 I =1,NNODE\r\n      K = SIL(I) - 1\r\n      DO 1560 J =1,6\r\n      K = K + 1\r\n      L = L + 1\r\n      Z(K) = Z(K) + PTG(L)\r\n 1560 CONTINUE\r\n      GO TO 1600\r\nC\r\n 1580 CALL MESAGE (30,J,NAM)\r\n      NOGO = 1\r\nC\r\nC\r\n 1600 CONTINUE\r\n      RETURN\r\nC\r\n 1700 FORMAT ('0*** SYSTEM FATAL ERROR. THE ELEMENT THICKNESS FOR',\r\n     1        ' QUAD4 EID = ',I8,' IS NOT COMPLETELY DEFINED.')\r\n      END\r\n"
  },
  {
    "path": "mis/tltr3d.f",
    "content": "      SUBROUTINE TLTR3D\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO GENERATE EQUIVALENT THERMAL LOADS FOR\r\nC     THE CTRIA3 ELEMENT.\r\nC\r\nC     WAS NAMED T3THLD (LOADVC,INTZ,Z) IN UAI\r\nC\r\nC\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,COMPOS,\r\n     1                 TEMPP1,TEMPP2,SHEART,NOALFA\r\n      INTEGER          HUNMEG,NEST(39),ELID,PID,MID(4),SIL(3),\r\n     1                 IGPDT(4,3),NECPT(4),IORDER(3),COMPS,FLAG,\r\n     2                 INDXG2(3,3),SYSBUF,NOUT,NOGO\r\n      REAL             GPTH(3),BGPDT(4,3),ECPT(4),TSUB0,STEMP,Z,\r\n     1                 LOADVC(1)\r\n      DOUBLE PRECISION PT(6,3),PTG(6,3),PI,TWOPI,RADDEG,DEGRAD,\r\n     1                 EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),DGPTH(6),RHO,\r\n     2                 THETAM,CENTE(3),SHPT(3),WEIGHT,WTSTIF,LX,LY,\r\n     3                 BMATRX(162),BTERMS(6),DETJAC,G(6,6),GI(36),\r\n     4                 AIC(1),DETG2,G2(3,3),EGNOR(4),MOMINR,TS,TH,\r\n     5                 REALI,AVGTHK,TEM(9),TBG(9),TEB(9),TEU(9),TUB(9),\r\n     6                 TUM(9),ALPHA(6),ALFAM(3),ALFAB(3),TALFAM(3),\r\n     7                 TALFAB(3),TBAR,TGRAD,TMEAN,FTHERM(6),THRMOM(3),\r\n     8                 GTEMPS(3),EPSLNT(6),EPSUBT(6),GEPSBT(6),\r\n     9                 TRANS(27),OFFSET,TMPTRN(36),EPS,THETAE,EDGLEN(3)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /BLANK /  NROWSP,IPARAM,COMPS\r\n      COMMON /CONDAD/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SGTMPD/  STEMP(7)\r\n      COMMON /TRIMEX/  EST(39)\r\n      EQUIVALENCE      (EST( 1),NEST(1)),(EST( 2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)),(EST(10),ZOFF  ),\r\n     2                 (EST(12),ELTH   ),(EST(26),ZOFF1 ),\r\n     3                 (EST(39),TEMPEL ),(EST(27),BGPDT(1,1),IGPDT(1,1))\r\n      EQUIVALENCE      (NECPT(1),ECPT(1)),(STEMP(7),FLAG),\r\n     1                 (Z(1),LOADVC(1))\r\n      DATA    HUNMEG,  EPS / 100000000, 1.0D-7 /\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      NNODE  = 3\r\n      ELID   = NEST(1)\r\n      WEIGHT = 1.0D0/6.0D0\r\n      SHEART =.FALSE.\r\n      NOALFA =.FALSE.\r\n      TGRAD  = 0.0D0\r\n      ELTEMP = TEMPEL\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\n      DO 10 LL = 1,3\r\n      TALFAM(LL) = 0.0D0\r\n      TALFAB(LL) = 0.0D0\r\n      FTHERM(LL) = 0.0D0\r\n      FTHERM(LL+3) = 0.0D0\r\n   10 CONTINUE\r\nC\r\nC     TEST FOR COMPOSITE ELEMENT\r\nC\r\n      PID    = NEST(11) - HUNMEG\r\n      COMPOS = COMPS.EQ.-1 .AND. PID.GT.0\r\nC\r\nC     CHECK FOR THE TYPE OF TEMPERATURE DATA\r\nC     - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3.\r\nC     - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT.\r\nC\r\n      TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ. 2\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n      CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 520\r\n      CALL GMMATD (TEB,3,3,0, TUB,3,3,1, TEU)\r\nC\r\nC     SET THE NUMBER OF DOF'S\r\nC\r\n      NNOD2 = NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NPART = NDOF*NDOF\r\n      ND2   = NDOF*2\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\n      ND8   = NDOF*8\r\nC\r\nC     OBTAIN MATERIAL INFORMATION\r\nC\r\nC     PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL\r\nC     TRANSFORMATIONS.\r\nC\r\n      DO 20 IEC = 2,4\r\n      ECPT(IEC) = CENTE(IEC-1)\r\n   20 CONTINUE\r\nC\r\nC     SET MATERIAL FLAGS\r\nC     0.833333333D0 = 5.0D0/6.0D0\r\nC\r\n      IF (NEST(13) .NE.  0) MOMINR = EST(14)\r\n      IF (NEST(13) .NE.  0) TS = EST(16)\r\n      IF ( EST(16) .EQ. .0) TS = 0.83333333D0\r\n      IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333D0\r\nC\r\n      MID(1) = NEST(11)\r\n      MID(2) = NEST(13)\r\n      MID(3) = NEST(15)\r\n      MID(4) = NEST(20)\r\nC\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0\r\n     1         .AND. DABS(MOMINR-1.0D0).LE.EPS\r\nC\r\nC     SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM\r\nC\r\n      CALL SHCSGD (*530,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20),\r\n     1             NEST(20),NECPT,TUB,MCSID,THETAM,TUM)\r\n      CALL GMMATD (TEU,3,3,0, TUM,3,3,0, TEM)\r\nC\r\nC     CALCULATE THE ANGLE BETWEEN THE MATERIAL AXIS AND THE ELEMENT AXIS\r\nC\r\n      THETAE = DATAN2(TEM(4),TEM(1))\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\n      CALL SHGMGD (*540,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0,\r\n     1             EGNOR,ALPHA)\r\nC\r\n      DO 30 IAL = 1,3\r\n      ALFAM(IAL) = ALPHA(IAL  )\r\n      ALFAB(IAL) = ALPHA(IAL+3)\r\n   30 CONTINUE\r\nC\r\nC     TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL\r\nC     CALCULATED ZERO TERMS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 50\r\n      DO 40 I = 28,36\r\n      IF (DABS(GI(I)) .GT. EPS) GO TO 50\r\n   40 CONTINUE\r\n      MBCOUP = .FALSE.\r\nC\r\nC     OBTAIN TEMPERATURE INFORMATION\r\nC\r\nC     IF TEMPP1 DATA, GET AVERAGE TEMP AND THERMAL GRADIENT.\r\nC\r\n   50 IF (.NOT.TEMPP1) GO TO 60\r\n      TMEAN = STEMP(1)\r\n      TGRAD = STEMP(2)\r\n      GO TO 90\r\nC\r\nC     IF TEMPP2 DATA, GET THERMAL MOMENTS.\r\nC\r\n   60 IF (.NOT.TEMPP2) GO TO 70\r\n      TMEAN = STEMP(1)\r\nC\r\n      THRMOM(1) = STEMP(2)\r\n      THRMOM(2) = STEMP(3)\r\n      THRMOM(3) = STEMP(4)\r\nC\r\n      FTHERM(4) = THRMOM(1)\r\n      FTHERM(5) = THRMOM(2)\r\n      FTHERM(6) = THRMOM(3)\r\n      GO TO 90\r\nC\r\nC     TEMPPI TEMPERATURE DATA IS NOT AVAILABLE, THEREFORE SORT THE GRID\r\nC     POINT TEMPERATURES (IN STEMP(1-7)).\r\nC\r\n   70 DO 80 I = 1,NNODE\r\n      IPNT = IORDER(I)\r\n      GTEMPS(I) = STEMP(IPNT)\r\n   80 CONTINUE\r\n      TMEAN = (GTEMPS(1)+GTEMPS(2)+GTEMPS(3))/3.0D0\r\n   90 TBAR = TMEAN - TSUB0\r\nC\r\nC     CALCULATE THERMAL STRAINS FOR COMPOSITE ELEMENTS\r\nC\r\n      IF (.NOT.COMPOS) GO TO 100\r\n      CALL SHCTSD (IERR,ELID,PID,MID,AVGTHK,TMEAN,TGRAD,THETAE,FTHERM,\r\n     1             EPSLNT,Z,Z)\r\n      IF (IERR .NE. 0) GO TO 500\r\nC\r\nC     INITIALIZE FOR THE MAIN INTEGRATION LOOP\r\nC\r\n  100 DO 110 I = 1,6\r\n      EPSUBT(I) = 0.0D0\r\n      DO 110 J = 1,NNODE\r\n      PT (I,J)  = 0.0D0\r\n      PTG(I,J)  = 0.0D0\r\n  110 CONTINUE\r\nC\r\nC     MAIN INTEGRATION LOOP\r\nC\r\n      DO 400 IPT = 1,NNODE\r\n      CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 520\r\nC\r\n      WTSTIF = DETJAC*WEIGHT\r\n      REALI  = MOMINR*TH*TH*TH/12.0D0\r\nC\r\nC     FILL IN THE 6X6 [G]\r\nC\r\n      DO 200 IG = 1,6\r\n      DO 200 JG = 1,6\r\n      G(IG,JG) = 0.0D0\r\n  200 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 220\r\n      DO 210 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 210 JG = 1,3\r\n      G(IG,JG) = GI(IG1+JG)*TH\r\n  210 CONTINUE\r\nC\r\n  220 IF (.NOT.BENDNG) GO TO 250\r\n      DO 230 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 230 JG = 4,6\r\n      G(IG,JG) = GI(IG2+JG)*REALI\r\n  230 CONTINUE\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 250\r\n      DO 240 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      DO 240 JG = 1,3\r\n      G(IG,JG+3) = GI(IG4+JG)*TH*TH\r\n      G(IG+3,JG) = G(IG,JG+3)\r\n  240 CONTINUE\r\nC\r\nC     PREPARE THERMAL STRAINS FOR COMPOSITE ELEMENTS\r\nC\r\n  250 IF (.NOT.COMPOS) GO TO 270\r\n      DO 260 IR = 1,6\r\n      EPSUBT(IR) = WTSTIF*EPSLNT(IR)\r\n  260 CONTINUE\r\n      GO TO 370\r\nC\r\nC     CALCULATE THERMAL STRAINS FOR NON-COMPOSITE ELEMENTS\r\nC\r\n  270 IF (.NOT.MEMBRN) GO TO 290\r\n      DO 280 I = 1,3\r\n      TALFAM(I) = TBAR*ALFAM(I)\r\n  280 CONTINUE\r\nC\r\n  290 IF (.NOT.BENDNG) GO TO 350\r\n      IF (.NOT.TEMPP1) GO TO 310\r\n      DO 300 I = 1,3\r\n      TALFAB(I) = -TGRAD*ALFAB(I)\r\n  300 CONTINUE\r\n      GO TO 350\r\nC\r\n  310 IF (.NOT.TEMPP2) GO TO 330\r\n      DO 320 IG = 1,3\r\n      DO 320 JG = 1,3\r\n      G2(IG,JG) = G(IG+3,JG+3)\r\n  320 CONTINUE\r\nC\r\n      CALL INVERD (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2)\r\n      CALL GMMATD (G2,3,3,0, THRMOM,3,1,0, TALFAB)\r\n      GO TO 350\r\nC\r\n  330 DO 340 I = 1,3\r\n      TALFAB(I) = 0.0D0\r\n  340 CONTINUE\r\nC\r\n  350 DO 360 I = 1,3\r\n      EPSUBT(I  ) = WTSTIF*TALFAM(I)\r\n      EPSUBT(I+3) = WTSTIF*TALFAB(I)\r\n  360 CONTINUE\r\nC\r\nC                                T\r\nC     [P]  = [P]  + WTSTIF*[B] [G][EPS]\r\nC        T      T                      T\r\nC\r\n  370 CALL GMMATD (G,6,6,0, EPSUBT,6,1,0, GEPSBT)\r\n      CALL GMMATD (BMATRX,6,NDOF,-1, GEPSBT,6,1,0, PT)\r\nC\r\n  400 CONTINUE\r\nC\r\nC     END OF MAIN INTEGRATION LOOP\r\nC\r\nC     PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC\r\n      DO 420 I = 1,NNODE\r\n      IPOINT = 9*(I-1)+1\r\n      CALL TRANSD (BGPDT(1,I),TBG)\r\n      CALL GMMATD (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT))\r\n  420 CONTINUE\r\nC\r\nC     TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL GLOBAL\r\nC     COORDINATE SYSTEMS OF EACH NODE.\r\nC\r\nC                 T\r\nC     [PT] = [TEG] [PT]\r\nC         G            E\r\nC\r\n      DO 430 I = 1,NNODE\r\n      CALL TLDRD  (OFFSET,I,TRANS,TMPTRN)\r\n      CALL GMMATD (TMPTRN,6,6,1, PT(1,I),6,1,0, PTG(1,I))\r\n  430 CONTINUE\r\nC\r\nC     ADD THE THERMAL LOAD VECTOR TO THE GLOBAL LOAD VECTOR WHICH\r\nC     RESIDES IN [LOADVC].\r\nC\r\n      DO 440 I = 1,NNODE\r\n      K = SIL(I) - 1\r\n      DO 440 J = 1,6\r\n      LOADVC(K+J) = LOADVC(K+J) + SNGL(PTG(J,I))\r\n  440 CONTINUE\r\n      GO TO 600\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  500 WRITE  (NOUT,510)\r\n  510 FORMAT ('0*** SYSTEM FATAL ERROR.  APPROPRIATE COMPOSITE DATA ',\r\n     1        'NOT FOUND IN MODULE SSG1.')\r\n      GO TO 560\r\n  520 J = 224\r\n      GO TO 550\r\n  530 J = 225\r\n      NEST(2) = MCSID\r\n      GO TO 550\r\n  540 J = 226\r\n      NEST(2) = MID(3)\r\n  550 CALL MESAGE (30,J,NEST(1))\r\n  560 NOGO = 1\r\nC\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tltr3s.f",
    "content": "      SUBROUTINE TLTR3S\r\nC\r\nC     SINGLE PRECISION ROUTINE TO GENERATE EQUIVALENT THERMAL LOADS FOR\r\nC     THE CTRIA3 ELEMENT.\r\nC\r\nC     WAS NAMED T3THLS (LOADVC,INTZ,Z) IN UAI\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\nC\r\n      LOGICAL          MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH,COMPOS,\r\n     1                 TEMPP1,TEMPP2,SHEART,NOALFA\r\n      INTEGER          HUNMEG,NEST(39),ELID,PID,MID(4),SIL(3),\r\n     1                 IGPDT(4,3),NECPT(4),IORDER(3),COMPS,FLAG,\r\n     2                 INDXG2(3,3),SYSBUF,NOUT,NOGO\r\n      REAL             GPTH(3),BGPDT(4,3),ECPT(4),TSUB0,STEMP,Z,\r\n     1                 LOADVC(1)\r\n      REAL             PT(6,3),PTG(6,3),PI,TWOPI,RADDEG,DEGRAD,\r\n     1                 EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),DGPTH(6),RHO,\r\n     2                 THETAM,CENTE(3),SHPT(3),WEIGHT,WTSTIF,LX,LY,\r\n     3                 BMATRX(162),BTERMS(6),DETJAC,G(6,6),GI(36),\r\n     4                 AIC(1),DETG2,G2(3,3),EGNOR(4),MOMINR,TS,TH,\r\n     5                 REALI,AVGTHK,TEM(9),TBG(9),TEB(9),TEU(9),TUB(9),\r\n     6                 TUM(9),ALPHA(6),ALFAM(3),ALFAB(3),TALFAM(3),\r\n     7                 TALFAB(3),TBAR,TGRAD,TMEAN,FTHERM(6),THRMOM(3),\r\n     8                 GTEMPS(3),EPSLNT(6),EPSUBT(6),GEPSBT(6),\r\n     9                 TRANS(27),OFFSET,TMPTRN(36),EPS,THETAE,EDGLEN(3)\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO,DUM(51),PREC\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /BLANK /  NROWSP,IPARAM,COMPS\r\n      COMMON /CONDAS/  PI,TWOPI,RADDEG,DEGRAD\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /SGTMPD/  STEMP(7)\r\n      COMMON /TRIMEX/  EST(39)\r\n      EQUIVALENCE      (EST( 1),NEST(1)),(EST( 2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)),(EST(10),ZOFF  ),\r\n     2                 (EST(12),ELTH   ),(EST(26),ZOFF1 ),\r\n     3                 (EST(39),TEMPEL ),(EST(27),BGPDT(1,1),IGPDT(1,1))\r\n      EQUIVALENCE      (NECPT(1),ECPT(1)),(STEMP(7),FLAG),\r\n     1                 (Z(1),LOADVC(1))\r\n      DATA    HUNMEG,  EPS / 100000000, 1.0E-7 /\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      NNODE  = 3\r\n      ELID   = NEST(1)\r\n      WEIGHT = 1.0/6.0\r\n      SHEART =.FALSE.\r\n      NOALFA =.FALSE.\r\n      TGRAD  = 0.0\r\n      ELTEMP = TEMPEL\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\n      DO 10 LL = 1,3\r\n      TALFAM(LL) = 0.0\r\n      TALFAB(LL) = 0.0\r\n      FTHERM(LL) = 0.0\r\n      FTHERM(LL+3) = 0.0\r\n   10 CONTINUE\r\nC\r\nC     TEST FOR COMPOSITE ELEMENT\r\nC\r\n      PID    = NEST(11) - HUNMEG\r\n      COMPOS = COMPS.EQ.-1 .AND. PID.GT.0\r\nC\r\nC     CHECK FOR THE TYPE OF TEMPERATURE DATA\r\nC     - TYPE TEMPP1 ALSO INCLUDES TYPE TEMPP3.\r\nC     - IF TEMPPI ARE NOT SUPPLIED, GRID POINT TEMPERATURES ARE PRESENT.\r\nC\r\n      TEMPP1 = FLAG .EQ. 13\r\n      TEMPP2 = FLAG .EQ. 2\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n      CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 520\r\n      CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU)\r\nC\r\nC     SET THE NUMBER OF DOF'S\r\nC\r\n      NNOD2 = NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NPART = NDOF*NDOF\r\n      ND2   = NDOF*2\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\n      ND8   = NDOF*8\r\nC\r\nC     OBTAIN MATERIAL INFORMATION\r\nC\r\nC     PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL\r\nC     TRANSFORMATIONS.\r\nC\r\n      DO 20 IEC = 2,4\r\n      ECPT(IEC) = CENTE(IEC-1)\r\n   20 CONTINUE\r\nC\r\nC     SET MATERIAL FLAGS\r\nC     0.833333333 = 5.0/6.0\r\nC\r\n      IF (NEST(13) .NE.  0) MOMINR = EST(14)\r\n      IF (NEST(13) .NE.  0) TS = EST(16)\r\n      IF ( EST(16) .EQ. .0) TS = 0.83333333\r\n      IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.83333333\r\nC\r\n      MID(1) = NEST(11)\r\n      MID(2) = NEST(13)\r\n      MID(3) = NEST(15)\r\n      MID(4) = NEST(20)\r\nC\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0\r\n     1         .AND. ABS(MOMINR-1.0).LE.EPS\r\nC\r\nC     SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM\r\nC\r\n      CALL SHCSGS (*530,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20),\r\n     1             NEST(20),NECPT,TUB,MCSID,THETAM,TUM)\r\n      CALL GMMATS (TEU,3,3,0, TUM,3,3,0, TEM)\r\nC\r\nC     CALCULATE THE ANGLE BETWEEN THE MATERIAL AXIS AND THE ELEMENT AXIS\r\nC\r\n      THETAE = ATAN2(TEM(4),TEM(1))\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\n      CALL SHGMGS (*540,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0,\r\n     1             EGNOR,ALPHA)\r\nC\r\n      DO 30 IAL = 1,3\r\n      ALFAM(IAL) = ALPHA(IAL  )\r\n      ALFAB(IAL) = ALPHA(IAL+3)\r\n   30 CONTINUE\r\nC\r\nC     TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL\r\nC     CALCULATED ZERO TERMS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 50\r\n      DO 40 I = 28,36\r\n      IF (ABS(GI(I)) .GT. EPS) GO TO 50\r\n   40 CONTINUE\r\n      MBCOUP = .FALSE.\r\nC\r\nC     OBTAIN TEMPERATURE INFORMATION\r\nC\r\nC     IF TEMPP1 DATA, GET AVERAGE TEMP AND THERMAL GRADIENT.\r\nC\r\n   50 IF (.NOT.TEMPP1) GO TO 60\r\n      TMEAN = STEMP(1)\r\n      TGRAD = STEMP(2)\r\n      GO TO 90\r\nC\r\nC     IF TEMPP2 DATA, GET THERMAL MOMENTS.\r\nC\r\n   60 IF (.NOT.TEMPP2) GO TO 70\r\n      TMEAN = STEMP(1)\r\nC\r\n      THRMOM(1) = STEMP(2)\r\n      THRMOM(2) = STEMP(3)\r\n      THRMOM(3) = STEMP(4)\r\nC\r\n      FTHERM(4) = THRMOM(1)\r\n      FTHERM(5) = THRMOM(2)\r\n      FTHERM(6) = THRMOM(3)\r\n      GO TO 90\r\nC\r\nC     TEMPPI TEMPERATURE DATA IS NOT AVAILABLE, THEREFORE SORT THE GRID\r\nC     POINT TEMPERATURES (IN STEMP(1-7)).\r\nC\r\n   70 DO 80 I = 1,3\r\n      IPNT = IORDER(I)\r\n      GTEMPS(I) = STEMP(IPNT)\r\n   80 CONTINUE\r\n      TMEAN = (GTEMPS(1)+GTEMPS(2)+GTEMPS(3))/3.0\r\n   90 TBAR = TMEAN - TSUB0\r\nC\r\nC     CALCULATE THERMAL STRAINS FOR COMPOSITE ELEMENTS\r\nC\r\n      IF (.NOT.COMPOS) GO TO 100\r\n      CALL SHCTSS (IERR,ELID,PID,MID,AVGTHK,TMEAN,TGRAD,THETAE,FTHERM,\r\n     1             EPSLNT,Z,Z)\r\n      IF (IERR .NE. 0) GO TO 500\r\nC\r\nC     INITIALIZE FOR THE MAIN INTEGRATION LOOP\r\nC\r\n  100 DO 110 I = 1,6\r\n      EPSUBT(I) = 0.0\r\n      DO 110 J = 1,NNODE\r\n      PT (I,J)  = 0.0\r\n      PTG(I,J)  = 0.0\r\n  110 CONTINUE\r\nC\r\nC     MAIN INTEGRATION LOOP\r\nC\r\n      DO 400 IPT = 1,3\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 520\r\nC\r\n      WTSTIF = DETJAC*WEIGHT\r\n      REALI  = MOMINR*TH*TH*TH/12.0\r\nC\r\nC     FILL IN THE 6X6 [G]\r\nC\r\n      DO 200 IG = 1,6\r\n      DO 200 JG = 1,6\r\n      G(IG,JG) = 0.0\r\n  200 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 220\r\n      DO 210 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 210 JG = 1,3\r\n      G(IG,JG) = GI(IG1+JG)*TH\r\n  210 CONTINUE\r\nC\r\n  220 IF (.NOT.BENDNG) GO TO 250\r\n      DO 230 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 230 JG = 4,6\r\n      G(IG,JG) = GI(IG2+JG)*REALI\r\n  230 CONTINUE\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 250\r\n      DO 240 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      DO 240 JG = 1,3\r\n      G(IG,JG+3) = GI(IG4+JG)*TH*TH\r\n      G(IG+3,JG) = G(IG,JG+3)\r\n  240 CONTINUE\r\nC\r\nC     PREPARE THERMAL STRAINS FOR COMPOSITE ELEMENTS\r\nC\r\n  250 IF (.NOT.COMPOS) GO TO 270\r\n      DO 260 IR = 1,6\r\n      EPSUBT(IR) = WTSTIF*EPSLNT(IR)\r\n  260 CONTINUE\r\n      GO TO 370\r\nC\r\nC     CALCULATE THERMAL STRAINS FOR NON-COMPOSITE ELEMENTS\r\nC\r\n  270 IF (.NOT.MEMBRN) GO TO 290\r\n      DO 280 I = 1,3\r\n      TALFAM(I) = TBAR*ALFAM(I)\r\n  280 CONTINUE\r\nC\r\n  290 IF (.NOT.BENDNG) GO TO 350\r\n      IF (.NOT.TEMPP1) GO TO 310\r\n      DO 300 I = 1,3\r\n      TALFAB(I) = -TGRAD*ALFAB(I)\r\n  300 CONTINUE\r\n      GO TO 350\r\nC\r\n  310 IF (.NOT.TEMPP2) GO TO 330\r\n      DO 320 IG = 1,3\r\n      DO 320 JG = 1,3\r\n      G2(IG,JG) = G(IG+3,JG+3)\r\n  320 CONTINUE\r\nC\r\n      CALL INVERS (3,G2,3,GDUM,0,DETG2,ISNGG2,INDXG2)\r\n      CALL GMMATS (G2,3,3,0, THRMOM,3,1,0, TALFAB)\r\n      GO TO 350\r\nC\r\n  330 DO 340 I = 1,3\r\n      TALFAB(I) = 0.0\r\n  340 CONTINUE\r\nC\r\n  350 DO 360 I = 1,3\r\n      EPSUBT(I  ) = WTSTIF*TALFAM(I)\r\n      EPSUBT(I+3) = WTSTIF*TALFAB(I)\r\n  360 CONTINUE\r\nC\r\nC                                 T\r\nC     [P]  = [P]  + WTSTIF*[B] [G] [EPS]\r\nC        T      T                       T\r\nC\r\n  370 CALL GMMATS (G,6,6,0, EPSUBT,6,1,0, GEPSBT)\r\n      CALL GMMATS (BMATRX,6,NDOF,-1, GEPSBT,6,1,0, PT)\r\nC\r\n  400 CONTINUE\r\nC\r\nC     END OF MAIN INTEGRATION LOOP\r\nC\r\nC     PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC\r\n      DO 420 I = 1,NNODE\r\n      IPOINT = 9*(I-1)+1\r\n      CALL TRANSS (BGPDT(1,I),TBG)\r\n      CALL GMMATS (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT))\r\n  420 CONTINUE\r\nC\r\nC     TRANSFORM THE THERMAL LOAD VECTOR INTO THE INDIVIDUAL GLOBAL\r\nC     COORDINATE SYSTEMS OF EACH NODE.\r\nC\r\nC                 T\r\nC     [PT] = [TEG] [PT]\r\nC         G            E\r\nC\r\n      DO 430 I = 1,NNODE\r\n      CALL TLDRS  (OFFSET,I,TRANS,TMPTRN)\r\n      CALL GMMATS (TMPTRN,6,6,1, PT(1,I),6,1,0, PTG(1,I))\r\n  430 CONTINUE\r\nC\r\nC     ADD THE THERMAL LOAD VECTOR TO THE GLOBAL LOAD VECTOR WHICH\r\nC     RESIDES IN [LOADVC].\r\nC\r\n      DO 440 I = 1,NNODE\r\n      K = SIL(I) - 1\r\n      DO 440 J = 1,6\r\n      LOADVC(K+J) = LOADVC(K+J) + PTG(J,I)\r\n  440 CONTINUE\r\n      GO TO 600\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  500 WRITE  (NOUT,510)\r\n  510 FORMAT ('0*** SYSTEM FATAL ERROR.  APPROPRIATE COMPOSITE DATA ',\r\n     1        'NOT FOUND IN MODULE SSG1.')\r\n      GO TO 560\r\n  520 J = 224\r\n      GO TO 550\r\n  530 J = 225\r\n      NEST(2) = MCSID\r\n      GO TO 550\r\n  540 J = 226\r\n      NEST(2) = MID(3)\r\n  550 CALL MESAGE (30,J,NEST(1))\r\n  560 NOGO = 1\r\nC\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tmtogo.f",
    "content": "      SUBROUTINE TMTOGO (TOGO)\r\nC\r\nC     TO COMPUTE THE TIME (IN SECONDS) REMAINING\r\nC\r\n      INTEGER TBEGIN, TPROB,TNOW,TOGO\r\n      COMMON /SYSTEM/ XSYS(17),TMBEGN\r\n      COMMON /STIME / TPROB\r\nC\r\nC     GET PRESENT TIME\r\nC\r\n      CALL KLOCK (TNOW)\r\nC\r\nC     COMPUTE TIME TO GO\r\nC\r\n      TBEGIN = TMBEGN\r\n      TOGO = TPROB - (TNOW - TBEGIN)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tmtsio.f",
    "content": "      SUBROUTINE TMTSIO (*,DEBUG1)\r\nC\r\nC     TMTSIO TIME TESTS GINO AND THE PACK ROUTINES\r\nC\r\nC     COMMENT FORM G.CHAN/UNISYS   5/91\r\nC     BASICALLY THIS ROUTINE IS SAME AS TIMTS1.\r\nC\r\n      INTEGER         SYSBUF, OUTPUT, FILES(2), F1 , F2, BUF1  , BUF2  ,\r\n     1                END   , MCB(7), EOL     , EOR    , TYPE  , TYPIN1,\r\n     2                TYPOU1, TYPOU2, ABLK(15), BBLK(15),ZERO  , DEBUG1,\r\n     3                ISUBR(2)\r\n      REAL            X(1)  , Z(1)  , T(23)\r\n      DOUBLE  PRECISION       ZD    , XD\r\n      CHARACTER       UFM*23, UWM*25, UIM*29  , SFM*25\r\n      COMMON /XMSSG / UFM   , UWM   , UIM     , SFM\r\n      COMMON /NTIME / NITEMS, TGINO , TBLDPK  , TINTPK , TPACK ,\r\n     1                TUNPAK, TGETST, TPUTST  ,\r\n     2                TTLRSP, TTLRDP, TTLCSP  , TTLCDP ,\r\n     3                TLLRSP, TLLRDP, TLLCSP  , TLLCDP , TGETSB\r\n     *                      , RGINO , RBLDPK  , RINTPK , RPCK   ,\r\n     *                        RUNPAK, RGETST  , RPUTST\r\n      COMMON /SYSTEM/ SYSBUF, OUTPUT, IDUM(52), IPREC  , JDUM(21), ISY77\r\n      COMMON /GINOX / G(86) , IG(75), NBUFF3  , PU(226), IWR(75)\r\n      COMMON /ZBLPKX/ ZD(2),  IZ\r\n      COMMON /ZNTPKX/ XD(2),  IX    , EOL     , EOR\r\n      COMMON /PACKX / TYPIN1, TYPOU1, I1 , J1 , INCR1\r\n      COMMON /UNPAKX/ TYPOU2, I2, J2, INCR2\r\n      COMMON /ZZZZZZ/ A(1)\r\n      EQUIVALENCE     (ZD(1),Z(1)), (XD(1),X(1)), (T(1),TGINO)\r\n      DATA    FILES / 301, 304/, ZERO  / 0    /\r\n      DATA    I1000 / 1000    /, I1001 / 1001 /\r\n      DATA    ISUBR / 4HTMTS   , 4HIO  /\r\nC\r\nC\r\nC     CHECK KORSZ AND DUMMY SUBROUTINES HERE.\r\nC     IF NASTRAN SUBROUTINES WERE NOT COMPILED WITH STATIC OPTION, BUF1\r\nC     COULD BE NEGATIVE HERE.\r\nC     CALL DUMMY NEXT TO SEE WHETHER THE RIGHT DUMMY ROUTINE IS SET UP\r\nC     FOR THIS MACHINE\r\nC\r\n      KERR = 1\r\n      BUF1 = KORSZ(A)\r\n      IF (BUF1 .LE. 0) GO TO 930\r\n      IF (DEBUG1 .GT. 0) WRITE (OUTPUT,10)\r\n   10 FORMAT (' -LINK1 DEBUG- TMTSIO CALLINS DUMMY NEXT')\r\nCWKBD CALL DUMMY\r\nC\r\nC     NOTE - ISY77 (WHICH IS BULKDATA OPTION) AND TGINO DETERMINE TO\r\nC            SKIP TMTSIO AND TMTSLP OR NOT. DIAG 35 CAN NOT BE USED AT\r\nC            THIS POINT SINCE THE DIAG CARD HAS NOT BEEN READ YET.\r\nC\r\n      IF (TGINO.GT.0. .AND. ISY77.NE.-3) RETURN 1\r\nC\r\nC     INITIALIZE\r\nC\r\n      CALL PAGE1\r\n      WRITE  (OUTPUT,20)\r\n   20 FORMAT ('0*** USER INFORMATION MESSAGE 225, GINO TIME CONSTANTS ',\r\n     1        'ARE BEING COMPUTED', /5X,\r\n     2       '(SEE NASINFO FILE FOR ELIMINATION OF THESE COMPUTATIONS)')\r\n      IF (TGINO .GT. 0.) WRITE (OUTPUT,30) T\r\n   30 FORMAT ('0*** EXISTING TIME CONSTANTS IN /NTIME/ -',\r\n     1        /,2(/5X,9F8.3))\r\n      N = 50\r\n      M = N\r\n      TYPE = IPREC\r\nC     NITEMS = 23\r\nC\r\n      F1   = FILES(1)\r\n      F2   = FILES(2)\r\n      BUF1 = BUF1 - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      END  = N*M\r\n      IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR)\r\n      DO 40 I = 1,END\r\n      A(I) = I\r\n   40 CONTINUE\r\n      N10 = N*10\r\n      M10 = M/10\r\n      IF (M10 .LE. 0) M10 = 1\r\n      FN  = N\r\n      FM  = M\r\nC\r\nC     WRITE TEST\r\nC\r\n      IF (DEBUG1 .GT. 0) WRITE (OUTPUT,50) NBUFF3,IG\r\n   50 FORMAT (' -LINK1 DEBUG- OPEN OUTPUT FILE NEXT FOR WRITE. NBUFF3 ='\r\n     1,       I5, /5X,'GINO BUFADD 75 WORDS =', /,(2X,11I7))\r\n      CALL OPEN (*900,F1,A(BUF1),1)\r\n      IF (DEBUG1 .LE. 0) GO TO 60\r\n      WRITE  (OUTPUT,53) NBUFF3,IG\r\n   53 FORMAT (' -LINK1 DEBUG- FILE OPEN OK. NBUFF3 =',I5, /5X,\r\n     1        'GINO BUFADD 75 WORDS =', /,(2X,11I7))\r\n      WRITE  (OUTPUT,55) IWR(41)\r\n   55 FORMAT (5X,'RWFLG(41) =',I7, //,\r\n     1        ' -LINK1 DEBUG- CALLING SECOND NEXT')\r\n   60 CALL CPUTIM (T1,T1,1)\r\n      DO 70 I = 1,N\r\n      CALL WRITE (F1,A,M,1)\r\n   70 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      IF (DEBUG1 .GT. 0) WRITE (OUTPUT,80)\r\n   80 FORMAT (' -LINK1 DEBUG- CLOSE FILE NEXT')\r\n      CALL CLOSE  (F1,1)\r\n      IF (DEBUG1 .GT. 0) WRITE (OUTPUT,90)\r\n   90 FORMAT (' -LINK1 DEBUG- OPEN ANOTHER OUTPUT FILE NEXT FOR WRITE')\r\n      CALL OPEN   (*900,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 100 I = 1,N10\r\n      CALL WRITE (F2,A,M10,1)\r\n  100 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 610 TO IRET\r\n      GO TO 600\r\nC\r\nC     READ TEST\r\nC\r\n  110 IF (DEBUG1 .GT. 0) WRITE (OUTPUT,120)\r\n  120 FORMAT (' -LINK1 DEBUG- OPEN INPUT FILE NEXT FOR READ')\r\n      CALL OPEN (*900,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 130 I = 1,N\r\n      CALL READ (*910,*920,F1,A(I1000),M,1,FLAG)\r\n  130 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,2)\r\n      CALL OPEN   (*900,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 140 I = 1,N10\r\n      CALL READ (*910,*920,F2,A(I1000),M10,1,FLAG)\r\n  140 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,2)\r\n      ASSIGN 620 TO IRET\r\n      GO TO 600\r\nC\r\nC     BACKWARD READ TEST\r\nC\r\n  150 CONTINUE\r\n      CALL OPEN (*900,F1,A(BUF1),2)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 160 I = 1,N\r\n      CALL BCKREC (F1)\r\n      CALL READ   (*910,*920,F1,A(I1000),M,1,FLAG)\r\n      CALL BCKREC (F1)\r\n  160 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL OPEN   (*900,F2,A(BUF2),2)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 170 I = 1,N10\r\n      CALL BCKREC (F2)\r\n      CALL READ   (*910,*920,F2,A(I1000),M10,1,FLAG)\r\n      CALL BCKREC (F2)\r\n  170 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 630 TO IRET\r\n      GO TO 600\r\nC\r\nC     BLDPK TEST\r\nC\r\n  180 CONTINUE\r\n      CALL OPEN   (*900,F1,A(BUF1),1)\r\n      CALL MAKMCB (MCB,F1,M,2,TYPE)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 200 I = 1,N\r\n      CALL BLDPK (TYPE,TYPE,F1,0,0)\r\n      DO 190 J = 1,M\r\n      Z(1) = 1.0\r\n      IZ   = J\r\n      CALL ZBLPKI\r\n  190 CONTINUE\r\n      CALL BLDPKN (F1,0,MCB)\r\n  200 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F1,1)\r\n      CALL MAKMCB (MCB,F2,M10,2,TYPE)\r\n      CALL OPEN   (*900,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 220 I = 1,N10\r\n      CALL BLDPK (TYPE,TYPE,F2,0,0)\r\n      DO 210 J = 1,M10\r\n      Z(1) = 2.0\r\n      IZ   = J\r\n      CALL ZBLPKI\r\n  210 CONTINUE\r\n      CALL BLDPKN (F2,0,MCB)\r\n  220 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 640 TO IRET\r\n      GO TO 600\r\nC\r\nC     INTPK TEST\r\nC\r\n  230 CONTINUE\r\n      CALL OPEN   (*900,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 250 I = 1,N\r\n      CALL INTPK  (*910,F1,0,TYPE,0)\r\n      DO 240 J = 1,M\r\n      CALL ZNTPKI\r\n      IF (IX  .NE. J) GO TO 800\r\n      IF (EOL .EQ. 0) GO TO 240\r\n      IF (IX  .NE. M) GO TO 800\r\n  240 CONTINUE\r\n      IF (EOL .EQ. 0) GO TO 800\r\n  250 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      CALL OPEN   (*900,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 270 I = 1,N10\r\n      CALL INTPK (*910,F2,0,TYPE,0)\r\n      DO 260 J = 1,M10\r\n      CALL ZNTPKI\r\n      IF (IX  .NE. J) GO TO 800\r\n      IF (EOL .EQ. 0) GO TO 260\r\n      IF (IX  .NE. M10) GO TO 800\r\n  260 CONTINUE\r\n      IF (EOL .EQ. 0) GO TO 800\r\n  270 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 650 TO IRET\r\n      GO TO 600\r\nC\r\nC     PACK TEST\r\nC\r\n  280 CONTINUE\r\n      CALL MAKMCB (MCB,F1,M,2,TYPE)\r\n      TYPIN1 = TYPE\r\n      TYPOU1 = TYPE\r\n      I1     = 1\r\n      J1     = M\r\n      INCR1  = 1\r\n      MX     = M*TYPE\r\n      DO 290 I = 1,MX\r\n      A(I+1000) = I\r\n  290 CONTINUE\r\n      CALL OPEN (*900,F1,A(BUF1),1)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 300 I = 1,N\r\n      CALL PACK (A(I1001),F1,MCB)\r\n  300 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F1,1)\r\n      CALL MAKMCB (MCB,F2,M10,2,TYPE)\r\n      J1 = M10\r\n      CALL OPEN (*900,F2,A(BUF2),1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 310 I = 1,N10\r\n      CALL PACK (A(I1001),F2,MCB)\r\n  310 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 660 TO IRET\r\n      GO TO 600\r\nC\r\nC     UNPACK TEST\r\nC\r\n  320 CONTINUE\r\n      TYPOU2 = TYPE\r\n      I2     = 1\r\n      J2     = M\r\n      INCR2  = 1\r\n      CALL OPEN (*900,F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 330 I = 1,N\r\n      CALL UNPACK (*910,F1,A(I1001))\r\n  330 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\n      J2 = M10\r\n      CALL OPEN (*900,F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 340 I = 1,N10\r\n      CALL UNPACK (*910,F2,A(I1001))\r\n  340 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,2)\r\n      ASSIGN 670 TO IRET\r\n      GO TO 600\r\n  350 CONTINUE\r\nC\r\nC     PUTSTR TEST\r\nC\r\n      KERR    = 2\r\n      ABLK(1) = F1\r\n      ABLK(2) = TYPE\r\n      ABLK(3) = 1\r\n      CALL GOPEN (F1,A(BUF1),1)\r\n      NWDS = TYPE\r\n      IF (TYPE .EQ. 3) NWDS = 2\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 400 I = 1,N\r\n      ABLK(4) = 0\r\n      ABLK(8) = -1\r\n      DO 390 J = 1,10\r\n      NBRSTR  = M10\r\n  360 CALL PUTSTR (ABLK)\r\n      IF (NBRSTR .EQ. 0) GO TO 930\r\n      ABLK(7) = MIN0(ABLK(6),NBRSTR)\r\n      ABLK(4) = ABLK(4) + ABLK(7) + 4\r\n      MM      = ABLK(7)*NWDS\r\n      DO 370 K = 1,MM\r\n      X(1) = A(K)\r\n  370 CONTINUE\r\n      IF (ABLK(7) .EQ. NBRSTR) GO TO 380\r\n      CALL ENDPUT (ABLK)\r\n      NBRSTR = NBRSTR - ABLK(7)\r\n      GO TO 360\r\n  380 IF (J .EQ. 10) ABLK(8) = 1\r\n      CALL ENDPUT (ABLK)\r\n  390 CONTINUE\r\n  400 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE (F1,1)\r\n      M100 = MAX0(M10/10,1)\r\n      CALL GOPEN (F2,A(BUF2),1)\r\n      KERR    = 3\r\n      BBLK(1) = F2\r\n      BBLK(2) = TYPE\r\n      BBLK(3) = 1\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 450 I = 1,N10\r\n      BBLK(4) = 0\r\n      BBLK(8) =-1\r\n      DO 440 J = 1,10\r\n      NBRSTR = M100\r\n  410 CALL PUTSTR (BBLK)\r\n      IF (NBRSTR .EQ. 0) GO TO 930\r\n      BBLK(7) = MIN0(BBLK(6),NBRSTR)\r\n      BBLK(4) = BBLK(4) + BBLK(7) + 4\r\n      MM = BBLK(7)*NWDS\r\n      DO 420 K = 1,MM\r\n      X(1) = A(K)\r\n  420 CONTINUE\r\n      IF (BBLK(7) .EQ. NBRSTR) GO TO 430\r\n      NBRSTR = NBRSTR - BBLK(7)\r\n      GO TO 410\r\n  430 IF (J .EQ. 10) BBLK(8) = 1\r\n      CALL ENDPUT (BBLK)\r\n  440 CONTINUE\r\n  450 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 680 TO IRET\r\n      GO TO 600\r\nC\r\nC     GETSTR TEST (GET STRING FORWARD)\r\nC\r\n  460 CONTINUE\r\n      CALL GOPEN (F1,A(BUF1),0)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 490 I = 1,N\r\n      ABLK(8) = -1\r\n  470 CALL GETSTR (*490,ABLK)\r\n      MM = ABLK(6)*NWDS\r\n      DO 480 K = 1,MM\r\n      X(1) = A(K)\r\n  480 CONTINUE\r\n      CALL ENDGET (ABLK)\r\n      GO TO 470\r\n  490 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\nC     CALL CLOSE  (F1,1)\r\n      CALL GOPEN  (F2,A(BUF2),0)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 520 I = 1,N10\r\n      BBLK(8) = -1\r\n  500 CALL GETSTR (*520,BBLK)\r\n      MM = BBLK(6)*NWDS\r\n      DO 510 K = 1,MM\r\n      X(1) = A(K)\r\n  510 CONTINUE\r\n      CALL ENDGET (BBLK)\r\n      GO TO 500\r\n  520 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\nC     CALL CLOSE  (F2,1)\r\n      ASSIGN 690 TO IRET\r\n      GO TO 600\r\nC\r\nC     GETSTB TEST, (GET BACKWARD STRING)\r\nC     F1 AND F2 FILES ARE STILL OPENED, AND POSITIONED AT THE END\r\nC\r\n  530 CONTINUE\r\nC     CALL GOPEN (F1,A(BUF1),0)\r\nC     CALL REWIND (F1)\r\nC     CALL SKPFIL (F1,N+1)\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 560 I = 1,N\r\n      ABLK(8) = -1\r\n  540 CALL GETSTB (*560,ABLK)\r\n      MM = ABLK(6)*NWDS\r\n      DO 550 K = 1,MM\r\n      X(1) = A(K)\r\n  550 CONTINUE\r\n      CALL ENDGTB (ABLK)\r\n      GO TO 540\r\n  560 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      CALL CLOSE  (F1,1)\r\nC     CALL GOPEN  (F2,A(BUF2),0)\r\nC     CALL REWIND (F2)\r\nC     CALL SKPFIL (F2,N10+1)\r\n      CALL CPUTIM (T3,T3,1)\r\n      DO 590 I = 1,N10\r\n      BBLK(8) = -1\r\n  570 CALL GETSTB (*590,BBLK)\r\n      MM = BBLK(6)*NWDS\r\n      DO 580 K = 1,MM\r\n      X(1) = A(K)\r\n  580 CONTINUE\r\n      CALL ENDGTB (BBLK)\r\n      GO TO 570\r\n  590 CONTINUE\r\n      CALL CPUTIM (T4,T4,1)\r\n      CALL CLOSE  (F2,1)\r\n      ASSIGN 700 TO IRET\r\nC\r\nC     INTERNAL ROUTINE TO STORE TIMING DATA IN /NTIME/ COMMON BLOCK\r\nC\r\n  600 CONTINUE\r\n      TIME1  = T2 - T1\r\n      TIME2  = T4 - T3\r\n      TPRREC = 1.0E6*(TIME2 - TIME1)/(9.0*FN)\r\n      TPRWRD = (1.0E6*TIME1 - FN*TPRREC)/(FN*FM)\r\n      GO TO IRET, (610,620,630,640,650,660,670,680,690,700)\r\n  610 TGINO  = TPRWRD\r\n      RGINO = TPRREC\r\n      GO TO 110\r\n  620 TGINO  = TGINO + TPRWRD\r\n      RGINO  = RGINO + TPRREC\r\n      GO TO 150\r\n  630 TGINO  = TGINO + TPRWRD\r\n      TGINO  = TGINO/3.0\r\n      RGINO  = RGINO + TPRREC\r\n      RGINO  = RGINO/3.0\r\n      GO TO 180\r\n  640 TBLDPK = TPRWRD\r\n      RBLDPK = TPRREC\r\n      GO TO 230\r\n  650 TINTPK = TPRWRD\r\n      RINTPK = TPRREC\r\n      GO TO 280\r\n  660 TPACK  = TPRWRD\r\n      RPACK  = TPRREC\r\n      GO TO 320\r\n  670 TUNPAK = TPRWRD\r\n      RUNPAK = TPRREC\r\n      GO TO 350\r\n  680 TPUTST = TPRWRD\r\n      RPUTST = TPRREC\r\n      GO TO 460\r\n  690 TGETST = TPRWRD\r\n      RGETST = TPRREC\r\n      GO TO 530\r\n  700 TGETSB = TPRWRD\r\n      IF (DEBUG1 .GT. 0) WRITE (OUTPUT,710)\r\n  710 FORMAT (' -LINK1 DEBUG- TMTSIO FINISHED')\r\n      RETURN\r\nC\r\nC     INTERNAL ROUTINE CALLED FOR AN ABORT IN THE INTPK TEST\r\nC\r\n  800 WRITE  (OUTPUT,810) SFM\r\n  810 FORMAT (A25,' 2197, ABORT CALLED DURING TIME TEST OF INTPK')\r\nC\r\nC     ABNORMAL RETURNS FROM GINO - ALL FATAL ERRORS\r\nC\r\n  900 CONTINUE\r\n  910 CONTINUE\r\n  920 CALL MESAGE (-61,0,0)\r\n  930 WRITE  (OUTPUT,940) KERR\r\n  940 FORMAT ('0*** TMTSIO FATAL ERROR',I7)\r\n      GO TO 920\r\n      END\r\n"
  },
  {
    "path": "mis/tmtslp.f",
    "content": "      SUBROUTINE TMTSLP\r\nC\r\nC     TMTSLP TIME TESTS CPU TIMES FOR VARIOUS TYPES OF LOOPS\r\nC\r\nC     COMMENT FROM G.CHAN/UNISYS   5/91\r\nC     BASICALLY THIS ROUTINE IS SAME AS TIMTS2\r\nC\r\nC     IF ALL TIMING CONSTANTS ARE ZEROS (OR 0.001) SYSTEM HAS A WRONG\r\nC     CPUTIM.MDS SUBROUTINE. MOST LIKELY THE CPUTIM.MIS IS BEING USED.\r\nC\r\n      INTEGER          SYSBUF,BUF1,BUF2,END,END2,END4,TYPE,ISUBR(2)\r\n      REAL             B(1),C(1),D(1),E(16)\r\n      COMPLEX          AC(1),BC(1),CC(1),DC(1),ADNC\r\n      DOUBLE PRECISION ADND,AD(1),BD(1),CD(1),DD(1)\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /NTIME /  NITEMS,TGINO ,TBLDPK,TINTPK,TPACK ,\r\n     1                 TUNPAK,TGETST,TPUTST,\r\n     2                 TTLRSP,TTLRDP,TTLCSP,TTLCDP,\r\n     3                 TLLRSP,TLLRDP,TLLCSP,TLLCDP,TGETSB\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,SKIP(74),ISY77\r\n      COMMON /ZZZZZZ/  A(1)\r\n      EQUIVALENCE      (A(1),AC(1),AD(1),B(1),BC(1),BD(1),C(1),CC(1),\r\n     1                 CD(1),D(1),DC(1),DD(1)),    (E(1),TGINO)\r\n      DATA    ISUBR /  4HTMTS, 4HLP  /\r\nC\r\nC     INITIALIZE\r\nC     DOUBLE N SIZE SINCE VAX (AND UNIX) CLOCK MAY NOT TICK FAST ENOUGH\r\nC\r\n      N = 50\r\n      IF (MACH .GE. 5) N = 100\r\n      M = N\r\nC\r\n      BUF1 = KORSZ(A) - SYSBUF\r\n      BUF2 = BUF1 - SYSBUF\r\n      END  = N*M\r\n      IF (END .GE. BUF1-1) CALL MESAGE (-8,0,ISUBR)\r\nC\r\nC     CPU TIME TESTS\r\nC\r\n      ASQ  = M + N\r\n      ADNO = 1/(ASQ*ASQ)\r\n      ADND = ADNO\r\n      ADNC = CMPLX(ADNO,ADNO)\r\n      END2 = END/2\r\n      END4 = END/4\r\n      DO 420 TYPE = 1,4\r\n      GO TO (10,90,170,250), TYPE\r\nC\r\nC     REAL CPU TIME TESTS\r\nC\r\n   10 CONTINUE\r\nC\r\n      IF (M.GT.END .OR. N.GT.END) CALL MESAGE (-8,0,ISUBR)\r\n      DO 20 I = 1,END\r\n   20 A(I) = ADNO\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 40 I = 1,N\r\n      DO 30 J = 1,M\r\n      D(J) = A(J)*B(J) + C(J)\r\n   30 CONTINUE\r\n   40 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 340 TO IRET\r\n      GO TO 330\r\n   50 CONTINUE\r\nC\r\n      DO 60 I = 1,END\r\n   60 A(I) = ADNO\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 80 I = 1,N\r\n      DO 70 J = 1,M\r\n      L = I + J - 1\r\n      D(J) = A(I)*B(L) + C(J)\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 350 TO IRET\r\n      GO TO 330\r\nC\r\nC     DOUBLE PRECISION TESTS\r\nC\r\n   90 CONTINUE\r\nC\r\n      IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (-8,0,ISUBR)\r\n      DO 100 I = 1,END2\r\n  100 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 120 I = 1,N\r\n      DO 110 J = 1,M\r\n      DD(J) = AD(J)*BD(J) + CD(J)\r\n  110 CONTINUE\r\n  120 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 360 TO IRET\r\n      GO TO 330\r\n  130 CONTINUE\r\nC\r\n      DO 140 I = 1,END2\r\n  140 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 160 I = 1,N\r\n      DO 150 J = 1,M\r\n      L = I + J - 1\r\n      DD(J) = AD(I)*BD(L) + CD(J)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 370 TO IRET\r\n      GO TO 330\r\nC\r\nC     COMPLEX SINGLE PRECISION TESTS\r\nC\r\n  170 CONTINUE\r\nC\r\n      IF (M.GT.END2 .OR. N.GT.END2) CALL MESAGE (-8,0,ISUBR)\r\n      DO 180 I = 1,END2\r\n  180 AC(I) = ADNC\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 200 I = 1,N\r\n      DO 190 J = 1,M\r\n      DC(J) = AC(J)*BC(J) + CC(J)\r\n  190 CONTINUE\r\n  200 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 380 TO IRET\r\n      GO TO 330\r\n  210 CONTINUE\r\nC\r\n      DO 220 I = 1,END2\r\n  220 AC(I) = ADNC\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 240 I = 1,N\r\n      DO 230 J = 1,M\r\n      L = I + J - 1\r\n      DC(J) = AC(I)*BC(L) + CC(J)\r\n  230 CONTINUE\r\n  240 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 390 TO IRET\r\n      GO TO 330\r\nC\r\nC     DOUBLE PRECISION COMPLEX TESTS\r\nC\r\n  250 CONTINUE\r\nC\r\n      IF (M.GT.END4 .OR. N.GT.END4) CALL MESAGE (-8,0,ISUBR)\r\n      DO 260 I = 1,END2\r\n  260 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 280 I = 1,N\r\n      DO 270 J = 1,M\r\nC\r\nC     D(J) AND D(J+1) CALCULATIONS WERE REVERSED\r\nC     IN ORDER TO COUNTERACT THE ITERATIVE BUILD UP\r\nC\r\n      DD(J+1) = AD(J)*BD(J  ) - AD(J+1)*BD(J+1) + CD(J  )\r\n      DD(J  ) = AD(J)*BD(J+1) + AD(J+1)*BD(J  ) + CD(J+1)\r\n  270 CONTINUE\r\n  280 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 400 TO IRET\r\n      GO TO 330\r\n  290 CONTINUE\r\nC\r\n      DO 300 I = 1,END2\r\n  300 AD(I) = ADND\r\n      CALL CPUTIM (T1,T1,1)\r\n      DO 320 I = 1,N\r\n      DO 310 J = 1,M\r\n      L = I + J - 1\r\n      DD(J  ) = AD(I)*BD(L  ) - AD(I+1)*BD(L+1) + CD(J  )\r\n      DD(J+1) = AD(I)*BD(L+1) + AD(I+1)*BD(L  ) + CD(J+1)\r\n  310 CONTINUE\r\n  320 CONTINUE\r\n      CALL CPUTIM (T2,T2,1)\r\n      ASSIGN 410 TO IRET\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO STORE TIMING DATA IN /NTIME/ COMMON BLOCK\r\nC\r\n  330 TIME = T2 - T1\r\n      ITOT = M*N\r\n      TPEROP = 1.0E6*TIME/ITOT\r\n      GO TO IRET, (340,350,360,370,380,390,400,410)\r\n  340 TTLRSP = TPEROP\r\n      GO TO 50\r\n  350 TLLRSP = TPEROP\r\n      GO TO 420\r\n  360 TTLRDP = TPEROP\r\n      GO TO 130\r\n  370 TLLRDP = TPEROP\r\n      GO TO 420\r\n  380 TTLCSP = TPEROP\r\n      GO TO 210\r\n  390 TLLCSP = TPEROP\r\n      GO TO 420\r\n  400 TTLCDP = TPEROP\r\n      GO TO 290\r\n  410 TLLCDP = TPEROP\r\n  420 CONTINUE\r\nC\r\nC     MAKE SURE ALL TIME CONTSTANTS ARE OK\r\nC\r\n      DO 430 I = 1,NITEMS\r\n      IF (ISY77.EQ.-3 .AND. E(I).LT.0.001) E(I) = 0.001\r\n      IF (ISY77.NE.-3 .AND. E(I).LT.1.E-7) E(I) = 1.E-7\r\n  430 CONTINUE\r\n      IF (ISY77 .NE. -3) GO TO 460\r\n      WRITE  (NOUT,440) NITEMS,NITEMS,E\r\n  440 FORMAT ('0*** NASTRAN SYSTEM MESSAGE. IF THESE',I4,' NEW TIMING',\r\n     1   ' CONSTANTS ARE HARD-CODED INTO THE LABEL COMMON /NTIME/ OF',\r\n     2   /5X, 'SUBROUTINE SEMDBD, COMPILE, AND RE-LINKE LINK 1, THE ',\r\n     3   'COMPUTATIONS OF THESE CONSTANTS IN ALL NASTRAN JOBS WILL',/5X,\r\n     4   'BE ELIMINATED.',  /5X,'OR TO ACCOMPLISH THE SAME RESULT, ',\r\n     5   'EDIT THE TIM-LINE IN THE NASINFO FILE TO INCLUDE THESE',I4,\r\n     6   ' NEW',/5X,'TIMING CONSTANTS', //5X,9F8.3, /5X,7F8.3,//)\r\n      CALL PEXIT\r\n  460 CALL SSWTCH (35,J)\r\n      IF (J .NE. 0) CALL TMTSOT\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tmtsot.f",
    "content": "      SUBROUTINE TMTSOT\r\nC\r\nC     THIS SUBROUTINE PRINTS THE CONTENTS OF COMMON /NTIME/\r\nC\r\n      COMMON /NTIME / NITEMS, TGINO , TBLDPK, TINTPK, TPACK ,\r\n     1                        TUNPAK, TGETST, TPUTST,\r\n     2                        TTLRSP, TTLRDP, TTLCSP, TTLCDP,\r\n     3                        TLLRSP, TLLRDP, TLLCSP, TLLCDP,\r\n     4                        TGETSB\r\n     *                      , RGINO , RBLDPK  , RINTPK , RPACK  ,\r\n     *                        RUNPAK, RGETST  , RPUTST\r\n      COMMON /SYSTEM/ ISYSBF, NOUT  , DUMMY(74)     , ISY77\r\nC\r\n      WRITE (NOUT,2000) NITEMS\r\n      WRITE (NOUT,2010) TGINO\r\n      WRITE (NOUT,2020) TBLDPK\r\n      WRITE (NOUT,2030) TINTPK\r\n      WRITE (NOUT,2040) TPACK\r\n      WRITE (NOUT,2050) TUNPAK\r\n      WRITE (NOUT,2060) TGETST\r\n      WRITE (NOUT,2070) TPUTST\r\n      WRITE (NOUT,2080) TTLRSP\r\n      WRITE (NOUT,2090) TTLRDP\r\n      WRITE (NOUT,2100) TTLCSP\r\n      WRITE (NOUT,2110) TTLCDP\r\n      WRITE (NOUT,2120) TLLRSP\r\n      WRITE (NOUT,2130) TLLRDP\r\n      WRITE (NOUT,2140) TLLCSP\r\n      WRITE (NOUT,2150) TLLCDP\r\n      WRITE (NOUT,2160) TGETSB\r\n      WRITE (NOUT,2210) RGINO\r\n      WRITE (NOUT,2220) RBLDPK\r\n      WRITE (NOUT,2230) RINTPK\r\n      WRITE (NOUT,2240) RPACK\r\n      WRITE (NOUT,2250) RUNPAK\r\n      WRITE (NOUT,2260) RGETST\r\n      WRITE (NOUT,2270) RPUTST\r\n      IF (ISY77 .NE. -3) WRITE (NOUT,2200)\r\n      RETURN\r\n 2000 FORMAT (1H1,23X,\r\n     1        ' DIAG 35 OUTPUT OF TIMING CONSTANTS IN COMMON /NTIME/'/\r\n     2            24X,\r\n     3        ' ----------------------------------------------------'//\r\n     4        ' NUMBER OF TIMING CONSTANTS IN COMMON /NTIME/   ',\r\n     5        '                         --- ', I11                   / )\r\n 2010 FORMAT (' READ + WRITE + BACKWARD READ                   ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2020 FORMAT (' BLDPK  - PACK   SUCCESSIVE ELEMENTS OF A COLUMN',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2030 FORMAT (' INTPK  - UNPACK SUCCESSIVE ELEMENTS OF A COLUMN',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2040 FORMAT (' PACK   - PACK   AN ENTIRE COLUMN               ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2050 FORMAT (' UNPACK - UNPACK AN ENTIRE COLUMN               ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2060 FORMAT (' GETSTR - FORWARD READ  A STRING OF DATA        ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2070 FORMAT (' PUTSTR - WRITE A STRING OF DATA                ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2080 FORMAT (' TIGHT-LOOP MULTIPLY - REAL    SINGLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2090 FORMAT (' TIGHT-LOOP MULTIPLY - REAL    DOUBLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2100 FORMAT (' TIGHT-LOOP MULTIPLY - COMPLEX SINGLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2110 FORMAT (' TIGHT-LOOP MULTIPLY - COMPLEX DOUBLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2120 FORMAT (' LOOSE-LOOP MULTIPLY - REAL    SINGLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2130 FORMAT (' LOOSE-LOOP MULTIPLY - REAL    DOUBLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2140 FORMAT (' LOOSE-LOOP MULTIPLY - COMPLEX SINGLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2150 FORMAT (' LOOSE-LOOP MULTIPLY - COMPLEX DOUBLE PRECISION ',\r\n     1        ' (AVERAGE PER OPERATION) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2160 FORMAT (' GETSTB - BACKWARD READ  A STRING OF DATA       ',\r\n     1        ' (AVERAGE PER WORD     ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2200 FORMAT ('0*** NASTRAN INFORMATION MESSAGE, TO INCORPORATE THESE ',\r\n     1        'TIMING CONSTANTS INTO NASTRAN PERMANENTLY', /5X,\r\n     2        'RE-RUN JOB WITH ''NASTRAN BULKDATA=-3'' FOR MORE ',\r\n     3        'INSTRUCTIONS',/)\r\n 2210 FORMAT (' READ + WRITE + BACKWARD READ                   ',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2220 FORMAT (' BLDPK  - PACK   SUCCESSIVE ELEMENTS OF A COLUMN',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2230 FORMAT (' INTPK    UNPACK SUCCESSIVE ELEMENTS OF A COLUMN',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2240 FORMAT (' PACK   - PACK   AN ENTIRE COLUMN               ',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2250 FORMAT (' UNPACK - UNPACK AN ENTIRE COLUMN               ',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2260 FORMAT (' GETSTR - READ  A STRING OF DATA                ',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n 2270 FORMAT (' PUTSTR - WRITE A STRING OF DATA                ',\r\n     *        ' (AVERAGE PER RECORD   ) --- ', E11.4, ' MICROSECONDS'/ )\r\n      END\r\n"
  },
  {
    "path": "mis/tordrd.f",
    "content": "      SUBROUTINE TORDRD\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS MATRIX AND THE MASS MATRIX\r\nC     FOR AN AXI-SYMMETRIC TORDIDAL THIN SHELL RING\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS  SUBROUTINE USES ROUTINES  ROMBDK , DMATRX\r\nC\r\nC\r\nC*****\r\nC\r\nC                        ECPT FOR THE TOROIDAL RING\r\nC\r\nC                                                       TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                         I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A              I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B              I\r\nC ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A             R\r\nC ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED)   R\r\nC ECPT( 6) MATERIAL ORIENTATION (NOT USED)                R\r\nC ECPT( 7) MATERIAL IDENTIFICATION                        I\r\nC ECPT( 8) MEMBRANE THICKNESS                             R\r\nC ECPT( 9) FLEXURE THICKNESS                              R\r\nC ECPT(10) COOR. SYS. ID. FOR GRID POINT A                I\r\nC ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(14) COOR. SYS. ID. FOR GRID POINT B                I\r\nC ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES        R\r\nC\r\nC*****\r\nC\r\n      DOUBLE PRECISION CONSTD\r\n      DIMENSION  IECPT(18),        ICS(2)\r\n      REAL ECPT(17)\r\n      DOUBLE PRECISION\r\n     X   AM(144),GAMBQF(72),GAMBQM(48),EE(4),AK(144),GAMRS(144),AKI(36),\r\n     X         DELINT(66),D(144),R(2),Z(2),KOUT(144),GAMBQ(144)\r\n      DOUBLE PRECISION A1,A2,AKM(36),MOUT(144)\r\n      DOUBLE PRECISION TWOPI,DEGRAD,PHIB,RP,S,SINA1,\r\n     X                 SINA2,COSA1,COSA2,R1,R2,Z1,Z2,EP,ET,VPT,VTP,DEL,\r\n     X                 DJP1\r\n      INTEGER  DICT (9),ELID,ESTID\r\n      LOGICAL  NOGO,HEAT\r\nC\r\nC\r\n      COMMON /CONDAD/ CONSTD(5)\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC        ,MATFLG\r\n     2,                  ELTEMP        ,STRESS\r\n     3,                  SINTH         ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)          ,ANU(3)\r\n     2,                  RHO           ,G(3)\r\n     3,                  ALF(3)        ,TZERO,    GSUBE\r\n      COMMON  /SYSTEM/ KSYSTM(55),HEAT\r\nC\r\n      COMMON  /EMGPRM/ DUM(15), ISMB(3),IPREC,NOGO,IHEAT\r\n      COMMON  /EMGDIC/ IDM, LDICT,NGRIDS, ELID,ESTID\r\nC\r\n      COMMON  /EMGEST/ IDEL,IGP(2),ALPH(2),OM,MATID,TM,TF,ICS1,\r\n     X                 XYZ(3),ICS2,XYZ2(3),TEMPE\r\nC\r\n      EQUIVALENCE (DICT5,DICT(5))\r\n      EQUIVALENCE (IECPT(1),ECPT(1),IDEL)\r\n      EQUIVALENCE ( CONSTD(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTD(4) , DEGRAD )\r\n      EQUIVALENCE        (GAMBQF(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMBQM(1), GAMBQ(73))\r\n      EQUIVALENCE        (DELINT(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMRS(1),  GAMBQ(1))\r\n      EQUIVALENCE (R1,R(1)),(R2,R(2)),(Z1,Z(1)),(Z2,Z(2))\r\nC\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC     SET UP THE DICT ARRAY\r\nC\r\n      IPR= IPREC\r\n      DICT(1) = ESTID\r\n      DICT(3) = 12\r\n      DICT(4) = 63\r\n      ICS(1)= IECPT(10)\r\n      ICS(2)= IECPT(14)\r\n      R(1) = ECPT(11)\r\n      D1   = ECPT(12)\r\n      Z(1) = ECPT(13)\r\n      R(2) = ECPT(15)\r\n      D2   = ECPT(16)\r\n      Z(2) = ECPT(17)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      IF (R1 .LT. 0. .OR. R2 .LT. 0.) GO TO 7770\r\n      IF (D1 .NE. 0. .OR. D2 .NE. 0.) GO TO 7770\r\nC\r\nC\r\nC DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING\r\nC\r\n      ITORD = 0\r\n      IF (ABS(ALPH(1) - ALPH(2)) .LE. 1.E-6)  ITORD = 1\r\n      IF (ITORD .EQ. 1 .AND. ABS(ALPH(1)-90.) .LE. 1.E-5) ITORD=-1\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      A1 = DBLE(ALPH(1)) * DEGRAD\r\n      A2 = DBLE(ALPH(2)) * DEGRAD\r\n      PHIB = A2 - A1\r\n      SINA1 =  DSIN(A1)\r\n      COSA1 =  DCOS(A1)\r\n      SINA2 =  DSIN(A2)\r\n      COSA2 =  DCOS(A2)\r\nC\r\n      IF (ITORD .NE. 0) GO TO 100\r\nC\r\nC FOR THE TOROIDAL RING\r\nC\r\n      RP = DSQRT((R2-R1)**2  + (Z2-Z1)**2) /(2.D0*DSIN(PHIB/2.D0))\r\n      S  = PHIB * RP\r\n      GO TO 110\r\nC\r\nC  FOR THE CONICAL OR CYLINDRICAL RING\r\nC\r\n  100 RP = 0.D0\r\n      S  = DSQRT((R2-R1)**2  +  (Z2-Z1)**2)\r\nC\r\nC  COMPUTE THE BASIC AND REQUIRED INTEGRALS\r\nC\r\nC  SET UP THE ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE\r\nC\r\n  110 D(21) = 0.D0\r\n      D(22) = RP\r\n      D(23) = R1\r\n      D(24) = COSA1\r\n      D(25) = SINA1\r\nC\r\nC COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS\r\nC\r\n      D(30) = R1 - RP * SINA1\r\n      D(31) = RP * COSA1\r\n      D(32) = RP * SINA1\r\n      D(33) = COSA1 ** 2\r\n      D(34) = SINA1 * COSA1\r\n      D(35) = SINA1 ** 2\r\n      D(36) = 0.5 - D(35)\r\nC\r\nC START LOOP  FOR CALCULATIONS OF INTEGRALS\r\nC\r\n      DO  260 JP1=1,11\r\n      J = JP1 - 1\r\n      K = (J * 6) + 1\r\n      DJP1 = JP1\r\nC\r\nC TEST FOR ELEMENT SHAPE\r\nC\r\n      IF (ITORD) 240,120,170\r\nC\r\nC THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1),...,D(6)\r\nC\r\n  120 D(20) = (RP** JP1)\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = D(20) * (PHIB ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = (PHIB**(JP1+1))/ (DJP1 + 1.)\r\n      D(10)= 1.\r\n      DO  130 I=1,20\r\n      IP = JP1 + 2 * I + 1\r\n      D(11) = 2 * I + 1\r\n      D(10)= D(10)*D(11)*(D(11)-1.)\r\n      D(12)= (-1.)**I * PHIB**IP/((DJP1+D(11))*D(10))\r\n      D(13) =  DABS (D(12)/D(2))\r\n      D(2) = D(2)+ D(12)\r\n      IF (D(13) .LE. 1.D-10) GO TO 140\r\n  130 CONTINUE\r\n      GO TO 7780\r\n  140 D(2) = D(20)*D(2)\r\nC\r\nC COMPUTE I(J,3)\r\nC\r\n      D(3) = (PHIB ** JP1) / DJP1\r\n      D(10) = 1.\r\n      DO 150 I=1,20\r\n      IP = JP1 + 2 * I\r\n      D(11) = 2 * I\r\n      D(10) = D(10)*D(11)*(D(11)-1.)\r\n      D(12) = (-1.)**I  * PHIB**IP/((DJP1+D(11)) *D(10))\r\n      D(13) = DABS (D(12)/D(3))\r\n      D(3)  =  D(3) + D(12)\r\n      IF (D(13) .LE. 1.D-10) GO TO 160\r\n  150 CONTINUE\r\n      GO TO 7780\r\n  160 CONTINUE\r\n      D(3) = D(20) * D(3)\r\n      D(26) = DJP1\r\nC\r\nC COMPUTE I(J,4)\r\nC\r\n      CALL ROMBDK (PHIB,D(10),IP, D(4),1,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(4) = D(20) * D(4)\r\nC\r\nC COMPUTE I(J,5)\r\nC\r\n      CALL ROMBDK (PHIB,D(10),IP,D(5),2,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(5) = D(20) * D(5)\r\nC\r\nC COMPUTE I(J,6)\r\nC\r\n      CALL ROMBDK (PHIB,D(10),IP,D(6),3,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(6) = D(20) * D(6)\r\nC\r\nC THE TOROIDAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3)\r\n      DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3)\r\n      DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6)\r\n      DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2)\r\n      DELINT(K+4) = D(34) * (D(6)-D(4))  + D(36) * D(5)\r\n      DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4)\r\n      GO TO 250\r\nC\r\nC THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n  170 D(1) = (S **JP1)/DJP1\r\n      IF (J-1) 180,190,200\r\nC\r\nC   COMPUTE  I(0,2)\r\nC\r\n  180 D(2) = DLOG(( R1+ S*COSA1)/R1)/COSA1\r\n      GO TO 230\r\nC\r\nC    COMPUTE I(1,2)\r\nC\r\n  190 D(2) = (S- (R1/COSA1) * DLOG((R1+S*COSA1)/R1)) /COSA1\r\n      GO TO 230\r\nC\r\nC    COMPUTE I(J,2) WHERE J .GT.1\r\nC\r\n  200 D(2) =1./DJP1\r\n      D(10)=  -S*COSA1/R1\r\n      DO  210 I= 1,1000\r\n      D(11) = JP1 + I\r\n      D(12) = (D(10) ** I) / D(11)\r\n      D(2) = D(2) + D(12)\r\n      IF (D(12) .LT.  1.D-4)  GO TO 220\r\n  210 CONTINUE\r\n      GO TO 7780\r\n  220 D(2)=  ((S**JP1)/R1)* D(2)\r\nC\r\nC THE CONICAL RING REQUIRED INTEGRALS\r\nC\r\n  230 DELINT(K  ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = COSA1 * D(1)\r\n      DELINT(K+4) = D(34) * D(2)\r\n      DELINT(K+5) = D(33) * D(2)\r\n      GO TO 250\r\nC\r\nC THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n  240 D(1) = (S**JP1)/DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = D(1) / R1\r\nC\r\nC THE CYLINDRICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) =  R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = 0.\r\n      DELINT(K+4) = 0.\r\n      DELINT(K+5) = 0.\r\nC\r\n  250 CONTINUE\r\nC\r\n  260 CONTINUE\r\nC\r\nC   IF STIFFNESS MATRIX NOT REQUIRED  GO TO MASS ROUTINE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT(IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      EP = E(1)\r\n      ET = E(2)\r\n      VPT= ANU(1)\r\n      VTP= VPT * ET / EP\r\n      DEL = 1. - VPT*VTP\r\n      DICT5 = G SUBE\r\nC\r\nC\r\nC GENERATE THE ELASTIC CONSTANTS MATRIX(2X2)\r\nC\r\n      EE(1) = EP / DEL\r\n      EE(2) = ET * VPT / DEL\r\n      EE(3) = EE(2)\r\n      EE(4) = ET / DEL\r\nC\r\nC\r\nC FORM THE STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\nC COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE\r\nC\r\n      D(1) = EP / ET\r\n      D(7) = 0.\r\n      IF (ITORD .EQ. 0) D(7) = 1./RP\r\n      D(2) = D(1) * D(7)\r\n      D(3) = D(2) * D(7)\r\n      D(4) = VPT * D(7)\r\n      D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI\r\n      D(6) = (EP*TF**3)/(12.*(D(1)-VPT**2))*TWOPI\r\nC\r\nC CALL THE DMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10)\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN DMATRX ROUTINE.\r\nC\r\n      IF (ISMB(1) .EQ.  0) GO TO 270\r\n      CALL DMATRX (AK(1),VPT,D(1),D(2),D(3),D(4),D(5),D(6),DELINT(1))\r\n  270 IF (ISMB(2) .EQ. 0)  GO TO 279\r\n      DO 275 I=1,100\r\n  275 AM(I) = 0.\r\n      AM(  1) = DELINT( 1)\r\n      AM(  2) = DELINT( 7)\r\n      AM(  3) = DELINT(13)\r\n      AM(  4) = DELINT(19)\r\n      AM( 11) = DELINT( 7)\r\n      AM( 12) = DELINT(13)\r\n      AM( 13) = DELINT(19)\r\n      AM( 14) = DELINT(25)\r\n      AM( 21) = DELINT(13)\r\n      AM( 22) = DELINT(19)\r\n      AM( 23) = DELINT(25)\r\n      AM( 24) = DELINT(31)\r\n      AM( 31) = DELINT(19)\r\n      AM( 32) = DELINT(25)\r\n      AM( 33) = DELINT(31)\r\n      AM( 34) = DELINT(37)\r\n      AM( 45) = DELINT( 1)\r\n      AM( 46) = DELINT( 7)\r\n      AM( 47) = DELINT(13)\r\n      AM( 48) = DELINT(19)\r\n      AM( 49) = DELINT(25)\r\n      AM( 50) = DELINT(31)\r\n      AM( 55) = DELINT( 7)\r\n      AM( 56) = DELINT(13)\r\n      AM( 57) = DELINT(19)\r\n      AM( 58) = DELINT(25)\r\n      AM( 59) = DELINT(31)\r\n      AM( 60) = DELINT(37)\r\n      AM( 65) = DELINT(13)\r\n      AM( 66) = DELINT(19)\r\n      AM( 67) = DELINT(25)\r\n      AM( 68) = DELINT(31)\r\n      AM( 69) = DELINT(37)\r\n      AM( 70) = DELINT(43)\r\n      AM( 75) = DELINT(19)\r\n      AM( 76) = DELINT(25)\r\n      AM( 77) = DELINT(31)\r\n      AM( 78) = DELINT(37)\r\n      AM( 79) = DELINT(43)\r\n      AM( 80) = DELINT(49)\r\n      AM( 85) = DELINT(25)\r\n      AM( 86) = DELINT(31)\r\n      AM( 87) = DELINT(37)\r\n      AM( 88) = DELINT(43)\r\n      AM( 89) = DELINT(49)\r\n      AM( 90) = DELINT(55)\r\n      AM( 95) = DELINT(31)\r\n      AM( 96) = DELINT(37)\r\n      AM( 97) = DELINT(43)\r\n      AM( 98) = DELINT(49)\r\n      AM( 99) = DELINT(55)\r\n      AM(100) = DELINT(61)\r\nC\r\n      D(1) = TWO PI * RHO * TM\r\n      DO  278  I=1,100\r\n  278 AM(I)= D(1) * AM(I)\r\n  279 CONTINUE\r\nC\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 280 I=1,72\r\n  280 GAMBQF(I)=0.\r\n      D(1) = S\r\n      D(2) = S ** 2\r\n      D(3) = S ** 3\r\n      D(4) = S ** 4\r\n      D(5) = S ** 5\r\n      GAMBQF(3) = 1.\r\n      GAMBQF(16)= 1.\r\n      GAMBQF(30)= .5\r\n      GAMBQF(39)=-10./D(3)\r\n      GAMBQF(40)= -6./D(2)\r\n      GAMBQF(42)= -1.5/D(1)\r\n      GAMBQF(45) = -GAMBQF(39)\r\n      GAMBQF(46) = -4./D(2)\r\n      GAMBQF(48) =  .5/D(1)\r\n      GAMBQF(51) = 15./D(4)\r\n      GAMBQF(52) =  8./D(3)\r\n      GAMBQF(54) = 1.5/D(2)\r\n      GAMBQF(57) = -GAMBQF(51)\r\n      GAMBQF(58) =  7./D(3)\r\n      GAMBQF(60) = -1./D(2)\r\n      GAMBQF(63) = -6./D(5)\r\n      GAMBQF(64) = -3./D(4)\r\n      GAMBQF(66) = -.5/D(3)\r\n      GAMBQF(69) = -GAMBQF(63)\r\n      GAMBQF(70) =  GAMBQF(64)\r\n      GAMBQF(72) = -GAMBQF(66)\r\n      DO 290 I=1,48\r\n  290 GAMBQM(I) = 0.\r\n      GAMBQM(1) = 1.\r\n      GAMBQM(17)= 1.\r\n      GAMBQM(25)=  -3./D(2)\r\n      GAMBQM(29) = -2./D(1)\r\n      GAMBQM(31)= -GAMBQM(25)\r\n      GAMBQM(35) = -1./D(1)\r\n      GAMBQM(37) = 2./D(3)\r\n      GAMBQM(41) = 1./D(2)\r\n      GAMBQM(43) = -GAMBQM(37)\r\n      GAMBQM(47) =  GAMBQM(41)\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      IF(ISMB(1).EQ. 0) GO TO 295\r\n      CALL GMMATD (GAMBQ(1),10,12,1,  AK(1),10,10,0, D(1))\r\n      CALL GMMATD (D(1), 12,10,0, GAMBQ(1), 10,12,0, AK(1))\r\n  295 IF (ISMB(2).EQ.0)  GO TO 299\r\nC     REARRANGE GAMBQ FOR MASS MATRIX CALCULATIONS\r\n      DO 296 I=1,72\r\n296   D(I+48) = GAMBQ(I)\r\n      DO 297 I=1,48\r\n297   D(I) = GAMBQ(I+72)\r\n      DO 298 I=1,120\r\n 298  GAMBQ(I)=D(I)\r\n      CALL GMMATD (GAMBQ(1), 10,12,1, AM(1), 10,10,0,  D(1))\r\n      CALL GMMATD (D(1), 12,10,0, GAMBQ(1), 10,12,0, AM(1))\r\nC\r\n  299 CONTINUE\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC\r\nC COORDINATES\r\nC\r\n      DO 300 I=1,144\r\n  300 GAMRS(I)=0.\r\n      GAMRS( 1) =  COSA1\r\n      GAMRS( 3) = -SINA1\r\n      GAMRS(25) =  SINA1\r\n      GAMRS(27) =  COSA1\r\n      GAMRS(40) = -1.\r\n      GAMRS(53) =  1.\r\n      GAMRS(66) =  1.\r\n      GAMRS(79) =  COSA2\r\n      GAMRS(81) = -SINA2\r\n      GAMRS(103)=  SINA2\r\n      GAMRS(105)=  COSA2\r\n      GAMRS(118) = -1.\r\n      GAMRS(131) = 1.\r\n      GAMRS(144) = 1.\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES\r\nC\r\n      IF (ISMB(1).EQ.0)  GO TO 310\r\n      CALL GMMATD (GAMRS(1), 12,12,1, AK(1), 12,12,0, D(1))\r\n      CALL GMMATD (D(1), 12,12,0, GAMRS(1), 12,12,0, AK(1))\r\n  310 IF (ISMB(2) .EQ.0)  GO TO 315\r\n      CALL GMMATD (GAMRS(1), 12,12,1, AM(1), 12,12,0, D(1))\r\n      CALL GMMATD (D(1), 12,12,0, GAMRS(1), 12,12,0, AM(1))\r\n  315 CONTINUE\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES\r\nC FOR THE TWO GRID POINTS AND EXPAND TO (6X6)\r\nC THE TWO MATRICES WILL BE STORED IN D(1),...,D(36) AND D(37),...,D(72)\r\nC RESPECTIVELY\r\nC\r\n      DO 320 I =1,72\r\n  320 D(I) = 0.\r\n      DO 350 I =1,2\r\n      IF (ICS(I).EQ. 0) GO TO 350\r\n      K = 36 * (I - 1)\r\n      CALL TRANSD (ICS(1), D(73))\r\n      DO 340 J=1,3\r\n      KK = K + 6 * (J-1) + 1\r\n      KL = 3 * (J-1) + 73\r\n      KJ = K + 6 * (J+2) + J + 3\r\n      D(KK  ) = D(KL  )\r\n      D(KK+1) = D(KL+1)\r\n      D(KK+2) = D(KL+2)\r\n      D(KJ) = 1.\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC  DIVIDE THE STIFFNESS MATRIX INTO 4 SUBMATRICES WHICH CAN THEN BE\r\nC  TRANSFORMED FROM BASIC TO LOCAL COORDINATES THEN REINSERTED IN THE\r\nC  STIFFNESS MATRIX IN INCREASING SIL ORDER\r\nC\r\n      DO 500 IP =1,2\r\n      IPP = IP\r\n      IF (IGP(1) .LT. IGP(2)) GO TO 400\r\n      IPP = 3 - IP\r\n  400 IR = 72 * (IPP-1)\r\n      IAPP = 36* (IPP-1) +1\r\n      DO 490 JI=1,2\r\n      I= JI\r\n      IF (IP .EQ. IPP ) GO TO 405\r\n      I = 3-JI\r\nC\r\nC   PLACE THE APPROPRIATE SUBMATRIX INTO A (6X6) MATRIX\r\nC\r\n  405 IC =  6 *(I-1)\r\n      K  = 0\r\n      DO  410 II=1,6\r\n      KL = IR + 12 *(II-1) +IC\r\n      DO 410  IJ =1,6\r\n      K = K+1\r\n      KK = KL+ IJ\r\n      AKI(K) = AK(KK)\r\n      AKM(K) = AM(KK)\r\n  410 CONTINUE\r\nC\r\nC   TRANSFORM FROM BASIC TO LOCAL  COORDINATES\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 430\r\n      IF (ISMB(1) .EQ. 0 ) GO TO 425\r\n      CALL GMMATD (D(IAPP), 6,6,1, AKI(1), 6,6,0, D(73))\r\n      DO  420 J=1,36\r\n  420 AKI(J)= D(J+72)\r\n  425 IF (ISMB(2) .EQ. 0) GO TO 430\r\n      CALL GMMATD (D(IAPP), 6,6,1, AKM(1), 6,6,0, D(73))\r\n      DO 428 J=1,36\r\n  428 AKM(I) = D(J+72)\r\nC\r\n  430 IF (ICS(I) .EQ. 0) GO TO 450\r\n      IAI =  36*(I-1) +1\r\n      IF (ISMB(1) .EQ. 0) GO TO 445\r\n      CALL GMMATD (AKI(1), 6,6,0, D(IAI), 6,6,0,  D(73))\r\n      DO 440 J=1,36\r\n  440 AKI(J) =  D(J+72)\r\n  445 IF (ISMB(2) .EQ. 0) GO TO 450\r\n      CALL GMMATD (AKM(1), 6,6,0, D(IAI), 6,6,0,  D(73))\r\n      DO 448 J=1,36\r\n  448 AKM(J) =D(J+72)\r\nC\r\nC    REINSERT INTO OVERALL STIFFNESS MATRIX ACCORDING TO INCREASING SIL\r\nC\r\n  450 DO 460 II = 1,6\r\n      DO 460 JJ = 1,6\r\n      KI = (II-1)*6 + JJ\r\n      IOUT=  (IP-1)* 72 + (JI-1)*6  + (II-1)*12 + JJ\r\n      KOUT(IOUT) = AKI(KI)\r\n  460 MOUT(IOUT) = AKM(KI)\r\n  490 CONTINUE\r\n  500 CONTINUE\r\nC\r\nC     OUTPUT THE MATRIX BY EMGOUT\r\nC\r\n      DICT(2) = 1\r\n      IF (ISMB(1) .EQ.0) GO TO 550\r\n      CALL EMGOUT(KOUT,KOUT,144,1,DICT,1,IPR)\r\nC\r\n  550 IF (ISMB(2) .EQ.0) GO TO 600\r\n      CALL EMGOUT(MOUT,MOUT,144,1,DICT,2,IPR)\r\nC\r\n  600 RETURN\r\nC\r\nC\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n 7770 CALL MESAGE (30,37,IDEL)\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\n 7780 CALL MESAGE(30,26,IDEL)\r\n      GO TO 7777\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/tordrs.f",
    "content": "      SUBROUTINE TORDRS\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS MATRIX AND THE MASS MATRIX\r\nC     FOR AN AXI-SYMMETRIC TORDIDAL THIN SHELL RING\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS ROUTINE USES SUBROUTINES ROMBSK  DMATRX\r\nC\r\nC\r\nC*****\r\nC\r\nC                        ECPT FOR THE TOROIDAL RING\r\nC\r\nC                                                       TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                         I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A              I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B              I\r\nC ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A             R\r\nC ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED)   R\r\nC ECPT( 6) MATERIAL ORIENTATION (NOT USED)                R\r\nC ECPT( 7) MATERIAL IDENTIFICATION                        I\r\nC ECPT( 8) MEMBRANE THICKNESS                             R\r\nC ECPT( 9) FLEXURE THICKNESS                              R\r\nC ECPT(10) COOR. SYS. ID. FOR GRID POINT A                I\r\nC ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(14) COOR. SYS. ID. FOR GRID POINT B                I\r\nC ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES        R\r\nC\r\nC*****\r\nC\r\n      DOUBLE PRECISION CONSTD\r\n      DIMENSION  IECPT(18),        ICS(2)\r\n      DIMENSION\r\n     X   AM(144),GAMBQF(72),GAMBQM(48),EE(4),AK(144),GAMRS(144),AKI(36),\r\n     X ECPT(9),DELINT(66),D(144),R(2),Z(2),KOUT(144),GAMBQ(144)\r\n      REAL KOUT,AKM(36),MOUT(144)\r\n      INTEGER  DICT (9),ELID,ESTID\r\n      LOGICAL  NOGO,HEAT\r\nC\r\nC\r\n      COMMON /CONDAD/ CONSTD(5)\r\nC\r\n      COMMON   /MATIN/\r\n     1                   MATIDC        ,MATFLG\r\n     2,                  ELTEMP        ,STRESS\r\n     3,                  SINTH         ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)          ,ANU(3)\r\n     2,                  RHO           ,G(3)\r\n     3,                  ALF(3)        ,TZERO,    GSUBE\r\n      COMMON  /SYSTEM/ KSYSTM(55),HEAT\r\nC\r\n      COMMON  /EMGPRM/ DUM(15), ISMB(3),IPREC,NOGO,IHEAT\r\n      COMMON  /EMGDIC/ IDM, LDICT,NGRIDS, ELID,ESTID\r\nC\r\n      COMMON  /EMGEST/ IDEL,IGP(2),ALPH(2),OM,MATID,TM,TF,ICS1,\r\n     X                 R1,D1,Z1,ICS2,R2,D2,Z2,TEMPE\r\nC\r\n      EQUIVALENCE (DICT5,DICT(5))\r\n      EQUIVALENCE (IECPT(1),ECPT(1),IDEL)\r\n      EQUIVALENCE ( CONSTD(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTD(4) , DEGRAD )\r\n      EQUIVALENCE        (A1, ALPH(1)), (A2, ALPH(2))\r\n      EQUIVALENCE        (GAMBQF(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMBQM(1), GAMBQ(73))\r\n      EQUIVALENCE        (DELINT(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMRS(1),  GAMBQ(1))\r\nC\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC     SET UP THE DICT ARRAY\r\nC\r\n      IPR= IPREC\r\n      DICT(1) = ESTID\r\n      DICT(3) = 12\r\n      DICT(4) = 63\r\n      ICS(1)= IECPT(10)\r\n      ICS(2)= IECPT(14)\r\n      R(1) = R1\r\n      R(2) = R2\r\n      Z(1) = Z1\r\n      Z(2) = Z2\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      IF (R1 .LT. 0. .OR. R2 .LT. 0.) GO TO 7770\r\n      IF (D1 .NE. 0. .OR. D2 .NE. 0.) GO TO 7770\r\nC\r\nC\r\nC DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING\r\nC\r\n      ITORD = 0\r\n      IF (ABS(A1-A2) .LE. 1.E-6) ITORD =1\r\n      IF (ITORD .EQ. 1 .AND.ABS(A1 - 90.) .LE. 1.E-5) ITORD=-1\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      A1 = A1 * DEGRAD\r\n      A2 = A2 * DEGRAD\r\n      PHIB = A2 - A1\r\n      SINA1 = SIN(A1)\r\n      COSA1 = COS(A1)\r\n      SINA2 = SIN(A2)\r\n      COSA2 = COS(A2)\r\nC\r\n      IF (ITORD .NE. 0) GO TO 100\r\nC\r\nC FOR THE TOROIDAL RING\r\nC\r\n      RP = SQRT((R2-R1)**2  + (Z2-Z1)**2)/(2.*SIN(PHIB/2.))\r\n      S  = PHIB * RP\r\n      GO TO 110\r\nC\r\nC  FOR THE CONICAL OR CYLINDRICAL RING\r\nC\r\n  100 RP = 0.\r\n      S = SQRT((R2-R1)**2 + (Z2-Z1)**2)\r\nC\r\nC  COMPUTE THE BASIC AND REQUIRED INTEGRALS\r\nC\r\nC  SET UP THE ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE\r\nC\r\n  110 D(21) = 0.\r\n      D(22) = RP\r\n      D(23) = R1\r\n      D(24) = COSA1\r\n      D(25) = SINA1\r\nC\r\nC COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS\r\nC\r\n      D(30) = R1 - RP * SINA1\r\n      D(31) = RP * COSA1\r\n      D(32) = RP * SINA1\r\n      D(33) = COSA1 ** 2\r\n      D(34) = SINA1 * COSA1\r\n      D(35) = SINA1 ** 2\r\n      D(36) = 0.5 - D(35)\r\nC\r\nC START LOOP  FOR CALCULATIONS OF INTEGRALS\r\nC\r\n      DO  260 JP1=1,11\r\n      J = JP1 - 1\r\n      K = (J * 6) + 1\r\n      DJP1 = JP1\r\nC\r\nC TEST FOR ELEMENT SHAPE\r\nC\r\n      IF (ITORD) 240,120,170\r\nC\r\nC THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1),...,D(6)\r\nC\r\n  120 D(20) = (RP** JP1)\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = D(20) * (PHIB ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = (PHIB**(JP1+1))/ (DJP1 + 1.)\r\n      D(10)= 1.\r\n      DO  130 I=1,20\r\n      IP = JP1 + 2 * I + 1\r\n      D(11) = 2 * I + 1\r\n      D(10)= D(10)*D(11)*(D(11)-1.)\r\n      D(12)= (-1.)**I * PHIB**IP/((DJP1+D(11))*D(10))\r\n      D(13)= ABS(D(12)/D(2))\r\n      D(2) = D(2)+ D(12)\r\n      IF (D(13) .LE. 1.E-10) GO TO 140\r\n  130 CONTINUE\r\n      GO TO 7780\r\n  140 D(2) = D(20)*D(2)\r\nC\r\nC COMPUTE I(J,3)\r\nC\r\n      D(3) = (PHIB ** JP1) / DJP1\r\n      D(10) = 1.\r\n      DO 150 I=1,20\r\n      IP = JP1 + 2 * I\r\n      D(11) = 2 * I\r\n      D(10) = D(10)*D(11)*(D(11)-1.)\r\n      D(12) = (-1.)**I  * PHIB**IP/((DJP1+D(11)) *D(10))\r\n      D(13) = ABS(D(12)/D(3))\r\n      D(3)  =  D(3) + D(12)\r\n      IF (D(13).LE. 1.E-10) GO TO 160\r\n  150 CONTINUE\r\n      GO TO 7780\r\n  160 CONTINUE\r\n      D(3) = D(20) * D(3)\r\n      D(26) = DJP1\r\nC\r\nC COMPUTE I(J,4)\r\nC\r\n      CALL ROMBSK( PHIB,D(10),IP,D(4),1,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(4) = D(20) * D(4)\r\nC\r\nC COMPUTE I(J,5)\r\nC\r\n      CALL ROMBSK (PHIB,D(10),IP,D(5),2,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(5) = D(20) * D(5)\r\nC\r\nC COMPUTE I(J,6)\r\nC\r\n      CALL ROMBSK (PHIB,D(10),IP,D(6),3,D(21))\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(6) = D(20) * D(6)\r\nC\r\nC THE TOROIDAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3)\r\n      DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3)\r\n      DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6)\r\n      DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2)\r\n      DELINT(K+4) = D(34) * (D(6)-D(4))  + D(36) * D(5)\r\n      DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4)\r\n      GO TO 250\r\nC\r\nC THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n  170 D(1) = (S **JP1)/DJP1\r\n      IF (J-1) 180,190,200\r\nC\r\nC   COMPUTE  I(0,2)\r\nC\r\n  180 D(2) = ALOG((R1 + S*COSA1)/R1)/COSA1\r\n      GO TO 230\r\nC\r\nC    COMPUTE I(1,2)\r\nC\r\n  190 D(2) = (S-(R1/COSA1)*ALOG((R1+S*COSA1)/R1))/COSA1\r\n      GO TO 230\r\nC\r\nC    COMPUTE I(J,2) WHERE J .GT.1\r\nC\r\n  200 D(2) =1./DJP1\r\n      D(10)=  -S*COSA1/R1\r\n      DO  210 I= 1,1000\r\n      D(11) = JP1 + I\r\n      D(12) = (D(10) ** I) / D(11)\r\n      D(2) = D(2) + D(12)\r\n      IF (D(12).LT. 1.E-4) GO TO 220\r\n  210 CONTINUE\r\n      GO TO 7780\r\n  220 D(2)=  ((S**JP1)/R1)* D(2)\r\nC\r\nC THE CONICAL RING REQUIRED INTEGRALS\r\nC\r\n  230 DELINT(K  ) = R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = COSA1 * D(1)\r\n      DELINT(K+4) = D(34) * D(2)\r\n      DELINT(K+5) = D(33) * D(2)\r\n      GO TO 250\r\nC\r\nC THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n  240 D(1) = (S**JP1)/DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = D(1) / R1\r\nC\r\nC THE CYLINDRICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) =  R1*D(1) + COSA1*(S**(JP1+1)/(DJP1+1.))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = 0.\r\n      DELINT(K+4) = 0.\r\n      DELINT(K+5) = 0.\r\nC\r\n  250 CONTINUE\r\nC\r\n  260 CONTINUE\r\nC\r\nC   IF STIFFNESS MATRIX NOT REQUIRED  GO TO MASS ROUTINE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT(IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      EP = E(1)\r\n      ET = E(2)\r\n      VPT= ANU(1)\r\n      VTP= VPT * ET / EP\r\n      DEL = 1. - VPT*VTP\r\n      DICT5 = G SUBE\r\nC\r\nC\r\nC GENERATE THE ELASTIC CONSTANTS MATRIX(2X2)\r\nC\r\n      EE(1) = EP / DEL\r\n      EE(2) = ET * VPT / DEL\r\n      EE(3) = EE(2)\r\n      EE(4) = ET / DEL\r\nC\r\nC\r\nC FORM THE STIFFNESS MATRIX IN FIELD COORDINATES\r\nC\r\nC COMPUTE CONSTANTS NEEDED IN DMATRX SUBROUTINE\r\nC\r\n      D(1) = EP / ET\r\n      D(7) = 0.\r\n      IF (ITORD .EQ. 0) D(7) = 1./RP\r\n      D(2) = D(1) * D(7)\r\n      D(3) = D(2) * D(7)\r\n      D(4) = VPT * D(7)\r\n      D(5) =(EP * TM / (D(1) - VPT**2)) * TWOPI\r\n      D(6) = (EP*TF**3)/(12.*(D(1)-VPT**2))*TWOPI\r\nC\r\nC CALL THE DMATRIX SUBROUTINE TO COMPUTE THE STIFFNESS MATRIX (10X10)\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN DMATRIX SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A (11X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X11) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN DMATRX ROUTINE.\r\nC\r\n      IF (ISMB(1) .EQ.  0) GO TO 270\r\n      CALL DMATRS(AK(1),VPT,D(1),D(2),D(3),D(4),D(5),D(6),DELINT(1))\r\n  270 IF (ISMB(2) .EQ. 0)  GO TO 279\r\n      DO 275 I=1,100\r\n  275 AM(I) = 0.\r\n      AM(  1) = DELINT( 1)\r\n      AM(  2) = DELINT( 7)\r\n      AM(  3) = DELINT(13)\r\n      AM(  4) = DELINT(19)\r\n      AM( 11) = DELINT( 7)\r\n      AM( 12) = DELINT(13)\r\n      AM( 13) = DELINT(19)\r\n      AM( 14) = DELINT(25)\r\n      AM( 21) = DELINT(13)\r\n      AM( 22) = DELINT(19)\r\n      AM( 23) = DELINT(25)\r\n      AM( 24) = DELINT(31)\r\n      AM( 31) = DELINT(19)\r\n      AM( 32) = DELINT(25)\r\n      AM( 33) = DELINT(31)\r\n      AM( 34) = DELINT(37)\r\n      AM( 45) = DELINT( 1)\r\n      AM( 46) = DELINT( 7)\r\n      AM( 47) = DELINT(13)\r\n      AM( 48) = DELINT(19)\r\n      AM( 49) = DELINT(25)\r\n      AM( 50) = DELINT(31)\r\n      AM( 55) = DELINT( 7)\r\n      AM( 56) = DELINT(13)\r\n      AM( 57) = DELINT(19)\r\n      AM( 58) = DELINT(25)\r\n      AM( 59) = DELINT(31)\r\n      AM( 60) = DELINT(37)\r\n      AM( 65) = DELINT(13)\r\n      AM( 66) = DELINT(19)\r\n      AM( 67) = DELINT(25)\r\n      AM( 68) = DELINT(31)\r\n      AM( 69) = DELINT(37)\r\n      AM( 70) = DELINT(43)\r\n      AM( 75) = DELINT(19)\r\n      AM( 76) = DELINT(25)\r\n      AM( 77) = DELINT(31)\r\n      AM( 78) = DELINT(37)\r\n      AM( 79) = DELINT(43)\r\n      AM( 80) = DELINT(49)\r\n      AM( 85) = DELINT(25)\r\n      AM( 86) = DELINT(31)\r\n      AM( 87) = DELINT(37)\r\n      AM( 88) = DELINT(43)\r\n      AM( 89) = DELINT(49)\r\n      AM( 90) = DELINT(55)\r\n      AM( 95) = DELINT(31)\r\n      AM( 96) = DELINT(37)\r\n      AM( 97) = DELINT(43)\r\n      AM( 98) = DELINT(49)\r\n      AM( 99) = DELINT(55)\r\n      AM(100) = DELINT(61)\r\nC\r\n      D(1) = TWO PI * RHO * TM\r\n      DO  278  I=1,100\r\n  278 AM(I)= D(1) * AM(I)\r\n  279 CONTINUE\r\nC\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 280 I=1,72\r\n  280 GAMBQF(I)=0.\r\n      D(1) = S\r\n      D(2) = S ** 2\r\n      D(3) = S ** 3\r\n      D(4) = S ** 4\r\n      D(5) = S ** 5\r\n      GAMBQF(3) = 1.\r\n      GAMBQF(16)= 1.\r\n      GAMBQF(30)= .5\r\n      GAMBQF(39)=-10./D(3)\r\n      GAMBQF(40)= -6./D(2)\r\n      GAMBQF(42)= -1.5/D(1)\r\n      GAMBQF(45) = -GAMBQF(39)\r\n      GAMBQF(46) = -4./D(2)\r\n      GAMBQF(48) =  .5/D(1)\r\n      GAMBQF(51) = 15./D(4)\r\n      GAMBQF(52) =  8./D(3)\r\n      GAMBQF(54) = 1.5/D(2)\r\n      GAMBQF(57) = -GAMBQF(51)\r\n      GAMBQF(58) =  7./D(3)\r\n      GAMBQF(60) = -1./D(2)\r\n      GAMBQF(63) = -6./D(5)\r\n      GAMBQF(64) = -3./D(4)\r\n      GAMBQF(66) = -.5/D(3)\r\n      GAMBQF(69) = -GAMBQF(63)\r\n      GAMBQF(70) =  GAMBQF(64)\r\n      GAMBQF(72) = -GAMBQF(66)\r\n      DO 290 I=1,48\r\n  290 GAMBQM(I) = 0.\r\n      GAMBQM(1) = 1.\r\n      GAMBQM(17)= 1.\r\n      GAMBQM(25)=  -3./D(2)\r\n      GAMBQM(29) = -2./D(1)\r\n      GAMBQM(31)= -GAMBQM(25)\r\n      GAMBQM(35) = -1./D(1)\r\n      GAMBQM(37) = 2./D(3)\r\n      GAMBQM(41) = 1./D(2)\r\n      GAMBQM(43) = -GAMBQM(37)\r\n      GAMBQM(47) =  GAMBQM(41)\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      IF(ISMB(1).EQ. 0) GO TO 295\r\n      CALL GMMATS(GAMBQ(1),10,12,1, AK(1),10,10,0,  D(1))\r\n      CALL GMMATS(D(1),12,10,0,GAMBQ(1),10,12,0, AK(1))\r\n  295 IF (ISMB(2).EQ.0)  GO TO 299\r\nC     REARRANGE GAMBQ FOR MASS MATRIX CALCULATIONS\r\n      DO 296 I=1,72\r\n296   D(I+48) = GAMBQ(I)\r\n      DO 297 I=1,48\r\n297   D(I) = GAMBQ(I+72)\r\n      DO 298 I=1,120\r\n 298  GAMBQ(I)=D(I)\r\n      CALL GMMATS(GAMBQ(1),10,12,1, AM(1),10,10,0, D(1))\r\n      CALL GMMATS (D(1),12,10,0 ,GAMBQ(1),10,12,0, AM(1))\r\nC\r\n  299 CONTINUE\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC\r\nC COORDINATES\r\nC\r\n      DO 300 I=1,144\r\n  300 GAMRS(I)=0.\r\n      GAMRS( 1) =  COSA1\r\n      GAMRS( 3) = -SINA1\r\n      GAMRS(25) =  SINA1\r\n      GAMRS(27) =  COSA1\r\n      GAMRS(40) = -1.\r\n      GAMRS(53) =  1.\r\n      GAMRS(66) =  1.\r\n      GAMRS(79) =  COSA2\r\n      GAMRS(81) = -SINA2\r\n      GAMRS(103)=  SINA2\r\n      GAMRS(105)=  COSA2\r\n      GAMRS(118) = -1.\r\n      GAMRS(131) = 1.\r\n      GAMRS(144) = 1.\r\nC\r\nC\r\nC TRANSFORM THE STIFFNESS MATRIX FROM ELEMENT TO BASIC COORDINATES\r\nC\r\n      IF (ISMB(1).EQ.0)  GO TO 310\r\n      CALL GMMATS (GAMRS(1),12,12,1,  AK(1),12,12,0,  D(1))\r\n      CALL GMMATS (D(1),12,12,0,  GAMRS(1),12,12,0,  AK(1))\r\n  310 IF (ISMB(2) .EQ.0)  GO TO 315\r\n      CALL GMMATS (GAMRS(1),12,12,1, AM(1),12,12,0, D(1))\r\n      CALL GMMATS (D(1),12,12,0, GAMRS(1),12,12,0, AM(1))\r\n  315 CONTINUE\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES\r\nC FOR THE TWO GRID POINTS AND EXPAND TO (6X6)\r\nC THE TWO MATRICES WILL BE STORED IN D(1),...,D(36) AND D(37),...,D(72)\r\nC RESPECTIVELY\r\nC\r\n      DO 320 I =1,72\r\n  320 D(I) = 0.\r\n      DO 350 I =1,2\r\n      IF (ICS(I).EQ. 0) GO TO 350\r\n      K = 36 * (I - 1)\r\n      CALL TRANSS(ICS(I),D(73))\r\n      DO 340 J=1,3\r\n      KK = K + 6 * (J-1) + 1\r\n      KL = 3 * (J-1) + 73\r\n      KJ = K + 6 * (J+2) + J + 3\r\n      D(KK  ) = D(KL  )\r\n      D(KK+1) = D(KL+1)\r\n      D(KK+2) = D(KL+2)\r\n      D(KJ) = 1.\r\n  340 CONTINUE\r\n  350 CONTINUE\r\nC\r\nC  DIVIDE THE STIFFNESS MATRIX INTO 4 SUBMATRICES WHICH CAN THEN BE\r\nC  TRANSFORMED FROM BASIC TO LOCAL COORDINATES THEN REINSERTED IN THE\r\nC  STIFFNESS MATRIX IN INCREASING SIL ORDER\r\nC\r\n      DO 500 IP =1,2\r\n      IPP = IP\r\n      IF (IGP(1) .LT. IGP(2)) GO TO 400\r\n      IPP = 3 - IP\r\n  400 IR = 72 * (IPP-1)\r\n      IAPP = 36* (IPP-1) +1\r\n      DO 490 JI=1,2\r\n      I= JI\r\n      IF (IP .EQ. IPP ) GO TO 405\r\n      I = 3-JI\r\nC\r\nC   PLACE THE APPROPRIATE SUBMATRIX INTO A (6X6) MATRIX\r\nC\r\n  405 IC =  6 *(I-1)\r\n      K  = 0\r\n      DO  410 II=1,6\r\n      KL = IR + 12 *(II-1) +IC\r\n      DO 410  IJ =1,6\r\n      K = K+1\r\n      KK = KL+ IJ\r\n      AKI(K) = AK(KK)\r\n      AKM(K) = AM(KK)\r\n  410 CONTINUE\r\nC\r\nC   TRANSFORM FROM BASIC TO LOCAL  COORDINATES\r\nC\r\n      IF (ICS(IPP) .EQ. 0) GO TO 430\r\n      IF (ISMB(1) .EQ. 0 ) GO TO 425\r\n      CALL GMMATS (D(IAPP),6,6,1, AKI(1),6,6,0,  D(73))\r\n      DO  420 J=1,36\r\n  420 AKI(J)= D(J+72)\r\n  425 IF (ISMB(2) .EQ. 0) GO TO 430\r\n      CALL  GMMATS (D(IAPP),6,6,1, AKM(1),6,6,0, D(73))\r\n      DO 428 J=1,36\r\n  428 AKM(I) = D(J+72)\r\nC\r\n  430 IF (ICS(I) .EQ. 0) GO TO 450\r\n      IAI =  36*(I-1) +1\r\n      IF (ISMB(1) .EQ. 0) GO TO 445\r\n      CALL GMMATS(AKI(1),6,6,0, D(IAI),6,6,0, D(73))\r\n      DO 440 J=1,36\r\n  440 AKI(J) =  D(J+72)\r\n  445 IF (ISMB(2) .EQ. 0) GO TO 450\r\n      CALL GMMATS(AKM(1),6,6,0, D(IAI),6,6,0, D(73))\r\n      DO 448 J=1,36\r\n  448 AKM(J) =D(J+72)\r\nC\r\nC    REINSERT INTO OVERALL STIFFNESS MATRIX ACCORDING TO INCREASING SIL\r\nC\r\n  450 DO 460 II = 1,6\r\n      DO 460 JJ = 1,6\r\n      KI = (II-1)*6 + JJ\r\n      IOUT=  (IP-1)* 72 + (JI-1)*6  + (II-1)*12 + JJ\r\n      KOUT(IOUT) = AKI(KI)\r\n  460 MOUT(IOUT) = AKM(KI)\r\n  490 CONTINUE\r\n  500 CONTINUE\r\nC\r\nC     OUTPUT THE MATRIX BY EMGOUT\r\nC\r\n      DICT(2) = 1\r\n      IF (ISMB(1) .EQ.0) GO TO 550\r\n      CALL EMGOUT(KOUT,KOUT,144,1,DICT,1,IPR)\r\nC\r\n  550 IF (ISMB(2) .EQ.0) GO TO 600\r\n      CALL EMGOUT(MOUT,MOUT,144,1,DICT,2,IPR)\r\nC\r\n  600 RETURN\r\nC\r\nC\r\nC\r\nC  SET FLAG FOR FATAL ERROR WHILE ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n 7770 CALL MESAGE (30,37,IDEL)\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\n 7780 CALL MESAGE(30,26,IDEL)\r\n      GO TO 7777\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/totape.f",
    "content": "      SUBROUTINE TOTAPE (CALLER,Z)\r\nC\r\nC     THIS ROUTINE IS CALLED ONLY BY DPLTST (CALLER=1), DPLOT (CALLER=2)\r\nC     AND/OR OFP (CALLER=3) TO COPY NUMBERS OF GINO INPUT FILES TO A\r\nC     SAVE FILE, INP9, FOR NEXT INTERACTIVE NASTRAN RUN (INTRA.LT.0)\r\nC     THE SAVE FILE CAN BE A TAPE OR DISC.\r\nC\r\nC     WRITTEN BY G.CHAN/SPERRY     NOV. 1985\r\nC\r\nC     FILE STRUCTURE IN SAVE TAPE\r\nC\r\nC     RECORD NO.   CONTENT\r\nC     ----------   -----------------------------------------------\r\nC        1           6-WORDS (3 CALLER ID WORDS AND 3 DATE WORDS)\r\nC                   96-WORD HEADING\r\nC                  100-SYSTEM WORDS\r\nC        2         MARK\r\nC        3         CALLER ID, NO. OF FILES, NO. OF PARAMETERS\r\nC        4         7-WORD TRAILER OF FIRST GINO INPUT FILE\r\nC      5 TO N      FIRST GINO INPUT FILE (IF FILE IS NOT PURGED)\r\nC       N+1        MARK\r\nC       N+2        7-WORD TRAILER OF SECOND GINO INPUT FILE\r\nC    N+2 TO M      SECOND GINO INPUT FILE (IF FILE IS NOT PURGED)\r\nC       M+1        MARK\r\nC    M+2 TO ..R    REPEAT FOR ADDITION FILES, TRAILER, AND MARK\r\nC       R+1        PARAMETERS IN /BLANK/ OF CURRENT CALLER\r\nC       R+2        MARK\r\nC       R+3        NASTRAN EOF MARK\r\nC    R+4 TO LAST   REPEAT 3 TO R+3 AS MANY TIMES AS NEEDED FROM THE\r\nC                  SAME OR A DIFFERENT CALLER AT DIFFERENT TIME\r\nC     LAST+1       SYSTEM EOF MARK\r\nC\r\nC     THE INTERACTIVE FLAG, INTRA, IN /SYSTEM/ WAS SET BY XCSA TO\r\nC         1 FOR PLOT ONLY,\r\nC         2 FOR OUTPUT PRINT ONLY\r\nC      OR 3 FOR BOTH\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         DISC,     TAPBIT\r\n      DIMENSION       Z(3),     TAB(3,3), MARK(3),  SUB(2),   FN(2),\r\n     1                DATE(3),  WHO(2)\r\n      CHARACTER       UFM*23,   UWM*25,   UIM*29\r\n      COMMON /XMSSG / UFM,      UWM,      UIM\r\n      COMMON /BLANK / PARAM(1)\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /OUTPUT/ HEAD(96)\r\n      COMMON /NAMES / RD,       RDREW,    WRT,      WRTREW,   REW,\r\n     1                NOREW\r\n      EQUIVALENCE     (KSYSTM( 1),IBUF), (KSYSTM(15),DATE(1)),\r\n     1                (KSYSTM( 2),NOUT), (KSYSTM(86),INTRA  ),\r\n     2                (TAB(2,3) ,BLANK)\r\n      DATA    TAB   / 4HPLTS,   4HET  ,   2,\r\n     1                4HPLOT,   4H    ,   5,\r\n     2                4HOFP ,   4H    ,   3/\r\n      DATA    FILE,   NFILE,    MARK  /   4HINP9,23,  2*65536,11111  /\r\n      DATA    SUB /   4HTOTA,   4HPE  /\r\nC\r\n      IF (INTRA.GE.0 .OR. CALLER.LT.1 .OR. CALLER.GT.3) RETURN\r\n      IF (CALLER.LE.2 .AND. INTRA.EQ.-2) RETURN\r\n      IF (CALLER.EQ.3 .AND. INTRA.EQ.-1) RETURN\r\n      WHO(1) = TAB(1,CALLER)\r\n      WHO(2) = TAB(2,CALLER)\r\n      NPARAM = TAB(3,CALLER)\r\n      KORE   = KORSZ(Z(1))\r\n      IBUF1  = KORE  - IBUF\r\n      IBUF2  = IBUF1 - IBUF\r\n      KORE   = IBUF2 - 1\r\n      FN(1)  = FILE\r\n      FN(2)  = BLANK\r\n      DISC   = .TRUE.\r\n      IF (TAPBIT(FN(1))) DISC = .FALSE.\r\n      IF (.NOT.DISC .OR. INTRA.GT.0) GO TO 30\r\nC\r\n      CALL OPEN (*120,FILE,Z(IBUF2),RDREW)\r\n 10   CALL READ (*20,*20,FILE,Z(1),2,0,M)\r\n      CALL SKPFIL (FILE,1)\r\n      GO TO 10\r\n 20   CALL CLOSE (FILE,NOREW)\r\n 30   CALL OPEN (*120,FILE,Z(IBUF2),WRT)\r\n      IF (INTRA .LT. 0) GO TO 40\r\n      DO 35 I = 1,2\r\n      IF (INTRA.NE.I .AND. INTRA.NE.3) GO TO 35\r\n      FILE = TAB(3,I+1)\r\n      CALL WRITE (FILE,TAB(1,CALLER),3,0)\r\n      CALL WRITE (FILE,  DATE(1),  3,0)\r\n      CALL WRITE (FILE,  HEAD(1), 96,0)\r\n      CALL WRITE (FILE,KSYSTM(1),100,1)\r\n      CALL WRITE (FILE,  MARK(1),  3,1)\r\n 35   CONTINUE\r\n      INTRA = -INTRA\r\n      FILE  = TAB(3,CALLER)\r\n 40   Z(1)  = CALLER\r\n      Z(2)  = NFILE\r\n      Z(3)  = NPARAM\r\n      CALL WRITE (FILE,Z(1),3,1)\r\n      WRITE  (NOUT,50) UIM,WHO,FILE\r\n 50   FORMAT (A29,', THE FOLLOWING FILES WERE COPIED FROM DMAP ',A4,A2,\r\n     1        4H TO ,A4,5H FILE,/)\r\n      DO 110 I = 1,NFILE\r\n      INFIL = 100 + I\r\n      CALL OPEN (*100,INFIL,Z(IBUF1),RDREW)\r\n      Z(1)  = INFIL\r\n      CALL RDTRL (Z(1))\r\n      CALL WRITE (FILE,Z(1),7,1)\r\n      IF (Z(1) .LE. 0) GO TO 80\r\n 60   CALL READ (*80,*70,INFIL,Z(1),KORE,1,M)\r\n      CALL MESAGE (-8,0,SUB)\r\n 70   CALL WRITE (FILE,Z(1),M,1)\r\n      GO TO 60\r\n 80   CALL CLOSE (INFIL,REW)\r\n      CALL FNAME (INFIL,FN)\r\n      WRITE  (NOUT,90) FN\r\n 90   FORMAT (5X,2A4)\r\n 100  CALL WRITE (FILE,MARK(1),3,1)\r\n 110  CONTINUE\r\n      CALL WRITE (FILE,PARAM(1),NPARAM,1)\r\n      CALL WRITE (FILE,MARK(1),3,1)\r\n      IF (.NOT.DISC) CALL CLOSE (FILE,NOREW)\r\n      IF (     DISC) CALL CLOSE (FILE,  REW)\r\n      RETURN\r\nC\r\n 120  CALL MESAGE (-1,FILE,SUB)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tpztem.f",
    "content": "      SUBROUTINE TPZTEM (TI,PG)\r\nC\r\nC     THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE AXI-SYMMETRIC\r\nC     TRAPEZOIDAL CROSS SECTION RING\r\nC\r\nC     ECPT COMMON BLOCK IS,\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                I\r\nC     ECPT( 2) = SIL A                                     I\r\nC     ECPT( 3) = SIL B                                     I\r\nC     ECPT( 4) = SIL C                                     I\r\nC     ECPT( 5) = SIL D\r\nC     ECPT( 6) = MATERIAL ORIENTATION ANGLE(DEGREES)       R\r\nC     ECPT( 8) = MATERIAL ID                               I\r\nC     ECPT( 9) TO ECPT (22) FOR PHI\r\nC     ECPT(23) = COOR. SYS. FOR GRID POINT A               I\r\nC     ECPT(24) = X-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT(25) = Z-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT(26) = 0.0\r\nC     ECPT(27) = COOR. SYS. FOR GRID POINT B\r\nC     ECPT(28) = X-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT(29) = Z-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT(30) = 0.0\r\nC     ECPT(31) = COOR. SYS. FOR GRID POINT C               I\r\nC     ECPT(32) = X-COOR. FOR GRID POINT C                  R\r\nC     ECPT(33) = Z-COOR. FOR GRID POINT C                  R\r\nC     ECPT(34) = 0.0\r\nC     ECPT(35) = COOR. SYS. FOR GRID POINT D               I\r\nC     ECPT(36) = X-COOR FOR GRID POINT D                   R\r\nC     ECPT(37) = Z-COOR FOR GRID POINT D                   R\r\nC     ECPT(38) = 0.0\r\nC     ECPT(39) = EL. TEMPERATURE FOR MATERIAL PROP         R\r\nC\r\n      INTEGER         SP(36)\r\n      DIMENSION       TI(4),PG(1),R(4),Z(4),GABABQ(12,12),DELINT(15),\r\n     1                D(144),TEO(21),HTN(12,4),IGP(4),IECPT(39),ICS(4),\r\n     2                H(4,4),AKI(144),TL(12)\r\n      COMMON /TRIMEX/ ECPT(39)\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      EQUIVALENCE     (IECPT(1),ECPT(1)),(Z(1),Z1),(Z(2),Z2),\r\n     1                (Z(3),Z3),(R(1),R1),(R(2),R2),(R(3),R3),\r\n     2                (R(4),R4),(Z(4),Z4),(GABABQ(1,1),AKI(1)),\r\n     3                (CONSTS(1),PI),(CONSTS(4),DEGRAD)\r\n      DATA    IDEL2 , JAX / 0, 4HAX    /\r\nC\r\nC     START EXECUTION\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT( 1)\r\n      IGP(1) = IECPT( 2)\r\n      IGP(2) = IECPT( 3)\r\n      IGP(3) = IECPT( 4)\r\n      IGP(4) = IECPT( 5)\r\n      MATID  = IECPT( 8)\r\n      ICS(1) = IECPT(23)\r\n      ICS(3) = IECPT(31)\r\n      ICS(2) = IECPT(27)\r\n      R(1)   = ECPT (24)\r\n      R(2)   = ECPT (28)\r\n      R(3)   = ECPT (32)\r\n      ICS(4) = IECPT(35)\r\n      Z(1)   = ECPT (25)\r\n      D(1)   = ECPT (26)\r\n      Z(2)   = ECPT (29)\r\n      D(2)   = ECPT (30)\r\n      Z(3)   = ECPT (33)\r\n      D(3)   = ECPT (34)\r\n      Z(4)   = ECPT (37)\r\n      D(4)   = ECPT (38)\r\n      R(4)   = ECPT (36)\r\n      TEMPE  = ECPT (39)\r\n      DGAMA  = ECPT ( 6)\r\n      IDEL1  = IDEL/1000\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3,Z4)\r\n      Z1   = Z1 - ZMIN\r\n      Z2   = Z2 - ZMIN\r\n      Z3   = Z3 - ZMIN\r\n      Z4   = Z4 - ZMIN\r\nC\r\nC     FATAL IF RATIO OF RADII IS TOO LARGE FOR GUASS QUADRATURE\r\nC\r\n      RMIN = AMIN1(R1,R2,R3,R4)\r\n      RMAX = AMAX1(R1,R2,R3,R4)\r\n      IF (RMIN .EQ. 0.0) GO TO 206\r\n      IF (RMAX/RMIN .GT. 10.) GO TO 915\r\nC\r\n  206 CONTINUE\r\n      IF (ABS(Z1-Z2) .GT. .001) GO TO 910\r\n      IF (ABS(Z3-Z4) .GT. .001) GO TO 910\r\n      D(5) = (R1+R4)/2.0\r\n      D(6) = (R2+R3)/2.0\r\n      IF (D(5) .EQ. 0.0) GO TO 210\r\n      IF (ABS((R1-R4)/D(5)) .GT. .005) GO TO 210\r\n      R1 = D(5)\r\n      R4 = D(5)\r\n  210 CONTINUE\r\n      IF (D(6) .EQ. 0.0) GO TO 220\r\n      IF (ABS((R2-R3)/D(6)) .GT. .005) GO TO 220\r\n      R2 = D(6)\r\n      R3 = D(6)\r\n  220 CONTINUE\r\nC\r\nC     FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID\r\nC     POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1, 144\r\n  300 GABABQ( I, 1) = 0.000\r\n      GABABQ( 1, 1) = 1.000\r\n      GABABQ( 2, 1) = R1\r\n      GABABQ( 3, 1) = Z1\r\n      GABABQ( 4, 1) = R1*Z1\r\n      GABABQ( 5, 2) = 1.000\r\n      GABABQ( 6, 2) = R1\r\n      GABABQ( 7, 2) = Z1\r\n      GABABQ( 8, 2) = GABABQ(4,1)\r\n      GABABQ( 9, 3) = 1.000\r\n      GABABQ(10, 3) = R1\r\n      GABABQ(11, 3) = Z1\r\n      GABABQ(12, 3) = GABABQ(4,1)\r\n      GABABQ( 1, 4) = 1.000\r\n      GABABQ( 2, 4) = R2\r\n      GABABQ( 3, 4) = Z2\r\n      GABABQ( 4, 4) = R2*Z2\r\n      GABABQ( 5, 5) = 1.000\r\n      GABABQ( 6, 5) = R2\r\n      GABABQ( 7, 5) = Z2\r\n      GABABQ( 8, 5) = GABABQ(4,4)\r\n      GABABQ( 9, 6) = 1.000\r\n      GABABQ(10, 6) = R2\r\n      GABABQ(11, 6) = Z2\r\n      GABABQ(12, 6) = GABABQ(4,4)\r\n      GABABQ( 1, 7) = 1.000\r\n      GABABQ( 2, 7) = R3\r\n      GABABQ( 3, 7) = Z3\r\n      GABABQ( 4, 7) = R3*Z3\r\n      GABABQ( 5, 8) = 1.000\r\n      GABABQ( 6, 8) = R3\r\n      GABABQ( 7, 8) = Z3\r\n      GABABQ( 8, 8) = GABABQ(4,7)\r\n      GABABQ( 9, 9) = 1.000\r\n      GABABQ(10, 9) = R3\r\n      GABABQ(11, 9) = Z3\r\n      GABABQ(12, 9) = GABABQ(4,7)\r\n      GABABQ( 1,10) = 1.000\r\n      GABABQ( 2,10) = R4\r\n      GABABQ( 3,10) = Z4\r\n      GABABQ( 4,10) = R4*Z4\r\n      GABABQ( 5,11) = 1.000\r\n      GABABQ( 6,11) = R4\r\n      GABABQ( 7,11) = Z4\r\n      GABABQ( 8,11) = GABABQ(4,10)\r\n      GABABQ( 9,12) = 1.000\r\n      GABABQ(10,12) = R4\r\n      GABABQ(11,12) = Z4\r\n      GABABQ(12,12) = GABABQ(4,10)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (12,GABABQ,12,D(10),0,D(11),ISING,SP)\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT\r\nC\r\nC       DELINT(04) = (0,0)\r\nC       DELINT(05) = (0,1)\r\nC       DELINT(06) = (0,2)\r\nC       DELINT(07) = (1,0)\r\nC       DELINT(08) = (1,1)\r\nC       DELINT(09) = (1,2)\r\nC       DELINT(10) = (2,0)\r\nC       DELINT(11) = (2,1)\r\nC       DELINT(12) = (2,2)\r\nC       DELINT(13) = (3,0)\r\nC       DELINT(14) = (3,1)\r\nC       DELINT(15) = (3,2)\r\nC\r\n      I1 = 3\r\n      DO 320 I = 1,4\r\n      IP = I - 1\r\n      DO 310 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  310 CONTINUE\r\n  320 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      DGAMR  = DGAMA*DEGRAD\r\n      SINTH  = SIN(DGAMR)\r\n      COSTH  = COS(DGAMR)\r\n      SING   = SINTH\r\n      COSG   = COSTH\r\n      CALL MAT (IDEL)\r\n      IF (SETMAT .EQ. 2.0) GO TO 910\r\nC\r\nC     SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO*ET/ER\r\n      VZO = VOZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DELA= 1.0/(1.0 - VRO*VOR - VOZ*VZO - VZR*VRZ - VRO*VOZ*VZR -\r\n     1          VRZ*VOR*VZO)\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n      DO 510 I = 1,21\r\n  510 TEO( I) = 0.0\r\n      TEO( 1) = ER*(1.0 - VOZ*VZO)*DELA\r\n      TEO( 2) = ER*(VZR + VZO*VOR)*DELA\r\n      TEO( 3) = EZ*(1.0 - VRO*VOR)*DELA\r\n      TEO( 4) = ER*(VOR + VZR*VOZ)*DELA\r\n      TEO( 5) = ET*(VZO + VRO*VZR)*DELA\r\n      TEO( 6) = ET*(1.0 - VRZ*VZR)*DELA\r\n      TEO(10) = GRZ\r\n      TEO(15) = GOR\r\n      TEO(21) = GZO\r\n      SING2   = SING**2\r\n      COSG2   = COSG**2\r\n      SING4   = SING**4\r\n      COSG4   = COSG**4\r\n      EE01    = TEO(1)*COSG4 + TEO(3)*SING4 + (TEO(2) + 2.0*TEO(10))*2.0\r\n     1          *SING2*COSG2\r\n      EE02    = TEO(2)*(SING4 + COSG4) + (TEO(1) + TEO(3) - 4.0*TEO(10))\r\n     2          *SING2* COSG2\r\n      EE03    = TEO(1)*SING4 + TEO(3)*COSG4 + (2.0*TEO(2) + 4.0*TEO(10))\r\n     3          *SING2*COSG2\r\n      EE04    = TEO(4)*COSG2 + TEO(5)*SING2\r\n      EE05    = TEO(4)*SING2 + TEO(5)*COSG2\r\n      EE06    = TEO(6)\r\n      EE07    = (TEO(1)*COSG2 - TEO(3)*SING2 + (TEO(2) + 2.0*TEO(10))\r\n     7          *(SING2 - COSG2))*SING*COSG\r\n      EE08    = (TEO(1)*SING2 - TEO(3)*COSG2 + (TEO(2) + 2.0*TEO(10))\r\n     8          *(COSG2 - SING2))*SING*COSG\r\n      EE09    = SING*COSG*(TEO(4) - TEO(5))\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      AJHO = IECPT(1) - (IECPT(1)/1000)*1000 - 1\r\nC\r\nC     COMPUTE THERMAL LOAD\r\nC\r\n      A1 = EE01*ALF(1) + EE02*ALF(3) + EE04*ALF(2)\r\n      A2 = EE02*ALF(1) + EE03*ALF(3) + EE05*ALF(2)\r\n      A3 = EE04*ALF(1) + EE05*ALF(3) + EE06*ALF(2)\r\n      A4 = EE07*ALF(1) + EE08*ALF(3) + EE09*ALF(2)\r\nC\r\nC     FORM HTN MATRIX\r\nC\r\n      HTN( 1,1) = A3*DELINT(4)\r\n      HTN( 1,2) = A3*DELINT(7)\r\n      HTN( 1,3) = A3*DELINT(5)\r\n      HTN( 1,4) = A3*DELINT(8)\r\n      HTN( 2,1) = (A1+A3)*DELINT(7)\r\n      HTN( 2,2) = (A1+A3)*DELINT(10)\r\n      HTN( 2,3) = (A1+A3)*DELINT(8)\r\n      HTN( 2,4) = (A1+A3)*DELINT(11)\r\n      HTN( 3,1) = A3*DELINT( 5) + A4*DELINT( 7)\r\n      HTN( 3,2) = A3*DELINT( 8) + A4*DELINT(10)\r\n      HTN( 3,3) = A3*DELINT( 6) + A4*DELINT( 8)\r\n      HTN( 3,4) = A3*DELINT( 9) + A4*DELINT(11)\r\n      HTN( 4,1) = (A1+A3)*DELINT( 8) + A4*DELINT(10)\r\n      HTN( 4,2) = (A1+A3)*DELINT(11) + A4*DELINT(13)\r\n      HTN( 4,3) = (A1+A3)*DELINT( 9) + A4*DELINT(11)\r\n      HTN( 4,4) = (A1+A3)*DELINT(12) + A4*DELINT(14)\r\n      HTN( 5,1) = AJHO*A3*DELINT(4)\r\n      HTN( 5,2) = AJHO*A3*DELINT(7)\r\n      HTN( 5,3) = AJHO*A3*DELINT(5)\r\n      HTN( 5,4) = AJHO*A3*DELINT(8)\r\n      HTN( 6,1) = AJHO*A3*DELINT(7)\r\n      HTN( 6,2) = AJHO*A3*DELINT(10)\r\n      HTN( 6,3) = AJHO*A3*DELINT(8)\r\n      HTN( 6,4) = AJHO*A3*DELINT(11)\r\n      HTN( 7,1) = AJHO*A3*DELINT(5)\r\n      HTN( 7,2) = AJHO*A3*DELINT(8)\r\n      HTN( 7,3) = AJHO*A3*DELINT(6)\r\n      HTN( 7,4) = AJHO*A3*DELINT(9)\r\n      HTN( 8,1) = AJHO*A3*DELINT(8)\r\n      HTN( 8,2) = AJHO*A3*DELINT(11)\r\n      HTN( 8,3) = AJHO*A3*DELINT(9)\r\n      HTN( 8,4) = AJHO*A3*DELINT(12)\r\n      HTN( 9,1) = 0.0\r\n      HTN( 9,2) = 0.0\r\n      HTN( 9,3) = 0.0\r\n      HTN( 9,4) = 0.0\r\n      HTN(10,1) = A4*DELINT(7)\r\n      HTN(10,2) = A4*DELINT(10)\r\n      HTN(10,3) = A4*DELINT(8)\r\n      HTN(10,4) = A4*DELINT(11)\r\n      HTN(11,1) = A2*DELINT(7)\r\n      HTN(11,2) = A2*DELINT(10)\r\n      HTN(11,3) = A2*DELINT(8)\r\n      HTN(11,4) = A2*DELINT(11)\r\n      HTN(12,1) = A2*DELINT(10) + A4*DELINT( 8)\r\n      HTN(12,2) = A2*DELINT(13) + A4*DELINT(11)\r\n      HTN(12,3) = A2*DELINT(11) + A4*DELINT( 9)\r\n      HTN(12,4) = A2*DELINT(14) + A4*DELINT(12)\r\nC\r\nC     COMPUTE LITTLE H MATRIX (INVERSE OF PARTITION OF GABABQ)\r\nC\r\n      IF (ABS(R2-R1) .LT. 1.0E-16) GO TO 930\r\n      IF (ABS(R3-R4) .LT. 1.0E-16) GO TO 930\r\n      IF (ABS(Z4-Z1) .LT. 1.0E-16) GO TO 930\r\n      A      = 1.0/((R2-R1)*(R3-R4)*(Z4-Z1))\r\n      R34A   = A*(R3-R4)\r\n      R21A   = A*(R2-R1)\r\n      H(1,1) = R34A*R2*Z4\r\n      H(1,2) =-R1*Z4*R34A\r\n      H(1,3) = R4*Z1*R21A\r\n      H(1,4) =-R3*Z1*R21A\r\n      H(2,1) =-Z4*R34A\r\n      H(2,2) = Z4*R34A\r\n      H(2,3) =-Z1*R21A\r\n      H(2,4) = Z1*R21A\r\n      H(3,1) =-R2*A*(R2-R4)\r\n      H(3,2) = R1*R34A\r\n      H(3,3) =-R4*R21A\r\n      H(3,4) = R3*R21A\r\n      H(4,1) = R34A\r\n      H(4,2) =-R34A\r\n      H(4,3) = R21A\r\n      H(4,4) =-R21A\r\nC\r\nC     COMPUTE TI\r\nC\r\n      DGAMR = TZERO\r\n      IF (AJHO .GT. 0.0) DGAMR = 0.0\r\n      DO 680 I = 1,4\r\n      TI(I) = TI(I) - DGAMR\r\n  680 CONTINUE\r\nC\r\nC     COMPUTE THE THEMAL LOAD IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (H,  4, 4,1, TI(1),4,1,0, TL(1))\r\n      CALL GMMATS (HTN,4,12,1, TL(1),4,1,0, D(1) )\r\nC\r\nC     TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM\r\nC     ***  COORDINATE SYSTEMS NOT POSSIBLE  *******\r\nC     ***  WITH RINGAX.  THE FOLLOWING CODE WILL IMPLEMENT IT. LRK ***\r\nC     ***  THE FOLLOWING GMMATS HAS D(20) INSTEAD OF TL(1)        ****\r\nC\r\n      CALL GMMATS (GABABQ,12,12,1, D(1),12,1,0,TL(1))\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC.    DO 750 I = 1,144\r\nC.    AKI (I) = 0.0\r\nC.750 CONTINUE\r\nC.    DO 800 I = 1,4\r\nC.    CALL GBTRAN (ICS(I),IECPT(4*I+20),D)   $ THIS IS WRONG ANYWAY\r\nC.    K = 39*(I-1) + 1\r\nC.    DO 800 J = 1,3\r\nC.    KK = K + 12*(J-1)\r\nC.    JJ = 3*(J-1) + 1\r\nC.    AKI(KK  ) = D(JJ  )\r\nC.    AKI(KK+1) = D(JJ+1)\r\nC.    AKI(KK+2) = D(JJ+2)\r\nC.800 CONTINUE\r\nC\r\nC     ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD\r\nC\r\nC.    CALL GMMATS ( AKI(1), 12, 12, 1, D(20), 12, 1, 0, TL(1) )\r\nC\r\n      DGAMR = PI\r\n      IF (AJHO .EQ. 0.0) DGAMR = 2.0*PI\r\nC\r\n      DO 850 I = 1,12\r\n      TL(I) = DGAMR*TL(I)\r\n  850 CONTINUE\r\nC\r\n      K = 0\r\n      DO 900 I = 1,4\r\n      L = IGP(I) - 1\r\n      DO 900 J = 1,3\r\n      K = K + 1\r\n      L = L + 1\r\n      PG(L) = PG(L) + TL(K)\r\n  900 CONTINUE\r\n      GO TO 950\r\nC\r\n  910 I = 37\r\n      GO TO 925\r\n  915 I = 218\r\n      GO TO 935\r\n  925 J =-30\r\n      GO TO 945\r\n  930 I = 31\r\n      GO TO 925\r\n  935 J = 30\r\n      IF (IDEL1 .EQ. IDEL2) GO TO 950\r\n      IDEL2 = IDEL1\r\n      SP(2) = JAX\r\n  945 SP(1) = IDEL1\r\n      CALL MESAGE (J,I,SP)\r\n  950 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tquads.f",
    "content": "      SUBROUTINE TQUADS (A,B)\r\nC\r\n      ENTRY TTRIAS (A,B)\r\nC     ==================\r\nC\r\nC     THESE ROUTINES DO NOT EXIST IN NASTRAN\r\nC\r\n      CALL MESAGE (-37,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trail.f",
    "content": "      SUBROUTINE TRAIL\r\nC\r\nC     MODULE TO INTERROGATE OR ALTER ANY VALUE OF A 6 WORD MATRIX\r\nC     OR TABLE TRAILER\r\nC\r\nC     DMAP CALL\r\nC\r\nC        TRAILER  DB / /*OPT*/WORD/S,N,VALUE $\r\nC\r\nC     INPUT DATA BLOCKS\r\nC\r\nC        DB - DATA BLOCK FOR WHICH TRAILER IS TO BE ALTERED OR READ\r\nC\r\nC     PARAMETERS\r\nC\r\nC        OPT   - BCD,INPUT.\r\nC                RETURN - VALUE OF SPECIFIED TRAILER WORD IS TO\r\nC                         BE RETURNED\r\nC                STORE  - VALUE OF SPECIFIED TRAILER WORD IS TO\r\nC                         CHANGED\r\nC        WORD  - INTEGER,INPUT. DESIRED WORD OF TRAILER\r\nC        VALUE - INTEGER,INPUT OR OUTPUT. LOCATION WHERE VALUED WILL\r\nC                RETURNED OR FROM WHICH REPLACEMENT VALUE WILL BE\r\nC                TAKEN.  RETURNED NEGATIVE IF DB IS PURGED.\r\nC\r\nC     FOR MATRIX DATA BLOCKS, THE TRAILER POSITIONS ARE AS FOLLOWS\r\nC\r\nC        WORD 1 - NUMBER OF COLUMNS\r\nC        WORD 2 - MUNBER OF ROWS\r\nC        WORD 3 - MATRIX FORM\r\nC        WORD 4 - TYPE OF ELEMENTS\r\nC        WORD 5 - MAXIMUM NUMBER OF NON-ZERO WORDS IN ANY ONE COLUMN\r\nC        WORD 6 - MATRIX DENSITY * 100\r\nC\r\n      EXTERNAL        LSHIFT  ,ANDF    ,ORF\r\n      INTEGER         DB      ,OPT     ,WORD     ,VALUE    ,STORE(2) ,\r\n     1                MCB(7)  ,FIAT    ,FIST     ,RETURN(2),MODNAM(2),\r\n     2                ORF     ,ANDF\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /XFIAT / FIAT(2)\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /BLANK / OPT(2)  ,WORD    ,VALUE\r\n      COMMON /SYSTEM/ IBUF    ,NOUT    ,DUM21(21),ICFIAT\r\n      DATA    STORE / 4HSTOR  ,4HE    /\r\n      DATA    RETURN/ 4HRETU  ,4HRN   /\r\n      DATA    MODNAM/ 4HTRAI  ,4HLER  /\r\nC\r\nC     GET TRAILER\r\nC\r\n      DB = 101\r\n      MCB(1) = DB\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 70\r\nC\r\nC     TEST ILLEGAL PARAMETER VALUES AND BRANCH ON OPT\r\nC\r\n      IF (WORD.LT.1 .OR. WORD.GT.6) GO TO 100\r\n      IF (OPT(1).EQ.RETURN(1) .AND. OPT(2).EQ.RETURN(2)) GO TO 10\r\n      IF (OPT(1).EQ.STORE(1)  .AND. OPT(2).EQ.STORE(2) ) GO TO 20\r\n      GO TO 300\r\nC\r\nC     RETURN OPTION\r\nC\r\n   10 VALUE = MCB(WORD+1)\r\n      RETURN\r\nC\r\nC     STORE OPTION\r\nC\r\nC     SEARCH FIST FOR THE FILE\r\nC\r\n   20 N = FIST(2)*2 + 1\r\n      DO 30 I = 3,N,2\r\n      IF (FIST(I) .NE. DB) GO TO 30\r\n      INDEX = FIST(I+1) + 1\r\n      GO TO 40\r\n   30 CONTINUE\r\n      GO TO 70\r\nC\r\nC     PACK THE TRAILER INFORMATION INTO THE REQUESTED WORD.\r\nC     MAKE SURE THE NUMBER IS POSITIVE AND .LE. 16 BITS IF ICFIAT=8\r\nC\r\n   40 IF (VALUE  .LT.  0) GO TO 200\r\n      IF (ICFIAT .EQ. 11) GO TO 60\r\n      IF (VALUE .GT. 65535) GO TO 200\r\n      IW = (WORD+1)/2 + 2\r\n      IF (WORD .EQ. (WORD/2*2)) GO TO 50\r\nC\r\nC     WORD IS ODD\r\nC\r\n      MASK = 65535\r\n      FIAT(INDEX+IW) = ORF(ANDF(FIAT(INDEX+IW),MASK),LSHIFT(VALUE,16))\r\n      RETURN\r\nC\r\nC     WORD IS EVEN\r\nC\r\n   50 MASK = LSHIFT(65535,16)\r\n      FIAT(INDEX+IW) = ORF(ANDF(FIAT(INDEX+IW),MASK),VALUE)\r\n      RETURN\r\nC\r\nC     ICFIAT = 11, TRAILER WORDS ARE NOT PACKED\r\nC\r\n   60 IW = 2\r\n      IF (WORD .GE. 4) IW = 4\r\n      FIAT(INDEX+IW+WORD) = VALUE\r\n      RETURN\r\nC\r\nC     PURGED DATA BLOCK\r\nC\r\n   70 VALUE = -1\r\n      RETURN\r\nC\r\nC     ERROR CONDITIONS\r\nC\r\n  100 WRITE  (NOUT,110) UFM,WORD\r\n  110 FORMAT (A23,' 2202.  PARAMETER, WORD, HAS ILLEGAL VALUE OF',I9)\r\n      GO TO 500\r\nC\r\n  200 WRITE  (6,210) UFM,VALUE\r\n  210 FORMAT (A23,' 2202.  PARAMETER, VALUE, HAS ILLEGAL VALUE OF',I9)\r\n      GO TO 500\r\nC\r\n  300 WRITE  (NOUT,310) UFM,OPT\r\n  310 FORMAT (A23,' 2202.  PARAMETER, OPT, HAS ILLEGAL VALUE OF ',2A4)\r\nC\r\n  500 CALL MESAGE (-37,0,MODNAM)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/traile.f",
    "content": "      COMPLEX FUNCTION TRAILE (X,J,N,P,M,BOXL)\r\nC\r\nC     ROUTINE TO FIND PHI FOR TRAILING EDGE\r\nC\r\n      DIMENSION N(1)\r\n      COMPLEX P(3,M)\r\nC\r\nC     CHECK TO SEE IF TRAILING EDGE HAS BEEN COMPUTED\r\nC\r\n      IF (N(J) .GE. 0) GO TO 300\r\n 200  TRAILE = P(1,J)\r\n      RETURN\r\nC\r\n 300  XA = X/BOXL + 0.5 - FLOAT(N(J))\r\n      IF (REAL(P(2,J)) .EQ. 0.0) GO TO 200\r\n      TRAILE = P(1,J) + XA*(P(1,J) - P(2,J))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tranem.f",
    "content": "      SUBROUTINE TRANEM (MCSID, NGRID, R, ICOMP, U, RC)\r\nC*****\r\nC     COMPUTES A STRESS TRANSFORMATION MATRIX U FOR TRIANGLES AND QUADS.\r\nC     INPUTS\r\nC        MCSID  ID OF COORDINATE SYSTEM REFERENCED ON MAT1,2 DATA CARD.\r\nC        NGRID  3 FOR TRIANGLES, 4 FOR QUADS.\r\nC        R      ARRAY OF BASIC LOCATIONS OF ELEMENT GRID PTS (3,NGRID).\r\nC     OUTPUTS\r\nC        ICOMP  1 (IF MAT X-AXIS IS USED) OR 2 (IF Y-AXIS IS USED).\r\nC        U      ARRAY (3X3) FOR TRANSFORMATION, STORED BY ROW.\r\nC        RC     BASIC LOCATION COORDINATES OF ELEMENT CENTER.\r\nC     REQUIREMENTS\r\nC        SUBROUTINE PRETRS MUST SET UP FOR TRANSS. SEE P.M. PAGE 3.4-66\r\nC*****\r\n      INTEGER ECPT(4),SUBNAM(2)\r\nC\r\n      REAL RC(3)\r\n      REAL R(9)\r\n      REAL U(9)\r\n      REAL RCENT(4)\r\nC\r\n      EQUIVALENCE  (RCENT(1), ECPT(1))\r\nC\r\n      DATA SUBNAM /4HTRAN,2HEM/\r\nC\r\nC-----------------------------------------------------------------------\r\nC\r\n      IF(NGRID .NE.3 .AND. NGRID.NE.4 )  CALL MESAGE(-61,0,SUBNAM)\r\nC*****\r\nC     FIND THE UNIT NORMAL OF THE ELEMENT\r\nC*****\r\n      I = 3*(NGRID-3)\r\n      VN1 = (R(8)-R(2))*(R(I+9)-R(6))-(R(9)-R(3))*(R(I+8)-R(5))\r\n      VN2 = (R(9)-R(3))*(R(I+7)-R(4))-(R(7)-R(1))*(R(I+9)-R(6))\r\n      VN3 = (R(7)-R(1))*(R(I+8)-R(5))-(R(8)-R(2))*(R(I+7)-R(4))\r\n      TEMP = SQRT(VN1**2+VN2**2+VN3**2)\r\n      IF(TEMP .LE. 0.0) CALL MESAGE(-61,0,SUBNAM)\r\n      VN1 = VN1 / TEMP\r\n      VN2 = VN2 / TEMP\r\n      VN3 = VN3 / TEMP\r\nC*****\r\nC     GET THE UNIT VECTORS OF MCSID AT ELEM CENTER. PUT IN U TEMPORARILY\r\nC*****\r\n      GRDS = NGRID\r\n      DO 20 IC=1,3\r\n      SUM = 0.0\r\n      DO 10 IG=1,NGRID\r\n      K = 3*IG + IC-3\r\n      SUM = SUM +R(K)\r\n   10 CONTINUE\r\n      RCENT(IC+1) = SUM / GRDS\r\n      RC(IC) = RCENT(IC+1)\r\n   20 CONTINUE\r\n      ECPT(1) = MCSID\r\n      CALL TRANSS(ECPT,U)\r\nC*****\r\nC     SELECT FIRST OR SECOND VECTOR TO PROJECT FOR ELEM-MAT X-AXIS\r\nC*****\r\n      VNDOTM=VN1*U(1)+VN2*U(4)+VN3*U(7)\r\n      IF( VNDOTM**2 .GT. 0.4) GO TO 30\r\n      ICOMP = 1\r\n      VM1 = U(1)\r\n      VM2 = U(4)\r\n      VM3 = U(7)\r\n      GO TO 40\r\n   30 CONTINUE\r\n      ICOMP = 2\r\n      VM1 = U(2)\r\n      VM2 = U(5)\r\n      VM3 = U(8)\r\n      VNDOTM = VN1*VM1+VN2*VM2+VN3*VM3\r\n   40 CONTINUE\r\nC*****\r\nC     FIND COSINE AND SINE OF ANGLE\r\nC*****\r\n      VE1 = R(4) - R(1)\r\n      VE2 = R(5) - R(2)\r\n      VE3 = R(6) - R(3)\r\n      C = VE1*(VM1-VNDOTM*VN1)\r\n     *  + VE2*(VM2-VNDOTM*VN2)\r\n     *  + VE3*(VM3-VNDOTM*VN3)\r\n      S = VE1*(VM2*VN3-VM3*VN2)\r\n     *  + VE2*(VM3*VN1-VM1*VN3)\r\n     *  + VE3*(VM1*VN2-VM2*VN1)\r\n      TEMP = SQRT(C*C+S*S)\r\n      IF(TEMP .LE. 0.0) CALL MESAGE(-61,0,SUBNAM)\r\n      C = C/TEMP\r\n      S = S/TEMP\r\nC*****\r\nC     FILL IN THE U MATRIX, ROW STORED.\r\nC*****\r\n      U(1) = C*C\r\n      U(4) = S*S\r\n      U(7) = -C*S\r\n      U(2) = U(4)\r\n      U(5) = U(1)\r\n      U(8) = -U(7)\r\n      U(3) = 2.0*U(8)\r\n      U(6) = -U(3)\r\n      U(9) = U(1)-U(4)\r\nC\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/tranp1.f",
    "content": "      SUBROUTINE TRANP1 (IN,IOUT,NSCRTH,IS1,IS2,IS3,IS4,IS5,IS6,IS7,IS8)\r\nC\r\nC     DRIVER OF THE OUT-OF-CORE MATRIX TRANSPOSE ROUTINE TRNSP\r\nC     (DTRANP IS THE TRNSP MODULE DRIVER)\r\nC\r\nC\r\n      INTEGER         SCR,NAM(2)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /TRNSPX/ IA(7),IAT(7),LCORE,NSCRH,SCR(8)\r\n      DATA    NAM   / 4HTRNS,4HP1  /\r\nC\r\n      IF (NSCRTH .GT. 8) CALL MESAGE (-37,0,NAM)\r\n      IA(1)  = IN\r\n      CALL RDTRL (IA)\r\n      IAT(1) = IOUT\r\n      IAT(2) = IA(3)\r\n      IAT(3) = IA(2)\r\n      IAT(5) = IA(5)\r\n      IAT(4) = IA(4)\r\nC\r\nC     REVERSE THE FORM OF THE LOWER AND UPPER TRIANGULAR MATRIX\r\nC\r\n      IF (IA(4) .EQ. 4) IAT(4) = 5\r\n      IF (IA(4) .EQ. 5) IAT(4) = 4\r\n      LCORE  = KORSZ(CORE)\r\n      NSCRH  = NSCRTH\r\n      SCR(1) = IS1\r\n      SCR(2) = IS2\r\n      SCR(3) = IS3\r\n      SCR(4) = IS4\r\n      SCR(5) = IS5\r\n      SCR(6) = IS6\r\n      SCR(7) = IS7\r\n      SCR(8) = IS8\r\n      CALL TRNSP  (CORE)\r\n      CALL WRTTRL (IAT)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/transp.f",
    "content": "      SUBROUTINE TRANSP (IX,X,NX,FILEA,B,SR1FIL)\r\nC\r\nC     TRANSP WILL DO AN INCORE TRANSPOSE OF THE UPPER TRIANGLE OF\r\nC     ACTIVE ELEMENTS\r\nC     (OUT-OF-CORE TRANSPOSE IS DONE BY TRNSP)\r\nC\r\n      EXTERNAL           LSHIFT    ,RSHIFT   ,ORF      ,COMPLF\r\n      INTEGER            B         ,FILEA    ,SR1FIL   ,TYPEA    ,\r\n     1                   EOL       ,SYSBUF   ,ORF      ,LSHIFT   ,\r\n     2                   NAME(2)   ,RSHIFT   ,RDP      ,EOR      ,\r\n     3                   COMPLF\r\n      DOUBLE PRECISION   DI\r\n      DIMENSION          FILEA(7)  ,IX(1)    ,III(4)   ,X(1)\r\n      COMMON   /MACHIN/  MACH      ,IHALF\r\nC     COMMON   /DESCRP/  LENGTH    ,MAJOR\r\n      COMMON   /ZNTPKX/  IA(4)     ,II       ,EOL      ,EOR\r\n      COMMON   /SYSTEM/  SYSBUF\r\n      COMMON   /NAMES /  RD        ,RDREW    ,WRT      ,WRTREW   ,\r\n     1                   REW       ,NOREW    ,EOFNRW   ,RSP      ,\r\n     2                   RDP\r\n      EQUIVALENCE        (III(3),DI)\r\n      DATA      NAME  /  4HTRAN, 4HSP   /\r\nC\r\nC\r\n      NUM   = RSHIFT(COMPLF(0),1)\r\n      IOBUF = NX - 4*SYSBUF\r\n      IFILE = FILEA(1)\r\nC\r\nC     POSITION INPUT FILE AT START OF THE UPPER TRIANGLE\r\nC\r\n      N = B + 1\r\n      CALL SKPREC (FILEA,N)\r\n      TYPEA = FILEA(5)\r\n      NCOL  = FILEA(2)\r\n      NO    = 0\r\n      ISTOR = 1\r\n      K     = 1\r\n    5 CALL INTPK (*50,FILEA(1),0,TYPEA,0)\r\n   10 CALL ZNTPKI\r\n      IF (II .GT. K) GO TO 40\r\nC\r\nC     PACK I AND J IN ONE WORD AND STORE IT AND THE NONZERO VALUE\r\nC     IN CORE\r\nC\r\n      L  = ORF(LSHIFT(II,IHALF),K+B)\r\n      NO = NO + 1\r\n      IX(ISTOR   ) = L\r\n      IX(ISTOR+ 1) = IA(1)\r\n      ISTOR = ISTOR + 2\r\n      IF (TYPEA .NE. RDP) GO TO 20\r\n      IX(ISTOR) = IA(2)\r\n      ISTOR = ISTOR + 1\r\n   20 IF (ISTOR+3 .GT. IOBUF) GO TO 230\r\n      IF (EOL) 50,10,50\r\n   40 IF (EOR .EQ. 0) CALL SKPREC (FILEA,1)\r\n   50 K = K + 1\r\n      IF (K+B .LE. NCOL) GO TO 5\r\n      CALL REWIND (FILEA(1))\r\nC\r\nC     ALL ELEMENTS ARE IN CORE.  WRITE THEM OUT IN THE TRANSPOSED ORDER\r\nC\r\n      IFILE = SR1FIL\r\n      CALL OPEN (*200,SR1FIL,IX(IOBUF),WRTREW)\r\n      INCR  = TYPEA + 1\r\n      ISTOR = ISTOR - INCR\r\n      DO 100 I = 1,NO\r\n      K = NUM\r\n      DO 90 J = 1,ISTOR,INCR\r\n      IF (IX(J) .GT. K) GO TO 90\r\n      KK = J\r\n      K  = IX(J)\r\n   90 CONTINUE\r\nC\r\nC     UNPACK I AND J, AND WRITE OUT I,J,AND A(I,J)\r\nC\r\n      III(1) = RSHIFT(K,IHALF)\r\n      III(2) = K - LSHIFT(III(1),IHALF)\r\n      IX(KK) = NUM\r\n      IF (INCR .EQ. 3) GO TO 95\r\n      DI = X(KK+1)\r\n      GO TO 96\r\n   95 III(3) = IX(KK+1)\r\n      III(4) = IX(KK+2)\r\n   96 CONTINUE\r\n      CALL WRITE (SR1FIL,III(1),4,0)\r\n      IF (KK .EQ. ISTOR) ISTOR = ISTOR - INCR\r\n  100 CONTINUE\r\nC\r\nC     WRITE A TRAILER RECORD ON THE FILE\r\nC     NOTE - FORMAL GINO FILE TRAILER IS NOT GENERATED HERE\r\nC\r\n      III(1) = -1\r\n      CALL WRITE (SR1FIL,III(1),4,0)\r\n      CALL CLOSE (SR1FIL,REW)\r\n      RETURN\r\nC\r\n  200 NO = -1\r\n      GO TO 250\r\n  230 NO = -8\r\n  250 CALL MESAGE (NO,IFILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trapad.f",
    "content": "      SUBROUTINE TRAPAD\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR\r\nC     THE ASSYMETRIC RING ELEMENT WITH A TRAPEZOIDAL CROSS SECTION\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE TRAPAX ELEMENT\r\nC\r\nC     ECPT( 1) = ELEMENT ID                                I\r\nC     ECPT( 2) = SIL A                                     I\r\nC     ECPT( 3) = SIL B                                     I\r\nC     ECPT( 4) = SIL C                                     I\r\nC     ECPT( 5) = SIL D\r\nC     ECPT( 6) = MATERIAL ORIENTATION ANGLE(DEGREES)       R\r\nC     ECPT( 8) = MATERIAL ID                               I\r\nC     ECPT( 9) TO ECPT(22) FOR PHI\r\nC     ECPT(23) = COOR. SYS. FOR GRID POINT A               I\r\nC     ECPT(24) = X-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT(25) = Z-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT(26) = 0.0\r\nC     ECPT(27) = COOR. SYS. FOR GRID POINT B\r\nC     ECPT(28) = X-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT(29) = Z-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT(30) = 0.0\r\nC     ECPT(31) = COOR. SYS. FOR GRID POINT C               I\r\nC     ECPT(32) = X-COOR. FOR GRID POINT C                  R\r\nC     ECPT(33) = Z-COOR. FOR GRID POINT C                  R\r\nC     ECPT(34) = 0.0\r\nC     ECPT(35) = COOR. SYS. FOR GRID POINT D               I\r\nC     ECPT(36) = X-COOR FOR GRID POINT D                   R\r\nC     ECPT(37) = Z-COOR FOR GRID POINT D                   R\r\nC     ECPT(38) = 0.0\r\nC     ECPT(39) = EL. TEMPERATURE FOR MATERIAL PROP         R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL          PZMAT,LSYS78,IHEAT,NOGO\r\n      INTEGER          ELID,ESTID,DICT(14),IPART(4)\r\n      DOUBLE PRECISION BMASS(12,12),BMBSS(144),ACURL(208),D(144),\r\n     1                 AK(144),AKJ(256),AKT(27),PI,TWOPI,XQ,DEGRAD,\r\n     2                 E(3),ANU(3),GB(12,12),R(4),Z(4),DELINT(12),\r\n     3                 EE(63),TEO(45),SP(36),ZMIN,GAMR,COSG,SING,V,VZ,\r\n     4                 VR,DEL,C2S2,C2,S2,C4,S4,DGAM,AJHO,AJJHO,RHOD,\r\n     5                 AR,RZINTD,RMIN,RMAX,D1(48),D2(16),GBP(4,4),\r\n     6                 ACURP1(48),ACURP2(16),AKUPH(48),AKPH2(16)\r\n      DIMENSION        IECPT(39),ICS(4),ECPT(20)\r\n      COMMON /SYSTEM/  KSYSTM(77),KSYS78,KDUM2(2),IHEAT\r\n      COMMON /EMGPRM/  DUM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/  IDM,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/  IDEL,IGP(4),DGAMA,GAM,MATID,IPHI(13),CSDAT(16),\r\n     1                 TEMPE\r\n      COMMON /CONDAD/  PI,TWOPI,XQ, DEGRAD\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  ES(3),ANUS(3),RHO,G(3),ALF(3),TZERO,GSUBE,\r\n     1                 MOSKP(9),SETMAT\r\n      COMMON /MATPZ /  PZOUT(51)\r\nC     COMMON /MATPZ /  CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,\r\nC                      CE25,CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,\r\nC                      CE55,CE56,CE66,E11,E12,E13,E14,E15,E16,E21,E22,\r\nC                      E23,E24,E25,E26,E31,E32,E33,E34,E35,E36,EPS11,\r\nC                      EPS12,EPS13,EPS22\r\nC\r\n      EQUIVALENCE      (ECPT(1),IECPT(1),IDEL),(KSYSTM(2),IOUT),\r\n     1                 (BMASS(1,1),ACURL(1),BMBSS(1)),(DICT5,DICT(5)),\r\n     2                 (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193))\r\n      DATA    IDEL2 ,  JAX /    0, 4HTRAP  /\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 =.TRUE.\r\n      IDEL1 = IDEL/1000\r\n      ISORT = 0\r\n      MASOR = 0\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO CALCULATE MASS MATRIX\r\nC\r\n      DO 50 I = 1,4\r\n      ICS(I) = IECPT(4*I+19)\r\n      R(I) = ECPT(4*I+20)\r\n      Z(I) = ECPT(4*I+21)\r\n   50 D(I) = ECPT(4*I+22)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC     NOTE THAT INTEGRATION ROUTINE FAILS FOR R = 0.0\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LE. 0.) GO TO 7770\r\n      IF (D(I) .NE. 0.) GO TO 7770\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = DMIN1(Z(1),Z(2),Z(3),Z(4))\r\n      DO  120 I = 1,4\r\n  120 Z(I) = Z(I) - ZMIN\r\nC\r\nC     FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE\r\nC\r\n      RMIN = DMIN1(R(1),R(2),R(3),R(4))\r\n      RMAX = DMAX1(R(1),R(2),R(3),R(4))\r\n      IF (RMAX/RMIN .LE. 10.D0) GO TO 206\r\n      IF (RMAX/RMIN .GT. 10.D0) GO TO 7760\r\nC\r\n  206 IF (R(1).GE.R(2) .OR. R(4).GE.R(3) .OR. Z(4).LE.Z(1)) GO TO 7770\r\n      IF (DABS(Z(1)-Z(2)) .GT. 1.0D-3) GO TO 7770\r\n      IF (DABS(Z(3)-Z(4)) .GT. 1.0D-3) GO TO 7770\r\n      D(5) = (R(1)+R(4))/2.D0\r\n      D(6) = (R(2)+R(3))/2.D0\r\n      IF (D(5) .EQ. 0.D0) GO TO 210\r\n      IF (DABS((R(1)-R(4))/D(5)) .GT. .5D-2) GO TO 210\r\n      R(1) = D(5)\r\n      R(4) = D(5)\r\n  210 CONTINUE\r\n      IF (D(6) .EQ. 0.D0) GO TO 220\r\n      IF (DABS((R(2)-R(3))/D(6)) .GT. .5D-2) GO TO 220\r\n      R(2) = D(6)\r\n      R(3) = D(6)\r\n  220 CONTINUE\r\nC\r\nC     FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID\r\nC     POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I  = 1,144\r\n  300 GB( I, 1) = 0.D0\r\n      GB( 1, 1) = 1.\r\n      GB( 2, 1) = R(1)\r\n      GB( 3, 1) = Z(1)\r\n      GB( 4, 1) = R(1)*Z(1)\r\n      GB( 5, 2) = 1.\r\n      GB( 6, 2) = R(1)\r\n      GB( 7, 2) = Z(1)\r\n      GB( 8, 2) = GB(4,1)\r\n      GB( 9, 3) = 1.\r\n      GB(10, 3) = R(1)\r\n      GB(11, 3) = Z(1)\r\n      GB(12, 3) = GB(4,1)\r\n      GB( 1, 4) = 1.\r\n      GB( 2, 4) = R(2)\r\n      GB( 3, 4) = Z(2)\r\n      GB( 4, 4) = R(2)* Z(2)\r\n      GB( 5, 5) = 1.\r\n      GB( 6, 5) = R(2)\r\n      GB( 7, 5) = Z(2)\r\n      GB( 8, 5) = GB(4,4)\r\n      GB( 9, 6) = 1.\r\n      GB(10, 6) = R(2)\r\n      GB(11, 6) = Z(2)\r\n      GB(12, 6) = GB(4,4)\r\n      GB( 1, 7) = 1.\r\n      GB( 2, 7) = R(3)\r\n      GB( 3, 7) = Z(3)\r\n      GB( 4, 7) = R(3)*Z(3)\r\n      GB( 5, 8) = 1.\r\n      GB( 6, 8) = R(3)\r\n      GB( 7, 8) = Z(3)\r\n      GB( 8, 8) = GB(4,7)\r\n      GB( 9, 9) = 1.\r\n      GB(10, 9) = R(3)\r\n      GB(11, 9) = Z(3)\r\n      GB(12, 9) = GB(4,7)\r\n      GB( 1,10) = 1.\r\n      GB( 2,10) = R(4)\r\n      GB( 3,10) = Z(4)\r\n      GB( 4,10) = R(4)*Z(4)\r\n      GB( 5,11) = 1.\r\n      GB( 6,11) = R(4)\r\n      GB( 7,11) = Z(4)\r\n      GB( 8,11) = GB(4,10)\r\n      GB( 9,12) = 1.\r\n      GB(10,12) = R(4)\r\n      GB(11,12) = Z(4)\r\n      GB(12,12) = GB(4,10)\r\nC\r\n      IF (LSYS78) GO TO 305\r\n      GBP(1,1) = 1.D0\r\n      GBP(2,1) = R(1)\r\n      GBP(3,1) = Z(1)\r\n      GBP(4,1) = R(1)*Z(1)\r\n      GBP(1,2) = 1.D0\r\n      GBP(2,2) = R(2)\r\n      GBP(3,2) = Z(2)\r\n      GBP(4,2) = R(2)*Z(2)\r\n      GBP(1,3) = 1.D0\r\n      GBP(2,3) = R(3)\r\n      GBP(3,3) = Z(3)\r\n      GBP(4,3) = R(3)*Z(3)\r\n      GBP(1,4) = 1.D0\r\n      GBP(2,4) = R(4)\r\n      GBP(3,4) = Z(4)\r\n      GBP(4,4) = R(4)*Z(4)\r\n  305 CONTINUE\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 800\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERD (12,GB,12,D(10), 0,D(11), ISING,SP)\r\n      IF (ISING .EQ. 2) GO TO 7790\r\nC\r\n      IF (KSYS78 .EQ. 1) CALL INVERD (4,GBP,4,D(10),0,D(11),ISING,SP)\r\n      IF (ISING  .EQ. 2) GO TO 7790\r\n      IF (NOGO) RETURN\r\nC\r\nC       DELINT( 1) = (-1,0)\r\nC       DELINT( 2) = (-1,1)\r\nC       DELINT( 3) = (-1,2)\r\nC       DELINT( 4) = ( 0,0)\r\nC       DELINT( 5) = ( 0,1)\r\nC       DELINT( 6) = ( 0,2)\r\nC       DELINT( 7) = ( 1,0)\r\nC       DELINT( 8) = ( 1,1)\r\nC       DELINT( 9) = ( 1,2)\r\nC       DELINT(10) = ( 2,0)\r\nC       DELINT(11) = ( 2,1)\r\nC       DELINT(12) = ( 3,0)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1, 4\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .NE. 12) GO TO 340\r\n      IP = 3\r\n      IQ = 0\r\n  340 CONTINUE\r\n      DELINT(I1) = RZINTD(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\nC\r\n      GAMR  = DGAMA*DEGRAD\r\n      COSG  = DCOS(GAMR)\r\n      SING  = DSIN(GAMR)\r\n      SINTH = SING\r\n      COSTH = COSG\r\n      CALL MAT (IDEL)\r\n      PZMAT = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 410\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 420\r\n  410 RHO    = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  420 CONTINUE\r\nC\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\nCWKBI SPR94002 5/94\r\n      DICT5 = GSUBE\r\n      IF(KSYS78  .GT. 0 ) GO TO 500\r\n      DO 450 I = 1,3\r\n      ANU(I) = ANUS(I)\r\n  450 E(I)   = ES(I)\r\n      V   = ANU(1)*E(2)/E(1)\r\n      VZ  = ANU(2)*E(3)/E(2)\r\n      VR  = ANU(3)*E(1)/E(3)\r\n      DEL = 1./(1. - V*ANU(1) - VZ*ANU(2) - VR*ANU(3) - ANU(1)*ANU(2)*\r\n     1          ANU(3) - V*VZ*VR )\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  500 CONTINUE\r\n      DO 510 I = 1,45\r\n  510 TEO(I) = 0.\r\nC\r\n      IF (KSYS78 .GT. 0) GO TO 520\r\n      TEO( 1) = E(1)*(1.- ANU(2)*VZ)*DEL\r\n      TEO( 2) = E(1)*(ANU(3)+ VZ* V)*DEL\r\n      TEO( 3) = E(3)*(1.- ANU(1)*V )*DEL\r\n      TEO( 4) = E(1)*(V + ANU(3)*ANU(2))*DEL\r\n      TEO( 5) = E(2)*(VZ +ANU(1)*ANU(3))*DEL\r\n      TEO( 6) = E(2)*(1.- VR*ANU(3))*DEL\r\n      TEO(10) = G(3)\r\n      TEO(15) = G(1)\r\n      TEO(21) = G(2)\r\n      GO TO 530\r\n  520 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\n      IF (KSYS78 .EQ. 2) GO TO 530\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  530 CONTINUE\r\nC\r\nC     MATRIX EG STORED AS FOLLOWS IN EE\r\nC      1\r\nC      2  3\r\nC      4  5  6\r\nC      7  8  9 10\r\nC     11 12 13 14 15\r\nC     16 17 18 19 20 21\r\nC\r\n      C2  = COSG*COSG\r\n      S2  = SING*SING\r\n      C4  = C2*C2\r\n      S4  = S2*S2\r\n      C2S2= C2*S2\r\n      C3  = COSG*C2\r\n      S3  = SING*S2\r\n      CS2 = COSG*S2\r\n      SC2 = SING*C2\r\n      CS  = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3)-4.0D0*TEO(10))\r\n      EE( 3) = TEO(1)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10)) + TEO(3)*C4\r\n      EE( 4) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 5) = TEO(4)*S2 + TEO(5)*C2\r\n      EE( 6) = TEO(6)\r\n      EE( 7) = COSG*SING*S2*(TEO(2)-TEO(3)+2.*TEO(10))\r\n     7       + SING*COSG*C2*(TEO(1)-TEO(2)-2.*TEO(10))\r\n      EE( 8) = SING*COSG*C2*(TEO(2)-TEO(3)+2.*TEO(10))\r\n     8       + COSG*SING*S2*(TEO(1)-TEO(2)-2.*TEO(10))\r\n      EE( 9) = SING*COSG*(TEO(4)-TEO(5))\r\n      EE(10) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(11) = 0.\r\n      EE(12) = 0.\r\n      EE(13) = 0.\r\n      EE(14) = 0.\r\n      EE(15) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(20) = COSG*SING*(TEO(15)-TEO(21))\r\n      EE(21) = TEO(15)*S2 + TEO(21)*C2\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      MJHO  = MOD(IECPT(1),1000) - 1\r\n      AJHO  = MJHO\r\n      AJJHO = AJHO*AJHO\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL( 1) = (EE(6) + AJJHO*EE(15))*DELINT(1)\r\n      ACURL( 2) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(4)\r\n      ACURL( 3) = (EE(6) + AJJHO*EE(15))*DELINT(2) + EE(9)*DELINT(4)\r\n      ACURL( 4) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) +\r\n     4            EE(9)*DELINT(7)\r\n      ACURL( 5) = AJHO*(EE(6) + EE(15))*DELINT(1)\r\n      ACURL( 6) = AJHO*EE(6)*DELINT(4)\r\n      ACURL( 7) = AJHO*(EE(6) + EE(15))*DELINT(2) -AJHO*EE(20)*DELINT(4)\r\n      ACURL( 8) = AJHO*EE(6)*DELINT(5) - AJHO*EE(20)*DELINT(7)\r\n      ACURL( 9) = AJJHO*EE(20)*DELINT(1)\r\n      ACURL(10) = DELINT(4)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(11) = DELINT(4)*EE(5) + AJJHO*DELINT(2)*EE(20)\r\n      ACURL(12) = DELINT(7)*EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20))\r\n      ACURL(14) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO*EE(15))*DELINT(7)\r\n      ACURL(15) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) +\r\n     5            (EE(7) + EE(9))*DELINT(7)\r\n      ACURL(16) = (EE(1) + 2.*EE(4) + AJJHO *EE(15) + EE(6))*DELINT(8)\r\n     6          + (EE(7) + EE(9))*DELINT(10)\r\n      ACURL(17) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(4)\r\n      ACURL(18) = AJHO*(EE(4) + EE(6))*DELINT(7)\r\n      ACURL(19) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) - AJHO*EE(20)\r\n     9          * DELINT(7)\r\n      ACURL(20) = AJHO*(EE(4) + EE(6))*DELINT(8) -AJHO*EE(20)*DELINT(10)\r\n      ACURL(21) = AJJHO*EE(20)*DELINT(4)\r\n      ACURL(22) = DELINT(7)*(EE(7)+EE(9)+AJJHO*EE(20))\r\n      ACURL(23) = DELINT(7)*(EE(2)+EE(5))+AJJHO*DELINT(5)*EE(20)\r\n      ACURL(24) = DELINT(10)*(EE(2)+EE(5))+DELINT(8)*(EE(7)+EE(9)) +\r\n     4            DELINT(8)*AJJHO*EE(20)\r\n      ACURL(27) = (EE(6) + AJJHO*EE(15))*DELINT(3)+ 2.* EE(9)*DELINT(5)\r\n     7          + EE(10)*DELINT(7)\r\n      ACURL(28) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(6)\r\n     8          + EE(10)*DELINT(10) + (EE(7) + 2.*EE(9))*DELINT(8)\r\n      ACURL(29) = AJHO*(EE(6) + EE(15))*DELINT(2) + AJHO*EE(9)*DELINT(4)\r\n      ACURL(30) = AJHO*EE(6)*DELINT(5) + AJHO*EE(9)*DELINT(7)\r\n      ACURL(31) = AJHO*(EE(6) + EE(15))*DELINT(3) + AJHO*(EE(9) -\r\n     1            EE(20))*DELINT(5)\r\n      ACURL(32) = AJHO*(EE(9) - EE(20))*DELINT(8) + AJHO*EE(6)*DELINT(6)\r\n      ACURL(33) = AJJHO*EE(20)*DELINT(2)\r\n      ACURL(34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3)*\r\n     5            EE(20)\r\n      ACURL(36) = DELINT(10)*EE(8) + DELINT(8)*(EE(5)+EE(10)) +\r\n     6            DELINT(6)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(40) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO *EE(15))*DELINT(9)\r\n     O          + (2.*EE(7) + 2.*EE(9))*DELINT(11) + EE(10)*DELINT(12)\r\n      ACURL(41) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5)\r\n     1          + AJHO*EE(9)*DELINT(7)\r\n      ACURL(42) = AJHO*(EE(4) + EE(6))*DELINT(8) + AJHO*EE(9)*DELINT(10)\r\n      ACURL(43) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(6)\r\n     3          + AJHO*(EE(9) - EE(20))*DELINT(8)\r\n      ACURL(44) = AJHO*(EE(4) + EE(6))*DELINT(9) + AJHO*(EE(9)-EE(20))\r\n     4          * DELINT(11)\r\n      ACURL(45) = AJJHO*EE(20)*DELINT(5)\r\n      ACURL(46) = DELINT(8)*(EE(7)+EE(9)+AJJHO*EE(20))+DELINT(10)*EE(10)\r\n      ACURL(47) = DELINT(8)*(EE(2)+EE(5))+DELINT(10)*EE(8) +\r\n     7            AJJHO*DELINT(6)*EE(20)\r\n      ACURL(48) = DELINT(11)*(EE(2)+EE(5)+EE(10)) + DELINT(12)*EE(8) +\r\n     8            DELINT(9)*(EE(7)+EE(9)+AJJHO*EE(20))\r\n      ACURL(53) = (EE(15) + AJJHO*EE(6))*DELINT(1)\r\n      ACURL(54) = AJJHO*EE(6)*DELINT(4)\r\n      ACURL(55) = (EE(15) + AJJHO*EE(6))*DELINT(2) - EE(20)*DELINT(4)\r\n      ACURL(56) = AJJHO*EE(6)*DELINT(5) - EE(20)*DELINT(7)\r\n      ACURL(57) = AJHO*EE(20)*DELINT(1)\r\n      ACURL(58) = AJHO*DELINT(4)*(EE(9)+EE(20))\r\n      ACURL(59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20))\r\n      ACURL(60) = AJHO*(DELINT(7)*EE(5)+DELINT(5)*(EE(9)+EE(20)))\r\n      ACURL(66) = AJJHO*EE(6)*DELINT(7)\r\n      ACURL(67) = AJJHO*EE(6)*DELINT(5)\r\n      ACURL(68) = AJJHO*EE(6)*DELINT(8)\r\n      ACURL(69) = 0.\r\n      ACURL(70) = AJHO*DELINT(7)*EE(9)\r\n      ACURL(71) = AJHO*DELINT(7)*EE(5)\r\n      ACURL(72) = AJHO*(DELINT(10)*EE(5)+DELINT(8)*EE(9))\r\n      ACURL(79) = (EE(15) + AJJHO*EE(6))*DELINT(3) - 2.*EE(20)*DELINT(5)\r\n     9          + EE(21)*DELINT(7)\r\n      ACURL(80) = AJJHO*EE(6)*DELINT(6) - EE(20)*DELINT(8)\r\n     O          + EE(21)*DELINT(10)\r\n      ACURL(81) = AJHO*(EE(20)*DELINT(2) - EE(21)*DELINT(4))\r\n      ACURL(82) = AJHO*(DELINT(5)*(EE(9)+EE(20))-DELINT(7)*EE(21))\r\n      ACURL(83) = AJHO*(DELINT(5)*(EE(5)-EE(21))+DELINT(3)*EE(20))\r\nC\r\n      IF (LSYS78) GO TO 540\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) -\r\n     7         SC2*(TEO(23)+2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) +\r\n     8         SC2*(TEO(22)-2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) -\r\n     O         SC2*(TEO(26)-2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) +\r\n     1         SC2*( TEO(25)+2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) +\r\n     6         SC2*(-TEO(32)-TEO(25)+TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) +\r\n     7         SC2*(TEO(23)+TEO(31)-TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n  540 CONTINUE\r\n      ACURL( 84) = AJHO*(DELINT(8)*(EE(5)-EE(21))+DELINT(6)*(EE(9) +\r\n     1             EE(20)))\r\n      ACURL( 92) = EE (21) * DELINT (12) + AJJHO * EE (6) * DELINT(9)\r\n      ACURL( 93) =-AJHO * EE(21) * DELINT (7)\r\n      ACURL( 94) = AJHO*(DELINT(8)*EE(9)-DELINT(10)*EE(21))\r\n      ACURL( 95) = AJHO* DELINT(8) * (EE(5)-EE(21))\r\n      ACURL( 96) = AJHO*(DELINT(11)*(EE(5)-EE(21))+DELINT(9)*EE(9))\r\n      ACURL(105) = AJJHO * EE(21) * DELINT (1)\r\n      ACURL(106) = AJJHO*DELINT(4)*EE(21)\r\n      ACURL(107) = AJJHO*DELINT(2)*EE(21)\r\n      ACURL(108) = AJJHO*DELINT(5)*EE(21)\r\n      ACURL(118) = DELINT(7)*(EE(10)+AJJHO*EE(21))\r\n      ACURL(119) = DELINT(7)*EE(8)+AJJHO*DELINT(5)*EE(21)\r\n      ACURL(120) = DELINT(10)*EE(8)+DELINT(8)*(EE(10)+AJJHO*EE(21))\r\n      ACURL(131) = DELINT(7)*EE(3)+AJJHO*DELINT(3)*EE(21)\r\n      ACURL(132) = DELINT(10)*EE(3)+DELINT(8)*EE(8)+AJJHO*DELINT(6)*\r\n     2             EE(21)\r\n      ACURL(144) = DELINT(12)*EE(3) + 2.*DELINT (11)* EE(8) +\r\n     4             DELINT(9)*(EE(10)+AJJHO*EE(21))\r\nC\r\n      IF (LSYS78) GO TO 550\r\n      ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51)-EE(45))\r\n      ACURL(146) = DELINT(4)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n      ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(4)*\r\n     7             (EE(44)-AJHO*EE(50))\r\n      ACURL(148) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     8             +DELINT(7)*(EE(44)-AJHO*EE(50))\r\n      ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))\r\n      ACURL(150) = DELINT(7)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)\r\n     O           - EE(45)-EE(39)))\r\n      ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(7)\r\n     1           * (EE(44)+EE(38)-AJHO*EE(50))\r\n      ACURL(152) = DELINT(8)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     2             EE(45)-EE(39)))+DELINT(10)*(EE(44)+EE(38)-AJHO*\r\n     2             EE(50))\r\n      ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51)-EE(45))-DELINT(4)*AJHO\r\n     3           * EE(48)\r\n      ACURL(154) = DELINT(5)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     4           + DELINT(7)*(EE(46)-AJHO*EE(48))\r\n      ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51)-EE(45))+DELINT(5)*\r\n     5             (EE(44)-AJHO*(EE(50)+EE(48)))+DELINT(7)*EE(47)\r\n      ACURL(156) = DELINT(6)*(EE(43)+AJHO*(AJHO*EE(51)-EE(49)-EE(45)))\r\n     6           + DELINT(8)*(EE(46)+EE(44)-AJHO*(EE(50)+EE(48)))+\r\n     6             DELINT(10)*EE(47)\r\n      ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))-DELINT(7)\r\n     7           * AJHO*EE(48)\r\n      ACURL(158) = DELINT(8)*(EE(43)+EE(47)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     8             EE(45)-EE(39)))-DELINT(10)*(EE(46)-AJHO*EE(48))\r\n      ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51)-EE(45)-EE(39))+DELINT(8)\r\n     9           * (EE(44)+EE(38)-AJHO*(EE(50)+EE(48)))+DELINT(10)*\r\n     9             EE(47)\r\n      ACURL(160) = DELINT(9)*(EE(43)+EE(37)+AJHO*(AJHO*EE(51)-EE(49)-\r\n     O             EE(45)-EE(39)))+DELINT(11)*(EE(46)+EE(44)+EE(38)-\r\n     O             AJHO*(EE(50)+EE(48)))+DELINT(12)*EE(47)\r\n      ACURL(161) = DELINT(1)*AJHO*(EE(51)-AJHO*EE(45))\r\n      ACURL(162) = DELINT(4)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n      ACURL(163) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(4)*\r\n     3             (AJHO*EE(44)-EE(50))\r\n      ACURL(164) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(51)))\r\n     4           + DELINT(7)*(AJHO*EE(44)-EE(50))\r\n      ACURL(165) =-DELINT(4)*AJJHO*EE(45)\r\n      ACURL(166) = DELINT(7)*AJHO*(EE(43)-AJHO*EE(45))\r\n      ACURL(167) = DELINT(7)*AJHO*EE(44)-DELINT(5)*AJJHO*EE(45)\r\n      ACURL(168) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)*\r\n     8             AJHO*EE(44)\r\n      ACURL(169) = DELINT(2)*AJHO*(EE(51)-AJHO*EE(45))-DELINT(4)*AJHO*\r\n     9             EE(54)\r\n      ACURL(170) = DELINT(5)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n     O           + DELINT(7)*(EE(52)-AJHO*EE(54))\r\n      ACURL(171) = DELINT(3)*AJHO*(EE(51)-AJHO*EE(45))+DELINT(5)*\r\n     1             (AJHO*(EE(44)-EE(54))-EE(50))+DELINT(7)*EE(53)\r\n      ACURL(172) = DELINT(6)*(-EE(49)+AJHO*(EE(51)+EE(43)-AJHO*EE(45)))\r\n     2           + DELINT(8)*(EE(52)-EE(50)+AJHO*(EE(44)-EE(54)))\r\n     2           + DELINT(10)*EE(53)\r\n      ACURL(173) =-DELINT(5)*AJJHO*EE(45)-DELINT(7)*AJHO*EE(54)\r\n      ACURL(174) = DELINT(8)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(10)*\r\n     4             (EE(54)-AJHO*EE(54))\r\n      ACURL(175) =-DELINT(6)*AJJHO*EE(45)+DELINT(8)*AJHO*(EE(44)-\r\n     5             EE(54))+DELINT(10)*EE(53)\r\n      ACURL(176) = DELINT(9)*AJHO*(EE(43)-AJHO*EE(45))+DELINT(11)*\r\n     6             (EE(52)+AJHO*(EE(44)-EE(54)))+DELINT(12)*EE(53)\r\n      ACURL(177) = DELINT(1)*AJJHO*EE(54)\r\n      ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(52))\r\n      ACURL(179) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(53)\r\n      ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))-DELINT(7)*AJHO\r\n     O           * EE(53)\r\n      ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54)-EE(48))\r\n      ACURL(182) = DELINT(7)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48)))\r\n      ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(48))+DELINT(7)*\r\n     3             (EE(47)-AJHO*EE(53))\r\n      ACURL(184) = DELINT(8)*(EE(46)+AJHO*(AJHO*EE(54)-EE(52)-EE(48)))\r\n     4           + DELINT(10)*(EE(47)-AJHO*EE(53))\r\n      ACURL(185) = DELINT(2)*AJJHO*EE(54)-DELINT(4)*AJHO*EE(42)\r\n      ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(7)*(EE(40)\r\n     6           - AJHO*EE(42))\r\n      ACURL(187) = DELINT(3)*AJJHO*EE(54)-DELINT(5)*AJHO*(EE(53)+EE(42))\r\n     7           + DELINT(7)*EE(41)\r\n      ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54)-EE(52))+DELINT(8)*\r\n     8             (EE(40)-AJHO*(EE(53)+EE(42)))+DELINT(10)*EE(41)\r\n      ACURL(189) =-DELINT(5)*AJHO*EE(48)+DELINT(4)*AJJHO*EE(54)\r\n     9           - DELINT(7)*AJHO*EE(42)\r\n      ACURL(190) = DELINT(8)*(EE(46)-AJHO*EE(48))+DELINT(7)*AJHO*\r\n     O             (AJHO*EE(54)-EE(52))+DELINT(10)*(EE(40)-AJHO*EE(42))\r\n      ACURL(191) =-DELINT(6)*AJHO*EE(48)+DELINT(5)*AJJHO*EE(54)+\r\n     1             DELINT(8)*(EE(47)-AJHO*EE(42))-DELINT(7)*AJHO*EE(53)\r\n     1           + DELINT(10)*EE(41)\r\n      ACURL(192) = DELINT(9)*(EE(46)-AJHO*EE(48))+DELINT(8)*AJHO*\r\n     2             (AJHO*EE(54)-EE(52))+DELINT(11)*(EE(47)+EE(40)-\r\n     2             AJHO*EE(42))-DELINT(10)*AJHO*EE(53)+DELINT(12)*EE(41)\r\nC\r\n      ACURL(193) = DELINT(1)*AJJHO*EE(63)\r\n      ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57))\r\n      ACURL(195) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60)\r\n      ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)*\r\n     6             AJHO*EE(60)\r\n      ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63)-EE(57))\r\n      ACURL(198) = DELINT(7)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))\r\n      ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*(EE(56)\r\n     9           - AJHO*EE(60))\r\n      ACURL(200) = DELINT(8)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))\r\n     O           + DELINT(10)*(EE(56)-AJHO*EE(60))\r\n      ACURL(201) = DELINT(2)*AJJHO*EE(63)-DELINT(4)*AJHO*EE(60)\r\n      ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(7)*\r\n     2             (EE(56)-AJHO*EE(60))\r\n      ACURL(203) = DELINT(3)*AJJHO*EE(63)-DELINT(5)*2.0*AJHO*EE(60)\r\n     3           + DELINT(7)*EE(59)\r\n      ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*\r\n     4             (EE(56)-2.0*AJHO*EE(60))+DELINT(10)*EE(59)\r\n      ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63)-EE(57))-DELINT(7)*\r\n     5             AJHO*EE(60)\r\n      ACURL(206) = DELINT(8)*(AJJHO*EE(63)-2.0*EE(57)+EE(55))+DELINT(10)\r\n     6           * (EE(56)-AJHO*EE(60))\r\n      ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63)-EE(57))+DELINT(8)*(EE(56)\r\n     7           - 2.0*AJHO*EE(60))+DELINT(10)*EE(59)\r\n      ACURL(208) = DELINT(9)*(AJJHO*EE(63)-2.0*AJHO*EE(57)+EE(55))+\r\n     8             2.0*DELINT(11)*(EE(56)-AJHO*EE(60))+DELINT(12)*EE(59)\r\n  550 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\nC     EXPAND ACURL INTO (12X12)\r\nC\r\n      DO 610 IB = 2,12\r\n      IC = 13*IB - 25\r\n      I  = IC\r\n      DO 605 J = IB,12\r\n      IC = IC + 12\r\n      I  = I  + 1\r\n  605 ACURL(IC) = ACURL(I)\r\n  610 CONTINUE\r\nC\r\n      DGAM = PI\r\n      IF (AJHO .EQ. 0.) DGAM = TWOPI\r\n      DO 630 I = 1,144\r\n      ACURL(I) = ACURL(I)*DGAM\r\n  630 CONTINUE\r\nC\r\n      IF (LSYS78) GO TO 638\r\n      DO 632 I = 145,208\r\n  632 ACURL(I) = ACURL(I)*DGAM\r\n  638 CONTINUE\r\nC\r\n      CALL GMMATD (GB,12,12,1, ACURL, 12,12,0,  D)\r\n      CALL GMMATD (D ,12,12,0, GB   , 12,12,0, AK)\r\nC\r\n      IF (LSYS78) GO TO 639\r\n      CALL GMMATD (GB,12,12,1, ACURP1,12,4,0, D1)\r\n      CALL GMMATD (D1,12,4,0, GBP,4,4,0, AKUPH)\r\n      CALL GMMATD (GBP,4,4,1, ACURP2,4,4,0, D2)\r\n      CALL GMMATD (D2,4,4,0, GBP,4,4,0, AKPH2)\r\n  639 CONTINUE\r\nC\r\n      DO 640 I = 1,256\r\n  640 AKJ(I) = 0.\r\nC\r\nC     COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX    CODE BELOW COULD\r\nC     IMPLEMENT IT.\r\nC **  IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZO-\r\nC     ELECTRIC\r\nC\r\n      I = 0\r\n      IF (I .EQ. 0) GO TO 655\r\nC**\r\nC\r\n      DO 650 I = 1,4\r\n      IF (ICS(I) .EQ. 0) GOTO 650\r\n      K  = 9*(I-1) + 1\r\n      CALL TRANSD (ICS(I),D(K))\r\n  650 CONTINUE\r\nC\r\nC     SELECT THE APPROPRIATE SUB MATRIX FOR TRANSFORMATION\r\nC\r\n      DO 690 IPP = 1,4\r\n      IR1  = 3*(IPP-1) + 1\r\n      IAPP = 9*(IPP-1) + 1\r\n      DO 680 I = 1,4\r\n      IC1  =  3*(I-1) + 1\r\n      IRC  =  (IR1-1)*12 + IC1\r\n      AKT(1) = AK(IRC   )\r\n      AKT(2) = AK(IRC+ 1)\r\n      AKT(3) = AK(IRC+ 2)\r\n      AKT(4) = AK(IRC+12)\r\n      AKT(5) = AK(IRC+13)\r\n      AKT(6) = AK(IRC+14)\r\n      AKT(7) = AK(IRC+24)\r\n      AKT(8) = AK(IRC+25)\r\n      AKT(9) = AK(IRC+26)\r\nC\r\nC     MORE COORDINATE SYSTEM CHANGE CODE\r\nC     TRANSFORM  THE STIFFNESS  SUB MATRICES  AS NECESSARY\r\nC\r\n      IAKT = 1\r\n      IF (ICS(IPP) .EQ. 0) GO TO 660\r\n      CALL GMMATD (D(IAPP), 3,3,1, AKT(1),3,3,0, AKT(10))\r\n      IAKT = 10\r\n      IF (ICS(I).EQ. 0 .AND. ICS(IPP).EQ.0) GO TO 680\r\n      GOR = G(1)\r\n  660 IF (ICS(I) .EQ.0) GO TO 670\r\n      IAI =  9*(I-1) + 1\r\n      CALL GMMATD (AKT(IAKT), 3,3,0, D(IAI), 3,3,0, AKT (IAKT+9))\r\n      IAKT = IAKT + 9\r\nC\r\nC     REPLACE THE TRANSFORMED MATRICES IN ORIGINAL MATRIX\r\nC\r\n  670 AK(IRC   ) = AKT(IAKT  )\r\n      AK(IRC+ 1) = AKT(IAKT+1)\r\n      AK(IRC+ 2) = AKT(IAKT+2)\r\n      AK(IRC+12) = AKT(IAKT+3)\r\n      AK(IRC+13) = AKT(IAKT+4)\r\n      AK(IRC+14) = AKT(IAKT+5)\r\n      AK(IRC+24) = AKT(IAKT+6)\r\n      AK(IRC+25) = AKT(IAKT+7)\r\n      AK(IRC+26) = AKT(IAKT+8)\r\nC\r\n  680 CONTINUE\r\n  690 CONTINUE\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRIDS ACCORDING TO INCREASING\r\nC     SIL  VALUE\r\n  655 CONTINUE\r\nC\r\n      ASSIGN 780 TO K OR M\r\n  700 CONTINUE\r\n      DO 705 I = 1, 4\r\n      IPART(I) = IECPT(I+1)\r\n  705 CONTINUE\r\n      I = -4\r\n  710 J = 0\r\n      DO 715 KK = 1, 4\r\n      IF (IPART(KK) .LT. J) GO TO 715\r\n      J = IPART(KK)\r\n      L = KK\r\n  715 CONTINUE\r\n      IPART(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 710\r\n      DO 720 I = 1,4\r\n      IPART(I) = -IPART(I)\r\n  720 CONTINUE\r\n      ISORT = 1\r\n      GO TO K OR M, (780,880)\r\nC\r\nC     REARRANGE  AK  INTO AKJ BY INCREASING SIL VALUE\r\nC     NOTE AKJ ALREADY INITALIZED TO ZERO\r\nC\r\n  780 DO 770 I = 1,4\r\n      IT = IPART(I)\r\n      DO 760 J = 1,4\r\n      JT = IPART(J)\r\n      DO 750 K = 1,3\r\n      DO 740 L = 1,3\r\n      IKJ = (IT-1)*64 + (JT-1)*4 + (K-1)*16 + L\r\n      IF (MASOR .EQ. 1) IKJ = (IT-1)*36 + (JT-1)*3 + (K-1)*12 + L\r\n      IK  = (I-1)*36 + (J-1) *3 +(K-1)*12 + L\r\n      AKJ(IKJ) = AK(IK)\r\nC\r\n      IF (MASOR .EQ. 1) GO TO 740\r\n      IF (LSYS78) GO TO 740\r\n      IKJA = IKJ - L + 4\r\n      IKA  = (IK-L)/3 + 1\r\n      IKJB = (JT-1)*64 + 48 + (IT-1)*4 + K\r\n      IKJC = (IT-1)*64 + 52 + (JT-1)*4\r\n      IKC  = (I-1)*4 + J\r\n      AKJ(IKJA) = AKUPH(IKA)\r\n      AKJ(IKJB) = AKUPH(IKA)\r\n      AKJ(IKJC) = AKPH2(IKC)\r\n  740 CONTINUE\r\n  750 CONTINUE\r\n  760 CONTINUE\r\n  770 CONTINUE\r\n      IF (MASOR .EQ. 1) GO TO 895\r\nC\r\nC     SET UP CONSTANTS AND OUTPUT AKJ\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 16\r\n      DICT(4) = 15\r\n      IP      = IPREC\r\n      CALL EMGOUT (AKJ,AKJ,256,1,DICT,1,IP)\r\nC\r\nC     COME HERE TO CALCULATE THE MASS  MATRIX. THIS ROUTINE WILL\r\nC     CALCULATE EITHER THE CONSISTENT OR LUMPED MASS MATRICES\r\nC     DEPENDING ON THE PARAMETER ICM BAR\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED WE HAVE ALL WE NEED FOR THE\r\nC     MASS MATRIX CALCULATIONS\r\nC\r\n  800 IF (ISMB(2).EQ.0 .AND. .NOT. PZMAT) KSYS78 = KSAVE\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      IF (ICMBAR  .LT. 0) GO TO 820\r\n      I1 = 0\r\n      DO 810 I = 1,3\r\n      IP = I\r\n      DO 810 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      DELINT(I1) = RZINTD(IP,IQ,R,Z,4)\r\n  810 CONTINUE\r\nC\r\n  820 IF (ISMB(1) .NE. 0) GO TO 830\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      GAMR   = DGAMA*DEGRAD\r\n      COSTH  = DCOS(GAMR)\r\n      SINTH  = DSIN(GAMR)\r\n      CALL MAT (IDEL)\r\n      IF (KSYS78 .GT.  0) RHO = PZOUT(46)\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\nC\r\nC     COMPUTE THE HARMONIC COEFFICIENT\r\nC\r\n  830 MJHO = MOD(IECPT(1),1000) - 1\r\n      AJHO = MJHO\r\n      RHOD = RHO*PI\r\n      IF (AJHO .EQ. 0.D0) RHOD =  2.*RHOD\r\n      IF (ICMBAR .LT.  0) GO TO 900\r\nC\r\nC     COMPUTE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES\r\nC\r\n      DO 840 I = 1,12\r\n      DO 840 J = 1,12\r\n  840 BMASS(I,J) = 0.\r\n      BMASS( 1, 1) = DELINT(1)\r\n      BMASS( 1, 2) = DELINT(4)\r\n      BMASS( 1, 3) = DELINT(2)\r\n      BMASS( 1, 4) = DELINT(5)\r\n      BMASS( 2, 2) = DELINT(7)\r\n      BMASS( 2, 3) = DELINT(5)\r\n      BMASS( 2, 4) = DELINT(8)\r\n      BMASS( 3, 3) = DELINT(3)\r\n      BMASS( 3, 4) = DELINT(6)\r\n      BMASS( 4, 4) = DELINT(9)\r\n      BMASS( 5, 5) = DELINT(1)\r\n      BMASS( 5, 6) = DELINT(4)\r\n      BMASS( 5, 7) = DELINT(2)\r\n      BMASS( 5, 8) = DELINT(5)\r\n      BMASS( 6, 6) = DELINT(7)\r\n      BMASS( 6, 7) = DELINT(5)\r\n      BMASS( 6, 8) = DELINT(8)\r\n      BMASS( 7, 7) = DELINT(3)\r\n      BMASS( 7, 8) = DELINT(6)\r\n      BMASS( 8, 8) = DELINT(9)\r\n      BMASS( 9, 9) = DELINT(1)\r\n      BMASS( 9,10) = DELINT(4)\r\n      BMASS( 9,11) = DELINT(2)\r\n      BMASS( 9,12) = DELINT(5)\r\n      BMASS(10,10) = DELINT(7)\r\n      BMASS(10,11) = DELINT(5)\r\n      BMASS(10,12) = DELINT(8)\r\n      BMASS(11,11) = DELINT(3)\r\n      BMASS(11,12) = DELINT(6)\r\n      BMASS(12,12) = DELINT(9)\r\n      DO  860 IB = 2,12\r\n      IC = 13*IB - 25\r\n      I  = IC\r\n      DO 850 J = IB,12\r\n      IC = IC + 12\r\n      I  = I+ 1\r\n  850 BMBSS(I) = BMBSS(IC)\r\n  860 CONTINUE\r\n      DO 870  I = 1,144\r\n  870 BMBSS(I) = BMBSS(I)*RHOD\r\nC\r\nC     TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO\r\nC     GRID  POINT DEGREES  OF FREEDOM\r\nC\r\n      CALL GMMATD (GB,12,12,1, BMASS,12,12,0, D)\r\n      CALL GMMATD (D ,12,12,0, GB,   12,12,0,AK)\r\n      DO 875 I = 1,256\r\n  875 AKJ(I) = 0.\r\n      IF (ISORT .EQ. 1) GO TO 880\r\n      ASSIGN 880 TO K OR M\r\n      GO TO  700\r\nC\r\nC     REARRANGE AK INTO AKJ BY INCREASING SIL VALUE\r\nC\r\n  880 MASOR = 1\r\n      GO TO 780\r\nC\r\n  895 DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) =  7\r\nCWKBD SPR94002 5/94      DICT5   =  0.\r\n      IP      = IPREC\r\nC\r\n      CALL EMGOUT (AKJ,AKJ,144,1,DICT,2,IP)\r\n      GO TO 940\r\nC\r\nC     LUMPED MASS CALCULATIONS HANDLED HERE\r\nC\r\n  900 AR = (R(1)*(Z(2)-Z(4)) + R(2)*(Z(3)-Z(1)) + R(3)*(Z(4)-Z(2)) +\r\n     1      R(4)*(Z(1)-Z(3)))/2.\r\n      AKJ(1) = RHOD*(R(1)+R(2)+R(3)+R(4))/4.*AR\r\n      AKJ(1) = AKJ(1)/4.0D0\r\n      DO 920 I = 2,12\r\n  920 AKJ(I) = AKJ(1)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\nCWKBD SPR94002 5/94      DICT5   = 0.\r\n      IP      = IPREC\r\nC\r\n      CALL EMGOUT (AKJ,AKJ,12,1,DICT,2,IP)\r\n  940 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\nC\r\nC     SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n 7760 I = 218\r\n      GO TO 7800\r\n 7770 I = 37\r\n      GO TO 7800\r\nC\r\nC     MAT2 NOT LEGAL\r\nC\r\n 7780 I = 126\r\n      GO TO 7800\r\n 7790 I =  26\r\n 7800 IF (IDEL1 .EQ. IDEL2) GO TO 7810\r\n      IDEL2  = IDEL1\r\n      ICS(1) = IDEL1\r\n      ICS(2) = JAX\r\n      CALL MESAGE (30,I,ICS)\r\n 7810 NOGO = .TRUE.\r\n      GO TO 940\r\n      END\r\n"
  },
  {
    "path": "mis/trapax.f",
    "content": "      SUBROUTINE TRAPAX\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR THE\r\nC     ASSYMETRIC RING ELEMENT WITH A TRAPEZOIDAL CROSS SECTION\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE TRAPAX ELEMENT\r\nC\r\nC     ECPT ( 1) = ELEMENT ID                                I\r\nC     ECPT ( 2) = SIL A                                     I\r\nC     ECPT ( 3) = SIL B                                     I\r\nC     ECPT ( 4) = SIL C                                     I\r\nC     ECPT ( 5) = SIL D\r\nC     ECPT ( 6) = MATERIAL ORIENTATION ANGLE(DEGREES)       R\r\nC     ECPT ( 8) = MATERIAL ID                               I\r\nC     ECPT ( 9) TO ECPT (22) FOR PHI\r\nC     ECPT (23) = COOR. SYS. FOR GRID POINT A               I\r\nC     ECPT (24) = X-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT (25) = Z-COOR. OF GRID POINT A (IN BASIC COOR)   R\r\nC     ECPT (26) = 0.0\r\nC     ECPT (27) = COOR. SYS. FOR GRID POINT B\r\nC     ECPT (28) = X-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT (29) = Z-COOR. OF GRID POINT B (IN BASIC COOR)   R\r\nC     ECPT (30) = 0.0\r\nC     ECPT (31) = COOR. SYS. FOR GRID POINT C               I\r\nC     ECPT (32) = X-COOR. FOR GRID POINT C                  R\r\nC     ECPT (33) = Z-COOR. FOR GRID POINT C                  R\r\nC     ECPT (34) = 0.0\r\nC     ECPT (35) = COOR. SYS. FOR GRID POINT D               I\r\nC     ECPT (36) = X-COOR FOR GRID POINT D                   R\r\nC     ECPT (37) = Z-COOR FOR GRID POINT D                   R\r\nC     ECPT (38) = 0.0\r\nC     ECPT (39) = EL. TEMPERATURE FOR MATERIAL PROP         R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         PZMAT,LSYS78,IHEAT,NOGO\r\n      INTEGER         ELID,ESTID,DICT(14),IPART(4)\r\n      REAL            BMASS(12,12),BMBSS(144)\r\n      REAL            ECPT(20),R(4),Z(4),DELINT(12),EE(63),TEO(45),\r\n     1                SP(36),GB(12,12),GBP(4,4)\r\n      DIMENSION       ACURL(208),D(144),AK(144),AKJ(256),ICS(4),\r\n     1                IECPT(39),D1(48),D2(16),ACURP1(48),ACURP2(16),\r\n     2                AKUPH(48),AKPH2(16)\r\nC     DIMENSION       AKT(27)\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78,KDUM2(2),IHEAT\r\n      COMMON /EMGPRM/ DUM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/ IDEL,IGP(4),DGAMA,GAM,MATID,IPHI(13),CSDAT(16),\r\n     1                TEMPE\r\n      COMMON /CONDAS/ PI,TWOPI,XQ,DEGRAD\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /MATPZ / PZOUT(51)\r\nC     COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25,\r\nC                     CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56,\r\nC                     CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25,\r\nC                     E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,\r\nC                     EPS22,\r\n      EQUIVALENCE     (KSYSTM(2),IOUT),(ECPT(1),IECPT(1),IDEL),\r\n     1                (BMASS(1,1),ACURL(1),BMBSS(1)),(DICT5,DICT(5)),\r\n     2                (ACURP1(1),ACURL(145)),(ACURP2(1),ACURL(193))\r\n      DATA    IDEL2 , JAX /    0,   4HTRAP  /\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\n      IDEL1 = IDEL/1000\r\n      ISORT = 0\r\n      MASOR = 0\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO CALCULATE MASS MATRIX\r\nC\r\n      DO 50 I = 1,4\r\n      ICS(I) = IECPT(4*I+19)\r\n      R(I) = ECPT(4*I+20)\r\n      Z(I) = ECPT(4*I+21)\r\n   50 D(I) = ECPT(4*I+22)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC     NOTE THAT INTEGRATION ROUTINE FAILS FOR R = 0.0\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LE. 0.) GO TO 7770\r\n      IF (D(I) .NE. 0.) GO TO 7770\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z(1),Z(2),Z(3),Z(4))\r\n      DO 120 I = 1,4\r\n  120 Z(I) = Z(I) - ZMIN\r\nC\r\nC     FATAL IF RATIO OF RADII IS TO LARGE FOR GUASS QUADRATURE\r\nC\r\n      RMIN = AMIN1(R(1),R(2),R(3),R(4))\r\n      RMAX = AMAX1(R(1),R(2),R(3),R(4))\r\n      IF (RMIN .EQ. 0.0) GO TO 206\r\n      IF (RMAX/RMIN .GT. 10.) GO TO 7760\r\nC\r\n  206 IF (R(1).GE.R(2) .OR. R(4).GE.R(3) .OR. Z(4).LE.Z(1)) GO TO 7770\r\n      IF (ABS(Z(1)-Z(2)) .GT. .001) GO TO 7770\r\n      IF (ABS(Z(3)-Z(4)) .GT. .001) GO TO 7770\r\n      D(5) = (R(1)+R(4))/2.\r\n      D(6) = (R(2)+R(3))/2.\r\n      IF (D(5) .EQ. 0.0) GO TO 210\r\n      IF (ABS((R(1)-R(4))/D(5)) .GT. .005) GO TO 210\r\n      R(1) = D(5)\r\n      R(4) = D(5)\r\n  210 CONTINUE\r\n      IF (D(6) .EQ. 0.0) GO TO 220\r\n      IF (ABS((R(2)-R(3))/D(6)) .GT. .005) GO TO 220\r\n      R(2) = D(6)\r\n      R(3) = D(6)\r\n  220 CONTINUE\r\nC\r\nC     FORM THE TRANSFORMMATION MATRIX(12X12) FROM FIELD COOR, TO GRID\r\nC     POINT DEGREES OF FREEDOM\r\nC\r\n      DO 300 I = 1,144\r\n  300 GB( I, 1) = 0.\r\n      GB( 1, 1) = 1.\r\n      GB( 2, 1) = R(1)\r\n      GB( 3, 1) = Z(1)\r\n      GB( 4, 1) = R(1)*Z(1)\r\n      GB( 5, 2) = 1.\r\n      GB( 6, 2) = R(1)\r\n      GB( 7, 2) = Z(1)\r\n      GB( 8, 2) = GB(4,1)\r\n      GB( 9, 3) = 1.\r\n      GB(10, 3) = R(1)\r\n      GB(11, 3) = Z(1)\r\n      GB(12, 3) = GB(4,1)\r\n      GB( 1, 4) = 1.\r\n      GB( 2, 4) = R(2)\r\n      GB( 3, 4) = Z(2)\r\n      GB( 4, 4) = R(2)*Z(2)\r\n      GB( 5, 5) = 1.\r\n      GB( 6, 5) = R(2)\r\n      GB( 7, 5) = Z(2)\r\n      GB( 8, 5) = GB(4,4)\r\n      GB( 9, 6) = 1.\r\n      GB(10, 6) = R(2)\r\n      GB(11, 6) = Z(2)\r\n      GB(12, 6) = GB(4,4)\r\n      GB( 1, 7) = 1.\r\n      GB( 2, 7) = R(3)\r\n      GB( 3, 7) = Z(3)\r\n      GB( 4, 7) = R(3)*Z(3)\r\n      GB( 5, 8) = 1.\r\n      GB( 6, 8) = R(3)\r\n      GB( 7, 8) = Z(3)\r\n      GB( 8, 8) = GB(4,7)\r\n      GB( 9, 9) = 1.\r\n      GB(10, 9) = R(3)\r\n      GB(11, 9) = Z(3)\r\n      GB(12, 9) = GB(4,7)\r\n      GB( 1,10) = 1.\r\n      GB( 2,10) = R(4)\r\n      GB( 3,10) = Z(4)\r\n      GB( 4,10) = R(4)*Z(4)\r\n      GB( 5,11) = 1.\r\n      GB( 6,11) = R(4)\r\n      GB( 7,11) = Z(4)\r\n      GB( 8,11) = GB(4,10)\r\n      GB( 9,12) = 1.\r\n      GB(10,12) = R(4)\r\n      GB(11,12) = Z(4)\r\n      GB(12,12) = GB(4,10)\r\nC\r\n      IF (LSYS78) GO TO 305\r\n      GBP(1,1) = 1.0\r\n      GBP(2,1) = R(1)\r\n      GBP(3,1) = Z(1)\r\n      GBP(4,1) = R(1)*Z(1)\r\n      GBP(1,2) = 1.0\r\n      GBP(2,2) = R(2)\r\n      GBP(3,2) = Z(2)\r\n      GBP(4,2) = R(2)*Z(2)\r\n      GBP(1,3) = 1.0\r\n      GBP(2,3) = R(3)\r\n      GBP(3,3) = Z(3)\r\n      GBP(4,3) = R(3)*Z(3)\r\n      GBP(1,4) = 1.0\r\n      GBP(2,4) = R(4)\r\n      GBP(3,4) = Z(4)\r\n      GBP(4,4) = R(4)*Z(4)\r\n  305 CONTINUE\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 800\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY\r\nC\r\n      ISING = -1\r\n      CALL INVERS (12,GB,12,D(10),0,D(11),ISING,SP)\r\n      IF (ISING .EQ. 2) GO TO 7790\r\nC\r\n      IF (KSYS78 .EQ. 1) CALL INVERS (4,GBP,4,D(10),0,D(11),ISING,SP)\r\n      IF (ISING  .EQ. 2) GOTO 7790\r\n      IF (NOGO) RETURN\r\nC\r\nC     DELINT(01) = (-1,0)\r\nC     DELINT(02) = (-1,1)\r\nC     DELINT(03) = (-1,2)\r\nC     DELINT(04) = ( 0,0)\r\nC     DELINT(05) = ( 0,1)\r\nC     DELINT(06) = ( 0,2)\r\nC     DELINT(07) = ( 1,0)\r\nC     DELINT(08) = ( 1,1)\r\nC     DELINT(09) = ( 1,2)\r\nC     DELINT(10) = ( 2,0)\r\nC     DELINT(11) = ( 2,1)\r\nC     DELINT(12) = ( 3,0)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,4\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .NE. 12)  GO TO 340\r\n      IP = 3\r\n      IQ = 0\r\n  340 CONTINUE\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\nC\r\n      GAMR   = DGAMA*DEGRAD\r\n      COSG   = COS(GAMR)\r\n      SING   = SIN(GAMR)\r\n      SINTH  = SING\r\n      COSTH  = COSG\r\n      CALL MAT (IDEL)\r\n      PZMAT  = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 410\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 420\r\n  410 RHO    = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  420 CONTINUE\r\nC\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\nCWKBI SPR94002 5/94\r\n      DICT5 = GSUBE\r\n      IF (KSYS78 .GT.  0) GO TO 500\r\n      V   = ANU(1)*E(2)/E(1)\r\n      VZ  = ANU(2)*E(3)/E(2)\r\n      VR  = ANU(3)*E(1)/E(3)\r\n      DEL = 1./(1. - V*ANU(1)  - VZ *ANU(2)- VR*ANU(3) - ANU(1)*ANU(2)*\r\n     1      ANU(3) - V*VZ*VR )\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  500 CONTINUE\r\n      DO 510 I = 1,45\r\n  510 TEO(I) = 0.\r\nC\r\n      IF (KSYS78 .GT. 0) GO TO 520\r\n      TEO( 1) = E(1)*(1. - ANU(2)*VZ)*DEL\r\n      TEO( 2) = E(1)*(ANU(3) + VZ*V)*DEL\r\n      TEO( 3) = E(3)*(1. - ANU(1)*V)*DEL\r\n      TEO( 4) = E(1)*(V  + ANU(3)*ANU(2))*DEL\r\n      TEO( 5) = E(2)*(VZ + ANU(1)*ANU(3))*DEL\r\n      TEO( 6) = E(2)*(1. - VR*ANU(3))*DEL\r\n      TEO(10) = G(3)\r\n      TEO(15) = G(1)\r\n      TEO(21) = G(2)\r\n      GO TO 530\r\n  520 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\n      IF (KSYS78 .EQ. 2) GO TO 530\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  530 CONTINUE\r\nC\r\nC     MATRIX EG STORED AS FOLLOWS IN EE\r\nC       1\r\nC      2  3\r\nC      4  5  6\r\nC      7  8  9 10\r\nC     11 12 13 14 15\r\nC     16 17 18 19 20 21\r\nC\r\n      C2  = COSG*COSG\r\n      S2  = SING*SING\r\n      C4  = C2*C2\r\n      S4  = S2*S2\r\n      C2S2= C2*S2\r\n      C3  = COSG*C2\r\n      S3  = SING*S2\r\n      CS2 = COSG*S2\r\n      SC2 = SING*C2\r\n      CS  = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2)+2.*TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3)-4.0D0*TEO(10))\r\n      EE( 3) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10))\r\n     3       + TEO(3)*C4\r\n      EE( 4) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 5) = TEO(4)*S2 + TEO(5)*C2\r\n      EE( 6) = TEO(6)\r\n      EE( 7) = COSG*SING*S2*(TEO(2)-TEO(3)+2.*TEO(10))\r\n     7       + SING*COSG*C2*(TEO(1)-TEO(2)-2.*TEO(10))\r\n      EE( 8) = SING*COSG*C2*(TEO(2)-TEO(3)+2.*TEO(10))\r\n     8       + COSG*SING*S2*(TEO(1)-TEO(2)-2.*TEO(10))\r\n      EE( 9) = SING*COSG*(TEO(4) - TEO(5))\r\n      EE(10) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(11) = 0.\r\n      EE(12) = 0.\r\n      EE(13) = 0.\r\n      EE(14) = 0.\r\n      EE(15) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(20) = COSG*SING*(TEO(15) - TEO(21))\r\n      EE(21) = TEO(15)*S2 + TEO(21)*C2\r\nC\r\n      IF (LSYS78) GO TO 540\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) -\r\n     7         SC2*(TEO(23)+2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) +\r\n     8         SC2*(TEO(22)-2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) -\r\n     O         SC2*(TEO(26)-2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) +\r\n     1         SC2*( TEO(25)+2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) +\r\n     6         SC2*(-TEO(32)-TEO(25)+TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) +\r\n     7         SC2*(TEO(23)+TEO(31)-TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n  540 CONTINUE\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      MJHO  = MOD(IECPT(1),1000) - 1\r\n      AJHO  = MJHO\r\n      AJJHO = AJHO*AJHO\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL( 1) = (EE(6) + AJJHO*EE(15))*DELINT(1)\r\n      ACURL( 2) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(4)\r\n      ACURL( 3) = (EE(6) + AJJHO*EE(15))*DELINT(2) + EE(9)*DELINT(4)\r\n      ACURL( 4) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5)\r\n     4          + EE(9)* DELINT(7)\r\n      ACURL( 5) = AJHO*(EE(6) + EE(15))*DELINT(1)\r\n      ACURL( 6) = AJHO*EE(6)*DELINT(4)\r\n      ACURL( 7) = AJHO*(EE(6) +EE(15))*DELINT(2) -AJHO*EE(20)*DELINT(4)\r\n      ACURL( 8) = AJHO*EE(6)*DELINT(5) - AJHO*EE(20)*DELINT(7)\r\n      ACURL( 9) = AJJHO*EE(20)*DELINT(1)\r\n      ACURL(10) = DELINT(4)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(11) = DELINT(4)*EE(5) + AJJHO*DELINT(2)*EE(20)\r\n      ACURL(12) = DELINT(7)*EE(5) + DELINT(5)*(EE(9)+AJJHO*EE(20))\r\n      ACURL(14) = (EE(1) + 2.*EE(4) + EE(6) + AJJHO*EE(15))*DELINT(7)\r\n      ACURL(15) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(5) + (EE(7)\r\n     5          + EE(9))*DELINT(7)\r\n      ACURL(16) = (EE(1) + 2.*EE(4) + AJJHO*EE(15) + EE(6))*DELINT(8)\r\n     6          + (EE(7) + EE(9))*DELINT(10)\r\n      ACURL(17) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(4)\r\n      ACURL(18) = AJHO*(EE(4) + EE(6))*DELINT(7)\r\n      ACURL(19) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5) - AJHO*EE(20)\r\n     9          * DELINT(7)\r\n      ACURL(20) = AJHO*(EE(4) + EE(6))*DELINT(8) -AJHO*EE(20)*DELINT(10)\r\n      ACURL(21) = AJJHO*EE(20)*DELINT(4)\r\n      ACURL(22) = DELINT(7)*(EE(7) + EE(9) + AJJHO*EE(20))\r\n      ACURL(23) = DELINT(7)*(EE(2) + EE(5)) + AJJHO*DELINT(5)*EE(20)\r\n      ACURL(24) = DELINT(10)*(EE(2) + EE(5)) + DELINT(8)*(EE(7)+EE(9))\r\n     4          + DELINT(8)*AJJHO*EE(20)\r\n      ACURL(27) = (EE(6) + AJJHO*EE(15))*DELINT(3) + 2.*EE(9)*DELINT(5)\r\n     7          + EE(10)*DELINT(7)\r\n      ACURL(28) = (EE(4) + EE(6) + AJJHO*EE(15))*DELINT(6)\r\n     8          + EE(10)*DELINT(10) + (EE(7) + 2.*EE(9))*DELINT(8)\r\n      ACURL(29) = AJHO*(EE(6) + EE(15))*DELINT(2) + AJHO*EE(9)*DELINT(4)\r\n      ACURL(30) = AJHO*EE(6)*DELINT(5) + AJHO*EE(9)*DELINT(7)\r\n      ACURL(31) = AJHO*(EE(6) + EE(15))*DELINT(3) + AJHO*(EE(9)\r\n     1          - EE(20))*DELINT(5)\r\n      ACURL(32) = AJHO*(EE(9) - EE(20))*DELINT(8) + AJHO*EE(6)*DELINT(6)\r\n      ACURL(33) = AJJHO*EE(20)*DELINT(2)\r\n      ACURL(34) = DELINT(7)*EE(10) + DELINT(5)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(35) = DELINT(7)*EE(8) + DELINT(5)*EE(5) + AJJHO*DELINT(3)\r\n     5          * EE(20)\r\n      ACURL(36) = DELINT(10)*EE(8) + DELINT(8)*(EE(5) + EE(10))\r\n     6          + DELINT(6)*(EE(9) + AJJHO*EE(20))\r\n      ACURL(40) = (EE(1) + 2.*EE(4) + EE(6)  + AJJHO*EE(15))*DELINT(9)\r\n     O          + (2.*EE(7) + 2.*EE(9))*DELINT(11) + EE(10)*DELINT(12)\r\n      ACURL(41) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(5)\r\n     1          + AJHO*EE(9)*DELINT(7)\r\n      ACURL(42) = AJHO*(EE(4) + EE(6))*DELINT(8) + AJHO*EE(9)*DELINT(10)\r\n      ACURL(43) = AJHO*(EE(4) + EE(6) + EE(15))*DELINT(6)\r\n     3          + AJHO*(EE(9) - EE(20))*DELINT(8)\r\n      ACURL(44) = AJHO*(EE(4) + EE(6))*DELINT(9) + AJHO*(EE(9) - EE(20))\r\n     4          * DELINT(11)\r\n      ACURL(45) = AJJHO*EE(20)*DELINT(5)\r\n      ACURL(46) = DELINT(8)*(EE(7) + EE(9) + AJJHO*EE(20)) + DELINT(10)\r\n     6          * EE(10)\r\n      ACURL(47) = DELINT(8)*(EE(2) + EE(5)) + DELINT(10)*EE(8)\r\n     7          + AJJHO*DELINT(6)*EE(20)\r\n      ACURL(48) = DELINT(11)*(EE(2) + EE(5) + EE(10)) + DELINT(12)*EE(8)\r\n     8          + DELINT(9)*(EE(7) + EE(9) + AJJHO*EE(20))\r\n      ACURL(53) = (EE(15) + AJJHO*EE(6))*DELINT(1)\r\n      ACURL(54) = AJJHO*EE(6)*DELINT(4)\r\n      ACURL(55) = (EE(15) + AJJHO*EE(6))*DELINT(2) - EE(20)*DELINT(4)\r\n      ACURL(56) = AJJHO*EE(6)*DELINT(5) - EE(20)*DELINT(7)\r\n      ACURL(57) = AJHO*EE(20)*DELINT(1)\r\n      ACURL(58) = AJHO*DELINT(4)*(EE(9) + EE(20))\r\n      ACURL(59) = AJHO*(DELINT(4)*EE(5) + DELINT(2)*EE(20))\r\n      ACURL(60) = AJHO*(DELINT(7)*EE(5) + DELINT(5)*(EE(9) + EE(20)))\r\n      ACURL(66) = AJJHO*EE(6)*DELINT(7)\r\n      ACURL(67) = AJJHO*EE(6)*DELINT(5)\r\n      ACURL(68) = AJJHO*EE(6)*DELINT(8)\r\n      ACURL(69) = 0.\r\n      ACURL(70) = AJHO*DELINT(7)*EE(9)\r\n      ACURL(71) = AJHO*DELINT(7)*EE(5)\r\n      ACURL(72) = AJHO*(DELINT(10)*EE(5) + DELINT(8)*EE(9))\r\n      ACURL(79) = (EE(15) + AJJHO*EE(6))*DELINT(3) - 2.*EE(20)*DELINT(5)\r\n     9          + EE(21)*DELINT(7)\r\n      ACURL(80) = AJJHO*EE(6)*DELINT(6) - EE(20)*DELINT(8)\r\n     O          + EE(21)*DELINT(10)\r\n      ACURL(81) = AJHO*(EE(20)*DELINT(2) - EE(21)*DELINT(4))\r\n      ACURL(82) = AJHO*(DELINT(5)*(EE(9) + EE(20)) - DELINT(7)*EE(21))\r\n      ACURL(83) = AJHO*(DELINT(5)*(EE(5) - EE(21)) + DELINT(3)*EE(20))\r\n      ACURL(84) = AJHO*(DELINT(8)*(EE(5) - EE(21)) + DELINT(6)*(EE(9)\r\n     4          + EE(20)))\r\n      ACURL(92) = EE(21)*DELINT(12) + AJJHO*EE(6)*DELINT(9)\r\n      ACURL(93) =-AJHO*EE(21)*DELINT(7)\r\n      ACURL(94) = AJHO*(DELINT(8)*EE(9) - DELINT(10)*EE(21))\r\n      ACURL(95) = AJHO*DELINT(8)*(EE(5) - EE(21))\r\n      ACURL(96) = AJHO*(DELINT(11)*(EE(5) - EE(21)) + DELINT(9)*EE(9))\r\n      ACURL(105) = AJJHO*EE(21)*DELINT(1)\r\n      ACURL(106) = AJJHO*DELINT(4)*EE(21)\r\n      ACURL(107) = AJJHO*DELINT(2)*EE(21)\r\n      ACURL(108) = AJJHO*DELINT(5)*EE(21)\r\n      ACURL(118) = DELINT(7)*(EE(10) + AJJHO*EE(21))\r\n      ACURL(119) = DELINT(7)*EE(8) + AJJHO*DELINT(5)*EE(21)\r\n      ACURL(120) = DELINT(10)*EE(8) + DELINT(8)*(EE(10) + AJJHO*EE(21))\r\n      ACURL(131) = DELINT(7)*EE(3) + AJJHO*DELINT(3)*EE(21)\r\n      ACURL(132) = DELINT(10)*EE(3) + DELINT(8)*EE(8) + AJJHO*DELINT(6)\r\n     2           * EE(21)\r\n      ACURL(144) = DELINT(12)*EE(3) + 2.*DELINT(11)*EE(8) + DELINT(9)\r\n     4           * (EE(10) + AJJHO*EE(21))\r\nC\r\n      IF (LSYS78) GO TO 550\r\n      ACURL(145) = DELINT(1)*AJHO*(AJHO*EE(51) - EE(45))\r\n      ACURL(146) = DELINT(4)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49)\r\n     6           - EE(45)))\r\n      ACURL(147) = DELINT(2)*AJHO*(AJHO*EE(51) - EE(45)) + DELINT(4)\r\n     7           * (EE(44) - AJHO*EE(50))\r\n      ACURL(148) = DELINT(5)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49)\r\n     8           - EE(45))) + DELINT(7)*(EE(44) - AJHO*EE(50))\r\n      ACURL(149) = DELINT(4)*AJHO*(AJHO*EE(51) - EE(45) - EE(39))\r\n      ACURL(150) = DELINT(7)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51)\r\n     O           - EE(49) - EE(45) - EE(39)))\r\n      ACURL(151) = DELINT(5)*AJHO*(AJHO*EE(51) - EE(45) - EE(39))\r\n     1           + DELINT(7)*(EE(44) + EE(38) - AJHO*EE(50))\r\n      ACURL(152) = DELINT(8)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51)\r\n     2           - EE(49) - EE(45) - EE(39))) + DELINT(10)*(EE(44)\r\n     2           + EE(38) - AJHO*EE(50))\r\n      ACURL(153) = DELINT(2)*AJHO*(AJHO*EE(51) - EE(45)) - DELINT(4)\r\n     3           * AJHO*EE(48)\r\n      ACURL(154) = DELINT(5)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49)\r\n     4           - EE(45))) + DELINT(7)*(EE(46) - AJHO*EE(48))\r\n      ACURL(155) = DELINT(3)*AJHO*(AJHO*EE(51) - EE(45)) + DELINT(5)\r\n     1           * (EE(44) - AJHO*(EE(50) + EE(48))) + DELINT(7)*EE(47)\r\n      ACURL(156) = DELINT(6)*(EE(43) + AJHO*(AJHO*EE(51) - EE(49)\r\n     6           - EE(45))) + DELINT(8)*(EE(46) + EE(44) - AJHO*(EE(50)\r\n     6           + EE(48))) + DELINT(10)*EE(47)\r\n      ACURL(157) = DELINT(5)*AJHO*(AJHO*EE(51) - EE(45) - EE(39))\r\n     7           - DELINT(7)*AJHO*EE(48)\r\n      ACURL(158) = DELINT(8)*(EE(43) + EE(47) + AJHO*(AJHO*EE(51)\r\n     8           - EE(49) - EE(45) - EE(39))) - DELINT(10)*(EE(46)\r\n     8           - AJHO*EE(48))\r\n      ACURL(159) = DELINT(6)*AJHO*(AJHO*EE(51) - EE(45) - EE(39))\r\n     9           + DELINT(8)*(EE(44) + EE(38) - AJHO*(EE(50) + EE(48)))\r\n     9           + DELINT(10)*EE(47)\r\n      ACURL(160) = DELINT(9)*(EE(43) + EE(37) + AJHO*(AJHO*EE(51)\r\n     O           - EE(49) - EE(45) - EE(39))) + DELINT(11)*(EE(46)\r\n     O           + EE(44) + EE(38) - AJHO*(EE(50) + EE(48)))\r\n     O           + DELINT(12)*EE(47)\r\n      ACURL(161) = DELINT(1)*AJHO*(EE(51) - AJHO*EE(45))\r\n      ACURL(162) = DELINT(4)*(-EE(49) + AJHO*(EE(51) + EE(43)\r\n     2           - AJHO*EE(45)))\r\n      ACURL(163) = DELINT(2)*AJHO*(EE(51) - AJHO*EE(45)) + DELINT(4)\r\n     3           * (AJHO*EE(44) - EE(50))\r\n      ACURL(164) = DELINT(5)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO\r\n     4           * EE(51))) + DELINT(7)*(AJHO*EE(44) - EE(50))\r\n      ACURL(165) =-DELINT(4)*AJJHO*EE(45)\r\n      ACURL(166) = DELINT(7)*AJHO*(EE(43) - AJHO*EE(45))\r\n      ACURL(167) = DELINT(7)*AJHO*EE(44) - DELINT(5)*AJJHO*EE(45)\r\n      ACURL(168) = DELINT(8)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(10)\r\n     8           * AJHO*EE(44)\r\n      ACURL(169) = DELINT(2)*AJHO*(EE(51) - AJHO*EE(45)) - DELINT(4)\r\n     9           * AJHO*EE(54)\r\n      ACURL(170) = DELINT(5)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO\r\n     O           * EE(45))) + DELINT(7)*(EE(52) - AJHO*EE(54))\r\n      ACURL(171) = DELINT(3)*AJHO*(EE(51) - AJHO*EE(45)) + DELINT(5)\r\n     1           * (AJHO*(EE(44) - EE(54)) - EE(50)) + DELINT(7)*EE(53)\r\n      ACURL(172) = DELINT(6)*(-EE(49) + AJHO*(EE(51) + EE(43) - AJHO\r\n     2           * EE(45))) + DELINT(8)*(EE(52) - EE(50) + AJHO\r\n     2           * (EE(44) - EE(54))) + DELINT(10)*EE(53)\r\n      ACURL(173) =-DELINT(5)*AJJHO*EE(45) - DELINT(7)*AJHO*EE(54)\r\n      ACURL(174) = DELINT(8)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(10)\r\n     4           * (EE(54) - AJHO*EE(54))\r\n      ACURL(175) =-DELINT(6)*AJJHO*EE(45) + DELINT(8)*AJHO*(EE(44)\r\n     5           - EE(54)) + DELINT(10)*EE(53)\r\n      ACURL(176) = DELINT(9)*AJHO*(EE(43) - AJHO*EE(45)) + DELINT(11)\r\n     6           * (EE(52) + AJHO*(EE(44) - EE(54))) + DELINT(12)*EE(53)\r\n      ACURL(177) = DELINT(1)*AJJHO*EE(54)\r\n      ACURL(178) = DELINT(4)*AJHO*(AJHO*EE(54) - EE(52))\r\n      ACURL(179) = DELINT(2)*AJJHO*EE(54) - DELINT(4)*AJHO*EE(53)\r\n      ACURL(180) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(52)) - DELINT(7)\r\n     O           * AJHO*EE(53)\r\n      ACURL(181) = DELINT(4)*AJHO*(AJHO*EE(54) - EE(48))\r\n      ACURL(182) = DELINT(7)*(EE(46) + AJHO*(AJHO*EE(54) - EE(52)\r\n     2           - EE(48)))\r\n      ACURL(183) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(48)) + DELINT(7)\r\n     3           * (EE(47)-AJHO*EE(53))\r\n      ACURL(184) = DELINT(8)*(EE(46) + AJHO*(AJHO*EE(54) - EE(52)\r\n     4           - EE(48))) + DELINT(10)*(EE(47) - AJHO*EE(53))\r\n      ACURL(185) = DELINT(2)*AJJHO*EE(54) - DELINT(4)*AJHO*EE(42)\r\n      ACURL(186) = DELINT(5)*AJHO*(AJHO*EE(54) - EE(52)) + DELINT(7)\r\n     6           * (EE(40) - AJHO*EE(42))\r\n      ACURL(187) = DELINT(3)*AJJHO*EE(54) - DELINT(5)*AJHO*(EE(53)\r\n     7           + EE(42)) + DELINT(7)*EE(41)\r\n      ACURL(188) = DELINT(6)*AJHO*(AJHO*EE(54) - EE(52)) + DELINT(8)\r\n     8           * (EE(40) - AJHO*(EE(53) + EE(42))) + DELINT(10)*EE(41)\r\n      ACURL(189) =-DELINT(5)*AJHO*EE(48) + DELINT(4)*AJJHO*EE(54)\r\n     9           - DELINT(7)*AJHO*EE(42)\r\n      ACURL(190) = DELINT(8)*(EE(46) - AJHO*EE(48)) + DELINT(7)*AJHO\r\n     O           * (AJHO*EE(54) - EE(52)) + DELINT(10)*(EE(40)\r\n     O           - AJHO*EE(42))\r\n      ACURL(191) =-DELINT(6)*AJHO*EE(48) + DELINT(5)*AJJHO*EE(54)\r\n     1           + DELINT(8)*(EE(47) - AJHO*EE(42)) - DELINT(7)*AJHO\r\n     1           * EE(53) + DELINT(10)*EE(41)\r\n      ACURL(192) = DELINT(9)*(EE(46) - AJHO*EE(48)) + DELINT(8)*AJHO\r\n     2           * (AJHO*EE(54) - EE(52)) + DELINT(11)*(EE(47) + EE(40)\r\n     2           - AJHO*EE(42)) - DELINT(10)*AJHO*EE(53) + DELINT(12)\r\n     2           * EE(41)\r\n      ACURL(193) = DELINT(1)*AJJHO*EE(63)\r\n      ACURL(194) = DELINT(4)*AJHO*(AJHO*EE(63) - EE(57))\r\n      ACURL(195) = DELINT(2)*AJJHO*EE(63) - DELINT(4)*AJHO*EE(60)\r\n      ACURL(196) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) - DELINT(7)\r\n     6           * AJHO*EE(60)\r\n      ACURL(197) = DELINT(4)*AJHO*(AJHO*EE(63) - EE(57))\r\n      ACURL(198) = DELINT(7)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55))\r\n      ACURL(199) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(7)\r\n     9           * (EE(56) - AJHO*EE(60))\r\n      ACURL(200) = DELINT(8)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55))\r\n     O           + DELINT(10)*(EE(56) - AJHO*EE(60))\r\n      ACURL(201) = DELINT(2)*AJJHO*EE(63) - DELINT(4)*AJHO*EE(60)\r\n      ACURL(202) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(7)\r\n     2           * (EE(56) - AJHO*EE(60))\r\n      ACURL(203) = DELINT(3)*AJJHO*EE(63) - DELINT(5)*2.0*AJHO*EE(60)\r\n     3           + DELINT(7)*EE(59)\r\n      ACURL(204) = DELINT(6)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(8)\r\n     4           * (EE(56) - 2.0*AJHO*EE(60)) + DELINT(10)*EE(59)\r\n      ACURL(205) = DELINT(5)*AJHO*(AJHO*EE(63) - EE(57)) - DELINT(7)\r\n     5           * AJHO*EE(60)\r\n      ACURL(206) = DELINT(8)*(AJJHO*EE(63) - 2.0*EE(57) + EE(55))\r\n     6           + DELINT(10)*(EE(56) - AJHO*EE(60))\r\n      ACURL(207) = DELINT(6)*AJHO*(AJHO*EE(63) - EE(57)) + DELINT(8)\r\n     7           * (EE(56) - 2.0*AJHO*EE(60)) + DELINT(10)*EE(59)\r\n      ACURL(208) = DELINT(9)*(AJJHO*EE(63) - 2.0*AJHO*EE(57) + EE(55))\r\n     8           + 2.0*DELINT(11)*(EE(56) - AJHO*EE(60)) + DELINT(12)\r\n     8           * EE(59)\r\n  550 CONTINUE\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\nC     EXPAND ACURL INTO (12X12)\r\nC\r\n      DO 610 IB = 2,12\r\n      IC = 13*IB - 25\r\n      I  = IC\r\n      DO 605 J = IB,12\r\n      IC = IC + 12\r\n      I  = I  + 1\r\n  605 ACURL(IC) = ACURL(I)\r\n  610 CONTINUE\r\nC\r\n      DGAMA = PI\r\n      IF (AJHO .EQ. 0.) DGAMA = TWOPI\r\n      DO 630 I = 1,144\r\n      ACURL(I) = ACURL(I)*DGAMA\r\n  630 CONTINUE\r\nC\r\n      IF (LSYS78) GO TO 638\r\n      DO 632 I = 145,208\r\n  632 ACURL(I) = ACURL(I)*DGAMA\r\n  638 CONTINUE\r\nC\r\n      CALL GMMATS (GB,12,12,1, ACURL,12,12,0, D )\r\n      CALL GMMATS (D ,12,12,0, GB   ,12,12,0, AK)\r\nC\r\n      IF (LSYS78) GO TO 639\r\n      CALL GMMATS (GB,12,12,1, ACURP1,12,4,0, D1)\r\n      CALL GMMATS (D1,12,4,0, GBP,4,4,0, AKUPH)\r\n      CALL GMMATS (GBP,4,4,1, ACURP2,4,4,0, D2)\r\n      CALL GMMATS (D2,4,4,0, GBP,4,4,0, AKPH2)\r\n  639 CONTINUE\r\nC\r\n      DO 640 I = 1,256\r\n  640 AKJ(I) = 0.\r\n      GO TO 655\r\nC\r\nC     COORDINATE SYSTEMS NOT POSSIBLE WITH RINGAX  CODE BELOW COULD\r\nC     IMPLEMENT IT.\r\nC\r\nC     IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR\r\nC     PIEZOELECTRIC\r\nC\r\nC     DO 650 I = 1,4\r\nC     IF (ICS(I) .EQ. 0) GOTO 650\r\nC     K = 9*(I-1) + 1\r\nC     CALL TRANSS (ICS(I),D(K))\r\nC 650 CONTINUE\r\nC\r\nC     SELECT THE APPROPRIATE SUB MATRIX FOR TRANSFORMATION\r\nC\r\nC     DO 690 IPP = 1,4\r\nC     IR1 = 3*(IPP-1) + 1\r\nC     IAPP= 9*(IPP-1) + 1\r\nC     DO 680 I = 1,4\r\nC     IC1 = 3*(I-1) + 1\r\nC     IRC = (IR1-1)*12 + IC1\r\nC     AKT(1) = AK(IRC   )\r\nC     AKT(2) = AK(IRC+ 1)\r\nC     AKT(3) = AK(IRC+ 2)\r\nC     AKT(4) = AK(IRC+12)\r\nC     AKT(5) = AK(IRC+13)\r\nC     AKT(6) = AK(IRC+14)\r\nC     AKT(7) = AK(IRC+24)\r\nC     AKT(8) = AK(IRC+25)\r\nC     AKT(9) = AK(IRC+26)\r\nC\r\nC     MORE COORDINATE SYSTEM CHANGE CODE\r\nC\r\nC     TRANSFORM THE STIFFNESS  SUB MATRICES  AS NECESSARY\r\nC\r\nC     IAKT = 1\r\nC     IF (ICS(IPP) .EQ. 0) GO TO 660\r\nC     CALL GMMATS (D(IAPP),3,3,1, AKT(1),3,3,0, AKT(10))\r\nC     IAKT = 10\r\nC     IF (ICS(I).EQ.0 .AND. ICS(IPP).EQ.0) GO TO 680\r\nC 660 IF (ICS(I) .EQ.0) GO TO 670\r\nC     IAI = 9*(I-1) + 1\r\nC     CALL GMMATS (AKT(IAKT),3,3,0, D(IAI),3,3,0, AKT(IAKT+9))\r\nC     IAKT = IAKT + 9\r\nC\r\nC     REPLACE THE TRANSFORMED MATRICES IN ORIGINAL MATRIX\r\nC\r\nC 670 AK(IRC   ) = AKT(IAKT  )\r\nC     AK(IRC+ 1) = AKT(IAKT+1)\r\nC     AK(IRC+ 2) = AKT(IAKT+2)\r\nC     AK(IRC+12) = AKT(IAKT+3)\r\nC     AK(IRC+13) = AKT(IAKT+4)\r\nC     AK(IRC+14) = AKT(IAKT+5)\r\nC     AK(IRC+24) = AKT(IAKT+6)\r\nC     AK(IRC+25) = AKT(IAKT+7)\r\nC     AK(IRC+26) = AKT(IAKT+8)\r\nC\r\nC 680 CONTINUE\r\nC 690 CONTINUE\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRIDS ACCORDING TO INCREASING\r\nC     SIL VALUE\r\nC\r\n  655 CONTINUE\r\nC\r\n      ASSIGN 780 TO K OR M\r\n  700 CONTINUE\r\n      DO 705 I = 1,4\r\n      IPART(I) = IECPT(I+1)\r\n  705 CONTINUE\r\n      I = -4\r\n  710 J = 0\r\n      DO 715 KK = 1,4\r\n      IF (IPART(KK) .LT. J) GO TO 715\r\n      J = IPART(KK)\r\n      L = KK\r\n  715 CONTINUE\r\n      IPART(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 710\r\n      DO 720 I = 1,4\r\n      IPART(I) = -IPART(I)\r\n  720 CONTINUE\r\n      ISORT = 1\r\n      GO TO K OR M, (780,880)\r\nC\r\nC     REARRANGE  AK  INTO AKJ BY INCREASING SIL VALUE\r\nC     NOTE AKJ ALREADY INITALIZED TO ZERO\r\nC\r\n  780 DO 770 I = 1,4\r\n      IT = IPART(I)\r\n      DO 760 J = 1,4\r\n      JT = IPART(J)\r\n      DO 750 K = 1,3\r\n      DO 740 L = 1,3\r\n      IKJ = (IT-1)*64 + (JT-1)*4 + (K-1)*16 + L\r\n      IF (MASOR .EQ. 1) IKJ = (IT-1)*36 + (JT-1)*3 + (K-1)*12 + L\r\n      IK  = (I-1)*36 + (J-1) *3 +(K-1)*12 + L\r\n      AKJ(IKJ) = AK(IK)\r\nC\r\n      IF (MASOR .EQ. 1) GO TO 740\r\n      IF (LSYS78) GO TO 740\r\n      IKJA = IKJ - L + 4\r\n      IKA  = (IK-L)/3 + 1\r\n      IKJB = (JT-1)*64 + 48 + (IT-1)*4 + K\r\n      IKJC = (IT-1)*64 + 52 + (JT-1)*4\r\n      IKC  = (I-1)*4 + J\r\n      AKJ(IKJA) = AKUPH(IKA)\r\n      AKJ(IKJB) = AKUPH(IKA)\r\n      AKJ(IKJC) = AKPH2(IKC)\r\n  740 CONTINUE\r\n  750 CONTINUE\r\n  760 CONTINUE\r\n  770 CONTINUE\r\n      IF (MASOR .EQ. 1) GO TO 895\r\nC\r\nC     SET UP CONSTANTS AND OUTPUT AKJ\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 16\r\n      DICT(4) = 15\r\nCWKBD SPR94002 5/94      DICT5   =  GSUBE\r\n      IP      = IPREC\r\n      CALL EMGOUT (AKJ,AKJ,256,1,DICT,1,IP)\r\nC\r\nC    COME HERE TO CALCULATE THE MASS  MATRIX. THIS ROUTINE WILL\r\nC    CALCULATE EITHER THE CONSISTENT OR LUMPED MASS MATRICES\r\nC    DEPENDING ON THE PARAMETER ICM BAR\r\nC\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED WE HAVE ALL WE NEED FOR THE\r\nC     MASS MATRIX CALCULATIONS\r\n  800 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      IF (ICMBAR  .LT. 0) GO TO 820\r\n      I1 = 0\r\n      DO 810 I = 1,3\r\n      IP = I\r\n      DO 810 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  810 CONTINUE\r\nC\r\n  820 IF (ISMB(1) .NE. 0) GO TO 830\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      GAMR   = DGAMA*DEGRAD\r\n      COSTH  = COS(GAMR)\r\n      SINTH  = SIN(GAMR)\r\n      CALL MAT (IDEL)\r\n      IF (KSYS78 .GT.  0) RHO = PZOUT(46)\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\nC\r\nC     COMPUTE THE HARMONIC COEFFICIENT\r\nC\r\n  830 MJHO = MOD(IECPT(1),1000) - 1\r\n      AJHO = MJHO\r\n      RHOD = RHO*PI\r\n      IF (AJHO  .EQ. 0.) RHOD = 2.*RHOD\r\n      IF (ICMBAR .LT. 0) GO TO 900\r\nC\r\nC     COMPUTE THE CONSISTENT MASS MATRIX IN FIELD COORDINATES\r\nC\r\n      DO 840 I = 1,144\r\n  840 BMASS( I, 1) = 0.\r\n      BMASS( 1, 1) = DELINT(1)\r\n      BMASS( 1, 2) = DELINT(4)\r\n      BMASS( 1, 3) = DELINT(2)\r\n      BMASS( 1, 4) = DELINT(5)\r\n      BMASS( 2, 2) = DELINT(7)\r\n      BMASS( 2, 3) = DELINT(5)\r\n      BMASS( 2, 4) = DELINT(8)\r\n      BMASS( 3, 3) = DELINT(3)\r\n      BMASS( 3, 4) = DELINT(6)\r\n      BMASS( 4, 4) = DELINT(9)\r\n      BMASS( 5, 5) = DELINT(1)\r\n      BMASS( 5, 6) = DELINT(4)\r\n      BMASS( 5, 7) = DELINT(2)\r\n      BMASS( 5, 8) = DELINT(5)\r\n      BMASS( 6, 6) = DELINT(7)\r\n      BMASS( 6, 7) = DELINT(5)\r\n      BMASS( 6, 8) = DELINT(8)\r\n      BMASS( 7, 7) = DELINT(3)\r\n      BMASS( 7, 8) = DELINT(6)\r\n      BMASS( 8, 8) = DELINT(9)\r\n      BMASS( 9, 9) = DELINT(1)\r\n      BMASS( 9,10) = DELINT(4)\r\n      BMASS( 9,11) = DELINT(2)\r\n      BMASS( 9,12) = DELINT(5)\r\n      BMASS(10,10) = DELINT(7)\r\n      BMASS(10,11) = DELINT(5)\r\n      BMASS(10,12) = DELINT(8)\r\n      BMASS(11,11) = DELINT(3)\r\n      BMASS(11,12) = DELINT(6)\r\n      BMASS(12,12) = DELINT(9)\r\n      DO 860 IB = 2,12\r\n      IC = 13*IB - 25\r\n      I  = IC\r\n      DO 850 J = IB,12\r\n      IC = IC + 12\r\n      I  = I + 1\r\n  850 BMBSS(I) = BMBSS(IC)\r\n  860 CONTINUE\r\n      DO 870 I = 1,144\r\n  870 BMBSS(I) = BMBSS(I)*RHOD\r\nC\r\nC     TRANSFORM THE ELEMENT MASS MATRIX FROM FIELD COORDINATES TO\r\nC     GRID  POINT DEGREES  OF FREEDOM\r\nC\r\n      CALL GMMATS (GB,12,12,1, BMASS,12,12,0, D)\r\n      CALL GMMATS (D ,12,12,0, GB,12,12,0, AK)\r\n      DO 875 I = 1,256\r\n  875 AKJ(I) = 0.\r\n      IF (ISORT .EQ. 1) GO TO 880\r\n      ASSIGN 880 TO K OR M\r\n      GO TO  700\r\nC\r\nC     REARRANGE AK INTO AKJ BY INCREASING SIL VALUE\r\nC\r\n  880 MASOR = 1\r\n      GO TO 780\r\nC\r\n  895 DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) =  7\r\nCWKBD SPR94002 5/94      DICT5   =  0.\r\n      IP      = IPREC\r\nC\r\n      CALL EMGOUT (AKJ,AKJ,144,1,DICT,2,IP)\r\n      GO TO 940\r\nC\r\nC\r\nC     LUMPED MASS CALCULATIONS HANDLED HERE\r\nC\r\n  900 AR = (R(1)*(Z(2)-Z(4)) + R(2)*(Z(3)-Z(1)) + R(3)*(Z(4)-Z(2)) +\r\n     1      R(4)*(Z(1)-Z(3)))/2.\r\n      AKJ(1) = RHOD*(R(1) + R(2) + R(3) + R(4))/4.*AR\r\n      AKJ(1) = AKJ(1)/4.0\r\n      DO 920 I = 2,12\r\n  920 AKJ(I) = AKJ(1)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\nCWKBD SPR94002 5/94      DICT5   = 0.\r\n      IP      = IPREC\r\nC\r\n      CALL EMGOUT (AKJ,AKJ,12,1,DICT,2,IP)\r\n  940 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\nC\r\nC     SET FATAL ERROR FLAG AND ALLOWING ERROR MESSAGES TO ACCUMULATE\r\nC\r\n 7760 I = 218\r\n      GO TO 7800\r\n 7770 I = 37\r\n      GO TO 7800\r\nC\r\nC     MAT2 NOT LEGAL\r\nC\r\n 7780 I = 126\r\n      GO TO 7800\r\n 7790 I =  26\r\n 7800 IF (IDEL1 .EQ. IDEL2) GO TO 7810\r\n      IDEL2  = IDEL1\r\n      ICS(1) = IDEL1\r\n      ICS(2) = JAX\r\n      CALL MESAGE (30,I,ICS)\r\n 7810 NOGO = .TRUE.\r\n      GO TO 940\r\n      END\r\n"
  },
  {
    "path": "mis/trbsc.f",
    "content": "      SUBROUTINE TRBSC (IOPT,TI)\r\nC\r\nC     ELEMENT THERMAL LOADING ROUTINE FOR THE BASIC BENDING TRIANGLE.\r\nC\r\nC       IOPT = 0    (BASIC BENDING TRIANGLE)\r\nC       IOPT = 1    (SUB-CALCULATIONS FOR SQDPL1)\r\nC       IOPT = 2    (SUB-CALCULATIONS FOR STRPL1)\r\nC\r\nC\r\nC     ECPT LIST FOR BASIC BENDING TRIANGLE           NAME IN\r\nC                                                    THIS\r\nC     ECPT                                           ROUTINE    TYPE\r\nC     --------   ---------------------------------   --------  -------\r\nC     ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC     ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC     ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC     ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC     ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC     ECPT( 6) = MATERIAL ID 1                       MATID1    INTEGER\r\nC     ECPT( 7) = I = MOMENT OF INERTIA               EYE       REAL\r\nC     ECPT( 8) = MATERIAL ID 2                       MATID2    INTEGER\r\nC     ECPT( 9) = T2                                  T2        REAL\r\nC     ECPT(10) = NON-STRUCTURAL-MASS                 FMU       REAL\r\nC     ECPT(11) = Z1                                  Z11       REAL\r\nC     ECPT(12) = Z2                                  Z22       REAL\r\nC     ECPT(13) = COORD. SYSTEM ID 1                  NECPT(13) INTEGER\r\nC     ECPT(14) = X1                                  X1        REAL\r\nC     ECPT(15) = Y1                                  Y1        REAL\r\nC     ECPT(16) = Z1                                  Z1        REAL\r\nC     ECPT(17) = COORD. SYSTEM ID 2                  NECPT(17) INTEGER\r\nC     ECPT(18) = X2                                  X2        REAL\r\nC     ECPT(19) = Y2                                  Y2        REAL\r\nC     ECPT(20) = Z2                                  Z2        REAL\r\nC     ECPT(21) = COORD. SYSTEM ID 3                  NECPT(21) INTEGER\r\nC     ECPT(22) = X3                                  X3        REAL\r\nC     ECPT(23) = Y3                                  Y3        REAL\r\nC     ECPT(24) = Z3                                  Z3        REAL\r\nC     ECPT(25) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB\r\n      REAL            KS,TI(6),KHI,G2X2(4),J2X2(4),S(18),ECPT(25),G(9),\r\n     1                HIC(18),HIB(18),TITE(18),T(9),HINV(36)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHA1,ALPHA2,ALP12,\r\n     1                T SUB 0, G SUB E,SIGTEN,SIGCOM,SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\n      COMMON /SSGWRK/ A(225),XSUBB,XSUBC,YSUBC,E(18),TEMP,XBAR,AREA,\r\n     1                XCSQ,YBAR2,YCSQ,YBAR,XBSQ,PX2,XCYC,PY2,PXY2,XBAR3,\r\n     2                YBAR3,DETERM,PROD9(9),TEMP9(9),NSIZED,DUMDUM(4),\r\n     3                NPIVOT,THETA ,NSUBC,ISING,SUBSCA,SUBSCB,NERROR,\r\n     4                NBEGIN,NTYPED,XC,YC,YC2,YC3,ISUB,XC3,DUM55(1)\r\n      COMMON /TRIMEX/ NECPT(1),NGRID(3),ANGLE,MATID1,EYE,MATID2,T2,FMU,\r\n     1                Z11,Z22,DUMMY1,X1,Y1,Z1,DUMMY2,X2,Y2,Z2,DUMMY3,\r\n     2                X3,Y3,Z3\r\n      COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(6)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(G(1),A(79)),(ECPT(1),NECPT(1)),\r\n     1                (G2X2(1),A(88)),(S(1),A(55)),(TITE(1),A(127)),\r\n     2                (J2X2(1),A(92)),(T(1),A(118)),(HIB(1),A(109)),\r\n     3                (HIC(1),A(127)),(HINV(1),A(73))\r\nC\r\n      IF (IOPT .GT. 0) GO TO 30\r\n      ELTEMP = ECPT(25)\r\nC\r\nC     SET UP  I, J, K VECTORS STORING AS FOLLOWS AND ALSO CALCULATE\r\nC     X-SUB-B, X-SUB-C, AND Y-SUB-C.\r\nC\r\nC     E(11), E(14), E(17) WILL BE THE I-VECTOR.\r\nC     E(12), E(15), E(18) WILL BE THE J-VECTOR.\r\nC     E( 1), E( 4), E( 7) WILL BE THE K-VECTOR.\r\nC\r\nC     FIND I-VECTOR = RSUBB - RUBA (NON-NORMALIZED)\r\n      E(11) = X2 - X1\r\n      E(14) = Y2 - Y1\r\n      E(17) = Z2 - Z1\r\nC\r\nC     FIND LENGTH = X-SUB-B COOR. IN ELEMENT SYSTEM\r\nC\r\n      XSUBB = SQRT(E(11)**2 + E(14)**2 + E(17)**2)\r\n      IF (XSUBB .GT. 1.0E-06) GO TO 10\r\n      CALL MESAGE (-30,37,ECPT(1))\r\nC\r\nC     NORMALIZE I-VECTOR WITH X-SUB-B\r\nC\r\n   10 E(11) = E(11)/XSUBB\r\n      E(14) = E(14)/XSUBB\r\n      E(17) = E(17)/XSUBB\r\nC\r\nC     TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN E(2), E(5), E(8)\r\nC\r\n      E(2) = X3 - X1\r\n      E(5) = Y3 - Y1\r\n      E(8) = Z3 - Z1\r\nC\r\nC     X-SUB-C = I . (RSUBC - RSUBA), THUS\r\nC\r\n      XSUBC = E(11)*E(2) + E(14)*E(5) + E(17)*E(8)\r\nC\r\nC     CROSSING I-VECTOR TO (RSUBC - RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(1) = E(14)*E( 8) - E( 5)*E(17)\r\n      E(4) = E( 2)*E(17) - E(11)*E( 8)\r\n      E(7) = E(11)*E( 5) - E( 2)*E(14)\r\nC\r\nC     FIND LENGTH = Y-SUB-C COOR. IN ELEMENT SYSTEM\r\nC\r\n      YSUBC = SQRT(E(1)**2 + E(4)**2 + E(7)**2)\r\n      IF (YSUBC .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE (-30,37,ECPT(1))\r\nC\r\nC     NORMALIZE K-VECTOR WITH Y-SUB-C\r\nC\r\n   20 E(1) = E(1)/YSUBC\r\n      E(4) = E(4)/YSUBC\r\n      E(7) = E(7)/YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS GET -- J = K CROSS I\r\nC\r\n      E(12) = E( 4)*E(17) - E(14)*E( 7)\r\n      E(15) = E(11)*E( 7) - E( 1)*E(17)\r\n      E(18) = E( 1)*E(14) - E(11)*E( 4)\r\nC\r\nC     NORMALIZE J-VECTOR FOR COMPUTER EXACTNESS JUST TO MAKE SURE\r\nC\r\n      TEMP  =  SQRT(E(12)**2 + E(15)**2 + E(18)**2)\r\n      E(12) = E(12)/TEMP\r\n      E(15) = E(15)/TEMP\r\n      E(18) = E(18)/TEMP\r\n      E( 2) = 0.0\r\n      E( 3) = 0.0\r\n      E( 5) = 0.0\r\n      E( 6) = 0.0\r\n      E( 8) = 0.0\r\n      E( 9) = 0.0\r\n      E(10) = 0.0\r\n      E(13) = 0.0\r\n      E(16) = 0.0\r\nC\r\nC     CONVERT ANGLE FROM DEGREES TO RADIANS STORING IN THETA.\r\nC\r\n      THETA = ANGLE*DEGRA\r\n      SINTH = SIN(THETA)\r\n      COSTH = COS(THETA)\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     SETTING UP G MATRIX\r\nC\r\n   30 MATID  = MATID1\r\n      INFLAG = 2\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     COMPUTATION OF D = I.G-MATRIX (EYE IS INPUT FROM THE ECPT)\r\nC\r\n      DO 50 I = 1,9\r\n   50 D(I) = G(I)*EYE\r\nC\r\n      XBAR = (XSUBB + XSUBC)/3.0\r\n      YBAR = YSUBC/3.0\r\n      XC   = XBAR\r\n      YC   = YBAR\r\nC\r\nC     FORMING K  5X6\r\nC              S\r\nC\r\n      XC3    = 3.0*XC\r\n      YC3    = 3.0*YC\r\n      YC2    = 2.0*YC\r\n      KS( 1) = D(1)\r\n      KS( 2) = D(3)\r\n      KS( 3) = D(2)\r\n      KS( 4) = D(1)*XC3\r\n      KS( 5) = D(2)*XC + D(3)*YC2\r\n      KS( 6) = D(2)*YC3\r\n      KS( 7) = D(2)\r\n      KS( 8) = D(6)\r\n      KS( 9) = D(5)\r\n      KS(10) = D(2)*XC3\r\n      KS(11) = D(5)*XC + D(6)*YC2\r\n      KS(12) = D(5)*YC3\r\n      KS(13) = D(3)\r\n      KS(14) = D(9)\r\n      KS(15) = D(6)\r\n      KS(16) = D(3)*XC3\r\n      KS(17) = D(6)*XC + D(9)*YC2\r\n      KS(18) = D(6)*YC3\r\nC\r\nC     ROWS 4 AND 5\r\nC\r\n      KS(19) = 0.0\r\n      KS(20) = 0.0\r\n      KS(21) = 0.0\r\n      KS(22) =-D(1)*6.0\r\n      KS(23) =-D(2)*2.0 - D(9)*4.0\r\n      KS(24) =-D(6)*6.0\r\n      KS(25) = 0.0\r\n      KS(26) = 0.0\r\n      KS(27) = 0.0\r\n      KS(28) =-D(3)*6.0\r\n      KS(29) =-D(6)*6.0\r\n      KS(30) =-D(5)*6.0\r\nC\r\nC     MULTIPLY FIRST 3 ROWS BY 2.0\r\nC\r\n      DO 70 I = 1,18\r\n   70 KS(I) = KS(I)*2.0\r\nC\r\nC     MULTIPLY KS BY THE AREA\r\nC\r\n      AREA = XSUBB*YSUBC/2.0\r\n      DO 75 I = 1,30\r\n   75 KS(I) = KS(I)*AREA\r\nC\r\n      XCSQ = XSUBC**2\r\n      YCSQ = YSUBC**2\r\n      XBSQ = XSUBB**2\r\n      XCYC = XSUBC*YSUBC\r\nC\r\nC     F1LL  (HBAR) MATRIX STORING AT A(37) THRU A(72)\r\nC\r\n      DO 90 I = 37,72\r\n   90 A(I) = 0.0\r\nC\r\n      A(37) = XBSQ\r\n      A(40) = XBSQ*XSUBB\r\n      A(44) = XSUBB\r\n      A(49) =-2.0*XSUBB\r\n      A(52) =-3.0*XBSQ\r\n      A(55) = XCSQ\r\n      A(56) = XCYC\r\n      A(57) = YCSQ\r\n      A(58) = XCSQ*XSUBC\r\n      A(59) = YCSQ*XSUBC\r\n      A(60) = YCSQ*YSUBC\r\n      A(62) = XSUBC\r\n      A(63) = YSUBC*2.0\r\n      A(65) = XCYC *2.0\r\n      A(66) = YCSQ *3.0\r\n      A(67) =-2.0*XSUBC\r\n      A(68) =-YSUBC\r\n      A(70) =-3.0*XCSQ\r\n      A(71) =-YCSQ\r\nC\r\n      IF (T2 .EQ. 0.0) GO TO 110\r\nC\r\nC     ALL OF THE FOLLOWING OPERATIONS THROUGH STATEMENT LABEL 500\r\nC     ARE NECESSARY IF T2 IS NON-ZERO.\r\nC\r\nC     GET THE G2X2 MATRIX\r\nC\r\n      MATID  = MATID2\r\n      INFLAG = 3\r\n      CALL MAT (ECPT(1))\r\n      IF (G2X211.EQ.0.0 .AND. G2X212.EQ.0.0 .AND. G2X222.EQ.0.0)\r\n     1    GO TO 110\r\n      G2X2(1) = G2X211*T2\r\n      G2X2(2) = G2X212*T2\r\n      G2X2(3) = G2X212*T2\r\n      G2X2(4) = G2X222*T2\r\nC\r\n      DETERM  = G2X2(1)*G2X2(4) - G2X2(3)*G2X2(2)\r\n      J2X2(1) = G2X2(4)/DETERM\r\n      J2X2(2) =-G2X2(2)/DETERM\r\n      J2X2(3) =-G2X2(3)/DETERM\r\n      J2X2(4) = G2X2(1)/DETERM\r\nC\r\nC     (H  ) IS PARTITIONED INTO A LEFT AND RIGHT PORTION AND ONLY THE\r\nC       YQ  RIGHT PORTION IS COMPUTED AND USED AS A  (2X3). THE LEFT\r\nC           2X3 PORTION IS NULL.  THE RIGHT PORTION WILL BE STORED AT\r\nC           A(73) THRU A(78) UNTIL NOT NEEDED ANY FURTHER.\r\nC\r\n      TEMP  =  2.0*D(2) + 4.0*D(9)\r\n      A(73) = -6.0*(J2X2(1)*D(1) + J2X2(2)*D(3))\r\n      A(74) = -J2X2(1)*TEMP + 6.0*J2X2(2)*D(6)\r\n      A(75) = -6.0*(J2X2(1)*D(6) + J2X2(2)*D(5))\r\n      A(76) = -6.0*(J2X2(2)*D(1) + J2X2(4)*D(3))\r\n      A(77) = -J2X2(2)*TEMP + 6.0*J2X2(4)*D(6)\r\n      A(78) = -6.0*(J2X2(2)*D(6) + J2X2(4)*D(5))\r\nC\r\nC     THE ABOVE 6 ELEMENTS NOW REPRESENT THE (H  ) MATRIX (2X3)\r\nC                                              YQ\r\nC\r\nC     ADD TO 6 OF THE (HBAR) ELEMENTS THE RESULT OF(H  )(H  )\r\nC                                                    UY   YQ\r\nC     THE PRODUCT IS FORMED DIRECTLY IN THE ADDITION PROCESS BELOW.\r\nC     NO (H  ) MATRIX IS ACTUALLY COMPUTED DIRECTLY.\r\nC          UY\r\nC\r\nC     THE FOLLOWING IS THEN PER STEPS 6 AND 7 PAGE -16- MS-17.\r\nC\r\n      DO 100 I = 1,3\r\n      A(I+39) = A(I+39) + XSUBB*A(I+72)\r\n  100 A(I+57) = A(I+57) + XSUBC*A(I+72) + YSUBC*A(I+75)\r\nC\r\nC     THIS ENDS ADDED COMPUTATION FOR CASE OF T2 NOT ZERO\r\nC\r\n  110 CONTINUE\r\nC\r\nC     AT THIS POINT INVERT  (H) WHICH IS STORED AT A(37) THRU A(72)\r\nC     STORE INVERSE BACK IN A(37) THRU A(72)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (6,A(37),6,A(73),0,DETERM,ISING,A(79))\r\nC\r\nC     CHECK TO SEE IF H WAS SINGULAR\r\nC\r\n      IF (ISING .NE. 2) GO TO 120\r\nC\r\nC     ISING = 2 IMPLIES SINGULAR MATRIX THUS ERROR CONDITION.\r\nC\r\n      CALL MESAGE (-30,38,ECPT(1))\r\nC\r\nC     SAVE H-INVERSE IF TRI-PLATE IS CALLING\r\nC\r\n  120 DO 130 I = 1,36\r\n  130 HINV(I) = A(I+36)\r\nC\r\nC     FILL  S-MATRIX, EQUIVALENCED TO A(55).  (6X3)\r\nC\r\n      S( 1) = 1.0\r\n      S( 2) = 0.0\r\n      S( 3) =-XSUBB\r\n      S( 4) = 0.0\r\n      S( 5) = 1.0\r\n      S( 6) = 0.0\r\n      S( 7) = 0.0\r\n      S( 8) = 0.0\r\n      S( 9) = 1.0\r\n      S(10) = 1.0\r\n      S(11) = YSUBC\r\n      S(12) =-XSUBC\r\n      S(13) = 0.0\r\n      S(14) = 1.0\r\n      S(15) = 0.0\r\n      S(16) = 0.0\r\n      S(17) = 0.0\r\n      S(18) = 1.0\r\nC\r\nC     COMPUTE  S , S ,  AND S    NO TRANSFORMATIONS\r\nC               A   B        C\r\nC\r\nC                -1\r\nC     S  = - K  H  S ,   S  = K  H   ,   S  = K  H\r\nC      A      S           B    S  IB      C    S  IC\r\nC\r\nC     S   COMPUTATION.\r\nC      A\r\nC\r\n      CALL GMMATS (HINV(1),6,6,0, S(1),6,3,0, A(16))\r\nC\r\nC     DIVIDE  H-INVERSE INTO A LEFT 6X3 AND RIGHT 6X3 PARTITION.\r\nC\r\n      I = 0\r\n      J =-6\r\n  150 J = J + 6\r\n      K = 0\r\n  160 K = K + 1\r\n      I = I + 1\r\n      ISUB = J + K\r\n      HIB(I) = HINV(ISUB    )\r\n      HIC(I) = HINV(ISUB + 3)\r\n      IF (K .LT.  3) GO TO 160\r\n      IF (J .LT. 30) GO TO 150\r\nC\r\n      CALL GMMATS (KS(1),5,6,0, A(16),6,3,0, A(1))\r\nC\r\nC     MULTIPLY S SUB A BY (-1)\r\nC\r\n      DO 170 I = 1,15\r\n  170 A(I) = -A(I)\r\nC\r\nC     S  COMPUTATION\r\nC      B\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIB,6,3,0, A(16))\r\nC\r\nC     S  COMPUTATION\r\nC      C\r\nC\r\n      CALL GMMATS (KS,5,6,0, HIC,6,3,0, A(31))\r\nC\r\nC     RETURN IF TRI OR QUAD PLATE ROUTINE IS CALLING.\r\nC\r\n      IF (IOPT .GT. 0) RETURN\r\nC\r\nC     FILL KHI   (5 X 1)\r\nC             E\r\nC\r\nC     THE N FACTOR = 1.0 FOR THE BASIC BENDING TRIANGLE.\r\nC\r\n      CALL SSGKHI (TI(1),TI(1),1.0)\r\nC\r\nC                                   T\r\nC     TRANSFORM  S , S , S  WITH   E  T  , I = A,B,C\r\nC                 A   B   C            I\r\nC\r\nC                              T         T\r\nC     COMPUTING TRANSPOSE OF  E  T  =  T  E\r\nC                                 I     I\r\nC\r\n      DO 200 I=1,3\r\nC\r\nC     POINTER TO S MATRIX = 15 * I - 14\r\nC                 I\r\nC\r\nC     CHECK TO SEE IF T IS NEEDED.\r\nC\r\n      IF (NECPT(4*I+9)) 180,190,180\r\n  180 CALL GBTRAN (NECPT(4*I+9),NECPT(4*I+10),T(1))\r\n      CALL GMMATS (T,3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T,3,3,1, E(10),3,3,0, TITE(10))\r\n      CALL GMMATS (A(15*I-14),5,3,0, TITE,6,3,1, KS(1))\r\n      GO TO 195\r\n  190 CALL GMMATS (A(15*I-14),5,3,0, E,6,3,1, KS(1))\r\nC\r\nC     COMPUTE THE LOAD VECTOR AND INSERT IT INTO OPEN CORE\r\nC\r\n  195 CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1))\r\n      K = NGRID(I) - 1\r\n      DO 196 J = 1,6\r\n      K = K + 1\r\n  196 Z(K) = Z(K) + P(J)\r\n  200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trbscd.f",
    "content": "      SUBROUTINE TRBSCD\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR\r\nC     THE BASIC BENDING TRIANGLE.  THE MASS MATRIX MAY BE CALCULATED\r\nC     EITHER BY THE CONVENTIONAL OR THE CONSISTENT MASS METHODS (USING\r\nC     EMASTQ OR INCLUDED CODE) ACCORDING TO THE PARAMETER ICMBAR.\r\nC     THIS ELEMENT MAY NOT BE USED IN A HEAT PROBLEM.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THIS ELEMENT\r\nC\r\nC     INDEX  NAME      TYPE      DESCRIPTION\r\nC     ----- -------    ----    ------------------\r\nC      1    IELID        I     ELEMENT ID\r\nC      2    NGRID(1)     I     FIRST GRID POINT\r\nC      3    NGRID(2)     I     SECOND GRID POINT\r\nC      4    NGRID(3)     I     THIRD GRID POINT\r\nC      5    ANGLE        R     ANGLE OF MATERIAL\r\nC      6    MATID1       I     MATERIAL ID 1\r\nC      7    EYE          R     MOMENT OF INERTIA\r\nC      8    MATID2       I     MATERIAL ID 2\r\nC      9    T2           R     T2\r\nC     10    FMU          R     NON-STRUCTURAL MASS\r\nC     11    Z11          R     Z1\r\nC     12    Z22          R     Z2\r\nC     13    NECPT(13)    I     COORD  SYSTEM ID 1\r\nC     14    X1           R\r\nC     15    Y1           R     COORDINATES\r\nC     16    Z1           R\r\nC     17    NECPT(17)    I     COORD SYSTEM ID 2\r\nC     18    X2           R\r\nC     19    Y2           R     COORDINATES\r\nC     20    Z2           R\r\nC     21    NECPT(21)    I     COORD SYSTEM ID 3\r\nC     22    X3           R\r\nC     23    Y3           R     COORDINATES\r\nC     24    Z3           R\r\nC     25    ELTEMP       R     ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          IHEAT,NOGO\r\n      INTEGER          ELID,ESTID,DICT(9),IPART(3),NECPT(25)\r\n      REAL             ECPT(25)\r\n      DOUBLE PRECISION A,PROD,TEMP9,XSUBB,SXUBC,YSUBC,BFACT,E,KOUT\r\n     1,                KK,KSAV,M(324),MOUT(324)\r\n      COMMON /EMGPRM/  IXTR,JCORE,NCORE,DM(12),ISMB(3),IPREC,NOGO,HEAT,\r\n     1                 ICMBAR\r\n      COMMON /EMGDIC/  QQ,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/  IELID,NGRID(3)\r\n      COMMON /EMGTRX/  A(225),PROD(9),TEMP9(9),XSUBB,SXUBC,YSUBC,BFACT,\r\n     1                 E(18),KOUT(324),KK(324),KSAV(81)\r\n      COMMON /SYSTEM/  KSYSTM(60)\r\n      EQUIVALENCE      (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT),\r\n     1                 (ECPT(1),NECPT(1),IELID),(DICT5,DICT(5)),\r\n     2                 (KK(1),MOUT(1)),(KOUT(1),M(1))\r\n      DATA    IPART /  1,2,3 /\r\nC\r\n      IP = IPREC\r\nC\r\nC     IF THIS IS A HEAT PROBLEM THIS SHOULD NOT CALL US, SO RETURN\r\nC\r\n      IF (IHEAT) RETURN\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRID POINTS IN INCREASING  SIL\r\nC     ORDER\r\nC\r\n  100 DO 120 I = 1,2\r\n      IP1 = I + 1\r\n      II = IPART(I)\r\n      DO 110 J = IP1,3\r\n      JJ = IPART(J)\r\n      IF (NGRID(II) .LE. NGRID(JJ)) GO TO 110\r\n      IPART(I) = JJ\r\n      IPART(J) = II\r\n      II = JJ\r\n      GO TO 100\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX IS DESIRED CALL ETRBKD, OTHERWISE ONLY MASS\r\nC     MATRIX IS DESIRED\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 200\r\nC\r\n      CALL ETRBKD (0)\r\n      IF (NOGO) RETURN\r\n      DICT5 = BFACT\r\nC\r\nC     RE ORDER THE MATRIX BY INCREASING SIL VALUE.    NOTE THAT\r\nC\r\nC     KK  = KK(1 TO  9)     KK   = KK(10 TO 18)     KK   = KK(19 TO  27)\r\nC       AA                    AB                      AC\r\nC\r\nC     KK  = KK(28 TO  36)  KK   = KK(37 TO  45)   KK   =  KK(46 TO  54)\r\nC       BA                   BB                     BC\r\nC\r\nC     KK  = KK(55 TO  63)  KK   = KK(64 TO  72)   KK  =  KK(73 TO  81)\r\nC       CA                   CB                     CC\r\nC\r\nC     AND\r\nC\r\nC     KOUT  = KOUT(1 - 36) KOUT  = KOUT( 4 - 6)   KOUT  = KOUT( 7 -  9)\r\nC         I I    (10 - 12)     I I     (13 - 15)      I I     (16 - 18)\r\nC          1 1   (19 - 21)      1 2    (22- 24)        1 3    (25 - 27)\r\nC\r\nC     ETC\r\nC\r\nC\r\n      DO 170 I = 1,3\r\n      II = IPART(I)\r\n      DO 160 J = 1,3\r\n      JJ = IPART(J)\r\n      DO 150 K = 1,3\r\n      DO 140 L = 1,3\r\n      IK   = (II-1)*27 + (JJ-1)*9 + (K-1)*3 + L\r\n      IOUT = (I -1)*27 + (J -1)*3 + (K-1)*9 + L\r\n  140 KOUT(IOUT) = KK(IK)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n  170 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 9\r\n      DICT(4) = 4 + 8 + 16\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,81,1,DICT,1,IP)\r\nC\r\nC     NOW CALCULATE THE MASS MATRIX IF NEEDED\r\nC\r\n  200 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\nC     WHICH MASS METHOD TO BE USED (CONVENTIONAL OR CONSISTENT)\r\nC\r\n      IF (ICMBAR .GE. 0) GO TO 300\r\nC\r\n      CALL EMADTQ (3,M)\r\nC\r\nC     REORDER THE DIAGONAL MASS MATRIX\r\nC\r\n      DO 240 I = 1,3\r\n      II = (I-1)*3 + 1\r\n      IJ = IPART(I)\r\n      JJ = (IJ-1)*3 + 1\r\n      DO 220 J = 1,3\r\n      IOUT = II + J - 1\r\n      IK   = JJ + J - 1\r\n  220 MOUT(IOUT) = M(IK)\r\n  240 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\nC\r\n      CALL EMGOUT (MOUT,MOUT,9,1,DICT,2,IP)\r\nC\r\n      RETURN\r\nC\r\nC     THE COUPLED MASS MATRIX CALCULATIONS ARE MADE HERE VIA ETRBMD\r\nC\r\n  300 CALL ETRBMD\r\n      IF (NOGO) RETURN\r\nC\r\nC     INSERT THE MATRICES INTO THE OUTPUT MATRIX IN INCREASING SIL ORDER\r\nC\r\n      DO 550 I = 1,3\r\n      II = IPART(I)\r\n      DO 550 J = 1,3\r\n      JJ = IPART(J)\r\n      DO 550 K = 1,3\r\n      DO 550 L = 1,3\r\n      IA   = (II-1)*36 + (JJ-II)*9 + (K-1)*3 + L\r\n      IOUT = (I -1)*27 + (J - 1)*3 + (K-1)*9 + L\r\n  550 MOUT(IOUT) = M(IA)\r\nC\r\nC     NOW OUTPUT THE MASS MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 9\r\n      DICT(4) = 4 + 8 + 16\r\nC\r\n      CALL EMGOUT (MOUT,MOUT,81,1,DICT,2,IP)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trbscs.f",
    "content": "      SUBROUTINE TRBSCS\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR\r\nC     THE BASIC BENDING TRIANGLE.  THE MASS MATRIX MAY BE CALCULATED\r\nC     EITHER BY THE CONVENTIONAL OR THE CONSISTENT MASS METHODS (USING\r\nC     EMASTQ OR INCLUDED CODE) ACCORDING TO THE PARAMETER ICMBAR.\r\nC     THIS ELEMENT MAY NOT BE USED IN A HEAT PROBLEM.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THIS ELEMENT\r\nC\r\nC     INDEX  NAME      TYPE      DESCRIPTION\r\nC     ----- ---------  ----   --------------------\r\nC      1    IELID        I     ELEMENT ID\r\nC      2    NGRID(1)     I     FIRST GRID POINT\r\nC      3    NGRID(2)     I     SECOND GRID POINT\r\nC      4    NGRID(3)     I     THIRD GRID POINT\r\nC      5    ANGLE        R     ANGLE OF MATERIAL\r\nC      6    MATID1       I     MATERIAL ID 1\r\nC      7    EYE          R     MOMENT OF INERTIA\r\nC      8    MATID2       I     MATERIAL ID 2\r\nC      9    T2           R     T2\r\nC     10    FMU          R     NON-STRUCTURAL MASS\r\nC     11    Z11          R     Z1\r\nC     12    Z22          R     Z2\r\nC     13    NECPT(13)    I     COORD  SYSTEM ID 1\r\nC     14    X1           R\r\nC     15    Y1           R     COORDINATES\r\nC     16    Z1           R\r\nC     17    NECPT(17)    I     COORD SYSTEM ID 2\r\nC     18    X2           R\r\nC     19    Y2           R     COORDINATES\r\nC     20    Z2           R\r\nC     21    NECPT(21)    I     COORD SYSTEM ID 3\r\nC     22    X3           R\r\nC     23    Y3           R     COORDINATES\r\nC     24    Z3           R\r\nC     25    ELTEMP       R     ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL         IHEAT,NOGO\r\n      INTEGER         ELID,ESTID,DICT(9),IPART(3),NECPT(25)\r\n      REAL            ECPT(25),KK,KOUT,M(324),MOUT(324)\r\n      COMMON /EMGPRM/ IXTR,JCORE,NCORE,DM(12),ISMB(3),IPREC,NOGO,HEAT,\r\n     1                ICMBAR\r\n      COMMON /EMGDIC/ QQ,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/ IELID,NGRID(3)\r\n      COMMON /EMGTRX/ A(225),PROD(9),TEMP9(9),XSUBB,SXUBC,YSUBC,BFACT,\r\n     1                E(18),KOUT(324),KK(324),KSAV(81)\r\n      COMMON /SYSTEM/ KSYSTM(60)\r\n      EQUIVALENCE     (KSYSTM(2),IOUTPT),(KSYSTM(56),IHEAT),\r\n     1                (ECPT(1),NECPT(1),IELID),(DICT5,DICT(5)),\r\n     2                (KK(1),MOUT(1)),(KOUT(1),M(1))\r\n      DATA    IPART / 1,2,3/\r\nC\r\n      IP = IPREC\r\nC\r\nC     IF THIS IS A HEAT PROBLEM THIS SHOULD NOT CALL US, SO RETURN\r\nC\r\n      IF (IHEAT) RETURN\r\nC\r\nC     CREATE AN ARRAY POINTING TO THE GRID POINTS IN INCREASING  SIL\r\nC     ORDER\r\nC\r\n  100 DO 120 I = 1,2\r\n      IP1 = I + 1\r\n      II  = IPART(I)\r\n      DO 110 J = IP1,3\r\n      JJ  = IPART(J)\r\n      IF (NGRID(II) .LE. NGRID(JJ)) GO TO 110\r\n      IPART(I) = JJ\r\n      IPART(J) = II\r\n      II = JJ\r\n      GO TO 100\r\n  110 CONTINUE\r\n  120 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX IS DESIRED CALL ETRBKS, OTHERWISE ONLY MASS\r\nC     MATRIX IS DESIRED\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 200\r\nC\r\n      CALL ETRBKS (0)\r\n      IF (NOGO) RETURN\r\n      DICT5 = BFACT\r\nC\r\nC     RE ORDER THE MATRIX BY INCREASING SIL VALUE.    NOTE THAT\r\nC\r\nC     KK  = KK(1 TO  9)     KK   = KK(10 TO 18)     KK   = KK(19 TO  27)\r\nC       AA                    AB                      AC\r\nC\r\nC     KK  = KK(28 TO  36)  KK   = KK(37 TO  45)   KK   =  KK(46 TO  54)\r\nC       BA                   BB                     BC\r\nC\r\nC     KK  = KK(55 TO  63)  KK   = KK(64 TO  72)   KK  =  KK(73 TO  81)\r\nC       CA                   CB                     CC\r\nC\r\nC     AND\r\nC\r\nC     KOUT  = KOUT(1 - 36) KOUT  = KOUT( 4 - 6)   KOUT  = KOUT( 7 -  9)\r\nC         I I    (10 - 12)     I I     (13 - 15)      I I     (16 - 18)\r\nC          1 1   (19 - 21)      1 2    (22- 24)        1 3    (25 - 27)\r\nC\r\nC     ETC\r\nC\r\nC\r\n      DO 170 I = 1,3\r\n      II = IPART(I)\r\n      DO 160 J = 1,3\r\n      JJ = IPART(J)\r\n      DO 150 K = 1,3\r\n      DO 140 L = 1,3\r\n      IK   = (II-1)*27 + (JJ-1)*9 + (K-1)*3 + L\r\n      IOUT = (I -1)*27 + (J -1)*3 + (K-1)*9 + L\r\n  140 KOUT(IOUT) = KK(IK)\r\n  150 CONTINUE\r\n  160 CONTINUE\r\n  170 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 9\r\n      DICT(4) = 4 + 8 + 16\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,81,1,DICT,1,IP)\r\nC\r\nC     NOW CALCULATE THE MASS MATRIX IF NEEDED\r\nC\r\n  200 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\nC     WHICH MASS METHOD TO BE USED (CONVENTIONAL OR CONSISTENT)\r\nC\r\n      IF (ICMBAR .GE. 0) GO TO 300\r\nC\r\n      CALL EMASTQ (3,M)\r\nC\r\nC     REORDER THE DIAGONAL MASS MATRIX\r\nC\r\n      DO 240 I = 1,3\r\n      II = (I-1)*3 + 1\r\n      IJ = IPART(I)\r\n      JJ = (IJ-1)*3 + 1\r\n      DO 220 J = 1,3\r\n      IOUT = II + J - 1\r\n      IK   = JJ + J - 1\r\n  220 MOUT(IOUT) = M(IK)\r\n  240 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\nC\r\n      CALL EMGOUT (MOUT,MOUT,9,1,DICT,2,IP)\r\nC\r\n      RETURN\r\nC\r\nC     THE COUPLED MASS MATRIX CALCULATIONS ARE MADE HERE VIA ETRBMS\r\nC\r\n300   CALL ETRBMS\r\n      IF (NOGO) RETURN\r\nC\r\nC     INSERT THE MATRICES INTO THE OUTPUT MATRIX IN INCREASING SIL ORDER\r\nC\r\n      DO 550 I = 1,3\r\n      II = IPART(I)\r\n      DO 550 J = 1,3\r\n      JJ = IPART(J)\r\n      DO 550 K = 1,3\r\n      DO 550 L = 1,3\r\n      IA   = (II-1)*36 + (JJ-II)*9 + (K-1)*3 + L\r\n      IOUT = (I -1)*27 + (J - 1)*3 + (K-1)*9 + L\r\n550   MOUT(IOUT) = M(IA)\r\nC\r\nC     NOW OUTPUT THE MASS MATRIX\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 9\r\n      DICT(4) = 4 + 8 + 16\r\nC\r\n      CALL EMGOUT (MOUT,MOUT,81,1,DICT,2,IP)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trd.f",
    "content": "      SUBROUTINE TRD\r\nC\r\nC     TRANSIENT RESPONSE MODULE DRIVER\r\nC\r\nC     INPUTS   CASEXX,     TRL,NLFT,DIT,KHH,BHH,MHH,PH\r\nC              CASEXX,     TRL,NLFT,DIT,KDD,BDD,MDD,PD\r\nC\r\nC     OUTPUTS  UDVT,PNLD\r\nC              UHVT,PNLH\r\nC\r\nC     PARAMETERS -- MODAL --BCD--INPUT--MODAL=MODAL IMPLIES MODAL\r\nC                   NOUE  --INT--INPUT--NUMBER OF EXTRA POINTS\r\nC                   NONCUP--INT--INPUT--NONCUP=-1 IMPLIES NONCOUPLED\r\nC                   NCOL  --INT--IN/OUT--APPEND FLAG 0  NO APPEND\r\nC                                                    +  COL NUMBER OF\r\nC                                                        LAST TIME STEP\r\nC\r\nC     SCRATCHES   --\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\nC\r\n      INTEGER            CASEXX    ,TRL      ,NLFT     ,DIT      ,\r\n     1                   KDD       ,BDD      ,MDD      ,PD       ,\r\n     1                   UDVT      ,PNLD     ,MODAL(2) ,SCR1     ,\r\n     1                   SCR2      ,SCR3     ,SCR4     ,SCR5     ,\r\n     1                   SCR6      ,SCR7     ,SCR8     ,\r\n     1                   SR1       ,SR2      ,SR3      ,SR4      ,\r\n     1                   SR5       ,SR6      ,NAME(2)  ,\r\n     1                   IZ(1)\r\nC\r\n      COMMON /BLANK/  MODAL     ,NOUE     ,NONCUP   ,NCOL\r\n      COMMON/SYSTEM/IBUF, IDUMMY(53), IPREC\r\n      COMMON   /ZZZZZZ /  Z(1)\r\n      COMMON   /TRDXX /  IK(7)     ,IM(7)    ,IB(7)    ,SR1      ,\r\n     1                   SR2       ,SR3      ,SR4      ,SR5      ,\r\n     2                   SR6       ,IOPEN    ,ISYM     ,TO       ,\r\n     3                   NOPD      ,ISPNL\r\nC\r\n      EQUIVALENCE        ( Z(1)    ,IZ(1))\r\nC\r\n      DATA               CASEXX    ,TRL      ,NLFT     ,DIT      /\r\n     1                   101       ,102      ,103      ,104      /\r\n     1                   ,KDD      ,BDD      ,MDD      ,PD       /\r\n     1                   105       ,106      ,107      ,108      /\r\n     1                   ,UDVT     ,PNLD     ,SCR1     ,SCR2     /\r\n     1                   201       ,202      ,301      ,302      /\r\n     1                   ,SCR3     ,SCR4     ,SCR5     ,SCR6     /\r\n     1                   303       ,304      ,305      ,306      /\r\n     1                   ,SCR7     ,SCR8     ,         MODA      /\r\n     1                   307       ,308      ,         4HMODA    /\r\n     1                   ,NAME               /\r\n     1                   4HTRD     ,4H       /\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC     INITIALIZE\r\nC\r\n      MODA1 = -1\r\n      IF ( MODA .EQ. MODAL(1)) MODA1 = 1\r\nC\r\nC     BUILD INITIAL CONDITIONS\r\nC\r\n      IF (IPREC.EQ.1)\r\n     1CALL TRD1A  (CASEXX, TRL, SCR1, NLFTP, NGROUP, MODA1)\r\n      IF (IPREC.EQ.2)\r\n     1CALL TRD1A2 (CASEXX, TRL, SCR1, NLFTP, NGROUP, MODA1)\r\nC\r\nC     TEST FOR ZERO APPLIED LOAD\r\nC\r\n      IK(1) = SCR1\r\n      CALL RDTRL(IK(1))\r\n      IF ( IK(6) .NE. 0) GO TO 10\r\n      IF ( NLFTP .NE. 0) GO TO 10\r\n      IK(1) = PD\r\n      IK(6) = 0\r\n      CALL RDTRL(IK)\r\n      IF(  IK(6) .NE. 0) GO TO 10\r\n      IF (NCOL.GT.0) GO TO 10\r\n      CALL MESAGE(-46,0,0)\r\n   10 CONTINUE\r\nC\r\nC     ESTIMATE CORE\r\nC\r\n      IF( NONCUP .LT. 0 .AND. MODAL(1) .EQ. MODA .AND. NLFTP .EQ. 0)\r\n     1  GO TO 100\r\n      NZ = KORSZ (Z)\r\n      IGROUP = NZ- 3*NGROUP +1\r\n      IK(1) = KDD\r\n      CALL RDTRL( IK)\r\n      IF( IK(1) .LT. 0) GO TO 20\r\n      NROW = IK(3)\r\n      GO TO 21\r\n   20 IK(1) = 0\r\n   21 IB(1) = BDD\r\n      CALL RDTRL(IB)\r\n      IF( IB(1) .LT. 0) GO TO 30\r\n      NROW = IB(3)\r\n      GO TO 31\r\n   30 IB(1) = 0\r\n   31 IM(1) = MDD\r\n      CALL RDTRL(IM)\r\n      IF( IM(1) .LT. 0) GO TO 35\r\n      NROW = IM(3)\r\n      GO TO 36\r\n   35 IM(1) = 0\r\n   36 CONTINUE\r\n      ICRQ = 8*IBUF + 7*IPREC*NROW - IGROUP\r\n      IF(ICRQ.GT.0) CALL MESAGE(-8,ICRQ,NAME)\r\nC\r\nC     SET UP COMMON\r\nC\r\n      SR1=SCR2\r\n      SR2=SCR3\r\n      SR3=SCR4\r\n      SR4=SCR5\r\n      SR5=SCR6\r\n      SR6=SCR7\r\n      ISKIP  = 1\r\n      JGROUP = IGROUP\r\n      DO 45 I = 1, NGROUP\r\n      NSKIP = IZ(JGROUP+2)\r\n      IF (NSKIP .EQ. 1) GO TO 40\r\n      ISKIP = 0\r\n      GO TO 47\r\n   40 JGROUP = JGROUP + 3\r\n   45 CONTINUE\r\n   47 DO 50  I= 1,NGROUP\r\n      CALL KLOCK(ITIME1)\r\n      NSTEP = IZ(IGROUP)\r\n      DELTA =  Z(IGROUP+1)\r\n      IGROUP= IGROUP +3\r\n      IF (IPREC.EQ.1) CALL INITL  (3*NGROUP, DELTA)\r\n      IF (IPREC.EQ.2) CALL INITL2 (3*NGROUP, DELTA)\r\n      CALL KLOCK(ITIME3)\r\n      IF (IPREC.EQ.1)\r\n     1CALL TRD1C  (SCR1, PD, NGROUP, NLFTP, UDVT, I, SCR8, DIT, NLFT,\r\n     2             NOUE, MODA1, PNLD, ISKIP)\r\n      IF (IPREC.EQ.2)\r\n     1CALL TRD1C2 (SCR1, PD, NGROUP, NLFTP, UDVT, I, SCR8, DIT, NLFT,\r\n     2             NOUE, MODA1, PNLD, ISKIP)\r\n      CALL KLOCK (ITIME2)\r\n      CALL TMTOGO(ITLEFT)\r\n      IF( ITLEFT .LE. 0) GO TO 60\r\n      IF(  I .EQ. NGROUP) GO TO 50\r\nC\r\nC     COMPUTE TIME TO DO NEXT ITERATION\r\nC\r\n      IF (2*(ITIME3-ITIME1 + ((ITIME2-ITIME3)/NSTEP)*IZ(IGROUP)).GE.\r\n     1   ITLEFT) GO TO 60\r\n   50 CONTINUE\r\n   55 IK(1) = UDVT\r\n      CALL RDTRL (IK(1))\r\n      NCOL = IK(2)/3\r\n      RETURN\r\nC\r\nC     UNCOUPLED MODAL\r\nC\r\n  100 CALL TRD1E(MDD,BDD,KDD,PD,UDVT,NGROUP)\r\n      GO TO 55\r\nC\r\nC     INSUFFICIENT TIME LEFT TO FINISH\r\nC\r\n   60 CONTINUE\r\n      IK(1) =UDVT\r\n      CALL RDTRL( IK(1))\r\n      NCOL = IK(2)/3\r\n      IK(1) = PD\r\n      CALL RDTRL( IK)\r\n      CALL MESAGE (45, IK(2)-NCOL, NAME)\r\n      IF (NCOL.EQ.0) CALL MESAGE(-37,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trd1a.f",
    "content": "      SUBROUTINE TRD1A (CASEXX,TRL,IC,NLFTP,NGROUP,MODA1)\r\nC\r\nC     THIS ROUTINE BUILDS THE INITIAL CONDITIONS TABLE, PUTS TSTEP STUFF\r\nC     IN CORE AND EXTRACTS THE NLFTP POINTER\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      INTEGER            SYSBUF    ,CASEXX   ,TRL      ,INTRL(2) ,\r\n     1                   IZ(160)   ,MCB(7)   ,FILE     ,NAME(2)\r\nC\r\n      COMMON   /SYSTEM/  SYSBUF\r\n      COMMON   /PACKX /  IT1       ,IT2      ,II       ,JJ       ,\r\n     1                   INCR\r\n      COMMON   /ZZZZZZ / Z(1)\r\nC\r\n      EQUIVALENCE        (Z(1)     ,IZ(1))\r\nC\r\n      DATA               NAME                ,INTRL              /\r\n     1                   4HTRD1    ,4HA      ,4HTRL    ,4HTRD    /\r\nC\r\nC     IDENTIFICATION VARIABLES\r\nC\r\nC     NGROUP        NUMBER OF CHANGES OF TIME STEP\r\nC\r\nC     ITSTEP        SELECTED TSTEP ID\r\nC\r\nC     NLFTP         SELECTED NON-LINEAR LOAD ID\r\nC\r\nC     ICP           SELECTED INITIAL CONDITION ID\r\nC\r\nC     LUD           LENGTH OF INITIAL CONDITION--D SET\r\nC\r\nC     IGROUP        POINTER TO TSTEP STUFF\r\nC\r\nC\r\nC\r\nC     INITIALIZE\r\nC\r\n      IT1 = 1\r\n      IT2 = 1\r\n      II  = 1\r\n      INCR= 1\r\n      NZ  = KORSZ (Z)\r\n      NX  = NZ\r\nC\r\nC     PICK UP AND STORE CASECC POINTERS\r\nC\r\n      IBUF1 = NZ -SYSBUF +1\r\n      CALL GOPEN (CASEXX,IZ(IBUF1),0)\r\n      CALL FREAD (CASEXX,IZ,166,1)\r\n      CALL CLOSE (CASEXX,1)\r\n      ITSTEP = IZ(38)\r\n      ICP    = IZ(9)\r\n      NLFTP  = IZ(160)\r\n      IF (ICP.NE.0 .AND. MODA1.EQ.1) GO TO 920\r\nC\r\nC     BUILD INITIAL CONDITION FILE\r\nC\r\n      CALL GOPEN (IC,IZ(IBUF1),1)\r\n      IBUF2 = IBUF1-SYSBUF\r\n      NZ    = NZ - 2*SYSBUF\r\n      ICRQ  =-NZ\r\n      IF (ICRQ .GT. 0) GO TO 980\r\n      FILE = TRL\r\n      CALL OPEN (*900,TRL,IZ(IBUF2),0)\r\n      CALL READ (*910,*10,TRL,IZ(1),NZ,0,IFLAG)\r\n      ICRQ = NZ\r\n      GO TO 980\r\n   10 LUD  = IZ(IFLAG)\r\n      JJ   = LUD\r\n      ICRQ = 2*LUD - NZ\r\n      IF (ICRQ .GT. 0) GO TO 980\r\n      L    = IZ(3)\r\n      ITRL = L\r\nC\r\nC     ZERO I. C.\r\nC\r\n      IVEL  = IBUF2- LUD-1\r\n      IDISP = IVEL -LUD\r\n      DO 20 I = 1,LUD\r\n      K = IVEL +I\r\n      Z(K) = 0.0\r\n      K = IDISP +I\r\n      Z(K) = 0.0\r\n   20 CONTINUE\r\n      CALL MAKMCB (MCB,IC,LUD,2,1)\r\n      IF (ICP   .EQ. 0) GO TO 80\r\n      IF (IZ(3) .EQ. 0) GO TO 40\r\n      IFLAG = IFLAG-1\r\n      DO 30 I = 4,IFLAG\r\n      IF (IZ(I) .EQ. ICP) GO TO 50\r\n   30 CONTINUE\r\n   40 ITSTEP = ICP\r\n      GO TO 940\r\n   50 K = I-4\r\n      L = IFLAG -I\r\n      CALL SKPREC (TRL,K)\r\n   70 CALL READ (*910,*80,TRL,IZ(1),3,0,IFLAG)\r\n      K    = IZ(1) +IDISP\r\n      I2   = 2\r\n      Z(K) = Z(K) + Z(I2)\r\n      K    = IZ(1) + IVEL\r\n      Z(K) = Z(K) + Z(I2+1)\r\n      GO TO 70\r\n   80 CALL PACK (Z(IDISP+1),IC,MCB)\r\n      CALL PACK (Z(IVEL +1),IC,MCB)\r\n      CALL CLOSE (IC,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL SKPREC (TRL,L)\r\nC\r\nC     BRING TSTEP STUFF INTO CORE\r\nC\r\n  100 ITRL = ITRL +1\r\n      CALL READ (*940,*110,TRL,IZ(1),NZ,0,IFLAG)\r\n      ICRQ = NZ\r\n      GO TO 980\r\n  110 IF (IZ(1) .NE. ITSTEP) GO TO 100\r\nC\r\nC     TSTEP CARD FOUND\r\nC\r\n      CALL CLOSE (TRL,1)\r\n      NGROUP = (IFLAG-1)/3\r\nC\r\nC     MOVE TSTEP STUFF TO BOTTOM OF CORE\r\nC\r\n      NZ = NX - IFLAG +1\r\n      IGROUP = NZ+1\r\n      DO 120 I = 2,IFLAG\r\n      K = IGROUP +I-2\r\n      IZ(K) = IZ(I)\r\n  120 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1 = -1\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  910 IP1 = -2\r\n      GO TO 901\r\n  920 IP1  = -51\r\n      FILE = ICP\r\n      GO TO 901\r\n  940 CALL MESAGE (-31,ITSTEP,INTRL)\r\n      RETURN\r\n  980 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/trd1a2.f",
    "content": "      SUBROUTINE TRD1A2 (CASEXX, TRL, IC, NLFTP, NGROUP, MODA1)\r\nC\r\nC     THIS ROUTINE BUILDS THE INITIAL CONDITIONS TABLE, PUTS TSTEP STUFF\r\nC      IN CORE AND EXTRACTS THE NLFTP POINTER\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      DOUBLE PRECISION   Z\r\nC\r\n      INTEGER            SYSBUF    ,CASEXX   ,TRL      ,\r\n     1                   IZ(160)     ,MCB(7)   ,FILE     ,NAME(2)  ,\r\n     1                   INTRL(2)\r\nC\r\n      REAL               RZ(3)\r\nC\r\n      COMMON   /SYSTEM/  SYSBUF\r\n      COMMON   /PACKX /  IT1       ,IT2      ,II       ,JJ       ,\r\n     1                   INCR\r\n      COMMON   /ZZZZZZ /  Z(1)\r\nC\r\n      EQUIVALENCE        (Z(1)     ,RZ(1)    ,IZ(1)    )\r\nC\r\n      DATA               NAME                ,INTRL              /\r\n     1                   4HTRD1    ,4HA2     ,4HTRL    ,4HTRD    /\r\nC\r\nC     IDENTIFICATION VARIABLES\r\nC\r\nC     NGROUP        NUMBER OF CHANGES OF TIME STEP\r\nC\r\nC     ITSTEP        SELECTED TSTEP ID\r\nC\r\nC     NLFTP         SELECTED NON-LINEAR LOAD ID\r\nC\r\nC     ICP           SELECTED INITIAL CONDITION ID\r\nC\r\nC     LUD           LENGTH OF INITIAL CONDITION--D SET\r\nC\r\nC     IGROUP        POINTER TO TSTEP STUFF\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC     INITIALIZE\r\nC\r\n      IT1 = 2\r\n      IT2 = 2\r\n      II=1\r\n      INCR =1\r\n      NZ = KORSZ (Z)\r\n      NX=NZ\r\nC\r\nC     PICK UP AND STORE CASECC POINTERS\r\nC\r\n      IBUF1 = NZ -SYSBUF +1\r\n      CALL GOPEN(CASEXX,IZ(IBUF1),0)\r\n      CALL FREAD(CASEXX,IZ,166,1)\r\n      CALL CLOSE(CASEXX,1)\r\n      ITSTEP = IZ(38)\r\n      ICP    = IZ(9)\r\n      NLFTP  = IZ(160)\r\n      IF(ICP .NE. 0 .AND. MODA1 .EQ. 1) GO TO 920\r\nC\r\nC     BUILD INITIAL CONDITION FILE\r\nC\r\n      CALL GOPEN(IC,IZ(IBUF1),1)\r\n      IBUF2 = IBUF1-SYSBUF\r\n      NZ = NZ - 2*SYSBUF\r\n      ICRQ = -NZ\r\n      IF(ICRQ.GT.0) GO TO 980\r\n      FILE =TRL\r\n      CALL OPEN(*900,TRL,IZ(IBUF2),0)\r\n      CALL READ(*910,*10,TRL,IZ(1),NZ,0,IFLAG)\r\n      ICRQ = NZ\r\n      GO TO 980\r\n   10 LUD = IZ(IFLAG)\r\n      JJ  = LUD\r\n      ICRQ = 4*LUD + 1 - NZ\r\n      IF(ICRQ.GT.0) GO TO 980\r\n      L = IZ(3)\r\n      ITRL = L\r\nC\r\nC     ZERO I. C.\r\nC\r\n      IVEL = (IBUF2 - 2*LUD - 1)/2\r\n      IDISP = IVEL - 2*LUD\r\n      DO 20 I =1,LUD\r\n      K = IVEL +I\r\n      Z(K) = 0.0D0\r\n      K = IDISP +I\r\n      Z(K) = 0.0D0\r\n   20 CONTINUE\r\n      CALL MAKMCB (MCB, IC, LUD, 2, 2)\r\n      IF ( ICP .EQ. 0) GO TO 80\r\n      IF(  IZ(3) .EQ. 0) GO TO 40\r\n      IFLAG = IFLAG-1\r\n      DO 30  I= 4,IFLAG\r\n      IF ( IZ(I) .EQ. ICP) GO TO 50\r\n   30 CONTINUE\r\n   40 ITSTEP = ICP\r\n      GO TO 940\r\n   50 K =I-4\r\n      L = IFLAG -I\r\n      CALL SKPREC(TRL,K)\r\n   70 CALL READ(*910,*80,TRL,IZ(1),3,0,IFLAG)\r\n      K = IZ(1) +IDISP\r\n      Z(K) = Z(K) + RZ(2)\r\n      K = IZ(1) + IVEL\r\n      Z(K) = Z(K) + RZ(3)\r\n      GO TO 70\r\n   80 CALL PACK(Z(IDISP+1),IC,MCB)\r\n      CALL PACK(Z(IVEL +1),IC,MCB)\r\n      CALL CLOSE(IC,1)\r\n      CALL WRTTRL(MCB)\r\n      CALL SKPREC(TRL,L)\r\nC\r\nC     BRING TSTEP STUFF INTO CORE\r\nC\r\n  100 ITRL = ITRL +1\r\n      CALL READ(*940,*110,TRL,IZ(1),NZ,0,IFLAG)\r\n      ICRQ = NZ\r\n      GO TO 980\r\n  110 IF ( IZ(1) .NE. ITSTEP) GO TO 100\r\nC\r\nC     TSTEP CARD FOUND\r\nC\r\n      CALL CLOSE(TRL,1)\r\n      NGROUP =(IFLAG-1)/3\r\nC\r\nC     MOVE TSTEP STUFF TO BOTTOM OF CORE\r\nC\r\n      NZ = NX - IFLAG +1\r\n      IGROUP = NZ+1\r\n      DO 120 I=2,IFLAG\r\n      K = IGROUP +I-2\r\n      IZ(K) = IZ(I)\r\n  120 CONTINUE\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1=-1\r\n  901 CALL MESAGE(IP1,FILE,NAME)\r\n      RETURN\r\n  910 IP1=-2\r\n      GO TO 901\r\n  920 IP1 = -51\r\n      FILE = ICP\r\n      GO TO 901\r\n  940 CALL MESAGE(-31,ITSTEP,INTRL)\r\n      RETURN\r\n  980 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 901\r\n      END\r\n"
  },
  {
    "path": "mis/trd1c.f",
    "content": "      SUBROUTINE TRD1C(IC,PD,NGROUP,NLFTP,UDV,ILOOP,SCR1,DIT,NLFT,NOUE,\r\nCRLBR SPR94003 9/94\r\nCRLBR1                 MODAL,PNL)\r\n     1                 MODAL,PNL,ISKIP)\r\nC\r\nC     THIS ROUTINE STEPS INTEGRATION PROCEDURE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      LOGICAL NOPD\r\nC\r\n      INTEGER DIT1,PNL1,PNL\r\n      INTEGER PD,UDV,SCR1,DIT,SYSBUF,FILE,IZ(1),MCB(7),IPNL(7)\r\nCRLBR SPR94003 9/94      \r\nCRLBR INTEGER SUBNAM(2)\r\n      INTEGER SUBNAM(2), MOUTPU(7)\r\nC\r\n      COMMON /BLANK /DUMMY(4), NCOL\r\nCRLBR SPR94003 9/94      \r\nCRLBR COMMON /SYSTEM/SYSBUF\r\n      COMMON /SYSTEM/SYSBUF, NNOUT, ISYSTM(79), ICPFLG\r\n      COMMON /ZZZZZZ/Z(1)\r\n      COMMON /PACKX /IT1,IT2,II,JJ,INCR\r\n      COMMON /TRDXX /IK(7),IDUM(14),ISCR1,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,\r\n     1               IOPEN,ISYM,TO,NOPD,ISPNL\r\n      COMMON /UNPAKX/IT3,III,JJJ,INCR1\r\n      COMMON /TRDD1 /NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODAL1,NZ,\r\n     1               ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,IU1,\r\n     2               DELTAT,IFRST\r\nC\r\n      EQUIVALENCE    (Z(1),IZ(1))\r\nC\r\n      DATA   SUBNAM /4HTRD1,1HC/\r\nCRLBNB SPR94003 9/94\r\n      DATA  IOUTPU, ISCR9 /203, 309/\r\nCRLBNE\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC     INITIALIZE\r\nC\r\n      NROW  = IK(3)\r\n      IT1   = 1\r\n      IT2   = 1\r\n      II    = 1\r\n      JJ    = NROW\r\n      INCR  = 1\r\n      IT3   = 1\r\n      III   = 1\r\n      JJJ   = NROW\r\n      INCR1 = 1\r\n      NZ    = KORSZ(Z)\r\n      IGROUP= NZ -3*NGROUP +1\r\n      IBUF1 = IGROUP -SYSBUF\r\n      IBUF2 = IBUF1 -SYSBUF\r\n      IBUF3 = IBUF2 -SYSBUF\r\n      IBUF4 = IBUF3-SYSBUF\r\n      IBUF5 = IBUF4-SYSBUF\r\n      IBUF6 = IBUF5-SYSBUF\r\n      IBUF7 = IBUF6-SYSBUF\r\n      IBUF8 = IBUF7 -SYSBUF\r\nCRLBNB SPR94003 9/94\r\n      IF (NLFTP .EQ. 0) IBUF8 = IBUF7\r\n      IBUF9 = IBUF8 - SYSBUF\r\n      IBUFA = IBUF9 - SYSBUF\r\n      IF (ICPFLG .EQ. 0) IBUFA = IBUF8\r\n      IF (ICPFLG .NE. 0 .AND. ISKIP .EQ. 1) IBUFA = IBUF9\r\n      NZ = IBUFA - 1\r\nCRLBNE\r\nCRLBD SPR94003 9/94 NZ = IBUF7-1\r\nCRLBD SPR94003 9/94 IF(NLFTP .NE. 0) NZ = IBUF8-1\r\n      IOPEN = 0\r\nCRLBR SPR94003 9/94 ICRQ = 14*NROW + 1 - NZ\r\n      ICRQ = 14*(NROW+1) + 1 - NZ\r\n      IF(ICRQ.GT.0) GO TO 430\r\nCRLBR SPR94003 9/94 IU1=0\r\n      IU1=1\r\nCRLBR SPR94003 9/94 IU2= IU1+NROW\r\n      IU2= IU1+NROW + 1\r\nCRLBR SPR94003 9/94 IU3= IU2+ NROW\r\n      IU3= IU2+ NROW + 1\r\nCRLBR SPR94003 9/94 IP1= IU3+ NROW\r\n      IP1= IU3+ NROW + 1\r\nCRLBR SPR94003 9/94 IP2= IP1+ NROW\r\n      IP2   = IP1+ NROW\r\n      IP3   = IP2+ NROW\r\n      IP4   = IP3+ NROW\r\n      NLFT1 = NLFT\r\n      DIT1  = DIT\r\n      NLFTP1= NLFTP\r\n      ILOOP1= ILOOP\r\n      MODAL1= MODAL\r\n      IST   = 0\r\nCRLBR SPR94003 9/94 NZ    = NZ - 14*NROW - 1\r\n      NZ    = NZ - 14*(NROW+1) - 1\r\n      ICORE = IP4 +NROW\r\n      NMODES= NROW- NOUE\r\n      PNL1  = PNL\r\n      ASSIGN 60 TO IRET1\r\n      NSTEP = IZ(IGROUP) + 1\r\n      DELTAT= Z(IGROUP+1)\r\n      NOUT  = IZ(IGROUP+2)\r\n      IF( ILOOP .NE. 1) GO TO 210\r\nC\r\nC     FIRST ENTRY INITIALIZE STUFF\r\nC\r\n      IST  =-1\r\n      FILE = PD\r\nC\r\nC     PUT P0 IN IP2\r\nC\r\n      IPNT = IP2\r\n      NOPD = .TRUE.\r\n      ASSIGN 5 TO IRETN\r\n      CALL OPEN(*310,PD,IZ(IBUF2),0)\r\n      CALL SKPREC(PD,1)\r\n      NOPD = .FALSE.\r\n      GO TO 290\r\nCRLBD SPR94003 9/94     5 FILE = UDV\r\nCRLBD SPR94003 9/94       IAPEND = 0\r\nCRLBR SPR94003 9/94       IF (NCOL .LE. 0) GO TO 8\r\n    5 IF (NCOL .GT. 2) GO TO 325\r\nCRLBD SPR94003 9/94      MCB(1) = UDV\r\nCRLBD SPR94003 9/94      CALL RDTRL (MCB)\r\nCRLBD SPR94003 9/94      IF (MCB(2) .NE. 0) GO TO 330\r\nCRLBR SPR94003 9/94    8 CALL GOPEN (UDV,IZ(IBUF3),1)\r\n      CALL GOPEN (UDV, IZ(IBUF3), 1)\r\n      CALL MAKMCB (MCB,UDV,NROW,2,2)\r\nCRLBNB SPR94003 9/94 \r\n    8 IF (ICPFLG .EQ. 0) GO TO 10\r\n      CALL MAKMCB (MOUTPU, IOUTPU, NROW+1, ISKIP, 2)\r\n      CALL GOPEN (IOUTPU, IZ(IBUF9), 1)\r\n      IF (ISKIP .EQ. 0) CALL GOPEN (ISCR9, IZ(IBUFA), 1)\r\nCRLBNE\r\n   10 IF (NLFTP.EQ.0) GO TO 20\r\nC\r\nC     CHECK TO SEE IF PNL HAS BEEN PRE-PURGED.\r\nC\r\n      IPNL(1)= PNL1\r\n      CALL RDTRL(IPNL)\r\n      ISPNL= 0\r\n      IF(IPNL(1) .LE. 0) GO TO 20\r\n      ISPNL= 1\r\n      CALL GOPEN(PNL1,IZ(IBUF8),1)\r\n      CALL MAKMCB(IPNL,PNL1,NROW,2,1)\r\n   20 CONTINUE\r\nCRLBR SPR94003 9/94      IF (IAPEND .EQ. 1) GO TO 50\r\n      IF (NCOL .GT. 2) GO TO 50\r\n      FILE = IC\r\n      CALL GOPEN(IC,IZ(IBUF1),0)\r\n      ASSIGN 30 TO IRETN\r\n      IPNT = IU2\r\n      GO TO 290\r\n   30 ASSIGN 40 TO IRETN\r\n      IPNT = IU3\r\n      GO TO 290\r\n   40 CALL CLOSE(IC,1)\r\n      NSTEP = IZ(IGROUP)+1\r\n      DELTAT= Z(IGROUP+1)\r\n      NOUT  = IZ(IGROUP+2)\r\nC\r\nC     FORM  U=1, PO, P-1\r\nC\r\n      CALL FORM1( Z(IU2+1),Z(IU3+1),Z(IU1+1),Z(IP2+1),Z(IP1+1),DELTAT,\r\n     1  Z(IBUF1))\r\nC\r\nC     START TIME STEP COUNT\r\nC\r\n   50 CONTINUE\r\n      ICOUNT = 1\r\nCRLBNB SPR94003 9/94   \r\n      MCOL = 1\r\nCRLBNE\r\n   60 CONTINUE\r\n      IF (NLFTP .EQ. 0) GO TO 62\r\n      IFRST=0\r\n      CALL TRD1D\r\n      IFRST=1\r\n   62 CONTINUE\r\nC\r\nC     OPEN FBS FILES\r\nC\r\n      FILE = ISCR1\r\n      CALL OPEN(*390,ISCR1,IZ(IBUF4),0)\r\n      FILE = ISCR2\r\n      CALL OPEN(*390,ISCR2,IZ(IBUF5),0)\r\n      FILE = ISCR3\r\nCIBMR 5/95\r\nC     CALL OPEN(*390,ISCR3,IZ(IBUF6),0)\r\n      IF ( ISYM .EQ. 1 ) CALL OPEN(*390,ISCR3,IZ(IBUF6),0)\r\n      FILE = ISCR4\r\n      CALL OPEN(*390,ISCR4,IZ(IBUF7),0)\r\nC\r\nC     ZERO P*\r\nC\r\n   70 CALL TMTOGO(ITLEFT)\r\n      IF(ITLEFT .LE. 0) GO TO 170\r\n      DO 80 I = 1,NROW\r\n      K = IP4 +I\r\n      Z(K) =0.0\r\n   80 CONTINUE\r\n      IF(NLFTP .EQ. 0) GO TO 90\r\nC\r\nC     FORM NON-LINEAR LOADS\r\nC\r\n      CALL TRD1D\r\n      IF(ICOUNT.EQ. 1 .OR. ICOUNT .EQ. NSTEP .OR. MOD(ICOUNT+IST,NOUT)\r\n     1   .EQ. 0) GO TO 85\r\n      GO TO 90\r\n   85 IF (ISPNL.GT.0) CALL PACK (Z(IP4+1), PNL, IPNL)\r\nC\r\nC     BRING IN NEXT P\r\nC\r\n   90 IPNT = IP3\r\n      FILE = PD\r\n      ASSIGN 100 TO IRETN\r\n      IF ( NOPD ) GO TO 310\r\n      GO TO 290\r\nC\r\nC     ADD P-S TO FORM P*\r\nC\r\n  100 DO 110 I=1,NROW\r\n      K = IP4 + I\r\n      L = IP1 + I\r\n      M = IP2 + I\r\n      J = IP3 + I\r\n      Z(K) = Z(K) +(Z(L) + Z(M) + Z(J))/3.0\r\n  110 CONTINUE\r\n      IF (ILOOP.NE.1.OR.ICOUNT.NE.1) GO TO 115\r\nCRLBR SPR94003 9/94      IF (IAPEND .EQ. 1) GO TO 115\r\n      IF (NCOL .GT. 2) GO TO 113\r\nC\r\nC     OUTPUT INITIAL DISPLACEMENT\r\nC\r\n      CALL PACK (Z(IU2 + 1), UDV, MCB(1))\r\nC\r\nC     OUTPUT INITIAL VELOCITY\r\nC\r\n      CALL PACK (Z(IU3 + 1), UDV, MCB(1))\r\nCRLBNB SPR94003 9/94 \r\n  113 IF (ICPFLG .EQ. 0) GO TO 115\r\n      IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0)\r\nCRLBNE\r\nC\r\nC     SOLVE FOR NEXT SOLUTION\r\nC\r\n  115 CALL STEP  (Z(IU3 + 1), Z(IU2 + 1), Z(IU1 + 1), Z(IP4 + 1),\r\n     1            IZ(IBUF1))\r\nCRLBNB SPR94003 9/94      \r\n      IF (ICPFLG .EQ. 0) GO TO 118\r\n      JJ = NROW + 1\r\n      Z(IP2) = DELTAT\r\n      IF (ILOOP.NE.1 .AND. ICOUNT.EQ.0) Z(IP2) = DELTA1\r\n      CALL PACK (Z(IP2), IOUTPU, MOUTPU)\r\n      IF (ISKIP .EQ. 1) GO TO 117\r\n      Z(IU2) = MCOL + 0.1\r\n      CALL PACK (Z(IU2), IOUTPU, MOUTPU)\r\n  117 JJ = NROW\r\n  118 CONTINUE\r\nCRLBNE\r\n      IF (ILOOP.EQ.1.AND.ICOUNT.EQ.1) GO TO 145\r\n      IF (ICOUNT.EQ.NSTEP.OR.MOD(ICOUNT+IST, NOUT).EQ.0) GO TO 130\r\n      IF (ICOUNT.EQ.1) GO TO 130\r\nC\r\nC     ROTATE P POINTERS\r\nC\r\n  120 J  = IP1\r\n      IP1= IP2\r\n      IP2= IP3\r\n      IP3= J\r\nC\r\nC     ROTATE U POINTERS\r\nC\r\n      J  = IU1\r\n      IU1= IU2\r\n      IU2= IU3\r\n      IU3= J\r\n      ICOUNT = ICOUNT +1\r\nCRLBNB SPR94003 9/94      \r\n      MCOL = MCOL + 1\r\nCRLBNE\r\n      IF(ICOUNT-NSTEP) 70,160,170\r\nC\r\nC     IT-S OUTPUT TIME -- LUCKY FELLOW\r\nC\r\n  130 CALL PACK( Z(IU2+1), UDV, MCB(1) )\r\nC\r\nC     COMPUTE U DOT\r\nC\r\n      H = 1.0/(2.0*DELTAT)\r\n      DO 140 I=1,NROW\r\n      K = IP4 +I\r\n      L = IU3+I\r\n      M = IU1 + I\r\n      Z(K) = (Z(L)-Z(M))*H\r\n  140 CONTINUE\r\n      CALL PACK( Z(IP4+1), UDV, MCB(1) )\r\nCRLBNB SPR94003 9/94      \r\n      IF (ICPFLG .EQ. 0) GO TO 145\r\n      IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0)\r\nCRLBNE\r\nC\r\nC     COMPUTE U DOT DOT\r\nC\r\n  145 H = 1.0/(DELTAT*DELTAT)\r\n      DO 150 I=1,NROW\r\n      K = IP4+I\r\n      L = IU3+I\r\n      M = IU1+I\r\n      J = IU2 +I\r\n      Z(K) = (Z(L)+Z(M)- 2.0*Z(J))*H\r\n  150 CONTINUE\r\n      CALL PACK( Z(IP4+1), UDV, MCB(1) )\r\n      GO TO 120\r\nC\r\nC     END OF 1 GROUP\r\nC\r\n  160 IF(ILOOP .NE. NGROUP) GO TO 200\r\n      GO TO 70\r\n  170 J = 1\r\n  180 CALL CLOSE(UDV,J)\r\n      CALL CLOSE(PD, J)\r\nCRLBNB SPR94003 9/94\r\n      IF (ICPFLG .EQ. 0) GO TO 188\r\n      IF (J.NE.1 .OR. ISKIP.EQ.1) GO TO 186\r\n      CALL CLOSE (ISCR9, 1)\r\nC\r\nC     COPY THE SINGLE RECORD IN FILE ISCR9 AS THE\r\nC     LAST RECORD IN FILE IOUTPU\r\nC\r\n      CALL GOPEN (ISCR9, IZ(IBUFA), 0)\r\n      FILE = ISCR9\r\n  183 CALL READ (*410, *184, ISCR9, Z(IU2+1), NROW, 0, IFLAG)\r\n      CALL WRITE (IOUTPU, Z(IU2+1), NROW, 0)\r\n      GO TO 183\r\n  184 CALL WRITE (IOUTPU, Z(IU2+1), IFLAG, 1)\r\n      CALL CLOSE (ISCR9, 1)\r\n  186 CALL CLOSE (IOUTPU, J)\r\n      CALL WRTTRL (MOUTPU)\r\n  188 CONTINUE\r\nCRLBNE\r\n      CALL CLOSE(ISCR1,1)\r\n      CALL CLOSE(ISCR2,1)\r\nCIBMR 5/95\r\nC     CALL CLOSE(ISCR3,1)   \r\n      IF ( ISYM .EQ. 1 ) CALL CLOSE(ISCR3,1)   \r\n      CALL CLOSE(ISCR4,1)\r\n      CALL WRTTRL(MCB)\r\n      IF( NLFTP .EQ. 0) GO TO 190\r\n      IF (ISPNL.EQ.0) GO TO 190\r\n      CALL CLOSE(PNL,J)\r\n      CALL WRTTRL(IPNL)\r\n  190 RETURN\r\nC\r\nC     MORE GROUPS TO COME SAVE STUFF\r\nC\r\n  200 J = 2\r\n      FILE = SCR1\r\n      CALL OPEN(*390,SCR1,IZ(IBUF1),1)\r\n      CALL WRITE(SCR1,Z(IU3+1),NROW,1)\r\n      CALL WRITE(SCR1,Z(IU1+1),NROW,1)\r\n      CALL WRITE(SCR1,Z(IU2+1),NROW,1)\r\nCRLBR SPR94003 9/94\r\nCRLBR CALL WRITE (SCR1,Z(IP1+1),NROW,1)\r\n      CALL WRITE (SCR1,Z(IP2+1),NROW,1)\r\n      CALL CLOSE(SCR1,1)\r\n      GO TO 180\r\nC\r\nC     CHANGE OF TIME STEP--RESTORE POINTERS ETC\r\nC\r\n  210 IGROUP = IGROUP +(ILOOP-1)*3\r\n      DELTA1 = Z(IGROUP-2)\r\n      NSTEP  = IZ(IGROUP)\r\n      DELTAT = Z(IGROUP+1)\r\n      NOUT   = IZ(IGROUP+2)\r\n      IF (.NOT.NOPD) CALL GOPEN (PD, IZ(IBUF2), 2)\r\n      CALL GOPEN(UDV,IZ(IBUF3),3)\r\n      MCB(1)= UDV\r\n      CALL RDTRL(MCB)\r\nCRLBNB SPR94003 9/94  \r\n      IF (ICPFLG .EQ. 0) GO TO 217\r\n      CALL GOPEN (IOUTPU, IZ(IBUF9), 3)\r\n      MOUTPU(1) = IOUTPU\r\n      CALL RDTRL (MOUTPU)\r\n  217 CONTINUE\r\nCRLBNE\r\n      IF(NLFTP .EQ. 0) GO TO 220\r\n      IF (ISPNL.GT.0) CALL GOPEN (PNL1, IZ(IBUF8), 3)\r\n  220 CONTINUE\r\nC\r\nC     RESTORE STUFF SAVED\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN(*390,SCR1,IZ(IBUF1),0)\r\n      CALL FREAD(SCR1,Z(IU1+1),NROW,1)\r\n      CALL FREAD(SCR1,Z(IU3+1),NROW,1)\r\n      CALL FREAD(SCR1,Z(IU2+1),NROW,1)\r\n      CALL FREAD(SCR1,Z(IP2+1),NROW,1)\r\n      CALL CLOSE(SCR1,1)\r\nC\r\nC     COMPUTE U DOT\r\nC\r\nCRLBR SPR94003 9/94      H = 1.0D0/DELTA1\r\n  225 H = 1.0D0/DELTA1\r\n      DO 230 I=1,NROW\r\n      K =  IP1 +I\r\n      L = IU2 +I\r\n      M = IU3 +I\r\n      Z(K) = (Z(L)-Z(M))*H\r\n  230 CONTINUE\r\nC\r\nC     COMPUTE U DOT DOT\r\nC\r\n      H = 1.0/(DELTA1*DELTA1)\r\n      DO 240 I=1,NROW\r\n      K = IP4+ I\r\n      L = IU2+ I\r\n      M = IU3+ I\r\n      J = IU1+ I\r\n      Z(K) = (Z(L)- 2.0*Z(M) +Z(J))*H\r\n  240 CONTINUE\r\nCRLBD SPR94003 9/94   250 CONTINUE\r\nC\r\nC     COMPUTE UI PRIME\r\nC\r\n      H = DELTAT*DELTAT/2.0\r\n      DO 260 I=1,NROW\r\n      K =IU1 +I\r\n      L = IU2 +I\r\n      M = IP1+I\r\n      J = IP4 +I\r\n      Z(K) = Z(L) -DELTAT*Z(M)+ H*Z(J)\r\n  260 CONTINUE\r\nC\r\nC     COMPUTE U DOT PRIME\r\nC\r\n      DO 270 I=1,NROW\r\n      K = IU3 + I\r\n      L = IP1+I\r\n      M = IP4 + I\r\n      Z(K) = Z(L) -DELTAT*Z(M)\r\n  270 CONTINUE\r\nC\r\nC     COMPUTE PI PRIME\r\nC\r\n      DO 280 I=1,NROW\r\n      K = IP1+I\r\n      Z(K) = 0.0\r\n  280 CONTINUE\r\n      CALL FORM2(Z(IP4+1),Z(IU3+1),Z(IU1+1),Z(IP1+1),Z(IBUF1))\r\n      ICOUNT = 0\r\nCRLBR SPR94003 9/94      GO TO IRET1, (60,10)\r\n      GO TO IRET1, (60,8)\r\nC\r\nC     INTERNAL ROUTINE TO UNPACK VECTORS\r\nC\r\n  290 CALL UNPACK(*310,FILE,Z(IPNT+1))\r\nCRLBR SPR94003 9/94  300 GO TO IRETN, (5,30,40,100,350,360,370)\r\n  300 GO TO IRETN, (5,30,40,100,340,350,360,370,385,387)\r\nCRLBR SPR94003 9/94  310 DO 320 INL = 1,NROW\r\n  310 DO 320 INL = III, JJJ\r\n      K = IPNT +INL\r\n      Z(K) = 0.0\r\n  320 CONTINUE\r\n      GO TO 300\r\nCRLBNB SPR94003 9/94\r\nC     THE FOLLOWING LINES (UNTIL CRPKNE) REPRESENT\r\nC     REPLACEMENTS FOR THE OLD CODE WHICH HAS BEEN\r\nC     DELETED BELOW\r\nC\r\nC     RETRIEVE REQUIRED INFORMATION FROM\r\nC     THE CHECKPOINT RUN\r\nC\r\n  325 MCOL = NCOL\r\n      CALL GOPEN (IOUTPU, IZ(IBUF4), 0)\r\n      MOUTPU(1) = IOUTPU\r\n      CALL RDTRL (MOUTPU)\r\n      JSKIP = 1\r\n      IF (MOUTPU(4) .EQ. 1) GO TO 335\r\n      JSKIP = 2\r\n      CALL SKPREC (IOUTPU, MOUTPU(2))\r\n      FILE = IOUTPU\r\n      NWDS = NCOL - 1\r\n  327 CALL READ (*410, *330, IOUTPU, MCOL, -NWDS, 0, IFLAG)\r\n      GO TO 333\r\n  330 NWDS = NWDS - IFLAG\r\n      GO TO 327\r\n  333 CALL READ (*410, *333, IOUTPU, MCOL, 1, 0, IFLAG)\r\n      CALL REWIND (IOUTPU)\r\n      CALL SKPREC (IOUTPU, 1)\r\nC\r\n  335 CALL SKPREC (IOUTPU, JSKIP*(MCOL-1))\r\n      FILE = IOUTPU\r\n      JJJ = NROW + 1\r\nC\r\nC     GET P SUB I+1\r\nC\r\n      IPNT = IP2 - 1\r\n      ASSIGN 340 TO IRETN\r\n      GO TO 290\r\n  340 ITYPE = 1\r\n      DELTA1 = Z(IP2)\r\n      IF (DELTA1 .EQ. DELTAT) GO TO 345\r\n      ITYPE = 2\r\n      GO TO 350\r\n  345 CALL SKPREC (IOUTPU, -(JSKIP+1))\r\nC\r\nC     GET P SUB I\r\nC\r\n      IPNT = IP1 - 1\r\n      ASSIGN 350 TO IRETN\r\n      GO TO 290\r\n  350 CALL CLOSE (IOUTPU, 1)\r\nC\r\n      FILE = UDV\r\n      CALL GOPEN (UDV, IZ(IBUF3), 0)\r\n      K = 3*(NCOL - 1)\r\n      KK = 5\r\n      KKK = 4\r\n      KKP = 0\r\n      JJJ = NROW\r\n      CALL SKPREC (UDV, K)\r\nC\r\nC     GET U SUB I+1\r\nC\r\n      IPNT = IU2\r\n      ASSIGN 360 TO IRETN\r\n      GO TO 290\r\nC\r\nC     GET U DOT SUB I+1\r\nC\r\n  360 IPNT = IP3\r\n      ASSIGN 370 TO IRETN\r\n      GO TO 290\r\nC\r\n  370 IF (MCOL .EQ. NCOL) GO TO 380\r\n      CALL CLOSE (UDV, 1)\r\n      FILE = IOUTPU\r\n      CALL GOPEN (IOUTPU, IZ(IBUF4), 0)\r\n      K = 2*MCOL - 3\r\n      KK = 0\r\n      KKK = 3\r\n      KKP = 1\r\n      JJJ = NROW + 1\r\n      CALL SKPREC (IOUTPU, K)\r\nC\r\nC     GET U SUB I\r\nC\r\n  380 IPNT = IU1 - KKP\r\n      IF (ITYPE .EQ. 2) IPNT = IU3 - KKP\r\n      CALL SKPREC (FILE, -KK)\r\n      ASSIGN 385 TO IRETN\r\n      GO TO 290\r\n  385 IF (ITYPE .EQ. 1) GO TO 388\r\n      IF (MCOL .EQ. NCOL) GO TO 386\r\n      ITEST = Z(IPNT+1)\r\n      IF (MCOL .EQ. ITEST+1) GO TO 386\r\n      WRITE (NNOUT, 500)\r\n      CALL MESAGE (-61, 0, 0)\r\n  386 CALL SKPREC (FILE, -KKK)\r\nC\r\nC     GET U SUB I-1\r\nC\r\n      IPNT = IU1 - KKP\r\n      ASSIGN 387 TO IRETN\r\n      GO TO 290\r\n  387 IF (MCOL .EQ. NCOL) GO TO 388\r\n      ITEST = Z(IPNT+1)\r\n      IF (MCOL .EQ. ITEST+2) GO TO 388\r\n      WRITE (NNOUT, 600)\r\n      CALL MESAGE (-61, 0, 0)\r\n  388 CALL CLOSE (FILE, 1)\r\n      JJJ = NROW\r\n      CALL GOPEN (UDV, IZ(IBUF3), 1)\r\n      CALL MAKMCB(MCB,UDV,NROW,2,1)\r\nC\r\nC     OUTPUT INITIAL DISPLACEMENT\r\nC\r\n      CALL PACK (Z(IU2 + 1), UDV, MCB(1))\r\nC\r\nC     OUTPUT INITIAL VELOCITY\r\nC\r\n      CALL PACK (Z(IP3 + 1), UDV, MCB(1))\r\n      IF (ITYPE .EQ. 1) GO TO 8\r\n      ASSIGN 8 TO IRET1\r\n      GO TO 225\r\nCRLBNE\r\nCRLBDB SPR94003 9/94\r\nCRLBD C\r\nCRLBD C     RETRIEVE LAST VECTOR\r\nCRLBD C\r\nCRLBD   330 CALL GOPEN(UDV,IZ(IBUF3),0)\r\nCRLBD       K = 3*(NCOL - 1)\r\nCRLBD       IAPEND = 1\r\nCRLBD       CALL SKPREC(UDV,K)\r\nCRLBD C\r\nCRLBD C     GET U SUB I+1\r\nCRLBD C\r\nCRLBD       IPNT = IU2\r\nCRLBD       ASSIGN 350 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD CP\r\nCRLBD C     GET U SUB I+1 DOT\r\nCRLBD C\r\nCRLBD   350 IPNT = IP1\r\nCRLBD       ASSIGN 360 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD C\r\nCRLBD C     GET U SUB I+1 DOT DOT\r\nCRLBD C\r\nCRLBD   360 IPNT = IP4\r\nCRLBD       ASSIGN 370 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD   370 CONTINUE\r\nCRLBD       CALL CLOSE(UDV,1)\r\nCRLBD       CALL GOPEN (UDV, IZ(IBUF3), 1)\r\nCRLBD       CALL MAKMCB (MCB, UDV, NROW, 2, 1)\r\nCRLBD C\r\nCRLBD C     OUTPUT INITIAL DISPLACEMENT\r\nCRLBD C\r\nCRLBD       CALL PACK (Z(IU2+1), UDV, MCB(1))\r\nCRLBD C\r\nCRLBD C     OUTPUT INITIAL VELOCITY\r\nCRLBD C\r\nCRLBD       CALL PACK (Z(IP1+1), UDV, MCB(1))\r\nCRLBD C\r\nCRLBD C     FORM P SUB I+1\r\nCRLBD C\r\nCRLBD       DO 380 I =1,NROW\r\nCRLBD       K = IP2+I\r\nCRLBD       Z(K) = 0.0\r\nCRLBD   380 CONTINUE\r\nCRLBD       CALL FORM2(Z(IP4+1),Z(IP1+1),Z(IU2+1),Z(IP2+1),Z(IBUF1))\r\nCRLBD       ASSIGN 10 TO IRET1\r\nCRLBD       GO TO 250\r\nCRLBDE\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  390 IP1 = -1\r\n  400 CALL MESAGE(IP1,FILE,SUBNAM)\r\n      RETURN\r\nCRLBNB SPR94003 9/94\r\n  410 IP1 = -2\r\n      GO TO 400\r\nCRLBNE\r\n  430 IP1 = -8\r\n      FILE= ICRQ\r\n      GO TO 400\r\nCRLBNB SPR94003 9/94\r\n  500 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 1 IN ',\r\n     *        'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ',\r\n     *        'INFORMATION')\r\n  600 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 2 IN ',\r\n     *        'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ',\r\n     *        'INFORMATION')\r\nCRLBNE\r\n      END\r\n"
  },
  {
    "path": "mis/trd1c2.f",
    "content": "      SUBROUTINE TRD1C2 (IC,PD,NGROUP,NLFTP,UDV,ILOOP,SCR1,DIT,NLFT,\r\nCRLBR SPR94003 9/94\r\nCRLBR1                   NOUE,MODAL,PNL)\r\n     1                   NOUE,MODAL,PNL,ISKIP)\r\nC\r\nC     THIS ROUTINE STEPS INTEGRATION PROCEDURE\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      LOGICAL         NOPD\r\n      INTEGER         DIT1,PNL1,PNL,PD,UDV,SCR1,DIT,SYSBUF,FILE,IZ(1),\r\nCRLBR SPR94003 9/94\r\nCRLBR1                MCB(7),IPNL(7),SUBNAM(2)\r\n     1                MCB(7),IPNL(7),SUBNAM(2),MOUTPU(7)\r\n      DOUBLE PRECISION Z,H\r\n      DIMENSION       RZ(1)\r\n      COMMON /BLANK / DUMMY(4),NCOL\r\nCRLBR SPR94003 9/94\r\nCRLBR COMMON /SYSTEM/ SYSBUF\r\n      COMMON /SYSTEM/ SYSBUF, NNOUT, ISYSTM(79), ICPFLG\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /TRDXX / IK(7),IDUM(14),ISCR1,ISCR2,ISCR3,ISCR4,ISCR5,\r\n     1                ISCR6,IOPEN,ISYM,TO,NOPD,ISPNL\r\n      COMMON /UNPAKX/ IT3,III,JJJ,INCR1\r\n      COMMON /TRDD1 / NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODAL1,NZ,\r\n     1                ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,IU1,\r\n     2                DELTAT\r\n      EQUIVALENCE     (Z(1),RZ(1),IZ(1))\r\n      DATA    SUBNAM/ 4HTRD1,2HC2/\r\nCRLBNB SPR94003 9/94\r\n      DATA  IOUTPU, ISCR9 /203, 309/\r\nCRLBNE\r\nC\r\nC     INITIALIZE\r\nC\r\n      NROW  = IK(3)\r\n      NNROW = 2*NROW\r\n      IT1   = 2\r\n      IT2   = 2\r\n      II    = 1\r\n      JJ    = NROW\r\n      INCR  = 1\r\n      IT3   = 2\r\n      III   = 1\r\n      JJJ   = NROW\r\n      INCR1 = 1\r\n      NZ    = KORSZ(Z)\r\n      IGROUP= NZ - 3*NGROUP + 1\r\n      IBUF1 = IGROUP- SYSBUF\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      IBUF5 = IBUF4 - SYSBUF\r\n      IBUF6 = IBUF5 - SYSBUF\r\n      IBUF7 = IBUF6 - SYSBUF\r\n      IBUF8 = IBUF7 - SYSBUF\r\nCRLBNB SPR94003 9/94\r\n      IF (NLFTP .EQ. 0) IBUF8 = IBUF7\r\n      IBUF9 = IBUF8 - SYSBUF\r\n      IBUFA = IBUF9 - SYSBUF\r\n      IF (ICPFLG .EQ. 0) IBUFA = IBUF8\r\n      IF (ICPFLG .NE. 0 .AND. ISKIP .EQ. 1) IBUFA = IBUF9\r\n      NZ = IBUFA - 1\r\nCRLBNE\r\nCRLBD SPR94003 9/94 NZ = IBUF7-1\r\nCRLBD SPR94003 9/94 IF(NLFTP .NE. 0) NZ = IBUF8-1\r\n      IOPEN = 0\r\nCRLBR SPR94003 9/94 ICRQ = 14*NROW + 1 - NZ\r\n      ICRQ = 14*(NROW+1) + 1 - NZ\r\n      IF(ICRQ.GT.0) GO TO 430\r\nCRLBR SPR94003 9/94 IU1=0\r\n      IU1=1\r\nCRLBR SPR94003 9/94 IU2= IU1+NROW\r\n      IU2= IU1+NROW + 1\r\nCRLBR SPR94003 9/94 IU3= IU2+ NROW\r\n      IU3= IU2+ NROW + 1\r\nCRLBR SPR94003 9/94 IP1= IU3+ NROW\r\n      IP1= IU3+ NROW + 1\r\nCRLBR SPR94003 9/94 IP2= IP1+ NROW\r\n      IP2= IP1+ NROW + 1\r\n      IP3   = IP2 + NROW\r\n      IP4   = IP3 + NROW\r\n      NLFT1 = NLFT\r\n      DIT1  = DIT\r\n      NLFTP1= NLFTP\r\n      ILOOP1= ILOOP\r\n      MODAL1= MODAL\r\n      IST   = 0\r\nCRLBR SPR94003 9/94 NZ    = NZ - 14*NROW - 1\r\n      NZ    = NZ - 14*(NROW+1) - 1\r\n      ICORE = 2*(IP4 + NROW)\r\n      NMODES= NROW - NOUE\r\n      PNL1  = PNL\r\n      ASSIGN 60 TO IRET1\r\n      NSTEP = IZ(IGROUP) + 1\r\n      DELTAT= RZ(IGROUP+1)\r\n      NOUT  = IZ(IGROUP+2)\r\n      IF (ILOOP .NE. 1) GO TO 210\r\nC\r\nC     FIRST ENTRY INITIALIZE STUFF\r\nC\r\n      IST  =-1\r\n      FILE = PD\r\nC\r\nC     PUT P0 IN IP2\r\nC\r\n      IPNT = IP2\r\n      NOPD =.TRUE.\r\n      ASSIGN 5 TO IRETN\r\n      CALL OPEN (*310,PD,IZ(IBUF2),0)\r\n      CALL SKPREC (PD,1)\r\n      NOPD = .FALSE.\r\n      GO TO 290\r\nCRLBD SPR94003 9/94     5 FILE = UDV\r\nCRLBD SPR94003 9/94       IAPEND = 0\r\nCRLBR SPR94003 9/94       IF (NCOL .LE. 0) GO TO 8\r\n    5 IF (NCOL .GT. 2) GO TO 325\r\nCRLBD SPR94003 9/94      MCB(1) = UDV\r\nCRLBD SPR94003 9/94      CALL RDTRL (MCB)\r\nCRLBD SPR94003 9/94      IF (MCB(2) .NE. 0) GO TO 330\r\nCRLBR SPR94003 9/94    8 CALL GOPEN (UDV,IZ(IBUF3),1)\r\n      CALL GOPEN (UDV, IZ(IBUF3), 1)\r\n      CALL MAKMCB (MCB,UDV,NROW,2,2)\r\nCRLBNB SPR94003 9/94 \r\n    8 IF (ICPFLG .EQ. 0) GO TO 10\r\n      CALL MAKMCB (MOUTPU, IOUTPU, NROW+1, ISKIP, 2)\r\n      CALL GOPEN (IOUTPU, IZ(IBUF9), 1)\r\n      IF (ISKIP .EQ. 0) CALL GOPEN (ISCR9, IZ(IBUFA), 1)\r\nCRLBNE\r\n   10 IF (NLFTP .EQ. 0) GO TO 20\r\nC\r\nC     CHECK TO SEE IF PNL HAS BEEN PRE-PURGED.\r\nC\r\n      IPNL(1) = PNL1\r\n      CALL RDTRL (IPNL)\r\n      ISPNL = 0\r\n      IF (IPNL(1) .LE. 0) GO TO 20\r\n      ISPNL = 1\r\n      CALL GOPEN (PNL1,IZ(IBUF8),1)\r\n      CALL MAKMCB (IPNL,PNL1,NROW,2,2)\r\n   20 CONTINUE\r\nCRLBR SPR94003 9/94      IF (IAPEND .EQ. 1) GO TO 50\r\n      IF (NCOL .GT. 2) GO TO 50\r\n      FILE = IC\r\n      CALL GOPEN (IC,IZ(IBUF1),0)\r\n      ASSIGN 30 TO IRETN\r\n      IPNT = IU2\r\n      GO TO 290\r\n   30 ASSIGN 40 TO IRETN\r\n      IPNT = IU3\r\n      GO TO 290\r\n   40 CALL CLOSE (IC,1)\r\n      NSTEP  = IZ(IGROUP) + 1\r\n      DELTAT = RZ(IGROUP+1)\r\n      NOUT   = IZ(IGROUP+2)\r\nC\r\nC     FORM  U=1, PO, P-1\r\nC\r\n      CALL FORM12 (Z(IU2+1),Z(IU3+1),Z(IU1+1),Z(IP2+1),Z(IP1+1),DELTAT,\r\n     1             RZ(IBUF1))\r\nC\r\nC     START TIME STEP COUNT\r\nC\r\n   50 CONTINUE\r\n      ICOUNT = 1\r\nCRLBNB SPR94003 9/94   \r\n      MCOL = 1\r\nCRLBNE\r\nC\r\nC     OPEN FBS FILES\r\nC\r\n   60 FILE = ISCR1\r\n      CALL OPEN (*390,ISCR1,IZ(IBUF4),0)\r\n      FILE = ISCR2\r\n      CALL OPEN (*390,ISCR2,IZ(IBUF5),0)\r\n      FILE = ISCR3\r\nCIBMR 5/95      \r\nC     CALL OPEN (*390,ISCR3,IZ(IBUF6),0) \r\n      IF ( ISYM .EQ. 1 ) CALL OPEN (*390,ISCR3,IZ(IBUF6),0) \r\n      FILE = ISCR4\r\n      CALL OPEN (*390,ISCR4,IZ(IBUF7),0)\r\nC\r\nC     ZERO P*\r\nC\r\n   70 CALL TMTOGO (ITLEFT)\r\n      IF (ITLEFT .LE. 0) GO TO 170\r\n      DO 80 I = 1,NROW\r\n      K = IP4 + I\r\n      Z(K) = 0.0D0\r\n   80 CONTINUE\r\n      IF (NLFTP .EQ. 0) GO TO 90\r\nC\r\nC     FORM NON-LINEAR LOADS\r\nC\r\n      CALL TRD1D2\r\n      IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.NSTEP .OR. MOD(ICOUNT+IST,NOUT)\r\n     1   .EQ.0) GO TO 85\r\n      GO TO 90\r\n   85 IF (ISPNL .GT. 0) CALL PACK (Z(IP4+1),PNL,IPNL)\r\nC\r\nC     BRING IN NEXT P\r\nC\r\n   90 IPNT = IP3\r\n      FILE = PD\r\n      ASSIGN 100 TO IRETN\r\n      IF (NOPD) GO TO 310\r\n      GO TO 290\r\nC\r\nC     ADD P-S TO FORM P*\r\nC\r\n  100 DO 110 I = 1,NROW\r\n      K = IP4 + I\r\n      L = IP1 + I\r\n      M = IP2 + I\r\n      J = IP3 + I\r\n      Z(K) = Z(K) + (Z(L) + Z(M) + Z(J))/3.0D0\r\n  110 CONTINUE\r\n      IF (ILOOP.NE.1 .OR. ICOUNT.NE.1) GO TO 115\r\nCRLBR SPR94003 9/94      IF (IAPEND .EQ. 1) GO TO 115\r\n      IF (NCOL .GT. 2) GO TO 113\r\nC\r\nC     OUTPUT INITIAL DISPLACEMENT\r\nC\r\n      CALL PACK (Z(IU2+1),UDV,MCB(1))\r\nC\r\nC     OUTPUT INITIAL VELOCITY\r\nC\r\n      CALL PACK (Z(IU3+1),UDV,MCB(1))\r\nCRLBNB SPR94003 9/94 \r\n  113 IF (ICPFLG .EQ. 0) GO TO 115\r\n      IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0)\r\nCRLBNE\r\nC\r\nC     SOLVE FOR NEXT SOLUTION\r\nC\r\n  115 CALL STEP2 (Z(IU3+1),Z(IU2+1),Z(IU1+1),Z(IP4+1),IZ(IBUF1))\r\nCRLBNB SPR94003 9/94      \r\n      IF (ICPFLG .EQ. 0) GO TO 118\r\n      JJ = NROW + 1\r\n      Z(IP2) = DELTAT\r\n      IF (ILOOP.NE.1 .AND. ICOUNT.EQ.0) Z(IP2) = DELTA1\r\n      CALL PACK (Z(IP2), IOUTPU, MOUTPU)\r\n      IF (ISKIP .EQ. 1) GO TO 117\r\n      Z(IU2) = MCOL + 0.1\r\n      CALL PACK (Z(IU2), IOUTPU, MOUTPU)\r\n  117 JJ = NROW\r\n  118 CONTINUE\r\nCRLBNE\r\n      IF (ILOOP.EQ.1 .AND. ICOUNT.EQ.1) GO TO 145\r\n      IF (ICOUNT.EQ.NSTEP .OR. MOD(ICOUNT+IST,NOUT).EQ.0) GO TO 130\r\n      IF (ICOUNT .EQ. 1) GO TO 130\r\nC\r\nC     ROTATE P POINTERS\r\nC\r\n  120 J   = IP1\r\n      IP1 = IP2\r\n      IP2 = IP3\r\n      IP3 = J\r\nC\r\nC     ROTATE U POINTERS\r\nC\r\n      J   = IU1\r\n      IU1 = IU2\r\n      IU2 = IU3\r\n      IU3 = J\r\n      ICOUNT = ICOUNT + 1\r\nCRLBNB SPR94003 9/94      \r\n      MCOL = MCOL + 1\r\nCRLBNE\r\n      IF (ICOUNT-NSTEP) 70,160,170\r\nC\r\nC     IT-S OUTPUT TIME -- LUCKY FELLOW\r\nC\r\n  130 CALL PACK (Z(IU2+1),UDV,MCB(1))\r\nC\r\nC     COMPUTE U DOT\r\nC\r\n      H = 1.0D0/(2.0D0*DELTAT)\r\n      DO 140 I = 1,NROW\r\n      K = IP4 + I\r\n      L = IU3 + I\r\n      M = IU1 + I\r\n      Z(K) = (Z(L)-Z(M))*H\r\n  140 CONTINUE\r\n      CALL PACK (Z(IP4+1),UDV,MCB(1))\r\nCRLBNB SPR94003 9/94      \r\n      IF (ICPFLG .EQ. 0) GO TO 145\r\n      IF (ISKIP .EQ. 0) CALL WRITE (ISCR9, MCOL, 1, 0)\r\nCRLBNE\r\nC\r\nC     COMPUTE U DOT DOT\r\nC\r\n  145 H = 1.0D0/(DELTAT*DELTAT)\r\n      DO 150 I = 1,NROW\r\n      K = IP4 + I\r\n      L = IU3 + I\r\n      M = IU1 + I\r\n      J = IU2 + I\r\n      Z(K) = (Z(L)+Z(M)-2.0D0*Z(J))*H\r\n  150 CONTINUE\r\n      CALL PACK (Z(IP4+1),UDV,MCB(1))\r\n      GO TO 120\r\nC\r\nC     END OF 1 GROUP\r\nC\r\n  160 IF (ILOOP .NE. NGROUP) GO TO 200\r\n      GO TO 70\r\n  170 J = 1\r\n  180 CALL CLOSE (UDV,J)\r\n      CALL CLOSE (PD ,J)\r\nCRLBNB SPR94003 9/94\r\n      IF (ICPFLG .EQ. 0) GO TO 188\r\n      IF (J.NE.1 .OR. ISKIP.EQ.1) GO TO 186\r\n      CALL CLOSE (ISCR9, 1)\r\nC\r\nC     COPY THE SINGLE RECORD IN FILE ISCR9 AS THE\r\nC     LAST RECORD IN FILE IOUTPU\r\nC\r\n      CALL GOPEN (ISCR9, IZ(IBUFA), 0)\r\n      FILE = ISCR9\r\n  183 CALL READ (*410, *184, ISCR9, Z(IU2+1), NROW, 0, IFLAG)\r\n      CALL WRITE (IOUTPU, Z(IU2+1), NROW, 0)\r\n      GO TO 183\r\n  184 CALL WRITE (IOUTPU, Z(IU2+1), IFLAG, 1)\r\n      CALL CLOSE (ISCR9, 1)\r\n  186 CALL CLOSE (IOUTPU, J)\r\n      CALL WRTTRL (MOUTPU)\r\n  188 CONTINUE\r\nCRLBNE\r\n      CALL CLOSE (ISCR1,1)\r\n      CALL CLOSE (ISCR2,1)\r\nCIBMR 5/95       \r\nC     CALL CLOSE (ISCR3,1)      \r\n      IF ( ISYM .EQ. 1 ) CALL CLOSE (ISCR3,1)      \r\n      CALL CLOSE (ISCR4,1)\r\n      CALL WRTTRL (MCB)\r\n      IF (NLFTP.EQ.0 .OR. ISPNL.EQ.0) GO TO 190\r\n      CALL CLOSE (PNL,J)\r\n      CALL WRTTRL (IPNL)\r\n  190 RETURN\r\nC\r\nC     MORE GROUPS TO COME SAVE STUFF\r\nC\r\n  200 J = 2\r\n      FILE = SCR1\r\n      CALL OPEN  (*390,SCR1,IZ(IBUF1),1)\r\n      CALL WRITE (SCR1,Z(IU3+1),NNROW,1)\r\n      CALL WRITE (SCR1,Z(IU1+1),NNROW,1)\r\n      CALL WRITE (SCR1,Z(IU2+1),NNROW,1)\r\nCRLBR SPR94003 9/94\r\nCRLBR CALL WRITE (SCR1,Z(IP1+1),NNROW,1)\r\n      CALL WRITE (SCR1,Z(IP2+1),NNROW,1)\r\n      CALL CLOSE (SCR1,1)\r\n      GO TO 180\r\nC\r\nC     CHANGE OF TIME STEP--RESTORE POINTERS ETC\r\nC\r\n  210 IGROUP = IGROUP + (ILOOP-1)*3\r\n      DELTA1 = RZ(IGROUP-2)\r\n      NSTEP  = IZ(IGROUP  )\r\n      DELTAT = RZ(IGROUP+1)\r\n      NOUT   = IZ(IGROUP+2)\r\n      IF (.NOT.NOPD) CALL GOPEN (PD,IZ(IBUF2),2)\r\n      CALL GOPEN (UDV,IZ(IBUF3),3)\r\n      MCB(1) = UDV\r\n      CALL RDTRL (MCB)\r\nCRLBNB SPR94003 9/94  \r\n      IF (ICPFLG .EQ. 0) GO TO 217\r\n      CALL GOPEN (IOUTPU, IZ(IBUF9), 3)\r\n      MOUTPU(1) = IOUTPU\r\n      CALL RDTRL (MOUTPU)\r\n  217 CONTINUE\r\nCRLBNE\r\n      IF (NLFTP .EQ. 0) GO TO 220\r\n      IF (ISPNL .GT. 0) CALL GOPEN (PNL1,IZ(IBUF8),3)\r\n  220 CONTINUE\r\nC\r\nC     RESTORE STUFF SAVED\r\nC\r\n      FILE = SCR1\r\n      CALL OPEN  (*390,SCR1,IZ(IBUF1),0)\r\n      CALL FREAD (SCR1,Z(IU1+1),NNROW,1)\r\n      CALL FREAD (SCR1,Z(IU3+1),NNROW,1)\r\n      CALL FREAD (SCR1,Z(IU2+1),NNROW,1)\r\n      CALL FREAD (SCR1,Z(IP2+1),NNROW,1)\r\n      CALL CLOSE (SCR1,1)\r\nC\r\nC     COMPUTE U DOT\r\nC\r\nCRLBR SPR94003 9/94      H = 1.0D0/DELTA1\r\n  225 H = 1.0D0/DELTA1\r\n      DO 230 I = 1,NROW\r\n      K = IP1 + I\r\n      L = IU2 + I\r\n      M = IU3 + I\r\n      Z(K) = (Z(L)-Z(M))*H\r\n  230 CONTINUE\r\nC\r\nC     COMPUTE U DOT DOT\r\nC\r\n      H = 1.0D0/(DELTA1*DELTA1)\r\n      DO 240 I = 1,NROW\r\n      K = IP4 + I\r\n      L = IU2 + I\r\n      M = IU3 + I\r\n      J = IU1 + I\r\n      Z(K) = (Z(L)-2.0D0*Z(M)+Z(J))*H\r\n  240 CONTINUE\r\nCRLBD SPR94003 9/94   250 CONTINUE\r\nC\r\nC     COMPUTE UI PRIME\r\nC\r\n      H = DELTAT*DELTAT/2.0D0\r\n      DO 260 I = 1,NROW\r\n      K = IU1 + I\r\n      L = IU2 + I\r\n      M = IP1 + I\r\n      J = IP4 + I\r\n      Z(K) = Z(L) - DELTAT*Z(M) + H*Z(J)\r\n  260 CONTINUE\r\nC\r\nC     COMPUTE U DOT PRIME\r\nC\r\n      DO 270 I = 1,NROW\r\n      K = IU3 + I\r\n      L = IP1 + I\r\n      M = IP4 + I\r\n      Z(K) = Z(L) - DELTAT*Z(M)\r\n  270 CONTINUE\r\nC\r\nC     COMPUTE PI PRIME\r\nC\r\n      DO 280 I = 1,NROW\r\n      K = IP1 + I\r\n      Z(K) = 0.0D0\r\n  280 CONTINUE\r\n      CALL FORM22 (Z(IP4+1),Z(IU3+1),Z(IU1+1),Z(IP1+1),RZ(IBUF1))\r\n      ICOUNT = 0\r\nCRLBR SPR94003 9/94      GO TO IRET1, (60,10)\r\n      GO TO IRET1, (60,8)\r\nC\r\nC     INTERNAL ROUTINE TO UNPACK VECTORS\r\nC\r\n  290 CALL UNPACK (*310,FILE,Z(IPNT+1))\r\nCRLBR SPR94003 9/94  300 GO TO IRETN, (5,30,40,100,350,360,370)\r\n  300 GO TO IRETN, (5,30,40,100,340,350,360,370,385,387)\r\nCRLBR SPR94003 9/94  310 DO 320 INL = 1,NROW\r\n  310 DO 320 INL = III, JJJ\r\n      K = IPNT + INL\r\n      Z(K) = 0.0D0\r\n  320 CONTINUE\r\n      GO TO 300\r\nCRLBNB SPR94003 9/94\r\nC     THE FOLLOWING LINES (UNTIL CRPKNE) REPRESENT\r\nC     REPLACEMENTS FOR THE OLD CODE WHICH HAS BEEN\r\nC     DELETED BELOW\r\nC\r\nC     RETRIEVE REQUIRED INFORMATION FROM\r\nC     THE CHECKPOINT RUN\r\nC\r\n  325 MCOL = NCOL\r\n      CALL GOPEN (IOUTPU, IZ(IBUF4), 0)\r\n      MOUTPU(1) = IOUTPU\r\n      CALL RDTRL (MOUTPU)\r\n      JSKIP = 1\r\n      IF (MOUTPU(4) .EQ. 1) GO TO 335\r\n      JSKIP = 2\r\n      CALL SKPREC (IOUTPU, MOUTPU(2))\r\n      FILE = IOUTPU\r\n      NWDS = NCOL - 1\r\n  327 CALL READ (*410, *330, IOUTPU, MCOL, -NWDS, 0, IFLAG)\r\n      GO TO 333\r\n  330 NWDS = NWDS - IFLAG\r\n      GO TO 327\r\n  333 CALL READ (*410, *333, IOUTPU, MCOL, 1, 0, IFLAG)\r\n      CALL REWIND (IOUTPU)\r\n      CALL SKPREC (IOUTPU, 1)\r\nC\r\n  335 CALL SKPREC (IOUTPU, JSKIP*(MCOL-1))\r\n      FILE = IOUTPU\r\n      JJJ = NROW + 1\r\nC\r\nC     GET P SUB I+1\r\nC\r\n      IPNT = IP2 - 1\r\n      ASSIGN 340 TO IRETN\r\n      GO TO 290\r\n  340 ITYPE = 1\r\n      DELTA1 = Z(IP2)\r\n      IF (DELTA1 .EQ. DELTAT) GO TO 345\r\n      ITYPE = 2\r\n      GO TO 350\r\n  345 CALL SKPREC (IOUTPU, -(JSKIP+1))\r\nC\r\nC     GET P SUB I\r\nC\r\n      IPNT = IP1 - 1\r\n      ASSIGN 350 TO IRETN\r\n      GO TO 290\r\n  350 CALL CLOSE (IOUTPU, 1)\r\nC\r\n      FILE = UDV\r\n      CALL GOPEN (UDV, IZ(IBUF3), 0)\r\n      K = 3*(NCOL - 1)\r\n      KK = 5\r\n      KKK = 4\r\n      KKP = 0\r\n      JJJ = NROW\r\n      CALL SKPREC (UDV, K)\r\nC\r\nC     GET U SUB I+1\r\nC\r\n      IPNT = IU2\r\n      ASSIGN 360 TO IRETN\r\n      GO TO 290\r\nC\r\nC     GET U DOT SUB I+1\r\nC\r\n  360 IPNT = IP3\r\n      ASSIGN 370 TO IRETN\r\n      GO TO 290\r\nC\r\n  370 IF (MCOL .EQ. NCOL) GO TO 380\r\n      CALL CLOSE (UDV, 1)\r\n      FILE = IOUTPU\r\n      CALL GOPEN (IOUTPU, IZ(IBUF4), 0)\r\n      K = 2*MCOL - 3\r\n      KK = 0\r\n      KKK = 3\r\n      KKP = 1\r\n      JJJ = NROW + 1\r\n      CALL SKPREC (IOUTPU, K)\r\nC\r\nC     GET U SUB I\r\nC\r\n  380 IPNT = IU1 - KKP\r\n      IF (ITYPE .EQ. 2) IPNT = IU3 - KKP\r\n      CALL SKPREC (FILE, -KK)\r\n      ASSIGN 385 TO IRETN\r\n      GO TO 290\r\n  385 IF (ITYPE .EQ. 1) GO TO 388\r\n      IF (MCOL .EQ. NCOL) GO TO 386\r\n      ITEST = Z(IPNT+1)\r\n      IF (MCOL .EQ. ITEST+1) GO TO 386\r\n      WRITE (NNOUT, 500)\r\n      CALL MESAGE (-61, 0, 0)\r\n  386 CALL SKPREC (FILE, -KKK)\r\nC\r\nC     GET U SUB I-1\r\nC\r\n      IPNT = IU1 - KKP\r\n      ASSIGN 387 TO IRETN\r\n      GO TO 290\r\n  387 IF (MCOL .EQ. NCOL) GO TO 388\r\n      ITEST = Z(IPNT+1)\r\n      IF (MCOL .EQ. ITEST+2) GO TO 388\r\n      WRITE (NNOUT, 600)\r\n      CALL MESAGE (-61, 0, 0)\r\n  388 CALL CLOSE (FILE, 1)\r\n      JJJ = NROW\r\n      CALL GOPEN (UDV, IZ(IBUF3), 1)\r\n      CALL MAKMCB(MCB,UDV,NROW,2,1)\r\nC\r\nC     OUTPUT INITIAL DISPLACEMENT\r\nC\r\n      CALL PACK (Z(IU2 + 1), UDV, MCB(1))\r\nC\r\nC     OUTPUT INITIAL VELOCITY\r\nC\r\n      CALL PACK (Z(IP3 + 1), UDV, MCB(1))\r\n      IF (ITYPE .EQ. 1) GO TO 8\r\n      ASSIGN 8 TO IRET1\r\n      GO TO 225\r\nCRLBNE\r\nCRLBDB SPR94003 9/94\r\nCRLBD C\r\nCRLBD C     RETRIEVE LAST VECTOR\r\nCRLBD C\r\nCRLBD   330 CALL GOPEN (UDV,IZ(IBUF3),0)\r\nCRLBD       K = 3*(NCOL-1)\r\nCRLBD       IAPEND = 1\r\nCRLBD       CALL SKPREC (UDV,K)\r\nCRLBD C\r\nCRLBD C     GET U SUB I+1\r\nCRLBD C\r\nCRLBD       IPNT = IU2\r\nCRLBD       ASSIGN 350 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD CP\r\nCRLBD C     GET U SUB I+1 DOT\r\nCRLBD C\r\nCRLBD   350 IPNT = IP1\r\nCRLBD       ASSIGN 360 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD C\r\nCRLBD C     GET U SUB I+1 DOT DOT\r\nCRLBD C\r\nCRLBD   360 IPNT = IP4\r\nCRLBD       ASSIGN 370 TO IRETN\r\nCRLBD       GO TO 290\r\nCRLBD   370 CONTINUE\r\nCRLBD       CALL CLOSE (UDV,1)\r\nCRLBD       CALL GOPEN (UDV,IZ(IBUF3),1)\r\nCRLBD       CALL MAKMCB (MCB,UDV,NROW,2,2)\r\nCRLBD C\r\nCRLBD C     OUTPUT INITIAL DISPLACEMENT\r\nCRLBD C\r\nCRLBD       CALL PACK (Z(IU2+1),UDV,MCB(1))\r\nCRLBD C\r\nCRLBD C     OUTPUT INITIAL VELOCITY\r\nCRLBD C\r\nCRLBD       CALL PACK (Z(IP1+1),UDV,MCB(1))\r\nCRLBD C\r\nCRLBD C     FORM P SUB I+1\r\nCRLBD C\r\nCRLBD       DO 380 I = 1,NROW\r\nCRLBD       K = IP2 + I\r\nCRLBD       Z(K) = 0.0D0\r\nCRLBD   380 CONTINUE\r\nCRLBD       CALL FORM22 (Z(IP4+1),Z(IP1+1),Z(IU2+1),Z(IP2+1),RZ(IBUF1))\r\nCRLBD       ASSIGN 10 TO IRET1\r\nCRLBD       GO TO 250\r\nCRLBDE\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  390 IP1 = -1\r\n  400 CALL MESAGE (IP1,FILE,SUBNAM)\r\n      RETURN\r\nCRLBNB SPR94003 9/94\r\n  410 IP1 = -2\r\n      GO TO 400\r\nCRLBNE\r\nC\r\n  430 IP1  = -8\r\n      FILE = ICRQ\r\n      GO TO 400\r\nCRLBNB SPR94003 9/94\r\n  500 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 1 IN ',\r\n     *        'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ',\r\n     *        'INFORMATION')\r\n  600 FORMAT ('0*** SYSTEM FATAL MESSAGE, LOGIC ERROR 2 IN ',\r\n     *        'SUBROUTINE TRD1C2 WHILE PROCESSING THE RESTART ',\r\n     *        'INFORMATION')\r\nCRLBNE\r\n      END\r\n"
  },
  {
    "path": "mis/trd1d.f",
    "content": "      SUBROUTINE TRD1D\r\nC\r\nC     THIS ROUTINE COMPUTES NON-LINEAR LOADS FOR TRANSIENT ANALYSIS\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR SINGLE PRECISION OPERATION\r\nC\r\n      LOGICAL         DEC\r\n      INTEGER         IZ(1),PNL,DIT,FILE,SYSBUF,ITLIST(13),NAME(2),\r\n     1                NMTD(2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /SYSTEM/ SYSBUF,IOUT\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /PACKX / IT1,IT2,II,NROW,INCR\r\n      COMMON /TRDD1 / NLFT,DIT,NLFTP,NOUT,ICOUNT,ILOOP,MODAL,LCORE,\r\n     1                ICORE,IU,IP,IPNL(7),NMODES,NSTEP,PNL,IST,IU1,\r\n     2                DELTAT,IFRST,TABS,SIGMA,TIM\r\n      EQUIVALENCE     (Z(1),IZ(1))\r\n      DATA    ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4/\r\n      DATA    NAME  / 4HNLFT,4HTRDD/\r\n      DATA    NMTD  / 4HTRD1,4HD   /\r\n      DATA    KOUNT / 0            /\r\nC\r\nC     IDENTIFICATION OF VARIABLES\r\nC\r\nC     NLFT    NON-LINEAR FUNCTION TABLE\r\nC     PNL     NON-LINEAR FORCES --MATRIX\r\nC     DIT     DIRECT INPUT TABLES\r\nC     NLFTP   NON-LINEAR FUNCTION SET SELECTION\r\nC     NOUT    OUT PUT  EVERY NOUT TIME STEPS( PLUS 1 AND NSTEP)\r\nC     ICOUNT  CURRENT INTERATION COUNTER\r\nC     ILOOP   LOOP ON NUMBER OF TIME STEP CHANGES\r\nC     MODAL   LESS THAN ZERO IMPLIES THIS IS A DIRECT FORMULATION\r\nC     LCORE   AMOUNT OF CORE FOR TRD1D\r\nC     ICORE   POINTER TO FIRST CELL OF OPEN CORE\r\nC     IU      POINTER TO LATEST DISPLACEMENT VECTOR\r\nC     IU1     POINTER TO DISPLACEMENT VECTOR -- ONE TIME STEP BACK\r\nC     IP      POINTER TO LOAD VECTOR\r\nC     NMODES  NUMBER OF MODES IN PROBLEM\r\nC     NSTEP   NUMBER OF TIME STEPS\r\nC     ITLIST  LIST OF CARD TYPES FOR DYNAMIC TABLES\r\nC     NROW    SIZE OF SOLUTION SET\r\nC     IBUF1   POINTER TO BUFFER\r\nC     NCARDS  NUMBER OF LOAD CARDS IN SELECTED SET\r\nC     ICARDS  POINTER TO FIRST CARD\r\nC     NTABL   NUMBER OF TABLES\r\nC     ITABL   POINTER TO FIRST TABLE\r\nC     IPNL    MATRIX CONTROL BLOCK FOR PNL\r\nC\r\nC     DESCRIPTION OF TYPES OF NON-LINEAR LOADING\r\nC\r\nC     TYPE    DESCRIPTION\r\nC     ----    -----------\r\nC\r\nC       1     DISPLACEMENT-DEPENDENT NOLIN1 LOAD\r\nC       2     DISPLACEMENT-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD\r\nC       3     DISPLACEMENT-DEPENDENT NOLIN3 LOAD\r\nC       4     DISPLACEMENT-DEPENDENT NOLIN4 LOAD\r\nC       5     VELOCITY-DEPENDENT NOLIN1 LOAD\r\nC       6     VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD\r\nC       7     VELOCITY-DEPENDENT NOLIN3 LOAD\r\nC       8     VELOCITY-DEPENDENT NOLIN4 LOAD\r\nC       9     VELOCITY-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD\r\nC      10     DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD\r\nC      11     TEMPERATURE-DEPENDENT CONVECTION NON-LINEAR LOAD (FTUBE)\r\nC      12     TEMPERATURE-DEPENDENT EMISSIVITIES-ABSORPTIVITIES, NOLIN5\r\nC      13     DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN6 LOAD\r\nC      14     VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN6 LOAD\r\nC\r\nC     DETERMINE ENTRY NUMBER\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IPX = IP\r\nC\r\n      IF ((ILOOP.EQ.1 .AND. ICOUNT.GT.1) .OR. (ILOOP.GT.1 .AND.\r\n     1     ICOUNT.GT.0)) GO TO 170\r\n      IF (IFRST  .NE. 0) GO TO 170\r\nC\r\nC     FIRST TIME FOR TIME STEP\r\nC\r\n      CALL SSWTCH (10,IALG)\r\n      IBUF1 = LCORE + ICORE - SYSBUF\r\n      FILE  = NLFT\r\n      LCORE = LCORE - SYSBUF - 1\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LE. 0) GO TO 430\r\n      CALL OPEN (*400,NLFT,IZ(IBUF1),0)\r\nC\r\nC     FIND SELECTED SET ID\r\nC\r\n      CALL READ (*420,*10,NLFT,IZ(ICORE+1),LCORE,0,IFLAG)\r\n      ICRQ = LCORE\r\n      GO TO 430\r\n   10 DO 20 I = 3,IFLAG\r\n      K = I + ICORE\r\n      IF (IZ(K) .EQ. NLFTP) GO TO 30\r\n   20 CONTINUE\r\n      CALL MESAGE (-31,NLFTP,NAME)\r\nC\r\nC     FOUND SET ID -- POSITION TO RECORD IN NLFT\r\nC\r\n   30 K = I - 3\r\n      IF (K .EQ. 0) GO TO 50\r\n      DO 40 I = 1,K\r\n      CALL FWDREC (*420,NLFT)\r\n   40 CONTINUE\r\nC\r\nC     BRING IN  8 WORDS PER CARD\r\nC     FORMAT =    TYPE,SILD,SILE,A,SILD,SILE,A OR SILD,SILE\r\nC     CONVERT TO  TYPE,ROWP,ROWP,A,ROWP OR A\r\nC     COUNT NUMBER OF CARDS\r\nC\r\n   50 NCARDS = 0\r\n      ICARDS = ICORE + 1\r\n      K      = ICARDS\r\n   60 ICRQ   = 8 - LCORE\r\n      IF (ICRQ .GT. 0) GO TO 430\r\n      CALL READ (*420,*80,NLFT,IZ(K),8,0,IFLAG)\r\n      IF (MODAL .LT. 0) GO TO 70\r\nC\r\nC     MODAL FORM -- CONVERT SILE TO ROW POSITIONS AND STORE IN SILD\r\nC\r\n      IF (IZ(K+2) .EQ. 0) GO TO 440\r\n      IZ(K+1) = IZ(K+2) + NMODES\r\n      IF (IZ(K+5) .EQ. 0) GO TO 440\r\n      IZ(K+4) = IZ(K+5) + NMODES\r\n      IF (IZ(K).NE.2 .AND. IZ(K).NE.6 .AND. IZ(K).NE.9 .AND.\r\n     1    IZ(K).NE.10) GO TO 70\r\n      IF (IZ(K+7) .EQ. 0) GO TO 440\r\n      IZ(K+6) = IZ(K+7) + NMODES\r\n   70 CONTINUE\r\nC\r\nC     MOVE UP\r\nC\r\n      IZ(K+2) = IZ(K+4)\r\n      IZ(K+4) = IZ(K+6)\r\n      K       = K + 5\r\n      LCORE   = LCORE  - 5\r\n      NCARDS  = NCARDS + 1\r\n      GO TO 60\r\nC\r\nC     END OF RECORD-- DONE\r\nC\r\n   80 CALL CLOSE (NLFT,1)\r\nC\r\nC     EXTRACT LIST OF  UNIQUE TABLES FROM CARD TYPES 1,5,11 THRU 14\r\nC\r\n      L     = ICARDS\r\n      NTABL = 0\r\n      ITABL = K\r\n      NUMTB = 1\r\n      DO 120 I = 1,NCARDS\r\n      IZL = IZ(L)\r\n      IF (IZL.NE.1 .AND. IZL.NE.5 .AND. (IZL.LT.11 .OR. IZL.GT.14))\r\n     1    GO TO 110\r\n      IF (IZL.NE.11 .AND. IZL.NE.12) GO TO 85\r\n      IZL = IZ(L+4)\r\n      IF (IZ(L) .NE. 11) GO TO 83\r\nC\r\nC     NFTUBE CARD\r\nC\r\n   81 NXX = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX-1) 110,85,110\r\nC\r\nC     NOLIN5 CARD\r\nC\r\n   83 NXX = NUMTYP(IZ(L+3))\r\n      IF (DEC .AND. IZ(L+3).GT.16000 .AND. IZ(L+3).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .NE. 1) GO TO 81\r\n      ITID1 = IZ(L+3)\r\n      NXX   = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX .NE. 1) GO TO 87\r\n      ITID2 = IZ(L+4)\r\n      NUMTB = 2\r\n      GO TO 89\r\n   85 ITID1 = IZ(L+4)\r\n   87 NUMTB = 1\r\n   89 CONTINUE\r\nC\r\nC     FIND OUT IF UNIQUE TABLE\r\nC\r\n      IF (NTABL .EQ. 0) GO TO 100\r\n      DO 90 M = 1,NTABL\r\n      K = ITABL + M\r\n      IF (IZ(K) .EQ. ITID1) GO TO 110\r\n   90 CONTINUE\r\nC\r\nC     NEW TABLE\r\nC\r\n  100 NTABL = NTABL + 1\r\n      K     = ITABL + NTABL\r\n      IZ(K) = ITID1\r\n  110 CONTINUE\r\n      IF (NUMTB .EQ. 1) GO TO 115\r\n      NUMTB = 1\r\n      ITID1 = ITID2\r\n      GO TO 89\r\n  115 L     = L + 5\r\n  120 CONTINUE\r\nC\r\n      IZ(ITABL) = NTABL\r\n      LCORE = LCORE - NTABL - 1\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LE. 0) GO TO 430\r\n      IF (NTABL .EQ. 0) GO TO 150\r\nC\r\nC     INITIALIZE TABLES\r\nC\r\n      K     = ITABL + NTABL + 1\r\n      CALL PRETAB (DIT,IZ(K),IZ(K),IZ(IBUF1),LCORE,L,IZ(ITABL),ITLIST)\r\n      LCORE = LCORE - L\r\n      IF (IALG .EQ. 0) GO TO 140\r\n      IN1   = K + L - 1\r\n      IN2   = IN1 + NROW\r\n      IN3   = IN2 + NROW\r\n      LCORE = LCORE - 3*NROW\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LT. 0) GO TO 430\r\nC\r\nC     ZERO LOAD VECTORS\r\nC\r\n      DO 130 I = 1,NROW\r\n      K    = IN1 + I\r\n      Z(K) = 0.0\r\n      K    = IN2 + I\r\n      Z(K) = 0.0\r\n      K    = IN3 + I\r\n      Z(K) = 0.0\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n  150 RETURN\r\nC\r\nC     COMPUTE LOADS\r\nC\r\n  170 K   = ICARDS + NCARDS*5 - 1\r\n      IF (IALG .EQ. 0) GO TO 180\r\n      IPX = IN1\r\n      DO 175 I = 1,NROW\r\n      L   = IN1 + I\r\n      Z(L)= 0.0\r\n  175 CONTINUE\r\nC\r\nC     LOOP THRU EACH LOAD CARD OR COLLECTION (NOLIN5, NOLIN6)\r\nC\r\n  180 H  = 1.0/DELTAT\r\n      I  = ICARDS\r\n  190 CONTINUE\r\n      FX = 0.0\r\n      FY = 1.0\r\n      M  = IU  + IZ(I+2)\r\n      MM = IU  + IZ(I+4)\r\n      N  = IU1 + IZ(I+2)\r\n      NN = IU1 + IZ(I+4)\r\n      X  = Z(M)\r\n      Y  = (X-Z(N))*H\r\n      L  = IZ(I)\r\nC     L  =     1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14\r\n      GO TO (200,210,220,230,205,213,225,235,215,217,250,260,240,245), L\r\nC\r\nC     NOLIN 1\r\nC\r\n  200 CALL TAB (IZ(I+4),X,FX)\r\n      GO TO 290\r\n  205 X = Y\r\n      GO TO 200\r\nC\r\nC     NOLIN 2\r\nC\r\n  210 Y = Z(MM)\r\n      FX= X*Y\r\n      GO TO 290\r\n  213 X = Y\r\n      GO TO 210\r\n  215 X = Y\r\n  217 FX= X*(Z(MM)-Z(NN))*H\r\n      GO TO 290\r\nC\r\nC     NOLIN  3\r\nC\r\n  220 IF (X .LE. 0.0) GO TO 290\r\n      FX = X**Z(I+4)\r\n      GO TO 290\r\n  225 X = Y\r\n      GO TO 220\r\nC\r\nC     NOLIN 4\r\nC\r\n  230 IF(X .GE. 0.0) GO TO 290\r\n      FX =-ABS(X)**Z(I+4)\r\n      GO TO 290\r\n  235 X = Y\r\n      GO TO 230\r\nC\r\nC     NOLIN 6\r\nC\r\n  240 X  = Y\r\n      FY = X*ABS(X)\r\n      X  = Z(M)\r\n      GO TO 200\r\n  245 Y  = Z(MM)\r\n      FY = Y*ABS(Y)\r\n      GO TO 200\r\nC\r\nC     NFTUBE.  LOOKUP VDOT IF NEEDED\r\nC\r\n  250 FX  = Z(I+4)\r\n      IZL = IZ(I+4)\r\n      NXX = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX .EQ.  1) CALL TAB (IZ(I+4),TIM,FX)\r\n      IF (FX .GE. 0.0) M=IU+IZ(I+1)\r\n      FX  = FX*Z(M)\r\n      L   = IPX + IZ(I+2)\r\n      Z(L)= Z(L) + FX*Z(I+3)\r\n      FY  =-1.0\r\n      GO TO 290\r\nC\r\nC     NOLIN5\r\nC\r\nC     A. COMPUTE SURFACE AVERAGE TEMPERATURES\r\nC\r\n  260 MM = 0\r\n      NN = 0\r\n      TAVGA = 0.0\r\n      TAVGB = 0.0\r\n      J  = 1\r\n      DO 270 L = 1,4\r\n      IF (L .EQ. 3) J = 6\r\n      M  = IZ(I+J)\r\n      IF (M .EQ. 0) GO TO 265\r\n      M  = IU + M\r\n      TAVGA = TAVGA+Z(M)\r\n      MM = MM + 1\r\n  265 M  = IZ(I+J+10)\r\n      IF (M .EQ. 0) GO TO 270\r\n      M  = IU + M\r\n      TAVGB = TAVGB+Z(M)\r\n      NN = NN + 1\r\n  270 J  = J  + 1\r\n      TAVGA = TAVGA/FLOAT(MM)\r\n      TAVGB = TAVGB/FLOAT(NN)\r\n      AA    = Z(I+3)\r\n      AB    = Z(I+4)\r\n      FAB   = Z(I+8)\r\n      FABSQ = FAB*FAB\r\n      ETA   = Z(I+13)\r\n      ETB   = Z(I+14)\r\n      NXX   = NUMTYP(IZ(I+13))\r\n      IF (DEC .AND. IZ(I+13).GT.16000 .AND. IZ(I+13).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+13),TAVGA,ETA)\r\n      NXX   = NUMTYP(IZ(I+14))\r\n      IF (DEC .AND. IZ(I+14).GT.16000 .AND. IZ(I+14).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+14),TAVGB,ETB)\r\n      ALPHA = Z(I+18)\r\n      ALPHB = Z(I+19)\r\n      NXX   = NUMTYP(IZ(I+18))\r\n      IF (DEC .AND. IZ(I+18).GT.16000 .AND. IZ(I+18).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+18),TAVGA,ALPHA)\r\n      NXX   = NUMTYP(IZ(I+19))\r\n      IF (DEC .AND. IZ(I+19).GT.16000 .AND. IZ(I+19).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+19),TAVGB,ALPHB)\r\n      ALPHA = ALPHA - 1.0\r\n      ALPHB = ALPHB - 1.0\r\nC\r\nC     B. COMPUTE DENOMINATOR\r\nC\r\n      XH  = SIGMA*ETA*(TAVGA+TABS)**4\r\n      XK  = SIGMA*ETB*(TAVGB+TABS)**4\r\n      FX  = ALPHA*FAB*XK - AA*XH +FAB*XK - (ALPHB*FABSQ*XH)/AB\r\n      FY  = ALPHB*FAB*XH - AB*XK +FAB*XH - (ALPHA*FABSQ*XK)/AA\r\n      FAB = 1.0 - (ALPHA*ALPHB/AA)*(FABSQ/AB)\r\n      FX  = FX/(FAB*FLOAT(MM))\r\n      FY  = FY/(FAB*FLOAT(NN))\r\nC\r\nC     C. APPLY FORCES ON AREAS A AND  B\r\nC\r\n      J = 1\r\n      DO 280 L = 1,4\r\n      IF (L .EQ. 3) J = 6\r\n      M = IZ(I+J)\r\n      IF (M .EQ. 0) GO TO 275\r\n      M = IPX + M\r\n      Z(M) = Z(M) + FX\r\n  275 M = IZ(I+J+10)\r\n      IF (M .EQ. 0) GO TO 280\r\n      M = IPX + M\r\n      Z(M) = Z(M) + FY\r\n  280 J = J + 1\r\n      I = I + 20\r\n      GO TO 320\r\nC\r\nC     FINISH APPLYING SCALE FACTOR AND ADD\r\nC\r\n  290 L = IPX + IZ(I+1)\r\n      Z(L) = Z(L) + FX*FY*Z(I+3)\r\n      IF (ABS(Z(L)) .LT. 1.0E-36) Z(L) = 0.0\r\n      IF (ABS(Z(L)) .LT. 1.0E+36) GO TO 310\r\n      KOUNT = KOUNT + 1\r\n      IF (KOUNT.EQ.1 .OR. KOUNT.EQ.4) WRITE (IOUT,295)\r\n      IF (KOUNT .LE. 3) WRITE (IOUT,300) UWM,Z(L)\r\n  295 FORMAT (/1X,28(4H****),/)\r\n  300 FORMAT (A25,' 3309, UNUSUALLY LARGE VALUE COMPUTED FOR NONLINEAR',\r\n     1       ' FORCING FUNCTION',5X,E15.5)\r\n  310 I = I + 5\r\n  320 IF (I .LT. K) GO TO 190\r\nC\r\nC     END OF LOAD LOOP\r\nC\r\nC\r\nC     DONE\r\nC\r\n      IF (IALG .EQ. 0) GO TO 380\r\n      DO 370 I = 1,NROW\r\nC\r\nC     SUM OVER LAST THREE LOADS\r\nC\r\n      L  = IP  + I\r\n      K  = IN1 + I\r\n      M  = IN2 + I\r\n      KK = IN3 + I\r\n      Z(L) = Z(L) + (Z(K)+Z(M)+Z(KK))/3.0\r\n  370 CONTINUE\r\nC\r\nC     SWITCH POINTERS\r\nC\r\n      K   = IN1\r\n      IN1 = IN2\r\n      IN2 = IN3\r\n      IN3 = K\r\n  380 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 WRITE  (IOUT,405) UFM\r\n  405 FORMAT (A23,', NON-LINEAR FORCING LOAD (NLFT) WAS NOT GENERATED ',\r\n     1       'PREVIOUSLY')\r\n      IP1 = -37\r\n  410 CALL MESAGE (IP1,FILE,NMTD)\r\n      RETURN\r\n  420 IP1 = -2\r\n      GO TO 410\r\n  430 IP1 = -8\r\n      FILE= ICRQ\r\n      GO TO 410\r\nC\r\nC     LOADED POINT  NOT E-POINT IN MODAL FORMULATION\r\nC\r\n  440 CALL MESAGE (-44,NLFTP,IZ(K))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trd1d2.f",
    "content": "      SUBROUTINE TRD1D2\r\nC\r\nC     THIS ROUTINE COMPUTES NON-LINEAR LOADS FOR TRANSIENT ANALYSIS\r\nC\r\nC     THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION\r\nC\r\n      LOGICAL          DEC\r\n      INTEGER          IZ(1),PNL,DIT,FILE,SYSBUF,ITLIST(13),NAME(2),\r\n     1                 NMTD(2)\r\n      DIMENSION        Z(1)\r\n      DOUBLE PRECISION X,Y,DZ,H,FX,FY\r\n      CHARACTER        UFM*23,UWM*25\r\n      COMMON /XMSSG /  UFM,UWM\r\n      COMMON /SYSTEM/  SYSBUF,IOUT\r\n      COMMON /MACHIN/  MACH\r\n      COMMON /ZZZZZZ/  DZ(1)\r\n      COMMON /PACKX /  IT1,IT2,II,NROW,INCR\r\n      COMMON /TRDD1 /  NLFT,DIT,NLFTP,NOUT,ICOUNT,ILOOP,MODAL,LCORE,\r\n     1                 ICORE,IU,IP,IPNL(7),NMODES,NSTEP,PNL,IST,IU1,\r\n     2                 DELTAT,IFRST,TABS,SIGMA,TIM\r\n      EQUIVALENCE      (Z(1),IZ(1),DZ(1))\r\n      DATA    ITLIST/  4,1105,11,1,1205,12,2,1305,13,3,1405,14,4/\r\n      DATA    NAME  /  4HNLFT,4HTRDD /\r\n      DATA    NMTD  /  4HTRD1,4HD2   /\r\n      DATA    KOUNT /  0             /\r\nC\r\nC     IDENTIFICATION OF VARIABLES\r\nC\r\nC     NLFT    NON-LINEAR FUNCTION TABLE\r\nC     PNL     NON-LINEAR FORCES --MATRIX\r\nC     DIT     DIRECT INPUT TABLES\r\nC     NLFTP   NON-LINEAR FUNCTION SET SELECTION\r\nC     NOUT    OUT PUT  EVERY NOUT TIME STEPS( PLUS 1 AND NSTEP)\r\nC     ICOUNT  CURRENT INTERATION COUNTER\r\nC     ILOOP   LOOP ON NUMBER OF TIME STEP CHANGES\r\nC     MODAL   LESS THAN ZERO IMPLIES THIS IS A DIRECT FORMULATION\r\nC     LCORE   AMOUNT OF CORE FOR TRD1D\r\nC     ICORE   POINTER TO FIRST CELL OF OPEN CORE\r\nC     IU      POINTER TO LATEST DISPLACEMENT VECTOR\r\nC     IU1     POINTER TO DISPLACEMENT VECTOR -- ONE TIME STEP BACK\r\nC     IP      POINTER TO LOAD VECTOR\r\nC     NMODES  NUMBER OF MODES IN PROBLEM\r\nC     NSTEP   NUMBER OF TIME STEPS\r\nC     ITLIST  LIST OF CARD TYPES FOR DYNAMIC TABLES\r\nC     NROW    SIZE OF SOLUTION SET\r\nC     IBUF1   POINTER TO BUFFER\r\nC     NCARDS  NUMBER OF LOAD CARDS IN SELECTED SET\r\nC     ICARDS  POINTER  TO FIRST CARD\r\nC     NTABL   NUMBER OF TABLES\r\nC     ITABL   POINTER TO FIRST TABLE\r\nC     IPNL    MATRIX CONTROL BLOCK FOR PNL\r\nC\r\nC     DESCRIPTION OF TYPES OF NON-LINEAR LOADING\r\nC\r\nC     TYPE    DESCRIPTION\r\nC     ----    -----------\r\nC\r\nC       1     DISPLACEMENT-DEPENDENT NOLIN1 LOAD\r\nC       2     DISPLACEMENT-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD\r\nC       3     DISPLACEMENT-DEPENDENT NOLIN3 LOAD\r\nC       4     DISPLACEMENT-DEPENDENT NOLIN4 LOAD\r\nC       5     VELOCITY-DEPENDENT NOLIN1 LOAD\r\nC       6     VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN2 LOAD\r\nC       7     VELOCITY-DEPENDENT NOLIN3 LOAD\r\nC       8     VELOCITY-DEPENDENT NOLIN4 LOAD\r\nC       9     VELOCITY-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD\r\nC      10     DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN2 LOAD\r\nC      11     TEMPERATURE-DEPENDENT CONVECTION NON-LINEAR LOAD (FTUBE)\r\nC      12     TEMPERATURE-DEPENDENT EMISSIVITIES-ABSORPTIVITIES, NOLIN5\r\nC      13     DISPLACEMENT-DEPENDENT/VELOCITY-DEPENDENT NOLIN6 LOAD\r\nC      14     VELOCITY-DEPENDENT/DISPLACEMENT-DEPENDENT NOLIN6 LOAD\r\nC\r\nC     DETERMINE ENTRY NUMBER\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IPX = IP\r\nC\r\n      IF ((ILOOP.EQ.1 .AND. ICOUNT.GT.1) .OR. (ILOOP.GT.1 .AND.\r\n     1     ICOUNT.GT.0)) GO TO 170\r\n      IF (IFRST  .NE. 0) GO TO 170\r\nC\r\nC     FIRST TIME FOR TIME STEP\r\nC\r\n      CALL SSWTCH (10,IALG)\r\n      IBUF1 = LCORE + ICORE - SYSBUF\r\n      FILE  = NLFT\r\n      LCORE = LCORE - SYSBUF - 1\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LE. 0) GO TO 430\r\n      CALL OPEN (*400,NLFT,IZ(IBUF1),0)\r\nC\r\nC     FIND SELECTED SET ID\r\nC\r\n      CALL READ (*420,*10,NLFT,IZ(ICORE+1),LCORE,0,IFLAG)\r\n      ICRQ = LCORE\r\n      GO TO 430\r\n   10 DO 20 I = 3,IFLAG\r\n      K = I + ICORE\r\n      IF (IZ(K) .EQ. NLFTP) GO TO 30\r\n   20 CONTINUE\r\n      CALL MESAGE (-31,NLFTP,NAME)\r\nC\r\nC     FOUND SET ID -- POSITION TO RECORD IN NLFT\r\nC\r\n   30 K = I-3\r\n      IF (K .EQ. 0) GO TO 50\r\n      DO 40 I = 1,K\r\n      CALL FWDREC (*420,NLFT)\r\n   40 CONTINUE\r\nC\r\nC     BRING IN  8 WORDS PER CARD\r\nC     FORMAT =    TYPE,SILD,SILE,A,SILD,SILE,A OR SILD,SILE\r\nC     CONVERT TO  TYPE,ROWP,ROWP,A,ROWP OR A\r\nC     COUNT NUMBER OF CARDS\r\nC\r\n   50 NCARDS = 0\r\n      ICARDS = ICORE + 1\r\n      K      = ICARDS\r\n   60 ICRQ   = 8 - LCORE\r\n      IF (ICRQ  .GT. 0) GO TO 430\r\n      CALL READ (*420,*80,NLFT,IZ(K),8,0,IFLAG)\r\n      IF (MODAL .LT. 0) GO TO 70\r\nC\r\nC     MODAL FORM -- CONVERT SILE TO ROW POSITIONS AND STORE IN SILD\r\nC\r\n      IF (IZ(K+2) .EQ. 0) GO TO 440\r\n      IZ(K+1) = IZ(K+2) + NMODES\r\n      IF (IZ(K+5) .EQ. 0) GO TO 440\r\n      IZ(K+4) = IZ(K+5) +  NMODES\r\n      IF (IZ(K).NE.2 .AND. IZ(K).NE.6 .AND. IZ(K).NE.9 .AND.\r\n     1    IZ(K).NE.10) GO TO 70\r\n      IF (IZ(K+7) .EQ. 0) GO TO 440\r\n      IZ(K+6) = IZ(K+7) + NMODES\r\n   70 CONTINUE\r\nC\r\nC     MOVE UP\r\nC\r\n      IZ(K+2) = IZ(K+4)\r\n      IZ(K+4) = IZ(K+6)\r\n      K       = K + 5\r\n      LCORE   = LCORE  - 5\r\n      NCARDS  = NCARDS + 1\r\n      GO TO 60\r\nC\r\nC     END OF RECORD-- DONE\r\nC\r\n   80 CALL CLOSE (NLFT,1)\r\nC\r\nC     EXTRACT LIST OF  UNIQUE TABLES FROM CARD TYPES 1,5,11 AND 14\r\nC\r\n      L     = ICARDS\r\n      NTABL = 0\r\n      ITABL = K\r\n      DO 120 I = 1,NCARDS\r\n      IZL = IZ(L)\r\n      IF (IZL.NE.1 .AND. IZL.NE.5 .AND. (IZL.LT.11 .OR. IZL.GT.14))\r\n     1   GO TO 110\r\n      IF (IZL.NE.11 .AND. IZL.NE.12) GO TO 85\r\n      IZL = IZ(L+4)\r\n      IF (IZ(L) .NE. 11) GO TO 83\r\nC\r\nC     NFTUBE CARD\r\nC\r\n   81 NXX = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX-1) 110,85,110\r\nC\r\nC     NOLIN5 CARD\r\nC\r\n   83 NXX   = NUMTYP(IZ(L+3))\r\n      IF (DEC .AND. IZ(L+3).GT.16000 .AND. IZ(L+3).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .NE. 1) GO TO 81\r\n      ITID1 = IZ(L+3)\r\n      NXX   = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX .NE. 1) GO TO 87\r\n      ITID2 = IZ(L+4)\r\n      NUMTB = 2\r\n      GO TO 89\r\n   85 ITID1 = IZ(L+4)\r\n   87 NUMTB = 1\r\n   89 CONTINUE\r\nC\r\nC     FIND OUT IF UNIQUE TABLE\r\nC\r\n      IF (NTABL .EQ. 0) GO TO 100\r\n      DO 90 M = 1,NTABL\r\n      K = ITABL + M\r\n      IF (IZ(K) .EQ. ITID1) GO TO 110\r\n   90 CONTINUE\r\nC\r\nC     NEW TABLE\r\nC\r\n  100 NTABL = NTABL + 1\r\n      K     = ITABL + NTABL\r\n      IZ(K) = ITID1\r\n  110 CONTINUE\r\n      IF (NUMTB .EQ. 1) GO TO 115\r\n      NUMTB = 1\r\n      ITID1 = ITID2\r\n      GO TO 89\r\n  115 L     = L + 5\r\n  120 CONTINUE\r\nC\r\n      IZ(ITABL) = NTABL\r\n      LCORE = LCORE - NTABL - 1\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LE. 0) GO TO 430\r\n      IF (NTABL .EQ. 0) GO TO 150\r\nC\r\nC     INITIALIZE TABLES\r\nC\r\n      K     = ITABL + NTABL + 1\r\n      CALL PRETAB (DIT,IZ(K),IZ(K),IZ(IBUF1),LCORE,L,IZ(ITABL),ITLIST)\r\n      LCORE = LCORE - L\r\n      IF (IALG .EQ. 0) GO TO 140\r\n      IN1   = (K + L)/2\r\n      IN2   = IN1 + NROW\r\n      IN3   = IN2 + NROW\r\n      LCORE = LCORE - 6*NROW\r\n      ICRQ  =-LCORE\r\n      IF (LCORE .LT. 0) GO TO 430\r\nC\r\nC     ZERO LOAD VECTORS\r\nC\r\n      DO 130 I = 1,NROW\r\n      K     = IN1 + I\r\n      DZ(K) = 0.0D0\r\n      K     = IN2 + I\r\n      DZ(K) = 0.0D0\r\n      K     = IN3 + I\r\n      DZ(K) = 0.0D0\r\n  130 CONTINUE\r\n  140 CONTINUE\r\n  150 RETURN\r\nC\r\nC     COMPUTE LOADS\r\nC\r\n  170 K   = ICARDS + NCARDS*5 - 1\r\n      IF (IALG .EQ. 0) GO TO 180\r\n      IPX = IN1\r\n      DO 175 I = 1,NROW\r\n      L   = IN1 + I\r\n      DZ(L) = 0.0D0\r\n  175 CONTINUE\r\nC\r\nC     LOOP THRU EACH LOAD CARD OR COLLECTION (NOLIN5, NOLIN6)\r\nC\r\n  180 H  = 1.0D0/DELTAT\r\n      I  = ICARDS\r\n  190 CONTINUE\r\n      FX = 0.0D0\r\n      FY = 1.0D0\r\n      M  = IU + IZ(I+2)\r\n      MM = IU + IZ(I+4)\r\n      N  = IU1+ IZ(I+2)\r\n      NN = IU1+ IZ(I+4)\r\n      X  = DZ(M)\r\n      Y  = (X-DZ(N))*H\r\n      L  = IZ(I)\r\nC     L  =     1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14\r\n      GO TO (200,210,220,230,205,213,225,235,215,217,250,260,240,245), L\r\nC\r\nC     NOLIN 1\r\nC\r\n  200 XSP = X\r\n      CALL TAB (IZ(I+4),XSP,FXSP)\r\n      FX = FXSP\r\n      GO TO 290\r\n  205 X  = Y\r\n      GO TO 200\r\nC\r\nC     NOLIN 2\r\nC\r\n  210 Y  = DZ(MM)\r\n      FX = X*Y\r\n      GO TO 290\r\n  213 X  = Y\r\n      GO TO 210\r\n  215 X  = Y\r\n  217 FX = X*(DZ(MM) - DZ(NN))*H\r\n      GO TO 290\r\nC\r\nC     NOLIN 3\r\nC\r\n  220 IF (X .LE. 0.0D0) GO TO 290\r\n      FX = X**Z(I+4)\r\n      GO TO 290\r\n  225 X  = Y\r\n      GO TO 220\r\nC\r\nC     NOLIN 4\r\nC\r\n  230 IF (X .GE. 0.0D0) GO TO 290\r\n      FX =-DABS(X)**Z(I+4)\r\n      GO TO 290\r\n  235 X  = Y\r\n      GO TO 230\r\nC\r\nC     NOLIN6\r\nC\r\n  240 X  = Y\r\n      FY = X*DABS(X)\r\n      X  = DZ(M)\r\n      GO TO 200\r\n  245 Y  = DZ(MM)\r\n      FY = Y*DABS(Y)\r\n      GO TO 200\r\nC\r\nC     NFTUBE.  LOOKUP VDOT IF NEEDED\r\nC\r\n  250 FXSP =  Z(I+4)\r\n      IZL  = IZ(I+4)\r\n      NXX  = NUMTYP(IZL)\r\n      IF (DEC .AND. IZL.GT.16000 .AND. IZL.LE.99999999) NXX = 1\r\n      IF (NXX  .EQ.   1) CALL TAB (IZ(I+4),TIM,FXSP)\r\n      IF (FXSP .GE. 0.0) M = IU + IZ(I+1)\r\n      FX   = FXSP*DZ(M)\r\n      L    = IPX + IZ(I+2)\r\n      DZ(L)= DZ(L) + FX*Z(I+3)\r\n      FY   =-1.0D0\r\n      GO TO 290\r\nC\r\nC     NOLIN5\r\nC\r\nC     A. COMPUTE SURFACE AVERAGE TEMPERATURES\r\nC\r\n  260 MM = 0\r\n      NN = 0\r\n      TAVGA = 0.0\r\n      TAVGB = 0.0\r\n      J  = 1\r\n      DO 270 L = 1,4\r\n      IF (L .EQ. 3) J = 6\r\n      M  = IZ(I+J)\r\n      IF (M .EQ. 0) GO TO 265\r\n      M  = IU + M\r\n      TAVGA = TAVGA + Z(M)\r\n      MM = MM + 1\r\n  265 M  = IZ(I+J+10)\r\n      IF (M .EQ. 0) GO TO 270\r\n      M  = IU + M\r\n      TAVGB = TAVGB + Z(M)\r\n      NN = NN + 1\r\n  270 J  = J + 1\r\n      TAVGA = TAVGA/FLOAT(MM)\r\n      TAVGB = TAVGB/FLOAT(NN)\r\n      AA    = Z(I+3)\r\n      AB    = Z(I+4)\r\n      FAB   = Z(I+8)\r\n      FABSQ = FAB*FAB\r\n      ETA   = Z(I+13)\r\n      ETB   = Z(I+14)\r\n      NXX   = NUMTYP(IZ(I+13))\r\n      IF (DEC .AND. IZ(I+13).GT.16000 .AND. IZ(I+13).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+13),TAVGA,ETA)\r\n      NXX   = NUMTYP(IZ(I+14))\r\n      IF (DEC .AND. IZ(I+14).GT.16000 .AND. IZ(I+14).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+14),TAVGB,ETB)\r\n      ALPHA = Z(I+18)\r\n      ALPHB = Z(I+19)\r\n      NXX   = NUMTYP(IZ(I+18))\r\n      IF (DEC .AND. IZ(I+18).GT.16000 .AND. IZ(I+18).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+18),TAVGA,ALPHA)\r\n      NXX   = NUMTYP(IZ(I+19))\r\n      IF (DEC .AND. IZ(I+19).GT.16000 .AND. IZ(I+19).LE.99999999)\r\n     1    NXX = 1\r\n      IF (NXX .EQ. 1) CALL TAB (IZ(I+19),TAVGB,ALPHB)\r\n      ALPHA = ALPHA - 1.0\r\n      ALPHB = ALPHB - 1.0\r\nC\r\nC     B. COMPUTE DENOMINATOR\r\nC\r\n      XH  = SIGMA*ETA*(TAVGA+TABS)**4\r\n      XK  = SIGMA*ETB*(TAVGB+TABS)**4\r\n      FXSP= ALPHA*FAB*XK - AA*XH + FAB*XK - (ALPHB*FABSQ*XH)/AB\r\n      FYSP= ALPHB*FAB*XH - AB*XK + FAB*XH - (ALPHA*FABSQ*XK)/AA\r\n      FAB = 1.0 - (ALPHA*ALPHB/AA)*(FABSQ/AB)\r\n      FX  = FXSP/(FAB*FLOAT(MM))\r\n      FY  = FYSP/(FAB*FLOAT(NN))\r\nC\r\nC     C. APPLY FORCES ON AREAS A AND  B\r\nC\r\n      J = 1\r\n      DO 280 L = 1,4\r\n      IF (L .EQ. 3) J = 6\r\n      M = IZ(I+J)\r\n      IF (M .EQ. 0) GO TO 275\r\n      M = IPX + M\r\n      DZ(M) = DZ(M) + FX\r\n  275 M = IZ(I+J+10)\r\n      IF (M .EQ. 0) GO TO 280\r\n      M = IPX + M\r\n      DZ(M) = DZ(M) + FY\r\n  280 J = J + 1\r\n      I = I + 20\r\n      GO TO 320\r\nC\r\nC     FINISH APPLYING SCALE FACTOR AND ADD\r\nC\r\n  290 L     = IPX + IZ(I+1)\r\n      DZ(L) = DZ(L) + FX*FY*Z(I+3)\r\n      IF (DABS(DZ(L)) .LT. 1.0D-36) DZ(L) = 0.0D0\r\n      IF (DABS(DZ(L)) .LT. 1.0D+36) GO TO 310\r\n      KOUNT = KOUNT + 1\r\n      IF (KOUNT.EQ.1 .OR. KOUNT.EQ.4) WRITE (IOUT,295)\r\n      IF (KOUNT .LE. 3) WRITE (IOUT,300) UWM,DZ(L)\r\n  295 FORMAT (/1X,28(4H****),/)\r\n  300 FORMAT (A25,' 3309, UNUSUALLY LARGE VALUE COMPUTED FOR NONLINEAR',\r\n     1        ' FORCING FUNCTION',5X,D15.5)\r\n  310 I = I + 5\r\n  320 IF (I .LT. K) GO TO 190\r\nC\r\nC     END OF LOAD LOOP\r\nC\r\nC     DONE\r\nC\r\n      IF (IALG .EQ. 0) GO TO 380\r\n      DO 370 I = 1,NROW\r\nC\r\nC     SUM OVER LAST THREE LOADS\r\nC\r\n      L  = IP  + I\r\n      K  = IN1 + I\r\n      M  = IN2 + I\r\n      KK = IN3 + I\r\n      DZ(L) = DZ(L) + (DZ(K)+DZ(M)+DZ(KK))/3.0D0\r\n  370 CONTINUE\r\nC\r\nC     SWITCH POINTERS\r\nC\r\n      K   = IN1\r\n      IN1 = IN2\r\n      IN2 = IN3\r\n      IN3 = K\r\n  380 RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  400 WRITE  (IOUT,405) UFM\r\n  405 FORMAT (A23,', NON-LINEAR FORCING LOAD (NLFT) WAS NOT GENERATED',\r\n     1        ' PREVIOUSLY')\r\n      IP1 =-37\r\n  410 CALL MESAGE (IP1,FILE,NMTD)\r\n      RETURN\r\n  420 IP1 =-2\r\n      GO TO 410\r\n  430 IP1  =-8\r\n      FILE = ICRQ\r\n      GO TO 410\r\nC\r\nC     LOADED POINT  NOT E-POINT IN MODAL FORMULATION\r\nC\r\n  440 CALL MESAGE (-44,NLFTP,IZ(K))\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trd1e.f",
    "content": "      SUBROUTINE TRD1E(MHH,BHH,KHH,PH,UHV,NGROUP)\r\nC\r\nC     THIS ROUTINE SOLVES TRANSIENT PROBLEM ANALYTICALLY IN CASE\r\nC         OF UNCOUPLED MODAL WITH NO NONLINEAR LOADS\r\nC\r\n      REAL    MI,KI\r\n      INTEGER IZ(1),SYSBUF,IUHV(7),BHH,PH,UHV,FILE\r\n      INTEGER NAME(2)\r\nC\r\nCRLBNB SPR94003 9/94\r\n      COMMON /BLANK / DUMMY(4), NCOL\r\nCRLBNE\r\n      COMMON /PACKX/ IT1,IT2,II,JJ,INCUR\r\n      COMMON /UNPAKX/IT3,III,JJJ,INCUR1\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF\r\nC\r\n      EQUIVALENCE (IZ(1),Z(1))\r\nC\r\n      DATA NAME/4HTRD1,4HE   /\r\n      DATA EPSI/1.0E-8/\r\nC*********\r\nC     DEFINITION OF VARIABLES\r\nC*********\r\nC     IGROUP   POINTER TO TIME STEP DATA  N1,DELTAT,NO\r\nC     NGROUP   NUMBER OF TIME STEP CHANGES\r\nC     MHH      MODAL MASS FILE\r\nC     KHH      MODAL STIFFNESS FILE\r\nC     BHH      MODAL DAMPING FILE\r\nC     PH       LOAD FILE\r\nC     UHV      DISPLACEMENT,VELOCITY, AND ACCELERATION FILE\r\nC     NMODES   ORDER OF MODAL FORMULATION\r\nC     IMII     POINTER TO MASSES\r\nC     IBII     POINTER TO DAMPING\r\nC     IKII     POINTER TO STIFFNESS\r\nC     IF       POINTER TO F-S\r\nC     IFPR     POINTER TO F PRIMES\r\nC     IG       POINTER TO G-S\r\nC     IGPR\r\nC     IA       POINTER TO A-S\r\nC     IAPR\r\nC     IB       POINTER TO B-S\r\nC     IBPR\r\nC     IUJ      POINTER TO OLD  DISP\r\nC     IUJ1             TO NEW  DISP\r\nC     IUDJ     POINTER TO  OLD VELOCITY VECTOR\r\nC     IUDJ1                NEW VELOCITY VECTOR\r\nC     IPHJ     POINTER TO  OLD LOAD VECTOR\r\nC     IPHJ1                NEW LOAD VECTOR\r\nC     NSTEP    NUMBER OF STEPS AT CURRENT INCREMENT\r\nC     H        CURRENT DELTA T\r\nC     NOUT     OUTPUT INCURMENT\r\nC     EPSI     CASE SELTION TOLERANCE\r\nC\r\nC********    HERE WE GO --GET LOTS OF PAPER\r\nC\r\n      LC = KORSZ(Z)\r\n      LC =LC -NGROUP*3\r\n      IGROUP = LC+1\r\n      IST =-1\r\n      IBUF1 =LC -SYSBUF\r\n      IBUF2 =IBUF1 -SYSBUF\r\n      LC = LC - 2*SYSBUF\r\n      IUHV(1)= MHH\r\n      CALL RDTRL(IUHV)\r\n      NMODES = IUHV(2)\r\n      IT1=1\r\n      IT2=1\r\n      IT3=1\r\n      INCUR=1\r\n      INCUR1=1\r\n      II=1\r\n      JJ=NMODES\r\n      ICRQ = 17*NMODES - LC\r\n      IF(ICRQ.GT.0) GO TO 340\r\nC\r\nC     BRING IN H MATRICES\r\nC\r\nC\r\nC     BRING IN  MHH\r\n      FILE =MHH\r\n      IMII =0\r\n      KK=IMII\r\n      ASSIGN 10 TO IRETN\r\n      GO TO 280\r\nC\r\nC     BRING IN BHH\r\n   10 DO 11 J=1,NMODES\r\n      IF(Z(J) .EQ. 0.0) GO TO 350\r\n   11 CONTINUE\r\n      FILE = BHH\r\n      IBII= IMII+ NMODES\r\n      KK = IBII\r\n      ASSIGN 20 TO IRETN\r\n      GO TO 280\r\nC\r\nC     BRING IN KHH\r\n   20 FILE =KHH\r\n      IKII = IBII +NMODES\r\n      KK= IKII\r\n      ASSIGN 30 TO IRETN\r\n      GO TO 280\r\nC\r\nC     ASSIGN ADDITIONAL POINTERS\r\nC\r\n   30 III=1\r\n      JJJ=NMODES\r\n      IF = IKII + NMODES\r\n      IG = IF   + NMODES\r\n      IA = IG   + NMODES\r\n      IB = IA   + NMODES\r\n      IFPR=IB   + NMODES\r\n      IGPR=IFPR + NMODES\r\n      IAPR=IGPR + NMODES\r\n      IBPR=IAPR + NMODES\r\n      IUJ =IBPR + NMODES\r\n      IUJ1=IUJ  + NMODES\r\n      IUDJ=IUJ1 + NMODES\r\n      IUDJ1=IUDJ+ NMODES\r\n      IPHJ =IUDJ1+NMODES\r\n      IPHJ1=IPHJ +NMODES\r\nCRLBNB SPR94003 9/94\r\n      IF (NCOL .LE. 2) GO TO 37\r\nC\r\nC     RETRIEVE OLD DISPLACEMENT AND VELOCITY\r\nC     FROM A PREVIOUSLY CHECKPOINTED RUN\r\nC\r\n      CALL GOPEN (UHV, IZ(IBUF1), 0)\r\n      I = 3*(NCOL - 1)\r\n      CALL SKPREC (UHV, I)\r\nC\r\nC     RETRIEVE OLD DISPLACEMENT\r\nC\r\n      CALL UNPACK (*31, UHV, Z(IUJ1+1))\r\n      GO TO 33\r\n   31 DO 32 I = 1, NMODES\r\n      K = IUJ1 + I\r\n      Z(K) = 0.0\r\n   32 CONTINUE\r\nC\r\nC     RETRIEVE OLD VELOCITY\r\nC\r\n   33 CALL UNPACK (*34, UHV, Z(IUDJ1+1))\r\n      GO TO 36\r\n   34 DO 35 I = 1, NMODES\r\n      K = IUDJ1 + I\r\n      Z(K) = 0.0\r\n   35 CONTINUE\r\n   36 CALL CLOSE (UHV, 1)\r\nCRLBNE\r\nC\r\nC     READY UHV\r\nC\r\nCRLBR SPR94003 9/94      CALL GOPEN(UHV,IZ(IBUF1),1)\r\n   37 CALL GOPEN(UHV,IZ(IBUF1),1)\r\n      CALL MAKMCB(IUHV,UHV,NMODES,2,1)\r\nC\r\nC     READY LOADS\r\nC\r\n      CALL GOPEN(PH,IZ(IBUF2),0)\r\n      CALL UNPACK(*40,PH,Z(IPHJ1+1))\r\n      GO TO 60\r\nC\r\nC     ZERO LOAD\r\nC\r\n   40 DO 50 I=1,NMODES\r\n      K = IPHJ1+I\r\n      Z(K) = 0.0\r\n   50 CONTINUE\r\nCRLBNB SPR94003 9/94\r\n   60 IF (NCOL .GT. 2) GO TO 75\r\nCRLBNE\r\nC\r\nC     ZERO INITIAL DISPLACEMENT AND VELOCITY\r\nC\r\nCRLBR SPR 94003 9/94   60 DO 70 I=1,NMODES\r\n      DO 70 I=1,NMODES      \r\n      K = IUJ1+I\r\n      Z(K) = 0.0\r\n      K = IUDJ1+I\r\n      Z(K) = 0.0\r\n   70 CONTINUE\r\nC\r\nC     BEGIN LOOP ON EACH DIFFERENT TIME STEP\r\nC\r\nCRLBR SPR 94003 9/94      I = 1\r\n   75 I = 1\r\n   80 NSTEP = IZ(IGROUP)\r\n      IF(I .EQ. 1) NSTEP = NSTEP+1\r\n      H     =  Z(IGROUP+1)\r\n      NOUT = IZ(IGROUP+2)\r\n      IGROUP = IGROUP +3\r\n      JK = 1\r\n      IF(I .EQ. 1) GO TO 170\r\nC\r\nC     COMPUTE F-S ,G-S,A-S,B-S\r\nC\r\n   90 DO 140 J=1,NMODES\r\n      K= IMII+J\r\n      MI= Z(K)\r\n      IF(MI .EQ. 0.0) GO TO 350\r\n      K= IBII+J\r\n      BI= Z(K)\r\n      K = IKII+J\r\n      KI= Z(K)\r\n      WOSQ =KI/MI\r\n      BETA = BI/(2.0*MI)\r\n      BETASQ =BETA*BETA\r\n      WSQ  = ABS(WOSQ - BETASQ)\r\n      W = SQRT(WSQ)\r\n      IF(SQRT(WSQ + BETASQ)*H .LT. 1.E-6) GO TO 100\r\n      T1 = ( WOSQ-BETASQ ) / WOSQ\r\n      IF( T1 .GT. EPSI ) GO TO 110\r\n      IF( T1 .LT. -EPSI) GO TO 130\r\nC\r\nC     CASE  3  CRITICALLY DAMPED\r\nC\r\n      BH = BETA*H\r\n      EXPBH = EXP(-BH)\r\n      T1 = H*KI\r\n      K = IF+J\r\nC\r\nC     COMPUTE F\r\nC\r\n      Z(K) = EXPBH*(1.0 +BH)\r\nC\r\nC     COMPUTE  G\r\nC\r\n      K = IG +J\r\n      Z(K)= H*EXPBH\r\nC\r\nC     COMPUTE A\r\nC\r\n      K = IA +J\r\n      Z(K) = (2.0/BETA - EXPBH/BETA*(2.0 +2.0*BH + BH*BH))/ T1\r\nC\r\nC     COMPUTE B\r\nC\r\n      K=IB +J\r\n      Z(K) = (-2.0 +BH+EXPBH*(2.0+BH))/(BH*KI)\r\nC\r\nC     COMPUTE  F PRIME\r\nC\r\n      K= IFPR+J\r\n      Z(K) = -BETASQ*H*EXPBH\r\nC\r\nC     COMPUTE  G PRIME\r\nC\r\n      K = IGPR+J\r\n      Z(K)= EXPBH*(1.0- BH)\r\nC\r\nC     COMPUTE A PRIME\r\nC\r\n      K = IAPR +J\r\n      Z(K) = (EXPBH*(1.0 + BH + BH*BH)- 1.0)/T1\r\nC\r\nC     COMPUTE  B PRIME\r\nC\r\n      K = IBPR +J\r\n      Z(K) = (1.0 -EXPBH*(BH +1.0))/T1\r\n      GO TO 140\r\nC\r\nC     CASE  4   W0 = BETA =0.0\r\nC\r\n  100 K=IF+J\r\n      Z(K)=1.0\r\n      K= IG+J\r\n      Z(K)=H\r\n      K= IA+J\r\n      Z(K)= H*H/(3.0*MI)\r\n      K= IB+J\r\n      Z(K)= H*H/(6.0*MI)\r\n      K= IFPR+J\r\n      Z(K)=0.0\r\n      K= IGPR+J\r\n      Z(K)=1.0\r\n      T1 = H/(2.0*MI)\r\n      K = IAPR+J\r\n      Z(K)= T1\r\n      K=  IBPR+J\r\n      Z(K)= T1\r\n      GO TO 140\r\nC\r\nC     CASE 1 --UNDERDAMPED\r\nC\r\n  110 WH = W*H\r\n      EXPBH = EXP(-BETA*H)\r\n      SINWH = SIN(WH)\r\n      COSWH = COS(WH)\r\nC\r\nC     COMPUTE F\r\nC\r\n  120 K= IF +J\r\n      Z(K)= EXPBH*(COSWH +BETA/W *SINWH)\r\nC\r\nC     COMPUTE G\r\nC\r\n      K = IG +J\r\n      Z(K) = EXPBH/W*SINWH\r\nC\r\nC     COMPUTE A\r\nC\r\n      K= IA+J\r\n      T1 =(WSQ -BETASQ)/WOSQ\r\n      T2 = 2.0*W*BETA/WOSQ\r\n      T3 = WH*KI\r\n      Z(K)= (EXPBH*((T1-BETA*H)*SINWH-(T2+WH)*COSWH)+T2)/T3\r\nC\r\nC     COMPUTE  B\r\nC\r\n      K =IB +J\r\n      Z(K) = (EXPBH*(-T1*SINWH + T2*COSWH)+WH- T2)/T3\r\nC\r\nC     COMPUTE  FPRIME\r\nC\r\n      K = IFPR+J\r\n      Z(K) = -WOSQ/W*EXPBH*SINWH\r\nC\r\nC     COMPUTE G PRIME\r\nC\r\n      K =IGPR +J\r\n      Z(K) = EXPBH*(COSWH -BETA/W *SINWH)\r\nC\r\nC     COMPUTE A PRIME\r\nC\r\n      K = IAPR +J\r\n      Z(K) =(EXPBH*((BETA +WOSQ*H)*SINWH +W*COSWH)- W)/T3\r\nC\r\nC     COMPUTE B PRIME\r\nC\r\n      K =IBPR +J\r\n      Z(K) = (-EXPBH*(BETA*SINWH +W*COSWH) + W)/T3\r\n      GO TO 140\r\nC\r\nC     CASE  3    W0 - BETASQ L -E\r\nC\r\n  130 WH =W*H\r\n      EXPBH= EXP(-BETA*H)\r\n      SINWH =   SINH(WH)\r\n      COSWH =   COSH(WH)\r\n      BETASQ = -BETASQ\r\n      GO TO 120\r\n  140 CONTINUE\r\nC\r\nC     BEGIN LOOP ON INCREMENTS\r\nC\r\nC\r\nC     COMPUTE  NEW DISPLACEMENTS\r\nC\r\n  150 K = IUJ1\r\n      KK=IUDJ1\r\n      DO 160 L=1,NMODES\r\n      K=K+1\r\n      KK =KK+1\r\n      Z(K)=0.0\r\n      Z(KK)=0.0\r\n      KKK = IF+L\r\n      KD =  IUJ +L\r\n      Z(K) =Z(KKK)*Z(KD) +Z(K)\r\n      KKK = IFPR +L\r\n      Z(KK) = Z(KKK)*Z(KD) +Z(KK)\r\n      KD= IUDJ+L\r\n      KKK = IG +L\r\n      Z(K) = Z(KKK)*Z(KD) +Z(K)\r\n      KKK = IGPR +L\r\n      Z(KK) = Z(KKK)*Z(KD) +Z(KK)\r\n      KD = IPHJ +L\r\n      KKK = IA +L\r\n      Z(K) = Z(KKK)*Z(KD) +Z(K)\r\n      KKK  = IAPR +L\r\n      Z(KK)= Z(KKK)*Z(KD) + Z(KK)\r\n      KD = IPHJ1+L\r\n      KKK=  IB +L\r\n      Z(K) = Z(KKK)*Z(KD) +Z(K)\r\n      KKK  = IBPR +L\r\n      Z(KK) = Z(KKK)*Z(KD) + Z(KK)\r\n  160 CONTINUE\r\n      IF(JK .EQ. NSTEP) GO TO 200\r\n      IF( JK .NE. 1 .AND. MOD(JK+IST,NOUT) .NE. 0) GO TO 180\r\nC\r\nC     TIME TO OUTPUT--YOU LUCKY FELLOW\r\nC\r\n  170 ASSIGN 190 TO IRETN\r\n      GO TO 220\r\n  180 ASSIGN 190 TO IRETN\r\n      GO TO 240\r\n  190 JK = JK+1\r\n      IF(JK .EQ. 2 .AND. I .EQ. 1) GO TO 90\r\n      IF(JK .LE. NSTEP) GO TO 150\r\n  200 ASSIGN 210 TO IRETN\r\n      GO TO 220\r\n  210 I =I+1\r\n      IST = 0\r\n      IF( I .LE. NGROUP) GO TO 80\r\n      CALL CLOSE(PH,1)\r\n      CALL CLOSE(UHV,1)\r\n      CALL WRTTRL(IUHV)\r\n      RETURN\r\nC\r\nC     INTERNAL SUBROUTINE FOR OUTPUT AND VELOCITY COMPUTE\r\nC\r\n  220 CALL PACK(Z(IUJ1+1),UHV,IUHV)\r\n      CALL PACK(Z(IUDJ1+1),UHV,IUHV)\r\nC\r\nC     COMPUTE  ACCELERATIONS\r\nC\r\n      DO 230 L=1,NMODES\r\n      K= IUDJ+L\r\n      KK=IPHJ1+L\r\n      KKK = IMII+L\r\n      KD = IBII+L\r\n      KD1= IUDJ1+L\r\n      KD2= IUJ1 +L\r\n      KD3 = IKII+L\r\n      Z(K) = Z(KK)/Z(KKK)-Z(KD)*Z(KD1)/Z(KKK)-Z(KD3)*Z(KD2)/Z(KKK)\r\n  230 CONTINUE\r\n      CALL PACK(Z(IUDJ+1),UHV,IUHV)\r\nC\r\nC     SWITCH POINTS TO STUFF\r\nC\r\n  240 KD= IUJ\r\n      IUJ = IUJ1\r\n      IUJ1=KD\r\n      KD= IUDJ\r\n      IUDJ =IUDJ1\r\n      IUDJ1=KD\r\n      KD = IPHJ\r\n      IPHJ =IPHJ1\r\n      IPHJ1= KD\r\nC\r\nC     BRING IN NEXT LOAD VECTOR\r\nC\r\n      CALL UNPACK(*260,PH,Z(IPHJ1+1))\r\n  250 GO TO IRETN,(190,210)\r\n  260 DO 270 KD=1,NMODES\r\n      K = IPHJ1 +KD\r\n      Z(K) =0.0\r\n  270 CONTINUE\r\n      GO TO 250\r\nC\r\nC     INTERNAL SUBROUTINE TO BRING  IN H MATRICES\r\nC\r\n  280 CALL OPEN(*302,FILE,IZ(IBUF1),0)\r\n      CALL SKPREC(FILE,1)\r\n      DO 300 KD=1,NMODES\r\n      III= KD\r\n      JJJ= KD\r\n      KD1= KK+KD\r\n      CALL UNPACK(*290,FILE,Z(KD1))\r\n      GO TO 300\r\n  290 Z(KD1)= 0.0\r\n  300 CONTINUE\r\n      CALL CLOSE(FILE,1)\r\n  301 GO TO IRETN,(10,20,30)\r\nC\r\nC      ZERO CORE FOR PURGED FILES\r\nC\r\n  302 DO 303 KD = 1,NMODES\r\n      KD1 = KK + KD\r\n      Z(KD1) = 0.0\r\n  303 CONTINUE\r\n      GO TO 301\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  320 CALL MESAGE(IP1,FILE,NAME)\r\n      RETURN\r\n  340 IP1 = -8\r\n      FILE = ICRQ\r\n      GO TO 320\r\n  350 IP1 = -43\r\n      FILE = J\r\n      GO TO 320\r\n      END\r\n\u001a"
  },
  {
    "path": "mis/tree.f",
    "content": "      SUBROUTINE TREE (IROOT,NDSTK,LVL,IWK,NDEG,LVLWTH,LVLBOT,LVLN,\r\n     1                 MAXLW,IBORT,JWK)\r\nC\r\nC     TREE DROPS A TREE IN NDSTK FROM IROOT\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     LVL-      ARRAY INDICATING AVAILABLE NODES IN NDSTK WITH ZERO\r\nC               ENTRIES. TREE ENTERS LEVEL NUMBERS ASSIGNED\r\nC               DURING EXECUTION OF OF THIS PROCEDURE\r\nC     IWK-      ON OUTPUT CONTAINS NODE NUMBERS USED IN TREE\r\nC               ARRANGED BY LEVELS (IWK(LVLN) CONTAINS IROOT\r\nC               AND IWK(LVLBOT+LVLWTH-1) CONTAINS LAST NODE ENTERED)\r\nC     JWK-      ON ONTPUT CONTAINS A ROW OF UNPACKED GRID NOS.\r\nC               CURRENTLY, JWK AND RENUM SHARE SAME CORE SPACE\r\nC     LVLWTH-   ON OUTPUT CONTAINS WIDTH OF LAST LEVEL\r\nC     LVLBOT-   ON OUTPUT CONTAINS INDEX INTO IWK OF FIRST\r\nC               NODE IN LAST LEVEL\r\nC     MAXLW-    ON OUTPUT CONTAINS THE MAXIMUM LEVEL WIDTH\r\nC     LVLN-     ON INPUT THE FIRST AVAILABLE LOCATION IN IWK\r\nC               USUALLY ONE BUT IF IWK IS USED TO STORE PREVIOUS\r\nC               CONNECTED COMPONENTS, LVLN IS NEXT AVAILABLE LOCATION.\r\nC               ON OUTPUT THE TOTAL NUMBER OF LEVELS + 1\r\nC     IBORT-    INPUT PARAM WHICH TRIGGERS EARLY RETURN IF\r\nC               MAXLW BECOMES .GE. IBORT\r\nC\r\nC     INTEGER          BUNPK\r\n      DIMENSION        LVL(1),   IWK(1),   NDEG(1),  NDSTK(1),  JWK(1)\r\nC\r\n      MAXLW =0\r\n      ITOP  =LVLN\r\n      INOW  =LVLN\r\n      LVLBOT=LVLN\r\n      LVLTOP=LVLN+1\r\n      LVLN  =1\r\n      LVL(IROOT)=1\r\n      IWK(ITOP) =IROOT\r\n   30 LVLN  =LVLN+1\r\n   35 IWKNOW=IWK(INOW)\r\n      NDROW =NDEG(IWKNOW)\r\n      CALL BUNPAK(NDSTK,IWKNOW,NDROW,JWK)\r\n      DO 40 J=1,NDROW\r\n      ITEST=JWK(J)\r\n      IF (LVL(ITEST).NE.0) GO TO 40\r\n      LVL(ITEST)=LVLN\r\n      ITOP=ITOP+1\r\n      IWK(ITOP)=ITEST\r\n   40 CONTINUE\r\n      INOW=INOW+1\r\n      IF (INOW.LT.LVLTOP) GO TO 35\r\n      LVLWTH=LVLTOP-LVLBOT\r\n      IF (MAXLW.LT.LVLWTH) MAXLW=LVLWTH\r\n      IF (MAXLW.GE.IBORT .OR. ITOP.LT.LVLTOP) RETURN\r\n      LVLBOT=INOW\r\n      LVLTOP=ITOP+1\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/trht.f",
    "content": "      SUBROUTINE TRHT\r\nC\r\nC     TRANSIENT INTEGRATION HEAT TRANSFER MODULE\r\nC\r\nC     INPUTS  CASEXX,USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD,TRL (10)\r\nC\r\nC     OUTPUTS  UDVT,PNLD (2)\r\nC\r\nC     SCRATCHES (7)\r\nC     PARAMETERS BETA(R),TABS(R),NORAD(L),RADLIN(L)\r\nC\r\nC     ICR1 IS LLL\r\nC     ICR2 IS ULL\r\nC     ICR5 IS INITIAL CONDITIONS\r\nC     ICR6 IS A MATRIX\r\nC     ICR3,ICR4,ICR7 ARE DECOMP SCRATCH FILES\r\nC\r\n      INTEGER         CASEXX,USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD,TRL,\r\n     1                UDVT,PNLD,RADLIN,ISCR1,ISCR2,ISCR3,ISCR4,\r\n     2                IZ(1),NAME(2),IPNL(7),SYSBUF,DIT1,PNL1\r\n      COMMON /BLANK / BETA,TABS,NORAD,RADLIN,SIGMA\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /TRHTX / IK(7),IB(7),ICR1,ICR2,ICR3,ICR4,ICR5,ISYM,ICR6,\r\n     1                ICR7,TIM\r\n      COMMON /TRDD1 / NLFT1,DIT1,NLFTP1,NOUT,ICOUNT,ILOOP1,MODA1,NZ,\r\n     1                ICORE,IU2,IP4,IPNL,NMODES,NSTEP,PNL1,IST,MORE(6)\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(KSYSTM(55),IPREC),(Z(1),IZ(1))\r\n      DATA    CASEXX, USETD,NLFT,DIT,GPTT,KDD,BDD,RDD,PD ,TRL/\r\n     1        101   , 102  ,103 ,104,105 ,106,107,108,109,110/,\r\n     2        UDVT  , PNLD,ISCR1 ,ISCR2,ISCR3,ISCR4,ISCR5,ISCR6,ISCR7/\r\n     3        201   , 202 ,301   ,302  ,303  ,304  ,305  ,306  ,307  /\r\n      DATA    NAME  / 4HTRD ,4H    /,   NB   / 8 /\r\nC\r\nC     SET UP FILES\r\nC\r\n      IK(1) = KDD\r\n      CALL RDTRL (IK)\r\n      IB(1) = BDD\r\n      CALL RDTRL (IB)\r\n      ICR1 = ISCR1\r\n      ICR2 = ISCR2\r\n      ICR3 = ISCR3\r\n      ICR4 = ISCR4\r\n      ICR5 = ISCR5\r\n      ICR6 = ISCR6\r\n      ICR7 = ISCR7\r\nC\r\nC     SET UP NONLINEAR FILES\r\nC\r\n      NLFT1 = NLFT\r\n      DIT1  = DIT\r\n      PNL1  = PNLD\r\n      IF (IK(1) .LE. 0) IK(1) = 0\r\n      IF (IB(1) .LE. 0) IB(1) = 0\r\n      MODA1 = -1\r\n      IF (IB(1) .NE. 0) IK(2) = IB(2)\r\nC\r\nC     OBTAIN PARAMETERS, INITIAL CONDITIONS\r\nC\r\n      CALL TRHT1A (CASEXX,USETD,GPTT,TRL,NGROUP)\r\nC\r\nC     ALLOCATE CORE\r\nC\r\n      NZ = KORSZ(Z)\r\n      IGROUP = NZ - 3*NGROUP + 1\r\n      NV = 4\r\n      IF (NLFTP1.NE.0 .OR. NORAD.NE.-1) NV = NV + 3\r\n      IF (NZ .LT. NV*IK(2)*IPREC-NB*SYSBUF-3*NGROUP)\r\n     1    CALL MESAGE (-8,0,NAME)\r\n      TIM = 0.\r\n      DO 10 I = 1, NGROUP\r\n      CALL KLOCK (ITIM1)\r\n      NSTEP  = IZ(IGROUP )\r\n      DELTA  = Z(IGROUP+1)\r\n      IGROUP = IGROUP + 3\r\nC\r\nC     FORM  A  MATRIX AND DECOMPOSE\r\nC\r\n      CALL TRHT1B (3*NGROUP,DELTA)\r\n      CALL KLOCK  (ITIM3)\r\n      CALL TRHT1C (NGROUP,UDVT,PD,RDD,I)\r\n      CALL KLOCK  (ITIM2)\r\n      CALL TMTOGO (ITLEFT)\r\n      IF (I .EQ. NGROUP) GO TO 10\r\n      IF ((ITIM 3-ITIM1+((ITIM 2-ITIM 3)/NSTEP)*IZ(IGROUP)) .GE. ITLEFT)\r\n     1   GO TO 30\r\n   10 CONTINUE\r\n   20 RETURN\r\nC\r\n   30 CALL MESAGE (45,NGROUP-I,NAME)\r\n      GO TO 20\r\n      END\r\n"
  },
  {
    "path": "mis/trht1a.f",
    "content": "      SUBROUTINE TRHT1A (CASEXX,USETD,GPTT,TRL,NGROUP)\r\nC\r\nC     TRHT1A INITIALIZES FOR TRHT MODULE\r\nC\r\nC     ITS TASK IS TO EXTRACT INITIAL CONDITION POINTS FROM CASEXX\r\nC     AND TO PUT INITIAL STUFF ON ICR5\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         CASEXX,USETD,GPTT,TRL,SYSBUF,IZ(160),NAME(2),\r\n     1                FILE,ANDF,TWO1,MCB(7),IA(1)\r\n      COMMON /BITPOS/ ISK(11),IUE,ISK1(3),IUD\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /BLANK / X\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /TRHTX / IK(7),IB(7),ICR1,ICR2,ICR3,ICR4,ISCR5\r\n      COMMON /TRDD1 / NLFT1,DIT1,NLFTP1\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ZBLPKX/ A(4),II\r\n      COMMON /PACKX / IT1,IT2,II1,JJ1,INCR\r\n      EQUIVALENCE     (Z(1),IZ(1)), (A(1),IA(1))\r\n      DATA    NAME  / 4HTRHT,4H1A  /\r\nC\r\nC\r\n      NZ = KORSZ(Z)\r\n      NX = NZ\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      NZ = NZ - SYSBUF\r\n      CALL GOPEN (CASEXX,IZ(IBUF1),0)\r\n      CALL FREAD (CASEXX,IZ(1),166,1)\r\n      CALL CLOSE (CASEXX,1)\r\n      ITSTEP = IZ(38)\r\n      NLFTP1 = IZ(160)\r\n      INTMP  = IZ(9)\r\n      INLTMP = IZ(8)\r\nC\r\nC     FIND STUFF ON TRL\r\nC\r\n      FILE = TRL\r\n      CALL OPEN (*200,TRL,IZ(IBUF1),0)\r\n      CALL READ (*220,*10,TRL,IZ(1),NZ,0,IFLAG)\r\n      GO TO 230\r\n   10 NS =  IZ(3)\r\n      CALL SKPREC (TRL,NS)\r\n   30 CALL READ (*240,*40,TRL,IZ(1),NZ,0,IFLAG)\r\n      GO TO 230\r\n   40 IF (IZ(1) .NE. ITSTEP) GO TO 30\r\nC\r\nC     TSTEP STUFF FOUND\r\nC\r\n      CALL CLOSE (TRL,1)\r\n      NGROUP = (IFLAG-1)/3\r\nC\r\nC     MOVE TSETP STUFF TO BOTTOM OF CURE\r\nC\r\n      NZ = NX - IFLAG + 1\r\n      IGROUP = NZ + 1\r\n      DO 50 I = 2,IFLAG\r\n      K = IGROUP + I - 2\r\n      IZ(K) = IZ(I)\r\n   50 CONTINUE\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 -SYSBUF\r\n      NZ = IBUF2\r\n      CALL GOPEN (ISCR5,IZ(IBUF1),1)\r\n      CALL WRITE (ISCR5,IZ(IGROUP),IFLAG-1,1)\r\n      FILE = USETD\r\nC\r\nC     BRING IN USETD\r\nC\r\n      CALL GOPEN (USETD,IZ(IBUF2),0)\r\n      CALL READ (*220,*60,USETD,IZ(1),NZ,1,LUSETD)\r\n      GO TO 230\r\n   60 CALL CLOSE (USETD,1)\r\nC\r\nC     BUILD SIL TO SILD CONVERTER TABLE\r\nC\r\n      MSKUE = TWO1(IUE)\r\n      MSKUD = TWO1(IUD)\r\n      M = 1\r\n      L = 0\r\n      DO 70 I = 1,LUSETD\r\n      IF (ANDF(IZ(I),MSKUE) .NE. 0) GO TO 65\r\n      L = L + 1\r\n      IF (ANDF(IZ(I),MSKUD) .EQ. 0) GO TO 67\r\n      IZ(L) = M\r\n   65 CONTINUE\r\n      M = M + 1\r\n      GO TO 70\r\n   67 IZ(L) = 0\r\n   70 CONTINUE\r\nC\r\nC     FIND STUFF IN GPTT\r\nC\r\n      ITS = INTMP\r\n      CALL MAKMCB (MCB,ISCR5,M-1,2,1)\r\n      NS  = 0\r\n      FILE = GPTT\r\n      CALL OPEN (*200,GPTT,IZ(IBUF2),0)\r\nC\r\nC     POSITION TO HEADER RECORD\r\nC\r\n      IVAL = NZ - 2*L\r\n      CALL READ (*220,*80,GPTT,IZ(L+1),IVAL,0,IFLAG)\r\n      GO TO 230\r\nC\r\nC     PUT OUT TEMPS\r\nC\r\n   80 CONTINUE\r\nC\r\nC     DETERMINE NUMBER OF ELEMENT TEMP RECORDS TO SKIP.\r\nC\r\n      LIST = L + 3\r\n      K = L + IFLAG\r\n   82 NSK = IZ(K)\r\n      IF (NSK .GT. 0) GO TO 84\r\n      K = K - 3\r\n      IF (K .GT. LIST) GO TO 82\r\nC\r\nC     SET IPOS TO SKIP ELEMENT TEMP RECORDS AND DUPLICATE HEADER.\r\nC\r\n   84 IPOS = -NSK\r\n      MCB(2) = 0\r\n   90 IF (ITS .EQ. 0) GO TO 170\r\n      K = LIST\r\n  100 IF (IZ(K) .EQ.  ITS) GO TO 110\r\n      K = K + 3\r\n      IF (K .GT. L+IFLAG) CALL MESAGE (-31,ITS,NAME)\r\n      GO TO 100\r\nC\r\nC     FOUND TEMP SET\r\nC\r\n  110 TDFLT = 0.0\r\n      IF (IZ(K+1) .NE. -1) TDFLT = Z(K+1)\r\n      M = L + IFLAG\r\n      DO 130 I = 1,L\r\n      J = M + I\r\n      Z(J) = TDFLT\r\n  130 CONTINUE\r\nC\r\nC     RECORD NUMBER OF TEMP SET FOUND\r\nC\r\n      NS = IZ(K+2)\r\n      IF (NS .EQ. 0) GO TO 150\r\nC\r\nC     SKIP TO DESIRED RECORD\r\nC\r\n  132 IF (NS-IPOS) 134,140,136\r\n  134 CALL BCKREC (GPTT)\r\n      IPOS = IPOS - 1\r\n      GO TO 132\r\n  136 CALL FWDREC (*220,GPTT)\r\n      IPOS = IPOS + 1\r\n      GO TO 132\r\n  140 CALL READ (*220,*145,GPTT,A,2,0,IFLG)\r\n      IF (IA(1) .LE. 0) GO TO 140\r\n      J = IA(1) + M\r\n      Z (J) = A(2)\r\n      GO TO 140\r\n  145 IPOS = IPOS + 1\r\nC\r\nC     ALL SET UP OUTPUT\r\nC\r\n  150 INEXT = M + 1\r\n      DO 160 I = 1,L\r\n      J = M + I\r\n      II = IZ(I) + M\r\n      IF (II .EQ. M) GO TO 160\r\n      IF (II .EQ. INEXT) GO TO 155\r\n      DO 153 K = INEXT,II\r\n  153 Z(K)  = 0.0\r\n  155 Z(II) = Z(J)\r\n      INEXT = II + 1\r\n  160 CONTINUE\r\n      J = INEXT - (M+1)\r\n      CALL WRITE (ISCR5,Z(M+1),J,0)\r\n  170 CALL WRITE (ISCR5,Z(1),0,1)\r\n      MCB(2) = MCB(2) + 1\r\n      IF (MCB(2) .EQ. 2) GO TO 190\r\n      ITS = INLTMP\r\n      GO TO 90\r\nC\r\nC     ALL DONE\r\nC\r\n  190 CALL CLOSE (ISCR5,1)\r\n      CALL CLOSE (GPTT,1)\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESAGES\r\nC\r\n  200 IP1 = -1\r\n  210 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  220 IP1 = -2\r\n      GO TO 210\r\n  230 IP1 = -8\r\n      GO TO 210\r\n  240 CALL MESAGE (-31,ITSTEP,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trht1b.f",
    "content": "      SUBROUTINE TRHT1B(IOF,DELTA)\r\nC\r\nC\r\n      DOUBLE PRECISION        QBLOCK(6),          BLOCK(2), BLK(2)\r\nC\r\n      INTEGER                 MCB(7),   NAME(2),  IQBLK(12),IBLOCK(11)\r\nC\r\n      COMMON /BLANK/    BETA,     TABS,     NORAD,    RADLIN\r\n      COMMON /TRHTX /         IK(7),    IB(7),    ICR1,     ICR2,\r\n     1                        ICR3,     ICR4,     ICR5,     ISYM,\r\n     2                        ICR6,     ICR7\r\nC\r\n      EQUIVALENCE             ( IQBLK(1),         QBLOCK(1) )\r\n      EQUIVALENCE             ( IQBLK(2),         IBLOCK(1) )\r\n      EQUIVALENCE             ( QBLOCK(2),        BLOCK(1) )\r\n      EQUIVALENCE             ( QBLOCK(5),        BLK(1) )\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      IBLOCK(1) =2\r\n      BLOCK(1)= 1.0D0/DELTA\r\n      BLOCK(2)= 0.0D0\r\n      IBLOCK(7)= 2\r\n      BLK(1) = BETA\r\n      BLK(2) = 0.0D0\r\n      CALL SSG2C(IB,IK,ICR6,1,IBLOCK)\r\n      MCB(1)=ICR6\r\n      CALL RDTRL(MCB(1))\r\n      IF ( MCB(4) .EQ. 6) GO TO  10\r\n      CALL FACTRU(*40,ICR6,ICR1,ICR2,ICR3,ICR4,ICR7)\r\n      ISYM = 0\r\n      GO TO  20\r\nC\r\nC     SYMMETRIC DECOMP\r\nC\r\n   10 CALL FACTOR( ICR6, ICR1, ICR2, ICR3, ICR4, ICR7 )\r\n      ISYM =1\r\nC\r\nC     LLL  IS ON ICR1\r\nC\r\nC     FORM  A  MATRIX\r\nC\r\n   20 BLK(1) = -(1.0D0 - BETA)\r\n      BLK(2) = 0.0\r\n      CALL SSG2C(IB,IK,ICR6,1,IBLOCK)\r\n   30 RETURN\r\n   40 CALL MESAGE(-5,ICR6,NAME)\r\n      GO TO 30\r\n      END\r\n"
  },
  {
    "path": "mis/trht1c.f",
    "content": "      SUBROUTINE TRHT1C (NGROUP,UDVT,PD,RDD,ILOOP)\r\nC\r\nC     THIS ROUTINE  STEPS INTEGRATION PROCEDURE\r\nC\r\n      INTEGER          SYSBUF,   UDVT,     PD,       RDD,      IZ(1),\r\n     1                 A,        FILE,     MCB(7),   PNL1,     RADLIN,\r\n     2                 NAME(2),  IFN(7),   ITAB(4),  LL1(7)\r\n      DOUBLE PRECISION DZ(1)\r\n      CHARACTER        UFM*23,   UWM*25\r\n      COMMON /XMSSG /  UFM,      UWM\r\n      COMMON /BLANK /  BETA,     TABS,     NORAD,    RADLIN,   SIGMA\r\n      COMMON /SYSTEM/  KSYSTM(63)\r\n      COMMON /TRDXX /  KTRDXX(28)\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      COMMON /PACKX /  IT1,      IT2,      II,       JJ,       INCR\r\n      COMMON /TRHTX /  IK(7),    IB(7),    ICR1,     ICR2,     ICR3,\r\n     1                 ICR4,     ICR5,     ISYM,     A,        ICR7\r\n      COMMON /TRDD1 /  NLFT1,    DIT1,     NLFTP1,   NOUT,     ICOUNT,\r\n     1                 ILOOP1,   MODA1,    NZ,       ICORE,    IU1,\r\n     2                 IN2,      IPNL(7),  NMODES,   NSTEP,    PNL1,\r\n     3                 IST,      IU1DUM,   DELTAT,   IFRST,    TABS1,\r\n     4                 SIGMA1,   TIM1\r\n      COMMON /UNPAKX/  IT3,      III,      JJJ,      INCR1\r\n      COMMON /INFBSX/  ILL1(7),  IUL1(7)\r\n      COMMON /FBSX  /  LL1\r\n      EQUIVALENCE      (KSYSTM(1),SYSBUF), (KSYSTM(55),IPREC),\r\n     1                 (KTRDXX(28),IOPEN), (Z(1),IZ(1),DZ(1)),\r\n     2                 (ILL1(3),MROW),     (KSYSTM(2),NPRT)\r\n      DATA    NAME  /  4HTRHT,  4H1C     /\r\nC\r\nC     SYMBOL TABLE\r\nC\r\nC     ICR1 IS LLL\r\nC     ICR2 IS ULL\r\nC     ICR5 IS INITIAL CONDITIONS\r\nC     ICR6 IS THE  A  MATRIX\r\nC\r\nC     NROW     PROBLEM ORDER\r\nC     NGROUP   NUMBER OF TRIPLES OF TIME STEPS\r\nC     UDVT     DISPLACEMENTS AND VELOCITIES\r\nC     PD       LOADS\r\nC     RDD      RADIATION MATRIX\r\nC     ILOOP    CURRENT TIME STEP GROUP\r\nC     IBUF1    UDVT BUFFER\r\nC     IBUF2    A    BUFFER\r\nC     IBUF3    LLL  BUFFER\r\nC     IBUF4    ULL  BUFFER\r\nC     IBUF5    PD   BUFFER\r\nC     IBUF6    PNL1 BUFFER\r\nC     IBUF7    RDD  BUFFER\r\nC     IBUF8    SCRATCH BUFFER(DIT,NLLOADS,SAVE STUFF ETC)\r\nC     NZ       OPEN CORE\r\nC     IST      OUTPUT FLAG\r\nC     IU1,IU2  DISPLACMENT VECTOR POINTERS\r\nC     IP1,IP2  LOAD VECTOR POINTERS\r\nC     IN1,IN2  NON-LINEAR LOAD POINTERS\r\nC     NOLIN    =0  MEAN NO NON-LINEAR LOADS\r\nC     IPNT     POINTER FOR INTERNAL ZERO ROUTINE\r\nC     FILE     FILE    FOR INTERNAL ZERO ROUTINE\r\nC     NSTEP    NUMBER OF TIME STEPS\r\nC     DELTAT   DELTA  T\r\nC     NOUT     OUTPUT INCREMENT\r\nC     H        1/ 2*DELTAT\r\nC     ICOUNT   STEP COUNTER\r\nC     ITLEFT   TIME LEFT\r\nC     NORAD    =-1  NO RADIATION\r\nC     RADLIN   =-1  NON LINEAR RADIATION\r\nC     NLFTP1   NONLINEAR SET SELECTED BY THE USER\r\nC     BETA,OMBETA,OPBETA  --USER BETA 1-BETA, 1+BETA\r\nC     ISYM     0    UNSYMETRIC   1  SYMMETRIC\r\nC     DELTA1   OLD DELTA  T\r\nC\r\n      ISCR5  = ICR5\r\n      NOLOAD = 0\r\n      NBUST  = 0\r\n      MCB(1) = PD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) NOLOAD = -1\r\n      NROW   = IK(2)\r\n      IT1    = 1\r\n      IT2    = 1\r\n      II     = 1\r\n      JJ     = NROW\r\n      INCR   = 1\r\n      IT3    = 1\r\n      III    = 1\r\n      JJJ    = NROW\r\n      INCR1  = 1\r\n      TABS1  = TABS\r\n      SIGMA1 = SIGMA\r\n      NZ     = KORSZ(Z)\r\n      IGROUP = NZ - 3*NGROUP + 1\r\n      IBUF1  = IGROUP- SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      IBUF4  = IBUF3 - SYSBUF\r\n      IBUF5  = IBUF4 - SYSBUF\r\n      IBUF6  = IBUF5 - SYSBUF\r\n      IBUF7  = IBUF6 - SYSBUF\r\n      IBUF8  = IBUF7 - SYSBUF\r\n      NZ     = IBUF8 - 1\r\n      ILOOP1 = ILOOP\r\n      IST    = 0\r\n      ILL1(1)= ICR1\r\n      CALL RDTRL (ILL1)\r\n      IFN(1) = ICR1\r\n      CALL RDTRL (IFN)\r\n      IU1    = 0\r\n      IU2    = IU1 + NROW\r\n      IP1    = IU2 + NROW\r\n      IP2    = IP1 + NROW\r\n      IUK    = IP2 + NROW\r\n      NOLIN  = 0\r\n      IF (NLFTP1.NE.0 .OR. NORAD.NE.-1) NOLIN = 1\r\n      IF (NOLIN .EQ. 0) GO TO 10\r\n      IN1    = IUK + NROW\r\n      IN2    = IN1 + NROW\r\n      NZ     = NZ - 7*NROW\r\n      GO TO 20\r\nC\r\nC     NO NON-LINEAR EFFECTS\r\nC\r\n   10 NZ     = NZ - 4*NROW\r\n      IN2    = IP2\r\n   20 IF (NZ .LT. 0) CALL MESAGE (-8,0,NAME)\r\n      ICORE  = IN2 + NROW\r\n      IUL1(1)= ICR2\r\n      CALL RDTRL (IUL1)\r\n      OMBETA = 1.0 - BETA\r\n      OPBETA = 1.0 + BETA\r\nC\r\nC     SET UP FOR CORE I/O\r\nC\r\n      IF (NLFTP1 .EQ. 0) GO TO 21\r\n      IFRST  = 0\r\n      CALL TRD1D\r\n      IFRST  = 1\r\n   21 ITAB(1) = A\r\n      ITAB(2) = ILL1(1)\r\n      ITAB(3) = IUL1(1)\r\n      ITAB(4) = RDD\r\n      ICOR = IN2 + NROW + 1\r\n      NF   = 4\r\n      CALL GOPEN (A,IZ(IBUF2),0)\r\n      CALL REWIND (A)\r\n      IF (NOLIN.EQ.0 .OR. RADLIN.NE.-1 .OR. NORAD.EQ.-1) GO TO 30\r\n      CALL GOPEN (RDD,IZ(IBUF7),0)\r\n      CALL REWIND (RDD)\r\n   30 CONTINUE\r\n      CALL GOPEN (ILL1,IZ(IBUF3),0)\r\n      CALL REWIND (ILL1)\r\n      IF (ISYM .EQ. 1) GO TO 31\r\n      CALL GOPEN (IUL1,IZ(IBUF4),0)\r\n      CALL REWIND (IUL1)\r\n   31 CONTINUE\r\nC\r\nC     IS  THIS  A TIME  STEP CHANGE\r\nC\r\n      IF (ILOOP  .NE. 1) GO TO  280\r\n      IF (NOLOAD .NE. 0) GO TO 33\r\n      CALL GOPEN (PD,IZ(IBUF5),0)\r\n      CALL FWDREC (*440,PD)\r\n   33 CONTINUE\r\n      IST = -1\r\n      CALL GOPEN (ICR5,IZ(IBUF1),0)\r\nC\r\n      CALL FREAD(ICR5,IZ(IGROUP),3*NGROUP,1)\r\nC\r\nC     BRING IN  U0 AND UK\r\nC\r\n      CALL READ (*450,*35,ICR5,Z(IU1+1),NROW,1,NWDS)\r\n      GO TO 40\r\nC\r\nC     SHORT VECTOR ENCOUNTERED\r\nC\r\n   35 K = NWDS + 1\r\n      DO 38 L = K,NROW\r\n      M = IU1 + L\r\n      Z(M) = 0.0\r\n   38 CONTINUE\r\n   40 CONTINUE\r\n      IF (NORAD .EQ. -1) GO TO 50\r\n      CALL READ (*450,*45,ICR5,Z(IUK+1),NROW,1,NWDS)\r\n      GO TO 410\r\nC\r\nC     SHORT VECTOR ENCOUNTERED\r\nC\r\n   45 K = NWDS + 1\r\n      DO 48 L = K,NROW\r\n      M = IUK + L\r\n      Z(M) = 0.0\r\n   48 CONTINUE\r\n      GO TO 410\r\n   50 CONTINUE\r\n      CALL CLOSE (ICR5,1)\r\n      NSTEP  = IZ(IGROUP) + 1\r\n      DELTAT =  Z(IGROUP+1)\r\n      NOUT   = IZ(IGROUP+2)\r\n      H = 1.0/DELTAT\r\n      CALL GOPEN (UDVT,IZ(IBUF1),1)\r\n      CALL MAKMCB (MCB,UDVT,NROW,2,1)\r\n      IF (NOLIN .EQ. 0) GO TO 60\r\n      CALL GOPEN (PNL1,IZ(IBUF6),1)\r\n      CALL MAKMCB (IPNL,PNL1,NROW,2,1)\r\nC\r\nC     LETS  GO\r\nC\r\n   60 ICOUNT = 1\r\nC\r\nC     TOP OF LOOP\r\nC\r\n   70 CALL TMTOGO (ITLEFT)\r\n      IF (ITLEFT .LE. 0) GO TO 230\r\nC\r\nC     COMPUTE  NR\r\nC\r\n      IF (NORAD  .EQ. -1) GO TO 110\r\n      IF (RADLIN .EQ. -1) GO TO 90\r\n      DO 80 I = 1,NROW\r\n      L = IN2 + I\r\n      K = IUK + I\r\n      Z(L) = Z(K)\r\n   80 CONTINUE\r\n      GO TO 130\r\nC\r\nC     NON-CONSTANT RADIATION\r\nC\r\n   90 DO 100 I = 1,NROW\r\n      L = IU1 + I\r\n      K = IUK + I\r\n      M = IN2 + I\r\n      J = IU2 + I\r\nC\r\nC     CHECK FOR UNSTABLE SOLUTION ABOUT TO CAUSE ARITHMETIC OVERFLOWS.\r\nC\r\n      IF (Z(L) .LT. 1.0E8) GO TO 98\r\n      NBUST = NBUST + 1\r\n      IF (NBUST .GT. 10) GO TO 94\r\n      WRITE  (NPRT,92) UWM,Z(L),ICOUNT,I\r\n   92 FORMAT (A25,' 3102, SUBROUTINE TRHT1C, UNSTABLE TEMP. VALUE OF',\r\n     1       E20.8,' COMPUTED FOR TIME STEP',I5, /5X,\r\n     2       'AT POINT NUMBER',I6,' IN THE ANALYSIS SET.')\r\n      Z(L) = 1.0E6\r\n      GO TO 98\r\n   94 WRITE  (NPRT,96) UFM\r\n   96 FORMAT (A23,' 3103, SUBROUTINE TRHT1C TERMINATING DUE TO ERROR ',\r\n     1       'COUNT FOR MESSAGE 3102.')\r\n      CALL MESAGE (-61,0,NAME)\r\nC\r\n   98 Z(J) = -(Z(L)+TABS)**4 + 4.0*(Z(K)+TABS)**3*Z(L)\r\n      Z(M) = 0.0\r\n  100 CONTINUE\r\n      IOPEN  = 1\r\n      IFN(1) = RDD\r\n      CALL MATVEC (Z(IU2+1),Z(IN2+1),IFN,IZ(IBUF7))\r\n      GO TO 130\r\n  110 IF (NLFTP1 .EQ. 0) GO TO 140\r\n      DO 120 I = 1,NROW\r\n      M = IN2 + I\r\n      Z(M) = 0.0\r\n  120 CONTINUE\r\n  130 IF (NLFTP1 .EQ. 0) GO TO 140\r\n      TIM1 = TIM\r\n      CALL TRD1D\r\n  140 IF (ICOUNT .NE. 1 .OR. ILOOP .NE. 1) GO TO 160\r\n      DO 150 I = 1,NROW\r\n      K = IP1 + I\r\n      Z(K) = 0.0\r\n      IF (NOLIN .EQ. 0) GO TO 150\r\n      L = IN2 + I\r\n      M = IN1 + I\r\n      Z(M) =  Z(L)\r\n      Z(K) = -Z(L)\r\n  150 CONTINUE\r\n      IOPEN = 0\r\n      CALL MATVEC (Z(IU1+1),Z(IP1+1),IK,Z(IBUF8))\r\nC\r\nC     BRING IN  NEXT P\r\nC\r\n  160 IF (NOLOAD .NE. 0) GO TO 165\r\n      CALL UNPACK (*165,PD,Z(IP2+1))\r\n      GO TO 170\r\n  165 DO 167 I = 1,NROW\r\n      K = IP2 + I\r\n      Z(K) = 0.0\r\n  167 CONTINUE\r\nC\r\nC     ADD ALL LOAD CONTRIBUTIONS\r\nC\r\n  170 CONTINUE\r\n      DO 180 I = 1,NROW\r\n      L = IP1 + I\r\n      M = IP2 + I\r\n      Z(L) = OMBETA*Z(L) + BETA*Z(M)\r\n      IF (NOLIN .EQ. 0) GO TO 180\r\n      M = IN1 + I\r\n      J = IN2 + I\r\n      Z(L) = Z(L) + OPBETA*Z(J) - BETA*Z(M)\r\n  180 CONTINUE\r\nC\r\nC     MULTIPLY  IN  A MATRIX\r\nC\r\n      IOPEN  = 1\r\n      IFN(1) = A\r\n      CALL MATVEC (Z(IU1+1),Z(IP1+1),IFN,IZ(IBUF2))\r\nC\r\nC     SOLVE  FOR NEXT DISPLACEMENT\r\nC\r\n      IOPEN = 1\r\n      IF (ISYM .EQ. 0) CALL INTFBS (Z(IP1+1),Z(IU2+1),IZ(IBUF4))\r\n      IF (ISYM .NE. 1) GO TO 188\r\nC\r\nC     ABSORBED SUBROUTINE FBSINT   SEE ALSO EQUIV.   DATA.\r\nC\r\n      DO 182 I = 1,MROW\r\n      Z(I+IU2) = Z(I+IP1)\r\n  182 CONTINUE\r\nC\r\nC     FORWARD PASS\r\nC\r\n      CALL REWIND (ILL1)\r\n      CALL FWDREC (*186,ILL1)\r\n      IZ(IBUF4) = ILL1(1)\r\n      LL1(1) = ILL1(1)\r\n      CALL RDTRL (LL1)\r\n      IF (IPREC .NE. 1) GO TO 184\r\n      CALL FBS1 (IZ(IBUF4),Z(IU2+1),Z(IU2+1),MROW)\r\n      GO TO 188\r\n  184 CALL FBS21(IZ(IBUF4),Z(IU2+1),Z(IU2+1),MROW)\r\n      GO TO 188\r\n  186 CALL MESAGE (-2,ILL1,NAME)\r\nC\r\nC     ABSORBED SUBROUTINE FBSINT    SEE ALSO EQUIV.   DATA.\r\nC\r\n  188 CONTINUE\r\n      IF (ICOUNT.EQ.1 .OR. ICOUNT.EQ.NSTEP .OR.\r\n     1    MOD(ICOUNT+IST,NOUT).EQ.0) GO TO 200\r\nC\r\nC     ROTATE POINTERS\r\nC\r\n  190 J   = IP1\r\n      IP1 = IP2\r\n      IP2 = J\r\n      J   = IU1\r\n      IU1 = IU2\r\n      IU2 = J\r\n      J   = IN1\r\n      IN1 = IN2\r\n      IN2 = J\r\n      TIM = TIM + DELTAT\r\n      ICOUNT = ICOUNT + 1\r\n      IF (ICOUNT-NSTEP) 70,220,230\r\nC\r\nC     IT  IS OUTPUT TIME\r\nC\r\n  200 CALL PACK (Z(IU1+1),UDVT,MCB)\r\nC\r\nC     COMPUTE  U DOT\r\nC\r\n      DO 210 I = 1,NROW\r\n      L = IP1 + I\r\n      M = IU1 + I\r\n      J = IU2 + I\r\n      Z(L) = (Z(J)-Z(M))*H\r\n  210 CONTINUE\r\n      CALL PACK (Z(IP1+1),UDVT,MCB)\r\nC\r\nC     PUT OUT ZERO ACCERERATION VECTOR FOR LATER MODULES\r\nC\r\n      CALL BLDPK (1,1,UDVT,0,0)\r\n      CALL BLDPKN (UDVT,0,MCB)\r\n      IF (NOLIN .EQ. 0) GO TO 190\r\n      CALL PACK (Z(IN2+1),PNL1,IPNL)\r\n      GO TO 190\r\nC\r\nC     END OF 1 GROUP\r\nC\r\n  220 IF (ILOOP .NE. NGROUP) GO TO 260\r\n      GO TO 70\r\n  230 J = 1\r\n  240 CALL CLOSE (UDVT,J)\r\n      CALL CLOSE (PD,J)\r\n      CALL CLOSE (ILL1,1)\r\n      CALL CLOSE (IUL1,1)\r\n      CALL CLOSE (A,1)\r\n      CALL WRTTRL (MCB)\r\n      IF (NORAD .EQ. -1) GO TO 245\r\n      CALL CLOSE (RDD,1)\r\n  245 IF (NOLIN .EQ. 0) GO TO 250\r\n      CALL CLOSE (PNL1,J)\r\n      CALL WRTTRL (IPNL)\r\n  250 CONTINUE\r\n      RETURN\r\nC\r\nC     MORE GROUPS TO COME  SAVE STUFF\r\nC\r\n  260 J = 2\r\n      CALL GOPEN (ISCR5,IZ(IBUF8),1)\r\n      CALL WRITE (ISCR5,IZ(IGROUP),3*NGROUP,1)\r\n      IF (NOLIN .NE. 0) CALL WRITE (ISCR5,IZ(IUK+1),NROW,1)\r\nC\r\nC     SAVE   UI -1\r\nC\r\n      CALL WRITE (ISCR5,Z(IU2+1),NROW,1)\r\nC\r\nC     SAVE   UI\r\nC\r\n      CALL WRITE (ISCR5,Z(IU1+1),NROW,1)\r\n      IF (NOLIN .EQ. 0) GO TO 270\r\nC\r\nC     SAVE    NI - 1\r\nC\r\n      CALL WRITE (ISCR5,Z(IN2+1),NROW,1)\r\nC\r\nC     SAVE    NI\r\nC\r\n      CALL WRITE (ISCR5,Z(IN1+1),NROW,1)\r\n  270 CONTINUE\r\n      CALL CLOSE (ISCR5,1)\r\n      GO TO 240\r\nC\r\nC     REENTRY FROM CHANGE OF TIME STEP\r\nC\r\n  280 CONTINUE\r\n      CALL GOPEN (ISCR5,IZ(IBUF8),0)\r\n      CALL FREAD (ISCR5,IZ(IGROUP),3*NGROUP,1)\r\n      NEWGRP = IGROUP + (ILOOP-1)*3\r\n      DELTA1 =  Z(NEWGRP-2)\r\n      NSTEP  = IZ(NEWGRP)\r\n      DELTAT = Z(NEWGRP+1)\r\n      NOUT   = IZ(NEWGRP+2)\r\n      CALL GOPEN (PD,IZ(IBUF5),2)\r\n      H = 1.0/DELTAT\r\n      CALL GOPEN (UDVT,IZ(IBUF1),3)\r\n      MCB(1) = UDVT\r\n      CALL RDTRL (MCB(1))\r\n      IF (NOLIN .EQ. 0) GO TO 290\r\n      CALL GOPEN (PNL1,IZ(IBUF6),3)\r\n      IPNL(1) = PNL1\r\n      CALL RDTRL (IPNL)\r\n  290 CONTINUE\r\nC\r\nC     RESTORE  STUFF  SAVED\r\nC\r\n      IF (NOLIN .NE. 0) CALL FREAD (ISCR5,Z(IUK+1),NROW,1)\r\n      CALL FREAD (ISCR5,Z(IU2+1),NROW,1)\r\n      CALL FREAD (ISCR5,Z(IU1+1),NROW,1)\r\n      IF (NOLIN .EQ. 0) GO TO 300\r\n      CALL FREAD (ISCR5,Z(IN1+1),NROW,1)\r\n      CALL FREAD (ISCR5,Z(IN2+1),NROW,1)\r\n  300 CONTINUE\r\n      CALL CLOSE (ISCR5,1)\r\nC\r\nC     COMPUTE  PBAR\r\nC\r\n      DO 310 I = 1,NROW\r\n      L = IP1 + I\r\n      Z(L) = 0.0\r\n      IF (NOLIN .EQ. 0) GO TO 310\r\n      M    = IN2 + I\r\n      Z(L) =-Z(M)\r\n  310 CONTINUE\r\n      IOPEN = 0\r\n      CALL MATVEC (Z(IU1+1),Z(IP1+1),IK,IZ(IBUF8))\r\n      IF (IB(1) .EQ. 0) GO TO 330\r\n      DO 320  I = 1,NROW\r\n      L = IU2 + I\r\n      M = IU1 + I\r\n      Z(L) = (Z(M)-Z(L))/DELTA1\r\n  320 CONTINUE\r\n      IOPEN = 0\r\n      CALL MATVEC (Z(IU2+1),Z(IP1+1),IB,IZ(IBUF8))\r\n  330 CONTINUE\r\n      IF (NOLIN .EQ. 0) GO TO 350\r\n      H1 = 1.0 - DELTAT/DELTA1\r\n      H2 = DELTAT/DELTA1\r\n      DO 340 I = 1,NROW\r\n      L  = IN1 + I\r\n      M  = IN2 + I\r\n      Z(L) = H2*Z(L) + H1*Z(M)\r\n  340 CONTINUE\r\n  350 ICOUNT = 0\r\n      GO TO 70\r\nC\r\nC     CONSTANT RADIATION\r\nC\r\n  410 IF(RADLIN .EQ. -1) GO TO 50\r\n      DO 420 I = 1,NROW\r\n      L = IUK + I\r\n      K = IN2 +I\r\n      Z(L) = -(Z(L)+TABS)**4 + 4.0*(Z(L)+TABS)**3*Z(L)\r\n      Z(K) = 0.0\r\n  420 CONTINUE\r\n      IOPEN = 1\r\n      IFN(1) = RDD\r\n      CALL MATVEC (Z(IUK+1),Z(IN2+1),IFN, IZ(IBUF7))\r\n      DO 430 I = 1,NROW\r\n      L = IUK + I\r\n      M = IN2 + I\r\n      Z(L) = Z(M)\r\n  430 CONTINUE\r\n      GO TO 50\r\nC\r\nC     I/O ERROR\r\nC\r\n  440 FILE = PD\r\n      GO TO 460\r\n  450 FILE = ICR5\r\n  460 CALL MESAGE (-2,FILE,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tria3d.f",
    "content": "      SUBROUTINE TRIA3D\r\nC\r\nC     DOUBLE PRECISION ROUTINE TO FORM STIFFNESS, MASS, AND DAMPING\r\nC     MATRICES FOR THE CTRIA3 ELEMENT\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL          HEAT,NOALFA,NEEDK,NEEDM,SHEART,\r\n     1                 MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      INTEGER          SYSBUF,NOUT,NOGO,PREC,HUNMEG,NEST(39),NAME(2),\r\n     1                 NECPT(4),DICT(11),IGPDT(4,3),ELID,ESTID,DMAT,\r\n     2                 SIL(3),IORDER(3),CPMASS,MID(4),TYPE,INDEX(3,3)\r\n      REAL             BGPDT(4,3),GPTH(3),NSM,ECPT(4),KHEAT,HTCP\r\n      DOUBLE PRECISION AMGG(1),AKGG(1),ALPHA(1),THETAM,CENTE(3),\r\n     1                 DGPTH(3),EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),\r\n     2                 AREA,WTSTIF,WTMASS,RHO,XMASS(9),XMASSO,LX,LY,\r\n     3                 EPS,OFFSET,SHPT(3),WEIGHT,G(9,9),GI(36),K11,K22,\r\n     4                 JOK,JOG,ZZ(9),AIC(18),EGNOR(4),EDGLEN(3),\r\n     5                 BMTRX(54),BMATRX(162),BTERMS(6),BMAT1(486),\r\n     6                 AVGTHK,MOMINR,TS,TH,REALI,TSI,TSM,BDUM(3),\r\n     7                 DETERM,DETJAC,TBG(9),TEB(9),TEM(9),TEU(9),\r\n     8                 TUB(9),TUM(9),TOTTRN(324),TRANSK(324),TRANS(27),\r\n     9                 TMPTRN(36),HTFLX(18),HTCAP(36),HTCON(36),\r\n     O                 DHEAT,WEITC,DVOL\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO,IDUM(51),PREC\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /HMTOUT/  KHEAT(7),TYPE\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /EMGPRM/  ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT,\r\n     1                 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON,\r\n     2                 KGG1,MGG1,IBGG1,PRECIS,ERROR,HEAT,CPMASS,\r\n     3                 DUMM6(6),L38\r\n      COMMON /EMGEST/  EST(39)\r\n      COMMON /EMGDIC/  ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (EST( 1),NEST(1)), (EST( 2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)), (EST(10),ZOFF),\r\n     2                 (EST(12),ELTH)   , (EST(17),NSM),\r\n     3                 (EST(23),INT)    , (EST(26),ZOFF1),\r\n     4                 (EST(27),BGPDT(1,1),IGPDT(1,1)),\r\n     5                 (EST(39),TEMPEL) , (DICT(5),ADAMP),\r\n     6                 (NECPT(1),ECPT(1)),(Z(1),AMGG(1),AKGG(1)),\r\n     7                 (KHEAT(4),HTCP)  , (HTCAP(1),XMASS(1))\r\n      DATA     HUNMEG, EPS / 100000000, 1.0D-7 /\r\n      DATA     NAME  , KMAT, MMAT, DMAT / 4HCTRI,4HA3  , 1, 2, 3 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      ELID   = NEST(1)\r\n      NNODE  = 3\r\n      MOMINR = 0.0D0\r\n      TS     = 0.0D0\r\n      WEIGHT = 1.0D0/6.0D0\r\n      ELTEMP = TEMPEL\r\n      NEEDK  = KGG1.NE.0 .OR. IBGG1.NE.0\r\n      NOALFA = .TRUE.\r\n      SHEART = .TRUE.\r\n      IEOE   = 1\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS\r\nC\r\nC     OPEN CORE BEGINS AT JCORE\r\nC     OPEN CORE ENDS   AT NCORE\r\nC     LENGTH OF AVAILABLE WORDS = (NCORE-JCORE-1)/PREC\r\nC\r\n      JCORED = JCORE/PREC + 1\r\n      LENGTH = (NCORE-JCORE-1)/PREC\r\n      IF (LENGTH.LT.324 .AND. (.NOT.HEAT .AND. NEEDK)) GO TO 1100\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n      CALL T3SETD (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 1110\r\n      CALL GMMATD (TEB,3,3,0, TUB,3,3,1, TEU)\r\n      AREA = LX*LY/2.0D0\r\nC\r\nC     SET THE NUMBER OF DOF'S\r\nC\r\n      NNOD2 = NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NPART = NDOF*NDOF\r\n      ND2   = NDOF*2\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\n      ND8   = NDOF*8\r\n      ND9   = NDOF*9\r\n      JEND  = JCORED + NPART - 1\r\nC\r\nC     OBTAIN MATERIAL INFORMATION\r\nC\r\nC     PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL\r\nC     TRANSFORMATIONS.\r\nC\r\n      DO 100 IEC = 2,4\r\n      ECPT(IEC) = CENTE(IEC-1)\r\n  100 CONTINUE\r\nC\r\nC     SET MATERIAL FLAGS\r\nC     5.0D0/6.0D0 = 0.833333333D0\r\nC\r\n      IF (NEST(13) .NE.   0) MOMINR = EST(14)\r\n      IF (NEST(13) .NE.   0) TS = EST(16)\r\n      IF ( EST(16) .EQ. 0.0) TS = 0.833333333D0\r\n      IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.833333333D0\r\nC\r\n      MID(1) = NEST(11)\r\n      MID(2) = NEST(13)\r\n      MID(3) = NEST(15)\r\n      MID(4) = NEST(20)\r\nC\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0D0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0\r\n     1         .AND. DABS(MOMINR-1.0D0).LE.EPS\r\nC\r\nC     SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM\r\nC\r\n      CALL SHCSGD (*1120,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20),\r\n     1             NEST(20),NECPT,TUB,MCSID,THETAM,TUM)\r\nC\r\nC     BRANCH ON FORMULATION TYPE.\r\nC\r\n      IF (HEAT) GO TO 800\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\n      CALL GMMATD (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      CALL SHGMGD (*1130,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0,\r\n     1             EGNOR,ALPHA)\r\nC\r\nC     TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL\r\nC     CALCULATED ZERO TERMS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 120\r\n      DO 110 I = 28,36\r\n      IF (DABS(GI(I)) .GT. EPS) GO TO 120\r\n  110 CONTINUE\r\n      MBCOUP = .FALSE.\r\nC\r\nC     GET THE GEOMETRY CORRECTION TERMS\r\nC\r\n  120 IF (.NOT.BENDNG) GO TO 130\r\n      CALL T3GEMD (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX,\r\n     1             AIC,JOG,JOK,K11,K22)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\nC     REDUCED INTEGRATION LOOP FOR STIFFNESS\r\nC\r\n  130 IF (.NOT.NEEDK .OR. INT.NE.0) GO TO 160\r\nC\r\nC     DETERMINE THE AVERAGE B-MATRIX FOR OUT-OF-PLANE SHEAR\r\nC\r\n      DO 140 IPT = 1,3\r\n      KPT = (IPT-1)*ND9 + 1\r\n      CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMAT1(KPT))\r\n      IF (IERR .NE. 0) GO TO 1110\r\n  140 CONTINUE\r\nC\r\n      DO 150 I = 1,NDOF\r\n      BMTRX(I     ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9)\r\n      BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9)\r\n      BMTRX(I+ND2 ) = BMAT1(I+ND8) +BMAT1(I+ND8+ND9) +BMAT1(I+ND8+2*ND9)\r\n  150 CONTINUE\r\nC\r\nC     INITIALIZE FOR THE MAIN INTEGRATION LOOP\r\nC\r\n  160 NEEDM = MGG1.NE.0 .AND. (NSM.GT.0.0 .OR. RHO.GT.0.0D0)\r\n      IF (.NOT.NEEDK .AND. .NOT.NEEDM) GO TO 200\r\n      DO 170 I = JCORED,JEND\r\n      AKGG(I) = 0.0D0\r\n  170 CONTINUE\r\nC\r\n      DO 180 I = 1,9\r\n      XMASS(I) = 0.0D0\r\n  180 CONTINUE\r\nC\r\nC     MAIN INTEGRATION LOOP\r\nC\r\n  200 DO 500 IPT = 1,3\r\nC\r\n      CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\nC     PERFORM STIFFNESS CALCULATIONS IF REQUIRED\r\nC\r\n      IF (.NOT.NEEDK) GO TO 400\r\n      WTSTIF = DETJAC*WEIGHT\r\n      REALI  = MOMINR*TH*TH*TH/12.0D0\r\n      TSI = TS*TH\r\nC\r\n      IF (INT .NE. 0) GO TO 220\r\n      DO 210 IX = 1,NDOF\r\n      BMATRX(IX+ND6) = BMTRX(IX     )\r\n      BMATRX(IX+ND7) = BMTRX(IX+NDOF)\r\n      BMATRX(IX+ND8) = BMTRX(IX+ND2 )\r\n  210 CONTINUE\r\nC\r\nC     FILL IN THE 9X9 G-MATRIX\r\nC\r\n  220 DO 240 IG = 1,81\r\n  240 G(IG,1) = 0.0D0\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 270\r\n      DO 260 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 250 JG = 1,3\r\n      G(IG,JG) = GI(IG1+JG)*TH*WTSTIF\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\n  270 IF (.NOT.BENDNG) GO TO 340\r\n      DO 290 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 280 JG = 4,6\r\n      G(IG,JG) = GI(IG2+JG)*REALI*WTSTIF\r\n  280 CONTINUE\r\n  290 CONTINUE\r\nC\r\n      TSM   = 1.0D0/(2.0D0*12.0D0*REALI)\r\n      ZZ(1) = (JOG/TSI)* GI(22) + TSM*JOK*K22\r\n      ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0D0\r\n      ZZ(3) = 0.0D0\r\n      ZZ(4) = ZZ(2)\r\n      ZZ(5) = (JOG/TSI)* GI(19) + TSM*JOK*K11\r\n      ZZ(6) = 0.0D0\r\n      ZZ(7) = 0.0D0\r\n      ZZ(8) = 0.0D0\r\n      ZZ(9) = (JOG/TSI)*(GI(22) + GI(19))/2.0D0\r\n     1      + TSM*12.0D0*AREA/DSQRT(GI(10)*GI(14))\r\n      CALL INVERD (3,ZZ,3,BDUM,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 1) GO TO 1110\r\nC\r\n      DO 310 IG = 7,9\r\n      IG3 = (IG-7)*3\r\n      DO 300 JG = 7,9\r\n      G(IG,JG) = ZZ(IG3+JG-6)*WTSTIF\r\n  300 CONTINUE\r\n  310 CONTINUE\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 340\r\n      DO 330 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      DO 320 JG = 1,3\r\n      G(IG,JG+3) = GI(IG4+JG)*TH*TH*WTSTIF\r\n      G(IG+3,JG) = G(IG,JG+3)\r\n  320 CONTINUE\r\n  330 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS\r\nC     INTEGRATION POINT.\r\nC\r\n  340 CALL T3BGBD (9,NDOF,G,BMATRX,AKGG(JCORED))\r\nC\r\nC\r\nC     END OF STIFFNESS CALCULATIONS.\r\nC     SKIP MASS CALCULATIONS IF NOT REQUIRED\r\nC\r\nC\r\n  400 IF (.NOT.NEEDM) GO TO 500\r\n      WTMASS = (RHO*TH+NSM)*DETJAC*WEIGHT\r\n      IF (CPMASS .LE. 0) GO TO 430\r\nC\r\nC     CONSISTENT MASS FORMULATION (OPTION)\r\nC\r\n      DO 420 I = 1,NNODE\r\n      II = (I-1)*NNODE\r\n      DO 410 J = 1,NNODE\r\n      XMASS(II+J) = XMASS(II+J) + SHPT(I)*SHPT(J)*WTMASS\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      GO TO 500\r\nC\r\nC     LUMPED MASS FORMULATION (DEFAULT)\r\nC\r\n  430 I3 = 1\r\n      DO 440 I = 1,NNODE\r\n      XMASS(I3) = XMASS(I3) + SHPT(I)*WTMASS\r\n      I3 = I3 + 1 + NNODE\r\n  440 CONTINUE\r\nC\r\nC     END OF MAIN INTEGRATION LOOP\r\nC\r\n  500 CONTINUE\r\nC\r\nC     PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC\r\n      DO 510 I = 1,NNODE\r\n      IPOINT = 9*(I-1) + 1\r\n      CALL TRANSD (IGPDT(1,I),TBG)\r\n      CALL GMMATD (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT))\r\n  510 CONTINUE\r\nC\r\nC     SHIP OUT THE STIFFNESS AND DAMPING MATRICES\r\nC\r\n      IF (.NOT.NEEDK) GO TO 600\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 63\r\n      ADAMP   = GSUBE\r\nC\r\nC     BUILD THE 18X18 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY\r\nC\r\n      DO 520 I = 1,NPART\r\n      TRANSK(I) = 0.0D0\r\n      TOTTRN(I) = 0.0D0\r\n  520 CONTINUE\r\nC\r\n      NDOF66 = 6*NDOF + 6\r\n      II = 1\r\n      DO 550 I = 1,NPART,NDOF66\r\n      CALL TLDRD (OFFSET,II,TRANS,TMPTRN)\r\n      DO 540 JJ = 1,36,6\r\n      J  = JJ - 1\r\n      KK = I - 1 + J*NNODE\r\n      DO 530 K = 1,6\r\n      TOTTRN(KK+K) = TMPTRN(J+K)\r\n  530 CONTINUE\r\n  540 CONTINUE\r\n  550 II = II + 1\r\nC\r\nC     PERFORM THE TRIPLE MULTIPLY.\r\nC\r\n      CALL MPYA3D (TOTTRN,AKGG(JCORED),NDOF,6,TRANSK)\r\nC\r\n      CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,KMAT,PREC)\r\nC\r\nC     SHIP OUT THE MASS MATRIX\r\nC\r\n  600 IF (.NOT.NEEDM) GO TO 730\r\n      NDOF    = NNODE*3\r\n      NPART   = NDOF*NDOF\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 7\r\n      ADAMP   = 0.0\r\n      JEND    = JCORED + NPART - 1\r\nC\r\nC     ZERO OUT THE POSITIONS, THEN LOOP ON I AND J TO LOAD THE MASS\r\nC     MATRIX.\r\nC\r\n      DO 610 IJK = JCORED,JEND\r\n      AMGG(IJK) = 0.0D0\r\n  610 CONTINUE\r\nC\r\n      NDOFP1 = NDOF + 1\r\n      DO 640 II = 1,NNOD2  ,NNODE\r\n      I = II - 1\r\n      DO 630 J = 1,NNODE\r\n      XMASSO = XMASS(I+J)\r\n      IPOINT = (J-1)*3 + I*9 + JCORED\r\n      JPOINT = IPOINT + 3*NDOF\r\n      DO 620 K = IPOINT,JPOINT,NDOFP1\r\n      AMGG(K) = XMASSO\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n  640 CONTINUE\r\nC\r\nC     BYPASS TRANSFORMATIONS IF LUMPED MASS.\r\nC\r\n      IF (CPMASS .LE. 0) GO TO 700\r\nC\r\nC     BUILD THE 9X9 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY\r\nC\r\n      DO 650 I = 1,NPART\r\n      TRANSK(I) = 0.0D0\r\n      TOTTRN(I) = 0.0D0\r\n  650 CONTINUE\r\nC\r\n      NDOF33 = 3*NDOF + 3\r\n      DO 680 I = 1,NPART  ,NDOF33\r\n      II = ((I-1)/(3*NDOF))*9\r\n      DO 670 JJ = 1,9,3\r\n      J  = JJ - 1\r\n      KK = I - 1 + J*NNODE\r\n      DO 660 K = 1,3\r\n      TOTTRN(KK+K) = TRANS(II+J+K)\r\n  660 CONTINUE\r\n  670 CONTINUE\r\n  680 CONTINUE\r\nC\r\nC     PERFORM THE TRIPLE MULTIPLY.\r\nC\r\n      CALL MPYA3D (TOTTRN,AMGG(JCORED),NDOF,3,TRANSK)\r\n      GO TO 720\r\nC\r\nC     JUST COPY THE LUMPED MASS MATRIX OUT\r\nC\r\n  700 II = JCORED\r\n      DO 710 I = 1,NPART\r\n      TRANSK(I) = AMGG(II)\r\n      II = II + 1\r\n  710 CONTINUE\r\nC\r\n  720 CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,MMAT,PREC)\r\nC\r\n  730 CONTINUE\r\n      GO TO 1200\r\nC\r\nC     HEAT CALCULATIONS\r\nC\r\n  800 CONTINUE\r\n      INFLAG = 2\r\n      SINMAT = DSIN(THETAM)\r\n      COSMAT = DCOS(THETAM)\r\n      MATID  = NEST(11)\r\nC\r\n      CALL HMAT (ELID)\r\nC\r\n      GI(1) = KHEAT(1)\r\n      GI(2) = KHEAT(2)\r\n      GI(3) = GI(2)\r\n      GI(4) = KHEAT(3)\r\nC\r\n      DO 900 I = 1,18\r\n      HTCON(I) = 0.0D0\r\n      HTCAP(I) = 0.0D0\r\n  900 CONTINUE\r\nC\r\nC     BEGIN LOOP ON INTEGRATION POINTS\r\nC\r\n      DO 950 IPT = 1,3\r\n      CALL T3BMGD (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\n      DVOL = WEIGHT*DETJAC*TH\r\n      DO 910 I = 1,4\r\n      G(I,1) = GI(I)*DVOL\r\n  910 CONTINUE\r\n      WEITC = DVOL*HTCP\r\nC\r\n      IP = 1\r\n      DO 920 I = 1,NNODE\r\n      HTFLX(IP  ) = G(1,1)*BTERMS(I) + G(2,1)*BTERMS(I+NNODE)\r\n      HTFLX(IP+1) = G(3,1)*BTERMS(I) + G(4,1)*BTERMS(I+NNODE)\r\n      IP = IP + 2\r\n  920 CONTINUE\r\n      CALL GMMATD (BTERMS,2,NNODE,-1, HTFLX,NNODE,2,1, HTCON)\r\nC\r\nC     FINISHED WITH HEAT CONDUCTIVITY MATRIX, DO HEAT CAPACITY IF\r\nC     REQUIRED.\r\nC\r\n      IF (HTCP .EQ. 0.0) GO TO 950\r\n      IP = 1\r\n      DO 940 I = 1,NNODE\r\n      DHEAT = WEITC*SHPT(I)\r\n      DO 930 J = 1,NNODE\r\n      HTCAP(IP) = HTCAP(IP) + DHEAT*SHPT(J)\r\n      IP = IP + 1\r\n  930 CONTINUE\r\n  940 CONTINUE\r\nC\r\n  950 CONTINUE\r\nC\r\nC     END OF INTEGRATION LOOP, SHIP OUT THE RESULTS.\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NNODE\r\n      DICT(4) = 1\r\n      IF (WEITC .EQ. 0.0D0) GO TO 1000\r\n      ADAMP = 1.0\r\n      CALL EMGOUT (HTCAP,HTCAP,NNOD2,IEOE,DICT,DMAT,PREC)\r\n 1000 ADAMP = 0.0\r\n      CALL EMGOUT (HTCON,HTCON,NNOD2,IEOE,DICT,KMAT,PREC)\r\nC\r\n      GO TO 1200\r\nC\r\nC\r\nC     FATAL ERRORS\r\nC\r\nC     INSUFFICIENT MEMORY IS AVAILABLE\r\nC\r\n 1100 CALL MESAGE (-30,228,NAME)\r\n      GO TO 1140\r\nC\r\nC     CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS\r\nC\r\n 1110 J = 224\r\n      GO TO 1140\r\nC\r\nC     THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION\r\nC     ON TO THE PLANE OF CTRIA3 ELEMENT\r\nC\r\n 1120 J = 225\r\n      NEST(2) = MCSID\r\n      GO TO 1140\r\nC\r\nC     ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT\r\nC     FOR MID3 APPLICATION\r\nC\r\n 1130 J = 226\r\n      NEST(2) = MID(3)\r\nC\r\n 1140 CALL MESAGE (30,J,NEST(1))\r\n      IF (L38 .EQ. 1) CALL MESAGE (-61,0,0)\r\n      NOGO = 1\r\nC\r\n 1200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tria3s.f",
    "content": "      SUBROUTINE TRIA3S\r\nC\r\nC     SINGLE PRECISION ROUTINE TO FORM STIFFNESS, MASS, AND DAMPING\r\nC     MATRICES FOR THE CTRIA3 ELEMENT\r\nC\r\nC                 EST  LISTING\r\nC\r\nC        WORD     TYP       DESCRIPTION\r\nC     ----------------------------------------------------------------\r\nC     ECT:\r\nC         1        I   ELEMENT ID, EID\r\nC         2-4      I   SIL LIST, GRIDS 1,2,3\r\nC         5-7      R   MEMBRANE THICKNESSES T, AT GRIDS 1,2,3\r\nC         8        R   MATERIAL PROPERTY ORIENTAION ANGLE, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE TM ON CTRIA3 CARD)\r\nC         9        I   TYPE FLAG FOR WORD 8\r\nC        10        R   GRID OFFSET, ZOFF\r\nC    EPT:\r\nC        11        I   MATERIAL ID FOR MEMBRANE, MID1\r\nC        12        R   ELEMENT THICKNESS,T (MEMBRANE, UNIFORMED)\r\nC        13        I   MATERIAL ID FOR BENDING, MID2\r\nC        14        R   MOMENT OF INERTIA FACTOR, I (BENDING)\r\nC        15        I   MATERIAL ID FOR TRANSVERSE SHEAR, MID3\r\nC        16        R   TRANSV. SHEAR CORRECTION FACTOR, TS/T\r\nC        17        R   NON-STRUCTURAL MASS, NSM\r\nC        18-19     R   STRESS FIBER DISTANCES, Z1,Z2\r\nC        20        I   MATERIAL ID FOR MEMBRANE-BENDING COUPLING, MID4\r\nC        21        R   MATERIAL ANGLE OF ROTATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE MCSID ON PSHELL CARD)\r\nC                      (DEFAULT FOR WORD 8)\r\nC        22        I   TYPE FLAG FOR WORD 21 (DEFAULT FOR WORD 9)\r\nC        23        I   INTEGRATION ORDER FLAG\r\nC        24        R   STRESS ANGLE OF RATATION, THETA\r\nC               OR I   COORD. SYSTEM ID (SEE SCSID ON PSHELL CARD)\r\nC        25        I   TYPE FLAG FOR WORD 24\r\nC        26        R   OFFSET, ZOFF1 (DEFAULT FOR WORD 10)\r\nC    BGPDT:\r\nC        27-38   I/R   CID,X,Y,Z  FOR GRIDS 1,2,3\r\nC    ETT:\r\nC        39        I   ELEMENT TEMPERATURE\r\nC\r\nC\r\n      LOGICAL          HEAT,NOALFA,NEEDK,NEEDM,SHEART,\r\n     1                 MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      INTEGER          SYSBUF,NOUT,NOGO,PREC,HUNMEG,NEST(39),NAME(2),\r\n     1                 NECPT(4),DICT(11),IGPDT(4,3),ELID,ESTID,DMAT,\r\n     2                 SIL(3),IORDER(3),CPMASS,MID(4),TYPE,INDEX(3,3)\r\n      REAL             BGPDT(4,3),GPTH(3),NSM,ECPT(4),KHEAT,HTCP\r\n      REAL             AMGG(1),AKGG(1),ALPHA(1),THETAM,CENTE(3),\r\n     1                 DGPTH(3),EGPDT(4,3),EPNORM(4,3),GPNORM(4,3),\r\n     2                 AREA,WTSTIF,WTMASS,RHO,XMASS(9),XMASSO,LX,LY,\r\n     3                 EPS,OFFSET,SHPT(3),WEIGHT,G(9,9),GI(36),K11,K22,\r\n     4                 JOK,JOG,ZZ(9),AIC(18),EGNOR(4),EDGLEN(3),\r\n     5                 BMTRX(54),BMATRX(162),BTERMS(6),BMAT1(486),\r\n     6                 AVGTHK,MOMINR,TS,TH,REALI,TSI,TSM,BDUM(3),\r\n     7                 DETERM,DETJAC,TBG(9),TEB(9),TEM(9),TEU(9),\r\n     8                 TUB(9),TUM(9),TOTTRN(324),TRANSK(324),TRANS(27),\r\n     9                 TMPTRN(36),HTFLX(18),HTCAP(36),HTCON(36),\r\n     O                 DHEAT,WEITC,DVOL\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,NOGO,IDUM(51),PREC\r\n      COMMON /MATIN /  MATID,INFLAG,ELTEMP,DUMMY,SINMAT,COSMAT\r\n      COMMON /HMTOUT/  KHEAT(7),TYPE\r\n      COMMON /TERMS /  MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /EMGPRM/  ICORE,JCORE,NCORE,ICSTM,NCSTM,IMAT,NMAT,IHMAT,\r\n     1                 NHMAT,IDIT,NDIT,ICONG,NCONG,LCONG,ANYCON,\r\n     2                 KGG1,MGG1,IBGG1,PRECIS,ERROR,HEAT,CPMASS,\r\n     3                 DUMM6(6),L38\r\n      COMMON /EMGEST/  EST(39)\r\n      COMMON /EMGDIC/  ELTYPE,LDICT,NLOCS,ELID,ESTID\r\n      COMMON /ZZZZZZ/  Z(1)\r\n      EQUIVALENCE      (EST( 1),NEST(1)), (EST( 2),SIL(1)),\r\n     1                 (EST( 5),GPTH(1)), (EST(10),ZOFF),\r\n     2                 (EST(12),ELTH)   , (EST(17),NSM),\r\n     3                 (EST(23),INT)    , (EST(26),ZOFF1),\r\n     4                 (EST(27),BGPDT(1,1),IGPDT(1,1)),\r\n     5                 (EST(39),TEMPEL) , (DICT(5),ADAMP),\r\n     6                 (NECPT(1),ECPT(1)),(Z(1),AMGG(1),AKGG(1)),\r\n     7                 (KHEAT(4),HTCP)  , (HTCAP(1),XMASS(1))\r\n      DATA     HUNMEG, EPS / 100000000, 1.0E-7 /\r\n      DATA     NAME  , KMAT, MMAT, DMAT / 4HCTRI,4HA3  , 1, 2, 3 /\r\nC\r\nC     INITIALIZE\r\nC\r\n      ELID   = NEST(1)\r\n      NNODE  = 3\r\n      MOMINR = 0.0\r\n      TS     = 0.0\r\n      WEIGHT = 1.0/6.0\r\n      ELTEMP = TEMPEL\r\n      NEEDK  = KGG1.NE.0 .OR. IBGG1.NE.0\r\n      NOALFA = .TRUE.\r\n      SHEART = .TRUE.\r\n      IEOE   = 1\r\n      OFFSET = ZOFF\r\n      IF (ZOFF .EQ. 0.0) OFFSET = ZOFF1\r\nC\r\nC     CHECK FOR SUFFICIENT OPEN CORE FOR ELEMENT STIFFNESS\r\nC\r\nC     OPEN CORE BEGINS AT JCORE\r\nC     OPEN CORE ENDS   AT NCORE\r\nC     LENGTH OF AVAILABLE WORDS = (NCORE-JCORE-1)/PREC\r\nC\r\n      JCORED = JCORE/PREC + 1\r\n      LENGTH = (NCORE-JCORE-1)/PREC\r\n      IF (LENGTH.LT.324 .AND. (.NOT.HEAT .AND. NEEDK)) GO TO 1100\r\nC\r\nC     SET UP THE ELEMENT FORMULATION\r\nC\r\n      CALL T3SETS (IERR,SIL,IGPDT,ELTH,GPTH,DGPTH,EGPDT,GPNORM,EPNORM,\r\n     1             IORDER,TEB,TUB,CENTE,AVGTHK,LX,LY,EDGLEN,ELID)\r\n      IF (IERR .NE. 0) GO TO 1110\r\n      CALL GMMATS (TEB,3,3,0, TUB,3,3,1, TEU)\r\n      AREA = LX*LY/2.0\r\nC\r\nC     SET THE NUMBER OF DOF'S\r\nC\r\n      NNOD2 = NNODE*NNODE\r\n      NDOF  = NNODE*6\r\n      NPART = NDOF*NDOF\r\n      ND2   = NDOF*2\r\n      ND6   = NDOF*6\r\n      ND7   = NDOF*7\r\n      ND8   = NDOF*8\r\n      ND9   = NDOF*9\r\n      JEND  = JCORED + NPART - 1\r\nC\r\nC     OBTAIN MATERIAL INFORMATION\r\nC\r\nC     PASS THE LOCATION OF THE ELEMENT CENTER FOR MATERIAL\r\nC     TRANSFORMATIONS.\r\nC\r\n      DO 100 IEC = 2,4\r\n      ECPT(IEC) = CENTE(IEC-1)\r\n  100 CONTINUE\r\nC\r\nC     SET MATERIAL FLAGS\r\nC     5.0/6.0 = 0.833333333\r\nC\r\n      IF (NEST(13) .NE.   0) MOMINR = EST(14)\r\n      IF (NEST(13) .NE.   0) TS = EST(16)\r\n      IF ( EST(16) .EQ. 0.0) TS = 0.83333333\r\n      IF (NEST(13).EQ.0 .AND. NEST(11).GT.HUNMEG) TS = 0.833333333\r\nC\r\n      MID(1) = NEST(11)\r\n      MID(2) = NEST(13)\r\n      MID(3) = NEST(15)\r\n      MID(4) = NEST(20)\r\nC\r\n      MEMBRN = MID(1).GT.0\r\n      BENDNG = MID(2).GT.0 .AND. MOMINR.GT.0.0\r\n      SHRFLX = MID(3).GT.0\r\n      MBCOUP = MID(4).GT.0\r\n      NORPTH = MID(1).EQ.MID(2) .AND. MID(1).EQ.MID(3) .AND. MID(4).EQ.0\r\n     1         .AND. ABS(MOMINR-1.0).LE.EPS\r\nC\r\nC     SET UP TRANSFORMATION MATRIX FROM MATERIAL TO ELEMENT COORD.SYSTEM\r\nC\r\n      CALL SHCSGS (*1120,NEST(9),NEST(8),NEST(8),NEST(21),NEST(20),\r\n     1             NEST(20),NECPT,TUB,MCSID,THETAM,TUM)\r\nC\r\nC     BRANCH ON FORMULATION TYPE.\r\nC\r\n      IF (HEAT) GO TO 800\r\nC\r\nC     FETCH MATERIAL PROPERTIES\r\nC\r\n      CALL GMMATS (TEU,3,3,0,TUM,3,3,0,TEM)\r\n      CALL SHGMGS (*1130,ELID,TEM,MID,TS,NOALFA,GI,RHO,GSUBE,TSUB0,\r\n     1             EGNOR,ALPHA)\r\nC\r\nC     TURN OFF THE COUPLING FLAG WHEN MID4 IS PRESENT WITH ALL\r\nC     CALCULATED ZERO TERMS.\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 120\r\n      DO 110 I = 28,36\r\n      IF (ABS(GI(I)) .GT. EPS) GO TO 120\r\n  110 CONTINUE\r\n      MBCOUP = .FALSE.\r\n  120 CONTINUE\r\nC\r\nC     GET THE GEOMETRY CORRECTION TERMS\r\nC\r\n      IF (.NOT.BENDNG) GO TO 130\r\n      CALL T3GEMS (IERR,EGPDT,IORDER,GI(10),GI(19),LX,LY,EDGLEN,SHRFLX,\r\n     1             AIC,JOG,JOK,K11,K22)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\nC     REDUCED INTEGRATION LOOP FOR STIFFNESS\r\nC\r\n  130 IF (.NOT.NEEDK .OR. INT.NE.0) GO TO 160\r\nC\r\nC     DETERMINE THE AVERAGE [B] FOR OUT-OF-PLANE SHEAR\r\nC\r\n      DO 140 IPT = 1,3\r\n      KPT = (IPT-1)*ND9 + 1\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMAT1(KPT))\r\n      IF (IERR .NE. 0) GO TO 1110\r\n  140 CONTINUE\r\nC\r\n      DO 150 I = 1,NDOF\r\n      BMTRX(I     ) = BMAT1(I+ND6) +BMAT1(I+ND6+ND9) +BMAT1(I+ND6+2*ND9)\r\n      BMTRX(I+NDOF) = BMAT1(I+ND7) +BMAT1(I+ND7+ND9) +BMAT1(I+ND7+2*ND9)\r\n      BMTRX(I+ND2 ) = BMAT1(I+ND8) +BMAT1(I+ND8+ND9) +BMAT1(I+ND8+2*ND9)\r\n  150 CONTINUE\r\nC\r\nC     INITIALIZE FOR THE MAIN INTEGRATION LOOP\r\nC\r\n  160 NEEDM = MGG1.NE.0 .AND. (NSM.GT.0.0 .OR. RHO.GT.0.0)\r\n      IF (.NOT.NEEDK .AND. .NOT.NEEDM) GO TO 200\r\n      DO 170 I = JCORED,JEND\r\n      AKGG(I) = 0.0\r\n  170 CONTINUE\r\nC\r\n      DO 180 I = 1,9\r\n      XMASS(I) = 0.0\r\n  180 CONTINUE\r\nC\r\nC     MAIN INTEGRATION LOOP\r\nC\r\n  200 DO 500 IPT = 1,3\r\nC\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\nC     PERFORM STIFFNESS CALCULATIONS IF REQUIRED\r\nC\r\n      IF (.NOT.NEEDK) GO TO 400\r\n      WTSTIF = DETJAC*WEIGHT\r\n      REALI  = MOMINR*TH*TH*TH/12.0\r\n      TSI = TS*TH\r\nC\r\n      IF (INT .NE. 0) GO TO 220\r\n      DO 210 IX = 1,NDOF\r\n      BMATRX(IX+ND6) = BMTRX(IX     )\r\n      BMATRX(IX+ND7) = BMTRX(IX+NDOF)\r\n      BMATRX(IX+ND8) = BMTRX(IX+ND2 )\r\n  210 CONTINUE\r\nC\r\nC     FILL IN THE 9X9 [G]\r\nC\r\n  220 DO 240 IG = 1,9\r\n      DO 230 JG = 1,9\r\n      G(IG,JG) = 0.0\r\n  230 CONTINUE\r\n  240 CONTINUE\r\nC\r\n      IF (.NOT.MEMBRN) GO TO 270\r\n      DO 260 IG = 1,3\r\n      IG1 = (IG-1)*3\r\n      DO 250 JG = 1,3\r\n      G(IG,JG) = GI(IG1+JG)*TH*WTSTIF\r\n  250 CONTINUE\r\n  260 CONTINUE\r\nC\r\n  270 IF (.NOT.BENDNG) GO TO 340\r\n      DO 290 IG = 4,6\r\n      IG2 = (IG-2)*3\r\n      DO 280 JG = 4,6\r\n      G(IG,JG) = GI(IG2+JG)*REALI*WTSTIF\r\n  280 CONTINUE\r\n  290 CONTINUE\r\nC\r\n      TSM   = 1.0/(2.0*12.0*REALI)\r\n      ZZ(1) = (JOG/TSI)* GI(22) + TSM*JOK*K22\r\n      ZZ(2) =-(JOG/TSI)*(GI(20) + GI(21))/2.0\r\n      ZZ(3) = 0.0\r\n      ZZ(4) = ZZ(2)\r\n      ZZ(5) = (JOG/TSI)* GI(19) + TSM*JOK*K11\r\n      ZZ(6) = 0.0\r\n      ZZ(7) = 0.0\r\n      ZZ(8) = 0.0\r\n      ZZ(9) = (JOG/TSI)*(GI(22) + GI(19))/2.0\r\n     1      + TSM*12.0*AREA/SQRT(GI(10)*GI(14))\r\n      CALL INVERS (3,ZZ,3,BDUM,0,DETERM,ISING,INDEX)\r\n      IF (ISING .NE. 1) GO TO 1110\r\nC\r\n      DO 310 IG = 7,9\r\n      IG3 = (IG-7)*3\r\n      DO 300 JG = 7,9\r\n      G(IG,JG) = ZZ(IG3+JG-6)*WTSTIF\r\n  300 CONTINUE\r\n  310 CONTINUE\r\nC\r\n      IF (.NOT.MBCOUP) GO TO 340\r\n      DO 330 IG = 1,3\r\n      IG4 = (IG+8)*3\r\n      DO 320 JG = 1,3\r\n      G(IG,JG+3) = GI(IG4+JG)*TH*TH*WTSTIF\r\n      G(IG+3,JG) = G(IG,JG+3)\r\n  320 CONTINUE\r\n  330 CONTINUE\r\nC\r\nC     COMPUTE THE CONTRIBUTION TO THE STIFFNESS MATRIX FROM THIS\r\nC     INTEGRATION POINT.\r\nC\r\n  340 CALL T3BGBS (9,NDOF,G,BMATRX,AKGG(JCORED))\r\nC\r\nC\r\nC     END OF STIFFNESS CALCULATIONS.\r\nC     SKIP MASS CALCULATIONS IF NOT REQUIRED\r\nC\r\nC\r\n  400 IF (.NOT.NEEDM) GO TO 500\r\n      WTMASS = (RHO*TH+NSM)*DETJAC*WEIGHT\r\n      IF (CPMASS .LE. 0) GO TO 430\r\nC\r\nC     CONSISTENT MASS FORMULATION (OPTION)\r\nC\r\n      DO 420 I = 1,NNODE\r\n      II = (I-1)*NNODE\r\n      DO 410 J = 1,NNODE\r\n      XMASS(II+J) = XMASS(II+J) + SHPT(I)*SHPT(J)*WTMASS\r\n  410 CONTINUE\r\n  420 CONTINUE\r\n      GO TO 500\r\nC\r\nC     LUMPED MASS FORMULATION (DEFAULT)\r\nC\r\n  430 I3 = 1\r\n      DO 440 I = 1,NNODE\r\n      XMASS(I3) = XMASS(I3) + SHPT(I)*WTMASS\r\n      I3 = I3 + 1 + NNODE\r\n  440 CONTINUE\r\nC\r\nC     END OF MAIN INTEGRATION LOOP\r\nC\r\n  500 CONTINUE\r\nC\r\nC     PICK UP THE ELEMENT TO GLOBAL TRANSFORMATION FOR EACH NODE.\r\nC\r\n      DO 510 I = 1,NNODE\r\n      IPOINT = 9*(I-1) + 1\r\n      CALL TRANSS (IGPDT(1,I),TBG)\r\n      CALL GMMATS (TEB,3,3,0, TBG,3,3,0, TRANS(IPOINT))\r\n  510 CONTINUE\r\nC\r\nC     SHIP OUT THE STIFFNESS AND DAMPING MATRICES\r\nC\r\n      IF (.NOT.NEEDK) GO TO 600\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 63\r\n      ADAMP   = GSUBE\r\nC\r\nC     BUILD THE 18X18 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY\r\nC\r\n      DO 520 I = 1,NPART\r\n      TRANSK(I) = 0.0\r\n      TOTTRN(I) = 0.0\r\n  520 CONTINUE\r\nC\r\n      NDOF66 = 6*NDOF + 6\r\n      II = 1\r\n      DO 550 I = 1,NPART,NDOF66\r\n      CALL TLDRS (OFFSET,II,TRANS,TMPTRN)\r\n      DO 540 JJ = 1,36,6\r\n      J  = JJ - 1\r\n      KK = I - 1 + J*NNODE\r\n      DO 530 K = 1,6\r\n      TOTTRN(KK+K) = TMPTRN(J+K)\r\n  530 CONTINUE\r\n  540 CONTINUE\r\n  550 II = II + 1\r\nC\r\nC     PERFORM THE TRIPLE MULTIPLY.\r\nC\r\n      CALL MPYA3S (TOTTRN,AKGG(JCORED),NDOF,6,TRANSK)\r\nC\r\n      CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,KMAT,PREC)\r\nC\r\nC     SHIP OUT THE MASS MATRIX\r\nC\r\n  600 IF (.NOT.NEEDM) GO TO 730\r\n      NDOF    = NNODE*3\r\n      NPART   = NDOF*NDOF\r\n      DICT(2) = 1\r\n      DICT(3) = NDOF\r\n      DICT(4) = 7\r\n      ADAMP   = 0.0\r\n      JEND    = JCORED + NPART - 1\r\nC\r\nC     ZERO OUT THE POSITIONS, THEN LOOP ON I AND J TO LOAD THE MASS\r\nC     MATRIX.\r\nC\r\n      DO 610 IJK = JCORED,JEND\r\n      AMGG(IJK) = 0.0\r\n  610 CONTINUE\r\nC\r\n      NDOFP1 = NDOF + 1\r\n      DO 640 II = 1,NNOD2  ,NNODE\r\n      I = II - 1\r\n      DO 630 J = 1,NNODE\r\n      XMASSO = XMASS(I+J)\r\n      IPOINT = (J-1)*3 + I*9 + JCORED\r\n      JPOINT = IPOINT + 3*NDOF\r\n      DO 620 K = IPOINT,JPOINT,NDOFP1\r\n      AMGG(K) = XMASSO\r\n  620 CONTINUE\r\n  630 CONTINUE\r\n  640 CONTINUE\r\nC\r\nC     BYPASS TRANSFORMATIONS IF LUMPED MASS.\r\nC\r\n      IF (CPMASS .LE. 0) GO TO 700\r\nC\r\nC     BUILD THE 9X9 TRANSFORMATION MATRIX FOR ONE-SHOT MULTIPLY\r\nC\r\n      DO 650 I = 1,NPART\r\n      TRANSK(I) = 0.0\r\n      TOTTRN(I) = 0.0\r\n  650 CONTINUE\r\nC\r\n      NDOF33 = 3*NDOF + 3\r\n      DO 680 I = 1,NPART  ,NDOF33\r\n      II = ((I-1)/(3*NDOF))*9\r\n      DO 670 JJ = 1,9,3\r\n      J  = JJ - 1\r\n      KK = I - 1 + J*NNODE\r\n      DO 660 K = 1,3\r\n      TOTTRN(KK+K) = TRANS(II+J+K)\r\n  660 CONTINUE\r\n  670 CONTINUE\r\n  680 CONTINUE\r\nC\r\nC     PERFORM THE TRIPLE MULTIPLY.\r\nC\r\n      CALL MPYA3S (TOTTRN,AMGG(JCORED),NDOF,3,TRANSK)\r\n      GO TO 720\r\nC\r\nC     JUST COPY THE LUMPED MASS MATRIX OUT\r\nC\r\n  700 II = JCORED\r\n      DO 710 I = 1,NPART\r\n      TRANSK(I) = AMGG(II)\r\n      II = II + 1\r\n  710 CONTINUE\r\n  720 CONTINUE\r\nC\r\n      CALL EMGOUT (TRANSK,TRANSK,NPART,IEOE,DICT,MMAT,PREC)\r\n  730 CONTINUE\r\n      GO TO 1200\r\nC\r\nC     HEAT CALCULATIONS\r\nC\r\n  800 CONTINUE\r\n      INFLAG = 2\r\n      SINMAT = SIN(THETAM)\r\n      COSMAT = COS(THETAM)\r\n      MATID  = NEST(11)\r\nC\r\n      CALL HMAT (ELID)\r\nC\r\n      GI(1) = KHEAT(1)\r\n      GI(2) = KHEAT(2)\r\n      GI(3) = GI(2)\r\n      GI(4) = KHEAT(3)\r\nC\r\n      DO 900 I = 1,18\r\n      HTCON(I) = 0.0\r\n      HTCAP(I) = 0.0\r\n  900 CONTINUE\r\nC\r\nC     BEGIN LOOP ON INTEGRATION POINTS\r\nC\r\n      DO 950 IPT = 1,3\r\n      CALL T3BMGS (IERR,SHEART,IPT,IORDER,EGPDT,DGPTH,AIC,TH,DETJAC,\r\n     1             SHPT,BTERMS,BMATRX)\r\n      IF (IERR .NE. 0) GO TO 1110\r\nC\r\n      DVOL = WEIGHT*DETJAC*TH\r\n      DO 910 I = 1,4\r\n      G(I,1) = GI(I)*DVOL\r\n  910 CONTINUE\r\n      WEITC = DVOL*HTCP\r\nC\r\n      IP = 1\r\n      DO 920 I = 1,NNODE\r\n      HTFLX(IP  ) = G(1,1)*BTERMS(I) + G(2,1)*BTERMS(I+NNODE)\r\n      HTFLX(IP+1) = G(3,1)*BTERMS(I) + G(4,1)*BTERMS(I+NNODE)\r\n      IP = IP + 2\r\n  920 CONTINUE\r\n      CALL GMMATS (BTERMS,2,NNODE,-1, HTFLX,NNODE,2,1, HTCON)\r\nC\r\nC     FINISHED WITH HEAT CONDUCTIVITY MATRIX, DO HEAT CAPACITY IF\r\nC     REQUIRED.\r\nC\r\n      IF (HTCP .EQ. 0.0) GO TO 950\r\n      IP = 1\r\n      DO 940 I = 1,NNODE\r\n      DHEAT = WEITC*SHPT(I)\r\n      DO 930 J = 1,NNODE\r\n      HTCAP(IP) = HTCAP(IP) + DHEAT*SHPT(J)\r\n      IP = IP + 1\r\n  930 CONTINUE\r\n  940 CONTINUE\r\nC\r\n  950 CONTINUE\r\nC\r\nC     END OF INTEGRATION LOOP, SHIP OUT THE RESULTS.\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = NNODE\r\n      DICT(4) = 1\r\n      IF (WEITC .EQ. 0.0) GO TO 1000\r\n      ADAMP = 1.0\r\n      CALL EMGOUT (HTCAP,HTCAP,NNOD2,IEOE,DICT,DMAT,PREC)\r\n 1000 ADAMP = 0.0\r\n      CALL EMGOUT (HTCON,HTCON,NNOD2,IEOE,DICT,KMAT,PREC)\r\nC\r\n      GO TO 1200\r\nC\r\nC\r\nC     FATAL ERRORS\r\nC\r\nC     INSUFFICIENT MEMORY IS AVAILABLE\r\nC\r\n 1100 CALL MESAGE (-30,228,NAME)\r\n      GO TO 1140\r\nC\r\nC     CTRIA3 ELEMENT HAS ILLEGAL GEOMETRY OR CONNECTIONS\r\nC\r\n 1110 J = 224\r\n      GO TO 1140\r\nC\r\nC     THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM HAS NO PROJECTION\r\nC     ON TO THE PLANE OF CTRIA3 ELEMENT\r\nC\r\n 1120 J = 225\r\n      NEST(2) = MCSID\r\n      GO TO 1140\r\nC\r\nC     ILLEGAL DATA DETECTED ON MATERIAL ID REFERENCED BY CTRIA3 ELEMENT\r\nC     FOR MID3 APPLICATION\r\nC\r\n 1130 J = 226\r\n      NEST(2) = MID(3)\r\nC\r\n 1140 CALL MESAGE (30,J,NEST(1))\r\n      IF (L38 .EQ. 1) CALL MESAGE (-61,0,0)\r\n      NOGO = 1\r\nC\r\n 1200 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/triaad.f",
    "content": "      SUBROUTINE TRIAAD\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRICES FOR THE\r\nC     ASSYMMETRIC RING WITH A TRIANGULAR CROSS SECTION, TO BE USED BY\r\nC     THE ELEMENT MATRIX GENERATOR.\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THIS CURRENT VERSION ALLOWS FOR COORDINATE SYSTEM\r\nC     THIS SUBROUTINE USES THE ADDITIONAL ROUTINES DKL, DELTKL\r\nC\r\nC     THE ECPT FOR THE TRIAX ELEMENT IS\r\nC\r\nC     ECPT (01) = ELEMENT ID                              I\r\nC     ECPT (02) = SIL A                                   I\r\nC     ECPT (03) = SIL B                                   I\r\nC     ECPT (04) = SIL C                                   I\r\nC     ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES)     R\r\nC     ECPT (07) = MATERIAL ID                             I\r\nC     ECPT (08) TO ECPT(21) = STRESS PHASE ANG.           R\r\nC     ECPT (22) = CORD. SYS. GRID POINT A (NOT USED)      I\r\nC     ECPT (23) = R-CORD OF GRID A                        R\r\nC     ECPT (24) = Z-CORD OF GRID A                        R\r\nC     ECPT (25) = 0.0                                     R\r\nC     ECPT (26) = CORD. SYS. GRID POINT B (NOT USED)      I\r\nC     ECPT (27) = R-CORD OF GRID B                        R\r\nC     ECPT (28) = Z-CORD OF GRID B                        R\r\nC     ECPT (29) = 0.0                                     R\r\nC     ECPT (30) = CORD. SYS. GRID POINT C (NOT USED)      I\r\nC     ECPT (31) = R-CORD OF GRID C                        R\r\nC     ECPT (32) = Z-CORD OF GRID C                        R\r\nC     ECPT (33) = 0.0                                     R\r\nC     ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP       R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\n      LOGICAL         PZMAT,LSYS78,NOGO,HEAT\r\n      INTEGER         DICT(11),ELID,ESTID,ISORT(3)\r\n      DOUBLE PRECISION ZA,AKI,AKT,ACURL,D(81),AK(81),AKJ,\r\n     1                GABABQ(9,9),R(3),Z(3),EE(63),TEO,DELINT(12),\r\n     2                DELM(12),BMASS(9,9),AKM(81),AKJM(81),AMT(9),\r\n     3                Z1,Z2,Z3,PI,TWOPI,DEGRAD,ZMIN,AA,C1,C2,C3,\r\n     4                COSG,SING,ER,ET,EZ,VRO,VOZ,VZR,\r\n     5                GOR,GZO,GRZ,VOR,VZO,VRZ,DEL,DKL,C4,S2,S4,DGAMR,\r\n     6                AJHO,AJJHO,RHOD,DGAMAR,CONVM,AREA,C2S2,\r\n     7                ACURP1(27),ACURP2(9),AKUPH(27),AKPH2(9),AKIP(9),\r\n     8                GABABP(3,3),D1(27),D2(9),CONSTS\r\n      DIMENSION       IECPT(34),ICS(3),ECPT(34)\r\n      COMMON /TRIAXX/ AKI(81),AKT(16),ACURL(117),AKJ(144),TEO(45)\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78\r\n      COMMON /EMGPRM/ IXTRA,DUM(14),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/ DXX,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/ IDEL,IGP(3),DGAMA,DM1,MATID,SPA(14),ICS1,R1,ZZ1,\r\n     1                ZER,ICS2,R2,ZZ2,ZER2,ICS3,R3,ZZ3,ZER3,TEMPE\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /CONDAD/ CONSTS(5)\r\n      COMMON /MATPZ / PZOUT(51)\r\nC\r\nC     COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25,\r\nC                     CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56,\r\nC                     CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25,\r\nC                     E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,\r\nC                     EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE\r\nC\r\n      EQUIVALENCE     (IECPT(1),ECPT(1),IDEL), (DICT(5),DICT5),\r\n     1                (Z(1),Z1), (Z(2),Z2), (Z(3),Z3),\r\n     2                (AKI(1),GABABQ(1,1)), (BMASS(1,1),AKM(1)),\r\n     3                (CONSTS(1),PI), (CONSTS(4),DEGRAD),\r\n     4                (CONSTS(2),TWOPI), (AKIP(1),GABABP(1,1)),\r\n     5                (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109))\r\n      DATA    IDEL2 , JAX / 0, 4HTRIA /\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\n      IDEL1 = IDEL/1000\r\nC\r\nC     INITALIZE\r\nC\r\n      DO 40 I = 1,403\r\n 40   AKI(I) = 0.D0\r\n      DO 50 I = 1,3\r\n      R(I)   =  ECPT(4*I+19)\r\n      Z(I)   =  ECPT(4*I+20)\r\n   50 ICS(I) = IECPT(4*I+18)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 15\r\n      IPR     = IPREC\r\nC\r\n      IF (R1.LE.0. .OR. R2.LE.0. .OR. R3.LE.0.) GO TO 7770\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = DMIN1(Z1,Z2,Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC     FORM TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO  100 I = 1,9\r\n      DO  100 J = 1,9\r\n  100 GABABQ(I,J) = 0.D0\r\nC\r\n      AA =  1.D0/(R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1)\r\n      C1 =  AA*(R2*Z3 - Z2*R3)\r\n      C2 = -AA*(Z3 - Z2)\r\n      C3 =  AA*(R3 - R2)\r\n      GABABQ(1,1) = C1\r\n      GABABQ(1,2) = C2\r\n      GABABQ(1,3) = C3\r\n      GABABQ(2,4) = C1\r\n      GABABQ(2,5) = C2\r\n      GABABQ(2,6) = C3\r\n      GABABQ(3,7) = C1\r\n      GABABQ(3,8) = C2\r\n      GABABQ(3,9) = C3\r\n      IF (LSYS78) GO TO 102\r\n      GABABP(1,1) = C1\r\n      GABABP(1,2) = C2\r\n      GABABP(1,3) = C3\r\n  102 CONTINUE\r\n      C1 = -AA*(R1*Z3 - Z1*R3)\r\n      C2 =  AA*(Z3 - Z1)\r\n      C3 = -AA*(R3 - R1)\r\n      GABABQ(4,1) = C1\r\n      GABABQ(4,2) = C2\r\n      GABABQ(4,3) = C3\r\n      GABABQ(5,4) = C1\r\n      GABABQ(5,5) = C2\r\n      GABABQ(5,6) = C3\r\n      GABABQ(6,7) = C1\r\n      GABABQ(6,8) = C2\r\n      GABABQ(6,9) = C3\r\n      IF (LSYS78) GO TO 104\r\n      GABABP(2,1) = C1\r\n      GABABP(2,2) = C2\r\n      GABABP(2,3) = C3\r\n  104 CONTINUE\r\n      C1 =  AA*(R1*Z2 - Z1*R2)\r\n      C2 = -AA*(Z2 - Z1)\r\n      C3 =  AA*(R2 - R1)\r\n      GABABQ(7,1) = C1\r\n      GABABQ(7,2) = C2\r\n      GABABQ(7,3) = C3\r\n      GABABQ(8,4) = C1\r\n      GABABQ(8,5) = C2\r\n      GABABQ(8,6) = C3\r\n      GABABQ(9,7) = C1\r\n      GABABQ(9,8) = C2\r\n      GABABQ(9,9) = C3\r\n      IF (LSYS78) GO TO 110\r\n      GABABP(3,1) = C1\r\n      GABABP(3,2) = C2\r\n      GABABP(3,3) = C3\r\n  110 CONTINUE\r\nC\r\nC     COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED\r\nC     THE FOLLOWING TABLE\r\nC\r\nC     DELINT(01) = (-1,0)\r\nC     DELINT(02) = (-1,1)\r\nC     DELINT(03) = (-1,2)\r\nC     DELINT(04) = ( 0,0)\r\nC     DELINT(05) = ( 0,1)\r\nC     DELINT(06) = ( 1,0)\r\nC\r\nC     OR FOR THE MASS MATRIX\r\nC\r\nC     DELINT(1)  =  (1,0)\r\nC     DELINT(2)  =  (1,1)\r\nC     DELINT(3)  =  (1,2)\r\nC     DELINT(4)  =  (2,0)\r\nC     DELINT(5)  =  (2,1)\r\nC     DELINT(7)  =  (3,0)\r\nC\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 180\r\n      RA = (R1 + R2 + R3)/3.0\r\n      ZA = (Z1 + Z2 + Z3)/3.0D0\r\n      RH = AMIN1(R1,R2,R3)/10.0\r\n      DR = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1))\r\n      AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0D0\r\nC\r\n      I1 = 0\r\n      DO 160 I = 1,2\r\n      IP = I - 2\r\n      DO 140 J = 1,3\r\n      IQ =  J  - 1\r\n      I1 =  I1 + 1\r\n      IF (I1 .NE. 6) GO TO 120\r\n      IP = 1\r\n      IQ = 0\r\n  120 IF (DR .GT. RH) GO TO 130\r\n      DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA\r\n      GO TO 135\r\n  130 DELINT(I1) = DKL(3,IP,IQ,R,Z)\r\n  135 DELINT(I1) = DABS(DELINT(I1))\r\n  140 CONTINUE\r\n  160 CONTINUE\r\nC\r\nC     MASS MATRIX\r\nC\r\n      IF (ISMB(2) .EQ. 0) GO TO 200\r\n  180 CALL DELTKL (AKJ,R,Z,0)\r\n      DELM(1) = AKJ(2)\r\n      DELM(2) = AKJ(7)\r\n      DELM(3) = AKJ(8)\r\n      DELM(4) = AKJ(10)\r\n      DELM(5) = AKJ(9)\r\n      DELM(7) = AKJ(12)\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n200   DGAMR  = DBLE(DGAMA)*DEGRAD\r\n      COSG   = DCOS(DGAMR)\r\n      SING   = DSIN(DGAMR)\r\n      SINTH  = SING\r\n      COSTH  = COSG\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\n      PZMAT = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 210\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 220\r\n  210 RHO = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  220 CONTINUE\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\n      DICT5 = G SUB E\r\n      IF (KSYS78 .GT. 0) GO TO 249\r\nC\r\nC     SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO*ET/ER\r\n      VZO = VOZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.D0/(1.D0 - VRO*VOR  - VOZ*VZO - VZR*VRZ\r\n     1    - VRO*VOZ*VZR - VRZ*VOR*VZO)\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  249 CONTINUE\r\n      DO 250 I = 1,45\r\n  250 TEO(I) = 0.D0\r\nC\r\n      IF (KSYS78 .GT. 0) GO TO 251\r\n      TEO( 1) = ER*(1.  - VOZ*VZO)*DEL\r\n      TEO( 2) = ER*(VZR + VZO*VOR)*DEL\r\n      TEO( 3) = EZ*(1.  - VRO*VOR)*DEL\r\n      TEO( 4) = ER*(VOR + VZR*VOZ)*DEL\r\n      TEO( 5) = ET*(VZO + VRO*VZR)*DEL\r\n      TEO( 6) = ET*(1.  - VRZ*VZR)*DEL\r\n      TEO(10) = GRZ\r\n      TEO(15) = GOR\r\n      TEO(21) = GZO\r\n      GO TO 252\r\n  251 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\n      IF (KSYS78 .EQ. 2) GO TO 252\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  252 CONTINUE\r\n      C2  = COSG*COSG\r\n      C4  = C2  *C2\r\n      S2  = SING*SING\r\n      S4  = S2  *S2\r\n      C2S2 = C2*S2\r\n      C3  = COSG*C2\r\n      S3  = SING*S2\r\n      CS2 = COSG*S2\r\n      SC2 = SING*C2\r\n      CS  = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3) - 4.*TEO(10))\r\n      EE( 3) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 4) = COSG*SING*S2*(TEO(2) - TEO(3) + 2.*TEO(10))\r\n     4       + SING*COSG*C2*(TEO(1) - TEO(2) - 2.*TEO(10))\r\n      EE( 7) = EE(2)\r\n      EE( 8) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10)) + TEO(3)*C4\r\n      EE( 9) = TEO(4)*S2 + TEO(5)*C2\r\n      EE(10) = SING*COSG*C2*(TEO(2) - TEO(3) + 2.*TEO(10))\r\n     O       + COSG*SING*S2*(TEO(1) - TEO(2) - 2.*TEO(10))\r\n      EE(13) = EE(3)\r\n      EE(14) = EE(9)\r\n      EE(15) = TEO(6)\r\n      EE(16) = SING*COSG*(TEO(4)-TEO(5))\r\n      EE(19) = EE(4)\r\n      EE(20) = EE(10)\r\n      EE(21) = EE(16)\r\n      EE(22) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(29) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(30) = SING*COSG*(TEO(15)-TEO(21))\r\n      EE(35) = EE(30)\r\n      EE(36) = TEO(15)*S2 + TEO(21)*C2\r\nC\r\n      IF (LSYS78) GO TO 254\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) -\r\n     7         SC2*(TEO(23)+2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) +\r\n     8         SC2*(TEO(22) - 2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) -\r\n     O         SC2*(TEO(26) - 2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) +\r\n     1         SC2*(TEO(25) + 2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) +\r\n     6         SC2*(-TEO(32) - TEO(25)+TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) +\r\n     7         SC2*(TEO(23) + TEO(31)-TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24)-TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35)+TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34)-TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38)-TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35)+TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43) - TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n  254 CONTINUE\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      MJHO = MOD(IECPT(1),1000) - 1\r\n      AJHO = MJHO\r\n      AJJHO= AJHO*AJHO\r\n      RHOD = RHO *PI\r\n      IF (AJHO .EQ. 0.D0) RHOD = 2.*RHOD\r\n      IF (ISMB(1) .EQ. 0) GO TO 300\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL(01) = (EE(15) + AJJHO*EE(29))*DELINT(1)\r\n      ACURL(02) = (EE(03) + EE(15) + AJJHO*EE(29))*DELINT(4)\r\n      ACURL(03) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4)\r\n      ACURL(04) = (EE(15) + EE(29))*AJHO*DELINT(1)\r\n      ACURL(05) = EE(15)*AJHO*DELINT(4)\r\n      ACURL(06) = (EE(15) + EE(29))*AJHO*DELINT(2) -\r\n     6            EE(30)*AJHO*DELINT(4)\r\n      ACURL(07) = AJJHO*DELINT(1)*EE(35)\r\n      ACURL(08) = (EE(16) + AJJHO*EE(35))*DELINT(4)\r\n      ACURL(09) = EE(09)*DELINT(4) + AJJHO*DELINT(2)*EE(35)\r\n      ACURL(11) = (EE(1) + 2.*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6)\r\n      ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5)\r\n     2          + (EE(4) + EE (16))*DELINT(6)\r\n      ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4)\r\n      ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO\r\n      ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5) -\r\n     5            AJHO*EE(30)*DELINT(6)\r\n      ACURL(16) = AJJHO*DELINT(4)*EE(35)\r\n      ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6)\r\n      ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35)\r\n      ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) +\r\n     1            EE(22)*DELINT(6) + 2.*EE(16)*DELINT(5)\r\n      ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT(2) +\r\n     2            AJHO*DELINT(4)*EE(16)\r\n      ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16)\r\n      ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3) + (EE(16)-EE(30))\r\n     4          * AJHO*DELINT(5)\r\n      ACURL(25) = AJJHO*DELINT(2)*EE(35)\r\n      ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5)\r\n      ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6) +\r\n     7            AJJHO*DELINT(3)*EE(35)\r\n      ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1)\r\n      ACURL(32) = EE(15)*AJJHO*DELINT(4)\r\n      ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4)\r\n      ACURL(34) = AJHO*DELINT(1)*EE(35)\r\n      ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4)\r\n      ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35)\r\n      ACURL(41) = AJJHO*DELINT(06)*EE(15)\r\n      ACURL(42) = EE(15)*AJJHO*DELINT(5)\r\n      ACURL(43) = 0.\r\n      ACURL(44) = AJHO*DELINT(6)*EE(16)\r\n      ACURL(45) = EE(9)*AJHO*DELINT(6)\r\n      ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36)*DELINT(6)\r\n     1          - 2.*EE(35)*DELINT(5)\r\n      ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36))\r\n      ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16) + EE(35))\r\n     3          * DELINT(5)\r\n      ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5) +\r\n     4            AJHO*DELINT(3)*EE(35)\r\n      ACURL(61) = EE(36)*AJJHO*DELINT(1)\r\n      ACURL(62) = EE(36)*AJJHO*DELINT(4)\r\n      ACURL(63) = EE(36)*AJJHO*DELINT(2)\r\n      ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6)\r\n      ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6)\r\n      ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6)\r\n      IF (LSYS78) GO TO 256\r\n      ACURL(82) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(1)\r\n      ACURL(83) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51))\r\n     3          * DELINT(4)\r\n      ACURL(84) = (EE(44) - AJHO*EE(50))*DELINT(4) - (EE(45)\r\n     4          - AJHO*EE(51))*AJHO*DELINT(2)\r\n      ACURL(85) =-(EE(39) + EE(45) - AJHO*EE(51))*AJHO*DELINT(4)\r\n      ACURL(86) = (EE(37) + EE(43) - (EE(39) + EE(45) + EE(49)\r\n     6          - AJHO*EE(51))*AJHO)*DELINT(6)\r\n      ACURL(87) = (EE(38) + EE(44) - AJHO*EE(50))*DELINT(6) - (EE(39)\r\n     7          + EE(45) - AJHO*EE(51))*AJHO*DELINT(5)\r\n      ACURL(88) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(2) - EE(48)*AJHO\r\n     8          * DELINT(4)\r\n      ACURL(89) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51))\r\n     9          * DELINT(5) + (EE(46) - EE(48)*AJHO)*DELINT(6)\r\n      ACURL(90) = (EE(44) - AJHO*EE(48) - AJHO*EE(50))*DELINT(5)\r\n     O          + EE(47)*DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3)\r\n      ACURL(91) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(1)\r\n      ACURL(92) = (AJHO*EE(43) - AJJHO*EE(45) - EE(49) + AJHO*EE(51))\r\n     2          * DELINT(4)\r\n      ACURL(93) = (EE(44)*AJHO - EE(50))*DELINT(4) - (EE(45)*AJHO\r\n     3          - EE(51))*AJHO*DELINT(2)\r\n      ACURL(94) =-EE(45)*AJJHO*DELINT(4)\r\n      ACURL(95) = (EE(43) - AJHO*EE(45))*AJHO*DELINT(6)\r\n      ACURL(96) = EE(44)*AJHO*DELINT(6) - EE(45)*AJJHO*DELINT(5)\r\n      ACURL(97) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(2) - EE(54)*AJHO\r\n     7          * DELINT(4)\r\n      ACURL(98) = (EE(43)*AJHO - AJJHO*EE(45) - EE(49) + EE(51)*AJHO)\r\n     8          * DELINT(5) + (EE(52) - AJHO*EE(54))*DELINT(6)\r\n      ACURL(99) = (EE(44)*AJHO - EE(50) - EE(54)*AJHO)*DELINT(5)\r\n     9          + EE(53)*DELINT(6) - (EE(45)*AJHO - EE(51))*AJHO\r\n     9          * DELINT(3)\r\n      ACURL(100)= EE(54)*AJJHO*DELINT(1)\r\n      ACURL(101)=-(EE(52) - EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(102)=-(EE(53)*DELINT(4) - EE(54)*AJHO*DELINT(2))*AJHO\r\n      ACURL(103)=-(EE(48) - EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(104)= (EE(46) - EE(48)*AJHO - EE(52)*AJHO+EE(54)*AJJHO)\r\n     4          * DELINT(6)\r\n      ACURL(105)= (EE(47) - EE(53)*AJHO)*DELINT(6) - (EE(48) - EE(54)\r\n     5          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(106)= EE(54)*AJJHO*DELINT(2) - EE(42)*AJHO*DELINT(4)\r\n      ACURL(107)= (EE(40) - EE(42)*AJHO)*DELINT(6) - (EE(52) - EE(54)\r\n     7          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(108)= EE(41)*DELINT(6) + (-EE(42) - EE(53))*AJHO*DELINT(5)\r\n     8          + EE(54)*AJJHO*DELINT(3)\r\nC\r\n      ACURL(109)= EE(63)*AJJHO*DELINT(1)\r\n      ACURL(110)= (-EE(57) + EE(63)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(111)=-EE(60)*AJHO*DELINT(4) + EE(63)*AJJHO*DELINT(2)\r\n      ACURL(112)= ACURL(110)\r\n      ACURL(113)= (EE(55) - 2.0*EE(57)*AJHO+EE(63)*AJJHO)*DELINT(6)\r\n      ACURL(114)= (EE(56) - EE(60)*AJHO)*DELINT(6) + (-EE(57) + EE(63)\r\n     4          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(115)= ACURL(111)\r\n      ACURL(116)= ACURL(114)\r\n      ACURL(117)= EE(59)*DELINT(6) - 2.0*EE(60)*AJHO*DELINT(5) + EE(63)\r\n     7          * AJJHO*DELINT(3)\r\n  256 CONTINUE\r\nC\r\nC     EXPAND ACURL INTO (9X9)\r\nC\r\n      DO 270 IB = 2,9\r\n      IC = 10*IB - 19\r\n      I  = IC\r\n      DO 260  J = IB,9\r\n      IC = IC + 9\r\n      I  = I  + 1\r\n  260 ACURL(IC) = ACURL(I)\r\n  270 CONTINUE\r\n      DGAMAR = PI\r\n      IF (AJHO .EQ. 0.D0) DGAMAR = TWOPI\r\n      DO 280 I = 1,81\r\n  280 ACURL(I) = ACURL(I)*DGAMAR\r\n      IF (LSYS78) GO TO 300\r\nC\r\n      DO 290 I = 82,117\r\n  290 ACURL(I) = ACURL(I)*DGAMAR\r\nC\r\n  300 IF (ISMB(2).EQ. 0) GO TO 400\r\n      IF (ICMBAR .LT. 0) GO TO 350\r\nC\r\nC     CONSISTENT MASS IN FIELD COORDINATES\r\nC\r\n      DO 320 I = 1,81\r\n  320 BMASS(I,1) = 0.\r\n      BMASS(1,1) = RHOD*DELM(1)\r\n      BMASS(1,2) = RHOD*DELM(4)\r\n      BMASS(1,3) = RHOD*DELM(2)\r\n      BMASS(2,1) = RHOD*DELM(4)\r\n      BMASS(2,2) = RHOD*DELM(7)\r\n      BMASS(2,3) = RHOD*DELM(5)\r\n      BMASS(3,1) = RHOD*DELM(2)\r\n      BMASS(3,2) = RHOD*DELM(5)\r\n      BMASS(3,3) = RHOD*DELM(3)\r\n      BMASS(4,4) = RHOD*DELM(1)\r\n      BMASS(4,5) = RHOD*DELM(4)\r\n      BMASS(4,6) = RHOD*DELM(2)\r\n      BMASS(5,4) = RHOD*DELM(4)\r\n      BMASS(5,5) = RHOD*DELM(7)\r\n      BMASS(5,6) = RHOD*DELM(5)\r\n      BMASS(6,4) = RHOD*DELM(2)\r\n      BMASS(6,5) = RHOD*DELM(5)\r\n      BMASS(6,6) = RHOD*DELM(3)\r\n      BMASS(7,7) = RHOD*DELM(1)\r\n      BMASS(7,8) = RHOD*DELM(4)\r\n      BMASS(7,9) = RHOD*DELM(2)\r\n      BMASS(8,7) = RHOD*DELM(4)\r\n      BMASS(8,8) = RHOD*DELM(7)\r\n      BMASS(8,9) = RHOD*DELM(5)\r\n      BMASS(9,7) = RHOD*DELM(2)\r\n      BMASS(9,8) = RHOD*DELM(5)\r\n      BMASS(9,9) = RHOD*DELM(3)\r\n      GO TO 400\r\n  350 AREA  = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.\r\n      CONVM =  RHOD*(R1 + R2 + R3)/3.*AREA\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n  400 IF (ISMB(1) .EQ. 0) GO TO 410\r\n      CALL GMMATD (AKI,9,9,1,ACURL,9,9,0,D )\r\n      CALL GMMATD (D,  9,9,0,AKI  ,9,9,0,AK)\r\n      IF (LSYS78) GO TO 405\r\n      CALL GMMATD (AKI,9,9,1,ACURP1,9,3,0,D1)\r\n      CALL GMMATD (D1, 9,3,0,AKIP,  3,3,0,AKUPH)\r\n      CALL GMMATD (AKIP,3,3,1,ACURP2,3,3,0,D2)\r\n      CALL GMMATD (D2,  3,3,0,AKIP,  3,3,0,AKPH2)\r\n  405 CONTINUE\r\nC\r\n      IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.0) GO TO 450\r\n  410 CALL GMMATD (AKI,9,9,1,BMASS,9,9,0,D)\r\n      CALL GMMATD (D,  9,9,0,AKI,  9,9,0,AKM)\r\nC\r\n  450 DO 460 I = 1,81\r\n      AKJ(I)  = 0.D0\r\n  460 AKJM(I) = 0.D0\r\n      DO 462 I = 82,117\r\n  462 AKJ(I) = 0.D0\r\nC\r\n      GO TO 480\r\nC\r\nC     CREATE AN ARRAY OF SORTED GRID POINTS\r\nC\r\n  480 DO 482 I = 1,3\r\n      ISORT(I) = IGP(I)\r\n  482 CONTINUE\r\n      I = -3\r\n  484 J = 0\r\n      DO 486 K = 1,3\r\n      IF (ISORT(K) .LT. J) GO TO 486\r\n      J = ISORT(K)\r\n      L = K\r\n  486 CONTINUE\r\n      ISORT(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 484\r\n      DO 490 I = 1,3\r\n      ISORT(I) = -ISORT(I)\r\n  490 CONTINUE\r\nC\r\nC     TRANSFORM 3 X 3 TO 6 X 6 FOR COORD SYSTEM TRANSFORMATIONS\r\nC\r\n      DO 600 ISIL = 1,3\r\n      IPP = ISORT(ISIL)\r\nC\r\n      IR1 = 3*(ISIL-1) + 1\r\n      DO 590 II = 1,3\r\n      I   = ISORT(II)\r\n      IC1 = 3*(II-1) + 1\r\n      IRC = (IR1 -1)*9  + IC1\r\n      DO 500 J = 1,3\r\n      J1 = (J-1)*4 + 1\r\n      IRCC = IRC + (J-1)*9\r\n      IF (ISMB(1) .EQ. 0) GO TO 495\r\n      AKT(J1  ) = AK(IRCC  )\r\n      AKT(J1+1) = AK(IRCC+1)\r\n      AKT(J1+2) = AK(IRCC+2)\r\n      IF (LSYS78) GO TO 492\r\n      M = IRCC/3 + 1\r\n      N = (M-1)/9 + 1 + (II-1)*9 + (J-1)*3\r\n      AKT(J1+3) = AKUPH(M)\r\n      AKT(J1+15-J*3) = AKUPH(N)\r\n      AKT(16) = AKPH2(IR1+II-1)\r\n  492 CONTINUE\r\nC\r\n  495 IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.1) GO TO 500\r\n      J1 = (J-1)*3 + 1\r\n      AMT(J1  ) = AKM(IRCC  )\r\n      AMT(J1+1) = AKM(IRCC+1)\r\n      AMT(J1+2) = AKM(IRCC+2)\r\n  500 CONTINUE\r\nC\r\nC     NOW INSERT  AKT AND AMT INTO THE OVERALL STIFFNESS MATRICES\r\nC     ACCORDING TO INCREASING SIL VALUE\r\nC\r\n      DO 550 IJ = 1,3\r\n      DO 550 JJ = 1,3\r\n      KI = (IJ-1)*3 + JJ\r\n      IOUT = (IPP-1)*27 + (I-1)*3 + (IJ-1)*9 + JJ\r\n  550 AKJM(IOUT)= AMT(KI)\r\n      DO 560 IJ = 1,4\r\n      DO 560 JJ = 1,4\r\n      KI = (IJ-1)*4 + JJ\r\n      IOUT = (IPP-1)*48 + (I-1)*4 + (IJ-1)*12 + JJ\r\n  560 AKJ(IOUT) = AKT(KI)\r\n  590 CONTINUE\r\n  600 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX VIA EMG OUT\r\nC\r\n      DICT(2) = 1\r\n      IF (ISMB(1) .EQ. 0) GO TO 650\r\n      CALL EMGOUT (AKJ,AKJ,144,1,DICT,1,IPR)\r\n  650 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\n      IF (ICMBAR .LT. 0) GO TO 670\r\n      CALL EMGOUT (AKJM,AKJM,81,1,DICT,2,IPR)\r\n      GO TO 700\r\nC\r\nC     GENERATE LUMPED MASS MATRIX HERE\r\nC\r\n  670 DO 680 I = 1,9\r\n  680 AKJM(I) = CONVM/3.0D0\r\n      DICT(2) = 2\r\n      CALL EMGOUT (AKJM,AKJM,9,1,DICT,2,IPR)\r\n  700 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 I = 37\r\n 7777 IF (IDEL1 .EQ. IDEL2) GO TO 7778\r\n      IDEL2  = IDEL1\r\n      ICS(1) = IDEL1\r\n      ICS(2) = JAX\r\n      CALL MESAGE (30,I,ICS)\r\n 7778 NOGO = .TRUE.\r\n      GO TO 700\r\n 7780 I = 126\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/triaax.f",
    "content": "      SUBROUTINE TRIAAX\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE STIFFNESS AND MASS MATRICES FOR THE\r\nC     ASSYMMETRIC RING WITH A TRIANGULAR CROSS SECTION, TO BE USED BY\r\nC     THE ELEMENT MATRIX GENERATOR.\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THIS CURRENT VERSION ALLOWS FOR COORDINATE SYSTEM\r\nC     THIS SUBROUTINE USES THE ADDITIONAL ROUTINES DKL, DELTKL\r\nC\r\nC     THE ECPT FOR THE TRIAX ELEMENT IS\r\nC\r\nC     ECPT (01) = ELEMENT ID                              I\r\nC     ECPT (02) = SIL A                                   I\r\nC     ECPT (03) = SIL B                                   I\r\nC     ECPT (04) = SIL C                                   I\r\nC     ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES)     R\r\nC     ECPT (07) = MATERIAL ID                             I\r\nC     ECPT (08) TO ECPT(21) = STRESS PHASE ANG.           R\r\nC     ECPT (22) = CORD. SYS. GRID POINT A (NOT USED)      I\r\nC     ECPT (23) = R-CORD OF GRID A                        R\r\nC     ECPT (24) = Z-CORD OF GRID A                        R\r\nC     ECPT (25) = 0.0                                     R\r\nC     ECPT (26) = CORD. SYS. GRID POINT B (NOT USED)      I\r\nC     ECPT (27) = R-CORD OF GRID B                        R\r\nC     ECPT (28) = Z-CORD OF GRID B                        R\r\nC     ECPT (29) = 0.0                                     R\r\nC     ECPT (30) = CORD. SYS. GRID POINT C (NOT USED)      I\r\nC     ECPT (31) = R-CORD OF GRID C                        R\r\nC     ECPT (32) = Z-CORD OF GRID C                        R\r\nC     ECPT (33) = 0.0                                     R\r\nC     ECPT (34) = EL. TEMPERATURE FOR MATERIAL PROP       R\r\nC\r\nC     ANY GROUP OF STATEMENTS PREFACED BY AN IF STATEMENT CONTAINING\r\nC     ...KSYS78 OR LSYS78 ...  INDICATES CODING NECESSARY FOR THIS\r\nC     ELEMENT*S PIEZOELECTRIC CAPABILITY\r\nC\r\nC     KSYS78 = 0   ELASTIC, NON-PIEZOELECTRIC MATERIAL\r\nC     KSYS78 = 1   ELECTRICAL-ELASTIC COUPLED, PIEZOELETRIC MATERIAL\r\nC     KSYS78 = 2   ELASTIC ONLY, PIEZOELECTRIC MATERIAL\r\nC     LSYS78 = .TRUE. IF KSYS78 = 0, OR 2\r\nC\r\nC\r\n      LOGICAL         NOGO,HEAT,PZMAT,LSYS78\r\n      INTEGER         DICT(11),ELID,ESTID,ISORT(3)\r\n      REAL            GABABQ(9,9),R(3),Z(3),EE(63),TEO(45),DELINT(12),\r\n     1                ECPT(10),DELM(12),BMASS(9,9),AKM(81),AKJM(81),\r\n     2                AMT(9),GABABP(3,3)\r\n      DOUBLE PRECISION CONSTS\r\n      DIMENSION       IECPT(34),AKI(81),AKT(16),ACURL(117),D(81),AK(81),\r\n     1                AKJ(144),ICS(3),D1(27),D2(9),ACURP1(27),ACURP2(9),\r\n     2                AKUPH(27),AKPH2(9),AKIP(9)\r\n      COMMON /SYSTEM/ KSYSTM(77),KSYS78\r\n      COMMON /EMGPRM/ IXTRA,DUM(14),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC/ DXX,LDICT,NGRIDS,ELID,ESTID\r\n      COMMON /EMGEST/ IDEL,IGP(3),DGAMA,DM1,MATID,SPA(14),ICS1,R1,ZZ1,\r\n     1                ZER,ICS2,R2,ZZ2,ZER2,ICS3,R3,ZZ3,ZER3,TEMPE\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO,GSUBE,MOSKP(9),\r\n     1                SETMAT\r\n      COMMON /CONDAD/ CONSTS(5)\r\n      COMMON /MATPZ / PZOUT(51)\r\nC\r\nC     COMMON /MATPZ / CE11,CE12,CE13,CE14,CE15,CE16,CE22,CE23,CE24,CE25,\r\nC                     CE26,CE33,CE34,CE35,CE36,CE44,CE45,CE46,CE55,CE56,\r\nC                     CE66,E11,E12,E13,E14,E15,E16,E21,E22,E23,E24,E25,\r\nC                     E26,E31,E32,E33,E34,E35,E36,EPS11,EPS12,EPS13,\r\nC                     EPS22,EPS23,EPS33,RHO,A1,A2,A12,TREF,GE\r\nC\r\n      EQUIVALENCE     (IECPT(1),ECPT(1),IDEL), (DICT(5),DICT5),\r\n     1                (Z(1),Z1), (Z(2),Z2), (Z(3),Z3),\r\n     2                (AKI(1),GABABQ(1,1)), (BMASS(1,1),AKM(1)),\r\n     3                (CONSTS(1),PI), (CONSTS(4),DEGRAD),\r\n     4                (CONSTS(2),TWOPI), (AKIP(1),GABABP(1,1)),\r\n     5                (ACURP1(1),ACURL(82)), (ACURP2(1),ACURL(109))\r\n      DATA            IDEL2,JAX / 0, 4HTRIA/\r\nC\r\n      LSYS78 = .FALSE.\r\n      IF (KSYS78.EQ.0 .OR. KSYS78.EQ.2) LSYS78 = .TRUE.\r\n      IDEL1 = IDEL/1000\r\nC\r\nC     INITALIZE\r\nC\r\n      DO 50 I = 1,3\r\n      R(I) = ECPT(4*I+19)\r\n      Z(I) = ECPT(4*I+20)\r\n   50 ICS(I) = IECPT(4*I+18)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 15\r\n      IPR     = IPREC\r\nC\r\n      IF (R1.LE.0. .OR. R2.LE.0. .OR. R3.LE.0.) GO TO 7770\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC     FORM TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 100 I = 1,9\r\n      DO 100 J = 1,9\r\n  100 GABABQ(I,J) = 0.\r\nC\r\n      AA = 1./(R2*Z3 + R1*Z2 + Z1*R3 - Z2*R3 - R1*Z3 - R2*Z1)\r\n      C1 =  AA*(R2*Z3 - Z2*R3)\r\n      C2 = -AA*(Z3 - Z2)\r\n      C3 =  AA*(R3 - R2)\r\n      GABABQ(1,1) = C1\r\n      GABABQ(1,2) = C2\r\n      GABABQ(1,3) = C3\r\n      GABABQ(2,4) = C1\r\n      GABABQ(2,5) = C2\r\n      GABABQ(2,6) = C3\r\n      GABABQ(3,7) = C1\r\n      GABABQ(3,8) = C2\r\n      GABABQ(3,9) = C3\r\n      IF (LSYS78) GO TO 102\r\n      GABABP(1,1) = C1\r\n      GABABP(1,2) = C2\r\n      GABABP(1,3) = C3\r\n  102 CONTINUE\r\n      C1 = -AA*(R1*Z3 - Z1*R3)\r\n      C2 =  AA*(Z3 - Z1)\r\n      C3 = -AA*(R3 - R1)\r\n      GABABQ(4,1) = C1\r\n      GABABQ(4,2) = C2\r\n      GABABQ(4,3) = C3\r\n      GABABQ(5,4) = C1\r\n      GABABQ(5,5) = C2\r\n      GABABQ(5,6) = C3\r\n      GABABQ(6,7) = C1\r\n      GABABQ(6,8) = C2\r\n      GABABQ(6,9) = C3\r\n      IF (LSYS78) GO TO 104\r\n      GABABP(2,1) = C1\r\n      GABABP(2,2) = C2\r\n      GABABP(2,3) = C3\r\n  104 CONTINUE\r\n      C1 =  AA*(R1*Z2 - Z1*R2)\r\n      C2 = -AA*(Z2 - Z1)\r\n      C3 =  AA*(R2 - R1)\r\n      GABABQ(7,1) = C1\r\n      GABABQ(7,2) = C2\r\n      GABABQ(7,3) = C3\r\n      GABABQ(8,4) = C1\r\n      GABABQ(8,5) = C2\r\n      GABABQ(8,6) = C3\r\n      GABABQ(9,7) = C1\r\n      GABABQ(9,8) = C2\r\n      GABABQ(9,9) = C3\r\n      IF (LSYS78) GO TO 110\r\n      GABABP(3,1) = C1\r\n      GABABP(3,2) = C2\r\n      GABABP(3,3) = C3\r\n  110 CONTINUE\r\nC\r\nC     COMPUTE THE INTEGRAL VALUES IN ARRAY DELINT THE ORDER IS INDICATED\r\nC     THE FOLLOWING TABLE\r\nC\r\nC     DELINT(01) = (-1,0)\r\nC     DELINT(02) = (-1,1)\r\nC     DELINT(03) = (-1,2)\r\nC     DELINT(04) = (0, 0)\r\nC     DELINT(05) = (0, 1)\r\nC     DELINT(06) = (1, 0)\r\nC\r\nC     OR FOR THE MASS MATRIX\r\nC\r\nC     DELINT(1)  =  (1,0)\r\nC     DELINT(2)  =  (1,1)\r\nC     DELINT(3)  =  (1,2)\r\nC     DELINT(4)  =  (2,0)\r\nC     DELINT(5)  =  (2,1)\r\nC     DELINT(7)  =  (3,0)\r\nC\r\nC\r\n      IF (ISMB(1) .EQ. 0) GO TO 180\r\n      RA = (R1 + R2 + R3)/3.0\r\n      ZA = (Z1 + Z2 + Z3)/3.0\r\n      RH = AMIN1(R1,R2,R3)/10.0\r\n      DR = AMAX1(ABS(R1-R2),ABS(R2-R3),ABS(R3-R1))\r\n      AREA = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.0\r\nC\r\n      I1 = 0\r\n      DO 160 I = 1,2\r\n      IP = I - 2\r\n      DO 140 J = 1,3\r\n      IQ =  J  - 1\r\n      I1 =  I1 + 1\r\n      IF (I1 .NE. 6) GO TO 120\r\n      IP = 1\r\n      IQ = 0\r\n  120 IF (DR .GT. RH) GO TO 130\r\n      DELINT(I1) = ((RA**IP)*(ZA**IQ))*AREA\r\n      GO TO 135\r\n  130 DELINT(I1) = DKLS(3,IP,IQ,R,Z)\r\n  135 DELINT(I1) = ABS (DELINT(I1))\r\n  140 CONTINUE\r\n  160 CONTINUE\r\nC\r\nC     MASS MATRIX\r\nC\r\n      IF (ISMB(2) .EQ. 0) GO TO 200\r\n  180 CALL DELKLS (AKJ,R,Z,0)\r\n      DELM (1) = AKJ(2)\r\n      DELM (2) = AKJ(7)\r\n      DELM (3) = AKJ(8)\r\n      DELM (4) = AKJ(10)\r\n      DELM (5) = AKJ(9)\r\n      DELM (7) = AKJ(12)\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\nC\r\n  200 DGAMR  = DGAMA*DEGRAD\r\n      COSG   = COS(DGAMR)\r\n      SING   = SIN(DGAMR)\r\n      SINTH  = SING\r\n      COSTH  = COSG\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      IF (KSYS78 .GT. 0) MATFLG = 9\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\n      PZMAT = .FALSE.\r\n      IF (SETMAT.EQ.4. .OR. SETMAT.EQ.5.) PZMAT = .TRUE.\r\n      IF (PZMAT) GO TO 210\r\n      KSAVE  = KSYS78\r\n      KSYS78 = 0\r\n      LSYS78 = .TRUE.\r\n      GO TO 220\r\n  210 RHO    = PZOUT(46)\r\n      ALF(1) = PZOUT(47)\r\n      ALF(2) = PZOUT(48)\r\n      ALF(3) = PZOUT(49)\r\n      TZERO  = PZOUT(50)\r\n      GSUBE  = PZOUT(51)\r\n  220 CONTINUE\r\n      IF (SETMAT .EQ. 2.) GO TO 7780\r\n      DICT5 = G SUB E\r\n      IF (KSYS78 .GT. 0) GO TO 249\r\nC\r\nC     SET MATERIAL PROPERTIES IN DOUBLE PRECISION VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO*ET/ER\r\n      VZO = VOZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1./(1. - VRO*VOR  - VOZ*VZO  - VZR*VRZ\r\n     1    - VRO*VOZ*VZR - VRZ*VOR*VZO)\r\nC\r\nC     COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\nC\r\n  249 CONTINUE\r\n      DO 250 I = 1,45\r\n  250 TEO(I) = 0.\r\nC\r\n      IF (KSYS78 .GT. 0) GO TO 251\r\n      TEO(1) = ER*(1.  - VOZ*VZO)*DEL\r\n      TEO(2) = ER*(VZR + VZO*VOR)*DEL\r\n      TEO(3) = EZ*(1.  - VRO*VOR)*DEL\r\n      TEO(4) = ER*(VOR + VZR*VOZ)*DEL\r\n      TEO(5) = ET*(VZO + VRO*VZR)*DEL\r\n      TEO(6) = ET*(1.  - VRZ*VZR)*DEL\r\n      TEO(10)= GRZ\r\n      TEO(15)= GOR\r\n      TEO(21)= GZO\r\n      GO TO 252\r\n  251 CONTINUE\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES STORED IN TEO(22-39)\r\nC     DIELECTRIC MATERIAL PROPERTIES STORED IN TEO(40-45)\r\nC     TEO(22-39) CONTAINS E-TRANSPOSE\r\nC\r\n      TEO( 1) = PZOUT( 1)\r\n      TEO( 2) = PZOUT( 2)\r\n      TEO( 3) = PZOUT( 7)\r\n      TEO( 4) = PZOUT( 3)\r\n      TEO( 5) = PZOUT( 8)\r\n      TEO( 6) = PZOUT(12)\r\n      TEO( 7) = PZOUT( 4)\r\n      TEO( 8) = PZOUT( 9)\r\n      TEO( 9) = PZOUT(13)\r\n      TEO(10) = PZOUT(16)\r\n      TEO(11) = PZOUT( 5)\r\n      TEO(12) = PZOUT(10)\r\n      TEO(13) = PZOUT(14)\r\n      TEO(14) = PZOUT(17)\r\n      TEO(15) = PZOUT(19)\r\n      TEO(16) = PZOUT( 6)\r\n      TEO(17) = PZOUT(11)\r\n      TEO(18) = PZOUT(15)\r\n      TEO(19) = PZOUT(18)\r\n      TEO(20) = PZOUT(20)\r\n      TEO(21) = PZOUT(21)\r\n      IF (KSYS78 .EQ. 2) GO TO 252\r\n      TEO(22) = PZOUT(22)\r\n      TEO(23) = PZOUT(28)\r\n      TEO(24) = PZOUT(34)\r\n      TEO(25) = PZOUT(23)\r\n      TEO(26) = PZOUT(29)\r\n      TEO(27) = PZOUT(35)\r\n      TEO(28) = PZOUT(24)\r\n      TEO(29) = PZOUT(30)\r\n      TEO(30) = PZOUT(36)\r\n      TEO(31) = PZOUT(25)\r\n      TEO(32) = PZOUT(31)\r\n      TEO(33) = PZOUT(37)\r\n      TEO(34) = PZOUT(26)\r\n      TEO(35) = PZOUT(32)\r\n      TEO(36) = PZOUT(38)\r\n      TEO(37) = PZOUT(27)\r\n      TEO(38) = PZOUT(33)\r\n      TEO(39) = PZOUT(39)\r\n      TEO(40) =-PZOUT(40)\r\n      TEO(41) =-PZOUT(41)\r\n      TEO(42) =-PZOUT(42)\r\n      TEO(43) =-PZOUT(43)\r\n      TEO(44) =-PZOUT(44)\r\n      TEO(45) =-PZOUT(45)\r\n  252 CONTINUE\r\n      C2 = COSG*COSG\r\n      C4 = C2  *C2\r\n      S2 = SING*SING\r\n      S4 = S2  *S2\r\n      C2S2 = C2*S2\r\n      C3 = COSG*C2\r\n      S3 = SING*S2\r\n      CS2= COSG*S2\r\n      SC2= SING*C2\r\n      CS = COSG*SING\r\nC\r\n      EE( 1) = TEO(1)*C4 + TEO(3)*S4 + 2.*C2S2 *(TEO(2) + 2.*TEO(10))\r\n      EE( 2) = TEO(2)*(C4+S4) + C2S2*(TEO(1)+TEO(3) - 4.*TEO(10))\r\n      EE( 3) = TEO(4)*C2 + TEO(5)*S2\r\n      EE( 4) = COSG*SING*S2*(TEO(2) - TEO(3) + 2.*TEO(10))\r\n     4       + SING*COSG*C2*(TEO(1) - TEO(2) - 2.*TEO(10))\r\n      EE( 7) = EE(2)\r\n      EE( 8) = TEO(1)*S4 + 2.*C2S2*(TEO(2) + 2.*TEO(10))+ TEO(3)*C4\r\n      EE( 9) = TEO(4)*S2 + TEO(5)*C2\r\n      EE(10) = SING*COSG*C2*(TEO(2) - TEO(3) + 2.*TEO(10))\r\n     O       + COSG*SING*S2*(TEO(1) - TEO(2) - 2.*TEO(10))\r\n      EE(13) = EE(3)\r\n      EE(14) = EE(9)\r\n      EE(15) = TEO(6)\r\n      EE(16) = SING*COSG*(TEO(4)-TEO(5))\r\n      EE(19) = EE(4)\r\n      EE(20) = EE(10)\r\n      EE(21) = EE(16)\r\n      EE(22) = C2S2*(TEO(1) - 2.*TEO(2) + TEO(3)) + TEO(10)*(C2-S2)**2\r\n      EE(29) = TEO(15)*C2 + TEO(21)*S2\r\n      EE(30) = SING*COSG*(TEO(15)-TEO(21))\r\n      EE(35) = EE(30)\r\n      EE(36) = TEO(15)*S2 + TEO(21)*C2\r\nC\r\n      IF (LSYS78) GO TO 254\r\nC\r\nC     PIEZOELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINATES\r\nC\r\n      EE(37) = C3*TEO(22) - S3*TEO(26) + CS2*(TEO(25)+2.0*TEO(32)) -\r\n     7         SC2*(TEO(23) + 2.0*TEO(31))\r\n      EE(38) = C3*TEO(23) + S3*TEO(25) + CS2*(TEO(26)-2.0*TEO(31)) +\r\n     8         SC2*(TEO(22) - 2.0*TEO(32))\r\n      EE(39) = S2*TEO(27) + C2*TEO(24) - 2.0*CS*TEO(33)\r\n      EE(40) = C3*TEO(25) - S3*TEO(23) + CS2*(TEO(22)-2.0*TEO(32)) -\r\n     O         SC2*(TEO(26) - 2.0*TEO(31))\r\n      EE(41) = C3*TEO(26) + S3*TEO(22) + CS2*(TEO(23)+2.0*TEO(31)) +\r\n     1         SC2*(TEO(25) + 2.0*TEO(32))\r\n      EE(42) = S2*TEO(24) + C2*TEO(27) + 2.0*CS*TEO(33)\r\n      EE(43) = COSG*TEO(28) - SING*TEO(29)\r\n      EE(44) = COSG*TEO(29) + SING*TEO(28)\r\n      EE(45) = TEO(30)\r\n      EE(46) = C3*TEO(31) + S3*TEO(32) - CS2*(TEO(23)-TEO(26)+TEO(31)) +\r\n     6         SC2*(-TEO(32) - TEO(25) + TEO(22))\r\n      EE(47) = C3*TEO(32) - S3*TEO(31) - CS2*(TEO(25)-TEO(22)+TEO(32)) +\r\n     7         SC2*(TEO(23) + TEO(31) - TEO(26))\r\n      EE(48) = (C2-S2)*TEO(33) + CS*(TEO(24) - TEO(27))\r\n      EE(49) = C2*TEO(34) + S2*TEO(38) - CS*(TEO(35) + TEO(37))\r\n      EE(50) = C2*TEO(35) - S2*TEO(37) + CS*(TEO(34) - TEO(38))\r\n      EE(51) = COSG*TEO(36) - SING*TEO(39)\r\n      EE(52) = C2*TEO(37) - S2*TEO(35) - CS*(TEO(38) - TEO(34))\r\n      EE(53) = C2*TEO(38) + S2*TEO(34) + CS*(TEO(35) + TEO(37))\r\n      EE(54) = COSG*TEO(39) + SING*TEO(36)\r\nC\r\nC     DIELECTRIC MATERIAL PROPERTIES IN ELEMENT COORDINTES\r\nC\r\n      EE(55) = S2*TEO(43) - 2.0*CS*TEO(41) + C2*TEO(40)\r\n      EE(56) = (C2-S2)*TEO(41) - CS*(TEO(43)-TEO(40))\r\n      EE(57) =-SING*TEO(44) + COSG*TEO(42)\r\n      EE(59) = C2*TEO(43) + 2.0*CS*TEO(41) + S2*TEO(40)\r\n      EE(60) = COSG*TEO(44) + SING*TEO(42)\r\n      EE(63) = TEO(45)\r\n254   CONTINUE\r\nC\r\nC     COMPUTE HARMONIC COEFFICIENT\r\nC\r\n      MJHO = MOD(IECPT(1),1000) - 1\r\n      AJHO = MJHO\r\n      AJJHO= AJHO*AJHO\r\n      RHOD = RHO *PI\r\n      IF (AJHO   .EQ. 0.) RHOD = 2.*RHOD\r\n      IF (ISMB(1) .EQ. 0) GO TO 300\r\nC\r\nC     FORM THE ELEMENT STIFFNESS MATRIX IN FIELD SYSTEM\r\nC\r\n      ACURL( 1) = (EE(15) + AJJHO*EE(29))*DELINT(1)\r\n      ACURL( 2) = (EE(03) + EE(15) + AJJHO*EE(29))*DELINT(4)\r\n      ACURL( 3) = (EE(15) + AJJHO*EE(29))*DELINT(2) + EE(16)*DELINT(4)\r\n      ACURL( 4) = (EE(15) + EE(29))*AJHO*DELINT(1)\r\n      ACURL(05) = EE(15)*AJHO*DELINT(4)\r\n      ACURL(06) = (EE(15) + EE(29))*AJHO*DELINT(2)\r\n     6          - EE(30)*AJHO*DELINT(4)\r\n      ACURL(07) = AJJHO*DELINT(1)*EE(35)\r\n      ACURL(08) = (EE(16) + AJJHO*EE(35))*DELINT(4)\r\n      ACURL(09) = EE(9)*DELINT(4) + AJJHO*DELINT(2)*EE(35)\r\n      ACURL(11) = (EE(1) + 2.*EE(3) + EE(15) + AJJHO*EE(29))*DELINT(6)\r\n      ACURL(12) = (EE(3) + EE(15) + AJJHO*EE(29))*DELINT(5)\r\n     2          + (EE(4) + EE (16))*DELINT(6)\r\n      ACURL(13) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(4)\r\n      ACURL(14) = (EE(3) + EE(15))*DELINT(6)*AJHO\r\n      ACURL(15) = (EE(3) + EE(15) + EE(29))*AJHO*DELINT(5)\r\n     5          - AJHO*EE(30)*DELINT(6)\r\n      ACURL(16) = AJJHO*DELINT(4)*EE(35)\r\n      ACURL(17) = (EE(4) + EE(16) + AJJHO*EE(35))*DELINT(6)\r\n      ACURL(18) = (EE(2) + EE(9))*DELINT(6) + AJJHO*DELINT(5)*EE(35)\r\n      ACURL(21) = (EE(15) + AJJHO*EE(29))*DELINT(3) + EE(22)\r\n     1          * DELINT(6) +  2.*EE(16)*DELINT(5)\r\n      ACURL(22) = (EE(15) + EE(29))*AJHO*DELINT (2) + AJHO\r\n     2          * DELINT(4)*EE(16)\r\n      ACURL(23) = EE(15)*AJHO*DELINT(5) + AJHO*DELINT(6)*EE(16)\r\n      ACURL(24) = (EE(15) + EE(29))*AJHO*DELINT(3) + (EE(16) - EE(30))\r\n     4          * AJHO*DELINT(5)\r\n      ACURL(25) = AJJHO*DELINT(2)*EE(35)\r\n      ACURL(26) = EE(22)*DELINT(6) + (EE(21) + AJJHO*EE(35))*DELINT(5)\r\n      ACURL(27) = EE(9)*DELINT(5) + EE(10)*DELINT(6) + AJJHO\r\n     1          * DELINT(3)*EE(35)\r\n      ACURL(31) = (EE(29) + AJJHO*EE(15))*DELINT(1)\r\n      ACURL(32) = EE(15)*AJJHO*DELINT(4)\r\n      ACURL(33) = (EE(29) + AJJHO*EE(15))*DELINT(2) - EE(30)*DELINT(4)\r\n      ACURL(34) = AJHO*DELINT(1)*EE(35)\r\n      ACURL(35) = AJHO*(EE(16) + EE(35))*DELINT(4)\r\n      ACURL(36) = EE(9)*AJHO*DELINT(4) + AJHO*DELINT(2)*EE(35)\r\n      ACURL(41) = AJJHO*DELINT(6)*EE(15)\r\n      ACURL(42) = EE(15)*AJJHO*DELINT(5)\r\n      ACURL(43) = 0.\r\n      ACURL(44) = AJHO*DELINT(6)*EE(16)\r\n      ACURL(45) = EE(9)*AJHO*DELINT(6)\r\n      ACURL(51) = (EE(29) + AJJHO*EE(15))*DELINT(3) + EE(36)\r\n     1          * DELINT(6) - 2.*EE(35)*DELINT(5)\r\n      ACURL(52) = AJHO*(DELINT(2)*EE(30) - DELINT(4)*EE(36))\r\n      ACURL(53) = -EE(36)*AJHO*DELINT(6) + AJHO*(EE(16) + EE(35))\r\n     3          * DELINT(5)\r\n      ACURL(54) = (EE(9) - EE(36))*AJHO*DELINT(5) + AJHO\r\n     1          * DELINT(3)*EE(35)\r\n      ACURL(61) = EE(36)*AJJHO*DELINT(1)\r\n      ACURL(62) = EE(36)*AJJHO*DELINT(4)\r\n      ACURL(63) = (EE(36))*AJJHO*DELINT(2)\r\n      ACURL(71) = (EE(22) + AJJHO*EE(36))*DELINT(6)\r\n      ACURL(72) = EE(36)*AJJHO*DELINT(5) + EE(20)*DELINT(6)\r\n      ACURL(81) = EE(36)*AJJHO*DELINT(3) + EE(8)*DELINT(6)\r\n      IF (LSYS78) GO TO 256\r\n      ACURL(82) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(1)\r\n      ACURL(83) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51))\r\n     3          * DELINT(4)\r\n      ACURL(84) = (EE(44) - AJHO*EE(50))*DELINT(4) - (EE(45)\r\n     4          - AJHO*EE(51))*AJHO*DELINT(2)\r\n      ACURL(85) =-(EE(39) + EE(45) - AJHO*EE(51))*AJHO*DELINT(4)\r\n      ACURL(86) = (EE(37) + EE(43) - (EE(39) + EE(45) + EE(49)\r\n     6          - AJHO*EE(51))*AJHO)*DELINT(6)\r\n      ACURL(87) = (EE(38) + EE(44) - AJHO*EE(50))*DELINT(6) - (EE(39)\r\n     7          + EE(45) - AJHO*EE(51))*AJHO*DELINT(5)\r\n      ACURL(88) =-(EE(45) - AJHO*EE(51))*AJHO*DELINT(2) - EE(48)*AJHO\r\n     8          * DELINT(4)\r\n      ACURL(89) = (EE(43) - AJHO*EE(45) - AJHO*EE(49) + AJJHO*EE(51))\r\n     9          * DELINT(5) + (EE(46) - EE(48)*AJHO)*DELINT(6)\r\n      ACURL(90) = (EE(44) - AJHO*EE(48) - AJHO*EE(50))*DELINT(5)\r\n     O          + EE(47)*DELINT(6) - (EE(45)-AJHO*EE(51))*AJHO*DELINT(3)\r\n      ACURL(91) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(1)\r\n      ACURL(92) = (AJHO*EE(43) - AJJHO*EE(45) - EE(49) + AJHO*EE(51))\r\n     2          * DELINT(4)\r\n      ACURL(93) = (EE(44)*AJHO - EE(50))*DELINT(4) - (EE(45)*AJHO\r\n     3          - EE(51))*AJHO*DELINT(2)\r\n      ACURL(94) =-EE(45)*AJJHO*DELINT(4)\r\n      ACURL(95) = (EE(43) - AJHO*EE(45))*AJHO*DELINT(6)\r\n      ACURL(96) = EE(44)*AJHO*DELINT(6) - EE(45)*AJJHO*DELINT(5)\r\n      ACURL(97) =-(EE(45)*AJHO - EE(51))*AJHO*DELINT(2) - EE(54)*AJHO\r\n     7          * DELINT(4)\r\n      ACURL(98) = (EE(43)*AJHO - AJJHO*EE(45) - EE(49) + EE(51)*AJHO)\r\n     8          * DELINT(5) + (EE(52) - AJHO*EE(54))*DELINT(6)\r\n      ACURL(99) = (EE(44)*AJHO - EE(50) - EE(54)*AJHO)*DELINT(5)\r\n     9          + EE(53)*DELINT(6) - (EE(45)*AJHO-EE(51))*AJHO*DELINT(3)\r\n      ACURL(100)= EE(54)*AJJHO*DELINT(1)\r\n      ACURL(101)=-(EE(52) - EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(102)=-(EE(53)*DELINT(4) - EE(54)*AJHO*DELINT(2))*AJHO\r\n      ACURL(103)=-(EE(48) - EE(54)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(104)= (EE(46) - EE(48)*AJHO - EE(52)*AJHO+EE(54)*AJJHO)\r\n     4          *  DELINT(6)\r\n      ACURL(105)= (EE(47) - EE(53)*AJHO)*DELINT(6) - (EE(48) - EE(54)\r\n     5          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(106)= EE(54)*AJJHO*DELINT(2) - EE(42)*AJHO*DELINT(4)\r\n      ACURL(107)= (EE(40) - EE(42)*AJHO)*DELINT(6) - (EE(52) - EE(54)\r\n     7          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(108)= EE(41)*DELINT(6) + (-EE(42) - EE(53))*AJHO*DELINT(5)\r\n     8          + EE(54)*AJJHO*DELINT(3)\r\n      ACURL(109)= EE(63)*AJJHO*DELINT(1)\r\n      ACURL(110)= (-EE(57) + EE(63)*AJHO)*AJHO*DELINT(4)\r\n      ACURL(111)=-EE(60)*AJHO*DELINT(4) + EE(63)*AJJHO*DELINT(2)\r\n      ACURL(112)= ACURL(110)\r\n      ACURL(113)= (EE(55) - 2.0*EE(57)*AJHO + EE(63)*AJJHO)*DELINT(6)\r\n      ACURL(114)= (EE(56) - EE(60)*AJHO)*DELINT(6) + (-EE(57) + EE(63)\r\n     4          * AJHO)*AJHO*DELINT(5)\r\n      ACURL(115)= ACURL(111)\r\n      ACURL(116)= ACURL(114)\r\n      ACURL(117)= EE(59)*DELINT(6) - 2.0*EE(60)*AJHO*DELINT(5) + EE(63)\r\n     7          * AJJHO*DELINT(3)\r\n  256 CONTINUE\r\nC\r\nC     EXPAND ACURL INTO (9X9)\r\nC\r\n      DO 270 IB = 2,9\r\n      IC = 10*IB - 19\r\n      I  = IC\r\n      DO 260 J = IB,9\r\n      IC = IC + 9\r\n      I  = I  + 1\r\n  260 ACURL(IC) = ACURL(I)\r\n  270 CONTINUE\r\n      DGAMA = PI\r\n      IF (AJHO .EQ. 0.) DGAMA = TWOPI\r\n      DO 280 I = 1,81\r\n  280 ACURL(I) = ACURL(I)*DGAMA\r\n      IF (LSYS78) GO TO 300\r\nC\r\n      DO 290 I = 82,117\r\n  290 ACURL(I) = ACURL(I)*DGAMA\r\nC\r\n  300 IF (ISMB(2).EQ. 0) GO TO 400\r\n      IF (ICMBAR .LT. 0) GO TO 350\r\nC\r\nC     CONSISTENT MASS IN FIELD COORDINATES\r\nC\r\n      DO 320 I = 1,9\r\n      DO 320 J = 1,9\r\n  320 BMASS(I,J) = 0.\r\n      BMASS(1,1) = RHOD*DELM(1)\r\n      BMASS(1,2) = RHOD*DELM(4)\r\n      BMASS(1,3) = RHOD*DELM(2)\r\n      BMASS(2,1) = RHOD*DELM(4)\r\n      BMASS(2,2) = RHOD*DELM(7)\r\n      BMASS(2,3) = RHOD*DELM(5)\r\n      BMASS(3,1) = RHOD*DELM(2)\r\n      BMASS(3,2) = RHOD*DELM(5)\r\n      BMASS(3,3) = RHOD*DELM(3)\r\n      BMASS(4,4) = RHOD*DELM(1)\r\n      BMASS(4,5) = RHOD*DELM(4)\r\n      BMASS(4,6) = RHOD*DELM(2)\r\n      BMASS(5,4) = RHOD*DELM(4)\r\n      BMASS(5,5) = RHOD*DELM(7)\r\n      BMASS(5,6) = RHOD*DELM(5)\r\n      BMASS(6,4) = RHOD*DELM(2)\r\n      BMASS(6,5) = RHOD*DELM(5)\r\n      BMASS(6,6) = RHOD*DELM(3)\r\n      BMASS(7,7) = RHOD*DELM(1)\r\n      BMASS(7,8) = RHOD*DELM(4)\r\n      BMASS(7,9) = RHOD*DELM(2)\r\n      BMASS(8,7) = RHOD*DELM(4)\r\n      BMASS(8,8) = RHOD*DELM(7)\r\n      BMASS(8,9) = RHOD*DELM(5)\r\n      BMASS(9,7) = RHOD*DELM(2)\r\n      BMASS(9,8) = RHOD*DELM(5)\r\n      BMASS(9,9) = RHOD*DELM(3)\r\n      GO TO 400\r\n  350 AREA  = (R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2))/2.\r\n      CONVM =  RHOD*(R1 + R2 + R3)/3.*AREA\r\nC\r\nC     TRANSFORM THE ELEMENT STIFFNESS MATRIX FROM FIELD SYSTEM\r\nC     TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n  400 IF (ISMB(1) .EQ. 0) GO TO 410\r\n      CALL GMMATS (AKI,9,9,1,ACURL,9,9,0,D)\r\n      CALL GMMATS (D,  9,9,0,AKI,  9,9,0,AK)\r\n      IF (LSYS78) GO TO 405\r\n      CALL GMMATS (AKI,9,9,1,ACURP1,9,3,0,D1)\r\n      CALL GMMATS (D1, 9,3,0,AKIP,  3,3,0,AKUPH)\r\n      CALL GMMATS (AKIP,3,3,1,ACURP2,3,3,0,D2)\r\n      CALL GMMATS (D2,  3,3,0,AKIP,  3,3,0,AKPH2)\r\n  405 CONTINUE\r\nC\r\n      IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.0) GO TO 450\r\n  410 CALL GMMATS (AKI,9,9,1,BMASS,9,9,0,D)\r\n      CALL GMMATS (D,  9,9,0,AKI,  9,9,0,AKM)\r\nC\r\n  450 DO 460 I = 1,81\r\n      AKJ(I)  = 0.\r\n  460 AKJM(I) = 0.\r\n      DO 462 I = 82,117\r\n  462 AKJ(I) = 0.0\r\nC\r\n      GO TO 480\r\nC\r\nC     COORDINATE SYSTEMS POSSIBLE WITH RINGAX THRU CODE BELOW\r\nC **  IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZOELECTRI\r\nC\r\nC     DO 470 I = 1,3\r\nC     IF (ICS(I) .EQ. 0) GO TO 470\r\nC     K = 9*(I-1) + 1\r\nC     CALL TRANSS (ICS(I),D(K))\r\nC 470 CONTINUE\r\nC\r\nC     CREATE AN ARRAY OF SORTED GRID POINTS\r\nC\r\n  480 DO 482 I = 1,3\r\n      ISORT(I) = IGP(I)\r\n  482 CONTINUE\r\n      I = -3\r\n  484 J = 0\r\n      DO 486 K = 1,3\r\n      IF (ISORT(K) .LT. J) GO TO 486\r\n      J = ISORT(K)\r\n      L = K\r\n  486 CONTINUE\r\n      ISORT(L) = I\r\n      I = I + 1\r\n      IF (I .LT. 0) GO TO 484\r\n      DO 490 I = 1,3\r\n      ISORT(I) = -ISORT(I)\r\n  490 CONTINUE\r\nC\r\nC     TRANSFORM 3 X 3 TO 6 X 6 FOR COORD SYSTEM TRANSFORMATIONS\r\nC\r\n      DO 600 ISIL = 1,3\r\n      IPP = ISORT(ISIL)\r\nC\r\n      IR1 = 3*(ISIL-1) + 1\r\n      DO 590 II = 1,3\r\n      I   = ISORT(II)\r\n      IC1 = 3*(II-1) + 1\r\n      IRC = (IR1 -1)*9 + IC1\r\n      DO 500 J = 1,3\r\n      J1   = (J-1)*4 + 1\r\n      IRCC = IRC + (J-1)*9\r\n      IF (ISMB(1) .EQ. 0) GO TO 495\r\n      AKT(J1  ) = AK(IRCC  )\r\n      AKT(J1+1) = AK(IRCC+1)\r\n      AKT(J1+2) = AK(IRCC+2)\r\n      IF (LSYS78) GO TO 492\r\n      M = IRCC/3 + 1\r\n      N = (M-1)/9 + 1 + (II-1)*9 + (J-1)*3\r\n      AKT(J1+3) = AKUPH(M)\r\n      AKT(J1+15-J*3) = AKUPH(N)\r\n      AKT(16) = AKPH2(IR1+II-1)\r\n  492 CONTINUE\r\nC\r\n  495 IF (ISMB(2).EQ.0 .OR. ICMBAR.LT.1) GO TO 500\r\n      J1 = (J-1)*3 + 1\r\n      AMT(J1  ) =AKM(IRCC  )\r\n      AMT(J1+1) =AKM(IRCC+1)\r\n      AMT(J1+2) =AKM(IRCC+2)\r\n  500 CONTINUE\r\nC\r\n      GO TO 540\r\nC\r\nC    ABOVE GO TO MAKES CST CODE BELOW INTO DEAD CODE\r\nC    COORDINATE SYSTEM TRANSFORMATION CODE\r\nC ** IF FOLLOWING CODE IS IMPLEMENTED MUST BE MODIFIED FOR PIEZOELECTRIC\r\nC\r\nC     IF (ICS(IPP) .EQ. 0) GO TO 520\r\nC     IAA = 9*(IPP-1) + 1\r\nC     CALL GMMATS (D(IAA),3,3,1,AKT(1),3,3,0,D(28))\r\nC     CALL GMMATS (D(IAA),3,3,1,AMT(1),3,3,0,D(37))\r\nC     DO 510 J = 1,9\r\nC     AKT(J) = D(J+27)\r\nC 510 AKM(J) = D(J+36)\r\nC\r\nC 520 IF (ICS(I) .EQ. 0) GO TO 540\r\nC     IAI = 9*(I-1) + 1\r\nC     CALL GMMATS (AKT(1),3,3,0,D(IAI),3,3,0,D(28))\r\nC     CALL GMMATS (AMT(1),3,3,0,D(IAI),3,3,0,D(37))\r\nC     DO 530 J = 1,9\r\nC     AKT(J) = D(J+27)\r\nC 530 AMT(J) = D(J+36)\r\nC\r\nC     NOW INSERT  AKT AND AMT INTO THE OVERALL STIFFNESS MATRICES\r\nC     ACCORDING TO INCREASING SIL VALUE\r\nC\r\n  540 DO 550 IJ = 1,3\r\n      DO 550 JJ = 1,3\r\n      KI = (IJ-1)*3 + JJ\r\n      IOUT = (IPP-1)*27 + (I-1)*3 + (IJ-1)*9 + JJ\r\n  550 AKJM(IOUT)= AMT(KI)\r\n      DO 560 IJ = 1,4\r\n      DO 560 JJ = 1,4\r\n      KI = (IJ-1)*4 + JJ\r\n      IOUT = (IPP-1)*48 + (I-1)*4 + (IJ-1)*12 + JJ\r\n  560 AKJ(IOUT) = AKT(KI)\r\n  590 CONTINUE\r\n  600 CONTINUE\r\nC\r\nC     NOW OUTPUT THE MATRIX VIA EMG OUT\r\nC\r\n      DICT(2) = 1\r\n      IF (ISMB(1) .EQ. 0) GO TO 650\r\n      CALL EMGOUT (AKJ,AKJ,144,1,DICT,1,IPR)\r\n  650 IF (ISMB(2).EQ.0 .AND. .NOT.PZMAT) KSYS78 = KSAVE\r\n      IF (ISMB(2) .EQ. 0) RETURN\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\n      IF (ICMBAR .LT. 0) GO TO 670\r\n      CALL EMGOUT (AKJM,AKJM,81,1,DICT,2,IPR)\r\n      GO TO 700\r\nC\r\nC     GENERATE LUMPED MASS MATRIX HERE\r\nC\r\n  670 DO 680 I = 1,9\r\n  680 AKJM(I) = CONVM/3.0\r\n      DICT(2) = 2\r\n      CALL EMGOUT (AKJM,AKJM,9,1,DICT,2,IPR)\r\n  700 IF (.NOT.PZMAT) KSYS78 = KSAVE\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 I = 37\r\n 7777 IF (IDEL1 .EQ. IDEL) GO TO 7778\r\n      IDEL2  = IDEL1\r\n      ICS(1) = IDEL1\r\n      ICS(2) = JAX\r\n      CALL MESAGE (30,I,ICS)\r\n 7778 NOGO = .TRUE.\r\n      GO TO 700\r\n 7780 I = 126\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/tridi.f",
    "content": "      SUBROUTINE TRIDI (D,O,C,A,B,AA)\r\nC\r\nC     MODIFIED GIVENS REAL SYMMETRIC TRIDIAGONALIZATION\r\nC     THIS ROUTINE IS CALLED ONLY BY VALVEC\r\nC\r\n      INTEGER          SAVEMR,ENTRY,RSTRT,ROW,XENTRY,FILCOR,ROT,ROW1,\r\n     1                 ROW2,ROWP1,ROWP2,SYSBUF,MCB(7),COUNT\r\n      DOUBLE PRECISION D(1),O(1),C(1),AA(1),B(1)\r\n      DIMENSION        VVCOM(150),A(2)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /GIVN  /  TITLE(1),MO,MD,MR1,M1,M2,M3,M4,SAVEMR,T10,ENTRY,\r\n     1                 T12(5),RSTRT,ROW,T19,XENTRY\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,IDUMMY(52),IPREC\r\n      COMMON /PACKX /  IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/  IT3,III,JJJ,INCR1\r\n      EQUIVALENCE      (VVCOM(1),TITLE(1)), (N,VVCOM(101))\r\n      DATA    COUNT ,  MAX,MCB / 0, 10, 7*0/\r\nC\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     D       = LOCATION OF DIAGIONAL\r\nC     O       = LOCATION OF OFF DIAGONAL\r\nC     C       = LOCATION OF COSINES\r\nC     A       = REST OF OPEN CORE\r\nC     B       = O**2\r\nC     SAVEMR\r\nC     RSTRT\r\nC     ROW\r\nC     XENTRY\r\nC     FILCOR\r\nC     ROT\r\nC     ROW1\r\nC     ROW2\r\nC     MO      = RESTART DATA - SINES AND COSINES\r\nC     MD      = INPUT  MATRIX\r\nC     MR1     = RESTART TAPE\r\nC     M1      = SCRATCH TAPE\r\nC     M2\r\nC     M3\r\nC     M4\r\nC     MR2\r\nC     MIDIN\r\nC     COUNT   = NUMBER OF ROWS ROTATED\r\nC     MAX     = NUMBER OF ROWS TO ROTATE BEFORE CHECKPOINTING\r\nC\r\nC\r\nC     INITIALIZATION\r\nC\r\n      NZ   = KORSZ(A)\r\n      IBUF1= NZ - SYSBUF + 1\r\n      IBUF2= IBUF1 - SYSBUF\r\n      NZ   = NZ - 2*SYSBUF\r\n      NZZ  = NZ/IPREC\r\n      NZSQ = SQRT(FLOAT((NZZ-1)*2))\r\n      IM1  = 1\r\n      NM1  = N - 1\r\n      NM2  = N - 2\r\n      M3   = 305\r\n      MSS  = MR1\r\n      MS1  = M1\r\n      MS2  = M2\r\n      MS3  = M3\r\n      MS4  = M4\r\nC\r\nC     INITIALIZE  TRANSFORMATION ROUTINES\r\nC\r\nC     SICOX AND ROTAX ARE NOT USED ANY MORE. SEE SINC0S AND ROTATE\r\nC\r\nC     CALL SICOX (D,O,C)\r\nC     CALL ROTAX (O,D,C)\r\nC\r\n      MIDIN= N\r\n      MR   = MR1\r\nC\r\nC     START AT THE BEGINNING\r\nC\r\n      ROW = 0\r\nC\r\nC     OPEN MD\r\nC\r\n      CALL GOPEN (MD,A(IBUF1),0)\r\n      CALL GOPEN (MR,A(IBUF2),1)\r\nC\r\nC     SET UP FOR UNPACK\r\nC\r\n      IT3  = 2\r\n      III  = 1\r\n      JJJ  = N\r\n      INCR1= 1\r\n      CALL UNPACK (*102,MD,D)\r\nC\r\nC     COPY REST OF MD ONTO MR\r\nC\r\n  103 CONTINUE\r\n      IT1 = 2\r\n      IT2 = 2\r\n      INCR= 1\r\n      K   = N - 1\r\n      DO 105 I = 1,K\r\n      III = 0\r\n      CALL UNPACK (*107,MD,A)\r\n      II = III\r\n      JJ = JJJ\r\n  106 CALL PACK (A,MR,MCB)\r\n      GO TO 105\r\n  107 II = 1\r\n      JJ = 1\r\n      A(1) = 0.0\r\n      A(2) = 0.0\r\n      GO TO 106\r\n  105 CONTINUE\r\n      III = 1\r\n      JJJ = N\r\n      II  = 1\r\n      JJ  = N\r\n      GO TO 104\r\n  102 DO 101 I = 1,N\r\n      D(I) = 0.0D0\r\n  101 CONTINUE\r\n      GO TO 103\r\nC\r\nC     END OF MATRIX MD\r\nC\r\n  104 CALL WRITE (MR,ROW,1,1)\r\nC\r\nC     ATTACH DIAGONALS\r\nC\r\n      CALL PACK  (D,MR,MCB)\r\n      CALL CLOSE (MD,1)\r\n      CALL CLOSE (MR,1)\r\n      MS = MR\r\n      CALL GOPEN (MS,A(IBUF1),0)\r\nC\r\nC     TRIDIAGONALIZATION PROCEDURE UNTIL THE MATRIX FITS IN CORE\r\nC\r\n  200 ROW  = ROW + 1\r\n      ROWP1= ROW + 1\r\n      ROWP2= ROW + 2\r\n      IT3  = 2\r\n      III  = ROWP1\r\n      CALL UNPACK (*201,MS,O(ROWP1))\r\n      GO TO 203\r\n  201 DO 202 I = ROWP1,N\r\n      O(I) = 0.0D0\r\n  202 CONTINUE\r\nC\r\nC     FIND SINES AND COSINES\r\nC\r\n  203 CALL SINC0S (ROW,ROT, D,O,C)\r\n      CALL GOPEN (MO,A(IBUF2),IM1)\r\n      IM1 = 3\r\n      II  = ROWP2\r\n      IT1 = 2\r\n      IT2 = 2\r\n      CALL PACK (D(ROWP2),MO,MCB)\r\n      CALL CLOSE (MO,2)\r\nC\r\nC     WILL THE REST OF MATRIX FIT IN CORE\r\nC\r\n      IF ((N-ROWP1)*(N-ROWP1+1)/2+1 .LE. NZZ) GO TO 225\r\nC\r\nC         (N-ROWP1)*(N-ROWP1  )     < (NZZ-1)*2\r\nC                   (N-ROWP1  )     < SQRT((NZZ-1)*2) (=NZSQ)\r\nC                    N              < NZSQ + ROWP1\r\nC                    N-NZSQ         < ROWP1\r\nC                    N-NZSQ         = NUMBER OF ROTAIONS NEEDED\r\nC\r\nC     NO-- MUST REST OF MATRIX BE ROTATED\r\nC\r\n      IF (ROT .EQ. 0) GO TO 215\r\n      COUNT = COUNT + 1\r\n      IF (COUNT .EQ. MAX) COUNT = 0\r\nC\r\nC     ROTATE THE REST OF THE MATRIX\r\nC\r\n      MIDOUT = ROWP1 + (N-ROWP1+3)/4\r\n      ROW1   = ROWP2\r\n      CALL GOPEN (MS3,A(IBUF2),1)\r\nC\r\nC     HERE THRU 217 WILL BE VERY TIME COMSUMING. THE ROTATION IS ONE\r\nC     ROW AT A TIME. COMPUTE HOW MANY ROTATIONS NEEDED. IF TOO MANY,\r\nC     ISSUE A USER FATAL MESSAGE AND GET OUT\r\nC\r\n      I = N - NZSQ\r\n      IF (I .LE. 25) GO TO 205\r\n      J = (N*N - NZSQ*NZSQ)*IPREC\r\n      WRITE  (NOUT,204) UFM,N,N,I,J\r\n  204 FORMAT (A23,' FROM GIVENS EIGENSOLVER - EXCESSIVE CPU TIME IS ',\r\n     1       'NEEDED FOR TRIDIAGONALIZE THE DYNAMIC', /5X,\r\n     2       'MATRIX, WHICH IS',I6,' BY',I6, 15X,1H(,I6,' LOOPS)', /5X,\r\n     3       'RERUN JOB WITH',I8,' ADDITIONAL CORE WORDS, OR USE FEER,',\r\n     4       ' OR OTHER METHOD')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     FILL CORE WITH AS MUCH OF MATRIX AS POSSIBLE--UP TO ROW -ROW2-\r\nC\r\n  205 ROW2 = FILCOR(MSS,MS2,IPREC,ROW1,MIDIN,N,A,NZ,A(IBUF1))\r\nC\r\nC     ROTATE ROWS ROW1 TO ROW2\r\nC\r\n      CALL ROTATE (AA,ROW,ROW1,ROW2,O,D,C)\r\nC\r\nC     EMPTY THE ROTATED ROWS ONTO MS3 AND MS4\r\nC\r\n      CALL EMPCOR (MS3,MS4,IPREC,IPREC,ROW1,MIDOUT,ROW2,N,A,A(IBUF2))\r\n      ROW1 = ROW2 + 1\r\n      IF (ROW2 .LT. N) GO TO 205\r\nC\r\nC     SWITCH TAPES\r\nC\r\n      MS  = MS1\r\n      MS1 = MS3\r\n      MS3 = MS\r\n      MS  = MS2\r\n      MS2 = MS4\r\n      MS4 = MS\r\n      MSS = MS1\r\n      MIDIN = MIDOUT\r\n  215 DO 216 I = ROWP1,N\r\n      D(I) =  O(I)\r\n  216 CONTINUE\r\n      MS = MSS\r\n      IF (ROW .GT. MIDIN) GO TO 217\r\n      IF (ROT .EQ.     0) GO TO 200\r\n  218 CALL GOPEN (MS,A(IBUF1),0)\r\n      GO TO 200\r\n  217 MS = MS2\r\n      GO TO 218\r\nC\r\nC     TRIDIAGONALIZATION PROCEDURE WHEN MATRIX FITS IN CORE\r\nC\r\nC\r\nC     FILL CORE WITH THE REST OF THE MATRIX\r\nC\r\n  225 ROW2 = FILCOR(MSS,MS2,IPREC,ROWP2,MIDIN,N,A,NZ,A(IBUF1))\r\n      NA = 1\r\n      CALL GOPEN (MO,A(IBUF2),3)\r\n      GO TO 235\r\n  230 ROW   = ROW + 1\r\n      ROWP1 = ROW + 1\r\n      ROWP2 = ROW + 2\r\n  232 DO 233 I = ROWP1,N\r\n      O(I) = AA(NA)\r\n      NA   = NA + 1\r\n  233 CONTINUE\r\n  234 CALL SINC0S (ROW,ROT, D,O,C)\r\nC\r\nC     WRITE SINES ON MO\r\nC\r\n      II  = ROWP2\r\n      IT1 = 2\r\n      IT2 = 2\r\n      CALL PACK (D(ROWP2),MO,MCB)\r\n  235 IF (ROT .EQ. 0) GO TO 236\r\n      ROW1  = ROWP2\r\n      CALL ROTATE (AA(NA),ROW,ROW1,ROW2,O,D,C)\r\n  236 DO 237 I = ROWP1,N\r\n      D(I) = O(I)\r\n  237 CONTINUE\r\n      IF (ROW .NE. NM2) GO TO 230\r\nC\r\nC     ALL DONE.\r\nC\r\n      D(N) = AA(NA)\r\n      O(N-1) = O(N)\r\n      O(N  ) = 0.0D0\r\n      CALL CLOSE (MO,3)\r\n      DO 261 I = 1,N\r\n      C(I) = D(I)\r\n      B(I) = O(I)**2\r\n  261 CONTINUE\r\n      XENTRY = -ENTRY\r\n      RSTRT  = 0\r\n      SAVEMR = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tridi1.f",
    "content": "      SUBROUTINE TRIDI1 (D,O,C,A,B,AA)\r\nC\r\nC     MODIFIED GIVENS REAL SYMMETRIC TRIDIAGONALIZATION\r\nC     THIS ROUTINE IS CALLED ONLY BY VALVEC\r\nC\r\n      INTEGER          SAVEMR,ENTRY,RSTRT,ROW,XENTRY,FILCOR,ROT,ROW1,\r\n     1                 ROW2,ROWP1,ROWP2,SYSBUF,MCB(7),COUNT\r\n      REAL             D(1),O(1),C(1),AA(1),B(1)\r\n      DIMENSION        VVCOM(150),A(2)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /GIVN  /  TITLE(1),MO,MD,MR1,M1,M2,M3,M4,SAVEMR,T10,ENTRY,\r\n     1                 T12(5),RSTRT,ROW,T19,XENTRY\r\n      COMMON /SYSTEM/  SYSBUF,NOUT,IDUMMY(52),IPREC\r\n      COMMON /PACKX /  IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/  IT3,III,JJJ,INCR1\r\n      EQUIVALENCE      (VVCOM(1),TITLE(1)), (N,VVCOM(101))\r\n      DATA    COUNT ,  MAX,MCB / 0, 10, 7*0/\r\nC\r\nC\r\nC     DEFINITION OF VARIABLES\r\nC\r\nC     D       = LOCATION OF DIAGIONAL\r\nC     O       = LOCATION OF OFF DIAGONAL\r\nC     C       = LOCATION OF COSINES\r\nC     A       = REST OF OPEN CORE\r\nC     B       = O**2\r\nC     SAVEMR\r\nC     RSTRT\r\nC     ROW\r\nC     XENTRY\r\nC     FILCOR\r\nC     ROT\r\nC     ROW1\r\nC     ROW2\r\nC     MO      = RESTART DATA - SINES AND COSINES\r\nC     MD      = INPUT  MATRIX\r\nC     MR1     = RESTART TAPE\r\nC     M1      = SCRATCH TAPE\r\nC     M2\r\nC     M3\r\nC     M4\r\nC     MR2\r\nC     MIDIN\r\nC     COUNT   = NUMBER OF ROWS ROTATED\r\nC     MAX     = NUMBER OF ROWS TO ROTATE BEFORE CHECKPOINTING\r\nC\r\nC\r\nC     INITIALIZATION\r\nC\r\n      NZ   = KORSZ(A)\r\n      IBUF1= NZ - SYSBUF + 1\r\n      IBUF2= IBUF1 - SYSBUF\r\n      NZ   = NZ - 2*SYSBUF\r\n      NZZ  = NZ/IPREC\r\n      NZSQ = SQRT(FLOAT((NZZ-1)*2))\r\n      IM1  = 1\r\n      NM1  = N - 1\r\n      NM2  = N - 2\r\n      M3   = 305\r\n      MSS  = MR1\r\n      MS1  = M1\r\n      MS2  = M2\r\n      MS3  = M3\r\n      MS4  = M4\r\nC\r\nC     INITIALIZE  TRANSFORMATION ROUTINES\r\nC\r\n      MIDIN= N\r\n      MR   = MR1\r\nC\r\nC     START AT THE BEGINNING\r\nC\r\n      ROW = 0\r\nC\r\nC     OPEN MD\r\nC\r\n      CALL GOPEN (MD,A(IBUF1),0)\r\n      CALL GOPEN (MR,A(IBUF2),1)\r\nC\r\nC     SET UP FOR UNPACK\r\nC\r\n      IT3  = 1\r\n      III  = 1\r\n      JJJ  = N\r\n      INCR1= 1\r\n      CALL UNPACK (*102,MD,D)\r\nC\r\nC     COPY REST OF MD ONTO MR\r\nC\r\n  103 CONTINUE\r\n      IT1 = 1\r\n      IT2 = 1\r\n      INCR= 1\r\n      K   = N - 1\r\n      DO 105 I = 1,K\r\n      III = 0\r\n      CALL UNPACK (*107,MD,A)\r\n      II = III\r\n      JJ = JJJ\r\n  106 CALL PACK (A,MR,MCB)\r\n      GO TO 105\r\n  107 II = 1\r\n      JJ = 1\r\n      A(1) = 0.0\r\n      A(2) = 0.0\r\n      GO TO 106\r\n  105 CONTINUE\r\n      III = 1\r\n      JJJ = N\r\n      II  = 1\r\n      JJ  = N\r\n      GO TO 104\r\n  102 DO 101 I = 1,N\r\n      D(I) = 0.0\r\n  101 CONTINUE\r\n      GO TO 103\r\nC\r\nC     END OF MATRIX MD\r\nC\r\n  104 CALL WRITE (MR,ROW,1,1)\r\nC\r\nC     ATTACH DIAGONALS\r\nC\r\n      CALL PACK  (D,MR,MCB)\r\n      CALL CLOSE (MD,1)\r\n      CALL CLOSE (MR,1)\r\n      MS = MR\r\n      CALL GOPEN (MS,A(IBUF1),0)\r\nC\r\nC     TRIDIAGONALIZATION PROCEDURE UNTIL THE MATRIX FITS IN CORE\r\nC\r\n  200 ROW  = ROW + 1\r\n      ROWP1= ROW + 1\r\n      ROWP2= ROW + 2\r\n      IT3  = 1\r\n      III  = ROWP1\r\n      CALL UNPACK (*201,MS,O(ROWP1))\r\n      GO TO 203\r\n  201 DO 202 I = ROWP1,N\r\n      O(I) = 0.0\r\n  202 CONTINUE\r\nC\r\nC     FIND SINES AND COSINES\r\nC\r\n  203 CALL SINC0S1 (ROW,ROT, D,O,C)\r\n      CALL GOPEN (MO,A(IBUF2),IM1)\r\n      IM1 = 3\r\n      II  = ROWP2\r\n      IT1 = 1\r\n      IT2 = 1\r\n      CALL PACK (D(ROWP2),MO,MCB)\r\n      CALL CLOSE (MO,2)\r\nC\r\nC     WILL THE REST OF MATRIX FIT IN CORE\r\nC\r\n      IF ((N-ROWP1)*(N-ROWP1+1)/2+1 .LE. NZZ) GO TO 225\r\nC\r\nC         (N-ROWP1)*(N-ROWP1  )     < (NZZ-1)*2\r\nC                   (N-ROWP1  )     < SQRT((NZZ-1)*2) (=NZSQ)\r\nC                    N              < NZSQ + ROWP1\r\nC                    N-NZSQ         < ROWP1\r\nC                    N-NZSQ         = NUMBER OF ROTAIONS NEEDED\r\nC\r\nC     NO-- MUST REST OF MATRIX BE ROTATED\r\nC\r\n      IF (ROT .EQ. 0) GO TO 215\r\n      COUNT = COUNT + 1\r\n      IF (COUNT .EQ. MAX) COUNT = 0\r\nC\r\nC     ROTATE THE REST OF THE MATRIX\r\nC\r\n      MIDOUT = ROWP1 + (N-ROWP1+3)/4\r\n      ROW1   = ROWP2\r\n      CALL GOPEN (MS3,A(IBUF2),1)\r\nC\r\nC     HERE THRU 217 WILL BE VERY TIME COMSUMING. THE ROTATION IS ONE\r\nC     ROW AT A TIME. COMPUTE HOW MANY ROTATIONS NEEDED. IF TOO MANY,\r\nC     ISSUE A USER FATAL MESSAGE AND GET OUT\r\nC\r\n      I = N - NZSQ\r\n      IF (I .LE. 25) GO TO 205\r\n      J = (N*N - NZSQ*NZSQ)*IPREC\r\n      WRITE  (NOUT,204) UFM,N,N,I,J\r\n  204 FORMAT (A23,' FROM GIVENS EIGENSOLVER - EXCESSIVE CPU TIME IS ',\r\n     1       'NEEDED FOR TRIDIAGONALIZE THE DYNAMIC', /5X,\r\n     2       'MATRIX, WHICH IS',I6,' BY',I6, 15X,1H(,I6,' LOOPS)', /5X,\r\n     3       'RERUN JOB WITH',I8,' ADDITIONAL CORE WORDS, OR USE FEER,',\r\n     4       ' OR OTHER METHOD')\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     FILL CORE WITH AS MUCH OF MATRIX AS POSSIBLE--UP TO ROW -ROW2-\r\nC\r\n  205 ROW2 = FILCOR(MSS,MS2,IPREC,ROW1,MIDIN,N,A,NZ,A(IBUF1))\r\nC\r\nC     ROTATE ROWS ROW1 TO ROW2\r\nC\r\n      CALL ROTATE1 (AA,ROW,ROW1,ROW2,O,D,C)\r\nC\r\nC     EMPTY THE ROTATED ROWS ONTO MS3 AND MS4\r\nC\r\n      CALL EMPCOR (MS3,MS4,IPREC,IPREC,ROW1,MIDOUT,ROW2,N,A,A(IBUF2))\r\n      ROW1 = ROW2 + 1\r\n      IF (ROW2 .LT. N) GO TO 205\r\nC\r\nC     SWITCH TAPES\r\nC\r\n      MS  = MS1\r\n      MS1 = MS3\r\n      MS3 = MS\r\n      MS  = MS2\r\n      MS2 = MS4\r\n      MS4 = MS\r\n      MSS = MS1\r\n      MIDIN = MIDOUT\r\n  215 DO 216 I = ROWP1,N\r\n      D(I) =  O(I)\r\n  216 CONTINUE\r\n      MS = MSS\r\n      IF (ROW .GT. MIDIN) GO TO 217\r\n      IF (ROT .EQ.     0) GO TO 200\r\n  218 CALL GOPEN (MS,A(IBUF1),0)\r\n      GO TO 200\r\n  217 MS = MS2\r\n      GO TO 218\r\nC\r\nC     TRIDIAGONALIZATION PROCEDURE WHEN MATRIX FITS IN CORE\r\nC\r\nC\r\nC     FILL CORE WITH THE REST OF THE MATRIX\r\nC\r\n  225 ROW2 = FILCOR(MSS,MS2,IPREC,ROWP2,MIDIN,N,A,NZ,A(IBUF1))\r\n      NA = 1\r\n      CALL GOPEN (MO,A(IBUF2),3)\r\n      GO TO 235\r\n  230 ROW   = ROW + 1\r\n      ROWP1 = ROW + 1\r\n      ROWP2 = ROW + 2\r\n  232 DO 233 I = ROWP1,N\r\n      O(I) = AA(NA)\r\n      NA   = NA + 1\r\n  233 CONTINUE\r\n  234 CALL SINC0S1 (ROW,ROT, D,O,C)\r\nC\r\nC     WRITE SINES ON MO\r\nC\r\n      II  = ROWP2\r\n      IT1 = 1\r\n      IT2 = 1\r\n      CALL PACK (D(ROWP2),MO,MCB)\r\n  235 IF (ROT .EQ. 0) GO TO 236\r\n      ROW1  = ROWP2\r\n      CALL ROTATE1 (AA(NA),ROW,ROW1,ROW2,O,D,C)\r\n  236 DO 237 I = ROWP1,N\r\n      D(I) = O(I)\r\n  237 CONTINUE\r\n      IF (ROW .NE. NM2) GO TO 230\r\nC\r\nC     ALL DONE.\r\nC\r\n      D(N) = AA(NA)\r\n      O(N-1) = O(N)\r\n      O(N  ) = 0.0\r\n      CALL CLOSE (MO,3)\r\n      DO 261 I = 1,N\r\n      C(I) = D(I)\r\n      B(I) = O(I)**2\r\n  261 CONTINUE\r\n      XENTRY = -ENTRY\r\n      RSTRT  = 0\r\n      SAVEMR = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trif.f",
    "content": "      SUBROUTINE TRIF (XC,YC,ZC,IVECT,JVECT,KVECT,A,B,C,ID,ELEM)\r\nC\r\nC     CALCULATEIONS FOR THE TRIANGLE USED IN TRIM6,TRPLT1,TRSHL - THE HI\r\nC     LEVEL PLATE ELEMENTS.  COMPUTATIONS IN SINGLE PRECISION ONLY\r\nC\r\nC     IVECT, JVECT, AND KVECT ARE UNIT VECTORS OF THE TRIANGLE\r\nC     B IS THE DISTANCE OF THE GRID POINT 1\r\nC     A IS THE DISTANCE OF THE GRID POINT 3\r\nC     C IS THE DISTANCE OF THE GRID POINT 5\r\nC\r\n      LOGICAL         NOGO\r\n      REAL            IVECT(3),JVECT(3),KVECT(3),XC(6),YC(6),ZC(6),\r\n     1                ELEM(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ IBUF,NOUT,NOGO\r\nC\r\nC     EVALUATE DIRECTIONAL COSINES\r\nC\r\n      X1 = XC(3) - XC(1)\r\n      Y1 = YC(3) - YC(1)\r\n      Z1 = ZC(3) - ZC(1)\r\n      X2 = XC(5) - XC(1)\r\n      Y2 = YC(5) - YC(1)\r\n      Z2 = ZC(5) - ZC(1)\r\n      TEMP = X1*X1 + Y1*Y1 + Z1*Z1\r\n      IF (TEMP .LE. 1.0E-10) GO TO 40\r\n      TEMP = SQRT(TEMP)\r\nC\r\nC     I-VECTOR\r\nC\r\n      IVECT(1) = X1/TEMP\r\n      IVECT(2) = Y1/TEMP\r\n      IVECT(3) = Z1/TEMP\r\n      SAVE = TEMP\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\nC\r\n      KVECT(1) = IVECT(2)*Z2 - Y2*IVECT(3)\r\n      KVECT(2) = IVECT(3)*X2 - Z2*IVECT(1)\r\n      KVECT(3) = IVECT(1)*Y2 - X2*IVECT(2)\r\n      TEMP = SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      IF (TEMP .LE. 1.0E-10) GO TO 50\r\nC\r\nC     NORMALIZE K-VECTOR\r\nC     DISTANCE C OF THE TRAINGLE IS TEMP\r\nC\r\n      KVECT(1) = KVECT(1)/TEMP\r\n      KVECT(2) = KVECT(2)/TEMP\r\n      KVECT(3) = KVECT(3)/TEMP\r\n      C = TEMP\r\nC\r\nC     J-VECTOR = K X I VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      IF (TEMP .LE. 1.0E-10) GO TO 60\r\nC\r\nC     NORMALIZE J-VECTOR TO MAKE SURE\r\nC\r\n      JVECT(1) = JVECT(1)/TEMP\r\n      JVECT(2) = JVECT(2)/TEMP\r\n      JVECT(3) = JVECT(3)/TEMP\r\nC\r\nC     DISTANCE B OF THE TRIANGLE IS OBTAINED BY DOTTING (X2,Y2,Z2) WITH\r\nC     THE IVECT UNIT VECTOR\r\nC\r\n      B = X2*IVECT(1) + Y2*IVECT(2) + Z2*IVECT(3)\r\nC\r\nC     THE LOCAL X AND Y COORINATES OF THE SIX GRID PTS. ARE AS FOLLOWS\r\nC\r\n      YC(1) = 0.0\r\n      YC(2) = 0.0\r\n      YC(3) = 0.0\r\n      YC(4) = C*0.5\r\n      YC(5) = C\r\n      YC(6) = YC(4)\r\nC\r\nC     THE TRIANGLE SHOULD BELONG TO\r\nC\r\nC     KASE1 (ACUTE ANGLES AT GRID POINTS 1 AND 3),\r\nC     KASE2 (OBTUSE ANGLE AT GRID POINT 3), OR\r\nC     KASE3 (OBTUSE ANGLE AT GRID POINT 1)\r\nC\r\nC     KASE  = 1\r\nC     IF (B .GT. SAVE) KASE = 2\r\nC     IF (B .LT.  0.0) KASE = 3\r\n      TEMP  = -B\r\nC     IF (KASE .EQ. 3) TEMP = ABS(B)\r\nC     IF (B .LT.  0.0) TEMP = ABS(B)\r\n      XC(1) = TEMP\r\n      XC(2) = TEMP + SAVE*0.5\r\n      XC(3) = TEMP + SAVE\r\n      XC(4) = XC(3)*0.5\r\n      XC(5) = 0.0\r\n      XC(6) = XC(1)*0.5\r\nC\r\nC     RE-SET DISTANCE A AND B\r\nC\r\n      B = ABS(B)\r\n      A = ABS(XC(3))\r\n      RETURN\r\nC\r\nC     GEOMETRY ERRORS\r\nC\r\n 40   WRITE (NOUT,140) UFM,ELEM,ID\r\n      GO TO 80\r\n 50   WRITE (NOUT,150) UFM,ELEM,ID\r\n      GO TO 80\r\n 60   WRITE (NOUT,160) UFM,ELEM,ID\r\n 80   NOGO = .TRUE.\r\nC\r\n 140  FORMAT (A23,' 2404, GRID POINTS 1 AND 3 OF ',A4,A2,\r\n     1       ' WITH ELEMENT ID =',I9,' HAVE SAME COORDINATES.')\r\n 150  FORMAT (A23,' 2405, GRID POINTS 1, 3, AND 5 OF ',A4,A2,' WITH ',\r\n     1       'ELEMENT ID =',I9,' APPEAR TO BE ON A STRAIGHT LINE.')\r\n 160  FORMAT (A23,' 2406, GRID POINTS 1 AND 5 OF ',A4,A2,\r\n     1       ' WITH ELEMENT ID =',I9,' HAVE SAME COORDINATES.')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trimem.f",
    "content": "      SUBROUTINE TRIMEM(NTYPE,TBAR,PG)\r\nC\r\nC     ******** PHASE I OF STRESS DATA RECOVERY *************************\r\nC     ******** TRIANGULAR MEMBRANE ELEMENT *****************************\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO. . .\r\nC\r\nC     MAT    - MATERIAL DATA ROUTINE\r\nC     MESAGE - ERROR MESSAGE WRITER\r\nC\r\nC     IF NTYPE = 0  COMPLETE MEMBRANE COMPUTATION IS PERFORMED\r\nC\r\nC     IF NTYPE = 1 RETURN 3 TRANSFORMED 3X3 MATRICES ONLY\r\nC\r\nC\r\nC\r\n      DIMENSION PG(1),ECPT(21)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /TRIMEX/\r\n     1                   NECPT(1)           ,NGRID(3)\r\n     2                  ,ANGLE              ,MATID1\r\n     3                  ,T                  ,FMU\r\n     4                  ,DUMMY1             ,X1\r\n     5                  ,Y1                 ,Z1\r\n     6                  ,DUMMY2             ,X2\r\n     7                  ,Y2                 ,Z2\r\n     8                  ,DUMMY3             ,X3\r\n     9                  ,Y3                 ,Z3\r\n      COMMON /SSGWRK/ ETEMPX(6), C(18), E(18), G(9), TEMPAR(9)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ G11,G12,G13,G22,G23,G33,RHO,ALPHAS(3),\r\n     1                T SUB 0, G SUB E, SIGTEN, SIGCOM, SIGSHE,\r\n     2                G2X211, G2X212, G2X222\r\nC\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE (ECPT(1),NECPT(1))\r\nC     ECPT LIST\r\nC                                                      IN\r\nC                                                      THIS\r\nC       ECPT       DESCRIPTION                         ROUTINE   TYPE\r\nC     ******************************************************************\r\nC       ECPT( 1) = ELEMENT ID                          NECPT(1)  INTEGER\r\nC       ECPT( 2) = GRID POINT A                        NGRID(1)  INTEGER\r\nC       ECPT( 3) = GRID POINT B                        NGRID(2)  INTEGER\r\nC       ECPT( 4) = GRID POINT C                        NGRID(3)  INTEGER\r\nC       ECPT( 5) = THETA = ANGLE OF MATERIAL           ANGLE     REAL\r\nC       ECPT( 6) = MATERIAL ID                         MATID     INTEGER\r\nC       ECPT( 7) = T                                   T         REAL\r\nC       ECPT( 8) = NON-STRUCTURAL MASS                 FMU       REAL\r\nC       ECPT( 9) = COORD. SYSTEM ID 1                  NECPT(9)  INTEGER\r\nC       ECPT(10) = X1                                  X1        REAL\r\nC       ECPT(11) = Y1                                  Y1        REAL\r\nC       ECPT(12) = Z1                                  Z1        REAL\r\nC       ECPT(13) = COORD. SYSTEM ID 2                  NECPT(13) INTEGER\r\nC       ECPT(14) = X2                                  X2        REAL\r\nC       ECPT(15) = Y2                                  Y2        REAL\r\nC       ECPT(16) = Z2                                  Z2        REAL\r\nC       ECPT(17) = COORD. SYSTEM ID 3                  NECPT(17) INTEGER\r\nC       ECPT(18) = X3                                  X3        REAL\r\nC       ECPT(19) = Y3                                  Y3        REAL\r\nC       ECPT(20) = Z3                                  Z3        REAL\r\nC       ECPT(21) = ELEMENT TEMPERATURE                 ELTEMP    REAL\r\nC\r\nC     ******************************************************************\r\n      ELTEMP = ECPT(21)\r\nC\r\nC     SET UP THE E MATRIX WHICH IS (3X2) FOR THE TRI-MEMBRANE\r\nC\r\nC     E(1), E(3), E(5) WILL BE THE I-VECTOR\r\nC     E(2), E(4), E(6) WILL BE THE J-VECTOR\r\nC     E(7), E(8), E(9) WILL BE THE K-VECTOR NOT USED IN E FOR MEMBRANE\r\nC\r\nC     FIRST FIND I-VECTOR = RSUBB - RSUBA  (NON-NORMALIZED)\r\n      E(1) = X2 - X1\r\n      E(3) = Y2 - Y1\r\n      E(5) = Z2 - Z1\r\nC\r\nC     NOW FIND LENGTH = X-SUB-B   COORD. IN ELEMENT SYSTEM\r\n      XSUBB =  SQRT( E(1)**2 + E(3)**2 + E(5)**2 )\r\n      IF(XSUBB .GT. 1.0E-06) GO TO 10\r\n      CALL MESAGE(-30,31,ECPT(1))\r\nC\r\nC  20 NOW NORMALIZE I-VECTOR WITH X-SUB-B\r\n   10 E(1) = E(1) / XSUBB\r\n      E(3) = E(3) / XSUBB\r\n      E(5) = E(5) / XSUBB\r\nC\r\nC     HERE WE NOW TAKE RSUBC - RSUBA AND STORE TEMPORARILY IN\r\nC     E(2), E(4), E(6) WHICH IS WHERE THE J-VECTOR WILL FIT LATER\r\nC\r\n      E(2) = X3 - X1\r\n      E(4) = Y3 - Y1\r\n      E(6) = Z3 - Z1\r\nC\r\nC     X-SUB-C  =  I . (RSUBC - RSUBA) ,  THUS\r\n      XSUBC = E(1) * E(2) + E(3) * E(4) + E(5) * E(6)\r\nC\r\nC     AND CROSSING THE I-VECTOR TO (RSUBC-RSUBA) GIVES THE K-VECTOR\r\nC     (NON-NORMALIZED)\r\nC\r\n      E(7) = E(3) * E(6)  -  E(5) * E(4)\r\n      E(8) = E(5) * E(2)  -  E(1) * E(6)\r\n      E(9) = E(1) * E(4)  -  E(3) * E(2)\r\nC\r\nC\r\nC     THE LENGTH OF THE K-VECTOR IS NOW FOUND AND EQUALS Y-SUB-C\r\nC     COORD. IN ELEMENT SYSTEM\r\n      YSUBC =  SQRT( E(7)**2 + E(8)**2 + E(9)**2 )\r\n      IF(YSUBC .GT. 1.0E-06) GO TO 20\r\n      CALL MESAGE(-30,32,ECPT(1))\r\nC\r\nC  25 NOW NORMALIZE K-VECTOR WITH YSUBC JUST FOUND\r\nC\r\n   20 E(7) = E(7) / YSUBC\r\n      E(8) = E(8) / YSUBC\r\n      E(9) = E(9) / YSUBC\r\nC\r\nC     NOW HAVING I AND K VECTORS.GET J = I CROSS K AND\r\nC     STORE IN THE SPOT FOR J\r\nC\r\n      E(2) = E(5) * E(8) - E(3) * E(9)\r\n      E(4) = E(1) * E(9) - E(5) * E(7)\r\n      E(6) = E(3) * E(7) - E(1) * E(8)\r\nC\r\nC     AND JUST FOR COMPUTER EXACTNESS NORMALIZE J-VECTOR TO MAKE SURE.\r\n      TEMP =  SQRT( E(2)**2 + E(4)**2 + E(6)**2 )\r\n      E(2) = E(2)/TEMP\r\n      E(4) = E(4)/TEMP\r\n      E(6) = E(6)/TEMP\r\nC\r\nC     VOLUME OF ELEMENT, THETA, MU, LAMDA, AND DELTA\r\n      VOL = XSUBB*YSUBC*T/2.0\r\nC\r\n      REELMU = 1.0D0 / XSUBB\r\n      FLAMDA = 1.0D0 / YSUBC\r\n      DELTA  = XSUBC / XSUBB - 1.0E0\r\nC\r\nC     ******************************************************************\r\nC\r\nC     NOW FORM THE  C MATRIX   (3X6) PARTITIONED AS FOLLOWS HERE.\r\nC                 CSUBA = (3X2) STORED IN C(1) . . .C(6)  BY ROWS\r\nC                 CSUBB = (3X2) STORED IN C(7) . . .C(12) BY ROWS\r\nC                 CSUBC = (3X2) STORED IN C(13). . .C(18) BY ROWS\r\nC\r\n      C(1)  = -REELMU\r\n      C(2)  =  0.0E0\r\n      C(3)  =  0.0E0\r\n      C(4)  =  FLAMDA * DELTA\r\n      C(5)  =  C(4)\r\n      C(6)  = -REELMU\r\n      C(7)  =  REELMU\r\n      C(8)  =  0.0E0\r\n      C(9)  =  0.0E0\r\n      C(10) = -FLAMDA * REELMU * XSUBC\r\n      C(11) =  C(10)\r\n      C(12) =  REELMU\r\n      C(13) =  0.0E0\r\n      C(14) =  0.0E0\r\n      C(15) =  0.0E0\r\n      C(16) =  FLAMDA\r\n      C(17) =  FLAMDA\r\n      C(18) =  0.0E0\r\nC\r\n      IF( NTYPE .EQ. 1 ) GO TO 30\r\n      THETA = ANGLE * DEGRA\r\n      SINTH = SIN( THETA )\r\n      COSTH = COS( THETA )\r\n   30 IF(ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0E0\r\n      ELTEMP = ECPT(21)\r\n      MATID = MATID1\r\n      INFLAG = 2\r\n      CALL MAT( ECPT(1) )\r\nC\r\nC     FILL G-MATRIX WITH OUTPUT FROM MAT ROUTINE\r\nC\r\n      G(1) = G11\r\n      G(2) = G12\r\n      G(3) = G13\r\n      G(4) = G12\r\n      G(5) = G22\r\n      G(6) = G23\r\n      G(7) = G13\r\n      G(8) = G23\r\n      G(9) = G33\r\nC\r\nC     ******************************************************************\r\nC\r\nC     G, E, AND C MATRICES ARE COMPLETE\r\nC\r\nC\r\nC\r\n      TEMP = (TBAR-TSUB0)*VOL\r\n      DO 40 I=1,3\r\n   40 TEMPAR(I) = ALPHAS(I)*TEMP\r\n      CALL MPYL(G(1),TEMPAR(1),3,3,1,TEMPAR(7))\r\n      DO 70 I=1,3\r\n      K = 6*I-5\r\n      CALL MPYLT(C(K),TEMPAR(7),3,2,1,TEMPAR(1))\r\n      CALL MPYL(E,TEMPAR(1),2,3,1,TEMPAR(4))\r\n      K = 4*I+5\r\n      IF(NECPT(K) .EQ. 0) GO TO 50\r\n      CALL BASGLB(TEMPAR(4),TEMPAR(4),NECPT(K+1),NECPT(K))\r\n   50 DO 60 K=1,3\r\n      L = NECPT(I+1)+K-1\r\n   60 PG(L) = PG(L)+TEMPAR(K+3)\r\n   70 CONTINUE\r\nC\r\nC     THIS CONCLUDES PHASE 1 FOR TRIANGULAR MEMBRANE OR SUB CALCULATION\r\nC     TO ANOTHER ROUTINE...\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/triqd.f",
    "content": "      SUBROUTINE TRIQD( NTYPE, T )\r\nC*****\r\nC  ELEMENT THERMAL AND DEFORMATION LOADING ROUTINE FOR FOUR ELEMENTS\r\nC*****\r\nC\r\nC                     E C P T     L I S T I N G\r\nC                    ***************************\r\nC ECPT  TRMEM   QDMEM   TRPLT   QDPLT   TRIA1   QUAD1   TRIA2   QUAD2\r\nC **********************************************************************\r\nC   1   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID   EL.ID\r\nC   2   GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A  GRID A\r\nC   3   GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B  GRID B\r\nC   4   GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C  GRID C\r\nC   5   THETA   GRID D  THETA   GRID D  THETA   GRID D  THETA   GRID D\r\nC   6   MATID   THETA   MATID1  THETA   MATID1  THETA   MAT ID  THETA\r\nC   7   T       MAT ID  I       MATID1  T1      MATID1  T       MAT ID\r\nC   8   NS MASS T       MATID2  I       MATID2  T1      NS MASS T\r\nC   9   CSID 1  NS MASS T2      MATID2  I       MATID2  CSID 1  NS MASS\r\nC  10   X1      CSID 1  NS MASS T2      MATID3  I       X1      CSID 1\r\nC  11   Y1      X1      Z1      NS MASS T2      MATID3  Y1      X1\r\nC  12   Z1      Y1      Z2      Z1      NS MASS T2      Z1      Y1\r\nC  13   CSID 2  Z1      CSID 1  Z2      Z1      NS MASS CSID 2  Z1\r\nC  14   X2      CSID 2  X1      CSID 1  Z2      Z1      X2      CSID 2\r\nC  15   Y2      X2      Y1      X1      CSID 1  Z2      Y2      X2\r\nC  16   Z2      Y2      Z1      Y1      X1      CSID 1  Z2      Y2\r\nC  17   CSID 3  Z2      CSID 2  Z1      Y1      X1      CSID 3  Z2\r\nC  18   X3      CSID 3  X2      CSID 2  Z1      Y1      X3      CSID 3\r\nC  19   Y3      X3      Y2      X2      CSID 2  Z1      Y3      X3\r\nC  20   Z3      Y3      Z2      Y2      X2      CSID 2  Z3      Y3\r\nC  21   TEMP    Z3      CSID 3  Z2      Y2      X2      TEMP    Z3\r\nC  22           CSID 4  X3      CSID 3  Z2      Y2              CSID 4\r\nC  23           X4      Y3      X3      CSID 3  Z2              X4\r\nC  24           Y4      Z3      Y3      X3      CSID 3          Y4\r\nC  25           Z4      TEMP    Z3      Y3      X3              Z4\r\nC  26           TEMP            CSID 4  Z3      Y3              TEMP\r\nC  27                           X4      TEMP    Z3\r\nC  28                           Y4              CSID 4\r\nC  29                           Z4              X4\r\nC  30                           TEMP            Y4\r\nC  31                                           Z4\r\nC  32                                           TEMP\r\nC **********************************************************************\r\nC\r\n      REAL SAVE(32), T(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /TRIMEX/ ECPT(100)\r\n      EQUIVALENCE (SAVE(1),ECPT(50))\r\nC\r\nC     THIS SUBROUTINE INCORPORATES TRIA1, QUAD1, TRIA2, QUAD2\r\nC\r\nC              NTYPE = 1  IMPLIES  TRIA1\r\nC              NTYPE = 2  IMPLIES  TRIA2\r\nC              NTYPE = 3  IMPLIES  QUAD1\r\nC              NTYPE = 4  IMPLIES  QUAD2\r\nC\r\nC     CALLS FROM THIS ROUTINE ARE MADE TO THE FOLLOWING ELEMENT\r\nC     THERMAL AND DEFORMATION LOADING ROUTINES.\r\nC\r\nC               TRMEM - TRIANGULAR MEMBRANE ROUTINE\r\nC               QDMEM - QUADRILATERAL MEMBRANE ROUTINE\r\nC               TRPLT - TRIANGULAR PLATE ROUTINE.\r\nC               QDPLT - QUADRILATERAL PLATE ROUTINE.\r\nC\r\nC\r\nC     THE SAVED ECPT IS EQUIVALENCED TO ECPT(50)\r\nC\r\nC     SAVE THE INCOMING ECPT\r\nC\r\n      DO 10 I=1,32\r\n   10 SAVE(I) = ECPT(I)\r\nC\r\nC     TRANSFER TO ELEMENT TYPE DESIRED\r\nC\r\n      GO TO(20,70,100,150),NTYPE\r\nC*****\r\nC     ***  TRIA1 ***\r\nC*****\r\nC     SET UP ECPT FOR CALL TO  TRMEM(0), FIRST CHECK T1 FOR ZERO.\r\nC\r\n   20 IF( SAVE(7) .EQ. 0.0E0 ) GO TO 40\r\n      DO 30 I=9,21\r\n   30 ECPT(I) = SAVE(I + 6)\r\nC\r\n      CALL TRIMEM( 0, T(1), CORE(1) )\r\nC\r\nC     SET UP ECPT FOR CALL TO TRPLT, FIRST CHECK I AND T2 EQUAL ZERO.\r\nC\r\n   40 IF( SAVE(9) .EQ. 0.0E0 ) RETURN\r\n      DO 50 I=1,5\r\n   50 ECPT(I) = SAVE(I)\r\n      DO 60 I=6,25\r\n   60 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL TRPLT( T(1) )\r\n      RETURN\r\nC*****\r\nC     ***  TRIA2 ***\r\nC*****\r\n   70 IF( SAVE(7) .EQ. 0.0E0 ) RETURN\r\nC\r\nC     SET UP ECPT FOR CALL TO  TRMEM(0)\r\nC\r\nC     ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL TRIMEM( 0, T(1), CORE(1) )\r\nC\r\nC     SET UP ECPT FOR CALL TO TRPLT\r\nC\r\n      DO 80 I=1,6\r\n   80 ECPT(I) = SAVE(I)\r\n      ECPT(7) = SAVE(7) ** 3  / 12.0E0\r\n      ECPT(8) = SAVE(6)\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      DO 90 I=13,25\r\n   90 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL TRPLT( T(1) )\r\n      RETURN\r\nC*****\r\nC     ***  QUAD1 ***\r\nC*****\r\n  100 IF(SAVE(8).EQ.0.0E0)GO TO 120\r\nC\r\nC     SET UP ECPT FOR CALL TO  QDMEM\r\nC\r\n      ECPT(9) = SAVE(13)\r\n      DO 110 I=10,26\r\n  110 ECPT(I) = SAVE(I+6)\r\nC\r\n      CALL QDMEM( T(1), CORE(1) )\r\nC\r\n  120 IF( SAVE(10) .EQ. 0.0E0 ) RETURN\r\nC\r\nC     SET UP ECPT FOR CALL TO QDPLT\r\nC\r\n      DO 130 I=1,6\r\n  130 ECPT(I) = SAVE(I)\r\n      DO 140 I=7,30\r\n  140 ECPT(I) = SAVE(I + 2)\r\nC\r\n      CALL QDPLT( T(1) )\r\n      RETURN\r\nC*****\r\nC     ***  QUAD2 ***\r\nC*****\r\n  150 IF( SAVE(8) .EQ. 0.0E0 ) RETURN\r\nC\r\nC     SET UP ECPT FOR CALL TO  QDMEM\r\nC\r\nC     ECPT IS OK AS DELIVERED TO THIS ROUTINE\r\nC\r\n      CALL QDMEM( T(1), CORE(1) )\r\nC\r\nC     SET UP ECPT FOR CALL TO QDPLT\r\nC\r\n      DO 160 I=1,7\r\n  160 ECPT(I) = SAVE(I)\r\n      ECPT(8) = SAVE(8) **3 / 12.0E0\r\n      ECPT(9) = SAVE(7)\r\n      ECPT(10)= SAVE(8)\r\n      ECPT(11)= SAVE(9)\r\n      DO 170 I=14,30\r\n  170 ECPT(I) = SAVE(I - 4)\r\nC\r\n      CALL QDPLT( T(1) )\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trlg.f",
    "content": "      SUBROUTINE TRLG\r\nC\r\nC     THIS IS THE MODULE DRIVER FOR  TRLG(TRANSIENT LOAD GENERATOR)\r\nC\r\nC     INPUTS(14)\r\nC       CASEXX      CASECONTROL\r\nC       USETD\r\nC       DLT         DYNAMIC LOAD TABLE\r\nC       SLT         STATIC  LOAD TABLE\r\nC       BGPDT       BASIC GRID POINT DEFINITION TABLE\r\nC       SIL         SCALAR INDEX LIST\r\nC       CSTM        COORDINATE SYSTEMS\r\nC       TRL         TRANSIENT RESPONSE LIST\r\nC       DIT         DIRECT INPUT TABELS\r\nC       GMD\r\nC       GOD\r\nC       PHIDH\r\nC       EST\r\nC       MGG         MASS MATRIX FOR GRAVITY LOADS\r\nC       MPT\r\nC     OUTPUTS(6)\r\nC       PPO\r\nC       PSO\r\nC       PDO\r\nC       PD\r\nC       PH\r\nC       TOL\r\nC     PARAMETERS\r\nC      IP1 = -1     IF (AP = AD)\r\nC      NCOL.LE.0    NO CONTINUE MODE (TO = 0.0)\r\nC      NCOL.GT.0    CONTINUE MODE (TO = LAST TIME)\r\nC\r\nC     SCRATCHES (9)\r\nC\r\n      INTEGER  CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,\r\n     1         PHIDH,PPO,PSO,PDO,PD,PH,TOL,SCR1,SCR2,SCR3,SCR4,SCR5,\r\n     2         SCR6,SCR7,AP,AS,AD,AH,TMLDTB,FCT,FCO,SCR8,EST,SCR9,MCB(7)\r\nC\r\n      COMMON /BLANK/ IP1,NCOL\r\nC\r\n      DATA  CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH/\r\n     1      101   , 102 ,103,104,105  ,106,107 ,108,109,110,111,112  /\r\n      DATA  EST,MGG,MPT /\r\n     1      113,114,115 /\r\n      DATA  PPO,PSO,PDO,PD ,PH ,TOL /\r\n     1      201,202,203,204,205,206 /\r\n      DATA  SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,SCR8,SCR9 /\r\n     1      301 ,302 ,303 ,304 ,305, 306 ,307 ,308 ,309  /\r\nC\r\nC     FORM AP MATRIX AND EXTRACT LOAD TABLES\r\nC\r\n      AP = SCR1\r\n      TMLDTB = SCR2\r\n      CALL TRLGA (CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB,ITRL,\r\n     1            SCR3,SCR4,SCR5,EST,SCR6,MGG,SCR7,MPT)\r\nC\r\nC     REDUCE TRANSFORMATION MATRIX\r\nC\r\n      AS = SCR3\r\n      AD = SCR4\r\n      AH = SCR5\r\n      MCB(1) = AP\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2) .LE. 0) GO TO 10\r\n      CALL TRLGB (USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,IP1,SCR6,SCR7,SCR8,\r\n     1            SCR9)\r\nC\r\nC     PRODUCE TIME FUNCTION MATRIX\r\nC\r\n   10 CONTINUE\r\n      FCT = SCR6\r\n      FCO = SCR7\r\n      CALL  TRLGC (TMLDTB,TRL,DIT,ITRL,FCT,FCO,TOL,IP2)\r\n      IF (MCB(2) .LE. 0) GO TO 20\r\n      IF (IP2  .EQ.  -1) FCO = FCT\r\nC\r\nC     COMPUTE LOAD FACTORS\r\nC\r\n      CALL TRLGD (FCT,FCO,AP,AS,AD,AH,PPO,PSO,PDO,PD,PH,IP1,SCR2,IP2)\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trlga.f",
    "content": "      SUBROUTINE TRLGA (CASECC,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB,\r\n     1                 ITRL,ISCR1,ISCR2,ISCR3,EST,NEWSLT,MGG,ISCR4,MPT1)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO CONSTRUCT THE AP MATRIX\r\nC     WHICH HAS 1 COLUMN FOR EACH FUNCTION OF TIME\r\nC     AND TO BUILD THE TIME FUNCTION TABLE (FORMAT SHOWN IN TRLGC)\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         CASECC,USETD,DLT,SLT,BGPDT,SIL,CSTM,AP,TMLDTB,\r\n     1                SYSBUF,ANDF,PG(7),NAME(2),SLT1,BGPDT1,CSTM1,SIL1,\r\n     2                MCB(7),IZ(38),FILE,NAMT(2),GVECT(30),TWO1,IZB(4),\r\n     3                MINUS(2),EST,EST1\r\n      COMMON /BLANK / NG\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /LOADX / LC,SLT1,BGPDT1,OLD,CSTM1,SIL1,ISIL,EST1,MPT,GPTT,\r\n     1                EDT,N(3),LODC,MASS,NOBLD,IDIT\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /BITPOS/ ISK(11),IUE\r\n      COMMON /ZBLPKX/ ZA(4),IIB\r\n      COMMON /ZNTPKX/ ZB(4),III,IEOL,IEOR\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /QVECT / ITRAN,IQVECT\r\n      EQUIVALENCE     (KSYSTM(1),SYSBUF),(Z(1),IZ(1)),(ZB(1),IZB(1))\r\n      DATA    NAME  / 4HTRLG,4HA   /,  NAMT/ 4HDLT ,4HTRLG /\r\n      DATA    ITRAN1, MINUS /4HTRAN,-1,-1  /\r\nC\r\nC     CORE IS ALLOCATED AS FOLLOWS -\r\nC     . EXTERN PHASE (BUILD STATIC LOADS)\r\nC                                                           POINTER\r\nC     DLOAD STUFF--TLOAD ID,RECORD NO.IN DLT,SCALE FACTOR   ILLST\r\nC     EXTERN LOAD LIST IN SLT ((NEX LENGTH)                 ISLLST\r\nC     2  BUFFERS\r\nC     1  G VECTOR (NG)  COMING FROM TOP\r\nC        N.B.  EXTER WILL OPEN NEWSLT,BGPDT,CSTM,SIL\r\nC\r\nC     . DYNAMIC PHASE\r\nC     DLOAD STUFF                                           ILLST\r\nC     EXTERN LOAD LIST                                      ISLLST\r\nC     SIL TO SILD CONVERTER (NG LENGTH)                     ISILD\r\nC     4  BUFFERS\r\nC     2  P SIZE VECTORS\r\nC     COMPRESSED LIST  SILD,A,TAU                           ICLST\r\nC\r\nC     BRING IN DATA FROM CASECC(DLOAD ID -- TSTEP ID)\r\nC\r\n      NSUBL = 0\r\n      NZ    = KORSZ(IZ)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      NX    = IBUF1 - 1\r\n      CALL GOPEN (CASECC,IZ(IBUF1),0)\r\n      CALL FREAD (CASECC,IZ(1),166,1)\r\n      IDLOAD = IZ(13)\r\n      ITRL   = IZ(38)\r\n      CALL CLOSE (CASECC,1)\r\n      IF (IDLOAD .EQ. 0) GO TO 1020\r\nC\r\nC     BUILD NEW SLT\r\nC\r\n      CALL SSGSLT (SLT,NEWSLT,EST)\r\nC\r\nC     FIND DLOAD, TLOAD\r\nC\r\n      FILE = DLT\r\n      CALL OPEN (*900,DLT,IZ(IBUF1),0)\r\n      CALL READ (*910,*10,DLT,IZ(1),NX,0,IFLAG)\r\n      GO TO 980\r\nC\r\nC     IS IT A DLOAD SET\r\nC\r\n   10 NDLOAD = IZ(3)\r\n      NSIMPL = IFLAG - 3 - NDLOAD\r\n      IF (NDLOAD .EQ. 0) GO TO 100\r\n      K = 3\r\n      DO 20 I = 1,NDLOAD\r\n      K = K + 1\r\n      IF (IZ(K) .EQ. IDLOAD) GO TO 30\r\n   20 CONTINUE\r\nC\r\nC     ITS  A SIMPLE LOAD\r\nC\r\n      GO TO 100\r\nC\r\nC     PROCESS DLOAD SET\r\nC     FORMAT OF DLOAD = SET ID,SCALE,SCALE,ID,SCALE,ID .... -1,-1\r\nC\r\n   30 NZ1 = NX - IFLAG\r\nC\r\nC     BRING  IN  ALL  DLOADS\r\nC\r\n      L =  IFLAG + 1\r\n      CALL READ (*910,*40,DLT,IZ(L),NZ1,0,I)\r\n      GO TO 980\r\nC\r\nC     FIND SELECTED ID\r\nC\r\n   40 ISEL = L\r\n   50 IF (IZ(ISEL) .EQ. IDLOAD) GO TO 70\r\n   60 ISEL = ISEL + 2\r\n      IF (IZ(ISEL+1) .NE. -1) GO TO 60\r\n      ISEL = ISEL + 2\r\n      IF (ISEL-L .GT. I) GO TO 990\r\n      GO TO 50\r\nC\r\nC     FOUND DLOAD SELECTED\r\nC\r\n   70 SCALE = Z(ISEL+1)\r\nC\r\nC     CONVERT SCALE FACTORS TO OVERALL SCALE FACTORS\r\nC     BUILD LIST OF TRIPLES-- TLOAD ID,RECORD NO.IN DLT, SCALE FACTOR\r\nC\r\n      L = ISEL + 2\r\n      M = ISEL + I\r\n      IFLAG  = M\r\n      NSUBL  = 0\r\n   80 IDLOAD = IZ(L+1)\r\n      Z(L)   = Z(L)*SCALE\r\n      K = NDLOAD + 3\r\n      DO 90 I = 1,NSIMPL\r\n      K = K + 1\r\n      IF (IZ(L+1) .EQ. IZ(K)) GO TO 95\r\nC\r\n   90 CONTINUE\r\n      GO TO 990\r\nC\r\nC     FOUND SIMPLE ID\r\nC\r\n   95 IZ(M  ) = IZ(L+1)\r\n       Z(M+1) = Z(L)\r\n      IZ(M+2) = I\r\n      L = L + 2\r\n      M = M + 3\r\n      NSUBL = NSUBL + 1\r\n      IF (IZ(L+1) .GE. 0) GO TO 80\r\n      GO TO 150\r\nC\r\nC     PROCESS SIMPLE LOAD REQUEST\r\nC\r\n  100 M = IFLAG + 1\r\n      IFLAG  = M\r\n      IZ(M ) = IDLOAD\r\n      Z(M+1) = 1.0\r\n      L = NDLOAD + 3\r\n      DO 110 I = 1,NSIMPL\r\n      L = L + 1\r\n      IF (IZ(L) .EQ. IDLOAD) GO TO 120\r\n  110 CONTINUE\r\n      GO TO 990\r\nC\r\nC     FOUND SIMPLE LOAD\r\nC\r\n  120 IF (NDLOAD .NE. 0) I = I + 1\r\n      IZ(M+2) = I - 1\r\n      NSUBL   = 1\r\nC\r\nC     MOVE STUFF TO BOTTOM OF CORE\r\nC\r\n  150 CALL CLOSE(DLT,1)\r\n      ILLST = NZ - NSUBL*3 + 1\r\n      NZ    = NZ - NSUBL*3\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      L     = IFLAG\r\n      K     = ILLST\r\n      DO 160 I = 1,NSUBL\r\n      CALL GOPEN  (DLT,IZ(IBUF1),0)\r\n      CALL SKPREC (DLT,IZ(L+2))\r\n      CALL FREAD  (DLT,IZB,2,0)\r\n      IZ(K) = IZB(2)\r\n      CALL CLOSE (DLT,1)\r\n      IZ(K+1) = IZ(L+2)\r\n      IZ(K+2) = IZ(L+1)\r\n      L = L + 3\r\n      K = K + 3\r\n  160 CONTINUE\r\nC\r\nC     SET UP FOR EXTERN\r\nC\r\n      FILE   = NEWSLT\r\n      NX     = IBUF1 - 1\r\n      ISLLST = ILLST\r\n      NOSLT  = 0\r\n      MCB(1) = SLT\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) NOSLT = -1\r\n      MCB(1) = SIL\r\n      MCB(3) = 0\r\n      CALL RDTRL (MCB)\r\n      NG     = MCB(3)\r\n      IF (NOSLT .NE. 0) GO TO 191\r\n      CALL OPEN (*900,NEWSLT,IZ(IBUF1),0)\r\n      CALL READ (*910,*170,NEWSLT,IZ(1),NX,0,IFLAG)\r\n      GO TO 980\r\n  170 CALL CLOSE (NEWSLT,1)\r\n      M = ILLST\r\n      DO 180 I = 1,NSUBL\r\n      DO 175 J = 3,IFLAG\r\n      IF (IZ(M) .NE. IZ(J)) GO TO 175\r\nC\r\nC     FOUND LOAD TO BUILD\r\nC\r\n      IZ(J) = -IABS(IZ(J))\r\n      GO TO 179\r\n  175 CONTINUE\r\n  179 M = M + 3\r\n  180 CONTINUE\r\nC\r\nC     ZERO LOADS NOT TO BUILD\r\nC\r\n      M = ILLST - IFLAG + 2\r\n      ISLLST = M\r\n      DO 190 J = 3,IFLAG\r\n      IF (IZ(J) .LT. 0) GO TO 185\r\n      IZ(M) = 0\r\n      GO TO 189\r\n  185 IZ(M) = IABS(IZ(J))\r\n  189 M     = M + 1\r\n  190 CONTINUE\r\n      NEX   = IFLAG - 2\r\n      NZ    = NZ - NEX\r\n      NGRAV = 0\r\n      IHARM = 0\r\n      N1    = NEX\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\nC\r\nC     SET UP SCRATCH FILE FOR QLOADL\r\nC\r\n      ITRAN  = ITRAN1\r\n      IQVECT = ISCR1\r\n      CALL GOPEN (ISCR1,IZ(IBUF1),1)\r\n      CALL MAKMCB (PG,ISCR2,NG,2,1)\r\n      SLT1   = NEWSLT\r\n      BGPDT1 = BGPDT\r\n      CSTM1  = CSTM\r\n      SIL1   = SIL\r\n      EST1   = EST\r\n      MASS   = MGG\r\n      MPT    = MPT1\r\n      CALL GOPEN (PG,IZ(IBUF2),1)\r\n      LC     = IBUF2 - 1\r\n      CALL EXTERN (NEX,NGRAV,GVECT,IZ(ISLLST),PG,N1,IHARM)\r\n      CALL CLOSE  (PG,1)\r\n      CALL WRTTRL (PG)\r\n      CALL WRITE  (ISCR1,MINUS,2,1)\r\n      CALL CLOSE  (ISCR1,1)\r\n      IF (NGRAV .EQ. 0) GO TO 191\r\nC\r\nC     DO GRAVITY LOADS\r\nC\r\n      MCB(1) = MGG\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) CALL MESAGE (-56,0,NAVE)\r\nC\r\nC     SAVE LOAD LIST IN CORE\r\nC\r\n      CALL GOPEN (ISCR4,IZ(IBUF2),1)\r\n      CALL WRITE (ISCR4,IZ(ISLLST),3*NSUBL+NEX,1)\r\n      CALL CLOSE (ISCR4,1)\r\n      CALL GRAVL1 (NGRAV,GVECT,ISCR3,IHARM)\r\n      CALL SSG2B (MGG,ISCR3,0,TMLDTB,0,1,1,AP)\r\n      CALL GRAVL2 (NGRAV,TMLDTB,PG)\r\n      N1 = N1 + NGRAV\r\nC\r\nC     RESTORE LOAD LIST TO CORE\r\nC\r\n      CALL GOPEN (ISCR4,IZ(IBUF2),0)\r\n      CALL FREAD (ISCR4,IZ(ISLLST),3*NSUBL+NEX,1)\r\n      CALL CLOSE (ISCR4,1)\r\nC\r\nC     BUILD SIL  TO SILD CONVERTER\r\nC\r\n  191 CONTINUE\r\n      FILE   = USETD\r\n      CALL GOPEN (USETD,IZ(IBUF1),0)\r\n      MCB(1) = USETD\r\n      CALL RDTRL (MCB)\r\n      LUSETD = MCB(2)\r\n      CALL FREAD (USETD,IZ(1),LUSETD,1)\r\n      CALL CLOSE (USETD,1)\r\n      ISILD  = ISLLST - NG\r\n      MSKUE  = TWO1(IUE)\r\n      L    = ISILD\r\n      DO  200 I = 1,LUSETD\r\n      IF (ANDF(IZ(I),MSKUE) .NE. 0) GO TO 200\r\n      IZ(L)= I\r\n      L    = L + 1\r\n  200 CONTINUE\r\n      NZ   = NZ - NG\r\nC\r\nC     BEGIN LOOP ON EACH TLOAD CARD\r\nC\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      ICLST = 2*LUSETD + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IBUF3 = IBUF2 - SYSBUF\r\n      CALL MAKMCB (MCB,AP,LUSETD,2,1)\r\n      CALL GOPEN (AP,IZ(IBUF2),1)\r\n      ITERM = 0\r\n      CALL GOPEN (TMLDTB,IZ(IBUF3),1)\r\n      IQVRN = 0\r\n      IBUF4 = IBUF3 - SYSBUF\r\n      CALL GOPEN (ISCR3,IZ(IBUF4),1)\r\n      NZ    = IBUF4 - 1\r\n      IF (NZ .LT. 5*LUSETD) GO TO 980\r\n      DO 1000 ILOOP = 1,NSUBL\r\nC\r\nC     ZERO AP AND TAU AREA\r\nC\r\n      K = 2*LUSETD\r\n      DO 210 I = 1,K\r\n      Z(I) = 0.0\r\n  210 CONTINUE\r\nC\r\nC     FIND APPROPRIATE STATIC LOAD\r\nC\r\n      K = ILLST + (ILOOP-1)*3\r\n      SCALE  = Z(K+2)\r\n      IDLOAD = IZ(K )\r\n      IDLTR  = IZ(K+1)\r\n      IF (NOSLT .NE. 0) GO TO 300\r\n      K = ISLLST - 1\r\n      M = 0\r\n      DO 220 I = 1,NEX\r\n      L = K + I\r\n      IF (IZ(L) .EQ. IDLOAD) GO TO 221\r\n      IF (IZ(L) .NE. 0) M = M + 1\r\n  220 CONTINUE\r\n      GO TO 300\r\nC\r\nC     POSITION TO PROPER AP RECORD\r\nC\r\n  221 FILE = PG(1)\r\n      CALL GOPEN (PG,IZ(IBUF1),0)\r\n      CALL SKPREC (PG,M)\r\n      CALL INTPK (*290,PG,0,1,0)\r\n  240 IF (IEOL .NE. 0) GO TO 290\r\n      CALL  ZNTPKI\r\n      ZB(1) = ZB(1)*SCALE\r\n      K = ISILD + III - 1\r\n      K = IZ(K)\r\n      Z(K) = ZB(1)\r\n      GO TO 240\r\n  290 CALL CLOSE (PG,1)\r\nC\r\nC     PROCESS DLT STUFF\r\nC\r\n  300 CALL GOPEN (DLT,IZ(IBUF1),0)\r\n      FILE = DLT\r\n      CALL SKPREC (DLT,IDLTR)\r\n      CALL FREAD (DLT,GVECT,8,0)\r\nC\r\nC     READS AND BUILDS COMPRESSED LIST SILD,AI,TAU,FOR ALL AI.S\r\nC\r\n  320 CALL READ (*910,*330,DLT,IZB,4,0,IFLAG)\r\n      L    = IZB(1)\r\n      Z(L) = ZB(2) + Z(L)\r\n      Z(L+LUSETD) = ZB(3)\r\n      GO TO 320\r\n  330 CALL CLOSE (DLT,1)\r\n      IQR = 0\r\n      ASSIGN 370 TO IRETN\r\n      M = 0\r\n      K = ICLST\r\n      DO 336 I = 1,LUSETD\r\n      IF (Z(I) .EQ. 0.0) GO TO 336\r\n      Z(I)   = Z(I)*SCALE\r\n      M      = M + 1\r\n      IZ(K ) = I\r\n      Z(K+1) = Z(I)\r\n      Z(K+2) = Z(I+LUSETD)\r\n      K      = K + 3\r\n  336 CONTINUE\r\nC\r\nC     SORT ON TAU\r\nC\r\n  339 K = 3*M + ICLST - 4\r\n      IF (ICLST .GT. K) GO TO 1335\r\n      DO 335  L = ICLST,K,3\r\n      IF (Z(L+5).GT.Z(L+2) .OR. (Z(L+5).EQ.Z(L+2) .AND.\r\n     1   IZ(L+3).GE.IZ(L))) GO TO 335\r\n      LL      = L\r\n      IZ(K+4) = IZ(L+3)\r\n      Z(K+5)  = Z(L+4)\r\n      Z(K+6)  = Z(L+5)\r\n  338 IZ(LL+3)= IZ(LL)\r\n      Z(LL+4) = Z(LL+1)\r\n      Z(LL+5) = Z(LL+2)\r\n      LL      = LL - 3\r\n      IF (LL.GE.ICLST .AND. (Z(K+6).LT.Z(LL+2) .OR. (Z(K+6).EQ.Z(LL+2)\r\n     1   .AND. IZ(K+4).LT.IZ(LL)))) GO TO 338\r\n      IZ(LL+3)= IZ(K+4)\r\n      Z(LL+4) = Z(K+5)\r\n      Z(LL+5) = Z(K+6)\r\n  335 CONTINUE\r\n 1335 CONTINUE\r\nC\r\nC     OUTPUT PVECTOR FOR EACH UNIQUE TAU\r\nC\r\n      L    = ICLST\r\nCWKBR 8/94 ALPHA  341 TAUO = Z(L+2)              \r\n  341 ITAUO = IZ(L+2)            \r\n      CALL BLDPK (1,1,AP,0,0)\r\n  345 ZA(1)= Z(L+1)\r\n      IIB  = IZ(L)\r\n      CALL ZBLPKI\r\n      L = L +3\r\nCWKBR 8/94 ALPHA IF (L.LT.3*M+ICLST .AND. Z(L+2).EQ.TAUO) GO TO 345           \r\n      IF (L.LT.3*M+ICLST .AND. IZ(L+2).EQ.ITAUO) GO TO 345     \r\n      CALL BLDPKN (AP,0,MCB)\r\nC\r\nC     PUT OUT LINE OF TIME TABLE\r\nC\r\n      ITERM = ITERM + 1\r\n      CALL WRITE (TMLDTB,ITERM,1,0)\r\n      CALL WRITE (TMLDTB,IDLOAD,1,0)\r\n      CALL WRITE (TMLDTB,GVECT,1,0)\r\nCWKBR 8/94 ALPHA CALL WRITE (TMLDTB,TAUO,1,0)                    \r\n      CALL WRITE (TMLDTB,ITAUO,1,0)              \r\n      CALL WRITE (TMLDTB,GVECT(3),6,0)\r\n      CALL WRITE (TMLDTB,IQR,1,0)\r\n      IF (L .GE. ICLST+3*M) GO TO IRETN, (370,390)\r\n      GO TO 341\r\nC\r\nC     FIND PROPER QVEC RECORD\r\nC\r\n  370 CONTINUE\r\n      IF (NOSLT .NE. 0) GO TO 1000\r\n      CALL GOPEN (ISCR1,IZ(IBUF1),0)\r\n      FILE = ISCR1\r\n  380 CALL READ (*450,*920,ISCR1,IQVID,1,0,IFLAG)\r\n      IF (IQVID .EQ.     -1) GO TO 450\r\n      IF (IQVID .EQ. IDLOAD) GO TO 390\r\n      CALL FWDREC (*910,ISCR1)\r\n      GO TO 380\r\nC\r\nC     BUILD LIST OF SILD,AI,TAU FROM QVEC STUFF\r\nC\r\n  390 CALL FREAD (ISCR1,M,1,0)\r\n      K = ICLST\r\n      IF (M .EQ. -1) GO TO 450\r\n      DO 400 I = 1,M\r\n      CALL FREAD (ISCR1,ZB,2,0)\r\n      ZB(2) = ZB(2)*SCALE\r\n      J = ISILD + IZB(1) - 1\r\n      J = IZ(J)\r\n      IZ(K)  = J\r\n      Z(K+1) = ZB(2)\r\n      Z(K+2) = Z(J+LUSETD)\r\n      K = K + 3\r\n  400 CONTINUE\r\n      IQVRN = IQVRN + 1\r\n      IQR   = IQVRN\r\n      CALL FREAD (ISCR1,IZ(K),9,0)\r\n      CALL WRITE (ISCR3,IZ(K),9,0)\r\n      ASSIGN 390 TO IRETN\r\n      GO TO 339\r\nC\r\nC     END OF QVECT PROCESSING\r\nC\r\n  450 CALL CLOSE (ISCR1,1)\r\nC\r\nC     END OF TLOAD CARD LOOP\r\nC\r\n 1000 CONTINUE\r\n      CALL CLOSE (AP,1)\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (ISCR3,1)\r\nC\r\nC     APPEND QVECT STUFF TO TMLDTB\r\nC\r\n      CALL GOPEN (ISCR3,IZ(IBUF1),0)\r\n      FILE = ISCR3\r\n      CALL WRITE (TMLDTB,0,0,1)\r\n      CALL READ (*1010,*1010,ISCR3,IZ(1),NZ,0,IFLAG)\r\n      GO TO 980\r\n 1010 CALL WRITE (TMLDTB,IZ(1),IFLAG,1)\r\n      CALL CLOSE (TMLDTB,1)\r\n      MCB(1) = TMLDTB\r\n      MCB(2) = ITERM\r\n      MCB(3) = IFLAG\r\n      CALL WRTTRL (MCB)\r\n      CALL CLOSE (ISCR3,1)\r\n 1020 CONTINUE\r\n      RETURN\r\nC\r\nC     FATAL ERRORS\r\nC\r\n  900 IP1 = -1\r\n  901 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  903 CALL MESAGE (-61,0,NAME)\r\n      RETURN\r\n  910 IP1 = -2\r\n      GO TO 901\r\n  920 IP1 = -3\r\n      GO TO 901\r\n  980 CALL MESAGE (-8,0,NAME)\r\n      GO TO 903\r\n  990 CALL MESAGE (-31,IDLOAD,NAMT)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trlgb.f",
    "content": "      SUBROUTINE TRLGB (USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,IFLAG1,SCR1,\r\n     1                  SCR2,SCR3,SCR4)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO REDUCE THE SCALE FACTOR MATRIX\r\nC     AP TO  A TRANS FORMATION MATRIX  AS, AD, AH\r\nC\r\nC     INPUTS (5)\r\nC         USETD\r\nC         AP     SCALE MATRIX --P SIZE\r\nC         GMD    M- SET TRASNFORMATION MATRIX\r\nC         GOD    0- SET TRASNFORMATION MATRIX\r\nC         PHIDH  H- SET TRASNFORMATION MATRIX\r\nC\r\nC     OUTPUTS(3)\r\nC         AS     SCALE MATRIX --S SET\r\nC         AD     SCALE MATRIX --D SET\r\nC         AH     SCALE MATRIX --H SET\r\nC\r\nC     NOTE  IFLAG1 WILL BE SET  TO -1  IF  AP = AD (N0 M,S,O)\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         USETD,AP,GMD,GOD,PHIDH,AS,AD,AH,MCB(7),SCR1,\r\n     1                USET1,ANBAR,AM,AN,AF,ADBAR,AO,ANDF,MULTI,SINGLE,\r\n     2                OMIT,SIGN,TRNSP,PREC,SCR2,SCR3,SCR4,UM,US,UO\r\n      COMMON /BITPOS/ UM,UO,UR,USG,USB,UL,UA,UF,US,UN,UG,UE,UP,UNE,UFE,\r\n     1                UD\r\n      COMMON /ZZZZZZ/ IZ(1)\r\n      COMMON /SYSTEM/ ISKIP(54),IPREC\r\n      COMMON /PATX  / NZ,N1,N2,N3,USET1\r\n      COMMON /TWO   / TWO1(32)\r\nC\r\nC\r\n      ANBAR = SCR2\r\n      AM    = SCR3\r\n      AN    = SCR4\r\n      AF    = SCR2\r\n      ADBAR = SCR3\r\n      AO    = SCR4\r\nC\r\nC     SET FLAGS FOR PRESCENCE OF SETS\r\nC\r\n      MCB(1) = USETD\r\n      CALL RDTRL (MCB)\r\n      USET1  = USETD\r\n      MULTI  = ANDF(MCB(5),TWO1(UM))\r\n      SINGLE = ANDF(MCB(5),TWO1(US))\r\n      OMIT   = ANDF(MCB(5),TWO1(UO))\r\n      MODAL  = 0\r\n      MCB(1) = PHIDH\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .LE. 0) MODAL = 1\r\n      NZ     = KORSZ(IZ)\r\n      SIGN   = 1\r\n      TRNSP  = 1\r\n      PREC   = IPREC\r\nC\r\nC     REMOVE EACH CONSTRAINT\r\nC\r\n      IF (MULTI .EQ. 0) GO TO 10\r\n      IF (SINGLE.EQ.0 .AND. OMIT.EQ.0) AN = AD\r\n      CALL CALCV (SCR1,UP,UNE,UM,IZ)\r\n      CALL SSG2A (AP,ANBAR,AM,SCR1)\r\n      CALL SSG2B (GMD,AM,ANBAR,AN,TRNSP,PREC,SIGN,SCR1)\r\n      GO TO 20\r\nC\r\nC     NO MULTI-POINT CONSTRAINTS\r\nC\r\n   10 AN = AP\r\nC\r\nC     REMOVE SINGLES\r\nC\r\n   20 IF (SINGLE .EQ. 0) GO TO 30\r\n      IF (OMIT  .EQ.  0) AF = AD\r\n      CALL CALCV (SCR1,UNE,UFE,US,IZ)\r\n      CALL SSG2A (AN,AF,AS,SCR1)\r\n      GO TO 40\r\nC\r\nC     NO SINGLES\r\nC\r\n   30 AF = AN\r\n   40 IF (OMIT .EQ. 0) GO TO 50\r\nC\r\nC     REMOVE OMITS\r\nC\r\n      CALL CALCV (SCR1,UFE,UD,UO,IZ)\r\n      IF (AF .EQ. AO) AO = SCR2\r\n      CALL SSG2A (AF,ADBAR,AO,SCR1)\r\n      CALL SSG2B (GOD,AO,ADBAR,AD,TRNSP,PREC,SIGN,SCR1)\r\n      GO TO 60\r\nC\r\nC     NO OMITS\r\nC\r\n   50 AD = AF\r\nC\r\nC     REMOVE TO H SET\r\nC\r\n   60 IF (MODAL .NE. 0) GO TO 70\r\n      CALL SSG2B (PHIDH,AD,0,AH,TRNSP,PREC,SIGN,SCR1)\r\n   70 IFLAG1 = MULTI + SINGLE + OMIT\r\n      IF (IFLAG1 .EQ. 0) IFLAG1 = -1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trlgc.f",
    "content": "      SUBROUTINE TRLGC (TMLDTB,TRL,DIT,ITRL,FCT,FCO,TOL,IFLAG)\r\nC\r\nC     THE PURPOSE OF THIS SUBROUTINE IS TO PRODUCE A MATRIX OF FUNCTIONS\r\nC     OF TIME.  EACH COLUMN IS A TIME STEP (AS DEFINE BY TRL) AND EACH\r\nC     TERM IN A COLUMN CORRESPONDS TO A UNIQUE FUNCTION OF TIME (EITHER\r\nC     BY TABLE FROM TLOAD, TIME DELAY, OR QVECT)\r\nC\r\nC     INPUTS (3)\r\nC         TMLDTB - TABLE SHOWING TIME DEPENDANT DATA\r\nC         TRL    - TIME STEP LIST\r\nC         DIT    - DIRECT INPUT TABLES\r\nC         ITRL   - SELECTED TRL SET NUMBER FROM CASECC\r\nC\r\nC     OUTPUTS(3)\r\nC         FCT    - TIME FUNCTIONS AT ALL TIMES\r\nC         FCO    - TIME FUNCTIONS AT OUTPUT TIMES\r\nC         IFLAG  - -1 IMPLIES ALL TIMES OUTPUT (I.E. FCO = FCT)\r\nC         TOL    - TABLE OF OUTPUT TIMES\r\nC\r\nC     THE FORMAT OF THE  TMLDTB TABLE IS AS FOLLOWS\r\nC         REC NO.  WORD  DESCRIPTION\r\nC         0        1-2   TABLE NAME\r\nC         1        1     TERM NUMBER\r\nC                  2     TLOAD ID\r\nC                  3     TLOAD TYPE(1,2)\r\nC                  4     TAU ( FROM DELAY CARDS--REAL)\r\nC                  5     TID (TABLES FROM TLOAD1 CARD)\r\nC                  5     T1   CONSTANTS FROM TLOAD 2 CARDS\r\nC                  6     T2\r\nC                  7     F\r\nC                  8     P\r\nC                  9     C\r\nC                  10    B\r\nC                  11    QVECT POINTER INTO SECOND RECORD\r\nC\r\nC         WORDS  1 THRU 11 ARE REPEATED FOR EACH UNIQUE TIME FUNCTION\r\nC\r\nC         2        1    I1   QVECT TABLE ID'S\r\nC                  2    I2\r\nC                  3    I3\r\nC                  4    V1   QVECT ORIENTATION VECTORS\r\nC                  5    V2\r\nC                  6    V3\r\nC                  7    V4\r\nC                  8    V5\r\nC                  9    V6\r\nC\r\nC     CORE LAYOUT IS AS FOLLOWS $                                POINT\r\nC     ========================================  ===============  =====\r\nC     TERM DESCRIPTORS (11 WORDS PER TERM)      11*NTERM WORDS   ITERM\r\nC     QVECT STUFF      (9  WORDS PER QVECT)     9*NQVECT WORDS   IQVECT\r\nC     TRL   STUFF      (3 WORDS PER GROUP)      3*NGROUP WORDS+1 TGROUP\r\nC     TABLE LIST       (1 WORD  PER UNIQUETAB)  NTAB WORDS+1     ITAB\r\nC     TABLE DATA        PRETAB STORED           LTAB WORDS       ILTAB\r\nC     TERM VALUES                               NTERM WORDS      IVS\r\nC\r\nC     3    BUFFERS      FCT                                      IBUF1\r\nC                       FCO                                      IBUF2\r\nC                       TOL                                      IBUF3\r\nC\r\n      LOGICAL         DEC\r\n      INTEGER         TMLDTB,TRL,FCT,FCO,TOL,MCB(7),MCB1(7),NAME(2),\r\n     1                SYSBUF,DIT,FILE,ITLIST(13),IZ(1)\r\n      COMMON /BLANK / DUMMY,NCONT\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /ZBLPKX/ ZA(4),II1\r\n      COMMON /SYSTEM/ SYSBUF\r\n      COMMON /PACKX / IT1,IT2,II,JJ,INCR\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      EQUIVALENCE     (Z(1),IZ(1)),(CONSTS(2),TWOPI),(CONSTS(4),DEGRA)\r\n      DATA    NAME  / 4HTRLG,4HC   /\r\n      DATA    ITLIST/ 4,1105,11,1,1205,12,2,1305,13,3,1405,14,4 /\r\nC\r\n      DEC    = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      NOLOAD = 0\r\n      MCB(1) = TMLDTB\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2) .LE. 0) NOLOAD = -1\r\n      MCB(2) = 100\r\n      IGROUP = 1\r\n      IFLAG  =-1\r\n      NZ     = KORSZ(Z)\r\n      IBUF1  = NZ    - SYSBUF\r\n      IBUF2  = IBUF1 - SYSBUF\r\n      IBUF3  = IBUF2 - SYSBUF\r\n      NZ     = IBUF3 - 1\r\n      IF (NZ .LE. 0) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     BRING IN  TIME DATA\r\nC\r\n      IF (NOLOAD .NE. 0) GO TO 30\r\n      ITERM = 1\r\n      LREC  = 11\r\n      FILE  = TMLDTB\r\n      CALL GOPEN (TMLDTB,IZ(IBUF1),0)\r\n      CALL READ (*290,*10,TMLDTB,IZ(ITERM),NZ,0,ILEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n   10 NTERM = ILEN/LREC\r\n      IQVEC = ITERM + ILEN\r\n      NZ    = NZ - ILEN\r\nC\r\nC     BRING IN  QVECT DATA\r\nC\r\n      CALL READ (*290,*20,TMLDTB,IZ(IQVEC),NZ,0,ILEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n   20 NQVECT = ILEN/9\r\n      IGROUP = IQVEC + ILEN\r\n      NZ     = NZ - ILEN\r\n      CALL CLOSE (TMLDTB,1)\r\nC\r\nC     FIND TRL STUFF FOR CORE\r\nC\r\n   30 FILE = TRL\r\n      CALL OPEN (*310,TRL,IZ(IBUF1),0)\r\n      CALL FREAD (TRL,IZ(IGROUP),3,1)\r\n      CALL SKPREC (TRL,IZ(IGROUP+2))\r\n   40 CALL READ (*291,*50,TRL,IZ(IGROUP),NZ,0,ILEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n   50 IF (IZ(IGROUP) .NE. ITRL) GO TO 40\r\n      NGROUP = (ILEN-1)/3\r\n      ITAB   = IGROUP + ILEN\r\n      NZ     = NZ - ILEN\r\n      CALL CLOSE (TRL,1)\r\n      IF (NOLOAD .NE. 0) GO TO 122\r\nC\r\nC     BUILD LIST OF UNIQUE TABLES\r\nC\r\n      NTABL = 1\r\n      K     = ITAB + NTABL\r\n      IZ(K) = 0\r\n      DO 120 I = 1,NTERM\r\n      K = ITERM + LREC*(I-1) + 4\r\n      IF (IZ(K-2) .NE. 3) GO TO 60\r\n      ITID = IZ(K)\r\n      ASSIGN  60  TO IRET\r\n      GO TO 90\r\n   60 K = ITERM + LREC*(I-1) + 10\r\n      IF (IZ(K) .EQ. 0) GO TO 120\r\nC\r\nC     LOOK AT QVECT  TABLE  ID S\r\nC\r\n      IQ   = (IZ(K)-1)*9 + IQVEC\r\n      ITID = IZ(IQ)\r\n      ASSIGN 70  TO IRET\r\n      GO TO 90\r\n   70 ITID = IZ(IQ+1)\r\n      ASSIGN 80 TO IRET\r\n      GO TO 90\r\n   80 ITID = IZ(IQ+2)\r\n      ASSIGN 120 TO IRET\r\nC\r\nC     SEARCH TABLE LIST\r\nC\r\n   90 L = NUMTYP(ITID)\r\n      IF (DEC .AND. ITID.GT.16000 .AND. ITID.LE.99999999) L = 1\r\n      IF (ITID.LE.0 .OR. L.NE.1) GO TO 110\r\n      DO 100 L = 1,NTABL\r\n      K =  ITAB + L\r\n      IF (IZ(K) .EQ. ITID) GO TO 110\r\n  100 CONTINUE\r\nC\r\nC     NEW TABLE\r\nC\r\n      NTABL = NTABL + 1\r\n      K     = ITAB  + NTABL\r\n      IZ(K) = ITID\r\n  110 GO TO IRET, (60,70,80,120)\r\n  120 CONTINUE\r\n      IZ(ITAB) = NTABL\r\n      ILTAB = ITAB + NTABL + 1\r\n      NZ    = NZ - NTABL - 1\r\nC\r\nC     BRING IN TABLE STUFF\r\nC\r\n      LTAB = 0\r\n      IF (NTABL .EQ. 1) GO TO 121\r\n      CALL PRETAB (DIT,IZ(ILTAB),IZ(ILTAB),IZ(IBUF1),NZ,LTAB,IZ(ITAB),\r\n     1             ITLIST)\r\n  121 CONTINUE\r\n      NZ  = NZ - LTAB\r\n      IVS = ILTAB + LTAB\r\n      IF (NZ .LT. NTERM) CALL MESAGE (-8,0,NAME)\r\nC\r\nC     SET UP FOR PACK\r\nC\r\n      IT1 = 1\r\n      IT2 = 1\r\n      II  = 1\r\n      JJ  = NTERM\r\n      INCR= 1\r\n      CALL MAKMCB (MCB, FCT,NTERM,2,IT2)\r\n      CALL MAKMCB (MCB1,FCO,NTERM,2,IT2)\r\nC\r\nC     OPEN OUTPUT FILES\r\nC\r\n      CALL GOPEN (FCT,IZ(IBUF1),1)\r\n  122 CONTINUE\r\n      FILE = TOL\r\n      TO   = 0.0\r\n      IF (NCONT .LE. 2) GO TO 123\r\nC\r\nC     BRING BACK LAST TIME FOR CONTINUE MODE\r\nC\r\n      CALL OPEN  (*310,TOL,IZ(IBUF2),0)\r\n      CALL FREAD (TOL,TO,-NCONT-1,0)\r\n      CALL FREAD (TOL,TO,1,1)\r\n      CALL CLOSE (TOL,1)\r\n  123 CONTINUE\r\n      CALL OPEN  (*310,TOL,IZ(IBUF2),1)\r\n      CALL FNAME (TOL,ZA)\r\n      CALL WRITE (TOL,ZA,2,0)\r\n      IF (NOLOAD .NE. 0) GO TO 150\r\nC\r\nC     DETERMINE IF ALL TIME STEPS OUTPUT\r\nC\r\n      DO 130 I = 1,NGROUP\r\n      K =  IGROUP + (I-1)*3 + 3\r\n      IF (IZ(K) .NE. 1) GO TO 140\r\n  130 CONTINUE\r\n      IFLAG = -1\r\n      GO TO 150\r\n  140 IFLAG = 1\r\n      CALL GOPEN (FCO,IZ(IBUF3),1)\r\n  150 CONTINUE\r\n      T   = TO\r\n      IST = -1\r\n      DO 280 I = 1,NGROUP\r\nC\r\nC     PICK UP  TIME CONSTANTS\r\nC\r\n      K = IGROUP + (I-1)*3 + 1\r\n      NSTEP  = IZ(K)\r\n      IF (I .EQ. NGROUP) NSTEP = NSTEP + 1\r\n      NOUT   = IZ(K+2)\r\n      DELTAT =  Z(K+1)\r\n      IF (I .EQ. 1) NSTEP = NSTEP + 1\r\n      DO 270 J = 1,NSTEP\r\n      IF (NOLOAD .NE. 0) GO TO 231\r\n      DO  230 L = 1,NTERM\r\n      IP = ITERM + (L-1)*LREC\r\n      M  = IZ(IP+2) - 2\r\n      GO TO (160,170), M\r\nC\r\nC     TLOAD1  CARD\r\nC\r\n  160 TT = T - Z(IP+3)\r\n      CALL TAB (IZ(IP+4),TT,FT)\r\n      GO TO 200\r\nC\r\nC     TLOAD2  CARD2\r\nC\r\n  170 TT   = T - Z(IP+3) - Z(IP+4)\r\n      ZRAD = Z(IP+7)*DEGRA\r\n      IF (TT .EQ. 0.0) GO TO 180\r\n      IF (TT.LT. 0.0 .OR. TT.GT.Z(IP+5)-Z(IP+4)) GO TO 190\r\n      FT = TT**Z(IP+9)*EXP(Z(IP+8)*TT)*COS(TWOPI*Z(IP+6)*TT + ZRAD)\r\n      GO TO 200\r\nC\r\nC     TT = 0.0  TRY  LIMITS OF EXPRESSION\r\nC\r\n  180 IF (Z(IP+ 9) .NE. 0.0) GO TO 190\r\n      FT = COS(ZRAD)\r\n      GO TO 200\r\nC\r\nC     FT = 0.0\r\nC\r\n  190 FT = 0.0\r\nC\r\nC     NOW TRY FOR  QVECT  STUFF\r\nC\r\n  200 IF (IZ(IP+10) .EQ. 0) GO TO 220\r\nC\r\nC     EVALUATE  QVECT FUNCTION\r\nC\r\n      IQ = (IZ(IP+10)-1)*9 + IQVEC\r\n      TT = T - Z(IP+3)\r\nC\r\nC     CHECK FOR CONSTANT FLUX VALUE (FLOATING POINT).\r\nC     IF TIME DEPENDENT, CALL TABLE LOOKUP.\r\nC\r\n      IQ1 = IZ(IQ)\r\n      Q1  = Z(IQ)\r\n      LX  = NUMTYP(IQ1)\r\n      IF (DEC .AND. IQ1.GT.16000 .AND. IQ1.LE.99999999) LX = 1\r\n      IF (IQ1.LE.0 .OR. LX.NE.1) GO TO 202\r\n      CALL TAB (IQ1,TT,Q1)\r\n  202 IQ2 = IZ(IQ+1)\r\n      Q2  = Z(IQ+1)\r\n      LX  = NUMTYP(IQ2)\r\n      IF (DEC .AND. IQ2.GT.16000 .AND. IQ2.LE.99999999) LX = 1\r\n      IF (IQ2.LE.0 .OR. LX.NE.1) GO TO 204\r\n      CALL TAB (IQ2,TT,Q2)\r\n  204 IQ3 = IZ(IQ+2)\r\n      Q3  = Z(IQ+2)\r\n      LX  = NUMTYP(IQ3)\r\n      IF (DEC .AND. IQ3.GT.16000 .AND. IQ3.LE.99999999) LX = 1\r\n      IF (IQ3.LE.0 .OR. LX.NE.1) GO TO 206\r\n      CALL TAB (IQ3,TT,Q3)\r\n  206 IF (Z(IQ+6).NE.0.0 .OR. Z(IQ+6).NE.0.0 .OR. Z(IQ+7).NE.0.0 .OR.\r\n     1    Z(IQ+8).NE.0.0) GO TO 210\r\nC\r\nC     V2 = 0\r\nC\r\n      RT = Q1*Z(IQ+3) + Q2*Z(IQ+4) + Q3*Z(IQ+5)\r\n      IF (RT .GT. 0.0) RT = 0.0\r\n      FT = -RT*FT\r\n      GO TO 220\r\nC\r\nC     V2   0\r\nC\r\n  210 FT = SQRT((Q1*Z(IQ+3) + Q2*Z(IQ+4) + Q3*Z(IQ+5))**2 +\r\n     1          (Q1*Z(IQ+6) + Q2*Z(IQ+7) + Q3*Z(IQ+8))**2)*FT\r\n      GO TO 220\r\nC\r\nC     PUT IN FT\r\nC\r\n  220 M    = IVS + L - 1\r\n      Z(M) = FT\r\n  230 CONTINUE\r\nC\r\nC     COLUMN BUILT\r\nC\r\n      CALL PACK (Z(IVS),FCT,MCB)\r\n  231 CONTINUE\r\n      IF (I.EQ.NGROUP .AND. J.EQ.NSTEP-1) GO TO 240\r\n      IF (J.EQ.1 .OR. J.EQ.NSTEP) GO TO 240\r\n      IF (MOD(J+IST,NOUT) .NE. 0) GO TO 260\r\nC\r\nC     OUTPUT TIME\r\nC\r\n  240 CALL WRITE (TOL,T,1,0)\r\n      IF (IFLAG .EQ. -1) GO TO 250\r\n      CALL PACK (Z(IVS),FCO,MCB1)\r\n  250 IF (J .EQ. NSTEP) DELTAT = Z(K+4)\r\n  260 T = T + DELTAT\r\n  270 CONTINUE\r\n      IST = 0\r\n  280 CONTINUE\r\nC\r\nC     ALL OUTPUT\r\nC\r\n      CALL WRITE (TOL,0,0,1)\r\n      CALL CLOSE (TOL,1)\r\n      IF (NOLOAD .NE. 0) GO TO 281\r\n      CALL CLOSE (FCT,1)\r\n      CALL WRTTRL (MCB)\r\n      IF (IFLAG .EQ. -1) GO TO 281\r\n      CALL CLOSE (FCO,1)\r\n      CALL WRTTRL (MCB1)\r\n  281 CONTINUE\r\n      MCB(1) = TOL\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  290 IP1 = -2\r\n  300 CALL MESAGE (IP1,FILE,NAME)\r\n      RETURN\r\n  310 IP1 = -1\r\n      GO TO 300\r\nC\r\nC     NO PROPER TSTEP CARD FOUND\r\nC\r\n  291 CALL MESAGE (-31,ITRL,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trlgd.f",
    "content": "      SUBROUTINE TRLGD(FCT,FCO,AP,AS,AD,AH,\r\n     1     PPO,PSO,PDO,PDT,PHT,IFLAG1,SCR1,IFLAG      )\r\nC\r\nC     THE PURPOSE OF THIS SUBROUTINE IS TO COMPUTE LOAD FACTORS\r\nC         BOTH AT APPLIED TIMES(T) AND OUTPUT TIMES(O).\r\nC\r\nC     INPUTS (6)\r\nC\r\nC       FCT --MATRIX OF TIME FUNCTIONS--ALL TIMES\r\nC       FCO --MATRIX OF TIME FUNCTIONS--OUTPUT TIMES\r\nC       IFLAG =-1   IMPLIES FCT = FCO AND ONLY FCT EXISTS\r\nC         NOTE THAT ALSO IMPLIES PDO = PDT\r\nC       AP,AS,AD,AH  ARE TRANSFORMATION MATRICIES TO P,S,D,AND H SET RES\r\nC\r\nC     OUTPUTS (5)\r\nC       PPO,PSO,PDO  LOADS AT OUTPUT TIMES(ANY MAY NOT EXIST)\r\nC       PDT,PHT      LOADS AT ALL TIMES (ANY MAY NOT EXIST)\r\nC\r\nC     SCR1          SCRATCH FILE FOR MPYAD\r\nC\r\nC     IFLAG1 =-1  IMPLIES THAT AP = AD\r\nC\r\nC     FCT MAY BE FCO, IN CASE OF EQUALITY THE T FILES WILL EXIST\r\nC\r\n      INTEGER  FCT,FCO,AP,AS,AD,AH,PPO,PSO,PDT,PHT,SCR1,MCB(7)\r\n     1, TRNSP,SIGN,PREC,PDO\r\nC\r\n      COMMON /SYSTEM/ISKIP(54),IPREC\r\nC\r\n      SIGN = +1\r\n      TRNSP = 0\r\n      PREC = IPREC\r\nC\r\nC     FORM PPO\r\nC\r\n      MCB(1) = PPO\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1) .LE. 0) GO TO 10\r\n      CALL SSG2B(AP,FCO,0,PPO,TRNSP,PREC,SIGN,SCR1)\r\n      MCB(1) = PPO\r\n      CALL RDTRL(MCB)\r\n      MCB(2) = MCB(2) -1\r\n      CALL WRTTRL(MCB)\r\n   10 CONTINUE\r\nC\r\nC     FORM   PSO\r\nC\r\n      MCB(1) = PSO\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 20\r\n      MCB(1) = AS\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(2) .LE. 0)  GO TO 20\r\n      CALL SSG2B(AS,FCO,0,PSO,TRNSP,PREC,SIGN,SCR1)\r\n      MCB(1) = PSO\r\n      CALL RDTRL(MCB)\r\n      MCB(2) = MCB(2) -1\r\n      CALL WRTTRL(MCB)\r\n   20 CONTINUE\r\nC\r\nC     BUILD PDO\r\nC\r\n      IF(IFLAG1 .EQ. -1) GO TO 30\r\n      MCB(1) = PDO\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 30\r\n      CALL SSG2B(AD,FCO,0,PDO,TRNSP,PREC,SIGN,SCR1)\r\n      MCB(1) = PDO\r\n      CALL RDTRL(MCB)\r\n      MCB(2) = MCB(2) -1\r\n      CALL WRTTRL(MCB)\r\n   30 CONTINUE\r\nC\r\nC     BUILD PDT\r\nC\r\n      MCB(1) = PDT\r\n      CALL RDTRL(MCB)\r\n      IF (MCB(1) .LE. 0) GO TO 40\r\n      CALL SSG2B(AD,FCT,0,PDT,TRNSP,PREC,SIGN,SCR1)\r\n   40 CONTINUE\r\nC\r\nC     BUILD PHT\r\nC\r\n      MCB(1) = PHT\r\n      CALL RDTRL(MCB)\r\n      IF(MCB(1) .LE. 0) GO TO 50\r\n      CALL SSG2B(AH,FCT,0,PHT,TRNSP,PREC,SIGN,SCR1)\r\n   50 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trmemd.f",
    "content": "      SUBROUTINE TRMEMD\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR\r\nC     THE  TRIANGULAR MEMBRANE ELEMENT.  CALCULATIONS ARE PERFORMED\r\nC     PRIMARILY BY SUBROUTINES EKTRMS AND EMASTQ.\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE TRMEM ELEMENT\r\nC***********************************************************************\r\nC INDEX   DESCRIPTION                                       TYPE\r\nC *****   ***********                                       ****\r\nC   1     ELEMENT ID                                         I\r\nC   2-4   GRID POINTS A,B,AND C                              I\r\nC   5     THETA = ANGLE OF MATERIAL                          R\r\nC   6     MATERIAL ID                                        I\r\nC   7     T                                                  R\r\nC   8     NON-STRUCTURAL MASS                                R\r\nC   9     COORDINATE SYSTEM ID 1                             I\r\nC 10-12   X1,Y1,Z1                                           R\r\nC  13     COORDINATE SYSTEM ID 2                             I\r\nC 14-16   X2,Y2,Z2                                           R\r\nC  17     COORDINATE SYSTEM ID 3                             I\r\nC 18-20   X3,Y3,Z3                                           R\r\nC  21     ELEMENT TEMPERATURE                                R\r\nC***********************************************************************\r\n      DOUBLE PRECISION  K,KOUT,M(9),MOUT(9),KSAVE\r\n     1,                 A,PROD9,TEMP9,XSUB,BFACT,E\r\n      LOGICAL NOGO,HEAT\r\n      INTEGER ELID,ESTID, DICT(10), IPART(3), NECPT(50), NGRID(3)\r\nC\r\n      COMMON /SYSTEM /  KSYSTM (60)\r\n      COMMON /EMGPRM / DM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC /  QQ(3), ELID, ESTID\r\n      COMMON /EMGEST /  ECPT(50)\r\n      COMMON /EMGTRX /  A(225),PROD9(9),TEMP9(9),XSUB(3),BFACT,\r\n     X                  E(18), K(324), KOUT(324),KSAVE(81)\r\nC\r\n      EQUIVALENCE   (ECPT(1),NECPT(1),IELID), (DICT5,DICT(5))\r\n      EQUIVALENCE   (K(1),M(1)),(KOUT(1),MOUT(1)),(KSYSTM(2),IOUTPT)\r\n      EQUIVALENCE   (KSYSTM(56), IHEAT), (ECPT(2), NGRID(1))\r\nC\r\n      DATA  IPART / 1,2, 3/\r\nC\r\nC\r\nC\r\n      IP = IPREC\r\n      DICT(1) = ESTID\r\nC\r\nC     CREATE AN ARRAY POINTING TO GRID POINTS IN INCREASING ORDER\r\nC\r\n  100 DO 140 I=1,2\r\n      IP1 = I+1\r\n      II =  IPART(I)\r\n      DO 120  J=IP1,3\r\n      JJ = IPART(J)\r\n      IF (NGRID(II).LE. NGRID(JJ)) GOTO 120\r\n      IPART(I) =JJ\r\n      IPART(J) =II\r\n      II = JJ\r\n      GO TO 100\r\n  120 CONTINUE\r\n  140 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX IS REQUESTED CALL EKTRMS. OTHERWISE GO TO\r\nC     MASS MATRIX CALCULATION SECTION\r\nC\r\n      IF (ISMB(1) .EQ. 0 ) GO TO  300\r\nC\r\n      CALL EKTRMD (0)\r\nC\r\n      IF (NOGO) RETURN\r\nC\r\nC     RE-ORDER  THE STIFFNESS MATRIX BY INCREASING SIL VALUE\r\nC\r\n      IF (HEAT) GO TO 200\r\n      DO 190 I=1,3\r\n      II = IPART(I)\r\n      DO 180 J=1,3\r\n      JJ = IPART(J)\r\n      DO 170 KA=1,3\r\n      DO 160 L=1,3\r\n      ISAVE = (II-1)*27 + (JJ-1) *9 + (KA-1)*3  + L\r\n      IOUT = (I-1)*27 + (J-1)*3  +  (KA-1)*9  + L\r\n  160 K(IOUT)=KSAVE(ISAVE)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC    OUTPUT THE MATRIX\r\n      DICT(2)=1\r\n      DICT(3)=9\r\n      DICT(4)=7\r\nC\r\n      CALL EMGOUT(K,K,81,1,DICT,1,IP)\r\n      GO TO 300\r\nC\r\nC     OUTPUT HEAT MATRIX HERE\r\nC\r\n  200 DO 260 I=1,3\r\n      DO 240 J=1,3\r\n      IOUT = (I-1)* 3+ J\r\n      IK  =  (IPART(I)-1)* 3 + IPART(J)\r\n  240 K(IOUT)=KSAVE(IK)\r\n  260 CONTINUE\r\nC     OUTPUT   HEAT  K\r\n      DICT(2) = 1\r\n      DICT(3) = 3\r\n      DICT(4) = 1\r\nC\r\n      CALL EMGOUT (K,K,9,1,DICT,1,IP)\r\nC\r\nC     PERFORM MASS MATRIX CALCULATIONS HERE\r\nC\r\n  300 IF (ISMB(2)  .EQ.0) RETURN\r\nC\r\nC     CONVENTIONAL MASS MATRIX\r\nC\r\n      CALL EMADTQ (4,M)\r\nC     REORDER THE MASS MATRIX\r\n      IF (HEAT) GO TO 350\r\n      DO 340 I=1,3\r\n      II = (I-1)*3\r\n      IJ = IPART(I)\r\n      JJ = (IJ-1)*3\r\n      DO  320 J=1,3\r\n      IOUT = II + J\r\n      IK = JJ + J\r\n  320 MOUT(IOUT) =  M(IK)\r\n  340 CONTINUE\r\nC\r\n      DICT(2) =2\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\nC\r\n      CALL EMGOUT (MOUT, MOUT, 9,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION\r\nC\r\n  350 DO 360 I=1,3\r\n      J=IPART(I)\r\n  360 MOUT(I)=M(J)\r\n      DICT(2)=2\r\n      DICT(3)=3\r\n      DICT(4)=1\r\nC\r\n      CALL EMGOUT(MOUT,MOUT,3,1,DICT,2,IP)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trmems.f",
    "content": "      SUBROUTINE TRMEMS\r\nC\r\nC     THIS SUBROUTINE CALCULATES THE STIFFNESS AND MASS MATRICES FOR\r\nC     THE  TRIANGULAR MEMBRANE ELEMENT.  CALCULATIONS ARE PERFORMED\r\nC     PRIMARILY BY SUBROUTINES EKTRMS AND EMASTQ.\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE TRMEM ELEMENT\r\nC***********************************************************************\r\nC INDEX   DESCRIPTION                                       TYPE\r\nC *****   ***********                                       ****\r\nC   1     ELEMENT ID                                         I\r\nC   2-4   GRID POINTS A,B,AND C                              I\r\nC   5     THETA = ANGLE OF MATERIAL                          R\r\nC   6     MATERIAL ID                                        I\r\nC   7     T                                                  R\r\nC   8     NON-STRUCTURAL MASS                                R\r\nC   9     COORDINATE SYSTEM ID 1                             I\r\nC 10-12   X1,Y1,Z1                                           R\r\nC  13     COORDINATE SYSTEM ID 2                             I\r\nC 14-16   X2,Y2,Z2                                           R\r\nC  17     COORDINATE SYSTEM ID 3                             I\r\nC 18-20   X3,Y3,Z3                                           R\r\nC  21     ELEMENT TEMPERATURE                                R\r\nC***********************************************************************\r\n      REAL K,KOUT,M(1),MOUT(1),KSAVE\r\n      LOGICAL NOGO,HEAT\r\n      INTEGER ELID,ESTID, DICT(10), IPART(3), NECPT(50), NGRID(3)\r\nC\r\n      COMMON /SYSTEM /  KSYSTM (60)\r\n      COMMON /EMGPRM / DM(15),ISMB(3),IPREC,NOGO,HEAT,ICMBAR\r\n      COMMON /EMGDIC /  QQ(3), ELID, ESTID\r\n      COMMON /EMGEST /  ECPT(50)\r\n      COMMON /EMGTRX /  A(225),PROD9(9),TEMP9(9),XSUB(3),BFACT,\r\n     X                  E(18), K(324), KOUT(324),KSAVE(81)\r\nC\r\n      EQUIVALENCE   (ECPT(1),NECPT(1),IELID), (DICT5,DICT(5))\r\n      EQUIVALENCE   (K(1),M(1)),(KOUT(1),MOUT(1)),(KSYSTM(2),IOUTPT)\r\n      EQUIVALENCE   (KSYSTM(56), IHEAT), (ECPT(2), NGRID(1))\r\nC\r\n      DATA  IPART / 1,2, 3/\r\nC\r\nC\r\nC\r\n      IP = IPREC\r\n      DICT(1) = ESTID\r\nC\r\nC     CREATE AN ARRAY POINTING TO GRID POINTS IN INCREASING ORDER\r\nC\r\n  100 DO 140 I=1,2\r\n      IP1 = I+1\r\n      II =  IPART(I)\r\n      DO 120  J=IP1,3\r\n      JJ = IPART(J)\r\n      IF (NGRID(II).LE. NGRID(JJ)) GOTO 120\r\n      IPART(I) =JJ\r\n      IPART(J) =II\r\n      II = JJ\r\n      GO TO 100\r\n  120 CONTINUE\r\n  140 CONTINUE\r\nC\r\nC     IF STIFFNESS MATRIX IS REQUESTED CALL EKTRMS. OTHERWISE GO TO\r\nC     MASS MATRIX CALCULATION SECTION\r\nC\r\n      IF (ISMB(1) .EQ. 0 ) GO TO  300\r\nC\r\n      CALL  EKTRMS (0)\r\nC\r\n      IF (NOGO) RETURN\r\nC\r\nC     RE-ORDER  THE STIFFNESS MATRIX BY INCREASING SIL VALUE\r\nC\r\n      IF (HEAT) GO TO 200\r\n      DO 190 I=1,3\r\n      II = IPART(I)\r\n      DO 180 J=1,3\r\n      JJ = IPART(J)\r\n      DO 170 KA=1,3\r\n      DO 160 L=1,3\r\n      ISAVE = (II-1)*27 + (JJ-1) *9 + (KA-1)*3  + L\r\n      IOUT = (I-1)*27 + (J-1)*3  +  (KA-1)*9  + L\r\n  160 K(IOUT)=KSAVE(ISAVE)\r\n  170 CONTINUE\r\n  180 CONTINUE\r\n  190 CONTINUE\r\nC    OUTPUT THE MATRIX\r\n      DICT(2)=1\r\n      DICT(3)=9\r\n      DICT(4)=7\r\nC\r\n      CALL EMGOUT(K,K,81,1,DICT,1,IP)\r\n      GO TO 300\r\nC\r\nC     OUTPUT HEAT MATRIX HERE\r\nC\r\n  200 DO 260 I=1,3\r\n      DO 240 J=1,3\r\n      IOUT = (I-1)* 3+ J\r\n      IK  =  (IPART(I)-1)* 3 + IPART(J)\r\n  240 K(IOUT)=KSAVE(IK)\r\n  260 CONTINUE\r\nC     OUTPUT   HEAT  K\r\n      DICT(2) = 1\r\n      DICT(3) = 3\r\n      DICT(4) = 1\r\nC\r\n      CALL EMGOUT (K,K,9,1,DICT,1,IP)\r\nC\r\nC     PERFORM MASS MATRIX CALCULATIONS HERE\r\nC\r\n  300 IF (ISMB(2)  .EQ.0) RETURN\r\nC\r\nC     CONVENTIONAL MASS MATRIX\r\nC\r\n      CALL EMASTQ ( 4,M )\r\nC     REORDER THE MASS MATRIX\r\n      IF (HEAT) GO TO 350\r\n      DO 340 I=1,3\r\n      II = (I-1)*3\r\n      IJ = IPART(I)\r\n      JJ = (IJ-1)*3\r\n      DO  320 J=1,3\r\n      IOUT = II + J\r\n      IK = JJ + J\r\n  320 MOUT(IOUT) =  M(IK)\r\n  340 CONTINUE\r\nC\r\n      DICT(2) =2\r\n      DICT(3) = 9\r\n      DICT(4) = 7\r\nC\r\n      CALL EMGOUT (MOUT, MOUT, 9,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     HEAT FORMULATION\r\nC\r\n  350 DO 360 I=1,3\r\n      J=IPART(I)\r\n  360 MOUT(I)=M(J)\r\n      DICT(2)=2\r\n      DICT(3)=3\r\n      DICT(4)=1\r\nC\r\n      CALL EMGOUT(MOUT,MOUT,3,1,DICT,2,IP)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trnsp.f",
    "content": "      SUBROUTINE TRNSP (CORE)\r\nC\r\nC     OUT-OF-CORE MATRIX TRANSPOSE USING 1 TO 8 SCRATCH FILES - NASTRAN\r\nC     ORIGINAL ROUTINE.\r\nC\r\nC     (SEE TRANSP FOR IN-CORE MATRIX TRANSPOSE FOR UPPER TRIAG. MATRIX,\r\nC      AND TRNSPS FOR OUT-OF-CORE MATRIX TRANSPOSE WITH 1 SCRATCH FILE,\r\nC      A NASTRAN NEW ROUTINE)\r\nC\r\nC     REVERT TO NASTRAN ORIGINAL TRNSP IF DIAG 41 IS ON, OR 94TH WORD OF\r\nC     /SYSTEM/ IS 1000. OTHERWISE SEND THE TRANSPOSE JOB TO THE NEW\r\nC     TRNSPS ROUTINE, EXECPT LOWER AND UPPER TRIANGULAR MATRICES\r\nC\r\n      INTEGER         SCRTH,OTPE,SYSBUF,TRB1\r\n      DIMENSION       CORE(1),TRB1(7,8),A(2),IPARM(2),NAME(2),ZERO(4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /TRNSPX/ NAMEA ,NCOLA ,NROWA ,IFORMA,ITYPA ,IA(2),\r\n     1                NAMEAT,NCOLAT,NROWAT,IFORAT,ITYPAT,IAT(2),\r\n     2                LCARE,NSCRH,SCRTH(8)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYSBUF,OTPE,SKIP(91),KSYS94\r\n      COMMON /PACKX / IOTYP,IOTYPA,II,JJ,INCR\r\n      COMMON /UNPAKX/ IOTYP1,IS1,NROW1,INCR1\r\n      DATA    IPARM / 4HTRAN,4HPOSE/, ZERO / 4*0.0   /\r\n      DATA    NAME  / 4HTRNS,4HP   /\r\nC\r\n      IF (NSCRH .NE. 8) CALL CONMSG (IPARM,2,0)\r\n      IAT(1) = 0\r\n      IAT(2) = 0\r\n      INCR1  = 1\r\n      II     = 1\r\n      IF (ITYPAT .EQ. 0) ITYPAT = ITYPA\r\n      IOTYP  = MIN0(ITYPAT,ITYPA)\r\n      IOTYPA = IOTYP\r\n      IOTYP1 = IOTYP\r\n      IF (IFORMA.EQ.4 .OR. IFORMA.EQ.5) GO TO 50\r\nC               LOWER            UPPER TRIANG. MATRICES\r\nC\r\n      J = MOD(KSYS94,10000)/1000\r\n      IF (J .EQ. 1) GO TO 50\r\n      CALL SSWTCH (41,J)\r\n      IF (J .EQ. 1) GO TO 50\r\nC\r\nC     NASTRAN MAINTENANCE WORK IS DONE ON VAX\r\nC\r\n      IF (MACH.NE.5 .OR. IFORMA.LT.3 .OR. IFORMA.EQ.6) GO TO 40\r\nC               VAX      NOT SQUARE, RECTANG., AND SYMM.\r\n      CALL FNAME (NAMEA,A)\r\n      WRITE  (4,30) A,IFORMA\r\n   30 FORMAT (40X,'MATRIX ',2A4,', FORM =',I2,' ===>TRNSPS')\r\n   40 NCOLAT = 0\r\n      NSCRTH = 1\r\n      CALL TRNSPS (CORE,CORE)\r\n      GO TO 500\r\nC\r\n   50 IPARM1 = NAMEA\r\n      NSCRTH = NSCRH\r\n      IM1    = 1\r\n      NCALAT = NCOLAT\r\n      NCOLAT = 0\r\n      IJ1    = 0\r\n      LAST   = 1\r\n      NTYPE  = IOTYPA\r\n      IF (NTYPE .EQ. 3) NTYPE = 2\r\n      LCORE  = LCARE\r\n      IBUF1  = LCORE - SYSBUF\r\n      IBUF   = IBUF1 - SYSBUF\r\n      LCORE  = IBUF  - 1\r\n      IF (LCORE) 440,440,70\r\nC\r\nC     COMMENT FROM G.CHAN/UNISYS    1/91\r\nC     ABOUT THE SQUARE OR RECTANGULAR MATRIX TRANSPOSE BY THE VAX -\r\nC     DATA, 1.0**-10 OR SMALLER, ON THE TRANSPOSED MATRIX MAY DIFFER\r\nC     FROM THE ORIGINAL VALUES. CAN NOT EXPLAIN WHY.\r\nC     THE NORMAL DATA, 1.0**+5 OR LARGER, ARE ALL OK.\r\nC     (NO CHECK ON THE OTHER MACHINES)\r\nC\r\n   70 NROWO  = MIN0(NROWAT,NCOLA)\r\n      NBRUT  = LCORE/(NROWO*NTYPE)\r\n      IF (NBRUT .EQ. 0) GO TO 440\r\n      NREM   = NBRUT\r\n      IF (NBRUT .GT. NCALAT) GO TO 380\r\n      K = AMAX1(FLOAT(NROWAT)*SQRT(FLOAT(NTYPE)/FLOAT(LCORE)),1.0)\r\n   80 NROW2 = NBRUT*K\r\n      NROW  = MIN0(NSCRTH*NROW2,NCALAT)\r\n      KM    = (NCALAT+NROW-1)/NROW\r\n      ICOL  = NBRUT*NTYPE\r\n      IF (LCORE .LT. NROW*NTYPE+(NSCRTH-1)*SYSBUF) GO TO 440\r\nC\r\nC     THERE ARE NROW2 ROWS IN EACH SUBMATRIX\r\nC     WE GENERATE NROW ROWS PER PASS OF FULL MATRIX\r\nC     THERE WILL BE KM SUCH PASSES\r\nC\r\n      IOLOOP = 1\r\n   90 IF (IJ1) 210,100,210\r\n  100 IF (IOLOOP .EQ. KM) GO TO 390\r\n      NROW1 = NROW*IOLOOP\r\n  110 IS1   = NROW1 - NROW + 1\r\n      IF (IOLOOP .NE. 1) GO TO 120\r\n      IPARM1= NAMEA\r\n      CALL OPEN (*410,NAMEA,CORE(IBUF1),0)\r\n  120 CALL FWDREC (*420,NAMEA)\r\n      NL = NROW*NTYPE\r\nC\r\nC     OPEN SCRATCHES\r\nC\r\n      J = IBUF\r\n      DO 140 I = 1,NSCRTH\r\n      IPARM1 = SCRTH(I)\r\n      CALL OPEN (*410,SCRTH(I),CORE(J),1)\r\n      J = J - SYSBUF\r\n      DO 130 III = 1,7\r\n  130 TRB1(III,I) = 0\r\n  140 CONTINUE\r\n      DO 200 ILOOP = 1,NROWO\r\n      CALL UNPACK (*180,NAMEA,CORE)\r\n  150 IK = 1\r\n      JJ = NROW2\r\n      INCR = 1\r\n      DO 160 I = 1,NSCRTH\r\n      CALL PACK (CORE(IK),SCRTH(I),TRB1(1,I))\r\n      IK = IK + NROW2*NTYPE\r\n  160 CONTINUE\r\nC\r\nC     END LOOP ON BUILDING 1 COL OF SUB MATRICES\r\nC\r\n      GO TO 200\r\nC\r\n  180 DO 190 I = 1,NL\r\n  190 CORE(I) = 0.0\r\n      GO TO 150\r\n  200 CONTINUE\r\n      CALL REWIND (NAMEA)\r\nC\r\nC     END LOOP ON BUILDING NSCRATH SUB MATRICES\r\nC\r\n      DO 201 I = 1,NSCRTH\r\n      CALL CLOSE (SCRTH(I),1)\r\n  201 CONTINUE\r\n  210 DO 350 J = 1,NSCRTH\r\n      IF (IJ1) 230,220,230\r\n  220 IF (IOLOOP.NE.KM .OR. J.NE.NSCRTH) GO TO 230\r\n      LAST = 0\r\n  230 DO 340 M = 1,K\r\n      IPARM1 = SCRTH(J)\r\n      CALL OPEN (*410,SCRTH(J),CORE(IBUF),0)\r\n      IF (LAST.EQ.1 .OR. NCALAT-NCOLAT.GE.NREM) GO TO 240\r\n      NBRUT = NCALAT - NCOLAT\r\n      ICOL  = NBRUT*NTYPE\r\n      IS1   = (M-1)*NREM + 1\r\n      NROW1 = IS1 + NBRUT\r\n      GO TO 270\r\n  240 IF (IJ1) 250,260,250\r\n  250 CALL FWDREC (*420,SCRTH(J))\r\n  260 IS1   = (M-1)*NBRUT + 1\r\n      NROW1 = NBRUT*M\r\n  270 L = 1\r\n      DO 310 I = 1,NROWO\r\n      CALL UNPACK (*280,SCRTH(J),CORE(L))\r\n      GO TO 300\r\n  280 DO 290 NL = 1,ICOL\r\n      M2 = NL + L - 1\r\n  290 CORE(M2) = 0.0\r\n  300 L = L + ICOL\r\n  310 CONTINUE\r\n      CALL CLOSE (SCRTH(J),1)\r\n      IPARM1 = NAMEAT\r\n      CALL OPEN (*410,NAMEAT,CORE(IBUF),IM1)\r\n      IF (IM1 .EQ. 3) GO TO 320\r\n      CALL FNAME (NAMEAT,A(1))\r\n      CALL WRITE (NAMEAT,A(1),2,1)\r\n      IM1  = 3\r\n  320 INCR = NBRUT\r\n      JJ = NROWO\r\n      DO 330 L = 1,NBRUT\r\n      M2 = NTYPE*(L-1) + 1\r\n      CALL PACK (CORE(M2),NAMEAT,NAMEAT)\r\n  330 CONTINUE\r\n      CALL CLOSE (NAMEAT,2)\r\nC\r\nC     END LOOP ON SUBMATRIX\r\nC\r\n      IF (NCOLAT .GE. NCALAT) GO TO 350\r\n  340 CONTINUE\r\nC\r\nC     END LOOP ON EACH SCRATCH\r\nC\r\n  350 CONTINUE\r\nC\r\nC     END LOOP ON EACH PASS THROUGH LARGE MATRIX\r\nC\r\n      IOLOOP = IOLOOP + 1\r\n      IF (IOLOOP .LE. KM) GO TO 90\r\n      IPARM1 = NAMEAT\r\n      CALL OPEN  (*410,NAMEAT,CORE(IBUF),3)\r\n      CALL CLOSE (NAMEAT,1)\r\n      CALL CLOSE (NAMEA, 1)\r\n      GO TO 500\r\nC\r\nC     ONE PASS ONLY\r\nC\r\n  380 NSCRTH  = 1\r\n      SCRTH(1)= NAMEA\r\n      NBRUT   = NCALAT\r\n      K   = 1\r\n      IJ1 = 1\r\n      IOTYP = ITYPA\r\n      GO TO 80\r\n  390 IOVER = NCALAT - (KM-1)*NROW\r\n      NBRUT = MIN0(NBRUT,IOVER)\r\n      ICOL  = NBRUT*NTYPE\r\n      NROW  = IOVER\r\n      NROW2 = MIN0(NBRUT*K,NROW)\r\n      K     = (NROW2+NBRUT-1)/NBRUT\r\n      NSCRTH= MIN0((IOVER+K*NBRUT-1)/(K*NBRUT),NSCRTH)\r\n      IF (NSCRTH .EQ. 0) NSCRTH =  1\r\n      NROW1 = NCALAT\r\n      GO TO 110\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  410 N1 = -1\r\n      GO TO 450\r\n  420 N1 = -2\r\n      GO TO 450\r\n  440 N1 = -8\r\n  450 CALL MESAGE (N1,IPARM1,NAME)\r\nC\r\nC     ONE FINAL CHECK BEFORE RETURN\r\nC\r\n  500 IF (IFORMA.EQ.3 .OR. IFORMA.EQ.7) GO TO 520\r\n      IF (NCOLAT.EQ.NROWA .AND. NROWAT.EQ.NCOLA) GO TO 520\r\n      CALL FNAME (NAMEA,A)\r\n      WRITE (OTPE,510) SWM,A,IFORMA,NCOLA,NROWA,IFORAT,NCOLAT,NROWAT\r\n  510 FORMAT (A27,' FORM TRNSP. TRANSPOSED MATRIX APPEARS IN ERROR',\r\n     1    /5X,'ORIGINAL ',2A4, ' - FORM =',I3,',  (',I6,' X',I6,')',\r\n     2    /5X,'TRNASPOSED MATRIX - FORM =',I3,',  (',I6,' X',I6,')')\r\n  520 IF (NSCRH .NE. 8) CALL CONMSG (IPARM,2,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trnsps.f",
    "content": "      SUBROUTINE TRNSPS (Z,IZ)\r\nC\r\nC     MATRIX TRANSPOSE ROUTINE REPLACING NASTRAN ORIGINAL TRNSP, WHICH\r\nC     IS AT LEAST 2 TO 4 TIMES SLOWER (COMPARISON DONE ON VAX), AND\r\nC     USING UP TO 8 SCRATCH FILES\r\nC\r\nC     WITH BOTH IN-CORE AND OUT-OF-CORE LOGICS\r\nC     (USE TRANSP FOR IN-CORE MATRIX TRANSPOSE)\r\nC\r\nC     IF DGFLAG = -123457890 (SET BY DTRANP), AND INPUT IS A UPPER OR\r\nC     LOWER TRIANGULAR MATRIX, THE DIAGONAL ELEMENTS ARE REPLACED BY\r\nC     UNITY (1.0)\r\nC\r\nC     CALLER MUST SUPPLY A SCRATCH FILE ISCR, IF MATRIX TO BE TRANSPOSED\r\nC     IS SQUARE, RECTANGULAR, LOWER, AND UPPER TRIAGULAR (FORM 1,2,4,5).\r\nC\r\nC     THIS ROUTINE SETS UP THE OUTPUT MATRIX TRAILER WORDS IN NAMEAT\r\nC     (FILEAT) BUT IT DOES NOT CALL WRTTRL TO WRITE THEM OUT\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS  12/91\r\nC\r\n      LOGICAL          DEBUG\r\n      INTEGER          IZ(2),SYSBUF,BASE,FILE,DGFLAG,FILEA(7),FILEAT(7)\r\n      DIMENSION        Z(6),A(2),NAM(2)\r\n      DOUBLE PRECISION DA\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /BLANK /  DGFLAG\r\n      COMMON /TRNSPX/  NAMEA, NCOLA, NROWA, IFORMA,ITYPA, IA(2),\r\n     1                 NAMEAT,NCOLAT,NROWAT,IFORAT,ITYPAT,IAT(2),\r\n     2                 LCORE,NSCR,ISCR\r\n      COMMON /SYSTEM/  SYSBUF,NOUT\r\n      COMMON /PACKX /  IOTYP,IOTYPA,IP,JP,INCR\r\n      COMMON /UNPAKX/  IOTYP1,IU,JU,INCR1\r\n      COMMON /TYPE  /  RC(2),IWORDS(4)\r\n      COMMON /NAMES /  RD,RDREW,WRT,WRTREW,CLSREW\r\n      EQUIVALENCE      (FILEA(1),NAMEA),(FILEAT(1),NAMEAT),(A(1),DA)\r\n      DATA    NAM   /  4HTRNS,4HPS    /, DEBUG / .FALSE. /\r\nC\r\n      CALL SSWTCH (19,I)\r\n      IF (I .EQ. 1) DEBUG = .TRUE.\r\n      LAST   = 1\r\n      NTYPE  = IOTYPA\r\n      IF (NTYPE .EQ. 3) NTYPE = 2\r\n      IBUF1  = LCORE - SYSBUF\r\n      IBUF   = IBUF1 - SYSBUF\r\n      NZ     = IBUF  - 1\r\n      IMHERE = 10\r\n      IF (NZ .LE. 0) GO TO 820\r\n      NREC   = 0\r\n      FILE   = NAMEA\r\n      IF (IFORMA.GT.2 .OR. NCOLA.EQ.1)\r\n     1    CALL OPEN (*800,NAMEA,Z(IBUF1),RDREW)\r\n      DO 10 I = 2,7\r\n   10 FILEAT(I) = FILEA(I)\r\n      IF (DEBUG) WRITE (NOUT,20) FILEAT\r\n   20 FORMAT (' TRNSPS/@5 BEFORE TRANSPOSE, TRAIL-AT =',7I8)\r\n      GO TO (30,30,530,600,600,500,730,550), IFORMA\r\nC\r\nC     SQUARE AND RECTANGULAR MATRICES\r\nC     ===============================\r\nC\r\n   30 IF (NCOLA .EQ. 1) GO TO 580\r\n      NROWAT = NCOLA\r\n      NCOLAT = 0\r\n      IAT(1) = 0\r\n      IAT(2) = 0\r\n      IP   = 1\r\n      JP   = NROWAT\r\n      INCR = 1\r\n      NWD  = IWORDS(ITYPA)\r\n      NWD1 = NWD - 1\r\n      NWDS = NCOLA*NWD\r\n      IF (NREC .NE. 0) GO TO 40\r\n      IRAT = MIN0(MAX0((LCORE/100000+4)*NCOLA/NROWA,3),10)\r\n      IEND = (IBUF1-1-NWDS)/IRAT\r\n      IEND = MAX0(IEND,5000)\r\n      IEND1= IEND + 1\r\n      CALL UNPSCR (FILEA,ISCR,Z,IBUF1,IBUF,IEND,0,1)\r\n      NREC = FILEA(4)/10\r\n   40 FILE = ISCR\r\n      CALL OPEN (*800,ISCR,Z(IBUF1),RDREW)\r\n      J    = FILEA(6) - IEND*IRAT\r\n      IF (J .GT. 0) GO TO 200\r\nC\r\nC     ENTIRE FILEA (FROM ISCR FILE) FITS INTO CORE\r\nC\r\n      IF (DEBUG) WRITE (NOUT,50) UIM\r\n   50 FORMAT (A29,', MATRIX TRANSPOSE WAS PORCESSED BY THE NEW TRNSP ',\r\n     1        'IN-CORE METHOD')\r\n      CALL FWDREC (*810,ISCR)\r\n      LL = NWDS + 1\r\n      DO 60 I = 1,NREC\r\n      CALL READ (*810,*60,ISCR,Z(LL),IEND1,1,K)\r\n      IMHERE = 60\r\n      GO TO 820\r\n   60 LL = LL + K\r\n      CALL CLOSE (ISCR,CLSREW)\r\nC\r\n      FILE = NAMEAT\r\n      CALL OPEN (*800,NAMEAT,Z(IBUF1),WRTREW)\r\n      CALL FNAME (NAMEAT,A(1))\r\n      CALL WRITE (NAMEAT,A(1),2,1)\r\nC\r\n      DO 160 K = 1,NROWA\r\n      DO 70  J = 1,NWDS\r\n   70 Z(J) = 0.0\r\n      BASE = NWDS + 2\r\n      IF (NWD-2) 130,110,80\r\n   80 DO 100 I = 1,NCOLA\r\n      II = IZ(BASE-1)\r\n      JJ = IZ(BASE  )\r\n      IF (K.LT.II .OR. K.GT.JJ) GO TO 100\r\n      KX = (K-II)*NWD + BASE\r\n      LX = (I- 1)*NWD\r\n      DO 90 J = 1,NWD\r\n   90 Z(J+LX) = Z(J+KX)\r\n  100 BASE = BASE + (JJ-II+1)*NWD + 2\r\n      GO TO 150\r\n  110 DO 120 I = 1,NCOLA\r\n      II = IZ(BASE-1)\r\n      JJ = IZ(BASE  )\r\n      IF (K.LT.II .OR. K.GT.JJ) GO TO 120\r\n      KX = (K-II)*2 + BASE\r\n      LX = (I- 1)*2\r\n      Z(LX+1) = Z(KX+1)\r\n      Z(LX+2) = Z(KX+2)\r\n  120 BASE = BASE + (JJ-II+2)*2\r\n      GO TO 150\r\n  130 DO 140 I = 1,NCOLA\r\n      II = IZ(BASE-1)\r\n      JJ = IZ(BASE  )\r\n      IF (K.LT.II .OR. K.GT.JJ) GO TO 140\r\n      KX = K - II + BASE\r\n      Z(I) = Z(KX+1)\r\n  140 BASE = BASE + JJ - II + 3\r\n  150 CALL PACK (Z(1),NAMEAT,NAMEAT)\r\n  160 CONTINUE\r\n      GO TO 450\r\nC\r\nC     ENTIRE FILEA CAN NOT FIT INTO CORE\r\nC\r\nC     OPEN CORE ALLOCATION -             N1    N2              NZ\r\nC                                        /     /  <-- IEND --> /\r\nC     +----------------------------------+-----+---------------+---+---+\r\nC      /          OPEN CORE               /     /                GINO\r\nC     I1                                 I2    I3               BUFFERS\r\nC\r\nC      Z(I1)... Z(N1) FOR TRANSPOSED OUTPUT MATRIX NAMEAT\r\nC     IZ(I2)...IZ(N2) IS A (3 x NREC) TABLE, (MIN, MAX, COLUMN COUNTER)\r\nC               CONTROLLING DATA TRANSFER FROM SCRATCH FILE ISCR.\r\nC      Z(I3)... Z(NZ) FOR INPUT MATRIX NAMEA COMING FROM ISCR\r\nC\r\nC     NOTE - THE RATIO OF (N1-I1)/(NZ-I3), WHICH IS IRAT, IS A FUNCTION\r\nC            OF OPEN CORE SIZE, AND THE MATRIX COLUMN AND ROW SIZES.\r\nC            IRAT IS LIMITED TO 10:1\r\nC     NCPP = NO. OF COULMNS PER PASS, OF THE TRANSPOSE MATRIX NAMEAT\r\nC\r\nC     THE TERMS 'ROW' AND 'COLUMN' ARE LOOSELY DEFINED IN COMMENT LINES\r\nC\r\n  200 N2   = NZ - IEND\r\n      I3   = N2 + 1\r\n      N1   = N2 - 3*NREC\r\n      I2   = N1 + 1\r\n      NCPP = N1/NWDS\r\n      NCP7 = NCPP*7\r\n      NPAS = (NCOLA+NCPP-1)/NCPP\r\n      IF (.NOT.DEBUG .AND. J.GT.3*NZ) GO TO 230\r\n      WRITE  (NOUT,210) UIM,NPAS,J\r\n  210 FORMAT (A29,', MATRIX TRANSPOSE WAS PROCESSED BY THE NEW TRNSP ',\r\n     1        'OUT-OF-CORE METHOD WITH',I5,' NO. OF PASSES', /5X,\r\n     2        '(FOR MAXIMUM EFFECIENCY, THE IN-CORE METHOD COULD BE ',\r\n     3        'ACTIVATED WITH',I9,' ADDITIONAL OPEN CORE WORDS)')\r\n      WRITE  (NOUT,220) N1,IEND,IRAT,NCPP,NPAS,NREC\r\n  220 FORMAT (/5X,'OPEN CORE -',I9,' WORDS USED FOR TRANSPOSE OUTPUT ',\r\n     1       'MATRIX, AND',I8,' WORDS FOR INPUT MATRIX (',I2,'/1 RATIO)'\r\n     2,      /5X,'NO. OF COLUMNS PER PASS =',I5,',  NO. OF PASSES =',I6,\r\n     3       ',  INPUT MATRIX REWRITTEN IN',I4,' RECORDS')\r\n  230 FILE = NAMEAT\r\n      CALL OPEN  (*800,NAMEAT,Z(IBUF),WRTREW)\r\n      CALL FNAME (NAMEAT,A(1))\r\n      CALL WRITE (NAMEAT,A(1),2,1)\r\n      DO 240 MM = I2,N2,3\r\n      IZ(MM  ) = NROWA\r\n  240 IZ(MM+1) = 0\r\n      CALL TMTOGO (T1)\r\nC\r\nC     OUTER KB-KE LOOP\r\nC\r\nC     MAP DATA INTO TRANSPOSE OUTPUT MATRIX SPACE, Z(I1)...Z(N1), BY\r\nC     PASSES. EACH PASS RANGES FROM KB THRU KE COLUMNS\r\nC\r\n      FILE = ISCR\r\n      KE = 0\r\n  250 KB = KE + 1\r\n      KE = KE + NCPP\r\n      IF (KE .GT. NROWA) KE = NROWA\r\n      IF (KE .NE.  NCP7) GO TO 270\r\n      IF (DEBUG) WRITE (NOUT,260) (IZ(J),J=I2,N2)\r\n  260 FORMAT ('  IZ(I2...N2) =',18I6, /,(15X,18I6))\r\n      CALL TMTOGO (T2)\r\n      T1 = (T1-T2)*0.143\r\n      T1 = T1*FLOAT(NPAS)\r\n      IF (T1 .GT. T2) GO TO 880\r\n  270 CALL REWIND (ISCR)\r\n      CALL FWDREC (*810,ISCR)\r\n      KBE = (KE-KB+1)*NWDS\r\n      DO 280 J = 1,KBE\r\n  280 Z(J) = 0.0\r\n      MM = N1 - 3\r\n      LL = 0\r\n      BASE = 2\r\nC\r\nC     MIDDLE I-LOOP\r\nC\r\nC     LOAD DATA FROM ISCR/NAMEA INTO Z(I3)...Z(NZ) WHEN NEEDED.\r\nC     AND RUN THRU EACH ROW OF MATRIX NAMEA IN THIS LOOP\r\nC\r\n      I  = 0\r\n  300 I  = I + 1\r\n      IF (I .GT. NCOLA) GO TO 430\r\n      IF (BASE .LT. LL) GO TO 340\r\n      MM = MM + 3\r\n      IF (KB .EQ. 1) GO TO 320\r\nC\r\nC     IF NOT FIRST PASS, CHECK KB AND KE AGAINST MIN/MAX TABLE IN IZ(I2)\r\nC     THRU IZ(N2). IF THEY ARE OUTSIDE RANGE, SKIP NEXT DATA RECORD FROM\r\nC     ISCR FILE AND UPDATE COLUMN COUNTER I\r\nC\r\n      IF (.NOT.(KB.GT.IZ(MM+2) .OR. KE.LT.IZ(MM+1))) GO TO 320\r\n      CALL FWDREC (*810,ISCR)\r\n      I  = IZ(MM+3)\r\n      GO TO 300\r\n  320 CALL READ (*810,*330,ISCR,Z(I3),IEND1,1,LL)\r\n      IMHERE = 160\r\n      GO TO 820\r\n  330 LL = N2 + LL\r\n      BASE = N2 + 2\r\n  340 II = IZ(BASE-1)\r\n      JJ = IZ(BASE  )\r\n      IF (KB .GT. 1) GO TO 350\r\nC\r\nC     DURING FIRST PASS, SAVE MIN-II, MAX-JJ, AND COLUMN I IN IZ(MM)\r\nC     TABLE. MM RUNS FROM I2 THRU N2.\r\nC\r\n      IF (II .LT. IZ(MM+1)) IZ(MM+1) = II\r\n      IF (JJ .GT. IZ(MM+2)) IZ(MM+2) = JJ\r\n      IZ(MM+3) = I\r\nC\r\n  350 IIKB = MAX0(II,KB)\r\n      JJKE = MIN0(JJ,KE)\r\n      IF (JJKE .LT. IIKB) GO TO 420\r\nC\r\nC     INNER K-LOOP\r\nC\r\nC     RUN THRU THE IIKB-JJKE ELEMENTS FOR EACH ROW OF MATRIX NAMEA,\r\nC\r\nC     KK = (IIKB-KB)*NWDS\r\nC     LX = (I-1)*NWD + KK + 1\r\nC     KK = BASE -  II*NWD + 1\r\nC\r\n      LX = (I-1)*NWD + (IIKB-KB)*NWDS + 1\r\n      KX = (IIKB-II)*NWD + BASE + 1\r\n      IF (NWD-2) 360,380,400\r\n  360 DO 370 K = IIKB,JJKE\r\n      Z(LX) = Z(KX)\r\n      KX = KX + 1\r\n  370 LX = LX + NWDS\r\n      GO TO 420\r\n  380 DO 390 K = IIKB,JJKE\r\n      Z(LX  ) = Z(KX  )\r\n      Z(LX+1) = Z(KX+1)\r\n      KX = KX + 2\r\n  390 LX = LX + NWDS\r\n      GO TO 420\r\n  400 DO 410 K = IIKB,JJKE\r\n      Z(LX  ) = Z(KX  )\r\n      Z(LX+1) = Z(KX+1)\r\n      Z(LX+2) = Z(KX+2)\r\n      Z(LX+3) = Z(KX+3)\r\n      KX = KX + 4\r\n  410 LX = LX + NWDS\r\nC\r\nC     END OF INNER K-LOOP\r\nC\r\nC     ADJUST BASE FOR ANOTHER ROW OF MATRIX NAMEA\r\nC\r\n  420 BASE = BASE + (JJ-II+1)*NWD + 2\r\n      GO TO 300\r\nC\r\nC     END OF MIDDLE I-LOOP\r\nC\r\nC     PACK THE KB THRU KE COLUMNS OF THE TRANSPOSE MATRIX NAMEAT OUT\r\nC\r\n  430 DO 440 J = 1,KBE,NWDS\r\n      CALL PACK (Z(J),NAMEAT,NAMEAT)\r\n  440 CONTINUE\r\nC\r\n      IF (KE .LT. NROWA) GO TO 250\r\n      CALL CLOSE (ISCR,1)\r\nC\r\nC     END OF OUTTER KB-KE LOOP, AND\r\nC     END OF SQUARE AND RECTANGULAR MATRIX TRNASPOSE\r\nC\r\nC     OPEN AND CLOSE SCRATCH FILE AGAIN TO PHYSICALLY DELETE THE FILE.\r\nC     MATRIX TRAILER WILL BE WRITTEN OUT BY DTRANP\r\nC\r\n  450 CALL CLOSE (NAMEAT,CLSREW)\r\n      CALL GOPEN (ISCR,Z(IBUF1),WRTREW)\r\n      CALL CLOSE (ISCR,CLSREW)\r\n      GO TO 900\r\nC\r\nC     SYMMETRIC MATRIX\r\nC     ================\r\nC\r\n  500 IF (NCOLA .EQ. NROWA) GO TO 520\r\n      CALL FNAME (NAMEA,A)\r\n      WRITE  (NOUT,510) UWM,A,NCOLA,NROWA\r\n  510 FORMAT (A25,' FROM TRNSP, ',2A4,' MATRIX (',I7,4H BY ,I7,\r\n     1        ') IS NOT SYMMETRIC NOR SQUARE ', /5X,\r\n     2        'IT WILL BE TREATED AS RECTANGULAR')\r\n      CALL CLOSE (NAMEA,CLSREW)\r\n      GO TO 30\r\n  520 FILE   = NAMEAT\r\n      CALL OPEN (*800,NAMEAT,Z(IBUF),WRTREW)\r\n      CALL CPYFIL (NAMEA,NAMEAT,Z(1),NZ,K)\r\n      CALL CLOSE (NAMEAT,CLSREW)\r\n      CALL CLOSE (NAMEA, CLSREW)\r\n      IF (DEBUG) WRITE (NOUT,525) FILEAT\r\n  525 FORMAT (' TRNSPS/@525 AFTER TRANSPOSE, TRAIL-AT =',7I8)\r\n      GO TO 900\r\nC\r\nC     DIAGONAL MATRIX\r\nC     ===============\r\nC     DIAGONAL MATRIX (IFORMA=3) IS A ONE-COLUMN MATRIX. (1xN)\r\nC\r\nC     THE MATRIX AT RIGHT IS SQUARE (IFORMA=1),      1.  0.  0.\r\nC     OR RECTANGULAR (IFORMA=2), AND IS NOT          0.  2.  0.\r\nC     DIAGONAL (IFORMA=3) IN NASTRAN TERMINOLOGY     0.  0.  1.\r\nC\r\n  530 GO TO 520\r\nC\r\nC     IDENTITY MATRIX\r\nC     ===============\r\nC     SIMILAR TO DIAGONAL MATRIX, INDENTITY MATRIX (IFORMA = 8) IS ALSO\r\nC     IN ONE-COLUMN MATRIX FORM\r\nC\r\nC     ALSO, THE IDENTITY MATRIX MAY EXIST ONLY IN THE MATRIX TRAILER.\r\nC     IT DOES NOT PHYSICALLY EXIST.\r\nC\r\nC\r\n  550 CALL READ (*900,*900,NAMEA,Z(1),1,1,J)\r\n      CALL BCKREC (NAMEA)\r\n      GO TO 520\r\nC\r\nC     ONE-COLUMN (1xN) RECTANGUALR MATRIX\r\nC     ===================================\r\nC     TRANSPOSE IS A ROW VECTOR, FORM=7. THE TRAILER REMAINS 1xN.\r\nC\r\n  580 IF (NCOLA .NE. 1) GO TO 860\r\n      IFORAT = 8\r\n      GO TO 520\r\nC\r\nC     UPPER OR LOWER TRIANGULAR MATRICES\r\nC     ==================================\r\nC\r\nC     TRANSPOSE OF UPPER TRIANGULAR MATRIX IS THE LOWER TRIANG. MATRIX\r\nC     AND VISE VERSA\r\nC\r\nC     (IS THIS HOW THE UPPER OR LOWER TRIANGULAR MATRIX WRITTEN? <==?\r\nC\r\nC     NO! IT IS NOT. WE STOP TRNSP SENDING THESE MATRICES OVER HERE.\r\nC     BESIDE, THE LOGIC OF WRITING THE MATRIX BACKWARD HERE IS NOT\r\nC     CORRECT. WE HAVE NOT ACCOMPLISHED THE TRANSPOSE OF THE ORIGINAL\r\nC     MATRIX YET. ALSO, WE SHOULD WRITE THE TRANSPOSE MATRIX OUT BY\r\nC     STRINGS, OR PACK THE MATRIX OUT)\r\nC\r\n  600 IMHERE = 600\r\n      N1   = -37\r\n      IF (N1 .EQ. -37) GO TO 830\r\n      CALL GOPEN (ISCR,Z(IBUF),WRTREW)\r\n      CALL SKPREC (NAMEA,NCOLA)\r\n      NWD  = IWORDS(ITYPA)\r\n      IRAT = 3\r\n      IEND = (IBUF-1-NWD*NCOLA)/IRAT\r\n      IEND1= IEND + 1\r\n      ISUM = 0\r\n      DO 720 I = 1,NCOLA\r\n      IU   = 0\r\n      CALL UNPACK (*830,NAMEA,Z(3))\r\n      IZ(1) = IU\r\n      IZ(2) = JU\r\n      LL   = (JU-IU+1)*NWD + 2\r\n      ISUM = ISUM + LL\r\n      IF (ISUM .LE. IEND) GO TO 610\r\n      NREC = NREC + 1\r\n      CALL WRITE (ISCR,0,0,1)\r\n      ISUM = LL\r\n  610 IF (DGFLAG .NE. -123457890) GO TO 710\r\n      IF (IFORMA .EQ. 5) GO TO 660\r\n      GO TO (620,630,640,650), ITYPA\r\n  620 Z(3) = 1.0\r\n      GO TO 710\r\n  630 DA = 1.0D+0\r\n      Z(3) = A(1)\r\n      Z(4) = A(2)\r\n      GO TO 710\r\n  640 Z(4) = 0.0\r\n      GO TO 620\r\n  650 Z(5) = 0.0\r\n      Z(6) = 0.0\r\n      GO TO 630\r\n  660 GO TO (670,680,690,700), ITYPA\r\n  670 Z(JU+2) = 1.0\r\n      GO TO 710\r\n  680 DA = 1.0D+0\r\n      Z(JU*2+1) = A(1)\r\n      Z(JU*2+2) = A(2)\r\n      GO TO 710\r\n  690 Z(JU*2+1) = 1.0\r\n      Z(JU*2+2) = 0.0\r\n      GO TO 710\r\n  700 J  = JU*4 - 3\r\n      DA = 1.0D+0\r\n      Z(J+1) = A(1)\r\n      Z(J+2) = A(2)\r\n      Z(J+3) = 0.0\r\n      Z(J+4) = 0.0\r\n  710 CALL WRITE (ISCR,Z(1),LL,0)\r\n      CALL BCKREC (NAMEA)\r\n      CALL BCKREC (NAMEA)\r\n  720 CONTINUE\r\n      NREC = NREC + 1\r\n      CALL WRITE (ISCR,0,0,1)\r\n      CALL CLOSE (NAMEA,CLSREW)\r\n      CALL CLOSE (ISCR ,CLSREW)\r\n      ITYPAT = ITYPA\r\n      IF (IFORMA .EQ. 4) IFORAT = 5\r\n      IF (IFORMA .EQ. 5) IFORAT = 4\r\n      IAT(1) = IA(1)\r\n      IAT(2) = IA(2)\r\n      DGFLAG = 0\r\n      FILEA(4) = NREC*10\r\n      FILEA(6) = ISUM\r\n      GO TO 30\r\nC\r\nC     ROW VECTOR (IFORMA=7, 1xN)\r\nC     ==========================\r\nC\r\nC     A ROW VECTOR IS A ROW OF MATRIX ELEMENTS STORED IN COLUMN FORMAT\r\nC     WITH TRAILER 1xN (NOT Nx1). THEREFORE THE TRANSPOSE OF ROW VECTOR\r\nC     (IFORMA=7) IS A COLUMN VECTOR, WHICH IS RECTANG. (IFORAT=2).\r\nC     THE TRAILER REMAINS UNCHANGED\r\nC\r\n  730 IF (NCOLA .NE. 1) GO TO 860\r\n      IFORAT = 2\r\n      GO TO 520\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  800 IF (IFORMA .EQ. 8) GO TO 900\r\n      N1 = -1\r\n      GO TO 850\r\n  810 N1 = -2\r\n      GO TO 850\r\n  820 N1 = -8\r\n  830 WRITE  (NOUT,840) IMHERE\r\n  840 FORMAT (/5X,'IMHERE =',I5)\r\n  850 CALL MESAGE (N1,FILE,NAM)\r\n  860 CALL FNAME (NAMEA,A)\r\n      WRITE  (NOUT,870) UFM,A,IFORMA,NCOLA,NROWA\r\n  870 FORMAT (A23,' FROM TRNSPS, INPUT MATRIX ',2A4,' IS NOT SUITABLE ',\r\n     1        'FOR MATRIX TRANSPOSE.', /5X,'FORM, COLUMN, ROW =',3I6)\r\n      CALL MESAGE (-37,NAMEA,NAM)\r\n  880 WRITE  (NOUT,890) UFM,T1\r\n  890 FORMAT (A23,', INSUFFICIENT TIME REMAINING FOR MATRIX TRANSPOSE',\r\n     1       /5X,'ESTIMATED TIME NEEDED (FOR TRANSPOSE ALONE) =',I9,\r\n     2       ' CPU SECONDS')\r\n      CALL MESAGE (-37,0,NAM)\r\nC\r\n  900 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trplmd.f",
    "content": "      SUBROUTINE TRPLMD (GMAT,DMAT,BMAT,BMAT1,BMAT2,MATTYP,JCOR,WTK)\r\nC\r\nC     ROUTINE TO PERFORM THE TRIPLE MULTIPLY AT EACH INTEGRATION\r\nC     POINT FOR THE QUAD4 ELEMENT.\r\nC     DIFFERENT PATHS ARE TAKEN BASED ON THE FOLLOWING CRITERIA -\r\nC      1- ELEMENT BEING A MEMBRANE ONLY, OR BENDING ONLY, OR BOTH\r\nC         MEMBRANE AND BENDING ELEMENT.\r\nC      2- THE MATERIAL PROPERTIES BEING ISOTROPIC OR NOT.\r\nC      3- THE MACHINE THIS CODE IS RUNNING ON. (TENTATIVE)\r\nC\r\n      DOUBLE PRECISION WTK,AKGG,GMAT(10,10),DMAT(7,7)\r\n      DOUBLE PRECISION BMAT(240),BMAT1(1),BMAT2(1)\r\n      DOUBLE PRECISION DBM(240),DMAT1(3,3),DMAT2(4,4)\r\nC\r\n      LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\nC\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /ZZZZZZ/ AKGG(1)\r\n      COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2\r\nC\r\nC*****\r\nC     INITIALIZE\r\nC*****\r\n      ND1 = NDOF\r\n      ND2 = ND1 * 2\r\n      ND3 = ND1 * 3\r\n      ND4 = ND1 * 4\r\n      ND5 = ND1 * 5\r\n      ND6 = ND1 * 6\r\n      ND7 = ND1 * 7\r\n      ND8 = ND1 * 8\r\n      ND9 = ND1 * 9\r\n      NDA = ND1 * 10\r\n      IF (.NOT.NORPTH) GO TO 500\r\nC*****\r\nC    ALL MIDS ARE THE SAME AND THERE IS NO COUPLING.\r\nC    IF THE MATERIAL IS ISOTROPIC, PERFORM THE 1ST MUTIPLY EXPLICITLY.\r\nC    IF NOT, USE GMMATD. IN EITHER CASE, THE 2ND MULTIPLY USES GMMATD.\r\nC*****\r\n      DO 100 I=1,ND1\r\n      BMAT(I+ND2) = BMAT2(I+IBOT     )\r\n      BMAT(I+ND3) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND4) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND5) = BMAT1(I+IPTX1+ND1)\r\n  100 BMAT(I+ND6) = BMAT1(I+IPTX2+ND1)\r\nC\r\n      IF (MATTYP .NE. 1) GO TO 300\r\n      DO 200 I=1,ND1\r\n      DBM (I    ) = DMAT(1,1)*BMAT(I    ) + DMAT(1,2)*BMAT(I+ND1)\r\n      DBM (I+ND1) = DMAT(2,1)*BMAT(I    ) + DMAT(2,2)*BMAT(I+ND1)\r\n      DBM (I+ND2) = DMAT(3,3)*BMAT(I+ND2)\r\n      DBM (I+ND3) = DMAT(4,4)*BMAT(I+ND3) + DMAT(4,5)*BMAT(I+ND4)\r\n      DBM (I+ND4) = DMAT(5,4)*BMAT(I+ND3) + DMAT(5,5)*BMAT(I+ND4)\r\n      DBM (I+ND5) = DMAT(6,6)*BMAT(I+ND5) + DMAT(6,7)*BMAT(I+ND6)\r\n  200 DBM (I+ND6) = DMAT(7,6)*BMAT(I+ND5) + DMAT(7,7)*BMAT(I+ND6)\r\n      GO TO 400\r\nC\r\n  300 CALL GMMATD (DMAT,7,7,0,BMAT,7,ND1,0,DBM)\r\nC\r\n  400 DO 420 I=1,ND7\r\n  420 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATD (BMAT,7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     MIDS ARE NOT THE SAME. CHECK FOR MEMBRANE ONLY AND BENDING ONLY\r\nC     CASES AND BRANCH APPROPRIATELY. IF BOTH ARE THERE, CONTINUE.\r\nC*****\r\n  500 IF (.NOT.BENDNG) GO TO 800\r\n      IF (.NOT.MEMBRN) GO TO 1200\r\n      DO 600 I=1,ND1\r\n      BMAT(I+ND2) = BMAT2(I+IBOT     )\r\n      BMAT(I+ND5) = BMAT2(I+IBOT+ND1 )\r\n      BMAT(I+ND6) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND7) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND8) = BMAT1(I+IPTX1+ND1)\r\n  600 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1)\r\nC\r\n      CALL GMMATD (GMAT,10,10,0,BMAT,10,ND1,0,DBM)\r\nC\r\n      DO 750 I=1,NDA\r\n  750 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATD (BMAT,10,ND1,-1,DBM,10,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     MEMBRANE ONLY ELEMENT. ONLY THE FIRST 3X3 OF GMAT AND THE FIRST\r\nC     3 ROWS OF BMAT ARE MULTIPLIED.\r\nC*****\r\n  800 DO 900 I=1,ND1\r\n  900 BMAT(I+ND2) = BMAT2(I+IBOT)\r\nC\r\n      IF (MATTYP .NE. 1) GO TO 950\r\n      DO 920 I=1,ND1\r\n      DBM (I    ) = GMAT(1,1)*BMAT(I    ) + GMAT(1,2)*BMAT(I+ND1)\r\n      DBM (I+ND1) = GMAT(2,1)*BMAT(I    ) + GMAT(2,2)*BMAT(I+ND1)\r\n  920 DBM (I+ND2) = GMAT(3,3)*BMAT(I+ND2)\r\n      GO TO 1050\r\nC\r\n  950 DO 1000 I=1,3\r\n      DO 1000 J=1,3\r\n 1000 DMAT1(I,J) = GMAT(I,J)\r\n      CALL GMMATD (DMAT1,3,3,0,BMAT(1),3,ND1,0,DBM(1))\r\nC\r\n 1050 DO 1100 I=1,ND3\r\n 1100 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATD (BMAT,3,ND1,-1,DBM,3,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     BENDING ONLY ELEMENT. THE FIRST 3 ROWS AND COLUMNS OF GMAT AND\r\nC     THE FIRST 3 ROWS OF BMAT WILL BE EXCLUDED FROM MULTIPLICATIONS.\r\nC*****\r\n 1200 DO 1300 I=1,ND1\r\n      BMAT(I+ND6) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND7) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND8) = BMAT1(I+IPTX1+ND1)\r\n 1300 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1)\r\nC\r\n      DO 1400 I=1,3\r\n      DO 1400 J=1,3\r\n 1400 DMAT1(I,J) = GMAT(I+3,J+3)\r\n      DO 1500 I=1,4\r\n      DO 1500 J=1,4\r\n 1500 DMAT2(I,J) = GMAT(I+6,J+6)\r\nC\r\n      CALL GMMATD (DMAT1,3,3,0,BMAT(ND3+1),3,ND1,0,DBM(1    ))\r\n      CALL GMMATD (DMAT2,4,4,0,BMAT(ND6+1),4,ND1,0,DBM(ND3+1))\r\nC\r\n      DO 1600 I=ND3+1,NDA\r\n 1600 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATD (BMAT(ND3+1),7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trplms.f",
    "content": "      SUBROUTINE TRPLMS (GMAT,DMAT,BMAT,BMAT1,BMAT2,MATTYP,JCOR,WTK)\r\nC\r\nC     ROUTINE TO PERFORM THE TRIPLE MULTIPLY AT EACH INTEGRATION\r\nC     POINT FOR THE QUAD4 ELEMENT.\r\nC     DIFFERENT PATHS ARE TAKEN BASED ON THE FOLLOWING CRITERIA -\r\nC      1- ELEMENT BEING A MEMBRANE ONLY, OR BENDING ONLY, OR BOTH\r\nC         MEMBRANE AND BENDING ELEMENT.\r\nC      2- THE MATERIAL PROPERTIES BEING ISOTROPIC OR NOT.\r\nC      3- THE MACHINE THIS CODE IS RUNNING ON. (TENTATIVE)\r\nC\r\n      REAL    WTK,AKGG,GMAT(10,10),DMAT(7,7)\r\n      REAL    BMAT(240),BMAT1(1),BMAT2(1)\r\n      REAL    DBM(240),DMAT1(3,3),DMAT2(4,4)\r\nC\r\n      LOGICAL MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\nC\r\n      COMMON /TERMS / MEMBRN,BENDNG,SHRFLX,MBCOUP,NORPTH\r\n      COMMON /ZZZZZZ/ AKGG(1)\r\n      COMMON /TRPLM / NDOF,IBOT,IPTX1,IPTX2,IPTY1,IPTY2\r\nC\r\nC*****\r\nC     INITIALIZE\r\nC*****\r\n      ND1 = NDOF\r\n      ND2 = ND1 * 2\r\n      ND3 = ND1 * 3\r\n      ND4 = ND1 * 4\r\n      ND5 = ND1 * 5\r\n      ND6 = ND1 * 6\r\n      ND7 = ND1 * 7\r\n      ND8 = ND1 * 8\r\n      ND9 = ND1 * 9\r\n      NDA = ND1 * 10\r\n      IF (.NOT.NORPTH) GO TO 500\r\nC*****\r\nC ALL MIDS ARE THE SAME AND THERE IS NO COUPLING.\r\nC IF THE MATERIAL IS ISOTROPIC, PERFORM THE 1ST MUTIPLY EXPLICITLY.\r\nC IF NOT, USE GMMATS. IN EITHER CASE, THE 2ND MULTIPLY USES GMMATS.\r\nC*****\r\n      DO 100 I=1,ND1\r\n      BMAT(I+ND2) = BMAT2(I+IBOT     )\r\n      BMAT(I+ND3) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND4) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND5) = BMAT1(I+IPTX1+ND1)\r\n  100 BMAT(I+ND6) = BMAT1(I+IPTX2+ND1)\r\nC\r\n      IF (MATTYP .NE. 1) GO TO 300\r\n      DO 200 I=1,ND1\r\n      DBM (I    ) = DMAT(1,1)*BMAT(I    ) + DMAT(1,2)*BMAT(I+ND1)\r\n      DBM (I+ND1) = DMAT(2,1)*BMAT(I    ) + DMAT(2,2)*BMAT(I+ND1)\r\n      DBM (I+ND2) = DMAT(3,3)*BMAT(I+ND2)\r\n      DBM (I+ND3) = DMAT(4,4)*BMAT(I+ND3) + DMAT(4,5)*BMAT(I+ND4)\r\n      DBM (I+ND4) = DMAT(5,4)*BMAT(I+ND3) + DMAT(5,5)*BMAT(I+ND4)\r\n      DBM (I+ND5) = DMAT(6,6)*BMAT(I+ND5) + DMAT(6,7)*BMAT(I+ND6)\r\n  200 DBM (I+ND6) = DMAT(7,6)*BMAT(I+ND5) + DMAT(7,7)*BMAT(I+ND6)\r\n      GO TO 400\r\nC\r\n  300 CALL GMMATS (DMAT,7,7,0,BMAT,7,ND1,0,DBM)\r\nC\r\n  400 DO 420 I=1,ND7\r\n  420 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATS (BMAT,7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     MIDS ARE NOT THE SAME. CHECK FOR MEMBRANE ONLY AND BENDING ONLY\r\nC     CASES AND BRANCH APPROPRIATELY. IF BOTH ARE THERE, CONTINUE.\r\nC*****\r\n  500 IF (.NOT.BENDNG) GO TO 800\r\n      IF (.NOT.MEMBRN) GO TO 1200\r\n      DO 600 I=1,ND1\r\n      BMAT(I+ND2) = BMAT2(I+IBOT     )\r\n      BMAT(I+ND5) = BMAT2(I+IBOT+ND1 )\r\n      BMAT(I+ND6) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND7) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND8) = BMAT1(I+IPTX1+ND1)\r\n  600 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1)\r\n      CALL GMMATS (GMAT,10,10,0,BMAT,10,ND1,0,DBM)\r\nC\r\n      DO 750 I=1,NDA\r\n  750 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATS (BMAT,10,ND1,-1,DBM,10,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     MEMBRANE ONLY ELEMENT. ONLY THE FIRST 3X3 OF GMAT AND THE FIRST\r\nC     3 ROWS OF BMAT ARE MULTIPLIED.\r\nC*****\r\n  800 DO 900 I=1,ND1\r\n  900 BMAT(I+ND2) = BMAT2(I+IBOT)\r\nC\r\n      IF (MATTYP .NE. 1) GO TO 950\r\n      DO 920 I=1,ND1\r\n      DBM (I    ) = GMAT(1,1)*BMAT(I    ) + GMAT(1,2)*BMAT(I+ND1)\r\n      DBM (I+ND1) = GMAT(2,1)*BMAT(I    ) + GMAT(2,2)*BMAT(I+ND1)\r\n  920 DBM (I+ND2) = GMAT(3,3)*BMAT(I+ND2)\r\n      GO TO 1050\r\nC\r\n  950 DO 1000 I=1,3\r\n      DO 1000 J=1,3\r\n 1000 DMAT1(I,J) = GMAT(I,J)\r\n      CALL GMMATS (DMAT1,3,3,0,BMAT(1),3,ND1,0,DBM(1))\r\nC\r\n 1050 DO 1100 I=1,ND3\r\n 1100 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATS (BMAT,3,ND1,-1,DBM,3,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC*****\r\nC     BENDING ONLY ELEMENT. THE FIRST 3 ROWS AND COLUMNS OF GMAT AND\r\nC     THE FIRST 3 ROWS OF BMAT WILL BE EXCLUDED FROM MULTIPLICATIONS.\r\nC*****\r\n 1200 DO 1300 I=1,ND1\r\n      BMAT(I+ND6) = BMAT1(I+IPTY1    )\r\n      BMAT(I+ND7) = BMAT1(I+IPTY2    )\r\n      BMAT(I+ND8) = BMAT1(I+IPTX1+ND1)\r\n 1300 BMAT(I+ND9) = BMAT1(I+IPTX2+ND1)\r\nC\r\n      DO 1400 I=1,3\r\n      DO 1400 J=1,3\r\n 1400 DMAT1(I,J) = GMAT(I+3,J+3)\r\n      DO 1500 I=1,4\r\n      DO 1500 J=1,4\r\n 1500 DMAT2(I,J) = GMAT(I+6,J+6)\r\nC\r\n      CALL GMMATS (DMAT1,3,3,0,BMAT(ND3+1),3,ND1,0,DBM(1    ))\r\n      CALL GMMATS (DMAT2,4,4,0,BMAT(ND6+1),4,ND1,0,DBM(ND3+1))\r\nC\r\n      DO 1600 I=ND3+1,NDA\r\n 1600 BMAT(I) = BMAT(I)*WTK\r\n      CALL GMMATS (BMAT(ND3+1),7,ND1,-1,DBM,7,ND1,0,AKGG(JCOR))\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/trplt.f",
    "content": "      SUBROUTINE TRPLT (TI)\r\nC\r\nC     ELEMENT THERMAL LOADING FOR THE BENDING TRIANGULAR PLATE.\r\nC\r\nC                 DEFINITION\r\nC       ECPT      BSC.BEND.TRI. AND THE TRI-PLATE\r\nC     --------   ---------------------------------------\r\nC     ECPT( 1) = ELEMENT ID         INTEGER\r\nC     ECPT( 2) = GRID PT. A         INTEGER\r\nC     ECPT( 3) = GRID PT. B         INTEGER\r\nC     ECPT( 4) = GRID PT. C         INTEGER\r\nC     ECPT( 5) = THETA              REAL\r\nC     ECPT( 6) = MAT ID 1           INTEGER\r\nC     ECPT( 7) = I  MOM. OF INERT.  REAL\r\nC     ECPT( 8) = MAT ID 2           INTEGER\r\nC     ECPT( 9) = T2                 REAL\r\nC     ECPT(10) = NON-STRUCT. MASS   REAL\r\nC     ECPT(11) = Z1                 REAL\r\nC     ECPT(12) = Z2                 REAL\r\nC     ECPT(13) = COORD. SYS. ID 1   INTEGER\r\nC     ECPT(14) = X1                 REAL\r\nC     ECPT(15) = Y1                 REAL\r\nC     ECPT(16) = Z1                 REAL\r\nC     ECPT(17) = COORD. SYS. ID 2   INTEGER\r\nC     ECPT(18) = X2                 REAL\r\nC     ECPT(19) = Y2                 REAL\r\nC     ECPT(20) = Z2                 REAL\r\nC     ECPT(21) = COORD. SYS. ID 3   INTEGER\r\nC     ECPT(22) = X3                 REAL\r\nC     ECPT(23) = Y3                 REAL\r\nC     ECPT(24) = Z3                 REAL\r\nC     ECPT(25) = ELEMENT TEMP       REAL\r\nC\r\n      INTEGER         SUBSCA,SUBSCB,SUBSCC\r\n      REAL            L1,L2,KS,KHI,TI(6),IVECT,JVECT,KVECT\r\n      DIMENSION       M(9),REQUIV(9),G(36),TITE(10),V(25),HQ(12),\r\n     1                TEMP15(15),PROD15(15),NECPT(25),V1(3),V2(3),V3(3)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /TRIMEX/ ECPT(100)\r\n      COMMON /SSGWRK/ A(45),T(9),S(18),HINV(36),PROD12(12),D1(3),D2(3),\r\n     1                HABC(18),SSUM(60),R(2,4),IVECT(3),JVECT(3),\r\n     2                KVECT(3),VV1(2),VV2(2),XSUBB,XSUBC,YSUBC,E(18),\r\n     3                TEMP,L1,L2,C1,C2,S1,S2,X1,X2,Y1,Y2,NPOINT,DUM9,\r\n     4                TEMP1,TEMP2,PROD9(9),TEMP9(9),DUM8,KM,SUBSCA,\r\n     5                SUBSCB,SUBSCC,DUM11,THETA,NSUBC,ISING,U1,U2,\r\n     6                SINANG,COSANG,DUM10,XC,YC,DETERM,DUM12(4)\r\n      COMMON /MATIN / MATID,INFLAG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /SSGTRI/ D(9),KHI(5),KS(30),P(5)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (CONSTS(4),DEGRA),(PROD15(1),PROD9(1)),\r\n     1                (REQUIV(1),R(1,1)),(NECPT(1),ECPT(1)),\r\n     2                (V1(1),ECPT(14)),(V2(1),ECPT(18)),\r\n     3                (V3(1),ECPT(22)),(TITE(1),A(1)),\r\n     4                (V(1),PROD12(1)),(HQ(1),A(1))\r\n      DATA    M     / 1,2,4, 2,3,4, 3,1,4 /\r\nC\r\n      ELTEMP = ECPT(25)\r\n      THETA  = ECPT(5)*DEGRA\r\n      SINANG = SIN(THETA)\r\n      COSANG = COS(THETA)\r\nC\r\nC     FORMATION OF THE R-MATRIX CONTAINING COORDINATES OF THE\r\nC     SUB TRIANGLES. (2X4) FOR THE TRIANGULAR PLATE.\r\nC     FORMATION ALSO OF THE I,J, AND K VECTORS USED IN THE E-MATRIX.\r\nC\r\nC     ZERO OUT R-MATRIX\r\nC\r\n      DO 10 I = 1,8\r\n   10 REQUIV(I) = 0.0\r\nC\r\n      DO 20 I = 1,3\r\n      D2(I) = V2(I) - V1(I)\r\n   20 D1(I) = V3(I) - V1(I)\r\nC\r\nC     X2  GOES IN R(1,2)\r\nC\r\n      R(1,2) = SQRT(D2(1)**2 + D2(2)**2 + D2(3)**2)\r\n      DO 30 I = 1,3\r\n   30 IVECT(I) = D2(I)/R(1,2)\r\nC\r\nC     NON-NORMALIZED K-VECTOR\r\nC\r\n      KVECT(1) = IVECT(2)*D1(3) - D1(2)*IVECT(3)\r\n      KVECT(2) = IVECT(3)*D1(1) - D1(3)*IVECT(1)\r\n      KVECT(3) = IVECT(1)*D1(2) - D1(1)*IVECT(2)\r\nC\r\nC     Y3 GOES INTO R(2,3)\r\nC\r\n      R(2,3) =  SQRT(KVECT(1)**2 + KVECT(2)**2 + KVECT(3)**2)\r\n      DO 40 I = 1,3\r\n   40 KVECT(I) = KVECT(I)/R(2,3)\r\nC\r\nC     J-VECTOR = K X I  VECTORS\r\nC\r\n      JVECT(1) = KVECT(2)*IVECT(3) - IVECT(2)*KVECT(3)\r\n      JVECT(2) = KVECT(3)*IVECT(1) - IVECT(3)*KVECT(1)\r\n      JVECT(3) = KVECT(1)*IVECT(2) - IVECT(1)*KVECT(2)\r\nC\r\nC     NORMALIZE J VECTOR TO MAKE SURE\r\nC\r\n      TEMP = SQRT(JVECT(1)**2 + JVECT(2)**2 + JVECT(3)**2)\r\n      DO 60 I = 1,3\r\n   60 JVECT(I) = JVECT(I)/TEMP\r\nC\r\nC     X3 GOES INTO R(1,3) = D1 DOT IVECT\r\nC\r\n      R(1,3) = D1(1)*IVECT(1) + D1(2)*IVECT(2) + D1(3)*IVECT(3)\r\nC\r\nC     CENTROID POINT GOES INTO R(1,4) AND R(2,4)\r\nC\r\n      R(1,4) = (R(1,2) + R(1,3))/3.0\r\n      R(2,4) = R(2,3)/3.0\r\nC\r\nC     COMPUTE SUB-TRIANGLE COORDINATES\r\nC     CALL BASIC BENDING ROUTINE FOR ALL SUB-TRIANGLES.\r\nC\r\n      DO 80 I = 1,60\r\n   80 SSUM(I) = 0.0\r\n      DO 90 I = 1,36\r\n   90 G(I) = 0.0\r\nC\r\n      DO 180 J = 1,3\r\n      KM = 3*J - 3\r\n      SUBSCA = M(KM+1)\r\n      SUBSCB = M(KM+2)\r\n      SUBSCC = M(KM+3)\r\nC\r\n      DO 100 I = 1,2\r\n      VV1(I) = R(I,SUBSCB) - R(I,SUBSCA)\r\n  100 VV2(I) = R(I,SUBSCC) - R(I,SUBSCA)\r\n      XSUBB  = SQRT(VV1(1)**2 + VV1(2)**2)\r\n      U1 = VV1(1)/XSUBB\r\n      U2 = VV1(2)/XSUBB\r\n      XSUBC = U1*VV2(1) + VV2(2)*U2\r\n      YSUBC = U1*VV2(2) - VV2(1)*U2\r\nC\r\n      XC = XSUBC\r\n      YC = YSUBC\r\nC\r\n      SINTH = SINANG*U1 - COSANG*U2\r\n      COSTH = COSANG*U1 + SINANG*U2\r\n      IF (ABS(SINTH) .LT. 1.0E-06) SINTH = 0.0\r\nC\r\nC     AT THIS POINT, XSUBB, XSUBC, YSUBC ARE AT HAND FOR\r\nC     TRIANGLE -J-\r\nC\r\n      CALL TRBSC (2,TI(1))\r\nC\r\nC     RETURNING FROM STRBS1 THE FOLLOWING QUANTITIES ARE AT HAND.\r\nC\r\nC       S   , S   , S   , EACH 5X3.   45 WORDS STORED IN A( 1)...A(45)\r\nC        A     B     C\r\nC\r\nC     AND ALSO H-INVERSE IS AT A(73)...A(108) AND S IS AT A(55)...A(72)\r\nC\r\nC     COMPUTE KHI   (5X1)  MATRIX\r\nC                E\r\nC\r\nC     THIS WILL BE USED AT THE END OF THE INTERMEDIATE COMPUTATIONS.\r\nC     KHI-SUB-E MUST BE COMPUTED AFTER THE FIRST SUBTRIANGLE IN ORDER\r\nC     TO USE THE -D- MATERIAL MATRIX WITH THE CORRECT ORIENTATION.\r\nC\r\nC     NFACTOR = 3.0 FOR THE CLOUGH TRIANGLE\r\nC\r\n      IF (J .EQ. 1) CALL SSGKHI (TI(1),TI(1),3.0)\r\nC\r\nC     SET UP OF T-MATRIX\r\nC\r\n      T(1) = 1.0\r\n      T(2) = 0.0\r\n      T(3) = 0.0\r\n      T(4) = 0.0\r\n      T(5) = U1\r\n      T(6) = U2\r\n      T(7) = 0.0\r\n      T(8) =-U2\r\n      T(9) = U1\r\nC\r\nC     SET UP V-MATRIX PER FMMS 51-A\r\nC\r\n      V( 1) = U1*U1/3.0\r\n      V( 2) = U2*U2/3.0\r\n      V(11) = U1*U2/3.0\r\n      V( 3) =-V(11)*2.0\r\n      V( 4) = 0.0\r\n      V( 5) = 0.0\r\n      V( 6) = V(2)\r\n      V( 7) = V(1)\r\n      V( 8) =-V(3)\r\n      V( 9) = 0.0\r\n      V(10) = 0.0\r\n      V(12) =-V(11)\r\n      V(13) = V(1) - V(2)\r\n      V(14) = 0.0\r\n      V(15) = 0.0\r\n      V(16) = 0.0\r\n      V(17) = 0.0\r\n      V(18) = 0.0\r\n      V(19) = U1/3.0\r\n      V(20) =-U2/3.0\r\n      V(21) = 0.0\r\n      V(22) = 0.0\r\n      V(23) = 0.0\r\n      V(24) =-V(20)\r\n      V(25) = V(19)\r\nC\r\nC     ADD IN S , S , S   TO THE 4 5X3 SSUM MATRICES\r\nC             A   B   C\r\nC\r\n      DO 120 I = 1,3\r\n      CALL GMMATS (V(1),5,5,0, A(15*I-14),5,3,0, TEMP15(1))\r\n      CALL GMMATS (TEMP15(1),5,3,0, T(1),3,3,0,  PROD15(1))\r\nC\r\nC     POINTER TO SSUM MATRIX\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 15*M(NPOINT) - 15\r\n      DO 110 K = 1,15\r\n      NSUBC = NPOINT + K\r\n  110 SSUM(NSUBC) = SSUM(NSUBC) + PROD15(K)\r\n  120 CONTINUE\r\nC\r\nC     FORM HQ (2X6)\r\nC\r\n      TEMP1  = XSUBB - XSUBC\r\n      TEMP2  = YSUBC**2\r\n      L1     = SQRT(XSUBC**2 + TEMP2)\r\n      L2     = SQRT(TEMP1**2 + TEMP2)\r\n      S1     = XSUBC/L1\r\n      S2     = TEMP1/L2\r\n      C1     = YSUBC/L1\r\n      C2     = YSUBC/L2\r\n      X1     = XSUBC/2.0\r\n      Y1     = YSUBC/2.0\r\n      X2     = (XSUBB + XSUBC)/2.0\r\n      Y2     = Y1\r\n      HQ( 1) =-XSUBC*C1\r\n      HQ( 2) = X1*S1 - Y1*C1\r\n      HQ( 3) = 2.0*Y1*S1\r\n      HQ( 4) =-3.0*X1*X1*C1\r\n      HQ( 5) = Y1*(2.0*X1*S1 - Y1*C1)\r\n      HQ( 6) = 3.0*Y1*Y1*S1\r\n      HQ( 7) = 2.0*X2*C2\r\n      HQ( 8) = X2*S2 + Y2*C2\r\n      HQ( 9) = 2.0*Y2*S2\r\n      HQ(10) = 3.0*X2*X2*C2\r\n      HQ(11) = Y2*(2.0*X2*S2 + Y2*C2)\r\n      HQ(12) = 3.0*Y2*Y2*S2\r\nC\r\nC                      I                    -1\r\nC     COMPUTE (H       I  H     )  = (HQ)(H)    STORE IN PROD12\r\nC               PSI,B  I   PSI,C\r\nC                      I\r\nC\r\nC\r\n      CALL GMMATS( HQ(1),2,6,0,  HINV(1),6,6,0,  PROD12(1) )\r\nC\r\nC\r\nC     COMPUTE (H     ) = -(PROD12)(S)\r\nC               PSI,A\r\nC\r\n      CALL GMMATS (PROD12(1),2,6,0, S(1),6,3,0, HABC(1))\r\n      HABC(1) = -HABC(1)\r\n      HABC(2) = -HABC(2) + S1\r\n      HABC(3) = -HABC(3) + C1\r\n      HABC(4) = -HABC(4)\r\n      HABC(5) = -HABC(5) + S2\r\n      HABC(6) = -HABC(6) - C2\r\nC\r\nC     SPLIT(H     ) AND (H     )  PARTITION\r\nC            PSI,B        PSI,C\r\nC\r\n      HABC( 7) = PROD12( 1)\r\n      HABC( 8) = PROD12( 2)\r\n      HABC( 9) = PROD12( 3)\r\n      HABC(10) = PROD12( 7)\r\n      HABC(11) = PROD12( 8)\r\n      HABC(12) = PROD12( 9)\r\n      HABC(13) = PROD12( 4)\r\n      HABC(14) = PROD12( 5)\r\n      HABC(15) = PROD12( 6)\r\n      HABC(16) = PROD12(10)\r\n      HABC(17) = PROD12(11)\r\n      HABC(18) = PROD12(12)\r\nC\r\nC     MAP  H , H , AND H  INTO THE G-MATRICES.\r\nC           A   B       C\r\nC\r\nC     TRIANGLE NUMBER = J, THE THREE POINTS ARE SUBSCA,SUBSCB,SUBSCC.\r\nC\r\n      DO 170 I = 1,3\r\nC\r\nC     POINTER TO H  = 6*I - 6\r\nC                 I\r\nC\r\nC     TRANSFORM H SUB I\r\nC\r\n      CALL GMMATS (HABC(6*I-5),2,3,0, T(1),3,3,0, TEMP9(1))\r\nC\r\n      NPOINT = KM + I\r\n      NPOINT = 9*M(NPOINT) - 9\r\nC\r\nC     J = 1  ROW 1 OF H INTO ROW 1 OF G.\r\nC            ROW 2 OF H INTO ROW 2 OF G.\r\nC     J = 2  ROW 1 OF H INTO ROW 2 OF G.\r\nC            ROW 2 OF H INTO ROW 3 OF G.\r\nC     J = 3  ROW 1 OF H INTO ROW 3 OF G.\r\nC            ROW 2 OF H INTO ROW 1 OF G.\r\nC\r\n      IF (J - 2) 140,130,160\r\nC\r\n  130 NPOINT = NPOINT + 3\r\n  140 DO 150 K = 1,6\r\n      NPOINT = NPOINT + 1\r\n  150 G(NPOINT) = G(NPOINT) + TEMP9(K)\r\n      GO TO 170\r\n  160 G(NPOINT+7) = G(NPOINT+7) + TEMP9(1)\r\n      G(NPOINT+8) = G(NPOINT+8) + TEMP9(2)\r\n      G(NPOINT+9) = G(NPOINT+9) + TEMP9(3)\r\n      G(NPOINT+1) = G(NPOINT+1) + TEMP9(4)\r\n      G(NPOINT+2) = G(NPOINT+2) + TEMP9(5)\r\n      G(NPOINT+3) = G(NPOINT+3) + TEMP9(6)\r\nC\r\n  170 CONTINUE\r\nC\r\n  180 CONTINUE\r\nC\r\nC     FILL E-MATRIX\r\nC\r\n      DO 190 I = 1,18\r\n  190 E( I) = 0.0\r\n      E( 1) = KVECT(1)\r\n      E( 4) = KVECT(2)\r\n      E( 7) = KVECT(3)\r\n      E(11) = IVECT(1)\r\n      E(14) = IVECT(2)\r\n      E(17) = IVECT(3)\r\n      E(12) = JVECT(1)\r\n      E(15) = JVECT(2)\r\n      E(18) = JVECT(3)\r\nC\r\nC               *         *     -1\r\nC     (S ) = (S  )  -  (S  )(G )  (G )           I=A,B,C\r\nC       I      I         4    4     I\r\nC\r\nC\r\nC        E            T                  T\r\nC     (S  ) = (S ) (E) (C ) = (S ) (TITE)    I=A,B,C\r\nC       I       I        I      I\r\nC\r\nC                                 *     -1\r\nC     FIRST GET COMMON PRODUCT (S  )(G )\r\nC                                4    4\r\nC\r\nC     INVERT  (G )  STORE INVERSE BACK INTO  (G )\r\nC               4                              4\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (3,G(28),3,PROD9(1),0,DETERM,ISING,TEMP9(1))\r\nC\r\nC     CHECK FOR SINGULARITY.  ISING = 2 IMPLIES SINGULARITY...\r\nC\r\n      GO TO (210,200), ISING\r\n  200 CALL MESAGE (-30,36,ECPT(1))\r\nC\r\n  210 CALL GMMATS (SSUM(46),5,3,0, G(28),3,3,0, PROD15(1))\r\nC\r\n      DO 260 I = 1,3\r\nC\r\nC    (PROD15) (G )\r\nC               I\r\nC\r\n      CALL GMMATS (PROD15(1),5,3,0, G(9*I-8),3,3,0, TEMP15(1))\r\nC\r\nC     SUBTRACT TEMP15 FROM S\r\nC                          I\r\nC\r\n      NPOINT = 15*I - 15\r\n      DO 220 K = 1,15\r\n      NPOINT = NPOINT + 1\r\n  220 SSUM(NPOINT) = SSUM(NPOINT) - TEMP15(K)\r\nC\r\nC     DO WE NEED TRANSFORMATION T\r\nC                                I\r\n      NSUBC = 4*I + 9\r\n      IF (NECPT(NSUBC) .EQ. 0) GO TO 230\r\n      CALL GBTRAN (NECPT(NSUBC), NECPT(NSUBC+1), T(1))\r\n      CALL GMMATS (T(1),3,3,1, E( 1),3,3,0, TITE( 1))\r\n      CALL GMMATS (T(1),3,3,1, E(10),3,3,0, TITE(10))\r\n      GO TO 250\r\nC\r\n  230 DO 240 K = 1,18\r\n  240 TITE(K) = E(K)\r\nC\r\n  250 CALL GMMATS (SSUM(15*I -14),5,3,0, TITE(1),6,3,1, KS(1))\r\nC\r\nC     COMPUTE THE LOAD VECTOR AND INSERT IT INTO OPEN CORE.\r\nC\r\n      CALL GMMATS (KS(1),5,6,1, KHI(1),5,1,0, P(1))\r\n      K = NECPT(I+1) - 1\r\n      DO 255 L = 1,6\r\n      K = K + 1\r\n  255 Z(K) = Z(K) + P(L)\r\nC\r\n  260 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/trttem.f",
    "content": "      SUBROUTINE TRTTEM ( TI, PG)\r\nC****\r\nC THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE ASSYMMETRIC RING ELE\r\nC WITH A TRIANGULAR CROSS SECTION\r\nC****\r\nC ECPT (01) = ELEMENT ID                         I\r\nC ECPT (02) = SIL A                              I\r\nC ECPT (03) = SIL B                              I\r\nC ECPT (04) = SIL C                              I\r\nC ECPT (05) = MATERIAL ORIENTATION ANGLE(DEGREES)R\r\nC ECPT (07) = MATERIAL ID                        I\r\nC ECPT (08) TO  ECPT (21) = PHI                  R\r\nC ECPT (22) = COOR. SYS. FOR GRID POINT A        I\r\nC ECPT (23) = R-CORD OF GRID A                   R\r\nC ECPT (24) = Z-CORD OF GRID A                   R\r\nC ECPT (25) = 0.0                                R\r\nC ECPT (26) = CORD. SYS. GRID POINT B (NOT USED) I\r\nC ECPT (27) = R-CORD OF GRID B                   R\r\nC ECPT (28) = Z-CORD OF GRID B                   R\r\nC ECPT (29) = 0.0                                R\r\nC ECPT (30) = CORD. SYS. GRID POINT C (NOT USED) I\r\nC ECPT (31) = R-CORD OF GRID C                   R\r\nC ECPT (32) = Z-CORD OF GRID C                   R\r\nC ECPT (33) = 0.0                                R\r\nC ECPT (34) = EL. TEMPERATURE FOR MATERIAL       R\r\nC\r\n      DIMENSION R(3), Z(3), GABABQ(9,9),DELINT(12),TEO(21)\r\n     1,         DTT(9),IGP(3),IECPT(34),ICS(3),PG(1),FIJ(9)\r\n     2,         D(3)  ,TL(9) ,TI(3)\r\nC\r\nC  . ECPT COMMON BLOCK\r\n      COMMON    /TRIMEX/  ECPT(34)\r\nC\r\nC  . MATERIAL INPUT AND OUTPUT...\r\n      COMMON    /MATIN/\r\n     1                   MATIDC            ,MATFLG\r\n     2,                  ELTEMP            ,STRESS\r\n     3,                  SINTH             ,COSTH\r\nC\r\n      COMMON    /MATOUT/\r\n     1                   E(3)              ,ANU(3)\r\n     2,                  RHO               ,G(3)\r\n     3,                  ALF(3)            ,TZERO      ,GSUBE\r\n     4,                   MOSKP(9)            ,SETMAT\r\n      COMMON    /CONDAS/  CONSTS(5)\r\n      EQUIVALENCE (IECPT(1), ECPT(1)),  (Z(1), Z1),  (Z(2), Z2)\r\n     1,             ( Z(3), Z3)\r\n     2,        ( R(1), R1),  ( R(2), R2),  (R(3), R3)\r\n      EQUIVALENCE (CONSTS(1),PI), (CONSTS(4),DEGRAD)\r\nC\r\nC START EXECUTION\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\n      IDEL = IECPT(1)\r\n      IGP(1) = IECPT(2)\r\n      IGP(2) = IECPT(3)\r\n      IGP(3) = IECPT(4)\r\n      MATID  = IECPT(07)\r\n      ICS(1) = IECPT(22)\r\n      ICS(2) = IECPT(26)\r\n      ICS(3) = IECPT(30)\r\n      R(1)   = ECPT(23)\r\n      R(2)   = ECPT(27)\r\n      R(3)   = ECPT(31)\r\n      Z(2)   = ECPT(28)\r\n      D(2)   = ECPT(29)\r\n      Z(1)   = ECPT(24)\r\n      D(1)   = ECPT(25)\r\n      Z(3)   = ECPT(32)\r\n      D(3)   = ECPT(33)\r\n      DGAMA  = ECPT(05)\r\n      TEMPE  = ECPT(34)\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\n      ZMIN = AMIN1(Z1, Z2, Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC FORM THE TRANSFORMATION MATRIX GABABQ (9X9) FROM FIELD COORDINATES TO\r\nC GRID POINT DEGREES OF FREEDOM\r\n      DO 300 I = 1,9\r\n      DO 300 J = 1,9\r\n  300 GABABQ (I,J) = 0.000\r\n      AA = R2 * Z3 + R1 * Z2 + Z1 * R3 - Z2 * R3 - R1 * Z3 - R2 * Z1\r\n      AA = 1.0E0 / AA\r\n      C1 = AA * ( R2 * Z3 - Z2 * R3)\r\n      C2 = - AA * ( Z3 - Z2 )\r\n      C3 = AA * ( R3 - R2 )\r\n      GABABQ (1,1) = C1\r\n      GABABQ (2,4) = C1\r\n      GABABQ (3,7) = C1\r\n      GABABQ (1,2) = C2\r\n      GABABQ (2,5) = C2\r\n      GABABQ (3,8) = C2\r\n      GABABQ (1,3) = C3\r\n      GABABQ(2,6) = C3\r\n      GABABQ(3,9) = C3\r\n      C1 = -AA * ( R1 * Z3 - Z1 * R3)\r\n      C2 =  AA * ( Z3 - Z1 )\r\n      C3 = -AA * ( R3 - R1 )\r\n      GABABQ(4,1) = C1\r\n      GABABQ(4,2) = C2\r\n      GABABQ(4,3) = C3\r\n      GABABQ(5,4) = C1\r\n      GABABQ(5,5) = C2\r\n      GABABQ(5,6) = C3\r\n      GABABQ(6,7) = C1\r\n      GABABQ(6,8) = C2\r\n      GABABQ(6,9) = C3\r\n      C1 = AA * ( R1 * Z2 - Z1 * R2)\r\n      C2 = -AA * ( Z2 - Z1)\r\n      C3 = AA * ( R2 - R1 )\r\n      GABABQ(7,1) = C1\r\n      GABABQ(7,2) = C2\r\n      GABABQ(7,3) = C3\r\n      GABABQ(8,4) = C1\r\n      GABABQ(8,5) = C2\r\n      GABABQ(8,6) = C3\r\n      GABABQ(9,7) = C1\r\n      GABABQ(9,8) = C2\r\n      GABABQ(9,9) = C3\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3\r\n      DGAMR = DGAMA * DEGRAD\r\n      COSG = COS (DGAMR)\r\n      SING = SIN (DGAMR)\r\n      COSTH = COSG\r\n      SINTH = SING\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT (IDEL)\r\n      IF (SETMAT.EQ.2.0) GO TO 910\r\nC\r\nC  . SET MATERIAL PROPERTIES IN LOCAL VARIABLES...\r\n      ER = E(1)\r\n      ET = E(2)\r\n      EZ = E(3)\r\n      VRO = ANU(1)\r\n      VOZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GOR = G(1)\r\n      GZO = G(2)\r\n      GRZ = G(3)\r\n      VOR = VRO * ET / ER\r\n      VZO = VOZ * EZ / ET\r\n      VRZ = VZR * ER / EZ\r\n      DEL = 1.0E0 / (1.0E0 - VRO * VOR - VOZ * VZO - VZR * VRZ\r\n     1     - VRO * VOZ * VZR - VRZ * VOR * VZO )\r\nC\r\nC COMPUTE ELASTIC CONSTANTS MATRIX FROM MATERIAL TO ELEMENT AXIS\r\n      DO 510 I = 1,21\r\n  510 TEO (I) = 0.0E0\r\n      TEO (1) = ER * ( 1.0E0 - VOZ * VZO) * DEL\r\n      TEO (2) = ER * ( VZR + VZO * VOR ) * DEL\r\n      TEO (3) = EZ * ( 1.0E0 - VRO * VOR ) * DEL\r\n      TEO (4) = ER * ( VOR + VZR * VOZ) * DEL\r\n      TEO (5) = ET * (VZO + VRO * VZR ) * DEL\r\n      TEO (6) = ET * ( 1.0E0 - VRZ * VZR ) * DEL\r\n      TEO (10) = GRZ\r\n      TEO (15) = GOR\r\n      TEO (21) = GZO\r\n      C2 = COSG * COSG\r\n      C4 = C2 * C2\r\n      S2 = SING * SING\r\n      S4 = S2 * S2\r\n      C2S2 = C2 * S2\r\n      EE01 = TEO(1)*C4 + TEO(3)*S4 + (TEO(2) + 2.0E0*TEO(10))\r\n     1      * 2.0E0*C2S2\r\n      EE02 = TEO(2) * (S4+C4) + (TEO(1) + TEO(3) - 4.0E0*TEO(10))*C2S2\r\n      EE03 = TEO(4)*C2 + TEO(5)*S2\r\n      EE04 = SING*COSG * (TEO(1)*C2 - TEO(3)*S2 + (TEO(2) + 2.0E0\r\n     4      *TEO(10)) * (S2-C2))\r\n      EE08 = TEO(1)*S4 + TEO(3)*C4 + (2.0E0*TEO(2) + 4.0E0*TEO(10))\r\n     8      * C2S2\r\n      EE09 = TEO(4)*S2 + TEO(5)*C2\r\n      EE10 = SING*COSG * (TEO(1)*S2 - TEO(3)*C2 + (TEO(2) + 2.0E0\r\n     *      * TEO(10)) * (C2 - S2))\r\n      EE15 = TEO(6)\r\n      EE16 = SING*COSG * (TEO(4) - TEO(5))\r\nC\r\nC COMPUTE HARMONIC COEFFICIENT\r\n      AJHO = IECPT(1) - (IECPT(1) /1000) * 1000 - 1\r\nC\r\nC  . CALCULATE THE INTEGRAL VALUES IN DELINT...\r\nC\r\nC         DELINT(4) = 0,0\r\nC         DELINT(5) = 0,1\r\nC         DELINT(6) = 1,0\r\nC\r\n      DELINT(4) = AIS (3,0,0,R,Z)\r\n      DELINT(5) = AIS (3,0,1,R,Z)\r\n      DELINT(6) = AIS (3,1,0,R,Z)\r\nC\r\n      T1 = EE01*ALF(1) + EE02*ALF(3) + EE03*ALF(2)\r\n      T2 = EE02*ALF(1) + EE08*ALF(3) + EE09*ALF(2)\r\n      T3 = EE03*ALF(1) + EE09*ALF(3) + EE15*ALF(2)\r\n      T4 = EE04*ALF(1) + EE10*ALF(3) + EE16*ALF(2)\r\nC GENERATE DTT MATRIX\r\n      DTT (1) = DELINT (4) * T3\r\n      DTT (2) = DELINT (6) * ( T1 + T3 )\r\n      DTT (3) = DELINT (5) * T3 + DELINT(6) * T4\r\n      DTT (4) = AJHO * DTT (1)\r\n      DTT (5) = AJHO * DELINT (6)*T3\r\n      DTT (6) = AJHO * DELINT (5) * T3\r\n      DTT (7) = 0.0\r\n      DTT (8) = DELINT (6) * T4\r\n      DTT (9) = DELINT (6) * T2\r\nC\r\nC TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM\r\n      CALL GMMATS (GABABQ, 9, 9, 1, DTT, 9, 1, 0, FIJ)\r\n      T = TZERO\r\n      IF (AJHO.GT.0.0) T = 0.0\r\n      T = ((TI(1) + TI(2) + TI(3))/3.0E0 - T) * PI\r\n      IF ( AJHO .EQ. 0.0 ) T = T * 2.0E0\r\n      DO 959 I = 1, 9\r\n  959 TL(I) = T * FIJ(I)\r\nC\r\nC**** THE FOLLOWING CODE REMOVED.  CORD.SYS. NOT POSSIBLE WITH RINGAX **\r\nC.959 FIJ(I) = T*FIJ(I)\r\nC.\r\nC. LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC.    DO 750 I=1,81\r\nC.750 AKI(I) = 0.0\r\nC.     DO 800 I = 1,3\r\nC.    CALL GBTRAN(ICS(I),IECPT(4*I+22),DTT(1))  **R,TH,Z NEEDED**\r\nC.    K=30*(I-1) + 1\r\nC.     DO 800 J=1,3\r\nC.    KK = K+9*(J-1)\r\nC.    JJ=3*(J-1)+1\r\nC.    AKI(KK) = DTT(JJ)\r\nC.    AKI(KK+1) = DTT(JJ+1)\r\nC.    AKI(KK+2) = DTT(JJ+2)\r\nC.800 CONTINUE\r\nC.\r\nC. TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORD...\r\nC.    CALL GMMATS (AKI(1),9,9,1, FIJ(1),9,1,0, TL(1))\r\nC\r\nC ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD\r\n      K = 0\r\n      DO 900 I = 1, 3\r\n      L = IGP(I) - 1\r\n      DO 900 J = 1,3\r\n      K = K + 1\r\n      L = L + 1\r\n      PG(L) = PG(L) +  TL(K)\r\n  900 CONTINUE\r\n       GO TO 920\r\n  910 CALL MESAGE (-30,37,ECPT(1))\r\n  920 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tshear.f",
    "content": "      SUBROUTINE TSHEAR\r\nC\r\nC     ELEMENT TEMPERATURE AND DEFORMATION LOADING FOR THE SHEAR PANEL.\r\nC\r\nC     FORMULATION IS THAT OF A PSEUDO-ROD ON EACH EDGE OF THE SHEAR\r\nC     PANEL.\r\nC\r\nC     ECPT( 1)         - ELEMENT ID\r\nC     ECPT( 2 THRU 5)  - 4 GRID SILS\r\nC     ECPT( 6)         - MATERIAL ID\r\nC     ECPT( 7)         - THICKNESS\r\nC     ECPT( 8)         - NON-STRUCTURAL MASS\r\nC     ECPT( 9 THRU 24) - 4 POINTS (CSID,X,Y,Z) REPEATS\r\nC     ECPT(25)         - ELEMENT TEMPERATURE\r\nC     ECPT(26)         - F1 EFFECTIVENESS FACTOR DIRECTION 1, (NOT USED)\r\nC     ECPT(27)         - F2 EFFECTIVENESS FACTOR DIRECTION 2, (NOT USED)\r\nC\r\n      INTEGER         NCSID(4,4)\r\n      COMMON /SSGETT/ ELTYPE   ,OLDEL    ,EORFLG   ,ENDID   ,BUFFLG   ,\r\n     1                ITEMP    ,IDEFT    ,IDEFM\r\n      COMMON /TRIMEX/ ECPT(1)  ,ISILS(4) ,MID      ,THICK   ,FMU      ,\r\n     1                CSID(4,4),ELTEMP   ,F12(2)\r\n      COMMON /MATIN / MATID    ,INFLAG   ,TEMP     ,STRESS  ,SINTH    ,\r\n     1                COSTH\r\n      COMMON /MATOUT/ E1       ,G        ,NU       ,RHO     ,ALPHA    ,\r\n     1                TO1      ,GE       ,SIGMAT   ,SIGMAC  ,SIGMAS\r\n      COMMON /SSGWRK/ VEC(3,4) ,XL(4)    ,DIAG1(3) ,DIAG2(3),TI(16)   ,\r\n     1                PA       ,TSQ      ,VECA(3)  ,VECB(3) ,AREA     ,\r\n     2                VMAG     ,I        ,J        ,IA      ,IB       ,\r\n     3                I12      ,TBAR     ,IN\r\n      COMMON /ZZZZZZ/ PG(1)\r\n      EQUIVALENCE     (NCSID,CSID)\r\nC\r\n      F12(1) = 1.00\r\n      F12(2) = 1.00\r\nC\r\n      IF (F12(1).EQ.0.0 .AND. F12(2).EQ.0.0) RETURN\r\nC\r\nC     MATERIAL DATA ACQUISITION\r\nC\r\n      INFLAG = 1\r\n      MATID  = MID\r\n      TEMP   = ELTEMP\r\n      CALL MAT (ECPT(1))\r\nC\r\nC     GRID POINT TEMPERATURES\r\nC\r\n      IF (ITEMP) 100,800,100\r\n  100 CALL SSGETD (ECPT(1),TI,4)\r\nC\r\nC     ELEMENT DEFORMATION (NOT USED)\r\nC\r\nC     4 NORMALIZED EDGE VECTORS AND LENGTHS\r\nC\r\n      DO 300 I = 1,4\r\n      IGRID2 = I + 1\r\n      IF (I .EQ. 4) IGRID2 = 1\r\nC\r\n      DO 210 J = 1,3\r\n      VEC(J,I) = CSID(J+1,I) - CSID(J+1,IGRID2)\r\n  210 CONTINUE\r\nC\r\n      CALL NORM (VEC(1,I),XL(I))\r\n  300 CONTINUE\r\nC\r\n      IF (F12(1).GT.1.01 .AND. F12(2).GT.1.01) GO TO 500\r\nC\r\nC     PROJECTED AREA IS NEEDED. FIRST OBTAIN THE DIAGONAL VECTORS.\r\nC\r\n      DO 400 I = 1,3\r\n      DIAG1(I) = CSID(I+1,3) - CSID(I+1,1)\r\n      DIAG2(I) = CSID(I+1,4) - CSID(I+1,2)\r\n  400 CONTINUE\r\nC\r\nC     NORMAL VECTOR (DIAG1 X DIAG2)\r\nC\r\n      CALL SAXB (DIAG1,DIAG2,DIAG2)\r\n      CALL NORM (DIAG2,VKL)\r\n      PA = 0.5*VKL\r\nC\r\nC     LOOP THROUGH LOADS ON 4 EDGES.\r\nC\r\n  500 TSQ = THICK*THICK\r\n      DO 700 I = 1,4\r\n      I12 = MOD(I,2)\r\n      IF (I12 .EQ. 0) I12 = 2\r\n      IA = I\r\n      IB = IA + 1\r\n      IF (I .EQ. 4) IB = 1\r\nC\r\nC     TEMPERATURE\r\nC\r\n      TBAR = (TI(IA+1) + TI(IB+1))/2.0 - TO1\r\nC\r\nC     EXTENSIONAL AREA\r\nC\r\n      IF (F12(I12) .LE. 1.01) GO TO 550\r\n      AREA = 0.50*F12(I12)*TSQ\r\n      GO TO 560\r\n  550 AREA = F12(I12)*PA*THICK/(XL(I12) + XL(I12+2))\r\nC\r\n  560 VMAG = E1*AREA*ALPHA*TBAR\r\n      DO 570 J = 1,3\r\n      VECA(J) = VMAG*VEC(J,I)\r\n      VECB(J) =-VECA(J)\r\n  570 CONTINUE\r\nC\r\n      IF (NCSID(1,IB)) 580,590,580\r\n  580 CALL BASGLB (VECB(1),VECB(1),ISILS(IB),CSID(1,IB))\r\n  590 IN = ISILS(IB) - 1\r\n      DO 610 J = 1,3\r\n      IN = IN + 1\r\n      PG(IN) = PG(IN) + VECB(J)\r\n  610 CONTINUE\r\nC\r\n      IF (NCSID(1,IA)) 620,630,620\r\n  620 CALL BASGLB (VECA(1),VECA(1),ISILS(IA),CSID(1,IA))\r\n  630 IN = ISILS(IA) - 1\r\n      DO 640 J = 1,3\r\n      IN = IN + 1\r\n      PG(IN) = PG(IN) + VECA(J)\r\n  640 CONTINUE\r\nC\r\n  700 CONTINUE\r\n  800 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl1d.f",
    "content": "      SUBROUTINE TSPL1D (TS1,TS2,TS6,TS6S,TS7,KTR3,KTR31)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE1 FOR CTRPLT1 - DOUBLE PRECISION VERSION\r\nC\r\n      DOUBLE PRECISION GS1(4),GE1(9),BE(7),GA(7),WT(7),CONS(2)\r\n      DOUBLE PRECISION KTR3(400),KTR31(400)\r\n      DOUBLE PRECISION TS6(40),TS1(60),TS6S(40),TS2(60),TS7(60)\r\n      DOUBLE PRECISION THK,A11,A12,A13,A14,A15,A16,A21,A22,A23,A24,A25,\r\n     1   A26,A31,A32,A33,A34,A35,A36,A37\r\n     2,   CONS1,CONS11,CONS14\r\n      REAL J11,J12,J22\r\n      COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3\r\n      COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22\r\n      DATA  BE          /0.33333333333333333333D0,0.47014206D0,\r\n     1   0.05971588D0,0.47014206D0,0.101286505D0,0.79742699D0,\r\n     2   0.101286505D0/, GA          /0.33333333333333333333D0,\r\n     3   2*0.47014206D0,0.05971588D0,2*0.101286505D0,0.79742699D0/,\r\n     4    WT          /0.1125D0,3*0.066197075D0,3*0.06296959D0/\r\n      CONS(1)=DISTA*DISTC\r\n      CONS(2)=DISTB*DISTC\r\n      DO 104 I=1,60\r\n      TS1(I)=0.0D0\r\n  104 CONTINUE\r\n      DO 150 K=1,7\r\n      DO 145 KASE=1,2\r\n      IF (KASE.EQ.1)  X=BE(K)*DISTA\r\n      IF (KASE.EQ.2) X=-BE(K)*DISTB\r\n      Y=GA(K)*DISTC\r\n      CALL TSPL3D (TS6)\r\n      CONS1=WT(K)*CONS(KASE)\r\n      THK=A1+A2*X+A3*Y\r\n      CONS14=CONS1*THK\r\n      GS1(1)=RJ11*CONS14\r\n      GS1(2)=RJ12*CONS14\r\n      GS1(3)=GS1(2)\r\n      GS1(4)=RJ22*CONS14\r\n      CONS11=CONS1*THK**3/12.0D0\r\n      THK1=THK**3/12.0D0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      J11=1.0/(EM(6)*THK)\r\n      J22=J11\r\n      J12=0.0\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\n      GE1(1)=EM(1)*CONS11\r\n      GE1(2)=EM(2)*CONS11\r\n      GE1(3)=EM(3)*CONS11\r\n      GE1(4)=GE1(2)\r\n      GE1(5)=EM(4)*CONS11\r\n      GE1(6)=EM(5)*CONS11\r\n      GE1(7)=GE1(3)\r\n      GE1(8)=GE1(6)\r\n      GE1(9)=EM(6)*CONS11\r\nC\r\nC        (B1) REFERS TO BENDING STRAIN DUE TO SECOND DERIVATIVES OF W\r\nC        (B2) REFERS TO BENDING STRAINS DUE TO TRANSVERSE SHEAR STRAIN\r\nC        (GAMMA) TRANSPOSE (GS) * (GAMMA) IS CONTRIBUTION OF STIFFNESS\r\nC        MATRIX DUE TO WORK DONE BY SHEARING FORCES UNDERGOING SHEAR DEF\r\nC\r\nC\r\nC  GAMMA TRANSPOSE GS GAMMA\r\nC\r\n      CALL GMMATD (TS6,2,20,+1,GS1,2,2,0,TS6S)\r\n      CALL GMMATD (TS6S,20,2,-2,TS6,2,20,0,KTR3)\r\n      TS1(31)  =-24.0*A11\r\n      TS1(33)  =-24.0*A21\r\n      TS1(34)  =-6.0*A31\r\n      TS1(35)  =-6.0*A21\r\n      TS1(36)  =-6.0*A35\r\n      TS1(37)  =-4.0*A32\r\n      TS1(38)  =-4.0*A33\r\n      TS1(39)  =-4.0*A36\r\n      TS1(40)  =-6.0*A15\r\n      TS1(41)  =-6.0*A34\r\n      TS1(42)  =-6.0*A37\r\n      TS1(44)  =-24.0*A25\r\n      TS1(45)  =-24.0*A15\r\n      TS1(46)  =-120.0*A11*X\r\n      TS1(48)  =-120.0*A21*X\r\n      TS1(49)  =-12.0*(A32*X+A31*Y)\r\n      TS1(50)  =-12.0*(A33*X+A21*Y)\r\n      TS1(51)  =-12.0*(A36*X+A35*Y)\r\n      TS1(52)  =-12.0*(A15*X+A32*Y)\r\n      TS1(53)  =-12.0*(A34*X+A33*Y)\r\n      TS1(54)  =-12.0*(A37*X+A36*Y)\r\n      TS1(55)  =-24.0*A15*Y\r\n      TS1(56)  =-24.0*(A25*X+A34*Y)\r\n      TS1(57)  =-24.0*(A15*X+A37*Y)\r\n      TS1(59)  =-120.0*A25*Y\r\n      TS1(60)  =-120.0*A15*Y\r\nC\r\nC  B2 TRANSPOSE D B2\r\nC\r\n      CALL GMMATD (TS1,20,3,0,GE1,3,3,0,TS2)\r\n      CALL GMMATD (TS2,20,3,-2,TS1,20,3,+1,KTR3)\r\nC\r\nC  B2 TRANSPOSE D B1\r\nC\r\n      CALL TSPL2D (TS7)\r\n      CALL GMMATD (TS2,20,3, 0,TS7,3,20, 0,KTR31)\r\nC\r\nC  B1 TRANSPOSE D B2\r\nC\r\n      DO 120 I=1,20\r\n      DO 120 J=1,20\r\n      IJ=(I-1)*20+J\r\n      JI=(J-1)*20+I\r\n      KTR3(IJ)=KTR3(IJ)+KTR31(IJ)+KTR31(JI)\r\n  120 CONTINUE\r\n  145 CONTINUE\r\n  150 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl1s.f",
    "content": "      SUBROUTINE TSPL1S (TS1,TS2,TS6,TS6S,TS7,KTR3,KTR31)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE1 FOR CTRPLT1 - SINGLE PRECISION VERSION\r\nC\r\n      REAL KTR3,KTR31\r\n      REAL J11,J12,J22\r\n      DIMENSION KTR3(400),KTR31(400),TS1(60),TS2(60),TS6(40),TS6S(40)\r\n     1,    TS7(60),GS1(4),GE1(9),BE(7),GA(7),WT(7),CONS(2)\r\n      COMMON /SMA1IO/ X,Y,Z,DISTA,DISTB,DISTC,A1,A2,A3\r\n      COMMON /MATOUT/ EM(6),DUM6(9),RJ11,RJ12,RJ22\r\nC\r\n      DATA  BE          /0.33333333333333E0,0.47014206E0,\r\n     1   0.05971588E0,0.47014206E0,0.101286505E0,0.79742699E0,\r\n     2   0.101286505E0/, GA          /0.33333333333333E0,\r\n     3   2*0.47014206E0,0.05971588E0,2*0.101286505E0,0.79742699E0/,\r\n     4    WT          /0.1125E0,3*0.066197075E0,3*0.06296959E0/\r\n      CONS(1)=DISTA*DISTC\r\n      CONS(2)=DISTB*DISTC\r\n      DO 104 I=1,60\r\n      TS1(I)=0.0E0\r\n  104 CONTINUE\r\n      DO 150 K=1,7\r\n      DO 145 KASE=1,2\r\n      IF (KASE.EQ.1)  X=BE(K)*DISTA\r\n      IF (KASE.EQ.2) X=-BE(K)*DISTB\r\n      Y=GA(K)*DISTC\r\n      CALL TSPL3S (TS6)\r\n      CONS1=WT(K)*CONS(KASE)\r\n      THK=A1+A2*X+A3*Y\r\n      CONS14=CONS1*THK\r\n      GS1(1)=RJ11*CONS14\r\n      GS1(2)=RJ12*CONS14\r\n      GS1(3)=GS1(2)\r\n      GS1(4)=RJ22*CONS14\r\n      THK1=THK**3/12.0E0\r\n      CONS11=CONS1*THK1\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      J11=1.0/(EM(6)*THK)\r\n      J22=J11\r\n      J12=0.0\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\n      GE1(1)=EM(1)*CONS11\r\n      GE1(2)=EM(2)*CONS11\r\n      GE1(3)=EM(3)*CONS11\r\n      GE1(4)=GE1(2)\r\n      GE1(5)=EM(4)*CONS11\r\n      GE1(6)=EM(5)*CONS11\r\n      GE1(7)=GE1(3)\r\n      GE1(8)=GE1(6)\r\n      GE1(9)=EM(6)*CONS11\r\nC\r\nC        (B1) REFERS TO BENDING STRAIN DUE TO SECOND DERIVATIVES OF W\r\nC        (B2) REFERS TO BENDING STRAINS DUE TO TRANSVERSE SHEAR STRAIN\r\nC        (GAMMA) TRANSPOSE (GS) * (GAMMA) IS CONTRIBUTION OF STIFFNESS\r\nC        MATRIX DUE TO WORK DONE BY SHEARING FORCES UNDERGOING SHEAR DEF\r\nC\r\nC\r\nC  GAMMA TRANSPOSE GS GAMMA\r\nC\r\n      CALL GMMATS (TS6,2,20,+1,GS1,2,2,0,TS6S)\r\n      CALL GMMATS (TS6S,20,2,-2,TS6,2,20,0,KTR3)\r\n      TS1(31)  =-24.0*A11\r\n      TS1(33)  =-24.0*A21\r\n      TS1(34)  =-6.0*A31\r\n      TS1(35)  =-6.0*A21\r\n      TS1(36)  =-6.0*A35\r\n      TS1(37)  =-4.0*A32\r\n      TS1(38)  =-4.0*A33\r\n      TS1(39)  =-4.0*A36\r\n      TS1(40)  =-6.0*A15\r\n      TS1(41)  =-6.0*A34\r\n      TS1(42)  =-6.0*A37\r\n      TS1(44)  =-24.0*A25\r\n      TS1(45)  =-24.0*A15\r\n      TS1(46)  =-120.0*A11*X\r\n      TS1(48)  =-120.0*A21*X\r\n      TS1(49)  =-12.0*(A32*X+A31*Y)\r\n      TS1(50)  =-12.0*(A33*X+A21*Y)\r\n      TS1(51)  =-12.0*(A36*X+A35*Y)\r\n      TS1(52)  =-12.0*(A15*X+A32*Y)\r\n      TS1(53)  =-12.0*(A34*X+A33*Y)\r\n      TS1(54)  =-12.0*(A37*X+A36*Y)\r\n      TS1(55)  =-24.0*A15*Y\r\n      TS1(56)  =-24.0*(A25*X+A34*Y)\r\n      TS1(57)  =-24.0*(A15*X+A37*Y)\r\n      TS1(59)  =-120.0*A25*Y\r\n      TS1(60)  =-120.0*A15*Y\r\nC\r\nC  B2 TRANSPOSE D B2\r\nC\r\n      CALL GMMATS (TS1,20,3,0,GE1,3,3,0,TS2)\r\n      CALL GMMATS (TS2,20,3,-2,TS1,20,3,+1,KTR3)\r\nC\r\nC  B2 TRANSPOSE D B1\r\nC\r\n      CALL TSPL2S (TS7)\r\n      CALL GMMATS (TS2,20,3, 0,TS7,3,20, 0,KTR31)\r\nC\r\nC  B1 TRANSPOSE D B2\r\nC\r\n      DO 120 I=1,20\r\n      DO 120 J=1,20\r\n      IJ=(I-1)*20+J\r\n      JI=(J-1)*20+I\r\n      KTR3(IJ)=KTR3(IJ)+KTR31(IJ)+KTR31(JI)\r\n  120 CONTINUE\r\n  145 CONTINUE\r\n  150 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl2d.f",
    "content": "      SUBROUTINE TSPL2D (TS7)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE2 FOR CTRPLT1 - DOUBLE PRECISION VERSION\r\nC\r\n      DOUBLE PRECISION TS7(60)\r\n      COMMON /SMA1IO/ X,Y\r\n      DO 105 I=1,60\r\n      TS7(I)=0.0D0\r\n  105 CONTINUE\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      X3=X2*X\r\n      X2Y=X2*Y\r\n      XY2=X*Y2\r\n      Y3=Y2*Y\r\n      TS7(   4)=2.0\r\n      TS7(   7)=6.0*X\r\n      TS7(   8)=2.0*Y\r\n      TS7(  11)=12.0*X2\r\n      TS7(  12)=6.0*XY\r\n      TS7(  13)=2.0*Y2\r\n      TS7(  16)=20.0*X3\r\n      TS7(  17)=6.0*XY2\r\n      TS7(  18)=2.0*Y3\r\n      TS7(  26)=2.0\r\n      TS7(  29)=2.0*X\r\n      TS7(  30)=6.0*Y\r\n      TS7(  33)=2.0*X2\r\n      TS7(  34)=TS7(12)\r\n      TS7(  35)=12.0*Y2\r\n      TS7(  37)=2.0*X3\r\n      TS7(  38)=6.0*X2Y\r\n      TS7(  39)=12.0*XY2\r\n      TS7(  40)=20.0*Y3\r\n      TS7(  45)=2.0\r\n      TS7(  48)=4.0*X\r\n      TS7(  49)=4.0*Y\r\n      TS7(  52)=6.0*X2\r\n      TS7(  53)=8.0*XY\r\n      TS7(  54)=6.0*Y2\r\n      TS7(  57)=12.0*X2Y\r\n      TS7(  58)=TS7(39)\r\n      TS7(  59)=8.0*Y3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl2s.f",
    "content": "      SUBROUTINE TSPL2S (TS7)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE2 FOR CTRPLT1 - SINGLE PRECISION VERSION\r\nC\r\n      DIMENSION TS7(60)\r\n      COMMON /SMA1IO/ X,Y\r\n      DO 105 I=1,60\r\n      TS7(I)=0.0\r\n  105 CONTINUE\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      X3=X2*X\r\n      X2Y=X2*Y\r\n      XY2=X*Y2\r\n      Y3=Y2*Y\r\n      TS7(   4)=2.0\r\n      TS7(   7)=6.0*X\r\n      TS7(   8)=2.0*Y\r\n      TS7(  11)=12.0*X2\r\n      TS7(  12)=6.0*XY\r\n      TS7(  13)=2.0*Y2\r\n      TS7(  16)=20.0*X3\r\n      TS7(  17)=6.0*XY2\r\n      TS7(  18)=2.0*Y3\r\n      TS7(  26)=2.0\r\n      TS7(  29)=2.0*X\r\n      TS7(  30)=6.0*Y\r\n      TS7(  33)=2.0*X2\r\n      TS7(  34)=TS7(12)\r\n      TS7(  35)=12.0*Y2\r\n      TS7(  37)=2.0*X3\r\n      TS7(  38)=6.0*X2Y\r\n      TS7(  39)=12.0*XY2\r\n      TS7(  40)=20.0*Y3\r\n      TS7(  45)=2.0\r\n      TS7(  48)=4.0*X\r\n      TS7(  49)=4.0*Y\r\n      TS7(  52)=6.0*X2\r\n      TS7(  53)=8.0*XY\r\n      TS7(  54)=6.0*Y2\r\n      TS7(  57)=12.0*X2Y\r\n      TS7(  58)=TS7(39)\r\n      TS7(  59)=8.0*Y3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl3d.f",
    "content": "      SUBROUTINE TSPL3D (TS6)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE3 FOR CTRPLT1 - DOUBLE PRECISION VERSION\r\nC\r\n      DOUBLE PRECISION TS6(40)\r\n      DOUBLE PRECISION A11,A12,A13,A14,A15,A16,A21,A22,A23,A24,\r\n     1   A25,A26,A31,A32,A33,A34,A35,A36,A37,THK\r\n     2,   X2,XY,Y2,A38,A39,A40,A41\r\n      REAL J11,J12,J22\r\n      COMMON /MATOUT/ EM(6),DUM(12)\r\n      COMMON /SMA1IO/ X,Y,DUM2(4),\r\n     1     A1, A2, A3, AA1, AA2, AA3\r\n      DO 105 I=1,40\r\n      TS6(I)=0.0D0\r\n  105 CONTINUE\r\n      THK=A1+A2*X+A3*Y\r\n      THK1=THK**3/12.0D0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      THKTS=AA1+AA2*X+AA3*Y\r\n      J11=1.0/(EM(6)*THKTS)\r\n      J22=J11\r\n      J12=0.0\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      A38=A13+A14\r\n      A39=A12+A16\r\n      A40=A23+A24\r\n      A41=A22+A26\r\n      TS6( 7)=6.0*A11\r\n      TS6( 8)=2.0*A31\r\n      TS6( 9)=2.0*A32\r\n      TS6(10)=6.0*A15\r\n      TS6(11)=24.0*A11*X\r\n      TS6(12)=6.0*(A31*X+A11*Y)\r\n      TS6(13)=4.0*(A32*X+A31*Y)\r\n      TS6(14)=6.0*(A15*X+A32*Y)\r\n      TS6(15)=24.0*A15*Y\r\n      TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2)\r\n      TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21)\r\n     1   +6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33)\r\n     1   +6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15)\r\n      TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2)\r\n      TS6(27)=6.0*A21\r\n      TS6(28)=2.0*A33\r\n      TS6(29)=2.0*A34\r\n      TS6(30)=6.0*A25\r\n      TS6(31)=24.0*A21*X\r\n      TS6(32)=6.0*(A33*X+A21*Y)\r\n      TS6(33)=4.0*(A34*X+A33*Y)\r\n      TS6(34)=6.0*(A25*X+A34*Y)\r\n      TS6(35)=24.0*A25*Y\r\n      TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2)\r\n      TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21)\r\n     1   +6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33)\r\n     1   +6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15)\r\n      TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tspl3s.f",
    "content": "      SUBROUTINE TSPL3S (TS6)\r\nC\r\nC    TRANSVERSE SHEAR ROUTINE3 FOR CTRPLT1 - SINGLE PRECISION VERSION\r\nC\r\n      REAL J11,J12,J22\r\n      DIMENSION TS6(40)\r\n      COMMON /MATOUT/ EM(6),DUM(12)\r\n      COMMON /SMA1IO/ X,Y,DUM2(4),\r\n     1     A1, A2, A3, AA1, AA2, AA3\r\nC\r\n      DO 105 I=1,40\r\n      TS6(I)=0.0E0\r\n  105 CONTINUE\r\n      THK=A1+A2*X+A3*Y\r\n      THK1=THK**3/12.0E0\r\n      D11=EM(1)*THK1\r\n      D12=EM(2)*THK1\r\n      D13=EM(3)*THK1\r\n      D22=EM(4)*THK1\r\n      D23=EM(5)*THK1\r\n      D33=EM(6)*THK1\r\n      D21=D12\r\n      D31=D13\r\n      D32=D23\r\n      THKTS=AA1+AA2*X+AA3*Y\r\n      J11=1.0/(EM(6)*THKTS)\r\n      J22=J11\r\n      J12=0.0\r\n      A11=-(J11*D11+J12*D13)\r\n      A12=-(J11*D12+J12*D23)\r\n      A13=-(J11*D13+J12*D33)\r\n      A14=-(J11*D31+J12*D21)\r\n      A15=-(J11*D32+J12*D22)\r\n      A16=-(J11*D33+J12*D23)\r\n      A21=-(J12*D11+J22*D13)\r\n      A22=-(J12*D12+J22*D23)\r\n      A23=-(J12*D13+J22*D33)\r\n      A24=-(J12*D13+J22*D12)\r\n      A25=-(J12*D23+J22*D22)\r\n      A26=-(J12*D33+J22*D32)\r\n      A31=A14+2.0*A13\r\n      A32=A12+2.0*A16\r\n      A33=A24+2.0*A23\r\n      A34=A22+2.0*A26\r\n      A35=A33+A11\r\n      A36=A34+A31\r\n      A37=A25+A32\r\n      X2=X*X\r\n      XY=X*Y\r\n      Y2=Y*Y\r\n      A38=A13+A14\r\n      A39=A12+A16\r\n      A40=A23+A24\r\n      A41=A22+A26\r\n      TS6( 7)=6.0*A11\r\n      TS6( 8)=2.0*A31\r\n      TS6( 9)=2.0*A32\r\n      TS6(10)=6.0*A15\r\n      TS6(11)=24.0*A11*X\r\n      TS6(12)=6.0*(A31*X+A11*Y)\r\n      TS6(13)=4.0*(A32*X+A31*Y)\r\n      TS6(14)=6.0*(A15*X+A32*Y)\r\n      TS6(15)=24.0*A15*Y\r\n      TS6(16)=120.0*(-A11*A11-A13*A21+0.5*A11*X2)\r\n      TS6(17)=12.0*(-A11*A32-A13*A34-A38*A31-A39*A33-A16*A11-A15*A21)\r\n     1   +6.0*(A32*X2+2.0*A31*XY+A11*Y2)\r\n      TS6(18)=12.0*(-A11*A15-A13*A25-A38*A32-A39*A34-A16*A31-A15*A33)\r\n     1   +6.0*(A15*X2+2.0*A32*XY+A31*Y2)\r\n      TS6(19)=24.0*(-A39*A25-A16*A32-A15*A34+A15*XY+0.5*A32*Y2-A38*A15)\r\n      TS6(20)=-120.0*(A16*A15+A15*A25-0.5*A15*Y2)\r\n      TS6(27)=6.0*A21\r\n      TS6(28)=2.0*A33\r\n      TS6(29)=2.0*A34\r\n      TS6(30)=6.0*A25\r\n      TS6(31)=24.0*A21*X\r\n      TS6(32)=6.0*(A33*X+A21*Y)\r\n      TS6(33)=4.0*(A34*X+A33*Y)\r\n      TS6(34)=6.0*(A25*X+A34*Y)\r\n      TS6(35)=24.0*A25*Y\r\n      TS6(36)=120.0*(-A21*A11-A23*A21+0.5*A21*X2)\r\n      TS6(37)=12.0*(-A21*A32-A23*A34-A40*A31-A41*A33-A26*A11-A25*A21)\r\n     1   +6.0*(A34*X2+2.0*A33*XY+A21*Y2)\r\n      TS6(38)=12.0*(-A21*A15-A23*A25-A40*A32-A41*A34-A26*A31-A25*A33)\r\n     1   +6.0*(A25*X2+2.0*A34*XY+A33*Y2)\r\n      TS6(39)=24.0*(-A41*A25-A26*A32-A25*A34+A25*XY+0.5*A34*Y2-A40*A15)\r\n      TS6(40)=-120.0*(A26*A15+A25*A25-0.5*A25*Y2)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ttlpge.f",
    "content": "      SUBROUTINE TTLPGE (TOPT)\r\nC\r\nC\r\n      INTEGER         IDATE(3),CARD(20),TOPT,FCHAR\r\n      CHARACTER       MCHTTL*28,VN*15,MCHNAM*11,MACHOS*7\r\n      COMMON /CHMACH/ MCHNAM, MACHOS\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (KSYSTM( 2),NOUT), (KSYSTM(42),IDATE(1)),\r\n     1                (KSYSTM( 9),NLPP), (KSYSTM(11),   IPAGE),\r\n     2                (KSYSTM(91),LPCH)\r\nC\r\nC     ASSEMBLE MCHTTL AND VN LINE\r\nC\r\n      MCHTTL = ' '\r\n      VN = ' ' \r\n      NCMNAM = INDEX(MCHNAM,' ') - 1\r\n      IF (NCMNAM .LE. -1) NCMNAM = 11\r\n      NCMOS  = INDEX(MACHOS,' ') - 1\r\n      IF (NCMOS .LE. -1) NCMOS = 7\r\n      FCHAR = (11 - NCMNAM)/2 + 1\r\n      MCHTTL(FCHAR:FCHAR+NCMNAM+16) = MCHNAM(1:NCMNAM) // \r\n     1    ' COMPUTER SYSTEMS'\r\n      FCHAR = (7 - NCMOS)/2 + 1\r\n      VN(FCHAR:FCHAR+NCMOS+7) = MACHOS(1:NCMOS) // ' VERSION'\r\nC\r\nC     SET TOPT DEFAULT TO +2 FOR THE MAIN FRAMES, OR TO -1 FOR UNIX\r\nC     BASE WORKSTATION\r\nC\r\n      IF (TOPT .NE. -9) GO TO 1\r\n      TOPT = +2\r\n      IF (MACHX.GE.6 .AND. MACHX.LE.11) TOPT = -1\r\n   1  CONTINUE\r\nC\r\nC     BRANCH ON OPTION\r\nC\r\nC     TOPT = 1, PRINT ONE NASTRAN LOGO TITLE PAGE\r\nC          = 2, PRINT TWO NASTRAN LOGO TITLE PAGES\r\nC          = 3, PRINT DUMMY MESSAGE AND ONE SHORT TITLE PAGE\r\nC          = 4, READ AND PRINT ONE LINE USER INPUT CARD AND PRINT ONE\r\nC               NASTRAN SHORT TITLE PAGE\r\nC          = 0, OR .GE.5, NO TITLE PAGE PRINTED\r\nC          = NEGATIVE INTEGER, PRINT ONE NASTRAN SHORT TITLE PAGE\r\nC\r\n    5 IF (TOPT.NE.2  .AND. TOPT.NE.1) GO TO 110\r\nC\r\nC     TOPT = 1, OR 2\r\nC\r\n      DO 100 I = 1,TOPT\r\n      IF (IPAGE.LE.0 .OR. I.EQ.2) WRITE (NOUT,10)\r\n      IF (NLPP  .GT. 48) WRITE (NOUT,20)\r\n      WRITE (NOUT,30) MCHTTL,VN\r\n      WRITE (NOUT,50)\r\n      WRITE (NOUT,60) IDATE(2),IDATE(3)\r\n      WRITE (NOUT,70)\r\n      WRITE (NOUT,75)\r\n      WRITE (NOUT,80)\r\n      WRITE (NOUT,85)\r\n      WRITE (NOUT,90)\r\n      WRITE (NOUT,95)\r\n 10   FORMAT (1H1)\r\n 20   FORMAT (///)\r\n 30   FORMAT (34X,17(1HM),\r\n     2       /28X,29(1HM),\r\n     3       /25X,35(1HM),\r\n     4       /22X,20(1HM),1X,20(1HM),22X,1H/,6X,A28,\r\n     5       /20X,45(1HM),18X,2H//,9X,A20)\r\n 40   FORMAT (1H+,93X,A4,10H VERSION -,I5,1HK)\r\n 50   FORMAT (18X,16(1HM),2X,31(1HM),14X,3H///,\r\n     7       /16X,53(1HM),10X,4(1H/),\r\n     8       /14X,13(1HM),9X,35(1HM),6X,5(1H/))\r\n 60   FORMAT (13X,12(1HM),2X, 9(1HM),2X,34(1HM),3X, 6(1H/),9X,\r\n     *       3X,18HSYSTEM RELEASE  - , A3,A2,4H ED.)\r\n 70   FORMAT (12X,12(1HM),1X,13(1HM),3X,15(1HM),2X,15(1HM),6(1H/),\r\n     1       /11X,12(1HM),1X,17(1HM),2X,28(1HM),6(1H/),\r\n     2       /10X,13(1HM),1X,19(1HM),2X,24(1HM),6(1H/),\r\n     3       /9X,5(1HM),2X,7(1HM),1X,13(1HM),1X,7(1HM),2X,19(1HM),8(1H/)\r\n     *,      2HMM,\r\n     4       /9X,14(1HM),1X,23(1HM),2X,14(1HM),8(1H/),1H-,4(1HM),\r\n     *       43X,1H*,1X,1H*,1X,1H*,\r\n     5       /8X,16(1HM),1X,24(1HM),1X,9(1HM),9(1H/),2H--,7(1HM),\r\n     *       41X,1H*,5X,1H*)\r\n 75   FORMAT (8X,16(1HM),1X,25(1HM),2X,4(1HM),10(1H/),2H--,9(1HM),\r\n     *       41X,1H*,2X,1HR,2X,1H*,\r\n     7       /8X,16(1HM),1X,27(1HM),1X,1HM,8(1H/),4HMM--,11(1HM),\r\n     *       41X,1H*,5X,1H*,\r\n     8       /7X,8(1HM),4X,6(1HM),4X,5(1HM),5X,10(1HM),8X,4H//MM,11X,\r\n     *       2HMM,3X,6(1HM),7X,5(1HM),8X,4(1HM),6X,4(1HM),2X,1H*,1X,1H*,\r\n     *       1X,1H*,\r\n     9       /7X,9(1HM),4X,6(1HM),2X,7(1HM),4X,6(1HM),14H///   /// M  M,\r\n     *       25HM- MMM   MMM MMM  M   MMM,7X,4(1HM),9X,4(1HM),6X,2HMM)\r\n 80   FORMAT (7X,9(1HM),5X,5(1HM),2X,6(1HM),3H  M,3X,8(1H/),3X,4(1HM),\r\n     *       5H MM--,5(1HM),3X,7(1HM),21H  M    MMM     MM MMM,8X,\r\n     *       5(1HM),5X,2HMM,\r\n     1       /7X,9(1HM),2X,1HM,4X,5HMMM  ,4(1HM),6H// ///,3X,5(1H/),\r\n     *       13HMMM   MMMM-- ,6(1HM),3X,7(1HM),41H  M    MMM     M   MMM\r\n     *       MM MMMM   MM,\r\n     2       /7X,9(1HM),2X,2HMM,4X,2HMM,3X,4(1H/),2X,3H///,4X,8(1HM),\r\n     *       4X,4H--M ,7(1HM),3X,7(1HM),2X,1HM,3X,3HMMM,5X,2HMM,3X,\r\n     *       4(1HM),6X,2HMM,2X,4(1HM),2X,2HMM)\r\n 85   FORMAT (7X,9(1HM),2X,4(1HM),6X,11H/ /// ///MM,4X,8(1HM),4H---M,\r\n     *       4X,6(1HM),3X,7(1HM),2X,6(1HM),6X,1HM,5X,4(1HM),5X,2HMM,\r\n     *       4X,6(1HM),\r\n     4       /7X,9(1HM),2X,5(1H/),5X,4H// M,11X,6(1HM),3H---,4(1HM),4X,\r\n     *       5(1HM),3X,7(1HM),7H  M MMM,6X,11(1HM),5X,2HMM,5X,5(1HM),\r\n     5       /7X,2HMM,7(1H/),2X,6(1HM),4X,3HMMM,2X,7(1HM),4X,7HMMM----,\r\n     *       4HMMMM,4X,6HM MMMM,3X,7(1HM),8H  M  MMM,4X,2HMM,7X,\r\n     *       4(1HM),4X,2HMM,6X,4(1HM),\r\n     6       /5X,4(1H/),6(1HM),4X,7(1HM),2X,2HMM,4X,5(1HM),5X,5H----M,\r\n     *       9X,6HMM MMM,5X,5(1HM),3X,2HMM,3X,2HMM,2X,4(1HM),5X,\r\n     *       6(1HM),2X,4(1HM),7X,2HMM)\r\n 90   FORMAT (3X,2H//,3X,26(1HM),1X,6(1HM),4(1H-),16(1HM),1X,15(1HM),\r\n     *       6X,3HMMM,\r\n     8       /8X, 27(1HM),7H MM----,19(1HM),1X,15(1HM),\r\n     9       /8X, 27(1HM),3H---,23(1HM),1X,15(1HM),\r\n     O       /9X, 24(1HM),7H---MM  ,22(1HM),1X,13(1HM),\r\n     1       /9X, 22(1HM),2H--,6(1HM),4X,19(1HM),1X,5(1HM),2X,6(1HM),\r\n     2       /10X,19(1HM),3H---,7(1HM),4X,19(1HM),1X,12(1HM),\r\n     3       /11X, 9(1HM),1X,6(1HM),2H--,  33(1HM), 1X, 11(1HM),\r\n     4       /12X,13(1HM),3H---,33(1HM),1X,11(1HM))\r\n 95   FORMAT (13X,11(1HM),2H--, 22(1HM),2X, 9(1HM), 2X, 11(1HM),\r\n     6       /14X, 8(1HM),2H--,26(1HM), 9X,12(1HM),\r\n     7       /16X, 5(1HM),2H--,46(1HM),24X,14HDISTRIBUTED BY,\r\n     8       /18X, 4HMM--,13(1HM),2X,30(1HM),\r\n     9       /19X, 1H-,   45(1HM),5X,\r\n     *       51HCOMPUTER SOFTWARE MANAGEMENT AND INFORMATION CENTER,\r\n     *       9H (COSMIC),\r\n     O       /18X,1H-,3X,41(1HM),26X,22HUNIVERSITY OF  GEORGIA,\r\n     1       /17X,1H-,7X,35(1HM),29X,22HATHENS, GEORGIA  30602,\r\n     2       /28X,29(1HM),\r\n     3       /1X,14X,\r\n     4       19X,17(1HM),28X,40HPHONE: (706)542-3265   FAX: (706)542-480\r\n     5       ,1H7)\r\n 100  CONTINUE\r\n      GO TO 240\r\nC\r\n 110  IF (TOPT  ) 160,240,120\r\n 120  IF (TOPT-4) 130,210,240\r\nC\r\nC     TOPT = 3\r\nC\r\n 130  WRITE  (NOUT, 10)\r\n      WRITE  (NOUT,140)\r\n 140  FORMAT (' THIS COMMENT CAN BE USED TO IDENTIFY LOCAL FIXES - ',\r\n     1        'TO CHANGE, UPDATE DECK TTLPGE.')\r\n      GO TO 160\r\nC\r\nC     TOPT = NEGATIVE (AND 3, AND 4)\r\nC\r\n 160  IF (IPAGE .LE. 0) CALL PAGE1\r\n      WRITE  (NOUT,170) MCHTTL\r\n      WRITE  (NOUT,180) VN,IDATE(2),IDATE(3)\r\n      WRITE  (NOUT,190)\r\n 170  FORMAT (//////34X,4H****, /32X,1H*,6X,1H*, /31X,1H*,8X,1H*,\r\n     1       /31X,16H*  N A S T R A N,\r\n     2       /31X,1H*,8X,1H*, /32X,1H*,6X,1H*, /34X,4H****,\r\n     3       ///25X,A28)\r\n 180  FORMAT(27X,A20,//26X,17HSYSTEM RELEASE - ,A3,A2, 4H ED.)\r\n 190  FORMAT (/32X,'DISTRIBUTED BY', //9X,'COMPUTER SOFTWARE MANAGE',\r\n     1       'MENT AND INFORMATION CENTER (COSMIC)', /17X,'UNIVERSITY ',\r\n     2       'OF GEORGIA, ATHENS, GEORGIA 30602', /17X,\r\n     3       'PHONE: (706)542-3265', 6X, 'FAX: (706)542-4807')\r\n      GO TO 240\r\nC\r\nC     TOPT = 4\r\nC\r\n 210  WRITE  (NOUT,10)\r\n      CALL XREAD (*240,CARD)\r\n      WRITE  (NOUT,220) CARD\r\n 220  FORMAT (1X,20A4)\r\n      GO TO 160\r\nC\r\nC     CALL NSINFO TO PRINTOUT INSTALLATION-CENTER-TO-USER MESSAGES,\r\nC     FROM THE THIRD SECTION OF THE NASINFO FILE\r\nC\r\n 240  CALL NSINFO (3)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ttordr.f",
    "content": "      SUBROUTINE TTORDR (TI, PG)\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINE COMPUTES THE THERMAL LOAD FOR AN AXI-SYMMETRIC\r\nC TOROIDAL THIN SHELL RING\r\nC*****\r\nC\r\nC\r\nC\r\nC                        ECPT FOR THE TOROIDAL RING\r\nC\r\nC                                                       TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                         I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A              I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B              I\r\nC ECPT( 4) ANGLE OF CURVATURE AT GRID POINT A             R\r\nC ECPT( 5) ANGLE OF CURVATURE AT GRID POINT B(NOT USED)   R\r\nC ECPT( 6) MATERIAL ORIENTATION (NOT USED)                R\r\nC ECPT( 7) MATERIAL IDENTIFICATION                        I\r\nC ECPT( 8) MEMBRANE THICKNESS                             R\r\nC ECPT( 9) FLEXURE THICKNESS                              R\r\nC ECPT(10) COOR. SYS. ID. FOR GRID POINT A                I\r\nC ECPT(11) X-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(12) Y-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(13) Z-COOR. OF GRID POINT A (IN BASIC COOR.)       R\r\nC ECPT(14) COOR. SYS. ID. FOR GRID POINT B                I\r\nC ECPT(15) X-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(16) Y-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(17) Z-COOR. OF GRID POINT B (IN BASIC COOR.)       R\r\nC ECPT(18) EL. TEMPERATURE FOR MATERIAL PROPERTIES        R\r\nC\r\nC\r\n      DIMENSION          TI(2),    PG(1)\r\n      DIMENSION          IECPT(18)\r\n      DIMENSION          GAMBQF(72),    GAMBQM(48)\r\n      DIMENSION          EE(4), GAMBQ(144), GAMRS(144)\r\n      DIMENSION          AKI(36),  DELINT(42)\r\n      DIMENSION          IGP(2),   ICS(2)\r\n      DIMENSION          GAMBL(144)\r\n      DIMENSION          D( 36),   R(2),     Z(2),     ALPH(2)\r\n      DIMENSION          FME(40),  FFE(40),  TL(12)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON   /TRIMEX/\r\n     1                   ECPT(18)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC        ,MATFLG\r\n     2,                  ELTEMP        ,STRESS\r\n     3,                  SINTH         ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)          ,ANU(3)\r\n     2,                  RHO           ,G(3)\r\n     3,                  ALF(3)        ,TZERO,    GSUBE\r\nC\r\n      EQUIVALENCE ( CONSTS(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE        (A1, ALPH(1)), (A2, ALPH(2))\r\n      EQUIVALENCE        (R1, R(1)),    (R2, R(2))\r\n      EQUIVALENCE        (Z1, Z(1)),    (Z2, Z(2))\r\n      EQUIVALENCE        (GAMBQM(1), GAMBQ(1))\r\n      EQUIVALENCE        (GAMBQF(1), GAMBQ(49))\r\n      EQUIVALENCE        (DELINT(1), GAMBQ(1))\r\n      EQUIVALENCE        (FME(1),    GAMBQ(43))\r\n      EQUIVALENCE        (FFE(1),    GAMBQ(83))\r\n      EQUIVALENCE        (GAMRS(1),  GAMBQ(1))\r\n      EQUIVALENCE        (AKI(1),    GAMBQ(1))\r\n      EQUIVALENCE        (GAMBL(1), GAMBQ(1))\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT(1)\r\n      IGP(1) = IECPT(2)\r\n      IGP(2) =  IECPT(3)\r\n      MATID  =  IECPT(7)\r\n      ICS(1) =  IECPT(10)\r\n      ICS(2) =  IECPT(14)\r\n      ALPH(1)=  ECPT(4)\r\n      ALPH(2)=  ECPT(5)\r\n      TM     =  ECPT(8)\r\n      TF     =  ECPT(9)\r\n      R(1)   =  ECPT(11)\r\n      D(1)   =  ECPT(12)\r\n      Z(1)   =  ECPT(13)\r\n      R(2)   =  ECPT(15)\r\n      D(2)   =  ECPT(16)\r\n      Z(2)   =  ECPT(17)\r\n      TEMPE  =  ECPT(18)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,2\r\n      IF (R(I) .LT. 0.0E0) CALL MESAGE(-30,37,IDEL)\r\n      IF (D(I) .NE. 0.0E0) CALL MESAGE(-30,37,IDEL)\r\n  200 CONTINUE\r\nC\r\nC\r\nC DETERMINE IF ELEMENT IS A TOROIDAL, CONICAL OR CYLINDRICAL RING\r\nC\r\n      ITORD = 0\r\n      IF (ABS(A1-A2) .LE. .000001) ITORD = 1\r\n      IF (ITORD .EQ. 1  .AND.  ABS(A1-90.0E0) .LE. .00001) ITORD = -1\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      A1 = A1 * DEGRA\r\n      A2 = A2 * DEGRA\r\n      PHIB = A2 - A1\r\n      SINA1 =  SIN(A1)\r\n      COSA1 =  COS(A1)\r\n      SINA2 =  SIN(A2)\r\n      COSA2 =  COS(A2)\r\nC\r\n      IF (ITORD .NE. 0) GO TO 300\r\nC\r\nC FOR THE TOROIDAL RING\r\nC\r\n      RP =  SQRT( (R2-R1)**2 + (Z2-Z1)**2 )\r\n     1      / (2.0E0 *  SIN(PHIB/2.0E0))\r\n      S = PHIB * RP\r\n      GO TO 350\r\nC\r\nC FOR THE CONICAL OR CYLINDRICAL RING\r\nC\r\n  300 CONTINUE\r\n      RP = 0.0D0\r\n      S  =  SQRT( (R2-R1)**2 + (Z2-Z1)**2 )\r\nC\r\n  350 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE BASIC AND REQUIRED INTEGRALS\r\nC\r\nC\r\nC SET UP ARRAY OF CONSTANTS FOR ROMBER INTEGRATION ROUTINE\r\nC\r\n      D(21) = 0.0E0\r\n      D(22) = RP\r\n      D(23) = R1\r\n      D(24) = COSA1\r\n      D(25) = SINA1\r\nC\r\nC COMPUTE CONSTANTS NEEDED FOR INTEGRAL CALCULATIONS\r\nC\r\n      D(30) = R1 - RP * SINA1\r\n      D(31) = RP * COSA1\r\n      D(32) = RP * SINA1\r\n      D(33) = COSA1 ** 2\r\n      D(34) = SINA1 * COSA1\r\n      D(35) = SINA1 ** 2\r\n      D(36) = 0.5 - D(35)\r\nC\r\nC START LOOP  FOR CALCULATIONS OF INTEGRALS\r\nC\r\n      DO 500 JP1 = 1,7\r\n      J = JP1 - 1\r\n      K = (J * 6) + 1\r\n      DJP1 = JP1\r\nC\r\nC TEST FOR ELEMENT SHAPE\r\nC\r\n      IF (ITORD) 470,400,430\r\nC\r\nC THE TOROIDAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1),...,D(6)\r\nC\r\n  400 CONTINUE\r\n      D(20) = (RP ** JP1)\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = D(20) * (PHIB ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = (PHIB ** (JP1+1)) / (DJP1 + 1.0E0)\r\n      D(10) = 1.0E0\r\n      DO 410 I = 1,20\r\n      IP = JP1 + 2 * I + 1\r\n      D(11) = 2 * I + 1\r\n      D(10) = D(10) * D(11) * (D(11)-1.0E0)\r\n      D(12) = (-1.0E0)** I  * PHIB ** IP\r\n     1        / ((DJP1 + D(11)) * D(10))\r\n      D(13) =  ABS( D(12) / D(2) )\r\n      D(2) = D(2) + D(12)\r\n      IF (D(13) .LE. 1.0E-10) GO TO 415\r\n  410 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  415 CONTINUE\r\n      D(2) = D(20) * D(2)\r\nC\r\nC COMPUTE I(J,3)\r\nC\r\n      D(3) = (PHIB ** JP1) / DJP1\r\n      D(10) = 1.0E0\r\n      DO 420 I = 1,20\r\n      IP = JP1 + 2 * I\r\n      D(11) = 2 * I\r\n      D(10) = D(10) * D(11) * (D(11) - 1.0E0)\r\n      D(12) = (-1.0E0)** I  * PHIB ** IP\r\n     1        / ((DJP1 + D(11)) * D(10))\r\n      D(13) =  ABS( D(12) / D(3) )\r\n      D(3) = D(3) + D(12)\r\n      IF (D(13) .LE. 1.0E-10) GO TO 425\r\n  420 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  425 CONTINUE\r\n      D(3) = D(20) * D(3)\r\n      D(26) = DJP1\r\nC\r\nC COMPUTE I(J,4)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(4), 1, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(4) = D(20) * D(4)\r\nC\r\nC COMPUTE I(J,5)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(5), 2, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(5) = D(20) * D(5)\r\nC\r\nC COMPUTE I(J,6)\r\nC\r\n      CALL ROMBER (PHIB, D(10), IP, D(6), 3, D(21) )\r\n      IF (IP .GE. 15) CALL MESAGE (30,26,IDEL)\r\n      D(6) = D(20) * D(6)\r\nC\r\nC THE TOROIDAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = D(30) * D(1) + D(31) * D(2) + D(32) * D(3)\r\n      DELINT(K+1) = COSA1 * D(2) + SINA1 * D(3)\r\n      DELINT(K+2) = D(33) * D(4) + D(34) * D(5) + D(35) * D(6)\r\n      DELINT(K+3) = COSA1 * D(3) - SINA1 * D(2)\r\n      DELINT(K+4) = D(34) * (D(6)-D(4))  + D(36) * D(5)\r\n      DELINT(K+5) = D(33) * D(6) - D(34) * D(5) + D(35) * D(4)\r\n      GO TO 490\r\nC\r\nC THE CONICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\n  430 CONTINUE\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = (S ** JP1) / DJP1\r\nC\r\n      IF (J - 1) 435,440,445\r\nC\r\nC COMPUTE I(0,2)\r\nC\r\n  435 CONTINUE\r\n      D(2) = ALOG( (R1 + S*COSA1) / R1 ) / COSA1\r\n      GO TO 460\r\nC\r\nC COMPUTE I(1,2)\r\nC\r\n  440 CONTINUE\r\n      D(2) = (S - (R1/COSA1) * ALOG( (R1 + S*COSA1) / R1 )) / COSA1\r\n      GO TO 460\r\nC\r\nC COMPUTE I(J,2) WHERE J .GT. 1\r\nC\r\n  445 CONTINUE\r\n      D(2) = 1.0E0 / DJP1\r\n      D(10) =-S * COSA1 / R1\r\n      DO 450 I = 1,1000\r\n      D(11) = JP1 + I\r\n      D(12) = (D(10) ** I) / D(11)\r\n      D(2) = D(2) + D(12)\r\n      IF (D(12) .LT. 1.0E-4 ) GO TO 455\r\n  450 CONTINUE\r\n      CALL MESAGE(-30,26,IDEL)\r\n  455 CONTINUE\r\n      D(2) = ( (S ** JP1) / R1 ) * D(2)\r\n  460 CONTINUE\r\nC\r\nC THE CONICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = COSA1 * D(1)\r\n      DELINT(K+4) = D(34) * D(2)\r\n      DELINT(K+5) = D(33) * D(2)\r\n      GO TO 490\r\nC\r\nC THE CYLINDRICAL RING BASIC INTEGRALS WILL BE COMPUTED IN\r\nC LOCATIONS D(1) AND D(2)\r\nC\r\n  470 CONTINUE\r\nC\r\nC COMPUTE I(J,1)\r\nC\r\n      D(1) = (S ** JP1) / DJP1\r\nC\r\nC COMPUTE I(J,2)\r\nC\r\n      D(2) = D(1) / R1\r\nC\r\nC THE CYLINDRICAL RING REQUIRED INTEGRALS\r\nC\r\n      DELINT(K  ) = R1 * D(1) + COSA1 * ((S**(JP1+1)) / (DJP1+1.0E0))\r\n      DELINT(K+1) = SINA1 * D(1)\r\n      DELINT(K+2) = D(35) * D(2)\r\n      DELINT(K+3) = 0.0E0\r\n      DELINT(K+4) = 0.0E0\r\n      DELINT(K+5) = 0.0E0\r\nC\r\n  490 CONTINUE\r\n  500 CONTINUE\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL MAT(IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      EP = E(1)\r\n      ET = E(2)\r\n      VPT= ANU(1)\r\n      TZ = TZERO\r\n      VTP= VPT * ET / EP\r\n      DEL = 1.0E0 - VPT * VTP\r\nC\r\nC\r\nC GENERATE THE ELASTIC CONSTANTS MATRIX(2X2)\r\nC\r\n      EE(1) = EP / DEL\r\n      EE(2) = ET * VPT / DEL\r\n      EE(3) = EE(2)\r\n      EE(4) = ET / DEL\r\nC\r\nC\r\nC CALL THE FCURL   SUBROUTINE TO FORM THE FOUR (2X10) MATRICES OF\r\nC INTEGRALS (TRANSPOSED)\r\nC\r\nC COMPUTE CONSTANTS NEEDED IN FCURL  SUBROUTINE\r\nC\r\n      D(1) = 0.0E0\r\n      IF (ITORD .EQ. 0) D(1) = 1.0E0 / RP\r\nC\r\nC NOTE THE DOUBLE SUBSCRIPTING USED IN  FCURL  SUBROUTINE IS\r\nC COMPATIBLE WITH THE CALLING PROGRAM. THE DELINT ARRAY OF INTEGRALS\r\nC IS A ( 7X6) SINGLY SUBSCRIPTED ARRAY (STORED ROWWISE) IN THE CALLING\r\nC PROGRAM AND IT IS A (6X 7) DOUBLY SUBSCRIPTED ARRAY (STORED\r\nC COLUMNWISE) IN FCURL  ROUTINE.\r\nC\r\nC\r\n      CALL FCURL (FME(1), FME(21), FFE(1), FFE(21), DELINT(1), S, D(1))\r\nC\r\n      D(1) = TWOPI * TM\r\n      D(2) = TWOPI * (TF **3) / 12.0E0\r\n      DO 550 I = 1,40\r\n      FME(I) = D(1) * FME(I)\r\n      FFE(I) = D(2) * FFE(I)\r\n  550 CONTINUE\r\nC\r\nC\r\nC FORM THE THERMAL STRAINS\r\nC\r\n      DTM1 = TI(1) - TZ\r\n      DTM2 = TI(2) - TI(1)\r\n      DTF1 = 0.0E0\r\n      DTF2 = 0.0E0\r\nC\r\nC THE TERMS DTF1 AND DTF2 ARE FUNCTIONS OF THE FLEXURAL GRADIENT\r\nC TEMPERATURE BUT SINCE THESE TEMPERATURES ARE NOT AVAILABLE\r\nC THE TERMS WILL BE SET TO ZERO. THEY ARE USUALLY DEFINED AS FOLLOWS,\r\nC     DTF1 = TF(1) - TZ\r\nC     DTF2 = TF(2) - TF(1)\r\nC WHERE TF(1) AND TF(2) ARE THE FLEXURAL GRADIENT TEMPERATURES AT\r\nC GRID POINTS 1 AND 2 RESPECTIVELY.\r\nC\r\n      D(1) = DTM1 * ALF(1)\r\n      D(2) = DTM1 * ALF(2)\r\n      D(3) = DTM2 * ALF(1)\r\n      D(4) = DTM2 * ALF(2)\r\n      D(5) = DTF1 * ALF(1)\r\n      D(6) = DTF1 * ALF(2)\r\n      D(7) = DTF2 * ALF(1)\r\n      D(8) = DTF2 * ALF(2)\r\nC\r\nC\r\nC FORM THE   THERMAL LOAD   IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (EE(1), 2, 2, 0, D(1), 2, 1, 0, D(11) )\r\n      CALL GMMATS (EE(1), 2, 2, 0, D(3), 2, 1, 0, D(13) )\r\n      CALL GMMATS (EE(1), 2, 2, 0, D(5), 2, 1, 0, D(15) )\r\n      CALL GMMATS (EE(1), 2, 2, 0, D(7), 2, 1, 0, D(17) )\r\nC\r\nC\r\n      CALL GMMATS (FME( 1),  2,10, 1, D(11), 2, 1, 0, TL(1) )\r\n      CALL GMMATS (FME(21),  2,10,-1, D(13), 2, 1, 0, TL(1) )\r\n      CALL GMMATS (FFE( 1),  2,10,-1, D(15), 2, 1, 0, TL(1) )\r\n      CALL GMMATS (FFE(21),  2,10,-1, D(17), 2, 1, 0, TL(1) )\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX(10X12) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 600 I = 1,72\r\n      GAMBQF(I) = 0.0E0\r\n  600 CONTINUE\r\n      D(1) = S\r\n      D(2) = S ** 2\r\n      D(3) = S ** 3\r\n      D(4) = S ** 4\r\n      D(5) = S ** 5\r\n      GAMBQF( 3) = 1.0E0\r\n      GAMBQF(16) = 1.0E0\r\n      GAMBQF(30) = 0.5E0\r\n      GAMBQF(39) = -10.0E0 / D(3)\r\n      GAMBQF(40) = - 6.0E0 / D(2)\r\n      GAMBQF(42) = - 1.5E0 / D(1)\r\n      GAMBQF(45) = -GAMBQF(39)\r\n      GAMBQF(46) = - 4.0E0 / D(2)\r\n      GAMBQF(48) =   0.5E0 / D(1)\r\n      GAMBQF(51) =  15.0E0 / D(4)\r\n      GAMBQF(52) =   8.0E0 / D(3)\r\n      GAMBQF(54) =   1.5E0 / D(2)\r\n      GAMBQF(57) = -GAMBQF(51)\r\n      GAMBQF(58) =   7.0E0 / D(3)\r\n      GAMBQF(60) = - 1.0E0 / D(2)\r\n      GAMBQF(63) = - 6.0E0 / D(5)\r\n      GAMBQF(64) = - 3.0E0 / D(4)\r\n      GAMBQF(66) = - 0.5E0 / D(3)\r\n      GAMBQF(69) = -GAMBQF(63)\r\n      GAMBQF(70) =  GAMBQF(64)\r\n      GAMBQF(72) = -GAMBQF(66)\r\n      DO 650 I = 1,48\r\n      GAMBQM(I) = 0.0E0\r\n  650 CONTINUE\r\n      GAMBQM( 1) = 1.0E0\r\n      GAMBQM(17) = 1.0E0\r\n      GAMBQM(25) = - 3.0E0 / D(2)\r\n      GAMBQM(29) = - 2.0E0 / D(1)\r\n      GAMBQM(31) = -GAMBQM(25)\r\n      GAMBQM(35) = - 1.0E0 / D(1)\r\n      GAMBQM(37) =   2.0E0 / D(3)\r\n      GAMBQM(41) =   1.0E0 / D(2)\r\n      GAMBQM(43) = -GAMBQM(37)\r\n      GAMBQM(47) =  GAMBQM(41)\r\nC\r\nC\r\nC TRANSFORM THE   THERMAL LOAD   TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS(GAMBQ(1), 10, 12, 1, TL(1), 10,  1, 0, D(1) )\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (12X12) FROM ELEMENT TO BASIC\r\nC COORDINATES\r\nC\r\n      DO 700 I = 1,144\r\n      GAMRS(I) = 0.0E0\r\n  700 CONTINUE\r\n      GAMRS( 1) =  COSA1\r\n      GAMRS( 3) = -SINA1\r\n      GAMRS(25) =  SINA1\r\n      GAMRS(27) =  COSA1\r\n      GAMRS(40) = -1.0E0\r\n      GAMRS(53) =  1.0E0\r\n      GAMRS(66) =  1.0E0\r\n      GAMRS(79) =  COSA2\r\n      GAMRS(81) = -SINA2\r\n      GAMRS(103)=  SINA2\r\n      GAMRS(105)=  COSA2\r\n      GAMRS(118)= -1.0E0\r\n      GAMRS(131)=  1.0E0\r\n      GAMRS(144)=  1.0E0\r\nC\r\nC\r\nC\r\nC TRANSFORM THE   THERMAL LOAD   FROM ELEMENT TO BASIC COORDINATES\r\nC\r\n      CALL GMMATS(GAMRS(1), 12, 12, 1,  D(1), 12,  1, 0, TL(1) )\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FROM BASIC TO LOCAL COORDINATES\r\nC FOR THE TWO GRID POINTS AND EXPAND TO (6X6)\r\nC\r\n      DO 730 I = 1,144\r\n      GAMBL(I) = 0.0E0\r\n  730 CONTINUE\r\n      DO 800 I = 1,2\r\n      CALL GBTRAN(ICS(I),ECPT(4*I+10),D(1))\r\n      K = 78 * (I - 1)\r\n      DO 750 J = 1,3\r\n      KK = K + 12* (J-1) + 1\r\n      KL = 3 * (J-1) + 1\r\n      KJ = K + 12* (J+2) + J + 3\r\n      GAMBL(KK  ) = D(KL  )\r\n      GAMBL(KK+1) = D(KL+1)\r\n      GAMBL(KK+2) = D(KL+2)\r\n      GAMBL(KJ) = 1.0E0\r\n  750 CONTINUE\r\n  800 CONTINUE\r\nC\r\nC\r\nC\r\nC TRANSFORM THE   THERMAL LOAD   FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1), 12, 12, 1, TL(1), 12,  1, 0, D(1) )\r\nC\r\nC\r\nC\r\nC ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD\r\nC\r\n      K = 0\r\n      DO 900 I = 1,2\r\n      L = IGP(I) - 1\r\n      DO 900 J = 1,6\r\n      K = K + 1\r\n      L = L + 1\r\n      PG(L) = PG(L) +  D(K)\r\n  900 CONTINUE\r\nC\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ttrapr.f",
    "content": "      SUBROUTINE TTRAPR (TI,PG)\r\nC\r\nC     THIS ROUTINE COMPUTES THE THERMAL LOAD FOR THE TRAPEZOIDAL\r\nC     CROSS SECTION RING\r\nC\r\nC     ECPT FOR THE TRAPEZOIDAL RING\r\nC                                                          TYPE\r\nC     ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC     ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC     ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC     ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC     ECPT( 5) SCALAR INDEX NO. FOR GRID POINT D             I\r\nC     ECPT( 6) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC     ECPT( 7) MATERIAL IDENTIFICATION                       I\r\nC     ECPT( 8) COOR. SYS. ID. FOR GRID POINT A               I\r\nC     ECPT( 9) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(10) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(11) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC     ECPT(12) COOR. SYS. ID. FOR GRID POINT B               I\r\nC     ECPT(13) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(14) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(15) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC     ECPT(16) COOR. SYS. ID. FOR GRID POINT C               I\r\nC     ECPT(17) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(18) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(19) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC     ECPT(20) COOR. SYS. ID. FOR GRID POINT D               I\r\nC     ECPT(21) X-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(22) Y-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(23) Z-COOR. OF GRID POINT D (IN BASIC COOR.)      R\r\nC     ECPT(24) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\nC\r\n      DIMENSION       TI(4),PG(1),IECPT(24),D(22),GAMBQ(64),R(4),Z(4),\r\n     1                TEO(16),EE(16),DELINT(12),GAMQS(96),Q(32),\r\n     2                GAMBL(144),ALFB(4),IGP(4),ICS(4),SP(24),HPRIM(16),\r\n     3                TL(12),TS(4),JRZ(2)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /TRIMEX/ ECPT(24)\r\n      COMMON /MATIN / MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/ E(3),ANU(3),RHO,G(3),ALF(3),TZERO\r\n      COMMON /SYSTEM/ IBUF,IOUT\r\n      EQUIVALENCE     (CONSTS(2),TWOPI),(CONSTS(4),DEGRA),\r\n     1                (IECPT(1),ECPT(1)),\r\n     2                (R(1),R1),(R(2),R2),(R(3),R3),(R(4),R4),\r\n     3                (Z(1),Z1),(Z(2),Z2),(Z(3),Z3),(Z(4),Z4),\r\n     4                (GAMBL(1),EE(1)),(GAMBL(17),TEO(1)),\r\n     5                (GAMBL(33),ALFB(1)),(GAMBL(37),TS(1)),\r\n     6                (GAMBL(41),DELINT(1)),(GAMBL(1),GAMBQ(1)),\r\n     7                (GAMBL(65),Q(1)),(GAMBL(97),HPRIM(1)),\r\n     8                (GAMBL(113),SP(1)),(GAMBL(1),GAMQS(1))\r\nC\r\nC     STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL   = IECPT( 1)\r\n      IGP(1) = IECPT( 2)\r\n      IGP(2) = IECPT( 3)\r\n      IGP(3) = IECPT( 4)\r\n      IGP(4) = IECPT( 5)\r\n      MATID  = IECPT( 7)\r\n      ICS(1) = IECPT( 8)\r\n      ICS(2) = IECPT(12)\r\n      ICS(3) = IECPT(16)\r\n      ICS(4) = IECPT(20)\r\n      R(1)   = ECPT ( 9)\r\n      D(1)   = ECPT (10)\r\n      Z(1)   = ECPT (11)\r\n      R(2)   = ECPT (13)\r\n      D(2)   = ECPT (14)\r\n      Z(2)   = ECPT (15)\r\n      R(3)   = ECPT (17)\r\n      D(3)   = ECPT (18)\r\n      Z(3)   = ECPT (19)\r\n      R(4)   = ECPT (21)\r\n      D(4)   = ECPT (22)\r\n      Z(4)   = ECPT (23)\r\n      TEMPE  = ECPT (24)\r\n      DGAMA  = ECPT ( 6)\r\nC\r\nC     TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,4\r\n      IF (R(I) .LT. 0.0) CALL MESAGE (-30,37,IDEL)\r\n      IF (D(I) .NE. 0.0) CALL MESAGE (-30,37,IDEL)\r\n  200 CONTINUE\r\nC\r\nC     COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1,Z2,Z3,Z4)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\n      Z4 = Z4 - ZMIN\r\n      RMIN = AMIN1(R1,R2,R3,R4)\r\n      RMAX = AMAX1(R1,R2,R3,R4)\r\n      IF (RMIN .EQ. 0.) GO TO 206\r\n      IF (RMAX/RMIN .LE. 10.) GO TO 206\r\nC\r\nC     RATIO OF RADII IS TOO LARGE FOR GAUSS QUADRATURE FOR IP=-1\r\nC\r\n      WRITE  (IOUT,205) UFM,IDEL\r\n  205 FORMAT (A23,', TRAPRG ELEMENT',I9,' HAS A MAXIMUM TO MINIMUM ',\r\n     1       'RADIUS RATIO EXCEEDING 10.'/5X,'ACCURACY OF NUMERICAL ',\r\n     2       'INTEGRATION WOULD BE IN DOUBT.')\r\n      CALL MESAGE (-61,0,0)\r\n  206 CONTINUE\r\n      ICORE = 0\r\n      J = 1\r\n      DO 210 I = 1,4\r\n      IF (R(I) .NE. 0.) GO TO 210\r\n      ICORE  = ICORE + 1\r\n      JRZ(J) = I\r\n      J = 2\r\n  210 CONTINUE\r\n      IF (ICORE.NE.0 .AND. ICORE.NE.2) CALL MESAGE (-61,0,0)\r\nC\r\nC     CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC     INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC       DELINT( 1) - ( 0,0)\r\nC       DELINT( 2) - ( 0,1)\r\nC       DELINT( 3) - ( 0,2)\r\nC       DELINT( 4) - ( 1,0)\r\nC       DELINT( 5) - ( 1,1)\r\nC       DELINT( 6) - ( 1,2)\r\nC       DELINT( 7) - ( 2,0)\r\nC       DELINT( 8) - ( 2,1)\r\nC       DELINT( 9) - ( 2,2)\r\nC       DELINT(10) - ( 3,0)\r\nC       DELINT(11) - ( 3,1)\r\nC\r\n      I1 = 0\r\n      DO 400 I = 1,4\r\n      IP = I - 1\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      I1 = I1 + 1\r\n      IF (I1 .EQ. 12) GO TO 350\r\n      DELINT(I1) = RZINTS(IP,IQ,R,Z,4)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC     SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      ER  = E(1)\r\n      ET  = E(2)\r\n      EZ  = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      TZ  = TZERO\r\n      VTR = VRT*ET/ER\r\n      VZT = VTZ*EZ/ET\r\n      VRZ = VZR*ER/EZ\r\n      DEL = 1.0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1          - VRZ*VTR*VZT\r\nC\r\nC     GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE( 1) = ER*(1.0 - VTZ*VZT)/DEL\r\n      EE( 2) = ER*(VTR + VZR*VTZ)/DEL\r\n      EE( 3) = ER*(VZR + VTR*VZT)/DEL\r\n      EE( 4) = 0.0\r\n      EE( 5) = EE(2)\r\n      EE( 6) = ET*(1.0 - VRZ*VZR)/DEL\r\n      EE( 7) = ET*(VZT + VRT*VZR)/DEL\r\n      EE( 8) = 0.0\r\n      EE( 9) = EE(3)\r\n      EE(10) = EE(7)\r\n      EE(11) = EZ*(1.0 - VRT*VTR)/DEL\r\n      EE(12) = 0.0\r\n      EE(13) = 0.0\r\n      EE(14) = 0.0\r\n      EE(15) = 0.0\r\n      EE(16) = GRZ\r\nC\r\nC     FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC     GEOMETRIC AXIS\r\nC\r\n      DGAMR   = DGAMA*DEGRA\r\n      COSG    = COS(DGAMR)\r\n      SING    = SIN(DGAMR)\r\n      TEO( 1) = COSG**2\r\n      TEO( 2) = 0.0\r\n      TEO( 3) = SING**2\r\n      TEO( 4) = SING*COSG\r\n      TEO( 5) = 0.0\r\n      TEO( 6) = 1.0\r\n      TEO( 7) = 0.0\r\n      TEO( 8) = 0.0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) =-TEO(4)\r\n      TEO(13) =-2.0*TEO(4)\r\n      TEO(14) = 0.0\r\n      TEO(15) =-TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC     TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC     TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATS (TEO,4,4,1, EE, 4,4,0, D )\r\n      CALL GMMATS (D  ,4,4,0, TEO,4,4,0, EE)\r\nC\r\nC     COMPUTE THE THERMAL STRAIN VECTOR\r\nC\r\n      DO 600 I = 1,3\r\n      ALFB(I) = ALF(I)\r\n  600 CONTINUE\r\n      ALFB(4) = 0.0\r\nC\r\n      CALL GMMATS (EE(1),4,4,0, ALFB(1),4,1,0, TS(1))\r\nC\r\nC     FORM THE Q MATRIX (8X4)\r\nC\r\n      D( 1) = TS(1) + TS(2)\r\n      Q( 1) = TS(2)*DELINT(1)\r\n      Q( 2) = TS(2)*DELINT(4)\r\n      Q( 3) = TS(2)*DELINT(2)\r\n      Q( 4) = TS(2)*DELINT(5)\r\n      Q( 5) =  D(1)*DELINT(4)\r\n      Q( 6) =  D(1)*DELINT(7)\r\n      Q( 7) =  D(1)*DELINT(5)\r\n      Q( 8) =  D(1)*DELINT(8)\r\n      Q( 9) = TS(2)*DELINT(2)\r\n      Q(10) = TS(2)*DELINT(5)\r\n      Q(11) = TS(2)*DELINT(3)\r\n      Q(12) = TS(2)*DELINT(6)\r\n      Q(13) =  D(1)*DELINT(5)\r\n      Q(14) =  D(1)*DELINT(8)\r\n      Q(15) =  D(1)*DELINT(6)\r\n      Q(16) =  D(1)*DELINT(9)\r\n      DO 630 I = 17,24\r\n      Q( I) = 0.0\r\n  630 CONTINUE\r\n      Q(25) = TS(3)*DELINT( 4)\r\n      Q(26) = TS(3)*DELINT( 7)\r\n      Q(27) = TS(3)*DELINT( 5)\r\n      Q(28) = TS(3)*DELINT( 8)\r\n      Q(29) = TS(3)*DELINT( 7)\r\n      Q(30) = TS(3)*DELINT(10)\r\n      Q(31) = TS(3)*DELINT( 8)\r\n      Q(32) = TS(3)*DELINT(11)\r\nC\r\nC     FORM THE TRANSFORMATION MATRIX (8X8) FROM FIELD COORDINATES TO\r\nC     GRID POINT DEGREES OF FREEDOM\r\nC\r\n      DO 650 I = 1,64\r\n      GAMBQ(I) = 0.0\r\n  650 CONTINUE\r\n      GAMBQ( 1) = 1.0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ( 4) = R1*Z1\r\n      GAMBQ(13) = 1.0\r\n      GAMBQ(14) = R1\r\n      GAMBQ(15) = Z1\r\n      GAMBQ(16) = GAMBQ(4)\r\n      GAMBQ(17) = 1.0\r\n      GAMBQ(18) = R2\r\n      GAMBQ(19) = Z2\r\n      GAMBQ(20) = R2*Z2\r\n      GAMBQ(29) = 1.0\r\n      GAMBQ(30) = R2\r\n      GAMBQ(31) = Z2\r\n      GAMBQ(32) = GAMBQ(20)\r\n      GAMBQ(33) = 1.0\r\n      GAMBQ(34) = R3\r\n      GAMBQ(35) = Z3\r\n      GAMBQ(36) = R3*Z3\r\n      GAMBQ(45) = 1.0\r\n      GAMBQ(46) = R3\r\n      GAMBQ(47) = Z3\r\n      GAMBQ(48) = GAMBQ(36)\r\n      GAMBQ(49) = 1.0\r\n      GAMBQ(50) = R4\r\n      GAMBQ(51) = Z4\r\n      GAMBQ(52) = R4*Z4\r\n      GAMBQ(61) = 1.0\r\n      GAMBQ(62) = R4\r\n      GAMBQ(63) = Z4\r\n      GAMBQ(64) = GAMBQ(52)\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\nC\r\n      ISING = -1\r\n      CALL INVERS (8,GAMBQ(1),8,D(10),0,D(11),ISING,SP)\r\nC\r\n      IF (ISING .EQ. 2) CALL MESAGE (-30,26,IDEL)\r\nC\r\nC     FORM THE HPRIM MATRIX (4X4)\r\nC\r\n      K  = 0\r\n      DO 670 I = 1,4\r\n      KK =  8*(I-1) - 1\r\n      DO 670 J = 1,4\r\n      K  = K  + 1\r\n      KK = KK + 2\r\n      HPRIM(K) = GAMBQ(KK)\r\n  670 CONTINUE\r\nC\r\nC     MODIFY THE TRANSFORMATION MATRIX IF ELEMENT IS A CORE ELEMENT\r\nC\r\n      IF (ICORE .EQ. 0) GO TO 665\r\n      JJ1 = 2*JRZ(1) - 1\r\n      JJ2 = 2*JRZ(2) - 1\r\nC\r\n      DO 663 I = 1,8\r\n      J = 8*(I-1)\r\n      GAMBQ(I    ) = 0.0\r\n      GAMBQ(I+ 16) = 0.0\r\n      GAMBQ(J+JJ1) = 0.\r\n      GAMBQ(J+JJ2) = 0.\r\n  663 CONTINUE\r\n  665 CONTINUE\r\nC\r\nC     FORM THE TEMPERATURE VECTOR\r\nC\r\n      DO 680 I = 1,4\r\n      TI(I) = TI(I) - TZERO\r\n  680 CONTINUE\r\nC\r\nC     COMPUTE THE THERMAL LOAD IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (HPRIM(1),4,4,0, TI(1),4,1,0, TL(1))\r\n      CALL GMMATS (Q(1),    8,4,0, TL(1),4,1,0,  D(1))\r\nC\r\nC     TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GAMBQ(1),8,8,1, D(1),8,1,0, TL(1))\r\nC\r\nC     GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF\r\nC     FREEDOM PER POINT\r\nC\r\n      DO 700 I = 1,96\r\n      GAMQS( I) = 0.0\r\n  700 CONTINUE\r\n      GAMQS( 1) = 1.0\r\n      GAMQS(15) = 1.0\r\n      GAMQS(28) = 1.0\r\n      GAMQS(42) = 1.0\r\n      GAMQS(55) = 1.0\r\n      GAMQS(69) = 1.0\r\n      GAMQS(82) = 1.0\r\n      GAMQS(96) = 1.0\r\nC\r\nC     TRANSFORM THE   THERMAL LOAD   FROM TWO TO THREE DEGREES OF\r\nC     FREEDOM PER POINT\r\nC\r\n      CALL GMMATS (GAMQS(1),8,12,1, TL(1),8,1,0, D(10))\r\nC\r\nC     LOCATE THE TRANSFORMATION MATRICES FOR THE FOUR  GRID POINTS\r\nC\r\n      DO 750 I = 1,144\r\n      GAMBL(I) = 0.0\r\n  750 CONTINUE\r\n      DO 800 I = 1,4\r\n      CALL GBTRAN (ICS(I),ECPT(4*I+4),D(1))\r\n      K  = 39*(I-1) + 1\r\n      DO 800 J = 1,3\r\n      KK = K + 12*(J-1)\r\n      JJ = 3*(J-1) + 1\r\n      GAMBL(KK  ) = D(JJ  )\r\n      GAMBL(KK+1) = D(JJ+1)\r\n      GAMBL(KK+2) = D(JJ+2)\r\n  800 CONTINUE\r\nC\r\nC     TRANSFORM THE   THERMAL LOAD   FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1),12,12,1, D(10),12,1,0, TL(1))\r\n      DO 850 I = 1,12\r\n      TL(I) = TWOPI*TL(I)\r\n  850 CONTINUE\r\nC\r\nC     ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD\r\nC\r\n      K = 0\r\n      DO 900 I = 1,4\r\n      L = IGP(I) - 1\r\n      DO 900 J = 1,3\r\n      K = K + 1\r\n      L = L + 1\r\n      PG(L) = PG(L) + TL(K)\r\n  900 CONTINUE\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/ttrirg.f",
    "content": "      SUBROUTINE TTRIRG( TI, PG )\r\nC\r\nC\r\nC*****\r\nC THIS ROUTINECOMPUTES THE THERMAL LOAD FOR A TRIANGULAR CROSS\r\nC SECTION RING\r\nC*****\r\nC\r\nC\r\nC                        ECPT FOR THE TRIANGULAR RING\r\nC\r\nC\r\nC                                                      TYPE\r\nC ECPT( 1) ELEMENT IDENTIFICATION                        I\r\nC ECPT( 2) SCALAR INDEX NO. FOR GRID POINT A             I\r\nC ECPT( 3) SCALAR INDEX NO. FOR GRID POINT B             I\r\nC ECPT( 4) SCALAR INDEX NO. FOR GRID POINT C             I\r\nC ECPT( 5) MATERIAL ORIENTATION ANGLE(DEGREES)           R\r\nC ECPT( 6) MATERIAL IDENTIFICATION                       I\r\nC ECPT( 7) COOR. SYS. ID. FOR GRID POINT A               I\r\nC ECPT( 8) X-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT( 9) Y-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(10) Z-COOR. OF GRID POINT A (IN BASIC COOR.)      R\r\nC ECPT(11) COOR. SYS. ID. FOR GRID POINT B               I\r\nC ECPT(12) X-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(13) Y-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(14) Z-COOR. OF GRID POINT B (IN BASIC COOR.)      R\r\nC ECPT(15) COOR. SYS. ID. FOR GRID POINT C               I\r\nC ECPT(16) X-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(17) Y-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(18) Z-COOR. OF GRID POINT C (IN BASIC COOR.)      R\r\nC ECPT(19) EL. TEMPERATURE FOR MATERIAL PROPERTIES       R\r\nC\r\nC\r\n      DIMENSION          TI(3),    PG(1)\r\n      DIMENSION          IECPT(19)\r\n      DIMENSION\r\n     1                   D(18) ,   GAMBQ(36),     R(3) ,    Z(3)\r\n     2,                  TEO(16),  EE(16),   DELINT(8),  GAMQS(54)\r\n     3,                  DZERO(24),     GAMBL(81),     ALFB(4)\r\n     8,                  IGP(3),  ICS(3) , SP(18)\r\n      DIMENSION          TL(9)\r\nC\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON   /TRIMEX/\r\n     1                   ECPT(19)\r\n      COMMON   /MATIN/\r\n     1                   MATIDC             ,MATFLG\r\n     2,                  ELTEMP             ,STRESS\r\n     3,                  SINTH              ,COSTH\r\n      COMMON   /MATOUT/\r\n     1                   E(3)               ,ANU(3)\r\n     2,                  RHO                ,G(3)\r\n     3,                  ALF(3)             ,TZERO\r\nC\r\n      EQUIVALENCE ( CONSTS(2) , TWOPI  )\r\n      EQUIVALENCE ( CONSTS(4) , DEGRA  )\r\n      EQUIVALENCE        (IECPT(1) , ECPT(1))\r\n      EQUIVALENCE   (R(1),R1),     (R(2),R2),     (R(3),R3)\r\n     1,             (Z(1),Z1),     (Z(2),Z2),     (Z(3),Z3)\r\n      EQUIVALENCE        (GAMBL( 1),    EE(1))\r\n      EQUIVALENCE        (GAMBL(17),    TEO(1))\r\n      EQUIVALENCE        (GAMBL(33),    DZERO(1))\r\n      EQUIVALENCE        (GAMBL(57),    ALFB(1))\r\n      EQUIVALENCE        (GAMBL(61),    DELINT(1))\r\n      EQUIVALENCE        (GAMBL(37),    SP(1))\r\n      EQUIVALENCE        (GAMBL( 1),    GAMBQ(1))\r\n      EQUIVALENCE        (GAMBL( 1),    GAMQS(1))\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\nC STORE ECPT PARAMETERS IN LOCAL VARIABLES\r\nC\r\n      IDEL  = IECPT(1)\r\n      IGP(1)= IECPT(2)\r\n      IGP(2)= IECPT(3)\r\n      IGP(3)= IECPT(4)\r\n      MATID = IECPT(6)\r\n      ICS(1)= IECPT(7)\r\n      ICS(2)= IECPT(11)\r\n      ICS(3)= IECPT(15)\r\n      R(1)  = ECPT(8)\r\n      D(1)  = ECPT(9)\r\n      Z(1)  = ECPT(10)\r\n      R(2)  = ECPT(12)\r\n      D(2)  = ECPT(13)\r\n      Z(2)  = ECPT(14)\r\n      R(3)  = ECPT(16)\r\n      D(3)  = ECPT(17)\r\n      Z(3)  = ECPT(18)\r\n      TEMPE = ECPT(19)\r\n      DGAMA = ECPT(5)\r\nC\r\nC\r\nC TEST THE VALIDITY OF THE GRID POINT COORDINATES\r\nC\r\n      DO 200 I = 1,3\r\n      IF (R(I) .LT. 0.0E0) CALL MESAGE (-30, 37, IDEL)\r\n      IF (D(I) .NE. 0.0E0) CALL MESAGE (-30, 37, IDEL)\r\n  200 CONTINUE\r\nC\r\nC\r\nC COMPUTE THE ELEMENT COORDINATES\r\nC\r\n      ZMIN = AMIN1(Z1, Z2, Z3)\r\n      Z1 = Z1 - ZMIN\r\n      Z2 = Z2 - ZMIN\r\n      Z3 = Z3 - ZMIN\r\nC\r\nC CALCULATE THE INTEGRAL VALUES IN ARRAY DELINT WHERE THE ORDER IS\r\nC INDICATED BY THE FOLLOWING TABLE\r\nC\r\nC              DELINT( 1) - (-1,0)\r\nC              DELINT( 2) - (-1,1)\r\nC              DELINT( 3) - (-1,2)\r\nC              DELINT( 4) - ( 0,0)\r\nC              DELINT( 5) - ( 0,1)\r\nC              DELINT( 6) - ( 1,0)\r\nC              DELINT( 7) - ( 0,2)\r\nC              DELINT( 8) - ( 1,2)\r\nC\r\nC\r\nC TEST FOR RELATIVE SMALL AREA OF INTEGRATION\r\nC AND IF AREA IS SMALL THEN APPROXIMATE INTEGRALS\r\nC\r\n      DR = AMAX1 (  ABS(R1-R2) ,  ABS(R2-R3) ,  ABS(R3-R1) )\r\n      RH = AMIN1 ( R1 , R2 , R3 ) / 10.0E0\r\n      DZ = AMAX1 (  ABS(Z1-Z2) ,  ABS(Z2-Z3) ,  ABS(Z3-Z1) )\r\n      ZH = AMIN1 ( Z1 , Z2 , Z3 ) / 10.0E0\r\n      RA = (R1 + R2 + R3) / 3.0E0\r\n      ZA = (Z1 + Z2 + Z3) / 3.0E0\r\n      AREA =(R1*(Z2-Z3) + R2*(Z3-Z1) + R3*(Z1-Z2)) / 2.0E0\r\n      KODE = 0\r\n      IF ( ABS( (R2-R1)/R2 ) .LT. 1.0E-5) KODE = 1\r\n      IF ( DR .LE. RH  .OR.  DZ .LE. ZH ) KODE = -1\r\nC\r\nC\r\n  310 CONTINUE\r\n      I1 = 0\r\n      DO 400 I = 1,3\r\n      IP = I - 2\r\n      DO 350 J = 1,3\r\n      IQ = J - 1\r\n      IF (IP.EQ.1 .AND. IQ.EQ.1) GO TO 350\r\n      I1 = I1 + 1\r\n      IF (KODE) 320,330,340\r\n  320 DELINT(I1) =((RA) ** IP)*((ZA) ** IQ) * AREA\r\n      GO TO 350\r\n  330 DELINT(I1) =    AI (1,3,1,2,1,3,IP,IQ,R,Z)\r\n     1            +   AI (3,2,1,2,3,2,IP,IQ,R,Z)\r\n      GO TO 350\r\n  340 CONTINUE\r\n      DELINT(I1) =    AI (1,3,3,2,1,3,IP,IQ,R,Z)\r\n  350 CONTINUE\r\n  400 CONTINUE\r\n      D(1)      = DELINT(6)\r\n      DELINT(6) = DELINT(7)\r\n      DELINT(7) = D(1)\r\nC\r\nC\r\nC TEST FOR EXCESSIVE ROUND-OFF ERROR IN INTEGRAL CALCULATIONS\r\nC AND IF IT EXIST APPROXIMATE INTEGRALS\r\nC\r\n      IF (KODE .LT. 0) GO TO 500\r\n      DO 450 I = 1,8\r\n      IF (DELINT(I) .LT. 0.0E0) GO TO 475\r\n  450 CONTINUE\r\n      IF (DELINT(8) .LE. DELINT(7)) GO TO 475\r\n      IF (DELINT(3) .GE. DELINT(8)) GO TO 475\r\n      IF (DELINT(3) .GT. DELINT(7)) GO TO 475\r\n      GO TO 500\r\n  475 CONTINUE\r\n      KODE = -1\r\n      GO TO 310\r\n  500 CONTINUE\r\nC\r\nC\r\nC\r\nC LOCATE THE MATERIAL PROPERTIES IN THE MAT1 OR MAT3 TABLE\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 7\r\n      ELTEMP = TEMPE\r\n      CALL  MAT (IDEL)\r\nC\r\nC\r\nC SET MATERIAL PROPERTIES IN LOCAL VARIABLES\r\nC\r\n      ER = E(1)\r\n      ET = E(2)\r\n      EZ = E(3)\r\n      VRT = ANU(1)\r\n      VTZ = ANU(2)\r\n      VZR = ANU(3)\r\n      GRZ = G(3)\r\n      TZ = TZERO\r\n      VTR = VRT * ET / ER\r\n      VZT = VTZ * EZ / ET\r\n      VRZ = VZR * ER / EZ\r\n      DEL = 1.0E0 - VRT*VTR - VTZ*VZT - VZR*VRZ - VRT*VTZ*VZR\r\n     1       - VRZ*VTR*VZT\r\nC\r\nC\r\nC GENERATE ELASTIC CONSTANTS MATRIX (4X4)\r\nC\r\n      EE(1) = ER * (1.0E0 - VTZ*VZT) / DEL\r\n      EE(2) = ER * (VTR + VZR*VTZ) / DEL\r\n      EE(3) = ER * (VZR + VTR*VZT) / DEL\r\n      EE(4) = 0.0E0\r\n      EE(5) = EE(2)\r\n      EE(6) = ET * (1.0E0 - VRZ*VZR) / DEL\r\n      EE(7) = ET * (VZT + VRT*VZR) / DEL\r\n      EE(8) = 0.0E0\r\n      EE(9) = EE(3)\r\n      EE(10)= EE(7)\r\n      EE(11)= EZ * (1.0E0 - VRT*VTR) / DEL\r\n      EE(12)= 0.0E0\r\n      EE(13)= 0.0E0\r\n      EE(14)= 0.0E0\r\n      EE(15)= 0.0E0\r\n      EE(16)= GRZ\r\nC\r\nC\r\nC FORM TRANSFORMATION MATRIX (4X4) FROM MATERIAL AXIS TO ELEMENT\r\nC GEOMETRIC AXIS\r\nC\r\n      DGAMR = DGAMA * DEGRA\r\n      COSG =  COS(DGAMR)\r\n      SING =  SIN(DGAMR)\r\n      TEO( 1) = COSG ** 2\r\n      TEO( 2) = 0.0E0\r\n      TEO( 3) = SING ** 2\r\n      TEO( 4) = SING * COSG\r\n      TEO( 5) = 0.0E0\r\n      TEO( 6) = 1.0E0\r\n      TEO( 7) = 0.0E0\r\n      TEO( 8) = 0.0E0\r\n      TEO( 9) = TEO(3)\r\n      TEO(10) = 0.0E0\r\n      TEO(11) = TEO(1)\r\n      TEO(12) = -TEO(4)\r\n      TEO(13) = -2.0E0 * TEO(4)\r\n      TEO(14) = 0.0E0\r\n      TEO(15) = -TEO(13)\r\n      TEO(16) = TEO(1) - TEO(3)\r\nC\r\nC\r\nC TRANSFORM THE ELASTIC CONSTANTS MATRIX FROM MATERIAL\r\nC TO ELEMENT GEOMETRIC AXIS\r\nC\r\n      CALL GMMATS (TEO , 4, 4, 1, EE , 4, 4, 0, D )\r\n      CALL GMMATS (D   , 4, 4, 0, TEO, 4, 4, 0, EE)\r\nC\r\nC\r\nC\r\nC FORM THE D-CURL MATRIX\r\nC\r\n      DO 600 I = 1,24\r\n      DZERO(I) = 0.0E0\r\n  600 CONTINUE\r\n      DZERO( 2) = DELINT(6) * TWOPI\r\n      DZERO( 7) = DELINT(4) * TWOPI\r\n      DZERO( 8) = DZERO(2)\r\n      DZERO( 9) = DELINT(5) * TWOPI\r\n      DZERO(18) = DZERO(2)\r\n      DZERO(21) = DZERO(2)\r\n      DZERO(23) = DZERO(2)\r\nC\r\nC\r\nC COMPUTE THE THERMAL STRAIN VECTOR\r\nC\r\n      D(1) = ( TI(1) + TI(2) + TI(3) )  / 3.0E0\r\n      D(1) = D(1) - TZ\r\n      DO 650 I = 1,3\r\n      ALFB(I) = ALF(I) * D(1)\r\n  650 CONTINUE\r\n      ALFB(4) = 0.0E0\r\nC\r\nC\r\nC COMPUTE THE THERMAL LOAD IN FIELD COORDINATES\r\nC\r\n      CALL GMMATS (EE(1), 4, 4, 0, ALFB(1), 4, 1, 0, TL(1) )\r\n      CALL GMMATS (DZERO(1), 4, 6, 1, TL(1), 4, 1, 0, D(1) )\r\nC\r\nC\r\nC FORM THE TRANSFORMATION MATRIX (6X6) FROM FIELD COORDINATES TO GRID\r\nC POINT DEGREES OF FREEDOM\r\nC\r\n      DO 680 I = 1,36\r\n      GAMBQ(I) = 0.0E0\r\n  680 CONTINUE\r\n      GAMBQ( 1) = 1.0E0\r\n      GAMBQ( 2) = R1\r\n      GAMBQ( 3) = Z1\r\n      GAMBQ(10) = 1.0E0\r\n      GAMBQ(11) = R1\r\n      GAMBQ(12) = Z1\r\n      GAMBQ(13) = 1.0E0\r\n      GAMBQ(14) = R2\r\n      GAMBQ(15) = Z2\r\n      GAMBQ(22) = 1.0E0\r\n      GAMBQ(23) = R2\r\n      GAMBQ(24) = Z2\r\n      GAMBQ(25) = 1.0E0\r\n      GAMBQ(26) = R3\r\n      GAMBQ(27) = Z3\r\n      GAMBQ(34) = 1.0E0\r\n      GAMBQ(35) = R3\r\n      GAMBQ(36) = Z3\r\nC\r\nC\r\nC     NO NEED TO COMPUTE DETERMINANT SINCE IT IS NOT USED SUBSEQUENTLY.\r\n      ISING = -1\r\n      CALL INVERS (6, GAMBQ(1),6 , D(10), 0, D(11) , ISING , SP)\r\nC\r\n      IF (ISING .EQ. 2) CALL MESAGE(-30,26,IDEL)\r\nC\r\nC\r\nC\r\nC TRANSFORM THE THERMAL LOAD TO GRID POINT DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GAMBQ(1), 6, 6, 1, D(1), 6, 1, 0, TL(1) )\r\nC\r\nC\r\nC GENERATE THE TRANSFORMATION MATRIX FROM TWO TO THREE DEGREES OF\r\nC FREEDOM PER POINT\r\nC\r\n      DO 700 I = 1,54\r\n      GAMQS( I) = 0.0E0\r\n  700 CONTINUE\r\n      GAMQS( 1) = 1.0E0\r\n      GAMQS(12) = 1.0E0\r\n      GAMQS(22) = 1.0E0\r\n      GAMQS(33) = 1.0E0\r\n      GAMQS(43) = 1.0E0\r\n      GAMQS(54) = 1.0E0\r\nC\r\nC\r\nC TRANSFORM THE THERMAL LOAD FROM TWO TO THREE DEGREES OF FREEDOM\r\nC\r\n      CALL GMMATS (GAMQS(1), 6, 9, 1, TL(1), 6, 1, 0, D(10) )\r\nC\r\nC\r\nC LOCATE THE TRANSFORMATION MATRICES FOR THE THREE GRID POINTS\r\nC\r\n      DO 750 I = 1,81\r\n      GAMBL(I) = 0.0E0\r\n  750 CONTINUE\r\n      DO 800 I = 1,3\r\n      CALL GBTRAN(ICS(I),ECPT(4*I+7),D(1))\r\n      K = 30* (I-1) + 1\r\n      DO 800 J = 1,3\r\n      KK = K + 9 * (J-1)\r\n      JJ = 3 * (J-1) + 1\r\n      GAMBL(KK  ) = D(JJ  )\r\n      GAMBL(KK+1) = D(JJ+1)\r\n      GAMBL(KK+2) = D(JJ+2)\r\n  800 CONTINUE\r\nC\r\nC\r\nC TRANSFORM THE THERMAL LOAD FROM BASIC TO LOCAL COORDINATES\r\nC\r\n      CALL GMMATS (GAMBL(1), 9, 9, 1, D(10),9, 1, 0, TL(1) )\r\nC\r\nC\r\nC ADD THE ELEMENT THERMAL LOAD TO THE STRUCTURE THERMAL LOAD\r\nC\r\n      K = 0\r\n      DO 900 I = 1,3\r\n      L = IGP(I) - 1\r\n      DO 900 J = 1,3\r\n      K = K + 1\r\n      L = L + 1\r\n      PG(L) = PG(L) + TL(K)\r\n  900 CONTINUE\r\nC\r\nC\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tubed.f",
    "content": "      SUBROUTINE TUBED\r\nC\r\nC***\r\nC  THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE EST FOR THE TUBE\r\nC  SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL RODD\r\nC DOUBLE PRECISION VERSION\r\nC SINGLE AND DOUBLE PRECISION VERSIONS OF THIS ROUTINE ARE IDENTICAL\r\nC APART FROM THE NAME AND THE CALL TO RODD (RODS)\r\nC***\r\nC\r\nC\r\nC EST( 1) - ELEMENT ID.\r\nC EST( 2) - SCALAR INDEX NUMBER FOR GRID POINT A\r\nC EST( 3) - SCALAR INDEX NUMBER FOR GRID POINT B\r\nC EST( 4) - MATERIAL ID.\r\nC EST( 5) - OUTSIDE DIAMETER\r\nC EST( 6) - THICKNESS\r\nC EST( 7) - NON-STRUCTURAL MASS\r\nC EST( 8) - COOR. SYS. ID. FOR GRID POINT A\r\nC EST( 9) - BASIC COORDINATES OF GRID POINT A\r\nC EST(10) -                ...\r\nC EST(11) -                ...\r\nC EST(12) - COOR. SYS. ID. FOR GRID POINT B\r\nC EST(13) - BASIC COORDINATES OF GRID POINT B\r\nC EST(14) -               ...\r\nC EST(15) -               ...\r\nC EST(16) - ELEMENT TEMPERATURE\r\nC\r\n      COMMON   /EMGEST/  EST(100)\r\n      COMMON   /CONDAS/  PI\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      TEMP = EST(5) - EST(6)\r\n      A = TEMP * EST(6) * PI\r\n      FJ = .25 * A * ( TEMP**2 + EST(6)**2 )\r\n      C = .5 * EST(5)\r\n      M = 18\r\n      DO 10 I = 1,10\r\n      M = M - 1\r\n   10 EST(M) = EST(M-1)\r\n      EST(5) = A\r\n      EST(6) = FJ\r\n      EST(7) = C\r\n      CALL RODD\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tubes.f",
    "content": "      SUBROUTINE TUBES\r\nC\r\nC***\r\nC  THE TUBE BEING SO SIMILAR TO THE ROD, WE ALTER THE EST FOR THE TUBE\r\nC  SO THAT IT IS IDENTICAL TO THE ONE FOR THE ROD AND THEN CALL RODS\r\nC SINGLE PRECISION VERSION\r\nC SINGLE AND DOUBLE PRECISION VERSIONS OF THIS ROUTINE ARE IDENTICAL\r\nC APART FROM THE NAME AND THE CALL TO RODD (RODS)\r\nC***\r\nC\r\nC\r\nC EST( 1) - ELEMENT ID.\r\nC EST( 2) - SCALAR INDEX NUMBER FOR GRID POINT A\r\nC EST( 3) - SCALAR INDEX NUMBER FOR GRID POINT B\r\nC EST( 4) - MATERIAL ID.\r\nC EST( 5) - OUTSIDE DIAMETER\r\nC EST( 6) - THICKNESS\r\nC EST( 7) - NON-STRUCTURAL MASS\r\nC EST( 8) - COOR. SYS. ID. FOR GRID POINT A\r\nC EST( 9) - BASIC COORDINATES OF GRID POINT A\r\nC EST(10) -                ...\r\nC EST(11) -                ...\r\nC EST(12) - COOR. SYS. ID. FOR GRID POINT B\r\nC EST(13) - BASIC COORDINATES OF GRID POINT B\r\nC EST(14) -               ...\r\nC EST(15) -               ...\r\nC EST(16) - ELEMENT TEMPERATURE\r\nC\r\n      COMMON   /EMGEST/  EST(100)\r\n      COMMON   /CONDAS/  PI\r\nC\r\nC ----------------------------------------------------------------------\r\nC\r\n      TEMP = EST(5) - EST(6)\r\n      A = TEMP * EST(6) * PI\r\n      FJ = .25 * A * ( TEMP**2 + EST(6)**2 )\r\n      C = .5 * EST(5)\r\n      M = 18\r\n      DO 10 I = 1,10\r\n      M = M - 1\r\n   10 EST(M) = EST(M-1)\r\n      EST(5) = A\r\n      EST(6) = FJ\r\n      EST(7) = C\r\n      CALL RODS\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/tvor.f",
    "content": "      SUBROUTINE TVOR (SL1,CL1,TL1,SL2,CL2,TL2,SGS,CGS,SGR,CGR,X01,X02,\r\n     1                 Y0,Z0,E,BETA,CBAR,FMACH,KR,BRE,BIM)\r\nC\r\nC     NORMALWASH AT A POINT (X,Y,Z) - OF A SURFACE DIHEDRAL -\r\nC     DUE TO A TRAPEZOIDAL UNSTEADY VORTEX RING OF UNIT STRENGTH.\r\nC\r\nC     THIS SUBROUTINE CALLS - SNPDF, IDF1, IDF2, FLLD\r\nC\r\nC     SL1, CL1, TL1  SIN(LAMBDA-1), COS(LAMBDA-1), TAN(LAMBDA-1)\r\nC     SL2, CL2, TL2  SIN(LAMBDA-2), .....\r\nC     SGS, CGS       SIN(GAMMA-S),  ....\r\nC     SGR, CGR       SIN(GAMMA-R),  ....\r\nC     X01            X-XI1\r\nC     X02            X-XI2\r\nC     Y0             Y - ETA\r\nC     Z0             Z - ZETA\r\nC     E\r\nC     BETA           SQRT(1-FMACH**2)\r\nC     CV\r\nC     BR\r\nC     FMACH          MACH NO.\r\nC     BRE            REAL PART OF B      (RETURNED)\r\nC     BIM            IMAGINARY PART OF B (RETURNED)\r\nC\r\n      REAL           KR, KD1, KD2\r\nC\r\nC     VARIABLES DIMENSIONED (2), FIRST WORD IS THE REAL PART OF THE\r\nC     VALUE AND THE SECOND IS THE IMAGINARY PART\r\nC\r\n      DIMENSION      DKI(2), DKC(2), DKO(2), KD1(2), KD2(2)\r\nC\r\n      DATA  PI48   / 150.79644720 /\r\nC\r\nC     CALCULATE  BS\r\nC\r\n      L  = 1\r\n      CV = X01 - X02\r\n      SL = SL1\r\n      CL = CL1\r\n      TL = TL1\r\n      X0 = X01\r\n      EE = E**2\r\n      TE = 2.0*E\r\n      ASSIGN 50 TO ISNP\r\nC\r\nC     CALL SNPDF\r\nC\r\n      GO TO 1000\r\n   50 BS = DIJ\r\n      SL = SL2\r\n      CL = CL2\r\n      TL = TL2\r\n      X0 = X02\r\n      ASSIGN 100 TO ISNP\r\nC\r\nC     CALL SNPDF\r\nC\r\n      GO TO 1000\r\n  100 BS = BS - DIJ\r\nC\r\nC     CALCULATE   DELTA-B\r\nC     LIMITS FOR SMALL VALUES OF RADII\r\nC\r\n      EPS = 0.25*EE\r\n      IB  = 0\r\n      FB  = 1.0\r\n      FC  = 4.0\r\nC\r\nC     FIRST CALC.\r\nC     DELTA-KD- 1I, 1C, AND 1O\r\nC\r\n      ETL1 = E*TL1\r\n      ETL2 = E*TL2\r\n      ESGS = E*SGS\r\n      ECGS = E*CGS\r\nC\r\n      DX01 = X01 + ETL1\r\n      DX02 = X02 + ETL2\r\n      DY0  = Y0  + ECGS\r\n      DZ0  = Z0  + ESGS\r\n      ASSIGN 200 TO IFLLD\r\nC\r\nC     CALCULATE  R-I  SQUARED AND CALL FLLD IF LARGE ENOUGH\r\nC\r\n      R2  = DY0**2 + DZ0**2\r\n      IF (R2 .GE. EPS) GO TO 2000\r\n      IB  = 1\r\n      FC  = 6.0\r\n      FB  = 0.0\r\n      GO TO 230\r\n  200 DKI(1) = KD1(1)/R2 + KD2(1)/R4\r\n      DKI(2) = KD1(2)/R2 + KD2(2)/R4\r\nC\r\nC     KD1C AND KD2C\r\nC\r\n  230 DX01 = X01\r\n      DX02 = X02\r\n      DY0  = Y0\r\n      DZ0  = Z0\r\n      ASSIGN 300 TO IFLLD\r\nC\r\nC     CALCULATE  R-C  SQUARED AND CALL FLLD IF LARGE ENOUGH\r\nC\r\n      R2 = DY0**2 + DZ0**2\r\n      IF (R2 .GE. EPS) GO TO 2000\r\n      FC = 0.0\r\n      FB = 3.0\r\n      GO TO 330\r\n  300 DKC(1) = KD1(1)/R2 + KD2(1)/R4\r\n      DKC(2) = KD1(2)/R2 + KD2(2)/R4\r\nC\r\nC     KD1O AND KD2O\r\nC     SKIP IF  R-I IS TOO SMALL\r\nC\r\n  330 IF (IB .NE. 0) GO TO 430\r\n      DX01 = X01 - ETL1\r\n      DX02 = X02 - ETL2\r\n      DY0  = Y0  - ECGS\r\n      DZ0  = Z0  - ESGS\r\n      ASSIGN 400 TO IFLLD\r\nC\r\nC     CALCULATE  R-O  SQUARED AND CALL FLLD IF LARGE ENOUGH\r\nC\r\n      R2 = DY0**2 + DZ0**2\r\n      IF (R2 .GE. EPS) GO TO 2000\r\n      FB = 0.0\r\n      FC = 6.0\r\n      IB = 1\r\n      GO TO 430\r\n  400 DKO(1) = KD1(1)/R2 + KD2(1)/R4\r\n      DKO(2) = KD1(2)/R2 + KD2(2)/R4\r\nC\r\n  430 COEF = 1.0/PI48\r\n      BRE  = BS/(TE*CV) - COEF*(FB*(DKI(1) + DKO(1)) + FC*DKC(1))\r\n      BIM  =            - COEF*(FB*(DKI(2) + DKO(2)) + FC*DKC(2))\r\n      RETURN\r\nC\r\n 1000 CALL SNPDF (SL,CL,TL,SGS,CGS,SGR,CGR,X0,Y0,Z0,E,DIJ,BETA,CV)\r\n      GO TO ISNP, (50,100)\r\nC\r\n 2000 CALL FLLD (DX01,DX02,DY0,DZ0,SGR,CGR,SGS,CGS,KR,CBAR,FMACH,E,L,\r\n     1           KD1(1),KD1(2),KD2(1),KD2(2))\r\n      R4 = R2*R2\r\n      GO TO IFLLD, (200,300,400)\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/twistd.f",
    "content": "      SUBROUTINE TWISTD\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE\r\nC     TWIST PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE BOTH TWIST PANEL ELEMENTS\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC     ECPT( 3)  -   ...                   ...\r\nC     ECPT( 4)  -   ...                   ...\r\nC     ECPT( 5)  -   ...                   ...\r\nC     ECPT( 6)  -  MATID          MATERIAL ID.\r\nC     ECPT( 7)  -  T              THICKNESS\r\nC     ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC     ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC     ECPT(11)  -   ...                      ...\r\nC     ECPT(12)  -   ...                      ...\r\nC     ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC     ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC     ECPT(15)  -   ...                      ...\r\nC     ECPT(16)  -   ...                      ...\r\nC     ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC     ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC     ECPT(19)  -   ...                      ...\r\nC     ECPT(20)  -   ...                      ...\r\nC     ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC     ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC     ECPT(23)  -   ...                      ...\r\nC     ECPT(24)  -   ...                      ...\r\nC     ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          NOGO,IHEAT\r\n      INTEGER          DICT(11),IECPT(2),ESTID,ELID,IPART(4)\r\n      REAL             NU,ECPT(100)\r\n      DOUBLE PRECISION CEPX,CEPY,KE(144),KOUT(144),ME(144),MOUT(144),\r\n     1                 VLEFT(6),A,B,C,A2,B2,C2,VRIGHT(6),P(4),T,C23,\r\n     2                 NUC,G,E,X1,Y1,X2,Y2,X3,D2,A3,B3,C3,D3,Y3,X4,Y4,\r\n     3                 CEP1,TEMP,CEP2,EP,D,XP,YP,XL,XQ,A4,B4,C4,D4,\r\n     4                 A5,B5,C5,D5,TERM,TERM1,TERM2,TERM3,TERM4,TERM5,\r\n     5                 F,Z,VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3),\r\n     6                 VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4),\r\n     7                 XL13,XL24,CON,TI(9)\r\n      COMMON /SYSTEM/  KSYSTM(55),IHEAT\r\n      COMMON /EMGPRM/  DUM(15), ISMB(3), IPREC,NOGO, HEAT\r\n      COMMON /EMGDIC/  IDM,LDICT,NGRIDS,ELID,ESTID\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /EMGEST/  IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3),\r\n     1                 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS\r\n      EQUIVALENCE      (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5),\r\n     1                 (ME(1),KE(1)),(KOUT(1),MOUT(1))\r\n      DATA    IPART /  1,2,3,4/\r\nC\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 56\r\n      IP      = IPREC\r\n      ISORT   = 0\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS\r\nC\r\n      IF (ISMB(1) .EQ. 0) GOTO 400\r\nC\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DICT5  = GSUBE\r\n      E   = ESP\r\n      G   = GSP\r\n      T   = TSP\r\n      IF (T*G  .EQ. 0.D0) GO TO 7770\r\n      C23 = 2.D0/3.D0\r\n      NUC = 1./(1.+NU)\r\nC\r\nC     COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I = 1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC     COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE\r\nC     PROJECTED AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL    = DSQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2)\r\n      IF (VKL .EQ. 0.) GO TO 7770\r\n      VK(1)  = VKN(1)/VKL\r\n      VK(2)  = VKN(2)/VKL\r\n      VK(3)  = VKN(3)/VKL\r\n      PA     = VKL/2.\r\nC\r\nC     COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I = 1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC     COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI,\r\nC     VJ\r\nC\r\n      V12DK   = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3)\r\n      VP12(1) = V12(1) - V12DK*VK(1)\r\n      VP12(2) = V12(2) - V12DK*VK(2)\r\n      VP12(3) = V12(3) - V12DK*VK(3)\r\n      VP12L   = DSQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2)\r\n      IF (VP12L .EQ. 0.) GO TO 7770\r\n      VI(1)   = VP12(1)/VP12L\r\n      VI(2)   = VP12(2)/VP12L\r\n      VI(3)   = VP12(3)/VP12L\r\n      VJ(1)   = VK(2)*VI(3) - VK(3)*VI(2)\r\n      VJ(2)   = VK(3)*VI(1) - VK(1)*VI(3)\r\n      VJ(3)   = VK(1)*VI(2) - VK(2)*VI(1)\r\nC\r\nC     NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL   = DSQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2)\r\n      IF (VJL .EQ. 0.) GO TO 7770\r\n      VJ(1) = VJ(1)/VJL\r\n      VJ(2) = VJ(2)/VJL\r\n      VJ(3) = VJ(3)/VJL\r\n      X1 = 0.\r\n      Y1 = 0.\r\n      X2 = VP12L\r\n      Y2 = 0.\r\n      X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3)\r\n      Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3)\r\n      X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3)\r\n      Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3)\r\nC\r\nC     CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT,\r\nC     CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.) GO TO 7780\r\n      IF (Y4 .LE. 0.) GO TO 7800\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 7810\r\n      IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7790\r\nC\r\nC     TEST FOR PARALLEL EFFECTS.\r\nC\r\n      CEP1 = DABS(Y3-Y4)\r\n      CEPX = DABS(X3-X4)\r\n      TEMP = X3 - X2\r\n      CEP2 = DABS(Y4*TEMP - Y3*X4)\r\n      CEPY = DABS(X4*TEMP + Y4*Y3)\r\n      EP   = 0.01D0\r\n      IF (CEP1 .LT. EP*CEPX) GO TO 30\r\n      IF (CEP2 .LT. EP*CEPY) GO TO 40\r\n      GO TO 70\r\n   30 IF (CEP2 .LT. EP*CEPY) GO TO 50\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      YP   = X2*Y3*Y4/TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4/TEMP\r\n      SA   = (X2 - XP)/YP\r\n      C    = (X1 - XP)/YP\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*\r\n     1       (1.+C23*NUC*(SA**2+SA*C+C**2))\r\n      GO TO 80\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D    = -.5*(X4/Y4 + (X3-X2)/Y3)\r\n      XQ   = X4  - Y4*(X3-X4)/(Y3-Y4)\r\n      TEMP = 1.D0/DSQRT(1.D0 + D**2)\r\n      P(1) = (XQ - X1 - D*Y1)*TEMP\r\n      P(2) = (XQ - X2 - D*Y2)*TEMP\r\n      P(3) = (XQ - X3 - D*Y3)*TEMP\r\n      P(4) = (XQ - X4 - D*Y4)*TEMP\r\n      TEMP =  XQ - X4\r\n      B    = (TEMP*D + Y4)/(TEMP - Y4*D)\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*\r\n     1       (1.+C23* NUC*(B**2+B*D+D**2))\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I = 1,4\r\n   60 P(I) = 1.\r\n      D = -.5*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4))\r\n      Z =  PA/(2.*G*T)*(1.+2.*D**2 * NUC)\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4 - (X3-X4)/(Y3-Y4)*Y4\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      XP   = X2*Y3*X4/TEMP\r\n      YP   = X2*Y3*Y4/TEMP\r\n      XL   = DSQRT((XP-YP)**2 + YP**2)\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP*(XQ - X1 - D*Y1)\r\n      P(2) = TEMP*(XQ - X2 - D*Y2)\r\n      P(3) = TEMP*(XQ - X3 - D*Y3)\r\n      P(4) = TEMP*(XQ - X4 - D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .5*P(1)*P(2)*P(3)*P(4)/XL**2\r\n      TERM =(A + B + C23*(A3+B3) + .2 *(A5+B5))*DLOG(DABS(A+B))\r\n      TERM1=(C + D + C23*(C3+D3) + .2*(C5+D5))*DLOG(DABS(C+D))\r\n      TERM2=(B + C + C23*(B3+C3) + .2*(B5+C5))*DLOG(DABS(B+C))\r\n      TERM3=(D + A + C23*(D3+A3) + .2*(D5+A5))*DLOG(DABS(D+A))\r\n      TERM4= .1*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3))\r\n      TERM5= .2*((A - C )*(B4-D4) + (B-D)*(A4-C4))\r\n      F    = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5)\r\n      Z    = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA))\r\n   80 XL13 = DSQRT(X3**2 + Y3**2)\r\n      XL24 = DSQRT((X4-X2)**2 + Y4**2)\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP      = X4*Y3 - X3*Y4\r\n      AVEC(1)   =-.5*X2*Y4*XL13/TEMP\r\n      AVEC(2)   = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4))\r\n      AVEC(3)   =-AVEC(1)\r\n      AVEC(4)   =-AVEC(2)\r\nC\r\nC     SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU\r\nC     AND SMALLU IN SMALLV.\r\nC\r\n      DO 90 I = 1,4\r\n      TEMP = SMALLU(I)\r\n      SMALLU(I) =-SMALLV(I)\r\n   90 SMALLV(I) = TEMP\r\nC\r\n      DO 95 I = 1,144\r\n   95 KE(I) = 0.D0\r\n      DO 230 IPVT = 1,4\r\n      CON = AVEC(IPVT)*T**2/(24.*Z)\r\nC\r\nC     COMPUTE THE -VLEFT- VECTOR\r\nC\r\n      IVLBEG = 1\r\n      VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT)\r\n      VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT)\r\n      VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT)\r\n      IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150\r\n      CALL TRANSD (IECPT(4*IPVT+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATD (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4))\r\nC\r\nC     COMPUTE THE 6 X 6 -S\r\nC\r\n  150 DO 220 J = 1,4\r\n      JT = (IPVT-1)*36 + (J-1)*9 + 1\r\n      IVRBEG = 1\r\n      VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1)\r\n      VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2)\r\n      VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3)\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 170\r\n      CALL TRANSD (IECPT(4*J+5),TI)\r\n      CALL GMMATD (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4))\r\n      IVRBEG = 4\r\n  170 CALL GMMATD (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT))\r\n      JT8 = JT + 8\r\n      DO 180 K = JT,JT8\r\n  180 KE(K)= CON*KE(K)*AVEC(J)\r\n  220 CONTINUE\r\n  230 CONTINUE\r\nC\r\nC     NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT\r\nC     FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE\r\nC\r\n      ASSIGN 290TO  K OR M\r\n  275 CONTINUE\r\n      DO 280 I = 1,3\r\n      IP1 = I + 1\r\n      IT  = IPART (I)\r\n      DO 270 J = IP1,4\r\n      JT = IPART(J)\r\n      IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270\r\n      IPART(I) = JT\r\n      IPART(J) = IT\r\n      IT = JT\r\n      GO TO 275\r\n 270  CONTINUE\r\n 280  CONTINUE\r\n      ISORT = 1\r\n      GO TO  KORM, (290,420)\r\nC\r\nC     NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT\r\nC\r\nC\r\nC     KE = (K  ,K  ,K  ,K  ,K  ,...,K  ,K  ,...,K  )\r\nC            11  12  13  14  21      24  31      44\r\nC\r\nC     WHERE  K  IS A 3X3 SUBMATRIX AND  SILS ARE IN GRID POINT ORDER\r\nC             IJ\r\nC\r\nC     AND    *****                 ****\r\nC            * K     K     K     K    *\r\nC            *  L1L1  L1L2  L1L3  L1L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC     KOUT = *  L2L1  L2L2  L2L3  L2L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC            *  L3L1  L3L2  L3L3  L3L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC            *  L4L1  L4L2  L4L3  L4L4*\r\nC            ****                  ****\r\nC\r\nC     WHERE  KOUT     IS A   3X3    MATRIX AND SILS ARE IN INCREASING\r\nC                LILJ\r\nC     ORDER\r\nC\r\n  290 CONTINUE\r\n      DO 300 I = 1,4\r\n      IS = IPART(I)\r\n      DO 300 J = 1,4\r\n      JS = IPART(J)\r\n      DO 300 K = 1,3\r\n      DO 300 L = 1,3\r\n      IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L\r\n      IKE  = (IS-1)*36 + (JS-1)*9 + (K-1)*3  + L\r\n  300 KOUT(IOUT) = KE(IKE)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ\r\nC\r\nC\r\n  400 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\n      CALL EMADTQ (6,ME)\r\n      IF (ISORT .EQ. 1) GO TO 420\r\n      ASSIGN 420 TO KORM\r\n      GO TO 275\r\nC\r\nC     RETURN WITH A GRID POINT SORT ARRAY IN IPART\r\nC\r\nC\r\n  420 DO 440 I = 1,4\r\n      IT = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      MOUT(IJ  ) = ME(IT  )\r\n      MOUT(IJ+1) = ME(IT+1)\r\n  440 MOUT(IJ+2) = ME(IT+2)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = 0.\r\nC\r\n      CALL  EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 CALL MESAGE (30,26,IECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 IECPT(2) = 2\r\n      GO TO 7820\r\n7790  IECPT(I) = 4\r\n      GO TO 7820\r\n 7800 IECPT(2) = 1\r\n      GO TO 7820\r\n 7810 IECPT(2) = 3\r\n 7820 CALL MESAGE (30,27,IECPT(1))\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/twists.f",
    "content": "      SUBROUTINE TWISTS\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12 X 12 STIFFNESS MATRIX FOR THE\r\nC     TWIST PANEL ELEMENT, AS WELL AS ITS DIAGONALIZED MASS MATRIX\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     ECPT FOR THE BOTH TWIST PANEL ELEMENTS\r\nC\r\nC     ECPT( 1)  -  IELID          ELEMENT ID. NO.\r\nC     ECPT( 2)  -  ISILNO(4)      SCALAR INDEX NUMBERS\r\nC     ECPT( 3)  -   ...                   ...\r\nC     ECPT( 4)  -   ...                   ...\r\nC     ECPT( 5)  -   ...                   ...\r\nC     ECPT( 6)  -  MATID          MATERIAL ID.\r\nC     ECPT( 7)  -  T              THICKNESS\r\nC     ECPT( 8)  -  FMU            NON-STRUCTURAL MASS\r\nC     ECPT( 9)  -  ICSID1         COOR. SYS. ID. FOR GRID POINT 1\r\nC     ECPT(10)  -  GP1(3)         BASIC COORDINATES FOR GRID POINT 1\r\nC     ECPT(11)  -   ...                      ...\r\nC     ECPT(12)  -   ...                      ...\r\nC     ECPT(13)  -  ICSID2         COOR. SYS. ID. FOR GRID POINT 2\r\nC     ECPT(14)  -  GP2(3)         BASIC COORDINATES FOR GRID POINT 2\r\nC     ECPT(15)  -   ...                      ...\r\nC     ECPT(16)  -   ...                      ...\r\nC     ECPT(17)  -  ICSID3         COOR. SYS. ID. FOR GRID POINT 3\r\nC     ECPT(18)  -  GP3(3)         BASIC COORDINATES FOR GRID POINT 3\r\nC     ECPT(19)  -   ...                      ...\r\nC     ECPT(20)  -   ...                      ...\r\nC     ECPT(21)  -  ICSID4         COOR. SYS. ID. FOR GRID POINT 4\r\nC     ECPT(22)  -  GP4(3)         BASIC COORDINATES FOR GRID POINT 4\r\nC     ECPT(23)  -   ...                      ...\r\nC     ECPT(24)  -   ...                      ...\r\nC     ECPT(25)  -  TEMPEL         ELEMENT TEMPERATURE\r\nC\r\n      LOGICAL          NOGO,IHEAT\r\n      INTEGER          DICT(11),IECPT(2),ESTID,ELID,IPART(4)\r\n      REAL             NU,ECPT(100)\r\n      REAL             KE(144),KOUT(144),ME(144),MOUT(144),\r\n     1                 VLEFT(6),VRIGHT(6),TI(9),P(4),\r\n     2                 VD1(3),VD2(3),VKN(3),VK(3),V12(3),V41(3),\r\n     3                 VP12(3),VI(3),VJ(3),AVEC(4),SMALLU(4),SMALLV(4)\r\n      COMMON /SYSTEM/  KSYSTM(55),IHEAT\r\n      COMMON /EMGPRM/  DUM(15),ISMB(3),IPREC,NOGO,HEAT\r\n      COMMON /EMGDIC/  IDM,LDICT,NGRIDS,ELID,ESTID\r\nC\r\nC     ECPT COMMON BLOCK\r\nC\r\n      COMMON /EMGEST/  IELID,ISILNO(4),MATID,TSP,FMU,ICSID1,GP1(3),\r\n     1                 ICSID2,GP2(3),ICSID3,GP3(3),ICSID4,GP4(3),TEMPEL\r\nC\r\nC     INPUT AND OUTPUT BLOCKS FOR SUBROUTINE MAT\r\nC\r\n      COMMON /MATIN /  MATIDC,MATFLG,ELTEMP,STRESS,SINTH,COSTH\r\n      COMMON /MATOUT/  ESP,GSP,NU,RHO,ALPHA,TSUB0,GSUBE,SIGT,SIGC,SIGS\r\n      EQUIVALENCE      (IECPT(1),ECPT(1),IELID),(DICT(5),DICT5),\r\n     1                 (ME(1),KE(1)),(KOUT(1),MOUT(1))\r\n      DATA    IPART /  1,2,3,4/\r\nC\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 56\r\n      IP      = IPREC\r\n      ISORT   = 0\r\nC\r\nC     IF STIFFNESS MATRIX NOT NEEDED GO TO PERFORM MASS CALCULATIONS\r\nC\r\n      IF (ISMB(1) .EQ. 0) GOTO 400\r\nC\r\nC\r\n      MATIDC = MATID\r\n      MATFLG = 1\r\n      ELTEMP = TEMPEL\r\n      CALL MAT (IECPT(1))\r\n      DICT5  = GSUBE\r\n      E   = ESP\r\n      G   = GSP\r\n      T   = TSP\r\n      IF (T*G  .EQ. 0.0) GO TO 7770\r\n      C23 = 2.0/3.0\r\n      NUC = 1./(1.+NU)\r\nC\r\nC     COMPUTE DIAGONAL VECTORS.\r\nC\r\n      DO 10 I = 1,3\r\n      VD1(I) = GP3(I) - GP1(I)\r\n   10 VD2(I) = GP4(I) - GP2(I)\r\nC\r\nC     COMPUTE THE NORMAL VECTOR VKN, NORMALIZE, AND COMPUTE THE\r\nC     PROJECTED AREA, PA\r\nC\r\n      VKN(1) = VD1(2)*VD2(3) - VD1(3)*VD2(2)\r\n      VKN(2) = VD1(3)*VD2(1) - VD1(1)*VD2(3)\r\n      VKN(3) = VD1(1)*VD2(2) - VD1(2)*VD2(1)\r\n      VKL    = SQRT(VKN(1)**2 + VKN(2)**2 + VKN(3)**2)\r\n      IF (VKL .EQ. 0.) GO TO 7770\r\n      VK(1)  = VKN(1)/VKL\r\n      VK(2)  = VKN(2)/VKL\r\n      VK(3)  = VKN(3)/VKL\r\n      PA     = VKL/2.\r\nC\r\nC     COMPUTE  SIDES -12- AND -41-\r\nC\r\n      DO 20 I = 1,3\r\n      V12(I) = GP2(I) - GP1(I)\r\n   20 V41(I) = GP1(I) - GP4(I)\r\nC\r\nC     COMPUTE DOT PRODUCT, V12DK, OF V12 AND VK, THE VECTORS VP12, VI,\r\nC     VJ\r\nC\r\n      V12DK   = V12(1)*VK(1) + V12(2)*VK(2) + V12(3)*VK(3)\r\n      VP12(1) = V12(1) - V12DK*VK(1)\r\n      VP12(2) = V12(2) - V12DK*VK(2)\r\n      VP12(3) = V12(3) - V12DK*VK(3)\r\n      VP12L   = SQRT(VP12(1)**2 + VP12(2)**2 + VP12(3)**2)\r\n      IF (VP12L .EQ. 0.) GO TO 7770\r\n      VI(1)   = VP12(1)/VP12L\r\n      VI(2)   = VP12(2)/VP12L\r\n      VI(3)   = VP12(3)/VP12L\r\n      VJ(1)   = VK(2)*VI(3) - VK(3)*VI(2)\r\n      VJ(2)   = VK(3)*VI(1) - VK(1)*VI(3)\r\n      VJ(3)   = VK(1)*VI(2) - VK(2)*VI(1)\r\nC\r\nC     NORMALIZE J FOR GOOD MEASURE\r\nC\r\n      VJL   = SQRT(VJ(1)**2 + VJ(2)**2 + VJ(3)**2)\r\n      IF (VJL .EQ. 0.) GO TO 7770\r\n      VJ(1) = VJ(1)/VJL\r\n      VJ(2) = VJ(2)/VJL\r\n      VJ(3) = VJ(3)/VJL\r\n      X1 = 0.\r\n      Y1 = 0.\r\n      X2 = VP12L\r\n      Y2 = 0.\r\n      X3 = VI(1)*VD1(1) + VI(2)*VD1(2) + VI(3)*VD1(3)\r\n      Y3 = VJ(1)*VD1(1) + VJ(2)*VD1(2) + VJ(3)*VD1(3)\r\n      X4 =-VI(1)*V41(1) - VI(2)*V41(2) - VI(3)*V41(3)\r\n      Y4 =-VJ(1)*V41(1) - VJ(2)*V41(2) - VJ(3)*V41(3)\r\nC\r\nC     CHECK TO SEE IF INTERIOR ANGLES ARE LESS THAN 180 DEGREES. IF NOT,\r\nC     CALL FATAL ERROR MESSAGE.\r\nC\r\n      IF (Y3 .LE. 0.) GO TO 7780\r\n      IF (Y4 .LE. 0.) GO TO 7800\r\n      IF (X3 .LE. Y3*X4/Y4) GO TO 7810\r\n      IF (X4 .GE. X2-(X2-X3)*Y4/Y3) GO TO 7790\r\nC\r\nC     TEST FOR PARALLEL EFFECTS.\r\nC\r\n      CEP1 = ABS(Y3-Y4)\r\n      CEPX = ABS(X3-X4)\r\n      TEMP = X3 - X2\r\n      CEP2 = ABS(Y4*TEMP - Y3*X4)\r\n      CEPY = ABS(X4*TEMP + Y4*Y3)\r\n      EP   = 0.010\r\n      IF (CEP1 .LT. EP*CEPX) GO TO 30\r\n      IF (CEP2 .LT. EP*CEPY) GO TO 40\r\n      GO TO 70\r\n   30 IF (CEP2 .LT. EP*CEPY) GO TO 50\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 3 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 1 AND 2.\r\nC\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      YP   = X2*Y3*Y4/TEMP\r\n      P(1) = YP - Y1\r\n      P(2) = YP - Y2\r\n      P(3) = YP - Y3\r\n      P(4) = YP - Y4\r\n      XP   = X2*Y3*X4/TEMP\r\n      SA   = (X2 - XP)/YP\r\n      C    = (X1 - XP)/YP\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*\r\n     1       (1.+C23*NUC*(SA**2+SA*C+C**2))\r\n      GO TO 80\r\nC\r\nC     AT THIS POINT THE LINE CONNECTING POINTS 1 AND 4 IS -PARALLEL- TO\r\nC     THE LINE CONNECTING POINTS 2 AND 3.\r\nC\r\n   40 D    = -.5*(X4/Y4 + (X3-X2)/Y3)\r\n      XQ   = X4  - Y4*(X3-X4)/(Y3-Y4)\r\n      TEMP = 1.0/SQRT(1.0 + D**2)\r\n      P(1) = (XQ - X1 - D*Y1)*TEMP\r\n      P(2) = (XQ - X2 - D*Y2)*TEMP\r\n      P(3) = (XQ - X3 - D*Y3)*TEMP\r\n      P(4) = (XQ - X4 - D*Y4)*TEMP\r\n      TEMP =  XQ - X4\r\n      B    = (TEMP*D + Y4)/(TEMP - Y4*D)\r\n      Z    = ((P(1)*P(2)*PA)/(P(3)*P(4)*2.*G*T))*\r\n     1       (1.+C23* NUC*(B**2+B*D+D**2))\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE THE PANEL APPROXIMATES A PARALLELOGRAM.\r\nC\r\n   50 DO 60 I = 1,4\r\n   60 P(I) = 1.\r\n      D = -.5*(X4/Y4 + (X3-X2)/Y3 + (Y3-Y4)/(X3-X4))\r\n      Z =  PA/(2.*G*T)*(1.+2.*D**2 * NUC)\r\n      GO TO 80\r\nC\r\nC     IN THIS CASE NO PARALLEL EFFECTS EXIST.\r\nC\r\n   70 XQ   = X4 - (X3-X4)/(Y3-Y4)*Y4\r\n      TEMP = Y3*X4 - Y4*(X3-X2)\r\n      XP   = X2*Y3*X4/TEMP\r\n      YP   = X2*Y3*Y4/TEMP\r\n      XL   = SQRT((XP-YP)**2 + YP**2)\r\n      D    = (XQ-XP)/YP\r\n      TEMP = YP/XL\r\n      P(1) = TEMP*(XQ - X1 - D*Y1)\r\n      P(2) = TEMP*(XQ - X2 - D*Y2)\r\n      P(3) = TEMP*(XQ - X3 - D*Y3)\r\n      P(4) = TEMP*(XQ - X4 - D*Y4)\r\n      C    = XL/P(1) - D\r\n      B    = XL/P(4) - C\r\n      A    = XL/P(2) - D\r\n      A2   = A**2\r\n      B2   = B**2\r\n      C2   = C**2\r\n      D2   = D**2\r\n      A3   = A2*A\r\n      B3   = B2*B\r\n      C3   = C2*C\r\n      D3   = D2*D\r\n      A4   = A3*A\r\n      B4   = B3*B\r\n      C4   = C3*C\r\n      D4   = D3*D\r\n      A5   = A4*A\r\n      B5   = B4*B\r\n      C5   = C4*C\r\n      D5   = D4*D\r\n      TEMP = .5*P(1)*P(2)*P(3)*P(4)/XL**2\r\n      TERM =(A + B + C23*(A3+B3) + .2 *(A5+B5))*ALOG(ABS(A+B))\r\n      TERM1=(C + D + C23*(C3+D3) + .2*(C5+D5))*ALOG(ABS(C+D))\r\n      TERM2=(B + C + C23*(B3+C3) + .2*(B5+C5))*ALOG(ABS(B+C))\r\n      TERM3=(D + A + C23*(D3+A3) + .2*(D5+A5))*ALOG(ABS(D+A))\r\n      TERM4= .1*((A2-C2)*(B3-D3)+ (B2-D2)*(A3-C3))\r\n      TERM5= .2*((A - C )*(B4-D4) + (B-D)*(A4-C4))\r\n      F    = TEMP*(TERM + TERM1 - TERM2 - TERM3 + TERM4 - TERM5)\r\n      Z    = P(1)*P(2)/(P(3)*P(4)*2.*G*T)*(PA+4.*NUC*(F-C23*PA))\r\n   80 XL13 = SQRT(X3**2 + Y3**2)\r\n      XL24 = SQRT((X4-X2)**2 + Y4**2)\r\n      SMALLU(1) = X3/XL13\r\n      SMALLU(2) = (X4-X2)/XL24\r\n      SMALLU(3) = SMALLU(1)\r\n      SMALLU(4) = SMALLU(2)\r\n      SMALLV(1) = Y3/XL13\r\n      SMALLV(2) = Y4/XL24\r\n      SMALLV(3) = SMALLV(1)\r\n      SMALLV(4) = SMALLV(2)\r\n      TEMP      = X4*Y3 - X3*Y4\r\n      AVEC(1)   =-.5*X2*Y4*XL13/TEMP\r\n      AVEC(2)   = .5*X2*Y3 *XL24/(TEMP -X2*(Y3-Y4))\r\n      AVEC(3)   =-AVEC(1)\r\n      AVEC(4)   =-AVEC(2)\r\nC\r\nC     SINCE WE ARE DEALING WITH A TWIST PANEL STORE -SMALLV IN SMALLU\r\nC     AND SMALLU IN SMALLV.\r\nC\r\n      DO 90 I = 1,4\r\n      TEMP = SMALLU(I)\r\n      SMALLU(I) =-SMALLV(I)\r\n   90 SMALLV(I) = TEMP\r\nC\r\n      DO 95 I = 1,144\r\n   95 KE(I) = 0.0\r\n      DO 230 IPVT = 1,4\r\n      CON = AVEC(IPVT)*T**2/(24.*Z)\r\nC\r\nC     COMPUTE THE -VLEFT- VECTOR\r\nC\r\n      IVLBEG = 1\r\n      VLEFT(1) = VI(1)*SMALLU(IPVT) + VJ(1)*SMALLV(IPVT)\r\n      VLEFT(2) = VI(2)*SMALLU(IPVT) + VJ(2)*SMALLV(IPVT)\r\n      VLEFT(3) = VI(3)*SMALLU(IPVT) + VJ(3)*SMALLV(IPVT)\r\n      IF (IECPT(4*IPVT+5) .EQ. 0) GO TO 150\r\n      CALL TRANSS (IECPT(4*IPVT+5),TI)\r\n      IVLBEG = 4\r\n      CALL GMMATS (TI,3,3,1, VLEFT(1),3,1,0, VLEFT(4))\r\nC\r\nC     COMPUTE THE 6 X 6 -S\r\nC\r\n  150 DO 220 J = 1,4\r\n      JT = (IPVT-1)*36 + (J-1)*9 + 1\r\n      IVRBEG = 1\r\n      VRIGHT(1) = SMALLU(J)*VI(1) + SMALLV(J)*VJ(1)\r\n      VRIGHT(2) = SMALLU(J)*VI(2) + SMALLV(J)*VJ(2)\r\n      VRIGHT(3) = SMALLU(J)*VI(3) + SMALLV(J)*VJ(3)\r\n      IF (IECPT(4*J+5) .EQ. 0) GO TO 170\r\n      CALL TRANSS (IECPT(4*J+5),TI)\r\n      CALL GMMATS (VRIGHT(1),1,3,0, TI,3,3,0, VRIGHT(4))\r\n      IVRBEG = 4\r\n  170 CALL GMMATS (VLEFT(IVLBEG),3,1,0, VRIGHT(IVRBEG),1,3,0, KE(JT))\r\n      JT8 = JT + 8\r\n      DO 180 K = JT,JT8\r\n  180 KE(K)= CON*KE(K)*AVEC(J)\r\n  220 CONTINUE\r\n  230 CONTINUE\r\nC\r\nC     NOW REARRANGE KE BY INCREASING SIL THEN OUTPUT IT VIA EMGOUT\r\nC     FIRST DETERMINE WHAT INCREASING SIL ORDER WILL BE\r\nC\r\n      ASSIGN 290TO  K OR M\r\n  275 CONTINUE\r\n      DO 280 I = 1,3\r\n      IP1 = I + 1\r\n      IT  = IPART (I)\r\n      DO 270 J = IP1,4\r\n      JT = IPART(J)\r\n      IF (ISILNO(IT) .LE. ISILNO(JT)) GO TO 270\r\n      IPART(I) = JT\r\n      IPART(J) = IT\r\n      IT = JT\r\n      GO TO 275\r\n 270  CONTINUE\r\n 280  CONTINUE\r\n      ISORT = 1\r\n      GO TO  KORM, (290,420)\r\nC\r\nC     NOW REARRANGE TERMS IN THE STIFFNESS MATRIX KE AND STORE IN KOUT\r\nC\r\nC\r\nC     KE = (K  ,K  ,K  ,K  ,K  ,...,K  ,K  ,...,K  )\r\nC            11  12  13  14  21      24  31      44\r\nC\r\nC     WHERE  K  IS A 3X3 SUBMATRIX AND  SILS ARE IN GRID POINT ORDER\r\nC             IJ\r\nC\r\nC     AND    *****                 ****\r\nC            * K     K     K     K    *\r\nC            *  L1L1  L1L2  L1L3  L1L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC     KOUT = *  L2L1  L2L2  L2L3  L2L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC            *  L3L1  L3L2  L3L3  L3L4*\r\nC            *                        *\r\nC            * K     K     K     K    *\r\nC            *  L4L1  L4L2  L4L3  L4L4*\r\nC            ****                  ****\r\nC\r\nC     WHERE  KOUT     IS A   3X3    MATRIX AND SILS ARE IN INCREASING\r\nC                LILJ\r\nC     ORDER\r\nC\r\n  290 CONTINUE\r\n      DO 300 I = 1,4\r\n      IS = IPART(I)\r\n      DO 300 J = 1,4\r\n      JS = IPART(J)\r\n      DO 300 K = 1,3\r\n      DO 300 L = 1,3\r\n      IOUT = (I -1)*36 + (J -1)*3 + (K-1)*12 + L\r\n      IKE  = (IS-1)*36 + (JS-1)*9 + (K-1)*3  + L\r\n  300 KOUT(IOUT) = KE(IKE)\r\nC\r\nC     OUTPUT THE STIFFNESS MATRIX\r\nC\r\n      CALL EMGOUT (KOUT,KOUT,144,1,DICT,1,IP)\r\nC\r\nC     HERE WE CALCULATE THE MASS MATRIX VIA SUBROUTINE EMASTQ\r\nC\r\nC\r\n  400 IF (ISMB(2) .EQ. 0) RETURN\r\nC\r\n      CALL EMADTQ (6,ME)\r\n      IF (ISORT .EQ. 1) GO TO 420\r\n      ASSIGN 420 TO KORM\r\n      GO TO 275\r\nC\r\nC     RETURN WITH A GRID POINT SORT ARRAY IN IPART\r\nC\r\nC\r\n  420 DO 440 I = 1,4\r\n      IT = 1 + (IPART(I)-1)*3\r\n      IJ = (I-1)*3 + 1\r\n      MOUT(IJ  ) = ME(IT  )\r\n      MOUT(IJ+1) = ME(IT+1)\r\n  440 MOUT(IJ+2) = ME(IT+2)\r\nC\r\n      DICT(1) = ESTID\r\n      DICT(2) = 2\r\n      DICT(3) = 12\r\n      DICT(4) = 7\r\n      DICT5   = 0.\r\nC\r\n      CALL  EMGOUT (KOUT,KOUT,12,1,DICT,2,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 CALL MESAGE (30,26,IECPT(1))\r\n 7777 NOGO = .TRUE.\r\n      RETURN\r\nC\r\n 7780 IECPT(2) = 2\r\n      GO TO 7820\r\n7790  IECPT(I) = 4\r\n      GO TO 7820\r\n 7800 IECPT(2) = 1\r\n      GO TO 7820\r\n 7810 IECPT(2) = 3\r\n 7820 CALL MESAGE (30,27,IECPT(1))\r\n      GO TO 7777\r\n      END\r\n"
  },
  {
    "path": "mis/type10.f",
    "content": "      SUBROUTINE TYPE10 (X,Y,XYD,CHR,NN,OPT)\r\nC                                                \t\r\nC     (X,Y) = STARTING OR ENDING POINT OF THE LINE TO BE TYPED (ALWAYS\r\nC             LEFT-TO-RIGHT OR TOP-TO-BOTTOM)\r\nC     XYD   = (+/-)1 IF X = STARTING OR ENDING POINT OF THE LINE\r\nC           = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE LINE\r\nC     CHR   = CHARACTERS TO BE TYPED\r\nC     NN    = NUMBER OF CHARACTERS\r\nC     OPT   = -1 TO INITIATE  THE TYPING MODE\r\nC           = +1 TO TERMINATE THE TYPING MODE\r\nC           =  0 TO TYPE A LINE\r\nC\r\n      INTEGER         XYD,CHR(1),OPT,OPTX,A(6),TYPE,D,PLTYPE\r\n      REAL            XY(2,2),CSCALE\r\n      COMMON /PLTDAT/ SKPPLT(2),XYMIN(2),XYMAX(15),CSCALE,SKPA(3),\r\n     1                CNTCHR(6),PLTYPE\r\n      DATA    A(6)  , TYPE,LSTCHR / 0, 4, 48 /\r\nC\r\n      IF (PLTYPE .LT. 0) GO TO 175\r\n      OPTX = -1\r\n      IF (OPT) 200,100,150\r\n  100 A(5) = IFIX(CSCALE+.44)\r\n      XY(1,1) = X\r\n      XY(2,1) = Y\r\n      XY(1,2) = X\r\n      XY(2,2) = Y\r\n      N = 1\r\n      IF (N .LE. 0) N = 1\r\nC\r\nC     SCREEN OUT TRAILING BLANKS\r\nC\r\n      DO 102 J = 1,NN\r\n      IF (IABS(CHR(J)) .NE. 48) N = J\r\n  102 CONTINUE\r\n      IF (N.EQ.1 .AND. IABS(CHR(1)).EQ.48) RETURN\r\n      D = MAX0(IABS(XYD),1)\r\n      S = CNTCHR(D)\r\n      IF (XYD.EQ.-1 .OR. XYD.EQ.2) S = -S\r\nC\r\nC     TYPE THE LINE\r\nC\r\n      DO 125 J = 1,N\r\n      XY(D,2) = XY(D,1) + S*FLOAT(J-1)\r\n      DO 105 I = 1,2\r\n      IF (XY(I,2)+.1.LT.XYMIN(I) .OR. XY(I,2)-.1.GT.XYMAX(I)) GO TO 125\r\n      A(I+2) = XY(I,2) + .1\r\n  105 CONTINUE\r\nC\r\nC     MAKE SURE EACH CHARACTER IS A VALID CHARACTER (UNLESS NN.LE.0)\r\nC\r\n      K = J\r\n      IF (XYD .LT. 0) K = N - J + 1\r\n      A(2) = IABS(CHR(K))\r\n      IF (NN  .LE. 0) GO TO 120\r\n      IF (A(2).EQ.0 .OR. A(2).GT.LSTCHR) GO TO 125\r\n      IF (A(2) .EQ. 0) GO TO 125\r\nC\r\nC     TYPE THE CHARACTER\r\nC\r\n  120 A(1) = TYPE\r\n      IF (OPTX .EQ. 0) GO TO 121\r\n      A(1) = TYPE + 10\r\n      OPTX = 0\r\n  121 CALL WPLT10 (A,0)\r\n  125 CONTINUE\r\n      GO TO 200\r\nC\r\nC     TERMINATE THE TYPING MODE\r\nC\r\n  150 CALL WPLT10 (A,1)\r\n      OPTX = -1\r\n      GO TO 200\r\nC\r\nC     DRAW THE LINE OF CHARACTERS\r\nC\r\n  175 CALL DRWCHR (X,Y,XYD,CHR,NN,OPT)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/typflt.f",
    "content": "      SUBROUTINE TYPFLT (X,Y,XYD,V,FIELD,OPT)\r\nC\r\nC\r\nC     (X,Y) = STARTING OR ENDING POINT OF THE NUMBER TO BE TYPED (ALWAYS\r\nC             LEFT-TO-RIGHT OR TOP-TO-BOTTOM).\r\nC     XYD   = +/-1 IF X = STARTING OR ENDING POINT OF THE NUMBER.\r\nC           = +/-2 IF Y = STARTING OR ENDING POINT OF THE NUMBER.\r\nC     V     = REAL NUMBER TO BE TYPED.\r\nC     FIELD = FIELD WIDTH OF THE NUMBER (IF POSITIVE, THE NUMBER WILL BE\r\nC             CENTERED AT (X,Y) - IF NEGATIVE, THE NUMBER WILL BE TYPED\r\nC             STARTING OR ENDING AT (X,Y) - IF XYD = 1 OR 2, THE NUMBER\r\nC             WILL BE TYPED IN THE X OR Y DIRECTION).\r\nC     OPT   = -1 TO INITIATE  THE TYPING MODE.\r\nC           = +1 TO TERMINATE THE TYPING MODE.\r\nC           =  0 TO TYPE THE NUMBER.\r\nC\r\n      INTEGER          PLOTER,DIR,EXP,D(9),C(100),ASTER,DECPNT,PLUS,\r\n     1                 MINUS,FW,EXPFLD,TRA,XYD,FIELD,OPT\r\n      DOUBLE PRECISION VAL,Z\r\n      COMMON /PLTDAT/  MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTX,CNTY\r\n      DATA    ASTER ,  DECPNT,PLUS,MINUS / 41,44,39,40 /\r\n      DATA    TENM2 ,  TEN7,TEN8  / 1.E-2, 1.E7, 1.E8  /\r\nC\r\n      IF (OPT .EQ. 0) GO TO 20\r\n      CALL TIPE (0,0,0,0,0,OPT)\r\n      GO TO 200\r\n   20 VAL = ABS(V)\r\n      FW  = MIN0(25,IABS(FIELD))\r\n      IF (FW .EQ. 0) GO TO 200\r\n      DO 21 I = 1,FW\r\n      C(I) = 1\r\n   21 CONTINUE\r\n      EXP = 0\r\n      IF (V .NE. 0.) GO TO 30\r\nC\r\nC     INPUT VALUE = 0.\r\nC\r\n      FW   = MIN0(FW,2)\r\n      NSIG = 1\r\n      C(2) = DECPNT\r\n      GO TO 150\r\nC\r\n   30 EXPFLD = 0\r\n      IF (V .LT. 0.) GO TO 35\r\nC\r\nC     SINCE -V- IS POSITIVE, THE NUMBER WILL BE UNSIGNED. IF FIELD.GT.4,\r\nC     THE NUMBER OF SIGNIFICANT DIGITS TYPED WILL BE AT LEAST -FIELD-4-.\r\nC     IF FIELD.LE.4, -FIELD-1-.\r\nC\r\n      NSIG = FW - 4\r\n      IF (NSIG) 40,40,100\r\nC\r\nC     SINCE -V- IS NEGATIVE, THE NUMBER WILL BE SIGNED.  IF FIELD.GT.5,\r\nC     THE NUMBER OF SIGNIFICANT DIGITS TYPED WILL BE AT LEAST -FIELD-5-.\r\nC     IF FIELD.LE.5, -FIELD-2-.\r\nC\r\n   35 NSIG = FW - 5\r\n      IF (NSIG) 40,40,100\r\nC\r\nC     THE NUMBER WILL BE TYPED WITHOUT AN EXPONENT.\r\nC\r\n   40 NSIG = NSIG + 3\r\n      EXPFLD = 1\r\nC\r\nC     THE NUMBER MUST FIRST BE MULTIPLIED BY SOME POWER OF TEN (EXP)\r\nC     SUCH THAT THE PRODUCT IS BETWEEN 10**7 AND 10**8 SO THAT IT\r\nC     CAN BE EXPRESSED AS AN 8-SIGNIFICANT DIGIT INTEGER.\r\nC\r\n  100 Z = 10.D0**IABS(EXP)\r\n      IF (EXP .LT. 0) A = VAL/Z\r\n      IF (EXP .GE. 0) A = VAL*Z\r\n      IF (A .GE. TENM2) GO TO 105\r\nC\r\nC     A .LT. 10**-2\r\nC\r\n      EXP = EXP + 10\r\n      GO TO 100\r\nC\r\n  105 IF (A.GE.TEN7 .AND. A.LT.TEN8) GO TO 115\r\n      IF (A .LT. TEN7) GO TO 110\r\nC\r\nC     A .GE. 10**8\r\nC\r\n      EXP = EXP - 10\r\n      GO TO 100\r\nC\r\nC     A .GE. 10**-2  AND  .LT. 10**7\r\nC\r\n  110 EXP = EXP + 1\r\n      GO TO 100\r\nC\r\nC     A .GE. 10**7  AND  .LT. 10**8  (SEPARATE THE 8 SIGNIFICANT DIGITS)\r\nC\r\n  115 NUM = A\r\n      EXP = -EXP + 7\r\n      DO 116 I = 1,8\r\n      J   = NUM/10**(8-I)\r\n      D(I)= J + 1\r\n      NUM = NUM - J*10**(8-I)\r\n  116 CONTINUE\r\n      IF (EXPFLD .NE. 0) GO TO 130\r\n      IF (EXP.GE.-4 .AND. EXP.LE.NSIG+2) GO TO 135\r\nC\r\nC     USE STANDARD FORMAT (-X.XXX-XX)\r\nC\r\n      NSIG = MIN0(NSIG,8)\r\n      ASSIGN 120 TO TRA\r\n      GO TO 180\r\n  120 N = 0\r\n      IF (V .GT. 0.) GO TO 121\r\n      C(1) = MINUS\r\n      N = 1\r\n  121 C(N+1) = D(1)\r\n      C(N+2) = DECPNT\r\n      N = N + 2\r\n      IF (NSIG .EQ. 1) GO TO 124\r\n      DO 123 I = 2,NSIG\r\n      N = N + 1\r\n      C(N) = D(I)\r\n  123 CONTINUE\r\n  124 IF (EXP .GE. 0) C(N+1) = PLUS\r\n      IF (EXP .LT. 0) C(N+1) = MINUS\r\n      N = N + 1\r\n      NUM = IABS(EXP)\r\n      DO 125 I = 1,2\r\n      J = NUM/10**(2-I)\r\n      N = FW - (2-I)\r\n      C(N) = J + 1\r\n      NUM = NUM - J*10**(2-I)\r\n  125 CONTINUE\r\n      GO TO 150\r\nC\r\nC     STANDARD FORMAT CANNOT BE USED.\r\nC\r\n  130 IF (EXP.LT.NSIG .AND. EXP.GE.-NSIG) GO TO 136\r\n      DO 131 I = 1,FW\r\n      C(I) = ASTER\r\n  131 CONTINUE\r\n      GO TO 150\r\nC\r\nC     THE NUMBER CAN BE EXPRESSED WITHOUT AN EXPONENT.\r\nC\r\n  135 NSIG = MIN0(8,NSIG+3)\r\n  136 ASSIGN 137 TO TRA\r\n      GO TO 180\r\n  137 N = 1\r\n      IF (V .GT. 0.) GO TO 138\r\n      C(1) = MINUS\r\n      N = 2\r\n  138 IF (EXP .GE. 0) GO TO 144\r\nC\r\nC     NEGATIVE EXPONENT\r\nC\r\n      J = NSIG\r\n  141 D(J+1) = D(J)\r\n      J = J - 1\r\n      IF (J .NE. 0) GO TO 141\r\n      D(1) = 1\r\n      ASSIGN 142 TO TRA\r\n      IF (NSIG+N .GE. FW) GO TO 180\r\n      NSIG = NSIG + 1\r\n  142 C(N+0) = D(1)\r\n      C(N+1) = DECPNT\r\n      N = N + 1 + IABS(EXP)\r\n      DO 143 I = 2,NSIG\r\n      C(N) = D(I)\r\n      N = N + 1\r\n  143 CONTINUE\r\n      GO TO 150\r\nC\r\nC     POSITIVE EXPONENT.\r\nC\r\n  144 ASSIGN 145 TO TRA\r\n      IF (NSIG+N .GE. FW) GO TO 180\r\n  145 J = EXP + 1\r\n      DO 146 I = 1,J\r\n      C(N) = D(I)\r\n      N = N + 1\r\n  146 CONTINUE\r\n      C(N) = DECPNT\r\n      J = J + 1\r\n      IF (J .GT. NSIG) GO TO 150\r\n      DO 147 I = J,NSIG\r\n      N = N + 1\r\n      C(N) = D(I)\r\n  147 CONTINUE\r\nC\r\n  150 XX = X\r\n      YY = Y\r\n      IF (FIELD.GT.0 .AND. NSIG.GT.1) GO TO 155\r\nC\r\nC     THE TYPED NUMBER IS NOT TO BE CENTERED AT (X,Y).\r\nC\r\n      DIR = XYD\r\n      GO TO 160\r\nC\r\nC     THE TYPED NUMBER IS TO BE CENTERED AT (X,Y).\r\nC\r\n  155 XY = FW/2\r\n      IF (FW/2 .EQ. (FW+1)/2) XY = XY - .5\r\n      DIR = MAX0(1,IABS(XYD))\r\n      IF (DIR .EQ. 1) XX = X - XY*CNTX\r\n      IF (DIR .EQ. 2) YY = Y - XY*CNTY\r\nC\r\nC     TYPE THE NUMBER.\r\nC\r\n  160 CALL TYPE10 (XX,YY,DIR,C,FW,0)\r\n      GO TO 200\r\nC\r\nC     ROUND THE NUMBER.\r\nC\r\n  180 IF (NSIG .EQ. 8) GO TO 190\r\n      IF (D(NSIG+1) .LE. 5) GO TO 190\r\n      J = NSIG\r\n  181 D(J) = D(J) + 1\r\n      IF (D(J) .LE. 10) GO TO 190\r\n      D(J) = 1\r\n      J = J - 1\r\n      IF (J .NE. 0) GO TO 181\r\n      IF (D(1) .NE. 1) GO TO 190\r\n      J = NSIG - 1\r\n  182 IF (J .EQ. 0) GO TO 183\r\n      D(J+1) = D(J)\r\n      J = J - 1\r\n      GO TO 182\r\n  183 D(1) = 2\r\n      EXP = EXP + 1\r\n  190 GO TO TRA, (120,137,142,145)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/typint.f",
    "content": "      SUBROUTINE TYPINT (X,Y,XYD,NUM,FIELD,OPT)\r\nC\r\nC     (X,Y) = STARTING OR ENDING POINT OF THE NUMBER TO BE TYPED (ALWAYS\r\nC             LEFT-TO-RIGHT OR TOP-TO-BOTTOM).\r\nC     XYD   = NO ACTION IF OPT IS ZERO\r\nC           = (+/-)1 IF X = STARTING OR ENDING POINT OF THE NUMBER.\r\nC           = (+/-)2 IF Y = STARTING OR ENDING POINT OF THE NUMBER.\r\nC     NUM   = INTEGER NUMBER TO BE TYPED (AT MOST 10 DIGITS).\r\nC     FIELD = NO ACTION IF OPT IS ZERO\r\nC           = 1 IF THE NUMBER IS TO BE CENTERED AT (X,Y). IF XYD=1 OR 2,\r\nC             THE NUMBER WILL BE TYPED IN THE X OR Y DIRECTION.\r\nC           = 0 OR -1 IF THE NUMBER IS TO BE TYPED STARTING OR ENDING AT\r\nC             (X,Y). IF FIELD = -1, FIELD WILL BE SET TO THE NUMBER OF\r\nC             DIGITS PRINTED.\r\nC     OPT   =-1 TO INITIATE  THE TYPING MODE.\r\nC           =+1 TO TERMINATE THE TYPING MODE.\r\nC           = 0 TO TYPE A LINE.\r\nC\r\n      INTEGER         XYD,FIELD,OPT,PLOTER,ASTER,DIR,D(11)\r\n      COMMON /PLTDAT/ MODEL,PLOTER,SKPPLT(18),SKPA(3),CNTX,CNTY\r\n      DATA    ASTER , MINUS / 41,40 /\r\nC\r\n      IF (OPT .EQ. 0) GO TO 100\r\n      CALL TIPE (0,0,0,0,0,OPT)\r\n      GO TO 200\r\nC\r\nC     SEPARATE THE DIGITS OF THE NUMBER (MAXIMUM OF 10).\r\nC\r\n  100 ND = -1\r\n      IF (NUM .GE. 0) GO TO 110\r\n      ND = 0\r\n      D(1) = MINUS\r\n  110 N = IABS(NUM)\r\n      DO 111 I = 1,10\r\n      J = N/10**(10-I)\r\n      IF (J.EQ.0 .AND. ND.LE.0) GO TO 111\r\n      IF (J  .GT. 9) J  = ASTER - 1\r\n      IF (ND .LE. 0) ND = ND + 1\r\n      ND = ND + 1\r\n      D(ND) = J + 1\r\n      N = N - J*10**(10-I)\r\n  111 CONTINUE\r\n      IF (ND .GT. 0) GO TO 112\r\n      ND   = 1\r\n      D(1) = 1\r\nC\r\n  112 XX = X\r\n      YY = Y\r\n      IF (FIELD.GT.0 .AND. ND.GT.1) GO TO 120\r\nC\r\nC     THE TYPED NUMBER IS NOT TO BE CENTERED AT (X,Y).\r\nC\r\n      DIR = XYD\r\n      IF (FIELD .LT. 0) FIELD = ND\r\n      GO TO 150\r\nC\r\nC     THE TYPED NUMBER MUST BE CENTERED AT (X,Y).\r\nC\r\n  120 XY = ND/2\r\n      IF (ND/2 .EQ. (ND+1)/2) XY = XY - .5\r\n      DIR = MAX0(IABS(XYD),1)\r\n      IF (DIR.EQ.1) XX = X - XY*CNTX\r\n      IF (DIR.EQ.2) YY = Y - XY*CNTY\r\nC\r\nC     TYPE THE NUMBER.\r\nC\r\n  150 CALL TYPE10 (XX,YY,DIR,D,ND,0)\r\n      GO TO 200\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/umfzdd.f",
    "content": "      SUBROUTINE UMFZDD\r\nC\r\nC     SUBROUTINE TO INITIALIZE COMMON /UMFZZZ/ USED BY UMFEDT.\r\nC\r\n      INTEGER KT,TID1,TID2,PID1,NO,LL\r\n      LOGICAL AGAIN,T1,T2,END1\r\n      COMMON   /UMFZZZ/ AGAIN,T1,T2,KT,TID1,TID2,PID1,END1,NO,LL\r\nC\r\n      AGAIN = .FALSE.\r\n      T1    = .FALSE.\r\n      T2    = .FALSE.\r\n      KT = 0\r\n      TID1 = -1\r\n      TID2 = -1\r\n      PID1 = -1\r\n      END1  = .FALSE.\r\n      NO = 0\r\n      LL = 0\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/unpscr.f",
    "content": "      SUBROUTINE UNPSCR (IN,OUT,Z,BUF1,BUF2,MAXZ,TYSIGN,FLAG)\r\nC\r\nC     THIS ROUTINE UNPACKS A MATRIX (IN), AND TRANSFER THE DATA FROM\r\nC     FIRST TO LAST NON-ZERO TERMS TO A SCRATCH FILE (OUT) IN VERY LARGE\r\nC     RECORD(S), PRECEEDED BY THE FIRST AND LAST NON-ZERO TERM POINTERS.\r\nC\r\nC     INPPUT  - IN, + 7 TRAILER WORDS (WORDS 4,5,6, AND 7 WILL BE\r\nC               OVERWRITTEN)\r\nC               Z, BUF1, BUF2, MAXZ, TYSIGN, AND FLAG\r\nC     OUTPUT  - OUT, NO TRAILER WORD WRITTEN\r\nC               IN(4) = 10*(NO. OF RECONDS WRITTEN, HEADER RECORD\r\nC                       EXCLUDED) + FLAG\r\nC               IN(5) = DATA WORD TYPE UNPACKED (= 1,2,OR 4)\r\nC               IN(6) = TOTAL NO. OF S.P. WORDS USED FOR INPUT MATRIX\r\nC                       IN FORWARD UNPACK PASS\r\nC               IN(7) = OUTPUT GINO NUMBER\r\nC\r\nC     FLAG = 1, THE MATRIX IS UNPACKED ONCE, IN FORWARD DIRECTION, THIS\r\nC               MATRIX CAN BE IN GENERAL FORM; NEEDS NOT BE TRIANGULAR.\r\nC     FLAG = 2, THE MATRIX IS UNPACKED FORWARD AND BACKWARD\r\nC     FLAG = 3, THE MATRIX IS ADVANCED TO THE END AND UNPACKED BACKWARD\r\nC               ONCE AND THEN FORWARD\r\nC     MAXZ = n, WHERE n IS THE UPER LIMIT OF THE RECORD SIZE TO BE\r\nC               WRITTEN (5000 MINIMUM).\r\nC          = 0  OR LESS, OUTPUT WILL BE WRITTEN OUT IN EITHER ONE OR TWO\r\nC               LONG RECORDS (ONE EACH FOR FORWARD AND BACKWARD UNPACK)\r\nC     Z    =    WORKING SPACE, MINIMUM SIZE = ROW + 2 WORDS\r\nC     TYSIGN =  (-4,-3,...,+4), IS TYPE AND SIGN FOR INPUT MATRIX UNPACK\r\nC               NO TYPE AND SIGN CHANGE IF TYSIGN = 0.\r\nC     BUF1, BUF2 = TWO GINO BUFFERS\r\nC     SUBROUTINE DEBUG CAN BE ACTIVATED BY DIAG 11 OR 16\r\nC\r\nC     ASSUME MATRIX IN(5x5) =  a  0  0  0  0\r\nC                              b  e  0  0  0\r\nC                              c  f  g  0  0\r\nC                              d  0  h  j  0\r\nC                              0  0  i  k  l\r\nC\r\nC     OUTPUT FILE OUT WILL HAVE THE FOLLOWING DATA (PRECEEDED BY HEADER\r\nC     RECORD)\r\nC\r\nC     FLAG 1 -  1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l <EOF>\r\nC     FLAG 2 -  1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l <EOR>\r\nC               5 5 l 4 5 j k 3 5 g h i 2 4 e f 1 4 a b d c <EOF>\r\nC     FLAG 3 -  5 5 l 4 5 j k 3 5 g h i 2 3 e f 1 4 a b c d <EOR>\r\nC               1 4 a b c d 2 3 e f 3 5 g h i 4 5 j k 5 5 l <EOF>\r\nC\r\nC     WHERE a thru l MAY BE SP, DP, CSP, OR CDP DATA\r\nC\r\nC     IF INPUT MATRIX IS VERY LARGE, THERE WILL BE SEVERAL LONG RECORDS\r\nC     FOR EACH UNPACK PASS, AND EACH RECORD WILL NOT EXCEED MAXZ IN\r\nC     LENGTH. MINIMUM OF MAXZ IS 5000. IF MAXZ IS NOT GIVEN, EACH UNPACK\r\nC     PASS WILL GO TO ONE VERY VERY LONG RECORD. IN THIS CASE, MAXZ IS\r\nC     SET TO 2**31\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO AVOID UNPACKING A MATRIX TOO\r\nC     MANY TIMES, WHILE THE MATRIX IS BEING USED REPEATEDLY.\r\nC     SEE FBSII (REPEATEDLY CALLED BY FBS), FRBK2 (REPEATEDLY CALLED\r\nC     BY FNXTVC), AND FRMLTD (REPEATED CALLED BY FRBK2 AND FNXTVC) IN\r\nC     USING THIS NEW DATA FORMAT.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   11/1991\r\nC\r\nC     COMMENTS FROM G.C.  3/93\r\nC     THE PRESENT UNPSCR ASSUMES THE MATRIX IS QUIT DENSE, SUCH AS THE\r\nC     LOWER OR UPPER TRIANGULAR FACTORS. IF MATRIX IS SPARSE, SAY 33\r\nC     PERCENT OF LESS, WE COULD WRITE THE MATRIX OUT ANOTHER WAY AND\r\nC     SAVE LOTS OF DISC SPACE. WE COULD WRITE THE FIRST TO LAST NON-ZERO\r\nC     TERMS IN STRING FORMS SIMILAR TO OUTPUT4 MODULE. THIS IMPROVEMENT\r\nC     WILL BE LEFT FOR NEXT PROJECT.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         FLAG23,DEBUG\r\n      INTEGER         IN(7),Z(3),NAM(2),TYIIJJ(4),SAVE(4)\r\n      CHARACTER*8     FBWD,FORWD,BACKWD\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ SYSBUF,NOUT\r\n      COMMON /UNPAKX/ TYPE,II,JJ,INCR\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW\r\n      COMMON /TYPE  / RC(2),WORDS(4)\r\n      EQUIVALENCE     (TYPE,TYIIJJ(1))\r\n      DATA    FORWD , BACKWD / 'FORWARD','BACKWARD'/\r\n      DATA    NAM   / 4HUNPS , 2HCR  /\r\nC\r\n      IF (FLAG.LT.1 .OR. FLAG.GT.3 .OR. IN(1).EQ.OUT) GO TO 300\r\n      CALL SSWTCH (11,I)\r\n      CALL SSWTCH (16,J)\r\n      DEBUG = .FALSE.\r\n      IF (I+J .GE. 1) DEBUG = .TRUE.\r\n      MAX = MAXZ\r\n      IF (MAX .LE. 0) MAX = 1073741824\r\n      IF (DEBUG) WRITE (NOUT,5) UIM\r\n    5 FORMAT (A29,', UNPSCR DEBUG, ACTIVATED BY DIAG 11 AND/OR 16')\r\n      IF (MAX .LT. 5000) GO TO 280\r\n      FLAG23 = FLAG.EQ.2 .OR. FLAG.EQ.3\r\n      DO 10 I = 1,4\r\n   10 SAVE(I) = TYIIJJ(I)\r\n      TYPE = IN(5)\r\n      NL   = IN(2)\r\n      IF (TYSIGN.NE.0 .AND. IABS(TYSIGN).LE.4) TYPE = TYSIGN\r\n      NWDS = WORDS(IABS(TYPE))\r\n      IF (DEBUG) WRITE (NOUT,15) IN(1),OUT,MAXZ,MAX,FLAG,NL,TYPE,NWDS\r\n   15 FORMAT (5X,'UNPSCR/@15  IN,OUT,MAXZ,MAX,FLAG,NL,TYPE,NWDS = ',\r\n     1        2I5,2I12,I4,I7,2I4)\r\n      INCR = 1\r\n      FORM = IN(4)\r\n      IF (FLAG23 .AND. FORM.NE.4 .AND. FORM.NE.5) GO TO 260\r\nC                          LOWER  AND      UPPER  TRIANGULAR FACTORS\r\nC\r\n      FILE = OUT\r\n      CALL GOPEN (OUT,Z(BUF2),WRTREW)\r\n      FILE = IN(1)\r\n      CALL OPEN (*200,IN,Z(BUF1),RDREW)\r\n      NREC = 0\r\n      IF (FLAG .EQ. 3) GO TO 90\r\n   20 CALL FWDREC (*210,IN)\r\nC\r\nC     UNPACK FORWARD\r\nC\r\n      FBWD = FORWD\r\n      TOT  = 0\r\n      SUM  = 0\r\n      DO 80 I = 1,NL\r\n      II   = 0\r\n      CALL UNPACK (*60,IN,Z(3))\r\n      IF (FLAG23 .AND. II.NE.I) GO TO 220\r\n   30 Z(1) = II\r\n      Z(2) = JJ\r\n      LL   = (JJ-II+1)*NWDS + 2\r\n      TOT  = TOT + LL\r\n      SUM  = SUM + LL\r\n      IF (SUM .LE. MAX) GO TO 50\r\n      NREC = NREC + 1\r\n      CALL WRITE (OUT,0,0,1)\r\n      SUM  = SUM - LL\r\n      IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD\r\n   40 FORMAT (5X,'UNPSCR WROTE RECORD',I5,',  NO. OF WORDS =',I9,2X,A8)\r\n      SUM  = LL\r\n   50 CALL WRITE (OUT,Z(1),LL,0)\r\n      GO TO 80\r\n   60 IF (FLAG23) GO TO 240\r\n      II   = I\r\n      JJ   = I\r\n      DO 70 K = 3,6\r\n   70 Z(K) = 0\r\n      GO TO 30\r\n   80 CONTINUE\r\n      NREC = NREC + 1\r\n      CALL WRITE (OUT,0,0,1)\r\n      IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD\r\n      IF (FLAG .NE. 2) GO TO 150\r\n      CALL BCKREC (IN)\r\n      GO TO 100\r\nC\r\n   90 CALL SKPREC (IN,NL)\r\nC\r\nC     UNPACK BACKWARD\r\nC\r\n  100 FBWD = BACKWD\r\n      SUM  = 0\r\n      I    = NL\r\n      DO 120 J = 1,NL\r\n      II   = 0\r\n      CALL UNPACK (*240,IN,Z(3))\r\n      IF (II .NE. I) GO TO 220\r\n      Z(1) = II\r\n      Z(2) = JJ\r\n      LL   = (JJ-II+1)*NWDS + 2\r\n      SUM  = SUM + LL\r\n      IF (SUM .LE. MAX) GO TO 110\r\n      NREC = NREC + 1\r\n      CALL WRITE (OUT,0,0,1)\r\n      SUM  = SUM - LL\r\n      IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD\r\n      SUM  = LL\r\n  110 CALL WRITE (OUT,Z(1),LL,0)\r\n      CALL BCKREC (IN)\r\n      CALL BCKREC (IN)\r\n  120 I    = I - 1\r\n      NREC = NREC + 1\r\n      CALL WRITE (OUT,0,0,1)\r\n      IF (DEBUG) WRITE (NOUT,40) NREC,SUM,FBWD\r\n      IF (FLAG .EQ. 3) GO TO 20\r\nC\r\nC     END OF UNPACKING\r\nC\r\nC     CHANGE LAST 4 WORDS OF THE INPUT MATRIX TRAILER. PARTICULARY, SET\r\nC     THE 7TH WORD TO NEGATIVE. NOTE, IF FLAG IS 2 OR 3, IN(4) AND IN(6)\r\nC     TRAILER WORDS HOLD HALF OF THE ACTUAL VALUES.\r\nC     NOTE - SINCE WRTTRL IS NOT CALLED TO REGISTER THESE TRAILER WORD\r\nC     CHANGES, THE TRAILER WORDS ARE INTENDED FOR THE ROUTINE TO BE\r\nC     EXECUTE NEXT.  ALSO NOTE THAT OUTPUT FILE HAS NO TRAILER.\r\nC     LASTLY, WE NEED TO RESTORE ORIGINAL WORDS IN /UNPAKX/ PREVIOUSLY\r\nC     SAVED.\r\nC\r\n  150 CALL CLOSE (IN, REW)\r\n      CALL CLOSE (OUT,REW)\r\n      IN(7) =-OUT\r\n      IN(6) = TOT\r\n      IN(5) = NWDS\r\n      I     = NREC\r\n      IF (.NOT.FLAG23) GO TO 160\r\n      I     = NREC/2\r\n      TOT   = TOT*2\r\n  160 IN(4) = 10*I + FLAG\r\n      DO 170 I = 1,4\r\n  170 TYIIJJ(I) = SAVE(I)\r\n      IF (.NOT.DEBUG) GO TO 350\r\n      WRITE  (NOUT,180) UIM,TOT,NREC,NL,IN(3)\r\n  180 FORMAT (A29,1H,,I10,' S.P. WORDS MOVED TO SCRATCH FILE BY UNPSCR',\r\n     1        /5X,'IN',I5,' RECORDS.', 5X,'INPUT MATRIX =',I8,3H BY,I7)\r\n      GO TO 350\r\nC\r\n  200 J = -1\r\n      GO TO 330\r\n  210 J = -2\r\n      GO TO 330\r\n  220 WRITE  (NOUT,230) SFM,I,II,JJ,FBWD,FLAG\r\n  230 FORMAT (A25,',  I & II MISMATCH ',3I6,3H  /,A8,I9)\r\n      GO TO 320\r\n  240 WRITE  (NOUT,250) I,FBWD,FLAG\r\n  250 FORMAT ('0*** NULL COLUMN ENCOUNTERED IN TRIANGULAR FACTOR.  ',\r\n     1        'COLUMN',I7,3X,A8,I9)\r\n      GO TO 320\r\n  260 CALL FNAME (IN(1),IN(2))\r\n      WRITE  (NOUT,270) IN(2),IN(3),FORM,FLAG\r\n  270 FORMAT ('0*** INPUT MATRTIX ',2A4,' IS NOT A TRIANGULAR FACTOR.',\r\n     1        '   FORM,FLAG =',2I4)\r\n      CALL ERRTRC ('UNPSCR  ',270)\r\n  280 WRITE  (NOUT,290) MAXZ\r\n  290 FORMAT ('0*** MAXZ ERROR ',I9,'  (TOO SMALL)')\r\n      CALL ERRTRC ('UNPSCR  ',290)\r\n      GO TO 320\r\n  300 WRITE  (NOUT,310) SFM,FLAG,IN(1),OUT\r\n  310 FORMAT (A25,',  FLAG,IN(1),OUT =',3I5)\r\n  320 J = -37\r\n  330 CALL MESAGE (J,FILE,NAM)\r\nC\r\n  350 IF (DEBUG) WRITE (NOUT,360)\r\n  360 FORMAT (' ... UNPSCR DEBUG ENDS',/)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/upart.f",
    "content": "      SUBROUTINE UPART (USET,SCR1,MAJOR,SUB0,SUB1)\r\nC\r\nC     UPART ALONG WITH MPART WILL PERFORM A SYMMETRIC PARTITION OF A\r\nC     MATRIX\r\nC\r\n      INTEGER         USET,SCR1,MAJOR,SUB0,SUB1,RULE,PVECT,USET1\r\nC\r\n      COMMON /PARMEG/ IA(7),IA11(7),IA12(7),IA21(7),IA22(7),LCORE,RULE\r\n      COMMON /PATX  / LC,N1,N2,N3,USET1,PVECT(7)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\nC\r\nC\r\n      USET1 = USET\r\nC\r\nC     TRANSFER OF PVECT TRAILER AS LOADED BY CALCV IS NOW BY /PATX/\r\nC\r\n      RULE  = 0\r\n      LC    = KORSZ(CORE)\r\n      LCORE = LC\r\n      CALL CALCV (SCR1,MAJOR,SUB0,SUB1,CORE)\r\n      N4 = N2 + N3\r\n      IA11(2) = N1\r\n      IA11(3) = N1\r\n      IA21(2) = N4\r\n      IA21(3) = N1\r\n      IA21(4) = 2\r\n      IA12(2) = N1\r\n      IA12(3) = N4\r\n      IA12(4) = 2\r\n      IA22(2) = N4\r\n      IA22(3) = N4\r\n   10 RETURN\r\nC\r\nC\r\n      ENTRY MPART (IA1,IA111,IA121,IA211,IA221)\r\nC     =========================================\r\nC\r\n      IA(1) = IA1\r\n      CALL RDTRL (IA)\r\n      IF (IA(1)) 10,20,20\r\n   20 IA11(1) = IA111\r\n      IA12(1) = IA121\r\n      IA21(1) = IA211\r\n      IA22(1) = IA221\r\n      IA11(4) = IA(4)\r\n      IA11(5) = IA(5)\r\n      IA21(5) = IA(5)\r\n      IA12(5) = IA(5)\r\n      IA22(4) = IA(4)\r\n      IA22(5) = IA(5)\r\n      CALL PARTN (PVECT,PVECT,CORE)\r\n      DO 40 I = 1,4\r\n      J = (I-1)*7 + 1\r\n      IF (IA11(J)) 30,40,30\r\n   30 CALL WRTTRL (IA11(J))\r\n   40 CONTINUE\r\n      GO TO 10\r\n      END\r\n"
  },
  {
    "path": "mis/upcase.f",
    "content": "      SUBROUTINE UPCASE (BYTE,N)\r\nC\r\nC     THIS ROUTINE CHANGES ALL LOWER CASE CHARACTERS INTO UPPER CASE.\r\nC     IT ALSO CONVERTS BCD INPUT CODE TO EBCDIC FOR IBM MACHINE\r\nC\r\n      LOGICAL         FLAG\r\n      INTEGER         TAB(20),   FFFLAG\r\n      CHARACTER*1     BYTE(1),  BK1,      LA,       LZ,       IL,\r\n     1                IC,       IP,       LC(256)\r\n      CHARACTER*56    KC(5)\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /UPCASX/ FLAG,     ID,       IA,       IZ\r\n      COMMON /XECHOX/ FFFLAG\r\n      EQUIVALENCE     (KC(1),LC(1))\r\nC\r\nC                     TAB = UPPER CASE 'A' TO LOWER CASE 'a' SPAN\r\nC\r\n      DATA            TAB / +32, -64, +32, +3968, +32, +32, +32, +32 ,\r\n     1                      +32, +32, +32, +32,   +32, +32, +32, +32 ,\r\n     2                      +32, +32, +32, +32     /\r\n      DATA            BK1,      LA,       LZ,       IL,       IC     /\r\n     1                ' ',      'A',      'Z',      '(',      ','    /\r\n      DATA            IP /      '%'       /\r\nC\r\nC     TAB IS DECIMAL VALUE BETWEEN UPPER CASE 'A' AND LOWER CASE 'a'\r\nC     TAB IS POSITIVE IF LOWER CASE 'a' COMES AFTER UPPER CASE 'A' IN\r\nC     MACHINE ASCII CHARACTER SET; OTHERWISE TAB IS NEGATIVE.\r\nC\r\nC     THE FOLLOWING KC TABLE MUST BE PUNCHED IN EBCDIC CODE (FOR IBM\r\nC     ONLY)                          =======    ===========\r\nC\r\n      DATA            KC /\r\n     1   '                                                        ',\r\n     2   '                   .)(+ +          $*)  -/         ,(%  ',\r\n     3 '           =''''=  ABCDEFGHI       JKLMNOPQR        STUVWX',\r\n     4   'YZ                       ABCDEFGHI       JKLMNOPQR      ',\r\n     5   '  STUVWXYZ      0123456789      WRITTEN BY G.CHAN/UNISYS'/\r\nC\r\n      IF (MACHX .EQ. 2) GO TO 30\r\n      IF (FLAG) GO TO 10\r\n      FLAG =.TRUE.\r\n      ID = TAB(MACHX)\r\n      IA = ICHAR(LA) + ID\r\n      IZ = ICHAR(LZ) + ID\r\nC\r\n 10   DO 20 I = 1,N\r\n      IF (BYTE(I) .EQ. BK1) GO TO 20\r\n      J = ICHAR(BYTE(I))\r\n      IF (J.LT.IA .OR. J.GT.IZ) GO TO 20\r\n      BYTE(I) = CHAR(J-ID)\r\n 20   CONTINUE\r\n      RETURN\r\nC\r\nC     IBM MACHINE ONLY, WHICH USES EBCDIC CODE\r\nC\r\n 30   DO 40 I = 1,N\r\n      J = ICHAR(BYTE(I))\r\n 40   BYTE(I) = LC(J+1)\r\nC\r\nC     THE % SIGN MAY BE CHANGED TO ( IN BCD-EBCDIC CONVERSION,\r\nC     CHANGE IT BACK TO %\r\nC\r\n      IF (FFFLAG.NE.1234 .OR. N.LT.5) RETURN\r\n      DO 50 I = 5,N\r\n      IF (BYTE(I).EQ.IL .AND. BYTE(I+1).EQ.IL .AND. (BYTE(I-1).EQ.IC\r\n     1   .OR. BYTE(I-1).EQ.BK1)) BYTE(I) = IP\r\n 50   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/usrmsg.f",
    "content": "      SUBROUTINE USRMSG (I)\r\nC\r\nC     USRMSG WILL PRINT THE INDICATED USER LEVEL ERROR MESSAGE\r\nC\r\n      INTEGER         A,B,C,D,E,F,UO,UM,US,UR,UL,L,P1,P2,OUTTAP,BLANK,\r\n     1                BCD(5)\r\n      DIMENSION       ITYPE(6),LIST(10),ICRIGD(4),NAME(2)\r\n      CHARACTER       QUAD4*6,TRIA3*6,INTER*8,EXTER*8,EXIN*8\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /SYSTEM/ SYSBUF,OUTTAP\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /MSGX  / N,M,MSG(4,1)\r\n      DATA    BLANK / 3H   /, LIMIT / 234  /, I2015 / 0       /\r\n      DATA    BCD   / 4H  UM, 4H  US, 4H  UO, 4HUAUR, 4HUAUL        /\r\n      DATA    ITYPE / 4HDARE, 4HA   , 4HDELA, 4HY   , 4HDPHA, 4HSE  /\r\n      DATA    ICRIGD/ 1H1   , 1H2   , 1H3   , 1HR                   /\r\n      DATA    LIST  / 15, 41, 79,103, 117, 137, 199, 211, 212, 215  /\r\n      DATA    AX,RG / 2HAX,  2HRG   / , NAME  / 4HUSRM,4HSG   /\r\n      DATA    INTER / 'INTERNAL'    / , EXTER / 'EXTERNAL'    /\r\n      DATA    QUAD4 , TRIA3 / 'CQUAD4', 'CTRIA3'   /\r\nC\r\nC\r\n      L  = MSG(2,I)\r\n      P1 = MSG(3,I)\r\n      P2 = MSG(4,I)\r\n      IF (L.LE.0 .OR. L.GT.LIMIT) GO TO 9000\r\n      DO 800 J = 1,10\r\n      IF (L .EQ. LIST(J)) GO TO 810\r\n  800 CONTINUE\r\n      J = 2\r\n      IF (L .EQ. 92) J = 4\r\n      IF (L .NE. 15) GO TO 820\r\n      J = 3\r\n      IF (I2015 .GT.  4) J = 1\r\n      IF (I2015 .GE. 31) J = 0\r\n      GO TO 820\r\n  810 J = 3\r\n  820 CALL PAGE2 (J)\r\n      LOCAL = L - 120\r\n      IF (LOCAL .GT. 0) GO TO 830\r\n      GO TO (01,002,003,004,005,006,007,008,009,010,011,012,013,014,015,\r\n     1      016,017,018,019,020,021,022,023,024,025,026,027,028,029,030,\r\n     2      031,032,033,034,035,036,037,038,039,040,041,042,043,044,045,\r\n     3      046,047,048,049,050,051,052,053,054,055,056,057,058,059,060,\r\n     4      061,062,063,064,065,066,067,068,069,070,071,072,073,074,075,\r\n     5      076,077,078,079,080,081,082,083,084,085,086,087,088,089,090,\r\n     6      091,092,093,094,095,096,097,098,099,100,101,102,103,104,105,\r\n     7      106,107,108,109,110,111,112,113,114,115,116,117,118,119,120\r\n     8      ),  L\r\n  830 GO TO(121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,\r\n     9      136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,\r\n     *      151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,\r\n     A      166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,\r\n     B      181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,\r\n     C      196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,\r\n     D      211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,\r\n     E      226,227,228,229,230,231,232,233,234),  LOCAL\r\n    1 WRITE (OUTTAP,1010) UFM,P1\r\n      GO TO 5500\r\n    2 WRITE (OUTTAP,1020) SFM,P1\r\n      GO TO 5500\r\n    3 WRITE (OUTTAP,1030) UFM,P2,P1\r\n      GO TO 5500\r\n    4 WRITE (OUTTAP,1040) UFM,P2,P1\r\n      GO TO 5500\r\n    5 WRITE (OUTTAP,1050) SFM\r\n      GO TO 5500\r\n    6 WRITE (OUTTAP,1060) UFM,P1,P2\r\n      GO TO 5500\r\n    7 WRITE (OUTTAP,1070) UFM,P1,P2\r\n      GO TO 5500\r\n    8 WRITE (OUTTAP,1080) UFM,P1,P2\r\n      GO TO 5500\r\n    9 WRITE (OUTTAP,1090) UFM,P1,P2\r\n      GO TO 5500\r\n   10 WRITE (OUTTAP,1100) UFM,P1,P2\r\n      GO TO 5500\r\n   11 WRITE (OUTTAP,1110) UFM,P1,P2\r\n      GO TO 5500\r\n   12 WRITE (OUTTAP,1120) UFM,P1\r\n      GO TO 5500\r\n   13 WRITE (OUTTAP,1130) UWM\r\n      GO TO 5600\r\n   14 WRITE (OUTTAP,1140) UFM\r\n      GO TO 5500\r\n   15 I2015 = I2015 + 1\r\n      IF (I2015 .EQ. 30) WRITE (OUTTAP,1152)\r\n      IF (I2015 .GE. 30) GO TO 5600\r\n      IF (I2015 .EQ.  4) WRITE (OUTTAP,1153)\r\n      EXIN = INTER\r\n      IF (P2 .NE. 0) EXIN = EXTER\r\n      IF (P2 .NE. 0) P1 = P2\r\n      IF (I2015 .LE. 3) WRITE (OUTTAP,1150) UWM,EXIN,P1\r\n      IF (I2015 .GT. 3) WRITE (OUTTAP,1151) UWM,EXIN,P1\r\n      GO TO 5600\r\n   16 WRITE (OUTTAP,1160) UFM\r\n      GO TO 5500\r\n   17 WRITE (OUTTAP,1170) UFM,P1\r\n      GO TO 5500\r\n   18 WRITE (OUTTAP,1180) UFM,P1\r\n      GO TO 5500\r\n   19 WRITE (OUTTAP,1190) UFM,P1\r\n      GO TO 5500\r\n   20 WRITE (OUTTAP,1200) UFM,P1\r\n      GO TO 5500\r\n   21 WRITE (OUTTAP,1210) UFM\r\n      GO TO 5500\r\n   22 WRITE (OUTTAP,1220) UFM\r\n      GO TO 5500\r\n   23 WRITE (OUTTAP,1230) UFM,P1\r\n      GO TO 5500\r\n   24 WRITE (OUTTAP,1240)\r\n      GO TO 5600\r\n   25 WRITE (OUTTAP,1250) UFM,P1\r\n      GO TO 5500\r\n   26 WRITE (OUTTAP,1260) UFM,P1\r\n      GO TO 5500\r\n   27 WRITE (OUTTAP,1270) UFM,P1,P2\r\n      GO TO 5500\r\n   28 WRITE (OUTTAP,1280) UFM,P1\r\n      GO TO 5500\r\n   29 WRITE (OUTTAP,1290) UFM,P1\r\n      GO TO 5500\r\n   30 WRITE (OUTTAP,1300) UFM\r\n      GO TO 5500\r\n   31 WRITE (OUTTAP,1310) UFM,P1\r\n      GO TO 5500\r\n   32 WRITE (OUTTAP,1320) UFM,P1\r\n      GO TO 5500\r\n   33 WRITE (OUTTAP,1330) UFM,P1\r\n      GO TO 5500\r\n   34 WRITE (OUTTAP,1340) SFM,P1\r\n      GO TO 5500\r\n   35 WRITE (OUTTAP,1350) UFM,P1\r\n      GO TO 5500\r\n   36 WRITE (OUTTAP,1360) UFM,P1\r\n      GO TO 5500\r\n   37 WRITE (OUTTAP,1370) UFM,P1\r\n      GO TO 5500\r\n   38 WRITE (OUTTAP,1380) SFM,P1\r\n      GO TO 5500\r\n   39 WRITE (OUTTAP,1390) UFM,P2,P1\r\n      GO TO 5500\r\n   40 WRITE (OUTTAP,1400) UFM,P1\r\n      GO TO 5500\r\n   41 WRITE (OUTTAP,1410) UFM,P1\r\n      GO TO 5500\r\n   42 WRITE (OUTTAP,1420) UFM,P2,P1\r\n      GO TO 5500\r\n   43 WRITE (OUTTAP,1430) UFM,P1\r\n      GO TO 5500\r\n   44 WRITE (OUTTAP,1440) UFM,P1\r\n      GO TO 5500\r\n   45 WRITE (OUTTAP,1450) UFM,P1\r\n      GO TO 5500\r\n   46 WRITE (OUTTAP,1460) UFM,P1\r\n      GO TO 5500\r\n   47 WRITE (OUTTAP,1470) UFM,P1\r\n      GO TO 5500\r\n   48 WRITE (OUTTAP,1480) UFM,P1,P2\r\n      GO TO 5500\r\n   49 WRITE (OUTTAP,1490) UFM,P1\r\n      GO TO 5500\r\n   50 WRITE (OUTTAP,1500) UFM,P1\r\n      GO TO 5500\r\n   51 WRITE (OUTTAP,1510) UFM,P1,P2\r\n      GO TO 5500\r\n   52 WRITE (OUTTAP,1520) UFM,P1,P2\r\n      GO TO 5500\r\n   53 WRITE (OUTTAP,1530) UFM,P1\r\n      GO TO 5500\r\n   54 WRITE (OUTTAP,1540) UFM,P1,P2\r\n      GO TO 5500\r\n   55 WRITE (OUTTAP,1550) SFM\r\n      GO TO 5500\r\n   56 WRITE (OUTTAP,1560) UFM,P1\r\n      GO TO 5500\r\n   57 WRITE (OUTTAP,1570) UFM,P1\r\n      GO TO 5500\r\n   58 WRITE (OUTTAP,1580) UWM,P1\r\n      GO TO 5600\r\n   59 WRITE (OUTTAP,1590) UFM,P2,P1\r\n      GO TO 5500\r\n   60 WRITE (OUTTAP,1600) UFM,P2,P1\r\n      GO TO 5500\r\n   61 WRITE (OUTTAP,1610) UFM,P2,P1\r\n      GO TO 5500\r\n   62 WRITE (OUTTAP,1620) UFM,P2,P1\r\n      GO TO 5500\r\n   63 WRITE (OUTTAP,1630) UFM\r\n      GO TO 5500\r\n   64 WRITE (OUTTAP,1640) UFM,P1\r\n      GO TO 5500\r\n   65 WRITE (OUTTAP,1650) UFM,P1\r\n      GO TO 5500\r\n   66 WRITE (OUTTAP,1660) UFM,P1\r\n      GO TO 5500\r\nC*****\r\nC     DETERMINE NONLINEAR LOAD TYPE AND NONLINEAR LOAD SET ID\r\nC*****\r\n   67 LDTYPE = P2 / 100000000\r\n      LDSET  = P2 - 100000000*LDTYPE\r\n      WRITE (OUTTAP,1670) UFM,P1,LDTYPE,LDSET\r\n      GO TO 5500\r\n   68 WRITE (OUTTAP,1680) UFM,P1,P2\r\n      GO TO 5500\r\n   69 WRITE (OUTTAP,1690) UFM,P1,P2\r\n      GO TO 5500\r\n   70 WRITE (OUTTAP,1700) UFM,P1,P2\r\n      GO TO 5500\r\nC*****\r\nC     DETERMINE TYPE OF UNDEFINED SET (DAREA, DELAY OR DPHASE)\r\nC*****\r\n   71 INDEX = P2 / 100000000\r\n      P2    = P2 - 100000000*INDEX\r\n      INDEX = 2*INDEX - 1\r\n      WRITE (OUTTAP,1710) UFM,P1,ITYPE(INDEX),ITYPE(INDEX+1),P2\r\n      GO TO 5500\r\n   72 WRITE (OUTTAP,1720) SWM,P1,P2\r\n      GO TO 5600\r\n   73 WRITE (OUTTAP,1730) UIM,P1,P2\r\n      GO TO 5500\r\n   74 WRITE (OUTTAP,1740) UFM,P1\r\n      GO TO 5500\r\n   75 WRITE (OUTTAP,1750) UFM,P1,P2\r\n      GO TO 5500\r\n   76 WRITE (OUTTAP,1760) UWM\r\n      GO TO 5600\r\n   77 WRITE (OUTTAP,1770) UWM\r\n      GO TO 5600\r\n   78 WRITE (OUTTAP,1780) UWM\r\n      GO TO 5600\r\n   79 WRITE (OUTTAP,1790) UWM\r\n      GO TO 5600\r\n   80 WRITE (OUTTAP,1800) UWM\r\n      GO TO 5600\r\n   81 WRITE (OUTTAP,1810) UFM\r\n      GO TO 5500\r\n   82 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   83 WRITE (OUTTAP,1830) UFM\r\n      GO TO 5500\r\n   84 WRITE (OUTTAP,1840) UFM,P1\r\n      GO TO 5500\r\n   85 WRITE (OUTTAP,1850) UIM,P1,P2\r\n      GO TO 5600\r\n   86 WRITE (OUTTAP,1860) UIM,P1\r\n      GO TO 5600\r\n   87 WRITE (OUTTAP,1870) SFM\r\n      GO TO 5500\r\n   88 WRITE (OUTTAP,1880) UFM,P1\r\n      GO TO 5500\r\n   89 WRITE (OUTTAP,1890) UFM,P1\r\n      GO TO 5500\r\n   90 WRITE (OUTTAP,1900) SFM,P1\r\n      GO TO 5500\r\n   91 WRITE (OUTTAP,1910) SFM,P1\r\n      GO TO 5500\r\n   92 WRITE (OUTTAP,1920) SWM,P1,P2\r\n      GO TO 5600\r\n   93 WRITE (OUTTAP,1930) UFM,P1,P2\r\n      GO TO 5500\r\n   94 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   95 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   96 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   97 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   98 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n   99 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  100 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  101 J = P2/10\r\n      A = P2 - 10*J\r\n      K = BLANK\r\n      IF (A .NE. 0) K = A\r\n      JA = J/10\r\n      B  = J - 10*JA\r\n      UM = BLANK\r\n      IF (B .NE. 0) UM = BCD(1)\r\n      JB = JA/10\r\n      C  = JA - 10*JB\r\n      US = BLANK\r\n      IF (C .NE. 0) US = BCD(2)\r\n      JC = JB/10\r\n      D  = JB - 10*JC\r\n      UO = BLANK\r\n      IF (D .NE. 0) UO = BCD(3)\r\n      JD = JC/10\r\n      E  = JC - 10*JD\r\n      UR = BLANK\r\n      IF (E .NE. 0) UR = BCD(4)\r\n      JF = JD/10\r\n      F  = JD - 10*JF\r\n      UL = BLANK\r\n      IF (F .NE. 0) UL = BCD(5)\r\n      IF (A .EQ. 0) WRITE (OUTTAP,2011) UFM,P1,UM,US,UO,UR,UL\r\n      IF (A .NE. 0) WRITE (OUTTAP,2010) UFM,P1,K,UM,US,UO,UR,UL\r\n      GO TO 5500\r\n  102 WRITE (OUTTAP,2020) UWM,P2,P1\r\n      GO TO 5600\r\n  103 WRITE (OUTTAP,2030) SFM\r\n      GO TO 5500\r\n  104 WRITE (OUTTAP,2040) UFM,P1\r\n      GO TO 5500\r\n  105 WRITE (OUTTAP,2050) UFM,P1,P2\r\n      GO TO 5500\r\n  106 WRITE (OUTTAP,2060) UFM,P1\r\n      GO TO 5500\r\n  107 WRITE (OUTTAP,2070) UFM,P1,P2\r\n      GO TO 5500\r\n  108 WRITE (OUTTAP,2080) UFM,P1,P2\r\n      GO TO 5500\r\n  109 WRITE (OUTTAP,2090) UFM\r\n      GO TO 5500\r\n  110 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  111 WRITE (OUTTAP,2110) UWM,P1\r\n      GO TO 5600\r\n  112 WRITE (OUTTAP,2120) UFM,P1\r\n      GO TO 5500\r\n  113 WRITE (OUTTAP,2130) UFM,P1\r\n      GO TO 5500\r\n  114 WRITE (OUTTAP,2140) UFM,P1\r\n      GO TO 5500\r\n  115 WRITE (OUTTAP,2150) UFM,P1,P2\r\n      GO TO 5500\r\n  116 WRITE (OUTTAP,2160) SFM,P2,P1\r\n      GO TO 5500\r\n  117 WRITE (OUTTAP,2170) UFM,P1\r\n      GO TO 5500\r\n  118 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  119 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  120 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  121 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  122 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  123 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  124 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  125 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  126 WRITE (OUTTAP,2260) UFM,P1\r\n      GO TO 5500\r\n  127 WRITE (OUTTAP,2270) SFM,P1\r\n      GO TO 5500\r\n  128 WRITE (OUTTAP,2280) SFM,P1\r\n      GO TO 5500\r\n  129 WRITE (OUTTAP,2290) SFM,P1\r\n      GO TO 5500\r\n  130 WRITE (OUTTAP,2300) UFM\r\n      GO TO 5500\r\n  131 WRITE (OUTTAP,2131) UFM,P1\r\n      GO TO 5500\r\n  132 WRITE (OUTTAP,2132) UFM\r\n      GO TO 5500\r\n  133 WRITE (OUTTAP,2133) UFM,P1\r\n      GO TO 5500\r\n  134 WRITE (OUTTAP,2134) UFM,P1\r\n      GO TO 5500\r\n  135 WRITE (OUTTAP,2135) UFM,P1,P2\r\n      GO TO 5500\r\n  136 WRITE (OUTTAP,2136) UFM,P1\r\n      GO TO 5500\r\n  137 WRITE (OUTTAP,2137) UFM,P1,P2\r\n      GO TO 5500\r\n  138 WRITE (OUTTAP,2138) UFM,P1\r\n      GO TO 5500\r\n  139 WRITE (OUTTAP,2139) UFM,P1,P2\r\n      GO TO 5500\r\n  140 WRITE (OUTTAP,2400) UFM,P1\r\n      GO TO 5500\r\n  141 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  142 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  143 WRITE (OUTTAP,2143) UFM,P1\r\n      GO TO 5600\r\n  144 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  145 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  146 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  147 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  148 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  149 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  150 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  151 INDEX = P2 / 100000000\r\n      P2    = P2 - INDEX*100000000\r\n      WRITE (OUTTAP,2510) UFM,P1,ICRIGD(INDEX),P2\r\n      GO TO 5500\r\n  152 WRITE (OUTTAP,2520) UFM\r\n      GO TO 5500\r\n  153 WRITE (OUTTAP,2530) UFM\r\n      GO TO 5500\r\n  154 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  155 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  156 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  157 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  158 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  159 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  160 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  161 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  162 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  163 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  164 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  165 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  166 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  167 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  168 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  169 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  170 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  171 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  172 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  173 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  174 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  175 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  176 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  177 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  178 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  179 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  180 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  181 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  182 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  183 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  184 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  185 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  186 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  187 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  188 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  189 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  190 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  191 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  192 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  193 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  194 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  195 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  196 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  197 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  198 WRITE (OUTTAP,2980) UFM,P1\r\n      GO TO 5500\r\n  199 WRITE (OUTTAP,2990) SFM,P1,P2\r\n      GO TO 5500\r\n  200 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  201 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  202 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  203 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  204 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  205 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  206 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  207 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  208 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  209 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  210 WRITE (OUTTAP,5000) L,P1,P2\r\n      GO TO 5600\r\n  211 WRITE (OUTTAP,3211) UFM,P1\r\n      GO TO 5500\r\n  212 WRITE (OUTTAP,3212) UFM,P1\r\n      GO TO 5500\r\n  213 WRITE (OUTTAP,3213) UFM,P1\r\n      GO TO 5500\r\n  214 WRITE (OUTTAP,3214) UFM,P2,P2,P1\r\n      GO TO 5500\r\n  215 WRITE (OUTTAP,3215) UFM,P1,P2\r\n      GO TO 5500\r\n  216 WRITE (OUTTAP,3216) UFM,P2,P2,P1\r\n      GO TO 5500\r\n  217 WRITE (OUTTAP,3217) UFM,P1\r\n      GO TO 5500\r\n  218 WRITE (OUTTAP,3218) UFM,P2,AX,P1\r\n      GO TO 5500\r\n  219 WRITE (OUTTAP,3219) UFM\r\n      GO TO 5500\r\n  220 WRITE (OUTTAP,3220) UIM,P1,P2\r\n      GO TO 5600\r\n  221 WRITE (OUTTAP,3218) UFM,P2,RG,P1\r\n      GO TO 5500\r\n  222 WRITE (OUTTAP,3222) UWM,P1,P2\r\n      GO TO 5600\r\n  223 WRITE (OUTTAP,3223) SFM,TRIA3,P1\r\n      GO TO 5500\r\n  224 WRITE (OUTTAP,3224) UFM,TRIA3,P1\r\n      GO TO 5500\r\n  225 WRITE (OUTTAP,3225) UFM,P2,TRIA3,P1\r\n      GO TO 5500\r\n  226 WRITE (OUTTAP,3226) UFM,P2,TRIA3,P1\r\n      GO TO 5500\r\n  227 WRITE (OUTTAP,3227) UFM,P2,TRIA3,P1\r\n      GO TO 5500\r\n  228 WRITE (OUTTAP,3228) SFM,TRIA3\r\n      GO TO 5500\r\n  229 WRITE (OUTTAP,3223) SFM,QUAD4,P1\r\n      GO TO 5500\r\n  230 WRITE (OUTTAP,3224) UFM,QUAD4,P1\r\n      GO TO 5500\r\n  231 WRITE (OUTTAP,3225) UFM,P2,QUAD4,P1\r\n      GO TO 5500\r\n  232 WRITE (OUTTAP,3226) UFM,P2,QUAD4,P1\r\n      GO TO 5500\r\n  233 WRITE (OUTTAP,3227) UFM,P2,QUAD4,P1\r\n      GO TO 5500\r\n  234 WRITE (OUTTAP,3228) SFM,QUAD4\r\n      GO TO 5500\r\nC\r\nC\r\n 1010 FORMAT (A23,' 2001, SEQGP CARD REFERENCES UNDEFINED GRID POINT',\r\n     1       I9)\r\n 1020 FORMAT (A25,' 2002, GRID POINT',I9,' NOT IN EQEXIN')\r\n 1030 FORMAT (A23,' 2003, COORDINATE SYSTEM',I9,\r\n     1       ' REFERENCES UNDEFINED GRID POINT',I9)\r\n 1040 FORMAT (A23,' 2004, COORDINATE SYSTEM',I9,\r\n     1       ' REFERENCES UNDEFINED COORDINATE SYSTEM',I9)\r\n 1050 FORMAT (A25,' 2005, INCONSISTENT COORDINATE SYSTEM DEFINITION')\r\n 1060 FORMAT (A23,' 2006, INTERNAL GRID POINT',I9,\r\n     1       ' REFERENCES UNDEFINED COORDINATE SYSTEM',I9)\r\n 1070 FORMAT (A23,' 2007, ELEMENT',I12,' REFERENCES UNDEFINED GRID ',\r\n     1       'POINT',I12)\r\n 1080 FORMAT (A23,' 2008, LOAD SET',I9,\r\n     1       ' REFERENCES UNDEFINED GRID POINT',I9)\r\n 1090 FORMAT (A23,' 2009, TEMP SET',I9,' REFERENCES UNDEFINED GRID ',\r\n     1       'POINT',I9)\r\n 1100 FORMAT (A23,' 2010, ELEMENT',I9,' REFERENCES UNDEFINED PROPERTY',\r\n     1       I9)\r\n 1110 FORMAT (A23,' 2011, NO PROPERTY CARD FOR ELEMENT TYPE - C',2A4)\r\n 1120 FORMAT (A23,' 2012, GRID POINT',I9,' SAME AS SCALAR POINT')\r\n 1130 FORMAT (A25,' 2013, NO STRUCTURAL ELEMENTS EXIST')\r\n 1140 FORMAT (A23,' 2014, LOGIC ERROR IN ECPT CONSTRUCTION')\r\n 1150 FORMAT (A25,' 2015, EITHER NO ELEMENTS CONNECTED TO ',A8,' GRID',\r\n     1       ' POINT',I9, /5X,'OR IT IS CONNECTED TO A RIGID ELEMENT ',\r\n     2       'OR A GENERAL ELEMENT.')\r\n 1151 FORMAT (A25,' 2015, ',A8,' GRID PT.',I9,' NOT CONNECTED')\r\n 1152 FORMAT (11X,':', /11X,':', /7X,'AND MORE')\r\n 1153 FORMAT (1X)\r\n 1160 FORMAT (A23,' 2016, NO MATERIAL PROPERTIES EXIST')\r\n 1170 FORMAT (A23,' 2017, MATS1 CARD REFERENCES UNDEFINED MAT1',I9,\r\n     1       ' CARD')\r\n 1180 FORMAT (A23,' 2018, MATS2 CARD REFERENCES UNDEFINED MAT2',I9,\r\n     1       ' CARD')\r\n 1190 FORMAT (A23,' 2019, MATT1 CARD REFERENCES UNDEFINED MAT1',I9,\r\n     1       ' CARD')\r\n 1200 FORMAT (A23,' 2020, MATT2 CARD REFERENCES UNDEFINED MAT2',I9,\r\n     1       ' CARD')\r\n 1210 FORMAT (A23,' 2021, BAD GMMAT- CALLING SEQUENCE')\r\n 1220 FORMAT (A23,' 2022, SMA-B SCALAR POINT INSERTION LOGIC ERROR')\r\n 1230 FORMAT (A23,' 2023, DETCK UNABLE TO FIND PIVOT POINT',I9,\r\n     1       ' IN GPCT')\r\n 1240 FORMAT ('0*** UNDEFINED MESSAGE 2024')\r\n 1250 FORMAT (A23,' 2025, UNDEFINED COORDINATE SYSTEM',I9)\r\n 1260 FORMAT (A23,' 2026,ELEMENT',I9,' GEOMETRY YIELDS UNREASONABLE ',\r\n     1       'MATRIX')\r\n 1270 FORMAT (A23,' 2027,ELEMENT',I9,' HAS INTERIOR ANGLE GREATER THAN',\r\n     1       ' 180 DEG. AT GRID POINT',I9)\r\n 1280 FORMAT (A23,' 2028, SMA3A ERROR NO.',I9)\r\n 1290 FORMAT (A23,' 2029, UNDEFINED TEMPERATURE SET',I9)\r\n 1300 FORMAT (A23,' 2030, BAD GPTT')\r\n 1310 FORMAT (A23,' 2031, ELEMENT',I9,' UNACCEPTABLE GEOMETRY')\r\n 1320 FORMAT (A23,' 2032, ELEMENT',I9,' UNACCEPTABLE GEOMETRY')\r\n 1330 FORMAT (A23,' 2033, SINGULAR H-MATRIX FOR ELEMENT',I9)\r\n 1340 FORMAT (A25,' 2034, ELEMENT',I9,' SIL-S DO NOT MATCH PIVOT')\r\n 1350 FORMAT (A23,' 2035, QUADRILATERAL',I9,\r\n     1       ' INTERIOR ANGLE GREATER THAN 180 DEG.')\r\n 1360 FORMAT (A23,' 2036, SINGULAR MATRIX FOR ELEMENT',I9)\r\n 1370 FORMAT (A23,' 2037, BAD ELEMENT',I9,' GEOMETRY')\r\n 1380 FORMAT (A25,' 2038, SINGULAR MATRIX FOR ELEMENT',I9)\r\n 1390 FORMAT (A23,' 2039, ZERO SLANT LENGTH FOR HARMONIC',I9,\r\n     1       ' OF CCONEAX',I9)\r\n 1400 FORMAT (A23,' 2040, SINGULAR MATRIX FOR ELEMENT',I9)\r\n 1410 FORMAT (A23,' 2041, A MATT1, MATT2, MATT3, OR MATS1 CARD REFER',\r\n     1       'ENCES TABLE NUMBER',I9,' WHICH IS NOT DEFINED ON', /5X,\r\n     2       'A TABLEM1, TABLEM2, TABLEM3, TABLEM4, OR TABLES1 CARD.')\r\n 1420 FORMAT (A23,' 2042, MISSING MATERIAL TABLE',I9,' FOR ELEMENT',I9)\r\n 1430 FORMAT (A23,' 2043, MISSING MATERIAL TABLE',I9)\r\n 1440 FORMAT (A23,' 2044, UNDEFINED TEMPERATURE SET',I9)\r\n 1450 FORMAT (A23,' 2045, TEMPERATURE UNDEFINED AT GRID POINT WITH ',\r\n     1       'INTERNAL INDEX',I9)\r\n 1460 FORMAT (A23,' 2046, UNDEFINED ELEMENT DEFORMATION SET',I9)\r\n 1470 FORMAT (A23,' 2047, UNDEFINED MULTI-POINT CONSTRAINT SET',I9)\r\n 1480 FORMAT (A23,' 2048, UNDEFINED GRID POINT',I9,\r\n     1       ' IN MULTI-POINT CONSTRAINT SET',I9)\r\n 1490 FORMAT (A23,' 2049, UNDEFINED GRID POINT',I9,\r\n     1       ' REFERENCED ON AN ASET, ASET1, OMIT OR OMIT1 CARD.')\r\n 1500 FORMAT (A23,' 2050, UNDEFINED GRID POINT',I9,\r\n     1       ' HAS A SUPPORT COORDINATE')\r\n 1510 FORMAT (A23,' 2051, UNDEFINED GRID POINT',I9,\r\n     1       ' IN SINGLE-POINT CONSTRAINT SET',I9)\r\n 1520 FORMAT (A23,' 2052, UNDEFINED GRID POINT',I9,\r\n     1       ' IN SINGLE-POINT CONSTRAINT SET',I9)\r\n 1530 FORMAT (A23,' 2053, UNDEFINED SINGLE-POINT CONSTRAINT SET',I9)\r\n 1540 FORMAT (A23,' 2054, SUPER ELEMENT',I9,\r\n     1       ' REFERENCES UNDEFINED SIMPLE ELEMENT',I9)\r\n 1550 FORMAT (A25,' 2055')\r\n 1560 FORMAT (A23,' 2056, UNDEFINED SUPER ELEMENT',I9,' PROPERTIES')\r\n 1570 FORMAT (A23,' 2057, IRRATIONAL SUPER ELEMENT',I9,' TOPOLOGY')\r\n 1580 FORMAT (A25,' 2058, ELEMENT',I9,' CONTRIBUTES TO THE DAMPING ',\r\n     1       'MATRIX WHICH IS PURGED.  IT WILL BE IGNORED.')\r\n 1590 FORMAT (A23,' 2059, UNDEFINED GRID POINT',I9,\r\n     1       ' ON SE--BFE CARD FOR SUPER ELEMENT',I9)\r\n 1600 FORMAT (A23,' 2060, UNDEFINED GRID POINT',I9,\r\n     1       ' ON QDSEP CARD FOR SUPER ELEMENT',I9)\r\n 1610 FORMAT (A23,' 2061, UNDEFINED GRID POINT',I9,' ON GENERAL ',\r\n     1       'ELEMENT',I9)\r\n 1620 FORMAT (A23,' 2062, UNDEFINED SUPER ELEMENT PROPERTY',I9,\r\n     1       ' FOR SUPER ELEMENT',I9)\r\n 1630 FORMAT (A23,' 2063, TA1C LOGIC ERROR')\r\n 1640 FORMAT (A23,' 2064, UNDEFINED EXTRA POINT',I9,\r\n     1       ' REFERENCED ON SEQEP CARD')\r\n 1650 FORMAT (A23,' 2065, UNDEFINED GRID POINT',I9,' ON DMIG CARD')\r\n 1660 FORMAT (A23,' 2066, UNDEFINED GRID POINT',I9,\r\n     1       ' ON RLOAD- OR TLOAD- CARD')\r\n 1670 FORMAT (A23,' 2067, UNDEFINED GRID POINT',I9,' IN NONLINEAR ',\r\n     1       '(NOLIN',I1,') LOAD SET',I9)\r\n 1680 FORMAT (A23,' 2068, UNDEFINED GRID POINT',I9,\r\n     1       ' IN TRANSFER FUNCTION SET',I9)\r\n 1690 FORMAT (A23,' 2069, UNDEFINED GRID POINT',I9,\r\n     1       ' IN TRANSIENT INITIAL CONDITION SET',I9)\r\n 1700 FORMAT (A23,' 2070, REQUESTED DMIG MATRIX ',2A4,' IS UNDEFINED.')\r\n 1710 FORMAT (A23,' 2071, DYNAMIC LOAD SET',I9,' REFERENCES UNDEFINED ',\r\n     1       2A4,' SET',I9)\r\n 1720 FORMAT (A27,' 2072, CARD TYPE',I9,' NOT FOUND ON DATA BLOCK. ',\r\n     1       ' BIT POSITION =',I4)\r\n 1730 FORMAT (A29,' 2073, MPYAD METHOD',I9,' NO. PASSES =',I8)\r\n 1740 FORMAT (A23,' 2074, UNDEFINED TRANSFER FUNCTION SET',I9)\r\n 1750 FORMAT (A23,' 2075, IMPROPER KEYWORD ',2A4,\r\n     1       ' FOR APPROACH PARAMETER IN DMAP INSTRUCTION.')\r\n 1760 FORMAT (A25,' 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED')\r\n 1770 FORMAT (A25,' 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED')\r\n 1780 FORMAT (A25,' 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED')\r\n 1790 FORMAT (A25,' 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT- ',\r\n     1       'PURGED OR INADEQUATE AND IS THUS NOT PROCESSING', /5X,\r\n     2       'ANY REQUESTS FOR STRESSES OR FORCES.')\r\n 1800 FORMAT (A25,' 2080, SDR2 OUTPUT DATA BLOCK NO. 6 IS PURGED')\r\n 1810 FORMAT (A23,' 2081, DIFFERENTIAL STIFFNESS CAPABILITY NOT ',\r\n     1       'DEFINED FOR ANY OF THE ELEMENT TYPES IN THE PROBLEM.')\r\n 1830 FORMAT (A23,' 2083, NULL DISPLACEMENT VECTOR')\r\n 1840 FORMAT (A23,' 2084, DSMG2 LOGIC ERROR',I9)\r\n 1850 FORMAT (A29,' 2085, ',A4,' SPILL, NPVT',I9)\r\n 1860 FORMAT (A29,' 2086, SMA2 SPILL, NPVT',I9)\r\n 1870 FORMAT (A25,' 2087, ECPT CONTAINS BAD DATA')\r\n 1880 FORMAT (A23,' 2088, DUPLICATE TABLE ID',I9)\r\n 1890 FORMAT (A23,' 2089, TABLE',I9,' UNDEFINED')\r\n 1900 FORMAT (A25,' 2090, TABLE DICTIONARY ENTRY',I9,' MISSING')\r\n 1910 FORMAT (A25,' 2091, PLA3, BAD ESTNL ELEMENT ID',I9)\r\n 1920 FORMAT (A27,' 2092, SDR2 FINDS A SYMMETRY SEQUENCE LENGTH =',I20,\r\n     1       /5X,'AND AN INSUFFICIENT NUMBER OF VECTORS AVAILABLE=',I21,\r\n     2       ' WHILE ATTEMPTING TO COMPUTE STRESSES AND FORCES.', /5X,\r\n     3       'ALL FURTHER STRESS AND FORCE COMPUTATION TERMINATED.')\r\n 1930 FORMAT (A23,' 2093, NOLIN CARD FROM NOLIN SET',I9,\r\n     1       ' REFERENCES GRID POINT',I9,' UD SET.')\r\n 2010 FORMAT (A23,' 2101A, GRID POINT',I9,' COMPONENT',I2,\r\n     1       ' ILLEGALLY DEFINED IN SETS',5(2X,A4))\r\n 2011 FORMAT (A23,' 2101B, SCALAR POINT',I9,' ILLEGALLY DEFINED IN ',\r\n     1       'SETS',5(2X,A4))\r\n 2020 FORMAT (A25,' 2102, LEFT HAND MATRIX ROW POSITION',I9,\r\n     1       ' OUT OF RANGE - IGNORED')\r\n 2030 FORMAT (A25,' 2103, SUBROUTINE MAT WAS CALLED WITH INFLAG=2, THE',\r\n     1       ' SINE OF THE ANGLE X', /5X,' MATERIAL ORIENTATION ANGLE,',\r\n     2       ' NON-ZERO, BUT SIN(X)**2+COS(X)**2 DIFFERED FROM 1 IN ',\r\n     3       'ABSOLUTE VALUE BY MORE THAN .0001')\r\n 2040 FORMAT (A23,' 2104, UNDEFINED COORDINATE SYSTEM',I9)\r\n 2050 FORMAT (A23,' 2105, PLOAD2 CARD FROM LOAD SET',I9,\r\n     1       ' REFERENCES MISSING OR NON-2-D ELEMENT',I9)\r\n 2060 FORMAT (A23,' 2106, LOAD CARD DEFINES NON-UNIQUE LOAD SET',I9)\r\n 2070 FORMAT (A23,' 2107, EIG- CARD FROM SET',I9,\r\n     1       ' REFERENCES DEPENDENT COORDINATE OF GRID POINT',I9)\r\n 2080 FORMAT (A23,' 2108, SPCD ON A POINT NOT IN S SET. GRID',I9,\r\n     1       ' COMP.',I9)\r\n 2090 FORMAT (A23,' 2109, NO GRID, SCALAR OR EXTRA POINTS DEFINED')\r\n 2110 FORMAT (A25,' 2111, BAR',I9,' COUPLED BENDING INERTIA SET TO 0.0',\r\n     1       ' IN DIFFERENTIAL STIFFNESS')\r\n 2120 FORMAT (A23,' 2112, UNDEFINED TABLE',I9)\r\n 2130 FORMAT (A23,' 2113, MATERIAL',I9,', A NON-MAT1 TYPE, IS NOT ',\r\n     1       'ALLOWED TO BE STRESS-DEPENDENT')\r\n 2131 FORMAT (A23,' 2131, NON-SCALAR ELEMENT',I9,\r\n     1       ' REFERENCES A SCALAR POINT.')\r\n 2132 FORMAT (A23,' 2132, NON-ZERO SINGLE POINT CONSTRAINT VALUE ',\r\n     1       'SPECIFIED BUT DATA BLOCK YS IS PURGED.')\r\n 2133 FORMAT (A23,' 2133, INITIAL CONDITION IN SET',I9,\r\n     1       ' SPECIFIED FOR POINT NOT IN ANALYSIS SET.')\r\n 2134 FORMAT (A23,' 2134, LOAD SET',I9,' DEFINED FOR BOTH GRAVITY AND ',\r\n     1       'NON-GRAVITY LOADS.')\r\n 2135 FORMAT (A23,' 2135, DLOAD CARD',I9,' HAS A DUPLICATE SET ID FOR ',\r\n     1       'SET ID',I9)\r\n 2136 FORMAT (A23,' 2136, SET ID',I9,' HAS BEEN DUPLICATED ON A DLOAD,',\r\n     1       ' RLOAD1,2 OR TLOAD1,2 CARD.')\r\n 2137 FORMAT (A23,' 2137, PROGRAM RESTRICTION FOR MODULE ',A4,\r\n     1       '.  ONLY 360 LOAD SET ID-S.', /5X,\r\n     2       'ALLOWED.  DATA CONTAINS',I9,' LOAD SET ID-S.')\r\n 2138 FORMAT (A23,' 2138, ELEMENT ID NO.',I9,' IS TOO LARGE')\r\n 2139 FORMAT (A23,' 2139, ELEMENT',I9,' IN DEFORM SET',I9,\r\n     1       ' IS UNDEFINED.')\r\n 2140 FORMAT (A23,' 2114, MATT3 CARD REFERENCES UNDEFINED MAT3',I9,\r\n     1       ' CARD')\r\n 2143 FORMAT (A23,' 2143, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC ',\r\n     1       'ELEMENT NO.',I9)\r\n 2150 FORMAT (A23,' 2115, TABLE',I9,' (TYPE',I9,') ILLEGAL WITH STRESS',\r\n     1       '-DEPENDENT MATERIAL')\r\n 2160 FORMAT (A25,' 2116, MATID',I9,' TABLEID',I9)\r\n 2170 FORMAT (A23,' 2117, TEMPERATURE DEPENDENT MATERIAL PROPERTIES ',\r\n     1       'ARE NOT PERMISSIBLE', /5X,'IN A PIECEWISE LINEAR ',\r\n     2       'ANALYSIS PROBLEM.  TEMPERATURE SET =',I9)\r\n 2260 FORMAT (A23,' 2126, UNDEFINED MATERIAL FOR ELEMENT',I9)\r\n 2270 FORMAT (A25,' 2127, PLA2 INPUT DATA BLOCK NO.',I9,' IS PURGED.')\r\n 2280 FORMAT (A25,' 2128, PLA2 OUTPUT DATA BLOCK NO.',I9,' IS PURGED.')\r\n 2290 FORMAT (A25,' 2129, PLA2, ZERO VECTOR ON APPENDED DATA BLOCK NO.',\r\n     1       I9)\r\n 2300 FORMAT (A23,' 2130, ZERO INCREMENTAL DISPLACEMENT VECTOR INPUT ',\r\n     1       'TO MODULE PLA2.')\r\n 2400 FORMAT (A23,' 2140, GRID OR SCALAR POINT ID',I9,', EXCEEDING MAX',\r\n     1       ' OF 2140000, COULD BE FATAL')\r\n 2510 FORMAT (A23,' 2192, UNDEFINED GRID POINT',I9,' IN RIGD',A1,\r\n     1       ' ELEMENT',I9)\r\n 2520 FORMAT (A23,' 2193, A REDUNDANT SET OF RIGID BODY MODES WAS ',\r\n     1       'SPECIFIED FOR THE GENERAL ELEMENT')\r\n 2530 FORMAT (A23,' 2194, A MATRIX D IS SINGULAR IN SUBROUTINE TA1CA')\r\n 2980 FORMAT (A23,' 2198, INPUT DATA BLOCK',I9,' HAS BEEN PURGED.')\r\n 2990 FORMAT (A25,' 2199, SUMMARY', /5X,'ONE OR MORE OF THE ABOVE ',\r\n     1       'FATAL ERRORS WAS ENCOUNTERED IN SUBROUTINE ',2A4)\r\n 3211 FORMAT (A23,' 2355, GRID POINT COORDINATES OF ELEMENT',I9,\r\n     1       ' ARE IN ERROR.', /5X,\r\n     2       'ONE OR MORE OF THE R-COORDINATES ARE ZERO OR NEGATIVE.')\r\n 3212 FORMAT (A23,' 2364, GRID POINT COORDINATES OF ELEMENT',I9,\r\n     1       ' ARE IN ERROR.', /5X,\r\n     2       'ONE OR MORE OF THE THETA-COORDINATES ARE NONZERO.')\r\n 3213 FORMAT (A23,' 2213, MATERIAL ID',I9,' NOT UNIQUELY DEFINED.')\r\n 3214 FORMAT (A23,' 2214, MATT',I1,' CARD REFERENCES UNDEFINED MAT',I1,\r\n     1       I9,' CARD')\r\n 3215 FORMAT (A23,' 2215, UNDEFINED MATERIAL ID',I9,\r\n     1       ' WAS REFERENCED BY PROPERTY CARD ID',I9)\r\n 3216 FORMAT (A23,' 2216, MATPZT',I1,' CARD REFERENCES UNDEFINED MATPZ',\r\n     1       I1,I9,' CARD')\r\n 3217 FORMAT (A23,' 2217, MATPZ1 ID',I9,' HAS SINGULAR SE MATRIX.')\r\n 3218 FORMAT (A23,' 2218, ',A4,A2,' ELEMENT',I9,\r\n     1       ' HAS A MAXIMUM TO MINIMUM RADIUS RATIO EXCEEDING 10.',/5X,\r\n     2       'ACCURACY OF NUMERICAL INTEGRATION WOULD BE IN DOUBT.')\r\n 3219 FORMAT (A23,' 2219, MAT6 CARDS REQUIRE REPROCESSING. RE-SUBMIT ',\r\n     1       'JOB WITH THE FOLLOWING DMAP ALTER (AFTER GP1)', //10X,\r\n     2       'ANISOP  GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $', /10X,\r\n     3       'EQUIV   MPTA,MPT/ISOP $',/)\r\n 3220 FORMAT (A29,' 2220, NO APPLICABLE ELEMENT OR SUBCASE DURING OUT',\r\n     1       'PUT SCAN', /5X,'EITHER NO VALUES OUTSIDE MAX-MIN RANGE ',\r\n     2       'OR NOT IN SET SPECIFIED FOR ',2A4)\r\n 3222 FORMAT (A25,' 2222, METHOD OF NORMALIZATION ON ',A4,' CARD NOT ',\r\n     1       'SPECIFIED. DEFAULT OF ''',A4,''' WILL BE USED')\r\n 3223 FORMAT (A25,' 3223 NO PCOMP, PCOMP1 OR PCOMP2 PROPERTY DATA ',\r\n     1       'FOUND FOR ',A6,' ELEMENT ID =',I9)\r\n 3224 FORMAT (A23,' 2224, ',A6,' ELEMENT ID =',I9,\r\n     1       ' HAS ILLEGAL GEOMETRY OR CONNECTIONS')\r\n 3225 FORMAT (A23,' 2225, THE X-AXIS OF THE MATERIAL COORDINATE SYSTEM',\r\n     1       ' ID =',I9,' HAS NO PROJECTION ON TO THE PLANE OF THE',\r\n     2       /5X,A6,' ELEMENT ID =',I9)\r\n 3226 FORMAT (A23,' 2226, ILLEGAL DATA DETECTED ON MATERIAL ID =',I9,\r\n     1       ' REFERENCED BY ',A6,' ELEMENT ID =',I9, /5X,\r\n     2       'FOR MID3 APPLICATION')\r\n 3227 FORMAT (A23,' 2228, THE X-AXIS OF THE STRESS COORDINATE SYSTEM ',\r\n     1       'ID =',I9,' HAS NO PROJECTION ON TO THE PLANE OF THE', /5X,\r\n     2       A6,' ELEMENT ID =',I9)\r\n 3228 FORMAT (A25,' 3008, INSUFFICIENT MEMORY IS AVAIL ABLE FOR ',A6,\r\n     1       ' ELEMENTS GENERATION.  RE-RUN JOB WITH AN ADDITIONAL',\r\n     2       /5X,'2000 WORDS OF MEMORY')\r\nC\r\n 5000 FORMAT ('0*** UNASSIGNED MESSAGE (L=',I3,'), P1=',I20,', P2=',I9)\r\nC\r\nC     MESSAGE IS FATAL.\r\nC     IF DIAG 1 IS ON, AND MACHINE IS VAX AND UNIX, CALL ERROR TRACEBACK\r\nC\r\n 5500 IF (MACH .LE. 4) GO TO 5600\r\n      CALL SSWTCH (1,J)\r\n      IF (J .EQ. 1) CALL ERRTRC ('USRWRT  ',L)\r\n 5600 RETURN\r\nC\r\nC     ILLEGAL INPUT TO SUBROUTINE\r\nC\r\n 9000 WRITE  (OUTTAP,9001) L\r\n 9001 FORMAT ('0IMPROPER USRMSG NO.',I20)\r\n      CALL MESAGE (-7,0,NAME)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/valvec.f",
    "content": "      SUBROUTINE VALVEC\r\nC\r\nC     LARGE ORDER REAL SYMMETRIC EIGENVALUE-EIGENVECTOR PROBLEM\r\nC\r\n      INTEGER         QR,MCB(8),TRI(3),QRX(3),WIL(3),VAL(3)\r\n      DIMENSION       VCOM(30)\r\n      COMMON /ZZZZZZ/ A(1)\r\n      COMMON /GIVN  / TITLE(150)\r\nCWKBR 2/94 SPR93027 COMMON /SYSTEM/ ISYS\r\n      COMMON /SYSTEM/ ISYS, IDUMM(53), IPREC\r\n      EQUIVALENCE     (MD   ,TITLE(3)), (VCOM(1),TITLE(101)),\r\n     1                (N    ,VCOM( 1)), (NV     ,VCOM(   7)),\r\n     2                (OEIGS,VCOM(11)), (NVER   ,VCOM(  13)),\r\n     3                (NEVER,VCOM(14)), (ITERM  ,VCOM(  16))\r\n      DATA    TRI   / 4HTRID, 4HI   , 4H    /\r\n      DATA    QRX   / 4HQRIT, 4HER  , 4H    /\r\n      DATA    WIL   / 4HWILV, 4HEC  , 4H    /\r\n      DATA    VAL   / 4HVALV, 4HEC  , 4H    /\r\n      DATA    IBEGN , IEND  / 4HBEGN, 4HEND /\r\nC\r\nC     DEFINITION OF VARIABLES AND DATA FORMATS\r\nC\r\nC     MD       INPUT MATRIX\r\nC     N        SIZE OF MATRIX\r\nC     NV       NUMBER OF EIGENVECTORS DESIRED\r\nC     OEIGS    EIGENVALUE SUMMARY FILE\r\nC     A        OPEN CORE\r\nC     ID       POINTER TO DIAGONALS      -- N OF THEM (D.P.)\r\nC     IO       POINTER TO OFF-DIAGONALS  -- N OF THEM (D.P.)\r\nC     IV       POINTER TO EIGENVALUES    -- N OF THEM (D.P.)\r\nC     IL       POINTER TO ORDER FOUND ARRAY N OF THEM (S.P.)\r\nC     I1 - I6  POINTS TO SCRATCH ARRAYS  -- 2XN LONG\r\nC     NVER     NUMBER OF VECTORS    ERRORS\r\nC     NEVER    NUMBER OF EIGENVALUE ERRORS\r\nC     ITERM    REASON FOR TERMINATION\r\nC\r\nC     INITIALIZATION FOR VALVEC IN BLOCKDATA ROUTINE READBD\r\nC\r\nC     DATA\r\nC    1 MO, MD,MR1, M1, M2, M3, M4,LGAMA,OEIGS,PHIA,ORDER,RSTRT,NCOL,MAX/\r\nC    *301,304,202,303,307,308,309,  201,  204, 305,   -2,   0 ,   0,253/\r\nC\r\nC\r\n      VAL(3) = IBEGN\r\n      CALL CONMSG (VAL,3,0)\r\n      ITERM  = 1\r\n      MCB(1) = MD\r\n      CALL RDTRL (MCB(1))\r\n      N  = MCB(2)\r\n      N2 = N*IPREC\r\n      ID = 1\r\n      IO = ID + N2\r\n      IV = IO + N2\r\n      IL = IV + N2\r\n      I1 = IL + N\r\n      IF ((I1 + 1)/2  .EQ. I1/2) I1 = I1 + 1\r\n      I2 = I1 + N2\r\n      I3 = I2 + N2\r\n      I4 = I3 + N2\r\n      I5 = I4 + N2\r\n      I6 = I5 + N2\r\nC\r\nC     TRIDIAGONALIZATION.\r\nC\r\n      IF (N .GT. 2) GO TO 101\r\nCWKBD 2/94 SPR93027 CALL SMLEIG (A(ID),A(IO),A(IV)) \r\nCWKBNB 2/94 SPR93027\r\n      IF ( IPREC .EQ. 2 ) CALL SMLEIG (A(ID),A(IO),A(IV)) \r\n      IF ( IPREC .EQ. 1 ) CALL SMLEIG1(A(ID),A(IO),A(IV)) \r\nCWKBNE 2/94 SPR93027\r\n      \r\n      IF (N-2) 300,200,300\r\n  101 TRI(3) = IBEGN\r\n      CALL CONMSG (TRI,3,0)\r\nCWKBD 2/94 SPR93027 CALL TRIDI (A(ID),A(IO),A(IV),A(IL),A(I1),A(IL))\r\nCWKBNB 2/94 SPR93027\r\n      IF ( IPREC .EQ. 2 )\r\n     &CALL TRIDI (A(ID),A(IO),A(IV),A(IL),A(I1),A(IL))\r\nC                   D      O    V     A     B    \r\n      IF ( IPREC .EQ. 1 )\r\n     &CALL TRIDI1(A(ID),A(IO),A(IV),A(IL),A(I1),A(IL))\r\nC                   D      O    V     A     B   \r\nCWKBNE 2/94 SPR93027\r\n      TRI(3) = IEND\r\n      CALL CONMSG (TRI,3,0)\r\nC\r\nC     EIGENVALUES\r\nC\r\n  200 QR =  0\r\n      IF (N .LE. 2) QR = 1\r\n      QRX(3) = IBEGN\r\n      CALL CONMSG (QRX,3,0)\r\nCWKBD 2/94 SPR93027 CALL QRITER (A(IV),A(I1),A(IL),QR) \r\nCWKBNB 2/94 SPR93027\r\n      IF ( IPREC .EQ. 2 ) CALL QRITER (A(IV),A(I1),A(IL),QR) \r\n      IF ( IPREC .EQ. 1 ) CALL QRITER1(A(IV),A(I1),A(IL),QR) \r\nCWKBNE 2/94 SPR93027\r\n      \r\n      QRX(3) = IEND\r\n      CALL CONMSG (QRX,3,0)\r\n      RSTRT  = 0\r\n      WIL(3) = IBEGN\r\n      CALL CONMSG (WIL,3,0)\r\nC\r\nC     EIGENVECTORS\r\nC\r\nCWKBDB 2/94 SPR93027\r\nC     CALL WILVEC (A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4),\r\nC     1             A(I5),A(I6),N,A(I6))\r\nCWKBDE 2/94 SPR93027\r\nCWKBNB 2/94 SPR93027\r\n      IF ( IPREC .EQ. 1 )\r\nC                    D      0    C    A      B\r\n     &CALL WILVEC1(A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4),\r\n     &             A(I5),A(I6),N,A(I6))\r\n      IF ( IPREC .EQ. 2 )\r\nC                    D      0    C    A      B\r\n     &CALL WILVEC (A(ID),A(IO),A(IV),A(IL),A(I1),A(I2),A(I3),A(I4),\r\n     &             A(I5),A(I6),N,A(I6))\r\nCWKBNE 2/94 SPR93027\r\n      WIL(3) = IEND\r\n      CALL CONMSG (WIL,3,0)\r\n  300 CONTINUE\r\n      CALL GOPEN (OEIGS,A(1),1)\r\n      MCB(1) = 4\r\n      MCB(2) = N\r\n      MCB(3) = NV\r\n      MCB(4) = NEVER\r\n      MCB(5) = NVER\r\n      MCB(8) = ITERM\r\n      CALL WRITE (OEIGS,MCB,8,1)\r\n      CALL CLOSE (OEIGS,1)\r\n      VAL(3) = IEND\r\n      CALL CONMSG (VAL,3,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/varian.f",
    "content": "      SUBROUTINE VARIAN\r\nC\r\nC     VARIANCE ANALYSIS POST PROCESSOR MODULE\r\nC\r\nC     INPUTS--O1,O2,O3,O4,O5 OR EDT\r\nC\r\nC     OUTPUTS--O1O,O2O,O3O,O4O,O5O\r\nC\r\nC     PARAMETERS--OP--BCD'DER' OR 'VAR'\r\nC                 DELTA--REAL--DEFAULT=1.0\r\nC\r\n      LOGICAL TAPBIT\r\n      INTEGER IT1,IT2,IT3,IT4,IT5,OT1,OT2,OT3,OT4,OT5,NAME(2),MCB(7),\r\n     1        SYSBUF,SCR1,SCR2,DER,VAR,FILE,ITF(5),ITO(5),VARL(3),\r\n     2        DERL(3),VARAN(2),IZ(260)\r\n      REAL    Z(200)\r\n      COMMON /SYSTEM/ SYSBUF,SKIP(91),JRUN\r\n      COMMON /BLANK / IOP(2),DELTA\r\n      COMMON /ZZZZZZ/ RZ(1)\r\n      EQUIVALENCE (IT1,ITF(1)),(ITF(2),IT2) ,(ITF(3),IT3),(ITF(4),IT4),\r\n     1            (ITF(5),IT5),(ITO(1) ,OT1),(ITO(2),OT2),(ITO(3),OT3),\r\n     2            (ITO(4),OT4),(ITO(5),OT5) ,(Z(1),IZ(1),RZ(1))\r\n      DATA IT1,IT2,IT3,IT4,IT5,OT1,OT2,OT3,OT4,SCR1,OT5,INPT, SCR2 /\r\n     1     101,102,103,104,105,201,202,203,204,301 ,205,4HINPT,302 /\r\n      DATA  DER   , VAR   , DERL  ,                 NAME             /\r\n     1      4HDER , 4HVAR , 4HDERI, 4HVATI, 4HVE  , 4HVARI, 4HAN     /\r\n      DATA  VARL  ,                 IBLNK , VARAN   ,       MCB      /\r\n     1      4HVARI, 4HANCE, 4H    , 4H    , 4202, 42,       7*0      /\r\nC\r\n      IBUF1 = KORSZ(Z(1))-SYSBUF\r\n      IBUF2 = IBUF1-SYSBUF\r\n      IBUF3 = IBUF2-SYSBUF\r\n      NZ    = IBUF3-1\r\n      IF (NZ .LE. 0) CALL MESAGE(-8,0,NAME)\r\n      IF (.NOT.TAPBIT(INPT)) CALL MESAGE(-7,0,NAME)\r\n      CALL INT2A8 (*5,JRUN,IZ)\r\n    5 NJRUN=IZ(1)\r\n      NW=1\r\n      IF (IOP(1) .EQ. VAR) GO TO 300\r\n      IF (IOP(1) .NE. DER) RETURN\r\nC\r\nC     DERIVATIVES SECTION\r\nC\r\n      IF (JRUN .NE. 0) GO TO 30\r\nC\r\nC     COPY INPUT FILES TO INPT TAPE\r\nC\r\n      CALL OPEN (*900,INPT,IZ(IBUF1),1)\r\n      I=1\r\n      ASSIGN 20 TO IRET\r\n   10 FILE = ITF(I)\r\n      GO TO 700\r\n   20 I = I + 1\r\n      IF (I .LE. 5) GO TO 10\r\n      CALL CLOSE (INPT,2)\r\n      RETURN\r\nC\r\nC     COMPUTE DERIVATIVES  DJ = (OJ - O0)/DELTA\r\nC\r\n   30 CONTINUE\r\n      CALL OPEN (*900,INPT,IZ(IBUF1),0)\r\nC\r\n      DO 250 I = 1,5\r\n      IFOUND = 0\r\n      CALL FWDREC (*220,INPT)\r\n      CALL OPEN (*230,ITF(I),IZ(IBUF2),0)\r\n      CALL FWDREC (*910,ITF(I))\r\n      CALL GOPEN (ITO(I),IZ(IBUF3),1)\r\n      FILE = ITF(I)\r\n   40 ASSIGN 60 TO IRTN\r\n   50 CALL READ (*220,*920,INPT,IZ(1),146,1,IFLAG)\r\n      GO TO IRTN, (60,70)\r\n   60 CALL READ (*230,*920,FILE,IZ(147),146,1,IFLAG)\r\nC\r\nC     CHECK FOR MATCH ON SUBCASE\r\nC\r\n   70 IF (IZ(4)-IZ(150)) 80,100,90\r\nC\r\nC     NEED NEW INPT RECORD\r\nC\r\n   80 CALL FWDREC (*910,INPT)\r\n      ASSIGN 70 TO IRTN\r\n      GO TO 50\r\nC\r\nC     NEED NEW FILE RECORD\r\nC\r\n   90 CALL FWDREC (*910,FILE)\r\n      GO TO 60\r\nC\r\nC     CHECK FOR MATCH ON TIME, FREQ ETC\r\nC\r\n  100 IF (Z(5)-Z(151)) 80,110,90\r\nC\r\nC     CHECK FOR MATCH ON ELTYPE\r\nC\r\n  110 IF (IZ(3)-IZ(149)) 80,120,90\r\nC\r\nC     WE GOT ONE\r\nC\r\n  120 CONTINUE\r\n      IZ(257) = DERL(1)\r\n      IZ(258) = DERL(2)\r\n      IZ(259) = DERL(3)\r\n      IZ(260) = NJRUN\r\n      IFOUND  = 1 + IFOUND\r\n      CALL WRITE (ITO(I),IZ(147),146,1)\r\n      NREC=IZ(10)\r\n  130 ASSIGN 150 TO IRTN1\r\n  140 CALL READ (*910,*190,INPT,IZ(1),NREC,0,IFLAG)\r\n      ID1 = IZ(1)/10\r\n      GO TO IRTN1, (150,160)\r\n  150 CALL READ (*910,*200,FILE,IZ(NREC+1),NREC,0,IFLAG)\r\n      ID2 = IZ(NREC+1)/10\r\n      ASSIGN 160 TO IRTN1\r\n  160 IF (ID1-ID2) 140,170,150\r\nC\r\nC     POINT CHECKS\r\nC\r\n  170 CONTINUE\r\n      DO 180 J=2,NREC\r\n      ITYPE = NUMTYP(IZ(J))\r\n      IF (ITYPE.NE.2 .AND. ITYPE.NE.0) GO TO 180\r\n      Z(NREC+J) = (Z(NREC+J) - Z(J))/DELTA\r\n  180 CONTINUE\r\n      CALL WRITE (ITO(I),IZ(NREC+1),NREC,0)\r\n      GO TO 130\r\nC\r\nC     END OF DATA RECORD\r\nC\r\n  190 CALL FWDREC (*910,FILE)\r\n      GO TO 210\r\n  200 CALL FWDREC (*910,INPT)\r\n  210 CALL WRITE (ITO(I),0,0,1)\r\n      GO TO 40\r\nC\r\nC     EOF ON INPT\r\nC\r\n  220 GO TO 240\r\nC\r\nC     EOF ON FILE\r\nC\r\n  230 CALL SKPFIL (INPT,1)\r\n  240 CALL CLOSE (FILE,1)\r\n      CALL CLOSE (ITO(I),1)\r\n      MCB(1)=ITO(I)\r\n      MCB(2)=IFOUND\r\n      IF (IFOUND .NE. 0) CALL WRTTRL (MCB)\r\n  250 CONTINUE\r\nC\r\nC     SKIP OVER OLD DERIVATIVES\r\nC\r\n      I = 5*JRUN - 5\r\n      CALL SKPFIL (INPT,I)\r\n      CALL CLOSE (INPT,2)\r\n      CALL GOPEN (INPT,IZ(IBUF1),3)\r\n      I = 1\r\n      ASSIGN 270 TO IRET\r\n  260 FILE = ITO(I)\r\n      MCB(1) = FILE\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(2) .NE. 0) GO TO 700\r\n      CALL EOF (INPT)\r\n  270 I = I + 1\r\n      IF (I .LE. 5) GO TO 260\r\n      CALL CLOSE (INPT,2)\r\n  280 RETURN\r\nC\r\nC     VARIANCE SECTION\r\nC\r\n  300 IF (JRUN .EQ. 0) RETURN\r\nC\r\nC     SEE IF VARIANCE IS TO BE COMPUTED\r\nC\r\n      CALL PRELOC (*280,IZ(IBUF1),IT1)\r\n      CALL LOCATE (*320,IZ(IBUF1),VARAN,IFLAG)\r\nC\r\nC     READ IN VARIANCES\r\nC\r\n      CALL READ (*910,*310,IT1,IZ(1),NZ,0,IFLAG)\r\n      CALL MESAGE (-8,0,NAME)\r\n  310 IF (IFLAG-1 .EQ. JRUN) GO TO 330\r\n  320 CALL CLOSE (IT1,1)\r\n      RETURN\r\nC\r\nC     SET UP FOR VARIANCES\r\nC\r\n  330 CALL CLOSE (IT1,1)\r\n      CALL OPEN (*900,INPT,IZ(IBUF1),0)\r\n      CALL SKPFIL (INPT,5)\r\n      IN1 = INPT\r\n      IO1 = SCR1\r\n      DO 620 I = 1,JRUN\r\n      IF (I .EQ. JRUN) GO TO 340\r\n      CALL OPEN (*900,IO1,IZ(IBUF2),1)\r\n  340 CONTINUE\r\n      IF (I .EQ. 1) GO TO 350\r\n      CALL OPEN (*900,IN1,IZ(IBUF3),0)\r\n  350 CONTINUE\r\n      DO 610 J = 1,5\r\n      IF (I .NE. JRUN) GO TO 360\r\nC\r\nC     FIX UP FOR WRITING ON OUTPUT FILES\r\nC\r\n      CALL OPEN (*610,ITO(J),IZ(IBUF2),1)\r\n      CALL FNAME (ITO(J),MCB)\r\n      CALL WRITE (ITO(J),MCB,2,1)\r\n      IFOUND = 0\r\n      IO1 = ITO(J)\r\n  360 CONTINUE\r\n      CALL FWDREC (*590,INPT)\r\n  370 ASSIGN 400 TO IRTN2\r\n  380 CALL READ (*600,*920,IN1,IZ(JRUN+1),146,1,IFLAG)\r\n      IF (I .NE. 1) GO TO 390\r\n      IZ(JRUN+111) = VARL(1)\r\n      IZ(JRUN+112) = VARL(2)\r\n      IZ(JRUN+113) = VARL(3)\r\n      IZ(JRUN+114) = IBLNK\r\n      GO TO 460\r\nC\r\nC     CHECK FOR MATCH\r\nC\r\n  390 GO TO IRTN2, (400,410)\r\n  400 CALL READ (*580,*920,INPT,IZ(JRUN+147),146,1,IFLAG)\r\n  410 IF (IZ(JRUN+4)-IZ(JRUN+150)) 420,440,430\r\n  420 CALL FWDREC (*910,IN1)\r\n      ASSIGN 410 TO IRTN2\r\n      GO TO 380\r\n  430 CALL FWDREC (*910,INPT)\r\n      GO TO 400\r\n  440 IF ( Z(JRUN+5)- Z(JRUN+151)) 420,450,430\r\n  450 IF (IZ(JRUN+3)-IZ(JRUN+149)) 420,460,430\r\nC\r\nC     MATCH\r\nC\r\n  460 CALL WRITE (IO1,IZ(JRUN+1),146,1)\r\n      NREC = IZ(JRUN+10)\r\n      M = JRUN + NREC\r\n  470 ASSIGN 490 TO IRTN3\r\n  480 CALL READ (*910,*550,IN1,IZ(JRUN+1),NREC,0,IFLAG)\r\n      IF (I .EQ. 1) GO TO 510\r\n      ID1 = IZ(JRUN+1)/10\r\n      GO TO IRTN3, (490,500)\r\n  490 CALL READ (*910,*560,INPT,IZ(M+1),NREC,0,IFLAG)\r\n      ID2 = IZ(M+1) /10\r\n      ASSIGN 500 TO IRTN3\r\n  500 IF (ID1-ID2) 480,510,490\r\nC\r\nC     POINT MATCH\r\nC\r\n  510 CONTINUE\r\n      IF (I .EQ. JRUN) IFOUND = IFOUND +1\r\n      DO 540 K =2,NREC\r\n      ITYPE = NUMTYP(IZ(JRUN+K))\r\n      IF (ITYPE.NE.2 .AND. ITYPE.NE.0) GO TO 540\r\n      IF (I .NE. 1) GO TO 520\r\n      Z(JRUN+K) = (Z(JRUN+K)*Z(1))**2\r\n      GO TO 530\r\n  520 Z(JRUN+K) = Z(JRUN+K) + (Z(M+K)*Z(I))**2\r\n  530 IF (I .NE. JRUN) GO TO 540\r\n      Z(JRUN+K) = SQRT(Z(JRUN+K))\r\n  540 CONTINUE\r\n      CALL WRITE (IO1,IZ(JRUN+1),NREC,0)\r\n      GO TO 470\r\nC\r\nC     END OF DATA ON IN1\r\nC\r\n  550 IF (I .EQ. 1) GO TO 570\r\n      CALL FWDREC (*910,INPT)\r\n      GO TO 570\r\n  560 CALL FWDREC (*910,IN1)\r\n  570 CALL WRITE (IO1,0,0,1)\r\n      GO TO 370\r\nC\r\nC     EOF ON INPT\r\nC\r\n  580 CALL SKPFIL (IN1,1)\r\n  590 CALL EOF (IO1)\r\n      IF (I .NE. JRUN) GO TO 610\r\n      CALL CLOSE (IO1,1)\r\n      MCB(1) = IO1\r\n      MCB(2) = IFOUND\r\n      CALL WRTTRL (MCB)\r\n      GO TO 610\r\n  600 IF (I .EQ. 1) GO TO 590\r\n      CALL SKPFIL (INPT,1)\r\n      GO TO 590\r\n  610 CONTINUE\r\nC\r\nC     SWITCH FILES\r\nC\r\n      IF (I .NE. JRUN) CALL CLOSE (IO1,1)\r\n      IF (I .NE.    1) CALL CLOSE (IN1,1)\r\n      J=IN1\r\n      IN1=IO1\r\n      IO1=J\r\n      IF (I .EQ. 1) IO1 = SCR2\r\n  620 CONTINUE\r\n      CALL CLOSE (INPT,1)\r\n      JRUN = 9999999\r\n      RETURN\r\nC\r\nC     INTERNAL ROUTINE TO COPY FILES\r\nC\r\n  700 CONTINUE\r\n      CALL OPEN (*730,FILE,IZ(IBUF2),0)\r\n  710 IEOR = 1\r\n      CALL READ (*730,*720,FILE,IZ(1),NZ,0,IREAD)\r\n      IEOR = 0\r\n  720 CALL WRITE (INPT,IZ(1),IREAD,IEOR)\r\n      GO TO 710\r\n  730 CALL EOF (INPT)\r\n      CALL CLOSE (FILE,1)\r\n      GO TO IRET, (20,270)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 IP1 = -1\r\n      GO TO 930\r\n  910 IP1 = -2\r\n      GO TO 930\r\n  920 IP1 = -3\r\n  930 CALL MESAGE (IP1,FILE,NAME)\r\n      STOP\r\n      END\r\n"
  },
  {
    "path": "mis/vdr.f",
    "content": "      SUBROUTINE VDR\r\nC\r\nC     VDR IS THE CONTROL PROGRAM FOR THE VECTOR DATA RECOVERY MODULE\r\nC\r\nC                                                          OPHID\r\nC                                  PHID                    OUDVC1\r\nC                                  UDVF CLAMA              OUDV1\r\nC             CASECC  EQDYN  USETD UDVT PPF          PHLD  OPHIH  OPNL1\r\nC     VDR     CASEXX,HEQDYN,HUSETD,PHIH,TOL   ,XYCBD,PNLH /OUHVC1,HOPNL1\r\nC                                  UHVT HTOL         HPNLD OUHV1\r\nC                                  HUDVT                   HOUVD1\r\nC\r\nC                   TRANRESP     DIRECT\r\nC              /C,N,FREQRESP/C,N,MODAL /V,N,SORT2/V,N,OUTPUT/V,N,SDR2\r\nC                   CEIGN\r\nC\r\nC              /V,N,FMODE  $      PROGRAMMER'S MANUAL PP. 4.60-1 TRHU -7\r\nC\r\nC\r\n      INTEGER         PNL   ,OUTFLE,OPNL1 ,APP   ,TRN   ,VDRREQ,SORT2 ,\r\n     1                OUTPUT,SDR2  ,SSCELL,BUF   ,CASECC\r\n      DIMENSION       NAM(2),BUF(50)      ,MASKS(6)     ,MCB(7),CEI(2),\r\n     1                FRQ(2),TRN(2),MODAL(2)     ,DIRECT(2)\r\n      COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL  ,IACC  ,ISPCF ,ILOADS,ISTR  ,\r\n     1                IELF  ,IADISP,IAVEL ,IAACC ,IPNL  ,ITTL  ,ILSYM ,\r\n     2                IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS ,\r\n     3                PP    ,XYCDB ,PNL   ,OUTFLE,OPNL1 ,SCR1  ,SCR2  ,\r\n     4                BUF1  ,BUF2  ,BUF3  ,NAM   ,BUF   ,MASKS ,CEI   ,\r\n     5                FRQ   ,TRN   ,DIRECT,XSET0 ,VDRREQ,MODAL\r\n      COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2  ,IMODE\r\n      COMMON /SYSTEM/ DUMI(68),SSCELL\r\nC\r\nC     EXECUTE THE PHASES OF VDR.\r\nC\r\n      DO 10 I = 1,50\r\n   10 BUF(I) = 0\r\n      CASECC = 101\r\n      OUTPUT = -1\r\n      SORT2  = -1\r\n      CALL VDRA\r\n      IF (SSCELL .NE. 0) SDR2 = 1\r\n      IF (VDRREQ .EQ. 0) RETURN\r\n      MCB(1) = INFILE\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .NE. INFILE) GO TO 20\r\n      CALL VDRB (INFILE,OUTFLE,IADISP)\r\n   20 IF (APP(1) .NE. TRN(1)) RETURN\r\n      MCB(1) = PNL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .NE. PNL) RETURN\r\n      CALL VDRB (PNL,OPNL1,IPNL)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/vdra.f",
    "content": "      SUBROUTINE VDRA\r\nC\r\nC     VDRA PROCESSES THE CASE CONTROL AND XYCDB DATA BLOCKS. IF XYCDB\r\nC     IS PURGED, NO ACTION IS TAKEN. OTHERWISE, OUTPUT REQUESTS IN\r\nC     CASE CONTROL ARE COMPARED WITH XY REQUESTS IN XYCDB. FOR EACH\r\nC     SUBCASE AND EACH REQUEST TYPE, CASE CONTROL IS MODIFIED TO REFLECT\r\nC     THE UNION OF THE REQUESTS. THE NEW CASE CONTROL IS WRITTEN ON A\r\nC     SCRATCH FILE AND THE POINTER TO CASE CONTROL SWITCHED.\r\nC\r\n      INTEGER         BUF   ,CASECC,XYCDB ,SCR1  ,SCR3  ,Z     ,APP   ,\r\n     1                RD    ,RDREW ,WRT   ,WRTREW,CLSREW,SYSBUF,XSETNO,\r\n     2                BUF1  ,BUF2  ,BUF3  ,SUBCSE,ANYNEW,FILE  ,DBNAME,\r\n     3                SETNO ,ARG   ,SDR2  ,XSET0 ,VDRCOM,XYCDBF,VDRREQ,\r\n     4                TRN   ,FORMAT,FRQ   ,SORT2\r\n      DIMENSION       NAM(2),BUF(50)      ,MASKS(6)     ,CEI(2),FRQ(2),\r\n     1                TRN(2),MODAL(2)     ,DIRECT(2)    ,VDRCOM(1)\r\n      COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL  ,IACC  ,ISPCF ,ILOADS,ISTR  ,\r\n     1                IELF  ,IADISP,IAVEL ,IAACC ,IPNL  ,ITTL  ,ILSYM ,\r\n     2                IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS ,\r\n     3                PP    ,XYCDB ,PNL   ,OUTFLE,OPNL1 ,SCR1  ,SCR3  ,\r\n     4                BUF1  ,BUF2  ,BUF3  ,NAM   ,BUF   ,MASKS ,CEI   ,\r\n     5                FRQ   ,TRN   ,DIRECT,XSET0 ,VDRREQ,MODAL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2  ,IMODE\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /SYSTEM/ SYSBUF\r\nC\r\nC     SET BUFFER POINTERS AND PERFORM GENERAL INITIALIZATION.\r\nC\r\n      BUF1   = KORSZ(Z) - SYSBUF\r\n      BUF2   = BUF1 - SYSBUF\r\n      BUF3   = BUF2 - SYSBUF\r\n      IXY    = 1\r\n      LASTXY = 0\r\n      ANYNEW = 0\r\n      SDR2   =-1\r\n      VDRREQ = 0\r\n      XSETNO = XSET0\r\n      IMSTR  = 1\r\n      MASTER = 1\r\nC\r\nC     OPEN XYCDB. IF PURGED, RETURN.\r\nC\r\n      CALL OPEN (*1036,XYCDB,Z(BUF1),RDREW)\r\n      FILE = XYCDB\r\n      CALL FWDREC (*1036,XYCDB)\r\n      CALL FWDREC (*1036,XYCDB)\r\nC\r\nC     READ FIRST LINE OF XYCDB. IF SUBCASE = 0 (MEANING DATA APPLIES\r\nC     TO ALL SUBCASES), READ IN DATA FOR ZERO SUBCASE.\r\nC\r\n      LAST   = 0\r\n      XYCDBF = XYCDB\r\n      CALL READ (*1035,*1035,XYCDB,BUF,6,0,FLAG)\r\n      SUBCSE = BUF(1)\r\n      IF (SUBCSE .NE. 0) GO TO 1013\r\n      I = IMSTR\r\n 1011 Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(3)\r\n      I = I + 2\r\n      CALL READ (*2002,*1012,XYCDB,BUF,6,0,FLAG)\r\n      IF (BUF(1) .EQ. 0) GO TO 1011\r\n      NMSTR = I - 2\r\n      IXYSC = I\r\n      GO TO 1019\r\nC\r\nC     HERE IF MASTER SUBCASE IS THE ONLY SUBCASE IN XYCDB.\r\nC\r\n 1012 NMSTR  = I - 2\r\n      NXYSC  = NMSTR\r\n      MASTER = 0\r\n      LASTXY = 1\r\nC\r\nC     REDUCE LIST TO UNIQUE PAIRS\r\nC\r\n      IF (IMSTR .EQ. NMSTR) GO TO 1019\r\n      NMSTR = NMSTR - 2\r\n      J = IMSTR\r\n      DO 1014 I = IMSTR,NMSTR,2\r\n      IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1014\r\n      Z(J+2) = Z(I+2)\r\n      Z(J+3) = Z(I+3)\r\n      J = J + 2\r\n 1014 CONTINUE\r\n      NMSTR = J\r\n      NXYSC = NMSTR\r\n      GO TO 1019\r\nC\r\nC     HERE IF NO MASTER SUBCASE -- CREATE A DUMMY MASTER.\r\nC\r\n 1013 NMSTR = IMSTR\r\n      IXYSC = IMSTR + 2\r\n      Z(IMSTR  ) = 9999\r\n      Z(IMSTR+1) = 0\r\nC\r\nC     OPEN CASE CONTROL AND SCRATCH FILE FOR MODIFIED CASE CONTROL\r\nC\r\n 1019 CALL GOPEN (CASECC,Z(BUF2),0)\r\n      CALL GOPEN (SCR3,Z(BUF3),1)\r\nC\r\nC     READ DATA FOR ONE SUBCASE. STORE DATA BLOCK AND ID IN OPEN CORE.\r\nC\r\n 1020 IF (MASTER.EQ.0 .OR. LASTXY.NE.0) GO TO 1030\r\n      SUBCSE = BUF(1)\r\n      I = IXYSC\r\n 1021 Z(I  ) = BUF(2)\r\n      Z(I+1) = BUF(3)\r\n      I = I + 2\r\n      CALL READ (*1035,*1023,XYCDBF,BUF,6,0,FLAG)\r\n      IF (BUF(1) .EQ. SUBCSE) GO TO 1021\r\n      GO TO 1025\r\n 1023 LASTXY = 1\r\nC\r\nC     COPY DATA FROM MASTER SUBCASE AFTER CURRENT SUBCASE.\r\nC     THEN SORT DATA TOGETHER TO FORM SORTED UNION.\r\nC\r\n 1025 DO 1026 J = IMSTR,NMSTR,2\r\n      Z(I  ) = Z(J  )\r\n      Z(I+1) = Z(J+1)\r\n      I = I + 2\r\n 1026 CONTINUE\r\n      N = I - IXYSC\r\n      CALL SORT2K (0,0,2,1,Z(IXYSC),N)\r\nC\r\nC     REDUCE LIST TO UNIQUE PAIRS.\r\nC\r\n      NXYSC = I - 4\r\n      J = IXYSC\r\n      DO 1027 I = IXYSC,NXYSC,2\r\n      IF (Z(I+2).EQ.Z(J) .AND. Z(I+3).EQ.Z(J+1)) GO TO 1027\r\n      Z(J+2) = Z(I+2)\r\n      Z(J+3) = Z(I+3)\r\n      J = J + 2\r\n 1027 CONTINUE\r\n      NXYSC = J\r\nC\r\nC     READ A RECORD IN CASE CONTROL. SET POINTERS FOR XYCDB DATA TO\r\nC     EITHER MASTER SUBCASE OR CURRENT SUBCASE IN CORE.\r\nC\r\n 1030 ICC = NXYSC + 1\r\n      CALL READ (*1033,*1031,CASECC,Z(ICC+1),BUF3-ICC,1,NCC)\r\n      CALL MESAGE (-8,0,NAM)\r\n 1031 IF (MASTER.EQ.0 .OR. Z(ICC+1).NE.SUBCSE) GO TO 1032\r\n      IXY = IXYSC\r\n      NXY = NXYSC\r\n      GO TO 1040\r\n 1032 IXY = IMSTR\r\n      NXY = NMSTR\r\n      GO TO 1040\r\nC\r\nC     TERMINATE PROCESSING.\r\nC\r\n 1033 CONTINUE\r\n 1035 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (XYCDBF,CLSREW)\r\n      CALL CLOSE (SCR3  ,CLSREW)\r\n      IF (ANYNEW .NE. 0) CASECC = SCR3\r\n      RETURN\r\nC\r\n 1036 VDRREQ = 1\r\n      CALL CLOSE (XYCDB,CLSREW)\r\n      RETURN\r\nC\r\nC     PICK UP POINTER TO CURRENT OUTPUT REQUEST.\r\nC     DETERMINE IF XYCDB REQUEST EXISTS.\r\nC\r\n 1040 LOOP   = 1\r\n 1041 DBNAME = LOOP\r\n      IREQ   = ICC + VDRCOM(LOOP+1)\r\n      SETNO  = Z(IREQ)\r\n      DO 1042 J = IXY,NXY,2\r\n      IF (Z(J) .EQ. DBNAME) GO TO 1043\r\n 1042 CONTINUE\r\n      GO TO 1095\r\n 1043 IXYSET = J\r\n      DO 1044 J = IXYSET,NXY,2\r\n      IF (Z(J) .NE. DBNAME) GO TO 1045\r\n 1044 CONTINUE\r\n      NXYSET = NXY\r\n      GO TO 1050\r\n 1045 NXYSET = J - 2\r\nC\r\nC     BRANCH ON CASECC REQUEST-- NOTE, NO ACTION IF REQUEST = ALL.\r\nC\r\n 1050 IF (LOOP .GT. 7) GO TO 1051\r\n      SDR2 = +1\r\n      GO TO 1100\r\n 1051 VDRREQ = 1\r\n      SORT2  =+1\r\n      IF (SETNO) 1098,1060,1070\r\nC\r\nC     HERE IF NO CASECC REQUEST.\r\nC     BUILD XYCDB SET IN CASECC SET FORMAT. ADD SET TO\r\nC     CASECC RECORD AND TURN ON CASECC REQUEST FOR SET.\r\nC\r\n 1060 XSETNO  = XSETNO + 1\r\n      Z(IREQ) = XSETNO\r\n      Z(IREQ+1) = 0\r\n      FORMAT  = -2\r\n      IF (APP(1) .EQ. TRN(1)) FORMAT = -1\r\n      Z(IREQ+2) = FORMAT\r\n      IX = ICC + NCC + 1\r\n      Z(IX) = XSETNO\r\n      JX = IX + 2\r\n      Z(JX) = Z(IXYSET+1)\r\n      IF (IXYSET .EQ. NXYSET) GO TO 1066\r\n      IXYSET = IXYSET + 2\r\n      N = 1\r\n      DO 1065 J = IXYSET,NXYSET,2\r\n      IF (Z(J+1)-Z(JX) .EQ. N) GO TO 1064\r\n      IF (N .NE. 1) GO TO 1062\r\n      JX = JX + 1\r\n      Z(JX)= Z(J+1)\r\n      GO TO 1065\r\n 1062 Z(JX+1) = -Z(J-1)\r\n      JX = JX + 2\r\n      Z(JX) = Z(J+1)\r\n      N = 1\r\n      GO TO 1065\r\n 1064 N = N + 1\r\n 1065 CONTINUE\r\n      IF (N .EQ. 1) GO TO 1066\r\n      JX = JX + 1\r\n      Z(JX  ) = -Z(NXYSET+1)\r\n 1066 Z(IX+1) = JX - IX - 1\r\n      NCC = NCC + Z(IX+1) + 2\r\n      ANYNEW = 1\r\n      GO TO 1100\r\nC\r\nC     HERE IF CASECC SET AND XYCDB SET EXIST.\r\nC     FIRST, LOCATE CASECC SET.\r\nC\r\n 1070 ILIST = ICC + NCC + 3\r\n      IX    = ICC + ILSYM\r\n      ISETNO= IX  + Z(IX) + 1\r\n 1071 ISET  = ISETNO + 2\r\n      NSET  = Z(ISETNO+1) + ISET - 1\r\n      IF (Z(ISETNO) .EQ. SETNO) GO TO 1080\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. ILIST) GO TO 1071\r\n      GO TO 1100\r\nC\r\nC     COMPARE EACH POINT IN XYCDB REQUEST WITH CASECC SET.\r\nC     ADD ANY POINTS IN XYCDB NOT IN CASECC TO CASECC SET.\r\nC\r\n 1080 I = ISET\r\n      J = IXYSET\r\n      K = ILIST\r\n      L = ISET\r\n 1081 ARG = Z(J+1)\r\n 1082 IF (I-NSET) 1083,1085,1088\r\n 1083 IF (Z(I+1) .GT. 0) GO TO 1085\r\n      N = 2\r\n      IF (ARG-Z(I  )) 1088,1091,1084\r\n 1084 IF (ARG+Z(I+1)) 1091,1087,1086\r\n 1085 N = 1\r\n      IF (ARG-Z(I  )) 1088,1087,1086\r\n 1086 I = I + N\r\n      GO TO 1082\r\n 1087 I = I + N\r\n      GO TO 1091\r\n 1088 IF (L .EQ. I) GO TO 1090\r\n      LN = I - 1\r\n      LL = L\r\n      DO 1089 L = LL,LN\r\n      Z(K) = Z(L)\r\n      K = K + 1\r\n 1089 CONTINUE\r\n      L = I\r\n 1090 Z(K) = ARG\r\n      K = K + 1\r\n 1091 J = J + 2\r\n      IF (J .LE. NXYSET) GO TO 1081\r\n      N = K - ILIST\r\n      IF (N .EQ.    0) GO TO 1100\r\n      IF (L .GT. NSET) GO TO 1094\r\n      DO 1092 LL = L,NSET\r\n      Z(K) = Z(LL)\r\n      K = K + 1\r\n 1092 CONTINUE\r\n      N = K - ILIST\r\nC\r\nC     IF NO NEW POINTS IN SET, CURRENT CASECC SET IS UNION.\r\nC     OTHERWISE, NEW SET IS UNION. TURN ON REQUEST FOR IT AND\r\nC     EXTEND END OF CASECC RECORD.\r\nC\r\n 1094 XSETNO    = XSETNO + 1\r\n      Z(IREQ  ) = XSETNO\r\n      Z(IREQ+1) = 10*SETNO + Z(IREQ+1)\r\n      Z(IREQ+2) =-IABS(Z(IREQ+2))\r\n      Z(ILIST-2)= XSETNO\r\n      Z(ILIST-1)= N\r\n      NCC       = NCC + N + 2\r\n      ANYNEW    = 1\r\n      GO TO 1100\r\nC\r\nC     HERE IF NO XYCDB REQUEST EXISTS.\r\nC\r\n 1095 IF (SETNO .EQ. 0) GO TO 1100\r\n      IF (LOOP  .GT. 7) GO TO 1096\r\n      SDR2 = 1\r\n      GO TO 1100\r\n 1096 VDRREQ = 1\r\n      GO TO 1100\r\nC\r\nC     HERE IF CASECC SET = ALL AND XY REQUEST EXISTS - TURN SORT 2 ON.\r\nC\r\n 1098 Z(IREQ+2) = -IABS(Z(IREQ+2))\r\nC\r\nC     TEST FOR COMPLETION OF ALL CASECC REQUESTS FOR CURRENT SUBCASE.\r\nC     WHEN COMPLETE, WRITE CURRENT SUBCASE ON SCRATCH FILE.\r\nC\r\n 1100 LOOP = LOOP + 1\r\n      IF (LOOP .LE. 11) GO TO 1041\r\n      CALL WRITE (SCR3,Z(ICC+1),NCC,1)\r\nC\r\nC     RETURN TO READ ANOTHER RECORD IN CASE CONTROL OR ANOTHER XYCDB\r\nC     SUBCASE\r\nC\r\n      IF (MASTER .EQ. 0) GO TO 1030\r\n      IF (SUBCSE .LE. Z(ICC+1)) GO TO 1020\r\n      GO TO 1030\r\nC\r\nC     FATAL FILE ERROR\r\nC\r\n 2000 CALL MESAGE (N,FILE,NAM)\r\n 2002 N = -2\r\n      GO TO 2000\r\n      END\r\n"
  },
  {
    "path": "mis/vdrb.f",
    "content": "      SUBROUTINE VDRB (INFIL,OUTFL,IREQQ)\r\nC\r\nC     VDRB PROCESSES VECTORS IN THE ANALYSIS OR MODAL SET. IN\r\nC     ACCORDANCE WITH OUTPUT REQUESTS IN THE CASE CONTROL DATA BLOCK,\r\nC     THESE VECTORS ARE FORMATTED FOR INPUT TO OFP WHERE ACTUAL OUTPUT\r\nC     WILL OCCUR.\r\nC\r\n      EXTERNAL        ANDF\r\n      INTEGER         APP   ,FORM  ,SORT2 ,OUTPUT,Z     ,SYSBUF,DATE  ,\r\n     1                TIME  ,UD    ,UE    ,TWO   ,QTYPE2,CEI   ,FRQ   ,\r\n     2                TRN   ,OUTFL ,MODAL ,DIRECT,CASECC,EQDYN ,USETD ,\r\n     3                INFIL ,OEIGS ,PP    ,BUF   ,BUF1  ,BUF2  ,BUF3  ,\r\n     4                FILE  ,FLAG  ,SILD  ,CODE  ,GPTYPE,ANDF  ,BRANCH,\r\n     5                SETNO ,FSETNO,WORD  ,RET   ,RETX  ,FORMAT,EOF   ,\r\n     6                VDRCOM,SDR2  ,XSET0 ,XSETNO,DEST  ,AXIF  ,VDRREQ,\r\n     7                OHARMS\r\n      DIMENSION       MCB(7)    ,BUF(50)      ,BUFR(50)     ,MASKS(6) ,\r\n     1                ZZ(1)     ,CEI(2)       ,FRQ(2)       ,TRN(2)   ,\r\n     2                MODAL(2)  ,DIRECT(2)    ,NAM(2)       ,VDRCOM(1)\r\n      COMMON /CONDAS/ CONSTS(5)\r\n      COMMON /BLANK / APP(2),FORM(2),SORT2,OUTPUT,SDR2  ,IMODE\r\n      COMMON /VDRCOM/ VDRCOM,IDISP ,IVEL  ,IACC  ,ISPCF ,ILOADS,ISTR  ,\r\n     1                IELF  ,IADISP,IAVEL ,IAACC ,IPNL  ,ITTL  ,ILSYM ,\r\n     2                IFROUT,IDLOAD,CASECC,EQDYN ,USETD ,INFILE,OEIGS ,\r\n     3                PP    ,XYCDB ,PNL   ,OUTFLE,OPNL1 ,SCR1  ,SCR2  ,\r\n     4                BUF1  ,BUF2  ,BUF3  ,NAM   ,BUF   ,MASKS ,CEI   ,\r\n     5                FRQ   ,TRN   ,DIRECT,XSET0 ,VDRREQ,MODAL\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /SYSTEM/ SYSBUF,XX(13),DATE(3),TIME,DUM19(19),AXIF\r\n      COMMON /NAMES / RD    ,RDREW ,WRT   ,WRTREW,CLSREW\r\n      COMMON /BITPOS/ UM    ,UO    ,UR    ,USG   ,USB   ,UL    ,UA    ,\r\n     1                UF    ,US    ,UN    ,UG    ,UE    ,UP    ,UNE   ,\r\n     2                UFE   ,UD\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /UNPAKX/ QTYPE2,I2    ,J2    ,INCR2\r\n      EQUIVALENCE     (CONSTS(2),TWOPI)   ,(CONSTS(3),RADDEG)  ,\r\n     1                (BUF(1),BUFR(1))    ,(Z(1),ZZ(1))\r\n      DATA    IGPF  , IESE,IREIG   /\r\n     1        167   , 170, 4HREIG  /\r\nC\r\nC     PERFORM GENERAL INITIALIZATION.\r\nC\r\n      M8    = -8\r\n      MSKUD = TWO(UD)\r\n      MSKUE = TWO(UE)\r\n      ILIST = 1\r\n      I2    = 1\r\n      INCR2 = 1\r\n      IREQ  = IREQQ\r\n      IF (FORM(1).NE.MODAL(1) .AND. FORM(1).NE.DIRECT(1)) GO TO 1432\r\nC\r\nC     READ TRAILER ON USETD. SET NO. OF EXTRA POINTS.\r\nC     READ TRAILER ON INFIL. SET PARAMETERS.\r\nC     IF MODAL PROBLEM, NO. OF MODES = NO. OF ROWS IN VECTOR - NO. XTRA\r\nC     PTS.\r\nC\r\n      MCB(1) = USETD\r\n      FILE   = USETD\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .NE. USETD) GO TO 2001\r\n      NBREP  = MCB(3)\r\n      MCB(1) = INFIL\r\n      CALL RDTRL (MCB)\r\n      IF (MCB(1) .NE. INFIL) GO TO 1431\r\n      NVECTS = MCB(2)\r\n      NROWS  = MCB(3)\r\n      IF (FORM(1) .EQ. MODAL(1)) NBRMOD = IMODE + NROWS - NBREP - 1\r\n      IF (MCB(5) .GT. 2) GO TO 1022\r\n      IF (APP(1) .EQ. FRQ(1)) GO TO 1022\r\nC\r\nC     REAL VECTOR.\r\nC\r\n      KTYPE  = 1\r\n      QTYPE2 = 1\r\n      NWDS   = 8\r\n      KTYPEX = 0\r\n      GO TO 1030\r\nC\r\nC     COMPLEX VECTOR.\r\nC\r\n 1022 KTYPE  = 2\r\n      QTYPE2 = 3\r\n      NWDS   = 14\r\n      KTYPEX = 1000\r\nC\r\nC     IF DIRECT PROBLEM OR MODAL PROBLEM WITH EXTRA POINTS,\r\nC     READ 2ND TABLE OF EQDYN INTO CORE. THEN READ USETD INTO CORE.\r\nC\r\n 1030 IF (FORM(1).EQ.MODAL(1) .AND. NBREP.EQ.0) GO TO 1050\r\n      FILE = EQDYN\r\n      CALL GOPEN (EQDYN,Z(BUF1),0)\r\n      CALL FWDREC (*2002,EQDYN)\r\n      CALL READ (*2002,*1031,EQDYN,Z,BUF1,1,NEQD)\r\n      CALL MESAGE (M8,0,NAM)\r\n 1031 CALL CLOSE (EQDYN,CLSREW)\r\n      IUSETD = NEQD + 1\r\n      NCORE  = BUF1 - IUSETD\r\n      FILE   = USETD\r\n      CALL GOPEN (USETD,Z(BUF1),0)\r\n      CALL READ (*2002,*1032,USETD,Z(IUSETD),NCORE,1,FLAG)\r\n      CALL MESAGE (M8,0,NAM)\r\n 1032 CALL CLOSE (USETD,CLSRRW)\r\n      ILIST  = IUSETD\r\n      NEQDYN = NEQD - 1\r\n      KN     = NEQD/2\r\nC\r\nC     BRANCH ON PROBLEM TYPE.\r\nC\r\n      IF (FORM(1) .EQ. MODAL(1)) GO TO 1049\r\nC\r\nC     DIRECT - PROCESS EACH ENTRY IN EQDYN. IF POINT IS NOT IN ANALYSIS\r\nC              SET, REPLACE SILD NO. WITH ZERO. OTHERWISE, REPLACE SILD\r\nC              NO. WITH POSITION IN ANALYSIS SET (I.E. ROW INDEX IN\r\nC              VECTOR) AND CODE INDICATING WHICH COMPONENTS OF POINT ARE\r\nC              IN ANALYSIS SET.\r\nC\r\n      DO 1044 I = 1,NEQDYN,2\r\n      SILD   = Z(I+1)/10\r\n      GPTYPE = Z(I+1) - 10*SILD\r\n      NUSETD = IUSETD + SILD - 1\r\n      K = 0\r\n      M = 1\r\n      IF (GPTYPE .EQ. 1) M = 6\r\n      J = NUSETD\r\n      DO 1041 L = 1,M\r\n      IF (ANDF(Z(J),MSKUD) .NE. 0) K = K + MASKS(L)\r\n 1041 J = J + 1\r\n      IF (K .EQ. 0) GO TO 1043\r\n      L = 1\r\n      M = NUSETD - 1\r\n      IF (M .LT. IUSETD) GO TO 1045\r\n      DO 1042 J = IUSETD,M\r\n      IF (ANDF(Z(J),MSKUD) .NE. 0) L = L + 1\r\n 1042 CONTINUE\r\n 1045 Z(I+1) = GPTYPE + K + 256*L\r\n      GO TO 1044\r\n 1043 Z(I+1) = 0\r\n 1044 CONTINUE\r\n      GO TO 1050\r\nC\r\nC     MODAL - PROCESS EACH ENTRY IN EQDYN. IF POINT IS NOT AN EXTRA\r\nC             POINT, REPLACE SILD NO. WITH ZERO. OTHERWISE, REPLACE SILD\r\nC             NO. WITH POSITION IN MODAL SET (I.E. ROW INDEX IN VECTOR).\r\nC\r\n 1049 DO 1048 I = 1,NEQDYN,2\r\n      SILD   = Z(I+1)/10\r\n      GPTYPE = Z(I+1) - 10*SILD\r\n      IF (GPTYPE .NE. 3) GO TO 1047\r\n      NUSETD = IUSETD + SILD - 1\r\n      IF (ANDF(Z(NUSETD),MSKUE) .EQ. 0) GO TO 1047\r\n      K = NBRMOD - IMODE + 1\r\n      DO 1046 J = IUSETD,NUSETD\r\n      IF (ANDF(Z(J),MSKUE) .NE. 0) K = K + 1\r\n 1046 CONTINUE\r\n      Z(I+1) = 10*K + 3\r\n      GO TO 1048\r\n 1047 Z(I+1) = 0\r\n 1048 CONTINUE\r\nC\r\nC     SET PARAMETER FOR APPROACH. THEN OPEN CASE CONTROL,\r\nC     SKIP HEADER RECORD AND BRANCH ON APPROACH.\r\nC\r\n 1050 BRANCH = 0\r\n      IF (APP(1) .EQ. CEI(1)) BRANCH = 1\r\n      IF (APP(1) .EQ. FRQ(1)) BRANCH = 2\r\n      IF (APP(1) .EQ. TRN(1)) BRANCH = 3\r\n      IF (APP(1) .EQ. IREIG ) BRANCH = 4\r\n      IF (BRANCH .EQ. 0) GO TO 1432\r\n      CALL GOPEN (CASECC,Z(BUF1),0)\r\n      GO TO (1060,1070,1070,1060), BRANCH\r\nC\r\nC     COMPLEX EIGENVALUES - READ LIST OF MODE NOS. AND VALUES INTO CORE.\r\nC\r\n 1060 FILE = OEIGS\r\n      CALL GOPEN (OEIGS,Z(BUF2),0)\r\n      CALL FWDREC (*2002,OEIGS)\r\n      I = ILIST\r\n      M = 8 - KTYPE\r\n 1061 CALL READ (*2002,*1062,OEIGS,BUF,M,0,FLAG)\r\n      Z(I  ) = BUF(1)\r\n      Z(I+1) = BUF(3)\r\n      Z(I+2) = BUF(4)\r\n      I = I + 3\r\n      GO TO 1061\r\n 1062 CALL CLOSE (OEIGS,CLSREW)\r\n      NLIST = I - 3\r\n      ICC   = I\r\n      GO TO 1100\r\nC\r\nC     FREQUENCY OR TRANSIENT RESPONSE - READ LIST INTO CORE.\r\nC\r\n 1070 FILE = PP\r\n      CALL OPEN (*2001,PP,Z(BUF2),RDREW)\r\n      I  = ILIST\r\n      M  = 3\r\n      IX = 1\r\n      IF (APP(1) .EQ. FRQ(1)) IX = 2\r\n 1071 CALL READ (*2002,*1072,PP,BUF,M,0,FLAG)\r\n      Z(I  ) = BUF(M)\r\n      Z(I+1) = 0\r\n      I = I + IX\r\n      M = 1\r\n      GO TO 1071\r\n 1072 CALL CLOSE (PP,CLSREW)\r\n      NLIST = I - IX\r\n      ICC   = I\r\nC\r\nC     OPEN OUTPUT FILE. WROTE HEADER RECORD.\r\nC\r\n 1100 FILE = OUTFL\r\n      CALL OPEN (*1431,OUTFL,Z(BUF2),WRTREW)\r\n      MCB(1) = OUTFL\r\n      CALL FNAME (OUTFL,BUF)\r\n      DO 1101 I = 1,3\r\n 1101 BUF(I+2) = DATE(I)\r\n      BUF(6) = TIME\r\n      BUF(7) = 1\r\n      CALL WRITE (OUTFL,BUF,7,1)\r\nC\r\nC     OPEN INPUT FILE. SKIP HEADER RECORD.\r\nC\r\n      FILE = INFIL\r\n      CALL OPEN (*1430,INFIL,Z(BUF3),RDREW)\r\n      CALL FWDREC (*2002,INFIL)\r\nC\r\nC     SET PARAMETERS TO KEEP CASE CONTROL AND VECTORS IN SYNCH.\r\nC\r\n      EOF    = 0\r\n      JCOUNT = 0\r\n      KCOUNT = 1\r\n      JLIST  = ILIST\r\n      KFRQ   = 0\r\n      KWDS   = 0\r\n      INCORE = 0\r\nC\r\nC     READ A RECORD IN CASE CONTROL.\r\nC\r\n 1130 CALL READ (*1400,*1131,CASECC,Z(ICC+1),BUF3-ICC,1,NCC)\r\n      CALL MESAGE (M8,0,NAM)\r\n 1131 IVEC  = ICC + NCC + 1\r\n      IREQX = ICC + IDISP\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + IVEL\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + IACC\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + ISPCF\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + ILOADS\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + ISTR\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + IELF\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + IGPF\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\n      IREQX = ICC + IESE\r\n      IF (Z(IREQX) .NE. 0) SDR2 = 1\r\nC\r\nC     SET OUTPUT HARMONICS REQUEST WHICH IS USED IF FLUID ELEMENTS\r\nC     ARE IN PROBLEM.\r\nC\r\n      OHARMS = Z(ICC+137)\r\n      IF (OHARMS.LT.0 .AND. AXIF.NE.0) OHARMS = AXIF\r\nC\r\nC     IN THE ABOVE IF OHARMS = -1  THEN ALL IS IMPLIED. IF OHARMS = 0\r\nC     THEN NONE IS IMPLIED AND IF OHARMS IS POSITIVE THEN THAT VALUE\r\nC     MINUS ONE IS IMPLIED.\r\nC\r\n      IF (AXIF   .EQ. 0) GO TO 1140\r\n      IF (OHARMS .EQ. 0) GO TO 1140\r\n      OHARMS =   OHARMS - 1\r\n      OHARMS = 2*OHARMS + 3\r\nC\r\nC     DETERMINE IF OUTPUT REQUEST IS PRESENT. IF NOT, TEST FOR RECORD\r\nC     SKIP ON INFIL, THEN GO TO END OF REQUEST. IF SO, SET POINTERS\r\nC     TO SET DEFINING REQUEST.\r\nC\r\n 1140 IREQX = ICC +IREQ\r\n      SETNO = Z(IREQX  )\r\n      DEST  = Z(IREQX+1)\r\n      XSETNO = -1\r\n      IF (SETNO) 1150,1141,1143\r\n 1141 IF (APP(1) .NE. FRQ(1)) GO TO 1142\r\n      IF (KCOUNT .NE.      1) GO TO 1350\r\n      GO TO 1150\r\n 1142 CALL FWDREC (*2002,INFIL)\r\n      JCOUNT = JCOUNT + 1\r\n      GO TO 1311\r\n 1143 IX = ICC + ILSYM\r\n      ISETNO = IX + Z(IX) + 1\r\n 1144 ISET = ISETNO + 2\r\n      NSET = Z(ISETNO+1) + ISET - 1\r\n      IF (Z(ISETNO) .EQ. SETNO) GO TO 1145\r\n      ISETNO = NSET + 1\r\n      IF (ISETNO .LT. IVEC) GO TO 1144\r\n      GO TO 1150\r\nC\r\nC     IF REQUIRED, LOCATE PRINT/PUNCH SUBSET.\r\nC\r\n 1145 IF (SETNO .LT. XSET0) GO TO 1150\r\n      XSETNO = DEST/10\r\n      DEST   = DEST - 10*XSETNO\r\n      IF (XSETNO .EQ. 0) GO TO 1150\r\n      IXSETN = IX + Z(IX) + 1\r\n 1146 IXSET  = IXSETN + 2\r\n      NXSET  = Z(IXSETN+1) + IXSET - 1\r\n      IF (Z(IXSETN) .EQ. XSETNO) GO TO 1150\r\n      IXSETN = NXSET + 1\r\n      IF (IXSETN .LT. IVEC) GO TO 1146\r\n      XSETNO = -1\r\n      SETNO  = -1\r\nC\r\nC     UNPACK VECTOR INTO CORE (UNLESS VECTOR IS ALREADY IN CORE).\r\nC\r\n 1150 IF (INCORE .NE. 0) GO TO 1160\r\n      IVECN = IVEC + KTYPE*NROWS - 1\r\n      IF (IVECN .GE. BUF3) CALL MESAGE (M8,0,NAM)\r\n      J2 = NROWS\r\n      CALL UNPACK (*1151,INFIL,Z(IVEC))\r\n      GO TO 1153\r\n 1151 DO 1152 I = IVEC,IVECN\r\n 1152 ZZ(I)  = 0.\r\n 1153 JCOUNT = JCOUNT + 1\r\nC\r\nC     TEST FOR CONTINUATION.\r\nC\r\n 1160 IF (APP(1).EQ.FRQ(1) .AND. SETNO.EQ.0) GO TO 1350\r\nC\r\nC     PREPARE TO WRITE ID RECORD ON OUTPUT FILE.\r\nC\r\n      GO TO (1190,1200,1220,1190), BRANCH\r\nC\r\nC     COMPLEX EIGENVALUES.\r\nC\r\n 1190 BUF(2) = 1014\r\n      BUF(5) = Z(JLIST  )\r\n      BUF(6) = Z(JLIST+1)\r\n      BUF(7) = Z(JLIST+2)\r\n      BUF(8) = 0\r\n      GO TO 1250\r\nC\r\nC     FREQUENCY RESPONSE.\r\nC\r\n 1200 IX = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\n      IF (KFRQ .NE. 0) GO TO 1207\r\nC\r\nC     FIRST TIME FOR THIS LOAD VECTOR ONLY - MATCH LIST OF USER\r\nC     REQUESTED FREQS WITH ACTUAL FREQS. MARK FOR OUTPUT EACH ACTUAL\r\nC     FREQ WHICH IS CLOSEST TO USER REQUEST.\r\nC\r\n      KFRQ = 1\r\n      IX   = ICC + IFROUT\r\n      FSETNO = Z(IX)\r\n      IF (FSETNO .LE. 0) GO TO 1202\r\n      IX = ICC + ILSYM\r\n      ISETNF = IX + Z(IX) + 1\r\n 1201 ISETF  = ISETNF + 2\r\n      NSETF  = Z(ISETNF+1) + ISETF - 1\r\n      IF (Z(ISETNF) .EQ. FSETNO) GO TO 1204\r\n      ISETNF = NSETF + 1\r\n      IF (ISETNF .LT. IVEC) GO TO 1201\r\n      FSETNO = -1\r\n 1202 DO 1203 J = ILIST,NLIST,2\r\n 1203 Z(J+1) = 1\r\n      GO TO 1207\r\n 1204 DO 1206 I = ISETF,NSETF\r\n      K    = 0\r\n      DIFF = 1.E+25\r\n      BUFR(1) = ZZ(I)\r\n      DO 1205 J = ILIST,NLIST,2\r\n      IF (Z(J+1) .NE. 0) GO TO 1205\r\n      DIFF1 = ABS(ZZ(J) - BUFR(1))\r\n      IF (DIFF1 .GE. DIFF) GO TO 1205\r\n      DIFF = DIFF1\r\n      K = J\r\n 1205 CONTINUE\r\n      IF (K .NE. 0) Z(K+1) = 1\r\n 1206 CONTINUE\r\nC\r\nC     DETERMINE IF CURRENT FREQ IS MARKED FOR OUTPUT.\r\nC\r\n 1207 IF (Z(JLIST+1) .EQ. 0) GO TO 1350\r\n      BUF(5) = Z(JLIST)\r\n      BUF(2) = KCOUNT + 1014\r\n      GO TO 1250\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n 1220 BUF(5) = Z(JLIST)\r\n      BUF(2) = KCOUNT + 14\r\n      IF (IREQ .EQ. IPNL) BUF(2) = 12\r\n      IX     = ICC + IDLOAD\r\n      BUF(8) = Z(IX)\r\n      BUF(6) = 0\r\n      BUF(7) = 0\r\nC\r\nC     WRITE ID RECORD ON OUTPUT FILE.\r\nC\r\n 1250 IX = BRANCH + 3\r\n      IF (APP(1) .EQ. CEI(1)) IX = 9\r\n      IF (APP(1) .EQ. IREIG ) IX = 2\r\n      BUF(1) = DEST + 10*IX\r\n      BUF(3) = 0\r\n      BUF(4) = Z(ICC+1)\r\n      IF (Z(IREQX+2) .LT. 0) SORT2 = +1\r\n      FORMAT  = IABS(Z(IREQX+2))\r\n      BUF(9)  = FORMAT\r\n      BUF(10) = NWDS\r\n      CALL WRITE (OUTFL,BUF,50,0)\r\n      IX = ICC + ITTL\r\n      CALL WRITE (OUTFL,Z(IX),96,1)\r\n      OUTPUT = 1\r\n      IF (Z(IREQX+2) .LT. 0) SORT2 = 1\r\nC\r\nC     BUILD DATA RECORD ON OUTPUT FILE.\r\nC\r\n      IF (FORM(1) .EQ. MODAL(1)) GO TO 1270\r\n      IF (SETNO .NE. -1) GO TO 1263\r\nC\r\nC     DIRECT PROBLEM SET .EQ. -ALL- - OUTPUT POINTS IN ANALYSIS SET\r\nC\r\n      KX = 1\r\n      ASSIGN 1262 TO RETX\r\n 1261 WORD = Z(KX+1)\r\n      IF (WORD .EQ. 0) GO TO RETX, (1262,1265,1268)\r\n      J      = WORD/256\r\n      BUF(2) = ANDF(WORD,3)\r\n      CODE   = WORD - 256*J - BUF(2)\r\n      BUF(1) = Z(KX)\r\n      IF (BUF(2) .EQ. 1) GO TO 1300\r\n      GO TO 1290\r\n 1262 KX = KX + 2\r\n      IF (KX .LE. NEQDYN) GO TO 1261\r\n      GO TO 1310\r\nC\r\nC     DIRECT PROBLEM WITH SET .NE. -ALL- OUTPUT POINTS IN REQUESTED SET\r\nC                                        WHICH ARE ALSO IN ANALYSIS SET.\r\nC\r\n 1263 JHARM = 0\r\n 1267 I = ISET\r\n      ASSIGN 1261 TO RET\r\n 1264 BUF(1) = Z(I)\r\n      IF (I   .EQ. NSET) GO TO 1266\r\n      IF (Z(I+1) .GT. 0) GO TO 1266\r\n      N = -Z(I+1)\r\n      I = I + 1\r\n      ASSIGN 1265 TO RETX\r\n      GO TO 3000\r\n 1265 BUF(1) = BUF(1) + 1\r\n      IF (BUF(1) .LE. N) GO TO 3000\r\n      GO TO 1268\r\n 1266 ASSIGN 1268 TO RETX\r\n      GO TO 3000\r\n 1268 I = I + 1\r\n      IF (I .LE. NSET) GO TO 1264\r\n      IF (AXIF .EQ. 0) GO TO 1310\r\n      JHARM = JHARM + 1\r\n      IF (JHARM .LE. OHARMS) GO TO 1267\r\n      GO TO 1310\r\nC\r\nC     MODAL PROBLEM WITH SET .EQ. -ALL- OUTPUT ALL MODAL POINTS. THEN\r\nC                                       IF EXTRA POINTS, OUTPUT THEM.\r\nC\r\n 1270 IF (SETNO .NE. -1) GO TO 1275\r\n      BUF(1) = IMODE\r\n      BUF(2) = 4\r\n      J = 1\r\n      ASSIGN 1271 TO RETX\r\n      GO TO 1290\r\n 1271 BUF(1) = BUF(1) + 1\r\n      J = BUF(1) - IMODE + 1\r\n      IF (BUF(1) .LE. NBRMOD) GO TO 1290\r\n      IF (NBREP .EQ. 0) GO TO 1310\r\n      KX = 1\r\n      ASSIGN 1273 TO RETX\r\n      BUF(2) = 3\r\n 1272 J = Z(KX+1)/10\r\n      GPTYPE = Z(KX+1) - 10*J\r\n      BUF(1) = Z(KX)\r\n      IF (GPTYPE .EQ. 3) GO TO 1290\r\n 1273 KX = KX + 2\r\n      IF (KX .LE. NEQDYN) GO TO 1272\r\n      GO TO 1310\r\nC\r\nC     MODAL PROBLEM WITH SET .NE. -ALL- ASSUME NUMBERS IN REQUESTED SET\r\nC                                       WHICH ARE .LE. NO. OF MODES ARE\r\nC                                       MODAL COORDINATES AND ANY OTHERS\r\nC                                       ARE EXTRA POINTS.\r\nC\r\n 1275 JHARM = 0\r\n 1274 I = ISET\r\n 1276 BUF(1) = Z(I)\r\n      IF (I   .EQ. NSET) GO TO 1281\r\n      IF (Z(I+1) .GT. 0) GO TO 1281\r\n      N = -Z(I+1)\r\n      BUF(2) = 4\r\n      I = I + 1\r\n      ASSIGN 1278 TO RETX\r\n 1277 IF (BUF(1).LT.IMODE .OR. BUF(1).GT.NBRMOD) GO TO 1279\r\n      J = BUF(1) - IMODE + 1\r\n      GO TO 1290\r\n 1278 BUF(1) = BUF(1) + 1\r\n      IF (BUF(1) .LE. N) GO TO 1277\r\n      GO TO 1284\r\n 1279 IF (NBREP .EQ. 0) GO TO 1284\r\n      ASSIGN 1280 TO RET\r\n      BUF(2) = 3\r\n      GO TO 3000\r\n 1280 J = Z(KX+1)/10\r\n      GPTYPE = Z(KX+1) - 10*J\r\n      IF (GPTYPE .EQ. 3) GO TO 1290\r\n      GO TO 1278\r\n 1281 ASSIGN 1284 TO RETX\r\n      IF (BUF(1).LT.IMODE .OR. BUF(1).GT.NBRMOD) GO TO 1282\r\n      ASSIGN 1284 TO RETX\r\n      J = BUF(1) - IMODE + 1\r\n      BUF(2) = 4\r\n      GO TO 1290\r\n 1282 IF (NBREP .EQ. 0) GO TO 1284\r\n      ASSIGN 1283 TO RET\r\n      GO TO 3000\r\n 1283 J = Z(KX+1)/10\r\n      BUF(2) = Z(KX+1) - 10*J\r\n      IF (BUF(2) .EQ. 3) GO TO 1290\r\n 1284 I = I + 1\r\n      IF (I .LE. NSET) GO TO 1276\r\n      IF (AXIF .EQ. 0) GO TO 1310\r\n      JHARM = JHARM + 1\r\n      IF (JHARM .LE. OHARMS) GO TO 1274\r\n      GO TO 1310\r\nC\r\nC     SCALAR, EXTRA OR MODAL POINT.\r\nC\r\n 1290 J = IVEC + KTYPE*(J-1)\r\n      BUFR(3) = ZZ(J)\r\n      DO 1293 K = 4,NWDS\r\n 1293 BUF(K) = 0\r\n      IF (KTYPE .EQ. 1) GO TO 1309\r\nC\r\nC     COMPLEX SCALAR, EXTRA OR MODAL POINT.\r\nC\r\n      BUFR(9) = ZZ(J+1)\r\n      IF (FORMAT .NE. 3) GO TO 1309\r\n      REDNER = SQRT(BUFR(3)**2 + BUFR(9)**2)\r\n      IF (REDNER) 12921,1309,12921\r\n12921 BUFR(9) = ATAN2(BUFR(9),BUFR(3))*RADDEG\r\n      IF (BUFR(9) .LT. -0.00005) BUFR(9) = BUFR(9) + 360.0\r\n      BUFR(3) = REDNER\r\n      GO TO 1309\r\nC\r\nC     GRID POINT.\r\nC\r\n 1300 DO 1301 K = 3,NWDS\r\n 1301 BUF(K) = 1\r\n      J = IVEC + KTYPE*(J-1)\r\n      IF (KTYPE .EQ. 2) GO TO 1303\r\n      DO 1302 K = 1,6\r\n      IF (ANDF(CODE,MASKS(K)) .EQ. 0) GO TO 1302\r\n      BUFR(K+2) = ZZ(J)\r\n      J = J + 1\r\n 1302 CONTINUE\r\n      GO TO 1309\r\nC\r\nC     COMPLEX GRID POINT.\r\nC\r\n 1303 DO 1305 K = 1,6\r\n      IF (ANDF(CODE,MASKS(K)) .EQ. 0) GO TO 1305\r\n      BUFR(K+2) = ZZ(J  )\r\n      BUFR(K+8) = ZZ(J+1)\r\n      J = J + 2\r\n      IF (FORMAT .NE. 3) GO TO 1305\r\n      REDNER = SQRT(BUFR(K+2)**2 + BUFR(K+8)**2)\r\n      IF (REDNER) 13031,1305,13031\r\n13031 BUFR(K+8) = ATAN2(BUFR(K+8),BUFR(K+2))*RADDEG\r\n      IF (BUFR(K+8) .LT. -0.00005) BUFR(K+8)= BUFR(K+8) + 360.0\r\n      BUFR(K+2) = REDNER\r\n 1305 CONTINUE\r\nC\r\nC     DETERMINE DESTINATION FOR ENTRY.\r\nC\r\nC\r\nC     IF A FLUID PROBLEM THEN A CHECK IS NOW MADE TO SEE IF THIS\r\nC     HARMONIC IS TO BE OUTPUT\r\nC\r\n 1309 IF (AXIF) 1315,1314,1315\r\n 1315 IF (BUF(1) .LT. 500000) GO TO 1314\r\n      ITEMP = BUF(1) - MOD(BUF(1),500000)\r\n      ITEMP = ITEMP/500000\r\n      IF (ITEMP .GE. OHARMS) GO TO 1310\r\n 1314 ID = BUF(1)\r\n      BUF(1) = 10*ID + DEST\r\n      IF (XSETNO) 1304,1306,1307\r\n 1306 BUF(1) = 10*ID\r\n      GO TO 1304\r\n 1307 IX = IXSET\r\n 1313 IF (IX  .EQ. NXSET) GO TO 1308\r\n      IF (Z(IX+1) .GT. 0) GO TO 1308\r\n      IF (ID.GE.Z(IX) .AND. ID.LE.-Z(IX+1)) GO TO 1304\r\n      IX = IX + 2\r\n      GO TO 1312\r\n 1308 IF (ID .EQ. Z(IX)) GO TO 1304\r\n      IX = IX + 1\r\n 1312 IF (IX .LE. NXSET) GO TO 1313\r\n      GO TO 1306\r\nC\r\nC     WRITE ENTRY ON OUTPUT FILE.\r\nC\r\n 1304 CALL WRITE (OUTFL,BUF,NWDS,0)\r\n      KWDS = KWDS + NWDS\r\n      BUF(1) = ID\r\n      GO TO RETX, (1262,1265,1268,1271,1273,1278,1284)\r\nC\r\nC     CONCLUDE PROCESSING OF THIS VECTOR.\r\nC\r\n 1310 CALL WRITE (OUTFL,0,0,1)\r\n 1311 GO TO (1340,1350,1360,1340), BRANCH\r\nC\r\nC     COMPLEX EIGENVALUES.\r\nC\r\n 1340 JLIST = JLIST + 3\r\n 1341 IF (JCOUNT .GE. NVECTS) GO TO 1410\r\n      IF (EOF .EQ. 0) GO TO 1130\r\n      GO TO 1140\r\nC\r\nC     FREQUENCY RESPONSE.\r\nC\r\n 1350 IF (KCOUNT .EQ. 3) GO TO 1356\r\n      N = IVECN - 1\r\n      OMEGA = TWOPI*ZZ(JLIST)\r\n      DO 1351 I = IVEC,N,2\r\n      BUFR(1) = -OMEGA*ZZ(I+1)\r\n      ZZ(I+1) =  OMEGA*ZZ(I  )\r\n 1351 ZZ(I  ) =  BUFR(1)\r\n      IF (KCOUNT .EQ. 2) GO TO 1352\r\n      IREQ = IAVEL\r\n      GO TO 1353\r\n 1352 IREQ = IAACC\r\n 1353 KCOUNT = KCOUNT + 1\r\n      INCORE = 1\r\n      GO TO 1140\r\n 1356 KCOUNT = 1\r\n      INCORE = 0\r\n      IREQ   = IADISP\r\n      JLIST  = JLIST + 2\r\n      IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 1140\r\n      KFRQ  = 0\r\n      JLIST = ILIST\r\n      DO 1357 I = ILIST,NLIST,2\r\n 1357 Z(I+1) = 0\r\n      IF (JCOUNT .LT. NVECTS) GO TO 1130\r\n      GO TO 1410\r\nC\r\nC     TRANSIENT RESPONSE.\r\nC\r\n 1360 IF (IREQ .EQ. IPNL) GO TO 1364\r\n      IF (KCOUNT-2) 1361,1362,1363\r\n 1361 IREQ   = IAVEL\r\n      KCOUNT = 2\r\n      GO TO 1140\r\n 1362 IREQ   = IAACC\r\n      KCOUNT = 3\r\n      GO TO 1140\r\n 1363 IREQ   = IADISP\r\n      KCOUNT = 1\r\n 1364 JLIST  = JLIST + 1\r\n      IF (JLIST.LE.NLIST .AND. JCOUNT.LT.NVECTS) GO TO 1140\r\n      GO TO 1410\r\nC\r\nC     HERE WHEN EOF ENCOUNTERED ON CASE CONTROL.\r\nC\r\n 1400 EOF = 1\r\n      GO TO (1341,1410,1410,1341), BRANCH\r\nC\r\nC     CONCLUDE PROCESSING.\r\nC\r\n 1410 CALL CLOSE (CASECC,CLSREW)\r\n      CALL CLOSE (INFIL, CLSREW)\r\n      CALL CLOSE (OUTFL, CLSREW)\r\n      MCB(1) = OUTFL\r\n      MCB(2) = KWDS/65536\r\n      MCB(3) = KWDS - 65536*MCB(2)\r\n      MCB(4) = 0\r\n      MCB(5) = 0\r\n      MCB(6) = 0\r\n      MCB(7) = 0\r\n      CALL WRTTRL (MCB)\r\n      RETURN\r\nC\r\nC     HERE IF ABNORMAL CONDITION.\r\nC\r\n 1430 CALL CLOSE (OUTFL,CLSREW)\r\n 1431 CALL MESAGE (30,78,0)\r\n 1432 RETURN\r\nC\r\nC     FATAL FILE ERRORS\r\nC\r\n 2001 N = -1\r\n      GO TO 2005\r\n 2002 N = -2\r\n 2005 CALL MESAGE (N,FILE,NAM)\r\n      RETURN\r\nC\r\nC     BINARY SEARCH ROUTINE\r\nC\r\n 3000 KLO = 1\r\n      KHI = KN\r\n      IF (AXIF) 3011,3001,3011\r\n 3011 BUF(1) = JHARM*500000 + BUF(1)\r\n 3001 K  = (KLO+KHI+1)/2\r\n 3002 KX = 2*K - 1\r\n      IF (BUF(1)-Z(KX)) 3003,3009,3004\r\n 3003 KHI = K\r\n      GO TO 3005\r\n 3004 KLO = K\r\n 3005 IF (KHI-KLO-1) 3010,3006,3001\r\n 3006 IF (K .EQ. KLO) GO TO 3007\r\n      K = KLO\r\n      GO TO 3008\r\n 3007 K = KHI\r\n 3008 KLO = KHI\r\n      GO TO 3002\r\n 3009 GO TO RET,  (1261,1280,1283)\r\n 3010 GO TO RETX, (1262,1265,1268,1273,1278,1284)\r\n      END\r\n"
  },
  {
    "path": "mis/vec.f",
    "content": "      SUBROUTINE VEC\r\nC\r\nC     THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,X / C,N,X0 / C,N,X1 $\r\nC          OR       VEC USETD / V / C,N,X / C,N,X0 / C,N,X1 $\r\nC\r\nC     ALTERNATE FORM OF THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,X / C,N,X0 / C,N,COMP $\r\nC          OR       VEC USETD / V / C,N,X / C,N,X0 / C,N,COMP $\r\nC\r\nC     ALTERNATE FORM OF THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,X / C,N,COMP / C,N,X1 $\r\nC          OR       VEC USETD / V / C,N,X / C,N,COMP / C,N,X1 $\r\nC\r\nC     ALTERNATE FORM OF THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,BITID / C,N,* / C,N,* / C,N,I $\r\nC          OR       VEC USET  / V / C,N,BITID / C,N,X1 $\r\nC          OR       VEC USETD / V / C,N,BITID / C,N,* / C,N,* / C,N,I $\r\nC          OR       VEC USETD / V / C,N,BITID / C,N,X1 $\r\nC\r\nC     ALTERNATE FORM OF THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,COLUMNS / C,N,LEFT  / C,N,* /\r\nC                                                             C,N,I $\r\nC          OR       VEC USETD / V / C,N,COLUMNS / C,N,LEFT  / C,N,* /\r\nC                                                             C,N,I $\r\nC                   ( V WILL HAVE -I- COLUMNS GENERATED FROM BIT\r\nC                     POSITIONS 1,2,3,...,I OF USET (OR USETD) WHERE\r\nC                     THE 32 RIGHT-MOST BITS ARE CONSIDERED, COUNTING\r\nC                     FROM LEFT TO RIGHT. )\r\nC\r\nC     ALTERNATE FORM OF THE CALL TO THIS MODULE IS\r\nC                   VEC USET  / V / C,N,COLUMNS / C,N,RIGHT / C,N,* /\r\nC                                                             C,N,I $\r\nC          OR       VEC USETD / V / C,N,COLUMNS / C,N,RIGHT / C,N,* /\r\nC                                                             C,N,I $\r\nC                   ( V WILL HAVE -I- COLUMNS GENERATED FROM BIT\r\nC                     POSITIONS 32,31,...,33-I OF USET (OR USETD) WHERE\r\nC                     THE 32 RIGHT-MOST BITS ARE CONSIDERED, COUNTING\r\nC                     FROM LEFT TO RIGHT. )\r\nC\r\nC\r\nC     CORE REQUIREMENTS.. ONE BUFFER PLUS USET (OR USETD).\r\nC     FOR COLUMNS OPTION, ONE GINO BUFFER PLUS 2*USET (OR USETD) REQD.\r\nC\r\nC\r\n      EXTERNAL        ANDF\r\n      LOGICAL         LZ,L0,L1,COLS,FLAG1,FLAG2\r\n      INTEGER         ANDF,MODNAM(2),FI,FO,F,NAM(2),T(7),TWO,\r\n     1                P(2),P1,P2,P3,P4,BN,BLANK,TYIN,TYOU,B(2),C(2),\r\n     2                OFFSET,D(2),LR(2,2)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / P1(2),P2(2),P3(2),P4\r\n     1       /ZZZZZZ/ X(1)\r\n     2       /SYSTEM/ LB,NOUT,NERR\r\n     3       /BITPOS/ BN(32,2)\r\n     4       /PACKX / TYIN,TYOU,II,NN,INCR\r\n     5       /TWO   / TWO(32)\r\n      EQUIVALENCE     (NR,T(3))\r\n      DATA    NERMAX, BLANK / 10,1H /\r\n      DATA    B,C,D / 4HBITI,4HD    ,4HCOMP,4H     ,4HCOLU,4HMNS  /\r\n      DATA    LR    / 4HRIGH,4HT    ,4HLEFT,4H     /\r\n      DATA    MODNAM/ 4HVEC ,4H     /\r\n      DATA    FI,FO , NBN   / 101,201, 32          /\r\nC\r\nC\r\n      FLAG1  = .FALSE.\r\n      FLAG2  = .FALSE.\r\n      OFFSET = 0\r\n      NERR   = 0\r\n      LZ     = .FALSE.\r\n      L0     = .FALSE.\r\n      L1     = .FALSE.\r\n      LC     = KORSZ(X) - LB\r\n      IF (LC .LE. 0) CALL MESAGE (-8,LC,MODNAM)\r\n      IB = LC + 1\r\nC\r\nC     CHECK PARAMETER VALUES AND COMPUTE MASKS.\r\nC\r\n      IF (P1(1).NE.D(1) .OR. P1(2).NE.D(2)) GO TO 5\r\n      COLS = .TRUE.\r\n      DO 3 J = 1,2\r\n      IF (P2(1).EQ.LR(1,J) .AND. P2(2).EQ.LR(2,J)) GO TO 4\r\n    3 CONTINUE\r\n      J = 2\r\n    4 J = 2*J - 3\r\n      GO TO 13\r\n    5 CONTINUE\r\n      COLS = .FALSE.\r\n      IF (P1(1).EQ.B(1) .AND. P1(2).EQ.B(2)) GO TO 13\r\n      IF (P1(2) .NE. BLANK) GO TO 11\r\n      DO 10 I = 1,NBN\r\n      IF (P1(1) .EQ. BN(I,2)) GO TO 19\r\n   10 CONTINUE\r\n   11 P(1) = P1(1)\r\n      P(2) = P1(2)\r\n      GO TO 9904\r\n   13 LZ   = .TRUE.\r\n      L0   = .TRUE.\r\n      IF (P4.LT.0 .OR. P4.GT.32) GO TO 9908\r\n      IF (COLS) GO TO 50\r\n      IF (P4 .GT. 0) GO TO 18\r\n      IF (P2(2) .NE. BLANK) GO TO 21\r\n      DO 15 I = 1,NBN\r\n      IF (P2(1) .EQ. BN(I,2)) GO TO 35\r\n   15 CONTINUE\r\n      GO TO 21\r\n   18 MASKX1 = TWO(P4)\r\n      GO TO 50\r\n   19 I = BN(I,1)\r\n      MASKX  = TWO(I)\r\nC\r\n      IF (P2(1).EQ.C(1) .AND. P2(2).EQ.C(2)) GO TO 23\r\n      IF (P2(2) .NE. BLANK) GO TO 21\r\n      DO 20 I = 1,NBN\r\n      IF (P2(1) .EQ. BN(I,2)) GO TO 25\r\n   20 CONTINUE\r\n   21 P(1) = P2(1)\r\n      P(2) = P2(2)\r\n      GO TO 9904\r\n   23 L0   = .TRUE.\r\n      GO TO 26\r\n   25 I    = BN(I,1)\r\n      MASKX0 = TWO(I)\r\nC\r\n   26 CONTINUE\r\n      IF (P3(1).EQ.C(1) .AND. P3(2).EQ.C(2)) GO TO 33\r\n      IF (P3(2) .NE. BLANK) GO TO 31\r\n      DO 30 I = 1,NBN\r\n      IF (P3(1) .EQ. BN(I,2)) GO TO 35\r\n   30 CONTINUE\r\n   31 P(1) = P3(1)\r\n      P(2) = P3(2)\r\n      GO TO 9904\r\n   33 L1   = .TRUE.\r\n      IF (L0) GO TO 9907\r\n      GO TO 50\r\n   35 I    = BN(I,1)\r\n      MASKX1 = TWO(I)\r\nC\r\nC     BLAST READ USET (OR USETD) INTO CORE.\r\nC\r\n   50 CONTINUE\r\n      F = FI\r\n      CALL FNAME (F,NAM)\r\n      CALL GOPEN (F,X(IB),0)\r\n      CALL READ (*9902,*100,F,X,LC,0,NW)\r\nC\r\nC     INSUFFICIENT CORE - IF DESIRED, THIS ROUTINE CAN BE WRITTEN TO\r\nC     RUN IN SMALLER CORE.\r\nC\r\n      LCEX = 0\r\n   70 CALL READ (*9902,*80,F,X,LC,0,NW)\r\n      LCEX = LCEX + LC\r\n      GO TO 70\r\n   80 LCEX = LCEX + NW\r\n      IF (COLS) LCEX = 2*LCEX\r\n      GO TO 9903\r\n  100 CONTINUE\r\n      CALL CLOSE (F,1)\r\n      IF (.NOT.COLS) GO TO 150\r\n      IF (P4 .LE. 0) GO TO 9908\r\n      OFFSET = NW\r\n      K = 1\r\n      L = 1\r\n      IF (J .LT. 0) K = 32\r\n      MASKX1 = TWO(K)\r\n      IF (2*NW .LE. LC) GO TO 150\r\n      LCEX = 2*NW - LC\r\n      GO TO 9903\r\n  150 CONTINUE\r\nC\r\nC     PREPARE OUTPUT FILE.\r\nC\r\n      F = FO\r\n      CALL GOPEN  (F,X(IB),1)\r\n      CALL MAKMCB (T,F,0,2,1)\r\n      TYIN = 1\r\n      TYOU = 1\r\n      II   = 1\r\n      INCR = 1\r\nC\r\nC     CREATE VECTOR IN CORE OCCUPIED BY USET (OR USETD).\r\nC\r\n  170 NR = 0\r\n      NZ = 0\r\nC\r\n      DO 500 I = 1,NW\r\n      IF (LZ) GO TO 220\r\n      IF (ANDF(X(I),MASKX) .EQ. 0) GO TO 400\r\n  220 CONTINUE\r\n      IF (.NOT.L0) GO TO 230\r\n      IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 370\r\n      GO TO 300\r\n  230 IF (.NOT.L1) GO TO 240\r\n      IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 300\r\n      GO TO 370\r\n  240 CONTINUE\r\n      IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 350\r\n      IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 300\r\n      NERR = NERR + 1\r\n      IF (NERR .GT. NERMAX) GO TO 500\r\n      WRITE  (NOUT,250) UFM,I\r\n  250 FORMAT (A23,' 2120, MODULE VEC - BOTH SUBSET BITS ARE NON-ZERO.',\r\n     1       3X,'I =',I10)\r\n      GO TO 500\r\n  300 NR = NR + 1\r\n      NZ = NZ + 1\r\n      X(NR+OFFSET) = 1.0\r\n      GO TO 500\r\n  350 CONTINUE\r\n      IF (ANDF(X(I),MASKX0) .NE. 0) GO TO 370\r\n      NERR = NERR + 1\r\n      IF (NERR .GT. NERMAX) GO TO 500\r\n      WRITE  (NOUT,360) UFM,I\r\n  360 FORMAT (A23,' 2121, MODULE VEC - BOTH SUBSET BITS ARE ZERO.',3X,\r\n     1       'I =',I10)\r\n      GO TO 500\r\n  370 NR = NR + 1\r\n      X(NR+OFFSET) = 0.0\r\n      GO TO 500\r\n  400 IF (L0) GO TO 450\r\n      IF (ANDF(X(I),MASKX0) .EQ. 0) GO TO 450\r\n      NERR = NERR + 1\r\n      IF (NERR .GT. NERMAX) GO TO 450\r\n      WRITE  (NOUT,410) UFM,I\r\n  410 FORMAT (A23,' 2122, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X0',\r\n     1       ' BIT IS NOT.  I =',I10)\r\n  450 IF (L1) GO TO 500\r\n      IF (ANDF(X(I),MASKX1) .EQ. 0) GO TO 500\r\n      NERR = NERR + 1\r\n      IF (NERR .GT. NERMAX) GO TO 500\r\n      WRITE  (NOUT,460) UFM,I\r\n  460 FORMAT (A23,' 2123, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X1',\r\n     1       ' BIT IS NOT.  I =',I10)\r\n  500 CONTINUE\r\nC\r\n      IF (NERR .LE. 0) GO TO 540\r\n      IF (NERR-NERMAX) 9995,9995,9906\r\n  540 CONTINUE\r\nC\r\n      IF (FLAG1) GO TO 600\r\n      FLAG1 = .TRUE.\r\n      IF (NR .GT. 0) GO TO 600\r\n      WRITE  (NOUT,550) UWM\r\n  550 FORMAT (A25,' 2124, MODULE VEC - NR=0, OUTPUT WILL BE PURGED.')\r\n      GO TO 900\r\n  600 IF (NZ .GT. 0) GO TO 700\r\n      IF (FLAG2) GO TO 700\r\n      FLAG2 = .TRUE.\r\n      WRITE  (NOUT,650) UWM\r\n  650 FORMAT (A25,' 2125, MODULE VEC - NZ=0, ONE OR MORE COLUMNS OF ',\r\n     1       'OUTPUT MATRIX WILL BE NULL.')\r\n      GO TO 750\r\n  700 CONTINUE\r\nC\r\nC     PACK OUT COLUMN OF OUTPUT VECTOR.\r\nC\r\n  750 NN = NR\r\n      CALL PACK (X(OFFSET+1),F,T)\r\n      IF (.NOT.COLS .OR. L.GE.P4) GO TO 800\r\n      L = L + 1\r\n      K = K + J\r\n      MASKX1 = TWO(K)\r\n      GO TO 170\r\n  800 CALL WRTTRL (T)\r\n  900 CALL CLOSE  (F,1)\r\nC\r\n      RETURN\r\nC\r\nC     ERROR PROCESSING.\r\nC\r\n 9902 WRITE  (NOUT,9952) UFM,F,NAM\r\n 9952 FORMAT (A23,' 2141, MODULE VEC - EOF ENCOUNTERED WHILE READING ',\r\n     1       'GINO FILE ',I3,', DATA BLOCK ',2A4)\r\n      GO TO 9995\r\n 9903 WRITE  (NOUT,9953) UFM,LC,LCEX\r\n 9953 FORMAT (A23,' 2142, INSUFFICIENT CORE FOR MODULE VEC.  AVAILABLE',\r\n     1       ' CORE =',I11,' WORDS.', /5X,\r\n     2       'ADDITIONAL CORE NEEDED =',I11,' WORDS.')\r\n      GO TO 9995\r\n 9904 WRITE  (NOUT,9954) UFM,P\r\n 9954 FORMAT (A23,' 2143, MODULE VEC UNABLE TO IDENTIFY SET OR SUBSET ',\r\n     1       'DESCRIPTOR ',2A4)\r\n      GO TO 9995\r\n 9906 WRITE  (NOUT,9956) UFM,NERR,NERMAX\r\n 9956 FORMAT (A23,' 2145,',I8,' FATAL MESSAGES HAVE BEEN GENERATED IN',\r\n     1       ' SUBROUTINE VEC.', /5X,\r\n     2       'ONLY THE FIRST',I4,' HAVE BEEN PRINTED.')\r\n      GO TO 9995\r\n 9907 WRITE  (NOUT,9957) UFM\r\n 9957 FORMAT (A23,' 2146, BOTH OF THE SECOND AND THIRD VEC PARAMETERS ',\r\n     1       'REQUEST COMPLEMENT.')\r\n      GO TO 9995\r\n 9908 WRITE  (NOUT,9958) UFM,P4\r\n 9958 FORMAT (A23,' 2150, ILLEGAL VALUE FOR FOURTH PARAMETER =',I11)\r\n      GO TO 9995\r\n 9995 CALL MESAGE (-61,0,0)\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/vecprt.f",
    "content": "      SUBROUTINE VECPRT (*,*,PX,NX,A,OX)\r\nC\r\n      INTEGER         P,PX,O,OX,COUNT,EJECT,PM,TRA,RSP,RDP,CSP,CDP\r\n      DIMENSION       A(NX)\r\n      COMMON /SYSTEM/ SKP1,MO,SKP2(6),MAXLIN,SKP3(2),COUNT\r\n      DATA            RSP,RDP,CSP,CDP / 1,2,3,4 /\r\nC\r\nC     PX = VECTOR TYPE + PRECISION.\r\nC     NX = VECTOR LENGTH.\r\nC     A  = VECTOR LOCATION.\r\nC\r\nC     THE VECTOR COMPONENTS WILL BE PRINTED 6 PER LINE IF REAL OR\r\nC                IMAGINARY, AND 3 PER LINE IF COMPLEX.\r\nC          O = 0 IF ALL THE VECTOR COMPONENTS ARE TO BE PRINTED, AND IF\r\nC                THEY ARE TO BE PRINTED STARTING ON A NEW PAGE IF THEY\r\nC                WILL NOT FIT ON THE CURRENT PAGE.\r\nC          O = 1 IF ONLY THOSE LINES WHICH HAVE AT LEAST ONE NON-ZERO\r\nC                COMPONENT ARE TO BE PRINTED, AND IF THE VECTOR IS TO BE\r\nC                PRINTED STARTING ON A NEW PAGE IF IT WILL NOT FIT ON\r\nC                THE CURRENT PAGE.\r\nC          O =-1 IF ONLY THOSE LINES WHICH HAVE AT LEAST ONE NON-ZERO\r\nC                COMPONENT ARE TO BE PRINTED, AND IF THE VECTOR IS TO BE\r\nC                PRINTED ON THE CURRENT PAGE UNLESS TWO LINES WILL NOT\r\nC                FIT.\r\nC\r\nC     RETURN 1 - PRINT SUBTITLE + VECTOR IDENTIFICATION.\r\nC     RETURN 2 - PRINT VECTOR IDENTIFICATION ONLY.\r\nC                PRTVEC = RETURN ENTRY POINT.\r\nC\r\n      P = PX\r\n      N = NX\r\n      O = OX\r\nC\r\n      PM = P\r\n      IF (P .EQ. RDP) PM = RSP\r\n      IF (P .EQ. CDP) PM = CSP\r\n      KK = 1\r\n      IF (PM .EQ. CSP) KK = 2\r\n      IF (P.EQ.RDP .OR. P.EQ.CDP) KK = 2*KK\r\n      KN = KK*N\r\n      IF (PM .EQ. CSP) KK = KK/2\r\n      K6 = KK*6\r\n      IF (O .EQ. 0) GO TO 40\r\nC\r\n      M = 1\r\n      DO 30 K = 1,KN,K6\r\n      L = K + K6 - KK\r\n      IF (L .GT. KN)  L = KN\r\n      DO 10 I = K,L,KK\r\n      IF (A(I) .NE. 0.) GO TO 20\r\n   10 CONTINUE\r\n      GO TO 30\r\n   20 M = M + 1\r\n   30 CONTINUE\r\n      IF (M .EQ. 1) GO TO 160\r\nC\r\n      IF (O .LT. 0) M = 2\r\n      GO TO 50\r\n   40 M = (N+5)/6 + 1\r\n      IF (PM .EQ. CSP) M = (N+2)/3 + 2\r\n   50 ASSIGN 60 TO TRA\r\n      IF (EJECT(M)) 170,180,170\r\n   60 COUNT = COUNT - M\r\n      KNKK  = KN/KK\r\n      IF (KNKK .GT. 6) GO TO 70\r\n      CALL FORMAT (A,1,KN,KK,-1,N)\r\n      COUNT = COUNT + 1\r\n      GO TO 140\r\nC\r\n   70 ASSIGN 110 TO TRA\r\n      K = 1\r\n   80 L = K + K6 - KK\r\n      IF (L .GT. KN) L = KN\r\n      IF (O .EQ.  0) GO TO 100\r\n      DO 90 I = K,L,KK\r\n      IF (A(I) .NE. 0.) GO TO 100\r\n   90 CONTINUE\r\n      GO TO 130\r\n  100 IF (EJECT(1) .NE. 0) GO TO 170\r\n  110 K1 = (K + KK - 1)/KK\r\n      K2 = (L + KK - 1)/KK\r\n      IF (PM .NE. CSP) GO TO 120\r\n      K1 = (K1+1)/2\r\n      K2 = K2/2\r\n  120 CALL FORMAT (A,K,L,KK,K1,K2)\r\n  130 K = K + K6\r\n      IF (K .LE. KN) GO TO 80\r\nC\r\n  140 WRITE  (MO,150)\r\n  150 FORMAT (1X)\r\n      COUNT = COUNT + 1\r\n  160 RETURN\r\nC\r\n  170 RETURN 1\r\n  180 RETURN 2\r\nC\r\nC\r\n      ENTRY PRTVEC (*,*)\r\nC     ==================\r\nC\r\n      COUNT = COUNT + 1\r\n      IF (PM .NE. CSP) GO TO 260\r\n      COUNT = COUNT + 1\r\n      IF (KNKK-4) 200,220,240\r\n  200 WRITE  (MO,210)\r\n  210 FORMAT (51X,4HREAL,11X,9HIMAGINARY)\r\n      GO TO 260\r\n  220 WRITE  (MO,230)\r\n  230 FORMAT (21X,2(12X,4HREAL,11X,9HIMAGINARY))\r\n      GO TO 260\r\n  240 WRITE  (MO,250)\r\n  250 FORMAT (3X,3(12X,4HREAL,11X,9HIMAGINARY))\r\n  260 GO TO TRA, (60,110)\r\n      END\r\n"
  },
  {
    "path": "mis/viscd.f",
    "content": "      SUBROUTINE VISCD\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12X12 MATRIX BGG FOR A VISCOUS\r\nC     (DASHPOT) ELEMENT\r\nC\r\nC     DOUBLE PRECISION VERSION\r\nC\r\nC     THE ECPT ENTRIES FOR THE VISC ELEMENT ARE\r\nC\r\nC     ECPT\r\nC     ECPT( 1)   ELEMENT ID\r\nC     ECPT( 2)   SIL NUMBER FOR GRID POINT A\r\nC     ECPT( 3)   SIL NUMBER FOR GRID POINT B\r\nC     ECPT( 4)   EXTENSIONAL DAMPING CONSTANT  - C1\r\nC     ECPT( 5)   TORSIONAL DAMPING COEFFICIENT - C2\r\nC     ECPT( 6)   COORD. SYSTEM ID FOR POINT A\r\nC     ECPT( 7)   X1\r\nC     ECPT( 8)   Y1\r\nC     ECPT( 9)   Z1\r\nC     ECPT(10)   COORD. SYSTEM ID FOR POINT B\r\nC     ECPT(11)   X2\r\nC     ECPT(12)   Y2\r\nC     ECPT(13)   Z2\r\nC     ECPT(14)   ELEMENT TEMPERATURE (NOT USED)\r\nC\r\nC\r\n      LOGICAL          NOGO,IDBUG\r\n      INTEGER          IECPT(14),ELID,ESTID,DICT(7),INDX(4),KX(4),KBX(4)\r\n      DOUBLE PRECISION FL,C1,C2,VEC(3),D(64),B(144),TA(9),TB(9)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /SYSTEM/  SKP,IOUTPT,KSYSTM(53),IHEAT\r\n      COMMON /EMGEST/  ECPT(14)\r\n      COMMON /EMGPRM/  IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP,\r\n     1                 IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT\r\n      COMMON /ZZZZZZ/  XX(1)\r\n      COMMON /EMGDIC/  IDM,LDICT,NGRIDS,ELID,ESTID\r\n      EQUIVALENCE      (ECPT(1),IECPT(1),IELID), (DICT(5),DICT5),\r\n     1                 (INDX(1),IA), (INDX(2),IAB), (INDX(3),IBA),\r\n     2                 (INDX(4),IB)\r\n      DATA    KX    /  1 ,7 ,73 ,79 /\r\n      DATA    KBX   /  40,46,112,118/\r\nC\r\nC     INITIALIZE EMGOUT PARAMETERS\r\nC\r\n      IDBUG   = .TRUE.\r\n      NGRIDS  = 2\r\n      LDICT   = 5 + NGRIDS\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 63\r\n      DICT5   = 0.\r\n      IFILE   = 3\r\n      IP      = IPREC\r\nC\r\nC     NOW COMPUTE THE LENGTH OF THE ROD AND NORMALIZE\r\nC\r\n      FL = 0.\r\n      DO 20 I = 1,3\r\n      VEC(I) = ECPT(I+6) - ECPT(I+10)\r\n   20 FL = FL + VEC(I)**2\r\n      FL = DSQRT(FL)\r\nC\r\n      IF (FL .LE. 0) GO TO 7770\r\n      DO 30 I = 1,3\r\n   30 VEC(I) = VEC(I)/FL\r\nC\r\nC     SET UP THE N MATRIX\r\nC\r\n      DO 40 I = 1,3\r\n      DO 40 J = 1,3\r\n      IX = (I-1)*3 + J\r\n   40 D(IX) = VEC(I)*VEC(J)\r\nC\r\nC     INITIALIZE THE B MATRIX\r\nC\r\n      DO 50 I = 1,144\r\n   50 B(I) = 0.D0\r\nC\r\nC     SWAP INDICES A AND B IF NECESSARY SO MATRIX WILL BE ORDERED\r\nC     BY INCREASING SIL VALUE\r\nC\r\n      IPA = 6\r\n      IPB = 10\r\n      IF (IECPT(2) .LT. IECPT(3)) GO TO 60\r\n      IX  = IPA\r\n      IPA = IPB\r\n      IPB = IPA\r\nC\r\nC     CONVERT GRID POINTS TO BASIC COORDINATES IF NECESSARY\r\nC\r\n   60 IA   = 1\r\n      IAB  = 1\r\n      IF (IECPT(IPA) .EQ. 0) GO TO 70\r\n      IA   = 19\r\n      IAB  = 10\r\n      CALL TRANSD (ECPT(IPA),TA(1))\r\n      CALL GMMATD (TA(1),3,3,1, D(1), 3,3,0, D(10))\r\n      CALL GMMATD (D(10),3,3,0, TA(1),3,3,0, D(19))\r\nC\r\n   70 IB  = 1\r\n      IBA = 1\r\n      IF (IECPT(IPB) .EQ. 0) GO TO 80\r\n      IB  = 28\r\n      IBA = 37\r\n      CALL TRANSD (ECPT(IPB),TB(1))\r\n      CALL GMMATD (TB(1),3,3,1, D(1), 3,3,0, D(37))\r\n      CALL GMMATD (D(37),3,3,0, TB(1),3,3,0, D(28))\r\nC\r\n      IAB = 46\r\nC\r\n   80 IF (IECPT(IPA) .EQ. 0) GO TO 90\r\n      CALL GMMATD (D(IAB),3,3,0, TB(1),3,3,0, D(46))\r\n      IBA = 55\r\n      CALL GMMATD (D(IBA),3,3,0, TA(1),3,3,0, D(55))\r\nC\r\nC     CALCULATE THE DAMPING MATRIX B\r\nC\r\nC                       ****                    ****\r\nC                       *      /     /      /      *\r\nC                       * C D  /   0 /-C D  /  0   *\r\nC                       *  1 AA/     /  1 AB/      *\r\nC                       *--------------------------*\r\nC                       *  0   /C D  /   0  /-C D  *\r\nC                       *      / 2 AA/      /  2 AB*\r\nC         B    =        *--------------------------*\r\nC                       *-C D  /   0 / C D  /  0   *\r\nC                       *  1 BA/     /  1 BB/      *\r\nC                       *------------/-------------*\r\nC                       *  0   /-C D /   0  / C D  *\r\nC                       *      /  2 BA      /  2 BB*\r\nC                       *      /     /      /      *\r\nC                       ****                    ****\r\nC\r\n   90 C1 = ECPT (4)\r\n      C2 = ECPT (5)\r\nC\r\n      DO 120 JTJ = 1,4\r\n      KB  = KX(JTJ)\r\n      KBB = KBX(JTJ)\r\n      J   = 0\r\n      I1  = INDX(JTJ)\r\n      I2  = I1 + 8\r\n      IF (MOD(JTJ,2) .NE. 0) GO TO 100\r\n      C1  = -C1\r\n      C2  = -C2\r\nC\r\n  100 DO 110 I = I1,I2\r\n      B(KB)  = C1*D(I)\r\n      B(KBB) = C2*D(I)\r\n      IF (MOD(I,3) .EQ. 0) J = 9\r\n      KB  = KB  + 1 + J\r\n      KBB = KBB + 1 + J\r\n      J   = 0\r\n  110 CONTINUE\r\nC\r\n  120 CONTINUE\r\nC\r\nC\r\nC     OUTPUT THE MATRIX\r\nC\r\n      CALL EMGOUT (B,B,144,1,DICT,IFILE,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 WRITE  (IOUTPT,7775) UFM,IELID\r\n 7775 FORMAT (A23,' 31XX, ILLEGAL GEOMETRY OR CONNEC TIONS FOR VISC ',\r\n     1        'ELEMENT',I10)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/viscs.f",
    "content": "      SUBROUTINE VISCS\r\nC\r\nC     THIS SUBROUTINE COMPUTES THE 12X12 MATRIX BGG FOR A VISCOUS\r\nC     (DASHPOT) ELEMENT\r\nC\r\nC     SINGLE PRECISION VERSION\r\nC\r\nC     THE ECPT ENTRIES FOR THE VISC ELEMENT ARE\r\nC\r\nC         ECPT\r\nC     ECPT( 1)   ELEMENT ID\r\nC     ECPT( 2)   SIL NUMBER FOR GRID POINT A\r\nC     ECPT( 3)   SIL NUMBER FOR GRID POINT B\r\nC     ECPT( 4)   EXTENSIONAL DAMPING CONSTANT  - C1\r\nC     ECPT( 5)   TORSIONAL DAMPING COEFFICIENT - C2\r\nC     ECPT( 6)   COORD. SYSTEM ID FOR POINT A\r\nC     ECPT( 7)   X1\r\nC     ECPT( 8)   Y1\r\nC     ECPT( 9)   Z1\r\nC     ECPT(10)   COORD. SYSTEM ID FOR POINT B\r\nC     ECPT(11)   X2\r\nC     ECPT(12)   Y2\r\nC     ECPT(13)   Z2\r\nC     ECPT(14)   ELEMENT TEMPERATURE (NOT USED)\r\nC\r\nC\r\n      LOGICAL         NOGO,IDBUG\r\n      INTEGER         IECPT(14),ELID,ESTID,DICT(7),INDX(4),KX(4),KBX(4)\r\n      REAL            VEC(3),D(64),B(144),TA(9),TB(9)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ SKP,IOUTPT,KSYSTM(53),IHEAT\r\n      COMMON /EMGEST/ ECPT(14)\r\n      COMMON /EMGPRM/ IXTRA,JCORE,NCORE,DUM(12),ISTIF,IMASS,IDAMP,\r\n     1                IPREC,NOGO,HEAT,ICMBAR,LCSTM,LMAT,LHMAT\r\n      COMMON /ZZZZZZ/ XX(1)\r\n      COMMON /EMGDIC/ IDM,LDICT,NGRIDS,ELID,ESTID\r\n      EQUIVALENCE     (ECPT(1),IECPT(1),IELID), (DICT(5),DICT5),\r\n     1                (INDX(1),IA), (INDX(2),IAB), (INDX(3),IBA),\r\n     2                (INDX(4),IB)\r\n      DATA    KX    / 1 ,7 ,73 ,79 /\r\n      DATA    KBX   / 40,46,112,118/\r\nC\r\nC     INITIALIZE EMGOUT PARAMETERS\r\nC\r\n      IDBUG   = .TRUE.\r\n      NGRIDS  = 2\r\n      LDICT   = 5 + NGRIDS\r\n      DICT(1) = ESTID\r\n      DICT(2) = 1\r\n      DICT(3) = 12\r\n      DICT(4) = 63\r\n      DICT5   = 0.\r\n      IFILE   = 3\r\n      IP      = IPREC\r\nC\r\nC     NOW COMPUTE THE LENGTH OF THE ROD AND NORMALIZE\r\nC\r\n      FL = 0.\r\n      DO 20 I = 1,3\r\n      VEC(I) = ECPT(I+6) - ECPT(I+10)\r\n   20 FL = FL + VEC(I)**2\r\n      FL = SQRT(FL)\r\nC\r\n      IF (FL .LE. 0) GO TO 7770\r\n      DO 30 I = 1,3\r\n   30 VEC(I) = VEC(I)/FL\r\nC\r\nC     SET UP THE N MATRIX\r\nC\r\n      DO 40 I = 1,3\r\n      DO 40 J = 1,3\r\n      IX = (I-1)*3 + J\r\n   40 D(IX) = VEC(I)*VEC(J)\r\nC\r\nC     INITIALIZE THE B MATRIX\r\nC\r\n      DO 50 I = 1,144\r\n   50 B(I) = 0.\r\nC\r\nC     SWAP INDICES A AND B IF NECESSARY SO MATRIX WILL BE ORDERED\r\nC     BY INCREASING SIL VALUE\r\nC\r\n      IPA = 6\r\n      IPB = 10\r\n      IF (IECPT(2) .LT. IECPT(3)) GO TO 60\r\n      IX  = IPA\r\n      IPA = IPB\r\n      IPB = IPA\r\nC\r\nC     CONVERT GRID POINTS TO BASIC COORDINATES IF NECESSARY\r\nC\r\n   60 IA  = 1\r\n      IAB = 1\r\n      IF (IECPT(IPA) .EQ. 0) GO TO 70\r\n      IA  = 19\r\n      IAB = 10\r\n      CALL TRANSS (ECPT(IPA),TA(1))\r\n      CALL GMMATS (TA(1), 3,3,1, D(1), 3,3,0, D(10))\r\n      CALL GMMATS (D(10), 3,3,0, TA(1),3,3,0, D(19))\r\nC\r\n   70 IB  = 1\r\n      IBA = 1\r\n      IF (IECPT(IPB) .EQ. 0) GO TO 80\r\n      IB  = 28\r\n      IBA = 37\r\n      CALL TRANSS (ECPT(IPB), TB(1))\r\n      CALL GMMATS (TB(1),3,3,1, D(1), 3,3,0, D(37))\r\n      CALL GMMATS (D(37),3,3,0, TB(1),3,3,0, D(28))\r\nC\r\n      CALL GMMATS (D(IAB),3,3,0, TB(1), 3,3,0, D(46))\r\n      IAB = 46\r\nC\r\n   80 IF (IECPT(IPA) .EQ. 0) GO TO 90\r\n      CALL GMMATS (D(IBA),3,3,0, TA(1),3,3,0, D(55))\r\n      IBA = 55\r\nC\r\nC     CALCULATE THE DAMPING MATRIX B\r\nC\r\nC                       ****                    ****\r\nC                       *      /     /      /      *\r\nC                       * C D  /   0 /-C D  /  0   *\r\nC                       *  1 AA/     /  1 AB/      *\r\nC                       *--------------------------*\r\nC                       *  0   /C D  /   0  /-C D  *\r\nC                       *      / 2 AA/      /  2 AB*\r\nC         B    =        *--------------------------*\r\nC                       *-C D  /   0 / C D  /  0   *\r\nC                       *  1 BA/     /  1 BB/      *\r\nC                       *------------/-------------*\r\nC                       *  0   /-C D /   0  / C D  *\r\nC                       *      /  2 BA      /  2 BB*\r\nC                       *      /     /      /      *\r\nC                       ****                    ****\r\nC\r\n   90 C1 = ECPT (4)\r\n      C2 = ECPT (5)\r\nC\r\n      DO 120 JTJ = 1,4\r\n      KB  = KX(JTJ)\r\n      KBB = KBX(JTJ)\r\n      J   = 0\r\n      I1  = INDX(JTJ)\r\n      I2  = I1 + 8\r\n      IF (MOD(JTJ,2) .NE. 0) GO TO 100\r\n      C1  = -C1\r\n      C2  = -C2\r\nC\r\n  100 DO 110 I = I1,I2\r\n      B(KB)  = C1*D(I)\r\n      B(KBB) = C2*D(I)\r\n      IF (MOD(I,3) .EQ. 0) J = 9\r\n      KB  = KB  + 1 + J\r\n      KBB = KBB + 1 + J\r\n      J = 0\r\n  110 CONTINUE\r\nC\r\n  120 CONTINUE\r\nC\r\nC     OUTPUT THE MATRIX\r\nC\r\n      CALL EMGOUT (B,B,144,1,DICT,IFILE,IP)\r\n      RETURN\r\nC\r\nC     ERROR EXITS\r\nC\r\n 7770 WRITE  (IOUTPT,7775) UFM,IELID\r\n 7775 FORMAT (A23,' 31XX, ILLEGAL GEOMETRY OR CONNECTIONS FOR VISC ',\r\n     1       'ELEMENT',I10)\r\n      NOGO = .TRUE.\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/wavey.f",
    "content": "      SUBROUTINE WAVEY (IG,ILD,NEW,NC,IC,KACT,MAXB,MAXW,AVERW,SUMW,\r\n     1                  RMS,BRMS,JG)\r\nC\r\nC     THIS ROUTINE IS USED ONLY IN BANDIT MODULE\r\nC\r\nC     COMPUTE WAVEFRONT AND ACTIVE COLUMN DATA -\r\nC     MAXIMUM WAVEFRONT, AVERAGE WAVEFRONT, SUM OF ROW WAVEFRONTS,\r\nC     SUM OF SQUARES OF ROW WAVEFRONTS, RMS WAVEFRONT, AND BANDWIDTH,\r\nC     RMS BANDWIDTH, AND MINIMUM NODAL DEGREE.\r\nC     DIAGONAL TERMS ARE INCLUDED.\r\nC\r\nC     IG     = CONNECTION TABLE\r\nC     ILD(I) = NEW LABEL FOR NODE WITH ORIGINAL INTERNAL LABEL I\r\nC     NEW(I) = INTERNAL LABEL CORRESPONDING TO NEW LABEL I\r\nC              NEW AND ILD ARE INVERSES OF EACH OTHER\r\nC     NC     = COMPONENT ID\r\nC              IF NC.LE.0, USE ALL COMPONENTS.\r\nC     IC(I)  = COMPONENT INDEX FOR ORIGINAL NODE I.\r\nC     KACT(I)= LIST OF ACTIVE COLUMN FLAGS (UPDATED FOR EACH ROW)\r\nC            = 1 IF COL I IS ACTIVE AT GIVEN ROW\r\nC     MAXB   = BANDWIDTH\r\nC     MAXW   = MAXIMUM WAVEFRONT\r\nC     AVERW  = AVERAGE WAVEFRONT\r\nC     SUMW   = SUM OF ROW WAVEFRONTS\r\nC     SUMSQ  = SUM OF SQUARES OF ROW WAVEFRONTS\r\nC     BSUMSQ = SUM OF SQUARES OF ROW BANDWIDTHS\r\nC     RMS    = RMS WAVEFRONT\r\nC     BRMS   = RMS BANDWIDTH\r\nC     JG     = SCRATCH SPACE FOR BUNPAK\r\nC     NN     = NUMBER OF NODES\r\nC     MM     = MAX NODAL DEGREE\r\nC     MINDEG = MINIMUM NODAL DEGREE\r\nC\r\nC     INPUT  - IG,ILD,NN,MM,NC,IC.\r\nC     OUTPUT - NEW,KACT,MAXW,AVERW,SUMW,RMS,MAXB,BRMS,MINDEG\r\nC\r\n      INTEGER          SUMW\r\n      DOUBLE PRECISION SUMSQ,    BSUMSQ\r\n      DIMENSION        IC(1),    ILD(1),   NEW(1),   KACT(1),  IG(1),\r\n     1                 JG(1)\r\n      COMMON /BANDS /  NN,       MM,       DUM6S(6), MINDEG\r\nC\r\nC     INITIALIZE WAVEFRONT DATA.\r\nC\r\n      MAXB  = 0\r\n      MAXW  = 0\r\n      SUMW  = 0\r\n      SUMSQ = 0.D0\r\n      BSUMSQ= 0.D0\r\n      AVERW = 0.\r\n      RMS   = 0.\r\n      MINDEG= MIN0(MINDEG,MM)\r\n      IF (NN*MM .LE. 0) RETURN\r\nC\r\nC     INITIALIZE NEW, THE INVERSE OF ILD\r\nC\r\n      IF (NC .GT. 0) GO TO 8\r\n      DO 5 I = 1,NN\r\n      K = ILD(I)\r\n      IF (K .LE. 0) GO TO 5\r\n      NEW(K) = I\r\n    5 CONTINUE\r\nC\r\nC     INITIALIZE ACTIVE COLUMN FLAGS (1 FOR ACTIVE)\r\nC\r\n    8 DO 10 I = 1,NN\r\n   10 KACT(I) = 0\r\nC\r\nC     COMPUTE WAVEFRONT DATA.\r\nC\r\n      IWAVE = 1\r\n      KT = 0\r\n      DO 40 I = 1,NN\r\nC\r\nC     COMPUTE NUMBER OF ACTIVE COLUMNS FOR ROW I\r\nC\r\n      K = NEW(I)\r\n      IF (NC) 18,18,15\r\n   15 IF (K .LE. 0) GO TO 40\r\n      IF (NC-IC(K)) 40,18,40\r\n   18 KT = KT + 1\r\n      CALL BUNPAK(IG,K,MM,JG)\r\n      IB = 0\r\n      DO 20 J = 1,MM\r\n      L = JG(J)\r\n      IF (L .EQ. 0) GO TO 30\r\n      M  = ILD(L)\r\n      IB = MAX0(IB,I-M)\r\n      IF (M .LE. I) GO TO 20\r\n      IF (KACT(M) .EQ. 1) GO TO 20\r\n      IWAVE = IWAVE + 1\r\n      KACT(M) = 1\r\n   20 CONTINUE\r\n      GO TO 35\r\n   30 CONTINUE\r\n      MINDEG = MIN0(MINDEG,J-1)\r\n   35 CONTINUE\r\nC\r\nC     IB1 = ROW BANDWIDTH FOR ROW I (DIAGONAL INCLUDED)\r\nC\r\n      IB1 = IB + 1\r\n      MAXB = MAX0(MAXB,IB1)\r\n      IF (KACT(I) .EQ. 1) IWAVE = IWAVE - 1\r\nC\r\nC     IWAVE = CURRENT NUMBER OF ACTIVE COLUMNS FOR ROW I\r\nC             (DIAGONAL INCLUDED)\r\nC\r\n      MAXW  = MAX0(MAXW,IWAVE)\r\n      SUMW  = SUMW + IWAVE\r\n      WAVE  = FLOAT(IWAVE)\r\n      SUMSQ = SUMSQ + WAVE*WAVE\r\n      WAVE  = FLOAT(IB1)\r\n      BSUMSQ= BSUMSQ + WAVE*WAVE\r\nC\r\n   40 CONTINUE\r\nC\r\n      ANN   = FLOAT(KT)\r\n      AVERW = FLOAT(SUMW)/ANN\r\n      RMS   = SQRT(SNGL( SUMSQ)/ANN)\r\n      BRMS  = SQRT(SNGL(BSUMSQ)/ANN)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/wilvec.f",
    "content": "      SUBROUTINE WILVEC (D,O,VAL,VLOC,V,F,P,Q,R,VEC,NX,SVEC)\r\nC\r\nC     WILKINSON EIGENVECTOR SOLUTION FOR LARGE SYM MATRICES\r\nC\r\n      INTEGER          VLOC(1),ENTRY,V2,XENTRY,PV,VECTOR,VV,V1,MCB(7),\r\n     1                 SYSBUF,MCB1(7),PHIA,SVEC(1),PATH\r\n      DOUBLE PRECISION D(1),O(1),VAL(1),V(1),P(1),F(1),Q(1),R(1),\r\n     1                 VEC(NX,1),VALUE,W,X,Y,Z,DLMDAS,\r\n     2                 RMULT,RRMULT,SFT,SFTINV,DEPS,VMULT,ZERO,ONE\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /GIVN  /  TITLE(1),MO,T3,MR,MT1,T6,MV1,T8(3),ENTRY,T12(5),\r\n     1                 RSTRT,V2,T19,XENTRY,T21(80),VCOM(30),T131(20)\r\n      COMMON /PACKX /  IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/  IT3,III,JJJ,INCR1\r\n      COMMON /SYSTEM/  SYSBUF,IOTPE,KSYS(52),IPREC\r\n      COMMON /REIGKR/  IOPTN\r\n      COMMON /MGIVXX/  DLMDAS\r\n      EQUIVALENCE      (N     ,VCOM( 1)), (PV    ,VCOM( 5)),\r\n     1                 (NV    ,VCOM( 7)), (NRIGID,VCOM(10)),\r\n     2                 (PHIA  ,VCOM(12)), (NVER  ,VCOM(13)),\r\n     3                 (MAXITR,VCOM(15)), (ITERM ,VCOM(16))\r\n      DATA    MUL3  ,  MCB1,MCB / 0, 0,0,0,2,2,0,0, 7*0    /\r\n      DATA    ZERO  ,  ONE      / 0.0D+0,  1.0D+0          /\r\n      DATA    MGIV  /  4HMGIV   /\r\nC\r\nC     D        = DIAGONAL     TERMS OF THE TRIDIAGONAL MATRIX (N)\r\nC     O        = OFF-DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N)\r\nC     VAL      = EIGENVALUES (NV)\r\nC     VLOC     = ORIGINAL ORDERING OF THE EIGENVALUES (NV)\r\nC     V,F,P,Q,R= N DIMENSIONAL ARRAYS\r\nC     VEC      = THE REST OF OPEN CORE\r\nC\r\nC     MT       = TRANSFORMATION TAPE\r\nC     N        = ORDER  OF PROBLEM\r\nC     NV       = NUMBER OF EIGENVECTORS\r\nC     RSTRT\r\nC     V2       = NUMBER   OF EIGENVECTORS ALREADY CLLCULATED\r\nC     VV       = POINTER  TO CURRENT VECTOR IN CORE VEC(1,VV)\r\nC     NM2X     = MIDPOINT OF PROBLEM (SWITCH SINE SAVE TAPES)\r\nC\r\nC\r\nC     INITALIZE VARIABLES\r\nC\r\n      DEPS  = 1.0D-35\r\n      SFT   = 1.0D+20\r\n      SFTINV= 1.0D+0/SFT\r\n      VMULT = 1.0D-02\r\n      NZ    = KORSZ(SVEC)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IM    = 1\r\n      CALL MAKMCB (MCB1,PHIA,N,2,IPREC)\r\n      IM1   = 2\r\n      NZ    = IBUF2 - 1\r\n      PATH  = 0\r\n      NV1   = (NZ-1)/(N+N)\r\n      IM2   = 2\r\n      NM1   = N - 1\r\n      NM2   = N - 2\r\n      NVER  = 0\r\n      V2    = NRIGID\r\nC\r\nC     REARRANGE EIGENVALUES AND EXTRACTION ORDER FOR MULTIPLE ROOTS\r\nC     TO GUARANTEE THAT THEY ARE IN SUBMATRIX ORDER FOR PURPOSES\r\nC     OF TRIAL VECTOR AND ORTHOGONOLIZATION COMPUTATIONS\r\nC\r\n      RMULT = VMULT\r\n      RRMULT= VMULT/100.0D0\r\n      ICLOS = 0\r\n      I = NRIGID + 1\r\n   10 IF (DABS(VAL(I))+DABS(VAL(I+1)) .LT. RMULT) GO TO 20\r\n      IF (VAL(I) .EQ. ZERO) GO TO 90\r\n      IF (DABS(ONE-VAL(I)/VAL(I+1)) .GT. RRMULT) GO TO 80\r\n   20 IF (ICLOS .NE. 0) GO TO 90\r\n      ICLOS = I\r\n      GO TO 90\r\n   30 CONTINUE\r\n      DO 50 I1 = ICLOS,I\r\n      MIN   = VLOC(I1)\r\n      VALUE = VAL(I1)\r\n      K = I1\r\n      DO 40 J = I1,I\r\n      IF (VLOC(J) .GE. MIN) GO TO 40\r\n      K    = J\r\n      MIN  = VLOC(J)\r\n      VALUE= VAL(J)\r\n   40 CONTINUE\r\n      VLOC(K) = VLOC(I1)\r\n      VAL(K)  = VAL(I1)\r\n      VLOC(I1)= MIN\r\n      VAL(I1) = VALUE\r\n   50 CONTINUE\r\n      ICLOS = 0\r\n   80 IF (ICLOS .NE. 0) GO TO 30\r\n   90 I = I + 1\r\n      IF (I     .LT. NV) GO TO 10\r\n      IF (ICLOS .NE.  0) GO TO 30\r\nC\r\nC     START LOOP FOR CORE LOADS OF VECTORS\r\nC\r\n  100 CALL KLOCK (IST)\r\n      V1   = V2 + 1\r\n      V2   = V2 + NV1\r\n      MUL2 = MUL3\r\n      MULP2= 0\r\n      MUL3 = 0\r\n      IF (NV-V2) 101,110,102\r\n  101 V2   = NV\r\n      GO TO 110\r\nC\r\nC     SEARCH FOR MULTIPLICITIES OF EIGENVALUES V2 AND V2+1.\r\nC\r\n  102 VV = V2\r\n  103 IF (DABS(VAL(V2))+DABS(VAL(V2+1)) .LT. RMULT) GO TO 1041\r\n      IF (DABS(ONE-VAL(V2)/VAL(V2+1))   .GT. RMULT) GO TO 110\r\n 1041 CONTINUE\r\n      L1 = VLOC(V2  )\r\n      L2 = VLOC(V2+1)\r\n      N1 = MIN0(L1,L2)\r\n      N2 = MAX0(L1,L2) - 1\r\n      DO 104 K = N1,N2\r\n      IF (O(K) .EQ. ZERO) GO TO 110\r\n  104 CONTINUE\r\n      V2 = V2 - 1\r\n      IF (V2+6.GT.N1 .AND. V2.GT.V1) GO TO 103\r\n      V2 = VV\r\n      MUL3  = 1\r\nC\r\nC     FIND EIGENVECTORS V1 - V2.\r\nC\r\n  110 N1 = 0\r\n      N2 = 0\r\n      NV2= V2 - V1 + 1\r\n      DO 175 VV = 1,NV2\r\n      VECTOR = V1 + VV - 1\r\n      VALUE  = VAL (VECTOR)\r\nC\r\nC     FOR MGIV METHOD, USE ORIGINAL LAMBDA COMPUTED BY QRITER\r\nC     IN EIGENVECTOR COMPUTATIONS\r\nC\r\n      IF (IOPTN .EQ. MGIV) VALUE = 1.0D0/(VALUE + DLMDAS)\r\n      LOC = VLOC(VECTOR)\r\n      IF (LOC.GE.N1 .AND. LOC.LE.N2) GO TO 120\r\nC\r\nC     SEARCH FOR A DECOUPLED SUBMATRIX.\r\nC\r\n      MUL1 = 0\r\n      IF (LOC .EQ. 1) GO TO 112\r\n      DO 111 K = 2,LOC\r\n      N1 = LOC - K + 2\r\n      IF (O(N1-1) .EQ. ZERO) GO TO 113\r\n  111 CONTINUE\r\n  112 N1 = 1\r\n  113 IF (LOC .EQ. N) GO TO 115\r\n      DO 114 K = LOC,NM1\r\n      IF (O(K) .EQ. ZERO) GO TO 116\r\n  114 CONTINUE\r\n  115 N2 = N\r\n      GO TO 120\r\n  116 N2 = K\r\n  120 IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 122\r\n      DO 121 I = 1,N\r\n      V(I) = ZERO\r\n  121 CONTINUE\r\n      IF (N1 .NE. N2) GO TO 122\r\n      V(LOC) = ONE\r\n      GO TO 152\r\n  122 N2M1 = N2 - 1\r\n      N2M2 = N2 - 2\r\nC\r\nC     SET UP SIMULTANEOUS EQUATIONS\r\nC\r\n      X = D(N1) - VALUE\r\n      Y = O(N1)\r\n      DO 131 K = N1,N2M1\r\n      IF (X .EQ. ZERO) GO TO 125\r\n      F(K) = -O(K)/X\r\n      GO TO 126\r\n  125 F(K) = -SFT*O(K)\r\n  126 IF (DABS(X)-DABS(O(K))) 127,128,129\r\nC\r\nC     PIVOT.\r\nC\r\n  127 P(K) = O(K)\r\n      Q(K) = D(K+1) - VALUE\r\n      R(K) = O(K+1)\r\n      Z    =-X/P(K)\r\n      X    = Z*Q(K) + Y\r\n      Y    = Z*R(K)\r\n      GO TO 130\r\nC\r\nC     DO NOT PIVOT.\r\nC\r\n  128 IF (X .EQ. ZERO) X = SFTINV\r\n  129 P(K) = X\r\n      Q(K) = Y\r\n      R(K) = ZERO\r\n      X    = D(K+1) - (VALUE+O(K)*(Y/X))\r\n      Y    = O(K+1)\r\n  130 CONTINUE\r\n  131 CONTINUE\r\n      IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 135\r\n      DO 134 K = N1,N2M1\r\n  134 V(K) = ONE\r\n      W    = ONE/DSQRT(DBLE(FLOAT(N2-N1+1)))\r\n      V(N2)= ONE\r\nC\r\nC     SOLVE FOR AN EIGENVECTOR OF THE TRIDIAGONAL MATRIX.\r\nC\r\n  135 MUL2   = 0\r\n      MAXITR = 3\r\n      DO 150 ITER = 1,MAXITR\r\nC\r\nC     BACK SUBSTITUTION\r\nC\r\n      IF (X .EQ. ZERO) GO TO 136\r\n      V(N2) = V(N2)/X\r\n      GO TO 137\r\n  136 V(N2  ) = V(N2)*SFT\r\n  137 V(N2-1) = (V(N2-1) - Q(N2-1)*V(N2))/P(N2-1)\r\n      MAX = N2\r\n      IF (DABS(V(N2)) .LT. DABS(V(N2-1))) MAX = N2M1\r\n      IF (N2M2 .LT. N1) GO TO 140\r\n      DO 138 K = N1,N2M2\r\n      L    = N2M2 - (K-N1)\r\n      V(L) = (V(L)-Q(L)*V(L+1) - R(L)*V(L+2))/P(L)\r\n      IF (DABS(V(L)) .GT. DABS (V(MAX))) MAX = L\r\n  138 CONTINUE\r\nC\r\nC     NORMALIZE THE VECTOR.\r\nC\r\n  140 Y = DABS(V(MAX))\r\n      Z = ZERO\r\n      DO 141 I = N1,N2\r\n      V(I) = V(I)/Y\r\n      IF (DABS(V(I)) .LT. DEPS) GO TO 141\r\n      Z = Z + V(I)*V(I)\r\n  141 CONTINUE\r\n      Z = DSQRT(Z)\r\n      DO 142 I = N1,N2\r\n      V(I) = V(I)/Z\r\n  142 CONTINUE\r\nC\r\nC     CHECK CONVERGENCE OF THE LARGEST COMPONENT OF THE VECTOR.\r\nC\r\n      Y = DABS(V(MAX))\r\n      IF (SNGL(W) .EQ. SNGL(Y)) GO TO 152\r\n      IF (ITER    .EQ.  MAXITR) GO TO 150\r\n      W = Y\r\nC\r\nC     PIVOT V.\r\nC\r\n      DO 145 I = N1,N2M1\r\n      IF (P(I) .EQ. O(I)) GO TO 144\r\n      V(I+1) = V(I+1) + V(I)*F(I)\r\n      GO TO 145\r\n  144 Z =  V(I+1)\r\n      V(I+1) = V(I) + Z/F(I)\r\n      V(I  ) = Z\r\n  145 CONTINUE\r\n  150 CONTINUE\r\nC\r\nC     TOO MANY ITERATIONS.\r\nC\r\nC     THE ACCURACY OF EIGENVECTOR XXXX CORRESPONDING TO THE EIGENVALUE\r\nC     XXXXXXX  IS IN DOUBT.\r\nC\r\n  152 DO 153 I = 1,N\r\n      VEC(I,VV) = V(I)\r\n  153 CONTINUE\r\nC\r\nC     CHECK MULTIPLICITY OF THE NEXT EIGENVALUE IF IT IS IN THE SAME\r\nC     SUBMATRIX AS THIS ONE.\r\nC\r\n      IF (VECTOR .EQ. V2) GO TO 160\r\nC\r\nC     FOR MGIV METHOD, USE ADJUSTED LAMBDA COMING OUT OF QRITER\r\nC     IN THE FOLLOWING CHECKS\r\nC\r\n      IF (DABS(VAL(VECTOR+1))+DABS(VAL(VECTOR)) .LT. RMULT) GO TO 154\r\n      IF (DABS(VAL(VECTOR+1)-VAL(VECTOR)) .GT.RMULT*DABS(VAL(VECTOR+1)))\r\n     1    GO TO 160\r\n  154 CONTINUE\r\n      L1 = VLOC(VECTOR+1)\r\n      IF (L1.LT.N1 .OR. L1.GT.N2) GO TO 160\r\nC\r\nC     A MULTIPLICITY DOES EXIT...THE INITIAL APPROXIMATION OF THE NEXT\r\nC     EIGENVECTOR SHOULD BE ORTHOGONAL TO THE ONE JUST CALCULATED.\r\nC\r\n      IF (MUL1 .EQ. 0) MUL1 = VV\r\n      MULP2 = MULP2 + 1\r\n      MULP3 = MULP2 + MUL1 - 1\r\n      DO 4001 KKK = N1,N2\r\n 4001 V(KKK) = ONE\r\n      DO 4003 JJJ = MUL1,MULP3\r\n      Z = ZERO\r\n      DO 4004 KK = N1,N2\r\n      DO 4005 II = N1,N2\r\n 4005 Z = Z + VEC(II,JJJ)*V(II)\r\n 4004 V(KK) = V(KK) - Z*VEC(KK,JJJ)\r\n 4003 CONTINUE\r\n      GO TO 175\r\nC\r\nC     DOES THIS EIGENVALUE = PREVIOUS ONE(S) IN THIS SUBMATRIX\r\nC\r\n  160 IF (MUL1 .EQ. 0) GO TO 175\r\nC\r\nC     A MULTIPLICITY OF EIGENVALUES OCCURRED...IMPROVE THE ORTHOGONALITY\r\nC     OF THE CORRESPONDING EIGENVECTORS.\r\nC\r\n      MULP1 = MUL1 + 1\r\n      DO 170 L = MULP1,VV\r\n      DO 161 I = N1,N2\r\n      P(I) = VEC(I,L)\r\n      Q(I) = ZERO\r\n  161 CONTINUE\r\n      LM1 = L - 1\r\n      DO 164 K = MUL1,LM1\r\n      Z = ZERO\r\n      DO 162 I = N1,N2\r\n      Z = Z + P(I)*VEC(I,K)\r\n  162 CONTINUE\r\n      DO 163  I = N1,N2\r\n      Q(I) = Q(I) + Z*VEC(I,K)\r\n  163 CONTINUE\r\n  164 CONTINUE\r\n      Z = ZERO\r\n      DO 165  K = N1,N2\r\n      Q(K) = P(K) - Q(K)\r\n      IF (DABS(Q(K)) .LT. DEPS) GO TO 165\r\n      Z = Z + Q(K)*Q(K)\r\n  165 CONTINUE\r\n      Z = DSQRT(Z)\r\n      DO 166 K = N1,N2\r\n      VEC(K,L) = Q(K)/Z\r\n  166 CONTINUE\r\n  170 CONTINUE\r\n      MUL1  = 0\r\n      MULP2 = 0\r\n  175 CONTINUE\r\nC\r\nC     CORE IS NOW FULL OF EIGENVECTORS OF THE TRIDIAGONAL MATRIX.\r\nC     CONVERT THEM TO EIGENVECTORS OF THE ORIGINAL MATRIX.\r\nC\r\n      IT1 = 2\r\n      IT2 = 2\r\n      JJ  = N\r\n      INCR= 1\r\nC\r\nC     IS THE ORIGINAL MATRIX A 2X2\r\nC\r\n      IF (NM2  .EQ. 0) GO TO 186\r\n      MT = MT1\r\n      IF (PATH .NE. 0) GO TO 176\r\n      MT = MO\r\n  176 CALL GOPEN (MT,SVEC(IBUF1),IM2)\r\n      IF (PATH.EQ.0 .AND. V2.NE.NV) CALL GOPEN (MT1,SVEC(IBUF2),1)\r\n      IT3  = 2\r\n      JJJ  = N\r\n      INCR1= 1\r\n      DO 185 M = 1,NM2\r\n      L1  = N - M\r\n      III = L1+ 1\r\n      IF (PATH .EQ. 0) CALL BCKREC (MT)\r\n      CALL UNPACK (*167,MT,P)\r\n      GO TO 180\r\n  167 DO 179 I = 1,M\r\n      P(I) = ZERO\r\n  179 CONTINUE\r\n  180 IF (PATH.NE.0 .OR. V2.EQ.NV) GO TO 177\r\n      II = L1+1\r\n      CALL PACK (P,MT1,MCB)\r\n  177 IF (PATH .EQ. 0) CALL BCKREC (MT)\r\n      DO 182 K = 1,M\r\n      L2 = N - K + 1\r\n      I  = M - K + 1\r\n      Y  = P(I)\r\n      IF (Y .EQ. ZERO) GO TO 182\r\n      X = ZERO\r\n      IF (DABS(Y) .LT. ONE) X = DSQRT(ONE-Y**2)\r\n      DO 181 VV = 1,NV2\r\n      Z = X*VEC(L1,VV) -Y*VEC(L2,VV)\r\n      VEC(L2,VV) = X*VEC(L2,VV) + Y*VEC(L1,VV)\r\n      VEC(L1,VV) = Z\r\n  181 CONTINUE\r\n  182 CONTINUE\r\n  185 CONTINUE\r\n      CALL CLOSE (MT,1)\r\n      IF (PATH .NE. 0) GO TO 186\r\n      IF (V2 .NE. NV) WRITE (IOTPE,1001) UIM,N,NV,NV1\r\n 1001 FORMAT (A29,' 2016A, WILVEC EIGENVECTOR COMPUTATIONS.', /37X,\r\n     1       'PROBLEM SIZE IS',I6,', NUMBER OF EIGENVECTORS TO BE ',\r\n     2       'RECOVERED IS',I6 , /37X,'SPILL WILL OCCUR FOR THIS ',\r\n     3       'CORE AT RECOVERY OF',I6,' EIGENVECTORS.')\r\n      PATH = 1\r\n      CALL CLOSE (MT1,1)\r\n      IM2  = 0\r\nC\r\nC     WRITE THE EIGENVECTORS ONTO PHIA\r\nC\r\n  186 CALL GOPEN (PHIA,SVEC(IBUF1),IM)\r\n      II  = 1\r\n      IT2 = IPREC\r\n      IF (IM.NE.1 .OR. NRIGID.LE.0) GO TO 205\r\nC\r\nC     PUT OUT ZERO VECTORS FOR RIGID BODY MODES\r\nC\r\n      JJ = 1\r\n      DO 206 VV = 1,NRIGID\r\n      CALL PACK (ZERO,PHIA,MCB1)\r\n  206 CONTINUE\r\n      JJ = N\r\n  205 CONTINUE\r\n      IM = 3\r\n      IF (N .EQ. 1) GO TO 250\r\n      DO 192 VV = 1,NV2\r\n      CALL PACK (VEC(1,VV),PHIA,MCB1)\r\n  192 CONTINUE\r\n  250 IF (V2 .EQ. NV) IM1 = 1\r\n      CALL CLOSE (PHIA,IM1)\r\n      XENTRY = -ENTRY\r\nC\r\nC     ANY TIME LEFT TO FIND MORE\r\nC\r\n      CALL TMTOGO (ITIME)\r\n      CALL KLOCK  (IFIN)\r\n      IF (2*(IFIN-IST) .GE. ITIME) GO TO 200\r\n      IF (V2 .NE. NV) GO TO 100\r\n  201 CALL WRTTRL (MCB1)\r\n      RETURN\r\nC\r\nC     MAX TIME\r\nC\r\n  200 ITERM = 3\r\n      GO TO 201\r\n      END\r\n"
  },
  {
    "path": "mis/wilvec1.f",
    "content": "      SUBROUTINE WILVEC1 (D,O,VAL,VLOC,V,F,P,Q,R,VEC,NX,SVEC)\r\nC\r\nC     WILKINSON EIGENVECTOR SOLUTION FOR LARGE SYM MATRICES\r\nC\r\n      INTEGER          VLOC(1),ENTRY,V2,XENTRY,PV,VECTOR,VV,V1,MCB(7),\r\n     1                 SYSBUF,MCB1(7),PHIA,SVEC(1),PATH\r\n      REAL             D(1),O(1),VAL(1),V(1),P(1),F(1),Q(1),R(1),\r\n     1                 VEC(NX,1),VALUE,W,X,Y,Z,DLMDAS,\r\n     2                 RMULT,RRMULT,SFT,SFTINV,DEPS,VMULT,ZERO,ONE\r\n      CHARACTER        UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG /  UFM,UWM,UIM\r\n      COMMON /GIVN  /  TITLE(1),MO,T3,MR,MT1,T6,MV1,T8(3),ENTRY,T12(5),\r\n     1                 RSTRT,V2,T19,XENTRY,T21(80),VCOM(30),T131(20)\r\n      COMMON /PACKX /  IT1,IT2,II,JJ,INCR\r\n      COMMON /UNPAKX/  IT3,III,JJJ,INCR1\r\n      COMMON /SYSTEM/  SYSBUF,IOTPE,KSYS(52),IPREC\r\n      COMMON /REIGKR/  IOPTN\r\n      COMMON /MGIVXX/  DLMDAS\r\n      EQUIVALENCE      (N     ,VCOM( 1)), (PV    ,VCOM( 5)),\r\n     1                 (NV    ,VCOM( 7)), (NRIGID,VCOM(10)),\r\n     2                 (PHIA  ,VCOM(12)), (NVER  ,VCOM(13)),\r\n     3                 (MAXITR,VCOM(15)), (ITERM ,VCOM(16))\r\n      DATA    MUL3  ,  MCB1,MCB / 0, 0,0,0,2,2,0,0, 7*0    /\r\n      DATA    ZERO  ,  ONE      / 0.0D+0,  1.0D+0          /\r\n      DATA    MGIV  /  4HMGIV   /\r\nC\r\nC     D        = DIAGONAL     TERMS OF THE TRIDIAGONAL MATRIX (N)\r\nC     O        = OFF-DIAGONAL TERMS OF THE TRIDIAGONAL MATRIX (N)\r\nC     VAL      = EIGENVALUES (NV)\r\nC     VLOC     = ORIGINAL ORDERING OF THE EIGENVALUES (NV)\r\nC     V,F,P,Q,R= N DIMENSIONAL ARRAYS\r\nC     VEC      = THE REST OF OPEN CORE\r\nC\r\nC     MT       = TRANSFORMATION TAPE\r\nC     N        = ORDER  OF PROBLEM\r\nC     NV       = NUMBER OF EIGENVECTORS\r\nC     RSTRT\r\nC     V2       = NUMBER   OF EIGENVECTORS ALREADY CLLCULATED\r\nC     VV       = POINTER  TO CURRENT VECTOR IN CORE VEC(1,VV)\r\nC     NM2X     = MIDPOINT OF PROBLEM (SWITCH SINE SAVE TAPES)\r\nC\r\nC\r\nC     INITALIZE VARIABLES\r\nC\r\n      DEPS  = 1.0-35\r\n      SFT   = 1.0+20\r\n      SFTINV= 1.0+0/SFT\r\n      VMULT = 1.0-02\r\n      NZ    = KORSZ(SVEC)\r\n      IBUF1 = NZ - SYSBUF + 1\r\n      IBUF2 = IBUF1 - SYSBUF\r\n      IM    = 1\r\n      CALL MAKMCB (MCB1,PHIA,N,2,IPREC)\r\n      IM1   = 2\r\n      NZ    = IBUF2 - 1\r\n      PATH  = 0\r\n      NV1   = (NZ-1)/(N+N)\r\n      IM2   = 2\r\n      NM1   = N - 1\r\n      NM2   = N - 2\r\n      NVER  = 0\r\n      V2    = NRIGID\r\nC\r\nC     REARRANGE EIGENVALUES AND EXTRACTION ORDER FOR MULTIPLE ROOTS\r\nC     TO GUARANTEE THAT THEY ARE IN SUBMATRIX ORDER FOR PURPOSES\r\nC     OF TRIAL VECTOR AND ORTHOGONOLIZATION COMPUTATIONS\r\nC\r\n      RMULT = VMULT\r\n      RRMULT= VMULT/100.0\r\n      ICLOS = 0\r\n      I = NRIGID + 1\r\n   10 IF (ABS(VAL(I))+ABS(VAL(I+1)) .LT. RMULT) GO TO 20\r\n      IF (VAL(I) .EQ. ZERO) GO TO 90\r\n      IF (ABS(ONE-VAL(I)/VAL(I+1)) .GT. RRMULT) GO TO 80\r\n   20 IF (ICLOS .NE. 0) GO TO 90\r\n      ICLOS = I\r\n      GO TO 90\r\n   30 CONTINUE\r\n      DO 50 I1 = ICLOS,I\r\n      MIN   = VLOC(I1)\r\n      VALUE = VAL(I1)\r\n      K = I1\r\n      DO 40 J = I1,I\r\n      IF (VLOC(J) .GE. MIN) GO TO 40\r\n      K    = J\r\n      MIN  = VLOC(J)\r\n      VALUE= VAL(J)\r\n   40 CONTINUE\r\n      VLOC(K) = VLOC(I1)\r\n      VAL(K)  = VAL(I1)\r\n      VLOC(I1)= MIN\r\n      VAL(I1) = VALUE\r\n   50 CONTINUE\r\n      ICLOS = 0\r\n   80 IF (ICLOS .NE. 0) GO TO 30\r\n   90 I = I + 1\r\n      IF (I     .LT. NV) GO TO 10\r\n      IF (ICLOS .NE.  0) GO TO 30\r\nC\r\nC     START LOOP FOR CORE LOADS OF VECTORS\r\nC\r\n  100 CALL KLOCK (IST)\r\n      V1   = V2 + 1\r\n      V2   = V2 + NV1\r\n      MUL2 = MUL3\r\n      MULP2= 0\r\n      MUL3 = 0\r\n      IF (NV-V2) 101,110,102\r\n  101 V2   = NV\r\n      GO TO 110\r\nC\r\nC     SEARCH FOR MULTIPLICITIES OF EIGENVALUES V2 AND V2+1.\r\nC\r\n  102 VV = V2\r\n  103 IF (ABS(VAL(V2))+ABS(VAL(V2+1)) .LT. RMULT) GO TO 1041\r\n      IF (ABS(ONE-VAL(V2)/VAL(V2+1))   .GT. RMULT) GO TO 110\r\n 1041 CONTINUE\r\n      L1 = VLOC(V2  )\r\n      L2 = VLOC(V2+1)\r\n      N1 = MIN0(L1,L2)\r\n      N2 = MAX0(L1,L2) - 1\r\n      DO 104 K = N1,N2\r\n      IF (O(K) .EQ. ZERO) GO TO 110\r\n  104 CONTINUE\r\n      V2 = V2 - 1\r\n      IF (V2+6.GT.N1 .AND. V2.GT.V1) GO TO 103\r\n      V2 = VV\r\n      MUL3  = 1\r\nC\r\nC     FIND EIGENVECTORS V1 - V2.\r\nC\r\n  110 N1 = 0\r\n      N2 = 0\r\n      NV2= V2 - V1 + 1\r\n      DO 175 VV = 1,NV2\r\n      VECTOR = V1 + VV - 1\r\n      VALUE  = VAL (VECTOR)\r\nC\r\nC     FOR MGIV METHOD, USE ORIGINAL LAMBDA COMPUTED BY QRITER\r\nC     IN EIGENVECTOR COMPUTATIONS\r\nC\r\n      IF (IOPTN .EQ. MGIV) VALUE = 1.0/(VALUE + DLMDAS)\r\n      LOC = VLOC(VECTOR)\r\n      IF (LOC.GE.N1 .AND. LOC.LE.N2) GO TO 120\r\nC\r\nC     SEARCH FOR A DECOUPLED SUBMATRIX.\r\nC\r\n      MUL1 = 0\r\n      IF (LOC .EQ. 1) GO TO 112\r\n      DO 111 K = 2,LOC\r\n      N1 = LOC - K + 2\r\n      IF (O(N1-1) .EQ. ZERO) GO TO 113\r\n  111 CONTINUE\r\n  112 N1 = 1\r\n  113 IF (LOC .EQ. N) GO TO 115\r\n      DO 114 K = LOC,NM1\r\n      IF (O(K) .EQ. ZERO) GO TO 116\r\n  114 CONTINUE\r\n  115 N2 = N\r\n      GO TO 120\r\n  116 N2 = K\r\n  120 IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 122\r\n      DO 121 I = 1,N\r\n      V(I) = ZERO\r\n  121 CONTINUE\r\n      IF (N1 .NE. N2) GO TO 122\r\n      V(LOC) = ONE\r\n      GO TO 152\r\n  122 N2M1 = N2 - 1\r\n      N2M2 = N2 - 2\r\nC\r\nC     SET UP SIMULTANEOUS EQUATIONS\r\nC\r\n      X = D(N1) - VALUE\r\n      Y = O(N1)\r\n      DO 131 K = N1,N2M1\r\n      IF (X .EQ. ZERO) GO TO 125\r\n      F(K) = -O(K)/X\r\n      GO TO 126\r\n  125 F(K) = -SFT*O(K)\r\n  126 IF (ABS(X)-ABS(O(K))) 127,128,129\r\nC\r\nC     PIVOT.\r\nC\r\n  127 P(K) = O(K)\r\n      Q(K) = D(K+1) - VALUE\r\n      R(K) = O(K+1)\r\n      Z    =-X/P(K)\r\n      X    = Z*Q(K) + Y\r\n      Y    = Z*R(K)\r\n      GO TO 130\r\nC\r\nC     DO NOT PIVOT.\r\nC\r\n  128 IF (X .EQ. ZERO) X = SFTINV\r\n  129 P(K) = X\r\n      Q(K) = Y\r\n      R(K) = ZERO\r\n      X    = D(K+1) - (VALUE+O(K)*(Y/X))\r\n      Y    = O(K+1)\r\n  130 CONTINUE\r\n  131 CONTINUE\r\n      IF (MUL1.NE.0 .OR. MUL2.NE.0) GO TO 135\r\n      DO 134 K = N1,N2M1\r\n  134 V(K) = ONE\r\n      W    = ONE/SQRT(FLOAT(N2-N1+1))\r\n      V(N2)= ONE\r\nC\r\nC     SOLVE FOR AN EIGENVECTOR OF THE TRIDIAGONAL MATRIX.\r\nC\r\n  135 MUL2   = 0\r\n      MAXITR = 3\r\n      DO 150 ITER = 1,MAXITR\r\nC\r\nC     BACK SUBSTITUTION\r\nC\r\n      IF (X .EQ. ZERO) GO TO 136\r\n      V(N2) = V(N2)/X\r\n      GO TO 137\r\n  136 V(N2  ) = V(N2)*SFT\r\n  137 V(N2-1) = (V(N2-1) - Q(N2-1)*V(N2))/P(N2-1)\r\n      MAX = N2\r\n      IF (ABS(V(N2)) .LT. ABS(V(N2-1))) MAX = N2M1\r\n      IF (N2M2 .LT. N1) GO TO 140\r\n      DO 138 K = N1,N2M2\r\n      L    = N2M2 - (K-N1)\r\n      V(L) = (V(L)-Q(L)*V(L+1) - R(L)*V(L+2))/P(L)\r\n      IF (ABS(V(L)) .GT. ABS (V(MAX))) MAX = L\r\n  138 CONTINUE\r\nC\r\nC     NORMALIZE THE VECTOR.\r\nC\r\n  140 Y = ABS(V(MAX))\r\n      Z = ZERO\r\n      DO 141 I = N1,N2\r\n      V(I) = V(I)/Y\r\n      IF (ABS(V(I)) .LT. DEPS) GO TO 141\r\n      Z = Z + V(I)*V(I)\r\n  141 CONTINUE\r\n      Z = SQRT(Z)\r\n      DO 142 I = N1,N2\r\n      V(I) = V(I)/Z\r\n  142 CONTINUE\r\nC\r\nC     CHECK CONVERGENCE OF THE LARGEST COMPONENT OF THE VECTOR.\r\nC\r\n      Y = ABS(V(MAX))\r\n      IF ( W .EQ. Y) GO TO 152\r\n      IF (ITER    .EQ.  MAXITR) GO TO 150\r\n      W = Y\r\nC\r\nC     PIVOT V.\r\nC\r\n      DO 145 I = N1,N2M1\r\n      IF (P(I) .EQ. O(I)) GO TO 144\r\n      V(I+1) = V(I+1) + V(I)*F(I)\r\n      GO TO 145\r\n  144 Z =  V(I+1)\r\n      V(I+1) = V(I) + Z/F(I)\r\n      V(I  ) = Z\r\n  145 CONTINUE\r\n  150 CONTINUE\r\nC\r\nC     TOO MANY ITERATIONS.\r\nC\r\nC     THE ACCURACY OF EIGENVECTOR XXXX CORRESPONDING TO THE EIGENVALUE\r\nC     XXXXXXX  IS IN DOUBT.\r\nC\r\n  152 DO 153 I = 1,N\r\n      VEC(I,VV) = V(I)\r\n  153 CONTINUE\r\nC\r\nC     CHECK MULTIPLICITY OF THE NEXT EIGENVALUE IF IT IS IN THE SAME\r\nC     SUBMATRIX AS THIS ONE.\r\nC\r\n      IF (VECTOR .EQ. V2) GO TO 160\r\nC\r\nC     FOR MGIV METHOD, USE ADJUSTED LAMBDA COMING OUT OF QRITER\r\nC     IN THE FOLLOWING CHECKS\r\nC\r\n      IF (ABS(VAL(VECTOR+1))+ABS(VAL(VECTOR)) .LT. RMULT) GO TO 154\r\n      IF (ABS(VAL(VECTOR+1)-VAL(VECTOR)) .GT.RMULT*ABS(VAL(VECTOR+1)))\r\n     1    GO TO 160\r\n  154 CONTINUE\r\n      L1 = VLOC(VECTOR+1)\r\n      IF (L1.LT.N1 .OR. L1.GT.N2) GO TO 160\r\nC\r\nC     A MULTIPLICITY DOES EXIT...THE INITIAL APPROXIMATION OF THE NEXT\r\nC     EIGENVECTOR SHOULD BE ORTHOGONAL TO THE ONE JUST CALCULATED.\r\nC\r\n      IF (MUL1 .EQ. 0) MUL1 = VV\r\n      MULP2 = MULP2 + 1\r\n      MULP3 = MULP2 + MUL1 - 1\r\n      DO 4001 KKK = N1,N2\r\n 4001 V(KKK) = ONE\r\n      DO 4003 JJJ = MUL1,MULP3\r\n      Z = ZERO\r\n      DO 4004 KK = N1,N2\r\n      DO 4005 II = N1,N2\r\n 4005 Z = Z + VEC(II,JJJ)*V(II)\r\n 4004 V(KK) = V(KK) - Z*VEC(KK,JJJ)\r\n 4003 CONTINUE\r\n      GO TO 175\r\nC\r\nC     DOES THIS EIGENVALUE = PREVIOUS ONE(S) IN THIS SUBMATRIX\r\nC\r\n  160 IF (MUL1 .EQ. 0) GO TO 175\r\nC\r\nC     A MULTIPLICITY OF EIGENVALUES OCCURRED...IMPROVE THE ORTHOGONALITY\r\nC     OF THE CORRESPONDING EIGENVECTORS.\r\nC\r\n      MULP1 = MUL1 + 1\r\n      DO 170 L = MULP1,VV\r\n      DO 161 I = N1,N2\r\n      P(I) = VEC(I,L)\r\n      Q(I) = ZERO\r\n  161 CONTINUE\r\n      LM1 = L - 1\r\n      DO 164 K = MUL1,LM1\r\n      Z = ZERO\r\n      DO 162 I = N1,N2\r\n      Z = Z + P(I)*VEC(I,K)\r\n  162 CONTINUE\r\n      DO 163  I = N1,N2\r\n      Q(I) = Q(I) + Z*VEC(I,K)\r\n  163 CONTINUE\r\n  164 CONTINUE\r\n      Z = ZERO\r\n      DO 165  K = N1,N2\r\n      Q(K) = P(K) - Q(K)\r\n      IF (ABS(Q(K)) .LT. DEPS) GO TO 165\r\n      Z = Z + Q(K)*Q(K)\r\n  165 CONTINUE\r\n      Z = SQRT(Z)\r\n      DO 166 K = N1,N2\r\n      VEC(K,L) = Q(K)/Z\r\n  166 CONTINUE\r\n  170 CONTINUE\r\n      MUL1  = 0\r\n      MULP2 = 0\r\n  175 CONTINUE\r\nC\r\nC     CORE IS NOW FULL OF EIGENVECTORS OF THE TRIDIAGONAL MATRIX.\r\nC     CONVERT THEM TO EIGENVECTORS OF THE ORIGINAL MATRIX.\r\nC\r\n      IT1 = IPREC\r\n      IT2 = IPREC\r\n      JJ  = N\r\n      INCR= 1\r\nC\r\nC     IS THE ORIGINAL MATRIX A 2X2\r\nC\r\n      IF (NM2  .EQ. 0) GO TO 186\r\n      MT = MT1\r\n      IF (PATH .NE. 0) GO TO 176\r\n      MT = MO\r\n  176 CALL GOPEN (MT,SVEC(IBUF1),IM2)\r\n      IF (PATH.EQ.0 .AND. V2.NE.NV) CALL GOPEN (MT1,SVEC(IBUF2),1)\r\n      IT3  = IPREC\r\n      JJJ  = N\r\n      INCR1= 1\r\n      DO 185 M = 1,NM2\r\n      L1  = N - M\r\n      III = L1+ 1\r\n      IF (PATH .EQ. 0) CALL BCKREC (MT)\r\n      CALL UNPACK (*167,MT,P)\r\n      GO TO 180\r\n  167 DO 179 I = 1,M\r\n      P(I) = ZERO\r\n  179 CONTINUE\r\n  180 IF (PATH.NE.0 .OR. V2.EQ.NV) GO TO 177\r\n      II = L1+1\r\n      CALL PACK (P,MT1,MCB)\r\n  177 IF (PATH .EQ. 0) CALL BCKREC (MT)\r\n      DO 182 K = 1,M\r\n      L2 = N - K + 1\r\n      I  = M - K + 1\r\n      Y  = P(I)\r\n      IF (Y .EQ. ZERO) GO TO 182\r\n      X = ZERO\r\n      IF (ABS(Y) .LT. ONE) X = SQRT(ONE-Y**2)\r\n      DO 181 VV = 1,NV2\r\n      Z = X*VEC(L1,VV) -Y*VEC(L2,VV)\r\n      VEC(L2,VV) = X*VEC(L2,VV) + Y*VEC(L1,VV)\r\n      VEC(L1,VV) = Z\r\n  181 CONTINUE\r\n  182 CONTINUE\r\n  185 CONTINUE\r\n      CALL CLOSE (MT,1)\r\n      IF (PATH .NE. 0) GO TO 186\r\n      IF (V2 .NE. NV) WRITE (IOTPE,1001) UIM,N,NV,NV1\r\n 1001 FORMAT (A29,' 2016A, WILVEC EIGENVECTOR COMPUTATIONS.', /37X,\r\n     1       'PROBLEM SIZE IS',I6,', NUMBER OF EIGENVECTORS TO BE ',\r\n     2       'RECOVERED IS',I6 , /37X,'SPILL WILL OCCUR FOR THIS ',\r\n     3       'CORE AT RECOVERY OF',I6,' EIGENVECTORS.')\r\n      PATH = 1\r\n      CALL CLOSE (MT1,1)\r\n      IM2  = 0\r\nC\r\nC     WRITE THE EIGENVECTORS ONTO PHIA\r\nC\r\n  186 CALL GOPEN (PHIA,SVEC(IBUF1),IM)\r\n      II  = 1\r\n      IT2 = IPREC\r\n      IF (IM.NE.1 .OR. NRIGID.LE.0) GO TO 205\r\nC\r\nC     PUT OUT ZERO VECTORS FOR RIGID BODY MODES\r\nC\r\n      JJ = 1\r\n      DO 206 VV = 1,NRIGID\r\n      CALL PACK (ZERO,PHIA,MCB1)\r\n  206 CONTINUE\r\n      JJ = N\r\n  205 CONTINUE\r\n      IM = 3\r\n      IF (N .EQ. 1) GO TO 250\r\n      DO 192 VV = 1,NV2\r\n      CALL PACK (VEC(1,VV),PHIA,MCB1)\r\n  192 CONTINUE\r\n  250 IF (V2 .EQ. NV) IM1 = 1\r\n      CALL CLOSE (PHIA,IM1)\r\n      XENTRY = -ENTRY\r\nC\r\nC     ANY TIME LEFT TO FIND MORE\r\nC\r\n      CALL TMTOGO (ITIME)\r\n      CALL KLOCK  (IFIN)\r\n      IF (2*(IFIN-IST) .GE. ITIME) GO TO 200\r\n      IF (V2 .NE. NV) GO TO 100\r\n  201 CALL WRTTRL (MCB1)\r\n      RETURN\r\nC\r\nC     MAX TIME\r\nC\r\n  200 ITERM = 3\r\n      GO TO 201\r\n      END\r\n"
  },
  {
    "path": "mis/wplt10.f",
    "content": "      SUBROUTINE WPLT10 (A,OPT)\r\nC\r\nC     TO WRITE PLOTTER COMMANDS FOR NASTRAN GENERAL PURPOSE PLOTTER\r\nC     REF - NASTRAN PROGRAMMER'S MANUAL P.3.4-111\r\nC\r\nC     REVISED  9/1990 BY G.CHAN/UNISYS\r\nC     SEE SGINO FOR IMPLEMENTATION OF PLT1 FILE\r\nC\r\nC     INPUT -\r\nC        OPT = 0 IF ARRAY A IS A PLOT COMMAND.\r\nC        OPT = 1 IF CURRENT SERIES OF PLOT COMMANDS IS TO BE TERMINATED\r\nC\r\nC     OUTPUT -\r\nC       A(1) = PLOT MODE DIGIT\r\nC       A(2) = CONTROL DIGIT\r\nC       A(3) = X1 = X-COORDINATE\r\nC       A(4) = Y1 = Y-COORDINATE\r\nC       A(5) = X2 = X-COORDINATE\r\nC       A(6) = Y2 = Y-COORDINATE\r\nC\r\nC     A PLT2 FILE PLOTTER COMMAND IS OF THE FOLLOWING FORMAT\r\nC\r\nC         MC1111122222333334444400000000\r\nC            WHERE M = MODE            1 BYTE\r\nC                  C = CONTROL         1 BYTE\r\nC                  1 = DIGIT OF X1     5 BYTES\r\nC                  2 = ..... .. Y1     5 BYTES\r\nC                  3 = ..... .. X2     5 BYTES\r\nC                  4 = ..... .. Y2     5 BYTES\r\nC                  0 = ZERO            8 BYTES\r\nC                              ---------------\r\nC                              TOTAL  30 BYTES\r\nC\r\nC     SEE SGINO FOR PLT1 FILE PLOTTER COMMAND FORMAT\r\nC\r\nC     /PLTDAT/\r\nC     EDGE = SIZE OF THE BORDERS (X,Y) IN PLOTTER UNITS,    REAL - INPUT\r\nC     PLOT = GINO FILE NAME OF THE PLOT TAPE TO BE WRITTEN,  BCD - INPUT\r\nC     MAXCHR = PLOT TAPE BUFFER SIZE (NUMBER OF CHARACTERS), INT - INPUT\r\nC              (AN INTEGER MULTIPLE OF THE NUMBER OF CHARACTERS\r\nC              PER WORD ON THE COMPUTER ON WHICH THE PLOT TAPE IS\r\nC              BEING READ)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      REAL             EDGE\r\n      INTEGER          A(6),C(30),TEN(5),ZERO(30)\r\n      COMMON /PLTDAT/  SKPPLT(8),EDGE(12),SKPA(10),PLOT,MAXCHR\r\n      EQUIVALENCE      (C1,C(1))\r\n      DATA    NCHR  ,  TEN,PZERO / 0, 10000, 1000, 100, 10, 1, +0 /,\r\n     1        PLT2  ,  NC,ZERO,C / 4HPLT2,   30,   30*0,    30*0  /\r\nC\r\n      IF (PLOT .EQ. PLT2) GO TO 100\r\nC\r\nC     PLT1 FILE - NON BYTE PACKING LOGIC\r\nC     A FORMAT OF (5(2I3,4I5)) IS COMPOSED IN SGINO\r\nC     =============================================\r\nC\r\n      NC = 6\r\n      IF (OPT .NE. 0) GO TO 40\r\nC\r\nC     SET UP THE MODE AND CONTROL CHARACTERS IN THE COMMAND.\r\nC\r\n      C1   = A(1)\r\n      C(2) = A(2)\r\nC\r\n      I3   = IFIX(EDGE(1) + .1)\r\n      I4   = IFIX(EDGE(2) + .1)\r\n      C(3) = A(3) + I3\r\n      C(4) = A(4) + I4\r\n      C(5) = A(5)\r\n      C(6) = A(6)\r\n      IF (C1.EQ.4 .OR. C1.EQ.14) GO TO 20\r\n      C(5) = A(5) + I3\r\n      C(6) = A(6) + I4\r\n   20 CALL SWRITE (PLOT,C,NC,0)\r\n      GO TO 200\r\nC\r\nC     TERMINATE A SET OF PLOT COMMANDS\r\nC     SEND A RECORD OF ALL ZERO-S TO SWRITE\r\nC\r\n   40 CALL SWRITE (PLOT,ZERO,NC,0)\r\n      CALL SWRITE (PLOT,0,0,1)\r\n      GO TO 200\r\nC\r\nC     PLT2 FILE - WITH BYTE PACKING LOGIC\r\nC     A FORMAT OF (10(180A4)) IS COMPOSED IN SGINO\r\nC     ============================================\r\nC\r\n  100 IF (OPT .NE. 0) GO TO 140\r\nC\r\nC     SET UP THE MODE + CONTROL CHARACTERS IN THE COMMAND.\r\nC\r\n      C1   = A(1)\r\n      C(2) = A(2)\r\nC\r\nC     SEPARATE THE DECIMAL DIGITS OF THE X + Y COORDINATES.\r\nC\r\n      DO 110 J = 1,4\r\n      I = 1\r\n      IF (J.EQ.2 .OR. J.EQ.4) I = 2\r\n      N = A(J+2)\r\n      IF (J.LT.3 .OR. (C1.NE.4 .AND. C1.NE.14)) N = N + IFIX(EDGE(I)+.1)\r\n      K = 5*(J-1)\r\n      DO 110 I = 1,5\r\n      M = N/TEN(I)\r\nC\r\nC   . M MAY BE A -0 (UNIVAC), SET IT TO +0 FOR SURE\r\nC\r\n      IF (M .EQ. 0) M = PZERO\r\n      C(K+3) = M\r\n      K = K + 1\r\n      N = N - M*TEN(I)\r\n  110 CONTINUE\r\nC\r\n      CALL SWRITE (PLOT,C,NC,0)\r\n      NCHR = NCHR + NC\r\n      IF (NCHR .EQ. MAXCHR) NCHR = 0\r\n      GO TO 200\r\nC\r\nC     TERMINATE A SET OF PLOT COMMANDS (FILL THE RECORD WITH ZERO-S).\r\nC\r\n  140 IF (NCHR .EQ. 0) GO TO 160\r\n  150 CALL SWRITE (PLOT,ZERO,NC,0)\r\n      NCHR = NCHR + NC\r\n      IF (NCHR .NE. MAXCHR) GO TO 150\r\n      NCHR = 0\r\n  160 CALL SWRITE (PLOT,0,0,1)\r\nC\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/wrtmsg.f",
    "content": "      SUBROUTINE WRTMSG (FILEX)\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      INTEGER         FILE,FILEX,TITLE,TTLSAV(32,6),COUNT,LST(50),\r\n     1                FOR(100),RET,EJECT,REW,BLANK,FORMAX,MASK1(5),\r\n     2                MASK2(5),POS,ANDF,ORF,RSHIFT,COMPLF,SYSX\r\nCWKBI\r\n      CHARACTER*1     FORMT(400)\r\n      COMMON /OUTPUT/ TITLE(32,6)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ SYSX(41)\r\nCWKBI\r\n      EQUIVALENCE     (FORMT, FOR)\r\n      EQUIVALENCE  (XLST,LST)\r\n      EQUIVALENCE     (SYSX( 2),MO   ), (SYSX( 9),MAXLIN),\r\n     1                (SYSX(12),COUNT), (SYSX(39),NBPC  ),\r\n     2                (SYSX(40),NBPW ), (SYSX(41),NCPW  )\r\n      DATA    LSTMAX, REW,FORMAX,BLANK/ 50,1,100,4H     /\r\nC\r\n      N2CPW  = NCPW/2\r\n      N2CPW1 = N2CPW - 1\r\n      NBPC2  = 2*NBPC\r\n      MASK1(1) = RSHIFT(COMPLF(0),NBPC2)\r\n      MASK2(1) = COMPLF(MASK1(1))\r\n      DO 10 I  = 2,N2CPW\r\n      MASK1(I) = ORF(MASK2(1),RSHIFT(MASK1(I-1),NBPC2))\r\n      MASK2(I) = COMPLF(MASK1(I))\r\n   10 CONTINUE\r\n      FILE = FILEX\r\nC\r\n      DO 20 J = 1,6\r\n      DO 20 I = 1,32\r\n      TTLSAV(I,J) = TITLE(I,J)\r\n   20 CONTINUE\r\nC\r\n   30 COUNT = MAXLIN\r\n   40 CALL READ (*500,*30,FILE,N,1,0,NF)\r\n      IF (N) 100,130,110\r\nC\r\nC     A TITLE OR SUBTITLE FOLLOWS.\r\nC\r\n  100 N = -N\r\n      IF (N .LE. 6) CALL FREAD (FILE,TITLE(1,N),32,0)\r\n      IF (N .GT. 6) CALL FREAD (FILE,0,-32,0)\r\n      GO TO 30\r\nC\r\nC     A MESSAGE FOLLOWS...N = NUMBER OF LIST ITEMS.\r\nC\r\n  110 IF (N .LE. LSTMAX) GO TO 120\r\n      CALL FREAD (FILE,0,-N,0)\r\n      GO TO 130\r\n  120 IF (N .NE. 0) CALL FREAD (FILE,LST,N,0)\r\nC\r\nC     READ THE CORRESPONDING FORMAT...NF = SIZE OF THE FORMAT.\r\nC\r\n  130 CALL FREAD (FILE,NF,1,0)\r\n      IF (NF) 140,150,160\r\n  140 COUNT = COUNT - NF\r\n      GO TO 130\r\n  150 COUNT = MAXLIN\r\n      GO TO 130\r\n  160 IF (NF .LE. FORMAX) GO TO 170\r\n      CALL FREAD (FILE,0,-NF,0)\r\n      GO TO 30\r\n  170 CALL FREAD (FILE,FOR,NF,0)\r\nC\r\nC     CONDENSE FOR ARRAY TO ACQUIRE CONTIGUOUS HOLLERITH STRINGS.\r\nC\r\n      IF (NCPW .EQ. 4) GO TO 300\r\n      DO 290 I = 2,NF\r\n      K1 = 1\r\n      POS= 2*I - 1\r\n      J  = (POS+N2CPW1)/N2CPW\r\n      K2 = POS - N2CPW*(J-1)\r\n      ASSIGN 200 TO RET\r\n      GO TO 240\r\n  200 CONTINUE\r\n      K1 = 2\r\n      IF (K2+1 .LE. N2CPW) GO TO 210\r\n      K2 = 1\r\n      J  = J + 1\r\n      GO TO 220\r\n  210 K2 = K2 + 1\r\n  220 CONTINUE\r\n      ASSIGN 230 TO RET\r\n      GO TO 240\r\n  230 CONTINUE\r\n      GO TO 290\r\n  240 IF (K2-K1) 250,260,270\r\n  250 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)),\r\n     1         LSHIFT(ANDF(FOR(I),MASK2(K1)),(NBPC2*(K1-K2))))\r\n      GO TO 280\r\n  260 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)),ANDF(FOR(I),MASK2(K1)))\r\n      GO TO 280\r\n  270 FOR(J) = ORF(ANDF(FOR(J),MASK1(K2)),\r\n     1         RSHIFT(ANDF(FOR(I),MASK2(K1)),(NBPC2*(K2-K1))))\r\n      GO TO 280\r\n  280 CONTINUE\r\n      GO TO RET, (200,230)\r\n  290 CONTINUE\r\n  300 CONTINUE\r\nC\r\nC     PRINT THE LINE\r\nC\r\n      IF (EJECT(1) .EQ. 0) GO TO 450\r\n      DO 440 J = 4,6\r\n      DO 410 I = 1,32\r\n      IF (TITLE(I,J) .NE. BLANK) GO TO 420\r\n  410 CONTINUE\r\n      COUNT = COUNT - 1\r\n      GO TO 440\r\n  420 WRITE  (MO,430) (TITLE(I,J),I=1,32)\r\n  430 FORMAT (2X,32A4)\r\n  440 CONTINUE\r\n      WRITE  (MO,430)\r\n      COUNT = COUNT + 1\r\nC\r\n  450 IF(N.EQ.0 .AND. (MACH.EQ.5 .OR. MACH.EQ.12) )GO TO 470\r\n      IF (MACH .EQ. 5 .OR. MACH .EQ. 12 ) GO TO 460\r\n      CALL FORWRT ( FORMT, LST, N )\r\n      GO TO 40\r\n  460 WRITE (MO,FOR,ERR=465) (LST(J),J=1,N)\r\n  465 CONTINUE\r\n      GO TO 40\r\n  470 WRITE (MO,FOR)\r\n      GO TO 40\r\nC\r\nC     END OF MESSAGE FILE\r\nC\r\n  500 CALL CLOSE (FILE,REW)\r\n      DO 510 J = 1,6\r\n      DO 510 I = 1,32\r\n      TITLE(I,J) = TTLSAV(I,J)\r\n  510 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/wrtprt.f",
    "content": "      SUBROUTINE WRTPRT (FILE,LIST,FORMAT,N)\r\nC\r\n      INTEGER FILE,LIST(1),FORMAT(N)\r\nC\r\n      CALL WRITE (FILE,LIST,LIST(1)+1,0)\r\n      CALL WRITE (FILE,N,1,0)\r\n      CALL WRITE (FILE,FORMAT,N,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/wrttrl.f",
    "content": "      SUBROUTINE WRTTRL (FILBLK)\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      INTEGER         FILBLK(7),FIAT,FIST,NAME(2),ORF,RSHIFT,ANDF,\r\n     1                FILBK(7),LB(2)\r\n      REAL            WORDS(4)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /XFIAT / FIAT(3)\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XSORTX/ ISAV(6)\r\n      COMMON /L15 L8/ L15,L8\r\n      COMMON /SYSTEM/ SYSTEM(175)\r\n      COMMON /LOGOUT/ LOUT\r\n      EQUIVALENCE     (SYSTEM(2),IOUT), (SYSTEM(24),ICFIAT),\r\n     1                (SYSTEM(40),NBPW)\r\n      DATA    MBIT  / 0 /   ,WORDS / 1.0, 2.0, 2.0, 4.0 /\r\n      DATA    NAME  / 4HWRTT,4HRL  /\r\n      DATA    MASK  / 65535 /\r\nC\r\nC\r\nC     IF ICFIAT= 8, WRTTRL WILL PACK SIX SIXTEEN BIT POSITIVE INTEGERS\r\nC     INTO THREE THIRTY-TWO BIT WORDS AND STORE THEM IN THE FIAT\r\nC     NO SUCH PACKING IF ICFIAT=11\r\nC\r\nC\r\nC     SEARCH FIST FOR THE FILE\r\nC\r\nC     WRTTRL WILL NOT CHANGE TRAILER FOR 100 SERIES FILES\r\nC\r\n      IF (FILBLK(1).GT.100 .AND. FILBLK(1).LT.199) CALL MESAGE (-40,\r\n     1    FILBLK(1),NAME)\r\nC\r\nC     ONLY MATGEN, OPTION 10, SENDS FILE 199 OVER HERE\r\nC\r\n      IF (FILBLK(1) .EQ. 199) FILBLK(1) = 101\r\nC\r\nC     THIS 'NEXT TO SIGN' MBIT IS SET BY SDCOMP AND SDCMPS\r\nC\r\n      MBIT = LSHIFT(1,NBPW-2 - (NBPW-32))\r\n      NOUT = IOUT\r\n      NOUT = LOUT\r\nC\r\nC     VERIFY SQUARE AND SYMM. MATRICES\r\nC\r\n      IF (L8.EQ.0 .OR. L15.EQ.0) GO TO 20\r\n      IF (FILBLK(7)  .LT.  MBIT) GO TO 20\r\n      IF (FILBLK(4).NE.1 .AND. FILBLK(4).NE.6) GO TO 20\r\n      IF (FILBLK(2) .EQ. FILBLK(3)) GO TO 20\r\n      CALL FNAME (FILBLK(1),LB(1))\r\n      WRITE  (IOUT,10) SWM,LB(1),LB(2),FILBLK(2),FILBLK(3),FILBLK(4)\r\n   10 FORMAT (A27,', DATA BLOCK ',2A4,1H,,I9,3H BY,I8,', IS MIS-LABLED',\r\n     1       ' SQUARE OR SYMM.  (FORM=',I3,1H), /5X,\r\n     2       'TURN DIAGS 1, 8 AND 15 ON FOR ERROR TRACEBACK')\r\n      CALL SSWTCH (1,N)\r\nCWKBD IF (N .NE. 0) CALL ERRTRC ('WRTTRL  ',10)\r\nC\r\n   20 CONTINUE\r\n      N = FIST(2)*2 + 1\r\n      DO 30 I = 3,N,2\r\n      IF (FIST(I) .NE. FILBLK(1)) GO TO 30\r\n      INDEX = FIST(I+1) + 1\r\n      GO TO 40\r\n   30 CONTINUE\r\n      CALL MESAGE (-11,FILBLK(1),NAME)\r\nC\r\nC     IF (1) BIT 'NEXT TO SIGN BIT' IS ON IN FILBLK(7), (2) FILBLK(2)\r\nC     AND FILBLK(3), WHICH ARE COLUMN AND ROW, ARE NON ZEROS, AND\r\nC     FILBLK(5), WHICH IS TYPE, IS 1,2,3 OR 4, THE INCOMING TRAILER IS\r\nC     A MATRIX TRAILER. IN THIS CASE FILBLK(7) IS CONVERTED TO A DENSITY\r\nC     PERCENTAGE BEFORE STORING IN THE FIAT.\r\nC\r\n   40 IF (FILBLK(7) .LT. MBIT) GO TO 50\r\n      COUNT = FILBLK(7) - MBIT\r\n      I = FILBLK(5)\r\n      IF (FILBLK(2).EQ.0 .OR. FILBLK(3).EQ.0 .OR. I.LT.1 .OR. I.GT.4)\r\n     1    GO TO 50\r\n      FN = FILBLK(2)\r\n      FM = FILBLK(3)\r\n      FILBLK(7) = (COUNT/(FN*FM*WORDS(I)))*1.E4 + 1.0E-3\r\n      IF (FILBLK(7).EQ.0 .AND. FILBLK(6).NE.0) FILBLK(7) = 1\r\n   50 CONTINUE\r\nC\r\n      IF (L8 .EQ. 0) GO TO 100\r\n      WRITE  (NOUT,60,ERR=70) FIAT(INDEX+1),FIAT(INDEX+2),\r\n     1                        (FILBLK(I),I=2,7)\r\n   60 FORMAT (' *** DIAG 8, MESSAGE -- TRAILER FOR DATA BLOCK ',2A4,\r\n     1        2H =,6I10)\r\n      GO TO 100\r\n   70 CALL SSWTCH (1,N)\r\n      IF (N .EQ. 0) GO TO 100\r\n      WRITE  (NOUT,80,ERR=90) (FILBLK(I),I=2,7)\r\nCIBMR 6/93 80 FORMAT (3H  (,6O20,1H))\r\n   80 FORMAT (3H  (,6I8,1H))\r\nCWKBR   90 CALL ERRTRC ('WRTTRL  ',70)\r\n   90 CONTINUE\r\nC\r\nC     IF ICFIAT IS 8, PACK THE TRAILER INFORMATION IN THE FIAT.\r\nC     BEFORE PACKING MAKE SURE NUMBERS ARE POSITIVE AND .LE. 16 BITS.\r\nC\r\nC     IF ICFIAT IS 11, 6 TRAILER WORDS ARE STORED DIRECTLY INTO 4TH,\r\nC     5TH, 6TH, 9TH, 10TH AND 11TH WORD OF A FIAT ENTRY\r\nC\r\n  100 IF (ICFIAT .EQ. 11) GO TO 120\r\n      DO 110 I = 2,7\r\n      FILBLK(I) = ANDF(MASK,IABS(FILBLK(I)))\r\n  110 CONTINUE\r\n      FIAT(INDEX+ 3) = ORF(FILBLK(3),LSHIFT(FILBLK(2),16))\r\n      FIAT(INDEX+ 4) = ORF(FILBLK(5),LSHIFT(FILBLK(4),16))\r\n      FIAT(INDEX+ 5) = ORF(FILBLK(7),LSHIFT(FILBLK(6),16))\r\n      GO TO 130\r\n  120 FIAT(INDEX+ 3) = FILBLK(2)\r\n      FIAT(INDEX+ 4) = FILBLK(3)\r\n      FIAT(INDEX+ 5) = FILBLK(4)\r\n      FIAT(INDEX+ 8) = FILBLK(5)\r\n      FIAT(INDEX+ 9) = FILBLK(6)\r\n      FIAT(INDEX+10) = FILBLK(7)\r\n  130 IF (FIAT(INDEX) .GE. 0) GO TO 150\r\nC\r\nC     FIND EQUIVALENCED FILES IN FIAT AND WRITE TRAILER ON THEM\r\nC\r\n      IUCB  = ANDF(FIAT(INDEX),MASK)\r\n      IENDF = FIAT(3)*ICFIAT - 2\r\n      DO 140 I = 4,IENDF,ICFIAT\r\n      IF (FIAT(I) .GE. 0) GO TO 140\r\nC\r\nC     PICK UP UNIT CONTROL BLOCK\r\nC\r\n      ITUCB = ANDF(FIAT(I),MASK)\r\n      IF (ITUCB .NE. IUCB) GO TO 140\r\nC\r\nC     FOUND FILE\r\nC\r\n      FIAT(I+ 3) = FIAT(INDEX+ 3)\r\n      FIAT(I+ 4) = FIAT(INDEX+ 4)\r\n      FIAT(I+ 5) = FIAT(INDEX+ 5)\r\n      IF (ICFIAT .EQ. 8) GO TO 140\r\n      FIAT(I+ 8) = FIAT(INDEX+ 8)\r\n      FIAT(I+ 9) = FIAT(INDEX+ 9)\r\n      FIAT(I+10) = FIAT(INDEX+10)\r\n  140 CONTINUE\r\nC\r\nC     SAVE THE TRAILER IN ISAV IF FILE IS SCRATCH 1\r\nC     (SAVED FOR GINOFILE MODULE, SUBROUTINE GINOFL)\r\nC\r\n  150 IF (FILBLK(1) .NE. 301) RETURN\r\n      ISAV(1) = FIAT(INDEX+ 3)\r\n      ISAV(2) = FIAT(INDEX+ 4)\r\n      ISAV(3) = FIAT(INDEX+ 5)\r\n      IF (ICFIAT .EQ. 8) GO TO 160\r\n      ISAV(4) = FIAT(INDEX+ 8)\r\n      ISAV(5) = FIAT(INDEX+ 9)\r\n      ISAV(6) = FIAT(INDEX+10)\r\n  160 RETURN\r\nC\r\nC\r\n      ENTRY RDTRL (FILBK)\r\nC     ===================\r\nC\r\nC     RDTRL WILL UNPACK THE THREE WORDS STORED IN THE FIAT AND RETURN\r\nC     THE SIX WORDS OF TRAILER INFORMATION\r\nC\r\nC\r\nC     SEARCH THE FIST FOR THE FILE\r\nC\r\n      N = FIST(2)*2 + 1\r\n      DO 200 I = 3,N,2\r\n      IF (FIST(I) .NE. FILBK(1)) GO TO 200\r\n      INDEX = FIST(I+1) + 1\r\n      GO TO 210\r\n  200 CONTINUE\r\nC\r\nC     FILE WAS NOT FOUND, SET THE FILE NAME NEGATIVE\r\nC\r\n      FILBK(1) = -IABS(FILBK(1))\r\n      RETURN\r\nC\r\nC     CHECK FIAT ENTRY 8 OR 11 WORDS PER ENTRY\r\nC\r\n  210 IF (ICFIAT .EQ. 11) GO TO 220\r\nC\r\nC     8 WORD ENTRY, UNPACK THE TRAILER INFORMATION\r\nC\r\n      FILBK(2) = RSHIFT(FIAT(INDEX+3),16)\r\n      FILBK(3) = ANDF(FIAT(INDEX+3),MASK)\r\n      FILBK(4) = RSHIFT(FIAT(INDEX+4),16)\r\n      FILBK(5) = ANDF(FIAT(INDEX+4),MASK)\r\n      FILBK(6) = RSHIFT(FIAT(INDEX+5),16)\r\n      FILBK(7) = ANDF(FIAT(INDEX+5),MASK)\r\n      GO TO 230\r\nC\r\nC     11 WORD ENTRY, TRAILER NOT PACKED\r\nC\r\n  220 FILBK(2) = FIAT(INDEX+ 3)\r\n      FILBK(3) = FIAT(INDEX+ 4)\r\n      FILBK(4) = FIAT(INDEX+ 5)\r\n      FILBK(5) = FIAT(INDEX+ 8)\r\n      FILBK(6) = FIAT(INDEX+ 9)\r\n      FILBK(7) = FIAT(INDEX+10)\r\nC\r\n  230 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xcei.f",
    "content": "      SUBROUTINE XCEI\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      DIMENSION       DCPARM(2),NXCEI(2),IDIC(1),NXPTDC(2),CONTRL(4)\r\n      COMMON /XVPS  / VPS(1)\r\nCWKBR COMMON /XCEITB/ CEITBL(2)\r\n      COMMON /XCEITB/ CEITBL(42)\r\n      COMMON /OSCENT/ BUF(7)\r\n      COMMON /ZZZZZZ/ DATABF(1)\r\n      COMMON /SYSTEM/ BFSZ,ISYSOU,DUM21(21),ICFIAT,DUM57(57),ICPFLG\r\n      COMMON /XFIAT / IFIAT(3)\r\n      COMMON /XDPL  / IDPL(3)\r\n      EQUIVALENCE     (DATABF(1),IDIC(1))\r\n      DATA    NXPTDC/ 4HXPTD,4HIC  /\r\n      DATA    NXCEI / 4HXCEI,4H    /\r\n      DATA    NOSCAR/ 4HXOSC/\r\n      DATA    POOL  / 4HPOOL/\r\n      DATA    CONTRL/ 4HJUMP,4HREPT,4HCOND,4HEXIT/\r\n      DATA    NBLANK/ 4H    /\r\n      DATA    MASK1 / 65535 /, NOFLGS / 536870911/\r\nC\r\nC     MASK1  = 000000177777 =     65536 = 2**16-1\r\nC     NOFLGS = 003777777777 = 536870911 = 2**29-1\r\nC     MASK   = 017777600000\r\nC     LPFLG  = 010000000000\r\nC\r\n      MASK  = LSHIFT(MASK1,16)\r\n      LPFLG = LSHIFT(1,30)\r\n      CALL OPEN (*310,POOL,DATABF,2)\r\nC\r\nC     DETERMINE WHICH TYPE OF CONTROL REQUEST\r\nC\r\n      DO 10 J = 1,4\r\n      IF (BUF(4) .EQ. CONTRL(J)) GO TO (150,110,250,270), J\r\n   10 CONTINUE\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     PROCESS  JUMP CONTROL REQUEST\r\nC\r\n   30 IF (NEWSQ .GT. BUF(2)) GO TO 60\r\nC\r\nC     MUST BACKSPACE WITHIN OSCAR FILE\r\nC     DUE TO GINO TECHNIQUES IT IS USUALLY FASTER TO REWIND AND FORWARD\r\nC     REC RATHER THAN BACKREC\r\nC\r\n      CALL REWIND (POOL)\r\nC\r\nC     POSITION POOL TAPE AT BEGINNING OF OSCAR FILE\r\nC\r\n      JJ = IDPL(3)*3 + 1\r\n      DO 40 J = 4,JJ,3\r\n      IF (IDPL(J) .EQ. NOSCAR) GO TO 50\r\n   40 CONTINUE\r\n      CALL MESAGE (-61,0,0)\r\n   50 CALL SKPFIL (POOL,ANDF(IDPL(J+2),MASK1)-1)\r\n      NEWSQ = NEWSQ - 1\r\n      GO TO 70\r\nC\r\nC     MUST FORWARD REC WITHIN OSCAR FILE\r\nC\r\n   60 NEWSQ = NEWSQ - BUF(2) - 1\r\n      IF (NEWSQ .EQ. 0) GO TO 260\r\n   70 DO 80 I = 1,NEWSQ\r\n   80 CALL FWDREC (*290,POOL)\r\nC\r\nC     CHECK FOR REPEAT INSTRUCTION\r\nC\r\n      IF (BUF(4) .EQ. CONTRL(2)) GO TO 260\r\nC\r\nC     JUMP REQUEST - CHECK FOR JUMP OUT OF LOOPS\r\nC\r\n      NEWSQ = RSHIFT(ANDF(BUF(7),MASK),16)\r\n      KK = 3\r\n      CEITBX = 0\r\n  100 CEITBX = 4 + CEITBX\r\n      IF (CEITBX .GT. CEITBL(2)) GO TO 260\r\n      IF (ANDF(CEITBL(CEITBX-1),LPFLG).EQ.0 .OR. CEITBL(CEITBX+1).EQ.0)\r\n     1    GO TO 100\r\n      NBEGN = RSHIFT(ANDF(CEITBL(CEITBX-1),NOFLGS),16)\r\n      NEND  = ANDF(MASK1,CEITBL(CEITBX-1))\r\n      IF (NEWSQ.LT.NBEGN .OR. NEWSQ.GT.NEND) GO TO 130\r\n      GO TO 100\r\nC\r\nC     PROCESS  REPEAT CONTROL REQUEST\r\nC\r\n  110 KK = 1\r\n  120 CEITBX = ANDF(BUF(7),MASK1)\r\n      IF (CEITBL(CEITBX)) 121,122,122\r\nC\r\nC      NEGATIVE ENTRY IMPLIES VARIABLE REPT INSTRUCTION\r\nC      FIND VALUE IN VPS AND UPDATE CEITBL\r\nC\r\n  121 IVPSPT = RSHIFT(ANDF(CEITBL(CEITBX),NOFLGS),16)\r\n      LOOP   = ANDF(CEITBL(CEITBX),MASK1)\r\n      IVPSPT = VPS(IVPSPT+3)\r\n      CEITBL(CEITBX) = ORF(LSHIFT(IVPSPT,16),LOOP)\r\n  122 CONTINUE\r\nC\r\nC     CHECK FOR END OF LOOP\r\nC\r\n      MXLOOP = RSHIFT(ANDF(CEITBL(CEITBX),NOFLGS),16)\r\n      LOOP   = ANDF(CEITBL(CEITBX),MASK1)\r\n      IF (MXLOOP .GT. LOOP) GO TO 140\r\nC\r\nC     REPEATS FINISHED - ZERO LOOP COUNT AND TURN OFF LOOP FLAG\r\nC\r\n  130 CEITBL(CEITBX  ) = ANDF(CEITBL(CEITBX  ),MASK  )\r\n      CEITBL(CEITBX-1) = ANDF(CEITBL(CEITBX-1),NOFLGS)\r\n      GO TO (260,280,100), KK\r\nC\r\nC     ANOTHER  TIME THRU - INCREMENT COUNTER BY 1\r\nC\r\n  140 CEITBL(CEITBX) = CEITBL(CEITBX) + 1\r\nC\r\nC     SET LOOP FLAG IN WORD 1 OF CEITBL ENTRY\r\nC\r\n      CEITBL(CEITBX-1) = ORF(CEITBL(CEITBX-1),LPFLG)\r\n      GO TO (150,260), KK\r\n  150 NEWSQ = RSHIFT(ANDF(BUF(7),MASK),16)\r\nC\r\nC     MAKE SURE WE ARE LOOPING\r\nC\r\n      IF (NEWSQ .GE. BUF(2)) GO TO 30\r\nC\r\nC     IF CHECKPOINTING - BACKUP PROBLEM TAPE DICTIONARY TO BEGINNING OF\r\nC     LOOP\r\nC\r\n      IF (ICPFLG .EQ. 0) GO TO 210\r\nC\r\nC     READ IN CHECKPOINT DICTIONARY\r\nC\r\n      ITOP = 2*BFSZ + 1\r\n      LDIC = KORSZ(IDIC(ITOP))\r\n      CALL OPEN (*310,NXPTDC,DATABF(BFSZ+1),0)\r\n      CALL READ (*300,*160,NXPTDC,DCPARM,2,1,NRECSZ)\r\n  160 IF (NXPTDC(1) .NE. DCPARM(1)) CALL MESAGE (-61,0,0)\r\n      CALL READ (*300,*170,NXPTDC,DCPARM,2,1,NRECSZ)\r\n  170 CALL READ (*300,*180,NXPTDC,IDIC(ITOP),LDIC,1,NRECSZ)\r\n      GO TO 310\r\n  180 IBOT = NRECSZ + ITOP - 3\r\n      CALL CLOSE (NXPTDC,1)\r\n      J = IBOT\r\n      DO 190 I = ITOP,IBOT,3\r\n      IF (IDIC(I) .NE. NBLANK) GO TO 190\r\n      IF (ANDF(IDIC(I+2),MASK1) .LT. NEWSQ) GO TO 190\r\n      J = I - 3\r\n      GO TO 200\r\n  190 CONTINUE\r\n  200 IBOT = J\r\nC\r\nC     WRITE IDIC ON NEW PROBLEM TAPE\r\nC\r\n      CALL OPEN  (*310,NXPTDC,DATABF(BFSZ+1),1)\r\n      CALL WRITE (NXPTDC,NXPTDC,2,1)\r\n      CALL WRITE (NXPTDC,DCPARM,2,1)\r\n      CALL WRITE (NXPTDC,IDIC(ITOP),IBOT+3-ITOP,1)\r\n      CALL CLOSE (NXPTDC,1)\r\nC\r\nC     SCAN FIAT FOR FILES REGENERATED NEXT TIME THRU LOOP.\r\nC\r\n  210 J  = IFIAT(3)*ICFIAT - 2\r\n      JJ = IDPL(3) *3 + 1\r\n      DO 240 I = 4,J,ICFIAT\r\n      IF (RSHIFT(ANDF(IFIAT(I),NOFLGS),16) .GE. BUF(2)) GO TO 240\r\n      IF (RSHIFT(ANDF(IFIAT(I),NOFLGS),16) .EQ.      0) GO TO 240\r\n      IF (ANDF(RSHIFT(IFIAT(I),30),1)      .NE.      0) GO TO 240\r\nC\r\nC     LTU IS LESS THAN LOOP END - CLEAR FIAT TRAILER\r\nC\r\n      IFIAT(I+ 3) = 0\r\n      IFIAT(I+ 4) = 0\r\n      IFIAT(I+ 5) = 0\r\n      IF (ICFIAT .EQ. 8) GO TO 212\r\n      IFIAT(I+ 8) = 0\r\n      IFIAT(I+ 9) = 0\r\n      IFIAT(I+10) = 0\r\nC\r\nC     IF EQUIV, REMOVE ENTIRE ENTRY FROM FIAT\r\nC     REMOVE ENTIRE ENTRY FROM FIAT TO FORCE REALLOCATION\r\nC\r\n  212 IHOLD = ANDF(MASK1,IFIAT(I))\r\n      IFIAT(I  ) = 0\r\n      IFIAT(I+1) = 0\r\n      IFIAT(I+2) = 0\r\n      IF (I .LT. IFIAT(1)*ICFIAT) IFIAT(I) = IHOLD\r\nC\r\nC     ZERO FILE NAME IF IN DPL\r\nC\r\n      DO 220 II = 4,JJ,3\r\n      IF (IDPL(II).EQ.IFIAT(I+1) .AND. IDPL(II+1).EQ.IFIAT(I+2))\r\n     1    GO TO 230\r\n  220 CONTINUE\r\n      GO TO 240\r\n  230 IDPL(II  ) = 0\r\n      IDPL(II+1) = 0\r\n  240 CONTINUE\r\n      GO TO 30\r\nC\r\nC     PROCESS  CONDITIONAL CONTROL REQUEST\r\nC\r\n  250 CEITBX = ANDF(BUF(7),MASK1)\r\n      IF (VPS(CEITBX) .LT. 0) GO TO 150\r\n  260 CALL CLOSE (POOL,2)\r\n      RETURN\r\nC\r\nC     PROCESS EXIT  CONTROL REQUESTS\r\nC\r\n  270 KK = 2\r\n      IF (BUF(7) .NE. CONTRL(4)) GO TO 120\r\n  280 CALL PEXIT\r\n  290 CALL MESAGE (-2,POOL  ,NXCEI)\r\n  300 CALL MESAGE (-2,NXPTDC,NXCEI)\r\n  310 CALL MESAGE (-61,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xchk.f",
    "content": "      SUBROUTINE XCHK\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO SAVE ON THE NEW PROBLEM NPTP\r\nC     TAPE ALL FILES REQUESTED BY XCHK OSCAR ENTRY TOGETHER WITH ANY\r\nC     OTHER DATA NECESSARY FOR RESTART.\r\nC\r\nC          ... DEFINITION OF PROGRAM VARIABLES ...\r\nC     NPTPNT = POINTER TO GINO BUFFER FOR NEW PROBLEM NPTP TAPE\r\nC     DPPNT  = POINTER TO GINO BUFFER FOR DATA POOL TAPE\r\nC     FPNT   = POINTER TO GINO BUFFER FOR FILES LISTED IN FIAT TABLE\r\nC     IOBUF  = INPUT/OUTPUT BUFFER AREA\r\nC     IOPNT  = POINTER TO IOBUF\r\nC     LIOBUF = LENGTH OF IOBUF\r\nC     DICT   = PRELIMINARY FILE DICTIONARY\r\nC     FDICT  = FINAL FILE DICTIONARY TO BE WRITTEN ON NEW PROBLEM TAPE\r\nC     LDC    = POINTER TO LAST DICT ENTRY MADE.\r\nC     DCPNT  = POINTER TO DICT ENTRY BEING SCANNED.\r\nC     NPTFN  = NEW PROBLEM TAPE (NPTP) FILE NUMBER TO BE ASSIGNED\r\nC     UCBPNT = UCB POINTER FOUND IN FIAT ENTRIES\r\nC     MINFN  = SMALLEST DATA POOL FILE NUMBER\r\nC     DPFCT  = DATA POOL FILE POSITION\r\nC     OSCFN  = DATA POOL FILE NUMBER OF OSCAR FILE\r\nC     EORFLG = END OF RECORD FLAG\r\nC     PURGE  = TABLE OF PURGED CHECKPOINT FILES\r\nC     LPURGE = LENGTH OF PURGE TABLE\r\nC     PRGPNT = POINTER TO LAST PURGE ENTRY\r\nC     REELCT = KEEPS TRACK OF HOW MANY PROBLEM TAPE REELS A FILE IS\r\nC              USING\r\nC     EQFLG  = EQUIVALENCE FLAG\r\nC     DPLFLG = DATA POOL FLAG\r\nC     EOTFLG = END OF TAPE FLAG\r\nC     SETEOR = END OF RECORD FLAG SET\r\nC     FNASS  = NPTP FILE NUMBER ASSIGNED FLAG\r\nC     MASKHI = MASK FOR ALL BITS EXCEPT LOWEST ORDER 16 BITS OF A WORD.\r\nC     NOFLGS = MASK FOR ALL FLAG BITS\r\nC     ALLON  = ALL BITS ON\r\nC     PTDIC  = ARRAY CONTAINING CHECKPOINT DICTIONARY\r\nC     SEQNO  = SEQUENCE NO. OF LAST PTDIC ENTRY THAT WAS PUNCHED OUT.\r\nC     NRLFL  = NEXT REEL/FILE NO. TO BE USED IN PTDIC\r\nC     PTDTOP = POINTER TO FIRST WORD OF FIRST ENTRY IN PTDIC\r\nC     PTDBOT = POINTER TO FIRST WORD OF LAST  ENTRY IN PTDIC\r\nC     LCPTP  = POINTER TO FIRST WORD OF FIRST ENTRY OF NEW GROUP OF\r\nC              ENTRIES TO BE PUT IN PTDIC.\r\nC     LPTDIC = LENGTH (IN WORDS) OF PTDIC\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      DIMENSION       BLKCNT(90),DCPARM(2),HEAD(2),PURGE(100),SVFST(2),\r\n     1                PGHDG(1),HDG(32),DICT(400),FDICT(400),PTDIC(1),\r\n     2                NXPTDC(2),IOBUF(1),NXCHK(2),NVPS(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XPFIST/ IPFST\r\n      COMMON /OSCENT/ OSCAR(7)\r\nCWKBR COMMON /XCEITB/ CEITBL(2)\r\n      COMMON /XCEITB/ CEITBL(42)\r\n      COMMON /XFIAT / FIAT(3)\r\n      COMMON /XDPL  / DPL(3)\r\n      COMMON /XVPS  / VPS(2)\r\n      COMMON /ZZZZZZ/ GBUF(1)\r\n      COMMON /SYSTEM/ ZSYS(91)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /OUTPUT/ PGHDG\r\n      COMMON /STAPID/ TAPID(6)\r\n      COMMON /RESDIC/ IRDICT,IROPEN\r\nCWKBI\r\nC      INCLUDE 'NASNAMES.COM'\r\n      EQUIVALENCE     (ZSYS( 1),BUFSZ ),(ZSYS( 2),OTPE  ),\r\n     1                (ZSYS( 9),NLPP  ),(ZSYS(11),NPAGES),\r\n     2                (ZSYS(12),NLINES),(ZSYS(24),ICFIAT),\r\n     3                (ZSYS(26),CPPGCT),(ZSYS(40),NBPW  )\r\n      EQUIVALENCE     (DCPARM(1),NRLFL),(DCPARM(2),SEQNO),\r\n     1                (GBUF(1),IOBUF(1),PTDIC(1))\r\n      DATA    NPTP  / 4HNPTP/\r\n      DATA    DPT   / 4HPOOL/\r\n      DATA    NBLANK/ 4H    /\r\n      DATA    NOSCAR/ 4HXOSC/\r\n      DATA    NXCHK / 4HXCHK,4H    /\r\n      DATA    NVPS  / 4HXVPS,4H    /\r\n      DATA    NXPTDC/ 4HXPTD,4HIC  /, DCPARM/4H(NON,4HE)  /\r\n      DATA    HDG   / 4H    ,4HADDI,4HTION,4HS TO,4H CHE,4HCKPO,4HINT ,\r\n     1                4HDICT,4HIONA,4HRY  ,22*4H    /\r\n      DATA    BLKCNT/ 90*0  /,      LIMIT /90       /\r\n      DATA    LPURGE/ 100   /\r\nC\r\nC     INITIALIZE\r\nC\r\n      FILCNT = 0\r\n      REELCT = 0\r\n      LDC    =-2\r\n      RECSZ  = 0\r\n      PRGPNT =-1\r\n      CALL SSWTCH (9,DIAG09)\r\n      IF (MACH .LT. 5) CALL XFLSZD (0,BLKSIZ,0)\r\nC\r\nC     MASKHI - O000000077777\r\n      MASKHI = 32767\r\nC\r\nC     DPLFLG - O004000000000\r\n      DPLFLG = LSHIFT(1,29)\r\nC\r\nC     SETEOR - O004000000000\r\n      SETEOR = DPLFLG\r\nC\r\nC     FNASS  - O010000000000\r\n      FNASS  = LSHIFT(1,30)\r\nC\r\nC     EOTFLG - O010000000000\r\n      EOTFLG = FNASS\r\nC\r\nC     ALLON  - O777777777777\r\n      ALLON  = COMPLF(0)\r\nC\r\nC     NOSGN  - O377777777777\r\n      NOSGN  = RSHIFT(ALLON,1)\r\nC\r\nC     EQFLG  - O400000000000\r\n      EQFLG  = COMPLF(NOSGN)\r\nC\r\nC     NOFLGS - O003777777777\r\n      NOFLGS = RSHIFT(ALLON,NBPW-29)\r\nC\r\nC\r\nC     FIND OSCAR FILE NUMBER IN DPL\r\nC\r\n      J1 = DPL(3)*3 + 1\r\n      DO 10 J = 4,J1,3\r\n      IF (DPL(J) .EQ. NOSCAR) GO TO 20\r\n   10 CONTINUE\r\n   20 OSCFN = ANDF(DPL(J+2),MASKHI)\r\n      DPFCT = OSCFN\r\nC\r\nC     ALLOCATE CORE FOR GINO BUFFERS\r\nC\r\n      NPTPNT = KORSZ(GBUF) - BUFSZ - 1\r\n      DPPNT  = NPTPNT - BUFSZ\r\n      FPNT   = DPPNT  - BUFSZ\r\n      IF (FPNT .LT. 1) CALL MESAGE (-8,0,NXCHK)\r\nC\r\nC     INITIALIZE PTDIC PARAMETERS AND LOAD CHECKPOINT DICTIONARY\r\nC\r\n      NGINO = NXPTDC(1)\r\n      CALL OPEN (*905,NXPTDC,GBUF(NPTPNT),0)\r\n      CALL READ (*970,*30,NXPTDC,DCPARM,2,1,RECSZ)\r\n   30 IF (DCPARM(1) .NE. NXPTDC(1)) GO TO 970\r\n      CALL READ (*970,*35,NXPTDC,DCPARM,2,1,RECSZ)\r\n   35 PTDTOP = 1\r\n      LPTDIC = NPTPNT - PTDTOP\r\n      CALL READ (*970,*40,NXPTDC,PTDIC(PTDTOP),LPTDIC,1,RECSZ)\r\n      GO TO 940\r\n   40 PTDBOT = RECSZ  + PTDTOP - 3\r\n      IOPNT  = PTDBOT + 6\r\n      LIOBUF = FPNT - IOPNT\r\n      IF (LIOBUF .LT. 1) CALL MESAGE (-8,0,NXCHK)\r\n      CALL CLOSE (NXPTDC,1)\r\n      LCPTP = PTDBOT + 3\r\nC\r\nC     SAVE CHECKPOINT DMAP SEQ. NO. AND RECORD NO.\r\nC\r\n      PTDIC(LCPTP  ) = NBLANK\r\n      PTDIC(LCPTP+1) = NBLANK\r\n      PTDIC(LCPTP+2) = ORF(OSCAR(2),LSHIFT(ANDF(MASKHI,OSCAR(6))+1,16))\r\n      NPTFN = NRLFL\r\nC\r\nC     GET FIRST/NEXT FILE NAME FROM OSCAR ENTRY\r\nC\r\n      I1 = OSCAR(7)*2 + 6\r\n      DO 200 I = 8,I1,2\r\nC\r\nC     SEE IF FILE IS ALREADY IN DICT\r\nC\r\n      IF (OSCAR(I).EQ.NVPS(1) .AND. OSCAR(I+1).EQ.NVPS(2)) GO TO 200\r\n      IF (LDC .LT. 0) GO TO 110\r\n      DO 100 J = 1,LDC,3\r\n      IF (DICT(J).EQ.OSCAR(I) .AND. DICT(J+1).EQ.OSCAR(I+1)) GO TO 200\r\n  100 CONTINUE\r\nC\r\nC     CHECK FIAT TABLE FOR FILE NAME\r\nC\r\n  110 J1 = FIAT(3)*ICFIAT - 2\r\n      DO 115 J = 4,J1,ICFIAT\r\n      IF (OSCAR(I).EQ.FIAT(J+1) .AND. OSCAR(I+1).EQ.FIAT(J+2)) GO TO 120\r\n  115 CONTINUE\r\n      GO TO 160\r\nC\r\nC     FILE IS IN FIAT - ENTER FILE AND ALL EQUIVALENCED FILES IN DICT\r\nC\r\n  120 IF (ANDF(FIAT(J),MASKHI) .EQ. MASKHI) GO TO 155\r\nC\r\nC     FILE NOT PURGED - CHECK FIAT TRAILER WORDS TO INSURE THAT FILE HAS\r\nC     BEEN GENERATED\r\nC\r\n      IF (FIAT(J+3).NE.0 .OR. FIAT(J+4).NE.0 .OR. FIAT(J+5).NE.0)\r\n     1    GO TO 125\r\n      IF (ICFIAT.EQ.11 .AND. (FIAT(J+8).NE.0 .OR. FIAT(J+9).NE.0 .OR.\r\n     1    FIAT(J+10).NE.0)) GO TO 125\r\n      GO TO 155\r\n  125 IF (FIAT(J) .LT. 0) GO TO 145\r\n      LDC = LDC + 3\r\n      DICT(LDC  ) = FIAT(J+1)\r\n      DICT(LDC+1) = FIAT(J+2)\r\n      DICT(LDC+2) = ORF(LSHIFT(J,16),ANDF(FIAT(J),MASKHI))\r\nC\r\nC     DESTROY ANY EQUIVS TO THIS FILE\r\nC\r\nC     FIND LAST DICTIONARY REFERENCE TO THIS DATA BLOCK NAME\r\nC\r\n      DO 130 J = PTDTOP,PTDBOT,3\r\n      K = PTDBOT - (J-PTDTOP)\r\n      IF (DICT(LDC).EQ.PTDIC(K) .AND. PTDIC(K+1).EQ.DICT(LDC+1))\r\n     1    GO TO 132\r\n  130 CONTINUE\r\n      GO TO 140\r\nC\r\nC     FILE EXISTS IN DICTIONARY SEE IF IT IS EQUIVED\r\nC\r\n  132 CONTINUE\r\n      IF (ANDF(PTDIC(K+2),EQFLG) .EQ. 0) GO TO 140\r\nC\r\nC     FILE IS EQUIVED.  PURGE ALL SUBSEQUENT ENTRIES FOR THIS FILE\r\nC\r\n      IF (K .EQ. PTDBOT) GO TO 140\r\n      DO 135 J = K,PTDBOT,3\r\n      IF (PTDIC(J+2) .NE. PTDIC(K+2)) GO TO 135\r\nC\r\nC     PURGE FILE\r\nC\r\n      PRGPNT = PRGPNT + 2\r\n      IF (LPURGE .LT. PRGPNT+1) GO TO 960\r\n      PURGE(PRGPNT  ) = PTDIC(J  )\r\n      PURGE(PRGPNT+1) = PTDIC(J+1)\r\n  135 CONTINUE\r\n  140 CONTINUE\r\n      GO TO 200\r\n  145 K = ANDF(FIAT(J),ORF(MASKHI,EQFLG))\r\n      DO 150 J = 4,J1,ICFIAT\r\n      IF (ANDF(FIAT(J),ORF(MASKHI,EQFLG)) .NE. K) GO TO 150\r\n      LDC = LDC + 3\r\nC\r\nC     EQUIVALENCED FILE FOUND\r\nC\r\n      DICT(LDC  ) = FIAT(J+1)\r\n      DICT(LDC+1) = FIAT(J+2)\r\nC\r\nC     ENTER EQUIVALENCE FLAG, FIAT POINTER AND UCB POINTER IN DICT\r\nC\r\n      DICT(LDC+2) = ORF(LSHIFT(J,16),K)\r\n  150 CONTINUE\r\n      GO TO 200\r\nC\r\nC     ENTER PURGED FILE IN PURGE TABLE\r\nC\r\n  155 PRGPNT = PRGPNT + 2\r\n      IF (LPURGE .LT. PRGPNT+1) GO TO 960\r\n      PURGE(PRGPNT  ) = OSCAR(I  )\r\n      PURGE(PRGPNT+1) = OSCAR(I+1)\r\n      GO TO 200\r\nC\r\nC     SEE IF FILE IS IN DPL\r\nC\r\n  160 J1 = DPL(3)*3 + 1\r\n      DO 170 J = 4,J1,3\r\n      IF (OSCAR(I).EQ.DPL(J) .AND. OSCAR(I+1).EQ.DPL(J+1)) GO TO 180\r\n  170 CONTINUE\r\n      GO TO 155\r\nC\r\nC     FILE IS IN DPL - ENTER FILE AND ALL EQUIVALENCED FILES IN DICT\r\nC\r\n  180 K = ANDF(DPL(J+2),MASKHI)\r\n      DPFCT = MIN0(OSCFN,K)\r\n      DO 190 J = 4,J1,3\r\n      IF (ANDF(DPL(J+2),MASKHI) .NE. K) GO TO 190\r\n      LDC = LDC + 3\r\nC\r\nC     EQUIVALENCED FILE FOUND\r\nC\r\n      DICT(LDC  ) = DPL(J  )\r\n      DICT(LDC+1) = DPL(J+1)\r\nC\r\nC     ENTER EQUIVALENCE FLAG, DPLFLG AND FILE NO. IN DICT\r\nC\r\n      DICT(LDC+2) = ORF(DPLFLG,ANDF(DPL(J+2),ORF(MASKHI,EQFLG)))\r\n  190 CONTINUE\r\n  200 CONTINUE\r\nC\r\nC     MOVE DICT ENTRIES TO FDICT TABLE\r\nC     GET FIRST NEXT/ENTRY IN DICT\r\nC\r\n      IF (LDC .LT. 1) GO TO 400\r\n      DO 300 I = 1,LDC,3\r\nC\r\nC     IF DICT ENTRY IS EQUIVALENCED - SEE IF IT IS IN PTDIC\r\nC\r\n      IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 300\r\n      IF (DICT(I+2) .GT. 0) GO TO 225\r\nC\r\nC     SEARCH BACKWARD FOR PREVIOUS ENTRY\r\nC\r\n      DO 210 J = PTDTOP,PTDBOT,3\r\n      K = PTDBOT - (J-PTDTOP)\r\n      IF (PTDIC(K).EQ.DICT(I) .AND. PTDIC(K+1).EQ.DICT(I+1) .AND.\r\n     1    PTDIC(K+2).NE.0) GO TO 215\r\n  210 CONTINUE\r\n      GO TO 225\r\nC\r\nC     DICT ENTRY IS IN PTDIC\r\nC\r\n  215 FDICT(I  ) = DICT(I  )\r\n      FDICT(I+1) = DICT(I+1)\r\n      FDICT(I+2) = ORF(PTDIC(K+2),EQFLG)\r\n      UCBPNT     = DICT(I+2)\r\n      DICT(I+2)  = FNASS\r\nC\r\nC     ENTER PTDIC FILE NUMBER IN FDICT ENTRIES THAT ARE EQUIVALENCED TO\r\nC     PTDIC ENTRY\r\nC\r\n      UCBPNT = ANDF(UCBPNT,ORF(MASKHI,DPLFLG))\r\n      DO 220 J = 1,LDC,3\r\n      IF (ANDF(DICT(J+2),ORF(MASKHI,DPLFLG)) .NE. UCBPNT) GO TO 220\r\n      FDICT(J  ) = DICT(J  )\r\n      FDICT(J+1) = DICT(J+1)\r\n      FDICT(J+2) = ORF(EQFLG,PTDIC(K+2))\r\n      DICT(J+2)  = FNASS\r\n  220 CONTINUE\r\nC\r\nC     MOVE DICT ENTRY TO FDICT IF NOT ALREADY MOVED\r\nC\r\n  225 IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 300\r\n      FDICT(I  ) = DICT(I  )\r\n      FDICT(I+1) = DICT(I+1)\r\n      FDICT(I+2) = DICT(I+2)\r\n      IF (ANDF(DICT(I+2),DPLFLG) .EQ. DPLFLG) GO TO 300\r\nC\r\nC     DICT ENTRY IS FIAT FILE - ENTER NPTP FILE NO. IN FDICT\r\nC\r\n      FDICT(I+2) = ORF(ANDF(FDICT(I+2),EQFLG),NPTFN)\r\n      DICT (I+2) = ORF(DICT(I+2),FNASS)\r\n      IF (DICT(I+2) .GT. 0) GO TO 295\r\nC\r\nC     FILE IS EQUIVALENCED - ENTER NPTP FILE NO. IN FDICT FOR FILES THAT\r\nC     THIS ENTRY IS EQUIVALENCED TO.\r\nC\r\n      UCBPNT = ANDF(DICT(I+2),MASKHI)\r\n      J1 = I + 3\r\n      IF (J1 .GT. LDC) GO TO 295\r\n      DO 230 J = J1,LDC,3\r\n      IF (ANDF(DICT(J+2),MASKHI) .NE. UCBPNT) GO TO 230\r\n      FDICT(J  ) = DICT(J  )\r\n      FDICT(J+1) = DICT(J+1)\r\n      FDICT(J+2) = FDICT(I+2)\r\n      DICT(J+2)  = ORF(DICT(J+2),FNASS)\r\n  230 CONTINUE\r\n  295 NPTFN = 1 + NPTFN\r\n  300 CONTINUE\r\nC\r\nC     NOW ASSIGN NPTP FILE NUMBERS TO DATA POOL FILES IN SAME ORDER THAT\r\nC     FILES APPEAR ON DATA POOL TAPE.\r\nC\r\n  310 MINFN = RSHIFT(ALLON,1)\r\nC\r\nC     GET FIRST/NEXT DICT ENTRY\r\nC\r\n      DO 330 I = 1,LDC,3\r\n      IF (ANDF(DICT(I+2),FNASS) .EQ. FNASS) GO TO 330\r\n      MINFN = MIN0(MINFN,ANDF(DICT(I+2),MASKHI))\r\n  330 CONTINUE\r\n      IF (MINFN .EQ. RSHIFT(ALLON,1)) GO TO 400\r\n      DO 350 I = 1,LDC,3\r\n      IF (ANDF(DICT(I+2),FNASS)  .EQ. FNASS) GO TO 350\r\n      IF (ANDF(DICT(I+2),MASKHI) .NE. MINFN) GO TO 350\r\n      FDICT(I+2) = ORF(NPTFN,ANDF(FDICT(I+2),EQFLG))\r\n      DICT (I+2) = ORF(DICT(I+2),FNASS)\r\n  350 CONTINUE\r\n      NPTFN = NPTFN + 1\r\n      GO TO 310\r\nC\r\nC     OPEN DATA POOL TAPE SO IT IS POSITIONED BEFORE FIRST FILE TO\r\nC     CHECKPOINT.\r\nC\r\n  400 IF (DPFCT .LT. OSCFN) GO TO 401\r\n      J = 2\r\n      DPFCT = OSCFN\r\n      GO TO 402\r\n  401 J = 0\r\n      DPFCT = 1\r\n  402 NAME  = DPT\r\n      CALL OPEN (*905,DPT,GBUF(DPPNT),J)\r\n      NAME  = NPTP\r\nC\r\nC     OPEN NEW PROBELM NPTP TAPE FOR WRITE\r\nC\r\n      CALL OPEN (*905,NPTP,GBUF(NPTPNT),3)\r\nC\r\nC     MAKE TEMPORARY ENTRY IN FIST FOR FIAT FILES\r\nC\r\n      IFSTMP   = 2*IPFST + 3\r\n      SVFST(1) = FIST(IFSTMP  )\r\n      SVFST(2) = FIST(IFSTMP+1)\r\n      FIST(2)  = IPFST + 1\r\n      FIST(IFSTMP) = 301\r\nC\r\nC     WRITE FILES ON NEW PROBLEM NPTP TAPE AS SPECIFIED IN FDICT.\r\nC\r\n      N1 = NPTFN - 1\r\nC\r\nC     GET FIRST/NEXT FDICT ENTRY\r\nC\r\n      N = NRLFL\r\n      IF (LDC.LT.1 .OR. N1.LT.N) GO TO 615\r\n  405 DO 410 I = 1,LDC,3\r\n      IF (ANDF(FDICT(I+2),NOFLGS) .EQ. N) GO TO 415\r\n  410 CONTINUE\r\nC\r\nC     FDICT ENTRIES SHOULD ALL BE COPIED - MAKE SURE ALL IS O.K.\r\nC\r\n      DO 412 I = 1,LDC,3\r\n      IF (ANDF(FDICT(I+2),NOFLGS) .GT. N) GO TO 920\r\n  412 CONTINUE\r\n      NPTFN = N\r\n      GO TO 615\r\nC\r\nC     THIS FDICT ENTRY IS NEXT TO GO ON NEW PROBLEM NPTP TAPE.\r\nC\r\n  415 IF (ANDF(DICT(I+2),DPLFLG) .EQ. DPLFLG) GO TO 450\r\nC\r\nC     FILE IS IN FIAT TABLE\r\nC\r\n      K = RSHIFT(ANDF(NOFLGS,DICT(I+2)),16)\r\n      IF (DICT(I+2) .GT. 0) GO TO 418\r\nC\r\nC     GET SMALLEST FIAT POINTER FOR EQUIVALENCED FIAT FILES\r\nC\r\n      DO 416 II = 1,LDC,3\r\n      IF (ANDF(DICT(II+2),DPLFLG) .EQ. DPLFLG) GO TO 416\r\n      IF (ANDF(DICT(I+2),MASKHI)  .EQ. ANDF(DICT(II+2),MASKHI))\r\n     1    K = MIN0(RSHIFT(ANDF(NOFLGS,DICT(II+2)),16),K)\r\n  416 CONTINUE\r\nC\r\nC     INSERT FIAT POINTER IN TEMPORARY FIST ENTRY\r\nC\r\n  418 FIST(IFSTMP+1) = K - 1\r\nC\r\nC     READ FIRST 2 WORDS OF DATA BLOCK, CHECK NAME AND WRITE TO NEW\r\nC     PROBLEM NPTP TAPE SPECIAL HEADER AND 3 OR 6 TRAILER WORDS\r\nC     (TOTAL OF 5 OR 8 WORDS IN THIS NPTP RECORD)\r\nC\r\n      NGINO = FIST(IFSTMP)\r\n      CALL OPEN (*900,NGINO,GBUF(FPNT),0)\r\n      FILCNT = FILCNT + 1\r\n      IF (FILCNT .GT. LIMIT) GO TO 990\r\n      CALL XFLSZD (-1,BLKCNT(FILCNT),NGINO)\r\n      CALL READ (*930,*930,NGINO,HEAD,2,0,RECSZ)\r\n      DO 440 J = I,LDC,3\r\n      IF (HEAD(1).EQ.FDICT(J) .AND. HEAD(2).EQ.FDICT(J+1) .AND.\r\n     1    FDICT(J+2).EQ.FDICT(I+2)) GO TO 445\r\n  440 CONTINUE\r\n      GO TO 930\r\n  445 CALL WRITE (NPTP,HEAD,2,0)\r\n      IF (ICFIAT .EQ. 11) GO TO 447\r\n      CALL WRITE (NPTP,FIAT(K+3),3,1)\r\n      GO TO 448\r\n  447 CALL WRITE (NPTP,FIAT(K+3),3,0)\r\n      CALL WRITE (NPTP,FIAT(K+8),3,1)\r\nC\r\nC     COPY ENTIRE FILE ONTO NEW PROBLEM NPTP TAPE USING CPYFIL\r\nC\r\n  448 CALL WRITE  (NPTP,HEAD,2,0)\r\n      CALL CPYFIL (NGINO,NPTP,IOBUF(IOPNT),LIOBUF,RECSZ)\r\n      CALL CLOSE  (NGINO,1)\r\n      GO TO 600\r\nC\r\nC     FILE IS ON POOL -- POSITION POOL AND COPY FILE USING CPYFIL\r\nC\r\n  450 NGINO = DPT\r\n      K = ANDF(DICT(I+2),MASKHI)\r\n      CALL SKPFIL (DPT,K-DPFCT)\r\n      DPFCT  = K + 1\r\n      FILCNT = FILCNT + 1\r\n      IF (FILCNT .GT. LIMIT) GO TO 990\r\n      CALL XFLSZD (K,BLKCNT(FILCNT),0)\r\n      CALL CPYFIL (DPT,NPTP,IOBUF(IOPNT),LIOBUF,RECSZ)\r\nC\r\nC     GET NEXT FDICT ENTRY\r\nC\r\n  600 CALL EOF (NPTP)\r\n      N = N + 1\r\n      IF (N .LE. N1) GO TO 405\r\nC\r\nC     RESTORE FIST ENTRY\r\nC\r\n      FIST(IFSTMP  ) = SVFST(1)\r\n      FIST(IFSTMP+1) = SVFST(2)\r\nC\r\nC     WRITE VPS TABLE ONTO NEW PROBLEM NPTP TAPE\r\nC     MAKE ENTRY IN FDICT FOR VPS TABLE\r\nC\r\n  615 LDC = LDC + 3\r\n      FDICT(LDC  ) = NVPS(1)\r\n      FDICT(LDC+1) = NBLANK\r\n      FDICT(LDC+2) = NPTFN\r\n      EORFLG = SETEOR\r\n      I = LDC\r\n      CALL WRITE (NPTP,NVPS,5,1)\r\n      CALL WRITE (NPTP,VPS,VPS(2),1)\r\nC\r\nC     WRITE CEITBL TABLE ONTO PROBLEM TAPE\r\nC\r\n      CALL WRITE (NPTP,CEITBL,CEITBL(2),1)\r\nC\r\nC     WRITE /SYSTEM/ ONTO PROBLEM TAPE\r\nC\r\n      CALL WRITE (NPTP,BUFSZ,20,1)\r\n      CALL EOF   (NPTP)\r\n      CALL CLOSE (NPTP,2)\r\nC\r\nC     POSITION DATA POOL TAPE AT CORRECT OSCAR ENTRY FOR RETURN TO XSEM\r\nC\r\n      IF (DPFCT .EQ. OSCFN) GO TO 675\r\n      CALL REWIND (DPT)\r\n      IF (OSCFN .GT. 1) CALL SKPFIL (DPT,OSCFN-1)\r\n      J1 = OSCAR(2)\r\n      DO 670 J = 1,J1\r\n      CALL FWDREC (*910,DPT)\r\n  670 CONTINUE\r\n  675 CALL CLOSE (DPT,2)\r\nC\r\nC     UPDATE PTDIC AND ASSOCIATED VARIABLES\r\nC\r\n      NRLFL  = NPTFN + 1\r\n      PTDBOT = LCPTP\r\n      DO 690 I = 1,LDC,3\r\n      DO 680 J = PTDTOP,PTDBOT,3\r\nC\r\nC     SCAN PTDIC TO SEE IF FILE IS ALREADY THERE\r\nC\r\n      IF (FDICT(I).EQ.PTDIC(J) .AND. FDICT(I+1).EQ.PTDIC(J+1) .AND.\r\n     1    FDICT(I+2).EQ.PTDIC(J+2)) GO TO 690\r\n  680 CONTINUE\r\nC\r\nC     ENTER FILE IN PTDIC\r\nC\r\n      PTDBOT = PTDBOT + 3\r\n      PTDIC(PTDBOT  ) = FDICT(I  )\r\n      PTDIC(PTDBOT+1) = FDICT(I+1)\r\n      PTDIC(PTDBOT+2) = FDICT(I+2)\r\n  690 CONTINUE\r\nC\r\nC     PUT PURGED FILES IN PTDIC\r\nC\r\n      IF (PRGPNT .LT. 1) GO TO 800\r\n      DO 710 I = 1,PRGPNT,2\r\n      DO 700 J = PTDTOP,PTDBOT,3\r\n      IF (PURGE(I).EQ.PTDIC(J) .AND. PURGE(I+1).EQ.PTDIC(J+1) .AND.\r\n     1    PTDIC(J+2).EQ.0) GO TO 710\r\n  700 CONTINUE\r\n      PTDBOT = PTDBOT + 3\r\n      PTDIC(PTDBOT  ) = PURGE(I)\r\n      PTDIC(PTDBOT+1) = PURGE(I+1)\r\n      PTDIC(PTDBOT+2) = 0\r\n  710 CONTINUE\r\nC\r\nC     CHECK FOR PTDIC OVERFLOW\r\nC\r\n  800 IF (PTDBOT+3-PTDTOP .GT. LPTDIC) GO TO 940\r\nC\r\nC\r\nC     PUNCH AND PRINT LATEST ENTRIES IN PTDIC\r\nC     INITIALIZE PAGE HEADING AND CHECK PAGE COUNT\r\nC\r\n      IF (DIAG09 .EQ. 1) GO TO 802\r\n      DO 801 I = 1,32\r\n      PGHDG(I+ 96) = HDG(I)\r\n      PGHDG(I+128) = NBLANK\r\n  801 PGHDG(I+160) = NBLANK\r\n      IF (CPPGCT .NE. NPAGES) CALL PAGE\r\n  802 CONTINUE\r\n      I1 = ((LCPTP  - PTDTOP)/3) + 1\r\n      I2 = ((PTDBOT - PTDTOP)/3) + 1\r\n      DO 810 I = I1,I2\r\n      J1 = (I-1)*3 + PTDTOP\r\n      J2 = J1 + 2\r\nC\r\nC     SEPARATE FLAGS, REEL NO., FILE NO.\r\nC\r\n      NFLAGS = 0\r\n      IF (PTDIC(J2) .LT. 0) NFLAGS = 4\r\n      NFLAGS = ORF(NFLAGS,RSHIFT(ANDF(PTDIC(J2),NOSGN),29))\r\n      NREEL  = RSHIFT(ANDF(PTDIC(J2),NOFLGS),16)\r\n      NFILE  = ANDF(PTDIC(J2),MASKHI)\r\n      SEQNO  = 1 + SEQNO\r\n      IF (PTDIC(J1) .EQ. NBLANK) GO TO 805\r\nC      IF (IROPEN .EQ. 1) GO TO 815\r\nC      OPEN (UNIT=4, FILE=DIC, STATUS='UNKNOWN')\r\nC      IROPEN = 1\r\n  815 WRITE  (IRDICT,820) SEQNO,PTDIC(J1),PTDIC(J1+1),NFLAGS,NREEL,NFILE\r\n  820 FORMAT (I10,4H,   ,2A4,12H,   FLAGS = ,I1,11H,   REEL = ,I2,\r\n     1        11H,   FILE = ,I6)\r\n      IF (DIAG09 .EQ. 1) GO TO 810\r\n      NLINES = NLINES + 1\r\n      IF (MACH.LT.5 .AND. NFILE.NE.0 .AND. PTDIC(J1).NE.NVPS(1))\r\n     1    NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      WRITE  (OTPE,821) SEQNO,PTDIC(J1),PTDIC(J1+1),NFLAGS,NREEL,NFILE\r\n  821 FORMAT (1H ,I9 ,4H,   ,2A4,12H,   FLAGS = ,I1,11H,   REEL = ,I2,\r\n     1        11H,   FILE = ,I6)\r\n      IF (MACH.LT.5 .AND. NFILE.NE.0 .AND. PTDIC(J1).NE.NVPS(1))\r\n     1    WRITE (OTPE,822) PTDIC(J1),PTDIC(J1+1),BLKCNT(I-I1),BLKSIZ\r\n  822 FORMAT (13X,6H FILE ,2A4, 9H CONTAINS, I10,\r\n     1        28H BLOCKS, EACH BLOCK CONTAINS,I5,7H WORDS.)\r\n      GO TO 810\r\n  805 CONTINUE\r\nC      IF (IROPEN .EQ. 1) GO TO 8055\r\nC      OPEN (UNIT=4, FILE=DIC, STATUS='UNKNOWN')\r\nC      IROPEN = 1\r\nC8055  CONTINUE\r\n       WRITE  (IRDICT,806) SEQNO,NREEL\r\n  806 FORMAT (I10,36H,   REENTER AT DMAP SEQUENCE NUMBER ,I5)\r\n      IF (DIAG09 .EQ. 1) GO TO 810\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      WRITE  (OTPE,807) SEQNO,NREEL\r\n  807 FORMAT (1H ,/1H ,I9,36H,   REENTER AT DMAP SEQUENCE NUMBER ,I5)\r\n  810 CONTINUE\r\nC\r\nC     WRITE PTDIC ONTO XPTD\r\nC\r\n      NGINO = NXPTDC(1)\r\n      CALL OPEN  (*905,NXPTDC,GBUF(NPTPNT),1)\r\n      CALL WRITE (NXPTDC,NXPTDC,2,1)\r\n      CALL WRITE (NXPTDC,DCPARM,2,1)\r\n      CALL WRITE (NXPTDC,PTDIC(PTDTOP),PTDBOT+3-PTDTOP,1)\r\n      CALL CLOSE (NXPTDC,1)\r\n      CPPGCT = NPAGES\r\nC\r\n      FIST(2) = IPFST\r\n      RETURN\r\nC\r\nC\r\nC     ERRORS -\r\nC\r\n  900 N = 1101\r\n      ASSIGN 901 TO RETURN\r\n      GO TO 980\r\n  901 WRITE  (OTPE,902) FDICT(I),FDICT(I+1)\r\n  902 FORMAT (4X,26HCOULD NOT OPEN FILE NAMED ,2A4)\r\n      GO TO 995\r\nC\r\n  905 N = 1102\r\n      ASSIGN 906 TO RETURN\r\n      GO TO 985\r\n  906 WRITE (OTPE,902) NGINO,NBLANK\r\n      GO TO 995\r\nC\r\n  910 N = 1103\r\n      ASSIGN 911 TO RETURN\r\n      GO TO 985\r\n  911 WRITE  (OTPE,912)\r\n  912 FORMAT (4X,43HUNABLE TO POSITION DATA POOL TAPE CORRECTLY )\r\n      GO TO 995\r\nC\r\n  920 N = 1104\r\n      ASSIGN 921 TO RETURN\r\n      GO TO 985\r\n  921 WRITE  (OTPE,922)\r\n  922 FORMAT (4X,24HFDICT TABLE IS INCORRECT )\r\n      GO TO 995\r\nC\r\n  930 N = 1105\r\n      ASSIGN 931 TO RETURN\r\n      GO TO 980\r\n  931 WRITE  (OTPE,932) FDICT(I),FDICT(I+1),HEAD(1),HEAD(2)\r\n  932 FORMAT (4X,29HCANNOT FIND DATA BLOCK NAMED ,2A4,17H HEADER RECORD\r\n     1= ,2A4)\r\n      GO TO 995\r\nC\r\n  940 N = 1106\r\n      ASSIGN 941 TO RETURN\r\n      GO TO 985\r\n  941 WRITE  (OTPE,942)\r\n  942 FORMAT (4X,32HCHECKPOINT DICTIONARY OVERFLOWED)\r\n      GO TO 995\r\nC\r\n  960 N = 1108\r\n      ASSIGN 961 TO RETURN\r\n      GO TO 985\r\n  962 FORMAT (4X,22HPURGE TABLE OVERFLOWED)\r\n  961 WRITE  (OTPE,962)\r\n      GO TO 995\r\nC\r\n  970 N = 1109\r\n      ASSIGN 971 TO RETURN\r\n      GO TO 985\r\n  971 WRITE (OTPE,932) NXPTDC,DCPARM\r\n      GO TO 995\r\nC\r\nC     USER FATAL ERROR\r\nC\r\n  980 WRITE  (OTPE,981) UFM,N\r\n  981 FORMAT (A23,I5)\r\n      GO TO 987\r\nC\r\nC     SYSTEM FATAL ERROR\r\nC\r\n  985 CALL PAGE2 (3)\r\n      WRITE  (OTPE,986) SFM,N\r\n  986 FORMAT (A25,I5)\r\n  987 GO TO RETURN, (901,906,911,921,931,941,961,971)\r\nC\r\n  990 WRITE  (OTPE,991) SFM\r\n  991 FORMAT (A25,', BLKCNT ARRAY EXCEEDED IN XCHK')\r\nC\r\n  995 CALL MESAGE (-37,0,NXCHK)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xclean.f",
    "content": "      SUBROUTINE XCLEAN\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      DIMENSION       NCLEAN( 2),DDBN ( 1),DFNU ( 1),FCUM ( 1),\r\n     2                FCUS  ( 1),FDBN ( 1),FEQU ( 1),FILE ( 1),\r\n     2                FKND  ( 1),FMAT ( 1),FNTU ( 1),FPUN ( 1),\r\n     3                FON   ( 1),FORD ( 1),MINP ( 1),MLSN ( 1),\r\n     4                MOUT  ( 1),MSCR ( 1),SAL  ( 1),SDBN ( 1),\r\n     5                SNTU  ( 1),SORD ( 1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP\r\n      COMMON /XFIAT / FIAT(7)\r\n      COMMON /XFIST / FIST\r\n      COMMON /XDPL  / DPD(6)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5)\r\n      EQUIVALENCE             (DPD  (1),DNAF    ),(DPD  (2),DMXLG   ),\r\n     1    (DPD  (3),DCULG   ),(DPD  (4),DDBN (1)),(DPD  (6),DFNU(1) ),\r\n     2    (FIAT (1),FUNLG   ),(FIAT (2),FMXLG   ),(FIAT (3),FCULG   ),\r\n     3    (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)),\r\n     4    (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD   (1),MLGN    ),\r\n     5    (MD   (2),MLSN (1)),(MD   (3),MINP (1)),(MD   (4),MOUT (1)),\r\n     6    (MD   (5),MSCR (1)),(SOS  (1),SLGN    ),(SOS  (2),SDBN (1)),\r\n     7    (SOS  (4),SAL  (1)),(SOS  (4),SNTU (1)),(SOS  (4),SORD (1)),\r\n     8    (XF1AT(1),FNTU (1)),(XF1AT(1),FON  (1)),(XF1AT(2),FPUN (1)),\r\n     9    (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1))\r\n      EQUIVALENCE             (COMM (1),ALMSK   ),(COMM (2),APNDMK  ),\r\n     1    (COMM (3),CURSNO  ),(COMM (4),ENTN1   ),(COMM (5),ENTN2   ),\r\n     2    (COMM (6),ENTN3   ),(COMM (7),ENTN4   ),(COMM (8),FLAG    ),\r\n     3    (COMM (9),FNX     ),(COMM(10),LMSK    ),(COMM(11),LXMSK   ),\r\n     4    (COMM(12),MACSFT  ),(COMM(13),RMSK    ),(COMM(14),RXMSK   ),\r\n     5    (COMM(15),S       ),(COMM(16),SCORNT  ),(COMM(17),TAPMSK  ),\r\n     6    (COMM(18),THCRMK  ),(COMM(19),ZAP     )\r\n      DATA  NCLEAN / 4HXCLE,4HAN  /\r\nC\r\nC     ENTRY SIZE NUMBERS,  1=FIAT, 2=SOS, 3=MD\r\nC\r\n      IFAIL  = 0\r\n      ENTN1X = ENTN1 - 1\r\n      ENTN1Y = ENTN1*2\r\n      LMT1   = FUNLG*ENTN1\r\n      LMT2   = LMT1 + 1\r\n      LMT3   = FCULG*ENTN1\r\n      FLAG   = 0\r\n      ICURSN = LSHIFT(CURSNO,16)\r\nC\r\nC     MERGE FIAT BY REPLACING ANY UNIQUE FILES WITH MATCHED CURRENT\r\nC     FILES ONLY CURRENT TAIL  AND  EXCEPT EQU FILES\r\nC\r\n      IF (FUNLG .EQ. FCULG) GO TO 170\r\n      ASSIGN 170 TO ISW\r\n  100 DO 160 I = LMT2,LMT3,ENTN1\r\n      TRIAL = ANDF(RMSK,FILE(I))\r\n      IF (TRIAL .EQ. ZAP) GO TO 160\r\nC\r\nC     ERASE SCRATCH AND LTU EXPIRED FILES FROM CURRENT TAIL\r\nC\r\n      K = ANDF(LMSK,FORD(I))\r\n      IF (K.EQ.LMSK .OR. (ICURSN.GT.K .AND. K.NE.0 .AND. FEQU(I).GT.0))\r\n     1    GO TO 152\r\n      DO 130 J = 1,LMT1,ENTN1\r\n      IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 130\r\n      IF (FEQU(J)) 160,140,140\r\n  130 CONTINUE\r\n      GO TO 160\r\n  140 K = ANDF(LMSK,FORD(J))\r\n      IF (K.NE.LMSK .AND. ICURSN.LE.K) GO TO 160\r\n      LMT4 = I + ENTN1X\r\n      DO 150 K = I,LMT4\r\n      FILE(J) = FILE(K)\r\n      FILE(K) = 0\r\n      FNTU(J) = FNTU(K)\r\n  150 J = J + 1\r\n      J = J - ENTN1\r\n      GO TO 156\r\n  152 LMT4 = I + ENTN1X\r\n      DO 154 K = I,LMT4\r\n  154 FILE(K) = 0\r\n      J = I\r\n  156 CALL XPOLCK (FDBN(J),FDBN(J+1),IK,L)\r\n      IF (FEQU(J) .LT. 0) FLAG = -1\r\n      IF (IK .EQ. 0) GO TO 160\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\n  160 CONTINUE\r\n      GO TO ISW, (170,310)\r\nC\r\nC     REGENERATE ALL NTU VALUES (AND LTU IF EMPTY) IN FIAT BY SCANNING\r\nC     SOS DELETE FIAT ENTRY IF NOT FOUND, OR A SCRATCH\r\nC\r\n  170 LMT4 = MLGN*ENTN3\r\n      LMT2 = LMT1 + 1\r\nC\r\nC     FIAT LOOP\r\nC\r\n      DO 250 I = 1,LMT3,ENTN1\r\n      IF (ANDF(LMSK,FORD(I)) .EQ. LMSK) GO TO 220\r\n      TRIAL = FDBN(I)\r\n      IF (TRIAL .EQ. 0) GO TO 250\r\nC\r\nC     SOS LOOP - BY MODULE\r\nC\r\n      LMT6 = 0\r\n      DO 200 J = 1,LMT4,ENTN3\r\n      LMT5 = LMT6 + 1\r\n      LMTI = LMT6 + MINP(J)*ENTN2\r\n      LMT6 = LMT6 +(MINP(J) + MOUT(J) + MSCR(J))*ENTN2\r\nC\r\nC     SOS LOOP - BY FILE WITHIN MODULE\r\nC\r\n      DO 200 K = LMT5,LMT6,ENTN2\r\n      IF (TRIAL.NE.SDBN(K) .OR. FDBN(I+1).NE.SDBN(K+1)) GO TO 200\r\n      IF (ANDF(RMSK,FILE(I)) .EQ. ZAP) GO TO 190\r\n      IF (K.GT.LMTI .OR. FMAT(I).NE.0 .OR. FMAT(I+1).NE.0 .OR.\r\n     1    FMAT(I+2).NE.0) GO TO 190\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(I+5).NE.0 .OR. FMAT(I+6).NE.0 .OR.\r\n     1    FMAT(I+7).NE.0)) GO TO 190\r\nC\r\nC     IF FIAT ENTRY IS INPUT WITH ZERO TRAILERS - PURGE IT\r\nC\r\n      IF (I .LE. LMT1) GO TO 185\r\n      LMTI = 0\r\n      FILE(I) = ORF(FILE(I),ZAP)\r\n      GO TO 210\r\nC\r\nC     PURGE FILE --PUT ENTRY AT END OF FIAT\r\nC\r\n  185 IF (FCULG .EQ. FMXLG) GO TO 186\r\n      NFCULG = FCULG*ENTN1 + 1\r\n      IFAIL  = 0\r\n      FCULG  = FCULG + 1\r\n      FILE(NFCULG  ) = ORF(FILE(I),ZAP)\r\n      FDBN(NFCULG  ) = FDBN(I  )\r\n      FDBN(NFCULG+1) = FDBN(I+1)\r\n      GO TO 210\r\nC\r\nC     TRY TO PACK FIAT FOR MORE SPACE\r\nC\r\n  186 IF (IFAIL .EQ. 1) GO TO 900\r\n      IFAIL = 1\r\n      ASSIGN 170 TO IHOP\r\n      GO TO 310\r\n  190 FNTU(I) = ANDF(RMSK,MLSN(J))\r\n      IF (ANDF(LMSK,FORD(I)) .EQ. 0)\r\n     1    FORD(I) = ORF(FORD(I),ANDF(LMSK,SORD(K)))\r\n      GO TO 250\r\n  200 CONTINUE\r\nC\r\nC     DELETE FIAT ENTRY (UNLESS LTU YET TO COME)\r\nC\r\nC     HOLD FILES UNTIL LARGEST LTU OF EQUIVALENCED GROUP EXPIRES\r\nC\r\n      IF (FEQU(I).GE.0 .AND. ICURSN.GT.ANDF(LMSK,FORD(I))) GO TO 210\r\n      FNTU(I) = RSHIFT(ANDF(LMSK,FORD(I)),16)\r\n      GO TO 250\r\n  210 CALL XPOLCK (FDBN(I),FDBN(I+1),IK,L)\r\n      IF (IK .EQ. 0) GO TO 215\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\n  215 IF (LMTI .EQ. 0) GO TO 250\r\n  220 HOLD = ANDF(RXMSK,FILE(I))\r\n      IF (FEQU(I) .LT. 0) FLAG = -1\r\n      LMT6 = I + ENTN1X\r\n      DO 230 K = I,LMT6\r\n  230 FILE(K) = 0\r\n      IF (I .GT. LMT1) GO TO 250\r\n      FILE(I) = HOLD\r\n      FLAG = -1\r\n  250 CONTINUE\r\n      LMT3 = FCULG*ENTN1\r\nC\r\nC     CHECK EQU FILES FOR BREAKING OF EQU\r\nC\r\n      IF (FUNLG .EQ. FCULG) RETURN\r\n      DO 300 I = 1,LMT3,ENTN1\r\n      IF (FEQU(I).GE.0 .OR. ANDF(LMSK,FORD(I)).GE.ICURSN) GO TO 300\r\n      DO 290 J = 1,LMT3,ENTN1\r\n      IF (FEQU(J) .GE. 0) GO TO 290\r\n      IF (I .EQ. J) GO TO 290\r\n      IF (ANDF(RMSK,FILE(I)) .EQ. ANDF(RMSK,FILE(J)) .AND.\r\n     1    ICURSN.LE.ANDF(LMSK,FORD(J))) GO TO 300\r\nC\r\n  290 CONTINUE\r\n      FEQU(I) = ANDF(ALMSK,FEQU(I))\r\n      FLAG = -1\r\n  300 CONTINUE\r\nC\r\nC     IF BREAK HAS OCCURED, REPEAT FIAT MERGE\r\nC\r\n      ASSIGN 451 TO IHOP\r\n      IF (FLAG .NE. -1) GO TO 310\r\n      ASSIGN 310 TO ISW\r\n      GO TO 100\r\nC\r\nC     CLOSE UP FILES(IF ANY) BELOW UNIQUE LENGTH - RESET FCULG\r\nC\r\n  310 LMT7 = LMT3 - ENTN1X\r\n      LMT3 = LMT7 - 1\r\n  330 IF (LMT7 .LT. LMT2) GO TO 450\r\n      IF (FDBN(LMT7) .NE. 0) GO TO 350\r\n      LMT7 = LMT7 - ENTN1\r\n      GO TO 420\r\n  350 DO 390 I = LMT2,LMT3,ENTN1\r\n      IF (FDBN(I) .NE. 0) GO TO 390\r\n      LMT4 = I + ENTN1X\r\n      DO 380 K = I,LMT4\r\n      FILE(K) = FILE(LMT7)\r\n      FILE(LMT7) = 0\r\n      FNTU(K) = FNTU(LMT7)\r\n  380 LMT7 = LMT7 + 1\r\n      GO TO 410\r\n  390 CONTINUE\r\n      GO TO 450\r\n  410 LMT7 = LMT7  - ENTN1Y\r\n      LMT2 = I + ENTN1\r\n  420 LMT3 = LMT3  - ENTN1\r\n      FCULG= FCULG - 1\r\n      GO TO 330\r\nC\r\nC     RESET ANY NECESSARY OFF SWITCHES\r\nC\r\n  450 GO TO IHOP, (451,170)\r\n  451 IF (FUNLG .EQ. FCULG) RETURN\r\n      LMT2 = LMT1 + 1\r\n      LMT3 = FCULG*ENTN1\r\n      DO 480 I = LMT2,LMT3,ENTN1\r\n      IF (FEQU(I) .LT. 0) GO TO 480\r\n      TRIAL = ANDF(RMSK,FILE(I))\r\n      IF (TRIAL .EQ. RMSK) GO TO 480\r\n      IFORDI = ANDF(LMSK,FORD(I))\r\n      DO 460 J = 1,LMT3,ENTN1\r\n      IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 460\r\n      IF (I .EQ. J) GO TO 460\r\n      IF (ANDF(LMSK,FORD(J))-IFORDI) 452,460,454\r\n  452 FON(J) = ORF(S,FON(J))\r\n      GO TO 460\r\n  454 FON(I) = ORF(S,FON(I))\r\n  460 CONTINUE\r\n  480 CONTINUE\r\n      RETURN\r\nC\r\n  900 WRITE  (OUTTAP,901) SFM\r\n  901 FORMAT (A25,' 1021, FIAT OVERFLOW.')\r\n      CALL MESAGE (-37,0,NCLEAN)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xcsa.f",
    "content": "      SUBROUTINE XCSA\r\nC\r\nC     XCSA READS AND PROCESSES THE NASTRAN EXECUTIVE CONTROL DECK.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         TAPBIT\r\n      DIMENSION       ALTER(2),APPTYP(4),BGNAL(2),CEND(2),DIAGX(11),\r\n     1                DMAPBF(1),ECTT(51),ENDAL(2),HDG(19),IPTDIC(1),\r\n     2                IUFILE(2),IZ(2),NXPTDC(2),NXCSA(2),OSOLU(2),\r\n     3                OUTCRD(200),SOLREC(6),SOLU(12),SOLNM3(7,11),\r\n     5                SOLNMS(7,31),SOLNM1(7,10),SOLNM2(7,10),SOLNMX(6),\r\n     6                XALT(2),XSYS(100)\r\n      INTEGER         INSERT(4), DELETE(9), ALTRBS, ALNOGO\r\n      INTEGER         ALTFIL, ERRALT, ALTOPN\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH,IJHALF(3),MCHNAM\r\n      COMMON /SEM   / MSKDUM(3),LINKS(15)\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP,XNOGO,INTAPE,SY5,SY6,LOGFL,SY8,\r\n     1                NLPP,SY10,SY11,NLINES,SY13,SY14,IDATE(3),SY18,\r\n     2                IECHO,SY20,APPRCH,SY22,SY23,ICFIAT,RFFLAG,\r\n     3                SY26(11),LU,SY38,NBPC,NBPW,NCPW,SY42(13),PREC,\r\n     4                SY56(13),ISUBS,SY70(9),SWITCH(3),ICPFLG,SY83(2),\r\n     5                SY85,INTRA,SY87(5),LDICT\r\n      COMMON /XECHOX/ DUM9(9),NOECHO\r\n      COMMON /XRGDXX/ IRESTR,NSUBST\r\n      COMMON /ALTRXX/ ALTFIL, NEWALT,ALNOGO\r\n      COMMON /RESDIC/ IRDICT, IROPEN\r\n      COMMON /XOLDPT/ ITOP,IBOT,LDIC,NRLFL,ISEQNO\r\n      COMMON /XXFIAT/ IXXFAT(1)\r\n      COMMON /XPFIST/ IXPFST\r\n      COMMON /XFIST / IFIST(1)\r\n      COMMON /XFIAT / IFIAT(1)\r\n      COMMON /ZZZZZZ/ GBUFF(1)\r\n      COMMON /BLANK / ZCOM,CARD(20)\r\n      COMMON /STAPID/ TAPID(6),OTAPID(6)\r\n      COMMON /STIME / TIME\r\n      COMMON /L15 L8/ L15,L8,L13\r\n      COMMON /XLINK / LXLINK,MAXLNK\r\n      COMMON /OUTPUT/ PGHDG1(32),PGHDG2(32), PGHDG3(32),\r\n     1                PGHDG4(32),PGHDG5(32), PGHDG6(32)\r\n      EQUIVALENCE     (IBUFSZ   ,XSYS(1)  ), (MASK    ,MASKHI  ),\r\n     1                (ECTT(16) ,BGNAL(1) ), (ECTT(25),ENDAL(1)),\r\n     2                (ECTT(13) ,CEND(1)  ), (ECTT(34),ID      ),\r\n     3                (SOLREC(1),APPREC   ), (SOLREC(2),RSTRT  ),\r\n     4                (SOLREC(3),ALTER(1) ), (SOLREC(5),SOLU(1)),\r\n     5                (GBUFF(1) ,DMAPBF( 1), IPTDIC(1)),\r\n     6                (SOLNMS(1, 1),SOLNM1(1,1)),\r\n     7                (SOLNMS(1,11),SOLNM2(1,1)),\r\n     8                (SOLNMS(1,21),SOLNM3(1,1))\r\n      DATA  APPTYP                                                   /\r\n     1      4HDMAP,   4HDISP,   4HHEAT,   4HAERO                     /\r\n      DATA  BLANK,    IXDMAP,   NSUBS,    RENTER,   DOLSIN           /\r\n     2      1H ,      4HXDMA,   4HSUBS,   4HREEN,   4H$              /\r\n      DATA  IYES,     NO,       IDISK,    PTAPE,    OPTAPE,   DMEND  /\r\n     3      4HYES ,   4HNO  ,   4HDISK,   4HNPTP,   4HOPTP,   4HEND  /\r\n      DATA  IUFILE,   XALT,               NXPTDC,             INTGR  /\r\n     4      2*0,      4HXALT,   4HER  ,   4HXPTD,   4HC   ,   -1     /\r\n      DATA  NXCSA,              DIAGX                                /\r\n     5      4HXCSA,   4H    ,   4,9,14,17,23,24,25,28,29,30,31       /\r\n      DATA  APPDMP,   APPHEA,   APPAER,   NUMAPP,   SOLREC           /\r\n     6      1,        3,        4,        4,        0,1,0,0,0,0      /\r\n      DATA  SOLUF,    OSOLU,    ICOLD,    IGNORE,   OUTCRD           /\r\n     7      0,        2*0,      1,        0,        3,199*4H         /\r\n      DATA  PLOT,     PRNT,     BOTH,     INP9  ,   NOTALT           /\r\n     8      4HPLOT,   4HPRIN,   4HBOTH,   4HINP9,   0                /\r\n      DATA  MASK /    32767 /\r\nC                     32767 = O77777 = 2**15-1 = MASK HI\r\n      DATA  LECTT,    ECTT /    51,\r\n     1     4HTIME,4H    ,0   ,   4HAPP ,4H    ,0   ,   4HCHKP,4HNT  ,0,\r\n     4     4HREST,4HART ,0   ,   4HCEND,4H    ,0   ,   4HALTE,4HR   ,0,\r\n     7     4HSOL ,4H    ,0   ,   4HBEGI,4HN   ,0   ,   4HENDA,4HLTER,0,\r\n     X     4HDIAG,4H    ,0   ,   4HUMF ,4H    ,0   ,   4HID  ,4H    ,1,\r\n     3     4HUMFE,4HDIT ,0   ,   4HPREC,4H    ,0   ,   4HINTE,4HRACT,0\r\n     *,    4HINSE,4HRT  ,0   ,   4HDELE,4HTE  ,0/\r\n      DATA ILEFT  /4H(    /\r\n      DATA ALTOPN / 0     /\r\n      DATA HDG/4HN A ,4HS T ,4HR A ,4HN   ,4H E X,4H E C,4H U T,4H I V,\r\n     1  4H E  ,4H  C ,4HO N ,4HT R ,4HO L ,4H   D,4H E C,4H K  ,4H  E ,\r\n     2  4HC H ,4HO   /\r\n      DATA NSOLNM /26/\r\n      DATA SOLNM1 /\r\n     1     4HSTAT,4HICS  , 4H    ,4H     , 4H    ,4H     ,  1 ,\r\n     2     4HINER,4HTIA  , 4HRELI,4HEF   , 4H    ,4H     ,  2 ,\r\n     3     4HNORM,4HAL   , 4HMODE,4HS    , 4H    ,4H     ,  3 ,\r\n     4     4HDIFF,4HEREN , 4HSTIF,4HFNES , 4H    ,4H     ,  4 ,\r\n     5     4HBUCK,4HLING , 4H    ,4H     , 4H    ,4H     ,  5 ,\r\n     6     4HPIEC,4HEWIS , 4HLINE,4HAR   , 4H    ,4H     ,  6 ,\r\n     7     4HDIRE,4HCT   , 4HCOMP,4HLEX  , 4HEIGE,4HNVAL ,  7 ,\r\n     8     4HDIRE,4HCT   , 4HFREQ,4HUENC , 4HRESP,4HONSE ,  8 ,\r\n     9     4HDIRE,4HCT   , 4HTRAN,4HSIEN , 4HRESP,4HONSE ,  9 ,\r\n     O     4HMODA,4HL    , 4HCOMP,4HLEX  , 4HEIGE,4HNVAL , 10 /\r\n      DATA SOLNM2 /\r\n     1     4HMODA,4HL    , 4HFREQ,4HUENC , 4HRESP,4HONSE , 11 ,\r\n     2     4HMODA,4HL    , 4HTRAN,4HSIEN , 4HRESP,4HONSE , 12 ,\r\n     3     4HSTEA,4HDY   , 4HSTAT,4HE    , 4H    ,4H     ,  3 ,\r\n     4     4HTRAN,4HSIEN , 4H    ,4H     , 4H    ,4H     ,  9 ,\r\n     5     4HMODE,4HS    , 4H    ,4H     , 4H    ,4H     ,  3 ,\r\n     6     4HREAL,4H     , 4HEIGE,4HNVAL , 4H    ,4H     ,  3 ,\r\n     7     4HMODA,4HL    , 4HFLUT,4HTER  , 4HANAL,4HYSIS , 10 ,\r\n     8     4HMODA,4HL    , 4HAERO,4HELAS , 4HRESP,4HONSE , 11 ,\r\n     9     4HNORM,4HAL   , 4HMODE,4HS    , 4HANAL,4HYSIS , 13 ,\r\n     O     4HSTAT,4HICS  , 4HCYCL,4HIC   , 4HSYMM,4HETRY , 14 /\r\n      DATA SOLNM3 /\r\n     1     4HMODE,4HS    , 4HCYCL,4HIC   , 4HSYMM,4HETRY , 15 ,\r\n     2     4HSTAT,4HIC   , 4HAERO,4HTHER , 4HMOEL,4HASTI , 16 ,\r\n     3     4HBLAD,4HE    , 4HCYCL,4HIC   , 4HMODA,4HL    ,  9 ,\r\n     4     4HDYNA,4HMIC  , 4HDESI,4HGN A , 4HNALY,4HSIS  , 17 ,\r\n     5     4HDIRE,4HCT   , 4HFORC,4HED V , 4HIBRA,4HTION , 18 ,\r\n     6     4HMODA,4HAL   , 4HFORC,4HED V , 4HIBRA,4HTION , 19 ,\r\n     7     4H****,4H**** , 4H****,4H**** , 4H****,4H**** ,  0 ,\r\n     8     4H****,4H**** , 4H****,4H**** , 4H****,4H**** ,  0 ,\r\n     9     4H****,4H**** , 4H****,4H**** , 4H****,4H**** ,  0 ,\r\n     O     4H****,4H**** , 4H****,4H**** , 4H****,4H**** ,  0 ,\r\n     1     4H****,4H**** , 4H****,4H**** , 4H****,4H**** ,  0 /\r\nC\r\nC     SET UP DATA IN COMMON\r\nC\r\n      ITOP   = 0\r\n      IBOT   = 0\r\n      LDIC   = 0\r\n      NRLFL  = 0\r\n      ISEQNO = 0\r\n      ALTFIL = 301\r\n      NEWALT = 0\r\n      ALNOGO = 0\r\n      ERRALT = 0\r\n      NSCR   = 315\r\n      IRESTR = 0\r\n      NSUBST = 0\r\n      NWPC   = 18\r\n      DRECSZ = 0\r\nC\r\nC\r\nC     INITIALIZE MACHINE DEPENDENT CONSTANTS\r\nC\r\nC     ALLON  = O777777777777  ALL BITS ON\r\nC     ISIGN  = O400000000000  SIGN ON ONLY\r\nC     MASK5  = O500000000000  SIGN AND NEXT BIT ON\r\nC     ENDCD  = O377777777777  ALL BITS ON EXCEPT SIGN\r\nC     MHIBYT = O770000000000  MASK IN HIGH ORDER BYTE\r\nC\r\n      ISIGN  = LSHIFT(1,NBPW-1)\r\n      MASK5  = ORF(ISIGN,RSHIFT(ISIGN,1))\r\n      ALLON  = COMPLF(0)\r\n      MHIBYT = LSHIFT(ALLON,(NCPW-1)*NBPC)\r\n      ENDCD  = RSHIFT(ALLON,1)\r\n      J      = DIAGX(2)*5 - 1\r\n      CARD(J  ) = XSYS(J)\r\n      CARD(J+1) = KHRFN1(BNK,1,XSYS(J),2)\r\n      CALL NA12IF (*1420,CARD(J),2,S7,1)\r\n      IF (S7 .NE. 0) I7 = MACH*100\r\nC\r\nC     DETERMINE OPEN CORE SIZE AND ALLOCATE BUFFER AREA\r\nC\r\n      DMAPBS = KORSZ(GBUFF) - 2*IBUFSZ\r\n      ALTRBS = DMAPBS + IBUFSZ\r\n      CALL WALTIM (TIMEW)\r\n      TIMEW = MOD(TIMEW,10000000)\r\nC\r\nC     LOAD PAGE HEADING IN /OUTPUT/\r\nC\r\n      J = 32\r\n      DO 5 I = 1,J\r\n      PGHDG1(I) = BLANK\r\n      PGHDG2(I) = BLANK\r\n      PGHDG3(I) = BLANK\r\n      PGHDG4(I) = BLANK\r\n      PGHDG5(I) = BLANK\r\n      PGHDG6(I) = BLANK\r\n    5 CONTINUE\r\n      DO 10 I = 1,19\r\n   10 PGHDG3(I+1) = HDG(I)\r\n      CALL PAGE\r\nC\r\nC     CARD PREPARATION\r\nC\r\n      N7 = I7 + S7\r\n      I7 = I7/100\r\n      N7 = N7 - 2*I7\r\n      M7 = CARD(LECTT+9)\r\n      J  = IABS(M7)\r\n      I  = 3\r\n      IF (M7.LT.0 .AND. MOD(J,10).EQ.7) I = 4\r\n      IF (J/10.EQ.N7 .AND. XSYS(17)-I.LE.S7) CARD(LECTT+2) = ICOLD\r\n      CARD(LECTT+11) = KHRFN1(CARD(LECTT+11),2,XALT(1),3)\r\n      CARD(LECTT+13) = KHRFN1(CARD(LECTT+13),1,NXCSA(1),1)\r\n      CARD(LECTT+14) = KHRFN1(CARD(LECTT+14),2,IDISK,1)\r\nC\r\nC     WRITE DUMMY ID FILE ON PROBLEM TAPE IN CASE OF ID CONTROL CARD\r\nC     ERROR.\r\nC\r\n      NOGO   = XNOGO\r\n      XNOGO  = 0\r\n      OLDALT = 0\r\nC\r\nC     READ CONTROL CARD AND PROCESS\r\nC\r\n   20 IF (ALTOPN .LE. 0) ASSIGN 70 TO IRTN1\r\n   30 NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      IF (ZCOM .NE. 0) GO TO 40\r\n      CALL XREAD (*1232,CARD)\r\nC\r\nC     ECHO CARD\r\nC     (NOECHO IS SET BY SEMDBD AND READFILE OF FFREAD)\r\nC\r\n   40 ZCOM = 0\r\n      IF (NOECHO .NE. 0) GO TO 52\r\n      WRITE  (OUTTAP,50) CARD\r\n   50 FORMAT (5X,20A4)\r\n      GO TO 55\r\n   52 NOECHO = NOECHO + 1\r\n      NLINES = NLINES - 1\r\nC\r\nC     CHECK FOR COMMENT CARD\r\nC\r\n   55 IF (KHRFN1(BLANK,1,CARD(1),1) .EQ. DOLSIN) GO TO 30\r\nC\r\nC     CALL RMVEQ TO REPLACE ONE EQUAL SIGN BY ONE BLANK\r\nC     IF CARD IS NOT WITHIN ALTER RANGE\r\nC\r\nCCCCC   NEXT LINE CAUSE ERROR IN READING RESTART DICTIONARY. POSITION\r\nCCCCC   PROBLEM\r\nCCCCC\r\nCCCCC      IF (NOTALT .EQ. 0) CALL RMVEQ (CARD)\r\n      CALL XRCARD (OUTCRD,200,CARD)\r\nC\r\nC     CHECK FOR ERROR DETECTED BY XRCARD\r\nC\r\n      IF (XNOGO .EQ. 0) GO TO 60\r\n      IF (NOGO  .EQ. 0) NOGO = 1\r\n      XNOGO = 0\r\n      GO TO 30\r\nC\r\nC     CHECK FOR BLANK CARD\r\nC\r\n   60 IF (OUTCRD(1) .EQ. 0) GO TO 30\r\n      GO TO IRTN1, (70,270,370,510)\r\n   70 J = 0\r\n      DO 80 I = 1,LECTT,3\r\n      J = J + 1\r\n      IF (OUTCRD(2).EQ.ECTT(I) .AND. OUTCRD(3).EQ.ECTT(I+1)) GO TO 90\r\n   80 CONTINUE\r\n      IF (OUTCRD(2) .EQ. IXDMAP) GO TO 400\r\n      IF (IGNORE .EQ. 0) GO TO 690\r\n      GO TO 20\r\nC\r\nC     HAS THIS TYPE CARD ALREADY BEEN PROCESSED\r\nC\r\n   90 IGNORE = 0\r\n      IF (ECTT(I+2).LT.0 .AND. OUTCRD(2).EQ.ECTT(28)) ECTT(I+2) = 0\r\nC                                               DIAG\r\n      IF (ECTT(I+2)) 720,100,100\r\n  100 ECTT(I+2) = ORF(ECTT(I+2),MASK5)\r\n      GO TO (110, 120, 140, 210, 570, 330, 390, 400,1180, 480,\r\n     1       460, 530, 560, 565, 555, 330, 330), J\r\nC\r\nC\r\nC     NOW PROCESS TIME CARD\r\nC\r\n  110 IMHERE = 110\r\n      IF (OUTCRD(4).NE.-1 .OR. OUTCRD(5).LE.0) GO TO 760\r\n      TIME = OUTCRD(5)*60\r\n      GO TO 20\r\nC\r\nC\r\nC     NOW PROCESS APPROACH CARD\r\nC\r\n  120 DO 130 JJ = 1,NUMAPP\r\n      APPRCH = JJ\r\n      APPREC = JJ\r\n      IF (OUTCRD(4) .EQ. APPTYP(JJ)) GO TO 132\r\n  130 CONTINUE\r\n      IMHERE = 130\r\n      GO TO 760\r\nC\r\nC     CHECK FOR SUBSTRUCTURE ANALYSIS\r\nC\r\n  132 IF (OUTCRD(6) .NE. NSUBS) GO TO 20\r\n      ISUBS = APPRCH\r\n      IF (OUTCRD(8) .NE. -1) GO TO 20\r\n      ISUBS = ISUBS + 10*OUTCRD(9)\r\n      GO TO 20\r\nC\r\nC\r\nC     NOW PROCESS CHKPNT CARD\r\nC\r\n  140 IF (OUTCRD(4).EQ.NO .OR. OUTCRD(6).EQ.NO) GO TO 20\r\nC\r\nC     CHECK FOR ILLEGAL FORMAT\r\nC\r\n      IMHERE = 140\r\n      IF (OUTCRD(4).NE.IYES .AND. OUTCRD(6).NE.IYES) GO TO 750\r\n      ICPFLG = 1\r\n      IF (OUTCRD(6) .EQ. IDISK) GO TO 20\r\n      ASSIGN 150 TO L\r\n      IDFIST = PTAPE\r\nC\r\nC     CHECKPOINT FLAG IS ON,MAKE SURE NEW PROBLEM TAPE IS ON\r\nC     PHYSICAL TAPE DRIVE\r\nC\r\n      GO TO 160\r\n  150 IF (NOSTUP .NE. 0) GO TO 790\r\n      GO TO 20\r\nC\r\nC     CHECK TAPE SETUP\r\nC\r\n  160 IF (TAPBIT(IDFIST)) GO TO 190\r\nC\r\nC     TAPE NOT SETUP\r\nC\r\n      NOSTUP = 1\r\n      GO TO 200\r\n  190 CONTINUE\r\nC\r\nC     TAPE SETUP\r\nC\r\n      NOSTUP = 0\r\nC     GO TO L, (150,470)\r\n  200 GO TO L, (150)\r\nC\r\nC\r\nC     NOW PROCESS RESTART CARD\r\nC\r\n  210 NGINO  = OPTAPE\r\n      IRESTR = 1\r\nC\r\nC     SET UNSORTED AND SORTED BULK DATA OUTPUT (ECHO = BOTH)\r\nC     AS THE DEFAULT FOR RESTART RUNS\r\nC\r\n      IECHO = 3\r\n      CALL OPEN (*850,OPTAPE,GBUFF(DMAPBS+1),0)\r\n      CALL READ (*1350,*1350,OPTAPE,OTAPID,6,0,FLGWRD)\r\n      CALL READ (*1350,*222,OPTAPE,TIMEX,1,1,FLGWRD)\r\n      GO TO 225\r\n  222 OUTCRD(21) = 0\r\n      TIMEX = 0\r\nC\r\nC     COMPARE ID OF OLD PTAPE WITH THAT ON RSTART CARD\r\nC\r\n  225 RSTRT = 2\r\nC\r\nC     UNPACK DATE\r\nC\r\n      I     = LSHIFT(OTAPID(5),7)\r\n      IYEAR = RSHIFT(ANDF(I,MASKHI),7)\r\n      I     = RSHIFT(I,6)\r\n      IDAY  = RSHIFT(ANDF(I,MASKHI),9)\r\n      I     = RSHIFT(I,5)\r\n      IMNTH = RSHIFT(ANDF(I,MASKHI),10)\r\n      JJ    = OUTCRD(1)*2 - 2\r\n      DO 230 JK = 1,JJ\r\n      IF (OTAPID(JK) .NE. OUTCRD(JK+3)) GO TO 820\r\n  230 CONTINUE\r\n      IF (OUTCRD( 9).EQ.0 .AND. OUTCRD(14).EQ.0 .AND. OUTCRD(19) .EQ. 0)\r\n     1    GO TO 235\r\n      IF (IMNTH.NE.OUTCRD(9) .OR. IDAY.NE.OUTCRD(14) .OR.\r\n     1    IYEAR.NE.OUTCRD(19)) GO TO 820\r\n  235 CONTINUE\r\n      IF (OUTCRD(21) .EQ. 0) TIMEX = 0\r\n      IF (TIMEX .NE. OUTCRD(21)) GO TO 820\r\nC\r\nC     MAKE SURE CORRCET REEL IS MOUNTED\r\nC\r\n      IF (OTAPID(6) .EQ. 1) GO TO 240\r\n      GO TO 820\r\nC\r\nC     GET OLD SOLUTION NUMBER\r\nC\r\n  240 CALL SKPFIL (OPTAPE,1)\r\n      CALL READ  (*1350,*1350,OPTAPE,OSOLU,1,0,FLGWRD)\r\n      IF (OSOLU(1) .EQ. XALT(1)  ) OLDALT = OLDALT + 1\r\n      IF (OSOLU(1) .EQ. NXPTDC(1)) OLDALT = OLDALT + 1\r\n      IF (OSOLU(1) .NE. NXCSA(1) ) GO TO 240\r\n      CALL FWDREC (*1350,OPTAPE)\r\n      CALL READ (*1350,*1350,OPTAPE,0,-4,0,FLGWRD)\r\n      CALL READ (*1350,*1350,OPTAPE,OSOLU,2,1,FLGWRD)\r\n      CALL SKPFIL (OPTAPE,1)\r\n      CALL CLOSE  (OPTAPE,2)\r\nC\r\nC     LOAD PROBLEM TAPE DICTIONARY\r\nC\r\n      ICRDCT = 0\r\n      ISEQNO = 0\r\n      ITOP = DRECSZ + 1\r\n      LDIC = KORSZ(IPTDIC(ITOP)) - IBUFSZ\r\n      IBOT = ITOP - 3\r\nC\r\nC     ZERO FIRST PTDIC ENTRY IN CASE THERE ARE NO ENTRIES\r\nC\r\n      IPTDIC(ITOP  ) = 0\r\n      IPTDIC(ITOP+1) = 0\r\n      IPTDIC(ITOP+2) = 0\r\nC\r\nC     SET ITOPX SO THAT FIRST XVPS ENTRY IN PTDIC WILL BE PRESERVED\r\nC\r\n      ITOPX  = ITOP + 3\r\n  260 ICRDCT = 1 + ICRDCT\r\nC\r\nC     READ IN NEXT CONTROL CARD\r\nC\r\n      ASSIGN 270 TO IRTN1\r\n      GO TO 30\r\n  270 IF (OUTCRD(1) .NE.     -1) GO TO 320\r\n      IF (OUTCRD(2) .NE. ICRDCT) GO TO 1210\r\n      IF (OUTCRD(3) .EQ.      5) GO TO 310\r\n      IF (OUTCRD(3) .EQ.  ENDCD) GO TO 320\r\n      IF (OUTCRD(3) .GT.      3) GO TO 310\r\nC\r\nC     CHECK FORMAT\r\nC\r\n      IMHERE = 275\r\n      IF (OUTCRD(3).NE.3 .OR. OUTCRD(10).NE.-1 .OR. OUTCRD(12).NE.2 .OR.\r\n     1    OUTCRD(17).NE.-1 .OR. OUTCRD(19).NE.2 .OR. OUTCRD(24).NE.-1)\r\n     2    GO TO 760\r\nC\r\nC     PACK FLAGS/REEL/FILE\r\nC\r\n      FLAGS = 0\r\n      IF (OUTCRD(11) .GE. 4) FLAGS = ISIGN\r\n      REEL = ORF(LSHIFT(OUTCRD(18),16),OUTCRD(25))\r\nC\r\nC     SEE IF FILE IS ALREADY IN PTDIC - IF IT IS, PUT LATEST REEL/FILE\r\nC     NO. IN EXISTING ENTRY\r\nC\r\n      IF (IBOT .LT. ITOPX) GO TO 290\r\n      DO 280 K = ITOPX,IBOT,3\r\n      IF (IPTDIC(K).EQ.OUTCRD(4) .AND. IPTDIC(K+1).EQ.OUTCRD(5))\r\n     1    GO TO 300\r\n  280 CONTINUE\r\nC\r\nC     FILE NOT IN PTDIC - MAKE NEW ENTRY\r\nC\r\n  290 IBOT = IBOT + 3\r\nC\r\nC     CHECK FOR OVERFLOW\r\nC\r\n      IF (IBOT+3-ITOP .GT. LDIC) GO TO 1260\r\n      K = IBOT\r\n      IPTDIC(K  ) = OUTCRD(4)\r\n      IPTDIC(K+1) = OUTCRD(5)\r\n  300 IPTDIC(K+2) = ORF(FLAGS,REEL)\r\n      GO TO 260\r\nC\r\nC     THIS IS A REENTRY CARD - LOAD DMAP INSTRUCTION NO. IN ISEQNO\r\nC\r\n  310 IMHERE = 310\r\n      IF (OUTCRD(4).NE.RENTER .OR. OUTCRD(14).NE.-1) GO TO 760\r\n      ISEQNO = LSHIFT(OUTCRD(15),16)\r\n      GO TO 260\r\nC\r\nC     DICTIONARY PROCESSED - COPY ONTO NEW PROBLEM TAPE.\r\nC     THERE MUST ALWAYS BE AT LEAST ONE ENTRY IN PTDIC\r\nC\r\n  320 IF (IBOT .LT. ITOP) IBOT = ITOP\r\n      NGINO = PTAPE\r\n      IMHERE= 320\r\n      CALL OPEN (*1320,PTAPE,GBUFF(DMAPBS+1),3)\r\nC\r\nC     RECORD 1 = ID\r\nC\r\n      CALL WRITE (PTAPE,NXPTDC,2,1)\r\nC\r\nC     RECORD 2 = CONTENTS OF IPTDIC\r\nC\r\n      CALL WRITE (PTAPE,IPTDIC(ITOP),IBOT+3-ITOP,1)\r\n      CALL EOF   (PTAPE)\r\n      CALL CLOSE (PTAPE,2)\r\n      IF (OUTCRD(3) .EQ. ENDCD) GO TO 20\r\n      GO TO 70\r\nC\r\nC\r\nC     PROCESS ALTER CONTROL CARDS\r\nC\r\n  330 ASSIGN 370 TO IRTN1\r\n      IF (ECTT(27) .LT. 0) GO TO 30\r\n      NOTALT = 1\r\n      IMHERE = 330\r\n      NGINO = ALTFIL\r\n      CALL OPEN (*1320,ALTFIL,GBUFF(ALTRBS+1),1)\r\n      ALTOPN = 1\r\n      IF (J .EQ. 16) GO TO 3605\r\n      IF (J .EQ. 17) GO TO 3655\r\n  340 IF (OUTCRD(6) .NE. ENDCD) GO TO 350\r\n      OUTCRD(6) = INTGR\r\n      OUTCRD(7) = 0\r\n  350 IMHERE = 350\r\n      IF (OUTCRD(4).NE.INTGR .OR. OUTCRD(6).NE.INTGR .OR. OUTCRD(5).LE.0\r\n     1   .OR. OUTCRD(7).LT.0) GO TO 750\r\n      IF (OUTCRD(7).GT.0 .AND. OUTCRD(8).NE.ENDCD) GO TO 750\r\nC\r\nC\r\n      ALTER(1) = OUTCRD(5)\r\n      ALTER(2) = OUTCRD(7)\r\nC\r\nC\r\nC     WRITE ALTER PARAMETERS ONTO THE ALTER SCRATCH FILE\r\nC     AND FOLLOW IT BY THE CARD IMAGE\r\nC\r\n      CALL WRITE (ALTFIL, ALTER,  2, 1)\r\n      CALL WRITE (ALTFIL, CARD , 18, 1)\r\nC\r\nC     READ NEXT CARD INTO CORE\r\nC\r\n      GO TO 30\r\nC\r\nC     PROCESS INSERT CONTROL CARDS HERE\r\nC\r\n 3605 INSERT(1) = OUTCRD(4)\r\n      INSERT(2) = OUTCRD(5)\r\n      INSERT(3) = 1\r\n      INSERT(4) = 0\r\n      IF (OUTCRD(6) .EQ. ALLON .AND. OUTCRD(7) .EQ. ILEFT .AND.\r\n     *    OUTCRD(8) .EQ. INTGR) GO TO 3610\r\n      JN = 7\r\n      IF (OUTCRD(6) .EQ. INTGR) GO TO 3615\r\n      IF (OUTCRD(6) .EQ. ENDCD) GO TO 3620\r\n      GO TO 750\r\n 3610 IF (OUTCRD(9) .LE. 0) GO TO 750\r\n      INSERT(3) = OUTCRD(9)\r\n      JN = 11\r\n      IF (OUTCRD(10) .EQ. INTGR) GO TO 3615\r\n      IF (OUTCRD(10) .EQ. ENDCD) GO TO 3620\r\n      GO TO 750\r\n 3615 INSERT(4) = OUTCRD(JN)\r\n      IF (OUTCRD(JN+1) .NE. ENDCD) GO TO 750\r\nC\r\nC     WRITE INSERT PARAMETERS ONTO THE ALTER SCRATCH FILE\r\nC     AND FOLLOW IT BY THE CARD IMAGE\r\nC\r\n 3620 CALL WRITE (ALTFIL, INSERT,  4, 1)\r\n      CALL WRITE (ALTFIL, CARD  , 18, 1)\r\n      NEWALT = 1\r\n      GO TO 30\r\nC\r\nC     PROCESS DELETE CONTROL CARDS HERE\r\nC\r\n 3655 DELETE(1) = OUTCRD(4)\r\n      DELETE(2) = OUTCRD(5)\r\n      DELETE(3) = 1\r\n      DELETE(4) = 0\r\n      DELETE(5) = 0\r\n      IF (OUTCRD(6) .EQ. ALLON .AND. OUTCRD(7) .EQ. ILEFT .AND.\r\n     *    OUTCRD(8) .EQ. INTGR) GO TO 3660\r\n      JN = 7\r\n      JNX = 7\r\n      IF (OUTCRD(6) .EQ. INTGR) GO TO 3665\r\n      IF (OUTCRD(6) .EQ. ENDCD) GO TO 3670\r\n      JNX = 6\r\n      GO TO 3675\r\n 3660 IF (OUTCRD(9) .LE. 0) GO TO 750\r\n      DELETE(3) = OUTCRD(9)\r\n      JN = 11\r\n      JNX = 11\r\n      IF (OUTCRD(10) .EQ. INTGR) GO TO 3665\r\n      IF (OUTCRD(10) .EQ. ENDCD) GO TO 3670\r\n      IF (OUTCRD(10) .GT.     0) GO TO 3675\r\n      GO TO 750\r\n 3665 DELETE(4) = OUTCRD(JN)\r\n      JN = JN + 1\r\n      JNX = JN + 1\r\n      IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3670\r\n      IF (OUTCRD(JN) .GT.     0) GO TO 3675\r\n      GO TO 750\r\nC\r\nC     WRITE DELETE PARAMETERS ONTO THE ALTER SCRATCH FILE\r\nC     AND FOLLOW IT BY THE CARD IMAGE\r\nC\r\n 3670 CALL WRITE (ALTFIL, DELETE,  5, 1)\r\n      CALL WRITE (ALTFIL, CARD  , 18, 1)\r\n      NEWALT = 1\r\n      GO TO 30\r\nC\r\n 3675 JN = JNX\r\n      DELETE(5) = 1\r\n      DELETE(6) = OUTCRD(JN  )\r\n      DELETE(7) = OUTCRD(JN+1)\r\n      DELETE(8) = 1\r\n      DELETE(9) = 0\r\n      JN = JN + 2\r\n      JNX = JN + 3\r\n      IF (OUTCRD(JN  ) .EQ. ALLON .AND. OUTCRD(JN+1) .EQ. ILEFT .AND.\r\n     *    OUTCRD(JN+2) .EQ. INTGR) GO TO 3680\r\n      JNX = JN + 1\r\n      IF (OUTCRD(JN) .EQ. INTGR) GO TO 3685\r\n      IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3690\r\n      GO TO 750\r\n 3680 JN = JNX\r\n      IF (OUTCRD(JN) .LE. 0) GO TO 750\r\n      DELETE(8) = OUTCRD(JN)\r\n      JN = JN + 1\r\n      JNX = JN + 1\r\n      IF (OUTCRD(JN) .EQ. INTGR) GO TO 3685\r\n      IF (OUTCRD(JN) .EQ. ENDCD) GO TO 3690\r\n      GO TO 750\r\n 3685 DELETE(9) = OUTCRD(JNX)\r\n      IF (OUTCRD(JNX+1) .NE. ENDCD) GO TO 750\r\nC\r\nC     WRITE DELETE PARAMETERS ONTO THE ALTER SCRATCH FILE\r\nC     AND FOLLOW IT BY THE CARD IMAGE\r\nC\r\n 3690 CALL WRITE (ALTFIL, DELETE,  9, 1)\r\n      CALL WRITE (ALTFIL, CARD  , 18, 1)\r\n      NEWALT = 1\r\n      GO TO 30\r\n  370 CONTINUE\r\nC\r\nC     CHECK FOR CEND CARD TO PREVENT STREAMING THRU BULK DATA\r\nC\r\n      IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 910\r\nC\r\nC     CHECK FOR ANOTHER ALTER CARD\r\nC\r\n      IF (OUTCRD(2).EQ.BGNAL(1) .AND. OUTCRD(3).EQ.BGNAL(2)) GO TO 340\r\nC\r\nC     CHECK FOR ANOTHER INSERT CARD\r\nC\r\n      IF (OUTCRD(2).EQ.ECTT(46) .AND. OUTCRD(3).EQ.ECTT(47))\r\n     *   GO TO 3605\r\nC\r\nC     CHECK FOR ANOTHER DELETE CARD\r\nC\r\n      IF (OUTCRD(2).EQ.ECTT(49) .AND. OUTCRD(3).EQ.ECTT(50))\r\n     *   GO TO 3655\r\nC\r\nC     CHECK FOR ENDALTER CARD\r\nC\r\n      IF (OUTCRD(2).NE.ENDAL(1) .OR.  OUTCRD(3).NE.ENDAL(2)) GO TO 380\r\nC\r\nC     ENDALTER ENCOUNTERED\r\nC\r\n      IF (ECTT(27) .LT. 0) GO TO 720\r\n      ECTT(27) = ORF (ECTT(27), MASK5)\r\n      CALL EOF (ALTFIL)\r\n      CALL CLOSE (ALTFIL,2)\r\n      ALTOPN = -1\r\n      NOTALT = 0\r\n      GO TO 20\r\nC\r\nC\r\nC\r\nC     WRITE DMAP INSTRUCTION ON THE ALTER SCRATCH FILE\r\nC\r\n  380 IF (ECTT(27) .LT. 0) GO TO 30\r\n      CALL WRITE (ALTFIL, CARD, 18, 1)\r\n      GO TO 30\r\nC\r\nC\r\nC     NOW PROCESS SOL CONTROL CARD\r\nC\r\n  390 SOLUF = 1\r\nC\r\nC     =====================================\r\nC     ECTT(I+2) = 0\r\nC     DO 2000 JJ = 1,12\r\nC2000 SOLU(JJ) = 0\r\nC     WRITE  (6,2001)\r\nC2001 FORMAT (16H0+++ OUTCARD +++)\r\nC     JJ = 1\r\nC2002 WRITE  (6,2003) JJ,OUTCRD(JJ)\r\nC2003 FORMAT (20X,I5,5X,O20)\r\nC     IF (OUTCRD(JJ) .EQ. ENDCD) GO TO 2004\r\nC     JJ = JJ + 1\r\nC     GO TO 2002\r\nC2004 CONTINUE\r\nC     =====================================\r\nC\r\n      IF (OUTCRD(1) .EQ. 1) GO TO 395\r\nC\r\n      DO 391 JJ = 1,6\r\n  391 SOLNMX(JJ) = BLANK\r\n      JK = 2*OUTCRD(1) + 3\r\n      SOLNMX(1) = OUTCRD(4)\r\n      SOLNMX(2) = OUTCRD(5)\r\n      IF (OUTCRD(1).EQ.2 .OR. OUTCRD(7).EQ.BLANK) GO TO 392\r\n      SOLNMX(3) = OUTCRD(6)\r\n      SOLNMX(4) = OUTCRD(7)\r\n      IF (OUTCRD(1).EQ.3 .OR. OUTCRD(9).EQ.BLANK) GO TO 392\r\n      SOLNMX(5) = OUTCRD(8)\r\n      SOLNMX(6) = OUTCRD(9)\r\n  392 DO 394 JJ = 1,NSOLNM\r\n      DO 393 K  = 1,6\r\n      IF (SOLNMX(K) .NE. SOLNMS(K,JJ)) GO TO 394\r\n  393 CONTINUE\r\n      SOLU(1) = SOLNMS(7,JJ)\r\n      GO TO 396\r\n  394 CONTINUE\r\n      IUFILE(1) = OUTCRD(4)\r\n      IUFILE(2) = OUTCRD(5)\r\n      SOLU(1)   = 0\r\n      GO TO 396\r\nC\r\n  395 IMHERE = 395\r\n      IF (OUTCRD(4) .NE. -1) GO TO 750\r\n      JK = 7\r\n      SOLU(1) = OUTCRD(5)\r\n      IF (OUTCRD(6) .EQ. 1) JK = JK + 3\r\n      IF (OUTCRD(6) .EQ. 2) JK = JK + 5\r\nC\r\n  396 CONTINUE\r\n      RFFLAG = SOLU(1)\r\n      IF (OUTCRD(JK-1) .EQ. ENDCD) GO TO 399\r\n      IMHERE = 397\r\n      JJ = 1\r\n  397 JJ = JJ + 1\r\n      IF (JJ .GT. 12) GO TO 750\r\n      IF (OUTCRD(JK-1) .NE. -1) GO TO 750\r\n      NSUBST = JJ\r\n      SOLU(JJ) = OUTCRD(JK)\r\n      IF (OUTCRD(JK+1) .EQ. ENDCD) GO TO 399\r\n      JK = JK + 2\r\n      GO TO 397\r\n  399 CONTINUE\r\nC\r\nC     ===========================================\r\nC2005 FORMAT (1H0,100(1H+)/1H0/1H0)\r\nC     WRITE  (6,2006)\r\nC2006 FORMAT (13H0+++ SOLU +++)\r\nC     JJ = 1\r\nC2007 IF (SOLU(JJ).EQ.0 .AND. JJ.GT.2) GO TO 2009\r\nC     WRITE  (6,2008) JJ,SOLU(JJ)\r\nC2008 FORMAT (20X,I5,5X,I10)\r\nC     JJ = JJ + 1\r\nC     GO TO 2007\r\nC2009 CONTINUE\r\nC     WRITE (6,2005)\r\nC     ===========================================\r\nC\r\n      GO TO 20\r\nC\r\nC\r\nC     B E G I N  CONTROL CARD\r\nC     PROCESS DMAP SEQUENCE\r\nC\r\n  400 JJ = 0\r\n      WRITE  (OUTTAP,410)\r\n  410 FORMAT (5X,'(SEE NASTRAN SOURCE PROGRAM COMPILATION FOR LISTING ',\r\n     1        'OF DMAP SEQUENCE)')\r\n      DO 420 JK = 1,NWPC\r\n      JJ = JJ + 1\r\n  420 DMAPBF(JJ) = CARD(JK)\r\n  430 CALL XREAD (*1232,CARD)\r\n      DO 440 JK = 1,NWPC\r\n      JJ = JJ + 1\r\n      DMAPBF(JJ) = CARD(JK)\r\n  440 CONTINUE\r\n      IF (JJ .GT. DMAPBS) GO TO 1290\r\nC\r\nC     CHECK FOR END OR CEND CARD\r\nC\r\n      CALL XRCARD (OUTCRD,200,CARD)\r\nC\r\nC     CHECK FOR ERROR DETECTED BY XRCARD\r\nC\r\n      IF (XNOGO .EQ. 0) GO TO 450\r\n      WRITE (OUTTAP,50) CARD\r\n      IF (NOGO  .EQ. 0) NOGO = 1\r\n      XNOGO = 0\r\n      GO TO 430\r\n  450 IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 940\r\n      IF (OUTCRD(2) .NE. DMEND) GO TO 430\r\n      WRITE (OUTTAP,50) CARD\r\n      DRECSZ = JJ\r\n      GO TO 20\r\nC\r\nC\r\nC     NOW PROCESS UMF CARD\r\nC     CHECK FORMAT\r\nC\r\n  460 WRITE  (OUTTAP,465) UWM,ECTT(I),ECTT(I+1)\r\n  465 FORMAT (A25,', ',2A4,' CARD IS NO LONGER AVAILABLE')\r\n      GO TO 20\r\nC\r\nC 460 IMHERE = 460\r\nC     IF (OUTCRD(4).NE.INTGR .OR. OUTCRD(6).NE.INTGR .OR.\r\nC    1    OUTCRD(5).LE.    0 .OR. OUTCRD(7).LT.   0) GO TO 750\r\nC\r\nC     SET UNSORTED AND SORTED BULK DATA OUTPUT (ECHO = BOTH)\r\nC     AS THE DEFAULT FOR RUNS USING THE UMF\r\nC\r\nC     IECHO = 3\r\nC\r\nC     MAKE SURE UMF TAPE IS SETUP\r\nC\r\nC     ASSIGN 470 TO L\r\nC     IDFIST = NUMF\r\nC     GO TO 160\r\nC 470 IF (NOSTUP .NE. 0) GO TO 970\r\nC\r\nC     MAKE SURE CORRECT UMF TAPE IS MOUNTED\r\nC\r\nC     NGINO = NUMF\r\nC     IMHERE= 470\r\nC     CALL OPEN  (*1320,NUMF,GBUFF(DMAPBS+1),0)\r\nC     CALL READ  (*1350,*1350,NUMF,UMFID,1,0,FLGWRD)\r\nC     CALL SKPFIL (NUMF,1)\r\nC     CALL CLOSE (NUMF,2)\r\nC     IF (UMFID .NE. OUTCRD(5)) GO TO 1000\r\nC     UMFID = OUTCRD(7)\r\nC     GO TO 20\r\nC\r\nC\r\nC     PROCESS DIAG CARD\r\nC     ALLOW MULTIPLE DIAG CARDS TO BE PROCESSED.\r\nC\r\n  480 CONTINUE\r\n      I = 2\r\n  490 I = I + 2\r\n      IF (OUTCRD(I) .EQ.     0) GO TO 505\r\n      IF (OUTCRD(I) .NE. INTGR) GO TO 520\r\nC\r\nC     SET SENSE SWITCH BITS. (DIAG 1 THRU 48, BIT COUNTS 0 THRU 47)\r\nC     BITS 49 THRU 63 ARE RESERVED FOR LINK NO.  (-1 THRU -15)\r\nC\r\n      JJ = OUTCRD(I+1)\r\nCWKBD IF (JJ .GT. 63-MAXLNK) GO TO 503\r\nCWKBD IF (JJ.GE.-MAXLNK .AND. JJ.LE.-1) JJ = 63 - MAXLNK - JJ\r\n      IF (JJ .GT. 31) GO TO 500\r\n      SWITCH(1) = ORF(LSHIFT(1,JJ-1),SWITCH(1))\r\nC\r\nC     TURN ON DIAG 14 IF DIAG 25 HAS BEEN REQUESTED\r\nC\r\n      IF (JJ .EQ. 25) SWITCH(1) = ORF(LSHIFT(1,13),SWITCH(1))\r\n      GO TO 503\r\n  500 IF (JJ.EQ.42 .AND. MACH.GT.5) WRITE (OUTTAP,501) UWM,MCHNAM\r\n  501 FORMAT (A25,', DIAG 42 IS UNSUPPORTED IN ALL UNIX MACHINES, ',\r\n     1        'INCLUDING ',A6,' ***')\r\n      JJ = JJ - 31\r\n      SWITCH(2) = ORF(LSHIFT(1,JJ-1),SWITCH(2))\r\n  503 CONTINUE\r\n      GO TO 490\r\nC\r\nC     DIAG CONTINUED ON NEXT CARD - READ IN NEXT CARD\r\nC\r\n  505 ASSIGN 510 TO IRTN1\r\n      GO TO 30\r\n  510 IF (OUTCRD(2).EQ.CEND(1) .AND. OUTCRD(3).EQ.CEND(2)) GO TO 570\r\n      I = -1\r\n      GO TO 490\r\nC\r\nC     SHOULD BE END OF LOGICAL DIAG CARD\r\nC\r\n  520 IMHERE = 520\r\n      IF (OUTCRD(I) .NE. ENDCD) GO TO 750\r\nCIBMDB 5/95      \r\nC      SWITCH(3) = ORF(SWITCH(3),SWITCH(1))\r\nC      SWITCH(1) = 0\r\nC      CALL PRESSW (LINKS(1),I)\r\nC\r\nC     RE-ACTIVATE THOSE LINK1 SPECIAL DIAGS IN DIAGX LIST IF NECESSARY\r\nC\r\nC      IF (SWITCH(1) .EQ. SWITCH(3)) GO TO 527\r\nC      DO 525 I = 1,11\r\nC      JJ = DIAGX(I) - 1\r\nC      SWITCH(1) = ORF(ANDF(LSHIFT(1,JJ),SWITCH(3)),SWITCH(1))\r\nC  525 CONTINUE\r\nC      IF (SWITCH(1) .NE. SWITCH(3)) CALL PRESSW (RENTER,I)\r\nCIBMDE 5/95  \r\n  527 CALL SSWTCH (15,L15)\r\n      CALL SSWTCH (8 ,L 8)\r\n      CALL SSWTCH (13,L13)\r\n      GO TO 20\r\nC\r\nC\r\nC     NOW PROCESS ID CARD\r\nC     CHECK FORMAT - MUST BE AT LEAST 3 BCD FIELDS\r\nC\r\n  530 IMHERE = 530\r\n      IF (OUTCRD(1) .LT. 3) GO TO 750\r\nC\r\nC     MAKE SURE ID CARD IS FIRST CONTROL CARD\r\nC     IF ID CARD WAS IN ERROR CONTROL WILL STILL RETURN TO HERE\r\nC\r\n  531 DO 540 I = 1,LECTT,3\r\n      IF (ECTT(I+2).LT.0 .AND. ECTT(I).NE.ID) GO TO 1060\r\n  540 CONTINUE\r\n      IF (LOGFL .LE. 0) CALL LOGFIL (CARD)\r\n      DO 550 JJ = 1,4\r\n  550 TAPID(JJ) = OUTCRD(JJ+3)\r\nC\r\nC      PACK DATE -\r\nC\r\n      IMNTH = LSHIFT(IDATE(1),14)\r\n      IDAY  = LSHIFT(IDATE(2),8)\r\n      IYEAR = IDATE(3)\r\n      TAPID(5) = ORF(IMNTH,ORF(IDAY,IYEAR))\r\nC\r\nC     REEL NO. TO TAPID\r\nC\r\n      TAPID(6) = 1\r\nC\r\nC     OUTPUT IF ON NEW PROBLEM TAPE\r\nC\r\n      NGINO = PTAPE\r\n      CALL OPEN  (*1320,PTAPE,GBUFF(DMAPBS+1),1)\r\n      CALL WRITE (PTAPE,TAPID,6,0)\r\n      CALL WRITE (PTAPE,TIMEW,1,1)\r\n      CALL EOF   (PTAPE)\r\n      CALL CLOSE (PTAPE,2)\r\n      GO TO 20\r\nC\r\nC\r\nC     PROCESS INTERACTIVE CARD\r\nC     SET INTRA TO NEGATIVE IN BATCH RUN (I.E. PRE-INTERACTIVE RUN)\r\nC     INTRA WILL BE RESET TO POSITIVE IN AN ON-LINE INTERACTIVE RUN\r\nC\r\nC     CHECK FORMAT AND FILE ASSIGNMENT\r\nC\r\n  555 INTRA = 0\r\n      DO 557 JJ = 4,9\r\n      IF (OUTCRD(JJ) .EQ. PLOT) INTRA = ORF(INTRA,1)\r\n      IF (OUTCRD(JJ) .EQ. PRNT) INTRA = ORF(INTRA,2)\r\n      IF (OUTCRD(JJ) .EQ. BOTH) INTRA = ORF(INTRA,3)\r\n  557 CONTINUE\r\n      IF (INTRA .EQ. 0) GO TO 700\r\n      INTRA = -INTRA\r\n      JJ = 1\r\n      IF (MACH .EQ. 3) CALL FACIL (INP9,JJ)\r\n      IF (JJ   .EQ. 2) GO TO 1250\r\n      GO TO 20\r\nC\r\nC\r\nC     UMFEDIT CARD FOUND - SET EDTUMF FLAG\r\nC\r\n  560 WRITE (OUTTAP,465) UWM,ECTT(I),ECTT(I+1)\r\nC     EDTUMF = 1\r\n      GO TO 20\r\nC\r\nC\r\nC     PROCESS PREC CARD\r\nC\r\n  565 IMHERE = 565\r\n      IF (OUTCRD(5).NE.1 .AND. OUTCRD(5).NE.2) GO TO 750\r\n      PREC = OUTCRD(5)\r\n      GO TO 20\r\nC\r\nC     CEND CARD FOUND - NO MORE CONTROL CARDS TO PROCESS\r\nC\r\nC\r\nC     SET APP DEFAULT TO 'DISPLACEMENT' AND TIME TO 10 MINUTES\r\nC\r\n  570 IF (APPRCH .NE. 0) GO TO 572\r\n      APPRCH  = 2\r\n      APPREC  = 2\r\n      WRITE  (OUTTAP,571)\r\n  571 FORMAT ('0*** APP  DECLARATION CARD MISSING.  DISPLACEMENT IS ',\r\n     1        'SELECTED BY DEFAULT')\r\n  572 IF (TIME .GT. 0) GO TO 575\r\n      TIME = 300\r\n      WRITE  (OUTTAP,573)\r\n  573 FORMAT ('0*** TIME  CARD MISSING. MAXIMUM EXECUTION TIME IS SET ',\r\n     1        'TO 5 MINUTES BY DEFAULT')\r\nC\r\nC     CALL NSINFO TO PRINT DIAG48, OR\r\nC     PRINT THE FOLLOWING MESSAGE OUT ONLY IF THE JOB IS RUN ON THE SAME\r\nC     YEAR OF THE RELEASE DATE, AND USER DOES NOT MAKE A DIAG48 REQUEST\r\nC\r\nC     DIAG48 TEXT IS STORED IN 4TH SECTION OF THE NASINFO FILE\r\nC\r\nC\r\n  575 CALL SSWTCH (48,JJ)\r\n      IF (JJ .NE. 1) GO TO 576\r\n      CALL NSINFO (4)\r\n      GO TO 580\r\n  576 JJ = IDATE(3)\r\n      JJ = MOD(JJ,100)\r\n      CALL INT2A8 (*577,JJ,IZ(1))\r\n  577 IF (IZ(1) .EQ. SY42(3)) WRITE (OUTTAP,578) UIM\r\n  578 FORMAT (//,A29,', TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS, ',\r\n     1       'DIAG DEFINITION, NEW DMAP', /9X,\r\n     2       'MODULES AND NEW BULKDATA CARDS INFORMATION')\r\nC\r\nC     CLOSE NASINFO FILE IF IT EXISTS\r\nC     AND RESET THE 37TH WORD OF /SYSTEM/ BACK TO ZERO\r\nC\r\n  580 IF (LU .NE. 0) CLOSE (UNIT=LU)\r\n      LU = 0\r\nC\r\nC     NOW MAKE SURE ALL NECESSARY CARDS HAVE BEEN FOUND\r\nC\r\n      DO 590 I = 1,LECTT,3\r\n      TEST = ANDF(ECTT(I+2),MASK)\r\n      IF (TEST .GT. 0) IF (ECTT(I+2)) 590,1090,1090\r\n  590 CONTINUE\r\nC\r\nC     SET APPRCH NEGATIVE FOR RESTART\r\nC\r\n      IF (RSTRT .NE. ICOLD) APPRCH = -APPRCH\r\n      IF (SOLUF.EQ.1 .AND. DRECSZ.NE.0) GO TO 1120\r\n      IF (SOLUF.EQ.0 .AND. DRECSZ.EQ.0) GO TO 1150\r\nC     IF (RSTRT.NE.ICOLD .AND. UMFID.NE.0) GO TO 1030\r\nC\r\nC\r\n  600 IF (NOGO .GT. 1) GO TO 1380\r\nC\r\nC     WRITE XCSA CONTROL FILE ONTO PROBLEM TAPE\r\nC     FIRST RECORD IS HEADER RECORD CONTAINING A SINGLE WORD (XCSA)\r\nC\r\n      IF (APPREC .EQ. APPDMP) GO TO 610\r\nC\r\nC     IF APPROACH IS HEAT ADD TWENTY THREE TO SOLUTION\r\nC\r\n      IF (APPREC .EQ. APPHEA) SOLU(1) = SOLU(1) + 23\r\nC\r\nC     IF APPROACH IS AEROELASTIC ADD THIRTY TO SOLUTION\r\nC\r\n      IF (APPREC .EQ. APPAER) SOLU(1) = SOLU(1) + 30\r\n      GO TO 612\r\n  610 NGINO = PTAPE\r\n      IMHERE= 610\r\n      CALL OPEN  (*1320,PTAPE,GBUFF(DMAPBS+1),3)\r\n      CALL WRITE (PTAPE,NXCSA,2,1)\r\nC\r\nC     DIS OLD PT HAVE AN ALTER FILE AND/OR CKPT DIST\r\nC\r\n      SOLREC(4) = OLDALT\r\nC\r\nC     WRITE SIX-WORD CONTROL FILE RECORD\r\nC\r\n      CALL WRITE (PTAPE,SOLREC,6,1)\r\n      CALL EOF   (PTAPE)\r\n      CALL CLOSE (PTAPE, 3)\r\n      IF (APPREC .NE. APPDMP) GO TO 640\r\n  612 NGINO = NSCR\r\n      IMHERE= 612\r\n      CALL OPEN (*1320,NSCR,GBUFF(DMAPBS+1),1)\r\n      IF (APPREC .EQ. APPDMP) GO TO 620\r\nC\r\nC     APPROACH IS RIGID FORMAT\r\nC     WRITE RIGID FORMAT AND MED TABLES ONTO SCRATCH FILE\r\nC\r\n      ISIZE = KORSZ (DMAPBF(1)) - IBUFSZ\r\n      IF (ALTOPN .EQ. 0) GO TO 614\r\n      IF (ERRALT .EQ. 0) GO TO 613\r\n      NEWALT = 0\r\n  613 IF (NEWALT .EQ. 0) GO TO 614\r\n      ISIZE = ISIZE - IBUFSZ\r\n      NGINO = ALTFIL\r\n      CALL OPEN (*1320, ALTFIL, GBUFF(ALTRBS+1), 3)\r\n  614 CALL XRGDFM (SOLU,OSOLU,APPREC,IUFILE,DMAPBF,ISIZE,NSCR,NOGO)\r\n      IF (XNOGO .EQ. 0) GO TO 615\r\n      IF (NOGO  .EQ. 0) NOGO = 1\r\n      XNOGO = 0\r\n  615 CONTINUE\r\n      IF (NOGO .GT. 1) GO TO 1380\r\n      CALL CLOSE (NSCR, 1)\r\n      SOLREC(3) = 0\r\n      IF (ALTOPN .EQ. 0) GO TO 610\r\n      IF (ERRALT .EQ. 1) GO TO 610\r\n      SOLREC(3) = 1\r\n      NGINO = PTAPE\r\n      CALL OPEN (*1320, PTAPE,  GBUFF(DMAPBS+1), 3)\r\n      NGINO = ALTFIL\r\n      CALL OPEN (*1320, ALTFIL, GBUFF(ALTRBS+1), 0)\r\n      CALL DMPALT (ISIZE, DMAPBF, PTAPE)\r\n      CALL EOF (PTAPE)\r\n      CALL CLOSE (PTAPE,  2)\r\n      CALL CLOSE (ALTFIL, 1)\r\n      IF (ALNOGO .EQ. 0) GO TO 610\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 610\r\nC\r\nC     APPROACH IS DMAP\r\nC     WRITE DMAP SEQUENCE ONTO SCRATCH FILE FROM OPEN CORE\r\nC\r\n  620 CALL WRITE (NSCR,DMAPBF,DRECSZ,1)\r\n  630 CALL CLOSE (NSCR,1)\r\n  640 CONTINUE\r\nC\r\nC     PUNCH RESTART CARD IF CHECKPOINT FLAG IS SET.\r\nC\r\n      IF (ICPFLG .EQ. 0) GO TO 660\r\nC      IF (IROPEN .EQ. 1) GO TO 6405\r\nC      OPEN (UNIT=4, FILE=DSNAMES(4), STATUS='UNKNOWN')\r\nC      IROPEN = 1\r\n      WRITE (IRDICT,641) (TAPID(I),I=1,4),(IDATE(J),J=1,3),TIMEW\r\n  641 FORMAT (9HRESTART  ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/,I2,1H,,I8,1H,)\r\n      CALL SSWTCH (9,DIAG09)\r\n      IF (DIAG09 .EQ. 1) GO TO 660\r\n      CALL PAGE\r\n      WRITE  (OUTTAP,651) (TAPID(I),I=1,4),(IDATE(J),J=1,3),TIMEW\r\n  651 FORMAT ('0ECHO OF FIRST CARD IN CHECKPOINT DICTIONARY TO BE ',\r\n     1        'PUNCHED OUT FOR THIS PROBLEM', /\r\n     2 14H0   RESTART   ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/,I2,1H,,I8,1H,)\r\n  660 XNOGO = NOGO\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\nC     USER  FATAL MESSAGES\r\nC\r\n  670 NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      IF (NOGO   .LT.    1) NOGO = 1\r\n      IGNORE = 1\r\n      GO TO IRTN2, ( 700, 730, 770, 800, 830, 860,      920, 950,\r\n     1              1070,1100,1130,1160,1190,1220,1234)\r\nC\r\n  690 ASSIGN 700 TO IRTN2\r\n      MSGNUM = 505\r\n      GO TO 670\r\n  700 WRITE  (OUTTAP,710) UFM,MSGNUM,OUTCRD(2),OUTCRD(3)\r\n  710 FORMAT (A23,I5,', CONTROL CARD ',2A4,11H IS ILLEGAL)\r\n      GO TO 20\r\nC\r\n  720 ASSIGN 730 TO IRTN2\r\n      MSGNUM = 506\r\n      GO TO 670\r\n  730 WRITE  (OUTTAP,740) UFM,MSGNUM,OUTCRD(2),OUTCRD(3)\r\n  740 FORMAT (A23,I5,', CONTROL CARD ',2A4,11H DUPLICATED)\r\n      GO TO 20\r\nC\r\n  750 CONTINUE\r\n      ERRALT = 1\r\n  760 ASSIGN 770 TO IRTN2\r\n      MSGNUM = 507\r\n      GO TO 670\r\n  770 WRITE  (OUTTAP,780) UFM,MSGNUM,IMHERE\r\n  780 FORMAT (A23,I5,', ILLEGAL SPECIFICATION OR FORMAT ON PRECEDING ',\r\n     1       'CARD.', /5X,'IMHERE =',I5)\r\n      IF (OUTCRD(2).EQ.ECTT(34) .AND. OUTCRD(3).EQ.ECTT(35)) GO TO 531\r\n      GO TO 20\r\nC\r\n  790 ASSIGN 800 TO IRTN2\r\n      MSGNUM = 508\r\n      GO TO 670\r\n  800 WRITE  (OUTTAP,810) UFM,MSGNUM\r\n  810 FORMAT (A23,I5,', PROBLEM TAPE MUST BE ON PHYSICAL TAPE FOR ',\r\n     1      'CHECK POINTING')\r\n      IGNORE = 0\r\n      ICPFLG = 0\r\n      GO TO 20\r\nC\r\n  820 ASSIGN 830 TO IRTN2\r\n      MSGNUM = 509\r\n      GO TO 670\r\n  830 WRITE  (OUTTAP,840) UFM,MSGNUM,(OTAPID(I),I=1,4),IMNTH,IDAY,\r\n     1                    IYEAR,TIMEX,OTAPID(6)\r\n  840 FORMAT (A23,I5,', WRONG OLD TAPE MOUNTED.', /30X,\r\n     1        23H OLD PROBLEM TAPE ID = ,2A4,1H,,2A4,1H,,I2,1H/,I2,1H/,\r\n     2        I2,1H,,2X,I8,1H,,5X,10HREEL NO. =,I4)\r\n      GO TO 1410\r\nC\r\n  850 ASSIGN 860 TO IRTN2\r\n      MSGNUM = 512\r\n      GO TO 670\r\n  860 WRITE  (OUTTAP,870) UFM,MSGNUM\r\n  870 FORMAT (A23,I5,', OLD PROBLEM TAPE IS MISSING AND IS NEEDED FOR ',\r\n     1       'RESTART')\r\n      NOGO = 3\r\n      GO TO 20\r\nC\r\nC\r\n  910 ASSIGN 920 TO IRTN2\r\n      MSGNUM = 514\r\n      GO TO 670\r\n  920 WRITE  (OUTTAP,930) UFM,MSGNUM\r\n  930 FORMAT (A23,I5,', ENDALTER CARD IS MISSING')\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 570\r\nC\r\n  940 ASSIGN 950 TO IRTN2\r\n      MSGNUM = 515\r\n      GO TO 670\r\n  950 WRITE  (OUTTAP,960) UFM,MSGNUM\r\n  960 FORMAT (A23,I5,', END INSTRUCTION MISSING IN DMAP SEQUENCE')\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 570\r\nC\r\nC 970 ASSIGN 980 TO IRTN2\r\nC     MSGNUM = 516\r\nC     GO TO 670\r\nC 980 WRITE  (OUTTAP,990) UFM,MSGNUM\r\nC 990 FORMAT (A23,I5,', UMF TAPE MUST BE MOUNTED ON PHYSICAL TAPE ',\r\nC    1       'DRIVE')\r\nC     NOGO = 3\r\nC     GO TO 20\r\nC\r\nC1000 ASSIGN 1010 TO IRTN2\r\nC     MSGNUM = 517\r\nC     GO TO 670\r\nC1010 WRITE  (OUTTAP,1020) UFM,MSGNUM,UMFID\r\nC1020 FORMAT (A23,I5,', WRONG UMF TAPE MOUNTED - TAPE ID =',I10)\r\nC     NOGO = 3\r\nC     GO TO 20\r\nC\r\nC1030 ASSIGN 1040 TO IRTN2\r\nC     MSGNUM = 518\r\nC     GO TO 670\r\nC1040 WRITE  (OUTTAP,1050) UFM,MSGNUM\r\nC1050 FORMAT (A23,I5,', CANNOT USE UMF TAPE FOR RESTART')\r\nC     NOGO = 3\r\nC     GO TO 1380\r\nC\r\n 1060 ASSIGN 1070 TO IRTN2\r\n      MSGNUM = 519\r\n      GO TO 670\r\n 1070 WRITE  (OUTTAP,1080) UFM,MSGNUM\r\n 1080 FORMAT (A23,I5,', ID CARD MUST PRECEDE ALL OTHER CONTROL CARDS')\r\n      NOGO = 3\r\n      GO TO 20\r\nC\r\n 1090 ASSIGN 1100 TO IRTN2\r\n      MSGNUM = 520\r\n      GO TO 670\r\n 1100 WRITE  (OUTTAP,1110) UFM,MSGNUM,ECTT(I),ECTT(I+1)\r\n 1110 FORMAT (A23,I5,', CONTROL CARD ',2A4,' IS MISSING')\r\n      ECTT(I+2) = ORF(ECTT(I+2),MASK5)\r\n      IF (ECTT(I) .NE. ECTT(4)) GO TO 570\r\nC\r\nC     MISSING CARD IS APP\r\nC\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 570\r\nC\r\n 1120 ASSIGN 1130 TO IRTN2\r\n      MSGNUM = 521\r\n      GO TO 670\r\n 1130 WRITE  (OUTTAP,1140) UFM,MSGNUM\r\n 1140 FORMAT (A23,I5,', SPECIFY A SOLUTION OR A DMAP SEQUENCE BUT NOT ',\r\n     1      'BOTH')\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 1380\r\nC\r\n 1150 ASSIGN 1160 TO IRTN2\r\n      MSGNUM = 522\r\n      GO TO 670\r\n 1160 WRITE  (OUTTAP,1170) UFM,MSGNUM\r\n 1170 FORMAT (A23,I5,', NEITHER A SOL CARD NOR A DMAP SEQUENCE WAS ',\r\n     1       'INCLUDED')\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 1380\r\nC\r\n 1180 ASSIGN 1190 TO IRTN2\r\n      NOTALT = 0\r\n      MSGNUM = 523\r\n      GO TO 670\r\n 1190 WRITE  (OUTTAP,1200) UFM,MSGNUM\r\n 1200 FORMAT (A23,I5,', ENDALTER CARD OUT OF ORDER')\r\n      GO TO 20\r\nC\r\n 1210 ASSIGN 1220 TO IRTN2\r\n      MSGNUM = 526\r\n      GO TO 670\r\n 1220 WRITE  (OUTTAP,1230) UFM,MSGNUM\r\n 1230 FORMAT (A23,I5,', CHECKPOINT DICTIONARY OUT OF SEQUENCE - ',\r\n     1       'REMAINING RESTART CARDS IGNORED')\r\n      GO TO 20\r\n 1232 ASSIGN 1234 TO IRTN2\r\n      MSGNUM = 529\r\n      GO TO 670\r\n 1234 WRITE  (OUTTAP,1236) UFM,MSGNUM\r\n 1236 FORMAT (A23,I5,', MISSING CEND CARD.')\r\n      NOGO = 3\r\n      GO TO 1380\r\nC\r\nC     SYSTEM FATAL MESSAGES\r\nC\r\n 1240 NLINES = NLINES +2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      IF (NOGO   .LT.    2) NOGO = 2\r\n      IGNORE = 1\r\n      GO TO IRTN3, (1255,1270,1300,1330,1360)\r\nC\r\n 1250 ASSIGN 1255 TO IRTN3\r\n      MSGNUM = 530\r\n      GO TO 1240\r\n 1255 WRITE  (OUTTAP,1256) SFM,MSGNUM\r\n 1256 FORMAT (A25,I5,2H, , /5X,'INP9 FILE WAS NOT ASSIGNED FOR ',\r\n     1       'NASTRAN INTERACTIVE POST-PROCESSOR',/)\r\n      GO TO 20\r\n 1260 ASSIGN 1270 TO IRTN3\r\n      MSGNUM = 510\r\n      GO TO 1240\r\n 1270 WRITE  (OUTTAP,1280) SFM,MSGNUM\r\n 1280 FORMAT (A25,I5,', CHECKPOINT DICTIONARY EXCEEDS CORE SIZE - ',\r\n     1       'REMAINING RESTART CARDS IGNORED')\r\n      GO TO 20\r\nC\r\n 1290 ASSIGN 1300 TO IRTN3\r\n      MSGNUM = 511\r\n      GO TO 1240\r\n 1300 WRITE  (OUTTAP,1310) SFM,MSGNUM\r\n 1310 FORMAT (A25,I5,', DMAP SEQUENCE EXCEEDS CORE SIZE - ',\r\n     1       'REMAINING DMAP INSTRUCTIONS IGNORED')\r\n      IF (NOGO .LT. 2) NOGO = 2\r\n      GO TO 20\r\nC\r\n 1320 ASSIGN 1330 TO IRTN3\r\n      MSGNUM = 524\r\n      GO TO 1240\r\n 1330 WRITE  (OUTTAP,1340) SFM,MSGNUM,NGINO,IMHERE\r\n 1340 FORMAT (A25,I5,', ALTERNATE RETURN TAKEN WHEN OPENING FILE ',A4,\r\n     1        3X,1H-,I3)\r\n      NOGO = 3\r\n      GO TO 1410\r\nC\r\n 1350 ASSIGN 1360 TO IRTN3\r\n      MSGNUM = 525\r\n      GO TO 1240\r\n 1360 WRITE  (OUTTAP,1370) SFM,MSGNUM,NGINO\r\n 1370 FORMAT (A25,I5,', ILLEGAL FORMAT ENCOUNTERED WHILE READING FILE ',\r\n     1        A4)\r\n      NOGO = 3\r\n      GO TO 1410\r\nC\r\n 1380 GO TO (600,1400,1390), NOGO\r\nC\r\nC     NOGO = 3 - TERMINATE JOB HERE\r\nC\r\n 1390 ICPFLG = 0\r\n      CALL MESAGE (-61,0,0)\r\nC\r\nC     NOGO = 2 - PUT IN DUMMY CONTROL FILE ON PROBLEM TAPE\r\nC\r\n 1400 NGINO = PTAPE\r\n      CALL CLOSE (PTAPE,1)\r\n      CALL OPEN  (*1320,PTAPE,GBUFF(DMAPBS+1),0)\r\n      CALL SKPFIL(PTAPE,1)\r\n      CALL CLOSE (PTAPE,2)\r\n      CALL OPEN  (*1320,PTAPE,GBUFF(DMAPBS+1),3)\r\n      CALL WRITE (PTAPE,NXCSA,2,1)\r\n      SOLU(1) = 0\r\n      SOLU(2) = 0\r\n      APPRCH  = APPDMP\r\n      IF (RSTRT .NE. ICOLD) APPRCH = -APPRCH\r\n      CALL WRITE (PTAPE,SOLREC,6,1)\r\n      CALL EOF   (PTAPE)\r\n      CALL CLOSE (PTAPE,3)\r\n      GO TO 640\r\nC\r\nC\r\nC     XCSA HAS BEEN DISASTERED - GET DUMP AND QUIT.\r\nC\r\n 1410 ICPFLG = 0\r\n 1420 CALL MESAGE (-37,0,NXCSA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xdcode.f",
    "content": "      SUBROUTINE XDCODE\r\nC\r\nC     (MACHINE INDEPENDENT FORTRAN 77 ROUTINE)\r\nC\r\nC     XDCODE DECODES A 20A4 ARRAY IN RECORD INTO A 80A1 ARRAY IN ICHAR\r\nC\r\nC     XDCODE IS CALLED ONLY BY XRGDCF, XRGDTB, XRGSST, AND XRGSUB\r\nC\r\n      CHARACTER*80    TEMP\r\n      CHARACTER*8     TEMP8\r\n      COMMON /SYSTEM/ IBUF,    NOUT,  DM37(37),NBPW\r\n      COMMON /XRGDXX/ SKIP1(3),ICOL,  SKIP2(8),RECORD(20),ICHAR(80),\r\n     1                SKIP3(2),ICOUNT,SKIP4(2),NAME(2)\r\n      DATA    IBLANK/ 4H      /\r\nC\r\n      WRITE (TEMP,10) RECORD\r\n      READ  (TEMP,20) ICHAR\r\n 10   FORMAT (20A4)\r\n 20   FORMAT (80A1)\r\n      RETURN\r\nC\r\n      ENTRY XECODE\r\nC     ============\r\nC\r\nC     XECODE ENCODES A 8A1 BCD ARRAY IN ICHAR INTO A 2A4 BCD ARRAY\r\nC     IN NAME\r\nC     (THIS ENTRY REPLACES THE OLD MACHINE DEPENDENT ROUTINE OF THE\r\nC     SAME NAME)\r\nC\r\nC     THE INCOMING WORD IN CDC MACHINE WOULD BE ZERO FILLED, SUCH AS\r\nC     THE CARD TABLE AND THE MED TABLE IN XGPI RESTART PROCESSING.\r\nC     MAKE SURE THAT THE INCOMING WORD FROM A 60- OR 64- BIT MACHINE\r\nC     IS BLANK FILLED IF IT IS LESS THAN 8 BYTE LONG\r\nC\r\nC     XECODE IS CALL ONLY BY XRGDTB\r\nC\r\n      IF (NBPW.LT.60 .OR. ICOUNT.EQ.8) GO TO 25\r\n      DO 22 K = ICOUNT,7\r\n 22   ICHAR(ICOL+K) = IBLANK\r\n 25   CALL NA12A8 (*50,ICHAR(ICOL),8,NAME,NOTUSE)\r\n      IF (NBPW .NE. 60) RETURN\r\nC\r\nC     BLANK OUT 2ND WORD (CDC ONLY)\r\nC\r\n      WRITE (TEMP8,30) NAME(1)\r\n      NAME(1) = IBLANK\r\n      NAME(2) = IBLANK\r\n      READ (TEMP8,40) NAME\r\n 30   FORMAT (A8)\r\n 40   FORMAT (2A4)\r\n      RETURN\r\nC\r\n 50   WRITE  (NOUT,60)\r\n 60   FORMAT ('0BAD DATA/XECODE')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xdph.f",
    "content": "      SUBROUTINE XDPH\r\nC\r\nC     DATA POOL HOUSEKEEPER (XDPH)\r\nC\r\nC     THIS SUBROUTINE SCANS THE DATA POOL DICT AND TO DETERMINE THE\r\nC     NUMBER AND SIZE OF ANY FILES NO LONGER NEEDED.  IF A SUFFICIENT\r\nC     QUANTITY IS NOT NEEDED, THE FILE IS RECOPIED WITH THE DEAD FILES\r\nC     DELETED.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF,ORF\r\n      DIMENSION       NDPD(1),NDPH(2),FEQU(1),FNTU(1),FON(1),FORD(1),\r\n     1                MINP(1),MLSN(1),MOUT(1),MSCR(1),SAL(1),SDBN(1),\r\n     2                SNTU(1),SORD(1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(36),NBPC,NBPW,NCPW\r\n      COMMON /XFIAT / FIAT(1),FMXLG,FCULG,FILE(1),FDBN(2),FMAT(1)\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XPFIST/ NPFIST\r\n      COMMON /XXFIAT/ EXFIAT\r\n      COMMON /XDPL  / DPD(1),DMXLG,DCULG,DDBN(2),DFNU(1)\r\n      COMMON /ZZZZZZ/ ENDSFA(1)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(1),FPUN(1),\r\n     1                FCUM(1),FCUS(1),FKND(1)\r\n      EQUIVALENCE     (DPD(1),DNAF),(FIAT(1),FUNLG),(FILE(1),FEQU(1)),\r\n     1                (FILE(1),FORD(1)),(ENDSFA(1),NDPD(1))\r\n      EQUIVALENCE     (MD(2),MLSN(1)),(MD(3),MINP(1)),(MD(4),MOUT(1)),\r\n     1                (MD(5),MSCR(1)),\r\n     2                (SOS(1),SLGN)  ,(SOS(2),SDBN(1)),(SOS(4),SAL(1)),\r\n     3                (SOS(4),SNTU(1)),(SOS(4),SORD(1)),\r\n     4                (COMM(1),ALMSK),(COMM(2),APNDMK),(COMM(3),CURSNO),\r\n     5                (COMM(4),ENTN1),(COMM(5),ENTN2 ),(COMM(6),ENTN3 ),\r\n     6                (COMM(7),ENTN4),(COMM(8),FLAG  ),(COMM(9),FNX   ),\r\n     7                (COMM(10),LMSK),(COMM(11),LXMSK),\r\n     8                (COMM(13),RMSK),(COMM(14),RXMSK),(COMM(15),S    ),\r\n     9                (COMM(16),SCORNT),(COMM(17),TAPMSK),\r\n     O                (COMM(18),THCRMK),(COMM(19),ZAP),\r\n     1                (XF1AT(1),FNTU(1)),(XF1AT(1),FON(1))\r\nC\r\n      DATA    NCONST/ 100    /\r\n      DATA    SCRN1 / 4HSCRA /, SCRN2 /4HTCH* /\r\n      DATA    POOL  , NPOL   /  4HPOOL,4HNPOL /,  NDPH / 4HXDPH,4H    /\r\nC\r\nC\r\n      FLAG = 0\r\n  100 LMT3 = DCULG*ENTN4\r\n      LMT  = (DCULG-1)*ENTN4 + 1\r\n      NCNT = 0\r\n      NGCNT= 0\r\n      TRIAL= DNAF - 1\r\nC\r\nC     COUNT DEAD FILE SIZE, PUT SIZE IN NCNT\r\nC\r\n      DO 160 I = 1,LMT3,ENTN4\r\n      IF (DDBN(I).NE.0 .OR. DDBN(I+1).NE.0) GO TO 159\r\n      IF (DFNU(I) .GE. 0) GO TO 130\r\nC\r\nC     DEAD FILE IS EQUIV\r\nC\r\n      FLAG = -1\r\n      KK = ANDF(RMSK,DFNU(I))\r\n      DO 110 J = 1,LMT3,ENTN4\r\n      IF (DFNU(J).GE.0 .OR. I.EQ.J) GO TO 110\r\n      IF (KK .NE. ANDF(RMSK,DFNU(J))) GO TO 110\r\n      IF (DDBN(J).NE.0 .OR. DDBN(J+1).NE.0) GO TO 145\r\n      DFNU(J) = 0\r\n  110 CONTINUE\r\n  130 IF (KK  .EQ. TRIAL) GO TO 140\r\n      IF (DFNU(I) .EQ. 0) GO TO 150\r\n      NCNT = NCNT + RSHIFT(ANDF(LMSK,DFNU(I)),16)\r\n      GO TO 150\r\n  140 DNAF = TRIAL\r\n  145 DFNU(I) = 0\r\n  150 IF (I .NE. LMT) GO TO 160\r\n      DCULG = DCULG - 1\r\n      FLAG  = -1\r\n      GO TO 100\r\nC\r\nC     COUNT GOOD STUFF ALSO\r\nC\r\n  159 NGCNT = NGCNT + RSHIFT(ANDF(LMSK,DFNU(I)),16)\r\n  160 CONTINUE\r\nC\r\nC     CHECK FOR BREAKING OF EQUIV\r\nC\r\n      IF (FLAG .EQ. 0) GO TO 200\r\n      DO 180 I = 1,LMT3,ENTN4\r\n      IF (DFNU(I) .GE. 0) GO TO 180\r\n      KK = ANDF(RMSK,DFNU(I))\r\n      DO 170 J = 1,LMT3,ENTN4\r\n      IF (DFNU(J).GE.0  .OR.  I.EQ.J) GO TO 170\r\n      IF (KK .EQ. ANDF(RMSK,DFNU(J))) GO TO 180\r\n  170 CONTINUE\r\n      DFNU(I) = ANDF(ALMSK,DFNU(I))\r\n  180 CONTINUE\r\nC\r\nC     IS NCNT OF SUFFICIENT SIZE TO WARRANT RECOPYING POOL\r\nC\r\n  200 CALL SSWTCH (3,IX)\r\n      IF (IX .NE. 1) GO TO 211\r\n      CALL PAGE1\r\n      WRITE  (OUTTAP,201) NCNT\r\n  201 FORMAT (21H0DPH DEAD FILE COUNT=,I6)\r\n      WRITE  (OUTTAP,202)(DPD(IX),IX=1,3)\r\n  202 FORMAT (16H0DPD BEFORE DPH ,3I4)\r\n      II = DCULG*3 + 3\r\n      DO 210 IX = 4,II,3\r\n      IPRT1 = RSHIFT(DPD(IX+2),NBPW-1)\r\n      IPRT2 = RSHIFT(ANDF(LXMSK,DPD(IX+2)),16)\r\n      IPRT3 = ANDF(RXMSK,DPD(IX+2))\r\n  203 FORMAT (1H ,2A4,3I6)\r\n  210 WRITE  (OUTTAP,203) DPD(IX),DPD(IX+1),IPRT1,IPRT2,IPRT3\r\nC\r\nC     RECOPY POOL IF THERE ARE MORE THAN 500,000 WORD DEAD AND\r\nC     THE GOOD STUFF IS TWICE AS BIG AS THE DEAD STUFF\r\nC\r\n  211 IF (NCNT.GT.NCONST .AND. NCNT.GT.2*NGCNT) GO TO 230\r\n      IF (NCNT.GT.0 .AND. DCULG+5.GE.DMXLG) GO TO 230\r\n      RETURN\r\nC\r\nC     RECOPY POOL, SWITCH POOL FILE POINTERS\r\nC\r\n  230 LMT2 = FUNLG*ENTN1\r\n      KK   = ANDF(THCRMK,SCRN2)\r\n      DO 250 I = 1,LMT2,ENTN1\r\n      IF (FDBN(I).EQ.0 .AND. FDBN(I+1).EQ.0) GO TO 270\r\n      IF (FDBN(I).EQ.SCRN1 .AND. ANDF(THCRMK,FDBN(I+1)).EQ.KK) GO TO 270\r\n  250 CONTINUE\r\nC\r\nC     NO FILE AVAILABLE TO COPY ONTO, FORGET IT\r\nC\r\n      RETURN\r\nC\r\nC     SET-UP FOR A RECOPY\r\nC\r\n  270 ISAV = I\r\n      CALL OPEN (*900,POOL,ENDSFA,0)\r\n      FNX = 1\r\n      FIST(2*NPFIST+4) = ISAV + 2\r\n      FIST(2) = NPFIST + 1\r\n      FIST(2*NPFIST+3) = NPOL\r\n      CALL OPEN (*900,NPOL,ENDSFA(IBUFSZ+1),1)\r\n      M = 2*IBUFSZ\r\n      I = M + 1\r\n      ISTART = I\r\n      M = M + DCULG*3 + 3\r\n      IWKBUF = KORSZ(ENDSFA) - M\r\n      IF (IWKBUF .LT. 100) CALL MESAGE (-8,0,NDPH)\r\n      M = M + 1\r\n      NFILE = 1\r\n      NCULG = 0\r\n      DO 400 J = 1,LMT3,ENTN4\r\n      IF (DDBN(J).EQ. 0 .AND. DDBN(J+1).EQ. 0) GO TO 400\r\n      IF (DDBN(J).EQ.63 .AND. DDBN(J+1).EQ.63) GO TO 400\r\nC\r\nC     RECOPY DICTIONARY\r\nC\r\n      NDPD(I  ) = DDBN(J  )\r\n      NDPD(I+1) = DDBN(J+1)\r\n      NDPD(I+2) = ORF(ANDF(LXMSK,DFNU(J)),NFILE)\r\n      IF (DFNU(J) .GE. 0) GO TO 290\r\n      NDPD(I+2) = ORF(S,NDPD(I+2))\r\n      KK = ANDF(RMSK,DFNU(J))\r\n      DO 280 K  = 1,LMT3,ENTN4\r\n      IF (DFNU(K).GE.0 .OR. J.EQ.K) GO TO 280\r\n      IF (KK .NE. ANDF(RMSK,DFNU(K))) GO TO 280\r\n      I = I + 3\r\n      NCULG   = NCULG + 1\r\n      NDPD(I) = DDBN(K)\r\n      DDBN(K) = 63\r\n      NDPD(I+1) = DDBN(K+1)\r\n      DDBN(K+1) = 63\r\n      NDPD(I+2) = NDPD(I-1)\r\n  280 CONTINUE\r\n  290 I = I + 3\r\n      NCULG = NCULG + 1\r\nC\r\nC     RECOPY NECESSARY FILE\r\nC\r\n      FN = ANDF(RMSK,DFNU(J))\r\n      CALL XFILPS (FN)\r\n      CALL CPYFIL (POOL,NPOL,ENDSFA(M),IWKBUF,FLAG)\r\n      CALL EOF (NPOL)\r\n      NFILE = NFILE + 1\r\n      FNX   = FN + 1\r\n  400 CONTINUE\r\nC\r\nC     COPY TEMPORARY DPD INTO ACTUAL DPD\r\nC\r\n      I  = I - 1\r\n      IX = 0\r\n      DO 420 J = ISTART,I\r\n      IX = IX + 1\r\n  420 DDBN(IX) = NDPD(J)\r\n      DNAF = NFILE\r\n      DCULG= NCULG\r\n      CALL CLOSE (POOL,1)\r\n      CALL CLOSE (NPOL,1)\r\n      FNX = 1\r\nC\r\nC     COPY POOL BACK TO POOL UNIT\r\nC\r\n      CALL OPEN (*900,NPOL,ENDSFA,0)\r\n      CALL OPEN (*900,POOL,ENDSFA(IBUFSZ+1),1)\r\n      NFILE = NFILE - 1\r\n      DO 430 IX = 1,NFILE\r\n      CALL CPYFIL (NPOL,POOL,ENDSFA(M),IWKBUF,FLAG)\r\n      CALL EOF (POOL)\r\n  430 CONTINUE\r\n      CALL CLOSE (POOL,1)\r\n      CALL CLOSE (NPOL,1)\r\nC\r\nC     THE FOLLOWING 3 LINES OF CODE WILL FREE DISK AREA ON SOME CONFIG.\r\nC\r\n      CALL OPEN  (*900,NPOL,ENDSFA,1)\r\n      CALL WRITE (NPOL,NDPH,2,1)\r\n      CALL CLOSE (NPOL,1)\r\n      CALL SSWTCH (3,IX)\r\n      IF (IX .NE. 1) RETURN\r\nC\r\n      WRITE  (OUTTAP,500) (DPD(IX),IX=1,3)\r\n  500 FORMAT (15H0DPD AFTER DPH ,3I4)\r\n      II = DCULG*3 + 3\r\n      DO 510 IX = 4,II,3\r\n      IPRT1 = RSHIFT(DPD(IX+2),NBPW-1)\r\n      IPRT2 = RSHIFT(ANDF(LXMSK,DPD(IX+2)),16)\r\n      IPRT3 = ANDF(RXMSK,DPD(IX+2))\r\n  510 WRITE (OUTTAP,203) DPD(IX),DPD(IX+1),IPRT1,IPRT2,IPRT3\r\n      RETURN\r\nC\r\n  900 WRITE  (OUTTAP,901) SFM\r\n  901 FORMAT (A25,' 1041, OLD/NEW POOL COULD NOT BE OPENED.')\r\n      CALL MESAGE (-37,0,NDPH)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xfadj1.f",
    "content": "      SUBROUTINE XFADJ1 (BF,SHIFT,SD)\r\nC\r\nC     XFADJ1 ADJUSTS 4 CHARACTER FIELDS, LEFT OR RIGHT, 2 OR 4 FIELDS\r\nC     AT A TIME\r\nC\r\nC     BF    = ADDR OF LEFT MOST FIELD\r\nC     SHIFT = LSHIFT OR RSHIFT\r\nC     SD   = 0 SINGLE (2 FIELDS), 1 DOUBLE (4 FIELDS)\r\nC     RIGHT SHIFTING CAUSES INSERTION OF LEADING ZEROS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,SHIFT\r\n      LOGICAL         DEC\r\n      DIMENSION       BF(1),BK(6),MK(6),SFT(3)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2),\r\n     1                BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4),ICON1,ICON2,\r\n     2                STAR,PLUS,DOLLAR,STARL,SLASH,SFTM,MASK,BLANK,MKA,\r\n     3                IS,MBIT4\r\n      EQUIVALENCE     (BK(1) ,BKMSK1(2)),(MK(1),BIMSK1(1)),\r\n     1                (SFT(1),SHIFTS(2)),(BLKS, BKMSK1(8)),\r\n     2                (BKX   ,BKMSK1(1))\r\nC\r\nC     DATA     BK   / 4H0000,4H0000,4H0000,4H000 ,4H00  ,4H0   /\r\nC     DATA     (MK(I),I=1,6) /O777777000000,O777700000000,O770000000000,\r\nC    1                        O000000770000,O000077770000,O007777770000/\r\nC     DATA     (SFT(I),I=1,3)/6,12,18/\r\nC     DATA     BLKS / 4H    /,    BKX/4H0000/\r\nC\r\nC\r\nC     INITIALIZE ROUTINES\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IF (SHIFT(MK(3),SFT(1)) .NE. 0) GO TO 10\r\nC\r\nC     LEFT SHIFT REQUESTED\r\nC\r\n      BLK= BLKS\r\n      I1 = 1\r\n      I2 = 2\r\n      I3 = 3\r\n      I4 = 4\r\n      J  = 3\r\n      GO TO 30\r\nC\r\nC     RIGHT SHIFT REQUESTED\r\nC\r\n   10 BLK= BKX\r\n      J  = 4\r\n      IF (SD .EQ. 0) GO TO 20\r\nC\r\nC     DOUBLE FIELD\r\nC\r\n      I1 = 4\r\n      I2 = 3\r\n      I3 = 2\r\n      I4 = 1\r\n      GO TO 30\r\nC\r\nC     SINGLE FIELD\r\nC\r\n   20 I1 = 2\r\n      I2 = 1\r\nC\r\nC     TOTAL FIELD SHIFTS\r\nC\r\n   30 N = 0\r\n   40 IF (J.EQ.4 .AND. BF(I1).NE.BLKS) GO TO 60\r\n      IF (J.EQ.3 .AND. BF(I1).NE.BLKS .AND. BF(I1).NE.BKX) GO TO 60\r\n      BF(I1) = BF(I2)\r\n      BF(I2) = BLK\r\n      IF (SD .EQ. 0) GO TO 50\r\n      N = N + 1\r\n      BF(I2) = BF(I3)\r\n      BF(I3) = BF(I4)\r\n      BF(I4) = BLK\r\n      IF (N .NE. 3) GO TO 40\r\n   50 IF (BF(I1) .EQ. BLKS) RETURN\r\nC\r\nC     CHARACTER SHIFTS BETWEEN FIELDS\r\nC\r\n   60 N = 0\r\n      IF (J .EQ. 3) GO TO 150\r\nC\r\nC     RIGHT\r\nC\r\n      II = I1\r\n   70 IF (BF(II) .NE. BLKS) GO TO 80\r\n      BF(II) = BKX\r\n      GO TO 110\r\n   80 IF (BF(II) .EQ. BKX) GO TO 110\r\n   90 IF (.NOT.DEC) IHLD = RSHIFT(ANDF(MK(3),BF(II)),1)\r\n      IF (     DEC) IHLD = KHRFN4(RSHIFT(KHRFN4(KHRFN1(BKMSK2,1,\r\n     1                     BF(II),1)),1))\r\n      IF (IHLD .NE. ICON1) GO TO 100\r\n      N = N + 1\r\n      IF (.NOT.DEC) BF(II) = LSHIFT(BF(II),SFT(1))\r\n      IF (     DEC) BF(II) = KHRFN3( BKMSK2,BF(II),1,1)\r\n      IF (N .LT. 3) GO TO 90\r\n      GO TO 120\r\n  100 IF (N .NE. 0) GO TO 120\r\n  110 II = II - 1\r\n      IF (II .EQ. 0) GO TO 130\r\n      GO TO 70\r\n  120 N2 = 4 - N\r\n      IF (.NOT.DEC) BF(II) = ORF(RSHIFT(BF(II),SFT(N)),BK(N2))\r\n      IF (     DEC) BF(II) = KHRFN3( BK(N2),BF(II),N,0)\r\n      N = 0\r\n      GO TO 110\r\n  130 N = 0\r\nC\r\nC     RIGHT\r\nC\r\n  140 IF (DEC) GO TO 141\r\n      IF (ANDF(MK(4),BF(I1)) .NE. ANDF(MK(4),BLKS)) GO TO 170\r\n      GO TO 160\r\n  141 IF (KHRFN1(MK(4),4,BF(I1),4) .NE. KHRFN1(MK(4),4,BLKS,4))\r\n     1   GO TO 170\r\n      GO TO 160\r\nC\r\nC     LEFT\r\nC\r\n  150 IF (.NOT.DEC) IHLD = RSHIFT(ANDF(MK(3),BF(I1)),1)\r\n      IF (     DEC) IHLD = KHRFN4(RSHIFT(KHRFN4(KHRFN1(BKMSK2,1,BF(I1),\r\n     1                     1)),1))\r\n      IF (IHLD.NE.ICON1 .AND. IHLD.NE.ICON2) GO TO 170\r\n  160 N = N + 1\r\n      IF (.NOT.DEC) BF(I1) = SHIFT(BF(I1),SFT(1))\r\n      IF (     DEC) BF(I1) = KHRFN3( BKMSK2,BF(I1),1,4-J)\r\n      IF (N .GE. 3) GO TO 180\r\n      IF (J .EQ. 3) GO TO 150\r\n      GO TO 140\r\n  170 IF (N .EQ. 0) RETURN\r\n  180 IF (J .EQ. 4) GO TO 190\r\nC\r\nC     LEFT SHIFTS\r\nC\r\n      N1 = N\r\n      N2 = N + 3\r\n      GO TO 200\r\nC\r\nC     RIGHT SHIFTS\r\nC\r\n  190 N1 = 7 - N\r\n      N2 = 4 - N\r\n  200 N3 = 4 - N\r\n      IF (.NOT.DEC) BF(I1) = ORF(ANDF(MK(N1),BF(I1)),ANDF(MK(N2),\r\n     1                       ISFT(BF(I2),SFT(N3),J)))\r\n      IF (     DEC) BF(I1) = KHRFN3(BF(I1),BF(I2),N3,J-3)\r\n      BF (I1) = ORF(BF(I1),BKMSK2)\r\n      IF (.NOT.DEC) BF(I2) = ORF(ANDF(MK(N1),SHIFT(BF(I2),SFT(N))),\r\n     1                       BK(N2))\r\n      IF (     DEC) BF(I2) = KHRFN3( BK(N2),BF(I2),N,4-J)\r\n      IF (SD .EQ. 0) RETURN\r\nC\r\n      IF (.NOT.DEC) BF(I2) = ORF(ANDF(MK(N1),BF(I2)),ANDF(MK(N2),\r\n     1                       ISFT(BF(I3),SFT(N3),J)))\r\n      IF (     DEC) BF(I2) = KHRFN3( BF(I2),BF(I3),N3,J-3 )\r\n      BF(I2) = ORF(BF(I2),BKMSK2)\r\n      IF (BF(I2) .EQ. BLK) RETURN\r\nC\r\n      IF (.NOT.DEC) BF(I3) = ORF(ANDF(MK(N1),SHIFT(BF(I3),SFT(N))),\r\n     1                       BK(N2))\r\n      IF (     DEC) BF(I3) = KHRFN3(BK(N2),BF(I3),N,4-J)\r\n      IF (.NOT.DEC) BF(I3) = ORF(ANDF(MK(N1),BF(I3)),ANDF(MK(N2),\r\n     1                       ISFT(BF(I4),SFT(N3),J)))\r\n      IF (     DEC) BF(I3) = KHRFN3(BF(I3),BF(I4),N3,J-3)\r\n      BF(I3) = ORF(BF(I3),BKMSK2)\r\n      IF (BF(I3) .EQ. BLK) RETURN\r\nC\r\n      IF (.NOT.DEC) BF(I4) = ORF(ANDF(MK(N1),SHIFT(BF(I4),SFT(N))),\r\n     1                       BK(N2))\r\n      IF (     DEC) BF(I4) = KHRFN3(BK(N2),BF(I4),N,4-J)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xfldef.f",
    "content": "      SUBROUTINE XFLDEF (NAME1,NAME2,NOFIND)\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO TURN ON ALL OSCAR ENTRY EXECUTE\r\nC     FLAGS NECESSARY TO DEFINE FILE .\r\nC\r\nC                 DESCRIPTION OF ARGUMENTS\r\nC     NAM1,NAM2 = NAME OF FILE TO BE DEFINED.\r\nC     NOFIND    = INDICATES TO CALLING PROGRAM WHETHER OR NOT FILE WAS\r\nC                 FOUND.\r\nC\r\n      EXTERNAL        ANDF,ORF,COMPLF\r\n      INTEGER         NAME1(1),NAME2(1),SOL,OSCAR(1),OS(5),OSPNT,OSBOT,\r\n     1                FMED(1),FMEDTP,FNM(1),FNMTP,FMDMSK,TWO,OP,PTDTP,\r\n     2                PTDBOT,PTDIC(1),AND,OR,ANDF,ORF,COMPLF,START,\r\n     3                REUSE,REGEN\r\n      COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,FMDMSK(7)\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,XGPID1(5),\r\n     1                NOFLGS\r\n      COMMON /SYSTEM/ BS,OP,NOGO,DUM(78),ICPFLG\r\n      COMMON /XOLDPT/ PTDTP,PTDBOT,LPTDIC,NRLFL,SEQNO\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\nC                  ** CONTROL CARD NAMES **\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\nC                  ** DMAP CARD NAMES **\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,\r\n     3                NOUTPT,NCHKPT,NPURGE,NEQUIV,\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR, NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XGPI5 / IAPP,START,IEXIT(2),SOL,SUBSET,IFLAG,IESTIM,\r\n     1                ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED\r\n      COMMON /TWO   / TWO(4)\r\n      EQUIVALENCE     (CORE(1),OS(1),LOSCAR),(OSPRC,OS(2)),\r\n     1                (OSBOT,OS(3)),(IOSPNT,OS(4)),\r\n     2                (OS(5),OSCAR(1),FNM(1),FMED(1),PTDIC(1)),\r\n     3                (MEDTP,FMEDTP),(TWO(4),REUSE)\r\n      DATA    NXCHKP/ 4HXCHK/, IFIRST / 0 /\r\nC\r\n      AND(I,J) = ANDF(I,J)\r\n      OR(I,J)  = ORF(I,J)\r\nC\r\n      NAM1 = NAME1(1)\r\n      NAM2 = NAME2(1)\r\nC\r\nC     SCAN OPTDIC FOR FILE NAME\r\nC\r\n      REGEN  = NOFIND\r\n      NOFIND = 1\r\n      IF(PTDBOT .LT. PTDTP)  GO TO 200\r\n      DO 100 II = PTDTP,PTDBOT,3\r\n      I = PTDBOT + PTDTP - II\r\n      IF (PTDIC(I).EQ.NAM1 .AND. PTDIC(I+1).EQ.NAM2) GO TO 110\r\n  100 CONTINUE\r\n      GO TO 200\r\nC\r\nC     FILE IS IN PTDIC - SET REUSE FLAG FOR ALL EQUIVALENCED FILES\r\nC\r\n  110 IF (PTDIC(I+2) .GE. 0) GO TO 130\r\n      DO 120 J = PTDTP,PTDBOT,3\r\n      IF (AND(PTDIC(J+2),NOFLGS) .EQ. AND(PTDIC(I+2),NOFLGS))\r\n     1    PTDIC(J+2) = OR(PTDIC(J+2),REUSE)\r\n  120 CONTINUE\r\n  130 PTDIC(I+2) = OR(PTDIC(I+2),REUSE)\r\n      NOFIND = 0\r\n      GO TO 1000\r\nC\r\nC     FILE NOT IN PTDIC - CHECK FNM TABLE IF RESTART IS MODIFIED AND\r\nC     APPROACH IS NOT DMAP\r\nC\r\n  200 IF (START.EQ.ICST .OR. IAPP.EQ.IDMAPP) GO TO 1000\r\n      IF (REGEN .LT. 0)  GO TO 1000\r\n      J = FNMTP + 1\r\n      K = FNMTP + FNM(FNMTP)*3 - 2\r\n      DO 210 I = J,K,3\r\n      IF (NAM1.EQ.FNM(I) .AND. NAM2.EQ.FNM(I+1)) GO TO 220\r\n  210 CONTINUE\r\n      GO TO 1000\r\nC\r\nC     FILE IS IN FNM TABLE - CHECK FOR TABLE ERROR\r\nC\r\n  220 IF (FNM(I+2) .LE. 0)  GO TO 900\r\nC\r\nC     CLEAR ALL THE MASK WORDS\r\nC\r\n      K = FMED(FMEDTP+1)\r\n      DO 230 L = 1, K\r\n      FMDMSK(L) = 0\r\n  230 CONTINUE\r\nC\r\nC     SET BIT IN FMDMSK FOR FILE REGENERATION\r\nC\r\n      L = ((FNM(I+2)-1)/31) + 1\r\n      K = FNM(I+2) - 31*(L-1) + 1\r\n      FMDMSK(L) = OR(FMDMSK(L),TWO(K))\r\nC\r\nC     USE FMDMSK AND FMED TABLE TO TURN ON OSCAR EXECUTE FLAGS\r\nC\r\n      K  = FMED(FMEDTP+1)\r\n      J1 = FMEDTP + 2\r\n      J2 = J1 + FMED(FMEDTP)*FMED(FMEDTP+1) - K\r\n      INDEX = 0\r\n      OSPNT = 1\r\n      DO 350 J = J1,J2,K\r\n      DO 310 K1 = 1,K\r\n      JJ = J + K1 - 1\r\n      IF (AND(FMED(JJ),FMDMSK(K1)) .NE. 0)  GO TO 330\r\n  310 CONTINUE\r\n      GO TO 350\r\nC\r\nC     NON-ZERO ENTRY FOUND - COMPUTE DMAP SEQUENCE NUMBER FOR FMED ENTRY\r\nC\r\n  330 N = ((J-J1)/K) + 1\r\n      IF (AND(OSCAR(IOSPNT+5),NOSGN) .LT. N) GO TO 1000\r\nC\r\nC     SET EXECUTINON FLAG FOR ALL OSCAR ENTRIES WITH SAME DMAP SEQ\r\nC     NUMBER\r\nC\r\n  335 IF (AND(OSCAR(OSPNT+5),NOSGN) - N) 345,340,350\r\n  340 IF (OSCAR(OSPNT+5).LT.0 .OR. (OSCAR(OSPNT+3).EQ.NXCHKP .AND.\r\n     1    ICPFLG.EQ.0)) GO TO 345\r\n      IF (IFIRST .EQ. 1) GO TO 342\r\n      IFIRST = 1\r\n      CALL PAGE1\r\n      CALL XGPIMW (12,0,0,0)\r\n  342 IF (INDEX .EQ. 1) GO TO 344\r\n      INDEX = 1\r\n      CALL XGPIMW (3,NAM1,NAM2,0)\r\n  344 CALL XGPIMW (4,0,0,OSCAR(OSPNT))\r\n      NOFIND = -1\r\n      OSCAR(OSPNT+5) = ORF(OSCAR(OSPNT+5),ISGNON)\r\n  345 IF (OSPNT .GE. OSBOT) GO TO 350\r\n      OSPNT = OSPNT + OSCAR(OSPNT)\r\n      GO TO 335\r\n  350 CONTINUE\r\nC\r\nC     MAKE SURE SOME MODULES WERE TURNED ON\r\nC\r\n      IF (NOFIND .NE. -1)  GO TO 900\r\nC\r\nC     NEGATE FNM TABLE ENTRY FOR THIS FILE\r\nC\r\n      FNM(I+2) = -FNM(I+2)\r\nC\r\nC     TURN OFF REUSE FLAGS IN PTDIC\r\nC\r\n      IF (PTDBOT.LE.PTDTP .OR. IFLAG.NE.0) GO TO 1000\r\n      J = COMPLF(REUSE)\r\n      DO 360 I = PTDTP,PTDBOT,3\r\n      PTDIC(I+2) = ANDF(J,PTDIC(I+2))\r\n  360 CONTINUE\r\n      GO TO 1000\r\nC\r\nC     D I A G N O S T I C    M E S S A G E S\r\nC\r\nC     MED OR FILE TABLE INCORRECT FOR REGENERATING FILE\r\nC\r\n  900 CALL XGPIDG (41,NAM1,NAM2,FNM(I+2))\r\n      NOFIND =-1\r\n      NOGO   = 2\r\n 1000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xflord.f",
    "content": "      SUBROUTINE XFLORD\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO COMPUTE THE LTU (LAST TIME USED)\r\nC     VALUE AND THE NTU (NEXT TIME USED) VALUE FOR THE INPUT AND OUTPUT\r\nC     FILE SECTIONS OF THE OSCAR ENTRIES.\r\nC\r\nC          ... DESCRIPTION OF PROGRAM VARIABLES ...\r\nC     LPTOP  = POINTER/SEQUENCE NUMBER OF FIRST ENTRY IN A DMAP LOOP.\r\nC     LPBOT  = LAST ENTRY IN A LOOP.\r\nC     IOPNT  = POINTER TO FILE NAME IN I/O SECTION OF OSCAR ENTRY.\r\nC     LPORD  = POINTER TO IORDNL TABLE ENTRY CORRESPONDING TO LPTOP.\r\nC     IORDNO = FILE ORDINAL NUMBER\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      DIMENSION       PTDIC(1),XNAM(12),ITMP(1),IORDNL(1800),ICPDPL(1),\r\n     1                OSCAR(2),OS(5)\r\n      COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO,DUM1(20),ICFIAT,DUM2(57),ICPFLG\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XDPL  / DPL(3)\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,\r\n     1                IESTIM,ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /XGPI6 / MEDTP,DUM5(5),DIAG14\r\n      COMMON /XGPI7 / FPNT,LFILE,FILE(1)\r\n      COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL\r\n      COMMON /XFIAT / IFIAT(3)\r\n      COMMON /XFIST / IFIST(1)\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,\r\n     1                ISAVE,ITAPE,IAPPND,INTGR,LOSGN,NOFLGS\r\n      COMMON /XOLDPT/ PTDTOP,PTDBOT,LPTDIC,NRLFL,SEQNO\r\n      COMMON /TWO   / TWO(4)\r\n      EQUIVALENCE     (CORE(1),LOSCAR  , OS(1)),\r\n     1                (OSPRC  ,OS(2)  ), (OSBOT   ,OS(3)),\r\n     2                (OSPNT  ,OS(4)  ), (OSCAR(1),OS(5),PTDIC(1)),\r\n     3                (DMAP(1),ITMP(1)), (OSCAR(1),ICPDPL(1)),\r\n     4                (LMPL   ,LORDNL ), (MPLPNT,IORBOT),\r\n     5                (DPL(1) ,NDPFIL ), (DPL(2),MAXDPL),\r\n     6                (DPL(3) ,LSTDPL ), (TWO(4),REUSE )\r\n      DATA    NORDN1/ 4HIORD/,  NORDN2/ 4HNL  /,\r\n     1        NXVPS / 4HXVPS/,  NCPDP1/ 4HICPD/, NCPDP2/4HPL  /,\r\n     2        XNAM  / 4HXTIM ,  4HE   , 4HXSAV , 4HE   ,\r\n     3                4HXUOP ,  4H    , 4HXCHK , 4H    ,\r\n     4                4HXPUR ,  4HGE  , 4HXEQU , 4HIV  /\r\n      DATA    NTHPAS/ 0     /,  DLYERR/ 0     /\r\nC\r\n      OR(I,J)  = ORF(I,J)\r\n      AND(I,J) = ANDF(I,J)\r\n      COMPL(L) = COMPLF(L)\r\nC\r\nC     USE AREA IN OPEN CORE BETWEEN PTDIC AND MED ARRAYS FOR STORING\r\nC     MISSING FILE DATA\r\nC\r\n      IFLAG  = 0\r\n      ICPTOP = PTDBOT + 3\r\n      ICPBOT = ICPTOP - 3\r\n      LCPDPL = MEDTP  - ICPTOP\r\n      IF (START .EQ. IMST) DLYERR = 1\r\n      IRENTR = AND(MASKHI,SEQNO)\r\n      IDMPCT = RSHIFT(SEQNO,16)\r\nC\r\nC     PREPARE FOR NTH PASS THRU OSCAR\r\nC     *******************************\r\nC\r\n   10 IF (NOGO .GT. 1) GO TO 960\r\n      OSPNT = 1\r\n      OSPRC = OSPNT\r\n      IORBOT= 0\r\n      IFEQ  = 0\r\nC\r\nC     INCREMENT NUMBER OF PASSES MADE THRU OSCAR\r\nC\r\n      NTHPAS = 1 + NTHPAS\r\nC\r\nC     ENTER DPL FILE NAMES IN IORDNL TABLE\r\nC\r\n      I = LSTDPL*3 + 1\r\n      IDPL = I\r\n      IF (LSTDPL .EQ. 0) GO TO 30\r\n      DO 20 K = 4,I,3\r\n      IORBOT = IORBOT + 4\r\n      IORDNL(IORBOT  ) = DPL(K  )\r\n      IORDNL(IORBOT+1) = DPL(K+1)\r\n      IORDNL(IORBOT+2) = 0\r\n   20 IORDNL(IORBOT+3) = 0\r\nC\r\nC     ENTER FIAT NAMES IN IORDNL TABLE\r\nC\r\n   30 I = IFIAT(3)*ICFIAT - 2\r\n      DO 40 K = 4,I,ICFIAT\r\n      IF (IFIAT(K+1) .EQ. 0) GO TO 40\r\n      IORBOT = IORBOT + 4\r\n      IFIAT(K) = OR(LSHIFT(IORBOT,16),AND(IFIAT(K),ORF(MASKHI,LOSGN)))\r\n      IORDNL(IORBOT  ) = IFIAT(K+1)\r\n      IORDNL(IORBOT+1) = IFIAT(K+2)\r\n      IORDNL(IORBOT+2) = 0\r\n      IORDNL(IORBOT+3) = 0\r\n   40 CONTINUE\r\nC\r\nC     FOR UNMODIFIED RESTART BEGIN OSCAR PROCESSING AT RE-ENTRY POINT IF\r\nC     THIS IS FIRST PASS THRU OSCAR\r\nC\r\n      IF (NTHPAS .GT. 1) GO TO 60\r\n      IF (START.NE.IUNST . OR. IRENTR.EQ.0) GO TO 60\r\n      DO 50 J = 1,IRENTR\r\n      IF (OSCAR(OSPNT+1) .GE. IRENTR) GO TO 60\r\n      OSPRC = OSPNT\r\n      OSPNT = OSPNT + OSCAR(OSPNT)\r\n   50 CONTINUE\r\nC\r\nC     GET NEXT OSCAR ENTRY\r\nC     ********************\r\nC\r\nC     BRANCH ON OSCAR ENTRY TYPE IF EXECUTE FLAG IS UP\r\nC\r\n   60 IF (OSCAR(OSPNT+5) .GE. 0) GO TO 70\r\n      I = AND(OSCAR(OSPNT+2),MASKHI)\r\n      LSTBOT = IORBOT\r\n      GO TO (310,390,520,80), I\r\nC\r\nC     GET NEXT OSCAR ENTRY\r\nC\r\n   70 IF (OSPNT .GE. OSBOT) GO TO 650\r\n      IF (OSCAR(OSPNT+5).LT.0 .AND. AND(OSCAR(OSPNT+2),MASKHI).LE.2)\r\n     1    OSPRC = OSPNT\r\n      OSPNT = OSPNT + OSCAR(OSPNT)\r\n      GO TO 60\r\nC\r\nC     PROCESS TYPE E OSCAR ENTRY\r\nC     **************************\r\nC\r\nC     BRANCH ON NAME\r\nC\r\n   80 DO 90 I = 1,11,2\r\n      IF (OSCAR(OSPNT+3) .NE. XNAM(I)) GO TO 90\r\n      J = (I+1)/2\r\n      GO TO (70,70,100,100,70,190), J\r\n   90 CONTINUE\r\nC\r\nC     ENTRY IS XUOP OR XCHK - MAKE SURE FILES HAVE BEEN DEFINED OR\r\nC     PREPURGED.\r\nC\r\n  100 I1 = OSPNT + 7\r\n      I2 = OSCAR(OSPNT+6)*2 + I1 - 2\r\n      IOPNT = I1\r\n  110 IF (IORBOT .LE. 0) GO TO 130\r\n      DO 120 J = 4,IORBOT,4\r\n      IF (OSCAR(IOPNT).NE.IORDNL(J) .OR. OSCAR(IOPNT+1).NE.IORDNL(J+1))\r\n     1    GO TO 120\r\n      IF (START.NE.IUNST .OR. J.GT.IDPL) GO TO 170\r\n      NNFIND = -1\r\n      CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND)\r\n      GO TO 170\r\n  120 CONTINUE\r\nC\r\nC     FILE NOT IN ORDNAL TABLE - SEE IF IT IS IN PREVIOUS PURGE OR\r\nC     EQUIV ENTRY\r\nC\r\n  130 K1 = 2\r\n      K1 = OSCAR(K1)\r\n      K2 = OSCAR(OSPNT+1) - 1\r\n      KK = 1\r\n      DO 160 K = K1,K2\r\n      IF (OSCAR(KK+3).NE.XNAM(9) .AND. OSCAR(KK+3).NE.XNAM(11))\r\n     1    GO TO 160\r\nC\r\nC     PURGE OR EQUIV ENTRY FOUND - SEARCH FOR FILE NAME MATCH\r\nC\r\n      L1 = KK + 7\r\n      L3 = KK + OSCAR(KK)\r\nC\r\nC     GET FIRST/NEXT FILE LIST\r\nC\r\n  140 L2 = OSCAR(L1-1)*2 + L1 - 2\r\n      INCRLP = 2\r\n      IF (OSCAR(KK+3) .NE. XNAM(11)) GO TO 145\r\n      L2 = L2 + 1\r\n      INCRLP = 3\r\n  145 CONTINUE\r\n      DO 150 L = L1,L2,INCRLP\r\n      IF (OSCAR(L).EQ.OSCAR(IOPNT) .AND. OSCAR(L+1).EQ.OSCAR(IOPNT+1))\r\n     1    GO TO 180\r\n      IF (L .EQ. L1+INCRLP) GO TO 153\r\n  150 CONTINUE\r\n      GO TO 159\r\n  153 L4 = L1 + INCRLP\r\n      INCRLP = 2\r\n      L4 = L4 + INCRLP\r\n      DO 155 L = L4,L2,INCRLP\r\n      IF (OSCAR(L).EQ.OSCAR(IOPNT) .AND. OSCAR(L+1).EQ.OSCAR(IOPNT+1))\r\n     1    GO TO 180\r\n  155 CONTINUE\r\n  159 L1 = L2 + 4\r\n      IF (L1 .LT. L3) GO TO 140\r\n  160 KK = OSCAR(KK) + KK\r\nC\r\nC     FILE IS NOT PURGED OR DEFINED - SEE IF IT IS ON PROBLEM TAPE\r\nC\r\n      NOFIND = -1\r\n      GO TO 450\r\nC\r\nC     FILE IS IN ORDNAL TABLE - ENTER RANGE\r\nC\r\n  170 IF (IORDNL(J+3)) 180,175,175\r\n  175 IORDNL(J+3) = LSHIFT(OSCAR(OSPNT+1),16)\r\n  180 IOPNT = IOPNT + 2\r\n      IF (IOPNT .LE. I2) GO TO 110\r\n      GO TO 70\r\nC\r\nC     PROCESS EQUIV INSTRUCTION\r\nC\r\n  190 L1 = OSPNT + 7\r\n      NWDH = OSCAR(OSPNT) - 6\r\n  230 NDATAB = OSCAR(L1-1)\r\n      IPRIME = 0\r\n      DO 195 KHR = 1,NDATAB\r\nC\r\nC     CHECK FOR DATA BLOCK IN IORDNL\r\nC\r\n      IF (IORBOT .LE. 0) GO TO 200\r\n      DO 205 I = 4,IORBOT,4\r\n      IF (IORDNL(I).NE.OSCAR(L1) .OR. IORDNL(I+1).NE.OSCAR(L1+1))\r\n     1    GO TO 205\r\n      IF (START.NE.IUNST .OR. I.GT.IDPL) GO TO 210\r\n      NNFIND = -1\r\n      CALL XFLDEF (OSCAR(L1),OSCAR(L1+1),NNFIND)\r\n      GO TO 210\r\n  205 CONTINUE\r\nC\r\nC     FILE NOT IN IORDNL, SEE IF ON PTDIC OR REGEN\r\nC\r\n  200 IF (START.EQ.ICST .OR. IPRIME.NE.0) GO TO 220\r\n      NOFIND = 1\r\n      CALL XFLDEF (OSCAR(L1),OSCAR(L1+1),NOFIND)\r\n      IF (NOFIND) 10,215,220\r\n  220 IF (DLYERR.NE.0 .OR. IPRIME.NE.0) GO TO 215\r\nC\r\nC     PRIMARY EQUIV FILE NOT DEFINED\r\nC\r\n      CALL XGPIDG (32,OSPNT,OSCAR(L1),OSCAR(L1+1))\r\n      GO TO 210\r\nC\r\nC     PUT FILE IN IORDNL, FLAG FOURTH WORD FOR EQUIV\r\nC\r\n  215 IORBOT = IORBOT + 4\r\n      IF (IORBOT - LORDNL) 225,780,780\r\n  225 IORDNL(IORBOT  ) = OSCAR(L1)\r\n      IORDNL(IORBOT+1) = OSCAR(L1+1)\r\n      IORDNL(IORBOT+2) = 0\r\n      IORDNL(IORBOT+3) = ISGNON\r\n  210 IF (IPRIME .NE. 0) GO TO 211\r\n      LSTUSE = AND(MASKHI,IORDNL(I+2))\r\n      IF (LSTUSE .EQ. 0) GO TO 212\r\n      NTU = OR(OSCAR(OSPNT+1),AND(IORDNL(I+2),ITAPE))\r\n      OSCAR(LSTUSE) = OR(AND(OSCAR(LSTUSE),MASKLO),NTU)\r\n  212 IORDNL(I+2) = OR(OSCAR(L1+2),AND(IORDNL(I+2),ITAPE))\r\n      IORDNL(I+3) = LSHIFT(OSCAR(OSPNT+1),16)\r\n      OSCAR(L1+2) = OR(AND(OSCAR(L1+2),MASKHI),LSHIFT(I,16))\r\n  211 L1 = L1 + 2\r\n      IF (IPRIME .EQ. 0) L1 = L1 + 1\r\n      IPRIME = 1\r\n  195 CONTINUE\r\n      NWDH = NWDH - 2*NDATAB - 3\r\n      IF (NWDH .LE. 0) GO TO 70\r\n      L1 = L1 + 2\r\n      GO TO 230\r\nC\r\nC     PROCESS TYPE F OSCAR ENTRY\r\nC     **************************\r\nC\r\nC     SCAN OSCAR OUTPUT FILE SECTION,ENTER NAMES IN IORDNL TABLE.\r\nC\r\n  310 K = OSPNT + 6\r\n      K = OSCAR(K)*3   + 2 + K\r\n      I = OSCAR(K-1)*3 - 3 + K\r\n      IOPNT = K\r\n      ASSIGN 380 TO IRTURN\r\nC\r\nC     GET FIRST/NEXT FILE NAME FROM OSCAR\r\nC\r\n  320 IF (OSCAR(IOPNT) .EQ. 0) GO TO 380\r\nC\r\nC     SEE IF FILE NAME IS ALREADY IN ORDNAL TABLE\r\nC\r\n      IF (IORBOT .LE. 0) GO TO 340\r\n      DO 330 K = 4,IORBOT,4\r\n      IF (IORDNL(K).NE.OSCAR(IOPNT) .OR. IORDNL(K+1).NE.OSCAR(IOPNT+1))\r\n     1    GO TO 330\r\n      IF (START.NE.IUNST .OR. K.GT.IDPL) GO TO 345\r\n      NNFIND = -1\r\n      CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND)\r\n      GO TO 345\r\n  330 CONTINUE\r\n      GO TO 340\r\n  345 IF (IORDNL(K+3)) 346,820,820\r\n  346 KXT = K\r\n      GO TO 347\r\nC\r\nC     INCREMENT TO NEXT ORDNAL ENTRY AND ENTER FILE NAME AND LU POINTER.\r\nC\r\n  340 IORBOT = IORBOT + 4\r\n      IF (IORBOT - LORDNL) 350,780,780\r\n  350 IORDNL(IORBOT  ) = OSCAR(IOPNT  )\r\n      IORDNL(IORBOT+1) = OSCAR(IOPNT+1)\r\nC\r\nC     SEE IF TAPE FLAG IS SET FOR THIS FILE\r\nC\r\n      KXT = IORBOT\r\n  347 LSTUSE = IOPNT + 2\r\n      IF (AND(OSCAR(OSPNT+2),MASKHI) .GT. 2) LSTUSE=0\r\n      IF (FPNT .LT. 1) GO TO 370\r\n      DO 360 K = 1,FPNT,3\r\n      IF (OSCAR(IOPNT).EQ.FILE(K) .AND. OSCAR(IOPNT+1).EQ.FILE(K+1))\r\n     1    LSTUSE = OR(LSTUSE,AND(FILE(K+2),ITAPE))\r\n  360 CONTINUE\r\n  370 IORDNL(KXT+2) = LSTUSE\r\n      IORDNL(KXT+3) = LSHIFT(OSCAR(OSPNT+1),16)\r\nC\r\nC     IORDNL POINTER  TO OSCAR IF TYPE F OR O FORMAT\r\nC\r\n      IF (AND(OSCAR(OSPNT+2),MASKHI) .LE. 2)\r\n     1    OSCAR(IOPNT+2) = OR(LSHIFT(KXT,16),AND(OSCAR(IOPNT+2),MASKHI))\r\n      GO TO IRTURN, (380,510)\r\nC\r\nC     O/P FILE PROCESSED  -  INCREMENT TO NEXT O/P FILE\r\nC\r\n  380 IOPNT = IOPNT + 3\r\n      IF (IOPNT .LE. I) GO TO 320\r\nC\r\nC     OUTPUT SECTION SCANNED, NOW SCAN INPUT FILE SECTION OF OSCAR.\r\nC\r\nC     PROCESS TYPE F OR O OSCAR ENTRY\r\nC     *******************************\r\nC\r\nC     SCAN OSCAR INPUT FILE SECTION,ENTER RANGES IN IORDNL TABLE.\r\nC\r\n  390 K = OSPNT + 7\r\n      I = OSCAR(K-1)*3 -3 + K\r\n      IOPNT = K\r\nC\r\nC     GET FIRST/NEXT FILE NAME FROM OSCAR\r\nC\r\n  400 IF (OSCAR(IOPNT) .EQ. 0) GO TO 510\r\n      NOFIND = 1\r\n      ASSIGN 510 TO IRTURN\r\nC\r\nC     NOW SCAN IORDNAL TABLE FOR FILE NAME\r\nC\r\n      J1 = LSTBOT\r\n      IF (J1 .LE. 0) GO TO 440\r\n      DO 410 J = 4,J1,4\r\n      IF (OSCAR(IOPNT).NE.IORDNL(J) .OR. OSCAR(IOPNT+1).NE.IORDNL(J+1))\r\n     1    GO TO 410\r\n      IF (START.NE.IUNST .OR. J.GT.IDPL) GO TO 420\r\n      NNFIND = -1\r\n      CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NNFIND)\r\n      GO TO 420\r\n  410 CONTINUE\r\n      GO TO 440\r\nC\r\nC     FOUND FILE IN IORDNL TABLE - ENTER NTU AND TAPE FLAG INTO\r\nC     OSCAR ENTRY POINTED TO BY IORDNL ENTRY\r\nC\r\n  420 LSTUSE = AND(MASKHI,IORDNL(J+2))\r\n      IF (LSTUSE .EQ. 0) GO TO 430\r\n      NTU = OR(OSCAR(OSPNT+1),AND(IORDNL(J+2),ITAPE))\r\n      OSCAR(LSTUSE) = OR(AND(OSCAR(LSTUSE),MASKLO),NTU)\r\nC\r\nC     SET RANGE AND LASTUSE POINTER IN IORDNAL ENTRY\r\nC\r\n  430 NOFIND = -1\r\n      IORDNL(J+2) = OR(IOPNT+2,AND(IORDNL(J+2),ITAPE))\r\n      IORDNL(J+3) = LSHIFT(OSCAR(OSPNT+1),16)\r\nC\r\nC     LINK OSCAR I/P FILE TO IORDNL ENTRY\r\nC\r\n      OSCAR(IOPNT+2) = OR(AND(OSCAR(IOPNT+2),MASKHI),LSHIFT(J,16))\r\nC\r\nC     I/P FILE PROCESSED - MAKE SURE IT WAS DEFINED\r\nC\r\n  440 IF (NOFIND) 510,450,450\r\nC\r\nC     I/P FILE NOT DEFINED\r\nC\r\n  450 IF (START .EQ. ICOLD) GO TO 470\r\nC\r\nC     RESTART - SEE IF FILE IS ON PROBLEM TAPE OR CAN BE REGENERATED\r\nC     BY RE-EXECUTING SOME MODULES.\r\nC\r\n      CALL XFLDEF (OSCAR(IOPNT),OSCAR(IOPNT+1),NOFIND)\r\n      IF (NOFIND) 10,500,470\r\nC\r\nC     ERROR - FILE NOT DEFINED(PUT OUT MESSAGE AT END OF XFLORD)\r\nC     SEE IF FILE IS ALREADY IN ICPDPL TABLE\r\nC\r\n  470 IF (DLYERR .NE.      0) GO TO 500\r\n      IF (ICPBOT .LT. ICPTOP) GO TO 490\r\n      DO 480 L = ICPTOP,ICPBOT,3\r\n      IF (OSCAR(IOPNT).EQ.ICPDPL(L) .AND. OSCAR(IOPNT+1).EQ.ICPDPL(L+1))\r\n     1    GO TO 500\r\n  480 CONTINUE\r\nC\r\nC     ENTER FILE IN ICPDPL TABLE\r\nC\r\n  490 ICPBOT = ICPBOT + 3\r\n      IF (ICPBOT+3-ICPTOP .GT. LCPDPL) GO TO 830\r\n      ICPDPL(ICPBOT  ) = OSCAR(IOPNT  )\r\n      ICPDPL(ICPBOT+1) = OSCAR(IOPNT+1)\r\n      ICPDPL(ICPBOT+2) = -OSPNT\r\nC\r\nC     ENTER FILE IN ORDNAL TABLE IF NOT CHKPNT MODULE\r\nC\r\n  500 IF (OSCAR(OSPNT+3) .NE. XNAM(7)) GO TO 340\r\n      GO TO 180\r\nC\r\nC     CHECK FOR ANOTHER I/P FILE\r\nC\r\n  510 IOPNT = IOPNT + 3\r\n      IF (IOPNT .LE. I) GO TO 400\r\nC\r\nC     INPUT FILE SECTION SCANNED,GET NEXT OSCAR ENTRY.\r\nC\r\n      GO TO 70\r\nC\r\nC     PROCESS TYPE C OSCAR ENTRY\r\nC     **************************\r\nC\r\nC     CHECK FOR LOOPING\r\nC\r\n  520 LPTOP = RSHIFT(OSCAR(OSPNT+6),16)\r\n      IF ((NEXIT.EQ.OSCAR(OSPNT+3)) .OR. (OSCAR(OSPNT+1).LT.LPTOP))\r\n     1     GO TO 70\r\nC\r\nC     FIND BEGINNING OF LOOP AND ADJUST IORDNL RANGES INSIDE LOOP.\r\nC\r\n      LPBOT = OSPNT\r\n      I     = OSCAR(OSPNT+1)\r\n      OSPNT = 1\r\n      J1    = OSCAR(OSPNT+1)\r\n      DO 530 J = J1,I\r\n      IF (OSCAR(OSPNT+1) .EQ. LPTOP) GO TO 540\r\n  530 OSPNT = OSCAR(OSPNT) + OSPNT\r\n  540 LPTOP = OSPNT\r\nC\r\nC     LOOP TOP FOUND - IF UNMODIFIED RESTART,EXECUTE ALL MODULES INSIDE\r\nC     LOOP.\r\nC\r\n      IF (OSCAR(LPTOP+5).LT.0 .OR. START.NE.IUNST) GO TO 570\r\nC\r\nC     MAKE SURE FIRST INSTRUCTION IN LOOP IS NOT CHKPNT\r\nC\r\n      IF (OSCAR(LPTOP+3).EQ.XNAM(7) .AND. OSCAR(LPTOP+4).EQ.XNAM(8))\r\n     1    GO TO 790\r\nC\r\nC     EXECUTE FLAGS NOT ALL SET - SET FLAGS AND BEGIN OSCAR SCAN AGAIN\r\nC\r\n  550 J1 = OSCAR(LPTOP+1)\r\n      DO 560 J = J1,I\r\n      IF (OSCAR(OSPNT+3).EQ.XNAM(7) .AND. OSCAR(OSPNT+4).EQ.XNAM(8)\r\n     1   .AND. ICPFLG.EQ.0) GO TO 560\r\n      IF (OSCAR(OSPNT+5) .LT. 0) GO TO 560\r\n      IF (IFLAG .EQ. 1) GO TO 5510\r\n      IFLAG = 1\r\n      CALL PAGE1\r\n      CALL XGPIMW (11,IDMPCT,0,0)\r\n 5510 CALL XGPIMW (4,0,0,OSCAR(OSPNT))\r\n      OSCAR(OSPNT+5) = OR(ISGNON,OSCAR(OSPNT+5))\r\n  560 OSPNT = OSCAR(OSPNT) + OSPNT\r\n      GO TO 10\r\nC\r\nC     EXTEND RANGE OF FILES DEFINED OUTSIDE OF LOOP IF USED INSIDE LOOP\r\nC     GET FIRST/NEXT OSCAR ENTRY INSIDE LOOP\r\nC\r\n  570 OSPNT = LPTOP\r\n      J1 = OSCAR(LPTOP+1)\r\n      J2 = OSCAR(LPBOT+1)\r\n      DO 640 J = J1,J2\r\n      IF (AND(OSCAR(OSPNT+2),MASKHI) .GT. 2) GO TO 640\r\nC\r\nC     GET FIRST/NEXT I/P FILE OF OSCAR ENTRY\r\nC\r\n      K1 = OSPNT + 7\r\n      K2 = OSCAR(K1-1)*3 - 3 + K1\r\n      DO 630 K = K1,K2,3\r\n      IF (OSCAR(K) .EQ. 0) GO TO 630\r\nC\r\nC     SEE IF FILE SAVE IS ON\r\nC\r\n      IF (FPNT .LT. 1) GO TO 590\r\n      DO 580 L = 1,FPNT,3\r\n      IF (OSCAR(K).NE.FILE(L) .OR. OSCAR(K+1).NE.FILE(L+1)) GO TO 580\r\n      IF (AND(ISAVE,FILE(L+2)) .EQ. ISAVE) GO TO 620\r\n      GO TO 590\r\n  580 CONTINUE\r\nC\r\nC     FILE SAVE FLAG NOT ON - SEE IF I/P FILE IS GENERATED INSIDE LOOP\r\nC\r\n  590 L1 = OSCAR(OSPNT+1)\r\nC\r\nC     GET FIRST/NEXT OSCAR ENTRY INSIDE LOOP\r\nC\r\n      N = LPTOP\r\n      DO 610 L = J1,L1\r\n      IF (AND(OSCAR(N+2),MASKHI).NE.1 .OR. OSCAR(N+5).GE.0) GO TO 610\r\nC\r\nC     GET FIRST/NEXT O/P FILE\r\nC\r\n      M1 = OSCAR(N +6)*3 + N + 8\r\n      M2 = OSCAR(M1-1)*3 - 3 + M1\r\n      DO 600 M = M1,M2,3\r\n      IF (OSCAR(M) .EQ. 0) GO TO 600\r\n      IF (OSCAR(M).EQ.OSCAR(K) .AND. OSCAR(M+1).EQ.OSCAR(K+1))\r\n     1    GO TO 630\r\n  600 CONTINUE\r\n  610 N = OSCAR(N) + N\r\nC\r\nC     EXTEND I/P FILE RANGE TO END OF LOOP\r\nC\r\n  620 N = RSHIFT(OSCAR(K+2),16)\r\n      IORDNL(N+3) = LSHIFT(I,16)\r\n  630 CONTINUE\r\n      IF (START .NE. IUNST) GO TO 640\r\nC\r\nC     FOR UNMODIFIED RESTART, MARK ALL OUTPUT FILES WITHIN THE\r\nC     LOOP AND BEFORE THE RE-ENTRY POINT FOR REUSE\r\nC\r\n      KK1 = K1\r\n      IF (OSCAR(KK1-6) .GE. IRENTR) GO TO 640\r\n      IF (AND(OSCAR(KK1-5),MASKHI) .NE. 1) GO TO 640\r\n      K1 = K2 + 4\r\n      K2 = 3*OSCAR(K1-1) - 3 + K1\r\n      DO 635 K = K1,K2,3\r\n      IF (OSCAR(K) .EQ. 0) GO TO 635\r\n      NOFIND = -1\r\n      CALL XFLDEF (OSCAR(K),OSCAR(K+1),NOFIND)\r\n  635 CONTINUE\r\n  640 OSPNT = OSCAR(OSPNT) + OSPNT\r\nC\r\nC     LOOP SCANNED, GET NEXT OSCAR ENTRY AFTER LOOP ENTRIES\r\nC\r\n      OSPNT = LPBOT\r\n      GO TO 70\r\nC\r\nC     OSCAR HAS BEEN PROCESSED\r\nC     ************************\r\nC\r\n  650 IF (DLYERR .EQ. 0) GO TO 653\r\n      DLYERR = 0\r\n      GO TO 10\r\nC\r\nC     SET  NTU = LTU FOR LAST REFERENCE TO EACH FILE IN OSCAR.\r\nC\r\n  653 DO 660 I = 4,IORBOT,4\r\n      LSTUSE = AND(IORDNL(I+2),MASKHI)\r\n      IF (LSTUSE .EQ. 0) GO TO 660\r\n      NTU = OR(AND(ITAPE,IORDNL(I+2)),RSHIFT(IORDNL(I+3),16))\r\n      OSCAR(LSTUSE) = OR(NTU,AND(OSCAR(LSTUSE),MASKLO))\r\n  660 CONTINUE\r\nC\r\nC     SEARCH FILE TABLE FOR FILES WITH APPEND OR SAVE FLAG UP\r\nC\r\n      IF (FPNT .LT. 1) GO TO 690\r\n      DO 680 J = 1,FPNT,3\r\n      IF (AND(FILE(J+2),IAPPND).EQ.0 .AND. AND(FILE(J+2),ISAVE).EQ.0)\r\n     1    GO TO 680\r\nC\r\nC     FOR RESTART, MARK APPEND AND SAVE FILES FOR REUSE\r\nC\r\n      NOFIND = -1\r\n      CALL XFLDEF (FILE(J),FILE(J+1),NOFIND)\r\n      IF (AND(FILE(J+2),ISAVE) .NE. 0) GO TO 680\r\nC\r\nC     APPEND FLAG SET - FIND CORRESPONDING IORDNL ENTRY AND SET FLAG\r\nC\r\n      DO 670 I = 4,IORBOT,4\r\n      IF (IORDNL(I).EQ.FILE(J) .AND. IORDNL(I+1).EQ.FILE(J+1))\r\n     1    IORDNL(I+3) = OR(IAPPND,IORDNL(I+3))\r\n  670 CONTINUE\r\n  680 CONTINUE\r\nC\r\nC     STORE LTU IN OSCAR FILE ENTRIES\r\nC\r\n  690 OSPNT = 1\r\n  700 IF (OSCAR(OSPNT+5).GE.0 .OR. AND(OSCAR(OSPNT+2),MASKHI).GT.2)\r\n     1    GO TO 730\r\n      K = OSPNT + 7\r\n      J = 1\r\n      IF (AND(OSCAR(OSPNT+2),MASKHI) .EQ. 1) J = 2\r\n      DO 720 L = 1,J\r\nC\r\n      I = OSCAR(K-1)*3 - 3 + K\r\n      DO 710 IOPNT = K,I,3\r\n      IF (OSCAR(IOPNT) .EQ. 0) GO TO 710\r\n      J1  = RSHIFT(OSCAR(IOPNT+2),16)\r\n      LTU = AND(OSCAR(IOPNT+2),OR(LOSGN,MASKHI))\r\n      OSCAR(IOPNT+2) = OR(LTU,IORDNL(J1+3))\r\n  710 CONTINUE\r\n  720 K  = I + 4\r\n  730 IF (OSCAR(OSPNT+3) .NE. XNAM(11)) GO TO 735\r\n      I  = OSCAR(OSPNT) - 6\r\n      K  = OSPNT + 7\r\n  733 J1 = RSHIFT(OSCAR(K+2),16)\r\n      LTU= AND(OSCAR(K+2),OR(LOSGN,MASKHI))\r\n      OSCAR(K+2) = OR(LTU,IORDNL(J1+3))\r\n      I  = I - 2*OSCAR(K-1) - 3\r\n      IF (I .LE. 0) GO TO 735\r\n      K  = K + 2*OSCAR(K-1) + 3\r\n      GO TO 733\r\n  735 OSPNT = OSPNT + OSCAR(OSPNT)\r\n      IF (OSPNT - OSBOT) 700,700,740\r\nC\r\nC     STORE LTU IN FIAT ENTRIES\r\nC\r\n  740 I = IFIAT(3)*ICFIAT - 2\r\n      DO 770 K = 4,I,ICFIAT\r\n      IF (IFIAT(K+1) .EQ. 0) GO TO 770\r\n      J = RSHIFT(AND(IFIAT(K),MASKLO),16)\r\nC\r\nC     SEE IF FILE HAS BEEN REFERENCED\r\nC\r\n      IF (AND(IORDNL(J+3),COMPL(IAPPND)) .NE. 0) GO TO 760\r\nC\r\nC     FILE NOT USED - DROP IT FROM FIAT\r\nC\r\n      IFIAT(K) = AND(IFIAT(K),OR(MASKHI,LOSGN))\r\n      K1 = K + 1\r\n      K2 = K + ICFIAT - 3\r\n      DO 750 KK = K1,K2\r\n  750 IFIAT(KK) = 0\r\n      GO TO 770\r\n  760 LTU = AND(IFIAT(K),OR(OR(ISGNON,LOSGN),MASKHI))\r\n      IFIAT(K) = OR(LTU,IORDNL(J+3))\r\n  770 CONTINUE\r\n      GO TO 840\r\nC\r\nC     ERROR MESSAGES\r\nC     **************\r\nC\r\nC     IORDNL TABLE OVERFLOW\r\nC\r\n  780 CALL XGPIDG (14,NORDN1,NORDN2,AND(OSCAR(OSPNT+5),NOSGN))\r\n      GO TO 960\r\nC\r\nC     CHKPNT IS FIRST INSTRUCTION IN LOOP\r\nC\r\n  790 CALL XGPIDG (47,LPTOP,0,0)\r\n      OSCAR(LPTOP+5) = OR(OSCAR(LPTOP+5),ISGNON)\r\n      GO TO 550\r\nC\r\nC     FILE APPEARS MORE THAN ONCE AS OUTPUT\r\nC\r\nC     SUPPRESS MESSAGE ONCE IF FILE IS INITIALLY UNDEFINED\r\nC\r\n  820 IF (ICPBOT .LT. ICPTOP) GO TO 8220\r\n      DO 8210 II = ICPTOP,ICPBOT,3\r\n      IF (OSCAR(IOPNT).NE.ICPDPL(II) .OR. OSCAR(IOPNT+1).NE.ICPDPL(II+1)\r\n     1   ) GO TO 8210\r\n      IF (ICPDPL(II+2) .GE. 0) GO TO 8220\r\n      ICPDPL(II+2) = -ICPDPL(II+2)\r\n      GO TO 346\r\n 8210 CONTINUE\r\n 8220 CALL XGPIDG (-45,OSPNT,OSCAR(IOPNT),OSCAR(IOPNT+1))\r\n      GO TO 346\r\nC\r\nC     ICPDPL TABLE OVERFLOW\r\nC\r\n  830 CALL XGPIDG (14,NCPDP1,NCPDP2,0)\r\n      GO TO 960\r\nC\r\nC     CHECK ICPDPL TABLE FOR UNDEFINED FILES\r\nC\r\n  840 IF (ICPBOT .LT. ICPTOP) GO TO 860\r\n      DO 850 I = ICPTOP,ICPBOT,3\r\n      CALL XGPIDG (-22,IABS(ICPDPL(I+2)),ICPDPL(I),ICPDPL(I+1))\r\n  850 CONTINUE\r\nC\r\nC     IF DIAG 14 IS NOT ON, AND THERE ARE UNDEFINED FILES FROM USER'S\r\nC     ALTER (DIAG14 IS SET TO 10 BY XGPI AT THIS TIME), SET DIAG14 TO 11\r\nC     TO FLAG XGPI TO PRINT THE DMAP COMPILE LISTING.\r\nC\r\nC     IF DIAG 14 IS ON, THE DMAP LISTING IS ALREADY PRINTTED BY XSCNDM,\r\nC     SHICH IS CALLED BY XOSGEN. XOSGEN IS CALLED BY XGPI BEFORE THIS\r\nC     XFLORD IS CALLED (ALSO BY XGPI)\r\nC\r\n      IF (DIAG14 .EQ.  10) DIAG14 = 11\r\n      IF (START .NE. ICST) GO TO 865\r\n      GO TO 960\r\nC\r\nC     NO UNDEFINED FILES - CHECK FOR RESTART\r\nC\r\n  860 IF (START .EQ. ICST) GO TO 960\r\nC\r\nC     RESTART - USE LAST XVPS ENTRY IN PTDIC FOR RESTART.\r\nC     EXCLUDE FIRST NXVPS ENTRY\r\nC\r\n  865 PTDTOP = PTDTOP + 3\r\n      NOFIND = -1\r\n      CALL XFLDEF (NXVPS,NBLANK,NOFIND)\r\n      PTDTOP = PTDTOP - 3\r\nC\r\nC     OVERLAY PTDIC TABLE WITH ICPDPL TABLE\r\nC\r\n      ICPTOP = PTDTOP\r\n      ICPBOT = ICPTOP - 3\r\n      LCPDPL = LPTDIC\r\nC\r\nC     SCAN PTDIC FOR REUSE FLAGS\r\nC\r\n      DO 870 J = PTDTOP,PTDBOT,3\r\n      IF (AND(PTDIC(J+2),REUSE) .EQ. 0) GO TO 870\r\nC\r\nC     REUSE FLAG UP - ENTER FILE IN ICPDPL\r\nC\r\n      ICPBOT = ICPBOT + 3\r\n      ICPDPL(ICPBOT  ) = PTDIC(J  )\r\n      ICPDPL(ICPBOT+1) = PTDIC(J+1)\r\n      ICPDPL(ICPBOT+2) = PTDIC(J+2)\r\n  870 CONTINUE\r\nC\r\nC     ORDER FILES IN ICPDPL BY REEL/FILE NUMBER\r\nC\r\n      IF (ICPBOT .LT. ICPTOP) GO TO 960\r\nC\r\nC     DO NOT DISTURB EXISTING ORDER\r\nC\r\n      IF (ICPBOT .EQ. ICPTOP) GO TO 900\r\n      K = ICPTOP\r\n  881 L = K\r\n  882 IF (AND(ICPDPL(K+2),NOFLGS) .LE. AND(ICPDPL(K+5),NOFLGS))\r\n     1    GO TO 890\r\nC\r\nC     SWITCH\r\nC\r\n      DO 891 M = 1,3\r\n      J = K + M + 2\r\n      ITMP(1) = ICPDPL(J)\r\n      ICPDPL(J) = ICPDPL(J-3)\r\n      ICPDPL(J-3) = ITMP(1)\r\n  891 CONTINUE\r\n      K = K - 3\r\n      IF (K .GE. ICPTOP) GO TO 882\r\n  890 K = L + 3\r\n      IF (K .LT. ICPBOT) GO TO 881\r\n  900 CONTINUE\r\nC\r\nC     ENTER PURGED FILE IN FIAT IF THERE IS NO POSSIBLE WAY TO GENERATE\r\nC     FILE\r\nC\r\n      J1 = 2\r\n      J1 = OSCAR(J1)\r\n      J2 = OSCAR(OSBOT+1)\r\n      DO 950 I = ICPTOP,ICPBOT,3\r\n      IF (AND(ICPDPL(I+2),MASKHI) .NE. 0) GO TO 960\r\n      OSPNT = 1\r\n      DO 940 J = J1,J2\r\n      IF (AND(MASKHI,OSCAR(OSPNT+2)).GT.2 .OR. OSCAR(OSPNT+5).GE.0)\r\n     1    GO TO 940\r\nC\r\nC     SEE IF PURGED FILE IS IN I/P SECTION\r\nC\r\n      K1 = OSPNT + 7\r\n      K2 = OSCAR(K1-1)*3 - 3 + K1\r\n      DO 910 K = K1,K2,3\r\n      IF (OSCAR(K).EQ.ICPDPL(I) .AND. OSCAR(K+1).EQ.ICPDPL(I+1))\r\n     1    GO TO 930\r\n  910 CONTINUE\r\nC\r\nC     PURGED FILE IS NOT IN I/P SECTION - SEARCH O/P SECTION FOR IT.\r\nC\r\n      IF (AND(MASKHI,OSCAR(OSPNT+2)) .NE. 1) GO TO 940\r\n      K1 = OSCAR(OSPNT+6)*3  + OSPNT + 8\r\n      K2 = OSCAR(K1-1)*3 - 3 + K1\r\n      DO 920 K = K1,K2,3\r\n      IF (OSCAR(K).EQ.ICPDPL(I) .AND. OSCAR(K+1).EQ.ICPDPL(I+1))\r\n     1    GO TO 950\r\n  920 CONTINUE\r\n      GO TO 940\r\nC\r\nC     PURGED FILE FIRST USED AS INPUT - THEREFORE IT CANNOT BE GENERATED\r\nC     ENTER PURGED FILE IN FIAT\r\nC\r\n  930 L = IFIAT(3)*ICFIAT + 4\r\n      IFIAT(3  ) = IFIAT(3) + 1\r\n      IFIAT(L  ) = OR(MASKHI,OSCAR(K+2))\r\n      IFIAT(L+1) = OSCAR(K  )\r\n      IFIAT(L+2) = OSCAR(K+1)\r\n      GO TO 950\r\n  940 OSPNT = OSCAR(OSPNT) + OSPNT\r\n  950 CONTINUE\r\n  960 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xflszd.f",
    "content": "      SUBROUTINE XFLSZD (FILE,IBLOCK,FILNAM)\r\nC\r\nC     XFLSZD (EXECUTIVE FILE SIZE DETERMINATOR) ACCUMULATES THE\r\nC     NUMBER OF BLOCKS USED FOR A FILE (FILE LT 0) IN THE FIAT OR\r\nC     FOR A FILE (FILE GT 0) IN THE DATA POOL FILE.\r\nC     IF FILE GT 0 IT IS THE INDEX OF THE FILE ON THE DATA POOL FILE\r\nC     IF FILE = 0 THE NUMBER OF WORDS PER BLOCK IS RETURNED IN IBLOCK\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         RSHIFT,ANDF\r\n      COMMON / MACHIN/ MACH\r\n      COMMON / XFIAT / FIAT(1)\r\n      COMMON / XFIST / NFIST,LFIST,IFIST(1)\r\n      COMMON / XDPL  / POOL(1)\r\n      COMMON / SYSTEM/ KYSTEM\r\nC\r\n      DATA     MASK  / 32767 /\r\nC\r\n      IF (FILE) 10,150,100\r\nC\r\nC     FILE IS IN THE FIAT\r\nC\r\nC     COMMENTS FROM G.CHAN/UNIVAC 8/90\r\nC     VAX AND VAX-DERIVED MACHINES DO NOT SAVE ANY INFORMATION OF BLOCKS\r\nC     USED IN FIAT 7TH AND 8TH WORDS. THEREFORE, IBLOCK IS ALWAYS ZERO.\r\nC\r\n   10 CONTINUE\r\nC\r\n      LIM = 2*LFIST\r\n      DO 30 I = 1,LIM,2\r\n      IF (FILNAM .NE. IFIST(I)) GO TO 30\r\n      IF (IFIST(I+1)  .LE.   0) GO TO 50\r\n      INDX   = IFIST(I+1)\r\n      IBLOCK = RSHIFT(FIAT(INDX+7),16) + ANDF(MASK,FIAT(INDX+8)) +\r\n     1         RSHIFT(FIAT(INDX+8),16)\r\nC            = BLOCK COUNT ON PRIMARY, SECONDARY AND TERTIARY FILES ??\r\nC\r\n      GO TO 200\r\n   30 CONTINUE\r\n   50 IBLOCK = 0\r\n      GO TO 200\r\nC\r\nC     FILE IS ON THE DATA POOL FILE\r\nC\r\n  100 INDX   = FILE*3 + 3\r\n      IBLOCK = RSHIFT(POOL(INDX),16)\r\n      GO TO 200\r\nC\r\nC     USER WANTS THE NUMBER OF WORDS PER BLOCK\r\nC\r\n  150 CONTINUE\r\n      IF (MACH.EQ.2 .OR. MACH.GE.5) IBLOCK = KYSTEM - 4\r\n  200 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xgpi.f",
    "content": "      SUBROUTINE XGPI\r\nC\r\nC     THE PURPOSE OF XGPI IS TO INITIALIZE AND CALL THE FOLLOWING\r\nC     SUBROUTINES - XOSGEN AND XFLORD.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         LNOGO\r\n      INTEGER         CNM(1),FNM(1),PTDIC(1)\r\n      DIMENSION       ICPDPL(1),ISOL(1),ICF(1),ICCNAM(1),IBUFR(1),\r\n     1                IBF(8),IOSHDR(2),ITYPE(6),ITRL(7),DMPCRD(1),\r\n     2                MED(1),NXGPI(2),NXPTDC(2),OSCAR(1),OS(5)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /XOLDPT/ PTDTOP,PTDBOT,LPTDIC,NRLFL,SEQNO\r\n      COMMON /STAPID/ TAPID(6),OTAPID(6)\r\n      COMMON /XGPI5 / ISOL,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM,\r\n     1                ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /MODDMP/ IFLG(6)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,\r\n     1                DIAG17,DIAG4,DIAG25,IFIRST,IBUFF(20)\r\n      COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL\r\n      COMMON /IFPX0 / LBD,LCC,MJMSK(1)\r\n      COMMON /IFPX1 / NCDS,MJCD(1)\r\n      COMMON /TWO   / TWO(32)\r\n      COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,MEDMSK(7)\r\n      COMMON /SYSTEM/ IBUFSZ,OPTAPE,NOGO,SYS4,MPC,SPC,SYS7,LOAD,SYS9(2),\r\n     1                PAGECT,SYS12(7),IECHO,SYS20,APPRCH,SYS22(2),\r\n     2                ICFIAT,SYS25,CPPGCT,SYS27(42),SSCELL,SYS70(7),\r\n     3                BANDIT,SYS78(4),ICPFLG\r\n      COMMON /L15 L8/ L15,L8\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LICF,ISAVDW,DMAP(1)\r\nC\r\nC                  ** CONTROL CARD NAMES **\r\nC                  ** DMAP    CARD NAMES **\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC,\r\n     4                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LIBF,MPLPNT,MPL(1)\r\nCWKBR COMMON /XGPI3 / PVT(6)\r\n      COMMON /XGPI3 / PVT(200)\r\n      COMMON /XDPL  / DPL(3)\r\n      COMMON /XVPS  / VPS(4)\r\n      COMMON /XFIST / IFIST(1)\r\n      COMMON /XFIAT / IFIAT(3)\r\nCWKBR COMMON /XCEITB/ CEITBL(2)\r\n      COMMON /XCEITB/ CEITBL(42)\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,\r\n     1                ISAVE,ITAPE,MODFLG,INTGR,LOSGN,\r\n     2                NOFLGS,SETEOR,EOTFLG,IEQFLG,\r\n     3                CPNTRY(7),JMP(7)\r\n      COMMON /XGPIE / NSCR\r\n      EQUIVALENCE     (LOSCAR,OS(1),CORE(1)), (OSPRC,OS(2)),\r\n     1                (OSBOT ,OS(3)), (OSPNT,OS(4)), (OSCAR(1),OS(5)),\r\n     2                (OSCAR(1),MED(1),FNM(1),CNM(1),ICPDPL(1)),\r\n     3                (OSCAR(1),IBUFR(1),DMPCRD(1),PTDIC(1))\r\n      EQUIVALENCE     (DMAP(1),ICF(1)), (NMED,ICCNAM(1)),\r\n     1                (MPL(1),IBF(1)), (DPL(1),NDPFIL),\r\n     2                (DPL(2),MAXDPL), (DPL(3),LSTDPL), (NOGO,LNOGO)\r\nC\r\nC           ** DEFINITION OF PROGRAM VARIABLES **\r\nC     LICF   = NUMBER OF WORDS IN ICF ARRAY\r\nC     WRNGRL = COUNTER FOR NUMBER OF TIMES WRONG REEL WAS MOUNTED.\r\nC     FILCON = FLAG INDICATING FILE IS CONTINUED ON NEXT REEL.\r\nC     IDPFCT = DATA POOL FILE NUMBER OF OSCAR FILE\r\nC     IOSHDR = ARRAY CONTAINING HEADER RECORD FOR XOSCAR FILE IN IDP.\r\nC     PTFCT  = PROBLEM TAPE FILE POSITION\r\nC     EORFLG = END OF RECORD FLAG\r\nC     ICST   = COLD START FLAG\r\nC     IUNST  = UNMODIFIED RESTART\r\nC     IMST   = MODIFIED   RESTART\r\nC\r\nC           ** VARIABLES USED IN GINO CALLS **\r\nC     NPTBUF = NEW PROBLEM TAPE BUFFER AREA\r\nC     IOPBUF = OLD PROBLEM TAPE BUFFER AREA\r\nC     IDPBUF = DATA POOL FILE BUFFER AREA\r\nC     NPTWRD = NUMBER OF WORDS READ FROM NEW PROBLEM TAPE\r\nC     IOPWRD = NUMBER OF WORDS READ FROM OLD PROBLEM TAPE\r\nC     IDPWRD = NUMBER OF WORDS READ FROM DATA POOL FILE\r\nC\r\nC           ** SYMBOLS EQUATED TO CONSTANTS **\r\nC     NPT    = NEW PROBLEM TAPE GINO I.D. NAME (NPTP)\r\nC     IOP    = OLD PROBLEM TAPE GINO I.D. NAME (OPTP)\r\nC     IDP    = DATA POOL FILE GINO I.D. NAME   (POOL)\r\nC     NSCR   = SCRATCH FILE USED FOR RIGID FORMAT. DATA IN NSCR WAS\r\nC              PASSED OVER BY XCSA. IT MUST BE THE LAST SCRATCH FILE\r\nC              IN LINK1, AND NOT TO BE OVER WRITTEN BY XSORT2\r\nC              (CURRENTLY, NSCR = 315)\r\nC\r\n      DATA    JCARD ,JFILE  /  4HCARD,4HFILE /, IDP   /4HPOOL /\r\n      DATA    NPVT  /4HPVT  /, IXTIM /4HXTIM /, NPT   /4HNPTP /,\r\n     1        IOP   /4HOPTP /, IDPWRD/0      /, IOPWRD/0      /,\r\n     2        NDPL  /4HDPL  /, IOSHDR/4HXOSC  , 4HAR          /,\r\n     3        NPTWRD/0      /, FILCON/0      /, NXVPS /4HXVPS /\r\n      DATA    ITYPE /1,1,2,2 , 2,4           /\r\n      DATA    NXCSA /4HXCSA /, NXALTR/4HXALT /, NPARAM/216    /\r\n      DATA    NXPTDC/4HXPTD  , 4HIC  /,NXGPI /  4HXGPI,4H     /\r\nC\r\nC\r\nC     LOAD COMMON AREAS AND PERFORM INITIAL CALCULATIONS\r\nC\r\n      CALL XGPIDD\r\n      CALL XMPLDD\r\n      CALL XLNKDD\r\nC\r\nC     INITIALIZE\r\nC\r\n      NSCR  = 315\r\n      CALL SSWTCH ( 4,DIAG4 )\r\n      CALL SSWTCH (14,DIAG14)\r\n      CALL SSWTCH (17,DIAG17)\r\n      CALL SSWTCH (25,DIAG25)\r\n      IF (DIAG14 .EQ. 1) IFLG(3) = 1\r\n      IF (DIAG17 .EQ. 1) IFLG(4) = 1\r\n      IF (DIAG4  .EQ. 1) IFLG(6) = 1\r\n      IF (DIAG4  .NE. 0) IFLG(5) = ORF(IFLG(5),LSHIFT(1,16))\r\n      IF (DIAG25 .EQ. 1) IFLG(5) = 1\r\nC\r\nC     SET DMAP COMPILER DEFAULT OPTION TO LIST FOR\r\nC     APPROACH DMAP RUNS, RESTART RUNS AND SUBSTRUCTURE RUNS\r\nC     RESET TO NO LIST IF ECHO=NONO (IECHO=-2)\r\nC\r\n      IF (IECHO.NE.-2 .AND. (APPRCH.LT.2 .OR. SSCELL.NE.0)) IFLG(3) = 1\r\n      IF (DIAG14.EQ.0 .AND. IFLG(3).EQ.1) DIAG14 = 2\r\n      IF (IECHO .EQ. -2) DIAG14 = 0\r\n      CALL XGPIMW (1,0,0,0)\r\nC\r\n      CALL XGPIBS\r\n      IF (NOGO .GT. 1) GO TO 2210\r\nC\r\nC     SET UP GINO BUFFER AREAS FOR OLD PROBLEM TAPE,NEW PROBLEM TAPE\r\nC     AND DATA POOL TAPE.\r\nC\r\n      LOSCAR = KORSZ(IBUFR)\r\n      NPTBUF = LOSCAR - IBUFSZ\r\nC\r\nC     OLD PROBLEM TAPE AND NEW PROBLEM TAPE SHARE BUFFER\r\nC\r\n      IOPBUF = NPTBUF\r\n      IDPBUF = NPTBUF - IBUFSZ\r\n      LOSCAR = IDPBUF - 1\r\nC\r\nC     ALLOW MINIMAL SIZE FOR MED ARRAY RESIDING IN OPEN CORE.\r\nC     WE WILL EXPAND MED IF NECESSARY.\r\nC\r\n      MEDTP = LOSCAR\r\n      LMED  = 1\r\n      IF (LOSCAR .LT. 1) GO TO 2080\r\nC\r\nC     OPEN NEW PROBLEM TAPE AS INPUT FILE\r\nC\r\n      CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0)\r\nC\r\nC     NUMBER OF FILE ON NPT + 1\r\nC\r\n      NRLFL = LSHIFT(TAPID(6),16) + 5\r\nC\r\nC     FILE POSITION OF IOP AT ENTRY TO XGPI\r\nC\r\n      PTFCT = LSHIFT(OTAPID(6),16) + 4\r\nC\r\nC     FIND XCSA FILE ON NEW PROBLEM TAPE\r\nC\r\n      NAM1 = NXCSA\r\n      NAM2 = NBLANK\r\nC\r\nC     SKIP HEADER FILE\r\nC\r\n   10 CALL SKPFIL (NPT,1)\r\n      CALL READ (*1950,*1950,NPT,ICF,1,1,NPTWRD)\r\nC\r\nC     CHECK FOR ALTER FILE\r\nC     SET DIAG14 TO 10 IF ALTER CARDS ARE PRESENT. DIAG14 WOULD BE\r\nC     CHANGED TO 11 IF DMAP CONTAINS POTENTIAL FATAL ERROR. IN SUCH\r\nC     CASE, DMAP LISTING WILL BE PRINTED.\r\nC\r\n      IF (ICF(1) .NE. NXALTR) GO TO 15\r\n      NRLFL = NRLFL + 1\r\n      IF (DIAG14 .EQ. 0)                 DIAG14 = 10\r\nC\r\nC     CHECK FOR CHECKPOINT DICTIONARY FILE\r\nC\r\n   15 IF (ICF(1) .EQ. NXPTDC(1)) NRLFL = NRLFL + 1\r\nC\r\nC     CHECK FOR CONTROL FILE\r\nC\r\n      IF (ICF(1) .NE. NXCSA) GO TO 10\r\nC\r\nC     PROBLEM TAPE IS POSITIONED AT EXECUTIVE CONTROL FILE.\r\nC\r\n      ICFPNT = ICFTOP\r\nC\r\nC     READ THE SIX-WORD DATA RECORD\r\nC\r\n      CALL READ (*1950,*20,NPT,ISOL,7,1,NPTWRD)\r\n      GO TO 1950\r\n   20 CALL CLOSE (NPT,1)\r\n      IF (IABS(APPRCH) .EQ. 1) GO TO 620\r\nC\r\nC     FILL MED ARRAY\r\nC\r\n      MEDTP = 1\r\nC\r\nC     SET VALUE FOR NUMBER OF WORDS PER MED ENTRY\r\nC\r\n      MED(MEDTP+1) = 1\r\n      IF (START .NE. ICST) MED(MEDTP+1) = NMSKCD + NMSKFL + NMSKRF\r\nC\r\n      CALL GOPEN (NSCR,IBUFR(NPTBUF),0)\r\n      LLOSCR = LOSCAR - 2\r\nC\r\nC     READ THE MED TABLE\r\nC\r\n      CALL READ (*1960,*30,NSCR,MED(MEDTP+2),LLOSCR,1,LMED)\r\n      GO TO 2090\r\nC\r\nC     SET VALUE FOR NUMBER OF DMAP INSTRUCTIONS\r\nC\r\n   30 MED(MEDTP) = LMED/MED(MEDTP+1)\r\nC\r\nC     CHECK FOR ILLEGAL NUMBER OF WORDS IN MED TABLE RECORD\r\nC\r\n      IF (START.NE.ICST .AND. LMED.NE.MED(MEDTP)*MED(MEDTP+1))\r\n     1    GO TO 1980\r\nC\r\nC     SET THE POINTERS TO THE FILE NAME AND CARD NAME TABLES\r\nC\r\n      FNMTP = MEDTP + LMED + 2\r\n      CNMTP = FNMTP\r\n      IF (START .EQ. ICST) GO TO 600\r\n      LLOSCR = LLOSCR - LMED\r\nC\r\nC     READ THE FILE NAME TABLE\r\nC\r\n      CALL SKPREC (NSCR,1)\r\n      JTYPE = JFILE\r\n      CALL READ (*1970,*40,NSCR,MED(FNMTP+1),LLOSCR,1,LMED)\r\n      GO TO 2090\r\nC\r\nC     SET THE VALUE FOR THE NUMBER OF ENTRIES IN THE FILE NAME TABLE\r\nC\r\n   40 MED(FNMTP) = LMED/3\r\nC\r\nC     CHECK FOR ILLEGAL NUMBER OF WORDS IN FILE NAME TABLE RECORD\r\nC\r\n      IF (LMED .NE. 3*MED(FNMTP)) GO TO 1990\r\nC\r\nC     CHECK FOR ILLEGAL BIT NUMBERS IN FILE NAME TABLE\r\nC\r\n      ISTRBT = 31*NMSKCD + 1\r\n      IENDBT = 31*(NMSKCD+NMSKFL)\r\n      DO 50 J = 3,LMED,3\r\n      IF (MED(FNMTP+J).LT.ISTRBT .OR. MED(FNMTP+J).GT.IENDBT) GO TO 2000\r\n   50 CONTINUE\r\nC\r\nC     RESET THE POINTER FOR THE CARD NAME TABLE\r\nC\r\n      CNMTP  = FNMTP + 3*FNM(FNMTP) + 1\r\n      LLOSCR = LLOSCR - LMED\r\nC\r\nC     READ THE CARD NAME TABLE\r\nC\r\n      CALL SKPREC (NSCR,-2)\r\n      JTYPE = JCARD\r\n      CALL READ (*1970,*60,NSCR,MED(CNMTP+1),LLOSCR,1,LMED)\r\n      GO TO 2090\r\nC\r\nC     SET THE VALUE FOR THE NUMBER OF ENTRIES IN THE CARD NAME TABLE\r\nC\r\n   60 MED(CNMTP) = LMED/3\r\nC\r\nC     CHECK FOR ILLEGAL NUMBER OF WORDS IN CARD NAME TABLE RECORD\r\nC\r\n      IF (LMED .NE. 3*MED(CNMTP)) GO TO 1990\r\nC\r\nC     CHECK FOR ILLEGAL BIT NUMBERS IN CARD NAME TABLE\r\nC\r\n      ISTRBT = 1\r\n      IENDBT = 31*NMSKCD\r\n      DO 70 J = 3,LMED,3\r\n      IF (MED(CNMTP+J).LT.ISTRBT .OR. MED(CNMTP+J).GT.IENDBT) GO TO 2000\r\n   70 CONTINUE\r\nC\r\nC     RESTART - CHECK MEDMSK TABLE\r\nC     IF MEDMSK WORD(S), CORRESPONDING TO RIGID FORMAT SWITCH, IS(ARE)\r\nC     NON-ZERO, SOLUTION HAS BEEN CHANGED.\r\nC     RESET ENTRY SEQUENCE NO. TO INFINITE IF SOLUTION IS CHANGED.\r\nC\r\n      NMASK = MED(MEDTP+1)\r\n      IBEGN = NMSKCD + NMSKFL + 1\r\n      DO 80 I = IBEGN,NMASK\r\n      IF (MEDMSK(I) .EQ. 0) GO TO 80\r\n      SEQNO = MASKLO\r\n      START = IMST\r\n   80 CONTINUE\r\nC\r\nC     SEE IF ANY BULK DATA OR CASE CONTROL CARDS HAVE BEEN MODIFIED.\r\nC\r\n      BGNMSK = 1\r\n      ENDMSK = LBD + LCC\r\nC\r\nC     TURN OFF BIT IN MJMSK ARRAY IF THE CORRESPONDING CARD NAME\r\nC     IS NOT IN THE CARD NAME RESTART TABLE\r\nC\r\n      I1 = CNMTP + 1\r\n      I2 = I1 + 3*CNM(CNMTP) - 3\r\n      DO 110 LX = BGNMSK,ENDMSK\r\n      IF (MJMSK(LX) .EQ. 0) GO TO 110\r\n      L = LX - BGNMSK + 1\r\n      DO 100 L1 = 2,32\r\n      IF (ANDF(MJMSK(LX),TWO(L1)) .EQ. 0) GO TO 100\r\nC\r\nC     IGNORE BIT IF IT CORRESPONDS TO QOUT$ OR BOUT$\r\nC\r\n      IF (LX.EQ.LBD+2 .AND. (L1.EQ.3 .OR. L1.EQ.4)) GO TO 100\r\n      I = 62*(L-1) + 2*(L1-2) + 1\r\n      DO 90 II = I1,I2,3\r\n      IF (MJCD(I).EQ.CNM(II) .AND. MJCD(I+1).EQ.CNM(II+1)) GO TO 100\r\n   90 CONTINUE\r\n      II = COMPLF(TWO(L1))\r\n      MJMSK(LX) = ANDF(MJMSK(LX),II)\r\n  100 CONTINUE\r\n  110 CONTINUE\r\n      IF (START .EQ. IMST) GO TO 130\r\nC\r\nC     DETERMINE TYPE OF RESTART\r\nC\r\n      INDEX = 0\r\n      IEND  = LBD\r\n      DO 120 L = BGNMSK,IEND\r\n      IF (MJMSK(L) .EQ. 0) GO TO 120\r\n      INDEX = 1\r\n      GO TO 130\r\n  120 CONTINUE\r\n  130 L = LBD + 1\r\n      IF (START .EQ. IMST) GO TO 160\r\n      IF (INDEX .EQ.    1) GO TO 150\r\n      IF (MJMSK(L) .EQ. 0) GO TO 140\r\nC\r\nC     CHECK FOR NOLOOP$ AND LOOP$\r\nC                                          2**21\r\n      IF (MJMSK(L).NE.1 .AND. MJMSK(L).NE.TWO(11)) GO TO 150\r\nC\r\nC     CHECK FOR GUST$\r\nC                         2**30\r\n  140 IF (MJMSK(L+1) .LT. TWO(2)) GO TO 170\r\n  150 START = IMST\r\nC\r\nC     TURN ON POUT$ IF QOUT$ IS ON\r\nC                         2**29                                  2**14\r\n  160 IF (ANDF(MJMSK(L+1),TWO(3)) .NE. 0) MJMSK(L)=ORF(MJMSK(L),TWO(18))\r\nC\r\nC     TURN ON AOUT$ IF BOUT$ IS ON\r\nC                         2**28                                  2**22\r\n      IF (ANDF(MJMSK(L+1),TWO(4)) .NE. 0) MJMSK(L)=ORF(MJMSK(L),TWO(10))\r\nC\r\nC     TURN OFF BOUT$ AND QOUT$\r\nC                 2**28    2**29\r\n      II = COMPLF(TWO(4) + TWO(3))\r\n      MJMSK(L+1) = ANDF(MJMSK(L+1),II)\r\nC\r\nC     TURN OFF NOLOOP$ FOR UNMODIFIED RESTARTS\r\nC\r\n  170 IF (START.EQ.IUNST .AND. MJMSK(LBD+1).EQ.1) MJMSK(LBD+1) = 0\r\n  180 CALL PAGE1\r\n      IF (START .NE. IUNST) GO TO 200\r\n      WRITE  (OPTAPE,190) UIM\r\n  190 FORMAT (A29,' 4143, THIS IS AN UNMODIFIED RESTART.')\r\n      BANDIT = -1\r\n      IF (APPRCH .EQ. -1) GO TO 700\r\n      GO TO 600\r\n  200 CALL PAGE2 (-2)\r\n      IF (SEQNO .NE. MASKLO) WRITE (OPTAPE,210) UIM\r\n      IF (SEQNO .EQ. MASKLO) WRITE (OPTAPE,220) UIM\r\n  210 FORMAT (A29,' 4144, THIS IS A MODIFIED RESTART.')\r\n  220 FORMAT (A29,' 4145, THIS IS A MODIFIED RESTART INVOLVING RIGID ',\r\n     1       'FORMAT SWITCH.')\r\n      IBULK = 0\r\n      ICASE = 0\r\n      DO 230 L = 1,LBD\r\n      IF (MJMSK(L) .EQ. 0) GO TO 230\r\n      IBULK = 1\r\n      GO TO 240\r\n  230 CONTINUE\r\n  240 LBD1 = LBD + 1\r\n      LBDLCC = LBD + LCC\r\n      DO 250 L = LBD1,LBDLCC\r\n      IF (MJMSK(L) .EQ. 0) GO TO 250\r\n      ICASE = 1\r\n      GO TO 260\r\n  250 CONTINUE\r\n  260 IF (IBULK.NE.0 .OR. ICASE.NE.0) GO TO 290\r\n      IF (SEQNO .EQ. MASKLO) GO TO 270\r\n      WRITE (OPTAPE,460)\r\n      CALL MESAGE (-61,0,0)\r\n  270 WRITE  (OPTAPE,280) UIM\r\n  280 FORMAT (A29,'. THERE ARE NO CASE CONTROL OR BULK DATA DECK ',\r\n     1       'CHANGES AFFECTING THIS RESTART.')\r\n      GO TO 600\r\n  290 CALL PAGE2 (-4)\r\n      WRITE  (OPTAPE,300) UIM\r\n  300 FORMAT (A29,'. CASE CONTROL AND BULK DATA DECK CHANGES AFFECTING',\r\n     1       ' THIS RESTART ARE INDICATED BELOW.',/)\r\n      DO 500 LLX = 1,2\r\n      IF (LLX .EQ. 1) GO TO 360\r\n      CALL PAGE2 (-3)\r\n      WRITE  (OPTAPE,310) UIM\r\n  310 FORMAT (A29,'. EFFECTIVE BULK DATA DECK CHANGES', /1X,32(1H-))\r\n      IF (IBULK .NE. 0) GO TO 330\r\n      CALL PAGE2 (-3)\r\n      WRITE  (OPTAPE,320)\r\n  320 FORMAT (//,' NONE',/)\r\n      GO TO 500\r\n  330 CALL PAGE2 (-3)\r\n      IF (APPRCH .NE. -1) WRITE (OPTAPE,340)\r\n      IF (APPRCH .EQ. -1) WRITE (OPTAPE,350)\r\n  340 FORMAT (//,' MASK WORD - BIT POSITION - CARD/PARAM NAME - PACKED',\r\n     1       ' BIT POSITION',/)\r\n  350 FORMAT (//,' MASK WORD - BIT POSITION - CARD/PARAM NAME',/)\r\n      LIM1 = 1\r\n      LIM2 = LBD\r\n      GO TO 410\r\n  360 CALL PAGE2 (-3)\r\n      WRITE  (OPTAPE,370) UIM\r\n  370 FORMAT (A29,'. EFFECTIVE CASE CONTROL DECK CHANGES', /1X,35(1H-))\r\n      IF (ICASE .NE. 0) GO TO 380\r\n      CALL PAGE2 (-3)\r\n      WRITE (OPTAPE,320)\r\n      GO TO 500\r\n  380 CALL PAGE2 (-3)\r\n      IF (APPRCH .NE. -1) WRITE (OPTAPE,390)\r\n      IF (APPRCH .EQ. -1) WRITE (OPTAPE,400)\r\n  390 FORMAT (//,' MASK WORD - BIT POSITION ---- FLAG NAME ---- PACKED',\r\n     1       ' BIT POSITION',/)\r\n  400 FORMAT (//,' MASK WORD - BIT POSITION ---- FLAG NAME',/)\r\n      LIM1 = LBD1\r\n      LIM2 = LBDLCC\r\n  410 DO 490 L = LIM1,LIM2\r\n      IF (MJMSK(L) .EQ. 0) GO TO 490\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OPTAPE,420) L\r\n  420 FORMAT (1X,I5)\r\n      DO 480 K = 2,32\r\n      IF (ANDF(MJMSK(L),TWO(K)) .EQ. 0) GO TO 480\r\nC\r\nC     GET CORRESPONDING CARD NAME FROM MAIN CARD TABLE\r\nC\r\n      I  = 62*(L-1) + 2*(K-2) + 1\r\n      KZ = K - 1\r\n      CALL PAGE2 (-1)\r\n      IF (APPRCH .NE. -1) GO TO 430\r\n      WRITE (OPTAPE,440) KZ,MJCD(I),MJCD(I+1)\r\n      GO TO 480\r\nC\r\nC     SEARCH RIGID FORMAT CARD NAME RESTART TABLE FOR A MATCH\r\nC\r\n  430 DO 450 II = I1,I2,3\r\n      IF (MJCD(I).NE.CNM(II) .OR. MJCD(I+1).NE.CNM(II+1)) GO TO 450\r\nC\r\nC     CARD NAME FOUND - SET BIT IN MEDMSK\r\nC\r\n      WRITE  (OPTAPE,440) KZ,MJCD(I),MJCD(I+1),CNM(II+2)\r\n  440 FORMAT (17X,I3,11X,2A4,14X,I3)\r\n      L1 = (CNM(II+2)-1)/31\r\n      LL = L1 + 1\r\n      KK = CNM(II+2) - 31*L1 + 1\r\n      MEDMSK(LL) = ORF(MEDMSK(LL),TWO(KK))\r\n      GO TO 480\r\n  450 CONTINUE\r\n      WRITE  (OPTAPE,460) SFM\r\n  460 FORMAT (A25,' 4146, LOGIC ERROR IN SUBROUTINE XGPI WHILE ',\r\n     1       'PROCESSING DATA CHANGES FOR MODIFIED RESTART.')\r\n      WRITE  (OPTAPE,470) MJCD(I),MJCD(I+1),(CNM(LL),CNM(LL+1),\r\n     1       LL=I1,I2,3)\r\n  470 FORMAT (/10X,2A4, //,10(4X,2A4))\r\n      CALL MESAGE (-61,0,0)\r\n  480 CONTINUE\r\n  490 CONTINUE\r\n  500 CONTINUE\r\n      IF (APPRCH .EQ. -1) GO TO 700\r\nC\r\nC     MOVE MED AND FILE NAME TABLES TO BOTTOM OF OPEN CORE.\r\nC\r\n  600 CALL CLOSE (NSCR,1)\r\n      LMED = CNMTP - MEDTP\r\n      DO 610 I = 1,LMED\r\n      LL = MEDTP + LMED - I\r\n      M  = LOSCAR - I + 1\r\n  610 MED(M) = MED(LL)\r\n      MEDTP  = LOSCAR - LMED + 1\r\n      FNMTP  = MEDTP + MED(MEDTP)*MED(MEDTP+1) + 2\r\n      LOSCAR = MEDTP - 1\r\nC\r\nC     DETERMINE TYPE OF RESTART IF IT IS A RESTART OF A DMAP RUN\r\nC\r\n  620 IF (APPRCH .NE.  -1) GO TO 700\r\n      IF (MJMSK(LBD+1) .EQ. 0) GO TO 630\r\nC\r\nC     CHECK FOR NOLOOP$ AND LOOP$\r\nC                                                  2**21\r\n      IF (MJMSK(LBD+1).NE.1 .AND. MJMSK(LBD+1).NE.TWO(11)) GO TO 650\r\n      MJMSK(LBD+1) = 0\r\nC\r\nC     CHECK FOR GUST$\r\nC                           2**30\r\n  630 IF (MJMSK(LBD+2) .GE. TWO(2)) GO TO 650\r\n      DO 640 L = 1,LBD\r\n      IF (MJMSK(L) .NE. 0) GO TO 650\r\n  640 CONTINUE\r\n      GO TO 180\r\n  650 START = IMST\r\n      SEQNO = LSHIFT(1,16)\r\n      GO TO 180\r\nC\r\nC     CONTROL FILE LOADED, LOAD PVT TABLE\r\nC     BUMP NUMBER OF FILES IF OLD PROBLEM TAPE HAD ALTERS\r\nC\r\n  700 PTFCT = PTFCT + ALTER(2)\r\n      ITRL(1) = NPARAM\r\n      CALL RDTRL (ITRL(1))\r\n      IF (ITRL(2) .LE. 0) GO TO 760\r\n      CALL OPEN (*1900,NPARAM,IBUFR(NPTBUF),0)\r\n      CALL READ (*760,*710,NPARAM,PVT(6),2,1,NPTWRD)\r\n  710 IF (PVT(6) .NE. NPVT) GO TO 1950\r\n      I = 3\r\nC\r\nC      LOAD PVT VALUES INTO PVT TABLES\r\nC\r\n  720 CALL READ (*740,*730,NPARAM,PVT(I),PVT(1)-I+1,0,NPTWRD)\r\n      GO TO 2020\r\n  730 I = I + NPTWRD\r\n      GO TO 720\r\n  740 PVT(2) = I - 1\r\n      CALL CLOSE (NPARAM,1)\r\nC\r\nC     ELIMINATE TRAILER SO FILE WILL BE DELETED\r\nC\r\n      DO 750 I = 2,7\r\n  750 ITRL(I) = 0\r\n      CALL WRTTRL (ITRL(1))\r\n  760 CONTINUE\r\n      IF (START .EQ. ICST) GO TO 1000\r\n      IF (APPRCH.EQ.-1 .AND. START.EQ.IMST) GO TO 1000\r\nC\r\nC     INITIALIZE VPS TABLE FOR RESTART\r\nC     GET FIRST ENTRY IN CHECKPOINT DICTIONARY\r\nC\r\n      PTDTOP = 1\r\n      ASSIGN 770 TO IRTURN\r\n      GO TO 1090\r\n  770 I = PTDTOP\r\n      IF (PTDIC(PTDTOP) .NE. NXVPS) GO TO 1000\r\nC\r\nC     FIRST ENTRY IN CHECKPOINT DICTIONARY IS XVPS - GET FILE OFF OF OLD\r\nC     PROBLEM TAPE, OPTP\r\nC\r\n      CALL OPEN (*1910,IOP,IBUFR(IOPBUF),2)\r\nC\r\nC     CHECK TO SEE IF OLD RESTART TAPE HAS PVT  J = 0 WITHOUT PVT\r\nC\r\n      J = ANDF(MASKHI,PTDIC(PTDTOP+2)) - (ANDF(MASKHI,PTFCT)+1)\r\n      PTFCT = PTFCT + J\r\n      CALL SKPFIL (IOP,J)\r\n      CALL READ (*2060,*780,IOP,VPS(3),2,1,IOPWRD)\r\n  780 IF (VPS(3).NE.NXVPS .OR. VPS(4).NE.NBLANK) GO TO 2060\r\n      J = VPS(1)\r\n      CALL READ (*2060,*790,IOP,VPS,J,1,IOPWRD)\r\n  790 CALL SKPFIL (IOP,1)\r\n      CALL CLOSE  (IOP,2)\r\n      PTFCT  = PTFCT + 1\r\n      VPS(1) = J\r\nC\r\nC     FOR RESTART COMPARE PVT VALUES WITH VPS VALUES. IF NOT EQUAL SET\r\nC     MODFLG INVPS ENTRY.\r\nC\r\n      IF (PVT(2) .LE. 2) GO TO 850\r\n      I = 3\r\n  800 J = 3\r\n  810 IF (PVT(2) .LT. J) GO TO 840\r\n      IF (PVT(J).EQ.VPS(I) .AND. PVT(J+1).EQ.VPS(I+1)) GO TO 820\r\n      JJ = ANDF(PVT(J+2),NOSGN)\r\n      J  = J + ITYPE(JJ) + 3\r\n      GO TO 810\r\nC\r\nC     FOUND VARIABLE IN PVT TABLE\r\nC\r\n  820 L = ANDF(VPS(I+2),MASKHI)\r\n      PVT(J+2) = ORF(PVT(J+2),ISGNON)\r\n      DO 830 LL = 1,L\r\n      II = I + LL + 2\r\n      JJ = J + LL + 2\r\n      VPS(I+2) = ORF(VPS(I+2),MODFLG)\r\n      VPS(II ) = PVT(JJ)\r\n  830 CONTINUE\r\n  840 I = I + ANDF(VPS(I+2),MASKHI) + 3\r\n      IF (I .LT. VPS(2)) GO TO 800\r\n  850 I = LBD + LCC + 1\r\n      IPARPT = MJMSK(I)\r\n      IPARW1 = (IPARPT-1)/31 + 1\r\n      IPARW2 = LBD\r\n      IPARBT = MOD(IPARPT-1,31) + 2\r\n      IDELET = 0\r\n      DO 860 J1 = IPARW1,IPARW2\r\n      IF (MJMSK(J1) .NE. 0) GO TO 870\r\n  860 CONTINUE\r\n      IDELET = 1\r\n      GO TO 1000\r\n  870 DO 920 J1 = IPARW1,IPARW2\r\n      IF (MJMSK(J1) .EQ. 0) GO TO 910\r\n      DO 900 I1 = IPARBT,32\r\n      IF (ANDF(MJMSK(J1),TWO(I1)) .EQ. 0) GO TO 900\r\n      NAMPT = 2*(31*(J1-1)+I1-1) - 1\r\n      I2 = 3\r\n  880 IF (MJCD(NAMPT).NE.VPS(I2) .OR. MJCD(NAMPT+1).NE.VPS(I2+1))\r\n     1    GO TO 890\r\n      IF (ANDF(VPS(I2+2),TWO(2)) .NE. 0) GO TO 900\r\n      VPS(I2  ) = NBLANK\r\n      VPS(I2+1) = NBLANK\r\n      GO TO 900\r\n  890 I2 = I2 + ANDF(VPS(I2+2),MASKHI) + 3\r\n      IF (I2 .LT. VPS(2)) GO TO 880\r\n  900 CONTINUE\r\n  910 IPARBT = 2\r\n  920 CONTINUE\r\nC\r\nC     DMAP SEQUENCE COMPILATION - PHASE 1\r\nC     ***********************************\r\nC\r\nC     GENERATE OSCAR\r\nC     POSITION NEW PROBLEM TAPE AT ALTER FILE IF IT EXISTS\r\nC\r\n 1000 IF (ALTER(1) .EQ. 0) GO TO 1030\r\n      NAM1 = NXALTR\r\n      NAM2 = NBLANK\r\n      CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0)\r\n 1010 CALL SKPFIL (NPT,1)\r\n      CALL READ (*1950,*1020,NPT,ICF,2,1,NPTWRD)\r\n 1020 IF (ICF(1) .NE. NXALTR) GO TO 1010\r\nC\r\nC     ALTER FILE FOUND - INITIALIZE ALTER CELLS\r\nC\r\n      CALL READ (*1950,*1950,NPT,ALTER,2,1,NPTWRD)\r\n 1030 CALL OPEN (*2010,NSCR,IBUFR(IDPBUF),0)\r\n      CALL XGPIMW (1,1,0,0)\r\n      CALL XOSGEN\r\n      IF (START .EQ. ICST) GO TO 1050\r\n      DO 1040 I = 1,NMASK\r\n      MEDMSK(I) = 0\r\n 1040 CONTINUE\r\n 1050 IF (ALTER(1) .EQ. 0) GO TO 1060\r\n      CALL CLOSE (NPT,2)\r\n 1060 CONTINUE\r\n      IF (PVT(2) .LE. 2) GO TO 1080\r\n      J = 5\r\n 1070 IF (PVT(2) .LT. J) GO TO 1080\r\n      IF (PVT(J) .GE. 0) CALL XGPIDG (-54,0,PVT(J-2),PVT(J-1))\r\n      JJ = ANDF(PVT(J),NOSGN)\r\n      J  = J + ITYPE(JJ) + 3\r\n      GO TO 1070\r\n 1080 IF (NOGO .EQ. 2) GO TO 2210\r\n      CALL CLOSE (NSCR,1)\r\n      IF (START .NE. ICST) CALL XGPIMW (2,0,0,0)\r\n      CALL XGPIMW (1,0,0,0)\r\nC\r\nC     ALLOW MINIMAL SIZE FOR PTDIC ARRAY IN OPEN CORE.\r\nC     WE WILL EXPAND IF THIS IS RESTART.\r\nC\r\n      PTDTOP = OSCAR(OSBOT) + OSBOT\r\n      PTDBOT = PTDTOP\r\n      LPTDIC = 3\r\n      ASSIGN 1130 TO IRTURN\r\nC\r\n 1090 IF (START .EQ. ICST) GO TO 1130\r\nC\r\nC     RESTART - LOAD OLD PROBLEM TAPE DICTIONARY INTO OPEN CORE.\r\nC\r\n      CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0)\r\nC\r\nC     FIND XPTDIC ON NEW PROBLEM TAPE\r\nC\r\n      NAM1 = NXPTDC(1)\r\n      NAM2 = NXPTDC(2)\r\n 1100 CALL SKPFIL (NPT,1)\r\n      CALL READ (*1950,*1110,NPT,PTDIC(PTDTOP),2,1,NPTWRD)\r\n 1110 IF (PTDIC(PTDTOP) .EQ.     NXCSA) GO TO 1950\r\n      IF (PTDIC(PTDTOP) .NE. NXPTDC(1)) GO TO 1100\r\nC\r\nC     FOUND XPTDIC\r\nC\r\n      LPTDIC = LOSCAR - PTDTOP\r\n      CALL READ (*1950,*1120,NPT,PTDIC(PTDTOP),LPTDIC,1,NPTWRD)\r\n      GO TO 2030\r\n 1120 PTDBOT = PTDTOP + NPTWRD - 3\r\n      CALL CLOSE (NPT,1)\r\n      GO TO IRTURN, (770,1130)\r\nC\r\nC     IF BOTH DIAGS 14 AND 20 ARE ON, TERMINATE JOB\r\nC\r\n 1130 IF (DIAG14 .NE. 1) GO TO 1200\r\n      CALL SSWTCH (20,I)\r\n      IF (I .EQ. 0) GO TO 1200\r\n      WRITE  (OPTAPE,1140)\r\n 1140 FORMAT (//' *** JOB TERMINATED BY DIAG 20',//)\r\n      CALL PEXIT\r\nC\r\nC     DMAP SEQUENCE COMPILATION - PHASE 2\r\nC     ***********************************\r\nC\r\nC     COMPUTE NTU AND LTU FOR DATA SETS IN OSCAR\r\nC\r\n 1200 IF (NOGO.NE.0 .AND. START.NE.ICST .AND. PTDTOP.EQ.PTDBOT)\r\n     1    GO TO 2210\r\n      CALL XFLORD\r\n      IF (DIAG14 .EQ. 11) GO TO 2120\r\n      IF (NOGO.NE.0 .OR. LNOGO) GO TO 2210\r\n      IF (DIAG4 .NE. 0) CALL DUMPER\r\nC\r\nC     PURGE ALL FILES IN FIAT TABLE THAT HAVE NOT BEEN GENERATED BY\r\nC     IFP SUBROUTINE\r\nC\r\n      I = IFIAT(1)*ICFIAT - 2\r\n      DO 1230 K = 4,I,ICFIAT\r\n      IF (IFIAT(K+1) .EQ. 0) GO TO 1210\r\n      IF (IFIAT(K+3).NE.0 .OR. IFIAT(K+4).NE.0 .OR. IFIAT(K+5).NE.0)\r\n     1    GO TO 1230\r\n      IF (ICFIAT.EQ.11  .AND. (IFIAT(K+8).NE.0 .OR. IFIAT(K+9).NE.0 .OR.\r\n     1    IFIAT(K+10).NE.0)) GO TO 1230\r\nC\r\nC     FILE NOT GENERATED - PURGE IT.\r\nC\r\n      K1 = IFIAT(3)*ICFIAT + 4\r\n      IFIAT(3)  = IFIAT(3) + 1\r\n      IFIAT(K1) = ORF( ANDF(IFIAT(K),MASKLO),MASKHI)\r\n      IFIAT(K ) = ANDF(IFIAT(K),ORF(MASKHI,LOSGN))\r\n      IFIAT(K1+1) = IFIAT(K+1)\r\n      IFIAT(K1+2) = IFIAT(K+2)\r\nC\r\nC     MAKE SURE NO RESIDUE LEFT IN FIAT TABLE\r\nC\r\n 1210 J1 = K + 1\r\n      J2 = K + ICFIAT - 1\r\n      DO 1220 J = J1,J2\r\n 1220 IFIAT(J) = 0\r\nC\r\n 1230 CONTINUE\r\nC\r\nC     WRITE OSCAR ON DATA POOL FILE.\r\nC\r\nC     PUT OSCAR NAME IN DPL AND ASSIGN FILE NO.\r\nC\r\n      LSTDPL = LSTDPL + 1\r\n      I = LSTDPL*3 + 1\r\n      DPL(I  ) = IOSHDR(1)\r\n      DPL(I+1) = IOSHDR(2)\r\n      DPL(I+2) = NDPFIL\r\n      NDPFIL   = 1 + NDPFIL\r\nC\r\nC     WRITE OSCAR HEADER RECORD\r\nC     POSITION FILE\r\nC\r\n      IF (NDPFIL .EQ. 2) GO TO 1240\r\n      CALL OPEN (*1940,IDP,IBUFR(IDPBUF),0)\r\n      CALL SKPFIL (IDP,NDPFIL-2)\r\n      CALL CLOSE  (IDP,2)\r\n 1240 IDPFCT = NDPFIL - 1\r\n      CALL OPEN (*1940,IDP,IBUFR(IDPBUF),3)\r\n      CALL WRITE (IDP,IOSHDR,2,1)\r\nC\r\nC     IF CHECKPOINT AND RESTART FLAGS ARE ON INSERT CHECKPOINT ENTRY IN\r\nC     OSCAR TO SAVE FILES LISTED IN ICPDPL TABLE\r\nC\r\n      IF (START .EQ. ICST) GO TO 1290\r\n      IF (ICPBOT.GE.ICPTOP .AND. ICPFLG.NE.0) GO TO 1250\r\n      CPNTRY(6) = 1\r\n      CALL WRITE (IDP,CPNTRY,6,1)\r\n      GO TO 1270\r\nC\r\nC     CHECKPOINT ALL FILES LISTED IN ICPDPL\r\nC\r\n 1250 CPNTRY(7) = (ICPBOT - ICPTOP + 3)/3\r\n      CPNTRY(1) = 7 + CPNTRY(7)*2\r\nC\r\nC     FOR UNMODIFIED RESTART - DMAP SEQUENCE NO. OF THIS INITIAL\r\nC     CHECKPOINT MUST = REENTRY POINT - 1\r\nC\r\n      IF (START .EQ. IUNST)\r\n     1    CPNTRY(6) = ORF(ISGNON,RSHIFT(ANDF(SEQNO,MASKLO),16)-1)\r\n      CALL WRITE (IDP,CPNTRY,7,0)\r\n      DO 1260 I = ICPTOP,ICPBOT,3\r\n 1260 CALL WRITE (IDP,ICPDPL(I),2,0)\r\n      CALL WRITE (IDP,0,0,1)\r\nC\r\nC     FOR RESTART - INSERT JUMP IN OSCAR TO POSITION OSCAR AT CORRECT\r\nC     REENTRY POINT\r\nC     FOR MODIFIED RESTART - START AT FIRST EXECUTABLE MODULE\r\nC\r\n 1270 IF (START .EQ. IMST) JMP(6) = 1\r\nC\r\nC     SEE IF RE-ENTRY POINT IS WITHIN BOUNDS UNLESS SOLUTION CHANGED.\r\nC\r\n      IF (ANDF(SEQNO,MASKLO) .EQ. MASKLO) GO TO 1280\r\n      I = ANDF(SEQNO,MASKHI)\r\n      IF (I.GT.OSCAR(OSBOT+1) .OR. I.EQ.0) GO TO 2110\r\n      JMP(7) = LSHIFT(I,16)\r\n 1280 CALL WRITE (IDP,JMP,7,1)\r\n 1290 OSPNT = 1\r\nC\r\nC     WRITE NEXT OSCAR ENTRY ON DATA POOL TAPE\r\nC\r\n 1300 CALL WRITE (IDP,OSCAR(OSPNT),OSCAR(OSPNT),1)\r\n      IF (OSCAR(OSPNT+3) .EQ. IXTIM) GO TO 1330\r\n      I = ANDF(OSCAR(OSPNT+2),MASKHI)\r\n      IF (I.GT.2 .OR. OSCAR(OSPNT+5).GE.0) GO TO 1340\r\nC\r\nC     MAKE SURE SYSTEM HAS ENOUGH FILES AVAILABLE TO HANDLE MODULE\r\nC     REQUIREMENTS.\r\nC     COUNT NUMBER OF I/P AND O/P FILES NEEDED\r\nC\r\n      J1 = 2\r\n      IF (I .EQ. 2) J1 = 1\r\n      K = 0\r\n      L = OSPNT + 6\r\n      DO 1320 J = 1,J1\r\n      L2 = OSCAR(L)*3 - 2 + L\r\n      L1 = L + 1\r\n      IF (OSCAR(L1-1) .EQ. 0) GO TO 1320\r\n      DO 1310 L = L1,L2,3\r\n      IF (OSCAR(L) .NE. 0) K = K + 1\r\n 1310 CONTINUE\r\n 1320 L = L2 + 3\r\nC\r\nC     ADD ON NUMBER OF SCRATCH FILES NEEDED\r\nC\r\n      K = K + OSCAR(L)\r\n      IF (IFIAT(1) .LT. K) GO TO 2070\r\n      GO TO 1340\r\nC\r\nC     OSCAR ENTRY IS XTIME, COMPUTE ROUGH TIME ESTIMATES FOR MODULES IN\r\nC     TIME SEGMENT, AND\r\nC     WRITE XTIME HEADER AND TIME ESTIMATES ONTO DATA POOL\r\nC     (THIS SECTION TEMPORARILY OMITTED)\r\nC\r\n 1330 GO TO 1340\r\nC\r\nC     INCREMENT OSPNT AND CHECK FOR END OF OSCAR\r\nC\r\n 1340 OSPNT = OSPNT + OSCAR(OSPNT)\r\n      IF (OSPNT-OSBOT) 1300,1300,1350\r\n 1350 CALL EOF (IDP)\r\n      IF (START .EQ. ICST) GO TO 1800\r\nC\r\nC\r\nC     *** RESTART ***\r\nC\r\n      IF (ICPBOT .LT. ICPTOP) GO TO 1800\r\nC\r\nC     LIST ICPDPL CONTENTS\r\nC\r\n      CALL XGPIMW (8,ICPTOP,ICPBOT,ICPDPL)\r\nC\r\nC     ELIMINATE PURGED FILES FROM ICPDPL\r\nC\r\n      I1 = ICPTOP\r\n      DO 1400 I = I1,ICPBOT,3\r\n      IF (ANDF(ICPDPL(I+2),MASKHI) .NE. 0) GO TO 1410\r\n 1400 ICPTOP = ICPTOP + 3\r\n 1410 IF (ICPBOT .LT. ICPTOP) GO TO 1800\r\n      CALL CLOSE (IDP,2)\r\n      IB1S   = IDPBUF\r\n      IDPBUF = ICPBOT + 3\r\n      IOPBUF = IDPBUF + IBUFSZ\r\n      CALL GOPEN (IDP,IBUFR(IDPBUF),3)\r\nC\r\nC     TRANSFER CHECKPOINT INFO FROM OLD PROBLEM TAPE TO DATA POOL TAPE\r\nC\r\n      K = LSTDPL*3 + 4\r\n      CALL OPEN (*1910,IOP,IBUFR(IOPBUF),2)\r\n      DO 1580 I = ICPTOP,ICPBOT,3\r\n      DPL(K+2) = 0\r\n      IF (ANDF(ICPDPL(I+2),NOFLGS) .GT. PTFCT) GO TO 1420\r\nC\r\nC     FILE IS EQUIVALENCED TO PREVIOUS ENTRY IN DPL\r\nC\r\n      NDPFIL = NDPFIL - 1\r\n      DPL(K+2) = DPL(K-1)\r\n      GO TO 1570\r\nC\r\nC     MAKE SURE CORRECT REEL IS MOUNTED FOR OLD PROBLEM TAPE\r\nC\r\n 1420 IF (ANDF(ANDF(NOFLGS,MASKLO),ICPDPL(I+2)) .EQ. ANDF(MASKLO,PTFCT))\r\n     1   GO TO 1480\r\nC\r\nC     ** NEW REEL NEEDED **\r\nC     MOUNT REEL SPECIFIED BY ICPDPL ENTRY\r\nC\r\n      OTAPID(6) = RSHIFT(ANDF(NOFLGS,ICPDPL(I+2)),16)\r\n      WRNGRL = 0\r\nC\r\nC     SEND OPERATOR MESSAGE\r\nC\r\n 1430 CALL XEOT (IOP,RSHIFT(PTFCT,16),OTAPID(6),IBUFR(IOPBUF))\r\n      CALL OPEN (*1910,IOP,IBUFR(IOPBUF),0)\r\n      CALL READ (*2050,*1440,IOP,IBF,LIBF,0,IOPWRD)\r\nC\r\nC     SEE THAT CORRECT REEL HAS BEEN MOUNTED.\r\nC\r\n 1440 DO 1450 II = 1,6\r\n      IF (OTAPID(II) .NE. IBF(II)) GO TO 1460\r\n 1450 CONTINUE\r\n      GO TO 1470\r\n 1460 WRNGRL = WRNGRL + 1\r\n      IF (WRNGRL .LT. 2) GO TO 1430\r\n      GO TO 2100\r\nC\r\nC     CORRECT REEL MOUNTED - CARRY ON\r\nC\r\n 1470 CALL SKPFIL (IOP,1)\r\n      PTFCT = LSHIFT(OTAPID(6),16) + 1\r\n      IF (FILCON) 1560,1480,1560\r\nC\r\nC     WRITE FILE ON DATA POOL\r\nC\r\n 1480 CALL SKPFIL (IOP,ANDF(MASKHI,ICPDPL(I+2))-(ANDF(MASKHI,PTFCT)+1))\r\nC\r\nC     CHECK FOR CORRECT FILE\r\nC\r\nC     5 OR 8 WORDS (DEPEND ON ICFIAT VALUE OF 8 OR 11) WRITTEN TO IOP\r\nC     BY XCHK OF PREVIOUS CHECKPOINT RUN.\r\nC     IF ICFIAT=11, READ 5 WORDS HERE FIRST, AND CHECK IF THERE ARE 3\r\nC     MORE WORDS BEHIND.  I.E. OPTP MAY BE WRITTEN WITH A 5-WORD RECORD\r\nC     IF ICFIAT= 8, READ 5 WORDS\r\nC\r\n      IF (ICFIAT .EQ. 11) GO TO 1490\r\n      CALL READ (*2050,*2050,IOP,IBF,5,1,IOPWRD)\r\n      IBF(8) = 0\r\n      GO TO 1510\r\n 1490 IBF(8) = -999\r\n      CALL READ (*2050,*2050,IOP,IBF(1),5,0,IOPWRD)\r\n      CALL READ (*2050,*1510,IOP,IBF(6),3,1,IOPWRD)\r\nC\r\n 1510 DO 1520 II = I,ICPBOT,3\r\n      IF (IBF(1).EQ.ICPDPL(II) .AND. IBF(2).EQ.ICPDPL(II+1)) GO TO 1530\r\n 1520 CONTINUE\r\n      GO TO 2050\r\nC\r\nC     A 5-WORD RECORD READ, EXPANDED (THE TRAILERS) TO 8 WORDS\r\nC\r\n 1530 IF (IBF(8) .NE. -999) GO TO 1540\r\n      IBF(8) = ANDF(IBF(5),65535)\r\n      IBF(7) = RSHIFT(IBF(5),16)\r\n      IBF(6) = ANDF(IBF(4),65535)\r\n      IBF(5) = RSHIFT(IBF(4),16)\r\n      IBF(4) = ANDF(IBF(3),65535)\r\n      IBF(3) = RSHIFT(IBF(3),16)\r\nC\r\nC     COPY FILE TO POOL\r\nC\r\n 1540 CALL WRITE (IDP,IBF,ICFIAT-3,1)\r\n 1560 CALL CPYFIL (IOP,IDP,IBF,LIBF,IOPWRD)\r\n      DPL(K+2) = DPL(K+2) + IOPWRD/1000 + 1\r\nC\r\nC     FILE ALL ON DATA POOL TAPE\r\nC\r\n      CALL EOF (IDP)\r\n      FILCON = 0\r\nC\r\nC     MAKE DPL ENTRY FOR ICPDPL ENTRY\r\nC\r\n      DPL(K+2) = ORF(ORF(LSHIFT(DPL(K+2),16),NDPFIL),\r\n     1           ANDF(ICPDPL(I+2),IEQFLG))\r\n 1570 DPL(K  ) = ICPDPL(I  )\r\n      DPL(K+1) = ICPDPL(I+1)\r\n      IF (L8 .NE. 0) CALL CONMSG (DPL(K),2,0)\r\n      K = K + 3\r\n      NDPFIL = NDPFIL + 1\r\n      LSTDPL = 1 + LSTDPL\r\n      IF (LSTDPL .GT. MAXDPL) GO TO 2040\r\n      PTFCT = ANDF(NOFLGS,ICPDPL(I+2))\r\n 1580 CONTINUE\r\nC\r\nC     FILES ALL COPIED OVER FROM OLD PROBLEM TAPE TO DATA POOL TAPE.\r\nC\r\n      CALL CLOSE (IOP,1)\r\nC\r\nC     SEE IF XVPS IS ON POOL TAPE\r\nC\r\n      K = LSTDPL*3 + 1\r\n      L = NDPFIL\r\n      IF (DPL(K) .NE. NXVPS) GO TO 1590\r\nC\r\nC     VPS FILE IS LAST ENTRY IN DPL - DELETE ENTRY\r\nC\r\n      LSTDPL = LSTDPL - 1\r\n      NDPFIL = NDPFIL - 1\r\n      J = K\r\n      GO TO 1620\r\nC\r\nC     VPS FILE IS NOT LAST ENTRY IN DPL - SEARCH DPL FOR IT\r\nC\r\n 1590 DO 1600 J = 4,K,3\r\n      IF (DPL(J) .EQ. NXVPS) GO TO 1610\r\n 1600 CONTINUE\r\nC\r\nC     NO RESTART VPS TABLE\r\nC\r\n      GO TO 1800\r\nC\r\nC     XVPS FOUND - ZERO NAME WHEN NOT LAST ENTRY IN DPL\r\nC\r\n 1610 DPL(J  ) = 0\r\n      DPL(J+1) = 0\r\nC\r\nC     XVPS FILE FOUND IN DPL - POSITION POOL TAPE AND INITIALIZE\r\nC     VPS TABLE WITH CHECKPOINT VALUES\r\nC\r\n 1620 CALL CLOSE (IDP,3)\r\n      CALL OPEN (*1940,IDP,IBUFR(IDPBUF),2)\r\n      CALL SKPFIL (IDP,ANDF(DPL(J+2),MASKHI)-L-1)\r\n      NAM1 = NXVPS\r\n      NAM2 = NBLANK\r\n      CALL SKPFIL (IDP,1)\r\n      CALL READ (*1930,*1630,IDP,IBF,LIBF,1,IDPWRD)\r\n 1630 IF (IBF(1) .NE. NXVPS) GO TO 1930\r\n      CALL READ (*1930,*1640,IDP,IBF,LIBF,1,IDPWRD)\r\nC\r\nC     COMPARE RESTART PARAMETER NAMES WITH VPS NAMES\r\nC\r\n 1640 K = 3\r\n 1650 J = 3\r\n      IF (ANDF(VPS(K+2),MODFLG) .EQ. MODFLG) GO TO 1730\r\n 1660 IF (IBF(2) .LT. J) GO TO 1730\r\n      IF (IBF(J).EQ.VPS(K) .AND. IBF(J+1).EQ.VPS(K+1)) GO TO 1670\r\n      J = J + IBF(J+2) + 3\r\n      GO TO 1660\r\nC\r\nC     PARAMETER NAMES MATCH AND MODFLG NOT ON - INITIALIZE VPS WITH\r\nC     RESTART VALUE.\r\nC\r\n 1670 L = IBF(J+2)\r\n      IF (IDELET .EQ. 1) GO TO 1710\r\n      IPARBT = MOD(IPARPT-1,31) + 2\r\n      DO 1700 JJJ = IPARW1,IPARW2\r\n      IF (MJMSK(JJJ) .EQ. 0) GO TO 1690\r\n      DO 1680 III = IPARBT,32\r\n      IF (ANDF(MJMSK(JJJ),TWO(III)) .EQ. 0) GO TO 1680\r\n      NAMPT = 2*(31*(JJJ-1) + III - 1) - 1\r\n      IF (MJCD(NAMPT).EQ.VPS(K) .AND. MJCD(NAMPT+1).EQ.VPS(K+1))\r\n     1    GO TO 1730\r\n 1680 CONTINUE\r\n 1690 IPARBT = 2\r\n 1700 CONTINUE\r\n 1710 DO 1720 M = 1,L\r\n      J1 = M + 2 + J\r\n      K1 = M + 2 + K\r\n 1720 VPS(K1) = IBF(J1)\r\nC\r\nC     CLEAR FLAGS AND TYPE CODE IN VPS ENTRY AND GET NEXT ENTRY.\r\nC\r\n 1730 VPS(K+2) = ANDF(VPS(K+2),MASKHI)\r\n      K = K + VPS(K+2) + 3\r\n      IF (K .LT. VPS(2)) GO TO 1650\r\nC\r\nC     FOR UNMODIFIED RESTART LOAD CEITBL FROM LAST CHECKPOINT\r\nC\r\n      CALL READ (*1930,*1740,IDP,IBF,LIBF,1,IDPWRD)\r\n 1740 IF (START .EQ. IMST) GO TO 1770\r\n      K1 = CEITBL(2)\r\n      J1 = IBF(2)\r\nC\r\nC     FOR RESTART INITIALIZE REPT LOOP COUNTS WITH CHECKPOINT INFO\r\nC\r\n      DO 1760 J = 3,J1,4\r\n      DO 1750 K = 3,K1,4\r\n      IF (CEITBL(K+2).EQ.IBF(J+2) .AND. CEITBL(K+3).EQ.IBF(J+3) .AND.\r\n     1    IBF(J+2).NE.0) CEITBL(K+1) = IBF(J+1)\r\n 1750 CONTINUE\r\n 1760 CONTINUE\r\nC\r\nC     FOR BOTH MOD AND UNMOD RESTART - LOAD VARIOUS CELLS IN /SYSTEM/\r\nC     WITH LAST CHECKPOINT INFO\r\nC\r\n 1770 CALL READ (*1790,*1780,IDP,IBF,LIBF,1,IDPWRD)\r\n 1780 MPC  = IBF(5)\r\n      SPC  = IBF(6)\r\n      LOAD = IBF(8)\r\n 1790 CONTINUE\r\n      CALL CLOSE (IDP,1)\r\n      IDPBUF = IB1S\r\nC\r\nC\r\nC     POSITION DATA POOL TAPE AT FIRST OSCAR ENTRY\r\nC\r\n 1800 CALL CLOSE (IDP,1)\r\nC\r\nC     *** FIRST, PRODUCE DMAP XREF IF REQUESTED\r\nC\r\n      CALL OPEN (*1940,IDP,IBUFR(IDPBUF),2)\r\n      CALL SKPFIL (IDP,IDPFCT-1)\r\n      CALL FWDREC (*1920,IDP)\r\n      IF (ANDF(IFLG(5),1) .NE. 0) CALL OSCXRF (IDPFCT-1,IDPBUF-1)\r\n      CALL CLOSE (IDP,2)\r\nC\r\nC     WRITE VPS TABLE ON NEW PROBLEM TAPE IF CHECKPOINT FLAG ES SET\r\nC     CLEAR FLAGS IN VPS\r\nC\r\n      K = 3\r\n 1810 VPS(K+2) = ANDF(VPS(K+2),MASKHI)\r\n      K = K + VPS(K+2) + 3\r\n      IF (K .LT. VPS(2)) GO TO 1810\r\n      IF (ICPFLG .EQ. 0) GO TO 1820\r\nC\r\nC     POSITION TAPE FOR WRITING XVPS\r\nC\r\n      CALL OPEN (*1900,NPT,IBUFR(NPTBUF),0)\r\n      CALL SKPFIL (NPT,ANDF(NRLFL,MASKHI)-1)\r\n      CALL CLOSE (NPT,2)\r\n      CALL OPEN (*1900,NPT,IBUFR(NPTBUF),3)\r\n      IBF(1) = NXVPS\r\n      IBF(2) = NBLANK\r\n      CALL WRITE (NPT,IBF,2,1)\r\n      CALL WRITE (NPT,VPS,VPS(2),1)\r\nC\r\nC     WRITE CEITBL TABLE ON NEW PROBLEM TAPE\r\nC\r\n      CALL WRITE (NPT,CEITBL,CEITBL(2),1)\r\n      CALL EOF (NPT)\r\n      CALL CLOSE (NPT,2)\r\nC\r\nC     INITIALIZE CHECKPOINT PARAMETERS FOR XCHK AND XCEI ROUTINES\r\nC\r\n      PTDIC(PTDTOP  ) = NXVPS\r\n      PTDIC(PTDTOP+1) = NBLANK\r\n      PTDIC(PTDTOP+2) = NRLFL\r\n      NRLFL = NRLFL + 1\r\n      SEQNO = 1\r\nC\r\nC     WRITE NEW DICTIONARY ON XPTD\r\nC\r\n      CALL OPEN  (*1900,NXPTDC,IBUFR(NPTBUF),1)\r\n      CALL WRITE (NXPTDC,NXPTDC,2,1)\r\n      CALL WRITE (NXPTDC,NRLFL, 2,1)\r\n      CALL WRITE (NXPTDC,PTDIC(PTDTOP),3,1)\r\n      CALL CLOSE (NXPTDC,1)\r\nC\r\nC     PUNCH DICTIONARY ENTRY FOR XVPS TABLE\r\nC\r\n      NFILE = ANDF(MASKHI,PTDIC(PTDTOP+2))\r\n 1820 CONTINUE\r\n      IF (NOGO.NE.0 .OR. LNOGO) GO TO 2210\r\n      CALL XGPIMW (9,NFILE,ICPFLG,IFIAT)\r\n      CPPGCT = PAGECT\r\n      IF (IFLG(1) .EQ. 0) CALL PEXIT\r\nC\r\nC     TERMINATE RUN IF ANY OF THE DIAG (17, 25, 28, OR 30) AND DIAG 20\r\nC     ARE REQUESTED SIMULTANEOUSLY\r\nC\r\n      CALL SSWTCH (20,J)\r\n      IF (J .EQ. 0) RETURN\r\n      CALL SSWTCH (28,I)\r\n      CALL SSWTCH (30,J)\r\n      IF (DIAG17+DIAG25+I+J .EQ. 0) RETURN\r\n      WRITE  (OPTAPE,1830)\r\n 1830 FORMAT (10X,'JOB TERMINATED BY DIAG 20')\r\n      CALL PEXIT\r\nC\r\nC     E R R O R    M E S S A G E S\r\nC\r\nC     UNEXPECTED END OF TAPE ON NEW PROBLEM TAPE\r\nC\r\n 1900 CALL XGPIDG (28,0,0,0)\r\n      GO TO 2200\r\nC\r\nC     UNEXPECTED END OF TAPE ON OLD PROBLEM TAPE\r\nC\r\n 1910 CALL XGPIDG (29,0,0,0)\r\n      GO TO 2200\r\nC\r\nC     CANNOT FIND FILE ON DATA POOL TAPE\r\nC\r\n 1920 NAM1 = IOSHDR(1)\r\n      NAM2 = IOSHDR(2)\r\n 1930 CALL XGPIDG (24,NAM1,NAM2,0)\r\n      GO TO 2200\r\nC\r\nC     UNEXPECTED END OF TAPE ON DATA POOL TAPE\r\nC\r\n 1940 CALL XGPIDG (30,0,0,0)\r\n      GO TO 2200\r\nC\r\nC     CONTROL FILE INCOMPLETE OR MISSING ON NEW PROBLEM TAPE.\r\nC\r\n 1950 CALL XGPIDG (31,NAM1,NAM2,0)\r\n      GO TO 2200\r\nC\r\nC     MED TABLE RECORD MISSING ON SCRATCH FILE\r\nC\r\n 1960 CALL XGPIDG (69,NXGPI(1),NXGPI(2),0)\r\n      GO TO 2200\r\nC\r\nC     CARD OR FILE NAME TABLE RECORD MISSING ON SCRATCH FILE\r\nC\r\n 1970 CALL XGPIDG (70,NXGPI(1),NXGPI(2),JTYPE)\r\n      GO TO 2200\r\nC\r\nC     ILLEGAL NUMBER OF WORDS IN MED TABLE RECORD\r\nC\r\n 1980 CALL XGPIDG (71,LMED,0,0)\r\n      GO TO 2200\r\nC\r\nC     ILLEGAL NUMBER OF WORDS IN CARD OR FILE NAME TABLE RECORD\r\nC\r\n 1990 CALL XGPIDG (72,LMED,JTYPE,0)\r\n      GO TO 2200\r\nC\r\nC     ILLEGAL BIT NUMBERS IN CARD OR FILE NAME TABLE\r\nC\r\n 2000 CALL XGPIDG (73,JTYPE,0,0)\r\n      GO TO 2200\r\nC\r\nC     SCRATCH FILE CONTAINING DMAP DATA COULD NOT BE OPENED\r\nC\r\n 2010 CALL XGPIDG (33,NXGPI(1),NXGPI(2),0)\r\n      GO TO 2200\r\nC\r\nC     PVT TABLE OVERFLOW\r\nC\r\n 2020 CALL XGPIDG (14,NPVT,NBLANK,0)\r\n      GO TO 2210\r\nC\r\nC     XPTDIC OVERFLOWED\r\nC\r\n 2030 CALL XGPIDG (14,NXPTDC(1),NXPTDC(2),0)\r\n      GO TO 2200\r\nC\r\nC     DPL TABLE OVERFLOW\r\nC\r\n 2040 CALL XGPIDG (14,NDPL,NBLANK,0)\r\n      GO TO 2210\r\nC\r\nC     CANNOT FIND FILE ON OLD PROBLEM TAPE\r\nC\r\n 2050 CALL XGPIDG (36,ICPDPL(I),ICPDPL(I+1),0)\r\n      GO TO 2210\r\n 2060 CALL XGPIDG (36,PTDIC(I),PTDIC(I+1),0)\r\n      GO TO 2210\r\nC\r\nC     NOT ENOUGH FILES AVAILABLE FOR MODULE REQUIREMENTS.\r\nC\r\n 2070 CALL XGPIDG (-37,OSPNT,K,IFIAT(1))\r\n      GO TO 1340\r\nC\r\nC     NOT ENOUGH CORE FOR GPI TABLES\r\nC\r\n 2080 CALL XGPIDG (38,-LOSCAR,0,0)\r\n      GO TO 2200\r\nC\r\nC     MED TABLE OVERFLOW\r\nC\r\n 2090 CALL XGPIDG (14,NMED,NBLANK,0)\r\n      GO TO 2200\r\nC\r\nC     INCORRECT OLD PROBLEM TAPE MOUNTED\r\nC\r\n 2100 CALL XGPIDG (35,0,0,0)\r\n      GO TO 2210\r\nC\r\nC     REENTRY POINT NOT WITHIN BOUNDS\r\nC\r\n 2110 CALL XGPIDG (46,0,0,0)\r\n      GO TO 2210\r\nC\r\nC     USER DMAP ALTER CONTAINS ERROR, DIAG 14 FLAG IS NOT REQUESTED, AND\r\nC     ECHO IS NOT 'NONO', PRINT RIGID FORMAT BEFORE QUITTING\r\nC\r\n 2120 IF (IECHO .NE. -2) CALL XGPIMW (13,0,0,CORE)\r\n      GO TO 2210\r\nC\r\nC     TERMINATE JOB IF NOGO = 1\r\nC\r\n 2200 NOGO = 2\r\n 2210 WRITE  (OPTAPE,2220)\r\n 2220 FORMAT (//5X,'*** JOB TERMINATED DUE TO ABOVE ERRORS')\r\n      CALL MESAGE (-37,0,NXGPI)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xgpibs.f",
    "content": "      SUBROUTINE XGPIBS\r\nC\r\nC     PURPOSE OF THIS ROUTINE IS TO INITIALIZE MACHINE DEPENDENT\r\nC     CONSTANTS FOR XGPI AND ASSOCIATED ROUTINES AND TO INITIALIZE\r\nC     THE MODULE LINK TABLE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      DIMENSION       OPBUFF(1),PGHDG(113),HDG1(32),HDG2(32),LNKEDT(15),\r\n     1                ENDDTA(2),OPNCOR(1),UTILTY(1),NWPTYP(6),LL(15),\r\n     2                NONE(2),LNKSPC(1),INBUFF(20),MODNAM(2),OS(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MACHIN/ IJHALF(4),MCHNAM\r\n      COMMON /SYSTEM/ XSYS(90),LPCH\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XGPI2X/ IXX(1)\r\n      COMMON /XLINK / LXLINK,MAXLNK,MLINK(1)\r\n      COMMON /XLKSPC/ LLINK,LINK(1)\r\n      COMMON /OUTPUT/ PGHDG\r\n      COMMON /LHPWX / LHPW(2),NWPIC\r\n      COMMON /XGPIC / A(22),NCPW,NBPC,NWPC,MASKHI,MASKLO,ISGNON,NOSGN,\r\n     1                IALLON,MASKS(1)\r\n      COMMON /XGPID / B(7),ITAPE,IAPPND,INTGR,LOSGN,NOFLGS,SETEOR,\r\n     1                EOTFLG,IEQFLG,CPNTRY(7),JMP(7)\r\n      COMMON /XGPI6 / D(5),IPLUS\r\n      EQUIVALENCE     (XSYS( 2) ,OPTAP )  ,(XSYS(9) ,NLPP ) ,\r\n     1                (XSYS(12) ,NLINES)  ,(XSYS(4) ,INTAP) ,\r\n     2                (OPNCOR(1),LNKSPC(1),OPBUFF(1),OS(2)  ,UTILTY(1))\r\n     3,               (CORE(1)  ,OS(1)    ,LOPNCR)\r\n      DATA    MODNAM/ 4HCHKP,4HNT  /\r\n      DATA    DELETE/ 4HDELE       /,  XNONE /4HNONE/\r\n      DATA    ENDDTA/ 4HENDD,4HATA /,  DOLSGN/4H$   /\r\nC\r\nC             NWPTYP = NUMBER OF WORDS PER PARAMETER TYPE CODE\r\nC                        INT,   REAL,   BCD,   D.P.,   CMPLX,  D.P.CMPLX\r\n      DATA    NWPTYP/      1,      1,     2,      2,       2,     4   /\r\n      DATA    NBLANK/ 4H    /, NONE/4H(NON,4HE)  /\r\n      DATA    LNKEDT/ 4H  1 ,4H  2 ,4H  3 ,4H  4 ,4H  5 ,4H  6 ,4H  7 ,\r\n     1        4H  8 , 4H  9 ,4H 10 ,4H 11 ,4H 12 ,4H 13 ,4H 14 ,4H 15 /\r\n      DATA    HDG1  / 4HMODU,4HLE -,4H DMA,4HP NA,4HME -,4H MOD,4HULE ,\r\n     1        4HENTR, 4HY - ,4HLINK,4HS MO,4HDULE,4H RES,4HIDES,4H IN ,\r\n     2        4HON  , 16*4H        /\r\n      DATA    HDG2  / 4HINDE,4HX   ,4H OF ,4HMODU,4HLE  ,4H POI,4HNT N,\r\n     1        4HAME , 24*4H        /\r\nC\r\nC     INITIALIZE MACHINE DEPENDENT CONSTANTS FOR XGPI\r\nC     SEE SUBROUTINE XGPIDD FOR DESCRIPTION OF CONSTANTS.\r\nC\r\nC     INITIALIZE  /XGPIC/\r\nC\r\nC     NCPW   = NUMBER OF CHARACTERS PER WORD\r\nC     NBPC   = NUMBER OF BITS PER CHARACTER\r\nC     NWPC   = NUMBER OF WORDS PER CARD = NWPIC\r\nC                 7094         360        1108             6600\r\nC    MASKLO = 017777600000, 7FFF0000, 017777600000, 00000000017777600000\r\nC    ISGNON = 400000000000, 80000000, 400000000000, 40000000000000000000\r\nC    NOSGN  = 377777777777, 7FFFFFFF, 377777777777, 37777777777777777777\r\nC    IALLON = 777777777777, FFFFFFFF, 777777777777, 77777777777777777777\r\nC\r\nC    MASKHI = MASK FOR LOW ORDER 16 BITS AND SIGN BIT = 32767,\r\nC             INITIALIZED IN XGPIDD\r\nC\r\n      NCPW   = XSYS(41)\r\n      NBPC   = XSYS(39)\r\n      NWPC   = NWPIC\r\n      MASKLO = LSHIFT(MASKHI,16)\r\n      ISGNON = LSHIFT(1,XSYS(40)-1)\r\n      NOSGN  = COMPLF(ISGNON)\r\n      IALLON = COMPLF(0)\r\nC\r\nC     GENERATE MASKS ARRAY\r\nC     MASK IS IN 4 PARTS - MASK DESCRIPTION WILL BE GIVEN IN TERMS OF\r\nC                          IBM 360\r\nC     PART 1 - FFOOOOOO,OOFFOOOO,OOOOFFOO,OOOOOOFF\r\nC     PART 2 - COMPLEMENT OF PART 1\r\nC     PART 3 - FFFFFFFF,OOFFFFFF,OOOOFFFF,OOOOOOFF\r\nC     PART 4 - COMPLEMENT OF PART 3\r\nC\r\n      MHIBYT = LSHIFT(IALLON,NBPC*(NCPW-1))\r\n      DO 10 J = 1,NCPW\r\n      MASKS(J) = RSHIFT(MHIBYT,NBPC*(J-1))\r\n      J2 = J + NCPW\r\n      MASKS(J2) = COMPLF(MASKS(J))\r\n      J3 = 2*NCPW + J\r\n      MASKS(J3) = RSHIFT(IALLON,NBPC*(J-1))\r\n      J4 = 3*NCPW + J\r\n      MASKS(J4) = COMPLF(MASKS(J3))\r\n   10 CONTINUE\r\nC\r\nC     INITIALIZE  /XGPID/\r\nC\r\nC                 7094         360        1108             6600\r\nC    ITAPE  = 000000100000, 00008000, 000000100000, 00000000000000100000\r\nC    IAPPND = 010000000000, 40000000, 010000000000, 00000000010000000000\r\nC    INTGR  = 400000000001, 80000001, 400000000001, 40000000000000000001\r\nC    LOSGN  = 000000100000, 00008000, 000000100000, 00000000000000100000\r\nC    NOFLGS = 000377777777, 03FFFFFF, 000377777777, 00000000000377777777\r\nC    SETEOR = 004000000000, 20000000, 004000000000, 00000000004000000000\r\nC    EOTFLG = 010000000000, 40000000, 010000000000, 00000000010000000000\r\nC    IEQFLG = 400000000000, 80000000, 400000000000, 40000000000000000000\r\nC    CPNTRY(3) = CHKPNT MODULE INDEX/TYPE CODE\r\nC    NTRY(6)= 400000000001, 80000001, 400000000001, 40000000000000000001\r\nC    JMP(3) = JUMP MODULE INDEX/TYPE CODE\r\nC\r\n      ITAPE  = LSHIFT(1,15)\r\n      IAPPND = LSHIFT(1,30)\r\n      INTGR  = ORF(ISGNON,1)\r\n      LOSGN  = LSHIFT(1,15)\r\n      NOFLGS = RSHIFT(IALLON,XSYS(40)-26)\r\n      SETEOR = LSHIFT(1,29)\r\n      EOTFLG = LSHIFT(1,30)\r\n      IEQFLG = ISGNON\r\nC\r\nC     PRINT MPL CONTENTS IF DIAG 31 IS ON\r\nC\r\n      ASSIGN 40 TO IRTN\r\n      CALL SSWTCH (31,L)\r\n      IF (L .NE. 0) CALL MPLPRT\r\nC\r\nC     GET CHKPNT MODULE INDEX\r\nC\r\n   20 MODIDX = 1\r\n      MPLPNT = 1\r\n   30 IF (MPL(MPLPNT+1).EQ.MODNAM(1) .AND. MPL(MPLPNT+2).EQ.MODNAM(2))\r\n     1    GO TO IRTN, (40,50)\r\n      MODIDX = MODIDX + 1\r\n      MPLPNT = MPLPNT + MPL(MPLPNT)\r\n      IF (MPLPNT.GT.LMPL .OR. MPL(MPLPNT).LT.1) GO TO 1240\r\n      GO TO 30\r\n   40 CPNTRY(3) = LSHIFT(MODIDX,16) + 4\r\nC\r\nC     GET JUMP MODULE INDEX\r\nC\r\n      ASSIGN 50 TO IRTN\r\n      MODNAM(1) = JMP(4)\r\n      MODNAM(2) = JMP(5)\r\n      GO TO 20\r\n   50 JMP(3)    = LSHIFT(MODIDX,16) + 3\r\n      CPNTRY(6) = ORF(ISGNON,1)\r\n      JMP(6)    = CPNTRY(6)\r\nC\r\nC     COMPUTE LENGTH OF OPENCORE (SUBTRACT OFF SOME FOR UTILITY BUFFERS)\r\nC\r\n      LOPNCR = KORSZ(OPNCOR) - XSYS(1) - 1\r\n      UTLTOP = LOPNCR + 1\r\n      UTLBOT = UTLTOP + XSYS(1) - 1\r\nC\r\nC     INITIALIZE  /XGPI2/ (I.E. MPL TABLE)\r\nC\r\nC     LOAD FLOATING POINT NUMBERS INTO MPL FROM ARRAY IN /XGPI2X/\r\nC\r\n      MPLPNT = 1\r\n   60 IF (MPL(MPLPNT) .LT. 4) GO TO 150\r\n      IF (MPL(MPLPNT+3).LT.1 .OR. MPL(MPLPNT+3).GT.2) GO TO 150\r\nC\r\nC     MPL ENTRY HAS MODULE TYPE CODE 1 OR 2 - PROCESS PARAMETER SECTION.\r\nC\r\n      I = MPLPNT + 7\r\nC\r\nC     CHECK FOR END OF MPL ENTRY\r\nC\r\n   70 IF (I .GE. MPLPNT+MPL(MPLPNT)) GO TO 150\r\nC\r\nC     CHECK VALIDITY OF PARAMETER TYPE CODE\r\nC\r\n      J = IABS(MPL(I))\r\n      IF (J.LT.1 .OR. J.GT.6) GO TO 1230\r\n      L = 1\r\nC\r\nC     SEE IF PARAMETER VALUE FOLLOWS TYPE CODE.\r\nC\r\n      IF (MPL(I) .LT. 0) GO TO 100\r\nC\r\nC     GET LENGTH OF PARAMETER VALUE TO BE LOADED.\r\nC\r\n      L = NWPTYP(J)\r\nC\r\nC     A VALUE FOLLOWS IF TYPE CODE IS INTEGER OR BCD - OTHERWISE AN\r\nC     INDEX INTO A TABLE CONTAINING THE VALUE FOLLOWS THE TYPE CODE.\r\nC\r\n      IF (J.EQ.1 .OR. J.EQ.3) GO TO 90\r\nC\r\nC     GET INDEX INTO VALUE TABLE - NOTE INDEX MUST BE CONVERTED FROM\r\nC     DOUBLE PRECISION INDEX TO ONE DIMENSIONAL INDEX.\r\nC\r\n      M  = MPL(I+1)*2 - 1\r\n      DO 80 K = 1,L\r\n      N  = K + M - 1\r\n      K1 = I + K\r\n   80 MPL(K1) = IXX(N)\r\n   90 I  = I + 1\r\nC\r\nC     INCREMENT TO NEXT PARAMETER TYPE CODE.\r\nC\r\n  100 I  = I + L\r\n      GO TO 70\r\nC\r\nC     GET NEXT MPL ENTRY\r\nC\r\n  150 IF (MPL(MPLPNT)+MPLPNT .GT. LMPL) GO TO 160\r\n      MPLPNT = MPLPNT + MPL(MPLPNT)\r\n      IF (MPL(MPLPNT) .LT. 1) GO TO 1240\r\n      GO TO 60\r\n  160 CONTINUE\r\nC\r\nC     INITIALIZE /XLINK/\r\nC\r\nC     MAXLNK = MAXIMUM NUMBER OF LINKS THAT CAN BE HANDLED. IF MAXLNK IS\r\nC              INCREASED THEN LNKEDT TABLE MUST BE INCREASED.\r\nC              (MAXLNK WAS SET IN SEMDBD ROUTINE)\r\nC\r\nC     MOVE LINK TABLE INTO OPEN CORE\r\nC\r\n      LNKTOP = 1\r\n      LNKBOT = LLINK + LNKTOP - 5\r\n      DO 200 J = 1,LLINK\r\n  200 LNKSPC(J) = LINK(J)\r\nC\r\nC     UPDATE LNKSPC TABLE IF SENSE SWITCH 29 IS ON\r\nC\r\n      CALL SSWTCH (29,L)\r\n      IF (L .EQ. 0) GO TO 600\r\n      ASSIGN 280 TO IRTN\r\nC\r\nC     PROCESS INPUT CARD (NOTE-DO NOT USE VARIABLES I,J OR M)\r\nC\r\n  210 CALL PAGE1\r\n      NLINES = NLINES + 2\r\n      WRITE  (OPTAP,220)\r\n  220 FORMAT (42H0LINK SPECIFICATION TABLE UPDATE DECK ECHO )\r\n  230 NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) GO TO 210\r\n      CALL XREAD (*240,INBUFF)\r\n      GO TO 260\r\n  240 CALL PAGE2 (2)\r\n      WRITE  (OPTAP,250) UFM\r\n  250 FORMAT (A23,' 220, MISSING ENDDATA CARD.')\r\n      GO TO 1250\r\n  260 CONTINUE\r\n      WRITE  (OPTAP,270) INBUFF\r\n  270 FORMAT (5X,20A4)\r\nC\r\nC     CHECK FOR COMMENT CARD\r\nC\r\n      IF (KHRFN1(0,1,INBUFF(1),1) .EQ. KHRFN1(0,1,DOLSGN,1)) GO TO 230\r\nC\r\nC     CONVERT CARD IMAGE\r\nC\r\n      CALL XRCARD (UTILTY(UTLTOP),UTLBOT-UTLTOP+1,INBUFF)\r\n      IF (UTILTY(UTLTOP) .EQ. 0) GO TO 230\r\nC\r\nC     CHECK FOR ENDDATA CARD\r\nC\r\n      IF (UTILTY(UTLTOP+1).EQ.ENDDTA(1) .AND.\r\n     1    UTILTY(UTLTOP+2).EQ.ENDDTA(2)) GO TO 380\r\n      GO TO IRTN, (280,330)\r\nC\r\nC     CHECK FORMAT OF CARD\r\nC\r\n  280 IF (UTILTY(UTLTOP) .LT. 2) GO TO 1220\r\nC\r\nC     SEE IF MODULE NAME IS IN LNKSPC TABLE\r\nC\r\n      DO 290 I = LNKTOP,LNKBOT,5\r\n      IF (LNKSPC(I  ).EQ.UTILTY(UTLTOP+1) .AND.\r\n     1    LNKSPC(I+1).EQ.UTILTY(UTLTOP+2)) GO TO 300\r\n  290 CONTINUE\r\nC\r\nC     MODULE IS NOT IN LNKSPC - MAKE NEW ENTRY\r\nC\r\n      LNKBOT = LNKBOT + 5\r\n      IF (LNKBOT .GT. LOPNCR) GO TO 1200\r\n      I = LNKBOT\r\nC\r\nC     TRANSFER MODULE NAME AND ENTRY POINT TO LNKSPC\r\nC\r\n  300 LNKSPC(I  ) = UTILTY(UTLTOP+1)\r\n      LNKSPC(I+1) = UTILTY(UTLTOP+2)\r\n      LNKSPC(I+2) = UTILTY(UTLTOP+3)\r\n      LNKSPC(I+3) = UTILTY(UTLTOP+4)\r\nC\r\nC     CHECK FOR DELETE OR NONE\r\nC\r\n      IF (UTILTY(UTLTOP  ) .EQ.      2) GO TO 320\r\n      IF (UTILTY(UTLTOP+5) .EQ. DELETE) GO TO 310\r\n      IF (UTILTY(UTLTOP+5) .NE.  XNONE) GO TO 1220\r\nC\r\nC     MODULE HAS NO ENTRY POINT\r\nC\r\n      LNKSPC(I+2) = NONE(1)\r\n      LNKSPC(I+3) = NONE(2)\r\n      M = 0\r\n      J = 7\r\n      IF (UTILTY(UTLTOP+7) .NE. -1) J = 9\r\n      GO TO 330\r\nC\r\nC     MODULE IS TO BE DELETED\r\nC\r\n  310 LNKSPC(I) = 0\r\n      GO TO 370\r\nC\r\nC     GENERATE A LINK FLAG WORD\r\nC\r\n  320 M = 0\r\n      J = 5\r\nC\r\nC     CHECK MODE WORD\r\nC\r\n  330 K = UTLTOP + J\r\n      IF (UTILTY(K)) 340,350,360\r\nC\r\nC     INTEGER FOUND\r\nC\r\n  340 IF (UTILTY(K) .NE. -1) GO TO 1220\r\n      M = ORF(M,LSHIFT(1,UTILTY(K+1)-1))\r\n      J = J + 2\r\n      GO TO 330\r\nC\r\nC     CONTINUE MODE FOUND\r\nC\r\n  350 J = 1\r\n      ASSIGN 330 TO IRTN\r\n      GO TO 230\r\nC\r\nC     END OF INSTRUCTION FOUND\r\nC\r\nC     TRANSFER GENERATED LINK WORD TO LNKSPC ENTRY\r\nC\r\n  360 IF (UTILTY(K) .NE. NOSGN) GO TO 1220\r\n      J = I + 4\r\n      LNKSPC(J) = M\r\nC\r\nC     PROCESS NEXT INPUT CARD\r\nC\r\n  370 ASSIGN 280 TO IRTN\r\n      GO TO 230\r\nC\r\nC     PUNCH OUT LNKSPC TABLE IF SENSE SWITCH 28 IS ON.\r\nC\r\n  380 CALL SSWTCH (28,L)\r\n      IF (L .EQ. 0) GO TO 600\r\nC\r\nC     ELIMINATE DELETED LNKSPC ENTRIES\r\nC\r\n  390 DO 400 I = LNKTOP,LNKBOT,5\r\n      IF (LNKSPC(I) .EQ. 0) GO TO 410\r\n  400 CONTINUE\r\n      GO TO 430\r\n  410 K = I + 4\r\n      N = LNKBOT - 1\r\n      DO 420 M = I,K\r\n      N = N + 1\r\n      LNKSPC(M) = LNKSPC(N)\r\n  420 CONTINUE\r\n      LNKBOT = LNKBOT - 5\r\n      GO TO 390\r\n  430 CALL PAGE2 (2)\r\n      WRITE  (OPTAP,440)\r\n  440 FORMAT (98H0***USER REQUESTS LINK SPECIFICATION TABLE BE PUNCHED O\r\n     1UT FOR USE IN RECOMPILING SUBROUTINE XLNKDD )\r\n      WRITE  (LPCH,450)\r\n  450 FORMAT (70(1H*),/38HLINK SPEC. TABLE FOR SUBROUTINE XLNKDD )\r\n      J  = LNKBOT - LNKTOP + 5\r\n      N  = J/90\r\n      WRITE  (LPCH,460) J\r\n  460 FORMAT (6X,16HDIMENSION LINK (,I4,1H))\r\n      K  = 90\r\n      IF (N .EQ. 0) GO TO 490\r\n      DO 480 I = 1,N\r\n      I10= I/10\r\n      I1 = I - 10*I10\r\n      WRITE  (LPCH,470) I10,I1,K\r\n  470 FORMAT (5X,2H1,,9X,4HLINK,2I1,1H(,I4,1H))\r\n  480 CONTINUE\r\n  490 K  = MOD(J,90)\r\n      I  = N + 1\r\n      I10= I/10\r\n      I1 = I - 10*I10\r\n      IF (K .GT. 0) WRITE (LPCH,470) I10,I1,K\r\n      WRITE  (LPCH,500) J\r\n  500 FORMAT (6X,28HCOMMON/XLKSPC/ LLINK, KLINK(,I4,1H),/,\r\n     1        6X,34HEQUIVALENCE (LINK(   1),LINK01(1)) )\r\n      IF (K .GT. 0) N = N + 1\r\n      IF (N .LT. 2) GO TO 530\r\n      DO 520 I = 2,N\r\n      I10= I/10\r\n      I1 = I - 10*I10\r\n      K  = 90*(I-1) + 1\r\n      WRITE  (LPCH,510) K,I10,I1\r\n  510 FORMAT (5X,2H1,,11X,6H(LINK( ,I4,6H),LINK ,2I1,4H(1)))\r\n  520 CONTINUE\r\n  530 CONTINUE\r\n      J  = LNKTOP - 1\r\n      M  = 0\r\n  540 J  = J + 1\r\n      M  = M + 1\r\n      M10= M/10\r\n      M1 = M - 10*M10\r\n      K  = MIN0(J+89,LNKBOT+4)\r\n      WRITE  (LPCH,550) M10,M1,(LNKSPC(I),I=J,K)\r\n  550 FORMAT (6X,9HDATA LINK,2I1,1H/, /,\r\n     1        5X,4H1 4H,A4,3H,4H,A4,4H, 4H,A4,3H,4H,A4,1H,,I6,/,\r\n     2       (5X,4H1,4H,A4,3H,4H,A4,4H, 4H,A4,3H,4H,A4,1H,,I6))\r\n      WRITE  (LPCH,560)\r\n  560 FORMAT (5X,2H1/)\r\n      J = K\r\n      IF (J .LT. LNKBOT+4) GO TO 540\r\n      J = LNKBOT - LNKTOP + 5\r\n      WRITE  (LPCH,570) J\r\n  570 FORMAT (6X,8HLLINK = ,I4)\r\nC\r\nC     INITIALIZE PAGE HEADING\r\nC\r\n  600 DO 610 I = 1,32\r\n      PGHDG(I+ 96) = HDG1(I)\r\n      PGHDG(I+128) = HDG2(I)\r\n  610 PGHDG(I+160) = NBLANK\r\n      PGHDG(  113) = MCHNAM\r\n      NLINES = NLPP\r\nC\r\nC     INITIALIZE O/P BUFFER PARAMETERS - O/P BUFFERS ARE IN OPEN CORE\r\nC\r\n      OPBTOP = LNKBOT + 5\r\n      NXTLIN = OPBTOP - 20\r\nC\r\nC     GET FIRST/NEXT MPL ENTRY\r\nC\r\n      MPLPNT = 1\r\n      MODIDX = 1\r\nC\r\nC     CHECK FOR DECLARATIVE OR NULL ENTRY\r\nC\r\n  620 IF (MPL(MPLPNT+3).GT.4 .OR. MPL(MPLPNT+3).LT.1) GO TO 630\r\n      GO TO 700\r\n  630 IF (MPL(MPLPNT) .LT. 1) GO TO 800\r\n      MPLPNT = MPLPNT + MPL(MPLPNT)\r\n      MODIDX = MODIDX + 1\r\n      IF (MPLPNT .LT. LMPL) GO TO 620\r\n      GO TO 800\r\nC\r\nC     PREPARE TO GENERATE NEXT LINE OF OUTPUT\r\nC\r\n  700 NXTLIN = NXTLIN + 20\r\n      I  = NXTLIN + 19\r\n      IF (I .GT. LOPNCR) GO TO 1240\r\n      DO 710 J = NXTLIN,I\r\n  710 OPBUFF(J) = NBLANK\r\nC\r\nC     MODULE INDEX INTO WORD 1 OF O/P ENTRY\r\nC\r\n      OPBUFF(NXTLIN) = MODIDX\r\nC\r\nC     DMAP NAME TO WORDS 2,3 OF O/P ENTRY\r\nC\r\n      OPBUFF(NXTLIN+1) = MPL(MPLPNT+1)\r\n      OPBUFF(NXTLIN+2) = MPL(MPLPNT+2)\r\nC\r\nC     GET ENTRY POINT NAME AND ENTER IN WORDS 4,5 OF O/P ENTRY\r\nC\r\n      OPBUFF(NXTLIN+3) = NONE(1)\r\n      OPBUFF(NXTLIN+4) = NONE(2)\r\n      DO 720 I = LNKTOP,LNKBOT,5\r\n      IF (LNKSPC(I).EQ.MPL(MPLPNT+1) .AND. LNKSPC(I+1).EQ.MPL(MPLPNT+2))\r\n     1    GO TO 730\r\n  720 CONTINUE\r\n      GO TO 630\r\n  730 OPBUFF(NXTLIN+3) = LNKSPC(I+2)\r\n      OPBUFF(NXTLIN+4) = LNKSPC(I+3)\r\nC\r\nC     EXAMINE LINK FLAG\r\nC\r\n      L = LNKSPC(I+4)\r\n      DO 740 J = 1,MAXLNK\r\n      IF (ANDF(L,LSHIFT(1,J-1)) .EQ. 0) GO TO 740\r\nC\r\nC     MODULE IS IN LINK J - SET BIT J IN MAIN LINK TABLE AND O/P BUFFER\r\nC     MAKE SURE LINK TABLE IS LONG ENOUGH.\r\nC\r\n      IF (LXLINK .LT. MODIDX) GO TO 1210\r\n      MLINK(MODIDX) = ORF(MLINK(MODIDX),LSHIFT(1,J-1))\r\n      K = NXTLIN + J + 4\r\n      OPBUFF(K) = LNKEDT(J)\r\n  740 CONTINUE\r\n      GO TO 630\r\nC\r\nC     SEE IF O/P BUFFER IS TO BE PRINTED (I.E. SENSE SWITCH 31 IS ON)\r\nC\r\n  800 CALL SSWTCH (31,L)\r\n      IF (L .NE. 0) GO TO 810\r\nC\r\nC     PRINT O/P BUFFER IF LINK DRIVER PUNCHED O/P  REQUESTED(I.E. SENSE\r\nC     SWITCH 30 IS ON)\r\nC\r\n      CALL SSWTCH (30,L)\r\n      IF (L .EQ. 0) RETURN\r\n  810 DO 830 I = OPBTOP,NXTLIN,20\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      J = I + 19\r\n      WRITE  (OPTAP,820) (OPBUFF(K),K=I,J)\r\n  820 FORMAT (5X,I6,3X,2A4,4X,2A4,7X,15A4)\r\n  830 CONTINUE\r\nC\r\nC     SEE IF ANY DRIVERS SHOULD BE PUNCHED  (I.E. SENSE SWITCH 30 ON)\r\nC\r\n      CALL SSWTCH (30,L)\r\n      IF (L .EQ. 0) RETURN\r\n      CALL PAGE1\r\n      NLINES = NLINES + 2\r\n      WRITE  (OPTAP,910)\r\n  910 FORMAT ('0USER REQUESTS PUNCHED OUTPUT FOR THE FOLLOWING LINK ',\r\n     1        'DRIVER SUBROUTINES')\r\n      WRITE  (LPCH,920)\r\n  920 FORMAT (70(1H*), /,' INSERT FOLLOWING FORTRAN CODE IN RESPECTIVE',\r\n     1       ' LINK DRIVER ROUTINES')\r\n      DO 1170 J = 1,MAXLNK\r\n      CALL SSWTCH (J,L)\r\n      IF (L .EQ. 0) GO TO 1170\r\n      J10= J/10\r\n      J1 = J - 10*J10\r\n      WRITE  (LPCH,930) J10,J1,J\r\n  930 FORMAT (70(1H*), /6X,15HSUBROUTINE XSEM,2I1, /6X,12HDATA THISLK,\r\n     1        /,I2,1H/)\r\n      WRITE  (LPCH,940) J10,J1\r\n  940 FORMAT (6X,21HDATA SUBNAM/4HXSEM,4H,2I1,3H  /)\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      WRITE  (OPTAP,950) J10,J1\r\n  950 FORMAT (9H0    XSEM,2I1)\r\nC\r\nC     USER REQUESTS PUNCHED O/P FOR LINK J\r\nC     SEARCH LINK TABLE FOR MODULES RESIDING IN LINK J\r\nC\r\n      FRSTIN = 0\r\n      L      = 0\r\n      LASTIN = 0\r\n      NXTGRP = 1000\r\n      DO  1100 I = 1,LXLINK\r\n      LL(L+1) = 940\r\n      IF (ANDF(MLINK(I),LSHIFT(1,J-1)) .NE. 0) LL(L+1) = 2000 + I\r\n      IF (I - LASTIN) 980,990,960\r\n  960 IF (FRSTIN.LE.0 .AND. LL(L+1).EQ.940) GO TO 1100\r\n      FRSTIN = I\r\n      LASTIN = MIN0(I+180,LXLINK)\r\n      LSTGRP = NXTGRP\r\n      NXTGRP = NXTGRP - 5\r\n  970 FORMAT (I5,8H GO TO (  )\r\n  980 L = L + 1\r\n      IF (LL(L) .NE. 940) GO TO 1000\r\nC\r\nC     ONLY TWO CONSECUTIVE BRANCHES TO 940 IN COMPUTED  -GO TO -\r\nC\r\n      IF (LAST+2 .GE. I) GO TO 1010\r\n      LASTIN = LAST\r\n      L      = MAX0(0,L-1+LASTIN-I)\r\n  990 LL(15) = LL(L+1)\r\n      IF (L) 1050,1050,1020\r\n 1000 LAST = I\r\n 1010 IF (L .LT. 13) GO TO 1100\r\n 1020 IF (FRSTIN .EQ. LL(1)-2000) WRITE (LPCH,970) NXTGRP\r\n      LK = MIN0(L,10)\r\n      WRITE  (LPCH,1030) (LL(K),K=1,LK)\r\n 1030 FORMAT (5X,1H1,10(I5,1H,))\r\n      L  = L - LK\r\n      DO 1040 K = 1,L\r\n 1040 LL(K) = LL(K+10)\r\n      IF (I .LT. LASTIN) GO TO 1100\r\n 1050 LAST = NXTGRP + 15\r\n      IF (I .EQ. LXLINK) LAST = 970\r\n      IF (FRSTIN .EQ. LASTIN) GO TO 1070\r\n      FRSTIN = FRSTIN - 1\r\n      WRITE  (LPCH,1060) LL(15),LSTGRP,LASTIN,LAST,FRSTIN,NXTGRP\r\n 1060 FORMAT (5X, 1H1, I5, 4H ),I ,/,\r\n     1        I5, 14H IF (MODX .GT. ,I3, 8H) GO TO ,I5, /,\r\n     1        6X, 10HI = MODX - , I3, /,\r\n     1        6X, 17HIF (I ) 940, 940, ,I5)\r\n      GO TO 1090\r\n 1070 WRITE  (LPCH,1080) LSTGRP,FRSTIN,LL(15),LAST\r\n 1080 FORMAT (I5,12H IF (MODX - ,I3,7H ) 940,,I5,1H,,I5)\r\n 1090 NXTGRP = LAST\r\n      FRSTIN = -1\r\n 1100 CONTINUE\r\nC\r\nC     PUNCH OUT GO TO AND IF STATEMENTS FOR LAST GROUP OF MODULES IN\r\nC     LINK J.\r\nC\r\n      IF (FRSTIN .NE. 0) GO TO 1120\r\nC\r\nC     CANNOT FIND ANY MODULES IN THIS LINK\r\nC\r\n      NLINES = NLINES + 2\r\n      WRITE  (OPTAP,1110) J\r\n 1110 FORMAT (1H0,10X,29HTHERE ARE NO MODULES IN LINK  ,I3)\r\n      GO TO 1170\r\n 1120 IF (LAST .NE. 970) WRITE (LPCH,1130) NXTGRP\r\n 1130 FORMAT (I5,34H IF (MODX - LXLINK ) 940, 940, 970 )\r\nC\r\nC     SEARCH O/P BUFFER FOR MODULES RESIDING IN LINK J\r\nC\r\n      DO 1160 I = OPBTOP,NXTLIN,20\r\n      K = I + 4 + J\r\n      IF (OPBUFF(K) .EQ. NBLANK) GO TO 1160\r\nC\r\nC     THIS MODULE IS IN LINK J - PUNCH OUT CALL AND GO TO STATEMENT\r\nC\r\n      N = 2000 + OPBUFF(I)\r\n      WRITE  (LPCH,1150) N,OPBUFF(I+3),OPBUFF(I+4)\r\n 1150 FORMAT (I5,1X,5HCALL ,2A4,/6X,8HGO TO 10)\r\n 1160 CONTINUE\r\n 1170 CONTINUE\r\n      J = LLINK/8\r\n      IF (J .GT. LXLINK) CALL PAGE2 (-3)\r\n      IF (J .GT. LXLINK) WRITE (OPTAP,1180) SWM,J,LXLINK\r\n 1180 FORMAT (A27,' 54, THE NUMBER OF MODULES SPECIFIED IN THE LINK ',\r\n     1       'SPECIFICATION TABLE,',I5, /20X,'EXCEEDS THE ALLOWABLE ',\r\n     2       'NUMBER SPECIFIED BY SEMDBD,',I5,1H.)\r\n      CALL PEXIT\r\nC\r\nC     ERROR MESSAGES -\r\nC\r\nC     NOT ENOUGH OPEN CORE\r\nC\r\n 1200 CALL XGPIDG (51,LNKBOT-LOPNCR,0,0)\r\n      GO TO 1250\r\nC\r\nC     NAMED COMMON /XLINK/ IS TOO SMALL\r\nC\r\n 1210 CALL XGPIDG (52,0,0,0)\r\n      RETURN\r\nC\r\nC     INCORRECT FORMAT IN ABOVE CARD.\r\nC\r\n 1220 CALL XGPIDG (53,0,0,0)\r\n      ASSIGN 280 TO IRTN\r\n      GO TO 230\r\nC\r\nC     ERROR IN PARAMETER SECTION OF MPL TABLE\r\nC\r\n 1230 CALL XGPIDG (49,MPLPNT,MPL(MPLPNT+1),MPL(MPLPNT+2))\r\n      GO TO 150\r\nC\r\nC     FATAL ERROR IN MPL TABLE\r\nC\r\n 1240 CALL XGPIDG (49,MPLPNT,MPL(MPLPNT+1),MPL(MPLPNT+2))\r\n      GO TO 1250\r\nC\r\nC     FATAL ERROR EXIT\r\nC\r\n 1250 XSYS(3) = 3\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xgpidd.f",
    "content": "      SUBROUTINE XGPIDD\r\nC\r\nC     THIS SUBROUTINE DEFINES ALL NAMED COMMON FOR SUBROUTINES\r\nC     XGPI,XOSGEN,XLNKHD,XIOFL,XPARAM,XSCNDM,XFLORD,XFLDEF AND XGPIDG.\r\nC     **NOTE - THIS PROGRAM MUST BE LOADED BEFORE ANY OF THE ABOVE.\r\nC\r\n      INTEGER  BCDCNT,CPNTRY,DIAG4,DIAG14,DIAG17,DIAG25,DMAP,DMPCNT,\r\n     1         DMPPNT,EOTFLG,IHOL(22),JMP,NAMOPT(26),PVT,SETEOR,SOL,\r\n     2         START,SUBSET\r\nC\r\nC     NAMED COMMON AREAS /XGPIC/ AND /XGPID/ CONTAIN\r\nC     MACHINE DEPENDENT DATA\r\nC\r\nC     COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\nC                        ** CONTROL CARD NAMES **\r\nC    1                NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\nC                        ** DMAP CARD NAMES **\r\nC    2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\nC    3                NCHKPT,NPURGE,NEQUIV,\r\nC      ** THE FOLLOWING CONSTANTS ARE INITIALIZED BY XGPIBS ROUTINE **\r\nC    4                NCPW,NBPC,NWPC,\r\nC    5                MASKLO,ISGNON,NOSGN,IALLON,MASKS(40)\r\nC\r\n      COMMON /XGPIC / ICOLD,IHOLC(21),\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(40)\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,\r\n     1                ISAVE,ITAPE,IAPPND,INTGR,LOSGN,\r\n     2                NOFLGS,SETEOR,EOTFLG,IEQFLG,\r\n     3                CPNTRY(7),JMP(7)\r\nC\r\nC     ****** /XGPI1 / *******\r\nC\r\nC     COMMON /XGPI1 / LOSCAR,OSPRC,OSBOT,OSPNT,OSCAR(1)\r\nC\r\nC     NOTE - /XGPI1 / MUST BE LOADED AT THE END OF LONGEST LINK IN XGPI\r\nC                     BECAUSE IT DEFINES THE START OF OPEN CORE.\r\nC\r\nC     OSCAR  = OPERATION SEQUENCE CONTROL ARRAY\r\nC     LOSCAR = LENGTH OF OSCAR ARRAY\r\nC     OSPRC  = POINTER TO PRECEDING OSCAR ENTRY\r\nC     OSBOT  = POINTER TO LAST OSCAR ENTRY\r\nC     OSPNT  = POINTER TO PRESENT OSCAR ENTRY BEING PROCESSED\r\nC\r\nC     ***ORDER OF TABLES IN OPEN CORE DURING PHASE 1 OF COMPILATION.\r\nC        EQUIVALENCE (OSCAR,DMPCRD,LBLTBL,MED,IBUFR)\r\nC\r\nC     ***ORDER OF TABLES IN OPEN CORE DURING PHASE 2 OF COMPILATION.\r\nC        EQUIVALENCE (OSCAR,PTDIC,ICPDPL,MED,IBUFR)\r\nC     IBUFR  = GINO BUFFER AREA LOCATED AT HIGH ADDRESS END OF OPEN\r\nC              CORE.\r\nC     DMPCRD = DMAP SEQUENCE CARD IMAGE BUFFER\r\nC     PTDIC  = PROBLEM TAPE CHECKPOINT DICTIONARY\r\nC     MED    = MODULE EXECUTION DECISION TABLE FOR RESTARTS IN RIGID\r\nC              FORMATS\r\nC     ICPDPL = LIST OF CHECKPOINT FILES TO BE WRITTEN ON DATA POOL FROM\r\nC              OLD  PROBLEM TAPE IN ORDER TO RESTART PROBLEM.\r\nC     LBLTBL = TABLE OF LABEL NAMES AND PARAMETER NAMES REFERENCED BY\r\nC              LABEL,COND,PURGE AND EQUIV DMAP INSTRUCTIONS.\r\nC\r\n      COMMON /XGPI3 / PVT(200)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,IDMPNT,DMPPNT,BCDCNT,\r\n     1                LENGTH,ICRDTP,ICHAR,NEWCRD,MODIDX,LDMAP,ISAVDW,\r\n     2                DMAP(200)\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,\r\n     1                IESTIM,ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17,\r\n     1                DIAG4,DIAG25,IFIRST,IBUFF(20)\r\n      COMMON /XGPI7 / IFPNT,LFILE,IFILE(130)\r\n      COMMON /XGPI8 / ICPTOP,ICPBOT,LCPDPL\r\n      COMMON /MODDMP/ IFLG(6),NMPT(26)\r\n      DATA    NAMOPT/ 4HGO  ,4H    ,4HNOGO,4H    ,4HERR ,4H    ,4HLIST,\r\n     1                4H    ,4HNOLI,4HST  ,4HDECK,4H    ,4HNODE,4HCK  ,\r\n     2                4HREF ,4H    ,4HNORE,4HF   ,4HOSCA,4HR   ,4HNOOS,\r\n     3                4HCAR ,4HALL ,4H    ,4HEXCE,4HPT  /\r\n      DATA    IHOL  / 4H/   ,4H=   ,4H    ,4HXEQU,4HMED ,4HSOL ,4HDMAP,\r\n     1                4HESTI,4HM   ,4HEXIT,4HBEGI,4HEND ,4HJUMP,4HCOND,\r\n     2                4HREPT,4HTIME,4HSAVE,4HOUTP,4HCHKP,4HPURG,4HEQUI,\r\n     3                4HXCHK/\r\n      DATA    IPLS  / 1H+   /\r\nC\r\nC     ****** /XGPIC / *******\r\nC\r\nC     NCPW   = NUMBER OF CHARACTERS PER WORD.\r\nC     NBPC   = NUMBER OF BITS PER CHARACTER.\r\nC     NWPC   = NUMBER OF WORDS PER INPUT CARD (72 CHARACTERS).\r\nC     MASKHI = MASK OUT ALL BITS EXCEPT LOW ORDER 15 BITS\r\nC            = 2**15 - 1\r\nC     MASKLO = MASK FOR HI ORDER 16 BITS, SIGN BIT NOT INCLUDED\r\nC            = LSHIFT(MASKHI,16)\r\nC     ISGNON = MASK OUT ALL BUT SIGN BIT\r\nC            = LSHIFT(1,NBPW-1)\r\nC     NOSGN  = MASK OUT ONLY SIGN BIT\r\nC            = COMPLF(ISGNON)\r\nC     IALLON = ALL BITS ON\r\nC            = COMPLF(0)\r\nC     MASKS  = TABLE OF MASKS FOR MASKING OUT VARIOUS CHARACTERS OF A\r\nC              WORD. TABLE LENGTH = 4*NCPW (40 MAX.)\r\nC\r\nC     DATA     ICOLD /1     /, ISLSH /4H/   /, IEQUL /4H=   /,\r\nC    1         NXEQUI/4HXEQU/, NMED  /4HMED /, NSOL  /4HSOL /,\r\nC    2         NDMAP /4HDMAP/, NESTM1/4HESTI/, NESTM2/4HM   /,\r\nC    3         NEXIT /4HEXIT/, NBEGIN/4HBEGI/, NEND  /4HEND /,\r\nC    3         NJUMP /4HJUMP/, NCOND /4HCOND/, NBLANK/4H    /,\r\nC    4         NREPT /4HREPT/, NTIME /4HTIME/, NSAVE /4HSAVE/,\r\nC    5         NCHKPT/4HCHKP/, NPURGE/4HPURG/, NEQUIV/4HEQUI/,\r\nC    6         MASKHI/32767 /, NOUTPT/4HOUTP/\r\nC\r\n      ICOLD  = 1\r\n      MASKHI = 32767\r\nC              2**15 - 1\r\n      DO 5 I = 1,21\r\n    5 IHOLC(I) = IHOL(I)\r\nC\r\nC     ****** /XGPID / *******\r\nC\r\nC     ICST,IUNST,IMST = COLD,UNMODIFIED,MODIFIED START CODES\r\nC     IHAPP,IDSAPP,IDMAPP = HEAT,DISPLACEMENT,DMAP APPROACH CODES\r\nC     ** THE FOLLOWING CONSTANTS ARE INITIALIZED IN XGPIBS ROUTINE **\r\nC     INTGR  = INTEGER TYPE CODE RETURNED BY XSCNDM\r\nC     ISAVE,ITAPE,IAPPND = FLAGS USED IN /XGPI7/\r\nC     MODFLG = PARAM MODIFY FLAG IN VPS\r\nC     LOSGN  = SIGN BIT OF LOW ORDER 16 BITS\r\nC     NOFLGS = MASK OUT FLAGS USED IN PTDIC TABLE AND ICPDPL\r\nC     SETEOR = END OF RECORD FLAG IN PTDIC,ICPDPL TABLES\r\nC     EOTFLG = END OF TAPE FLAG   IN PTDIC,ICPDPL TABLES\r\nC     IEQFLG = EQUIVALENCE FLAG   IN PTDIC,ICPDPL,DPL,FIAT TABLES\r\nC     CPNTRY = TABLE CONTAINING HEADER SECTION OF CHECKPOINT OSCAR ENTRY\r\nC     JMP    = TABLE CONTAINING JUMP OSCAR ENTRY TO BE INSERTED\r\nC\r\nC     DATA  ICST  /1/, IUNST/2/, IMST/3/, IDMAPP/1/, ISAVE/1/,\r\nC    1      CPNTRY/6,2,0,4HXCHK, 4H    ,  0,0/,\r\nC    2      JMP   /7,3,0,4HJUMP, 4H    ,  0,0/\r\nC\r\n      ICST   = 1\r\n      IUNST  = 2\r\n      IMST   = 3\r\n      IDMAPP = 1\r\n      ISAVE  = 1\r\n      JMP(1) = 7\r\n      JMP(2) = 3\r\n      JMP(3) = 0\r\n      JMP(4) = IHOL(13)\r\n      JMP(5) = IHOL( 3)\r\n      JMP(6) = 0\r\n      JMP(7) = 0\r\n      CPNTRY(1) = 6\r\n      CPNTRY(2) = 2\r\n      CPNTRY(3) = 0\r\n      CPNTRY(4) = IHOL(22)\r\n      CPNTRY(5) = IHOL( 3)\r\n      CPNTRY(6) = 0\r\n      CPNTRY(7) = 0\r\nC\r\nC     ****** /XGPI3 / *******\r\nC\r\nC     PVT = PARAMETER VALUE TABLE\r\nC     DATA  PVT/200,2,0,0,1,195*0/\r\nC\r\n      PVT(1) = 200\r\n      PVT(2) = 2\r\n      DO 10 I = 3,200\r\n   10 PVT(I) = 0\r\n      PVT(5) = 1\r\nC\r\nC     ****** /XGPI4 / *******\r\nC\r\nC     IRTURN = RETURN CODE USED FOR ALTERNATE RETURNS\r\nC     INSERT = -1  INDICATES DMAP INSTRUCTION IS TO BE DELETED.\r\nC            =  0  PROCESS DMAP INSTRUCTION FROM MAIN STREAM.\r\nC            =  1  INSERT DMAP INSTRUCTION FROM ALTER FILE.\r\nC     ISEQN  = NEXT OSCAR SEQUENCE NUMBER TO BE ASSIGNED.\r\nC     DMPCNT = DMAP INSTRUCTION COUNTER\r\nC     IDMPNT = POINTER TO NEXT ITEM TO BE SCANNED IN DMAP ARRAY\r\nC     DMPPNT = POINTER TO ITEM IN DMAP ARRAY RETURNED BY XSCNDM ROUTINE\r\nC     BCDCNT = NUMBER OF BCD ENTRIES REMAINING IN DMAP ARRAY BEFORE MODE\r\nC              CHANGES.\r\nC     LENGTH = LENGTH (IN WORDS) OF BINARY VALUE RETURNED BY XSCNDM\r\nC              ROUTINE.\r\nC     ICRDTP = POINTER TO NEXT WORD TO BE PROCESSED IN DMPCRD ARRAY.\r\nC     ICHAR  = POINTER TO NEXT CHARACTER TO BE PROCESSED IN DMPCRD ARRAY\r\nC     NEWCRD = FLAG TO INDICATE WHETHER OR NOT TO PREPARE NEXT CARD\r\nC              IMAGE FOR TRANSLATION BY XRCARD ROUTINE.\r\nC     MODIDX = MODULE INDEX STORED IN OSCAR ENTRY FOR USE BY XSEM\r\nC              ROUTINE.\r\nC     LDMAP  = LENGTH OF DMAP ARRAY.\r\nC     ISAVDW = POINTER TO LAST DELIMITER ENCOUNTERED IN DMPCRD ARRAY,\r\nC              USED BY XSCNDM WHEN UNPACKING RIGID FORMAT DMAP SEQUENCE.\r\nC     DMAP   = ARRAY CONTAINING OUTPUT FROM XRCARD ROUTINE.\r\nC\r\nC     DESCRIPTION OF VARIABLES EQUIVALENCED TO /XGPI4/ ENTRIES\r\nC     EQUIVALENCE (DMAP,ICF)\r\nC     ICF    = TEMPORARY STORAGE FOR CONTROL FILE DICTIONARY.\r\nC\r\nC     DATA     ISEQN/1/, DMPCNT/0/, ICHAR/1/, LDMAP/200/, BCDCNT/0/\r\nC\r\n      ISEQN  = 1\r\n      DMPCNT = 0\r\n      ICHAR  = 1\r\n      LDMAP  = 200\r\n      BCDCNT = 0\r\nC\r\nC     ****** /XGPI5/ *******\r\nC\r\nC     IAPP   = APPROACH CODE.\r\nC     START  = TYPE OF START CODE.\r\nC     ALTER  = DMAP NOS. OF INSTRUCTIONS TO BE ALTERED\r\nC     SOL    = SOLUTION CODE.\r\nC     SUBSET = SOLUTION SUBSET CODE.\r\nC     IFLAG  = FLAG FOR USE IN SUBROUTINE XLNKHD.\r\nC     IESTIM = POINTER TO ESTIM ENTRIES IN ICTLFL OR ZERO.\r\nC     ICFTOP = POINTER TO FIRST WORD IN ICTLFL ARRAY\r\nC     ICFPNT = POINTER TO NEXT AVAILABLE WORD IN ICTLFL ARRAY\r\nC     LCTLFL = LENGTH OF ICTLFL ARRAY.\r\nC     ICTLFL = ARRAY CONTAINING INFORMATION FROM ESTIM CONTROL CARD.\r\nC\r\nC     DATA     IESTIM/0/, ICFTOP/1/, LCTLFL/1/, IFLAG/0/\r\nC\r\n      IESTIM = 0\r\n      ICFTOP = 1\r\n      LCTLFL = 1\r\n      IFLAG  = 0\r\nC\r\nC     ****** /XGPI6/ *******\r\nC\r\nC     MED    = (SEE DESCRIPTION IN /XGPI1/)\r\nC     MEDTP  = POINTER TO FIRST WORD IN MED ARRAY.\r\nC     LMED   = LENGTH OF MED ARRAY.\r\nC     MEDPNT = POINTER TO AN ENTRY IN MED\r\nC     FNMTP  = POINTER TO FIRST WORD OF FILE NAME PORTION OF MED TABLE\r\nC     CNMTP  = POINTER TO FIRST WORD OF CARD NAME PORTION OF MED TABLE\r\nC     IPLUS  = PLUS CHARACTER FOR PRINTER SPACE SUPRESS\r\nC     DIAG14 = SKIP DMAP PRINT UNLESS RESTART (SET BY XGPI)\r\nC     DIAG17 = DMAP PUNCH OPTION FLAG (SET BY XGPI)\r\nC\r\nC     DATA     MEDTP/1/,  LMED/0/,  IPLUS/1H+/\r\nC\r\n      MEDTP  = 1\r\n      LMED   = 0\r\n      IPLUS  = IPLS\r\nC\r\nC     ****** /XGPI7/ *******\r\nC\r\nC     IFPNT  = POINTER TO LAST ENTRY IN FILE TABLE\r\nC     LFILE  = LENGTH OF FILE TABLE (IN WORDS)\r\nC     IFILE  = TABLE CONTAINING INFO FROM FILE DMAP INSTRUCTION\r\nC\r\nC     DATA     IFPNT/-2/,  LFILE/130/,  IFILE/130*0/\r\nC\r\n      IFPNT  = -2\r\n      LFILE  = 130\r\n      DO 20 I = 1,LFILE\r\n   20 IFILE(I) = 0\r\nC\r\nC     ****** /XGPI8 / *******\r\nC\r\nC     ICPDPL = (SEE /XGPI1/ FOR DESCRIPTION)\r\nC     ICPTOP = POINTER TO FIRST ENTRY IN ICPDPL ARRAY.\r\nC     ICPBOT = POINTER TO LAST  ENTRY IN ICPDPL ARRAY.\r\nC     LCPDPL = LENGTH OF ICPDPL ARRAY)\r\nC\r\nC     DATA     ICPTOP/0/,  ICPBOT/0/,  LCPDPL/0/\r\nC\r\n      ICPTOP = 0\r\n      ICPBOT = 0\r\n      LCPDPL = 0\r\nC\r\nC     ****** /MODDMP/ ********\r\nC\r\n      IFLG(1) = 1\r\n      IFLG(2) = 2\r\n      IFLG(3) = 0\r\n      IFLG(4) = 0\r\n      IFLG(5) = 0\r\n      IFLG(6) = 0\r\n      DO 30 I = 1,26\r\n   30 NMPT(I) = NAMOPT(I)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xgpidg.f",
    "content": "      SUBROUTINE XGPIDG (NCODE,IX,JX,K)\r\nC\r\nC     THE PURPOSE OF XGPIDG IS TO WRITE DIAGNOSTIC MESSAGES FOR EXGPI\r\nC\r\nC     ICODE  = A SIGNED INTEGER WHICH INDICATES DIAGNOSTIC MESSAGE TO\r\nC              OUTPUT.\r\nC     NODMAP = DMAP CARD NUMBER.\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF\r\n      INTEGER         IX(1),JX(1),DMPCNT,DMPPNT,BCDCNT,DMAP,OSPRC,OSBOT,\r\n     1                OSPNT,OSCAR(1),OTAPID,OP,RSHIFT,ANDF,CPPGCT\r\n      DIMENSION       MED(1),IBF(6),MPL(1),OS(5)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /STAPID/ TAPID(6),OTAPID(6)\r\n      COMMON /SYSTEM/ ZSYS(90),LPCH\r\nC                  ** CONTROL CARD NAMES **\r\nC                  ** DMAP CARD NAMES **\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,\r\n     3                NOUTPT,NCHKPT,NPURGE,NEQUIV,\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /MODDMP/ IFLG(6),NAMOPT(26)\r\n      EQUIVALENCE     (CORE(1),OS(1),LOSCAR),(OSPRC,OS(2)),(OSBOT,OS(3))\r\n     1,               (OSPNT,OS(4)),(OSCAR(1),MED(1),OS(5))\r\n      EQUIVALENCE     (ZSYS(1),BUFSZ),(ZSYS(2),OP),(ZSYS(3),NOGO),\r\n     1                (ZSYS(9),NLPP),(ZSYS(12),NLINES),(ZSYS(26),CPPGCT)\r\n     2,               (ZSYS(77),ISYS77)\r\n      EQUIVALENCE     (MPL(1),IBF(1))\r\n      DATA    NLABL1/ 4HLABE/, NLABL2/4HL   /\r\nC\r\nC     SET NOGO FLAG IF NCODE IS POSITIVE\r\nC\r\n      IF (NCODE .GT. 0 .AND. NOGO .LT. 1) NOGO = 1\r\n      I      = IX(1)\r\n      J      = JX(1)\r\n      KDHCOD = 0\r\n      ICODE  = IABS(NCODE)\r\nC\r\nC     BRANCH ON ICODE AND WRITE ERROR MESSAGE.\r\nC\r\n      IF (ICODE.EQ.0 .OR. ICODE.GT.73) GO TO 1830\r\n      NLINES = NLINES + 3\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      GO TO ( 220, 250, 280, 310, 340, 370, 400, 430, 460, 490,\r\n     1        520, 550, 580, 610, 650, 680, 710, 740, 770, 800,\r\n     2        830, 860, 890, 920, 950, 980,1010,1040,1070,1100,\r\n     3       1130,1160,1190,1220,1250,1280,1310,1340,1370,1400,\r\n     4       1430,1460,1490,1520,1550,1580,1610,1640,1670,1710,\r\n     5       1740,1770,1800,1822,3310,3340,3370,3400,3430,3470,\r\n     6       3500,3600,3700,1830,1830,1830,1830,1830,3800,3900,\r\n     7       4000,4100,4200), ICODE\r\nC\r\nC     STANDARD ERROR MESSAGES\r\nC\r\n   10 NODMAP = ANDF(OSCAR(I+5),NOSGN)\r\n      ASSIGN 30 TO LX\r\n   20 IF (NCODE) 130,1830,150\r\n   30 NME1= OSCAR(I+3)\r\n      IF (NCODE .LT. 0) GO TO 60\r\n      WRITE  (OP,50) NME1,OSCAR(I+4),NODMAP\r\n   50 FORMAT (30X,'ERROR IN DMAP INSTRUCTION ',2A4,3X,\r\n     1       'INSTRUCTION NO.',I4)\r\n      GO TO 80\r\n   60 WRITE  (OP,70) NME1,OSCAR(I+4),NODMAP\r\n   70 FORMAT (30X,'POSSIBLE ERROR IN DMAP INSTRUCTION ',2A4,3X,\r\n     1       'INSTRUCTION NO.',I4)\r\n   80 GO TO L, ( 290, 380, 410, 470, 500, 530, 660, 690, 810, 840,\r\n     1           960, 990, 720, 750,1320,1470,1500,1530,1560, 230,\r\n     2           870, 900, 260,1170,1620,1650, 320,1140,1200,1230,\r\n     3           930,1290,1380,1440,1680,1720,3502,3602,3702)\r\nC\r\n   90 ASSIGN 80 TO LX\r\n      IF (NCODE) 170,1830,190\r\nC\r\n  100 ASSIGN 110 TO LX\r\n      GO TO 190\r\n  110 WRITE  (OP,120)\r\n  120 FORMAT (30X,'UNEXPECTED END OF TAPE.')\r\n      GO TO L, (1050,1080,1110)\r\nC\r\n  130 IF (KDHCOD .EQ. 1) GO TO 142\r\n      WRITE  (OP,140) UWM,ICODE\r\n  140 FORMAT (A25,I5,1H,)\r\n      GO TO  210\r\n  142 WRITE  (OP,144) ICODE\r\n  144 FORMAT (/,' *** USER POTENTIALLY FATAL MESSAGE',I4,1H,)\r\n      IF (IFLG(2) .LT. 2) NOGO = 1\r\n      GO TO  210\r\n  150 WRITE  (OP,160) UFM,ICODE\r\n  160 FORMAT (A23,I4,1H,)\r\n      GO TO  210\r\n  170 WRITE  (OP,180) SWM,ICODE\r\n  180 FORMAT (A27,I4,1H,)\r\n      GO TO  210\r\n  190 WRITE  (OP,200) SFM,ICODE\r\n  200 FORMAT (A25,I4,1H,)\r\nC\r\n  210 GO TO LX, ( 350, 440, 560, 590, 620, 780,1020,1260,1350,1410,\r\n     1           1590,1750,1780,1810,1824,  30,  80, 110,3312,3342,\r\n     2           3372,3402,3432,3472,3802,3902,4002,4102,4202)\r\nC\r\nC     ERROR MESSAGE  1   (XIOFL)\r\nC\r\n  220 ASSIGN 230 TO L\r\n      GO TO  10\r\n  230 WRITE  (OP,240)\r\n  240 FORMAT (5X,'ASSUMED FIRST INPUT DATA BLOCK IS NULL')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  2   (XOSGEN)\r\nC\r\n  250 ASSIGN 260 TO L\r\n      GO TO  10\r\n  260 WRITE  (OP,270) J,K\r\n  270 FORMAT (5X,'PARAMETER NAMED ',2A4,' IS DUPLICATED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  3   (XPARAM)\r\nC\r\n  280 ASSIGN 290 TO L\r\n      GO TO  10\r\n  290 WRITE  (OP,300) J\r\n  300 FORMAT (5X,'FORMAT ERROR IN PARAMETER NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  4   (XPARAM)\r\nC\r\n  310 ASSIGN 320 TO L\r\n      GO TO  90\r\n  320 WRITE  (OP,330) OSCAR(I+3),OSCAR(I+4),J\r\n  330 FORMAT (5X,'MPL PARAMETER ERROR,MODULE NAME = ',2A4,3X,\r\n     1       'PARAMETER NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  5   (XPARAM)\r\nC\r\n  340 ASSIGN 350 TO LX\r\n      GO TO  20\r\n  350 WRITE  (OP,360) J,K\r\n  360 FORMAT (30X,'PARAMETER INPUT DATA ERROR, ILLEGAL TYPE FOR ',\r\n     1       'PARAMETER NAMED ',2A4,1H.)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE  6   (XPARAM)\r\nC\r\n  370 ASSIGN 380 TO L\r\n      GO TO  10\r\n  380 WRITE  (OP,390) J\r\n  390 FORMAT (5X,'ILLEGAL TYPE FOR PARAMETER NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  7   (XPARAM)\r\nC\r\n  400 ASSIGN 410 TO L\r\n      GO TO  10\r\n  410 WRITE  (OP,420) J\r\n  420 FORMAT (5X,'PARAMETER NO.',I3,' NEEDS PARAMETER NAME')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE  8   (XPARAM)\r\nC\r\n  430 ASSIGN 440 TO LX\r\n      GO TO 20\r\n  440 WRITE  (OP,450) J,K\r\n  450 FORMAT (30X,'BULK DATA PARAM CARD ERROR - MUST NOT DEFINE ',\r\n     1       'PARAMETER NAMED ',2A4,1H.)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE  9   (XPARAM)\r\nC\r\n  460 ASSIGN 470 TO L\r\n      GO TO  10\r\n  470 WRITE  (OP,480) J\r\n  480 FORMAT (5X,'VALUE NEEDED FOR PARAMETER NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 10   (XOSGEN)\r\nC\r\n  490 ASSIGN 500 TO L\r\n      KDHCOD = 1\r\n      GO TO  10\r\n  500 WRITE  (OP,510)\r\n  510 FORMAT (5X,'DEFAULT OPTION FOR INPUT DATA BLOCKS - MAKE SURE ',\r\n     1       'MISSING BLOCKS ARE NOT REQUIRED.')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 11   (XOSGEN)\r\nC\r\n  520 ASSIGN 530 TO L\r\n      KDHCOD = 1\r\n      GO TO  10\r\n  530 WRITE  (OP,540)\r\n  540 FORMAT (5X,'DEFAULT OPTION FOR OUTPUT DATA BLOCKS - MAKE SURE ',\r\n     1       'MISSING BLOCKS ARE NOT REQUIRED.')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 12   (XOSGEN)\r\nC\r\n  550 ASSIGN 560 TO LX\r\n      GO TO  20\r\n  560 WRITE  (OP,570) J\r\n  570 FORMAT (30X,'ERROR IN DMAP INSTRUCTION NO.',I4,\r\n     1       ', ILLEGAL CHARACTER IN DMAP INSTRUCTION NAME.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 13   (XOSGEN)\r\nC\r\n  580 ASSIGN 590 TO LX\r\n      GO TO  20\r\n  590 WRITE  (OP,50) DMAP(J),DMAP(J+1),K\r\n      WRITE  (OP,600)\r\n  600 FORMAT (30X,'DMAP INSTRUCTION NOT IN MODULE LIBRARY.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 14   (XOSGEN,XPARAM,XFLORD,XGPI,XSCNDM)\r\nC\r\n  610 ASSIGN 620 TO LX\r\n      GO TO  190\r\n  620 WRITE  (OP,630) I,J\r\n  630 FORMAT (5X,'ARRAY NAMED ',2A4,' OVERFLOWED')\r\n      IF (K .EQ. 0) GO TO 1850\r\n      WRITE  (OP,640) K\r\n  640 FORMAT (50X,'AT DMAP INSTRUCTION NO. ',I4,1H.)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 15   (XPARAM)\r\nC\r\n  650 ASSIGN 660 TO L\r\n      GO TO  10\r\n  660 WRITE  (OP,670) J,K\r\n  670 FORMAT (5X,'INCONSISTENT TYPE USED FOR PARAMETER NAMED ',2A4)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 16   (XOSGEN)\r\nC\r\n  680 ASSIGN 690 TO L\r\n      GO TO  10\r\n  690 WRITE  (OP,700)\r\n  700 FORMAT (5X,'ILLEGAL FORMAT')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 17   (XOSGEN)\r\nC\r\n  710 ASSIGN 720 TO L\r\n      GO TO  10\r\n  720 WRITE  (OP,730)\r\n  730 FORMAT (5X,'ILLEGAL TIME SEGMENT NAME - NO TIME ESTIMATES MADE',\r\n     1       ' FOR THIS TIME SEGMENT (WARNING ONLY)')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 18   (XPARAM)\r\nC\r\n  740 ASSIGN 750 TO L\r\n      GO TO  10\r\n  750 WRITE  (OP,760)\r\n  760 FORMAT (5X,'TOO MANY PARAMETERS IN DMAP PARAMETER LIST')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 19   (XOSGEN)\r\nC\r\n  770 ASSIGN 780 TO LX\r\n      GO TO  20\r\n  780 WRITE  (OP,50) NLABL1,NLABL2,I\r\n      WRITE  (OP,790) DMAP(J),DMAP(J+1)\r\n  790 FORMAT (30X,'LABEL NAMED ',2A4,' IS MULTIPLY DEFINED.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 20   (XOSGEN)\r\nC\r\n  800 ASSIGN 810 TO L\r\n      GO TO  10\r\n  810 WRITE  (OP,820) J\r\n  820 FORMAT (5X,'ILLEGAL CHARACTERS IN PARAMETER NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 21   (XOSGEN)\r\nC\r\n  830 ASSIGN 840 TO L\r\n      GO TO  10\r\n  840 WRITE  (OP,850) J,K\r\n  850 FORMAT (5X,'PARAMETER NAMED ',2A4,' IS NOT IN PRECEDING DMAP ',\r\n     1        'INSTRUCTION PARAMETER LIST')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 22   (XFLORD)\r\nC\r\n  860 ASSIGN 870 TO L\r\n      KDHCOD = 1\r\n      GO TO  10\r\n  870 WRITE  (OP,880) J,K\r\n  880 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' APPEARS AS INPUT BEFORE ',\r\n     1       'BEING DEFINED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 23   (XFLORD)\r\nC\r\n  890 ASSIGN 900 TO L\r\n      GO TO  10\r\n  900 WRITE  (OP,910) J,K\r\n  910 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' IS NOT REFERENCED IN ',\r\n     1       'SUBSEQUENT FUNCTIONAL MODULE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 24   (XGPI)\r\nC\r\n  920 ASSIGN 930 TO L\r\n      GO TO  90\r\n  930 WRITE  (OP,940) I,J\r\n  940 FORMAT (5X,'CANNOT FIND DATA BLOCK NAMED ',2A4,' ON DATA POOL ',\r\n     1       'TABLE ')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 25   (XOSGEN)\r\nC\r\n  950 ASSIGN 960 TO L\r\n      GO TO  10\r\n  960 WRITE  (OP,970) J,K\r\n  970 FORMAT (5X,'PARAMETER NAMED ',2A4,' NOT DEFINED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 26   (XOSGEN)\r\nC\r\n  980 ASSIGN 990 TO L\r\n      GO TO  10\r\n  990 WRITE  (OP,1000) J,K\r\n 1000 FORMAT (5X,'LABEL NAMED ',2A4,' NOT DEFINED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 27   (XOSGEN)\r\nC\r\n 1010 ASSIGN 1020 TO LX\r\n      GO TO  20\r\n 1020 WRITE  (OP,1030) J,K\r\n 1030 FORMAT (5X,'LABEL NAMED ',2A4,' NOT REFERENCED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 28   (XGPI)\r\nC\r\n 1040 ASSIGN 1050 TO L\r\n      GO TO  100\r\n 1050 WRITE  (OP,1060)\r\n 1060 FORMAT (61X,'ON NEW PROBLEM TAPE.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 29   (XGPI)\r\nC\r\n 1070 ASSIGN 1080 TO L\r\n      GO TO  100\r\n 1080 WRITE  (OP,1090)\r\n 1090 FORMAT (61X,'ON OLD PROBLEM TAPE.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 30   (XGPI)\r\nC\r\n 1100 ASSIGN 1110 TO L\r\n      GO TO  100\r\n 1110 WRITE  (OP,1120)\r\n 1120 FORMAT (61X,'ON DATA POOL FILE.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 31   (XGPI)\r\nC\r\n 1130 ASSIGN 1140 TO L\r\n      GO TO  90\r\n 1140 WRITE  (OP,1150) I,J\r\n 1150 FORMAT (5X,'CONTROL FILE ',2A4,' INCOMPLETE OR MISSING ON NEW ',\r\n     1       'PROBLEM TAPE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 32   (XFLORD)\r\nC\r\n 1160 ASSIGN 1170 TO L\r\n      GO TO  10\r\n 1170 WRITE  (OP,1180) J,K\r\n 1180 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' MUST BE DEFINED PRIOR TO ',\r\n     1       'THIS INSTRUCTION')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 33   (XGPI)\r\nC\r\n 1190 ASSIGN 1200 TO L\r\n      GO TO  90\r\n 1200 WRITE  (OP,1210) I,J\r\n 1210 FORMAT (5X,'SCRATCH FILE CONTAINING DMAP DATA COULD NOT BE ',\r\n     1       'OPENED IN SUBROUTINE ',2A4)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 34   (XSCNDM)\r\nC\r\n 1220 ASSIGN 1230 TO L\r\n      GO TO  90\r\n 1230 WRITE  (OP,1240) J\r\n 1240 FORMAT (5X,'CANNOT TRANSLATE DMAP INSTRUCTION NO.',I3)\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 35   (XGPI)\r\nC\r\n 1250 ASSIGN 1260 TO LX\r\n      GO TO  20\r\n 1260 M = LSHIFT(IBF(5),7)\r\n      IYEAR = RSHIFT(ANDF(M,MASKHI),7)\r\n      M = RSHIFT(M,6)\r\n      IDAY  = RSHIFT(ANDF(M,MASKHI),9)\r\n      M = RSHIFT(M,5)\r\n      IMNTH = RSHIFT(ANDF(M,MASKHI),10)\r\n      N = LSHIFT(OTAPID(5),7)\r\n      JYEAR = RSHIFT(ANDF(N,MASKHI),7)\r\n      N = RSHIFT(N,6)\r\n      JDAY  = RSHIFT(ANDF(N,MASKHI),9)\r\n      N = RSHIFT(N,5)\r\n      JMNTH = RSHIFT(ANDF(N,MASKHI),10)\r\n      WRITE  (OP,1270) (IBF(I),M=1,4),IMNTH,IDAY,IYEAR,IBF(6),\r\n     1                 (OTAPID(J),N=1,4),JMNTH,JDAY,JYEAR,OTAPID(6)\r\n 1270 FORMAT (30X,'INCORRECT OLD PROBLEM TAPE MOUNTED -', /5X,\r\n     1       'ID OF TAPE MOUNTED= ',2A4,1H,,2A4,1H,,I3,1H/,I2,1H/,I2,\r\n     1       'REEL=',I2, /5X,\r\n     2       'ID OF TAPE DESIRED= ',2A4,1H,,2A4,1H,,I3,1H/,I2,1H/,I2,\r\n     3       'REEL=',I2)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 36   (XGPI)\r\nC\r\n 1280 ASSIGN 1290 TO L\r\n      GO TO  90\r\n 1290 WRITE  (OP,1300) I,J\r\n 1300 FORMAT (5X,'CANNOT FIND DATA BLOCK NAMED ',2A4,' ON OLD PROBLEM',\r\n     1       ' TAPE')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 37   (XGPI)\r\nC\r\n 1310 IF (ISYS77 .LE. -1) GO TO 1850\r\n      ASSIGN 1320 TO L\r\n      GO TO  10\r\n 1320 WRITE  (OP,1330) J,K\r\n 1330 FORMAT (5X,'WARNING ONLY - MAY NOT BE ENOUGH FILES AVAILABLE FOR',\r\n     1       'MODULE REQUIREMENTS', /5X,\r\n     1       'FILES NEEDED =',I4,5X,'FILES AVAILABLE =',I4)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 38   (XGPI)\r\nC\r\n 1340 ASSIGN 1350 TO LX\r\n      GO TO  190\r\n 1350 WRITE  (OP,1360)\r\n 1360 FORMAT (5X,'NOT ENOUGH CORE FOR GPI TABLES.')\r\n      WRITE  (OP,1361) I\r\n 1361 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I8,' WORDS.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 39   (XOSGEN)\r\nC\r\n 1370 ASSIGN 1380 TO L\r\n      GO TO  90\r\n 1380 WRITE  (OP,1390)\r\n 1390 FORMAT (5X,'RIGID FORMAT DMAP SEQUENCE DOES NOT CORRESPOND TO ',\r\n     1       'MED TABLE')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 40   (XSCNDM)\r\nC\r\n 1400 ASSIGN 1410 TO LX\r\n      GO TO  20\r\n 1410 WRITE  (OP,1420)\r\n 1420 FORMAT (5X,'ERROR IN ALTER DECK - CANNOT FIND END OF DMAP ',\r\n     1       'INSTRUCTION')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 41   (XFLDEF)\r\nC\r\n 1430 ASSIGN 1440 TO L\r\n      GO TO  90\r\n 1440 WRITE  (OP,1450) I,J\r\n 1450 FORMAT (5X,'TABLES INCORRECT FOR REGENERATING DATA BLOCK ',2A4)\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 42   (XPARAM)\r\nC\r\n 1460 ASSIGN 1470 TO L\r\n      GO TO  10\r\n 1470 WRITE  (OP,1480) J,K\r\n 1480 FORMAT (5X,'PARAMETER NAMED ',2A4,' ALREADY HAD VALUE ASSIGNED ',\r\n     1        'PREVIOUSLY')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 43   (XOSGEN)\r\nC\r\n 1490 ASSIGN 1500 TO L\r\n      GO TO  10\r\n 1500 WRITE  (OP,1510)\r\n 1510 FORMAT (5X,'ILLEGAL TYPE FOR CONSTANT VALUE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 44   (XSCNDM)\r\nC\r\n 1520 ASSIGN 1530 TO L\r\n      GO TO  10\r\n 1530 WRITE  (OP,1540)\r\n 1540 FORMAT (5X,'UNABLE TO FIND END DMAP INSTRUCTION')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 45   (XFLORD)\r\nC\r\n 1550 ASSIGN 1560 TO L\r\n      KDHCOD = 1\r\n      GO TO  10\r\n 1560 WRITE  (OP,1570) J,K\r\n 1570 FORMAT (5X,'DATA BLOCK NAMED ',2A4,' ALREADY APPEARED AS OUTPUT')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 46   (XGPI)\r\nC\r\n 1580 ASSIGN 1590 TO LX\r\n      GO TO  20\r\n 1590 WRITE  (OP,1600)\r\n 1600 FORMAT (5X,'INCORRECT REENTRY POINT')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 47   (XFLORD)\r\nC\r\n 1610 ASSIGN 1620 TO L\r\n      GO TO  10\r\n 1620 WRITE  (OP,1630)\r\n 1630 FORMAT (5X,'THIS INSTRUCTION CANNOT BE FIRST INSTRUCTION OF LOOP')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 48   (XOSGEN)\r\nC\r\n 1640 ASSIGN 1650 TO L\r\n      GO TO  10\r\n 1650 WRITE  (OP,1660) J,K\r\n 1660 FORMAT (5X,'DATA SET ',2A4,' IS ALWAYS REGENERATED, THEREFORE IT',\r\n     1       'WILL NOT BE CHECKPOINTED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 49   (XGPIBS,XOSGEN)\r\nC\r\n 1670 ASSIGN 1680 TO L\r\n      GO TO  90\r\n 1680 WRITE  (OP,1690)\r\n 1690 FORMAT (5X,'MPL TABLE (MODULE PROPERTIES LIST) IS INCORRECT')\r\n      IF (I .EQ. 0) GO TO 1850\r\n      NLINES = NLINES + 1\r\n      WRITE  (OP,1700) I,J,K\r\n 1700 FORMAT (5X,'DECIMAL LOCATION RELATIVE TO MPL(1) = ',I10,\r\n     1        ',MODULE NAME = ',2A4 )\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 50   (XGPI)\r\nC\r\n 1710 ASSIGN 1720 TO L\r\n      GO TO  90\r\n 1720 WRITE  (OP,1730)\r\n 1730 FORMAT (5X,'CANNOT FIND JUMP OSCAR ENTRY NEEDED FOR THIS RESTART')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 51   (XGPIBS)\r\nC\r\n 1740 ASSIGN 1750 TO LX\r\n      GO TO  190\r\n 1750 WRITE  (OP,1760)\r\n 1760 FORMAT (5X,'NOT ENOUGH OPEN CORE FOR XGPIBS ROUTINE')\r\n      WRITE  (OP,1361) I\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 52   (XGPIBS)\r\nC\r\n 1770 ASSIGN 1780 TO LX\r\n      GO TO  190\r\n 1780 WRITE  (OP,1790)\r\n 1790 FORMAT (5X,'NAMED COMMON /XLINK/ IS TOO SMALL')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 53   (XGPIBS)\r\nC\r\n 1800 ASSIGN 1810 TO LX\r\n      GO TO  150\r\n 1810 WRITE  (OP,1820)\r\n 1820 FORMAT (5X,'INCORRECT FORMAT IN ABOVE CARD')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 54   (XGPI)\r\nC\r\n 1822 ASSIGN 1824 TO LX\r\n      GO TO  130\r\n 1824 WRITE  (OP,1826) J,K\r\n 1826 FORMAT (5X,'PARAMETER NAMED ',2A4,' NOT REFERENCED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 55   (XOSGEN)\r\nC\r\n 3310 ASSIGN 3312 TO LX\r\n      GO TO  150\r\n 3312 WRITE  (OP,3314)\r\n 3314 FORMAT (5X,'PRECHK NAME LIST EXCEEDS MAXIMUM LIMIT (50)')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 56   (XOSGEN)\r\nC\r\n 3340 ASSIGN 3342 TO LX\r\n      GO TO  130\r\n 3342 WRITE  (OP,3344)\r\n 3344 FORMAT (5X,'ILLEGAL OPTION ON XDMAP CARD - IGNORED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 57   (XOSGEN)\r\nC\r\n 3370 ASSIGN 3372 TO LX\r\n      GO TO  150\r\n 3372 WRITE  (OP,3374)\r\n 3374 FORMAT (5X,'VARIABLE REPT PARAMETER MUST BE AN INTEGER')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 58   (XOSGEN)\r\nC\r\n 3400 ASSIGN 3402 TO LX\r\n      GO TO  150\r\n 3402 WRITE  (OP,3404)\r\n 3404 FORMAT (5X,'VARIABLE REPT PARAMETER MUST BE DEFINED PRIOR TO ',\r\n     1       'INSTRUCTION')\r\n      GO TO 1850\r\nC\r\nC     ERROR MESSAGE 59   (OSCXRF)\r\nC\r\n 3430 ASSIGN 3432 TO LX\r\n      KDHCOD = 1\r\n      GO TO  130\r\n 3432 WRITE  (OP,3434)\r\n 3434 FORMAT (5X,'POOL FILE ERROR - DMAP CROSS-REF TERMINATED.')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 60   (OSCXRF)\r\nC\r\n 3470 ASSIGN 3472 TO LX\r\n      KDHCOD = 1\r\n      GO TO  130\r\n 3472 WRITE  (OP,3474)\r\n 3474 FORMAT (5X,'INSUFFICIENT OPEN CORE FOR DMAP CROSS-REF - ',\r\n     1       'TERMINATED.')\r\n      WRITE  (OP,1361) I\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 61   (XOSGEN)\r\nC\r\n 3500 ASSIGN 3502 TO L\r\n      GO TO  10\r\n 3502 WRITE  (OP,3504)\r\n 3504 FORMAT (5X,'SAVE INSTRUCTION OUT OF SEQUENCE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 62   (XIPFL)\r\nC\r\n 3600 ASSIGN 3602 TO L\r\n      GO TO  10\r\n 3602 WRITE  (OP,3604)\r\n 3604 FORMAT (5X,'INCORRECT NUMBER OF INPUT DATA BLOCKS ENCOUNTERED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 63   (XIPFL)\r\nC\r\n 3700 ASSIGN 3702 TO L\r\n      GO TO  10\r\n 3702 WRITE  (OP,3704)\r\n 3704 FORMAT (5X,'INCORRECT NUMBER OF OUTPUT DATA BLOCKS ENCOUNTERED')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 69   (XGPI)\r\nC\r\n 3800 ASSIGN 3802 TO LX\r\n      GO TO  190\r\n 3802 WRITE  (OP,3804) I, J\r\n 3804 FORMAT (5X,'SUBROUTINE ',2A4,' FINDS RIGID FORMAT OR MED TABLE ',\r\n     1       'RECORD MISSING ON SCRATCH FILE', /5X,\r\n     2       'MOST LIKELY DUE TO INSUFFECIENT CORE')\r\nC\r\nC   * NOTE - DATA ON SCRATCH FILE MAY BE DESTROYED BY XSORT2 *\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 70   (XGPI)\r\nC\r\n 3900 ASSIGN 3902 TO LX\r\n      GO TO  190\r\n 3902 WRITE  (OP,3904) I,J,K\r\n 3904 FORMAT (5X,'SUBROUTINE ',2A4,' FINDS ',A4,' NAME TABLE RECORD ',\r\n     1       'MISSING ON SCRATCH FILE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 71   (XGPI)\r\nC\r\n 4000 ASSIGN 4002 TO LX\r\n      GO TO  190\r\n 4002 WRITE  (OP,4004) I\r\n 4004 FORMAT (5X,'ILLEGAL NUMBER OF WORDS (',I8,') IN MED TABLE RECORD',\r\n     1       ' ON SCRATCH FILE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 72   (XGPI)\r\nC\r\n 4100 ASSIGN 4102 TO LX\r\n      GO TO  190\r\n 4102 WRITE  (OP,4104) I,J\r\n 4104 FORMAT (5X,'ILLEGAL NUMBER OF WORDS (',I8,') IN ',A4,\r\n     1       ' NAME TABLE RECORD ON SCRATCH FILE')\r\n      GO TO  1850\r\nC\r\nC     ERROR MESSAGE 73   (XGPI)\r\nC\r\n 4200 ASSIGN 4202 TO LX\r\n      GO TO  190\r\n 4202 WRITE  (OP,4204) I\r\n 4204 FORMAT (5X,'ONE OR MORE ILLEGAL BIT NUMBERS SPECIFIED IN ',A4,\r\n     1       ' NAME TABLE')\r\n      GO TO 1850\r\nC\r\n 1830 WRITE  (OP,1840) ICODE\r\n 1840 FORMAT (//5X,'NO MESSAGE AVAILABLE FOR ERROR CODE =',I4)\r\nC\r\n 1850 RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/xgpimw.f",
    "content": "      SUBROUTINE XGPIMW (MSGNO,I,J,A)\r\nC\r\nC     XGPIMW IS USED TO WRITE ALL NON-DIAGNOSTIC MESSAGES\r\nC     GENERATED BY THE XGPI MODULE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        RSHIFT,ANDF\r\n      DIMENSION       HDG1(18),HDG2(7),HDG3(2),HDG4(22),HDG5(26),\r\n     1                LINE(12),A(6)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SYSTEM/ ZSYS(90),LPCH,LDICT\r\n      COMMON /OUTPUT/ PGHDG(1)\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC,\r\n     4                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,\r\n     1                ISAVE,ITPFLG,IAPND,IDUM(5),IEQFLG\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM,\r\n     1                ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /MODDMP/ IFLG(6),NAMOPT(26)\r\n      COMMON /RESDIC/ IRDICT, IROPEN\r\n      EQUIVALENCE     (ZSYS( 2),OP    ), (ZSYS( 3),NOGO  ),\r\n     1                (ZSYS( 9),NLPP  ), (ZSYS(12),NLINES),\r\n     2                (ZSYS(77),BKDATA), (ZSYS(26),CPPGCT),\r\n     3                (ZSYS(19),IECHO ), (ZSYS(24),ICFIAT)\r\n      DATA    HDG1  / 17, 4H    ,4H COS,4HMIC ,4H/ NA,4HSTRA,4HN DM,\r\n     1                4HAP C,4HOMPI,4HLER ,4H- SO,4HURCE,4H LIS,\r\n     2                4HTING,4*4H     /\r\n      DATA    HDG2  / 6, 6*4H         /\r\n      DATA    HDG3  / 1, 4H           /\r\n      DATA    HDG4  / 21,\r\n     1                4HINTE,4HRPRE,4HTED ,4HFROM,4H THE,4H OSC,4HAR. ,\r\n     2                4HNEGA,4HTIVE,4H DMA,4HP IN,4HDICA,4HTES ,4HA NO,\r\n     3                4HN EX,4HECUT,4HABLE,4H INS,4HTRUC,4HTION,4H    /\r\n      DATA    HDG5  / 25,\r\n     1                4H* * ,4H*  D,4H M A,4H P  ,4H C R,4H O S,4H S -,\r\n     2                4H R E,4H F E,4H R E,4H N C,4H E  ,4H * *,4H *  ,\r\n     3                7*4H    ,4HMODU,4HLE  ,4H  NA,4HMES  /\r\n      DATA    KDLH   / 0     /\r\n      DATA    ISTAR  / 1H*   /\r\n      DATA    IPAGE  / 0     /\r\n      DATA    IBLNK  / 4H    /\r\nC\r\nC\r\n      DIAGI4 = DIAG14\r\n      IF (DIAG14 .EQ. 10) DIAGI4 = 0\r\n      IF (DIAGI4.NE.0 .OR. DIAG17.NE.0) GO TO 100\r\n      IF (IECHO.EQ.-2 .AND. MSGNO.NE.9) RETURN\r\n      GO TO 110\r\n 100  IF (IECHO.EQ.-2 .AND. (MSGNO.LE.4 .OR. MSGNO.EQ.8) .AND.\r\n     1    MSGNO.NE.9) RETURN\r\n 110  IF (MSGNO.LE.0 .OR. MSGNO.GT.13) GO TO 2240\r\n      GO TO (1860,1960,2000,2020,2040,2060,2080,2100,2160,2080,\r\n     1       1985,1970,2400), MSGNO\r\nC\r\nC     MESSAGE 1 - INITIALIZE PAGE HEADING\r\nC     ===================================\r\nC\r\n 1860 I1 = -I\r\n      IF (I1 .GE. 0) GO TO 1940\r\n      I1 = HDG1(1)\r\n      I2 = I1 + 1\r\n      DO 1870 M = 1,I1\r\n 1870 PGHDG(M+96) = HDG1(M+1)\r\n      DO 1880 M = I2,32\r\n 1880 PGHDG(M+96) = NBLANK\r\n      IF (I .EQ. 1) GO TO 1888\r\n      IF (I .EQ. 2) GO TO 1884\r\n      I1 = HDG5(1)\r\n      DO 1883 M = 1,I1\r\n 1883 PGHDG(M+128) = HDG5(M+1)\r\n      GO TO 1886\r\n 1884 I1 = HDG4(1)\r\n      DO 1885 M = 1,I1\r\n 1885 PGHDG(M+128) = HDG4(M+1)\r\n 1886 I1 = I1 + 32\r\n      GO TO 1940\r\n 1888 I1 = HDG2(1)\r\n      I2 = I1 + 1\r\n      DO 1890 M = 1,I1\r\n 1890 PGHDG(M+128) = HDG2(M+1)\r\n      DO 1900 M = I2,32\r\n 1900 PGHDG(M+128) = NBLANK\r\n      I1 = HDG3(1)\r\n      I2 = I1 + 1\r\n      DO 1920 M = 1,I1\r\n 1920 PGHDG(M+160) = HDG3(M+1)\r\n      DO 1930 M = I2,32\r\n 1930 PGHDG(M+160) = NBLANK\r\n      IF (DIAGI4.EQ.0 .AND. START.EQ.ICST) GO TO 3000\r\n      IPAGE = 1\r\n      CALL PAGE\r\n      GO TO 3000\r\nC\r\nC     BLANK OUT HEADING\r\nC\r\n 1940 I2 = I1 + 1\r\n      DO 1950 M = I2,96\r\n      PGHDG(M+ 96) = NBLANK\r\n 1950 CONTINUE\r\n      NLINES = NLPP\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 2  (XGPI)\r\nC     =================\r\nC\r\n 1960 IF (START .EQ. IUNST) GO TO 1980\r\n      CALL PAGE2 (-6)\r\n      WRITE  (OP,1965)\r\n 1965 FORMAT (1H0,/,'0  + INDICATES DMAP INSTRUCTIONS THAT ARE PROCESS',\r\n     1        'ED ONLY AT DMAP COMPILATION TIME.')\r\n      WRITE  (OP,1967)\r\n 1967 FORMAT ('0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR ',\r\n     1        'EXECUTION IN THIS MODIFIED RESTART.')\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 12\r\nC     ==========\r\nC\r\n 1970 CALL PAGE2 (-5)\r\n      WRITE  (OP,1975) UIM\r\n 1975 FORMAT (A29,' 4147', /5X,'NOTE THAT ADDITIONAL DMAP INSTRUCTIONS',\r\n     1        ' (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING)',/5X,\r\n     2        'NEED TO BE FLAGGED FOR EXECUTION IN ORDER TO GENERATE ',\r\n     3        'CERTAIN REQUIRED DATA BLOCKS.', /5X,\r\n     4        'SUCH INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE ',\r\n     5        'IDENTIFIED BELOW.')\r\n      GO TO 3000\r\nC\r\n 1980 CALL PAGE2 (-6)\r\n      WRITE  (OP,1965)\r\n      WRITE  (OP,1982)\r\n 1982 FORMAT ('0  * INDICATES DMAP INSTRUCTIONS THAT ARE FLAGGED FOR ',\r\n     1        'EXECUTION IN THIS UNMODIFIED RESTART.')\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 11\r\nC     ==========\r\nC\r\n 1985 CALL PAGE2 (-6)\r\n      WRITE  (OP,1988) UIM,I\r\n 1988 FORMAT (A29,' 4148', /5X,'NOTE THAT ADDITIONAL DMAP INSTRUCTIONS',\r\n     1        ' (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING)',/5X,\r\n     2        'NEED TO BE FLAGGED FOR EXECUTION SINCE THIS UNMODIFIED ',\r\n     3        'RESTART INVOLVES DMAP LOOPING AND', /5X,\r\n     4        'THE REENTRY POINT IS WITHIN A DMAP LOOP.  SUCH INSTRUCT',\r\n     5        'IONS ARE IDENTIFIED BELOW.', /5X,\r\n     6        'THE EXECUTION WILL, HOWEVER, RESUME AT THE LAST REENTRY',\r\n     7        ' POINT (DMAP INSTRUCTION NO.',I5,2H).,/)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 3  (KYXFLD)\r\nC     ===================\r\nC\r\n 2000 NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE1\r\n      WRITE  (OP,2010) I,J\r\n 2010 FORMAT ('0TO GENERATE DATA BLOCK ',2A4,' - TURN ON THE EXECUTE ',\r\n     1        'FLAG FOR THE FOLLOWING DMAP INSTRUCTIONS',/)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 4  (KYXFLD)\r\nC     ===================\r\nC\r\n 2020 NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE1\r\n      L = ANDF(A(6),MASKHI)\r\n      WRITE  (OP,2030) L,A(4),A(5)\r\n 2030 FORMAT (1X,I4,2X,2A4)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 5 - WRITE DMAP INSTRUCTION, FIRST LINE   (XSCNDM)\r\nC     =========================================================\r\nC\r\n 2040 IF (DIAGI4 .EQ. 0) GO TO 2050\r\n      IF (KDLH   .EQ. 0) GO TO 2255\r\n 2042 CALL PAGE2 (-2)\r\n      WRITE  (OP,2045) J,(A(M),M=1,I)\r\n 2045 FORMAT (/1X,I7,2X,20A4)\r\n 2050 IF (DIAG17 .NE. 0) WRITE (LPCH,2055) (A(M),M=1,I)\r\n 2055 FORMAT (20A4)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 6 - WRITE DMAP INSTRUCTION, CONTINUATION LINE   (XSCNDM)\r\nC     ================================================================\r\nC\r\n 2060 IF (DIAGI4 .EQ. 0) GO TO 2070\r\n      NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      WRITE  (OP,2065) (A(M),M=1,I)\r\n 2065 FORMAT (10X,20A4)\r\n 2070 IF (DIAG17 .NE. 0) WRITE (LPCH,2075) (A(M),M=1,I)\r\n 2075 FORMAT (20A4)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 7   (XLNKHD)\r\nC     MESSAGE 10  (XLNKHD AND XOSGEN)\r\nC     ===============================\r\nC\r\n 2080 CONTINUE\r\n      IF (DIAGI4 .EQ. 0) GO TO 3000\r\n      IWRITE = ISTAR\r\n      IF (MSGNO .EQ. 10) IWRITE = IPLUS\r\n      WRITE  (OP,2090) IPLUS,IWRITE\r\n 2090 FORMAT (A1,2X,A1)\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 8  (KYGPI)\r\nC     ==================\r\nC\r\n 2100 CALL PAGE1\r\n      NLINES = NLINES + 4\r\n      WRITE  (OP,2110)\r\n 2110 FORMAT ('0THE FOLLOWING FILES FROM THE OLD PROBLEM TAPE WERE ',\r\n     1        'USED TO INITIATE RESTART', //4X,\r\n     2        'FILE NAME  REEL NO.  FILE NO.',/)\r\n      DO 2150 M = I,J,3\r\n      IREEL = ANDF(RSHIFT(A(M+2),16),31)\r\n      IFILE = ANDF(A(M+2),MASKHI)\r\n      CALL PAGE2 (-1)\r\n      IF (IFILE .EQ. 0) GO TO 2130\r\n      WRITE  (OP,2120) A(M),A(M+1),IREEL,IFILE\r\n 2120 FORMAT (5X,2A4,2X,I8,2X,I8)\r\n      GO TO 2150\r\n 2130 WRITE  (OP,2140) A(M),A(M+1)\r\n 2140 FORMAT (5X,2A4,2X,8H(PURGED))\r\n 2150 CONTINUE\r\n      GO TO 3000\r\nC\r\nC     MESSAGE 9  (KYGPI)\r\nC     ==================\r\nC\r\n 2160 IF (BKDATA .LT. 0) CALL PAGE2 (-2)\r\n      IF (BKDATA .EQ.-2) GO TO 2171\r\n      IF (IFLG(1).EQ. 1) GO TO 2165\r\n      WRITE  (OP,2161)\r\n 2161 FORMAT (1H0,10X,'**COMPILATION COMPLETE - JOB TERMINATING WITH ',\r\n     1       'NOGO STATUS**')\r\n      GO TO 2175\r\n 2165 IF (BKDATA .GE. 0) GO TO 2175\r\n      WRITE  (OP,2170)\r\n 2170 FORMAT (1H0,10X,'**NO ERRORS FOUND - EXECUTE NASTRAN PROGRAM**')\r\n      GO TO 2175\r\n 2171 WRITE  (OP,2172)\r\n 2172 FORMAT (1H0,9X,'**NO ERRORS FOUND - NASTRAN EXECUTION TERMINATED',\r\n     1        ' BY USER REQUEST**')\r\n      GO TO 3000\r\nC\r\nC     DUMP FIAT IF SENSE SWITCH 2 IS ON\r\nC\r\n 2175 CALL SSWTCH (2,L)\r\n      IF (L .EQ. 0) GO TO 2210\r\n      CALL PAGE1\r\n      NLINES = NLINES + 4\r\n      WRITE  (OP,2180) A(1),A(2),A(3)\r\n 2180 FORMAT (1H ,/5X,22HFIAT AT END OF PREFACE,3I15, /,1H ,/5X,'EQUIV',\r\n     2     '  APPEND    LTU  TAPE  UNIT  FILE NAME',31X,'---TRAILER---')\r\n      L1 = A(3)*ICFIAT - 2\r\n      DO 2200 L = 4,L1,ICFIAT\r\n      IEQUIV = 0\r\n      IAPPND = 0\r\n      ITAPE  = 0\r\n      IF (RSHIFT(ANDF(A(L),IEQFLG),1) .GT. 0) IEQUIV = 1\r\n      IF (ANDF(A(L),IAPND ) .GT. 0) IAPPND = 1\r\n      IF (ANDF(A(L),ITPFLG) .GT. 0) ITAPE  = 1\r\n      LTU = ANDF(RSHIFT(A(L),16),16383)\r\n      IUNIT = ANDF(A(L),16383)\r\n      IA1 = A(L+1)\r\n      IA2 = A(L+2)\r\n      IF (IA1 .NE. 0) GO TO 2185\r\n      IA1 = IBLNK\r\n      IA2 = IBLNK\r\n 2185 M1  = L + 3\r\n      M2  = L + 5\r\n      CALL PAGE2 (-1)\r\n      WRITE (OP,2190) IEQUIV,IAPPND,LTU,ITAPE,IUNIT,IA1,IA2\r\n      IF (ICFIAT .EQ.  8) WRITE (OP,2191) (A(M),M=M1,M2)\r\n      IF (ICFIAT .EQ. 11) WRITE (OP,2192) (A(M),M=M1,M2),(A(M+M2),M=3,5)\r\n 2190 FORMAT (7X,I1,7X,I1,3X,I6,4X,I1,1X,I6,2X,2A4)\r\n 2191 FORMAT (1H+,48X,3I20)\r\n 2192 FORMAT (1H+,48X,6I10)\r\n 2200 CONTINUE\r\n 2210 IF (J .EQ. 0) GO TO 3000\r\n      IF (IROPEN .EQ. 1) GO TO 2215\r\nCWKBD OPEN (UNIT=4, FILE='FORTDIC.ZAP', STATUS='UNKNOWN')\r\n      IROPEN = 1\r\n 2215 WRITE  (IRDICT,2220) I\r\n 2220 FORMAT (9X,'1,   XVPS    ,   FLAGS = 0,   REEL =  1,   FILE =',I7)\r\n      CALL SSWTCH (9,DIAG09)\r\n      IF (DIAG09 .EQ. 1) GO TO 3000\r\n      CALL PAGE1\r\n      NLINES = NLINES + 3\r\n      WRITE  (OP,2230)\r\n 2230 FORMAT (9X,'CONTINUATION OF CHECKPOINT DICTIONARY', /,1H )\r\n      WRITE  (OP,2220) I\r\n      GO TO 3000\r\n 2240 NLINES = 2 + NLINES\r\n      IF (NLINES .GE. NLPP) CALL PAGE1\r\n      WRITE  (OP,2250) MSGNO\r\n 2250 FORMAT (//,' NO MESSAGE AVAILABLE FOR MESSAGE NO. ',I4)\r\n      GO TO 3000\r\nC\r\nC     PROCESS DMAP COMPILER OPTIONS SUMMARY\r\nC\r\n 2255 IF (KDLH .NE. 0) GO TO 3000\r\n      IF (IPAGE.EQ. 0) CALL PAGE\r\n      NLINES   = NLINES + 4\r\n      LINE( 1) = NAMOPT( 1)\r\n      LINE( 2) = NAMOPT( 2)\r\n      LINE( 3) = NAMOPT( 5)\r\n      LINE( 4) = IFLG  ( 2)\r\n      LINE( 5) = NAMOPT( 9)\r\n      LINE( 6) = NAMOPT(10)\r\n      LINE( 7) = NAMOPT(13)\r\n      LINE( 8) = NAMOPT(14)\r\n      LINE( 9) = NAMOPT(17)\r\n      LINE(10) = NAMOPT(18)\r\n      LINE(11) = NAMOPT(21)\r\n      LINE(12) = NAMOPT(22)\r\n      IF (IFLG(1) .LE. 0) LINE(1) = NAMOPT(3)\r\n      IF (IFLG(3) .LE. 0) GO TO 2300\r\n      LINE( 5) = NAMOPT( 7)\r\n      LINE( 6) = NAMOPT( 8)\r\n 2300 IF (IFLG(4) .LE. 0) GO TO 2310\r\n      LINE( 7) = NAMOPT(11)\r\n      LINE( 8) = NAMOPT(12)\r\n 2310 IF (IFLG(5) .LE. 0) GO TO 2330\r\n      LINE( 9) = NAMOPT(15)\r\n      LINE(10) = NAMOPT(16)\r\n 2330 IF (IFLG(6) .LE. 0) GO TO 2345\r\n      LINE(11) = NAMOPT(19)\r\n      LINE(12) = NAMOPT(20)\r\n 2345 WRITE  (OP,2350) (LINE(KKDJ),KKDJ=1,12)\r\n 2350 FORMAT ('0  OPTIONS IN EFFECT ',2A4,A3,1H=,I1,3X,8A4,/3X,17(1H-),\r\n     1        /)\r\n      KDLH = 1\r\n      GO TO 2042\r\nC\r\nC     MESSAGE 13   (XGPI)\r\nC     ===================\r\nC\r\n 2400 NSCR = 315\r\n      L    = 20\r\n      CALL OPEN (*3000,NSCR,A(L),0)\r\n      CALL PAGE1\r\n      CALL PAGE3 (4)\r\n      WRITE  (OP,2410) UIM\r\n 2410 FORMAT (A29,' - DUE TO ERROR(S), POSSIBLY ORIGINATED FROM USER''S'\r\n     1,      ' ALTER PACKAGE, THE UNMODIFIED RIGID FORMAT LISTING', /5X,\r\n     2       'IS PRINTED FOR CROSS REFERENCE',/)\r\n      L = 0\r\n 2420 CALL READ (*2440,*2440,NSCR,A(1),18,0,M)\r\n      IF (A(1) .EQ. IBLNK) GO TO 2430\r\n      CALL PAGE3 (2)\r\n      L = L + 1\r\n      WRITE (OP,2045) L,(A(M),M=1,18)\r\n      GO TO 2420\r\n 2430 NLINES = NLINES + 1\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      WRITE (OP,2065) (A(M),M=1,18)\r\n      GO TO 2420\r\n 2440 CALL CLOSE (NSCR,1)\r\nC\r\n 3000 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xipfl.f",
    "content": "      SUBROUTINE XIPFL\r\nC\r\nC     THE PURPOSE OF XIOFL IS TO GENERATE THE INPUT AND OUTPUT FILE\r\nC     SECTIONS FOR AN OSCAR ENTRY.\r\nC\r\n      EXTERNAL        ANDF,ORF\r\n      INTEGER         DMPCNT,DMPPNT,BCDCNT,DMAP,OSPRC,OSBOT,OSPNT,\r\n     1                OSCAR(1),OS(5),ANDF,ORF\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\nC                  ** CONTROL CARD NAMES **\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\nC                  ** DMAP CARD NAMES **\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,NCPW,NBPC,NWPC,\r\n     4                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /PASSER/ ISTOPF,MODNAM,ICOMON\r\n      EQUIVALENCE     (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC),\r\n     1                (OS(3),OSBOT),(OS(4),OSPNT),(OS(5),OSCAR(1))\r\nC\r\nC\r\nC     SET INPUT FILE FLAG\r\nC\r\n      IOFL = 1\r\n      K3   = 0\r\n      ISTOPF = 0\r\n      J = MPL(MPLPNT)\r\n      MPLPNT = MPLPNT + 1\r\n      IF (J .NE. 0) GO TO 8\r\nC\r\nC     NO INPUT FILES - MAKE ONE NULL ENTRY IN OSCAR\r\nC\r\n      OSCAR(OSPNT+6) = 1\r\n      OSCAR(OSPNT+7) = 0\r\n      OSCAR(OSPNT+8) = 0\r\n      OSCAR(OSPNT+9) = 0\r\n      OSCAR(OSPNT) = OSCAR(OSPNT) + 4\r\n      GO TO 7\r\nC\r\nC\r\n      ENTRY XOPFL\r\nC     ===========\r\nC\r\nC     SET O/P FLAG\r\nC\r\n      IOFL = 0\r\n      K3   = 0\r\n      ISTOPF = 0\r\n      J = MPL(MPLPNT)\r\n      MPLPNT = MPLPNT + 1\r\n      IF (J .NE. 0) GO TO 8\r\nC\r\nC     THERE ARE NO O/P FILES - CHANGE OSCAR ENTRY TYPE CODE TO O FORMAT\r\nC\r\n      OSCAR(OSPNT+2) = ORF(2,ANDF(MASKLO,OSCAR(OSPNT+2)))\r\n      GO TO 7\r\nC\r\nC\r\nC     SCAN INPUT OR OUTPUT SECTION\r\nC\r\n    8 I = OSPNT + OSCAR(OSPNT)\r\n      ISTOPF   = I\r\n      OSCAR(I) = J\r\n      OSCAR(OSPNT) = 1 + OSCAR(OSPNT)\r\n      I = I + 1\r\n      J = I + 3*(J-1)\r\n      OSCAR(OSPNT) = J + 3 - OSPNT\r\nC\r\nC     ZERO I/O SECTION\r\nC\r\n      L = J + 2\r\n      DO 1 K = I,L\r\n    1 OSCAR(K) = 0\r\nC\r\nC     ENTER FILE NAME IN OSCAR FROM DMAP\r\nC\r\n      DO 10 K = I,J,3\r\n      CALL XSCNDM\r\n      GO TO (30,2,20,30,20), IRTURN\r\nC\r\nC     OK IF NAME RETURNED FROM XSCNDM\r\nC\r\n    2 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 10\r\nC\r\nC     ENTER NAME IN OSCAR AND INITIALIZE ORDNAL\r\nC\r\n      OSCAR(K  ) = DMAP(DMPPNT  )\r\n      OSCAR(K+1) = DMAP(DMPPNT+1)\r\n      OSCAR(K+2) = 0\r\n   10 CONTINUE\r\n    7 CALL XSCNDM\r\n      GO TO (15,20,20,22,20), IRTURN\r\n   15 IF (DMAP(DMPPNT+1) .EQ. ISLSH) GO TO 22\r\nC\r\nC     NORMAL EXIT IF DMAP OPERATOR IS /\r\nC\r\nC     ERROR EXIT\r\nC     BLANK ITEM IN O/P SECTION OF TYPE O FORMAT IS OKAY\r\nC\r\n   20 IF (J.EQ.0 .AND. IOFL.EQ.0 .AND. DMAP(DMPPNT).EQ.NBLANK)\r\n     1    GO TO 7\r\n      K1 = 1 + (K-I)/3\r\n      K2 = 1 + (J-I)/3\r\n      IF (K1  .LE. K2) GO TO 21\r\n      IF (K3  .EQ.  1) GO TO 7\r\n      IF (IOFL .EQ. 1) CALL XGPIDG (62,OSPNT,0,0)\r\n      IF (IOFL .EQ. 0) CALL XGPIDG (63,OSPNT,0,0)\r\n      K3 = 1\r\n      GO TO 7\r\n   21 IRTURN = 2\r\n      GO TO 25\r\n   22 IRTURN = 1\r\n   25 RETURN\r\nC\r\nC\r\nC     DELIMITER OR END OF INSTRUCTION ENCOUNTERED BEFORE ANTICIPATED -\r\nC     CHECK FOR ILLEGAL INPUT FORMAT\r\nC\r\n   30 IF (IOFL.NE.1 .OR. DMAP(DMPPNT+1).NE.ISLSH) GO TO 20\r\n      IF (ICOMON .EQ. 0) GO TO 21\r\n      ITYP = ANDF(OSCAR(OSPNT+2),7)\r\n      IF (ITYP .EQ. 2) GO TO 22\r\nC\r\nC     FIRST INPUT FILE WAS NULL - SHIFT I/P SECTION BY ONE ENTRY AND\r\nC     ZERO FIRST ENTRY\r\nC     ISSUE WARNING MESSAGE\r\nC\r\n      CALL XGPIDG (-1,OSPNT,0,0)\r\n      IF (I .EQ. J) GO TO 22\r\n      I = I + 3\r\n      J = J + 2\r\n      DO 32 K = I,J\r\n      L = J - K + I\r\n   32 OSCAR(L  ) = OSCAR(L-3)\r\n      OSCAR(I-3) = 0\r\n      OSCAR(I-2) = 0\r\n      OSCAR(I-1) = 0\r\n      GO TO 22\r\n      END\r\n"
  },
  {
    "path": "mis/xlnkdd.f",
    "content": "      SUBROUTINE XLNKDD\r\nC\r\nC     LINK SPECIFICATION TABLE\r\nC\r\nC     A LINK TABLE ENTRY CONTAINS AN EXECUTABLE DMAP INSTRUCTION NAMES,\r\nC     THEIR CORRESPONDING SUBROUTINE ENTRY POINT NAMES, AND THE LINK OR\r\nC     LINKS WHERE THEY RESIDE\r\nC     EACH BIT IN THE LINK FLAG SPECIFIES A LINK NUMBER. BIT 1 (RIGHT\r\nC     MOST) SPECIFIES LINK ONE, BIT 2 SPECIFIES LINK 2, ETC.\r\nC     BIT ON SPECIFIES MODULE IS IN THAT LINK, BIT OFF MEANS IT IS NOT.\r\nC     EXAMPLE - SUPPOSE MODULE X IS IN LINKS 2,4 AND 5. ITS LINK\r\nC               FLAG=32(8).\r\nC\r\nC     LLINK = LENGTH OF LINK TABLE.\r\nC\r\nC     SET SENSE SWITCH 28 TO GENERATE ALL FORTRAN CODE BELOW.\r\nC\r\n      DIMENSION       LINK (960),\r\n     1                LINK01(90), LINK02(90), LINK03(90),LINK04(90),\r\n     2                LINK05(90), LINK06(90), LINK07(90),LINK08(90),\r\n     3                LINK09(90), LINK10(90), LINK11(70)\r\n      COMMON /XLKSPC/ LLINK     , KLINK(970)\r\n      EQUIVALENCE     (LINK(  1), LINK01(1)), (LINK( 91),LINK02(1)),\r\n     1                (LINK(181), LINK03(1)), (LINK(271),LINK04(1)),\r\n     2                (LINK(361), LINK05(1)), (LINK(451),LINK06(1)),\r\n     3                (LINK(541), LINK07(1)), (LINK(631),LINK08(1)),\r\n     4                (LINK(721), LINK09(1)), (LINK(811),LINK10(1)),\r\n     5                (LINK(901), LINK11(1))\r\n      DATA    LLINKX / 970 /\r\n      DATA    LINK01 / 4HCHKP,4HNT  , 4HXCHK,4H    , 32767 ,\r\n     1                 4HREPT,4H    , 4HXCEI,4H    , 32767 ,\r\n     2                 4HJUMP,4H    , 4HXCEI,4H    , 32767 ,\r\n     3                 4HCOND,4H    , 4HXCEI,4H    , 32767 ,\r\n     4                 4HSAVE,4H    , 4HXSAV,4HE   , 32766 ,\r\n     5                 4HPURG,4HE   , 4HXPUR,4HGE  , 32767 ,\r\n     6                 4HEQUI,4HV   , 4HXEQU,4HIV  , 32767 ,\r\n     7                 4HEND ,4H    , 4HXCEI,4H    , 32767 ,\r\n     8                 4HEXIT,4H    , 4HXCEI,4H    , 32767 ,\r\n     9                 4HADD ,4H    , 4HDADD,4H    , 72    ,\r\n     O                 4HADD5,4H    , 4HDADD,4H5   , 64    ,\r\n     1                 4HAMG ,4H    , 4HAMG ,4H    , 256   ,\r\n     2                 4HAMP ,4H    , 4HAMP ,4H    , 256   ,\r\n     3                 4HAPD ,4H    , 4HAPD ,4H    , 256   ,\r\n     4                 4HBMG ,4H    , 4HBMG ,4H    , 512   ,\r\n     5                 4HCASE,4H    , 4HCASE,4H    , 512   ,\r\n     6                 4HCEAD,4H    , 4HCEAD,4H    , 1024  ,\r\n     7                 4HCYCT,4H1   , 4HCYCT,4H1   , 64    /\r\n      DATA    LINK02 / 4HCYCT,4H2   , 4HCYCT,4H2   , 64    ,\r\n     1                 4HDDR ,4H    , 4HDDR ,4H    , 128   ,\r\n     2                 4HDDR1,4H    , 4HDDR1,4H    , 2048  ,\r\n     3                 4HDDR2,4H    , 4HDDR2,4H    , 2048  ,\r\n     4                 4HDDRM,4HM   , 4HDDRM,4HM   , 2048  ,\r\n     5                 4HDECO,4HMP  , 4HDDCO,4HMP  , 64    ,\r\n     6                 4HDIAG,4HONAL, 4HDIAG,4HON  , 16384 ,\r\n     7                 4HDPD ,4H    , 4HDPD ,4H    , 32    ,\r\n     8                 4HDSCH,4HK   , 4HDSCH,4HK   , 64    ,\r\n     9                 4HDSMG,4H1   , 4HDSMG,4H1   , 4096  ,\r\n     O                 4HDSMG,4H2   , 4HDSMG,4H2   , 8     ,\r\n     1                 4HDUMM,4HOD1 , 4HDUMO,4HD1  , 4     ,\r\n     2                 4HDUMM,4HOD2 , 4HDUMO,4HD2  , 64    ,\r\n     3                 4HDUMM,4HOD3 , 4HDUMO,4HD3  , 64    ,\r\n     4                 4HDUMM,4HOD4 , 4HDUMO,4HD4  , 64    ,\r\n     5                 4HEMA1,4H    , 4HEMA1,4H    , 128   ,\r\n     6                 4HEMG ,4H    , 4HEMG ,4H    , 128   ,\r\n     7                 4HFA1 ,4H    , 4HFA1 ,4H    , 1024  /\r\n      DATA    LINK03 / 4HFA2 ,4H    , 4HFA2 ,4H    , 1024  ,\r\n     1                 4HFBS ,4H    , 4HDFBS,4H    , 64    ,\r\n     2                 4HFRLG,4H    , 4HFRLG,4H    , 512   ,\r\n     3                 4HFRRD,4H    , 4HFRRD,4H    , 512   ,\r\n     4                 4HGI  ,4H    , 4HGI  ,4H    , 256   ,\r\n     5                 4HGKAD,4H    , 4HGKAD,4H    , 512   ,\r\n     6                 4HGKAM,4H    , 4HGKAM,4H    , 512   ,\r\n     7                 4HGP1 ,4H    , 4HGP1 ,4H    , 2     ,\r\n     8                 4HGP2 ,4H    , 4HGP2 ,4H    , 2     ,\r\n     9                 4HGP3 ,4H    , 4HGP3 ,4H    , 2     ,\r\n     O                 4HGP4 ,4H    , 4HGP4 ,4H    , 8     ,\r\n     1                 4HGPCY,4HC   , 4HGPCY,4HC   , 64    ,\r\n     2                 4HGPFD,4HR   , 4HGPFD,4HR   , 4096  ,\r\n     3                 4HDUMM,4HOD5 , 4HDUMO,4HD5  , 64    ,\r\n     4                 4HGPWG,4H    , 4HGPWG,4H    , 8     ,\r\n     5                 4HINPU,4HT   , 4HINPU,4HT   , 2     ,\r\n     6                 4HINPU,4HTT1 , 4HINPT,4HT1  , 2     ,\r\n     7                 4HINPU,4HTT2 , 4HINPT,4HT2  , 2     /\r\n      DATA    LINK04 / 4HINPU,4HTT3 , 4HINPT,4HT3  , 2     ,\r\n     1                 4HINPU,4HTT4 , 4HINPT,4HT4  , 2     ,\r\n     2                 4HMATG,4HEN  , 4HMATG,4HEN  , 64    ,\r\n     3                 4HMATG,4HPR  , 4HMATG,4HPR  , 16    ,\r\n     4                 4HMATP,4HRN  , 4HMATP,4HRN  , 32766 ,\r\n     5                 4HMATP,4HRT  , 4HPRTI,4HNT  , 32766 ,\r\n     6                 4HMCE1,4H    , 4HMCE1,4H    , 8     ,\r\n     7                 4HMCE2,4H    , 4HMCE2,4H    , 8     ,\r\n     8                 4HMERG,4HE   , 4HMERG,4HE1  , 64    ,\r\n     9                 4HMODA,4H    , 4HMODA,4H    , 64    ,\r\n     O                 4HMODA,4HCC  , 4HMODA,4HCC  , 2048  ,\r\n     1                 4HMODB,4H    , 4HMODB,4H    , 64    ,\r\n     2                 4HMODC,4H    , 4HMODC,4H    , 64    ,\r\n     3                 4HMPYA,4HD   , 4HDMPY,4HAD  , 64    ,\r\n     4                 4HMTRX,4HIN  , 4HMTRX,4HIN  , 512   ,\r\n     5                 4HOFP ,4H    , 4HOFP ,4H    , 8192  ,\r\n     6                 4HOPTP,4HR1  , 4HOPTP,4HR1  , 2     ,\r\n     7                 4HOPTP,4HR2  , 4HOPTP,4HR2  , 128   /\r\n      DATA    LINK05 / 4HOUTP,4HUT  , 4HOUTP,4HT   , 8192  ,\r\n     1                 4HOUTP,4HUT1 , 4HOUTP,4HT1  , 8192  ,\r\n     2                 4HOUTP,4HUT2 , 4HOUTP,4HT2  , 8192  ,\r\n     3                 4HOUTP,4HUT3 , 4HOUTP,4HT3  , 8192  ,\r\n     4                 4HOUTP,4HUT4 , 4HOUTP,4HT4  , 8192  ,\r\n     5                 4HPARA,4HM   , 4HQPAR,4HAM  , 32766 ,\r\n     6                 4HPARA,4HML  , 4HPARA,4HML  , 32766 ,\r\n     7                 4HPARA,4HMR  , 4HQPAR,4HMR  , 32766 ,\r\n     8                 4HPART,4HN   , 4HPART,4HN1  , 64    ,\r\n     9                 4HMRED,4H1   , 4HMRED,4H1   , 16384 ,\r\n     O                 4HMRED,4H2   , 4HMRED,4H2   , 16384 ,\r\n     1                 4HCMRE,4HD2  , 4HCMRD,4H2   , 16384 ,\r\n     2                 4HPLA1,4H    , 4HPLA1,4H    , 4     ,\r\n     3                 4HPLA2,4H    , 4HPLA2,4H    , 4096  ,\r\n     4                 4HPLA3,4H    , 4HPLA3,4H    , 4096  ,\r\n     5                 4HPLA4,4H    , 4HPLA4,4H    , 4096  ,\r\n     6                 4HPLOT,4H    , 4HDPLO,4HT   , 2     ,\r\n     7                 4HPLTS,4HET  , 4HDPLT,4HST  , 2     /\r\n      DATA    LINK06 / 4HPLTT,4HRAN , 4HPLTT,4HRA  , 2     ,\r\n     1                 4HPRTM,4HSG  , 4HPRTM,4HSG  , 2     ,\r\n     2                 4HPRTP,4HARM , 4HPRTP,4HRM  , 128   ,\r\n     3                 4HRAND,4HOM  , 4HRAND,4HOM  , 8192  ,\r\n     4                 4HRMG ,4H    , 4HRMG ,4H    , 16    ,\r\n     5                 4HRBMG,4H1   , 4HRBMG,4H1   , 8     ,\r\n     6                 4HRBMG,4H2   , 4HRBMG,4H2   , 8     ,\r\n     7                 4HRBMG,4H3   , 4HRBMG,4H3   , 8     ,\r\n     8                 4HRBMG,4H4   , 4HRBMG,4H4   , 8     ,\r\n     9                 4HREAD,4H    , 4HREIG,4H    , 32    ,\r\n     O                 4HSCAL,4HAR  , 4HSCAL,4HAR  , 16384 ,\r\n     1                 4HSCE1,4H    , 4HSCE1,4H    , 8     ,\r\n     2                 4HSDR1,4H    , 4HSDR1,4H    , 2048  ,\r\n     3                 4HSDR2,4H    , 4HSDR2,4H    , 4096  ,\r\n     4                 4HSDR3,4H    , 4HSDR3,4H    , 8192  ,\r\n     5                 4HSDRH,4HT   , 4HSDRH,4HT   , 4096  ,\r\n     6                 4HSEEM,4HAT  , 4HSEEM,4HAT  , 2     ,\r\n     7                 4HSETV,4HAL  , 4HSETV,4HAL  , 32766 /\r\n      DATA    LINK07 / 4HSMA1,4H    , 4HSMA1,4H    , 4     ,\r\n     1                 4HSMA2,4H    , 4HSMA2,4H    , 4     ,\r\n     2                 4HSMA3,4H    , 4HSMA3,4H    , 8     ,\r\n     3                 4HSMP1,4H    , 4HSMP1,4H    , 8     ,\r\n     4                 4HSMP2,4H    , 4HSMP2,4H    , 8     ,\r\n     5                 4HSMPY,4HAD  , 4HSMPY,4HAD  , 64    ,\r\n     6                 4HSOLV,4HE   , 4HSOLV,4HE   , 64    ,\r\n     7                 4HSSG1,4H    , 4HSSG1,4H    , 16    ,\r\n     8                 4HSSG2,4H    , 4HSSG2,4H    , 16    ,\r\n     9                 4HSSG3,4H    , 4HSSG3,4H    , 16    ,\r\n     O                 4HSSG4,4H    , 4HSSG4,4H    , 16    ,\r\n     1                 4HSSGH,4HT   , 4HSSGH,4HT   , 16    ,\r\n     2                 4HTA1 ,4H    , 4HTA1 ,4H    , 2     ,\r\n     3                 4HCURV,4H    , 4HCURV,4H    , 4096  ,\r\n     4                 4HTABP,4HCH  , 4HTABP,4HCH  , 32766 ,\r\n     5                 4HTABP,4HRT  , 4HTABF,4HMT  , 32766 ,\r\n     6                 4HTABP,4HT   , 4HTABP,4HT   , 32766 ,\r\n     7                 4HTIME,4HTEST, 4HTIMT,4HST  , 256   /\r\n      DATA    LINK08 / 4HTRD ,4H    , 4HTRD ,4H    , 1024  ,\r\n     1                 4HTRHT,4H    , 4HTRHT,4H    , 1024  ,\r\n     2                 4HTRLG,4H    , 4HTRLG,4H    , 16    ,\r\n     3                 4HTRNS,4HP   , 4HDTRA,4HNP  , 64    ,\r\n     4                 4HUMER,4HGE  , 4HDUME,4HRG  , 64    ,\r\n     5                 4HUPAR,4HTN  , 4HDUPA,4HRT  , 64    ,\r\n     6                 4HVDR ,4H    , 4HVDR ,4H    , 2048  ,\r\n     7                 4HVEC ,4H    , 4HVEC ,4H    , 64    ,\r\n     8                 4HXYPL,4HOT  , 4HXYPL,4HOT  , 2     ,\r\n     9                 4HXYPR,4HNPLT, 4HXYPR,4HPT  , 8192  ,\r\n     O                 4HXYTR,4HAN  , 4HXYTR,4HAN  , 2     ,\r\n     1                 4HCOMB,4H1   , 4HCOMB,4H1   , 16384 ,\r\n     2                 4HCOMB,4H2   , 4HCOMB,4H2   , 16384 ,\r\n     3                 4HEXIO,4H    , 4HEXIO,4H    , 16384 ,\r\n     4                 4HRCOV,4HR   , 4HRCOV,4HR   , 16384 ,\r\n     5                 4HRCOV,4HR3  , 4HRCOV,4HR3  , 16384 ,\r\n     6                 4HREDU,4HCE  , 4HREDU,4HCE  , 16384 ,\r\n     7                 4HSGEN,4H    , 4HSGEN,4H    , 16384 /\r\n      DATA    LINK09 / 4HSOFI,4H    , 4HSOFI,4H    , 16384 ,\r\n     1                 4HSOFO,4H    , 4HSOFO,4H    , 16384 ,\r\n     2                 4HSOFU,4HT   , 4HSOFU,4HT   , 16384 ,\r\n     3                 4HSUBP,4HH1  , 4HSUBP,4HH1  , 16384 ,\r\n     4                 4HPLTM,4HRG  , 4HPLTM,4HRG  , 16384 ,\r\n     5                 4HCOPY,4H    , 4HCOPY,4H    , 64    ,\r\n     6                 4HSWIT,4HCH  , 4HSWIT,4HCH  , 64    ,\r\n     7                 4HMPY3,4H    , 4HMPY3,4H    , 64    ,\r\n     8                 4HSDCM,4HPS  , 4HDDCM,4HPS  , 64    ,\r\n     9                 4HLODA,4HPP  , 4HLODA,4HPP  , 16384 ,\r\n     O                 4HGPST,4HGEN , 4HGPST,4HGN  , 8     ,\r\n     1                 4HEQMC,4HK   , 4HEQMC,4HK   , 2048  ,\r\n     2                 4HADR ,4H    , 4HADR ,4H    , 512   ,\r\n     3                 4HFRRD,4H2   , 4HFRRD,4H2   , 512   ,\r\n     4                 4HGUST,4H    , 4HGUST,4H    , 512   ,\r\n     5                 4HIFT ,4H    , 4HIFT ,4H    , 512   ,\r\n     6                 4HLAMX,4H    , 4HLAMX,4H    , 256   ,\r\n     7                 4HEMA ,4H    , 4HEMA ,4H    , 128   /\r\n      DATA    LINK10 / 4HANIS,4HOP  , 4HANIS,4HOP  , 2     ,\r\n     1                 4HEMFL,4HD   , 4HEMFL,4HD   , 4096  ,\r\n     2                 4HGENC,4HOS  , 4HGENC,4HOS  , 4096  ,\r\n     3                 4HDDAM,4HAT  , 4HDDAM,4HAT  , 4096  ,\r\n     4                 4HDDAM,4HPG  , 4HDDAM,4HPG  , 4096  ,\r\n     5                 4HNRLS,4HUM  , 4HNRLS,4HUM  , 4096  ,\r\n     6                 4HGENP,4HART , 4HGENP,4HAR  , 4096  ,\r\n     7                 4HCASE,4HGEN , 4HCASE,4HGE  , 4096  ,\r\n     8                 4HDESV,4HEL  , 4HDESV,4HEL  , 4096  ,\r\n     9                 4HPROL,4HATE , 4HPROL,4HAT  , 4096  ,\r\n     O                 4HMAGB,4HDY  , 4HMAGB,4HDY  , 16    ,\r\n     1                 4HCOMB,4HUGV , 4HCOMU,4HGV  , 4096  ,\r\n     2                 4HFLBM,4HG   , 4HFLBM,4HG   , 8     ,\r\n     3                 4HGFSM,4HA   , 4HGFSM,4HA   , 8     ,\r\n     4                 4HTRAI,4HLER , 4HTRAI,4HL   , 8     ,\r\n     5                 4HSCAN,4H    , 4HSCAN,4H    , 8192  ,\r\n     6                 4HPLTH,4HBDY , 4HPTHB,4HDY  , 2     ,\r\n     7                 4HVARI,4HAN  , 4HVARI,4HAN  , 8192  /\r\n      DATA    LINK11 / 4HFVRS,4HTR1 , 4HFVRS,4HT1  , 64    ,\r\n     1                 4HFVRS,4HTR2 , 4HFVRS,4HT2  , 64    ,\r\n     2                 4HALG ,4H    , 4HALG ,4H    , 32    ,\r\n     3                 4HAPDB,4H    , 4HAPDB,4H    , 256   ,\r\n     4                 4HPROM,4HPT1 , 4HPROM,4HPT  , 8194  ,\r\n     5                 4HSITE,4HPLOT, 4HOLPL,4HOT  , 2     ,\r\n     6                 4HINPU,4HTT5 , 4HINPT,4HT5  , 2     ,\r\n     7                 4HOUTP,4HUT5 , 4HOUTP,4HT5  , 8192  ,\r\n     8                 4HPARA,4HMD  , 4HQPAR,4HMD  , 32766 ,\r\n     9                 4HGINO,4HFILE, 4HGINO,4HFL  , 32766 ,\r\n     O                 4HDATA,4HBASE, 4HDBAS,4HE   , 8202  ,\r\n     1                 4HNORM,4H    , 4HNORM,4HAL  , 16    ,\r\n     2                 4HVECG,4HRB  , 4HGRBV,4HEC  , 64    ,\r\n     3                 4HAUTO,4HASET, 4HAASE,4HT   , 8     /\r\nC\r\nC     INITIALIZE /XLKSPC/\r\nC\r\n      LLINK = LLINKX\r\n      DO 10 I = 1,LLINK\r\n   10 KLINK(I) = LINK(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xlnkhd.f",
    "content": "      SUBROUTINE XLNKHD\r\nC\r\nC     THE PURPOSE OF XLNKHD IS TO GENERATE THE LINK HEADER SECTION FOR\r\nC     AN OSCAR ENTRY\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      DIMENSION       MED(1),OSCAR(1),OS(5)\r\n      COMMON /SYSTEM/ ISYS(81),CPFLG\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM,\r\n     1                ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,DUMMY(5),IFIRST\r\n      COMMON /XMDMSK/ NMSKCD,NMSKFL,NMSKRF,MEDMSK(7)\r\n      COMMON /XOLDPT/ XX(4),SEQNO\r\n      COMMON /AUTOHD/ IHEAD\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP\r\n      EQUIVALENCE     (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC),\r\n     1                (OS(3),OSBOT),(OS(4),OSPNT),\r\n     2                (OSCAR(1),MED(1),OS(5))\r\n      DATA    XCHK  / 4HXCHK   /\r\nC\r\n      OR (I,J) = ORF(I,J)\r\n      AND(I,J) = ANDF(I,J)\r\n      MPLER = MPL(MPLPNT+3)\r\n      IF (IHEAD .EQ. 1) MPLER = 4\r\nC\r\nC     CHECK FOR DECLARATIVE INSTRUCTION\r\nC\r\n      IF (IHEAD .EQ. 1) GO TO 20\r\n      IF (MPLER .NE. 5) GO TO 10\r\n      OSPNT = OSCAR(OSBOT) + OSBOT\r\n      GO TO 20\r\nC\r\nC     UPDATE OSCAR PARAMETERS\r\nC\r\n   10 OSPRC = OSBOT\r\n      OSBOT = OSCAR(OSBOT) + OSBOT\r\n      OSPNT = OSBOT\r\n      ISEQN = OSCAR(OSPRC+1) + 1\r\nC\r\nC     LOAD LINK HEADER INFORMATION\r\nC\r\n      OSCAR(OSPNT    ) = 6\r\n      OSCAR(OSPNT + 1) = ISEQN\r\n      OSCAR(OSPNT + 2) = MPLER + LSHIFT(MODIDX,16)\r\n      OSCAR(OSPNT + 3) = DMAP(DMPPNT    )\r\n      OSCAR(OSPNT + 4) = DMAP(DMPPNT + 1)\r\n      OSCAR(OSPNT + 5) = DMPCNT\r\nC\r\n      MPLPNT = MPLPNT + 4\r\n   20 OSCAR(OSPNT+5) = OR(ISGNON,OSCAR(OSPNT+5))\r\nC\r\nC     ALWAYS RAISE EXECUTE FLAG FOR COLD START RUNS\r\nC\r\n      IF (START .EQ. ICST)  GO TO 70\r\nC\r\nC     COMPARE SEQ NO. WITH REENTRY SEQ NO.\r\nC\r\n      IF (DMPCNT .LT. RSHIFT(SEQNO,16)) GO TO 30\r\nC\r\nC     WE ARE BEYOND REENTRY POINT - EXECUTE ALL MODULES HERE ON OUT.\r\nC\r\n      IF (ANDF(MASKHI,SEQNO).EQ.0 .AND. MPLER.NE.5)\r\n     1    SEQNO = OR(ISEQN,AND(MASKLO,SEQNO))\r\n      GO TO 70\r\nC\r\nC     WE ARE BEFORE REENTRY POINT - CHECK APPROACH AND TYPE OF RESTART\r\nC     ALWAYS RAISE EXECUTE FLAG FOR INSERT FOR MODIFIED RESTARTS.\r\nC\r\n   30 IF (INSERT.NE.0 .AND. START.EQ.IMST) GO TO 70\r\n      IF (START .EQ. IMST) GO TO 40\r\nC\r\nC     LOWER EXECUTE FLAG FOR UNMODIFIED RESTART RUNS.\r\nC\r\n      OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5))\r\n      IF (MPLER .EQ. 5) GO TO 90\r\n      RETURN\r\nC\r\nC     FOR RIGID FORMAT - CHECK DECISION TABLE FOR MODIFIED RESTART\r\nC\r\n   40 I = MED(MEDTP+1)\r\n      DO 50 J = 1,I\r\n      K = MEDPNT + J - 1\r\n      IF (AND(MED(K),MEDMSK(J)) .NE. 0) GO TO 70\r\n   50 CONTINUE\r\n      OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5))\r\n   70 IF (OSCAR(OSPNT+3).EQ.XCHK .AND. CPFLG.EQ.0)\r\n     1    OSCAR(OSPNT+5) = AND(NOSGN,OSCAR(OSPNT+5))\r\n      IF (OSCAR(OSPNT+5).GE.0 .AND. MPLER.NE.5) RETURN\r\nC\r\nC     PRINT COMPILE/EXECUTE FLAG FOR RESTART\r\nC\r\n   90 IF (START.EQ.ICST   .OR.  IFIRST.EQ.0) RETURN\r\n      IF (DMPCNT.EQ.IFLAG .AND. INSERT.EQ.0) RETURN\r\n      IFLAG = DMPCNT\r\n      I = 7\r\n      IF (MPLER .EQ. 5) I = 10\r\n      CALL XGPIMW (I,0,0,0)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xmpldd.f",
    "content": "      SUBROUTINE XMPLDD\r\nC\r\nC\r\nC     MPL    = MODULE PROPERTIES TABLE\r\nC     LMPL   = LENGTH OF MPL TABLE\r\nC     MPLPNT = POINTER TO AN MPL ENTRY\r\nC\r\nC     DESCRIPTION OF VARIABLES EQUIVALENCED TO /XGPI2/ ENTRIES\r\nC     EQUIVALENCE (LMPL,LORDNL),(MPLPNT,IORBOT),(MPL,IORDNL)\r\nC\r\nC     IORDNL = TABLE USED TO COMPUTE FILE ORDNALS AND NUT VALUES\r\nC     LORDNL = LENGTH OF IORDNL TABLE\r\nC     IORBOT = POINTER TO LAST ENTRY MADE IN IORDNL TABLE\r\nC\r\nC     ==================================================================\r\nC\r\nC     NOTE DATA ITEMS HAVE BLANK WORDS TO FACILITATE ADDITIONS\r\nC     CHANGE DIMENSIONS ONLY IF THE BLANKS ARE DEPLETED BY ADDITIONS\r\nC\r\nC     ANY FOLLOWING DATA LINE ENDS WITH BCD BLANKS SHOULD BE FOLLOWED BY\r\nC     COMMA, SO THAT A STRIPPING ROUTINE WOULD NOT STRIP OFF THOSE BLANK\r\nC\r\nC     ==================================================================\r\nC\r\nC                        LOAD /XGPI2/\r\nC                   MODULE PROPTERIES LIST (MPL)\r\nC\r\n      REAL             X(2,20)\r\n      DOUBLE PRECISION XX(20)    , XXX(20)\r\n      DIMENSION        MPL01( 68), MPL02(161), MPL03(135), MPL04(152),\r\n     5                 MPL05(138), MPL06(162), MPL07(200), MPL08(137),\r\n     9                 MPL09(173), MPL10( 93), MPL11(116), MPL12(135),\r\n     3                 MPL13(150), MPL14(151), MPL15(135), MPL16( 53),\r\n     7                 MPL17(144), MPL18(169), MPL19(193), MPL20(186),\r\n     1                 MPL21(196), MPL22(119), MPL( 3166)\r\n      COMMON /XGPI2 /  LMPL, MPLPNT    , IMP( 3166)\r\n      COMMON /XGPI2X/  XXX\r\n      EQUIVALENCE      (XX(1),X(1,1))\r\n      EQUIVALENCE      (MPL(   1),MPL01(1)) ,(MPL(  69),MPL02(1)) ,\r\n     3                 (MPL( 230),MPL03(1)) ,(MPL( 365),MPL04(1)) ,\r\n     5                 (MPL( 517),MPL05(1)) ,(MPL( 655),MPL06(1)) ,\r\n     7                 (MPL( 817),MPL07(1)) ,(MPL(1017),MPL08(1)) ,\r\n     9                 (MPL(1154),MPL09(1)) ,(MPL(1327),MPL10(1)) ,\r\n     1                 (MPL(1420),MPL11(1)) ,(MPL(1536),MPL12(1)) ,\r\n     3                 (MPL(1671),MPL13(1)) ,(MPL(1821),MPL14(1)) ,\r\n     5                 (MPL(1972),MPL15(1)) ,(MPL(2107),MPL16(1)) ,\r\n     7                 (MPL(2160),MPL17(1)) ,(MPL(2304),MPL18(1)) ,\r\n     9                 (MPL(2473),MPL19(1)) ,(MPL(2666),MPL20(1)) ,\r\n     1                 (MPL(2852),MPL21(1)) ,(MPL(3048),MPL22(1))\r\nC\r\n      DATA    LMPLX          /    3166      /\r\nC\r\n      DATA    X(1,1)         /    -1.0      /\r\n      DATA    XX(2)          /    -1.0D+0   /\r\n      DATA    X(1,3),X(2,3)  /  2*-1.0      /\r\n      DATA    XX(4),XX(5)    /  2*-1.0D+0   /\r\n      DATA    X(1,6)         /     1.0      /\r\n      DATA    X(1,7),X(2,7)  / 1.0,0.0      /\r\n      DATA    XX(8)          /     0.0D+0   /\r\n      DATA    X(1,9),X(2,9)  /     2*0.0    /\r\n      DATA    X(1,10)        /     30.0     /\r\n      DATA    X(1,11)        /     0.001    /\r\n      DATA    X(1,12)        /     0.55     /\r\n      DATA    X(1,13)        /     0.01     /\r\n      DATA    X(1,14)        /     0.00001  /\r\n      DATA    X(1,15)        /     1.01     /\r\n      DATA    X(1,16)        /     0.80     /\r\n      DATA    XX(17)         /     1.1D+37  /\r\n      DATA    X(1,18),X(2,18)/   2*1.1E+37  /\r\nC\r\nC\r\n      DATA    MPL01          /\r\n     1   4,   4HFILE,4H    , 5\r\n     2,  4,   4HBEGI,4HN   , 5\r\n     3,  4,   4HCHKP,4HNT  , 4\r\n     4,  4,   4HLABE,4HL   , 5\r\n     5,  4,   4HREPT,4H    , 3\r\n     6,  4,   4HJUMP,4H    , 3\r\n     7,  4,   4HCOND,4H    , 3\r\n     8,  4,   4HSAVE,4H    , 4\r\n     9,  4,   4HPURG,4HE   , 4\r\n     X,  4,   4HEQUI,4HV   , 4\r\n     1,  4,   4HEND ,4H    , 3\r\n     2,  4,   4HEXIT,4H    , 3\r\n     M, 20,   19*0\r\n     Z/\r\nC\r\nC      IN NEXT 12 LINES, '1' MAY MEAN NUMERIC ONE, OR A VERTICAL BAR\r\nC\r\nC      NO. OF WORDS        1  I  O  S   ---PARAMETERS\r\nC      OF THIS DMAP           N  U  C   1  NEGATIVE FOR NO DEFAULT\r\nC      LINE               OR  P  T  R   1  POSITIVE INDICATES DEFAULT TO\r\nC        1                    U  P  A   1   1 = INTEGER    NEXT VALUE(S)\r\nC        1   DAMP NAME     2  T  U  T   1   2 = RSP\r\nC        1   1                1  T  C   1   3 = BCD    (NEXT WORD(S)\r\nC        1   1     1. I/O DB  1  1  H   1   4 = RDP    AFTER 2,4,5,6 ARE\r\nC        1   1     2. NO OUT- 1  1  1   1   5 = CSP    POINTER TO DEF-\r\nC        1   1        PUT DB  1  1  1   1   6 = CDP    AULT VALUE(S) IN\r\nC        1   1             1  1  1  1   1              X OR XX ARRAYS)\r\nC        1   1             1  1  1  1   1   REF. PROG. MAN. SEC 2.4.2.2\r\n      DATA  MPL02 /\r\n     1  25, 4HADD ,4H    , 1, 2, 1, 0,  5,  2*18, 5, 2*18, 6,  4*17\r\n     2                               ,  6,  4*17, 1, 0\r\n     2, 22, 4HADD5,4H    , 1, 5, 1, 0,  5,  7, 7, 5, 7, 7, 5,7,7, 5,7,7\r\n     *                               ,  5,  7, 7\r\n     3, 10, 4HAMG ,4H    , 1, 2, 4, 5,  3* -1\r\n     4, 11, 4HAMP ,4H    , 1,10, 3,14,  2* -1, 1,-1\r\n     5, 12, 4HAPD ,4H    , 1, 8,12, 5,  3* -1, 2, 9\r\n     6, 10, 4HBMG ,4H    , 1, 4, 1, 1, -1, -1,-5\r\n     7, 12, 4HCASE,4H    , 1, 2, 1, 0, -3,  1, 1, 1,-1\r\n     9, 15, 4HCYCT,4H1   , 1, 1, 2, 3, -3, -3,-1,-1, 1, 1,1, 1\r\n     X, 16, 4HCYCT,4H2   , 1, 6, 5, 6, -3, -1,-1, 1,-1, 1,1, 1,1\r\n     8, 10, 4HCEAD,4H    , 1, 5, 4,12, -1,  1, 1\r\n     M, 11, 4HCURV,4H    , 1, 6, 2, 5,  1, -1, 1, 0\r\n     N,  7, 6*0\r\n     Z/\r\nC\r\n      DATA  MPL03 /\r\n     1  10, 4HDDR ,4H    , 1, 1, 1, 0, -3,-3,-3\r\n     2,  7, 4HDDR1,4H    , 1, 2, 1, 1\r\n     3, 14, 4HDDR2,4H    , 1, 9, 3, 6, -3, 1,-1, 1,-1,   1,-1\r\n     4,  7, 4HDDRM,4HM   , 1,11, 5, 7\r\n     5, 21, 4HDECO,4HMP  , 1, 1, 2, 4,  1, 0, 1, 0, 4,   8, 8, 5, 9, 9\r\n     *                               ,  1, 0, 1, 0\r\n     6, 12, 4HDIAG,4HONAL, 1, 1, 1, 0,  3,4HCOLU,4HMN  , 2, 6\r\n     7, 19, 4HDPD ,4H    , 1, 4,11, 4,  9*-1, 1, 1,-1\r\n     8, 16, 4HDSCH,4HK   , 1, 3, 0, 3,  2*-2, 7*-1\r\n     9,  8, 4HDSMG,4H1   , 1,10, 1, 1, -1\r\n     X, 11, 4HDSMG,4H2   , 1,11, 7, 0,  1, 0,-1,-1\r\n     M, 10, 9*0\r\n     Z/\r\nC\r\n      DATA  MPL04 /\r\n     1  33, 4HDUMM,4HOD1 , 1, 1, 2, 3,  1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1\r\n     *                               ,  3, 4HABCD , 4HEFGH , 4, 2,2, 5,3\r\n     *                               ,  3, 6, 4, 4, 5, 5\r\n     2, 33, 4HDUMM,4HOD2 , 1, 8, 8,10,  1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1\r\n     *                               ,  3, 4HABCD , 4HEFGH,  4, 2,2, 5,3\r\n     *                               ,  3, 6, 4, 4, 5, 5\r\n     3, 33, 4HDUMM,4HOD3 , 1, 8, 8,10,  1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1\r\n     *                               ,  3, 4HABCD , 4HEFGH , 4, 2,2, 5,3\r\n     *                               ,  3, 6, 4, 4, 5, 5\r\n     4, 33, 4HDUMM,4HOD4 , 1, 8, 8,10,  1,-1, 1,-1, 1,-1, 1,-1, 2,1, 2,1\r\n     *                               ,  3, 4HABCD , 4HEFGH,  4, 2,2, 5,3\r\n     *                               ,  3, 6, 4, 4, 5, 5\r\n     M, 20, 19*0\r\n     Z/\r\nC\r\n      DATA  MPL05 /\r\n     1  11, 4HEMA1,4H    , 1, 5, 1, 2,  1,-1, 2, 6\r\n     2, 43, 4HEMG ,4H    , 1, 6, 7, 4,  1,-1, 1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 2, 9, 2, 9\r\n     3, 11, 4HFA1 ,4H    , 1, 6, 4, 6,  2*-1, 1, 0\r\n     4, 12, 4HFA2 ,4H    , 1, 3, 4, 0, -1,-2, 3, 4HYES   ,4H     ,\r\n     5  15, 4HFBS ,4H    , 1, 3, 1, 1,  1, 0, 1, 1, 1, 0, 1, 0\r\n     6, 13, 4HFRLG,4H    , 1, 8, 5, 4, -3, 1,-1, 3, 4HFREQ,4H    ,\r\n     7  17, 4HFRRD,4H    , 1,11, 4, 8, -3,-3,-1,-1,-1,-1,-1,-1\r\n     *                               ,  1, 1\r\n     M, 16, 15*0\r\n     Z/\r\nC\r\n      DATA  MPL06 /\r\n     1   9, 4HGI  ,4H    , 1, 8, 1, 6,  2*-1\r\n     2, 24, 4HGKAD,4H    , 1,10, 8, 6, -3,-3,-3,-2,-2,-2, 11*-1\r\n     3, 21, 4HGKAM,4H    , 1, 9, 4, 4, -1,-1, 2, 9, 2, 1,  4*-1\r\n     *                   , 1, 1, 1,-1\r\n     4, 11, 4HGP1 ,4H    , 1, 3, 6, 2, -1,-1, 1, 1\r\n     5,  7, 4HGP2 ,4H    , 1, 2, 1, 4\r\n     6, 12, 4HGP3 ,4H    , 1, 3, 2, 2, -1, 1, 1, 1, 1\r\n     7, 24, 4HGP4 ,4H    , 1, 7, 5, 2,  9*-1, 1, 1, 1,-1, 1,0,  1,0\r\n     8, 10, 4HGPCY,4HC   , 1, 3, 1, 2, -3, 1, 1\r\n     A,  8, 4HGPFD,4HR   , 1, 9, 2, 4, -3\r\n     9, 20, 4HDUMM,4HOD5 , 1, 5, 5, 0, -1, 1, 0, 1, 0, 1, 0,1,0,1,0,1,0\r\n     X, 11, 4HGPWG,4H    , 1, 4, 1, 4,  1,-1, 2, 6\r\n     M,  5, 4*0\r\n     Z/\r\nC\r\n      DATA  MPL07 /\r\n     1  13, 4HINPU,4HT   , 1, 5, 5, 0,  1,-1, 1, 0, 1, 0\r\n     2, 17, 4HINPU,4HTT1 , 1, 0, 5, 0,  1, 0, 1, 0, 3, 4HXXXX,4HXXXX\r\n     *                               ,  3, 4H     , 4H       ,\r\n     3  21, 4HINPU,4HTT2 , 1, 0, 5, 0,  1, 0, 1,14, 3, 4HXXXX,4HXXXX\r\n     *                               ,  1, 0, 1, 0, 3, 4H    ,4H    ,\r\n     4  13, 4HINPU,4HTT3 , 1, 5, 5, 0,  1,-11, 1, 0, 1, 0\r\n     5, 16, 4HINPU,4HTT4 , 1, 0, 5, 0,  1, 1, 1,14, 3, 4HXXXX,4HXXXX\r\n     *                               ,  1, 0\r\n     6, 29, 4HMATG,4HEN  , 1, 1, 1, 0,  1, 0, 1, 0, 1, 0, 1, 0, 1, 0\r\n     *                            , 1,  0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0\r\n     7, 18, 4HMATG,4HPR  , 2, 4, 0, 0, -3, 3,  4H    , 4H     , 3\r\n     *                               ,  4HALL ,4H    , 2, 9, 1, 0\r\n     8, 19, 4HMATP,4HRN  , 2, 5, 0, 0,  1, 0, 1, 0, 1, 0, 1, 0, 1, 0\r\n     *                               ,  1, 0\r\n     9, 11, 4HMATP,4HRT  , 2, 1, 0, 0,  1, 0, 1, 0\r\n     X,  7, 4HMCE1,4H    , 1, 2, 1, 7\r\n     1,  7, 4HMCE2,4H    , 1, 6, 4, 6\r\n     2, 17, 4HMERG,4HE   , 1, 6, 1, 0,  1,-1, 1, 0, 1, 0, 1, 0, 1, 0\r\n     M, 12, 11*0  /\r\nC\r\n      DATA  MPL08 /\r\n     1  20, 4HMODA,4H    , 1, 0, 4, 0,  5*-2, 5* -1, -2, -1, -1\r\n     2, 10, 4HMODA,4HCC  , 1, 6, 5, 0,  3,4HTRAN,4H        ,\r\n     3  18, 4HMODB,4H    , 1, 3, 4, 0,  4*-2, 3* -1, -2,  3* -1\r\n     4,  8, 4HMODC,4H    , 1, 2, 0, 0, -1\r\n     5, 14, 4HMPYA,4HD   , 1, 3, 1, 1, -1, 1,  1, 1,  1,  1,  0\r\n     6, 14, 4HMTRX,4HIN  , 1, 5, 3, 7, -1, 1, -1, 1, -1,  1, -1\r\n     7, 11, 4HOFP ,4H    , 2, 6, 0, 0,  1, 0,  1,-1\r\n     8, 10, 4HOPTP,4HR1  , 1, 5, 1, 1,  3*-1\r\n     9, 12, 4HOPTP,4HR2  , 1, 3, 2, 0,  3*-1,  1, 0\r\n     M, 20, 19*0\r\n     Z/\r\nC\r\n      DATA  MPL09 /\r\n     1   9, 4HOUTP,4HUT  , 2, 1, 0, 0,  1,-1\r\n     2, 14, 4HOUTP,4HUT1 , 2, 5, 0, 0,  1, 0, 1, 0,3,4HXXXX,4HXXXX\r\n     3, 21, 4HOUTP,4HUT2 , 2, 5, 0, 0,  1, 0, 1,14,3,4HXXXX,4HXXXX,\r\n     *                                  1, 0, 1, 0,3,4H    ,4H    ,\r\n     4  22, 4HOUTP,4HUT3 , 2, 5, 0, 0,  1, 0,-3,   3,3HXXX,1H ,3,3HXXX\r\n     *                               ,  1H  , 3,3HXXX,1H ,3,3HXXX,1H ,\r\n     5  13, 4HOUTP,4HUT4 , 2, 5, 0, 0,  1,-1, 1,14,1, 1\r\n     6, 14, 4HPARA,4HM   , 1, 0, 0, 0, -3, 1, 1, 1,1, 1,1\r\n     7, 30, 4HPARA,4HML  , 2, 1, 0, 0, -3, 1, 1, 1,1, 2,9, 1,0,   4,8,8\r\n     *                               ,  3, 4H(VOI ,4HD)  , 5,9,9, 6,4*8\r\n     8, 25, 4HPARA,4HMR  , 2, 0, 0, 0, -3, 2, 9, 2,9, 2,9, 5,9,9, 5,9,9\r\n     *                               ,  5, 9, 9, 1,0\r\n     9, 19, 4HPART,4HN   , 1, 3, 4, 0,  1,-1, 1, 0,1, 0,1, 0,1,0, 1,0\r\n     M, 6, 5*0\r\n     Z/\r\nC\r\n      DATA  MPL10 /\r\n     1  17, 4HMRED,4H1   , 1, 4, 4, 1, -3,-1,-1,-1, -1,-3, 1,0, 2,9\r\n     2, 14, 4HMRED,4H2   , 1,12, 6,11, -1,-1, 3,4H    ,4H     , 1,0\r\n     3, 12, 4HCMRE,4HD2  , 1,11, 6,11, -1,-1, 3,4H    ,4H     ,\r\n     4  13, 4HPLA1,4H    , 1, 7, 4, 0,  5*-1,-5\r\n     5,  8, 4HPLA2,4H    , 1, 3, 3, 0, -1\r\n     6,  9, 4HPLA3,4H    , 1, 6, 2, 1, -1,-1\r\n     7, 10, 4HPLA4,4H    , 1, 6, 2, 1, -1,-1,-5\r\n     M, 10, 9*0\r\n     Z/\r\nC\r\n      DATA  MPL11 /\r\n     1  14, 4HPLOT,4H    , 1,13, 1, 4,  3*-1, 1, 1, 1, 0\r\n     2, 10, 4HPLTS,4HET  , 1, 4, 4, 2, -1, 1,-1\r\n     3, 11, 4HPLTT,4HRAN , 1, 2, 2, 0,  1, 0, 1, 0\r\n     4,  7, 4HPRTM,4HSG  , 2, 1, 0, 0\r\n     5, 13, 4HPRTP,4HARM , 2, 0, 0, 0, -1, 3, 4HXXXX ,4HXXXX, 1,0\r\n     6,  9, 4HRAND,4HOM  , 1, 9, 2, 0,  1,-1\r\n     7,  7, 4HRBMG,4H1   , 1, 3, 6, 1\r\n     8, 11, 4HRBMG,4H2   , 1, 1, 1, 4,  1, 1, 2, 6\r\n     9,  7, 4HRBMG,4H3   , 1, 3, 1, 2\r\n     X,  7, 4HRBMG,4H4   , 1, 4, 1, 3\r\n     M, 20, 19*0\r\n     Z/\r\nC\r\n      DATA  MPL12 /\r\n     1  13, 4HREAD,4H    , 1, 7, 4,10, -3,-1, 1, 1, 2,  6\r\n     2, 14, 4HRMG ,4H    , 1, 4, 3, 6,  2, 9, 2, 9, 1, -1, -1\r\n     3, 24, 4HSCAL,4HAR  , 2, 1, 0, 0,  1, 1, 1, 1, 2,  9,  4,8,8\r\n     *                               ,  5, 9, 9, 6, 4*8\r\n     4,  7, 4HSCE1,4H    , 1, 5, 6, 1\r\n     5,  9, 4HSDR1,4H    , 1,11, 3, 6, -1,-3\r\n     6, 16, 4HSDR2,4H    , 1,16, 8, 3, -3, 1, 1, 1,-1,  1,-1, 1,1\r\n     7,  7, 4HSDR3,4H    , 1, 6, 6, 8\r\n     8, 11, 4HSDRH,4HT   , 1,10, 1, 3,  2, 9, 1,-1\r\n     9, 23, 4HSEEM,4HAT  , 2, 5, 0, 0,  3,4HPRIN,4HT   , 1,0, 1,100\r\n     *                               ,  3,4HM   ,4H    , 1,1, 2,9, 2,9\r\n     M, 11, 10*0\r\n     Z/\r\nC\r\n      DATA  MPL13 /\r\n     1  26, 4HSETV,4HAL  , 2, 0, 0, 0, -1, 1,-1, 1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 1,-1, 1,-1, 1,-1\r\n     2, 11, 4HSMA1,4H    , 1, 5, 3, 2, -1,-1, 1,-1\r\n     3, 32, 4HSMA2,4H    , 1, 5, 2, 2, -2,-1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 1,-1, 1,-1, 1,-1, 1,-1\r\n     *                               ,  1,-1, 1,-1, 1,-1\r\n     4, 10, 4HSMA3,4H    , 1, 2, 1, 7, -1,-1,-1\r\n     5,  7, 4HSMP1,4H    , 1, 5, 9, 7\r\n     6,  7, 4HSMP2,4H    , 1, 3, 1, 6\r\n     7, 22, 4HSMPY,4HAD  , 1, 6, 1, 2, -1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0\r\n     *                               ,  1, 0, 1, 0\r\n     8, 15, 4HSOLV,4HE   , 1, 2, 1, 5,  1, 0, 1, 1, 1, 0, 1, 0\r\n     M, 20, 19*0\r\n     Z/\r\nC\r\n      DATA  MPL14 /\r\n     1  13, 4HSSG1,4H    , 1,12, 5, 7, -1,-1, 1, 0, 2,14\r\n     2,  7, 4HSSG2,4H    , 1, 7, 4, 4\r\n     3, 13, 4HSSG3,4H    , 1, 6, 4, 2, -1,-1, 1, 1, 1, 1\r\n     4,  8, 4HSSG4,4H    , 1,11, 2, 5, -1\r\n     5, 23, 4HSSGH,4HT   , 1,17, 3, 5,  1,-1, 1,-1, 2,11, 2, 9, 1, 4\r\n     *                               ,  1,-1, 1, 0, 1, 0\r\n     6, 15, 4HTA1 ,4H    , 1, 8, 8, 4, -1,-1, 1, 1,-1,-1, 1, 1\r\n     7, 22, 4HTABP,4HCH  , 2, 5, 0, 0,  3,     4HAA  ,4H      ,3\r\n     *                               ,  4HAB  ,4H    ,3,4HAC  ,4H    ,3\r\n     *                               ,  4HAD  ,4H    ,3,4HAE  ,4H    ,\r\n     8  13, 12*0\r\n     9, 12, 4HTABP,4HRT  , 2, 1, 0, 0, -3, 1, 0, 1, 0\r\n     X,  7, 4HTABP,4HT   , 2, 5, 0, 0\r\n     M, 18, 17*0\r\n     Z/\r\nC\r\n      DATA  MPL15 /\r\n     1  17, 4HTIME,4HTEST, 1, 0, 0, 2,  1,50, 1,50, 1, 2, 1, 1, 1, 511\r\n     2, 13, 4HTRD ,4H    , 1, 8, 3, 9, -3, 3*-1, 1,-1\r\n     3, 17, 4HTRHT,4H    , 1,10, 2, 7,  2,12, 2, 9, 1,-1, 1,-1, 2, 9\r\n     4, 11, 4HTRLG,4H    , 1,15, 6, 9,  1,-1, 1, 0\r\n     5,  9, 4HTRNS,4HP   , 1, 1, 1, 8,  1, 0\r\n     6, 10, 4HUMER,4HGE  , 1, 3, 1, 1, -3,-3,-3\r\n     7, 10, 4HUPAR,4HTN  , 1, 2, 4, 1, -3,-3,-3\r\n     8, 14, 4HVDR ,4H    , 1, 7, 2, 2, -3,-3,-1, 1, 0,-1,-1\r\n     9, 16, 4HVEC ,4H    , 1, 1, 1, 0, -3, 3, 4HCOMP ,1H   , 3\r\n     *                               ,        4HCOMP, 1H   , 1, 0\r\n     M, 18, 17*0\r\n     Z/\r\nC\r\n      DATA  MPL16 /\r\n     1   7, 4HXYPL,4HOT  , 2, 1, 0, 2\r\n     2,  7, 4HXYPR,4HNPLT, 2, 1, 0, 0\r\n     3, 19, 4HXYTR,4HAN  , 1, 6, 1, 5,  3,4HTRAN,4HS   ,3,4HSOL ,4H    ,\r\n     *                                  1, 0, 1,0, 1,1\r\n     M, 20, 19*0\r\n     Z/\r\nC\r\n      DATA  MPL17 /\r\n     1  13, 4HCOMB,4H1    , 1, 2, 1,10,  1,     0,-1,  3,4H    ,4H    ,\r\n     2  35, 4HCOMB,4H2    , 1, 7, 1, 7, -1,    -3,     3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,1,0\r\n     3, 36, 4HEXIO,4H     , 2, 0, 0, 2,  2*-1,  5*-3,  3\r\n     *                                ,  4HALL ,4H    ,3,4HWHOL,4HESOF,3\r\n     *                                ,  4HXXXX,4HXXXX,3,4HXXXX,4HXXXX,3\r\n     *                                ,  4HXXXX,4HXXXX,3,4HXXXX,4HXXXX\r\n     *                                ,  1, 0,  1, 0\r\n     4, 39, 4HRCOV,4HR    , 1,11, 8, 9,  3*-1, -3,-1,  1, 0,    1,0,   3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,1,-1,2,9,2,9, 2,9\r\nC\r\nC     THE BCD PARAMETER   IN THE NEXT MODULE IS A DUMMY SINCE WE NEED\r\nC     11 WORDS IN THIS SPACE\r\nC\r\n     5, 11, 4HEMFL,4HD    , 1,10, 1, 1, -1,   3,4H    ,4H    ,\r\n     M  10, 9*0\r\n     Z/\r\nC\r\n      DATA  MPL18 /\r\n     1  11, 4HRCOV,4HR3   , 1, 4, 7, 3, -1, -3, 1,-1\r\n     2, 16, 4HREDU,4HCE   , 1, 2, 3, 2,  1,  0, 1, 0,  3,4H    ,4H    ,1\r\n     *                                ,  0\r\n     3, 11, 4HSGEN,4H     , 1, 4,10, 0, -1, -3,-1,-1\r\n     4, 25, 4HSOFI,4H     , 1, 0, 5, 0,  1, -1,-3,     3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,\r\n     5  25, 4HSOFO,4H     , 2, 5, 0, 0,  1, -1,-3,     3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,\r\n     6  37, 4HSOFU,4HT    , 2, 0, 0, 1,  1, -1, 2*-3,  1,0     ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,3\r\n     *                                ,  4H    ,4H    ,3,4H    ,4H    ,\r\n     7  15, 4HSUBP,4HH1   , 2, 7, 0, 1,  1,0,-3,1,0,   3,4H    ,4H    ,\r\n     8  11, 4HPLTM,4HRG   , 1, 2, 6, 1, -3,3*-1,\r\n     M  18, 17*0\r\n     Z/\r\nC\r\n      DATA  MPL19 /\r\n     1   9, 4HCOPY,4H    , 1, 1, 1, 0,  1, -1\r\n     2,  9, 4HSWIT,4HCH  , 2, 2, 0, 0,  1, -1\r\n     3, 11, 4HMPY3,4H    , 1, 3, 1, 3,  1,  0, 1, 0\r\n     4, 33, 4HSDCM,4HPS  , 1, 4, 2, 6,  1,  0, 1, 0, 1,20, 1,0,   1,0\r\n     *                               ,  3, 1HL,1H  , 1, 0, 5,9,9, 4,8,8\r\n     *                               ,  1,  0, 3,4H NON,  1HE\r\n     5,  9, 4HLODA,4HPP  , 2, 2, 0, 8, -3, -1\r\n     6,  7, 4HGPST,4HGEN , 1, 2, 1, 0\r\n     7, 15, 4HEQMC,4HK   , 1,12, 1, 7,  1,  0, 1,-1, -1, 3,4H NON,1HE\r\n     8, 11, 4HADR ,4H    , 1, 7, 1, 5, -2,  2, 9,-3\r\n     9, 12, 4HFRRD,4H2   , 1, 6, 1, 9, -2,  2, 9, 2, 9\r\n     X, 14, 4HGUST,4H    , 1,10, 1, 7, -1,  2, 9, 2, 9, 2, 9\r\n     1,  9, 4HIFT ,4H    , 1, 4, 2, 0,  1,  1\r\n     2,  9, 4HLAMX,4H    , 1, 2, 1, 0,  1,  0\r\n     3, 11, 4HEMA ,4H    , 1, 3, 1, 2,  1, -1, 2, 6\r\n     4,  9, 4HANIS,4HOP  , 1, 5, 1, 0,  1,  1\r\n     M, 25, 24*0\r\n     Z/\r\n      DATA  MPL20 /\r\n     1  11, 4HGENC,4HOS  , 1, 2, 1, 0, -1, -1,-1,-1\r\n     2,  8, 4HDDAM,4HAT  , 1, 2, 1, 0, -2\r\n     3,  9, 4HDDAM,4HPG  , 1, 2, 1, 0, -1, -1\r\n     4, 11, 4HNRLS,4HUM  , 1, 2, 2, 3, -1, -1,-1,-1\r\n     5,  9, 4HGENP,4HART , 1, 1, 4, 0, -1, -1\r\n     6, 10, 4HCASE,4HGEN , 1, 1, 1, 0, -1, -1,-1\r\n     7, 21, 4HDESV,4HEL  , 1, 2, 5, 0,  14*-2\r\nC\r\nC     3 DUMMY PARAMETERS IN PROLATE SO THAT AXLOOP CAN HAVE A PARAMETER\r\nC     IN THE SAME POSITION IN BOTH SSG1 AND PROLATE\r\nC\r\n     8, 15, 4HPROL,4HATE , 1,10, 1, 2,  1, -1, 1,-1, 1,-1, 2,14\r\n     9,  8, 4HMAGB,4HDY  , 1, 2, 1, 0, -1\r\n     X,  9, 4HCOMB,4HUGV , 1, 1, 5, 0, -1, -1\r\n     1, 14, 4HFLBM,4HG   , 1, 9, 4, 7, -1, -1, 5, 7, 7, 1, 0\r\n     2, 17, 4HGFSM,4HA   , 1,14, 5, 8, -1, -1, 2, 6, 1,-1, 1,-1, 1,-1\r\n     3, 10, 4HTRAI,4HLER , 2, 1, 0, 0, -3, -1,-1\r\nCRLBR 12/29/93  SPR 93010 & 93011\r\nC    4, 24, 4HSCAN,4H    , 1, 3, 1, 1,  3,4H    , 4H     , 1, 0, 1,20\r\n     4, 24, 4HSCAN,4H    , 1, 5, 2, 1,  3,4H    , 4H     , 1, 0, 1,20\r\n     *                               ,  2,  9, 2, 9, 1, 0, 1, 0, 1, 0\r\n     M, 10, 9*0\r\n     Z/\r\n      DATA  MPL21 /\r\n     1   9, 4HPLTH,4HBDY , 1, 6, 4, 3, -1, -3\r\n     2,  9, 4HVARI,4HAN  , 1, 5, 5, 3, -3, -2\r\n     3, 21, 4HFVRS,4HTR1 , 1, 8, 8,10,  13*-1,-2\r\n     4, 15, 4HFVRS,4HTR2 , 1, 8, 8,10,  8* -1\r\n     5, 29, 4HALG ,4H    , 1, 7, 2, 4,  1, -1, 1, -1, 1, -1, 1, -1, 1, 0\r\n     *                               ,  1,  0, 2,  6, 2,  9, 2,  6, 2, 6\r\n     *                               ,  2,  6\r\n     6, 20, 4HAPDB,4H    , 1, 7, 5, 5, -1, -1, 2, 15, 2, 16, 1, -1\r\n     *                               ,  3,  4HCOSI,4HNE    ,-1, -1\r\n     7, 27, 4HPROM,4HPT1 , 2, 0, 0, 0,  1,  0, 1,  0, 1,  0, 1,  0, 1, 0\r\n     *                               ,  1,  0, 1,  0, 1,  0, 1,  0, 1, 0\r\n     8,  7, 4HSITE,4HPLOT, 2, 0, 0, 0\r\n     9, 16, 4HINPU,4HTT5 , 1, 0, 5, 0,  1,  0, 1, 11, 3,4HXXXX,4HXXXX\r\n     *                               ,  1,  0\r\n     X, 36, 4HOUTP,4HUT5 , 2, 5, 0, 0,  1,  0, 1, 11, 3,4HXXXX,4HXXXX\r\n     *                               ,  1,  0, 1,  0, 1,  0, 1,  0, 1, 0\r\n     *                               ,  1,  0, 1,  0, 1,  0, 1,  0, 1, 0\r\n     *                               ,  1,  0\r\n     M,  7, 6*0  /\r\n      DATA  MPL22 /\r\n     1  34, 4HPARA,4HMD  , 2, 0, 0, 0, -3,  4,8,8, 4,8,8, 4,8,8, 6,4*8\r\n     *                               ,  6,  4*8,   6,4*8, 1,0\r\n     2, 12, 4HGINO,4HFILE, 1, 0, 1, 1, -1,  1,0,   1,999999\r\n     3, 13, 4HDATA,4HBASE, 2, 7, 0, 1,  1, 11,  1, 0,  1, 0\r\n     4, 16, 4HNORM,4H    , 1, 1, 1, 0,  1,  0,  1, 0,  2, 9, 3\r\n     *                               ,  4HMAX , 4H      ,\r\n     5  13, 4HVECG,4HRB  , 1, 3, 1, 0,  1,  0,  1, 0,  1, 0\r\n     6, 21, 4HAUTO,4HASET, 1, 6, 2, 1,  1, -1,  1, -1, 1, -1, 1, -1\r\n     *                               ,  1, -1,  1, -1, 1, -1\r\n     M, 10, 9*0  /\r\nC\r\nC     INITIALIZE /XGPI2/\r\nC\r\n      LMPL = LMPLX\r\n      DO 10 I = 1,LMPL\r\n   10 IMP(I) = MPL(I)\r\nC\r\nC     INITIALIZE /XGPI2X/\r\nC\r\n      DO 20 I = 1,20\r\n   20 XXX(I) = XX(I)\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xosgen.f",
    "content": "      SUBROUTINE XOSGEN\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO GENERATE THE OSCAR ARRAY.\r\nC\r\nC          ... DESCRIPTION OF PROGRAM VARIABLES ...\r\nC     IENDF  = FLAG SIGNALING END OF DMAP SEQUENCE.\r\nC     LDEF   = SCRATCH USED IN SCANNING LBLTBL TABLE.\r\nC     LBLTOP = TOP OF LBLTBL ARRAY.\r\nC     LBLBOT = BOTTOM OF LBLTBL ARRAY.\r\nC     LSTLBL = POINTER TO LAST LABEL ENTRY MADE IN LBLTBL.\r\nC     LSTPAR = POINTER TO LAST PARAMETER NAME ENTRY MADE IN LBLTBL.\r\nC     NAMTBL = NAME CONVERSION TABLE FOR TYPE E NAMES.\r\nC     IEXFLG = FLAG INDICATING LAST OSCAR ENTRY WAS EXIT.\r\nC     IOSPNT = POINTER TO NEXT AVAILABLE WORD IN OSCAR ENTRY.\r\nC     NOSPNT = POINTER TO DATA BLOCK NAME COUNT IN OSCAR ENTRY.\r\nC     NTYPEE = TABLE CONTAINING TYPE E DMAP NAMES\r\nC     IPRCFO = POINTER TO LAST TYPE F OR O OSCAR ENTRY.\r\nC     NDIAG1 = NAME OF THE DIAGNOSTIC O/P PROCESSOR\r\nC     ITYPE  = TABLE FOR TRANSLATING TYPE CODES TO WORD LENGTH\r\nC     VARFLG = FLAG INDICATING VARIABLE FOUND IN EQUIV OR PURGE\r\nC              INSTRUCTION.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         SKIP\r\n      DIMENSION       PRECHK(2),XDMAP(2),DECLAR(3),FPARAM(3),\r\n     1                DMPCRD(1),NSKIP(5,2),CDCOMP(3),NAMTBL(12),\r\n     2                ITYPE(6),MED(1),LBLTBL(1),OSCAR(1),OS(5)\r\n      COMMON /XFIAT / FIAT(3)\r\n      COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO,DUM(20),ICFIAT,JUNK(54),\r\n     1                ISWTCH(3),ICPFLG\r\n      COMMON /MODDMP/ IFLG(6),NAMOPT(26)\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NMED,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTYPEE(9),\r\n     3                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\nCWKBR COMMON /XGPI3 / PVT(2)\r\n      COMMON /XGPI3 / PVT(200)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2),SOL,SUBSET,IFLAG,IESTIM,\r\n     1                ICFTOP,ICFPNT,LCTLFL,ICTLFL(1)\r\n      COMMON /XGPI6 / MEDTP,FNMTP,CNMTP,MEDPNT,LMED,IPLUS,DIAG14,DIAG17,\r\n     1                DIAG4,DIAG25,IFIRST,IBUFF(20)\r\n      COMMON /XGPI7 / FPNT,LFILE,FILE(1)\r\n      COMMON /XGPID / ICST,IUNST,IMST,IHAPP,IDSAPP,IDMAPP,\r\n     1                ISAVE,ITAPE,IAPPND,INTGR,LOSGN\r\n      COMMON /XGPIE / NSCR\r\n      COMMON /XVPS  / VPS(2)\r\nCWKBR COMMON /XCEITB/ CEITBL(2)\r\n      COMMON /XCEITB/ CEITBL(42)\r\n      COMMON /XOLDPT/ XX(4),SEQNO\r\n      COMMON /AUTOCM/ PREFLG,NNAMES,PRENAM(100)\r\n      COMMON /AUTOSM/ NWORDS,SAVNAM(100)\r\n      COMMON /PASSER/ ISTOPF,MODNAM\r\nC\r\nC     EQUIVALENCE     (NTYPEE(1),NTIME ), (NTYPEE(2),NSAVE )\r\nC    1                (NTYPEE(3),NOUTPT), (NTYPEE(4),NCHKPT)\r\nC    2                (NTYPEE(5),NPURGE), (NTYPEE(6),NEQUIV)\r\nC    3                (NTYPEE(7),NCPW  ), (NTYPEE(8),NBPC  )\r\nC    4                (NTYPEE(9),NWPC  )\r\n      EQUIVALENCE     (NAMTBL(9),NXPURG)\r\n      EQUIVALENCE     (OSCAR (1),DMPCRD(1),LBLTBL(1),MED(1),OS(5)),\r\n     1                (CORE(1),OS(1),LOSCAR), (OS(2),OSPRC),\r\n     2                (OS(3),OSBOT), (OS(4),OSPNT)\r\nC\r\n      DATA    XCHK  / 4HXCHK/\r\n      DATA    ITYPE / 1,1,2,2,2,4/\r\n      DATA    IPRCFO/ 0     /, IENDF / 0/\r\n      DATA    NFILE / 4HFILE/\r\n      DATA    NVPS  / 4HVPS /\r\n      DATA    PRECHK/ 4HPREC,  4HHK  /,XDMAP / 4HXDMA, 4HP     /\r\n      DATA    NCEIT1/ 4HCEIT/, NCEIT2/ 4HBL  /\r\n      DATA    NLBLT1/ 4HLBLT/, NLBLT2/ 4HBL  /\r\n      DATA    DECLAR/ 4HBEGI,  4HLABE, 4HFILE/\r\n      DATA    FPARAM/ 4HTAPE,  4HAPPE, 4HSAVE/\r\n      DATA    NAMTBL/ 4HXTIM,  4HE   , 4HXSAV, 4HE   , 4HXUOP, 4H    ,\r\n     1                4HXCHK,  4H    , 4HXPUR, 4HGE  , 4HXEQU, 4HIV  /\r\n      DATA    NSKIP / 10*0 /, CDCOMP / 4HCOMP, 4HON  , 4HOFF   /\r\nC\r\nC     INITIALIZE\r\nC\r\n      IFIRST = 0\r\n      OSBOT  = 1\r\n      NWORDS = 0\r\n      LOOKUP = 0\r\n      PREFLG = 0\r\n      IVREPT = 0\r\n      ILEVEL = 0\r\n      SKIP   =.FALSE.\r\n      OSPNT  = OSBOT\r\n      OSCAR(OSBOT  ) = 0\r\n      OSCAR(OSBOT+1) = 1\r\nC\r\nC     FOR RESTART ALLOW CHECKPOINT AND JUMP ENTRIES TO BE INSERTED IN\r\nC     OSCAR BY XGPI.\r\nC\r\n      IF (START .EQ. ICST) GO TO 10\r\n      OSCAR(OSBOT+1) = 3\r\nC\r\nC     ALLOCATE 50 WORDS IN OPEN CORE FOR LBLTBL AND SET LBLTBL\r\nC     PARAMETERS.\r\nC\r\n   10 LBLBOT = LOSCAR\r\n      LBLTOP = LOSCAR - 50\r\n      LOSCAR = LBLTOP - 1\r\n      LSTLBL = LBLTOP - 4\r\n      LSTPAR = LBLBOT + 1\r\nC\r\nC     INITIALIZE DMPCRD ARRAY FOR RIGID FORMAT\r\nC\r\n      ICRDTP = LOSCAR\r\nC\r\nC     ****************************************\r\nC     PREPARE TO PROCESS NEXT DMAP INSTRUCTION\r\nC     ****************************************\r\nC\r\n  100 DMPCNT = DMPCNT + 1\r\n      IF (IAPP .EQ. IDMAPP) GO TO 110\r\n      MEDPNT = MED(MEDTP+1)*(DMPCNT - 1) + MEDTP + 2\r\n      IF (MED(MEDTP).LT.DMPCNT .AND. IAPP.NE.IDMAPP) GO TO 2390\r\n  110 NEWCRD =-1\r\n      INSERT = 0\r\nC\r\nC     SEE IF DMAP INSTRUCTION IS TO BE DELETED OR INSERTED\r\nC\r\n      IF (ALTER(1).EQ.0 .OR. ALTER(1).GT.DMPCNT) GO TO 130\r\n      IF (ALTER(1).LE.DMPCNT .AND. ALTER(2).GE.DMPCNT) GO TO 150\r\n      IF (ALTER(2) .EQ. 0) GO TO 120\r\nC\r\nC     JUST FINISHED DELETING, SET INSERT AND ALTER FOR INSERTING\r\nC\r\n      ALTER(1) = ALTER(2)\r\n      ALTER(2) = 0\r\n  120 IF (ALTER(1) .NE. DMPCNT-1) GO TO 130\r\n      INSERT = 1\r\n      DMPCNT = DMPCNT - 1\r\n      GO TO 160\r\nC\r\nC     GET NEXT DMAP INSTRUCTION\r\nC     FOR RIGID FORMAT SEE IF OSCAR ENTRY IS PART OF SUBSET\r\nC\r\n  130 IF (IAPP .EQ. IDMAPP) GO TO 160\r\n      I = MED(MEDTP+1)\r\n      DO 140 J = 1,I\r\n      K = MEDPNT + J -1\r\n      IF (MED(K) .NE. 0) GO TO 160\r\n  140 CONTINUE\r\nC\r\nC     SET INSERT FLAG TO NO PRINT\r\nC\r\n  150 INSERT = -2\r\n      GO TO 310\r\nC\r\nC     CHECK FOR CONDITIONAL COMPILATION END\r\nC\r\n  160 IF (ILEVEL .LE. 0) GO TO 190\r\n      DO 170 I = 1,ILEVEL\r\n      IF (IABS(NSKIP(I,1)) .LT. 99999) NSKIP(I,1) = NSKIP(I,1) - 1\r\n  170 CONTINUE\r\n      IF (NSKIP(ILEVEL,1) .EQ. -1) GO TO 180\r\n      IF (SKIP) INSERT = INSERT - 2\r\n      GO TO 190\r\n  180 SKIP   =.FALSE.\r\n      ILEVEL = ILEVEL - 1\r\nC\r\n  190 IF (LOOKUP.NE.1 .OR. PREFLG.EQ.0) GO TO 200\r\n      PREFLG = -PREFLG\r\n      CALL AUTOCK (OSPNT)\r\n  200 MODNAM = 1\r\n      LOOKUP = 0\r\n      CALL XSCNDM\r\n      MODNAM = 0\r\n      GO TO (2120,210,2120,100,2060), IRTURN\r\n  210 IF (.NOT.SKIP) GO TO 220\r\nC\r\nC     CHECK LABELS EVEN IF CONDITIONAL COMPILATION\r\nC\r\n      IF (DMAP(DMPPNT) .EQ. DECLAR(2)) GO TO 1270\r\n      GO TO 310\r\nC\r\nC     FIND MPL ENTRY AND BRANCH ON TYPE\r\nC\r\n  220 MPLPNT = 1\r\n      MODIDX = 1\r\n      IF (DMAP(DMPPNT).EQ.PRECHK(1) .AND. DMAP(DMPPNT+1).EQ.PRECHK(2))\r\n     1    GO TO 1490\r\n      IF (DMAP(DMPPNT).EQ.XDMAP(1)  .AND. DMAP(DMPPNT+1).EQ.XDMAP(2))\r\n     1    GO TO 1570\r\n      IF (DMAP(DMPPNT).EQ.CDCOMP(1) .AND. (DMAP(DMPPNT+1).EQ.CDCOMP(2)\r\n     1    .OR. DMAP(DMPPNT+1).EQ.CDCOMP(3))) GO TO 1740\r\n  230 IF (MPL(MPLPNT+1).EQ.DMAP(DMPPNT) .AND. MPL(MPLPNT+2).EQ.\r\n     1    DMAP(DMPPNT+1)) GO TO 240\r\nC\r\nC     CHECK FOR ERROR IN MPL TABLE\r\nC\r\n      IF (MPL(MPLPNT).LT.1 .OR. MPL(MPLPNT).GT.LMPL) GO TO 2140\r\n      MPLPNT = MPL(MPLPNT) + MPLPNT\r\n      MODIDX = 1 + MODIDX\r\n      IF (MPLPNT-LMPL) 230,2130,2130\r\nC\r\nC     GET FORMAT TYPE FROM MPL AND BRANCH\r\nC\r\n  240 I = MPL(MPLPNT + 3)\r\n      IF (I.LT.1 .OR. I.GT.5) GO TO 2140\r\n      GO TO (400,400,500,800,1200), I\r\nC\r\nC     *****************************************************\r\nC     RETURN HERE AFTER DMAP INSTRUCTION HAS BEEN PROCESSED\r\nC     *****************************************************\r\nC\r\nC     CHECK FOR FATAL ERROR\r\nC\r\n  300 IF (NOGO .EQ. 2) GO TO 2060\r\nC\r\nC     CHECK FOR END OF DMAP SEQUENCE.\r\nC\r\n      IF (IENDF .NE. 0) GO TO 1900\r\nC\r\nC     CHECK FOR $ ENTRY IN DMAP AND GET NEXT DMAP INSTRUCTION\r\nC\r\n  310 CALL XSCNDM\r\n      GO TO (320,320,320,100,2060), IRTURN\r\n  320 IF (NOGO.EQ.0 .AND. INSERT.GE.0) GO TO 2160\r\n      GO TO 310\r\nC\r\nC     ********************************************\r\nC     GENERATE OSCAR ENTRY WITH TYPE F OR O FORMAT\r\nC     ********************************************\r\nC\r\nC     GENERATE LINK HEADER SECTION\r\nC\r\n  400 CALL XLNKHD\r\n      IPRCFO = OSPNT\r\nC\r\nC     GENERATE I/P FILE SECTION\r\nC\r\n      CALL XIPFL\r\n      GO TO (410,2100), IRTURN\r\nC\r\nC     SAVE POINTER TO O/P FILE SECTION\r\nC\r\n  410 J = OSPNT + OSCAR(OSPNT)\r\nC\r\nC     GENERATE O/P FILE SECTION\r\nC\r\n      CALL XOPFL\r\n      GO TO (420,2110), IRTURN\r\nC\r\nC     NUMBER OF SCRATCH FILES TO OSCAR\r\nC\r\n  420 I = OSPNT + OSCAR(OSPNT)\r\n      OSCAR(I) = MPL(MPLPNT)\r\nC\r\nC     INCREMENT OSCAR WORD COUNT AND MPLPNT\r\nC\r\n      OSCAR(OSPNT) = 1 + OSCAR(OSPNT)\r\n      MPLPNT = 1 + MPLPNT\r\nC\r\nC     GENERATE PARAMETER SECTION\r\nC\r\n      CALL XPARAM\r\n      GO TO (430,2060), IRTURN\r\nC\r\nC     CONTINUE COMPILATION\r\nC     ZERO INTERNAL CHECKPOINT FLAG IN OSCAR ENTRY FOR TYPE F ENTRY\r\nC\r\n  430 IF (ANDF(OSCAR(OSPNT+2),MASKHI) .EQ. 2) GO TO 440\r\n      I = OSPNT + OSCAR(OSPNT)\r\n      OSCAR(I) = 0\r\n      OSCAR(OSPNT) = 1 + OSCAR(OSPNT)\r\n  440 CONTINUE\r\n      IF (NWORDS .EQ. 0) GO TO 450\r\n      CALL AUTOSV\r\n      NWORDS = 0\r\n  450 IF (PREFLG.EQ.0 .OR. ISTOPF.EQ.0) GO TO 460\r\n      CALL AUTOCK (ISTOPF)\r\n  460 CONTINUE\r\n      GO TO 300\r\nC\r\nC     ***************************************\r\nC     GENERATE OSCAR ENTRY WITH TYPE C FORMAT\r\nC     ***************************************\r\nC\r\nC     GENERATE LINK HEADER SECTION\r\nC\r\n  500 CALL XLNKHD\r\nC\r\nC     UPDATE OSCAR ENTRY WORD COUNT TO INCLUDE VALUE SECTION.\r\nC\r\n      OSCAR(OSPNT) = 7\r\nC\r\nC     CHECK FOR END CARD\r\nC\r\n      IF (OSCAR(OSPNT+3) .NE. NEND) GO TO 510\r\n      OSCAR(OSPNT+3) = NEXIT\r\n      IENDF = 1\r\nC\r\nC     SET EXECUTE FLAG IN OSCAR FOR END\r\nC\r\n      OSCAR(OSPNT+5) = ORF(ISGNON,OSCAR(OSPNT+5))\r\nC\r\nC     GET NEXT ENTRY IN DMAP\r\nC\r\n  510 CALL XSCNDM\r\n      GO TO (2160,520,630,630,2060), IRTURN\r\nC\r\nC     IF NEXT DMAP ENTRY IS BCD IT SHOULD BE LABEL NAME FOR BRANCH\r\nC     DMAP INSTRUCTION.\r\nC\r\n  520 IF (OSCAR(OSPNT+3) .EQ. NEXIT) GO TO 2160\r\nC\r\nC     SEARCH LABEL TABLE FOR LABEL NAME\r\nC\r\n      IF (LSTLBL .LT. LBLTOP) GO TO 540\r\n      DO 530 J = LBLTOP,LSTLBL,4\r\n      IF (DMAP(DMPPNT).EQ.LBLTBL(J) .AND. DMAP(DMPPNT+1).EQ.LBLTBL(J+1))\r\n     1    GO TO 550\r\n  530 CONTINUE\r\nC\r\nC     NAME NOT FOUND IN TABLE\r\nC\r\n  540 LDEF = 0\r\n      GO TO 560\r\nC\r\nC     NOW SEE IF LABEL HAS BEEN REFERENCED\r\nC\r\n  550 IF (LBLTBL(J+3) .EQ. 0) GO TO 580\r\n      LDEF = LBLTBL(J+2)\r\nC\r\nC     MAKE NEW ENTRY IN LABEL TABLE, CHECK FOR TABLE OVERFLOW\r\nC\r\n  560 ASSIGN 570 TO IRTURN\r\n      IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220\r\n  570 LSTLBL = LSTLBL + 4\r\n      J = LSTLBL\r\n      LBLTBL(J  ) = DMAP(DMPPNT  )\r\n      LBLTBL(J+1) = DMAP(DMPPNT+1)\r\n      LBLTBL(J+2) = LDEF\r\n  580 LBLTBL(J+3) = OSPNT\r\nC\r\nC     GET NEXT ENTRY FROM DMAP, ENTRY IS $ FOR JUMP,NAME FOR COND,\r\nC     VALUE FOR REPT.\r\nC\r\n      CALL XSCNDM\r\n      GO TO (2160,600,720,590,2060), IRTURN\r\nC\r\nC     DMAP INSTRUCTION IS JUMP\r\nC\r\n  590 OSCAR(OSPNT+6) = 0\r\n      IF (OSCAR(OSPNT+3) .EQ. NJUMP) GO TO 300\r\n      GO TO 2160\r\nC\r\nC     COND DMAP INSTRUCTION, ENTER PARAMETER NAME IN LABEL TABLE.\r\nC\r\n  600 IF (OSCAR(OSPNT+3) .NE. NREPT) GO TO 610\r\n      IVREPT =  1\r\n      GO TO 640\r\n  610 IF (OSCAR(OSPNT+3) .NE. NCOND) GO TO 2160\r\n      ASSIGN 620 TO IRTURN\r\n      IF (LSTPAR-8 .LE. LSTLBL) GO TO 2220\r\n  620 LSTPAR = LSTPAR - 4\r\n      LBLTBL(LSTPAR  ) = DMAP(DMPPNT  )\r\n      LBLTBL(LSTPAR+1) = DMAP(DMPPNT+1)\r\n      LBLTBL(LSTPAR+2) = OSPNT + 6\r\n      LBLTBL(LSTPAR+3) = OSPNT\r\n      GO TO 300\r\nC\r\nC     EXIT DMAP INSTRUCTION, SET EXECUTE FLAG AND OSCAR VALUE SECTION.\r\nC\r\n  630 IF (OSCAR(OSPNT+3) .NE. NEXIT) GO TO 2160\r\n      IF (DMAP(DMPPNT) .NE. INTGR) DMAP(DMPPNT+1) = 0\r\n      DMAP(DMPPNT  ) = INTGR\r\n      DMAP(DMPPNT+2) = RSHIFT(IALLON,1)\r\nC\r\nC     ENTER LOOP COUNT IN CEITBL FOR REPT AND EXIT INSTRUCTIONS\r\nC\r\n  640 CEITBL(2) = CEITBL(2) + 4\r\n      IF (CEITBL(2) .GT. CEITBL(1)) GO TO 2280\r\nC\r\nC     I = POINTER TO LOOP COUNT IN CEITBL ENTRY\r\nC\r\n      I = CEITBL(2) - 2\r\n      IF (IVREPT .EQ. 0) GO TO 700\r\nC\r\nC     PROCESS VARIABLE REPT INSTRUCTION - FIND PARAM IN VPS\r\nC\r\n      KDH = 3\r\n  650 IF (DMAP(DMPPNT).EQ.VPS(KDH) .AND. DMAP(DMPPNT+1).EQ.VPS(KDH+1))\r\n     1    GO TO 660\r\n      KDH = KDH + ANDF(VPS(KDH+2),MASKHI) + 3\r\n      IF (KDH - VPS(2)) 650,670,670\r\nC\r\nC     PARAMETER FOUND\r\nC\r\n  660 IF (ANDF(RSHIFT(VPS(KDH+2),16),15) .NE. 1) GO TO 2210\r\n      CEITBL(I) = LSHIFT(KDH,16)\r\n      CEITBL(I) = ORF(CEITBL(I),ISGNON)\r\n      GO TO 710\r\nC\r\nC     CHECK PVT FOR PARAMETER\r\nC\r\n  670 KDH = 3\r\n  680 LENGTH = ANDF(PVT(KDH+2),NOSGN)\r\n      LENGTH = ITYPE(LENGTH)\r\n      IF (DMAP(DMPPNT).EQ.PVT(KDH) .AND. DMAP(DMPPNT+1).EQ.PVT(KDH+1))\r\n     1    GO TO 690\r\n      KDH = KDH + LENGTH + 3\r\n      IF (KDH - PVT(2)) 680,2200,2200\r\n  690 IF (LENGTH .NE. ITYPE(1)) GO TO 2210\r\n      CEITBL(I) = LSHIFT(PVT(KDH+3),16)\r\n      GO TO 710\r\n  700 CEITBL(I) = LSHIFT(DMAP(DMPPNT+1),16)\r\nC\r\nC     FIRST WORD OF CEITBL ENTRY CONTAINS OSCAR RECORD NUMBERS OF\r\nC     BEGINNING AND END OF LOOP\r\nC\r\n  710 CEITBL(I-1) = ISEQN\r\n      IVREPT = 0\r\nC\r\nC     OSCAR VALUE SECTION CONTAINS POINTER TO LOOP COUNT IN CEITBL ENTRY\r\nC\r\n      OSCAR(OSPNT+6) = I\r\n      GO TO 300\r\nC\r\nC     REPT DMAP INSTRUCTION, COUNT TO VALUE SECTION.\r\nC\r\n  720 IF (OSCAR(OSPNT+3) .EQ. NREPT) GO TO 640\r\n      GO TO 2160\r\nC\r\nC     ***************************************\r\nC     GENERATE OSCAR ENTRY WITH TYPE E FORMAT\r\nC     ***************************************\r\nC\r\nC     PREFIX MODULE NAME WITH AN X\r\nC\r\n  800 DO 810 I = 1,6\r\n      IF (NTYPEE(I) .EQ. DMAP(DMPPNT)) GO TO 820\r\n  810 CONTINUE\r\n  820 I = 2*I - 1\r\n      DMAP(DMPPNT  ) = NAMTBL(I  )\r\n      DMAP(DMPPNT+1) = NAMTBL(I+1)\r\nC\r\nC     GENERATE LINK HEADER FOR OSCAR\r\nC\r\n      IF (I.EQ.9 .OR. I.EQ.11) LOOKUP = 1\r\n      OS2B4 = OSPRC\r\n      CALL XLNKHD\r\nC\r\nC     BRANCH ON DMAP NAME AND GENERATE VALUE/OUTPUT SECTION OF OSCAR\r\nC\r\n      I = (I+1)/2\r\n      GO TO (830,860,990,990,990,990), I\r\nC\r\nC     EXTIME ENTRY, CHECK ESTIM IN CONTROL FILE\r\nC\r\n  830 OSCAR(OSPNT+5) = ANDF(OSCAR(OSPNT+5),NOSGN)\r\n      IF (IESTIM .EQ. 0) GO TO 300\r\nC\r\nC     GET TIME SEGMENT NAME\r\nC\r\n      CALL XSCNDM\r\n      GO TO (2370,840,2370,2370,2060), IRTURN\r\n  840 I = IESTIM + ICTLFL(IESTIM) - 1\r\n      J = IESTIM + 1\r\n      DO 850 K = J,I,2\r\n      IF (DMAP(DMPPNT).EQ.ICTLFL(K) .AND. DMAP(DMPPNT+1).EQ.ICTLFL(K+1))\r\n     1    OSCAR(OSPNT+5) = ORF(OSCAR(OSPNT+5),ISGNON)\r\n  850 CONTINUE\r\n      GO TO 300\r\nC\r\nC     XSAVE ENTRY, ENTER POINTERS IN VALUE SECTION OF OSCAR.\r\nC\r\n  860 I = OSPNT + OSCAR(OSPNT)\r\n      OSCAR(I) = 0\r\n      K = I - 1\r\nC\r\nC     GET PARAMETER NAME FROM DMAP.\r\nC\r\n  870 CALL XSCNDM\r\n      GO TO (2260,880,2260,930,2060), IRTURN\r\nC\r\nC     FIND PARAMETER IN VPS AND ENTER POINTER TO VALUE IN OSCAR.\r\nC\r\n  880 K = K + 2\r\n      OSCAR(I  ) = OSCAR(I) + 1\r\n      OSCAR(K  ) = 0\r\n      OSCAR(K+1) = 0\r\n      J = 3\r\n  890 IF (VPS(J).EQ.DMAP(DMPPNT) .AND. VPS(J+1).EQ.DMAP(DMPPNT+1))\r\n     1    GO TO 900\r\n      L = ANDF(VPS(J+2),MASKHI)\r\n      J = J + L + 3\r\n      IF (J .LT. VPS(2)) GO TO 890\r\nC\r\nC     PARAMETER NOT IN VPS - ERROR\r\nC\r\n      GO TO 2270\r\nC\r\nC     PARAMETER FOUND IN VPS\r\nC\r\n  900 OSCAR(K) = J + 3\r\nC\r\nC     SEE IF PARAMETER WAS ALREADY SAVED\r\nC\r\n      J  = I + 1\r\n      J1 = K - 2\r\n      IF (J1 .LT. J) GO TO 870\r\n      DO 910 L = J,J1,2\r\n      IF (OSCAR(L) .EQ. OSCAR(K)) GO TO 920\r\n  910 CONTINUE\r\n      GO TO 870\r\nC\r\nC     PARAMETER DUPLICATED\r\nC\r\n  920 K = K - 2\r\n      OSCAR(I) = OSCAR(I) - 1\r\n      GO TO 2150\r\nC\r\nC\r\nC     END OF SAVE PARAMETER NAME LIST, INCREMENT OSCAR WORD COUNT.\r\nC\r\n  930 OSCAR(OSPNT) = OSCAR(OSPNT) + 2*OSCAR(I) + 1\r\nC\r\nC     GET PARAMETER VALUE DISPLACEMENT IN COMMON FROM PRECEDING\r\nC     OSCAR ENTRY.\r\nC\r\n      IOSDAV = OSPRC\r\n      IF (OSCAR(OSPRC+3) .EQ. XCHK) OSPRC = OS2B4\r\n      IF (ANDF(OSCAR(OSPRC+2),MASKHI) .GT. 2) GO TO 2420\r\nC\r\nC     J = OSCAR POINTER TO BEGINNING OF PARAMETER SECTION.\r\nC\r\n      J = OSPRC + 6 + 3*OSCAR(OSPRC+6) + 1\r\n      IF (ANDF(OSCAR(OSPRC+2),MASKHI) .EQ. 1) J = J + 1 + 3*OSCAR(J)\r\n      J = J + 1\r\nC\r\nC     N1 = PARAMETER COUNT,N2=PARAMETER DISPLACEMENT IN COMMON,\r\nC     N3 = OSCAR POINTER TO PARAMETER ENTRIES IN PRECEDING OSCAR ENTRY.\r\nC\r\n      N3 = J + 1\r\n      N1 = OSCAR(J)\r\n      N2 = 1\r\nC\r\nC     SCAN PARAMETER LIST OF PRECEDING OSCAR ENTRY\r\nC\r\n      DO 980 M = 1,N1\r\n      L = ANDF(OSCAR(N3),NOSGN)\r\n      IF (OSCAR(N3) .GT. 0) GO TO 970\r\n      N3 = N3 + 1\r\nC\r\nC     VARIABLE PARAMETER, COMPARE VPS POINTER WITH XSAVE VPS POINTERS.\r\nC\r\n      I1 = I + 1\r\n      DO 940 K1 = I1,K,2\r\n      IF (OSCAR(K1) .EQ. L) GO TO 950\r\n  940 CONTINUE\r\n      GO TO 960\r\n  950 OSCAR(K1+1) = N2\r\n  960 L = ANDF(VPS(L-1),MASKHI)\r\n      GO TO 980\r\nC\r\nC     CONSTANT PARAMETER, INCREMENT N2, N3\r\nC\r\n  970 N3 = N3 + L + 1\r\n  980 N2 = N2 + L\r\nC\r\nC     PARAMETER SECTION SCANNED, CHECK EXSAVE PARAMETER LIST FOR\r\nC     PARAMETERS NOT FOUND IN PRECEDING OSCAR.\r\nC\r\n      GO TO 2290\r\nC\r\nC     XUOP,XCHK,XPURGE,OR XEQUIV OSCAR ENTRY - GENERATE FILE NAME LIST.\r\nC\r\n  990 NOSPNT = OSPNT + OSCAR(OSPNT)\r\n      IPRIME = 1\r\n      IOSPNT = NOSPNT + 1\r\n      OSCAR(NOSPNT) = 0\r\nC\r\nC     GET NEXT ENTRY FROM DMAP CARD\r\nC\r\n 1000 CALL XSCNDM\r\n      GO TO (1040,1010,2160,1080,2060), IRTURN\r\nC\r\nC     DMAP ENTRY IS DATA BLOCK NAME, STORE IN OSCAR\r\nC\r\n 1010 OSCAR(IOSPNT  ) = DMAP(DMPPNT  )\r\n      OSCAR(IOSPNT+1) = DMAP(DMPPNT+1)\r\nC\r\nC     MAKE SURE FILE IS NOT BLANK\r\nC\r\n      IF (OSCAR(IOSPNT) .EQ. NBLANK) GO TO 1000\r\nC\r\nC     FOR CHKPNT - MAKE SURE FILE IS NOT OUTPUT BY USER I/P PROCESSOR\r\nC\r\n      IF (OSCAR(OSPNT+3) .NE. NAMTBL(7)) GO TO 1030\r\n      M = FIAT(3)*ICFIAT - 2\r\n      DO 1020 J = 4,M,ICFIAT\r\n      IF (OSCAR(IOSPNT).EQ.FIAT(J+1) .AND. OSCAR(IOSPNT+1).EQ.FIAT(J+2))\r\n     1    GO TO 2400\r\n 1020 CONTINUE\r\n 1030 IOSPNT = IOSPNT + 2\r\n      OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT)\r\nC\r\nC     INSERT EXTRA WORD INTO OSCAR FOR EACH PRIMARY DATA BLOCK IN\r\nC     EQUIV STATEMENT\r\nC\r\n      IF (OSCAR(OSPNT+3).NE.NAMTBL(11) .OR. OSCAR(OSPNT+4).NE.NAMTBL(12)\r\n     1   ) GO TO 1000\r\n      IF (IPRIME .EQ. 0) GO TO 1000\r\n      OSCAR(IOSPNT) = 0\r\n      IOSPNT = IOSPNT + 1\r\n      IPRIME = 0\r\n      GO TO 1000\r\nC\r\nC     DMAP ENTRY IS OPERATOR, CHECK FOR / OPERATOR\r\nC\r\n 1040 IF ((DMAP(DMPPNT+1).NE.ISLSH) .OR. (OSCAR(OSPNT+3).NE.NXEQUI .AND.\r\n     1     OSCAR(OSPNT+3).NE.NXPURG)) GO TO 2160\r\nC\r\nC     OSCAR ENTRY IS XEQUIV OR XPURGE\r\nC\r\n      VARFLG = 0\r\n      IF (OSCAR(OSPNT+3) .EQ. NXPURG) GO TO 1050\r\n      IF (OSCAR(NOSPNT)  .LT. 2     ) GO TO 2160\r\nC\r\nC     GET PARAMETER NAME AND ENTER INTO LBLTBL\r\nC\r\n 1050 CALL XSCNDM\r\n      GO TO (1110,1060,2160,2160,2060), IRTURN\r\n 1060 VARFLG = 1\r\n      IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1100\r\n      ASSIGN 1070 TO IRTURN\r\n      IF (LSTPAR-8 .LE. LSTLBL) GO TO 2220\r\n 1070 LSTPAR = LSTPAR - 4\r\n      LBLTBL(LSTPAR  ) = DMAP(DMPPNT  )\r\n      LBLTBL(LSTPAR+1) = DMAP(DMPPNT+1)\r\n      LBLTBL(LSTPAR+2) = IOSPNT\r\n      LBLTBL(LSTPAR+3) = OSPNT\r\n      IDLHSS = 2*OSCAR(NOSPNT)+OSCAR(OSPNT) + 2\r\n      IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1\r\n      OSCAR(OSPNT) = IDLHSS\r\nC\r\nC     CHECK FOR POSSIBILITY OF ANOTHER DATA BLOCK NAME LIST.\r\nC\r\n      CALL XSCNDM\r\n      GO TO (990,2160,2160,300,2060), IRTURN\r\nC\r\nC     END OF DMAP INSTRUCTION, INCREMENT OSCAR WORD COUNT IF NOT XEQUIV\r\nC     OR XPURGE.\r\nC\r\n 1080 IF (OSCAR(OSPNT+3).NE.NXEQUI .AND. OSCAR(OSPNT+3).NE.NXPURG)\r\n     1    GO TO 1090\r\n      OSCAR(IOSPNT) = -1\r\n      IDLHSS = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 2\r\n      IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1\r\n      OSCAR(OSPNT) = IDLHSS\r\n      GO TO 300\r\n 1090 OSCAR(OSPNT) = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 1\r\nC\r\nC     ELIMINATE ENTRY IF NOTHING CHECKPOINTED.\r\nC\r\n      IF (OSCAR(NOSPNT) .EQ. 0) OSBOT = OSPRC\r\n      GO TO 300\r\n 1100 CALL XSCNDM\r\n      GO TO (1110,2160,2160,2160,2060), IRTURN\r\n 1110 IF ((DMAP(DMPPNT+1).NE.ISLSH) .OR. (OSCAR(OSPNT+3).NE.NXEQUI .AND.\r\n     1     OSCAR(OSPNT+3).NE.NXPURG)) GO TO 2160\r\n      OSCAR(IOSPNT) = -1\r\n      IDLHSS = 2*OSCAR(NOSPNT) + OSCAR(OSPNT) + 2\r\n      IF (OSCAR(OSPNT+3) .EQ. NAMTBL(11)) IDLHSS = IDLHSS + 1\r\n      OSCAR(OSPNT) = IDLHSS\r\n      GO TO 990\r\nC\r\nC     *******************************\r\nC     DMAP INSTRUCTION IS DECLARATIVE\r\nC     *******************************\r\nC\r\nC     PUT DUMMY ENTRY IN OSCAR FOR DIAGNOSTIC USE.\r\nC\r\n 1200 J = OSBOT  + OSCAR(OSBOT)\r\n      OSCAR(J+3) = DMAP(DMPPNT)\r\n      OSCAR(J+4) = DMAP(DMPPNT+1)\r\n      OSCAR(J+5) = DMPCNT\r\n      CALL XLNKHD\r\nC\r\nC     NOW PROCESS INSTRUCTION\r\nC\r\n      DO 1210 J = 1,3\r\n      IF (DMAP(DMPPNT) .EQ. DECLAR(J)) GO TO (1220,1270,1350), J\r\n 1210 CONTINUE\r\nC\r\nC     BEGIN DECLARATIVE - PREPARE TO PROCESS NEXT DMAP INSTRUCTION\r\nC\r\n 1220 INDEX = 1\r\n 1230 IF (IFIRST .GT. 0) GO TO 1250\r\n      IF (DIAG14.EQ.0 .AND. DIAG17.EQ.0) GO TO 1250\r\n      IFIRST = 1\r\n      CALL XGPIMW (5,18,DMPCNT,IBUFF)\r\n 1240 IF (START .NE. ICST) CALL XGPIMW (10,0,0,0)\r\n 1250 IF (INDEX .GT.    1) GO TO 300\r\n 1260 CALL XSCNDM\r\n      GO TO (1260,1260,1260,300,2060), IRTURN\r\nC\r\nC     LABEL DECLARATIVE - GET LABEL NAME\r\nC\r\n 1270 CALL XSCNDM\r\n      GO TO (2170,1280,2170,2170,2060), IRTURN\r\nC\r\nC     CHECK IF LABEL IS FOR CONDITIONAL COMPILATION\r\nC\r\n 1280 CONTINUE\r\n      IF (DMAP(DMPPNT).NE.NSKIP(ILEVEL,1) .OR. DMAP(DMPPNT+1).NE.\r\n     1    NSKIP(ILEVEL,2)) GO TO 1290\r\n      ILEVEL = ILEVEL - 1\r\n      SKIP   = .FALSE.\r\n      GO TO 300\r\n 1290 IF (SKIP) GO TO 300\r\nC\r\nC     SCAN LABEL TABLE FOR LABEL NAME\r\nC\r\n      IF (LSTLBL .LT. LBLTOP) GO TO 1310\r\n      DO 1300 J = LBLTOP,LSTLBL,4\r\n      IF (DMAP(DMPPNT).EQ.LBLTBL(J) .AND. DMAP(DMPPNT+1).EQ.LBLTBL(J+1))\r\n     1    GO TO 1340\r\n 1300 CONTINUE\r\nC\r\nC     NAME NOT IN LABEL TABLE, MAKE NEW ENTRY\r\nC\r\n 1310 ASSIGN 1320 TO IRTURN\r\n      IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220\r\n 1320 LSTLBL = LSTLBL + 4\r\n      J = LSTLBL\r\n      LBLTBL(J  ) = DMAP(DMPPNT  )\r\n      LBLTBL(J+1) = DMAP(DMPPNT+1)\r\n      LBLTBL(J+3) = 0\r\n 1330 LBLTBL(J+2) = ISEQN + 1\r\n      GO TO 300\r\nC\r\nC     LABEL NAME FOUND IN LABEL TABLE, DEF ENTRY SHOULD BE ZERO\r\nC\r\n 1340 IF (LBLTBL(J+2)) 2250,1330,2250\r\nC\r\nC     FILE DECLARATIVE\r\nC     SET FILE NAME FLAG\r\nC     DO NOT PROCESS FILE DECLARATION WHEN EXECUTE FLAG IS OFF ON\r\nC     MODIFIED RESTART.\r\nC\r\n 1350 IF (START.EQ.IMST .AND. OSCAR(OSPNT+5).GE.0) GO TO 1260\r\n 1360 I = 1\r\n 1370 CALL XSCNDM\r\n      GO TO (1380,1410,2170,300,2060), IRTURN\r\nC\r\nC     DELIMITER ENCOUNTERED\r\nC\r\n 1380 IF (DMAP(DMPPNT+1) .EQ. ISLSH) GO TO 1390\r\n      IF (DMAP(DMPPNT+1) .EQ. IEQUL) GO TO 1400\r\n      GO TO 2170\r\nC\r\nC     DELIMITER IS /, TEST FILE NAME FLAG\r\nC\r\n 1390 IF (I .NE. 0) GO TO 2170\r\n      GO TO 1360\r\nC\r\nC     DELIMITER IS =, TURN OFF FILE NAME FLAG\r\nC\r\n 1400 I = 0\r\n      GO TO 1370\r\nC\r\nC     NAME ENCOUNTERED - TEST FILE NAME FLAG\r\nC\r\n 1410 IF (I .EQ. 0) GO TO 1430\r\nC\r\nC     FILE NAME - ENTER IN FILE TABLE\r\nC\r\n      FPNT = FPNT + 3\r\n      IF (FPNT .GT. LFILE-2) GO TO 2410\r\n      FILE(FPNT  ) = DMAP(DMPPNT  )\r\n      FILE(FPNT+1) = DMAP(DMPPNT+1)\r\nC\r\nC     PUT FILE NAME INTO LABEL TABLE FOR DMAP XREF\r\nC\r\n      ASSIGN 1420 TO IRTURN\r\n      IF (LSTLBL+8 .GE. LSTPAR) GO TO 2220\r\n 1420 LSTLBL = LSTLBL + 4\r\n      LBLTBL(LSTLBL  ) = FILE(FPNT  )\r\n      LBLTBL(LSTLBL+1) = FILE(FPNT+1)\r\n      LBLTBL(LSTLBL+2) = ISEQN\r\n      LBLTBL(LSTLBL+3) = -1\r\n      GO TO 1370\r\nC\r\nC     FILE PARAMETER FOUND - ENTER APPROPRIATE CODE IN FILE TABLE\r\nC\r\n 1430 DO 1440 J = 1,3\r\n      IF (DMAP(DMPPNT) .EQ. FPARAM(J)) GO TO (1450,1460,1470), J\r\n 1440 CONTINUE\r\n      GO TO 2160\r\nC\r\nC     TAPE PARAM\r\nC\r\n 1450 FCODE = ITAPE\r\n      GO TO 1480\r\nC\r\nC     APPEND PARAM\r\nC\r\n 1460 FCODE = IAPPND\r\n      GO TO 1480\r\nC\r\nC     SAVE PARAM\r\nC\r\n 1470 FCODE = ISAVE\r\nC\r\nC     PUT CODE IN FILE TABLE\r\nC\r\n 1480 FILE(FPNT+2) = ORF(FILE(FPNT+2),FCODE)\r\n      GO TO 1370\r\nC\r\nC     PROCESS PRECHK CARD\r\nC\r\n 1490 INDEX = 3\r\n      CALL XSCNDM\r\n      GO TO (2160,1500,2160,2160,2160), IRTURN\r\nC\r\nC     TEST FOR  ALL  OPTION OR BLANK\r\nC\r\n 1500 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1490\r\n      PREFLG = 1\r\n      NNAMES = 0\r\n      IF (DMAP(DMPPNT) .EQ. NAMOPT(23)) GO TO 1520\r\n      IF (DMAP(DMPPNT) .EQ.      NEND ) GO TO 1550\r\nC\r\nC     LIST HAS BEEN FOUND, STORE IN /AUTOCM/\r\nC\r\n 1510 NNAMES = NNAMES + 1\r\n      IF (NNAMES .GT. 50) GO TO 2180\r\n      PRENAM(2*NNAMES-1) = DMAP(DMPPNT  )\r\n      PRENAM(2*NNAMES  ) = DMAP(DMPPNT+1)\r\n      CALL XSCNDM\r\n      GO TO (2160,1510,2160,1560,2060), IRTURN\r\nC\r\nC     ALL  OPTION FOUND, LOOK FOR  EXCEPT\r\nC\r\n 1520 CALL XSCNDM\r\n      GO TO (2160,1530,2160,1530,2060), IRTURN\r\n 1530 IF (DMAP(DMPPNT).EQ.NAMOPT(25) .AND. DMAP(DMPPNT+1).EQ.NAMOPT(26))\r\n     1    GO TO 1540\r\n      PREFLG = 2\r\n      GO TO 1560\r\n 1540 PREFLG = 3\r\n      CALL XSCNDM\r\n      GO TO (2160,1510,2160,1560,2060), IRTURN\r\n 1550 PREFLG = 0\r\n 1560 IF (ICPFLG .NE. 0) GO TO 1240\r\n      PREFLG = 0\r\n      GO TO 300\r\nC\r\nC     PROCESS XDMAP INSTRUCTION\r\nC\r\n 1570 IOLD = DIAG14\r\n 1580 CALL XSCNDM\r\n      GO TO (2160,1610,2160,1590,2060), IRTURN\r\n 1590 INDEX = 2\r\n      IF (IOLD.EQ.0 .OR. IFIRST.EQ.0) GO TO 1230\r\n      IF (START .NE. ICST) WRITE (OPTAPE,1600) IPLUS,IPLUS\r\n 1600 FORMAT (A1,2X,A1)\r\n      GO TO 300\r\n 1610 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 1580\r\nC\r\nC     HAVE LOCATED AN XDMAP OPTION\r\nC\r\n      DO 1620 K = 1,22,2\r\n      IF (DMAP(DMPPNT).EQ.NAMOPT(K) .AND. DMAP(DMPPNT+1).EQ.NAMOPT(K+1))\r\n     1    GO TO 1630\r\n 1620 CONTINUE\r\n      GO TO 2190\r\n 1630 KK = K/2 + 1\r\n      GO TO (1580,1640,1710,1660,1650,1680,1690,1700,1580,1670,1580), KK\r\n 1640 IFLG(1) = 0\r\n      GO TO 1580\r\n 1650 IF (DIAG14 .EQ. 1) GO TO 1580\r\n      IFLG(3) = 0\r\n      DIAG14  = 0\r\n      GO TO 1580\r\n 1660 IF (DIAG14 .EQ. 1) GO TO 1580\r\n      IFLG(3) = 1\r\n      DIAG14  = 2\r\n      GO TO 1580\r\n 1670 IF (DIAG4 .EQ. 1) GO TO 1580\r\n      IFLG(6) = 1\r\n      DIAG4   = 1\r\n      GO TO 1580\r\n 1680 IF (DIAG17 .EQ. 1) GO TO 1580\r\n      IFLG(4) = 1\r\n      DIAG17  = 2\r\n      GO TO 1580\r\n 1690 IF (DIAG17 .EQ. 1) GO TO 1580\r\n      IFLG(4) = 0\r\n      DIAG17  = 0\r\n      GO TO 1580\r\n 1700 IF (DIAG25 .EQ. 1) GO TO 1580\r\n      IFLG(5) = 1\r\n      DIAG25  = 1\r\n      GO TO 1580\r\nC\r\nC     CODE TO PROCESS  ERR  OPTION\r\nC\r\n 1710 CALL XSCNDM\r\n      GO TO (1720,2160,2160,2160,2060), IRTURN\r\n 1720 IF (DMAP(DMPPNT+1) .NE. IEQUL) GO TO 2160\r\n      CALL XSCNDM\r\n      GO TO (2160,2160,1730,2160,2060), IRTURN\r\n 1730 IFLG(2) = DMAP(DMPPNT+1)\r\n      IF (IFLG(2).LT.0 .OR. IFLG(2).GT.2) GO TO 2190\r\n      GO TO 1580\r\nC\r\nC     PROCESS CONDCOMP INSTRUCTION\r\nC\r\n 1740 IF (ILEVEL .GE. 5) GO TO 2160\r\n      ION = 0\r\n      IF (DMAP(DMPPNT+1) .EQ. CDCOMP(2)) ION = 1\r\n      CALL XSCNDM\r\n      GO TO (2160,1750,1760,2160,2060), IRTURN\r\nC\r\nC     LABEL SPECIFIED FOR END\r\nC\r\n 1750 NSKIP(ILEVEL+1,1) = DMAP(DMPPNT  )\r\n      NSKIP(ILEVEL+1,2) = DMAP(DMPPNT+1)\r\n      GO TO 1770\r\nC\r\nC     INSTRUCTION COUNT GIVEN FOR END\r\nC\r\n 1760 CONTINUE\r\n      IF (DMAP(DMPPNT+1) .LT. 0) GO TO 2160\r\n      NSKIP(ILEVEL+1,1) = DMAP(DMPPNT+1)\r\nC\r\nC     GET LABEL AND LOOK FOR IT IN PVT\r\nC\r\n 1770 CALL XSCNDM\r\n      GO TO (2160,1780,2160,2160,2060), IRTURN\r\n 1780 ILEVEL = ILEVEL + 1\r\n      KDH = 3\r\n 1790 LENGTH = ANDF(PVT(KDH+2),NOSGN)\r\n      LENGTH = ITYPE(LENGTH)\r\n      IF (DMAP(DMPPNT).EQ.PVT(KDH) .AND. DMAP(DMPPNT+1).EQ.PVT(KDH+1))\r\n     1    GO TO 1810\r\n      KDH = KDH + LENGTH + 3\r\n      IF (KDH - PVT(2)) 1790,1800,1800\r\nC\r\nC     PARAMETER NOT FOUND - ASSUME FALSE VALUE\r\nC\r\n 1800 IF (ION .EQ. 0) GO TO 300\r\n      GO TO 1820\r\nC\r\nC     CHECK IF VALUE IS FALSE\r\nC\r\n 1810 PVT(KDH+2) = ORF(PVT(KDH+2),ISGNON)\r\n      IF (ANDF(PVT(KDH+2),NOSGN) .NE.  1) GO TO 2160\r\n      IF (PVT(KDH+3).LT.0 .AND. ION.EQ.1) GO TO 300\r\n      IF (PVT(KDH+3).GE.0 .AND. ION.EQ.0) GO TO 300\r\n 1820 SKIP = .TRUE.\r\n      GO TO 300\r\nC\r\nC     ***********************************************************\r\nC     DMAP INSTRUCTIONS ALL PROCESSED - PREPARE OSCAR FOR PHASE 2\r\nC     ***********************************************************\r\nC\r\nC     CHECK FOR DISCREPENCY BETWEEN RIGID FORMAT AND MED TABLE.\r\nC\r\n 1900 IF (MED(MEDTP).NE.DMPCNT .AND. IAPP.NE.IDMAPP) GO TO 2390\r\nC\r\nC     USE LBLTBL PARAMETER NAMES TO UPDATE VALUE SECTIONS OF TYPE C AND\r\nC     E OSCAR ENTRIES.\r\nC\r\n 1910 IF (LSTPAR .GE. LBLBOT) GO TO 1990\r\nC\r\nC     FIND PARAMETER NAME IN VPS\r\nC\r\n      K = 3\r\n 1920 IF (LBLTBL(LSTPAR).EQ.VPS(K) .AND. LBLTBL(LSTPAR+1).EQ.VPS(K+1))\r\n     1    GO TO 1930\r\n      K = K + ANDF(VPS(K+2),MASKHI) + 3\r\n      IF (K - VPS(2)) 1920,1950,1950\r\nC\r\nC     NAME FOUND IN VPS, VPS POINTER TO OSCAR VALUE SECTION.\r\nC\r\n 1930 I = LBLTBL(LSTPAR+2)\r\n      OSCAR(I) = K + 3\r\nC\r\nC     GET NEXT ENTRY FROM LBLTBL\r\nC\r\n 1940 LSTPAR = LSTPAR + 4\r\n      GO TO 1910\r\nC\r\nC     SEARCH PVT TABLE FOR PARAMETER. IF FOUND ENTER PARAMETER IN VPS.\r\nC\r\n 1950 K1 = 3\r\n 1960 LENGTH = ANDF(PVT(K1+2),NOSGN)\r\n      LENGTH = ITYPE(LENGTH)\r\n      IF (LBLTBL(LSTPAR).EQ.PVT(K1) .AND. LBLTBL(LSTPAR+1).EQ.PVT(K1+1))\r\n     1    GO TO 1970\r\n      K1 = K1 + LENGTH + 3\r\n      IF (K1-PVT(2)) 1960,2310,2310\r\n 1970 K = VPS(2) + 1\r\n      PVT(K1+2) = ORF(PVT(K1+2),ISGNON)\r\n      VPS(2) = K + 2 + LENGTH\r\n      IF (VPS(2) .GE. VPS(1)) GO TO 2380\r\n      K2 = LENGTH + 3\r\n      DO 1980 M = 1,K2\r\n      J  = K  + M - 1\r\n      J1 = K1 + M - 1\r\n 1980 VPS(J) = PVT(J1)\r\n      GO TO 1930\r\nC\r\nC     USE LBLTBL ENTRIES TO LOAD SEQUENCE NOS. INTO VALUE SECTION OF\r\nC     TYPE C OSCAR ENTRIES.\r\nC\r\n 1990 LBLERR = 0\r\n      LSTLSV = LSTLBL\r\n 2000 IF (LSTLBL .LT. LBLTOP) GO TO 2050\r\n      IF (LBLTBL(LSTLBL+2) .EQ. 0) GO TO 2330\r\nC\r\nC     IGNORE FILE NAMES IN LBLTBL USED FOR XREF\r\nC\r\n 2010 IF (LBLTBL(LSTLBL+3)) 2040,2360,2020\r\n 2020 I = LBLTBL(LSTLBL+3) + 6\r\n      IF (OSCAR(I-3).EQ.NCOND .OR. OSCAR(I-3).EQ.NJUMP) GO TO 2030\r\n      J = OSCAR(I)\r\nC\r\nC     LABEL NAME TO WORDS 3 AND 4 OF CEITBL ENTRY\r\nC\r\n      CEITBL(J+1) = LBLTBL(LSTLBL  )\r\n      CEITBL(J+2) = LBLTBL(LSTLBL+1)\r\nC\r\nC     OSCAR RECORD NO. OF BEGIN LOOP TO FIRST WORD OF CEITBL ENTRY\r\nC\r\n      CEITBL(J-1) = ORF(LSHIFT(LBLTBL(LSTLBL+2),16),CEITBL(J-1))\r\n 2030 OSCAR(I)    = ORF(LSHIFT(LBLTBL(LSTLBL+2),16),OSCAR(I))\r\nC\r\nC     GET NEXT LBLTBL ENTRY.\r\nC\r\n 2040 LSTLBL = LSTLBL - 4\r\n      GO TO 2000\r\nC\r\nC     NORMAL RETURN -     DUMP LBLTBL ONTO SCRATCH FOR DMAP XREF\r\nC                         THEN DELETE LBLTBL AND DMPCRD ARRARYS\r\nC                         FROM OPEN CORE\r\nC\r\n 2050 LSTLBL = LSTLSV\r\n 2060 LOSCAR = LBLBOT\r\n      IDPBUF = KORSZ(OSCAR) - 2*BUFSZ\r\n      CALL CLOSE (NSCR,1)\r\n      LSTLBL = LSTLBL - LBLTOP + 4\r\n      IF (LSTLBL .LT. 0) LSTLBL = 0\r\n      RETURN\r\nC\r\nC     DIAGNOSTIC MESSAGES -\r\nC\r\nC     DMAP INPUT FILE ERROR\r\nC\r\n 2100 CALL XGPIDG (-10,OSPNT,0,0)\r\n      GO TO 410\r\nC\r\nC     DMAP OUTPUT FILE ERROR\r\nC\r\n 2110 CALL XGPIDG (-11,OSPNT,0,0)\r\n      GO TO 420\r\nC\r\nC     NO MACRO INSTRUCTION NAME ON DMAP CARD.\r\nC\r\n 2120 CALL XGPIDG (12,0,DMPCNT,0)\r\n      GO TO 300\r\nC\r\nC     NO MPL ENTRY FOR THIS DMAP MACRO INSTRUCTION\r\nC\r\n 2130 CALL XGPIDG (13,0,DMPPNT,DMPCNT)\r\n      GO TO 300\r\nC\r\nC     MPL TABLE INCORRECT\r\nC\r\n 2140 CALL XGPIDG (49,0,0,0)\r\n      GO TO 2500\r\nC\r\nC     DUPLICATE PARAMETER NAMES (WARNING)\r\nC\r\n 2150 CALL XGPIDG (-2,OSPNT,DMAP(DMPPNT),DMAP(DMPPNT+1))\r\n      GO TO 870\r\nC\r\nC     DMAP FORMAT ERROR\r\nC\r\n 2160 CALL XGPIDG (16,OSPNT,0,0)\r\n      GO TO 300\r\n 2170 J = OSBOT + OSCAR(OSBOT) + 6\r\n      CALL XGPIDG (16,J,0,0)\r\n      GO TO 300\r\nC\r\nC     PRECHK NAME LIST OVERFLOW\r\nC\r\n 2180 CALL XGPIDG (55,0,0,0)\r\n      GO TO 2500\r\nC\r\nC     ILLEGAL OPTION ON XDMAP CARD\r\nC\r\n 2190 CALL XGPIDG (56,0,0,0)\r\n      GO TO 300\r\nC\r\nC     VARIABLE REPT INSTRUCTION ERRORS\r\nC\r\n 2200 CALL XGPIDG (58,0,0,0)\r\n      GO TO 300\r\n 2210 CALL XGPIDG (57,0,0,0)\r\n      GO TO 300\r\nC\r\nC     LBLTBL OVERFLOWED - ALLOCATE 50 MORE WORDS FOR IT.\r\nC\r\n 2220 ICRDTP = ICRDTP - 50\r\n      IF (ICRDTP .LT. OSCAR(OSBOT)+OSBOT) GO TO 2240\r\n      LOSCAR = LOSCAR - 50\r\nC\r\nC     MOVE LABEL NAME PORTION OF LBLTBL\r\nC\r\n      JX = LSTLBL + 3\r\n      DO 2230 IX = LBLTOP,JX\r\n      IY = IX - 50\r\n 2230 LBLTBL(IY) = LBLTBL(IX)\r\n      LBLTOP = LBLTOP - 50\r\n      LSTLBL = LSTLBL - 50\r\n      GO TO IRTURN, (570,620,1070,1320,1420)\r\nC\r\nC     LABEL TABLE OVERFLOW, DISCONTINUE COMPILATION\r\nC\r\n 2240 CALL XGPIDG (14,NLBLT1,NLBLT2,DMPCNT)\r\n      GO TO 2500\r\nC\r\nC     LABEL IS MULTIPLY DEFINED\r\nC\r\n 2250 CALL XGPIDG (19,DMPCNT,DMPPNT,0)\r\n      GO TO 300\r\nC\r\nC     ILLEGAL CHARACTERS IN DMAP SAVE PARAMETER NAME LIST\r\nC\r\n 2260 CALL XGPIDG (20,OSPNT,OSCAR(I)+1,0)\r\n      GO TO 870\r\nC\r\nC     XSAVE PARAMETER NAME NOT ON PRECEDING DMAP CARD\r\nC\r\n 2270 CALL XGPIDG (21,OSPNT,DMAP(DMPPNT),DMAP(DMPPNT+1))\r\n      GO TO 870\r\nC\r\nC     CEITBL OVERFLOW, DISCONTINUE COMPILATION\r\nC\r\n 2280 CALL XGPIDG (14,NCEIT1,NCEIT2,DMPCNT)\r\n      GO TO 2500\r\nC\r\nC     CHECK FOR XSAVE PARAMETERS NOT ON PRECEDING DMAP CARD\r\nC\r\n 2290 I1 = I + 2\r\n      K  = K + 1\r\n      DO 2300 K1 = I1,K,2\r\n      IF (OSCAR(K1).GT.0 .OR. OSCAR(K1-1).EQ.0) GO TO 2300\r\n      J = OSCAR(K1-1)\r\n      CALL XGPIDG (21,OSPNT,VPS(J-3),VPS(J-2))\r\n 2300 CONTINUE\r\n      GO TO 300\r\nC\r\nC     PARAMETER NOT DEFINED FOR USE IN COND, PURGE OR EQUIV INSTRUCTIONS\r\nC\r\n 2310 CALL XGPIDG (25,LBLTBL(LSTPAR+3),LBLTBL(LSTPAR),LBLTBL(LSTPAR+1))\r\n      GO TO 1940\r\nC\r\nC     LABEL NOT DEFINED\r\nC\r\n 2320 CALL XGPIDG (26,LBLTBL(LSTLBL+3),LBLTBL(LSTLBL),LBLTBL(LSTLBL+1))\r\n      NOGO = 1\r\n      GO TO 2040\r\nC\r\nC     CHECK FOR LABEL DEFINED\r\nC\r\n 2330 DO 2340 J = LBLTOP,LSTLBL,4\r\n      IF (LBLTBL(J).EQ.LBLTBL(LSTLBL) .AND. LBLTBL(J+1).EQ.\r\n     1    LBLTBL(LSTLBL+1) .AND. LBLTBL(J+2).GT.0) GO TO 2350\r\n 2340 CONTINUE\r\n      GO TO 2320\r\n 2350 LBLTBL(LSTLBL+2) = LBLTBL(J+2)\r\n      GO TO 2010\r\nC\r\nC     LABEL NOT REFERENCED - WARNING ONLY\r\nC\r\n 2360 CALL XGPIDG (-27,LBLTBL(LSTLBL+2),LBLTBL(LSTLBL),LBLTBL(LSTLBL+1))\r\n      GO TO 2040\r\nC\r\nC     TIME SEGMENT NAME INCORRECT - WARNING ONLY\r\nC\r\n 2370 CALL XGPIDG (-17,OSPNT,0,0)\r\n      GO TO 300\r\nC\r\nC     VPS TABLE OVERFLOWED\r\nC\r\n 2380 CALL XGPIDG (14,NVPS,NBLANK,0)\r\n      GO TO 2500\r\nC\r\nC     DMAP SEQUENCE DOES NOT CORRESPOND TO MED TABLE\r\nC\r\n 2390 CALL XGPIDG (39,0,0,0)\r\n      GO TO 2500\r\nC\r\nC     WARNING - CANNOT CHECKPOINT USER INPUT\r\nC\r\n 2400 CALL XGPIDG (-48,OSPNT,OSCAR(IOSPNT),OSCAR(IOSPNT+1))\r\n      GO TO 1030\r\nC\r\nC     OVERFLOWED FILE TABLE\r\nC\r\n 2410 CALL XGPIDG (14,NFILE,NBLANK,0)\r\n      GO TO 2500\r\nC\r\nC     SAVE OUT OF POSITION\r\nC\r\n 2420 CALL XGPIDG (61,OSPNT,0,0)\r\n      OSPNT = IOSDAV\r\n      OSPRC = OS2B4\r\n      GO TO 300\r\nC\r\nC     RETURN WHEN XGPI HAS BEEN DISASTERED.\r\nC\r\n 2500 NOGO = 2\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xparam.f",
    "content": "      SUBROUTINE XPARAM\r\nC\r\nC     THE PURPOSE OF XPARAM IS TO GENERATE THE PARAMETER SECTION OF AN\r\nC     OSCAR ENTRY,AND TO GENERATE THE VPS TABLE.\r\nC\r\nC          ... DESCRIPTION OF PROGRAM VARIABLES ...\r\nC     ITMP   = TEMPORARY STORAGE FOR PARAMETER NAME AND VALUE.\r\nC     IPVAL  = HIGHEST PRIORITY NOMINAL VALUE IN ITMP.\r\nC     IPRVOP = PREVIOUS OPERATOR OR OPERAND RECEIVED FROM DMAP.\r\nC     INDEX  = TABLE CONTAINING ROW INDEXES FOR ISYNTX TABLE.\r\nC     ISYNTX = SYNTAX TABLE USED TO PROCESS DMAP PARAMETER LIST.\r\nC     NVSTBL = NOMINAL VALUE SOURCE TABLE.\r\nC     NOSPNT = POINTER TO PARAMETER COUNT IN PARAMETER SECTION OF OSCAR.\r\nC     IOSPNT = POINTER TO NEXT AVAILABLE WORD IN OSCAR.\r\nC     ENDCRD = END OF CARD FLAG\r\nC     MPLLN  = LENGTH(IN WORDS) OF MPL PARAMETER VALUE\r\nC     ITYPE  = TABLE FOR TRANSLATING NUMBER TYPE CODES TO WORD LENGTH.\r\nC     ENDCRD = FLAG INDICATING END OF CARD SENSED.\r\nC\r\nC     RETURN CODES FROM XSCNDM\r\nC\r\nC        1  DELIMITOR\r\nC        2  BCD\r\nC        3  VALUE\r\nC        4  END OF CARD\r\nC        5  ERROR ENCOUNTERED\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      DIMENSION       ITMP(7),INDEX(2,2),ISYNTX(4,5),NVSTBL(4,4),\r\n     1                ITYPE(6),OSCAR(1),OS(5)\r\n      COMMON /SYSTEM/ BUFSZ,OPTAPE,NOGO\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,\r\n     4                NCPW,NBPC,NWPC,\r\n     5                MASKHI,MASKLO,ISGNON,NOSGN,IALLON,MASKS(1)\r\n      COMMON /XGPID / XXGPID(8),MODFLG\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI2 / LMPL,MPLPNT,MPL(1)\r\n      COMMON /XGPI3 / PVT(2)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XVPS  / VPS(2)\r\n      COMMON /AUTOSM/ NWORDS,SAVNAM(100)\r\n      EQUIVALENCE     (CORE(1),OS(1),LOSCAR),(OS(2),OSPRC),\r\n     1                (OS(3),OSBOT),(OS(4),OSPNT),(OS(5),OSCAR(1))\r\nC\r\n      DATA   INDEX  / 1,3,2,4/,\r\n     1       ISYNTX / 3*1,8,3*2,7,3*3,5,4*4,4*6/,\r\n     2       NVSTBL / 1,1,3,3,1,1,4,4,1,1,4,4,1,2,4,2/,\r\n     3       ITYPE  / 1,1,2,2,2,4/,\r\n     4       IC  /4HC   /,  IV/4HV   /,  IY   /4HY   /,  IN/4HN   /,\r\n     5       NVPS/4HVPS /,  IS/4HS   /,  IASTK/4H*   /,\r\n     6       NAME/1 /, IVAL/2/, NONE/1/, IMPL/2/, IDMAP/3/, IPVT/4/\r\nC\r\nC     INITIALIZE\r\nC\r\n      OR (I,J) = ORF(I,J)\r\n      AND(I,J) = ANDF(I,J)\r\n      ENDCRD = 0\r\n      IPRVOP = ISLSH\r\n      NOSPNT = OSCAR(OSPNT) + OSPNT\r\n      IOSPNT = NOSPNT + 1\r\n      OSCAR(NOSPNT) = 0\r\n      MPLBOT = MPL(MPLPNT-7) + MPLPNT - 7\r\nC\r\nC     GET FIRST/NEXT TYPE AND MODIFY CODES FROM DMAP,CHECK FOR $\r\nC\r\n   10 NEWTYP = 0\r\n      ISAVE  = 0\r\n   15 CALL XSCNDM\r\n      GO TO (600,20,601,410,570), IRTURN\r\n   20 IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 15\r\n      OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT)\r\n      J = DMAP(DMPPNT)\r\n      IF (J.NE.IC .AND. J.NE.IV .AND. J.NE.IS) GO TO 602\r\n      IF (J .EQ. IS) ISAVE = 1\r\n      I = 1\r\n      IF (J .EQ.IC) I = 2\r\n      CALL XSCNDM\r\n      GO TO (470,30,470,470,570), IRTURN\r\n   30 K = DMAP(DMPPNT)\r\n      IF (K.NE.IY .AND. K.NE.IN) GO TO 470\r\n      J = 1\r\n      IF (K.EQ.IN .OR. K.EQ.IS) J = 2\r\nC\r\nC     USE I AND J TO OBTAIN ROW INDEX FOR SYNTAX TABLE.\r\nC\r\n   75 I = INDEX(I,J)\r\nC\r\nC     INITIALIZE IPVAL,AND ITMP WITH MPL DATA\r\nC\r\n      IF (MPLPNT .GE. MPLBOT) GO TO 580\r\n      DO 40 K = 1,7\r\n   40 ITMP(K) = 0\r\n      ITMP(3) = IABS(MPL(MPLPNT))\r\nC\r\nC     CONVERT PARAMETER TYPE CODE TO WORD LENGTH\r\nC\r\n      K = ITMP(3)\r\n      MPLLN = ITYPE(K)\r\n      IPVAL = NONE\r\n      IF (MPL(MPLPNT) .LT. 0) GO TO 60\r\n      DO 50 K = 1,MPLLN\r\n      MPLPNT = MPLPNT + 1\r\n   50 ITMP(K+3) = MPL(MPLPNT)\r\n      IPVAL  = IMPL\r\n   60 MPLPNT = MPLPNT + 1\r\n      IF (NEWTYP .EQ. 1) GO TO (620,100,110,120,570), IRTURN\r\nC\r\nC     SCAN DMAP FOR PARAMETER NAME AND VALUE IF ANY, AND CODE DMAP ENTRY\r\nC     FOR USE AS COLUMN INDEX IN SYNTAX TABLE.\r\nC\r\n   70 CALL XSCNDM\r\n      GO TO (90,100,110,120,570), IRTURN\r\n   90 IF (DMAP(DMPPNT+1).NE.IEQUL .AND. DMAP(DMPPNT+1).NE.ISLSH .AND.\r\n     1    DMAP(DMPPNT+1).NE.IASTK) GO TO 470\r\n      IF (DMAP(DMPPNT+1) .EQ. IASTK) GO TO 70\r\n      J = 2\r\n      IF (DMAP(DMPPNT+1).EQ.ISLSH) J = 4\r\n      GO TO 130\r\n  100 J = 1\r\nC\r\nC     CHECK FOR BLANK\r\nC\r\n      IF (DMAP(DMPPNT) .EQ. NBLANK) GO TO 70\r\n      GO TO 130\r\n  110 J = 3\r\n      GO TO 130\r\n  120 J = 5\r\nC\r\nC     BRANCH ON SYNTAX TABLE VALUE\r\nC\r\n  130 K = ISYNTX(I,J)\r\n      GO TO (140,180,210,280,200,290,470,190), K\r\nC\r\nC     NAME FOUND. NAME TO TEMP,UPDATE PREVOP AND SEARCH PVT FOR VALUE.\r\nC\r\n  140 IF (IPRVOP .EQ. IEQUL) GO TO 190\r\n      IF (IPRVOP .NE. ISLSH) GO TO 470\r\n      ITMP(1) = DMAP(DMPPNT  )\r\n      ITMP(2) = DMAP(DMPPNT+1)\r\n      IPRVOP  = NAME\r\nC\r\nC     SCAN PVT\r\n      K = 3\r\n  150 L = ANDF(PVT(K+2),NOSGN)\r\n      L = ITYPE(L)\r\n      IF (DMAP(DMPPNT).EQ.PVT(K) .AND. DMAP(DMPPNT+1).EQ.PVT(K+1))\r\n     1    GO TO 160\r\n      K = K + 3 + L\r\n      IF (K-PVT(2)) 150,70,70\r\nC\r\nC     CHECK LENGTH OF PVT VALUE\r\nC\r\n  160 IPVAL = IPVT\r\n      PVT(K+2) = ORF(PVT(K+2),ISGNON)\r\n      IF (ANDF(PVT(K+2),NOSGN) .NE. ITMP(3)) GO TO 490\r\nC\r\nC     TRANSFER VALUE TO ITMP\r\nC\r\n      DO 170 M = 1,L\r\n      J = K + M + 2\r\n  170 ITMP(M+3) = PVT(J)\r\n      GO TO 70\r\nC\r\nC     DMAP ENTRY IS = OPERATOR\r\nC\r\n  180 IF (IPRVOP .NE. NAME) GO TO 470\r\n      IPRVOP = IEQUL\r\n      GO TO 70\r\nC\r\nC     BCD PARAMETER VALUE FOUND\r\nC\r\n  190 IF (ITMP(3) .NE. 3) GO TO 500\r\n      LENGTH = 2\r\n      DMPPNT = DMPPNT - 1\r\n      DMAP(DMPPNT) = ITMP(3)\r\n      GO TO 220\r\nC\r\nC     DMAP ENTRY IS BINARY VALUE\r\nC\r\n  200 IF (IPRVOP .EQ. ISLSH) GO TO 220\r\n  210 IF (IPRVOP .NE. IEQUL) GO TO 470\r\n  220 IPRVOP = IVAL\r\n      IF (IPVAL .EQ. IPVT) GO TO 70\r\nC\r\nC     DMAP VALUE IS HIGHEST PRIORITY\r\nC\r\n      IPVAL = IDMAP\r\n      IF (ANDF(DMAP(DMPPNT),NOSGN) .NE. ITMP(3)) GO TO 500\r\nC\r\nC TRANSFER DMAP VALUE TO ITMP\r\nC\r\n      DO 270 M = 1,LENGTH\r\n      J = DMPPNT + M\r\n  270 ITMP(M+3) = DMAP(J)\r\n      GO TO 70\r\nC\r\nC     DMAP ENTRY IS / OPERATOR\r\nC\r\n  280 IF (IPRVOP .EQ. IEQUL) GO TO 470\r\n      IPRVOP = ISLSH\r\n      GO TO 300\r\nC\r\nC     END OF DMAP INSTRUCTION\r\nC\r\n  290 IF (IPRVOP .EQ. IEQUL) GO TO 470\r\nC\r\nC     PARAMETER SCANNED,CHECK CORRECTNESS OF NAME AND VALUE AND\r\nC     PROCESS ITMP ACCORDING TO NVSTBL\r\nC\r\n  300 IF (I.LT.4 .AND. ITMP(1).EQ.0) GO TO 510\r\n      K = NVSTBL(I,IPVAL)\r\nC\r\n      GO TO (310,520,530,390), K\r\nC\r\nC     VARIABLE PARAMETER,VALUE TO VPS,POINTER TO OSCAR\r\nC\r\n  310 K = 3\r\n  320 IF (ITMP(1).EQ.VPS(K) .AND. ITMP(2).EQ.VPS(K+1)) GO TO 330\r\n      K = K + AND(VPS(K+2),MASKHI) + 3\r\n      IF (K-VPS(2)) 320,350,350\r\nC\r\nC     PARAMETER IS ALREADY IN VPS - MAKE SURE TYPES AGREE.\r\nC\r\n  330 L = ANDF(RSHIFT(VPS(K+2),16),15)\r\n      IF (L .EQ. 0) GO TO 335\r\n      IF (L .NE. ANDF(ITMP(3),15)) GO TO 555\r\nC\r\nC     CHECK VALUE MODIFIED FLAG\r\nC\r\n  335 IF (ANDF(MODFLG,VPS(K+2)) .EQ. 0) GO TO 340\r\nC\r\nC     VALUE HAS BEEN MODIFIED FOR RESTART - DO NOT CHANGE.\r\nC\r\n      GO TO 380\r\nC\r\nC     CHECK IF PREVIOUSLY DEFINED\r\nC\r\n  340 IF (VPS(K+2) .LT. 0) GO TO 540\r\n      GO TO 360\r\nC\r\nC     NAME NOT IN VPS,MAKE NEW ENTRY\r\nC\r\n  350 K = VPS(2) + 1\r\n      VPS(2) = K + 2 + MPLLN\r\n      IF (VPS(2)-VPS(1)) 360,360,560\r\nC\r\nC     ITMP NAME,LENGTH,FLAG,VALUE TO VPS\r\nC\r\n  360 L = MPLLN + 3\r\n      DO 370 M = 1,L\r\n      J = K + M - 1\r\n  370 VPS(J  ) = ITMP(M)\r\n      VPS(K+2) = OR(MPLLN,LSHIFT(ITMP(3),16))\r\n      IF (IPVAL .EQ. IDMAP) VPS(K+2) = OR(VPS(K+2),ISGNON)\r\nC\r\nC     LOCATION OF VALUE IN VPS TO OSCAR\r\nC\r\n  380 OSCAR(IOSPNT) = K + 3\r\n      IF (ISAVE .NE. 1) GO TO 385\r\n      NWORDS = NWORDS + 1\r\n      SAVNAM(NWORDS) = K+3\r\n  385 CONTINUE\r\n      OSCAR(IOSPNT) = OR(OSCAR(IOSPNT),ISGNON)\r\n      IOSPNT = IOSPNT + 1\r\n      GO TO 10\r\nC\r\nC     CONSTANT PARAMETER,VALUE TO OSCAR\r\nC\r\n  390 OSCAR(IOSPNT) = MPLLN\r\n      DO 400 M = 1,MPLLN\r\n      J = IOSPNT + M\r\n  400 OSCAR(J) = ITMP(M+3)\r\n      IOSPNT = IOSPNT + MPLLN + 1\r\n      GO TO 10\r\nC\r\nC     PROCESS ANY INTEGER, REAL, OR COMPLEX CONSTANTS\r\nC\r\n  601 I = 2\r\n      J = 2\r\n      NEWTYP = 1\r\n      OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1\r\n      GO TO 75\r\nC\r\nC     PROCESS POSSIBLE DELIMITERS - SLASH AND ASTERISK\r\nC\r\n  600 IF (DMAP(DMPPNT+1) .NE. IASTK) GO TO 610\r\n      CALL XSCNDM\r\n      GO TO (470,605,470,410,570), IRTURN\r\n  605 I = 2\r\n      J = 2\r\n      NEWTYP = 1\r\n      OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1\r\n      GO TO 75\r\nC\r\nC     PROCESS MPL DEFAULTS IF // IS ENCOUNTERED\r\nC\r\n  610 IF (DMAP(DMPPNT+1) .NE. ISLSH) GO TO 470\r\n      I = 2\r\n      J = 2\r\n      NEWTYP = 1\r\n      OSCAR(NOSPNT) = OSCAR(NOSPNT) + 1\r\n      GO TO 75\r\nC\r\nC     USE DEFAULT MPL VALUE FOR PARAMETER\r\nC\r\n  620 IF (IPVAL .EQ. NONE) GO TO 470\r\n      OSCAR(IOSPNT) = MPLLN\r\n      DO 625 M = 1,MPLLN\r\n      J = IOSPNT + M\r\n  625 OSCAR(J) = ITMP(M+3)\r\n      IOSPNT = IOSPNT + MPLLN + 1\r\n      GO TO 10\r\nC\r\nC     PROCESS V,N,NAME PARAMETER TYPES AS /NAME/\r\nC\r\n  602 I = 1\r\n      J = 2\r\n      NEWTYP = 1\r\n      GO TO 75\r\nC\r\nC     ALL PARAMETERS ON DMAP CARD PROCESSED,PROCESS ANY REMAINING ON\r\nC     MPL\r\nC\r\n  410 IF (MPLPNT .GE. MPLBOT) GO TO 450\r\n      ENDCRD = 1\r\n      LENGTH = IABS(MPL(MPLPNT))\r\n      LENGTH = ITYPE(LENGTH)\r\n      OSCAR(NOSPNT) = 1 + OSCAR(NOSPNT)\r\n      IF (MPL(MPLPNT)) 530,480,420\r\n  420 OSCAR(IOSPNT) = LENGTH\r\n      DO 430 M = 1,LENGTH\r\n      J = IOSPNT + M\r\n      MPLPNT = MPLPNT + 1\r\n  430 OSCAR(J) = MPL(MPLPNT)\r\n  440 MPLPNT = MPLPNT + 1\r\n      IOSPNT = IOSPNT + LENGTH + 1\r\n      GO TO 410\r\nC\r\nC     RETURN TO XOSGEN\r\nC\r\n  450 OSCAR(OSPNT) = IOSPNT - OSPNT\r\n      IRTURN = 1\r\n  460 RETURN\r\nC\r\nC     ERROR MESSAGES -\r\nC\r\nC     DMAP CARD FORMAT ERROR\r\nC\r\n  470 CALL XGPIDG (3,OSPNT,OSCAR(NOSPNT),0)\r\n      GO TO 450\r\nC\r\nC     MPL PARAMETER ERROR\r\nC\r\n  480 CALL XGPIDG (4,OSPNT,OSCAR(NOSPNT),0)\r\n      GO TO 450\r\nC\r\nC     PARA CARD ERROR\r\nC\r\n  490 CALL XGPIDG (5,0,ITMP(1),ITMP(2))\r\n      GO TO 70\r\nC\r\nC     ILLEGAL DMAP PARAMETER VALUE\r\nC\r\n  500 CALL XGPIDG (6,OSPNT,OSCAR(NOSPNT),0)\r\n      GO TO 70\r\nC\r\nC     DMAP PARAMETER NAME MISSING\r\nC\r\n  510 CALL XGPIDG (7,OSPNT,OSCAR(NOSPNT),0)\r\n      GO TO 390\r\nC\r\nC     ILLEGAL PARA CARD\r\nC\r\n  520 CALL XGPIDG (8,0,ITMP(1),ITMP(2))\r\n      IF (I-2) 310,310,390\r\nC\r\nC     CONSTANT PARAMETER NOT DEFINED\r\nC\r\n  530 CALL XGPIDG (9,OSPNT,OSCAR(NOSPNT),0)\r\n      IF (ENDCRD .EQ. 1) GO TO 440\r\n      GO TO 390\r\nC\r\nC     WARNING - PARAMETER ALREADY HAD VALUE ASSIGNED PREVIOUSLY\r\nC\r\n  540 IF (IPVAL .NE. IDMAP) GO TO 550\r\n      CALL XGPIDG (-42,OSPNT,ITMP(1),ITMP(2))\r\n  550 IF (AND(RSHIFT(VPS(K+2),16),15) .EQ. AND(ITMP(3),15)) GO TO 380\r\nC\r\nC     INCONSISTENT LENGTH USED FOR VARIABLE PARAMETER.\r\nC\r\n  555 CALL XGPIDG (15,OSPNT,ITMP(1),ITMP(2))\r\n      GO TO 380\r\nC\r\nC     VPS TABLE OVERFLOW\r\nC\r\n  560 CALL XGPIDG (14,NVPS,NBLANK,DMPCNT)\r\n  570 NOGO   = 2\r\n      IRTURN = 2\r\n      GO TO 460\r\nC\r\nC     TOO MANY PARAMETERS IN DMAP PARAMETER LIST.\r\nC\r\n  580 CALL XGPIDG (18,OSPNT,0,0)\r\n      GO TO 450\r\n      END\r\n"
  },
  {
    "path": "mis/xpolck.f",
    "content": "      SUBROUTINE XPOLCK (DBN1,DBN2,FN,L)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT   ,  ANDF    ,   ORF\r\n      DIMENSION       NPOLCK(2),  DDBN( 1),   DFNU( 1),  FCUM( 1),\r\n     1                FCUS(  1),  FDBN( 1),   FEQU( 1),  FILE( 1),\r\n     2                FKND(  1),  FMAT( 1),   FNTU( 1),  FPUN( 1),\r\n     3                FON (  1),  FORD( 1),   MINP( 1),  MLSN( 1),\r\n     4                MOUT(  1),  MSCR( 1),   SAL ( 1),  SDBN( 1),\r\n     5                SNTU(  1),  SORD(  1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\n      COMMON /XFIAT / FIAT(7)\r\n      COMMON /XFIST / FIST\r\n      COMMON /XDPL  / DPD(6)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5)\r\n      EQUIVALENCE    (KSYSTM(2),OUTTAP  )\r\n      EQUIVALENCE               (DPD  (1),DNAF    ),(DPD  (2),DMXLG   ),\r\n     1      (DPD  (3),DCULG   ),(DPD  (4),DDBN (1)),(DPD  (6),DFNU (1)),\r\n     2      (FIAT (1),FUNLG   ),(FIAT (2),FMXLG   ),(FIAT (3),FCULG   ),\r\n     3      (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)),\r\n     4      (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD   (1),MLGN    ),\r\n     5      (MD   (2),MLSN (1)),(MD   (3),MINP (1)),(MD   (4),MOUT (1)),\r\n     6      (MD   (5),MSCR (1)),(SOS  (1),SLGN    ),(SOS  (2),SDBN (1)),\r\n     7      (SOS  (4),SAL  (1)),(SOS  (4),SNTU (1)),(SOS  (4),SORD (1)),\r\n     8      (XF1AT(1),FNTU (1)),(XF1AT(1),FON  (1)),(XF1AT(2),FPUN (1)),\r\n     9      (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1))\r\n      EQUIVALENCE               (COMM (1),ALMSK   ),(COMM (2),APNDMK  ),\r\n     1      (COMM (3),CURSNO  ),(COMM (4),ENTN1   ),(COMM (5),ENTN2   ),\r\n     2      (COMM (6),ENTN3   ),(COMM (7),ENTN4   ),(COMM (8),FLAG    ),\r\n     3      (COMM (9),FNX     ),(COMM(10),LMSK    ),(COMM(11),LXMSK   ),\r\n     4      (COMM(12),MACSFT  ),(COMM(13),RMSK    ),(COMM(14),RXMSK   ),\r\n     5      (COMM(15),S       ),(COMM(16),SCORNT  ),(COMM(17),TAPMSK  ),\r\n     6      (COMM(18),THCRMK  ),(COMM(19),ZAP     )\r\n      DATA   POOL    /4HPOOL       /\r\n      DATA   NPOLCK  /4HXPOL,4HCK  /\r\nC\r\nC\r\nC     XPOLCK CHECKS THE DATA POOL DICT FOR A DATA BLOCK NAME\r\nC\r\n      LMT1 = DCULG*ENTN4\r\n      DO 1 I = 1,LMT1,ENTN4\r\n      IF (DBN1.NE.DDBN(I) .OR. DBN2.NE.DDBN(I+1)) GO TO 1\r\n      FN = ANDF(RMSK,DFNU(I))\r\n      L  = I\r\n      RETURN\r\nC\r\n    1 CONTINUE\r\n      FN = 0\r\n      RETURN\r\nC\r\nC\r\n      ENTRY XFILPS (NEW)\r\nC     ==================\r\nC\r\nC     XFILPS POSITIONS THE POOL TAPE FORWARD OR BACKWARD\r\nC\r\nC     NEW IS DESIRED POSITION\r\nC     FNX IS CURRENT POSITION\r\nC\r\n      FDIF = NEW - FNX\r\n      IF (FDIF) 10,30,20\r\n   10 FDIF = FDIF - 1\r\n   20 CALL SKPFIL (POOL,FDIF)\r\n      IF (FDIF.LT.0 .AND. NEW.NE.1) CALL SKPFIL (POOL,+1)\r\n   30 RETURN\r\nC\r\nC\r\n      ENTRY XPLEQK (NX,NY)\r\nC     ====================\r\nC\r\nC     XPLEQK MOVES SECONDARY EQUIVALENCED DATA BLOCK NAMES FROM THE\r\nC     POOL DICT. TO FIAT.   NTU-LTU DATA ARE ALSO STORED IN FIAT FOR THE\r\nC     EQUIV. D.B.   NTU-LTU DATA IS EXTRACTED FROM SOS IF FOUND, IF NOT,\r\nC     IT IS COPIED FROM THE CALLING PRIMARY D.B.\r\nC\r\nC     NX IS THE POOL DICT. INDEX\r\nC     NY IS THE FIAT INDEX FOR PRIMARY D.B.\r\nC\r\n      FEQU(NY) = ORF(S,FEQU(NY))\r\n      KFIL = ANDF(RMSK,DFNU(NX))\r\n      LMT1 = DCULG*ENTN4\r\n      LMT2 = SLGN *ENTN2\r\n      LMT3 = FCULG*ENTN1\r\n      NFCULG = LMT3 + 1\r\nC\r\nC     SEARCH FOR EQUIV FILES IN DICT\r\nC\r\n      DO 150 I = 1,LMT1,ENTN4\r\n      IF (DDBN(I).EQ.0 .AND. DDBN(I+1).EQ.0) GO TO 150\r\n      IF (KFIL .NE. ANDF(RMSK,DFNU(I))) GO TO 150\r\n      IF (I .EQ. NX) GO TO 150\r\nC\r\nC     SEE IF NAME IS IN FIAT\r\nC\r\n      DO 100 J = 1,LMT3,ENTN1\r\n      IF (DDBN(I).EQ.FDBN(J) .AND. DDBN(I+1).EQ.FDBN(J+1)) GO TO 115\r\n  100 CONTINUE\r\n      FDBN(NFCULG  ) = DDBN(I  )\r\n      FDBN(NFCULG+1) = DDBN(I+1)\r\n      FILE(NFCULG) = FILE(NY)\r\n      FNTU(NFCULG) = FNTU(NY)\r\n      FORD(NFCULG) = ORF(LSHIFT(1000,16),ANDF(RMSK,FILE(NFCULG)))\r\n      FEQU(NFCULG) = ORF(S,FEQU(NFCULG))\r\n      DO 110 J = 1,LMT2,ENTN2\r\n      IF (DDBN(I).EQ.SDBN(J) .AND. DDBN(I+1).EQ.SDBN(J+1)) GO TO 120\r\n  110 CONTINUE\r\n      GO TO 140\r\nC\r\nC     FILE ALREADY ALLOCATED  BE SURE EQUIVED\r\nC\r\n  115 FILE(J) = ORF(ANDF(RMSK,FILE(NY)),ANDF(LMSK,FILE(J)))\r\n      FEQU(J) = ORF(S,FEQU(J))\r\n      GO TO 150\r\n  120 FORD(NFCULG) = ORF(ANDF(LMSK,SORD(J)),ANDF(RMSK,FILE(NFCULG)))\r\n      FEQU(NFCULG) = ORF(S,FEQU(NFCULG))\r\n      FNTU(NFCULG) = SNTU(J)\r\n  140 NFCULG = NFCULG+ ENTN1\r\n      FCULG  = FCULG + 1\r\nC\r\nC     FLAG INDICATES D.B. S HAVE BEEN ADDED TO FIAT\r\nC\r\n      FLAG = -1\r\n      IF (FCULG .GT. FMXLG) GO TO 900\r\n  150 CONTINUE\r\n      RETURN\r\nC\r\n  900 WRITE  (OUTTAP,901) SFM\r\n  901 FORMAT (A25,' 1051, FIAT OVERFLOW')\r\n      CALL MESAGE (-37,0,NPOLCK)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xpunp.f",
    "content": "      SUBROUTINE XPUNP\r\nC\r\nC     THIS SUBROUTINE POOLS AND UNPOOLS FILES AS PRESCRIBED BY XFIAT\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT    ,ANDF    ,ORF\r\n      DIMENSION       HEADER( 8),HEAD( 2),NPUNP( 2),BLOCK(1000),\r\n     1                DDBN  ( 1),DFNU( 1),FCUM ( 1),FCUS (   1),\r\n     2                FDBN  ( 1),FEQU( 1),FILE ( 1),FKND (   1),\r\n     3                FMAT  ( 1),FNTU( 1),FPUN ( 1),FON  (   1),\r\n     4                FORD  ( 1),MINP( 1),MLSN ( 1),MOUT (   1),\r\n     5                MSCR  ( 1),SAL ( 1),SDBN ( 1),SNTU (   1),\r\n     6                SORD  ( 1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /XFIAT / FIAT(7)\r\n      COMMON /XPFIST/ PFIST\r\n      COMMON /XFIST / FIST(2)\r\n      COMMON /XDPL  / DPD(6)\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP\r\n      COMMON /ZZZZZZ/ BUF1(1)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5)\r\n      EQUIVALENCE               (DPD  (1),DNAF    ),(DPD  (2),DMXLG   ),\r\n     1      (DPD  (3),DCULG   ),(DPD  (4),DDBN (1)),(DPD  (6),DFNU (1)),\r\n     2      (FIAT (1),FUNLG   ),(FIAT (2),FMXLG   ),(FIAT (3),FCULG   ),\r\n     3      (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)),\r\n     4      (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD   (1),MLGN    ),\r\n     5      (MD   (2),MLSN (1)),(MD   (3),MINP (1)),(MD   (4),MOUT (1)),\r\n     6      (MD   (5),MSCR (1)),(SOS  (1),SLGN    ),(SOS  (2),SDBN (1)),\r\n     7      (SOS  (4),SAL  (1)),(SOS  (4),SNTU (1)),(SOS  (4),SORD (1)),\r\n     8      (XF1AT(1),FNTU (1)),(XF1AT(1),FON  (1)),(XF1AT(2),FPUN (1)),\r\n     9      (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1))\r\n      EQUIVALENCE               (COMM (1),ALMSK   ),(COMM (2),APNDMK  ),\r\n     1      (COMM (3),CURSNO  ),(COMM (4),ENTN1   ),(COMM (5),ENTN2   ),\r\n     2      (COMM (6),ENTN3   ),(COMM (7),ENTN4   ),(COMM (8),FLAG    ),\r\n     3      (COMM (9),FNX     ),(COMM(10),LMSK    ),(COMM(11),LXMSK   ),\r\n     4      (COMM(12),MACSFT  ),(COMM(13),RMSK    ),(COMM(14),RXMSK   ),\r\n     5      (COMM(15),S       ),(COMM(16),SCORNT  ),(COMM(17),TAPMSK  ),\r\n     6      (COMM(18),THCRMK  ),(COMM(19),ZAP     )\r\n      DATA  N/1000/  ,POOL/4HPOOL/  ,ENTN5/2/,  NPUNP/4HXPUN,4HP   /\r\nC\r\nC     ENTRY SIZE NUMBERS,  1=FIAT, 4=DPD\r\nC\r\n      ISW1 = 0\r\n      ISW2 = 0\r\n      ENTN1X  = ENTN1- 1\r\n      FIST(2) = 1 + PFIST\r\nC\r\nC     COMPUTE INDEX FOR DUMMY ENTRY IN FIST\r\nC\r\n      FSTIDX = FIST(2)*2 + 1\r\n      LMT3   = FCULG* ENTN1\r\nC\r\nC     CHECK FOR ANY FILES TO POOL\r\nC\r\n      FIST(FSTIDX) = 101\r\n      DO 360 I = 1,LMT3,ENTN1\r\n      IF (FPUN(I) .GE. 0) GO TO 360\r\n      NN = ANDF(ALMSK,FPUN(I))\r\n      FPUN(I)= 0\r\n      IF (FMAT(I).NE.0 .OR.  FMAT(I+1).NE.0 .OR. FMAT(I+2).NE.0)\r\n     1    GO TO 105\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(I+5).NE.0 .OR. FMAT(I+6).NE.0 .OR.\r\n     1    FMAT(I+7).NE.0)) GO TO 105\r\n      NN = 1\r\n      GO TO 268\r\n  105 CALL XPOLCK (FDBN(I),FDBN(I+1),FN,NX)\r\n      IF (FN .EQ. 0) GO TO 110\r\n      J = NX\r\n      GO TO 268\r\n  110 IF (ISW1 .NE. 0) GO TO 220\r\n      ISW1 = 1\r\n      CALL OPEN (*900,POOL,BUF1,2)\r\n      CALL XFILPS (DNAF)\r\n      CALL CLOSE (POOL,2)\r\n      CALL OPEN (*900,POOL,BUF1,3)\r\n      FNX = DNAF\r\n  220 FIST(FSTIDX+1) = I + ENTN5\r\n      CALL OPEN (*900,101,BUF1(IBUFSZ+1),0)\r\n      NCNT = 0\r\nC\r\nC     WRITE SPECIAL FILE HEADER RECORD -- XPOOL DICT NAME    ( 2 WORDS )\r\nC                                       + DATA BLOCK TRAILER ( 3 WORDS\r\nC                                                         OR   6 WORDS )\r\nC\r\n      CALL WRITE (POOL,FDBN(I),2,0)\r\n      IF (ENTN1 .EQ. 11) GO TO 230\r\n      CALL WRITE (POOL,FMAT(I),3,1)\r\n      GO TO 240\r\n  230 CALL WRITE (POOL,FMAT(I  ),3,0)\r\n      CALL WRITE (POOL,FMAT(I+5),3,1)\r\nC\r\nC     READ AND WRITE 1ST 2 WORDS OF DATA BLOCK HEADER.\r\nC     THEN CALL CPYFIL TO COPY REMAINDER OF FILE.\r\nC\r\n  240 CALL READ (*910,*920,101,HEAD,2,0,FLAG)\r\n      CALL WRITE (POOL,HEAD,2,0)\r\n      CALL CPYFIL (101,POOL,BLOCK,N,FLAG)\r\n      NCNT = ANDF(LXMSK,LSHIFT(FLAG/1000+1,16))\r\n      CALL EOF (POOL)\r\n      CALL CLOSE (101,1)\r\nC\r\nC     ADD FILE NAME OF FILE JUST POOLED TO DPD\r\nC\r\n      J = DCULG* ENTN4+ 1\r\n      DCULG = DCULG+ 1\r\n      IF (DCULG .GT. DMXLG) GO TO 700\r\n      DFNU(J  ) = ORF(DNAF,NCNT)\r\n      DDBN(J  ) = FDBN(I  )\r\n      DDBN(J+1) = FDBN(I+1)\r\n      CALL SSWTCH (3,L)\r\n      IF (L .NE. 1)  GO TO 267\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,266) DDBN(J),DDBN(J+1),HEAD(1),HEAD(2)\r\n  266 FORMAT (16H0POOL FILE NAME , 2A4, 17H DATA BLOCK NAME ,2A4)\r\n  267 DNAF = DNAF + 1\r\n      FNX  = FNX  + 1\r\n  268 HOLD = ANDF(RXMSK,FILE(I))\r\n      LMT4 = I + ENTN1X\r\n      DO 269 KK = I,LMT4\r\n  269 FILE(KK) = 0\r\n      FILE(I)  = HOLD\r\n      FDBN(I)  = ALMSK\r\nC\r\nC     CHECK FOR EQUIV FILES\r\nC\r\n      IF (NN .EQ. 1) GO TO 360\r\nC\r\nC     THERE ARE EQUIV FILES\r\nC\r\n      DFNU(J) = ORF(S,DFNU(J))\r\n      DFNUSV  = DFNU(J)\r\n      DO 280 K = 1,LMT3,ENTN1\r\n      IF (FEQU(K).GE.0 .OR. I.EQ.K) GO TO 280\r\n      IF (ANDF(RMSK,FILE(I)) .NE. ANDF(RMSK,FILE(K))) GO TO 280\r\nC\r\nC     THIS IS AN EQUIV FILE\r\nC\r\n      CALL XPOLCK (FDBN(K),FDBN(K+1),FN,NX)\r\n      IF (FN .EQ. 0) GO TO 272\r\n      IF (DFNU(NX) .EQ. DFNUSV) GO TO 277\r\n      DDBN(NX  ) = 0\r\n      DDBN(NX+1) = 0\r\n  272 J = J + ENTN4\r\n      DCULG = DCULG + 1\r\n      IF (DCULG .GT. DMXLG) GO TO 700\r\n      DFNU(J  ) = DFNUSV\r\n      DDBN(J  ) = FDBN(K)\r\n      DDBN(J+1) = FDBN(K+1)\r\n      LMT4= K+ ENTN1X\r\n      DO 275 KK = K,LMT4\r\n  275 FILE(KK) =  0\r\n  277 NN = NN - 1\r\n      IF (NN .EQ. 1) GO TO 360\r\n  280 CONTINUE\r\n      GO TO 930\r\n  360 CONTINUE\r\n      IF (ISW1 .EQ. 0) GO TO 400\r\n      CALL CLOSE (POOL,1)\r\n      FNX = 1\r\nC\r\nC     CHECK FOR ANY FILES TO UNPOOL\r\nC\r\n  400 FIST(FSTIDX) = 201\r\n  405 FN = DNAF\r\n      DO 420 I = 1,LMT3,ENTN1\r\n      IF (FPUN(I).LE. 0 .OR. FPUN(I).GE.FN) GO TO 420\r\n      FN = FPUN(I)\r\n      II = I\r\n  420 CONTINUE\r\n      IF (FN .EQ. DNAF) GO TO 570\r\n      FPUN(II) = 0\r\n      IF (ISW2 .NE. 0) GO TO 470\r\n      ISW2 = 1\r\n      CALL OPEN (*900,POOL,BUF1,0)\r\n      FNX = 1\r\n  470 CALL XFILPS (FN)\r\n      FNX= FN\r\n      FIST(FSTIDX+1) = II + ENTN5\r\n      CALL OPEN (*900,201,BUF1(IBUFSZ+1),1)\r\nC\r\nC     READ SPECIAL FILE HEADER RECORD AND, IF DIAG 3 IS ON, PRINT MSG\r\nC\r\n      CALL READ (*910,*920,POOL,HEADER,ENTN1-3,1,FLAG)\r\n      CALL SSWTCH (3,L)\r\n      IF (L .NE. 1) GO TO 500\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,501) FDBN(II),FDBN(II+1),HEADER(1),HEADER(2)\r\n  501 FORMAT (17H0XUNPL-DICT NAME ,2A4, 16H POOL FILE NAME , 2A4 )\r\nC\r\nC     COPY FILE USING CPYFIL\r\nC\r\n  500 CALL CPYFIL (POOL,201,BLOCK,N,FLAG)\r\n      CALL CLOSE (201,1)\r\n      FNX = FNX + 1\r\n      FMAT(II  ) = HEADER(3)\r\n      FMAT(II+1) = HEADER(4)\r\n      FMAT(II+2) = HEADER(5)\r\n      IF (ENTN1 .NE. 11) GO TO 510\r\n      FMAT(II+5) = HEADER(6)\r\n      FMAT(II+6) = HEADER(7)\r\n      FMAT(II+7) = HEADER(8)\r\nC\r\nC     IS FILE EQUIVALENCED\r\nC\r\n  510 IF (FEQU(II) .GE. 0) GO TO 405\r\nC\r\nC     YES, COPY SAME TRAILER INTO ALL EQUIV FILES\r\nC\r\n      HOLD = ANDF(RMSK,FILE(II))\r\n      DO 560 J = 1,LMT3,ENTN1\r\n      IF (FEQU(J).GE.0 .OR. II.EQ.J) GO TO 560\r\n      IF (HOLD .NE. ANDF(RMSK,FILE(J))) GO TO 560\r\n      FMAT(J  ) = HEADER(3)\r\n      FMAT(J+1) = HEADER(4)\r\n      FMAT(J+2) = HEADER(5)\r\n      IF (ENTN1 .NE.11) GO TO 560\r\n      FMAT(J+5) = HEADER(6)\r\n      FMAT(J+6) = HEADER(7)\r\n      FMAT(J+7) = HEADER(8)\r\n  560 CONTINUE\r\n      GO TO 405\r\n  570 IF (ISW2 .EQ. 0) GO TO 600\r\n      CALL CLOSE (POOL,1)\r\n      FNX = 1\r\n  600 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n  700 WRITE  (OUTTAP,701)\r\n  701 FORMAT (1H0,23X,19H 1031, DPL OVERFLOW)\r\n      GO TO 1000\r\n  900 WRITE  (OUTTAP,901)\r\n  901 FORMAT (1H0,23X,62H 1032, POOL OR FILE BEING POOLED/UN-POOLED COUL\r\n     1D NOT BE OPENED)\r\n      GO TO 1000\r\n  910 WRITE  (OUTTAP,911)\r\n  911 FORMAT (1H0,23X,39H 1033, ILLEGAL EOF ON FILE BEING POOLED)\r\n      GO TO 1000\r\n  920 WRITE  (OUTTAP,921)\r\n  921 FORMAT (1H0,23X,39H 1034, ILLEGAL EOR ON FILE BEING POOLED)\r\n      GO TO 1000\r\n  930 WRITE  (OUTTAP,931)\r\n  931 FORMAT (1H0,23X,33H 1035, EQUIV INDICATED,NONE FOUND)\r\n 1000 CALL PAGE2 (-4)\r\n      WRITE  (OUTTAP,1001) SFM\r\n 1001 FORMAT (A25,1H.)\r\n      CALL MESAGE (-37,0,NPUNP)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xpurge.f",
    "content": "      SUBROUTINE XPURGE\r\nC\r\nC     THIS SUBROUTINE PURGES AND EQUATES FILES WITHIN FIAT AND DPD\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT    ,ANDF    ,ORF\r\n      DIMENSION       PURGE1( 2),DDBN( 1),DFNU( 1),FCUM( 1),FCUS( 1),\r\n     1                FDBN  ( 1),FEQU( 1),FILE( 1),FKND( 1),FMAT( 1),\r\n     2                FNTU  ( 1),FPUN( 1),FON ( 1),FORD( 1),MINP( 1),\r\n     3                MLSN  ( 1),MOUT( 1),MSCR( 1),SAL ( 1),SDBN( 1),\r\n     4                SNTU  ( 1),SORD( 1)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(21),ICFIAT,DUMM(14),NBPC,NBPW,\r\n     1                NCPW\r\n      COMMON /OSCENT/ X(1)\r\n      COMMON /XFIAT / FIAT(7)\r\n      COMMON /XFIST / FIST\r\n      COMMON /XDPL  / DPD(6)\r\n      COMMON /XVPS  / VPS(1)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5)\r\n      COMMON /IPURGE/ J,K,NSAV,PRISAV,HOLD\r\n      EQUIVALENCE              (DPD  (1),DNAF    ),(DPD  (2),DMXLG   ),\r\n     1     (DPD  (3),DCULG   ),(DPD  (4),DDBN (1)),(DPD  (6),DFNU (1)),\r\n     2     (FIAT (1),FUNLG   ),(FIAT (2),FMXLG   ),(FIAT (3),FCULG   ),\r\n     3     (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)),\r\n     4     (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD   (1),MLGN    ),\r\n     5     (MD   (2),MLSN (1)),(MD   (3),MINP (1)),(MD   (4),MOUT (1)),\r\n     6     (MD   (5),MSCR (1)),(SOS  (1),SLGN    ),(SOS  (2),SDBN (1)),\r\n     7     (SOS  (4),SAL  (1)),(SOS  (4),SNTU (1)),(SOS  (4),SORD (1)),\r\n     8     (XF1AT(1),FNTU (1)),(XF1AT(1),FON  (1)),(XF1AT(2),FPUN (1)),\r\n     9     (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1))\r\n      EQUIVALENCE              (COMM (1),ALMSK   ),(COMM (2),APNDMK  ),\r\n     1     (COMM (3),CURSNO  ),(COMM (4),ENTN1   ),(COMM (5),ENTN2   ),\r\n     2     (COMM (6),ENTN3   ),(COMM (7),ENTN4   ),(COMM (8),FLAG    ),\r\n     3     (COMM (9),FNX     ),(COMM(10),LMSK    ),(COMM(11),LXMSK   ),\r\n     4     (COMM(12),MACSFT  ),(COMM(13),RMSK    ),(COMM(14),RXMSK   ),\r\n     5     (COMM(15),S       ),(COMM(16),SCORNT  ),(COMM(17),TAPMSK  ),\r\n     6     (COMM(18),THCRMK  ),(COMM(19),ZAP     )\r\n      DATA  PURGE1  /4HXPUR   ,4HGE     /\r\nC\r\n      CALL XSFADD\r\n      K = -1\r\n      GO TO 10\r\nC\r\nC\r\n      ENTRY XEQUIV\r\nC     ============\r\nC\r\n      CALL XSFADD\r\n      K = +1\r\n      PRISAV= 0\r\n      SECCHN= 0\r\n   10 ENTN1 = ICFIAT\r\n      LMT1  = FUNLG* ENTN1\r\n      LMT2  = LMT1 + 1\r\n      LMT3  = FCULG* ENTN1\r\n      IF (FCULG .GE. FMXLG) GO TO 610\r\n      NFCULG= LMT3 + 1\r\n      INCR  = 1\r\nC\r\nC     S = O 400000000000     Z 80000000\r\nC\r\n   20 S = LSHIFT(1,NBPW-1)\r\nC\r\nC     INITIALIZE FOR FIRST SET OF DATA BLOCKS\r\nC\r\n      NWDS = X(1)\r\n      I = 7\r\n  100 NDBS = X(I)\r\nC\r\nC     FIND POSITION OF VPS POINTER WORD\r\nC\r\n      JPT = I + 2*NDBS + 1\r\n      IF (K .EQ. 1) JPT = JPT + 1\r\n      IVPS  = X(JPT)\r\n      IEXEC = -1\r\n      IF (IVPS .GT. 0) IEXEC = VPS(IVPS)\r\nC\r\nC     TEST CONDITIONAL INDICATOR (NOT HERE, BELOW TO PERMIT UNPURGE-\r\nC     UNEQUIV\r\nC\r\n      GO TO 200\r\nC\r\nC     INCREMENT AND LOOK AT NEXT SET OF DATA BLOCKS\r\nC\r\n  150 I = JPT + 1\r\n      IF (I .LT. NWDS) GO TO 100\r\n      RETURN\r\nC\r\nC     TEST FOR PURGE OR EQUIV\r\nC\r\n  200 J = I + 1\r\n      IF (K .GT. 0) GO TO 400\r\nC\r\nC     PURGE LOGIC FOLLOWS\r\nC\r\n  220 XJ1 = X(J  )\r\n      XJ2 = X(J+1)\r\n      DO 260 N = 1,LMT3,ENTN1\r\n      IF (XJ1.NE.FDBN(N) .OR. XJ2.NE.FDBN(N+1)) GO TO 260\r\n      IF (N  .LE. LMT1) GO TO 240\r\n      IF (IEXEC .GE. 0) GO TO 230\r\n      FILE(N) = ZAP\r\n      GO TO 280\r\nC\r\n  230 IF (ANDF(RMSK,FILE(N)) .NE. ZAP) GO TO 300\r\nC\r\nC     UNPURGE (CLEAR THE ENTRY)\r\nC\r\n      LMT4 = N + ENTN1 - 1\r\n      DO 235 M = N,LMT4\r\n  235 FILE(M) = 0\r\n      GO TO 300\r\n  240 IF (IEXEC .GE. 0) GO TO 300\r\n      HOLD = ANDF(RXMSK,FILE(N))\r\n      LMT4 = N + ENTN1 - 1\r\n      DO 250 M = N,LMT4\r\n  250 FILE(M) = 0\r\n      FILE(N) = HOLD\r\nC\r\n      GO TO 270\r\n  260 CONTINUE\r\n  270 IF (IEXEC .GE. 0) GO TO 300\r\n      FILE(NFCULG  ) = ZAP\r\n      FDBN(NFCULG  ) = XJ1\r\n      FDBN(NFCULG+1) = XJ2\r\n      FCULG = FCULG + INCR\r\n      IF (FCULG .GE. FMXLG) GO TO 620\r\n      NFCULG = NFCULG + ENTN1\r\nC\r\n  280 CALL XPOLCK (XJ1,XJ2,FN,L)\r\n      IF (FN .EQ. 0) GO TO 300\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\nC\r\n  300 J = J + 2\r\n      IF (J-2.EQ.I+1 .AND. K.GT.0) J = J + 1\r\n      IF (J .LT. JPT) GO TO 220\r\n      GO TO 150\r\nC\r\nC     EQUIV LOGIC FOLLOWS\r\nC\r\n  400 XJ1 = X(J  )\r\n      XJ2 = X(J+1)\r\n      DO 450 N = 1,LMT3,ENTN1\r\n      IF (XJ1.NE.FDBN(N) .OR. XJ2.NE.FDBN(N+1)) GO TO 450\r\n      IF (J .NE. I+1) GO TO 420\r\nC\r\nC     PRIMARY\r\nC\r\n      PRISAV = ANDF(RXMSK,FILE(N))\r\n      IF (IEXEC .GE. 0) GO TO 550\r\nC\r\nC     IF PRIMARY FILE IS PURGED OR HAS ZERO TRAILERS, PURGE SECONDARYS\r\nC\r\n      IF (ANDF(RMSK,PRISAV) .EQ. ZAP) GO TO 300\r\n      IF (FMAT(N).NE.0 .OR.  FMAT(N+1).NE.0 .OR. FMAT(N+2).NE.0)\r\n     1    GO TO 405\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(N+5).NE.0 .OR. FMAT(N+6).NE.0 .OR.\r\n     1    FMAT(N+7).NE.0)) GO TO 405\r\n      GO TO 300\r\n  405 FEQU(N) = ORF(S,FEQU(N))\r\n      NSAV = N\r\n      CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV)\r\n      IF (FNSAV .NE. 0) DFNU(LSAV) = ORF(S,DFNU(LSAV))\r\nC\r\nC     IF PRIMARY FILE CONTAINS OTHER UNEQUIV D.B.- CLEAR THEM\r\nC\r\n      DO 415 JX = 1,LMT3,ENTN1\r\n      IF (FEQU(JX).LT.0 .OR. JX.EQ.N) GO TO 415\r\n      IF (PRISAV .NE. ANDF(RXMSK,FILE(JX))) GO TO 415\r\n      LMT4 = JX + ENTN1 - 1\r\n      DO 410 M = JX,LMT4\r\n  410 FILE(M) = 0\r\n      IF (JX .LE. LMT1) FILE(JX) = PRISAV\r\n  415 CONTINUE\r\n      GO TO 550\r\nC\r\nC     SECONDARY\r\nC\r\n  420 IF (IEXEC .GE. 0) GO TO 425\r\n      IF (PRISAV.EQ. 0) GO TO 435\r\n      IF (FILE(N).LT.0 .AND. ANDF(RXMSK,FILE(N)).NE.PRISAV)\r\n     1    SECCHN = ANDF(RMSK,FILE(N))\r\n      IF (N .LE. LMT1) GO TO 430\r\n      FILE(N  ) = ORF(ANDF(LXMSK,FILE(N)),PRISAV)\r\n      FEQU(N  ) = ORF(S,FEQU(N))\r\n      FMAT(N  ) = FMAT(NSAV  )\r\n      FMAT(N+1) = FMAT(NSAV+1)\r\n      FMAT(N+2) = FMAT(NSAV+2)\r\n      IF (ENTN1 .NE. 11) GO TO 480\r\n      FMAT(N+5) = FMAT(NSAV+5)\r\n      FMAT(N+6) = FMAT(NSAV+6)\r\n      FMAT(N+7) = FMAT(NSAV+7)\r\n      GO TO 480\r\n  425 IF (FEQU(N).GE.0 .OR. PRISAV.NE.ANDF(RXMSK,FILE(N))) GO TO 550\r\nC\r\nC     UNEQUIV (CLEAR SEC EQUIV ENTRY)\r\nC\r\n      LMT4 = N + ENTN1 - 1\r\n      DO 427 M = N,LMT4\r\n  427 FILE(M) = 0\r\n      IF (N .LE. LMT1) FILE(N) = PRISAV\r\n      CALL XPOLCK (XJ1,XJ2,FN,L)\r\n      IF (FN .EQ. 0) GO TO 550\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\n      GO TO 550\r\n  430 FILE(NFCULG) = ORF(ANDF(LXMSK,FILE(N)),PRISAV)\r\n  435 HOLD = ANDF(RXMSK,FILE(N))\r\n      LMT4 = N + ENTN1 -1\r\n      DO 440 M = N,LMT4\r\n  440 FILE(M) = 0\r\n      IF (N .LE. LMT1) FILE(N) = HOLD\r\n      IF (PRISAV .EQ. 0) GO TO 480\r\n      GO TO 470\r\nC\r\nC     FILE IS NOT IN FIAT -- CHECK PARM FOR TYPE OF EQUIV\r\nC\r\n  450 CONTINUE\r\n      IF (IEXEC .LT. 0) GO TO 458\r\nC\r\nC     ELIMINATE EQUIV FILES -- CHECK FOR PRIMARY FILE\r\nC\r\n      IF (J .NE. I+1) GO TO 455\r\nC\r\nC     PRIMARY FILE\r\nC\r\n      CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV)\r\nC\r\nC     LEAVE EQUIV FLAG FOR XDPH\r\nC\r\n      GO TO 550\r\nC\r\nC     SECONDARY FILE --  BREAK EQUIV\r\nC\r\n  455 CALL XPOLCK (XJ1,XJ2,SNSAV,SSAV)\r\nC\r\nC     CHECK IF FILE EXISTS AND IS EQUIVED TO PRIMARY FILE\r\nC\r\n      IF (SNSAV.EQ.0 .OR. FNSAV.NE.SNSAV) GO TO 550\r\n      DDBN( SSAV  ) = 0\r\n      DDBN( SSAV+1) = 0\r\n      GO TO 550\r\nC\r\nC     CHECK FOR PRIMARY FILE\r\nC\r\n  458 IF (J .NE. I+1) GO TO 460\r\nC\r\nC     -IF PRIMARY, IT MUST BE ON POOL\r\nC\r\n      CALL XPOLCK (XJ1,XJ2,FNSAV,LSAV)\r\n      IF (FNSAV .EQ. 0) GO TO 300\r\n      DFNU(LSAV) = ORF(S,DFNU(LSAV))\r\n      GO TO 550\r\nC\r\nC     -IF SECONDARY, WAS PRIMARY IN FIAT\r\nC\r\n  460 IF (PRISAV .EQ. 0) GO TO 480\r\nC\r\nC     -PRIMARY WAS IN FIAT, SET UP SECONDARY IN FIAT\r\nC\r\n      FILE(NFCULG  ) = PRISAV\r\n  470 FEQU(NFCULG  ) = ORF(S,FEQU(NFCULG))\r\n      FDBN(NFCULG  ) = XJ1\r\n      FDBN(NFCULG+1) = XJ2\r\n      FMAT(NFCULG  ) = FMAT(NSAV  )\r\n      FMAT(NFCULG+1) = FMAT(NSAV+1)\r\n      FMAT(NFCULG+2) = FMAT(NSAV+2)\r\n      IF (ENTN1 .NE. 11) GO TO 475\r\n      FMAT(NFCULG+5) = FMAT(NSAV+5)\r\n      FMAT(NFCULG+6) = FMAT(NSAV+6)\r\n      FMAT(NFCULG+7) = FMAT(NSAV+7)\r\n  475 FCULG = FCULG + INCR\r\n      IF (FCULG .GE. FMXLG) GO TO 630\r\n      NFCULG = NFCULG + ENTN1\r\nC\r\nC     WAS SECONDARY FILE IN FIAT ALREADY EQUIV TO OTHERS\r\nC\r\n  480 IF (SECCHN .EQ. 0) GO TO 490\r\nC\r\nC     SEC. FILE WAS EQUIV - DRAG ALONG ALL EQUIVS\r\nC\r\n      DO 485 IJ = 1,LMT3,ENTN1\r\n      IF (FILE(IJ) .GE. 0) GO TO 485\r\n      IF (IJ       .EQ. N) GO TO 485\r\n      IF (ANDF(RMSK,FILE(IJ)) .NE. SECCHN) GO TO 485\r\nC\r\nC     CREATE AN ENTRY IN OSCENT TO EXPLICITLY EQUIV THIS DB\r\nC\r\n      M1   = NWDS + 1\r\n      NWDS = NWDS + 6\r\n      X(M1  ) = 2\r\n      X(M1+1) = XJ1\r\n      X(M1+2) = XJ2\r\n      IF (K .NE. 1) GO TO 482\r\n      X(M1+3) = 0\r\n      NWDS = NWDS + 1\r\n      M1   = M1   + 1\r\n  482 CONTINUE\r\n      X(M1+3) = FDBN(IJ  )\r\n      X(M1+4) = FDBN(IJ+1)\r\n      X(M1+5) = IVPS\r\n  485 CONTINUE\r\nC\r\nC     IS SECONDARY FILE ON POOL\r\nC\r\n  490 CALL XPOLCK (XJ1,XJ2,FN,L)\r\n      IF (FN .EQ. 0) GO TO 500\r\nC\r\nC     WAS SEC. FILE ON POOL ALREADY EQUIV TO OTHERS\r\nC\r\n      IF (DFNU(L).GE.0 .OR. FNSAV.EQ.FN) GO TO 495\r\nC\r\nC     SEC. FILE ON POOL WAS EQUIV - DRAG ALONG ALL EQUIVS\r\nC\r\n      LMT4 = DCULG* ENTN4\r\n      M    = LMT4 + 1\r\n      DO 494 IJ = 1,LMT4,ENTN4\r\n      IF (DFNU(IJ).GE.0  .OR. IJ.EQ.L) GO TO 494\r\n      IF (ANDF(RMSK,DFNU(IJ)) .NE. FN) GO TO 494\r\n      IF (FNSAV .EQ. 0) GO TO 491\r\n      DDBN(M  ) = DDBN(IJ  )\r\n      DDBN(M+1) = DDBN(IJ+1)\r\n      DFNU(M  ) = DFNU(LSAV)\r\n      DCULG = DCULG + 1\r\n      IF (DCULG .GT. DMXLG) GO TO 910\r\n      M = M + ENTN4\r\n      GO TO 493\r\nC\r\nC     CREATE AN ENTRY IN OSCENT TO EXPLICITLY EQUIV THIS DB\r\nC\r\n  491 M1   = NWDS + 1\r\n      NWDS = NWDS + 6\r\n      X(M1  ) = 2\r\n      X(M1+1) = XJ1\r\n      X(M1+2) = XJ2\r\n      IF (K .NE. 1) GO TO 492\r\n      X(M1+3) = 0\r\n      NWDS = NWDS + 1\r\n      M1   = M1 + 1\r\n  492 CONTINUE\r\n      X(M1+3) = DDBN(IJ  )\r\n      X(M1+4) = DDBN(IJ+1)\r\n      X(M1+5) = IVPS\r\n  493 DDBN(IJ  ) = 0\r\n      DDBN(IJ+1) = 0\r\n  494 CONTINUE\r\nC\r\nC     IF SECONDARY FILE IS ON POOL AND PRIMARY IS NOT - DELETE SEC REF\r\nC\r\n  495 IF (FNSAV .NE. 0) GO TO 530\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\n      GO TO 550\r\nC\r\nC     IF SECONDARY FILE IS NOT ON POOL AND PRIMARY IS - ADD SEC REF\r\nC\r\n  500 IF (FNSAV .EQ. 0) GO TO 550\r\n  520 M = DCULG*ENTN4 + 1\r\n      DDBN(M  ) = XJ1\r\n      DDBN(M+1) = XJ2\r\n      DFNU(M  ) = DFNU(LSAV)\r\n      DCULG = DCULG + 1\r\n      IF (DCULG .GT. DMXLG) GO TO 910\r\n      GO TO 550\r\nC\r\nC     BOTH PRIMARY AND SECONDARY ON POOL - IF NOT SAME FILE,\r\nC     DELETE OLD SEC REF AND ADD NEW SEC REF\r\nC\r\n  530 IF (FNSAV .EQ. FN) GO TO 550\r\n      DDBN(L  ) = 0\r\n      DDBN(L+1) = 0\r\n      GO TO 520\r\nC\r\n  550 J = J + 2\r\n      IF (J-2 .EQ. I+1) J = J + 1\r\n      SECCHN = 0\r\n      IF (J .LT. JPT) GO TO 400\r\n      PRISAV = 0\r\n      GO TO 150\r\nC\r\nC     POTENTIAL FIAT OVERFLOW- LOOK FOR OTHER SLOTS IN FIAT TAIL\r\nC\r\n  610 ASSIGN 20 TO IBACK\r\n      GO TO 640\r\n  620 ASSIGN 280 TO IBACK\r\n      GO TO 640\r\n  630 ASSIGN 480 TO IBACK\r\n  640 IF (FCULG .GT. FMXLG) GO TO 900\r\n      DO 650 NN = LMT2,LMT3,ENTN1\r\n      IF (FILE(NN).LT.0 .OR. ANDF(ZAP,FILE(NN)).EQ.ZAP) GO TO 650\r\n      IF (FMAT(NN).NE.0 .OR. FMAT(NN+1).NE.0 .OR. FMAT(NN+2).NE.0)\r\n     1    GO TO 650\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(NN+5).NE.0 .OR. FMAT(NN+6).NE.0 .OR.\r\n     1    FMAT(NN+7).NE.0)) GO TO 650\r\n      NFCULG = NN\r\n      INCR   = 0\r\n      GO TO 660\r\n  650 CONTINUE\r\n      NFCULG = NFCULG + ENTN1\r\n      INCR   = 1\r\n  660 GO TO IBACK, (20,280,480)\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n  900 WRITE  (OUTTAP,901) SFM\r\n  901 FORMAT (A25,' 1201, FIAT OVERFLOW.')\r\n      GO TO 1000\r\n  910 WRITE  (OUTTAP,911) SFM\r\n  911 FORMAT (A25,' 1202, DPL OVERFLOW.')\r\n 1000 CALL MESAGE (-37,0,PURGE1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrcard.f",
    "content": "      SUBROUTINE XRCARD (OUT,NFLAG,IN)\r\nC\r\nC     MODIFIED BY G.CHAN/UNISYS FOR EFFICIENCY,        2/1988\r\nC     LAST REVISED, 8/1989, IMPROVED EFFICIENCY BY REDUCING CHARACTER\r\nC     OPERATIONS (VERY IMPORTANT FOR CDC MACHINE)\r\nC\r\nC     REVERT TO NASTRAN ORIGIANL XRCARD ROUTINE (NOW CALLED YRCARD)\r\nC     IF DIAG 42 IS TURNED ON\r\nC     (THIS NEW XRCARD IS SEVERAL TIMES FASTER THAN YRCARD)\r\nC\r\nC\r\n      IMPLICIT INTEGER  (A-Z)\r\n      EXTERNAL        LSHIFT   ,RSHIFT   ,COMPLF\r\n      LOGICAL         ALPHA    ,DELIM    ,EXPONT   ,POWER    ,MINUS   ,\r\n     1                NOGO     ,DEBUG\r\n      INTEGER         IDOUBL(2),TYPE(72) ,NT(15)   ,IN(18)   ,OUT(2)\r\n      INTEGER         PLUS1    ,MINUS1   ,BLANK1   ,DOT1     ,E1      ,\r\n     1                D1       ,NUM1(10) ,CHAR1(72),DOLLR1   ,COMMA1  ,\r\n     2                EQUAL1   ,SLASH1   ,OPARN1   ,CPARN1   ,ASTK1   ,\r\n     3                CHAR1N   ,CHAR1I   ,CHARN2   ,CHARS(23),ZERO1   ,\r\n     4                PRECIS   ,PSIGN\r\n      REAL            FLPT\r\n      DOUBLE PRECISION          DDOUBL\r\n      CHARACTER*1     SAVE1(8) ,KHAR1(72)\r\n      CHARACTER*8     SAVE8    ,BLANK8   ,NUMRIC\r\n      CHARACTER*23    CHAR23   ,UFM\r\n      CHARACTER*72    CHAR72\r\n      COMMON /XMSSG / UFM\r\n      COMMON /LHPWX / LOWPW    ,HIGHPW\r\n      COMMON /SYSTEM/ BUFSZ    ,NOUT     ,NOGO\r\n      EQUIVALENCE     (KHAR1(1),CHAR72), (SAVE8 ,SAVE1( 1)),\r\n     1                (FLPT    ,INTG  ), (DDOUBL,IDOUBL(1)),\r\n     2                (CHARS(1),DOLLR1), (CHARS( 8),CPARN1),\r\n     3                (CHARS(2),PLUS1 ), (CHARS( 9),E1    ),\r\n     4                (CHARS(3),EQUAL1), (CHARS(10),D1    ),\r\n     5                (CHARS(4),MINUS1), (CHARS(11),DOT1  ),\r\n     6                (CHARS(5),COMMA1), (CHARS(12),BLANK1),\r\n     7                (CHARS(6),SLASH1), (CHARS(13),ASTK1 ),\r\n     8                (CHARS(7),OPARN1), (CHARS(14),NUM1(1)),\r\n     9                (NUM1(10),ZERO1 )\r\n      DATA    CHAR23/ '$+=-,/()ED. *1234567890'/,   BLANK8/ '       ' /\r\n      DATA    DOLLR1,  BLANK4,  DIAG  ,   DEBUG ,   NUMRIC            /\r\n     1        0,       4H    ,  4HDIAG,  .FALSE.,  'NUMERIC'          /\r\n      DATA    EQUAL4,  SLASH4,  OPARN4,   ASTK4                       /\r\n     1        4H=   ,  4H/   ,  4H(   ,   4H*                         /\r\nC\r\n      IF (DOLLR1 .NE. 0) GO TO 20\r\n      CALL K2B (CHAR23,CHARS,23)\r\n      A77777 = COMPLF(0)\r\n      A67777 = RSHIFT(LSHIFT(A77777,1),1)\r\n      PREV   = BLANK4\r\n      CALL SSWTCH (42,L42)\r\n      IF (DEBUG) WRITE (NOUT,10)\r\n   10 FORMAT (//5X,'INPUT DEBUG IN XRCARD ROUTINE')\r\nC\r\nC         KXX=0\r\nC\r\nC     USE ORIGINAL XRCARD ROUTINE IF DIAG 42 IS TURNED ON\r\nC\r\n   20 IF (PREV .EQ. DIAG) CALL SSWTCH (42,L42)\r\n      IF (L42 .EQ. 0) GO TO 30\r\n      CALL YRCARD (OUT,NFLAG,IN)\r\n      RETURN\r\nC\r\nC     CONVERT 18 BCD WORDS IN 'IN' TO 72 CHARACTER STRING, AND SET TYPE\r\nC\r\n   30 CALL BCDKH7 (IN,CHAR72)\r\n      CALL K2B (CHAR72,CHAR1,72)\r\n      IF (DEBUG) WRITE (NOUT,45) CHAR72\r\n   45 FORMAT (/,' INPUT- ',A72)\r\nC\r\nC\r\n      DO 80 N = 1,72\r\n      CHAR1N = CHAR1(N)\r\n      IF (CHAR1N .EQ. BLANK1 ) GO TO 60\r\n      DO 50 K = 1,10\r\n      IF (CHAR1N .EQ. NUM1(K)) GO TO 70\r\n   50 CONTINUE\r\n      TYPE(N) =-1\r\n      GO TO 80\r\n   60 TYPE(N) = 0\r\n      GO TO 80\r\n   70 TYPE(N) = 1\r\n   80 CONTINUE\r\n      N = 73\r\n   90 N = N - 1\r\n      IF (TYPE(N) .EQ. 0) GO TO 90\r\n      LAST  = N + 1\r\n      IF (LAST .GT. 72) LAST = 72\r\n      ALPHA = .FALSE.\r\n      DELIM = .TRUE.\r\n      IOUT  = 0\r\n      N     = 0\r\n      ASAVE = 1\r\n      OUT(ASAVE) = 0\r\n      SAVE8 = BLANK8\r\n  100 IF (N .EQ. LAST) GO TO 510\r\n      IF (NFLAG-IOUT .LT. 5) GO TO 660\r\n      MINUS = .FALSE.\r\n      N = N + 1\r\n      CHAR1N = CHAR1(N)\r\n      IF (TYPE(N)) 110,  100,   210\r\nC                  BCD  BLANK NUMERIC\r\nC\r\n  110 IF (CHAR1N.EQ.PLUS1 .OR. CHAR1N.EQ.MINUS1 .OR. CHAR1N.EQ.DOT1)\r\n     1    GO TO 200\r\n      IF (CHAR1N .EQ. DOLLR1) GO TO 180\r\nC\r\nC     GOOD ALPHA FIELD OR DELIMITER\r\nC\r\n      IF (ALPHA) GO TO 120\r\n      IF ((CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.DOLLR1) .AND. (.NOT.DELIM))\r\n     1    GO TO 180\r\n      IF (CHAR1N.EQ.CPARN1 .AND. .NOT.DELIM) GO TO 180\r\n      IOUT  = IOUT + 1\r\n      ASAVE = IOUT\r\n      OUT(ASAVE) = 0\r\n      ALPHA = .TRUE.\r\n  120 IF  (CHAR1N.EQ.OPARN1 .OR. CHAR1N.EQ.SLASH1 .OR. CHAR1N.EQ.EQUAL1\r\n     1.OR. CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.ASTK1  .OR. CHAR1N.EQ.DOLLR1)\r\n     2     GO TO 180\r\n      IF (CHAR1N .EQ. CPARN1) GO TO 180\r\n      ASSIGN 125 TO IRTN\r\n      IMHERE = 125\r\n      GO TO 170\r\n  125 OUT(ASAVE) = OUT(ASAVE) + 1\r\n      IOUT  = IOUT + 2\r\n      DELIM = .FALSE.\r\n      OUT(IOUT-1) = BLANK4\r\n      OUT(IOUT  ) = BLANK4\r\n      ICHAR = 0\r\n      GO TO 150\r\n  130 IF (N .EQ. LAST) GO TO 510\r\n      N = N + 1\r\n      CHAR1N = CHAR1(N)\r\n      IF (TYPE(N)) 140,  160,    150\r\nC                  BCD BLANK NUMERIC\r\nC\r\n  140 IF  (CHAR1N.EQ.OPARN1 .OR. CHAR1N.EQ.SLASH1 .OR. CHAR1N.EQ.EQUAL1\r\n     1.OR. CHAR1N.EQ.COMMA1 .OR. CHAR1N.EQ.ASTK1  .OR. CHAR1N.EQ.DOLLR1)\r\n     2     GO TO 180\r\n      IF (CHAR1N .EQ. CPARN1) GO TO 180\r\nC\r\nC     RECONSTRUCT CHARACTERS INTO SAVE1 SPACE, UP TO 8 CHARACTERS ONLY\r\nC\r\n  150 IF (ICHAR .EQ. 8) GO TO 130\r\n      ICHAR = ICHAR + 1\r\n      SAVE1(ICHAR) = KHAR1(N)\r\n      IMHERE = 150\r\n      IF (DEBUG) WRITE (NOUT,171) SAVE8,IMHERE,ICHAR,IOUT\r\nC\r\nC     GO FOR NEXT CHARACTER\r\nC\r\n      IF (ICHAR .LT. 8) GO TO 130\r\n      ASSIGN 130 TO IRTN\r\n      IMHERE = 155\r\n      GO TO 170\r\nC\r\nC     A BLANK CHARACTER IS ENCOUNTERED WHILE PROCESSING ALPHA STRING\r\nC     IF THIS IS AT THE BEGINNING OF A NEW BCD WORD, GO TO 100\r\nC     IF THIS IS AT THE END OF A BCD WORD, GO TO 170 TO WRAP IT UP\r\nC\r\n  160 IF (ICHAR .EQ. 0) GO TO 100\r\n      ASSIGN 100 TO IRTN\r\n      IMHERE = 160\r\nC\r\nC     MOVE CHARACTER DATA IN SAVE8 TO OUT(IOUT-1) AND OUT(IOUT) IN BCD\r\nC     WORDS\r\nC\r\n  170 IF (SAVE8 .NE. BLANK8) CALL KHRBC2 (SAVE8,OUT(IOUT-1))\r\n      IF (.NOT.DEBUG) GO TO 175\r\n      WRITE (NOUT,171) SAVE8,IMHERE,ICHAR,IOUT\r\n      WRITE (NOUT,172) IOUT,OUT(IOUT-1),OUT(IOUT),DELIM,\r\n     1                 IOUT,OUT(IOUT-1),OUT(IOUT)\r\n  171 FORMAT ('   SAVE8= /',A8,'/   @',I3,',  ICHAR,IOUT=',2I3)\r\n  172 FORMAT ('   IOUT,OUT  =',I4,2H /,2A4,'/  DELIM=',L1,\r\n     1            /14X,    '=',I4,2H /,2I25,'/')\r\n  175 SAVE8 = BLANK8\r\n      GO TO IRTN, (100,125,130,185)\r\nC\r\nC     DELIMITER HIT\r\nC\r\n  180 ASSIGN 185 TO IRTN\r\n      IMHERE = 180\r\n      GO TO 170\r\n  185 IF (.NOT. DELIM) GO TO 190\r\n      IF (IOUT .EQ. 0) IOUT = 1\r\n      IOUT = IOUT + 2\r\n      OUT(ASAVE)  = OUT(ASAVE) + 1\r\n      OUT(IOUT-1) = BLANK4\r\n      OUT(IOUT  ) = BLANK4\r\n  190 IF (CHAR1N .EQ. DOLLR1) GO TO 520\r\n      DELIM = .TRUE.\r\n      IF (CHAR1N .EQ. CPARN1) DELIM = .FALSE.\r\n      IF (CHAR1N .EQ. COMMA1) GO TO 100\r\n      IF (CHAR1N .EQ. CPARN1) GO TO 100\r\nC\r\nC     OUTPUT DELIMITER\r\nC\r\n      IOUT = IOUT + 2\r\n      OUT(ASAVE) = OUT(ASAVE) + 1\r\n      OUT(IOUT) = BLANK4\r\n      IF (CHAR1N .EQ. OPARN1) OUT(IOUT) = OPARN4\r\n      IF (CHAR1N .EQ. SLASH1) OUT(IOUT) = SLASH4\r\n      IF (CHAR1N .EQ. EQUAL1) OUT(IOUT) = EQUAL4\r\n      IF (CHAR1N .EQ.  ASTK1) OUT(IOUT) =  ASTK4\r\n      IF (OUT(IOUT) .EQ. BLANK4) GO TO 590\r\n      OUT(IOUT-1) = A77777\r\n      IF (DEBUG) WRITE (NOUT,195) IOUT,OUT(IOUT),DELIM,CHAR1N\r\n  195 FORMAT (5X,'IOUT,OUT/@195 =',I4,2H ',A4,8H' DELIM=,L1,2H ',A1,\r\n     1        1H')\r\n      SAVE8 = BLANK8\r\n      GO TO 100\r\nC\r\nC     PLUS, MINUS, OR DOT ENCOUNTERED\r\nC\r\n  200 IF (CHAR1N .EQ. MINUS1) MINUS = .TRUE.\r\n      IF (CHAR1N .NE.   DOT1) N = N + 1\r\n      IF (N .GT. LAST) GO TO 530\r\nC\r\nC     NUMERIC\r\nC\r\n  210 ALPHA = .FALSE.\r\n      DELIM = .FALSE.\r\n      IT    = 0\r\n      NT(1) = 0\r\n      DO 260 I = N,LAST\r\n      IF (TYPE(I)) 290,270,220\r\nC\r\nC     INTEGER CHARACTER\r\nC\r\n  220 CHAR1I = CHAR1(I)\r\n      DO 230 K = 1,9\r\n      IF (CHAR1I .EQ. NUM1(K)) GO TO 250\r\n  230 CONTINUE\r\n      K  = 0\r\n  250 IT = IT + 1\r\n      IF (IT .LT. 16) NT(IT) = K\r\n  260 CONTINUE\r\nC\r\nC     FALL HERE IMPLIES WE HAVE A SIMPLE INTEGER\r\nC\r\n  270 NUMBER = 0\r\n      DO 280 I = 1,IT\r\n      IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 550\r\n  280 NUMBER = NUMBER*10  +  NT(I)\r\n      IF (MINUS) NUMBER = - NUMBER\r\n      IOUT = IOUT + 2\r\n      OUT(IOUT-1) =-1\r\n      OUT(IOUT  ) = NUMBER\r\n      IF (.NOT.DEBUG) GO TO 285\r\n      IMHERE = 280\r\n      WRITE (NOUT,171) NUMRIC,IMHERE\r\n      WRITE (NOUT,282) IOUT,OUT(IOUT-1),OUT(IOUT),DELIM\r\n  282 FORMAT (10X,I4,1H),2I8,'    DELIM=',L1)\r\n  285 N = N + IT - 1\r\n      GO TO 100\r\nC\r\nC     FLOATING PT. NUMBER, DELIMITER, OR ERROR IF FALL HERE\r\nC\r\nC     COUNT THE NUMBER OF DIGITS LEFT BEFORE CARD END OR DELIMITER HIT\r\nC\r\n  290 N1 = I\r\n      DO 300 N2 = N1,LAST\r\n      CHARN2 = CHAR1(N2)\r\n      IF (CHARN2.EQ.OPARN1 .OR. CHARN2.EQ.SLASH1 .OR.\r\n     1    CHARN2.EQ.EQUAL1 .OR. CHARN2.EQ.COMMA1 .OR.\r\n     2    CHARN2.EQ.DOLLR1 .OR. TYPE(N2).EQ.0) GO TO 310\r\n      IF (CHARN2 .EQ. CPARN1) GO TO 310\r\n  300 CONTINUE\r\n      N2 = LAST + 1\r\n  310 IF (N1 .EQ. N2) GO TO 270\r\nC\r\nC     CHARACTER N1 NOW MUST BE A DECIMAL FOR NO ERROR\r\nC\r\n      IF (CHAR1(N1) .NE. DOT1) GO TO 570\r\n      POWER = .FALSE.\r\n      N1 = N1 + 1\r\n      N2 = N2 - 1\r\n      PLACES = 0\r\n      EXPONT = .FALSE.\r\n      IPOWER = 0\r\n      PSIGN  = ZERO1\r\n      PRECIS = ZERO1\r\n      IF (N2 .LT. N1) GO TO 410\r\n      DO 400 I = N1,N2\r\n      CHAR1I = CHAR1(I)\r\n      IF (TYPE(I)) 360,570,320\r\nC\r\nC     FLOATING PT. NUMBER\r\nC\r\n  320 DO 330 K = 1,9\r\n      IF (CHAR1I .EQ. NUM1(K)) GO TO 340\r\n  330 CONTINUE\r\n      K = 0\r\n  340 IF (EXPONT) GO TO 350\r\n      IT = IT + 1\r\n      IF (IT .LT. 16) NT(IT) = K\r\n      PLACES = PLACES + 1\r\n      GO TO 400\r\nC\r\nC     BUILD POWER HERE\r\nC\r\n  350 POWER  = .TRUE.\r\n      IPOWER = IPOWER*10 + K\r\n      IF (IPOWER .GT. 1000) GO TO 630\r\n      GO TO 400\r\nC\r\nC     START EXPONENTS HERE\r\nC\r\n  360 IF (EXPONT) GO TO 380\r\n      EXPONT = .TRUE.\r\n      IF (CHAR1I.NE.PLUS1 .AND. CHAR1I.NE.MINUS1) GO TO 370\r\n      PRECIS = E1\r\n      PSIGN  = CHAR1I\r\n      GO TO 390\r\n  370 IF (CHAR1I.NE.E1 .AND. CHAR1I.NE.D1) GO TO 610\r\n      PRECIS = CHAR1I\r\n      GO TO 390\r\nC\r\nC     SIGN OF POWER\r\nC\r\n  380 IF (POWER) GO TO 610\r\n      IF (PSIGN.NE.ZERO1 .OR.\r\n     1   (CHAR1I.NE.PLUS1 .AND. CHAR1I.NE.MINUS1)) GO TO 610\r\n      PSIGN = CHAR1I\r\n      POWER = .TRUE.\r\n  390 IF (I .EQ. LAST) GO TO 530\r\n  400 CONTINUE\r\n  410 N = N2\r\nC\r\nC     ALL DATA COMPLETE FOR FLOATING POINT NUMBER\r\nC     ONLY 15 FIGURES WILL BE ACCEPTED\r\nC\r\n      IF (IT .LE. 15) GO TO 420\r\n      IPOWER = IPOWER + IT - 15\r\n      IT = 15\r\n  420 IF (PSIGN .EQ. MINUS1) IPOWER = -IPOWER\r\n      IPOWER = IPOWER - PLACES\r\n      NUMBER = 0\r\n      IF (IT .LT. 7) GO TO 430\r\n      N2 = 7\r\n      GO TO 440\r\n  430 N2 = IT\r\n  440 DO 450 I = 1,N2\r\n  450 NUMBER = NUMBER*10 + NT(I)\r\n      DDOUBL = DBLE(FLOAT(NUMBER))\r\n      IF (IT .LE. 7) GO TO 470\r\n      NUMBER = 0\r\n      N2 = IT - 7\r\n      DO 460 I = 1,N2\r\n      IT = I + 7\r\n  460 NUMBER = NUMBER*10 + NT(IT)\r\n      DDOUBL = DDOUBL*10.0D0**N2 + DBLE(FLOAT(NUMBER))\r\n  470 IF (MINUS) DDOUBL = -DDOUBL\r\nC\r\nC     POWER HAS TO BE WITHIN RANGE OF MACHINE\r\nC\r\n      ICHEK = IPOWER + IT\r\n      IF (DDOUBL .EQ. 0.0D0) GO TO 490\r\n      IF (ICHEK .LT.LOWPW+1 .OR. ICHEK .GT.HIGHPW-1 .OR.\r\n     1    IPOWER.LT.LOWPW+1 .OR. IPOWER.GT.HIGHPW-1) GO TO 640\r\n      DDOUBL = DDOUBL*10.0D0**IPOWER\r\n  490 IF (PRECIS .EQ. D1) GO TO 500\r\n      FLPT = DDOUBL\r\n      IOUT = IOUT + 2\r\n      OUT(IOUT-1) =-2\r\n      OUT(IOUT  ) = INTG\r\n      GO TO 100\r\n  500 IOUT = IOUT + 3\r\n      OUT(IOUT-2) =-4\r\n      OUT(IOUT-1) = IDOUBL(1)\r\n      OUT(IOUT  ) = IDOUBL(2)\r\n      GO TO 100\r\nC\r\nC     PREPARE TO RETURN\r\nC\r\n  510 IF (.NOT. DELIM) GO TO 520\r\n      IF (SAVE8 .NE. BLANK8) CALL KHRBC2 (SAVE8,OUT(IOUT-1))\r\n      OUT(IOUT+1) = 0\r\n      GO TO 525\r\n  520 OUT(IOUT+1) = A67777\r\n  525 PREV = OUT(2)\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  530 WRITE  (NOUT,540) UFM\r\n  540 FORMAT (A23,'300, INVALID DATA COLUMN 72')\r\n      GO TO  680\r\n  550 WRITE  (NOUT,560) UFM\r\n  560 FORMAT (A23,'300, INTEGER DATA OUT OF MACHINE RANGE')\r\n      GO TO  680\r\n  570 WRITE  (NOUT,580) UFM,N1\r\n  580 FORMAT (A23,'300, INVALID CHARACTER FOLLOWING INTEGER IN COLUMN',\r\n     1       I4)\r\n      GO TO  680\r\n  590 WRITE  (NOUT,600) UFM,CHAR1N\r\n  600 FORMAT (A23,'300, FORGOTTEN DELIMITER - ',A1,',  PROGRAM ERROR')\r\n      GO TO  680\r\n  610 WRITE  (NOUT,620) UFM,I\r\n  620 FORMAT (A23,'300, DATA ERROR-UNANTICIPATED CHARACTER IN COLUMN',\r\n     1       I4)\r\n      GO TO  680\r\n  630 CONTINUE\r\n  640 WRITE  (NOUT,650) UFM\r\n  650 FORMAT (A23,'300, DATA ERROR - MISSING DELIMITER OR REAL POWER ',\r\n     1        'OUT OF MACHINE RANGE')\r\n      GO TO  680\r\n  660 WRITE  (NOUT,670) UFM\r\n  670 FORMAT (A23,'300, ROUTINE XRCARD FINDS OUTPUT BUFFER TOO SMALL ',\r\n     1        'TO PROCESS CARD COMPLETELY')\r\n  680 NOGO = .TRUE.\r\n      WRITE  (NOUT,690) CHAR72\r\n  690 FORMAT (/5X,1H',A72,1H','  ERROR IN XRCARD ROUTINE')\r\n      OUT(1) = 0\r\n      RETURN\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/xread.f",
    "content": "      SUBROUTINE XREAD (*,BUFX)\r\nC\r\nC     THIS ROUTINE MAKES FREE-FIELD INPUT PACKAGE (HANDLED BY FFREAD)\r\nC     COMPLETELY MACHINE INDEPENDENT.\r\nC\r\nC     IF THE XSORT FLAG IN /XECHOX/ IS TURNED ON (XSORT=1), THIS ROUTINE\r\nC     WILL ALSO PREPARES THE NECESSARY GROUND WORK SO THAT THE INPUT\r\nC     CARDS CAN BE SORTED EFFICIENTLY IN XSORT2 ROUTINE. ALL FIELDS IN\r\nC     THE INPUT CARDS ARE ALSO LEFT-ADJUSTED FOR PRINTING.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS.   OCT. 1987\r\nC     LAST REVISED, 1/1990, IMPROVED EFFICIENCY BY REDUCING CHARACTER\r\nC     OPERATIONS (VERY IMPORTANT FOR CDC MACHINE)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         RSHIFT,COMPLF\r\n      LOGICAL          DOUBLE,BCD2,BCD3,ALPHA,NUMRIC\r\n      INTEGER          BUFX(20),SUB(2)\r\n      INTEGER          CARD1(80),KHR1(43),BLANK1,DOLLR1,SLASH1,STAR1,\r\n     1                 PLUS1,MINUS1,ZERO1,POINT1,E1,D1,J1\r\n      CHARACTER*1      KARD1(80),KHRK(43),BLANKK,EQU1\r\n      CHARACTER*8      CARD8(10),CARD81,BLANK8,SLASH8,END8(3),NAME8(15)\r\n      CHARACTER*23     UFM*23,KHR43*43,CARD80*80\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /XECHOX/  DUMMY,ECHOU,OSOP(2),XSORT,WASFF,DUM,F3LONG,LARGE\r\n      COMMON /XSORTX/  IBUF(4),TABLE(255)\r\n      COMMON /SYSTEM/  BUFSZ,NOUT,NOGO\r\n      COMMON /MACHIN/  MACH\r\n      EQUIVALENCE      (KARD1(1),CARD8(1), CARD80 ,CARD81  ) ,\r\n     1                 (BLANK1,KHR1( 1)) , (KHR43 ,KHRK( 1)) ,\r\n     2                 (ZERO1 ,KHR1( 2)) , (D1    ,KHR1(15)) ,\r\n     3                 (E1    ,KHR1(16)) , (SLASH1,KHR1(38)) ,\r\n     4                 (DOLLR1,KHR1(39)) , (STAR1 ,KHR1(40)) ,\r\n     5                 (PLUS1 ,KHR1(41)) , (MINUS1,KHR1(42)) ,\r\n     6                 (POINT1,KHR1(43))\r\n      DATA    BLANK8 , SLASH8 ,  BLANK4  , EQUAL4 , SUB            /\r\n     1        '    ' , '/   ' ,  4H      , 4H==== , 4HXREA,4HD     /\r\n      DATA    NNAME /  15 /   ,  NAME8                             /\r\n     1        'SPC1 ', 'SPCS ', 'TICS '  , 'MPCS ','MPCAX', 'RELES',\r\n     2        'GTRAN','FLUTTER','BDYC '  , 'SPCSD','SPCS1','RANDPS',\r\n     3       'DAREAS','DELAYS', 'DPHASES'                          /\r\n      DATA    END8  /  'ENDDATA ','ENDATA ','END DATA'/, DERR / -1 /\r\nC\r\n      DATA    KHR43 /' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/$*+-.' /\r\nC                      2 4 6 8 1 2 4 6 8 2 2 4 6 8 3 2 4 6 8 4 2\r\nC                              0         0         0         0\r\n      DATA    N7, N1, N2,      N3,                       N4, N5,N6 /\r\n     1        44,  1,  2,      11,                       37, 41,43 /\r\n      DATA    PLUS1 , BLANKK, EQU1 / 0, ' ', '=' /\r\nC\r\n      IF (PLUS1 .EQ. 0) CALL K2B (KHR43,KHR1,43)\r\nC\r\nC     CALL FFREAD TO READ INPUT CARD\r\nC     IF INPUT IS A COMMENT CARD, SET IBUF(1)=-1, AND RETURN\r\nC     IF INPUT IS IN FREE-FIELD, ALL 10 BULKDATA FIELDS ARE ALREADY\r\nC     LEFT-ADJUSTED, AND WASFF IS SET TO +1 BY FFREAD\r\nC     IF INPUT IS IN FIXED-FIELD, ALL 10 BULKDATA FIELDS MAY NOT BE IN\r\nC     LEFT-ADJUSTED FORMAT, AND WASFF IS SET TO -1 BY FFREAD\r\nC\r\n      CALL FFREAD (*850,CARD8)\r\n      CALL K2B (CARD80,CARD1,80)\r\n      IF (CARD1(1) .EQ. DOLLR1) GO TO 770\r\n      IE = 0\r\n      IF (XSORT.EQ.0 .OR. WASFF.EQ.1) GO TO 40\r\nC\r\nC     LEFT-ADJUSTED THE BULKDATA FIELDS, FIRST 9 FIELDS\r\nC     (FIRST 4 AND A HALF FIELDS IF DOUBLE FIELD CARDS)\r\nC\r\n      IB = 1\r\n      L  = 8\r\n      IF (CARD1(1).EQ.PLUS1 .OR. CARD1(1).EQ.STAR1) IB = 9\r\n      IF (CARD1(1) .EQ. STAR1) L = 16\r\n      DO 30 I = IB,72,L\r\n      IF (CARD1(I) .NE. BLANK1) GO TO 30\r\n      K  = I\r\n      JE = I + L - 1\r\n      DO 10 J = I,JE\r\n      IF (CARD1(J) .EQ. BLANK1) GO TO 10\r\n      CARD1(K) = CARD1(J)\r\n      KARD1(K) = KARD1(J)\r\n      K  = K + 1\r\n   10 CONTINUE\r\n      IF (K .EQ. I) GO TO 30\r\n      DO 20 J = K,JE\r\n      KARD1(J) = BLANKK\r\n   20 CARD1(J) = BLANK1\r\n   30 CONTINUE\r\nC\r\nC     CHECK COMMENT CARD WITH DOLLAR SIGN NOT IN COLUMN 1. CONVERT\r\nC     CHARACTER STRING TO BCD STRING, AND RETURN TO CALLER IF IT IS\r\nC     NOT CALLED BY XSORT.\r\nC\r\n   40 IE = IE + 1\r\n      IF (CARD1(IE) .EQ. BLANK1) GO TO 40\r\n      IF (CARD1(IE) .EQ. DOLLR1) GO TO 760\r\n      CALL KHRBCD (CARD80,BUFX)\r\n      IF (XSORT .EQ. 0) GO TO 780\r\nC\r\nC\r\nC     IF THIS ROUTINE IS CALLED BY XSORT, PASS THE FIRST 3 FIELDS TO\r\nC     IBUF ARRAY IN /XSORTX/, IN INTEGER FORMS\r\nC\r\nC     FIRST BULKDATA FIELD IS ALPHA-NUMERIC, COMPOSED OF TWO 4-CHARACTER\r\nC     WORDS. CHECK WHETHER OR NOT THIS IS A CONTINUATION OR COMMENT CARD\r\nC     IF IT IS NOT, WE CHANGE ALL 8 CHARACTER BYTES INTO THEIR NUMERIC\r\nC     CODE VALUES GIVEN BY TABLE /KHR43/ AND STORE THE VALUE IN IBUF(1)\r\nC     AND IBUF(2)\r\nC\r\nC     WE SET IBUF(1) AND (2)    IF INPUT CARD IS\r\nC     ----------------------    -------------------\r\nC                -1             A COMMENT CARD\r\nC                -2             A CONTINUATION CARD\r\nC                -3             A DELETE CARD (RANGE IN IBUF(3) AND (4))\r\nC                -3, -4         A DIRTY DELETE CARD\r\nC                -5             A BLANK CARD\r\nC                -9             A ENDDATA CARD\r\nC     AND IBUF(2) AND IBUF(3) ARE NOT SET, EXECPT -3 CASE\r\nC\r\nC     IF FIELD 2 AND/OR FIELD 3 ARE IN CHARACTERS, WE PUT THE FIRST 6\r\nC     BYTES (OUT OF POSSIBLE 8 CHARACTER-BYTES) INTO IBUF(3) AND/OR\r\nC     IBUFF(4) RESPECTIVELY, IN INTERNAL NUMERIC CODE QUITE SIMILAR TO\r\nC     RADIX-50\r\nC     IF FIELD 2 HAS MORE THAN 7 CHARACTERS, IBUF(4) IS USED TO RECEIVE\r\nC     THE LAST 2 CHARACTERS OF FIELD 2\r\nC\r\nC     IF FIELD 2 AND/OR FIELD 3 ARE NUMERIC DATA (0-9,+,-,.,E), THEIR\r\nC     ACTUAL INTEGER VALUES ARE STORED IBUF(3) AND/OR IBUF(4).\r\nC     IF THEY ARE F.P. NUMBERS, THEIR EXPONENT VALUES (X100000) ARE\r\nC     CHANGED INTO INTEGERS, AND THEN STORED IN IBUF(3) AND/OR IBUF(4)\r\nC\r\nC     NOTE - XREAD WILL HANDLE BOTH SINGLE- AND DOUBLE-FIELD BULKDATA\r\nC     INPUT IN FIELDS 2 AND 3, AND MOVED THEM ACCORDINGLY INTO IBUF(3)\r\nC     AND IBUF(4)\r\nC\r\nC\r\nC     PRESET TABLE IF THIS IS VERY FIRST CALL TO XREAD ROUTINE\r\nC     TABLE SETTING IS MOVED UP BY ONE IF MACHINE IS CDC (TO AVOID\r\nC     BLANK CHARACTER WHICH IS ZERO FROM ICHAR FUNCTION)\r\nC\r\n      FROMY = 0\r\n      IF (XSORT .NE. 1) GO TO 80\r\n      XSORT = 2\r\n      CDC   = 0\r\n      IF (MACH .EQ. 4) CDC = 1\r\n      DO 60 I = 1,255\r\n   60 TABLE(I) = N7\r\n      DO 70 I = 1,N6\r\n      J = ICHAR(KHRK(I)) + CDC\r\n   70 TABLE(J) = I\r\n      F3LONG = 0\r\n      LARGE  = RSHIFT(COMPLF(0),1)/20\r\nC\r\nC     CHECK BLANK, ENDDATA, AND CONTINUATION CARDS\r\nC\r\n   80 ER = 0\r\n      J1 = CARD1(1)\r\n      J  = TABLE(ICHAR(KARD1(1))+CDC)\r\n      IF (J .GE. N7) GO TO 810\r\n      IF (CARD81.EQ.BLANK8 .AND. CARD8(2).EQ. BLANK8)  GO TO 90\r\n      IF (CARD81.EQ.END8(1) .OR. CARD81.EQ.END8(2) .OR.\r\n     1    CARD81.EQ.END8(3)) GO TO 100\r\n      IF (J1.NE.PLUS1 .AND. J1.NE.STAR1) GO TO 120\r\n      IBUF(1) = -2\r\n      GO TO 110\r\n   90 IBUF(1) = -5\r\n      GO TO 110\r\n  100 IBUF(1) = -9\r\n  110 IBUF(2) = IBUF(1)\r\n      GO TO 800\r\nC\r\nC     CHECK ASTERISK IN FIELD 1 (BUT NOT IN COLUMN1 1) AND SET DOUBLE-\r\nC     FIELD FLAG. MERGE EVERY TWO SINGLE FIELDS TO ENSURE CONTINUITY OF\r\nC     DOUBLE FIELD DATA (FIXED FIELD CARDS ONLY)\r\nC\r\n  120 DOUBLE = .FALSE.\r\n      IF (WASFF .EQ. 1) GO TO 180\r\n      IE = 8\r\n      DO 130 J = 2,8\r\n      IF (CARD1(IE) .EQ. STAR1) GO TO 140\r\n  130 IE = IE - 1\r\n      GO TO 180\r\n  140 DOUBLE = .TRUE.\r\n      IB = 0\r\n      DO 170 I = 8,71,16\r\n      K = I\r\n      DO 150 J = 1,16\r\n      L = I + J\r\n      IF (CARD1(L) .EQ. BLANK1) GO TO 150\r\n      K = K + 1\r\n      IF (K .EQ. L) GO TO 150\r\n      IB = 1\r\n      CARD1(K) = CARD1(L)\r\n      KARD1(K) = KARD1(L)\r\n  150 CONTINUE\r\n      IF (K .EQ. L) GO TO 170\r\n      K = K + 1\r\n      DO 160 J = K,L\r\n      KARD1(J) = BLANKK\r\n  160 CARD1(J) = BLANK1\r\n  170 CONTINUE\r\n      IF (IE .LE. 0) CALL MESAGE (-37,0,SUB)\r\n      IF (IB .EQ. 1) CALL KHRBCD (CARD80,BUFX)\r\n      CARD1(IE) = BLANK1\r\n      KARD1(IE) = BLANKK\r\nC\r\nC     CHECK DELETE CARD\r\nC     SET IBUF(1)=IBUF(2)=-3 IF IT IS PRESENT, AND SET THE DELETE RANGE\r\nC     IN IBUF(3) AND IBUF(4)\r\nC     SET IBUF(1)=-3 AND IBUF(2)=-4 IF TRASH FOUND AFTER SLASH IN\r\nC     FIELD 1\r\nC     NOTE - IF FIELD 3 IS BLANK, IBUF(4) IS -3\r\nC\r\n  180 IF (J1 .NE. SLASH1) GO TO 200\r\n      DO 190 L = 1,4\r\n  190 IBUF(L) = -3\r\n      IF (CARD81 .NE. SLASH8) IBUF(2) = -4\r\n      L = 2\r\n      GO TO 300\r\nC\r\nC     TURN BCD2 AND BCD3 FLAGS ON IF THE 2ND AND 3RD INPUT FIELDS ARE\r\nC     NOT NUMERIC RESPECTIVELY\r\nC     IF 2ND FIELD HAS MORE THAN 6 CHARACTERS, REPLACE 3RD FIELD BY THE\r\nC     7TH AND 8TH CHARACTERS OF THE 2ND FIELD\r\nC     (FOR DMI AND DTI CARDS, MERGE 7TH AND 8TH CHARACTERS INTO 3RD\r\nC     FIELD AND TREAT THE ORIG. 3RD FIELD AS A NEW BCD WORD)\r\nC     IF 3RD FIELD HAS MORE THAN 6 CHARACTERS, SET F3LONG FLAG TO 1, AND\r\nC     USER INFORMATION MESSAGE 217A WILL BE PRINTED BY XSORT\r\nC     FIELDS 2 AND 3 SHOULD NOT START WITH A /, $, *\r\nC     IF FIELD2 IS A BCD WORD, FIELD3 PROCESSING ACTUALLY BEGINS IN\r\nC     CARD8(4)\r\nC\r\n  200 BCD2 = .FALSE.\r\n      IF (DERR .EQ. +1) DERR = 0\r\n      J = TABLE(ICHAR(KARD1(9))+CDC)\r\n      IF (J .GE. N7) GO TO 810\r\n      NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. J.GE.N5\r\n      IF (NUMRIC) GO TO 210\r\n      BCD2 = .TRUE.\r\n      IF (CARD1(15) .EQ. BLANK1) GO TO 210\r\nC\r\nC     SINCE THE NAME IN THE 2ND FIELD OF DMI, DTI, DMIG, DMIAX CARDS\r\nC     ARE NOT UNIQUELY DEFINED FOR SORTING, SPECIAL CODES HERE TO MOVE\r\nC     THE LAST PART OF A LONG NAME (7 OR 8 LETTER NAME) INTO THE 3RD\r\nC     FIELD, AND TREAT THE NEW 3RD FIELD AS BCD WORD. THUS THE ORIGINAL\r\nC     3RD FIELD (THE COLUMN NUMBER, RIGHT ADJUSTED WITH LEADING ZEROS)\r\nC     IS LIMITED TO 4 DIGITS OR LESS.  IF THE NAME IN THE 2ND FIELD IS\r\nC     SHORT (6 LETTERS OR LESS), MERGING OF THE 3RD FIELD IS NOT NEEDED.\r\nC\r\n      IF (CARD1(1).NE.D1       .OR.  CARD1(3).NE.KHR1(20) .OR.\r\n     1   (CARD1(2).NE.KHR1(24) .AND. CARD1(2).NE.KHR1(31))) GO TO 208\r\n      BCD3 = .TRUE.\r\n      K = 24\r\n      IF (DOUBLE) K = 32\r\n      IF (CARD1(K-3) .EQ. BLANK1) GO TO 204\r\n      IF (ECHOU .EQ. 1) GO TO 202\r\n      IF (DERR .EQ. -1) CALL PAGE\r\n      CALL PAGE2 (-2)\r\n      IF (DOUBLE) CARD1(8) = STAR1\r\n      WRITE  (NOUT,201) CARD8\r\n  201 FORMAT (30X,10A8)\r\n      IF (DOUBLE) CARD1(8) = BLANK1\r\n  202 CALL PAGE2 (-2)\r\n      WRITE  (NOUT,203) UFM\r\n  203 FORMAT (A23,', THE 3RD INPUT FIELD OF THE ABOVE CARD IS LIMITED ',\r\n     1       'TO 4 OR LESS DIGITS, WHEN A NAME OF 7 OR MORE', /5X,\r\n     2       'LETTERS IS USED IN THE 2ND FIELD',/)\r\n      DERR = +1\r\n      NOGO =  1\r\n  204 DO 205 J = 1,4\r\n      IF (CARD1(K-4) .NE. BLANK1) GO TO 206\r\n      KARD1(K-4) = KARD1(K-5)\r\n      KARD1(K-5) = KARD1(K-6)\r\n      KARD1(K-6) = KARD1(K-7)\r\n  205 KARD1(K-7) = BLANKK\r\n  206 DO 207 J = 1,6\r\n      KARD1(K) = KARD1(K-2)\r\n  207 K = K-1\r\n      KARD1(K  ) = KARD1(16)\r\n      KARD1(K-1) = KARD1(15)\r\n      KARD1( 15) = BLANKK\r\n      GO TO 215\r\nC\r\n  208 KARD1(17) = KARD1(15)\r\n      KARD1(18) = KARD1(16)\r\n      DO 209 K = 19,24\r\n  209 KARD1(K) = BLANKK\r\nC\r\n  210 BCD3 = .FALSE.\r\n      K = 17\r\n      IF (DOUBLE) K = 25\r\n      J = TABLE(ICHAR(KARD1(K))+CDC)\r\n      ALPHA = J.EQ.N1 .OR. (J.GT.N3 .AND. J.LT.N5)\r\n      IF (ALPHA) BCD3 = .TRUE.\r\n      IF (BCD3 ) GO TO 215\r\nC\r\nC     THE FIRST 3 FIELDS OF THE DMIG OR DMIAX CARDS (NOT THE 1ST HEADER\r\nC     CARD), ARE NOT UNIQUE. MERGE THE 4TH FIELD (1 DIGIT INTEGER) INTO\r\nC     THE 3RD FIELD (INTEGER, 8 DIGITS OR LESS) TO INCLUDE THE COMPONENT\r\nC     FIELD FOR SORTING\r\nC\r\n      IF (CARD1(1).NE.D1 .OR. CARD1(2).NE.KHR1(24) .OR.\r\n     1    CARD1(3).NE.KHR1(20)  .OR. (CARD1(4).NE.KHR1(18) .AND.\r\n     2    CARD1(4).NE.KHR1(12))) GO TO 215\r\n      IF (CARD1(1) .EQ. KHR1(2)) GO TO 215\r\n      K = 24\r\n      IF (DOUBLE) K = 32\r\n      IF (CARD1(K) .NE. BLANK1) GO TO 215\r\n      DO 211 J = 1,7\r\n      K = K - 1\r\n      IF (CARD1(K) .NE. BLANK1) GO TO 212\r\n  211 CONTINUE\r\n  212 KARD1(K+1) = KARD1(25)\r\n      IF (DOUBLE) KARD1(K+1) = KARD1(41)\r\nC\r\nC\r\nC     CHANGE ALL CHARACTERS IN FIRST 3 FIELDS TO INTEGER INTEGER CODES\r\nC     ACCORDING TO THE TABLE ARRANGEMENT IN /KHR43/\r\nC     MAKE SURE THE INTERNAL CODE IS NOT IN NASTRAN INTEGER RANGE (1 TO\r\nC     8 DIGITS), AND WITHIN MACHINE INTEGER WORD LIMIT\r\nC     IN 2ND AND 3RD FIELDS, INTERCHANGE ALPHABETS AND NUMERIC DIGITS\r\nC     SEQUENCE TO AVOID SYSTEM INTEGER OVERFLOW\r\nC\r\nC     -------------- REMEMBER, FROM HERE DOWN,\r\nC                    CARD1 (1-BYTE ) HOLD ONE CHARACTER, AND\r\nC                    IBUFX (4-BYTES) HOLD AN  INTEGER -----------------\r\nC     WE ALSO HAVE   CARD8 (8-BYTES) HOLDING 8 CHARACTERS,\r\nC              AND   BUFX  (4-BYTES) HOLDING 4 BCD-CHARACTERS\r\nC\r\nC\r\nC     MAP OF THE FIRST 3 BULKDATA FIELDS -\r\nC     (INPUT)\r\nC\r\nC           WORD1 WORD2 WORD3 WORD4 WORD5 WORD6 WORD7 WORD8 WORD9 WORD10\r\nC     BYTE: 1         8 9        16 17       24 25       32 33       40\r\nC          +-----+-----+-----+-----+-----+-----+-----+-----+-----+-----+\r\nC     SF:  !<-FIELD 1->!<-FIELD 2->!<-FIELD 3->!\r\nC     DF:  !<-FIELD 1->!<------ FIELD 2 ------>!<------ FIELD 3 ------>!\r\nC\r\nC\r\nC     MAP OF IBUF -           WORD1 WORD2 WORD3 WORD4\r\nC     (OUTPUT)         BYTE:  1         8 9  12 13 16\r\nC                            +-----+-----+-----+-----+\r\nC     FOR CORE SORT          !<-FIELD 1->!<--->!<--->!\r\nC     PERFORMED IN                        FIELD FIELD\r\nC     XSORT2                                 2     3\r\nC\r\n  215 NUMRIC = .FALSE.\r\n      L    = 0\r\n      IOO  = 100\r\n      WORD = 0\r\n  220 WORD = WORD + 1\r\n      GO TO 260\r\n  230 IOO  = N4\r\n      IF (.NOT.BCD2) GO TO 280\r\n      WORD = 3\r\n      GO TO 260\r\n  240 WORD = 5\r\n      IF (DOUBLE) WORD = 7\r\n      IF (.NOT.BCD2 .OR. KARD1(15).EQ.BLANKK) GO TO 250\r\n      WORD = 4\r\n      IOO  = 100\r\n      BCD3 = .TRUE.\r\n  250 IF (.NOT.BCD3) GO TO 280\r\n      IF (WORD.NE.4 .AND. KARD1(WORD*4+3).NE.BLANKK .AND. DERR.NE.+1)\r\n     1    F3LONG = 1\r\n  260 IE  = WORD*4\r\n      IB  = IE - 3\r\n      J   = TABLE(ICHAR(KARD1(IB))+CDC)\r\n      IF (J .GE. N7) GO TO 810\r\n      IF (MOD(WORD,2).EQ.0 .AND. .NOT.NUMRIC) GO TO 262\r\n      NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. J.GE.N5\r\n      IF (NUMRIC) GO TO 280\r\n  262 IF (IOO .EQ. 100) GO TO 265\r\n      IE = IE + 2\r\n      K  = J\r\n      IF (K .GT. N3) J = K - N3\r\n      IF (K .LE. N3) J = K + 25\r\n  265 SUM = J\r\n      IB  = IB + 1\r\n      DO 270 I = IB,IE\r\n      J   = TABLE(ICHAR(KARD1(I))+CDC)\r\n  270 SUM = SUM*IOO + J\r\n      IF (IOO .EQ. 100) SUM = SUM + 200000000\r\n      IBUF(L+1) = SUM\r\n  280 L = L + 1\r\n      GO TO (220,230,240,290), L\r\nC\r\nC     CHECK INTEGERS ON 2ND AND 3RD FIELDS\r\nC\r\n  290 IF (BCD2 .AND. BCD3) GO TO 500\r\n      L  = 2\r\n      IF (BCD2) L = 3\r\n  300 L  = L + 1\r\n      IF (L-4) 310,320,500\r\n  310 IB = 9\r\n      GO TO 330\r\n  320 IB = 17\r\n      IF (DOUBLE) IB = 25\r\n  330 IE = IB + 7\r\n      IF (DOUBLE) IE = IB + 15\r\n      J1 = CARD1(IB)\r\n      IF (J1.EQ.PLUS1 .OR. J1.EQ.MINUS1 .OR. J1.EQ.POINT1 .OR.\r\n     1    J1.EQ.ZERO1) GO  TO 340\r\n      J  = TABLE(ICHAR(KARD1(IB))+CDC)\r\n      IF (J.GE.N2 .AND. J.LE.N3) GO TO 350\r\nC\r\nC     IT IS CHARACTER FIELDS, NOTHING ELSE NEEDS TO BE DONE\r\nC\r\n      GO TO 300\r\nC\r\nC     IT IS NUMERIC\r\nC\r\n  340 IB  = IB + 1\r\n  350 SUM = 0\r\n      FP  = 0\r\n      SIGX= 1\r\n      SIGN= 1\r\n      IF (J1 .EQ. MINUS1) SIGN =-1\r\n      IF (J1 .EQ. POINT1) FP   = 1\r\n      DO 380 I = IB,IE\r\n      IF (KARD1(I) .EQ. BLANKK) GO TO 390\r\n      J   = TABLE(ICHAR(KARD1(I))+CDC) - N2\r\n      IF (J.LT.0 .OR. J.GT.9) GO TO 360\r\n      IF (FP.LE.0 .AND. IABS(SUM).LT.LARGE) SUM = SUM*10 + SIGN*J\r\n      GO TO 380\r\nC\r\nC     A NON-NUMERIC SYMBOL FOUND IN NUMERIC STRING\r\nC     ONLY 'E', 'D', '+', '-', OR '.' ARE ACCEPTABLE HERE\r\nC\r\n  360 J1  = CARD1(I)\r\n      IF (J1 .EQ. POINT1) GO TO 370\r\n      IF (FP.EQ.0 .OR. IBUF(3).EQ.-3) GO TO 420\r\n      IF (J1.NE.E1 .AND. J1.NE.D1 .AND. J1.NE.PLUS1 .AND.\r\n     1    J1.NE.MINUS1) GO TO 420\r\n      IF (J1 .EQ. MINUS1) SIGX = -1\r\n      FP  =-1\r\n      SUM = 0\r\n      GO TO 380\r\n  370 FP  = 1\r\nC\r\n  380 CONTINUE\r\nC\r\nC     BEEF UP NUMERIC DATA BY 2,000,000,000 SO THAT THEY WILL BE\r\nC     SORTED BEHIND ALL ALPHABETIC DATA, AND MOVE THE NUMERIC DATA, IN\r\nC     INTEGER FORM (F.P. MAY NOT BE EXACT) INTO IBUF(3) OR IBUF(4)\r\nC\r\n  390 IF (FP) 410,400,400\r\n  400 IBUF(L) = SUM + SIGN*2000000000\r\n      GO TO 300\r\n  410 IBUF(L) = SIGN*2000000000\r\n      IF (SIGX.GT.0 .AND. SUM.LT.9)\r\n     1    IBUF(L) = SIGN * (10**(SIGX*SUM) + 2000000000)\r\n      IF (SIGX.GT.0 .AND. SUM.GE.9) IBUF(L)= 2147000000*SIGN\r\n      GO TO 300\r\nC\r\nC     ERROR IN NUMERIC FIELD\r\nC\r\n  420 IF (IB.EQ.10 .OR. IB.EQ.18) IB = IB - 1\r\n      K = 1\r\n      IF (ECHOU.EQ.0 .AND. ER.NE.-9) K = 2\r\n      CALL PAGE2 (-K)\r\n      IF (ECHOU.EQ.0 .AND. ER.NE.-9) WRITE (NOUT,430) CARD80\r\n  430 FORMAT (1H ,29X,A80)\r\n      K = 2\r\n      IF (.NOT.DOUBLE) GO TO 440\r\n      K = 4\r\n      IF (L .NE. 4) WORD = WORD + 1\r\n  440 IF (L .EQ. 4) WORD = WORD + 2\r\n      WRITE  (NOUT,450) (BLANK4,I=1,WORD),(EQUAL4,I=1,K)\r\n  450 FORMAT (7X,'*** ERROR -',24A4)\r\n      NOGO = 1\r\n      ER   =-9\r\n      GO TO 500\r\nC\r\nC     BOTH FIELDS 2 AND 3 (OF BULK DATA CARD) DONE.\r\nC\r\nC\r\nC     FOR MOST BULK DATA CARDS, EXCEPT THE ONES IN NAME8, THE FIRST\r\nC     3 FIELDS, IN INTERNAL CODES AND SAVED IN THE IBUF 4-WORD ARRAY,\r\nC     ARE SUFFICIENT FOR ALPHA-NUMERIC SORT (BY XSORT2)\r\nC\r\nC     THOSE SPECIAL ONES IN NAME8 ADDITIONAL FIELDS FOR SORTING\r\nC\r\n  500 DO 510 TYPE = 1,NNAME\r\n      IF (CARD81 .EQ. NAME8(TYPE)) GO TO\r\n     1   (520,   520,   520,   520,   600,   520,    520,   520,\r\n     2    520,   560,   570,   580,   560,   560,    560),  TYPE\r\nC\r\nC    1   SPC1   SPCS   TICS   MPCS  MPCAX  RELES   GTRAN  FLUTTER\r\nC    2   BDYC  SPCSD   SPCS1 RANDPS DELAYS DAREAS  DPHASES\r\nC\r\n  510 CONTINUE\r\n      GO TO 700\r\nC\r\nC     SPC1,SPCS,TICS,MPCS,RELES,GTRAN,FLUTTER,BDYC CARDS -\r\nC     ADD 4TH INTEGER FIELD TO IBUF ARRAY\r\nC\r\n  520 IBUF(2) = IBUF(3)\r\n      IBUF(3) = IBUF(4)\r\n  530 SUM = 0\r\n      DO 540 I = 25,32\r\n      J1  = CARD1(I)\r\n      IF (J1 .EQ. BLANK1) GO TO 550\r\n      J   = TABLE(ICHAR(KARD1(I))+CDC) - N2\r\n      IF (J.GE.0 .AND. J.LE.9) SUM = SUM*10 + J\r\n  540 CONTINUE\r\n  550 IBUF(4) = SUM\r\n      IF (TYPE .EQ. 12) GO TO 590\r\n      GO TO 700\r\nC\r\nC     DAREAS,DELAYS,DPHASES,SPCSD CARDS -\r\nC     ADD ONE TO IBUF(1), THUS CREATE DARF,DELB,DPHB,OR SPCT IN\r\nC     IBUF(1), THEN ADD 4TH INTEGER FIELD INTO IBUF ARRAY\r\nC\r\n  560 IBUF(1) = IBUF(1) + 1\r\n      GO TO 520\r\nC\r\nC     SPCS1 CARD -\r\nC     ADD TWO TO IBUF(1), THUS CREATE SPCU IN IBUF(1), THEN ADD\r\nC     4TH INTEGER FIELD INTO IBUF ARRAY\r\nC\r\n  570 IBUF(1) = IBUF(1) + 2\r\n      GO TO 520\r\nC\r\nC     RANDPS -\r\nC     MERGE FIELDS 3 AND 4 IF SUBCASE NUMBERS ARE NOT TOO BIG\r\nC\r\n  580 IF (IBUF(4).GE.10000 .OR. BUFX(8).NE.BLANK4) GO TO 700\r\n      IOOOO = IBUF(4)*10000\r\n      GO TO 530\r\n  590 IBUF(4) = IBUF(4) + IOOOO\r\n      GO TO 700\r\nC\r\nC     MPCAX -\r\nC     MOVE THE 6TH FIELD INTO IBUF(4)\r\nC\r\n  600 J = 41\r\n      DO 610 I = 25,32\r\n      CARD1(I) = CARD1(J)\r\n      KARD1(I) = KARD1(J)\r\n  610 J = J+1\r\n      GO TO 530\r\nC\r\nC     CHECK NUMERIC ERROR IN 4TH TO 9TH FIELDS IF NO ERROR IN FIRST\r\nC     3 FIELDS (NEW BULK DATA CARDS ONLY)\r\nC\r\n  700 IF (FROMY.EQ.1 .OR. ER.EQ.-9) GO TO 800\r\n      WORD = 5\r\n      IF (DOUBLE) WORD = 7\r\n  710 WORD = WORD + 2\r\n      IF (DOUBLE) WORD = WORD + 2\r\n      IF (WORD .GE. 19) GO TO 800\r\n      IB = WORD*4 - 3\r\n      J  = TABLE(ICHAR(KARD1(IB))+CDC)\r\n      IF (J .GE. N7) GO TO 710\r\n      ALPHA = J.EQ.N1 .OR. (J.GT.N3 .AND. J.LT.N5)\r\n      IF (ALPHA) GO TO 710\r\n      IE = IB + 7\r\n      IF (DOUBLE) IE = IB + 15\r\n      L  = IB + 1\r\n      DO 740 I = L,IE\r\n      J1 = CARD1(I)\r\n      IF (J1 .EQ. BLANK1) GO TO 710\r\n      J  = TABLE(ICHAR(KARD1(I))+CDC)\r\n      NUMRIC = (J.GE.N2 .AND. J.LE.N3) .OR. (J.GE.N5 .AND. J.LE.N6)\r\n      IF (NUMRIC .OR. J.EQ.15 .OR. J.EQ.16) GO TO 740\r\nC                           D            E\r\n      K = 1\r\n      IF (ECHOU.EQ.0 .AND. ER.NE.-9) K = 2\r\n      CALL PAGE2 (-K)\r\n      IF (ECHOU.EQ.0 .AND. ER.NE.-9) WRITE (NOUT,430) CARD80\r\n      WORD = WORD + 2\r\n      K = 2\r\n      IF (.NOT. DOUBLE) GO TO 730\r\n      K = 4\r\n  730 WRITE (NOUT,450) (BLANK4,J=1,WORD),(EQUAL4,J=1,K)\r\n      NOGO = 1\r\n      GO TO 800\r\n  740 CONTINUE\r\n      GO TO 800\r\nC\r\n  760 IF (XSORT .EQ. 0) KARD1(IE) = KHRK( 1)\r\n  770 IF (XSORT .EQ. 0) KARD1( 1) = KHRK(39)\r\n      IBUF(1) = -1\r\n      CALL KHRBCD (CARD80,BUFX)\r\n      GO TO 800\r\nC\r\n  780 IBUF(1) = 0\r\nC\r\n  800 RETURN\r\nC\r\n  810 IF (XSORT .EQ. 2) GO TO 830\r\n      WRITE  (NOUT,820) XSORT\r\n  820 FORMAT (//,' *** TABLE IN XREAD HAS NOT BEEN INITIALIZED.',\r\n     1        /5X,'XSORT=',I4)\r\n      CALL MESAGE (-37,0,SUB)\r\n  830 WRITE  (NOUT,840) CARD8\r\n  840 FORMAT (/,' *** ILLEGAL CHARACTER ENCOUNTERED IN INPUT CARD',\r\n     1       /4X,1H',10A8,1H' )\r\n      NOGO = 1\r\n  850 RETURN 1\r\nC\r\nC\r\n      ENTRY YREAD (*,BUFX)\r\nC     ====================\r\nC\r\nC     YREAD IS CALLED ONLY BY XSORT TO RE-PROCESS CARD IMAGES FROM\r\nC     THE OPTP FILE\r\nC\r\n      CALL BCDKH8 (BUFX,CARD80)\r\n      CALL K2B (CARD80,CARD1,80)\r\n      FROMY = 1\r\n      GO TO 80\r\nC\r\nC\r\n      ENTRY RMVEQ (BUFX)\r\nC     ==================\r\nC\r\nC     RMVEQ, CALLED ONLY BY XCSA, REMOVES AN EQUAL SIGN FROM TEXT.\r\nC     THUS, 1 EQUAL SIGN BEFORE COLUMN 36 IS ALLOWED ON ONE EXECUTIVE\r\nC     CONTROL LINE\r\nC\r\nC     AT THIS POINT, THE DATA IN KARD1 IS STILL GOOD\r\nC\r\n      DO 900 I = 1,36\r\n      IF (KARD1(I) .EQ. EQU1) GO TO 910\r\n  900 CONTINUE\r\n      GO TO 920\r\n  910 KARD1(I) = BLANKK\r\n      CALL KHRBCD (CARD80,BUFX)\r\n  920 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrecps.f",
    "content": "      SUBROUTINE XRECPS (INEW,IOLD)\r\nC\r\nC     ******************************************************************\r\nC     * ATTENTION CDC 6600 SET-UPS ** THESE ENTRY POINTS MAY BE        *\r\nC     * SEPARATED EACH ENTRY MAY BE MADE A SUBROUTINE (EXCEPT /CRDFLG/ *\r\nC     * AND /INTEXT/ WHICH USE COMMON CODE)  DUPE THE SPECIFICATION    *\r\nC     * STMTS FOR EACH SUB                                             *\r\nC     ******************************************************************\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      INTEGER KBMSK1(8),SFT(4),NRECPS(2),CON(38),MK(4),C10C(7),EXTAB(37)\r\nC\r\nC     ENTRY XFADJ (BF,SD,KK)\r\nC     * XFADJ ADJUSTS 4 CHARACTER FIELDS, LEFT OR RIGHT, 2 OR 4 FIELDS\r\nC       AT A TIME - IF FIELDS CONTAIN ONLY INTEGERS 0 THRU 9, SHIFT IS\r\nC       RIGHT, OTHERWISE SHIFT IS LEFT  / BF= ADDR OF LEFT MOST FIELD /\r\nC       SD= 0 SINGLE (2 FIELDS), 1 DOUBLE (4 FIELDS).  THIS ROUTINE\r\nC       DETERMINES ONLY TYPE OF SHIFT NEEDED, SHIFTING IS DONE BY XFADJ1\r\nC       KK IS RETURNED EQUAL TO 0 FOR INTEGER, 1 FOR NON-INTEGER\r\nC\r\n      INTEGER BF(1)\r\nC\r\nC     ENTRY XBCDBI (BA)\r\nC     * XBCDBI CONVERTS 2, 4 CHARACTER BCD INTEGER FIELDS (RIGHT\r\nC       ADJUSTED IN THE LEFT MOST 4 CHAR) INTO A SINGLE FORTRAN BINARY\r\nC       INTEGER (RIGHT ADJUSTED IN THE WORD IN THE RIGHT FIELD)\r\nC       BA= ADDR OF LEFT FIELD\r\nC\r\n      INTEGER BA(2)\r\nC\r\nC     ENTRY XPRETY (BFF)\r\nC     * ROUTINE PRETTIES UP SORT OUTPUT BY LEFT ADJUSTING ALL FIELDS\r\nC\r\n      INTEGER BFF(2)\r\nC\r\nC     ENTRY CRDFLG (CARD)\r\nC     * ROUTINE SETS CARD TYPE FLAGS IN RESTART TABLES\r\nC       CONVERTS TO EXTERNAL CODE FIRST\r\nC       IF CARD TYPE IS PARAM, SET FLAG FOR PARAM NAME (FIELD 2)\r\nC\r\n      INTEGER CARD(4)\r\nC\r\nC     ENTRY EXTINT (EXTWRD)\r\nC     * ROUTINE CONVERTS FROM EXTERNAL MACHINE DEPENDENT CHARACTER CODES\r\nC       TO AN INTERNAL MACHINE INDEPENDENT INTEGER\r\nC\r\n      INTEGER EXTWRD(1)\r\nC\r\nC     ENTRY INTEXT (INTWRD)\r\nC     * ROUTINE CONVERTS FROM INTERNAL MACHINE INDEPENDENT INTEGERS TO\r\nC       AN EXTERNAL MACHINE DEPENDENT CHARACTER CODE\r\nC\r\n      INTEGER INTWRD(2)\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         DEC\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ B,OUTTAP,D1(6),NLPP,D2(2),LCNT,D3(26),\r\n     1                NBPC,NBPW,NCPW\r\n      COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2),\r\n     1                BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4),\r\n     2                ICON1,ICON2,STAR,PLUS,DOLLAR,STARL,SLASH,SFTM,\r\n     3                MASK,BLANK,MKA,IS,MBIT4\r\n      COMMON /TWO   / ITWO(32)\r\n      COMMON /IFPX0 / LBD,LCC,IBITS(1)\r\n      COMMON /IFPX1 / NUM,ICARDS(2)\r\n      EQUIVALENCE     (SFT(1),SHIFTS(1)),(MK(1),BIMSK3(1)),\r\n     1                (SFT1,SHIFTS(2)),(EXTAB(1),CON(1))\r\n      DATA ITAPE4/304/,NRECPS/4HXREC,4HPS  /\r\n      DATA CON/4H    ,4H   0,4H   1,4H   2,4H   3,4H   4,4H   5,4H   6,\r\n     1  4H   7,4H   8,4H   9,4H   A,4H   B,4H   C,4H   D,4H   E,4H   F,\r\n     2  4H   G,4H   H,4H   I,4H   J,4H   K,4H   L,4H   M,4H   N,4H   O,\r\n     3  4H   P,4H   Q,4H   R,4H   S,4H   T,4H   U,4H   V,4H   W,4H   X,\r\n     4  4H   Y,4H   Z,4H              /\r\n      DATA C10C/10,100,1000,10000,100000,1000000,10000000/\r\n      DATA PAR1,PAR2/4HPARA,4HM       /\r\n      DATA KPRET1,KPRET2/4H.   ,4H0.0 /\r\nC\r\n      DATA KBMSK1 / 4H0000, 4H000$, 4H00$$, 4H0$$$,\r\n     1              4H$$$ , 4H$$  , 4H$   , 4H            /\r\n      DATA ISTR   , ISTRL , IPLS  , IDOLLR, ISLSH , IZERO /\r\n     1     4H   * , 4H*   , 4H+   , 4H$   , 4H/   , 4H0   /\r\nC\r\nC\r\nC     THE ARRAYS IN /XSRTCM/ WILL BE SET BY INITO AS FOLLOWS\r\nC\r\nC                           VAX\r\nC                    CDC    IBM   UNIVAC\r\nC        SHIFTS(1) =  0      0      0\r\nC        SHIFTS(2) =  6      8      9\r\nC        SHIFTS(3) = 12     16     18\r\nC        SHIFTS(4) = 18     24     27\r\nC        SFTM      = 36      0      0\r\nC\r\nC                      ----------- BYTE --------------\r\nC                      1ST   2ND   3RD   4TH   5TH,...\r\nC        BIMSK1(1) = / 777 / 777 / 777 / 000 / 00..        CDC USES /77/\r\nC        BIMSK1(2) = / 777 / 777 / 000 / 000 / 00..        INSTEAD OF\r\nC        BIMSK1(3) = / 777 / 000 / 000 / 000 / 00..        /777/ IN A\r\nC        BIMSK1(4) = / 000 / 000 / 000 / 777 / 00..        BYTE\r\nC        BIMSK1(5) = / 000 / 000 / 777 / 777 / 00..\r\nC        BIMSK1(6) = / 000 / 777 / 777 / 777 / 00..\r\nC\r\nC        BIMSK2(1) = / 777 / 777 / 777 / 777 / 77.. (FOR CDC ONLY)\r\nC                  = / 377 / 777 / 777 / 777 / 00.. (FOR IBM,VAX,UNIVAC)\r\nC        BIMSK2(2) = / 777 / 777 / 777 / 000 / 77..\r\nC        BIMSK2(3) = / 777 / 777 / 000 / 000 / 77..\r\nC        BIMSK2(4) = / 777 / 000 / 000 / 000 / 77..\r\nC        BIMSK2(5) = / 000 / 000 / 000 / 000 / 77..\r\nC\r\nC        BIMSK3(1) = / 777 / 000 / 000 / 000 / 00..\r\nC        BIMSK3(2) = / 000 / 777 / 000 / 000 / 00..\r\nC        BIMSK3(3) = / 000 / 000 / 777 / 000 / 00..\r\nC        BIMSK3(4) = / 000 / 000 / 000 / 777 / 00..\r\nC\r\nC        BIMSK4(1) = / 000 / 777 / 777 / 777 / 77..\r\nC        BIMSK4(2) = / 777 / 000 / 777 / 777 / 77..\r\nC        BIMSK4(3) = / 777 / 777 / 000 / 777 / 77..\r\nC        BIMSK4(4) = / 777 / 777 / 777 / 000 / 77..\r\nC\r\nC        BIMSK5(1) = / 377 / 777 / 777 / 777 / 00..\r\nC        BIMSK5(2) = / 377 / 777 / 777 / 000 / 00..\r\nC        BIMSK6    = / 000 / 000 / 000 / 000 / 77..\r\nC\r\nC        IS        = / 400 / 000 / 000 / 000 / 77..\r\nC        MKA       = / 000 / 000 / 000 / 777 / 77..\r\nC        MASK      = 4TH OR 10TH BYTE IS /777/, ZERO FILLED\r\nC        BLANK     = 4TH OR 10TH BYTE IS BLANK, ZERO FILLED\r\nC\r\nC     ARRAY BKMSK1 IS SAME AS KBMSK1 EXCEPT THAT THE DOLLARS ARE\r\nC     REPLACED BY BINARY ZEROS\r\nC     SIMILARY, THE BLANKS IN ISTR,ISTRL,IPLS,IDOLLR,ISLSH, AND ARRAY\r\nC     CON ARE ALSO REPLACED BY BINARY ZEROS.\r\nC     ICON1 AND ICON2 ARE LEFT ADJUSTED CON(1) AND CON(2), ZERO FILLED.\r\nC\r\nC     THIS ROUTINE POSITIONS ITAPE4 TO THE PROPER CONTINUATION RECORD\r\nC\r\n      DEC  = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IF (INEW .NE. 1) GO TO 10\r\n      CALL REWIND (ITAPE4)\r\n      IOLD = 2\r\n      RETURN\r\nC\r\n   10 IDIF = INEW - IOLD\r\n      IF (IDIF) 50,20,30\r\n   20 IOLD = INEW + 1\r\n      RETURN\r\nC\r\n   30 DO 40 I = 1,IDIF\r\n      CALL FWDREC (*65,ITAPE4)\r\n   40 CONTINUE\r\n      GO TO 20\r\n   50 IDIF = IABS(IDIF)\r\n      DO 60 I = 1,IDIF\r\n      CALL BCKREC (ITAPE4)\r\n   60 CONTINUE\r\n      GO TO 20\r\n   65 WRITE  (OUTTAP,66) SFM\r\n   66 FORMAT (A25,' 217, ILLEGAL EOF ON ITAPE4.')\r\n      CALL MESAGE (-37,0,NRECPS)\r\n      RETURN\r\nC\r\nC     INITIALIZES BCD CONSTANTS FOR USE WITHIN SORT\r\nC\r\n      ENTRY INITCO\r\nC     ============\r\nC\r\nC     INITIALIZE (CREATE) BINARY CHARACTER MASKS\r\nC\r\n      DEC       = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      SHIFTS(1) = 0\r\n      SHIFTS(2) = NBPC\r\n      SHIFTS(3) = NBPC*2\r\n      SHIFTS(4) = NBPC*3\r\n      MBITS     = COMPLF(0)\r\n      SFTM      = (NCPW-4)*NBPC\r\n      MBIT4     = LSHIFT(MBITS,SFTM)\r\n      BIMSK1(1) = LSHIFT(MBIT4,NBPC)\r\n      BIMSK1(2) = LSHIFT(BIMSK1(1),NBPC)\r\n      BIMSK1(3) = LSHIFT(BIMSK1(2),NBPC)\r\n      BIMSK1(4) = RSHIFT(BIMSK1(3),NBPC*3)\r\n      BIMSK1(5) = RSHIFT(BIMSK1(2),NBPC*2)\r\n      BIMSK1(6) = RSHIFT(BIMSK1(1),NBPC)\r\n      BIMSK2(1) = MBITS\r\n      BIMSK2(2) = COMPLF(BIMSK1(4))\r\n      BIMSK2(3) = COMPLF(BIMSK1(5))\r\n      BIMSK2(4) = COMPLF(BIMSK1(6))\r\n      BIMSK2(5) = RSHIFT(MBITS,NBPC*4)\r\n      BIMSK3(4) = BIMSK1(4)\r\n      BIMSK3(3) = LSHIFT(BIMSK3(4),NBPC)\r\n      BIMSK3(2) = LSHIFT(BIMSK3(3),NBPC)\r\n      BIMSK3(1) = BIMSK1(3)\r\n      BIMSK4(1) = COMPLF(BIMSK3(1))\r\n      BIMSK4(2) = COMPLF(BIMSK3(2))\r\n      BIMSK4(3) = COMPLF(BIMSK3(3))\r\n      BIMSK4(4) = COMPLF(BIMSK3(4))\r\n      BIMSK5(1) = RSHIFT(BIMSK2(1),1)\r\n      BIMSK5(2) = RSHIFT(LSHIFT(BIMSK2(2),1),1)\r\n      BIMSK6    = BIMSK2(5)\r\n      IF (MACH.EQ.2 .OR. DEC) BIMSK2(1) = BIMSK5(1)\r\nC\r\nC     NEXT CARD FOR UNIVAC ASCII VERSION ONLY (NOT FORTRAN 5)\r\nC\r\n      IF (MACH .EQ. 3) BIMSK2(1) = BIMSK5(1)\r\n      MASK  = RSHIFT(BIMSK3(4),SFTM)\r\n      BLANK = RSHIFT(KBMSK1(8),(3*NBPC+SFTM))\r\n      IS    = COMPLF(BIMSK5(1))\r\n      MKA   = ORF(BIMSK3(4),BIMSK6)\r\nC\r\nC     INITIALIZE THE BCD BLANK DATA\r\nC\r\n      IF (DEC) GO TO 92\r\nC\r\nC     IBM, CDC, UNIVAC\r\nC\r\n      BKMSK1(1) = KBMSK1(1)\r\n      BKMSK1(2) = ANDF(KBMSK1(2),BIMSK2(2))\r\n      BKMSK1(3) = ANDF(KBMSK1(3),BIMSK2(3))\r\n      BKMSK1(4) = ANDF(KBMSK1(4),BIMSK2(4))\r\n      BKMSK1(5) = ANDF(KBMSK1(5),ORF(BIMSK1(4),BIMSK6))\r\n      BKMSK1(6) = ANDF(KBMSK1(6),ORF(BIMSK1(5),BIMSK6))\r\n      BKMSK1(7) = ANDF(KBMSK1(7),ORF(BIMSK1(6),BIMSK6))\r\n      BKMSK1(8) = KBMSK1(8)\r\n      BKMSK2    = ANDF(BKMSK1(1),BIMSK6)\r\n      STAR      = ANDF(ISTR  ,ORF(BIMSK1(4),BIMSK6))\r\n      PLUS      = ANDF(IPLS  ,BIMSK2(4))\r\n      DOLLAR    = ANDF(IDOLLR,BIMSK2(4))\r\n      STARL     = ANDF(ISTRL ,BIMSK2(4))\r\n      SLASH     = ANDF(ISLSH ,BIMSK2(4))\r\n      DO 90 I = 1,38\r\n   90 CON(I) = ANDF(CON(I),BIMSK3(4))\r\n      ICON1  = LSHIFT(CON(1),SFT(4)-1)\r\n      ICON2  = LSHIFT(CON(2),SFT(4)-1)\r\n      RETURN\r\nC\r\nC     VAX\r\nC\r\n   92 BKMSK2    = 0\r\n      BKMSK1(1) = KBMSK1(1)\r\n      BKMSK1(2) = KHRFN3(BKMSK2,KBMSK1(2),-1,1)\r\n      BKMSK1(3) = KHRFN3(BKMSK2,KBMSK1(3),-2,1)\r\n      BKMSK1(4) = KHRFN3(BKMSK2,KBMSK1(4),-3,1)\r\n      BKMSK1(5) = KHRFN3(BKMSK2,KBMSK1(5),-3,0)\r\n      BKMSK1(6) = KHRFN3(BKMSK2,KBMSK1(6),-2,0)\r\n      BKMSK1(7) = KHRFN3(BKMSK2,KBMSK1(7),-1,0)\r\n      BKMSK1(8) = KBMSK1(8)\r\n      STAR      = KHRFN1(BKMSK2,4,ISTR  ,4)\r\n      PLUS      = KHRFN1(BKMSK2,1,IPLS  ,1)\r\n      DOLLAR    = KHRFN1(BKMSK2,1,IDOLLR,1)\r\n      STARL     = KHRFN1(BKMSK2,1,ISTRL ,1)\r\n      SLASH     = KHRFN1(BKMSK2,1,ISLSH ,1)\r\n      DO 95 I = 1,38\r\n   95 CON(I) = KHRFN1(BKMSK2,4,CON(I),4)\r\n      ICON1  = RSHIFT(KHRFN1(BKMSK2,1,CON(1),4),1)\r\n      ICON2  = RSHIFT(KHRFN1(BKMSK2,1,CON(2),4),1)\r\n      RETURN\r\nC\r\nC\r\n      ENTRY XFADJ (BF,SD,KK)\r\nC     ======================\r\nC\r\nC     DATA SFT /0,6,12,18/\r\nC     DATA MK  /O770000000000,O007700000000,O000077000000,O000000770000/\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      II  = 2\r\n      IF (SD .EQ. 1) II = 4\r\n      DO 400 I = 1,II\r\n      BFI = BF(I)\r\n      DO 300 J = 1,4\r\n      JI  = 5 - J\r\n      IF (.NOT.DEC) TEST = RSHIFT(ANDF(BFI,MK(J)),SFT(JI))\r\n      IF (     DEC) TEST = KHRFN1(BKMSK2,4,BFI,J)\r\n      DO 100 K = 1,11\r\n      IF (TEST .EQ. CON(K)) GO TO 200\r\n  100 CONTINUE\r\nC\r\nC     CHARACTER NON-INTEGER\r\nC\r\n      CALL XFADJ1 (BF,LSHIFT,SD)\r\n      KK = 1\r\n      RETURN\r\nC\r\n  200 IF (K .EQ. 1) GO TO 300\r\nC\r\nC     CHARACTER INTEGER\r\nC\r\n      CALL XFADJ1 (BF,RSHIFT,SD)\r\n      KK = 0\r\n      RETURN\r\nC\r\n  300 CONTINUE\r\n  400 CONTINUE\r\nC\r\nC     ALL FIELDS BLANK\r\nC\r\n      KK = 0\r\n      RETURN\r\nC\r\nC\r\n      ENTRY XBCDBI (BA)\r\nC     =================\r\nC\r\nC     DATA SFT1/6/,SFTM/12/,MASK/O77/,BLANK/O60/\r\nC\r\nC     IF MACHINE IS VAX-11/780, ORDER OF CHARACTERS IN A WORD IS REVERSE\r\nC     OF THAT ON OTHER MACHINES.  THE CHARACTER ORDER MUST THEREFORE BE\r\nC     REVERSED BEFORE DECODING TO AN INTEGER VALUE.\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IF (.NOT.DEC) GO TO 430\r\n      DO 420 IBA = 1,2\r\n      ITEMP = 0\r\n      DO 410 IVAX = 1,4\r\n      JTEMP = RSHIFT(BA(IBA),8*(IVAX-1))\r\n      JTEMP = ANDF(MASK,JTEMP)\r\n      JTEMP = LSHIFT(JTEMP,8*(4-IVAX))\r\n      ITEMP = ORF(ITEMP,JTEMP)\r\n  410 CONTINUE\r\n      BA(IBA) = ITEMP\r\n  420 CONTINUE\r\nC\r\n  430 CONTINUE\r\n      BA(1) = RSHIFT(BA(1),SFTM)\r\n      BA(2) = RSHIFT(BA(2),SFTM)\r\n      IVAR  = ANDF(BA(2),MASK)\r\n      IF (IVAR .NE. BLANK) GO TO 490\r\n      BA(2) = 0\r\n      RETURN\r\nC\r\n  490 IF (MACH .EQ. 4) IVAR = IVAR - 27\r\n      IVAR  = ANDF(IVAR,15)\r\n      DO 500 I = 1,3\r\n      BA(2) = RSHIFT(BA(2),SFT1)\r\n      ICHAR = ANDF(BA(2),MASK)\r\n      IF (MACH .EQ. 4) ICHAR = ICHAR - 27\r\n  500 IVAR  = IVAR + C10C(I)*ANDF(15,ICHAR)\r\n      ICHAR = ANDF(BA(1),MASK)\r\n      IF (MACH .EQ. 4) ICHAR = ICHAR - 27\r\n      IVAR  = IVAR + C10C(4)*ANDF(15,ICHAR)\r\n      DO 510 I = 5,7\r\n      BA(1) = RSHIFT(BA(1),SFT1)\r\n      ICHAR = ANDF(BA(1),MASK)\r\n      IF (MACH .EQ. 4) ICHAR = ICHAR - 27\r\n  510 IVAR  = IVAR + C10C(I)*ANDF(15,ICHAR)\r\n      BA(2) = IVAR\r\n      RETURN\r\nC\r\nC\r\n      ENTRY XPRETY (BFF)\r\nC     ==================\r\nC\r\nC     DATA  MKA/O000000777777/, STAR/4H000*/\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IF (.NOT.DEC) ITST = ANDF(MKA,BFF(2))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,4,BFF(2),4)\r\n      IF (ITST .EQ. STAR) GO TO 610\r\n      DO 600 I = 3,17,2\r\n      IF (BFF(I).EQ.BKMSK1(8) .AND. BFF(I+1).EQ.BKMSK1(8)) GO TO 600\r\n      CALL XFADJ1 (BFF(I),LSHIFT,0)\r\n      IF (BFF(I) .EQ. KPRET1) BFF(I) = KPRET2\r\n      IF (BFF(I) .NE. BKMSK1(8)) GO TO 600\r\n      IF (.NOT.DEC) BFF(I) = ORF(RSHIFT(BFF(I),SFT(2)),BKMSK1(4))\r\n      IF (     DEC) BFF(I) = KHRFN3(IZERO,BFF(I),1,0)\r\n  600 CONTINUE\r\n      RETURN\r\nC\r\n  610 DO 620 I = 3,15,4\r\n      IF (BFF(I).EQ.BKMSK1(8) .AND. BFF(I+1).EQ.BKMSK1(8) .AND.\r\n     1    BFF(I+2).EQ.BKMSK1(8) .AND. BFF(I+3).EQ.BKMSK1(8)) GO TO 620\r\n      CALL XFADJ1 (BFF(I),LSHIFT,1)\r\n      IF (BFF(I) .EQ. KPRET1) BFF(I) = KPRET2\r\n      IF (BFF(I) .NE. BKMSK1(8)) GO TO 620\r\n      IF (.NOT.DEC) BFF(I) = ORF(RSHIFT(BFF(I),SFT(2)),BKMSK1(4))\r\n      IF (     DEC) BFF(I) = KHRFN3(IZERO,BFF(I),1,0)\r\n  620 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n      ENTRY CRDFLG (CARD)\r\nC     ===================\r\nC\r\n      DEC    = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      INWRDI = CARD(1)\r\n      KARD2  = CARD(2)\r\n      KBRN   = -1\r\n      ASSIGN 640 TO IRET\r\n      GO TO 770\r\n  640 IF (.NOT.DEC) KARD2 = ORF(ANDF(BIMSK1(1),KARD2),BKMSK1(5))\r\n      IF (     DEC) KARD2 = KHRFN1(KARD2,4,BKMSK1(8),4)\r\n      IF (KARD1.NE.PAR1 .OR. KARD2.NE.PAR2) GO TO 645\r\n      KARD1 = CARD(3)\r\n      KARD2 = CARD(4)\r\n  645 LMT   = NUM* 2\r\n      DO 650 I = 1,LMT,2\r\n      IF (KARD1.EQ.ICARDS(I) .AND. KARD2.EQ.ICARDS(I+1)) GO TO 660\r\n  650 CONTINUE\r\n      RETURN\r\nC\r\n  660 J = I/2\r\n      ICYCL = (J/31) + 1\r\n      IPOS  = MOD(J,31) + 2\r\n      IBITS(ICYCL) = ORF(IBITS(ICYCL),ITWO(IPOS))\r\n      RETURN\r\nC\r\nC\r\n      ENTRY EXTINT (EXTWRD)\r\nC     =====================\r\nC\r\n      DEC = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      DO 750 I = 1,2\r\n      EXWRDI = EXTWRD(I)\r\n      DO 730 J = 1,4\r\n      JI = 5 - J\r\n      SFTJI = SFT(JI)\r\n      IF (.NOT.DEC) TEST = RSHIFT(ANDF(EXWRDI,MK(J)),SFTJI)\r\n      IF (     DEC) TEST = KHRFN1(BKMSK2,4,EXWRDI,J)\r\n      DO 710 K = 1,37\r\n      IF (TEST .EQ. EXTAB(K)) GO TO 720\r\n  710 CONTINUE\r\n      K = 1\r\n      GO TO 740\r\n  720 IF (.NOT.DEC)\r\n     1   EXWRDI = ORF(ANDF(EXWRDI,BIMSK4(J)),LSHIFT(K,SFTJI+SFTM))\r\n      IF (DEC) EXWRDI = KHRFN1(EXWRDI,J,K,-1)\r\n      IF (K .EQ. 1) GO TO 740\r\n  730 CONTINUE\r\n  740 EXTWRD(I) = EXWRDI\r\n      IF (K .EQ. 1) RETURN\r\n  750 CONTINUE\r\n      RETURN\r\nC\r\nC\r\n      ENTRY INTEXT (INTWRD)\r\nC     =====================\r\nC\r\n      DEC    = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      ASSIGN 800 TO IRET\r\n      INWRDI = INTWRD(1)\r\n      KBRN   = 0\r\n  770 DO 780 J = 1,4\r\n      JI     = 5 - J\r\n      SFTJI  = SFT(JI)\r\n      IF (.NOT.DEC) TEST = RSHIFT(ANDF(INWRDI,MK(J)),SFTJI+SFTM)\r\n      IF (     DEC) TEST = KHRFN1(BKMSK2,-1,INWRDI,J)\r\n      IF (TEST .GT. 37) GO TO 781\r\n      IF (.NOT.DEC)\r\n     1   INWRDI = ORF(ANDF(INWRDI,BIMSK4(J)),LSHIFT(EXTAB(TEST),SFTJI))\r\n      IF (DEC) INWRDI = KHRFN1(INWRDI,J,EXTAB(TEST),4)\r\n      IF (TEST .EQ. 1) GO TO 781\r\n  780 CONTINUE\r\n  781 IF (KBRN) 782,784,786\r\n  782 KARD1  = INWRDI\r\n      INWRDI = CARD(2)\r\n      KBRN   = +2\r\n      GO TO 810\r\n  784 INTWRD(1) = INWRDI\r\n      INWRDI = INTWRD(2)\r\n      KBRN = +1\r\n      GO TO 810\r\n  786 IF (KBRN .EQ. 1) GO TO 788\r\n      KARD2 = INWRDI\r\n      GO TO 790\r\n  788 INTWRD(2) = INWRDI\r\n  790 GO TO IRET, (800,640)\r\n  800 RETURN\r\nC\r\n  810 IF (TEST.EQ.1 .OR. TEST.GT.37) GO TO 790\r\n      GO TO 770\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/xrgdcf.f",
    "content": "      SUBROUTINE XRGDCF (IRESTB)\r\nC\r\nC     PURPOSE - XRGDCF PROCESSES THE '****CARD', '****FILE' AND\r\nC               '****RFMT' CONTROL CARDS WITHIN THE RIGID DMAP\r\nC               DATA BASE.\r\nC\r\nC     AUTHOR  - RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       /SYSTEM/\r\nC         NOUT         UNIT NUMBER FOR THE OUTPUT PRINT FILE\r\nC       /XRGDXX/\r\nC         NUM          VALUE OF THE NUMBER OR RANGE OF NUMBERS\r\nC                      IN THE CURRENT FIELD BEING PROCESSED\r\nC\r\nC     OUTPUT\r\nC       ARGUMENTS\r\nC         IRESTB       THE MODULE EXECUTION DECISION TABLE\r\nC       OTHER\r\nC         /XRGDXX/\r\nC           ICOL       CURRENT COLUMN NUMBER BEING PROCESSED IN\r\nC                      THE CARD\r\nC           IERROR     ERROR FLAG - NON-ZERO IF AN ERROR OCCURRS\r\nC\r\nC     LOCAL VARIABLES\r\nC       IBIT           BIT NUMBER FOR FLAG IN THE MODULE EXEC. DEC.\r\nC                      TABLE\r\nC       IEND           LAST NUMBER OF RANGE OF NUMBERS READ FROM\r\nC                      THE CURRENT FIELD\r\nC       ISTR           SAME AS IEND EXCEPT FIRST NUMBER\r\nC       IWORD          SAME AS IBIT BUT REFERS TO THE WORD NUMBER\r\nC\r\nC     FUNCTIONS\r\nC       XRGDCF PROCESSES THE ABOVE TYPES OF CARDS WHICH ALL HAVE\r\nC       FORMATS AS FOLLOWS:  '****XXXX   M1,M2,..'\r\nC       WHERE M- IS IN ANY OF THE FOLLOWING FORMS ( NNN  OR NNN-NNN).\r\nC       NNN IS AN INTEGER NUMBER AND THE '-' REFERS TO A RANGE\r\nC       WHERE THE RANGE MUST BE IN ASCENDING ORDER.\r\nC       XRGDCF CALLS XDCODE TO CONVERT THE CARD IMAGE TO 80A1 AND\r\nC       CALLS XRGDEV TO VALIDATE THE SYNTAX AND TO GET A M-\r\nC       ENTRY FROM THE CARD.  BASED ON THE VALUE(S) RETURNED IN\r\nC       NUM, THE CORRESPONDING BITS ARE TURNED ON IN THE MODULE\r\nC       EXECUTION DECISION TABLE.  PROCESSING CONTINUES UNTIL ALL\r\nC       FIELDS OF THE CARD HAVE BEEN PROCESSED.\r\nC\r\nC\r\nC     SUBROUTINES CALLED - XDCODE, XRGDEV\r\nC\r\nC     CALLING SUBROUTINES - XRGRFM\r\nC\r\nC     ERRORS - NONE\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         RECORD, ORF   , IRESTB(7)\r\n      COMMON /SYSTEM/ ISYSBF, NOUT  , DUM(98)\r\n      COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL   , NUMBER, ITYPE ,\r\n     1                ISTATE, IERROR, NUM(2), IND    , NUMENT        ,\r\n     2                RECORD(20)    , ICHAR(80)      , LIMIT(2)      ,\r\n     3                ICOUNT, IDMAP , ISCR  , NAME(2), MEMBER(2)     ,\r\n     4                IGNORE\r\nC\r\n      IERROR = 0\r\n      ICOL   = 9\r\n      CALL XDCODE\r\n 10   CALL XRGDEV\r\n      IF (IERROR .NE. 0 .OR. ICOL .GT. 80) GO TO 30\r\n      ISTR   = NUM(1)\r\n      IEND   = NUM(2)\r\n      DO 20 K = ISTR,IEND\r\n      IWORD = (K-1)/31\r\n      IBIT  = 2**(31*IWORD + 31 - K)\r\n      IRESTB(IWORD+1) = ORF(IRESTB(IWORD+1),IBIT)\r\n 20   CONTINUE\r\n      ICOL = ICOL + 1\r\n      GO TO 10\r\n 30   CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgdev.f",
    "content": "      SUBROUTINE XRGDEV\r\nC\r\nC     PURPOSE - XRGDEV PROCESSES A FIELD FROM A ****CARD, ****FILE,\r\nC               ****SBST, OR A ****RFMT CARD FROM THE RIGID FORMAT\r\nC               DATA BASE\r\nC\r\nC     AUTHOR  - RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC      /SYSTEM/\r\nC       NOUT    UNIT NUMBER FOR OUTPUT PRINT FILE\r\nC      /XRGDXX/\r\nC       ICOL    COLUMN CONTAINING THE FIRST CHARACTER OF THE FIELD\r\nC       LIMIT   2 WORD ARRAY CONTAINING THE LOWER/UPPER LIMITS FOR\r\nC               VALUES GIVEN IN THE FIELD\r\nC       NUMBER  INTEGER VALUE FOR A ALPHA NUMBER WITHIN THE FIELD\r\nC       RECORD  ARRAY IN 20A4 FORMAT CONTAINING THE CARD IMAGE\r\nC\r\nC     OUTPUT\r\nC      /XRGDXX/\r\nC       IERROR  ERROR FLAG IS NON-ZERO IF AN ERROR OCCURRED\r\nC       NUM     2 WORD ARRAY CONTAINING THE VALUE(S) WITHIN THE CURRENT\r\nC               FIELD\r\nC\r\nC     LOCAL VARIABLES\r\nC       IND     INDEX TO THE ARRAY NUM\r\nC       ISTATE  NEXT STATE (ROW = IN THE ABOVE DATA STATEMENT) TO BE\r\nC               USED FOR SYNTAX VALIDATION BASED ON THE TYPE OF THE NEXT\r\nC               CHARACTER IN THE FIELD\r\nC       ISTR    COLUMN CONTAINING THE FIRST CHARACTER WITHIN THE FIEL\r\nC       K       DO LOOP INDEX FOR SCANING CHARACTERS WITHIN THE FIELD\r\nC       STATE   TABLE USED TO VALIDATE THE SYNTAX OF THE FIELD.  THE\r\nC               NUMBER IN EACH ENTRY INDICATES THE ROW TO BE USED FOR\r\nC               VALIDATING THE SYNTAX OF THE NEXT CHARACTER.  IF THE\r\nC               VALUE IS 0 THEN A SYNTAX ERROR OCCURRED.\r\nC\r\nC     FUNCTIONS\r\nC     XRGDEV SCANS THE FIELD FOR SYNTAX ERRORS AND FOR PLACING THE NUMBE\r\nC     INTO THE NUM ARRAY.  VALID FIELDS ARE OF THE FORM 'NNN,' OR\r\nC     'NNN-NNN,' WITH EMBEDDED BLANKS ALLOWED AND NUMBERS MAY BE OF\r\nC     ANY VALUE THAT IS WITHIN THE LIMITS OF THE ARRAY LIMIT.\r\nC\r\nC     SUBROUTINES CALLED - XRGDTP\r\nC\r\nC     CALLING SUBROUTINES - XRGSUB,XRGDCF\r\nC\r\nC     ERRORS\r\nC       ERROR MESSAGES 8021 AND 8022 ARE GIVEN FOR SYNTAX OR VALUE RANGE\r\nC       ERRORS.\r\nC\r\n      INTEGER         RECORD, STATE(5,7)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL  , NUMBER, ITYPE ,\r\n     1                ISTATE, IERROR, NUM(2), IND   , NUMENT        ,\r\n     2                RECORD(20)    , ICHAR(80)     , LIMIT(2)      ,\r\n     3                ICOUNT, IDMAP , ISCR  , NAME(2),MEMBER(2)     ,\r\n     4                IGNORE\r\n      COMMON /SYSTEM/ ISYSBF, NOUT  , DUM(98)\r\nC                   NUMBER  ,      -    BLANK    OTHER\r\n      DATA    STATE / 1,   2,      3,      6,      0,\r\n     2                1,   0,      0,      2,      0,\r\n     3                4,   0,      0,      3,      0,\r\n     4                4,   2,      0,      5,      0,\r\n     5                0,   2,      0,      5,      0,\r\n     6                0,   2,      3,      6,      0,\r\n     7                1,   0,      0,      7,      0 /\r\nC\r\n      IF (ICOL .GT. 80) GO TO 110\r\n      ISTATE = 7\r\n      IND    = 1\r\n      NUM(1) = 0\r\n      ISTR   = ICOL\r\n      DO 50 K = ISTR,80\r\n      ICOL = K\r\n      CALL XRGDTP\r\n      ISTATE = STATE(ITYPE,ISTATE)\r\n      IF (ISTATE .NE. 0) GO TO 20\r\n      IERROR = 1\r\n      J = 0\r\n      WRITE  (NOUT,10) UFM,K,RECORD,J,(I,I=1,8),IERROR,(J,I=1,8)\r\n 10   FORMAT (A23,' 8020, SYNTAX ERROR NEAR COLUMN ',I3,\r\n     2       ' IN THE FOLLOWING CARD- ',/20X,20A4, /,(20X,I1,I9,7I10))\r\n      GO TO 110\r\n 20   GO TO (30,60,40,30,50,50,50), ISTATE\r\n 30   NUM(IND) = NUM(IND)*10 + NUMBER\r\n      GO TO 50\r\n 40   IND    = 2\r\n      NUM(2) = 0\r\n 50   CONTINUE\r\n 60   IF (IND .EQ. 2) GO TO 70\r\n      NUM(2) = NUM(1)\r\n      GO TO 90\r\n 70   IF (NUM(2) .GT. NUM(1)) GO TO 90\r\n      IERROR = 1\r\n      WRITE  (NOUT,80) UFM,NUM(1),NUM(2),RECORD\r\n 80   FORMAT (A23,' 8021, NON-INCREASING RANGE ',I3,1H-,I3,\r\n     1       ' IN THE FOLLOWING CARD -', /20X,20A4)\r\n 90   CONTINUE\r\n      IF (NUM(1).GE.LIMIT(1) .AND. NUM(2).LE.LIMIT(2)) GO TO 110\r\n      WRITE  (NOUT,100) UFM,LIMIT,RECORD\r\n 100  FORMAT (A23,' 8022, NUMBERS ARE OUT OF THE RANGE ',I3,1H-,I3,\r\n     1       ' IN THE FOLLOWING CARD - ', /20X,20A4)\r\n      IERROR = 1\r\n 110  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgdfm.f",
    "content": "      SUBROUTINE XRGDFM (NEWSOL,OLDSOL,IAPP,IUFILE,IOPEN,ISIZE,ISCR,\r\n     1                   NOGO)\r\nC\r\nC     XRGDFM READS AND PROCESSES RIGID FORMATS\r\nC\r\nC     WRITTEN BY  RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       ARGUMENTS\r\nC         IAPP        =1, FOR DMAP APPROACH; =2, DISPLACEMENT APPRAOCH\r\nC                     =3, HEAT APPROACH    ; =4, AERO APPROACH\r\nC         IOPEN       ARRAY FROM OPEN CORE TO CONTAIN THE MODULE\r\nC                     EXECUTION DECISION TABLE\r\nC         ISIZE       NUMBER OF WORDS AVAILABLE IN THE IOPEN ARRAY\r\nC         IUFILE      NAME OF USER'S FILE CONTAINING THE RIGID FORMAT\r\nC         NEWSOL      ARRAY CONTAINING THE SOLUTION NUMBER FOLLOWED\r\nC                     BY ALL SUBSET NUMBERS GIVEN BY THE USER\r\nC         OLDSOL      SOLUTION ON PREVIOUS RUN IF THIS IS A RESTART\r\nC       OTHER\r\nC       /XRGDXX/\r\nC         IRESTR      RESTART FLAG - NON-ZERO IF RUN IS A RESTART\r\nC         NSUBST      NUMBER OF SUBSETS GIVEN BY THE USER\r\nC         RECORD      ARRAY CONTAINING THE CARD IMAGE IN 20A4 FORMAT\r\nC       /SYSTEM/\r\nC         IDATE       ARRAY CONTAINING MONTH AND YEAR OF NASTRAN LEVEL\r\nC         OPTAPE      UNIT USED FOR THE OUTPUT PRINT FILE\r\nC       /TWO/\r\nC         TWO         ARRAY CONTAINING THE VALUES OF THE POWERS OF 2.\r\nC       /MEDMSK/\r\nC         N1          NUMBER OF WORDS USED FOR THE CARD NAME RESTART\r\nC                     TABLE\r\nC         N2          NUMBER OF WORDS USED FOR THE FILE NAME RESTART\r\nC                     TABLE\r\nC         N3          NUMBER OF WORDS USED FOR THE RIGID FORMAT\r\nC                     CHANGE RESTART TABLE\r\nC\r\nC     OUTPUT\r\nC       ARGUMENTS\r\nC         IOPEN       ARRAY CONTAINING THE MODULE EXECUTION DECISION\r\nC                     TABLE\r\nC       OTHER\r\nC         /MEDMSK/\r\nC           MEDMSK    MODULE EXECUTION DECISION MASK - SET IF SOLUTION\r\nC                     CHANGE OCCURRED ON A RESTART\r\nC         /SYSTEM/\r\nC           ITHRML    SET TO NON-ZERO FOR A HEAT APPROACH\r\nC         /PHAS11/\r\nC           IPAS11    ARRAY FOR SUBSTRUCTURE CONTROLS-SET TO ZERO\r\nC         /PHAS25/\r\nC           IPAS25    SAME AS IPAS11\r\nC         /PHAS28/\r\nC           IPAS28    SAME AS IPAS11\r\nC         /PHAS31/\r\nC           IPAS31    SAME AS IPAS11\r\nC         /PHAS37/\r\nC           IPAS37    SAME AS IPAS11\r\nC         /XRGDXX/\r\nC           IDMAP     DMAP SEQUENCE NUMBER\r\nC           IGNORE    FLAG SET TO IGNORE ANY CONTROL CARDS FOR THE\r\nC                     CURRENT DMAP STATEMENT - IS SET WHEN THE DMAP\r\nC                     STATEMENT IS TO BE DELETED BY THE SUBSET\r\nC           IPHASE    PHASE NUMBER ASSOCIATED WITH THE ****PHS-\r\nC                     CONTROL CARD\r\nC           ITYPE     SET TO 'FILE' OR 'CARD' FOR TYPE OF CONTROL CARD\r\nC           LIMIT     LOWER/UPPER LIMITS ASSOCIATED WITH THE VALUES\r\nC                     OF A PARTICULAR CARD TYPE\r\nC           MEMBER    NAME OF USER'S FILE CONTAINING A RIGID FORMAT\r\nC                     THIS IS A 2-WORD ARRAY IN 2A4 FORMAT\r\nC           NUMENT    NUMBER OF WORDS PER ENTRY IN THE MODULE EXECUTION\r\nC                     DECISION TABLE\r\nC\r\nC\r\nC     LOCAL VARIABLES\r\nC       ASTERS        VARIABLE CONTAINING THE VALUE OF 4H****\r\nC       CARD          VARIABLE CONTAINING THE VALUE OF 4HCARD\r\nC       COMENT        VARIABLE CONTAINING THE VALUE OF 4H$$$$\r\nC       DOLACR        VARIABLE CONTAINING THE VALUE OF 4H$*CA\r\nC       DOLAFL        VARIABLE CONTAINING THE VALUE OF 4H$*FI\r\nC       FILE          VARIABLE CONTAINING THE VALUE OF 4HFILE\r\nC       FILTYP        ARRAY CONTAINING ACRONYMS FOR APPROACH\r\nC       IBIT          BIT NUMBER TO SET IN THE MEDMSK\r\nC       IFILL         VALUE TO BE USED TO INITIALIZE THE MODULE\r\nC                     EXECUTION DECISION TABLE; =0, IF RESTART;\r\nC                     =1, OTHERWISE\r\nC       LU            FORTRAN LOGICAL UNIT NUMBER AS RETURN FROM RFOPEN\r\nC                     =0, IF OPEN IS NOT SUCCESSFUL\r\nC       INDEX         INDEX INTO CURRENT ENTRY OF MODULE EXEC.\r\nC                     DECISION TABLE\r\nC       ISOL          SOLUTION NUMBER\r\nC       IWORD         WORD IN MEDMSK TO BE SET FOR RESTART FLAG\r\nC       NEXT          FLAG INDICATING THAT A NEW DMAP STATEMENT IS\r\nC                     TO BE PROCESSED; =0, IF NEW DMAP STATEMENT;\r\nC                     =1, IF PROCESSING THE SAME DMAP STATEMENT\r\nC       NUMSOL        ARRAY CONTAINING THE RESTART BITS ASSOCIATED\r\nC                     WITH A RIGID FORMAT SWITCH DURING RESTART\r\nC       MAXSOL        MAX. SOLUTION NUMBER\r\nC       PHASE         ARRAY CONTAINING 'PHS1', PHS2', AND 'PHS3'\r\nC       RFMT          VARIABLE CONTAINING THE VALUE 4HRFMT\r\nC       SOLNUM        ARRAY CONTAINING THE ALPHA REPRESENTATIONS OF\r\nC                     THE SOLUTION NUMBERS\r\nC\r\nC     FUNCTIONS\r\nC       1. INITIALIZES SUBSTRUCTURE CONTROLS TO ZERO\r\nC       2. CHECKS FOR USER SUPPLIED RIGID FORMAT\r\nC       3. IF STANDARD RIGID FORMAT, VALIDATES SOLUTION NUMBER,\r\nC          SETS MEDMSK IF A RESTART OCCURRED ON A DIFFERENT\r\nC          RIGID FORMAT\r\nC       4. SETS NUMENT=1 AND IFILL=1 IS NO RESTART - OTHERWISE\r\nC          NUMENT=N1+N2+N3 AND IFILL=0\r\nC       5. CALLS RFOPEN TO OPEN THE RIGID FORMAT\r\nC       6. READS A CARD IMAGE FROM THE RIGID FORMAT FILE -\r\nC          THE DATE AND YEAR OF THE RIGID FORMAT IS VALIDATED AGAINST\r\nC          THAT THE LEVEL OF NASTRAN\r\nC          RE-DEFINE NO. OF LINES PER OUTPUT PAGE IF 4TH WORD IS\r\nC          PRESENT, .GT.20 .AND. .LE.99,  NO DATE CHECK IF THE ORD WROD\r\nC          IS ****\r\nC       7. READS A CARD FROM THE RIGID FORMAT FILE AND DOES THE\r\nC          FOLLOWING DEPENDING ON THE TYPE OF CARD READ:\r\nC          - FOR '$$$$' COMMENT CARDS, NEXT IS RESET\r\nC          - FOR '****SBST' CARDS SUBROUTINE XRGSUB IS CALLED\r\nC          - FOR '****CARD' CARDS SUBROUTINE XRGDCF IS CALLED\r\nC          - FOR '****FILE' CARDS SUBROUTINE XRGDCF IS CALLED\r\nC          - FOR '****RFMT' CARDS SUBROUTINE XRGDCF IS CALLED\r\nC          - FOR '****PHS-' CARDS SUBROUTINE XRGSST IS CALLED\r\nC          - OTHERWISE, THE CARD IS A DMAP AND WRITEN TO SCRATCH 315\r\nC          (NOTE- FOR NON RESTARTS, THE ****CARD,****FILE,****RFMT\r\nC          CARDS ARE BYPASSED.  FOR DMAP STATEMENTS THAT ARE\r\nC          DELETED BY SUBSET CONTROLS, NO CONTROL CARDS ARE\r\nC          PROCESSED EXCEPT FOR ****PHS- CARDS UNTIL THE NEXT\r\nC          DMAP STATEMENT IS ENCOUNTERED)\r\nC       8. WHEN A '$*CA' OR A '$*FI' CARD IS READ, PROCESSING OF\r\nC          DMAP STATEMENTS TERMINATES - IF THE JOB IS NOT A RESTART\r\nC          XRGDFM RETURNS.  OTHERWISE, A CHECK IS MADE TO ENSURE\r\nC          THAT THE CARD NAME TABLE IS GIVEN FIRST FOLLOWED BY\r\nC          THE FILE NAME TABLE.  SUBROUTINE XRGDTB IS CALLED TO\r\nC          PROCESS BOTH TABLES.  AFTER THESE TABLES ARE PROCESSED,\r\nC          XRGDFM RETURNS.\r\nC\r\nC     SUBROUTINES CALLED - RFOPEN,READ,WRITE,XRGSUB,XRGDCF,XRGSST,\r\nC                          XRGDTB,MESAGE,RFCLOS\r\nC\r\nC     COMMENTS FROM G.C./UNISYS - ALL THE MACHINE DEPENDENT DSX* SUB-\r\nC     ROUTINES ARE NO LONGER USED. SEE RFOPEN.  10/1990\r\nC\r\nC     CALLING SUBROUTINE - XCSA\r\nC\r\nC     ERROR MESSAGES 8023,504,8025,8026,8024,8037 MAY BE ISSUED\r\nC\r\n      EXTERNAL        ORF\r\n      INTEGER         RECORD, BLANK, ORF, TWO,  ASTERS, SUB(2),\r\n     1                OPTAPE, CARD, FILE, RFMT, COMENT, SUBSET, DOLAFL,\r\n     2                DOLACR, IUFILE(2),  IOPEN(100),   IDATE(3),\r\n     3                FILTYP(4),  SOLNUM(20), NUMSOL(50),OLDNUM,\r\n     4                NEWSOL(12), OLDSOL(12), PHASE(3), OLDIND\r\n      INTEGER         ALTFIL\r\n      DIMENSION       IOUTBF(200)\r\n      COMMON /ALTRXX/ ALTFIL, NEWALT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL   , NUMBER, ITYPE  ,\r\n     1                ISTATE, IERROR, NUM(2), IND    , NUMENT         ,\r\n     2                RECORD(20)    , ICHAR(80)      , LIMIT(2)       ,\r\n     3                ICOUNT, IDMAP , ISCRX , NAME(2), MEMBER(2)      ,\r\n     4                IGNORE\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /TWO   / TWO(31)\r\n      COMMON /XMDMSK/ N1,N2,N3,MEDMSK(7)\r\n      COMMON /PHAS11/ IPAS11(8)\r\n      COMMON /PHAS25/ IPAS25(14)\r\n      COMMON /PHAS28/ IPAS28(14)\r\n      COMMON /PHAS31/ IPAS31(2)\r\n      COMMON /PHAS37/ IPAS37(6)\r\n      EQUIVALENCE     (KSYSTM( 2), OPTAPE), (KSYSTM(56), ITHRML) ,\r\n     1                (KSYSTM(42), IDATE(1)),\r\n     2                (KSYSTM(69), ISUBAL), (KSYSTM( 9), NLPP  )\r\n      DATA    FILTYP/ 4HDMAP, 4HDISP, 4HHEAT, 4HAERO    /\r\n      DATA    SOLNUM/ 1H1 ,1H2 ,1H3 ,1H4 ,1H5 ,1H6 ,1H7 ,\r\n     1                1H8 ,1H9 ,2H10,2H11,2H12,2H13,2H14,\r\n     2                2H15,2H16,2H17,2H18,2H19,2H20     /\r\n      DATA    CARD  / 4HCARD /, FILE   / 4HFILE /\r\n      DATA    RFMT  / 4HRFMT /, BLANK  / 4H     /\r\n      DATA    ASTERS/ 4H**** /, COMENT / 4H$$$$ /\r\n      DATA    SUBSET/ 4HSBST /, DOLACR / 4H$*CA /\r\n      DATA    DOLAFL/ 4H$*FI /\r\n      DATA    PHASE / 4HPHS1,   4HPHS2, 4HPHS3  /\r\n      DATA    SUB   / 4HXRGD,   4HFM            /\r\n      DATA    NAS   / 4HNAS  /, MAXSOL / 19     /\r\nC\r\nC     IN THE FOLLOWING TABLE, VALUES 187-209 ARE FOR STATICS,\r\nC     210-213 ARE FOR HEAT, AND 214-217 ARE FOR AERO -\r\nC     THIS PROVIDES FOR 31 DIFFERENT VALUES IN TOTAL (1 WORD)\r\nC\r\n      DATA    NUMSOL/\r\n     1                187, 188, 189, 190, 191, 192, 193, 194,\r\n     2                195, 196, 197, 198, 199, 200, 201, 202,\r\n     3                203, 204, 205,  -1,  -1,  -1,  -1, 210,\r\n     4                 -1, 211,  -1,  -1,  -1,  -1,  -1, 212,\r\n     5                 -1,  -1,  -1,  -1,  -1,  -1, 216, 214,\r\n     6                215, 9*-1 /\r\nC WAS:\r\nC     DATA    NUMSOL/\r\nC    1                187, 188, 189, 190, 191, 192, 193, 194,\r\nC    2                195, 196, 197, 198, 199, 200, 201, 202,\r\nC    3                 -1,  -1,  -1,  -1, 207,  -1, 208,  -1,\r\nC    4                 -1,  -1,  -1,  -1, 209,  -1,  -1,  -1,\r\nC    5                 -1,  -1,  -1,  -1,  -1,  -1, 216, 214,\r\nC    6                215, 9*-1 /\r\nC\r\n      ISCRX = ISCR\r\n      IDMAP = 0\r\n      DO 10 K = 1,8\r\n 10   IPAS11(K) = 0\r\n      DO 20 K = 1,14\r\n      IPAS25(K) = 0\r\n 20   IPAS28(K) = 0\r\n      DO 30 K = 1,2\r\n 30   IPAS31(K) = 0\r\n      DO 40 K = 1,6\r\n 40   IPAS37(K) = 0\r\n      IF (IUFILE(1) .EQ. 0) GO TO 100\r\n      MEMBER(1) = IUFILE(1)\r\n      MEMBER(2) = IUFILE(2)\r\n      GO TO 210\r\n 100  ISOL = NEWSOL(1)\r\n      GO TO (700,120,130,140), IAPP\r\n 120  IF (ISOL.GE.1 .AND. ISOL.LE.MAXSOL) GO TO 200\r\n      GO TO 700\r\n 130  ITHRML = 1\r\n      ISOL = ISOL - 23\r\n      IF (ISOL.EQ.1 .OR. ISOL.EQ.3 .OR. ISOL.EQ.9) GO TO 200\r\n      GO TO 700\r\n 140  ISOL = ISOL - 30\r\n      IF (ISOL.EQ.9 .OR. ISOL.EQ.10 .OR. ISOL.EQ.11) GO TO 200\r\n      GO TO 700\r\n 200  MEMBER(1) = FILTYP(IAPP)\r\n      MEMBER(2) = SOLNUM(ISOL)\r\n 210  CONTINUE\r\nC\r\n      OLDIND = OLDSOL(1)\r\n      IF (OLDIND.EQ.0 .OR. OLDIND.EQ.NEWSOL(1)) GO TO 270\r\nC\r\nC     MAKE SURE CHECKPOINT TAPE FROM OLDER VERSION IS COMPATIBLE WITH\r\nC     NEW CHANGE MADE IN 1991.\r\nC\r\n      IF (OLDIND.NE.21 .AND. OLDIND.NE.23 .AND. OLDIND.NE.29) GO TO 220\r\n      OLDIND = OLDIND + 3\r\n      OLDSOL(1) = OLDIND\r\n      IF (OLDIND .EQ. NEWSOL(1)) GO TO 270\r\nC\r\n 220  OLDNUM = NUMSOL(OLDIND)\r\n      IF (OLDNUM .LE. 0) GO TO 270\r\n      IWORD = ((OLDNUM-1)/31) + 1\r\n      IBIT  = OLDNUM - 31*(IWORD-1) + 1\r\n      MEDMSK(IWORD) = ORF(MEDMSK(IWORD),TWO(IBIT))\r\n      WRITE  (OPTAPE,240) OLDSOL(1),NEWSOL(1),OLDNUM\r\n 240  FORMAT (51H0*** SWITCHED SOLUTION FOR RESTART - OLD SOLUTION =,I4,\r\n     1        16H, NEW SOLUTION =,I4,14H, BIT NUMBER =,I4)\r\n 270  IF (IRESTR .NE. 0) GO TO 280\r\n      NUMENT = 1\r\n      IFILL  = 1\r\n      GO TO 290\r\n 280  NUMENT = N1 + N2 + N3\r\n      IFILL  = 0\r\n 290  CONTINUE\r\n      IDMAP = 0\r\n      DO 300 KB = 1,NUMENT\r\n      IOPEN(KB) = IFILL\r\n 300  CONTINUE\r\n      INDEX = 1 - NUMENT\r\n      NEXT  = 0\r\n      CALL RFOPEN (MEMBER,LU)\r\n      IGNORE = 0\r\n      IF (LU .EQ. 0) GO TO 790\r\n      READ (LU,305,ERR=720,END=730) RECORD\r\n 305  FORMAT (20A4)\r\nC\r\nC     BLANK OUT THE 19TH AND 20TH WORDS AS THEY\r\nC     MAY CONTAIN SEQUENCE INFORMATION\r\nC\r\n      RECORD(19) = BLANK\r\n      RECORD(20) = BLANK\r\nC\r\nC     ALLOW OPTIONS TO CHANGE NLPP LOCALLY, AND NOT TO CHECK RF DATE.\r\nC     (THE NLPP OPTION HERE IS OBSOLETE. CAN BE EASILY DONE VIA NASINFO\r\nC     FILE - 7/90)\r\nC\r\n      IF (RECORD(3) .EQ. ASTERS) GO TO 310\r\n      IF (                           RECORD(2).NE.IDATE(3)) GO TO 770\r\n 310  READ (LU,305,ERR=720,END=730) RECORD\r\nC\r\nC     BLANK OUT THE 19TH AND 20TH WORDS AS THEY\r\nC     MAY CONTAIN SEQUENCE INFORMATION\r\nC\r\n      RECORD(19) = BLANK\r\n      RECORD(20) = BLANK\r\n      IF (RECORD(1) .NE. COMENT) GO TO 315\r\n      IF (NEXT      .EQ. 0     ) GO TO 310\r\n      NEXT = 0\r\n      IF (INDEX .LE. ISIZE) GO TO 310\r\n      GO TO 740\r\n 315  IF (RECORD(1) .EQ. ASTERS) GO TO 330\r\n      IF (RECORD(1).EQ.DOLACR .OR. RECORD(1).EQ.DOLAFL) GO TO 400\r\n      IF (NEXT .EQ. 1) GO TO 325\r\n      IF (NEWALT .EQ. 0) GO TO 317\r\n      CALL XRCARD (IOUTBF, 200, RECORD)\r\n      CALL WRITE (ALTFIL, IOUTBF(2), 2, 0)\r\n  317 CONTINUE\r\n      NEXT   = 1\r\n      IDMAP  = IDMAP + 1\r\n      INDEX  = INDEX + NUMENT\r\n      DO 320 KB = 1,NUMENT\r\n      IOPEN(KB+INDEX-1) = IFILL\r\n 320  CONTINUE\r\n 325  CONTINUE\r\n      CALL WRITE (ISCR,RECORD,18,0)\r\n      IGNORE = 0\r\n      GO TO 310\r\n 330  IF (RECORD(2) .NE. SUBSET) GO TO 340\r\n      IF (NSUBST .EQ. 0) GO TO 310\r\n      CALL XRGSUB (IOPEN(INDEX),NEWSOL(2))\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 310\r\n 340  IF (RECORD(2) .NE. CARD) GO TO 350\r\n      IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310\r\n      LIMIT(1) = 1\r\n      LIMIT(2) = N1*31\r\n      CALL XRGDCF (IOPEN(INDEX))\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 310\r\n 350  IF (RECORD(2) .NE. FILE) GO TO 360\r\n      IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310\r\n      LIMIT(1) =  N1*31 + 1\r\n      LIMIT(2) = (N1+N2)*31\r\n      CALL XRGDCF (IOPEN(INDEX))\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 310\r\n 360  IF (RECORD(2) .NE. RFMT) GO TO 365\r\n      IF (IRESTR.EQ.0 .OR. IGNORE.EQ.1) GO TO 310\r\n      LIMIT(1) = (N1+N2)*31 + 1\r\n      LIMIT(2) = (N1+N2+N3)*31\r\n      CALL XRGDCF (IOPEN(INDEX))\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 310\r\n 365  DO 370 K = 1,3\r\n      IF (RECORD(2) .NE. PHASE(K)) GO TO 370\r\n      IPHASE = K\r\n      CALL XRGSST (NEWSOL)\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 310\r\n 370  CONTINUE\r\n      GO TO 750\r\n 400  CALL WRITE (ISCR,0,0,1)\r\n      IF (NEWALT .EQ. 0) GO TO 500\r\n      CALL WRITE (ALTFIL, 0, 0, 1)\r\n      CALL CLOSE (ALTFIL, 1)\r\n  500 CONTINUE\r\n      CALL WRITE (ISCR,IOPEN(1),INDEX+NUMENT-1,1)\r\n      IF (IRESTR. EQ. 0) GO TO 800\r\n      ITYPE = CARD\r\n      IF (RECORD(1) .NE. DOLACR) GO TO 760\r\n      LIMIT(1) = 1\r\n      LIMIT(2) = N1*31\r\n      CALL XRGDTB (LU)\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      ITYPE = FILE\r\n      IF (RECORD(1) .NE. DOLAFL) GO TO 760\r\n      LIMIT(1) =  N1*31 + 1\r\n      LIMIT(2) = (N1+N2)*31\r\n      CALL XRGDTB (LU)\r\n      IF (IERROR .NE. 0) NOGO = 3\r\n      GO TO 800\r\nC\r\nC     ERRORS\r\nC\r\n 700  WRITE  (OPTAPE,710) UFM,ISOL,FILTYP(IAPP)\r\n 710  FORMAT (A23,' 8023, SOLUTION NUMBER',I4,' IS ILLEGAL FOR APPROACH'\r\n     1,       A4)\r\n 720  WRITE  (OPTAPE,725) UFM,MEMBER\r\n 725  FORMAT (A23,' 8025, READ ERROR ON FILE ',2A4)\r\n      GO TO 790\r\n 730  WRITE  (OPTAPE,735) UFM,MEMBER\r\n 735  FORMAT (A23,' 8025, UNEXPECTED EOF ENCOUNTERED ON FILE ',2A4)\r\n      GO TO 790\r\n 740  CALL MESAGE (-8,0,SUB)\r\n      GO TO 800\r\n 750  WRITE  (OPTAPE,755) UFM,RECORD\r\n 755  FORMAT (A23,' 8026, THE FOLLOWING CARD HAS AN UNIDENTIFIED ',\r\n     1       'FUNCTION AFTER ',6H'****', //20X,20A4)\r\n      NOGO = 3\r\n      GO TO 310\r\n 760  WRITE  (OPTAPE,765) UFM,ITYPE,RECORD\r\n 765  FORMAT (A23,' 8024, EXPECTED A ',3H'$*,A4,1H',' CARD.',\r\n     1        ' INSTEAD THE FOLLOWING CARD IS READ', //20X,20A4)\r\n      GO TO 790\r\n 770  WRITE  (OPTAPE,775) UFM,IDATE(1),IDATE(3),RECORD(1),RECORD(2)\r\n 775  FORMAT (A23,' 8037, NASTRAN IS LEVEL ',2A4,\r\n     1        ' BUT THE RIGID FORMAT DATA BASE IS LEVEL ',2A4)\r\n 790  NOGO = 3\r\n 800  CALL RFCLSE (LU)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgdtb.f",
    "content": "      SUBROUTINE XRGDTB (LU)\r\nC\r\nC     XRGDTB PROCESSES THE CARD AND FILE NAME RESTART TABLES\r\nC     THIS SUBROUTINE IS CALLED ONLY BY XRGDFM\r\nC\r\nC     WRITTEN BY  RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       LU            FORTRAN UNIT NUMBER FOR THE RIGID FORMAT FILE\r\nC     /SYSTEM/\r\nC       OPTAPE        OUTPUT UNIT NUMBER FOR THE PRINT FILE\r\nC     /XRGDXX/\r\nC       ICHAR         ARRAY IN 80A1 FORMAT CONTAINING CARD IMAGE\r\nC       ISCR          FILE NUMBER ON WHICH TABLES ARE WRITTEN\r\nC       ITYPE         TYPE OF TABLE BEING PROCESSED-('CARD'OR'FILE')\r\nC       LIMIT         LOWER/UPPER LIMITS FOR VALUES IN THE TABLE\r\nC       RECORD        CARD IMAGE IN 20A4 FORMAT\r\nC\r\nC     OUTPUT\r\nC     /XRGDXX/\r\nC       ICOL          COLUMN WITHIN CARD BEING PROCESSED\r\nC       ICOUNT        NUMBER OF ALPHA CHARACTERS WITHIN A NAME\r\nC       IERROR        ERROR FLAG - NON-ZERO IF ERROR OCCURRED\r\nC       NAME          NAME OF THE SUBROUTINE\r\nC       NUMBER        VALUE OF NUMBER RETURNED BY XRGNUM\r\nC\r\nC     LOCAL VARIABLES\r\nC       ASTRSK          CONTAINS THE VALUE 1H*\r\nC       BLANK           CONTAINS THE VALUE 1H\r\nC       COMENT          CONTAINS THE VALUE OF 4H$$$$\r\nC       DOLLAR          CONTAINS THE VALUE OF 1H$\r\nC       ICOLUM          COLUMN NUMBER OF THE NEXT CHARACTER WITHIN\r\nC                       A NAME\r\nC\r\nC     FUNCTIONS\r\nC       1. CALLS READ AND XDCODE FOR EACH CARD WITHIN THE TABLE.\r\nC       2. CALLS XRGNUM TO PROCESS ALL NUMBERS\r\nC       3. CALLS XECODE TO PROCESS ALL NAMES\r\nC       4. ALL ENTRIES READ ARE EXPECTED TO BE IN THE FOLLOWING\r\nC          FORMAT:    NNNN    NAME  NAME  NAME  NAME  NAME ...\r\nC          WHERE NNNN IS ANY NUMBER.\r\nC\r\nC     SUBROUTINES CALLED - XRGNUM,XECODE,READ,WRITE\r\nC\r\nC     ERRORS  MESSAGES 8028,8034,8029,8036 MAY BE ISSUED\r\nC\r\n      INTEGER         RECORD, BLANK, DOLLAR, ASTRSK, OPTAPE, COMENT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL  , NUMBER, ITYPE ,\r\n     1                ISTATE, IERROR, NUM(2), IND   , NUMENT        ,\r\n     2                RECORD(20)    , ICHAR(80)     , LIMIT(2)      ,\r\n     3                ICOUNT, IDMAP , ISCR  , NAME(2), MEMBER(2)    ,\r\n     4                IGNORE\r\n      EQUIVALENCE     (KSYSTM( 2),OPTAPE), (KSYSTM(39), NBPC),\r\n     1                (KSYSTM(40), NBPW ), (KSYSTM(41), NCPW)\r\n      DATA    BLANK / 1H /,  DOLLAR / 1H$ /, ASTRSK / 1H* /\r\n      DATA    COMENT/ 4H$$$$ /\r\nC\r\n 100  NUMBER  = 0\r\n      NAME(1) = 0\r\n      READ (LU,150,ERR=710,END=710) RECORD\r\n 150  FORMAT (20A4)\r\n      CALL XDCODE\r\n      IF (RECORD(1) .EQ. COMENT) GO TO 100\r\n      IF (ICHAR(1).EQ.DOLLAR .AND. ICHAR(2).EQ.ASTRSK) GO TO 800\r\n      ICOL = 1\r\n 200  IF (ICHAR(ICOL).EQ.BLANK .OR. ICOL.GT.80) GO TO 500\r\n      IF (NUMBER .NE. 0) GO TO 300\r\n      CALL XRGNUM\r\n      IF (NUMBER .EQ. 0) GO TO 720\r\n      IF (NUMBER.GE.LIMIT(1) .AND. NUMBER.LE.LIMIT(2)) GO TO 200\r\n      GO TO 730\r\n 300  ICOUNT = 1\r\n 350  ICOLUM = ICOL + ICOUNT\r\n      IF (ICHAR(ICOLUM).EQ.BLANK .OR. ICOLUM.GT.80) GO TO 400\r\n      ICOUNT = ICOUNT + 1\r\n      IF (ICOUNT .LE. 8) GO TO 350\r\n      GO TO 740\r\n 400  IF (ICOUNT .EQ. 0) GO TO 350\r\n      CALL XECODE\r\n      CALL WRITE (ISCR,NAME,2,0)\r\n      CALL WRITE (ISCR,NUMBER,1,0)\r\n      ICOL = ICOL + ICOUNT\r\n      GO TO 200\r\n 500  IF (ICOL .GE. 80) GO TO 600\r\n      ICOL = ICOL + 1\r\n      GO TO 200\r\n 600  IF (NUMBER.EQ.0 .OR. NAME(1).EQ.0) GO TO 750\r\n      GO TO 100\r\nC\r\nC     ERRORS\r\nC\r\n 710  WRITE  (OPTAPE,715) UFM,MEMBER\r\n 715  FORMAT (A23,' 8027, UNEXPECTED EOF ENCOUNTERED ON FILE ',2A4,\r\n     1        ' IN SUBROUTINE XRGDTB.')\r\n      GO TO 770\r\n 720  WRITE  (OPTAPE,725) UFM,RECORD\r\n 725  FORMAT (A23,' 8028, EXPECTED TO FIND AN INTEGER IN THE FIRST ',\r\n     1        'FIELD OF THE FOLLOWING CARD', //20X,20A4)\r\n      GO TO 760\r\n 730  WRITE  (OPTAPE,735) UFM,NUMBER,RECORD,LIMIT,ITYPE\r\n 735  FORMAT (A23,' 8029, THE VALUE',I4,' GIVEN IN THE FIRST FIELD OF',\r\n     1        ' THE FOLLOWING CARD', //20X,20A4, //5X,'IS OUTSIDE THE ',\r\n     2        'RANGE OF',I5,1H-,I4,6H FOR ',A4,8H' CARDS.)\r\n      GO TO 760\r\n 740  WRITE  (OPTAPE,745) UFM,RECORD\r\n 745  FORMAT (A23,' 8029, THE FOLLOWING CARD CONTAINS NAMES THAT ARE' ,\r\n     2        'COMPRISED OF MORE THAN 8 CHARACTERS', //20X,20A4)\r\n      GO TO 760\r\n 750  WRITE  (OPTAPE,755) UFM,RECORD\r\n 755  FORMAT (A23,' 8036, MISSING FIELDS ON THE FOLLOWING CARD', /20X,\r\n     1        20A4)\r\n 760  IERROR = 1\r\n      GO TO 100\r\n 770  IERROR = 1\r\n 800  CALL WRITE (ISCR,0,0,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgdtp.f",
    "content": "      SUBROUTINE XRGDTP\r\nC****\r\nC    PURPOSE - XRGDTP DETERMINES A TYPE CODE FOR A CHARACTER\r\nC\r\nC    AUTHOR  - RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC    INPUT\r\nC      /XRGDXX/\r\nC        ICHAR       AN ARRAY IN 80A1 FORMAT\r\nC        ICOL        CURRENT ELEMENT IN THE ARRAY ICHAR\r\nC\r\nC    OUTPUT\r\nC      /XRGDXX/\r\nC        ITYPE       TYPE CODE ASSOCIATED WITH THE CHARACTER\r\nC                    =1, IF CHARACTER IS A NUMBER\r\nC                    =2, IF CHARACTER IS A ','\r\nC                    =3, IF CHARACTER IS A '-'\r\nC                    =4, IF CHARACTER IS A BLANK\r\nC                    =5, OTHERWISE\r\nC        NUMBER      INTEGER VALUE FOR CHARACTER OF ITYPE=1\r\nC\r\nC    LOCAL VARIABLES\r\nC      DELIM         3 WORD ARRAY CONTAINING A COMMA, DASH, AND BLANK\r\nC      NUMS          10 WORD ARRAY OF ALPHA NUMBERS 1,2..0\r\nC      K             K DO LOOP INDEX TO SEARCH DELIM ARRAY\r\nC\r\nC   SUBROUTINES CALLED - NONE\r\nC\r\nC   CALLING SUBROUTINES - XRGDEV\r\nC\r\nC    FUNCTIONS - XRGDTP EXAMINES THE CHARACTER IN ICHAR(ICOL)\r\nC                TO DETERMINE ITS TYPE CODE.\r\nC\r\nC    ERRORS - NONE\r\nC\r\nC****\r\n      INTEGER           RECORD\r\n      INTEGER NUMS( 10 ), DELIM( 3 )\r\n      COMMON / XRGDXX / IRESTR, NSUBST, IPHASE, ICOL  , NUMBER, ITYPE\r\n     *,                 ISTATE, IERROR, NUM(2), IND   , NUMENT\r\n     *,                 RECORD(20)    , ICHAR(80)     , LIMIT(2)\r\n     *,                 ICOUNT, IDMAP , ISCR  , NAME(2), MEMBER(2)\r\n     *,                 IGNORE\r\n      DATA NUMS / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, 1H0 /\r\n      DATA DELIM/ 1H,, 1H-, 1H                                     /\r\nC\r\n      DO 10 K = 1,3\r\n      IF ( ICHAR( ICOL ) .NE. DELIM( K ) ) GO TO 10\r\n      ITYPE = K + 1\r\n      GO TO 30\r\n 10   CONTINUE\r\n      DO 20 K = 1, 10\r\n      IF ( ICHAR( ICOL ) .NE. NUMS( K ) ) GO TO 20\r\n      ITYPE = 1\r\n      NUMBER = MOD( K,10 )\r\n      GO TO 30\r\n 20   CONTINUE\r\n      ITYPE = 5\r\n 30   RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgnum.f",
    "content": "      SUBROUTINE XRGNUM\r\nC\r\nC     XRGNUM PROCESSES THE NUMBER ON A CARD OR FILE NAME TABLE ENTRY\r\nC     THIS ROUTINE IS CALLED ONLY BY XRGDTB\r\nC\r\nC     WRITTEN BY  RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       /SYSTEM/\r\nC         OPTAPE       UNIT NUMBER FOR THE OUTPUT PRINT FILE\r\nC       /XRGDXX/\r\nC         ICHAR        CONTAINS THE CARD IMAGE IN 80A1 FORMAT\r\nC         ICOL         CURRENT COLUMN BEING PROCESSED\r\nC         RECORD       CONTAINS THE CARD IMAGE IN 20A4 FORMAT\r\nC\r\nC     OUTPUT\r\nC       /XRGDXX/\r\nC         ICOL         CURRENT COLUMN BEING PROCESSED\r\nC         NUMBER       VALUE OF THE NUMBER IN INTEGER FORMAT\r\nC\r\nC     LOCAL VARIABLES\r\nC         BLANK          CONTAINS THE VALUE 1H\r\nC         IFRCOL         FIRST COLUMN TO BE EXAMINED BY XRGNUM\r\nC         NEWNUM         INTEGER VALUE OF THE CHARACTER IN THE CURRENT\r\nC                        COLUMN\r\nC         NUMS           CONTAINS THE ALPHA VALUES 1,2,...0\r\nC\r\nC     THE CARD IS SCANED TO FIND THE VALUE OF THE NUMBER IN THE FIRST\r\nC     FIELD OF THE CARD\r\nC\r\nC     MESSAGE 8030 MAY BE ISSUED\r\nC\r\n      INTEGER         RECORD, OPTAPE, BLANK , NUMS(10)\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /XRGDXX/ IRESTR, NSUBST, IPHASE, ICOL  , NUMBER, ITYPE ,\r\n     1                ISTATE, IERROR, NUM(2), IND   , NUMENT,\r\n     2                RECORD(20)    , ICHAR(80)     , LIMIT(2),\r\n     3                ICOUNT, IDMAP , ISCR  ,NAME(2), MEMBER(2),\r\n     4                IGNORE\r\n      COMMON /SYSTEM/ ISYSBF, OPTAPE, DUM(98)\r\n      DATA    NUMS  / 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, 1H0/\r\n      DATA    BLANK / 1H  /\r\nC\r\n      IFRCOL = ICOL\r\n      NUMBER = 0\r\n 50   IF (ICOL .GE. 80) GO TO 350\r\n      IF (ICHAR(ICOL) .EQ. BLANK) GO TO 200\r\n      DO 100 K = 1,10\r\n      IF (ICHAR(ICOL) .NE. NUMS(K)) GO TO 100\r\n      NEWNUM = MOD(K,10)\r\n      NUMBER = NUMBER*10 + NEWNUM\r\n      GO TO 150\r\n 100  CONTINUE\r\n      GO TO 250\r\n 150  ICOL = ICOL + 1\r\n      GO TO 50\r\n 200  ICOL = ICOL + 1\r\n      IF (NUMBER .EQ. 0) GO TO 50\r\n      GO TO 350\r\n 250  NUMBER = 0\r\n      J = 0\r\n      K = 1\r\n      WRITE  (OPTAPE,300) UFM,IFRCOL,RECORD,J,(I,I=1,8),K,(J,I=1,8)\r\n 300  FORMAT (A23,' 8030, EXPECTED AN INTEGER NEAR COLUMN',I3,\r\n     1        ' IN THE FOLLOWING CARD', //20X,20A4, /,(20X,I1,I9,7I10))\r\n 350  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgsst.f",
    "content": "      SUBROUTINE XRGSST (NEWSOL)\r\nC\r\nC     PURPOSE - XRGSST PROCESSES SUBSTRUCTURE CONTROLS CARDS IN\r\nC               A RIGID FORMAT (I.E., THE ****PHS- CARDS)\r\nC\r\nC     AUTHOR  - RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       ARGUMENTS\r\nC           NEWSOL     SOLUTION NUMBER\r\nC       OTHER\r\nC         /SYSTEM/\r\nC           OPTAPE     UNIT NUMBER CONTAINING THE PRINT FILE\r\nC         /XRGDXX/\r\nC           ICHAR      CONTAINS THE CARD IMAGE IN 80A1 FORMAT\r\nC           IDMAP      CURRENT DMAP SEQUENCE NUMBER\r\nC           IPHASE     PHASE NUMBER\r\nC           RECORD     CARD IMAGE IN 20A4 FORMAT\r\nC\r\nC     OUTPUT\r\nC         /XRGDXX/\r\nC           ICOL       COLUMN NUMBER LAST PROCESSED\r\nC           IERROR     ERROR FLAG - NON-ZERO IF AN ERROR OCCURRED\r\nC\r\nC     LOCAL VARIABLES\r\nC         BEGIN        CONTAINS THE VALUE 1HB\r\nC         BLANK        CONTAINS THE VALUE 1H\r\nC         DELETE       CONTAINS THE VALUE 1HD\r\nC         EIGHT        CONTAINS THE VALUE 1H8\r\nC         END          CONTAINS THE VALUE 1HE\r\nC         FIVE         CONTAINS THE VALUE 1H5\r\nC         ICFLAG       FLAG TO DISTINGUISH WHICH COMMON BLOCK IS\r\nC                      BEING PROCESSED\r\nC                      =1, /PHAS11/ ; =2, /PHAS25/ ; =3, /PHAS28/\r\nC                      =4, /PHAS31/ ; =5, /PHAS37/\r\nC         IFLAG        FLAG FOR THE KIND OF COMMAND BEING PROCESSED\r\nC                      =1, FOR INSERT; =2, FOR DELETE;\r\nC                      =3, FOR DELETE BEGIN; =4 FOR DELETE END\r\nC         IMAP         2 WORD ARRAY FOR DMAP NUMBERS\r\nC         IND11        INDEX FOR COMMON /PHAS11/\r\nC         IND25        INDEX FOR COMMON /PHAS25/\r\nC         IND28        INDEX FOR COMMON /PHAS28/\r\nC         IND31        INDEX FOR COMMON /PHAS31/\r\nC         IND37        INDEX FOR COMMON /PHAS37/\r\nC         LFLAG        ARRAY USED FOR THE LAST FLAG (I.E., IFLAG)\r\nC                      THAT WAS APPLIED TO A GIVEN COMMON - THIS\r\nC                      IS USED TO CHECK FOR MATCHING 'DB' AND 'DE'\r\nC                      SUBCOMMANDS\r\nC         NMAP         NUMBER OF DMAP NUMBERS IN THE ARRAY IMAP\r\nC         ONE          CONTAINS THE VALUE 1H1\r\nC         SEVEN        CONTAINS THE VALUE 1H7\r\nC\r\nC     FUNCTIONS\r\nC       XRGSST PROCESSES SUBSTRUCTURE CONTROL COMMANDS WITHIN THE\r\nC       RIGID FORMAT.  THE COMMANDS ARE OF THE FOLLOWING FORMAT;\r\nC       ****PHS- I=   (OR INSTEAD OF I=; D=, DB= OR DE= ) WHERE\r\nC       THE '-' OF PHS IS THE PHASE NUMBER AND = REFERS TO THE\r\nC       APPROPIATE ASCM== SUBROUTINE.  FOR THE I= SUBCOMMAND,\r\nC       TWO NUMBERS ( N AND 0 ) ARE ADDED TO THE APPROPIATE\r\nC       COMMON.  FOR THE D= SUBCOMMAND, TWO NUMBERS ( N1 AND N1 )\r\nC       ARE ADDED TO THE APPROPIATE COMMON.  FOR THE DB=\r\nC       SUBCOMMAND, ONE NUMBER IS ADDED TO THE COMMON AND\r\nC       FOR THE DE= SUBCOMMAND, ONE NUMBER IS ADDED TO THE COMMON.\r\nC       THE NUMBER THAT IS ADDED TO THE COMMONS\r\nC       IS THE CURRENT DMAP SEQUENCE NUMBER AS FOUND IN THE\r\nC       VARIABLE IDMAP.\r\nC       THE I= COMMAND CORRESPONDS TO A DMAP ALTER INSERT\r\nC       OF THE FORM ALTER N,0.  THE D= SUBCOMMAND CORRESPONDS\r\nC       TO THE DMAP DELETE COMMAND  ALTER N1,N1.  THE DB=\r\nC       SUBCOMMAND GIVES THE FIRST OF A RANGE OF DMAP NUMBERS\r\nC       STATEMENTS TO BE DELETED AND THE DE= GIVES THE LAST\r\nC       VALUE OF THE RANGE OF DMAP STATEMENTS TO BE DELETED.\r\nC       THE COMMONS ARE NAMED PHAS== WHERE THE FIRST = REFERS\r\nC       TO THE PHASE NUMBER AND THE SECOND = REFERS TO THE\r\nC       APPROPIATE ASCM== SUBROUTINE.\r\nC\r\nC     SUBROUTINES CALLED - XDCODE\r\nC\r\nC     CALLING SUBROUTINES - XRGDFM\r\nC\r\nC     ERRORS\r\nC       ERROR MESSAGES 8031,8032,8033,8035 ARE ISSUED\r\nC\r\n      INTEGER         RECORD,DELETE,BLANK,BEGIN,END,ICFLAG,OPTAPE,\r\n     1                LFLAG(5),IMAP(2),ONE,FIVE,SEVEN,EIGHT\r\n      CHARACTER       UFM*23\r\n      COMMON /XMSSG / UFM\r\n      COMMON /XRGDXX/ IRESTR,NSUBST,IPHASE,ICOL,NUMBER,ITYPE,ISTATE,\r\n     1                IERROR,NUM(2),IND,NUMENT,RECORD(20),ICHAR(80),\r\n     2                LIMIT(2),ICOUNT,IDMAP,ISCR,NAME(2),MEMBER(2),\r\n     3                IGNORE\r\n      COMMON /PHAS11/ IPAS11( 8)\r\n      COMMON /PHAS25/ IPAS25(14)\r\n      COMMON /PHAS28/ IPAS28(14)\r\n      COMMON /PHAS31/ IPAS31( 2)\r\n      COMMON /PHAS37/ IPAS37( 6)\r\n      COMMON /SYSTEM/ ISYSBF,OPTAPE,DUM(98)\r\n      DATA    BLANK / 1H  /, DELETE/ 1HD /, BEGIN / 1HB /\r\n      DATA    END   / 1HE /, LFLAG / 5*0 /\r\n      DATA    ONE   / 1H1 /, FIVE  / 1H5 /, SEVEN / 1H7 /, EIGHT / 1H8 /\r\n      DATA    IND11 / 0   /, IND25 / 0   /, IND28 / 0   /, IND31 / 0   /\r\n      DATA    IND37 / 0   /, INSERT/ 1HI /\r\nC\r\n      CALL XDCODE\r\n      ICOL  = 9\r\n 10   IF (ICHAR(ICOL) .EQ. BLANK ) GO TO 50\r\n      IF (ICHAR(ICOL) .NE. INSERT) GO TO 20\r\n      IFLAG = 1\r\n      NMAP  = 2\r\n      IMAP(1) = IDMAP\r\n      IMAP(2) = 0\r\n      GO TO 100\r\n 20   IF (ICHAR(ICOL) .NE. DELETE) GO TO 710\r\n      ICOL  = ICOL + 1\r\n      IF (ICHAR(ICOL) .EQ. BEGIN) GO TO 30\r\n      IF (ICHAR(ICOL) .EQ. END  ) GO TO 40\r\n      IFLAG = 2\r\n      NMAP  = 2\r\n      IMAP(1) = IDMAP\r\n      IMAP(2) = IDMAP\r\n      GO TO 110\r\n 30   IFLAG = 3\r\n      NMAP  = 1\r\n      IMAP(1) = IDMAP\r\n      GO TO 100\r\n 40   IFLAG = 4\r\n      NMAP  = 1\r\n      IMAP(1) = IDMAP\r\n      GO TO 100\r\n 50   IF (ICOL .GE. 80) GO TO 800\r\n      ICOL  = ICOL + 1\r\n      GO TO 10\r\n 100  ICOL  = ICOL + 1\r\n 110  IF (IPHASE .NE. 1) GO TO 120\r\n      IF (ICHAR(ICOL) .NE. ONE) GO TO 710\r\n      ICFLAG = 1\r\n      GO TO 200\r\n 120  IF (IPHASE .NE. 2) GO TO 140\r\n      IF (ICHAR(ICOL) .NE. FIVE) GO TO 130\r\n      ICFLAG = 2\r\n      GO TO 200\r\n 130  IF (ICHAR(ICOL) .NE. EIGHT) GO TO 710\r\n      ICFLAG = 3\r\n      GO TO 200\r\n 140  IF (ICHAR(ICOL) .NE. ONE) GO TO 150\r\n      ICFLAG = 4\r\n      GO TO 200\r\n 150  IF (ICHAR(ICOL) .NE. SEVEN) GO TO 710\r\n      ICFLAG = 5\r\n 200  IF (IFLAG.EQ.4 .AND. LFLAG(ICFLAG).NE.3) GO TO 730\r\n      IF (IFLAG.EQ.3 .AND. LFLAG(ICFLAG).EQ.3) GO TO 740\r\n      IF (IFLAG.LE.2 .AND. LFLAG(ICFLAG).EQ.3) GO TO 740\r\n      LFLAG(ICFLAG) = IFLAG\r\n      ICOL = ICOL + 1\r\n      GO TO (210,220,230,240,250), ICFLAG\r\n 210  IF (IND11+NMAP .GT. 8) GO TO 720\r\n      DO 215 K = 1,NMAP\r\n      IND11 = IND11 + 1\r\n      IPAS11(IND11) = IMAP(K)\r\n 215  CONTINUE\r\n      GO TO 800\r\n 220  IF (IND25+NMAP .GT. 14) GO TO 720\r\n      DO 225 K = 1,NMAP\r\n      IND25 = IND25 + 1\r\n      IPAS25(IND25) = IMAP(K)\r\n 225  CONTINUE\r\n      GO TO 800\r\n 230  IF (IND28+NMAP .GT. 14) GO TO 720\r\n      DO 235 K = 1,NMAP\r\n      IND28 = IND28 + 1\r\n      IPAS28(IND28) = IMAP(K)\r\n 235  CONTINUE\r\n      GO TO 800\r\n 240  IF (IND31+NMAP .GT. 2) GO TO 720\r\n      DO 245 K = 1,NMAP\r\n      IND31 = IND31 + 1\r\n      IPAS31(IND31) = IMAP(K)\r\n 245  CONTINUE\r\n      GO TO 800\r\n 250  IF (IND37+NMAP .GT. 6) GO TO 720\r\n      DO 255 K = 1,NMAP\r\n      IND37 = IND37 + 1\r\n      IPAS37(IND37) = IMAP(K)\r\n 255  CONTINUE\r\n      GO TO 800\r\nC\r\nC     ERRORS\r\nC\r\n 710  J = 0\r\n      K = 1\r\n      WRITE  (OPTAPE,715) UFM,ICOL,RECORD,J,(I,I=1,8),K,(J,I=1,8)\r\n 715  FORMAT (A23,' 8031, INVALID PARAMETER NEAR COLUMN ',I3,\r\n     1       ' IN THE FOLLOWING CARD', //20X,20A4, /,(20X,I1,I9,7I10))\r\n      IERROR = 1\r\n      GO TO 770\r\n 720  WRITE  (OPTAPE,725) UFM,IPHASE,RECORD\r\n 725  FORMAT (A23,' 8032, ',19H' TOO MANY '****PHS,I1, 9H' ENTRIES,\r\n     1       ' ERROR OCCURRED ON CARD', //20X,20A4)\r\n      GO TO 770\r\n 730  WRITE  (OPTAPE,735) UFM,RECORD\r\n 735  FORMAT (A23,' 8033, ',34H A 'DE' ENTRY HAS NO MATCHING 'DB',\r\n     1       ' ENTRY - ERROR ON CARD', //20X,20A4)\r\n      GO TO 770\r\n 740  WRITE  (OPTAPE,745) UFM,RECORD\r\n 745  FORMAT (A23,' 8035, ',\r\n     1        41H ATTEMP TO NEST 'DB'S OR NO MATCHING 'DE',\r\n     2        ' - ERROR OCCURRED ON THE FOLLOWING CARD', /20X,20A4)\r\n 770  IERROR = 1\r\n 800  RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xrgsub.f",
    "content": "      SUBROUTINE XRGSUB (IRESTB,SUBSET)\r\nC****\r\nC     PURPOSE - XRGSUB PROCESSES THE ****SBST CONTROL CARD IN\r\nC               RIGID FORMAT DATA BASE\r\nC\r\nC     AUTHOR  - RPK CORPORATION; DECEMBER, 1983\r\nC\r\nC     INPUT\r\nC       ARGUMENTS\r\nC         SUBSET        SUBSET NUMBERS GIVEN BY THE USER\r\nC       OTHER\r\nC         /XRGDXX/\r\nC           NSUBST      NUMBER OF SUBSET NUMBERS GIVEN BY USER\r\nC           NUM         2 WORD ARRAY CONTAINING A RANGE OF NUMBERS\r\nC                       FROM THE LIST OF NUMBERS ON THE ****SBST\r\nC                       CONTROL CARD\r\nC         NUMENT        NUMBER OF WORDS PER ENTRY IN THE MODULE\r\nC                       EXECUTION DECISION TABLE\r\nC\r\nC     OUTPUT\r\nC       ARGUMENTS\r\nC         IRESTB        MODULE EXECUTION DECISION TABLE ENTRY FOR\r\nC                       CURRENT DMAP STATEMENT\r\nC       OTHER\r\nC         /XRGDXX/\r\nC           ICOL      COLUMN NUMBER BEING PROCESSED ON THE CARD\r\nC           IERROR    ERROR FLAG - NON-ZERO IF AN ERROR OCCURRED\r\nC           IGNORE    IGNORE FLAG SET TO NON-ZERO IF THE DMAP\r\nC                     STATEMENT IS TO BE DELETED BY THE SUBSET\r\nC           LIMIT     LOWER/UPPER LIMITS OF VALUES WITHIN AN\r\nC                     ENTRY ON THE CARD\r\nC\r\nC     LOCAL VARIABLES\r\nC       IEND          VALUE OF NUM(2)\r\nC       ISTR          VALUE OF NUM(1)\r\nC\r\nC     FUNCTIONS\r\nC        XRGSUB CALLS XRGDEV TO EXTRAPOLATE THE NUMBER FROM THE\r\nC        THE CARD AND THEN IT COMPARES THE NUMBER(S) WITH THOSE\r\nC        SUPPLIED BY THE USER AS SUBSETS.  IF A MATCH IS FOUND,\r\nC        IGNORE IS SET AND THE MODULE EXECUTION DECISION TABLE\r\nC        ENTRY IS SET TO ZERO.  CHECKS CONTINUE UNTIL ALL VALUES\r\nC        GIVEN ON ****SBST CARD HAD BEEN CHECK OR UNTIL A MATCH\r\nC        IS FOUND\r\nC\r\nC     SUBROUTINES CALLED - XDCODE,XRGDEV\r\nC\r\nC     CALLING SUBROUTINES - XRGDFM\r\nC\r\nC     ERRORS - NONE\r\nC\r\nC****\r\n      INTEGER         RECORD,SUBSET(12),IRESTB(7)\r\n      COMMON /XRGDXX/ IRESTR,NSUBST,IPHASE,ICOL,NUMBER,ITYPE,\r\n     1               ISTATE,IERROR,NUM(2),IND,NUMENT,\r\n     2               RECORD(20),ICHAR(80),LIMIT(2),\r\n     3               ICOUNT,IDMAP,ISCR,NAME(2),MEMBER(2),IGNORE\r\nC\r\n       ICOL   = 9\r\n       IERROR = 0\r\n       CALL XDCODE\r\n       LIMIT(1) = 1\r\n       LIMIT(2) = 12\r\n 200   CALL XRGDEV\r\n       IF (IERROR.NE.0 .OR. ICOL.GT.80) GO TO 700\r\n       ISTR = NUM(1)\r\n       IEND = NUM(2)\r\n       DO 400 K  = ISTR,IEND\r\n       DO 300 KK = 1,NSUBST\r\n       IF (K .EQ. SUBSET(KK)) GO TO 500\r\n 300   CONTINUE\r\n 400   CONTINUE\r\n       ICOL = ICOL + 1\r\n       GO TO 200\r\n 500   DO 600 K = 1,NUMENT\r\n       IRESTB(K) = 0\r\n 600   CONTINUE\r\n       IGNORE = 1\r\n 700   RETURN\r\n       END\r\n"
  },
  {
    "path": "mis/xsave.f",
    "content": "      SUBROUTINE XSAVE\r\nC     THE PURPOSE OF THIS ROUTINE IS TO PERFORM THE FUNCTIONS ASSIGNED\r\nC     TO THE SAVE DMAP INSTRUCTION.\r\nC\r\n      COMMON/XVPS/ IVPS(1)\r\n      COMMON/BLANK/ IPAR(1)\r\n      COMMON /OSCENT/ IOSCR(7)\r\nC     GET NUMBER OF PARAMETERS FROM OSCAR\r\n      N = IOSCR(7)*2 + 6\r\n      DO 20 I1 = 8,N,2\r\nC     GET VPS POINTER AND POINTER TO VALUE IN BLANK COMMON.\r\n      J = IOSCR(I1)\r\n      K = IOSCR(I1+1)\r\nC     GET LENGTH OF VALUE FROM VPS\r\n      L = IVPS(J-1)\r\nC     TRANSFER VALUE FROM BLANK COMMON TO VPS\r\n      DO 10 I2 = 1,L\r\n      IVPS(J) = IPAR(K)\r\n      J = J + 1\r\n   10 K = K + 1\r\n   20 CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xscndm.f",
    "content": "      SUBROUTINE XSCNDM\r\nC\r\nC     THE PURPOSE OF THIS ROUTINE IS TO RETURN TO THE CALLING PROGRAM\r\nC     THE NEXT BCD OR BINARY ENTRY IN DMAP ARRAY.\r\nC\r\nC     IBUFF  = BUFFER AREA WHERE CARD IMAGE IS STORED FOR XRCARD INPUT.\r\nC     IDLMTR = TABLE OF DELIMITER CHARACTERS\r\nC     ITYPE  = TABLE FOR CONVERTING NUMBER TYPE TO WORD LENGTH.\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS, 2/90\r\nC     REMOVING LVAX AND .NOT.LVAX AND STANDARDIZED ALL BYTE OPERATIONS\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ORF\r\n      INTEGER         GNOBUF(1),ITYPE(6),DMPCRD(1),IDLMTR(8),OS(5),\r\n     1                OSCAR(1)\r\n      COMMON /SYSTEM/ KSYSTM(100)\r\n      COMMON /XGPIC / ICOLD,ISLSH,IEQUL,NBLANK,NXEQUI,\r\n     1                NDIAG,NSOL,NDMAP,NESTM1,NESTM2,NEXIT,\r\n     2                NBEGIN,NEND,NJUMP,NCOND,NREPT,NTIME,NSAVE,NOUTPT,\r\n     3                NCHKPT,NPURGE,NEQUIV,NACPW,NBPC,NAWPC,\r\n     4                MASKHI,MASKLO,ISGNON,NOSGN,IALLON\r\n      COMMON /XGPIE / NSCR\r\n      COMMON /ZZZZZZ/ CORE(1)\r\n      COMMON /XGPI4 / IRTURN,INSERT,ISEQN,DMPCNT,\r\n     1                IDMPNT,DMPPNT,BCDCNT,LENGTH,ICRDTP,ICHAR,NEWCRD,\r\n     2                MODIDX,LDMAP,ISAVDW,DMAP(1)\r\n      COMMON /XGPI5 / IAPP,START,ALTER(2)\r\n      COMMON /XGPI6 / KRUD(6),DIAG14,DIAG17,DIAG4,DIAG25,IFIRST,\r\n     1                IBUFF(20)\r\n      COMMON /PASSER/ ISTOPF,MODNAM,KKCOMM\r\n      EQUIVALENCE     (KSYSTM(3),NOGO),(CORE(1),OS(1),LOSCAR),\r\n     1                (OS(2),OSPRC),(OS(3),OSBOT),(OS(4),OSPNT),\r\n     2                (OS(5),OSCAR(1),DMPCRD(1),GNOBUF(1))\r\n      DATA    ITYPE / 1,1,2,2,2,4/ ,IDLMTR/\r\n     1        4H$   , 4H/   ,4H=   ,4H,   ,4H(   ,4H)   ,4H    ,4H*   /\r\n      DATA    NOSCR1/ 4HOSCA/,      NOSCR2/4HR   /\r\n      DATA    NPT   / 4HNPTP/,      IZERO / 0    /\r\n      DATA    NWPC  / 18    /,      NCPW  / 4    /\r\nC\r\nC *** WARNING - NWPC AFFECTS CODE IN XOSGEN SO BEWARE IF YOU CHANGE IT.\r\nC\r\n      KCOMMA = KHRFN1(IZERO,1,IDLMTR(4),1)\r\n      KBLANK = KHRFN1(IZERO,1,IDLMTR(7),1)\r\n      KKCOMM = 0\r\nC\r\nC     CHECK FOR OSCAR TABLE OVERFLOW\r\nC\r\n      IF (OSCAR(OSBOT)+OSBOT .GT. ICRDTP) GO TO 310\r\nC\r\nC     CHECK FOR CARD READ ERROR\r\nC\r\n      IF (NOGO .EQ. 2) GO TO 340\r\nC\r\nC     CHECK FOR NEW CARD NEEDED.\r\nC\r\n      IF (NEWCRD .NE. 0) GO TO 200\r\n      IF (BCDCNT) 330,10,130\r\nC\r\nC     BCDCNT = 0, TEST MODE\r\nC\r\n   10 IF (MODNAM .EQ. 0) GO TO 90\r\n      KFL1 = 0\r\n      ICOM = 0\r\n      DO 80 KH  = 1,NWPC\r\n      DO 70 KDH = 1,NCPW\r\n      NCHAR  = KHRFN1(IZERO,1,IBUFF(KH),KDH)\r\n      IF (NCHAR-KBLANK) 40,20,40\r\n   20 IF (KFL1) 30,70,30\r\n   30 KFL1 = 2\r\n      GO TO 70\r\n   40 IF (NCHAR-KCOMMA) 50,60,50\r\n   50 IF (ICOM.EQ.1 .OR. KFL1.EQ.2) GO TO 90\r\n      KFL1 = 1\r\n      GO TO 70\r\n   60 KFL1 = 2\r\n      ICOM = ICOM + 1\r\n      IF (ICOM .NE. 2) GO TO 70\r\n      KKCOMM = 1\r\n      GO TO 90\r\n   70 CONTINUE\r\n   80 CONTINUE\r\n   90 IF (DMAP(IDMPNT) .EQ. RSHIFT(IALLON,1)) GO TO 180\r\n      IF (DMAP(IDMPNT)) 100,110,120\r\nC\r\nC     BINARY VALUE - TRANSLATE TYPE INTO LENGTH\r\nC\r\n  100 I = IABS(DMAP(IDMPNT))\r\n      IF (I .GT. 6) GO TO 330\r\nC\r\nC     A MISUNDERSTANDING MAKES THE FOLLOWING STATEMENT NECESSARY.\r\nC\r\n      DMAP(IDMPNT) = ORF(ISGNON,I)\r\n      LENGTH = ITYPE(I)\r\n      DMPPNT = IDMPNT\r\n      IDMPNT = LENGTH + 1 + IDMPNT\r\n      IRTURN = 3\r\n      GO TO 350\r\nC\r\nC     CONTINUE MODE - GET NEXT CARD\r\nC\r\n  110 NEWCRD = 1\r\n      GO TO 200\r\nC\r\nC     MODE IS BCD, INITIALIZE BCDCNT, DMPPNT, AND CHECK FOR OVERFLOW\r\nC\r\n  120 BCDCNT = DMAP(IDMPNT)\r\n      IDMPNT = IDMPNT + 1\r\n      IF (2*BCDCNT+IDMPNT .GT. LDMAP) GO TO 330\r\nC\r\nC     TEST FOR OPERATOR ENTRY.\r\nC\r\n  130 IRTURN = 2\r\n      IF (DMAP(IDMPNT) .EQ. IALLON) GO TO 150\r\n  140 DMPPNT = IDMPNT\r\n      IDMPNT = IDMPNT + 2\r\n      BCDCNT = BCDCNT - 1\r\n      GO TO 350\r\nC\r\nC     DELIMITER FOUND - CHECK FOR COMPLEX NUMBER\r\nC\r\n  150 IRTURN = 1\r\n      IF (KHRFN1(IZERO,1,DMAP(IDMPNT+1),1) .NE.\r\n     1    KHRFN1(IZERO,1,IDLMTR(5),1)) GO TO 140\r\nC\r\nC     LEFT PAREN FOUND - SEE IF TWO NUMBERS FOLLOW\r\nC\r\n      IF (DMAP(IDMPNT+2).EQ.-2 .AND. DMAP(IDMPNT+4).EQ.-2) GO TO 160\r\n      IF (DMAP(IDMPNT+2).NE.-4 .OR.  DMAP(IDMPNT+5).NE.-4) GO TO 140\r\nC\r\nC     DOUBLE PRECISION COMPLEX NUMBER FOUND - FORM NUMBER CORRECTLY AND\r\nC     SET TYPE CODE.\r\nC\r\n      DMAP(IDMPNT+5) = DMAP(IDMPNT+4)\r\n      DMAP(IDMPNT+4) = DMAP(IDMPNT+3)\r\n      DMAP(IDMPNT+3) = -6\r\n      GO TO 170\r\nC\r\nC     SINGLE PRECISION COMPLEX NUMBER FOUND - FORM NUMBER CORRECTLY\r\nC\r\n  160 DMAP(IDMPNT+4) = DMAP(IDMPNT+3)\r\n      DMAP(IDMPNT+3) = -5\r\n  170 BCDCNT = 0\r\n      IDMPNT = IDMPNT + 3\r\n      GO TO 100\r\nC\r\nC     END OF DMAP INSTRUCTION\r\nC\r\n  180 IRTURN = 4\r\n      GO TO 350\r\nC\r\nC     GET NEXT CARD IMAGE AND TRANSLATE INTO DMAP ARRAY.\r\nC\r\n  200 IBUFCT = 1\r\n      IBWRD  = 1\r\n      ICALL  = 0\r\nC\r\nC     CHECK FOR INSERT TO BE MADE\r\nC\r\n      IF (INSERT.GT.0 .OR. INSERT.EQ.-1) GO TO 210\r\n      GO TO 250\r\nC\r\nC     GET NEXT CARD IMAGE FROM ALTER FILE\r\nC\r\n  210 CONTINUE\r\n      CALL READ (*230,*220,NPT,IBUFF,18,1,L)\r\n      GO TO 260\r\nC\r\nC     NO MORE INSTRUCTIONS TO INSERT FOR THIS ALTER\r\nC     MOVE NEXT ALTER CONTROL TO ALTER CELLS\r\nC\r\n  220 ALTER(1) = IBUFF(1)\r\n      ALTER(2) = IBUFF(2)\r\n      GO TO 240\r\nC\r\nC     END OF ALTER FILE - SET ALTER CELL INFINITE\r\nC\r\n  230 ALTER(1) = 10000\r\n  240 CONTINUE\r\n      IF (NEWCRD .GT. 0) GO TO 300\r\n      GO TO 180\r\nC\r\nC     FILL IBUFF WITH CARD IMAGE\r\nC\r\n  250 CALL READ (*320,*260,NSCR,IBUFF,NWPC,0,LX)\r\nC\r\nC     CHECK INSERT FOR NO PRINT\r\nC\r\n  260 IF (INSERT .LT. 0) GO TO 270\r\nC\r\nC     PRINTOUT DMAP INSTRUCTION\r\nC\r\n      IF (IFIRST .EQ. 0) GO TO 270\r\n      IF (DIAG17.EQ.0 .AND. (DIAG14.EQ.0 .OR. DIAG14.GE.10)) GO TO 270\r\n      I = 5\r\n      IF (NEWCRD .GT. 0) I = 6\r\n      CALL XGPIMW (I,NWPC,DMPCNT,IBUFF)\r\nC\r\nC     CHECK FOR COMMENT CARD\r\nC\r\n  270 IF (KHRFN1(IZERO,1,IDLMTR(1),1) .EQ. KHRFN1(IZERO,1,IBUFF(1),1))\r\n     1    GO TO 200\r\nC\r\nC     CONVERT CARD IMAGE\r\nC\r\n      CALL XRCARD (DMAP,LDMAP,IBUFF)\r\nC\r\nC     CHECK FOR BAD CARD FORMAT\r\nC\r\n      IF (DMAP(1) .EQ. 0) GO TO 180\r\nC\r\nC     TRANSLATE CARD IMAGE INTO DMAP ARRAY\r\nC\r\n      IDMPNT = 1\r\n      BCDCNT = 0\r\n      NEWCRD = 0\r\n      GO TO 10\r\nC\r\nC     DIAGNOSTIC MESSAGES -\r\nC\r\nC     ERROR IN ALTER DECK - CANNOT FIND LOGICAL END OF CARD\r\nC\r\n  300 CALL XGPIDG (40,0,0,0)\r\n      GO TO 180\r\nC\r\nC     OSCAR TABLE OVERFLOW\r\nC\r\n  310 CALL XGPIDG (14,NOSCR1,NOSCR2,DMPCNT)\r\n      CALL XGPIDG (-38,2000,0,0)\r\nC\r\nC     THIS DMAP INSTRUCTION NOT FOLLOWED BY END CARD.\r\nC\r\n  320 CALL XGPIDG (44,OSPNT,0,0)\r\n      GO TO 340\r\nC\r\nC     CANNOT INTERPRET DMAP CARD\r\nC\r\n  330 CALL XGPIDG (34,0,DMPCNT,0)\r\nC\r\nC     ABORT - CANNOT CONTINUE COMPILATION\r\nC\r\n  340 NOGO   = 2\r\n      IRTURN = 5\r\n  350 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xsem00.f",
    "content": "      SUBROUTINE XSEM00\r\nC **********************************************************************\r\nC THE PURPOSE OF THIS ROUTINE IS TO EXECUTE THE PREFACE AND THEN TO\r\nC EXECUTE MODULES ACCORDING TO THE DMAP.  THE DMAP IS READ FROM THE\r\nC OSCAR.  FOR EACH MODULE TO BE EXECUTED, THE FIST AND XVPS ARE SETUP.\r\nC\r\nCWKBD 5/95\r\nC     INTEGER ORF\r\n      INTEGER ANDF ,DATABF,ERRFLG,FIST  ,FISTNM,FSTRST,OPNTR \r\n     1       ,PARML,PARAM ,PARMN ,POOL  ,RSHIFT,SCRTCH\r\n     2       ,VPS  ,VPARML,TYPECD,VPSX  ,WORDB ,WORDE\r\n     3       ,PLOTF,EXIT  ,SYSBUF,SUBNAM(2)\r\n      INTEGER EQUIV(2), PURGE(2), XEQU, XPUR, XSAV, YCHK\r\nCWKBI 5/95\r\n      CHARACTER*4   WORDC\r\nC\r\n      LOGICAL LVAX\r\nC\r\n      DIMENSION SCRTCH(3),WORDB(4),WORDE(2),NUMBR(10)\r\nC\r\n      COMMON/MACHIN/MACH\r\n      COMMON/SEM   /MASK  ,MASK2 ,MASK3 ,LINKNM(15)\r\n     1\r\n     F      /SYSTEM/SYSBUF,XX(20),LINKNO,XXX(16),NBPC,NBPW,NCPW,XXXX(53)\r\n     F             ,ISPERLNK\r\n     G\r\n     H      /XLINK /LXLINK,MAXLNK,MXLINK(1)\r\n     1\r\n     2      /XFIST /FIST(2)\r\n     3\r\n     4      /XPFIST/FSTRST\r\n     5\r\n     6      /OSCENT/INOSCR(200)\r\n     7\r\n     8      /ZZZZZZ/DATABF(1)\r\n     9\r\n     A      /BLANK /PARAM(100)\r\n     B\r\n     C      /XVPS  /VPS(1)\r\n     D\r\n     E      /MSGX  /NMSG\r\nC\r\n      EQUIVALENCE (XX(1),NOUT)\r\n      EQUIVALENCE (XX(19),PLOTF)\r\n      equivalence (xx(17),itmbgn)\r\nCWKBI 5/95\r\n      EQUIVALENCE ( WORDC, WORDB )\r\nC\r\n      DATA POOL /4HPOOL/\r\n     3,    SCRTCH  /4HSCRA,4HTCH0,4HTCH0/\r\n     4,    NUMBR   /1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0 /\r\n     5,    WORDB   /4HSEM1,4HBEGN,4H    ,4H    /\r\n     5,    WORDE   /4HBEGN,4HEND /\r\n     6,    IBLNK   /4H    /\r\n     6,    MODX    /   215/\r\n     7,    EXIT    /4HEXIT/\r\n      DATA SUBNAM  /4HXSEM,2H00/\r\n      DATA EQUIV, PURGE /4HEQUI, 4HV   , 4HPURG, 4HE   /\r\n      DATA XEQU , XPUR  /4HXEQU, 4HXPUR/\r\n      DATA XSAV , YCHK  /4HXSAV, 4HXCHK/\r\nC*****\r\nC INITIALIZE MACHINE DEPENDENT CONSTANTS\r\n      CALL BTSTRP\r\n      LVAX = MACH.EQ.5\r\nC*****\r\nC EXECUTE PREFACE\r\nC*****\r\n      KSCR= LSHIFT(1,NBPW-4*NBPC)\r\n      CALL TDATE(XX(14))\r\n      CALL CONMSG(WORDB,2,1)\r\n      CALL SEMINT ( 0 )\r\n      ISPERLNK = 1\r\n      WORDB(2) = WORDE(2)\r\n      CALL CONMSG ( WORDB,2,1)\r\n      IPLOT = PLOTF\r\n      IF (PLOTF .LT. 0) PLOTF=1\r\n      IBUF1 = KORSZ(DATABF)-SYSBUF\r\n      GO TO 20\r\nC*****\r\nC RETURN HERE AFTER MODULE HAS EXECUTED\r\nC*****\r\n   10 IF (INOSCR(4).EQ.XSAV.OR.INOSCR(4).EQ.YCHK) GO TO 20\r\n      WORDB(4) = WORDE(2)\r\nC      CALL CONMSG(WORDB,4,0)\r\n      CALL CONMSG(WORDB,4,222222)\r\n   20 IF(NMSG .GT. 0) CALL MSGWRT\r\n      CALL OPEN(*270,POOL,DATABF(IBUF1),2)\r\nC*****\r\nC READ THE OSCAR ENTRY\r\nC*****\r\n   30 CALL READ(*280,*40,POOL,INOSCR,200,1,ERRFLG)\r\n      GO TO 290\r\n   40 IF (INOSCR(6))50,30,30\r\nC*****\r\nC TRY AGAIN IF EXECUTE FLAG IS OFF\r\nC*****\r\n   50 CALL CLOSE(POOL,2)\r\n      TYPECD= ANDF(INOSCR(3),MASK)\r\nC*****\r\nC NOW DETERMINE TYPE OF OSCAR FORMAT\r\nC*****\r\n      IF(TYPECD .GT. 2)  GO TO 200\r\nC*****\r\nC*****\r\nC NOW PROCESSING TYPE O AND F\r\nC*****\r\n   60 MODNO= INOSCR(2)\r\n      FIST(2)= FSTRST\r\n      OPNTR = 7\r\n      ASSIGN 110 TO MM\r\n      FISTNM=101\r\nC*****\r\nC PROCESS FILES IN OSCAR ENTRY.\r\nC*****\r\n   70 J=INOSCR(OPNTR)\r\n      OPNTR=OPNTR+1\r\n      IF(J.EQ.0) GO TO 100\r\n      DO 90 I=1,J\r\n      CALL GNFIST(INOSCR(OPNTR),FISTNM,MODNO)\r\n      IF(MODNO) 60,260,80\r\n   80 OPNTR= OPNTR+ 3\r\n   90 FISTNM=FISTNM+1\r\n  100 GO TO MM,(110,120)\r\nC*****\r\nC SETUP TO PROCESS OUTPUT FILES\r\nC*****\r\n  110 IF(TYPECD.EQ.2) GO TO 120\r\n      ASSIGN 120 TO MM\r\n      FISTNM=201\r\n      GO TO 70\r\nC*****\r\nC PROCESS SCRATCH FILES\r\nC*****\r\n  120 J1= INOSCR(OPNTR)\r\n      IF(J1.EQ.0) GO TO 140\r\n      FISTNM= 301\r\n      SCRTCH(2) = SCRTCH(3)\r\n      LL = 1\r\n      L  = 0\r\n      DO 130 J=1,J1\r\n      L = L + 1\r\n      IF ( L .EQ. 10 ) SCRTCH(2) = KHRFN1(SCRTCH(2),3,NUMBR(LL),1)\r\n      SCRTCH(2) = KHRFN1(SCRTCH(2),4,NUMBR(L),1)\r\n      CALL GNFIST(SCRTCH,FISTNM,MODNO)\r\n      IF ( L .NE. 10 ) GO TO 125\r\n      L  = 0\r\n      LL = LL + 1\r\n  125 IF(MODNO) 60,260,130\r\n  130 FISTNM=FISTNM+1\r\n  140 OPNTR=OPNTR+1\r\nC*****\r\nC NOW PROCESS PARAMETER LIST IN OSCAR\r\nC  PARMN = NO. OF PARAMETERS TO PROCESS\r\nC*****\r\n      PARMN=INOSCR(OPNTR)\r\n      IF(PARMN .EQ. 0)  GO TO 200\r\n      II=1\r\n      OPNTR= OPNTR+ 1\r\n      DO 190 J2=1,PARMN\r\n      IF(INOSCR(OPNTR))170,150,150\r\nC*****\r\nC NOW PROCESS CONSTANT PARAMETER\r\nC*****\r\n  150 PARML=INOSCR(OPNTR)\r\n      OPNTR=OPNTR+1\r\n      DO 160 J3=1,PARML\r\n      PARAM(II)=INOSCR(OPNTR)\r\n      II=II+1\r\n  160 OPNTR=OPNTR+1\r\n      GO TO 190\r\nC*****\r\nC MOVE VARIABLE INTO COMMON VIA VPS TABLE\r\nC*****\r\n  170 VPSX= ANDF(INOSCR(OPNTR),MASK3)\r\n      OPNTR=OPNTR+1\r\n      VPARML=VPS(VPSX-1)\r\n      DO 180 J5=1,VPARML\r\n      PARAM(II)=VPS(VPSX)\r\n      II=II+1\r\n  180 VPSX=VPSX+1\r\n  190 CONTINUE\r\n  200 MODX = RSHIFT(INOSCR(3),16)\r\nC*****\r\nC MODULE IS IN THIS LINK\r\nC PRINT TIME MODULE BEGAN EXECUTION IF FUNCTIONAL MODULE\r\nC*****\r\n  245 WORDB(2) = INOSCR(4)\r\n      WORDB(3) = INOSCR(5)\r\n      IF (INOSCR(4).NE.XEQU.AND.INOSCR(4).NE.XPUR) GO TO 250\r\n      IF (INOSCR(4).NE.XEQU) GO TO 248\r\n      WORDB(2) = EQUIV(1)\r\n      WORDB(3) = EQUIV(2)\r\n      GO TO 250\r\n  248 WORDB(2) = PURGE(1)\r\n      WORDB(3) = PURGE(2)\r\n  250 CALL TMTOGO (KTIME)\r\n      IF (KTIME.LE.0.AND.WORDB(2).NE.EXIT)\r\n     *   CALL MESAGE (-50, 0, WORDB(2))\r\n      IF (INOSCR(4).EQ.XSAV.OR.INOSCR(4).EQ.YCHK) GO TO 1000\r\n      WORDB(1) = IBLNK\r\n      WORDB(4) = WORDE(1)\r\nC\r\nC     EXTRACT DMAP SEQUENCE NUMBER\r\nC\r\n      IDIN  = ANDF(INOSCR(6),MASK)\r\nCWKBIB 5/95\r\n      WRITE( WORDC, 251 ) IDIN\r\n251   FORMAT( I4 )\r\nCWKBIE 5/95\r\nCWKBDB 5/95\r\nC      DO 251  I =1,4\r\nC      ICHR  = IDIN -(IDIN/10)*10 +1\r\nC      L = NBPW-NBPC\r\nC      IF (.NOT.LVAX)  WORDB(1) =\r\nC     *    ORF(RSHIFT(WORDB(1),NBPC),LSHIFT(RSHIFT(NUMBR(ICHR),L),L))\r\nC      IF (LVAX)  WORDB(1)=KHRFN1(WORDB(1),5-I,NUMBR(ICHR),1)\r\nC      IDIN = IDIN/10\r\nC      IF(IDIN .EQ. 0)  GO TO 252\r\nC  251 CONTINUE\r\nCWKBDE 5/95  \r\n  252 CONTINUE\r\nC      CALL CONMSG(WORDB,4,0)\r\n      CALL CONMSG(WORDB,4,111111)\r\n      GO TO 1000\r\nC*****\r\nC                   E R R O R   M E S S A G E S\r\nC*****\r\nC MODULE REQUIREMENTS EXCEED AVAILABLE FILES\r\n  260 INOSCR(6) = ANDF(INOSCR(6),MASK)\r\n      CALL MESAGE(-18,INOSCR(6),INOSCR(4))\r\nC\r\nC UNEXPECTED ALTERNATE RETURN TAKEN WHILE ATTEMPTING TO OPEN POOL TAPE.\r\n  270 CONTINUE\r\n      KODE = 270\r\n      GO TO 990\r\nC\r\nC OSCAR FILE POSITIONED INCORRECTLY - HIT EOF.\r\n  280 CONTINUE\r\n      KODE = 280\r\n      GO TO 990\r\nC\r\nC OSCAR RECORD TOO LARGE FOR /OSCENT/\r\n  290 CONTINUE\r\n      KODE = 290\r\n      GO TO 990\r\nC\r\nC LINK SPECIFICATIONS INCORRECT FOR THIS MODULE.\r\n  940 CONTINUE\r\n      WRITE (NOUT,945) WORDB,MODX\r\n  945 FORMAT (/1X,4A4,I9)\r\n      KODE = 940\r\n      GO TO 990\r\nC\r\nC\r\n  990 CONTINUE\r\n      WRITE(NOUT,991) KODE\r\n  991 FORMAT(64H0*** SYSTEM FATAL MESSAGE 1006, LINK DRIVER LOGIC ERROR\r\n     *- CODE =,I4)\r\n      CALL MESAGE(-37,0,SUBNAM)\r\nC**********************************************************************\r\nC EXECUTE MODULE\r\n 1000 CALL SSWTCH ( 2, LDIAG )\r\nC     IF ( LDIAG .NE. 0 .AND. MODX .GT. 14 ) CALL DBMDIA\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1( 940,  940, 2003,  940, 2005, 2006, 2007, 2008, 2009, 2010),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2021, 2022, 2023, 2024, 2025, 2026, 2027, 2028, 2029, 2030),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2031, 2032, 2033, 2034, 2035, 2036, 2037, 2038, 2039, 2040),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2041, 2042, 2043, 2044, 2045, 2046, 2047, 2048, 2049, 2050),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2051, 2052, 2053, 2054, 2055, 2056, 2057, 2058, 2059, 2060),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2061, 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 2070),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2071, 2072, 2073, 2074, 2075, 2076, 2077, 2078, 2079, 2080),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2081, 2082, 2083, 2084, 2085, 2086, 2087, 2088, 2089, 2090),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2091, 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2100),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2101, 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 2110),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2111, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 2120),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2121, 2122, 2123, 2124, 2125, 2126, 2127, 2128, 2129, 2130),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 2139, 2140),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2141, 2142, 2143, 2144, 2145, 2146, 2147, 2148, 2149, 2150),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2151, 2152, 2153, 2154, 2155, 2156, 2157, 2158, 2159, 2160),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2161, 2162, 2163, 2164, 2165, 2166, 2167, 2168, 2169, 2170),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2171, 2172, 2173, 2174, 2175, 2176, 2177, 2178, 2179, 2180),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2181, 2182, 2183, 2184, 2185, 2186, 2187, 2188, 2189, 2190),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2191, 2192, 2193, 2194, 2195, 2196, 2197, 2198, 2199, 2200),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE. 10 ) GO TO\r\n     1(2201, 2202, 2203, 2204, 2205, 2206, 2207, 2208, 2209, 2210),MODX\r\n      MODX = MODX - 10\r\n      IF ( MODX .GE.  1  .AND. MODX .LE.  7 ) GO TO\r\n     1(2211, 2212, 2213, 2214, 2215, 2216, 2217), MODX\r\n      GO TO 940\r\n 2003 CALL XCHK\r\n      GO TO 10\r\n 2005 CALL XCEI\r\n      GO TO 10\r\n 2006 CALL XCEI\r\n      GO TO 10\r\n 2007 CALL XCEI\r\n      GO TO 10\r\n 2008 CALL XSAVE\r\n      GO TO 10\r\n 2009 CALL XPURGE\r\n      GO TO 10\r\n 2010 CALL XEQUIV\r\n      GO TO 10\r\n 2011 CALL XCEI\r\n      GO TO 10\r\n 2012 CALL XCEI\r\n      GO TO 10\r\n 2013 CALL XCEI\r\n      GO TO 10\r\n 2014 CALL DADD\r\n      GO TO 10\r\n 2015 CALL DADD5\r\n      GO TO 10\r\n 2016 CALL AMG\r\n      GO TO 10\r\n 2017 CALL AMP\r\n      GO TO 10\r\n 2018 CALL APD\r\n      GO TO 10\r\n 2019 CALL BMG\r\n      GO TO 10\r\n 2020 CALL CASE\r\n      GO TO 10\r\n 2021 CALL CYCT1\r\n      GO TO 10\r\n 2022 CALL CYCT2\r\n      GO TO 10\r\n 2023 CALL CEAD\r\n      GO TO 10\r\n 2024 CALL CURV\r\n      GO TO 10\r\n 2025 CONTINUE\r\n      GO TO 10\r\n 2026 CALL DDR\r\n      GO TO 10\r\n 2027 CALL DDR1\r\n      GO TO 10\r\n 2028 CALL DDR2\r\n      GO TO 10\r\n 2029 CALL DDRMM\r\n      GO TO 10\r\n 2030 CALL DDCOMP\r\n      GO TO 10\r\n 2031 CALL DIAGON\r\n      GO TO 10\r\n 2032 CALL DPD\r\n      GO TO 10\r\n 2033 CALL DSCHK\r\n      GO TO 10\r\n 2034 CALL DSMG1\r\n      GO TO 10\r\n 2035 CALL DSMG2\r\n      GO TO 10\r\n 2036 CONTINUE\r\n      GO TO 10\r\n 2037 CALL DUMOD1\r\n      GO TO 10\r\n 2038 CALL DUMOD2\r\n      GO TO 10\r\n 2039 CALL DUMOD3\r\n      GO TO 10\r\n 2040 CALL DUMOD4\r\n      GO TO 10\r\n 2041 CONTINUE\r\n      GO TO 10\r\n 2042 CALL EMA1\r\n      GO TO 10\r\nC         SET LINKNO TO FLAG SUBROUTINE SMA1B TO CALL EMG1B\r\n 2043 LINKNO = LINKNM(8)\r\n      CALL EMG\r\n      LINKNO = LINKNM(1)\r\n      GO TO 10\r\n 2044 CALL FA1\r\n      GO TO 10\r\n 2045 CALL FA2\r\n      GO TO 10\r\n 2046 CALL DFBS\r\n      GO TO 10\r\n 2047 CALL FRLG\r\n      GO TO 10\r\n 2048 CALL FRRD\r\n      GO TO 10\r\n 2049 CONTINUE\r\n      GO TO 10\r\n 2050 CALL GI\r\n      GO TO 10\r\n 2051 CALL GKAD\r\n      GO TO 10\r\n 2052 CALL GKAM\r\n      GO TO 10\r\n 2053 CALL GP1\r\n      GO TO 10\r\n 2054 CALL GP2\r\n      GO TO 10\r\n 2055 CALL GP3\r\n      GO TO 10\r\n 2056 CALL GP4\r\n      GO TO 10\r\n 2057 CALL GPCYC\r\n      GO TO 10\r\n 2058 CALL GPFDR\r\n      GO TO 10\r\n 2059 CALL DUMOD5\r\n      GO TO 10\r\n 2060 CALL GPWG\r\n      GO TO 10\r\n 2061 CONTINUE\r\n      GO TO 10\r\n 2062 CALL INPUT\r\n      GO TO 10\r\n 2063 CALL INPTT1\r\n      GO TO 10\r\n 2064 CALL INPTT2\r\n      GO TO 10\r\n 2065 CALL INPTT3\r\n      GO TO 10\r\n 2066 CALL INPTT4\r\n      GO TO 10\r\n 2067 CALL MATGEN\r\n      GO TO 10\r\n 2068 CALL MATGPR\r\n      GO TO 10\r\n 2069 CALL MATPRN\r\n      GO TO 10\r\n 2070 CALL PRTINT\r\n      GO TO 10\r\n 2071 CALL MCE1\r\n      GO TO 10\r\n 2072 CALL MCE2\r\n      GO TO 10\r\n 2073 CALL MERGE1\r\n      GO TO 10\r\n 2074 CONTINUE\r\n      GO TO 10\r\n 2075 CALL MODA\r\n      GO TO 10\r\n 2076 CALL MODACC\r\n      GO TO 10\r\n 2077 CALL MODB\r\n      GO TO 10\r\n 2078 CALL MODC\r\n      GO TO 10\r\n 2079 CALL DMPYAD\r\n      GO TO 10\r\n 2080 CALL MTRXIN\r\n      GO TO 10\r\n 2081 CALL OFP\r\n      GO TO 10\r\n 2082 CALL OPTPR1\r\n      GO TO 10\r\n 2083 CALL OPTPR2\r\n      GO TO 10\r\n 2084 CONTINUE\r\n      GO TO 10\r\n 2085 CALL OUTPT\r\n      GO TO 10\r\n 2086 CALL OUTPT1\r\n      GO TO 10\r\n 2087 CALL OUTPT2\r\n      GO TO 10\r\n 2088 CALL OUTPT3\r\n      GO TO 10\r\n 2089 CALL OUTPT4\r\n      GO TO 10\r\n 2090 CALL QPARAM\r\n      GO TO 10\r\n 2091 CALL PARAML\r\n      GO TO 10\r\n 2092 CALL QPARMR\r\n      GO TO 10\r\n 2093 CALL PARTN1\r\n      GO TO 10\r\n 2094 CONTINUE\r\n      GO TO 10\r\n 2095 CALL MRED1\r\n      GO TO 10\r\n 2096 CALL MRED2\r\n      GO TO 10\r\n 2097 CALL CMRD2\r\n      GO TO 10\r\n 2098 CALL PLA1\r\n      GO TO 10\r\n 2099 CALL PLA2\r\n      GO TO 10\r\n 2100 CALL PLA3\r\n      GO TO 10\r\n 2101 CALL PLA4\r\n      GO TO 10\r\n 2102 CONTINUE\r\n      GO TO 10\r\n 2103 CALL DPLOT\r\n      GO TO 10\r\n 2104 CALL DPLTST\r\n      GO TO 10\r\n 2105 CALL PLTTRA\r\n      GO TO 10\r\n 2106 CALL PRTMSG\r\n      GO TO 10\r\n 2107 CALL PRTPRM\r\n      GO TO 10\r\n 2108 CALL RANDOM\r\n      GO TO 10\r\n 2109 CALL RBMG1\r\n      GO TO 10\r\n 2110 CALL RBMG2\r\n      GO TO 10\r\n 2111 CALL RBMG3\r\n      GO TO 10\r\n 2112 CALL RBMG4\r\n      GO TO 10\r\n 2113 CONTINUE\r\n      GO TO 10\r\n 2114 CALL REIG\r\n      GO TO 10\r\n 2115 CALL RMG\r\n      GO TO 10\r\n 2116 CALL SCALAR\r\n      GO TO 10\r\n 2117 CALL SCE1\r\n      GO TO 10\r\n 2118 CALL SDR1\r\n      GO TO 10\r\n 2119 CALL SDR2\r\n      GO TO 10\r\n 2120 CALL SDR3\r\n      GO TO 10\r\n 2121 CALL SDRHT\r\n      GO TO 10\r\n 2122 CALL SEEMAT\r\n      GO TO 10\r\n 2123 CONTINUE\r\n      GO TO 10\r\n 2124 CALL SETVAL\r\n      GO TO 10\r\n 2125 CALL SMA1\r\n      GO TO 10\r\n 2126 CALL SMA2\r\n      GO TO 10\r\n 2127 CALL SMA3\r\n      GO TO 10\r\n 2128 CALL SMP1\r\n      GO TO 10\r\n 2129 CALL SMP2\r\n      GO TO 10\r\n 2130 CALL SMPYAD\r\n      GO TO 10\r\n 2131 CALL SOLVE\r\n      GO TO 10\r\n 2132 CONTINUE\r\n      GO TO 10\r\n 2133 CALL SSG1\r\n      GO TO 10\r\n 2134 CALL SSG2\r\n      GO TO 10\r\n 2135 CALL SSG3\r\n      GO TO 10\r\n 2136 CALL SSG4\r\n      GO TO 10\r\n 2137 CALL SSGHT\r\n      GO TO 10\r\n 2138 CALL TA1\r\n      GO TO 10\r\n 2139 CALL TABPCH\r\n      GO TO 10\r\n 2140 CONTINUE\r\n      GO TO 10\r\n 2141 CALL TABFMT\r\n      GO TO 10\r\n 2142 CALL TABPT\r\n      GO TO 10\r\n 2143 CONTINUE\r\n      GO TO 10\r\n 2144 CALL TIMTST\r\n      GO TO 10\r\n 2145 CALL TRD\r\n      GO TO 10\r\n 2146 CALL TRHT\r\n      GO TO 10\r\n 2147 CALL TRLG\r\n      GO TO 10\r\n 2148 CALL DTRANP\r\n      GO TO 10\r\n 2149 CALL DUMERG\r\n      GO TO 10\r\n 2150 CALL DUPART\r\n      GO TO 10\r\n 2151 CALL VDR\r\n      GO TO 10\r\n 2152 CALL VEC\r\n      GO TO 10\r\n 2153 CONTINUE\r\n      GO TO 10\r\n 2154 CALL XYPLOT\r\n      GO TO 10\r\n 2155 CALL XYPRPT\r\n      GO TO 10\r\n 2156 CALL XYTRAN\r\n      GO TO 10\r\n 2157 CONTINUE\r\n      GO TO 10\r\n 2158 CALL COMB1\r\n      GO TO 10\r\n 2159 CALL COMB2\r\n      GO TO 10\r\n 2160 CALL EXIO\r\n      GO TO 10\r\n 2161 CALL RCOVR\r\n      GO TO 10\r\n 2162 CALL EMFLD\r\n      GO TO 10\r\n 2163 CONTINUE\r\n      GO TO 10\r\n 2164 CALL RCOVR3\r\n      GO TO 10\r\n 2165 CALL REDUCE\r\n      GO TO 10\r\n 2166 CALL SGEN\r\n      GO TO 10\r\n 2167 CALL SOFI\r\n      GO TO 10\r\n 2168 CALL SOFO\r\n      GO TO 10\r\n 2169 CALL SOFUT\r\n      GO TO 10\r\n 2170 CALL SUBPH1\r\n      GO TO 10\r\n 2171 CALL PLTMRG\r\n      GO TO 10\r\n 2172 CONTINUE\r\n      GO TO 10\r\n 2173 CALL COPY\r\n      GO TO 10\r\n 2174 CALL SWITCH\r\n      GO TO 10\r\n 2175 CALL MPY3\r\n      GO TO 10\r\n 2176 CALL DDCMPS\r\n      GO TO 10\r\n 2177 CALL LODAPP\r\n      GO TO 10\r\n 2178 CALL GPSTGN\r\n      GO TO 10\r\n 2179 CALL EQMCK\r\n      GO TO 10\r\n 2180 CALL ADR\r\n      GO TO 10\r\n 2181 CALL FRRD2\r\n      GO TO 10\r\n 2182 CALL GUST\r\n      GO TO 10\r\n 2183 CALL IFT\r\n      GO TO 10\r\n 2184 CALL LAMX\r\n      GO TO 10\r\n 2185 CALL EMA\r\n      GO TO 10\r\n 2186 CALL ANISOP\r\n      GO TO 10\r\n 2187 CONTINUE\r\n      GO TO 10\r\n 2188 CALL GENCOS\r\n      GO TO 10\r\n 2189 CALL DDAMAT\r\n      GO TO 10\r\n 2190 CALL DDAMPG\r\n      GO TO 10\r\n 2191 CALL NRLSUM\r\n      GO TO 10\r\n 2192 CALL GENPAR\r\n      GO TO 10\r\n 2193 CALL CASEGE\r\n      GO TO 10\r\n 2194 CALL DESVEL\r\n      GO TO 10\r\n 2195 CALL PROLAT\r\n      GO TO 10\r\n 2196 CALL MAGBDY\r\n      GO TO 10\r\n 2197 CALL COMUGV\r\n      GO TO 10\r\n 2198 CALL FLBMG\r\n      GO TO 10\r\n 2199 CALL GFSMA\r\n      GO TO 10\r\n 2200 CALL TRAIL\r\n      GO TO 10\r\n 2201 CALL SCAN\r\n      GO TO 10\r\n 2202 CONTINUE\r\n      GO TO 10\r\n 2203 CALL PTHBDY\r\n      GO TO 10\r\n 2204 CALL VARIAN\r\n      GO TO 10\r\n 2205 CALL FVRST1\r\n      GO TO 10\r\n 2206 CALL FVRST2\r\n      GO TO 10\r\n 2207 CALL ALG\r\n      GO TO 10\r\n 2208 CALL APDB\r\n      GO TO 10\r\n 2209 CALL PROMPT\r\n      GO TO 10\r\n 2210 CALL OLPLOT\r\n      GO TO 10\r\n 2211 CALL INPTT5\r\n      GO TO 10\r\n 2212 CALL OUTPT5\r\n      GO TO 10\r\n 2213 CONTINUE\r\n      GO TO 10\r\n 2214 CALL QPARMD\r\n      GO TO 10\r\n 2215 CALL GINOFL\r\n      GO TO 10\r\n 2216 CALL DBASE\r\n      GO TO 10\r\n 2217 CALL NORMAL\r\n      GO TO 10\r\n      END\r\n"
  },
  {
    "path": "mis/xsfa.f",
    "content": "      SUBROUTINE XSFA (X)\r\nC\r\nC     ENTRY SIZE NUMBERS,  1=FIAT, 2=SOS, 3=MD, 4=DPD\r\nC\r\nC     REVISED  8/89,  SEE XSFABD\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      DIMENSION       IPRT(23),NSFA(3),DDBN(1),DFNU(1),FCUM(1),\r\n     1                FCUS( 1),FDBN(1),FEQU(1),FILE(1),FKND(1),\r\n     2                FMAT( 1),FNTU(1),FPUN(1),FON (1),FORD(1),\r\n     3                MINP( 1),MLSN(1),MOUT(1),MSCR(1),SAL (1),\r\n     4                SDBN( 1),SNTU(1),SORD(1),PFIL(2,3)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /BLANK / IBNK(1)\r\n      COMMON /MACHIN/ MCH\r\n      COMMON /XFIAT / FIAT(7)\r\n      COMMON /XFIST / FIST\r\n      COMMON /XDPL  / DPD(6)\r\n      COMMON /ZZZZZZ/ BUF1\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP,DUM(17),PLTFLG,DUM1,THISLK,DUM2,\r\n     1                ICFIAT,DMM(14),NBPC,NBPW,NCPW\r\n      COMMON /IXSFA / LMT3,BFF,PAD,IDEFR1,IDEFR2\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(5)\r\n      EQUIVALENCE               (DPD  (1),DNAF    ),(DPD  (2),DMXLG   ),\r\n     1      (DPD  (3),DCULG   ),(DPD  (4),DDBN (1)),(DPD  (6),DFNU (1)),\r\n     2      (FIAT (1),FUNLG   ),(FIAT (2),FMXLG   ),(FIAT (3),FCULG   ),\r\n     3      (FIAT (4),FEQU (1)),(FIAT (4),FILE (1)),(FIAT (4),FORD (1)),\r\n     4      (FIAT (5),FDBN (1)),(FIAT (7),FMAT (1)),(MD   (1),MLGN    ),\r\n     5      (MD   (2),MLSN (1)),(MD   (3),MINP (1)),(MD   (4),MOUT (1)),\r\n     6      (MD   (5),MSCR (1)),(SOS  (1),SLGN    ),(SOS  (2),SDBN (1)),\r\n     7      (SOS  (4),SAL  (1)),(SOS  (4),SNTU (1)),(SOS  (4),SORD (1)),\r\n     8      (XF1AT(1),FNTU (1)),(XF1AT(1),FON  (1)),(XF1AT(2),FPUN (1)),\r\n     9      (XF1AT(3),FCUM (1)),(XF1AT(4),FCUS (1)),(XF1AT(5),FKND (1))\r\n      EQUIVALENCE               (COMM (1),ALMSK   ),(COMM (2),APNDMK  ),\r\n     1      (COMM (3),CURSNO  ),(COMM (4),ENTN1   ),(COMM (5),ENTN2   ),\r\n     2      (COMM (6),ENTN3   ),(COMM (7),ENTN4   ),(COMM (8),FLAG    ),\r\n     3      (COMM (9),FNX     ),(COMM(10),LMSK    ),(COMM(11),LXMSK   ),\r\n     4      (COMM(12),MACSFT  ),(COMM(13),RMSK    ),(COMM(14),RXMSK   ),\r\n     5      (COMM(15),S       ),(COMM(16),SCORNT  ),(COMM(17),TAPMSK  ),\r\n     6      (COMM(18),THCRMK  ),(COMM(19),ZAP     )\r\n      DATA  OSCAR1, OSCAR2/ 4HXOSC, 4HAR  /, POOL  / 4HPOOL  /\r\n      DATA  NSFA  / 4HXSFA, 4H    , 4H    /, NS14  / 4HNS14  /\r\n      DATA  IBEGN,  IEND  / 4HBEGN, 4HEND /\r\n      DATA  PLUS  / 1H+   /\r\n      DATA  PFIL  / 4HPLTP, 4HAR  , 4HGPSE, 4HTS  , 4HELSE, 4HTS   /\r\nC\r\n      CALL XSFADD\r\n      NSFA(3) = IBEGN\r\n      CALL CONMSG (NSFA,3,0)\r\nC\r\nC     ALMSK  = O 377777777777     Z 7FFFFFFF\r\n      ALMSK  = RSHIFT(COMPLF(0),1)\r\nC\r\nC     THCRMK = O 777777000000     Z FFFFFF00\r\n      THCRMK = LSHIFT(ALMSK,NBPW-(3*NBPC))\r\nC\r\nC     S      = O 400000000000     Z 80000000\r\n      S      = LSHIFT(1,NBPW-1)\r\nC\r\nC     MACSFT = SHIFT COUNT TO PLACE INTEGER IN 4TH FROM LEFT CHARACTER\r\n      MACSFT = (NCPW-4)*NBPC\r\nC\r\n      ENTN1  = ICFIAT\r\n      CURSNO = X\r\nC\r\nC     GET OSCAR FILE POSITION AND SAVE IN FNOS\r\nC     ALSO SAVE RECORD POSITION IN RNOS\r\nC\r\n      CALL XPOLCK (OSCAR1,OSCAR2,FNOS,NX)\r\n      IF (FNOS .EQ. 0) GO TO 920\r\n      FNX  = FNOS\r\n      RNOS = CURSNO\r\n      CALL XSOSGN\r\n      IF (MLGN .EQ. 0) GO TO 930\r\n      CALL XCLEAN\r\nC\r\nC     INITIALIZE PRIOR TO FIRST MODULE ALLOCATION\r\nC\r\n      ASSIGN 670 TO ITEST\r\nC\r\n      LMT1  = MLGN *ENTN3\r\n      LMT8  = FUNLG*ENTN1\r\n      LMT8P1= LMT8 + 1\r\n      DO 110 I = 1,LMT8,ENTN1\r\n      IF (ANDF(TAPMSK,FILE(I)) .NE. 0) GO TO 120\r\n  110 CONTINUE\r\n      TAPMSK = 0\r\nC\r\nC     LOOP THRU ALL MODULES IN SOS\r\nC\r\n  120 I = 1\r\n  125 TOTIO = MINP(I)+ MOUT(I)\r\n      TOTF  = TOTIO  + MSCR(I)\r\n      ALCNT = 0\r\n      LMT2  = LMT3 + 1\r\n      LMT4  = LMT3 + MINP(I)*ENTN2\r\n      LMT5  = LMT4 + MOUT(I)*ENTN2\r\n      LMT3  = LMT3 + TOTF   *ENTN2\r\n      LMT9  = FCULG*ENTN1\r\n      NFCULG= LMT9 + 1\r\n      ITIORD= LSHIFT(MLSN(I),16)\r\n      DO 130 J = 1,LMT9,ENTN1\r\n  130 FCUM(J) = 0\r\nC\r\nC     SEQUENCE THRU SOS (ONE MODULE) LOOK FOR NAME MATCH + LTU COMPARE\r\nC\r\n  150 FLAG = 0\r\n      DO 260 K = LMT2,LMT3,ENTN2\r\n      IF (SAL(K) .LT. 0)  GO TO 260\r\n      ITPFLG = ANDF(TAPMSK,SNTU(K))\r\nC\r\nC     SEQUENCE THRU FIAT (NAME MATCH)\r\nC\r\n      DO 170 F1 = 1,LMT9,ENTN1\r\n      IF (SDBN(K).NE.FDBN(F1) .OR. SDBN(K+1).NE.FDBN(F1+1)) GO TO 170\r\n      IF (FPUN(F1) .LT. 0) GO TO 680\r\n      FNTU(F1) = ORF(ANDF(S,FON(F1)),SNTU(K))\r\n      FCUM(F1) = -1\r\n      FCUS(F1) = -1\r\n      IF (FKND(F1) .EQ. 0) FKND(F1) = 1\r\n      GO TO 230\r\n  170 CONTINUE\r\n      IF (MLSN(I) .LT. 0) GO TO 260\r\n      IF (K    .LE. LMT4) GO TO 260\r\n      IF (ANDF(APNDMK,SORD(K)) .EQ. APNDMK) GO TO 260\r\nC\r\nC     SEQUENCE THRU FIAT (LTU COMPARE)\r\nC\r\n      DO 220 F1 = 1,LMT9,ENTN1\r\n      IF (ITIORD .LE. ANDF(LMSK,FORD(F1))) GO TO 220\r\n      IF (FON (F1) .LT. 0) GO TO 220\r\n      IF (FCUM(F1) .LT. 0) GO TO 220\r\n      IF (FDBN(F1) .EQ. 0) GO TO 220\r\n      IF (ANDF(RMSK,FILE(F1)) .EQ. RMSK) GO TO 220\r\n      IF (ANDF(LMSK,FORD(F1)) .EQ. LMSK) GO TO 220\r\n      IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 220\r\n      IF (FEQU(F1) .GE. 0) GO TO 210\r\n      FIL = ANDF(RMSK,FILE(F1))\r\n      DO 200 L = 1,LMT9,ENTN1\r\n      IF (FEQU(L) .GE. 0) GO TO 200\r\n      IF (F1      .EQ. L) GO TO 200\r\n      IF (FIL    .NE. ANDF(RMSK,FILE(L))) GO TO 200\r\n      IF (ITIORD .LE. ANDF(LMSK,FORD(L))) GO TO 220\r\n      IF (FON(L)  .LT. 0) GO TO 220\r\n      IF (FCUM(L) .LT. 0) GO TO 220\r\n  200 CONTINUE\r\n  210 IF (FCULG+PAD .GE. FMXLG) GO TO 680\r\n      FON(F1) = ORF(S,FON(F1))\r\n      FDBN(NFCULG  ) = SDBN(K  )\r\n      FDBN(NFCULG+1) = SDBN(K+1)\r\n      FORD(NFCULG  ) = ORF(ANDF(LXMSK,SORD(K)),ANDF(RXMSK,FILE(F1)))\r\n      FNTU(NFCULG  ) = SNTU(K)\r\n      FCUM(NFCULG  ) = -1\r\n      FCUS(NFCULG  ) = -1\r\n      FKND(NFCULG  ) = 2\r\n      NFCULG = NFCULG+ ENTN1\r\n      FCULG  = FCULG + 1\r\n      GO TO 230\r\n  220 CONTINUE\r\n      GO TO 260\r\n  230 SAL(K) = ORF(S,SAL(K))\r\n      ALCNT  = ALCNT + 1\r\n  260 CONTINUE\r\n      IF (ALCNT .EQ. TOTF) GO TO 600\r\nC\r\nC     SEQUENCE THRU SOS (ONE MODULE) LOOK FOR BLANK FILES + GREATER NTU\r\nC\r\n      DO 550 K = LMT2,LMT3,ENTN2\r\n      IF (SAL(K) .LT. 0) GO TO 550\r\n      IF (FLAG.NE.0 .AND. K.GT.LMT4 .AND. K.LE.LMT5) GO TO 150\r\n      IAPFLG = 0\r\n      IUNPFG = 0\r\n      IF (ANDF(APNDMK,SORD(K)) .EQ. APNDMK) IAPFLG = -1\r\n      ITPFLG = ANDF(TAPMSK,SNTU(K))\r\nC\r\nC     SEQUENCE THRU FIAT-UNIQUE (BLANK FILES)\r\nC\r\n      IF (BFF .LT. 0) GO TO 390\r\n      DO 330 F1 = 1,LMT8,ENTN1\r\n      IF (FDBN(F1) .NE. 0) GO TO 330\r\n      IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 330\r\n      IF (K.GT.LMT4 .AND. IAPFLG.EQ.0) GO TO 310\r\n      CALL XPOLCK (SDBN(K),SDBN(K+1),FN,NX)\r\n      IF (IAPFLG.NE.0 .AND. FN.EQ.0) GO TO 310\r\n      IF (FN     .NE. 0) GO TO 300\r\n      IF (PLTFLG .NE. 0) GO TO 280\r\n      DO 270 IP = 1,3\r\n      IF (SDBN(K).EQ.PFIL(1,IP) .AND. SDBN(K+1).EQ.PFIL(2,IP)) GO TO 300\r\n  270 CONTINUE\r\n  280 IF (THISLK .NE. NS14) CALL MESAGE (22,0,SDBN(K))\r\n      GO TO 320\r\n  300 FPUN(F1) = FN\r\n      IUNPFG   = F1\r\n  310 FDBN(F1  ) = SDBN(K  )\r\n      FDBN(F1+1) = SDBN(K+1)\r\n      FORD(F1) = ORF(ANDF(LXMSK,SORD(K)),FILE(F1))\r\n      FNTU(F1) = SNTU(K)\r\n      FCUM(F1) =-1\r\n      FCUS(F1) =-1\r\n      FKND(F1) = 3\r\n  320 SAL(K) = ORF(S,SAL(K))\r\n      ALCNT  = ALCNT + 1\r\n      GO TO 540\r\n  330 CONTINUE\r\n      IF (ITPFLG .EQ. 0) BFF = -1\r\nC\r\nC     SEQUENCE THRU FIAT (GREATEST NTU) FOR POOLING\r\nC\r\n  390 IF (MLSN(I) .LT. 0) GO TO 680\r\nC\r\nC     BEFORE PERMITTING POOLING CHECK IF AT LEAST ONE MODULE IS ALLOCATE\r\nC\r\n      IF (I .NE. 1) GO TO 620\r\n  400 MXNTU  = CURSNO\r\n      MXNTUI = 0\r\n      DO 460 F1 = 1,LMT8,ENTN1\r\n      IF (FCUS(F1) .LT. 0) GO TO 460\r\n      IF (IDEFR2   .LT. 0) GO TO 420\r\n      IF (FMAT(F1).NE.0 .OR. FMAT(F1+1).NE.0 .OR. FMAT(F1+2).NE.0)\r\n     1   GO TO 410\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(F1+5).NE.0 .OR. FMAT(F1+6).NE.0 .OR.\r\n     1   FMAT(F1+7).NE.0)) GO TO 410\r\n      GO TO 420\r\n  410 IDEFR1 = -1\r\n      GO TO 460\r\n  420 IF (FKND(F1) .LT. 0) GO TO 460\r\n      IF (FPUN(F1) .NE. 0) GO TO 460\r\n      IF (ITPFLG.NE.0 .AND. ANDF(TAPMSK,FILE(F1)).EQ.0) GO TO 460\r\n      TRIAL = ANDF(FNTU(F1),RMSK)\r\n      IF (TRIAL .LE. MXNTU) GO TO 460\r\n      MXNTU  = TRIAL\r\n      MXNTUI = F1\r\n  460 CONTINUE\r\n      IF (MXNTUI .NE. 0) GO TO 463\r\nC\r\nC     FILE NOT FOUND - HAS A PASS BEEN DEFERRED\r\nC\r\n      IF (IDEFR1 .EQ. 0) GO TO 680\r\nC\r\nC     PASS HAS BEEN DEFERRED - TRY IT NOW\r\nC\r\n      IDEFR1 = 0\r\n      IDEFR2 =-1\r\n      DO 462 IX = 1,LMT8,ENTN1\r\n  462 FKND(IX) = IABS(FKND(IX))\r\n      GO TO 400\r\nC\r\nC     A GREATER NTU FILE EXISTS\r\nC\r\n  463 N = 1\r\nC\r\nC     SEARCH FOR EQUIV OR STACKED MATCH\r\nC\r\n      FIL = ANDF(RMSK,FILE(MXNTUI))\r\n      DO 470 J = LMT8P1,LMT9,ENTN1\r\n      IF (FIL .NE. ANDF(RMSK,FILE(J))) GO TO 470\r\nC\r\nC     A MATCH IS FOUND, IS MATCHED FILE USED IN CURRENT SEG\r\nC\r\n      IF (FCUS(J) .LT. 0) GO TO 490\r\nC\r\nC     IF MATCHED FILE HAS NTU LESS - TEST AND SET DEFER FLAG\r\nC\r\n      IF (IDEFR2 .LT. 0) GO TO 465\r\n      IF (FMAT(J).NE.0 .OR.  FMAT(J+1).NE.0 .OR. FMAT(J+2).NE.0)\r\n     1    GO TO 464\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(J+5).NE.0 .OR. FMAT(J+6).NE.0 .OR.\r\n     1    FMAT(J+7).NE.0)) GO TO 464\r\n      IF (ANDF(RMSK,FNTU(1)) .GE. ANDF(RMSK,FNTU(MXNTUI))) GO TO 465\r\n  464 IDEFR1 = -1\r\n      GO TO 490\r\nC\r\nC     MATCHED FILE IS O.K. - IS IT EQUIV OR STACKED\r\nC\r\n  465 IF (FEQU(J) .GE. 0) GO TO 467\r\n      FKND(J) = 7\r\n      N = N + 1\r\n      GO TO 470\r\nC\r\nC     STACKED - WIPE OUT MATCH (IF EMPTY)\r\nC\r\n  467 IF (FMAT(J).NE.0 .OR.  FMAT(J+1).NE.0 .OR. FMAT(J+2).NE.0)\r\n     1    GO TO 490\r\n      IF (ENTN1.EQ.11 .AND. (FMAT(J+5).NE.0 .OR. FMAT(J+6).NE.0 .OR.\r\n     1    FMAT(J+7).NE.0)) GO TO 490\r\n      FILE(J  ) = 0\r\n      FDBN(J  ) = 0\r\n      FDBN(J+1) = 0\r\n  470 CONTINUE\r\n      FPUN(MXNTUI) = ORF(S,N)\r\n      IF (K.GT.LMT4 .AND. IAPFLG.EQ.0) GO TO 520\r\n      CALL XPOLCK (SDBN(K),SDBN(K+1),FN,NX)\r\n      IF (IAPFLG.NE.0 .AND. FN.EQ.0) GO TO 520\r\n      IF (FN .NE. 0) GO TO 500\r\n      IF (THISLK .NE. 14) CALL MESAGE (22,0,SDBN(K))\r\n      GO TO 530\r\n  490 IF (FKND(MXNTUI) .EQ. 0) FKND(MXNTUI) = 9\r\n      FKND(MXNTUI) = -IABS(FKND(MXNTUI))\r\n      GO TO 400\r\n  500 FPUN(NFCULG) = FN\r\n      IUNPFG = NFCULG\r\n  520 IF (FCULG+PAD .GE. FMXLG) GO TO 680\r\n      FON(MXNTUI ) = ORF(S,FON(MXNTUI))\r\n      FORD(NFCULG) = ORF(ANDF(RXMSK,FILE(MXNTUI)),ANDF(LXMSK,SORD(K)))\r\n      FKND(NFCULG) = ORF(FKND(NFCULG),5)\r\n      FDBN(NFCULG  ) = SDBN(K  )\r\n      FDBN(NFCULG+1) = SDBN(K+1)\r\n      FNTU(NFCULG) = SNTU(K)\r\n      FCUM(NFCULG) = -1\r\n      FCUS(NFCULG) = -1\r\n      NFCULG = NFCULG+ ENTN1\r\n      FCULG  = FCULG + 1\r\n  530 SAL(K) = ORF(S,SAL(K))\r\n      ALCNT  = ALCNT+ 1\r\n  540 IF (IUNPFG   .EQ. 0) GO TO 550\r\n      IF (DFNU(NX) .GE. 0) GO TO 550\r\n      CALL XPLEQK (NX,IUNPFG)\r\n      LMT9  = FCULG*ENTN1\r\n      NFCULG= LMT9 + 1\r\n  550 CONTINUE\r\nC\r\nC     MODULE ALLOCATION COMPLETE\r\nC\r\n  600 CURSNO = ANDF(RMSK,MLSN(I)) + 1\r\nC\r\nC     END OF I MODULE PSEUDO LOOP\r\nC\r\n      I = I + ENTN3\r\n      IF (I .LE. LMT1) GO TO 125\r\nC\r\n  620 CALL XPUNP\r\n      CALL XDPH\r\nC\r\nC     REPOSITION OSCAR FOR SEM\r\nC\r\n      CALL XPOLCK (OSCAR1,OSCAR2,FNOS,NX)\r\n      IF (FNOS .EQ. 0) GO TO 920\r\n  630 CALL OPEN (*940,POOL,BUF1,0)\r\n      IF (FNOS .NE. 1) CALL SKPFIL (POOL,FNOS-1)\r\n      DO 650 J = 1,RNOS\r\n      CALL FWDREC (*950,POOL)\r\n  650 CONTINUE\r\n      CALL CLOSE (POOL,2)\r\nC\r\n  655 CONTINUE\r\nC\r\nC     DUMP FIAT IF SENSE SWITCH 2 IS ON\r\nC\r\n      CALL SSWTCH (2,IX)\r\n      IF (IX .NE. 1) GO TO ITEST, (670,715)\r\n      CALL PAGE1\r\n      CALL PAGE2 (-4)\r\n      WRITE  (OUTTAP,660) FIAT(1),FIAT(2),FIAT(3),X,CURSNO\r\n  660 FORMAT (15H0FIAT AFTER SFA,3I4,12H  OSCAR STR ,I4,6H, STP ,I4, //,\r\n     1        ' EQ AP  LTU  TP  UNIT  NTU  OF SG KN TR DATA-BLK      *',\r\n     2     6X,'*   TRAILER   *      *      *  PRI BLKS   SEC FLS/BLKS',\r\n     3     3X,'TER FLS/BLKS')\r\n      II = FIAT(3)*ENTN1\r\n      DO 665 IX = 1,II,ENTN1\r\n      IPRT( 1) = RSHIFT(FEQU(IX),NBPW-1)\r\n      IPRT( 2) = RSHIFT(ANDF(APNDMK,FORD(IX)),30)\r\n      IPRT( 3) = RSHIFT(ANDF(LMSK  ,FORD(IX)),16)\r\n      IPRT( 4) = RSHIFT(ANDF(TAPMSK,FILE(IX)),15)\r\n      IPRT( 5) = ANDF(RMSK,FILE(IX))\r\n      IPRT( 6) = ANDF(RMSK,FNTU(IX))\r\n      IPRT( 7) = RSHIFT(FON(IX),NBPW-1)\r\n      IPRT( 8) = FCUS(IX)\r\n      IPRT( 9) = FKND(IX)\r\n      IPRT(10) = RSHIFT(ANDF(TAPMSK,FNTU(IX)),15)\r\n      IPRT(11) = FDBN(IX  )\r\n      IPRT(12) = FDBN(IX+1)\r\n      IF (IPRT(11) .NE. 0) GO TO 661\r\n      IPRT(11) = NSFA(2)\r\n      IPRT(12) = NSFA(2)\r\n  661 IF (ENTN1 .EQ. 11) GO TO 662\r\n      IPRT(13) = RSHIFT(FMAT(IX),16)\r\n      IPRT(14) = ANDF(RXMSK,FMAT(IX))\r\n      IPRT(15) = RSHIFT(FMAT(IX+1),16)\r\n      IPRT(16) = ANDF(RXMSK,FMAT(IX+1))\r\n      IPRT(17) = RSHIFT(FMAT(IX+2),16)\r\n      IPRT(18) = ANDF(RXMSK,FMAT(IX+2))\r\n      GO TO 663\r\n  662 IPRT(13) = FMAT(IX  )\r\n      IPRT(14) = FMAT(IX+1)\r\n      IPRT(15) = FMAT(IX+2)\r\n      IPRT(16) = FMAT(IX+5)\r\n      IPRT(17) = FMAT(IX+6)\r\n      IPRT(18) = FMAT(IX+7)\r\n  663 IPRT(19) = RSHIFT(FMAT(IX+3),16)\r\n      ITEMP    = ANDF(FMAT(IX+3),RXMSK)\r\n      IPRT(20) = RSHIFT(ITEMP,8)\r\n      IPRT(21) = RSHIFT(FMAT(IX+4),16)\r\n      IPRT(22) = ITEMP - IPRT(20)*2**8\r\n      IPRT(23) = ANDF(RXMSK,FMAT(IX+4))\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OUTTAP,664) (IPRT(IY),IY=1,23)\r\n  664 FORMAT (1H ,2(I2,1X),I5,1X,I2,2(1X,I5),4(1X,I2),1X,2A4,6I7,\r\n     1        4X,I5,1X,2(7X,I2,1H/,I5))\r\n  665 CONTINUE\r\n      CALL XFLSZD (0,BLKSIZ,0)\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,628) BLKSIZ\r\n  628 FORMAT (30X,20H EACH BLOCK CONTAINS,I5,7H WORDS.)\r\n      WRITE  (OUTTAP,666)\r\n  666 FORMAT (52H POOL FILE CONTENTS   EQ    SIZE   FILE   DATA BLOCK)\r\n      II = DPD(3)*3\r\n      DO 668 IX = 1,II,3\r\n      IPRT(1) = RSHIFT(DFNU(IX),NBPW-1)\r\n      IPRT(2) = RSHIFT(DFNU(IX),16)\r\n      IPRT(3) = ANDF(RXMSK,DFNU(IX))\r\n      IPRT(4) = DDBN(IX  )\r\n      IPRT(5) = DDBN(IX+1)\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OUTTAP,667) (IPRT(IY),IY=1,5)\r\n  667 FORMAT (22X,I2,I7,I7,3X,2A4)\r\n  668 CONTINUE\r\n      CALL DBMDIA\r\n      CALL DBMSTF\r\nC\r\n      GO TO ITEST, (670,715)\r\nC\r\n  670 J = MCH\r\n      IF (IABS(IBNK(ENTN1*5))/1000.NE.J .AND. J.GT.6) COMM(4) = J\r\n      X = CURSNO\r\n      NSFA(3) = IEND\r\n      CALL CONMSG (NSFA,3,0)\r\n      RETURN\r\nC\r\nC     MODULE ALLOCATION INCOMPLETE\r\nC\r\n  680 IF (I      .NE. 1) GO TO 620\r\n      IF (ITPFLG .EQ. 0) GO TO 700\r\nC\r\nC     LOOKING FOR A TAPE + AT LEAST ONE TAPE EXISTS\r\nC\r\n      NOAVAL = 0\r\n      DO 690 M = 1,LMT8,ENTN1\r\n      IF (ANDF(TAPMSK,FILE(M)) .EQ. 0) GO TO 690\r\n      IF (ANDF(TAPMSK,FNTU(M)) .EQ. 0) GO TO 710\r\n      NOAVAL = 1\r\n  690 CONTINUE\r\n      IF (NOAVAL .EQ. 0) GO TO 700\r\n      TAPMSK = 0\r\n      GO TO 790\r\n  700 CURSNO = 0\r\n      GO TO 630\r\nC\r\nC     A TAPE FILE EXIST CONTAINING A D.B. NOT REQUIRING A TAPE  -\r\nC     FREE THAT TAPE***  CHECK FOR EQUIV AND LTU D.B. ON SAME UNIT\r\nC\r\n  710 N = 1\r\nC\r\n      ASSIGN 715 TO ITEST\r\n      GO TO 655\r\n  715 CONTINUE\r\n      ASSIGN 670 TO ITEST\r\nC\r\n      TRIAL = ANDF(RMSK,FILE(M))\r\n      LMT   = LMT8 + 1\r\n      DO 750 J = LMT,LMT9,ENTN1\r\n      IF (TRIAL .NE. ANDF(RMSK,FILE(J))) GO TO 750\r\n      INAM1 = FDBN(J  )\r\n      INAM2 = FDBN(J+1)\r\n      IF (FEQU(M).LT.0 .AND. FEQU(J).LT.0) GO TO 720\r\n      FDBN(J) = ALMSK\r\n      GO TO 725\r\n  720 N = N + 1\r\n  725 DO 730 L = LMT2,LMT3,ENTN2\r\n      IF (INAM1.EQ.SDBN(L) .AND. INAM2.EQ.SDBN(L+1)) GO TO 740\r\n  730 CONTINUE\r\n      GO TO 750\r\nC\r\nC     TURN OFF ALLOC FLAG\r\nC\r\n  740 SAL(L) = ORF(ALMSK,SAL(L))\r\n      ALCNT  = ALCNT - 1\r\n  750 CONTINUE\r\n      INAM1 = FDBN(M  )\r\n      INAM2 = FDBN(M+1)\r\n      DO 760 L = LMT2,LMT3,ENTN2\r\n      IF (INAM1.EQ.SDBN(L) .AND. INAM2.EQ.SDBN(L+1)) GO TO 770\r\n  760 CONTINUE\r\n      GO TO 780\r\n  770 SAL(L) = ORF(ALMSK,SAL(L))\r\n      ALCNT  = ALCNT - 1\r\n  780 FPUN(M)= ORF(S,N)\r\n      CALL XPUNP\r\n      FDBN(M  ) = SDBN(K  )\r\n      FDBN(M+1) = SDBN(K+1)\r\n      FORD(M  ) = ORF(ANDF(LXMSK,SORD(K)),ANDF(RXMSK,FILE(M)))\r\n      FKND(M  ) = 8\r\nC\r\n      CALL SSWTCH (2,IX)\r\n      IF (IX .NE. 1) GO TO 790\r\n      CALL PAGE2 (-2)\r\n      WRITE  (OUTTAP,785)\r\n  785 FORMAT (38H0* XSFA REPEATS TO USE FREED TAPE FILE)\r\nC\r\n  790 BFF = 0\r\n      GO TO 150\r\nC\r\n  920 WRITE  (OUTTAP,921) SFM\r\n  921 FORMAT (A25,' 1001, OSCAR NOT FOUND IN DPL')\r\n      GO TO  1000\r\n  930 WRITE  (OUTTAP,931) SFM\r\n  931 FORMAT (A25,' 1002, OSCAR CONTAINS NO MODULES')\r\n      GO TO  1000\r\n  940 WRITE  (OUTTAP,941) SFM\r\n  941 FORMAT (A25,' 1003, POOL COULD NOT BE OPENED')\r\n      GO TO  1000\r\n  950 WRITE  (OUTTAP,951) SFM\r\n  951 FORMAT (A25,' 1004, ILLEGAL EOF ON POOL')\r\n 1000 CALL MESAGE (-37,0,NSFA)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xsfadd.f",
    "content": "      SUBROUTINE XSFADD\r\nC\r\nCXSFABD\r\nC\r\nC     REVISED  8/89 BY G.C./UNISYS\r\nC          1.  THE ORDER OF COMM AND XFIAT IN /XSFA1/ ARE REVERSED IN\r\nC              THIS ROUTINE AND IN THE FOLLOWING 7 SUBROUTINES -\r\nC              XCLEAN, XDPH, XPOLCK, XPUNP, XPURGE, XSFA AND XSOSGN.\r\nC              ANY INCREASE IN SIZE OF XFIAT CAN THEREFORE BE MADE\r\nC              EASILY THROUGH OUT THESE GROUP OF ROUTINES BY JUST\r\nC              CHANGING THE XFIAT DIMENSION HERE.\r\nC          2.  IN THIS GROUP OF ROUTINES, THE ARRAY XFIAT IN /XSFA1/ IS\r\nC              RENAMED TO XFIAT, NOT TO BE CONFUSED WITH THE XFIAT ARRAY\r\nC              IN /XFIAT/\r\nC          3.  ENTN1 MUST EQUAL ICFIAT, THE 24TH WORD OF /SYSTEM/\r\nC              HOWEVER, XSFA AND XPURGE ROUTINES INITIALIZE ENTN1 AGAIN\r\nC              TO ICFIAT, JUST TO BE SURE.\r\nC          4.  THE DIMENSION OF XFIAT SHOULD BE 800 WHEN ENTN1 = 8, OR\r\nC              1100 WHEN ENTN1 IS 11\r\nC\r\n      INTEGER         ALMSK,APNDMK,COMM,CURSNO,ENTN1,ENTN2,ENTN3,\r\n     1                ENTN4,FLAG,FNX,RMSK,RXMSK,S,SCORNT,SOS,TAPMSK,\r\n     2                THCRMK,XFIAT,ZAP\r\nCWKBR COMMON /XSFA1 / MF(401),SOS(1501),COMM(20),XFIAT(1100)\r\n      COMMON /XSFA1 / MF(401),SOS(1501),COMM(20),XFIAT(1320)\r\n      EQUIVALENCE            (COMM (1),ALMSK ),(COMM (2),APNDMK),\r\n     1     (COMM (3),CURSNO),(COMM (4),ENTN1 ),(COMM (5),ENTN2 ),\r\n     2     (COMM (6),ENTN3 ),(COMM (7),ENTN4 ),(COMM (8),FLAG  ),\r\n     3     (COMM (9),FNX   ),(COMM(10),LMSK  ),(COMM(11),LXMSK ),\r\n     4     (COMM(12),MACSFT),(COMM(13),RMSK  ),(COMM(14),RXMSK ),\r\n     5     (COMM(15),S     ),(COMM(16),SCORNT),(COMM(17),TAPMSK),\r\n     6     (COMM(18),THCRMK),(COMM(19),ZAP   )\r\n      ENTN1 = 11\r\n      ENTN2 = 3\r\n      ENTN3 = 4\r\n      ENTN4 = 3\r\n      FLAG  = 0\r\n      DO 10 I = 1, 1320\r\n   10 XFIAT(I) = 0\r\n      TAPMSK = 32768\r\nC            TAPMSK = O 000000100000  = Z 00008000\r\n      APNDMK = 1073741824\r\nC            APNDMK = O 010000000000  = Z 40000000\r\n      RMSK   = 32767\r\nC            RMSK   = O 000000077777  = Z 00007FFF\r\n      RXMSK  = 65535\r\nC            RXMSK  = O 000000177777  = Z 0000FFFF\r\n      LMSK   = 1073676288\r\nC            LMSK   = O 007777600000  = Z 3FFF0000\r\n      LXMSK  = 2147418112\r\nC            LXMSK  = O 017777600000  = Z 7FFF0000\r\n      SCORNT = 1073708992\r\nC            SCORNT = O 007777677700  = Z 3FFF7FC0\r\n      ZAP    = 32767\r\nC            ZAP    = O 000000077777  = Z 00007FFF\r\n      END\r\n"
  },
  {
    "path": "mis/xsort.f",
    "content": "      SUBROUTINE XSORT\r\nC\r\nC     SORT READS BULK DATA CARDS FROM THE INPUT TAPE, ADJUSTS THE\r\nC     FIELDS, PERFORMS AN ALPHA-NUMERIC SORT ON THE CARD IMAGES FROM\r\nC     LEFT TO RIGHT, INSERTS CONTINUATION CARDS IN THEIR PROPER\r\nC     POSITION, AND PLACES THE RESULTING SORTED IMAGES ON THE NEW\r\nC     PROBLEM TAPE.\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         DEC\r\n      DIMENSION       HEADU(32),HEADS(32),HEADN(32),IBLKDA(2),CDCNT(3),\r\n     1                BK(4),MK(4),IBUF1(20),IBUF2(20),IBUF3(2),\r\n     2                KPARNT(2),IBUF1A(2),IBUF2A(2),NSORT(2),IIEND(2)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP,NOGO,INTAPE,D1(14),IECHO,D,IAPPRC,\r\n     1                DUM1(2),IUEDIT,DUM44(44),ISUBS,DUM12(12),ICPFLG,\r\n     2                DUM8(8),LPCH\r\n      COMMON /OUTPUT/ DUM2(96),HEAD1(32),HEAD2(32),HEAD3(32)\r\n      COMMON /ZZZZZZ/ SKIP1,BUF(1)\r\n      COMMON /XSRTCM/ BIMSK1(6),BIMSK2(5),BIMSK3(4),BIMSK4(4),BIMSK5(2),\r\n     1                BIMSK6,BKMSK1(8),BKMSK2,SHIFTS(4),\r\n     2                ICON1,ICON2,STAR,PLUS,DOLLAR,STARL,SLASH,SFTM,\r\n     3                MASK,BLANK,MKA,IS,MBIT4\r\n      COMMON /STAPID/ KRAP(12),KUMF\r\n      COMMON /XECHOX/ FFFLAG,ECHOU,ECHOS,ECHOP\r\n      EQUIVALENCE     (BK(1),BKMSK1(5)),(MK(1),BIMSK2(2)),\r\n     1                (MKB  ,BIMSK5(1)),(INF  ,BIMSK2(1)),\r\n     2                (SFTA ,SHIFTS(2)),(MKD  ,BIMSK2(2)),\r\n     3                (MKE  ,BIMSK5(2)),(MKC  ,BIMSK4(1))\r\n      EQUIVALENCE     (BLANX,BKMSK1(8))\r\n      DATA HEADU/10*4H    ,4H I N,4H P U,4H T  ,4H B U,4H L K,4H   D,\r\n     1       4H A T,4H A  ,4H D E,4H C K,4H   E,4H C H,4H O  ,9*4H    /\r\n      DATA HEADS/11*4H    ,4H S O,4H R T,4H E D,4H   B,4H U L,4H K  ,\r\n     1       4H D A,4H T A,4H   E,4H C H,4H O  ,10*4H    /\r\n      DATA HEADN/ 3*4H    ,4H    ,4H    ,4H    ,4H .  ,4H 1  ,4H..  ,\r\n     1       4H 2  ,4H..  ,4H 3  ,4H..  ,4H 4  ,4H..  ,4H 5  ,4H..  ,\r\n     2       4H 6  ,4H..  ,4H 7  ,4H..  ,4H 8  ,4H..  ,4H 9  ,4H..  ,\r\n     3       4H10  ,4H.   ,5*4H    /\r\n      DATA CDCNT/4HCARD,4HCOUN,4HT   /,NSORT/4HXSOR,4HT   /\r\nC     DATA BK/4H000 ,4H00  ,4H0   ,4H    /\r\nC     DATA (MK(I),I=1,4)/O777777007777,O777700007777,O770000007777,O0/\r\nC     DATA MKA,MKB,INF,SFTA/O000000777777,O377777777777,O777777777777,6/\r\nC     DATA MKC/O007777777777/,MKD/O777777007777/,MKE/O377777007777/\r\n      DATA IEND1,IEND2/4HENDD,4HATA /\r\n      DATA IEND3,IEND4/4HENDA,4HTA  /\r\n      DATA IEND5,IEND6/4HEND ,4HDATA/\r\nC     DATA STAR,PLUS,DOLLAR,STARL/4H000*,4H+000,4H$000,4H*000/\r\n      DATA IBLKDA/4HBULK,4HDATA/, IPTP/4HOPTP/, NPTP/4HNPTP/\r\n      DATA ITAPE1,ITAPE2,ITAPE3,ITAPE4,ITAPE5/301,302,303,304,305/\r\n      DATA UMF/4HUMF /\r\n      DATA IDUP,IOK/4HDUPL, 4HOK  /\r\nC\r\nC\r\nC     XSORT MAY NOT WORK PROPERLY IN ALL UNIX MACHINES, WHICH FOLLOW\r\nC     THE VAX LINE.\r\nC\r\n      DEC    = MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21\r\n      IF (DEC .AND. LPCH.NE.77) WRITE (OUTTAP,5) UWM\r\n    5 FORMAT (A25,', SWITCHING TO OLD XSORT VIA DIAG 42 HAS NOT BEEN ',\r\n     1       'THOROUGHLY TESTED', /5X,'FOR THE UNIX MACHINES.')\r\nC\r\nC     INITIALIZE XSORT AND TURN ON FREE-FIELD FLAG FOR XREAD\r\nC\r\n      FFFLAG = 1234\r\n      ECHOU  = 0\r\n      ECHOS  = 0\r\n      ECHOP  = 0\r\n      IEND   = 0\r\n      ISEQ   = 0\r\n      ICCBRK = 0\r\n      NOTSOR = 0\r\n      OPTP   = IPTP\r\n      KIN    = 0\r\n      IRESTR = -IAPPRC\r\n      IF (KUMF .LE. 0) GO TO 90\r\n      KIN    = 1\r\n      CALL OPEN (*50,UMF,BUF(1),2)\r\nC\r\nC     FIND PARTICULAR BULK DATA FILE ON UMF AS REQUESTED BY USER\r\nC\r\n   10 CALL READ (*30,*60,UMF,PID,1,1,IFLG)\r\n      IF (KUMF-PID) 30,80,20\r\n   20 CALL SKPFIL (UMF,1)\r\n      GO TO 10\r\n   30 WRITE  (OUTTAP,35) UFM,KUMF\r\n   35 FORMAT (A23,' 201, REQUESTED BULK DATA DECK',I8,' NOT ON USER ',\r\n     1       'MASTER FILE.')\r\n      CALL PAGE2 (2)\r\n      NOGO =-1\r\n      CALL CLOSE (UMF,1)\r\n      RETURN\r\nC\r\n   50 WRITE  (OUTTAP,55) SFM\r\n   55 FORMAT (A25,' 202, UMF COULD NOT BE OPENED')\r\n      GO TO  1800\r\n   60 WRITE  (OUTTAP,65) SFM\r\n   65 FORMAT (A25,' 203, ILLEGAL EOR ON UMF')\r\n      GO TO  1800\r\n   80 CALL CLOSE (UMF,2)\r\nC\r\n   90 CALL INITCO\r\n      IF (IECHO .LT. 0) GO TO 110\r\n      ECHOU = ANDF(IECHO,1)\r\n      ECHOS = ANDF(IECHO,2)\r\n      ECHOP = ANDF(IECHO,4)\r\n      IF (ICPFLG .NE. 0) ECHOS = 1\r\n  110 ASSIGN 1260 TO IBRANA\r\n      ASSIGN 810  TO IBRANB\r\n      ASSIGN 1220 TO IBRANF\r\nC\r\nC     SET ASSIGN GO TO SWITCHES FOR MACHINE CONFIGURATIONS\r\nC     THE 8 BIT CHARACTER BYTE OF THE 360 WILL HOLD THE INTERNAL\r\nC     CHARACTER CODE (MAX=37) WITHOUT USE OF THE 1ST BIT POSITION -\r\nC     THE OTHER 3 MACHINES HAVE 6 BIT CHARACTERS THEREFORE A SHIFT RIGHT\r\nC     OF ONE MUST BE DONE TO REMOVE A POSSIBLE BIT FROM THE SIGN\r\nC     POSITION THE FOLLOWING ASSIGNS SET THOSE BRANCHES BASED ON MACHINE\r\nC\r\n      IF (MACH.EQ.2 .OR. DEC) GO TO 120\r\n      ASSIGN 350  TO MX3\r\n      ASSIGN 790  TO MY1\r\n      ASSIGN 820  TO MY2\r\n      ASSIGN 960  TO MY3\r\n      ASSIGN 990  TO MY4\r\n      ASSIGN 1030 TO MY5\r\n      ASSIGN 840  TO MY6\r\n      ASSIGN 730  TO MZ1\r\n      LINF   = 0\r\n      NSHIFT = 1\r\nC\r\nC     SET NSHIFT TO ZERO FOR UNIVAC ASCII VERSION ONLY (NOT FORTRAN 5)\r\nC\r\n      IF (MACH .EQ. 3) NSHIFT = 0\r\n      GO TO 130\r\n  120 CONTINUE\r\n      ASSIGN 360  TO MX3\r\n      ASSIGN 800  TO MY1\r\n      ASSIGN 970  TO MY2\r\n      ASSIGN 970  TO MY3\r\n      ASSIGN 1040 TO MY4\r\n      ASSIGN 1040 TO MY5\r\n      ASSIGN 850  TO MY6\r\n      ASSIGN 740  TO MZ1\r\n      LINF = ORF(IS,1)\r\n  130 CONTINUE\r\nC\r\nC     START WORKING SORT BUFFER BELOW GINO I/O BUFFERS\r\nC\r\n      II     = 5*IBUFSZ + 1\r\n      IBUFBG = II + 42\r\n      IBUFLG = KORSZ(BUF) - 21\r\n      IF (IBUFLG-IBUFBG .LT. 210)\r\n     1    CALL MESAGE (-8,IBUFBG+210-IBUFLG,NSORT)\r\n      ITAPE  = ITAPE1\r\n      JTAPE  = ITAPE2\r\nC\r\nC     OPEN ITAPE4 AND ITAPE5\r\nC     (4 CONTAINS CONTINUATIONS, 5 CONTAINS ALTERS)\r\nC\r\n      NBUF3 = 3*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE4,BUF(NBUF3),1)\r\n      NBUF4 = 4*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE5,BUF(NBUF4),1)\r\nC\r\nC     A BUFFER LINE IS 20 WORDS OF CARD IMAGE PLUS A 1 WORD POINTER TO\r\nC     THE NEXT IMAGE IN THE SORT SEQUENCE - A ZERO POINTER INDICATES\r\nC     THE LAST IMAGE (LARGEST IN SORT)\r\nC     INITIALIZE WORKING BUFFER - 1ST LINE ZEROS, 2ND LINE ALL BITS\r\nC\r\n      K = II + 19\r\n      DO 140 J = II,K\r\n      BUF(J) = LINF\r\n  140 BUF(J+ 21) = INF\r\n      BUF(II+41) = 0\r\nC\r\nC     SET UP UNSORTED HEADING\r\nC\r\n      DO 150 J = 1,32\r\n      HEAD1(J) = HEADU(J)\r\n  150 HEAD3(J) = HEADN(J)\r\n      HEAD2(4) = HEADN(1)\r\n      ICCNT    = 0\r\n      IF (ECHOU .EQ. 0) GO TO 160\r\n      CALL PAGE\r\nC\r\nC     OPEN ITAPE (LOCATION FOR EACH SORTED CORE LOAD AS ITS FORCED TO\r\nC     EMPTY\r\nC\r\n  160 CALL OPEN (*1700,ITAPE,BUF(1),1)\r\n  170 BUF(II+20) = 1\r\n      K    = II\r\n      NCNT = 2\r\nC\r\nC     LOOP TO INPUT AND SORT CARD IMAGES - USES OPEN CORE FOR SORTED\r\nC     IMAGES\r\nC\r\n      DO 550 N1 = IBUFBG,IBUFLG,21\r\n      N2 = N1 + 19\r\n      N3 = N2 + 1\r\n  180 CALL XREAD (*1770,BUF(N1))\r\n      ICCNT = ICCNT + 1\r\n      IF (ECHOU .EQ. 0) GO TO 220\r\n      CALL PAGE2 (-1)\r\n      WRITE  (OUTTAP,200)(BUF(I),I=N1,N2)\r\n  200 FORMAT (30X,20A4)\r\n  210 FORMAT (13X,I8,1H-,8X,20A4)\r\nC\r\nC     IGNORE BLANK CARDS\r\nC\r\n  220 IF (BUF(N1).EQ.BLANX .AND. BUF(N1+1).EQ.BLANX) GO TO 180\r\nC\r\nC     LEFT ADJUST FIELD 1\r\nC\r\n      CALL XFADJ1 (BUF(N1),LSHIFT,0)\r\nC\r\nC     TEST FOR END OF INPUT DATA STREAM (ENDDATA)\r\nC\r\n      IIEND(1) = IEND1\r\n      IIEND(2) = IEND2\r\n      IF (BUF(N1).EQ.IEND1 .AND. BUF(N1+1).EQ.IEND2) GO TO 560\r\n      IIEND(1) = IEND3\r\n      IIEND(2) = IEND4\r\n      IF (BUF(N1).EQ.IEND3 .AND. BUF(N1+1).EQ.IEND4) GO TO 560\r\n      IIEND(1) = IEND5\r\n      IIEND(2) = IEND6\r\n      IF (BUF(N1).EQ.IEND5 .AND. BUF(N1+1).EQ.IEND6) GO TO 560\r\nC\r\nC     IS THIS A CONTINUATION, COMMENT, OR DELETE CARD\r\nC\r\n      IF (.NOT.DEC) TST = ANDF(MK(3),BUF(N1))\r\n      IF (     DEC) TST = KHRFN1(BKMSK2,1,BUF(N1),1)\r\nC\r\nC     WRITE CONTINUATIONS ON ITAPE4\r\nC\r\n      IF (TST.EQ.STARL .OR. TST.EQ.PLUS) GO TO 530\r\nC\r\nC     IGNORE COMMENT CARDS\r\nC\r\n      IF (TST .EQ. DOLLAR) GO TO 180\r\nC\r\nC     WRITE DELETES ON ITAPE5\r\nC\r\n      IF (TST .EQ. SLASH) GO TO 540\r\nC\r\nC     IF A STAR IS FOUND IN FIELD 1, MOVE IT TO COLUMN 8\r\nC\r\n      NY  = 4\r\n      DO 240 J = 1,2\r\n      NX  = N1 + 2 - J\r\n      TST = BUF(NX)\r\n      DO 230 I = 1,NY\r\n      IF (.NOT.DEC) PTST = ANDF(MKA,TST)\r\n      IF (     DEC) PTST = KHRFN1(BKMSK2,4,TST,4)\r\n      IF (PTST .NE. BK(1)) GO TO 250\r\n      IF (.NOT.DEC) TST = RSHIFT(TST,SFTA)\r\n      IF (     DEC) TST = KHRFN3(BKMSK2,TST,1,0)\r\n  230 CONTINUE\r\n  240 NY = 3\r\n      GO TO 260\r\nC\r\nC     STARSW = 0 FOR A SINGLE FIELD CARD (NO STAR)\r\nC            = 1 FOR A DOUBLE FIELD CARD (W/ STAR)\r\nC\r\n  250 STARSW = 0\r\n      IF (PTST .NE. STAR) GO TO 260\r\n      STARSW = 1\r\n      IF (J.EQ.1 .AND. I.EQ.1) GO TO 260\r\n      IF (DEC) GO TO 258\r\n      BUF(NX  ) = ORF(ANDF(MK(I),BUF(NX)),BK(I))\r\n      BUF(N1+1) = ORF(ANDF(MK(1),BUF(N1+1)),STAR)\r\n      GO TO 260\r\n  258 BUF(NX  ) = KHRFN1(BUF(NX),5-I,BK(I),5-I)\r\n      BUF(N1+1) = KHRFN1(BUF(N1+1),4,STAR,4)\r\n  260 CONTINUE\r\n      CALL XFADJ (BUF(N1+2),STARSW,NY)\r\n      CALL EXTINT (BUF(N1))\r\nC\r\nC\r\nC     START SORT LOGIC\r\nC\r\nC     WITHOUT THE FOLLOWING CARD, XSORT WILL ASSUME SOME DEGREE OF SORT\r\nC     EXISTS (I.E.,THE NEXT CARD WILL FOLLOW THE PREVIOUS CARD, MORE\r\nC     OFTEN THAN NOT)\r\nC     K  = II  (THIS CARD WILL FORCE SORT TO BEGINNING OF CHAIN)\r\nC\r\n      KP = 0\r\nC\r\nC     K TYPE SUBSCRIPTS REFER TO POSITIONS AND ITEMS IN THE SORTED\r\nC     TABLE CURRENTLY BEING BUILT\r\nC     N TYPE SUBSCRIPTS REFER TO ITEMS ABOUT THE NEWEST CARD IN\r\nC\r\n  270 FCNT = 1\r\n      NI = 0\r\n      KI = 0\r\n      NX = N1\r\nC\r\nC     THE RIGHT SHIFT IN THE FOLLOWING CODE IS USED TO AVOID THE\r\nC     NEGATIVE SIGN PROBLEM WHICH WOULD REVERSE THE SORT ORDER ON SOME\r\nC     MACHINES.\r\nC     (NOTE THAT THE SORT COMPARES CAN BE MADE BOTH WITH OR WITHOUT\r\nC     THE SIGN SHIFT DEPENDING ON THE MACHINES CHARACTER CONFIG)\r\nC\r\n  300 KX = K\r\n      GO TO 340\r\n  330 IF (BUF(NX) .EQ. BUF(KX)) GO TO 400\r\n      IF (BUF(NX) .EQ. BK(4)  ) GO TO 380\r\n      IF (BUF(KX) .EQ. BK(4)  ) GO TO 370\r\n  340 GO TO MX3, (350,360)\r\n  350 IF (RSHIFT(BUF(NX),NSHIFT)-RSHIFT(BUF(KX),NSHIFT)) 380,400,370\r\n  360 IF (DEC) GO TO 365\r\n      IF (BUF(NX) .LT. BUF(KX)) GO TO 380\r\n      IF (BUF(NX) .GT. BUF(KX)) GO TO 370\r\n      GO TO 400\r\n  365 IF (RSHIFT(KHRFN4(BUF(NX)),1)-RSHIFT(KHRFN4(BUF(KX)),1))\r\n     1    380,366,370\r\n  366 IF (RSHIFT(LSHIFT(KHRFN4(BUF(NX)),1),1)-\r\n     1    RSHIFT(LSHIFT(KHRFN4(BUF(KX)),1),1)) 380,400,370\r\nC\r\nC     GO ON, LOOK AT NEXT ITEM IN THE SORTED TABLE\r\nC\r\n  370 KP = K\r\n      K  = BUF(K+20)*21 + II\r\n      IF (NX .EQ. N1) GO TO 300\r\n      GO TO 270\r\nC\r\nC     CARD POSITION FOUND IN SORT, SET THE CHAINING POINTER\r\nC\r\n  380 IF (KP .EQ. 0) GO TO 390\r\n      BUF(N3   ) = BUF(KP+20)\r\n      BUF(KP+20) = NCNT\r\n      K    = KP\r\n      NCNT = NCNT + 1\r\n      GO TO 550\r\n  390 K = II\r\n      GO TO 270\r\nC\r\nC     TWO FIELDS EQUAL - SLIDE TO NEXT FIELD ON CARD\r\nC\r\n  400 FCNT = FCNT + 1\r\n      NX   = NX + 1\r\n      KX   = KX + 1\r\n      GO TO (1760,410,470,330,510,330,430,330,510,330,520,330,510,330,\r\n     1        430,330,510,330,380), FCNT\r\n  410 KTARSW = 0\r\n      IF (.NOT.DEC) ITST = ANDF(MKA,BUF(K+1))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,4,BUF(K+1),4)\r\n      IF (ITST .EQ. STAR) KTARSW = 1\r\n      IF (STARSW .EQ. KTARSW) GO TO 340\r\nC\r\nC     IF ONE MEMBER OF THE 2ND FIELD HAS A STAR AND THE OTHER DOES NOT,\r\nC     DELETE STARS FOR THE COMPARE\r\nC\r\n      IF (DEC) GO TO 415\r\n      IN1 = RSHIFT(ANDF(MKD,BUF(NX)),1)\r\n      IK2 = RSHIFT(ANDF(MKD,BUF(KX)),1)\r\n      GO TO 418\r\n  415 IN1 = RSHIFT(KHRFN4(KHRFN1(BUF(NX),4,BKMSK2,1)),1)\r\n      IK2 = RSHIFT(KHRFN4(KHRFN1(BUF(KX),4,BKMSK2,1)),1)\r\n  418 IF (IN1 .NE. IK2) GO TO 428\r\n      IF (DEC) GO TO 420\r\n      IN1 = ANDF(MKE,BUF(NX))\r\n      IK2 = ANDF(MKE,BUF(KX))\r\n      GO TO 425\r\n  420 IN1 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(BUF(NX),4,BKMSK2,1)),1),1)\r\n      IK2 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(BUF(KX),4,BKMSK2,1)),1),1)\r\n  425 IF (IN1 .EQ. IK2) GO TO 400\r\n  428 IF (IN1 .LT. IK2) GO TO 380\r\n      GO TO 370\r\nC\r\nC     INCREMENT FIELD LOCATIONS IF FIELD TYPES DID NOT MATCH\r\nC\r\n  430 IF (NI-KI) 450,460,440\r\n  440 NX = NX + NI\r\n      NI = 0\r\n      GO TO 460\r\n  450 KX = KX + KI\r\n      KI = 0\r\nC\r\nC     ADJUST FIELDS RIGHT OR LEFT AS REQUIRED\r\nC\r\n  460 CALL XFADJ (BUF(NX),STARSW,K1)\r\n      CALL XFADJ (BUF(KX),KTARSW,K2)\r\n      GO TO 480\r\n  470 IF (STARSW .EQ. KTARSW) GO TO 330\r\n      K1 = 0\r\n      K2 = 0\r\n      IF (DEC) GO TO 472\r\n      IF (ANDF(MK(3),BUF(NX)) .NE. BKMSK1(4)) K1 = 1\r\n      IF (ANDF(MK(3),BUF(KX)) .NE. BKMSK1(4)) K2 = 1\r\n      GO TO 480\r\n  472 IF (KHRFN1(BKMSK2,1,BUF(NX),1) .NE. BKMSK1(4)) K1 = 1\r\n      IF (KHRFN1(BKMSK2,1,BUF(KX),1) .NE. BKMSK1(4)) K2 = 1\r\n  480 IF (STARSW-KTARSW) 500,330,490\r\n  490 NI = 2\r\n      IF (K1+K2 .EQ. 2) GO TO 330\r\n      NX = NX + 2\r\n      NI = 0\r\n      GO TO 330\r\n  500 KI = 2\r\n      IF (K1+K2 .EQ. 2) GO TO 330\r\n      KX = KX + 2\r\n      KI = 0\r\n      GO TO 330\r\n  510 IF (STARSW .NE. KTARSW) GO TO 430\r\n      IF (STARSW .EQ.      0) GO TO 430\r\n      GO TO 330\r\n  520 IF (STARSW .EQ. KTARSW) GO TO 430\r\n      GO TO 380\r\nC\r\nC     CONTINUATION CARD - PUT ON ITAPE4\r\nC\r\n  530 CALL WRITE (ITAPE4,BUF(N1),20,1)\r\n      GO TO 180\r\nC\r\nC     BULK DATA DELETE CARD - PUT ON ITAPE5\r\nC\r\nC     TEST FOR EXTRANEOUS DATA IN FIELD 1 OF DELETE CARD\r\nC     AND WRITE OUT TO SCRATCH FILE\r\nC\r\n  540 IF (.NOT.DEC) ITST1 = ANDF(BUF(N1),BIMSK1(6))\r\n      IF (     DEC) ITST1 = ANDF(BUF(N1),BIMSK1(1))\r\n      ITST2 = ANDF(BUF(N1+1),MBIT4)\r\n      IBK3  = ANDF(BK(3),MBIT4)\r\n      IBK4  = ANDF(BK(4),MBIT4)\r\n      IF (ITST1.EQ.IBK3 .AND. ITST2.EQ.IBK4) GO TO 545\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,541) UFM\r\n  541 FORMAT (A23,' 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA ',\r\n     1        'DELETE CARD.')\r\n      NOGO = -2\r\n  545 CALL XFADJ1 (BUF(N1+2),RSHIFT,0)\r\n      CALL XBCDBI (BUF(N1+2))\r\n      CALL XFADJ1 (BUF(N1+4),RSHIFT,0)\r\n      CALL XBCDBI (BUF(N1+4))\r\n      BUF(N1+4) = BUF(N1+5)\r\n      CALL WRITE (ITAPE5,BUF(N1+3),2,1)\r\n      GO TO 180\r\nC\r\nC     END OF BIG SORT LOOP\r\nC\r\n  550 CONTINUE\r\n      GO TO 590\r\nC\r\nC\r\nC     SET (ENDDATA) CARD FOUND FLAG\r\nC\r\n  560 IEND = -1\r\n      IF (ECHOU .NE. 1) GO TO 572\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,570) ICCNT\r\n  570 FORMAT (//24X,12HTOTAL COUNT=,I5)\r\n  572 CONTINUE\r\nC\r\nC     TEST FOR COLD-START WITH NO BULK DATA\r\nC\r\n      IF (ICCNT.GT.1 .OR. IRESTR.GT.0 .OR. KUMF.GT.0) GO TO 590\r\n      IF (IAPPRC .EQ. 1) GO TO 590\r\n      IF (ISUBS  .NE. 0) GO TO 590\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,580) UFM\r\n  580 FORMAT (A23,' 204, COLD START NO BULK DATA.')\r\n      NOGO = -2\r\n      RETURN\r\nC\r\nC\r\nC     IF MODIFIED RESTART - TURN ON SORT ECHO\r\nC\r\n  590 CONTINUE\r\nC\r\nC     THIS SECTION UNCHAINS THE SORTED TABLE AND WRITES A CORE LOAD,\r\nC     IN ITS ACTUAL ORDER, ONTO A MERGE SCRATCH TAPE.\r\nC\r\n      J = BUF(II+20)\r\n      J1ST = J*21 + II\r\n      KEEP = 1\r\n  610 J  = J*21 + II\r\n      J1 = BUF(J+20)\r\n      IF (J1 .EQ. 0) GO TO 620\r\nC\r\nC     ITAPE IS PRIMARY CORE UNLOAD TAPE\r\nC\r\n      CALL WRITE (ITAPE,BUF(J),20,1)\r\n      IF (J .LT. KEEP) NOTSOR = 1\r\n      KEEP = J\r\n      J    = J1\r\n      GO TO 610\r\n  620 ISEQ = ISEQ + 1\r\n      IF (ISEQ .EQ. 2) GO TO 640\r\n      IF (ISEQ .GT. 2) GO TO 650\r\n      IF (IEND .NE. 0) GO TO 630\r\n      ITAPE = ITAPE2\r\n      CALL OPEN (*1700,ITAPE,BUF(IBUFSZ+1),1)\r\n      GO TO 170\r\nC\r\nC     NO MERGING IS REQUIRED, ALL CARDS FIT WITHIN ONE WORKING BUFFER\r\nC     LOAD\r\nC\r\n  630 KTAPE = ITAPE\r\n      CALL CLOSE (KTAPE,1)\r\n      GO TO 1260\r\nC\r\nC     SET UP 1ST MERGE\r\nC\r\n  640 CALL CLOSE (ITAPE,1)\r\n      ITAPE = ITAPE1\r\n      KOP   = 0\r\nC\r\nC     SET UP SUBSEQUENT MERGE TAPES\r\nC\r\n  650 IF (MOD(ISEQ,2) .EQ. 0) GO TO 660\r\n      JTAPE = ITAPE3\r\n      KTAPE = ITAPE2\r\n      GO TO 670\r\n  660 JTAPE = ITAPE2\r\n      KTAPE = ITAPE3\r\n  670 CALL CLOSE (ITAPE,1)\r\nC\r\nC     SPECIAL LOGIC TO AVOID MERGE IF NEW CORE LOAD FOLLOWS ALL PREVIOUS\r\nC\r\n      IF (KOP-1) 760,700,680\r\n  680 DO 690 J = 1,18\r\n  690 IBUF1(J) = IBUF2(J)\r\n  700 DO 710 J = 1,18\r\n      IF (BUF(J1ST) .NE. IBUF1(J)) GO TO 720\r\n  710 J1ST = J1ST + 1\r\n      GO TO 760\r\n  720 GO TO MZ1, (730,740)\r\n  730 IF (RSHIFT(BUF(J1ST),NSHIFT).LT.RSHIFT(IBUF1(J),NSHIFT)) GO TO 755\r\n      GO TO 750\r\n  740 IF (DEC) GO TO  745\r\n      IF (BUF(J1ST) .LT. IBUF1(J)) GO TO 755\r\n      GO TO 750\r\n  745 IF (KHRFN4(BUF(J1ST)).LT.KHRFN4(IBUF1(J))) GO TO 755\r\n  750 TRIAL = KTAPE\r\n      KTAPE = JTAPE\r\n      JTAPE = TRIAL\r\n      ISEQ  = ISEQ - 1\r\n      CALL OPEN (*1700,ITAPE,BUF(1),0)\r\n      CALL OPEN (*1700,KTAPE,BUF(IBUFSZ+1),3)\r\n      GO TO 1210\r\nC\r\nC     THIS SECTION PERFORMS A 2 TAPE ALPHANUMERIC MERGE\r\nC     (ITAPE+JTAPE=KTAPE)\r\nC     SAME BASIC LOGIC AS ORIGINAL SORT COMPARES (COMMENT CARDS OMITTED)\r\nC\r\n  755 NOTSOR = 1\r\n  760 CALL OPEN (*1700,ITAPE,BUF(1),0)\r\n  770 CALL OPEN (*1700,JTAPE,BUF(IBUFSZ+1),0)\r\n      NBUF2 = 2*IBUFSZ + 1\r\n      CALL OPEN (*1700,KTAPE,BUF(NBUF2),1)\r\n      CCNT = 0\r\n  780 CALL READ (*1190,*1710,JTAPE,IBUF2,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP))\r\n     1    CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n      LDUP = 0\r\n      IF (ITAPE .EQ. OPTP) CALL CRDFLG (IBUF2)\r\n      KTARSW = 0\r\n      IF (.NOT.DEC) ITST = ANDF(MKA,IBUF2(2))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,4,IBUF2(2),4)\r\n      IF (ITST .EQ. STAR) KTARSW = 1\r\n      GO TO MY1, (790,800)\r\n  790 IBUF2A(1) = RSHIFT(IBUF2(1),NSHIFT)\r\n      IBUF2A(2) = RSHIFT(IBUF2(2),NSHIFT)\r\n  800 CALL READ (*1240,*1710,ITAPE,IBUF1,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. (ITAPE.EQ.UMF .OR. ITAPE.EQ.IPTP))\r\n     1    CALL UMFTRN (IBUF1)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1)\r\n      STARSW = 0\r\n      IF (.NOT.DEC) ITST = ANDF(MKA,IBUF1(2))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,4,IBUF1(2),4)\r\n      IF (ITST .EQ. STAR) STARSW = 1\r\n      GO TO IBRANB, (830,810)\r\n  810 GO TO MY2, (820,970)\r\n  820 IBUF1A(1) = RSHIFT(IBUF1(1),NSHIFT)\r\n      IBUF1A(2) = RSHIFT(IBUF1(2),NSHIFT)\r\n      GO TO 970\r\nC\r\nC     TEST IF CARD IS TO BE DELETED\r\nC\r\n  830 CCNT = CCNT + 1\r\n      IF (.NOT.DEC) TST = ANDF(MK(3),IBUF1(1))\r\n      IF (     DEC) TST = KHRFN1(BKMSK2,1,IBUF1(1),1)\r\n      ICCFLG = -1\r\n      IF (TST.EQ.PLUS .OR. TST.EQ.STARL) GO TO 860\r\n      CALL EXTINT (IBUF1(1))\r\n      GO TO MY6, (840,850)\r\n  840 IBUF1A(1) = RSHIFT(IBUF1(1),NSHIFT)\r\n      IBUF1A(2) = RSHIFT(IBUF1(2),NSHIFT)\r\n  850 ICCFLG    = 0\r\n      KPARNT(1) = IBUF1(1)\r\n      KPARNT(2) = IBUF1(2)\r\n  860 GO TO IBRANC, (870,880,900)\r\n  870 CALL READ (*920,*1710,ITAPE5,IBUF3,2,1,IFLG)\r\n      IF (IBUF3(1) .EQ. 0) GO TO 870\r\n      ASSIGN 880 TO IBRANC\r\n  880 IF (IBUF3(2) .NE.    0) GO TO 890\r\n      IF (IBUF3(1) .NE. CCNT) GO TO 900\r\n      ASSIGN 870 TO IBRANC\r\n      GO TO 930\r\n  890 IF (IBUF3(2) .EQ. CCNT) ASSIGN 870 TOIBRANC\r\n      IF (IBUF3(1).LE.CCNT .AND. IBUF3(2).GE.CCNT) GO TO 930\r\nC\r\nC     REMOVE ANY UNDELETED CONTINUATION CARDS DURING RESTART MERGE\r\nC\r\n  900 IF (ICCFLG .EQ. 0) GO TO IBRANE, (970,1220)\r\n      CALL WRITE (ITAPE4,IBUF1(1),20,1)\r\n  910 GO TO IBRAND, (800,1210)\r\n  920 ASSIGN 900 TO IBRANC\r\n      CALL CLOSE (ITAPE5,1)\r\n      GO TO 900\r\nC\r\nC     IF CONTINUATION WAS DELETED, FLAG PARENT\r\nC\r\n  930 IF (ICCFLG .EQ. 0) GO TO 940\r\n      CALL CRDFLG (KPARNT)\r\n      GO TO 910\r\n  940 CALL CRDFLG (IBUF1)\r\n      GO TO 910\r\n  950 CALL READ (*1190,*1710,JTAPE,IBUF2,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP))\r\n     1    CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n      IF (ITAPE .EQ. OPTP) CALL CRDFLG (IBUF2)\r\n      KTARSW = 0\r\n      IF (.NOT.DEC) ITST = ANDF(MKA,IBUF2(2))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,4,IBUF2(2),4)\r\n      IF (ITST .EQ. STAR) KTARSW = 1\r\n      GO TO MY3, (960,970)\r\n  960 IBUF2A(1) = RSHIFT(IBUF2(1),NSHIFT)\r\n      IBUF2A(2) = RSHIFT(IBUF2(2),NSHIFT)\r\n  970 J  = 1\r\n      J1 = 1\r\n      J2 = 1\r\n      NI = 0\r\n      KI = 0\r\n  980 GO TO MY4, (990,1040)\r\n  990 IF (IBUF1A(J1)-IBUF2A(J2)) 1050,1070,1060\r\n 1000 IF (STARSW .EQ. KTARSW) GO TO 980\r\n      IF (DEC) GO TO 1005\r\n      IN1 = RSHIFT(ANDF(MKD,IBUF1(J1)),1)\r\n      IK2 = RSHIFT(ANDF(MKD,IBUF2(J2)),1)\r\n      GO TO 1008\r\n 1005 IN1 = RSHIFT(KHRFN4(KHRFN1(IBUF1(J1),4,BKMSK2,1)),1)\r\n      IK2 = RSHIFT(KHRFN4(KHRFN1(IBUF2(J2),4,BKMSK2,1)),1)\r\n 1008 IF (IN1 .NE. IK2) GO TO 1018\r\n      IF (DEC) GO TO 1010\r\n      IN1 = ANDF(MKE,IBUF1(J1))\r\n      IK2 = ANDF(MKE,IBUF2(J2))\r\n      GO TO 1015\r\n 1010 IN1 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(IBUF1(J1),4,BKMSK2,1)),1),1)\r\n      IK2 = RSHIFT(LSHIFT(KHRFN4(KHRFN1(IBUF2(J2),4,BKMSK2,1)),1),1)\r\n 1015 IF (IN1 .EQ. IK2) GO TO 1070\r\n 1018 IF (IN1 .LT. IK2) GO TO 1050\r\n      GO TO 1060\r\n 1020 IF (IBUF1(J1) .EQ. IBUF2(J2)) GO TO 1070\r\n      IF (IBUF1(J1) .EQ. BK(4)    ) GO TO 1050\r\n      IF (IBUF2(J2) .EQ. BK(4)    ) GO TO 1060\r\n      GO TO MY5, (1030,1040)\r\n 1030 IF (RSHIFT(IBUF1(J1),1)-RSHIFT(IBUF2(J2),1)) 1050,1070,1060\r\n 1040 IF (DEC) GO TO 1045\r\n      IF (IBUF1(J1) .LT. IBUF2(J2)) GO TO 1050\r\n      IF (IBUF1(J1) .GT. IBUF2(J2)) GO TO 1060\r\n      GO TO 1070\r\n 1045 IF (KHRFN4(IBUF1(J1))-KHRFN4(IBUF2(J2))) 1050,1070,1060\r\n 1050 CALL WRITE (KTAPE,IBUF1,20,1)\r\n      KOP = 1\r\n      GO TO 800\r\n 1060 CALL WRITE (KTAPE,IBUF2,20,1)\r\n      KOP = 2\r\n      GO TO 950\r\n 1070 J  = J  + 1\r\n      J1 = J1 + 1\r\n      J2 = J2 + 1\r\n      GO TO (1760,1000,1120,1020,1160,1020,1080,1020,1160,1020,1170,\r\n     1       1020,1160,1020,1080,1020,1160,1020,1180), J\r\n 1080 IF (NI-KI) 1100,1110,1090\r\n 1090 J1 = J1 + NI\r\n      NI = 0\r\n      GO TO 1110\r\n 1100 J2 = J2 + KI\r\n      KI = 0\r\n 1110 CALL XFADJ (IBUF1(J1),STARSW,K1)\r\n      CALL XFADJ (IBUF2(J2),KTARSW,K2)\r\n      GO TO 1130\r\n 1120 IF (STARSW .EQ. KTARSW) GO TO 1020\r\n      K1 = 0\r\n      K2 = 0\r\n      IF (DEC) GO TO 1122\r\n      IF (ANDF(MK(3),IBUF1(J1)) .NE. BKMSK1(4)) K1 = 1\r\n      IF (ANDF(MK(3),IBUF2(J2)) .NE. BKMSK1(4)) K2 = 1\r\n      GO TO 1130\r\n 1122 IF (KHRFN1(BKMSK2,1,IBUF1(J1),1) .NE. BKMSK1(4)) K1 = 1\r\n      IF (KHRFN1(BKMSK2,1,IBUF2(J2),1) .NE. BKMSK1(4)) K2 = 1\r\n 1130 IF (STARSW-KTARSW) 1150,1020,1140\r\n 1140 NI = 2\r\n      IF (K1+K2 .EQ. 2) GO TO 1020\r\n      J1 = J1 + 2\r\n      NI = 0\r\n      GO TO 1020\r\n 1150 KI = 2\r\n      IF (K1+K2 .EQ. 2) GO TO 1020\r\n      J2 = J2 + 2\r\n      KI = 0\r\n      GO TO 1020\r\n 1160 IF (STARSW .NE. KTARSW) GO TO 1080\r\n      IF (STARSW .EQ.      0) GO TO 1080\r\n      GO TO 1020\r\nC\r\nC     DUPLICATE CARD\r\nC\r\n 1170 IF (STARSW .EQ. KTARSW) GO TO 1080\r\n 1180 CALL WRITE (KTAPE,IBUF1,20,1)\r\n      CALL WRITE (KTAPE,IBUF2,20,1)\r\n      LDUP = -1\r\n      GO TO 780\r\nC\r\nC     ONE OF TWO TAPES BEING MERGED IS EXHAUSTED, OTHER TAPE IS COPIED\r\nC     ONTO THE MERGE TAPE\r\nC\r\n 1190 IF (ITAPE .NE. OPTP) GO TO 1200\r\n      ASSIGN 1210 TO IBRAND\r\n      ASSIGN 1220 TO IBRANE\r\n      ASSIGN 830 TO IBRANF\r\n      IF (CCNT .EQ. 0) GO TO 1210\r\n 1200 IF (LDUP .LT. 0) GO TO 1210\r\n      GO TO 1220\r\n 1210 CALL READ (*1250,*1710,ITAPE,IBUF1,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. (ITAPE.EQ.UMF .OR. ITAPE.EQ.IPTP))\r\n     1    CALL UMFTRN (IBUF1)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1)\r\n      GO TO IBRANF, (830,1220)\r\n 1220 CALL WRITE (KTAPE,IBUF1,20,1)\r\n      KOP = 1\r\n      GO TO 1210\r\n 1230 CALL READ (*1250,*1710,JTAPE,IBUF2,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. (JTAPE.EQ.UMF .OR. JTAPE.EQ.IPTP))\r\n     1    CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n 1240 CALL WRITE (KTAPE,IBUF2,20,1)\r\n      KOP = 2\r\n      GO TO 1230\r\nC\r\nC     CLOSE TAPES ENVOLVED IN MERGE\r\nC\r\n 1249 CALL CLOSE (ITAPE,2)\r\n      GO TO 1251\r\n 1250 IF (IUEDIT .EQ.   1) GO TO 1249\r\n      IF (ITAPE .EQ. OPTP) GO TO 1249\r\n      CALL CLOSE (ITAPE,1)\r\n 1251 CALL CLOSE (JTAPE,3)\r\n      CALL CLOSE (KTAPE,3)\r\n      GO TO IBRANA, (1260,1440)\r\nC\r\nC     WAS THIS THE FINAL MERGE (LAST CORE LOAD OF CARDS)\r\nC\r\n 1260 IF (IEND .EQ. 0) GO TO 160\r\n      CALL PAGE2 (2)\r\n      WRITE (OUTTAP,1660)\r\n      CALL CLOSE (ITAPE5,1)\r\nC\r\nC     PROCESS DELETE CARDS (IF ANY)\r\nC\r\n      NBUF4 = 4*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE5,BUF(NBUF4),0)\r\nC\r\nC     IF NOT RESTART - NO DELETES SHOULD EXIST\r\nC\r\n      IF (IRESTR.GT.0 .OR. KIN.GT.0) GO TO 1280\r\nC\r\n      CALL READ (*1440,*1710,ITAPE5,IBUF3,1,1,IFLG)\r\nC\r\nC     NOT RESTART AND DELETES DO EXIST - WARNING\r\nC\r\n      CALL CLOSE (ITAPE5,1)\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,1270) UWM\r\n 1270 FORMAT (A25,' 205, COLD START,DELETE CARDS IGNORED.')\r\n      GO TO 1440\r\nC\r\nC     FORM DELETE CARD LIST\r\nC\r\n 1280 IBUF3(1)  = INF\r\n      BUF(II  ) = MKB\r\n      BUF(II+1) = MKB\r\n      DO 1320 J = II,IBUFLG,2\r\n      CALL READ (*1330,*1710,ITAPE5,IBUF3,2,1,IFLG)\r\n      DO 1290 I = II,J,2\r\n      IF (IBUF3(1) .LE. BUF(I)) GO TO 1300\r\n 1290 CONTINUE\r\nC\r\nC     PUSH DOWN LIST - MAKE DOUBLE WORD SLOT\r\nC\r\n 1300 KK = J + 2\r\n      K1 = (J-I)/2 + 1\r\n      DO 1310 K = 1,K1\r\n      BUF(KK+1) = BUF(KK-1)\r\n      BUF(KK  ) = BUF(KK-2)\r\n 1310 KK = KK - 2\r\n      BUF(I  ) = IBUF3(1)\r\n 1320 BUF(I+1) = IBUF3(2)\r\nC\r\nC     IF DELETE CARD LIST WILL NOT FIT\r\nC\r\n      CALL MESAGE (-8,0,NSORT)\r\nC\r\nC     EOF ON ITAPE5, IF IBUF3(1)= INF, THERE ARE NO DELETE CARDS\r\nC\r\n 1330 IF (IBUF3(1) .EQ. INF) GO TO 1400\r\n      J = J - 1\r\nC\r\nC     CHECK FOR AND ELIMINATE OVERLAPS AND REDUNDANCYS IN DELETES\r\nC\r\n      IMIN = 0\r\n      DO 1380 I = II,J,2\r\n      IF (BUF(I) .EQ. 0) GO TO 1380\r\n      IF (BUF(I) .LT. BUF(I+1)) GO TO 1340\r\n      BUF(I+1) = 0\r\n      IF (BUF(I) .EQ. BUF(I+2)) GO TO 1350\r\n      IF (IMIN .EQ. 0) GO TO 1380\r\n      IF (BUF(I) .GT. BUF(IMAX)) GO TO 1370\r\n      GO TO 1350\r\n 1340 IF (IMIN .EQ. 0) GO TO 1360\r\n      IF (BUF(I  ) .GT. BUF(IMAX)) GO TO 1360\r\n      IF (BUF(I+1) .LT. BUF(IMAX)) GO TO 1350\r\n      BUF(IMAX) = BUF(I+1)\r\n 1350 BUF(I) = 0\r\n      GO TO 1380\r\n 1360 IMIN = I\r\n      IMAX = I + 1\r\n      GO TO 1380\r\n 1370 IMIN = 0\r\n 1380 CONTINUE\r\n      CALL CLOSE (ITAPE5,1)\r\nC\r\nC     PUT OUT SORTED DELETE CARD LIST\r\nC\r\n      NBUF4 = 4*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE5,BUF(NBUF4),1)\r\n      DO 1390 I = II,J,2\r\n      IF (BUF(I) .EQ. 0) GO TO 1390\r\n      CALL WRITE (ITAPE5,BUF(I),2,1)\r\n 1390 CONTINUE\r\n 1400 CALL CLOSE (ITAPE5,1)\r\nC\r\nC     AT THIS POINT, IF THIS IS A RESTART, MERGE OPTP, FINAL KTAPE,\r\nC     + DELETE\r\nC\r\n      ASSIGN 1440 TO IBRANA\r\n      ASSIGN 830  TO IBRANB\r\n      ASSIGN 870  TO IBRANC\r\n      ASSIGN 800  TO IBRAND\r\n      ASSIGN 970  TO IBRANE\r\n      NBUF4 = 4*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE5,BUF(NBUF4),0)\r\nC\r\n      IF (KIN .GT. 0) GO TO 1430\r\nC\r\n      CALL OPEN (*1740,OPTP,BUF(1),0)\r\n 1410 CALL READ (*1730,*1710,OPTP,IBUF3,2,1,IFLG)\r\n      IF (IBUF3(1).EQ.IBLKDA(1) .AND. IBUF3(2).EQ.IBLKDA(2)) GO TO 1420\r\n      CALL SKPFIL (OPTP,+1)\r\n      GO TO 1410\r\n 1420 ITAPE = OPTP\r\n      TRIAL = JTAPE\r\n      JTAPE = KTAPE\r\n      KTAPE = TRIAL\r\n      IF (ICCNT .EQ. 1) GO TO 1440\r\n      CALL WRITE (ITAPE4,MKB,20,1)\r\n      GO TO 770\r\nC\r\n 1430 OPTP = UMF\r\n      CALL OPEN (*50,UMF,BUF(1),2)\r\n      GO TO 1420\r\nC\r\nC     PROCESS CONTINUATION CARDS (IF ANY)\r\nC\r\n 1440 CALL CLOSE (ITAPE4,1)\r\n      NBUF3 = 3*IBUFSZ + 1\r\n      CALL OPEN (*1700,ITAPE4,BUF(NBUF3),0)\r\n      IF (ICCNT.EQ.1 .AND. (IRESTR.GT.0 .OR. KIN.GT.0)) KTAPE = OPTP\r\n      IF (ICCNT.EQ.1 .AND. (IRESTR.GT.0 .OR. KIN.GT.0)) GO TO 1441\r\n      NBUF2 = 2*IBUFSZ + 1\r\n      CALL OPEN (*1700,KTAPE,BUF(NBUF2),0)\r\nC\r\nC     FORM CONTINUATION CARD DICTIONARY\r\nC\r\n 1441 CONTINUE\r\n      IBUF1(1) = 0\r\n      DO 1470 J = II,IBUFLG,4\r\n      CALL READ (*1480,*1710,ITAPE4,IBUF1,20,1,IFLG)\r\n      IF (MACH.EQ.2 .AND. IBUF1(1).NE.MKB) CALL UMFTRN (IBUF1)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1)\r\n      IF (IBUF1(1) .NE. MKB) GO TO 1460\r\n      IF (J .EQ. II) GO TO 1450\r\n      ICCBRK = J\r\n 1450 BUF(J) = DOLLAR\r\n      GO TO 1465\r\n 1460 IF (.NOT.DEC) BUF(J) = ANDF(MKC,IBUF1(1))\r\n      IF (     DEC) BUF(J) = KHRFN1(IBUF1(1),1,BKMSK2,1)\r\n 1465 BUF(J+1) = IBUF1(2)\r\n      IF (.NOT.DEC) BUF(J+2) = ANDF(MKC,IBUF1(19))\r\n      IF (     DEC) BUF(J+2) = KHRFN1(IBUF1(19),1,BKMSK2,1)\r\n      BUF(J+3) = IBUF1(20)\r\n 1470 CONTINUE\r\nC\r\nC\r\nC     CORE INSUFFICIENT TO ACCOMMODATE 4-WORD PER CARD DICTIONARY\r\nC     OF CONTINUATION CARDS\r\nC\r\n      CALL MESAGE (-8,0,NSORT)\r\nC\r\nC     EOF ON ITAPE4, IF IBUF1(1)= 0, THERE ARE NO CONTINUATION CARDS\r\nC\r\n 1480 IF (IBUF1(1) .EQ. 0) GO TO 1510\r\n      CALL REWIND (ITAPE4)\r\n      JO = 1\r\n      ICONLG = J - 1\r\nC\r\nC     CHECK AND SET FLAGS FOR DUPLICATE CONTINUATION CARDS\r\nC\r\n      K = ICONLG - 4\r\n      IF (K .LE. II) GO TO 1510\r\n      DO 1500 J = II,K,4\r\n      IF (BUF(J) .EQ. IDUP) GO TO 1500\r\n      INDEX = 0\r\n      M = J + 4\r\n      DO 1490 JJ = M,ICONLG,4\r\n      IF (BUF(JJ ) .EQ. IDUP     ) GO TO 1490\r\n      IF (BUF(J  ) .NE. BUF(JJ)  ) GO TO 1490\r\n      IF (BUF(J+1) .NE. BUF(JJ+1)) GO TO 1490\r\n      BUF(JJ) = IDUP\r\n      INDEX = 1\r\n 1490 CONTINUE\r\n      IF (INDEX .EQ. 1) BUF(J) = IDUP\r\n 1500 CONTINUE\r\nC\r\nC     SET UP AND PUT OUT SORTED HEADING\r\nC\r\n 1510 IF (NOTSOR .EQ. 0) GO TO 1515\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,1511) UIM\r\n 1511 FORMAT (A29,' 207, BULK DATA NOT SORTED, XSORT WILL RE-ORDER ',\r\n     1       'DECK.')\r\n 1515 IF (ECHOS .EQ. 0) GO TO 1530\r\n      DO 1520 J = 1,32\r\n 1520 HEAD1(J) = HEADS(J)\r\n      HEAD2(4) = CDCNT(1)\r\n      HEAD3(4) = CDCNT(2)\r\n      HEAD3(5) = CDCNT(3)\r\n      CALL PAGE\r\n      CCNT = 0\r\n 1530 CALL CLOSE (ITAPE5,1)\r\n      J = II\r\n      NBUF4 = 4*IBUFSZ + 1\r\n      CALL OPEN (*1750,NPTP,BUF(NBUF4),3)\r\n      CALL WRITE (NPTP,IBLKDA,2,1)\r\n      IF (IBUF1(1) .EQ. 0) GO TO 1630\r\nC\r\nC     MERGE CONTINUATION CARDS - PRODUCE DATA ON NPTP\r\nC\r\n 1540 CALL READ (*1640,*1710,KTAPE,IBUF1,20,1,IFLG)\r\n      IF (ICCBRK .EQ. 0) GO TO 1550\r\n      KPARNT(1) = IBUF1(1)\r\n      KPARNT(2) = IBUF1(2)\r\n 1550 CALL INTEXT (IBUF1(1))\r\n      IF (MACH .EQ. 2) CALL UMFTRN (IBUF1)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1)\r\n      CALL WRITE (NPTP,IBUF1,20,1)\r\n      IF (ECHOS .EQ. 0) GO TO 1551\r\n      CALL PAGE2 (-1)\r\n      CCNT = CCNT + 1\r\n      CALL XPRETY (IBUF1)\r\n      WRITE (OUTTAP,210) CCNT,IBUF1\r\nC\r\nC      PUNCH OUT DECK\r\nC\r\n 1551 IF (ECHOP .EQ. 0) GO TO 1554\r\n      IF (ECHOS .NE. 0) GO TO 1552\r\n      CALL XPRETY (IBUF1)\r\n 1552 WRITE  (LPCH,1553) IBUF1\r\n 1553 FORMAT (20A4)\r\n 1554 CONTINUE\r\nC\r\nC     SEE IF PREVIOUS CARD HAS A CONTINUATION\r\nC     IF CONTINUATION FIELD BLANK - CONTINUATION NOT POSSIBLE\r\nC\r\n      IF (IBUF1(19).EQ.BK(4) .AND. IBUF1(20).EQ.BK(4)) GO TO 1540\r\n      IF (.NOT.DEC) TRIAL = ANDF(MKC,IBUF1(19))\r\n      IF (     DEC) TRIAL = KHRFN1(IBUF1(19),1,BKMSK2,1)\r\n      JN = 0\r\n 1571 CONTINUE\r\nC\r\n      DO 1601 K = II,ICONLG,4\r\nC\r\nC     IGNORE DUPLICATE CONTINUATION CARDS\r\nC\r\n      IF (BUF(J) .EQ. IDUP) GO TO 1600\r\n      IF (IBUF1(20) .NE. BUF(J+1)) GO TO 1600\r\n      IF (.NOT.DEC) ITST = ANDF(MKC,BUF(J))\r\n      IF (     DEC) ITST = KHRFN1(BUF(J),1,BKMSK2,1)\r\n      IF (ITST .NE. TRIAL) GO TO 1600\r\nC\r\nC     A CONTINUATION EXISTS, HAS IT ALREADY BEEN USED\r\nC\r\n      IF (.NOT.DEC) ITST = ANDF(MK(3),BUF(J))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,1,BUF(J),1)\r\n      IF (ITST .EQ. DOLLAR) GO TO 1610\r\n      IF (J .GT. ICCBRK) GO TO 1580\r\n      CALL CRDFLG (KPARNT)\r\n 1580 IF (.NOT.DEC) BUF(J) = ORF(BUF(J),DOLLAR)\r\n      IF (     DEC) BUF(J) = KHRFN1(BUF(J),1,DOLLAR,1)\r\n      JN = (J-II)/4 + 1\r\n      CALL XRECPS (JN,JO)\r\n      CALL READ (*1720,*1710,ITAPE4,IBUF1,20,1,IFLG)\r\n      IF (MACH .EQ. 2) CALL UMFTRN (IBUF1)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF1)\r\n      CALL WRITE (NPTP,IBUF1,20,1)\r\n      IF (ECHOS .EQ. 0) GO TO 1581\r\n      CALL PAGE2 (-1)\r\n      CCNT = CCNT+ 1\r\n      WRITE (OUTTAP,210) CCNT,IBUF1\r\n 1581 IF (ECHOP .EQ. 0) GO TO 1584\r\n      WRITE (LPCH,1553) IBUF1\r\n 1584 CONTINUE\r\n      IF (.NOT.DEC) TRIAL = ANDF(MKC,IBUF1(19))\r\n      IF (     DEC) TRIAL = KHRFN1(IBUF1(19),1,BKMSK2,1)\r\n      IF (IBUF1(19).EQ.BK(4) .AND. IBUF1(20).EQ.BK(4)) GO TO 1540\r\n      GO TO 1571\r\n 1600 J = J + 4\r\n      IF (J .GT. ICONLG) J = II\r\n 1601 CONTINUE\r\n      GO TO 1540\r\nC\r\nC     DUPLICATE PARENT - ERROR\r\nC\r\n 1610 NL = 0\r\n      IF (ECHOS .NE. 0) GO TO 1612\r\n      NL = 1\r\n      WRITE (OUTTAP,200) IBUF1\r\n 1612 NL = NL +2\r\n      CALL PAGE2 (-NL)\r\n      WRITE  (OUTTAP,1620) UFM\r\n 1620 FORMAT (A23,' 208, PREVIOUS CARD IS A DUPLICATE PARENT.')\r\n      NOGO = -1\r\n      GO TO 1540\r\nC\r\nC     NO CONTINUATION CARDS\r\nC\r\n 1630 CALL READ (*1640,*1710,KTAPE,IBUF2,20,1,IFLG)\r\n      IF (ICCNT .EQ. 1) GO TO 1631\r\n      CALL INTEXT (IBUF2(1))\r\n 1631 CONTINUE\r\n      IF (MACH .EQ. 2) CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n      CALL WRITE (NPTP,IBUF2,20,1)\r\n      IF (ECHOS .EQ. 0) GO TO 16311\r\n      CALL PAGE2 (-1)\r\n      CCNT = CCNT + 1\r\n      CALL XPRETY (IBUF2)\r\n      WRITE (OUTTAP,210) CCNT,IBUF2\r\n16311 IF (ECHOP .EQ. 0) GO TO 1630\r\n      IF (ECHOS .NE. 0) GO TO 1632\r\n      CALL XPRETY (IBUF2)\r\n 1632 WRITE (LPCH,1553) IBUF2\r\n      GO TO 1630\r\nC\r\nC     CLOSE KTAPE AND WRITE (ENDDATA)\r\nC\r\n 1640 CALL CLOSE (KTAPE,2)\r\n      CALL EOF   (NPTP)\r\n      CALL CLOSE (NPTP,1)\r\n      IF (ECHOS .EQ. 0) GO TO 1650\r\n      CALL PAGE2 (-1)\r\n      WRITE (OUTTAP,200) IIEND\r\n 1650 IF (IBUF1(1) .EQ. 0) GO TO 1690\r\n      CALL PAGE2 (2)\r\n      WRITE  (OUTTAP,1660)\r\n 1660 FORMAT (1H0)\r\nC\r\nC     IDENTIFY DUPLICATE OR PARENTLESS CONTINUATION CARDS\r\nC\r\n      NCNT = 0\r\n      DO 1670 J = II,ICONLG,4\r\n      IF (.NOT.DEC) ITST = ANDF(MK(3),BUF(J))\r\n      IF (     DEC) ITST = KHRFN1(BKMSK2,1,BUF(J),1)\r\n      IF (ITST .EQ. DOLLAR) GO TO 1670\r\nC\r\nC     CHECK FOR DUPLICATE CONTINUATION CARDS\r\nC\r\n      IF (BUF(J) .EQ. IDUP) GO TO 1666\r\nC\r\nC     CHECK FOR PARENTLESS CONTINUATION CARDS\r\nC\r\n      DO 1664 JJ = II,ICONLG,4\r\n      IF (J .EQ. JJ) GO TO 1664\r\n      IF (BUF(J).EQ.BUF(JJ+2) .AND. BUF(J+1).EQ.BUF(JJ+3)) GO TO 1668\r\n 1664 CONTINUE\r\n 1666 NCNT = NCNT + 1\r\n      JN   = (J-II)/4 + 1\r\n      CALL XRECPS (JN,JO)\r\n      CALL READ (*1720,*1710,ITAPE4,IBUF2,20,1,IFLG)\r\n      IF (MACH .EQ. 2) CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n      CALL PAGE2 (-1)\r\n      WRITE (OUTTAP,200) IBUF2\r\n      GO TO 1670\r\n 1668 BUF(J) = IOK\r\n 1670 CONTINUE\r\n      IF (NCNT .EQ. 0) GO TO 1690\r\n      CALL PAGE2 (3)\r\n      WRITE  (OUTTAP,1680) UFM,NCNT\r\n 1680 FORMAT (A23,' 209, PREVIOUS',I7,' CONTINUATION MNEMONICS HAVE NO',\r\n     1       ' PARENTS AND/OR ARE DUPLICATES.',/)\r\n      NOGO = -1\r\nC\r\nC     IDENTIFY THOSE CONTINUATION CARDS THAT ARE VALID, BUT YET CANNOT\r\nC     BE PROCESSED BECAUSE OF ERRORS ON OTHER RELATED CONTINUATION CARDS\r\nC\r\n      NCNT = 0\r\n      DO 1684 J = II,ICONLG,4\r\n      IF (BUF(J) .NE. IOK) GO TO 1684\r\n      NCNT = NCNT + 1\r\n      JN   = (J-II)/4 + 1\r\n      CALL XRECPS (JN,JO)\r\n      CALL READ (*1720,*1710,ITAPE4,IBUF2,20,1,IFLG)\r\n      IF (MACH .EQ. 2) CALL UMFTRN (IBUF2)\r\n      IF (MACH.EQ.3 .AND. KIN.EQ.1) CALL UMFFD (IBUF2)\r\n      CALL PAGE2 (-1)\r\n      WRITE (OUTTAP,200) IBUF2\r\n 1684 CONTINUE\r\n      IF (NCNT .EQ. 0) GO TO 1690\r\n      CALL PAGE2 (4)\r\n      WRITE  (OUTTAP,1686) UFM,NCNT\r\n 1686 FORMAT (A23,' 206, PREVIOUS',I7,' CONTINUATION CARDS, THOUGH ',\r\n     1       'VALID, CANNOT BE PROCESSED', /5X,\r\n     2       'BECAUSE OF ERRORS ON OTHER RELATED CONTINUATION CARDS.',/)\r\n 1690 CALL CLOSE (ITAPE4,1)\r\nC\r\nC     REACTIVE DIAG 47 TO PRINT THE CONTENTS OF NTPT\r\nC\r\n      L47 = 0\r\n      IF (L47 .EQ. 0) GO TO 1699\r\n      CALL OPEN (*1750,NPTP,BUF(1),0)\r\n 1691 CALL SKPFIL (NPTP,+1)\r\n      CALL READ (*1697,*1697,NPTP,IBUF1(1),2,1,J)\r\n      IF (IBUF1(1).NE.IBLKDA(1) .OR. IBUF1(2).NE.IBLKDA(2)) GO TO 1691\r\n 1693 CALL READ (*1697,*1697,NPTP,IBUF1(1),20,1,J)\r\n      WRITE  (OUTTAP,1695) (IBUF1(J),J=1,10),(IBUF1(J),J=17,20)\r\n 1695 FORMAT (' ==NPTP==>',5(1X,2A4),'...',2(1X,2A4))\r\n      GO TO 1693\r\n 1697 CALL CLOSE (NPTP,1)\r\n 1699 CONTINUE\r\nC\r\nC     DISABLE FREE-FIELD INPUT OPTION IN XREAD.\r\nC\r\n      FFFLAG = 0\r\n      RETURN\r\nC\r\nC     ERROR MESSAGES\r\nC\r\n 1700 WRITE  (OUTTAP,1701) SFM\r\n 1701 FORMAT (A25,' 210, SCRATCH COULD NOT BE OPENED')\r\n      GO TO  1800\r\n 1710 WRITE  (OUTTAP,1711) SFM\r\n 1711 FORMAT (A25,' 211, ILLEGAL EOR ON SCRATCH')\r\n      GO TO  1800\r\n 1720 WRITE  (OUTTAP,1721) SFM\r\n 1721 FORMAT (A25,' 212, ILLEGAL EOF ON ITAPE4')\r\n      GO TO  1800\r\n 1730 WRITE  (OUTTAP,1731) SFM\r\n 1731 FORMAT (A25,' 213, ILLEGAL EOF ON OPTP')\r\n      GO TO  1800\r\n 1740 WRITE  (OUTTAP,1741) SFM\r\n 1741 FORMAT (A25,' 214, OPTP COULD NOT BE OPENED')\r\n      GO TO  1800\r\n 1750 WRITE  (OUTTAP,1751) SFM\r\n 1751 FORMAT (A25,' 215, NPTP COULD NOT BE OPENED')\r\n      GO TO  1800\r\n 1760 WRITE  (OUTTAP,1761) SFM\r\n 1761 FORMAT (A25,' 216, ILLEGAL INDEX')\r\n      GO TO  1800\r\n 1770 WRITE  (OUTTAP,1771) SFM\r\n 1771 FORMAT (A25,' 219, MISSING ENDDATA CARD.')\r\n 1800 CALL PAGE2 (2)\r\n      CALL MESAGE (-37,0,NSORT)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xsort2.f",
    "content": "      SUBROUTINE XSORT2\r\nC\r\nC     XSORT2 REPLACES XSORT FOR SPEED AND EFFICIENCY\r\nC\r\nC     XSORT2 REQUIRES IFP MODULE TO USE RCARD2 ROUTINE INSTEAD OF\r\nC     RCARD (DUE TO THE ASTERISK POSITION IN DOUBLE FIELD INPUT\r\nC     CARD HAS NOT BEEN MOVED TO COLUMN 8)\r\nC\r\nC     XSORT2 READS BULKDATA CARDS FROM THE INPUT TAPE, ADJUSTS THE\r\nC     FIELDS, PERFORMS AN ALPHA-NUMERIC SORT ON THE CARD IMAGES FROM\r\nC     LEFT TO RIGHT, INSERTS CONTINUATION CARDS IN THEIR PROPER\r\nC     POSITION, AND PLACES THE RESULTING SORTED IMAGES ON THE NEW\r\nC     PROBLEM TAPE, NPTP.\r\nC\r\nC     THIS ROUTINE DOES NOT USE XRECPS, RPAGE, INITCO, XFADJ, XFADJ1,\r\nC     XBCDBI, XPRETY, EXTINT, INTEXT, CRDFLG, ISFT, AND THE CHARACTER\r\nC     FUNCTIONS KHRFNi.\r\nC     IT CALLS ONLY SORT2K - TO SORT IN-CORE DATA USING TWO SORT KEYS\r\nC              AND  BISLC2 - BINARY SEARCH USING TWO SORTED KEYS\r\nC\r\nC     XSORT2 NEW LOGIC -\r\nC\r\nC     1.  INPUT BULKDATA CARDS ARE READ INTO OPEN CORE, EXCEPT CONTINU-\r\nC         ATION (* OR +), DELETE (/), COMMENT ($), AND BLANK CARDS.\r\nC     2.  WHEN CORE IS FULL, OR LAST INPUT DATA READ, SORT DATA IN CORE\r\nC         AND WRITE THE ENTIRE SORTED DATA TO SEQUENTIAL GINO FILE 303.\r\nC     3.  REPEAT 1 AND 2, AND WRITE DATA TO GINO FILES 304,305,306 ETC.\r\nC         IF NECESSARY. UP TO 30 FILES ARE ALLOWED.\r\nC     4.  ALL CONTINUATION CARDS ARE WRITEN TO GINO FILE 302. ALL\r\nC         DELETES TO 301. BLANK AND COMMENT CARDS ARE IGNORED.\r\nC     5.  WHEN ALL INPUT DATA CARDS ARE READ AND SAVED IN GINO FILE(S),\r\nC         RE-LOAD THE DELETE CARDS FROM 301 INTO OPEN CORE SPACE, AND\r\nC         COPY OPTP TO 301 WITH DESIGNATED CARDS DELETED.\r\nC     6.  COMPUTE BUFFER SPACE (AT THE END OF OPEN CORE) AND THE WORK\r\nC         SPACE (AT THE BEGINNING OF OPEN CORE) NEEDED FOR FILE MERGE\r\nC         OPERATION, AND READ INTO CORE ALL CONTINUATION CARDS USING\r\nC         THE REMAINING CORE SPACE.\r\nC     7.  IF CORE SPACE IS NOT BIG ENOUGH TO HOLD ALL CONTINUATION\r\nC         CARDS, CREATE A CONTINUATION-INDEX TABLE IN CORE, AND MOVE THE\r\nC         CONTINUATION CARDS TO A NEW GINO FILE, WITH LARGE BLOCKS OF\r\nC         CONTINUATION CARDS\r\nC     8.  PRE-MERGE BULKDATA GINO FILES TO SAVE BUFFER SPACE IF MORE\r\nC         THAN 9 GINO FILES WERE USED IN STEP 3.\r\nC         PERFORM A 2-TO-1 MERGE IF 10 TO 17 FILES WERE INVOLVED, OR\r\nC         A 3-TO-1 MERGE IF MORE THAN 17 FILES WERE USED IN STEP 3.\r\nC         THE MERGE FILES ARE SAVED IN 302,303,304,305 ETC.\r\nC     9.  MERGE ALL FILES IN SORTED ORDER, AND INSERT CONTINUATION CARDS\r\nC         WHEN NECESSARY. THE MERGED RESULTS ARE WRITTEN TO NPTP\r\nC     10. ECHO ANY CONTINUATION CARD WHICH HAS NO PARENT AND THEREFORE\r\nC         NOT USED. MAKE SURE NO REDUNDANT MESSAGE FOR THE 'REMAINING'\r\nC         CONTINUATION CARDS OF ONE 'PARENT'\r\nC\r\nC     NOTES FOR XREAD AND FFREAD ROUTINES, WHICH HAVE DONE SOME\r\nC     IMPORTANT PRELIMINARY TASK -\r\nC\r\nC      1. XSORT2 CALLS XREAD WHICH CALLS FFREAD TO READ ALL INPUT DATA,\r\nC         IN BOTH FIXED-FIELD AND FREE-FIELD FORMATS. UNSORTED INPUT\r\nC         DATA IS NOW PRINTED BY FFREAD IF 'ECHO=UNSORT' IS REQUESTED.\r\nC      2. ALL 10 BULKDATA FIELDS ARE LEFT-ADJUSTED IF INPUT ARE IN\r\nC         FREE-FIELD FORMAT. XREAD LEFT-ADJUSTED ALL FIELDS FOR THE\r\nC         FIXED-FIELD INPUT CASE.\r\nC      3. XREAD PRE-CHECK ANY CONTINUATION, COMMENT, DELETE, BLANK, AND\r\nC         ENDDATA CARDS, AND SET APPROPRIATE FLAGS IN BUF4 CONTROL ARRAY\r\nC      4. THE FIRST THREE BULKDATA FIELDS ARE CONVERTED TO INTERNAL\r\nC         INTEGER CODES AND SAVED IN BUF4 CONTROL ARRAY. THESE INTERNAL\r\nC         CODES ARE READY FOR SORTING.\r\nC      5. XREAD HANDLES BOTH SINGLE-FIELD AND/OR DOUBLE-FIELD INPUT\r\nC         AND PASS ON THE FIRST 3 BULKDATA FIELD INFORMATION INDENTI-\r\nC         CALLY TO THE BUF4 CONTROL ARRAY.\r\nC      6. XREAD/FFREAD COMPLETELY ELIMINATE THE REVERSE-STORAGE PROBLEM\r\nC         OF THE VAX MACHINE.  I.E.\r\nC         THE CONSTANT 'ABCD' IS STORED INTERNALLY AS 'DCBA' IN THE VAX\r\nC      7. IN DOUBLE-FIELD INPUT, THE ASTERISK (*) IN FIELD 1 REMAINS\r\nC         WHERE IT IS. (THE OLD XSORT MOVED IT TO COL. 8 THEN TO COL. 1.\r\nC         SUBROUTINE RCARD MUST BE MODIFIED TO HANDLE THIS DOUBLE-FIELD\r\nC         CASE)\r\nC      8. NO LEADING BCD-ZEROS IN FIELD 2 IF THAT FIELD CONTAINS AN\r\nC         INTEGER NUMBER, AND THE NUMBER IS NOT RIGHT ADJUSTED (I.E.\r\nC         XSORT2 TREATS FIELD 2 INTEGER THE SAME WAY AS INTEGERS IN ALL\r\nC         OTHER FILEDS, NAMELY LEFT ADJUSTED WITH TRAILING BLANKS\r\nC      9. IF THE 1ST FIELD OF THE 2ND CARD IS BLANK, A UNIQUE CONTINUA-\r\nC         TION SYMBOL IS INSERTED INTO THE 1ST FIELD, AND THE SAME\r\nC         SYMBOL IS ADDED TO THE 10TH FIELD OF THE PREVIOUS CARD\r\nC\r\nC     SCRATCH FILE LIMITATION IN LINK1 -\r\nC     SEMDBD ALLOCATES ONLY 15 SCRATCH FILES. SINCE XCSA AND XGPI USE\r\nC     THE LAST SCRATCH FILE FOR RIGID FORMAT, XSORT2, PROGRAMMED UP TO\r\nC     30 FILES, IS THEREFORE PHYSICALLY LIMITTED TO 14 SCRATCH FILES.\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS   10/1987\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF\r\n      LOGICAL         ONLY1,DEBUG\r\n      INTEGER         Y(25,1),BUF(50),IBUFX(10),ITAPE(10),TEMP(2),\r\n     1                NAME(2),BULKDA(2),PARAM(2),CDCNT(3),KSMB(3),\r\n     2                FUB(25)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,HEAD4*28,HEAD(3)*56\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /MACHIN/ MACH,IJHALF(2),LQRO\r\n      COMMON /XSORTX/ BUF4(4),TABLE(255)\r\n      COMMON /SYSTEM/ BUFSZ,NOUT,NOGO,IN,DUM3(10),\r\n     1                DATE(4),ECHO,DUM4,APPRC,DUM5(9),HICORE, DUM6(7),\r\n     2                NBPC,NBPW,DUM7(28),SUBS,DUM8(12),CPFLG,DUM9(8),\r\n     3                LPCH\r\n      COMMON /OUTPUT/ DUM10(96),HEAD1(32),HEAD2(32),HEAD3(32)\r\nCZZ   COMMON /ZZXST2/ Z(1)\r\n      COMMON /ZZZZZZ/ Z(196605)\r\n      COMMON /NAMES / RD,RDREW,WRT,WRTREW,REW,NOREW,EOFNRW\r\n      COMMON /STAPID/ DUM11(12),KUMF\r\n      COMMON /XECHOX/ FFFLAG,ECHOU,ECHOS,ECHOP,IXSORT,WASFF,NCARD,\r\n     1                F3LONG,DUM12\r\n      COMMON /IFPX0 / DUM13(2),IBITS(1)\r\n      COMMON /IFPX1 / NUMX1,ICARDS(2)\r\n      COMMON /TWO   / ITWO(32)\r\n      EQUIVALENCE     (Y(1,1),Z(1)),      (BUF41,BUF4(1)),\r\n     1                (IBUFX(1),BUF(26)), (ITAPE(1),BUF(38))\r\n      DATA    HEAD  , HEAD4 /\r\n     1       ' I N P U T   B U L K   D A T A   D E C K   E C H O      ',\r\n     2       '     S O R T E D   B U L K    D A T A    E C H O        ',\r\n     3       ' ---1--- +++2+++ ---3--- +++4+++ ---5--- +++6+++ ---7---',\r\n     4       ' +++8+++ ---9--- +++10+++   '/    ,I25    /25            /\r\n      DATA    NAME         ,CDCNT               ,OPTP   ,NPTP   ,BLANK /\r\n     1        4HXSOR,4HT2  ,4HCARD,4HCOUN,4HT   ,4HOPTP ,4HNPTP ,4H    /\r\n      DATA    TAPE1 ,TAPE2 ,TAPE3 ,MAXSCR,BULKDA        ,PARAM         /\r\n     1        301   ,302   ,303   ,314   ,4HBULK,4HDATA ,4HPARA ,4HM   /\r\n      DATA    KSMB  /4H+C0N,4H+CQN,4H+CON  /    ,DEBUG  /.FALSE.       /\r\nC\r\nC     DIAG 47 CAN BE RE-ACTIVATED FOR PROGRAM DEBUG CHECKING\r\nC\r\nC     CALL SSWTCH (47,J)\r\nC     IF (J .EQ. 1) DEBUG = .TRUE.\r\nC\r\nC     TURN ON XSORT FLAG AND FREE-FIELD FLAG FOR XREAD AND FFREAD\r\nC\r\n      IXSORT = 1\r\n      FFFLAG = 1234\r\nC\r\nC     CHECK UMF REQUEST\r\nC\r\n      IF (KUMF .LE.  0) GO TO 110\r\n      WRITE  (NOUT,100) UFM\r\n  100 FORMAT (A23,' - USER MASTER FILE, UMF, IS  NOT SUPPORTED BY NEW ',\r\n     1        'XSORT ROUTINE', /5X,\r\n     2        'ADD A ''DIAG 42'' CARD AND RESUBMIT YOUR NASTRAN JOB')\r\nC 100 FORMAT (A23,' - USER MASTER FILE, UMF, IS NO LONGER SUPPORTED BY',\r\nC    1        ' NASTRAN',/5X,'(NOTE - RELEASE 87 WAS THE LAST VERSION ',\r\nC    2        'THAT SUPPORTED UMF OPERATION)')\r\n      CALL MESAGE (-37,0,NAME)\r\nC\r\nC     INITIALIZE XSORT2\r\nC\r\n  110 ECHOU = 0\r\n      ECHOS = 0\r\n      ECHOP = 0\r\n      NCARD = 0\r\n      CMMT  = 0\r\n      NCONT = 0\r\n      NDELE = 0\r\n      FULL  = 0\r\n      EXH   = 0\r\n      TAPECC= 0\r\n      BSIZE = 3\r\n      RESTR = 0\r\n      CASE  = 1\r\n      KONTN = 10010000\r\n      KSMBI = KSMB(1)\r\n      IF (APPRC .LT. 0) RESTR = 1\r\n      IF (RESTR .EQ. 1) KSMBI = KHRFN3(KSMB(1),DATE(2),-2,0)\r\n      J     = COMPLF(0)\r\n      LARGE = RSHIFT(J,1   )\r\n      LES1B = RSHIFT(J,NBPC)\r\n      IF (MOD(LQRO,10) .EQ. 1) LES1B = LSHIFT(J,NBPC)\r\n      IF (ECHO .LT. 0) GO TO 120\r\n      ECHOU = ANDF(ECHO,1)\r\n      ECHOS = ANDF(ECHO,2)\r\n      ECHOP = ANDF(ECHO,4)\r\n      IF (CPFLG .NE. 0) ECHOS = 1\r\nC\r\nC     SET UP UNSORTED HEADING\r\nC\r\nC     (UNSORTED INPUT DATA IS NOW PRINTED BY FFREAD ROUTINE BECAUSE\r\nC      XREAD HAS BEEN MODIFIED TO RETURN ALL 10 DATA FIELDS LEFT-\r\nC      ADJUSTED)\r\nC\r\n  120 DO 130 J = 1,32\r\n      HEAD2(J) = BLANK\r\n      HEAD3(J) = BLANK\r\n  130 HEAD1(J) = BLANK\r\n      IMHERE = 130\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,RESTR,APPRC,SUBS\r\n  140 FORMAT (//,' *** XSORT2/IMHERE =',6I5)\r\n      READ (HEAD(1),150) (HEAD1(J),J=11,24)\r\nCWKBR 9/93 READ (HEAD(3),150) (HEAD3(J),J= 7,20)\r\n      READ (HEAD(3),150) (HEAD3(J),J= 8,21)\r\nCWKBR 9/93 READ (HEAD 4 ,150) (HEAD3(J),J=21,27)\r\n      READ (HEAD 4 ,150) (HEAD3(J),J=22,28)\r\n  150 FORMAT (14A4)\r\n      IF (ECHOU .NE. 0) CALL PAGE\r\nC\r\nC     GET AVAILABLE CORE\r\nC     IF IBM MACHINE, LIMIT AVAILABLE CORE SIZE TO 1,000,000 WORDS, SUCH\r\nC     THAT DATA WILL BE SAVED IN PRIMARY FILES ONLY, AND NO SPILL INTO\r\nC     SECONDARY FILES.\r\nC\r\n      NZZ   = KORSZ(Z)\r\n      IBUF1 = NZZ   - BUFSZ\r\n      IBUF2 = IBUF1 - BUFSZ\r\n      IBUF3 = IBUF2 - BUFSZ\r\n      NZ    = IBUF3 - 1\r\n      IF (MACH  .EQ. 2) NZ = MIN0(NZ,1000000)\r\n      IF (NZ .LT. 2500) CALL MESAGE (-8,2500,NAME)\r\n      NZ25  = NZ/25\r\nC\r\nC     OPEN TAPE1, GINO FILE 301 FOR DELETE (SLASH) CARDS\r\nC     AND  TAPE2, GINO FILE 302 FOR CONTINUATION CARDS\r\nC     SET  TAPE TO TAPE3, GINO FILE 303, FOR BULKDATA CARDS\r\nC     UP TO 30 FILES ARE ALLOWED FOR REGUALR BULKDATA CARDS\r\nC     (CURRENTLY /XFIST/ IN SEMDBD IS SET UP ONLY TO SCRATCH FILE 315.\r\nC     I.E. UP TO 13 (OR 12, IF DECK CONTAINS MANY CONTINUATION CARDS)\r\nC     FILES CAN BE USED HERE)\r\nC\r\n      IMHERE = 170\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,NZ25\r\n      CALL OPEN (*2900,TAPE1,Z(IBUF1),WRTREW)\r\n      CALL OPEN (*2910,TAPE2,Z(IBUF2),WRTREW)\r\n      TAPE = TAPE3 - 1\r\n  170 TAPE = TAPE  + 1\r\n      IF (TAPE .LE. 314) GO TO 180\r\n      IF (DEBUG) WRITE (NOUT,2955)\r\n      CALL MESAGE (-8,-NZZ,NAME)\r\n  180 CALL OPEN (*2960,TAPE,Z(IBUF3),WRTREW)\r\n      WRTTN = 0\r\nC\r\nC\r\nC     START READING INPUT CARDS VIA XREAD/FFREAD.\r\nC\r\nC\r\nC     ADDITIONAL INFORMATION FROM XREAD NOT MENTIONED PREVIOUSLY -\r\nC\r\nC      1. BUF4(1) = BUF4(2) =-1 INDICATE BULKDATA IS A COMMENT CARD\r\nC         BUF4(1) = BUF4(2) =-2 INDICATE BULKDATA IS A CONTINUATION CARD\r\nC         BUF4(1) = BUF4(2) =-3 INDICATE BULKDATA IS A DELETE CARD, WITH\r\nC                   DELETE RANGE SAVED IN BUF4(3) AND BUF4(4)\r\nC         BUF4(1) =-3 AND BUF4(4) =-4 IF TRASH WAS FOUND IN DELETE CARD.\r\nC                   THAT IS, TRASH AFTER SLASH IN BULKDATA FIELD 1\r\nC         BUF4(1) = BUF4(4) =-5 INDICATE A  BLANK   CARD WAS READ\r\nC         BUF4(1) = BUF4(4) =-9 INDICATE AN ENDDATA CARD WAS READ\r\nC      2. IF BULKDATA FIELD 2 IS AN INTEGER INPUT, THE CORRECT INTEGER\r\nC                 VALUE IS SAVED IN BUF4(3)\r\nC         IF BULKDATA FIELD 3 IS AN INTEGER INPUT, THE CORRECT INTEGER\r\nC                 VALUE IS SAVED IN BUF4(4)\r\nC      3. IF THE DATA IN FIELD 2 AND/OR 3 ARE F.P. NUMBER, THEIR INTEGER\r\nC                 VALUES (NOT EXACT) ARE SAVED IN BUF4(3) AND/OR BUF4(4)\r\nC                 THESE VALUES ARE USED ONLY FOR SORTING\r\nC      4. IF BULKDATA FIELD 2 IS NOT NUMERIC, THE FIRST 6 CHARACTERS ARE\r\nC                 CONVERTED TO INTERNAL INTEGER CODE AND SAVED IN BUF4(3\r\nC         IF THE REMAINING 2 CHARACTERS ARE NOT BLANKS, THEY ARE SAVED\r\nC                 IN BUF4(4)\r\nC      5. IF BUF4(4) IS NOT USED BY 4, IT HOLDS THE INTERNAL CODE OR THE\r\nC                 INTEGER VALUE FOR FIELD 3 OF THE ORIGINAL BULKDATA.\r\nC\r\nC     WORK SPACE -                                     NZ\r\nC      1                                               /\r\nC     ------------------------------------------------------------------\r\nC     !                 OPEN CORE, Z                    !    !    !    !\r\nC     ------------------------------------------------------------------\r\nC     !<----------INPUT CARDS, 25 WORDS EACH----------->!<----GINO---->!\r\nC                (20-WORD CARD IMAGE, 4 CONTRL               BUFFERS\r\nC               CONTROL WORDS, 1 INDEX POINTER)\r\nC\r\nC\r\nC     SUMMARY OF COUNTERS -\r\nC\r\nC     NCONT = TOTAL CONTINUATION CARDS COUNT, ON INPUT BULK DATA DECK\r\nC             AND ON RESTART OPTP FILE\r\nC     NDELE = TOTAL COUNT ON RESTART DELETE CARDS\r\nC     CMMT  = TOTAL COUNT ON NON-ESSENTIAL CARDS (COMMENTS, BLANKS, AND\r\nC             RESTART DELETE CARDS) OF INPUT BULK DATA DECK\r\nC     KONTN = SYMBOL COUNTER FOR AUTO-CONTINUAION GENERATION\r\nC     KOUNT = DELETE RANGE COUNTER, USED ONLY IN 800-820 AREA\r\nC     NCARD = TOTAL INPUT BULK DATA CARDS COUNT, INCLUDING NON-ESSENTIAL\r\nC             CARDS; CONTINUATION CARDS AND CARDS ON OPTP ARE EXCLUDED\r\nC     COUNT = CURRENT CORE COUNT ON INPUT CARDS FROM BULK DATA DECK, ALL\r\nC             NON-ESSENTIAL AND CONTINUATION CARDS ARE EXCLUDED\r\nC     NBULK = NO. OF ACTIVE BULK DATA INPUT CARDS\r\nC           = NCARD-CMMT = SUM OF ALL COUNT's\r\nC     NOTE  - NO CARD COUNT ON THE OPTP FILE BEFORE ASSEMBLING NPTP FILE\r\nC\r\n      COUNT = 0\r\n  200 IF (COUNT .LT. NZ25) GO TO (212,214,207,210,210,210), CASE\r\nC                                   1,  2,  3,  4,  5,  6 = CASE\r\n      CASE = 1\r\n      IF (WASFF .LE. 0) GO TO 340\r\nC\r\nC     (200 THRU 215) SPECIAL HANDLING OF CONTINUATION CARD(S) WITH FIRST\r\nC     FIELD BLANK DURING FREE-FIELD INPUT.   REGULAR CONTINUATION CARD\r\nC     (FIRST FIELD NOT BLANK) OR FIXED-FIELD INPUT CARDS (BOTH PARENT\r\nC     AND CHILD) ARE NOT CONSIDERED HERE.\r\nC\r\nC        EXAMPLE -     CBAR,10,20, 1 2 3  9)2\r\nC                      ,,, .5 .5 .5\r\nC\r\nC     WE NEED TO CREATE A UNIQUE CONTINUATION SYMBOL FOR THE 1ST FIELD,\r\nC     AND ADD THE SAME SYMBOL TO THE 10TH FIELD OF THE PREVIOUS CARD.\r\nC     SET BUF41 FLAG TO -2.\r\nC                                                                WAITING\r\nC     AT THIS POINT,                                             CARD IN\r\nC        CASE 1, NO CARD IS WAITING FOR PROCESSING               -------\r\nC        CASE 2, CORE WAS FULL AND WAS EMPTIED OUT. A NON-           BUF\r\nC                CONTINUATION CARD WAS READ AND AWAITS PROCESSING\r\nC        CASE 3, CORE WAS FULL AND EMPTIED. A CONTINUATION CARD      BUF\r\nC                WAS READ AND AWAITS PROCESSING.\r\nC        CASE 4, CORE NOT FULL, A CONT.CARD WAS READ. THE NEXT CARD  FUB\r\nC                IS NOT A CONT.CARD. THE CONT.CARD WAS PROCESSED,\r\nC                AND THE NON-CONT. CARD  AWAITS PROCESSING.\r\nC        CASE 5, CORE NOT FULL, A CONT.CARD WAS READ AND THE NEXT    FUB\r\nC                CARD IS ALSO A CONT.CARD. THE FIRST CONT.CARD\r\nC                WAS PROCESSED, AND THE SECOND CONT.CARD AWAITS\r\nC                PROCESSING.\r\nC        CASE 6, CONTINUE FROM PROCESSING CASES=4,5                  FUB\r\nC\r\nC ... CASES 2 AND 3 -\r\nC     CORE IS FULL, READ ONE MORE CARD AND SEE THE NEW CARD IS A SPECIAL\r\nC     CONTINUATION CARD OR NOT\r\nC     IF IT IS, UPDATE THE 10TH FIELD OF THE PARENT CARD BEFORE\r\nC     SENDING THE ENTIRE CORE FOR SORTING\r\nC\r\n      IMHERE = 202\r\n  202 CALL XREAD (*208,BUF)\r\n      IF (BUF41.EQ.-1 .OR. BUF41.EQ.-5) GO TO 202\r\n      CASE = 2\r\n      IF (BUF(1).NE.BLANK .OR. BUF(2).NE.BLANK) IF (BUF41+2) 340,203,340\r\n  203 BUF41X = -2\r\n      CASE = 3\r\n      GO TO 205\r\nC\r\nC ... CASES 4 AND 5 -\r\nC     CORE IS NOT FULL, A SPECIAL CONTINUATION CARD WAS JUST READ\r\nC\r\n  204 IF (WASFF .LE. 0) GO TO 214\r\n      CASE  = 4\r\n      BUF41 = -2\r\n  205 KONTN = KONTN + 1\r\n      IF (KONTN .EQ. 10020000) KSMBI = KSMB(2)\r\n      IF (KONTN .EQ. 10030000) KSMBI = KSMB(3)\r\n      IMHERE = 205\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,KONTN,COUNT,NZ25,CASE\r\n      CALL INT2A8 (*3140,KONTN,BUF(1))\r\n      BUF(1) = KSMBI\r\n      IF (COUNT .LE. 0) GO TO 208\r\n      Y(19,COUNT) = BUF(1)\r\n      Y(20,COUNT) = BUF(2)\r\n      IF (CASE-3) 340,340,207\r\nC\r\n  206 CASE = 6\r\n      IF (BUF41 .EQ. -9) GO TO 350\r\nC\r\n  207 CALL XREAD (*207,FUB)\r\n      IF (BUF41.EQ.-1 .OR. BUF41.EQ.-5) GO TO 207\r\n      FUB41 = BUF41\r\n      BUF41 = -2\r\n      IF (FUB(1).NE.BLANK .OR. FUB(2).NE.BLANK) GO TO 215\r\n      FUB41 = -2\r\n      CASE  = 5\r\n      KONTN = KONTN + 1\r\n      IF (KONTN .EQ. 10020000) KSMBI = KSMB(2)\r\n      IF (KONTN .EQ. 10030000) KSMBI = KSMB(3)\r\n      IMHERE  = 207\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,KONTN,COUNT,NZ25,CASE\r\n      CALL INT2A8 (*3140,KONTN,FUB(1))\r\n      FUB(1)  = KSMBI\r\n      BUF(19) = KSMBI\r\n      BUF(20) = FUB(2)\r\n      GO TO 217\r\nC\r\n  208 NOGO  = 1\r\n      WRITE  (NOUT,209) SFM,IMHERE\r\n  209 FORMAT (A25,'.  IMHERE =',I6)\r\n      GO TO 214\r\nC\r\n  210 DO 211 I = 1,25\r\n  211 BUF(I) = FUB(I)\r\n      BUF41  = FUB41\r\n      IF (CASE-5) 214,206,214\r\n  212 CALL XREAD (*3120,BUF)\r\n      IF (BUF(1).EQ.BLANK .AND. BUF(2).EQ.BLANK) GO TO 204\r\n  214 CASE = 1\r\nC\r\nC     IGNORE COMMENT CARD (-1) OR BLANK CARD (-5)\r\nC\r\n  215 IF (BUF41.NE.-1 .AND. BUF41.NE.-5) GO TO 216\r\n      CMMT = CMMT + 1\r\n      GO TO 212\r\nC\r\nC     TEST FOR ENDDATA CARD (-9)\r\nC\r\n  216 IF (BUF41 .EQ. -9) GO TO 350\r\nC\r\nC     IF THIS IS A CONTINUATION CARD (-2), ADD ONE CONTROL WORD ABOUT\r\nC     RESTART, AND WRITE IHE CARD OUT TO TAPE2\r\nC     (THE CONTROL WORD WILL FLAG THE PARENT BIT TO BE SET FOR RESTART\r\nC     WHEN THIS CONTINUATION CARD IS MERGED INTO NPTP)\r\nC\r\n      IF (BUF41 .NE. -2) GO TO 230\r\n  217 BUF(21) = RESTR\r\n      CALL WRITE (TAPE2,BUF(1),21,0)\r\n      IF (DEBUG) WRITE (NOUT,220) BUF(1),BUF(2),BUF(21)\r\n  220 FORMAT (5X,'A CONTINUATION CARD - ',2A4,',  CONT.FLAG=',I9)\r\n      NCONT = NCONT + 1\r\n      GO TO 200\r\nC\r\nC     IF THIS IS A DELETE CARD (-3), REJECT IT IF EXTRANEOUS DATA IN\r\nC     FIELD 1 OTHERWISE WRITE THE RANGE OF DELETION ON TAPE1\r\nC\r\n  230 IF (BUF41 .NE. -3) GO TO 300\r\n      CMMT = CMMT + 1\r\n      IF (BUF4(4) .NE. -4) GO TO 250\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,240) UFM\r\n  240 FORMAT (A23,' 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA ',\r\n     1       'DELETE CARD.')\r\n      NOGO = -2\r\nC\r\n  250 IF (BUF4(3) .EQ. -3) GO TO 270\r\n      IF (BUF4(4) .EQ. -3) BUF4(4) = BUF4(3)\r\n      BUF4(3) = BUF4(3) - 2000000000\r\n      BUF4(4) = BUF4(4) - 2000000000\r\n      CALL WRITE (TAPE1,BUF4(3),2,0)\r\n      IF (DEBUG) WRITE (NOUT,260) BUF4(3),BUF4(4)\r\n  260 FORMAT (5X,'A DELETE CARD -',I11,1H,,I11)\r\n      NDELE  = NDELE + 1\r\n      GO TO 200\r\n  270 WRITE  (NOUT,280) UFM\r\n  280 FORMAT (A23,' 221, NO DATA IN FIELD 2 OF BULK DATA DELETE CARD')\r\n      NOGO = -1\r\n      GO TO 200\r\nC\r\nC     REGULAR BULKDATA CARDS.\r\nC     SAVE 20 WORDS OF BUF, 4 WORDS FROM BUF4 AND CORE COUNTER IN OPEN\r\nC     CORE SPACE Y (25 WORDS TOTAL)\r\nC     SET RESTART BITS IF THIS IS A RESTART RUN\r\nC     RETURN TO READ NEXT BULKDATA CARD\r\nC\r\n  300 COUNT = COUNT + 1\r\n      WRTTN = 1\r\n      DO 310 I = 1,20\r\n  310 Y(I,COUNT) = BUF(I)\r\n      DO 320 I = 1,4\r\n  320 Y(I+20,COUNT) = BUF4(I)\r\n      Y(25  ,COUNT) = COUNT\r\n      IF (DEBUG) WRITE (NOUT,330) COUNT,Y(1,COUNT),Y(2,COUNT)\r\n  330 FORMAT (5X,'SAVED IN CORE   COUNT=',I5,3X,2A4)\r\n      IF (RESTR .EQ. 0) GO TO 200\r\n      ASSIGN 200 TO CRDFLG\r\n      FROM = 330\r\n      GO TO 2800\r\nC\r\nC     OPEN CORE BUFFER FULL, ENDDATA CARD HAS NOT BEEN ENCOUNTERED\r\nC\r\n  340 FULL = 1\r\n      GO TO 400\r\nC\r\nC     ENDDATA CARD FOUND, SET FLAG\r\nC\r\n  350 FULL  = -1\r\n      IMHERE= 350\r\n      NCARD = NCARD - 1\r\n      NBULK = NCARD - CMMT\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,NCARD,NCONT,NDELE\r\n      CALL PAGE2 (2)\r\n      IF (ECHOU .NE. 1) GO TO 370\r\n      WRITE  (NOUT,360) NCARD\r\n  360 FORMAT (//24X,'TOTAL COUNT=',I7)\r\n      GO TO 400\r\n  370 WRITE  (NOUT,380) NCARD,CMMT\r\n  380 FORMAT (//24X,'(NO. OF UNSORTED BULK DATA CARDS READ =',I6,\r\n     1       ', INCLUDING',I4,' COMMENT CARDS)')\r\nC\r\nC     SORT CARD IMAGES SAVED IN THE OPEN CORE SPACE BY MODIFIED SHELL\r\nC     METHOD.\r\nC     SORT BY 21ST, 22ND, 23RD, AND 24TH CONTROL WORDS ONLY\r\nC     ONLY THE LAST 5 WORDS (21ST THRU 25TH) ARE MOVED INTO SORTED\r\nC     ORDER, THE FIRST 20 WORDS REMAIN STATIONARY.\r\nC\r\n  400 IF (WRTTN .EQ.    0) GO TO 580\r\n      IF (COUNT .GT. NZ25) CALL MESAGE (-37,0,NAME)\r\n      M  = COUNT\r\n      IMHERE = 400\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT\r\n  410 M  = M/2\r\n      IF (M .EQ. 0) GO TO 500\r\n      J  = 1\r\n      K  = COUNT - M\r\n  420 I  = J\r\n  430 N  = I + M\r\n      IF (Y(21,I) - Y(21,N)) 490,440,470\r\n  440 IF (Y(22,I) - Y(22,N)) 490,450,470\r\n  450 IF (Y(23,I) - Y(23,N)) 490,460,470\r\n  460 IF (Y(24,I) - Y(24,N)) 490,490,470\r\n  470 DO 480 L = 21,25\r\n      TEMPX  = Y(L,I)\r\n      Y(L,I) = Y(L,N)\r\n  480 Y(L,N) = TEMPX\r\n      I = I - M\r\n      IF (I .GE. 1) GO TO 430\r\n  490 J = J + 1\r\n      IF (J-K) 420,420,410\r\nC\r\nC     END OF CORE SORT.\r\nC     WRITE THE SORTED BULKDATA CARDS TO FILE, 24 WORDS EACH RECORD\r\nC     IN ORDER GIVEN BY THE 25TH WORD.\r\nC     IF ONLY ONE SCRATCH FILE (TAPE3) IS USED IN RECEIVING BULKDATA,\r\nC     CHECK ANY DUPLICATE CARD.\r\nC\r\n  500 IMHERE = 500\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT,MAXC\r\n      ONLY1 = .FALSE.\r\n      IF (FULL.EQ.-1 .AND. TAPE.EQ.TAPE3) ONLY1=.TRUE.\r\n      BASE = 25\r\n      DO 570 I = 1,COUNT\r\n      IF (ONLY1) BASE = MOD(I,2)*25\r\n      J = Y(25,I)\r\n      DO 510 K = 1,20\r\n  510 BUF(K+BASE) = Y(K,J)\r\n      DO 520 K = 21,24\r\n  520 BUF(K+BASE) = Y(K,I)\r\n      IF (.NOT.ONLY1) GO TO 550\r\n      IF (I  .EQ.  1) GO TO 540\r\n      DO 530 K = 1,20\r\n      IF (BUF(K+BASE) .NE. BUF(K+OBASE)) GO TO 540\r\n  530 CONTINUE\r\n      BUF(21+BASE) = -6\r\n      BUF(22+BASE) = -6\r\n  540 OBASE = BASE\r\n  550 CALL WRITE (TAPE,BUF(BASE+1),24,0)\r\n      IF (DEBUG) WRITE (NOUT,560) TAPE,(BUF(K+BASE),K=1,8)\r\n     1                                ,(BUF(K+BASE),K=21,24)\r\n  560 FORMAT (5X,'WRITE TO ',I3,4(2X,2A4), /9X,'INT.CODE=',4I12)\r\n  570 CONTINUE\r\n      CALL WRITE (TAPE,0,0,1)\r\n  580 CALL CLOSE (TAPE,REW)\r\n      IMHERE = 580\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE\r\nC\r\nC     REPEAT READING BULKDATA CARDS INTO CORE IF NECESSARY\r\nC\r\nC     IF NO DATA WRITTEN TO CURRENT FILE (e.g. UN-MODIFIED RESTART),\r\nC     REDUCE TAPE COUNT BY ONE\r\nC\r\n      IF (FULL .NE. -1) GO TO 170\r\n      IF (WRTTN .EQ. 0) TAPE = TAPE - 1\r\nC\r\nC     CLOSE DELETE CARD FILE, TAPE 1.\r\nC     CONTINUATION CARD FILE, TAPE 2, IS STILL IN USE\r\nC\r\n      CALL WRITE (TAPE1,0,0,1)\r\n      CALL CLOSE (TAPE1,REW  )\r\nC\r\nC     TEST FOR COLD-START WITH NO BULKDATA\r\nC\r\nC     APPRC = APPROACH FLAG (1 DMAP, 2 DISP, 3 HEAT, 4 AERO)\r\nC     SUBS  = SUBSTRUCTURING FLAG\r\nC\r\n      IMHERE = 585\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,COUNT,APPRC,WRTTN,RESTR,SUBS\r\n      IF (WRTTN.EQ.1 .OR. RESTR.EQ.1 .OR. SUBS.NE.0) GO TO 600\r\n      CALL CLOSE (TAPE2,REW)\r\n      ECHOS = 1\r\n      IF (APPRC .EQ. 1) GO TO 1600\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,590) UFM\r\n  590 FORMAT (A23,' 204, COLD START NO BULK DATA.')\r\n      NOGO = -2\r\n      GO TO 3200\r\nC\r\nC     IF MODIFIED RESTART - TURN ON SORT ECHO FLAG IF ECHO IS NOT 'NONO'\r\nC     IF NOT A RESTART JOB - JUMP TO 1000\r\nC\r\n  600 IF (NBULK.GT.1 .AND. RESTR.EQ.1) ECHOS = 1\r\nC     IF (APPRC.EQ.1 .OR.  SUBS .NE.0) ECHOS = 1\r\n      IF (ECHO  .EQ. -2) ECHOS = 0\r\n      IF (RESTR .EQ.  0) GO TO 1000\r\nC\r\nC     THIS IS A RESTART JOB, PROCESS OPTP FILE -\r\nC\r\nC     OPEN OPTP AND LOCATE WHERE BULK DATA BEGINS\r\nC\r\n      IMHERE = 610\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE\r\n      CALL OPEN (*3080,OPTP,Z(IBUF3),RDREW)\r\n  610 CALL SKPFIL (OPTP,+1)\r\n      CALL READ (*3040,*3040,OPTP,BUF(1),2,1,J)\r\n      IF (BUF(1).NE.BULKDA(1) .OR. BUF(2).NE.BULKDA(2)) GO TO 610\r\n      IF (NBULK.GT.0 .OR. NDELE.NE. 0) GO TO 640\r\nC\r\nC     UN-MODIFIED RESTART, WITH NO NEW BULKDATA CARD AND NO DELETE -\r\nC     SETUP SORTED HEADER FOR OLD BULK DATA CARDS IF ECHO FLAG IS ON,\r\nC     COPY THE REST OF OPTP DIRECTLY TO NPTP, AND JOB DONE\r\nC\r\nC\r\n      IMHERE = 620\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE\r\n      CALL OPEN  (*3100,NPTP,Z(IBUF1),WRT)\r\n      CALL WRITE (NPTP,BULKDA,2,1)\r\n      NCARD = 0\r\n      IF (ECHOS .EQ. 0) GO TO 620\r\n      READ (HEAD(2),150) (HEAD1(J),J=11,24)\r\nCWKBR 9/93 HEAD2(4) = CDCNT(1)\r\n      HEAD2(5) = CDCNT(1)\r\nCWKBR 9/93 HEAD3(4) = CDCNT(2)\r\n      HEAD3(5) = CDCNT(2)\r\nCWKBR 9/93 HEAD3(5) = CDCNT(3)\r\n      HEAD3(6) = CDCNT(3)\r\n      CALL PAGE\r\n  620 CALL READ  (*630,*630,OPTP,BUF(1),20,1,J)\r\n      CALL WRITE (NPTP,BUF(1),20,1)\r\n      NCARD = NCARD + 1\r\n      IF (ECHOP .NE. 0) WRITE (LPCH,1750) (BUF(J),J=1,20)\r\n      IF (ECHOS .EQ. 0) GO TO 620\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,1730) NCARD,(BUF(J),J=1,20)\r\n      GO TO 620\r\n  630 CALL EOF   (NPTP)\r\n      CALL CLOSE (NPTP,  REW)\r\n      CALL CLOSE (OPTP,NOREW)\r\n      CALL CLOSE (TAPE2, REW)\r\n      IF (ECHOP .NE. 0) WRITE (LPCH,2320)\r\n      CALL PAGE2 (-1)\r\n      IF (ECHOS .NE. 0) WRITE (NOUT,2300)\r\n      IF (ECHOS .EQ. 0) WRITE (NOUT, 635) UIM,NCARD\r\n  635 FORMAT (A29,1H,,I8,' SORTED BULKD DATA CARDS PROCESSED FROM OPTP',\r\n     1        ' FILE TO NPTP, UN-MODIFIED')\r\n      GO TO 2700\r\nC\r\nC     MODIFIED RESTART WITH NEW BULKDATA CARDS, WITH OR WITHOUT DELETE\r\nC\r\n  640 IMHERE = 640\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE\r\n      IC   = 1\r\n      LEFT = NZ\r\n      IF (NDELE .EQ. 0) GO TO 710\r\n      IF (RESTR .EQ. 1) GO TO 660\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,650) UWM\r\n  650 FORMAT (A25,' 205, COLD START, DELETE CARDS IGNORED.')\r\n      GO TO 710\r\nC\r\nC     RESTART WITH DELETE CARD(S) -\r\nC     MOVE THE DELETE CARDS  INTO CORE AND FREE TAPE1.\r\nC     SORT THE DELETE CARDS, CHECK FOR AND ELIMINATE OVERLAPS AND\r\nC     REDUNDANCIES\r\nC\r\n  660 CALL OPEN (*2900,TAPE1,Z(IBUF1),RDREW)\r\n      CALL READ (*2900,*670,TAPE1,Z(1),LEFT,1,LEN)\r\n      CALL MESAGE (-8,TAPE1,NAME)\r\n  670 CALL CLOSE  (TAPE1,REW    )\r\nC\r\n      CALL SORT (0,0,2,1,Z(1),LEN)\r\n      Z(LEN+1) = LARGE\r\n      DO 680 I = 2,LEN,2\r\n      Z(I) = Z(I)+1\r\n      IF (Z(I) .LT. Z(I-1)) Z(I) = Z(I-1)\r\n      IF (Z(I) .LT. Z(I+1)) GO TO 680\r\n      Z(I  ) = -1\r\n      Z(I+1) = -1\r\n  680 CONTINUE\r\n      J = 0\r\n      DO 690 I = 1,LEN\r\n      IF (Z(I) .LT. 0) GO TO 690\r\n      J = J + 1\r\n      Z(J) = Z(I)\r\n  690 CONTINUE\r\n      IF (J .GT. 0) LEN = J\r\n      LEFT = NZ - LEN\r\n      IC   = LEN + 1\r\n      Z(IC)  = LARGE\r\n      IMHERE = 700\r\n      IF (DEBUG) WRITE (NOUT,700) IMHERE,(Z(I),I=1,LEN)\r\n  700 FORMAT (/,' *** IMHERE =',I5,(/,3X,10(I7,I5)))\r\n      IF (MOD(LEN,2) .NE. 0) GO TO 3140\r\n      GO TO 800\r\nC\r\nC     IF MODIFIED RESTART WITH NO DELETE, SET DELETE RANGE BEGINNING AT\r\nC     INFINITY\r\nC\r\n  710 Z(1)   = LARGE\r\n      IMHERE = 710\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE\r\nC\r\nC     WE ARE STILL IN PROCESSING RESTART - COPY OPTP TO TAPE1, SKIP\r\nC     APPROPRIATE RECORDS AS SPECIFIED BY THE DELETE CARDS NOW IN\r\nC     OPEN CORE, Z(1) THRU Z(LEN)\r\nC\r\nC     SEND A CARD FROM OPTP TO YREAD (AN ENTRY POINT IN XREAD) FOR\r\nC     RE-PROCESSING. UPON RETURN FROM YREAD, BUF4 ARRAY HOLDS THE\r\nC     INTERNAL INTEGER CODE GOOD FOR SORTING AND OTHER FUNCTIONS.\r\nC\r\nC     IF IT IS A CONTINUATION CARD, COPY THE FULL CARD (20 WORDS)\r\nC     AND ONE CONTROL WORD TO TAPE2.\r\nC     OTHERWISE COPY 24 WORDS (20-BUF AND 4-BUF4) TO TAPE1.\r\nC\r\nC     IF A CONTINUATION CARD IS DELETED, THE RESTART BITS OF THE\r\nC     PARENT CARD SHOULD BE FLAGGED\r\nC\r\n  800 IMHERE  = 800\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,RESTR,TAPE1\r\n      CALL OPEN (*2900,TAPE1,Z(IBUF1),WRTREW)\r\n      KOUNT   = 0\r\n      POINT   = 1\r\n      ONOFF   = 1\r\n      ZPOINT  = Z(POINT)\r\n      BUF(19) = 0\r\n  810 TEMP(1) = BUF(19)\r\n      TEMP(2) = BUF(20)\r\n      CALL READ (*900,*900,OPTP,BUF(1),20,1,J)\r\n      KOUNT   = KOUNT + 1\r\n      IF (KOUNT .LT. ZPOINT) GO TO 820\r\n      POINT   = POINT + 1\r\n      ZPOINT  = Z(POINT)\r\n      ONOFF   = ONOFF*(-1)\r\n  820 CALL YREAD (*3060,BUF)\r\n      IMHERE  = 830\r\n      IF (DEBUG .AND. ONOFF.EQ.-1) WRITE (NOUT,830) IMHERE,KOUNT,\r\n     1                             (BUF(J),J=1,6)\r\n  830 FORMAT (' IMHERE=',I5,'.  DELETED FROM OPTP ==>',I5,2H- ,6A4)\r\n      IF (BUF41 .EQ. -2) GO TO 870\r\n      IF (ONOFF .EQ. +1) GO TO 840\r\nC\r\nC     ANY DELETED CARD, EXCEPT CONTINUATION CARD, MUST RESET\r\nC     RESTART CARD FLAG\r\nC\r\n      ASSIGN 810 TO CRDFLG\r\n      FROM = 830\r\n      GO TO 2800\r\nC\r\nC     REGULAR BULKDATA CARD FROM OPTP -\r\nC     SAVE FIRST FIELD IN KARD1/2 JUST IN CASE THIS IS A PARENT OF\r\nC     A CONTINUATION CARD WHICH FALLS INSIDE A DELETE RANGE.\r\nC\r\nC     NOTE- CARDS FROM OPTP ARE IN SORTED ORDER, AND NO CARD COUNT HERE\r\nC\r\n  840 DO 850 J = 1,4\r\n  850 BUF(J+20) = BUF4(J)\r\n      CALL WRITE (TAPE1,BUF(1),24,0)\r\n      IF (DEBUG) WRITE (NOUT,860) (BUF(J),J=1,6),BUF(21)\r\n  860 FORMAT (' IMHERE=860, OPTP==>TAPE1  ',6A4,'==>',I9)\r\n      KARD1 = BUF(1)\r\n      KARD2 = BUF(2)\r\n      IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 810\r\n      KARD1 = BUF(3)\r\n      KARD2 = BUF(4)\r\n      GO TO 810\r\nC\r\nC     CONTINUATION CARD FROM OPTP -\r\nC\r\nC     IF BOTH PARENT AND THIS CONTINUATION CARD IN NOT IN DELETE RANGE\r\nC     SEND THIS CONTINUATION CARD TO TAPE2 WITH RESTART CONTROL WORD\r\nC     SET TO ZERO.\r\nC     IF PARENT IS NOT DELETED, BUT THIS CONTINUATION CARD IS, WE NEED\r\nC     TO FLAG PARENT\r\nC     IF PARENT IS ALSO IN DELETE RANGE, SKIP THIS CONTINUATION CARD.\r\nC\r\n  870 IF (ONOFF .EQ. +1) GO TO 890\r\n      IF (KARD1 .EQ. -1) GO TO 810\r\n      IF (BUF(1).EQ.TEMP(1) .AND. BUF(2).EQ. TEMP(2)) GO TO 810\r\n      FROM  = 860\r\n      ASSIGN 880 TO CRDFLG\r\n      GO TO 2810\r\n  880 KARD1 = -1\r\n      GO TO 810\r\n  890 BUF(21) = 0\r\n      CALL WRITE (TAPE2,BUF(1),21,0)\r\n      NCONT = NCONT + 1\r\n      GO TO 810\r\nC\r\nC     OPTP IS SUCCESSFULLY MOVED TO TAPT1 AND TAPE2. CLOSE FILES\r\nC\r\n  900 CALL CLOSE (OPTP ,NOREW)\r\n      CALL WRITE (TAPE1,0,0,1)\r\n      CALL WRITE (TAPE2,0,0,1)\r\n      CALL CLOSE (TAPE1,REW  )\r\nC\r\nC     PREPARE FOR FILE MERGE -\r\nC\r\nC     SELECT METHOD USED TO BRING CONTINUATION CARDS INTO CORE AND\r\nC     COMPUTE NUMBER OF BUFFERS NEEDED FOR FILE PRE-MERGE.\r\nC\r\nC     METHOD 1 - NO FILE PRE-MERGE IF THERE IS NO CONINUATION CARDS, OR\r\nC                ENOUGH SPACE IN CORE TO HOLD ALL CONTINUATION CARDS,\r\nC                BUFFERS AND SCRATCH ARRAYS FOR ALL SCRATCH DATA FILES\r\nC     METHOD 2 - ALL CONTINUATION CARDS, IN 3-WORD TABLE AND 20-WORD\r\nC                CARD IMAGES, AND ALL GINO BUFFERS, OR REDUCED GINO\r\nC                BUFFERS, FIT INTO CORE\r\nC     METHOD 3 - CONTINUATION 3-WORD TABLE AND ALL GINO BUFFERS, OR\r\nC                REDUCED GINO BUFFERS, FIT INTO CORE\r\nC     METHOD 4 - FATAL, INSUFFICIENT CORE\r\nC\r\n 1000 CALL CLOSE (TAPE2,REW)\r\n      METHOD = 1\r\n      N23    = 1\r\n      NFILES = TAPE - TAPE3 + 1\r\n      REDUCE = 1\r\n      IF (NFILES .GE. 10) REDUCE = 2\r\n      IF (NFILES .GT. 17) REDUCE = 3\r\n      J      = 0\r\n      IF (RESTR .EQ. 1) J = 1\r\n      MAXC   = (NZZ-(BUFSZ+25)*(NFILES+J))/21\r\n      IF (NCONT .LE. MAXC) REDUCE = 1\r\n      NFILER = (NFILES+REDUCE-1)/REDUCE + J\r\n      IMHERE = 1010\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,REDUCE,NFILES,NFILER\r\n      IF (NCONT) 1020,1100,1020\r\n 1010 SIZE   = (NFILER+1)*BUFSZ + NFILER*25\r\n      SIZE   = SIZE + BUFSZ\r\n      LEFT   = NZZ - SIZE\r\n      MAXC   = LEFT/N23\r\n      IMHERE = 1020\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,NFILES,NFILER,N23,NCONT\r\n      IF (NCONT .LE. MAXC) GO TO 1100\r\n      GO TO (1020,1030,1040), METHOD\r\n 1020 METHOD = 2\r\n      N23    = 23\r\n      GO TO 1010\r\n 1030 METHOD = 3\r\n      N23    = 3\r\n      GO TO 1010\r\nC\r\nC     INSUFFICIENT CORE, COMPUTE HOW MUCH MORE NEEDED\r\nC\r\n 1040 J = NCONT*N23 - LEFT\r\n      CALL MESAGE (-8,J,NAME)\r\nC\r\nC     ALLOCATE BUFFER SPACE AND REDEFINE AVAILABLE CORE SPACE, NZ\r\nC     ALLOCATE SPACES AT THE BEGINNING OF CORE SPACE FOR BULKDATA\r\nC     TO BE BROUGHT BACK FROM VARIOUS FILES.\r\nC\r\nC     IC     = POINTER, WHERE CONTINUATION TABLE BEGINS\r\nC     IB     = POINTER, WHERE CONTINUATION  DATA BEGINS\r\nC     NFILES = TOTAL NUMBER OF FILES USED BEFORE FILE REDUCTION,\r\nC              RESTART TAPE1 NOT INCLUDED\r\nC     NFILER = REDUCED NUMBER OF FILES THAT HOLD BULKDATA INPUT CARDS,\r\nC              RESTART TAPE1 INCLUDED\r\nC     TAPECC = AN ADDITIONAL FILE USED ONLY IN METHOD 3 (NOT INCLUDED\r\nC              IN NFILES AND NFILER)\r\nC\r\n 1100 IMHERE = 1100\r\n      IF (DEBUG .OR. NFILES.GT.10 .OR. NCONT.GT.1000)\r\n     1    WRITE (NOUT,1110) UIM,METHOD,NFILER,HICORE,NCONT\r\n 1110 FORMAT (A29,' FROM XSORT -  METHOD',I3,' WAS SELECTED TO PROCESS',\r\n     1        ' CONTINUATION CARDS', /5X,'NO. OF FILES USED =',I4,4X,\r\n     2        'HICORE =',I7,' WORDS', 4X,'NO. OF CONT. CARDS =',I7)\r\n      NZ   = IBUF1\r\n      DO 1120 I = 1,NFILER\r\n      NZ   = NZ - BUFSZ\r\n 1120 IBUFX(I) = NZ\r\n      IF (NCONT .GT. 0) NZ = NZ - BUFSZ\r\n      IBUFC= NZ\r\n      NZ   = NZ - 1\r\n      IC   = NFILER*25 + 1\r\n      IB   = IC + NCONT*3\r\n      NZIB = NZ - IB + 1\r\n      LEFT = NZ - IC + 1\r\nC\r\nC     NEED A STORAGE SPACE FOR AT LEASE 100 CONTINUATION CARDS\r\nC\r\n      IF (NZIB .LT. 2100) CALL MESAGE (-8,-2100+NZIB,NAME)\r\nC\r\nC     METHOD 1, NO CONTINUATION CARD IN BULKDATA, SKIP TO 1280\r\nC\r\n      IF (METHOD .EQ. 1) GO TO 1280\r\nC\r\nC     WORKING SPACE FOR THE CONTINUATION TABLE AND CONTINUATION CARD\r\nC     IMAGES -\r\nC\r\nC                  IC                 IB                   NZ\r\nC                  /                  /                    /\r\nC     ------------------------------------------------------------------\r\nC     ! ! ! !..Y..!                  !                     !  !  !  !  !\r\nC     ------------------------------------------------------------------\r\nC     ! SPACE FOR !<--CONTINUATION-->!<--AVAILABLE SPACE-->!<--GINO--->!\r\nC       DATA FROM     INDEX TABLE        FOR CONTINUATION     BUFFERS\r\nC       FILES 303,   (3 WORDS EACH)      CARD IMAGES\r\nC       304,...                          (21 WORDS EACH)\r\nC       FOR FILE      (PART 1 AERA)\r\nC       MERGE                            (PART 2 AREA)\r\nC\r\n      IMHERE = 1125\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,N23\r\n      CALL OPEN (*2910,TAPE2,Z(IBUF2),RDREW)\r\n      IF (METHOD .EQ. 3) GO TO 1200\r\nC\r\nC     METHOD 2 -\r\nC\r\nC     OPEN CORE IS DIVIDED INTO 2 PARTS - A 3-WORD CONTINUATION TABLE\r\nC     IN PART 1, AND 21-WORD CONTINUATION CARD IMAGES IN PART 2.\r\nC\r\nC     3-WORD TABLE IN PART 1 HOLDS THE 2-BCD CONTIUATION SYMBOLS, WITH\r\nC     THE FIRST BYTE (A + OR *) ZERO OUT, AND AN INDEX POINTER. THIS\r\nC     TABLE WILL BE SORTED, AND WILL BE USED BY BISLC2 TO LOCATE THE\r\nC     CARD IMAGES SAVED EITHER IN PART 2, OR IN TAPECC FILE.\r\nC\r\n      IMHERE = 1130\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,NCONT,IC,IB\r\n      CALL READ (*3000,*1130,TAPE2,Z(IB),NZIB,1,LEN)\r\n      CALL MESAGE (-8,0,NAME)\r\n 1130 K = LEN + IB - 1\r\n      I = IC\r\n      DO 1140 J = IB,K,21\r\n      Z(I  ) = ANDF(Z(J),LES1B)\r\n      Z(I+1) = Z(J+1)\r\n      Z(I+2) = J\r\n 1140 I = I + 3\r\n      GO TO 1270\r\nC\r\nC     METHOD 3 -\r\nC\r\nC     COMPUTE NCCI (NO. OF CONTINUATION CARD IMAGES) THAT PART 2 AREA\r\nC     (FROM Z(IB) THRU Z(NZ)) CAN HOLD AT A GIVEN TIME.\r\nC     CREATE IN CORE A CONTINUATION TABLE WITH INDEX POINTERS (SAME\r\nC     AS METHOD 2) IN PART 1 AREA.\r\nC     FILL THE REMAINING PART 2 AREA WITH NCCI CARDS, AND WRITE THIS\r\nC     BLOCK OF CARDS OUT TO A NEW SCRATCH FILE, TAPECC. REPEAT THIS\r\nC     PROCESS FOR THE REST OF THE CONTINUATION CARDS.\r\nC     THE INDEX POINTERS IN PART 1 (METHOD 3 ONLY) ALSO INCLUDE THE\r\nC     DATA BLOCK NUMBER INFORMATION\r\nC\r\n 1200 NCCI = NZIB/21\r\n      IF (NCCI .GE. 10000000) NCCI = 10000000 - 1\r\n      NZIB   = NCCI*21\r\n      TAPECC = NFILES + TAPE3\r\n      IMHERE = 1200\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,METHOD,TAPECC,NCCI\r\n      IF (TAPECC .GT. MAXSCR) GO TO 2951\r\n      CALL OPEN (*2950,TAPECC,Z(IBUFC),WRTREW)\r\n      BK  = 0\r\n      I   = IC\r\n      IF (NCCI.GE.750 .OR. MACH.LE.2 .OR. NBPW.EQ.64) GO TO 1220\r\n      J   = ((NCONT*23 - NZ+IC +999)/1000)*1000\r\n      WRITE  (NOUT,1210) UIM,J,HICORE\r\n 1210 FORMAT (A29,', DUE TO UNUSUAL LARGE NUMBER OF CONTINUATION CARDS',\r\n     1       ' PRESENT IN THE BULKDATA DECK', /5X,'AN ADDITION OF',I7,\r\n     2       ' WORDS TO OPEN CORE SPACE COULD MAKE LINK1 MORE EFFICIENT'\r\n     3,      /5X,'CURRENTLY NASTRAN HICORE IS',I7,' WORDS')\r\n      IF (NCCI .LT. 100) NOGO = -3\r\n 1220 BK  = BK + 10000000\r\n      J   = IB\r\n      TOP = NZIB\r\n      CALL READ (*1260,*1230,TAPE2,Z(IB),TOP,0,LEN)\r\n      GO TO 1240\r\n 1230 TOP = LEN\r\n 1240 TOP = TOP + IB - 1\r\n 1250 Z(I  ) = ANDF(Z(J),LES1B)\r\n      Z(I+1) = Z(J+1)\r\n      Z(I+2) = J + BK\r\n      I   = I + 3\r\n      J   = J + 21\r\n      IF (J .LT. TOP) GO TO 1250\r\n      CALL WRITE (TAPECC,Z(IB),NZIB,1)\r\n      GO TO 1220\r\n 1260 CALL CLOSE (TAPECC,REW)\r\n 1270 CALL CLOSE (TAPE2 ,REW)\r\n      LEN = I - IC\r\n      IF (LEN .GT. 3) CALL SORT2K (0,0,3,1,Z(IC),LEN)\r\nC\r\nC     NO PRE-MERGING FILES IF REDUCE IS 1 (I.E. LESS THAN 10 SCRATCH\r\nC     FILES WERE USED TO HOLD THE RAW BULKDATA, OR ENOUGH CORE TO HOLD\r\nC     EVERYTHING)\r\nC\r\n 1280 IF (REDUCE .EQ. 1) GO TO 1600\r\nC\r\nC     PRE-MERGE\r\nC     =========\r\nC\r\nC     AT THIS POINT, CONTINUATION CARD IMAGES ARE EITHER IN CORE OR IN\r\nC     SCRATCH FILE TAPECC, AND TAPE2 IS FREE FOR RE-USE.\r\nC     ALL GINO BUFFERS ARE FREE\r\nC\r\nC     IF TOO MANY FILES WERE USED TO SAVE BULKDATA, MERGE THEM TO REDUCE\r\nC     THE TOTAL NUMBER OF FILES GOING TO BE USED (I.E. TO REDUCE BUFFER\r\nC     SPACE IN THE MERGE PHASE COMING NEXT)\r\nC\r\nC     PERFORM A 2-TO-1 MERGE IF NUMBER OF FILES PRESENTLY IS 10-17.\r\nC\r\nC     FILEB + FILEC == FILEA      E.G.  303 + 304 == 302\r\nC                                       305 + 306 == 303\r\nC                                       307 + 308 == 304  ETC.\r\nC     OR\r\nC     PERFORM A 3-TO-1 MERGE IF NUMBER OF FILES PRESENTLY IS 18-30.\r\nC\r\nC     FILEB+FILEC+FILED == FILEA  E.G.  303+304+305==302\r\nC                                       306+307+308==303\r\nC                                       309+310+311==304  ETC.\r\nC\r\nC     NOTE - 301 IS EITHER NOT USED, OR USED BY THE 'MODIFIED' OPTP\r\nC\r\n      IMHERE = 1290\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,NFILES,NFILER,REDUCE\r\n      FILEA  = 301\r\n      FILE   = 302 - REDUCE\r\nC\r\n      DO 1580 III = 1,NFILES,REDUCE\r\n      FILE = FILE+REDUCE\r\nC\r\nC ... CHECK LAST DO-LOOP CONDITION\r\nC     IF ONE   FILE  LEFT, QUIT MERGING\r\nC     IF TWO   FILES LEFT, DO A 2-TO-1 MERGE\r\nC     IF THREE FILES LEFT, CONTINUE\r\nC\r\n      IF (NFILES-III .LE. 0) GO TO 1420\r\nC\r\n      FILEA = FILEA + 1\r\n      CALL OPEN (*2930,FILEA,Z(IBUF1),WRTREW)\r\n      IMHERE= 1300\r\n      EXH   = 0\r\n      DO 1300 L = 1,REDUCE\r\n      FILEX = FILE + L\r\n      IBUFL = IBUFX(L)\r\n      ITAPE(L) = 1\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,FILEX,J\r\n      CALL OPEN (*2940,FILEX,Z(IBUFL),RDREW)\r\n      CALL READ (*3000,*2980,FILEX,Y(1,L),24,0,I)\r\n 1300 CONTINUE\r\nC\r\nC     PICK THE SMALLEST CONTROL WORDS FROM Y(21,22,23,24 OF A,B,C)\r\nC\r\n 1310 II = 1\r\n      DO 1380 L = 2,REDUCE\r\n      IF (Y(21,L) - Y(21,II)) 1370,1320,1380\r\n 1320 IF (Y(21,L) .EQ. LARGE) GO TO 1380\r\n      IF (Y(22,L) - Y(22,II)) 1370,1330,1380\r\n 1330 IF (Y(23,L) - Y(23,II)) 1370,1340,1380\r\n 1340 IF (Y(24,L) - Y(24,II)) 1370,1350,1380\r\nC\r\nC     FIRST 3 BULKDATA FIELDS THE SAME, CHECK POSSIBLE DUPLICATE CARD\r\nC     SET 21ST AND 22ND CONTROL WORDS TO -6 IF IT IS A DUPLICATE\r\nC\r\n 1350 DO 1360 J = 7,20\r\n      IF (Y(J,L) .NE. Y(J,II)) GO TO 1380\r\n 1360 CONTINUE\r\n      Y(21,II) = -6\r\n      Y(22,II) = -6\r\n      NOGO = -1\r\n      GO TO 1370\r\nC\r\n 1370 II = L\r\n 1380 CONTINUE\r\n      IMHERE = 1380\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,II\r\nC\r\n      IF (Y(1,II) .EQ. LARGE) CALL MESAGE (-61,0,NAME)\r\n      CALL WRITE (FILEA,Y(1,II),24,0)\r\n      FILEX = II + FILE\r\n      CALL READ (*2980,*1400,FILEX,Y(1,II),24,0,J)\r\n      IF (DEBUG) WRITE (NOUT,1390) FILEX,Y(1,II),Y(2,II)\r\n 1390 FORMAT (5X,'TO PRE-MERGE FILE',I5,3X,2A4)\r\n      GO TO 1310\r\nC\r\nC ... ONE OF THE FILES IS EXHAUSTED\r\nC\r\n 1400 EXH = EXH + 1\r\n      ITAPE(II) = 0\r\n      IF (EXH .GE. REDUCE-1) GO TO 1420\r\n      DO 1410 J = 1,24\r\n 1410 Y(J,II) = LARGE\r\n      IMHERE  = 1410\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,EXH\r\n      GO TO 1310\r\nC\r\nC ... ONLY ONE FILE LEFT WHICH HAS NOT BEEN EXHAUSTED\r\nC\r\n 1420 FILEX = FILE + 1\r\n      IF (ITAPE(2) .EQ. 1) FILEX = FILE + 2\r\n      IF (ITAPE(3) .EQ. 1) FILEX = FILE + 3\r\n      IMHERE = 1420\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,FILEX\r\n      DO 1430 J = 1,24\r\n 1430 Z(J) = Y(J,FILEX)\r\nC\r\nC     THIS REMAINING FILE COULD BE VERY BIG. IT COULD BE OPTP\r\nC\r\n      LEFT24 = ((LEFT-24)/24)*24\r\n 1440 FULL = 1\r\n      CALL READ (*3000,*1450,FILEX,Z(I25),LEFT24,0,LEN)\r\n      FULL = 0\r\n      LEN  = LEFT24\r\n 1450 IF (LEN .LT. 24) GO TO 1560\r\nC\r\nC ... CHECK ANY DUPLICATE IN THIS GROUP, SET THE 21ST AND 22ND CONTROL\r\nC     WORDS TO -6 IF DUPLICATE\r\nC     THEN WRITE THE REST TO FILEA\r\nC\r\n      DO 1540 L = 1,LEN,24\r\n      I = L - 1\r\n      K = I + 24\r\n      DO 1500 J = 21,24\r\n      IF (Z(I+J) .NE. Z(K+J)) GO TO 1520\r\n 1500 CONTINUE\r\n      DO 1510 J = 7,20\r\n      IF (Z(I+J) .NE. Z(K+J)) GO TO 1520\r\n 1510 CONTINUE\r\n      Z(I+21) = -6\r\n      Z(I+22) = -6\r\n 1520 CALL WRITE (FILEA,Z(L),24,0)\r\n      IF (DEBUG) WRITE (NOUT,1530) FILEA,Z(L),Z(L+1)\r\n 1530 FORMAT (5X,'TO FILEA',I5,3X,2A4)\r\n 1540 CONTINUE\r\nC\r\nC     IF FILE HAS NOT BEEN EXHAUSTED, GO BACK FOR MORE\r\nC\r\n      IF (FULL .EQ. 1) GO TO 1560\r\n      DO 1550 J = 1,24\r\n 1550 Z(J) = Z(LEN+J)\r\n      GO TO 1440\r\nC\r\n 1560 CALL WRITE (FILEA,Z(LEN+1),24,1)\r\n      IF (DEBUG) WRITE (NOUT,1530) FILEA,Z(LEN+1),Z(LEN+2)\r\n      DO 1570 L = 1,REDUCE\r\n      FILEX = FILE + L\r\n      CALL CLOSE (FILEX,REW)\r\n 1570 CONTINUE\r\nC\r\n 1580 FILE = FILE + REDUCE\r\nC\r\nC     END OF PRE-MERGE\r\nC\r\nC\r\nC     SET UP SORTED HEADING IF APPLICABLE\r\nC\r\n 1600 IF (NBULK .LE. 1) GO TO 1620\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1610) UIM\r\n 1610 FORMAT (A29,' 207, BULK DATA DECK IS NOT SORTED. NASTRAN WILL ',\r\n     1        'RE-ORDER THE INPUT DECK.')\r\n 1620 IF (F3LONG.EQ.0 .OR. ECHOS.EQ.0) GO TO 1640\r\n      CALL PAGE2 (2)\r\n      WRITE  (NOUT,1630) UIM\r\n 1630 FORMAT (A29,' 207A, SIX CHARACTERS OF NASTRAN BCD NAME IN THE ',\r\n     1        'THIRD FIELD WERE USED DURING RE-ORDERING DECK')\r\n 1640 IF (ECHOS .EQ. 0) GO TO 1650\r\n      READ (HEAD(2),150) (HEAD1(J),J=11,24)\r\nCWKBR 9/93 HEAD2(4) = CDCNT(1)\r\n      HEAD2(5) = CDCNT(1)\r\nCWKBR 9/93 HEAD3(4) = CDCNT(2)\r\n      HEAD3(5) = CDCNT(2)\r\nCWKBR 9/93 HEAD3(5) = CDCNT(3)\r\n      HEAD3(6) = CDCNT(3)\r\n      CALL PAGE\r\nC\r\nC     FINAL FILE MERGE, ADD CONTINUATION CARD AS NEEDED. RESULTS IN NPTP\r\nC           ==========\r\nC\r\nC     ASSIGN BUFFER SPACES FOR THE SCRATCH FILES, RESERVE IBUF1 FOR NPTP\r\nC\r\nC     OPEN SCRATCH DATA FILES (303,304,305... OR        ==METHODS 1,2==\r\nC     PREVIOUSLY SAVED         303,304,305...301  OR\r\nC                              302,303,304,305... OR    ==METHOD  3  ==\r\nC                              302,303,304,305,...,301)\r\nC     AND READ INTO Y SPACE THE FIRST RECORD OF EACH SCRATCH FILE\r\nC\r\nC     OPEN NPTP FOR MERGED RESULT\r\nC\r\nC\r\n 1650 CALL OPEN  (*3100,NPTP,Z(IBUF1),WRT)\r\n      CALL WRITE (NPTP,BULKDA,2,1)\r\n      IF (NBULK+NDELE .EQ. 0) GO TO 2290\r\n      IF (TAPECC .NE. 0) CALL OPEN (*2950,TAPECC,Z(IBUFC),RD)\r\n      RECX   = LARGE\r\n      NCARD  = 0\r\n      EXH    = 0\r\n      IMHERE = 1700\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,NCONT,NFILER\r\nC\r\nC     IF NO CONTINUATION CARDS, AND ONLY ONE FILE IS USED TO STORE\r\nC     BULKDATA INPUT CARDS, MOVE DATA FROM TAPE3 (COLD START JOB), OR\r\nC     FROM TAPE1 (RESTART JOB WITH DELETE ONLY AND NO NEW BULK DATA)\r\nC     INTO NPTP DIRECTLY. OTHERWISE, JUMP TO 1760\r\nC\r\n      IF (.NOT.(NCONT.EQ.0 .AND. NFILER.EQ.1)) GO TO 1760\r\n      TAPE = TAPE3\r\n      IF (RESTR .EQ. 1) TAPE = TAPE1\r\n      CALL OPEN (*2920,TAPE,Z(IBUF2),RDREW)\r\n      LEFT24 = ((IBUF2-1)/24)*24\r\n 1700 FULL = 1\r\n      K    = 1\r\n      CALL READ (*3000,*1710,TAPE,Z(1),LEFT24,0,J)\r\n      FULL = 0\r\n      J    = LEFT24\r\n 1710 CALL WRITE (NPTP,Z(K),20,1)\r\n      IF (DEBUG) WRITE (NOUT,1720) Z(K),Z(K+1)\r\n 1720 FORMAT (5X,'WRITE TO NPTP',4X,2A4)\r\n      NCARD = NCARD + 1\r\n      L = K + 19\r\n      IF (ECHOS .EQ. 0) GO TO 1740\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,1730) NCARD,(Z(I),I=K,L)\r\n 1730 FORMAT (13X,I8,1H-,8X,20A4)\r\n 1740 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (Z(I),I=K,L)\r\n 1750 FORMAT (20A4)\r\n      K = K + 24\r\n      IF (K .LT. J) GO TO 1710\r\n      IMHERE = 1750\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,FULL,J\r\n      IF (FULL .EQ. 0) GO TO 1700\r\n      CALL EOF (NPTP)\r\n      CALL CLOSE (NPTP,REW)\r\n      CALL CLOSE (TAPE,REW)\r\n      IF (ECHOP .NE. 0) WRITE (LPCH,2320)\r\n      IF (ECHOS .EQ. 0) GO TO 2700\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,2300)\r\n      GO TO 2700\r\nC\r\nC     OPEN AND READ IN THE FIRST DATA RECORD FROM ALL FILES\r\nC\r\n 1760 IMHERE = 1760\r\n      TAPE = TAPE2\r\n      IF (REDUCE .GT. 1) TAPE = TAPE2 - 1\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,REDUCE,NFILER,TAPE\r\n      EMPTY = 0\r\n      DO 1800 II = 1,NFILER\r\n      TAPE = TAPE + 1\r\n      IF (II.EQ.NFILER .AND. RESTR.EQ.1) TAPE = TAPE1\r\n      ITAPE(II) = TAPE\r\n      IIBUF = IBUFX(II)\r\n      CALL OPEN (*2960,TAPE,Z(IIBUF),RDREW)\r\n      CALL READ (*3000,*1780,TAPE,Y(1,II),24,0,J)\r\n      IF (DEBUG) WRITE (NOUT,1770) TAPE,II,Y(1,II),Y(2,II)\r\n 1770 FORMAT (5X,'SETTING MERGE TABLE.  TAPE,II =',2I4,2X,2A4)\r\n      GO TO 1800\r\n 1780 EMPTY = EMPTY + 1\r\n      CALL CLOSE (TAPE,REW)\r\n      DO 1790 I = 1,24\r\n 1790 Y(I,II) = LARGE\r\n 1800 CONTINUE\r\n      EXH = -1\r\n      DO 1810 II = 1,NFILER\r\n      IF (Y(21,II) .EQ. -6) GO TO 1830\r\n 1810 CONTINUE\r\n 1820 EXH = EMPTY\r\n      II  = 1\r\n      IF (NFILER-1) 1980,1980,1900\r\n 1830 L = II\r\n      GO TO 2220\r\nC\r\nC     START MERGING FILES\r\nC\r\nC     PICK THE SMALLEST CONTROL WORDS IN 21ST, 22ND, 23RD AND 24TH\r\nC     WORDS OF EACH Y RECORD AND WRITE IT TO MERGE FILE NPTP, 20 WORDS\r\nC     EACH. REPLACE THE CHOSEN RECORD BY NEXT RECORD OF THE SAME FILE\r\nC\r\n 1900 II = 1\r\n      DO 1970 L = 2,NFILER\r\n      IF (Y(21,L) - Y(21,II)) 1960,1910,1970\r\n 1910 IF (Y(1,L)  .EQ. LARGE) GO TO 1970\r\n      IF (Y(22,L) - Y(22,II)) 1960,1920,1970\r\n 1920 IF (Y(23,L) - Y(23,II)) 1960,1930,1970\r\n 1930 IF (Y(24,L) - Y(24,II)) 1960,1940,1970\r\nC\r\nC ... FIRST 3 BULKDATA FIELDS ARE THE SAME, CHECK POSSIBLE DUPLICATE\r\nC     CARDS\r\nC\r\n 1940 DO 1950 J = 7,20\r\n      IF (Y(J,II) .NE. Y(J,L)) GO TO 1970\r\n 1950 CONTINUE\r\n      GO TO 2220\r\nC\r\n 1960 II = L\r\n 1970 CONTINUE\r\nC\r\n 1980 CALL WRITE (NPTP,Y(1,II),20,1)\r\n      NCARD = NCARD + 1\r\n      IF (ECHOS .EQ. 0) GO TO 1990\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,1730) NCARD,(Y(J,II),J=1,20)\r\n 1990 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (Y(J,II),J=1,20)\r\n      IF (NCONT .EQ. 0) GO TO 2200\r\n      IF (RESTR .EQ. 0) GO TO 2000\r\nC\r\nC     IF THIS IS A RESTART JOB, SAVE THE FIRST FIELD, IN CASE THIS IS\r\nC     THE PARENT OF A CONTINUATION CARD THAT CAME FROM NEW BULK DATA\r\nC\r\n      KARD1 = Y(1,II)\r\n      KARD2 = Y(2,II)\r\n      IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 2000\r\n      KARD1 = Y(3,II)\r\n      KARD2 = Y(4,II)\r\nC\r\nC     INSERT CONTINUATION CARD IF NEEDED\r\nC\r\n 2000 IF (NOGO .EQ.  -3) GO TO 2200\r\n      TEMPX   = Y(19,II)\r\n      TEMP(1) = ANDF(TEMPX,LES1B)\r\n      TEMP(2) = Y(20,II)\r\n 2010 IF (TEMPX.EQ.BLANK .AND. TEMP(2).EQ.BLANK) GO TO 2200\r\n      CALL BISLC2 (*2140,TEMP(1),Z(IC),NCONT,BSIZE,LOC)\r\n      K = LOC*BSIZE + IC - 1\r\n      L = Z(K)\r\n      IF (L .LT. 0) GO TO 2150\r\n      Z(K) = -L\r\n      IF (L .GT. 10000000) GO TO 2050\r\n 2020 DO 2030 I = 1,20\r\n      BUF(I) = Z(L)\r\n 2030 L = L + 1\r\n      IF (RESTR.EQ.0 .OR. KARD1.EQ.-1 .OR. Z(L).EQ.0) GO TO 2120\r\nC         ----------     -------------    -----------\r\nC    I.E. NO RESTART     ALREADY DONE     BULKDATA CARD\r\nC                                         NOT FLAGGED\r\nC\r\nC     SET THE PARENT'S RESTART BIT IF ABOVE CONDITIONS NOT MET\r\nC\r\n      ASSIGN 2040 TO CRDFLG\r\n      FROM = 2040\r\n      GO TO 2810\r\n 2040 KARD1 = -1\r\n      GO TO 2120\r\nC\r\nC     READ IN CONTINUATION CARD IMAGE FROM TAPECC FILE\r\nC\r\n 2050 REC = L/10000000\r\n      L   = L - REC*10000000\r\n      IF (REC-RECX) 2060,2020,2110\r\n 2060 CALL REWIND (TAPECC)\r\n      IF (REC .EQ. 1) GO TO 2090\r\n      SKIP = REC - 1\r\n 2070 DO 2080 J = 1,SKIP\r\n      CALL FWDREC (*3020,TAPECC)\r\n 2080 CONTINUE\r\n 2090 CALL READ (*3020,*2100,TAPECC,Z(IB),NZIB,1,LEN)\r\n      RECX = REC\r\n      GO TO 2020\r\n 2100 CALL MESAGE (-37,0,NAME)\r\n 2110 SKIP = REC - RECX - 1\r\n      IF (SKIP) 2100,2090,2070\r\nC\r\nC     GOT THE CONTINUATION CARD, WRITE IT OUT TO NPTP\r\nC     CHECK WHETHER IT ASKS FOR MORE CONTINUATION CARD\r\nC\r\n 2120 CALL WRITE (NPTP,BUF,20,1)\r\n      NCARD = NCARD + 1\r\n      IF (ECHOS .EQ. 0) GO TO 2130\r\n      CALL PAGE2 (-1)\r\n      WRITE (NOUT,1730) NCARD,(BUF(J),J=1,20)\r\n 2130 IF (ECHOP .NE. 0) WRITE (LPCH,1750) (BUF(J),J=1,20)\r\n      TEMPX   = BUF(19)\r\n      TEMP(1) = ANDF(TEMPX,LES1B)\r\n      TEMP(2) = BUF(20)\r\n      GO TO 2010\r\nC\r\nC     CONTINUATION CARD NOT FOUND. ASSUME THE 10TH FIELD IS USER'S\r\nC     COMMENT\r\nC\r\n 2140 GO TO 2200\r\nC\r\nC     DUPLICATE PARENT - ERROR\r\nC\r\n 2150 CALL PAGE2 (-1)\r\n      IF (ECHOS .NE. 0) GO TO 2155\r\n      WRITE  (NOUT,2152) UFM,Z(-L),Z(-L+1)\r\n 2152 FORMAT (A23,' 208A, ',2A4,' IS DUPLECATE CONTINUATION MARK.')\r\n      GO TO 2180\r\n 2155 WRITE  (NOUT,2160) UFM\r\n 2160 FORMAT (A23,' 208, PREVIOUS CARD IS A DUPLICATE PARENT.')\r\n      IF (DEBUG) WRITE (NOUT,2170) LOC,BSIZE,IC,K,L,TEMPX,TEMP(2)\r\n 2170 FORMAT ('  LOC,BSIZE,IC,K,L =',5I8,2(2H /,A4),1H/)\r\n 2180 NOGO = -1\r\nC\r\nC     REPLACE THE MERGED RECORD BY THE NEXT RECORD OF THE SAME FILE\r\nC\r\n 2200 TAPE   = ITAPE(II)\r\n      IMHERE = 2200\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,TAPE,II\r\n      CALL READ (*3000,*2270,TAPE,Y(1,II),24,0,J)\r\n      IF (DEBUG) WRITE (NOUT,2210) TAPE,II,Y(1,II),Y(2,II),\r\n     1                             (Y(J,II),J=21,24)\r\n 2210 FORMAT (5X,'REPLACING - TAPE,II=',2I4,3X,2A4,4I12)\r\n      IF (Y(21,II) .NE. -6) IF (EXH) 1820,1900,1900\r\n 2220 CALL PAGE2 (-2)\r\n      NCARD = NCARD + 1\r\n      CALL WRITE (NPTP,Y(1,II),20,1)\r\n      WRITE  (NOUT,1730) NCARD,(Y(J,II),J=1,20)\r\n      WRITE  (NOUT,2230) UWM\r\n 2230 FORMAT (A25,' 208, PREVIOUS CARD IS A DUPLICATE')\r\nC     NOGO = -1\r\n      IF (.NOT.DEBUG) GO TO 2200\r\n      DO 2250 K = 1,NFILER\r\n      WRITE  (NOUT,2240) K,(Y(J,K),J=1,24)\r\n 2240 FORMAT (1X,I2,3H)  ,20A4,2H /,4I8)\r\n 2250 CONTINUE\r\n      WRITE  (NOUT,2260) II,L\r\n 2260 FORMAT (//5X,'DUPLICATE  II,L=',2I8)\r\n      GO TO 2200\r\nC\r\nC     A SCRATCH FILE IS JUST EXHAUSTED, SET THE CORRESPONDING RECORD\r\nC     A SET OF VERY LARGE NUMBERS\r\nC     IF ALL FILES ARE EXHAUSTED, MERGING DONE\r\nC\r\n 2270 EXH = EXH + 1\r\n      CALL CLOSE (TAPE,REW)\r\n      IMHERE = 2270\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,TAPE,EXH,NFILER,NCARD\r\n      IF (EXH .GE. NFILER) GO TO 2290\r\n      DO 2280 I = 1,24\r\n 2280 Y(I,II) = LARGE\r\n      GO TO 1900\r\nC\r\nC     MERGING DONE. EVERY THING IN NPTP.\r\nC\r\n 2290 CALL EOF (NPTP)\r\n      CALL CLOSE (NPTP,REW)\r\n      IMHERE = 2290\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,EXH,NFILER\r\n      IF (ECHOS .EQ. 0) GO TO 2310\r\n      CALL PAGE2 (-1)\r\n      WRITE  (NOUT,2300)\r\n 2300 FORMAT (30X,'ENDDATA')\r\n 2310 IF (ECHOP .NE. 0) WRITE (LPCH,2320)\r\n 2320 FORMAT ('ENDDATA')\r\nC\r\nC     CHECK AND IDENTIFY PARENTLESS CONTINUATION CARDS\r\nC     MAKE SURE TO EXCLUDE ANY BROKEN CONTINUATION CARDS SUPPOSEDLY\r\nC     CONNECTED TO ONE PARENT\r\nC\r\n      IF (NCONT.EQ.0 .OR. NOGO.EQ.-3) GO TO 2700\r\n      IMHERE = 2330\r\n      IF (DEBUG) WRITE (NOUT,140) IMHERE,NCONT,IC\r\n      RECX = LARGE\r\n      J = IC + BSIZE - 1\r\n      DO 2490 I = 1,NCONT\r\n      L = Z(J)\r\n 2400 IF (L  .LT. 0) GO TO 2490\r\n      IMHERE = 2400\r\n      IF (DEBUG) WRITE (NOUT,2480) IMHERE,Z(J-2),Z(J-1),L\r\n      IF (L .LE. 10000000) GO TO 2470\r\n      REC = L/10000000\r\n      L   = L - REC*10000000\r\n      IF (REC-RECX) 2410,2470,2450\r\n 2410 CALL REWIND (TAPECC)\r\n      IF (REC .EQ. 1) GO TO 2440\r\n      SKIP = REC - 1\r\n 2420 DO 2430 K = 1,SKIP\r\n      CALL FWDREC (*3020,TAPECC)\r\n 2430 CONTINUE\r\n 2440 CALL READ (*3020,*2620,TAPECC,Z(IB),NZIB,1,LEN)\r\n      RECX = REC\r\n      GO TO 2470\r\n 2450 SKIP = REC - RECX - 1\r\n      IF (SKIP) 2460,2440,2420\r\n 2460 CALL MESAGE (-37,0,NAME)\r\n 2470 TEMP(1) = ANDF(Z(L+18),LES1B)\r\n      TEMP(2) = Z(L+19)\r\n      IMHERE  = 2470\r\n      IF (DEBUG) WRITE (NOUT,2480) IMHERE,TEMP,L\r\n 2480 FORMAT ('  IMHERE=',I5,'  LOOKING FOR - ',2A4,I14)\r\n      IF (TEMP(1).EQ.BLANK .AND. TEMP(2).EQ.BLANK) GO TO 2490\r\n      LOC = LOC + 1\r\n      IF (TEMP(1).NE.Z(LOC+IC) .OR. TEMP(2).NE. Z(LOC*NCONT+IC))\r\n     1    CALL BISLC2 (*2490,TEMP(1),Z(IC),NCONT,BSIZE,LOC)\r\n      K = LOC*BSIZE + IC - 1\r\n      L = Z(K)\r\n      Z(K) = -IABS(Z(K))\r\n      GO TO 2400\r\n 2490 J = J + BSIZE\r\nC\r\n      J  = IC + BSIZE - 1\r\n      II = 0\r\n      RECX   = LARGE\r\n      IMHERE = 2600\r\n      DO 2610 I = 1,NCONT\r\n      IF (Z(J) .LT. 0) GO TO 2610\r\n      IF (II   .EQ. 1) GO TO 2510\r\n      II = 1\r\n      CALL PAGE1\r\n      WRITE  (NOUT,2500) UFM\r\n 2500 FORMAT (A23,' 209, THE FOLLOWING CONTINUATION INPUT CARDS HAVE ',\r\n     1       'NO PARENTS',//)\r\n      NOGO = -1\r\n 2510 CALL PAGE2 (1)\r\n      L = Z(J)\r\n      IF (L .GT. 10000000) GO TO 2540\r\n 2520 M = L + 19\r\n      WRITE  (NOUT,2530) (Z(K),K=L,M)\r\n 2530 FORMAT (10X,20A4)\r\n      GO TO 2610\r\nC\r\n 2540 REC = L/10000000\r\n      L   = L - REC*10000000\r\n      IF (REC-RECX) 2550,2520,2600\r\n 2550 CALL REWIND (TAPECC)\r\n      IF (REC .EQ. 1) GO TO 2580\r\n      SKIP = REC - 1\r\n 2560 DO 2570 K = 1,SKIP\r\n      CALL FWDREC (*3020,TAPECC)\r\n 2570 CONTINUE\r\n 2580 CALL READ (*3020,*2620,TAPECC,Z(IB),NZIB,1,LEN)\r\n      RECX = REC\r\n      GO TO 2520\r\n 2600 SKIP = REC - RECX - 1\r\n      IF (SKIP) 2620,2580,2560\r\n 2610 J = J + BSIZE\r\n      GO TO 2700\r\n 2620 CALL MESAGE (-2,TAPECC,NAME)\r\nC\r\nC     CLOSE CONTINUAION CARD FILE TAPECC, IF IT WAS OPENED\r\nC     DISABLE FREE-FIELD INPUT OPTION IN XREAD.\r\nC\r\n 2700 IF (TAPECC .GT. 0) CALL CLOSE (TAPECC,REW)\r\n      FFFLAG = 0\r\n      WASFF  = 0\r\n      IF (NOGO .NE. -3) GO TO 2730\r\n      WRITE  (NOUT,2710) UFM\r\n 2710 FORMAT (A23,' 3008, CONTINUATION CARDS WERE NOT ADDED TO SORTED ',\r\n     1       'BULKDATA DECK DUE TO INSUFFICIENT CORE CONDITION.')\r\n      IF (CPFLG .NE. 0) WRITE (NOUT,2720)\r\n 2720 FORMAT (5X,'THE NPTP FILE OR TAPE GENERATED IN THIS RUN IS NOT ',\r\n     1       'SUITABLE FOR RESTART')\r\n      CALL MESAGE (-61,0,0)\r\n 2730 IF (NOGO .NE. 0) NOGO = 1\r\n      IF (.NOT. DEBUG) GO TO 3200\r\nC\r\nC     DEBUG NPTP ECHO\r\nC\r\n      IMHERE = 2730\r\n      WRITE (NOUT,140) IMHERE,FFFLAG,WASFF\r\n      CALL OPEN (*3100,NPTP,Z(IBUF1),RDREW)\r\n 2740 CALL SKPFIL (NPTP,+1)\r\n      CALL READ (*2770,*2770,NPTP,BUF(1),2,1,J)\r\n      IF (BUF(1).NE.BULKDA(1) .OR. BUF(2).NE.BULKDA(2)) GO TO 2740\r\n 2750 CALL READ (*2770,*2770,NPTP,BUF(1),20,1,J)\r\n      WRITE  (NOUT,2760) (BUF(J),J=1,10),(BUF(J),J=17,20)\r\n 2760 FORMAT (' ==NPTP==>',5(1X,2A4),'...',2(1X,2A4))\r\n      GO TO 2750\r\n 2770 CALL CLOSE (NPTP,REW)\r\n      GO TO 3200\r\nC\r\nC\r\nC     INTERNAL ROUTINE TO SET RESTART BITS - CRDFLG\r\nC\r\nC     BITS SET ONLY IF JOB IS A RESTART RUN, AND\r\nC       1. ALL NEW BULK DATA CARDS,   EXCEPT CONTINUATION CARDS\r\nC       2. ALL DELETED CARDS IN OPTP, EXCEPT CONTINUATION CARDS\r\nC       3. THE PARENTS OF THE CONTINUATION CARDS IN 1 AND 2\r\nC\r\n 2800 KARD1 = BUF(1)\r\n      KARD2 = BUF(2)\r\n      IF (KARD1.NE.PARAM(1) .OR. KARD2.NE.PARAM(2)) GO TO 2810\r\n      KARD1 = BUF(3)\r\n      KARD2 = BUF(4)\r\n 2810 IMHERE = 2810\r\n      IF (DEBUG) WRITE (NOUT,2820) IMHERE,FROM,NOGO,KARD1,KARD2\r\n 2820 FORMAT (/,' *** IMHERE',I5,', FROM',I5,', NOGO=',I3,3X,2A4)\r\n      IF (NOGO .NE. 0) GO TO 2850\r\n      K = NUMX1*2\r\n      DO 2840 I = 1,K,2\r\n      IF (KARD1.NE.ICARDS(I) .OR. KARD2.NE.ICARDS(I+1)) GO TO 2840\r\n      J = I/2\r\n      M = (J/31) + 1\r\n      N = MOD(J,31) + 2\r\n      IBITS(M) = ORF(IBITS(M),ITWO(N))\r\n      IF (DEBUG) WRITE (NOUT,2830) KARD1,KARD2\r\n 2830 FORMAT (5X,'BITS SET SUCCESSFULLY FOR ',2A4)\r\n      GO TO 2850\r\n 2840 CONTINUE\r\n 2850 GO TO CRDFLG, (200,810,880,2040)\r\nC\r\nC     ERRORS\r\nC\r\n 2900 TAPE = TAPE1\r\n      GO TO  2960\r\n 2910 TAPE = TAPE2\r\n      GO TO  2960\r\n 2920 TAPE = TAPE3\r\n      GO TO  2960\r\n 2930 TAPE = FILEA\r\n      GO TO  2960\r\n 2940 TAPE = FILEX\r\n      GO TO  2960\r\n 2950 TAPE = TAPECC\r\n      IF (TAPECC .LE. MAXSCR) GO TO 2960\r\n 2951 WRITE  (NOUT,2955) SFM\r\n 2955 FORMAT (A25,' 212, NUMBER OF AVAILABLE SCRATCH FILES EXEEDED.',5X,\r\n     1        'RE-RUN JOB WITH MORE CORE')\r\n      GO TO  3140\r\n 2960 WRITE  (NOUT,2970) SFM,TAPE\r\n 2970 FORMAT (A25,' 210, COULD NOT OPEN SCRATCH FILE',I5)\r\n      GO TO  3140\r\n 2980 WRITE  (NOUT,2990) SFM\r\n 2990 FORMAT (A25,' 211, ILLEGAL EOR ON SCRATCH')\r\n      GO TO  3140\r\n 3000 WRITE  (NOUT,3010) SFM,TAPE\r\n 3010 FORMAT (A25,' 212, ILLEGAL EOF ON SCRATCH',I5)\r\n      GO TO  3140\r\n 3020 WRITE  (NOUT,3030)\r\n 3030 FORMAT (//26X,'212, TAPECC ERROR')\r\n      TAPE = TAPECC\r\n      GO TO  3000\r\n 3040 WRITE  (NOUT,3050) SFM\r\n 3050 FORMAT (A25,' 213, ILLEGAL EOF ON OPTP')\r\n      GO TO  3140\r\n 3060 WRITE  (NOUT,3070) SFM,IMHERE\r\n 3070 FORMAT (A25,' 213X, ILLEGAL DATA ON OPTP.  IMHERE =',I7)\r\n      NOGO = 1\r\n      GO TO  810\r\n 3080 WRITE  (NOUT,3090) SFM\r\n 3090 FORMAT (A25,' 214, OPTP COULD NOT BE OPENED')\r\n      GO TO  3140\r\n 3100 WRITE  (NOUT,3110) SFM\r\n 3110 FORMAT (A25,' 215, NPTP COULD NOT BE OPENED')\r\n      GO TO  3140\r\n 3120 WRITE  (NOUT,3130) SFM,IMHERE\r\n 3130 FORMAT (A25,' 219, MISSING ENDDATA CARD.  IMHERE =',I7)\r\n      NOGO = 1\r\n      GO TO  350\r\n 3140 WRITE  (NOUT,3150) IMHERE\r\n 3150 FORMAT (5X,'IMHERE =',I6)\r\n      CALL MESAGE (-37,0,NAME)\r\nC\r\nC     TURN OFF XSORT FLAG AND FREE-FIELD FLAG\r\nC\r\n 3200 IXSORT = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xsosgn.f",
    "content": "      SUBROUTINE XSOSGN\r\nC\r\nC     THIS SUBROUTINE SCANS THE OSCAR TAPE AND GENERATES THE SOS + MD\r\nC\r\nC     LAST REVISED BY G.CHAN/UNISYS TO REMOVE THE VAX AND NOT-VAX\r\nC     LOGICS, AND TO SYNCHRONIZE THE SCRATH FILE NAMES AS SET FORTH BY\r\nC     THE XSEMX ROUTINES.   2/1990\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\nC     LOGICAL         DEC\r\n      EXTERNAL        ANDF,ORF,LSHIFT,RSHIFT\r\n      DIMENSION       BLOCK1(93),STR(30),NSOSGN(2),FEQU(1),FNTU(1),\r\n     1                FON(1),FORD(1),MINP(1),MLSN(1),MOUT(1),MSCR(1),\r\n     2                SAL(1),SDBN(1),SNTU(1),SORD(1),BLOCK(100),\r\n     3                NUMBR(10)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM\r\n      COMMON /SYSTEM/ IBUFSZ,OUTTAP\r\n      COMMON /XFIAT / FIAT(1),FMXLG,FCULG,FILE(1),FDBN(2),FMAT(1)\r\n      COMMON /XFIST / FIST\r\n      COMMON /XDPL  / DPD(1),DMXLG,DCULG,DDBN(2),DFNU(1)\r\n      COMMON /ZZZZZZ/ BUF1(1)\r\n      COMMON /XSFA1 / MD(401),SOS(1501),COMM(20),XF1AT(1),FPUN(1),\r\n     1                FCUM(1),FCUS(1),FKND(1)\r\n      COMMON /ISOSGN/ ENTN5,ENTN6,K,J,STR\r\n      EQUIVALENCE     (DPD(1),DNAF),(FIAT(1),FUNLG),(FILE(1),FEQU(1)),\r\n     1                (FILE(1),FORD(1)),(BLOCK(8),BLOCK1(1))\r\n      EQUIVALENCE     (MD(1),MLGN),(MD(2),MLSN(1)),(MD(3),MINP(1)),\r\n     1                (MD(4),MOUT(1)),(MD(5),MSCR(1)),\r\n     2                (SOS(1),SLGN),(SOS(2),SDBN(1)),\r\n     3                (SOS(4),SAL(1),SNTU(1),SORD(1)),\r\n     4                (COMM(1),ALMSK),(COMM(2),APNDMK),(COMM(3),CURSNO),\r\n     5                (COMM(4),ENTN1),(COMM(5),ENTN2 ),(COMM (6),ENTN3),\r\n     6                (COMM(7),ENTN4),(COMM(8),FLAG  ),(COMM (9),FNX  ),\r\n     7                (COMM(10),LMSK),(COMM(11),LXMSK),(COMM(13),RMSK ),\r\n     8                (COMM(14),RXMSK),(COMM(15),S  ),(COMM(16),SCORNT),\r\n     9                (COMM(17),TAPMSK),(COMM(19),ZAP),\r\n     O                (XF1AT(1),FNTU(1),FON(1))\r\n      DATA    JUMP  / 4HJUMP/, REPT /4HREPT/,  COND/4HCOND/\r\n      DATA    OSCAR / 4HPOOL/, SCRN1,SCRN2 / 4HSCRA,4HTCH0/\r\n      DATA    NSOSGN/ 4HXSOS , 2HGN /\r\n      DATA    NUMBR / 1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9,1H0  /\r\nC\r\n      IFLAG = 0\r\n      CALL OPEN (*500,OSCAR,BUF1,2)\r\n      CALL BCKREC (OSCAR)\r\n      CALL READ (*400,*600,OSCAR,BLOCK,7,0,FLAG)\r\n      IF (BLOCK(2) .NE. CURSNO) GO TO 900\r\n      GO TO 103\r\nC\r\nC     READ OSCAR FORMAT HEADER + 1\r\nC\r\n  100 IF (J.GT.1400 .OR. K.GT.390) GO TO 410\r\n      CALL READ (*400,*600,OSCAR,BLOCK,7,0,FLAG)\r\n  103 BLOCK(3) = ANDF(RMSK,BLOCK(3))\r\n      IF (BLOCK(6) .GE. 0) GO TO 108\r\n      IF (BLOCK(3) .LE. 2) GO TO 110\r\n      IF (BLOCK(3) .NE. 3) GO TO 108\r\n      L = RSHIFT(ANDF(LXMSK,BLOCK(7)),16) - BLOCK(2)\r\n      IF (BLOCK(4) .NE. JUMP) GO TO 106\r\n      IF (L .LE. 1) GO TO 107\r\n      DO 104 I = 1,L\r\n      CALL FWDREC (*400,OSCAR)\r\n  104 CONTINUE\r\n      GO TO 100\r\n  106 IF (BLOCK(4).NE.REPT .AND. BLOCK(4).NE.COND) GO TO 108\r\n  107 IF (L .LT. 0) IFLAG = -1\r\n  108 CALL FWDREC (*400,OSCAR)\r\n      GO TO 100\r\nC\r\nC     INPUT FILES\r\nC\r\n  110 MINP(K) = BLOCK(7)\r\n      IF (BLOCK(7) .EQ. 0) GO TO 300\r\n      NWDS= BLOCK(7)*ENTN5\r\n      ASSIGN 150 TO ISW\r\nC\r\nC     FILES READER\r\nC\r\n  130 CALL READ (*400,*600,OSCAR,BLOCK1,NWDS+1,0,FLAG)\r\n      BLKCNT = 0\r\n      DO 145 I = 1,NWDS,ENTN5\r\n      IF (BLOCK1(I) .EQ.  0) GO TO 140\r\n      SOS(J  ) = BLOCK1(I  )\r\n      SOS(J+1) = BLOCK1(I+1)\r\n      SOS(J+2) = BLOCK1(I+2)\r\n      J = J+3\r\n      IF (J .GT. 1500) GO TO 460\r\n      GO TO 145\r\n  140 BLKCNT = BLKCNT + 1\r\n  145 CONTINUE\r\n      GO TO ISW, (150,170)\r\nC\r\n  150 MINP(K) = MINP(K) - BLKCNT\r\n      IF (BLOCK(3) .EQ. 2) GO TO 310\r\nC\r\nC     OUTPUT FILES\r\nC\r\n      MOUT(K) = BLOCK1(NWDS+1)\r\n  155 IF (MOUT(K) .EQ. 0) GO TO 320\r\n      NWDS = MOUT(K)*ENTN6\r\n      ASSIGN 170 TO ISW\r\n      GO TO 130\r\nC\r\n  170 MOUT(K) = MOUT(K) - BLKCNT\r\n  175 CALL FWDREC (*400,OSCAR)\r\nC\r\nC     SCRATCH FILES\r\nC\r\n      MSCR(K) = BLOCK1(NWDS+1)\r\n      IF (MSCR(K) .EQ. 0) GO TO 230\r\n      L = MSCR(K)\r\n      SCRN3  = SCRN2\r\n      LLL = 1\r\n      LL  = 0\r\n      DO 220 I = 1,L\r\n      LL  = LL + 1\r\n      IF (LL .EQ. 10) SCRN3 = KHRFN1(SCRN3,3,NUMBR(LLL),1)\r\n      SOS(J  ) = SCRN1\r\n      SOS(J+1) = KHRFN1(SCRN3,4,NUMBR(LL),1)\r\n      IF (LL .NE. 10) GO TO 200\r\n      LL  = 0\r\n      LLL = LLL + 1\r\n  200 IF (STR(I) .EQ. 0) GO TO 210\r\n      N1= STR(I)\r\n      SOS(N1) = ORF(LMSK,BLOCK(2))\r\n  210 STR(I)  = J + 2\r\n      SOS(J+2)= SCORNT + I\r\n      J = J + 3\r\n      IF (J .GT. 1500) GO TO 460\r\n  220 CONTINUE\r\nC\r\n  230 MLSN(K) = BLOCK(2)\r\n      IF (IFLAG .EQ. 0)  GO TO 240\r\n      MLSN(K) = ORF(S,MLSN(K))\r\n  240 IF (MINP(K)+MOUT(K)+MSCR(K) .EQ. 0) GO TO 100\r\n      K= K + ENTN3\r\n      IF (K .GT. 400) GO TO 460\r\n      GO TO 100\r\nC\r\nC     ZERO INPUT FILES\r\nC\r\n  300 CALL READ (*400,*600,OSCAR,BLOCK(7),1,0,FLAG)\r\n      IF (BLOCK(3) .EQ. 2) GO TO 310\r\n      MOUT(K) = BLOCK(7)\r\n      GO TO 155\r\nC\r\nC     TYPE O FORMAT - NO OUTPUTS\r\nC\r\n  310 MOUT(K) = 0\r\n      GO TO 175\r\nC\r\nC     ZERO OUTPUT FILES\r\nC\r\n  320 CALL READ (*400,*600,OSCAR,BLOCK1(NWDS+1),1,0,FLAG)\r\n      GO TO 175\r\nC\r\n  400 CALL SKPFIL (OSCAR,-1)\r\n  410 CALL CLOSE  (OSCAR, 2)\r\n      SLGN = (J-1)/ENTN2\r\n      MLGN = (K-1)/ENTN3\r\n      RETURN\r\nC\r\nC     SYSTEM FATAL MESSAGES\r\nC\r\n  460 WRITE  (OUTTAP,461) SFM\r\n  461 FORMAT (A25,' 1011, MD OR SOS TABLE OVERFLOW')\r\n      GO TO  1000\r\n  500 WRITE  (OUTTAP,501) SFM\r\n  501 FORMAT (A25,' 1012, POOL COULD NOT BE OPENED')\r\n      GO TO  1000\r\n  600 WRITE  (OUTTAP,601) SFM\r\n  601 FORMAT (A25,' 1013, ILLEGAL EOR ON POOL')\r\n      GO TO  1000\r\n  900 WRITE  (OUTTAP,901) SFM,BLOCK(2),CURSNO\r\n  901 FORMAT (A25,' 1014, POOL FILE MIS-POSITIONED ',2I7)\r\n 1000 CALL MESAGE (-37,0,NSOSGN)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xtrnsy.f",
    "content": "      SUBROUTINE X TRNS Y (X,Y,ALPHA)\r\nC*******\r\nC     X TRNS Y  FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA\r\nC*******\r\n      DOUBLE PRECISION   X(1)      ,Y(1)     ,ALPHA\r\n      COMMON   /INVPWX/  AAA       ,NCOL\r\n      ALPHA = 0.D0\r\n      DO 10 I=1,NCOL\r\n   10 ALPHA = ALPHA + X(I)*Y(I)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xtrny1.f",
    "content": "      SUBROUTINE X TRN  Y1(X,Y,ALPHA1)\r\nC     SUBROUTINE X TRNS Y (X,Y,ALPHA)\r\nC*******\r\nC     X TRNS Y  FORMS THE DOT PRODUCT X TRANSPOSE * Y = ALPHA\r\nC*******\r\nC     DOUBLE PRECISION   X(1)      ,Y(1)     ,ALPHA\r\n      DOUBLE PRECISION ALPHA1\r\n      REAL X(1) , Y(1)\r\n      COMMON   /INVPWX/  AAA       ,NCOL\r\n      ALPHA = 0.0\r\n      DO 10 I=1,NCOL\r\n   10 ALPHA = ALPHA + X(I)*Y(I)\r\n      ALPHA1 = ALPHA\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xychar.f",
    "content": "      SUBROUTINE XYCHAR (ROW,COL,CHAR)\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL        LSHIFT,RSHIFT,ANDF,ORF,COMPLF\r\n      LOGICAL         PASS,EXCEED\r\n      DIMENSION       MASK(4)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /SYSTEM/ DUM(38),BPERCH,BPERWD\r\n      COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14),\r\n     1                XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED,\r\n     2                I123,MAXROW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      DATA    PASS  / .FALSE. /\r\nC\r\n      IF (ROW .LE. MAXROW) GO TO 1\r\n      EXCEED = .TRUE.\r\n      RETURN\r\nC\r\n    1 IF (COL.GT.119 .OR. COL.LT.1 .OR. ROW.LT.1) RETURN\r\nC\r\nC     CHAR COMING IN IS ASSUMED LEFT ADJUSTED\r\nC\r\n      IF (PASS) GO TO 20\r\n      PASS = .TRUE.\r\nC\r\nC     SET UP MASKS FIRST TIME THROUGH AFTER LOADING\r\nC\r\n      N = 2**BPERCH  -  1\r\n      ISHIFT = BPERWD - BPERCH\r\n      N = LSHIFT(N,ISHIFT)\r\n      NMASK = N\r\n      DO 10 I = 1,4\r\n      MASK(I) = COMPLF(N)\r\n      N = RSHIFT(N,BPERCH)\r\n   10 CONTINUE\r\nC\r\nC     COMPUTE WORD AND CHARACTER OF WORD\r\nC\r\n   20 IWORD = (COL-1)/4 + 1\r\n      ICHAR = COL - (IWORD-1)*4\r\n      IWORD = (ROW-1)*30 + IWORD\r\nC\r\nC     PACK THE CHARACTER\r\nC\r\n      IF (MACH.EQ.5 .OR. MACH.EQ.6 .OR. MACH.EQ.21) GO TO 30\r\n      LET = RSHIFT(ANDF(CHAR,NMASK),BPERCH*(ICHAR-1))\r\n      Z(IWORD) = ORF(ANDF(Z(IWORD),MASK(ICHAR)),LET)\r\n      RETURN\r\nC\r\nC     VAX, ULTRIX, AND ALPHA\r\nC\r\n   30 Z(IWORD) = KHRFN1(Z(IWORD),ICHAR,CHAR,1)\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xydump.f",
    "content": "      SUBROUTINE XYDUMP (OUTFIL,TYPE)\r\nC\r\n      LOGICAL         PUNCH      ,PLOT       ,PRINT      ,OUTOPN    ,\r\n     1                NULL       ,RANDOM     ,ONES       ,PAPLOT    ,\r\n     2                ON         ,OK         ,INTORE     ,DEC\r\n      INTEGER         ONEONE(2)  ,EOR        ,OUTFIL     ,TCURVE    ,\r\n     1                XAXIS      ,YAXIS      ,YTAXIS     ,YBAXIS    ,\r\n     2                CURVE      ,YCYCLE(2)  ,XCYCLE     ,CENTER    ,\r\n     3                Z          ,LIMIT(2,3) ,STEPS      ,VECTOR    ,\r\n     4                FILE       ,SUBC       ,VECID      ,BUF       ,\r\n     5                BEGIN      ,TYPE       ,TWO1\r\n      REAL            YMIN(2)    ,YMAX(2)    ,VALUE(60)  ,RZ(1)     ,\r\n     1                RBUF(100)  ,IDOUTR(300),YLIMIT(2,3)\r\n      COMMON /MACHIN/ MACHX\r\n      COMMON /BLANK / BLKCOM     ,VARI(3)    ,NFRAME     ,NCARD\r\n      COMMON /TWO   / TWO1(32)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /XYWORK/ FILE       ,TCURVE(32) ,NTOPS      ,PRINT     ,\r\n     1                IFILE      ,XAXIS(32)  ,NBOTS      ,PLOT      ,\r\n     2                VECTOR     ,YAXIS(32)  ,VECID(5)   ,PUNCH     ,\r\n     3                MAJOR      ,YTAXIS(32) ,SUBC(5)    ,CENTER    ,\r\n     4                RANDOM     ,YBAXIS(32) ,IDIN(153)  ,BUF(100)  ,\r\n     5                IVALUE(60) ,IAT        ,IDOUT(300) ,OUTOPN    ,\r\n     6                STEPS      ,NAT        ,PAPLOT\r\n      EQUIVALENCE     (LIMIT(1,1),YLIMIT(1,1)) ,(Z(1),RZ(1)) ,\r\n     1                (BUF(1),RBUF(1)) ,(IDOUT(1),IDOUTR(1)) ,\r\n     2                (IVALUE(1),VALUE(1))\r\n      DATA   ONEONE / 1,1 /, EOR/ 1 /, NOEOR/ 0 /\r\n      DATA   NPAPLT / 0   /\r\nC\r\nC     SET MINIMUM X-DIFFERENCE\r\nC\r\nC     BUT FIRST CONVERT X FROM INTERGER TO REAL IF NECESSARY.\r\nC\r\n      INTORE = .FALSE.\r\n      DEC = MACHX.EQ.5 .OR. MACHX.EQ.6 .OR. MACHX.EQ.21\r\n      J   = 1\r\n      IS1 = STEPS - 1\r\nC\r\nC     NOW SEARCH LIST FOR FIRST NON-ZERO ENTRY\r\nC\r\n   10 IF (Z(IAT+J) .NE. 0) GO TO 20\r\n      J = J + 1\r\n      IF (J .GT. IS1) GO TO 50\r\n      GO TO 10\r\nC\r\nC              UNIVAC             CDC             CRAY\r\n   20 IF (MACHX.EQ.3 .OR. MACHX.EQ.4 .OR. MACHX.EQ.12)\r\n     1   IF (IABS(Z(IAT+J))-TWO1(2)) 40,40,50\r\nC\r\nC     IBM, VAX, UNIX\r\nC\r\n      IF (.NOT.DEC .AND. IABS(Z(IAT+J)).GT.TWO1(9)) GO TO 50\r\n      IF (     DEC .AND. (Z(IAT+J).LT.1 .OR. Z(IAT+J).GT.127)) GO TO 50\r\n   40 INTORE = .TRUE.\r\n      IF (J .EQ. 1) RZ(IAT+J) = Z(IAT+J)\r\nC\r\n   50 OK = .FALSE.\r\n      DO 70 I = 1,IS1\r\n      J = IAT + I\r\n      IF (INTORE) RZ(J+1) = Z(J+1)\r\n      DIFF = RZ(J+1) - RZ(J)\r\n      IF (.NOT.OK) GO TO 60\r\n      IF (DIFF .EQ. 0.0) GO TO 70\r\n      XINC = AMIN1(XINC,DIFF)\r\n      GO TO 70\r\n   60 IF (DIFF .EQ. 0.0) GO TO 70\r\n      XINC = DIFF\r\n      OK   = .TRUE.\r\n   70 CONTINUE\r\n      IF (.NOT.OK) XINC = 1.0\r\nC\r\nC     SET XMIN AND XMAX FOR ALL DATA\r\nC\r\n      XCYCLE    = 0\r\n      YCYCLE(1) = 0\r\n      YCYCLE(2) = 0\r\n      XMIN = RZ(IAT+1)\r\n      J    = IAT + STEPS\r\n      XMAX = RZ(J)\r\nC\r\nC     REDUCE THESE LIMITS TO USER SPECIFIED LIMITS\r\nC\r\n      IF (IVALUE(1) .NE. 1) XMIN = (VALUE(1))\r\n      IF (IVALUE(2) .NE. 1) XMAX = (VALUE(2))\r\nC\r\nC     FURTHER EXPAND XLIMITS TO INCLUDE Y-AXIS INTERCEPT\r\nC\r\n      IF (IVALUE(9) .EQ. 1) GO TO 80\r\n      IF (IVALUE(36).EQ.1 .AND. VALUE(9).LE.0.0) GO TO 90\r\n      XMIN = AMIN1(XMIN,VALUE(9))\r\n      XMAX = AMAX1(XMAX,VALUE(9))\r\nC\r\nC     IF X-DIRECTION IS LOG AND XMIN IS NEGATIVE OR ZERO, SET YMIN\r\nC     EQUAL TO THE SMALLEST NON-ZERO POSITIVE VALUE\r\nC\r\n   80 IF (IVALUE(36) .NE. 1) GO TO 130\r\n   90 IF (XMIN    .GT.  0.0) GO TO 120\r\n      DO 100 I = 1,STEPS\r\n      J = IAT + I\r\n      IF (RZ(J) .GT. 0.0) GO TO 110\r\n  100 CONTINUE\r\n      XMIN = 1.0\r\n      XMAX = 10.\r\n      GO TO 120\r\n  110 XMIN = RZ(J)\r\n  120 CALL XYLOG (XMIN,XMAX,XCYCLE)\r\nC\r\nC     SWITCH XMIN AND XMAX (SAFETY CHECK) IF NECESSARY\r\nC\r\n  130 IF (XMIN .LE. XMAX) GO TO 140\r\n      TEMP = XMIN\r\n      XMIN = XMAX\r\n      XMAX = TEMP\r\nC\r\nC     USING XMIN AND XMAX AS LIMITS DETERMINE Y-LIMITS FOR TOP AND\r\nC     BOTTOM.\r\nC\r\nC     I1 = FIRST STEP WITHIN XMIN TO XMAX\r\nC     I2 = LAST  STEP WITHIN XMIN TO XMAX\r\nC\r\nC     FIRST FIND I1 AND I2\r\nC\r\n  140 DO 150 I = 1,STEPS\r\n      J = IAT + I\r\n      IF (XMIN.LE.RZ(J) .AND. RZ(J).LE.XMAX) GO TO 160\r\n  150 CONTINUE\r\n      I1 = 0\r\n      GO TO 180\r\n  160 I1 = I\r\n      J  = IAT + STEPS + 1\r\n      DO 170 I = 1,STEPS\r\n      J = J - 1\r\n      IF (XMIN.LE.RZ(J) .AND. RZ(J).LE.XMAX) GO TO 190\r\n  170 CONTINUE\r\n  180 I2 = 0\r\n      GO TO 200\r\n  190 I2 = J - IAT\r\n  200 IF (I1 .NE. 0) GO TO 210\r\nC\r\nC     FIND FOLLOWING VALUES FOR CURVES AS A GROUP\r\nC\r\nC    YLIMIT(1,1)=YMIN TOP, YLIMIT(1,2)=YMAX TOP, YLIMIT(1,3)=MIN POS TOP\r\nC    YLIMIT(2,1)=YMIN BOT, YLIMIT(2,2)=YMAX BOT, YLIMIT(2,3)=MIN POS BOT\r\nC\r\n      YMIN(1) = 0.0\r\n      YMIN(2) = 0.0\r\n      YMAX(1) = 10.\r\n      YMAX(2) = 10.\r\n      GO TO 330\r\n  210 M = 1\r\n      IF (NBOTS .NE. 0) M = 2\r\n      BEGIN = IAT\r\n      DO 280 I = 1,M\r\n      LIMIT(I,1) = 1\r\n      LIMIT(I,2) = 1\r\n      LIMIT(I,3) = 1\r\n      DO 260 J = 1,NTOPS\r\n      K  = J*STEPS + BEGIN\r\n      J1 = K + I1\r\n      J2 = K + I2\r\n      IF (LIMIT(I,1) .NE. 1) GO TO 240\r\nC\r\nC     FIND FIRST NON-INTEGER 1 VALUE\r\nC\r\n      DO 220 K = J1,J2\r\n      IF (Z(K) .NE. 1) GO TO 230\r\n  220 CONTINUE\r\n      GO TO 260\r\n  230 YLIMIT(I,1) = RZ(K)\r\n      YLIMIT(I,2) = RZ(K)\r\n  240 DO 250 K = J1,J2\r\n      IF (Z(K) .EQ. 1) GO TO 250\r\n      YLIMIT(I,1) = AMIN1(RZ(K),YLIMIT(I,1))\r\n      YLIMIT(I,2) = AMAX1(RZ(K),YLIMIT(I,2))\r\n      IF (RZ(K) .LE. 0.0) GO TO 250\r\n      IF (LIMIT(I,3) .EQ. 1) YLIMIT(I,3) = RZ(K)\r\n      YLIMIT(I,3) = AMIN1(YLIMIT(I,3),RZ(K))\r\n  250 CONTINUE\r\n  260 CONTINUE\r\n      BEGIN = CENTER\r\nC\r\nC     DEFAULT YLIMITS IF ALL CURVES NULL\r\nC\r\n      IF (LIMIT(I,1) .NE. 1) GO TO 270\r\n      YLIMIT(I,1) = 0.0\r\n      YLIMIT(I,2) = 100.\r\n  270 IF (LIMIT(I,3) .EQ. 1) YLIMIT(I,3) = 10.0\r\nC\r\n  280 CONTINUE\r\nC\r\nC     SET FINAL Y-LIMITS FOR UPPER AND LOWER CURVES\r\nC\r\nC\r\nC     K=1 IMPLIES WHOLE CURVES\r\nC     K=2 IMPLIES UPPER AND LOWER CURVES\r\nC\r\n      K = 1\r\n      IF (NBOTS .GT. 0) K = 2\r\n      DO 320 I = 1,K\r\n      YMIN(I) = YLIMIT(I,1)\r\n      YMAX(I) = YLIMIT(I,2)\r\nC\r\nC     REDUCE THESE CURVE LIMITS TO LIMITS SET BY USER\r\nC\r\n      ITEMP = 2*(I+K)\r\n      IF (IVALUE(ITEMP-1) .NE. 1) YMIN(I) = (VALUE(ITEMP-1))\r\n      IF (IVALUE(ITEMP  ) .NE. 1) YMAX(I) = (VALUE(ITEMP  ))\r\nC\r\nC     FURTHER EXPAND LIMITS TO INCLUDE X-AXIS\r\nC\r\n      ITEMP = I + K\r\n      IF (IVALUE(ITEMP+8) .EQ. 1) GO TO 290\r\n      IF (IVALUE(ITEMP+35).EQ.1 .AND. VALUE(ITEMP+8).LE.0.E0) GO TO 300\r\n      YMIN(I) = AMIN1(YMIN(I),VALUE(ITEMP+8))\r\n      YMAX(I) = AMAX1(YMAX(I),VALUE(ITEMP+8))\r\nC\r\nC     IF Y-DIRECTION IS LOG AND YMIN IS NEGATIVE OR ZERO SET YMIN\r\nC     EQUAL TO SMALLEST POSITIVE CURVE VALUE WITHIN XLIMITS\r\nC\r\n  290 IF (IVALUE(ITEMP+35) .NE. 1) GO TO 310\r\n  300 IF (YMIN(I) .LE. 0.0) YMIN(I) = YLIMIT(I,3)\r\n      CALL XYLOG (YMIN(I),YMAX(I),YCYCLE(I))\r\nC\r\nC     SWITCH YMIN AND YMAX (SAFETY CHECK) IF NECESSARY\r\nC\r\n  310 IF (YMIN(I) .LE. YMAX(I)) GO TO 320\r\n      TEMP    = YMIN(I)\r\n      YMIN(I) = YMAX(I)\r\n      YMAX(I) = TEMP\r\n  320 CONTINUE\r\nC\r\nC     ALL CURVE LIMITS HAVE NOW BEEN SET FOR THIS FRAME\r\nC\r\nC\r\nC     OUTPUT EACH CURVE AND AN IDOUT RECORD IF PLOTS = .TRUE.\r\nC\r\nC     FILL IDOUT\r\nC\r\n  330 DO 340 I = 1,300\r\n  340 IDOUT(I) = 0\r\n      IF (PLOT .AND. OUTOPN) NFRAME = NFRAME + 1\r\n      IDOUT(1) = SUBC(FILE)\r\n      IDOUT(2) = NFRAME\r\n      IDOUT(6) = VECTOR\r\n      IDOUT(9) = IVALUE(45)\r\n      IF (IVALUE(43) .EQ. 0) VALUE(43) = 1.0\r\n      IDOUT(43)  = IVALUE(43)\r\n      IDOUTR(10) = XINC\r\n      IDOUT(245) = TYPE\r\n      IDOUT(246) = STEPS\r\n      IDOUTR(282)= VALUE(57)\r\n      IF (IDOUTR(282) .LT. 1.0) IDOUTR(282) = 1.0\r\n      IDOUT(283) = IVALUE(50)\r\n      IF (IVALUE(47) .EQ. 3) IDOUT(283) = IVALUE(41)\r\n      IDOUT(284) = IVALUE(47)\r\n      IDOUT(285) = IVALUE(48)\r\n      IDOUT(286) = IVALUE(49)\r\n      IDOUT(287) = IVALUE(46)\r\n      IDOUT( 44) = IVALUE(58)\r\n      IDOUT( 45) = IVALUE(59)\r\n      IF (PRINT) IDOUT(288) = 1\r\n      IF (PLOT ) IDOUT(289) = 1\r\n      IF (.NOT.PAPLOT) GO TO 350\r\n      IF (.NOT.PLOT) IDOUT(289) = -1\r\n      IF (     PLOT) IDOUT(289) =  2\r\n      NPAPLT = NPAPLT+1\r\n      IDOUT(281) = NPAPLT\r\n  350 ON = .FALSE.\r\n      IF (PLOT .OR. PAPLOT) ON = .TRUE.\r\n      IF (PUNCH) IDOUT(290) = 1\r\n      DO 360 I = 51,146\r\n  360 IDOUT(I) = IDIN(I)\r\nC\r\nC     BRANCH ON TOP, BOTTOM, OR WHOLE CURVE (FIRST WILL BE TOP OR WHOLE)\r\nC\r\n      I = 3\r\n      IF (Z(I).EQ.0 .OR. RANDOM) GO TO 400\r\nC\r\nC     TOP CURVE ID\r\nC\r\n      CURVE = 0\r\n      IDOUT(7) = 1\r\n      IDOUT(8) = 1\r\n      IDOUTR(11) = XMIN\r\n      IDOUTR(12) = XMAX\r\n      IDOUTR(13) = YMIN(1)\r\n      IDOUTR(14) = YMAX(1)\r\n      IFLAG = 0\r\n      IF (INTORE) IFLAG = 1\r\n      CALL XYTICS (IDOUT(15),IDOUTR(15),IVALUE(17),IDOUT(11) ,\r\n     1             IDOUT(12),IVALUE(21),XCYCLE,IFLAG)\r\n      CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(19),IDOUT(13),\r\n     1             IDOUT(14),IVALUE(23),YCYCLE(1),0)\r\n      IDOUT(31) = IVALUE(34) + IVALUE(25)\r\n      IDOUT(32) = IVALUE(34) + IVALUE(26)\r\n      IDOUT(33) = IVALUE(34) + IVALUE(29)\r\n      IDOUT(34) = IVALUE(34) + IVALUE(30)\r\n      IDOUT(35) = XCYCLE\r\n      IDOUT(36) = YCYCLE(1)\r\n      IDOUT(37) = IVALUE(15)\r\n      IDOUT(38) = IVALUE(11)\r\n      IF (IDOUT(38)  .EQ. 1) IDOUTR(38) = 0.0\r\n      IF (IDOUTR(38) .LT. YMIN(1)) IDOUT(37) = 0\r\n      IDOUT(39) = IVALUE(14)\r\n      IDOUT(40) = IVALUE( 9)\r\n      IF (IDOUT(40)  .EQ. 1) IDOUTR(40) = 0.0\r\n      IF (IDOUTR(40) .LT. XMIN) IDOUT(39) = 0\r\n      IDOUT(41) = IVALUE(40)\r\n      IDOUT(243) = IVALUE(53)\r\n      IDOUT(244) = IVALUE(54)\r\n      DO 370 I=1,32\r\n      IDOUT(I+146) = TCURVE(I)\r\n      IDOUT(I+178) = XAXIS(I)\r\n      IDOUT(I+210) = YTAXIS(I)\r\n  370 CONTINUE\r\n      GO TO 420\r\nC\r\nC     BOTTOM CURVE ID (SET ONLY VALUES THAT CHANGE FROM THE TOP CURVES)\r\nC\r\n  380 CURVE = 0\r\n      IDOUT(7)   = -1\r\n      IDOUTR(13) = YMIN(2)\r\n      IDOUT(8)   = 1\r\n      IDOUTR(14) = YMAX(2)\r\n      CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(20),IDOUT(13),\r\n     1             IDOUT(14),IVALUE(24),YCYCLE(2),0)\r\n      IDOUT(31) = IVALUE(35) + IVALUE(25)\r\n      IDOUT(32) = IVALUE(35) + IVALUE(26)\r\n      IDOUT(33) = IVALUE(35) + IVALUE(31)\r\n      IDOUT(34) = IVALUE(35) + IVALUE(32)\r\n      IDOUT(36) = YCYCLE(2)\r\n      IDOUT(37) = IVALUE(16)\r\n      IDOUT(38) = IVALUE(12)\r\n      IF (IDOUT(38)  .EQ. 1) IDOUTR(38) = 0.0\r\n      IF (IDOUTR(38) .LT. YMIN(2)) IDOUT(37) = 0\r\n      IDOUT(243) = IVALUE(55)\r\n      IDOUT(244) = IVALUE(56)\r\n      DO 390 I = 1,32\r\n      IDOUT(I+146) = TCURVE(I)\r\n      IDOUT(I+178) = XAXIS(I)\r\n      IDOUT(I+210) = YBAXIS(I)\r\n  390 CONTINUE\r\n      IPAIR = CENTER + STEPS\r\n      GO TO 430\r\nC\r\nC     WHOLE CURVE ID\r\nC\r\n  400 CURVE = 0\r\n      IDOUT(7) = 0\r\n      IDOUT(8) = 1\r\n      IDOUTR(11) = XMIN\r\n      IDOUTR(12) = XMAX\r\n      IDOUTR(13) = YMIN(1)\r\n      IDOUTR(14) = YMAX(1)\r\n      IFLAG = 0\r\n      IF (INTORE) IFLAG = 1\r\n      CALL XYTICS (IDOUT(15),IDOUTR(15),IVALUE(17),IDOUT(11),\r\n     1             IDOUT(12),IVALUE(21),XCYCLE,IFLAG)\r\n      CALL XYTICS (IDOUT(23),IDOUTR(23),IVALUE(18),IDOUT(13),\r\n     1             IDOUT(14),IVALUE(22),YCYCLE(1),0)\r\n      IDOUT(31) = IVALUE(33) + IVALUE(25)\r\n      IDOUT(32) = IVALUE(33) + IVALUE(26)\r\n      IDOUT(33) = IVALUE(33) + IVALUE(27)\r\n      IDOUT(34) = IVALUE(33) + IVALUE(28)\r\n      IDOUT(35) = XCYCLE\r\n      IDOUT(36) = YCYCLE(1)\r\n      IDOUT(37) = IVALUE(13)\r\n      IDOUT(38) = IVALUE(10)\r\n      IF (IDOUT(38)  .EQ. 1) IDOUT(38) = 0.0\r\n      IF (IDOUTR(38) .LT. YMIN(1)) IDOUT(37) = 0\r\n      IDOUT(39) = IVALUE(14)\r\n      IDOUT(40) = IVALUE( 9)\r\n      IF (IDOUT(40)  .EQ. 1) IDOUTR(40) = 0.0\r\n      IF (IDOUTR(40) .LT. XMIN) IDOUT(39) = 0\r\n      IDOUT(41 ) = IVALUE(40)\r\n      IDOUT(243) = IVALUE(51)\r\n      IDOUT(244) = IVALUE(52)\r\n      DO 410 I=1,32\r\n      IDOUT(I+146) = TCURVE(I)\r\n      IDOUT(I+178) = XAXIS(I)\r\n      IDOUT(I+210) = YAXIS(I)\r\n  410 CONTINUE\r\n      GO TO 420\r\nC\r\nC     IDOUT IS COMPLETE   OUTPUT CURVES\r\nC\r\n  420 ASSIGN 590 TO ICONT\r\n      IPAIR = IAT + STEPS\r\n      N = 1\r\nC\r\n  430 MCOUNT = 0\r\n      DO 580 M = 1,NAT,3\r\n      MCOUNT = MCOUNT + 1\r\nC\r\nC     CURVE NUMBER, ID, COMPONENT\r\nC\r\n      IDOUT(4) = Z(M)\r\n      ITEMP = M + N\r\n      IDOUT(5) = Z(ITEMP)\r\n      IF (IDOUT(5) .NE. 1000) CURVE = CURVE + 1\r\n      IDOUT(3) = CURVE\r\nC\r\nC     MEAN RESPONSE IN PLACE OF SUBCASE IF RANDOM\r\nC\r\n      IF (RANDOM) IDOUT(1) = Z(ITEMP+1)\r\nC\r\nC     SET NUMBER OF ZERO CROSSINGS IF RANDOM\r\nC\r\n      IF (RANDOM) IDOUT(42) = BUF(MCOUNT+20)\r\nC\r\nC     COMPUTE Y1 = YMIN  AND Y2 = YMAX  FOR ALL DATA FOR THIS CURVE\r\nC\r\n      BEGIN = IPAIR + MCOUNT*STEPS - STEPS\r\n      NULL  = .TRUE.\r\n      DO 460 K = 1,STEPS\r\n      I = BEGIN + K\r\n      IF (Z(I) .EQ. 1) GO TO 460\r\n      IF (.NOT.NULL  ) GO TO 440\r\n      NX1 = K\r\n      NX2 = K\r\n      Y1  = RZ(I)\r\n      Y2  = RZ(I)\r\n      NULL= .FALSE.\r\n      GO TO 460\r\n  440 IF (RZ(I) .GE. Y1) GO TO 450\r\n      Y1  = RZ(I)\r\n      NX1 = K\r\n      GO TO 460\r\n  450 IF (RZ(I) .LE. Y2) GO TO 460\r\n      Y2  = RZ(I)\r\n      NX2 = K\r\n  460 CONTINUE\r\nC\r\n      IF (.NOT.NULL) GO TO 470\r\n      IDOUTR(297) = 0.0\r\n      IDOUTR(298) = 0.0\r\n      IDOUTR(299) = 0.0\r\n      IDOUTR(300) = 0.0\r\n      GO TO 480\r\n  470 NX1 = NX1 + IAT\r\n      NX2 = NX2 + IAT\r\n      IDOUTR(297) = Y1\r\n      IDOUTR(298) = RZ(NX1)\r\n      IDOUTR(299) = Y2\r\n      IDOUTR(300) = RZ(NX2)\r\nC\r\nC     COMPUTE Y1 AND Y2 FOR DATA BETWEEN XMIN AND XMAX\r\nC\r\n  480 NULL = .TRUE.\r\n      IF (I1 .EQ. 0) GO TO 520\r\n      DO 510 K = I1,I2\r\n      I = BEGIN + K\r\n      IF (Z(I) .EQ. 1) GO TO 510\r\n      IF (.NOT.NULL  ) GO TO 490\r\n      NX1 = K\r\n      NX2 = K\r\n      Y1  = RZ(I)\r\n      Y2  = RZ(I)\r\n      NULL= .FALSE.\r\n      GO TO 510\r\n  490 IF (RZ(I) .GE. Y1) GO TO 500\r\n      Y1  = RZ(I)\r\n      NX1 = K\r\n      GO TO 510\r\n  500 IF (RZ(I) .LE. Y2) GO TO 510\r\n      Y2  = RZ(I)\r\n      NX2 = K\r\n  510 CONTINUE\r\n      IF (.NOT.NULL) GO TO 530\r\n  520 IDOUTR(293) = 0.0\r\n      IDOUTR(294) = 0.0\r\n      IDOUTR(295) = 0.0\r\n      IDOUTR(296) = 0.0\r\n      GO TO 540\r\n  530 NX1 = NX1 + IAT\r\n      NX2 = NX2 + IAT\r\n      IDOUTR(293) = Y1\r\n      IDOUTR(294) = RZ(NX1)\r\n      IDOUTR(295) = Y2\r\n      IDOUTR(296) = RZ(NX2)\r\nC\r\n  540 IDOUTR(291) = RZ(IAT+1)\r\n      ITEMP = IAT + STEPS\r\n      IDOUTR(292) = RZ(ITEMP)\r\nC\r\nC     IDOUT IS COMPLETE FOR THIS CURVE\r\nC\r\n      IF (IDOUT(5).NE.0 .AND. IDOUT(5).NE.1000)\r\n     1    CALL XYOUT (-1,IDOUT(1),IDOUTR(1))\r\n      IF (ON) CALL WRITE (OUTFIL,IDOUT(1),300,EOR)\r\n      IDOUT(8) = 0\r\nC\r\nC     DUMP ALL PAIRS TO PRINTER AND PUNCH,  THOSE IN RANGE TO PLOTTER\r\nC\r\n      Y1 = IDOUTR(13)\r\n      Y2 = IDOUTR(14)\r\n      IF (ON) CALL WRITE (OUTFIL,ONEONE(1),2,NOEOR)\r\n      ONES = .TRUE.\r\n      IF (IDOUT(5) .EQ. 1000) GO TO 570\r\n      DO 560 K = 1,STEPS\r\n      I = BEGIN + K\r\n      J = IAT + K\r\n      BUF(1) = Z(J)\r\n      BUF(2) = Z(I)\r\n      IF (Z(I) .EQ. 1) GO TO 560\r\n      IF (K.LT.I1 .OR. K.GT.I2) GO TO 560\r\n      IF (PRINT .OR. PUNCH) CALL XYOUT (1,BUF(1),RBUF(1))\r\n      IF (RZ(I).LT.Y1 .OR. RZ(I).GT.Y2) GO TO 550\r\n      IF (ON) CALL WRITE (OUTFIL,BUF(1),2,NOEOR)\r\n      ONES = .FALSE.\r\n      GO TO 560\r\n  550 IF (ONES) GO TO 560\r\n      IF (ON) CALL WRITE (OUTFIL,ONEONE(1),2,NOEOR)\r\n      ONES = .TRUE.\r\n  560 CONTINUE\r\n  570 IF (ON) CALL WRITE (OUTFIL,BUF(1),0,EOR)\r\n  580 CONTINUE\r\nC\r\n      GO TO ICONT, (590,600)\r\nC\r\nC     DO BOTTOM CURVES IF ANY\r\nC\r\n  590 ASSIGN 600 TO ICONT\r\n      N = 2\r\n      IF (IDOUT(7) .GT. 0) GO TO 380\r\n  600 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xyfind.f",
    "content": "      SUBROUTINE XYFIND (*,*,*,MAJID,IDZ)\r\nC\r\n      LOGICAL         RANDOM    ,RETRY\r\n      INTEGER         MAJID(11) ,FILE      ,VECTOR    ,VECID   ,\r\n     1                Z         ,EOR       ,FLAG      ,SUBC\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /XYWORK/ FILE      ,TCURVE(32),NTOPS     ,PRINT   ,\r\n     1                IFILE     ,XAXIS(32) ,NBOTS     ,PLOT    ,\r\n     2                VECTOR    ,YAXIS(32) ,VECID(5)  ,PUNCH   ,\r\n     3                MAJOR     ,YTAXIS(32),SUBC(5)   ,CENTER  ,\r\n     4                RANDOM    ,YBAXIS(32),IDIN(153) ,BUF(100),\r\n     5                IVALUE(60),IAT       ,IDOUT(300),OUTOPN  ,\r\n     6                STEPS     ,NAT       ,PAPLOT    ,KNT\r\n      DATA    EOR   / 1 /\r\nC\r\nC     THIS SUBROUTINE LOCATES THE ID RECORD FOR A PARTICULAR ELEMENT OR\r\nC     POINT ID AND IF THIS IS A RANDOM PLOT IT CONSIDERS THE COMPONENT\r\nC\r\n      K = 1\r\n      RETRY = .FALSE.\r\n      ITEMP = IDZ\r\n      IF (SUBC(FILE)) 15,1,1\r\n    1 CONTINUE\r\n      IF (KNT) 3,15,7\r\n    3 CONTINUE\r\n      ISAV = IDIN(4)\r\n    5 CALL READ (*80,*110,IFILE,IDIN(1),146,1,FLAG)\r\n      IF (ISAV .EQ. IDIN(4)) GO TO 21\r\n      CALL FWDREC (*100,IFILE)\r\n      GO TO 5\r\n    7 CONTINUE\r\n      ISAV = IDIN(4)\r\n      GO TO 11\r\n    9 CALL FWDREC (*100,IFILE)\r\n   11 CALL READ (*80,*110,IFILE,IDIN(1),146,1,FLAG)\r\n      IF (IDIN(4) .EQ. ISAV) GO TO 9\r\n      GO TO 21\r\n   15 CALL REWIND (IFILE)\r\n      CALL FWDREC (*100,IFILE)\r\n      VECID(FILE) = 0\r\n   20 CALL READ (*80,*110,IFILE,IDIN(1),146,EOR,FLAG)\r\n   21 CONTINUE\r\n      IF (MAJOR .NE. IDIN(2)) GO TO 25\r\n      IF (SUBC(FILE) .EQ.  0) GO TO 30\r\n      IF (SUBC(FILE) .EQ. IDIN(4)) GO TO 30\r\n   25 CONTINUE\r\n      CALL FWDREC (*100,IFILE)\r\n      K = K + 1\r\n      GO TO 20\r\nC\r\nC     MATCH ON MAJOR ID MADE\r\nC\r\n   30 VECID(FILE) = VECTOR\r\n   40 IF (IDIN(5)/10 .EQ. Z(IDZ)) GO TO 90\r\n      ITEMP = -1\r\n   50 CALL FWDREC (*100,IFILE)\r\n      CALL READ (*80,*110,IFILE,IDIN(1),146,EOR,FLAG)\r\n      IF (MAJOR .EQ. IDIN(2)) GO TO 40\r\nC\r\nC     ELEMENT DATA ARE NOT IN ASCENDING SORT LIKE GRID DATA, BUT ARE\r\nC     SORTED BY ELEMENT NAME, THEN BY ELEMENT NUMBER.\r\nC     SINCE IT IS POSSIBLE FOR THE DESIRED ELEMENT TO BE AHEAD OF THE\r\nC     CURRENT POSITION OF FILE, REWIND AND TRY AGAIN TO FIND MISSING\r\nC     ELEMENT DATA FOR FORCES AND STRESSES.\r\nC\r\n   80 IF (KNT.EQ.0 .OR. RETRY .OR. SUBC(FILE).EQ.0) GO TO 82\r\n      RETRY = .TRUE.\r\n      GO TO 15\r\n   82 IF (SUBC(FILE) .NE. 0) GO TO 85\r\n      SUBC(FILE) = -1\r\n      RETURN\r\nC\r\n   85 CONTINUE\r\n      VECID(FILE) = 0\r\n      IDZ = ITEMP\r\n      CALL REWIND (IFILE)\r\n      CALL FWDREC (*100,IFILE)\r\n      RETURN 3\r\nC\r\nC     IF RANDOM CHECK COMPONENT FOR MATCH\r\nC\r\n   90 IF (Z(IDZ+1).NE.IDIN(6) .AND. RANDOM) GO TO 50\r\n      IF (SUBC(FILE) .EQ. 0) RETURN\r\n      IF (SUBC(FILE) .NE. IDIN(4)) GO TO 50\r\n      RETURN\r\nC\r\nC     EOF HIT WHEN AN EOF SHOULD NOT HAVE BEEN HIT\r\nC\r\n  100 RETURN 1\r\nC\r\nC     EOR HIT WHEN AN EOR SHOULD NOT HAVE BEEN HIT\r\nC\r\n  110 RETURN 2\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/xygraf.f",
    "content": "      SUBROUTINE XYGRAF (GRAPH)\r\nC\r\n      LOGICAL         EXCEED\r\n      INTEGER         Z,TITLEC,XTITLE,TITLEL,TITLER,SYSBUF,M(5),\r\n     1                NU(5,10)\r\n      REAL            GRAPH(3,8)\r\n      CHARACTER       UFM*23,UWM*25,UIM*29\r\n      COMMON /XMSSG / UFM,UWM,UIM\r\n      COMMON /SYSTEM/ SYSBUF,L,IDUM(6),NLPP,IDUM2(2),LINES,ITLNS\r\n      COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14),\r\n     1                XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED,I123,\r\n     2                MAXROW\r\n      COMMON /ZZZZZZ/ Z(1)\r\nC\r\n      DATA    NU(1, 1),NU(1, 2),NU(1, 3) /  4H****   ,4H **   ,4H**** /,\r\n     1        NU(2, 1),NU(2, 2),NU(2, 3) /  4H*  *   ,4H  *   ,4H   * /,\r\n     2        NU(3, 1),NU(3, 2),NU(3, 3) /  4H*  *   ,4H  *   ,4H  *  /,\r\n     3        NU(4, 1),NU(4, 2),NU(4, 3) /  4H*  *   ,4H  *   ,4H *   /,\r\n     4        NU(5, 1),NU(5, 2),NU(5, 3) /  4H****   ,4H****  ,4H**** /\r\nC\r\n      DATA    NU(1, 4),NU(1, 5),NU(1, 6) /  4H****   ,4H* *   ,4H**** /,\r\n     1        NU(2, 4),NU(2, 5),NU(2, 6) /  4H   *   ,4H* *   ,4H*    /,\r\n     2        NU(3, 4),NU(3, 5),NU(3, 6) /  4H ***   ,4H****  ,4H**** /,\r\n     3        NU(4, 4),NU(4, 5),NU(4, 6) /  4H   *   ,4H  *   ,4H   * /,\r\n     4        NU(5, 4),NU(5, 5),NU(5, 6) /  4H****   ,4H  *   ,4H**** /\r\nC\r\n     1        NU(1, 7),NU(1, 8),NU(1, 9) /  4H****   ,4H****  ,4H**** /,\r\n     2        NU(2, 7),NU(2, 8),NU(2, 9) /  4H*      ,4H   *  ,4H*  * /,\r\n     3        NU(3, 7),NU(3, 8),NU(3, 9) /  4H****   ,4H  *   ,4H**** /,\r\n     4        NU(4, 7),NU(4, 8),NU(4, 9) /  4H*  *   ,4H *    ,4H*  * /,\r\n     5        NU(5, 7),NU(5, 8),NU(5, 9) /  4H****   ,4H*     ,4H**** /\r\nC\r\n      DATA    NU(1,10)                   /  4H****   /,\r\n     1        NU(2,10)                   /  4H*  *   /,\r\n     2        NU(3,10)                   /  4H****   /,\r\n     3        NU(4,10)                   /  4H   *   /,\r\n     4        NU(5,10)                   /  4H****   /\r\nC\r\n      CALL PAGE1\r\nC\r\nC     GRAPH HEADING DATA\r\nC\r\n      IF (IFRAME.LT.0 .OR. IFRAME.GT.99999) IFRAME = 0\r\n      N  = 100000\r\n      DO 10 I = 1,5\r\n      N  = N/10\r\n      M(I) = IFRAME/N\r\n      IFRAME = IFRAME - M(I)*N\r\n   10 M(I) = M(I) + 1\r\n      N1 = M(1)\r\n      N2 = M(2)\r\n      N3 = M(3)\r\n      N4 = M(4)\r\n      N5 = M(5)\r\n      LINES = LINES + 21\r\n      ITLNS = ITLNS + 21\r\n      WRITE  (L,20) (NU(I,N1),NU(I,N2),NU(I,N3),NU(I,N4),NU(I,N5),I=1,5)\r\n   20 FORMAT (1H0,60X,25HF     R     A     M     E, //,\r\n     1       5(59X,A4,2X,A4,2X,A4,2X,A4,2X,A4,/))\r\n      WRITE  (L,30) TITLEC,(XTITLE(I),I=1,28)\r\n   30 FORMAT (1H0,4X,31A4,A3, /1H0,4X,15HX-AXIS TITLE = ,28A4,/1H0)\r\nC\r\n      IF (I123 .EQ. 1) GO TO 70\r\nC\r\nC     DUAL FRAME TITLE FRAME\r\nC\r\n      WRITE  (L,60)\r\n      WRITE  (L,40) TITLEL, TITLER\r\n   40 FORMAT (13X,1HI,57X,3HI I,57X,1HI, /13X,2HI ,14A4,4HI I ,14A4,1HI,\r\n     1       /13X,1HI,57X,3HI I,57X,1HI)\r\n      WRITE  (L,50) (GRAPH(I,6),GRAPH(I,7),GRAPH(I,8),I=2,3)\r\n   50 FORMAT (12X,2(2H I,1P,E14.6,1P,E21.6,1P,E21.6,2H I))\r\n   60 FORMAT (13X,1H+,57(1H-),3H+ +,57(1H-),1H+)\r\n      WRITE  (L,60)\r\n      GO TO 110\r\nC\r\nC     WHOLE FRAME TITLE FRAME\r\nC\r\n   70 WRITE  (L,80)\r\n      WRITE  (L,90) TITLEL\r\n   80 FORMAT (13X,1H+,117(1H-),1H+)\r\n   90 FORMAT (13X,1HI,117X,1HI/13X,2HI ,14A4,60X,1HI, /13X,1HI,117X,1HI)\r\n      WRITE  (L,100) GRAPH(1,6),GRAPH(1,7),GRAPH(1,8)\r\n  100 FORMAT (13X,1HI,1P,E14.6,37X,1P,E14.6,37X,1P,E14.6,2H I)\r\n      WRITE  (L,80)\r\nC\r\nC     DUMP GRAPH\r\nC\r\n  110 F     = XMIN - XINC\r\n      DO 160 I = 1,MAXPLT\r\n      TEMP  = F + FLOAT(I)*XINC\r\n      I1    = (I-1)*30 + 1\r\n      I2    = I1 + 29\r\n      LINES = LINES + 1\r\n      ITLNS = ITLNS + 1\r\n      IF (LINES-NLPP) 120,120,140\r\n  120 CONTINUE\r\n      WRITE  (L,130) TEMP,(Z(J),J=I1,I2)\r\n  130 FORMAT (1X,1P,E11.4,1X,29A4,A3)\r\n      GO TO 160\r\n  140 LINES = 1\r\n      WRITE  (L,150) TEMP,(Z(J),J=I1,I2)\r\n  150 FORMAT (1H1,1P,E11.4,1X,29A4,A3)\r\n  160 CONTINUE\r\nC\r\n      IF (I123 .EQ. 1) GO TO 170\r\n      WRITE (L,60)\r\n      GO TO 180\r\n  170 WRITE (L,80)\r\nC\r\n  180 IF (EXCEED) WRITE (L,190) UIM\r\n      EXCEED = .FALSE.\r\n  190 FORMAT (A29,'. THERE WERE MORE POINTS BELOW THIS POINT WHICH WE',\r\n     1       'ARE NOT PLOTTED HERE',/5X,'DUE TO CORE RESTRICTION')\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xylog.f",
    "content": "      SUBROUTINE XYLOG( V1, V2, CYCLES )\r\n      INTEGER CYCLES, POWER1, POWER2\r\nC*****\r\nC  THIS SUBROUTINE TAKES V1 AND V2 REGARDLESS OF THEIR VALUES\r\nC  AND COMPUTES A LOG SCALE OF AT LEAST 1 CYCLE...\r\nC*****\r\n      IF( V1 .GT. 0.0E0 ) GO TO 20\r\n      IF( V2 .GT. 0.0E0 ) GO TO 10\r\nC\r\nC     V1 AND V2 ARE BOTH NEGATIVE OR ZERO.  SET ARBITRARY LIMITS\r\nC\r\n    5 V1 = 1.0E-5\r\n      V2 = 1.0E+5\r\n      CYCLES = 10\r\n      RETURN\r\nC\r\nC     V2 IS POSITIVE BUT V1 IS NEGATIVE OR 0\r\nC\r\n   10 V1 = V2 * 1.0E-5\r\n      GO TO 40\r\nC\r\n   20 IF( V2 .GT. 0.0E0 ) GO TO 30\r\nC\r\nC     V1 IS POSITIVE BUT V2 IS NEGATIVE OR 0\r\nC\r\n      V2 = V1 * 1.0E+5\r\n      GO TO 40\r\nC\r\n   30 IF( V2 .GT. V1 ) GO TO 40\r\n      TEMP = V1\r\n      V1 = V2\r\n      V2 = TEMP\r\nC\r\nC     RAISE V2 TO POWER OF 10,  LOWER V1 TO POWER OF 10\r\nC\r\n   40 POWER1 = 0\r\nCWKBR 9/93  50 IF( V1 .LT. 1.0E0      ) GO TO 70\r\n   50 IF( V1 .LT. 0.99999) GO TO 70\r\nCWKBR 9/93  60 IF( V1 .LT. 10.0E0) GO TO 80\r\n   60 IF( V1 .LE. 10.0001) GO TO 80\r\n      V1 = V1 / 10.0E0\r\n      POWER1 = POWER1 + 1\r\n      GO TO 60\r\n   70 V1 = V1 * 10.0E0\r\n      IF( V1 .LE. 0.0E0 ) GO TO 5\r\n      POWER1 = POWER1 - 1\r\n      GO TO 50\r\nC\r\n   80 V1 = 10.0E0 ** POWER1\r\nC\r\n      POWER2 = 1\r\n   90 IF(V2.LE. 1.0E0) GO TO 110\r\nCWKBR 9/93 100 IF( V2 .LT. 10.00001E0) GO TO 120\r\n  100 IF( V2 .LE. 10.0001   ) GO TO 120\r\n      V2 = V2 / 10.0E0\r\n      POWER2 = POWER2 + 1\r\n      GO TO 100\r\n  110 V2 = V2 * 10.0E0\r\n      IF( V2 .LE. 0.0E0 ) GO TO 5\r\n      POWER2 = POWER2 - 1\r\n      GO TO 90\r\nC\r\n  120 V2 = 10.0 ** POWER2\r\nC\r\n      CYCLES = POWER2 - POWER1\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xyout.f",
    "content": "      SUBROUTINE XYOUT (IOPT,BUF,RBUF)\r\nC\r\nC     THIS SUBROUTINE IS CALLED BY XYTRAN AND OUTPUTS TO PRINTER AND\r\nC     PUNCH\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      LOGICAL         PRINT,PUNCH\r\n      INTEGER         BUF(300),NAMES(44),TYPE(6),PLT(2),IMTD(6),\r\n     1                ITYPE(4),RSHIFT\r\n      REAL            RBUF(300)\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      COMMON /BLANK / ICOM1,DUM(4),ICARD\r\n      COMMON /SYSTEM/ SYSBUF,L,D1(6),MAXLNS,D2(2),LINE,D3(78),LPCH\r\n      COMMON /OUTPUT/ IHEAD(96)\r\n      DATA    NAMES / 4HDISP ,4HLACE ,4HMENT ,4H     ,\r\n     1                4HVELO ,4HCITY ,4H     ,4H     ,\r\n     2                4HACCE ,4HLERA ,4HTION ,4H     ,\r\n     3                4HS P  ,4HC F  ,4H     ,4H     ,\r\n     4                4HLOAD ,4H     ,4H     ,4H     ,\r\n     5                4HELEM ,4HENT- ,4HSTRE ,4HSS   ,\r\n     6                4HELEM ,4HENT- ,4HFORC ,4HE    ,\r\n     7                4HS-DI ,4HSPLA ,4HCEME ,4HNT   ,\r\n     8                4HS-VE ,4HLOCI ,4HTY   ,4H     ,\r\n     9                4HS-AC ,4HCELE ,4HRATI ,4HON   ,\r\n     O                4HNONL ,4HINEA ,4HR-FO ,4HRCE                  /\r\n      DATA    TYPE  / 4HWHOL ,4HE    ,4HUPPE ,4HR    ,4HLOWE ,4HR    /\r\n      DATA    IRAND / 4HRAND /\r\n      DATA    IVG   / 4HVG   /\r\n      DATA    PLT   / 4HNAST ,4HPLT  /\r\n      DATA    IMTD  / 4HFILM ,1H     ,4HTABL ,1HE    ,4HDRUM ,1H     /\r\n      DATA    ITYPE / 4HWITH ,4H     ,\r\n     1                4HWITH ,4HOUT  /\r\nC\r\n      IF (ICOM1 .EQ. IVG) GO TO 86\r\nC\r\nC     BRANCH ON OPTION\r\nC\r\n      IF (IOPT) 10,90,90\r\nC\r\nC     PRINT XY-OUTPUT SUMMARY\r\nC\r\nC\r\nC     FILL OUT HEADING\r\nC\r\n   10 DO 20 I = 1,96\r\n   20 IHEAD(I) = BUF(I+50)\r\n      CALL PAGE1\r\n      WRITE (L,150)\r\n      IF (ICOM1 .EQ. IRAND) GO TO 30\r\n      WRITE (L,170)BUF(1)\r\n      GO TO 40\r\n   30 WRITE (L,160) RBUF(1)\r\n      WRITE (L,161) RBUF(42)\r\n   40 ITEMPV = 4*BUF(6) - 3\r\nC\r\nC     PRINT TYPE OF PLOT\r\nC\r\n      IF (BUF(245)-2) 41,42,43\r\n   41 WRITE (L,460)\r\n      GO TO 45\r\n   42 WRITE (L,470)\r\n      GO TO 45\r\n   43 WRITE (L,480)\r\nC\r\nC     PRINT DATA TYPE AND CURVE\r\nC\r\n   45 ICOMP = BUF(5)\r\n      IF (BUF(6).NE.6 .AND. BUF(6).NE.7) ICOMP = BUF(5) - 2\r\n      IF (BUF(7)) 70,60,50\r\n   50 WRITE (L,200) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2),\r\n     1              NAMES(ITEMPV+3),BUF(4),ICOMP\r\n      ITEMP = 3\r\n      GO TO 72\r\n   60 WRITE (L,180) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2),\r\n     1              NAMES(ITEMPV+3),BUF(4),ICOMP\r\n      ITEMP = 1\r\n      GO TO 72\r\n   70 WRITE (L,190) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2),\r\n     1              NAMES(ITEMPV+3),BUF(4),ICOMP\r\n      ITEMP  = 5\r\n   72 ICOUNT = ICARD + 1\r\n      WRITE (L,210)\r\n      IF (BUF(288) .GT. 0) WRITE (L,230)\r\n      IF (BUF(290) .GT. 0) WRITE (L,240) ICOUNT\r\nC\r\nC     PLOTTER INFORMATION\r\nC\r\n      IF (BUF(289) .LE. 0) GO TO 84\r\n      WRITE (L,220)\r\n      J = RSHIFT(BUF(284),IHALF)\r\n      MODEL = BUF(284) - LSHIFT(J,IHALF) - 100\r\n      M = 1\r\n      IF (MODEL .LT. 0) M = 3\r\nC\r\nC   . NASPLOT...\r\nC\r\n      K = 2*IABS(MODEL) - 1\r\n      WRITE (L,380) PLT(1),PLT(2),IMTD(K),IMTD(K+1),ITYPE(M),ITYPE(M+1)\r\n      IF (BUF(283) .LE. 0) BUF(283) = 1\r\nC\r\nC     WRITE CSCALE DATA OUT\r\nC\r\n      WRITE (L,490) RBUF(282)\r\n      IF (IABS(MODEL)-2) 81,82,82\r\nC\r\nC   . CAMERA, DENSITY...\r\nC\r\n   81 IF (BUF(287) .GE. 3) WRITE (L,410)\r\n      IF (BUF(287) .EQ. 2) WRITE (L,430)\r\n      IF (BUF(287) .LE. 1) WRITE (L,420)\r\n      WRITE (L,450) BUF(283)\r\n      GO TO 83\r\nC\r\nC   . PAPER SIZE\r\nC     (THE LOGIC HERE IS SIMILAR TO THAT IN SUBROUTINE PLTSET)\r\nC\r\n   82 IF (IABS(MODEL) .EQ. 2) GO TO 822\r\nC\r\nC   . DRUM PLOTTERS\r\nC\r\n      IF (RBUF(285) .LE. 0.0) RBUF(285) = 30.0\r\n      IF (RBUF(286) .LE. 0.0) RBUF(286) = 30.0\r\n      GO TO 824\r\nC\r\nC   . TABLE PLOTTERS\r\nC\r\n  822 IF (RBUF(285) .LE.  0.0) RBUF(285) = 11.0\r\n      IF (RBUF(285) .GT. 30.0) RBUF(285) = 30.0\r\n      IF (RBUF(286) .LE.  0.0) RBUF(286) = 8.5\r\n  824 IF (RBUF(286) .GT. 30.0) RBUF(286) = 30.0\r\n      WRITE (L,390) RBUF(285),RBUF(286)\r\nC\r\nC   . PEN SIZE\r\nC\r\n      WRITE (L,440) BUF(283)\r\n   83 WRITE (L,250) BUF(3),TYPE(ITEMP),TYPE(ITEMP+1),BUF(2)\r\nC\r\nC  .  PAPER PLOT\r\nC\r\n   84 IF (BUF(289).GT.0 .AND. BUF(289).NE.2) GO TO 85\r\n      WRITE (L,400) BUF(281)\r\nC\r\n   85 CONTINUE\r\n      WRITE (L,260) (BUF(J),J=147,174),(BUF(J),J=179,206),\r\n     1              (BUF(J),J=211,238)\r\n      WRITE (L,270)\r\n      WRITE (L,290) RBUF( 11),RBUF( 12)\r\n      WRITE (L,300) RBUF(293),RBUF(294)\r\n      WRITE (L,310) RBUF(295),RBUF(296)\r\n      WRITE (L,280) RBUF(291),RBUF(292)\r\n      WRITE (L,300) RBUF(297),RBUF(298)\r\n      WRITE (L,310) RBUF(299),RBUF(300)\r\n      WRITE (L,320)\r\n      IF (BUF(288) .GT. 0) WRITE (L,330)\r\n   86 ITEMPV = 4*BUF(6) - 3\r\n      IF (BUF(7)) 89,88,87\r\n   87 ITEMP = 3\r\n      GO TO 891\r\n   88 ITEMP = 1\r\n      GO TO 891\r\n   89 ITEMP = 5\r\n  891 IPRINT= 0\r\n      ID    = BUF(4)\r\n      ICOMP = BUF(5)\r\n      IF (BUF(6).NE.6 .AND. BUF(6).NE.7) ICOMP = BUF(5) - 2\r\n      PRINT = .FALSE.\r\n      PUNCH = .FALSE.\r\n      IF (BUF(290) .GT. 0) PUNCH = .TRUE.\r\n      IF (BUF(288) .GT. 0) PRINT = .TRUE.\r\n      IF (.NOT.PRINT) RETURN\r\n      LINE = MAXLNS + 1\r\n      RETURN\r\nC\r\nC     PRINT AND OR PUNCH OUTPUT\r\nC\r\n   90 IPRINT = IPRINT + 1\r\n      IF (.NOT.PUNCH) GO TO 100\r\n      ICARD = ICARD + 1\r\n      WRITE (LPCH,370) IPRINT,RBUF(1),RBUF(2),ICARD\r\n  100 IF (.NOT.PRINT) RETURN\r\n      IF (LINE .LT. MAXLNS) GO TO 110\r\n      CALL PAGE1\r\n      WRITE (L,340) NAMES(ITEMPV),NAMES(ITEMPV+1),NAMES(ITEMPV+2),\r\n     1              NAMES(ITEMPV+3),ID,ICOMP,TYPE(ITEMP),TYPE(ITEMP+1)\r\n  110 LINE = LINE + 1\r\n      IF (.NOT.PUNCH) GO TO 120\r\n      WRITE (L,350) IPRINT,RBUF(1),RBUF(2),ICARD\r\n      RETURN\r\n  120 WRITE (L,350) IPRINT,RBUF(1),RBUF(2)\r\n      RETURN\r\nC\r\n  150 FORMAT (///44X,33HX Y - O U T P U T   S U M M A R Y)\r\n  160 FORMAT (//5X,24HROOT MEAN SQUARE VALUE =,1P,E15.6)\r\n  161 FORMAT (6X,38HFREQUENCY OF ZERO CROSSINGS (N ZERO) =,1P,E15.6)\r\n  170 FORMAT (//5X,7HSUBCASE,I10)\r\n  180 FORMAT (6X,4A4,5HCURVE,I9,1H(,I2,1H))\r\n  190 FORMAT (6X,4A4,5HCURVE,I9,4H(--,,I2,1H))\r\n  200 FORMAT (6X,4A4,5HCURVE,I9,1H(,I2,4H,--))\r\n  210 FORMAT (1H )\r\n  220 FORMAT (6X,44HXY-PAIRS WITHIN FRAME LIMITS WILL BE PLOTTED)\r\n  230 FORMAT (6X,46HXY-PAIRS BETWEEN XMIN AND XMAX WILL BE PRINTED)\r\n  240 FORMAT (6X,64HXY-PAIRS BETWEEN XMIN AND XMAX WILL BE PUNCHED BIGIN\r\n     1NING ON CARD,I8)\r\n  250 FORMAT (//5X,13HTHIS IS CURVE,I4,4H OF ,A4,A2,5HFRAME,I5)\r\n  260 FORMAT (//5X,14HCURVE  TITLE =,28A4,/6X,14HX-AXIS TITLE =,28A4,\r\n     1        /6X,14HY-AXIS TITLE =,28A4)\r\n  270 FORMAT (/////5X,62HTHE FOLLOWING INFORMATION IS FOR THE ABOVE DEFI\r\n     1NED CURVE ONLY. )\r\n  280 FORMAT (//5X,36HWITHIN THE X-LIMITS OF ALL DATA (X =,1P,E14.6,\r\n     1        8H TO  X =,1P,E14.6,1H))\r\n  290 FORMAT (///6X,36HWITHIN THE FRAME X-LIMITS       (X =,1P,E14.6,\r\n     1        8H TO  X =,1P,E14.6,1H))\r\n  300 FORMAT (//30X,22HTHE SMALLEST Y-VALUE =,1P,E14.6,7H AT X =,E15.6)\r\n  310 FORMAT (//30X,22HTHE LARGEST  Y-VALUE =,1P,E14.6,7H AT X =,E15.6,\r\n     1        //)\r\n  320 FORMAT (//45X,27HE N D   O F   S U M M A R Y)\r\n  330 FORMAT (//25X,69HP R I N T E D   D A T A   F O R   T H I S   C U R\r\n     1 V E   F O L L O W S)\r\n  340 FORMAT (//5X,4A4,12HCURVE   ID =,I9,5X,11HCOMPONENT =,I3,5X,A4,A2,\r\n     1        5HFRAME,///27X,12HPRINT NUMBER,10X,7HX-VALUE,14X,\r\n     2        7HY-VALUE,14X,11HCARD NUMBER  )\r\n  350 FORMAT (28X,I7,1P,E25.6,E21.6,10X,I8)\r\n  370 FORMAT (I10,10X,1P,2E20.6,12X,I8)\r\n  380 FORMAT (6X,21HPLOTTER SPECIFIED IS ,3A4,A1,9H PLOTTER ,2A4,\r\n     1        18HTYPING CAPABILITY.)\r\n  390 FORMAT (6X,11HPAPER SIZE ,F5.2,3H X ,F5.2,18H INCHES SPECIFIED.)\r\n  400 FORMAT (6X,38HTHIS CURVE WILL BE PAPER-PLOTTED FRAME,I5)\r\n  410 FORMAT (6X,36HCAMERA 3 USED. (PAPER AND 35MM FILM))\r\n  420 FORMAT (6X,26HCAMERA 2 USED. (35MM FILM))\r\n  430 FORMAT (6X,22HCAMERA 1 USED. (PAPER))\r\n  440 FORMAT (6X,9HPENSIZE =,I3)\r\n  450 FORMAT (6X,9HDENSITY =,I3)\r\n  460 FORMAT (6X,8HRESPONSE)\r\n  470 FORMAT (6X,38HPOWER-SPECTRAL-DENSITY-FUNCTION (PSDF))\r\n  480 FORMAT (6X,15HAUTOCORRELATION)\r\n  490 FORMAT (6X,9HCSCALE = ,F5.2)\r\n      END \r\n"
  },
  {
    "path": "mis/xyplot.f",
    "content": "      SUBROUTINE XYPLOT\r\nC\r\nC     XYPLOT IS AN OUTPUT MODULE\r\nC\r\nC     INFORMATION SUPPLIED BY XYTRAN THROUGH DATA BLOCK XYPLOT\r\nC     IS INTERPRETED AND OUTPUT TO EITHER PLT1(BCD TAPE FILE) OR\r\nC     PLT2(BINARY TAPE FILE) FOR PLOTTING ON AN OFF-LINE PLOTTER.\r\nC\r\nC\r\n      EXTERNAL        LSHIFT,RSHIFT\r\n      INTEGER         EXPO,ISYM(2),IX(1),LTTN(10),LTTP(10),D4,\r\n     1                OUTAPE,RSHIFT,SYSBUF,XYPLT\r\n      REAL            NUMS,TLTV(22),X(1),Y(1),XY(2),CHRSCL,CSCALE\r\n      CHARACTER       UFM*23,UWM*25,UIM*29,SFM*25,SWM*27\r\n      COMMON /XMSSG / UFM,UWM,UIM,SFM,SWM\r\n      COMMON /MACHIN/ MACH,IHALF\r\n      COMMON /SYSTEM/ KSYSTM(65)\r\nCZZ   COMMON /ZZXYPL/ Z(1)\r\n      COMMON /ZZZZZZ/ Z(20000)\r\n      COMMON /XXPARM/ IPLTBF,ICMRA,IFSKP,PNAM1,PNAM2,IPTDN,NPENS,\r\n     1                PAPSZX,PAPSZY,PTYP1,PTYP2,JPSZ(8),PC(8,2),\r\n     2                SPARE,YA(115)\r\n      COMMON /PLTDAT/ MODEL,IPLTNR,XWMIN,YLOW,AXMAX,YUP,XWMAX,YWMAX,\r\n     1                XEDGE,YEDGE,XA(9),CHRSCL,\r\n     2                XYMAX(2),CNTPI,CCH,CCV,ALL,MNP,APO(2),ITP,LTAPE\r\n      COMMON /XYPLIN/ IDSB,NFRM,NCRV,IDPE,NCOM,IDMJ,ITBF,\r\n     1                NWFR,ISKP,D1  ,XMIN,XMAX,YMIN,YMAX,\r\n     2                XTIC,XDTC,XLTC,NXDG,IXPR,NXTT,IXVS,\r\n     3                IXDT,YTIC,YDTC,YLTC,NYDG,IYPR,NYTT,\r\n     4                IYVS,IYDT,ITTC,IBTC,ILTC,IRTC,LOGX,\r\n     5                LOGY,IXAX,XINT,IYAX,YINT,ICRV,D2(2),\r\n     6                IPENS,IPENN,SKP5(5),TITL(32),SBTL(32),\r\n     7                CLBL(32),CVTL(32),XATL(32),YATL(32),\r\n     8                IXGD,IYGD,D3(37),CSCALE,IPSZ,NPLT,XPAP,\r\n     9                YPAP,NCMR,D4(13)\r\n      EQUIVALENCE     (KSYSTM( 1),SYSBUF), (KSYSTM( 2),OUTAPE),\r\n     1                (KSYSTM( 9),NLPP  ), (KSYSTM(12),NLINES),\r\n     2                (Z(1),X(1),IX(1),XY(1)), (XY(2),Y(1))\r\n      DATA    LPLTMD, LCMR, XLPAP, YLPAP / -1, -1, -1.0, -1.0   /\r\n      DATA    XYPLT / 101   /\r\n      DATA    NRWD  , IRDRW ,ICLSRW /\r\n     1        300   , 0     ,1      /\r\n      DATA    IPLUS , IE, LEP, LEM  / 1H+, 1HE, 4H1E+ , 4H1E-   /\r\n      DATA    LTTN  / 8,  8, 5, 4, 3, 2, 2, 1, 1, 1 / ,\r\n     1        LTTP  / 15,15,10, 6, 3, 1, 1, 7, 7, 7 / ,\r\n     2        TLTV  / 3.,6.,2.,5.,8.,2.,4.,6.,8.,2.,3.,5.,7.,9.,2.,3.,\r\n     3                4.,5.,6.,7.,8.,9. /\r\nC\r\nC\r\nC     DEFINITION OF COMMON BLOCK /PLTDAT/ CONTENTS\r\nC\r\nC     MODEL  - MODEL NUMBER OF THE CURRENT PLOTTER.\r\nC     IPLTNR - NUMBER OF CURRENT PLOTTER IN USE\r\nC     XWMIN  - MINIMUM X VALUE OF PLOTTING REGION IN PLOTTER COUNTS\r\nC     YLOW   - MIN. Y VALUE OF PLOT. REGION(AFTER TITLES)\r\nC              IN PLOTTER COUNTS\r\nC     AXMAX  - MAX. X VALUE OF PLOT. REGION(LESS MARGIN)\r\nC              IN PLOTTER COUNTS\r\nC     YUP    - MAX. Y VALUE OF PLOT. REGION(LESS MARGIN)\r\nC              IN PLOTTER COUNTS\r\nC     XWMAX  - ACTUAL MAXIMUM REGION SIZE IN X DIRECTION\r\nC              IN PLOTTER COUNTS\r\nC     YWMAX  - ACTUAL MAXIMUM REGION SIZE IN Y DIRECTION\r\nC              IN PLOTTER COUNTS\r\nC     XEDGE  - MARGIN OF X EDGE IN PLOTTER COUNTS (TABLE PLOTTERS ONLY)\r\nC     YEDGE  - MARGIN OF Y EDGE IN PLOTTER COUNTS (TABLE PLOTTERS ONLY)\r\nC     XA     - SPARES\r\nC\r\nC     THE FOLLOWING SYMBOLIC VALUES PERTAIN TO THE CURRENT PLOTTER.\r\nC     AND ARE SET WHEN STPLOT OR PLTSET IS CALLED.\r\nC\r\nC     XYMAX - X AND Y FRAME LIMITS IN PLOTTER COUNTS.\r\nC     CNTPI - PLOTTER COUNTS PER INCH.\r\nC     CCH   - HORIZONTAL PLOTTER COUNTS PER SINGLE CHARACTER\r\nC     CCV   - VERTICAL PLOTTER COUNTS PER SINGLE CHARACTER\r\nC     ALL   - MAXIMUM LINE LENGTH DRAWN WITH SINGLE COMMAND\r\nC             (PLOTTER COUNT)\r\nC     MNP   - MAXIMUM NUMBER OF PENS\r\nC     APOX  - ACTUAL PLOTTER X ORIGIN IN PLOTTER COUNTS\r\nC     APOY  - ACTUAL PLOTTER Y ORIGIN IN PLOTTER COUNTS\r\nC             NOTE - INCREMENTAL PLOTTERS USE AS CURRENT PEN POSITION.\r\nC     ITP   - PLOTTER TYPE.\r\nC     LTAPE - GINO NAME OF THE PLOT TAPE.\r\nC\r\nC     DEFINITION OF I.D. RECORD CONTENTS OF INPUT DATA FILE /XYPLIN/\r\nC\r\nC     IDSB - SUBCASE I.D.               NFRM - FRAME NUMBER\r\nC     NCRV - CURVE NUMBER               IDPE - POINT OR ELEMENT I.D.\r\nC     NCOM - COMPONENT NUMBER           IDMJ - VECTOR NUMBER\r\nC     ITBF - BOTTOM TOP FULL FRAME IND. NWFR - NEW AXIS AND LABEL IND.\r\nC     ISKP - FRAME SKIP NUMBER          D1   - SPARE\r\nC     XMIN - MINIMUM X DATA FOR CURVE   XMAX - MAXIMUM X DATA FOR CURVE\r\nC     YMIN - MINIMUM Y DATA FOR CURVE   YMAX - MAXIMUM Y DATA FOR CURVE\r\nC     XTIC - FIRST X TICK VALUE         XDTC - VALUE BETWEEN X TICKS\r\nC     XLTC - HIGHEST X-VALUE ON FRAME.  NXDG - MAX. DIGITS FOR X-TICKS\r\nC     IXPR - 10 POWER ON PRINTED X TICK NXTT - TOTAL NUMBER OF X TICKS\r\nC     IXVS - X TICKS BETWEEN LABELS     IXDT - DELTA PRINT VALUE X TICKS\r\nC     YTIC - FIRST Y TICK VALUE         YDTC - VALUE BETWEEN Y TICKS\r\nC     YLTC - HIGHEST Y-VALUE ON FRAME.  NYDG - MAX. DIGITS FOR Y-TICKS\r\nC     IYPR - 10 POWER ON PRINTED Y TICK NYTT - TOTAL NUMBER OF Y TICKS\r\nC     IYVS - Y TICKS BETWEEN LABELS     IYDT - DELTA PRINT VALUE Y TICKS\r\nC     ITTC - TICKS W/WO VALUES - TOP    IBTC - TICKS W/WO VALUES - BOTTM\r\nC     ILTC - TICKS W/WO VALUES - LEFT   IRTC - TICKS W/WO VALUES - RIGHT\r\nC     LOGX - LINEAR/LOG - X DIRECTION   LOGY - LINEAR/LOG - Y DIRECTION\r\nC     IXAX - X AXIS/NO AXIS INDICATOR   XINT - X AXIS  Y INTERCEPT\r\nC     IYAX - Y AXIS/NO AXIS INDICATOR   YINT - Y AXIS  X INTERCEPT\r\nC     ICRV - POINT/LINE PLOT INDICATOR  D2   - SPARES\r\nC     TITL - PLOT TITLE                 SBTL - PLOT SUBTITLE\r\nC     CLBL - PLOT LABEL                 CVTL - PLOT CURVE TITLE\r\nC     XATL - X AXIS TITLE               YATL - Y AXIS TITLE\r\nC     IXGD - X GRID LINES               IYGD - Y GRID LINES\r\nC     D3   - SPARES                     IPNR - PEN COLOR\r\nC     IPSZ - PEN SIZE                   NPLT - TYPE OF PLOTTER\r\nC     XPAP - PAPER SIZE(IN.) X DIR.     YPAP - PAPER SIZE(IN.) Y DIR.\r\nC     NCMR - CAMERA NR. FOR SC-4020     D4   - XYTRAN INTERNAL FLAGS\r\nC\r\nC\r\nC     SET IOPN=0 (PLOT TAPE CLOSED) AND NERR=0 (NUMBER OF ID RECORDS\r\nC     WITH WRONG WORD COUNT).  WHEN NERR=5, XYPLOT ASSUMES BAD INPUT\r\nC     FILE AND ABANDONS OPERATION.\r\nC\r\n      MB1  = KORSZ(Z) - SYSBUF\r\n      IPCHG= 0\r\n      IOPN = 0\r\n      CALL OPEN (*920,XYPLT,Z(MB1),IRDRW)\r\n   99 CALL FWDREC (*960,XYPLT)\r\n      NERR = 0\r\nC\r\nC     READ I.D. RECORD ON INPUT DATA FILE\r\nC\r\n  100 CALL READ (*960,*120,XYPLT,IDSB,NRWD+1,1,NACT)\r\n  110 NERR = NERR + 1\r\n      IF (NERR .GE. 5) GO TO 940\r\n      GO TO 100\r\n  120 IF (NACT .NE. NRWD) GO TO 110\r\nC\r\nC     SKIP DATA IF IT WAS FOR THE PAPERPLOTER ONLY\r\nC\r\n      IF (D4(2) .LE. 0) GO TO 99\r\n      IF (NWFR  .NE. 0) GO TO 270\r\nC\r\nC     READ DATA PAIRS FROM INPUT DATA FILE FOR CURVE TO BE PLOTTED\r\nC\r\n  130 CALL READ (*960,*250,XYPLT,Z,MB3,0,NACT)\r\nC\r\nC     SET IFIN TO SHOW MORE DATA REMAINING TO BE READ FROM RECORD.\r\nC     SET L AS INDEX TO LAST LEGITIMATE X VALUE OF DATA PAIRS IN CORE.\r\nC\r\n      IFIN = 0\r\n      L    = MB3 - 1\r\n  140 IF (IX(L) .NE. 1) GO TO 150\r\n      L = L - 2\r\n      IF (L .LE. 0) GO TO 240\r\nC\r\nC     CONVERT DATA POINTS TO PLOTTER COUNTS AND PLOT SYMBOL AT EACH\r\nC     LEGITIMATE POINT WHEN REQUIRED.\r\nC\r\n  150 IF (ICRV .NE. 0) CALL SYMBOL (0,0,0,-1)\r\nC\r\n      ISYM(1) = IABS(ICRV) + NCRV - 1\r\n      ISYM(2) = 0\r\nC\r\n      DO 190 I = 1,L,2\r\n      IF (IX(I) .EQ.    1) GO TO 190\r\n      IF (X(I) .GT. XMAXS) GO TO 180\r\n      IF (X(I) .LT. XMINS) GO TO 180\r\n      IF (LOGXS .LE.    0) GO TO 160\r\n      X(I) = ALOG10(X(I))\r\n  160 X(I) = XDR*X(I)+XC\r\n      IF (Y(I) .GT. YMAXS) GO TO 180\r\n      IF (Y(I) .LT. YMINS) GO TO 180\r\n      IF (LOGYS .LE.    0) GO TO 170\r\n      Y(I) = ALOG10(Y(I))\r\n  170 Y(I) = YDR*Y(I) + YC\r\n      IF (ICRV .NE. 0) CALL SYMBOL (X(I),Y(I),ISYM,0)\r\n      GO TO 190\r\n  180 IX(I  ) = 1\r\n      IX(I+1) = 1\r\n  190 CONTINUE\r\n      IF (ICRV .NE. 0) CALL SYMBOL (0,0,0,1)\r\nC\r\nC     PLOT LINES BETWEEN LEGITIMATE POINTS WHEN REQUIRED\r\nC\r\n      IF (ICRV.LT.0 .AND. IPENN.GT.0) ICRV = -ICRV\r\n      IF (ICRV .LT. 0) GO TO 240\r\n      CALL LINE (0,0,0,0,0,-1)\r\n      OLDX = X(1)\r\n      OLDY = Y(1)\r\n      IF (IPCHG .EQ. 1) GO TO 193\r\n      ICPEN = IPSZ\r\n      IF (IPENS .EQ. 0) GO TO 192\r\n      ICPEN = IPENS\r\n      IPCHG = 1\r\n      GO TO 192\r\n  193 IF (ICPEN .EQ. IPENN) ICPEN = IPENS - 1\r\n      ICPEN = ICPEN + 1\r\n  192 CONTINUE\r\n      DO 230 I = 1,L,2\r\n      IF (IX(I) .EQ. 1) GO TO 220\r\n      T1 = OLDX - X(I)\r\n      T2 = OLDY - Y(I)\r\n      IF (T1) 210,200,210\r\n  200 IF (T2) 210,230,210\r\n  210 CALL LINE (OLDX,OLDY,X(I),Y(I),ICPEN,0)\r\n      OLDX = X(I)\r\n      OLDY = Y(I)\r\n      GO TO 230\r\n  220 OLDX = X(I+2)\r\n      OLDY = Y(I+2)\r\n  230 CONTINUE\r\n      CALL LINE (0,0,0,0,0,1)\r\n  240 IF (IFIN) 100,130,100\r\nC\r\nC     ALL DATA PAIRS IN CORE, SET IFIN TO SHOW NO MORE DATA REMAINS\r\nC     FOR PRESENT CURVE.  IF ODD NUMBER OF DATA VALUES OUTPUT WARNING\r\nC     MESSAGE AND CONTINUE.  SET L AS INDEX TO LAST X VALUE OF DATA\r\nC     PAIRS.\r\nC\r\n  250 IFIN = 1\r\n      IF (NACT .EQ. (NACT/2)*2) GO TO 260\r\n      NACT = NACT - 1\r\n      WRITE (OUTAPE,990) UWM,NFRM,NCRV\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n  260 L = NACT - 1\r\n      IF (L) 100,100,140\r\nC\r\nC     NEW AXIS, LABELS, ETC. ARE NEEDED.\r\nC\r\nC     NASTRAN PLOTTING SOFTWARE INITIALIZATION.\r\nC\r\n  270 IF (ITBF.GE.0 .AND. IOPN.NE.0) CALL STPLOT (-1)\r\n      IPLTNR = RSHIFT(NPLT,IHALF)\r\n      MODEL  = NPLT - LSHIFT(IPLTNR,IHALF) - 100\r\n      IF (NCMR .GT. 0) ICMRA=NCMR\r\n      IFSKP  = ISKP\r\n      CSCALE = CHRSCL\r\n      IF (CSCALE .LT. 1.) CSCALE = 1.0\r\n      IF (XPAP   .GT. 0.) PAPSZX = XPAP\r\n      IF (YPAP   .GT. 0.) PAPSZY = YPAP\r\n      DO 280 I = 1,NPENS\r\n  280 JPSZ(I) = IPSZ\r\n      IF (ITBF .GE. 0) GO TO 284\r\nC\r\nC     LOWER HALF MAY NOT CHANGE FRAME OR PLOTTER OR CALL PLTSET\r\nC\r\nC     IF (NCMR .NE. LCMR  ) GO TO 925\r\n      IF (XPAP .NE. XLPAP ) GO TO 925\r\n      IF (YPAP .NE. YLPAP ) GO TO 925\r\n      IF (NPLT .NE. LPLTMD) GO TO 925\r\n      GO TO 286\r\nC\r\n  284 CALL PLTSET\r\n      LCMR  = NCMR\r\n      XLPAP = XPAP\r\n      YLPAP = YPAP\r\n      LPLTMD= NPLT\r\n      MB2   = MB1 - IPLTBF\r\n      MB3   = 2*((MB2-1)/2)\r\nC\r\nC     SET VALUES FOR FULL FRAME PLOTTING\r\nC\r\n  286 YWMIN= 0.\r\n      YLOW = 4.*CCV\r\n      YXTR = (YWMAX+YLOW)/2.\r\nC\r\nC     START A NEW PLOT IF NECESSARY.\r\nC\r\n      IF (ITBF .LT. 0) GO TO 290\r\n      CALL SOPEN (*930,LTAPE,Z(MB2),IPLTBF)\r\n      IOPN = 1\r\n      CALL STPLOT (NFRM)\r\n  290 CALL PRINT (0,0,0,0,0,-1)\r\n      IF (ITBF) 300,320,310\r\nC\r\nC     MODIFY VALUE FOR LOWER HALF FRAME PLOTTING\r\nC\r\n  300 YUP = YXTR\r\n      GO TO 330\r\nC\r\nC     MODIFY VALUE FOR UPPER HALF FRAME PLOTTING\r\nC\r\n  310 YLOW = YXTR\r\nC\r\nC     SAVE YLOW AND EXPAND REGION SIZE FOR PRINTING OF TITLES.  RESTORE\r\nC     YLOW AFTER PRINTING THE FOUR CURVE TITLES AT BOTTOM OF FRAME.\r\nC\r\n  320 XPRM = XWMIN\r\n      YPRM = YWMIN\r\n      Y1T  = YLOW\r\n      YLOW = YWMIN\r\n      CALL PRINT (XPRM,YPRM,1,CLBL(1),32,0)\r\n      YPRM = YPRM + CCV\r\n      CALL PRINT (XPRM,YPRM,1,SBTL(1),32,0)\r\n      YPRM = YPRM + CCV\r\n      CALL PRINT (XPRM,YPRM,1,TITL(1),32,0)\r\n      YPRM = YPRM + CCV\r\n      CALL PRINT (XPRM,YPRM,1,CVTL(1),32,0)\r\n      YLOW = Y1T\r\nC\r\nC     OUTPUT X AND Y AXES TITLES\r\nC\r\n  330 YPRM = YLOW\r\n      XPRM = XWMIN + 8.*CCH\r\n      CALL PRINT (XPRM,YPRM,1,XATL(1),32,0)\r\n      YPRM = YUP - 2*CCV\r\n      XPRM = XWMIN\r\n      CALL PRINT (XPRM,YPRM,2,YATL(1),32,0)\r\n      CALL TIPE (0,0,0,0,0,1)\r\nC\r\nC     MEANING OF SYMBOLS USED\r\nC     XDR,XC,YDR,YC - FACTORS TO CONVERT ENGINEERING UNITS TO PLOTTER\r\nC                     COUNTS IN X AND Y DIRECTIONS.\r\nC     CONVERSION IS - PLOTTER COUNTS = ENG. UNITS * XDR  +  XC\r\nC\r\nC     JTC,J1T,J2T,J3T,J4T,J5T - TEMPORARY INTEGER VALUES\r\nC     T1,T2,T3,T4,X1T,Y1T     - TEMPORARY REAL VALUES\r\nC\r\nC     TEST XMAX,XMIN,YMAX, AND YMIN FOR COMPATIBILITY\r\nC\r\n      N  = 0\r\n  340 DX = XLTC - XTIC\r\n      DY = YLTC - YTIC\r\n      IF (DX.GT.0.0 .AND. DY.GT.0.0) GO TO 440\r\n      IF (N .NE.  0) GO TO 350\r\n      IF (DX.LE.0.0) XLTC = XTIC + XDTC*FLOAT(NXTT+1)\r\n      IF (DY.LE.0.0) YLTC = YTIC + YDTC*FLOAT(NYTT+1)\r\n      N = 1\r\n      GO TO 430\r\n  350 N = 2\r\n      IF (DX .GT. 0.0) GO TO 360\r\n      XLTC = XTIC + 10.0\r\n      XDTC = 2.0\r\n      NXTT = 0\r\n  360 IF (DY .GT. 0.0) GO TO 430\r\n      YLTC = YTIC + 10.0\r\n      YDTC = 2.0\r\n      NYTT = 4\r\nC\r\nC     PRINT WARNING (N=NO. OF PASSES TO CORRECT)\r\nC\r\n  430 WRITE (OUTAPE,1010) UWM,N,NFRM\r\n      NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n      IF (N .EQ. 1) GO TO 340\r\nC\r\nC     SAVE XMAX, XMIN, YMAX, YMIN, LOGX AND LOGY FOR USE IF NEXT\r\nC     I.D. RECORD IS NOT A NEW FRAME\r\nC\r\n  440 LOGXS = LOGX\r\n      LOGYS = LOGY\r\n      XMINS = XTIC\r\n      XMAXS = XLTC\r\n      YMINS = YTIC\r\n      YMAXS = YLTC\r\nC\r\nC     CALCULATE CONVERSION FACTORS\r\nC\r\n      XPL = XWMAX - 7.*CCH\r\n      XPS = XWMIN + 8.*CCH\r\n      YPL = YUP   - 2.*CCV\r\n      YPS = YLOW  + 2.*CCV\r\nC\r\nC     PUT FRAME AT X AND Y MAXIMUM AND MINIMUM LIMITS\r\nC\r\n      IF (IXGD.EQ.0 .AND. IYGD.EQ.0) GO TO 450\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      CALL AXIS (XPS,YPS,XPS,YPL,IPSZ,0)\r\n      CALL AXIS (XPS,YPL,XPL,YPL,IPSZ,0)\r\n      CALL AXIS (XPL,YPL,XPL,YPS,IPSZ,0)\r\n      CALL AXIS (XPL,YPS,XPS,YPS,IPSZ,0)\r\n      CALL AXIS (0,0,0,0,0,+1)\r\n  450 IF (LOGX .LE. 0) GO TO 460\r\n      XTIC = ALOG10(XTIC)\r\n      XLTC = ALOG10(XLTC)\r\n      DX   = XLTC - XTIC\r\n      IF (IYAX .EQ. 1) YINT = ALOG10(YINT)\r\n  460 IF (LOGY .LE. 0) GO TO 470\r\n      YTIC = ALOG10(YTIC)\r\n      YLTC = ALOG10(YLTC)\r\n      DY   = YLTC - YTIC\r\n      IF (IXAX .EQ. 1) XINT = ALOG10(XINT)\r\n  470 XDR = (XPL-XPS)/DX\r\n      XC  = (XPS*XLTC-XPL*XTIC)/DX\r\n      YDR = (YPL-YPS)/DY\r\n      YC  = (YPS*YLTC-YPL*YTIC)/DY\r\nC\r\nC     PREPARE TO CREATE + LABEL ANY REQUESTED TIC MARKS IN THE\r\nC     X-DIRECTION.\r\nC\r\n      IF (ITTC.EQ.0 .AND. IXAX.NE.1 .AND. IBTC.EQ.0 .AND. IYGD.EQ.0)\r\n     1    GO TO 575\r\n      NDG = 0\r\n      IF (LOGX .GT. 0) GO TO 480\r\n      DTC = XDTC\r\n      IF (DTC.GT.0. .AND. NXTT.GT.0) GO TO 477\r\n      NTT = 0\r\n      GO TO 485\r\n  477 NTT = NXTT\r\n      XTS = XTIC*XDR + XC\r\n      IF (ITTC.LE.0 .AND. IBTC.LE.0) GO TO 485\r\n      NDG  = MIN0(NXDG+1,6)\r\n      EXPO = NDG + IXPR - 2\r\n      NUMS = XTIC/10.**EXPO\r\n      DL   = DTC/10.**EXPO\r\n      LSTEP= MAX0(IXVS+1,1)\r\n      GO TO 485\r\n  480 NTT = LOGX + 1\r\n      XTS = XTIC*XDR + XC\r\n      DTC = 1.\r\n      NDG = 4\r\n      IF (LOGX .GT. 10) GO TO 485\r\n      ILL  = LTTP(LOGX)\r\n      NITK = LTTN(LOGX)\r\nC\r\n  485 DO 555 K = 1,3\r\n      LABEL = 1\r\nCWKBR 9/93 LOG = XTIC - 1.0 + SIGN(0.1,XTIC)\r\n      LOG = XTIC - 1.0 + SIGN(0.1,XTIC) - 1\r\n      GO TO (490,495,500), K\r\nC\r\nC     TICS + LABELS AT THE TOP.\r\nC\r\n  490 ITC= ITTC\r\n      YT = YPL\r\n      YL = YT + CCV\r\n      GO TO 505\r\nC\r\nC     TICS ALONG THE X-AXIS.\r\nC\r\n  495 ITC = 0\r\n      IF (IXAX .EQ. 1) ITC = -1\r\n      IF (ITC  .EQ. 0) GO TO 505\r\n      YT = XINT*YDR + YC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      CALL AXIS (XPL,YT,XPS,YT,IPSZ,0)\r\n      GO TO 505\r\nC\r\nC     TICS + LABELS AT THE BOTTOM.\r\nC\r\n  500 ITC= IBTC\r\n      YT = YPS\r\n      YL = YT - CCV\r\nC\r\n  505 IF (ITC.EQ.0 .OR. NTT.LE.0) GO TO 555\r\n      CALL TIPE (0,0,0,0,0,-1)\r\n      DO 545 J = 1,NTT\r\n      R = XTS + DTC*XDR*FLOAT(J-1)\r\n      CALL TIPE (R,YT,1,IPLUS,1,0)\r\n      IF (LOGX .GT. 0) GO TO 530\r\n      IF (ITC.LT.0 .OR. LABEL.NE.J) GO TO 545\r\nC\r\nC     LABEL THIS LINEAR TIC MARK.\r\nC\r\n      IFIELD = NDG\r\n      RNUM   = NUMS + DL*FLOAT(J-1)\r\n      IF (RNUM) 510,525,515\r\n  510 IFIELD = IFIELD + 1\r\n  515 T = ABS(RNUM)\r\n      IF (T .GE. 1.E-4) GO TO 525\r\n      IF (T .GE. 5.E-5) GO TO 520\r\n      RNUM = 0.\r\n      GO TO 525\r\n  520 RNUM = SIGN(1.E-4,RNUM)\r\n  525 CALL TYPFLT (R,YL,1,RNUM,IFIELD,0)\r\n      LABEL = LABEL + LSTEP\r\n      IF (LABEL .LE. NTT) GO TO 545\r\n      R = R + FLOAT(IFIELD)*CCH\r\n      CALL TIPE (R,YL,1,IE,1,0)\r\n      CALL TYPINT(R+CCH,YL,1,EXPO,0,0)\r\n      GO TO 545\r\nC\r\nC     LABEL THIS LOGARITHMIC CYCLE TIC MARK.\r\nC\r\n  530 LOG = LOG + 1\r\n      IF (ITC .LT. 0) GO TO 535\r\n      I = LEP\r\n      IF (LOG .LT. 0) I = LEM\r\n      CALL PRINT (R-CCH,YL,1,I,1,0)\r\n      CALL TYPINT (R+2.*CCH,YL,1,IABS(LOG),0,0)\r\n  535 IF (LOGX.GT.10 .OR. J.EQ.NTT) GO TO 545\r\nC\r\nC     CREATE + LABEL THE LOGARITHMIC INTRACYCLE TIC MARKS WITHIN THIS\r\nC     CYCLE.\r\nC\r\n      DO 540 I = 1,NITK\r\n      L = ILL + I - 1\r\n      T = XDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + XC\r\n      CALL TIPE (T,YT,1,IPLUS,1,0)\r\n      IF (ITC .LT. 0) GO TO 540\r\n      L = TLTV(L) + .01\r\n      CALL TYPINT (T,YL,1,L,1,0)\r\n  540 CONTINUE\r\nC\r\n  545 CONTINUE\r\n      CALL TIPE (0,0,0,0,0,+1)\r\n  555 CONTINUE\r\n      IF (IYGD.EQ.0 .OR. NTT.LE.0) GO TO 575\r\nC\r\nC     DRAW THE Y-DIRECTION GRID NETWORK.\r\nC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\nCWKBR 9/93 LOG = XTIC - 1.0 + SIGN(0.1,XTIC)\r\n      LOG = XTIC - 1.0 + SIGN(0.1,XTIC) - 1\r\n      K = 1\r\n      DO 570 J = 1,NTT\r\n      K = -K\r\n      R = XTS + DTC*XDR*FLOAT(NTT-J)\r\n      IF (K .GT. 0) CALL AXIS (R,YPL,R,YPS,IPSZ,0)\r\n      IF (K .LT. 0) CALL AXIS (R,YPS,R,YPL,IPSZ,0)\r\n      IF (LOGX.LE.0 .OR. LOGX.GT.10 .OR. J.EQ.NTT) GO TO 570\r\nC\r\nC     DRAW THE Y-DIRECTION GRID LINES WITHIN THIS LOGARITHMIC CYCLE.\r\nC\r\n      LOG = LOG + 1\r\n      DO 565 I = 1,NITK\r\n      L = ILL + NITK - I\r\n      T = XDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + XC\r\n      K = -K\r\n      IF (K .GT. 0) CALL AXIS (T,YPL,T,YPS,IPSZ,0)\r\n      IF (K .LT. 0) CALL AXIS (T,YPS,T,YPL,IPSZ,0)\r\n  565 CONTINUE\r\nC\r\n  570 CONTINUE\r\n      CALL AXIS (0,0,0,0,0,+1)\r\nC\r\nC     PREPARE TO CREATE + LABEL ANY REQUESTED TIC MARKS IN THE\r\nC     Y-DIRECTION.\r\nC\r\n  575 IF (ILTC.EQ.0 .AND. IYAX.NE.1 .AND. IRTC.EQ.0 .AND. IXGD.EQ.0)\r\n     1    GO TO 130\r\n      NDG = 0\r\n      IF (LOGY .GT. 0) GO TO 580\r\n      DTC = YDTC\r\n      IF (DTC.GT.0. .AND. NYTT.GT.0) GO TO 577\r\n      NTT = 0\r\n      GO TO 585\r\n  577 NTT = NYTT\r\n      YTS = YTIC*YDR + YC\r\n      IF (ILTC.LE.0 .AND. IRTC.LE.0) GO TO 585\r\n      NDG  = MIN0(NYDG+1,6)\r\n      EXPO = NDG + IYPR - 2\r\n      NUMS = YTIC/10.**EXPO\r\n      DL   = DTC/10.**EXPO\r\n      LSTEP= MAX0(IYVS+1,1)\r\n      GO TO 585\r\n  580 NTT = LOGY + 1\r\n      YTS = YTIC*YDR + YC\r\n      DTC = 1.\r\n      NDG = 4\r\n      IF (LOGY .GT. 10) GO TO 585\r\n      ILL = LTTP(LOGY)\r\n      NITK= LTTN(LOGY)\r\nC\r\n  585 DO 655 K = 1,3\r\n      LABEL = 1\r\n      LOG = YTIC - 1.0 + SIGN(0.1,YTIC)\r\n      GO TO (590,595,600), K\r\nC\r\nC     TICS + LABELS ON THE LEFT SIDE.\r\nC\r\n  590 ITC= ILTC\r\n      XT = XPS\r\n      XL = XT - CCH*FLOAT(NDG+1)\r\n      GO TO 605\r\nC\r\nC     TICS ALONG THE Y-AXIS.\r\nC\r\n  595 ITC = 0\r\n      IF (IYAX .EQ. 1) ITC = -1\r\n      IF (ITC  .EQ. 0) GO TO 605\r\n      XT = YINT*XDR + XC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      CALL AXIS (XT,YPL,XT,YPS,IPSZ,0)\r\n      GO TO 605\r\nC\r\nC     TICS + LABELS ON THE RIGHT SIDE.\r\nC\r\n  600 ITC= IRTC\r\n      XT = XPL\r\n      XL = XT + CCH\r\nC\r\n  605 IF (ITC.EQ.0 .OR. NTT.LE.0) GO TO 655\r\n      CALL TIPE (0,0,0,0,0,-1)\r\n      DO 645 J = 1,NTT\r\n      S = YTS + DTC*YDR*FLOAT(J-1)\r\n      CALL TIPE (XT,S,1,IPLUS,1,0)\r\n      IF (LOGY .GT. 0) GO TO 630\r\n      IF (ITC.LT.0 .OR. LABEL.NE.J) GO TO 645\r\nC\r\nC     LABEL THIS LINEAR TIC MARK.\r\nC\r\n      IFIELD = NDG\r\n      RNUM   = NUMS + DL*FLOAT(J-1)\r\n      IF (RNUM) 610,625,615\r\n  610 IFIELD = IFIELD + 1\r\n  615 T = ABS(RNUM)\r\n      IF (T .GE. 1.E-4) GO TO 625\r\n      IF (T .GE. 1.E-5) GO TO 620\r\n      RNUM = 0.\r\n      GO TO 625\r\n  620 RNUM = SIGN(1.E-4,RNUM)\r\n  625 CALL TYPFLT (XL,S,1,RNUM,-IFIELD,0)\r\n      LABEL  = LABEL + LSTEP\r\n      YLABEL = S\r\n      GO TO 645\r\nC\r\nC     LABEL THIS LOGARITHMIC CYCLE TIC MARK.\r\nC\r\n  630 LOG = LOG + 1\r\n      IF (ITC .LT. 0) GO TO 635\r\n      I = LEP\r\n      IF (LOG .LT. 0) I = LEM\r\n      CALL PRINT (XL,S,1,I,1,0)\r\n      CALL TYPINT (XL+3.*CCH,S,1,IABS(LOG),0,0)\r\n  635 IF (LOGY.GT.10 .OR. J.EQ.NTT) GO TO 645\r\nC\r\nC     CREATE + LABEL THE LOGARITHMIC INTRACYCLE TIC MARKS WITHIN THIS\r\nC     CYCLE.\r\nC\r\n      DO 640 I = 1,NITK\r\n      L = ILL + I - 1\r\n      T = YDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + YC\r\n      CALL TIPE (XT,T,1,IPLUS,1,0)\r\n      IF (ITC .LT. 0) GO TO 640\r\n      L = TLTV(L) + .01\r\n      CALL TYPINT (XL,T,1,L,1,0)\r\n  640 CONTINUE\r\nC\r\n  645 CONTINUE\r\n      IF (ITC.LT.0 .OR. LOGY.GT.0) GO TO 650\r\n      CALL TIPE (XL,YLABEL-CCV,1,IE,1,0)\r\n      CALL TYPINT (XL+CCH,YLABEL-CCV,1,EXPO,0,0)\r\n  650 CALL TIPE (0,0,0,0,0,+1)\r\n  655 CONTINUE\r\n      IF (IXGD.EQ.0 .OR. NTT.LE.0) GO TO 130\r\nC\r\nC     DRAW THE X-DIRECTION GRID NETWORK.\r\nC\r\n      CALL AXIS (0,0,0,0,0,-1)\r\n      LOG = YTIC - 1.0 + SIGN(0.1,YTIC)\r\n      K = 1\r\n      DO 670 J = 1,NTT\r\n      K = -K\r\n      S = YTS + DTC*YDR*FLOAT(NTT-J)\r\n      IF (K .GT. 0) CALL AXIS (XPS,S,XPL,S,IPSZ,0)\r\n      IF (K .LT. 0) CALL AXIS (XPL,S,XPS,S,IPSZ,0)\r\n      IF (LOGY.LE.0 .OR. LOGY.GT.10 .OR. J.EQ.NTT) GO TO 670\r\nC\r\nC     DRAW THE X-DIRECTION GRID LINES WITHIN THIS LOGARITHMIC CYCLE...\r\nC\r\n      LOG = LOG + 1\r\n      DO 665 I = 1,NITK\r\n      L = ILL + NITK - I\r\n      T = YDR*(ALOG10(TLTV(L))+FLOAT(LOG)) + YC\r\n      K = -K\r\n      IF (K .GT. 0) CALL AXIS (XPS,T,XPL,T,IPSZ,0)\r\n      IF (K .LT. 0) CALL AXIS (XPL,T,XPS,T,IPSZ,0)\r\n  665 CONTINUE\r\nC\r\n  670 CONTINUE\r\n      CALL AXIS (0,0,0,0,0,+1)\r\n      GO TO 130\r\nC\r\nC     OUTPUT WARNING NESSAGES, CLOSE INPUT FILE AND PLOT TAPE AND RETURN\r\nC\r\n  920 RETURN\r\n  925 WRITE (OUTAPE,1020) SWM\r\n      GO TO 950\r\n  930 WRITE (OUTAPE,1000) UWM,LTAPE\r\n      GO TO 950\r\n  940 WRITE (OUTAPE,980) UWM\r\n  950 NLINES = NLINES + 2\r\n      IF (NLINES .GE. NLPP) CALL PAGE\r\n  960 CALL CLOSE (XYPLT,ICLSRW)\r\n      IF (IOPN .NE. 0) CALL STPLOT (-1)\r\n      RETURN\r\nC\r\n  980 FORMAT (A25,' 992, XYPLOT INPUT DATA FILE ID. RECORDS TOO SHORT.',\r\n     1       '  XYPLOT ABANDONED.')\r\n  990 FORMAT (A25,' 993, XYPLOT FOUND ODD NR. OF VALUES FOR DATA PAIRS',\r\n     1       ' IN FRAME',I5,', CURVE NR.',I5,'.  LAST VALUE IGNORED.')\r\n 1000 FORMAT (A25,' 994, XYPLOT OUTPUT FILE NAME ',A4,' NOT FOUND.',\r\n     1       '  XYPLOT ABANDONED.')\r\n 1010 FORMAT (A25,' 997, NR.',I4,'.  FRAME NR.',I5,' INPUT DATA ',\r\n     1       'INCOMPATIBLE.  ASSUMPTIONS MAY PRODUCE INVALID PLOT.')\r\n 1020 FORMAT (A27,' 998, XYPLOT PLOTTER OR FRAME MAY NOT CHANGE FOR ',\r\n     1       'LOWER FRAME.  XYPLOT ABANDONED.')\r\n      END\r\n"
  },
  {
    "path": "mis/xyprpl.f",
    "content": "      SUBROUTINE XYPRPL\r\nC\r\n      LOGICAL         EXCEED,ANY\r\n      INTEGER         SYSBUF,Z,TITLEC,TITLER,TITLEL,XTITLE,BUFF,IBUF(2),\r\n     1                BLANK,EYE,CURVCH,CLORWD,EOR,SYMBOL(10),\r\n     2                IGRAPH(3,8),XYPLTT\r\n      REAL            GRAPH(3,8),BUF(2),FID(300)\r\n      COMMON /SYSTEM/ SYSBUF, L\r\n      COMMON /OUTPUT/ IHEAD(96)\r\n      COMMON /XYPPPP/ IFRAME,TITLEC(32),TITLEL(14),TITLER(14),\r\n     1                XTITLE(32),ID(300),MAXPLT,XMIN,XINC,EXCEED,I123,\r\n     2                MAXROW\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      EQUIVALENCE     (FID(1),ID(1)),(GRAPH(1,1),IGRAPH(1,1)),\r\n     1                (BUF(1),IBUF(1))\r\n      DATA    SYMBOL/ 1H*,1H0,1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH /\r\nC\r\nC     GRAPH ARRAY CONTENTS\r\nC\r\nC     COL 1 = LEFT COLUMN USED\r\nC     COL 2 = CENTER COLUMN USED\r\nC     COL 3 = RIGHT COLUMN USED\r\nC     COL 4 = WIDTH OF GRAPH\r\nC     COL 5 = YRATIO\r\nC     COL 6 = YMIN\r\nC     COL 7 = CENTER\r\nC     COL 8 = YMAX\r\nC\r\n      DATA IGRAPH(1,1),IGRAPH(1,2),IGRAPH(1,3),IGRAPH(1,4)/1,60,119,118/\r\n      DATA IGRAPH(2,1),IGRAPH(2,2),IGRAPH(2,3),IGRAPH(2,4)/1,30, 59, 58/\r\n      DATA IGRAPH(3,1),IGRAPH(3,2),IGRAPH(3,3),IGRAPH(3,4)/61,90,119,58/\r\n      DATA BLANK /4H    /, EYE/ 4HI    /\r\n      DATA XYPLTT, MINXD, NOEOR, EOR, INPRWD, CLORWD /201,10,0,1,0,1/\r\nC\r\nC\r\n      ICORE  = KORSZ(Z)\r\n      BUFF   = ICORE - SYSBUF\r\nC\r\n      ICORE  = BUFF - 1\r\n      MAXROW = ICORE/30\r\n      ANY    =.FALSE.\r\n      EXCEED =.FALSE.\r\n      CALL OPEN (*180,XYPLTT,Z(BUFF),INPRWD)\r\n   10 CALL FWDREC (*170,XYPLTT)\r\nC\r\nC     READ ID RECORD\r\nC\r\n   20 CALL READ (*170,*170,XYPLTT,ID(1),300,EOR,NWORDS)\r\nC\r\nC     SKIP RECORD IF PLOT ONLY\r\nC\r\n      IF (ID(289).EQ.0 .OR. ID(289).EQ.1) GO TO 10\r\nC\r\nC     SKIP INITIALIZATION IF AXIS AND SCALES ARE COMPLETE\r\nC\r\n      ICURVE = MOD(ID(3),10)\r\n      IF (ICURVE .EQ. 0) ICURVE = 10\r\n      CURVCH = SYMBOL(ICURVE)\r\n      IF (ID(8) .EQ. 0) GO TO 160\r\nC\r\nC     1 = UPPER,  0 = WHOLE,  -1 = LOWER\r\nC\r\n      IF (ID(7)) 50,30,30\r\nC\r\nC     OUTPUT OUR GRAPH IF THERE IS ONE TO OUTPUT\r\nC\r\n   30 IF (ANY) CALL XYGRAF (IGRAPH)\r\n      ANY = .TRUE.\r\nC\r\nC     INITIALIZE MATRIX TO ALL BLANKS\r\nC\r\nC\r\nC     COMPUTE XRATIO = LINES/UNIT VALUE    FID(MINXD) = MIN-X  INCREMENT\r\nC\r\nC\r\nC     MAX OF 400 LINES PER PLOT\r\nC\r\n      XMIN = FID(15)\r\n      XMAX = FID(17)\r\n      TEMP = AMIN1(400.,FLOAT(MAXROW))\r\n      TEMP = AMIN1(TEMP,3.0*FLOAT(ID(246)))\r\n      XINC = FID(MINXD)\r\n      XINC = AMAX1(XINC,(XMAX-XMIN)/TEMP)\r\n      XRATIO = 1.0/XINC\r\n      MAXPLT = ABS((XMAX-XMIN)/XINC + 1.5)\r\n      MAXPLT = MIN0(MAXPLT,MAXROW)\r\n      N = 30*MAXPLT\r\n      DO 40 I = 1,N\r\n   40 Z(I) = BLANK\r\n   50 CONTINUE\r\nC\r\nC     FILL CURVE TITLE AND HEADING\r\nC     DEMO D10023A INDICATES HEADING WORDS (1-32, AND 36) ARE NUMERIC\r\nC     0 OR 1. REPLACE THEM BY BLANKS.\r\nC     (DON'T KNOW WHO PUTS THOSE 0 & 1 HERE)\r\nC\r\n      DO 60 I = 1,32\r\n      XTITLE(I) = ID(I+178)\r\n   60 TITLEC(I) = ID(I+145)\r\n      DO 70 I = 1,96\r\n      IHEAD(I) = ID(I+50)\r\n      IF (IHEAD(I) .EQ. 0) IHEAD(I) = BLANK\r\n   70 CONTINUE\r\n      IF (IHEAD(36) .EQ. 1) IHEAD(36) = BLANK\r\n      IFRAME = ID(281)\r\n      IF (ID(7)) 100,80,120\r\n   80 I123 = 1\r\n      DO 90 I = 1,14\r\n   90 TITLEL(I) = ID(I+210)\r\n      GO TO 140\r\n  100 I123 = 2\r\n      DO 110 I = 1,14\r\n  110 TITLEL(I) = ID(I+210)\r\n      GO TO 140\r\n  120 I123 = 3\r\n      DO 130 I = 1,14\r\n  130 TITLER(I) = ID(I+210)\r\nC\r\nC     PLOT GRID  (WHOLE LOWER OR UPPER)\r\nC\r\n  140 DO 150 J = 1,3\r\n      DO 150 I = 1,MAXPLT\r\n      CALL XYCHAR (I,IGRAPH(I123,J),EYE)\r\n  150 CONTINUE\r\nC\r\nC     UNITS AND VALUES\r\nC\r\n      YMIN = FID(23)\r\n      YMAX = FID(25)\r\n      DELTA = YMAX - YMIN\r\n      IF (DELTA .EQ. 0.0) DELTA = YMIN\r\n      IF (DELTA .EQ. 0.0) DELTA = 1.0\r\n      YRATIO = FLOAT(IGRAPH(I123,4))/DELTA\r\n      CENTER = YMIN + DELTA/2.0\r\n      GRAPH(I123,5) = YRATIO\r\n      GRAPH(I123,6) = YMIN\r\n      GRAPH(I123,7) = CENTER\r\n      GRAPH(I123,8) = YMAX\r\nC\r\nC     READ DATA AND PLOT POINTS\r\nC\r\n  160 CALL READ (*170,*20,XYPLTT,BUF(1),2,NOEOR,NWORDS)\r\n      IF (IBUF(1) .EQ. 1) GO TO 160\r\n      IROW = (BUF(1) - XMIN)*XRATIO + 1.5\r\n      ICOL = (BUF(2) - YMIN)*YRATIO + 1.5\r\n      ICOL = ICOL + IGRAPH(I123,1) - 1\r\n      CALL XYCHAR (IROW,ICOL,CURVCH)\r\n      GO TO 160\r\nC\r\nC     TERMINIATE  (DUMP GRAPH IF ANY)\r\nC\r\n  170 IF (ANY) CALL XYGRAF (IGRAPH)\r\n      CALL CLOSE (XYPLTT,CLORWD)\r\n  180 RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xyprpt.f",
    "content": "      SUBROUTINE XYPRPT\r\nC\r\nC*****\r\nC\r\nC     DUMMY DECK FOR MODULE XYPRNPLT - SEE USER'S MANUAL SECTION 5.6.\r\nC                                      FOR MODULE PROPERTIES, CHECK\r\nC                                      SUBROUTINE XMPLDD OR USE DIAG 31.\r\nC\r\nC*****\r\nC\r\nC     INTEGER INFILE\r\nC\r\nC     NO PARAMETERS, OUTPUTS OR SCRATCH FILES\r\nC\r\nC     DATA INFILE /101/\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/xytics.f",
    "content": "      SUBROUTINE XYTICS (IOUT,OUT,NDEVIS,R1,R2,ISKIP,LOG,IFLAG)\r\nC\r\nC     THIS SUBROUTINE PERFORMS ONLY TIC COMPUTATIONS FOR XYDUMP.\r\nC\r\n      INTEGER IOUT(8)\r\n      REAL    OUT(8),LENGTH\r\nC\r\n      IF (LOG .NE. 0) GO TO 70\r\n      IF (R1 .EQ. R2) R2 = R1 + 1.0\r\n      DIV = NDEVIS\r\n      IF (DIV .LE. 0.0) DIV = 5.0\r\n      LENGTH = R2 - R1\r\n      IF (IFLAG  .NE. 0  ) DIV = LENGTH\r\n      IF (LENGTH .LE. 0.0) GO TO 50\r\n      FINC = 1.0001*LENGTH/DIV\r\nC\r\nC     CONVERT FINC TO SCIENTIFIC AND ROUND OFF TO 1 DIGIT (1 TO 10)\r\nC\r\n      IPOWER = 0\r\n      IF (FINC .LT.  1.0) GO TO 20\r\n   10 IF (FINC .LT. 10.0) GO TO 30\r\n      IPOWER = IPOWER + 1\r\n      FINC   = FINC/10.0\r\n      GO TO 10\r\n   20 IPOWER = IPOWER - 1\r\n      FINC = FINC*10.0\r\n      IF (FINC .LT. 1.0) GO TO 20\r\n   30 IINC = 10\r\n      IF (FINC .LT. 7.5) IINC = 5\r\n      IF (FINC .LT. 3.5) IINC = 2\r\n      IF (FINC .LT. 1.5) IINC = 1\r\nC\r\nC     ACTUAL INCREMENT\r\nC\r\n      FINC = FLOAT(IINC)*10.0**IPOWER\r\nC\r\nC     COMPUTE FIRST DIVISION POINT\r\nC\r\n      NFIRST = R1*10.0**(-IPOWER) + SIGN(0.555,R1)\r\nC\r\nC     GUARANTEE THAT TICKS WILL STEP THROUGH ZERO\r\nC\r\n      NTEMP  = NFIRST/IINC\r\n      NFIRST = NTEMP*IINC\r\n      FIRST  = FLOAT(NFIRST)*10.0**(IPOWER)\r\nC\r\nC     GET LOWEST VALUE OF FRAME\r\nC\r\n      IF (FIRST .LE. R1) GO TO 35\r\nC\r\nC     CHECK ABAINST EPSILON DIFFERENCE.  SENSITIVE TO TRUNCATION\r\nC\r\n      LENGTH = FINC*1.0E-4\r\n      IF (FIRST-R1 .LT. LENGTH) FIRST = FIRST - LENGTH\r\n      IF (FIRST-R1 .GE. LENGTH) FIRST = FIRST - FINC\r\n      NFIRST = FIRST*10.0**(-IPOWER) + SIGN(0.5,R1)\r\n   35 ITICS  = (R2-FIRST)/FINC + 1.5\r\n      TEMP   = FLOAT(ITICS-1)*FINC + FIRST\r\n      ENDV   = TEMP\r\n      IF (ENDV .GE. R2) GO TO 37\r\n      LENGTH = FINC*2.0E-4\r\n      IF (ENDV+LENGTH .GE. R2)  ENDV = ENDV + LENGTH\r\n      IF (ENDV+LENGTH .LT. R2)  ENDV = ENDV + FINC\r\n      ITICS = (ENDV-FIRST)/FINC + 0.5\r\n      TEMP  = FLOAT(ITICS-1)*FINC + FIRST\r\n   37 CONTINUE\r\n      IF (ENDV-TEMP .LT. FINC/4.0) ITICS = ITICS - 1\r\nC\r\nC     FIND MAXIMUM NUMBER OF DIGITS\r\nC\r\n      LAST   = NFIRST + IINC*ITICS\r\n      LAST   = MAX0(IABS(LAST),IABS(NFIRST))\r\n      MAXDIG = 1\r\n   40 IF (LAST .LT. 10) GO TO 60\r\n      MAXDIG = MAXDIG + 1\r\n      LAST   = LAST/10\r\n      GO TO 40\r\nC\r\nC     LENGTH = 0\r\nC\r\n   50 ITICS   = 0\r\n   60 OUT(1)  = FIRST\r\n      OUT(2)  = FINC\r\n      OUT(3)  = ENDV\r\n      IOUT(4) = MAXDIG\r\n      IOUT(5) = IPOWER\r\n      IOUT(6) = ITICS\r\n      IOUT(7) = ISKIP\r\n      RETURN\r\nC\r\nC     LOG SCALE - INITIAL LABELING CALCULATED\r\nC\r\n   70 FIRST  = R1\r\n      ITICS  = LOG\r\n      ENDV   = R2\r\n      FINC   = 10.0\r\n      MAXDIG = 1\r\n      IPOWER = 0\r\n      GO TO 60\r\nC\r\n      END\r\n"
  },
  {
    "path": "mis/xytran.f",
    "content": "      SUBROUTINE XYTRAN\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL         VGP,RANDOM,OUTOPN,PRINT,PLOT,PAPLOT,OOMPP,OOMCP,\r\n     1                PUNCH\r\n      INTEGER         WORD(58),NAMEV(11),FILES(11),SUBCAS(200),\r\n     1                NAME(2),MAJID(11),ROUTIN(2),HEADSV(96),\r\n     2                XYCARD(20),OPENF(5),INDB(5)\r\n      REAL            TEMP,TEMP1,RBUF(100),RZ(1),VALUE(60)\r\n      CHARACTER       UFM*23,UWM*25\r\n      COMMON /XMSSG / UFM,UWM\r\n      COMMON /BLANK / BLKCOM,IDUM1,IPSET,IPSET2,NFRAME,NCARD\r\n      COMMON /SYSTEM/ SYSBUF,L,NOGO,NIN,KSYSTM(81),INTR\r\n      COMMON /OUTPUT/ IHEAD(96)\r\n      COMMON /ZZZZZZ/ Z(1)\r\n      COMMON /XYWORK/ FILE,TCURVE(32),NTOPS,PRINT,IFILE,XAXIS(32),\r\n     1                NBOTS,PLOT,VECTOR,YAXIS(32),VECID(5),PUNCH,\r\n     2                MAJOR,YTAXIS(32),SUBC(5),CENTER,RANDOM,YBAXIS(32),\r\n     3                IDIN(153),BUF(100),IVALUE(60),IAT,IDOUT(300),\r\n     4                OUTOPN,STEPS,NAT,PAPLOT,KNT\r\n      EQUIVALENCE     (Z(1),RZ(1)),(BUF(1),RBUF(1)),(IVALUE(1),VALUE(1))\r\nC\r\n      DATA    STOP  / 4HSTOP /, GO    / 4HGO   /, VDUM  / 4HVDUM /,\r\n     1        XY    / 4HXY   /, FRAM  / 4HFRAM /, CLEA  / 4HCLEA /,\r\n     2        TCUR  / 4HTCUR /, XAXI  / 4HXTIT /, YAXI  / 4HYTIT /,\r\n     3        YTAX  / 4HYTTI /, YBAX  / 4HYBTI /, BLANK / 4H     /,\r\n     4        PSET  / 4HPSET /\r\nC\r\n      DATA    EOR   / 1  /, NOEOR /0  /, OUTRWD/1/, INPRWD/0/, REWD/1/\r\n      DATA    XYCDB / 101/, OUTFIL/201/, INDB  / 102,103,104,105,106 /\r\n      DATA    NWORDS/ 58 /, ROUTIN/4HXYTR, 4HAN  /, RAND  / 4HRAND   /\r\n      DATA    VG    / 4HVG  /, I3 / 3 /\r\nC\r\n      DATA    WORD  /\r\n     1        4HXMIN, 4HXMAX, 4HYMIN, 4HYMAX, 4HYTMI, 4HYTMA, 4HYBMI,\r\n     8        4HYBMA, 4HXINT, 4HYINT, 4HYTIN, 4HYBIN, 4HXAXI, 4HYAXI,\r\n     5        4HXTAX, 4HXBAX, 4HXDIV, 4HYDIV, 4HYTDI, 4HYBDI, 4HXVAL,\r\n     2        4HYVAL, 4HYTVA, 4HYBVA, 4HUPPE, 4HLOWE, 4HLEFT, 4HRIGH,\r\n     9        4HTLEF, 4HTRIG, 4HBLEF, 4HBRIG, 4HALLE, 4HTALL, 4HBALL,\r\n     6        4HXLOG, 4HYLOG, 4HYTLO, 4HYBLO, 4HCURV, 4HDENS, 4H....,\r\n     3        4H...., 4H...., 4HSKIP, 4HCAME, 4HPLOT, 4HXPAP, 4HYPAP,\r\n     O        4HPENS, 4HXGRI, 4HYGRI, 4HXTGR, 4HYTGR, 4HXBGR, 4HYBGR,\r\n     7        4HCSCA, 4HCOLO/\r\nC\r\nC     DATA FOR THE 11 VECTOR TYPES POSSIBLE\r\nC\r\nC                                                         BASIC\r\nC              VECTOR-NAME         RESIDENT-FILE       MAJOR - ID\r\nC          ******************     ***************   ****************\r\n      DATA NAMEV( 1) / 4HDISP /,  FILES( 1) / 3 /,  MAJID( 1) /  1 /\r\n      DATA NAMEV( 2) / 4HVELO /,  FILES( 2) / 3 /,  MAJID( 2) / 10 /\r\n      DATA NAMEV( 3) / 4HACCE /,  FILES( 3) / 3 /,  MAJID( 3) / 11 /\r\n      DATA NAMEV( 4) / 4HSPCF /,  FILES( 4) / 2 /,  MAJID( 4) /  3 /\r\n      DATA NAMEV( 5) / 4HLOAD /,  FILES( 5) / 1 /,  MAJID( 5) /  2 /\r\n      DATA NAMEV( 6) / 4HSTRE /,  FILES( 6) / 4 /,  MAJID( 6) /  5 /\r\n      DATA NAMEV( 7) / 4HFORC /,  FILES( 7) / 5 /,  MAJID( 7) /  4 /\r\n      DATA NAMEV( 8) / 4HSDIS /,  FILES( 8) / 1 /,  MAJID( 8) / 15 /\r\n      DATA NAMEV( 9) / 4HSVEL /,  FILES( 9) / 1 /,  MAJID( 9) / 16 /\r\n      DATA NAMEV(10) / 4HSACC /,  FILES(10) / 1 /,  MAJID(10) / 17 /\r\n      DATA NAMEV(11) / 4HNONL /,  FILES(11) / 2 /,  MAJID(11) / 12 /\r\n      DATA NAMEVG    / 4H VG  /\r\nC\r\nC     - IDOUT DATA RECORD DISCRIPTION -\r\nC\r\nC     WORD    TYPE   DISCRIPTION\r\nC     ==================================================================\r\nC       1     I/R    SUBCASE ID OR IF RANDOM THE MEAN RESPONSE\r\nC       2      I     FRAME NUMBER\r\nC       3      I     CURVE NUMBER\r\nC       4      I     POINT-ID OR ELEMENT-ID\r\nC       5      I     COMPONENT NUMBER\r\nC       6      I     VECTOR NUMBER  1 THRU 11\r\nC\r\nC       7      I     1 -- CURVE USES TOP HALF OF FRAME\r\nC                    0 -- CURVE USES FULL FRAME\r\nC                   -1 -- CURVE USES LOWER HALF OF FRAME\r\nC\r\nC       8      I     0 -- AXIS,TICS,LABELS,VALUES, ETC. HAVE BEEN DRAWN\r\nC                         AND THIS CURVE IS TO BE SCALED AND PLOTTED\r\nC                         IDENTICALLY AS LAST EXCEPT FOR CURVE SYMBOLS.\r\nC                    1 -- AXIS, TICS, LABELS, SCALEING, ETC. ARE TO BE\r\nC                         PERFORMED OR COMPUTED AND IF IDOUT(7)=0 OR 1\r\nC                         A SKIP TO NEW FRAME IS TO BE MADE.\r\nC\r\nC       9      I     NUMBER OF BLANK FRAMES BETWEEN FRAMES (FRAME-SKIP)\r\nC      10      R     MINIMUM X-INCREMENT\r\nC      11      R     XMIN  *\r\nC      12      R     XMAX   *   DEFINES ACTUAL LIMITS OF DATA OF THIS\r\nC      13      R     YMIN   *   UPPER, LOWER, OR FULL FRAME CURVE.\r\nC      14      R     YMAX  *\r\nC      15      R     ACTUAL VALUE OF FIRST TIC                 *\r\nC      16      R     ACTUAL INCREMENT TO SUCCESSIVE TICS        *\r\nC      17      I     ACTUAL MAXIMUM VALUE OF FRAME               *  X-\r\nC      18      I     MAXIMUM NUMBER OF DIGITS IN ANY PRINT-VALUE  * DIRE\r\nC      19      I     + OR - POWER FOR PRINT VALUES                * TICS\r\nC      20      I     TOTAL NUMBER OF TICS TO PRINT THIS EDGE     *\r\nC      21      I     VALUE PRINT SKIP  0,1,2,3---               *\r\nC      22      I     SPARE                                     *\r\nC      23      R     *\r\nC      24      R      *\r\nC      25      I       *\r\nC      26      I        *  SAME AS  15 THRU 22\r\nC      27      I        *  BUT FOR  Y-DIRECTION TICS\r\nC      28      I       *\r\nC      29      I      *\r\nC      30      I     *\r\nC      31      I     TOP EDGE TICS   **   EACH OF 31 THRU 34 MAY BE\r\nC      32      I     BOTTOM EDGE TICS **  LESS THAN 0 -- TICS W/O VALUES\r\nC      33      I     LEFT EDGE TICS   **  EQUAL TO  0 -- NO TICS HERE\r\nC      34      I     RIGHT EDGE TICS **   GREATER   0 -- TICS W VALUES\r\nC\r\nC      35      I     0 -- X-DIRECTION IS LINEAR\r\nC                    GREATER THAN 0 - NUMBR OF CYCLES AND X-DIREC IS LOG\r\nC      36      I     0 -- Y-DIRECTION IS LINEAR\r\nC                    GREATER THAN 0 - NUMBR OF CYCLES AND Y-DIREC IS LOG\r\nC      37      I     0 -- NO X-AXIS\r\nC                    1 -- DRAW X-AXIS\r\nC\r\nC      38      R     X-AXIS  Y-INTERCEPT\r\nC\r\nC      39      I     0 -- NO Y-AXIS\r\nC                    1 -- DRAW Y-AXIS\r\nC\r\nC      40      R     Y-AXIS  X-INTERCEPT\r\nC\r\nC      41      I     LESS THAN 0 ----- PLOT SYMBOL FOR EACH CURVE POINT.\r\nC                                      SELECT SYMBOL CORRESPONDING TO\r\nC                                      CURVE NUMBER IN IDOUT(3)\r\nC                    EQUAL TO  0 ----- CONNECT POINTS BY LINES WHERE\r\nC                                      POINTS ARE CONTINUOUS I.E.(NO\r\nC                                      INTEGER 1 PAIRS)\r\nC                    GREATER THAN 0 -- DO BOTH OF ABOVE\r\nC\r\nC      42\r\nC       .\r\nC       .\r\nC      50\r\nC      51     BCD    TITLE(32)\r\nC       .     BCD    SUBTITLE(32)\r\nC       .     BCD    LABEL(32)\r\nC       .     BCD    CURVE TITLE(32)\r\nC       .     BCD    X-AXIS TITLE(32)\r\nC     242     BCD    Y-AXIS TITLE(32)\r\nC     243      I     XGRID LINES   0=NO   1=YES\r\nC     244      I     YGRID LINES   0=NO   1=YES\r\nC     245      I     TYPE OF PLOT  1=RESPONSE, 2=PSDF, 3=AUTO\r\nC     246      I     STEPS\r\nC       .\r\nC       .\r\nC     281      I     PAPLOT FRAME NUMBER\r\nC     282      R     CSCALE (REAL NUMBER)\r\nC     283      I     PENSIZE OR DENSITY\r\nC     284      I     PLOTTER (LSHIFT 16) AND MODEL NUMBER.\r\nC     285      R     INCHES PAPER X-DIRECTION\r\nC     286      R     INCHES PAPER Y-DIRECTION\r\nC     287      I     CAMERA FOR SC4020 LESS THAN 0=35MM, 0=F80,\r\nC                                        GREATER 0=BOTH\r\nC     288      I     PRINT FLAG  **\r\nC     289      I     PLOT  FLAG  ** 0=NO, +=YES (PLOT- 2=BOTH, -1=PAPLT)\r\nC     290      I     PUNCH FLAG  **\r\nC     291      R     X-MIN OF ALL DATA\r\nC     292      R     X-MAX OF ALL DATA\r\nC     293      R     Y-MIN WITHIN X-LIMITS OF FRAME\r\nC     294      R     X-VALUE AT THIS Y-MIN\r\nC     295      R     Y-MAX WITHIN X-LIMITS OF FRAME\r\nC     296      R     X-VALUE AT THIS Y-MAX\r\nC     297      R     Y-MIN FOR ALL DATA\r\nC     298      R     X-VALUE AT THIS Y-MIN\r\nC     299      R     Y-MAX FOR ALL DATA\r\nC     300      R     X-VALUE AT THIS Y-MAX\r\nC     ==================================================================\r\nC\r\nC     SAVE OUTPUT HEADING\r\nC\r\n      DO 10 I = 1,96\r\n   10 HEADSV(I) = IHEAD(I)\r\nC\r\nC     ALLOCATE CORE AND OPEN DATA BLOCKS\r\nC\r\n      OOMPP = .FALSE.\r\n      VGP   = .FALSE.\r\n      OOMCP = .FALSE.\r\n      RANDOM= .FALSE.\r\n      IFLE  = XYCDB\r\n      CORE  = KORSZ(Z) - 1\r\n      DO 20 I = 1,32\r\n      TCURVE(I) = BLANK\r\n      XAXIS(I)  = BLANK\r\n      YAXIS(I)  = BLANK\r\n      YTAXIS(I) = BLANK\r\n      YBAXIS(I) = BLANK\r\n   20 CONTINUE\r\n      DO 30 I = 1,5\r\n   30 SUBC(I) = 1\r\n      NSUBS  = 0\r\n      CORE   = CORE - SYSBUF\r\n      IF (CORE .LT. 0) GO TO 825\r\n      INTRWD = INPRWD\r\n      IF (INTR .LE. 0) GO TO 35\r\n      INTRWD = OUTRWD\r\n      XYCDB  = 301\r\n   35 CALL OPEN (*835,XYCDB,Z(CORE+1),INTRWD)\r\n      IF (INTR .LE. 0) GO TO 65\r\n      CARD = 1\r\n      WRITE (L,900)\r\n   40 DO 42 IJ = 1,20\r\n   42 XYCARD(IJ) = BLANK\r\n      CALL XREAD (*43,XYCARD)\r\n      IF (XYCARD(1) .EQ. STOP) GO TO 1500\r\n      IF (XYCARD(1) .EQ.   GO) CARD = -1\r\n      CALL IFP1XY (CARD,XYCARD)\r\n      IF (XYCARD(1) .EQ. GO) GO TO 50\r\n      CARD = 0\r\n      IF (NOGO .EQ. 0) GO TO 45\r\n      NOGO = 0\r\n   43 WRITE (L,902)\r\n   45 WRITE (L,910) XYCARD\r\n      GO TO 40\r\n   50 CALL CLOSE (XYCDB,REWD)\r\n      IF (INTR .GT. 10) L = 1\r\n      CALL OPEN (*835,XYCDB,Z(CORE+1),INPRWD)\r\n   65 IF (INTR .LE. 0) CALL FWDREC (*80,XYCDB)\r\n      OUTOPN = .FALSE.\r\n      IF (BLKCOM .EQ. RAND) RANDOM = .TRUE.\r\n      IF (BLKCOM .EQ.   VG) VGP = .TRUE.\r\n      IF (BLKCOM .EQ.   VG) NAMEV(5) = NAMEVG\r\nC\r\n      CORE = CORE - SYSBUF\r\n      DO 70 I = 1,5\r\n      OPENF(I) = -1\r\n      IF (CORE .LT. 0) GO TO 235\r\nC\r\n      CALL OPEN (*70,INDB(I),Z(CORE),INPRWD)\r\n      OPENF(I) = 0\r\n      VECID(I) = 0\r\n      CORE = CORE - SYSBUF\r\n   70 CONTINUE\r\nC\r\n      CORE = CORE + SYSBUF - 1\r\nC\r\nC     NOTE - OUTPUT DATA BLOCKS WILL BE OPENED WHEN AND IF REQUIRED\r\nC\r\nC\r\nC\r\nC     READ FIRST BCD WORD FROM -XYCDB- THEN GO INITIALIZE DATA\r\nC\r\n      BCD = CLEA\r\n      GO TO 800\r\n   80 IER = 2\r\n      GO TO 237\r\n   90 IER = 3\r\n      GO TO 237\r\nC\r\nC     BRANCH ON BCD WORD\r\nC\r\n  100 IF (BCD .EQ. XY  ) GO TO 230\r\n      IF (BCD .EQ. TCUR) GO TO 180\r\n      IF (BCD .EQ. XAXI) GO TO 190\r\n      IF (BCD .EQ. YAXI) GO TO 200\r\n      IF (BCD .EQ. YTAX) GO TO 210\r\n      IF (BCD .EQ. YBAX) GO TO 220\r\nC\r\nC     SET SINGLE VALUE FLAGS. READ IN VALUE\r\nC\r\n      IF (BCD .EQ. CLEA) GO TO 150\r\n      IF (BCD .EQ. VDUM) GO TO 820\r\n      CALL READ (*80,*90,XYCDB,IVAL,1,NOEOR,FLAG)\r\n      DO 110 I = 1,NWORDS\r\n      IF (BCD .EQ. WORD(I)) GO TO 130\r\n  110 CONTINUE\r\nC\r\nC     WORD NOT RECOGNIZED\r\nC\r\n      CALL PAGE2 (2)\r\n      WRITE (L,120) UWM,BCD\r\n      GO TO 140\r\nC\r\nC     KEY WORD FOUND\r\nC\r\n  130 IF (BCD .NE. WORD(58)) GO TO 135\r\n      IVALUE(I) = IVAL\r\n      CALL READ (*80,*90,XYCDB,IVAL,1,NOEOR,FLAG)\r\n      IVALUE(I+1) = IVAL\r\n      GO TO 140\r\n  135 IVALUE(I) = IVAL\r\nC\r\nC     READ NEXT BCD WORD\r\nC\r\n  140 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG)\r\n      GO TO 100\r\nC\r\nC     CLEAR ALL VALUES SET AND RESTORE DEFAULTS\r\nC\r\n  150 DO 160 I = 1,12\r\n  160 IVALUE(I) = 1\r\n      DO 170 I = 13,NWORDS\r\n      IF (I .NE. 47) IVALUE(I) = 0\r\n  170 CONTINUE\r\n      DO 171 I = 25,32\r\n  171 IVALUE(I) = 1\r\nC\r\nC     DEFAULT CAMERA TO BOTH\r\nC\r\n      IVALUE(46) = 3\r\n      GO TO 140\r\nC\r\nC     SET TITLES\r\nC\r\n  180 CALL READ (*80,*90,XYCDB,TCURVE(1),32,NOEOR,FLAG)\r\n      GO TO 140\r\n  190 CALL READ (*80,*90,XYCDB,XAXIS(1),32,NOEOR,FLAG)\r\n      GO TO 140\r\n  200 CALL READ (*80,*90,XYCDB,YAXIS(1),32,NOEOR,FLAG)\r\n      GO TO 140\r\n  210 CALL READ (*80,*90,XYCDB,YTAXIS(1),32,NOEOR,FLAG)\r\n      GO TO 140\r\n  220 CALL READ (*80,*90,XYCDB,YBAXIS(1),32,NOEOR,FLAG)\r\n      GO TO 140\r\nC\r\nC     XY-COMMAND OPERATIONS HIT\r\nC\r\n  230 CALL READ (*80,*90,XYCDB,BUF(1),7,NOEOR,FLAG)\r\n      IF (BUF(6) .NE. 0) PAPLOT = .TRUE.\r\n      IF (BUF(6) .NE. 0) OOMPP  = .TRUE.\r\n      IF (BUF(2) .NE. 0) OOMCP  = .TRUE.\r\n      IF (BUF(1) .NE. 0) PRINT  = .TRUE.\r\n      IF (BUF(2) .NE. 0) PLOT   = .TRUE.\r\n      KASKNT = 0\r\n      IF (OUTOPN) GO TO 280\r\n      IF (.NOT.PLOT .AND. .NOT.PAPLOT) GO TO 280\r\nC\r\nC     OPEN OUTPUT PLOT DATA BLOCK\r\nC\r\n      CORE = CORE - SYSBUF\r\n      IF (CORE .GT. 0) GO TO 260\r\n  235 IER = 8\r\n      IFLE = -CORE\r\n  237 CALL MESAGE (IER,IFLE,ROUTIN)\r\nC\r\nC     CLOSE ANY OPEN FILES AND RETURN\r\nC\r\n  240 CALL CLOSE (XYCDB,REWD)\r\n      DO 250 I = 1,5\r\n      CALL CLOSE (INDB(I),REWD)\r\n  250 CONTINUE\r\n      IF (.NOT.OUTOPN) RETURN\r\nC\r\nC     NO CAMERA PLOTS SO DONT WRITE TRAILER\r\nC\r\n      IF (.NOT. OOMCP) GO TO 255\r\n      BUF(1) = OUTFIL\r\n      BUF(2) = 9999999\r\n      CALL WRTTRL (BUF(1))\r\n  255 CALL CLOSE  (OUTFIL,REWD)\r\n      GO TO 830\r\nC\r\n  260 CALL OPEN  (*270,OUTFIL,Z(CORE+1),OUTRWD)\r\n      CALL FNAME (OUTFIL,NAME(1))\r\n      CALL WRITE (OUTFIL,NAME(1),2,EOR)\r\n      OUTOPN = .TRUE.\r\n      GO TO 280\r\nC\r\nC     ERROR,  PLOTS REQUESTED AND OUTFIL PURGED.  DO ALL ELSE.\r\nC\r\n  270 CALL PAGE2 (2)\r\n      WRITE (L,290) UWM,OUTFIL\r\n      PLOT = .FALSE.\r\nC\r\n  280 IF (BUF(3) .NE. 0) PUNCH = .TRUE.\r\n      TYPE   = BUF(4)\r\n      VECTOR = BUF(5)\r\n      NSUBS  = BUF(7)\r\n      KNT    = 0\r\n      IF (NSUBS .GT. 0) CALL READ (*80,*90,XYCDB,SUBCAS(1),NSUBS,NOEOR,\r\n     1                             FLAG)\r\n      IF (NSUBS .GT. 0) CALL SORT (0,0,1,1,SUBCAS(1),NSUBS)\r\n      IF (RANDOM .AND. TYPE.NE.2 .AND. TYPE.NE.3) GO TO 380\r\n      IF ((.NOT.RANDOM) .AND. (TYPE.EQ.2    .OR.  TYPE.EQ.3) ) GO TO 380\r\n      IF ((.NOT.RANDOM) .AND. IPSET.EQ.PSET .AND. VECTOR.GT.7) GO TO 380\r\n      IF ((.NOT.RANDOM) .AND. IPSET.NE.PSET .AND. VECTOR.LE.7) GO TO 380\r\nC\r\nC     INITIALIZE DATA BLOCK POINTERS FOR THIS VECTOR\r\nC\r\n      FILE = FILES(VECTOR)\r\nC\r\nC     CHECK FOR RANDOM\r\nC\r\n      IF (RANDOM .AND. TYPE.EQ.3) FILE = 2\r\n      IF (RANDOM .AND. TYPE.EQ.2) FILE = 1\r\n      IFILE = INDB(FILE)\r\n      IF (OPENF(FILE)) 360,400,400\r\nC\r\nC     EOR HIT ON IFILE.  SHOULD NOT HAVE HAPPENED\r\nC\r\n  330 IER = 3\r\n      GO TO 355\r\nC\r\nC     EOF HIT ON IFILE.  SHOULD NOT HAVE HAPPENED\r\nC\r\n  350 IER = 2\r\n  355 CALL MESAGE (IER,IFILE,ROUTIN)\r\n      OPENF(FILE) = -1\r\nC\r\nC     FILE IFILE IS NOT SATISFACTORY\r\nC\r\n  360 CALL FNAME (IFILE,BUF(1))\r\n      CALL PAGE2 (3)\r\n      WRITE (L,370) UWM,BUF(1),BUF(2),NAMEV(VECTOR)\r\nC\r\nC     SKIP OVER ANY AND ALL FRAME DATA FOR THIS CARD.\r\nC\r\n  380 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG)\r\n      IF (BCD .NE. FRAM) GO TO 800\r\n  390 CALL READ (*80,*90,XYCDB,BUF(1),3,NOEOR,FLAG)\r\n      IF (BUF(1) .NE.-1) GO TO 390\r\n      GO TO 380\r\nC\r\nC     CHECK TO SEE IF THIS FILES SUBCASE IS TO BE OUTPUT\r\nC\r\n  400 CONTINUE\r\n      IF (OPENF(FILE)) 360,401,402\r\n  401 CONTINUE\r\n      CALL FWDREC (*350,IFILE)\r\n      CALL READ (*350,*330,IFILE,IDIN(1),20,EOR,FLAG)\r\n      CALL READ (*350,*403,IFILE,IDIN(1),-CORE,EOR,FLAG)\r\n      GO TO 235\r\n  403 CALL BCKREC (IFILE)\r\n      CALL BCKREC (IFILE)\r\n      SIZE  = FLAG/IDIN(10)\r\n      KTYPE = (IDIN(2)/1000)*1000\r\n      OPENF(FILE) = 1\r\n  402 CONTINUE\r\n      KASKNT = KASKNT + 1\r\n      IF (NSUBS .EQ. 0) GO TO 415\r\n      SUBC(FILE) = SUBCAS(KASKNT)\r\n      GO TO 420\r\n  415 SUBC(FILE) = 0\r\nC\r\nC     NOW READY TO PROCEED WITH DATA SELECTION\r\nC\r\n  420 CALL READ (*80,*240,XYCDB,BCD,1,NOEOR,FLAG)\r\n      IF (BCD .NE. FRAM) GO TO 800\r\nC\r\nC     READ IN THE ID-COMP-COMP SETS AND SORT ON ID-S.\r\nC\r\n      KNT  = 0\r\n      ITRY = 0\r\n      IAT  = 0\r\n  430 CALL READ (*80,*90,XYCDB,Z(IAT+1),3,NOEOR,FLAG)\r\n      IF (Z(IAT+1) .EQ. -1) GO TO 440\r\n      IAT  = IAT + 3\r\n      GO TO 430\r\nC\r\nC     SORT ON ID-S\r\nC\r\n  440 CALL SORT (0,0,3,1,Z(1),IAT)\r\n  450 ICORE = CORE - IAT\r\nC\r\nC     COMPUTE FINAL REGIONS\r\nC\r\n      NSLOTS= IAT/3\r\n      NAT   = IAT\r\n      IF (Z(I3).GT.0 .AND. .NOT.RANDOM) NSLOTS = NSLOTS + NSLOTS\r\n  554 STEPS = SIZE\r\n      IF (.NOT.VGP) GO TO 559\r\n      ITEMP = 0\r\n      NUQ   = 0\r\n      DO 555 I = 1,NAT,3\r\n      IF (Z(I) .EQ. ITEMP) GO TO 555\r\n      NUQ   = NUQ + 1\r\n      ITEMP = Z(I)\r\n  555 CONTINUE\r\n      STEPS = STEPS*NUQ\r\nC\r\nC     SET CORE TO 1\r\nC\r\n      J = IAT + 1\r\n      N = J + MIN0(ICORE,(NSLOTS+1)*STEPS)\r\n      DO 556 I = J,N\r\n  556 Z(I) = 1\r\n  559 CONTINUE\r\n      IF (STEPS*(NSLOTS+1) .LE. ICORE) GO TO 580\r\n      CALL PAGE2 (4)\r\n      WRITE (L,570) UWM,Z(IAT-2),Z(IAT-1),Z(IAT)\r\n      ICRQ = STEPS*(NSLOTS+1) - ICORE\r\n      WRITE (L,571) ICRQ\r\n      NSLOTS = NSLOTS - 1\r\n      IF (Z(I3).GT.0 .AND. .NOT.RANDOM) NSLOTS = NSLOTS - 1\r\n      NAT = NAT - 3\r\n      IF (NSLOTS .GT. 0) GO TO 554\r\n      GO TO 420\r\n  580 NTOPS = NSLOTS/2\r\n      NBOTS = NTOPS\r\n      IF (Z(I3).GT.0 .AND. .NOT.RANDOM) GO TO 590\r\n      NTOPS = NSLOTS\r\n      NBOTS = 0\r\n  590 CONTINUE\r\n      CENTER = IAT + NTOPS*STEPS\r\nC\r\nC     GET CURVE DATA\r\nC\r\n      MAJOR = KTYPE + MAJID(VECTOR)\r\n      I2    = 0\r\n      IFCRV =-1\r\n      ISTSV = 0\r\n      IDTOT = NAT/3\r\nC\r\nC     I1 = 1-ST ROW OF NEXT ID\r\nC     I2 = LAST ROW OF NEXT ID\r\nC\r\n  630 I1   = I2 + 1\r\n      NBEG = 3*I1 - 3\r\n      IF (NBEG .GE. NAT) GO TO 780\r\n      IDZ = NBEG + 1\r\n      ID  = Z(IDZ)\r\n      I2  = I1\r\n  640 IF (I2.GE.IDTOT .OR. RANDOM) GO TO 650\r\n      IF (Z(3*I2+1) .NE. ID) GO TO 650\r\n      I2  = I2 + 1\r\n      GO TO 640\r\nC\r\nC     FIND THIS ID ON IFILE\r\nC\r\n  650 CALL XYFIND (*350,*330,*660,MAJID(1),IDZ)\r\n      KNT = -1\r\n      IF (ITRY.EQ.0 .AND. SUBC(FILE).EQ.-1) GO TO 661\r\nC\r\nC     THIS IS THE WAY OUT FOR ALL SUBCASE REQUEST\r\nC\r\n      IF (ITRY.NE.0 .AND. SUBC(FILE).EQ.-1) GO TO 415\r\n      KTYPE = (IDIN(2)/1000)*1000\r\n      IF (KTYPE.EQ.2000 .OR. KTYPE.EQ.3000) GO TO 690\r\n      CALL PAGE2 (2)\r\n      WRITE (L,310) UWM\r\n      GO TO 360\r\nC\r\nC     ID NOT FOUND. PRINT MESSAGE AND SHRINK LIST.\r\nC\r\nC\r\nC     SUBCASE REQUEST EITHER SUBCASE NOT FOUND OR POINT NOT FOUND\r\nC\r\n  660 IF (KNT .EQ. -1) IDZ = -1\r\n      IF (IDZ .NE. -1) GO TO 784\r\n      CALL PAGE2 (3)\r\n      WRITE (L,530) UWM,ID,NAMEV(VECTOR),IFILE\r\n      WRITE (L,635) SUBC(FILE)\r\n      KNT = 0\r\n      IF (NAT/3.LE.I2 .AND. I1.EQ.1) GO TO 784\r\n      GO TO 666\r\nC\r\nC     NSUBS = 0 AND POINT NOT FOUND START FRAME OVER\r\nC\r\n  661 CALL PAGE2 (3)\r\n      WRITE (L,530) UWM,ID,NAMEV(VECTOR),IFILE\r\n      CALL REWIND (IFILE)\r\n      SUBC(FILE) = 0\r\n      KNT = 0\r\n      IF (NAT/3 .GT. I2) GO TO 666\r\n      IF (I1    .EQ.  1) GO TO 415\r\n  666 CONTINUE\r\n      I13 = 3*I1 - 3\r\n      I23 = 3*I2 + 1\r\n      IF (I23 .GE. NAT) GO TO 680\r\n      DO 670 I = I23,NAT\r\n      I13 = I13 + 1\r\n  670 Z(I13) = Z(I)\r\n  680 IDTOT = IDTOT - (I2-I1) - 1\r\n      I2  = I1 - 1\r\n      NAT = I13\r\n      IF (IDZ.EQ.-1 .AND. I1.NE.1 .AND. .NOT.VGP) GO TO 630\r\n      IAT = NAT\r\n      GO TO 450\r\nC\r\nC     ID FOUND. READ DATA AND DISTRIBUTE INTO SLOTS.\r\nC\r\n  690 NWDS  = IDIN(10)\r\n      ISTEP = 0\r\n      IFCRV = IFCRV + 1\r\n      IF (VGP) ISTEP = ISTSV\r\n  700 CALL READ (*350,*630,IFILE,BUF(1),NWDS,NOEOR,FLAG)\r\n      ISTEP = ISTEP + 1\r\n      IF (ISTEP .GT. STEPS) GO TO 700\r\n      ITEMP = IAT + ISTEP\r\n      ISTSV = ISTEP\r\n      IF (.NOT.VGP) GO TO 709\r\n      IF (IFCRV .EQ. 0) GO TO 709\r\nC\r\nC     SORT X AND MOVE Y TO PROPER SLOTS\r\nC\r\n      IF (RBUF(1) .GE. RZ(ITEMP-1)) GO TO 709\r\n      N = ISTEP - 1\r\n      DO 706 I = 1,N\r\n      IF (RBUF(1) .LT. RZ(IAT+I)) GO TO 707\r\n  706 CONTINUE\r\n      GO TO 709\r\n  707 ISTEP = I\r\n      J  = ISTEP\r\n      ITEMP = IAT + ISTEP\r\n      N  = NSLOTS + 1\r\n      JJ = ISTSV  - 1\r\n      DO 708 I = 1,N\r\n      ITEM  = IAT + (I-1)*STEPS + J\r\n      TEMP1 = RZ(ITEM)\r\n      Z(ITEM) = 1\r\n      DO 708 IJ = J,JJ\r\n      ITEM = IAT + (I-1)*STEPS + IJ + 1\r\n      TEMP = RZ(ITEM)\r\n      RZ(ITEM) = TEMP1\r\n      TEMP1 = TEMP\r\n  708 CONTINUE\r\n  709 RZ(ITEMP) = RBUF(1)\r\nC\r\nC     DISTRIBUTE DATA\r\nC\r\n      DO 770 I = I1,I2\r\n      PLACE = I*STEPS + ISTEP\r\nC\r\nC     TOP CURVE\r\nC\r\n      COMP = Z(3*I-1)\r\nC\r\nC     SET MEAN RESPONSE IF RANDOM\r\nC\r\n      IF (RANDOM) Z(3*I) = IDIN(8)\r\nC\r\nC     SET NUMBER OF ZERO CROSSINGS IF RANDOM\r\nC\r\n      IF (RANDOM) BUF(I+20) = IDIN(9)\r\n      IF (COMP .EQ. 1000) GO TO 745\r\n      IF (COMP .EQ.    0) GO TO 770\r\n      IF (RANDOM) COMP = 2\r\n      IF (COMP .LE. NWDS) GO TO 740\r\n      Z(3*I-1) = 0\r\n      CALL PAGE2 (2)\r\n      WRITE (L,730) UWM,COMP,ID\r\n      GO TO 750\r\nC\r\n  740 ITEMP = IAT + PLACE\r\n      Z(ITEMP) = BUF(COMP)\r\n      GO TO 750\r\n  745 ITEMP = IAT + PLACE\r\n      Z(ITEMP) = 1\r\nC\r\nC     BOTTOM CURVE IF DOUBLE FRAME\r\nC\r\n  750 IF (RANDOM) GO TO 770\r\n      COMP = Z(3*I)\r\n      IF (COMP .EQ. 1000) GO TO 765\r\n      IF (COMP .EQ.    0) GO TO 770\r\n      IF (COMP .LE. NWDS) GO TO 760\r\n      Z(3*I) = 0\r\n      CALL PAGE2 (2)\r\n      WRITE (L,730) UWM,COMP,ID\r\n      GO TO 770\r\nC\r\n  760 ITEMP = CENTER + PLACE\r\n      Z(ITEMP) = BUF(COMP)\r\n      GO TO 770\r\n  765 ITEMP = CENTER + PLACE\r\n      Z(ITEMP) = 1\r\n  770 CONTINUE\r\n      ISTEP = ISTSV\r\n      GO TO 700\r\nC\r\nC     ALL DATA IS NOW IN SLOTS. INTEGER 1-S REMAIN IN VACANT SLOTS.\r\nC\r\n  780 IF (NSUBS .NE. 0) GO TO 783\r\n      SUBC(FILE) = IDIN(4)\r\n  783 CONTINUE\r\n      CALL XYDUMP (OUTFIL,TYPE)\r\n      KNT = 1\r\n      IF (NSUBS .NE. 0) GO TO 784\r\n      SUBC(FILE) = 0\r\n      ITRY = ITRY + 1\r\n      GO TO 450\r\n  784 CONTINUE\r\n      IF (KASKNT .LT. NSUBS) GO TO 785\r\n      KASKNT = 0\r\n      GO TO 402\r\n  785 KASKNT = KASKNT + 1\r\n      SUBC(FILE) = SUBCAS(KASKNT)\r\n      DO 786 I = 1,5\r\n  786 VECID(I) = 0\r\n      GO TO 450\r\nC\r\nC     INITIALIZE PARAMETERS\r\nC\r\n  800 PLOT  = .FALSE.\r\n      PUNCH = .FALSE.\r\n      PRINT = .FALSE.\r\n      PAPLOT= .FALSE.\r\n      DO 805 I = 1,5\r\n  805 VECID(I) = 0\r\n      GO TO 100\r\nC\r\nC     VALUE DUMP\r\nC\r\n  820 CONTINUE\r\n      GO TO 140\r\nC\r\nC     INTERACTIVE STOP INITIATED HERE.\r\nC\r\n 1500 NOGO = 1\r\n      RETURN\r\nC\r\nC     INSUFFICIENT CORE\r\nC\r\n  825 CALL MESAGE (8,-CORE,ROUTIN)\r\nC\r\nC     CALL THE PRINTER-PLOTTER IF ANY REQUESTS FOR PRINTER-PLOTTER\r\nC\r\n  830 IF (OOMPP) CALL XYPRPL\r\nC\r\nC     RESTORE OUTPUT HEADING AND RETURN\r\nC\r\n  835 DO 840 I = 1,96\r\n  840 IHEAD(I) = HEADSV(I)\r\n      RETURN\r\nC\r\nC\r\n  120 FORMAT (A25,' 975, XYTRAN DOES NOT RECOGNIZE ',A4,\r\n     1       ' AND IS IGNORING')\r\n  290 FORMAT (A25,' 976, OUTPUT DATA BLOCK',I4,' IS PURGED.',\r\n     1       '  XYTRAN WILL PROCESS ALL REQUESTS OTHER THAN PLOT')\r\n  310 FORMAT (A25,' 977, FOLLOWING NAMED DATA-BLOCK IS NOT IN SORT-II',\r\n     1       ' FORMAT')\r\n  370 FORMAT (A25,' 978', /5X,'XYTRAN MODULE FINDS DATA-BLOCK(',2A4,\r\n     1       ') PURGED, NULL, OR INADEQUATE, AND IS IGNORING XY-OUTPUT',\r\n     2       ' REQUEST FOR -',A4,'- CURVES')\r\n  530 FORMAT (A25,' 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID',\r\n     1       I10, /5X,1H-,A4,'- CURVE IS BEING PASSED OVER.  THE ID ',\r\n     2       'COULD NOT BE FOUND IN DATA BLOCK',I10)\r\n  570 FORMAT (A25,' 980, INSUFFICIENT CORE TO HANDLE ALL DATA FOR ALL ',\r\n     1       'CURVES OF THIS FRAME', /5X,' ID =',I10,2(' COMPONENT =',\r\n     2       I4,5X),' DELETED FROM OUTPUT')\r\n  571 FORMAT (5X,'ADDITIONAL CORE NEEDED =',I9,' WORDS.')\r\n  635 FORMAT (5X,'SUBCASE',I10 )\r\n  730 FORMAT (A25,' 981, COMPONENT =',I10,' FOR ID =',I10,\r\n     1       ' IS TOO LARGE. THIS COMPONENTS CURVE NOT OUTPUT')\r\nC\r\n  900 FORMAT ('  ENTER XYPLOT DEFINITION OR GO TO PLOT OR STOP TO EXIT')\r\n  902 FORMAT ('  BAD CARD TRY AGAIN')\r\n  910 FORMAT (20A4)\r\n      END\r\n"
  },
  {
    "path": "mis/yrcard.f",
    "content": "      SUBROUTINE YRCARD (OUT,NFLAG,IN)\r\nC\r\nC     THIS WAS NASTRAN ORIGINAL XRCARD ROUTINE, AND IS NOW RENAMED\r\nC     YRCARD\r\nC     THIS ROUTINE IS CALLED ONLY BY XRCARD\r\nC     THIS ROUTINE CAN BE DELETED IF THE NEW XRCARD ROUTINE PASSES\r\nC     ALL RELIABILITY TESTS                 G.CHAN/UNISYS,  2/1988\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      EXTERNAL         LSHIFT,RSHIFT,COMPLF\r\n      LOGICAL          ALPHA,DELIM,EXPONT,POWER,LMINUS,PASS,NOGO\r\n      REAL             FL1\r\n      DOUBLE PRECISION XDOUBL\r\n      DIMENSION        NDOUBL(2),NUM(10),TYPE(72),CHAR(72),OUT(1),\r\n     1                 IN(18),NT(15),CHARS(13)\r\n      CHARACTER        UFM*23\r\n      COMMON /XMSSG /  UFM\r\n      COMMON /LHPWX /  LOWPW,HIGHPW\r\n      COMMON /SYSTEM/  IBUFSZ,F6,NOGO,DUM1(7),NPAGES,NLINES\r\n      EQUIVALENCE      (FL1      ,INT1  ), (XDOUBL,NDOUBL(1)),\r\n     1                 (NUM(10)  ,ZERO  ), (CHARS( 1),DOLLAR),\r\n     2                 (CHARS( 2),PLUS  ), (CHARS( 3),EQUAL ),\r\n     3                 (CHARS( 4),MINUS ), (CHARS( 5),COMMA ),\r\n     4                 (CHARS( 6),SLASH ), (CHARS( 7),OPAREN),\r\n     5                 (CHARS( 8),CPAREN), (CHARS( 9),E     ),\r\n     6                 (CHARS(10),D     ), (CHARS(11),PERIOD),\r\n     7                 (CHARS(12),BLANK ), (CHARS(13),ASTK  )\r\n      DATA    BLANKS/  4H     /, BLANK / 4H     /, DOLLAR/ 4H$    /,\r\n     1        EQUAL /  1H=    /, ASTK  / 1H*    /, COMMA / 1H,    /,\r\n     2        SLASH /  1H/    /, CPAREN/ 1H)    /, OPAREN/ 1H(    /,\r\n     3        PLUS  /  1H+    /, MINUS / 1H-    /, PERIOD/ 1H.    /,\r\n     4        E     /  1HE    /, D     / 1HD    /, PASS  / .FALSE./,\r\n     5        NUM   /  1H1, 1H2, 1H3,1H4,1H5, 1H6, 1H7,1H8,1H9,1H0/\r\nC\r\n      IF (PASS) GO TO 50\r\n      PASS   = .TRUE.\r\n      A77777 = COMPLF(0)\r\n      A67777 = RSHIFT(LSHIFT(A77777,1),1)\r\nC\r\nC     READ AND TYPE 72 CHARACTERS\r\nC\r\n   50 N = 0\r\n      DO 90 I = 1,18\r\n      DO 90 J = 1,4\r\n      N = N + 1\r\n      CHARAC = KHRFN1(BLANKS,1,IN(I),J)\r\n      IF (CHARAC .EQ. BLANK) GO TO 70\r\n      DO 60 K = 1,10\r\n      IF (CHARAC .EQ. NUM(K)) GO TO 80\r\n   60 CONTINUE\r\n      TYPE(N) = -1\r\n      GO TO 90\r\n   70 TYPE(N) = 0\r\n      GO TO 90\r\n   80 TYPE(N) = 1\r\n   90 CHAR(N) = CHARAC\r\n      ALPHA = .FALSE.\r\n      DELIM = .TRUE.\r\n      IOUT  = 0\r\n      N     = 0\r\n      ASAVE = 1\r\n      OUT(ASAVE) = 0\r\n  100 IF (N .EQ. 72) GO TO 510\r\n      IF (NFLAG-IOUT .LT. 5) GO TO 660\r\n      LMINUS = .FALSE.\r\n      N = N + 1\r\n      NCHAR = CHAR(N)\r\n      IF (TYPE(N)) 110,100,210\r\n  110 IF (NCHAR.EQ.PLUS .OR. NCHAR.EQ.MINUS .OR. NCHAR.EQ.PERIOD)\r\n     1    GO TO 200\r\n      IF (NCHAR .EQ. DOLLAR) GO TO 180\r\nC\r\nC     GOOD ALPHA FIELD OR DELIMETER\r\nC\r\n      IF (ALPHA) GO TO 120\r\n      IF ((NCHAR.EQ.COMMA .OR. NCHAR.EQ.DOLLAR) .AND. (.NOT.DELIM))\r\n     1    GO TO 180\r\n      IF (NCHAR.EQ.CPAREN .AND. .NOT.DELIM) GO TO 180\r\n      IOUT  = IOUT + 1\r\n      ASAVE = IOUT\r\n      OUT(ASAVE) = 0\r\n      ALPHA = .TRUE.\r\n  120 IF (NCHAR.EQ.OPAREN .OR. NCHAR.EQ.SLASH .OR. NCHAR.EQ.EQUAL .OR.\r\n     1    NCHAR.EQ.COMMA  .OR. NCHAR.EQ.ASTK  .OR. NCHAR.EQ.DOLLAR)\r\n     2    GO TO 180\r\n      IF (NCHAR .EQ. CPAREN) GO TO 180\r\n      OUT(ASAVE) = OUT(ASAVE) + 1\r\n      IOUT  = IOUT + 2\r\n      DELIM = .FALSE.\r\n      OUT(IOUT-1) = BLANKS\r\n      OUT(IOUT  ) = BLANKS\r\n      ICHAR = 0\r\n      GO TO 150\r\n  130 IF (N .EQ. 72) GO TO 510\r\n      N = N + 1\r\n      NCHAR = CHAR(N)\r\n      IF (TYPE(N)) 140,100,150\r\n  140 IF (NCHAR.EQ.OPAREN .OR. NCHAR.EQ.SLASH .OR. NCHAR.EQ.EQUAL .OR.\r\n     1    NCHAR.EQ.COMMA  .OR. NCHAR.EQ.ASTK  .OR. NCHAR.EQ.DOLLAR)\r\n     2    GO TO 180\r\n      IF (NCHAR .EQ. CPAREN) GO TO 180\r\n  150 IF (ICHAR .EQ. 8) GO TO 130\r\n      ICHAR = ICHAR + 1\r\n      IF (ICHAR .LE. 4) GO TO 160\r\n      IPOS = ICHAR - 4\r\n      WORD = IOUT\r\n      GO TO 170\r\n  160 IPOS = ICHAR\r\n      WORD = IOUT - 1\r\nC\r\nC     CLEAR SPOT IN WORD FOR CHAR(N) AND PUT CHAR(N) IN IT\r\nC\r\n  170 OUT(WORD) = KHRFN1(OUT(WORD),IPOS,NCHAR,1)\r\nC\r\nC     GO FOR NEXT CHARACTER\r\nC\r\n      GO TO 130\r\nC\r\nC\r\nC     DELIMETER HIT\r\nC\r\n  180 IF (.NOT. DELIM) GO TO 190\r\n      IF (IOUT .EQ. 0) IOUT = 1\r\n      IOUT = IOUT + 2\r\n      OUT(ASAVE)  = OUT(ASAVE) + 1\r\n      OUT(IOUT-1) = BLANKS\r\n      OUT(IOUT  ) = BLANKS\r\n  190 IF (NCHAR .EQ. DOLLAR) GO TO 520\r\n      DELIM = .TRUE.\r\n      IF (NCHAR .EQ. CPAREN) DELIM = .FALSE.\r\n      IF (NCHAR .EQ.  COMMA) GO TO 100\r\n      IF (NCHAR .EQ. CPAREN) GO TO 100\r\nC\r\nC     OUTPUT DELIMETER\r\nC\r\n      IOUT = IOUT + 2\r\n      OUT(ASAVE ) = OUT(ASAVE) + 1\r\n      OUT(IOUT-1) = A77777\r\n      OUT(IOUT  ) = KHRFN1(BLANKS,1,NCHAR,1)\r\n      GO TO 100\r\nC\r\nC\r\n  200 IF (NCHAR .EQ.  MINUS) LMINUS = .TRUE.\r\n      IF (NCHAR .NE. PERIOD) N = N + 1\r\n      IF (N .GT. 72) GO TO 530\r\nC\r\n  210 ALPHA = .FALSE.\r\n      DELIM = .FALSE.\r\n      IT = 0\r\n      NT(1) = 0\r\n      DO 260 I = N,72\r\n      IF (TYPE(I)) 290,270,220\r\nC\r\nC     INTEGER CHARACTER\r\nC\r\n  220 DO 230 K = 1,9\r\n      IF (CHAR(I) .EQ. NUM(K)) GO TO 250\r\n  230 CONTINUE\r\n      K  = 0\r\n  250 IT = IT + 1\r\n      IF (IT .LT. 16) NT(IT) = K\r\n  260 CONTINUE\r\nC\r\nC     FALL HERE IMPLIES WE HAVE A SIMPLE INTEGER\r\nC\r\n  270 NUMBER = 0\r\n      DO 280 I = 1,IT\r\n      IF (((A67777-NT(I))/10) .LT. NUMBER) GO TO 550\r\n  280 NUMBER = NUMBER*10 + NT(I)\r\n      IF (LMINUS) NUMBER = - NUMBER\r\n      IOUT = IOUT + 2\r\n      OUT(IOUT-1) = -1\r\n      OUT(IOUT  ) = NUMBER\r\n      N = N + IT - 1\r\n      GO TO 100\r\nC\r\nC     REAL NUMBER, DELIMETER, OR ERROR IF FALL HERE\r\nC\r\nC     COUNT THE NUMBER OF DIGITS LEFT BEFORE CARD END OR DELIMETER HIT\r\nC\r\n  290 N1 = I\r\n      DO 300 N2 = N1,72\r\n      IF (CHAR(N2).EQ.OPAREN .OR. CHAR(N2).EQ.SLASH .OR.\r\n     1    CHAR(N2).EQ.EQUAL  .OR. CHAR(N2).EQ.COMMA .OR.\r\n     2    CHAR(N2).EQ.DOLLAR .OR. TYPE(N2).EQ.0) GO TO 310\r\n      IF (CHAR(N2) .EQ. CPAREN) GO TO 310\r\n  300 CONTINUE\r\n      N2 = 73\r\n  310 IF (N1 .EQ. N2) GO TO 270\r\nC\r\nC     CHARACTER N1 NOW MUST BE A DECIMAL FOR NO ERROR\r\nC\r\n      IF (CHAR(N1) .NE. PERIOD) GO TO 570\r\n      POWER = .FALSE.\r\n      N1 = N1 + 1\r\n      N2 = N2 - 1\r\n      PLACES = 0\r\n      PSIGN  = 0\r\n      EXPONT = .FALSE.\r\n      IPOWER = 0\r\n      PRECIS = 0\r\n      IF (N2 .LT. N1) GO TO 410\r\n      DO 400 I = N1,N2\r\n      IF (TYPE(I)) 360,570,320\r\nC\r\nC     NUMERIC\r\nC\r\n  320 DO 330 K = 1,9\r\n      IF (CHAR(I) .EQ. NUM(K)) GO TO 340\r\n  330 CONTINUE\r\n      K  = 0\r\n  340 IF (EXPONT) GO TO 350\r\n      IT = IT + 1\r\n      IF (IT .LT. 16) NT(IT) = K\r\n      PLACES = PLACES + 1\r\n      GO TO 400\r\nC\r\nC     BUILD IPOWER HERE\r\nC\r\n  350 POWER  = .TRUE.\r\n      IPOWER = IPOWER*10 + K\r\n      IF (IPOWER .GT. 1000) GO TO 630\r\n      GO TO 400\r\nC\r\nC     START EXPONENTS HERE\r\nC\r\n  360 IF (EXPONT) GO TO 380\r\n      EXPONT = .TRUE.\r\n      IF (CHAR(I).NE.PLUS .AND. CHAR(I).NE.MINUS) GO TO 370\r\n      PRECIS = E\r\n      PSIGN = CHAR(I)\r\n      GO TO 390\r\n  370 IF (CHAR(I).NE.E .AND. CHAR(I).NE.D) GO TO 600\r\n      PRECIS = CHAR(I)\r\n      GO TO 390\r\nC\r\nC     SIGN OF POWER\r\nC\r\n  380 IF (POWER) GO TO 590\r\n      IF (PSIGN.NE.0 .OR.(CHAR(I).NE.PLUS .AND. CHAR(I).NE.MINUS))\r\n     1    GO TO 610\r\n      PSIGN = CHAR(I)\r\n      POWER = .TRUE.\r\n  390 IF (I .EQ. 72) GO TO 530\r\n  400 CONTINUE\r\n  410 N = N2\r\nC\r\nC     ALL DATA COMPLETE FOR FLOATING POINT NUMBER\r\nC     15 FIGURES WILL BE ACCEPTED ONLY\r\nC\r\n      IF (IT .LE. 15) GO TO 420\r\n      IPOWER = IPOWER + IT - 15\r\n      IT = 15\r\n  420 IF (PSIGN .EQ. MINUS) IPOWER = -IPOWER\r\n      IPOWER = IPOWER - PLACES\r\n      NUMBER = 0\r\n      IF (IT .LT. 7) GO TO 430\r\n      N2 = 7\r\n      GO TO 440\r\n  430 N2 = IT\r\n  440 DO 450 I = 1,N2\r\n  450 NUMBER = NUMBER*10 + NT(I)\r\n      XDOUBL = DBLE(FLOAT(NUMBER))\r\n      IF (IT .LE. 7) GO TO 470\r\n      NUMBER = 0\r\n      N2 = IT - 7\r\n      DO 460 I = 1,N2\r\n      IT = I + 7\r\n  460 NUMBER = NUMBER*10 + NT(IT)\r\n      XDOUBL = XDOUBL*10.0D0**N2 + DBLE(FLOAT(NUMBER))\r\n  470 IF (LMINUS) XDOUBL = -XDOUBL\r\nC\r\nC     POWER HAS TO BE WITHIN RANGE OF MACHINE\r\nC\r\n      ICHEK = IPOWER + IT\r\n      IF (XDOUBL .EQ. 0.0D0) GO TO 490\r\n      IF (ICHEK .LT.LOWPW+1 .OR. ICHEK .GT.HIGHPW-1 .OR.\r\n     1    IPOWER.LT.LOWPW+1 .OR. IPOWER.GT.HIGHPW-1) GO TO 640\r\n      XDOUBL = XDOUBL*10.0D0**IPOWER\r\n  490 IF (PRECIS .EQ. D) GO TO 500\r\n      FL1  = XDOUBL\r\n      IOUT = IOUT + 2\r\n      OUT(IOUT-1) =-2\r\n      OUT(IOUT  ) = INT1\r\n      GO TO 100\r\n  500 IOUT = IOUT + 3\r\n      OUT(IOUT-2) =-4\r\n      OUT(IOUT-1) = NDOUBL(1)\r\n      OUT(IOUT  ) = NDOUBL(2)\r\n      GO TO 100\r\nC\r\nC\r\nC     PREPARE TO RETURN\r\nC\r\n  510 IF (.NOT. DELIM) GO TO 520\r\n      OUT(IOUT+1) = 0\r\n      RETURN\r\n  520 OUT(IOUT+1) = A67777\r\n      RETURN\r\nC\r\nC     ERRORS\r\nC\r\n  530 WRITE  (F6,540) UFM\r\n  540 FORMAT (A23,' 300 *** INVALID DATA COLUMN 72')\r\n      GO TO  680\r\n  550 WRITE  (F6,560) UFM\r\n  560 FORMAT (A23,' 300 *** INTEGER DATA OUT OF MACHINE RANGE')\r\n      GO TO  680\r\n  570 WRITE  (F6,580) UFM,N1\r\n  580 FORMAT (A23,' 300 *** INVALID CHARACTER FOLLOWING INTEGER IN ',\r\n     1       'COLUMN',I3)\r\n      GO TO  680\r\n  590 CONTINUE\r\n  600 CONTINUE\r\n  610 WRITE  (F6,620) UFM,I\r\n  620 FORMAT (A23,' 300 *** DATA ERROR-UNANTICIPATED CHARACTER IN ',\r\n     1       'COLUMN',I3)\r\n      GO TO  680\r\n  630 CONTINUE\r\n  640 WRITE  (F6,650) UFM\r\n  650 FORMAT (A23,' 300 *** DATA ERROR - MISSING DELIMITER OR REAL ',\r\n     1       'POWER OUT OF MACHINE RANGE')\r\n      GO TO  680\r\n  660 WRITE  (F6,670) UFM\r\n  670 FORMAT (A23,' 300 *** ROUTINE XRCARD FINDS OUTPUT BUFFER TOO ',\r\n     1       'SMALL TO PROCESS CARD COMPLETELY')\r\n  680 NOGO = .TRUE.\r\n      WRITE  (F6,690) CHAR\r\n  690 FORMAT (/5X,1H',72A1,1H')\r\n      OUT(1) = 0\r\nC\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/zeroc.f",
    "content": "      SUBROUTINE ZEROC(IZ,N)\r\nC\r\nC     SET AND ARRAY TO ZERO\r\nC\r\n      INTEGER IZ(N)\r\nC\r\n      DO 10 I=1,N\r\n   10 IZ(I) = 0\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "mis/zj.f",
    "content": "      FUNCTION ZJ ( ARG )\r\nC\r\nC     ZERO ORDER BESSEL FUNCTION OF FIRST KIND\r\nC\r\n      DBSLJ = 1.0E-10\r\n      A  =  - ( ARG / 2.0 ) ** 2\r\n      ZJ  =  1.0\r\n      PF  =  1.0\r\n      AN  =  1.0\r\n      DO   200   I = 1 , 20\r\n      AN  =  AN * A / PF ** 2\r\n      PF  =  PF + 1.0\r\n      IF ( ABS ( AN ) .LE. DBSLJ )   RETURN\r\n      ZJ  =  ZJ + AN\r\n 200  CONTINUE\r\n      RETURN\r\n      END\r\n"
  },
  {
    "path": "rf/AERO10",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nFILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/\r\n         CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/\r\n         QKHL=APPEND/ $\r\n****SBST   4\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 127,138\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 15, 19, 21, 23, 24, 58, 59\r\n****FILE 101,112,119,137,140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/MINUS1=-1 $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 199-201,204-217\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 148\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 148\r\n$$$$\r\nCOND     ERROR5,NOGPDT $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n****RFMT 187-204,207-217\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****SBST   5\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n****RFMT 199-201,204-217\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****SBST   5\r\n****CARD   1-  6, 13, 16, 24\r\n****FILE  97\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****SBST   5\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE  97\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     ERROR1,NOSIMP $\r\n****SBST   5\r\n****CARD   1,  2,  4-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/NOMGG /1/0 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/\r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****SBST   4\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 102\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 22- 24\r\n****FILE 101\r\n****RFMT 199-201,204-217\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 22- 24\r\n****FILE 101\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    GM/MPCF1/DM,MR/REACT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 103,109,110\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****SBST   4\r\n****CARD   1,  9, 24\r\n****FILE 103\r\n****RFMT 199-201,204-217\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL2 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL3 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    GO/OMIT $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24\r\n****FILE 142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*PREC*/PREC $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106\r\n****RFMT 187-204,207-217\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL5 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 199-201,204-217\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107\r\n****RFMT 199-201,204-217\r\n$$$$\r\nRBMG2    KLL/LLL/ $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 108\r\n****RFMT 199-201,204-217\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 109\r\n****RFMT 199-201,204-217\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 110\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL6 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 199-201,204-217\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/\r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****SBST   4\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****SBST   4\r\n****CARD   1-  4,  6,  9- 11, 13, 14, 24, 56\r\n****FILE 115\r\n****RFMT 199-201,204-217\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,\r\n         NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $\r\n****SBST   5\r\n****CARD   1, 40, 56, 57\r\n****FILE 114\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $\r\n****SBST   4\r\n****CARD   1,  9- 11, 40, 56, 57\r\n****FILE 139\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/\r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/\r\n         -1/-1/   -1/-1 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 14, 24, 40, 56, 57\r\n****FILE 115,139\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,\r\n         PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 55- 59, 62\r\n****FILE 116\r\n****RFMT 199-201,204-217\r\n$$$$\r\nAPD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n         USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/\r\n         S,N,LUSETA/S,N,BOV $\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 24, 29, 32, 34- 37, 56\r\n****FILE 124\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     SKPPLT,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/0/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPRTMSG   PLTSETA // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     SKPPLT,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,    ,,,,,,/PLOTX2/\r\n         NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPRTMSG   PLOTX2 // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    SKPPLT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD  58, 60\r\n****FILE 121\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24, 32, 35, 37\r\n****FILE 126\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1/ $\r\n****SBST   6\r\n****CARD  24, 29, 35, 37\r\n****FILE 127\r\n****RFMT 187-204,207-217\r\n$$$$\r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****SBST   6\r\n****CARD  24, 29, 34, 35, 37\r\n****FILE 127\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     NODJE,    NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 35, 37, 54, 56, 58, 59, 62\r\n****FILE 138\r\n****RFMT 199-201,204-217\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,\r\n         QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 54, 56, 58, 59\r\n****CARD  62\r\n****FILE 138\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    LOOPTOP $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-217\r\n$$$$\r\nFA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/\r\n         S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH,\r\n         CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117,130\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     VDR,NOCEAD $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBLZAP,EIGVS $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    VDR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\nVDR      CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/\r\n         123/S,N,NOH/S,N,NOP/FMODE $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL16,NOH $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\nOFP      OPHIH,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL16 $\r\n****SBST   4\r\n****CARD  18, 21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\nFA2      PHIH,CLAMA,FSAVE/    PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/\r\n         C,Y,VREF=1.0/C,Y,PRINT=YES $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 130\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     CONTINUE,TSTART $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    LBLZAP $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 187-204,207-217\r\n$$$$\r\nCOND     CONTINUE,FLOOP $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nREPT     LOOPTOP,100 $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nJUMP     ERROR3 $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    CONTINUE $\r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     NOXYOUT,NOXYCDB $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nXYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/\r\n         S,N,NOXYPL $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     NOXYOUT,NOXYPL $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nXYPLOT   XYPLTCE// $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    NOXYOUT $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 20, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     FINIS,PJUMP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 18- 21, 24- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 199-201,204-217\r\n$$$$\r\nMODACC   CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 131\r\n****RFMT 199-201,204-217\r\n$$$$\r\nADR      CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/\r\n         C,Y,MACH = 0.0/*FLUTTER* $\r\n****SBST   4\r\n****CARD  21, 25\r\n****FILE 121\r\n****RFMT 199-201,204-217\r\n$$$$\r\nDDR1     CPHIH1,PHIDH/CPHID $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34, 36- 40, 55- 62\r\n****FILE 122\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    CPHID ,CPHIP/NOA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    QPC/NOA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBL14,NOA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nSDR1     USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL14 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    CPHID ,CPHIA/NOUE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 122\r\n****RFMT 199-201,204-217\r\n$$$$\r\nCOND     LBLNOE,NOUE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$\r\nVEC      USETA/RP/*D*/*A*/*E* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARTN    CPHID ,,RP/CPHIA,,,/1/3 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 122,132\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBLNOE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$\r\nMPYAD    GTKA,CPHIA,/CPHIK/1/1/0/PREC $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 133\r\n****RFMT 199-201,204-217\r\n$$$$\r\nUMERGE   USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 134\r\n****RFMT 199-201,204-217\r\n$$$$\r\nUMERGE   USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 136\r\n****RFMT 199-201,204-217\r\n$$$$\r\nUMERGE   USETA,QPC,/QPAC/*PA*/*P*/*K* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 136\r\n****RFMT 199-201,204-217\r\n$$$$\r\nSDR2     CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA,\r\n         EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $\r\n****SBST   4\r\n****CARD   4, 18, 19, 24\r\n****FILE 137\r\n$$$$\r\nOFP      OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD  19\r\n****FILE 137\r\n$$$$\r\nCOND     FINIS,JUMPPLOT $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,,\r\n         /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N,\r\n         PFILE $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR3 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-3/*FLUTTER* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-2/*FLUTTER* $\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-1/*FLUTTER* $\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-4/*FLUTTER* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-5/*FLUTTER* $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     AXSLOT\r\n  1    GRDSET   GRID     GRIDB\r\n  1    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8    ADUM9    BAROR\r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CBARAO   CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8\r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2\r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTRBSC   CTRAPAX\r\n  2    CTRIAAX  CTRIARG  CTORDRG  CTRAPRG  CTRIA1   CTRIA2\r\n  2    CTRIM6   CTRMEM   CTRPLT   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4\r\n  3    PDUM5    PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PDUM6    PDUM7    PDUM8    PDUM9    PELBOW   PHEX     PIS2D8\r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2\r\n  3    PROD     PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1\r\n  3    PTRIA2   PTRIM6   PTRIAAX  PTRMEM   PTRPLT   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2\r\n  6    PELAS    PMASS\r\n  8    MAT1     MAT2     MAT3     MAT9     MATT1    MATT2    MATT3\r\n  8    MAT6     MAT8     TABLEM1  TABLEM2  TABLEM3  TABLEM4\r\n  8    TEMPMT$  TEMPMX$\r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE\r\n  9    MPC      MPCADD   MPC$     MPCAX\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1\r\n 11    OMIT     OMIT1    OMITAX\r\n 11    SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD\r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    COUPMASS CPBAR    CPDPLT\r\n 14    CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    P1       P2       P3\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    ASETOUT\r\n 23    AUTOSPC\r\n 24    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S\r\n 25    MACH\r\n 26    NODJE\r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5\r\n 32    SET1     SET2\r\n 32    SPLINE1  SPLINE2  SPLINE3\r\n 34    MKAERO1  MKAERO2\r\n 35    AEFACT\r\n 36    FLFACT   FLUTTER\r\n 37    AERO\r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5\r\n 38    FMETHOD$\r\n 39    PRINT    VREF\r\n 40    TF\r\n 54    GUSTAERO\r\n 55    SDAMP$\r\n 55    TABDMP1\r\n 56    EPOINT   SEQEP\r\n 57    K2PP$    M2PP$    B2PP$    TF$\r\n 57    DMIG\r\n 58    EIGR\r\n 59    METHOD$\r\n 60    EIGC     EIGP\r\n 61    CMETHOD$\r\n 62    HFREQ    LFREQ    LMODES   KDAMP\r\n$$$$\r\n$*FILE BITS\r\n 94    GPL      EQEXIN   GPDT     CSTM     BGPDT    SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    RG       USET     ASET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    GPLD     SILD     USETD    TFPOOL   EED      EQDYN\r\n112    LAMA     PHIA     MI       OEIGS\r\n114    K2PP     M2PP     B2PP\r\n115    GMD      GOD\r\n116    MHH      BHH      KHH      PHIDH\r\n117    PHIH     CLAMA    OCEIGS\r\n118    PLOTX2\r\n119    OPHIH\r\n120    XYPLTCE\r\n121    PKF\r\n122    CPHID\r\n123    MAA\r\n124    EQAERO   ECTA     BGPA     SILA     USETA    SPLINE   AERO\r\n124    ACPT     FLIST    CSTMA    GPLA     SILGA\r\n125    PLTSETA  PLTPARA  GPSETSA  ELSETSA\r\n126    GTKA\r\n127    AJJL     D1JK     D2JK     SKJ\r\n128    D1JE     D2JE\r\n129    FSAVE    KXHH     BXHH     MXHH\r\n130    PHIHL    CLAMAL   CASEYY   OVG\r\n131    CLAMAL1  CPHIH1   CASEZZ\r\n132    RP\r\n133    CPHIK\r\n134    CPHIPS\r\n136    CPHIPA\r\n137    OQPAC1   OCPHIPA  OESC1    OEFC1    PCPHIPA\r\n138    QHHL     QKHL     QHJL\r\n139    K2DD     M2DD     B2DD\r\n140    OGPWG\r\n142    KOO      LOO      KAA\r\n144    CPHIP    QPC\r\n145    PLOTX3\r\n147    KELM     KDICT    MELM     MDICT\r\n148    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/AERO11",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    AERO 11 - MODAL AEROELASTIC RESPONSE - APR. 1995 $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nFILE     AJJL=APPEND/QHHL=APPEND/QKHL=APPEND/QHJL=APPEND/SKJ=APPEND $\r\n****SBST   4\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 127,138\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 14, 19- 21, 24, 25, 58, 59\r\n****FILE 101,112,135,143,154\r\n****RFMT 204-217\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/MINUS1=-1 $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 204-217\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 155\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 155\r\n$$$$\r\nCOND     ERROR1,NOGPDT $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n****RFMT 204-217\r\n$$$$\r\nPARAML   PCDB//*PRES*/V,Y,NODJE=-1///JUMPPLOT $\r\n****SBST   7\r\n****CARD  18, 26\r\n****FILE 122,125\r\n****RFMT 204-217\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $\r\n****SBST   4\r\n****CARD  20, 22\r\n****RFMT 204-217\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****SBST   5\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n****RFMT 204-217\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****SBST   5\r\n****CARD   1-  6, 13, 16, 24\r\n****FILE  97\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****SBST   5\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE  97\r\n****RFMT 204-217\r\n$$$$\r\nCOND     ERROR3,NOSIMP $\r\n****SBST   5\r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/NOMGG /1/0 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/\r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****SBST   4\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 102\r\n****RFMT 204-217\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 13, 23- 25\r\n****FILE 101\r\n****RFMT 204-217\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 23- 25\r\n****FILE 101\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    GM/MPCF1/DM,MR/REACT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 103,109,110\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 204-217\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****SBST   4\r\n****CARD   1,  9, 24\r\n****FILE 103\r\n****RFMT 204-217\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL2 $\r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL3 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    GO/OMIT $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24\r\n****FILE 106\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,113,123\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*PREC*/PREC $\r\n****SBST   4\r\n****FILE 106,140\r\n****RFMT 204-217\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106\r\n****RFMT 204-217\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL5 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,113,123\r\n****RFMT 204-217\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 204-217\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107\r\n****RFMT 204-217\r\n$$$$\r\nRBMG2    KLL/LLL/ $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 108\r\n****RFMT 204-217\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 109\r\n****RFMT 204-217\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 110\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL6 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 204-217\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,TRL,\r\n         EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/NODLT/S,N,NOPSDL/\r\n         NOFRL/NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 204-217\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****SBST   4\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****SBST   4\r\n****CARD   1-  4,  6,  9- 11, 13, 14, 24, 56\r\n****FILE 115\r\n****RFMT 204-217\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,\r\n         NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $\r\n****SBST   5\r\n****CARD   1, 40, 56, 57\r\n****FILE 114\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $\r\n****SBST   4\r\n****CARD   1,  9- 11, 40, 56, 57\r\n****FILE 139\r\n****RFMT 204-217\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/\r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/\r\n         -1/-1/-1/-1 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 14, 24, 40, 56, 57\r\n****FILE 115,139\r\n****RFMT 204-217\r\n$$$$\r\nGKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,\r\n         PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 55- 59, 62\r\n****FILE 116\r\n****RFMT 204-217\r\n$$$$\r\nAPD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n         USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/\r\n         S,N,LUSETA/S,N,BOV $\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 24, 29, 32, 34, 35, 37, 56\r\n****FILE 124\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/1 $\r\n****SBST   7\r\n****CARD  18, 20\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\nCOND     SKPPLT,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/0/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nPLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\nPRTMSG   PLTSETA // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\nCOND     SKPPLT,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/\r\n         NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nPRTMSG   PLOTX2 // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    SKPPLT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$\r\nGI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/\r\n         LUSET $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24, 32, 35, 37\r\n****FILE 126\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1/ $\r\n****SBST   6\r\n****CARD  24, 29, 35, 37\r\n****FILE 137\r\n****RFMT 187-204,207-217\r\n$$$$\r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****SBST   6\r\n****CARD  24, 29, 34, 35, 37\r\n****FILE 127\r\n****RFMT 204-217\r\n$$$$\r\nCOND     NODJE,NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 35, 37, 48, 56, 58, 59, 62\r\n****FILE 138\r\n****RFMT 204-217\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,\r\n         QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 48, 56, 58, 59\r\n****CARD  62\r\n****FILE 138\r\n****RFMT 204-217\r\n$$$$\r\nFRLG     CASECC,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH/PPF,PSF,PDF,FOL,PHF1/\r\n         *MODAL*/S,N,FREQY/S,N,APP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 139\r\n****RFMT 194,197,204-217\r\n$$$$\r\nPARAM    //*NOT*/NOFRY/FREQY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 129\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    PPF/NOFRY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 129\r\n****RFMT 204-217\r\n$$$$\r\nGUST     CASECC,DLT,FRL,DIT,QHJL,,,ACPT,CSTMA,PHF1/PHF/\r\n         S,N,NOGUST/BOV/C,Y,MACH/C,Y,Q $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 130\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    PHF1,PHF/NOGUST $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 130\r\n****RFMT 204-217\r\n$$$$\r\nFRRD2    KHH,BHH,MHH,QHHL,PHF,FOL/UHVF/BOV/C,Y,Q/C,Y,MACH $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 131\r\n****RFMT 194,197,204-217\r\n$$$$\r\nEQUIV    UHVF,UHVT/FREQY/FOL,TOL/FREQY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\nCOND     IFTSKP,FREQY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\nIFT      UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM=0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\nLABEL    IFTSKP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\nMODACC   CASECC,TOL,UHVT,,,/TOL1,UHVT1,,,/APP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 133\r\n****RFMT 204-217\r\n$$$$\r\nADR      UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/BOV/\r\n         C,Y,MACH/APP $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 134\r\n$$$$\r\nVDR      CASECC,EQDYN,USETD,UHVT1,TOL1,XYCDB,/OUHV1,/APP/*MODAL*/\r\n         0/S,N,NOH/S,N,NOP/FMODE $\r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135\r\n$$$$\r\nCOND     NOH,  NOH $\r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135,136\r\n$$$$\r\nSDR3     OUHV1,,,,,/OUHV2,,,,, $\r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135\r\n$$$$\r\nOFP      OUHV2,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 135\r\n$$$$\r\nCOND     NOH,NOXYCDB $\r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\nXYTRAN   XYCDB,OUHV2,,,,/XYPTTA/APP/*HSET*/S,N,PFILE/S,N,CARDNO/\r\n         S,N,NOXYPL $\r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\nCOND     NOH,NOXYPL $\r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\nXYPLOT   XYPTTA  $\r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\nLABEL    NOH $\r\n****SBST   4\r\n****CARD  22\r\n****FILE 135,136\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 137,140-147\r\n****RFMT 204-217\r\n$$$$\r\nCOND     FINIS,PJUMP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18- 20, 24, 26- 29, 32, 34, 37, 40, 49- 52\r\n****CARD  54- 62\r\n****FILE 137,140-147\r\n****RFMT 204-217\r\n$$$$\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIP,,QP/1/*DYNAMICS* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 137\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    PHIDH,PHIAH/NOUE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nCOND     NOUE1,NOUE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nVEC      USETD/EVEC/*D*/*A*/*E* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nPARTN    PHIDH,,EVEC/PHIAH,,,/1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    NOUE1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nMPYAD    GTKA,PHIAH,/PHIK/1/1/0/PREC $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 30, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nUMERGE   USETA,PHIP,/PHIPS/*PS*/*P*/*SA* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nUMERGE   USETA,PHIPS,PHIK/PHIPA/*PA*/*PS*/*K* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nUMERGE   USETA,QP,/QPA/*PA*/*P*/*PS* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n$$$$\r\nSDR2     CASECC,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,LAMA,QPA,PHIPA,\r\n         EST,XYCDB,,/,MQP1,MPHIPA1,MES1,MEF1,,,/*MMREIG* $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141\r\n$$$$\r\nCOND     NOPF,NOFRY $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141,142\r\n$$$$\r\nSDR2     CASECC,,,,EQDYN,,,,,PPF,,,,XYCDB,,/OPP1,,,,,,,/*FREQ* $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141\r\n$$$$\r\nSDR3     OPP1,,,,,/QPP2,,,,,/ $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 142\r\n$$$$\r\nLABEL    NOPF $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141,142\r\n$$$$\r\nSDR3     MPHIPA1,MES1,MEF1,MQP1,,/MPHIPA2,MES2,MEF2,MQP2,, $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 147\r\n$$$$\r\nDDRMM    CASECC,UHVT1,TOL1,MPHIPA2,MQP2,MES2,MEF2,XYCDB,EST,MPT,DIT/\r\n         OUPV2,OQP2,OES2,OEF2, $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 143\r\n$$$$\r\nOFP      OUPV2,,OES2,OEF2,OQP2,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 143\r\n$$$$\r\nSCAN     CASECC,OES2,OEF2,,/OESF2,/C,N,*RF* $\r\n****CARD 19\r\n****FILE 143\r\n$$$$\r\nOFP      OESF2,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 143\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nMPYAD    PHIPA,UHVT1,/UVT1/0 $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 148\r\n$$$$\r\nSDR2     CASECC,CSTMA,,,EQAERO,,,,BGPA,TOL,,UVT1,,,,/,,,,,PUVPAT,,/APP $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,SILGA,,PUVPAT,,,,/\r\n         PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/PFILE $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nCOND     FINIS,NOXYCDB $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145,146\r\n$$$$\r\nXYTRAN   XYCDB,,OQP2,OUPV2,OES2,OEF2/XYPLTT/APP/*PSET*/\r\n         S,N,PFILE/S,N,CARDNO/S,N,NOXYPL $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nCOND     NOXYPLTT,NOXYPL $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nXYPLOT   XYPLTT $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nLABEL    NOXYPLTT $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nCOND     FINIS,NOFRY $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nCOND     FINIS,NOPSDL $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nRANDOM   XYCDB,DIT,PSDL,OUPV2,,OQP2,OES2,OEF2,CASECC/PSDF,AUTO/\r\n         S,N,NORN $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nCOND     FINIS,NORN $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/\r\n         S,N,CARDNO/S,N,NOXYPL $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nCOND     FINIS,NOXYPL $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nXYPLOT   XYPLTR $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 146\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-2/*AERORESP* $\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-1/*AERORESP* $\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-4/*AERORESP* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRTPARM  //-3/*AERORESP* $\r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 137,140-147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 137,140-147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  1    GRDSET   GRID     GRIDB\r\n  1    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8    ADUM9    BAROR\r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CBEAM    CCONEAX  CDUM1\r\n  2    CDUM2\r\n  2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2\r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTORDRG  CTRAPRG\r\n  2    CTRAPAX  CTRIAAX  CTRIA1   CTRIA2   CTRIARG  CTRIM6   CTRMEM\r\n  2    CTRBSC   CTRPLT   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8\r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2\r\n  3    PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1\r\n  3    PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT   PTUBE    PTWIST\r\n  3    PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  4    GENEL\r\n  5    CONM1    CONM2\r\n  6    PELAS\r\n  7    PMASS\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4\r\n  8    MAT1     MAT2     MAT3     MAT9     MATT1    MATT2    MATT3\r\n  8    MAT6     MAT8     TEMPMT$  TEMPMX$\r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE\r\n  9    MPC      MPCADD   MPC$     MPCAX\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1\r\n 11    OMIT     OMIT1    OMITAX\r\n 11    SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD\r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    COUPMASS CPBAR\r\n 14    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT\r\n 14    CPTRBSC  CPTUBE\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    P1       P2       P3\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    AXYOUT$\r\n 23    ASETOUT\r\n 24    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S\r\n 25    AUTOSPC\r\n 26    NODJE\r\n 27    IFTM\r\n 28    MACH     Q\r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5\r\n 32    SET1     SET2\r\n 32    SPLINE1  SPLINE2  SPLINE3\r\n 34    MKAERO1  MKAERO2\r\n 35    AEFACT\r\n 37    AERO\r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5\r\n 40    TF\r\n 48    GUSTAERO\r\n 49    GUST     GUST$\r\n 50    TSTEP\r\n 51    TABLED1  TABLED2  TABLED3  TABLED4\r\n 52    DAREA    DELAY    DLOAD    DPHASE\r\n 52    FREQ     FREQ1    FREQ2\r\n 52    RLOAD1   RLOAD2\r\n 52    TLOAD1   TLOAD2\r\n 53    RANDPS   RANDT1\r\n 54    RANDOM$\r\n 54    TABRND1  TABRNDG\r\n 55    SDAMP$\r\n 55    TABDMP1\r\n 56    EPOINT   SEQEP\r\n 57    K2PP$    M2PP$    B2PP$    TF$\r\n 57    DMIG\r\n 58    EIGR\r\n 59    METHOD$\r\n 60    TSTEP$\r\n 61    DLOAD$   FREQ$\r\n 62    HFREQ    LFREQ    LMODES   KDAMP\r\n$$$$\r\n$*FILE BITS\r\n 94    GPL      EQEXIN   GPDT     CSTM     BGPDT    SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    RG       USET     ASET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KAA      KOO      LOO\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    GPLD     SILD     USETD    TFPOOL   EED      EQDYN    DLT\r\n111    PSDL     FRL      TRL\r\n112    LAMA     PHIA     MI       OEIGS\r\n113    KELM     KDICT    MELM     MDICT\r\n114    K2PP     M2PP     B2PP\r\n115    GMD      GOD      K2DD     M2DD     B2DD\r\n116    MHH      BHH      KHH      PHIDH\r\n123    MAA\r\n124    EQAERO   ECTA     BGPA     SILA     USETA    SPLINE   AERO\r\n124    ACPT     FLIST    CSTMA    GPLA     SILGA\r\n125    PLTSETA  PLTPARA  GPSETSA  ELSETSA\r\n126    GTKA\r\n127    AJJL     D1JK     D2JK     SKJ\r\n128    D1JE     D2JE\r\n129    FOL      PDF      PHF1     PSF      PPF\r\n130    PHF\r\n131    UHVF\r\n132    UHVT     TOL\r\n133    TOL1     UHVT1\r\n134    PKF\r\n135    OUHV1    OUHV2\r\n136    XYPTTA\r\n137    PHIP     QP\r\n138    QHHL     QKHL     QHJL\r\n139    K2DD     M2DD     B2DD\r\n140    PHIAH    PHIK     PHIPA    PHIPS\r\n141    MQP1     MPHIPA1  MES1     MEF1     OPP1\r\n142    QPP2\r\n143    OUPV2    OQP2     OES2     OEF2     OESF2\r\n144    PLOTX3\r\n145    XYPLTT\r\n146    PSDF     AUTO\r\n147    QPP2\r\n148    UVT1\r\n150    PLOTX2\r\n154    OGPWG\r\n155    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/AERO9",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1995 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nFILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL=\r\n         APPEND/OVG=APPEND/QHHL=APPEND $\r\n****CARD   1- 14, 19, 21- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1- 15, 19- 21, 24, 41, 43, 58, 59\r\n****FILE 146\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N,\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 148\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 148\r\n$$$$\r\nCOND     ERROR5,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-204,207-209\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR5,NOSIMP $\r\n****CARD   1-  7, 13, 14\r\n****FILE  97\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8, 13\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*NOP*/V,Y,KGGIN=-1 $\r\n****CARD  43\r\n$$$$\r\nCOND     JMPKGGIN,KGGIN $\r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/-1/0 $\r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\nINPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $\r\n****CARD  43\r\n****FILE 109\r\n$$$$\r\nEQUIV    KTOTAL,KGGX $\r\n****CARD  43\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGGIN $\r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/\r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5-  8, 13, 14, 24, 43\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n$$$$\r\nLABEL    LGPWG $\r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 102\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1,  4,  6,  8, 13, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1,  4,  6,  8, 13, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $\r\n****CARD   1, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR6,REACDATA $\r\n****CARD   1, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $\r\n****CARD   1, 20- 22, 43\r\n****FILE 103,105,113,115,120\r\n$$$$\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1,  9- 11, 41\r\n****FILE 140\r\n$$$$\r\nCOND     ERROR7,NOGO $\r\n****CARD   1,  9- 11, 41\r\n****FILE 140\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  9, 14, 24, 43\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9, 13, 43\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT/MFF,MAA/OMIT $\r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,113,123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11, 13, 43\r\n****FILE 106,113\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1- 11, 13, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,113,123\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/\r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1-  7,  9- 12, 14, 22- 24, 56, 58\r\n****FILE 115\r\n$$$$\r\nCYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,\r\n         KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $\r\n****CARD   1- 11, 41, 43\r\n****FILE 141\r\n$$$$\r\nCOND     ERROR7,NOGO $\r\n****CARD   1- 11, 41, 43\r\n****FILE 141\r\n$$$$\r\nREAD     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,  ,OEIGS/*MODES*/S,N,\r\n         NEIGV $\r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n****FILE 142\r\n$$$$\r\nOFP      OEIGS,LAMK,,,,//S,N,CARDNO $\r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n****FILE 142\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,\r\n         KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $\r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 112\r\n$$$$\r\nCOND     ERROR7,NOGO $\r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 112\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $\r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 143\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/\r\n         ,,OPHIG,,,PPHIG,,/*REIG* $\r\n****CARD  18, 19\r\n****FILE 108\r\n$$$$\r\nOFP      OPHIG,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\nPURGE    PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 110\r\n$$$$\r\nCOND     PZZ,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/\r\n         S,N,NSILZ/S,N,JUMPZ=-1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 110\r\n$$$$\r\nPRTMSG   PLTSETZ// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nCOND     PZZ,JUMPZ $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\nPLOT     PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/\r\n         PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\nPRTMSG   PLOTZ// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    PZZ $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\nAPDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/\r\n         S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/\r\n         NEIGV/V,Y,KINDEX    $\r\n$$$$\r\n****CARD   1,  2,  9- 12, 34- 37, 41- 43\r\n****FILE 124,126,144\r\n$$$$\r\nPARTN    PHIA,PVECT,/PHIAX,,,/1 $\r\n****CARD   1,  2,  9- 12, 41, 43, 58, 59\r\n****FILE 145\r\n$$$$\r\nSMPYAD   PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $\r\n****CARD   1,  2,  9- 12, 41, 43, 58, 59\r\n****FILE 136\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 40, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1,  2,  4, 22, 23, 40, 56, 57\r\n****FILE 114,139\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $\r\n****CARD   1,  2,  4,  9, 11, 22, 23, 40, 56, 57\r\n****FILE 114,139\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/\r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/\r\n         -1/-1/-1/-1 $\r\n****CARD   1-  4,  6,  8- 11, 13, 14, 22, 23, 40- 43, 56, 57\r\n****FILE 115,139\r\n$$$$\r\nGKAM     USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,\r\n         PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,\r\n         KDAMP=-1 $\r\n****CARD   1- 14, 22- 24, 40- 43, 55- 59, 62\r\n****FILE 116\r\n****RFMT 187,196-198\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,134\r\n$$$$\r\nPLTSET   PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N,\r\n         JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nPRTMSG   PLTSETX//$\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/\r\n         LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,134\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1 $\r\n****CARD   1, 29, 35, 37\r\n****FILE 127\r\n****RFMT 187-204,207-209\r\n$$$$\r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****CARD   1, 29, 34, 35, 37, 42, 43\r\n****FILE 127\r\n$$$$\r\nPURGE    D1JE,D2JE/NODJE $\r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nCOND     NODJE,NODJE $\r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL=\r\n         TAPEID $\r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nLABEL    NODJE $\r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62\r\n****FILE 138\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/\r\n         NOUE/S,N,XQHHL $\r\n****CARD   1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62\r\n****FILE 138\r\n$$$$\r\nPARAM    //*MPY*/NOP/1/1 $\r\n****CARD  21\r\n$$$$\r\nPARAM    //*MPY*/NOH/0/1 $\r\n****CARD  21\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    LOOPTOP $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nFA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/\r\n         S,N,TSTART/S,N,NOCEAD $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 129\r\n$$$$\r\nEQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/\r\n         KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/\r\n         CASECC,CASEYY/NOCEAD $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117,130\r\n$$$$\r\nCOND     VDR,NOCEAD $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117,119,130\r\n$$$$\r\nCEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117\r\n$$$$\r\nCOND     LBLZAP,EIGVS $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 119,130\r\n$$$$\r\nLABEL    VDR $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117\r\n$$$$\r\nVDR      CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/\r\n         123/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\nCOND     LBL16,NOH $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\nOFP      OPHIH,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\nFA2      PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF=\r\n         1.0/C,Y,PRINT=YESB $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 130\r\n$$$$\r\nCOND     CONTINUE,TSTART $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 130\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    LBLZAP $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 119,130\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCOND     CONTINUE,FLOOP $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-209\r\n$$$$\r\nREPT     LOOPTOP,100  $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nJUMP     ERROR3 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    CONTINUE $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nCOND     NOXYOUT,NOXYCDB $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nXYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nXYPLOT   XYPLTCE//$\r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nLABEL    NOXYOUT $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $\r\n****CARD   1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62\r\n$$$$\r\nCOND     FINIS,PJUMP $\r\n****CARD   1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62\r\n$$$$\r\nMODACC   CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/\r\n         *CEIGN* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 131,133\r\n$$$$\r\nDDR1     CPHIH1,PHIDH/CPHID $\r\n****CARD   1- 13, 24, 26, 29, 32, 34, 36- 43, 55- 62\r\n****FILE 118\r\n$$$$\r\nEQUIV    CPHID,CPHIP/NOA $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\nCOND     LBL14,NOA $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\nSDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\nEQUIV    CPHID,CPHIA/NOUE $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132\r\n$$$$\r\nCOND     LBLNOE,NOUE $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132,135\r\n$$$$\r\nVEC      USETD/RP/*D*/*A*/*E* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 135\r\n$$$$\r\nPARTN    CPHID,,RP/CPHIA,,,/1/3 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132\r\n$$$$\r\nLABEL    LBLNOE $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132,135\r\n$$$$\r\nSDR2     CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP,\r\n         EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 137\r\n$$$$\r\nOFP      OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $\r\n****CARD  19\r\n$$$$\r\nCOND     P3,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/\r\n         PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\nPRTMSG   PLOTX3//$\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P3 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR7 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-7/*BLADEMDS* $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  1    ADUM8    ADUM9    AXIC     AXIF     AXSLOT\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S\r\n  1    GRDSET   GRID     GRIDB\r\n  1    POINTAX  RINGAX   RINGFL\r\n  1    SECTAX   SEQGP    SPOINT\r\n  2    BAROR\r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX  CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8\r\n  2    CDUM9    CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3\r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2\r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTRBSC   CTRAPAX\r\n  2    CTRIAAX  CTRIARG  CTORDRG  CTRAPRG  CTRIA1   CTRIA2   CTRIM6\r\n  2    CTRMEM   CTRPLT   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6    PDUM7    PDUM8    PDUM9\r\n  3    PIHEX    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2\r\n  3    PROD     PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1\r\n  3    PTRIA2   PTRIM6   PTRIAAX  PTRMEM   PTRPLT   PTUBE    PTWIST\r\n  3    PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  4    GENEL\r\n  5    CONM1    CONM2\r\n  6    PELAS\r\n  7    PMASS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4\r\n  8    TEMPMT$  TEMPMX$\r\n  9    AXISYM\r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE\r\n  9    MPC      MPCADD   MPC$     MPCAX\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1\r\n 11    OMIT     OMIT1    OMITAX\r\n 12    SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD\r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 24    COUPMASS CPBAR    CPDPLT   CPTRBSC\r\n 24    CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 24    WTMASS\r\n 26    NODJE\r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5\r\n 32    SET1     SET2     SPLINE1  SPLINE2  SPLINE3\r\n 34    MKAERO1  MKAERO2\r\n 35    AEFACT\r\n 36    FLFACT   FLUTTER\r\n 37    AERO\r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5\r\n 38    FMETHOD$\r\n 39    VREF\r\n 40    TF\r\n 41    CTYPE    CYCSEQ   CYJOIN\r\n 41    KINDEX   NSEGS\r\n 42    IREF\r\n 42    MAXMACH  MINMACH  MTYPE\r\n 42    STREAML  STREAML1 STREAML2\r\n 43    KGGIN\r\n 55    SDAMP$\r\n 55    TABDMP1\r\n 56    EPOINT\r\n 56    SEQEP\r\n 57    B2PP$\r\n 57    DMIG\r\n 57    K2PP$\r\n 57    M2PP$\r\n 57    TF$\r\n 58    EIGR\r\n 59    METHOD$\r\n 60    EIGC     EIGP\r\n 61    CMETHOD$\r\n 62    HFREQ\r\n 62    LFREQ    LMODES\r\n 62    KDAMP\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    KAA\r\n107    OGPWG\r\n108    OPHIG    PPHIG\r\n109    KTOTAL\r\n110    ELSETZ   GPSETZ   PLTPARZ  PLTSETZ\r\n111    EED      EQDYN    GPLD     SILD     TFPOOL   USETD\r\n112    LAMA     PHIA\r\n113    GO       KOO      LOO\r\n114    B2PP     K2PP     M2PP\r\n115    GMD      GOD\r\n116    PHIDH    MHH      KHH      BHH\r\n117    CLAMA    OCEIGS   PHIH\r\n118    CPHID\r\n119    OPHIH\r\n120    CPHIP    QPC\r\n121    PLOTZ\r\n122    KDICT    KELM     MDICT    MELM\r\n123    MAA\r\n124    ACPT     AERO     FLIST\r\n125    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n126    GTKA\r\n127    AJJL     D1JK     D2JK     SKJ\r\n128    D1JE     D2JE\r\n129    BXHH\r\n129    FSAVE    KXHH     MXHH\r\n130    CASEYY   CLAMAL   OVG      PHIHL\r\n131    CLAMAL1  CPHIH1\r\n132    CPHIA\r\n133    CASEZZ\r\n134    PLOTX1\r\n135    RP\r\n136    MI\r\n137    OCPHIP   OEFC1    OESC1    OQPC1   PCPHIP\r\n138    QHHL\r\n139    B2DD     K2DD     M2DD\r\n140    CYCD\r\n141    KKK      MKK\r\n142    LAMK     OEIGS    PHIK\r\n143    PHIG\r\n144    PVECT\r\n145    PHIAX\r\n146    XYPLTCE\r\n147    PLOTX3\r\n148    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP0",
    "content": "APR.95    <== THE YEAR OF THIS DATE MUST MATCH THE NASTRAN RELEASE YEAR\r\n$$$$$$$$  THIS BEGINS THE 1ST PART OF THE RIGID FORMAT\r\nBEGIN     DISP0 - DUMMY RIGID FORMAT TO ILLUSTRATE HOW TO WRITE A NEW R.\r\n          REFERENCE: \"THE DESIGN AND USAGE OF THE NEW DATA MANAGEMENT FE\r\n                      IN NASTRAN\" BY P. R. PAMIDI AND W. K. BROWN, PP.11\r\n                      12TH NASTRAN USERS' COLLOQUIUM, MAY 1984 (NASA C.P\r\n          UPDATE SUBROUTINES XRGDFM AND XCSA, AND RELINK LINK1 TO INCLUD\r\n                 SOLUTION NUMBER AND ITS ANALYSIS HEADING.\r\n          NOTE:  IN THIS WRITE-UP, RIGID FORMAT CARDS ARE IN UPPER CASE\r\n                 AND COMMENTS ARE IN LOWER CASE, OR AFTER <==, OR <<<\r\n          WRITTEN BY G.CHAN/UNISYS 7/1990. (PLEASE INFORM ME IF ERROR IS\r\n$$$$      SYMBOL OF 4 OR MORE $ IS A COMMENT LINE. BLANK LINE IS NOT ALL\r\nMODULE1   I1,,/O1//*P1* <== SEE NASTRAN USER'S MANUAL FOR DMAP RULES\r\n                        <   DMAP NAME BEGINS ON COLUMN 1 (VALID UP TO CO\r\n                        <<< NEXT 7 CARDS BEGIN WITH '****'. THEY CAN BE\r\n                        <   IF RESTART AND/OR SUBSTRUCTURE ARE NOT INVOL\r\n****CARD  1-20,30,40    <== RESTART INPUT DATA CHANGE INFORMATION\r\n****FILE  100-103,110   <== RESTART DATA  FILE CHANGE INFORMATION\r\n                        <   THE ABOVE CHANGE INFORMATION IS USED SUBSEQU\r\n                        <   TO DETERMINE THE DMAP STATEMENTS TO BE FLAGG\r\n                        <   EXECUTION IN MODIFIED RESTART.\r\n****SBST  1,2,9         <== DMAP SEQUENCE SUBSET CONTROL (1 THRU 9).\r\n                        <   THIS DMAP IS DELETED IF USER SPECIFIED A SUB\r\n                        <   ON SOL CARD THAT MATCHES THE NO. ON THIS SBS\r\n****RFMT  188,200-204   <== RESTART RIGID FORMAT SWITCH:\r\n                        <   187-204 FOR APPROACH DISP, 207-209 FOR APP H\r\n                        <   AND 214-215 FOR APPROACH AERO.\r\n                        <   THIS DMAP IS FLAGGED FOR EXECUTION IN A MODI\r\n                        <   RESTART IF THE PREVIOUS CHECKPOINT RUN HAD A\r\n                        <   NO. LISTED ON THIS RFMT LINE.\r\n****PHS1  I1            <== PHSI IS SUBSTRUCTURE PHASE NUMBER CONTROL (I\r\n****PHS2  DB5           <   MUST BE FOLLOWED BY IN, DN, DBN, OR DEN FLAG\r\n****PHS3  D7            <   N=1 FOR PHASE 1, 5 OR 8 PHASE 2, 1 OR 7 PHAS\r\n                        <   (REFERING TO ASCM01, 05, 07 OR 08 SUBROUTINE\r\n                        <   'I' IN 'IN' INDICATES INSERT AFTER THIS DMAP\r\n                        <   'D' IN 'DN' INDICATES DELETION OR REPLACEMEN\r\n                        <   DMAP ALTER. 'DBN' AND 'DEN' ARE BEGIN AND EN\r\n                        <   DELETION/REPLACEMENT BY GROUP OF CONTIGUOUS\r\n                        <   (CURRENTLY SUBSTRUCTURE IN APP DISP1,2,3,8,9\r\n$$$$      IMPORTANT. A COMMENT LINE IS NEEDED BEFORE A NEW DMAP LINE.\r\nMODULES2  I2/O2/*P2* $  <== '$' ON DMAP LINE IS OPTIONAL\r\n****CARD  1-40,45\r\n****FILE  101,111\r\n$$$$ *    '*' ON A 4-DOLLAR COMMENT LINE IS COSMETIC\r\n           :\r\n           :\r\n$$$$\r\nEND\r\n****CARD   ...\r\n****RFMT   ...\r\n$$$$   THIS COMMENT IS NEEDED BEFORE THE 2ND PART OF THE RIGID FORMAT BY\r\n$*CARD BITS      <== CARD NAME TALBE, 1 THRU 93, FOR MODIFIED RESTART ON\r\n$$$$\r\n1         AXIC    AXIF    CELAS1   CELAS2   <== FREE FIELD, ALPHA-NUMERI\r\n2         ADUM1   CDUM1   ETC               <   UP TO 8 CHARACTER CARD N\r\n:         SPC\r\n           :\r\n          SPC$   <== ITEM FOLLOWED BY $ INDICATES CASE CONTROL RELATED C\r\n           :\r\n93         :\r\n$$$$   THIS COMMENT IS NEEDED BEFORE THE 3RD PART OF THE RIGID FORMAT BY\r\n$*FILE BITS      <== FILE NAME TABLE, 94 THRU 186, FOR MODIFIED RESTART\r\n$$$$\r\n94        SLT     GPTT   <== FREE FIELD, ALPHA-NUMERIC, UP TO 8 CHARACTE\r\n95        KGGX    GPST   <   FILE NAMES\r\n          ETC\r\n           :\r\n186        :\r\n$*        THIS VERY LAST LINE IS NEEDED.\r\n"
  },
  {
    "path": "rf/DISP1",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 01 - STATIC ANALYSIS - APR. 1995 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nFILE     OPTP2=SAVE/EST1=SAVE $\r\n****SBST   9\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nFILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $\r\n****SBST   1,  3\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nSETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5- 10, 14, 15, 18, 19, 22- 24, 28, 61\r\n****FILE 101,114,119,121-125,127\r\n****PHS1   I1\r\n$$$$\r\nCOMPOFF  1,INTERACT $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nCOMPON   1,INTERACT $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRECHK   BGPDT,EQEXIN,SIL,SIP,ECT,GPECT,\r\n         OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1,\r\n         OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY,\r\n         OES1L,OEF1L,ONRGY1 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nCOMPOFF  LBLINT02,SYS21 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D5\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 130\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 130\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 129\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,120\r\n****PHS2   DB5\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,120\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,120\r\n****PHS2   DE5\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $\r\n****CARD   1,  2, 15, 61\r\n****FILE  96, 99\r\n****RFMT 188-204,207-209\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****PHS2   DB5\r\n****RFMT 188-204,207-209\r\n$$$$\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****PHS2   DE5\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPURGE    KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$\r\nOPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $\r\n****SBST   9\r\n****CARD   1-  6,  8, 13\r\n****FILE 117\r\n$$$$\r\nLABEL    LOOPTOP $\r\n****SBST   9\r\n****CARD   1-  6\r\n****FILE 117\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 13- 16, 24, 61\r\n****FILE  98, 99,116,121\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $\r\n****SBST   9\r\n****CARD   1-  6, 13, 16\r\n****FILE 118\r\n****PHS2   D5\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    MGG/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\nCOND     ERROR2,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 13- 16, 24, 61\r\n****FILE  98, 99,116,121\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2   DB5\r\n$$$$\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE5\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23, 31, 59\r\n****FILE 101\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 22, 23, 28, 31, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 12, 22, 23, 28\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n****PHS1   I1\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,\r\n         KFS,KSS/SINGLE/QG/NOSR $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105-107,109,111,113\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF2 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n****PHS1   DB1\r\n****PHS3   DB1\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nRBMG1    USET,KAA,/KLL,KLR,KRR,,, $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$\r\nCOND     LBL7,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL7 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n****PHS1   DE1\r\n****PHS3   DE1\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PG,,,,/LUSET/NSKIP/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 59- 62\r\n****FILE 110\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n****PHS1   DB1\r\n$$$$\r\nCOND     LBL10,NOSET $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n****PHS3   DB7\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nSSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         NSKIP/S,N,EPSI $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n****PHS3   DE7\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/\r\n         *STATICS* $\r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 113\r\n****RFMT 188-204,207-209\r\n****PHS3   I7\r\n$$$$\r\nCOND     LBL8,REPEAT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nREPT     LBL11,360 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nJUMP     ERROR1 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/TEST/REPEAT $\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nCOND     ERROR5,TEST $\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBL8 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nGPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/\r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 119\r\n****PHS2   DB5\r\n$$$$\r\nPURGE    KDICT,KELM/REPEAT $\r\n****CARD   1-  3,  6,  8, 18, 19\r\n****FILE 116\r\n$$$$\r\nOFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 119\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $\r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,\r\n         XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,\r\n         OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nCOND     LBLSTRS,STRESS $\r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nCURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/\r\n         V,Y,NINTPTS $\r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLSTRS $\r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nPURGE    OES1M/STRESS $\r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nCOND     LBLSTRN,STRNFLG $\r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/\r\n         ,,,OES1A,,,,/*STATICS*//1 $\r\n****CARD  18, 19\r\n****FILE 123\r\n$$$$\r\nCOND     LBLSTRN,STRAIN $\r\n****CARD  18, 19\r\n****FILE 124\r\n$$$$\r\nCURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/\r\n         V,Y,NINTPTS $\r\n****CARD  18, 19\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLSTRN $\r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\nPURGE    OES1A/STRNFLG $\r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  18, 19, 29\r\n****FILE 125,126\r\n$$$$\r\nSDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nPARAM    //*SUB*/PRTSORT2/NOSORT2/1 $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nCOND     LBLSORT1,PRTSORT2 $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nOFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nSCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $\r\n****CARD 19\r\n****FILE 125\r\n$$$$\r\nOFP      OESF2,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 125\r\n$$$$\r\nJUMP     LBLXYPLT $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nLABEL    LBLSORT1 $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 114\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nLABEL    LBLXYPLT $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,\r\n         PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\nXYPLOT   XYPLTT// $\r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\nJUMP     DPLOT $\r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  18, 19, 29\r\n****FILE 125,126\r\n$$$$\r\nPURGE    OUGV2/NOSORT2 $\r\n****CARD  18, 19\r\n****FILE 125,126\r\n$$$$\r\nCOND     LBLOFP,COUNT $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\nOPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,\r\n         CARDNO $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\nEQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE  97,117\r\n$$$$\r\nCOND     LOOPEND,PRINT $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118,128\r\n$$$$\r\nLABEL    LBLOFP $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1X,OESF1Y/*RF* $\r\n****CARD 19\r\n****FILE 114\r\n$$$$\r\nOFP      OESF1X,OESF1Y,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 122-124\r\n$$$$\r\nLABEL    DPLOT $\r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 126\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 128\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 128\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nLABEL    LOOPEND $\r\n****SBST   9\r\n****CARD  18, 22, 23\r\n****FILE 128\r\n****PHS1   DE1\r\n****PHS2   DE5\r\n$$$$\r\nCOND     FINIS,COUNT $\r\n****SBST   9\r\n****CARD  18, 22, 23\r\n$$$$\r\nREPT     LOOPTOP,360 $\r\n****SBST   9\r\n****CARD  18, 22, 23\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 20, 22- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*STATICS* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*STATICS* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*STATICS* $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*STATICS* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*STATICS* $\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBLINT02 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOMPON   LBLINT01,SYS21 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*SYST*//86/1 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSETVAL   //V,N,PFILE/0 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    AGAIN $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPROMPT1  //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/\r\n         S,N,SCAN1/S,N,SCAN2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     LBLINT1,PEXIT $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPARAM    //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPARAM    //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     STEPPLOT,NOPLOTZ $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRTMSG   PLTSETR $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     LBLINT2,PLOT2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSETVAL   //S,N,PLTFG1/1 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/\r\n         PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPRTMSG   PLOTX3 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSITEPLOT   $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nJUMP     LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    LBLINT2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSETVAL   //S,N,PLTFG2/-1 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,\r\n         OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPRTMSG   PLOTX4// $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSITEPLOT  $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nJUMP     LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    STEPPLOT $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPARAM    //*NOT*/V,N,NOSCANZ/V,N,SCANZ $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     STEPSCAN,NOSCANZ $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    OESF1I,OESF2I/NOSCANZ $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     LBLINT3,SCAN2 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1I,OESF1J/*OL1* $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nOFP      OESF1I,OESF1J,,,,//S,N,CARDNO $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    OESF1I,OESF1J $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nJUMP     LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    LBLINT3 $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSCAN     CASECC,OES2,OEF2,,/OESF2I,/*OL2* $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nOFP      OESF2I,,,,,//S,N,CARDNO $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    OESF2I $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nJUMP     LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    STEPSCAN $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPARAM    //*NOT*/V,N,NOXYPT/V,N,XYPLOT $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nCOND     LBLINTEX,NOXYPT $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    XYPLTI/NOXYPT $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/\r\n         *PSET*/S,N,PFILE/S,N,CARDNO $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nXYPLOT   XYPLTI// $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nSITEPLOT   $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nPURGE    XYPLTI $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nJUMP     LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nLABEL    LBLINTEX $\r\n****CARD   1-20,22-24,28,31,59-62\r\n$$$$\r\nREPT     AGAIN,400 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRTPARM  //1/*STATICS* $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nLABEL    LBLINT1 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nLABEL    LBLINT01 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nEND      $\r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CHBDY    CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CONROD   CQDMEM   CQDMEM1  CQDMEM2\r\n  2    CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA   CTORDRG\r\n  2    CTRAPAX  CQUAD4   CTRIA3\r\n  2    CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG  CTRIM6\r\n  2    CTRMEM\r\n  2    CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PHBDY    PIHEX    PQDMEM   PQDMEM1\r\n  3    PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR   PTORDRG\r\n  3    PTRAPAX  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT\r\n  3    PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2\r\n  8    MATT3    MAT8     MAT6\r\n  8    MATT4    MATT5    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$\r\n  8    TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    OPT      GRDEQ\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    STRESS\r\n 26    STRAIN\r\n 27    NINTPTS\r\n 28    AUTOSPC\r\n 29    XYOUT$\r\n 31    NOLOOP$\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    RG       USET     YS       ASET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN\r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO\r\n107    KLL      KLR      KRR\r\n108    LLL\r\n109    DM\r\n110    PG\r\n111    PL       PO       PS       QR\r\n112    RULV     RUOV     ULV      UOOV\r\n113    PGG      QG       UGV\r\n114    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n114    OEF1L    OES1L    OESF1    OESF1L   OESF1X   OESF1Y\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n116    KDICT    KELM     MDICT    MELM\r\n117    OPTP1\r\n118    OPTP2    EST1\r\n119    OGPFB1   ONRGY1\r\n120    PLOTX1\r\n121    OGPWG\r\n122    OES1M    OES1G\r\n123    OES1A\r\n124    OES1AM   OES1AG\r\n125    OUGV2    OPG2     OQG2     OEF2     OES2     OESF2\r\n126    XYPLTT\r\n127    OQM1\r\n128    PLOTX2\r\n129    BGPDP    SIP\r\n130    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP10",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 12, 14, 15, 19- 24, 56- 62\r\n****FILE 101,112,117,118,121,126\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 128\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 128\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 127\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR5,NOSIMP $\r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8, 24\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 17, 20\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 20\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR,\r\n         DM,MR/REACT $\r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,115,120\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,123\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/\r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/\r\n         NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $\r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 59\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,\r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 117-121\r\n$$$$\r\nPARAM    //*MPY*/REPEATE/1/-1 $\r\n****CARD   1-  6,  8- 14, 16, 22, 23, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18, 19, 21- 23, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPURGE    PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1,\r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $\r\n****CARD  22, 23\r\n****FILE 117-121\r\n$$$$\r\nCASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19, 21- 23, 25, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,\r\n         M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/\r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/\r\n         -1/-1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 56, 57\r\n****FILE 115\r\n$$$$\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 59, 62\r\n****FILE 116\r\n$$$$\r\nCEAD     KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$\r\nOFP      OCEIGS,,,,,//S,N,CARDNO $\r\n****CARD  56- 62\r\n****FILE 117\r\n$$$$\r\nCOND     LBL17,EIGVS $\r\n****CARD   1-  6,  8- 12, 14, 19, 21- 24, 56- 62\r\n****FILE 117,118\r\n$$$$\r\nOFP      CLAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 22- 24\r\n****FILE 117\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/\r\n         NOSORT2/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  19, 21\r\n****FILE 118\r\n$$$$\r\nCOND     LBL16,NOH $\r\n****CARD  21\r\n****FILE 118\r\n$$$$\r\nOFP      OPHIH,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 118\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  21\r\n****FILE 117,118\r\n$$$$\r\nCOND     LBL17,NOP $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 119\r\n$$$$\r\nDDR1     PHIH,PHIDH/CPHID $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 119\r\n$$$$\r\nEQUIV    CPHID,CPHIP/NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nCOND     LBLNOA,NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nSDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    LBLNOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/\r\n         ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nOFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 12, 14, 19, 21- 24, 56- 62\r\n$$$$\r\nCOND     FINIS,REPEATE $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*MDLCEAD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 101\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*MDLCEAD* $\r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 101\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*MDLCEAD* $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*MDLCEAD* $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*MDLCEAD* $\r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    ASETOUT\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    AUTOSPC\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPDPLT   CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 56    EPOINT   SEQEP    TF\r\n 57    DMIG     DMIAX    B2PP$    K2PP$    M2PP$    TF$\r\n 58    EIGR\r\n 59    METHOD$\r\n 60    EIGC     EIGP\r\n 61    CMETHOD$\r\n 62    LFREQ    LMODES   HFREQ    SDAMP$   TABDMP1\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    EED      EQDYN    GPLD     SILD     TFPOOL   USETD\r\n112    LAMA     MI       PHIA     OEIGS\r\n113    CASEXX\r\n114    B2PP     K2PP     M2PP\r\n115    GMD      GOD      B2DD     K2DD     M2DD\r\n116    BHH      KHH      MHH      PHIDH\r\n117    CLAMA    OCEIGS   PHIH\r\n118    OPHIH\r\n119    CPHID\r\n120    CPHIP    QPC\r\n121    OCPHIP   OEFC1    OESC1    OQPC1\r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n123    MAA\r\n124    KDICT    KELM     MDICT    MELM\r\n125    PLOTX1\r\n126    OGPWG\r\n127    BGPDP    SIP\r\n128    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP11",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $ \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 12, 14, 15, 19, 21, 24, 29, 59, 60\r\n****FILE 101,112,118,119,122,123,136\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 142\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 142\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 141\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126,135\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126,135\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126,135\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR7,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8, 24\r\n****FILE 128\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 128\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 128\r\n$$$$\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR,  \r\n         MRR,DM,MR/REACT/MDD/MODACC $   \r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,115,117,121\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 127\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,127\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 127\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,127\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nJUMP     LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nCOND     LBL7,MODACC $  \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nLABEL    LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$\r\nCOND     LBL7,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 14, 24\r\n****FILE 109\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL7 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,   \r\n         EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ \r\n         S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    UEVF/NOUE $\r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 120\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56, 57, 59, 60\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 114,115,122,123,125,130-134,137,138,140\r\n$$$$\r\nPARAM    //*MPY*/REPEATF/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 23, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP,\r\n         B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2,\r\n         IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1,  \r\n         ZEFC1/NEVER $  \r\n****CARD  19- 23, 27\r\n****FILE 114,115,118,119,122,123,125,130-134,137,138,140\r\n$$$$\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$\r\nGKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/  \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/  \r\n         1/V,Y,MODACC = -1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 53, 56, 57, 60\r\n****FILE 115\r\n$$$$\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 116\r\n$$$$\r\nCOND     ERROR5,NOFRL $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nCOND     ERROR6,NODLT $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF,   \r\n         PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/\r\n         OMIT/NONCUP/S,N,FRQSET $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$\r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ \r\n         *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  19- 21, 27\r\n****FILE 118\r\n$$$$\r\nCOND     LBL16,NOH $\r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$\r\nCOND     LBL16A,NOSORT2 $   \r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$\r\nSDR3     OUHVC1,,,,,/OUHVC2,,,,, $  \r\n****CARD  21, 27\r\n****FILE 119\r\n$$$$\r\nOFP      OUHVC2,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\nXYTRAN   XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 137\r\n$$$$\r\nXYPLOT   XYPLTFA // $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 137\r\n$$$$\r\nJUMP     LBL16 $\r\n****CARD  21, 27\r\n****FILE 137\r\n$$$$\r\nLABEL    LBL16A $   \r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$\r\nOFP      OUHVC1,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 118\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 21, 27\r\n****FILE 118,119,137\r\n$$$$\r\nCOND     LBL14,NOP $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 120-125,129-134,138-140\r\n$$$$\r\nPARAM    //*NOT*/NOMOD/V,Y,MODACC $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n$$$$\r\nCOND     LBDDRM,MODACC $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 53, 56- 62\r\n****FILE 120-124\r\n$$$$\r\nDDR1     UHVF,PHIDH/UDV1F $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 124\r\n$$$$\r\nDDR2     USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/   \r\n         *FREQRESP*/NOUE/REACT/FRQSET $ \r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 120\r\n$$$$\r\nEQUIV    UDV2F,UDV1F/NOMOD $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 124\r\n$$$$\r\nEQUIV    UDV1F,UPVC/NOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nCOND     LBLNOA,NOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nSDR1     USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    LBLNOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,   \r\n         XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/   \r\n         S,N,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$\r\nCOND     LBL18,NOSORT2 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 122,123,125,129-134,138-140\r\n$$$$\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,  \r\n         OEFC2, $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nJUMP     P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBDDRM $   \r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 53, 56- 62\r\n****FILE 120-124\r\n$$$$\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 129\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/  \r\n         ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $   \r\n****CARD  19, 20\r\n****FILE 130\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, \r\n         ,,,,,,/*FREQ* $\r\n****CARD  19, 20\r\n****FILE 131\r\n$$$$\r\nEQUIV    OPPCA,OPPC1/MODACC $   \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$\r\nCOND     LBLSORT,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 123,132,133\r\n$$$$\r\nSDR3     IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $\r\n****CARD  19, 20\r\n****FILE 132\r\n$$$$\r\nEQUIV    OPPCB,OPPC2/MODACC $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nDDRMM    CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/   \r\n         ZUPVC2,ZQPC2,ZESC2,ZEFC2,  $   \r\n****CARD  19, 20\r\n****FILE 133\r\n$$$$\r\nEQUIV    ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/\r\n         ZEFC2,OEFC2/MODACC $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nJUMP     P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBLSORT $  \r\n****CARD  19, 20\r\n****FILE 123,132,133\r\n$$$$\r\nDDRMM    CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/\r\n         ZUPVC1,ZQPC1,ZESC1,ZEFC1, $\r\n****CARD  19, 20\r\n****FILE 134\r\n$$$$\r\nEQUIV    ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/\r\n         ZEFC1,OEFC1/MODACC $   \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$\r\nJUMP     LBL18 $\r\n****CARD  19, 20\r\n****FILE 134\r\n$$$$\r\nLABEL    P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 123\r\n$$$$\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 138\r\n$$$$\r\nXYPLOT   XYPLTF// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 138\r\n$$$$\r\nCOND     LBL21,JUMPPLOT $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/\r\n         PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $  \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$\r\nLABEL    LBL21 $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$\r\nCOND     LBL14,NOPSDL $ \r\n****CARD  20, 26, 54, 55\r\n****FILE 125\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $ \r\n****CARD  26, 54, 55\r\n****FILE 125\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nCOND     LBL14,NORD $   \r\n****CARD  26, 54, 55\r\n****FILE 140\r\n$$$$\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 140\r\n$$$$\r\nXYPLOT   XYPLTR// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 140\r\n$$$$\r\nJUMP     LBL14 $\r\n****CARD  20\r\n****FILE 140\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 122,123,125,129-134,138-140\r\n$$$$\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 120-125,129-134,138-140\r\n$$$$\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*MDLFRRD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*MDLFRRD* $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*MDLFRRD* $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR7 $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRTPARM  //-7/*MDLFRRD* $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    RANDOM$  \r\n 27    AXYOUT$  \r\n 28    ASETOUT  \r\n 29    AUTOSPC  \r\n 53    MODACC   \r\n 54    TABRND1  TABRND2  TABRND3  TABRND4   \r\n 55    RANDPS   RANDT1   RANDT2 \r\n 56    EPOINT   SEQEP    TF \r\n 57    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$ \r\n 58    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2  \r\n 58    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4 \r\n 59    EIGR \r\n 60    METHOD$  \r\n 61    DECOMOPT DLOAD$   FREQ$  \r\n 62    HFREQ    LFREQ    LMODES   TABDMP1  SDAMP$   \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    DLT      EED      EQDYN    FRL      GPLD     PSDL     SILD   \r\n111    TFPOOL   USETD   \r\n112    LAMA     MI       OEIGS    PHIA  \r\n113    CASEXX   \r\n114    B2PP     K2PP     M2PP   \r\n115    B2DD     GMD      GOD      K2DD     M2DD     MDD \r\n116    BHH      KHH      MHH      PHIDH \r\n117    PDF      PPF      PSF      UHVF  \r\n118    OUHVC1   \r\n119    OUHVC2   \r\n120    PAF      UDV2F    UEVF   \r\n121    QPC      UPVC\r\n122    OEFC1    OESC1    OPPC1    OQPC1    OUPVC1   \r\n123    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2   \r\n124    UDV1F\r\n125    AUTO     PSDF\r\n126    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n127    MAA  \r\n128    KDICT    KELM     MDICT    MELM  \r\n129    PHIPH    QPH \r\n130    IEF1     IES1     IPHIP1   IQP1  \r\n131    OPPCA\r\n132    IEF2     IES2     IPHIP2   OPPCB    IQP2 \r\n133    ZEFC2    ZESC2    ZQPC2    ZUPVC2\r\n134    ZEFC1    ZESC1    ZQPC1    ZUPVC1\r\n135    PLOTX1   \r\n136    OGPWG\r\n137    XYPLTFA  \r\n138    XYPLTF   \r\n139    PLOTX2   \r\n140    XYPLTR   \r\n141    BGPDP    SIP \r\n142    MPT\r\n$*  \r\n"
  },
  {
    "path": "rf/DISP12",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 12 - MODAL TRANSIENT RESPONSE ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****SBST   6\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND/UHVT=APPEND/TOL=APPEND/ \r\n         RLODDISP=APPEND $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 12, 14, 15, 19, 21, 24, 28, 59, 60\r\n****FILE 101,112,119,123,134\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 139\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 139\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 138\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,133\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125,133\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125,133\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 61\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 127\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 127\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 127\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 26, 28\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 28\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 121\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST/SINGLE/QP/NOSR/KLR,KRR,MLR,MR,\r\n         MRR,DM/REACT $\r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,114,117,121\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 126\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,126\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,126\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nJUMP     LBL8 $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nCOND     LBL7,MODACC $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nLABEL    LBL8 $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$\r\nCOND     LBL7,REACT $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL7 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,\r\n         EED ,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/\r\n         NOFRL/S,N,NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    UEVT/NOUE/PNLH/NONLFT $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 120,128\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 57, 59, 60\r\n****FILE 114\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,\r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nGKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,\r\n         GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*MODAL*/0.0/\r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/\r\n         1/V,Y,MODACC = -1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 55- 57, 60\r\n****FILE 114\r\n$$$$\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 115\r\n$$$$\r\nCOND     ERROR5,NOTRL $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 117\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 118,119,122,123,128,130-132\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $\r\n****CARD   1-  6,  8- 14, 16, 19- 24, 27, 55- 62\r\n****FILE 116\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 24, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    PNLH,OUHV1,OPNL1,OUHV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,OEF1,\r\n         OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT,OPPA,IQP1,IPHIP1,IES1,\r\n         IEF1,OPPB,IQP2,IPHIP2,IES2,IEF2,ZQP2,ZUPV2,ZES2,ZEF2/NEVER $\r\n****CARD  19- 23, 27\r\n****FILE 118,119,122,123,128,130-132,135-137,139\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19- 25, 27, 55- 62\r\n****FILE 116\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NCOL/0/1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 12, 14, 24, 56, 57, 59, 60\r\n****FILE 117\r\n$$$$\r\nTRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH,\r\n         EST,MGG,/PPT,PST,PDT,PD,PH,TOL/S,N,NOSET/NCOL $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$\r\nEQUIV    PPT,PDT/NOSET $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$\r\nTRD      CASEXX,TRL,NLFT,DIT,KHH,BHH,MHH,PH/UHVT,PNLH,RLODDISP/*MODAL*/\r\n         NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $\r\n****CARD   1-  6,  8- 12, 14, 17, 22- 24, 56- 62\r\n****FILE 128\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UHVT,TOL,XYCDB,PNLH/OUHV1,OPNL1/\r\n         *TRANRESP*/*MODAL*/0/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  19- 21, 27\r\n****FILE 118\r\n$$$$\r\nCOND     LBL16,NOH $\r\n****CARD  21, 27\r\n****FILE 119,135\r\n$$$$\r\nSDR3     OUHV1,OPNL1,,,,/OUHV2,OPNL2,,,, $\r\n****CARD  21, 27\r\n****FILE 119\r\n$$$$\r\nOFP      OUHV2,OPNL2,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\nXYTRAN   XYCDB,OUHV2,OPNL2,,,/XYPLTTA/*TRAN*/*HSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nXYPLOT   XYPLTTA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  21, 27\r\n****FILE 119,135\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$\r\nCOND     LBL15,PJUMP $\r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124,129-132,136,137,139\r\n$$$$\r\nPARAM    //*NOT*/NOMOD/V,Y,MODACC $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 124\r\n$$$$\r\nPARAM    //*AND*/MPJUMP/V,Y,MODACC/JUMPPLOT $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$\r\nCOND     LBDDRM,MPJUMP $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$\r\nDDR1     UHVT,PHIDH/UDV1T $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 124\r\n$$$$\r\nCOND     LBLMOD,MODACC $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$\r\nDDR2     USETD,UDV1T,PDT,K2DD,B2DD,MDD,,LLL,DM/UDV2T,UEVT,PAF/\r\n         *TRANRESP*/NOUE/REACT/0 $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$\r\nEQUIV    UDV2T,UDV1T/NOMOD $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMOD $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$\r\nEQUIV    UDV1T,UPV/NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n$$$$\r\nCOND     LBL14,NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nSDR1     USETD,,UDV1T,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,\r\n         PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $\r\n****CARD  18- 20\r\n****FILE 122\r\n$$$$\r\nSDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/OPP2,OQP2,OUPV2,OES2,OEF2, $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nJUMP     P2A $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBDDRM $\r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 129\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/\r\n         ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG* $\r\n****CARD  18- 20\r\n****FILE 130\r\n$$$$\r\nSDR2     CASEXX,,,,EQDYN,SILD,,,,TOL,,,,XYCDB,PPT,/OPPA,,,,,,,/\r\n         *TRANRESP* $\r\n****CARD  18- 20\r\n****FILE 139\r\n$$$$\r\nSDR3     OPPA,IQP1,IPHIP1,IES1,IEF1,/OPPB,IQP2,IPHIP2,IES2,IEF2, $\r\n****CARD  18- 20\r\n****FILE 131\r\n$$$$\r\nEQUIV    OPPB,OPP2/MODACC $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nDDRMM    CASEXX,UHVT,TOL,IPHIP2,IQP2,IES2,IEF2,,EST,MPT,DIT/\r\n         ZUPV2,ZQP2,ZES2,ZEF2, $\r\n****CARD  18- 20\r\n****FILE 132\r\n$$$$\r\nEQUIV    ZUPV2,OUPV2/MODACC/ZQP2,OQP2/MODACC/ZEF2,OEF2/MODACC/ZES2,OES2/\r\n         MODACC $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nLABEL    P2A $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nOFP      OUPV2,OPP2,OQP2,OEF2,OES2,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 123\r\n$$$$\r\nSCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $\r\n****CARD 19\r\n****FILE 123\r\n$$$$\r\nOFP      OESF2,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 123\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/PLOTX2/\r\n         NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$\r\nXYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/\r\n         S,N,PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 137\r\n$$$$\r\nXYPLOT   XYPLTT// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 137\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124,129-132,136,137,139\r\n$$$$\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*MDLTRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 101\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*MDLTRD* $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 101\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*MDLTRD* $\r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*MDLTRD* $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*MDLTRD* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*MDLTRD* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCADD   MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    ISTART\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 26    ASETOUT\r\n 27    AXYOUT$\r\n 28    AUTOSPC\r\n 55    MODACC\r\n 56    EPOINT   SEQEP    TF\r\n 57    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$\r\n 58    DAREA    DELAY    DLOAD    FORCE    FORCE1   FORCE2   GRAV\r\n 58    MOMENT\r\n 58    MOMENT1  MOMENT2  NOLIN1   NOLIN2   NOLIN3   NOLIN4   NOLIN6\r\n 58    PLOAD    PLOAD4\r\n 58    PLOAD1   PLOAD2   SLOAD    TABLED1  TABLED2  TABLED3  TABLED4\r\n 58    TLOAD1   TLOAD2   TSTEP\r\n 59    EIGR\r\n 60    METHOD$\r\n 61    DLOAD$   NLFORCE  TSTEP$\r\n 62    HFREQ    LFREQ    LMODES   TABDMP1  SDAMP$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    DLT      EED      EQDYN    GPLD     NLFT     SILD     TFPOOL\r\n111    TRL      USETD\r\n112    LAMA     MI       OEIGS    PHIA\r\n113    B2PP     K2PP     M2PP\r\n114    B2DD     GMD      GOD      K2DD     M2DD     MDD\r\n115    BHH      KHH      MHH      PHIDH\r\n116    CASEXX\r\n117    PD       PDT      PH       PPT      PST      TOL\r\n118    OPNL1    OUHV1\r\n119    OPNL2    OUHV2\r\n120    PAF      UDV2T    UEVT\r\n121    QP       UPV\r\n122    OEF1     OES1     OPP1     OQP1     OUPV1    PUGV\r\n123    OEF2     OES2     OPP2     OQP2     OUPV2    OESF2\r\n124    UDV1T\r\n125    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n126    MAA\r\n127    KDICT    KELM     MDICT    MELM\r\n128    PNLH     UHVT     RLODDISP\r\n129    PHIPH    QPH\r\n130    IEF1     IES1     IPHIP1   IQP1\r\n131    IEF2     IES2     IPHIP2   IQP2     OPPB\r\n132    ZEF2     ZES2     ZQP2     ZUPV2\r\n133    PLOTX1\r\n134    OGPWG\r\n135    XYPLTTA\r\n136    PLOTX2\r\n137    XYPLTT\r\n138    BGPDP    SIP\r\n139    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP13",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 13 - NORMAL MODES WITH DIFFERENTIAL STIFFNESS - APR. 1995 $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 11, 14- 16, 19, 21, 23, 24, 57- 62\r\n****FILE 101,112,118,120,130,132\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 135\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121,131\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,131\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,131\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 57, 60\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 24, 57\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR5,NOMGG $\r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 123\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 123\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 11, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 23\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR6,NOL $\r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nCOND     LBL4D,REACT $\r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$\r\nJUMP     ERROR2 $\r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1, 10, 11\r\n****FILE 111\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/\r\n         QG/NOSR $\r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,109-111\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nRBMG2    KAA/LLL $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PG,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 57- 60\r\n****FILE 108\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$\r\nCOND     LBL10,NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         1/S,N,EPSI $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 110\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/\r\n         *BKL0* $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 111\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,\r\n         ,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *BKL0*////COMPS $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/C,N,*RF* $\r\n****FILE 112\r\n****CARD 19\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****FILE 112\r\n****CARD  19\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,\r\n         GPECT,OES1,OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/\r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 10, 57- 60\r\n****FILE 113\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/\r\n         S,N,DSCOSET $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 113\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF2 / MGG,MNN/MPCF2 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 104,114\r\n$$$$\r\nCOND     LBL2D,MPCF2 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nMCE2     USET,GM,KDGG,MGG,,/KDNN,MNN,, $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE / MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 105,115\r\n$$$$\r\nCOND     LBL3D,SINGLE $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nSCE1     USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT / MFF,MAA/OMIT $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$\r\nCOND     LBL5D,OMIT $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$\r\nPARAM    //*ADD*/DSCOSET/-1/0 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 125\r\n$$$$\r\nEQUIV    PL,PBL/DSCOSET/PS,PBS/DSCOSET/YS,YBS/DSCOSET/UOOV,UBOOV/\r\n         DSCOSET $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/NDSKIP/0/0 $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 125,126\r\n$$$$\r\nDSMG2    MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS,\r\n         PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 125,126\r\n$$$$\r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 127\r\n$$$$\r\nPRTPARM  //0/*DET* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nPRTPARM  //0/*POWER* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/\r\n         S,N,EPSI $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 128\r\n$$$$\r\nCOND     LBL9D,IRES $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nSDR1     USET,,UBLV,UBOOV,YBS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/NDSKIP/\r\n         *DS1* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 129\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,\r\n         ,,PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/\r\n         *DS1*////COMPS $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$\r\nOFP      OQBG1,OUBGV1,OESB1,OEFB1,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/\r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n$$$$\r\nCOND     ERROR3,NOEED $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$\r\nREAD     KBLL,MAA,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/\r\n         S,N,NEIGV/3 $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KDFS,,/PHIG,,BQG/1/*REIG* $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 119\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRANRESP*/KEPEAT=3/LOOP $\r\n****CARD   1-  6,  8- 11, 13, 14, 16, 18, 19, 21, 24, 57- 62\r\n****FILE 120\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,,\r\n         PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/\r\n         *REIG*////COMPS $\r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$\r\nOFP      OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OBEF1L,OBES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nCOND     P3,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,\r\n         OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nLABEL    P3 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*NMDS* $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1, 11\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*NMDS* $\r\n****CARD   1, 11\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*NMDS* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*NMDS* $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 133\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*NMDS* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 133\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 111\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*NMDS* $\r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 111\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    FREEPT   GRDSET   GRID     GRIDB    POINTAX  PRESPT   RINGAX\r\n  1    RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3\r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD\r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1\r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL\r\n  2    CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 21    DSFACT   DSCO$\r\n 22    ASETOUT\r\n 23    AUTOSPC\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 57    GRAV     RFORCE\r\n 58    TEMPLD$\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    EIGR\r\n 62    METHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      KSS      MFF\r\n106    GO       KAA      KOO      LOO\r\n107    LLL\r\n108    PG\r\n109    PL       PO       PS\r\n110    RULV     RUOV     ULV      UOOV\r\n111    PGG      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n112    OEF1L    OES1L    OESF1    OESF1L\r\n113    KDGG\r\n114    KDNN\r\n115    KDFF     KDFS     KDSS\r\n116    KDAA\r\n117    EED      EQDYN    GPLD     SILD     USETD\r\n118    LAMA     MI       OEIGS    PHIA\r\n119    BQG      PHIG\r\n120    OBEF1    OBES1    OBQG1    OPHIG    PPHIG\r\n120    OBEF1L   OBES1L\r\n121    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n122    MAA\r\n123    KDICT    KELM     MDICT    MELM\r\n125    PBL      PBS      UBOOV    YBS\r\n126    KBLL     KBFS     KBSS\r\n127    LBLL\r\n128    UBLV     RUBLV\r\n129    UBGV     QBG\r\n130    OQBG1    OUBGV1   OESB1    OEFB1    PUBGV1\r\n130    OEFB1L   OESB1L\r\n131    PLOTX1\r\n132    OGPWG\r\n133    PLOTX2\r\n134    PLOTX3\r\n135    BGPDP    SIP\r\n136    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP14",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 14 - STATIC ANALYSIS WITH CYCLIC SYMMETRY - APR. 1995 $\r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nFILE     KKK=SAVE/PK=SAVE $\r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nFILE     UXV=APPEND $\r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 18, 19, 21, 24\r\n****FILE 101,114,122,123\r\n$$$$\r\nPARAM    //*NOP*/V,Y,CYCIO=1 $\r\n****CARD   1-  6,  8- 14, 59- 62\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 126\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 126\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 125\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,121\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,121\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,121\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $\r\n****CARD   1,  2, 13, 15, 60, 61\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 28, 59- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,116,122\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$\r\nCOND     ERROR2,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,116,122\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 11, 20, 21, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $\r\n****CARD   1, 11, 59\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR6,REACDATA $\r\n****CARD   1, 11, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE $\r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,111-113\r\n$$$$\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1-  4,  6,  8- 12, 22, 59\r\n****FILE 107\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  4,  6,  8- 12, 22, 59\r\n****FILE 107\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PG,,,,/LUSET/NSKIP/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 110\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nCOND     LBL9,NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 17, 59- 62\r\n****FILE 111,112\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nCOND     LBL9,OMIT $\r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 112\r\n$$$$\r\nSSG3     LOO,KOO,PO,,,/UOOV,,RUOV,/-1/V,Y,IRES=-1 $\r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****FILE 111,112\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nEQUIV    PL,PX/CYCIO $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 108\r\n$$$$\r\nCOND     LBL10,CYCIO $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$\r\nCYCT1    PL/PX,GCYCF/V,Y,CTYPE/*FORE*/V,Y,NSEGS=-1/S,Y,KMAX=-1/V,Y,\r\n         NLOAD=1/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 108\r\n$$$$\r\nPARAM    //*ADD*/KINDEX/0/0 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nCYCT2    CYCD,KAA,,PX,,/KKK,,PK,,/*FORE*/V,Y,NSEGS/KINDEX/V,Y,\r\n         CYCSEQ=-1/V,Y,NLOAD/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 23, 25, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$\r\nRBMG2    KKK/LKK $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 117\r\n$$$$\r\nSSG3     LKK,KKK,PK,,,/UKV,,RUKV,/-1/V,Y,IRES $\r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n****FILE 118\r\n$$$$\r\nCYCT2    CYCD,,,UKV,RUKV,/,,UXV,RUXV,/*BACK*/V,Y,NSEGS/KINDEX/\r\n         V,Y,CYCSEQ/V,Y,NLOAD/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 23, 25, 27, 28, 59- 62\r\n****FILE 119\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 119\r\n$$$$\r\nCOND     LBL14,IRES $\r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUXV//*A* $\r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/KINDEX/KINDEX/1 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nPARAM    //*SUB*/DONE/V,Y,KMAX/KINDEX $\r\n****CARD   1-  6,  8- 12, 23, 27, 28, 59- 62\r\n$$$$\r\nCOND     LBL15,DONE $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nREPT     LBL11,360 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nJUMP     ERROR1 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nEQUIV    UXV,ULV/CYCIO $\r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 120\r\n$$$$\r\nCOND     LBL16,CYCIO $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$\r\nCYCT1    UXV/ULV,GCYCB/V,Y,CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/V,Y,NLOAD/\r\n         S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/NSKIP/\r\n         *STATICS* $\r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 113\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD   7\r\n****FILE 123\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $\r\n****CARD   7\r\n****FILE 123\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 123\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD   7\r\n****FILE 123\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *STATICS*////COMPS $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 114\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*CYCSTATICS* $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*CYCSTATICS* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*CYCSTATICS* $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*CYCSTATICS* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1-  6,  8- 12, 22, 23, 27, 28, 59- 62\r\n****FILE 108,109,117,119\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*CYCSTATICS* $\r\n****CARD   1-  6,  8- 12, 22, 23, 27, 28, 59- 62\r\n****FILE 108,109,117,119\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*CYCSTATICS* $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEGGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHBDY\r\n  2    CHEXA1\r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM\r\n  2    CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR\r\n  2    CTETRA   CQUAD4   CTRIA3\r\n  2    CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX\r\n  2    CTRIARG\r\n  2    CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST\r\n  2    CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PHBDY    PIHEX    PIS2D8\r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD\r\n  3    PSHEAR   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTORDRG  PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6\r\n  3    PTRMEM   PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2\r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    MAT6     TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 12    CYJOIN\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    CTYPE\r\n 23    NSEGS    KMAX     NLOAD\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    CYCSEQ\r\n 26    OPT      GRDEQ\r\n 27    LOOP$\r\n 28    LOOP1$\r\n 59    DEFORM   DEFORM$  LOAD$    RFORCE$  SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   QBDY1\r\n 60    QBDY2    QHBDY    QVECT    QVOL     SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN\r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO\r\n107    CYCD\r\n108    GCYCF    PX\r\n109    KKK      PK\r\n110    PG\r\n111    PL       PO       PS       QR\r\n112    RUOV     UOOV\r\n113    PGG      QG       UGV\r\n114    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n114    OEF1L    OES1L    OESF1    OESF1L\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n116    KDICT    KELM     MDICT    MELM\r\n117    LKK\r\n118    RUKV     UKV\r\n119    RUXV     UXV\r\n120    ULV      GCYCB\r\n121    PLOTX1\r\n122    OGPWG\r\n123    OQM1\r\n124    PLOTX2\r\n125    BGPDP    SIP\r\n126    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP15",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 15 NORMAL MODES ANALYSIS WITH CYCLIC SYMMETRY - APR 1995 $\r\n****CARD   1- 15, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 15, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1- 12, 14, 15, 18, 19, 21, 24, 61, 62\r\n****FILE 101,109,114,120,121\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 123\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 123\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 115\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116,119\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 15, 18- 24, 61, 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/\r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 11, 20, 21\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $\r\n****CARD   1, 11\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR4,REACDATA $\r\n****CARD   1, 11\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO/OMIT/KFS,QG/SINGLE $\r\n****CARD   1,  9- 11\r\n****FILE 103,105,106,113\r\n$$$$\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1,  9- 12, 22\r\n****FILE 107\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1,  9- 12, 22\r\n****FILE 107\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3  $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/\r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nCYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,KINDEX=-1/\r\n         V,Y,CYCSEQ=-1/1/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 23, 61\r\n****FILE 108\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 23, 61\r\n****FILE 108\r\n$$$$\r\nREAD     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MI,OEIGS/*MODES*/S,N,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$\r\nCOND     FINIS,NEIGV $\r\n****CARD   1- 12, 14, 18, 19, 23, 24, 61, 62\r\n****FILE 112-114,121,122\r\n$$$$\r\nOFP      LAMK,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$\r\nCYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/\r\n         V,Y,CYCSEQ/1/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 14, 23, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nCOND     ERROR5,NOGO $\r\n****CARD   1-  6,  8- 12, 14, 23, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 113\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD   7\r\n****FILE 121\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $\r\n****CARD   7\r\n****FILE 121\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 121\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD   7\r\n****FILE 121\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,\r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/\r\n         *REIG*////COMPS $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 114\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 14, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*CYCMODES* $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*CYCMODES* $\r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*CYCMODES* $\r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*CYCMODES* $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 61, 62\r\n****FILE 107,108,112\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*CYCMODES* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 61, 62\r\n****FILE 107,108,112\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*CYCMODES* $\r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     AXSLOT   CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1\r\n  1    CMASS2   CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C\r\n  1    CORD2R\r\n  1    CORD2S   FREEPT   GRDSET   GRID     GRIDB    GRIDF    GRIDS\r\n  1    POINTAX\r\n  1    PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SLBDY    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8\r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2   CIHEX1\r\n  2    CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1  CQDMEM2\r\n  2    CQDPLT   CQUAD4   CTRIA3\r\n  2    CQUAD1   CQUAD2   CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA\r\n  2    CTORDRG\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS\r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 12    CYJOIN\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    CTYPE\r\n 23    NSEGS    KINDEX   CYCSEQ\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    OPT      GRDEQ\r\n 61    EIGR\r\n 62    METHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    CYCD\r\n108    KKK      MKK\r\n109    LAMK     PHIK     MI       OEIGS\r\n111    EED      EQDYN    GPLD     SILD     USETD\r\n112    LAMA     PHIA\r\n113    PHIG     QG\r\n114    OEF1     OES1     OPHIG    OQG1     PPHIG\r\n114    OEF1L    OES1L    OESF1    OESF1L\r\n115    BGPDP    SIP\r\n116    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n117    MAA\r\n118    KDICT    KELM     MDICT    MELM\r\n119    PLOTX1\r\n120    OGPWG\r\n121    OQM1\r\n122    PLOTX2\r\n123    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP16",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1995 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1- 11, 14, 15, 19, 22, 23, 24, 26, 59- 62\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N,\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 158\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 158\r\n$$$$\r\nCOND     ERROR3,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 157\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPARAMR   //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $\r\n****CARD  26\r\n****FILE 117\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N,\r\n         JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 135\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 135\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,135\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $\r\n****CARD   1,  2, 13, 15, 60, 61\r\n****FILE  96, 99\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1-  8, 13\r\n****FILE  97, 99\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  4,  6\r\n****FILE  98\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,\r\n         CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,\r\n         CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  8\r\n****FILE 123\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nCOND     ERROR4,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n$$$$\r\nLABEL    LBL1 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n****FILE  97, 99\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1,  4,  6,  8- 11, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1,  4,  6,  8- 11, 59\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR5,NOL $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nCOND     LBL4D,REACT $\r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nJUMP     ERROR2 $\r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/\r\n         PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $\r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,109-111,115,139,140,147\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nRBMG2    KAA/LLL $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PGNA,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5-  8, 13, 59- 62\r\n****FILE 132\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 124\r\n$$$$\r\nCOND     NOAL,ALOAD $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 124\r\n$$$$\r\nALG      CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y,\r\n         ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $\r\n****CARD   1-  3,  5-  8, 13, 26, 27, 59- 62\r\n****FILE 124\r\n$$$$\r\nCOND     FINIS,IFAIL $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$\r\nCOND     NOAL,ALOAD $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$\r\nGP3      GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$\r\nSSG1     SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT,\r\n         PCOMPS/PGA1,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 126\r\n$$$$\r\nADD      PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    NOAL $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nEQUIV    PGNA,PG/ALOAD $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$\r\nCOND     LBL10,NOSET $\r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $\r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         1/S,N,EPSI $\r\n****CARD   1- 11, 13, 26, 59- 62\r\n****FILE 110\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nSDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $\r\n****CARD   1- 11, 13, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *DS0*////COMPS $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/\r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 138\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/\r\n         DSCOSET$\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 113\r\n$$$$\r\nCOND     NOAL0,ALOAD $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nEQUIV    PGNA,PG $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    NOAL0 $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nPARAM    //*ADD*/SHIFT/-1/0 $\r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $\r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAMR   //*ADD*/DSEPSI/0.0/0.0 $\r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAML   YS//*NULL*////NOYS $\r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nLABEL    OUTLPTOP $\r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nEQUIV    PG,PG1/NOYS $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nPARAM    //*KLOCK*/TO $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF2 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nCOND     LBL2D,MPCF2 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$\r\nCOND     LBL3D,SINGLE $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$\r\nCOND     LBL5D,OMIT $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$\r\nADD      KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 117\r\n$$$$\r\nADD      KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 139\r\n$$$$\r\nADD      KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 140\r\n$$$$\r\nCOND     PGOK,NOYS $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111,141-145\r\n$$$$\r\nMPYAD    KBSS,YS,/PSS/0 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 141\r\n$$$$\r\nMPYAD    KBFS,YS,/PFS/0 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 142\r\n$$$$\r\nUMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 143\r\n$$$$\r\nEQUIV    PN,PGX/MPCF2 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$\r\nCOND     LBL6D,MPCF2 $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$\r\nUMERGE   USET,PN,/PGX/*G*/*N*/*M* $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$\r\nLABEL    LBL6D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$\r\nADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 145\r\n$$$$\r\nEQUIV    PGG,PG1/ALWAYS $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    PGOK $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111,141-145\r\n$$$$\r\nADD      PG1,/PG0/(1.0,0.0) $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 146\r\n$$$$\r\nCOPY     UGV/AUGV $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 133\r\n$$$$\r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$\r\nPRTPARM  //0/*DET* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$\r\nPRTPARM  //0/*POWER* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$\r\nLABEL    INLPTOP $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*KLOCK*/TI $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     NOAL1,ALOAD $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 127-130\r\n$$$$\r\nALG      CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y,\r\n         APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V,\r\n         Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $\r\n****CARD   1- 11, 22, 23, 26, 27, 59- 62\r\n****FILE 127\r\n$$$$\r\nCOND     DONE,IFAIL $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*MPY*/V,Y,IPRTCL/0 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     NOAL1,ALOAD $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 128-130\r\n$$$$\r\nGP3      GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 128\r\n$$$$\r\nSSG1     SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/\r\n         PGA,,,,/LUSET/1/COMPS $ $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 129\r\n$$$$\r\nADD      PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$\r\nLABEL    NOAL1 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 127-130\r\n$$$$\r\nEQUIV    PG1,PG2/ALOAD $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$\r\nSSG2     USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 147\r\n$$$$\r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,\r\n         EPSI $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 119\r\n$$$$\r\nCOND     LBL9D,IRES $\r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $\r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$\r\nSDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 148\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nCOND     NOAL2,ALOAD $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$\r\nEQUIV    UBGV,AUGV $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$\r\nLABEL    NOAL2 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$\r\nADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 149\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N,\r\n         DSCOSET $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 150\r\n$$$$\r\nMPYAD    DKDGG,UBGV,PG0/PGI1/0 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 151\r\n$$$$\r\nADD      PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 134\r\n$$$$\r\nDSCHK    PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/\r\n         TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     DONE,DONE $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     SHIFT,SHIFT $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nEQUIV    PG,PG1/NEVER $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nEQUIV    PGI1,PG1/ALWAYS $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nEQUIV    PG1,PGI1/NEVER $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 151\r\n$$$$\r\nREPT     INLPTOP,1000 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nTABPT    PGI1,PG1,PG,,// $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    SHIFT $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 152\r\n$$$$\r\nEQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111,113\r\n$$$$\r\nEQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 120,152\r\n$$$$\r\nREPT     OUTLPTOP,1000 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nTABPT    KDGG1,KDGG,UGV,,// $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    DONE $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*NOP*/V,Y,KTOUT=-1 $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$\r\nCOND     JMPKTOUT,KTOUT $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$\r\nADD      KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$\r\nOUTPUT1  KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$\r\nOUTPUT1, ,,,,//-3/0 $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$\r\nLABEL    JMPKTOUT $\r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$\r\nALG      CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/\r\n         -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/\r\n         V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $\r\n****CARD   1- 11, 22, 23, 26, 27, 59- 62\r\n****FILE 131\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,,\r\n         PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/\r\n         *DS1*////COMPS $\r\n****CARD  18, 19\r\n****FILE 121\r\n$$$$\r\nOFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nSDR1     USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/\r\n         1/*DS1* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 154\r\n$$$$\r\nGPFDR    CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1,\r\n         OGPFB1/*STATICS* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 155\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 123\r\n$$$$\r\nOFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     P3,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,\r\n         OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P3 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*ASTA* $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*ASTA* $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*ASTA* $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   8\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*ASTA* $\r\n****SBST   8\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*ASTA* $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    FREEPT   GRDSET   GRID     GRIDB    POINTAX  PRESPT   RINGAX\r\n  1    RINGFL\r\n  1    SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CFLUID2  CFLUID3\r\n  2    CFLUID4\r\n  2    CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CONROD   CQDMEM\r\n  2    CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX\r\n  2    CTRIARG  CQUAD4   CTRIA3\r\n  2    CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST\r\n  2    CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PIHEX    PQDMEM   PQDMEM1  PQDMEM2\r\n  3    PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR   PTORDRG  PTRAPAX\r\n  3    PTRBSC   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT   PTRPLT1\r\n  3    PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2\r\n  6    PELAS\r\n  7    PMASS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX\r\n 12    SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 26    APRESS\r\n 26    ATEMP\r\n 26    DTI\r\n 26    FXCOOR   FYCOOR   FZCOOR\r\n 26    PGEOM\r\n 26    SIGN     STREAML  STREAML1\r\n 26    ZORIGN\r\n 27    KTOUT\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD     RFORCE$\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN\r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO\r\n107    LLL\r\n108    PG\r\n109    PL       PO       PS\r\n110    RULV     RUOV     ULV      UOOV\r\n111    PG1      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n112    OEF1L    OES1L\r\n113    KDGG\r\n114    KDNN\r\n115    KDFF     KDFS     KDSS\r\n116    KDAA\r\n117    KBLL\r\n118    LBLL\r\n119    UBLV     RUBLV\r\n120    QBG      UBGV\r\n121    OEFB1    OESB1    OQBG1    OUBGV1   PUBGV1\r\n121    OEFB1L   OESB1L\r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n123    KDICT    KELM     MDICT    MELM\r\n124    CASECCA1 GEOM3A1\r\n125    SLTA1    GPTTA1\r\n126    PGA1\r\n127    CASECCA  GEOM3A\r\n128    SLTA     GPTTA\r\n129    PGA\r\n130    PG2\r\n131    CASECCB  GEOM3B\r\n132    PGNA\r\n133    AUGV\r\n134    PGI2\r\n135    PLOTX1\r\n136    OGPWG\r\n137    PLOTX2\r\n138    ECPT     GPCT\r\n139    KBFS\r\n140    KBSS\r\n141    PSS\r\n142    PFS\r\n143    PN\r\n144    PGX\r\n145    PGG\r\n146    PG0\r\n147    PBO      PBS      PBL\r\n148    UBGV     QBG\r\n149    DUGV\r\n150    DKDGG\r\n151    PGI1\r\n152    KDGG1\r\n153    KTOTAL\r\n154    AUBGV    APGG     AQBG\r\n155    ONRGY1   OGPFB1\r\n156    PLOTX3\r\n157    BGPDP    SIP\r\n158    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP17",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 17 - DYNAMIC DESIGN ANALYSIS METHOD - APR. 1995 $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62\r\n****FILE 112,122\r\n****RFMT 187-204,207-209\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 144\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 144\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 115\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116,119\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR4,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 14, 16, 24\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/\r\n         C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/\r\n         C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 118\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 21\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nPURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $\r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,113\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3  $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/LUSET/\r\n         LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 112\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/\r\n         S,N,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$     --- NEW, FROM COSDDAM ALTER PACKAGE ---\r\nDIAGONAL MI/MIS/*SQUARE*/-0.5 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 123\r\n****RFMT 187-204,207-209\r\n$$$$\r\nSMPYAD   MIS,MI,MIS,,,/MINEW/3 $ --> MINEW IS NOT USED, MIS IS NO LONG U\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 124\r\n****RFMT 187-204,207-209\r\n$$$$     --- END NEW ---\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nCOND     FINIS,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112-114,121,122\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 113\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187-204,207-209\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187-204,207-209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,\r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/*REIG*////COMPS\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$  $$$$     --- OLD, WAS REMOVED BY COSDDAM PACKAGE ---\r\n$$$$  OFP      OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $\r\n$$$$  ****CARD  19\r\n$$$$  ****FILE 114\r\n$$$$  $$$$\r\n$$$$  OFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n$$$$  ****CARD  19\r\n$$$$  ****FILE 114\r\n$$$$  $$$$\r\n$$$$  SCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n$$$$  ****CARD  19\r\n$$$$  ****FILE 114\r\n$$$$  $$$$\r\n$$$$  OFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n$$$$  ****CARD  19\r\n$$$$  ****FILE 114\r\n$$$$     --- END OLD REMOVE ---\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$     --- NEW, FROM COSDDAM ALTER PACKAGE ---\r\nGENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 125\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDIAGONAL MI/MID/*SQUARE*/-1.0  $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 126\r\n****RFMT 187-204,207-209\r\n$$$$\r\nMPYAD    MGG,PHIG,/MP/0 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 127\r\n****RFMT 187-204,207-209\r\n$$$$\r\nMPYAD    MP,DIRCOS,/PMD/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 127\r\n****RFMT 187-204,207-209\r\n$$$$\r\nMPYAD    MID,PMD,/PF/0 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 127\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDDAMAT   PF,PMD/EFFW/C,Y,GG=386.4 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 128\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLAMX,    ,LAMA/LAMB/-1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 129\r\n****RFMT 187-204,207-209\r\n$$$$\r\nGENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 130\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 131\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*GE*/TEST/C,Y,LMODES/NMODES $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCOND     DDAM,TEST $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 132\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARTN    PF,,RPPF/,PFR,,/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 132\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    PFR,PF $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 132\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARTN    EFFW,,RPPF/,EFFWR,,/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 133\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    EFFWR,EFFW $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 133\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARTN    MP,CPMP,/,,MPR,/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 134\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    MPR,MP $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 134\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARTN    PHIG,CPMP,/,,PHIGR,/1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 135\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    PHIGR,PHIG $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 135\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    DDAM $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE\r\n****RFMT 187-204,207-209\r\n$$$$     --> PURGE MODULE HERE WAS ADDED BY G.C. <--\r\nPURGE    MI,MID,DIRCOS,LAMB,RPLAMB,CPLAMB,RPPF,CPMP\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112,125-126,129-130\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/\r\n         C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/\r\n         C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 136\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDDAMAT   PF,MINAC/PVW/1.0 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 137\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDDAMAT   PF,MINOW2/PVOW/1.0 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 137\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 138\r\n****RFMT 187-204,207-209\r\n$$$$\r\nDDAMPG   MP,PVW/PG/NMODES/NDIR $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 138\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 139\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEQUIV    CASEDD,CASECC $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 139\r\n****RFMT 187-204,207-209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/\r\n         ,OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 139\r\n****RFMT 187-204,207-209\r\n$$$$\r\nSDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 140\r\n****RFMT 187-204,207-209\r\n$$$$\r\nNRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/\r\n         C,Y,SQRSS=0 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 141\r\n****RFMT 187-204,207-209\r\n$$$$\r\nOFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $\r\n****CARD  17\r\n****FILE 141\r\n****RFMT 187-204,207-209\r\n$$$$     --> PURGE MODULE HERE WAS ADDED BY G.C. <--\r\nPURGE    MP,PF,EFFW,LAMA,LAMB,SSDV,ACC,VWG,MINAC,MINOW2,PVW,OMEGA,\r\n         OQG3,OUGV3,OES3,OEF3,OUGV4,OQG4,OEF4,OES4\r\n****CARD   1-  6,  8- 12, 14, 17, 24, 61, 62\r\n****FILE 127-129,131,136,139-140\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCOMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 142\r\n****RFMT 187-204,207-209\r\n$$$$\r\nCASEGEN  CASECC/CASEEE/1/NDIR/NMODES $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 143\r\n****RFMT 187-204,207-209\r\n$$$$\r\nSDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/\r\n         ,,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 143\r\n****RFMT 187-204,207-209\r\n$$$$\r\nOFP      OUGV5,,,,,//S,N,CARDNO $\r\n****CARD  17\r\n****FILE 143\r\n****RFMT 187-204,207-209\r\n$$$$     --- END NEW ---\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 122\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*MODES* $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*MODES* $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*MODES* $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*MODES* $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121-143\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121-143\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     AXSLOT   CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1\r\n  1    CMASS2   CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C\r\n  1    CORD2R\r\n  1    CORD2S   FREEPT   GRDSET   GRID     GRIDB    GRIDF    GRIDS\r\n  1    POINTAX\r\n  1    PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SLBDY    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8\r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2   CIHEX1\r\n  2    CIHEX2\r\n  2    CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1  CQDMEM2  CQDPLT\r\n  2    CQUAD1   CQUAD2   CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    AOUT$\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    OPT      GRDEQ\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 61    EIGR\r\n 62    METHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    YS       RG       USET     ASET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    EED      EQDYN    GPLD     SILD     USETD\r\n112    LAMA     MI       OEIGS    PHIA\r\n113    PHIG     QG\r\n114    OEF1     OES1     OPHIG    OQG1     PPHIG\r\n114    OEF1L    OES1L    OESF1    OESF1L\r\n115    BGPDP    SIP\r\n116    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n117    MAA\r\n118    KDICT    KELM     MDICT    MELM\r\n119    PLOTX1\r\n120    OGPWG\r\n121    OQM1\r\n122    PLOTX2\r\n123    MIS\r\n124    MINEW\r\n125    DIRCOS\r\n126    MID\r\n127    MP       PMD      PF\r\n128    EFFW\r\n129    LAMB\r\n130    RPLAMB   CPLAMB   RPPF     CPMP\r\n131    OMEGA\r\n132    PFR\r\n133    EFFWR\r\n134    MPR\r\n135    PHIGR\r\n136    SSDV     ACC      VWG      MINAC    NINOW2\r\n137    PVW      PVOW\r\n138    UGV      PG\r\n139    CASEDD   OQG3     OUGV3    OES3     OEF3\r\n140    OUGV4    OQG4     OEF4     OES4\r\n141    NRLSTR   NRLFOR\r\n142    UGVADD   UGVSQR   UGVADC   UGVSQC   UGVNRL\r\n143    CASEEE   OUGV5\r\n144    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP18",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 18 - DIRECT FORCED VIBRATION ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nFILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 10, 14, 15, 19, 21, 24, 29\r\n****FILE 101,113,115,116,128\r\n$$$$PHS1   I1\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$PHS2   D8\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 135\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n         GPSETS,ELSETS/NOGPDT $\r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$\r\nCOND     LBL5,NOGPDT $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n$$$$PHS2   DB8\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$PHS2   DE8\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,\r\n         KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n$$$$PHS2   DB8\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$PHS2   DE8\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $\r\n****CARD   1-  3,  8\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/\r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/\r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/\r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     LBLMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLBGG,NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLK4GG,NOK4GG $\r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n$$$$PHS2   DB8\r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nCOND     ERROR4,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$PHS2   DE8\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n$$$$PHS1   I1\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $\r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBLM,NOMGG $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nCOND     LBLB,NOBGG $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nCOND     LBL5,NOK4GG $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$PHS3   I1\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,\r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N,\r\n         NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $\r\n****CARD   1,  9- 11, 55, 57, 61\r\n****FILE 107\r\n$$$$PHS1   DB1\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n$$$$PHS3   DB7\r\n$$$$\r\nPARAM    //*MPY*/REPEATF/-1/1 $\r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nCOND     LBL13,NOFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/\r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18- 23, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,\r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $\r\n****CARD  19- 23, 27\r\n****FILE 109,110,115-117,129-133\r\n$$$$\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,\r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nCOND     LBLFL2,NOFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nTRNSP    ABFL/ABFLT $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$PHS2   DB8\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$PHS2   DE8\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/\r\n         MAA,MDD/MDEMA/BAA,BDD/BDEBA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nCOND     LBL18,NOGPDT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,\r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/\r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/\r\n         KDEK2/-1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$PHS2   D8\r\n$$$$\r\nCOND     ERROR1,NOFRL $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     ERROR2,NODLT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS1   DE1\r\n$$$$\r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n         *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/\r\n         NONCUP/FRQSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$PHS1   DB1\r\n$$$$\r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/\r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $\r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL15A,NOSORT2 $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nSDR3     OUDVC1,,,,,/OUDVC2,,,,, $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC2,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nXYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nXYPLOT   XYPLTFA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nJUMP     LBL15 $\r\n****CARD  21, 27\r\n****FILE 131\r\n$$$$\r\nLABEL    LBL15A $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC1,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL20,NOP $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 114-117,132,133\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEQUIV    UDVF,UPVC/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS2   DB8\r\n$$$$\r\nCOND     LBL19,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   DE7\r\n$$$$\r\nSDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    LBL19 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   I7\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB,\r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/\r\n         S,N,NOSORT2 $\r\n****CARD  19, 20\r\n****FILE 115\r\n$$$$\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,\r\n         OEFC2, $\r\n****CARD  19, 20\r\n****FILE 116\r\n$$$$\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/\r\n         S,N,PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nXYPLOT   XYPLTF// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nCOND     LBL16,NOPSDL $\r\n****SBST   7\r\n****CARD  20, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $\r\n****SBST   7\r\n****CARD  26, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     LBL16,NORD $\r\n****SBST   7\r\n****CARD  20, 26, 54, 55\r\n****FILE 133\r\n$$$$\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nXYPLOT   XYPLTR// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nJUMP     LBL16 $\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 132\r\n$$$$\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 54, 55\r\n****FILE 114-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOPSDL $\r\n****CARD  20, 54, 55\r\n****FILE 132\r\n$$$$\r\nCOND     LBL20,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,\r\n         GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$PHS2   DE8\r\n$$$$\r\nLABEL    LBL20 $\r\n****SBST   7\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 134\r\n$$$$\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   DB7\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIRFRRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$PHS1   DE1\r\n$$$$PHS3   DE7\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIRFRRD* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIRFRRD* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*DIRFRRD* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1\r\n  1    CELAS2\r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C\r\n  1    CORD1R\r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID\r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3\r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD\r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1\r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL\r\n  2    CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 26    RANDOM$\r\n 27    AXYOUT$\r\n 28    ASETOUT\r\n 29    AUTOSPC\r\n 52    BDYLIST  FLSYM\r\n 55    RANDPS   RANDT1   RANDT2\r\n 54    TABRND1  TABRND2  TABRND3  TABRND4\r\n 56    G\r\n 57    EPOINT   SEQEP    TF\r\n 58    CVISC\r\n 59    PDAMP    PVISC\r\n 60    B2PP$    DMIAX    DMIG     K2PP$    M2PP$    TF$\r\n 61    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2\r\n 61    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4\r\n 62    DECOMOPT DLOAD$   FREQ$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    BNN      K4NN     KNN      MNN\r\n105    BFF      K4FF     KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    DLT      EQDYN    FRL      GPLD     PSDL     SILD     TFPOOL\r\n107    USETD\r\n108    CASEXX\r\n109    B2PP     K2DPP    M2DPP\r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD\r\n110    MDD\r\n111    PDF      PPF      PSF      UDVF\r\n112    OUDVC1\r\n113    OUDVC2\r\n114    QPC      UPVC\r\n115    OEFC1    PUPVC1   OESC1    OPPC1    OQPC1    OUPVC1\r\n116    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2\r\n117    AUTO     PSDF\r\n118    BDPOOL\r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n121    MAA\r\n122    BAA\r\n123    K4AA\r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG\r\n126    K4GG\r\n127    PLOTX1\r\n128    OGPWG\r\n129    K2PP\r\n130    M2PP\r\n131    XYPLTFA\r\n132    XYPLTF\r\n133    XYPLTR\r\n134    PLOTX2\r\n135    BGPDP    SIP\r\n136    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP19",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 19 - MODAL FORCED VIBRATION ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nFILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 10, 14, 15, 19, 21, 24, 29\r\n****FILE 101,113,115,116,128\r\n$$$$PHS1   I1\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$PHS2   D8\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 135\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n         GPSETS,ELSETS/NOGPDT $\r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$\r\nCOND     LBL5,NOGPDT $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n$$$$PHS2   DB8\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$PHS2   DE8\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,\r\n         KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n$$$$PHS2   DB8\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$PHS2   DE8\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $\r\n****CARD   1-  3,  8\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/\r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/\r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/\r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     LBLMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLBGG,NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLK4GG,NOK4GG $\r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n$$$$PHS2   DB8\r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nCOND     ERROR4,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$PHS2   DE8\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n$$$$PHS1   I1\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $\r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBLM,NOMGG $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nCOND     LBLB,NOBGG $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nCOND     LBL5,NOK4GG $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$PHS3   I1\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,\r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N,\r\n         NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $\r\n****CARD   1,  9- 11, 55, 57, 61\r\n****FILE 107\r\n$$$$PHS1   DB1\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n$$$$PHS3   DB7\r\n$$$$\r\nPARAM    //*MPY*/REPEATF/-1/1 $\r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nCOND     LBL13,NOFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/\r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18- 23, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,\r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $\r\n****CARD  19- 23, 27\r\n****FILE 109,110,115-117,129-133\r\n$$$$\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,\r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nCOND     LBLFL2,NOFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nTRNSP    ABFL/ABFLT $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$PHS2   DB8\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$PHS2   DE8\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/\r\n         MAA,MDD/MDEMA/BAA,BDD/BDEBA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nCOND     LBL18,NOGPDT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,\r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/\r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/\r\n         KDEK2/-1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$PHS2   D8\r\n$$$$\r\nCOND     ERROR1,NOFRL $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     ERROR2,NODLT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS1   DE1\r\n$$$$\r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n         *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/\r\n         NONCUP/FRQSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$PHS1   DB1\r\n$$$$\r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/\r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $\r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL15A,NOSORT2 $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nSDR3     OUDVC1,,,,,/OUDVC2,,,,, $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC2,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nXYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nXYPLOT   XYPLTFA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nJUMP     LBL15 $\r\n****CARD  21, 27\r\n****FILE 131\r\n$$$$\r\nLABEL    LBL15A $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC1,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL20,NOP $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 114-117,132,133\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEQUIV    UDVF,UPVC/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS2   DB8\r\n$$$$\r\nCOND     LBL19,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   DE7\r\n$$$$\r\nSDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    LBL19 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   I7\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB,\r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/\r\n         S,N,NOSORT2 $\r\n****CARD  19, 20\r\n****FILE 115\r\n$$$$\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,\r\n         OEFC2, $\r\n****CARD  19, 20\r\n****FILE 116\r\n$$$$\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/\r\n         S,N,PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nXYPLOT   XYPLTF// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nCOND     LBL16,NOPSDL $\r\n****SBST   7\r\n****CARD  20, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $\r\n****SBST   7\r\n****CARD  26, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     LBL16,NORD $\r\n****SBST   7\r\n****CARD  20, 26, 54, 55\r\n****FILE 133\r\n$$$$\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nXYPLOT   XYPLTR// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nJUMP     LBL16 $\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 132\r\n$$$$\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 54, 55\r\n****FILE 114-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOPSDL $\r\n****CARD  20, 54, 55\r\n****FILE 132\r\n$$$$\r\nCOND     LBL20,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,\r\n         GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$PHS2   DE8\r\n$$$$\r\nLABEL    LBL20 $\r\n****SBST   7\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 134\r\n$$$$\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$PHS3   DB7\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIRFRRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$PHS1   DE1\r\n$$$$PHS3   DE7\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIRFRRD* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIRFRRD* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*DIRFRRD* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1\r\n  1    CELAS2\r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C\r\n  1    CORD1R\r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID\r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3\r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD\r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1\r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL\r\n  2    CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 26    RANDOM$\r\n 27    AXYOUT$\r\n 28    ASETOUT\r\n 29    AUTOSPC\r\n 52    BDYLIST  FLSYM\r\n 55    RANDPS   RANDT1   RANDT2\r\n 54    TABRND1  TABRND2  TABRND3  TABRND4\r\n 56    G\r\n 57    EPOINT   SEQEP    TF\r\n 58    CVISC\r\n 59    PDAMP    PVISC\r\n 60    B2PP$    DMIAX    DMIG     K2PP$    M2PP$    TF$\r\n 61    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2\r\n 61    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4\r\n 62    DECOMOPT DLOAD$   FREQ$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    BNN      K4NN     KNN      MNN\r\n105    BFF      K4FF     KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    DLT      EQDYN    FRL      GPLD     PSDL     SILD     TFPOOL\r\n107    USETD\r\n108    CASEXX\r\n109    B2PP     K2DPP    M2DPP\r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD\r\n110    MDD\r\n111    PDF      PPF      PSF      UDVF\r\n112    OUDVC1\r\n113    OUDVC2\r\n114    QPC      UPVC\r\n115    OEFC1    PUPVC1   OESC1    OPPC1    OQPC1    OUPVC1\r\n116    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2\r\n117    AUTO     PSDF\r\n118    BDPOOL\r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n121    MAA\r\n122    BAA\r\n123    K4AA\r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG\r\n126    K4GG\r\n127    PLOTX1\r\n128    OGPWG\r\n129    K2PP\r\n130    M2PP\r\n131    XYPLTFA\r\n132    XYPLTF\r\n133    XYPLTR\r\n134    PLOTX2\r\n135    BGPDP    SIP\r\n136    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP2",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1995 $\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nFILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $\r\n****SBST   1,  3\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5- 10, 14, 15, 19, 21- 24, 61\r\n****FILE 101,116,120,121\r\n****PHS1   I1\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D5\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 124\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 124\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 123\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 117,119\r\n****PHS2   DB5\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 117\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117,119\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117,119\r\n****PHS2   DE5\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 24, 59- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****PHS2   D5\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n****PHS2   D5\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2   DB5\r\n$$$$\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE5\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 100\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20- 23, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21- 23\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nCOND     ERROR4,REACT $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n****PHS1   D1\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/\r\n         SINGLE $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105,106,112,114\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF2 $\r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $\r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $\r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $\r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****CARD   1-  6,  8- 12, 22, 23\r\n****FILE 107\r\n****PHS1   DB1\r\n****PHS3   DB1\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 22, 23\r\n****FILE 110\r\n****PHS1   DE1\r\n****PHS3   DE1\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PG,,,,/LUSET/NSKIP/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 112\r\n****PHS1   DB1\r\n****PHS3   DB7\r\n$$$$\r\nSSG4     PL,QR,PO,MR,MLR,DM,MLL,MOO,MOA,GO,USET/PLI,POI/OMIT $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 113\r\n$$$$\r\nSSG3     LLL,KLL,PLI,LOO,KOO,POI/ULV,UOOV,RULV,RUOV/OMIT/V,Y,\r\n         IRES=-1/NSKIP/S,N,EPSI $\r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 114\r\n****RFMT 187\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n****PHS3   DE7\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/\r\n         *STATICS* $\r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 115\r\n****RFMT 187,189-204,207-209\r\n****PHS3   I7\r\n$$$$\r\nCOND     LBL8,REPEAT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nREPT     LBL11,360 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nJUMP     ERROR2 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/TEST/REPEAT $\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nCOND     ERROR5,TEST $\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    LBL8 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n****PHS2   DB5\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $\r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *STATICS*////COMPS $\r\n****CARD  18, 19\r\n****FILE 116\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 116\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1- 24, 59- 62\r\n****FILE 122\r\n****RFMT 187,189-204,207-209\r\n****PHS1   DE1\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*INERTIA* $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n****PHS2   DE5\r\n$$$$\r\nLABEL    ERROR2 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*INERTIA* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*INERTIA* $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*INERTIA* $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*INERTIA* $\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*INERTIA* $\r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 24, 59- 62\r\n****FILE 122\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    OPT      GRDEQ\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      KSS      MFF\r\n106    GO       KAA      KOO      LOO      MAA      MOA      MOO\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    PG\r\n112    PL       PO       PS       QR\r\n113    PLI      POI\r\n114    RULV     RUOV     ULV      UOOV\r\n115    PGG      QG       UGV\r\n116    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n116    OEF1L    OES1L    OESF1    OESF1L\r\n117    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n118    KDICT    MDICT    MELM\r\n119    PLOTX1\r\n120    OGPWG\r\n121    OQM1\r\n122    PLOTX2\r\n123    BGPDP    SIP\r\n124    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP3",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62\r\n****FILE 112,122,124,130,131\r\n****PHS1  I1\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n****PHS2  D5\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 123\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 123\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 115\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116,119\r\n****PHS2  DB5\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPRTMSG   PLOTX1//$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n****PHS2  DE5\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR4,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 14, 16, 24\r\n****FILE  97\r\n****PHS2  D5\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/\r\n         C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/\r\n         C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     ERROR1,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2 D5\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 118\r\n$$$$\r\nCOND     LGPWG,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2  DB5\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2  DE5\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 21\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****PHS1  I1\r\n$$$$\r\nPURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $\r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,113\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3  $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n****PHS1  DB1\r\n****PHS3  DB1\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$\r\nRBMG2    KLL/LLL $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n****PHS1  DE1\r\n****PHS3  DE1\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/\r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****PHS1  DB1\r\n****PHS3  DB7\r\n$$$$\r\nCOND     ERROR2,NOEED $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 112\r\n$$$$\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/\r\n         S,N,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nOFP      OEIGS,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$\r\nCOND     FINIS,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112-114,121,122\r\n$$$$\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n****PHS3  DE7\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 113\r\n****RFMT 187,188,190-204,207-209\r\n****PHS3  I7\r\n$$$$\r\nCOND     NOMPCF,GRDEQ $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2  DB5\r\n$$$$\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/\r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    NOMPCF $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,,\r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/\r\n         *REIG*////COMPS $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      OPHIG,OQG1,OEF1,OES1,OEF1L,OES1L//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 114\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$                                                   $ <== NEW, FROM A\r\nGPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      ONRGY1,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$                                                   $ END NEW\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 122\r\n****RFMT 187,188,190-204,207-209\r\n****PHS1  DE1\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*MODES* $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2  DE5\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*MODES* $\r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*MODES* $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*MODES* $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121,122\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121,122\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     AXSLOT   CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1\r\n  1    CMASS2   CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C\r\n  1    CORD2R\r\n  1    CORD2S   FREEPT   GRDSET   GRID     GRIDB    GRIDF    GRIDS\r\n  1    POINTAX\r\n  1    PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SLBDY    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8\r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2   CIHEX1\r\n  2    CIHEX2\r\n  2    CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1  CQDMEM2  CQDPLT\r\n  2    CQUAD1   CQUAD2   CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    AOUT$\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    OPT      GRDEQ\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 61    EIGR\r\n 62    METHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    YS       RG       USET     ASET     OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN      MNN\r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    KLL      KLR      KRR      MLL      MLR      MRR\r\n108    LLL\r\n109    DM\r\n110    MR\r\n111    EED      EQDYN    GPLD     SILD     USETD\r\n112    LAMA     MI       OEIGS    PHIA\r\n113    PHIG     QG\r\n114    OEF1     OES1     OPHIG    OQG1     PPHIG\r\n114    OEF1L    OES1L    OESF1    ONRGY1   OESF1L\r\n115    BGPDP    SIP\r\n116    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n117    MAA\r\n118    KDICT    KELM     MDICT    MELM\r\n119    PLOTX1\r\n120    OGPWG\r\n121    OQM1\r\n122    PLOTX2\r\n123    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP4",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21, 24, 61\r\n****FILE 101,112,121,126\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 141\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 141\r\n$$$$\r\nCOND     ERROR3,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 140\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $\r\n****CARD   1,  2, 15, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 123\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  6,  8, 13, 15, 24, 61\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  6,  8, 14, 24, 61\r\n****FILE  98, 99\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  4,  6,  8\r\n****CARD 123\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  5,  8, 14, 24, 61\r\n****CARD 123\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nCOND     ERROR4,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL1 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $\r\n****CARD   1,  9- 11\r\n****FILE 124\r\n$$$$\r\nGP4      CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR5,NOL $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nCOND     LBL4D,REACT $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nJUMP     ERROR2 $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG,\r\n         YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $\r\n****CARD   1,  9- 12, 59\r\n****FILE 103,105,106,109-111,115,117\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nRBMG2    KAA/LLL $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/\r\n         PG,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 13, 59- 62\r\n****FILE 108\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$\r\nCOND     LBL10,NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         1/S,N,EPSI $\r\n****CARD   1-  6,  8- 11, 13, 59- 62\r\n****FILE 110\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nSDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $\r\n****CARD   1-  6,  8- 11, 13, 59- 62\r\n****FILE 111\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *DS0*////COMPS $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 112\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/\r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 128\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/\r\n         DSCOSET $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 113\r\n$$$$\r\nPARAM    //*ADD*/SHIFT/-1/0 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAMR   //*ADD*/DSEPSI/0.0/0.0 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAML   YS//*NULL*////NOYS $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nLABEL    OUTLPTOP $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nEQUIV    PG,PG1/NOYS $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nPARAM    //*KLOCK*/TO $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nCOND     LBL2D,MPCF1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$\r\nCOND     LBL3D,SINGLE $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$\r\nCOND     LBL5D,OMIT $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$\r\nADD      KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$\r\nADD      KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$\r\nADD      KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$\r\nCOND     PGOK,NOYS $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129-133\r\n$$$$\r\nMPYAD    KBSS,YS,/PSS/0/1/1/1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129\r\n$$$$\r\nMPYAD    KBFS,YS,/PFS/0/1/1/1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 130\r\n$$$$\r\nUMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 131\r\n$$$$\r\nEQUIV    PN,PGX/MPCF1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$\r\nCOND     LBL6D,MPCF1 $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$\r\nUMERGE   USET,PN,/PGX/*G*/*N*/*M* $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$\r\nLABEL    LBL6D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$\r\nADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 133\r\n$$$$\r\nEQUIV    PGG,PG1/ALWAYS $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    PGOK $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129-133\r\n$$$$\r\nADD      PG1,/PG0/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 134\r\n$$$$\r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$\r\nPRTPARM  //0/*DET* $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$\r\nPRTPARM  //0/*POWER* $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$\r\nLABEL    INLPTOP $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 118\r\n$$$$\r\nPARAM    //*KLOCK*/TI $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nSSG2     USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 117\r\n$$$$\r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,\r\n         EPSI $\r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n****FILE 119\r\n$$$$\r\nCOND     LBL9D,IRES $\r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $\r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$\r\nSDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 120\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 135\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/\r\n         DSCOSET $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 136\r\n$$$$\r\nMPYAD    DKDGG,UBGV,PG0/PGI1/0/1/1/0 $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 137\r\n$$$$\r\nDSCHK    PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/\r\n         TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $\r\n****CARD   1-  6,  8- 11, 22, 23, 25, 59- 62\r\n$$$$\r\nCOND     DONE,DONE $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nCOND     SHIFT,SHIFT $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nEQUIV    PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 111,137\r\n$$$$\r\nREPT     INLPTOP,1000 $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nTABPT    PGI1,PG1,PG,,// $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nLABEL    SHIFT $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 138\r\n$$$$\r\nEQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 111,113\r\n$$$$\r\nEQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 120,138\r\n$$$$\r\nREPT     OUTLPTOP,1000 $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nTABPT    KDGG1,KDGG,UGV,,// $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nLABEL    DONE $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,,\r\n         PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/\r\n         *DS1*////COMPS $\r\n****CARD  18, 19\r\n****FILE 121\r\n$$$$\r\nOFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nCOND     P3,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,\r\n         OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,\r\n         PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$\r\nLABEL    P3 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE 139\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIFFSTIF* $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIFFSTIF* $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIFFSTIF* $\r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*DIFFSTIF* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*DIFFSTIF* $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE 139\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    EPSIO    NT       BETAD\r\n 59    DEFORM   DEFORM$  LOAD$    RFORCE$  SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN\r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO\r\n107    LLL\r\n108    PG\r\n109    PL       PO       PS\r\n110    RULV     RUOV     ULV      UOOV\r\n111    PG1      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n112    OEF1L    OES1L    OESF1    OESF1L\r\n113    KDGG\r\n114    KDNN\r\n115    KDFF     KDFS     KDSS\r\n116    KDAA\r\n117    KBLL     YBS      KBFS     KBSS     PBL      PBS      PBO\r\n118    LBLL\r\n119    UBLV     RUBLV\r\n120    QBG      UBGV\r\n121    OEFB1    OESB1    OQBG1    OUBGV1   PUBGV1\r\n121    OEFB1L   OESB1L\r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n123    KDICT    KELM     MDICT    MELM\r\n124    CASEXX\r\n125    PLOTX1\r\n126    OGPWG\r\n127    PLOTX2\r\n128    X1       X2       X3       ECPT     GPCT\r\n129    PSS\r\n130    PFS\r\n131    PN\r\n132    PGX\r\n133    PGG\r\n134    PGO\r\n135    DUGV\r\n136    DKDGG\r\n137    PGI1\r\n138    KDGG1\r\n139    PLOTX3\r\n140    BGPDP    SIP\r\n141    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP5",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 05 - BUCKLING ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 11, 14, 15, 19, 21, 24, 57- 62\r\n****FILE 101,112,118,120,125\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 130\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 130\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 129\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,124\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,124\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,124\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $\r\n****CARD   1,  2, 13, 57, 60\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $\r\n****CARD   1,  2, 15, 57\r\n****FILE 123\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/\r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/\r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 15, 24, 57\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 57\r\n****FILE  98, 99\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$\r\nCOND     ERROR5,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 125\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR6,NOL $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nCOND     LBL4D,REACT $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nJUMP     ERROR2 $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,KDFS/SINGLE/\r\n         QG/NOSR $\r\n****CARD   1,  9- 12, 59\r\n****FILE 103,105,106,109-111,115\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nRBMG2    KAA/LLL $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/\r\n         PG,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 13, 57- 60\r\n****FILE 108\r\n$$$$\r\nEQUIV    PG,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$\r\nCOND     LBL10,NOSET $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         1/S,N,EPSI $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****FILE 110\r\n****RFMT 188\r\n$$$$\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nLABEL    LBL9 $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/\r\n         *BKL0* $\r\n****CARD   1-  6,  8- 11, 13, 57- 60\r\n****FILE 111\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *BKL0*////COMPS $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 112\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/\r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 127\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/\r\n         DSCOSET $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 113\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF1 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nCOND     LBL2D,MPCF1 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nCOND     LBL3D,SINGLE $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,,,, $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nCOND     LBL5D,OMIT $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nADD      KDAA,/KDAAM/(-1.0,0.0)/(0.0,0.0) $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 121\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/\r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $\r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n$$$$\r\nCOND     ERROR3,NOEED $\r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 118\r\n$$$$\r\nREAD     KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,,OEIGS/*BUCKLING*/\r\n         S,N,NEIGV/2 $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n$$$$\r\nOFP      OEIGS,LAMA,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n$$$$\r\nCOND     ERROR4,NEIGV $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 119\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/1/*BKL1* $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 119\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,,\r\n         PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/\r\n         *BKL1*////COMPS $\r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$\r\nOFP      OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OBEF1L,OBES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nCOND     P3,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,\r\n         OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nPRTMSG   PLOTX3// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nLABEL    P3 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE 128\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*BUCKLING* $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*BUCKLING* $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*BUCKLING* $\r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*BUCKLING* $\r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-5/*BUCKLING* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRTPARM  //-6/*BUCKLING* $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE 128\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 57    GRAV     RFORCE\r\n 58    TEMPLD$\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    EIGB\r\n 62    METHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    KNN\r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO\r\n107    LLL\r\n108    PG\r\n109    PL       PO       PS\r\n110    RULV     RUOV     ULV      UOOV\r\n111    PGG      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n112    OEF1L    OES1L    OESF1    OESF1L\r\n113    KDGG\r\n114    KDNN\r\n115    KDFF     KDFS     KDSS\r\n116    KDAA\r\n117    EED      EQDYN    GPLD     SILD     USETD\r\n118    LAMA     OEIGS    PHIA\r\n119    BQG      PHIG\r\n120    OBEF1    OBES1    OBQG1    OPHIG    PPHIG\r\n120    OBEF1L   OBES1L\r\n121    KDAAM\r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n123    KDICT    KELM     MDICT    MELM\r\n124    PLOTX1\r\n125    OGPWG\r\n126    PLOTX2\r\n127    X1       X2       X3       ECPT     GPCT\r\n128    PLOTX3\r\n129    BGPDP    SIP\r\n130    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP6",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nFILE     QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21- 24, 61\r\n****FILE 102,117,120,124\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 127\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 127\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 126\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121,122\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,122\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,122\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $\r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $\r\n****CARD   1,  2, 15, 61\r\n****FILE 123\r\n****RFMT 187-191,193-198\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT,\r\n         MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPURGE    KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,123,124\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/\r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/\r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99\r\n$$$$\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$\r\nCOND     ERROR3,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  98, 99,123,124\r\n$$$$\r\nPLA1     CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N,\r\n         KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N,\r\n         PLFACT $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     ERROR1,ECPTNLPG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPURGE    ONLES,ESTNL1/NONLSTR $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPARAM    //*ADD*/ALWAYS/-1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nSMA3     GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 104\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 102\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 102\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 102\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 59\r\n****FILE 102\r\n$$$$\r\nPURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,\r\n         KFS,KSS/SINGLE/QG/NOSR $\r\n****CARD   1,  9- 12, 59\r\n****FILE 105,107-109,111,113-115\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/\r\n         LUSET/1/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 103\r\n$$$$\r\nEQUIV    PG1,PL/NOSET $\r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 103\r\n$$$$\r\nPARAM    //*ADD*/PLACOUNT/1/0 $\r\n****CARD  22, 23\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 105,106\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    LOOPBGN $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 105,106\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nCOND     LBL6,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nRBMG1    USET,KAA,/KLL,KLR,KRR,,, $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL6 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nDECOMP   KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/\r\n         S,N,SINGKLLX $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 110\r\n$$$$\r\nCOND     PLALBL4,SINGKLLX $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****FILE 110\r\n$$$$\r\nCOND     LBL7,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$\r\nLABEL    LBL7 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$\r\nADD      PG1,/PG/PLFACT $\r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 58- 62\r\n****FILE 112\r\n****RFMT 187,188,190,191\r\n$$$$\r\nCOND     LBL10,NOSET  $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$\r\nLABEL    LBL10  $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$\r\nSSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/\r\n         PLACOUNT/S,N,EPSI $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****FILE 114\r\n****RFMT 187,188,190,191\r\n$$$$\r\nCOND     LBL9,IRES   $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RULV//*L* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    LBL9  $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG,\r\n         DELTAQG/1/*STATICS* $\r\n****CARD   1-  6,  8- 13, 22, 23, 58- 62\r\n****FILE 115\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPLA2     DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 116\r\n$$$$\r\nEQUIV    ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 117\r\n$$$$\r\nCOND     PLALBL2A,NONLSTR $\r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nPLA3     CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/\r\n         PLSETNO $\r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nOFP      ONLES,,,,,//S,N,CARDNO $\r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nLABEL    PLALBL2A $\r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nPARAM    //*SUB*/DIFF/NPLALIM/PLACOUNT $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118\r\n$$$$\r\nCOND     PLALBL5,DIFF $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118,119\r\n$$$$\r\nPLA4     CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/\r\n         S,N,PLSETNO/S,N,PLFACT $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118\r\n$$$$\r\nEQUIV    KGGNL,KGGSUM/KGGLPG $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\nCOND     PLALBL3,KGGLPG $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\nADD      KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\nLABEL    PLALBL3 $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\nEQUIV    ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 100,101\r\n$$$$\r\nREPT     LOOPBGN,360 $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n$$$$\r\nJUMP     ERROR2 $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n$$$$\r\nLABEL    PLALBL4 $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n$$$$\r\nPRTPARM  //-5/*PLA* $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n$$$$\r\nLABEL     PLALBL5 $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118,119\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,,\r\n         PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *PLA*////COMPS $\r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nSCAN     CASECC,OES1,OEF1,OES1L,OEF1L/OESF1,OESF1L/*RF* $\r\n****CARD 19\r\n****FILE 120\r\n$$$$\r\nOFP      OESF1,OESF1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE 125\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRTPARM  //-1/*PLA* $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRTPARM  //-2/*PLA* $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR3 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRTPARM  //-3/*PLA* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRTPARM  //-4/*PLA* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE 125\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1\r\n  1    CMASS2\r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R\r\n  1    CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1\r\n  2    CHEXA2\r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA\r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6\r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATS1    MATS2    MATT1    MATT2\r\n  8    MATT3    MAT8     MAT6\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TABLES1  TABLES2  TABLES3\r\n  8    TABLES4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT\r\n 21    AUTOSPC\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 58    PLCO$    PLFACT\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD\r\n 61    GRAV     RFORCE\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    ECPT     GPECT    EST      GEI      GPCT\r\n 97    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGGXL    ECPTNL   ESTL     ESTNL\r\n101    KGG      KGGL\r\n102    ASET     RG       USET     YS       OGPST\r\n103    PG1\r\n104    GPST\r\n105    GM\r\n106    KNN\r\n107    KFF      KFS      KSS\r\n108    GO       KAA      KOO      LOO\r\n109    KLL      KLR      KRR\r\n110    LLL\r\n111    DM\r\n112    PG\r\n113    PL       PO       PS       QR\r\n114    RULV     RUOV     ULV      UOOV\r\n115    DELTAPG  DELTAQG  DELTAUGV\r\n116    UGV1     PGV1     QG1\r\n117    ONLES    ESTNL1\r\n118    KGGNL    ECPTNL1\r\n119    KGGSUM\r\n120    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1\r\n120    OEF1L    OES1L    OESF1    OESF1L\r\n121    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n122    PLOTX1\r\n123    KELM     KDICT    MELM     MDICT\r\n124    OGPWG\r\n125    PLOTX2\r\n126    BGPDP    SIP\r\n127    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP7",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  6,  8- 11, 14, 19- 24, 52, 56- 62\r\n****FILE 101,111,112,114,128\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 132\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 132\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 131\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS,\r\n         ELSETS/NOGPDT $\r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,120-123\r\n$$$$\r\nCOND     LBL5,NOGPDT $\r\n****CARD   1-  6,  8- 11, 13- 18, 20, 24, 58, 59\r\n****FILE  95-106,120-128\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/\r\n         S,N,COMPS $\r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,\r\n         KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59\r\n****FILE  98, 99,104,105,121,122,124-126,128\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $\r\n****CARD   1-  3,  8\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N,\r\n         NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/\r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/\r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     LBLMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLBGG,NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/MINUS1 $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLK4GG,NOK4GG $\r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nCOND     ERROR3,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $\r\n****CARD   1-  3,  5, 13- 15, 24, 58, 59\r\n****FILE  98, 99,104,105,121,122,124-126,128\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 17, 20\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 20\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,113\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBLM,NOMGG $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nCOND     LBLB,NOBGG $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nCOND     LBL5,NOK4GG $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 11, 13- 18, 20, 23- 28, 30, 58, 59\r\n****FILE  95-106,120-128\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/\r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/\r\n         NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $\r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$\r\nCOND     ERROR1,NOEED $\r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56, 58- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n$$$$\r\nPARAM    //*MPY*/REPEATE/1/-1 $\r\n****CARD   1-  6,  8- 14, 16, 19, 21- 23, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nCOND     LBL13,NOFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/\r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18, 19, 21- 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPURGE    PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC,\r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $\r\n****CARD  19, 21- 23\r\n****FILE 109-114,129,130\r\n$$$$\r\nCASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 16, 19, 21- 23, 25, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,\r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nCOND     LBLFL2,NOFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nTRNSP    ABFL/ABFLT $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/\r\n          MAA,MDD/MDEMA/BAA,BDD/BDEBA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nCOND     LBL18,NOGPDT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,\r\n         GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/\r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/\r\n         KDEK2/-1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nCEAD     KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nOFP      OCEIGS,CLAMA,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nCOND     LBL16,EIGVS $\r\n****CARD   1-  6,  8- 11, 14, 19, 21- 24, 52, 56- 62\r\n****FILE 112-114\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/\r\n         0/S,N,NOD/S,N,NOP/0 $\r\n****CARD  19, 21\r\n****FILE 112\r\n$$$$\r\nCOND     LBL15,NOD $\r\n****CARD  21\r\n****FILE 112\r\n$$$$\r\nOFP      OPHID,,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 112\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21\r\n****FILE 112\r\n$$$$\r\nCOND     LBL16,NOP $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nEQUIV    PHID,CPHIP/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nCOND     LBL17,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nSDR1     USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/\r\n         ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 11, 14, 19, 21- 24, 52, 56- 62\r\n****FILE 112-114\r\n$$$$\r\nCOND     FINIS,REPEATE $\r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIRCEAD* $\r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 24, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIRCEAD* $\r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIRCEAD* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 16, 18- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1\r\n  1    CELAS2\r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C\r\n  1    CORD1R\r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID\r\n  1    GRIDB\r\n  1    POINTAX  PREPT    RINGAX   RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3\r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD\r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1\r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL\r\n  2    CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    ASETOUT\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    AUTOSPC\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 52    BDYLIST  FLSYM\r\n 56    G\r\n 57    EPOINT   SEQEP    TF\r\n 58    CVISC\r\n 59    PDAMP    PVISC\r\n 60    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$\r\n 61    EIGC     EIGP\r\n 62    CMETHOD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    BNN      K4NN     KNN      MNN\r\n105    BFF      K4FF     KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    EED      EQDYN    GPLD     SILD     TFPOOL   USETD\r\n108    CASEXX\r\n109    B2PP     K2DPP    M2DPP\r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD\r\n110    MDD\r\n111    CLAMA    OCEIGS   PHID\r\n112    OPHID\r\n113    CPHIP    QPC\r\n114    OCPHIP   OEFC1    OESC1    OQPC1\r\n118    BDPOOL\r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n121    MAA\r\n122    BAA\r\n123    K4AA\r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG\r\n126    K4GG\r\n127    PLOTX1\r\n128    OGPWG\r\n129    K2PP\r\n130    M2PP\r\n131    BGPDP    SIP\r\n132    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/DISP8",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1995 $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nFILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $   \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 10, 14, 15, 19, 21, 24, 29\r\n****FILE 101,113,115,116,128\r\n****PHS1   I1   \r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D8   \r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 135\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n         GPSETS,ELSETS/NOGPDT $ \r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$\r\nCOND     LBL5,NOGPDT $  \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n****PHS2   DB8  \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPRTMSG   PLOTX1//$  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n****PHS2   DE8  \r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,   \r\n         KGGX/NOSIMP $  \r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n****PHS2   DB8  \r\n$$$$\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n****PHS2   DE8  \r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $ \r\n****CARD   1-  3,  8\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ \r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/   \r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/   \r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     LBLMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLBGG,NOBGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $   \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLK4GG,NOK4GG $   \r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n****PHS2   DB8  \r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nCOND     ERROR4,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE8  \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $  \r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n****PHS1   I1   \r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $ \r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $   \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBLM,NOMGG $   \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nCOND     LBLB,NOBGG $   \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $  \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $ \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nCOND     LBL5,NOK4GG $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n****PHS3   I1   \r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,  \r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, \r\n         NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 11, 55, 57, 61\r\n****FILE 107\r\n****PHS1   DB1  \r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n****PHS3   DB7  \r\n$$$$\r\nPARAM    //*MPY*/REPEATF/-1/1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $ \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nCOND     LBL13,NOFL $   \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/   \r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18- 23, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,  \r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $  \r\n****CARD  19- 23, 27\r\n****FILE 109,110,115-117,129-133\r\n$$$$\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,  \r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nCOND     LBLFL2,NOFL $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nTRNSP    ABFL/ABFLT $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n****PHS2   DB8  \r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n****PHS2   DE8  \r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ \r\n         MAA,MDD/MDEMA/BAA,BDD/BDEBA $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nCOND     LBL18,NOGPDT $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/   \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/   \r\n         KDEK2/-1 $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****PHS2   D8   \r\n$$$$\r\nCOND     ERROR1,NOFRL $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     ERROR2,NODLT $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n****PHS1   DE1  \r\n$$$$\r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n         *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/  \r\n         NONCUP/FRQSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****PHS1   DB1  \r\n$$$$\r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ \r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $   \r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL15A,NOSORT2 $   \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nSDR3     OUDVC1,,,,,/OUDVC2,,,,, $  \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC2,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nXYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nXYPLOT   XYPLTFA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$\r\nJUMP     LBL15 $\r\n****CARD  21, 27\r\n****FILE 131\r\n$$$$\r\nLABEL    LBL15A $   \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDVC1,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$\r\nCOND     LBL20,NOP $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 114-117,132,133\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEQUIV    UDVF,UPVC/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS2   DB8  \r\n$$$$\r\nCOND     LBL19,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   DE7  \r\n$$$$\r\nSDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    LBL19 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   I7   \r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, \r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/   \r\n         S,N,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 115\r\n$$$$\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,  \r\n         OEFC2, $   \r\n****CARD  19, 20\r\n****FILE 116\r\n$$$$\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nXYPLOT   XYPLTF// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$\r\nCOND     LBL16,NOPSDL $ \r\n****SBST   7\r\n****CARD  20, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $ \r\n****SBST   7\r\n****CARD  26, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nCOND     LBL16,NORD $   \r\n****SBST   7\r\n****CARD  20, 26, 54, 55\r\n****FILE 133\r\n$$$$\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nXYPLOT   XYPLTR// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nJUMP     LBL16 $\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOSORT2 $ \r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 132\r\n$$$$\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 54, 55\r\n****FILE 114-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOPSDL $  \r\n****CARD  20, 54, 55\r\n****FILE 132\r\n$$$$\r\nCOND     LBL20,JUMPPLOT $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,  \r\n         GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/   \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n****PHS2   DE8  \r\n$$$$\r\nLABEL    LBL20 $\r\n****SBST   7\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 134\r\n$$$$\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   DB7  \r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIRFRRD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n****PHS1   DE1  \r\n****PHS3   DE7  \r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIRFRRD* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIRFRRD* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRTPARM  //-4/*DIRFRRD* $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1 \r\n  1    CELAS2   \r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C \r\n  1    CORD1R   \r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID   \r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3  \r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8 \r\n  2    CONROD   \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD   \r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1 \r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL \r\n  2    CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    RANDOM$  \r\n 27    AXYOUT$  \r\n 28    ASETOUT  \r\n 29    AUTOSPC  \r\n 52    BDYLIST  FLSYM   \r\n 55    RANDPS   RANDT1   RANDT2 \r\n 54    TABRND1  TABRND2  TABRND3  TABRND4   \r\n 56    G\r\n 57    EPOINT   SEQEP    TF \r\n 58    CVISC\r\n 59    PDAMP    PVISC   \r\n 60    B2PP$    DMIAX    DMIG     K2PP$    M2PP$    TF$ \r\n 61    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2  \r\n 61    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4 \r\n 62    DECOMOPT DLOAD$   FREQ$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    BNN      K4NN     KNN      MNN   \r\n105    BFF      K4FF     KFF      KFS      MFF  \r\n106    GO       KOO      LOO      KAA   \r\n107    DLT      EQDYN    FRL      GPLD     PSDL     SILD     TFPOOL \r\n107    USETD\r\n108    CASEXX   \r\n109    B2PP     K2DPP    M2DPP  \r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD   \r\n110    MDD  \r\n111    PDF      PPF      PSF      UDVF  \r\n112    OUDVC1   \r\n113    OUDVC2   \r\n114    QPC      UPVC\r\n115    OEFC1    PUPVC1   OESC1    OPPC1    OQPC1    OUPVC1  \r\n116    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2   \r\n117    AUTO     PSDF\r\n118    BDPOOL   \r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n121    MAA  \r\n122    BAA  \r\n123    K4AA \r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG  \r\n126    K4GG \r\n127    PLOTX1   \r\n128    OGPWG\r\n129    K2PP \r\n130    M2PP \r\n131    XYPLTFA  \r\n132    XYPLTF   \r\n133    XYPLTR   \r\n134    PLOTX2   \r\n135    BGPDP    SIP \r\n136    MPT\r\n$*  \r\n"
  },
  {
    "path": "rf/DISP9",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1995 $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nFILE     UDVT=APPEND/TOL=APPEND/RLODDISP=APPEND $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21, 24, 28\r\n****FILE 101,113,116,129\r\n****PHS1  I1\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/\r\n         S,N,NOGPDT/ALWAYS=-1 $\r\n****CARD   1\r\n****FILE  94\r\n****PHS2  D8\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 136\r\n$$$$\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $\r\n****CARD   1\r\n****FILE 134\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR,\r\n         GPSETS,ELSETS/NOGPDT $\r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$\r\nCOND     LBL5,NOGPDT $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61\r\n****FILE  95-106,120-126,128,129\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,128\r\n****PHS2  DB8\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,128\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nCOND     P1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nLABEL    P1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,128\r\n****PHS2  DE8\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 61\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/\r\n         S,N,COMPS\r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,\r\n         K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 58, 59\r\n****FILE  98, 99,104,105,121,122,125,126\r\n****PHS2  DB8\r\n$$$$\r\nCOND     LBL1,NOSIMP $\r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,129\r\n****PHS2  DE8\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $\r\n****CARD   1-  3,  8\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/\r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/\r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/\r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $\r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     LBLMGG,NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLBGG,NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBLK4GG,NOK4GG $\r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n****PHS2  DB8\r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$\r\nCOND     LBL1,GRDPNT $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$\r\nCOND     ERROR3,NOMGG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$\r\nOFP      OGPWG,,,,,//S,N,CARDNO $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$\r\nLABEL    LBL1  $\r\n****CARD   1-  3,  5, 14, 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,129\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     LBL11,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2  DE8\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET,\r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 26, 28\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 10, 28\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n****PHS1  I1\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nCOND     LBL2,MPCF1 $\r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$\r\nMCE1     USET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nCOND     LBL3,SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $\r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $\r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nCOND     LBLM,NOMGG $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nCOND     LBLB,NOBGG $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $\r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nCOND     LBL5,NOK4GG $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $\r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61\r\n****FILE  95-106,120-126,128,129\r\n****PHS3  I1\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,\r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/\r\n         NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $\r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n****PHS1  DB1\r\n$$$$\r\nCOND     ERROR1,NOTRL $\r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$\r\nPURGE    PNLD/NONLFT$\r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n****PHS3  DB7\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nCOND     LBLFL3,NOFL $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/\r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBLFL3 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,\r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$\r\nCOND     LBLFL2,NOFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$\r\nTRNSP    ABFL/ABFLT $\r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $\r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$\r\nLABEL    LBLFL2 $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n****PHS2   DB8\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n****PHS2  DE8\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/\r\n         KAA,KDD/KDEKA $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n$$$$\r\nCOND     LBL16,NOGPDT $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,\r\n         GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/\r\n         C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/\r\n         KDEK2/-1 $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$\r\nEQUIV    M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****PHS2  D8\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  14, 22- 24\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $\r\n****CARD   1-  6,  8- 14, 16, 19- 24, 27, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 25, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPURGE    PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,\r\n         OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $\r\n****CARD  14, 19- 24, 27\r\n****FILE 112,113,115,116,127,132,133,135\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19- 25, 27, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NCOL/0/1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 111\r\n$$$$\r\nTRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,\r\n         MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$\r\nEQUIV    PPT,PDT/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****PHS1  DE1\r\n$$$$\r\nTRD      CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD,RLODDISP/*DIRECT*/\r\n         NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $\r\n****CARD   1-  6,  8- 11, 14, 17, 22- 24, 52, 56- 62\r\n****FILE 127\r\n****PHS1   DB1\r\n$$$$\r\nVDR      CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/\r\n         *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $\r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,135\r\n$$$$\r\nSDR3     OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $\r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$\r\nOFP      OUDV2,OPNL2,,,,//S,N,CARDNO $\r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nXYTRAN   XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/\r\n         S,N,CARDNO $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nXYPLOT   XYPLTTA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,135\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nCOND     LBL18,PJUMP $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 52, 56- 62\r\n****FILE 114-116,132,133\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nEQUIV    UDVT,UPV/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS2   DB8\r\n$$$$\r\nCOND     LBL17,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  DE7\r\n$$$$\r\nSDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  I7\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,\r\n         PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $\r\n****CARD  18- 20\r\n****FILE 115\r\n$$$$\r\nSDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/\r\n         OPP2,OQP2,OUPV2,OES2,OEF2, $\r\n****CARD  18- 20\r\n****FILE 116\r\n$$$$\r\nOFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nSCAN     CASECC,OES2,OEF2,,/OESF2,/*RF* $\r\n****CARD 19\r\n****FILE 116\r\n$$$$\r\nOFP      OESF2,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nCOND     P2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1,\r\n         ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$\r\nLABEL    P2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$\r\nXYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/\r\n         S,N,PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nXYPLOT   XYPLTT// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n****PHS2   DE8\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 52, 56- 62\r\n****FILE 114-116,132,133\r\n$$$$\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  DB7\r\n$$$$\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPRTPARM  //-2/*DIRTRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n****PHS1  DE1\r\n****PHS3  DE7\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPRTPARM  //-1/*DIRTRD* $\r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPRTPARM  //-3/*DIRTRD* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    FINIS  $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\n$*CARD BITS\r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1\r\n  1    CELAS2\r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C\r\n  1    CORD1R\r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID\r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3\r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3\r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD\r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1\r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL\r\n  2    CTUBE    CTWIST   CWEDGE\r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5\r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM\r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR\r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM\r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    MAT6     TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR\r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD\r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    WTMASS\r\n 15    GRDPNT\r\n 16    PLOTEL\r\n 17    ISTART\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$\r\n 26    ASETOUT\r\n 27    AXYOUT$\r\n 28    AUTOSPC\r\n 52    BDYLIST  FLSYM\r\n 56    G        W3       W4\r\n 57    EPOINT   SEQEP    TF\r\n 58    CVISC\r\n 59    PDAMP    PVISC\r\n 60    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$\r\n 61    DAREA    DELAY    DLOAD    FORCE    FORCE1   FORCE2   GRAV\r\n 61    MOMENT\r\n 61    MOMENT1  MOMENT2  NOLIN1   NOLIN2   NOLIN3   NOLIN4   NOLIN6\r\n 61    PLOAD    PLOAD4\r\n 61    PLOAD1   PLOAD2   SLOAD    TABLED1  TABLED2  TABLED3  TABLED4\r\n 61    TIC      TLOAD1   TLOAD2   TSTEP\r\n 62    DLOAD$   IC$      NLFORCE  TSTEP$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL\r\n 95    ECT\r\n 96    GPTT     SLT\r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX\r\n 99    MGG\r\n100    KGG\r\n101    ASET     RG       USET     OGPST\r\n102    GPST\r\n103    GM\r\n104    BNN      K4NN     KNN      MNN\r\n105    BFF      K4FF     KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA\r\n107    DLT      EQDYN    GPLD     NLFT     SILD     TFPOOL   TRL\r\n107    USETD\r\n108    CASEXX\r\n109    B2PP     K2DPP    M2DPP\r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD\r\n110    MDD\r\n111    PD       PDT      PPT      PST      TOL\r\n112    OUDV1    OPNL1\r\n113    OUDV2    OPNL2\r\n114    QP       UPV\r\n115    OEF1     OES1     OPP1     OQP1     OUPV1    PUGV\r\n116    OEF2     OES2     OPP2     OQP2     OUPV2    OESF2\r\n118    BDPOOL\r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n121    MAA\r\n122    BAA\r\n123    K4AA\r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG\r\n126    K4GG\r\n127    PNLD     UDVT     RLODDISP\r\n128    PLOTX1\r\n129    OGPWG\r\n130    K2PP\r\n131    M2PP\r\n132    PLOTX2\r\n133    XYPLTT\r\n134    BGPDP    SIP\r\n135    XYPLTTA\r\n136    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/HEAT1",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $\r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nFILE     HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $\r\n****SBST   1,  3\r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  6,  8- 10, 15, 19, 22, 23\r\n****FILE 101,114\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 120\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 120\r\n$$$$\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $\r\n****CARD   1\r\n****FILE 119\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,117\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$\r\nCOND     HP1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115,117\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nCOND     HP1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/\r\n         HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nLABEL    HP1 $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115,117\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 60\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/\r\n         HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPURGE    HKGGX/NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$\r\nCOND     HLBL1,NOSIMP $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98,116\r\n$$$$\r\nPARAM    //*ADD*/HNOKGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nPURGE    HKGGX/HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     HLBL1,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98,116\r\n$$$$\r\nEQUIV    HKGGX,HKGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     HLBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    HLBL11A $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $\r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23\r\n****FILE 101\r\n$$$$\r\nLABEL    HLBL11 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET,\r\n         HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  4,  6,  8- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  4,  6,  8- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR3,NOL $\r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV,\r\n         HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105-107,109,111-113\r\n$$$$\r\nEQUIV    HKGG,HKNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nCOND     HLBL2,MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nMCE1     HUSET,RG/GM $\r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,,,/HKNN,,, $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL2 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    HKNN,HKFF/SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nCOND     HLBL3,SINGLE $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nSCE1     HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nEQUIV    HKFF,HKAA/OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nCOND     HLBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nSMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    HLBL5 $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nEQUIV    HKAA,HKLL/REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nCOND     HLBL6,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nRBMG1    HUSET,HKAA,/HKLL,HKLR,HKRR,,, $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    HLBL6 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nRBMG2    HKLL/HLLL $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$\r\nCOND     HLBL7,REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nRBMG3    HLLL,HKLR,HKRR/HDM $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    HLBL7 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nSSG1     HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/\r\n         HPG,,,,SCR/HLUSET/NSKIP $\r\n****CARD   1-  3,  6,  8, 22, 23, 59- 62\r\n****FILE 110\r\n$$$$\r\nEQUIV    HPG,HPL/NOSET $\r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nCOND     HLBL10,NOSET $\r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nSSG2     HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $\r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    HLBL10 $\r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nSSG3     HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/\r\n         V,Y,IRES=-1/NSKIP/S,N,EPSI $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$\r\nCOND     HLBL9,IRES $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nMATGPR   GPL,HUSET,HSIL,HRULV//*L* $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nMATGPR   GPL,HUSET,HSIL,HRUOV//*O* $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    HLBL9 $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nSDR1     HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG,\r\n         HQG/NSKIP/*HSTATICS* $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 113\r\n****RFMT 187-204,208,209\r\n$$$$\r\nCOND     HLBL8,HREPEAT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nREPT     HLBL11,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nJUMP     ERROR1 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*NOT*/HTEST/HREPEAT $\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nCOND     ERROR2,HTEST $\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    HLBL8 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV,\r\n         HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/\r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nCOND     HP2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1,\r\n         HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$\r\nLABEL    HP2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRTPARM  //-1/*HSTA* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRTPARM  //-2/*HSTA* $\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRTPARM  //-3/*HSTA* $\r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR4 $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRTPARM  //-4/*HSTA* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nEND      $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\n$*CARD BITS\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S\r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE\r\n  2    CHBDY\r\n  2    CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CQUAD4   CROD\r\n  2    CTETRA   CTRAPRG  CTRIA1   CTRIA2   CTRIA3\r\n  2    CTRIARG  CTRMEM   CTUBE\r\n  2    CWEDGE\r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX\r\n  3    PIS2D8   PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD\r\n  3    PTRIA1   PTRIA2   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRMEM   PTUBE\r\n  4    GENEL\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2\r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    MAT6     TABLEM4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  MPC      MPCADD   MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT\r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    ASETOUT\r\n 15    AUTOSPC\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD\r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT\r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   QBDY1\r\n 60    QBDY2    QHBDY    QVECT    QVOL     SLOAD\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT\r\n 96    GPTT     HSLT\r\n 97    HGPECT   HEST     HGEI\r\n 98    HKGGX\r\n100    HKGG\r\n101    HASET    RG       HUSET    YS       OGPST\r\n102    GPST\r\n103    GM\r\n104    HKNN\r\n105    HKFF     HKSS     HKFS\r\n106    HGO      HKAA     HKOO     HLOO\r\n107    HKLL     HKLR     HKRR\r\n108    HLLL\r\n109    HDM\r\n110    HPG      SCR\r\n111    HPL      HPO      HPS      HQR\r\n112    HRULV    HRUOV    HULV     HUOOV\r\n113    HPGG     HQG      HUGV\r\n114    HOEF1    HOPG1    HOQG1    HOUGV1   HPUGV1   HOES1\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n116    HKDICT   HKELM\r\n117    PLOTX1\r\n118    PLOTX2\r\n119    BGPDP    HSIP\r\n120    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/HEAT3",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    HEAT 03 - NONLINEAR STATIC HEAT TRANSFER ANALYSIS - APR. 1995 $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  6,  8- 10, 15, 19\r\n****FILE 101,114,117\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/\r\n         NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 120\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 120\r\n$$$$\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $\r\n****CARD   1\r\n****FILE 113\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,118\r\n$$$$\r\nPURGE    HPLTSETX,HPLTPAR,HGPSETS,HELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$\r\nCOND     HP1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,118\r\n$$$$\r\nPLTHBDY  GEOM2,ECT,EPT,HSIL,EQEXIN,BGPDT/PECT,PSIL,PEQEXIN,PBGPDT/\r\n         S,N,NHBDY/V,Y,MESH=NO $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nEQUIV    ECT,PECT/NHBDY/HSIL,PSIL/NHBDY/EQEXIN,PEQEXIN/NHBDY/\r\n         BGPDT,PBGPDT/NHBDY $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPLTSET   PCDB,PEQEXIN,PECT,/HPLTSETX,HPLTPAR,HGPSETS,HELSETS/S,N,HNSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPRTMSG   HPLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nCOND     HP1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nPLOT     HPLTPAR,HGPSETS,HELSETS,CASECC,PBGPDT,PEQEXIN,PSIL,,,,,,/\r\n         PLOTX1/HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nLABEL    HP1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,118\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $\r\n****CARD   1,  2, 13, 60\r\n****FILE  96\r\n$$$$\r\nSETVAL   //S,N,REPEATH/-1 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nLABEL    LOOPTOP $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRANRESP*/S,N,REPEATH/S,N,NOLOOP $\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nPARAML   CASEXX//*TABLE1*/1/8//TEMPMATE $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nPARAM    //*STSR*/TEMPMATE/-10 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/\r\n         HLUSET/S,N,NOSIMP/1/NOGENL/GENEL $\r\n****CARD   1-  3,  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nCOND     ERROR2,NOSIMP $\r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPARAM    //*ADD*/HNOKGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKGG/HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$\r\nCOND     JMPKGGX,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$\r\nRMG      HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/\r\n         S,N,HNLR/HLUSET $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nEQUIV    HKGGX,HKGG/HNLR $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 102\r\n$$$$\r\nPURGE    HQGE,HRGG/HNLR $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n$$$$\r\nGP4      CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET,\r\n         HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/REPEATG/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 55, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 55, 59\r\n****FILE 101\r\n$$$$\r\nCOND     ERROR1,NOL $\r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPURGE    GM/MPCF1/HPS,HKFS,HKSS,HKSF,HRSN,HQG/SINGLE $\r\n****CARD   1,  9, 10, 59\r\n****FILE 103,105,107,111,112\r\n$$$$\r\nEQUIV    HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1 $\r\n****CARD   1-  3,  6,  8,  9, 13\r\n****FILE 100,104\r\n$$$$\r\nCOND     HLBL1,MPCF1 $\r\n****CARD   1-  3,  6,  8,  9, 13\r\n****FILE 103,104\r\n$$$$\r\nMCE1     HUSET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,HRGG,,/HKNN,HRNN,, $\r\n****CARD   1-  3,  6,  8,  9, 55\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8,  9, 55\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    HKNN,HKFF/SINGLE/HRNN,HRFN/SINGLE $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107\r\n$$$$\r\nCOND     HLBL2,SINGLE $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107,116\r\n$$$$\r\nVEC      HUSET/VFS/*N*/*F*/*S* $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 116\r\n$$$$\r\nPARTN    HKNN,VFS,/HKFF,HKSF,HKFS,HKSS $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105\r\n$$$$\r\nPARTN    HRNN,,VFS/HRFN,HRSN,,/1 $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 107\r\n$$$$\r\nLABEL    HLBL2 $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107,116\r\n$$$$\r\nDECOMP   HKFF/HLLL,HULL/0/0/MDIAG/DET/PWR/S,N,KSING $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n$$$$\r\nCOND     ERROR3,KSING $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n$$$$\r\nSSG1     HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASEXX,DIT,/\r\n         HPG,,,,SCR/HLUSET/NSKIP $\r\n****CARD   1-  3,  6,  8, 13, 55, 59, 60, 62\r\n****FILE 110\r\n$$$$\r\nEQUIV    HPG,HPF/NOSET $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$\r\nCOND     HLBL3,NOSET $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$\r\nSSG2     HUSET,GM,,HKFS,,,HPG/,,HPS,HPF  $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$\r\nSSGHT    HUSET,HSIL,GPTT,GM,HEST,MPT,DIT,HPF,HPS,HKFF,HKFS,HKSF,\r\n         HKSS,HRFN,HRSN,HLLL,HULL/HUGV,HQG,HRULV/HNNLK=1/HNLR/\r\n         C,Y,EPSHT=.001/C,Y,TABS=0.0/C,Y,MAXIT=4/V,Y,IRES/\r\n         MPCF1/SINGLE $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n****FILE 112\r\n$$$$\r\nCOND     HLBL4,IRES $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n$$$$\r\nMATGPR   GPL,HUSET,HSIL,HRULV//*F* $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n$$$$\r\nLABEL    HLBL4 $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n****FILE 114\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV,\r\n         HEST,,HPG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/\r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      HOUGV1,HOPG1,HOQG1,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nSDRHT    HSIL,HUSET,HUGV,HOEF1,HSLT,HEST,DIT,HQGE,,/HOEF1X/C,Y,TABS/\r\n         HNLR $\r\n****CARD  18, 19\r\n****FILE 117\r\n$$$$\r\nOFP      HOEF1X,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 117\r\n$$$$\r\nCOND     HP2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT/PSMES,DPLTPAR,DGPSETS,DELSETS/S,N,DSIL/DJ $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nPLOT     DPLTPAR,DGPSETS,DELSETS,CASEXX,BGPDT,EQEXIN,HSIP,HPUGV1,,\r\n         HGPECT,HOES1,,/PLOTX2/DSIL/HLUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nLABEL    HP2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nCOND     FINIS,REPEATH $\r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nREPT     LOOPTOP,100 $\r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPRTPARM  //-1/*HNLI* $\r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR2 $\r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPRTPARM  //-2/*HNLI* $\r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR3 $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPRTPARM  //-3/*HNLI* $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    FINIS$\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nEND      $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n$$$$\r\n$*CARD BITS\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4   CORD1C   CORD1R   CORD1S\r\n  1    CORD2C   CORD2R   CORD2S   GRDSET   GRID     SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4\r\n  2    CDUM5\r\n  2    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE   CHBDY\r\n  2    CHEXA1\r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM\r\n  2    CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CROD     CTETRA   CTRAPRG\r\n  2    CTRIA1   CTRIA2   CTRIARG  CTRMRM   CQUAD4   CTRIA3\r\n  2    CTUBE    CWEDGE\r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6\r\n  3    PDUM7\r\n  3    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX    PIS2D8\r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD     PTUBE\r\n  3    PTRIA1   PTRIA2   PTRMEM   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2\r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    MAT6     TABLEM4  TEMPMT$  TEMPMX$\r\n  9    MPC      MPCADD   MPC$\r\n 10    SPC      SPC1     SPCADD   SPC$\r\n 11    IRES\r\n 13    TEMP     TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    ASETOUT\r\n 15    AUTOSPC\r\n 16    PLOTEL\r\n 17    IRES\r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 54    EPSHT    MAXIT\r\n 55    RADMTX   RADLST   SIGMA    TABS\r\n 59    LOAD$    SPCD\r\n 60    LOAD     QBDY1    QBDY2    QHBDY    QVECT    QVOL     SLOAD\r\n 62    TEMPLD$\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT\r\n 96    GPTT     HSLT\r\n 97    HEST     HGEI     HGPECT\r\n 98    HKDICT   HKELM\r\n 99    HKGGX\r\n100    HRGG     HKGG     HQGE\r\n101    HASET    RG       HUSET    OGPST\r\n102    GPST\r\n103    GM\r\n104    HKNN     HRNN\r\n105    HKFF     HKFS     HKSF     HKSS\r\n107    HRFN     HRSN\r\n108    HLLL     HULL\r\n110    HPG\r\n111    HPF      HPS\r\n112    HRULV    HQG      HUGV\r\n113    BGPDP    HSIP\r\n114    HOES1    HOEF1    HOPG1    HOQG1    HOUGV1   HPUGV1\r\n115    HELSETS  HGPSETS  HPLTPAR  HPLTSETX\r\n116    VFS\r\n117    HOEF1X\r\n118    PLOTX1\r\n119    PLOTX2\r\n120    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/HEAT9",
    "content": "APR.95\r\n$$$$$$$$\r\nBEGIN    HEAT 09 - TRANSIENT HEAT TRANSFER ANALYSIS - APR. 1995 $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPRECHK   ALL $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $\r\n****CARD   1-  3,  6,  8- 10, 13, 15, 19, 21, 55- 57, 59- 62\r\n****FILE 101,113,116\r\n$$$$\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/\r\n         S,N,NOGPDT/MINUS1=-1 $\r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\nANISOP   GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n****CARD   8\r\n****FILE 129\r\n$$$$\r\nEQUIV    MPTA,MPT/ISOP $\r\n****CARD   8\r\n****FILE 129\r\n$$$$\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $\r\n****CARD   1\r\n****FILE 118\r\n$$$$\r\nPURGE    HUSET,GM,HGO,HKAA,HBAA,HPSO,HKFS,HQP,HEST/NOGPDT $\r\n****CARD   1\r\n****FILE  97,101,103,105,106,114,117,122\r\n$$$$\r\nCOND     HLBL5,NOGPDT $\r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE  95-106,120-124\r\n$$$$\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,124\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$\r\nCOND     HP1,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120,124\r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/\r\n         S,N,JUMPPLOT $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nCOND     HP1,JUMPPLOT$\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/\r\n         HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPRTMSG   PLOTX1// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nLABEL    HP1 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120,124\r\n$$$$\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/1 $\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/\r\n         HLUSET/S,N,NOSIMP=-1/1/123/123 $\r\n****CARD   1-  3,  6, 13, 16, 59\r\n****FILE  97\r\n$$$$\r\nPURGE    HKGG,HBGG/NOSIMP $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$\r\nCOND     HLBL1,NOSIMP $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOBGG/1/0 $\r\n****CARD   1-  3,  8, 59\r\n****FILE 123\r\n$$$$\r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,HBELM,HBDICT,/S,N,\r\n         NOKGGX//S,N,NOBGG $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE 123\r\n$$$$\r\nPURGE    HKGGX/NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPKGGX,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nCOND     JMPHBGG,NOBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$\r\nEMA      HGPECT,HBDICT,HBELM/HBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$\r\nPURGE    HBDICT,HBELM/MINUS1 $\r\n****CARD   1-  3,  8, 59\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPHBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$\r\nPURGE    HBNN,HBFF,HBAA,HBGG/NOBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99,104,105,122\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$\r\nRMG      HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/\r\n         S,N,HNLR/HLUSET $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nEQUIV    HKGGX,HKGG/HNLR $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 102\r\n$$$$\r\nPURGE    HRGG,HRNN,HRFF,HRAA,HRDD/HNLR $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100,104,105,110,121\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET,\r\n         ASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/0/123/S,N,NOSET/S,N,NOL/S,N,NOA/\r\n         C,Y,ASETOUT/C,Y,AUTOSPC $\r\n****CARD   1-  3,  6,  8- 11, 14, 15, 55\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $\r\n****CARD   1-  3,  6,  8- 11, 14, 15, 55\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/HGO,HGOD/OMIT/HKFS,HPSO,HQP/SINGLE $\r\n****CARD   1,  9- 11\r\n****FILE 103,105,106,110,114,117\r\n$$$$\r\nEQUIV    HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1/HBGG,HBNN/MPCF1 $\r\n****CARD   1-  3,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nCOND     HLBL3,MPCF1 $\r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 103,104\r\n$$$$\r\nMCE1     HUSET,RG/GM $\r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,HRGG,HBGG,/HKNN,HRNN,HBNN, $\r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 103,104\r\n$$$$\r\nEQUIV    HKNN,HKFF/SINGLE/HRNN,HRFF/SINGLE/HBNN,HBFF/SINGLE $\r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$\r\nCOND     HLBL4,SINGLE $\r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$\r\nSCE1     HUSET,HKNN,HRNN,HBNN,/HKFF,HKFS,,HRFF,HBFF, $\r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    HLBL4 $\r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$\r\nEQUIV    HKFF,HKAA/OMIT $\r\n****CARD   1-  3,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    HRFF,HRAA/OMIT $\r\n****CARD   1-  3,  8,  9, 55\r\n****FILE 121\r\n$$$$\r\nEQUIV    HBFF,HBAA/OMIT $\r\n****CARD   1-  3,  8,  9, 59\r\n****FILE 122\r\n$$$$\r\nCOND     HLBL5,OMIT $\r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE 106,121,122\r\n$$$$\r\nSMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 106\r\n$$$$\r\nCOND     HLBLR,HNLR $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$\r\nSMP2     HUSET,HGO,HRFF/HRAA $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$\r\nLABEL    HLBLR $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$\r\nCOND     HLBL5,NOBGG $\r\n****CARD   1-  3,  6,  8- 11, 59\r\n****FILE 122\r\n$$$$\r\nSMP2     HUSET,HGO,HBFF/HBAA $\r\n****CARD   1-  3,  6,  8- 11, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    HLBL5 $\r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE  95-106,120-124\r\n$$$$\r\nDPD      DYNAMICS,GPL,HSIL,HUSET/GPLD,HSILD,HUSETD,TFPOOL,HDLT,,,\r\n         HNLFT,HTRL,,HEQDYN/HLUSET/S,N,HLUSETD/123 /S,N,NODLT/\r\n         123/123/S,N,NONLFT/S,N,NOTRL/123//S,N,NOUE $\r\n****CARD   1,  9- 11, 57, 60- 62\r\n****FILE 107\r\n$$$$\r\nCOND     ERROR1,NOTRL $\r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$\r\nEQUIV    HGO,HGOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1, 57, 61\r\n****FILE 110\r\n$$$$\r\nPURGE    HPPO,HPSO,HPDO,HPDT/NODLT $\r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,HEQDYN,,TFPOOL/HK2PP,,HB2PP/HLUSETD/\r\n         S,N,NOK2PP/123/S,N,NOB2PP $\r\n****CARD   1, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $\r\n****CARD   1, 57, 60\r\n****FILE 109\r\n$$$$\r\nPURGE    HK2DD/NOK2PP/HB2DD/NOB2PP $\r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    HKAA,HKDD/KDEKA/HB2PP,HB2DD/NOA/HK2PP,HK2DD/NOA/HRAA,HRDD/\r\n         NOUE $\r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nCOND     HLBL6,NOGPDT $\r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nGKAD     HUSETD,GM,HGO,HKAA,HBAA,HRAA,,HK2PP,,HB2PP/HKDD,HBDD,\r\n         HRDD,GMD,HGOD,HK2DD,,HB2DD/*TRANRESP*/*DISP*/\r\n         *DIRECT*/C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/-1/\r\n         NOB2PP/MPCF1/SINGLE/OMIT/NOUE/\r\n         -1/NOBGG/NOSIMP/-1 $\r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nLABEL    HLBL6 $\r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nEQUIV    HK2DD,HKDD/NOSIMP/HB2DD,HBDD/NOGPDT $\r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $\r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nLABEL    HLBL10 $\r\n****SBST   1,  3\r\n****RFMT 187-204,207,208\r\n$$$$\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $\r\n****CARD   1-  3,  6,  8- 11, 13, 16, 19, 21- 23, 25, 55- 57, 59- 62\r\n****FILE 108\r\n$$$$\r\nTRLG     CASEXX,HUSETD,HDLT,HSLT,BGPDT,HSIL,CSTM,HTRL,DIT,GMD,HGOD,,\r\n         HEST,,/HPPO,HPSO,HPDO,HPDT,,HTOL/S,N,NOSET $\r\n****CARD   1-  3,  6,  8- 11, 55, 57, 61\r\n****FILE 117\r\n$$$$\r\nEQUIV    HPPO,HPDO/NOSET $\r\n****CARD   1-  3,  6,  8- 11, 55, 57, 61\r\n****FILE 117\r\n$$$$\r\nTRHT     CASEXX,HUSETD,HNLFT,DIT,GPTT,HKDD,HBDD,HRDD,HPDT,HTRL/\r\n         HUDVT,HPNLD/C,Y,BETA=.55/C,Y,TABS=0.0/HNLR/C,Y,RADLIN=-1/\r\n         C,Y,SIGMA=0.0 $\r\n****CARD   1-  3,  6,  8- 11, 13, 55- 57, 59- 62\r\n****FILE 111\r\n$$$$\r\nVDR      CASEXX,HEQDYN,HUSETD,HUDVT,HTOL,XYCDB,HPNLD/HOUDV1,HOPNL1/\r\n         *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $\r\n****CARD  13, 19- 21, 27, 55- 57, 59- 62\r\n****FILE 112\r\n$$$$\r\nCOND     HLBL7,NOD $\r\n****CARD  13, 21, 27, 55- 57, 59- 62\r\n****FILE 113,128\r\n$$$$\r\nSDR3     HOUDV1,HOPNL1,,,,/HOUDV2,HOPNL2,,,, $\r\n****CARD  13, 21, 27, 55- 57, 59- 62\r\n****FILE 113\r\n$$$$\r\nOFP      HOUDV2,HOPNL2,,,,//S,N,CARDNO $\r\n****CARD  13, 21, 55- 57, 59- 62\r\n****FILE 113\r\n$$$$\r\nXYTRAN   XYCDB,HOUDV2,HOPNL2,,,/HXYPLTTA/*TRAN*/*DSET*/S,N,HPFILE/\r\n         S,N,HCARDNO $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 128\r\n$$$$\r\nXYPLOT   HXYPLTTA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 128\r\n$$$$\r\nLABEL    HLBL7 $\r\n****CARD  21, 27\r\n****FILE 113,128\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nCOND     HLBL9,PJUMP $\r\n****CARD   1-  3,  6,  8- 11, 18- 20, 22, 23, 55- 57, 59- 62\r\n****FILE 114-116,125-127\r\n****RFMT 187-204,207,208\r\n$$$$\r\nEQUIV    HUDVT,HUPV/NOA $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nCOND     HLBL8,NOA $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nSDR1     HUSETD,,HUDVT,,,HGOD,GMD,HPSO,HKFS,,/HUPV,,HQP/1/\r\n         *DYNAMICS* $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    HLBL8 $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nSDR2     CASEXX,CSTM,MPT,DIT,HEQDYN,HSILD,,,BGPDP,HTOL,HQP,HUPV,HEST,\r\n         XYCDB,HPPO,/HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,HPUGV,,/\r\n         *TRANRESP* $\r\n****CARD  18- 20\r\n****FILE 115\r\n$$$$\r\nSDRHT    HSILD,HUSETD,HUPV,HOEF1,HSLT,HEST,DIT,HQGE,HDLT,/HOEF1X/C,Y,\r\n         TABS/HNLR $\r\n****CARD  18- 20\r\n****FILE 125\r\n$$$$\r\nEQUIV    HOEF1X,HOEF1/MINUS1 $\r\n****CARD  18- 20\r\n****FILE 125\r\n$$$$\r\nSDR3     HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,/HOPP2,HOQP2,HOUPV2,HOES2,\r\n         HOEF2, $\r\n****CARD  18- 20\r\n****FILE 116\r\n$$$$\r\nOFP      HOPP2,HOQP2,HOUPV2,HOEF2,HOES2,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nCOND     HP2,JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,HSIP,,HPUGV,\r\n         HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/\r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nPRTMSG   PLOTX2// $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nLABEL    HP2 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nXYTRAN   XYCDB,HOPP2,HOQP2,HOUPV2,HOES2,HOEF2/HXYPLTT/*TRAN*/*PSET*/S,N,\r\n         PFILE/S,N,CARDNO $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 127\r\n$$$$\r\nXYPLOT   HXYPLTT// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 127\r\n$$$$\r\nLABEL    HLBL9 $\r\n****CARD  20\r\n****FILE 114-116,125-127\r\n$$$$\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nREPT     HLBL10,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPRTPARM  //-2/*HTRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,207,208\r\n$$$$\r\nJUMP     FINIS $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    ERROR1 $\r\n****CARD   1, 57, 61\r\n****FILE  97\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPRTPARM  //-1/*HTRD* $\r\n****CARD   1, 57, 61\r\n****FILE  97\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    FINIS$\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nEND      $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\n$*CARD BITS\r\n  1    CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1   CELAS2   CELAS3\r\n  1    CELAS4\r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S   GRDSET\r\n  1    GRID     SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7\r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4\r\n  2    CDUM5\r\n  2    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE   CHBDY\r\n  2    CHEXA1\r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM\r\n  2    CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CROD     CTETRA   CTRAPRG\r\n  2    CTRIA1   CTRIA2   CTRIARG  CTRMEM   CQUAD4   CTRIA3\r\n  2    CTUBE    CWEDGE\r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6\r\n  3    PDUM7\r\n  3    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX    PIS2D8\r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD     PTUBE\r\n  3    PTRIA1   PTRIA2   PTRMEM   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2\r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    MAT6     TABLEM4  TEMPMT$  TEMPMX$\r\n  9    MPC      MPCADD   MPC$\r\n 10    SPC      SPC1     SPCADD   SPC$\r\n 11    ASET     ASET1    OMIT     OMIT1    SUPAX    SUPORT\r\n 13    TEMP     TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    ASETOUT\r\n 15    AUTOSPC\r\n 16    PLOTEL\r\n 17    G        W3       W4\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$\r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$\r\n 25    NOLOOP$\r\n 27    AXYOUT$\r\n 55    RADMTX   RADLST   SIGMA    TABS     TREF\r\n 56    QBDY1    QBDY2    QVECT    QHBDY    QVOL     LOAD     SLOAD\r\n 57    EPOINT   SEQEP    TF\r\n 59    PDAMP\r\n 60    DMIG     B2PP$    K2PP$    TF$\r\n 61    DAREA    DELAY    DLOAD    DLOAD$   TABLED1  TABLED2  TABLED3\r\n 61    TABLED4  TSTEP$   TLOAD1   TLOAD2   TSTEP\r\n 62    BETA     IC$      NLFORCE  NOLIN1   NOLIN2   NOLIN3   NOLIN4\r\n 62    NOLIN5   NOLIN6   RADLIN   NFTUBE   TIC\r\n$$$$\r\n$*FILE BITS\r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT\r\n 96    GPTT     HSLT\r\n 97    HEST     HGPECT\r\n 98    HKGGX\r\n 99    HBGG\r\n100    HKGG     HRGG     HQGE\r\n101    RG       ASET     HUSET    OGPST\r\n102    GPST\r\n103    GM\r\n104    HBNN     HKNN     HRNN\r\n105    HBFF     HKFF     HKFS     HRFF\r\n106    HGO      HKOO     HLOO     HKAA\r\n107    HDLT     HEQDYN   GPLD     HNLFT    HSILD    TFPOOL   HTRL\r\n107    HUSETD\r\n108    CASEXX\r\n109    HB2PP    HK2PP\r\n110    HB2DD    HM2DD    HBDD     GMD      HGOD     HK2DD    HKDD\r\n110    HRDD\r\n111    HPNLD    HUDVT\r\n112    HOUDV1   HOPNL1\r\n113    HOUDV2   HOPNL2\r\n114    HQP      HUPV\r\n115    HOES1    HOEF1    HOPP1    HOQP1    HOUPV1   HPUGV\r\n116    HOES2    HOEF2    HOPP2    HOQP2    HOUPV2\r\n117    HPDO     HPDT     HPPO     HPSO     HTOL\r\n118    BGPDP    HSIP\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX\r\n121    HRAA\r\n122    HBAA\r\n123    HKDICT   HKELM    HBDICT   HBELM\r\n124    PLOTX1\r\n125    HOEF1X\r\n126    PLOTX2\r\n127    HXYPLTT\r\n128    HXYPLTTA\r\n129    MPT\r\n$*\r\n"
  },
  {
    "path": "rf/NASINFO",
    "content": "\r\n PURPOSES  \r\n \r\n      *   ALLOW LOCAL INSTALLATION CENTERS TO SEND MESSAGES TO ALL NASTRAN\r\n          USERS.\r\n\r\n      *   LOCALLY PRESET CERTAIN NASTRAN SYSTEM PARAMETERS, SUCH AS OUTPUT\r\n          LINES PER PAGE (LPP),  ETC.\r\n          THESE PARAMETERS CAN BE OVERRIDDEN BY USE OF THE NASTRAN CARD.\r\n      \r\n      *   LOAD THE BCD-LOOK-ALIKE WORDS FOR SUBROUTINE NUMTYP.\r\n          (THE BINARY REPRESENTATIONS OF SOME FLOATING POINT NUMBERS AND\r\n          THEIR CORRESPONDING BCD WORDS ARE EXACTLY THE SAME, AND SUBROUTINE\r\n          NUMTYP MAY INCORRECTLY CLASSIFY THEM AS BCD WORDS.  ANY BCD WORD \r\n          ON THE LIST WILL BE REVERTED TO FLOATING POINT TYPE DATA.)\r\n\r\n      *   SET THE NASTRAN (16) GINO (GENERAL INPUT AND OUTPUT) TIMING\r\n          CONSTANTS.\r\n          (TO OBTAIN THESE TIMING CONSTANTS FOR YOUR LOCAL SYSTEM, RUN\r\n          DEMO PROBLEM D01002A SEVERAL TIMES AND GET THE AVERAGE FOR THESE\r\n          CONSTANTS.)\r\n\r\n      *   DEFINE TEXT TO BE PRINTED WITH DIAG 48.\r\n\r\n\r\n   METHOD \r\n\r\n           THERE ARE FIVE SECTIONS IN THIS FILE. EACH SECTION IS SEPARATED\r\n           BY AN EQUAL LINE, SUCH AS '========='.\r\n\r\n           SECTION ONE BEGINS AT THE BEGINNING OF THE NASINFO FILE\r\n               AND GOES TO THE FIRST EQUAL LINE.  THIS SECTION DESCRIBES\r\n               THE CONTENTS OF THE NASINFO FILE.\r\n\r\n           SECTION TWO CONTAINS SYSTEM PARAMETERS THAT ARE  \r\n               INSTALLATION DEPENDENT.\r\n\r\n           SECTION THREE CONTAINS BCD-LOOK-ALIKE WORDS WHICH ARE REALLY\r\n               FLOATING POINT NUMBERS (MACHINE DEPENDENT).  THIS SECTION IS\r\n               USED BY SUBROUTINE NUMTYP.\r\n\r\n           SECTION FOUR CONTAINS LOCAL INSTALLATION MESSAGES. \r\n\r\n           SECTION FIVE IS RESERVED FOR DIAG 48 INFORMATION MESSAGES AND\r\n               CONTAINS AN ITEMIZATION OF NEW FEATURES IN THIS RELEASE.\r\n           \r\n   FORMATS OF SECTIONS\r\n\r\n           THE FORMAT OF THE FIRST SECTION IS 80 COLUMN TEXT.\r\n\r\n           THE FORMAT OF THE SECOND SECTION IS A 4 LETTER SYMBOL; FOLLOWED  \r\n           BY AN \"=\"; FOLLOWED BY A 7-DIGIT VALUE; AND AT THE END A COMMENT.\r\n           A FORTRAN FORMAT FOR THIS IS (A4,'=',I7).  THE SYMBOL NAMES\r\n           ARE UNIQUE AND CANNOT BE CHANGED.  THE ORDER OF THE SYMBOLS IS\r\n           ARBITRARY.  A VALUE OF -99 INDICATES THAT THE PARAMETER IS NOT SET.\r\n           ANY SYMBOL THAT IS NOT USED (I.E., VALUE = -99) CAN BE DELETED.  \r\n           BLANK LINES ARE OPTIONAL.  THE SYMBOL 'TIM' REQUIRES TWO LINES \r\n           OF INPUT VALUES.\r\n\r\n           THE FORMAT FOR THE THIRD SECTION CONSISTS OF TWO LINES PER\r\n           ENTRY.  THE FIRST LINE HAS A FORTRAN FORMAT OF (I2,I4,2X,A20)\r\n           AND SPECIFIES THE COMPUTER FOR WHICH THE DATA IN THE SECOND\r\n           LINE IS TO APPLY.  THE FIRST FIELD IS THE ID NUMBER ASSIGNED\r\n           TO THE COMPUTER (THIS NUMBER CANNOT BE CHANGED).  THE SECOND \r\n           FIELD DEFINES HOW MANY BCD-LOOK-ALIKE VALUES ARE GIVEN\r\n           IN THE FOLLOWING LINE.  THE LAST FIELD GIVES TEXT THAT \r\n           DEFINES THE COMPUTER.  THE FORTRAN FORMAT OF THE SECOND LINE IS\r\n           (5X,19(A4,1X)).  \r\n                                                \r\n           THE FORMAT OF SECTION FOUR IS 80 COLUMN TEXT.  ALL LINES INCLUDED\r\n           WILL BE PRINTED IN LOCAL NASTRAN JOBS IF THE NASINFO\r\n           FILE IS ASSIGNED.  A NEW PAGE IS INDICATED BY PUTTING '====    ' \r\n           IN COLUMNS 1 THRU 8.  IF NO TEXT IS GIVEN, THE LAST EQUAL-LINE \r\n           SHOULD IMMEDIATELY FOLLOW THE PREVIOUS EQUAL-LINE, WITH NO \r\n           INTERVENING BLANK LINES.\r\n\r\n           THE FORMAT OF SECTION FIVE IS 80 COLUMN TEXT.\r\n\r\n\r\nDESIGN REQUIREMENTS \r\n\r\n           THIS FILE SHOULD BE READ-ONLY AND ASSIGNED TO NASTRAN.\r\n           IF THIS FILE DOES NOT EXIST, NASTRAN WILL NOT ABORT.\r\n           THIS FILE IS PROCESSED ONLY BY SUBROUTINE NSINFO.  \r\n           THE SUBROUTINE CALLING SEQUENCE IS AS FOLLOWS:\r\n                NSINFO CALLED BY NASCAR\r\n                NASCAR CALLED BY TTLPGE\r\n                TTLPGE CALLED BY XCSA\r\n                XCSA   CALLED BY SEMINT\r\n                SEMINT CALLED BY ...\r\n\r\n\r\nCOMMENTS ABOUT GINO TIMING CONSTANTS (TIM) IN SECTION 2 FOLLOW:\r\n\r\n           IF THE VALUE OF TIM IS NOT 16, THEN THIS LINE AND THE  \r\n           NEXT 2 LINES ARE SKIPPED IN THE SECTION THAT FOLLOWS.\r\n           IN EACH NASTRAN JOB, NASTRAN RUNS THROUGH A SERIES OF GINO TIMING\r\n           COMPUTATIONS AND ESTABLISHES THE 16 GINO TIMING CONSTANTS. IF THESE\r\n           CONSTANTS ARE ALREADY AVAILABLE TO NASTRAN, THE TIMING COMPUTATIONS\r\n           ARE SKIPPED, THUS SAVING CPU TIME IN ALL NASTRAN JOBS.\r\n\r\n           THERE ARE TWO WAYS TO MAKE THESE CONSTANTS AVAILABLE TO NASTRAN -\r\n           (1)  HARD CODE THE CONSTANTS TO NASTRAN VIA LABEL COMMON /NTIME/\r\n                IN SUBROUTINE SEMDBD. (COMPILE AND RE-LINK LINK1).\r\n           (2)  ENTER 'TIM = 16', AND IN THE NEXT 2 LINES, ENTER THE 16 \r\n                TIMING CONSTANTS IN (12X,8F7.2) FORMAT.\r\n\r\n           TO OBTAIN THESE 16 TIMING CONSTANTS, SUBMIT A SIMPLE NASTRAN RUN\r\n           WITH A 'NASTRAN BULKDATA=-3' CARD.  THESE CONSTANTS MAY THEN BE\r\n           EDITED INTO THIS NASINFO FILE.  TIME UNIT IS IN MICROSECONDS. \r\n           IF TIME IS LESS THAN 0.001 MICROSECOND, USE +0.001 \r\n           (ZERO TIMES MAY GET NASTRAN INTO TROUBLE.)\r\n\r\n============================== SECTION 2 ======================================\r\n\r\n              (SEE NASTRAN CARD IN USER MANUAL, PP. 2.2-1 THRU 2.2-6)\r\n         -99  = SYSTEM DEFAULT VALUE WILL BE USED      [OPTION VALUE EXAMPLE]\r\nLPP =    -99  OUTPUT LINES PER PAGE                                [50]\r\nMXL =    -99  MAX. NUMBER OF OUTPUT LINES                          [999999]\r\nTPG =    -99  NASTRAN TITLE PAGE CONTORL                           [-1]\r\nBND =    -99  BANDIT OPTION                                        [-1]\r\nECH =    -99  NASTRAN INPUT BULK DATA CARDS ECHO (BY BIT PATTERN)  [1]\r\n              (1 UNSORTED, 2 SORTED, 3 BOTH, 4 PUNCH, 7 PRINT+PUNCH, \r\n               8 NO PRINT)\r\nPOP =    -99  PLOT OPTION                                          \r\nSXX =    -99  SET VALUE IN /SYSTEM/ WORD.  MORE THAN ONE SXX IS ALLOWED.                         \r\n              XX=88TH THRU 99TH (EXCEPT 91, 93 AND 95) OF /SYSTEM/ [S88 =   1]\r\nTIM =    -99  MUST BE 16 AND FOLLOWED BY 16 GINO TIMINGS IN NEXT 2 LINES  [16]\r\n               3.20  39.00  33.00  29.00  30.00  2.125  12.00   3.00\r\n               4.00   9.00  13.00   4.00   5.50  10.50  16.00  14.22\r\n            -------+++++++-------+++++++-------+++++++-------+++++++\r\n              FORMAT OF THE ABOVE IS (12X,8F7.2)\r\nS3S =    -99  SKIP 3RD SECTION PRINTOUT (I.E.. TURN OFF MESSAGES)   [1]\r\nEND =    -99  PHYSICALLY THE LAST OF THE PARAMETER LIST\r\n\r\n============================== SECTION 3 =======================================\r\n(THIS SECTION IS MACHINE DEPENDENT. DATA IN THIS SECTION STARTS ON THE \r\n6TH LINE.  THE FORMAT FOR THE BCD DATA LINES IS (5X,19(A4,1X)), AND IS \r\nPRECEEDED BY A LINE IDENTIFYING WHICH MACHINE, NUMBER OF BCD WORDS THAT \r\nFOLLOW, AND COMMENTS.  EXPAND THE BCD LIST WHEN KNOWN DATA IS AVAILABLE)\r\n\r\n 1  0  DUMMY\r\n 2  0  IBM/MVS\r\n 3  0  UNIVAC/FTN\r\n 4  0  CDC/FTN5\r\n 5  1  DEC/VMS\r\n     PFTU\r\n 6  0  DEC/ULTRIX(RISC)\r\n 7  0  SUN SOLARIS\r\n 8  0  IBM/AIX\r\n 9  0  HP/UX\r\n10  0  SGI/IRIS\r\n11  0  MAC\r\n12  0  CRAY UNICOS\r\n13  0  CONVEX\r\n14  0  NEC\r\n15  0  FUJITSU\r\n16  0  SUN SUNOS\r\n17  0  AMDAHL\r\n18  0  PRIME\r\n19  0  PC MS/DOS\r\n20  0  DUMMY\r\n21  0  DEC/OPENVMS\r\n22  0  DEC/OSF\r\n\r\n============================== SECTION 4 ======================================\r\n\r\n\r\nINSTALLATION CENTER USER INFORMATION GIVEN IN THIS SECTION\r\n\r\n            *********************************************\r\n            *                                           *\r\n            *  PLEASE READ THE COMMENT IN DEMO PROBLEM  *\r\n            *  D01002A ABOUT SYSTEM TIMING CONSTANTS    *\r\n            *                                           *\r\n            *********************************************\r\n\r\n===X=    TOP OF PAGE REQUEST IF 'X' IS REPLACED BY '='\r\n\r\n============================== SECTION 5 ======================================\r\n\r\n\r\n               DIAG 48 -      NASTRAN RELEASE NEWS\r\n               ===================================\r\n\r\n\r\nNASTRAN RELEASE NEWS -\r\n\r\n\r\n\r\n\r\n\r\n95 RELEASE\r\n----------\r\nNEW METHODS WERE INSTALLED FOR SYMMETRIC DECOMPOSITION, FORWARD/BACKWARD \r\nSUBSTITUTION (SYMMETRIC MATRICES ONLY), AND MATRIX MULTIPLY/ADD.  IN \r\nADDITION, COMPUTATIONAL EFFICIENCY IMPROVEMENTS WERE MADE TO THE FEER\r\nEIGENVALUE ANALYSIS.  \r\n\r\nTHE FOLLOWING DIAGS WERE ADDED FOR THESE NEW CAPABILITIES:\r\n\r\n        DIAG                       DESCRIPTION\r\n\r\n        45              PROVIDE STATISTICS FOR NEW SYMMETRIC DECOMPOSITION \r\n                        METHOD\r\n        47              PROVIDE STATISTICS FOR NEW FORWARD/BACKWARD\r\n                        SUBSTITUTION METHOD\r\n\r\nDIAG 19 STILL GIVES STATISTICAL INFORMATION FOR BOTH THE OLD AND THE NEW\r\nMATRIX MULTIPLY/ADD METHODS.\r\n\r\nIN ADDITION, THE \"SYSTEM(58)=\" PARAMETER ON THE \"NASTRAN\" CARD MAY BE\r\nUSED TO SPECIFY A PARTICULAR MATRIX MULTIPLY/ADD METHOD.  THE OLD METHODS\r\nARE 1, 2 AND 3 (TRANSPOSE ONLY).  THE NEW METHODS ARE 10, 11, 20, 21, 30,\r\n31, 32, 40 AND 41.  A METHOD IS SELECTED BASED ON THE DENSITY OF THE\r\nMATRIX AND HOW MANY PASSES ARE REQUIRED TO COMPUTE THE RESULTING MATRIX\r\nUNLESS \"SYSTEM(58)\" IS USED.\r\n\r\nTHE DIFFERENCES IN THE METHODS ARE SEEN IN THE TABLE BELOW:\r\n\r\n   ------------------------------------------------------------------------\r\n   METHOD     METHOD OF READING MATRIX    MULTIPLE COLUMNS OF MATRIX STORED\r\n                 A        B       C           A         B        D\r\n   ------------------------------------------------------------------------\r\n   OLD METHODS (T = TRANSPOSED, NT = NON-TRANSPOSED)\r\n     1         INTPK   UNPACK   UNPACK       NO         YES      YES\r\n     2T        GETSTR  UNPACK   INTPK        YES        NO       NO\r\n     2NT       GETSTR  INTPK    INTPK        YES        NO       NO\r\n     3T        UNPACK  GETSTR   INTPK        YES        NO       NO\r\n   NEW METHODS  \r\n     10        UNPACK  UNPACK   UNPACK       YES        NO       NO\r\n     11        UNPACK  GETSTR   UNPACK       YES        NO       NO\r\n     20        UNPACK  UNPACK   UNPACK       NO         YES      YES\r\n     21        GETSTR  UNPACK   UNPACK       NO         YES      YES\r\n     30        GETSTR  UNPACK   UNPACK       YES        NO       NO\r\n     31        GETSTR  GETSTR   UNPACK       YES        NO       NO   \r\n     32        GETSTR  GETSTR   GETSTR       YES        NO       NO   \r\n     40        UNPACK  GETSTR   UNPACK       NO         YES      YES\r\n     41        GETSTR  GETSTR   UNPACK       NO         YES      YES\r\n   ------------------------------------------------------------------------\r\n\r\nAS AN EXAMPLE, IN ORDER TO SPECIFY THE USE OF METHOD 10 FOR ALL CASES, \r\nUSE THE FOLLOWING \"NASTRAN\" CARD:\r\n\r\n                NASTRAN SYSTEM(58)=10\r\n\r\nTHE OLD METHODS STILL EXISTS AND MAY BE REFERENCED BY THE FOLLOWING DIAGS:\r\n\r\n        DIAG                       DESCRIPTION\r\n\r\n        43              OLD FEER METHOD  \r\n        44              OLD SYMMETRIC DECOMPOSITION METHOD\r\n        46              OLD FORWARD/BACKWARD SUBSTITUTION METHOD\r\n        49              OLD MATRIX MULTIPLY/ADD METHOD\r\n\r\n\r\nTHE FOLLOWING IS A LIST OF SPRS THAT WERE CORRECTED FOR THE 1994 RELEASE.\r\nDETAIL INFORMATION ON ANY SPR CAN BE OBTAINED BY CONTACTING THE NASTRAN\r\nMAINTENANCE CONTRACTOR.\r\n\r\nSPR NO.    MODULE                     DESCRIPTION\r\n-------    ------    ------------------------------------------------------\r\n93-026     GPTSG     MODIFIED TO ALLOW FOR SINGLE PRECISION ON 64-BIT\r\n                     PLATFORMS.\r\n93-033     ANISOP    MODIFIED RIGID FORMATS TO INCLUDE SUPPORT FOR \"MAT6\"\r\n                     CARD.\r\n94-001     SDR2      PROVIDE FOR SORT-2 STRESS OUTPUT FOR \"TRAPRG\" ELEMENT.\r\n94-002     EMG       DAMPING COEFFICIENT ON \"MAT1\" CARD WAS BEING IGNORED\r\n                     FOR THE \"TRAPRG\" ELEMENT.\r\n94-003     TRD       ALLOW FOR TRANSIENT APPEND FEATURE.\r\n94-004     SDR2      ALLOW FOR CORRECT CALCULATION OF PRINCIPAL STRAINS FOR\r\n                     THE \"QUAD4\" ELEMENT.\r\n94-005     DPD       CORRECT A PROBLEM RELATING TO REFERENCING A \r\n                     NON-EXISTING GRID POINT WITH THE \"NOLIN1\" CARD.\r\n94-006     PLOT      CORRECT A PROBLEM USING \"CELAS2\" ELEMENTS IN PLOT \r\n                     REQUESTS WHEN USING RIGID FORMAT 12.\r\n94-007     SDR2      CORRECT PROBLEMS RELATING TO THE PROCESSING OF \"E\" \r\n                     POINTS.  ERROR AFFECTED THE CALCULATION OF ELEMENT\r\n                     FORCE AND STRESS DATA.\r\n94-008     MPYAD     COSMETIC CHANGE FOR OUTPUT OF DIAG 19.\r\n94-009     NSINFO    USER INFORMATION MESSAGE 225 DOES NOT GO AWAY EVEN WHEN\r\n                     TIME CONSTANTS ARE SUPPLIED IN THE \"NASINFO\" FILE TO \r\n                     NASTRAN.\r\n94-010     MPYAD     WRONG METHOD CHOSEN RESULTING IN EXCESSIVE TIME USAGE.\r\n                     MPYAD FAILED TO TAKE INTO ACCOUNT THE NUMBER OF PASSES\r\n                     REQUIRED.\r\n94-011     DECOMP    SUBROUTINE \"DETFBS\" DID NOT PERFORM THE CORRECT\r\n                     FORWARD/BACKWARD SUBSTITUTION WHEN \"DECOMP\" DECOMPOSED\r\n                     AN UNSYMMETRIC MATRIX WITH THE PARAMETER \"CBAR\" NON-ZERO.\r\n94-012     DBMMGR    INFINITE LOOPING PROBLEM COULD RESULT WHEN USING THE\r\n                     IN-MEMORY DATA BASE AND A CLOSE WITHOUT A REWIND IS\r\n                     ISSUED.\r\n94-013     DBMMGR    CORRECTED A PROBLEM USING THE IN-MEMORY DATA BASE THAT\r\n                     RESULTED IN ERROR MESSAGE 2026 IN MODULE \"SSG1\".\r\n94-015     MCE2      PROBLEM WITH USING THE \"RFORCE\" CARD.\r\n94-016     OUTPT2    UNABLE TO CHANGE THE BINARY BLOCK SIZE TO BE GREATER\r\n                     THAN 1028.\r\n94-017     SDR2      UNABLE TO GET STRAIN OUTPUT FOR THE \"QUAD4\" ELEMENT\r\n                     WHEN NOT REQUESTING EITHER FORCE OR STRESS OUTPUT.\r\n94-018     CDCOMP    FAILED TO SET APPROPRIATE FLAGS FOR DETECTING A \r\n                     SINGULAR MATRIX.  \r\n\r\nIN ADDITION, THE FOLLOWING NCL'S (NEW CAPABILITY LOG) WERE CLOSED:\r\n\r\nNCL NO.    MODULE                     DESCRIPTION\r\n-------    ------    ------------------------------------------------------\r\n93-002     FBS       OPTIMIZE THE SYMMETRIC FORWARD/BACKWARD SUBSTITUTION \r\n                     METHOD.\r\n93-003     SDCOMP    OPTIMIZE THE SYMMETRIC DECOMPOSITION METHOD.                    \r\n93-004     MPYAD     OPTIMIZE THE MATRIX MULTIPLY-ADD METHODS.\r\n93-007     FEER      OPTIMIZE THE FEER EIGENVALUE METHOD.\r\n\r\n\r\nAN IN-MEMORY DATA BASE IS AVAILABLE FOR ALL PLATFORMS.  THE IN-MEMORY\r\nDATA BASE ELIMINATES I/O TO DISK.  LOGIC EXISTS TO AUTOMATICALLY WRITE\r\nFILES TO DISK AFTER THE IN-MEMORY DATA BASE SPACE IS EXHAUSTED.  THE COMMON\r\n/ZZZZZZ/ IS USED FOR ALLOCATING OPEN CORE AND SPACE FOR THE IN-MEMORY\r\nDATA BASE.  THE SIZE OF COMMON /ZZZZZZ/ IS DEFINED IN ./MDS/NASTRN.F\r\n(SEE ARRAY \"IZ\" AND VARIABLE \"LENOPC\").   ALL REMAINING SPACE AFTER\r\nALLOCATING OPEN CORE IS USED FOR THE IN-MEMORY DATA BASE.  THE USER\r\nCONTROLS THE ALLOCATION OF OPEN CORE THROUGH THE NASTRAN MENU.  THE\r\nUSER CAN ELIMINATE THE USE OF THE IN-MEMORY DATA BASE BY SETTING THE\r\nIN-MEMORY DATA BASE ALLOCATION TO ZERO THROUGH THE NASTRAN MENU.\r\nUSERS ARE ENCOURAGED TO RECOMPILE \"NASTRN.F\" WITH A LARGER ALLOCATION \r\nFOR COMMON /ZZZZZZ/ IF THEIR PLATFORM SUPPORTS A LARGER MEMORY ALLOCATION.  \r\nA LARGER ALLOCATION OF COMMON /ZZZZZZ/ PROVIDES FOR MORE SPACE FOR THE\r\nIN-MEMORY DATA BASE AND ALLOWS FOR MORE FILES TO BE MAINTAINED WITHIN\r\nTHE IN-MEMORY DATA BASE.  USERS SHOULD ALWAYS ALLOCATE SUFFICIENT \r\nOPEN CORE TO PREVENT SPILL LOGIC (E.G., SEE USER INFORMATION MESSAGE \r\n3023).  IT IS INEFFICIENT TO ALLOCATE TOO MUCH OPEN CORE.  HOWEVER, \r\nTHERE IS NO SUCH PENALTY FOR OVER-ALLOCATING MEMORY FOR THE IN-MEMORY \r\nDATA BASE.\r\n\r\nAT THE END OF THE LOG FILE, A SUMMARY OF ALL GINO I/O ACTIVITY IS GIVEN\r\nSHOWING THE PERCENT OF USAGE OF THE IN-MEMORY DATA BASE AND THE AMOUNT\r\nOF DISK I/O FOR THE NASTRAN EXECUTION.\r\n\r\nTHE USER'S MANUAL IS PROVIDED ON THE DELIVERABLE TAPE AS TEXT FILES.  THE\r\nFILES ARE IN ASCII, 80 COLUMN FORMAT.  THE USER CAN EXAMINE THESE FILES WITH\r\nA SYSTEM EDITOR, OR THROUGH THE USE OF THE NASTHELP PROGRAM, WHICH IS INCLUDED \r\nWITH THIS NASTRAN RELEASE.  THIS PROGRAM ALLOWS A USER TO SEARCH, READ AND/OR \r\nPRINT A PORTION OF THE FILE QUICKLY.  THE ENTIRE MANUAL IS STORED IN THE \r\nFOLLOWING FILES:\r\n\r\n    EXEC.TXT - NASTRAN EXECUTIVE CONTROL SECTIONS\r\n    CASE.TXT - THE CASE CONTROL SECTIONS\r\n    BULK.TXT - INPUT BULK DATA SECTIONS\r\n    MSSG.TXT - NASTRAN FATAL, WARNING, AND INFORMATION MESSAGES\r\n    PLOT.TXT - NASTRAN PLOTTING\r\n    SUBS.TXT - SUBSTRUCTURING SECTIONS\r\n    INTR.TXT - INTRODUCTION AND GENERAL INFORMATION\r\n    UMFL.TXT - NASTRAN USER MASTER FILE AND USER GENERAL INPUT\r\n    DMAP.TXT - NASTRAN DMAPS\r\n    DICT.TXT - NASTRAN DICTIONARY\r\n    RFMT.TXT - NASTRAN RIGID FORMATS\r\n\r\nA UTILITY PROGRAM, \"NASTHELP\", IS PROVIDED TO ALLOW FOR EASY ACCESS TO\r\nTHE ABOVE TEXT FILES.  NASTHELP IS USER FRIENDLY AND REQUIRES NO \r\nWRITTEN INSTRUCTION, EXCEPT THAT THE NASTHELP EXECUTABLE AND \r\nTHE .TXT FILES MUST BE IN THE SAME DIRECTORY.\r\n\r\n"
  },
  {
    "path": "um/BULK.TXT",
    "content": "=PAGE=\r\n2.4  BULK DATA DECK\r\n\r\n   The primary NASTRAN input medium is the bulk data card. These cards are\r\nused to define the structural model and various pools of data which may be\r\nselected by Case Control at execution time.\r\n\r\n   For large problems, the Bulk Data Deck may consist of several thousand\r\ncards. In order to minimize the handling of large numbers of cards, provision\r\nhas been made in NASTRAN to store the bulk data on the Problem Tape, from\r\nwhich it may be modified on subsequent runs. A User's Master File (Section\r\n2.5) is also provided for the storage of Bulk Data Decks.\r\n\r\n   For any cold start, the entire Bulk Data Deck must be submitted.\r\nThereafter, if the original run was checkpointed, the Bulk Data Deck exists on\r\nthe Problem Tape in sorted form where it may be modified and reused on\r\nrestart. On restart, the bulk data cards contained in the Bulk Data Deck are\r\nadded to the bulk data contained on the Old Problem Tape. Cards are removed\r\nfrom the Old Problem Tape (or the User's Master File) by the use of a delete\r\ncard. Cards to be deleted are indicated by inserting a bulk data card with a /\r\nin column one and the sorted bulk data sequence numbers in fields two and\r\nthree. All bulk data cards in the range of the sequence numbers in fields two\r\nand three will be deleted. In the case where only a single card is deleted,\r\nfield three may be left blank.\r\n\r\n   The Bulk Data Deck may be submitted with the cards in any order, as a sort\r\nis performed prior to the execution of the Input File Processor. It should be\r\nnoted that the machine time to perform this is minimized for a deck that is\r\nalready sorted. The sort time for a badly sorted deck will become significant\r\nfor large decks. You may obtain a printed copy of either the unsorted or the\r\nsorted bulk data by selection in the Case Control Deck. A sorted echo is\r\nnecessary in order to make modifications on a secondary execution using the\r\nProblem Tape. This echo is automatically provided unless specifically\r\nsuppressed by you.\r\n\r\n2.4.1  Format of Bulk Data Cards\r\n\r\n   The bulk data cards can employ either the fixed-field format or the\r\nfree-field format. The free-field format bulk data cards are converted\r\ninternally by the program to appropriate fixed-field format cards.\r\n\r\n   The fixed-field input format employs either 8-column or 16-column fields.\r\nIt is described in Section 2.4.1.1.\r\n\r\n   The free-field input format relaxes the rigid 8-column field requirement.\r\nIt can be used in place of the fixed-field format in all cases of bulk data\r\ncards that employ 8-column fields. It is described in Section 2.4.1.2.\r\n\r\n   The free-field input format will be found useful not only by real-time\r\nterminal users, but also by batch-job users who will find it helpful in\r\nreducing errors due to mispunching of data in the wrong columns. In addition,\r\nthe free-field format offers the ability to automatically duplicate similar\r\nbulk data cards with minor changes in one or more selected fields. Also,\r\nseveral options are offered to make terminal keyboard data entry easier, to\r\nallow you to execute only the NASTRAN Preface (Link 1), and to punch out\r\ngenerated card images. The various options can be invoked at any time during a\r\nfree-field input session.\r\n\r\n2.4.1.1  Fixed-Field Input\r\n\r\n   The fixed-field input format is variable to the extent that any quantity\r\nexcept the mnemonic can be punched anywhere within a specified 8 or 16-column\r\nfield. The normal card uses an 8-column field as indicated in the following\r\ndiagram.\r\n\r\nSmall Field Bulk Data Card\r\n\r\n    1a       2       3       4       5       6       7       8       9     10a\r\nĿ\r\n    8      8      8      8      8      8      8      8       8    8  \r\n\r\n\r\nThe mnemonic is punched in field 1. Fields 2-9 are for data items. The only\r\nlimitations on data items are that they must lie completely within the\r\ndesignated field, have no imbedded blanks, and must be of the proper type,\r\nthat is, blank, integer, real, double precision, or BCD (see SEQGP and SEQEP\r\nfor exceptions). All real numbers, including zero, must contain a decimal\r\npoint. A blank will be interpreted as a real zero or integer zero as required.\r\nReal numbers may be encoded in various ways. For example, the real number 7.0\r\nmay be encoded as 7.0, .7E1, 0.7+1, 70.-1, .70+1, etc. A double precision\r\nnumber must contain both a decimal point and an exponent with the character D\r\nsuch as 7.0D0. Double precision data values are only allowed in a few\r\nsituations, such as on the PARAM card. BCD data values consist of one to eight\r\nalphanumeric characters, the first of which must be alphabetic.\r\n\r\n   Normally field 10 is reserved for optional user identification. However, in\r\nthe case of continuation cards, field 10 (except column 73, which is not\r\nreferenced) is used in conjunction with field 1 of the continuation card as an\r\nidentifier and hence must contain a unique entry. The continuation card\r\ncontains the symbol + in column 1 followed by the same seven characters that\r\nappeared in columns 74-80 of field 10 of the card that is being continued.\r\nThis allows the data to be submitted as an unsorted deck.\r\n\r\n   The small field data card should be more than adequate for the kinds of\r\ndata normally associated with structural engineering problems. Since\r\nabbreviated forms of floating point numbers are allowed, up to seven\r\nsignificant decimal digits may be used in an eight-character field.\r\nOccasionally, however, the input is generated by another computer program or\r\nis available in a form where a wider field would be desirable. For this case,\r\nthe larger field format with a 16-character data field is provided. Each\r\nlogical card consists of two physical cards as indicated in the following\r\ndiagram.\r\n\r\nLarge Field Bulk Data Card\r\n\r\n    1a           2              3                4               5         10a\r\nĿ\r\n    8          16             16             16             16        8  \r\n\r\n\r\n    1b           6              7                8               9         10b\r\nĿ\r\n    8          16             16             16             16        8  \r\n\r\n\r\nThe large field card is denoted by placing the symbol * after the mnemonic in\r\nfield 1a and some unique character configuration in the last 7 columns of\r\nfield 10a. The second physical card contains the symbol * in column 1 followed\r\nby the same seven characters that appeared after column 73 in field 10a of the\r\nfirst card. The second card may in turn be used to point to a large or small\r\nfield continuation card, depending on whether the continuation card contains\r\nthe symbol * or the symbol + in column 1. The use of multiple and large field\r\ncards is illustrated in the following examples.\r\n\r\nSmall Field Card with Small Field Continuation Card\r\n\r\nĿ\r\nTYPE                                                            QED12\r\nĴ\r\n+ED12                                                                \r\n\r\n\r\nLarge Field Card\r\n\r\nĿ\r\nTYPE*                                                               QED13\r\nĴ\r\n*ED13                                                                    \r\n\r\n\r\nLarge Field Card with Large Field Continuation Card\r\n\r\nĿ\r\nTYPE*                                                               QED31\r\nĴ\r\n*ED31                                                               QED32\r\nĴ\r\n*ED32                                                               QED35\r\nĴ\r\n*ED35                                                                    \r\n\r\n\r\nLarge Field Card Followed by a Small Field Continuation Card and a Large Field \r\nContinuation Card \r\n\r\nĿ\r\nTYPE*                                                               QD462\r\nĴ\r\n*D462                                                               QD421\r\nĴ\r\n+D421                                                           QD361\r\nĴ\r\n*D361                                                               QD291\r\nĴ\r\n*D291                                                                    \r\n\r\n\r\nSmall Field Card with Large Field Continuation Card\r\n\r\nĿ\r\nTYPE                                                            QD632\r\nĴ\r\n*D632                                                               QD204\r\nĴ\r\n*D204                                                                    \r\n\r\n\r\nIn the above examples, column 73 arbitrarily contains the symbol Q in all\r\ncases where field 10 is used as a pointer. However, column 73 could have been\r\nleft blank or the same symbol used in column 1 of the following card could\r\nhave been used (that is, the symbols * or +).\r\n\r\n2.4.1.2  Free-Field Input\r\n\r\n   The free-field input format can be used to create only small field cards.\r\nThis capability is best understood by the following important rules and\r\nprogram features:\r\n\r\n   1. Free-field input is available only after a BEGIN BULK card is read, and\r\n      is disabled automatically when ENDDATA is entered.\r\n\r\n      In VAX and all UNIX machines, a free-field input card can have up to 94\r\n      columns.\r\n\r\n   2. Free-field input is activated by one or more commas (,) or an equal sign\r\n      (=) in the first 10 columns of the input card.\r\n\r\n   3. Data items must be separated with a comma, one or more blanks, or the\r\n      combination of a comma and blanks.\r\n\r\n      Logical choice is one comma only in first 10 columns of the input card.\r\n\r\n   4. Integers and BCD words are limited to 8 digits or 8 characters. Real\r\n      numbers can be up to 12 digits, including sign and decimal point.\r\n\r\n   5. Duplication of fields from the preceding card is accomplished by coding\r\n      an equal sign (=) in the appropriate field.\r\n\r\n   6. Two equal signs (==) indicate duplication of all the trailing fields\r\n      from the preceding card.\r\n\r\n   7. Increment of a value from the previous input card is indicated by coding\r\n      *(i), where i is the value of the increment (integer or floating point\r\n      number) and * is the increment character. This feature is dependent on\r\n      the field in the input card.\r\n\r\n   8. Increment of a value from the previous input card to an ending value is\r\n      indicated by coding %(E), where E is the ending value (integer or\r\n      floating point number) in the last card to be generated, and % is the\r\n      ending character. This feature is also field dependent.\r\n\r\n   9. Repeated duplication is indicated by coding =(N), where N is the number\r\n      of card images to be generated using the value of the increment on the\r\n      preceding card (or current card) by *(i), or the computed incremental\r\n      value on the preceding card by %(E). The last generated card is also\r\n      displayed on the terminal screen if the prompt option (see rule 16\r\n      below) has been turned on.\r\n\r\n   10.  A field index and value can be coded by n)X, where n is the field\r\n        index and X the value.\r\n\r\n   11.  The symbol )+ is equivalent to 10)+, where 10 is the tenth field of\r\n        the input card, which is normally the continuation ID field.\r\n\r\n   12.  A right parenthesis ) in column 1 indicates the duplication of the\r\n        tenth field of the preceding card into the first field of the current\r\n        card being generated.\r\n\r\n   13.  The continuation ID (in field 1 or 10) is automatically increased (by\r\n        1) in the repeated-duplication operation. The ID must be in the form\r\n        of +A-X, where A is one or more alphanumeric characters preceded by a\r\n        plus and followed by a minus sign. X is an unsigned integer to be\r\n        used as the initial value for the increment. A maximum of 8\r\n        characters (including signs) is allowed, with no embedded blanks. An\r\n        \"=(1)\" in the first input field is needed for single card\r\n        duplication.\r\n\r\n   14.  Data in field 10, not in the form of +A-X, is replaced by blanks\r\n        during the repeated-duplication operation.\r\n\r\n   15.  If a continuation card follows the parent card immediately in\r\n        free-field input, the continuation ID's in both the parent and the\r\n        child cards are optional. However, the child card must begin with a\r\n        comma, for example\r\n\r\n      CORD2C, 3  17 -2.9  1.0  0.0  3.6\r\n      ,  5.2  1.0   -2.9\r\n\r\n   16.  The ECHO card (described in the Case Control section, see Section\r\n        2.3) can be input (or redefined) at any time during the free-field\r\n        input session.\r\n\r\n   17.  A new option, ECHO = LINK1, can be entered at any time to alter the\r\n        NASTRAN execution sequence to that of link-one-only, and to skip\r\n        BANDIT grid-point resequencing.\r\n\r\n   18.  A prompt command -- PROMPT = ON, PROMPT = OFF, or PROMPT = YES\r\n        (default) -- can be entered at any time during the free-field input\r\n        session so that the computer will display, or not display, on the\r\n        terminal screen a prompt symbol (either a \">\" or \"ENTER:\") when it is\r\n        ready to receive input data. The PROMPT = YES command will also\r\n        display the generated card image on the screen in addition to the\r\n        prompt symbol.\r\n\r\n   19.  Floating point numbers in the forms of 12300., 1.23E+04, or 1.23+4\r\n        are acceptable. Twelve digits can be used for maximum accuracy. For\r\n        example, 1234567890.1 is more accurate than 0.123456D+10.\r\n\r\n   20.  When not in free-field input mode, NASTRAN accepts only upper-case\r\n        input cards. However, free-field input accepts both upper-case and\r\n        lower-case letters. If lower-case letters are used in the free-field\r\n        input, the first 8 columns of an input card must contain at least one\r\n        lower-case letter. This triggers the free-field routine to convert\r\n        all lower-case letters in that card to upper-case automatically.\r\n        Otherwise, no such conversion takes place. (See Example 6 in Section\r\n        2.4.1.2.1.)\r\n\r\n   21.  Both BCD and EBCDIC character sets are acceptable. This is required\r\n        for some computers (for example, IBM) with EBCDIC input cards.\r\n\r\n   22.  The dollar sign ($) can be used freely as described elsewhere in\r\n        Section 2.\r\n\r\n   23.  Embedded blanks are not allowed in any double-character free-field\r\n        input commands such as:\r\n\r\n        =(   *(   %(   )+   ==\r\n\r\n   24.  Embedded blanks are not allowed in field 10, which is sometimes used\r\n        as a comment field.\r\n\r\n   25.  A slash (/), with or without a separator of comma or blank, indicates\r\n        that the current field is the same as the previous field, for example\r\n\r\n        =(10),*(1),///   equals   =(10),*(1),*(1),*(1),*(1)\r\n\r\n   26.  A \"NASTRAN TITLEOPT = -2\" card is recommended to be the very first\r\n        line of input for all terminal users executing only LINK1 (see rule\r\n        15 above). It suppresses the printout of the NASTRAN title pages on\r\n        the screen. This card is required for UNIVAC terminal users executing\r\n        LINK1; it also reassigns the alternate print file (the log-message\r\n        file) to avoid system crashing.\r\n\r\n   A stand-alone version of NASTRAN free-field input is available to you by\r\nexecuting NASTRAN LINKFF. It has all of the features described above except\r\nfor the following changes:\r\n\r\n   1. The ECHO command is not available in this version.\r\n\r\n   2. Two additional commands are available only in this version. They are:\r\n\r\n      a.SCALE/8 or SCALE/10 - to display a scale based on 8-column or\r\n        10-column format on the screen to aid in input spacing.\r\n\r\n      b.CANCEL = n - to cancel n previously generated cards.\r\n\r\n   3. The punch option and catalog file (to save generated card images) are\r\n      set at the beginning of this version.\r\n\r\n2.4.1.2.1  Free-Field Input Examples\r\n\r\nThe following examples illustrate the use of free-field input.\r\n\r\nExample 1\r\n\r\n   GRID, 2, 3, 1.0 2.0,, 4,316\r\n\r\n   =, *(1), =, *(.2), == $\r\n\r\n   =(3)\r\n\r\n   The above free-field cards will generate the following bulk data cards in\r\nNASTRAN 8-column field format:\r\n\r\n    1       2       3       4       5       6       7       8       9      10\r\n--------++++++++--------++++++++--------++++++++--------++++++++--------++++++++\r\nGRID    2       3       1.0     2.0             4       316\r\nGRID    3       3       1.2     2.0             4       316\r\nGRID    4       3       1.4     2.0             4       316\r\nGRID    5       3       1.6     2.0             4       316\r\nGRID    6       3       1.8     2.0             4       316\r\n\r\nExample 2\r\n\r\n   grid,2,3,1.0,2.0,,4,316\r\n\r\n   =(4),*(1),=,%(1.8),==\r\n\r\n   The above cards will generate the same bulk data cards as in Example 1.\r\n\r\nExample 3\r\n\r\n   Grid, 2 3 1.0 2.0, 7) 4, 316\r\n\r\n   This example will generate only one card. This will be the same as the\r\nfirst card in Example 1.\r\n\r\nExample 4\r\n\r\n   Tabled3,62, 126.9, 30.0 10)+abc\r\n\r\n   ),  1.23e+4,  5.67+8, 1234567. endt\r\n\r\n   This example will generate the following bulk data cards:\r\n\r\n    1       2       3       4       5       6       7       8       9      10\r\n--------++++++++--------++++++++--------++++++++--------++++++++--------++++++++\r\n\r\nTABLED3 62      126.9   30.0                                            +ABC\r\n\r\n+ABC    1.23E+4 5.67+8  1234567.ENDT\r\n\r\nExample 5\r\n\r\n   taBLed3, 62 126.9 30.0 )+aBc\r\n\r\n   This example will generate only one card. This will be the same as the\r\nfirst card in Example 4.\r\n\r\nExample 6\r\n\r\n   This is only a test\r\n\r\n   THIS IS only a test\r\n\r\n   This, is only a test\r\n\r\n   The different results of the above three (3) input lines are shown by the\r\nfollowing generated card images:\r\n\r\n    1       2       3       4       5       6       7       8       9      10\r\n--------++++++++--------++++++++--------++++++++--------++++++++--------++++++++\r\n\r\nTHIS IS ONLY A TEST\r\n\r\nTHIS IS only a test\r\n\r\nTHIS    IS      ONLY    A       TEST\r\n\r\nExample 7\r\n\r\n   PBAR, 3, 4, 5.0 , 6.0, )+ABC-1\r\n\r\n   = , *(1), =, *(2.)  ==\r\n\r\n   =(2)\r\n\r\n   +ABC-1, 7.7  8.8  9  )+DEF-22\r\n\r\n   =(3),==\r\n\r\n   This example will generate the following eight (8) cards with continuation\r\nID fields automatically increased by 1.\r\n\r\n    1       2       3       4       5       6       7       8       9      10\r\n--------++++++++--------++++++++--------++++++++--------++++++++--------++++++++\r\n\r\nPBAR    3       4       5.0     6.0                                     +ABC-1\r\nPBAR    4       4       7.0     6.0                                     +ABC-2\r\nPBAR    5       4       9.0     6.0                                     +ABC-3\r\nPBAR    6       4       11.0    6.0                                     +ABC-4\r\n+ABC-1  7.7     8.8     9                                               +DEF-22\r\n+ABC-2  7.7     8.8     9                                               +DEF-23\r\n+ABC-3  7.7     8.8     9                                               +DEF-24\r\n+ABC-4  7.7     8.8     9                                               +DEF-25\r\n\r\nExample 8\r\n\r\n   CQUAD2,    101     1      11   12  16  15\r\n\r\n   CQUAD2,    102     1      12   13  17  16\r\n\r\n   CQUAD2,    103     1      13   14  18  17\r\n\r\n   This example shows the combination of free-field and tabulation input. The\r\nrequirement of 8 columns per field does not apply here.\r\n\r\nExample 9\r\n\r\n   This example lists the input data using free-field bulk data cards used in\r\nNASTRAN Demonstration Problem No. D01-06-2A. It gives the same sorted input\r\ndata as NASTRAN Demonstration Problem No. D01-06-1A, which uses the standard\r\nfixed-field bulk data cards.\r\n\r\nID D01062A,NASTRAN\r\nAPP     DISP\r\nSOL     1,1\r\nTIME    5\r\nCEND\r\nTITLE = SOLID DISC WITH RADIALLY VARYING THERMAL LOAD (FREE-FIELD)\r\nSUBTITLE = NASTRAN DEMONSTRATION PROBLEM NO. D01-06-2A\r\nLABEL = TRAPEZOIDAL RING ELEMENTS\r\nECHO  = BOTH\r\nSPC   = 16\r\nTEMPERATURE(LOAD) = 16\r\n    OUTPUT\r\n    SET 1 = 1,3,5,7,9,11,13,15,17,19,21,23,25,26\r\n    DISP  = 1\r\n    ELSTRESS =  ALL\r\nBEGIN BULK\r\nCTRAPRG, 1,1,3,4,2,.0,12\r\n=(11), *(1) *(2),///, ==\r\nGRDSET, 8)2456\r\nGRID,1,,.0\r\n=(3),*(2),,*(.005)\r\nGRID,2,,.0,,.01\r\n=(3),*(2),,*(.005),==\r\nGRID,9,,.02\r\n=(8),*(2),,%(.10)\r\nGRID,10,,.02,,.01\r\n=(8),*(2),,%(.10),==\r\nMAT1,12,1.0+7,,.3,.2587-3,1.0-7,.0\r\nSPC,16,1,13,.0,2,1,.0\r\nTEMP,16,1,100.,2,100.,3,99.75\r\n=,=,4,99.75,5,99.0,6,99.0\r\n=,=,7,97.75,8,97.75,9,96.0\r\n=,=,10,96.0,11,91.0,12,91.0\r\n=,=,13,84.0,14,84.0,15,75.0\r\n=,=,16,75.0,17,64.0,18,64.0\r\n=,=,19,51.0,20,51.0,21,36.0\r\n=,=,22,36.0,23,19.0,24,19.0\r\n=,=,25,.0,26,.0\r\nENDDATA\r\n\r\n2.4.2  Bulk Data Card Descriptions\r\n\r\n   The detailed descriptions of the bulk data cards are contained in this\r\nsection in alphabetical order. For details pertaining to the use of each card\r\nand for a discussion of the cards in functional groups, you are referred to\r\nSection 1, Structural Modeling. Small field examples are given for each card\r\nalong with a description of the contents of each field. In the Format and\r\nExample section of each card description, both a symbolic card format\r\ndescription and an example of an actual card are shown. Literal constants are\r\nshown in the card format section enclosed in quotes (for example, \"0\"). Fields\r\nthat are required to be blank are indicated in the card format section by a\r\nblank box.\r\n\r\n   The Input File Processor will produce error messages for any cards that do\r\nnot have the proper format or that contain illegal data.\r\n\r\n   Continuation cards need not be present unless they contain required data.\r\nIn the case of multiple continuation cards, the intermediate cards must be\r\npresent (even though fields 2-9 are blank), if one of the following cards\r\ncontains data in fields 2-9. In addition, a double field format requires at\r\nleast two cards (or subsequent multiples of two) so that 10 data fields are\r\nincluded. Thus, one or more double field cards may contain no data.\r\n=PAGE=\r\n$ - Comment\r\n\r\nDescription\r\n\r\nComment cards are for user convenience in inserting commentary material into\r\nthe unsorted echo of the input Bulk Data Deck. The $ card is otherwise ignored\r\nby the program. These cards will not appear in a sorted echo nor will they\r\nexist on the New Problem Tape.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\n$       followed  by any legitimate characters in card columns 2-80          \r\nĴ\r\n$       THIS ISA REMARK (*,'$$-+/                                     \r\n\r\n=PAGE=\r\n/ - Delete\r\n\r\nDescription\r\n\r\nDelete cards are used to remove cards from either the Old Problem Tape on\r\nrestart or the User's Master File.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\n/          K1     K2                                                 \r\nĴ\r\n/          4                                                         \r\n\r\n\r\nField      Contents\r\n\r\nK1         Sorted sequence number of first card in sequence to be removed.\r\n\r\nK2         Sorted sequence number of last card in sequence to be removed.\r\n\r\nRemarks\r\n\r\n1. The delete card causes bulk data cards having sort sequence numbers K1\r\n   through K2 to be removed from the Bulk Data Deck.\r\n\r\n2. If K2 is blank, only card K1 is removed from the Bulk Data Deck.\r\n\r\n3. If neither an Old Problem Tape nor a User's Master File is used in the\r\n   current execution, the delete cards are ignored.\r\n=PAGE=\r\nADUMi - Dummy Element Attributes\r\n\r\nDescription\r\n\r\nDefines attributes of the dummy elements (1 <= i <= 9).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nADUMi     NG     NC     NP     ND                                    \r\nĴ\r\nADUM2      8      2      1      3                                    \r\n\r\n\r\nField      Contents\r\n\r\nNG         Number of grid points connected by DUMi dummy element (Integer >\r\n           0).\r\n\r\nNC         Number of additional entries on CDUMi connection card (Integer >=\r\n           0).\r\n\r\nNP         Number of additional entries on PDUMi property card (Integer >=\r\n           0).\r\n\r\nND         Number of displacement components at each grid point used in\r\n           generation of differential stiffness matrix (Integer 3 or 6).\r\n=PAGE=\r\nAEFACT - Aerodynamic Spanwise Divisions\r\n\r\nDescription\r\n\r\nUsed to specify box division points for flutter analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAEFACT    SID    D1     D2     D3     D4     D5     D6     D7   ABC  \r\nĴ\r\nAEFACT    97     .3     .7     1.0                                   \r\n\r\nĿ\r\n+BC       D8     D9    -etc.-                                        \r\n\r\n                                                                     \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nAEFACT   SID    D1     THRU   DND    ND     DMID                     \r\nĴ\r\nAEFACT   201   .200    THRU   .100   11    .133333                   \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (unique Integer > 0).\r\n\r\nDi         Division point (Real).\r\n\r\nRemarks\r\n\r\n1. These factors must be selected by a CAEROi or PAEROi data card to be used\r\n   by NASTRAN.\r\n\r\n2. Imbedded blank fields are forbidden.\r\n\r\n3. If used to specify box division points, note that there is one more\r\n   division point than the number of boxes.\r\n\r\n4. For the alternate form, ND must be greater than 1. Dmid must lie between D1\r\n   and DND, otherwise Dmid will be set to (D1 + DND)/2. Then\r\n\r\n        D (D  -D   )(ND-i) + D  (D   -D )(i-1)\r\n         1  ND  mid           ND  mid  1\r\n   D  =  i = 1,2,...,ND\r\n    i   (D  -D   )(ND-i) + (D   -D )(i-1)\r\n          ND  mid            mid  1\r\n\r\n   The use of Dmid (middle point selection) allows unequal spacing of the\r\n   points. Dmid = 2D1DND/(D1+DND) gives equal values to increments of the\r\n   reciprocal of D1.\r\n=PAGE=\r\nAERO - Aerodynamic Physical Data\r\n\r\nDescription\r\n\r\nGives basic aerodynamic parameters.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAERO    ACSID  VEL    REFC   RHOREF SYMXZ  SYMXY                     \r\nĴ\r\nAERO    3      1.3+4  100.   1.-5          1                         \r\n\r\n\r\nField      Contents\r\n\r\nACSID      Aerodynamic coordinate system identification (Integer >= 0). See\r\n           Remark 2.\r\n\r\nVEL        Velocity (Real).\r\n\r\nREFC       Reference length (for reduced frequency) (Real).\r\n\r\nRHOREF     Reference density (Real).\r\n\r\nSYMXZ      Symmetry key for aero coordinate x-z plane (Integer) (+1 for\r\n           symmetry, 0 for no symmetry, -1 for anti-symmetry).\r\n\r\nSYMXY      Symmetry key for aero coordinate x-y plane can be used to simulate\r\n           ground effects (Integer), same code as SYMXZ.\r\n\r\nRemarks\r\n\r\n1. This card is required for aerodynamic response problems. Only one AERO card\r\n   is allowed.\r\n\r\n2. The ACSID must be a rectangular coordinate system. Flow is in the positive\r\n   x direction.\r\n=PAGE=\r\nASET - Selected Coordinates\r\n\r\nDescription\r\n\r\nDefines coordinates (degrees of freedom) to be placed in the analysis set.\r\nUsed to define the number of independent degrees of freedom.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\n ASET      ID     C      ID     C      ID     C      ID     C        \r\nĴ\r\n ASET      16     2      23   3516                   1      4        \r\n\r\n\r\nField      Contents\r\n\r\nID         Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number, zero or blank for scalar points, any unique\r\n           combination of the digits 1 - 6 for grid points.\r\n\r\nRemarks\r\n\r\n1. Coordinates specified on ASET cards may not be specified on OMIT, OMIT1,\r\n   ASET1, SPC, or SPC1 cards, nor may they appear as dependent coordinates in\r\n   multipoint constraint relations (MPC), nor as rigid elements (CRIGD1,\r\n   CRIGD2, CRIGD3, CRIGDR), nor as permanent single-point constraints on a\r\n   GRID card.\r\n\r\n2. As many as 24 coordinates may be placed in the analysis set by a single\r\n   card.\r\n\r\n3. When ASET and/or ASET1 cards are present, all degrees of freedom not\r\n   otherwise constrained or referenced on a SUPORT card will be placed in the\r\n   O-set.\r\n\r\n4. ASET or OMIT data are not recommended for use in heat transfer analysis\r\n   with radiation effects.\r\n=PAGE=\r\nASET1 - Selected Coordinates\r\n\r\nDescription\r\n\r\nDefines coordinates (degrees of freedom) to be placed in the analysis set.\r\nUsed to define the number of independent degrees of freedom.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\n ASET1     C      G      G      G      G      G      G      G    abc \r\nĴ\r\n ASET1    345     2      1      3      10     9      6      5    ABC \r\n\r\nĿ\r\n  +bc      G      G      G    -etc.-                                 \r\nĴ\r\n  +BC      7      8                                                  \r\n\r\n                                -etc.-\r\n\r\nAlternate Form:\r\n\r\nĿ\r\n ASET1     C     ID1  \"THRU\"   ID2                                   \r\nĴ\r\n ASET1  123456    7   THRU     109                                   \r\n\r\n\r\nField      Contents\r\n\r\nC          Component number (any unique combination of the digits 1 - 6 [with\r\n           no imbedded blanks] when point identification numbers are grid\r\n           points; must be null or zero if point identification numbers are\r\n           scalar points).\r\n\r\nG, ID1, ID2Grid or scalar point identification numbers (Integer > 0, ID1 <\r\n           ID2).\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multipoint constraint relation (MPC card) nor as a degree\r\n   of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it\r\n   be referenced on an SPC, SPC1, OMIT, OMIT1, or ASET card, nor on a GRID\r\n   card as permanent single-point constraints.\r\n\r\n2. When ASET and/or ASET1 cards are present, all degrees of freedom not\r\n   otherwise constrained or referenced on a SUPORT card will be placed in the\r\n   O-set.\r\n\r\n3. If the alternate form is used, all of the grid (or scalar) points ID1\r\n   through ID2 are assumed.\r\n\r\n4. ASET or OMIT data are not recommended for use in heat transfer analysis\r\n   with radiation effects.\r\n=PAGE=\r\nAXIC - Axisymmetric Problem Flag\r\n\r\nDescription\r\n\r\nDefines the existence of a model containing CCONEAX, CTRAPAX, or CTRIAAX\r\nelements.\r\n\r\nFormat and Example\r\n\r\n     1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAXIC       H                                                         \r\nĴ\r\nAXIC       15                                                        \r\n\r\n\r\nField      Contents\r\n\r\nH          Highest harmonic defined for the problem (0 <= Integer <= 998).\r\n\r\nRemarks\r\n\r\n1. Only one (1) AXIC card is allowed. When the AXIC card is present, most\r\n   other cards are not allowed. The types which are allowed with the AXIC card\r\n   are listed below.\r\n\r\n   CCONEAX           GRAV          RLOAD1\r\n   CTRAPAX           LOAD          RLOAD2\r\n   CTRIAAX           MAT1          SECTAX\r\n   DAREA             MATT1         SPCADD\r\n   DELAY             MOMAX         SPCAX\r\n   DLOAD             MOMENT        SUPAX\r\n   DMI               MPCADD        TABDMP1\r\n   DMIG              MPCAX         TABLED1\r\n   DPHASE            NOLIN1        TABLED2\r\n   DSFACT            NOLIN2        TABLED3\r\n   EIGB              NOLIN3        TABLED4\r\n   EIGC              NOLIN4        TABLEM1\r\n   EIGP              OMITAX        TABLEM2\r\n   EIGR              PARAM         TABLEM3\r\n   EPOINT            PCONEAX       TABLEM4\r\n   FORCE             POINTAX       TEMPAX\r\n   FORCEAX           PRESAX        TF\r\n   FREQ              PTRAPAX       TIC\r\n   FREQ1             PTRIAAX       TLOAD1\r\n   FREQ2             RFORCE        TLOAD2\r\n                     RINGAX        TSTEP\r\n\r\n2. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n3. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n\r\n4. Machine bit limit may be exceeded on 32-bit word machines if H is greater\r\n   than 16.\r\n=PAGE=\r\nAXIF - Fluid Related Axisymmetric Parameters\r\n\r\nDescription\r\n\r\nDefines basic parameters and the existence of an axisymmetric fluid analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAXIF      CID     G    DRHO    DB    NOSYM    F                 abc  \r\nĴ\r\nAXIF       2    32.2   0.12   2.5+5   YES                       CARD1\r\n\r\nĿ\r\n+bc        N1    N2     N3     N4     N5     N6     N7     N8   def  \r\nĴ\r\n+ARD1      1      2      3             4             7     10        \r\n\r\n                                -etc.-\r\n\r\nAlternate Form of Continuation Card:\r\n\r\nĿ\r\n+bc        N1  \"THRU\"   Ni                                      def  \r\nĴ\r\n+ARD1      0    THRU    10                                           \r\n\r\n                                -etc.-\r\n\r\nAlternate Form of Continuation Card:\r\n\r\nĿ\r\n+bc        N1  \"THRU\"   Ni   \"STEP\"    NS                       def  \r\nĴ\r\n+ARD1      0    THRU     9    STEP     3                             \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nCID        Fluid coordinate system identification number (Integer > 0).\r\n\r\nG          Value of gravity for fluid elements in axial direction (Real).\r\n\r\nDRHO       Default mass density for fluid elements (Real > 0.0 or blank).\r\n\r\nDB         Default bulk modulus for fluid elements (Real).\r\n\r\nNOSYM      Request for nonsymmetric (sine) terms of series (BCD: YES or NO).\r\n\r\nF          Flag specifying harmonics (Blank - harmonic specified, or BCD\r\n           NONE).\r\n\r\nNn         Harmonic numbers for solution, an increasing sequence of integers.\r\n           On the standard continuation card blanks are ignored. On the\r\n           alternate form continuation cards, THRU implies all numbers\r\n           including upper and lower integer (Blank, or integer, 0 <= Nn <\r\n           100, or BCD: THRU or STEP).\r\n\r\nNS         Every NSth step of the harmonic numbers specified in the THRU\r\n           range is used for solution (Integer if field 5 is STEP, Ni =\r\n           I*NS+N1 where I is an integer).\r\n\r\nRemarks\r\n\r\n1. Only one (1) AXIF card is allowed.\r\n\r\n2. CID must reference a cylindrical or spherical coordinate system.\r\n\r\n3. Positive gravity (+G) implies that the direction of free fall is in the -Z\r\n   direction of the fluid coordinate system.\r\n\r\n4. The DRHO value replaces blank values of RHO on the FSLIST, BDYLIST, and\r\n   CFLUIDi cards.\r\n\r\n5. The DB value replaces blank values of B on the CFLUIDi cards. If the\r\n   CFLUIDi entry is blank and DB is zero or blank, the fluid is\r\n   incompressible.\r\n\r\n6. If NOSYM = YES, both sine and cosine terms are specified. If NOSYM = NO,\r\n   only cosine terms are specified.\r\n\r\n7. If F = NONE, no harmonics are specified, no fluid elements are necessary,\r\n   and no continuation cards may be present.\r\n\r\nExample\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAXIF      100   -386.0         0.0    NO                        +1   \r\nĴ\r\n+1         0    THRU    50    STEP     5                        +2   \r\nĴ\r\n+2         52                                                   +3   \r\nĴ\r\n+3         54   THRU    57                                      +4   \r\nĴ\r\n+4         61   THRU    65                                      +5   \r\nĴ\r\n+5         68           71            72     75                 +6   \r\nĴ\r\n+6         81    92                                             END  \r\n\r\n=PAGE=\r\nAXSLOT - Axisymmetric Slot Analysis Parameter\r\n\r\nDescription\r\n\r\nDefines the harmonic index and the default values for acoustic analysis cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nAXSLOT  RHOD     BD      N      WD     MD                            \r\nĴ\r\nAXSLOT   0.003  1.5+2    3     0.75    6                             \r\n\r\n\r\nField      Contents\r\n\r\nRHOD       Default density of fluid-mass/volume (Real not equal 0.0 or\r\n           blank).\r\n\r\nBD         Default bulk modulus of fluid = (force/volume ratio change) (Real\r\n           >= 0.0 or blank).\r\n\r\nN          Harmonic index number (Integer >= 0).\r\n\r\nWD         Default slot width (Real >= 0.0 or blank).\r\n\r\nMD         Default number of slots (Integer >= 0 or blank).\r\n\r\nRemarks\r\n\r\n1. No more than one AXSLOT card is permitted.\r\n\r\n2. The default values are used on the GRIDS, SLBDY, CAXIFi, and CSLOTi data\r\n   cards and must be nonzero as noted if these cards use the default.\r\n\r\n3. The harmonic index number N must be entered on this card.\r\n\r\n4. If the number of slots, M, is different in different regions of the cavity,\r\n   this fact may be indicated on the CSLOTi and SLBDY cards. If the number of\r\n   slots is zero, no matrices for CSLOTi elements are generated.\r\n\r\n5. A zero entry for bulk modulus is treated as if the fluid were\r\n   incompressible.\r\n=PAGE=\r\nBAROR - Simple Beam Orientation Default\r\n\r\nDescription\r\n\r\nDefines default values for fields 3 and 6-9 of the CBAR card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBAROR            PID                X1,GO     X2     X3     F        \r\nĴ\r\nBAROR             39                  0.6    2.9   -5.87    1        \r\n\r\n\r\nField      Contents\r\n\r\nPID        Identification number of PBAR property card (Integer > 0 or\r\n           blank).\r\n\r\nX1, X2, X3 Vector components measured in displacement coordinate system at GA\r\n           to determine (with the vector from end A to end B) the orientation\r\n           of the element coordinate system for the bar element (Real or\r\n           blank; see below).\r\n\r\nGO         Grid point identification number (Integer > 0; see below).\r\n\r\nF          Flag to specify the nature of fields 6-8 as follows:\r\n\r\nĿ\r\n          6      7      8   \r\nĴ\r\n F = 1    X1     X2     X3  \r\nĴ\r\n F = 2    GO   blank  blank \r\n\r\n\r\nRemarks\r\n\r\n1. The contents of fields on this card will be assumed for any CBAR card whose\r\n   corresponding fields are blank.\r\n\r\n2. Only one BAROR card may appear in your Bulk Data Deck.\r\n\r\n3. For an explanation of bar element geometry, see Section 1.3.2.\r\n\r\n4. If F = 2, GO must be given even though it may be overridden on every CBAR\r\n   card.\r\n\r\n5. (Pre-1989 NASTRAN version) If F field is to be specified, at least one\r\n   other field must be non-zero.\r\n\r\n6. Since 1990 NASTRAN version, the F field is no longer required on a CBAR\r\n   card. This makes the use of the BAROR card unnecessary.\r\n=PAGE=\r\nBDYC - Combination of Substructure Boundary Sets\r\n\r\nDescription\r\n\r\nDefines a combination of boundary sets by basic substructure to define a set\r\nof grid points and components which may be used in a CREDUCE, MREDUCE, or\r\nREDUCE operation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBDYC       ID   NAME1   SID1  NAME2   SID2  NAME3   SID3        ghi  \r\nĴ\r\nBDYC      157  WINGRT    7    MIDWG    15  FUSELAG   32         GHI  \r\n\r\nĿ\r\n+hi             NAMEi   SIDi                 -etc.-                jkl  \r\nĴ\r\n+HI             POD1   175   WINGRT    15   CABIN   16               \r\n\r\n\r\nField      Contents\r\n\r\nID         Identification number of combination boundary set (Integer > 0).\r\n\r\nNAMEi      Name of basic substructure which contains the grid points defined\r\n           by boundary set SIDi (BCD).\r\n\r\nSIDi       Identification number of the boundary set associated with basic\r\n           substructure NAMEi (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Boundary sets must be selected in the Substructure Control Deck (BOUNDARY =\r\n   ID) to be used by NASTRAN. Note that \"BOUNDARY\" is a subcommand of the\r\n   substructure CREDUCE, MREDUCE, and REDUCE commands.\r\n\r\n2. The same substructure name may appear more than once per set.\r\n\r\n3. The SIDi numbers need not be unique. The same number could appear for\r\n   different component structures.\r\n\r\n4. The SIDi numbers reference the set IDs of BDYS and BDYS1 cards.\r\n\r\n5. The ID number must be unique with respect to all other BDYC data cards.\r\n\r\n6. After two or more basic substructures are combined, the connected degrees\r\n   of freedom are actually the same and may be referenced with any one of the\r\n   substructure names. Redundant specification is allowed.\r\n=PAGE=\r\nBDYLIST - Fluid Boundary List\r\n\r\nDescription\r\n\r\nDefines the boundary between a fluid and a structure.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBDYLIST  RHO    IDF1   IDF2   IDF3   IDF4   IDF5   IDF6   IDF7  abc  \r\nĴ\r\nBDYLIST  .037   432    325    416    203    256    175    153   345A \r\n\r\nĿ\r\n+bc      IDF8   -etc.-                                          def  \r\nĴ\r\n+45A      101    105   AXIS                                          \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nRHO        Fluid mass density at boundary (Real >= 0.0 or blank. Default on\r\n           AXIF card is used if blank.)\r\n\r\nIDFi       Identification number of a RINGFL point (Integer > 0 or BCD. AXIS\r\n           may be first and/or last entry on the logical card.)\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. Each logical card defines a boundary if RHO is not equal to 0.0. The order\r\n   of the points must be sequential with the fluid on the right with respect\r\n   to the direction of travel.\r\n\r\n3. The BCD word \"AXIS\" defines an intersection with the polar axis of the\r\n   fluid coordinate system.\r\n\r\n4. There may be as many BDYLIST cards as required. If the fluid density varies\r\n   along the boundary there must be one BDYLIST card for each interval between\r\n   fluid points.\r\n\r\n5. The BDYLIST card is not required and should not be used to specify a rigid\r\n   boundary where structural points are not defined. Such a boundary is\r\n   automatically implied by the omission of a BDYLIST.\r\n\r\n6. If RHO is 0.0, no boundary matrix terms will be generated to connect the\r\n   GRIDB points to the fluid. This option is a convenience for structural\r\n   plotting purposes. GRIDB points may be located on a fluid ring (RINGFL)\r\n   only if the rings are included in a BDYLIST.\r\n=PAGE=\r\nBDYS - Boundary Set Definition\r\n\r\nDescription\r\n\r\nThe BDYS card is used to define a boundary set of grid points and degrees of\r\nfreedom for a basic substructure. The boundary set is used in the substructure\r\nREDUCE, CREDUCE, and MREDUCE operations.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBDYS      SID    G1      C1    G2     C2      G3    C3               \r\nĴ\r\nBDYS       7     13   123456   15     123     17  123456             \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of BDYS set (Integer > 0).\r\n\r\nGi         Grid or scalar point identification number of a basic substructure\r\n           (Integer > 0).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nRemarks\r\n\r\n1. The set of boundary points defines the degrees of freedom which are to be\r\n   retained in the matrices after the substructure REDUCE, CREDUCE or MREDUCE\r\n   operation has been performed. An alternate input format is provided by the\r\n   BDYS1 card.\r\n\r\n2. The SID need not be unique.\r\n\r\n3. The BDYS card must be referenced by the BDYC card in order to attach the\r\n   basic substructure name to the boundary set specified on the BDYS card.\r\n   Note that the same BDYS boundary set may be attached to more than one basic\r\n   substructure name.\r\n=PAGE=\r\nBDYS1 - Boundary Set Definition\r\n\r\nDescription\r\n\r\nThe BDYS1 card is used to define a boundary set of grid points and degrees of\r\nfreedom for a basic substructure. The boundary set is used in the substructure\r\nREDUCE, CREDUCE, and MREDUCE operations.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBDYS1    SID     C       G1    G2     G3     G4     G5      G6  abc  \r\nĴ\r\nBDYS1     15   123456   275    276   THRU    457    589    102  ABC  \r\n\r\nĿ\r\n +bc      G7     G8        -etc.-       GN                            \r\nĴ\r\n +BC      103    105                 1275                            \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of BDYS1 set (Integer > 0).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nGi         Grid or scalar point identification number of a basic substructure\r\n           (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The set of boundary points defines the degrees of freedom which are to be\r\n   retained in the matrices after the substructure REDUCE, CREDUCE or MREDUCE\r\n   operation has been performed. An alternate format is provided by the BDYS\r\n   card.\r\n\r\n2. The THRU may appear in any field other than 2 and 9.\r\n\r\n3. The SID need not be unique.\r\n\r\n4. The BDYS1 card must be referenced by the BDYC card in order to attach the\r\n   basic substructure name to the boundary set specified on the BDYS card.\r\n   Note that the same BDYS boundary set may be attached to more than one basic\r\n   substructure name.\r\n=PAGE=\r\nBFIELD - Magnetic Induction Output\r\n\r\nDescription\r\n\r\nSpecifies coordinate system for magnetic induction output.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBFIELD    CID   EID1    EID2   EID3   EID4   EID5   EID6   EID7      \r\nĴ\r\nBFIELD     3     12      5      6                                    \r\n\r\n\r\nFirst Alternate Form:\r\n\r\nĿ\r\nBFIELD    CID    EID1 \"THRU\"   EID2                                  \r\nĴ\r\nBFIELD     5      8    THRU     27                                   \r\n\r\n\r\nSecond Alternate Form:\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nBFIELD    CID    -1                                                  \r\nĴ\r\nBFIELD     7     -1                                                  \r\n\r\n\r\nField      Contents\r\n\r\nCID        Coordinate system identification number (Integer > 0 or blank).\r\n\r\nEIDi       Element identification numbers of those elements whose magnetic\r\n           induction are to be output in coordinate system CID (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The magnetic induction of any element not specified on a BFIELD card will\r\n   be computed in the basic coordinate system. Therefore, no BFIELD cards are\r\n   necessary if CID = 0 for all elements.\r\n\r\n2. If the first alternate form of the card is used, all element identification\r\n   numbers between EID1 and EID2 need not exist, but sufficient core must be\r\n   available for 2(EID2 - EID1 + 1) words.\r\n\r\n3. The second alternate form of the card implies that the magnetic induction\r\n   values of all elements in the problem will be computed in coordinate system\r\n   CID.\r\n=PAGE=\r\nCAERO1 - Aerodynamic Panel Element Connection\r\n\r\nDescription\r\n\r\nDefines an aerodynamic macro element (panel) in terms of two leading edge\r\nlocations and side chords for Doublet-Lattice Theory.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAERO1   EID    PID    CP     NSPAN  NCHORD LSPAN  LCHORD IGID  ABC  \r\nĴ\r\nCAERO1   1000   1             3                    2      1     ABC  \r\n\r\nĿ\r\n +BC      X1     Y1      Z1    X12   X4     Y4     Z4     X43        \r\nĴ\r\n +BC      0.0    0.0    0.0    1.0   0.2    1.0    0.0    0.8        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (unique Integer > 0).\r\n\r\nPID        Identification number of property card (Integer > 0) to specify\r\n           associated bodies.\r\n\r\nCP         Coordinate system for locating points 1 and 4 (Integer >= 0).\r\n\r\nNSPAN      Number of spanwise boxes; if a positive value is given, equal\r\n           divisions are assumed; if zero or blank, a list of division points\r\n           follows (Integer >= 0).\r\n\r\nNCHORD     Number of chordwise boxes (same rule as for NSPAN).\r\n\r\nLSPAN      ID of an AEFACT data card containing a list of division points for\r\n           spanwise boxes. Used only if field 5 is zero or blank (Integer > 0\r\n           if NSPAN is zero or blank).\r\n\r\nLCHORD     ID of an AEFACT data card containing a list of division points for\r\n           chordwise boxes. Used only if field 6 is zero or blank (Integer >\r\n           0 if NCHORD is zero or blank).\r\n\r\nIGID       Interference group identification (aerodynamic elements with\r\n           different IGID's are uncoupled) (Integer > 0).\r\n\r\nX1,Y1,Z1;X4,Y4,Z4  Location of points 1 and 4, in coordinate system CP (Real).\r\n\r\nX12; X43   Edge chord length (in aerodynamic coordinate system) (Real >= 0,\r\n           and not both zero).\r\n\r\nRemarks\r\n\r\n                       Z                                      Y\r\n                        elem                                   elem\r\n                    1  **\r\n                        1000   1003    1006    4\r\n                       Ĵ\r\n                        1001   1004    1007   \r\n                       Ĵ\r\n                                              \r\n                                              \r\n                        1002   1005    1008   \r\n                                              \r\n                                              \r\n                                              \r\n                                              \r\n                    2  ** 3\r\n                       \r\n                       \r\n                       \r\n                       \r\n                         X     = X\r\n                          aero    elem\r\n\r\n\r\n1. The boxes are numbered sequentially, beginning with EID. You should be\r\n   careful to ensure that all box numbers are unique, and different from\r\n   structural grid ID's.\r\n\r\n2. The number of division points is one greater than the number of boxes.\r\n   Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If\r\n   you supply division points, the first and last points need not be 0. and 1.\r\n   (in which the corners of the panel would not be at the reference points).\r\n\r\n3. A triangular element is formed if X12 or X43 = 0.\r\n\r\n4. The element coordinate system (right-handed) is shown in the sketch.\r\n\r\n5. The continuation card is required.\r\n=PAGE=\r\nCAERO2 - Aerodynamic Body Connection\r\n\r\nDescription\r\n\r\nDefines an aerodynamic body for Doublet-Lattice aerodynamics.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAERO2  EID    PID    CP     NSB    NINT   LSB    LINT   IGID   ABC  \r\nĴ\r\nCAERO2  1500   2      100           4      99            1      abc  \r\n\r\nĿ\r\n+BC     X1     Y1     Z1     X12                                     \r\nĴ\r\n+bc     -1.0   100.   -30.   175.                                    \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number  (Integer > 0).\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nCP         Coordinate system for locating point 1 (Integer >= 0).\r\n\r\nNSB        Number of slender body elements; if a positive number is given,\r\n           NSB equal divisions are assumed; if zero or blank, see field 7 for\r\n           a list of divisions (Integer >= 0).\r\n\r\nNINT       Number of interference elements; if a positive number is given,\r\n           NINT equal divisions are assumed; if zero or blank, see field 8\r\n           for a list of divisions (Integer >= 0).\r\n\r\nLSB        ID of an AEFACT data card for slender body division points; used\r\n           only if field 5 is zero or blank (Integer >= 0).\r\n\r\nLINT       ID of an AEFACT data card containing a list of division points for\r\n           interference elements used only if field 6 is zero or blank\r\n           (Integer >= 0).\r\n\r\nIGID       Interference group identification (aerodynamic elements with\r\n           different IGID's are uncoupled) (Integer > 0).\r\n\r\nX1,Y1,Z1   Location of point 1 in coordinate system CP (Real).\r\n\r\nX12        Length of body in the x-direction of the aerodynamic coordinate\r\n           system (Real > 0).\r\n\r\nRemarks\r\n\r\n1. Point 1 is the leading point of the body.\r\n\r\n2. All CAERO1 (panels) and CAERO2 (bodies) in the same group (IGID) will have\r\n   aerodynamic interaction.\r\n\r\n3. Interference elements are optional, but if used at least one element is\r\n   required for each aerodynamic body specified by this card.\r\n\r\n4. Element identification numbers on the aerodynamic bodies must have the\r\n   following sequence:\r\n\r\n   a. CAERO1 panels first (lowest number)\r\n   b. Z-bodies (see PAERO2 ORIENTation flag)\r\n   c. ZY-bodies\r\n   d. Y-bodies (highest number)\r\n\r\n   and they must be unique with respect to all structural grid ID's.\r\n\r\n5. The total number of interference bodies associated with a panel is limited\r\n   to six.\r\n\r\n6. At least two slender body elements are required for every aerodynamic body\r\n   specified by this card.\r\n=PAGE=\r\nCAERO3 - Aerodynamic Mach Box Surface Connection\r\n\r\nDescription\r\n\r\nDefines the aerodynamic edges of a Mach Box lifting surface. If no cranks are\r\npresent, this card defines the aerodynamic Mach Box lifting surface.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAERO3   EID    PID     CP    LISTW  LISTC1 LISTC2              ABC  \r\nĴ\r\nCAERO3   2000   2001     0     22      33                       abc  \r\n\r\nĿ\r\n+BC      X1       Y1     Z1    X12    X4     Y4     Z4     X43       \r\nĴ\r\n+bc      1.0      0.0    0.0   100.   17.   130.    0.     100.      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nCP         Coordinate system for locating points 1 and 4 (Integer >= 0).\r\n\r\nLISTW      The ID of an AEFACT data card which lists (x,y) pairs of\r\n           structural interpolation grid points of the wing (Integer > 0).\r\n\r\nLISTC1,LISTC2  The ID of AEFACT data cards which list (x,y) pairs for controls\r\n           (if they exist) (Integers >= 0).\r\n\r\nX1,Y1,Z1;X4,Y4,Z4  Location of points 1 and 4 in coordinate system CP (Real).\r\n\r\nX12,X43    Edge chord lengths (in aerodynamic coordinate system) (Real >= 0,\r\n           X12 not equal 0.).\r\n\r\nRemarks\r\n\r\n1. The x,y pairs of LISTW, LISTC1, and LISTC2 (AEFACT) data cards are in the\r\n   aero element coordinate system.\r\n\r\n2. If cranks and/or control surfaces exist, their locations are given on the\r\n   PAERO3 data card.\r\n\r\n3. The numbering system and coordinate system are shown in Figure 2.4-1. The\r\n   following twelve points are defined for each Mach Box lifting surface.\r\n\r\n   Planform Corners\r\n\r\n   1. Leading edge, inboard\r\n   2. Trailing edge, inboard\r\n   3. Trailing edge, outboard\r\n   4. Leading edge, outboard\r\n\r\n   Cranks\r\n\r\n   5. Leading edge\r\n   6. Trailing edge\r\n\r\n   Control\r\n\r\n   7. Hinge line, inboard\r\n   8. On inboard edge (usually at trailing edge)\r\n   9. Hinge line, outboard\r\n   10. On outboard edge\r\n\r\n   Control (if two)\r\n\r\n   9. Hinge line, inboard\r\n   10. On inboard edge (usually at trailing edge)\r\n   11. Hinge line, outboard\r\n   12. On outboard edge (usually at trailing edge)\r\n\r\n                              5                  4\r\n        1 *** y\r\n                                                       elem\r\n                                              \r\n                +          +                  \r\n                                        +  LISTW grid points\r\n                                              \r\n             +             +                  \r\n                                              \r\n              7             9         11      \r\n               ***        \r\n                +        +  +   +          \r\n              8*         +  *10 +  + *12      \r\n        2 *ij*ij* 3\r\n                           6                          \r\n                                   LISTC2 grid points if control\r\n                          LISTC1 grid points surfaces exist\r\n           x     = x                                     \r\n            aero    elem\r\n\r\n             Figure 2.4-1. CAERO3 numbering and coordinate system\r\n=PAGE=\r\nCAERO4 - Aerodynamic Macro-Strip Element Connection\r\n\r\nDescription\r\n\r\nDefines an aerodynamic macro element for strip theory.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAERO4   EID    PID     CP    NSPAN  LSPAN                      ABC  \r\nĴ\r\nCAERO4   6000   6001   100            315                       abc  \r\n\r\nĿ\r\n+BC      X1      Y1      Z1    X12    X4     Y4     Z4     X43       \r\nĴ\r\n+bc      0.0     0.0     0.0   1.0    0.2    1.0    0.0    0.8       \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nCP         Coordinate system for locating points 1 and 4 (Integer >= 0).\r\n\r\nNSPAN      Number of strips; if a positive value is given, NSPAN equal strips\r\n           are assumed. If zero or blank, use LSPAN field (Integer >= 0).\r\n\r\nLSPAN      ID of an AEFACT data card containing a list of division points for\r\n           strips. Used only if field 5 is zero or blank (Integer > 0 if\r\n           NSPAN is zero or blank).\r\n\r\nX1,Y1,Z1;X4,Y4,Z4  Location of points 1 and 4 in coordinate system CP (Real).\r\n\r\nX12,X43    Edge chord lengths in aerodynamic coordinate system (Real >= 0,\r\n           and not both zero).\r\n\r\n\r\n           1 ** y\r\n                                                  4           elem\r\n                                                       \r\n                                                       \r\n       X                                               X\r\n        12                                              43\r\n                            Ĵ        \r\n                                                       \r\n           2 ** 3  \r\n                   \r\n                   \r\n                    x     = x\r\n                     aero    elem\r\n\r\nRemarks\r\n\r\n1. The strips are numbered sequentially, beginning with EID. You must ensure\r\n   that all strip numbers are unique and different from structural grid ID's.\r\n\r\n2. The number of division points is one greater than the number of boxes.\r\n   Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If\r\n   you supply division points, the first and last points need not be 0. and 1.\r\n   (In which case the corners of the panel would not be at the reference\r\n   points.)\r\n\r\n3. A triangular element is formed if X12 or X43 = 0.\r\n=PAGE=\r\nCAERO5 - Aerodynamic Macro-Piston Theory Element Connection\r\n\r\nDescription\r\n\r\nDefines an aerodynamic macro-element for piston theory.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAERO5   EID    PID     CP    NSPAN  LSPAN  NTHRY NTHICK        ABC  \r\nĴ\r\nCAERO5   6000   6001   100            315     0      0          abc  \r\n\r\nĿ\r\n+BC      X1      Y1      Z1    X12    X4     Y4     Z4     X43       \r\nĴ\r\n+bc      0.0     0.0     0.0   1.0    0.2    1.0    0.0    0.8       \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nCP         Coordinate system for locating points 1 and 4 (Integer >= 0).\r\n\r\nNSPAN      Number of strips; if a positive value is given, NSPAN equal strips\r\n           are assumed. If zero or blank, use LSPAN field.\r\n\r\nLSPAN      ID of an AEFACT data card containing a list of division points for\r\n           strips. Used only if field 5 is zero or blank (Integer > 0 if\r\n           NSPAN is zero or blank).\r\n\r\nNTHRY      Parameter to select the theory (Integer 0, blank, 1, or 2). See\r\n           Remark 4.\r\n\r\n           0  Use Piston Theory.\r\n           1  Use Van Dyke Theory (no sweep correction, sec(sweep angle) =\r\n              1.).\r\n           2  Use Van Dyke theory with sweep correction.\r\n\r\nNTHICK     Parameter to select thickness integrals input (Integer >= O or\r\n           blank).\r\n\r\n           0  Thickness integrals are computed internally.\r\n\r\n           >0 Thickness integrals are input directly and is the ID number of\r\n              AEFACT data card which lists the I and/or J integrals.\r\n\r\nX1,Y1,Z1;X4,Y4,Z4  Location of points 1 and 4 in coordinate system CP (Real).\r\n\r\nX12,X43    Edge chord lengths in aerodynamic coordinate system (Real >= 0,\r\n           and not both zero).\r\n\r\n\r\n           1 ** y\r\n                                                  4           elem\r\n                                                       \r\n                                                       \r\n       X                                               X\r\n        12                                              43\r\n                            Ĵ        \r\n                                                       \r\n           2 ** 3  \r\n                   \r\n                   \r\n                    x     = x\r\n                     aero    elem\r\n\r\n\r\nRemarks\r\n\r\n1. The strips are numbered sequentially, beginning with EID. You must ensure\r\n   that all strip numbers are unique and different from structural grid ID's.\r\n\r\n2. The number of division points is one greater than the number of boxes.\r\n   Thus, if NSPAN = 3, the division points are 0.0, 0.333, 0.667, 1.000. If\r\n   you supply division points, the first and last points need not be 0. and 1.\r\n   (in which the corners of the panel would not be at the reference points).\r\n\r\n3. A triangular element is formed if X12 or X43 = 0.\r\n\r\n4. Three separate piston theory formulations are available (see Section\r\n   1.11.2.5).\r\n\r\n5. I and J thickness integral definitions are shown in Figure 2.4-2. See\r\n   PAERO5 for a method to have these integrals computed internally.\r\n\r\n                                   \r\n\r\n                          dg\r\n                     g    = slope of airfoil semithickness\r\n                         d\r\n\r\n                     1                                 1\r\n              I  =     g d                     J  =      g d\r\n               1    0                           1        \r\n                                                         h\r\n                     1                                 1\r\n              I  =     g d                    J  =     g d\r\n               2    0                           2        \r\n                                                         h\r\n\r\n                     1                                 1\r\n              I  =     g d                   J  =     g d\r\n               3    0                           3         \r\n                                                         h\r\n\r\n                     1                                 1\r\n              I  =     gd                     J  =      gd\r\n               4    0                           4        \r\n                                                         h\r\n\r\n                     1                                 1\r\n              I  =     gd                    J  =     gd\r\n               5    0                           5        \r\n                                                         h\r\n\r\n                     1                                 1\r\n              I  =     gd                   J  =     gd\r\n               6    0                           6         \r\n                                                         h\r\n\r\n      Figure 2.4-2. CAERO5 I and J thickness integral definitions\r\n=PAGE=\r\nCAXIFi - Fluid Element Connections\r\n\r\nDescription\r\n\r\nDefines an axisymmetric fluid element which connects i = 2, i = 3, or i = 4\r\nfluid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCAXIF2    EID    IDF1   IDF2                 RHO     B               \r\nĴ\r\nCAXIF2     11     23     25                .25E-03                   \r\n\r\nĿ\r\nCAXIF3    EID    IDF1   IDF2   IDF3          RHO     B               \r\nĴ\r\nCAXIF3    105     31     32     33                 6.7E4             \r\n\r\nĿ\r\nCAXIF4    EID    IDF1   IDF2   IDF3   IDF4   RHO     B               \r\nĴ\r\nCAXIF4    524    421    425    424    422    .5-3  2.5+3             \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nIDFj       Identification numbers of connected GRIDF points, j = 1,2,...i\r\n           (Integer > 0).\r\n\r\nRHO        Fluid density in mass units (Real > 0.0 or blank).\r\n\r\nB          Fluid bulk modulus (Real >= 0.0 or blank).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXSLOT card is also present.\r\n\r\n2. The element identification number (EID) must be unique with respect to all\r\n   other fluid or structural elements.\r\n\r\n3. If RHO or B is blank the corresponding values on the AXSLOT data card are\r\n   used, in which case the default must not be blank (undefined).\r\n\r\n4. Plot elements are generated for these elements. Because each plot element\r\n   connects two points, one is generated for the CAXIF2 element, three are\r\n   generated for the CAXIF3 element, and four plot elements are generated for\r\n   the CAXIF4 element. In the last case the elements connect the pairs of\r\n   points (1-2), (2-3), (3-4), and (4-1).\r\n\r\n5. If B = 0.0, the fluid is considered to be incompressible.\r\n=PAGE=\r\nCBAR - Simple Beam Element Connection\r\n\r\nDescription\r\n\r\nDefines a simple beam element (BAR) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCBAR      EID    PID     GA    GB   X1 ,GO   X2      X3     F   abc  \r\nĴ\r\nCBAR       2      39     7      3     13                    2   123  \r\n\r\nĿ\r\n+bc       PA      PB    Z1A    Z2A    Z3A    Z1B    Z2B    Z3B       \r\nĴ\r\n+23              513                                                 \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PBAR property card (Default is EID\r\n           unless BAROR card has nonzero entry in field 3) (Integer > 0 or\r\n           blank). See BAROR card for default options.\r\n\r\nGA, GB     Grid point identification numbers of connection points (Integer >\r\n           0; GA not equal GB).\r\n\r\nX1, X2, X3 Components of vector v, at end a (Figure 1.3-1a in Section\r\n           1.3.2.1), measured at end a, parallel to the components of the\r\n           displacement coordinate system for GA, to determine (with the\r\n           vector from end a to end b) the orientation of the element\r\n           coordinate system for the bar element (Real, X1**2 + X2**2 + X3**2\r\n           > 0 or blank). See BAROR card for default options.\r\n\r\nGO         Grid point identification number to optionally supply X1, X2, X3\r\n           (integer > 0 or blank). See BAROR card for default options.\r\n\r\nF          Flag to specify the nature of fields 6-8 as follows:\r\n\r\n                           6       7       8\r\n           Ŀ\r\n           F = blank                          \r\n           Ĵ\r\n           F = 1        X1     X2       X3    \r\n           Ĵ\r\n           F = 2        GO   blank/0  blank/0 \r\n           \r\n\r\n           This F flag is optional (not required). See BAROR card for default\r\n           options.\r\n\r\nPA, PB     Pin flags for bar ends a and b, respectively, that are used to\r\n           insure that the bar cannot resist a force or moment corresponding\r\n           to the pin flag at that respective end of the bar. (Up to 5 of the\r\n           unique digits 1 - 6 anywhere in the field with no imbedded blanks;\r\n           integer > 0) (These degree of freedom codes refer to the element\r\n           forces and not global forces. The bar must have stiffness\r\n           associated with the pin flag. For example, if pin flag 4 is\r\n           specified, the bar must have a value for J, the torsional\r\n           constant.)\r\n\r\nZ1A,Z2A,Z3A;Z1B,Z2B,Z3B  Components of offset vectors wa and wb, respectively,\r\n           (see Figure 1.3-1a in Section 1.3.2.1) in displacement coordinate\r\n           systems at points GA and GB, respectively. (Real or blank).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. For an explanation of bar element geometry, see Section 1.3.2.\r\n\r\n3. Zero (0) must be used in fields 7 and 8 in order to override entries in\r\n   these fields associated with F = 1 in field 9 on a BAROR card.\r\n\r\n4. If there are no pin flags or offsets, the continuation card may be omitted.\r\n\r\n5. If bar offset vectors are present, NASTRAN plotting will plot the bar\r\n   connecting to the tip of the offset, not to the associating grid point.\r\n=PAGE=\r\nCCONEAX - Axisymmetric Shell Element Connection\r\n\r\nDescription\r\n\r\nDefines the connection of a conical shell element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCCONEAX   EID    PID    RA     RB                                    \r\nĴ\r\nCCONEAX    1      2      3      4                                    \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (1 <= Integer <= 9999).\r\n\r\nPID        Identification number of a PCONEAX card (default is EID) (Integer\r\n           > 0).\r\n\r\nRA         Identification number of a RINGAX card (Integer > 0; RA not equal\r\n           RB).\r\n\r\nRB         Identification number of a RINGAX card (Integer > 0; RA not equal\r\n           RB).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nCDAMP1 - Scalar Damper Connection\r\n\r\nDescription\r\n\r\nDefines a scalar damper element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCDAMP1    EID    PID    G1     C1     G2     C2                      \r\nĴ\r\nCDAMP1     19     6      0            23     2                       \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PDAMP property card (default is EID)\r\n           (Integer > 0).\r\n\r\nG1, G2     Geometric grid point identification number (Integer >= 0).\r\n\r\nC1, C2     Component number (6 >= Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CDAMP3 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n5. In heat transfer analysis, the CDAMP1 card may be used to define a lumped\r\n   thermal capacitance Q=BT (if connected to grid point S1).\r\n=PAGE=\r\nCDAMP2 - Scalar Damper Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar damper element of the structural model without reference to a\r\nproperty value.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCDAMP2    EID     B     G1     C1     G2     C2                      \r\nĴ\r\nCDAMP2     16  -2.98    32     1                                     \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nB          The value of the scalar damper (Real).\r\n\r\nG1, G2     Geometric grid point identification number (Integer >= 0).\r\n\r\nC1, C2     Component number (6 >= Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CDAMP4 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This single card completely defines the element since no material or\r\n   geometric properties are required.\r\n\r\n4. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n6. In heat transfer analysis the CDAMP2 card may be used to define a lumped\r\n   thermal capacitance Q=BT (if connected to grid point S1).\r\n=PAGE=\r\nCDAMP3 - Scalar Damper Connection\r\n\r\nDescription\r\n\r\nDefines a scalar damper element of the structural model which is connected\r\nonly to scalar points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCDAMP3    EID    PID    S1     S2     EID    PID    S1     S2        \r\nĴ\r\nCDAMP3     16    978    24     36      17    978    24     37        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PDAMP property card (default is EID)\r\n           (Integer > 0).\r\n\r\nS1, S2     Scalar point identification numbers (Integer >= 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2 may be blank or zero indicating a constrained coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. One or two scalar damper elements may be defined on a single card.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n5. In heat transfer analysis the CDAMP3 card may be used to define a lumped\r\n   thermal capacitance Q=BT (if connected to grid point S1).\r\n=PAGE=\r\nCDAMP4 - Scalar Damper Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar damper element of the structural model which is connected\r\nonly to scalar points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCDAMP4    EID     B     S1     S2     EID     B     S1     S2        \r\nĴ\r\nCDAMP4     16   -2.6    4      9       17   +8.6    3      7         \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nB          The scalar damper value (Real).\r\n\r\nS1, S2     Scalar point identification numbers (Integer >= 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2 may be blank or zero indicating a constrained coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This card completely defines the element since no material or geometric\r\n   properties are required.\r\n\r\n4. One or two scalar damper elements may be defined on a single card.\r\n\r\n5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n6. In heat transfer analysis the CDAMP4 card may be used to define a lumped\r\n   thermal capacitance Q=BT (if connected to grid point S1).\r\n=PAGE=\r\nCDUMi - Dummy Element Connection\r\n\r\nDescription\r\n\r\nDefines a dummy element (1 <= i <= 9).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCDUMi     EID    PID     G1    G2     G3     G4   -etc.-    GN  abc  \r\nĴ\r\nCDUM2     114    108      2     5      6      8             11  ABC  \r\n\r\nĿ\r\n +bc      A1     A2   -etc.-                 AN                      \r\nĴ\r\n +BC      2.4          3.E4     2            50                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PDUMi property card (Integer > 0).\r\n\r\nG1...GN    Grid point identification numbers of connection points (Integer >\r\n           0, G1 through GN must be unique).\r\n\r\nA1...AN    Additional entries (Real or Integer).\r\n\r\nRemarks\r\n\r\n1. You must code the associated element routines for matrix generation, stress\r\n   recovery, etc., and perform a link edit to replace the dummy routines.\r\n\r\n2. If no property card is required, field 3 may contain the material\r\n   identification number.\r\n\r\n3. Additional entries are defined in your element routines.\r\n=PAGE=\r\nCELAS1 - Scalar Spring Connection\r\n\r\nDescription\r\n\r\nDefines a scalar spring element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCELAS1    EID    PID     G1    C1     G2     C2                      \r\nĴ\r\nCELAS1     2      6                    8      1                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PELAS property card (default is EID)\r\n           (Integer > 0).\r\n\r\nG1, G2     Geometric grid point identification number (Integer > 0).\r\n\r\nC1, C2     Component number (6 >= Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CELAS3 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n5. In heat transfer analysis the CELAS1 card may be used to define a\r\n   conduction or convection between two points or to ground (Q = K*dT) where\r\n   dT is delta T.\r\n=PAGE=\r\nCELAS2 - Scalar Spring Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar spring element of the structural model without reference to a\r\nproperty value.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCELAS2    EID     K      G1    C1     G2     C2     GE      S        \r\nĴ\r\nCELAS2     28   6.2+3    32           19      4                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (0 < Integer <= 10**7 if\r\n           acoustic).\r\n\r\nK          The value of the scalar spring (Real).\r\n\r\nG1, G2     Geometric grid point identification number (Integer >= 0).\r\n\r\nC1, C2     Components number (6 >= Integer >= 0).\r\n\r\nGE         Damping coefficient (Real).\r\n\r\nS          Stress coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank of zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CELAS4 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This single card completely defines the element since no material or\r\n   geometric properties are required.\r\n\r\n4. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n6. In heat transfer analysis the CELAS2 card may be used to define a\r\n   conduction or convection between two points or to ground (Q = K*dT) where\r\n   dT is delta T.\r\n=PAGE=\r\nCELAS3 - Scalar Spring Connection\r\n\r\nDescription\r\n\r\nDefines a scalar spring element of the structural model which is connected\r\nonly to scalar points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCELAS3    EID    PID    S1     S2     EID    PID    S1     S2        \r\nĴ\r\nCELAS3     19     2     14     15      2      3     0      28        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PELAS property card (default is EID)\r\n           (Integer > 0).\r\n\r\nS1, S2     Scalar point identification numbers (Integer >= 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2 may be blank or zero indicating a constrained coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. One or two scalar springs may be defined on a single card.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n5. In heat transfer analysis the CELAS3 card may be used to define a\r\n   conduction or convection between two points or to ground (Q=K*dT) where dT\r\n   is delta T.\r\n=PAGE=\r\nCELAS4 - Scalar Spring Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar element of the structural model which is connected only to\r\nscalar points without reference to a property value.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCELAS4    EID     K     S1     S2     EID     K     S1     S2        \r\nĴ\r\nCELAS4     42   6.2-3    2             13   6.2-3   0       2        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nK          The scalar spring value (Real).\r\n\r\nS1, S2     Scalar point identification numbers (Integer >= 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2, but not both, may be blank or zero indicating a constrained\r\n   coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This card completely defines the element since no material or geometric\r\n   properties are required.\r\n\r\n4. No damping coefficient is available with this form. (Assumed to be 0.0.)\r\n\r\n5. No stress coefficient is available with this form.\r\n\r\n6. One or two scalar springs may be defined on a single card.\r\n\r\n7. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n\r\n8. In heat transfer analysis the CELAS4 card may be used to define a\r\n   conduction or convection between two points or to ground (Q=K*dT) where dT\r\n   is delta T.\r\n=PAGE=\r\nCELBOW - Curved Beam or Elbow Element\r\n\r\nDescription\r\n\r\nDefines a curved beam or elbow element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCELBOW    EID    PID    GA     GB      X1     X2     X3     1        \r\nĴ\r\nCELBOW     29     2      3     45     -1.0    0.0   0.0     1        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PELBOW property card (Integer > 0).\r\n\r\nGA, GB     Grid point identification numbers of connection points (Integer >\r\n           O; GA not equal GB).\r\n\r\nX1, X2, X3 Components of vector v at end A (see Figure 2.4-3 below), measured\r\n           at end A, parallel to the components of the displacement\r\n           coordinates for GA. Vector points the direction from GA to C\r\n           (center of curvature), and is used to orient the element\r\n           coordinate system for the ELBOW (real, X1**2 + X2**2 + X3**2 > 0).\r\n\r\nRemarks\r\n\r\n1. The product moment of inertia is neglected (I12 = 0). This assumes that at\r\n   least one axis of symmetry of the element cross section exists, for\r\n   example, tube, I-beam, channel, tee, etc.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. There are no pin flags or offsets permitted with the ELBOW element.\r\n\r\n4. The local element coordinate system is shown in Figure 2.4-3. Plane 1\r\n   contains the points GA and GB and the vector v. Plane 2 is normal to Plane\r\n   1 and contains the vector v.\r\n\r\n5. Element forces and stresses are oriented in the element coordinate system\r\n   at the A-end, and in a rotated coordinate system at the B-end which is\r\n   tangent to the curved beam at the B-end.\r\n\r\n6. Field 9 must always have an integer value of 1.\r\n\r\n             M\r\n    T         2b\r\n     b            V\r\n          2\r\n        F     M\r\n GB      xb    1b\r\n              \r\n           V   \r\n            1b \r\n                                                    X\r\n                                                     e\r\n                        Y         ->        M      \r\n                         e         v         1a     V      GA\r\n                 2\r\n           C   Center of                  M    V\r\n               Curvature                   2a       F         1a\r\n                                                     xa\r\n                                                    \r\n                                                    T\r\n                                                      a\r\n\r\n             Figure 2.4-3. CELBOW element local coordinate system\r\n=PAGE=\r\nCEMLOOP - Circular Current Loop\r\n\r\nDescription\r\n\r\nDefines a circular current loop in magnetic field problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCEMLOOP   SID     I     AXI    X1     Y1     Z1     X2      Y2  +a   \r\nĴ\r\nCEMLOOP    3     2.5     1     5.2    0.0   2.25                     \r\n\r\nĿ\r\n+a        Z2     XC     YC     ZC     CID                            \r\nĴ\r\n                                                                     \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nI          Current through loop (units of positive charge/sec) (Real > 0.0).\r\n\r\nAXI        = 0, nonaxisymmetric problem.\r\n           = 1, axisymmetric problem; TRAPRG and TRIARG elements are implied\r\n           (Integer).\r\n\r\nX1,Y1,Z1;X2,Y2,Z2  Coordinates of two points through which the loop passes \r\n           (given in coordinate system CID) (Real).\r\n\r\nXC, YC, ZC Coordinates of center of loop (given in coordinate system CID)\r\n           (Real).\r\n\r\nCID        Coordinate system identification number (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. If AXI = 1, Y1 must be 0.0 or blank, and all data fields after Z1 must be\r\n   0.0 or blank. (Continuation card need not be present.)\r\n\r\n3. CID must be 0 or blank.\r\n\r\n4. Points 1 and 2, (X1, Y1, Z1) and (X2, Y2, Z2), must be distinct and must be\r\n   equidistant from the center of the circle. Also, the center of the circle\r\n   and the two points must be non-collinear.\r\n\r\n5. The direction of current is assumed to be from point 1 to point 2.\r\n\r\n6. These computations involve elliptic integrals computed by an iterative\r\n   process with a default convergence criterion of 1.E-6. The criterion can be\r\n   changed with a PARAM bulk data card. At most 15,000 iterations are\r\n   performed. With these parameters, convergence will occur when an\r\n   integration or grid point is no closer to the loop than an amount equal to\r\n   2% of the radius. A convergence criterion of 1.E-5 will allow the point to\r\n   be much closer to the loop. If convergence fails, a message is output, and\r\n   the computations continue with the last iterated value. \r\n=PAGE=\r\nCFFREE - Free Fluid Surface\r\n\r\nDescription\r\n\r\nDefines the fluid elements composing the free fluid surface in a hydroelastic\r\nanalysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFFREE   EIDF   GRAVID FACE          EIDF   GRAVID FACE              \r\nĴ\r\nCFFREE    100    100    3             101    100    4                \r\n\r\n\r\nField      Contents\r\n\r\nEIDF       Fluid element identification number (Integer > 0) (see Remark 1).\r\n\r\nGRAVID     Identification number of a GRAV gravity vector set (Integer > 0).\r\n\r\nFACE       Identification number of the face of the fluid element, EIDF,\r\n           forming the free surface (0 < Integer <= 6) (see Remark 2).\r\n\r\nRemarks\r\n\r\n1. Allowable fluid element types are CFHEX1, CFHEX2, CFTETRA, and CFWEDGE.\r\n\r\n2. The numbering conventions for solid faces are defined in fluid element\r\n   connection bulk data card descriptions.\r\n=PAGE=\r\nCFHEXi - Fluid Hexahedral Element Connection\r\n\r\nDescription\r\n\r\nDefines two types of fluid hexahedral elements (three-dimensional solids with\r\neight vertices and six quadrilateral faces) to be used in hydroelastic\r\nanalysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFHEXi    EID    MID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCFHEX2     15    100     1      2      3      4      5      6   ABC  \r\n\r\nĿ\r\n+bc        G7     G8                                                 \r\nĴ\r\n+BC         7      8                                                 \r\n\r\n\r\nField      Contents\r\n\r\nCFHEXi     CFHEX1 or CFHEX2 (BCD) (see Remark 4).\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nG1,...,G8  Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G8 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. The numbering and order of the grid points and faces, required for\r\n   specifying free fluid surfaces, are defined in Figure 2.4-4.\r\n\r\n3. The quadrilateral faces must be nearly planar.\r\n\r\n4. CFHEX1 is developed by 5 tetrahedra, CFHEX2 by 10 overlapping tetrahedra.\r\n\r\n5. Material identification number must reference a MATF bulk data card.\r\n\r\n                                            F6 (TOP)\r\n                        G8                  /          G7\r\n                         Ŀ\r\n                        /                 /           /\r\n                       / |               /           / \r\n                      /            F4               /  \r\n                     /   |                      G6 /   \r\n                  G5Ŀ F3 \r\n                     F5 |_ _ _ _ _ _ _ _ _ _ _ _ _ _ \r\n                        /G4                          /G3\r\n                       /                            /\r\n                      /          F2                /\r\n                     /                   /        /\r\n                    /                   /        /\r\n                    \r\n                   G1                  /         G2\r\n                                      F1 (BOTTOM)\r\n\r\n                        Note: Fn indicates a face number\r\n\r\n            Figure 2.4-4. CFHEXi grid point identification numbers\r\n                                   \r\n=PAGE=\r\nCFLSTR - Fluid/Structure Interface\r\n\r\nDescription\r\n\r\nDefines fluid/structure interfaces in hydroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFLSTR   EIDF  GRAVID  EIDS1  EIDS2  EIDS3  EIDS4  EIDS5  EIDS6 abc  \r\nĴ\r\nCFLSTR    100    10      1      2     11     12     21     22   ABC  \r\n\r\nĿ\r\n+bc      EIDS7  EIDS8         -etc.-                            def  \r\nĴ\r\n+BC        31     32                                                 \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nCFLSTR   EIDF  GRAVID  EID1   \"THRU\" EID2                            \r\nĴ\r\nCFLSTR    200    100    101    THRU   106                            \r\n\r\n\r\nField      Contents\r\n\r\nEIDF       Fluid element identification number (Integer > 0) (see Remark 3).\r\n\r\nGRAVID     Identification number of a GRAV gravity vector set (Integer > 0).\r\n\r\nEIDSi, EIDiStructural element identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. As many continuation cards as desired may appear when THRU is not used.\r\n\r\n2. All element identification numbers between EID1 and EID2 must exist when\r\n   using the THRU option.\r\n\r\n3. Allowable fluid element types are CFHEX1, CFHEX2, CFTETRA, and CFWEDGE.\r\n=PAGE=\r\nCFLUIDi - Fluid Element Connections\r\n\r\nDescription\r\n\r\nDefines three types of fluid elements for axisymmetric fluid model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFLUID2   EID    IDF1   IDF2                 RHO     B               \r\nĴ\r\nCFLUID2   100     11     14                 .025    0.0              \r\n\r\nĿ\r\nCFLUID3   EID    IDF1   IDF2   IDF3          RHO     B               \r\nĴ\r\nCFLUID3   110     15     13     12           1.2                     \r\n\r\nĿ\r\nCFLUID4   EID    IDF1   IDF2   IDF3   IDF4   RHO     B               \r\nĴ\r\nCFLUID4   120     11     15     12     14                            \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element Identification number (Integer, 0 < Idc <  10**5).\r\n\r\nIDFi       Identification number of RINGFL card (Integer > 0; IDF1 through\r\n           IDF4 must be unique).\r\n\r\nRHO        Mass density (Real >  0.0 or blank; if blank, the AXIF default\r\n           value is used).\r\n\r\nB          Bulk modulus, pressure per volume ratio (Real or blank. Default\r\n           value on AXIF card is used if blank.)\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. Element identification number must be unique with respect to all other\r\n   fluid, scalar, and structural elements.\r\n\r\n3. The volume defined by IDFi is a body of revolution about the polar axis of\r\n   the fluid coordinate system defined by AXIF. CFLUID2 defines a thick disk\r\n   with IDF1 and IDF2 defining the outer corners as in Figure 2.4-5.\r\n\r\n4. All interior angles must be less than 180 degrees.\r\n\r\n5. The order of connected RINGFL points is arbitrary.\r\n\r\n6. If the bulk modulus value is zero the fluid is assumed incompressible.\r\n\r\n                                        15\r\n                                         *\r\n                                        /\\\r\n                                       /  \\\r\n                                     /    \\\r\n               Polar            14  /      \\\r\n               axis    *____________/120     \\      = 0.0\r\n                                   \\   F     \\\r\n                                    \\         \\\r\n                         100         \\   110   \\\r\n                            F         \\     F   \\\r\n                       ***\r\n                                     11 12       13\r\n                        Radius\r\n\r\n                       Figure 2.4-5. CFLUID2 coordinates\r\n=PAGE=\r\nCFTETRA - Fluid Tetrahedral Element Connection\r\n\r\nDescription\r\n\r\nDefines a fluid tetrahedral element (three-dimensional solid, with four\r\nvertices and four triangular faces) to be used in hydroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFTETRA   EID    MID    G1     G2     G3     G4                      \r\nĴ\r\nCFTETRA    25     6      1      2      3      4                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nG1,G2,G3,G4Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G4 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. The numbering of the grid points and faces, required for specifying free\r\n   fluid surfaces, is defined in Figure 2.4-6.\r\n\r\n3. Material identification number must reference a MATF bulk data card.\r\n\r\n                                         G4\r\n                                         *\r\n                                        /\\\r\n                                       /  \\  F4\r\n                                      /    \\/\r\n                                     /     /\\\r\n                                  G1*  F2    \\\r\n                                    \\ .       \\\r\n                                     \\  .  F3  \\\r\n                                      \\   .     \\\r\n                                       \\     .   \\\r\n                                         **\r\n                                        G2 |       G3\r\n                                           |\r\n                                           F1\r\n\r\n                        Note: Fn indicates a face number\r\n\r\n            Figure 2.4-6. CFTETRA grid point identification numbers\r\n=PAGE=\r\nCFTUBE - Fluid Tube Connection\r\n\r\nDescription\r\n\r\nDefines a fluid tube element of the heat transfer model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFTUBE    EID    PID    G1     G2                                    \r\nĴ\r\nCFTUBE    200     5      8     12                                    \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of PFTUBE property card (Integer > 0).\r\n\r\nG1, G2     Identification numbers of connected grid points (Integers > 0).\r\n\r\nRemarks\r\n\r\n1. The FTUBE element should only be used in nonlinear and transient heat\r\n   transfer analysis. Use in linear static analysis produces an unsymmetric\r\n   matrix which leads to incorrect results.\r\n\r\n2. The positive direction for flow is from G1 to G2.\r\n\r\n3. It is your responsibility to ensure flow continuity. There must be no\r\n   accumulation of fluid mass at any grid point.\r\n=PAGE=\r\nCFWEDGE - Fluid Wedge Element Connection\r\n\r\nDescription\r\n\r\nDefines a fluid wedge element (three-dimensional solid, with three\r\nquadrilateral faces and two opposing triangular faces) to be used in\r\nhydroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCFWEDGE   EID    MID    G1     G2     G3     G4     G5     G6        \r\nĴ\r\nCFWEDGE    25    100     1      2      3      4      5      6        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nG1,...,G6  Grid point identification numbers of connection points (Integers >\r\n           0; G1 through G6 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. The numbering of the grid points and faces, required for specifying free\r\n   fluid surfaces, is defined in Figure 2.4-7.\r\n\r\n3. The quadrilateral faces must be nearly planar.\r\n\r\n4. Material identification number must reference a MATF bulk data card.\r\n\r\n                        G4  __________ G6\r\n                           \\        /\r\n                            \\  F5  /ij F4\r\n                             \\    /  \r\n                           F2 \\G5/F3 \r\n                        G1   \\/   G3     Note: Fn indicates a face number\r\n                            \\        /\r\n                             \\      /\r\n                              \\   / F1\r\n                               \\  /\r\n                                \\/\r\n                                 *\r\n                                 G2\r\n\r\n            Figure 2.4-7. CFWEDGE grid point identification numbers\r\n=PAGE=\r\nCHBDY - Heat Boundary Element\r\n\r\nDescription\r\n\r\nDefines a boundary element for heat transfer analysis which is used for heat\r\nflux, thermal vector flux, convection, and/or radiation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCHBDY     EID    PID    TYPE   G1     G2     G3     G4          abc  \r\nĴ\r\nCHBDY     721    100    LINE   101    98                        +BD21\r\n\r\nĿ\r\n+bc       GA1    GA2    GA3    GA4    V1     V2     V3               \r\nĴ\r\n+BD21     102    102                 1.00    0.0    0.0              \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nTYPE       Type of area involved (must be one of POINT, LINE, REV, AREA3,\r\n           AREA4, or ELCYL).\r\n\r\nG1,...,G4  Grid point identification numbers of primary connected points\r\n           (Integer > 0 or blank).\r\n\r\nGA1,...,GA4Grid or scalar point identification numbers of associated ambient\r\n           points (Integer > 0 or blank).\r\n\r\nV1, V2, V3 Vector (in the basic coordinate system) used for element\r\n           orientation (real or blank).\r\n\r\nRemarks\r\n\r\n1. The continuation card is not required.\r\n\r\n2. The six types have the following characteristics:\r\n\r\n   a. The POINT type has one primary grid point and requires a property card,\r\n      and the normal vector (V1, V2, V3) must be given if thermal vector flux\r\n      is to be used.\r\n\r\n   b. The LINE type has two primary grid points and requires a property card,\r\n      and the vector is required if thermal vector flux is to be used.\r\n\r\n   c. The REV type has two primary grid points which must lie in the x-z plane\r\n      of the basic coordinate system with x > 0. The defined area is a conical\r\n      section with z as the axis of symmetry. A property card is required for\r\n      convection, radiation, or thermal vector flux.\r\n\r\n   d. The AREA3 and AREA4 types have three and four primary grid points,\r\n      respectively. These points define a triangular or quadrilateral surface\r\n      and must be ordered to go around the boundary. A property card is\r\n      required for convection, radiation, or thermal vector flux.\r\n\r\n   e. The ELCYL type (elliptic cylinder) has two connected primary grid points\r\n      and requires a property card, and if thermal vector flux is used, the\r\n      vector must be nonzero.\r\n\r\n3. A property card, PHBDY, is used to define the associated area factors, the\r\n   emissivity, the absorbivity, and the principal radii of the elliptic\r\n   cylinder. The material coefficients used for convection and thermal\r\n   capacity are referenced by the PHBDY card. See this card description for\r\n   details.\r\n\r\n4. The associated points, GA1, GA2, etc., may be either grid or scalar points,\r\n   and are used to define the fluid ambient temperature when a convection\r\n   field exists. These points correspond to the primary (CHBDY element) points\r\n   G1, G2, etc., and the number of them depends on the TYPE option, but they\r\n   need not be unique. Their values may be set in statics with an SPC card, or\r\n   they may be connected to other elements. If any field is blank, the ambient\r\n   temperature associated with that grid point is assumed to be zero.\r\n\r\n5. Heat flux may be applied to this element with QBDY1 or QBDY2 cards.\r\n\r\n6. Thermal vector flux from a directional source may be applied to this\r\n   element with a QVECT card. The orientation of the normal vector must be\r\n   defined. The grid point ordering establishes the normal vector direction as\r\n   end a to end b for line elements and right hand rule for cross product\r\n   elements. See Section 1.8 for the definition of the normal vector for each\r\n   element type.\r\n=PAGE=\r\nCHEXAi - Hexahedron Element Connection\r\n\r\nDescription\r\n\r\nDefines two types of hexahedron elements (3 dimensional solid with 8 vertices\r\nand 6 quadrilateral faces, HEXAi) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCHEXAi    EID    MID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCHEXA2     15     2      7      8      9     10     15     16   ABC  \r\n\r\nĿ\r\n+bc       G7     G8                                                  \r\nĴ\r\n+BC       17     18                                                  \r\n\r\n\r\nField      Contents\r\n\r\nCHEXAi     CHEXA1 or CHEXA2 (see Remark 7).\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nG1,...,G8  Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G8 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. The order at the grid points is: G1, G2, G3, G4 in order around one\r\n   quadrilateral face. G5, G6, G7, G8 are in order in the same direction\r\n   around the opposite quadrilateral, with G1 and G5 along the same edge.\r\n\r\n3. The quadrilateral faces must be nearly planar.\r\n\r\n4. There is no nonstructural mass.\r\n\r\n5. For structural problems, material must be defined by MAT1 card.\r\n\r\n6. Stresses are given in the basic coordinate system.\r\n\r\n7. CHEXA1 represents the element as 5 tetrahedra; CHEXA2 represents the\r\n   element as 10 overlapping tetrahedra.\r\n\r\n8. For heat transfer problems, material may be defined with either a MAT4 or\r\n   MAT5 card.\r\n\r\n                         G8                            G7\r\n                         **\r\n                        /|                            /\r\n                       /                             / \r\n                      /  |                          /  \r\n                     /                          G6 /   |\r\n                  G5**    \r\n                        *G4_ _ _ _ _ _ _ _ _ _ _ _ _ *G3\r\n                        /                            /\r\n                    |                             |   /\r\n                      /                            /\r\n                                                  /\r\n                    /                            /\r\n                  G1**G2\r\n\r\n            Figure 2.4-8. CHEXAi grid point identification numbers\r\n=PAGE=\r\nCIHEX1 - Linear Isoparametric Hexahedron Element Connection\r\n\r\nDescription\r\n\r\nDefines a linear isoparametric hexahedron element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCIHEX1    EID    PID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCIHEX1    137     5      3      8      5      4      9     14   ABC  \r\n\r\nĿ\r\n+bc       G7     G8                                                  \r\nĴ\r\n+BC       11     10                                                  \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPIP        Identification number of a PIHEX property card (Integer > 0).\r\n\r\nG1,...,G8  Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G8 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. Grid points G1, G2, G3, G4 must be given in counter-clockwise order about\r\n   one quadrilateral face when viewed from inside the element. G5, G6, G7, G8\r\n   are in order in the same direction around the opposite quadrilateral, with\r\n   G1 and G5 along the same edge.\r\n\r\n3. There is no non-structural mass.\r\n\r\n4. The quadrilateral faces need not be planar.\r\n\r\n5. Stresses are given in the basic coordinate system.\r\n\r\n                         G7                            G6\r\n                         **\r\n                        /|                            /\r\n                       /                             / \r\n                      /  |                          /  \r\n                     /                          G5 /   |\r\n                  G8**    \r\n                        *G3_ _ _ _ _ _ _ _ _ _ _ _ _ *G2\r\n                        /                            /\r\n                    |                             |   /\r\n                      /                            /\r\n                                                  /\r\n                    /                            /\r\n                  G4**G1\r\n\r\n            Figure 2.4-9. CIHEX1 grid point identification numbers\r\n=PAGE=\r\nCIHEX2 - Quadratic Isoparametric Hexahedron Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadratic isoparametric hexahedron element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCIHEX2    EID    PID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCIHEX2    110     7      3      8     12     13     14      9   ABC  \r\n\r\nĿ\r\n+bc       G7     G8     G9    G10    G11    G12    G13    G14   def  \r\nĴ\r\n+BC        5      4     16     19     20     17     23     27   DEF  \r\n\r\nĿ\r\n+ef      G15    G16    G17    G18    G19    G20                      \r\nĴ\r\n+EF       31     32     33     28     25     24                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PIHEX property card (Integer > 0).\r\n\r\nG1,...,G20 Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G20 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. Grid points G1,...,G8 must be given in counter-clockwise order about one\r\n   quadrilateral face when viewed from inside the element. G9,...,G12 and\r\n   G13,...,G20 are in the same direction with G1, G9 and G13 along the same\r\n   edge.\r\n\r\n3. There is no non-structural mass.\r\n\r\n4. The quadrilateral faces need not be planar.\r\n\r\n5. Stresses are given in the basic coordinate system.\r\n\r\n                         G17           G16             G15\r\n                         ***\r\n                        /                             /\r\n                       / |                        G14* \r\n                   G18*  *G11                       /  \r\n                     /   |         G20         G13 /   *G10\r\n                 G19***    \r\n                        *G5_ _ _ _ _ _*_ _ _ _ _ _ _ *G3\r\n                        /             G4             /\r\n                 G12*   *G6                       *G9 /\r\n                      /                            *G2\r\n                     /                            /\r\n                    /                            /\r\n                    ***\r\n                    G7            G8              G1\r\n\r\n            Figure 2.4-10. CIHEX2 grid point identification numbers\r\n=PAGE=\r\nCIHEX3 - Cubic Isoparametric Hexahedron Element Connection\r\n\r\nDescription\r\n\r\nDefines a cubic isoparametric hexahedron element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCIHEX3    EID    PID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCIHEX3     15     3      4      9     12     17     18     19   ABC  \r\n\r\nĿ\r\n+bc       G7     G8     G9    G10    G11    G12    G13    G14   def  \r\nĴ\r\n+BC       20     13     10      7      6      5     22     25   DEF  \r\n\r\nĿ\r\n+ef      G15    G16    G17    G18    G19    G20    G21    G22   ghi  \r\nĴ\r\n+EF       26     23     28     31     32     29     36     41   GHI  \r\n\r\nĿ\r\n+hi      G23    G24    G25    G26    G27    G28    G29    G30   jkl  \r\nĴ\r\n+HI       44     49     50     51     52     45     42     39   JKL  \r\n\r\nĿ\r\n+kl      G31    G32                                                  \r\nĴ\r\n+KL       38     37                                                  \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PIHEX property card (Integer > 0).\r\n\r\nG1,...,G32 Grid point identification numbers of connection points (Integers >\r\n           0, G1 through G32 must be unique).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. Grid points G1,...,G12 must be given in counter-clockwise order about one\r\n   quadrilateral face when viewed from inside the element. G13,...,G16;\r\n   G17,...,G20; and G21,...,G32 are in the same direction, with G1, G13, G17,\r\n   G21 along the same edge.\r\n\r\n3. There is no nonstructural mass.\r\n\r\n4. The quadrilateral faces need not be planar.\r\n\r\n5. Stresses are given in the basic coordinate system.\r\n\r\n                         27       26        25         24\r\n                         ****\r\n                      28*|                            /\r\n                       / *19                       23* *18\r\n                    29*  |                          /  \r\n                     /   *15 31      32          22*   *14\r\n                  30****21  \r\n                        *7 _ _ *6_ _ _ _*65_ _ _ _ _ *64\r\n                  20*    /                      17*    /\r\n                    |   *8                        |   *63\r\n                  16*  /                        13*  /\r\n                     *7                           *62\r\n                    /                            /\r\n                    ****61\r\n                    10       11        12\r\n\r\n            Figure 2.4-11. CIHEX3 grid point identification numbers\r\n=PAGE=\r\nCIS2D8 - Quadratic Isoparametric Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadriparabolic isoparametric membrane element (IS2D8) of the\r\nstructural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCIS2D8    EID    PID    G1     G2     G3     G4     G5     G6   +abc \r\nĴ\r\nCIS2D8     16     2     12     10     15     18     22      3   +ABC \r\n\r\nĿ\r\n+abc      G7     G8    ID1     TH                                    \r\nĴ\r\n+ABC       7     11                                                  \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PIS2D8 property card (Integer > 0).\r\n\r\nG1,...,G8  Grid point identification numbers of connection points (Integers >\r\n           0; G1 through G8 must be unique).\r\n\r\nID1        Number of Gauss quadrature points (ID1 = 2 or 3; default is 2).\r\n\r\nTH         Material property orientation angle in degrees (Real). Figure\r\n           2.4-12 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. Grid points G1 through G8 must be ordered as shown above.\r\n\r\n3. This element is a planar element; that is, G1 through G8 must be in a\r\n   plane.\r\n\r\n4. Stresses are computed in the element coordinate system.\r\n\r\n5. The element may be collapsed to a triangle by having coincident grid points\r\n   or by making two edges collinear (which is the preferred method). If grid\r\n   points are made coincident, the only choices are G2, G6 and G3 or G3, G4\r\n   and G7. Grid points G1, G5, and G2 may not be coincident, nor may grid\r\n   points G1, G8, and G4.\r\n\r\n6. The midpoints G5, G6, G7, and G8 should be placed as close to the mid-side\r\n   as possible, except for unusual circumstances, for example, when the\r\n   element is to be used as a crack element.\r\n\r\n                                ye\r\n                                       G7\r\n                             G4 *** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                             G8 *        .      * G6\r\n                                     .         \r\n                                  .            \r\n                                   TH  G5      \r\n                             G1 ***xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-12. CIS2D8 sign convention for TH\r\n=PAGE=\r\nCMASS1 - Scalar Mass Connection\r\n\r\nDescription\r\n\r\nDefines a scalar mass element of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCMASS1    EID    PID    G1     C1     G2     C2                      \r\nĴ\r\nCMASS1     32     6      2      1      2      3                      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PMASS property card (default is EID)\r\n           (Integer > 0).\r\n\r\nG1, G2     Geometric grid point identification number (Integer > 0).\r\n\r\nC1, C2     Component number (6 >= Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CMASS3 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n=PAGE=\r\nCMASS2 - Scalar Mass Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar mass element of the structural model without reference to a\r\nproperty value.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCMASS2    EID     M     G1     C1     G2     C2                      \r\nĴ\r\nCMASS2     32    9.25    6      1      7                             \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nM          The value of the scalar mass (Real).\r\n\r\nG1, G2     Geometric grid point identification number (Integer >= 0).\r\n\r\nC1, C2     Component number (6 >= Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. Scalar points may be used for G1 and/or G2, in which case the corresponding\r\n   C1 and/or C2 must be zero or blank. Zero or blank may be used to indicate a\r\n   grounded terminal G1 or G2 with a corresponding blank or zero C1 or C2. If\r\n   only scalar points and/or ground are involved, it is more efficient to use\r\n   the CMASS4 card. (A grounded terminal is a scalar point or coordinate of a\r\n   geometric grid point whose displacement is constrained to zero.)\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This card completely defines the element since no material or geometric\r\n   properties are required.\r\n\r\n4. The two connection points, (G1, C1) and (G2, C2), must be distinct.\r\n\r\n5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n=PAGE=\r\nCMASS3 - Scalar Mass Connection\r\n\r\nDescription\r\n\r\nDefines a scalar mass element of the structural model which is connected only\r\nto scalar points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCMASS3    EID    PID    S1     S2     EID    PID    S1     S2        \r\nĴ\r\nCMASS3     13     42    62      1                                    \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nPID        Identification number of a PMASS property card (default is EID)\r\n           (Integer > 0).\r\n\r\nS1, S2     Scalar point identification numbers (Integer >= 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2 may be blank or zero indicating a constrained coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. One or two scalar masses may be defined on a single card.\r\n\r\n4. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n=PAGE=\r\nCMASS4 - Scalar Mass Property and Connection\r\n\r\nDescription\r\n\r\nDefines a scalar mass element of the structural model which is connected only\r\nto scalar points without reference to a property value.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCMASS4    EID     M     S1     S2     EID     M     S1     S2        \r\nĴ\r\nCMASS4     23   14.92    6     23      2    -16.3    0     29        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nM          The scalar mass value (Real).\r\n\r\nS1, S2     Scalar point identification numbers (Integer > 0; S1 not equal\r\n           S2).\r\n\r\nRemarks\r\n\r\n1. S1 or S2 may be blank or zero indicating a constrained coordinate.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n3. This card completely defines the element since no material or geometric\r\n   properties are required.\r\n\r\n4. One or two scalar masses may be defined on a single card.\r\n\r\n5. For a discussion of the scalar elements, see Section 5.6 of the Theoretical\r\n   Manual.\r\n=PAGE=\r\nCNGRNT - Identical (Congruent) Elements Indicator\r\n\r\nDescription\r\n\r\nDesignates secondary element(s) identical (or congruent) to a primary element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCNGRNT    PRID  SECID1 SECID2 SECID3 SECID4 SECID5 SECID6 SECID7abc  \r\nĴ\r\nCNGRNT    11      2      17     34     35     36                     \r\n\r\nĿ\r\n+bc      SECID8 SECID9        -etc.-                                 \r\nĴ\r\n                                                                     \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nCNGRNT    PRID  SECID1 \"THRU\" SECID2                                 \r\nĴ\r\nCNGRNT     7      10    THRU    55                                   \r\n\r\n\r\nField      Contents\r\n\r\nPRID       Identification number of the primary element (not necessarily the\r\n           lowest number).\r\n\r\nSECIDi     Identification number(s) of secondary element(s) whose matrices\r\n           will be identical (or congruent) to those of the primary element.\r\n\r\nRemarks\r\n\r\n1. Orientation, geometry, etc. must be truly identical such that the same\r\n   stiffness, mass, and damping matrices are generated in the global\r\n   coordinate system.\r\n\r\n2. This feature is automatically used by the INPUT module.\r\n\r\n3. The CNGRNT feature cannot be used when an AXIC card is present in the Bulk\r\n   Data Deck.\r\n\r\n4. An element that has been listed as a primary ID on a CNGRNT card cannot be\r\n   listed as a secondary ID on another CNGRNT card. However, if the element is\r\n   listed as a secondary ID on the same card, then such secondary IDs are\r\n   ignored.\r\n\r\n5. The same secondary IDs cannot be listed as congruent to two or more\r\n   different primary IDs.\r\n\r\n6. Redundant specifications on CNGRNT cards are ignored.\r\n\r\n7. The element IDs (primary or secondary) specified on a CNGRNT card need not\r\n   all exist in a model. This greatly facilitates the use of the THRU option\r\n   on the card. However, you should be cautioned that, if too many\r\n   non-existent elements are specified in the CNGRNT data (as may be the case\r\n   when the THRU option is used), the EMG (Element Matrix Generator) module\r\n   may not have enough core to process all the CNGRNT data. In that case, an\r\n   appropriate message is issued and those elements whose CNGRNT data cannot\r\n   be processed will have their element matrices computed separately.\r\n\r\n8. The stiffness, mass, and damping matrices are actually calculated for the\r\n   lowest numbered element in the congruent set (even through this element may\r\n   not be the primary ID).\r\n\r\n9. See Section 1.14 for a detailed discussion of the congruent feature.\r\n=PAGE=\r\nCONCT - Substructure Connectivity\r\n\r\nDescription\r\n\r\nDefines the grid point and degree of freedom connectivities between two\r\nsubstructures for a manual COMBINE operation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCONCT     SID     C     SUBA   SUBB                             def  \r\nĴ\r\nCONCT     307    1236 WINGRT FUSELAG                            DEF  \r\n\r\nĿ\r\n+ef       GA1    GB1    GA2    GB2    GA3    GB3    GA4    GB4  hij  \r\nĴ\r\n+EF       201    207    958    214    971    216    982         HIJ  \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of connectivity set (Integer > 0).\r\n\r\nC          Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nSUBA, SUBB Names of basic substructures being connected (BCD).\r\n\r\nGAi, GBi   Grid or scalar point identification numbers GAi from SUBA connects\r\n           to GBi from SUBB by the degrees of freedom specified in C (Integer\r\n           > 0).\r\n\r\nRemarks\r\n\r\n1. At least one continuation card must be present.\r\n\r\n2. Components specified on a CONCT card will be overridden by RELES cards.\r\n\r\n3. Several CONCT and CONCT1 cards may be input with the same value of SID.\r\n\r\n4. An alternate format is given by the CONCT1 data card.\r\n\r\n5. Connectivity sets must be selected in the Substructure Control Deck\r\n   (CONNECT = SID)to be used by NASTRAN. Note that CONNECT is a subcommand of\r\n   the substructure COMBINE command.\r\n\r\n6. SUBA and SUBB must be component basic substructures of the pseudostructures\r\n   being combined as specified on the substructure COMBINE command card. SUBA\r\n   and SUBB must not be components of the same pseudostructure.\r\n\r\n7. If GTRAN has been invoked under the COMBINE command, the entries on the\r\n   CONCT and CONCT1 cards must be defined in terms of the revised coordinate\r\n   system.\r\n\r\n   In the following diagram, a substructure tree and a set of substructure\r\n   command cards are shown. The CONNECT subcommand references the example\r\n   CONCT card above. In this example, pseudostructure PSUB1 and PSUB2 are\r\n   combined and connected only at points in their respective basic component\r\n   substructures WINGRT and FUSELAG.\r\n\r\n      Basic          Ŀ  Ŀ      Ŀ   Ŀ\r\n      Substructures   WINGRT     SUBC       FUSELAG     SUBD \r\n                                \r\n                                        \r\n                            Ŀ                 Ŀ\r\n   Pseudostructures          PSUB1                   PSUB2 \r\n                                             \r\n\r\n                          COMBINE(MANUAL) PSUB1,PSUB2\r\n\r\n                                NAME = PPSUB\r\n                                TOLER = 0.01\r\n                                CONNECT = 307\r\n=PAGE=\r\nCONCT1 - Substructure Connectivity\r\n\r\nDescription\r\n\r\nDefines the grid point and degree of freedom connectivities between two or\r\nmore substructures for a manual COMBINE operation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCONCT1    SID   NAME1  NAME2  NAME3  NAME4  NAME5  NAME6  NAME7 def  \r\nĴ\r\nCONCT1    805  WINGRT FUSELAG MIDWG   POD                       DEF  \r\n\r\nĿ\r\n+ef        C1    G11    G12    G13    G14    G15    G16    G17  hij  \r\nĴ\r\n+EF       123    528     17     32    106                       HIJ  \r\n\r\nĿ\r\n+ij        C2    G21    G22    G23    G24    G25    G26    G27       \r\nĴ\r\n+IJ        46    518                                            etc. \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of connectivity set (Integer > 0).\r\n\r\nNAMEi      Basic substructure name (BCD).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nGij        Grid or scalar point identification number in substructure namej\r\n           with components Ci (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. At least one continuation card must be present.\r\n\r\n2. Components specified on CONCT1 card will not be overridden by RELES cards.\r\n\r\n3. Several CONCT and CONCT1 cards may be input with the same value of SID.\r\n\r\n4. An alternate format is given by the CONCT card.\r\n\r\n5. Connectivity sets must be selected in the Substructure Control Deck\r\n   (CONNECT = SID) to be used by NASTRAN. Note that CONNECT is a subcommand of\r\n   the substructure COMBINE command.\r\n\r\n6. The NAMEi's must be the names of basic substructure components of the\r\n   pseudostructures named on the COMBINE card in the Substructure Control\r\n   Deck. See the CONCT card for a more complete discussion related to the\r\n   combination of two substructures.\r\n\r\n7. This card and its continuations effectively describe a map of\r\n   connectivities. Grid points entered in the corresponding field of a\r\n   substructure name define the connectivity participation for that\r\n   substructure. Each continuation card defines the connection relationships\r\n   among the participating substructures for the components entered.\r\n\r\n8. If GTRAN has been invoked under the COMBINE command, the entries on the\r\n   CONCT and CONCT1 cards must be defined in terms of the revised coordinate\r\n   system.\r\n=PAGE=\r\nCONM1 - Concentrated Mass Element Connection\r\n\r\nDescription\r\n\r\nDefines a 6x6 symmetric mass matrix at a geometric grid point of the\r\nstructural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCONM1     EID     G     CID    M11    M21    M22    M31    M32  abc  \r\nĴ\r\nCONM1      2      22     2     2.9           6.3                +1   \r\n\r\nĿ\r\n+bc       M33    M41    M42    M43    M44    M51    M52    M53  def  \r\nĴ\r\n+1        4.8                         28.6                      +2   \r\n\r\nĿ\r\n+ef       M54    M55    M61    M62    M63    M64    M65    M66       \r\nĴ\r\n+2               28.6                                      28.6      \r\n\r\n\r\nField      Contents\r\n\r\nEID        Unique element identification number (Integer > 0).\r\n\r\nG          Grid point identification number (Integer > 0).\r\n\r\nCID        Coordinate system identification number for the mass matrix\r\n           (Integer >= 0).\r\n\r\nMij        Mass matrix values (Real).\r\n\r\nRemarks\r\n\r\n1. For a less general means of defining concentrated mass at grid points, see\r\n   CONM2.\r\n\r\n2. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n=PAGE=\r\nCONM2 - Concentrated Mass Element Connection\r\n\r\nDescription\r\n\r\nDefines a concentrated mass at a grid point of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCONM2     EID     G     CID     M      X1     X2     X3         abc  \r\nĴ\r\nCONM2      2      15     6     49.7                             123  \r\n\r\nĿ\r\n+bc       I11    I21    I22    I31    I32    I33                     \r\nĴ\r\n+23      16.2          16.2                  7.8                     \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nG          Grid point identification number (Integer > 0).\r\n\r\nCID        Coordinate system identification number (Integer >= 0).\r\n\r\nM          Mass value (Real).\r\n\r\nX1, X2, X3 Offset distances for the mass in the coordinate system defined in\r\n           field 4 (Real).\r\n\r\nIij        Mass moments of inertia measured at the mass c.g. in coordinate\r\n           system defined by field 4 (Real).\r\n\r\nRemarks\r\n\r\n1. Each element identification number must be unique with respect to all other\r\n   element identification numbers.\r\n\r\n2. For a more general means of defining concentrated mass at grid points, see\r\n   CONM1.\r\n\r\n3. The continuation card may be omitted.\r\n\r\n4. The form of the inertia matrix about its c.g. is taken as (see Section\r\n   5.5.2.2 of the Theoretical Manual):\r\n\r\n                                                  \r\n       M       0      0        0   M(X3) -M(X2)  \r\n               M      0     -M(X3)  0     M(X1)  \r\n                      M      M(X2) -M(X1)   0    \r\n                                                 \r\n        \r\n                             BI11  -BI21  -BI31  \r\n             (SYM)                  BI22  -BI32  \r\n                                           BI33  \r\n                                                  \r\n\r\n   where BI11 = I11 + M(X2**2 + X3**2), BI21 = I21 + (M)(X1)(X2), and BI22,\r\n   BI31, BI32, and BI33 are similarly defined.\u001a\r\n=PAGE=\r\nCONROD - Rod Element Property and Connection\r\n\r\nDescription\r\n\r\nDefines a rod element of the structural model without reference to a property\r\ncard.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCONROD    EID    G1     G2     MID     A      J      C     NSM       \r\nĴ\r\nCONROD     2     16     17     23     2.69                           \r\n\r\n\r\nField     Contents\r\n\r\nEID       Unique element identification number (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nA         Area of rod (Real).\r\n\r\nJ         Torsional constant (Real).\r\n\r\nC         Coefficient for torsional stress determination (Real).\r\n\r\nNSM       Nonstructural mass per unit length (Real).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.For structural problems, CONROD cards may only reference MAT1 material\r\n  cards.\r\n\r\n3.For heat transfer problems, CONROD cards may only reference MAT4 or MAT5\r\n  material cards.\r\n=PAGE=\r\nCORD1C - Cylindrical Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a cylindrical coordinate system by reference to three grid points.\r\nThese points must be defined in coordinate systems whose definition does not\r\ninvolve the coordinate system being defined. The first point is the origin,\r\nthe second lies on the z-axis, and the third lies in the plane of the\r\nazimuthal origin.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD1C    CID    G1     G2     G3     CID    G1     G2     G3        \r\nĴ\r\nCORD1C     3     16     32     19                                    \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must\r\n          be unique).\r\n\r\nRemarks\r\n\r\n1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n2.The three points G1, G2, G3 must be noncollinear.\r\n\r\n3.The location of a grid point (P in Figure 2.4-13) in this coordinate system\r\n  is given by (R, , Z) where  is measured in degrees.\r\n\r\n4.The displacement coordinate directions at P are dependent on the location\r\n  of P as shown in Figure 2.4-13 by (ur, u, uz).\r\n\r\n5.Points on the z-axis may not have their displacement directions defined in\r\n  this coordinate system since an ambiguity results.\r\n\r\n6.One or two coordinate systems may be defined on a single card.\r\n                                     z     uz\r\n                                            u\r\n                                           /\r\n                                          /\r\n                                   G2*   p \\\r\n                                           \\\r\n                                    /       \\\r\n                                   /         ur\r\n                                  /       Z\r\n                               G3*        \r\n                                  G1*y\r\n                                   / \\    \r\n                                  /  \\R  \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              *\r\n\r\n                    Figure 2.4-13. CORD1C coordinate system\r\n=PAGE=\r\nCORD1R - Rectangular Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a rectangular coordinate system by reference to three grid points.\r\nThese points must be defined in coordinate systems whose definition does not\r\ninvolve the coordinate system being defined. The first point is the origin,\r\nthe second lies on the z-axis, and the third lies in the x-z plane.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD1R    CID    G1     G2     G3     CID    G1     G2     G3        \r\nĴ\r\nCORD1R     3     16     32     19                                    \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must\r\n          be unique).\r\n\r\nRemarks\r\n\r\n1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n2.The three points G1, G2, G3 must be noncollinear.\r\n\r\n3.The location of a grid point (P in Figure 2.4-14) in this coordinate system\r\n  is given by (X, Y, Z).\r\n\r\n4.The displacement coordinate directions at P are shown in Figure 2.4-14 by\r\n  (ux, uy, uz).\r\n\r\n5.One or two coordinate systems may be defined on a single card.\r\n\r\n                                     z\r\n                                          uz\r\n                                          \r\n                                           P\r\n                                   G2*     * uy\r\n                                         /\r\n                                    /   / \r\n                                   /   /   Z\r\n                                  /   ux  \r\n                               G3*        \r\n                                  G1** y\r\n                                   /         /\r\n                                  /         /\r\n                                 /         / X\r\n                                 /         /\r\n                                /*\r\n                               /     Y\r\n                              x\r\n\r\n                    Figure 2.4-14. CORD1R coordinate system\r\n=PAGE=\r\nCORD1S - Spherical Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a spherical coordinate system by reference to three grid points. These\r\npoints must be defined in coordinate systems whose definition does not involve\r\nthe coordinate system being defined. The first point is the origin, the second\r\nlies on the z-axis, and the third lies in the plane of the azimuthal origin.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD1S    CID    G1     G2     G3     CID    G1     G2     G3        \r\nĴ\r\nCORD1S     3     16     32     19                                    \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers (Integer > 0; G1 through G3 must\r\n          be unique).\r\n\r\nRemarks\r\n\r\n1.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n2.The three points G1, G2, G3 must be noncollinear.\r\n\r\n3.The location of a grid point (P in Figure 2.4-15) in this coordinate system\r\n  is given by (R, , ) where  and  are measured in degrees.\r\n\r\n4.The displacement coordinate directions at P are dependent on the location\r\n  of P as shown in Figure 2.4-15 by (ur, u, u).\r\n\r\n5.Points on the polar axis may not have their displacement directions defined\r\n  in this coordinate system since an ambiguity results.\r\n\r\n6.One or two coordinate systems may be defined on a single card.\r\n\r\n                                     z        ur    .u\r\n                                            /   .\r\n                                           / .\r\n                                         P*\r\n                                   G2*    / \\\r\n                                    /  /   \\\r\n                                   /   /     u\r\n                                  /   /R  \r\n                               G3*   /    \r\n                                  G1*y\r\n                                   / \\    \r\n                                  /  \\   \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              x\r\n\r\n                    Figure 2.4-15. CORD1S coordinate system\r\n=PAGE=\r\nCORD2C - Cylindrical Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a cylindrical coordinate system by reference to the coordinates of\r\nthree points. The first point defines the origin. The second point defines the\r\ndirection of the z-axis. The third lies in the plane of the azimuthal origin.\r\nThe reference coordinate must be independently defined.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD2C    CID    RID     A1     A2     A3     B1     B2     B3  ABC  \r\nĴ\r\nCORD2C     3      17    -2.9   1.0    0.0     3.6   0.0    1.0  123  \r\n\r\nĿ\r\n+BC       C1     C2     C3                                           \r\nĴ\r\n+23       5.2    1.0    -2.9                                         \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nRID       Reference to a coordinate system which is defined independently of\r\n          new coordinate system (Integer >= 0 or blank).\r\n\r\nA1,A2,A3; B1,B2,B3; C1,C2,C3  Coordinates of three points in coordinate system\r\n          defined in field 3 (Real).\r\n\r\nRemarks\r\n\r\n1.Continuation card must be present.\r\n\r\n2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique\r\n  and non-collinear. Noncollinearity is checked by the geometry processor.\r\n\r\n3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n4.An RID of zero references the basic coordinate system.\r\n\r\n5.The location of a grid point (P in Figure 2.4-16) in this coordinate system\r\n  is given by (R, , Z) where  is measured in degrees.\r\n\r\n6.The displacement coordinate directions at P are dependent on the location\r\n  of P as shown in Figure 2.4-16 by (ur, u, uz).\r\n\r\n7.Points on the z-axis may not have their displacement direction defined in\r\n  this coordinate system, since an ambiguity results.\r\n                                     z     uz\r\n                                            u\r\n                                           /\r\n                                          /\r\n                                    B*   p \\\r\n                                           \\\r\n                                    /       \\\r\n                                   /         ur\r\n                                  /       Z\r\n                                C*        \r\n                                   A*y\r\n                                   / \\    \r\n                                  /  \\R  \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              x\r\n\r\n                    Figure 2.4-16. CORD2C coordinate system\r\n=PAGE=\r\nCORD2R - Rectangular Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a rectangular coordinate system by reference to the coordinates of\r\nthree points. The first point defines the origin. The second point defines the\r\ndirection of the z-axis. The third point defines a vector which, with the\r\nz-axis, defines the x-z plane. The reference coordinate must be independently\r\ndefined.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD2R    CID    RID     A1     A2     A3     B1     B2     B3  ABC  \r\nĴ\r\nCORD2R     3      17    -2.9   1.0    0.0     3.6   0.0    1.0  123  \r\n\r\nĿ\r\n+BC       C1     C2     C3                                           \r\nĴ\r\n+23       5.2    1.0    -2.9                                         \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nRID       Reference to a coordinate system which is defined independently of\r\n          new coordinate system (Integer >= 0 or blank).\r\n\r\nA1,A2,A3; B1,B2,B3; C1,C2,C3  Coordinates of three points in coordinate system\r\n          defined in field 3 (Real).\r\n\r\nRemarks\r\n\r\n1.Continuation card must be present.\r\n\r\n2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique\r\n  and non-collinear. Noncollinearity is checked by the geometry processor.\r\n\r\n3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n4.An RID of zero references the basic coordinate system.\r\n\r\n5.The location of a grid point (P in Figure 2.4-17) in this coordinate system\r\n  is given by (X, Y, Z).\r\n\r\n6.The displacement coordinate directions at P are shown by (ux, uy, uz).\r\n\r\n                                     z\r\n                                          uz\r\n                                          \r\n                                           P\r\n                                   B *     * uy\r\n                                         /\r\n                                    /   / \r\n                                   /   /   Z\r\n                                  /   ux  \r\n                               C *        \r\n                                  A ** y\r\n                                   /         /\r\n                                  /         /\r\n                                 /         / X\r\n                                 /         /\r\n                                /*\r\n                               /     Y\r\n                              x\r\n\r\n                    Figure 2.4-17. CORD2R coordinate system\r\n=PAGE=\r\nCORD2S - Spherical Coordinate System Definition\r\n\r\nDescription\r\n\r\nDefines a spherical coordinate system by reference to the coordinates of three\r\npoints. The first point defines the origin. The second point defines the\r\ndirection of the z-axis. The third lies in the plane of the azimuthal origin.\r\nThe reference coordinate must be independently defined.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCORD2S    CID    RID     A1     A2     A3     B1     B2     B3  ABC  \r\nĴ\r\nCORD2S     3      17    -2.9   1.0    0.0     3.6   0.0    1.0  123  \r\n\r\nĿ\r\n+BC       C1     C2     C3                                           \r\nĴ\r\n+23       5.2    1.0    -2.9                                         \r\n\r\n\r\nField     Contents\r\n\r\nCID       Coordinate system identification number (Integer > 0).\r\n\r\nRID       Reference to a coordinate system which is defined independently of\r\n          new coordinate system (Integer >= 0 or blank).\r\n\r\nA1,A2,A3; B1,B2,B3; C1,C2,C3  Coordinates of three points in coordinate system\r\n          defined in field 3 (Real).\r\n\r\nRemarks\r\n\r\n1.Continuation card must be present.\r\n\r\n2.The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique\r\n  and non-collinear. Noncollinearity is checked by the geometry processor.\r\n\r\n3.Coordinate system identification numbers on all CORD1R, CORD1C, CORD1S,\r\n  CORD2R, CORD2C, and CORD2S cards must be unique.\r\n\r\n4.An RID of zero references the basic coordinate system.\r\n\r\n5.The location of a grid point (P in Figure 2.4-18) in this coordinate system\r\n  is given by (R, , ) where  and  are measured in degrees.\r\n\r\n6.The displacement coordinate directions at P are shown in Figure 2.4-18 by\r\n  (ur, u, u).\r\n\r\n7.Points on the polar axis may not have their displacement directions defined\r\n  in this coordinate system since an ambiguity results.\r\n\r\n                                     z        ur    .u\r\n                                            /   .\r\n                                           / .\r\n                                         P*\r\n                                   B *    / \\\r\n                                    /  /   \\\r\n                                   /   /     u\r\n                                  /   /R  \r\n                               C *   /    \r\n                                   A*y\r\n                                   / \\    \r\n                                  /  \\   \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              x\r\n\r\n                    Figure 2.4-18. CORD2S coordinate system\r\n=PAGE=\r\nCPSEi - Pressure Stiffness Element Connection\r\n\r\nDescription\r\n\r\nDefines a pressure stiffness element CPSEi (i = 2, 3, 4).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCPSEi     EID    PID     G1    G2     G3     G4                      \r\nĴ\r\nCPSE3     34      1      11    10     12                             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PPSE property card (Integer > 0).\r\n\r\nG1...GN   Grid point identification numbers of connection points (N = 2 for\r\n          CPSE2, N = 3 for CPSE3, and N = 4 for CPSE4).\r\n\r\nRemarks\r\n\r\n1.Element identification numbers must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.These are differential stiffness elements. No structural stiffness and no\r\n  structural mass are generated by these elements.\r\n\r\n3.The formulation of these pressure stiffness elements assumes that only the\r\n  basic coordinate system is used to describe the displacement parameters.\r\n  Therefore the grid points, G1...GN, must be in the basic rectangular\r\n  system. (This limitation will be removed later.)\r\n\r\n4.All three CPSEi cards share one property card, PPSE.\r\n\r\n5.Constant pressure is applied over an enclosed volume encompassed by the\r\n  CPSEi elements. That is, there is no pressure gradient in the enclosed\r\n  space.\r\n\r\n6.Pressure acts normally to the CPSEi surfaces.\r\n\r\n7.Reference: E. Christensen, \"Advanced Solid Rocket Motor (ASRM) Math Models\r\n  - Pressure Stiffness Effects Analysis\", Aug. 1991, NASA TD612-001-02.\r\n=PAGE=\r\nCQDMEM - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadrilateral membrane element (QDMEM) of the structural model\r\nconsisting of four overlapping TRMEM elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQDMEM    EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQDMEM     72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQDMEM property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-19 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-19. CQDMEM sign convention for TH\r\n=PAGE=\r\nCQDMEM1 - Isoparametric Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines an isoparametric quadrilateral membrane element (QDMEM1) of the\r\nstructural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQDMEM1   EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQDMEM1    72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQDMEM1 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0); G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-20 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n4.In a HEAT formulation, element type CQDMEM1 is automatically replaced by\r\n  element type CQDMEM.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-20. CQDMEM1 sign convention for TH\r\n=PAGE=\r\nCQDMEM2 - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadrilateral membrane element (QDMEM2) of the structural model\r\nconsisting of four non-overlapping TRMEM elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQDMEM2   EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQDMEM2    72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQDMEM2 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-21 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n4.In a HEAT formulation, element type CQDMEM2 is automatically replaced by\r\n  element type CQDMEM.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-21. CQDMEM2 sign convention for TH\r\n=PAGE=\r\nCQDPLT - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadrilateral bending element (QDPLT) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQDPLT    EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQDPLT     72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQDPLT property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-22 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n4.No structural mass is generated by this element.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-22. CQDPLT sign convention for TH\r\n=PAGE=\r\nCQUAD1 - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadrilateral membrane and bending element (QUAD1) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQUAD1    EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQUAD1     72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQUAD1 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-23 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-23. CQUAD1 sign convention for TH\r\n=PAGE=\r\nCQUAD2 - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a homogeneous quadrilateral membrane and bending element (QUAD2) of\r\nthe structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQUAD2    EID    PID    G1     G2     G3     G4     TH               \r\nĴ\r\nCQUAD2     72     13    13     14     15     16     29.2             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PQUAD2 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-24 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                 Figure 2.4-24. CQUAD2 sign convention for TH\r\n=PAGE=\r\nCQUAD4 - Quadrilateral Element Connection\r\n\r\nDescription\r\n\r\nDefines a quadrilateral plate element (QUAD4) of the structural model. This is\r\nan isoparametric membrane-bending element, with variable element thickness,\r\nlayered composite material, and thermal analysis capabilities.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCQUAD4    EID    PID    G1     G2     G3     G4     TM     ZO    abc \r\nĴ\r\nCQUAD4    101     17    1001   1005   1010   1024   45.0   0.01  ABC \r\n\r\nĿ\r\n+bc                     T1     T2     T3     T4                      \r\nĴ\r\n+BC                     0.03  0.125   0.05   0.04                    \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PSHELL entry (default is EID)\r\n          (Integer > 0). For composites, see Remark 5.\r\n\r\nGi        Grid point identification numbers of connection points\r\n          (Integer > 0).\r\n\r\nZO        Offset of the elementary reference plane (element\r\n          mid-plane) from the plane of grid points (Real or\r\n          blank; see Remark 3 for default; see Guidelines.)\r\n\r\nTM        Material property orientation specification (Real or blank,\r\n          or 0 <= Integer < 1,000,000). If Real or blank, specifies\r\n          the material property orientation angle in degrees. If\r\n          Integer, the orientation of the material x-axis is along the\r\n          projection onto the plane of the element of the x-axis of\r\n          the coordinate system specified by the integer value. (See\r\n          Guidelines.)\r\n\r\nTi        Membrane thickness of element at grid points Gi (Real\r\n          or blank; see Remark 4 for default).\r\n\r\nRemarks\r\n\r\n1.       The QUAD4 geometry, coordinate systems, and numbering are shown in\r\n         Figure 2.4-25.\r\n\r\n                                ye\r\n                                \r\n                             G4 ** G3\r\n                                               \r\n                                               \r\n                                           .   \r\n                                        .      \r\n                                     .         \r\n                                  .            \r\n                                   TH          \r\n                             G1 **xe\r\n                                                  G2\r\n\r\n                        Figure 2.4-25. CQUAD4 geometry\r\n\r\n2.       Each element identification number must be unique with respect to all\r\n         other element identification numbers.\r\n\r\n3.       The material coordinate system (TM) and the offset (ZO) may also be\r\n         provided on the PSHELL entry. The PSHELL data will be used if the\r\n         corresponding field on the CQUAD4 entry is blank.\r\n\r\n4.       The Ti fields are optional; if not supplied they will be set to the\r\n         value of T specified on the PSHELL entry. In such cases, the\r\n         continuation entry is not required.\r\n\r\n5.       For composites, a PCOMP, PCOMP1, PCOMP2 card can be used instead of a\r\n         PSHELL card.\r\n\r\nGuidelines for the Use of CQUAD4\r\n\r\n(Excerpt from \"QUAD4 SEMINAR\", WPAFB, WRDC-TR-89-3046, revised April 1993)\r\n\r\nQUAD4 is one of the most extensively used elements in NASTRAN. It is a very\r\nversatile element and can be used to model a variety of plate element\r\napplications such as:\r\n\r\n         a. Membrane (inplane loading) behavior\r\n         b. Bending (out of plane loading) behavior\r\n         c. Membrane-bending (uncoupled)\r\n         d. Membrane-bending (coupled-linear)\r\n         e. Laminated plates\r\n         f. Layered composites\r\n         g. Sandwich plates with metal face sheets\r\n         h. Sandwich plates with layered composite face sheets\r\n         i. Isotropic materials\r\n         j. Anisotropic (including orthotropic) materials\r\n\r\nApplication of QUAD4 is often confusing because of the many options available\r\nfor its use.\r\n\r\nThere are five cards which describe the input parameters for QUAD4. They\r\ndescribe its geometry and properties along with some auxiliary information.\r\n\r\nGeometry and Property Cards\r\n\r\nCQUAD4                   Connection card\r\nPSHELL                   Property card for homogeneous and sandwich plates\r\nPCOMP, PCOMP1, PCOMP2    Property cards for laminated or layered plates\r\n\r\nMaterial Cards\r\n\r\nMAT1                     Isotropic materials\r\nMAT2                     Anisotropic materials\r\nMAT8                     Orthotropic materials\r\nPLOAD4                   Pressure load definition on QUAD4 element\r\n\r\nFor a given element either the PSHELL or PCOMP card is applicable but not\r\nboth. PSHELL cards are for homogeneous (nonlaminated) and sandwich plates with\r\nnonlayered face sheets. PCOMP cards are for laminated (layered) plates. In the\r\ncase of sandwich plates with layered face sheets the honeycomb (sandwich) core\r\nwill be treated as a laminate or layer.\r\n\r\nA supplementary explanation of the parameters on each of these cards should\r\naid in understanding the modeling nuances of the element.\r\n\r\nThe definitions of the parameters in fields 2 to 7 are self explanatory and\r\nneed no further clarification. Similarly no additional explanation is\r\nnecessary for the thickness parameters specified in fields 4 to 7 on the\r\ncontinuation card. However, the parameters TM and ZO need a supplementary\r\nexplanation or caution.\r\n\r\nParameter TM\r\n\r\nParameter TM defines the material property orientation. There are two options\r\nfor this definition.\r\n\r\nOption 1\r\n\r\nDefine the angle between the side of the element (connecting G1 and G2) and\r\nthe material axis. This is the least desirable option. It is prone to errors,\r\nbecause every time the sequence of the element connection changes, the angle\r\nmust be changed. Also in a complex three dimensional model it is not easy to\r\ndetermine this angle without writing a preprocessor.\r\n\r\nOption 2\r\n\r\nThe integer option is preferable. An integer in field 8 refers to a separate\r\ncoordinate system for defining the orientation of the material axis of the\r\nelement. The material property definition is now independent of the connection\r\nsequence. The new coordinate system can be defined with a coordinate card.\r\n\r\nOffset Parameter ZO\r\n\r\nThe offset parameter provision in the QUAD4 element constitutes a significant\r\nenhancement for plate elements. Before, the QUAD4 grid points of the structure\r\ncould only be defined on the mid-surface of the plate elements. Bar (beam or\r\nbend) was the only other element with an offset capability. However, some of\r\nthe mass elements have the offset capability.\r\n\r\nThe offset, ZO, is shown for various cases in the diagrams at the end of this\r\nsection. Note the distinction between the grid point surfaces and mid-surface\r\nof the element.\r\n=PAGE=\r\n\r\nSIDE VIEW (PSHELL):\r\n                            TOP                               BOTTOM\r\n                      Ŀ                  Ŀ\r\nCASE 1                                                              \r\n                     - - - - - - - - -               - - - - - - - - - - \r\n                                                                     \r\n                                          -ZO\r\n                +ZO      BOTTOM                              TOP         \r\n                                                                         \r\n                              GRID PT SURFACE           \r\n\r\n                            TOP                              BOTTOM\r\n                      Ŀ                  Ŀ\r\nCASE 2                                                              \r\n(DEFAULT)     ZO = 0          G.P. SURFACE           ZO = 0\r\n                                                                    \r\n                                        \r\n                           BOTTOM                              TOP\r\n\r\n                             GRID PT SURFACE           \r\n                                                                         \r\nCASE 3                                                                    +ZO\r\n                           TOP                              BOTTOM       \r\n              -ZO    Ŀ                  Ŀ  \r\n                                                                     \r\n                   - - - - - - - - - -               - - - - - - - - - - \r\n                                                                    \r\n                                        \r\n                          BOTTOM                               TOP\r\n=PAGE=\r\nCRBAR - Rigid Bar\r\n\r\nDescription\r\n\r\nDefines a rigid bar with six degrees of freedom at each end.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRBAR     EID    G1     G2     IC1    IC2    DC1    DC2              \r\nĴ\r\nCRBAR      5      1      2     234    123                            \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nGi        Identification numbers of connection grid points (Integers > 0).\r\n\r\nICi       Independent degrees of freedom in the global coordinate system for\r\n          the element at grid points Gi (any of the digits 1 - 6 with no\r\n          imbedded blanks. Integers > 0 or blank.) See Remark 2.\r\n\r\nDCi       Dependent degrees of freedom in the global coordinate system\r\n          assigned by the element at grid points Gi (any of the digits 1 - 6\r\n          with no imbedded blanks. Integers > 0 or blank.) See Remarks 3 and\r\n          4.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The total number of degrees of freedom specified (IC1 and IC2) must equal\r\n  six; for example, IC1 = 1236, IC2 = 34. Further, they should together be\r\n  capable of representing any general rigid body motion of the element.\r\n\r\n3.If both DC1 and DC2 are zero or blank, all of the degrees of freedom not in\r\n  IC1 and IC2 will be made dependent.\r\n\r\n4.The dependent (that is, constrained) degrees of freedom in a CRBAR element\r\n  may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n5.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n6.Forces of constraint are not recovered.\r\n\r\n7.Rigid elements are ignored in heat transfer problems.\r\n\r\n8.NASTRAN actually converts the CRBAR input card into the CRIGD3 card format,\r\n  and thus processes a CRBAR card as if it were a CRIGD3 card. The following\r\n  table shows the method of conversion, in free-field format:\r\n\r\n  CRBAR Card                    ===> Equivalent CRIGD3 Card\r\n  __________________________________________________________________\r\n\r\n  CRBAR, EID, G1, G2, IC1, IC2, DC1, DC2\r\n                                ===> CRIGD3, EID, G1, IC1, G2, IC2\r\n                                     ,'MSET', G1, DC1, G2, DC2\r\n\r\n9.See Section 1.4.2.2 for a discussion of rigid elements.\r\n=PAGE=\r\nCRBE1 - Rigid Body Element, Form 1\r\n\r\nDescription\r\n\r\nDefines a rigid body connected to an arbitrary number of grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRBE1     EID    IG1    IC1    IG2    IC2    IG3    IC3         abc  \r\nĴ\r\nCRBE1     103    11      1     12      2     13      4          ABC  \r\n\r\nĿ\r\n+bc              IG4    IC4    IG5    IC5    IG6    IC6         def  \r\nĴ\r\n+BC              14     35     15      6                        CDF  \r\n\r\nĿ\r\n+ef      \"UM\"    DG1    DC1    DG2    DC2    DG3    DC3         ghi  \r\nĴ\r\n+DF       UM     21     123    22      1     23    123456       EFI  \r\n\r\nĿ\r\n+hi              DG4    DC4    DG5    DC5   -etc.-                   \r\nĴ\r\n+FI              24     456    25      2                             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIGi       Identification numbers of the reference independent grid points\r\n          (Integers > 0).\r\n\r\nICi       Independent degrees of freedom in the global coordinate system for\r\n          the preceding reference grid point (any of the digits 1 - 6 with\r\n          no imbedded blanks. Integer > 0.) See Remarks 2, 3, and 5.\r\n\r\n\"UM\"      BCD word that indicates the start of the data for dependent grid\r\n          points.\r\n\r\nDGi       Identification numbers of the dependent grid points (Integer > 0).\r\n\r\nDCi       Dependent degrees of freedom in the global coordinate system for\r\n          the preceding dependent grid point (any of the digits 1 - 6 with\r\n          no imbedded blanks. Integer > 0.) See Remarks 4 and 5.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The total number of degrees of freedom specified for the reference grid\r\n  points (IC1 through IC6) must be six; for example, IC1=1, IC2=2, IC3=4,\r\n  IC4=35, IC5=6. Further, they should together be capable of representing any\r\n  general rigid body motion of the element.\r\n\r\n3.The first continuation card is not required if less than four reference\r\n  independent grid points are specified.\r\n\r\n4.The dependent (that is, constrained) degrees of freedom in a CRBE1 element\r\n  may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by a MPC card.\r\n\r\n5.A degree of freedom cannot be both independent and dependent for the same\r\n  element. However, both independent and dependent components can exist at\r\n  the same grid point.\r\n\r\n6.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n7.Forces of constraint are not recovered.\r\n\r\n8.Rigid elements are ignored in heat transfer problems.\r\n\r\n9.NASTRAN actually converts the CRBE1 input card into the CRIGD3 card format\r\n  by switching the  \"UM\" BCD word to \"MSET\", and thus processes a CRBE1 card\r\n  as if it were a CRIGD3 card.\r\n\r\n  CRBE1 Card       ===> Equivalent CRIGD3 Card\r\n\r\n  CRBE1, EID, IG1, IC1, IG2, IC2, IG3, IC3\r\n  ,'UM', DG1, DC1, DG2, DC2, etc.\r\n                   ===> CRIGD3,  EID, IG1, IC1, IG2, IC2, IG3, IC3\r\n                        ,'MSET', DG1, DC1, DG2, DC2, etc.\r\n\r\n10.  See Section 1.4.2.2 for a discussion of rigid elements.\r\n=PAGE=\r\nCRBE2 - Rigid Body Element, Form 2\r\n\r\nDescription\r\n\r\nDefines a rigid body whose independent degrees of freedom are specified at a\r\nsingle grid point and whose dependent degrees of freedom are specified at an\r\narbitrary number of grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRBE2     EID    IG      C     G1     G2     G3     G4     G5   abc  \r\nĴ\r\nCRBE2      9      8     12     10     12     14     15     16   ABC  \r\n\r\nĿ\r\n+bc       G6     G7     G8    -etc.-                                 \r\nĴ\r\n+BC       20                                                         \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIG        Identification number of the reference grid point, to which all\r\n          six independent degrees of freedom for the element are assigned\r\n          (Integer > 0).\r\n\r\nC         The dependent degrees of freedom in the global coordinate system\r\n          for all the dependent grid points Gi (any of the digits 1 - 6 with\r\n          no imbedded blanks. Integer > 0.) See Remark 2.\r\n\r\nGi        Identification numbers of the dependent grid points (Integers >\r\n          0).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The dependent (that is, constrained) degrees of freedom in a CRBE2 element\r\n  may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n3.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n4.Forces of constraint are not recovered.\r\n\r\n5.Rigid elements are ignored in heat transfer problems.\r\n\r\n6.NASTRAN actually converts the CRBE2 input card into the CRIGD2 card format,\r\n  and thus processes a CRBE2 card as if it were a CRIGD2 card. The following\r\n  table shows the method of conversion, in free-field format:\r\n\r\n  CRBE2 Card        ===> Equivalent CRIGD2 Card\r\n\r\n  CRBE2, EID, IG, C, G1, G2, G3, etc.\r\n                    ===> CRIGD2, EID, IG, G1, C, G2, C, G3, C, etc.\r\n\r\n7.See Section 1.4.2.2 for a discussion of rigid elements.\r\n=PAGE=\r\nCRBE3 - Rigid Body Element, Form 3\r\n\r\nDescription\r\n\r\nDefines the motion at a reference grid point as the weighted average of the\r\nmotions at a set of other grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRBE3     EID           IG     IC     W1     C1    G1,1   G1,2  abc  \r\nĴ\r\nCRBE3     14            100   1234    1.0    123     1     3    ABC  \r\n\r\nĿ\r\n+bc      G1,3    W2     C2     G2,1   G2,2   G2,3   W3     C3   def  \r\nĴ\r\n+BC       5      4.7     1      2      4      6     5.2     2   DEF  \r\n\r\nĿ\r\n+ef      G3,1   G3,2   G3,3    W4     C4    G4,1   G4,2   G4,3  ghi  \r\nĴ\r\n+EF       7       8            5.1     1     15     16          GHI  \r\n\r\nĿ\r\n+hi      \"UM\"    DG1    DC1    DG2    DC2    DG3    DC3         jkl  \r\nĴ\r\n+HI       UM     100    14      5      3      7      2          JKL  \r\n\r\nĿ\r\n+kl              DG4    DC4    DG5    DC5    DG6    DC6              \r\nĴ\r\n+KL                                                                  \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIG        Reference grid point (Integer > 0).\r\n\r\nIC        Global components of motion whose values will be computed at the\r\n          reference grid point (any of the digits 1 - 6 with no imbedded\r\n          blanks. Integer > 0).\r\n\r\nWi        Weighting factor for components of motion on the following card at\r\n          grid points Gi,j (Real).\r\n\r\nCi        Global components of motion which have weighting factor Wi at grid\r\n          points Gi,j (any of the digits 1 - 6 with no imbedded blanks.\r\n          Integers > 0).\r\n\r\nGi,j      Grid points whose components Ci have weighting factor Wi in the\r\n          averaging equations (Integers > 0).\r\n\r\n\"UM\"      BCD word that indicates the start of the data for the components\r\n          of motion at grid points DGi (optional). The default is that all\r\n          of the components in IC at the reference grid point IG, and no\r\n          others, are included in the dependent component set {um}.\r\n\r\nDGi       Grid points with components DCi in {um} (Integers > 0).\r\n\r\nDCi       Components of motion at grid point DGi (any of the digits 1 - 6\r\n          with no imbedded blanks, Integers > 0).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Blank spaces may be left at the end of a Gi,j sequence.\r\n\r\n3.The default for UM should be used except in cases where you want to include\r\n  some or all IC components in displacement sets exclusive from the {um} set.\r\n  If the default is not used for UM:\r\n\r\n  a. The total number of components in {um} (that is, the total number of\r\n     dependent degrees of freedom defined by the element) must be equal to\r\n     the number of components in IC (four in the above example).\r\n\r\n  b. The components in UM must be a subset of the components mentioned in IC\r\n     and (Gi,j; Ci).\r\n\r\n  c. The coefficient matrix [Rm] in the constraints equation [Rm]{um} +\r\n     [Rn]{un} = 0 must be nonsingular.\r\n\r\n4.The dependent (that is, constrained) degrees of freedom in a CRBE3 element\r\n  may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n5.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n6.Forces of constraint are not recovered.\r\n\r\n7.Rigid elements are ignored in heat transfer problems.\r\n\r\n8.Unlike the other rigid elements, the CRBE3 element and the CRSPLINE element\r\n  cannot be converted into CRIGD2 or CRIGD3 elements. A FORTRAN subroutine\r\n  (in single precision version and in double precision version) was written\r\n  to handle these two special rigid elements.\r\n=PAGE=\r\nCRIGD1 - Rigid Element Connection\r\n\r\nDescription\r\n\r\nDefines a rigid element in which all six degrees of freedom of each of the\r\ndependent grid points are coupled to all six degrees of freedom of the\r\nreference grid point.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRIGD1    EID    IG     G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCRIGD1    101    15     18     43      9     26     35     41   123  \r\n\r\nĿ\r\n+bc       G7     G8     G9    -etc.-                                 \r\nĴ\r\n+23       8      63                                                  \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nCRIGD1    EID    IG    GID1  \"THRU\"  GID2                            \r\nĴ\r\nCRIGD1    201    25     71    THRU    80                             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIG        Identification number of the reference grid point (Integer > 0).\r\n\r\nGi, GIDi  Identification numbers of the dependent grid points (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Only one reference grid point is allowed per element. It must appear before\r\n  any of the dependent grid points.\r\n\r\n3.Any number of dependent grid points may be specified.\r\n\r\n4.When the alternate form is used, no continuation card is permitted and all\r\n  grid points implied by GID1 through GID2 (GID1 < GID2) must exist.\r\n\r\n5.Dependent degrees of freedom defined (implicitly) in a RIGD1 element may\r\n  not appear on OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They also may not appear as\r\n  dependent degrees of freedom in RIGD2, RIGD3, or RIGDR elements or on MPC\r\n  cards.\r\n\r\n6.Rigid elements are not allowed in heat transfer analysis.\r\n\r\n7.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nCRIGD2 - Rigid Element Connection\r\n\r\nDescription\r\n\r\nDefines a rigid element in which selected degrees of freedom of the dependent\r\ngrid points are coupled to all six degrees of freedom of the reference grid\r\npoint.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRIGD2    EID    IG     G1     C1     G2     C2     G3     C3   abc  \r\nĴ\r\nCRIGD2    102    20     9      12     45     123    53     135  123  \r\n\r\nĿ\r\n+bc        G4    C4    -etc.-                                        \r\nĴ\r\n+23        27    456                                                 \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIG        Identification number of the reference grid point (Integer > 0).\r\n\r\nGi        Identification numbers of the dependent grid points (Integer > 0).\r\n\r\nCi        List of selected degrees of freedom associated with the preceding\r\n          dependent grid point (any of the digits 1 - 6 with no imbedded\r\n          blanks).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Only one reference grid point is allowed per element. It must appear before\r\n  the dependent grid point data.\r\n\r\n3.Any number of dependent grid points may be specified.\r\n\r\n4.Dependent degrees of freedom defined in a RIGD2 element may not appear on\r\n  OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly\r\n  implied on ASET or ASET1 cards.  They also may not appear as dependent\r\n  degrees of freedom in RIGD1, RIGD3 or RIGDR elements, or on MPC cards.\r\n\r\n5.Rigid elements are not allowed in heat transfer analysis.\r\n\r\n6.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nCRIGD3 - General Rigid Element Connection\r\n\r\nDescription\r\n\r\nDefines a rigid element in which selected degrees of freedom of the dependent\r\ngrid points are coupled to six selected degrees of freedom at one or more (up\r\nto six) reference grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRIGD3    EID    IG1    IC1    IG2    IC2    IG3    IC3         abc  \r\nĴ\r\nCRIGD3    103    11      1     12      2     13      4          ABC  \r\n\r\nĿ\r\n+bc              IG4    IC4    IG5    IC5    IG6    IC6         def  \r\nĴ\r\n+BC              14     35     15      6                        DEF  \r\n\r\nĿ\r\n+ef      \"MSET\"  DG1    DC1    DG2    DC2    DG3    DC3         ghi  \r\nĴ\r\n+EF       MSET   21     123    22      1     23    123456       GHI  \r\n\r\nĿ\r\n+hi              DG4    DC4    DG5    DC5   -etc.-                   \r\nĴ\r\n+HI              24     456    25      2                             \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIGi       Identification numbers of the reference grid points (Integer > 0).\r\n\r\nICi       List of selected degrees of freedom associated with the preceding\r\n          reference grid point (any of the digits 1 - 6 with no imbedded\r\n          blanks).\r\n\r\n\"MSET\"    BCD string that indicates the start of the data for the dependent\r\n          grid points.\r\n\r\nDGi       Identification numbers of the dependent grid points (Integer > 0).\r\n\r\nDCi       List of selected degrees of freedom associated with the preceding\r\n          dependent grid point (any of the digits 1 - 6 with no imbedded\r\n          blanks).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The total number of degrees of freedom specified for the reference grid\r\n  points (IC1 through IC6) must be six. Further, they should together be\r\n  capable of representing any general rigid body motion of the element.\r\n\r\n3.The first continuation card is not required if less than four reference\r\n  gridpoints are specified.\r\n\r\n4.The BCD word MSET is required in order to indicate the start of the\r\n  dependent grid point data.\r\n\r\n5.Any number of dependent grid points may be specified.\r\n\r\n6.Dependent degrees of freedom defined in a RIGD3 element may not appear on\r\n  OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly\r\n  implied on ASET or ASET1 cards. They also may not appear as dependent\r\n  degrees of freedom in RIGD1, RIGD2, or RIGDR elements, or on MPC cards.\r\n\r\n7.Rigid elements are not allowed in heat transfer analysis.\r\n\r\n8.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nCRIGDR - Rigid Rod Element Connection\r\n\r\nDescription\r\n\r\nDefines a pin-ended rod element that is rigid in extension-compression.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRIGDR    EID     G     G1     C1     EID     G     G1     C1        \r\nĴ\r\nCRIGDR    104     5     9      3      302     12     4      2        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nG         Identification number of the reference grid point (Integer > 0).\r\n\r\nG1        Identification number of the dependent grid point (Integer > 0; G1\r\n          not equal G).\r\n\r\nC1        Dependent translational degree of freedom of grid point G1 (1 <=\r\n          Integer <= 3).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Only one reference grid point and only one dependent grid point are allowed\r\n  per element. The two points may not be coincident.\r\n\r\n3.The direction represented by the dependent translational degree of freedom\r\n  of the dependent grid point may not be perpendicular or nearly\r\n  perpendicular to the element.\r\n\r\n4.One or two RIGDR elements may be defined on a single card.\r\n\r\n5.Dependent degrees of freedom defined in a RIGDR element may not appear on\r\n  OMIT, OMIT1, SPC, SPC1, or SUPORT cards, nor may they be redundantly\r\n  implied on ASET or ASET1 cards. They also may not appear as dependent\r\n  degrees of freedom in RIGD1, RIGD2, or RIGD3 elements, or on MPC cards.\r\n\r\n6.Rigid elements are not allowed in heat transfer analysis.\r\n\r\n7.For a discussion of rigid elements, see Section 3.5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nCROD - Rod Element Connection\r\n\r\nDescription\r\n\r\nDefines a tension-compression-torsion element (ROD) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCROD      EID    PID    G1     G2     EID    PID    G1     G2        \r\nĴ\r\nCROD       12     13    21     23      3      12    24      5        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PROD property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.See CONROD for alternative method of rod definition.\r\n\r\n3.One or two ROD elements may be defined on a single card.\r\n=PAGE=\r\nCRROD - Rigid Pin-Ended Rod\r\n\r\nDescription\r\n\r\nDefines a pin-ended rod that is rigid in extension.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRROD     EID     G1    G2     C1     C2                             \r\nĴ\r\nCRROD      14     1     2      2                                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nGi        Identification numbers of connection grid points (Integers > 0).\r\n\r\nCi        Component number of one and only one dependent translational\r\n          degree of freedom in the global coordinate system assigned to\r\n          either G1 or G2. (Integer equals 1, 2, or 3.) Either C1 or C2 must\r\n          contain an integer and the other must be blank. See Remarks 2 and\r\n          3.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The grid point that associates with a blank Ci field is designated as the\r\n  reference independent grid point.\r\n\r\n3.The dependent (that is, constrained) degrees of freedom in a CRROD element\r\n  may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they be\r\n  redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n4.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n5.Forces of constraint are not recovered.\r\n\r\n6.Rigid elements are ignored in heat transfer problems.\r\n\r\n7.The degree of freedom selected to be dependent must have a nonzero\r\n  component along the axis of the rod.\r\n\r\n8.NASTRAN actually converts the CRROD input card into the CRIGDR card format,\r\n  and thus processes a CRROD card as if it were a CRIGDR card. The following\r\n  table shows the conversion, in free-field format, of two possible cases:\r\n\r\n  Case  CRROD Card                 ===>  Equivalent CRIGDR Card\r\n\r\n   1    CRROD, EID, G1, G2, C1,    ===>  CRIGDR, EID, G2, G1, C1\r\n   2    CRROD, EID, G1, G2,   , C2 ===>  CRIGDR, EID, G1, G2, C2\r\n\r\n9.See Section 1.4.2.2 for a discussion of rigid elements.\r\n=PAGE=\r\nCRSPLINE - Interpolation Constraint Element\r\n\r\nDescription\r\n\r\nDefines multipoint constraints for the interpolation of displacements at grid\r\npoints.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRSPLINE  EID    D/L    G1     G2     C2     G3     C3     G4   abc  \r\nĴ\r\nCRSPLINE   73    .05    27     28    123456  29            30   ABC  \r\n\r\nĿ\r\n+bc       C4      G5    C5     G6    -etc.-                          \r\nĴ\r\n+BC       123     75    123    71                                    \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nD/L       Ratio of the diameter of the elastic tube which the spline\r\n          represents to the sum of the lengths of all segments. Default =\r\n          0.1 (Real > 0.).\r\n\r\nGi        Identification number of the ith grid point (Integer > 0).\r\n\r\nCi        Components to be constrained at the ith grid point (any of the\r\n          digits 1 - 6 with no imbedded blanks, or blank). See Remark 3.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Displacements are interpolated from the equations of an elastic beam\r\n  passing through the grid points.\r\n\r\n3.A blank entry in Ci indicates that all six degrees of freedom at Gi are\r\n  independent. Since G1 must be independent, no field is provided for C1.\r\n  Since the last grid point must also be independent, the last entry must be\r\n  a Gi, not a Ci. For the example shown, G1, G3, and G6 are independent; G2\r\n  has six constrained degrees of freedom while G4 and G5 each have three.\r\n\r\n4.The dependent (that is, constrained) degrees of freedom in a CRSPLINE\r\n  element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they\r\n  be redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n5.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n6.Forces of constraint are not recovered.\r\n\r\n7.Rigid elements are ignored in heat transfer problems.\r\n\r\n8.This CRSPLINE is not really a rigid element in the normal sense, and should\r\n  not be used for other than its intended purpose.\r\n\r\n9.Unlike the other rigid elements, this CRSPLINE element and the CRBE3\r\n  element cannot be converted into CRIGD2 or CRIGD3 elements. A FORTRAN\r\n  subroutine (in single precision version and in double precision version)\r\n  was written to handle these two special rigid elements.\r\n=PAGE=\r\nCRTRPLT - Rigid Triangular Plate\r\n\r\nDescription\r\n\r\nDefines a rigid triangular plate.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCRTRPLT   EID    G1     G2     G3     IC1    IC2    IC3         abc  \r\nĴ\r\nCRTRPLT    7      1      2      3     1236    3      3          ABC  \r\n\r\nĿ\r\n+bc       DC1    DC2   DC3                                           \r\nĴ\r\n+BC                                                                  \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nGi        Identification numbers of the triangular plate grid points.\r\n          (Integers > 0).\r\n\r\nICi       Independent degrees of freedom in the global coordinate system for\r\n          the element at grid points Gi (any of the digits 1 - 6 with no\r\n          imbedded blanks. Integers > 0 or blank.) See Remark 2.\r\n\r\nDCi       Dependent degrees of freedom in the global coordinate system (any\r\n          of the digits 1 - 6 with no imbedded blanks. Integers > 0 or\r\n          blank.) See Remarks 3 and 4.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The total number of degrees of freedom specified for the reference grid\r\n  points (IC1, IC2, and IC3) must be six; for example, IC1 = 1236, IC2 = 3,\r\n  IC3 = 3. Further, they should together be capable of representing any\r\n  general rigid body motion of the element.\r\n\r\n3.If DC1, DC2, and DC3 are all zero or blank or if the continuation card is\r\n  omitted, all of the degrees of freedom not in IC1, IC2, and IC3 will be\r\n  made dependent.\r\n\r\n4.The dependent (that is, constrained) degrees of freedom in a CRTRPLT\r\n  element may not appear on OMIT, OMIT1, SPC, or SUPORT cards, nor may they\r\n  be redundantly implied on ASET or ASET1 cards. They may not appear as\r\n  dependent degrees of freedom in other rigid elements or on MPC cards.\r\n  Degrees of freedom declared to be independent by a rigid element can be\r\n  made dependent by another rigid element or by an MPC card.\r\n\r\n5.Rigid elements, unlike MPCs, are not selected through the Case Control\r\n  Deck.\r\n\r\n6.Forces of constraint are not recovered.\r\n\r\n7.Rigid elements are ignored in heat transfer problems.\r\n\r\n8.NASTRAN actually converts the CRTRPLT input card into the CRIGD3 card\r\n  format, and thus processes a CRTRPLT card as if it were a CRIGD3 card. The\r\n  following table shows the method of conversion, in free-field format:\r\n\r\n  CRTRPLT Card            ===> Equivalent CRIGD3 Card\r\n\r\n  CRTRPLT, EID, G1,  G2, G3, IC1, IC2, IC3\r\n         , DC1, DC2, DC3\r\n                          ===> CRIGD3, EID, G1, IC1, G2, IC2, G3, IC3\r\n                               ,'MSET', G1, DC1, G2, DC2, G3, DC3\r\n\r\n9.See Section 1.4.2.2 for a discussion of rigid elements.\r\n=PAGE=\r\nCSHEAR - Shear Panel Element Connection\r\n\r\nDescription\r\n\r\nDefines a shear panel element (SHEAR) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCSHEAR    EID    PID    G1     G2     G3     G4                      \r\nĴ\r\nCSHEAR     3      6      1      5      3      7                      \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PSHEAR property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n=PAGE=\r\nCSLOTi - Slot Element Connections\r\n\r\nDescription\r\n\r\nDefines an element connecting i = 3 or i = 4 points which solves the wave\r\nequation in two dimensions. Used in acoustic cavity analysis for the\r\ndefinition of evenly spaced radial slots.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCSLOT3    EID    IDS1   IDS2   IDS3          RHO     B      M        \r\nĴ\r\nCSLOT3    100     1      3      2           3.E-3           6        \r\n\r\nĿ\r\nCSLOT4    EID    IDS1   IDS2   IDS3   IDS4   RHO     B      M        \r\nĴ\r\nCSLOT4    101     1      3      2      4           6.2+4    3        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nIDSj      Identification number of connected grid points, j = 1,2,...J\r\n          (Integer > 0).\r\n\r\nRHO       Fluid density in mass units (Real > 0.0 or blank).\r\n\r\nB         Fluid bulk modulus (Real >= 0.0 or blank).\r\n\r\nM         Number of slots in circumferential direction (Integer >= 0, or\r\n          blank).\r\n\r\nRemarks\r\n\r\n1.This card is allowed only if an AXSLOT card is also present.\r\n\r\n2.The element identification number (EID) must be unique with respect to all\r\n  other fluid or structural elements.\r\n\r\n3.If RHO, B, or M is blank, the corresponding values on the AXSLOT data card\r\n  are used, in which case the default value must not be blank (undefined).\r\n\r\n4.Plot elements connecting two points at a time are generated for these\r\n  elements. The CSLOT3 element generates three plot elements. The CSLOT4\r\n  element generates four plot elements, connecting points 1-2, 2-3, 3-4, and\r\n  4-1.\r\n\r\n5.If B = 0.0 the slot is considered to be an incompressible fluid.\r\n\r\n6.If M = 0 no matrices for CSLOTi elements are generated.\r\n=PAGE=\r\nCTETRA - Tetrahedron Element Connection\r\n\r\nDescription\r\n\r\nDefines a tetrahedron element (3 dimensional solid with 4 vertices and 4\r\ntriangular faces, TETRA) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTETRA    EID    PID    G1     G2     G3     G4                      \r\nĴ\r\nCTETRA    15      2      4      7      9     11                      \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integers >\r\n          0, G1 through G4 must be unique). See Figure 2.4-26.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.There is no nonstructural mass.\r\n\r\n3.For structural problems, material must be defined by MAT1 card.\r\n\r\n4.Output stresses are given in basic coordinate system.\r\n\r\n5.For heat transfer problems, material may be defined with either a MAT4 or\r\n  MAT5 card.\r\n\r\n                                         G4\r\n                                         *\r\n                                        /\\\r\n                                       /  \\\r\n                                      /    \\\r\n                                     /      \\\r\n                                  G1*        \\\r\n                                    \\ .       \\\r\n                                     \\  .      \\\r\n                                      \\   .     \\\r\n                                       \\     .   \\\r\n                                         **\r\n                                        G2          G3\r\n\r\n            Figure 2.4-26. CTETRA grid point identification numbers\r\n=PAGE=\r\nCTORDRG - Toroidal Ring Element Connection\r\n\r\nDescription\r\n\r\nDefines an axisymmetric toroidal cross-section ring element (TORDRG) of the\r\nstructural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTORDRG   EID    PID    G1     G2     A1     A2                      \r\nĴ\r\nCTORDRG   25      2     47     48     30.0   60.0                    \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Property identification number (default is EID) (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nA1        Angle of curvature at grid point 1 in degrees (Real; 0 degrees <=\r\n          A1 <= 180 degrees; A2 >= A1).\r\n\r\nA2        Angle of curvature at grid point 2 in degrees (Real; 0 degrees <=\r\n          A2 <= 180 degrees; A2 >= A1). See Figure 2.4-27.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 and G2 must lie in the x-z plane of the basic coordinate\r\n  system and to the right of the axis of symmetry (the z-axis).\r\n\r\n3.If A1 = 0, the element is assumed to be a shell cap.\r\n\r\n4.Only elements of zero or positive Gaussian curvature may be used.\r\n\r\n                       z\r\n                       \r\n                              A1/Surface\r\n                               / Normal\r\n              Axis            /\r\n               of             *\r\n            Symmetry          G1        \r\n                                        \r\n                                         A2\r\n                                        *\r\n                                        G2     Surface\r\n                                               Normal\r\n                        x\r\n\r\n           Figure 2.4-27. CTORDRG grid point identification numbers\r\n=PAGE=\r\nCTRAPAX - Trapezoidal Ring Element Connection\r\n\r\nDescription\r\n\r\nDefines an axisymmetric trapezoidal cross-section ring element with\r\nnon-axisymmetric deformation of the structural model with reference to\r\nproperty card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRAPAX   EID    PID    R1     R2     R3     R4     TH               \r\nĴ\r\nCTRAPAX   15      5     10     11     12     13    30.0              \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRAPAX card (Integer > 0).\r\n\r\nR1, R2, R3, R4  Identification numbers of RINGAX cards (Integer > 0; R1\r\n          through R4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-28 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.CTRAPAX card is allowed if and only if an AXIC card is also present.\r\n\r\n2.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n3.RINGAX identification numbers R1, R2, R3, and R4 must be ordered\r\n  counterclockwise around the perimeter.\r\n\r\n4.For a discussion of the axisymmetric ring problem, see Section 5.11 of the\r\n  Theoretical Manual.\r\n\r\n5.The lines connecting R1 to R2 and R4 to R3 must be parallel to the r axis.\r\n\r\n6.This element cannot be modeled with a grid point on the axis of symmetry.\r\n\r\n                 z\r\n                 \r\n                        \r\n                        \r\n                        \r\n                           R4 ** R3\r\n       Axis                  /               \\\r\n        of                  /         .       \\\r\n     Symmetry              /       .           \\\r\n                          /     .               \\\r\n                         /   .    TH             \\\r\n                        / .                       \\\r\n                     R1 ** R2\r\n                 \r\n                 \r\n                  r\r\n\r\n                 Figure 2.4-28. CTRAPAX sign convention for TH\r\n=PAGE=\r\nCTRAPRG - Trapezoidal Ring Element Connection\r\n\r\nDescription\r\n\r\nDefines an axisymmetric trapezoidal cross-section ring element (TRAPRG) of the\r\nstructural model without reference to a property card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRAPRG   EID    G1     G2     G3     G4     TH     MID              \r\nĴ\r\nCTRAPRG    72    13     14     15     16    29.2    13               \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification number of connection points (Integers >\r\n          0; G1 through G4 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-29 gives the sign convention for TH.\r\n\r\nMID       Material property identification number (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The four grid points must lie in the x-z plane of both the basic and any\r\n  local coordinate systems and to the right of the axis of symmetry (the\r\n  z-axis), except that the grid points G1 and G4 may lie on the axis of\r\n  symmetry in the limiting case when the element becomes a solid core\r\n  element. (See Section 1.3.7.1.)\r\n\r\n3.Grid points G1, G2, G3, and G4 must be ordered counterclockwise around the\r\n  perimeter of the element as in the above sketch.\r\n\r\n4.The line connecting grid points G1 and G2 and the line connecting grid\r\n  points G3 and G4 must both be parallel to the x-axis.\r\n\r\n5.All interior angles must be less than 180 degrees.\r\n\r\n6.For structural problems, the material property identification number must\r\n  reference only a MAT1 or MAT3 card.\r\n\r\n7.For heat transfer problems, the material property identification number\r\n  must reference only a MAT4 or MAT5 card.\r\n\r\n                 z\r\n                 \r\n                        \r\n                        \r\n                        \r\n                           G4 ** G3\r\n       Axis                  /               \\\r\n        of                  /         .       \\\r\n     Symmetry              /       .           \\\r\n                          /     .               \\\r\n                         /   .    TH             \\\r\n                        / .                       \\\r\n                     G1 ** G2\r\n                 \r\n                 \r\n                  x\r\n\r\n           Figure 2.4-29. CTRAPRG grid point identification numbers\r\n=PAGE=\r\nCTRBSC - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a basic triangular bending element (TRBSC) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRBSC    EID    PID    G1     G2     G3     TH                      \r\nĴ\r\nCTRBSC    16      2     12      1      3    16.2                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRBSC property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G3 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-30 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n3.No structural mass is generated by this element.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                 Figure 2.4-30. CTRBSC sign convention for TH\r\n=PAGE=\r\nCTRIA1 - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular membrane and bending element (TRIA1) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIA1    EID    PID    G1     G2     G3     TH                      \r\nĴ\r\nCTRIA1    16      2     12      1      3    16.2                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRIA1 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G3 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-31 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                 Figure 2.4-31. CTRIA1 sign convention for TH\r\n=PAGE=\r\nCTRIA2 - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular membrane and bending element (TRIA2) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIA2    EID    PID    G1     G2     G3     TH                      \r\nĴ\r\nCTRIA2    16      2     12      1      3    16.2                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRIA2 property card (default Is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G3 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-32 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                 Figure 2.4-32. CTRIA2 sign convention for TH\r\n=PAGE=\r\nCTRIA3 - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular plate element (CTRIA3) of the structural model. This is\r\nan isoparametric membrane-bending element, with variable element thickness,\r\nlayered composite material, and thermal analysis capabilities.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIA3    EID    PID    G1     G2     G3     TM     ZO          abc  \r\nĴ\r\nCTRIA3    101    17    1001   1005   1010   45.0   0.01         ABC  \r\n\r\nĿ\r\n+bc                     T1     T2     T3                             \r\nĴ\r\n+BC                    0.03   0.125  0.05                            \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PSHELL entry (default is EID) (Integer\r\n          > 0). For composites, see Remark 5.\r\n\r\nGi        Grid point identification numbers of connection points (Integer >\r\n          0).\r\n\r\nZO        Offset of the elementary reference plane (element mid-plane) from\r\n          the plane of grid points (Real or blank; see Remarks 3 and 6).\r\n\r\nTM        Material property orientation specification (Real or blank, or 0\r\n          <= Integer < 1,000,000). If Real or blank, specifies the material\r\n          property orientation angle in degrees. If Integer, the orientation\r\n          of the material x-axis is along the projection onto the plane of\r\n          the element of the x-axis of the coordinate system specified by\r\n          the integer value. (See Guidelines.)\r\n\r\nTi        Membrane thickness of element at grid points Gi (Real or blank;\r\n          see Remark 4 for default).\r\n\r\nRemarks\r\n\r\n1.The TRIA3 geometry, coordinate systems, and numbering are shown in Figure\r\n  2.4-33.\r\n\r\n2.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n3.The material coordinate system (TM) and the offset (ZO) may also be\r\n  provided on the PSHELL entry. The PSHELL data will be used if the\r\n  corresponding field on the CTRIA3 entry is blank.\r\n\r\n4.The Ti are optional; if not supplied they will be set to the value of T\r\n  specified on the PSHELL entry. In such cases, the continuation entry is not\r\n  required.\r\n\r\n5.For composites, a PCOMP, PCOMP1, PCOMP2 card can be used instead of a\r\n  PSHELL card.\r\n\r\n6.The \"Guidelines for the Use of CQUAD4\" and \"Guidelines for the use of PCOMP,\r\n  PCOMP1, and PCOMP2\" are also applicable to this CTRIA3 element.\r\n\r\n7.IMPORTANT: One-third of the CTRIA3 element mass is distributed to each grid\r\n  point if the element has uniform thickness, disregarding the geometry of\r\n  the element (same distribution as CTRIA1 and CTRIA2 elements). This\r\n  one-third mass distribution formulation also exerts heavy influence on an\r\n  element with variable thickness.\r\n\r\n8.IMPORTANT: If PLOAD2 or PLOAD4 are applied to the CTRIA3 element, the total\r\n  pressure load is evenly distributed to the three grid points (same result\r\n  when PLOAD2 is applied to CTRIA1 or CTRIA2 element). PLOAD2 can be used\r\n  with the 88th word of SYSTEM set to 1 to distribute load more correctly.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                        Figure 2.4-33. CTRIA3 geometry\r\n=PAGE=\r\nCTRIAAX - Triangular Ring Element Connection\r\n\r\nDescription\r\n\r\nDefines an axisymmetric triangular cross-section ring element with\r\nnon-axisymmetric deformation of the structural model with reference to\r\nproperty card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIAAX   EID    PID    R1     R2     R3     TH                      \r\nĴ\r\nCTRIAAX   20      15    42     43     52    60.0                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRIAAX card (Integer > 0).\r\n\r\nR1, R2, R3Identification numbers of RINGAX cards (Integer > 0; R1 through R3\r\n          must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-34 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.The CTRIAAX card is allowed if and only if an AXIC card is also present.\r\n\r\n2.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n3.RINGAX identification numbers R1, R2, and R3 must be ordered\r\n  counterclockwise around the perimeter.\r\n\r\n4.For a discussion of the axisymmetric ring problem, see Section 5.11 of the\r\n  Theoretical Manual.\r\n\r\n                      z\r\n                                  *R3\r\n                                / \\\r\n                               /   \\      .\r\n       Axis                   /     \\  .\r\n        of                   /      .\\\r\n    Symmetry                /    .    \\\r\n                           /  .    TH  \\\r\n                          /.            \\\r\n                          **\r\n                          R1              R2\r\n                      \r\n                       r\r\n\r\n                 Figure 2.4-34. CTRIAAX sign convention for TH\r\n=PAGE=\r\nCTRIARG - Triangular Ring Element Connection\r\n\r\nDescription\r\n\r\nDefines an axisymmetric triangular cross section ring element (TRIARG) of the\r\nstructural model without reference to a property card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIARG   EID    G1     G2     G3     TH     MID                     \r\nĴ\r\nCTRIARG    16    12     13     14    29.2    17                      \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integers >\r\n          0; G1 through G3 must be unique). See Figure 2.4-35.\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-35 gives the sign convention for TH.\r\n\r\nMID       Material identification number (Integer 0).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The grid points must lie in the x-z plane of both the basic and any local\r\n  coordinate systems and to the right of the axis of symmetry (the z-axis).\r\n\r\n3.Grid points G1, G2, and G3 must be ordered counterclockwise around the\r\n  perimeter of the element as shown in the above sketch.\r\n\r\n4.For structural problems, the material property identification number must\r\n  reference only a MAT1 or MAT3 card.\r\n\r\n5.For heat transfer problems, the material property identification number\r\n  must reference only a MAT4 or MAT5 card.\r\n\r\n                      z\r\n                                  *G3\r\n                                / \\\r\n                               /   \\      .\r\n       Axis                   /     \\  .\r\n        of                   /      .\\\r\n    Symmetry                /    .    \\\r\n                           /  .    TH  \\\r\n                          /.            \\\r\n                          **\r\n                          G1              G2\r\n                      \r\n                       x\r\n\r\n           Figure 2.4-35. CTRIARG grid point identification numbers\r\n=PAGE=\r\nCTRIM6 - Linear Strain Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a linear strain triangular membrane element (TRIM6) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRIM6    EID    PID    G1     G2     G3     G4     G5     G6   +abc \r\nĴ\r\nCTRIM6    220    666   100     110    120    210    220    320   AC3 \r\n\r\nĿ\r\n+abc      TH                                                         \r\nĴ\r\n+C3       90.0                                                       \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of PTRIM6 property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G6 Grid point identification numbers of connection points (Integers >\r\n          0); G1 through G6 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-36 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n3.The grid points must be ordered consecutively around the perimeter in a\r\n  counterclockwise direction and starting at a vertex.\r\n\r\n4.If MAT2 card is used, material properties and stresses are given in the\r\n  material coordinate system.\r\n\r\n5.The continuation card must be present.\r\n\r\n6.Grid points G2, G4, and G6 are assumed to lie at the midpoints of the\r\n  sides. The locations of these points (defined by GRID cards) are used only\r\n  for the global coordinate system definition, the Grid Point Weight\r\n  Generator, centrifugal forces, and deformed structure plotting.\r\n\r\n                                   *G5\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           | G6*      .*G4\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - -*- - - -* -------xe\r\n                           G1      G2      G3\r\n\r\n                 Figure 2.4-36. CTRIM6 sign convention for TH\r\n=PAGE=\r\nCTRMEM - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular membrane element (TRMEM) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRMEM    EID    PID    G1     G2     G3     TH                      \r\nĴ\r\nCTRMEM    16      2     12      1      3    16.3                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRMEM property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G3 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-37 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                 Figure 2.4-37. CTRMEM sign convention for TH\r\n=PAGE=\r\nCTRPLT - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular bending element (TRPLT) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRPLT    EID    PID    G1     G2     G3     TH                      \r\nĴ\r\nCTRPLT    16      2     12      1      3    16.2                     \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTRPLT property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2, G3Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G3 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-38 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n3.No structural mass is generated by this element.\r\n\r\n                                   *G3\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           |   /      .\\\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - - - - - -* -------xe\r\n                           G1              G2\r\n\r\n                 Figure 2.4-38. CTRPLT sign convention for TH\r\n=PAGE=\r\nCTRPLT1 - Triangular Element Connection\r\n\r\nDescription\r\n\r\nDefines a higher order triangular bending element (TRPLT1) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRPLT1   EID    PID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCTRPLT1   160     20    120    10     30     40     70     110  ABC  \r\n\r\nĿ\r\n+bc       TH                                                         \r\nĴ\r\n+BC       16.2                                                       \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of PTRPLTI property card (default is EID) \r\n          (Integer > 0).\r\n\r\nG1,...,G6 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G6 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-39 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n3.The grid points must be ordered consecutively around the perimeter in\r\n  counterclockwise direction and starting at a vertex.\r\n\r\n4.The continuation card is required.\r\n\r\n                                   *G5\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           | G6*      .*G4\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - -*- - - -* -------xe\r\n                           G1      G2      G3\r\n\r\n                 Figure 2.4-39. CTRPLT1 sign convention for TH\r\n=PAGE=\r\nCTRSHL - Triangular Shell Element Connection\r\n\r\nDescription\r\n\r\nDefines a triangular thin shallow shell element (TRSHL) of the structural\r\nmodel.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTRSHL    EID    PID    G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCTRSHL    160     20    120    10     30     40     70     110  ABC  \r\n\r\nĿ\r\n+bc       TH                                                         \r\nĴ\r\n+BC       16.2                                                       \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of PTRSHL property card (default is EID) \r\n          (Integer > 0).\r\n\r\nG1,...,G6 Grid point identification numbers of connection points (Integers >\r\n          0; G1 through G6 must be unique).\r\n\r\nTH        Material property orientation angle in degrees (Real). Figure\r\n          2.4-40 gives the sign convention for TH.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Interior angles must be less than 180 degrees.\r\n\r\n3.The grid points must be listed consecutively around the perimeter in\r\n  counterclockwise direction and starting at a vertex.\r\n\r\n4.The continuation card must be present.\r\n\r\n                                   *G5\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           | G6*      .*G4\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - -*- - - -* -------xe\r\n                           G1      G2      G3\r\n\r\n                 Figure 2.4-40. CTRSHL sign convention for TH\r\n=PAGE=\r\nCTUBE - Tube Element Connection\r\n\r\nDescription\r\n\r\nDefines a tension-compression-torsion element (TUBE) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTUBE     EID    PID    G1     G2     EID    PID    G1     G2        \r\nĴ\r\nCTUBE      12     13    21     23      3      12    24      5        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTUBE property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.One or two TUBE elements may be defined on a single card.\r\n=PAGE=\r\nCTWIST - Twist Panel Element Connection\r\n\r\nDescription\r\n\r\nDefines a twist panel element (TWIST) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCTWIST    EID    PID    G1     G2     G3     G4                      \r\nĴ\r\nCTWIST     2      6     1      5       3     7                       \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nPID       Identification number of a PTWIST property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1,...,G4 Grid point identification numbers of connection points (Integer >\r\n          0; G1 through G4 must be unique).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.Grid points G1 through G4 must be ordered consecutively around the\r\n  perimeter of the element.\r\n\r\n3.All interior angles must be less than 180 degrees.\r\n=PAGE=\r\nCVISC - Viscous Damper Connection\r\n\r\nDescription\r\n\r\nDefines a viscous damper element (VISC) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCVISC     EID    PID    G1     G2     EID    PID    G1     G2        \r\nĴ\r\nCVISC      21    6327   29     31     22     6527   35     33        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > O).\r\n\r\nPID       Identification number of PVISC property card (default is EID)\r\n          (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.One or two VISC elements may be defined on a single card.\r\n\r\n3.Used only for direct formulation of dynamic analyses.\r\n=PAGE=\r\nCWEDGE - Wedge Element Connection\r\n\r\nDescription\r\n\r\nDefines a wedge element (three dimensional solid, with three quadrilateral\r\nfaces and two opposing triangular faces, WEDGE) of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCWEDGE    EID    MID    G1     G2     G3     G4     G5     G6        \r\nĴ\r\nCWEDGE     15     2      3      6      9     12     15     18        \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nG1,...,G6 Grid point identification numbers of connection points (Integers >\r\n          0, G1 through G6 must be unique). See Figure 2.4-41.\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.The order of the grid points is: G1, G2, G3 on one triangular face, G4, G5,\r\n  G6 at the other triangular face. G1, G4 on a common edge, G2, G5 on a\r\n  common edge.\r\n\r\n3.The quadrilateral faces must be nearly planar.\r\n\r\n4.There is no nonstructural mass.\r\n\r\n5 For structural problems, material must be defined by MAT1 card.\r\n\r\n6.Output stresses are given in the basic coordinate system.\r\n\r\n7.For heat transfer problems, material may be defined with either a MAT4 or\r\n  MAT5 card.\r\n\r\n                                     G4_____G6\r\n                                      /\\   /\\\r\n                                     /  \\ /  \\\r\n                                    /    *G5  \\\r\n                                 G1*  ij  *G3\r\n                                    \\        /\r\n                                     \\      /\r\n                                      \\    /\r\n                                       \\  /\r\n                                         *\r\n                                         G2\r\n\r\n            Figure 2.4-41. CWEDGE grid point identification numbers\r\n=PAGE=\r\nCYJOIN - Cyclic Symmetry Boundary Points\r\n\r\nDescription\r\n\r\nDefines the boundary points of a segment for cyclic symmetry structural\r\nmodels.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nCYJOIN    SIDE    C     G1     G2     G3     G4     G5     G6   abc  \r\nĴ\r\nCYJOIN     1             7      9     16     25     33     64   ABC  \r\n\r\nĿ\r\n+bc       G7     G8     G9   -etc.-                                  \r\nĴ\r\n+BC       72                                                         \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nCYJOIN    SIDE    C     GID1 \"THRU\"   GID2                           \r\nĴ\r\nCYJOIN     2      S      6    THRU    32                             \r\n\r\n\r\nField     Contents\r\n\r\nSIDE      Side identification (Integer 1 or 2).\r\n\r\nC         Coordinate system (BCD value R, C, or S, or blank).\r\n\r\nGi, GIDi  Grid or scalar point identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.CYJOIN bulk data cards are only used for cyclic symmetry problems. A\r\n  parameter (CTYPE) must specify rotational or dihedral symmetry.\r\n\r\n2.For rotational symmetry problems there must be one logical card for side 1\r\n  and one for side 2. The two lists specify grid points to be connected,\r\n  hence both lists must have the same length.\r\n\r\n3.For dihedral symmetry problems, side 1 refers to the boundary between\r\n  segments and side 2 refers to the middle of a segment. A coordinate system\r\n  must be referenced in field 3, where R = rectangular, C = cylindrical, and\r\n  S = spherical.\r\n\r\n4.All components of displacement at boundary points are connected to adjacent\r\n  segments, except those constrained by SPC, MPC, or OMIT.\r\n=PAGE=\r\nDAREA - Dynamic Load Scale Factor\r\n\r\nDescription\r\n\r\nThe DAREA card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1, and\r\nTLOAD2 data cards and defines the point where the dynamic load is to be\r\napplied with the scale (area) factor A.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDAREA     SID     P      C      A      P      C      A               \r\nĴ\r\nDAREA      3      6      2     8.2     15     1     10.1             \r\n\r\n\r\nField     Contents\r\n\r\nSID       Identification number of DAREA set (Integer > 0).\r\n\r\nP         Grid or scalar point identification number (Integer > 0).\r\n\r\nC         Component number (1 - 6 for grid point: blank or 0 for scalar\r\n          point).\r\n\r\nA         Scale (area) factor A for the designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1.One or two scale factors may be defined on a single card.\r\n\r\n2.For axisymmetric problems, P represents the NASTRAN (or internal) grid ID\r\n  and is given by the following algorithm:\r\n\r\n  P = Your (or external) ring ID + 10**6 x (harmonic + 1)\r\n=PAGE=\r\nDAREAS - Dynamic Load Scale Factor, Substructure Analysis\r\n\r\nDescription\r\n\r\nThe DAREAS card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1, and\r\nTLOAD2 data cards and defines the point where the dynamic load is to be\r\napplied with the scale (area) factor A.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDAREAS    SID    NAME    P      C      A      P      C      A        \r\nĴ\r\nDAREAS     3     SKIN    6      2     8.2     15     1     10.1      \r\n\r\n\r\nField     Contents\r\n\r\nSID       Identification number of DAREA set (Integer >  0).\r\n\r\nNAME      Basic substructure name.\r\n\r\nP         Grid or scalar point identification number (Integer > 0).\r\n\r\nC         Component number (1 - 6 for grid point; blank or 0 for scalar\r\n          point).\r\n\r\nA         Scale (area) factor A for the designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1.One or two scale factors may be defined on a single card.\r\n\r\n2.Used in substructure SOLVE operation.\r\n\r\n3.Points referenced must exist in the SOLVEd structure.\r\n=PAGE=\r\nDEFORM - Element Deformation\r\n\r\nDescription\r\n\r\nDefines enforced axial deformation for one-dimensional elements for use in\r\nstatics problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDEFORM    SID    EID     D     EID     D     EID     D               \r\nĴ\r\nDEFORM     1     535    .05    536   -.10                            \r\n\r\n\r\nField     Contents\r\n\r\nSID       Deformation set identification number (Integer > 0).\r\n\r\nEID       Element number (Integer > 0).\r\n\r\nD         Deformation (+ = elongation) (Real).\r\n\r\nRemarks\r\n\r\n1.The referenced element must be one-dimensional (that is, a ROD (including\r\n  CONROD), TUBE, or BAR).\r\n\r\n2.Deformation sets must be selected in the Case Control Deck (DEFORM = SID)\r\n  to be used by NASTRAN.\r\n\r\n3.From one to three enforced element deformations may be defined on a single\r\n  card.\r\n=PAGE=\r\nDELAY - Dynamic Load Time Delay\r\n\r\nDescription\r\n\r\nThe DELAY card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1 and\r\nTLOAD2 data cards and defines the time delay term  in the equations of the\r\nloading function.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDELAY     SID     P      C      T      P      C      T               \r\nĴ\r\nDELAY      5      21     6     4.25    7      6     8.1              \r\n\r\n\r\nField     Contents\r\n\r\nSID       Identification number of DELAY set (Integer > 0).\r\n\r\nP         Grid or scalar point identification number (Integer > 0).\r\n\r\nC         Component number (1 - 6 for grid point, blank or 0 for scalar\r\n          point).\r\n\r\nT         Time delay  for designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1.One or two dynamic load time delays may be defined on a single card.\r\n=PAGE=\r\nDELAYS - Dynamic Load Time Delay, Substructure Analysis\r\n\r\nDescription\r\n\r\nThe DELAYS card is used in conjunction with the RLOAD1, RLOAD2, TLOAD1 and\r\nTLOAD2 data cards and defines the time delay term  in the equations of the\r\nloading function.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDELAYS    SID    NAME    P      C      T      P      C      T        \r\nĴ\r\nDELAYS     5     SKIN    21     6     4.25    7      6     8.1       \r\n\r\n\r\nField     Contents\r\n\r\nSID       Identification number of DELAY set (Integer > 0).\r\n\r\nNAME      Basic substructure name.\r\n\r\nP         Grid or scalar point identification number (Integer > 0).\r\n\r\nC         Component number (1 - 6 for grid point, blank or 0 for scalar\r\n          point).\r\n\r\nT         Time delay  for designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1.One or two dynamic load time delays may be defined on a single card.\r\n\r\n2.Used in substructure SOLVE operation.\r\n\r\n3.Points referenced must exist in the SOLVEd structure.\r\n=PAGE=\r\nDLOAD - Dynamic Load Combination (Superposition)\r\n\r\nDescription\r\n\r\nDefines a dynamic loading condition for frequency response or transient\r\nresponse problems as a linear combination of load sets defined via RLOAD1 or\r\nRLOAD2 cards (for frequency response) or TLOAD1 or TLOAD2 cards (for transient\r\nresponse).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDLOAD     SID     S     S1     L1     S2     L2     S3     L3   +abc \r\nĴ\r\nDLOAD      17    1.0    2.0     6    -2.0     7     2.0    8    +A   \r\n\r\nĿ\r\n+abc      S4     L4          -etc.-                                  \r\nĴ\r\n+A       -2.0    9                                                   \r\n\r\n                               -etc.-\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nS         Scale factor (Real).\r\n\r\nSi        Scale factors (Real).\r\n\r\nLi        Load set identification numbers defined via card types enumerated\r\n          above (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.The load vector being defined by this card is given by\r\n\r\n  {P}  =  S  Si{PLi}\r\n            i\r\n\r\n2.The Li must be unique.\r\n\r\n3.SID must be different from all Li.\r\n\r\n4.Nonlinear transient loads may not be included; they are selected separately\r\n  in the Case Control Deck.\r\n\r\n5.Linear load sets must be selected in the Case Control Deck (DLOAD = SID) to\r\n  be used by NASTRAN.\r\n\r\n6.A DLOAD card may not reference a set identification number defined by\r\n  another DLOAD card.\r\n\r\n7.TLOAD1 and TLOAD2 loads may be combined only through the use of the DLOAD\r\n  card.\r\n\r\n8.RLOAD1 and RLOAD2 loads may be combined only through the use of the DLOAD\r\n  card.\r\n\r\n9.SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards.\r\n=PAGE=\r\nDMI - Direct Matrix Input\r\n\r\nDescription\r\n\r\nUsed to define matrix data blocks directly. Generates a matrix of the form\r\n\r\n                                   Ŀ\r\n            A11    A12................A1n\r\n  [A]  =    A21    A22................A2n\r\n             |      |                  | \r\n             |      |                  | \r\n            Am1.......................Amn\r\n                                   \r\n\r\nwhere the elements Aij may be real or complex single-precision or double\r\nprecision numbers.\r\n\r\nFormat and Example\r\n\r\n(The first logical card is a header card.)\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMI      NAME    \"0\"   FORM    TIN   TOUT            M      N        \r\nĴ\r\nDMI       QQQ     0      2      3      3             4      2        \r\n\r\nĿ\r\nDMI      NAME     J      I1  A(I1,J)               -etc.-   I2  +abc \r\nĴ\r\nDMI       QQQ     1      1     1.0    2.0    3.0    4.0     3   +1   \r\n\r\nĿ\r\n+abc    A(I2,J)        -etc.-                                        \r\nĴ\r\n+1        5.0    6.0                                                 \r\n\r\nĿ\r\n                                                                     \r\nĴ\r\nDMI       QQQ     2      2     6.0    7.0     4     8.0    9.0       \r\n\r\n                   -etc. for each nonnull column-\r\n\r\nField     Contents\r\n\r\nNAME      Any NASTRAN BCD value (1 - 8 alphanumeric characters, the first of\r\n          which must be alphabetic) which will be used in the DMAP sequence\r\n          to reference the data block.\r\n\r\nFORM      Matrix form:\r\n\r\n          1  Square matrix (not symmetric).\r\n          2  General rectangular matrix.\r\n          6  Symmetric matrix.\r\n\r\nTIN       Type of matrix being input as follows:\r\n\r\n           1  Real, single-precision (One field is used per element)\r\n           2  Real, double-precision (One field is used per element)\r\n           3  Complex, single-precision (Two fields are used per element)\r\n           4  Complex, double-precision (Two fields are used per element)\r\n\r\nTOUT       Type of matrix which will be created:\r\n\r\n           1  Real, single-precision    3  Complex, single-precision\r\n           2  Real, double-precision    4  Complex, double-precision\r\n\r\nM          Number of rows in A (Integer > 0).\r\n\r\nN          Number of columns in A (Integer > 0).\r\n\r\nJ          Column number of A (Integer > 0).\r\n\r\nI1, I2, etc.  Row number of A (Integer > 0).\r\n\r\nA(Ix,J)    Element of A (See TIN) (Real).\r\n\r\nRemarks\r\n\r\n1. You must write a DMAP (or make alterations to a rigid format) in order to\r\n   use the DMI feature since he is defining a data block. All of the rules\r\n   governing the use of data blocks in DMAP sequences apply. In the example\r\n   shown below, the data block QQQ is defined to be the complex,\r\n   single-precision rectangular 4x2 matrix:\r\n\r\n                                          Ŀ\r\n                    (1.0, 2.0)      (0.0, 0.0)\r\n   [QQQ]   =        (3.0, 4.0)      (6.0, 7.0)\r\n                    (5.0, 6.0)      (0.0, 0.0)\r\n                    (0.0, 0.0)      (8.0, 9.0)\r\n                                          \r\n\r\n   The DMAP data block NAME (QQQ in the example) will appear in the initial\r\n   FIAT and the data block will initially appear on the Data Pool File (POOL).\r\n\r\n2. A limit to the number of DMIs which may be defined is set by the size of\r\n   the Data Pool Dictionary. The total number of DMIs may not exceed this\r\n   size.\r\n\r\n3. There are a number of reserved words which may not be used for DMI names.\r\n   Among  these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, INP1\r\n   through INP9, GEOM1, GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT,\r\n   DYNAMICS, IFPFILE, AXIC, FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI\r\n   names, and SCRATCH1 through SCRATCH9.\r\n\r\n4. Field 3 of the header card must contain an integer 0.\r\n\r\n5. For symmetric matrices, the entire matrix must be input.\r\n\r\n6. Only nonzero terms need be entered.\r\n\r\n7. A blank field on this card is not equivalent to a zero. If zero input is\r\n   desired, the appropriate type of zero must be punched (that is, 0.0 or\r\n   0.0D0).\r\n\r\n8. Complex input must have both the real and imaginary parts punched if either\r\n   part is nonzero.\r\n\r\n9. If A (IX,J) is followed by THRU in the next field and an integer row number\r\n   IY after the THRU, then A (IX,J) will be repeated in each row through IY.\r\n   The THRU must follow an element value. In the example below, 3.14 will be\r\n   in rows 3 through 6 of column 1 and 2.0 in row 9.\r\n\r\nĿ\r\nDMI       QQQ     0      2      1      1             9      1        \r\nĴ\r\nDMI       QQQ     1      3     3.14  THRU     6      9     2.0       \r\n\r\n=PAGE=\r\nDMIAX - Direct Axisymmetric Matrix Input\r\n\r\nDescription\r\n\r\nDefines axisymmetric (fluid or structure) related direct input matrix terms.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMIAX    NAME    \"0\"    IFO    TIN   TOUT                            \r\nĴ\r\nDMIAX    B2PP     0      1      3      4                             \r\n\r\nĿ\r\nDMIAX    NAME     GJ     CJ     NJ                              +abc \r\nĴ\r\nDMIAX    B2PP     32                                            +BG27\r\n\r\nĿ\r\n+abc       GI     CI     NI    Xij    Yij                       +def \r\nĴ\r\n+BG27    1027     3          4.35+6 2.27+3                           \r\n\r\n          -etc. for each column and row containing nonzero terms-\r\n\r\nField      Contents\r\n\r\nNAME       BCD name of matrix (one to eight alphanumeric characters the first\r\n           of which is alphabetic).\r\n\r\nIFO        Identification of matrix form:\r\n\r\n           1  Square matrix\r\n           2  General rectangular matrix\r\n           6  Symmetric matrix\r\n\r\nTIN        Type of matrix being input as follows:\r\n\r\n           1  Real, single-precision (One field is used per element)\r\n           3  Complex, single-precision (Two fields are used per element)\r\n\r\nTOUT       Type of matrix which will be created:\r\n\r\n           1  Real, single-precision    3  Complex, single-precision\r\n           2  Real, double precision    4  Complex, double-precision\r\n\r\nGJ, GI     Grid, scalar, RINGFL fluid point, PRESPT pressure point, FREEPT\r\n           free surface displacement, or extra point identification number\r\n           (Integer > 0).\r\n\r\nCJ, CI     Component number for GJ or GI grid point (0 <= Integer <= 6; Blank\r\n           or zero if GJ or GI is a scalar, fluid, or extra point).\r\n\r\nNJ, NI     Harmonic number of RINGFL point. Must be blank if a point type\r\n           other than RINGFL is used. Negative number implies the sine\r\n           series, positive implies the cosine series. (Integer).\r\n\r\nXij, Yij   Real and imaginary parts of matrix element; row (GI, CI, NI)\r\n           column (GJ, CJ, NJ).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. Matrices defined on this card may be used in dynamics by selection in the\r\n   Case Control Deck by K2PP=NAME, B2PP=NAME, or M2PP=NAME for [K2pp], [B2pp],\r\n   or [M2pp] respectively.\r\n\r\n3. In addition to the header card containing IFO, TIN, and TOUT, a logical\r\n   card consisting of two or more physical cards is needed for each nonnull\r\n   column of the matrix.\r\n\r\n4. If TIN = 1, Yij must be blank.\r\n\r\n5. Field 3 of the header card must contain an integer 0.\r\n\r\n6. For symmetric matrices, the entire matrix must be input.\r\n\r\n7. Only nonzero terms need be entered.\r\n\r\n8. There are a number of reserved words which may not be used for DMIAX names.\r\n   Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1,\r\n   GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC,\r\n   FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI names, and SCRATCH1 through\r\n   SCRATCH9.\r\n=PAGE=\r\nDMIG - Direct Matrix Input at Grid Points\r\n\r\nDescription\r\n\r\nDefines structure-related direct input matrices.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMIG     NAME    \"0\"    IFO    TIN   TOUT                            \r\nĴ\r\nDMIG     STIF     0      1      3      4                             \r\n\r\nĿ\r\nDMIG     NAME     GJ     CJ            GI     CI    Xij    Yij  Xabc \r\nĴ\r\nDMIG     STIF     27     1             2      3    3.+5   3.+3  EKG1 \r\n\r\nĿ\r\n+abc       GI     CI     Xij   Yij    GI     CI     Xij    Yij  Xcef \r\nĴ\r\n+KG1       2      4    2.5+10   .0    50            1.0      0.      \r\n\r\n              -etc. for each column containing nonzero terms-\r\n\r\nField      Contents\r\n\r\nNAME       BCD name of matrix (one to eight alphanumeric characters the first\r\n           of which is alphabetic).\r\n\r\nIFO        Identification of matrix form:\r\n\r\n           1  Square matrix\r\n           2  General rectangular matrix\r\n           6  Symmetric matrix\r\n\r\nTIN        Type of matrix being input as follows:\r\n\r\n           1  Real, single-precision (One field is used per element)\r\n           3  Complex, single-precision (Two fields are used per element)\r\n\r\nTOUT       Type of matrix which will be created:\r\n\r\n           1  Real, single-precision    3  Complex, single-precision\r\n           2  Real, double-precision    4  Complex, double-precision\r\n\r\nGJ, GI     Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ, CI     Component number for GJ a grid point (0 < CJ <= 6); blank or zero\r\n           for GJ a scalar or extra point.\r\n\r\nXij, Yij   Real and imaginary parts of matrix element.\r\n\r\nRemarks\r\n\r\n1. Matrices defined on this card may be used in dynamics by selection in the\r\n   Case Control Deck by K2PP=NAME, B2PP=NAME, or M2PP=NAME for [K2pp], [B2pp],\r\n   or [M2pp], respectively.\r\n\r\n2. In addition to the header card containing IFO, TIN, and TOUT, a logical\r\n   card consisting of one or more physical cards is needed for each nonnull\r\n   column of the matrix.\r\n\r\n3. If TIN = 1, Yij must be blank.\r\n\r\n4. Field 3 of the header card must contain an integer 0.\r\n\r\n5. For symmetric matrices, the entire matrix must be input.\r\n\r\n6. Only nonzero terms need be entered.\r\n\r\n7. The matrix names must be unique among all DMIGs.\r\n\r\n8. There are a number of reserved words which may not be used for DMIG names.\r\n   Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1,\r\n   GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC,\r\n   FORCE, MATPOOL, PCDB, XYCDB, CASECC, and DTI names, and SCRATCH1 through\r\n   SCRATCH9.\r\n=PAGE=\r\nDPHASE - Dynamic Load Phase Lead\r\n\r\nDescription\r\n\r\nThe DPHASE card is used in conjunction with the RLOAD1 and RLOAD2 data cards\r\nto define the phase lead term  in the equation of the loading function.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDPHASE    SID     P      C      TH     P      C      TH              \r\nĴ\r\nDPHASE     4      21     6     2.1     8      6     7.2              \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of DPHASE set (Integer > 0).\r\n\r\nP          Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number (1 - 6 for grid point, 0 or blank for scalar\r\n           point).\r\n\r\nTH         Phase lead  (in degrees) for designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1. One or two dynamic load phase lead terms may be defined on a single card.\r\n=PAGE=\r\nDPHASES - Dynamic Load Phase Lead, Substructure Analysis\r\n\r\nDescription\r\n\r\nThe DPHASES card is used in conjunction with the RLOAD1 and RLOAD2 data cards\r\nto define the phase lead term  in the equation of the loading function.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDPHASES   SID   NAME     P      C      TH     P      C      TH       \r\nĴ\r\nDPHASES    4    SKIN     21     6     2.1     8      6     7.2       \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of DPHASE set (Integer > 0).\r\n\r\nNAME       Basic substructure name.\r\n\r\nP          Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number (1 - 6 for grid point, 0 or blank for scalar\r\n           point).\r\n\r\nTH         Phase lead  (in degrees) for designated coordinate (Real).\r\n\r\nRemarks\r\n\r\n1. One or two dynamic load phase lead terms may be defined on a single card.\r\n\r\n2. Used in substructure SOLVE operation.\r\n\r\n3. Points referenced must exist in the SOLVEd structure.\r\n=PAGE=\r\nDSFACT - Differential Stiffness Factor\r\n\r\nDescription\r\n\r\nUsed to define a scale factor for applied loads and stiffness matrix in a\r\nNormal Modes with Differential Stiffness Analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDSFACT    SID     B                                                  \r\nĴ\r\nDSFACT     97    -1.0                                                \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (unique Integer > 0).\r\n\r\nB          Scale factor (Real).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (DSCO = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. All fields following the entry must be blank.\r\n=PAGE=\r\nDTI - Direct Table Input\r\n\r\nDescription\r\n\r\nUsed to define table data blocks directly.\r\n\r\nFormat and Example\r\n\r\n(The first logical card is a header card.)\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDTI       NAME   \"0\"     T1     T2     T3     T4     T5     T6  +00  \r\nĴ\r\nDTI       XXX     0      3      4     4096  32768    1      0        \r\n\r\nĿ\r\n+00        V      V          -etc.- ENDREC                      +01  \r\nĴ\r\n                                                                     \r\n\r\n                                  -etc.-\r\nĿ\r\nDTI       NAME   IREC    V      V      V      V      V      V   +11  \r\nĴ\r\nDTI       XXX     1     2.0    -6     ABC   6.0D0   -1      2   +11  \r\n\r\nĿ\r\n+11        V      V      V      V    -etc.-       ENDREC        +12  \r\nĴ\r\n+11        4    -6.2    2.9     1     DEF    -1   ENDREC             \r\n\r\n                                  -etc.-\r\n\r\nField      Contents\r\n\r\nNAME       Any NASTRAN BCD value (1 to 8 alphanumeric characters, the first\r\n           of which must be alphabetic) which will be used in the DMAP\r\n           sequence to reference the data block.\r\n\r\nTi         Trailer values (65535 >= Integer >= 0).\r\n\r\nIREC       Record number (sequential integer beginning with 1).\r\n\r\nV          Value (blank, integer, real, BCD (except ENDREC), double\r\n           precision).\r\n\r\nENDREC     The BCD value ENDREC which flags the end of the string of values\r\n           that constitute logical record IREC.\r\n\r\nRemarks\r\n\r\n1. Records may be made as long as desired via continuation cards.\r\n\r\n2. Values may be of any type (blank, integer, real, BCD, double precision)\r\n   with the exception that a BCD value may not be ENDREC.\r\n\r\n3. All fields following ENDREC must be blank.\r\n\r\n4. You must write a DMAP (or make alterations to a rigid format) in order to\r\n   use the DTI feature since he is defining a data block. All of the rules\r\n   governing the use of data blocks in DMAP sequences apply.\r\n\r\n5. The DMAP data block NAME (XXX in the example) will appear in the initial\r\n   FIAT and the data block will initially appear on the POOL.\r\n\r\n6. If trailer is not specified, T1 = number of records, T2 through T6 = 0.\r\n\r\n7. In addition to the header card, there must be one logical card for each\r\n   record in the table.\r\n\r\n8. There are a number of reserved words which may not be used for DTI names.\r\n   Among these are POOL, NPTP, OPTP, UMF, NUMF, PLT1, PLT2, INPT, GEOM1,\r\n   GEOM2, GEOM3, GEOM4, GEOM5, EDT, MPT, EPT, DIT, DYNAMICS, IFPFILE, AXIC,\r\n   FORCE, MATPOOL, PCDB, XYCDB, CASECC, any DTI names, and SCRATCH1 through\r\n   SCRATCH9.\r\n=PAGE=\r\nEIGB - Buckling Analysis Data\r\n\r\nDescription\r\n\r\nDefines data needed to perform buckling analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nEIGB      SID  METHOD    L1     L2    NEP    NDP    NDN     E   +abc \r\nĴ\r\nEIGB       13   DET     0.1    2.5     2      1      1     0.0  ABC  \r\n\r\nĿ\r\n+abc     NORM     G      C                                           \r\nĴ\r\n+BC       MAX                                                        \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (unique Integer > 0).\r\n\r\nMETHOD     Method of eigenvalue extraction, one of the BCD values INV, DET,\r\n           FEER, UINV, or UDET.\r\n\r\n           INV   Inverse power method, symmetric matrix operations\r\n           DET   Determinant method, symmetric matrix operations\r\n           FEER  Tridiagonal reduction method, symmetric matrix operations\r\n           UINV  Inverse power method, unsymmetric matrix operations\r\n           UDET  Determinant method, unsymmetric matrix operations\r\n\r\nL1, L2     Eigenvalue range of interest (Real; L1 < L2 > 0.0). For METHOD =\r\n           FEER, L1 is ignored and L2 is the acceptable relative error\r\n           tolerance on eigenvalues, (default is .1/n where n is the order of\r\n           the stiffness matrix.) (Real > 0.0).\r\n\r\nNEP        Estimate of number of roots in positive range. Desired number of\r\n           eigenvalues of smallest magnitude for METHOD = FEER. (Default is\r\n           automatically calculated to extract at least one accurate mode.)\r\n           (Integer > 0).\r\n\r\nNDP, NDN   Desired number of positive and negative roots (default = 3 x NEP)\r\n           (Integer > 0) Ignored for METHOD = FEER.\r\n\r\nE          Convergence criteria (optional) (Real > 0.0).\r\n\r\nNORM       Method for normalizing eigenvectors, one of the BCD values MAX or\r\n           POINT.\r\n\r\n           MAX   Normalize to unit value of the largest component in the\r\n                 analysis set.\r\n\r\n           POINT Normalize to unit value of the component defined in fields 3\r\n                 and 4 (defaults to MAX if defined component is zero).\r\n\r\nG          Grid or scalar point identification number (Integer > 0) (required\r\n           if and only if NORM = POINT).\r\n\r\nC          Component number (one of the integers 1 - 6) (required if and only\r\n           if NORM = POINT and G is a geometric grid point.)\r\n\r\nRemarks\r\n\r\n1. Buckling analysis root extraction data sets must be selected in the Case\r\n   Control Deck (METHOD = SID) to be used by NASTRAN.\r\n\r\n2. The quantities L1 and L2 are dimensionless and specify a range in which the\r\n   eigenvalues are to be found. An eigenvalue is a factor by which the\r\n   pre-buckling state of stress (first subcase) is multiplied to produce\r\n   buckling. If METHOD = FEER, L1 is ignored and L2 represents the maximum\r\n   upper bound, in percent, on  lambdaFEER / lambdaEXACT - 1  for acceptance\r\n   of a computed eigensolution.\r\n\r\n3. The continuation card is required.\r\n\r\n4. See Sections 10.3.6 and 10.4.2.2 of the Theoretical Manual for a discussion\r\n   of convergence criteria.\r\n\r\n5. If METHOD = DET, L1 must be greater than or equal to 0.0.\r\n\r\n6. If NORM = MAX, components that are not in the analysis set may have values\r\n   larger than unity.\r\n\r\n7. If NORM = POINT, the selected component must be in the analysis set.\r\n=PAGE=\r\nEIGC - Complex Eigenvalue Extraction Data\r\n\r\nDescription\r\n\r\nDefines data needed to perform complex eigenvalue analysis.\r\n\r\n                                          /\r\n                               w          l2\r\n                                            /\r\n                                 a1   /\\ b2\r\n                               Ŀ / /\\\r\n                                 / / /\r\n                                  / /\r\n                                // /\r\n                                  /\r\n                               ///\r\n                                 \r\n                               //\r\n                              /  \r\n                             /  \r\n                            / /   \r\n                            \\/ /\r\n                           a2\\/   b1\r\n\r\n                                 l1\r\n\r\n                          Figure 2.4-42. EIGC diagram\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nEIGC      SID  METHOD   NORM    G      C      E                 +abc \r\nĴ\r\nEIGC       14   DET     POINT   27          1.-8                ABC  \r\n\r\nĿ\r\n+abc     a1    wa1    b1    wb1    l1     Ne1    Nd1          +def \r\nĴ\r\n+BC      2.0    5.6    2.0    -3.4   2.0     4      4           DEF  \r\n\r\nĿ\r\n+def     a2    wa2    b2    wb2    l2     Ne2    Nd2               \r\nĴ\r\n+EF      -5.5   -5.5    5.6    5.6    1.5    6      3                \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (unique Integer > 0).\r\n\r\nMETHOD     Method of complex eigenvalue extraction, one of the BCD values\r\n           INV, DET, HESS, or FEER.\r\n\r\n           INV   Inverse power method\r\n           DET   Determinant method\r\n           HESS  Upper Hessenberg method\r\n           FEER  Tridiagonal Reduction method\r\n\r\nNORM       Method for normalizing eigenvectors, one of the BCD values MAX or\r\n           POINT\r\n\r\n           MAX   Normalize to a unit value for the real part and a zero value\r\n                 for the imaginary part, the component having the largest\r\n                 magnitude.\r\n\r\n           POINT Normalize to a unit value for the real part and a zero value\r\n                 for the imaginary part the component defined in fields 5 and\r\n                 6 - defaults to MAX if the magnitude of the defined\r\n                 component is zero.\r\n\r\nG          Grid or scalar point identification number (required if and only\r\n           if NORM=POINT) (Integer > 0).\r\n\r\nC          Component number (required if and only if NORM = POINT and G is a\r\n           geometric grid point) (0 <= Integer <= 6).\r\n\r\nE          Convergence criterion (optional) (Real >= 0.0) For METHOD = FEER,\r\n           error-tolerance on acceptable eigenvalues (default value is .10/n,\r\n           where n is the order of the stiffness matrix).\r\n\r\n(aj, waj),(bj, wbj)  Two complex points defining a line in the complex plane\r\n           (Real) For METHOD = FEER, (aj, waj) is a point of interest in the\r\n           complex plane, closest to which the eigenvalues are computed;\r\n           aj + waj > 0. The point (bj, wbj) is ignored.\r\n\r\nlj         Width of region in complex plane  (Real > 0.0) Blank for METHOD =\r\n           FEER.\r\n\r\nNej        Estimated number of roots in each region (Integer > 0). Ignored\r\n           for METHOD = FEER.\r\n\r\nNdj        Desired number of roots in each region (default is 3Nej) (Integer\r\n           > 0) Desired number of accurate roots for METHOD = FEER (default\r\n           is 1).\r\n\r\nRemarks\r\n\r\n1. Each continuation card defines a rectangular search region. For METHOD =\r\n   FEER, the card defines a circular search region, centered at (aj, waj) and\r\n   of sufficient radius to encompass Ndj roots. Any number of regions may be\r\n   used and they may overlap. Roots in overlapping regions will not be\r\n   extracted more than once.\r\n\r\n2. Complex eigenvalue extraction data sets must be selected in the Case\r\n   Control Deck (CMETHOD = SID) to be used by NASTRAN.\r\n\r\n3. The units of , w, and l are radians per unit time.\r\n\r\n4. At least one continuation card is required.\r\n\r\n5. For the determinant method with no damping matrix, complex conjugates of\r\n   the roots found are not printed.\r\n\r\n6. See Section 10.4.4.5 of the Theoretical Manual for a discussion of\r\n   convergence criteria.\r\n\r\n7. For the Upper Hessenberg method, Ndl controls the number of eigenvectors\r\n   computed. Only one continuation card is considered and the (,w) pairs,\r\n   along with the parameters l1 and Ne1, are ignored. Insufficient storage for\r\n   HESS will cause the program to switch to INV.\r\n\r\n8. The error tolerance, E, for the FEER method is with regard to\r\n\r\n      _                     \r\n     pi - (aj, waj)      \r\n     - 1   for [B] not equal [0] and\r\n     pi - (aj, waj)      \r\n                            \r\n\r\n      _2             2      \r\n     pi - (aj, waj)      \r\n    - 1   for [B] = [0],\r\n       2             2      \r\n     p  - (aj, waj)      \r\n                            \r\n\r\n   where i is a computed eigenvalue and pi an exact eigenvalue.\r\n\r\n9. The complex eigenvalue is given by  + iw = 2f (i - 1/2 g), where f is the\r\n   frequency and g is the damping coefficient.\r\n\r\n10.   The default of NORM is MAX.\r\n=PAGE=\r\nEIGP - Poles in Complex Plane\r\n\r\nDescription\r\n\r\nDefines poles that are used in complex eigenvalue extraction.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nEIGP      SID           w      M            w      M               \r\nĴ\r\nEIGP       15   -5.2    0.0     2     6.3    5.5     3               \r\n\r\n\r\nField     Contents\r\n\r\nSID       Set identification number (Integer > 0).\r\n\r\n(,w)     Coordinates of point in complex plane (Real).\r\n\r\nM         Multiplicity of complex root at pole defined by (,w) (Integer >\r\n          0).\r\n\r\nRemarks\r\n\r\n1.Defines poles in complex plane that are used with associated EIGC card\r\n  having same set number.\r\n\r\n2.The units of ,w are radians per unit time.\r\n\r\n3.Poles are used only in the determinant method.\r\n\r\n4.One or two poles may be defined on a single card.\r\n=PAGE=\r\nEIGR - Real Eigenvalue Extraction Data\r\n\r\nDescription\r\n\r\nDefines data needed to perform real eigenvalue analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nEIGR      SID  METHOD    F1     F2    NE     ND     NZ      E   +abc \r\nĴ\r\nEIGR       13   DET     1.9   15.6    10     12      0     1.-3 ABC  \r\n\r\nĿ\r\n+abc     NORM     G      C                                           \r\nĴ\r\n+BC      POINT    32     4                                           \r\n\r\n\r\nField     Contents\r\n\r\nSID       Set identification number (unique Integer > 0).\r\n\r\nMETHOD    Method of eigenvalue extraction, one of the BCD values INV, DET,\r\n          GIV, MGIV, FEER, FEER-Q, FEER-X, UINV, or UDET.\r\n\r\n          INV     Inverse power method, symmetric matrix operations.\r\n\r\n          DET     Determinant method, symmetric matrix operations.\r\n\r\n          GIV     Givens method of tridiagonalization.\r\n\r\n          MGIV    Modified Givens method (see Remark 11).\r\n\r\n          FEER    Tridiagonal reduction method, symmetric matrix\r\n                  operations.\r\n\r\n          FEER-Q  See Remark 12.\r\n\r\n          FEER-X  See Remark 12.\r\n\r\n          UINV    Inverse power method, unsymmetric matrix operations.\r\n\r\n          UDET    Determinant method, unsymmetric matrix operations.\r\n\r\nF1, F2    Frequency range of interest (Required for METHOD = DET, INV, UDET,\r\n          or UINV) (Real >= 0.0; F1 <= F2); If METHOD = GIV, frequency range\r\n          over which eigenvectors are desired. The frequency range is\r\n          ignored if ND > 0, in which case the eigenvectors for the first ND\r\n          positive roots are found. (Real, F1 <= F2). If METHOD = FEER, F1\r\n          is the center of range of interest (Default is F1 = 0.0) (Real >=\r\n          0.0), and F2 is the acceptable relative error tolerance, as a\r\n          percentage, on frequency-squared (Default, as a percentage, is\r\n          0.1/n where n is the order of the stiffness matrix)  (Real > 0.0).\r\n\r\nNE        Estimate of number of roots in range (Required for METHOD = DET,\r\n          INV, UDET, or UINV, ignored for METHOD = FEER) (Integer > 0).\r\n\r\nNE (GIVENS)Number of roots to be printed (default all) (rigid roots\r\n          included).\r\n\r\nND        Desired number of roots for METHOD = DET, INV, UDET, or UNIV,\r\n          (Default is 3 NE) (Integer > 0). Desired number of eigenvectors\r\n          for METHOD = GIV (Integer > 0). Desired number of roots and\r\n          eigenvectors for METHOD = FEER (Default is automatically\r\n          calculated to extract at least one accurate mode) (Integer > 0).\r\n\r\nNZ        Number of free body modes (Optional; used only if METHOD = DET or\r\n          UDET) (Integer> 0).\r\n\r\nE         Mass orthogonality test parameter (Default is 0.0 which means no\r\n          test will be made)  (Real   0.0).\r\n\r\nNORM      Method for normalizing eigenvectors, one of the BCD values MASS,\r\n          MAX, or POINT.\r\n\r\n          MASS    Normalize to unit value of the generalized mass.\r\n\r\n          MAX     Normalize to unit value of the largest component in the\r\n                  analysis set.\r\n\r\n          POINT   Normalize to unit value of the component defined in\r\n                  fields 3 and 4 - defaults to MAX if defined component is\r\n                  zero.\r\n\r\nG         Grid or scalar point identification number (Required if and only\r\n          if NORM=POINT) (Integer >= 0).\r\n\r\nC         Component number (One of the integers 1 - 6) (Required if and only\r\n          if NORM=POINT and G is a geometric grid point).\r\n\r\nRemarks\r\n\r\n1.Real eigenvalue extraction data sets must be selected in the Case Control\r\n  Deck (METHOD = SID) to be used by NASTRAN.\r\n\r\n2.The units of F1 and F2 are cycles per unit time. If METHOD = FEER, F2\r\n  represents the maximum upper bound, in percent, on\r\n\r\n    2       2\r\n  w     / w      - 1\r\n    FEER    EXACT\r\n\r\n  for acceptance of a computed eigensolution.\r\n\r\n3.The continuation card is required.\r\n\r\n4.If METHOD = GIV, all eigenvalues are found.\r\n\r\n5.If METHOD = GIV, the mass matrix for the analysis set must be positive\r\n  definite.This means that all degrees of freedom, including rotations, must\r\n  have mass properties. OMIT cards may be used to remove massless degrees of\r\n  freedom.\r\n\r\n6.A nonzero value of E in field 9 also modifies the convergence criteria. See\r\n  Sections 10.3.6 and 10.4.2.2 of the Theoretical Manual for a discussion of\r\n  convergence criteria.\r\n\r\n7.If NORM = MAX, components that are not in the analysis set may have values\r\n  larger than unity.\r\n\r\n8.If NORM = POINT, the selected component must be in the analysis set.\r\n\r\n9.If METHOD = GIV and rigid body modes are present, F1 should be set to zero\r\n  if the rigid body eigenvectors are desired.\r\n\r\n10.  The desired number of roots (ND) includes all roots previously found,\r\n     such as rigid body modes determined with the use of the SUPORT card, or\r\n     the number of roots previously checkpointed when restarting and\r\n     APPENDing the eigenvector file. The APPEND feature is available in the\r\n     case of the Determinant, Inverse Power and FEER methods of eigenvalue\r\n     extraction.\r\n\r\n11.  Givens method requires the mass matrix not to be singular. The MGIV\r\n     method allows the mass matrix to be singular. However, the dynamic\r\n     matrices could be bigger, or much bigger, which would require more CPU\r\n     time and core space.\r\n\r\n12.  The rigid body frequencies are zero substituted unless FEER-X is\r\n     requested. If FEER-Q is requested, certain key areas in FEER\r\n     computations are done in quad precision (Real*16) for 32-bit word\r\n     machines and in double precision for 60- and 64-bit word machines. The\r\n     FEER-Q request would yield much better rigid body eigenvalues, but it\r\n     may take two to three times longer to compute than FEER or FEER-X.\r\n=PAGE=\r\nENDDATA - End of Bulk Data\r\n\r\nDescription\r\n\r\nDefines the end of the Bulk Data Deck.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nENDDATA                                                              \r\nĴ\r\nENDDATA                                                              \r\n\r\n\r\nFirst Alternate Form:\r\n\r\nĿ\r\nENDATA                                                               \r\nĴ\r\nENDATA                                                               \r\n\r\n\r\nSecond Alternate Form:\r\n\r\nĿ\r\nEND DATA                                                             \r\nĴ\r\nEND DATA                                                             \r\n\r\n\r\nRemarks\r\n\r\n1.This card is required even if no physical data cards exist in the deck.\r\n\r\n2.ENDDATA may begin in column 1 or 2. If the first alternate form is used,\r\n  ENDATA may begin in column 1, 2, or 3. If the second alternate form is\r\n  used, END DATA must necessarily begin in column 1.\r\n\r\n3.Failure to include this card will result in job termination caused by an\r\n  end-of-file condition being encountered on the input file.\r\n\r\n4.Extraneous data cards may be stored after this card except when the INPUT\r\n  module data follows or when the UMF card FINIS follows or when multiple job\r\n  steps occur within the same job submittal on the CDC computer.\r\n=PAGE=\r\nEPOINT - Extra Point\r\n\r\nDescription\r\n\r\nDefines extra points of the structural model for use in dynamics problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nEPOINT     ID     ID     ID     ID     ID     ID     ID     ID       \r\nĴ\r\nEPOINT     3      18     1      4      16     2                      \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nEPOINT    ID1   \"THRU\"  ID2                                          \r\nĴ\r\nEPOINT    17     THRU    43                                          \r\n\r\n\r\nField     Contents\r\n\r\nID, ID1, ID2  Extra point identification number (Integer > 0; ID1 < ID2).\r\n\r\nRemarks\r\n\r\n1.All extra point identification numbers must be unique with respect to all\r\n  other structural, scalar, and fluid points.\r\n\r\n2.This card is used to define coordinates used in transfer function\r\n  definitions (see TF card).\r\n\r\n3.If the alternate form is used, extra points ID1 through ID2 are defined.\r\n=PAGE=\r\nFLFACT - Aerodynamic Physical Data\r\n\r\nDescription\r\n\r\nUsed to specify densities, Mach numbers, or interblade phase angles, and\r\nreduced frequencies for flutter analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFLFACT    SID     F1     F2     F3     F4     F5     F6     F7  ABC  \r\nĴ\r\nFLFACT     97     .3     .7     3.5                             abc  \r\n\r\nĿ\r\n+BC        F8     F9  -etc.-                                         \r\nĴ\r\n                                                                     \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nFLFACT    SID     F1    THRU   FNF     NF    FMID                    \r\nĴ\r\nFLFACT    201    .200   THRU   .100    11  .133333                   \r\n\r\n\r\nField     Contents\r\n\r\nSID       Set identification number (unique Integer > 0).\r\n\r\nFi        Aerodynamic factor (Real).\r\n\r\nRemarks\r\n\r\n1.These factors must be selected by a FLUTTER data card to be used by\r\n  NASTRAN.\r\n\r\n2.Imbedded blank fields are forbidden.\r\n\r\n3.Parameters must be listed in the order in which they are to be used within\r\n  the looping of flutter analysis.\r\n\r\n4.For the alternate form, NF must be greater than 1. Fmid must lie between F1\r\n  and FNF, otherwise Fmid will be set to (F1 + FNF)/2. Then\r\n\r\n        F1(FNF - Fmid)(NF - i) + FNF(Fmid - F1)(i - 1)\r\n  Fi =        i=1,2,...,NF\r\n          (FNF - Fmid)(NF - i) + (Fmid - F1)(i - 1)\r\n\r\n  The use of Fmid (middle factor selection) allows unequal spacing of the\r\n  factors. Fmid = 2F1FNF/(F1+FNF) gives equal values to increments of the\r\n  reciprocal of F1.\r\n=PAGE=\r\nFLSYM - Axisymmetric Symmetry Control\r\n\r\nDescription\r\n\r\nDefines the relationship between the axisymmetric fluid and a structural\r\nboundary having symmetric constraints. The purpose is to allow fluid boundary\r\nmatrices to conform to structural symmetry definitions.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFLSYM      M      S1     S2                                          \r\nĴ\r\nFLSYM      12     S      A                                           \r\n\r\n\r\nField     Contents\r\n\r\nM         Number of symmetric sections of structural boundary around\r\n          circumference of fluid being modeled by the set of structural\r\n          elements (Integer >= 2, even).\r\n\r\nS1, S2    Description of boundary constraints used on structure at first and\r\n          second planes of symmetry. (BCD: S for symmetric, A for\r\n          antisymmetric).\r\n\r\nRemarks\r\n\r\n1.This card is allowed only if an AXIF card is also present.\r\n\r\n2.Only one (1) FLSYM card is allowed.\r\n\r\n3.The card is not required if no planes of symmetry are involved.\r\n\r\n4.First plane of symmetry is assumed to be at  = 0. Second plane of symmetry\r\n  is assumed to be at  = 360 degrees/M.\r\n\r\n5.Symmetric and antisymmetric constraints for the structure must, in\r\n  addition, be provided by you.\r\n\r\n6.The solution is performed for those harmonic indices listed on the AXIF\r\n  card that are compatible with the symmetry conditions.\r\n\r\nExample\r\n\r\nIf a quarter section of structure is used to model the boundary, M = 4. If the\r\nboundary constraints are S-S, the compatible cosine harmonics are:  0, 2, 4,\r\netc. If S-A is used the compatible cosine harmonics are 1, 3, 5, ..., etc.\r\n=PAGE=\r\nFLUTTER - Aerodynamic Flutter Data\r\n\r\nDescription\r\n\r\nDefines data needed to perform flutter analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFLUTTER   SID  METHOD  DENS    MACH  RFREQ  IMETH NVALUE   EPS       \r\nĴ\r\nFLUTTER    19    K      119     219   319     S      5     1.-4      \r\n\r\n\r\nField     Contents\r\n\r\nSID       Set identification number (unique Integer > 0).\r\n\r\nMETHOD    Flutter analysis method, K for K method, PK for P-K method, KE for\r\n          the K method restricted for efficiency.\r\n\r\nDENS        Identification number of an FLFACT data card specifying density\r\n            ratios to be used in flutter analysis (Integer >= 0).\r\n\r\nMACH        Identification number of an FLFACT data card specifying Mach\r\n            numbers or interblade phase angles (m) to be used in flutter\r\n            analysis (Integer >= 0).\r\n\r\nRFREQ (or VEL)  Identification number of an FLFACT data card specifying\r\n            reduced frequencies (k) to be used in flutter analysis (Integer >\r\n            0); for the P-K method, the velocity.\r\n\r\nIMETH       Choice of interpolation method for matrix interpolation (BCD:  L\r\n            for linear,  S for surface).\r\n\r\nNVALUE      Number of eigenvalues for output and plots (Integer > 0).\r\n\r\nEPS         Convergence parameter for k; used in the P-K method (Real)\r\n            (default = 10**(-3)).\r\n\r\nRemarks\r\n\r\n1. The FLUTTER data card must be selected in Case Control Deck (FMETHOD =\r\n   SID).\r\n\r\n2. The density is given by DENS * RHOREF, where RHOREF is the reference value\r\n   given on the AERO data card.\r\n\r\n3. The reduced frequency is given by k = (REFC*w/2*V), where REFC is given on\r\n   the AERO data card, w is the circular frequency, and V is the velocity.\r\n\r\n4. An eigenvalue is accepted in the P-K method when  k - kestimate  < EPS.\r\n=PAGE=\r\nFORCE - Static Load\r\n\r\nDescription\r\n\r\nDefines a static load at a grid point by specifying a vector.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFORCE     SID     G     CID     F      N1     N2     N3              \r\nĴ\r\nFORCE      2      5      6     2.9    0.0    1.0    0.0              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nCID         Coordinate system identification number (Integer >= 0).\r\n\r\nF           Scale factor (Real).\r\n\r\nN1, N2, N3  Components of vector measured in coordinate system defined by CID\r\n            (Real; N1**2 + N2**2 + N3**2 > 0.0).\r\n\r\nRemarks\r\n\r\n1. The static load applied to grid point G is given by\r\n\r\n   ->      ->\r\n   f  =  F N\r\n\r\n   where N is the vector defined in fields 6, 7, and 8.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n3. A CID of zero references the basic coordinate system.\r\n=PAGE=\r\nFORCE1 - Static Load\r\n\r\nDescription\r\n\r\nUsed to define a static load by specification of a value and two grid points\r\nwhich determine the direction.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFORCE1    SID     G      F      G1     G2                            \r\nĴ\r\nFORCE1     6      13   -2.93    16     13                            \r\n\r\n\r\nField       Contents.\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nF           Value of load (Real).\r\n\r\nG1, G2      Grid point identification numbers (Integer > 0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1. The direction of the force is determined by the vector from G1 to G2.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nFORCE2 - Static Load\r\n\r\nDescription\r\n\r\nUsed to define a static load by specification of a value and four grid points\r\nwhich determine the direction.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFORCE2    SID     G      F      G1     G2     G3     G4              \r\nĴ\r\nFORCE2     6      13   -2.93    16     13     17     13              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nF           Value of load (Real).\r\n\r\nG1,...,G4   Grid point identification numbers (Integer > 0; G1 through G4 must\r\n            be unique).\r\n\r\nRemarks\r\n\r\n1. The direction of the force is determined by the vector product whose\r\n   factors are vectors from G1 to G2 and G3 to G4 respectively.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nFORCEAX - Axisymmetric Static Load\r\n\r\nDescription\r\n\r\nDefines a static loading for a model containing CCONEAX, CTRAPAX, or CTRIAAX\r\nelements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFORCEAX   SID    RID    HID     S      FR     FP     FZ              \r\nĴ\r\nFORCEAX    1      2      3     2.0    0.1    0.2    0.3              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nRID         Ring identification number (see RINGAX) (Integer > 0).\r\n\r\nHID         Harmonic identification number (Integer >= 0 or a sequence of\r\n            harmonics; see Remark 4).\r\n\r\nS           Scale factor for load (Real).\r\n\r\nFR, FP, FZ  Load components in r, , z directions (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. Axisymmetric loads must be selected in the Case Control Deck (LOAD = SID)\r\n   to be used by NASTRAN.\r\n\r\n3. A separate card is needed for the definition of the force associated with\r\n   each harmonic.\r\n\r\n4. If a sequence of harmonics is to be placed in HID the form is as follows:\r\n   \"Sn1Tn2\" where n1 is the start of the sequence and n2 is the end of the\r\n   sequence; that is, harmonics 0 through 10, the field would contain \"S0T10\".\r\n\r\n5. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n6. For a discussion of the axisymmetric solid problem see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nFREEPT - Fluid Free Surface Point\r\n\r\nDescription\r\n\r\nDefines the location of points on the surface of a fluid for recovery of\r\nsurface displacements in a gravity field.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFREEPT    IDF           IDP          IDP          IDP             \r\nĴ\r\nFREEPT     3            301   22.5    302   90.0    303   370.0      \r\n\r\n\r\nField       Contents\r\n\r\nIDF         Fluid point (RINGFL) identification number (Integer > 0).\r\n\r\nIDP         Free surface point identification number (Integer > 0).\r\n\r\n           Azimuthal position of FREEPT on fluid point (RINGFL), in fluid\r\n            coordinate system (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. All free surface point identification numbers must be unique with respect\r\n   to other scalar, structural, and fluid points.\r\n\r\n3. The free surface points are used for the identification of output data\r\n   only.\r\n\r\n4. Three points may be defined on a single card.\r\n\r\n5. The referenced fluid point (IDF) must be included in a free surface list\r\n   (FSLIST).\r\n\r\n6. Output requests for velocity and acceleration can be made at these points.\r\n=PAGE=\r\nFREQ - Frequency List\r\n\r\nDescription\r\n\r\nDefines a set of frequencies to be used in the solution of frequency response\r\nproblems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFREQ      SID     F      F      F      F      F      F      F   abc  \r\nĴ\r\nFREQ       3    2.98   3.05   17.9   21.3   25.6   28.8   31.2  ABC  \r\n\r\nĿ\r\n+bc        F      F      F      F      F      F      F      F        \r\nĴ\r\n+BC      29.2   22.4   19.3                                          \r\n\r\n                                    -etc.-\r\n\r\nField       Contents\r\n\r\nSID         Frequency set identification number (Integer > 0).\r\n\r\nF           Frequency value (Real > 0.0).\r\n\r\nRemarks\r\n\r\n1. The units for the frequencies are cycles per unit time.\r\n\r\n2. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be\r\n   used by NASTRAN.\r\n\r\n3. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set\r\n   identification numbers.\r\n=PAGE=\r\nFREQ1 - Frequency List\r\n\r\nDescription\r\n\r\nDefines a set of frequencies to be used in the solution of frequency response\r\nproblems by specification of a starting frequency, frequency increment, and\r\nnumber of increments desired.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFREQ1     SID     F1     DF    NDF                                   \r\nĴ\r\nFREQ1      6     2.9    0.5     13                                   \r\n\r\n\r\nField       Contents\r\n\r\nSID         Frequency set identification number (Integer > 0).\r\n\r\nF1          First frequency in set (Real >= 0.0).\r\n\r\nDF          Frequency increment (Real > 0.0).\r\n\r\nNDF         Number of frequency increments (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The units for the frequency F1 and the frequency increment DF are cycles\r\n   per unit time.\r\n\r\n2. The frequencies defined by this card are given by\r\n\r\n   f   =  F1 + (i  - 1) DF,  i  =  1, NDF + 1\r\n    i\r\n\r\n3. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be\r\n   used by NASTRAN.\r\n\r\n4. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set\r\n   identification numbers.\r\n=PAGE=\r\nFREQ2 - Frequency List\r\n\r\nDescription\r\n\r\nDefines a set of frequencies to be used in the solution of frequency response\r\nproblems by specification of a starting frequency, final frequency, and number\r\nof logarithmic increments desired.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFREQ2     SID     F1     F2     NF                                   \r\nĴ\r\nFREQ2      6     1.0    1.E5    5                                    \r\n\r\n\r\nField       Contents\r\n\r\nSID         Frequency set identification number (Integer > 0).\r\n\r\nF1          First frequency (Real > 0.0).\r\n\r\nF2          Last frequency (Real > 0.0; F2 > F1).\r\n\r\nNF          Number of logarithmic intervals (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The units for the frequencies F1 and F2 are cycles per unit time.\r\n\r\n2. The frequencies defined by this card are given by\r\n\r\n   f   =  F1*e**(i-1)d ,    i = 1,2,...,NF + 1\r\n    i\r\n\r\n   where\r\n\r\n           1         F2\r\n   d =    ---- log   ---\r\n           NF     e  F1\r\n\r\n   For the example shown, the list of frequencies will be 1.0, 10.0, 100.0,\r\n   1000.0,10000.0, and 100000.0 cycles per unit time.\r\n\r\n3. Frequency sets must be selected in the Case Control Deck (FREQ = SID) to be\r\n   used by NASTRAN.\r\n\r\n4. All FREQ, FREQ1, and FREQ2 cards must have unique frequency set\r\n   identification numbers.\r\n=PAGE=\r\nFSLIST - Free Surface List\r\n\r\nDescription\r\n\r\nDeclares the fluid points (RINGFL) which lie on a free surface boundary.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nFSLIST    RHO    IDF1   IDF2   IDF3   IDF4   IDF5   IDF6   IDF7 abc  \r\nĴ\r\nFSLIST   1.0-4    1      3      5      4      2      7      6   +12FS\r\n\r\nĿ\r\n+bc       IDF8   IDF9  -etc.-                                   def  \r\nĴ\r\n+12FS      8      9     10     11    AXIS                            \r\n\r\n                                    -etc.-\r\n\r\nField       Contents\r\n\r\nRHO         Mass density at the surface (Real > 0.0 or blank; if blank the\r\n            AXIF default value must not be blank).\r\n\r\nIDFi        Identification number of RINGFL point (Integer > 0 or BCD \"AXIS\".\r\n            The first and/or last entry may be AXIS).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. Each logical card defines a surface. The order of the points must be\r\n   sequential with the fluid on the right with respect to the direction of\r\n   travel.\r\n\r\n3. The BCD word AXIS defines an intersection with the polar axis of the fluid\r\n   coordinate system.\r\n\r\n4. There may be as many FSLIST cards as required. If the fluid density varies\r\n   along the boundary there must be one FSLIST card for each interval between\r\n   fluid points.\r\n=PAGE=\r\nGEMLOOP - General Current Loop\r\n\r\nDescription\r\n\r\nDefines a general current loop in magnetic field problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGEMLOOP   SID     I     CID    X1     Y1     Z1     X2     Y2   +a   \r\nĴ\r\nGEMLOOP    5     5.2     0     8.1   10.2    3.5   12.5    9.1  +A   \r\n\r\nĿ\r\n+a        Z2     X3     Y3     Z3                               +b   \r\nĴ\r\n+A        1.3   ENDT                                                 \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nI           Current through loop (Real > 0.0).\r\n\r\nCID         Coordinate system identification number (Integer > 0 or blank).\r\n\r\nXi, Yi, Zi  Coordinates of points defining linear sections of coil in\r\n            coordinate system CID (Real).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. In order for the coil to be closed, XN, YN, ZN must be equal to X1, Y1, Z1.\r\n\r\n3. ENDT must be specified in the field immediately after ZN.\r\n\r\n4. N should be such that 2 <= N <= 15.\r\n\r\n5. If a loop has more than 14 segments, another GEMLOOP card may be specified\r\n   with the first point coincident with the last point of the previous card.\r\n\r\n6. CID must presently be 0 or blank.\r\n=PAGE=\r\nGENEL - General Element\r\n\r\nDescription\r\n\r\nDefines a general element using either of two approaches as follows.\r\n\r\n   1. The stiffness approach:\r\n\r\n    f                       u\r\n     i         K     -KS     i\r\n     =       ,  or\r\n    f         T      T     u\r\n     d      -S K     S KS     d\r\n                          \r\n\r\n   2. The flexibility approach:\r\n\r\n    u                       f\r\n     i         Z     S       i\r\n     =         ,  where\r\n    f          T           u\r\n     d       -S       0       d\r\n                          \r\n\r\n                         T\r\n          {u } = [u  ,u  ,...,u  ]  ,\r\n   i      i1  i2      im\r\n   \r\n                         T\r\n          {u } = [u  ,u  ,...,u  ]  ,\r\n   d      d1  d2      dn\r\n                                              Ŀ\r\n                        KZ      KZ    . . . KZ  \r\n                          11      12          1m\r\n                         .      KZ    . . . .   \r\n                         .        22         .  \r\n                         .       .           .              T\r\n   [KZ] = [K] or [Z] =   .       .           .      and [KZ]  = [KZ]  ,\r\n                        KZ   . . . . . . . KZ   \r\n                          m1                 mn \r\n                                              \r\n\r\n                                Ŀ\r\n           S    . . . . . . .  S  \r\n            11                  1n\r\n   [S] =   .                   .  \r\n           .                   .  \r\n           S    . . . . . . .  S  \r\n            m1                  mn\r\n                                 \r\n\r\nThe required input is the {ui} list and the lower triangular portion of [K] or\r\n[Z]. Additional input may include the {ud} list and [S]. If [S] is input, {ud}\r\nmust also be input. If {ud} is input but [S] is omitted, [S] is internally\r\ncalculated. In this case, {ud} must have six and only six degrees of freedom.\r\nIf [S] is not required, both {ud} and [S] are omitted.\r\n\r\nFormat\r\n\r\n(An example is given following.)\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGENEL     EID           UI1    CI1    UI2    CI2    UI3    CI3   X1  \r\nĴ\r\n  +1      UI4    CI4    UI5    CI5    UI6    CI6    UI7    CI7   X2  \r\nĴ\r\n  +2                             -etc.-                           X3  \r\nĴ\r\n  +3      UI   -    The last item in the UI-list will appear in         X4  \r\n            m       one of fields 2, 4, 6, or 8                             \r\nĴ\r\n  +4     \"UD\"           UD1    CD1    UD2    CD2    UD3    CD3   X5  \r\nĴ\r\n  +5                             -etc.-                           X6  \r\nĴ\r\n  +6      UD   -    The last item in the UD list will appear in         X7  \r\n            n       one of fields 2, 4, 6, or 8                             \r\nĴ\r\n  +7    \"K\"or\"Z\"  KZ11   KZ21  KZ31   -etc.-        KZ22   KZ32   X8  \r\nĴ\r\n  +8     -etc.-         KZ33  KZ43   -etc.-                      X9  \r\nĴ\r\n  +9                             -etc.-                           X10 \r\nĴ\r\n  +10     KZ   -    The last item in the K or Z matrix, will appear in      \r\n            mm      one of fields 2 through 9.                          X11 \r\nĴ\r\n  +11     \"S\"    S11    S12   -etc.-         S21   -etc.-        X12 \r\nĴ\r\n  +12      S   -    The last item in the S matrix, will appear in           \r\n            mn      one of fields 2 through 9.                              \r\n\r\n\r\nField       Contents\r\n\r\nEID         Unique element identification number, a positive integer.\r\n\r\nUI1, CI1 etc.; UD1, ED1, etc.  Identification numbers of coordinates in the UI\r\n            or UD list, in sequence corresponding to the [K], [Z], and [S]\r\n            matrices. Ui and UDi are grid point numbers, and CIi and CDi are\r\n            the component numbers. If a scalar point is given, the component\r\n            number is zero.\r\n\r\nKZij        Values of the [K] or [Z] matrix ordered by columns from the\r\n            diagonal, according to the UI list.\r\n\r\nSij         Values of the [S] matrix ordered by rows, according to the UD\r\n            list.\r\n\r\nUD, K, Z, S BCD data words which indicate the start of data belonging to UD,\r\n            [K], [Z], or [S].\r\n\r\nRemarks\r\n\r\n1. When the stiffness matrix, K, is input, the number of significant digits\r\n   should be the same for all terms.\r\n\r\n2. Double-field format may be used for input of K or Z.\r\n\r\nExample\r\n\r\nLet element 629 be defined by\r\n\r\n                               T\r\n   {u }  =  [1-1 ,13-4,42,24-2]    ,\r\n     i\r\n\r\n                    T\r\n   {u }  =  [6-2,33]    ,\r\n     d\r\n\r\nwhere i-j means the jth component of grid point i. Points 42 and 33 are scalar\r\npoints.\r\n\r\n                              Ŀ                             Ŀ\r\n          1.0   2.0   3.0   4.0                     1.5    2.5 \r\n                                                               \r\n          2.0   5.0   6.0   7.0                     3.5    4.5 \r\n   [K] =                           ,         [S]  =            \r\n          3.0   6.0   8.0   9.0                     5.5    6.5 \r\n                                                               \r\n          4.0   7.0   9.0   0.0                     7.5    8.5 \r\n                                                           \r\n\r\nThe data cards necessary to input this general element are shown below:\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGENEL     629            1      1      13     4      42     0    X1  \r\nĴ\r\n  +1       24     2                                              X2  \r\nĴ\r\n  +2       UD            6      2      33     0                  X3  \r\nĴ\r\n  +3       K     1.0    2.0    3.0    4.0    5.0    6.0    7.0   X4  \r\nĴ\r\n  +4      8.0    9.0    0.0                                      X5  \r\nĴ\r\n  +5       S     1.5    2.5    3.5    4.5    5.5    6.5    7.5   X6  \r\nĴ\r\n  +6      8.5                                                        \r\n\r\n=PAGE=\r\nGRAV - Gravity Vector\r\n\r\nDescription\r\n\r\nUsed to define gravity vectors for use in determining gravity loading for the\r\nstructural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRAV      SID    CID     G      N1     N2     N3                     \r\nĴ\r\nGRAV       1      3     32.2   0.0    0.0   -1.0                     \r\n\r\n\r\nField       Contents\r\n\r\nSID         Set identification number (Integer > 0).\r\n\r\nCID         Coordinate system identification number (Integer >= 0).\r\n\r\nG           Gravity vector scale factor (Real).\r\n\r\nN1, N2, N3  Gravity vector components (Real; N1**2 + N2**2 + N3**2 > 0.0).\r\n\r\nRemarks\r\n\r\n1. The gravity vector is defined by\r\n\r\n   ->\r\n   g  =  G*(N1, N2, N3).\r\n\r\n2. A CID of zero references the basic coordinate system.\r\n\r\n3. Gravity loads may be combined with simple loads (for example, FORCE,\r\n   MOMENT) only by specification on a LOAD card. That is, the SID on a GRAV\r\n   card may not be the same as that on a simple load card.\r\n\r\n4. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nGRDSET - Grid Point Default\r\n\r\nDescription\r\n\r\nDefines default options for fields 3, 7, and 8 of all GRID cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRDSET            CP                          CD     PS              \r\nĴ\r\nGRDSET            16                          32    3456             \r\n\r\n\r\nField       Contents\r\n\r\nCP          Identification number of default coordinate system in which the\r\n            locations of the grid points are defined (Integer >= 0).\r\n\r\nCD          Identification number of default coordinate system in which\r\n            displacements are measured at grid points (Integer >= 0).\r\n\r\nPS          Permanent single-point constraints associated with grid point (any\r\n            of the digits 1 - 6 with no imbedded blanks) (Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. The contents of fields 3, 7, or 8 of this card are assumed for the\r\n   corresponding fields of any GRID card whose fields 3, 7, and 8 are blank.\r\n   If any of these fields on the GRID card are blank, the default option\r\n   defined by this card occurs for that field. If no permanent single-point\r\n   constraints are desired or one of the coordinate systems is basic, the\r\n   default may be overridden on the GRID card making one of fields 3, 7, or 8\r\n   zero (rather than blank). Only one GRDSET card may appear in the Bulk Data\r\n   Deck.\r\n\r\n2. The primary purpose of this card is to minimize the burden of preparing\r\n   data for problems with a large amount of repetition (for example,\r\n   two-dimensional pinned-joint problems).\r\n\r\n3. At least one of the entries CP, CD, or PS must be nonzero.\r\n=PAGE=\r\nGRID - Grid Point\r\n\r\nDescription\r\n\r\nDefines the location of a geometric grid point of the structural model, the\r\ndirections of its displacement, and its permanent single-point constraints.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRID       ID     CP     X1     X2     X3     CD     PS              \r\nĴ\r\nGRID       2      3     1.0    2.0    3.0           316              \r\n\r\n\r\nField       Contents\r\n\r\nID          Grid point identification number (0 < Integer).\r\n\r\nCP          Identification number of coordinate system in which the location\r\n            of the gridpoint is defined (Integer >= 0 or blank). (See the\r\n            GRDSET card for default options for fields 3, 7, and 8.)\r\n\r\nX1, X2, X3  Location of the grid point in coordinate system CP (Real).\r\n\r\nCD          Identification number of coordinate system in which displacements,\r\n            degrees of freedom, constraints, and solution vectors are defined\r\n            at the grid point (Integer >= 0 or blank). (See the GRDSET card\r\n            for default options for fields 3, 7, and 8.)\r\n\r\nPS          Permanent single-point constraints associated with grid point (any\r\n            of the digits 1 - 6 with no imbedded blanks) (Integer >= 0 or\r\n            blank). (See the GRDSET card for default options for fields 3, 7,\r\n            and 8.)\r\n\r\nRemarks\r\n\r\n1. Each grid point identification number must be unique with respect to all\r\n   other structural, scalar, and fluid points.\r\n\r\n2. The meaning of X1, X2, and X3 depend on the type of coordinate system, CP,\r\n   as follows (see CORDxx card descriptions):\r\n\r\nĿ\r\n     Type           X1           X2           X3    \r\nij\r\n  Rectangular       X            Y            Z     \r\n  Cylindrical       R       (degrees)        Z     \r\n  Spherical         R       (degrees)   (degrees) \r\n\r\n\r\n3. The collection of all CD coordinate systems defined on all GRID cards is\r\n   called the global coordinate system. All degrees-of-freedom, constraints,\r\n   and solution vectors are expressed in the global coordinate system.\r\n=PAGE=\r\nGRIDB - Axisymmetric Problem Grid Point\r\n\r\nDescription\r\n\r\nDefines the location of a geometric grid point on a RINGFL for an axisymmetric\r\nfluid model and/or axisymmetric structure. Used to define the boundary of the\r\nfluid.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRIDB      ID                                CD     PS    IDF       \r\nĴ\r\nGRIDB      30                  30.0           3     345     20       \r\n\r\n\r\nField       Contents\r\n\r\nID          Grid point identification number (Integer > 0).\r\n\r\n           Azimuthal position in the fluid in degrees (Real).\r\n\r\nCD          Identification number of the coordinate system in which\r\n            displacements are defined at the grid point (Integer >= 0).\r\n\r\nPS          Permanent single-point constraints associated with the grid point\r\n            (any combination of the digits 1 - 6 with no embedded blanks)\r\n            (Integer >= 0).\r\n\r\nIDF         Identification number of a RINGFL (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. Each GRIDB identification number must be unique with respect to other\r\n   scalar, structural, and fluid points.\r\n\r\n3. An AXIF card must define a fluid coordinate system.\r\n\r\n4. The RINGFL referenced must be present.\r\n\r\n5. If no harmonic numbers on the AXIF card are specified, no fluid elements\r\n   are necessary.\r\n\r\n6. The collection of all CD coordinate systems defined on all GRID and GRIDB\r\n   cards is called the global coordinate system.\r\n\r\n7. Fields 3, 4, and 6 are ignored. This will facilitate your conversion of\r\n   GRID cards to GRIDB cards. Note that the fields are the same except for\r\n   fields 1 and 9 if a cylindrical coordinate system is used.\r\n\r\n8. The referenced RINGFL point must be included in a boundary list (BDYLIST\r\n   data card).\r\n=PAGE=\r\nGRIDF - Fluid Point\r\n\r\nDescription\r\n\r\nDefines a scalar degree of freedom for harmonic analysis of a fluid.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRIDF      ID     R      Z                                           \r\nĴ\r\nGRIDF      23    2.5   -7.3                                          \r\n\r\n\r\nField       Contents\r\n\r\nID          Identification number of axisymmetric fluid point (Integer > 0).\r\n\r\nR           Radial location of point in basic coordinate system (Real > 0.0).\r\n\r\nZ           Axial location of point in basic coordinate system (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXSLOT card is also present.\r\n\r\n2. The identification number (ID) must be unique with respect to all other\r\n   scalar,  structural, and fluid points.\r\n\r\n3. Grid points on slot boundaries are defined on GRIDS cards. Do not also\r\n   define them on GRIDF cards.\r\n\r\n4. For plotting purposes the R location corresponds to the basic X coordinate.\r\n   The Z location corresponds to the basic Y coordinate. Pressures will be\r\n   plotted as displacement in the basic Z direction.\r\n\r\n5. Load and constraint conditions are applied as if the GRIDF is a scalar\r\n   point. Positive loads correspond to inward flow and a single point\r\n   constraint causes zero pressure at the point.\r\n=PAGE=\r\nGRIDS - Slot Surface Point\r\n\r\nDescription\r\n\r\nDefines a scalar degree of freedom with a two dimensional location. Used in\r\ndefining pressure in slotted acoustic cavities.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGRIDS      ID     R      Z      W     IDF                            \r\nĴ\r\nGRIDS      25    2.5   -7.3    0.5                                   \r\n\r\n\r\nField       Contents\r\n\r\nID          Identification number of slot point (Integer > 0).\r\n\r\nR           Radial location of point in basic coordinate system (Real not\r\n            equal 0.0).\r\n\r\nZ           Axial location of point in basic coordinate system (Real).\r\n\r\nW           Slot width or thickness at the GRIDS point (Real >= 0.0, or\r\n            blank).\r\n\r\nIDF         Identification number to define a GRIDF point (Integer > 0, or\r\n            blank).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXSLOT card is also present.\r\n\r\n2. The identification numbers (ID and IDF if present) must be unique with\r\n   respect to all other scalar, structural, and fluid points.\r\n\r\n3. If W is blank, the default value on the AXSLOT card will be used.\r\n\r\n4. The IDF number is referenced on the CAXIFi card for central cavity fluid\r\n   elements next to the interface. The IDF number is entered only if the grid\r\n   point is on an interface. In this case it should not also be defined on a\r\n   GRIDF card.\r\n\r\n5. If IDF is nonzero then R must be greater than zero.\r\n\r\n6. For plotting purposes the R location corresponds to the basic X coordinate.\r\n   The Z location corresponds to the basic Y coordinate. The slot width, W,\r\n   corresponds to the basic Z coordinate. The pressure will be plotted in the\r\n   basic Z direction.\r\n\r\n7. Load and constraint conditions are applied as if the GRIDS is a scalar\r\n   point. Positive loads correspond to inward flow and a single point\r\n   constraint causes zero pressure at the point.\r\n=PAGE=\r\nGTRAN - Grid Point Transformation\r\n\r\nDescription\r\n\r\nThis card defines the output coordinate system transformation to be applied to\r\nthe displacement set of a selected grid point.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGTRAN     SID    NAME   GID    TRAN                                  \r\nĴ\r\nGTRAN      44   GIMBAL 1067     45                                   \r\n\r\n\r\nField       Contents\r\n\r\nSID         Identification number of the transformation set (Integer > 0).\r\n\r\nNAME        Basic substructure name (BCD).\r\n\r\nGID         Grid point identification (Integer > 0).\r\n\r\nTRAN        Identification number of a TRANS bulk data card (Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. If TRAN = 0, the displacement set at the grid point will be transformed to\r\n   the overall basic coordinate system.\r\n\r\n2. If TRAN = SID, the point will remain fixed to the substructure (that is, no\r\n   transformation occurs).\r\n\r\n3. Otherwise, the displacement set at the grid point will be transformed to\r\n   the coordinate system directions defined by the selected TRANS card.\r\n\r\n4. Transformation sets must be selected in the Substructure Control Deck (TRAN\r\n   = SID) to be used by NASTRAN. Note that TRAN is a subcommand of the\r\n   substructure COMBINE command.\r\n\r\n5. You are cautioned to review all actions to be enabled by this GID to ensure\r\n   that they are defined in terms of this revamped displacement coordinate\r\n   system.\r\n=PAGE=\r\nGUST - Aerodynamic Gust Load Description\r\n\r\nDescription\r\n\r\nDefines a stationary vertical gust for use in aeroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nGUST      SID   DLOAD   WG     X0      V                             \r\nĴ\r\nGUST      133     61   1.0      0.    1.+4                           \r\n\r\n\r\nField       Contents\r\n\r\nSID         Gust set identification number (Integer > 0).\r\n\r\nDLOAD       The SID of a TLOAD or RLOAD data card which defines the time or\r\n            frequency dependence (Integer > 0).\r\n\r\nWG          Scale factor (gust velocity/forward velocity) for gust velocity\r\n            (Real not equal 0.)\r\n\r\nX0          Location of reference plane in aerodynamic coordinates (Real >=\r\n            0.0).\r\n\r\nV           Velocity of vehicle (Real > 0.0).\r\n\r\nRemarks\r\n\r\n1. The GUST card is selected in Case Control by GUST = SID.\r\n\r\n2. The gust angle is in the +z direction of the aerodynamic coordinate system.\r\n   The value is\r\n\r\n              x-x\r\n                 0\r\n   WG * T(t - )\r\n               V\r\n\r\n   where T is the tabular function.\r\n\r\n3. In random analysis, a unit gust velocity (WG=1/velocity) is suggested. The\r\n   actual rms value is entered on the TABRNDG data card.\r\n\r\n4. X0 and V may not change between subcases under one execution.\r\n=PAGE=\r\nLOAD - Static Load Combination (Superposition)\r\n\r\nDescription\r\n\r\nDefines a static load as a linear combination of load sets defined via FORCE,\r\nMOMENT, FORCE1, MOMENT1, FORCE2, MOMENT2, PLOAD, PLOAD2, PLOAD3, FORCEAX,\r\nPRESAX, MOMAX, SLOAD, RFORCE, and GRAV cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nLOAD      SID     S      S1     L1     S2     L2     S3     L3  abc  \r\nĴ\r\nLOAD      101   -0.5    1.0     3     6.2     4                      \r\n\r\nĿ\r\n+bc        S4     L4         -etc.-                                  \r\nĴ\r\n                                                                     \r\n\r\n                                    -etc.-\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nS           Scale factor (Real).\r\n\r\nSi          Scale factors (Real).\r\n\r\nLi          Load set identification numbers defined via card types enumerated\r\n            above (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The load vector defined is given by\r\n\r\n   {P}  =  S  S  {P  }\r\n             i  i   Li\r\n\r\n2. The SID on a LOAD card must be unique and must be different from the load\r\n   set identification numbers of all external static load sets in the Bulk\r\n   Data Deck.\r\n\r\n3. The Li must be unique. The remainder of the physical card containing the\r\n   last entry must be blank.\r\n\r\n4. This card must be used if gravity loads (GRAV) are to be used with any of\r\n   the other types.\r\n\r\n5. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n6. A LOAD card may not reference a set identification number defined by\r\n   another LOAD card.\r\n=PAGE=\r\nLOADC - Substructure Static Loading Combination\r\n\r\nDescription\r\n\r\nDefines the static load for a substructuring analysis as a linear combination\r\nof load sets defined for each basic substructure.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nLOADC     SID     S    NAME1   ID1     S1   NAME2   ID2     S2  abc  \r\nĴ\r\nLOADC      27    1.0   WINGRT   5     0.5  FUSELAG  966    2.5  ABC  \r\n\r\nĿ\r\n+bc                    NAME3   ID3     S3   NAME4   ID4     S4  def  \r\nĴ\r\n+BC                    MIDWG    27    1.75       -etc.-               \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nS           Scale factor applied to final load vector (Real).\r\n\r\nNAMEi       Basic substructure name (BCD).\r\n\r\nIDi         Load set identification number of substructure NAMEi (Integer >\r\n            0).\r\n\r\nSi          Scale factor (Real).\r\n\r\nRemarks\r\n\r\n1. The load vector is combined by:\r\n\r\n   {P}  =  S  Si {P}\r\n             i       IDi\r\n\r\n2. The load set identification numbers (IDi) reference the load sets used in\r\n   Phase 1 to generate the load vectors on the basic substructures.\r\n\r\n3. The NAMEi and IDi need not be unique.\r\n\r\n4. The LOADC card is the means of specifying a static loading condition in a\r\n   Phase 2 substructure analysis. The IDi may actually reference temperature\r\n   loads or element deformation loads defined in Phase 1.\r\n\r\n5. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nMAT1 - Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent, isotropic\r\nmaterials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT1      MID     E      G      NU    RHO     A     TREF    GE  +abc \r\nĴ\r\nMAT1       17   3.+7   1.9+7         4.28   0.19   5.37+2  0.23 ABC  \r\n\r\nĿ\r\n+abc       ST     SC     SS   MCSID                                  \r\nĴ\r\n+BC      20.+4  15.+4  12.+4  2004                                   \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nE           Young's modulus (Real >= 0.0 or blank).\r\n\r\nG           Shear modulus (Real >= 0.0 or blank).\r\n\r\nNU          Poisson's ratio (-1.0 < Real <= 0.5 or blank).\r\n\r\nRHO         Mass density (Real).\r\n\r\nA           Thermal expansion coefficient (Real).\r\n\r\nTREF        Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural element damping coefficient (Real).\r\n\r\nST, SC, SS  Stress limits for tension, compression, and shear (Real) (Required\r\n            for property optimization calculations; otherwise optional if\r\n            margins of safety are desired.)\r\n\r\nMCSID       Material coordinate system identification number (Integer >= 0 or\r\n            blank).\r\n\r\nRemarks\r\n\r\n1. One of E or G must be positive (that is, either E > 0.0 or G > 0.0 or both\r\n   E and G may be > 0.0).\r\n\r\n2. If any one of E, G, or NU is blank, it will be computed to satisfy the\r\n   identity E = 2(1+NU)G; otherwise, values supplied by you will be used.\r\n\r\n3. The material identification number must be unique for all MAT1, MAT2, and\r\n   MAT3 cards.\r\n\r\n4. MAT1 materials may be made temperature dependent by use of the MATT1 card\r\n   and stress dependent by use of the MATS1 card.\r\n\r\n5. The mass density, RHO, will be used to automatically compute mass for all\r\n   structural elements except the two-dimensional bending only elements TRBSC,\r\n   TRPLT, and QDPLT.\r\n\r\n6. If E and NU or G and NU are both blank they will be given the value 0.0.\r\n\r\n7. Weight density may be used in field 6 if the value 1/g is entered on the\r\n   PARAM card WTMASS, where g is the acceleration of gravity.\r\n\r\n8. Solid elements must not have NU equal to 0.5.\r\n\r\n9. Entries for A (thermal expansion coefficient) and TREF (reference\r\n   temperature) are assumed to be 0.0 when blank. In a heat formulation, A\r\n   must be overridden by an appropriate entry; TREF may be overridden if\r\n   desired.\r\n\r\n10.   MCSID (> 0) is required if stresses or strains/curvatures are to be\r\n      computed in a material coordinate system. This is applicable only for\r\n      TRIA1, TRIA2, QUAD1, and QUAD2 elements.\r\n=PAGE=\r\nMAT2 - Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent,\r\nanisotropic materials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT2      MID    G11    G12    G13    G22    G23    G33    RHO  +abc \r\nĴ\r\nMAT2       13   6.2+3                6.2+3         5.1+3  0.056 ABC  \r\n\r\nĿ\r\n+abc       A1     A2    A12     T0     GE     ST     SC     SS  +def \r\nĴ\r\n+BC      0.15                -500.0  0.002  20.+5               DEF  \r\n\r\nĿ\r\n+def     MCSID                                                       \r\nĴ\r\n+BC       1008                                                       \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nGij         The material property matrix (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nAi          Thermal expansion coefficient vector (Real).\r\n\r\nT0          Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural element damping coefficient (Real).\r\n\r\nST, SC, SS  Stress limits for tension, compression, and shear (Real). (Used\r\n            only to compute margins of safety in certain elements; they have\r\n            no effect on the computational procedures.)\r\n\r\nMCSID       Material coordinate system identification number (Integer >= 0 or\r\n            blank).\r\n\r\nRemarks\r\n\r\n1. The material identification numbers must be unique for all MAT1, MAT2, and\r\n   MAT3 cards.\r\n\r\n2. MAT2 materials may be made temperature dependent by use of the MATT2 card.\r\n\r\n3. The mass density, RHO, will be used to automatically compute mass for all\r\n   structural elements except the two-dimensional bending only elements TRBSC,\r\n   TRPLT, and QDPLT.\r\n\r\n4. The convention for the Gij in fields 3 through 8 is represented by the\r\n   following matrix relationship.\r\n\r\n                            Ŀ      \r\n    1     G11     G12    G13    l \r\n                                    \r\n    2  =  G12     G22    G23    2 \r\n                                    \r\n    12    G13     G23    G33    12\r\n                                  \r\n\r\n5. MCSID (> 0) is required if stresses or strains/curvatures are to be\r\n   computed in a material coordinate system. This is applicable only for\r\n   TRIA1, TRIA2, QUAD1, and QUAD2 elements.\r\n=PAGE=\r\nMAT3 - Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent,\r\northotropic materials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT3      MID     EX     EY     EZ    NUXY   NUYZ   NUZX   RHO  +abc \r\nĴ\r\nMAT3       23   1.0+7  1.1+7  1.2+7    .3    .25    .27   1.0-5 ABC  \r\n\r\nĿ\r\n+abc      GXY    GYZ    GZX     AX     AY     AZ    TREF    GE       \r\nĴ\r\n+BC      2.5+6  3.0+6  2.5+6  1.0-4  1.0-4  1.1-4   68.5   .23       \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nEX, EY, EZ  Young's moduli in the x, y, and z directions respectively (Real >=\r\n            0.0).\r\n\r\nNUXY, NUYZ, NUZX  Poisson's Ratios (Coupled strain ratios in the xy, yz, and \r\n            zx directions respectively) (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nGXY, GYZ, GZX  Shear moduli for xy, yz, and zx (Real >= 0.0).\r\n\r\nAX, AY, AZ  Thermal expansion coefficients (Real).\r\n\r\nTREF        Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural element damping coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. The material identification number must be unique with respect to the\r\n   collection of all MATi cards.\r\n\r\n2. MAT3 materials may be made temperature-dependent by use of the MATT3 card.\r\n\r\n3. All nine of the numbers EX, EY, EZ, NUXY, NUYZ, NUZX, GXY, GYZ, and GZX\r\n   must be present.\r\n\r\n4. A nonfatal warning diagnostic will occur if any of NUXY or NUYZ has an\r\n   absolute value greater than 1.0.\r\n\r\n5. MAT3 materials may only be referenced by CTRIARG, CTRAPRG, CTRIAAX,\r\n   CTRAPAX, and PTORDRG cards.\r\n\r\n6. The mass density, RHO, will be used to automatically compute mass for the\r\n   TRIARG, TRAPRG, CTRIAAX, CTRAPAX, and TORDRG elements.\r\n=PAGE=\r\nMAT4 - Thermal Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the thermal material properties for temperature-independent, isotropic\r\nmaterials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT4      MID     K      CP                                          \r\nĴ\r\nMAT4      103    .6      .2                                          \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nK           Thermal conductivity (Real > 0.0), or convective film coefficient.\r\n\r\nCP          Thermal capacity per unit volume (Real > 0.0 or blank), or film\r\n            capacity per unit area.\r\n\r\nRemarks\r\n\r\n1. The material identification number may be the same as a MAT1, MAT2, or MAT3\r\n   card, but must be unique with respect to other MAT4 or MAT5 cards.\r\n\r\n2. If an HBDY element references this card, K is the convective film\r\n   coefficient and CP is the thermal capacity per unit area.\r\n\r\n3. MAT4 materials may be made temperature dependent by use of the MATT4 card.\r\n=PAGE=\r\nMAT5 - Thermal Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the thermal material properties for temperature-independent,\r\nanisotropic materials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT5      MID    KXX    KXY    KXZ    KYY    KYZ    KZZ     CP       \r\nĴ\r\nMAT5       24   .092                 .083          .020    0.2       \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nKXX, KXY, KXZ, KYY, KYZ, KZZ  Thermal conductivity matrix terms (Real).\r\n\r\nCP          Thermal capacity per unit volume (Real >= 0.0 or blank).\r\n\r\nRemarks\r\n\r\n1. The thermal conductivity matrix has the form:\r\n\r\n                      Ŀ\r\n           KXX   KXY   KXZ \r\n                           \r\n   K =     KXY   KYY   KYZ \r\n                           \r\n           KXZ   KYZ   KZZ \r\n                      \r\n\r\n2. The material number may be the same as a MAT1, MAT2, or MAT3 card, but must\r\n   be unique with respect to the MAT4 or MAT5 cards.\r\n\r\n3. MAT5 materials may be made temperature dependent by use of the MATT5 card.\r\n=PAGE=\r\nMAT6 - Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent,\r\nanisotropic materials for solid isoparametric elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT6      MID    G11    G12    G13    G14    G15    G16    G22  +a   \r\nĴ\r\nMAT6       31  0.23+7 -0.21+7 0.32+6 0.16+7 0.11+7 0.53+6 0.74+7+A   \r\n\r\nĿ\r\n+a        G23    G24    G25    G26    G33    G34    G35    G36  +b   \r\nĴ\r\n+A      -0.21+7-0.55+7-0.37+7-0.18+7 0.23+7 0.16+7 0.11+7 0.53+6+B   \r\n\r\nĿ\r\n+b        G44    G45    G46    G55    G56    G66    RHO    AXX  +c   \r\nĴ\r\n+B       0.66+7 0.28+7 0.14+7 0.43+7 0.92+6 0.30+7 7.32-4            \r\n\r\nĿ\r\n+c        AYY    AZZ    AXY    AY2    AZX    TREF     GE             \r\nĴ\r\n                                                                     \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number (Integer > 0).\r\n\r\nGij         Symmetric portion of 6x6 material matrix (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nAij         Thermal expansion coefficient vector (Real).\r\n\r\nTREF        Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural damping coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. The material property identification number must be unique with respect to\r\n   all other material cards.\r\n\r\n2. MAT6 materials may be made temperature-dependent by use of the MATT6 card.\r\n\r\n3. The ordering of the rows and columns of the matrix is critical and must\r\n   conform to NASTRAN's ordering of the stress and strain vectors.\r\n=PAGE=\r\nMAT8 - Orthotropic Plate Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material property for an orthotropic material for plate elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMAT8      MID    E1     E2     NU12   G12    G1Z     G2Z   RH0  abc  \r\nĴ\r\nMAT8      299   32.+6  4.2+5   0.33  2.9+6                0.042 ABC  \r\n\r\nĿ\r\n+bc       A1     A2    TREF    XT     XC     YT     YC      S   def  \r\nĴ\r\n+BC      14.-6  2.3-6   175.                                    DEF  \r\n\r\nĿ\r\n+ef       GE     F12                                                 \r\nĴ\r\n+EF       2.5-4                                                      \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nE1, E2      Modulus of elasticity in the material x and y directions (Real not\r\n            equal 0.0).\r\n\r\nNU12        Poisson's Ratio (Real) (See Remark 5).\r\n\r\nG12         Linear in-plane shear modulus (Real > 0.0).\r\n\r\nG1Z         Transverse shear modulus for shear in X-Z plane (Real).\r\n\r\nG2Z         Transverse shear modulus for shear in Y-Z plane (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nA1, A2      Thermal expansion coefficients in the material x and y directions\r\n            (T, Real > 0.0).\r\n\r\nTREF        Thermal expansion reference temperature (XC, Real).\r\n\r\nXT, XC      Allowable stresses/strains in tension and compression,\r\n            respectively, in the material x direction. Required if failure\r\n            index calculation is desired. (XT, Real > 0.0; XC, Real; default\r\n            value for XC is XT.) (See Remark 3.)\r\n\r\nYT, YC      Allowable stresses/strains in tension and compression,\r\n            respectively, in the material y direction. Required if failure\r\n            index calculation is desired. (YT, Real > 0.0; YC, Real; default\r\n            value for YC Is YT.) (See Remark 3.)\r\n\r\nS           Allowable stress/strain for in-plane shear (Real > 0.0) (See\r\n            Remark 3.)\r\n\r\nGE          Structural damping coefficient (Real).\r\n\r\nF12         Tsai-Wu interaction term (Real) (See Remark 4.)\r\n\r\nRemarks\r\n\r\n1. Material coordinate systems are defined by the plate element connection\r\n   entries on the CQUAD4 and CTRIA3 cards.\r\n\r\n2. The stress-strain relationship defined by this data is:\r\n\r\nĿ\r\n                                                           \r\n           1/E1   -NU12/E1                          A1  \r\n   1                                   1                   \r\n                                                           \r\n      =  -NU12/E1    1/E2               + (T-TREF)  A2  \r\n   2                                   2                   \r\n                                                           \r\n                          1/G12                       \r\n   12                                  12                  \r\n                                                           \r\n                                                             \r\n\r\n\r\nĿ\r\n                       Ŀ              \r\n                G1Z                   \r\n     xz                           xz     \r\n           =                             \r\n                     G2Z              \r\n     yz                           yz     \r\n                                    \r\n\r\n\r\n3. Fields XT, XC, YT, YC, and S are used only for composite materials when\r\n   failure calculations are requested with PCOMP, PCOMP1, or PCOMP2 Bulk Data\r\n   entries. Allowables represent stresses except when the maximum strain\r\n   failure theory is used.\r\n\r\n4. The F12 field is used only for composite materials when the Tsai-Wu failure\r\n   theory is used and failure calculations are requested.\r\n\r\n5. NU12 is Poisson's Ratio (1/2 for uniaxial loading in 1-direction). Note\r\n   that NU21 = 1/2, uniaxial loading in 2-direction, is related to NU12, E1,\r\n   and E2 by the relationship, (NU12) (E2) = (NU12) (E1).\r\n=PAGE=\r\nMATF - Fluid Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the fluid density in a hydroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATF      MID    RHO                                                 \r\nĴ\r\nMATF      103    0.6                                                 \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nRHO         Mass density (Real > 0.0).\r\n\r\nRemarks\r\n\r\n1. The material identification number may be the same as that of a MAT1, MAT2,\r\n   or MAT3 card, but must be unique with respect to other MATF cards.\r\n=PAGE=\r\nMATPZ1 - Piezoelectric Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent\r\npiezoelectric materials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\n                  E      E      E      E      E                      \r\nMATPZ1    MID    S      S      S      S      S      d      d    +a   \r\n                  11     33     44     12     13     31     33       \r\nĴ\r\nMATPZ1     1    12.3   15.5   39.0   -4.05  -5.31 -123.0  289.0 +A   \r\n\r\nĿ\r\n                S      S                                             \r\n+a        d15    /    /    RHO     A    TREF    GE               \r\n                11  0  33  0                                         \r\nĴ\r\n+A       496.0  730.0  635.0  7500.0                                 \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nSE11 - d15  Piezoelectric constants multiplied by 10**12 (Real).\r\n\r\nS11/0, S33/0  Piezoelectric constants, where 0 is taken to be 8.854 x\r\n            10**(-12) farad/meter (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nA           Thermal expansion coefficient (Real).\r\n\r\nTREF        Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural element damping coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. MID must be unique with respect to all other material cards.\r\n\r\n2. MATPZ1 materials may be made temperature-dependent by use of the MTTPZ1\r\n   card.\r\n\r\n3. MATPZ1 may be referenced only by PTRAPAX and PTRIAAX cards.\r\n\r\n4. Matrix [SE] must be nonsingular.\r\n=PAGE=\r\nMATPZ2 - Piezoelectric Material Property Definition\r\n\r\nDescription\r\n\r\nDefines the material properties for linear, temperature-independent,\r\npiezoelectric materials.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATPZ2    MID   CE11   CE12   CE13   CE14   CE15   CE16   CE22  +a   \r\nĴ\r\nMATPZ2    23      1.     2.     3.     4.     5.     6.     1.  +A   \r\n\r\nĿ\r\n+a        CE23  CE24   CE25   CE26   CE33   CE34   CE35   CE36  +b   \r\nĴ\r\n+A         2.     3.     4.     5.     1.     2.     3.     4.  +A   \r\n\r\nĿ\r\n+b        CE44  CE45   CE46   CE55   CE56   CE66    E11    E12  +c   \r\nĴ\r\n+B         1.     2.     3.     1.     2.     1.     1.     2.  +C   \r\n\r\nĿ\r\n+c        E13    E14    E15    E16    E21    E22    E23    E24  +d   \r\nĴ\r\n+C         3.     4.     5.     6.     1.     2.     3.     4.  +D   \r\n\r\nĿ\r\n+d        E25    E26    E31    E32    E33    E34    E35    E36  +e   \r\nĴ\r\n+D         5.     6.     1.     2.     3.     4.     5.     6.  +E   \r\n\r\nĿ\r\n+e       EPS11  EPS12  EPS13  EPS22  EPS23  EPS33   RHO     AX  +f   \r\nĴ\r\n+E         1.     2.     3.     4.     5.     6.    .15   6.-7  +F   \r\n\r\nĿ\r\n+f         AY    AZ     TREF   GE                                    \r\nĴ\r\n+F       6.-7   6.-7    70.    .2                                    \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material identification number (Integer > 0).\r\n\r\nCE11 - EPS33  Piezoelectric constants (Real).\r\n\r\nRHO         Mass density (Real).\r\n\r\nAX, AY, AZ  Thermal expansion coefficients (Real).\r\n\r\nTREF        Thermal expansion reference temperature (Real).\r\n\r\nGE          Structural element damping coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. MID must be unique with respect to all other material cards.\r\n\r\n2. MATPZ2 materials may be made temperature-dependent by use of the MTTPZ2\r\n   card.\r\n\r\n3. MATPZ2 may be referenced only by PTRAPAX and PTRIAAX cards.\r\n\r\n4. See CAUTION discussed in Section 1.17.3.2.\r\n=PAGE=\r\nMATS1 - Material Stress Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for material properties on a MAT1 card that are\r\nstress-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATS1     MID     R1                                                 \r\nĴ\r\nMATS1      17     28                                                 \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MAT1 card (Integer > 0).\r\n\r\nR1          Reference to table identification number (Integer >= 0 or blank).\r\n\r\nRemarks\r\n\r\n1. A blank or zero entry means no table dependence of the referenced quantity,\r\n   E, on the basic MAT1 card. For this case, the MATS1 card is not required.\r\n\r\n2. TABLES1 type tables must be used.\r\n=PAGE=\r\nMATT1 - Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for isotropic material properties on a MAT1 card\r\nthat are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT1     MID     R1     R2     R3     R4     R5     R6     R7  +abc \r\nĴ\r\nMATT1      17     32                          15                ABC  \r\n\r\nĿ\r\n+abc       R8     R9    R10                                          \r\nĴ\r\n+BC        62                                                        \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MAT1 card (Integer > 0).\r\n\r\nRi          References to table identification numbers (Integer > 0 or blank)\r\n            for the corresponding fields on the MAT1 card.\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MAT1 card, and the quantity remains constant.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used.\r\n\r\n3. Material properties given on a basic MATi card are initial values. If two\r\n   or more quantities are to retain a fixed relationship, then two or more (as\r\n   required) tables must be input to define the relationship.\r\n=PAGE=\r\nMATT2 - Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for anisotropic material properties on a MAT2 card\r\nthat are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT2     MID     R1     R2     R3     R4     R5     R6     R7  +abc \r\nĴ\r\nMATT2      17     32                          15                ABC  \r\n\r\nĿ\r\n+abc       R8     R9    R10    R11    R12    R13    R14    R15       \r\nĴ\r\n+BC        62                                                        \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MAT2 card (Integer > 0).\r\n\r\nRi          References to table identification numbers (Integer >= 0 or blank)\r\n            for the corresponding fields on the MAT2 card.\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MAT2 card, and the quantity remains constant.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used.\r\n\r\n3. Material properties given on a basic MATi card are initial values. If two\r\n   or more quantities are to retain a fixed relationship, then two or more (as\r\n   required) tables must be input to define the relationship.\r\n=PAGE=\r\nMATT3 - Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for orthotropic material properties on a MAT3 card\r\nthat are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT3     MID     R1     R2     R3     R4     R5     R6     R7  +abc \r\nĴ\r\nMATT3      23     48                   54                       ABC  \r\n\r\nĿ\r\n+abc       R8     R9    R10    R11    R12    R13    R14    R15       \r\nĴ\r\n+BC        74                                                        \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MAT3 card (Integer > 0).\r\n\r\nRi          References to table identification numbers (Integer > 0 or blank)\r\n            for the corresponding fields on the MAT3 card.\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries imply no table dependence of the referenced quantity\r\n   on the basic MAT3 card, and the quantity remains constant.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used.\r\n\r\n3. Material properties given on a basic MATi card are initial values. If two\r\n   or more quantities are to retain a fixed relationship, then two or more (as\r\n   required) tables must be input to define the relationship.\r\n=PAGE=\r\nMATT4 - Thermal Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table reference for temperature dependent thermal conductivity or\r\nconvective film coefficient on a MAT4 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT4     MID    T(K)                                                \r\nĴ\r\nMATT4     103     73                                                 \r\n\r\n\r\nField       Contents\r\n\r\nMID         ID of a MAT4 which is to be temperature dependent (Integer > 0).\r\n\r\nT(K)        Identification number of a TABLEMi card which gives temperature\r\n            dependence of the thermal conductivity or convective film\r\n            coefficient (Integer >= 0 or blank).\r\n\r\nRemarks\r\n\r\n1. The thermal capacity may not be temperature dependent; field 4 must be\r\n   blank.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. The basic\r\n   quantity, K, on the MAT4 card is always multiplied by the tabular function.\r\n   Note that this is different from structural applications.\r\n\r\n3. A blank or zero entry means no table dependence of the referenced quantity\r\n   on the basic MAT4 card. For this case, the MATT4 card is not required.\r\n=PAGE=\r\nMATT5 - Thermal Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for thermal conductivity matrix terms on a MAT5\r\ncard that are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT5     MID  T(KXX) T(KXY) T(KXZ) T(KYY) T(KYZ) T(KZZ)             \r\nĴ\r\nMATT5     24     73                                                  \r\n\r\n\r\nField       Contents\r\n\r\nMID         Identification number of a MATS, which is to be temperature\r\n            dependent (Integer > 0).\r\n\r\nT(K--)      Identification number of a TABLEMi card which gives temperature\r\n            dependence of the matrix term (Integer >= 0 or blank).\r\n\r\nRemarks\r\n\r\n1. The thermal capacity may not be temperature dependent. Field 9 must be\r\n   blank.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, or TABLEM4 type tables may be used. The basic\r\n   quantities on the MAT5 card are always multiplied by the tabular function.\r\n   Note that this is different from the structural applications.\r\n\r\n3. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MAT5 card, and the quantity remains constant.\r\n\r\n4. Material properties given on a basic MATi card are initial values. If two\r\n   or more quantities are to retain a fixed relationship, then two or more (as\r\n   required) tables must be input to define the relationship.\r\n=PAGE=\r\nMATT6 - Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for material properties on a MAT6 card that are\r\ntemperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMATT6     MID     R1     R2     R3     R4     R5     R6     R7  +a   \r\nĴ\r\nMATT6     115     101    102    103    104    105    106    107 +A   \r\n\r\nĿ\r\n+a         R8     R9    R10    R11    R12    R13    R14    R15  +b   \r\nĴ\r\n+A         108    109   110    111    112    113    114    115  +B   \r\n\r\nĿ\r\n+b        R16    R17    R18    R19    R20    R21    R22    R23  +c   \r\nĴ\r\n+B        116    117    118    119    120    121    122    123  +C   \r\n\r\nĿ\r\n+c        R24    R25    R26    R27    R28    R29    R30              \r\nĴ\r\n+C        124    125    126    127    128    129    130              \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MAT6 card (Integer > 0).\r\n\r\nRi          References to table identification numbers (Integer >= 0 or\r\n            blank).\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MAT6 card.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used.\r\n=PAGE=\r\nMDIPOLE - Magnetic Dipole Moment\r\n\r\nDescription\r\n\r\nDefines a magnetic dipole moment in magnetic field problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMDIPOLE   SID    CID    CX     CY     CZ     MX     MY     MZ   +a   \r\nĴ\r\nMDIPOLE    5            1.0    2.1    3.0   10.0   20.0   30.0  +A   \r\n\r\nĿ\r\n+a        MIN    MAX                                                 \r\nĴ\r\n+A        0.0    0.0                                                 \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nCID         Coordinate system identification number (Integer > 0).\r\n\r\nCX, CY, CZ  Coordinates of location of dipole in coordinate system CID (Real).\r\n\r\nMX, MY, MZ  Components of magnetic dipole moment in coordinate system CID\r\n            (Real).\r\n\r\nMIN         Minimum distance from dipole to grid point for computing magnetic\r\n            equivalent loads (Real > 0.0).\r\n\r\nMAX         Maximum distance from dipole to grid point for computing magnetic\r\n            equivalent loads (Real > 0.0).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. Presently, CID must be blank or zero, indicating the basic coordinate\r\n   system.\r\n\r\n3. MIN and MAX represent minimum and maximum distances, respectively, from the\r\n   dipole to a point outside of which the magnetic equivalent loads will not\r\n   be computed for this dipole. If MAX is zero or blank, loads for all\r\n   necessary points beyond the MIN distance will be computed.\r\n\r\n4. The continuation card is required.\r\n=PAGE=\r\nMKAERO1 - Mach Number, Frequency Table\r\n\r\nDescription\r\n\r\nProvides a table of Mach numbers or interblade phase angles (m) and reduced\r\nfrequencies (k) for aerodynamic matrix calculation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMKAERO1    M1     M2     M3     M4     M5     M6     M7     M8  ABC  \r\nĴ\r\nMKAERO1    .1     .7                                            +ABC \r\n\r\nĿ\r\n+BC        K1     K2     K3     K4     K5     K6     K7     K8       \r\nĴ\r\n+BC        .3     .6    1.0                                          \r\n\r\n\r\nField       Contents\r\n\r\nMi          List of Mach numbers or interblade phase angles (Real; 1 <= i <=\r\n            8). See Remark 5.\r\n\r\nKj          List of reduced frequencies (Real > 0.0, 1 <= j <= 8).\r\n\r\nRemarks\r\n\r\n1. Blank fields end the list, and thus cannot be used for 0.0.\r\n\r\n2. All combinations of (M,K) will be used.\r\n\r\n3. The continuation card is required.\r\n\r\n4. Since 0.0 is not allowed, it may be simulated with a very small number such\r\n   as 0.0001.\r\n\r\n5. Mach numbers are input for wing flutter analysis and interblade phase\r\n   angles for blade flutter analysis.\r\n=PAGE=\r\nMKAERO2 - Mach Number, Frequency Table\r\n\r\nDescription\r\n\r\nProvides a list of Mach numbers or interblade phase angles (m) and reduced\r\nfrequencies (k) for aerodynamic matrix calculation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMKAERO2    M1     K1     M2     K2     M3     K3     M4     K4       \r\nĴ\r\nMKAERO2   .10    .30    .10    .60    .70    .30    .70    1.0       \r\n\r\n\r\nField       Contents\r\n\r\nMi          List of Mach numbers or interblade phase angles (Real > 0.0). See\r\n            Remark 4.\r\n\r\nKi          List of reduced frequencies (Real > 0.0).\r\n\r\nRemarks\r\n\r\n1. This card will cause the aerodynamic matrices to be computed for a set of\r\n   parameter pairs.\r\n\r\n2. Several MKAERO2 cards may be in the deck.\r\n\r\n3. Imbedded blank pairs are skipped.\r\n\r\n4. Mach numbers are input for wing flutter analysis and interblade phase\r\n   angles for blade flutter analysis.\r\n=PAGE=\r\nMOMAX - Conical Shell Static Moment\r\n\r\nDescription\r\n\r\nDefines a static moment loading of a conical shell coordinate.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMOMAX     SID    RID    HID     S      MR     MP     MZ              \r\nĴ\r\nMOMAX      1      2      3     1.0    0.1    0.2    0.3              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nRID         Ring identification number (see RINGAX) (Integer > 0).\r\n\r\nHID         Harmonic identification number (Integer >= 0 or a sequence of\r\n            harmonics; see Remark 5).\r\n\r\nS           Scale factor (Real).\r\n\r\nMR, MP, MZ  Moment components in the r, , z directions (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n3. A separate card is needed for the definition of the moment associated with\r\n   each harmonic.\r\n\r\n4. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n5. If a sequence of harmonics is to be placed in HID the form is as follows:\r\n   \"Sn1Tn2\" where n1 is the start of the sequence and n2 is the end of the\r\n   sequence, that is, for harmonics 0 through 10, the field would contain\r\n   \"S0T10\".\r\n=PAGE=\r\nMOMENT - Static Moment\r\n\r\nDescription\r\n\r\nDefines a static moment at a grid point by specifying a vector.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMOMENT    SID     G     CID     M      N1     N2     N3              \r\nĴ\r\nMOMENT     2      5      6     2.9    0.0    1.0    0.0              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nCID         Coordinate system identification number (Integer >= 0).\r\n\r\nM           Scale factor (Real).\r\n\r\nN1, N2, N3  Components of vector measured in coordinate system defined by CID\r\n            (Real; N1**2 + N2**2 + N3**2 > 0.0).\r\n\r\nRemarks\r\n\r\n1. The static moment applied to grid point G is given by\r\n\r\n   ->\r\n   m  =  M*(N1,N2,N3)\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n3. A CID of zero references the basic coordinate system.\r\n=PAGE=\r\nMOMENT1 - Static Moment\r\n\r\nDescription\r\n\r\nUsed to define a static moment by specification of a value and two grid points\r\nwhich determine the direction.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMOMENT1   SID     G      M      G1     G2                            \r\nĴ\r\nMOMENT1    6      13   -2.93    16     13                            \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nM           Value of moment (Real).\r\n\r\nG1, G2      Grid point identification numbers (Integer > 0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1. The direction of the moment is determined by the vector from G1 to G2.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nMOMENT2 - Static Moment\r\n\r\nDescription\r\n\r\nUsed to define a static moment by specification of a value and four grid\r\npoints which determine the direction.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMOMENT2   SID     G      M      G1     G2     G3     G4              \r\nĴ\r\nMOMENT2    6      13   -2.93    16     13     17     13              \r\n\r\n\r\nField       Contents\r\n\r\nSID         Load set identification number (Integer > 0).\r\n\r\nG           Grid point identification number (Integer > 0).\r\n\r\nM           Value of moment (Real).\r\n\r\nG1,...,G4   Grid point identification numbers (Integer > 0; G1 not equal G2;\r\n            G3 not equal G4).\r\n\r\nRemarks\r\n\r\n1. The direction of the force is determined by the vector product whose\r\n   factors are vectors from G1 to G2 and G3 to G4 respectively.\r\n\r\n2. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n=PAGE=\r\nMPC - Multipoint Constraint\r\n\r\nDescription\r\n\r\nDefines a multipoint constraint equation of the form\r\n\r\n    A  u   =  0\r\n   j  j  j\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMPC       SID     G      C      A      G      C      A          +abc \r\nĴ\r\nMPC        3      28     3     6.2     2            4.29        +B   \r\n\r\nĿ\r\n+bc               G      C      A    -etc.-                          \r\nĴ\r\n+B                1      4    -2.91                                  \r\n\r\n\r\nField       Contents\r\n\r\nSID         Set identification number (Integer > 0).\r\n\r\nG           Identification number of grid or scalar point (Integer > 0).\r\n\r\nC           Component number - any one of the digits 1 - 6 in the case of\r\n            geometric grid points; blank or zero in the case of scalar points\r\n            (Integer).\r\n\r\nA           Coefficient (Real; the first A must be nonzero).\r\n\r\nRemarks\r\n\r\n1. The first coordinate in the sequence is assumed to be the dependent\r\n   coordinate and must be unique for all equations of the set.\r\n\r\n2. Forces of multipoint constraint are not recovered.\r\n\r\n3. Multipoint constraint sets must be selected in the Case Control Deck (MPC =\r\n   SID) to be used by NASTRAN.\r\n\r\n4. Dependent coordinates on MPC cards may not appear on OMIT, OMIT1, SUPORT,\r\n   SPC, or SPC1 cards; nor may the dependent coordinates be redundantly\r\n   implied on ASET, ASET1, or MPCADD cards. They also may not appear as\r\n   dependent coordinates in CRIGD1, CRIGD2, CRIGD3, or CRIGDR elements.\r\n=PAGE=\r\nMPCADD - Multipoint Constraint Set Definition\r\n\r\nDescription\r\n\r\nDefines a multipoint constraint set as a union of multipoint constraint sets\r\ndefined via MPC cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMPCADD    SID     S1     S2     S3     S4     S5     S6     S7  abc  \r\nĴ\r\nMPCADD    100     2      3      1      6      4                      \r\n\r\nĿ\r\n+bc        S8     S9      -etc.-                                      \r\nĴ\r\n                                                                     \r\n\r\n\r\nField       Contents\r\n\r\nSID         Set identification number (Integer > 0; not equal 101 or 102 if\r\n            axisymmetric).\r\n\r\nSj          Set identification numbers of multipoint constraint sets defined\r\n            via MPC cards (Integer > 0; SID not equal Sj).\r\n\r\nRemarks\r\n\r\n1. The Sj must be unique.\r\n\r\n2. Multipoint constraint sets must be selected in the Case Control Deck (MPC =\r\n   SID) to be used by NASTRAN.\r\n\r\n3. Sj may not be the identification number of a multipoint constraint set\r\n   defined by another MPCADD card.\r\n\r\n4. Set identification numbers of 101 or 102 cannot be used in axisymmetric\r\n   problems.\r\n=PAGE=\r\nMPCAX - Axisymmetric Multipoint Constraint\r\n\r\nDescription\r\n\r\nDefines a multipoint constraint equation of the form\r\n\r\n    A  u   =  0\r\n   j  j  j\r\n\r\nfor a model containing CCONEAX, CTRAPAX, or CTRIAAX elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMPCAX     SID                         RID    HID     C      A   +abc \r\nĴ\r\nMPCAX      32                          17     6      1     1.0  +1   \r\n\r\nĿ\r\n+abc      RID    HID     C      A     RID    HID     C      A   +def \r\nĴ\r\n+1         23     4      2    -6.8                                   \r\n\r\n                                    -etc.-\r\n\r\nField       Contents\r\n\r\nSID         Set identification number (Integer > 0, not equal 101 or 102).\r\n\r\nRID         Ring identification number (Integer > 0).\r\n\r\nHID         Harmonic identification number (Integer >= 0).\r\n\r\nC           Component number (1 <= Integer <= 6).\r\n\r\nA           Coefficient (Real; the first A must be nonzero).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. The first coordinate in the sequence is assumed to be the dependent\r\n   coordinate and must be unique for all equations of the set.\r\n\r\n3. Multipoint constraint sets must be selected in the Case Control Deck (MPC =\r\n   SID) to be used by NASTRAN.\r\n\r\n4. Dependent coordinates appearing on MPCAX cards may not appear on OMITAX,\r\n   SPCAX, or SUPAX cards.\r\n\r\n5. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n6. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nMPCS - Substructure Multipoint Constraints\r\n\r\nDescription\r\n\r\nDefines multipoint constraints within or between substructures.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMPCS      SID   NAME1    G1     C1     A1                       abc  \r\nĴ\r\nMPCS      171  WINGRT   966     1     1.0                       ABC  \r\n\r\nĿ\r\n+bc             NAME2   G21    C21    A21    G22    C22    A32  def  \r\nĴ\r\n+BC            FUSELAG 1036     1    .031   1036     6    32.7  DEF  \r\n\r\nĿ\r\n+ef             NAME3   G31    C31    A31    G32    C32    A32  ghi  \r\nĴ\r\n+EF             CABIN    39     2    .076                            \r\n\r\n\r\nField       Contents\r\n\r\nSID         Set identification number (Integer > 0).\r\n\r\nNAMEi       Basic substructure name (BCD).\r\n\r\nGi          Grid or scalar point identification number in basic substructure\r\n            NAME or NAMEi (Integer > 0).\r\n\r\nCi          Component number - Any one of the digits 1 - 6 in the case of\r\n            geometric gridpoints; blank or zero in the case of scalar points\r\n            (Integer > 0).\r\n\r\nAi          Coefficient (Real; A must be non-zero).\r\n\r\nRemarks\r\n\r\n1. The first degree of freedom in the sequence is the dependent degree of\r\n   freedom and it must be unique for all equations of the set.\r\n\r\n2. MPCS constraints may be imposed only at the SOLVE step of substructuring in\r\n   Phase 2. Therefore, referenced grid point components must exist in the\r\n   final solution substructure.\r\n\r\n3. The operation will constrain the degrees of freedom by the equation:\r\n\r\n    A  u   =  0\r\n      i  i\r\n\r\n   where ui is the displacement defined by NAMEi, Gi, and Ci.\r\n\r\n4. Components may be connected within substructures and/or to separate\r\n   substructures.\r\n\r\n5. The dependent degree of freedom may not also be referenced on any SPCS,\r\n   SPCS1, SPCSD, SPC, SPC1, OMIT, OMIT1, or SUPORT cards.\r\n\r\n6. Multipoint constraint sets must be selected in the Case Control Deck (MPC =\r\n   SID) to be used by NASTRAN.\r\n\r\n7. MPCS cards may be referenced by an MPCADD card.\r\n=PAGE=\r\nMTTPZ1 - Piezoelectric Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for piezoelectric material properties on a MATPZ1\r\ncard that are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMTTPZ1    MID     R1     R2     R3     R4     R5     R6     R7  +a   \r\nĴ\r\nMTTPZ1    703    201    202    203    204    205    206    207  +A   \r\n\r\nĿ\r\n+a         R8     R9    R10    R11    R12    R13    R14              \r\nĴ\r\n+A        208    209    210    211    212    213    214              \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MATPZ1 card (Integer > 0).\r\n\r\nRi          References to table identification numbers for the corresponding\r\n            fields on the MATPZ1 card (Integer > 0 or blank).\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MATPZ1 card, and the quantity remains constant.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used.\r\n\r\n3. Material properties given on the basic MATPZ1 card are initial values. If\r\n   two or more quantities are to retain a fixed relationship, then two or more\r\n   tables must be input to define the relationship.\r\n=PAGE=\r\nMTTPZ2 - Piezoelectric Material Temperature Dependence\r\n\r\nDescription\r\n\r\nSpecifies table references for piezoelectric material properties on a MATPZ2\r\ncard that are temperature-dependent.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nMTTPZ2    MID     R1     R2     R3     R4     R5     R6     R7  +a   \r\nĴ\r\nMTTPZ2     35    701    702    703    704    705    706    707  +A   \r\n\r\n        .                                      .\r\n        .                                      .\r\n        .                                      .\r\nĿ\r\n+f        R48    R49    R50    R51                                   \r\nĴ\r\n+F        748    749    750    751                                   \r\n\r\n\r\nField       Contents\r\n\r\nMID         Material property identification number which matches the\r\n            identification number on some basic MATPZ2 card (Integer > 0).\r\n\r\nRi          References to table identification numbers for the corresponding\r\n            fields on the MATPZ2 card (Integer > 0 or blank).\r\n\r\nRemarks\r\n\r\n1. Blank or zero entries mean no table dependence of the referenced quantity\r\n   on the basic MATPZ2 card, and the quantity remains constant.\r\n\r\n2. TABLEM1, TABLEM2, TABLEM3, and TABLEM4 type tables may be used.\r\n\r\n3. Material properties given on the basic MATPZ2 card are initial values. If\r\n   two or more quantities are to retain a fixed relationship, then two or more\r\n   tables must be input to define the relationship.\r\n=PAGE=\r\nNFTUBE - Nonlinear Transient Response Load\r\n\r\nDescription\r\n\r\nDefines a nonlinear transient element for heat convection.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNFTUBE    CID     G1     G2     CP   VOLRT                           \r\nĴ\r\nNFTUBE     20     8      12    1.3    8.0                            \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nG1, G2      Grid point identification numbers of connection points (Integer >\r\n            0, G1 not equal G2).\r\n\r\nCP          Heat capacity per unit volume (pCp) (Real).\r\n\r\nVOLRT       Volume flow rate,  (Real or Integer). If real, the value is used;\r\n            if integer is given, it is the ID of a TABLEDi data card.\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads are used only in transient analysis.\r\n\r\n2. The power into grid points G1 and G2 is given by:\r\n\r\n            .          .\r\n   N1 = -pc v(t) U1    v > 0\r\n            .\r\n   N2 = +pc v(t) U1\r\n\r\n   or\r\n\r\n            .          .\r\n   N1 = -pc v(t) U2    v > 0\r\n            .\r\n   N2 =  pc v(t) U2\r\n\r\n3. This element does not contribute to the heat capacity matrix. The FTUBE\r\n   element may be used for this purpose.\r\n\r\n4. It is your responsibility to ensure flow continuity. There must be no\r\n   accumulation of fluid mass at any grid point.\r\n=PAGE=\r\nNOLIN1 - Nonlinear Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines nonlinear transient forcing functions of the form\r\n\r\n   P (t)  =  S T(x (t))   ,\r\n    i             j\r\n\r\nwhere xj is either a displacement (uj) or a velocity (j).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN1    SID     GI     CI     S      GJ     CJ     T               \r\nĴ\r\nNOLIN1     21     3      4     2.1     3      1      6               \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nGI          Grid or scalar or extra point identification number at which\r\n            nonlinear load is to be applied (Integer > 0).\r\n\r\nCI          Component number if GI is a grid point (0 < Integer <= 6); blank\r\n            or zero if GI is a scalar or extra point.\r\n\r\nS           Scale factor (Real).\r\n\r\nGJ          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ          Component number if GJ is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer <= 16); blank or zero or 10 if GJ is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nT           Identification number of a TABLEDi card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID)\r\n   to be used by NASTRAN.\r\n\r\n2. Nonlinear loads may not be referenced on a DLOAD card.\r\n\r\n3. All coordinates referenced on NOLIN1 cards must be members of the solution\r\n   set. This means the ue set for modal formulation and the ud = ue + ua set\r\n   for direct formulation.\r\n\r\n4. The permissible values for the component number CJ are given in the\r\n   following table:\r\n\r\n\\Ŀ\r\nxj        \\          GJ   Grid point         Scalar or extra point\r\n\\Ĵ\r\n Displacement (u )       1 <= Integer <= 6      0 or blank        \r\n                j                                                 \r\nĴ\r\n           .                                                      \r\n Velocity (u )          11 <= Integer <= 16           10          \r\n            j                                                     \r\n\r\n\r\n   Note that velocity components are represented by integers ten greater than\r\n   the corresponding displacement components.\r\n\r\n5. If xj is a velocity (j), then it is determined from the relation\r\n\r\n           u    -  u\r\n   .        j,t     j,t-1\r\n   u    =  \r\n    j,t        t\r\n\r\n   where t is the time increment and uj,t and uj,t-1 are the displacements at\r\n   time t and at the previous time step respectively.\r\n=PAGE=\r\nNOLIN2 - Nonlinear Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines nonlinear transient forcing functions of the form\r\n\r\n   P (t)  =  S x (t)y (t)\r\n    i           j    k\r\n\r\nwhere xj and yk are either displacements (uj,uk) or velocities (j,k).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN2    SID     GI     CI     S      GJ     CJ     GK     CK       \r\nĴ\r\nNOLIN2     14     2      1     2.9     2      1      2      11       \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nGI          Grid or scalar or extra point identification number at which\r\n            nonlinear load is to be applied (Integer > 0).\r\n\r\nCI          Component number if GI is a grid point (0 < Integer <= 6); blank\r\n            or zero if GI is a scalar or extra point.\r\n\r\nS           Scale factor (Real).\r\n\r\nGJ          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ          Component number if GJ is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer <= 16); blank or zero or 10 if GJ is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nGK          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCK          Component number if GK is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer < 16); blank or zero or 10 if GK is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID)\r\n   to be used by NASTRAN.\r\n\r\n2. Nonlinear loads may not be referenced on a DLOAD card.\r\n\r\n3. All coordinates referenced on NOLIN2 cards must be members of the solution\r\n   set. This means the ue set for modal formulation and the ud = ue + ua set\r\n   for direct formulation.\r\n\r\n4. The permissible values for the component number CJ or CK are given in the\r\n   following table:\r\n\r\n\\Ŀ\r\nxj or yk  \\  GJ or GK     Grid point         Scalar or extra point\r\n\\Ĵ\r\nDisplacement (u  or u )  1 <= Integer <= 6      0 or blank        \r\n               j     k                                            \r\nĴ\r\n           .     .                                                \r\n Velocity (u  or u )    11 <= Integer <= 16           10          \r\n            j     k                                               \r\n\r\n\r\n   Note that velocity components are represented by integers ten greater than\r\n   the corresponding displacement components.\r\n\r\n5. If xj or yk is a velocity (j or k), then it is determined from the\r\n   relation\r\n\r\n           u    - u                          u    -  u\r\n   .       j,t     j,t-1            .         k,t     k,t-1\r\n   u    =     or   u     = \r\n    j,t        t                    k,t           t\r\n\r\n   where t is the time increment, uj,t and uk,t are the displacements at the\r\n   time t and uj,t-1 and uk,t-1 are the displacements at the previous time step.\r\n\r\n6. xj and yk need not both represent displacements or velocities. One of them\r\n   may be a displacement and the other may be a velocity.\r\n=PAGE=\r\nNOLIN3 - Nonlinear Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines nonlinear transient forcing functions of the form\r\n\r\n                    A\r\n            S(x (t)) ,  x (t) > 0\r\n               j         j\r\n   P (t) =\r\n    i           0    ,  x (t) <= 0\r\n                         j\r\n\r\nwhere xj is either a displacement (uj) or a velocity (j).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN3    SID     GI     CI     S      GJ     CJ     A               \r\nĴ\r\nNOLIN3     4      102         -6.1     2      5     -3.5             \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nGI          Grid or scalar or extra point identification number at which\r\n            nonlinear load is to be applied (Integer > 0).\r\n\r\nCI          Component number if GI is a grid point (0 < Integer <= 6); blank\r\n            or zero if GI is a scalar or extra point.\r\n\r\nS           Scale factor (Real).\r\n\r\nGJ          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ          Component number if GJ is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer <= 16); blank or zero or 10 if GJ is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nA           Amplification factor (Real).\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID)\r\n   to be used by NASTRAN.\r\n\r\n2. Nonlinear loads may not be referenced on a DLOAD card.\r\n\r\n3. All coordinates referenced on NOLIN3 cards must be members of the solution\r\n   set. This means the ue set for modal formulation and the ud = ue + ua set\r\n   for direct formulation.\r\n\r\n4. The permissible values for the component number CJ are given in the\r\n   following table:\r\n\r\n\\Ŀ\r\nxj        \\          GJ   Grid point         Scalar or extra point\r\n\\Ĵ\r\n Displacement (u )       1 <= Integer <= 6      0 or blank        \r\n                j                                                 \r\nĴ\r\n           .                                                      \r\n Velocity (u )          11 <= Integer <= 16           10          \r\n            j                                                     \r\n\r\n\r\n   Note that velocity components are represented by integers ten greater than\r\n   the corresponding displacement components.\r\n\r\n5. If xj is a velocity (j), then it is determined from the relation\r\n\r\n            u     -  u\r\n   .         j,t      j,t-1\r\n   u    =  \r\n    j,t           t\r\n\r\n   where t is the time increment and uj,t and uj,t-1 are the displacements at\r\n   time t and at the previous time step, respectively.\r\n=PAGE=\r\nNOLIN4 - Linear Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines nonlinear transient forcing functions of the form\r\n\r\n                      A\r\n            -S(-x (t)) ,  x (t) < 0\r\n                 j         j\r\n   P (t) =\r\n    i             0    ,  x (t) >= 0\r\n                           j\r\n\r\nwhere xj is either a displacement (uj) or a velocity (j).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN4    SID     GI     CI     S      GJ     CJ     A               \r\nĴ\r\nNOLIN4     2      4      6     2.0    101           16.3             \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nGI          Grid or scalar or extra point identification number at which\r\n            nonlinear load is to be applied (Integer > 0).\r\n\r\nCI          Component number if GI is a grid point (0 < Integer <= 6); blank\r\n            or zero if GI is a scalar or extra point.\r\n\r\nS           Scale factor (Real).\r\n\r\nGJ          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ          Component number if GJ is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer <= 16); blank or zero or 10 if GJ is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nA           Amplification factor (Real).\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID)\r\n   to be used by NASTRAN.\r\n\r\n2. Nonlinear loads may not be referenced on a DLOAD card.\r\n\r\n3. All coordinates referenced on NOLIN4 cards must be members of the solution\r\n   set. This means the ue set for modal formulation and the ud = ue + ua set\r\n   for direct formulation.\r\n\r\n4. The permissible values for the component number CJ are given in the\r\n   following table:\r\n\r\n\\Ŀ\r\nxj        \\          GJ   Grid point         Scalar or extra point\r\n\\Ĵ\r\n Displacement (u )       1 <= Integer <= 6      0 or blank        \r\n                j                                                 \r\nĴ\r\n           .                                                      \r\n Velocity (u )          11 <= Integer <= 16           10          \r\n            j                                                     \r\n\r\n\r\n   Note that velocity components are represented by integers ten greater than\r\n   the corresponding displacement components.\r\n\r\n5. If xj is a velocity (j), then it is determined from the relation\r\n\r\n            u     -  u\r\n   .         j,t      j,t-1\r\n   u    =  \r\n    j,t           t\r\n\r\n   where t is the time increment and uj,t and uj,t-1 are the displacements at\r\n   time t and at the previous time step, respectively.\r\n=PAGE=\r\nNOLIN5 - Nonlinear Transient Load for Radiant Heat Transfer\r\n\r\nDescription\r\n\r\nDefines nonlinear transient radiant heat transfer with temperature dependent\r\nemissivities and absorptivities.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN5    SID     AA     AB    FAB     EA     EB    ALPA   ALPB abc  \r\nĴ\r\nNOLIN5     6     6.5    8.3    6.5     66    .83     77    .88  ABC  \r\n\r\nĿ\r\n+bc       GA1    GA2    GA3    GA4    GB1    GB2    GB3    GB4       \r\nĴ\r\n+BC        7     12     13            16     18                      \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear set identification number (Integer > 0).\r\n\r\nAA, AB      Areas of elements A,B (Real > 0.0).\r\n\r\nFAB         Exchange coefficient between areas A,B (Real > 0.0).\r\n\r\nEA, EB      Values for emissivities of elements A,B (Real > 0.0, or Integer >\r\n            0 if a table ID).\r\n\r\nALPA, ALPB  Values for absorptivities of elements A,B (Real > 0.0, or Integer\r\n            > 0 if a table ID).\r\n\r\nGA1,...,GA4 Grid points associated with Area A (Integer or blank) (GA1 > 0).\r\n\r\nGB1,...,GB4 Grid points associated with Area B (Integer or blank) (GB1 > 0).\r\n\r\nRemarks\r\n\r\n1. This card describes the radiant exchange between two areas, A and B. From\r\n   zero through four grid points can be associated with each area.\r\n\r\n2. All grid points specified for an area are treated equally.\r\n\r\n3. The nonlinear loads for areas A and B are given by:\r\n\r\n                         4\r\n   N            (u +T   )\r\n    A             A  abs\r\n        = [R]            4\r\n   N            (u +T   )\r\n    B             B  abs\r\n\r\n   The exchange matrix R depends upon AA, AB, FAB, EA, EB, ALPA, ALPB and the\r\n   Stefan Boltzman constant. See Theoretical Manual Section 8.3.4 for the\r\n   formula.\r\n\r\n4. The second continuation card is not required. The default gives the\r\n   absorptivity equal to the emissivity.\r\n\r\n5. All grid points listed must be in the solution set {ud}.\r\n\r\n6. Fields 6 through 9 may contain either a real value if a constraint\r\n   emissivity or absorptivity is desired, or an integer value for the ID of a\r\n   TABLEDi data card for temperature-dependent parameters.\r\n=PAGE=\r\nNOLIN6 - Nonlinear Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines nonlinear transient forcing functions of the form\r\n\r\n   P (t) = S T(x (t))  x (t)  x (t),     if CJ <= 6\r\n    i           j       j      j\r\n\r\n                        .       .\r\n   P (t) = S T(x (t))  x (t)  x (t),     if CJ >= 10\r\n    i           j       j      j\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nNOLIN6    SID     GI     CI     S      GJ     CJ     T               \r\nĴ\r\nNOLIN6     21     3      4     2.1     3      1      6               \r\n\r\n\r\nField       Contents\r\n\r\nSID         Nonlinear load set identification number (Integer > 0).\r\n\r\nGI          Grid or scalar or extra point identification number at which\r\n            nonlinear load is to be applied (Integer > 0).\r\n\r\nCI          Component number if GI is a grid point (0 < Integer <= 6); blank\r\n            or zero if GI is a scalar or extra point.\r\n\r\nS           Scale factor (Real).\r\n\r\nGJ          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nCJ          Component number if GJ is a grid point (0 < Integer <= 6; 11 <=\r\n            Integer <= 16); blank or zero or 10 if GJ is a scalar or extra\r\n            point (See Remark 4 below).\r\n\r\nT           Identification number of a TABLEDi card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Nonlinear loads must be selected in the Case Control Deck (NONLINEAR = SID)\r\n   to be used by NASTRAN.\r\n\r\n2. Nonlinear loads may not be referenced on a DLOAD card.\r\n\r\n3. All coordinates referenced on NOLIN6 cards must be members of the solution\r\n   set. This means the ue set for modal formulation and the ud = ue +  ua set\r\n   for direct formulation.\r\n\r\n4. The permissible values for the component number CJ are given in the\r\n   following table:\r\n\r\n\\Ŀ\r\n .      \\                                                         \r\n x  or x  \\        CJ     Grid Point         Scalar or extra point\r\n  j     j   \\             Component                               \r\n\\Ĵ\r\n Displacement (x )       1 <= Integer <= 6      0 or blank        \r\n                j                                                 \r\nĴ\r\n           .                                                      \r\n Velocity (x )          11 <= Integer <= 16           10          \r\n            j                                                     \r\n\r\n\r\n   Note that velocity components are represented by integers ten greater than\r\n   the corresponding displacement components.\r\n\r\n5. Velocity (j) is determined from the relation\r\n\r\n            x      x\r\n     .       j,t -  j,t-1\r\n     x    =  _________________   ,\r\n      j,t         t\r\n\r\n   where t is the time increment and xj,t and xj,t-1 are the displacements at\r\n   time t and at the previous time step respectively.\r\n\r\n6. Since the forcing function Pi(t) is a product of TABLEDi, displacement,\r\n   velocity and the scale factor S, any zero value of these quantities will\r\n   make Pi(t) equal to zero. This condition may occur when the initial\r\n   displacements or velocities are zero, and no other load is applied to the\r\n   structure.\r\n=PAGE=\r\nOMIT - Omitted Coordinates\r\n\r\nDescription\r\n\r\nDefines coordinates (degrees of freedom) to be omitted from the problem\r\nthrough matrix partitioning. Used to reduce the number of independent degrees\r\nof freedom.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nOMIT       ID     C      ID     C      ID     C      ID     C        \r\nĴ\r\nOMIT       16     2      23   3516                   1      4        \r\n\r\n\r\nField       Contents\r\n\r\nID          Grid or scalar point identification number (Integer > 0).\r\n\r\nC           Component number, zero, or blank for scalar points, any unique\r\n            combination of the digits 1 - 6 for grid points.\r\n\r\nRemarks\r\n\r\n1. Coordinates specified on OMIT cards may not be specified on OMIT1, ASET,\r\n   ASET1, SUPORT, SPC, or SPC1 cards nor may they appear as dependent\r\n   coordinates in multipoint constraint relations (MPC) or in rigid elements\r\n   (RIGD1, RIGD2, RIGD3, or RIGDR) or as permanent single-point constraints on\r\n   GRID cards.\r\n\r\n2. As many as 24 coordinates may be omitted by a single card.\r\n\r\n3. ASET or OMIT data are not recommended for use in heat transfer analysis\r\n   with radiation effects.\r\n=PAGE=\r\nOMIT1 - Omitted Coordinates\r\n\r\nDescription\r\n\r\nDefines coordinates (degrees of freedom) to be omitted from the problem\r\nthrough matrix partitioning. Used to reduce the number of independent degrees\r\nof freedom.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nOMIT1      C      G      G      G      G      G      G      G   abc  \r\nĴ\r\nOMIT1      3      2      1      3     10      9      6      5   ABC  \r\n\r\nĿ\r\n+bc        G      G      G    -etc.-                                 \r\nĴ\r\n+BC        7      8                                                  \r\n\r\n                                    -etc.-\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nOMIT1      C     ID1  \"THRU\"   ID2                                   \r\nĴ\r\nOMIT1      0      17   THRU    109                                   \r\n\r\n\r\nField       Contents\r\n\r\nC           Component number (any unique combination of the digits 1 - 6 with\r\n            no imbedded blanks when point identification numbers are grid\r\n            points; must be null or zero if point identification numbers are\r\n            scalar points).\r\n\r\nG, ID1, ID2 Grid or scalar point identification number (Integer > 0; ID1 <\r\n            ID2).\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multi-point constraint relation (MPC card) or as a degree\r\n   of freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it\r\n   be referenced on a SPC, SPC1, OMIT, ASET, ASET1, or SUPORT card or on a\r\n   GRID card as permanent single-point constraints.\r\n\r\n2. If the alternate form is used, all of the grid (or scalar) points ID1\r\n   through ID2 are assumed.\r\n\r\n3. ASET or OMIT data are not recommended for use in heat transfer analysis\r\n   with radiation effects.\r\n=PAGE=\r\nOMITAX - Axisymmetric Omitted Coordinate\r\n\r\nDescription\r\n\r\nDefines coordinates to be omitted from a model containing CCONEAX, CTRAPAX, or\r\nCTRIAAX elements through matrix partitioning. Used to reduce the number of\r\nindependent degrees of freedom.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nOMITAX    RID    HID     C     RID    HID     C                      \r\nĴ\r\nOMITAX     2      6      3      4      7      1                      \r\n\r\n\r\nField       Contents\r\n\r\nRID         Ring identification number (Integer > 0).\r\n\r\nHID         Harmonic identification number (Integer > 0).\r\n\r\nC           Component number (any unique combination of the digits 1 - 6).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. Up to 12 coordinates may be omitted via this card.\r\n\r\n3. Coordinates appearing on OMITAX cards may not appear on MPCAX, SUPAX, or\r\n   SPCAX cards.\r\n\r\n4. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nPAERO1 - Aerodynamic Panel Property\r\n\r\nDescription\r\n\r\nGives associated bodies for the panels in the Doublet-Lattice method.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPAERO1    PID    B1     B2     B3     B4     B5     B6               \r\nĴ\r\nPAERO1     1     3                                                   \r\n\r\n\r\nField       Contents\r\n\r\nPID         Property identification number (referenced by CAERO1) (Integer >\r\n            0).\r\n\r\nB1,...,B6   ID of associated body (Integer >= 0 or blank).\r\n\r\nRemarks\r\n\r\n1. The associated body must be in the same aerodynamic group (IGID).\r\n\r\n2. If there are no bodies, the card is still required.\r\n\r\n3. The Bi numbers above must appear on a PAERO2 card to define these bodies\r\n   completely.\r\n=PAGE=\r\nPAERO2 - Aerodynamic Body Properties\r\n\r\nDescription\r\n\r\nDefines the cross-section properties of aerodynamic bodies.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPAERO2    PID  ORIENT  WIDTH   AR     LRSB   LRIB   LTH1   LTH2 ABC  \r\nĴ\r\nPAERO2     2      Z     6.0    1.0    22      91    100         abc  \r\n\r\nĿ\r\n+BC       THI1   THN1   THI2   THN2   THI3   THN3  -etc.-            \r\nĴ\r\n+bc        1      3                                                  \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nORIENT    Orientation flag Z, Y, or ZY. Type of motion allowed for bodies\r\n          (BCD). Refers to the aerodynamic coordinate system y direction of\r\n          ACSID (see AERO data card).\r\n\r\nWIDTH     Reference half-width of body (Real > 0.).\r\n\r\nAR        Aspect ratio (height/width) (Real > 0.).\r\n\r\nLRSB      ID of an AEFACT data card containing a list of slender body\r\n          half-widths. If blank, the value of WIDTH will be used (Integer >=\r\n          0 or blank).\r\n\r\nLRIB      ID of an AEFACT data card containing a list of interference body\r\n          half-widths. If blank, the value of WIDTH will be used (Integer >=\r\n          0 or blank).\r\n\r\nLTH1, LTH2ID of AEFACT data cards for defining theta arrays for interference\r\n          calculations (Integer >= 0 or blank).\r\n\r\nTHIi, THNiThe first and last interference element of a body to use the i\r\n          array (Integer >= 0).\r\n\r\nRemarks\r\n\r\n1.The EID of all CAERO2 elements in any IGID group must be ordered, so that\r\n  their corresponding ORIENT values appear in the order Z, ZY, Y.\r\n\r\n2.The half-widths (given on AEFACT data cards referenced in field 6 and 7)\r\n  are specified at division points. The number of entries on an AEFACT data\r\n  card used to specify half-widths must be one greater than the number of\r\n  elements.\r\n\r\n3.The half-width at the first point (that is, the nose) on a slender body is\r\n  usually 0.; thus it is recommended (but not required) that the LRSB data is\r\n  supplied with a zero first entry.\r\n\r\n4.THIi and THNi are interference element locations on a body. The first\r\n  element is one for each body.\r\n\r\n5.A body is represented by a slender body surrounded by an interference\r\n  body.The slender body creates the downwash due to the motion of the body,\r\n  while the interference body represents the effects upon panels and other\r\n  bodies. The cross-section is elliptical.\r\n\r\n                            z\r\n                             Ŀ\r\n             Slender Body     Ĵ x\r\n       (six elements shown)   \r\n                                       Division Points\r\n                              Ŀ\r\n        Interference Body                           x\r\n     (three elements shown)   \r\n\r\n\r\n                                  z\r\n                                  \r\n                                  Ĵ half width\r\n                                  \r\n                                  \r\n                            3 O    O 2       .\r\n                                          .\r\n         End View       4 O          . O 1         Theta array, receiving\r\n    (looking forward)              .                points for interference\r\n                                   y     body elements\r\n\r\n                        5 O             O 8\r\n\r\n                            6 O     O 7\r\n\r\n                         Figure 2.4-43. PAERO2 diagram\r\n=PAGE=\r\nPAERO3 - Aerodynamic Mach Box Surface Properties\r\n\r\nDescription\r\n\r\nDefines the number of Mach boxes in the flow direction and the location of\r\ncranks and control surfaces of a Mach box lifting surface.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPAERO3    PID   NBOX   NCTRL          X5     Y5     X6     Y6   ABC  \r\nĴ\r\nPAERO3   2001    15      2            0.     65.                abc  \r\n\r\nĿ\r\n+BC       X7     Y7     X8     Y8     X9     Y9     X10    Y10  DEF  \r\nĴ\r\n+bc       78.    65.    108.   65.    82.   97.5    112.   97.5 def  \r\n\r\nĿ\r\n+EF       X11    Y11    X12    Y12                                   \r\nĴ\r\n+ef       86.    130.   116.   130.                                  \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nNBOX      The number of Mach boxes in flow direction (0 < Integer < 50).\r\n\r\nNCTRL     Number of control surfaces (Integer 0, 1, or 2).\r\n\r\nX5-Y12    Location of points 5 through 12, which are in the element\r\n          coordinate system, to define the cranks and control surface\r\n          geometry (Real).\r\n\r\nRemarks\r\n\r\n1.The geometry is shown in Figure 2.4-1 at the CAERO3 Bulk Data card\r\n  description.\r\n\r\n2.If Y5 <= 0.0, there is no leading edge crank. Also, if Y6 <= 0.0, there is\r\n  no trailing edge crank.\r\n\r\n3.If NCTRL = 0, no continuation cards are needed. If NCTRL = 1 or 2, then\r\n  NCTRL continuation cards are needed.\r\n\r\n4.The relations Y7 >= Y8, Y9 >= Y10, and Y11 >= Y12 must hold.\r\n=PAGE=\r\nPAERO4 - Aerodynamic Supersonic Strip Properties\r\n\r\nDescription\r\n\r\nGives properties of each strip element for the strip theory.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPAERO4    PID    CLA    LCLA   CIRC  LCIRC  DOC1   CAOC1 GAPOC1 ABC  \r\nĴ\r\nPAERO4   6001     1     501     0      0     0.0    0.0   0.0   abc  \r\n\r\nĿ\r\n+BC       DOC2  CAOC2 GAPOC2  DOC3   CAOC3 GAPOC3 . . . .-etc.- . .  \r\nĴ\r\n+bc       0.50  0.25   0.02   0.53   0.24   0.0                      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nCLA       Parameter to select Prandtl-Glauert correction (Integer -1, 0, 1,\r\n          or blank).\r\n\r\n          -1         compressibility correction made to lift curve slope\r\n                     data for a reference Mach number.\r\n\r\n          0 or blank no correction and no list needed.\r\n\r\n          +1         no correction and lift curve slope provided by a list\r\n                     as a function of strip location and Mach number.\r\n\r\nLCLA      ID number of AEFACT data card which lists the lift curve slope on\r\n          all strips for each Mach number on MKAEROi data card (Integer = 0\r\n          if CLA = 0, > 0 if CLA not equal 0) (see Remark 7(b) below).\r\n\r\nCIRC      Parameter to select Theodorsen's function, C(k), or the number of\r\n          exponential coefficients used to approximate C(k) (Integer 0, 1,\r\n          2, 3, or blank. Must be zero if CLA not equal 0.)\r\n\r\n          0 or blank Theodorsen function.\r\n\r\n          1,2,3      approximate function with b0, b1, 1, ... bn, n , n =\r\n                     1,2,3.\r\n\r\nLCIRC     ID number of AEFACT data card which lists the b,  values for each\r\n          Mach number on the MKAEROi data card (Integer = 0 if CIRC = 0, > 0\r\n          if CIRC not equal 0) (see Remarks 7(c), 7(d), and 7(e) below;\r\n          variable b's and 's for each m).\r\n\r\nDOCi      d/c = distance of control surface hinge aft of quarter-chord\r\n          divided by the strip chord (Real >= 0.0).\r\n\r\nCAOCi     ca/c = control surface chord divided by strip chord (Real >= 0.0).\r\n\r\nGAPOCi    g/c = control surface gap divided by strip chord (Real >= 0.0).\r\n\r\nRemarks\r\n\r\n1.This card is required for strip theory with three entries (DOCi, CAOCi,\r\n  GAPOCi) per strip.\r\n\r\n2.If CLA = -1, lift curve slope data at one Mach number are needed on the\r\n  AEFACT data card.\r\n\r\n3.If CAOCi = 0.0, there is no control surface.\r\n\r\n4.If GAPOCi = 0.0, there is slot flow.\r\n\r\n5.If GAPOCi < 0.01, then 0.01 is used.\r\n\r\n6.Imbedded blank fields are not allowed.\r\n\r\n7.The following table lists the lift curve slope or lag function selection\r\n  and the AEFACT data card formats used for strip theory.\r\n\r\nĿ\r\n                              Parameter                                   \r\nTheodorsen       Data         Combinations                          Card  \r\nFunction         Type         Ĵ       Number of   Format\r\n                 Input        CLALCLACIRCLCIRC       Words       Index \r\nĴ\r\nExact     Lift Curve  c   =2  0   0  0    0   No AEFACT card required  \r\n            Slope      l                                               \r\n                        i                                             \r\n                                                                       \r\n          c   input, uses     -1  ID  0    0    (NSTRIP+1)         (a) \r\n           l   Prandtl-Glauert                                         \r\n            i  Correction                                             \r\n                                                                       \r\n          c  input,for all m's 1  ID  0    0    (NSTRIP+1)*NMACH   (b) \r\n           l   on MKAERO card                                          \r\n            i                                                         \r\n                                                                       \r\nApproxi-   Coefficients -      0   0  1    ID   4*NMACH            (c) \r\nmate        b0i,b1i, 1i, etc.                                         \r\n                               0   0  2    ID   6*NMACH            (d) \r\n                                                                       \r\n                               0   0  3    ID   8*NMACH            (e) \r\n\r\n\r\n  Card Format\r\n\r\n  (a)  AEFACT, ID, m , c   , c   ,...,c\r\n                    1   l     l        l\r\n                                      \r\n                          1     2        NSTRIP\r\n\r\n  (b)  AEFACT, ID, m ,c    ,c    ,...,c         ,m ,c    ,c    ,...,c         ,\r\n                    1  l     l         l          2  l     l         l\r\n                                                                 \r\n                         11    21        NSTRIP1       12    22        NSTRIP2\r\n       etc., for all m on MKAEROi data card.\r\n\r\n  (c)  AEFACT, ID, m , b  , b  ,   , m , b  , b  ,   , m , etc.\r\n                    1   01   11   11   2   02   12   12   3\r\n\r\n  (d)  AEFACT, ID, m , b  , b  ,   , b  ,   ,m , etc.\r\n                    1   01   11   11   21   21  2\r\n\r\n  (e)  AEFACT, ID, m , b  , b  ,   , b  ,   , b  ,   , m , etc.\r\n                    1   01   11   11   21   21   31   31   2\r\n=PAGE=\r\nPAERO5 - Aerodynamic Strip Element Properties\r\n\r\nDescription\r\n\r\nGives properties of each strip element for piston theory.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPAERO5    PID  NALPHA LALPHA   NXIS   NXIS  NTAUS  LTAUS        ABC  \r\nĴ\r\nPAERO5   7001     1     702     1     701    1      700         abc  \r\n\r\nĿ\r\n+BC      CAOC1  CAOC2  CAOC3  CAOC4  CAOC5 -etc.- . . . . . . .      \r\nĴ\r\n+bc       0.0   0.0    5.25  3.99375 0.0                             \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nNALPHA    Number of angles of attack () input per Mach number (m, of\r\n          MKAEROi data card) (Integer > 0) (see Remark 3 below).\r\n\r\nLALPHA    ID number of the required AEFACT data card which lists the 's\r\n          (Integer > 0).\r\n\r\nNXIS      Number of dimensionless chordwise coordinates () used to define\r\n          the geometry of the strips (Integer >= 0 or blank) (see Remark 4\r\n          below).\r\n\r\nLXIS      ID number of the AEFACT data card which lists the `s (Integer = 0\r\n          if Ca = 0, NTHICK > 0, Integer > 0 if Ca > 0, NTHICK = 0) where Ca\r\n          is control surface chord length.\r\n\r\nNTAUS     Number of thickness ratios () used to define the geometry of the\r\n          strips (Integer >= 0 or blank).\r\n\r\nLTAUS     ID number of the AEFACT data card which lists the `s (Integer = 0\r\n          or blank if NTAUS = 0, Integer > 0 if NTAUS > 0).\r\n\r\nCAOCi     Ratio of chord of control surface to chord of strip (Ca/c) for\r\n          each strip (Real >= 0).\r\n\r\nRemarks\r\n\r\n1.A PAERO5 card is used for piston theory strip property definition and is\r\n  referenced in the PID column of a CAERO5 card.\r\n\r\n2.The continuation card is required. The number of entries must equal the\r\n  number of strips (from CAERO5). Imbedded blank fields are forbidden, so use\r\n  0.0 if there is no control surface.\r\n\r\n3.The following table lists the formats of the AEFACT data cards for angle of\r\n  attack distribution.\r\n\r\nĿ\r\n                                    LALPHA \r\n      TYPE OF DATA         NALPHA   FORMAT \r\nĴ\r\n  Same  for all strips      1       (a)   \r\n                                           \r\n  Variable                NSTRIP    (b)   \r\n\r\n\r\n              Number\r\n    Format   of Words\r\n\r\n     (a)    2*NMACH     AEFACT, ID, m ,  , m ,  , ...\r\n                                     1   1   2   2\r\n\r\n     (b)    (l+NSTRIP)  AEFACT, ID, m ,   ,   , ...,         , ...\r\n            *NMACH                   1   11   21        NSTRIP,l\r\n                         (repeat for all m's)\r\n\r\n4.The following table lists the formats of the AEFACT data cards for\r\n  thickness and other list data.\r\n\r\nĿ\r\n                                NTHICK        LXIS            LTAUS \r\n   TYPE OF INPUT DATA      CAOCiFORMAT NXIS  FORMAT  NTAUS   FORMAT \r\nĴ\r\n  Integrals are input                                               \r\n                                                 \r\n  Same for all strips,      0.    (c)    0      0      0        0   \r\n  no control surfaces                                               \r\n                                                                    \r\n  Same for all strips     .NE.0.  (d)    1     (e)     0        0   \r\n  with control surfaces                                             \r\n                                                                    \r\n  Separate hinge for      .NE.0.  (d) NSTRIP   (f)     0        0   \r\n  each strip with                                                   \r\n  control surfaces                                                  \r\n                                                                    \r\n  Thickness data are input                                          \r\n  Ĵ                                          \r\n  Same for all strips,      0.     0     1     (g)      1     (h)   \r\n  no control surfaces                                               \r\n                                                                    \r\n  Same for all strips     .NE.0.   0     1     (g)      1     (h)   \r\n  with control surfaces                                             \r\n                                                                    \r\n  Separate data for       .NE.0.   0  NSTRIP   (i)   NSTRIP   (j)   \r\n  each strip with                                                   \r\n  control surfaces                                                  \r\n\r\n\r\n              Number\r\n    Format   of Words\r\n\r\n     (c)        6            AEFACT, ID, I , I , I , I , I , I\r\n                                          1   2   3   4   5   6\r\n\r\n     (d)        12           AEFACT, ID, I , ..., I , J , ..., J\r\n                                          1        6   1        6\r\n\r\n     (e)        1            AEFACT, ID, \r\n                                          h\r\n\r\n     (f)      NSTRlP         AEFACT, ID,   ,   , ..., \r\n                                          h1   h2        h\r\n                                                          NSTRIP\r\n\r\n     (g)        2            AEFACT, ID,  , \r\n                                          m   h\r\n\r\n     (h)        3            AEFACT, ID,  ,  , \r\n                                          m   h   t\r\n\r\n     (i)     2*NSTRIP        AEFACT, ID,   ,   , ..., \r\n                                          m1   h1        h\r\n                                                          NSTRIP\r\n\r\n     (j)     3*NSTRIP        AEFACT, ID,   ,   ,   , ..., \r\n                                          m1   h1   t1        t\r\n                                                               NSTRIP\r\n\r\n    Note:   If there is no hinge, you may put   =   = 0.\r\n                                               h    h\r\n\r\nDimensions of symmetrical airfoil, internal integral calculation are shown in\r\nFigure 2.4-44.\r\n\r\n                                                \r\n                         g                        h\r\n                                               Hinge Line\r\n                                 .     .     . \r\n     Flow                  .                   .\r\n            .                  m               .   \r\n                   \r\n                 Ĵ                                     \r\n                   Ĵ                   \r\n                           m                                t\r\n                                                         \r\n                   Ĵ        \r\n                                 h                        \r\n                  =1Ĵ\r\n\r\n                         Figure 2.4-44. PAERO5 diagram\r\n=PAGE=\r\nPARAM - Parameter\r\n\r\nDescription\r\n\r\nSpecifies values for parameters used in DMAP sequences (including rigid\r\nformats).\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPARAM      N      V1     V2                                          \r\nĴ\r\nPARAM    IRES     1                                                  \r\n\r\n\r\nField     Contents\r\n\r\nN         Parameter name (one to eight alphanumeric characters, the first of\r\n          which must be alphabetic).\r\n\r\nV1, V2    Parameter value based on parameter type as follows:\r\n\r\nĿ\r\n       Type                       V1                  V2        \r\nĴ\r\n  Integer                     Integer           Blank           \r\n  Real, single-precision      Real              Blank           \r\n  BCD (alphanumeric)          BCD               Blank           \r\n  Real, double-precision      Double-precision  Blank           \r\n  Complex, single-precision   Real              Real            \r\n  Complex, double-precision   Double-precision  Double-precision\r\n\r\n\r\nRemarks\r\n\r\n1.Only parameters for which assigned values are allowed may be given values\r\n  via the PARAM card. Section 5 describes parameters as used in DMAP.\r\n\r\n2.The following is a list of parameters, arranged in alphabetical order.\r\n\r\nAPRESS - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). A positive integer value causes the\r\ngeneration of aerodynamic pressure loads. A negative integer value suppresses\r\nthe generation of these loads. The default value is -1.\r\n\r\nASETOUT - optional in all rigid formats. A positive integer value of this\r\nparameter causes the ASET (or HASET) output data block to be generated by the\r\nGP4 module. A negative integer value or 0 suppresses the generation of this\r\noutput data block. The default value is 0.\r\n\r\nATEMP - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). A positive integer value causes the\r\ngeneration of aerodynamic temperature loads. A negative value suppresses the\r\ngeneration of these loads. The default value is -1.\r\n\r\nAUTOSPC - optional in all rigid formats. Gives you the option of\r\nautomatically applying single-point constraints for the purpose of removing\r\npotential grid (and scalar) point singularities that have not been otherwise\r\nalready constrained out. The meanings of the various values for this parameter\r\nare as follows.\r\n\r\nAUTOSPC = 0\r\n\r\nThe AUTOSPC feature is not used. This is the default value.\r\n\r\nAUTOSPC = 1\r\n\r\nAll singularities except those that are:\r\n\r\n  removed via single-point constraints, or\r\n  removed via multipoint constraints, or\r\n  specified as independent degrees of freedom in multipoint\r\n  constraints or rigid elements, or\r\n  specified on SUPORT cards\r\n\r\nare removed by the automatic application of single-point constraints.\r\n\r\nA set of SPC1 cards is generated and printed for your information and\r\nconvenience, indicating the singularities that have been automatically removed\r\nas above. These SPC1 cards have the same SPC set ID as the current subcase (or\r\nan SPC set ID of 1 if the current subcase has no SPC set).\r\n\r\nAUTOSPC = 2\r\n\r\nThere are two possible cases.\r\n\r\nCase 1. There are no omitted degrees of freedom in the current subcase. This\r\ncase is handled in the same way as the AUTOSPC = 1 case. SPC1 cards are\r\ngenerated and printed as in the AUTOSPC = 1 case.\r\n\r\nCase 2. There are omitted degrees of freedom in the current subcase. This case\r\nis handled in the same way as the AUTOSPC = 1 case, but with one important\r\ndifference, as follows.\r\n\r\nAll singularities except those that are:\r\n\r\n  removed via single-point constraints, or\r\n  removed via multipoint constraints, or\r\n  specified as independent degrees of freedom in multipoint\r\n  constraints or rigid elements, or\r\n  specified on SUPORT cards\r\n\r\nare removed by the automatic application of single-point constraints, but only\r\nif the singularity is part of the o-set (omitted set).\r\n\r\nSPC1 cards are generated and printed as in the AUTOSPC = 1 case.\r\n\r\nAUTOSPC = -1\r\n\r\nThis case is handled in the same way as the AUTOSPC = 1 case, except that the\r\nSPC1 cards generated are both punched and printed.\r\n\r\nAUTOSPC = -2\r\n\r\nThis case is handled in the same way as the AUTOSPC = 2 case, except that the\r\nSPC1 cards generated are both punched and printed.\r\n\r\nAUTOSPC < -2 or > 2\r\n\r\nThese illegal values cause singularity processing to be skipped in the GP4\r\nmodule, the same as if the value were 0.\r\n\r\nBETA - optional in transient heat transfer analysis (HEAT rigid format 9).\r\nThe real value of this parameter is used as a factor in the integration\r\nalgorithm (see Section 8.4.2 of the Theoretical Manual). The default value is\r\n0.55.\r\n\r\nBETAD - optional in static analysis with differential stiffness and static\r\naerothermoelastic design/analysis of axial flow compressors (DISP rigid\r\nformats 4 and 16). The integer value of this parameter is the number of\r\niterations allowed for computing the load correction in the inner (load) loop\r\nbefore shifting to the outer (stiffness) loop, which adjusts the differential\r\nstiffness. The default value is 4 iterations.\r\n\r\nCOUPMASS - optional in all DISP and AERO rigid formats. A positive integer\r\nvalue of this parameter causes the generation of coupled mass matrices rather\r\nthan lumped mass matrices for all bar elements, rod elements, and plate\r\nelements that include bending stiffness. This option applies to both\r\nstructural and nonstructural mass for the following elements: BAR, CONROD,\r\nQUAD1, QUAD2, ROD, TRIA1, TRIA2 and TUBE. Since structural mass is not defined\r\nfor the following list of elements, the option applies only to the\r\nnonstructural mass: QDPLT, TRBSC and TRPLT. A negative value causes the\r\ngeneration of lumped mass matrices (translational components only) for all of\r\nthe above elements. (This is the default.) A zero value activates the\r\nfollowing parameters.\r\n\r\nCPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE, CPQDPLT, CPTRPLT, and\r\nCPTRBSC - optional in all DISP and AERO rigid formats. These parameters are\r\nactive only if COUPMASS = 0. A positive value causes the generation of coupled\r\nmass matrices for all elements of that particular type as shown by the\r\nfollowing table:\r\n\r\n  Parameter       Element Types\r\n\r\n  CPBAR      BAR\r\n  CPROD      ROD, CONROD\r\n  CPQUAD1       QUAD1\r\n  CPQUAD2       QUAD2\r\n  CPTRIA1       TRIA1\r\n  CPTRIA2       TRIA2\r\n  CPTUBE        TUBE\r\n  CPQDPLT       QDPLT\r\n  CPTRPLT       TRPLT\r\n  CPTRBSC       TRBSC\r\n\r\nA negative value (the default) for these parameters causes the generation of\r\nthe lumped mass matrices (translational components only) for these element\r\ntypes.\r\n\r\nCTYPE - required in rigid formats using the cyclic symmetry feature (DISP\r\nrigid formats 14 and 15 and AERO rigid format 9). The BCD value of this\r\nparameter defines the type of cyclic symmetry as follows:\r\n\r\n  (1) ROT - rotational symmetry\r\n  (2) DRL - dihedral symmetry, using right and left halves\r\n  (3) DSA - dihedral symmetry, using symmetric and antisymmetric components.\r\n\r\nCYCIO - optional in static analysis with cyclic symmetry (DISP rigid format\r\n14). The integer value of this parameter specifies the form of the input and\r\noutput data. A value of +1 is used to specify physical segment representation,\r\nand a value of -1 for cyclic transform representation. The default value is\r\n+1.\r\n\r\nCYCSEQ - optional in rigid formats using the cyclic symmetry feature (DISP\r\nrigid formats 14 and 15 and AERO rigid format 9). The integer value of this\r\nparameter specifies the procedure for sequencing the equations in the solution\r\nset. A value of +1 specifies that all cosine terms should be sequenced before\r\nall sine terms, and a value of -1 specifies alternating cosine and sine terms.\r\nThe default value is -1.\r\n\r\nEPSHT - optional in nonlinear static heat transfer analysis (HEAT rigid\r\nformat 3). The real value of this parameter is used to test the convergence of\r\nthe nonlinear heat transfer solution (see Section 8.4.1 of the Theoretical\r\nManual). The default value is 0.001.\r\n\r\nEPSIO - optional in static analysis with differential stiffness and static\r\naerothermoelastic design/analysis of axial flow compressors (DISP rigid\r\nformats 4 and 16). The real value of this parameter is used to test the\r\nconvergence of the iterated differential stiffness. The default value is\r\n10**(-5).\r\n\r\nFXCOOR, FYCOOR, and FZCOOR - optional in static aerothermoelastic\r\ndesign/analysis of axial flow compressors (DISP rigid format 16). The real\r\nvalues of these parameters are the fractions of the displacements used to\r\nredefine the blade geometry. The default values are:  FXCOOR = 1.0, FYCOOR =\r\n1.0 and FZCOOR = 1.0.\r\n\r\nG - optional in the direct formulation of all DISPLACEMENT dynamics problems\r\n(DISP rigid formats 7, 8 and 9). The real value of this parameter is used as a\r\nuniform structural damping coefficient in the direct formulation of dynamics\r\nproblems (see section 9.3.3 of the Theoretical Manual). Not recommended for\r\nuse in hydroelastic problems.\r\n\r\nGRDEQ - optional in static and normal modes analyses (DISP rigid formats 1,\r\n2, 3, 14, and 15). A positive integer value of this parameter selects the grid\r\npoint about which equilibrium will be checked for the Case Control output\r\nrequest, MPCFORCE. If the integer value is zero, the basic origin is used. The\r\ndefault value is -1.\r\n\r\nGRDPNT - optional in all DISP and AERO rigid formats. A positive integer\r\nvalue of this parameter causes the Grid Point Weight Generator to be executed.\r\nThe value of the integer indicates the grid point to be used as a reference\r\npoint. If the integer is zero (blank is not equivalent) or is not a defined\r\ngrid point, the reference point is taken as the origin of the basic coordinate\r\nsystem. All fluid related masses are ignored. Additional details for the Grid\r\nPoint Weight Generator are given in Section 5.5 of the Theoretical Manual. The\r\nfollowing weight and balance information is automatically printed following\r\nthe execution of the Grid Point Weight Generator.\r\n\r\n  (1) Reference point.\r\n  (2) Rigid body mass matrix [MO] relative to the reference point in the\r\nbasic coordinate system.\r\n  (3) Transformation matrix [S] from basic coordinate system to principal\r\nmass axes.\r\n  (4) Principal masses (mass) and associated centers of gravity (X-C.G.,\r\nY-C.G., Z-C.G.).\r\n  (5) Inertia matrix I(S) about the center of gravity relative to the\r\nprincipal mass axes.\r\n  (6) Inertia matrix I(Q) about the center of gravity relative to the\r\nprincipal inertia axes.\r\n  (7) Transformation matrix [Q] between S-axes and Q-axes.\r\n\r\nGUSTAERO - optional in AERO rigid formats 10 and 11. An integer value of +1\r\ncauses gust loads to be computed. The default value is -1 for no gust loads.\r\n\r\nIFTM - optional in aeroelastic response (AERO rigid format 11). The integer\r\nvalue of this parameter selects the method for the integration of the Inverse\r\nFourier Transform. An integer value of 0 specifies a rectangular fit; 1\r\nspecifies a trapezoidal fit; and 2 specifies a cubic spline fit to obtain\r\nsolutions versus time for which aerodynamic forces are functions of frequency.\r\nThe default value is 0.\r\n\r\nINTERACT - optional in DISP static analysis (DISP rigid format 1). This\r\nparameter, like the SYS21 parameter, is of relevance only when your primary\r\npurpose is to make interactive restart runs. In such a case, the integer value\r\nof this parameter must be set to -1 (via a PARAM bulk data card) in both the\r\nbatch checkpoint run (that precedes the interactive restart run) as well as in\r\nthe interactive restart run. If not so specified via a PARAM bulk data card,\r\nthe COMPOFF and COMPON instructions in the DMAP sequence that use this\r\nparameter assume a value of 0 for this parameter (see Section 5.7).\r\n\r\nIPRTCI, IPRTCL, and IPRTCF - optional in static aerothermoelastic \r\ndesign/analysis of axial flow compressors (DISP rigid format 16). If IPRTi is \r\na positive integer, then intermediate print will be generated in the ALG \r\nmodule based on the print option in the ALGDB data table. If IPRTi = 0 (the \r\ndefault), no intermediate print will be generated. \r\n\r\nIREF - optional in blade cyclic modal flutter analysis (AERO rigid format 9).\r\nA positive integer value of this parameter defines the reference streamline\r\nnumber. IREF must be equal to an SLN on a STREAML2 bulk data card. The default\r\nvalue of -1 represents the stream surface at the blade tip. If IREF does not\r\ncorrespond to an SLN, then the default will be taken.\r\n\r\nIRES - optional in all DISP and HEAT statics problems (DISP rigid formats 1,\r\n2, 4, 5, 6, 14, and 16 and HEAT rigid formats 1 and 3). A positive integer\r\nvalue of this parameter causes the printing of the residual vectors following\r\neach execution of the SSG3 (or SSGHT) module.\r\n\r\nISTART - optional in direct and modal transient response (DISP rigid formats 9\r\nand 12). A positive value of this parameter causes the second (or alternate)\r\nstarting method to be used (see Section 11.4 of the Theoretical Manual). The\r\nalternate starting method is recommended when initial accelerations are\r\nsignificant and when the mass matrix is non-singular. The default value is -1\r\nand causes the first starting method to be used.\r\n\r\nKDAMP - optional in all AERO rigid formats. An integer value of +1 causes\r\nmodal damping terms to be put into the complex stiffness matrix for structural\r\ndamping (+1 recommended for K and KE methods). The default value is -1.\r\n\r\nKGGIN - optional in blade cyclic modal flutter analysis (AERO rigid format\r\n9). A positive integer value of this parameter indicates that your stiffness\r\nmatrix is to be read from an external file (GINO file INPT) via the INPUTT1\r\nmodule in the rigid format. The default value is -1 when not needed.\r\n\r\nKINDEX - required in normal modes analysis with cyclic symmetry (DISP rigid\r\nformat 15) and in blade cyclic modal flutter analysis (AERO rigid format 9).\r\nThe integer value of this parameter specifies a single value of the harmonic\r\nindex. Higher KINDEX no. will result in getting higher mode.\r\n\r\nKMAX - optional in static analysis with cyclic symmetry (DISP rigid format\r\n14). The integer value of this parameter specifies the maximum value of the\r\nharmonic index. The default value is ALL which implies NSEGS/2 for NSEGS even\r\nand (NSEGS - 1)/2 for NSEGS odd.\r\n\r\nKTOUT - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). A positive integer value of this parameter\r\nindicates that you want to save the total stiffness matrix on an external file\r\n(GINO file INPT) via the OUTPUT1 module in the rigid format. The default value\r\nis -1 when not needed.\r\n\r\nLFREQ and HFREQ - required in all modal formulations of DISP and AERO\r\ndynamics problems (DISP rigid formats 10, 11 and 12 and AERO rigid formats 9,\r\n10 and 11), unless LMODES is used. The real values of these parameters give\r\nthe cyclic frequency range (LFREQ is the lower limit and HFREQ is the upper\r\nlimit) of the modes to be used in the modal formulation. To use this option,\r\nparameter LMODES must be set to 0.\r\n\r\nLMODES - required in all modal formulations of DISP and AERO dynamics\r\nproblems (DISP rigid formats 10, 11 and 12 and AERO rigid formats 9, 10 and\r\n11), unless parameters LFREQ and HFREQ are used. The integer value of this\r\nparameter is the number of lowest modes to be used in the modal formulation.\r\n\r\nLOCATION and INPTUNIT - required in static aerothermoelastic design/analysis\r\nof axial flow compressors (DISP rigid format 16) when using the KTOUT\r\nparameter, and in blade cyclic modal flutter analysis (AERO rigid format 9)\r\nwhen using the KGGIN parameter. See Section 5.5 for a description of these\r\nparameters which are required by the INPUTT1 and OUTPUT1 modules. The default\r\nvalues for LOCATION and INPTUNIT are -1 and 0, respectively.\r\n\r\nMACH - optional in AERO rigid formats 10 and 11. The real value of this\r\nparameter selects the closest Mach numbers to be used to compute aerodynamic\r\nmatrices. The default value is 0.0.\r\n\r\nMAXIT - optional in nonlinear static heat transfer analysis (HEAT rigid\r\nformat 3). The integer value of this parameter limits the maximum number of\r\niterations. The default value is 4 iterations.\r\n\r\nMAXMACH - optional in blade cyclic modal flutter analysis (AERO rigid format\r\n9). The real value of this parameter is the maximum Mach number below which\r\nthe subsonic unsteady cascade theory is valid. The default value is 0.80.\r\n\r\nMINMACH - optional in blade cyclic modal flutter analysis (AERO rigid format\r\n9). The real value of this parameter is the minimum Mach number above which\r\nthe supersonic unsteady cascade theory is valid. The default value is 1.01.\r\n\r\nMODACC - optional in the modal formulation of frequency response (DISP rigid\r\nformat 11) and transient response (DISP rigid format 12) problems. A positive\r\ninteger value of this parameter causes the Dynamic Data Recovery module to use\r\nthe mode acceleration method. Not recommended for use in hydroelastic\r\nproblems. DMAP module GKAD sets the V1 value of PARAM MODACC to +1 for rigid\r\nformat 12, and to -1 for rigid format 11.\r\n\r\nMTYPE - optional in blade cyclic modal flutter analysis (AERO rigid format\r\n9). The BCD value of this parameter controls which components of the cyclic\r\nmodes are to be used in the modal formulation. MTYPE = SINE uses only sine\r\ncomponents and MTYPE = COSINE uses only cosine components. The default value\r\nis COSINE.\r\n\r\nNINPTS - optional in DISP static analysis (DISP rigid format 1). A positive\r\ninteger value of this parameter specifies the number of closest independent\r\npoints to be used in the interpolation for computing stresses or\r\nstrains/curvatures at grid points (only for TRIA1, TRIA2, QUAD1 and QUAD2\r\nelements). A negative integer value or 0 specifies that all independent points\r\nare to be used in the interpolation. The default value is 0.\r\n\r\nNLOAD - optional in static analysis with cyclic symmetry (DISP rigid format\r\n14). The integer value of this parameter is the number of static loading\r\nconditions. The default value is 1.\r\n\r\nNODJE - optional in all AERO rigid formats. A positive integer of this\r\nparameter indicates that user-supplied downwash matrices due to extra points\r\nare to be read from an external file via the INPUTT2 module in the rigid\r\nformat. The default value is -1 when not needed.\r\n\r\nNSEGS - required in rigid formats using the cyclic symmetry feature (DISP\r\nrigid formats 14 and 15 and AERO rigid format 9). The integer value of this\r\nparameter is the number of identical segments in the structural model.\r\n\r\nNT - optional in static analysis with differential stiffness and static\r\naerothermoelastic design/analysis of axial flow compressors (DISP rigid\r\nformats 4 and 16). The integer value of this parameter limits the cumulative\r\nnumber of iterations in both loops. The default value is 10 iterations.\r\n\r\nOFFSET - a user warning message will be printed if the offset length of a BAR\r\nelement exceeds 15 percent of the bar length. This default value of 15 percent\r\ncan be changed by a PARAM OFFSET card.\r\n\r\nOPT - optional in static and normal modes analyses (DISP rigid formats 1, 2,\r\n3, 14, and 15). A positive integer value of this parameter causes both\r\nequilibrium and multipoint constraint forces to be calculated for the Case\r\nControl output request, MPCFORCE. A negative integer value of this parameter\r\ncauses only the equilibrium force balance to be calculated for the output\r\nrequest. The default value is 0 which causes only the multipoint constraint\r\nforces to be calculated for the output request.\r\n\r\nP1, P2, and P3 - required in AERO rigid formats 10 and 11 when using NODJE\r\nparameter. See Section 5.5 for a description of these parameters which are\r\nrequired by the INPUTT2 module. The default values for P1, P2 and P3 are 0, 11\r\nand XXXXXXXX, respectively.\r\n\r\nPGEOM - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). The integer value of this parameter\r\nspecifies the punching of various bulk data cards. PGEOM = 1 causes the\r\npunching of GRID bulk data cards. PGEOM = 2 causes the punching of GRID,\r\nCTRIA2 and PTRIA2 bulk data cards. PGEOM = 3 causes the punching of GRID cards\r\nand the modified ALGDB table on DTI cards. The default value of -1 suppresses\r\nthe punching of any of these cards.\r\n\r\nPOSITION, UNITNUM, and USRLABEL - required in AERO rigid format 9 when using\r\nthe NODJE parameter. See Section 5.5 for a description of these parameters\r\nwhich are required by the INPUTT2 module. The default values for POSITION,\r\nUNITNUM and USRLABEL are -1, 11 and TAPEID, respectively.\r\n\r\nPRINT - optional in modal flutter analyses (AERO rigid formats 9 and 10). The\r\nBCD value, NO, of this parameter suppresses the automatic printing of the\r\nflutter summary for the K method. The default value is YESB in AERO rigid\r\nformat 9 and YES in AERO rigid format 10.\r\n\r\nQ - required in aeroelastic response (AERO rigid format 11). The real value\r\nof this parameter defines the dynamic pressure.\r\n\r\nRADLIN - optional in transient heat transfer analysis (HEAT rigid format 9).\r\nA positive integer value of this parameter causes some of the radiation\r\neffects to be linearized (see Equation 2, Section 8.4.2 of the Theoretical\r\nManual). The default value is -1.\r\n\r\nSIGMA - optional in nonlinear static (HEAT rigid format 3) and transient\r\n(HEAT rigid format 9) heat transfer analyses. The real value of this parameter\r\nis the Stefan-Boltzman constant. The default value is 0.0.\r\n\r\nSIGN - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). The real value of this parameter controls\r\nthe type of run being performed. SIGN = 1.0 specifies a standard analysis type\r\nrun. SIGN = -1.0 specifies a design type run. The default value is 1.0.\r\n\r\nSTRAIN - optional in DISP static analysis (DISP rigid format 1). This\r\nparameter controls the transformation of element strains/curvatures to the\r\nmaterial coordinate system (only for TRIA1, TRIA2, QUAD1 and QUAD2 elements).\r\nIf it is a positive integer, the strains/curvatures for these elements are\r\ntransformed to the material coordinate system. If it is zero,\r\nstrains/curvatures at the connected grid points are also computed in addition\r\nto the element strains/curvatures in the material coordinate system. A\r\nnegative integer value results in no transformation of the strains/curvatures.\r\nThe default value is -1.\r\n\r\nSTREAML - optional in static aerothermoelastic design/analysis of axial flow\r\ncompressors (DISP rigid format 16). The integer value of this parameter\r\nspecifies the punching of various bulk data cards. STREAML = 1 causes the\r\npunching of STREAML1 bulk data cards. STREAML = 2 causes the punching of\r\nSTREAML2 bulk data cards. STREAML = 3 causes both STREAML1 and STREAML2 cards\r\nto be punched. The default value of -1 suppresses the punching of any of these\r\ncards.\r\n\r\nSTRESS - optional in DISP static analysis (DISP rigid format 1). This\r\nparameter controls the transformation of element stresses to the material\r\ncoordinate system (only for TRIA1, TRIA2, QUAD1 and QUAD2 elements). If it is\r\na positive integer, the stresses for these elements are transformed to the\r\nmaterial coordinate system. If it is zero, stresses at the connected grid\r\npoints are also computed in addition to the element stresses in the material\r\ncoordinate system. A negative integer value results in no transformation of\r\nthe stresses. The default value is -1.\r\n\r\nSURFACE - optional in all DISP and AERO rigid formats. The computations of\r\nthe external surface areas for the two-dimensional and three-dimensional\r\nelements are activated by this parameter when they are generated in the EMG\r\nmodule. The results are multiplied by the real value of this parameter. See\r\nthe VOLUME parameter below for the case where the surface areas are to be\r\nsaved on an output file. The surface areas of the three-dimensional elements\r\nare defined as follows.\r\n\r\n  SURFACE AREA NO.                CORNER GRID POINTS USED\r\n\r\n  Brick (8 or more grid points):\r\n  1                               1, 2, 3, 4\r\n  2                               1, 2, 6, 5\r\n  3                               2, 3, 7, 6\r\n  4                               3, 4, 8, 7\r\n  5                               4, 1, 5, 8\r\n  6                               5, 6, 7, 8\r\n\r\n  Wedge (6 grid points):\r\n  1                               1, 2, 3\r\n  2                               1, 2, 5, 4\r\n  3                               2, 3, 6, 5\r\n  4                               3, 1, 4, 6\r\n  5                               4, 5, 6\r\n\r\n  Tetrahedron (4 grid points):\r\n  1                               1, 2, 3\r\n  2                               1, 2, 4\r\n  3                               2, 3, 4\r\n  4                               3, 1, 4\r\n\r\nSYS21 - optional in DISP static analysis (DISP rigid format 1). This\r\nparameter, like the INTERACT parameter, is of relevance only when your primary\r\npurpose is to make interactive restart runs. In such a case, the integer value\r\nof this parameter must be set to -1 (via a PARAM bulk data card) in the\r\ninteractive restart run (that follows a batch checkpoint run). If not so\r\nspecified via a PARAM bulk data card, the COMPOFF and COMPON instructions in\r\nthe DMAP sequence that use this parameter assume a value of 0 for this\r\nparameter (see Section 5.7).\r\n\r\nTABS - optional in nonlinear static (HEAT rigid format 3) and transient (HEAT\r\nrigid format 9) heat transfer analyses. The real value of this parameter is\r\nthe absolute reference temperature. The default value is 0.0.\r\n\r\nVOLUME - optional in all DISP and AERO rigid formats. The volume\r\ncomputations for the two-dimensional and three-dimensional elements are\r\nactivated by this parameter when they are generated in the EMG module. The\r\nresults are multiplied by the real value of this parameter. If the 7th output\r\ndata block of the EMG module is specified (via DMAP ALTER), the element IDs,\r\nvolumes, surface areas (see the SURFACE parameter above), SIL, and grid point\r\ncoordinates are saved in the data block, a GINO-written file. If the 7th\r\noutput data block is one of the INPi (i=1,2,3,...,9,T) files, the same element\r\ndata is saved on a FORTRAN (binary)-written file. The following table\r\nsummarizes the data being saved.\r\n\r\n  RECORD  WORDS                  CONTENTS\r\n\r\n  0       1,2                    Header record, begins with GINO BCD name\r\n          3-34                   Title, BCD\r\n          35-66                  Sub-title, BCD\r\n          67-98                  Label, BCD\r\n          99-101                 Date, BCD\r\n\r\n  1       1,2                    Element name of the first element, BCD\r\n          3                      Element ID, integer\r\n          4                      Volume (multiplied by scale factor n), or zero,\r\n                                 real\r\n          5                      (No. of surfaces)*100 + (No. of grid points),\r\n                                 integer\r\n          6                      Surface area of first surface, real\r\n          :\r\n          5+N                    Surface area of N-th surface, real\r\n          5+N+1                  SIL of the first grid point, integer\r\n          5+N+2,3,4              x,y,z coordinates of the first grid point, real\r\n          :                      Repeat last 4 words for other grid points\r\n\r\n  2                              A record similar to record 1 for the second \r\n                                 element\r\n  :                              :\r\n  LAST                           Last record (for the last element).\r\n\r\n  The trailer of the output data block has the following information:\r\n  Word 1 = LAST (No. of records written, header excluded),\r\n  Words 2 through 6 contain no useful information.\r\n\r\nVREF - optional in modal flutter analyses (AERO rigid formats 9 and 10).\r\nVelocities are divided by the real value of this parameter to convert units or\r\nto compute flutter indices. The default value is 1.0.\r\n\r\nW3 and W4 - optional in the direct formulation of DISP transient response\r\nproblems (DISP rigid format 9). The real values (radians/unit time) of these\r\nparameters are used as pivotal frequencies for uniform structural damping and\r\nelement structural damping, respectively (see Section 9.3.3 of the Theoretical\r\nManual). Parameter W3 is required if uniform structural damping is desired.\r\nParameter W4 is required if structural damping is desired for any of the\r\nstructural elements. Parameter W3 should not be used for hydroelastic\r\nproblems.\r\n\r\nWTMASS - optional in all DISP and AERO rigid formats. The terms of the\r\nstructural mass matrix are multiplied by the real value of this parameter when\r\nthey are generated in the EMA module. Not recommended for use in hydroelastic\r\nproblems.\r\n\r\nExample\r\n\r\nSet double precision variable ABC to 1.23D+4 and add 5.6D-1 to it in the DMAP\r\nmodule PARAMD. Result in DEF.\r\n\r\nIn executive control section,\r\n\r\n  ALTER    n $\r\n  PARAMD   //*ADD*/V,N,DEF/V,Y,ABC/5.6D-1  $\r\n  ENDALTER   $\r\n\r\nIn bulk data section,\r\n\r\n  PARAM, ABC  1.23D+4\r\n=PAGE=\r\nPBAR - Simple Beam Property\r\n\r\nDescription\r\n\r\nDefines the properties of a simple beam (bar) which is used to create bar\r\nelements via the CBAR card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPBAR      PID    MID     A      I1     I2     J     NSM         abc  \r\nĴ\r\nPBAR       39     6     2.9           5.97                      123  \r\n\r\nĿ\r\n+bc        C1     C2     D1     D2     E1     E2     F1     F2  def  \r\nĴ\r\n+23                     2.0    4.0                                   \r\n\r\nĿ\r\n+ef        K1     K2    I12                                          \r\nĴ\r\n                                                                     \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nA         Area of bar cross-section (Real).\r\n\r\nI1, I2, I12Area moments of inertia (Real, I1I2  >=  I212).\r\n\r\nJ         Torsional constant (Real).\r\n\r\nNSM       Nonstructural mass per unit length (Real).\r\n\r\nK1, K2    Area factor for shear (Real).\r\n\r\nCi, Di, Ei, Fi  Stress recovery coefficients (Real).\r\n\r\nRemarks\r\n\r\n1.For structural problems, PBAR cards may only reference MAT1 material cards.\r\n\r\n2.See Section 1.3.2 for a discussion of bar element geometry.\r\n\r\n3.For heat transfer problems, PBAR cards may only reference MAT4 or MAT5\r\n  material cards.\r\n\r\n4.The quantities K1 and K2 are expressed as the relative amounts (0.0 to 1.0)\r\n  of the total cross-sectional area contributing to the transverse shear\r\n  stiffnesses (KAG) in the direction of the two principal axes. These\r\n  quantities are ignored if I12 is non-zero. Defaults for K1 and K2 are: K1 =\r\n  (12*E*I1)/(L*L*L); K2 = (12*EII2)/(L*L*L).\r\n=PAGE=\r\nPCOMP - Layered Composite Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of an n-ply laminated composite material.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPCOMP     PID    ZOC    NSM   SBOND    FT                 LOPT  abc  \r\nĴ\r\nPCOMP     100    -0.5   1.5    5.+3   HOFF               SYMMEM ABC  \r\n\r\nĿ\r\n+bc      MID1    T1     TH1   SOUT1  MID2    T2     TH2   SOUT2 def  \r\nĴ\r\n+BC      150     0.05   90.   YES                  -45.         DEF  \r\n\r\nĿ\r\n+ef      MID3    T3     TH3   SOUT3            ..-etc.-.                \r\nĴ\r\n+EF                     45.0                   .........                \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (1,000,000 > Integer > 0).\r\n\r\nZOC       Offset of the element reference plane (element bottom surface)\r\n          from the plane of grid points (Real or blank; see Guidelines below).\r\n\r\nNSM       Non-structural mass per unit area (Real).\r\n\r\nSBOND     Allowable shear stress of the bonding material. (Real > 0.0 or\r\n          blank) Required if failure theory is used. (See Guidelines.)\r\n\r\nFT        Failure theory, one of the strings HILL, HOFF, TSAI,\r\n          STRESS, or STRAIN. See Remark 4. (BCD or blank).\r\n\r\nLOPT      Lamination generation option, one of the strings ALL, SYM,\r\n          MEM, or SYMMEM. See Remark 5. (BCD or blank). Default is\r\n          ALL.\r\n\r\nMIDi      Material identification number of the ith layer. (Integer >\r\n          0 or blank).\r\n\r\nTi        Thickness of the ith layer (Real > 0.0 or blank).\r\n\r\nTHi       Angle between the longitudinal direction of the fibers of\r\n          the ith layer and the material X-axis. (Real or blank).\r\n\r\nSOUTi     Stress output request for ith layer, one of the strings YES\r\n          or NO. (Default is NO).\r\n\r\nRemarks\r\n\r\n1.      The plies are numbered from 1 to n beginning with the bottom layer.\r\n\r\n2.      The offset (ZOC) is not the same offset (ZO) used in the CQUAD4 and\r\n        CTRIA3 cards. ZOC references to the bottom surface of the element.\r\n\r\n3.      SBOND is required if bonding material failure index calculations are\r\n        desired.\r\n\r\n4.      The failure theory is used to determine the element failure on a\r\n        ply-by-ply basis. The available theories are:\r\n\r\n        HILL             Hill Theory\r\n        HOFF             Hoffman Theory\r\n        TSAI             Tsai-Wu Theory\r\n        STRESS           Maximum Stress Theory\r\n        STRAIN           Maximum Strain Theory\r\n\r\n5.      To minimize input requirements several lamination options (LOPT) are\r\n        available. ALL indicates that every ply is specified. SYM indicates that\r\n        ply layup is symmetric about the center ply and that the plies on one\r\n        side of the center line are specified. SYMMEM indicates a symmetric\r\n        layup of membrane only plies.\r\n\r\n6.      The material properties, MIDi, may reference only MAT1, MAT2, and MAT8\r\n        Bulk Data entries.\r\n\r\n7.      If any of MIDi, Ti, or THi are blank, then the last non-blank values\r\n        specified for each will be used to define the values for the ply.\r\n\r\nGuidelines for the Use of PCOMP, PCOMP1, and PCOMP2\r\n\r\n(Excerpt from \"QUAD4 SEMINAR\", WPAFB, WRDC-TR-89-3046, revised April 1993)\r\n\r\nThe purpose of PCOMP, PCOMP1, and PCOMP2 is to define element property\r\nparameters in modeling laminated plates including layered (fiber reinforced)\r\ncomposites. All three cards serve the same purpose except the options are\r\ndifferent. If the layers are made of different materials and the thicknesses\r\nof the layers are all different, then the PCOMP card is appropriate. If all\r\nthe layers are made of the same material and thickness, then PCOMP1 is\r\nappropriate. If the material is the same, but the thicknesses are different,\r\nthen PCOMP2 is appropriate. The first two fields on the PCOMP cards need no\r\nfurther explanation.\r\n\r\nParameter ZOC\r\n\r\nParameter ZOC refers to the distance from the grid point surface to the bottom\r\nof the plate. The plate bottom surface is defined in the diagrams at the end\r\nof this section. It is the reference surface from which the stacking sequence\r\nof the laminates is defined. Parameters ZO defined on QUAD4 and PSHELL are a\r\nsource of confusion sometimes. The offset parameters ZOC and ZO are not the\r\nsame entities.\r\n\r\nParameter SBOND\r\n\r\nThe bonding material shear stress is indirectly related to the interlaminar\r\nshear and its value is generally empirical. A value of 400 to 500 psi for\r\nSBOND appears to be reasonable in the absence of a value obtained from\r\nexperiments. Any approximation of this parameter will not affect the analysis\r\nresults. If affects only the Tsai-Wu failure theory, which is basically a \r\npost-processing function. \r\n\r\nParameters MIDi, Ti, THi, and SOUTi\r\n\r\nThese parameters pertain to the ith layer. MID1 is the material identification\r\nnumber of the first layer. The layer count goes up from the bottom surface of\r\nthe plate. The MIDi refers to one of three material cards: MAT1 for isotropic\r\nmaterials, MAT2 for anisotropic materials, and MAT8 for orthotropic materials.\r\nThe parameter T1 defines the thickness of the first layer and TH1 refers to\r\nthe orientation of the material axis with reference to the material axis\r\ndefined on CQUAD4. SOUTi is the stress output parameter. Then the parameters\r\nare repeated for all the layers unless the symmetry option is used under\r\nparameter LOPT. If any MIDi, Ti, or THi are blank, then the last non-blank\r\nvalues specified for each will be used.\r\n\r\nMaterial Cards\r\n\r\nIsotropic and Anisotropic MAT1 and MAT2\r\n\r\nOrthotropic Material MAT8\r\n\r\nMost of the parameters on MAT8 are self explanatory, with the exceptions of\r\nG1Z and G2Z (fields 7 and 8). When these parameters are left blank, NASTRAN\r\nassumes that the material is infinitely stiff in transverse shear and thus\r\noverestimates the stiffness of the element. To avoid such overestimation,\r\ntransverse shear values have to be provided. Values of about two or three\r\norders of magnitude less than the modulus of elasticity of the material are\r\nrecommended.\r\n=PAGE=\r\n\r\nPLAN VIEW:           G4             G3                 G3             G4\r\n                      Ŀ                  Ŀ\r\n                                                                    \r\n                                                                    \r\n                                                                    \r\n                                        \r\n                     G1             G2                 G2             G1\r\n\r\nSIDE VIEW (PCOMP, PCOMP1,\r\n           & PCOMP2):       TOP                               BOTTOM\r\n                      Ŀ                  Ŀ \r\nCASE 1                                                                \r\n                                                                      \r\n                                                                      \r\n                                          -ZOC\r\n                +ZOC     BOTTOM                              TOP         \r\n                                                                         \r\n                              GRID PT SURFACE           \r\n\r\n                            TOP                              BOTTOM\r\n                      Ŀ                  Ŀ \r\nCASE 2                                                                 -ZOC\r\n(DEFAULT)                    G.P. SURFACE           \r\n              -ZOC                                                 \r\n                                      \r\n                           BOTTOM                              TOP\r\n\r\n                             GRID PT SURFACE           \r\n                                                                         \r\nCASE 3                                                                    +ZOC\r\n                           TOP                              BOTTOM       \r\n              -ZOC   Ŀ                  Ŀ \r\n                                                                   \r\n                                                                   \r\n                                                                   \r\n                                      \r\n                          BOTTOM                               TOP\r\n\r\n=PAGE=\r\nPCOMP1 - Layered Composite Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of an n-ply laminated composite material where all\r\nplies are composed of the same material and are of equal thickness.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPCOMP1    PID    ZOC    NSM   SBOND    FT    MID   TPLY   LOPT  abc  \r\nĴ\r\nPCOMP1    100    -0.5   1.7    5.+3 STRAIN   200   0.25   SYM   ABC  \r\n\r\nĿ\r\n+bc       TH1    TH2    TH3    TH4    TH5         ..-etc.-.            \r\nĴ\r\n+EF      -45.0   45.0   90.0   90.0   45.0                             \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (1,000,000 > Integer > 0).\r\n\r\nZOC       Offset of the element reference plane (element bottom surface)\r\n          from the plane of grid points (Real or blank; see Guidelines in\r\n          PCOMP card).\r\n\r\nNSM       Non-structural mass per unit area (Real).\r\n\r\nSBOND     Allowable shear stress of the bonding material (Real > 0.0) (See\r\n          Guidelines in PCOMP).\r\n\r\nFT        Failure theory, one of the strings HILL, HOFF, TSAI, STRESS, or\r\n          STRAIN. See Remark 4.\r\n\r\nMID       Material identification number for all layers (Integer > 0).\r\n\r\nLOPT      Lamination generation option, one of the strings ALL, SYM, MEM, or\r\n          SYMMEM. See Remark 5.\r\n\r\nTPLY      Thickness of all layers (Real > 0.0 or blank).\r\n\r\nTHi       Angle between the longitudinal direction of the fibers of the ith\r\n          layer and the material X-axis (Real or blank).\r\n\r\nRemarks\r\n\r\n1.The plies are numbered from 1 to n beginning with the bottom layer.\r\n\r\n2.The offset (ZOC) is not the same offset (ZO) used in the CQUAD4 and CTRIA3\r\n  cards. ZOC references the bottom surface of the element.\r\n\r\n3.SBOND is required if bonding material failure index calculations are\r\n  desired.\r\n\r\n4.The failure theory is used to determine the element failure on a ply-by-ply\r\n  basis. The available theories are:\r\n\r\n  HILL    Hill Theory\r\n  HOFF    Hoffman Theory\r\n  TSAI    Tsai-Wu Theory\r\n  STRESS  Maximum Stress Theory\r\n  STRAIN  Maximum Strain Theory\r\n\r\n5.To minimize input requirements several lamination options (LOPT) are\r\n  available. ALL indicates that every ply is specified. SYM indicates that\r\n  ply layup is symmetric about the center ply and that the plies on one side\r\n  of the center line are specified. SYMMEM indicates a symmetric layup of\r\n  membrane only plies.\r\n\r\n6.The material property, MID, may reference only MAT1, MAT2, and MAT8 Bulk\r\n  Data entries.\r\n\r\n7.See \"Guidelines for the Use of PCOMP, PCOMP1, and PCOMP2\" in PCOMP card.\r\n=PAGE=\r\nPCOMP2 - Layered Composite Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of an n-ply laminated composite material where all\r\nplies are composed of the same material.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPCOMP2    PID    ZOC    NSM   SBOND    FT    MID          LOPT  abc  \r\nĴ\r\nPCOMP2    100    -0.5   1.7    5.+3  TSAI    200          SYM   ABC  \r\n\r\nĿ\r\n+bc       T1     TH1    T2     TH2    T3     TH3      .-etc.-.        \r\nĴ\r\n+EF       0.25  -45.0   0.5    90.0   0.25   45.0     ........        \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (1,000,000 > Integer > 0).\r\n\r\nZOC       Offset of the element reference plane (element bottom surface)\r\n          from the plane of grid points (Real or blank; see Guidelines in\r\n          PCOMP card).\r\n\r\nNSM       Non-structural mass per unit area (Real).\r\n\r\nSBOND     Allowable shear stress of the bonding material (Real > 0.0) (See\r\n          Guidelines in PCOMP).\r\n\r\nFT        Failure theory, one of the strings HILL, HOFF, TSAI, STRESS, or\r\n          STRAIN. See Remark 4.\r\n\r\nMID       Material identification number for all layers (Integer > 0 or\r\n          blank).\r\n\r\nLOPT      Lamination generation option, one of the strings ALL, SYM, MEM, or\r\n          SYMMEM. See Remark 5.\r\n\r\nTi        Thickness of the ith layer (Real > 0.0 or blank).\r\n\r\nTHi       Angle between the longitudinal direction of the fibers of the ith\r\n          layer and the material X-axis (Real or blank).\r\n\r\nRemarks\r\n\r\n1.The plies are numbered from 1 to n beginning with the bottom layer.\r\n\r\n2.The offset (ZOC) is not the same offset (ZO) used in CQUAD4 and CTRIA3\r\n  cards. ZOC references to the bottom surface of the element.\r\n\r\n3.SBOND is required if bonding material failure index calculations are\r\n  desired.\r\n\r\n4.The failure theory is used to determine the element failure on a ply-by-ply\r\n  basis. The available theories are:\r\n\r\n  HILL    Hill Theory\r\n  HOFF    Hoffman Theory\r\n  TSAI    Tsai-Wu Theory\r\n  STRESS  Maximum Stress Theory\r\n  STRAIN  Maximum Strain Theory\r\n\r\n5.To minimize input requirements several lamination options (LOPT) are\r\n  available. ALL indicates that every ply is specified. SYM indicates that\r\n  ply layup is symmetric about the center ply and that the plies on one side\r\n  of the center line are specified. SYMMEM indicates a symmetric layup of\r\n  membrane only plies.\r\n\r\n6.The material property, MID, may reference only MAT1, MAT2, and MAT8 Bulk\r\n  Data entries.\r\n\r\n7.If any of the Ti or THi are blank, then the last non-blank values specified\r\n  for each will be used to define the values for the ply.\r\n\r\n8.See \"Guidelines for the Use of PCOMP, PCOMP1, and PCOMP2\" in PCOMP card.\r\n=PAGE=\r\nPCONEAX - Conical Shell Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of a conical shell element described on a CCONEAX card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPCONEAX    ID    MID1    T1    MID2    I     MID3    T2    NSM  +abc \r\nĴ\r\nPCONEAX    2      4     1.0     6     16.3    8     2.1    0.5  +1   \r\n\r\nĿ\r\n+abc       Z1     Z2    PHI1   PHI2   PHI3   PHI4   PHI5   PHI6 +def \r\nĴ\r\n+1       0.001 -0.002   23.6   42.9                             +2   \r\n\r\nĿ\r\n+def      PHI7   PHI8   PHI9  PHI10  PHI11  PHI12  PHI13  PHI14      \r\nĴ\r\n+2                                                                   \r\n\r\n\r\nField     Contents\r\n\r\nID        Property identification number (Unique Integer > 0).\r\n\r\nMIDi      Material identification number for membrane, bending, and\r\n          transverse shear (Integer >= 0).\r\n\r\nT1, T2    Membrane thickness and transverse shear thickness (Real > 0.0 if\r\n          MIDi not equal 0).\r\n\r\nI         Moment of inertia per unit width (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress recovery (Real).\r\n\r\nPHIi      Azimuthal coordinates (in degrees) for stress recovery (Real).\r\n\r\nRemarks\r\n\r\n1.This card is allowed if and only if an AXIC card is also present.\r\n\r\n2.PCONEAX cards may only reference MAT1 material cards.\r\n\r\n3.If either MID1 = 0 or blank or T1 = 0.0 or blank, then both must be zero or\r\n  blank.\r\n\r\n4.If either MID2 = 0 or blank or I = 0.0 or blank, then both must be zero or\r\n  blank.\r\n\r\n5.If either MID3 = 0 or blank or T2 = 0.0 or blank, then both must be zero or\r\n  blank.\r\n\r\n6.A maximum of 14 azimuthal coordinates for stress recovery may be specified.\r\n  An error will be detected if more than two continuation cards appear.\r\n\r\n7.For a discussion of the conical shell problem, see Section 5.9 of the\r\n  Theoretical Manual.\r\n=PAGE=\r\nPDAMP - Scalar Damper Property\r\n\r\nDescription\r\n\r\nUsed to define the damping value of a scalar damper element which is defined\r\nby means of the CDAMP1 or CDAMP3 cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPDAMP     PID     B     PID     B     PID     B     PID     B        \r\nĴ\r\nPDAMP      14   -2.3     2     6.1                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nB         Value of scalar damper (Real).\r\n\r\nRemarks\r\n\r\n1.This card defines a damper value. Be careful when using negative damper\r\n  values. Damper values are defined directly on the CDAMP2 and CDAMP4 cards.\r\n  A structural viscous damper, CVISC, may also be used for geometric grid\r\n  points.\r\n\r\n2.Up to four damper properties may be defined on a single card.\r\n\r\n3.For a discussion of scalar elements, see Section 5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nPDUMi - Dummy Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of a dummy element (1 <= i <= 9). Referenced by the\r\nCDUMi card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPDUMi     PID    MID     A1     A2                -etc.-        abc  \r\nĴ\r\nPDUM3     108     2     2.4    9.6    1.E4   15.           3.5  ABC  \r\n\r\nĿ\r\n+bc            -etc.-    AN                                          \r\nĴ\r\n+BC        5              2                                          \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nA1...AN   Additional entries (Real or Integer).\r\n\r\nRemarks\r\n\r\n1.The additional entries are defined in your element routines.\r\n=PAGE=\r\nPELAS - Scalar Elastic Property\r\n\r\nDescription\r\n\r\nUsed to define the stiffness, damping coefficient, and stress coefficient of a\r\nscalar elastic element (spring) by means of the CELAS1 or CELAS3 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPELAS     PID     K      GE     S     PID     K      GE     S        \r\nĴ\r\nPELAS      7    4.29   0.06   7.92     27    2.17 0.0032             \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nK         Elastic property value (Real).\r\n\r\nGE        Damping coefficient, ge (Real).\r\n\r\nS         Stress coefficient (Real).\r\n\r\nRemarks\r\n\r\n1.Be careful using negative spring values. (Values are defined directly on\r\n  some of the CELASi card types.)\r\n\r\n2.One or two elastic spring properties may be defined on a single card.\r\n\r\n3.For a discussion of scalar elements, see Section 5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nPELBOW - Curved Beam or Elbow Property\r\n\r\nDescription\r\n\r\nDefines the properties of a curved beam or elbow element which is used to\r\ncreate curved pipe or beam elements via the CELBOW card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPELBOW    PID    MID     A     I1     I2      J     NSM         +abc \r\nĴ\r\nPELBOW     2    6061   16.0   211.0  211.0  422.0   6.0         +P1  \r\n\r\nĿ\r\n+abc       r1     1     r2     2     r3     3     r4     4  +def \r\nĴ\r\n+P1        5.3   0.0     5.3   90.0    5.3  180.0    5.3  270.0 +P2  \r\n\r\nĿ\r\n+def      K1     K2      C      Kx     Ky     Kz     R              \r\nĴ\r\n+P2       2.0    2.0    1.0    1.0    5.76   5.76   15.0   90.0      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nA         Area of cross section (Real > 0.0).\r\n\r\nI1        Area moment of inertia in Plane 1 (Real).\r\n\r\nI2        Area moment of inertia in Plane 2 (Real).\r\n\r\nJ         Torsional constant (Real).\r\n\r\nNSM       Nonstructural mass per unit length (Real).\r\n\r\nri, i    Stress recovery coefficients (Real,  in degrees) (See Figure 2.4-\r\n          45.)\r\n\r\nK1, K2    Area factors for shear (Real).\r\n\r\nC         Stress intensification factor (Real).\r\n\r\nKx, Ky, KzFlexibility correction factors (Real).\r\n\r\nR         Radius of curvature of the element (Real > 0.0).\r\n\r\n         Angle, in degrees, from GA to GB (Real, 0. <  < 180.) (See Figure\r\n          2.4-45.)\r\n\r\nRemarks\r\n\r\n1.For structural problems, PELBOW may only reference MAT1 cards.\r\n\r\n2.For APP HEAT problems, PELBOW cards may only reference MAT4 or MAT5\r\n  material cards.\r\n\r\n3.The product moment of inertia is zero (I12 = 0). This assumes that at least\r\n  one axis of symmetry of the element cross section exists, for example,\r\n  tube, I-beam, channel, tee, etc.\r\n\r\n4.See Section 1.3.2.2 for a discussion of the stress correction factor and\r\n  the flexibility correction factors.\r\n\r\n                Tb \\\r\n                      Fxb\r\n                     \\   . M2b\r\n                      \\.\r\n                 GB  . . V2                        Plane 2\r\n               V1b. .  M1b                                     Stress Recovery\r\n                 .                                       Ze    Location\r\n              .              Xe                             /\r\n          .         ->                                 ri/\r\n   C   .     Ye    v          GA                       /\r\n     .*                           / i\r\n     \\             M2a ij V1a         Xe  Plane 1\r\n      \\                     Fxa                        \r\n       Center of                                         \r\n       Curvature                                        \r\n                             Ta                         \r\n\r\n\r\n   Element Local Coordinate System              Element Cross-Section\r\n\r\n                         Figure 2.4-45. PELBOW diagram\r\n=PAGE=\r\nPERMBDY - Permeability Boundary\r\n\r\nDescription\r\n\r\nSpecifies grid points on boundaries of dissimilar magnetic permeability.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPERMBDY   G1     G2     G3     G4     G5     G6     G7     G8   +a   \r\nĴ\r\nPERMBDY    1      5      7      8     10     12     20     25   +A   \r\n\r\nĿ\r\n+a         G9    G10    G11    G12    G13    G14    G15    G16  +b   \r\nĴ\r\n+A         30    40     ENDT                                         \r\n\r\n\r\nField     Contents\r\n\r\nGi        Grid point identification numbers (Integers > 0).\r\n\r\nRemarks\r\n\r\n1.There may be only one PERMBDY card.\r\n\r\n2.The grid points on PERMBDY are those points which are on boundaries between\r\n  elements of differing magnetic permeability.\r\n\r\n3.The PERMBDY card is not required, but its use is recommended. See Section\r\n  1.15.4.4 for more details.\r\n=PAGE=\r\nPFTUBE - Fluid Tube Property\r\n\r\nDescription\r\n\r\nDefines the parameter for the fluid tube element of the heat transfer model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPFTUBE    PID    CP    VOLRT   D1     D2                             \r\nĴ\r\nPFTUBE     5     1.3    8.0    1.0    1.25                           \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nCP        Heat capacity per unit volume (Real > 0).\r\n\r\nVOLRT     Volume flow rate (Real >= 0).\r\n\r\nD1        Diameter at inlet (Real > 0).\r\n\r\nD2        Diameter at outlet (Real > 0 or blank). If blank, the value D1\r\n          will be used.\r\n\r\nRemarks\r\n\r\n1.The FTUBE element transports energy at the rate:\r\n\r\n  Power = CP * VOLRT * U\r\n                        inlet\r\n\r\n  The heat capacity is given by:\r\n\r\n  Energy = [ * CP * (D1+D2)**2 * L /32] *(U +U )\r\n                                            1  2\r\n\r\n  where L is the distance between the connected grid points.\r\n=PAGE=\r\nPHBDY - Property of Heat Boundary Element\r\n\r\nDescription\r\n\r\nDefines the properties of the HBDY element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPHBDY     PID    MID     AF     E    ALPHA    R1     R2              \r\nĴ\r\nPHBDY     100    103    300.   .79                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0 or blank), used for\r\n          convective film coefficient and thermal capacity.\r\n\r\nAF        Area factor (Real >= 0.0 or blank). Used only for HBDY types\r\n          POINT, LINE, and ELCYL.\r\n\r\nE         Emissivity (0.0 <= Real <= 1.0 or blank). Used only for radiation\r\n          calculations.\r\n\r\nALPHA     Absorbtivity (0.0 <= Real <= l.0 or blank). Used only for thermal\r\n          vector flux calculations; default value is E.\r\n\r\nR1, R2    Radii of elliptic cylinder. Used for HBDY type ELCYL. See the HBDY\r\n          element description. (Real).\r\n\r\nRemarks\r\n\r\n1.The referenced material ID must be on a MAT4 card. The card defines the\r\n  convective film coefficient and thermal capacity per unit area. If no\r\n  material is referenced the element convection and heat capacity are zero.\r\n\r\n2.The area factor AF is used to determine the effective area. For a POINT, AF\r\n  = area; for LINE or ELCYL, AF = effective width where area = AF*length. For\r\n  FTUBE, AF = (R1 + R2)(length). The effective area is automatically\r\n  calculated for other HBDY types.\r\n=PAGE=\r\nPIHEX - Isoparametric Hexahedron Property\r\n\r\nDescription\r\n\r\nDefines the properties of an isoparametric solid element, including a material\r\nreference and the number of integration points. Referenced by the CIHEX1,\r\nCIHEX2, and CIHEX3 cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPIHEX     PID    MID    CID    NIP     AR    ALFA   BETA             \r\nĴ\r\nPIHEX      15     3             3                    5.0             \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nCID       Identification number of the coordinate system in which the\r\n          material referenced by MID is defined (Integer >= 0 or blank).\r\n\r\nNIP       Number of integration points along each edge of the element\r\n          (Integer = 2, 3, 4, or blank).\r\n\r\nAR        Maximum aspect ratio (ratio of longest to shortest edge) of the\r\n          element (Real > 1.0 or blank).\r\n\r\nALFA      Maximum angle in degrees between the normals of two subtriangles\r\n          comprising a quadrilateral face (Real, 0.0 <= ALFA <= 180.0, or\r\n          blank).\r\n\r\nBETA      Maximum angle in degrees between the vector connecting a corner\r\n          point to an adjacent midside point and the vector connecting that\r\n          midside point and the other midside or corner point (Real, 0.0 <=\r\n          BETA <= 180.0, or blank).\r\n\r\nRemarks\r\n\r\n1.All PIHEX cards must have unique identification numbers.\r\n\r\n2.The default for NIP is 2 for IHEX1 and 3 for IHEX2 and IHEX3.\r\n\r\n3.AR, ALFA, and BETA are used for checking the geometry of the element. The\r\n  defaults are:\r\n\r\n                   AR                ALFA                BETA\r\n                                  (degrees)           (degrees)\r\n  CIHEX1           5.0               45.0                 --\r\n\r\n  CIHEX2          10.0               45.0                45.0\r\n\r\n  CIHEX3          15.0               45.0                45.0\r\n\r\n4.If CID = 0 or blank, MID must reference a MAT1 card. If CID > 0, MID must\r\n  reference a MAT6 card (with or without reference to a MATT6 card).\r\n\r\n5.If CID > 0, it must reference a rectangular coordinate system defined by a\r\n  CORD1R or CORD2R card. (If a CORD2R card is used, the RID on that card must\r\n  be 0 or blank.) Consequently, if MAT6 properties are to reference the basic\r\n  coordinate system, a CORD1R or CORD2R card must be present to represent the\r\n  basic coordinate system.\r\n\r\n6.Non-zero CIDs on different PIHEX cards must be unique and must reference\r\n  unique MAT6 MIDs.\r\n\r\n7.If a MAT6 card is in the Bulk Data Deck, then it must be referenced on some\r\n  PIHEX card and the following DMAP ALTER must be inserted following\r\n  functional module GP1 in the rigid format DMAP sequence:\r\n\r\n  ANISOP  GEOM1,EPT,BGPDT,EQEXIN,MPT/MPTA/S,N,ISOP $\r\n  EQUIV    MPTA,MPT/ISOP  $\r\n\r\n8.The restrictions represented by Remarks 4 through 7 above are expected to\r\n  be removed in a future release of NASTRAN.\r\n=PAGE=\r\nPIS2D8 - Quadratic Isoparametric Element Property\r\n\r\nDescription\r\n\r\nUsed to define the properties of a quadriparabolic isoparametric membrane\r\nelement. Referenced by the CIS2D8 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPIS2D8    PID    MID     T                                           \r\nĴ\r\nPIS2D8     2      1     0.5                                          \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness of membrane (Real).\r\n\r\nRemarks\r\n\r\n1.All PIS2D8 cards must have unique property identification members.\r\n\r\n2.The material property identification number must reference only a MAT1 or\r\n  MAT2 card.\r\n=PAGE=\r\nPLFACT - Piecewise Linear Analysis Factor Definition\r\n\r\nDescription\r\n\r\nDefines scale factors for piecewise linear analysis loading.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLFACT    SID    B1     B2     B3     B4     B5     B6     B7   +abc \r\nĴ\r\nPLFACT     6     0.2    0.3    0.4    0.5    0.6    0.7    0.8  ABC  \r\n\r\nĿ\r\n+abc       B8    B9    -etc.-                                        \r\nĴ\r\n+BC        0.9   1.0                                                 \r\n\r\n\r\nField     Contents\r\n\r\nSID       Unique set identification number (Integer > 0).\r\n\r\nBi        Loading factor (Real).\r\n\r\nRemarks\r\n\r\n1.The remainder of the physical card containing the last entry must be null.\r\n\r\n2.At any stage of the piecewise linear analysis, the accumulated load is\r\n  given by\r\n\r\n  {P } = B {P}\r\n    i     i\r\n\r\n  where {P} is the total load defined in the usual way. Example: If it were\r\n  desired to load the structure in ten equally spaced load increments then\r\n  one would set\r\n\r\n  B   =  0.1 * i  ;  i = 1, 10\r\n   i\r\n\r\n3.Normally, the Bi form a monotonically increasing sequence. A singular\r\n  stiffness matrix will result if Bi = Bi-1.\r\n\r\n4.At least two factors must be defined.\r\n\r\n5.Piecewise linear analysis factor sets must be selected in the Case Control\r\n  Deck (PLCOEFF = SID) to be used by NASTRAN.\r\n=PAGE=\r\nPLIMIT - Property Optimization Limits\r\n\r\nDescription\r\n\r\nDefines the maximum and minimum limits for ratio of new property to original\r\nproperty.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLIMIT   ELTYP   KMIN   KMAX   PID1   PID2   PID3   PID4   PID5 +abc \r\nĴ\r\nPLIMIT    ROD     .01   1.5     1      3      5      4      2   +ABC \r\n\r\nĿ\r\n+bc       PID6  -etc.-                                               \r\nĴ\r\n+BC             -etc.-                                               \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nPLIMIT   ELTYP   KMIN   KMAX   PID1 \"THRU\"   PIDi                    \r\nĴ\r\nPLIMIT    ALL    .001  0.05     30   THRU    36                      \r\n\r\n\r\nField     Contents\r\n\r\nELTYP     One of the following element types: ROD, TUBE, BAR, TRMEM, QDMEM,\r\n          TRPLT, QDPLT,TRBSC, TRIAl, QUAD1, TRIA2, QUAD2, SHEAR, or ALL or\r\n          blank.\r\n\r\nKMIN      Minimum property ratio (Real > 0.0 or blank).\r\n\r\nKMAX      Maximum property ratio (Real > KMIN or = 0.0 or blank).\r\n\r\nPIDn      List of property identification numbers associated with KMIN\r\n          and/or KMAX (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.This card is not required (default KMIN = KMAX = 0.0 for ALL elements).\r\n\r\n2.All PID values must be unique for each element type.\r\n\r\n3.All elements with the same property identification number in the output\r\n  stress data block, OES1, have these limits applied if ALL is specified.\r\n\r\n4.Property entries optimized depend on the element type and material stress\r\n  limits. Only nonzero properties with nonzero stress limits are optimized.\r\n\r\n5.If KMAX = 0.0, no limit is placed on the maximum change.\r\n\r\n6.If ELTYP is blank, ALL is assumed.\r\n\r\n7.One of KMIN or KMAX may be blank but not both.\r\n=PAGE=\r\nPLOAD - Static Pressure Load\r\n\r\nDescription\r\n\r\nDefines a static pressure load.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLOAD     SID     P      G1     G2     G3     G4                     \r\nĴ\r\nPLOAD      1    -4.0     16     32     11                            \r\n\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nP         Pressure (Real).\r\n\r\nG1,...,G4 Grid point identification numbers (Integer > 0; G4 may be zero).\r\n\r\nRemarks\r\n\r\n1.Grid points must be unique and noncollinear.\r\n\r\n2.If four grid points are given, four triangles are formed and half of P is\r\n  applied to each one. For each triangle the direction is defined by\r\n\r\n    ->    ->\r\n  +(r   X r  )\r\n     12    13\r\n\r\n  where ij is the vector from Gi to Gj.\r\n\r\n3.If three grid points are given, the pressure load is evenly distributed to\r\n  the three grid points. The geometry of the triangle is not considered.\r\n\r\n4.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n  by NASTRAN.\r\n=PAGE=\r\nPLOAD2 - Pressure Load\r\n\r\nDescription\r\n\r\nDefines a uniform static pressure load applied to two-dimensional elements.\r\nOnly QUAD1, QUAD2, QUAD4, QDMEM, QDMEM1, QDMEM2, QDPLT, SHEAR, TRBSC, TRIA1,\r\nTRIA2, TRIA3, TRMEM, TRPLT, or TWIST elements may have a pressure load applied\r\nto them via this card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLOAD2    SID     P     EID    EID    EIDm \"THRU\"   EIDn   EID  abc  \r\nĴ\r\nPLOAD2     21   -3.6     1      4      16  THRU      22     98  ABC  \r\n\r\n\r\nĿ\r\n+bc       EID   -etc.-                                          def  \r\nĴ\r\n+BC       127                                                        \r\n\r\n                               -etc.-\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nP         Pressure value (Real).\r\n\r\nEID,EIDm,EIDn  Element identification numbers (Integer > 0; EIDm < EIDn).\r\n\r\nRemarks\r\n\r\n1.EID must be 0 or blank for omitted entries.\r\n\r\n2.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n  by NASTRAN.\r\n\r\n3.At least one positive EID must be present on each PLOAD2 card.\r\n\r\n4.The pressure load is computed for each element as if the grid points to\r\n  which the element is connected were specified on a PLOAD card. The grid\r\n  point sequence specified on the element connection card is assumed for the\r\n  purpose of computing pressure loads.\r\n\r\n5.All elements referenced must exist.\r\n\r\n6.EID may be specified as individual references or as sequential lists\r\n  (THRU sequences) and the two methods may be used interchangeably. The\r\n  only restriction is that integer values must appear in fields 4 and 9 on\r\n  the PLOAD2 card and in fields 2 and 9 on each continuation card (if all\r\n  fields are used).\r\n\r\n7.When the 88th word of SYSTEM is set to zero (the default), the PLOAD2\r\n  pressure load is evenly distributed to the 3 corner grid points for all\r\n  triangular elements. (That is, no element geometry is considered.) However,\r\n  the distribution of the PLOAD2 pressure load on the quadrilateral elements\r\n  is affected by the element geometry. If the 88th word of SYSTEM is set to\r\n  1, then the load is distributed in proportion to the angle at each grid for\r\n  the element.\r\n=PAGE=\r\nPLOAD3 - Pressure Load on a Face of an Isoparametric Element\r\n\r\nDescription\r\n\r\nDefines a uniform static pressure load applied to a surface of an\r\nisoparametric hexahedron element only.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLOAD3    SID     P     EID1   G11    G12    EID2   G21    G22       \r\nĴ\r\nPLOAD3     3    -15.1    15     7      25     16    117    135       \r\n\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nP         Pressure value (Real, force per unit area).\r\n\r\nEID1, EID2Element identification number (Integer > 0).\r\n\r\nG11,G12; G21,G22  Grid point identification number of two grid points at\r\n          diagonally opposite corners of the face on which the pressure acts\r\n          (Integers > 0).\r\n\r\nRemarks\r\n\r\n1.Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n  by NASTRAN.\r\n\r\n2.At least one EID must be present on each PLOAD3 card.\r\n\r\n3.All elements referenced must exist.\r\n\r\n4.Computations consider the pressure to act positive outward on specified\r\n  face of element.\r\n=PAGE=\r\nPLOAD4 - Pressure Loads on Face of Structural Elements\r\n\r\nDescription\r\n\r\nDefines a load on a face of a QUAD4 or CTRIA3 element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLOAD4    SID    EID     P1    P2     P3      P4                abc  \r\nĴ\r\nPLOAD4    101   2043    15.    18.    23.6                      ABC  \r\n\r\nĿ\r\n+bc       CID     N1     N2     N3                                   \r\nĴ\r\n+BC       52     1.0     0.     0.                                   \r\n\r\n\r\nAlternate Form 1:\r\n\r\nĿ\r\nPLOAD4    SID    E1      P1    P2     P3      P4  \"THRU\" E2     ghi  \r\nĴ\r\nPLOAD4   1001   452     105.                      THRU    568   GHI  \r\n\r\nĿ\r\n+hi      CID     N1      N2     N3                                   \r\nĴ\r\n+HI      2375    0.     1.     1.                                    \r\n\r\n\r\nAlternate Form 2:\r\n\r\nĿ\r\nPLOAD4    SID    P1     EID                                          \r\nĴ\r\nPLOAD4    101    15.   2042                                          \r\n\r\n\r\nAlternate Form 3:\r\n\r\nĿ\r\nPLOAD4    SID    P1     E1                        \"THRU\" E2          \r\nĴ\r\nPLOAD4   1001    105.   452                       THRU     568       \r\n\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nEID, E1, E2Element identification number (Integer > 0, E1 < E2).\r\n\r\nPi        Pressure at the grid point defining the element face (Real or\r\n          blank).\r\n\r\nCID       Coordinate system identification number (Integer >= 0).\r\n\r\nNi        Components of a vector in system CID that defines the direction\r\n          (but not the magnitude) of the pressure (Real).\r\n\r\nRemarks\r\n\r\n1.For the plate elements QUAD4 and TRIA3, if the continuation entry is not\r\n  given, the direction of the pressure is normal to the element in the\r\n  element Z direction, according to the right-hand-rule. If only P1 is given,\r\n  the pressure is assumed to be uniform over the element surface.\r\n\r\n2.If the loaded surface of an element is curved, and a direction vector is\r\n  not specified, the direction of the pressure may vary over the surface. The\r\n  pressure intensity is the load per unit surface area.\r\n\r\n3.Equivalent grid point loads are computed. A uniform pressure need not\r\n  result in equal grid point loads.\r\n\r\n4.P4 is not used for plate element TRIA3.\r\n\r\n5.Alternate Forms 2 and 3 are intended for quick conversion of PLOAD2 cards\r\n  to PLOAD4. The continuation cards, not shown above, can also be used.\r\n\r\n6.When PLOAD4 is applied to a surface, different resulting forces may exist\r\n  if the surface is covered by QUAD4 elements or by TRIA3 elements. For\r\n  example, if 12 psi is applied normal to a unit surface ABCD as shown, the\r\n  resulting forces at four corners are tabulated as follows.\r\n\r\n\r\n  D          C         D          C          D         C\r\n  Ŀ         Ŀ          Ŀ\r\n                            .             .       \r\n                          .                 .     \r\n                        .                     .   \r\n                      .                         . \r\n                     \r\n  A          B         A          B          A         B\r\n\r\n    ONE QUAD4            TWO TRIA3             TWO TRIA3\r\n\r\n                                        FORCES, LB. AT POINT\r\n          ELEMENT(S)                     A     B     C     D\r\n\r\n          ONE QUAD4 A-B-C-D             +3    +3     +3   +3\r\n          ONE QUAD4 A-D-C-B             -3    -3     -3   -3\r\n\r\n          TWO TRIA3 A-B-C, C-D-A        +4    +2     +4   +2\r\n          TWO TRIA3 A-B-C, D-C-A         0    +2      0   +2\r\n          TWO TRIA3 B-A-C, D-C-A         0    -2      0   -2\r\n          TWO TRIA3 B-A-C, C-D-A        -4    -2     -4   -2\r\n\r\n          TWO TRIA3 A-B-D, C-D-B        +2    +4     +2   +4\r\n          TWO TRIA3 A-B-D, D-C-A        +2     0     +2    0\r\n          TWO TRIA3 B-A-D, D-C-B        -2    -4     -2   -4\r\n          TWO TRIA3 B-A-D, C-D-B        -2     0     -2    0\r\n=PAGE=\r\nPLOTEL - Dummy Element Definition\r\n\r\nDescription\r\n\r\nDefines a dummy one-dimensional element for use in plotting. This element is\r\nnot used in the model during any of the solution phases of a problem. It is\r\nused to simplify plotting of structures with large numbers of collinear grid\r\npoints where the plotting of each one along with the elements connecting them\r\nwould result in a confusing plot. The use of this \"element\" is entirely your\r\nresponsibility.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPLOTEL    EID     G1     G2           EID     G1     G2              \r\nĴ\r\nPLOTEL    29      35     16                                          \r\n\r\n\r\nField     Contents\r\n\r\nEID       Element identification number (Integer > 0).\r\n\r\nG1, G2    Grid point identification numbers of connection points (Integer >\r\n          0; G1 not equal G2).\r\n\r\nRemarks\r\n\r\n1.Each element identification number must be unique with respect to all other\r\n  element identification numbers.\r\n\r\n2.One or two PLOTEL elements may be defined on a single card.\r\n=PAGE=\r\nPMASS - Scalar Mass Property\r\n\r\nDescription\r\n\r\nUsed to define the mass value of a scalar mass element which is defined by\r\nmeans of the CMASS1 or CMASS3 cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPMASS     PID     M     PID     M     PID     M     PID     M        \r\nĴ\r\nPMASS      7     4.29    6    13.2                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nM         Value of scalar mass (Real).\r\n\r\nRemarks\r\n\r\n1.This card defines a mass value. Be careful when using negative mass values.\r\n  (Values are defined directly on some of the CMASSi card types.)\r\n\r\n2.Up to four mass properties may be defined by this card.\r\n\r\n3.For a discussion of scalar elements, see Section 5.6 of the Theoretical\r\n  Manual.\r\n=PAGE=\r\nPOINTAX - Axisymmetric Point\r\n\r\nDescription\r\n\r\nDefines the location of a point on an axisymmetric ring at which loads may be\r\napplied via the FORCE, FORCEAX, MOMENT, or MOMAX cards and at which\r\ndisplacements may be requested.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPOINTAX    ID    RID    PHI                                          \r\nĴ\r\nPOINTAX    2      3     30.0                                         \r\n\r\n\r\nField     Contents\r\n\r\nID        Point identification number (Unique Integer > 0).\r\n\r\nRID       Identification number of a RINGAX card (Integer > 0).\r\n\r\nPHI       Azimuthal angle in degrees (Real).\r\n\r\nRemarks\r\n\r\n1.This card is allowed if and only if an AXIC card is also present.\r\n\r\n2.Each POINTAX identification number must be unique with respect to all other\r\n  POINTAX, RINGAX, and SECTAX identification numbers.\r\n\r\n3.These points are not subject to constraints via MPCAX, SPCAX, or OMITAX\r\n  card.\r\n\r\n4.For a discussion of the conical shell problem, see Section 5.9 of the\r\n  Theoretical Manual.\r\n\r\n5.For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n  Theoretical Manual.\r\n=PAGE=\r\nPOPT - Property Optimization Parameter\r\n\r\nDescription\r\n\r\nDefines the basic parameters and existence of a property optimization\r\nanalysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPOPT      MAX    EPS    GAMA  PRINT  PUNCH                           \r\nĴ\r\nPOPT       2   1.0E-3    0.9    2      NO                            \r\n\r\n\r\nField     Contents\r\n\r\nMAX       Maximum number of iterations on property values (Integer > 0).\r\n\r\nEPS       Convergence criteria for property value. If zero, no convergence\r\n          check (Real >= 0.0).\r\n\r\nGAMA      Iteration factor (Default = 1.0) (Real > 0.0).\r\n\r\nPRINT     Print control for property parameters and OFP. Printout occurs\r\n          every Ith loop.The first and last loops are always printed\r\n          (Integer > 0).\r\n\r\nPUNCH     Property card punch option. If YES, properties that were optimized\r\n          are punched (BCD, YES or NO).\r\n\r\nRemarks\r\n\r\n1.Only one POPT card is allowed.\r\n\r\n2.All subcases will be analyzed MAX+1 times unless all properties converge.\r\n\r\n3.Property convergence is defined by\r\n\r\n   -  \r\n       l\r\n   < EPS\r\n     \r\n      l\r\n\r\n  where  is the maximum stress and l is the appropriate stress limit on the\r\n  material card.\r\n\r\n4.Stress recovery must be requested for one of the following elements: BAR,\r\n  ELBOW, IS2D8, QDMEM, QDMEM1, QDMEM2, QDPLT, QUAD1, QUAD2, ROD, SHEAR,\r\n  TRBSC, TRIA1, TRIA2, TRIM6, TRMEM, TRPLT, or TUBE. In addition, the\r\n  material card must have stress limits defined.\r\n\r\n5.Property cards are always printed for the last iteration.\r\n\r\n6.The property entry optimized depends on the element type and the material\r\n  stress limits (see Section 1.13).\r\n=PAGE=\r\nPPSE - Pressure Stiffness Element Property\r\n\r\nDescription\r\n\r\nDefines properties of a pressure stiffness element. Referenced by the CPSE2,\r\nCPSE3, and CPSE4 cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPPSE      PID    P1      P2    P3     P4                             \r\nĴ\r\nPPSE       1     500                                                 \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nP1...P4   Applied pressure load, real.\r\n\r\nRemarks\r\n\r\n1.All PPSE cards must have unique identification numbers.\r\n\r\n2.P1 is the value of the applied pressure load. P2, P3, and P4 are reserved\r\n  for possible future use with the CPSE2, CPSE3, and CPSE4 elements.\r\n\r\n3.P1 is the  pressure force per unit length for the CPSE2 element, that is,\r\n  lb/in. P1 is the pressure force per unit area for the CPSE3 and CPSE4\r\n  elements, that is, psi.\r\n\r\n4.See Remarks for the CPSEi elements.\r\n=PAGE=\r\nPQDMEM - Quadrilateral Membrane Property\r\n\r\nDescription\r\n\r\nUsed to define the properties of a quadrilateral membrane. Referenced by the\r\nCQDMEM card. No bending properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQDMEM    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPQDMEM    235     2     0.5    0.0                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness of membrane (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PQDMEM cards must have unique property identification numbers.\r\n\r\n2.One or two quadrilateral membrane properties may be defined on a single\r\n  card.\r\n=PAGE=\r\nPQDMEM1 - Isoparametric Quadrilateral Membrane Property\r\n\r\nDescription\r\n\r\nUsed to define the properties of an isoparametric quadrilateral membrane.\r\nReferenced by the CQDMEM1 card. No bending properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQDMEM1   PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPQDMEM1   235     2     0.5    0.0                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness of membrane (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PQDMEM1 cards must have unique property identification numbers.\r\n\r\n2.One or two isoparametric quadrilateral membrane properties may be defined\r\n  on a single card.\r\n=PAGE=\r\nPQDMEM2 - Quadrilateral Membrane Property\r\n\r\nDescription\r\n\r\nUsed to define the properties of a quadrilateral membrane. Referenced by the\r\nCQDMEM2 card. No bending properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQDMEM2   PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPQDMEM2   235     2     0.5    0.0                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness of membrane (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PQDMEM2 cards must have unique property identification numbers.\r\n\r\n2.One or two quadrilateral membrane properties may be defined on a single\r\n  card.\r\n=PAGE=\r\nPQDPLT - Quadrilateral Plate Property\r\n\r\nDescription\r\n\r\nUsed to define the bending properties of a quadrilateral plate element.\r\nReferenced by the CQDPLT card. No membrane properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQDPLT    PID    MID1    I     MID2    T     NSM     Z1     Z2       \r\nĴ\r\nPQDPLT     16     23    4.29    16   2.63  1.982    0.05  -0.05      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for bending (Integer > 0).\r\n\r\nI         Bending area moment of inertia per unit width (Real).\r\n\r\nMID2      Material identification number for transverse shear (Integer >=\r\n          0).\r\n\r\nT         Transverse shear thickness (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress computation, positive according to the\r\n          right-hand sequences defined on the CQDPLT card (Real).\r\n\r\nRemarks\r\n\r\n1.All PQDPLT cards must have unique property identification numbers.\r\n\r\n2.If T is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3.No structural mass is generated for this element.\r\n=PAGE=\r\nPQUAD1 - General Quadrilateral Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of a general quadrilateral element of the structural\r\nmodel, including bending, membrane, and transverse shear effects. Referenced\r\nby the CQUAD1 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQUAD1    PID    MID1    T1    MID2    I     MID3    T3    NSM  abc  \r\nĴ\r\nPQUAD1     32     16    2.98    9    6.45    16     5.29   6.32 WXYZ1\r\n\r\nĿ\r\n+bc        Z1     Z2                                                 \r\nĴ\r\n+XYZ1     0.09  -0.06                                                \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for membrane (Integer > 0).\r\n\r\nT1        Membrane thickness (Real).\r\n\r\nMID2      Material identification number for bending (Integer > 0).\r\n\r\nI         Area moment of inertia per unit width (Real).\r\n\r\nMID3      Material identification number for transverse shear (Integer >=\r\n          0).\r\n\r\nT3        Transverse shear thickness (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress computation, positive according to the\r\n          right-hand sequence defined on the CQUAD1 card (Real).\r\n\r\nRemarks\r\n\r\n1.All PQUAD1 cards must have unique property identification numbers.\r\n\r\n2.If T3 is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3.The membrane thickness, T1, is used to compute the structural mass for this\r\n  element.\r\n=PAGE=\r\nPQUAD2 - Homogeneous Quadrilateral Property\r\n\r\nDescription\r\n\r\nDefines the properties of a homogeneous quadrilateral element of the\r\nstructural model, including bending, membrane and transverse shear effects.\r\nReferenced by the CQUAD2 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPQUAD2    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPQUAD2     32     16    2.98   9.0     45     16    5.29   6.32      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PQUAD2 cards must have unique identification numbers.\r\n\r\n2.The thickness used to compute membrane and transverse shear properties is\r\n  T.\r\n\r\n3.The area moment of inertia per unit width used to compute the bending\r\n  stiffness is (T**3)/12.\r\n\r\n4.Outer fiber distances of plus or minus T/2 are assumed.\r\n\r\n5.One or two homogeneous quadrilateral properties may be defined on a single\r\n  card.\r\n=PAGE=\r\nPRESAX - Axisymmetric Pressure Load\r\n\r\nDescription\r\n\r\nDefines the static pressure loading for a model containing CCONEAX, CTRAPAX,\r\nor CTRIAAX elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPRESAX    SID     P     RID1   RID2   PHI1   PHI2                    \r\nĴ\r\nPRESAX     3     7.92    4      3     20.6   31.4                    \r\n\r\n\r\nField     Contents\r\n\r\nSID       Load set identification number (Integer > 0).\r\n\r\nP         Pressure value (Real).\r\n\r\nRID1, RID2Ring identification numbers (see RINGAX card) (Integer > 0).\r\n\r\nPHI1, PHI2Azimuthal angles in degrees (Real, PHI1 not equal PHI2).\r\n\r\nRemarks\r\n\r\n1.This card is allowed if and only if an AXIC card is also present.\r\n\r\n2.Load sets must be selected in the Case Control Deck (LOAD = SID) in order\r\n  to be used by NASTRAN.\r\n\r\n3.For a discussion of the conical shell problem, see Section 5.9 of the\r\n  Theoretical Manual.\r\n\r\n4.For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n  Theoretical Manual.\r\n=PAGE=\r\nPRESPT - Fluid Pressure Point\r\n\r\nDescription\r\n\r\nDefines the location of pressure points in the fluid for recovery of pressure\r\ndata.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPRESPT    IDF           IDP          IDP          IDP             \r\nĴ\r\nPRESPT     14           141    0.0                  142    90.0      \r\n\r\n\r\nField     Contents\r\n\r\nIDF       Fluid point (RINGFL) identification number (Integer > 0).\r\n\r\nIDP       Unique pressure point identification number (Integer > 0).\r\n\r\n         Azimuthal position on fluid point, referenced by IDF, in fluid\r\n          coordinate system (Real).\r\n\r\nRemarks\r\n\r\n1.This card is allowed only if an AXIF card is also present.\r\n\r\n2.All pressure point identification numbers must be unique with respect to\r\n  other scalar, structural, and fluid points.\r\n\r\n3.The pressure points are used primarily for the identification of output\r\n  data. They may also be used as points at which to measure pressure for\r\n  input to control devices (see User's Manual, Section 1.7).\r\n\r\n4.One, two, or three pressure points may be defined per card.\r\n\r\n5.Output requests for velocity and acceleration of these degrees of freedom\r\n  will result in derivatives of pressure with respect to time.\r\n=PAGE=\r\nPROD - Rod Property\r\n\r\nDescription\r\n\r\nDefines the properties of a rod which is referenced by the CROD card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPROD      PID    MID     A      J      C     NSM                     \r\nĴ\r\nPROD       17     23    42.6  17.92  4.236   0.5                     \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nA         Area of rod (Real).\r\n\r\nJ         Torsional constant (Real).\r\n\r\nC         Coefficient to determine torsional stress (Real).\r\n\r\nNSM       Nonstructural mass per unit length (Real).\r\n\r\nRemarks\r\n\r\n1.PROD cards must all have unique property identification numbers.\r\n\r\n2.For structural problems, PROD cards may only reference MAT1 material cards.\r\n\r\n3.For heat transfer problems, PROD cards may only reference MAT4 or MAT5\r\n  cards.\r\n=PAGE=\r\nPROLATE - Prolate Spheroidal Surface\r\n\r\nDescription\r\n\r\nSpecifies a prolate spheroidal surface of the finite element model in\r\nmagnetostatics problems.\r\n\r\nFormat\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPROLATE    A      B    NSEGS  MSEGS   NN     NM     G1     G2   +P1  \r\nĴ\r\n+P1       G3     G4      .      .      .      .      .      .   +P2  \r\n\r\n                     .                                      .\r\n                     .                                      .\r\n                     .                                      .\r\nĿ\r\n+PN        .      .      .    ENDT                                   \r\n\r\n\r\nField     Contents\r\n\r\nA         Length of semi-major axis of generating ellipse (Real > 0.0).\r\n\r\nB         Length of semi-minor axis of generating ellipse (Real > 0.0, B <\r\n          A).\r\n\r\nNSEGS     Number of segments in longitudinal direction (Integer > 2).\r\n\r\nMSEGS     Number of segments in circumferential direction (Integer > 2).\r\n\r\nNN, NM    Maximum n,m in series expansion (Integer, 1 < NM < NN < 30) (see\r\n          Equation 10 in Section 1.15.3).\r\n\r\nG1        Grid point identification number at left end point (Integer > 0).\r\n\r\nG2        Grid point Identification number at right end point (Integer > 0).\r\n\r\nGi, i >= 3Grid point identification numbers of points defining the prolate\r\n          spheroidal surface (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.The major axis of the generating ellipse must lie on the X-axis of the\r\n  basic coordinate system, the minor axis must lie on the Y-axis of the basic\r\n  coordinate system, and the center of the ellipse must coincide with the\r\n  origin of the basic coordinate system.\r\n\r\n                  YBASIC\r\n                  \r\n                  \r\n                  \r\n                  Z\r\n   XBASIC\r\n                  \r\n                  \r\n                  \r\n                  \r\n\r\n                                                      YBASIC\r\n                                                      \r\n                                                  \\  \r\n                                                   \\  \r\n                                                    \\ \r\n                                                     \\\r\n                                ZBASIC   XBASIC\r\n\r\n2.The ordering of the grid points on the PROLATE card is crucial and must\r\n  conform to the order given in Figure 2.4-46 below (although the actual\r\n  numbers will vary depending on the number of longitudinal segments). Note\r\n  that the first set of grid points specified (starting with G3) corresponds\r\n  to the start of the first circumferential segment, which must be in the X-Y\r\n  plane at  = 0 degree in the prolate spheroidal coordinate system.\r\n\r\n3.The number of longitudinal segments must be the same for every\r\n  circumferential segment.\r\n\r\n4.The PROLATE computations are set up to handle either 180 degree or 360\r\n  degree modeling of the prolate spheroidal surface. The 180 degree modeling\r\n  is assumed if Case Control card AXISYM contains SYMM or ANTI (with or\r\n  without the ANOM option), indicating symmetry of the finite element model\r\n  about the X-Y plane, and symmetry or antisymmetry, respectively of the\r\n  source magnetic field and, therefore, of the anomaly potential, about the\r\n  X-Y plane.\r\n\r\n5.The total number of grid points on the PROLATE card must be\r\n  (NSEGS-1)(MSEGS+1) + 2 if 180 degree modeling is used and (NSEGS-1)(MSEGS)\r\n  + 2 if 360 degree modeling is used.\r\n\r\n6.In 360 degree modeling, the grid points at 0 degrees (G3 through GN in the\r\n  sketch) are also the grid points at 360 degrees. However, on the PROLATE\r\n  card, this set of points must not be repeated. With 360 degree modeling,\r\n  the final set of grid points on the PROLATE card must consist of those at\r\n  the end of the (MSEGS-1)th segment.\r\n\r\n7.Only one PROLATE card is allowed.\r\n\r\n                                     Y\r\n                                     \r\n                            G6.           .                     \r\n                       G5.                     .                \r\n                   G4.                             .            B\r\n                G3.                                    .GN      \r\n             G1.                                           .G2  X\r\n                                     \r\n                                                           \r\n                                      A Ĵ\r\n                                                           \r\n\r\n                        Figure 2.4-46. PROLATE diagram\r\n=PAGE=\r\nPSHEAR - Shear Panel Property\r\n\r\nDescription\r\n\r\nDefines the elastic properties of a shear panel. Referenced by the CSHEAR\r\ncard.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPSHEAR    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPSHEAR     13     2     4.9    16.2   14      6     4.9    14.7      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness of shear panel (Real not equal 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PSHEAR cards must have unique identification numbers.\r\n\r\n2.PSHEAR cards may only reference MAT1 material cards.\r\n\r\n3.One or two shear panel properties may be defined on a single card.\r\n=PAGE=\r\nPSHELL - Shell Element Property\r\n\r\nDescription\r\n\r\nDefines the membrane, bending, transverse shear, and coupling properties of\r\nthe QUAD4 and CTRIA3 shell elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPSHELL    PID    MID1    T     MID2 12I/T3   MID3  TS/T    NSM  abc  \r\nĴ\r\nPSHELL    203    204    1.90   205    1.2    206    0.8    6.32 ABC  \r\n\r\nĿ\r\n+bc        Z1     Z2    MID4  MCSID  SCSID    ZO                     \r\nĴ\r\n+BC       +.95   -.95           0      0     0.01                    \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for membrane (Integer > 0 or\r\n          blank).\r\n\r\nT         Default value for membrane thickness (Real > 0.0; see\r\n          Guidelines).\r\n\r\nMID2      Material identification number for bending (Integer > 0 or\r\n          blank).\r\n\r\n12I/T3    Bending stiffness parameter (Real or blank, default =\r\n          1.0; see Guidelines).\r\n\r\nMID3      Material identification number for transverse shear (Integer\r\n          > 0 or blank; must be blank unless MID2 > 0).\r\n\r\nTS/T      Transverse shear thickness divided by membrane thickness\r\n          (Real or blank; default = 0.833333; see Guidelines).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress computation. The positive\r\n          direction is determined by the righthand rule and the\r\n          order in which the grid points are listed on the\r\n          connection entry. (Real or blank; defaults are -T/2\r\n          for Z1 and +T/2 for Z2.)\r\n\r\nMID4      Material identification number for membrane-bending coupling\r\n          (Integer > 0 or blank; must be blank unless MID1 > 0 and\r\n          MID2 > 0; may not equal MID1 or MID2.)\r\n\r\nMCSID     Identification number of material coordinate system (Real or\r\n          blank, or Integer > 0) (See Remark 10).\r\n\r\nSCSID     Identification number of stress coordinate system (Real or\r\n          blank, or Integer > 0) (See Remark 10).\r\n\r\nZO        Offset of the element reference plane (element\r\n          mid-plane) from the plane of grid points. (Real or\r\n          blank; default = .0. See Remark 11 and Guidelines in\r\n          CQUAD4).\r\n\r\nRemarks\r\n\r\n1.      All PSHELL property entries must have unique identification numbers.\r\n\r\n2.      The structural mass is computed from the density using the membrane\r\n        thickness and membrane material properties.\r\n\r\n3.      The results of leaving any MID field blank are:\r\n\r\n        MID1     No membrane or coupling stiffness; no structural mass; no\r\n                 structural damping\r\n\r\n        MID2     No bending, coupling, or transverse shear stiffness\r\n\r\n        MID3     No transverse shear flexibility\r\n\r\n        MID4     No membrane-bending coupling\r\n\r\n4.      The continuation entry is not required.\r\n\r\n5.      Structural damping, when needed, is obtained from the MID1 material.\r\n\r\n6.      The MID4 field should be left blank if the material properties are\r\n        symmetric with the middle surface of the shell.\r\n\r\n7.      For structural problems, PSHELL entries may reference MAT1, MAT2, or\r\n        MAT8 material property data.\r\n\r\n8.      If the transverse shear material, MID3, references MAT2 data, then G33\r\n        must be zero. If MID3 references MAT8 data, then G1,Z and G2,Z must not\r\n        be zero.\r\n\r\n9.      For heat transfer problems PSHELL entries may reference MAT4 or MAT5\r\n        material property data.\r\n\r\n10.     If MCSID/SCSID is left blank (0.0) or is Real, it is considered to be\r\n        the angle of rotation of the X axis of the material/stress coordinate\r\n        system with respect to the X axis of the element coordinate system in\r\n        the XY plane of the latter. If Integer, the orientation of the\r\n        material/stress x-axis is along the projection of the x-axis of the\r\n        specified coordinate system onto the x-y plane of the element system.\r\n        The value of MCSID is the default value for the TM field on the CQUAD4\r\n        or CTRIA3 Bulk Data entries.\r\n\r\n11.     The value of ZO is the default value for the corresponding field on the\r\n        CQUAD4 or CTRIA3 Bulk Data entries.\r\n\r\nGuidelines for the Use of PSHELL\r\n\r\n(Excerpt from \"QUAD4 SEMINAR\", WPAFB, WRDC-TR-89-3046, revised April 1993)\r\n\r\nPSHELL or PCOMP are the property cards referenced on the CQUAD4 (in field 3).\r\nPSHELL is to be used when the plate is not laminated (or layered), while PCOMP\r\nis for laminated plates. Only one of these is applicable for a given element.\r\nThe diagram below illustrates key features of the elements described on the\r\nPSHELL card. It is a sandwich plate with two face sheets separated by a\r\nhoneycomb core.\r\n\r\n            Ŀ\r\n        T/2    ///////////////////////////////// \\\r\n            Ĵ  \\\r\n                                                   \\\r\n         TS            HONEYCOMB CORE                FACE SHEETS\r\n                                                   /\r\n            Ĵ  /\r\n        T/2    ///////////////////////////////// /\r\n            \r\n\r\nThe first two fields of the PSHELL card are for the name and property\r\nidentification called from CQUAD4. The third field, MID1, is the material\r\nidentification number for the face sheets in membrane behavior. Parameter T is\r\nthe total thickness of the two face sheets. MID2 is the material\r\nidentification number for bending behavior, MID3 for shear, and MID4 for\r\nmembrane-bending coupling. There are two types of membrane-bending coupling.\r\nThe coupling resulting from asymmetry in plate construction (non-symmetric\r\nlaminates) is called linear coupling. Nonlinear coupling, on the other hand,\r\nis a result of the interaction of internal forces such as inplane and out of\r\nplane (beam-column effect) forces. The latter coupling can be accounted for\r\nonly in differential stiffness and/or buckling analysis. Parameter 12I/T3\r\n(field 6) can be calculated by using the following definition for I:\r\n\r\n                                  \r\n                1  T 3   T TS   T 2 \r\n        I = 2  ---(-)  + -(-- + -)  \r\n               12  2     2  2   4   \r\n                                  \r\n\r\nI is basically the moment of inertia of the face sheets about the neutral axis\r\n(centroidal). It is assumed that the face sheets are symmetric about the\r\nneutral axis. If they are not, the moment of inertia about the neutral axis\r\ncan be calculated. For solid plates this parameter is simply 1.0.\r\n\r\nThe definition of parameter TS/T is obvious from the diagram.\r\n\r\nParameters MCSID and SCSID refer to the material coordinate system. There are\r\ntwo options for this definition. By leaving the field blank or a real value\r\nthe first option is invoked. In this option the parameter represents the angle\r\nbetween the side of the element connecting the grid points G1 and G2 and the\r\nmaterial axis. The second option is an integer which refers to a coordinate\r\nsystem defined on a COORD card. The second option is the most desirable\r\nbecause the grid point sequence on the CQUAD4 card does not affect the\r\nmaterial axis.\r\n\r\nOffset parameter ZO is the same as defined on CQUAD4. The entry on CQUAD4,\r\nhowever, overrides that on the PSHELL card.\r\n\r\nThe PSHELL card provides the facility to model homogeneous as well as sandwich\r\nplates. However, the face sheets of the sandwich plates are assumed to be\r\nhomogeneous (isotropic, orthotropic, or anisotropic) plates. Modeling sandwich\r\nplates with face sheets made of layered composites requires some additional\r\neffort. A two-step method involving a DMAP alter is recommended.\r\n\r\nSandwich Plates with Composite Face Sheets\r\n\r\nStep 1: Modeling the face sheets with PCOMP cards, make a NASTRAN run with\r\nRigid Format ALTER, and exit NASTRAN after EMG module, that is\r\n\r\n        ALTER 39 $  reference 39 could change from solution to solution\r\n        JUMP FINIS $\r\n        ENDALTER  $\r\n\r\nThis run will put out an equivalent PSHELL card along with four MAT2 cards.\r\n\r\nStep 2: This step involves modification of the PSHELL cards generated in Step\r\n1 and the introduction of a new MAT8 card. The PCOMP cards used in Step 1 must\r\nbe eliminated from this Step 2 run.\r\n\r\nThe property parameters G11, G22, and G12 from the first MAT2 card (output\r\nfrom Step 1 run) become E1, E2, and G12 on the new MAT8 card. The remaining\r\nparameters are defined as above. This new MAT8 card applies to both membrane\r\nand bending (MID1 and MID2) on the PSHELL card (also output from Step 1). The\r\nmaterial identification MID3 on the PSHELL card refers to the shear behavior\r\nof the honeycomb core. This refers to a MAT1 card and with only shear modulus\r\nG defined. The Young's modulus E, the Poisson's ratio v, should be left blank.\r\nThis requirement is mandatory when modeling a honeycomb core with MAT1 card;\r\notherwise the results would be wrong. The shear modulus G for the honeycomb\r\ncore should be obtained from honeycomb manufacturer's handbooks such as\r\nHEXCEL. In the absence of such information, an approximate G value of two to\r\nthree orders of magnitude less than the modulus of elasticity E can be used.\r\nThe other three MaT2 cards from Step 1 run are not used in Step 2, and can be\r\ndiscarded.\r\n\r\nMembrane, bending, and shear deformations are included even though only MID2\r\nis specified. Membrane and bending behavior are computed by the material\r\nproperties called from MID2. It is important to note that the shear\r\ndeformation is computed by assuming a material infinitely stiff in transverse\r\nshear when the MID3 field is blank. The easiest way to avoid shear stiffness\r\nover-estimation is not to leave MID3 blank when MID2 is specified.\r\n=PAGE=\r\nPTORDRG - Toroidal Ring Property\r\n\r\nDescription\r\n\r\nUsed to define membrane and flexure (bending) properties of a toroidal ring\r\nelement. Referenced by the CTORDRG card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTORDRG   PID    MID     TM     TF    PID    MID     TM     TF       \r\nĴ\r\nPTORDRG    2      4     0.1    0.15                                  \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nTM        Thickness for membrane (Real > 0.0).\r\n\r\nTF        Thickness for flexure (Real).\r\n\r\nRemarks\r\n\r\n1.All PTORDRG cards must have unique property identification numbers.\r\n\r\n2.The material identification number MID must reference only a MAT1 or MAT3\r\n  card.\r\n\r\n3.One or two toroidal ring properties may be defined on a single card.\r\n=PAGE=\r\nPTRAPAX - Triangular Ring Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of an axisymmetric trapezoidal cross-section ring\r\nelement referenced by the CTRAPAX card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRAPAX   PID           MID   PHI1   PHI2   PHI3   PHI4   PHI5  +abc \r\nĴ\r\nPTRAPAX    5            15     0.0    5.0    6.0    7.0    8.0  +N1  \r\n\r\nĿ\r\n+abc     PHI6   PHI7   PHI8   PHI9   PHI10  PHI11  PHI12  PHI13 +def \r\nĴ\r\n+N1      9.0    10.0   15.0   20.0   25.0   30.0   35.0   40.0  +N2  \r\n\r\nĿ\r\n+def     PHI14                                                       \r\nĴ\r\n+N2      45.0                                                        \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nPHIi      Azimuthal coordinates (in degrees) for stress recovery (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRAPAX cards must have unique property identification numbers.\r\n\r\n2.This card is allowed if and only if an AXIC card is also present.\r\n\r\n3.PTRAPAX card may reference MAT1 or MAT3 material cards.\r\n\r\n4.A maximum of 14 azimuthal coordinates for stress recovery may be specified.\r\n=PAGE=\r\nPTRBSC - Basic Bending Triangle Property\r\n\r\nDescription\r\n\r\nDefines basic bending triangle (TRBSC) properties. Referenced by the CTRBSC\r\ncard. No membrane properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRBSC    PID    MID1    I     MID2    T     NSM     Z1     Z2       \r\nĴ\r\nPTRBSC     3      17    6.29    4     16.   1.982   0.05  -0.05      \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for bending (Integer > 0).\r\n\r\nI         Bending area moment of inertia per unit width (Real).\r\n\r\nMID2      Material identification number for transverse shear (Integer >=\r\n          0).\r\n\r\nT         Transverse shear thickness (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for shear computation, positive according to the\r\n          right-hand sequence defined in the CTRBSC card (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRBSC cards must have unique property identification numbers.\r\n\r\n2.If T is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3.No structural mass is generated by this element.\r\n=PAGE=\r\nPTRIA1 - General Triangular Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of a general triangular element of the structural\r\nmodel, including bending, membrane and transverse shear effects. Referenced by\r\nthe CTRIA1 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRIA1    PID    MID1    T1    MID2    I     MID3    T3    NSM  abc  \r\nĴ\r\nPTRIA1     32     16    2.98    9     6.45    16    5.29   6.32 QED  \r\n\r\nĿ\r\n+bc        Z1     Z2                                                 \r\nĴ\r\n+ED                                                                  \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for membrane (Integer >= 0).\r\n\r\nT1        Membrane thickness (Real).\r\n\r\nMID2      Material identification number for bending (Integer >= 0).\r\n\r\nI         Area of moment of inertia per unit width (Real).\r\n\r\nMID3      Bending material identification number for transverse shear\r\n          (Integer >= 0).\r\n\r\nT3        Transverse shear thickness (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress calculations, positive according to the\r\n          right-hand sequence defined on the CTRIA1 card (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRIA1 cards must have unique property identification numbers.\r\n\r\n2.If T3 is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3.The membrane thickness, T1, is used to compute the structural mass for this\r\n  element.\r\n=PAGE=\r\nPTRIA2 - Homogeneous Triangular Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of a homogeneous triangular element of the structural\r\nmodel, including membrane, bending and transverse shear effects. Referenced by\r\nthe CTRIA2 card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRIA2    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPTRIA2     2      16   3.92    14.7    6      16    2.96             \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Thickness (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRIA2 cards must have unique identification numbers.\r\n\r\n2.The thickness used to compute the membrane and transverse shear properties\r\n  is T.\r\n\r\n3.The area moment of inertia per unit width used to compute the bending\r\n  stiffness is (T**3)/12.\r\n\r\n4.Outer fiber distances of plus or minus T/2 are assumed.\r\n\r\n5.One or two homogeneous triangular element properties may be defined on a\r\n  single card.\r\n=PAGE=\r\nPTRIAAX - Triangular Ring Element Property\r\n\r\nDescription\r\n\r\nDefines the properties of an axisymmetric triangular cross-section ring\r\nelement referenced by the CTRIAAX card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRIAAX   PID           MID   PHI1   PHI2   PHI3   PHI4   PHI5  +abc \r\nĴ\r\nPTRIAAX    5            15     0.0    5.0    6.0    7.0    8.0  +N1  \r\n\r\nĿ\r\n+abc     PHI6   PHI7   PHI8   PHI9   PHI10  PHI11  PHI12  PHI13 +def \r\nĴ\r\n+N1      9.0    10.0   15.0   20.0   25.0   30.0   35.0   40.0  +N2  \r\n\r\nĿ\r\n+def     PHI14                                                       \r\nĴ\r\n+N2      45.0                                                        \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nPHIi      Azimuthal coordinates (in degrees) for stress recovery (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRIAAX cards must have unique property identification numbers.\r\n\r\n2.This card is allowed if and only if an AXIC card is also present.\r\n\r\n3.PTRIAAX card may reference MAT1 or MAT3 material cards.\r\n\r\n4.A maximum of 14 azimuthal coordinates for stress recovery may be specified.\r\n=PAGE=\r\nPTRIM6 - Linear Strain Triangular Membrane Property\r\n\r\nDescription\r\n\r\nDefines the properties of a linear strain triangular membrane element.\r\nReferenced by the CTRIM6 card. No bending properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRIM6    PID    MID     T1     T3     T5    NSM                     \r\nĴ\r\nPTRIM6    666    999    1.17   2.52   3.84   8.3                     \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT1, T3, T5Membrane thicknesses at the vertices of the element (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRIM6 cards must have unique property identification numbers\r\n\r\n2.PTRIM6 cards may only reference MAT1 or MAT2 cards.\r\n\r\n3.In general, the thickness varies linearly over the triangle. If T3 or T5 is\r\n  specified 0.0 or blank, it will be set equal to T1.\r\n=PAGE=\r\nPTRMEM - Triangular Membrane Property\r\n\r\nDescription\r\n\r\nUsed to define the properties of a triangular membrane element. Referenced by\r\nthe CTRMEM card. No bending properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRMEM    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPTRMEM     17     23   4.25    0.2                                   \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID       Material identification number (Integer > 0).\r\n\r\nT         Membrane thickness (Real > 0.0).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRMEM cards must have unique property identification numbers.\r\n\r\n2.One or two triangular membrane properties may be defined on a single card.\r\n=PAGE=\r\nPTRPLT - Triangular Plate Property\r\n\r\nDescription\r\n\r\nUsed to define the bending properties of a triangular plate element.\r\nReferenced by the CTRPLT card. No membrane properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRPLT    PID    MID1    I     MID2    T     NSM     Z1     Z2       \r\nĴ\r\nPTRPLT     17     26    4.29    16   3.9-4  2.634                    \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for bending (Integer > 0).\r\n\r\nI         Bending area moment of inertia per unit width (Real).\r\n\r\nMID2      Material identification number for transverse shear (Integer >=\r\n          0).\r\n\r\nT         Transverse shear thickness (Real).\r\n\r\nNSM       Nonstructural mass per unit area (Real).\r\n\r\nZ1, Z2    Fiber distances for stress computation, positive according to the\r\n          right-hand sequence defined on the CTRPLT card (Real).\r\n\r\nRemarks\r\n\r\n1.All PTRPLT cards must have unique property identification numbers.\r\n\r\n2.If T is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3.No structural mass is generated by this element.\r\n=PAGE=\r\nPTRPLT1 - Triangular Plate Property\r\n\r\nDescription\r\n\r\nDefines the bending properties of a higher order triangular plate element.\r\nReferenced by the CTRPLT1 card. No membrane properties are included.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRPLT1   PID    MID1    R1     R3     R5    MID2   TS1    TS3  abc  \r\nĴ\r\nPTRPLT1    15     25    20.0   30.0   40.0    35    3.0    1.15 PQR  \r\n\r\nĿ\r\n+bc       TS5    NSM    Z11    Z21    Z13    Z23    Z15    Z25       \r\nĴ\r\n+QR       1.0    9.0    1.5   -1.5    2.0   -2.0   +2.5   -2.5       \r\n\r\n\r\nField     Contents\r\n\r\nPID       Property identification number (Integer > 0).\r\n\r\nMID1      Material identification number for bending (Integer > 0).\r\n\r\nR1, R3, R5Area moment of inertia per unit width at the grid points G1, G3,\r\n          and G5 respectively (Real > 0.0); R1 = T1**3/12, R3 = T3**3/12, R5\r\n          = T5**3/12 where T1, T3, and T5 are the membrane thicknesses of\r\n          the element at the vertices, respectively.\r\n\r\nMID2        Material identification number for transverse shear (Integer > 0).\r\n\r\nTS1, TS3, TS5  Transverse shear thicknesses at the grid points G1, G3, and G5,\r\n            respectively (Real).\r\n\r\nNSM         Nonstructural mass per unit area (Real).\r\n\r\nZ11, Z21, Z13; Z23, Z15, Z25  Fiber distances for stress computation at grid \r\n            points G1, G3, and G5, respectively; positive according to the\r\n            right-hand sequence defined on the CTRPLT1 card (Real).\r\n\r\nRemarks\r\n\r\n1. All PTRPLT1 cards must have unique property identification numbers.\r\n\r\n2. If TS1 is zero, the element is assumed to be rigid in transverse shear.\r\n\r\n3. If TS3 or TS5 is 0.0 or blank, it will be set equal to TS1.\r\n\r\n4. If T3 or T5 is 0.0 (that is, R3 or R5 are 0.0 or blank), it will be set\r\n   equal to T1. (T1, T3, and T5 are computed from R1, R3, and R5)\r\n\r\n5. The stresses at the centroid will be computed at the top and bottom fibers.\r\n   The stresses at G1, G3, and G5 will be computed at the locations defined on\r\n   the property card (if given).\r\n\r\n6. The continuation card is required, even if blank.\r\n=PAGE=\r\nPTRSHL - Higher Order Triangular Shell Element Property\r\n\r\nDescription\r\n\r\nDefines the membrane bending and transverse shear properties of a higher order\r\ntriangular shell element. Referenced by the CTRSHL card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTRSHL    PID    MID1    T1     T3     T5    MID2    I1     I3  abc  \r\nĴ\r\nPTRSHL     10     20     3.0    6.0    4.0    30    2.25   18.0 PQR  \r\n\r\nĿ\r\n+bc        I5    MID3   TS1    TS3    TS5    NSM    Z11    Z21  def  \r\nĴ\r\n+QR       5.33    40    2.5    5.0    3.5    50.0   1.5   -1.5  STU  \r\n\r\nĿ\r\n+ef       Z13    Z23    Z15    Z25                                   \r\nĴ\r\n+TU       3.0   -3.0    2.0   -2.0                                   \r\n\r\n\r\nField       Contents\r\n\r\nPID         Property identification number (Integer > 0).\r\n\r\nMID1        Material identification number for membrane (Integer > 0).\r\n\r\nT1, T3, T5  Thickness at vertices 1, 3, and 5 of the element, respectively\r\n            (Real >= 0.0).\r\n\r\nMID2        Material identification number for bending (Integer > 0).\r\n\r\nI1, I3, I5  Area moments of inertia per unit width at the vertices 1, 3, and 5\r\n            of the element, respectively (Real >= 0.0).\r\n\r\nMID3        Material identification number for transverse shear (Integer >=\r\n            0).\r\n\r\nTS1, TS3, TS5  Transverse shear thickness at the vertices 1, 3, and 5 of the \r\n            element,respectively (Real >= 0.0).\r\n\r\nNSM         Nonstructural mass per unit area (Real).\r\n\r\nZ11, Z21, Z13, Z23, Z15, Z25  Fiber distances for stress computation at grid \r\n            points G1, G3, and G5 respectively, positive according to the\r\n            right-hand sequence defined on the CTRSHL card (Real >= 0.0).\r\n\r\nRemarks\r\n\r\n1. All PTRSHL cards must have unique property identification numbers.\r\n\r\n2. If T3 or T5 are equal to 0.0 or blank, they will be set equal to T1.\r\n\r\n3. If I3 or I5 are equal to 0.0  or blank, they will be set equal to I1.\r\n\r\n4. If TS3 or TS5 are equal to 0.0 or blank, they will be set equal to TS1.\r\n\r\n5. If TS1 is 0.0 or blank, the element is assumed to be rigid in transverse\r\n   shear.\r\n\r\n6. The stresses at the centroid will be computed at the top and bottom fibers.\r\n   The stresses at G1, G3, and G5 will be computed at the locations defined on\r\n   the property card (if given).\r\n\r\n7. Both continuation cards are required, even if blank.\r\n\r\n=PAGE=\r\nPTUBE - Tube Property\r\n\r\nDescription\r\n\r\nDefines the properties of a thin-walled cylindrical tube element. Referenced\r\nby the CTUBE card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTUBE     PID    MID     OD     T     NSM                            \r\nĴ\r\nPTUBE      2      6     6.29   0.25                                  \r\n\r\n\r\nField      Contents\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nOD         Outside diameter of tube (Real > 0.0).\r\n\r\nT          Thickness of tube (Real; T <= 1/2 OD).\r\n\r\nNSM        Nonstructural mass per unit length (Real).\r\n\r\nRemarks\r\n\r\n1. If T is zero, a solid circular rod is assumed.\r\n\r\n2. PTUBE cards must all have unique property identification numbers.\r\n\r\n3. For structural problems, PTUBE cards may only reference MAT1 material\r\n   cards.\r\n\r\n4. For heat transfer problems, PTUBE cards may only reference MAT4 or MAT5\r\n   material cards.\r\n=PAGE=\r\nPTWIST - Twist Panel Property\r\n\r\nDescription\r\n\r\nDefines the elastic properties of a twist panel element. Referenced by the\r\nCTWIST card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPTWIST    PID    MID     T     NSM    PID    MID     T     NSM       \r\nĴ\r\nPTWIST     4      6     2.3    9.4     5      6     1.6              \r\n\r\n\r\nField      Contents\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nMID        Material identification number (Integer > 0).\r\n\r\nT          Thickness of twist panel (Real not equal 0.0).\r\n\r\nNSM        Nonstructural mass per unit area (Real).\r\n\r\nRemarks\r\n\r\n1. All PTWIST cards must have unique identification numbers.\r\n\r\n2. PTWIST cards may only reference MAT1 material cards.\r\n\r\n3. One or two twist panel properties may be defined on a single card.\r\n=PAGE=\r\nPVISC - Viscous Element Property\r\n\r\nDescription\r\n\r\nDefines the viscous properties of a one-dimensional viscous element which is\r\nused to create viscous elements by means of the CVISC card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nPVISC     PID     C1     C2           PID     C1     C2              \r\nĴ\r\nPVISC      3     6.2    3.94                                         \r\n\r\n\r\nField      Contents\r\n\r\nPID        Property identification number (Integer > 0).\r\n\r\nC1, C2     Viscous coefficients for extension and rotation (Real).\r\n\r\nRemarks\r\n\r\n1. This card is used for both extensional and rotational viscous elements.\r\n\r\n2. This card has meaning for dynamics problems only.\r\n\r\n3. Viscous properties are material independent; in particular, they are\r\n   temperature-independent.\r\n\r\n4. One or two viscous element properties may be defined on a single card.\r\n\r\n5. This card is used only for direct formulation of dynamic analyses.\r\n=PAGE=\r\nQBDY1 - Boundary Heat Flux Load\r\n\r\nDescription\r\n\r\nDefines a uniform heat flux into HBDY elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nQBDY1     SID    Q0     EID    EID    EIDm \"THRU\"   EIDn   EID  abc  \r\nĴ\r\nQBDY1     109   1.-5    721    723    731   THRU    790    796  ABC  \r\n\r\nĿ\r\n+bc       EID   -etc.-                                          def  \r\nĴ\r\n+BC       801                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nQ0         Heat flux into element (Real).\r\n\r\nEID, EIDm, EIDn  HBDY elements (Integer > 0; EIDm < EIDn).\r\n\r\nRemarks\r\n\r\n1. QBDY1 cards must be selected in the Case Control Deck (LOAD = SID) to be\r\n   used in statics. The power contributed into an element via this card is\r\n   given by the equation:\r\n\r\n   P   = [(Effective area)*Q0+A] *F(t-)\r\n    in\r\n\r\n   where effective area is taken from PHBDY cards and A is taken from DAREA\r\n   card.\r\n\r\n2. QBDY1 cards must be referenced on a TLOADi card for use in transient\r\n   analysis. The power contributed into an element via this card is given by\r\n   the equation:\r\n\r\n   P  (t) = [(Effective area)*Q0] *F(t-)\r\n    in\r\n\r\n   where the function of time, F(t-), is specified on a TLOAD or TLOAD2 card.\r\n\r\n3. Q0 is positive for heat input.\r\n\r\n4. EID may be specified as individual references or as sequential lists (THRU\r\n   sequences) and the two methods may be used interchangeably. The only\r\n   restriction is that integer values must appear in fields 4 and 9 of the\r\n   QBDY1 card and in fields 2 and 9 of each continuation card (if all fields\r\n   are used).\r\n=PAGE=\r\nQBDY2 - Boundary Heat Flux Load\r\n\r\nDescription\r\n\r\nDefines grid point heat flux into an HBDY element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nQBDY2     SID    EID    Q01    Q02    Q03    Q04                     \r\nĴ\r\nQBDY2     109    721   1.-5   1.-5   2.-5   2.-5                     \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nEID        Identification number of an HBDY element (Integer > 0).\r\n\r\nQ0i        Heat flux at the ith grid point on the referenced HBDY element\r\n           (Real or blank).\r\n\r\nRemarks\r\n\r\n1. QBDY2 cards must be selected in the Case Control Deck (LOAD = SID) to be\r\n   used in statics. The power contributed into each point, i, on an element\r\n   via this card is given by\r\n\r\n   P   =  AREA * Q0\r\n    i         i    i\r\n\r\n2. QBDY2 cards must be referenced on a TLOAD card for use in transient\r\n   analysis. All connected grid points will have the same time function, but\r\n   may have individual delays. The power contributed into each point, i, or an\r\n   element via this card is given by\r\n\r\n   P (t)  =  AREA  * Q0 * F(t- )\r\n    i            i     i       i\r\n\r\n   where F(t-i) is a function of time specified on a TLOAD1 or TLOAD2 card.\r\n\r\n3. Q0i is positive for heat flux input to the element.\r\n=PAGE=\r\nQHBDY - Boundary Heat Flux Load\r\n\r\nDescription\r\n\r\nDefines a uniform heat flux into a set of grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nQHBDY     SID    FLAG    Q0     AF     G1     G2     G3     G4       \r\nĴ\r\nQHBDY     120    LINE  1.5+3   .75     13     15                     \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nFLAG       Type of area involved. Must be one of the following: POINT, LINE,\r\n           REV, AREA3, or AREA4.\r\n\r\nQ0         Heat flux into an area (Real).\r\n\r\nAF         Area factor depends on type (Real > 0.0 or blank).\r\n\r\nG1,...,G4  Grid point identification of connected points (Integer > 0 or\r\n           blank).\r\n\r\nRemarks\r\n\r\n1. The heat flux applied to the area is transformed to loads on the points.\r\n   These points need not correspond to an HBDY element.\r\n\r\n2. The flux is applied to each point, i, by the equation\r\n\r\n   P  =  AREA  * Q0\r\n    i        i\r\n\r\n   where Q0 is positive for heat input, and AREAi is the portion of the total\r\n   area associated with point i.\r\n\r\n3. In statics, the load is applied with the Case Control request: LOAD = SID.\r\n   In dynamics, the load is applied by reference on a TLOADi data card. The\r\n   load at each point will be multiplied by the function of time F(t-i)\r\n   defined on the TLOADi card. i is the delay factor for each point.\r\n\r\n4. The number of connected points for the five types are 1(POINT),\r\n   2(LINE,REV), 3(AREA3), 4(AREA4). Any unused Gi entries must be on the\r\n   right.\r\n\r\n5. The area factor AF is used to determine the effective area for the POINT\r\n   and LINE types. It equals the area and the effective width, respectively.\r\n   It is ignored for the other types, which have their area defined\r\n   implicitly.\r\n\r\n6. The type flag defines a surface in the same manner as the CHBDY data card.\r\n   For physical descriptions of the geometry involved, see the CHBDY\r\n   description.\r\n=PAGE=\r\nQVECT - Thermal Flux Vector Load\r\n\r\nDescription\r\n\r\nDefines thermal flux vector from a distant source into HBDY elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nQVECT     SID    Q0     E1     E2     E3     EID1   EID2   EID3 abc  \r\nĴ\r\nQVECT     333   1.-2   -1.0    0.0    0.0    721    722    723  ABC  \r\n\r\nĿ\r\n+bc       EID4   EID5  -etc.-                                   def  \r\nĴ\r\n+BC       724                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nQ0         Magnitude of thermal flux vector (Real).\r\n\r\nE1, E2, E3 Vector components (in basic coordinate system) of the thermal flux\r\n           vector (Real or Integer > 0). The total flux is given by Q =\r\n           Q0{E1,E2,E3}.\r\n\r\nEIDi       Element identification numbers of HBDY elements irradiated by the\r\n           distant source (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. For statics, the load set is selected in the Case Control Deck (LOAD =\r\n   SID). The power contributed into an element via this card is given by\r\n\r\n              _   _\r\n   P   =  -A(e * n) * Q0\r\n    in\r\n\r\n   where:\r\n\r\n      =  absorbtivity\r\n   A   =  area of HBDY element\r\n   _\r\n   e   =  vector of real numbers E1, E2, E3\r\n   _\r\n   n   =  positive normal vector of element, see CHBDY data\r\n          card description\r\n    _   _\r\n   (e * n)   =  0 if the vector product is positive (that is, the flux\r\n                is coming from behind the element)\r\n\r\n2. For transient analysis, the load set (SID) is selected by a TLOADi card\r\n   which defines a load function of time. The power contributed into the\r\n   element via this card is given by\r\n\r\n                 _    _\r\n   P (t)  =  -A(e(t)*n)*Q0*F(t-)\r\n    l\r\n\r\n   where:\r\n\r\n            _\r\n   ,A, and n are the same as the statics case\r\n   _\r\n   e(t) =   vector of three functions of time, which may be\r\n            given on TABLEDi data cards. If E1, E2, or E3 is\r\n            an integer, it is the table identification\r\n            number. If E1, E2, or E3 is a real number,\r\n            its value is used directly; if Ei is blank, its\r\n            value is zero.\r\n\r\n   F(t-) is a function of time specified or referenced by\r\n            the parent TLOAD1 or TLOAD2 card. The value  is\r\n            calculated for each loaded point.\r\n\r\n3. If the referenced HBDY element is of TYPE = ELCYL, the power input is an\r\n   exact integration over the area exposed to the thermal flux vector.\r\n\r\n4. If the referenced HBDY element is of TYPE = REV, the vector should be\r\n   parallel to the basic z axis.\r\n\r\n5. If a sequential list of elements is desired, fields 7, 8, and 9 may specify\r\n   the first element, the BCD string THRU, and the last element. No subsequent\r\n   data is allowed with this option.\r\n=PAGE=\r\nQVOL - Volume Heat Addition\r\n\r\nDescription\r\n\r\nDefines a rate of internal heat generation in an element.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nQVOL      SID    QV     EID    EID    EIDm \"THRU\"   EIDn   EID  abc  \r\nĴ\r\nQVOL      333   1.+2    301    303    317   THRU    345    416  ABC  \r\n\r\nĿ\r\n+bc       EID7  -etc.-                                          def  \r\nĴ\r\n+BC       527                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nQV         Power input per unit volume produced by a heat conduction element\r\n           (Real).\r\n\r\nEID, EIDm, EIDn  Heat conduction element identification numbers (Integer > 0;\r\n           EIDm < EIDn).\r\n\r\nRemarks\r\n\r\n1. In statics, the load is applied with the Case Control request, LOAD = SID.\r\n   The equivalent power contributed via this card into each grid point, i,\r\n   connected to each element listed, is given by\r\n\r\n   P  = QV * VOL\r\n    i           i\r\n\r\n   where VOLi is the portion of the volume associated with point i and QV is\r\n   positive for heat generation.\r\n\r\n2. In dynamics, the load is requested by reference on a TLOADi card. The\r\n   equivalent power contributed via this card into each grid point i,\r\n   connected to each element listed, is\r\n\r\n   P  = QV * VOL * F(t- )\r\n    i           i       i\r\n\r\n   where VOLi is the portion of the volume associated with point i and F(t-i)\r\n   is the function of time defined by a TLOADi card. i is the delay for each\r\n   point i.\r\n\r\n3. EID may be specified as individual references or as sequential lists (THRU\r\n   sequences) and the two forms may be used interchangeably. The only\r\n   restriction is that integer values must appear in fields 4 and 9 of the\r\n   QVOL card and in fields 2 and 9 of each continuation card (if all fields\r\n   are used).\r\n=PAGE=\r\nRADLST - List of Radiation Areas\r\n\r\nDescription\r\n\r\nA list of HBDY identification numbers given in the same order as the columns\r\nof the RADMTX matrix.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRADLST    EID1   EID2   EID3   EID4   EID5   EID6   EID7   EID8 abc  \r\nĴ\r\nRADLST     10     20     30     50     31     41   THRU     61  ABC  \r\n\r\nĿ\r\n+bc       EID9  -etc.-                                          def  \r\nĴ\r\n+BC        71                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nEIDi       The element identification numbers of the HBDY elements, given in\r\n           the order that they appear in the RADMTX matrix (Integer > 0 or\r\n           BCD THRU).\r\n\r\nRemarks\r\n\r\n1. This card is required if a RADMTX is defined.\r\n\r\n2. Only one RADLST card string is allowed in a data deck.\r\n\r\n3. If a group of the elements are sequential, any field except 2 and 9 may\r\n   contain the BCD word THRU. Element ID numbers will be generated for every\r\n   integer between the value of the previous field and the value of the\r\n   subsequent field. The values must increase, however.\r\n\r\n4. Any element may be listed more than once. For instance, if both sides of a\r\n   panel are radiating, each side may participate in a different part of the\r\n   view factor matrix.\r\n=PAGE=\r\nRADMTX - Radiation Matrix\r\n\r\nDescription\r\n\r\nMatrix of radiation exchange coefficients (area times view factor) for\r\nnonlinear heat transfer analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRADMTX   INDEX   Fi,i  Fi+1,i Fi+2,i Fi+3,i Fi+4,i Fi+5,i Fi+6,iabc  \r\nĴ\r\nRADMTX     3      0.    9.3    17.2   16.1   .1      0.    6.2  ABC  \r\n\r\nĿ\r\n+bc      Fi+7,i -etc.-                                          def  \r\nĴ\r\n+BC       6.2                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nINDEX      The column number of the matrix (Integer > 0).\r\n\r\nFi+k,i     The matrix values (Real), starting on the diagonal, continuing\r\n           down the column. A group of zeros at the bottom of the column may\r\n           be omitted. A blank field will end the column, which disallows\r\n           imbedded blank fields.\r\n\r\nRemarks\r\n\r\n1. The INDEX numbers go from 1 through NA, where NA is the number of radiating\r\n   areas.\r\n\r\n2. The radiation exchange coefficient matrix is symmetric, and only the lower\r\n   triangle is input. Column 1 is associated with the HBDY element first\r\n   listed on the RADLST card, Column 2 for the next, etc. Null columns need\r\n   not be entered.\r\n\r\n        NA\r\n3. P  =   F   q\r\n    i  j=1  ij  j\r\n\r\n   Pi = total irradiation into element i\r\n\r\n   qj = radiosity (per unit area) at j\r\n\r\n   Fij = radiation matrix (units of area)\r\n\r\n4. A column may only be specified once.\r\n\r\n5. An element identification appearing on a RADLIST card that is not defined\r\n   on a RADMTX card or is only partially defined, will cause the missing terms\r\n   of the matrix column to be filled with zeros. This implies an infinite heat\r\n   sink (radiation loss) is present.\r\n=PAGE=\r\nRANDPS - Power Spectral Density Specification\r\n\r\nDescription\r\n\r\nDefines load set power spectral density factors for use in random analysis\r\nhaving the frequency dependent form\r\n\r\n   S  (F)  =  (X + iY) G(F)\r\n    jk\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRANDPS    SID     J      K      X      Y     TID                     \r\nĴ\r\nRANDPS     5      3      7     2.0    2.5     4                      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Random analysis set identification number (Integer > 0).\r\n\r\nJ          Subcase identification number of excited load set (Integer > 0).\r\n\r\nK          Subcase identification number of applied load set (Integer >= 0; K\r\n           >= J).\r\n\r\nX, Y       Components of complex number (Real).\r\n\r\nTID        Identification number of a TABRNDi card which defines G(F)\r\n           (Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. If J = K, then Y must be 0.0.\r\n\r\n2. For TID = 0, G(F) = 1.0.\r\n\r\n3. Set identification numbers must be selected in the Case Control Deck\r\n   (RANDOM = SID) to be used by NASTRAN.\r\n\r\n4. Only 20 unique sets may be defined. However, as many RANDPS cards as\r\n   desired with the same SID may be input.\r\n\r\n5. RANDPS can only reference subcases included within a single loop (change in\r\n   direct matrix input is not allowed).\r\n\r\n6. Subcase number must be specified in the Case Control Deck.\r\n=PAGE=\r\nRANDT1 - Autocorrelation Function Time Lag\r\n\r\nDescription\r\n\r\nDefines time lag constants for use in random analysis autocorrelation function\r\ncomputation.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRANDT1    SID     N      T0    TMAX                                  \r\nĴ\r\nRANDT1     5      10    3.2    9.6                                   \r\n\r\n\r\nField      Contents\r\n\r\nSID        Random analysis set identification number (Integer > 0).\r\n\r\nN          Number of time lag intervals (Integer > 0).\r\n\r\nT0         Starting time lag (Real >= 0.0).\r\n\r\nTMAX       Maximum time lag (Real > T0).\r\n\r\nRemarks\r\n\r\n1. At least one RANDPS card must be present with the same set identification\r\n   number.\r\n\r\n2. The time lags defined on this card are given by\r\n\r\n                T    -  T\r\n                 max     o\r\n   T   =  T  +  (i - 1),      i = 1, N + 1\r\n    i      o        N\r\n\r\n3. Time lag sets must be selected in the Case Control Deck (RANDOM = SID) to\r\n   be used by NASTRAN.\r\n=PAGE=\r\nRELES - Release Substructure Connectivities\r\n\r\nDescription\r\n\r\nDefines sets of component degrees of freedom at substructure grid points which\r\nare not to be connected.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRELES     SID    NAME    G1     C1     G2     C2     G3     C3  def  \r\nĴ\r\nRELESL     6   WINGRT    17    456     18    456     21    123  DEF  \r\n\r\nĿ\r\n+ef        G4     C4        etc.        GN     CN                     \r\nĴ\r\n+EF        253   456                                                 \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nNAME       Name of basic substructure (BCD).\r\n\r\nGi         Grid or scalar point identification number (Integer > 0).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nRemarks\r\n\r\n1. The RELES data will override any connections generated automatically from\r\n   geometry and any connections defined on CONCT data cards.\r\n\r\n2. The RELES data will not override connections defined on the CONCT1 data\r\n   card.\r\n\r\n3. Connectivity sets must be selected in the Substructure Control Deck\r\n   (CONNECT = SID) to be used by NASTRAN. Note that CONNECT is a subcommand of\r\n   the substructure COMBINE command.\r\n\r\n4. Connectivities defined during previously executed COMBINE operations will\r\n   be retained and may be referenced by the grid point ID and component of any\r\n   one of the basic substructures associated with that connectivity.\r\n=PAGE=\r\nREMFLUX - Remanent Flux Density\r\n\r\nDescription\r\n\r\nSpecifies remanent flux density for selected elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nREMFLUX   SID    CID    BRX    BRY    BRZ   EID1   EID2   EID3       \r\nĴ\r\nREMFLUX    2             1.     2.     3.     1      2      3        \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nREMFLUX   SID    CID    BRX    BRY    BRZ   EID1  \"THRU\"  EID2       \r\nĴ\r\nREMFLUX    2             1.     2.     3.     1    THRU     3        \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nCID        Coordinate system identification number (Integer > 0).\r\n\r\nBRX, BRY, BRZ  Remanent flux density in coordinate system CID (Real).\r\n\r\nEID1, EID2, EID3  Element identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. If the alternate form of the card is used, all elements between EID1 and\r\n   EID2 need not exist, but sufficient core must be available for 5 words\r\n   (EID2 - EID1 + 1).\r\n\r\n3. REMFLUX cards may not have the same load set identification number as\r\n   SPCFLD, CEMLOOP, GEMLOOP, or MDIPOLE cards. However, they may be combined\r\n   on a LOAD card or a SUBCOM card.\r\n\r\n4. CID must presently be 0 or blank.\r\n=PAGE=\r\nRFORCE - Rotational Force\r\n\r\nDescription\r\n\r\nDefines a static loading condition due to a centrifugal force field.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRFORCE    SID     G     CID     A      N1     N2     N3              \r\nĴ\r\nRFORCE     2      5           -6.4    0.0    0.0    1.0              \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nG          Grid point identification number (Integer > 0).\r\n\r\nCID        Coordinate system defining rotation direction (Integer >= 0 or\r\n           blank).\r\n\r\nA          Scale factor for rotational velocity in revolutions per unit time\r\n           (Real).\r\n\r\nN1, N2, N3 Rectangular components of rotation direction vector (Real; N1**2 +\r\n           N2**2 + N3**2 > 0.0) The vector defined will act at point G.\r\n\r\nRemarks\r\n\r\n1. G = 0 means the basic coordinate system origin.\r\n\r\n2. CID = 0 means the basic coordinate system.\r\n\r\n3. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n4. Rotational force sets can be combined with other static loads only by using\r\n   the LOAD bulk data card.\r\n\r\n5. The load vector generated by this card can be printed with an OLOAD request\r\n   in the Case Control Deck.\r\n\r\n6. For elements with lumped mass, the centrifugal acceleration is calculated\r\n   at the center of the lumped mass. Grid point offsets of the mass such as\r\n   those defined with BAR and CONM2 elements are taken into account.\r\n\r\n7. For elements using the coupled consistent mass option (COUPMASS) or those\r\n   with implicit coupled mass matrices such as IHEXi and TRIAAX elements, the\r\n   centrifugal accelerations are calculated based on grid point locations.\r\n   This acceleration vector is then multiplied by the mass matrix to generate\r\n   loads. Therefore, for greater accuracy, elements near the axis of rotation\r\n   should be kept small to best represent the actual acceleration field.\r\n\r\n8. When applying a rotational force to an axisymmetric element, G and CID must\r\n   be 0 or blank; N1 and N2 must be 0.0.\r\n=PAGE=\r\nRINGAX - Axisymmetric Ring\r\n\r\nDescription\r\n\r\nDefines a ring for a model containing CCONEAX, CTRAPAX, or CTRIAAX elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRINGAX     ID            R      Z                    PS              \r\nĴ\r\nRINGAX     3            2.0   -10.0                 162              \r\n\r\n\r\nField      Contents\r\n\r\nID         Ring identification number (1 <= Integer < 10**6).\r\n\r\nR          Ring radius (Real > 0.0).\r\n\r\nZ          Ring axial location (Real).\r\n\r\nPS         Permanent single-point constraints (any unique combination of the\r\n           digits 1 - 6).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. The number of degrees of freedom defined is (6-PS)*H where H is the\r\n   harmonic count and PS is the number of digits in field 8. (See AXIC card.)\r\n\r\n3. RINGAX identification numbers must be unique with respect to all other\r\n   POINTAX, RINGAX, and SECTAX identification numbers.\r\n\r\n4. The fourth and sixth degrees of freedom must be constrained when transverse\r\n   shear flexibility is not included for the conical shell.\r\n\r\n5. For a discussion of the conical shell problem see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n6. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nRINGFL - Axisymmetric Fluid Point\r\n\r\nDescription\r\n\r\nDefines a circle (fluid point) in an axisymmetric fluid model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRINGFL    IDF     X1     X2     X3    IDF     X1     X2     X3       \r\nĴ\r\nRINGFL     3     1.0           30.0                                  \r\n\r\n\r\nField      Contents\r\n\r\nIDF        Unique identification number of the fluid point (Integer, 0 < IDF\r\n           < 10**5).\r\n\r\nX1, X2, X3 Coordinates of point in fluid coordinate system defined on AXIF\r\n           card (Real; X1 > 0.0).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXIF card is also present.\r\n\r\n2. All fluid point identification numbers must be unique with respect to other\r\n   scalar, structural and fluid points.\r\n\r\n3. X1, X2, X3 are (r, , z) for a cylindrical coordinate system and (p, , )\r\n   for a spherical coordinate system.  and  are in degrees. The value of \r\n   must be greater than zero. The value of  must be blank or zero.\r\n\r\n4. One or two fluid points may be defined per card.\r\n=PAGE=\r\nRLOAD1 - Frequency Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines a frequency dependent dynamic load of the form\r\n\r\n                              i{ - 2f}\r\n   {P(f)} =  A[C(f) + iD(f)] e\r\n\r\nfor use in frequency response problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRLOAD1    SID     L      M      N      TC     TD                     \r\nĴ\r\nRLOAD1     5      3      6      9      1      2                      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nL          Identification number of DAREA or DAREAS and LOADC card set which\r\n           defines A (Integer > 0).\r\n\r\nM          Identification number of DELAY or DELAYS card set which defines \r\n           (Integer >= 0).\r\n\r\nN          Identification number of DPHASE or DPHASES card set which defines\r\n            (Integer >= 0).\r\n\r\nTC         Set identification number of TABLEDi card which gives C(f)\r\n           (Integer >= 0; TC + TD > 0).\r\n\r\nTD         Set identification number of TABLEDi card which gives D(f)\r\n           (Integer >= 0; TC + TD > 0).\r\n\r\nRemarks\r\n\r\n1. If any of M, N, TC, or TD are blank or zero, the corresponding , , C(f),\r\n   or D(f) will be zero.\r\n\r\n2. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID)\r\n   to be used by NASTRAN.\r\n\r\n3. RLOAD1 loads may be combined with RLOAD2 loads only by specification on a\r\n   DLOAD card. That is, the SID on an RLOAD1 card may not be the same as that\r\n   on an RLOAD2 card.\r\n\r\n4. SID must be unique for all RLOAD1, RLOAD2, TLOAD1, and TLOAD2 cards.\r\n\r\n5. With automated multi-stage substructuring, DAREAS cards may only reference\r\n   degrees of freedom in the boundary set of the solution structure.\r\n\r\n6. When L references LOADC cards, DAREAS cards with the same set\r\n   identification and non-zero loads must also exist.\r\n=PAGE=\r\nRLOAD2 - Frequency Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines a frequency dependent dynamic load of the form\r\n\r\n                    i{(f) +   - 2f}\r\n   {P(f)}  =  AB(f)e\r\n\r\nfor use in frequency response problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nRLOAD2    SID     L      M      N      TB     TP                     \r\nĴ\r\nRLOAD2     5      3      6      21     7      2                      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nL          Identification number of DAREA or DAREAS and LOADC card set which\r\n           defines A (Integer > 0).\r\n\r\nM          Identification number of DELAY or DELAYS card set which defines \r\n           (Integer >= 0).\r\n\r\nN          Identification number of DPHASE or DPHASES card set which defines\r\n            in degrees (Integer >= 0).\r\n\r\nTB         Set identification number of TABLEDi card which gives B(f)\r\n           (Integer >= 0).\r\n\r\nTP         Set identification number of TABLEDi card which gives (f) in\r\n           degrees (Integer >= 0).\r\n\r\nRemarks\r\n\r\n1. If any of M, N, or TP are zero, the corresponding , , or (f) will be\r\n   zero.\r\n\r\n2. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID)\r\n   to be used by NASTRAN.\r\n\r\n3. RLOAD2 loads may be combined with RLOAD1 loads only by specification on a\r\n   DLOAD card. That is, the SID on an RLOAD2 card may not be the same as that\r\n   on an RLOAD1 card.\r\n\r\n4. SID must be unique for all RLOAD1, RLOAD2, TLOAD1, and TLOAD2 cards.\r\n\r\n5. With automated multi-stage substructuring, DAREAS cards may only reference\r\n   degrees of freedom in the boundary set of the solution structure.\r\n\r\n6. When L references LOADC cards, DAREAS cards with the same set\r\n   identification and non-zero loads must also exist.\r\n=PAGE=\r\nSECTAX - Axisymmetric Sector\r\n\r\nDescription\r\n\r\nDefines a sector of a model containing CCONEAX, CTRAPAX, or CTRIAAX elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSECTAX     ID    RID     R     PHI1   PHI2                           \r\nĴ\r\nSECTAX     1      2     3.0    30.0   40.0                           \r\n\r\n\r\nField      Contents\r\n\r\nID         Sector identification number (unique Integer > 0).\r\n\r\nRID        Ring identification number (see RINGAX) (Integer > 0).\r\n\r\nR          Effective radius (Real).\r\n\r\nPHI1, PHI2 Azimuthal limits of sector in degrees (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. SECTAX identification numbers must be unique with respect to all other\r\n   POINTAX, RINGAX, and SECTAX identification numbers.\r\n\r\n3. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n4. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nSEQEP - Extra Point Resequencing\r\n\r\nDescription\r\n\r\nThe purpose of the SEQEP card is to allow re-identifying the formation\r\nsequence of the extra points of his structural model in such a way as to\r\noptimize bandwidth, which is essential for efficient solutions by the\r\ndisplacement method.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSEQEP      ID   SEQID    ID   SEQID    ID   SEQID    ID   SEQID      \r\nĴ\r\nSEQEP     5392   15.6                  2   1.9.2.6   3      2        \r\n\r\n\r\nField      Contents\r\n\r\nID         Extra point identification number (Integer > 0).\r\n\r\nSEQID      Sequence identification number (a special number described below).\r\n\r\nRemarks\r\n\r\n1. ID is any extra point identification number which is to be re-identified\r\n   for sequencing purposes. The sequence number is a special number which may\r\n   have any of the following forms where X is a decimal integer digit:\r\n   XXXX.X.X.X, XXXX.X.X, XXXX.X, or XXXX, where any of the leading X's may be\r\n   omitted. This number must contain no imbedded blanks.\r\n\r\n2. To insert an extra point between two already existing grid, scalar, and/or\r\n   extra points, such as 15 and 16, for example, define it as, say 5392, and\r\n   then use this card to insert extra point number 5392 between them by\r\n   equivalencing it to, say, 15.6. All output referencing this point will\r\n   refer to 5392.\r\n\r\n3. The SEQID numbers must be unique and may not be the same as a point ID\r\n   which is not being changed. No extra point ID may be referenced more than\r\n   once.\r\n\r\n4. No continuation cards (small field or large field) are allowed with either\r\n   the SEQGP or the SEQEP card.\r\n\r\n5. From one to four extra points may be resequenced on a single card.\r\n=PAGE=\r\nSEQGP - Grid and Scalar Point Resequencing\r\n\r\nDescription\r\n\r\nUsed to order the grid points and user-supplied scalar points of the problem.\r\nThe purpose of this card is to allow re-identifying the formation sequence of\r\nthe grid and scalar points of his structural model in such a way as to\r\noptimize bandwidth, which is essential for efficient solutions by the\r\ndisplacement method.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSEQGP      ID   SEQID    ID   SEQID    ID   SEQID    ID   SEQID      \r\nĴ\r\nSEQGP     5392  15.6                   2   1.9.2.6   3      2        \r\n\r\n\r\nField      Contents\r\n\r\nID         Grid or scalar point identification number (Integer > 0).\r\n\r\nSEQID      Sequenced identification number (a special number described\r\n           below).\r\n\r\nRemarks\r\n\r\n1. ID is any grid or scalar point identification number which is to be\r\n   re-identified for sequencing purposes. The grid point sequence number\r\n   (SEQID) is a special number which may have any of the following forms where\r\n   X is a decimal integer digit: XXXX.X.X.X, XXXX.X.X, XXXX.X, or XXXX, where\r\n   any of the leading X's may be omitted. This number must contain mo imbedded\r\n   blanks.\r\n\r\n2. To insert a grid point between two already existing grid points, such as 15\r\n   and 16, for example, define it as, say 5392, and then use this card to\r\n   insert grid point number 5392 between them by equivalencing it to, say\r\n   15.6. All output referencing this point will refer to 5392.\r\n\r\n3. The SEQID numbers must be unique and may not be the same as a point ID\r\nwhich is not being changed. No grid point ID may be referenced more than\r\nonce.\r\n\r\n4. No continuation cards (small field or large field) are allowed with either\r\n   the SEQGP or the SEQEP card.\r\n\r\n5. From one to four grid or scalar points may be resequenced on a single card.\r\n\r\n6. SEQGP is not available for axisymmetric and hydroelastic problems.\r\n=PAGE=\r\nSET1 - Grid Point List\r\n\r\nDescription\r\n\r\nDefines a set of structural grid points by a list.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSET1      SID     G1     G2     G3     G4     G5     G6     G7  ABC  \r\nĴ\r\nSET1       3      31     62     93    124     16     17     18  ABC  \r\n\r\nĿ\r\n+BC        G8   -etc.-                                               \r\nĴ\r\n+BC        19                                                        \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set of identification numbers (Integer > 0).\r\n\r\nG1, G2, etc.  List of structural grid points (Integer > 0 or THRU).\r\n\r\nRemarks\r\n\r\n1. These cards are referenced by the SPLINE data cards.\r\n\r\n2. When using the THRU option, all intermediate grid points must exist. The\r\n   word THRU may not appear in field 3 or 9 (2 or 9 for continuation cards.)\r\n=PAGE=\r\nSET2 - Grid Point List\r\n\r\nDescription\r\n\r\nDefines a set of structural grid points in terms of aerodynamic macro\r\nelements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSET2      SID   MACRO   SP1    SP2    CH1    CH2    ZMAX   ZMIN      \r\nĴ\r\nSET2       3     111     .0    .75     .0   .667    1.0   -3.51      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nMACRO      Element identification number of an aero macro element (Integer >\r\n           0).\r\n\r\nSP1, SP2   Lower and higher span division points defining prism containing\r\n           set (-.01 < Real < 1.01)\r\n\r\nCH1, CH2   Lower and higher chord division points defining prism containing\r\n           set (-.01 < Real < 1.01)\r\n\r\nZMAX, ZMIN Top and bottom z coordinates (using right-hand rule with the order\r\n           the corners are listed on a CAERO1 card) of the prism containing\r\n           set (Real). Usually ZMAX >= 0, ZMIN <= 0.\r\n\r\nRemarks\r\n\r\n1. These cards are referenced by the SPLINEi data cards.\r\n\r\n2. Every grid point within the defined prism and within the height range will\r\n   be in the set. For example,\r\n\r\n               CH1 = 0.0           MACRO 111\r\n             Ŀ\r\n             //////////////////////////////          \r\n             ///111///////114///////117////   120    \r\n             //////////////////////////////          \r\n             Ĵ\r\n             //////////////////////////////          \r\n   SP1 = 0.0 ///112///////115///////118////   121     SP2 = 0.75\r\n             //////////////////////////////          \r\n             Ĵ\r\n                                                     \r\n                113       116       119       122    \r\n                                                     \r\n             \r\n               CH2 = .667\r\n\r\n   The shaded area in the figure defines the cross-section of the prism for\r\n   the sample data given above. Points exactly on the boundary may be missed;\r\n   hence, to get the area of the macro element, use SP1 = -.01, SP2 = 1.01,\r\n   etc.\r\n\r\n3. A zero value for ZMAX or ZMIN implies infinity is to be used.\r\n\r\n4. To find the (internal) grid ID's found, use DIAG 18.\r\n=PAGE=\r\nSLBDY - Slot Boundary List\r\n\r\nDescription\r\n\r\nDefines a list of slot points which lie on an interface between an\r\naxisymmetric fluid and a set of evenly spaced radial slots.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSLBDY     RHO     M     ID1    ID2    ID3    ID4    ID5    ID6  abc  \r\nĴ\r\nSLBDY    0.002    6      16     17     18     25     20     21  +BDY \r\n\r\nĿ\r\n+bc       ID7   -etc.-                                          +def \r\nĴ\r\n+BDY       22                                                        \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nRHO        Density of fluid at boundary (Real > 0.0, or blank).\r\n\r\nM          Number of slots (Integer >= 0, or blank).\r\n\r\nIDj        Identification numbers of GRIDS slot points at boundary with\r\n           axisymmetric fluid cavity, j = 1,2,...,J (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is allowed only if an AXSLOT card is also present.\r\n\r\n2. If RHO or M is blank the default value on the AXSLOT card is used. The\r\n   effective value must not be zero for RHO. If the effective value of M is\r\n   zero, no matrices at the boundary will be generated.\r\n\r\n3. The order of the list of points determines the topology of the boundary.\r\n   The points are listed sequentially as one travels along the boundary in\r\n   either direction. At least two points must be defined.\r\n\r\n4. More than one logical boundary card may be used.\r\n=PAGE=\r\nSLOAD - Static Scalar Load\r\n\r\nDescription\r\n\r\nUsed to apply static loads to scalar points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSLOAD     SID     S      F      S      F      S      F               \r\nĴ\r\nSLOAD      16     2     5.9     17   -6.3     14   -2.93             \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nS          Scalar point identification number (Integer > 0).\r\n\r\nF          Load value (Real).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. Up to three scalar loads may be defined on a single card.\r\n=PAGE=\r\nSPC - Single-Point Constraint\r\n\r\nDescription\r\n\r\nDefines sets of single-point constraints and enforced displacements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPC       SID     G      C      D      G      C      D               \r\nĴ\r\nSPC        2      32    436   -2.6     5           +2.9              \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of single-point constraint set (Integer >\r\n           0).\r\n\r\nG          Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number (any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when point identification numbers are grid\r\n           points; zero or blank if point identification numbers are scalar\r\n           points).\r\n\r\nD          Value of enforced displacement for all coordinates designated by G\r\n           and C (Real).\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multipoint constraint relation (MPC card) or as a degree of\r\n   freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be\r\n   referenced on a SPC1, OMIT, OMIT1, or SUPORT card. D must be 0.0 for\r\n   dynamics problems.\r\n\r\n2. Single-point forces of constraint are recovered during stress data\r\n   recovery.\r\n\r\n3. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n4. From one to twelve single-point constraints may be defined on a single\r\n   card.\r\n\r\n5. SPC degrees of freedom may be redundantly specified as permanent\r\n   constraints on the GRID card.\r\n\r\n6. The enforced displacement, D, is used only in static analyses (Rigid\r\n   Formats 1, 2, 4, 5, 6, 14).\r\n\r\n7. In heat transfer analysis, constraints applied to component number 1 are\r\n   used to fix the temperature at that point.\r\n\r\n8. D may be used to define an enforced temperature in static heat transfer\r\n   analysis (Rigid Format 1 only). See Section 1.8 for methods of defining\r\n   boundary temperatures in other Rigid Formats.\r\n=PAGE=\r\nSPC1 - Single-Point Constraint\r\n\r\nDescription\r\n\r\nDefines sets of single-point constraints.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPC1      SID     C      G1     G2     G3     G4     G5     G6  abc  \r\nĴ\r\nSPC1       3      2      1      3      10     9      6      5   ABC  \r\n\r\nĿ\r\n+bc        G7     G8     G9   -etc.-                                 \r\nĴ\r\n+BC        2      8                                                  \r\n\r\n\r\nAlternate Form\r\n\r\nĿ\r\nSPC1      SID     C     GID1 \"THRU\"   GID2                           \r\nĴ\r\nSPC1      313   12456    6    THRU     32                            \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of single-point constraint set (Integer >\r\n           0).\r\n\r\nC          Component number (any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when point identification numbers are grid\r\n           points; zero or blank if point identification numbers are scalar\r\n           points).\r\n\r\nGi, GIDi   Grid or scalar point identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Note that enforced displacements are not available via this card. As many\r\n   continuation cards as desired may appear when THRU is not used.\r\n\r\n2. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multi-point constraint relation (MPC) or as a degree of\r\n   freedom on a rigid element (CRIGD1, CRIGD2, CRIGD3, CRIGDR), nor may it be\r\n   referenced on a SPC, OMIT, OMIT1, or SUPORT card.\r\n\r\n3. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n4. SPC degrees of freedom may be redundantly specified as permanent\r\n   constraints on the GRID card.\r\n\r\n5. All grid points referenced by GID1 through GID2 must exist.\r\n\r\n6. In heat transfer analysis, constraints applied to component number 1 are\r\n   used to fix the temperature at a point.\r\n\r\n7. C is 1 only for a heat problem.\r\n=PAGE=\r\nSPCADD - Single-Point Constraint\r\n\r\nDescription\r\n\r\nDefines a single-point constraint set as a union of single-point constraint\r\nsets defined via SPC or SPC1 cards.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCADD    SID     S1     S2     S3     S4     S5     S6     S7  abc  \r\nĴ\r\nSPCADD    100     3      2      9      1                             \r\n\r\nĿ\r\n+bc        S8     S9      -etc.-                                      \r\nĴ\r\n+BC                                                                  \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Identification number for new single-point constraint set (Integer\r\n           > 0; not equal 101 or 102 if axisymmetric).\r\n\r\nSi         Identification numbers of single-point constraint sets defined via\r\n           SPC or SPC1 cards (Integer > 0; SID not equal Si).\r\n\r\nRemarks\r\n\r\n1. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n2. No Si may be the identification number of a single-point constraint set\r\n   defined by another SPCADD card.\r\n\r\n3. The Si values must be unique.\r\n\r\n4. Set identification numbers of 101 or 102 cannot be used in axisymmetric\r\n   problems.\r\n=PAGE=\r\nSPCAX - Axisymmetric Single-Point Constraint\r\n\r\nDescription\r\n\r\nDefines sets of single-point constraints for a model containing CCONEAX,\r\nCTRAPAX, or CTRIAAX elements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCAX     SID    RID    HID     C      V                             \r\nĴ\r\nSPCAX      2      3      4      13    6.0                            \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of single-point constraint set (Integer > 0;\r\n           not equal 101 or 102).\r\n\r\nRID        Ring identification number (see RINGAX) (Integer >= 0).\r\n\r\nHID        Harmonic identification number (Integer >= 0).\r\n\r\nC          Component identification number (any unique combination of the\r\n           digits 1 - 6).\r\n\r\nV          Enforced displacement value (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n3. Coordinates appearing on SPCAX cards may not appear on MPCAX, SUPAX, or\r\n   OMITAX cards.\r\n\r\n4. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nSPCD - Enforced Displacement Value\r\n\r\nDescription\r\n\r\nDefines an enforced displacement value for static analysis, which is requested\r\nas a LOAD.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCD      SID     G      C      D      G      C      D               \r\nĴ\r\nSPCD      100     32    436   -2.6     5           +2.9              \r\n\r\n\r\nField      Contents\r\n\r\nSID        Identification number of a static load set (Integer > 0).\r\n\r\nG          Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number (any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when point identification numbers are grid\r\n           points; zero or blank if point identification numbers are scalar\r\n           points).\r\n\r\nD          Value of enforced displacement for all coordinates designated by G\r\n           and C (Real).\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card must be referenced by a selected SPC\r\n   or SPC1 data card.\r\n\r\n2. Values of D will override the values specified on an SPC bulk data card, if\r\n   the LOAD set is requested.\r\n\r\n3. The bulk data LOAD combination card will not request an SPCD.\r\n\r\n4. At least one bulk data LOAD card (FORCE, SLOAD, etc.) is required in the\r\n   LOAD set selected in the Case Control Deck.\r\n\r\n5. The enforced displacement, D, is used only in static analyses (Rigid\r\n   Formats 1, 2, 4, 5, 6, 14).\r\n\r\n6. In heat transfer analysis, D is used to define an enforced temperature in\r\n   statics analysis (Rigid Format 1 only). See Section 1.8 for methods of\r\n   defining boundary temperatures in other Rigid Formats.\r\n=PAGE=\r\nSPCFLD - Specified Magnetic Field\r\n\r\nDescription\r\n\r\nSpecifies magnetic field at selected grid points.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCFLD    SID    CID    HCX    HCY    HCZ     G1     G2     G3       \r\nĴ\r\nSPCFLD     18          12.25    0.    62.      8     17     103      \r\n\r\n\r\nFirst Alternate Form:\r\n\r\nĿ\r\nSPCFLD    SID    CID    HCX    HCY    HCZ    GID1 \"THRU\"   GID2      \r\nĴ\r\nSPCFLD     18          12.25    0.    62.      9   THRU     27       \r\n\r\n\r\nSecond Alternate Form:\r\n\r\nĿ\r\nSPCFLD    SID    CID    HCX    HCY    HCZ     -1                     \r\nĴ\r\nSPCFLD     18          12.25    0.    62.     -1                     \r\n\r\n\r\nField      Contents\r\n\r\nSID        Load set identification number (Integer > 0).\r\n\r\nCID        Coordinate system identification number (Integer > 0 or blank).\r\n\r\nHCX, HCY, HCZ  Components of specified Hc field in coordinate system CID\r\n           (Real).\r\n\r\nGi, GIDi   Grid point identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Load sets must be selected in the Case Control Deck (LOAD = SID) to be used\r\n   by NASTRAN.\r\n\r\n2. If the first alternate form of the card is used, all grid point\r\n   identification numbers between GID1 and GID2 must exist.\r\n\r\n3. The second alternate form of the card implies that the specified Hc field\r\n   applies to all grid points.\r\n\r\n3. CID must presently be 0 or blank.\r\n=PAGE=\r\nSPCS - Substructure Single Point Constraints\r\n\r\nDescription\r\n\r\nDefines a set of single point constraints on a specified basic substructure.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCS      SID   NAME     G1     C1     G2     C2     G3     C3  abc  \r\nĴ\r\nSPCS       61   MIDWG    9      45     18    124     36    456  ABC  \r\n\r\nĿ\r\n+bc        G4     C4     G5     C5     G6     C6     G7     C7  def  \r\nĴ\r\n+BC        88    136        etc.                                      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nNAME       Basic substructure name (BCD).\r\n\r\nGi         Grid or scalar point identification number in substructure\r\n           (Integer > 0).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multipoint constraint relation, nor may it be referenced on\r\n   a SPCS1, SPC, SP11, OMIT, OMIT1, or SUPORT card.\r\n\r\n2. Single-point forces of constraint are recovered during stress data\r\n   recovery.\r\n\r\n3. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n4. A single G, C pair may not specify all component degrees of freedom for a\r\n   connected grid point where only some of the degrees of freedom of the grid\r\n   point have been connected or when some have been disconnected via the RELES\r\n   card. The degrees of freedom which were connected and those that were not\r\n   connected must be referenced separately.\r\n=PAGE=\r\nSPCS1 - Substructure Single Point Constraints\r\n\r\nDescription\r\n\r\nDefines a set of single point constraints on a specified basic substructure.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCS1     SID   NAME     C      G1     G2     G3     G4     G5  abc  \r\nĴ\r\nSPCS1      15  FUSELAG  1236   1101   1102   1105   THRU   1110 ABC  \r\n\r\nĿ\r\n+bc        G6     G7     G8     G9    G10    G11    G12    G13  def  \r\nĴ\r\n+BC       1121   1130   THRU   1140   1143   1150       etc.          \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nNAME       Basic substructure name (BCD).\r\n\r\nC          Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nGi         Grid or scalar point identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. THRU may appear in fields 6, 7, or 8 of the first card and anywhere in\r\n   fields 3 through 8 on a continuation card.\r\n\r\n2. A coordinate referenced on this card may not appear as a dependent\r\n   coordinate in a multipoint constraint relation, nor may it be referenced on\r\n   a SPCS1, SPC, SPC1, OMIT, OMIT1, or SUPORT card.\r\n\r\n3. Single-point constraint sets must be selected in the Case Control Deck (SPC\r\n   = SID) to be used by NASTRAN.\r\n\r\n4. All grid points referenced by Gi through Gj must exist.\r\n\r\n5. A single G, C pair may not specify all component degrees of freedom for a\r\n   connected grid point where only some of the degrees of freedom of the grid\r\n   point have been connected or when some have been disconnected via the RELES\r\n   card. The degrees of freedom which were connected and those that were not\r\n   connected must be referenced separately.\r\n=PAGE=\r\nSPCSD - Substructure Enforced Displacement Values\r\n\r\nDescription\r\n\r\nDefines enforced displacement values for a given substructure during static\r\nanalysis, which are requested as a LOAD.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPCSD     SID   NAME     G1     C1     D1     G2     C2     D2       \r\nĴ\r\nSPCSD      27  LWINGRT  965     3     3.6                            \r\n\r\n\r\nField      Contents\r\n\r\nSlD        Identification number of a static load set (Integer > 0).\r\n\r\nNAME       Basic substructure name (BCD).\r\n\r\nGi         Grid or scalar point identification number (Integer > 0).\r\n\r\nCi         Component number; any unique combination of the digits 1 - 6 (with\r\n           no imbedded blanks) when the Gi are grid points, or null if they\r\n           are scalar points.\r\n\r\nDi         Value of enforced displacement for all coordinates designated by\r\n           Gi and Ci (Real).\r\n\r\nRemarks\r\n\r\n1. A coordinate referenced on this card must be referenced by a selected SPCS\r\n   or SPCS1 data card.\r\n\r\n2. The bulk data LOAD combination card will not request an SPCSD.\r\n\r\n3. At least one bulk data load card (LOADC or SLOAD) in addition to the SPCSD\r\n   cards is required in the LOAD set selected in case control (LOAD = SID).\r\n=PAGE=\r\nSPLINE1 - Surface Spline\r\n\r\nDescription\r\n\r\nDefines a surface spline for interpolating out-of-plane motion for aeroelastic\r\nproblems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPLINE1   EID   CAERO  BOX1   BOX2   SETG     DZ                     \r\nĴ\r\nSPLINE1    3     111   111    118     14      0.                     \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (unique Integer > 0).\r\n\r\nCAERO      Aero element ID which defines plane of spline (Integer > 0).\r\n\r\nBOX1, BOX2 First and last box whose motions are interpolated using this\r\n           spline (Integer > 0).\r\n\r\nSETG       Refers to a SETi card which lists the structural grid points to\r\n           which the spline is attached (Integer > 0).\r\n\r\nDZ         Linear attachment flexibility (Real >= 0).\r\n\r\nRemarks\r\n\r\n1. The interpolated points (k-set) will be defined by aero-cells. The sketch\r\n   shows the cells for which uk is interpolated if BOX1 = 111 and BOX2 = 118.\r\n\r\nĿ\r\n//////////////////////////////          \r\n///111///////114///////117////   120    \r\n//////////////////////////////          \r\nĴ\r\n//////////////////////////////          \r\n///112///////115///////118////   121    \r\n//////////////////////////////          \r\nĴ\r\n                                        \r\n   113       116       119       122    \r\n                                        \r\n\r\n\r\n2. The attachment flexibility (units of area) is used for smoothing the\r\n   interpolation. If DZ = 0, the spline will pass through all deflected grid\r\n   points. If DZ >> (area of spline), a least squares plane fit will occur.\r\n   Intermediate values will provide smoothing.\r\n=PAGE=\r\nSPLINE2 - Linear Spline\r\n\r\nDescription\r\n\r\nDefines a beam spline for interpolating panels and bodies for aeroelastic\r\nproblems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPLINE2   EID   CAERO   ID1    ID2   SETG     DZ    DTOR   CID  ABC  \r\nĴ\r\nSPLINE2    5      8     12     24     60      0.    1.0     3   abc  \r\n\r\nĿ\r\n+BC       DTHX  DTHY                                                 \r\nĴ\r\n+bc       -1.                                                        \r\n\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nCAERO      Aero panel or body which is to be interpolated (Integer > 0).\r\n\r\nID1, ID2   First and last box or body element whose motions are interpolated\r\n           using this spline (Integer > 0).\r\n\r\nSETG       Refers to a SETi card which lists the structural g-set to which\r\n           the spline is attached (Integer > 0).\r\n\r\nDZ         Linear attachment flexibility (Real >= 0).\r\n\r\nDTOR       Torsional flexibility (EI/GJ) (Real > 0; use 1.0 for bodies).\r\n\r\nCID        Rectangular coordinate system which defines y-axis of spline\r\n           (Integer >= 0) (not used for bodies, CAERO2).\r\n\r\nDTHX, DTHY Rotational attachment flexibility. DTHX is for rotation about the\r\nx-axis; not used for bodies. DTHY is for rotation about the\r\ny-axis; used for slope of bodies (Real).\r\n\r\nRemarks\r\n\r\n1. The interpolated points (k-set) will be defined by aero boxes.\r\n\r\n2. For panels, the spline axis is the projection of the y-axis of coordinate\r\n   system CID, projected onto the plane of the panel. For bodies, the spline\r\n   axis is parallel to the x-axis of the aerodynamic coordinate system.\r\n\r\n3. The flexibilities are used for smoothing. Zero attachment flexibility\r\n   values will imply rigid attachment, that is, no smoothing. (Negative values\r\n   in fields 12 and 13 will imply infinity, hence no attachment.)\r\n\r\n4. A continuation card is required.\r\n\r\n5. The SPLINE2 EID must be unique with respect to all SPLINEi data cards.\r\n=PAGE=\r\nSPLINE3 - Constraint Equation for Aeroelastic Problems\r\n\r\nDescription\r\n\r\nDefines a constraint equation for aeroelastic problems. Useful for control\r\nsurface constraints.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPLINE3   EID   CAERO  UKID   COMP    G1     C1     A1          ABC  \r\nĴ\r\nSPLINE3  7000    107   109      6     33      5     1.0         abc  \r\n\r\nĿ\r\n+BC       G2     C2     A2            G3     C3     A3               \r\nĴ\r\n+bc       43     5     -1.0                                          \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nEID        Element identification number (Integer > 0).\r\n\r\nCAERO      Identification number of macro-element on which the element to be\r\n           interpolated lies (Integer > 0).\r\n\r\nUKID       Identification number of the uk point (that is, the box number)\r\n           (Integer > 0).\r\n\r\nCOMP       The component of motion to be interpolated. 3 = normal rotation, 5\r\n           = pitch angle (for z, yz bodies), 6 = control relative angle (also\r\n           for y-bodies, 2 = lateral displacement and 6 = yaw). (Integer >\r\n           0).\r\n\r\nGi         Grid point identification number of independent grid point\r\n           (Integer > 0).\r\n\r\nCi         Component (in global coordinate system) to be used (one of the\r\n           Integers 1 through 6, or 0 for scalar points).\r\n\r\nAi         Coefficient of constraint relationship (Real).\r\n\r\nRemarks\r\n\r\n1. The independent grid points and components must refer to degrees of freedom\r\n   in the ug point set.\r\n\r\n2. The constraint is given by\r\n\r\n   u  = Ai u\r\n    d   i    i\r\n\r\n   ud = the value of the dependent uk component.\r\n   ui = the displacement at grid Gi, component Ci.\r\n\r\n3. The SPLINE3 EID must be unique with respect to all SPLINEi data cards.\r\n=PAGE=\r\nSPOINT - Scalar Point\r\n\r\nDescription\r\n\r\nDefines scalar points of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSPOINT     ID     ID     ID     ID     ID     ID     ID     ID       \r\nĴ\r\nSPOINT     3      18     1      4      16     2                      \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nSPOINT    ID1  \"THRU\"   ID2                                          \r\nĴ\r\nSPOINT     5    THRU    649                                          \r\n\r\n\r\nField      Contents\r\n\r\nID, ID1, ID2  Scalar point identification number (Integer > 0; IDl < ID2).\r\n\r\nRemarks\r\n\r\n1. Scalar points defined by their appearance on a scalar connection card need\r\n   not appear on an SPOINT card.\r\n\r\n2. All scalar point identification numbers must be unique with respect to all\r\n   other structural, scalar, and fluid points.\r\n\r\n3. This card is used primarily to define scalar points appearing in single or\r\n   multipoint constraint equations but to which no scalar elements are\r\n   connected.\r\n\r\n4. If the alternate form is used, scalar points ID1 through ID2 are defined.\r\n\r\n5. For a discussion of scalar points, see Section 5.6 of the Theoretical\r\n   Manual.\r\n=PAGE=\r\nSTREAML1 - Blade Streamline Grid Data\r\n\r\nDescription\r\n\r\nDefines grid points on a blade streamline from the blade leading edge to the\r\nblade trailing edge.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSTREAML1  SLN     G1     G2     G3     G4     G5     G6     G7  abc  \r\nĴ\r\nSTREAML1   3      2      4      6      8      10     14     16  ABC  \r\n\r\nĿ\r\n+bc        G8     G9   -etc.-                                        \r\nĴ\r\n+BC        20     24                                                 \r\n\r\n\r\nAlternate Form:\r\n\r\nĿ\r\nSTREAML1  SLN    GID1 \"THRU\"   GID2                                  \r\nĴ\r\nSTREAML1   5      6    THRU     12                                   \r\n\r\n\r\nField      Contents\r\n\r\nSLN        Streamline number (Integer > 0).\r\n\r\nGi, GIDi   Grid point identification numbers (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is required for static aerothermoelastic design/analysis and\r\n   blade cyclic modal flutter problems.\r\n\r\n2. There must be one STREAML1 card for each streamline on the blade.\r\n\r\n3. For blade cyclic modal flutter problems, there must be an equal number of\r\n   STREAML1 and STREAML2 cards and the streamline number, SLN, must be the\r\n   same on the corresponding cards.\r\n\r\n4. The streamline numbers, SLN, must increase with increasing radial distance\r\n   of the blade section from the axis of rotation. The lowest SLN and the\r\n   highest SLN will be assumed to represent the blade sections closest to, and\r\n   farthest from, the axis of rotation, respectively.\r\n\r\n5. All grid points should be unique.\r\n\r\n6. All grid points referenced by GID1 through G1D2 must exist.\r\n\r\n7. All STREAML1 cards must have the same number of grid points. The grid\r\n   points must be input from the blade leading edge to the blade trailing edge\r\n   in the correct positional order.\r\n=PAGE=\r\nSTREAML2 - Blade Streamline Flow Data\r\n\r\nDescription\r\n\r\nDefines aerodynamic data for a blade streamline.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSTREAML2  SLN   NSTNS STAGGER CHORD RADIUS/ BSPACE  MACH   DEN  abc  \r\n                                     DCBDZB                          \r\nĴ\r\nSTREAML2   2      3     23.5   1.85   6.07   .886   .934   .066 ABC  \r\n\r\nĿ\r\n+bc       VEL   FLOWA/                                               \r\n                 SWEEP                                               \r\n\r\n+bc     1014.2  55.12                                                \r\n\r\n\r\nField      Contents\r\n\r\nSLN        Streamline number (Integer > 0).\r\n\r\nNSTNS      Number of computing stations on the blade streamline (Integer, 3\r\n           <= NSTNS <= 10).\r\n\r\nSTAGGER    Blade stagger angle in degrees (Real, -90.0 < STAGGER < 90.0).\r\n\r\nCHORD      Blade chord (Real > 0.0).\r\n\r\nRADIUS/DCBDZB  Radius of streamline (for flutter analysis without sweep\r\n           effects) (Real > 0.0) or aC/aZ (for flutter analysis with sweep\r\n           effects) (Real). C is the swept chord and Z is the (local)\r\n           spanwise reference direction. See Remark 4.\r\n\r\nBSPACE     Blade spacing (Real > 0.0).\r\n\r\nMACH       Relative flow Mach number at blade leading edge (Real > 0.0).\r\n\r\nDEN        Gas density at blade leading edge (Real > 0.0).\r\n\r\nVEL        Relative flow velocity at blade leading edge (Real > 0.0).\r\n\r\nFLOWA/SWEEP  Relative flow angle at blade leading edge (for flutter analysis \r\n           without sweep effects) or blade sweep angle (for flutter analysis\r\n           with sweep effects) (Real, -90.0 < FLOWA or SWEEP < 90.0 degrees).\r\n           See Remark 4.\r\n\r\nRemarks\r\n\r\n1. At least three (3), and no more than fifty (50), STREAML2 cards are\r\n   required for a blade cyclic modal flutter analysis.\r\n\r\n2. For blade cyclic modal flutter problems, there must be an equal number of\r\n   STREAML1 and STREAML2 cards and the streamline number, SLN, must be the\r\n   same on the corresponding cards.\r\n\r\n3. It is not required that all streamlines be used to define the aerodynamic\r\n   matrices employed in blade flutter analysis.\r\n\r\n4. For flutter analysis with sweep effects, the use of the NASTRAN card is\r\n   required as follows (see Sections 1.20 and 2.1):\r\n\r\n   NASTRAN SYSTEM(93) = 1\r\n=PAGE=\r\nSUPAX - Axisymmetric Fictitious Support\r\n\r\nDescription\r\n\r\nDefines coordinates at which determinate reactions are to be applied during\r\nthe analysis of a free body modeled with CCONEAX, CTRAPAX, or CTRIAAX\r\nelements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSUPAX     RID    HID     C     RID    HID     C                      \r\nĴ\r\nSUPAX                           4      3      2                      \r\n\r\n\r\nField      Contents\r\n\r\nRID        Ring identification number (Integer > 0).\r\n\r\nHID        Harmonic identification number (Integer >= 0).\r\n\r\nC          Component number (any unique combination of the digits 1 - 6).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. Up to 12 coordinates may appear on a single card.\r\n\r\n3. Coordinates appearing on SUPAX cards may not appear on MPCAX, SPCAX, or\r\n   OMITAX cards.\r\n\r\n4. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n5. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nSUPORT - Fictitious Support\r\n\r\nDescription\r\n\r\nDefines coordinates at which determinate reactions are to be applied to a free\r\nbody during analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nSUPORT     ID     C      ID     C      ID     C      ID     C        \r\nĴ\r\nSUPORT     16    215                                                 \r\n\r\n\r\nField      Contents\r\n\r\nID         Grid or scalar point identification number (Integer > 0).\r\n\r\nC          Component number (zero or blank for scalar points; any unique\r\n           combination of the digits 1 - 6 for grid points).\r\n\r\nRemarks\r\n\r\n1. Coordinates defined on this card may not appear on single-point constraint\r\n   cards (SPC, SPC1), on omit cards (OMIT, OMIT1) or as dependent coordinates\r\n   in multipoint constraint equations (MPC) or as degrees of freedom on rigid\r\n   elements (CRIGD1, CRIGD2, CRIGD3, CRIGDR).\r\n\r\n2. From one to twenty-four support coordinates may be defined on a single\r\n   card.\r\n=PAGE=\r\nTABDMP1 - Structural Damping Table\r\n\r\nDescription\r\n\r\nDefines structural damping as a tabular function of frequency.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABDMP1    ID                                                   abc  \r\nĴ\r\nTABDMP1    3                                                    ABC  \r\n\r\nĿ\r\n+bc       F1     G1     F2     G2     F3     G3     F4     G4        \r\nĴ\r\n+BC       2.5  .01057   2.6  .01362   ENDT                           \r\n\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nFi         Frequency value in cycles per unit time (Real >= 0.0).\r\n\r\nGi         Damping value (Real).\r\n\r\nRemarks\r\n\r\n1. The Fi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps (Fi = Fi+1) are allowed, but not at the end points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any Fi, Gi entry may be ignored by placing the BCD string SKIP in either of\r\n   two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. The TABDMP1 mnemonic implies the use of the algorithm\r\n\r\nĿ\r\n G   =  g (F) \r\n         T    \r\n\r\n\r\n   where F is input to the table and G is returned. The table look-up gT(F) is\r\n   performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average gT(F) is used. There are\r\n   no error returns from this table look-up procedure.\r\n\r\n7. Structural damping tables must be selected in the Case Control Deck (SDAMP\r\n   = ID) to be used by NASTRAN.\r\n\r\n8. Structural damping is used only in modal formulations of complex eigenvalue\r\n   analysis, frequency response analysis, or transient response analysis.\r\n\r\n9. A PARAM, KDAMP, is used in aeroelastic rigid formats to select the type of\r\n   damping. See PARAM bulk data card.\r\n=PAGE=\r\nTABLED1 - Dynamic Load Tabular Function\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating frequency-dependent and\r\ntime-dependent dynamic loads.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLED1    ID                                                   +abc \r\nĴ\r\nTABLED1    32                                                   ABC  \r\n\r\nĿ\r\n+abc      X1     Y1     X2     Y2     X3     Y3     X4     Y4        \r\nĴ\r\n+BC      -3.0    6.9    2.0    5.6    3.0    5.6    ENDT             \r\n\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nXi, Yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The Xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (Xi = Xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED1\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y   =  y (X) \r\n         T    \r\n\r\n\r\n   where X is input to the table and Y is returned. The table look-up yT(x), x\r\n   = X, is performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average yT(x) is used. There are\r\n   no error returns from this table look-up procedure.\r\n\r\n7. Linear extrapolation is not used for Fourier Transform methods. The\r\n   function is zero outside the range.\r\n=PAGE=\r\nTABLED2 - Dynamic Load Tabular Function\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating frequency-dependent and\r\ntime-dependent dynamic loads. Also contains parametric data for use with the\r\ntable.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLED2    ID    X1                                             +abc \r\nĴ\r\nTABLED2    15   -10.5                                           ABC  \r\n\r\nĿ\r\n+abc      x1     y1     x2     y2     x3     y3     x4     y4   +def \r\nĴ\r\n+BC       1.0   -4.5    2.0   -4.2    2.0    2.8    7.0    6.5  DEF  \r\n\r\nĿ\r\n+def      x5     y5     x6     y6     x7     y7     x8     y8        \r\nĴ\r\n+EF      SKIP   SKIP    9.0    6.5    ENDT                           \r\n\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1         Table parameter (Real).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (xi = xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED2\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y   =  y (X -X1) \r\n         T        \r\n\r\n\r\n   where X is input to the table and Y is returned. The table look-up yT(x), x\r\n   = X-X1, is performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average yT(x) is used. There are\r\n   no error returns from this table look-up procedure.\r\n\r\n7. Linear extrapolation is not used for Fourier Transform methods. The\r\n   function is zero outside the range.\r\n=PAGE=\r\nTABLED3 - Dynamic Load Tabular Function\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating frequency-dependent and\r\ntime-dependent dynamic loads. Also contains parametric data for use with the\r\ntable.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLED3    ID     X1     X2                                     +abc \r\nĴ\r\nTABLED3    62   126.9   30.0                                    ABC  \r\n\r\nĿ\r\n+abc      x1     Yy     x2     y2     x3     y3     x4     y4        \r\nĴ\r\n+BC       2.9    2.9    3.6    4.7    5.2    5.7    ENDT             \r\n\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1, X2     Table parameters (Real; X2 not equal 0.0).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (xi = xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any X-Y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED3\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n          (X -X1)\r\n Y   =  y ij\r\n         T   X2  ٳ\r\n\r\n\r\n   where X is input to the table and Y is returned. The table look-up yT(x), x\r\n   = (X-X1)/X2, is performed using linear interpolation within the table and\r\n   linear extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average yT(x) is used. There are\r\n   no error returns from this table look-up procedure.\r\n\r\n7. Linear extrapolation is not used for Fourier Transform methods. The\r\n   function is zero outside the range.\r\n=PAGE=\r\nTABLED4 - Dynamic Load Tabular Function\r\n\r\nDescription\r\n\r\nDefines coefficients of a power series for use in generating\r\nfrequency-dependent and time-dependent dynamic loads. Also contains parametric\r\ndata for use with the table.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLED4    ID     X1     X2     X3     X4                       +abc \r\nĴ\r\nTABLED4    28    0.0    1.0    0.0    100.                      ABC  \r\n\r\nĿ\r\n+abc      A0     A1     A2     A3     A4     A5     A6     A7   +def \r\nĴ\r\n+BC       2.91 -0.0329 6.51-5  0.0  -3.4-7   ENDT                    \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1,...,X4  Table parameters (Real; X2 not equal 0.0; X3 < X4).\r\n\r\nAi         Coefficient entries (Real).\r\n\r\nRemarks\r\n\r\n1. At least one entry must be present.\r\n\r\n2. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in the field following the last entry. An error is detected if any\r\n   continuation cards follow the card containing the end-of-table flag ENDT.\r\n\r\n3. Each TABLEDi mnemonic implies the use of a specific algorithm. For TABLED4\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n        N     (X -X1)i\r\n Y   =    A  ij \r\n       i=0  i    X2   \r\n\r\n\r\n   where X is input to the table and Y is returned. Whenever X < X3, use X3\r\n   for X; whenever X > X4, use X4 for X. There are N + 1 entries in the table.\r\n   There are no error returns from this table look-up procedure.\r\n=PAGE=\r\nTABLEM1 - Material Property Table\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating temperature dependent\r\nmaterial properties.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLEM1    ID                                                   +abc \r\nĴ\r\nTABLEM1    32                                                   ABC  \r\n\r\nĿ\r\n+abc      x1     y1     x2     y2     x3     y3     x4     y4   +def \r\nĴ\r\n+BC      -3.0    6.9    2.0    5.6    3.0    5.6    ENDT             \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (xi = xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any x-y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM1\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y   =  y (X) \r\n         T    \r\n\r\n\r\n   where X is input to the table and Y is returned. The table look-up yT(x), x\r\n   = X, is performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average yT(x) is used. There are\r\n   no error returns from this table look-up procedure.\r\n=PAGE=\r\nTABLEM2 - Material Property Table\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating temperature dependent\r\nmaterial properties. Also contains parametric data for use with the table.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLEM2    ID    X1                                             +abc \r\nĴ\r\nTABLEM2    15   -10.5                                           ABC  \r\n\r\nĿ\r\n+abc      x1     y1     x2     y2     x3     y3     x4     y4   +def \r\nĴ\r\n+BC       1.0   -4.5    2.0   -4.5    2.0    2.8    7.0    6.5  DEF  \r\n\r\nĿ\r\n+def      x5     y5     x6     y6     x7     y7     x8     y8        \r\nĴ\r\n+EF      SKIP   SKIP    9.0    6.5    ENDT                           \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1         Table parameter (Real).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (xi = xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any x-y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM2\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y  = Z y (X -X1) \r\n         T        \r\n\r\n\r\n   where X is input to the table, Y is returned, and Z is supplied from the\r\n   basic MATi card. The table look-up yT(x), x = X - X1, is performed using\r\n   linear interpolation within the table and linear extrapolation outside the\r\n   table using the last two end points at the appropriate table end. At jump\r\n   points the average yT(x) is used. There are no error returns from this\r\n   table look-up procedure.\r\n=PAGE=\r\nTABLEM3 - Material Property Table\r\n\r\nDescription\r\n\r\nDefines a tabular function for use in generating temperature dependent\r\nmaterial properties. Also contains parametric data for use with the table.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLEM3   ID     X1     X2                                      +abc \r\nĴ\r\nTABLEM3   62    126.9  30.0                                     +ABC \r\n\r\nĿ\r\n+abc      x1     y1     x2     y2     x3     y3     x4     y4   +def \r\nĴ\r\n+BC      2.9    2.9    3.6    4.7    5.2    5.7    ENDT              \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1, X2     Table parameters (Real; X2 not equal 0.0).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (xi = xi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any x-y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM3\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y  = Z y  (X -X1) \r\n         T ij\r\n              X2   \r\n\r\n\r\n   where X is input to the table, Y is returned, and Z is supplied from the\r\n   basic MATi card. The table look-up yT(x), x = (X - X1)/X2, is performed\r\n   using linear interpolation within the table and linear extrapolation\r\n   outside the table using the last two end points at the appropriate table\r\n   end. At jump points the average yT(x) is used. There are no error returns\r\n   from this table look-up procedure.\r\n=PAGE=\r\nTABLEM4 - Material Property Table\r\n\r\nDescription\r\n\r\nDefines coefficients of a power series for use in generating temperature\r\ndependent material properties. Also contains parametric data for use with the\r\ntable.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLEM4   ID     X1     X2     X3     X4                        +abc \r\nĴ\r\nTABLEM4   28    0.0    1.0    0.0    100.                       ABC  \r\n\r\nĿ\r\n+abc      A0     A1     A2     A3     A4     A5     A6     A7   +def \r\nĴ\r\n+BC      2.91  -0.03296.51-5  0.0   -3.4-7  ENDT                     \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nX1,...,X4  Table parameters (Real; X2 not equal 0.0; X3 < X4).\r\n\r\nAi         Coefficient entries (Real).\r\n\r\nRemarks\r\n\r\n1. At least one entry must be present.\r\n\r\n2. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in the field following the last entry. An error is detected if any\r\n   continuation cards follow the card containing the end-of-table flag ENDT.\r\n\r\n3. Each TABLEMi mnemonic implies the use of a specific algorithm. For TABLEM4\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n        N     (X -X1)i\r\n Y = Z    A  ij \r\n       i=0  i    X2   \r\n\r\n\r\n   where X is input to the table, Y is returned, and Z is supplied from the\r\n   basic MATi card. Whenever X < X3, use X3 for X; whenever X > X4, use X4 for\r\n   X. There are N + 1 entries in the table. There are no error returns from\r\n   this table look-up procedure.\r\n=PAGE=\r\nTABLES1 - Tabular Stress-Strain Function\r\n\r\nDescription\r\n\r\nDefines a tabular stress-strain function for use in piecewise linear analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABLES1   ID                                                    +abc \r\nĴ\r\nTABLES1   32                                                    ABC  \r\n\r\nĿ\r\n+abc      x1     y1     x2     y2     x3     y3     x4     y4   +def \r\nĴ\r\n+BC      -3.0    6.9    2.0    5.6    3.0    5.6   ENDT              \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nxi, yi     Tabular entries (Real).\r\n\r\nRemarks\r\n\r\n1. The xi must be in either ascending or descending order but not both.\r\n\r\n2. For piecewise linear analysis, the yi numbers must form a non-decreasing\r\n   sequence for an ascending xi sequence and vice versa.\r\n\r\n3. Jumps between two points (xi = xi+l) are allowed, but not at the end\r\n   points.\r\n\r\n4. At least two entries must be present.\r\n\r\n5. Any x-y entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n6. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n7. Each TABLESi mnemonic implies the use of a specific algorithm. For TABLES1\r\n   type tables, this algorithm is\r\n\r\nĿ\r\n Y   =  y (X) \r\n         T    \r\n\r\n\r\n   where X is input to the table and Y is returned. The table look-up yT(x), x\r\n   = X, is performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average yT(x) is used. There are\r\n   no error returns from this table look-up procedure.\r\n\r\n8. The table may have a zero slope only at its end.\r\n=PAGE=\r\nTABRND1 - Power Spectral Density Table\r\n\r\nDescription\r\n\r\nDefines power spectral density as a tabular function of frequency for use in\r\nrandom analysis. Referenced on the RANDPS card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABRND1   ID                                                    abc  \r\nĴ\r\nTABRND1   3                                                     ABC  \r\n\r\nĿ\r\n+bc       f1     g1     f2     g2     f3     g3     f4     g4   def  \r\nĴ\r\n+BC      2.5   .01057  2.6   .01362  ENDT                            \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nfi         Frequency value in cycles per unit time (Real not equal 0.0).\r\n\r\ngi         Power spectral density (Real).\r\n\r\nRemarks\r\n\r\n1. The fi must be in either ascending or descending order but not both.\r\n\r\n2. Jumps between two points (fi = fi+1) are allowed, but not at the end\r\n   points.\r\n\r\n3. At least two entries must be present.\r\n\r\n4. Any f-g entry may be ignored by placing the BCD string SKIP in either of\r\n   the two fields used for that entry.\r\n\r\n5. The end of the table is indicated by the existence of the BCD string ENDT\r\n   in either of the two fields following the last entry. An error is detected\r\n   if any continuation cards follow the card containing the end-of-table flag\r\n   ENDT.\r\n\r\n6. The TABRND1 mnemonic implies the use of the algorithm\r\n\r\nĿ\r\n G   =  g (F) \r\n         T    \r\n\r\n\r\n   where F is input to the table and G is returned. The table look-up gT(F) is\r\n   performed using linear interpolation within the table and linear\r\n   extrapolation outside the table using the last two end points at the\r\n   appropriate table end. At jump points the average gT(F) is used. There are\r\n   no error returns from this table look-up procedure.\r\n=PAGE=\r\nTABRNDG - Gust Power Spectral Density\r\n\r\nDescription\r\n\r\nDefines the power spectral density of a gust for aeroelastic analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTABRNDG   ID    TYPE    LU     WG                                    \r\nĴ\r\nTABRNDG   3       1    1.3     1.                               ABC  \r\n\r\n\r\nField      Contents\r\n\r\nID         Table identification number (Integer > 0).\r\n\r\nTYPE       Choice of Von Karman (TYPE = 1) or Dryden model (TYPE = 2)\r\n           (Integer 1 or 2).\r\n\r\nLU         L/U, scale of turbulence divided by velocity (units of time)\r\n           (Real).\r\n\r\nWG         Root-mean-square gust velocity.\r\n\r\nRemarks\r\n\r\n1. This card must be referenced on a RANDPS data card.\r\n\r\n2. The power spectral density is given by:\r\n\r\n                            1+2(p+l)k**2(L/U)**2w**2\r\n   Sq(w) = 2(WG)**2(L/U) \r\n                         [1+k**2(L/U)**2w**2]**(p+3/2)\r\n\r\n   where\r\n\r\nĿ\r\n     Type       p      k    \r\nĴ\r\n 1=Von Karman  l/3   l.339  \r\n 2=Dryden      l/2   l.0    \r\n\r\n\r\n   and w = 2*pi*f. The units of Sq(w) are velocity squared per Hertz.\r\n\r\n3. Other PSD functions may be defined using the TABRND1 data card.\r\n=PAGE=\r\nTEMP - Grid Point Temperature Field\r\n\r\nDescription\r\n\r\nDefines temperature at grid points for determination of:\r\n\r\n   1. Thermal loading\r\n   2. Temperature-dependent material properties\r\n   3. Stress recovery\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMP      SID     G      T      G      T      G      T               \r\nĴ\r\nTEMP       3     94    316.2   49    219.8                           \r\n\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nG          Grid point identification number (Integer > 0).\r\n\r\nT          Temperature (Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. From one to three grid point temperatures may be defined on a single card.\r\n\r\n3. If thermal effects are requested, all elements must have a temperature\r\n   field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card\r\n   or indirectly as the average of the connected grid point temperatures\r\n   defined on the TEMP or TEMPD cards. Directly defined element temperatures\r\n   always take precedence over the average of grid point temperatures.\r\n\r\n4. If the element material is temperature dependent, its properties are\r\n   evaluated at the average temperature. In the case of isoparametric\r\n   hexahedron elements, their properties are evaluated at the temperature\r\n   computed by interpolating the grid point temperatures.\r\n\r\n5. Average element temperatures are obtained as a simple average of the\r\n   connecting grid point temperatures when no element temperature data are\r\n   defined.\r\n\r\n6. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n\r\n7. In heat transfer analysis, the TEMP card is used for the following special\r\n   purposes:\r\n\r\n   a. The Case Control card, TEMP(MATERIAL), will select the initial estimated\r\n      temperature field for nonlinear conductivity and radiation effects. See\r\n      Section 1.8.\r\n   b. Boundary temperatures are defined in Rigid Format 3, HEAT by the Case\r\n      Control card, TEMP(MATERIAL). These points are specified with SPC cards.\r\n   c. The Case Control card, IC, will select the initial conditions, that is,\r\n      grid point temperatures, in transient analysis.\r\n=PAGE=\r\nTEMPAX - Axisymmetric Temperature\r\n\r\nDescription\r\n\r\nDefines temperature sets for a model containing CCONEAX, CTRAPAX, or CTRIAAX\r\nelements.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPAX    SID    RID    PHI   TEMP    SID    RID    PHI   TEMP       \r\nĴ\r\nTEMPAX     4      7    30.0  105.3                                   \r\n\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nRID        Ring identification number (see RINGAX card) (Integer > 0).\r\n\r\nPHI        Azimuthal angle in degrees (Real).\r\n\r\nTEMP       Temperature (Real).\r\n\r\nRemarks\r\n\r\n1. This card is allowed if and only if an AXIC card is also present.\r\n\r\n2. One or two temperatures may be defined on each card.\r\n\r\n3. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n4. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n\r\n5. At least two different angles are required for each RID and temperature set\r\n   to specify the subtended angle [b-a] over which the temperature applies.\r\n\r\n6. For a discussion of the conical shell problem, see Section 5.9 of the\r\n   Theoretical Manual.\r\n\r\n7. For a discussion of the axisymmetric solid problem, see Section 5.11 of the\r\n   Theoretical Manual.\r\n=PAGE=\r\nTEMPD - Grid Point Temperature Field Default\r\n\r\nDescription\r\n\r\nDefines a temperature default for all grid points of the structural model\r\nwhich have not been given a temperature on a TEMP card.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPD    SID      T    SID      T    SID      T    SID      T        \r\nĴ\r\nTEMPD     1    216.3                                                 \r\n\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nT          Default temperature (Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. From one to four default temperatures may be defined on a single card.\r\n\r\n3. If thermal effects are requested, all elements must have a temperature\r\n   field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card\r\n   or indirectly as the average of the connected grid point temperatures\r\n   defined on the TEMP or TEMPD cards. Directly defined element temperatures\r\n   always take precedence over the average of grid point temperatures.\r\n\r\n4. If the element material is temperature dependent its properties are\r\n   evaluated at the average temperature. In the case of isoparametric\r\n   hexahedron elements, their properties are evaluated at the temperature\r\n   computed by interpolating the grid point temperatures.\r\n\r\n5. Average element temperatures are obtained as a simple average of the\r\n   connecting grid point temperatures when no element temperature data are\r\n   defined.\r\n\r\n6. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n\r\n7. In heat transfer analysis, the TEMP card is used for the following special\r\n   purposes:\r\n\r\n   a. The Case Control card, TEMP(MATERIAL), will select the initial estimated\r\n      temperature field for nonlinear conductivity and radiation effects. See\r\n      Section 1.8.\r\n   b. Boundary temperatures are defined in Rigid Format 3, HEAT, by the Case\r\n      Control card, TEMP(MATERIAL). These points are specified with SPC cards.\r\n   c. The Case Control card, IC, will select the initial conditions, that is,\r\n      grid point temperatures, in transient analysis.\r\n=PAGE=\r\nTEMPP1 - Plate Element Temperature Field\r\n\r\nDescription\r\n\r\nDefines a temperature field for plate, membrane, and combination elements (by\r\nan average temperature and a thermal gradient over the cross-section) for\r\ndetermination of:\r\n\r\n   1. Thermal loading\r\n   2. Temperature-dependent material properties\r\n   3. Stress recovery\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPP1    SID   EID1     T      T'     T1     T2                +abc \r\nĴ\r\nTEMPP1     2     24     62.0   10.0   57.0   67.0               A1A  \r\n\r\nĿ\r\n+abc     EID2   EID3   EID4   EID5   EID6   EID7   EID8   EID9  +def \r\nĴ\r\n+1A       26     21     19     30                                    \r\n\r\n                                -etc.-\r\n\r\nAlternate Form of Continuation Card:\r\n\r\nĿ\r\n+abc     EID2  \"THRU\"  EIDi   EIDj  \"THRU\"  EIDk                +def \r\nĴ\r\n+1A       1     THRU    10     30    THRU    61                      \r\n\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nEIDn       Unique element identification number(s) (Integer > 0 or BCD: the\r\n           continuation card may have THRU in fields 3 and/or 6, in which\r\n           case EID2 < EIDi, EIDj < EIDk).\r\n\r\nT          Average temperature over the cross-section. Assumed constant over\r\n           area (Real).\r\n\r\nT'         Effective linear thermal gradient. Not used for membranes (Real).\r\n\r\nT1, T2     Temperatures for stress calculation, at points defined on the\r\n           element property card. Z1 and Z2 are given on PTRBSC, PQDPLT,\r\n           PTRPLT, PTRIA1, and PQUAD1 cards. T1 may be specified on the lower\r\n           surface and T2 on the upper surface for the QUAD2 and TRIA2\r\n           elements. These data are not used for membrane elements (Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. If continuation cards are present, EID1 and elements specified on the\r\n   continuation card(s) are used. Elements must not be specified more than\r\n   once.\r\n\r\n3. If thermal effects are requested, all elements must have a temperature\r\n   field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card\r\n   or indirectly as the average of the connected grid point temperatures\r\n   defined on the TEMP or TEMPD cards. Directly defined element temperatures\r\n   always take precedence over the average of grid point temperatures.\r\n\r\n4. For a temperature field other than a constant gradient the effective\r\n   gradient for a homogeneous plate is:\r\n\r\n           1   \r\n   T'  =     T(z)z dz\r\n           I   z\r\n\r\n   where I is the bending inertia, and z is the distance from the neutral\r\n   surface in the positive normal direction.\r\n\r\n5. The average temperature for a homogeneous plate is\r\n\r\n             1      \r\n   T  =       T dVolume\r\n           Volume   Volume\r\n\r\n6. If the element material is temperature dependent, its properties are\r\n   evaluated at the average temperature T.\r\n\r\n7. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n=PAGE=\r\nTEMPP2 - Plate Element Temperature Field\r\n\r\nDescription\r\n\r\nDefines a temperature field for plate, membrane, and combination elements by\r\nan average temperature and thermal moments for determination of:\r\n\r\n   1. Thermal loading\r\n   2. Temperature-dependent material properties\r\n   3. Stress recovery\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPP2    SID   EID1     T     MX     MY    MXY     T1     T2   +abc \r\nĴ\r\nTEMPP2     2     36    68.8                                     XYZ  \r\n\r\nĿ\r\n+abc     EID2   EID3   EID4   EID5   EID6   EID7   EID8   EID9  +def \r\nĴ\r\n+YZ      400      1      2      5                                    \r\n\r\n                                -etc.-\r\n\r\nAlternate Form of Continuation Card:\r\n\r\nĿ\r\n+abc     EID2  \"THRU\"  EIDi   EIDj  \"THRU\"  EIDk                +def \r\nĴ\r\n+YZ       37    THRU   312    315    THRU   320                      \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nEIDn       Unique element identification number(s) (Integer > 0 or BCD: a\r\n           continuation card may have THRU in field 3 and/or 6 in which case\r\n           EID2 < EIDi, EIDj < EIDk).\r\n\r\nT          Average temperature over cross-section. Assumed constant over area\r\n           (Real).\r\n\r\nMX, MY, MXY  Resultant thermal moments per unit width in element coordinate \r\n           system. Not used for membrane elements (Real).\r\n\r\nT1, T2     Temperature for stress calculation at points defined on the\r\n           element property card. Z1 and Z2 are given on PTRBSC, PQDPLT,\r\n           PTRPLT, PTRIA1, and PQUAD1 cards. T1 may be specified on the lower\r\n           surface and T2 on the upper surface for the QUAD2 and TRIA2\r\n           elements. These data are not used for membrane elements (Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. If continuation cards are present, EID1 and elements specified on the\r\n   continuation card(s) are used. Elements must not be specified more than\r\n   once.\r\n\r\n3. If thermal effects are requested all elements must have a temperature field\r\n   defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card or\r\n   indirectly as the average of the connected grid point temperatures defined\r\n   on the TEMP or TEMPD cards. Directly defined element temperatures always\r\n   take precedence over the average of grid point temperatures.\r\n\r\n4. The thermal moments in the element coordinate system may be calculated from\r\n   the formula:\r\n\r\n   Mx       \r\n   My   = - | [Ge] { } T(z)z dz\r\n   Mxy              e\r\n\r\n   where the integration is performed over the bending material properties in\r\n   the element coordinate system.\r\n\r\n   [Ge] 3x3 elastic coefficient matrix\r\n\r\n   {e} 3x1 material thermal expansion coefficients\r\n\r\n   T(z) temperature at z\r\n\r\n   z    distance from the neutral surface in the element coordinate system.\r\n\r\n5. The temperature dependent material properties are evaluated at the average\r\n   temperature T. If a property varies with depth, an effective value must be\r\n   used which satisfies the desired elastic and stress relationships. The\r\n   temperatures at the fiber distances may be changed to compensate for local\r\n   differences in e and produce correct stresses.\r\n\r\n6. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n=PAGE=\r\nTEMPP3 - Plate Element Temperature Field\r\n\r\nDescription\r\n\r\nDefines a temperature field for homogeneous plate, membrane, and combination\r\nelements (by a tabular description of the thermal field over the\r\ncross-section) for determination of:\r\n\r\n   1. Thermal loading\r\n   2. Temperature-dependent material properties\r\n   3. Stress recovery.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPP3   SID    EID1    Z0     T0     Z1     T1     Z2     T2   +abc \r\nĴ\r\nTEMPP3    17     39    0.0    32.9   2.0    43.4   2.5    45.0  XY1  \r\n\r\nĿ\r\n+abc      Z3     T3     Z4     T4     Z5     T5     Z6     T6   +def \r\nĴ\r\n+Y1      3.0    60.0   4.0    90.0                              XY2  \r\n\r\nĿ\r\n+def      Z7     T7     Z8     T8     Z9     T9    Z10    T10   +ghi \r\nĴ\r\n+Y2                                                             XY3  \r\n\r\nĿ\r\n+ghi     EID2   EID3   EID4   EID5   EID6   EID7   EID8   EID9  +jkl \r\nĴ\r\n+Y3        1      2      3      4      5      6      8     10        \r\n\r\n                                -etc.-\r\n\r\nAlternate Form of Continuation Card Number 3:\r\n\r\nĿ\r\n+ghi     EID2  \"THRU\"  EIDi   EIDj  \"THRU\"  EIDk                +jkl \r\nĴ\r\n+Y3                            1     THRU    10                      \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer > 0).\r\n\r\nEIDn       Unique element identification number(s) (Integer > 0 or BCD: the\r\n           continuation card may have THRU in fields 3 and/or 6 in which case\r\n           EID2 < EIDi, EIDj < EIDk).\r\n\r\nZ0         Position of the bottom surface with respect to an arbitrary\r\n           reference plane (Real).\r\n\r\nZi         Positions on cross-section from bottom to top of cross-section\r\n           relative to the arbitrary reference plane. There must be an\r\n           increasing sequence with the last nonzero value corresponding to\r\n           the top surface (Real).\r\n\r\nT0         Temperature at the bottom surface (Real).\r\n\r\nTi         Temperature at position Zi (Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. If the third (and succeeding) continuation card is present, EID1 and\r\n   elements specified on the third (and succeeding) continuation cards are\r\n   used. Elements must not be specified more than once.\r\n\r\n3. The first and second continuation card must be present if a list of\r\n   elements is to be used.\r\n\r\n4. If thermal effects are requested, all elements must have a temperature\r\n   field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card\r\n   or indirectly as the average of the connected grid point temperatures\r\n   defined on the TEMP or TEMPD cards. Directly defined element temperatures\r\n   always take precedence over the average of grid point temperatures.\r\n\r\n5. If the element material is temperature dependent, its properties are\r\n   evaluated at the average temperature over the depth which is calculated by\r\n   the program using a linear distribution between points.\r\n\r\n6. For stress recovery, the temperatures at the extreme points z0 and zN are\r\n   assigned to the bottom surface and the top surface of the elements\r\n   specified on either PTRIA2 or QUAD2 data card.\r\n\r\n7. The data is limited to a maximum of eleven points on the temperature-depth\r\n   profile.\r\n\r\n8. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n=PAGE=\r\nTEMPRB - One-Dimensional Element Temperature Field\r\n\r\nDescription\r\n\r\nDefines a temperature field for the BAR, ROD, TUBE, and CONROD elements for\r\ndetermination of:\r\n\r\n   1. Thermal loading\r\n   2. Temperature-dependent material properties\r\n   3. Stress recovery\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTEMPRB    SID   EID1    TA     TB    T'1a   T'1b   T'2a   T'2b  +abc \r\nĴ\r\nTEMPRB    200    1     68.0   23.0   0.0    28.0          2.5   AXY10\r\n\r\nĿ\r\n+abc      TCa    TDa   TEa    TFa    TCb    TDb    TEb    TFb   +def \r\nĴ\r\n+XY10    68.0   91.0   45.0          48.0   80.0   20.0         AXY20\r\n\r\nĿ\r\n+def     EID2   EID3   EID4   EID5   EID6   EID7   EID8   EID9  +ghi \r\nĴ\r\n+XY20     9      10                                                  \r\n\r\n                                -etc.-\r\n\r\nAlternate Form for Continuation Card Number 2:\r\n\r\nĿ\r\n+def     EID2  \"THRU\"  EIDi   EIDj  \"THRU\"  EIDk                +ghi \r\nĴ\r\n+XY20     2     THRU    4      10    THRU    14                      \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Temperature set identification number (Integer 0).\r\n\r\nEIDn       Unique element identification number(s) (Integer > 0 or BCD: the\r\n           second continuation card may have THRU in fields 3 and/or 6 in\r\n           which case EID2 < EID1, EIDj < EIDk).\r\n\r\nTA, TB     Average temperature over the area at end a and end b (Real).\r\n\r\nT'ij       Effective linear gradient in direction i on end j (BAR only,\r\n           Real).\r\n\r\nTij        Temperatures at point i as defined on the PBAR card(s) at end j.\r\n           These data are used for stress recovery only (BAR only, Real).\r\n\r\nRemarks\r\n\r\n1. Temperature sets must be selected in the Case Control Deck (TEMP = SID) to\r\n   be used by NASTRAN.\r\n\r\n2. If at least one nonzero or nonblank Tij is present, the point temperatures\r\n   given are used for stress recovery. If no Tij values are given, linear\r\n   temperature gradients are assumed for stresses.\r\n\r\n3. If the second (and succeeding) continuation card is present, EID1 and\r\n   elements specified on the second (and succeeding) continuation cards are\r\n   used. Elements must not be specified more than once.\r\n\r\n4. If thermal effects are requested, all elements must have a temperature\r\n   field defined either directly on a TEMPP1, TEMPP2, TEMPP3, or TEMPRB card\r\n   or indirectly as the average of the connected grid point temperatures\r\n   defined on the TEMP or TEMPD cards. Directly defined element temperatures\r\n   always take precedence over the average of grid point temperatures.\r\n\r\n5. The effective thermal gradients in the element coordinate system for the\r\n   BAR element are defined by the following integrals over the cross-section.\r\n   For end a (end b is similar):\r\n\r\n             1   \r\n   T'    =     T (y,z)y dA\r\n    1a       I   A  a\r\n              1\r\n\r\n             1   \r\n   T'    =     T (y,z)z dA\r\n    2a       I   A  a\r\n              2\r\n\r\n   where Ta(y,z) is the temperature at point y,z (in the element coordinate\r\n   system) at end a of the BAR. See Section 1.3, Figure 1.3-1 for the element\r\n   coordinate system: I1 and I2 are the moment of inertia about the z and y\r\n   axis respectively. The temperatures are assumed to vary linearly along the\r\n   length (x-axis). Note that if the temperature varies linearly over the\r\n   cross-section then T'1a, T'1b, T'2a, and T'2b are the actual gradients.\r\n\r\n6. If the element material is temperature dependent, the material properties\r\n   are evaluated at the average temperature\r\n\r\n    T  + T\r\n     A    B\r\n   \r\n        2\r\n\r\n7. Set ID must be unique with respect to all other LOAD type cards if\r\n   TEMP(LOAD) is specified in the Case Control Deck.\r\n=PAGE=\r\nTF - Dynamic Transfer Function\r\n\r\nDescription\r\n\r\n1. May be used to define a transfer function of the form\r\n\r\n                  2                                2\r\n   (BO + B1p + B2p )u  +  (AO(i) + A1(i)p + A2(i)p )u  = 0\r\n                     d   i                            i\r\n\r\n2. May be used as a means of direct matrix input.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTF       SID     GD     CD     B0     B1     B2                 +abc \r\nĴ\r\nTF        1       2      3     4.0    5.0    6.0                     \r\n\r\nĿ\r\n+abc     G(1)   C(1)  A0(1)  A1(1)  A2(1)                       +def \r\nĴ\r\n+ABC      3       4    5.0    6.0    7.0                             \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nGD, G(i)   Grid, scalar, or extra point identification numbers (Integer > 0).\r\n\r\nCD, C(i)   Component numbers (null or zero for scalar or extra points, any\r\n           one of the digits 1 - 6 for a grid point).\r\n\r\nB0, B1, B2; A0(i), A1(i), A2(i)  Transfer function coefficients (Real).\r\n\r\nRemarks\r\n\r\n1. The matrix elements defined by this card are added to the dynamic matrices\r\n   for the problem.\r\n\r\n2. Transfer function sets must be selected in the Case Control Deck (TFL =\r\n   SID) to be used by NASTRAN.\r\n\r\n3. The constraint relation given above will hold only if no elements are\r\n   connected to the dependent coordinate.\r\n=PAGE=\r\nTIC - Transient Initial Condition\r\n\r\nDescription\r\n\r\nDefines values for the initial conditions of coordinates used in transient\r\nanalysis. Both displacement and velocity values may be specified at\r\nindependent coordinates of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTIC       SID     G      C     U0     V0                             \r\nĴ\r\nTIC        1      3      2     5.0   -6.0                            \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nG          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nC          Component number (blank or zero for scalar or extra points, any\r\n           one of the digits 1 - 6 for a grid point).\r\n\r\nU0         Initial displacement value (Real).\r\n\r\nV0         Initial velocity value (Real).\r\n\r\nRemarks\r\n\r\n1. Transient initial condition sets must be selected in the Case Control Deck\r\n   (IC = SID) to be used by NASTRAN for structural analysis; however, this\r\n   card should not be used to define initial temperatures in heat transfer\r\n   analysis. (See Section 2.3.)\r\n\r\n2. If no TIC set is selected in the Case Control Deck, all initial conditions\r\n   are assumed zero.\r\n\r\n3. Initial conditions for coordinates not specified on TIC cards will be\r\n   assumed zero.\r\n\r\n4. Initial conditions may be used only in direct formulation.\r\n=PAGE=\r\nTICS - Transient Initial Condition, Substructure Analysis\r\n\r\nDescription\r\n\r\nDefines values for the initial conditions of coordinates used in direct\r\ntransient analysis. Both displacement and velocity values may be specified at\r\nindependent coordinates of the structural model.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTICS      SID   NAME     G      C     U0     V0                      \r\nĴ\r\nTICS       1    SPAR     3      2    5.0    -6.0                     \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nNAME       Basic substructure name.\r\n\r\nG          Grid or scalar or extra point identification number (Integer > 0).\r\n\r\nC          Component number (null or zero for scalar or extra points, any one\r\n           of the digits 1 - 6 for a grid point).\r\n\r\nU0         Initial displacement value (Real).\r\n\r\nV0         Initial velocity value (Real).\r\n\r\nRemarks\r\n\r\n1. Transient initial condition sets must be selected in the Case Control Deck\r\n   (IC = SID) to be used by NASTRAN.\r\n\r\n2. If no TIC set is selected in the Case Control Deck, all initial conditions\r\n   are assumed zero.\r\n\r\n3. Initial conditions for coordinates not specified on TIC cards will be\r\n   assumed zero.\r\n\r\n4. Initial conditions may be used only in direct formulation (Rigid Format 9)\r\n   and may only be applied to the analysis of degrees of freedom, that is,\r\n   only those coordinates retained in the solution substructure and not\r\n   constrained using MPC, SPC, or OMIT data.\r\n\r\n5. Used in substructure SOLVE operation.\r\n=PAGE=\r\nTLOAD1 - Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines a time-dependent dynamic load of the form\r\n\r\n   {P(t)} = {A F(t - )}\r\n\r\nfor use in transient response problems.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTLOAD1    SID     L      M            TF                             \r\nĴ\r\nTLOAD1     5      7      9            13                             \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nL          Identification number of DAREA card set or a thermal load set\r\n           which defines A (Integer > 0). For automated multi-stage\r\n           substructuring, reference a DAREAS card set. If desired, the set\r\n           identification may also reference LOADC cards.\r\n\r\nM          Identification number of DELAY or DELAYS card set which defines \r\n           (Integer >= 0).\r\n\r\nTF         Identification number of TABLEDi card which gives F(t - )\r\n           (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. If M is zero,  will be zero.\r\n\r\n2. Field 5 must be blank.\r\n\r\n3. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID)\r\n   to be used by NASTRAN.\r\n\r\n4. TLOAD1 loads may be combined with TLOAD2 loads only by specification on a\r\n   DLOAD card. That is, the SID on a TLOAD1 card may not be the same as that\r\n   on a TLOAD2 card.\r\n\r\n5. SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards.\r\n\r\n6. Field 3 may reference sets containing QHBDY, QBDY1, QBDY2, QVECT, and QVOL\r\n   cards when using the heat transfer option.\r\n\r\n7. If the heat transfer option is used, the referenced QVECT data card may\r\n   also contain references to functions of time, and therefore A may be a\r\n   function of time.\r\n\r\n8. Fourier analysis will be used if this is selected in an aeroelastic\r\n   response problem.\r\n\r\n9. With automated multi-stage substructuring, DAREAS cards may only reference\r\n   degrees of freedom in the boundary set of the solution structure.\r\n\r\n10.   When L references LOADC cards, DAREAS cards with the same set\r\n      identification and non-zero loads must also exist.\r\n=PAGE=\r\nTLOAD2 - Transient Response Dynamic Load\r\n\r\nDescription\r\n\r\nDefines a time-dependent dynamic load of the form\r\n\r\n              \r\n                    ~         ~\r\n               {O}, t < 0  or t > T2 - T1\r\n              \r\n   {P(t)}  =                           \r\n                      ~                \r\n                 ~B  Ct          ~             ~\r\n               A t  e   cos (2piFt + P) , 0 <= t <= T2 - T1\r\n                                       \r\n              \r\n\r\nfor use in transient response problems where t-tilde = t - T1 - .\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTLOAD2    SID     L      M            T1     T2      F      P   +abc \r\nĴ\r\nTLOAD2     4     10      7            2.1    4.7   12.0   30.0  +12  \r\n\r\nĿ\r\n+bc        C      B                                                  \r\nĴ\r\n+12       2.0    3.0                                                 \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nL          Identification number of DAREA card set or a thermal load set\r\n           which defines A (Integer > 0). For automated multi-stage\r\n           substructuring, reference a DAREAS card set. If desired, the set\r\n           identification may also reference LOADC cards.\r\n\r\nM          Identification number of DELAY or DELAYS card set which defines \r\n           (Integer >= 0).\r\n\r\nT1         Time constant (Real >= 0.0).\r\n\r\nT2         Time constant (Real, T2 > T1).\r\n\r\nF          Frequency in cycles per unit time (Real >= 0.0).\r\n\r\nP          Phase angle in degrees (Real).\r\n\r\nC          Exponential coefficient (Real).\r\n\r\nB          Growth coefficient (Real).\r\n\r\nRemarks\r\n\r\n1. If M is zero,  will be zero.\r\n\r\n2. Field 5 must be blank.\r\n\r\n3. Dynamic load sets must be selected in the Case Control Deck (DLOAD = SID)\r\n   to be used by NASTRAN.\r\n\r\n4. TLOAD2 loads may be combined with TLOAD1 loads only by specification on a\r\n   DLOAD card. That is, the SID on a TLOAD2 card may not be the same as that\r\n   on a TLOAD1 card.\r\n\r\n5. SID must be unique for all TLOAD1, TLOAD2, RLOAD1, and RLOAD2 cards.\r\n\r\n6. Field 3 may reference load sets containing QHBDY, QBDY1, QBDY2, QVECT,\r\n   QVOL, and SLOAD cards when using the heat transfer option.\r\n\r\n7. If the heat transfer option is being used, the referenced QVECT load card\r\n   may also contain references to functions of time, and therefore A may be a\r\n   function of time.\r\n\r\n8. Fourier analysis will be used if this selection is an aeroelastic response\r\n   problem.\r\n=PAGE=\r\nTRANS - Component Substructure Transformation Definition\r\n\r\nDescription\r\n\r\nDefines the location and orientation of the component substructure basic\r\ncoordinate system axes relative to the basic coordinate system of the\r\nsubstructure formed as a result of the substructure COMBINE operation. The\r\ntranslation and rotation matrices are defined by specifying the coordinates of\r\nthree points: A, B, C. The coordinates of points A, B, C must be expressed on\r\nthis card in the basic coordinate system of the resultant combined\r\nsubstructure as follows:\r\n\r\n   A  defines the location of the origin of the basic coordinate system of the\r\n      component substructure.\r\n\r\n   B  defines the location of a point on the z axis of the basic coordinate\r\n      system of the component substructure.\r\n\r\n   C  defines the location of a point in the positive x side of the xz plane\r\n      of the basic coordinate system of the component substructure.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTRANS     SID           A1     A2     A3     B1     B2     B3   +abc \r\nĴ\r\nTRANS      1            0.0    0.0    0.0    0.0   -0.5   10.0  ABC  \r\n\r\nĿ\r\n+bc       C1     C2     C3                                           \r\nĴ\r\n+BC       0.0   10.0    0.5                                          \r\n\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nA1, A2, A3; C1, C2, C3; B1, B2, B3  Coordinates of the points defining system\r\n           as described above.\r\n\r\nRemarks\r\n\r\n1. Continuation card must be present.\r\n\r\n2. Coordinates A, B, C are given in BASIC coordinate system of the result\r\n   substructure.\r\n\r\n3. The value of SID must be unique with respect to all other TRANS data cards.\r\n\r\n4. Transformation sets for a whole substructure must be selected in the\r\n   substructure Control Deck (TRANS = SID) to be used by NASTRAN. Note that\r\n   TRANS is a subcommand of the substructure COMBINE command.\r\n\r\n5. Transformation of individual grid points in a substructure prior to\r\n   combining them is requested by the GTRAN Bulk Data card which references\r\n   the TRANS information.\r\n\r\n6. The three points (A1, A2, A3), (B1, B2, B3), (C1, C2, C3) must be unique\r\n   and non-collinear.\r\n=PAGE=\r\nTSTEP - Transient Time Step\r\n\r\nDescription\r\n\r\nDefines time step intervals at which solution will be generated and output in\r\ntransient analysis.\r\n\r\nFormat and Example\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nTSTEP     SID    N(1)  DT(1)  NO(1)                             +abc \r\nĴ\r\nTSTEP      2     10    .001    5                                +ABC \r\n\r\nĿ\r\n+abc             N(2)  DT(2)  NO(2)                             +def \r\nĴ\r\n+ABC              9    0.01    1                                +DEF \r\n\r\n                                -etc.-\r\n\r\nField      Contents\r\n\r\nSID        Set identification number (Integer > 0).\r\n\r\nN(i)       Number of time steps of value DT(i) (Integer >= 2).\r\n\r\nDT(i)      Time increment (Real > 0.0).\r\n\r\nNO(i)      Skip factor for output (every NO(i)th step will be saved for\r\n           output.) (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. TSTEP cards must be selected in the Case Control Deck (TSTEP = SID) in\r\n   order to be used by NASTRAN.\r\n\r\n2. In aeroelastic response problems, this card is required only when TLOAD is\r\n   requested, that is, when Fourier methods are selected.\r\n\u001a\r\n"
  },
  {
    "path": "um/CASE.TXT",
    "content": "=PAGE=\r\n2.3  CASE CONTROL DECK\r\n\r\n2.3.1  Data Selection\r\n\r\n  The Case Control cards that are used for selecting items from the Bulk Data\r\nDeck are listed below in functional groups. A detailed description of each\r\ncard is given in Section 2.3.4. The first four characters of the mnemonic are\r\nsufficient if unique.\r\n\r\n  The following Case Control cards are associated with the selection of\r\napplied loads for both static and dynamic analysis:\r\n\r\n  1. DEFORM - selects element deformation set.\r\n\r\n  2. DLOAD - selects dynamic loading condition.\r\n\r\n  3. DSCOEFFICIENT - selects loading factor for normal modes with\r\n     differential stiffness.\r\n\r\n  4. LOAD - selects static structural loading condition or heat power and/or\r\n     flux.\r\n\r\n  5. NONLINEAR - selects nonlinear loading condition for transient response.\r\n\r\n  6. PLCOEFFICIENT - selects loading increments for piecewise linear\r\n     analysis.\r\n\r\n  The following case control cards are used for the selection of constraints:\r\n\r\n  1. AXISYMMETRIC - selects boundary conditions for conical shell and\r\n     axisymmetric solid elements; specifies the existence of fluid harmonics\r\n     for a hydroelastic problem; or the applied source magnetic field in\r\n     magnetostatic problem.\r\n\r\n  2. MPC - selects set of multipoint constraints for structural displacement\r\n     or heat transfer boundary temperature relationships.\r\n\r\n  3. SPC - selects set of single-point constraints for structural\r\n     displacements or heat transfer boundary temperatures.\r\n\r\n  The following case control cards are used for the selection of direct input\r\nmatrices:\r\n\r\n  1. B2PP - selects direct input structural damping or thermal capacitance\r\n     matrices.\r\n\r\n  2. K2PP - selects direct input structural stiffness or thermal conductance\r\n     matrices.\r\n\r\n  3. M2PP - selects direct input mass matrices.\r\n\r\n  4. TFL - selects transfer functions.\r\n\r\n  The following case control cards specify the conditions for dynamic\r\nanalyses:\r\n\r\n  1. CMETHOD - selects the conditions for complex eigenvalue extraction.\r\n\r\n  2. FREQUENCY - selects the frequencies to be used for frequency and random\r\n     response calculations.\r\n\r\n  3. IC - selects the initial conditions for direct transient response.\r\n\r\n  4. METHOD - selects the conditions for real eigenvalue analysis.\r\n\r\n  5. RANDOM - selects the power spectral density functions to be used in\r\n     random analysis.\r\n\r\n  6. SDAMPING - selects table to be used for determination of modal damping.\r\n\r\n  7. TSTEP - selects time steps to be used for integration in transient\r\n     response problems.\r\n\r\n  8. FMETHOD - selects method to be used in aeroelastic flutter analysis.\r\n\r\n  9. GUST - selects aerodynamic gust loading in aeroelastic response\r\n     analysis.\r\n\r\n  The following case control cards are associated with the use of thermal\r\nfields:\r\n\r\n  1. TEMPERATURE(LOAD) - selects thermal field to be used for determining\r\n     equivalent static loads.\r\n\r\n  2. TEMPERATURE(MATERIAL) - selects thermal field to be used for determining\r\n     structural material properties or an estimate of the temperature\r\n     distribution for heat transfer iterations.\r\n\r\n  3. TEMPERATURE - selects thermal field for determining both equivalent\r\n     static loads and material properties.\r\n\r\n2.3.2  Output Selection\r\n\r\n  Printer output requests may be grouped in packets following OUTPUT cards or\r\nthe individual requests may be placed anywhere in the Case Control Deck ahead\r\nof any structure plotter or curve plotter requests. Plotter requests are\r\ndescribed in Section 4. The Case Control cards that are used for output\r\nselection are listed below in functional groups. A detailed description of\r\neach card is given in Section 2.3.4.\r\n\r\n  The following cards are associated with output control, titling and bulk\r\ndata echoes:\r\n\r\n  1. TITLE - defines a text to be printed on first line of each page of\r\n     output.\r\n\r\n  2. SUBTITLE - defines a text to be printed on second line of each page of\r\n     output.\r\n\r\n  3. LABEL - defines a text to be printed on third line of each page of\r\n     output.\r\n\r\n  4. LINE - sets the number of data lines per printed page, default is 50 for\r\n     11-Inch paper.\r\n\r\n  5. MAXLINES - sets the maximum number of output lines, default is 20000.\r\n\r\n  6. ECHO - selects echo options for Bulk Data Deck, default is a sorted bulk\r\n     data echo. Note: Echoes of the Executive Control and the Case Control\r\n     decks are automatically printed and cannot be suppressed.\r\n\r\n  The following cards are used in connection with some of the specific output\r\nrequests for calculated quantities:\r\n\r\n  1. SET - defines lists of point numbers, elements numbers, or frequencies\r\n     for use in output requests.\r\n\r\n  2. OFREQUENCY - selects a set of frequencies to be used for output requests\r\n     in frequency and aeroelastic response problems (default is all\r\n     frequencies) or flutter velocities.\r\n\r\n  3. TSTEP - selects a set of time steps to be used for output requests in\r\n     transient response problems.\r\n\r\n  4. OTIME - selects a set of times to be used for output requests in\r\n     transient analysis problems (default is all times).\r\n\r\n  The following cards are used to make output requests for the calculated\r\nresponse of components in the SOLUTION set (components in the direct or modal\r\nformulation of the general K system) for dynamics problems:\r\n\r\n  1. SACCELERATION - requests the acceleration of the independent components\r\n     for a selected set of points or modal coordinates.\r\n\r\n  2. SDISPLACEMENT - requests the displacements of the independent components\r\n     for a selected set of points or modal coordinates or the temperatures of\r\n     the independent components for a selected set of points in heat\r\n     transfer.\r\n\r\n  3. SVELOCITY - requests the velocities of the independent components for a\r\n     selected set of points or modal coordinates or the change in temperature\r\n     with respect to time of the independent components for a selected set of\r\n     points in heat transfer.\r\n\r\n  4. NLLOAD - requests the nonlinear loads for a selected set of physical\r\n     points (grid points and extra points introduced for dynamic analysis) in\r\n     transient response problems.\r\n\r\n  The following cards are used to make output requests for stresses and\r\nforces, as well as calculated response of degrees of freedom used in the\r\nmodel:\r\n\r\n  1. FORCE or ELFORCE - requests the forces in a set of structural elements\r\n     or the temperature gradients and fluxes in a set of structural or heat\r\n     elements in heat transfer.\r\n\r\n  2. STRESS or ELSTRESS - requests the stresses in a set of structural\r\n     elements or the velocity components in a fluid element in acoustic\r\n     cavity analysis.\r\n\r\n  3. SPCFORCES - requests the single-point forces of constraint at a set of\r\n     points or the thermal power transmitted to a selected set of points in\r\n     heat transfer.\r\n\r\n  4. OLOAD - selects a set of applied loads for output.\r\n\r\n  5. ACCELERATION - requests the accelerations for a selected set of PHYSICAL\r\n     points (grid, scalar and fluid points plus extra points introduced for\r\n     dynamic analysis).\r\n\r\n  6. DISPLACEMENT - requests the displacements for a selected set of PHYSICAL\r\n     points or the temperatures for a selected set of PHYSICAL points in heat\r\n     transfer or the pressures for a selected set of PHYSICAL points in\r\n     hydroelasticity.\r\n\r\n  7. VELOCITY - requests the velocities for a selected set of PHYSICAL points\r\n     or the change in temperatures with respect to time for a selected set of\r\n     PHYSICAL points in heat transfer.\r\n\r\n  8. HARMONICS - controls the number of harmonics that will be output for\r\n     requests associated with the conical shell, axisymmetric solids and\r\n     hydroelastic problems.\r\n\r\n  9. ESE - requests structural element strain energies in Rigid Format 1.\r\n\r\n  10.  GPFORCE - requests grid point force balance due to element forces,\r\n       forces of single point constraint, and applied loads in Rigid Format\r\n       1.\r\n\r\n  11.  THERMAL - requests temperatures for a set of PHYSICAL points in heat\r\n       transfer.\r\n\r\n  12.  PRESSURE - requests pressures for a set of PHYSICAL points in\r\n       hydroelasticity.\r\n\r\n  13.  VECTOR - requests displacements for a selected set of PHYSICAL\r\n       points.\r\n\r\n  14.  MPCFORCE - requests multipoint forces of constraint at a set of\r\n       points in Rigid Formats 1, 2, 3, 14, and 15.\r\n\r\n  15.  NCHECK - requests significant digits to indicate numerical accuracy\r\n       of element stress and force computations.\r\n\r\n  16.  AEROF - requests frequency-dependent aerodynamic loads on\r\n       interconnection points in aeroelastic response analysis.\r\n\r\n  17.  STRAIN - requests the strains/curvatures in a set of structural\r\n       elements (applicable to TRIA1, TRIA2, QUAD1, and QUAD2 only).\r\n\r\n  18.  SCAN - SCANs output data and eliminates values that do not meet the\r\n       specification set by this SCAN card.\r\n\r\n2.3.3  Subcase Definition\r\n\r\n  In general, a separate subcase is defined for each loading condition. In\r\nstatics problems separate subcases are also defined for each set of\r\nconstraints. In complex eigenvalue analysis and frequency response separate\r\nsubcases are defined for each unique set of direct input matrices. Subcases\r\nmay be used in connection with output requests, such as in requesting\r\ndifferent output for each mode in a real eigenvalue problem.\r\n\r\n  The Case Control Deck is structured so that a minimum amount of repetition\r\nis required. Only one level of subcase definition is necessary. All items\r\nplaced above the subcase level (ahead of the first subcase) will be used for\r\nall following subcases, unless overridden within the individual subcase.\r\n\r\n  In statics problems, subcases may be combined through the use of the SUBCOM\r\nfeature. Individual loads may be defined in separate subcases and then\r\ncombined by the SUBCOM. If the loads are mechanical, the responses are\r\ncombined as shown in example 2, which follows. If a thermal load is involved,\r\nthe responses due to mechanical and thermal loads may be recovered as shown in\r\nexample 1. By redefining the thermal load(s) at the SUBCOM level, stresses and\r\nforces may be recovered.\r\n\r\n  In statics problems, provision has been made for the combination of the\r\nresults of several subcases. This is convenient for studying various\r\ncombinations of individual loading conditions and for the superposition of\r\nsolutions for symmetrical and antisymmetrical boundaries.\r\n\r\n  Typical examples of subcase definition are given following a brief\r\ndescription of the cards used in subcase definitions.\r\n\r\n  The following case control cards are associated with subcase definition:\r\n\r\n  1. SUBCASE - defines the beginning of a subcase that is terminated by the\r\n     next subcase delimiters encountered.\r\n\r\n  2. SUBCOM - defines a combination of two or more immediately preceding\r\n     subcases in statics problems. Output requests above the subcase level\r\n     are used.\r\n\r\n  3. SUBSEQ  - must appear in a subcase defined by SUBCOM to give the\r\n     coefficients for making the linear combination of the preceding\r\n     subcases.\r\n\r\n  4. SYM - defines a subcase in statics problems for which only output\r\n     requests within the subcase will be honored. Primarily for use with\r\n     symmetry problems where the individual parts of the solution may not be\r\n     of interest.\r\n\r\n  5. SYMCOM - defines a combination of two or more immediately preceding SYM\r\n     subcases in static problems. Output requests above the subcase level are\r\n     used.\r\n\r\n  6. SYMSEQ - may appear in a subcase defined by SYMCOM to give the\r\n     coefficient for making the linear combination of the preceding SYM\r\n     subcases. A default value of 1.0 is used if no SYMSEQ card appears.\r\n\r\n  7. REPCASE - defines a subcase in statics problems that is used to make\r\n     additional output requests for the previous real subcase. This card is\r\n     required because multiple output requests for the same item are not\r\n     permitted in the same subcase. Output requests above the subcase level\r\n     are still used. .\r\n\r\n  8. MODES - controls the output for a given subcase as specified by the\r\n     number of modes, otherwise all modes will be used.\r\n\r\n  The following examples of Case Control Decks indicate typical ways of\r\ndefining subcases:\r\n\r\n1. Static analysis with multiple loads\r\n\r\n  OUTPUT\r\n      DISPLACEMENT = ALL\r\n  MPC = 3\r\n      SUBCASE 1\r\n          SPC = 2\r\n          TEMPERATURE(LOAD) = 101\r\n          LOAD = 11\r\n      SUBCASE 2\r\n          SPC = 2\r\n          DEFORM = 52\r\n          LOAD = 12\r\n      SUBCASE 3\r\n          SPC = 4\r\n          LOAD = 12\r\n      SUBCASE 4\r\n          MPC = 4\r\n          SPC = 4\r\n\r\nFour subcases are defined in this example. The displacements at all grid\r\npoints will be printed for all four subcases. MPC = 3 will be used for the\r\nfirst three subcases and will be overridden by MPC = 4 in the last subcase.\r\nSince the constraints are the same for subcases 1 and 2 and the subcases are\r\ncontiguous, the static solutions will be performed simultaneously. In subcase\r\n1, thermal load 101 and external load 11 are internally superimposed, as are\r\nthe external and deformation loads in subcase 2. In subcase 4 the static\r\nloading will result entirely from enforced displacements of grid points.\r\n\r\n2. Linear combination of subcases\r\n\r\n  SPC = 2\r\n  OUTPUT\r\n      SET 1 = 1 THRU 10,20,30\r\n      DISPLACEMENT = ALL\r\n      STRESS = 1\r\n  SUBCASE 1\r\n      LOAD = 101\r\n      OLOAD = ALL\r\n  SUBCASE 2\r\n      LOAD = 201\r\n      OLOAD = ALL\r\n  SUBCOM 51\r\n      SUBSEQ = 1.0,1.0\r\n  SUBCOM 52\r\n      SUBSEQ = 2.5,1.5\r\n\r\nTwo static loading conditions are defined in subcases 1 and 2. SUBCOM 51\r\ndefines the sum of subcases 1 and 2. SUBCOM 52 defines a linear combination\r\nconsisting of 2.5 times subcase 1 plus 1.5 times subcase 2. The displacements\r\nat all grid points and the stresses for the element numbers in SET will be\r\nprinted for all four subcases. In addition, the nonzero components of the\r\nstatic load vectors will be printed for subcases 1 and 2.\r\n\r\n3. Statics problem with one plane of symmetry\r\n\r\n  OUTPUT\r\n      SET 1 = 1,11,21,31,51\r\n      SET 2 = 1 THRU 10, 101 THRU 110\r\n      DISPLACEMENT = 1\r\n      ELFORCE = 2\r\n  SYM 1\r\n      SPC = 11\r\n      LOAD = 21\r\n      OLOAD = ALL\r\n  SYM 2\r\n      SPC = 12\r\n      LOAD = 22\r\n  SYMCOM 3\r\n  SYMCOM 4\r\n      SYMSEQ 1.0,-1 .0\r\n\r\nTwo SYM subcases are defined in subcases 1 and 2. SYMCOM 3 defines the sum and\r\nSYMCOM 4 the difference of the two SYM subcases. The nonzero components of the\r\nstatic load will be printed for subcase 1 and no output is requested for\r\nsubcase 2. The displacements for the grid point numbers in set 1 and the\r\nforces for elements in set 2 will be printed for subcases 3 and 4.\r\n\r\n4. Use of REPCASE in statics problems\r\n\r\n  SET 1 = 1 THRU 10, 101 THRU 110, 201 THRU 210\r\n  SET 2 = 21 THRU 30, 121 THRU 130, 221 THRU 230\r\n  SET 3 = 31 THRU 40, 131 THRU 140, 231 THRU 240\r\n      SUBCASE 1\r\n          LOAD =10\r\n          SPC = 11\r\n          DISPLACEMENT = ALL\r\n          SPCFORCE = 1\r\n          ELFORCE = 1\r\n      REPCASE 2\r\n          ELFORCE = 2\r\n      REPCASE 3\r\n          ELFORCE = 3\r\n\r\nThis example defines one subcase for solution and two subcases for output\r\ncontrol. The displacements at all grid points and the nonzero components of\r\nthe single-point forces of constraint along with forces for the elements in\r\nSET 1 will be printed for SUBCASE 1. The forces for elements in SET 2 will be\r\nprinted for REPCASE 2 and the forces for elements in SET 3 will be printed for\r\nREPCASE 3.\r\n\r\n5. Use of MODES in eigenvalue problems\r\n\r\n      METHOD = 2\r\n      SPC = 10\r\n  SUBCASE 1\r\n      DISPLACEMENT = ALL\r\n      STRESS = ALL\r\n      MODES = 2\r\n  SUBCASE 3\r\n      DISPLACEMENT = ALL\r\n\r\nIn this example the displacements at all grid points will be printed for all\r\nmodes. The stresses in all elements will be printed for the first two modes.\r\n\r\n2.3.4  Case Control Card Descriptions\r\n\r\nThe format of the Case Control cards is free-field. In presenting general\r\nformats for each card embodying all options, the following conventions are\r\nused:\r\n\r\n1. Upper-case letters and parentheses must be punched as shown.\r\n\r\n2. Lower-case letters indicate that a substitution must be made.\r\n\r\n                    \r\n3. Double brackets   indicate that a choice of contents is mandatory.\r\n                    \r\n\r\n             \r\n4. Brackets   contain an option that may be omitted or included by you.\r\n             \r\n\r\n5. First listed options or values are the default values.\r\n\r\n6. Physical card consists of information punched in columns 1 through 72 of a\r\n   card. Most case control cards are limited to a single physical card.\r\n\r\n7. Logical card may have more than 72 columns with the use of continuation\r\n   cards. A continuation card is honored by ending the preceding card with\r\n   a comma.\r\n\r\n  The structure plotter output request packet and the x-y output request\r\npacket, while part of the Case Control Deck, are treated separately in\r\nSections 4.2 and 4.3, respectively.\r\n=PAGE=\r\nACCELERATION - Acceleration Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of acceleration vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                                     \r\nACCELERATION  ( SORT1 , PRINT , REAL  )    =    ALL  \r\n                SORT2   PUNCH   IMAG            n    \r\n                                PHASE           NONE \r\n                                                     \r\n\r\nACCELERATION = 5\r\nACCELERATION(SORT2, PHASE) = ALL\r\nACCELERATION(SORT1, PRINT, PUNCH, PHASE) = 17\r\n\r\nOption    Meaning\r\n\r\nSORT1     Output will be presented as a tabular listing of grid points for\r\n          each load, frequency, eigenvalue, or time, depending on the rigid\r\n          format. SORT1 is not available in transient problems (where the\r\n          default is SORT2).\r\n\r\nSORT2     Output will be presented as a tabular listing of frequency or time\r\n          for each grid point. SORT2 is available only in transient and\r\n          frequency response problems.\r\n\r\nPRINT     The printer will be the output device.\r\n\r\nPUNCH     The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on frequency response\r\n          problems.\r\n\r\nPHASE     Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n          frequency response problems.\r\n\r\nALL       Accelerations for all points will be output.\r\n\r\nn         Set identification of a previously appearing SET card. Only\r\n          accelerations of points whose identification numbers appear on\r\n          this SET card will be output (Integer > 0).\r\n\r\nNONE      Accelerations for no points will be output.\r\n\r\nRemarks\r\n\r\n1.Both PRINT and PUNCH may be requested.\r\n\r\n2.An output request for ALL in transient and frequency response problems\r\n  generally produces large amounts of printout. An alternative to this would\r\n  be to define a SET of interest.\r\n\r\n3.Acceleration output is only available for transient and frequency response\r\n  problems.\r\n\r\n4.In a frequency response problem any request for SORT2 output causes all\r\n  output to be SORT2.\r\n\r\n5.ACCELERATION = NONE allows overriding an overall output request.\r\n=PAGE=\r\nAEROF - Aerodynamic Force Output Request\r\n\r\nDescription\r\n\r\nRequests the aerodynamic loads on the interconnection points.\r\n\r\nFormat and Example(s)\r\n\r\nAEROF = n\r\n\r\nAEROF = ALL\r\n\r\nAEROF = 5\r\n\r\nOption    Meaning\r\n\r\nn         Set identification of a previously appearing SET card. Only\r\n          aerodynamic forces on points referenced will be output.\r\n\r\nALL       Aerodynamic forces on all points will be output.\r\n\r\nRemarks\r\n\r\n1.Only frequency-dependent forces may be requested (frequency response or\r\n  random analysis).\r\n\r\n2.The point identification numbers are the box or body element IDs.\r\n\r\n3.The dimensions of the output are force (or moment) per unit dynamic\r\n  pressure.\r\n=PAGE=\r\nAXISYMMETRIC - Boundary Conditions, Hydroelastic Harmonics, or Magnetic Field\r\n\r\nDescription\r\n\r\nSelects boundary conditions for problems containing CCONEAX, CTRAPAX, or\r\nCTRIAAX elements; specifies the existence of fluid harmonics for hydroelastic\r\nproblems; or specifies the applied source magnetic field in the magnetostatics\r\nproblem.\r\n\r\nFormat and Example(s)\r\n\r\n                         \r\n                SINE     \r\n                COSINE   \r\n                FLUID    \r\nAXISYMMETRIC =  ANOM     \r\n                ANTIANOM \r\n                SYMM     \r\n                ANTISYMM \r\n                SYMMANOM \r\n                         \r\n\r\nAXISYMMETRIC = COSINE\r\n\r\nOption    Meaning\r\n\r\nSINE      Sine boundary conditions will be used.\r\n\r\nCOSINE    Cosine boundary conditions will be used.\r\n\r\nFLUID     Existence of fluid harmonics.\r\n\r\nSYMM, ANTISYMM, ANOM, ANTIANOM, SYMMANON  Used in magnetostatics problems.\r\n\r\nRemarks\r\n\r\n1.This card is required for problems containing the elements named above.\r\n\r\n2.If this card is used for hydroelastic problems, at least one harmonic must\r\n  be specified on the AXIF card.\r\n\r\n3.See Section 1.3.6 of User's Manual for a discussion of the conical shell\r\n  problem.\r\n\r\n4.See Section 1.3.7 of User's Manual for a discussion of the axisymmetric\r\n  solid problem.\r\n\r\n5.See Section 1.7.1 of User's Manual for a discussion of the hydroelastic\r\n  formulation.\r\n\r\n6.The sine boundary condition will constrain components 1, 3, and 5 at every\r\n  ring for the zero harmonic.\r\n\r\n7.The cosine boundary condition will constrain components 2, 4, and 6 at\r\n  every ring for the zero harmonic.\r\n\r\n8.SPC and MPC case control cards may also be used to apply additional\r\n  constraints.\r\n\r\n9.See PROLATE bulk data card for magnetostatic problem involving the prolate\r\n  spheroidal surface harmonic expansion.\r\n=PAGE=\r\nBEGIN BULK - End of Case Control Deck\r\n\r\nDescription\r\n\r\nIndicates the end of the Case Control Deck directives and controls. Cards\r\nappearing after this card are assumed to be Bulk Data Deck cards.\r\n\r\nFormat and Example(s)\r\n\r\nBEGIN BULK\r\n=PAGE=\r\nB2PP - Direct Input Damping Matrix Selection\r\n\r\nDescription\r\n\r\nSelects a direct input damping matrix.\r\n\r\nFormat and Example(s)\r\n\r\nB2PP  =  name\r\n\r\nB2PP  =  BDMIG\r\n\r\nB2PP  =  B2PP\r\n\r\nOption    Meaning\r\n\r\nname      BCD name of [B2pp] matrix that is input on the DMIG or DMIAX bulk\r\n          data card.\r\n\r\nRemarks\r\n\r\n1.B2PP is used only in dynamics problems.\r\n\r\n2.DMIG and DMIAX matrices will not be used unless selected.\r\n=PAGE=\r\nCMETHOD - Complex Eigenvalue Extraction Method Selection\r\n\r\nDescription\r\n\r\nSelects complex eigenvalue extraction data to be used by module CEAD.\r\n\r\nFormat and Example(s)\r\n\r\nCMETHOD  =  n\r\n\r\nCMETHOD  =  77\r\n\r\nOption    Meaning\r\n\r\nn         Set identification of EIGC (and EIGP) card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.Eigenvalue extraction data must be selected when extracting complex\r\n  eigenvalues using functional module CEAD.\r\n=PAGE=\r\nDEFORM - Element Deformation Static Load\r\n\r\nDescription\r\n\r\nSelects the element deformation set to be applied to the structural model.\r\n\r\nFormat and Example(s)\r\n\r\nDEFORM = n\r\n\r\nDEFORM = 27\r\n\r\nOption    Meaning\r\n\r\nn         Set identification of DEFORM cards (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.DEFORM bulk data cards will not be used unless selected in the Case Control\r\n  Deck.\r\n\r\n2.DEFORM is only applicable in statics, inertia relief, differential\r\n  stiffness, and buckling problems.\r\n\r\n3.The total load applied will be the sum of external, (LOAD), thermal\r\n  (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement\r\n  loads (SPC).\r\n\r\n4.Static, thermal, and element deformation loads should have unique\r\n  identification numbers.\r\n=PAGE=\r\nDISPLACEMENT - Displacement Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of displacement vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                                     \r\nDISPLACEMENT    ( SORT1, PRINT, REAL  )         ALL  \r\n                  SORT2  PUNCH  IMAG      =      n   \r\n                        NOPRINT PHASE           NONE \r\n                                                     \r\n\r\nDISPLACEMENT  =  5\r\n\r\nDISPLACEMENT(REAL)  =  ALL\r\n\r\nDISPLACEMENT(SORT2, PUNCH, REAL)  =  ALL\r\n\r\nOption    Meaning\r\n\r\nSORT1     Output will be presented as a tabular listing of grid points for\r\n          each load, frequency. eigenvalue, or time, depending on the rigid\r\n          format. SORT1 is not available in transient problems (where the\r\n          default is SORT2).\r\n\r\nSORT2     Output will be presented as a tabular listing of load, frequency,\r\n          or time for each grid point. SORT2 is available only in static\r\n          analysis, transient, and frequency response problems.\r\n\r\nPRINT     The printer will be the output device.\r\n\r\nPUNCH     The card punch will be the output device.\r\n\r\nNOPRINT   Displacement is calculated and saved on output file. The output\r\n          file will not be sent to the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n          frequency response problems.\r\n\r\nPHASE     Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n          complex eigenvalue or frequency response problems.\r\n\r\nALL       Displacements for all points will be output.\r\n\r\nNONE      Displacements for no points will be output.\r\n\r\nn         Set identification of previously appearing SET card. Only\r\n          displacements of points whose identification numbers appear on\r\n          this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.Both PRINT and PUNCH may be requested.\r\n\r\n2.An output request for ALL in transient and frequency response problems\r\n  generally produces large amounts of printout. An alternative to this would\r\n  be to define a SET of interest.\r\n\r\n3.In static analysis or frequency response problems, any request for SORT2\r\n  causes all output to be SORT2.\r\n\r\n4.VECTOR, PRESSURE, and THERMAL are alternate forms and are entirely\r\n  equivalent to DISPLACEMENT.\r\n\r\n5.DISPLACEMENT = NONE allows overriding an overall output request.\r\n=PAGE=\r\nDLOAD - Dynamic Load Set Selection\r\n\r\nDescription\r\n\r\nSelects the dynamic load to be applied in a transient or frequency response\r\nproblem.\r\n\r\nFormat and Example(s)\r\n\r\nDLOAD  =  n\r\n\r\nDLOAD  =  73\r\n\r\nOption    Meaning\r\n\r\nn         Set identification of a DLOAD, RLOAD1, RLOAD2, TLOAD1, or TLOAD2\r\n          card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.The above loads will not be used by NASTRAN unless selected in Case\r\n  Control.\r\n\r\n2.RLOAD1 and RLOAD2 may only be selected in a frequency response problem.\r\n\r\n3.TLOAD1 and TLOAD2 may only be selected in a transient response problem.\r\n\r\n4.Either RLOAD or TLOAD (but not both) may be selected in an aeroelastic\r\n  response problem. If RLOAD is selected, a frequency response is calculated.\r\n  If TLOAD is selected, then transient response is computed by Fourier\r\n  transform.\r\n=PAGE=\r\nDSCOEFFICIENT - Differential Stiffness Coefficient Set\r\n\r\nDescription\r\n\r\nSelects the coefficient set for a normal modes with differential stiffness\r\nproblem.\r\n\r\nFormat and Example(s)\r\n\r\n                         \r\nDSCOEFF1C1ENT =  DEFAULT \r\n                   n     \r\n                         \r\n\r\nDSCOEF = 15\r\n\r\nDSCOEF = DEFAULT\r\n\r\nOption    Meaning\r\n\r\nDEFAULT   A single default coefficient of value 1.0.\r\n\r\nn         Set identification of DSFACT card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.DSFACT cards will not be used unless selected.\r\n\r\n2.DSCOEFFICIENT must appear in the second subcase of a normal modes with\r\n  differential stiffness problem.\r\n=PAGE=\r\nECHO - Bulk Data Echo Request\r\n\r\nDescription\r\n\r\nRequests echo of Bulk Data Deck.\r\n\r\nFormat and Example(s)\r\n\r\n                \r\n         SORT   \r\n         UNSORT \r\nECHO  =  BOTH      (see Remark 1 for default values)\r\n         NONE   \r\n         NONO   \r\n         PUNCH  \r\n                \r\nECHO = BOTH\r\nECHO = PUNCH, SORT\r\n\r\nOption    Meaning\r\n\r\nSORT      Sorted echo will be printed.\r\n\r\nUNSORT    Unsorted echo will be printed.\r\n\r\nBOTH      Both sorted and unsorted echo will be printed.\r\n\r\nNONE or NONO  No echo will be printed.\r\n\r\nPUNCH     The sorted Bulk Data Deck will be punched onto cards.\r\n\r\nRemarks\r\n\r\n1.If no ECHO card appears, ECHO = BOTH is assumed for restart runs. For all\r\n  other runs, ECHO = SORT is assumed.\r\n\r\n2.You are cautioned against suppressing the sorted echo in a checkpoint run\r\n  as it will be difficult to change the data in a subsequent restart run.\r\n\r\n3.In a restart run, the unsorted echo lists only the new bulk data submitted\r\n  with the run, while the sorted echo lists the resequenced and renumbered\r\n  revised bulk data.\r\n\r\n4.If CHKPNT YES is specified, a sorted echo will be printed unless ECHO =\r\n  NONE.\r\n\r\n5.Unrecognizable options will be treated as SORT.\r\n\r\n6.Any option overrides the default. Thus, for example, if both print and\r\n  punch are desired, both SORT and PUNCH must be requested on the same card.\r\n\r\n7.The NONE option cannot be combined with the PUNCH option. If punch output\r\n  only is desired, ECHO = PUNCH will suffice.\r\n\r\n8.In a restart run, ECHO = NONO suppresses also the printing of the NASTRAN\r\n  DMAP compiler source listing. Do not use ECHO = NONO and CHKPNT YES\r\n  together.\r\n\r\n9.If ECHO = NONE or NONO, the resequencing cards SEQGP as generated by BANDIT\r\n  are not printed.\r\n=PAGE=\r\nELFORCE - Element Force Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of element force output.\r\n\r\nFormat and Example(s)\r\n\r\n                                                     \r\n            ( SORT1  , PRINT   ,   REAL  )      ALL  \r\nELFORCE       SORT2    PUNCH       IMAG     =    n   \r\n                      NOPRINT      PHASE        NONE \r\n                                                     \r\n\r\nELFORCE  =  ALL\r\n\r\nELFORCE(REAL, PUNCH, PRINT)  =  17\r\n\r\nELFORCE  =  25\r\n\r\nELFORCE(SORT2,NOPRINT)  =   ALL\r\n\r\nOption    Meaning\r\n\r\nSORT1     Output will be presented as a tabular listing of elements for each\r\n          load, frequency, eigenvalue, or time, depending on the rigid\r\n          format. SORT1 is not available in transient problems (where the\r\n          default is SORT2).\r\n\r\nSORT2     Output will be presented as a tabular listing of load, frequency,\r\n          or time for each element type. SORT2 is available only in static\r\n          analysis, transient and frequency response problems.\r\n\r\nPRINT     The printer will be the output device.\r\n\r\nPUNCH     The card punch will be the output device.\r\n\r\nNOPRINT   Force is calculated and saved on output file. The output file will\r\n          not be sent to the output device\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n          frequency response problems.\r\n\r\nPHASE     Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n          complex eigenvalue or frequency response problems.\r\n\r\nALL       Forces for all elements will be output.\r\n\r\nNONE      Forces for no elements will be output.\r\n\r\nn         Set identification of a previously appearing SET card. Only forces\r\n          of elements whose identification numbers appear on this SET card\r\n          will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.Both PRINT and PUNCH may be requested.\r\n\r\n2.An output request for ALL in transient and frequency response problems\r\n  generally produces large amounts of printout. An alternative to this would\r\n  be to define a SET of interest.\r\n\r\n3.In static analysis or frequency response problems, any request for SORT2\r\n  output causes all output to be SORT2.\r\n\r\n4.FORCE is an alternate form and is entirely equivalent to ELFORCE.\r\n\r\n5.ELFORCE = NONE allows overriding an overall request.\r\n\r\n6.In heat transfer analysis, ELFORCE output consists of heat flow through and\r\n  out of the elements.\r\n=PAGE=\r\nELSTRESS - Element Stress Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of element stress output.\r\n\r\nFormat and Example(s)\r\n\r\n                                                                     \r\n           ( SORT1   ,   PRINT    ,   EXTREME  ,   REAL )       ALL  \r\nELSTRESS     SORT2       PUNCH        LAYER        IMAG    =     n   \r\n                        NOPRINT                    PHASE        NONE \r\n                                                                     \r\n\r\nELSTRESS  =  5\r\n\r\nELSTRESS  =  ALL\r\n\r\nELSTRESS(SORT1, PRINT, PUNCH, PHASE) = 15\r\n\r\nOption    Meaning\r\n\r\nSORT1     Output will be presented as a tabular listing of elements for each\r\n          load, frequency, eigenvalue, or time, depending on the rigid\r\n          format. SORT1 is not available in transient problems (where the\r\n          default is SORT2).\r\n\r\nSORT2     Output will be presented as a tabular listing of load, frequency,\r\n          or time for each element type. SORT2 is available only in static\r\n          analysis, transient, and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nNOPRINT     Stresses are calculated and saved on output file. The output file\r\n            will not be sent to the output device\r\n\r\nEXTREME or LAYER  Requests stresses to be calculated at the extreme (top and \r\n            bottom) fibers of a plate element or, for composites, the stresses\r\n            for each layer. (See Remarks 7 and 8)\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Stresses for all elements will be output.\r\n\r\nn           Set identification of a previously appearing SET card (Integer >\r\n            0). Only stresses for elements whose identification numbers appear\r\n            on this SET card will be output.\r\n\r\nNONE        Stresses for no elements will be output.\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative to this would\r\n   be to define a SET of interest.\r\n\r\n3. In static analysis or frequency response problems, any request for SORT2\r\n   output causes all output to be SORT2.\r\n\r\n4. ELSTRESS is an alternate form and is entirely equivalent to STRESS.\r\n\r\n5. ELSTRESS = NONE allows overriding an overall request.\r\n\r\n6. If element stresses in the material coordinate system are desired (only for\r\n   TRIA1, TRIA2, QUAD1, and QUAD2 elements and only in Rigid Format 1), the\r\n   parameter STRESS (see the description of the PARAM bulk data card in\r\n   Section 2.4.2) should be set to be a positive integer. If, in addition to\r\n   element stresses in the material coordinate system, stresses at the\r\n   connected grid points are also desired, the parameter STRESS should be set\r\n   to 0.\r\n\r\n7. When LAYER is selected, individual layer stresses and/or failure indices\r\n   will be output.\r\n\r\n8. The option EXTREME and LAYER is only applicable for the QUAD4 and TRIA3\r\n   elements.\r\n=PAGE=\r\nESE - Element Strain Energy Output Request\r\n\r\nDescription\r\n\r\nRequests strain energy output and per cent of total strain energy with respect\r\nto all elements.\r\n\r\nFormat and Example(s)\r\n\r\n                      \r\n    ( PRINT )    ALL  \r\nESE   PUNCH   =   n   \r\n                 NONE \r\n                      \r\n\r\nESE (PUNCH) = 5\r\n\r\nESE (PRINT,PUNCH) = ALL\r\n\r\nOption      Meaning\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Strain energies will be output for all elements for which\r\n            stiffness matrices exist.\r\n\r\nNONE        Strain energies for no elements will be output.\r\n\r\nn           Set identification of previously appearing SET card (Integer > 0).\r\n            Only strain energies for elements whose identification numbers\r\n            appear on this SET card will be output.\r\n\r\nRemarks\r\n\r\n1. Element strain energies are output from static analysis (Rigid Format 1)\r\n   only.\r\n\r\n2. The output will be in SORT1 format.\r\n\r\n3. Both PRINT and PUNCH may be requested.\r\n\r\n4. ESE = NONE allows overriding an overall output request.\r\n=PAGE=\r\nFMETHOD - Flutter Analysis Method\r\n\r\nDescription\r\n\r\nSelects the FLUTTER parameters to be used by the flutter module (FA1).\r\n\r\nFormat and Example(s)\r\n\r\nFMETHOD = n\r\n\r\nFMETHOD = 72\r\n\r\nOption      Meaning\r\n\r\nn           Set identification number of a FLUTTER card (integer > 0).\r\n\r\nRemarks\r\n\r\n1. An FMETHOD card is required for flutter analysis.\r\n=PAGE=\r\nFORCE - Element Force Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of element force output.\r\n\r\nFormat and Example(s)\r\n\r\n                                         \r\n         ( SORT1, PRINT, REAL )      ALL \r\nFORCE      SORT2  PUNCH  IMAG    =    n  \r\n                        PHASE       NONE \r\n                                         \r\n\r\nFORCE = ALL\r\n\r\nFORCE(REAL, PUNCH, PRINT) = 17\r\n\r\nFORCE = 25\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of elements for each\r\n            load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of load, frequency,\r\n            or time for each element type. SORT2 is available only in static\r\n            analysis, transient, and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary printout on complex eigenvalue or \r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Forces for all elements will be output.\r\n\r\nn           Set identification of a previously appearing SET card. Only forces\r\n            whose element identification numbers appear on this SET card will\r\n            be output (Integer > 0).\r\n\r\nNONE        Forces for no elements will be output.\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative to this would\r\n   be to define a SET of interest.\r\n\r\n3. In static analysis or frequency response problems, any request for SORT2\r\n   output causes all output to be SORT2.\r\n\r\n4. ELFORCE is an alternate form and is entirely equivalent to FORCE.\r\n\r\n5. FORCE = NONE allows overriding an overall request.\r\n\r\n6. In heat transfer analysis, ELFORCE output consists of heat flow through and\r\n   out of the elements.\r\n=PAGE=\r\nFREQUENCY - Frequency Set Selection\r\n\r\nDescription\r\n\r\nSelects the set of frequencies to be solved in frequency response problems.\r\n\r\nFormat and Example(s)\r\n\r\nFREQUENCY = n\r\n\r\nFREQUENCY = 17\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a FREQ, FREQ1, or FREQ2 type card (Integer >\r\n            0).\r\n\r\nRemarks\r\n\r\n1. The FREQ, FREQ1, or FREQ2 cards will not be used unless selected in Case\r\n   Control.\r\n\r\n2. A frequency set selection is required for a frequency response problem.\r\n\r\n3. A frequency set selection is required for transient response by Fourier\r\n   methods.\r\n=PAGE=\r\nGPFORCE - Grid Point Force Balance Output Request\r\n\r\nDescription\r\n\r\nRequests grid point force balance output from applied loads, single-point\r\nconstraints, and element constraints.\r\n\r\nFormat and Example(s)\r\n\r\n                           \r\n         ( PRINT )    ALL  \r\nGPFORCE    PUNCH   =   n   \r\n                      NONE \r\n                           \r\n\r\nOption      Meaning\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Force balance will be output for all elements connected to grid\r\n            points or scalar points.\r\n\r\nNONE        Force balance for no grid points will be output.\r\n\r\nn           Set identification of previously appearing SET card (Integer > 0).\r\n            Only force balance for points whose identification numbers appear\r\n            on this SET card will be output.\r\n\r\nRemarks\r\n\r\n1. Grid point force balance is output from Statics Analysis (Rigid Format 1)\r\n   only.\r\n\r\n2. The output will be in SORT1 format.\r\n\r\n3. Both PRINT and PUNCH may be requested.\r\n\r\n4. GPFORCE = NONE allows overriding an overall output request.\r\n=PAGE=\r\nGUST - Aerodynamic Gust Load Request\r\n\r\nDescription\r\n\r\nSelects the gust field in an aeroelastic response problem.\r\n\r\nFormat and Example(s)\r\n\r\nGUST = n\r\n\r\nGUST = 73\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a GUST bulk data card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The above GUST will not be used by NASTRAN unless selected in Case Control.\r\n\r\n2. The choice of transient or frequency response gust depends upon the type of\r\n   TLOAD or RLOAD referenced on the selected GUST card.\r\n=PAGE=\r\nHARMONICS - Harmonic Printout Control\r\n\r\nDescription\r\n\r\nControls number of harmonics output for problems containing CCONEAX, CTRAPAX,\r\nor CTRIAAX elements.\r\n\r\nFormat and Example(s)\r\n\r\n                   \r\n               0   \r\nHARMONICS  =  ALL  \r\n              NONE \r\n               n   \r\n                   \r\n\r\nOption      Meaning\r\n\r\nALL         All harmonics will be output.\r\n\r\nNONE        No harmonics will be output.\r\n\r\nn           Available harmonics up to and including n will be output (Integer\r\n            >= 0).\r\n\r\nRemarks\r\n\r\n1. If no HARMONICS card appears in Case Control, only 0 harmonic output will\r\n   be printed.\r\n=PAGE=\r\nIC - Transient Initial Condition Set Selection\r\n\r\nDescription\r\n\r\nTo select the initial conditions for direct transient problems.\r\n\r\nFormat and Example(s)\r\n\r\nIC = n\r\n\r\nIC = 17\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of TIC card (Integer > 0) for structural\r\n            analysis. Set identification of TEMP and/or TEMPD card (Integer >\r\n            0) for heat transfer analysis.\r\n\r\nRemarks\r\n\r\n1. TIC cards will not be used (hence no initial conditions) unless selected in\r\n   Case Control.\r\n\r\n2. Initial conditions are not allowed in a modal transient problem.\r\n=PAGE=\r\nK2PP - Direct Input Stiffness Matrix Selection\r\n\r\nDescription\r\n\r\nSelects a direct input stiffness matrix.\r\n\r\nFormat and Example(s)\r\n\r\nK2PP  =  name\r\n\r\nK2PP  =  KDMIG\r\n\r\nK2PP  =  K2PP\r\n\r\nOption      Meaning\r\n\r\nname        BCD name of a [K22dpp] matrix that is input on the DMIG or DMIAX\r\n            bulk data card.\r\n\r\nRemarks\r\n\r\n1. K2PP is used only in dynamics problems.\r\n\r\n2. DMIG and DMIAX matrices will not be used unless selected.\r\n=PAGE=\r\nLABEL - Output Label\r\n\r\nDescription\r\n\r\nDefines a BCD (alphanumeric) label which will appear on the third heading line\r\nof each page of NASTRAN printer output.\r\n\r\nFormat and Example(s)\r\n\r\n                      \r\nLABEL =  Any BCD data \r\n                      \r\n\r\nLABEL = SAMPLE OF A LABEL CARD\r\n\r\nRemarks\r\n\r\n1. LABEL appearing at the subcase level will label output for that subcase\r\n   only.\r\n\r\n2. LABEL appearing before all subcases will label any outputs which are not\r\n   subcase dependent.\r\n\r\n3. If no LABEL card is supplied, the label line will be blank.\r\n\r\n4. LABEL information is also placed on NASTRAN plotter output as applicable.\r\n=PAGE=\r\nLINE - Data Lines Per Page\r\n\r\nDescription\r\n\r\nDefines the number of data lines per printed page.\r\n\r\nFormat and Example(s)\r\n\r\n         \r\n       42\r\nLINE = n   CDC\r\n         \r\n         \r\n       55\r\nLINE = n   DEC VAX, IBM, and UNIVAC\r\n         \r\n\r\nOption      Meaning\r\n\r\nn           Number of data lines per page (Integer >= 10).\r\n\r\nRemarks\r\n\r\n1. If no LINE card appears, the appropriate default is used.\r\n\r\n2. For 11 inch paper, 50 is the recommended number; for 8-1/2 inch paper, 35\r\n   is the recommended number.\r\n\r\n3. Alternatively, the number of data lines per printed page can also be\r\n   defined by means of the NLINES keyword on the NASTRAN card (see Section\r\n   2.1).\r\n=PAGE=\r\nLOAD - External Static Load Set Selection\r\n\r\nDescription\r\n\r\nSelects the external static load set to be applied to the structural model.\r\n\r\nFormat and Example(s)\r\n\r\nLOAD = n\r\n\r\nLOAD = 15\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of at least one external load card and hence\r\n            must appear on at least one FORCE, FORCE1, FORCE2, MOMENT,\r\n            MOMENT1, MOMENT2, GRAV, PLOAD, PLOAD2, PLOAD3, RFORCE, PRESAX,\r\n            FORCEAX, MOMAX, SLOAD, or LOAD card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The above static load cards will not be used by NASTRAN unless selected in\r\n   Case Control.\r\n\r\n2. A GRAV card cannot have the same set identification number as any of the\r\n   other loading card types. If it is desired to apply a gravity load along\r\n   with other static loads, a LOAD bulk data card must be used.\r\n\r\n3. If n is to be the set identification number of a bulk data LOAD card (see\r\n   description in Section 2.4), then it must be different from the load set\r\n   identification numbers of all external static load sets in the Bulk Data\r\n   Deck.\r\n\r\n4. LOAD is only applicable in statics, inertia relief, differential stiffness,\r\n   buckling, and piecewise linear problems.\r\n\r\n5. The total load applied will be the sum of external (LOAD), thermal\r\n   (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement\r\n   (SPC) Loads.\r\n\r\n6. Static, thermal, and element deformation loads must have unique set\r\n   identification numbers.\r\n\r\n7. The rigid formats that accept a static load card expect it to appear in the\r\n   Case Control deck in a certain place with respect to subcase definitions.\r\n   See Section 3 for specific instructions.\r\n=PAGE=\r\nM2PP - Direct input Mass Matrix Selection\r\n\r\nDescription\r\n\r\nSelects a direct input mass matrix.\r\n\r\nFormat and Example(s)\r\n\r\nM2PP  =  name\r\n\r\nM2PP  =  MDMIG\r\n\r\nM2PP  =  M2PP\r\n\r\nOption      Meaning\r\n\r\nname        BCD name of a [M22dpp] matrix that is input on the DMIG or DMIAX\r\n            bulk data card.\r\n\r\nRemarks\r\n\r\n1. M2PP is supported only in dynamics problems.\r\n\r\n2. DMIG and DMIAX matrices will not be used unless selected.\r\n=PAGE=\r\nMAXLINES - Maximum Number of Output Lines\r\n\r\nDescription\r\n\r\nSets the maximum number of output lines to a given value.\r\n\r\nFormat and Example(s)\r\n\r\n                   \r\nMAXLINES =   20000 \r\n               n   \r\n                   \r\n\r\nMAXLINES = 50000\r\n\r\nOption      Meaning\r\n\r\nn           Maximum number of output lines (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Any time this number is exceeded, NASTRAN will terminate through PEXIT.\r\n\r\n2. This card may or may not override system operating control cards. You\r\n   should check with the local operations staff.\r\n\r\n3. Default is MAXLINES = 20000.\r\n=PAGE=\r\nMETHOD - Real Eigenvalue Extraction Method Selection\r\n\r\nDescription\r\n\r\nSelects the real eigenvalue parameters to be used by the READ module.\r\n\r\nFormat and Example(s)\r\n\r\nMETHOD = n\r\n\r\nMETHOD = 33\r\n\r\nOption      Meaning\r\n\r\nn           Set identification number of an EIGR card (normal modes or modal\r\n            formulation) or an EIGB card (buckling). (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. An eigenvalue extraction method must be selected when extracting real\r\n   eigenvalues using functional module READ.\r\n\r\n2. Each of the rigid formats that accepts an eigenvalue method card expects it\r\n   to appear in the Case Control Deck in a certain place with respect to\r\n   subcase definitions. See Section 3 for specific instructions.\r\n=PAGE=\r\nMODES - Duplicate Case Control\r\n\r\nDescription\r\n\r\nRepeats case control MODES times, to allow control of output in eigenvalue\r\nproblems.\r\n\r\nFormat and Example(s)\r\n\r\nMODES = n\r\n\r\nMODES = 1\r\n\r\nOption      Meaning\r\n\r\nn           Number of modes, starting with the first and proceeding\r\n            sequentially upward, for which the case control or subcase control\r\n            is to apply. (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card can be illustrated by an example. Suppose stress output is\r\n   desired for the first five modes only and displacements only thereafter.\r\n   The following example would accomplish this:\r\n\r\n   SUBCASE 1\r\n   MODES = 5\r\n   OUTPUT\r\n   STRESS = ALL\r\n   SUBCASE 6\r\n   OUTPUT\r\n   DISPLACEMENTS = ALL\r\n   BEGIN BULK\r\n\r\n2. The MODES card causes the results for each eigenvalue to be considered as a\r\n   separate, successively numbered subcase, beginning with the subcase number\r\n   containing the MODES card.\r\n\r\n3. If the MODES card is not used, eigenvalue results are considered to be a\r\n   part of a single subcase. Hence, any output requests for the single subcase\r\n   will apply for all eigenvalues.\r\n\r\n4. All eigenvectors with mode numbers greater than the number of records in\r\n   Case Control are printed with the descriptors of the last Case Control\r\n   record. For example, to suppress all printout for modes beyond the first\r\n   three, the following Case Control deck could be used:\r\n\r\n   SUBCASE 1\r\n   MODES = 3\r\n   DISPLACEMENTS = ALL\r\n   SUBCASE 4\r\n   DISPLACEMENTS = NONE\r\n   BEGIN BULK\r\n=PAGE=\r\nMPC - Multipoint Constraint Set Selection\r\n\r\nDescription\r\n\r\nSelects the multipoint constraint set to be applied to the structural model.\r\n\r\nFormat and Example(s)\r\n\r\nMPC = n\r\n\r\nMPC = 17\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a multipoint constraint set and hence must\r\n            appear on at least one MPC, MPCADD, MPCAX, or MPCS card. (Integer\r\n            > 0).\r\n\r\nRemarks\r\n\r\n1. MPC, MPCADD, MPCAX, or MPCS cards will not be used by NASTRAN unless\r\n   selected in Case Control.\r\n=PAGE=\r\nMPCFORCE - Multipoint Forces of Constraint Output Request\r\n\r\nDescription\r\n\r\nRequests multipoint force of constraint vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                     \r\n                                 ALL \r\nMPCFORCE    ( SORT1, PRINT )  =   n  \r\n                     PUNCH       NONE\r\n                                     \r\n\r\nMPCFORCE = 10\r\n\r\nMPCFORCE(PRINT,PUNCH) = ALL\r\n\r\nMPCFORCE = NONE\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each subcase or frequency, depending on the rigid format. SORT2 is\r\n            not available.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Multipoint forces of constraint for all points will be output\r\n            (only nonzero entries).\r\n\r\nNONE        Multipoint forces of constraint for no points will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            multipoint constraint forces for points whose identification\r\n            numbers appear on this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. MPCFORCE = NONE allows overriding an overall output request.\r\n\r\n3. MPCFORCE is only valid for statics and real eigenvalue analyses.\r\n\r\n4. A request for MPCFORCE is not allowed for axisymmetric elements.\r\n\r\n5. See the PARAM bulk data card for use of related parameters OPT and GRDEQ.\r\n=PAGE=\r\nNCHECK - Stress and Element Forces Numerical Accuracy Check\r\n\r\nDescription\r\n\r\nRequests stress and element force numerical accuracy check.\r\n\r\nFormat and Example(s)\r\n\r\nNCHECK [= n]\r\n\r\nNCHECK\r\n\r\nNCHECK = 6\r\n\r\nOption      Meaning\r\n\r\nn           A printout of the number of significant digits accuracy is issued\r\n            for each element having an entry with less than n significant\r\n            digits in the stress or force calculation.\r\n\r\nRemarks\r\n\r\n1. All the elements requested on the STRESS and/or FORCE card (or their\r\n   equivalent ELSTRESS and/or ELFORCE card) are checked.\r\n\r\n2. The default for n is five (5) when n is not specified.\r\n\r\n3. These checks measure the quality of the computations to obtain element\r\n   stresses and element forces. They do not measure the quality of the model\r\n   being analyzed.\r\n\r\n4. See Theoretical Manual Section 3.7.2 for a description of the accuracy\r\n   check.\r\n\r\n5. The printout identifies the element types, identification number and the\r\n   subcase. The entries checked are as follows.\r\n\r\n   ELEMENT TYPE                            ENTRIES\r\n\r\n   ROD,CONROD,TUBE                         FA,T,A,T\r\n\r\n   BAR                                     FA,T,M1a,M1b,M2a,M2b,V1,V2,a\r\n   \r\n   TRMEM,QDMEM,QDMEMl                      x,y,xy\r\n\r\n   TRPLT,QDPLT,TRIA1,TRIA2,QUAD1,QUAD2     x1,y1,xy1,x2,y2,xy2,Mx,My,Mxy,\r\n   TRBSC                                   Vx,Vy\r\n\r\n   HEXA1,HEXA2,WEDGE,TETRA                 x,y,z,yz,xz,xy\r\n\r\n   SHEAR                                   MAX,AVE, corner forces, kick\r\n                                           forces, and shears.\r\n\r\n   TWIST                                   MAX,AVE,M1-3,M2-4\r\n\r\n   QDMEM2                                  x,y,xy, corner forces, kick\r\n                                           forces, and shears.\r\n\r\n   IHEX1, IHEX2, IHEX3                     NORMAL, SHEAR, and PRINCIPAL for\r\n                                           each direction, grid point, and\r\n                                           centroid.\r\n=PAGE=\r\nNLLOAD - Nonlinear Load Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of nonlinear load output for transient problems.\r\n\r\nFormat and Example(s)\r\n\r\n                      \r\n                  ALL \r\nNLLOAD (PRINT) =   n  \r\n        PUNCH     NONE\r\n                      \r\n\r\nNLLOAD = ALL\r\n\r\nOption      Meaning\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Nonlinear loads for all solution points will be output.\r\n\r\nNONE        Nonlinear loads will not be output.\r\n\r\nn           Set identification of previously appearing SET card.(Integer > 0).\r\n            Only non-linear loads for points whose identification numbers\r\n            appear on this SET card will be output.\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be used.\r\n\r\n2. Nonlinear loads are output only in the solution (D or H) set.\r\n\r\n3. The output format will be SORT2.\r\n\r\n4. An output request for ALL in transient response problems generally produces\r\n   large amounts of printout. An alternative to this would be to define a SET\r\n   of interest.\r\n\r\n5. THERMAL = NONE allows overriding an overall output request.\r\n=PAGE=\r\nNONLINEAR - Nonlinear Load Set Selection\r\n\r\nDescription\r\n\r\nSelects nonlinear load for transient problems.\r\n\r\nFormat and Example(s)\r\n\r\nNONLINEAR  =  n\r\n\r\nNONLINEAR LOAD SET  =  75\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of NOLINi cards (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. NOLINi cards will not be used unless selected in Case Control.\r\n=PAGE=\r\nOFREQUENCY - Output Frequency Set\r\n\r\nDescription\r\n\r\nSelects from the solution set of frequencies a subset for output requests in\r\ndirect or modal frequency analysis. In flutter analysis, it selects a subset\r\nof velocities.\r\n\r\nFormat and Example(s)\r\n\r\n                  \r\nOFREQUENCY =  ALL \r\n               n  \r\n                  \r\n\r\nOFREQUENCY = ALL\r\n\r\nOFREQUENCY SET = 15\r\n\r\nOption      Meaning\r\n\r\nALL         Output for all frequencies will be printed out.\r\n\r\nn           Set identification of previously appearing SET card (Integer > 0).\r\n            Output for frequencies closest to those given on this SET card\r\n            will be produced.\r\n\r\nRemarks\r\n\r\n1. OFREQUENCY is defaulted to ALL if it is not supplied.\r\n\r\n2. In flutter analysis, the selected set lists velocities in input units. If\r\n   there are n velocities in the list, the n points with velocities closest to\r\n   those in the list will be selected for output.\r\n\r\n3. This card is used in conjunction with the MODACC module to limit the\r\n   frequencies for which mode acceleration computations are performed.\r\n\r\n4. In flutter analysis, the selected set refers to the imaginary part of the\r\n   complex eigenvalues.\r\n\r\n   K or KE method:   Velocity (input units)\r\n   PK method:        Frequency\r\n\r\n5. In aeroelastic response (with RLOAD selection), the selected set refers to\r\n   the frequency (cycles per unit time).\r\n=PAGE=\r\nOLOAD - Applied Load Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of applied load vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                           \r\nOLOAD   ( SORT1, PRINT, REAL )        ALL  \r\n          SORT2  PUNCH  IMAG     =     n   \r\n                        PHASE         NONE \r\n                                           \r\n\r\nOLOAD   =  ALL\r\nSLOAD(SORT1, PHASE)  =  5\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of load, frequency,\r\n            or time for each grid point. SORT2 is available only in static\r\n            analysis, transient and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Applied loads for all points will be output. (SORT1 will only\r\n            output nonzero values.)\r\n\r\nNONE        Applied loads for no points will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only loads on\r\n            points whose identification numbers appear on this SET card will\r\n            be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In static analysis or frequency response problems, any request for SORT2\r\n   output causes all output to be SORT2.\r\n\r\n4. A request for SORT2 causes loads (zero and nonzero) to be output.\r\n\r\n5. OLOAD = NONE allows overriding an overall output request.\r\n=PAGE=\r\nOTIME - Output Time Set\r\n\r\nDescription\r\n\r\nSelects from the solution set of times a subset for output requests.\r\n\r\nFormat and Example(s)\r\n\r\n           \r\nOTIME = ALL\r\n         n \r\n           \r\n\r\nOTIME = ALL\r\n\r\nOTIME = 15\r\n\r\nOption      Meaning\r\n\r\nALL         Output for all times will be printed out.\r\n\r\nn           Set identification of previously appearing SET card. (Integer >\r\n            0). Output for times closest to those given on this SET card will\r\n            be output.\r\n\r\nRemarks\r\n\r\n1. OTIME is defaulted to ALL if it is not supplied.\r\n\r\n2. The OTIME card is particularly useful for restarts to request a subset of\r\n   the output (that is, stresses at only peak times, etc.).\r\n\r\n3. This card can be used in conjunction with the MODACC module to limit the\r\n   times for which mode acceleration computations are performed.\r\n=PAGE=\r\nOUTPUT - Output Packet Delimiter\r\n\r\nDescription\r\n\r\nDelimits the various output packets, structure plotter, curve plotter, and\r\nprinter/punch.\r\n\r\nFormat and Example(s)\r\n\r\n                 \r\n        ( PLOT  )\r\nOUTPUT    XYOUT  \r\n          XYPLOT \r\n                 \r\nOUTPUT\r\n\r\nOUTPUT(PLOT)\r\n\r\nOUTPUT(XYOUT)\r\n\r\nOption      Meaning\r\n\r\nNo qualifier  Beginning of printer output packet. This is not a required card.\r\n\r\nPLOT        Beginning of structure plotter packet. This card must precede all\r\n            structure plotter control cards.\r\n\r\nXYOUT or XYPLOT  Beginning of curve plotter packet. This card must precede all\r\n            curve plotter control cards. XYPLOT and XYOUT are entirely\r\n            equivalent.\r\n\r\nRemarks\r\n\r\n1. The structure plotter packet and the curve plotter packet must be at the\r\n   end of the Case Control Deck. Either may come first.\r\n\r\n2. The delimiting of a printer packet is completely optional.\r\n=PAGE=\r\nPLCOEFFICIENT - Piecewise Linear Coefficient Set\r\n\r\nDescription\r\n\r\nSelects the coefficient set for piecewise linear problems.\r\n\r\nFormat and Example(s)\r\n\r\nPLCOEFFICIENT  =  n\r\n\r\nPLCOEFFICIENT  =  25\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of PLFACT card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. PLFACT cards will not be used unless selected.\r\n=PAGE=\r\nPLOTID - Plotter Identification\r\n\r\nDescription\r\n\r\nDefines BCD (alphanumeric) identification which will appear on the first frame\r\nof any NASTRAN plotter output.\r\n\r\nFormat and Example(s)\r\n\r\n                         \r\nPLOTID  =   Any BCD data \r\n                         \r\n\r\nPLOTID  =  RETURN TO B.J. SMITH, ROOM.201, BLDG 85, ABC COMPANY\r\n\r\nRemarks\r\n\r\n1. PLOTID must appear before any OUTPUT(PLOT), OUTPUT(XYOUT), or\r\n   OUTPUT(XYPLOT) cards.\r\n\r\n2. The presence of PLOTID causes a special header frame to be plotted with the\r\n   supplied identification plotted several times. This allows for easy\r\n   identification of the NASTRAN plotter output.\r\n\r\n3. If no PLOTID card appears, no ID frame will be plotted.\r\n\r\n4. The PLOTID header frame will not be generated for table plotters.\r\n=PAGE=\r\nPRESSURE - Hydroelastic Pressure Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of displacement and hydroelastic pressure vector\r\noutput.\r\n\r\nFormat and Example(s)\r\n\r\n                                         \r\n          ( SORT1, PRINT, REAL )    ALL  \r\nPRESSURE    SORT2  PUNCH  IMAG   =   n   \r\n                          PHASE     NONE \r\n                                         \r\n\r\nPRESSURE = 5\r\nPRESSURE(IMAG) = ALL\r\nPRESSURE(SORT2, PUNCH, REAL) = ALL\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point. SORT2 is available only in transient and\r\n            frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Displacements and pressures for all points will be output.\r\n\r\nNONE        Displacements and pressures for no points will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            displacements and pressures of points whose identification numbers\r\n            appear on this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In a frequency response problem any request for SORT2 causes all output to\r\n   be SORT2.\r\n\r\n4. DISPLACEMENT and VECTOR are alternate forms and are entirely equivalent to\r\n   PRESSURE.\r\n\r\n5. PRESSURE = NONE allows overriding an overall output request.\r\n=PAGE=\r\nRANDOM - Random Analysis Set Selection\r\n\r\nDescription\r\n\r\nSelects the RANDPS and RANDTi cards to be used in random analysis.\r\n\r\nFormat and Example(s)\r\n\r\nRANDOM  =  n\r\n\r\nRANDOM  =  177\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of RANDPS and RANDTi cards to be used in random\r\n            analysis (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. RANDPS cards must be selected to do random analysis.\r\n\r\n2. RANDPS must be selected in the first subcase of the current loop. RANDPS\r\n   may not reference subcases in a different loop.\r\n=PAGE=\r\nREADFILE - Directive to Read Input Cards\r\n\r\nDescription\r\n\r\nDefines a file that contains the input cards.\r\n\r\nFormat and Example(s)\r\n\r\n                   Ŀ\r\n                     \r\n           ,NOPRINT, \r\nREADFILE   ,NOPRINT    [ = ]  filename\r\n           (NOPRINT) \r\n                   \r\n\r\nREADFILE  ABC\r\nREADFILE  NOPRINT  ABC\r\nREADFILE, NOPRINT  ABC\r\nREADFILE, NOPRINT, ABC\r\nREADFILE (NOPRINT) ABC\r\nREADFILE  = ABC\r\nREADFILE  NOPRINT  = ABC\r\nREADFILE, NOPRINT  = ABC\r\nREADFILE (NOPRINT) = ABC\r\n\r\nRemarks\r\n\r\n1. This card can be used in Executive, Case Control, and Bulk Data Decks.\r\n\r\n2. Input cards are saved in the file named filename.\r\n\r\n3. Comma, equal sign, and parentheses are not allowed in filename.\r\n\r\n4. NOPRINT allows reading in the input cards, such as the DMAP alters or\r\n   restart dictionary, without printing them out. The default is to print\r\n   them.\r\n\r\n5. Since this card can also be used in the Case Control Deck, an equal sign is\r\n   also allowed.\r\n\r\n6. Nested READFILE is allowed.\r\n\r\n7. See Sections 2.0.2.1 and 2.0.2.2 for more information.\r\n=PAGE=\r\nREPCASE - Repeat Case Subcase Delimiter\r\n\r\nDescription\r\n\r\nDelimits and identifies a repeated subcase.\r\n\r\nFormat and Example(s)\r\n\r\nREPCASE    n\r\n\r\nREPCASE    137\r\n\r\nOption      Meaning\r\n\r\nn           Subcase identification number (integer > 1).\r\n\r\nRemarks\r\n\r\n1. The subcase identification number, n, must be strictly increasing (that is,\r\n   greater than all previous subcase identification numbers).\r\n\r\n2. This case will only re-output the previous real case. This allows\r\n   additional set specification.\r\n\r\n3. REPCASE may only be used in statics or inertia relief.\r\n\r\n4. One or more repeated subcases (REPCASEs) must immediately follow the\r\n   subcase (SUBCASE) to which they refer. (See example 4 in Section 2.3.3.)\r\n=PAGE=\r\nSACCELERATION - Solution Set Acceleration Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of solution set acceleration output.\r\n\r\nFormat and Example(s)\r\n\r\n                                             \r\nSACCELERATION ( SORT1, PRINT, REAL ) =  ALL  \r\n                SORT2  PUNCH  IMAG       n   \r\n                              PHASE     NONE \r\n                                             \r\n\r\nSACCELERATION = ALL\r\n\r\nSACCELERATION(PUNCH, IMAG) = 142\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point (or mode number). SORT2 is available only in\r\n            transient and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on frequency response\r\n            problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            frequency response problems.\r\n\r\nALL         Acceleration for all solution points (modes) will be output.\r\n\r\nNONE        Acceleration for no solution points (modes) will be output.\r\n\r\nn           Set identification of a previously appearing SET card. Only\r\n            accelerations of points whose identification numbers appear on\r\n            this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. Acceleration output is only available for transient and frequency response\r\n   problems.\r\n\r\n4. In a frequency response problem any request for SORT2 output causes all\r\n   output to be SORT2.\r\n\r\n5. SACCELERATION = NONE allows overriding an overall output request.\r\n=PAGE=\r\nSCAN - Output Scan Request\r\n\r\nDescription\r\n\r\nScan output data and eliminate values that do not meet the specification set\r\nby this SCAN card.\r\n\r\nFormat and Example(s)\r\n\r\n                                                  \r\n         STRESS                             topn           \r\nSCAN   ( FORCE   , element, component )  =         , SET  i\r\n         HELP                              max,min         \r\n         ON-LINE                                  \r\n                \r\n\r\nSCAN (STRESS, CBAR, AXIAL) = 10\r\n\r\nSCAN (STRESS, BAR, AXIAL, SA-MAX) = 15, SET 102\r\n\r\nSCAN (FORCE, ROD, 2, 3) = 17\r\n\r\nSCAN (FORCE, 3, CROD, 2) = +2000., -1500., SET 102\r\n\r\nSCAN (ROD, AXIAL, FORCE, TORQUE) = 5000., 400.\r\n\r\nSCAN (HELP)\r\n\r\nOption      Meaning\r\n\r\nSTRESS      Request scan on stress file, of SORT1 or SORT2 format.\r\n\r\nFORCE       Request scan on force file, of SORT1 or SORT2 format.\r\n\r\nelement     Any NASTRAN element name, with or without the leading letter \"C\"\r\n            (BCD).\r\n\r\ncomponent   One or more components specified by keywords (BCD), or by numeric\r\n            codes (Integer > 0). The numeric codes are the field numbers on\r\n            the heading of the output page, whose values are to be scanned.\r\n            (Each element has its own page heading.) See Remark 11 for the\r\n            keywords and their corresponding field numbers.\r\n\r\ntopn        The highest n values, and the lowest n values, found by SCAN in\r\n            the field(s) specified by component are printed out; for example,\r\n            top n tension and top n compression stresses (Integer > 0).\r\n\r\nmax,min     Values greater than max and less than min, in the field(s)\r\n            specified by component, are printed out (Real).\r\n\r\ni           Element set identification of a previously appearing SET card\r\n            (Integer > 0). Only forces or stresses of elements whose\r\n            identification numbers appear on this SET card will be scanned for\r\n            output. (Default is all.)\r\n\r\nHELP        A table of the component keywords and their corresponding field\r\n            numbers will be printed immediately before the Bulk Data Deck, and\r\n            the job will continue.\r\n\r\nON-LINE     Request SCAN operation to be run on-line under real-time\r\n            environment.\r\n\r\nRemarks\r\n\r\n1. Multiple SCAN cards can be requested in a NASTRAN run. They do not override\r\n   one another.\r\n\r\n2. A SCAN card specifies only one element type; an element type can have more\r\n   than one SCAN card.\r\n\r\n3. More than one component field can be requested in a SCAN card. However,\r\n   these fields will be scanned together as a group.\r\n\r\n4. SCAN sorts and prints the scanned values in descending order. All fields of\r\n   the same output line are printed.\r\n\r\n5. If the component keyword is misspelled, a list of the valid names and their\r\n   corresponding fields will be printed automatically and the job will be\r\n   flagged for fatal error termination.\r\n\r\n6. Some component keywords imply multi-field scan; for example, \"AXIAL\" may\r\n   imply axial forces for grid points 1, 2, 3, etc.\r\n\r\n7. Component numeric code specifies field numbers 1 through 62 only.\r\n\r\n8. Normally, SCAN will scan only data already generated for the Output File\r\n   Processor (OFP). That is, SCAN cannot scan data that has not been created.\r\n   However, if no ELSTRESS (or STRESS) card is specified before a stress SCAN\r\n   card, a STRESS card is generated internally in the following form:\r\n\r\n   STRESS (SORT1, NOPRINT, REAL) = ALL\r\n\r\n   Forces are handled similarly.\r\n\r\n9. The LABEL line (after TITLE and SUBTITLE) is limited to 36 characters. The\r\n   rest of the line is replaced by the SCAN header.\r\n\r\n10.   When the ON-LINE option is requested, the other input parameters are not\r\n      needed on the SCAN card. These parameters will be prompted for on the\r\n      CRT screen by the computer system when the SCAN module is executed.\r\n\r\n11.   The component keywords for stress and force, and their corresponding\r\n      output field numbers, are listed below. This table is printed by SCAN\r\n      (HELP).\r\n\r\nFORCE/STRESS       KEYWORD        COMPONENT (OUTPUT FIELD NO.)\r\n\r\nROD, TUBE, CONROD\r\n     STRESS        AXIAL             2\r\n     STRESS        TORSIONAL         4\r\n     STRESS        MARGIN            3, 5\r\n     FORCE         AXIAL             2\r\n     FORCE         TORQUE            3\r\n\r\nSHEAR, TWIST\r\n     STRESS        MAX-SHR           2\r\n     STRESS        MARGIN            4\r\n     STRESS        AVG               3\r\n     STRESS        MAX               2\r\n     FORCE         FORCE-1           2\r\n     FORCE         FORCE-2           3\r\n     FORCE         MOMENT-1          2\r\n     FORCE         MOMENT-2          3\r\n\r\nTRIA1, TRIA2, QUAD1, QUAD2, TRBSC, TRPLT, QDPLT\r\n     STRESS        NORM-X            3, 11\r\n     STRESS        NORM-Y            4, 12\r\n     STRESS        SHEAR-XY          5, 13\r\n     STRESS        MAJOR             7, 15\r\n     STRESS        MINOR             8, 16\r\n     STRESS        MAX-SHR           9, 17\r\n     FORCE         MOMENT-X          2\r\n     FORCE         MOMENT-Y          3\r\n     FORCE         SHEAR-X           5\r\n     FORCE         SHEAR-Y           6\r\n     FORCE         TWIST             4\r\n\r\nTRMEM, QDMEM, QDMEM1, QDMEM2\r\n     STRESS         NORM-X           2\r\n     STRESS         NORM-Y           3\r\n     STRESS         SHEAR-XY         4\r\n     STRESS         MAJOR            6\r\n     STRESS         MINOR            7\r\n     STRESS         MAX-SHR          8\r\n     FORCE          FORCE-12         3, 4\r\n     FORCE          FORCE-23         5, 6\r\n     FORCE          FORCE-34         7, 8\r\n     FORCE          FORCE-41         2, 9\r\n     FORCE          KICK ON1        10\r\n     FORCE          KICK ON2        12\r\n     FORCE          KICK ON3        14\r\n     FORCE          KICK ON4        16\r\n     FORCE          SHEAR-XY        11\r\n     FORCE          SHEAR-YZ        13\r\n     FORCE          SHEAR-ZX        15\r\n     FORCE          SHEAR           17\r\n\r\nELAS1, ELAS2, ELAS3, IS2D8\r\n     STRESS         OCT-SHR          2\r\n     FORCE          CIRCUM           2\r\n     FORCE          FORCE-1          4, 9\r\n     FORCE          FORCE-2          3, 6\r\n     FORCE          FORCE-3          5, 8\r\n     FORCE          FORCE-4          2, 7\r\n\r\nBAR, ELBOW\r\n     STRESS         SA-MAX           7, 8\r\n     STRESS         SB-MAX          14, 15\r\n     STRESS         MARGIN           9, 16\r\n     STRESS         AXIAL            6\r\n     FORCE          AXIAL            8\r\n     FORCE          TORQUE           9\r\n     FORCE          SHEAR            5, 6\r\n     FORCE          MOMENT-A         2, 3\r\n     FORCE          MOMENT-B         4, 5\r\n\r\nCONEAX\r\n     STRESS         NORM-U           4, 22\r\n     STRESS         NORM-V           5, 23\r\n     STRESS         SHEAR-UV         6, 24\r\n     STRESS         MAJOR            8, 26\r\n     STRESS         MINOR            9, 27\r\n     STRESS         MAX-SHR         10, 28\r\n     FORCE          MOMENT-U         3\r\n     FORCE          MOMENT-V         4\r\n     FORCE          SHEAR-XY         6\r\n     FORCE          SHEAR-YZ         7\r\n\r\nTRIARG\r\n     STRESS         RADIAL           2\r\n     STRESS         CIRCUM           3\r\n     STRESS         AXIAL            4\r\n     STRESS         SHEAR            5\r\n     FORCE          RADIAL           2, 5, 8\r\n     FORCE          CIRCUM           3, 6, 9\r\n     FORCE          AXIAL            4, 7, 10\r\n\r\nTRAPRG\r\n     STRESS         RADIAL           2,  6, 10, 14 ... 22\r\n     STRESS         CIRCUM           3,  7, 11, 15 ... 23\r\n     STRESS         AXIAL            4,  8, 12, 16 ... 24\r\n     STRESS         SHEAR            5,  9, 13, 17 ... 25\r\n     STRESS         SHR-FBRC         6, 10, 14, 18 ... 26\r\n     FORCE          RADIAL           2,  5,  8, 11\r\n     FORCE          CIRCUM           3,  6,  9, 12\r\n     FORCE          AXIAL            4,  7, 10, 13\r\n\r\nTORDRG\r\n     STRESS         MEM-T            2,  7, 12\r\n     STRESS         MEM-C            3,  8, 13\r\n     STRESS         FLEX-T           4,  9, 14\r\n     STRESS         FLEX-C           5, 10, 15\r\n     STRESS         SHR-FORC         6, 11, 16\r\n     FORCE          RADIAL           2,  8\r\n     FORCE          CIRCUM           3,  9\r\n     FORCE          AXIAL            4, 10\r\n     FORCE          MOMENT           5, 11\r\n     FORCE          CURV             7, 13\r\n\r\nIHEX1, IHEX2\r\n     STRESS         NORM-X           3, 25, 47, 69 ... ETC.\r\n     STRESS         SHEAR-XY         4, 26, 48, 70 ... ETC.\r\n     STRESS         PRINC-A          5, 27, 49, 71 ... ETC.\r\n     STRESS         MEAN             9, 31, 53, 75 ... ETC.\r\n     STRESS         NORM-Y          11, 33, 55, 77 ... ETC.\r\n     STRESS         SHEAR-YZ        12, 34, 56, 78 ... ETC.\r\n     STRESS         PRINC-B         13, 35, 57, 79 ... ETC.\r\n     STRESS         NORM-Z          17, 39, 61, 83 ... ETC.\r\n     STRESS         SHEAR-ZX        18, 40, 62, 84 ... ETC.\r\n     STRESS         PRINC-C         19, 41, 63, 85 ... ETC.\r\n     STRESS         MAX-SHR         10, 32, 54, 76 ... ETC.\r\n     STRESS         OCT-SHR         10, 32, 54, 76 ... ETC.\r\n\r\nIHEX3\r\n     STRESS         NORM-X           3, 26, 49, 72 ... 739\r\n     STRESS         SHEAR-XY         4, 27, 50, 73 ... 740\r\n     STRESS         PRINC-A          5, 28, 51, 74 ... 741\r\n     STRESS         MEAN             9, 32, 55, 78 ... 745\r\n     STRESS         NORM-Y          12, 35, 58, 81 ... 748\r\n     STRESS         SHEAR-YZ        13, 36, 59, 82 ... 749\r\n     STRESS         PRINC-B         14, 37, 60, 83 ... 750\r\n     STRESS         NORM-Z          18, 41, 64, 87 ... 754\r\n     STRESS         SHEAR-ZX        19, 42, 65, 88 ... 755\r\n     STRESS         PRINC-C         20, 43, 66, 89 ... 756\r\n     STRESS         MAX-SHR         10, 33, 56, 79 ... 746\r\n     STRESS         OCT-SHR         10, 33, 56, 79 ... 746\r\n\r\nTRIAAX, TRAPAX\r\n     STRESS         RADIAL           3, 11, 19\r\n     STRESS         AXIAL            4, 12, 20\r\n     STRESS         CIRCUM           5, 13, 21\r\n     STRESS         MEM-C            6, 14, 22\r\n     STRESS         FLEX-T           7, 15, 23\r\n     STRESS         FLEX-C           8, 16, 24\r\n     FORCE          RADIAL           3,  7, 11\r\n     FORCE          CIRCUM           4,  8, 12\r\n     FORCE          AXIAL            5,  9, 13\r\n\r\nQUAD4, TRIA3\r\n     STRESS         NORMAL-X         3, 11\r\n     STRESS         NORMAL-Y         4, 12\r\n     STRESS         SHEAR-XY         5, 13\r\n     STRESS         MAJOR            7, 15\r\n     STRESS         MINOR           18, 16\r\n     STRESS         MAX-SHR          9, 17\r\n     FORCE          FX+FY            2,  3\r\n     FORCE          FXY              4\r\n     FORCE          MX+MY            5,  6\r\n     FORCE          MXY              7\r\n     FORCE          VX+VY            8, 19\r\n     STRESS         NORMAL-1         5, 15, 25, 35\r\n     STRESS         NORMAL-2         6, 16, 26, 36\r\n     STRESS         SHEAR-12         7, 17, 27, 37\r\n     STRESS         SHEAR-1Z        10, 20, 30, 40\r\n     STRESS         SHEAR-2Z        11, 21, 31, 41\r\n\r\n   Use output field number(s) to specify component(s) for elements or keywords\r\n   not listed above. See sections 2.3.51 and 2.3.52 of the Programmer's Manual\r\n   for additional element stress and force component definitions.\r\n=PAGE=\r\nSDAMPING - Structural Damping\r\n\r\nDescription\r\n\r\nSelects table which defines damping as a function of frequency in modal\r\nformulation problems.\r\n\r\nFormat and Example(s)\r\n\r\nSDAMPING = n\r\n\r\nSDAMPING = 77\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a TABDMP1 table (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. If SDAMPING is not used BHH = [0].\r\n=PAGE=\r\nSDISPLACEMENT - Solution Set Displacement Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of solution set displacement output.\r\n\r\nFormat and Example(s)\r\n\r\n                                               \r\nSDISPLACEMENT  ( SORT1, PRINT, REAL )     ALL  \r\n                 SORT2  PUNCH  IMAG    =   n   \r\n                               PHASE      NONE \r\n                                               \r\n\r\nSDISPLACEMENT  =  ALL\r\n\r\nSDISPLACEMENT(SORT2, PUNCH, PHASE)  =  NONE\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point (or mode number). SORT2 is available only in\r\n            transient and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Displacements for all points (modes) will be output.\r\n\r\nNONE        Displacements for no points (modes) will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            displacements of points whose identification numbers appear on\r\n            this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In a frequency response problem any request for SORT2 causes all output to\r\n   be SORT2.\r\n\r\n4. SVECTOR is an alternate form which is entirely equivalent to SDISPLACEMENT.\r\n\r\n5. SDISPLACEMENT = NONE allows overriding an overall output request.\r\n=PAGE=\r\nSET - Set Definition Card\r\n\r\nDescription\r\n\r\n1. Lists identification numbers (point or element) for output requests.\r\n\r\n2. Lists the frequencies for which output will be printed in frequency\r\nresponse problems.\r\n\r\nFormat and Example(s)\r\n\r\n1. SET n = {i1[,i2, i3 THRU 14 EXCEPT i5, i6, i7, i8 THRU i9]}\r\n\r\n   SET 77 =  5\r\n\r\n   SET 88 = 5, 6, 7, 8, 9, 10 THRU 55 EXCEPT 15, 16, 77, 78, 79, 100 THRU 300\r\n\r\n   SET 99 = 1 THRU 100000\r\n\r\n2. SET n = {r1[, r2, r3, r4]}\r\n\r\n   SET 101 = 1.0, 2.0, 3.0\r\n\r\n   SET 105 = 1.009, 10.2, 13.4, 14.0, 15.0\r\n\r\nOption      Meaning\r\n\r\nn           Set identification (Integer > 0). Any set may be redefined by\r\n            reassigning its identification number. Sets inside SUBCASE\r\n            delimiters are local to the SUBCASE.\r\n\r\ni1, i2 etc. Element or point identification number at which output is\r\n            requested. (Integer > 0) If no such identification number exists,\r\n            the request is ignored.\r\n\r\ni3 THRU i4  Output at set identification numbers i3 through i4 (i4 > i3).\r\n\r\nEXCEPT      Set identification numbers following EXCEPT will be deleted from\r\n            output list as long as they are in the range of the set defined by\r\n            the immediately preceding THRU.\r\n\r\nr1, r2 etc. Frequencies for output (Real >= 0.0). The nearest solution\r\n            frequency will be output. EXCEPT and THRU cannot be used.\r\n\r\nRemarks\r\n\r\n1. A SET card may be more than one physical card. A comma (,) at the end of a\r\n   physical card signifies a continuation card. Commas may not end a set.\r\n\r\n2. Identification numbers following EXCEPT within the range of the THRU must\r\n   be in ascending order.\r\n\r\n3. In the first format, i8 must be greater than i4; that is, the THRU must not\r\n   be within an EXCEPT range.\r\n=PAGE=\r\nSPC - Single-Point Constraint Set Selection\r\n\r\nDescription\r\n\r\nSelects the single-point constraint set to be applied to the structural model.\r\n\r\nFormat and Example(s)\r\n\r\nSPC = n\r\n\r\nSPC = 10\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a single-point constraint set and hence must\r\n            appear on an SPC, SPC1, SPCADD, SPCAX, SPCS, or SPCS1 card\r\n            (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. SPC, SPC1, SPCADD, SPCAX, SPCS, or SPCS1 cards will not be used by NASTRAN\r\n   unless selected in Case Control.\r\n=PAGE=\r\nSPCFORCES - Single-Point Forces of Constraint Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of single point force of constraint vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                             \r\nSPCFORCES   ( SORT1, PRINT, REAL )      ALL  \r\n              SORT2  PUNCH  IMAG     =   n   \r\n                            PHASE       NONE \r\n                                             \r\n\r\nSPCFORCES = 5\r\n\r\nSPCFORCES(SORT2, PUNCH, PRINT, IMAG) = ALL\r\n\r\nSPCFORCES(PHASE) = NONE\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of load, frequency,\r\n            or time for each grid point. SORT2 is available only in static\r\n            analysis, transient, and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Single point forces of constraint for all points will be output.\r\n            (SORT1 will only output nonzero values.)\r\n\r\nNONE        Single point forces of constraint for no points will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            single-point forces of constraint for points whose identification\r\n            numbers appear on this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In static analysis or frequency response problems, any request for SORT2\r\n   output causes all output to be SORT2.\r\n\r\n4. A request for SORT2 causes loads (zero and nonzero) to be output.\r\n\r\n5. SPCFORCES = NONE allows overriding an overall output request.\r\n\r\n6. In heat transfer analysis, SPCFORCE output is the power necessary to\r\n   maintain a grid point at a fixed temperature.\r\n=PAGE=\r\nSTRAIN - Element Strain/Curvature Output Request\r\n\r\nDescription\r\n\r\nRequests element strain/curvature output.\r\n\r\nFormat and Example(s)\r\n\r\n                         \r\nSTRAIN ( PRINT ) =  ALL  \r\n         PUNCH       n   \r\n                    NONE \r\n                           \r\n\r\nSTRAIN (PUNCH)  =  5\r\n\r\nSTRAIN (PRINT,PUNCH)  =  ALL\r\n\r\nOption      Meaning\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Strains/curvatures for all elements will be output. See Remark 5.\r\n\r\nNONE        Strains/curvatures for no elements will be output.\r\n\r\nn           Set identification of previously appearing SET card (Integer > 0).\r\n            Only strains/curvatures for elements whose identification numbers\r\n            appear on this SET card will be output. See Remark 5.\r\n\r\nRemarks\r\n\r\n1. Element strains/curvatures are output from static analysis (Rigid Format 1)\r\n   only.\r\n\r\n2. The output will be in SORT1 format.\r\n\r\n3. Both PRINT and PUNCH may be requested.\r\n\r\n4. STRAIN = NONE allows overriding an overall output request.\r\n\r\n5. Strains/curvatures are computed only for TRIA1, TRIA2, QUAD1, and QUAD2\r\n   elements.\r\n\r\n6. If element strains/curvatures in the material coordinate system are\r\n   desired, the parameter STRAIN (see the description of the PARAM bulk data\r\n   card in Section 2.4.2) should be set to be a positive integer. If, in\r\n   addition to element strains/curvatures in the material coordinate system,\r\n   strains/curvatures at the connected grid points are also desired, the\r\n   parameter STRAIN should be set to 0.\r\n\r\n7. The format of the two-line output for each element consists of strain in\r\n   the middle surface (line 1) and curvature (line 2).\r\n=PAGE=\r\nSTRESS - Element Stress Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of element stress output.\r\n\r\nFormat and Example(s)\r\n\r\n                                                                  \r\n         ( SORT1       PRINT       EXTREME       REAL )      ALL  \r\nSTRESS     SORT2   ,   PUNCH    ,  LAYER     ,   IMAG    =    n   \r\n                      NOPRINT                    PHASE       NONE \r\n                                                                  \r\n\r\nSTRESS = 5\r\n\r\nSTRESS = ALL\r\n\r\nSTRESS(SORT1, PRINT, PUNCH, PHASE) = 15\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of elements for each\r\n            load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of load, frequency,\r\n            or time for each element type. SORT2 is available only in static\r\n            analysis, transient, and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nNOPRINT     Stresses are calculated and saved on file which is not sent to\r\n            output device.\r\n\r\nEXTREME or LAYER  Requests stresses to be calculated at the extreme (top and \r\n            bottom) fibers of a plate element or, for composites, the stresses\r\n            for each layer. (See Remarks 7 and 8.)\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Stresses for all elements will be output.\r\n\r\nn           Set identification of a previously appearing SET card (Integer >\r\n            0). Only stresses for elements whose identification numbers appear\r\n            on this SET card will be output.\r\n\r\nNONE        Stresses for no elements will be output.\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In static analysis or frequency response problems, any request for SORT2\r\n   output causes all output to be SORT2.\r\n\r\n4. STRESS is an alternate form and is entirely equivalent to ELSTRESS.\r\n\r\n5. STRESS = NONE allows overriding an overall request.\r\n\r\n6. If element stresses in the material coordinate system are desired (only for\r\n   TRIA1, TRIA2, QUAD1, and QUAD2 elements and only in Rigid Format 1), the\r\n   parameter STRESS (see the description of the PARAM bulk data card in\r\n   Section 2.4.2) should be set to be a positive integer. If, in addition to\r\n   element stresses in the material coordinate system, stresses at the\r\n   connected grid points are also desired, the parameter STRESS should be set\r\n   to 0.\r\n\r\n7. When LAYER is selected, individual layer stresses and/or failure indices\r\n   will be output.\r\n\r\n8. The options EXTREME and LAYER are only applicable for the QUAD4 and TRIA3\r\n   elements.\r\n=PAGE=\r\nSUBCASE - Subcase Delimiter\r\n\r\nDescription\r\n\r\nDelimits and identifies a subcase.\r\n\r\nFormat and Example(s)\r\n\r\nSUBCASE n\r\n\r\nSUBCASE 101\r\n\r\nOption      Meaning\r\n\r\nn           Subcase identification number (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The subcase identification number, n, must be strictly increasing (that is,\r\n   greater than all previous subcase identification numbers).\r\n\r\n2. Plot requests and RANDOM requests refer to n.\r\n=PAGE=\r\nSUBCOM - Combination Subcase Delimiter\r\n\r\nDescription\r\n\r\nDelimits and identifies a combination subcase.\r\n\r\nFormat and Example(s)\r\n\r\nSUBCOM  n\r\n\r\nSUBCOM  125\r\n\r\nOption      Meaning\r\n\r\nn           Subcase identification number (Integer > 2).\r\n\r\nRemarks\r\n\r\n1. The subcase identification number, n, must be strictly increasing (that is,\r\n   greater than all previous subcase identification numbers).\r\n\r\n2. A SUBSEQ card may appear in this subcase.\r\n\r\n3. SUBCOM may only be used in statics or inertia relief problems.\r\n\r\n4. Output requests above the subcase level will be utilized.\r\n\r\n5. Up to 360 SUBCOM cards can be used in one NASTRAN analysis.\r\n=PAGE=\r\nSUBSEQ - Subcase Sequence Coefficients\r\n\r\nDescription\r\n\r\nGives the coefficients for forming a linear combination of the previous\r\nsubcases.\r\n\r\nFormat and Example(s)\r\n\r\nSUBSEQ = R1 [, R2, R3, ..., RN]\r\n\r\nSUBSEQ = 1.0, -1.0, 0.0, 2.0\r\n\r\nOption      Meaning\r\n\r\nR1 to RN    Coefficients of the previously occurring subcases (Real).\r\n\r\nRemarks\r\n\r\n1. A SUBSEQ card must only appear in a SUBCOM subcase.\r\n\r\n2. A SUBSEQ card may be more than one physical card. A comma at the end\r\n   signifies a continuation card.\r\n\r\n3. SUBSEQ may only be used in statics or inertia relief problems.\r\n\r\n4. A default value of 1.0 is used for all of the coefficients if no SUBSEQ\r\n   card is used.\r\n=PAGE=\r\nSUBTITLE - Output Subtitle\r\n\r\nDescription\r\n\r\nDefines a BCD (alphanumeric) subtitle which will appear on the second heading\r\nline of each page of NASTRAN printer output.\r\n\r\nFormat and Example(s)\r\n\r\n                          \r\nSUBTITLE  =  Any BCD data \r\n                          \r\n\r\nSUBTITLE = NASTRAN PROBLEM NO. 5-1A\r\n\r\nRemarks\r\n\r\n1. SUBTITLE appearing at the subcase level will title output for that subcase\r\n   only.\r\n\r\n2. SUBTITLE appearing before all subcases will title any outputs which are not\r\n   subcase dependent.\r\n\r\n3. If no SUBTITLE card is supplied, the subtitle line will be blank.\r\n\r\n4. SUBTITLE information is also placed on NASTRAN plotter output as\r\n   applicable.\r\n=PAGE=\r\nSVECTOR - Solution Set Displacement Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of solution set displacement output.\r\n\r\nFormat and Example(s)\r\n\r\n                                           \r\n           ( SORT1, PRINT, REAL )     ALL  \r\nSVECTOR      SORT2  PUNCH  IMAG    =   n   \r\n                           PHASE      NONE \r\n                                           \r\n\r\nSVECTOR = ALL\r\n\r\nSVECTOR(SORT2, PUNCH, PHASE) = NONE\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point (or mode number). SORT2 is available only in\r\n            transient and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Displacements for all points (modes) will be output.\r\n\r\nNONE        Displacements for no points (modes) will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            displacements of points whose identification numbers appear on\r\n            this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. In a frequency response problem any request for SORT2 causes all output to\r\n   be SORT2.\r\n\r\n4. SDISPLACEMENT is an alternate form and is entirely equivalent to SVECTOR.\r\n\r\n5. SVECTOR = NONE allows overriding an overall output request.\r\n=PAGE=\r\nSVELOCITY - Solution Set Velocity Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of solution set velocity output.\r\n\r\nFormat and Example(s)\r\n\r\n                                          \r\n           ( SORT1, PRINT, REAL )    ALL  \r\nSVELOCITY    SORT2  PUNCH  IMAG   =   n   \r\n                           PHASE     NONE \r\n                                          \r\n\r\nSVELOCITY = 5\r\n\r\nSVELOCITY(SORT2, PUNCH, PRINT, PHASE) = ALL\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point (or mode number). SORT2 is available only in\r\n            transient and frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on frequency response\r\n            problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            frequency response problems.\r\n\r\nALL         Velocity for all solution points (modes) will be output.\r\n\r\nNONE        Velocity for no solution points (modes) will be output.\r\n\r\nn           Set identification of a previously appearing SET card. Only\r\n            velocities of points whose identification numbers appear on this\r\n            SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. Velocity output is only available for transient and frequency response\r\n   problems.\r\n\r\n4. In a frequency response problem any request for SORT2 output causes all\r\n   output to be SORT2.\r\n\r\n5. SVELOCITY = NONE allows overriding an overall output request.\r\n=PAGE=\r\nSYM - Symmetry Subcase Delimiter\r\n\r\nDescription\r\n\r\nDelimits and identifies a symmetry subcase.\r\n\r\nFormat and Example(s)\r\n\r\nSYM   n\r\n\r\nSYM   123\r\n\r\nOption      Meaning\r\n\r\nn           Subcase identification number (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. The subcase identification number, n, must be strictly increasing (that is,\r\n   greater than all previous subcase identification numbers).\r\n\r\n2. Plot requests and RANDOM requests should refer to n.\r\n\r\n3. Overall output requests will not propagate into a SYM subcase (that is any\r\n   output desired must be requested within the subcase).\r\n\r\n4. SYM may only be used in statics or inertia relief.\r\n=PAGE=\r\nSYMCOM - Symmetry Combination Subcase Delimiter\r\n\r\nDescription\r\n\r\nDelimits and identifies a symmetry combination subcase.\r\n\r\nFormat and Example(s)\r\n\r\nSYMCOM n\r\n\r\nSYMCOM 123\r\n\r\nOption      Meaning\r\n\r\nn           Subcase identification number (Integer > 2).\r\n\r\nRemarks\r\n\r\n1. The subcase identification number, n, must be strictly increasing (that is,\r\n   greater than all previous subcase identification numbers).\r\n\r\n2. SYMCOM may only be used in statics or inertia relief problems.\r\n\r\n3. Up to 360 SYMCOM cards can be used in one NASTRAN analysis.\r\n=PAGE=\r\nSYMSEQ - Symmetry Sequence Coefficients\r\n\r\nDescription\r\n\r\nGives the coefficients for combining the symmetry subcases into the total\r\nstructure.\r\n\r\nFormat and Example(s)\r\n\r\nSYMSEQ = R1 [, R2, R3 ..., Rn]\r\n\r\nSYMSEQ = 1.0, -2.0, 3.0, 4.0\r\n\r\nOption      Meaning\r\n\r\nR1 to RN    Coefficients of the previously occurring N SYM subcases (Real).\r\n\r\nRemarks\r\n\r\n1. A SYMSEQ card may only appear in a SYMCOM subcase.\r\n\r\n2. The default value for the coefficients is 1.0 if no SYMSEQ card appears.\r\n\r\n3. A SYMSEQ card may consist of more than one physical card.\r\n\r\n4. SYMSEQ may only be used in statics or inertia relief.\r\n=PAGE=\r\nTEMPERATURE - Thermal Properties Set Selection\r\n\r\nDescription\r\n\r\nSelects the temperature set to be used in either material property calculation\r\nor thermal loading.\r\n\r\nFormat and Example(s)\r\n\r\n                          \r\n             (  BOTH     )\r\nTEMPERATURE     MATERIAL    =  n\r\n                LOAD      \r\n                          \r\n\r\nTEMPERATURE (LOAD) = 15\r\n\r\nTEMPERATURE (MATERIAL) = 7\r\n\r\nTEMPERATURE = 7\r\n\r\nOption      Meaning\r\n\r\nBOTH        Both options, MATERIAL and LOAD, will use the same temperature\r\n            table.\r\n\r\nMATERIAL    The selected temperature table will be used to determine\r\n            temperature-dependent material properties indicated on the MATTi\r\n            type cards.\r\n\r\nLOAD        The selected temperature table will be used to determine an\r\n            equivalent static load.\r\n\r\nn           Set identification number of TEMP, TEMPD, TEMPP1, TEMPP2, TEMPP3,\r\n            TEMPRB, or TEMPAX cards (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Only one temperature-dependent material request may be made in any problem\r\n   and it must be above the subcase level.\r\n\r\n2. Thermal loading may only be used in statics, inertia relief, differential\r\n   stiffness, and buckling problems.\r\n\r\n3. Temperature-dependent materials may not be used in piecewise linear\r\n   problems.\r\n\r\n4. The total load applied will be the sum of external (LOAD), thermal\r\n   (TEMP(LOAD)), element deformation (DEFORM), and constrained displacement\r\n   (SPC) loads.\r\n\r\n5. Static, thermal, and element deformation loads should have unique set\r\n   identification numbers.\r\n\r\n6. In heat transfer analysis, the TEMP data is used for the following special\r\n   purposes:\r\n\r\n   a. The Case Control card TEMP(MATERIAL) will select the initial estimated\r\n      temperature field for nonlinear conductivity and radiation effects. See\r\n      Section 1.8 (APP HEAT, Rigid Formats 1, 3, and 9).\r\n\r\n   b. In Rigid Format 3, heat boundary temperatures are defined by the\r\n      specified Case Control card TEMP(MATERIAL). These points are specified\r\n      with SPC data.\r\n=PAGE=\r\nTFL - Transfer Function Set Selection\r\n\r\nDescription\r\n\r\nSelects the transfer function set to be added to the direct input matrices.\r\n\r\nFormat and Example(s)\r\n\r\nTFL = n\r\n\r\nTFL = 77\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a TF card (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Transfer functions will not be used unless selected in the Case Control\r\n   Deck.\r\n\r\n2. Transfer functions are supported on dynamics problems only.\r\n\r\n3. Transfer functions are simply another form of direct matrix input.\r\n=PAGE=\r\nTHERMAL - Temperature Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of temperature vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                \r\nTHERMAL  PRINT , SORT1  =  ALL  \r\n         PUNCH   SORT2      n   \r\n                           NONE \r\n                                  \r\nTHERMAL = 5\r\n\r\nTHERMAL(PRINT,PUNCH) = ALL\r\n\r\nOption      Meaning\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nALL         Temperatures for all points will be output.\r\n\r\nNONE        Temperatures for no points will be output.\r\n\r\nn           Set identification of previously appearing SET card. Only\r\n            temperatures of points whose identification numbers appear on this\r\n            SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested. The punched output will consist of\r\n   double field TEMP* Bulk Data cards defining the temperatures at the grid\r\n   points.\r\n\r\n2. THERMAL output request is designed for use with the heat transfer option.\r\n   The printed output will have temperature headings and the punched output\r\n   will be TEMP bulk data cards. The SID on a bulk data card will be the\r\n   subcase number (= 1 if no defined subcases). The output format will be\r\n   SORT1 for Static problems and SORT2 for transient problems.\r\n\r\n3. An output request for ALL in transient response problems generally produces\r\n   large amounts of printout. An alternative would be to define a SET of\r\n   interest.\r\n\r\n4. DISPLACEMENT and VECTOR are alternate forms and are entirely equivalent to\r\n   THERMAL.\r\n\r\n5. THERMAL = NONE allows overriding an overall output request.\r\n\r\n6. The output format will be SORT1 for Rigid Formats 1 and 3, SORT2 for Rigid\r\n   Format 9.\r\n\r\n7. If punched output is desired in Rigid Format 9 for subsequent use in the\r\n   other Rigid Formats, SORT1 format must be selected.\r\n=PAGE=\r\nTITLE - Output Title\r\n\r\nDescription\r\n\r\nDefines a BCD (alphanumeric) title which will appear on the first heading line\r\nof each page of NASTRAN printer output.\r\n\r\nFormat and Example(s)\r\n\r\n                        \r\nTITLE  =   Any BCD data \r\n                        \r\n\r\nTITLE = **$// ABCDEFGHI .... $\r\n\r\nRemarks\r\n\r\n1. TITLE appearing at the subcase level will title output for that subcase\r\n   only.\r\n\r\n2. TITLE appearing before all subcases will title any outputs which are not\r\n   subcase dependent.\r\n\r\n3. If no TITLE card is supplied, the title line will contain data and page\r\n   numbers only.\r\n\r\n4. TITLE information is also placed on NASTRAN plotter output as applicable.\r\n=PAGE=\r\nTSTEP - Transient Time Step Set Selection\r\n\r\nDescription\r\n\r\nSelects integration and output time steps for transient problems.\r\n\r\nFormat and Example(s)\r\n\r\nTSTEP = n\r\n\r\nTSTEP = 731\r\n\r\nOption      Meaning\r\n\r\nn           Set identification of a selected TSTEP bulk data card (Integer >\r\n            0).\r\n\r\nRemarks\r\n\r\n1. A TSTEP card must be selected to execute a transient problem.\r\n\r\n2. Only one TSTEP card may have this value of n.\r\n=PAGE=\r\nVECTOR - Displacement Output Request\r\nDescription\r\n\r\nRequests form and type of displacement vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                           \r\nVECTOR    ( SORT1, PRINT, REAL )      ALL  \r\n            SORT2  PUNCH  IMAG    =    n   \r\n                          PHASE       NONE \r\n                                           \r\n\r\nVECTOR = 5\r\n\r\nVECTOR(REAL) = ALL\r\n\r\nVECTOR(SORT2, PUNCH, REAL) = ALL\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available on transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each grid point. SORT2 is available only in transient and\r\n            frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on complex eigenvalue or\r\n            frequency response problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            complex eigenvalue or frequency response problems.\r\n\r\nALL         Displacements for all points will be output.\r\n\r\nNONE        Displacements for no points will be output.\r\n\r\nn           Set identification of a previously appearing SET card. Only\r\n            displacements of points whose identification numbers appear on\r\n            this SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. On a frequency response problem any request for SORT2 causes all output to\r\n   be SORT2.\r\n\r\n3. DISPLACEMENT and PRESSURE are alternate forms and are entirely equivalent\r\n   to VECTOR.\r\n\r\n4. VECTOR = NONE allows overriding an overall output request.\r\n=PAGE=\r\nVELOCITY - Velocity Output Request\r\n\r\nDescription\r\n\r\nRequests form and type of velocity vector output.\r\n\r\nFormat and Example(s)\r\n\r\n                                             \r\nVELOCITY    ( SORT1, PRINT, REAL )      ALL  \r\n              SORT2  PUNCH  IMAG    =    n   \r\n                            PHASE       NONE \r\n                                             \r\n\r\nVELOCITY = 5\r\n\r\nVELOCITY(SORT2, PHASE, PUNCH) = ALL\r\n\r\nOption      Meaning\r\n\r\nSORT1       Output will be presented as a tabular listing of grid points for\r\n            each load, frequency, eigenvalue, or time, depending on the rigid\r\n            format. SORT1 is not available in transient problems (where the\r\n            default is SORT2).\r\n\r\nSORT2       Output will be presented as a tabular listing of frequency or time\r\n            for each gridpoint. SORT2 is available only in transient and\r\n            frequency response problems.\r\n\r\nPRINT       The printer will be the output device.\r\n\r\nPUNCH       The card punch will be the output device.\r\n\r\nREAL or IMAG  Requests real or imaginary output on frequency response\r\n            problems.\r\n\r\nPHASE       Requests magnitude and phase (0.0 <= phase < 360.0 degrees) on\r\n            frequency response problems.\r\n\r\nALL         Velocity for all solution points will be output.\r\n\r\nNONE        Velocity for no solution points will be output.\r\n\r\nn           Set identification of a previously appearing SET card. Only\r\n            velocities of points whose identification numbers appear on this\r\n            SET card will be output (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. Both PRINT and PUNCH may be requested.\r\n\r\n2. An output request for ALL in transient and frequency response problems\r\n   generally produces large amounts of printout. An alternative would be to\r\n   define a SET of interest.\r\n\r\n3. Velocity output is only available for transient and frequency response\r\n   problems.\r\n\r\n4. In a frequency response problem any request for SORT2 output causes all\r\n   output to be SORT2.\r\n\r\n5. VELOCITY = NONE allows overriding an overall output request.\r\n=PAGE=\r\n$ - Comment Card\r\n\r\nDescription\r\n\r\nDefines a comment card by specifying a $ in column one with commentary text\r\nappearing in columns 2-80.\r\n\r\nFormat and Example(s)\r\n\r\n                 \r\n$   Any BCD data \r\n                 \r\n\r\n$---THIS IS AN EXAMPLE OF A COMMENT CARD.\r\n\r\nRemarks\r\n\r\n1. Unlike other Case Control cards, which are free field, the comment card\r\n   must have the $ in column 1.\r\n\u001a\r\n"
  },
  {
    "path": "um/DICT.TXT",
    "content": "=PAGE=\r\n7.1  NASTRAN DICTIONARY\r\n\r\n   This section contains descriptions of mnemonics, acronyms, phrases, and\r\nother commonly used NASTRAN terms. The first column of the dictionary contains\r\nthe NASTRAN terms in alphabetical order. The second column contains a code\r\nindicating a general category for each term. The codes and categories, along\r\nwith general references to the Programmer's Manual (PM) and User's Manual\r\n(UM), are as follows: \r\n\r\n   CODE    CATEGORY                                   GENERAL REFERENCE\r\n\r\n   DBM     Data Block - Matrix                                     PM-2\r\n   DBML    Data Block - Matrix List                                PM-2\r\n   DBS     Data Block - Substructure Item                       UM-1.10\r\n   DBT     Data Block - Table                                      PM-2\r\n   EM      Executive Module                                      UM-5.7\r\n   FMA     Functional Module - Aero                                PM-4\r\n   FMH     Functional Module - Heat                                PM-4\r\n   FMM     Functional Module - Matrix Operation                  UM-5.4\r\n   FMS     Functional Module - Structural                          PM-4\r\n   FMSS    Functional Module - Substructuring                    UM-5.9\r\n   FMU     Functional Module - Utility                           UM-5.5\r\n   FMX     Functional Module - User                              UM-5.6\r\n   IA      Input - Executive Control                             UM-2.2\r\n   IB      Input - Bulk Data                                     UM-2.4\r\n   IC      Input - Case Control                                  UM-2.3\r\n   IS      Input - Substructure Control                          UM-2.7\r\n   L       Rigid Format Label                                UM-Vol. II\r\n   M       Miscellaneous\r\n   NP      NASTRAN card parameter                                UM-2.l\r\n   P       Parameter Name                                    UM-Vol. II\r\n   PH      Common Phrase or Term\r\n   PU      Parameter Set by User                                 UM-2.4\r\n\r\nThe third column of the dictionary contains a definition or description of the\r\nterms given in the first column. References to the User's Manual are indicated\r\nby UM-i and the Programmer's Manual by PM-i, where i is the section number of\r\nthe manual. References to particular rigid formats are indicated by D-i, H-i,\r\nor A-i, where i is the rigid format number in the DISPLACEMENT, HEAT, and AERO\r\napproaches, respectively.\r\n=PAGE=\r\nA             P      Parameter value used to control utility module MATGPR print\r\n                     of A-set matrices.\r\n\r\nABFL          DBM    [A    ] - Hydroelastic boundary area factor matrix.\r\n                       b,fl\r\n\r\nABFLT         DBM    Transpose of [A    ].\r\n                                    b,fl\r\n\r\nACCE          IC     Abbreviated form of ACCELERATION.\r\n\r\nACCE          IS     Acceleration output requests.\r\n\r\nACCELERATION  IC     Output request for acceleration vector. (UM-2.3, 4.2)\r\n\r\nACPT          DBT    Aerodynamic Connection and Property Data.\r\n\r\nActive column PH     Column containing at least one nonzero term outside the\r\n                     band.\r\n\r\nADD           FMM    Functional module to add two matrices together.\r\n\r\nADD           M      Parameter constant used in utility module PARAM.\r\n\r\nADD5          FMM    Functional module to add up to five matrices together.\r\n\r\nADR           FMS    Aerodynamic data recovery.\r\n\r\nADUMi         IB     Defines attributes of dummy elements 1 through 9.\r\n\r\nAEFACT        IB     Used to input lists of real numbers for aeroelastic\r\n                     analysis.\r\n\r\nAERO          DBT    Aerodynamic Matrix Generation Data.\r\n\r\nAERO          IB     Gives basic aerodynamic parameters.\r\n\r\nAEROF         IC     Aerodynamic force output request.\r\n\r\nAEROFORCE     IC     Requests frequency dependent aerodynamic loads on\r\n                     interconnection points in aeroelastic response analysis.\r\n\r\nAJJL          DBML   Aerodynamic Influence Matrix List.\r\n\r\nALL           IC     Output request for all of a specified type of output.\r\n\r\nALLEDGE TICS  IC     Request tic marks on all edges of X-Y plot.\r\n\r\nALTER         IA     Alter statement for DMAP or rigid format.\r\n\r\nALWAYS        P      Parameter set to -1 by a PARAM statement.\r\n\r\nAMG           FMA    Aerodynamic Matrix Generator.\r\n\r\nAMP           FMA    Aerodynamic Matrix Processor.\r\n\r\nAND           M      Parameter constant used in executive module PARAM.\r\n\r\nAOUT$         M      Indicates restart with solution set output request.\r\n\r\nAPD           FMA    Aerodynamic pool distributor and element generator.\r\n\r\nAPP           IA     Control card which specifies approach (DISP, DMAP, HEAT, or\r\n                     AERO).\r\n\r\nAPP           P      Approach flag used for modules with several functions.\r\n\r\nAPPEND        M      File may be extended (see FILE).\r\n\r\nASDMAP        FMSS   Assemble substructure DMAP.\r\n\r\nASET          IB     Analysis set coordinate definition card.\r\n\r\nASET1         IB     Analysis set coordinate definition card.\r\n\r\nAUTO          IC     Requests X-Y plot of autocorrelation function.\r\n\r\nAUTO          DBT    Autocorrelation function table.\r\n\r\nAXES          IC     Defines orientation of object for structure plot.\r\n\r\nAXIC          DBT    Generated by Input File Processor 3 (IFP3) for axisymmetric\r\n                     conical shell problems.\r\n\r\nAXIC          IB     Axisymmetrical conical shell definition card. When this\r\n                     card is present, most other bulk data cards may not be\r\n                     used.\r\n\r\nAXIF          IB     Controls the formulation of a hydroelastic problem.\r\n\r\nAXISYM$       M      Indicates restart with conical shell or hydroelastic\r\n                     elements.\r\n\r\nAXISYMMETRIC  IC     Selects boundary conditions for axisymmetric shell problems\r\n                     or specifies the existence of hydroelastic fluid harmonics.\r\n\r\nAXSLOT        IB     Controls the formulation of acoustic analysis problems.\r\n=PAGE=\r\nB             PH     Upper semi band of matrix.\r\n\r\n                       2\r\nB2DD          DBM    [B  ] - Partition of direct input damping matrix.\r\n                       dd\r\n\r\n                       2\r\nB2PP          DBM    [B  ] - Direct input damping matrix for all physical\r\n                       pp\r\n                     points.\r\n\r\nB2PP          IC     Selects direct input structural damping or thermal\r\n                     capacitance matrices.\r\n\r\nB2PP$         M      Indicates restart with change in direct input damping\r\n                     matrices.\r\n\r\nBAA           DBM    [B  ] - Partition of damping matrix.\r\n                       aa\r\n\r\nBALL EDGE     IC     Request for all edge tic marks to be plotted on lower frame\r\nTICS                 of an X-Y plot.\r\n\r\nBAR           IC     Requests structure plot for all bar elements.\r\n\r\nBAROR         IB     Bar orientation default definition.\r\n\r\nBASIC         IS     Basic substructure for output requests.\r\n\r\nBBAR          PH     Lower semi band of matrix.\r\n\r\nBDD           DBM    [B  ] - Damping matrix used in direct formulation of\r\n                       dd    dynamics problems (D-7 through D-9, A-11).\r\n\r\nBDEBA         P      Parameter used to indicate equivalence of BDD and BAA.\r\n\r\nBDPOOL        DBT    Hydroelastic boundary description table.\r\n\r\nBDYC          IB     Combination of substructure boundary sets of retained\r\n                     degrees of freedom or fixed degrees of freedom for modes\r\n                     calculation.\r\n\r\nBDYLIST       IB     Structure-fluid hydroelastic boundary definition.\r\n\r\nBDYS          IB     Boundary set definition for substructuring.\r\n\r\nBDYS1         IB     Alternate boundary set definition for substructuring.\r\n\r\nBEGIN         EM     The first DMAP statement is always BEGIN.\r\n\r\nBEGIN BULK    IB     Control card which marks the end of the case control deck.\r\n                     Cards following this card are assumed to be bulk data\r\n                     cards.\r\n\r\nBETAD         PU     Factor in integration algorithm in transient heat transfer\r\n                     analysis.\r\n\r\nBFF           DBM    [B  ] - Partition of damping matrix.\r\n                       ff\r\n\r\nBGG           DBM    [B  ] - Damping matrix generated by Structural Matrix\r\n                       gg    Assembler.\r\n\r\nBGPA          DBT    Basic Grid Point Definition Table - aerodynamics.\r\n\r\nBGPDT         DBT    Basic Grid Point Definition Table.\r\n\r\nBGSS          DBS    Basic grid point coordinates.\r\n\r\nBHH           DBM    [B  ] - Partition of damping matrix.\r\n                       hh\r\n\r\nBKL0          P      Constant parameter value used in functional module SDR2 in\r\n                     the Buckling Analysis (D-5) and Normal Modes with\r\n                     Differential Stiffness (D-13) Rigid Formats.\r\n\r\nBKL1          P      Constant parameter value used in functional module SDR2 in\r\n                     the Buckling Analysis Rigid Format (D-5).\r\n\r\nBLANK FRAMES  IC     Requests blank frames between structure plots (UM-4.1).\r\n\r\nBLEFT TICS    IC     Request for left edge tic marks to be plotted on bottom\r\n                     frame of an X-Y plot.\r\n\r\nBMG           FMS    Generates DMIG card images describing interconnection of\r\n                     fluid and structure.\r\n\r\nBMTX          DBS    Viscous damping matrix.\r\n\r\nBNN           DBM    [B  ] - Partition of damping matrix.\r\n                       nn\r\n\r\nBOTH          IC     Bulk data echo option - Requests both unsorted and sorted\r\n                     printout of bulk data deck.\r\n\r\nBOUNDARY      IS     Defines set of retained degrees of freedom.\r\n\r\nBOV           P      Aerodynamic parameter equal to the reference semichord\r\n                     divided by velocity.\r\n\r\nBPI           IC     Bits per inch - Plot tape density must be specified on\r\n                     control cards in addition to this data card. The required\r\n                     value will vary from one installation to another.\r\n\r\nBQG           DBM    Single-point forces of constraint for a Buckling Analysis\r\n                     problem (D-5).\r\n\r\nBRECOVER      IS     Basic Substructure Data Recovery.\r\n\r\nBRIGHT TICS   IC     Request for right edge tick marks to be plotted on bottom\r\n                     frame for X-Y plot.\r\n\r\nBSHH          DBM    Total modal damping matrix - h set.\r\n\r\nBUCKLING      IA     Selects rigid format for buckling analysis.\r\n\r\nBUCKLING      P      Constant parameter value used in functional module READ in\r\n                     the Buckling Analysis Rigid Format (D-5).\r\n\r\nBUCKLING      P      Used in printing rigid format error messages for Buckling\r\n                     Analysis (D-5).\r\n\r\nBUFFSIZE      NP     Defines the number of words in a GINO buffer.\r\n\r\nBulk Data     PH     One of the data decks necessary to run a problem under the\r\nDeck                 NASTRAN system. This deck begins after the BEGIN BULK card\r\n                     and ends with the ENDDATA card, and contains the data of\r\n                     the mathematical model. The format of each bulk data card\r\n                     is fixed field, 8 or 16 columns for each value.\r\n=PAGE=\r\nC             M      Used in parameter section of DMAP statement. Indicates that\r\n                     parameter is a constant.\r\n                                                                           _\r\nC             PM     Symbol for active column in triangular decomposition (C\r\n                     used for active rows).\r\n\r\nCAERO1        IB     Aerodynamic panel element, doublet lattice theory.\r\n\r\nCAERO2        IB     Aerodynamic body element, doublet lattice theory.\r\n\r\nCAERO3        IB     Aerodynamic surface element, Mach box.\r\n\r\nCAERO4        IB     Aerodynamic macro element, strip theory.\r\n\r\nCAERO5        IB     Aerodynamic macro element, piston theory.\r\n\r\nCALCOMP       IC     Request California Computer plotter.\r\n\r\nCAMERA        IC     Selects one or both of the two cameras for the SC 4020\r\n                     cathode ray tube electronic plotter. This information must\r\n                     usually also be given to the plotter operator on the run\r\n                     submittal slip, which will vary from one installation to\r\n                     another. (UM-4)\r\n\r\nCARDNO        P      Parameter used to accumulate a count of all card output\r\n                     punched except the NASTRAN restart dictionary.\r\n\r\nCASE          FMS    Extracts user request from CASECC for current loop in\r\n                     dynamics rigid formats (D-7 through D-12).\r\n\r\nCase Control  PM     One of the data decks necessary to run a problem under the\r\nDeck                 NASTRAN system. It contains cards which select particular\r\n                     data sets from the Bulk Data Deck, output request cards,\r\n                     and titling information. Cards in this deck are free field.\r\n\r\nCASECC        DBT    Case control data block.\r\n\r\nCASEXX        DBT    Case control data block as modified by functional module\r\n                     CASE.\r\n\r\nCASEYY        DBT    Appended case control data table.\r\n\r\nCASEZZ        DBT    CASEYY reduced to OFREQ list.\r\n\r\nCAXIF2        IB     Acoustic core element connection definition card.\r\n\r\nCAXIF3        IB     Acoustic triangular element connection definition card.\r\n\r\nCAXIF4        IB     Acoustic quadrilateral element connection definition card.\r\n\r\nCBAR          IB     Bar element connection definition card.\r\n\r\nCCONEAX       IB     Axisymmetrical conical shell element connection card.\r\n\r\nCDAMP1        IB     Scalar damper connection definition card.\r\n\r\nCDAMP2        IB     Scalar damper property and connection definition card.\r\n\r\nCDAMP3        IB     Scalar damper connection definition card (connecting scalar\r\n                     points).\r\n\r\nCDAMP4        IB     Scalar damper property and connection definition card\r\n                     (connecting scalar points).\r\n\r\nCDUMi         IB     Defines definition card for dummy elements 1 through 9.\r\n\r\nCEAD          FMS    Complex Eigenvalue Analysis - Displacement.\r\n\r\nCEIF          P      Parameter used in SDR2 in Complex Eigenvalue Analysis (0-7\r\n                     and 0-10).\r\n\r\nCEIGN         P      Parameter used in VDR in Complex Eigenvalue Analysis (0-7\r\n                     and 0-10).\r\n\r\nCELAS1        IB     Scalar spring connection definition card.\r\n\r\nCELAS2        IB     Scalar spring property and connection definition card.\r\n\r\nCELAS3        IB     Scalar spring connection definition card (connecting scalar\r\n                     points).\r\n\r\nCELAS4        IB     Scalar spring property and connecting definition card\r\n                     (connecting scalar points).\r\n\r\nCEND          IA     The last card of the Executive Control Deck.\r\n\r\nCFLUID2       IB     Fluid core element connection definition card.\r\n\r\nCFLUID3       IB     Fluid triangular element connection definition card.\r\n\r\nCFLUID4       IB     Fluid quadrilateral element connection definition card.\r\n\r\nCHBDY         IB     Boundary element connection definition card for heat\r\n                     transfer analysis.\r\n\r\nCHECK         IB     Checks contents of external file.\r\n\r\nCheckpoint    PH     The process of writing selected data blocks onto the New\r\n                     Problem Tape for subsequent restarts.\r\n\r\nCHEXA1        IB     Hexahedron element connection definition card - five\r\n                     tetrahedra.\r\n\r\nCHEXA2        IB     Hexahedron element connection definition card - ten\r\n                     tetrahedra.\r\n\r\nCHKPNT        EM     Checkpoint module.\r\n\r\nCHKPNT        IA     Request for checkpoint execution.\r\n\r\nCLAMA         DBT    Complex eigenvalue output table.\r\n\r\nCLAMAL        DBT    Appended case control data table.\r\n\r\nCLANAL1       DBT    CLAMAL reduced to OFREQ list.\r\n\r\nCLEAR         IC     Causes all parameter values used for X-Y plots to be reset\r\n                     to their default values except plotter and the titles (UM-\r\n                     4.2).\r\n\r\nCMASS1        IB     Scalar mass connection definition card.\r\n\r\nCMASS2        IB     Scalar mass property and connection definition card.\r\n\r\nCMASS3        IB     Scalar mass connection definition card (connecting scalar\r\n                     points).\r\n\r\nCMASS4        IB     Scalar mass property and connection definition card\r\n                     (connecting scalar points).\r\n\r\nCMETHOD       IC     Complex eigenvalue analysis method selection.\r\n\r\nCMETHOD$      M      Indicates restart with change in complex eigenvalue\r\n                     analysis method selection.\r\n\r\nCMPLEV        P      Parameter used in GKAD to indicate complex eigenvalue\r\n                     problem.\r\n\r\nCold Start    PH     A NASTRAN problem initiated at its logical beginning. A\r\n                     cold start will never use an Old Problem Tape but it may\r\n                     create a New Problem Tape for subsequent restarts.\r\n\r\nCOLOR         IC     Selects ink color for table plotters (UM-4.l).\r\n\r\nCOMBINE       IB     Combines sets of substructures.\r\n\r\nCOMB1         FMSS   Substructure Combination, Step 1.\r\n\r\nCOMB2         FMSS   Substructure Combination, Step 2.\r\n\r\nCOMPONENT     IB     Identifies component substructure for special processing.\r\n\r\nCONCT         IB     Specifies grid points and degrees of freedom for manually\r\n                     specified connectivities using substructuring - will be\r\n                     overridden by RELAS data.\r\n\r\nCONCT1        IB     Alternate specification of connectivities using\r\n                     substructuring.\r\n\r\nCOND          EM     Conditional transfer.\r\n\r\nCONFIG        NP     Defines the model number of the computer system\r\n                     configuration for use in timing equations.\r\n\r\nCONM1         IB     Structural mass element connection definition card.\r\n\r\nCONM2         IB     Structural mass element connection definition card.\r\n\r\nCONNECT       IB     Defines sets for manually connected grids and releases.\r\n\r\nCONROD        IB     Rod element property and connection definition card.\r\n\r\nCONROD        IC     Requests structure plot for all CONROD elements.\r\n\r\nCONT          L      Continue if [K  ] is nonsingular.\r\n                                   oo\r\n\r\nCONTINUE      L      Exit after last loop.\r\n\r\nCONTOUR       IC     Specifies displacement and stress contours to be drawn on\r\n                     structure plots.\r\n\r\nCOPY          FMU    Generates a physical copy of a data block.\r\n\r\nCORD1C        IB     Cylindrical coordinate system definition (by grid point\r\n                     ID).\r\n\r\nCORD1R        IB     Rectangular coordinate system definition (by grid point\r\n                     ID).\r\n\r\nCORD1S        IB     Spherical coordinate system definition (by grid point ID).\r\n\r\nCORD2C        IB     Cylindrical coordinate system definition (by coordinates).\r\n\r\nCORD2R        IB     Rectangular coordinate system definition (by coordinates).\r\n\r\nCORD2S        IB     Spherical coordinate system definition (by coordinates).\r\n\r\nCOSINE        IC     Indicates cosine boundary conditions for conical shell\r\n                     problem.\r\n\r\nCOUPMASS      PU     Parameter used to request coupled mass.\r\n\r\nCPBAR         PU     Selects coupled mass option for BAR element.\r\n\r\nCPHID         DBM    Complex eigenvectors - solution set.\r\n\r\nCPHIA         DBM    Complex eigenvector matrix, A-set.\r\n\r\nCPHIH1        DBM    PHIHL reduced to OFREQ list.\r\n\r\nCPHIK         DBM    Complex eigenvector matrix, aerodynamic box points.\r\n\r\nCPHIP         DBM    Complex eigenvectors - physical set.\r\n\r\nCPHIPA        DBM    Complex eigenvector matrix, PA-set.\r\n\r\nCPHIPS        DBM    Complex eigenvector matrix, PS-set.\r\n\r\nCPQDPLT       PU     Selects coupled mass option for QDPLT element.\r\n\r\nCPQUAD1       PU     Selects coupled mass option for QUAD1 element.\r\n\r\nCPQUAD2       PU     Selects coupled mass option for QUAD2 element.\r\n\r\nCPROD         PU     Selects coupled mass option for ROD and CONROD elements.\r\n\r\nCPTRBSC       PU     Selects coupled mass option for TRBSC element.\r\n\r\nCPTRIA1       PU     Selects coupled mass option for TRIA1 element.\r\n\r\nCPTRIA2       PU     Selects coupled mass option for TRIA2 element.\r\n\r\nCPTRPLT       PU     Selects coupled mass option for TRPLT element.\r\n\r\nCPTUBE        PU     Selects coupled mass option for TUBE element.\r\n\r\nCQDMEM        IB     Quadrilateral membrane element connection definition card.\r\n\r\nCQDMEM1       IB     Isoparametric quadrilateral membrane element connection\r\n                     definition card.\r\n\r\nCQDMEM2       IB     Quadrilateral membrane element connection definition card.\r\n\r\nCQDPLT        IB     Quadrilateral bending element connection definition card.\r\n\r\nCQUAD1        IB     General Quadrilateral element connection definition card.\r\n\r\nCQUAD2        IB     Homogeneous quadrilateral element connection definition\r\n                     card.\r\n\r\nCRIGD1        IB     Rigid Element Connection.\r\n\r\nCRIGD2        IB     Rigid Element Connection.\r\n\r\nCRIGD3        IB     General rigid element connection.\r\n\r\nCRIGDR        IB     Rigid Rod element connection.\r\n\r\nCROD          IB     Rod element connection definition card.\r\n\r\nCREDUCE       IS     Complex modal reduction request.\r\n\r\nCSHEAR        IB     Shear panel element connection definition card.\r\n\r\nCSLOT3        IB     Triangular slot element connection definition card for\r\n                     acoustic analysis.\r\n\r\nCSLOT4        IB     Quadrilateral slot element connection definition card for\r\n                     acoustic analysis.\r\n\r\nCSTM          DBS    Local coordinate system transformation matrices.\r\n\r\nCSTM          DBT    Coordinate System Transformation Matrices.\r\n\r\nCSTMA         DBT    Coordinate System Transformation Matrices - Aerodynamics.\r\n\r\nCTETRA        IB     Tetrahedron element connection definition card.\r\n\r\nCTORDRG       IB     Toroidal ring element connection card.\r\n\r\nCTRAPRG       IB     Trapezoidal ring element connection card.\r\n\r\nCTRBSC        IB     Basic bending triangular element connection definition\r\n                     card.\r\n\r\nCTRIA1        IB     General triangular element connection definition card.\r\n\r\nCTRIA2        IB     Homogeneous triangular element connection definition card.\r\n\r\nCTRIARG       IB     Triangular ring element connection card.\r\n\r\nCTRIM         IB     Linear strain triangular element connection.\r\n\r\nCTRMRM        IB     Triangular membrane element connection definition card.\r\n\r\nCTRPLT        IB     Triangular bending element connection definition card.\r\n\r\nCTRPLT1       IB     Triangular element connection.\r\n\r\nCTRSHL        IB     Triangular shell element connection.\r\n\r\nCTUBE         IB     Tube element connection definition card.\r\n\r\nCTWIST        IB     Twist panel element connection definition card.\r\n\r\nCTYPE         PU     Defines the type of cyclic symmetry.\r\n\r\nCURVLINE      IC     Request to connect points with lines and/or to use symbols\r\nSYMBOL               for X-Y plots.\r\n\r\nCVISC         IB     Viscous damper element connection definition card.\r\n\r\nCWEDGE        IB     Wedge element connection definition card.\r\n\r\nCYCIO         PU     A parameter which specifies the form of the input and\r\n                     output data using cyclic symmetry.\r\n\r\nCYCSEQ        PU     A parameter which specifies the procedure for sequencing\r\n                     the equations in the solution set using cyclic symmetry.\r\n=PAGE=\r\nD             P      Parameter value used to control utility module MATGPR\r\n                     print of solution set matrices.\r\n\r\nDAREA         IB     Dynamic load scale card.\r\n\r\nDAREAS        IB     Dynamic load scale card for substructuring.\r\n\r\nData Block    PH     Designates a set of data (matrix, table) occupying a file.\r\n                     A file is \"allocated\" to a data block and a data block is\r\n                     \"assigned\" to a file.\r\n\r\nData Pool     PN     An executive file containing the OSCAR and any data blocks\r\nFile                 pooled by the Executive Segment File Allocator (XSFA)\r\n                     module. The contents of this file are described within the\r\n                     data pool dictionary (DPL).\r\n\r\nDDR           FMX    User dummy module.\r\n\r\nDDR1          FMS    Dynamic Data Recovery - Phase 1.\r\n\r\nDDR2          FMS    Dynamic Data Recovery - Phase 2.\r\n\r\nDDRMM         FMS    Dynamic data recovery, matrix method.\r\n\r\nDeck          PH     1. Job Control\r\n                     2. Executive Control Deck\r\n                     3. Substructure Control Deck\r\n                     4. Case Control Deck\r\n                     5. Bulk Data Deck\r\n\r\nDECOMOPT      P      Controls type of arithmetic used in the decomposition for\r\n                     frequency-response problems.\r\n\r\nDECOMP        FMM    To decompose a square matrix into upper and lower\r\n                     triangular factors.\r\n\r\nDefault       PH     Many NASTRAN data items have default values supplied by the\r\n                     system. For example, the default value for MAXLINES is\r\n                     20000.\r\n\r\nDEFORM        IB     Enforced element deformation definition card.\r\n\r\nDEFORM        IC     Enforced element deformation set selection.\r\n\r\nDEFORM$       M      Indicates restart with change in enforced element\r\n                     deformation selection.\r\n\r\nDEFORMATION   IC     Indicates subcases to be used for deformed structure plots.\r\n\r\nDELAY         IB     Dynamic load time delay card.\r\n\r\nDelete        IB     Delete cards from Bulk Data Deck.\r\n\r\nDELETE        IS     Deletes individual substructure items from the SOF.\r\n\r\nDELTAPG       DBM    Incremental load vector in Piecewise Linear Analysis Rigid\r\n                     Format (D-6).\r\n\r\nDELTAQG       DBM    Incremental vector of single point constraint forces in the\r\n                     Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nDELTAUGV      DBM    Incremental displacement vector in the Piecewise Linear\r\n                     Analysis Rigid Format (D-6).\r\n\r\nDENSITY       IC     Density of lines for SC 4020 plotter.\r\n\r\nDENSITY       IC     Plot tape density must be specified to plotter operator on\r\n                     run submittal form and will vary from one installation to\r\n                     another (UM-4.1).\r\n\r\nDESTROY       IS     Removes all data referencing a component substructure.\r\n\r\nDESTRY        P      Appended AJJL parameter.\r\n\r\nDET           IB     Eigenvalue analysis method option - determinant (see EIGR,\r\n                     EIGB, EIGC).\r\n\r\nDET           P      Scaled determinant |K  |, see NDET.\r\n                                          oo\r\n\r\nDIAGONAL      FMU    Strips diagonal from matrix.\r\n\r\nDIFF          P      Parameter used in the Piecewise Linear Analysis Rigid\r\n                     Format (D-6).\r\n\r\nDIFFERENTIAL  IA     Selects rigid format for static analysis with differential\r\nSTIFFNESS            stiffness.\r\n\r\nDIFFSTIF      P      Parameter used in the PRTPARM module in the Differential\r\n                     Stiffness Rigid Format (D-4).\r\n\r\nDIRCEAD       P      Used in printing rigid format error messages for direct\r\n                     complex eigenvalue analysis (D-7).\r\n\r\nDIRECT        P      Parameter used to indicate direct formulation of dynamics\r\n                     problems (D-7 through D-9).\r\n\r\nDIRECT        IA     Selects rigid format for direct complex eigenvalue\r\nCOMPLEX              analysis.\r\nEIGENVALUES\r\n\r\nDIRECT        IA     Selects rigid format for direct frequency and random\r\nFREQUENCY            response.\r\nRESPONSE\r\n\r\n\r\nDIRECT        IA     Selects rigid format for direct transient response.\r\nTRANSIENT\r\nRESPONSE\r\n\r\nDIRFRRD       P      Used in printing rigid format error messages for direct\r\n                     frequency response.\r\n\r\nDIRTRD        P      Used in printing rigid format error messages for direct\r\n                     transient response (D-9).\r\n\r\nDISP          IA     Displacement approach to structural analysis.\r\n\r\nDISP          IC     Abbreviated form of DISPLACEMENT.\r\n\r\nDISP          IS     Displacement output request.\r\n\r\nDISPLACEMENT  IC     Request for output of displacement vector or eigenvector.\r\n                     (UM-2.3, 4.2).\r\n\r\nDIT           DBT    Direct Input Table.\r\n\r\nDIV           P      Parameter constant used in utility module PARAM.\r\n\r\nDLOAD         IB     Dynamics load assembly definition.\r\n\r\nDLOAD         IC     Dynamic load set solution request.\r\n\r\nDLOAD$        M      Indicates restart with change in dynamic load set request.\r\n\r\nDLT           DBT    Dynamic Loads Table.\r\n\r\nDM            DBM    [D] - Rigid body transformation matrix.\r\n\r\nDMAP          IA     Approach option (Direct Matrix Abstraction Program).\r\n\r\nDMAP          PH     A statement in the DMAP Language.\r\nInstruction\r\n\r\nDMAP Language PH     Data block-oriented language used by the NASTRAN Executive\r\n                     System to direct the sequence and flow of modules to be\r\n                     executed.\r\n\r\nDMAP Loop     PH     A DMAP sequence to be repeated, initiated with a LABEL DMAP\r\n                     instruction and terminated by a REPT DMAP instruction.\r\n\r\nDMAP Module   PH     A module called by means of a DMAP instruction.\r\n\r\nDMAP Sequence PH     A set of DMAP instructions.\r\n\r\nDMI           IB     Direct Matrix Input (data block is defined and used by\r\n                     you).\r\n\r\nDMIAX         IB     Direct Matrix Input - Axisymmetric, used in dynamic rigid\r\n                     formats (D-7 through D-12).\r\n\r\nDMIG          IB     Direct Matrix Input - used in dynamic rigid formats (D-7\r\n                     through D-12).\r\n\r\nDoublet       PH     Subsonic aerodynamic theory.\r\nLattice\r\n\r\nDPD           FMS    Dynamic Pool Distributor.\r\n\r\nDPH           M      Data Pool Housekeeper - Executive routine.\r\n\r\nDPHASE        IB     Dynamic load phase lead card.\r\n\r\nDSO           P      Parameter used in functional module SDR2 in the\r\n                     Differential Stiffness Rigid Format (D-4).\r\n\r\nDS1           P      Parameter used in functional module SDR2 in the\r\n                     Differential Stiffness Rigid Format (D-4).\r\n\r\nDSCO          IC     Abbreviated form of DSCOEFFICIENT.\r\n\r\nDSCO$         M      Indicates restart with change in differential stiffness\r\n                     load factor.\r\n\r\nDSCOEFFICIENT IC     Selects loading factor for normal modes with differential\r\n                     stiffness.\r\n\r\nDSCOSET       P      Differential Stiffness coefficient set number. Used in the\r\n                     Differential Stiffness Rigid Format (D-13).\r\n\r\nDSFACT        IB     Differential stiffness factor set definition card.\r\n\r\nDSMG1         EMS    Differential Stiffness Matrix Generator - Phase 1.\r\n\r\nDSMG2         FMS    Differential Stiffness Matrix Generator - Phase 2.\r\n\r\nDTI           IB     Direct Table Input - means by which you may directly input\r\n                     any table data block.\r\n\r\nDUMMOD1       FMX    Dummy Module-1.\r\n\r\nDUMMOD2       FMX    Dummy Module-2.\r\n\r\nDUMMOD3       FMX    Dummy Module-3.\r\n\r\nDUMMOD4       FMX    Dummy Module-4.\r\n\r\nDummy Element PH     Provision for you to insert additional finite element into\r\n                     the NASTRAN element library.\r\n\r\nDUMP          IS     Copies the entire SOF to an external file.\r\n\r\nDump          PH     Printed output of contents of all, or a portion, of main\r\n                     memory at some point in the problem solution.\r\n\r\nDYNAMICS      DBT    Generated by the Input File Processor (IFP) for Real\r\n                     Eigenvalue, Buckling, or any of the Dynamics Rigid Formats\r\n                     (D-3, D-5, and D-7 through D-12).\r\n\r\nD1JE          DBM    Downwash factors due to extra points - real.\r\n\r\nD2JE          DBM    Downwash factors due to extra points - complex.\r\n\r\nD1JK          DBM    Real part of downwash matrix.\r\n\r\nD2JK          DBM    Imaginary part of downwash matrix.\r\n=PAGE=\r\nE             P      Parameter value used by MATGPR to print matrices associated\r\n                     with extra points.\r\n\r\nECHO          IC     Output request statement for echo of bulk data.\r\n\r\nECPT          DBT    Element Connection and Properties Table.\r\n\r\nECPTNL        DBT    Nonlinear subset of the ECPT. This data block is used only\r\n                     in the Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nECPTNL1       DBT    Updated version of the ECPTNL data block. Used only in the\r\n                     Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nECPTNLPG      P      Error flag for the Piecewise Linear Analysis Rigid Format\r\n                     (D-6). If all elements in a piecewise linear analysis\r\n                     problem are linear, this error flag is set and a DMAP exit\r\n                     occurs.\r\n\r\nECT           DBT    Element Connection Table.\r\n\r\nECTA          DBT    Element Connection Table - Aerodynamics.\r\n\r\nEDIT          IS     Removes data from SOF file.\r\n\r\nEDT           DBT    Enforced Deformation Table - generated by Input File\r\n                     Processor.\r\n\r\nEED           DBT    Eigenvalue Extraction Data table (D-3, D-5, D-7, D-10, D-\r\n                     11, D-12, D-13, D-15, A-10, A-11).\r\n\r\nEIGB          IB     Real eigenvalue extraction data for buckling analysis (D-5).\r\n\r\nEIGC          IB     Complex eigenvalue extraction data card (D-7 and D-10).\r\n\r\nEIGP          IB     Complex eigenvalue pole definition card (D-7 and D-10).\r\n\r\nEIGR          IB     Real eigenvalue extraction data for normal mode analysis\r\n                     (D-3, D-10 through D-13, D-15, A-10).\r\n\r\nEIGVS         P      Number of eigenvalues found by CEAD module.\r\n\r\nELEMENTS      IC     Used in element set definition for structure plot.\r\n\r\nELFORCE       IC     Requests the forces in a set of structural elements or the\r\n                     temperature gradients and fluxes in a set of structural or\r\n                     heat elements in heat transfer.\r\n\r\nELSETS        DBT    Element plot set connection tables.\r\n\r\nELSETSA       DBT    Data block ELSETS, extended to include generated\r\n                     aerodynamic elements.\r\n\r\nELSTRESS      IC     Request for output of element stresses. (UM-2.3, 4.2)\r\n\r\nEND           EM     The last DMAP statement is always END.\r\n\r\nEND           IA     END is the last statement in all DMAP sequences.\r\n\r\nENDALTER      IA     Last card of alter packet.\r\n\r\nENDDATA       IB     End of Bulk Data Deck.\r\n\r\nENDSUBS       IS     Terminates the Substructure Control Deck.\r\n\r\nENERGY        IS     Modal energies output requests.\r\n\r\nEOF           PH     End-of-File.\r\n\r\nEPOINT        IB     Extra point definition card - used in dynamics problems\r\n                     only.\r\n\r\nEPSHT         PU     Used in convergence tests for nonlinear heat transfer\r\n                     analysis.\r\n\r\nEPSILON       PH     Error ratio computed in SSG3.   =   if the referenced\r\nSUB E ( )                                          e    l\r\n        e            load is {P } and   =   if the referenced load is {P }.\r\n                               l       e    o                             o\r\n                     See Volume Il, Section 2.1.2, for mathematical definition\r\n                     of   and  .\r\n                         o      l\r\n\r\nEPSIO         PU     A parameter to test the convergence of iterated\r\n                     differential stiffness.\r\n\r\nEPT           DBT    Element Property Table - output by Input File Processor.\r\n\r\nEQAERO        DBT    Equivalence between external points and scalar index values\r\n                     - Aerodynamics.\r\n\r\nEQDYN         DBT    Equivalence of internal and external indices - dynamics.\r\n\r\nEQEXIN        DBT    Equivalence of internal and external indices.\r\n\r\nEQSS          DBS    External grid point and internal point equivalence data.\r\n\r\nEQUIV         EM     Equivalence data blocks.\r\n\r\nEQUIV         IS     Creates a new equivalent substructure.\r\n\r\nEquivalence   PH     Data blocks are considered equivalenced when references to\r\n                     their equivalent names access the same physical data file.\r\n\r\nERROR1        L      Label used when rigid format errors are detected.\r\n\r\nERROR2        L      Label used when rigid format errors are detected.\r\n\r\nERROR3        L      Label used when rigid format errors are detected.\r\n\r\nERROR4        L      Label used when rigid format errors are detected.\r\n\r\nERROR5        L      Label used when rigid format errors are detected.\r\n\r\nERROR6        L      Label used when rigid format errors are detected.\r\n\r\nESE           IC     Request for element strain energy output.\r\n\r\nEST           DBT    Element Summary Table.\r\n\r\nESTL          DBT    Element Summary Table for Linear elements. Used only in the\r\n                     Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nESTNL         DBT    Element Summary Table for Nonlinear elements. Used only in\r\n                     the Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nESTNL1        DBT    Updated version of the ESTNL data block. Used only in the\r\n                     Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nEVEC          DBM    Partitioning vector. D-set to A and E.\r\n\r\nEXCEPT        IC     Forms exceptions to string of values in set declarations.\r\n\r\nEXCLUDE       IC     Used in set definition for structure plots.\r\n\r\nExecutive     PH     1. Executive Control Deck\r\n                     2. NASTRAN Executive System\r\n\r\nExecutive     PH     One of the data decks necessary to run a problem under the\r\nControl              NASTRAN system. This deck begins with the ID card and ends\r\nDeck                 with the CEND card. Among other things, cards in this deck\r\n                     select the solution approach and rigid format to be used,\r\n                     limit the execution time, and control checkpointing and\r\n                     restart.\r\n\r\nExecutive     PH     The Executive System initiates a NASTRAN problem solution\r\nSystem               via the Preface, allocates files to data blocks during\r\n                     problem solution, controls the sequence of the modules to\r\n                     be executed, and provides for problem restart capability.\r\n\r\nEXIO          FMSS   External input/output for the SOF.\r\n\r\nEXIT          EM     Program termination DMAP statement.\r\n\r\nExternal Sort PH     Order of grid, scalar and extra points determined by your\r\n                     numerical order of point identification.\r\n\r\nExtra Point   PH     A \"point\" which is defined on an EPOINT bulk data card. An\r\n                     extra point has no geometrical coordinates, defines only\r\n                     one degree of freedom of the model, and is used only in\r\n                     dynamics solutions.\r\n=PAGE=\r\nF             P      Parameter value used by MATGPR to print F-set matrices.\r\n\r\nFA1           FMS    Flutter Analysis - Phase 1.\r\n\r\nFA2           FMS    Flutter Analysis - Phase 2.\r\n\r\nFBS           FMM    Forward and Backward Substitution.\r\n\r\nFE            P      Parameter used by MATGPR to print out FE-set matrices.\r\n\r\nFEER          IB     Fast Eigenvalue Extraction Routine eigensolution method.\r\n\r\nFIAT          M      File Allocation Table. Core resident executive table where\r\n                     data block names, status of the data blocks (assigned to a\r\n                     file, purged, equivalenced, etc.) and trailer for the data\r\n                     blocks are stored.\r\n\r\nFILE          EM     Defines special data block characteristics to DMAP\r\n                     compiler.\r\n\r\nFILE          IA     Term appearing on the checkpoint dictionary cards\r\n                     indicating the file number (internal) associated with a\r\n                     particular data block.\r\n\r\nFILE          M      The FILE DMAP statement specifies data block\r\n                     characteristics such as TAPE, SAVE, and APPEND.\r\n\r\nFILE          PH     Designates an auxiliary storage area or unit.\r\n\r\nFILES         NP     Declares the NASTRAN permanent files as disk files.\r\n\r\nFIND          IC     Selects parameters for structure plot.\r\n\r\nFINIS         L      Label used in all displacement rigid format DMAPs to\r\n                     terminate execution of DMAP.\r\n\r\nFinite        PH     Idealized unit of a structural model that represents the\r\nElement              distributed elastic properties of a structure.\r\n\r\nFIST          M      File Status Table. Core resident executive table where\r\n                     internal file names and pointers to the FIAT, pertaining\r\n                     only to the module being executed, are stored.\r\n\r\nFIXED         IB     Defines set of constrained degrees of freedom for modes\r\n                     calculation.\r\n\r\nFLAGS         IA     Term appearing on the checkpoint dictionary cards\r\n                     indicating the status of a data block (equivalenced or\r\n                     not).\r\n\r\nFLFACT        IB     Specifies densities, Mach numbers, and frequencies.\r\n\r\nFLIST         DBT    Flutter Control Table.\r\n\r\nFLOOP         P      Flutter loop counter/control.\r\n\r\nFLSYM         IB     Structural symmetry definition card for use in hydroelastic\r\n                     problems.\r\n\r\nFLUID         IC     Indicates hydroelastic harmonic degrees of freedom.\r\n\r\nFLUTTER       IB     Defines flutter data.\r\n\r\nFMETHOD       IC     Flutter Analysis Method Selection.\r\n\r\nFADE          P      Mode number of first mode selected by you in modal\r\n                     dynamics formulations.\r\n\r\nFOL           DBT    Frequency response output frequencies.\r\n\r\nFORCE         IB     Static load definition (vector).\r\n\r\nFORCE         IC     Request for output of element forces.\r\n\r\nFORCE1        IB     Static load definition (magnitude and two grid points).\r\n\r\nFORCE2        IB     Static load definition (magnitude and four grid points).\r\n\r\nFORCEAX       IB     Static load definition for conical shell problem.\r\n\r\nFREEPT        IB     Defines point on a free surface of a fluid for output\r\n                     purposes.\r\n\r\nFREQ          IB     Frequency list definition.\r\n\r\nFREQ$         M      Indicates restart with change in frequencies to be solved.\r\n\r\nFREQ1         IB     Frequency list definition (linear increments).\r\n\r\nFREQ2         IB     Frequency list definition (logarithmic increments).\r\n\r\nFREQRESP      P      Parameter used in SDR2 to indicate a frequency response\r\n                     problem.\r\n\r\nFREQUENCY     IC     Selects the set of frequencies to be solved in frequency\r\n                     response problems.\r\n\r\nFREQY         P      Selects between frequency and transient in aeroelastic\r\n                     response.\r\n\r\nFRL           DBT    Frequency Response List.\r\n\r\nFRLG          FMA    Frequency response load generator.\r\n\r\nFRQSET        P      Used in FRRD to indicate user selected frequency set.\r\n\r\nFRRD          FMS    Frequency and Random Response - Displacement approach.\r\n\r\nFRRD2         FMA    Frequency response, with aerodynamic matrix capability.\r\n\r\nFSAVE         DBT    Flutter Storage Save Table.\r\n\r\nFSLIST        IB     Defines a free surface of a fluid in a hydroelastic\r\n                     problem.\r\n\r\nFunctional    PH     An independent group of subroutines that perform a\r\nModule               structural analysis function.\r\n=PAGE=\r\nG             PU     1. Parameter used by MATGPR to print G-set matrices.\r\n                     2. Parameter used to input uniform structural damping\r\n                        coefficient (D-7 through D-9).\r\n\r\nGEI           DBT    General Element Input.\r\n\r\nGENEL         IB     General element definition.\r\n\r\nGEOM1         DBT    Geometric data input table - generated by the Input File\r\n                     Processor.\r\n\r\nGEOM2         DBT    Connection input table - generated by the Input File\r\n                     Processor.\r\n\r\nGEOM3         DBT    Static load and temperature input table - generated by the\r\n                     Input File Processor.\r\n\r\nGEOM4         DBT    Displacement sets definition input table - generated by the\r\n                     Input File Processor.\r\n\r\nGI            FMA    Geometry Interpolator.\r\n\r\nGIMS          DBS    G transformation matrix for interior points from a modal\r\n                     reduction.\r\n\r\nGINO          M      General input/output. GINO is a collection of subroutines\r\n                     which is the input/output control system for NASTRAN.\r\n\r\nGINO Buffer   PH     Storage reserved in open core for each GINO file opened.\r\n                     The size of the buffer is machine dependent.\r\n\r\nGINO File     PH     File number used internally in DMAP modules to access data\r\nNumber               blocks.\r\n\r\nGIV           IB     Eigenvalue analysis method option - Givens (see EIGR).\r\n\r\nGKAD          FMS    General [K] Assembler - Direct.\r\n\r\nGKAM          FMS    General [K] Assembler - Modal.\r\n\r\nGM            DBM    [G ] - multipoint constraint transformation matrix.\r\n                       m\r\n\r\n                       d\r\nGMD           DBM    [G ] - multipoint constraint transformation matrix used in\r\n                       m\r\n                     dynamic analysis.\r\n\r\nGNFIAT        M      Generate FIAT. The preface routine which generates the\r\n                     initial FIAT.\r\n\r\nGO            DBM    [G ] - structural matrix partitioning transformation\r\n                       o\r\n                     matrix.\r\n\r\n                       d\r\nGOD           DBM    [G ] - structural matrix partitioning transformation matrix\r\n                       o    used in dynamic analysis.\r\n\r\nGPARAM        IS     Specifies structural damping parameter.\r\n\r\nGP1           FMS    Geometry Processor - part 1.\r\n\r\nGP2           FMS    Geometry Processor - part 2.\r\n\r\nGP3           FMS    Geometry Processor - part 3.\r\n\r\nGP4           EMS    Geometry Processor - part 4.\r\n\r\nGPCT          DBT    Grid Point Connection Table.\r\n\r\nGPDT          DBT    Grid Point Definition Table.\r\n\r\nGPFORCE       IC     Requests grid point force balance output.\r\n\r\nGPI           M      General Problem Initialization (see XGPI).\r\n\r\nGPL           DBT    Grid Point List.\r\n\r\nGPLA          DBT    Grid Point List - Aerodynamics.\r\n\r\nGPLD          DBT    Grid Point List used in dynamic analysis.\r\n\r\nGPSETS        DBT    Grid point plot sets.\r\n\r\nGPSETSA       DBT    Data block GPSETS, extended to include generated\r\n                     aerodynamic grid points.\r\n\r\nGPSP          FMS    Grid Point Singularity Processor.\r\n\r\nGPST          DBT    Grid Point Singularity Table.\r\n\r\nGPTT          DBT    Grid Point Temperature Table.\r\n\r\nGPWG          FMS    Grid Point Weight Generator.\r\n\r\nGRAV          IB     Gravity vector definition card.\r\n\r\nGRDEQ         PU     Selects the grid point about which equilibrium will be\r\n                     checked.\r\n\r\nGRDPNT        PU     Used in all displacement rigid formats to specify execution\r\n                     of the grid point weight generator (GPWG) by you. A\r\n                     positive value references a grid point of the structural\r\n                     model. A value of zero indicates the origin of the basic\r\n                     coordinate system.\r\n\r\nGRDSET        IB     Grid point default definition card.\r\n\r\nGRID          IB     Grid point definition card.\r\n\r\nGrid Point    PH     A point in Euclidean 3-dimensional space defined on a GRID\r\n                     bulk data card. A grid point defines 6 degrees of freedom,\r\n                     3 translational and 3 rotational.\r\n\r\nGRID POINTS   IC     Used in set definition for structure plots.\r\n\r\nGRIDB         IB     Grid point definition card for hydroelastic model.\r\n\r\nGRIDF         IB     Grid point definition card for axisymmetric fluid cavity.\r\n\r\nGRIDS         IB     Grid point definition card for slotted acoustic cavity.\r\n\r\nGTKA          DBM    Aerodynamic transformation matrix - k-set to a-set.\r\n\r\nGTRAN         IB     Redefines the output coordinate system grid point\r\n                     displacement sets.\r\n\r\nGUST          FMA    Calculates loads due to gust.\r\n\r\nGUST          IB     Defines stationary vertical gust.\r\n\r\nGUST          IC     Aerodynamic gust input request.\r\n\r\nGUSTAERO      PU     Requests matrices used only in gust calculations to be\r\n                     computed.\r\n=PAGE=\r\nHARMONICS     IC     Controls number of harmonics output in axisymmetric shell\r\n                     problems and hydroelastic problems.\r\n\r\n                       2\r\nHS2DD         DBM    [B  ] - Partition of heat capacity matrix.\r\n                       dd\r\n\r\n                       2\r\nHS2PP         DBM    [B  ] - Partition of heat capacity matrix.\r\n                       pp\r\n\r\nHBAA          DBM    [B  ] - Partition of heat capacity matrix.\r\n                       aa\r\n\r\nHSDD          DBM    [B  ] - Partition of heat capacity matrix.\r\n                       dd\r\n\r\nHSFF          DBM    [B  ] - Partition of heat capacity matrix.\r\n                       ff\r\n\r\nHSGG          DBM    [B  ] - Heat capacity matrix.\r\n                       gg\r\n\r\nHSNN          DBM    [B  ] - Partition of heat capacity matrix.\r\n                       nn\r\n\r\nHDLT          DBT    Dynamic loads table for heat transfer analysis.\r\n\r\nHeader record PH     Initial record of a data block. Typically a header record\r\n                     contains only 2 BCD words, the alphanumeric name of the\r\n                     data block.\r\n\r\nHEAT          IA     Selects heat transfer analysis on APProach card.\r\n\r\nHESS          IB     Upper Hessenberg eigenvalue extraction method.\r\n\r\nHFREQ         PU     High frequency limit for modal formulation of dynamics\r\n                     problems (D-10 through D-12, A-10, A-11).\r\n\r\nHICORE        NP     Defines the amount of open core available to you on\r\n                     the UNIVAC 1100 series.\r\n\r\n                       2\r\nHK2DD         DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       dd\r\n\r\n                       2\r\nHK2PP         DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       pp\r\n\r\nHKAA          DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       aa\r\n\r\nHKDD          DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       dd\r\n\r\nHKFF          DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       ff\r\n\r\nHKFS          DBM    [K  ] - Partition of heat conductivity matrix.\r\n                       fs\r\n\r\nHKGG          DBM    [K  ] - Heat conductivity matrix, including estimated\r\n                       gg    linear component of radiation.\r\n\r\n                       x\r\nHKGGX         DBM    [K  ] - Heat conductivity matrix.\r\n                       gg\r\n\r\nHKNN          DBM    [K  ] - Partition of-heat conductivity matrix.\r\n                       nn\r\n\r\nHLFT          DBS    Left side H transformation matrix from unsymmetric CREDUCE\r\n                     operation.\r\n\r\nHOEFlX        DBT    Heat flux output table for CHBDY elements.\r\n\r\nHORG          DBS    H or  G transformation matrix.\r\n\r\n                       o\r\nHPDO          DBM    {P } - Partition of dynamic load vector.\r\n                       d\r\n\r\n                       t\r\nHPDT          DBM    {P } - Partition of dynamic load vector.\r\n                       d\r\n\r\n                       o\r\nHPPO          DBM    {P } - Partition of dynamic load vector.\r\n                       p\r\n\r\n                       o\r\nHPSO          DBM    {P } - Partition of dynamic load vector.\r\n                       s\r\n\r\nHQGE          DBM    [Q  ] - Element radiation flux matrix for heat transfer\r\n                       ge\r\n                     analysis.\r\n\r\nHRAA          DBM    [R  ] - Partition of radiation matrix.\r\n                       aa\r\n\r\nHRDD          DBM    [R  ] - Partition of radiation matrix.\r\n                       dd\r\n\r\nHRFF          DBM    [R  ] - Partition of radiation matrix.\r\n                       ff\r\n\r\nHRGG          DBM    [R  ] - Radiation matrix for heat transfer analysis.\r\n                       gg\r\n\r\nHRNN          DBM    [R  ] - Partition of radiation matrix.\r\n                       nn\r\n\r\nHSLT          DBT    Static heat flux table.\r\n\r\nHTOL          DBT    List of output time steps for heat transfer.\r\n=PAGE=\r\nIC            IC     Transient analysis initial condition set selection.\r\n\r\nID            IA     The first card of any data deck is the identification (ID)\r\n                     card. The two data items on this card are BCD values.\r\n\r\nIFP           EM     Input File Processor. The preface module which processes\r\n                     the sorted Bulk Data Deck and outputs various data blocks\r\n                     depending on the card types present in the Bulk Data Deck.\r\n\r\nIFP1          EM     Input File Processor 1. The preface module which processes\r\n                     the Case Control Deck and writes the CASECC, PCDB, and\r\n                     XYCDB data blocks.\r\n\r\nIFP3          EM     Input File Processor 3. The preface module which processes\r\n                     bulk data cards for a conical shell problem.\r\n\r\nIFP4          EM     Input File Processor 4. The preface module which processes\r\n                     bulk data cards for a hydroelastic problem.\r\n\r\nIFT           FMA    Inverse Fourier transformation.\r\n\r\nIFTM          PU     A parameter which selects the method for integration of the\r\n                     Inverse Fourier Transform.\r\n\r\nIFTSKP        L      Used to skip IFT module.\r\n\r\nIMAG          IC     Output request for real and imaginary parts of some\r\n                     quantity such as displacement, load, single point force of\r\n                     constraint element force, or stress.\r\n\r\nIMPL          P      Parameter constant used in executive module PARAM.\r\n\r\nINCLUDE       IC     Used in set definition for structure plots.\r\n\r\nINERTIA       P      Used in printing rigid format error messages for Static\r\n                     Analysis with Inertia Relief (D-2).\r\n\r\nINERTIA       IA     Selects rigid format for static analysis with inertia\r\nRELIEF               relief.\r\n\r\nINPT          M      A reserved NASTRAN physical file which must be set up by\r\n                     you when used.\r\n\r\nINPUT         FMU    Generates most of bulk data for selected academic problems.\r\n\r\nInput Data    PH     A data block input to a module. An input data block must\r\nBlock                have been previously output from some module and may not be\r\n                     written on.\r\n\r\nInput Data    PH     The card input data to the NASTRAN system are in 3 sets,\r\nCards                the Executive Control Deck, the Case Control Deck, and the\r\n                     Bulk Data Deck.\r\n\r\nINPUTT1       FMU    Reads data blocks from GINO-written user tapes.\r\n\r\nINPUTT2       FMU    Reads data blocks from FORTRAN-written user tapes.\r\n\r\nINPUTT3       FMX    Auxiliary input file processor.\r\n\r\nINPUTT4       FMX    Auxiliary input file processor.\r\n\r\nInternal Sort PH     Same order as external sort except when SEQGP or SEQEP bulk\r\n                     data cards are used to change the sequence.\r\n\r\nINV           IB     Inverse power eigenvalue analysis option - specified on\r\n                     EIGR, EIGB, or EIGC cards.\r\n\r\nIRES          PU     Causes printout of residual vectors in statics rigid\r\n                     formats when set nonnegative via a PARAM bulk data card.\r\n                     (D-1, D-2, D-4, D-5, D-6).\r\n\r\nISTART        PU     A parameter which causes the alternate starting method to\r\n                     be used in transient analysis.\r\n\r\nITEMS         IS     Specifies data items to be copied in or out.\r\n\r\n\r\n\r\n\r\nJUMP          EM     Unconditional transfer DMAP statement.\r\n\r\nJUMPPLOT      P      Parameter used by structure plotter modules PLTSET and\r\n                     PLOT.\r\n=PAGE=\r\n                       2\r\nK2DD          DBM    [K  ] - Partition of direct input stiffness matrix.\r\n                       dd\r\n\r\n                       2d\r\nK2DPP         DBM    [K  ] - Direct input stiffness matrix for all physical\r\n                       pp    points from bulk data deck.\r\n\r\n                       2\r\nK2PP          DBM    [K  ] - Direct input stiffness matrix for all physical\r\n                       pp    points.\r\n\r\nK2PP          IC     Selects direct input structural stiffness or thermal\r\n                     conductance matrices.\r\n\r\nK2PP$         M      Indicates restart with change in direct input stiffness\r\n                     matrices.\r\n\r\n                       2x\r\nK2XPP         DBM    [K  ] - Direct input stiffness matrix excluding\r\n                       pp    hydroelastic boundary stiffness matrix.\r\n\r\n                       4\r\nK4AA          DBM    [K  ] - Partition of structural damping matrix.\r\n                       aa\r\n\r\n                       4\r\nK4FF          DBM    [K  ] - Partition of structural damping matrix.\r\n                       ff\r\n\r\n                       4\r\nK4GG          DBM    [K  ] - Structural damping matrix generated by Structural\r\n                       gg    Matrix Assembler.\r\n\r\nK4MX          DBS    Structural damping matrix.\r\n\r\n                       4\r\nK4NN          DBM    [K  ] - Partition of structural damping matrix.\r\n                       nn\r\n\r\nKAA           DBM    [K  ] - A-set stiffness matrix.\r\n                       aa\r\n                      _\r\nKAAB          DBM    [K  ] - Partition of stiffness matrix.\r\n                       aa\r\n\r\n                       b\r\nKBFS          DBM    [K  ] - Partition of combination of elastic stiffness\r\n                       fs    matrix and differential stiffness matrix.\r\n\r\nKBFL          DBM    [K    ] - Hydroelastic boundary stiffness matrix.\r\n                       b,fl\r\n\r\n                       b\r\nKBLL          DBM    [K  ] - Combination of elastic stiffness and differential\r\n                       ll    stiffness used in static analysis with\r\n                             differential stiffness.\r\n\r\n                       b\r\nKBSS          DBM    [K  ] - Partition of combination of stiffness matrix and\r\n                       ss    differential stiffness matrix.\r\n\r\n                       d\r\nKDAA          DBM    [K  ] - Partition of differential stiffness matrix.\r\n                       aa\r\n\r\n                        d\r\nKDAAM         DBM    -[K  ] - Differential stiffness matrix used in formulation\r\n                        aa    of buckling problems (D-5).\r\n\r\nKDAMP         PU     -1 for structural damping, +1 for viscous.\r\n\r\nKDD           DBM    [K  ] - Stiffness matrix used in direct formulation of\r\n                       dd    dynamics problems (D-7 through D-9).\r\n\r\nKDEK2         P      Parameter indicating equivalence of KDD and K2DD.\r\n\r\nKDEKA         P      Parameter indicating equivalence of KDD and KAA.\r\n\r\n                       d\r\nKDFF          DBM    [K  ] - Partition of differential stiffness matrix.\r\n                       ff\r\n\r\n                       d\r\nKDFS          DBM    [K  ] - Partition of differential stiffness matrix.\r\n                       fs\r\n\r\n                       d\r\nKDGG          DBM    [K  ] - Differential stiffness matrix prepared by\r\n                       gg    Differential Stiffness Matrix Generator.\r\n\r\n                       d\r\nKDNN          DBM    [K  ] - Partition of differential stiffness matrix.\r\n                       nn\r\n\r\n                       d\r\nKDSS          DBM    [K  ] - Partition of differential stiffness matrix.\r\n                       ss\r\n\r\nKE            PH     Flutter analysis method.\r\n\r\nKEF           DBM    [K  ] - Partition of stiffness matrix.\r\n                       ff\r\n\r\nKFS           DBM    [K  ] - Partition of stiffness matrix.\r\n                       fs\r\n\r\nKGG           DBM    [K  ] - Stiffness matrix generated by Structural Matrix\r\n                       gg    Assembler.\r\n\r\n                       l\r\nKGGL          DBM    [K  ] - Stiffness matrix for linear elements. Used only in\r\n                       gg    the Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nKGGLPG        P      Purge flag for KGGL matrix. If set to -1, it implies that\r\n                     there are no linear elements in the structural model.\r\n                     (D-6).\r\n\r\n                       nl\r\nKGGNL         DBM    [K  ] - Stiffness matrix for the nonlinear elements. Used\r\n                       gg    in the Piecewise Linear Analysis Rigid Format only.\r\n\r\nKGGSUM        DBM    Sum of KGGNL and KGGL. Used In the Piecewise Linear\r\n                     Analysis Rigid Format only. (D-6).\r\n\r\n                       x\r\nKGGX          DBM    [K  ] - Stiffness matrix excluding general elements.\r\n                       gg\r\n\r\n                       xl\r\nKGGXL         DBM    [K  ] - Stiffness matrix for linear elements (excluding\r\n                       gg    general elements). Used in the Piecewise Linear\r\n                             Rigid Format only. (D-6).\r\n\r\n                       y\r\nKGGY          DBM    [K  ] - Stiffness matrix of general elements.\r\n                       gg\r\n\r\nKHH           DBM    [K  ] - Stiffness matrix used in modal formulation of\r\n                       hh    dynamics problems (D-10 through D-12).\r\n\r\nKINDEX        PU     A parameter which specifies a single value of the harmonic\r\n                     index using cyclic symmetry.\r\n\r\nKLL           DBM    [K  ] - Stiffness matrix used in solution of problems in\r\n                       ll    static analysis (D-1, D-2, D-4, D-5, D-6).\r\n\r\nKLR           DBM    [K  ] - Partition of stiffness matrix.\r\n                       lr\r\n\r\nKMAX          PU     A parameter which specifies the maximum value of the\r\n                     harmonic index using cyclic symmetry.\r\n\r\nKMTX          DBS    Stiffness matrix.\r\n\r\nKNN           DBM    [K  ] - Partition of stiffness matrix.\r\n                       nn\r\n\r\nKOA           DBM    [K  ] - Stiffness matrix partition.\r\n                       oa\r\n\r\nKOO           DBM    [K  ] - Partition of stiffness matrix.\r\n                       oo\r\n\r\nKRR           DBM    [K  ] - Partition of stiffness matrix.\r\n                       rr\r\n\r\nKSS           DBM    [K  ] - Partition of stiffness matrix.\r\n                       ss\r\n\r\nKXHH          DBM    Total modal stiffness matrix - h-set.\r\n=PAGE=\r\nL             P      Parameter value used by MATGPR to print L-set matrices.\r\n\r\nLABEL         EM     DMAP location.\r\n\r\nLABEL         IC     Defines third line of titles to be printed on each page of\r\n                     printer output. Also used on plots.\r\n\r\nLABEL         IC     Requests identification of grid points and/or elements on\r\n                     structure plot.\r\n\r\nLAMA          DBT    Real eigenvalues.\r\n\r\nLAMS          DBS    Eigenvalue data from modal reduce operation.\r\n\r\nLAMX          FMU    Edit or generate data block, LAMA.\r\n\r\nLBLi          L      A label used in displacement approach rigid formats where i\r\n                     represents one or more characters used to form unique\r\n                     labels.\r\n\r\n                       b                                  b\r\nLBLL          DBM    [L  ] - Lower triangular factor of [K  ].\r\n                       ll                                 ll\r\n\r\nLEFT TICS     IC     Request for tic marks to be plotted on left hand edge of\r\n                     frame for X-Y plots.\r\n\r\nLFREQ         PU     Low frequency limit for modal formulation of dynamics\r\n                     problems (D-10 through D-12).\r\n\r\nLGPWG         L      Label used in conjunction with the Grid Point Weight\r\n                     Generator.\r\n\r\nLINE          IC     Number of data lines printed per page of printer output. It\r\n                     should be set to 50 for 11 x 17 inch paper, and to 35 for 8\r\n                     1/2 x 17 inch paper.\r\n\r\nLIST          IA     Used to list the problem deck from UMF or copy the problem\r\n                     deck from UMF onto NUMF and list it.\r\n\r\nLLL           DBM    [L  ] - Lower triangular factor of [K  ].\r\n                       ll                                 ll\r\n\r\nLMODES        PU     Number of lowest modes for modal formulation of dynamics\r\n                     problems (D-10 through D-12).\r\n\r\nLMTX          DBS    Decomposition product of REDUCE operation.\r\n\r\nLOAD          IB     Static load combination definition.\r\n\r\nLOAD          IC     Selects static structural loading condition or heat power\r\n                     and/or flux.\r\n\r\nLOADC         IB     Defines loading conditions for static analysis using\r\n                     substructuring.\r\n\r\nLOAD$         M      Indicates restart with change in static load set request.\r\n\r\nLOAP          DBS    Load set identification numbers for appended load vectors.\r\n\r\nLODS          DBS    Load set identification numbers.\r\n\r\nLOGARITHMIC   IC     Requests logarithmic scales for X-Y plots.\r\n\r\nLOGPAPER      IC     Requests logarithmic paper for X-Y plots.\r\n\r\nLOO           DBM    [L  ] - Lower triangular factor of [K  ].\r\n                       oo                                 oo\r\n\r\nLOOP1$        M      Indicates looping problem in modified restart. (PM-4.3.7.l)\r\n\r\nLOOPBGN       L      Signifies the beginning of the Piecewise Linear Analysis\r\n                     Rigid Format DMAP Loop. (D-6).\r\n\r\nLOOPEND       L      Signifies the end of the Piecewise Linear Analysis Rigid\r\n                     Format DMAP loop. (D-6).\r\n\r\nLOOP$         M      Indicates looping problem in modified restart. (PM-4.3.7.1)\r\n\r\nLOOPTOP       L      Top of rigid format loop.\r\n\r\nLOWER TICS    IC     Request for tic marks to be plotted on bottom edge of frame\r\n                     for X-Y plots.\r\n\r\nLSING         L      Used if [K  ] is singular.\r\n                               oo\r\n\r\nLUSET         P      Order of USET.\r\n\r\nLUSETA        P      Number of degrees of freedom in the pa displacement set.\r\n\r\nLUSETD        P      Order of USETD.\r\n=PAGE=\r\nM             P      Parameter value used by MATGPR to print M-set matrices.\r\n\r\n                       2\r\nM2DD          DBM    [M  ] - Partition of direct input mass matrix.\r\n                       dd\r\n\r\n                       2d\r\nM2DPP         DBM    [M  ] - Direct input mass matrix for all physical points\r\n                       pp    from Bulk Data Deck.\r\n\r\n                       2\r\nM2PP          DBM    [M  ] - Direct input mass matrix for all physical points.\r\n                       pp\r\n\r\nM2PP          IC     Direct input mass matrix selection.\r\n\r\nM2PP$         M      Indicates restart with change in direct input mass\r\n                     matrices.\r\n\r\nMAA           DBM    [M  ] - Partition of mass matrix.\r\n                       aa\r\n\r\nMACH          PU     Velocity divided by speed of sound.\r\n\r\nMASS          IB     Eigenvector normalization option - used on EIGR card.\r\n\r\nMAT1          IB     Material definition card for isotropic material.\r\n\r\nMAT2          IB     Material definition card for anisotropic material.\r\n\r\nMAT3          IB     Material definition card for orthotropic material.\r\n\r\nMAT4          IB     Thermal material definition card for isotropic material.\r\n\r\nMAT5          IB     Thermal material definition card for anisotropic material.\r\n\r\nMATGPR        FMU    Utility module for printing matrices with Grid Point\r\n                     Identification.\r\n\r\nMATPOOL       DBT    Grid point oriented direct input matrix data pool, output\r\n                     by Input File Processor and used by functional module\r\n                     MTRXIN.\r\n\r\nMATPRN        FMU    Utility module for printing matrices.\r\n\r\nMATPRT        FMU    Utility module for printing matrices with geometric grid\r\n                     points.\r\n\r\nMatrix        PH     A seven word array; the first word is a GINO file number,\r\nControl              and words 2 through 7 comprise a matrix trailer.\r\nBlock\r\n\r\nMatrix Data   PH     A data block is classified as a matrix if and only if it is\r\nBlock                generated by one of the NASTRAN matrix packing routines,\r\n                     PACK or BLDPK.\r\n\r\nMatrix        PH     A factorization of a matrix K so that K = LU, where L is a\r\nDecomposition        unit lower triangular matrix and U is an upper triangular\r\n                     matrix.\r\n\r\nMATS1         IB     Specifies table references for stress-dependent material\r\n                     properties.\r\n\r\nMATT1         IB     Specifies table references for temperature-dependent\r\n                     isotropic material properties.\r\n\r\nMATT2         IB     Specifies table references for temperature-dependent\r\n                     anisotropic material properties.\r\n\r\nMATT3         IB     Specifies table references for temperature-dependent\r\n                     orthotropic material properties.\r\n\r\nMATT4         IB     Specifies table references for temperature-dependent\r\n                     isotropic, thermal material properties.\r\n\r\nMATT5         IB     Specifies table references for temperature-dependent,\r\n                     anisotropic, thermal material properties.\r\n\r\nMAX           IB     Eigenvector normalization option - used on EIGR, EIGB, and\r\n                     EIGC cards.\r\n\r\nMAXIMUM       IC     Indicates scale for deformed structure plots.\r\nDEFORMATION\r\n\r\nMAXIT         PU     Limits maximum number of iterations in nonlinear heat\r\n                     transfer analysis.\r\n\r\nMAXLINES      IC     Maximum printer output line count - default value is 20000.\r\n\r\nMCE1          FMS    Multipoint Constraint Eliminator - part 1.\r\n\r\nMCE2          FMS    Multipoint Constraint Eliminator - part 2.\r\n\r\nMDD           DBM    [M  ] - Mass matrix used in direct formulation of dynamics\r\n                       dd    problems (D-7 through D-9).\r\n\r\nMDEMA         P      Parameter indicating equivalence of MDD and MAA.\r\n\r\nMDLCEAD       P      Used in printing rigid format error messages for modal\r\n                     complex eigenvalue analysis (D-10).\r\n\r\nMDLFRRD       P      Used in printing rigid format error messages for modal\r\n                     frequency response (D-11).\r\n\r\nMDLTRD        P      Used in printing rigid format error messages for modal\r\n                     transient response (D-12).\r\n\r\nMEF1          DBT    Modal element forces, Sort 1 for OFP.\r\n\r\nMEF2          DBT    Modal element forces, Sort 2 for OFP.\r\n\r\nMERGE         FMM    Matrix merge functional module.\r\n\r\nMES1          DBT    Modal element stresses, Sort 1 for OFP.\r\n\r\nMES2          DBT    Modal element stresses, Sort 2 for OFP.\r\n\r\nMETHOD        IC     Selects method for real eigenvalue analysis.\r\n\r\nMETHOD        IS     Identifies EIGR Bulk Data card.\r\n\r\nMETHOD$       M      Indicates restart with change in eigenvalue extraction\r\n                     procedures.\r\n\r\nMFF           DBM    [M  ] - Partition of mass matrix.\r\n                       ff\r\n\r\nMGG           DBM    [M  ] - Mass matrix generated by Structural Matrix\r\n                       gg    Assembler.\r\n\r\nMHH           DBM    [M  ] - Mass matrix used in modal formulation of dynamics\r\n                       hh    problems (D-10 through D-12).\r\n\r\nMI            DBM    [m] - Modal mass matrix.\r\n\r\nMIND          P      Minimum diagonal term of [U  ].\r\n                                                oo\r\n\r\nMKAERO1       IB     Provides table of Mach numbers and reduced frequencies (k).\r\n\r\nMKAERO2       IB     Provides list of Mach numbers (m) and reduced frequencies\r\n                     (k).\r\n\r\nMLL           DBM    [M  ] - Partition of mass matrix.\r\n                       ll\r\n\r\nMLR           DBM    [M  ] - Partition of mass matrix.\r\n                       lr\r\n\r\nMMTX          DBS    Mass matrix.\r\n\r\nMNN           DBM    [M  ] - Partition of mass matrix.\r\n                       nn\r\n\r\nMOA           DBM    [M  ] - Partition of mass matrix.\r\n                       oa\r\n\r\nMODA          FMX    User dummy module.\r\n\r\nMODACC        FMS    Mode Acceleration Output Reduction Module.\r\n\r\nMODACC        PU     A parameter to use the mode acceleration method.\r\n\r\nMODAL         IC     Requests structure plots of mode shapes.\r\n\r\nMODAL         P      Indicates modal as opposed to direct formulation of\r\n                     dynamics.\r\n\r\nMODAL         IA     Selects rigid format for modal complex eigenvalue analysis.\r\nCOMPLEX\r\nEIGENVALUES\r\n\r\nMODAL         IA     Selects rigid format for modal frequency and random\r\nFREQUENCY            response.\r\nRESPONSE\r\n\r\nMODAL         IA     Selects rigid format for modal transient response.\r\nTRANSIENT\r\nRESPONSE\r\n\r\nMODB          FMX    User dummy module.\r\n\r\nMODC          FMX    User dummy module.\r\n\r\nMODCOM        NP     Defines an array for module communications.\r\n\r\nMODEL         IC     Indicates model number of structure plotter.\r\n\r\nMODES         IA     Selects rigid format for normal mode analysis.\r\n\r\nMODES         IC     Duplicates output requests for eigenvalue problems.\r\n\r\nMODES         IS     Modes output request.\r\n\r\nMODES         P      Used in printing rigid format error messages for normal modes\r\n                     analysis (D-3).\r\n\r\nModified      PH     Restarting (see Restart) a NASTRAN problem and redirecting\r\nRestart              its solution by changing the rigid format and/or selected\r\n                     input data.\r\n\r\nModule        PH     A logical group of subroutines which performs a defined\r\n                     function.\r\n\r\nMOMAX         IB     Conical shell moment definition card.\r\n\r\nMOMENT        IB     Static moment load definition (vector).\r\n\r\nMOMENT1       IB     Static moment load definition (magnitude and two grid\r\n                     points).\r\n\r\nMOMENT2       IB     Static moment load definition (magnitude and four grid\r\n                     points).\r\n\r\nMOO           DBM    [M  ] - Partition of mass matrix.\r\n                       oo\r\n\r\nMPC           IB     Multipoint constraint definition.\r\n\r\nMPC           IC     Selects set of multipoint constraints for structural\r\n                     displacement or heat transfer boundary temperature\r\n                     relationships.\r\n\r\nMPC$          M      Indicates restart with change in multipoint constraints.\r\n\r\nMPCADD        IB     Multipoint constraint set definition.\r\n\r\nMPCAX         IB     Conical shell multipoint constraint definition.\r\n\r\nMPCFORCES     IC     Requests multipoint forces of constraint at a set of points\r\n                     in Rigid Formats D-1, D-2, D-3, D-14, D-15.\r\n\r\nMPCF1         P      No multipoint constraints.\r\n\r\nMPCF2         P      No change in multipoint constraints for loop.\r\n\r\nMPCS          IB     Specifies multipoint constraints for substructuring.\r\n\r\nMPHIPA1       DBT    Eigenvectors, PA-set, SORT1.\r\n\r\nMPHIPA2       DBT    Eigenvectors, PA-set, SORT2.\r\n\r\nMPL           PH     Module properties list. The MPL defines each DMAP module's\r\n                     name, the number of input, output, and scratch files\r\n                     required, and the parameter list. It is used by the preface\r\n                     module XGPI to generate the OSCAR.\r\n\r\nMPT           DBT    Material Properties Table - output by Input File Processor.\r\n\r\nMPY           M      Parameter constant used in executive module PARAM.\r\n\r\nMPYAD         FMM    Performs multiply-add matrix operation.\r\n\r\nMQP1          DBT    Constraint forces, PA-set, SORT1.\r\n\r\nMQP2          DBT    Constraint forces, PA-set, SORT2.\r\n\r\nMR            DBM    [M ] - Rigid body mass matrix.\r\n                       r\r\n\r\nMREDUCE       IS     Real modal reduction request.\r\n\r\nMRR           DBM    [M  ] - Partition of mass matrix.\r\n                       rr\r\n\r\nMTRXIN        FMS    Selects direct input matrices for current loop in dynamics\r\n                     problems (D-7 through D-12).\r\n\r\nMX            IC     Indicates negative x-axis direction for structure plot.\r\n\r\nMXHH          DBM    Total modal mass matrix - h-set.\r\n\r\nMY            IC     Indicates negative y-axis direction for structure plot.\r\n\r\nMZ            IC     Indicates negative z-axis direction for structure plot.\r\n=PAGE=\r\nN             M      Used in parameter section of DMAP statement. Indicates that\r\n                     parameter may not be given an initial value with a PARAM\r\n                     bulk data card.\r\n\r\nN             P      Parameter value used by MATGPR to print N-set matrices.\r\n\r\nNAME          IS     Specifies Phase 1 basic substructure name or names the\r\n                     resulting substructure in Phase 2.\r\n\r\nNASTPLT       IC     Requests NASTRAN general purpose plotter.\r\n\r\nNASTRAN       M      Acronym for NAsa STRuctural ANalysis program.\r\n\r\nNASTRAN Data  PH     The composite deck consisting of the Executive Control\r\nDeck                 Deck, the Case Control Deck, the Substructure Control Deck,\r\n                     and the Bulk Data Deck. This deck, when preceded by any\r\n                     necessary operating system control cards, constitutes the\r\n                     complete card input for a NASTRAN run (PM-5).\r\n\r\nNCHECK        IC     Requests significant digits to indicate numerical accuracy\r\n                     of element stress and force computations.\r\n\r\nNDET          P      Power of 10 used to scale parameter DET.\r\n\r\nNE            P      Parameter value used by MATGPR to print out NE-set\r\n                     matrices.\r\n\r\nNEIGV         P      Number of real eigenvalues found.\r\n\r\nNEVER         P      Set to +1 by a DMAP PARAM statement in the Piecewise Linear\r\n                     Analysis Rigid Format (D-6).\r\n\r\nNew Problem   PH     See Problem Tape.\r\nTape\r\n\r\nNJ            P      Number of degrees of freedom in the j displacement set.\r\n\r\nNK            P      Number of degrees of freedom in the k displacement set.\r\n\r\nNLFT          DBT    Nonlinear function table.\r\n\r\nNLLOAD        IC     Requests nonlinear load output for transient problems.\r\n\r\nNLOAD         PU     A parameter of static loading conditions using cyclic\r\n                     symmetry.\r\n\r\nNMAX          IS     Identifies number of lowest frequency modes for retained\r\n                     modal coordinates.\r\n\r\nNO            IA     Option used on CHKPNT card, Indicates that no checkpoint is\r\n                     desired.\r\n\r\nNOA           P      Indicates no constraints applied to structural model.\r\n\r\nNOABFL        P      No fluid-structure interface in a hydroelastic problem.\r\n\r\nNOB2PP        P      No direct input damping matrix.\r\n\r\nNOBGG         P      No viscous damping matrix (D-7 through D-9).\r\n\r\nNOCEAD        P      Used to skip CEAD module when not required.\r\n\r\nNOCSTM        P      No Coordinate System Transformation Matrices.\r\n\r\nNOD           P      No output request that is limited to independent degrees of\r\n                     freedom.\r\n\r\nNODJE         PU     Positive value selects D1JE and D2JE from INPUTT2.\r\n\r\nNODLT         P      No Dynamic Loads Table.\r\n\r\nNOEED         P      No Eigenvalue Extraction Data.\r\n\r\nNOELMT        P      No elements are defined.\r\n\r\nNOFL          P      No fluid-structure interface and no fluid gravity in a\r\n                     hydroelastic problem.\r\n\r\nNOFRL         P      No Frequency Response List.\r\n\r\nNOFRY         P      Used by aeroelastic response for transient solution.\r\n\r\nNOGENEL       P      No general elements.\r\n\r\nNOGPDT        P      No Grid Point Definition Table.\r\n\r\nNOGPST        P      No grid point singularity table.\r\n\r\nNOGRAV        P      No gravity loads.\r\n\r\nNOGUST        P      No gust input.\r\n\r\nNOH           L      Used to skip modal output.\r\n\r\nNOH           P      Used to skip modal output.\r\n\r\nNOK2PP        P      No direct input stiffness matrices.\r\n\r\nNOK4GG        P      No structural damping matrix.\r\n\r\nNOKBFL        P      No fluid gravity or structural interface in a hydroelastic\r\n                     problem.\r\n\r\nNOL           P      No independent degrees of freedom.\r\n\r\nNOLIN1        IB     Nonlinear transient dynamic load set definition card.\r\n\r\nNOLIN2        IB     Nonlinear transient dynamic load set definition card.\r\n\r\nNOLIN3        IB     Nonlinear transient dynamic load set definition card.\r\n\r\nNOLIN4        IB     Nonlinear transient dynamic load set definition card.\r\n\r\nNOLOOP$       M      Indicates restart of problem without DMAP loop. (PM-\r\n                     4.3.7.l).\r\n\r\nNOM2DPP       P      No direct input mass matrix from Bulk Data Deck.\r\n\r\nNOM2PP        P      No direct input mass matrices.\r\n\r\nNOMGG         P      If functional module SMA2 generates a zero mass matrix,\r\n                     NOMGG is set to -1. Otherwise, it is set to +1.\r\n\r\nNOMOD         P      Mode acceleration data recovery not requested.\r\n\r\nNONCUP        P      Indicates diagonal MHH, BHH, and KHH allowing uncoupled\r\n                     solution in TRD and FRRD.\r\n\r\nNONE          IC     Override for output and bulk data deck echo requests.\r\n\r\nNONLIFT       P      No nonlinear function table.\r\n\r\nNONLINEAR     IC     Selects nonlinear load for transient problems.\r\n\r\nNONLINEAR     IA     Selects rigid format for nonlinear static analysis using\r\nSTATIC HEAT          heat transfer.\r\nTRANSFER\r\nANALYSIS\r\n\r\nNONLSTR       P      No stress output request for nonlinear elements (D-6).\r\n\r\nNOP           M      Parameter constant used in executive module PARAM.\r\n\r\nNOP           P      No output request involving dependent degrees of freedom or\r\n                     stresses.\r\n\r\nNOPF          L      Skip load calculations in transient aeroelastic response.\r\n\r\nNOPSDL        P      No Power Spectral Density List.\r\n\r\nNORMAL MODES  IA     Selects rigid format for normal mode analysis.\r\n\r\nNORMAL MODES  IA     Selects rigid format for normal modes analysis using cyclic\r\nANALYSIS WITH        symmetry.\r\nCYCLIC\r\nSYMMETRY\r\n\r\nNORMAL MODES  IA     Selects rigid format for normal modes analysis with\r\nWITH                 differential stiffness effects.\r\nDIFFERENTIAL\r\nSTIFFNESS\r\n\r\nNORN          P      No random requests.\r\n\r\nNOSET         P      No dependent coordinates.\r\n\r\nNOSIMP        P      No structural elements are defined.\r\n\r\nNOSORT2       P      No request for output sorted by point number or element\r\n                     number.\r\n\r\nNOSR          P      No single-point constraints or free body supports.\r\n\r\nNOT           M      Parameter constant used in utility module PARAM.\r\n\r\nNOTFL         P      No Transfer Function List.\r\n\r\nNOTRL         P      No Transient Response List.\r\n\r\nNOUE          P      No extra points introduced for dynamic analysis.\r\n\r\nNOUE1         L      No extra points.\r\n\r\nNOXYCBD       P     -1 indicates no XY output requests.\r\n\r\nNOXYOUT       L      No XY-output requests.\r\n\r\nNOXYPL        P      No XY-plot requests.\r\n\r\nNOXYPLTT      L      No XY-plot requests.\r\n\r\nNPLALIM       P      Set by module PLA1 as the Piecewise Linear Analysis Rigid\r\n                     Format DMAP loop counter. (D-6)\r\n\r\nNPTP          M      New Problem Tape - a reserved NASTRAN physical file which\r\n                     must be set up by you when used.\r\n\r\nNSEGS         PU     A parameter of identical segments in the structural model\r\n                     using cyclic symmetry.\r\n\r\nNSIL          P      Order of SIL table.\r\n\r\nNSIL1         P      Number of grid and scalar points.\r\n\r\nNSKIP         P      Locate current boundary conditions in Case Control.\r\n\r\nNT            PU     A parameter to limit the cumulative number of iterations\r\n                     for the static analysis with differential stiffness loops.\r\n\r\nNUMF          IA     Used to add problem deck to NUMF, list it, and punch UMF\r\n                     card.\r\n\r\nNUMF          M      New User Master File - used only when operating NASTRAN as\r\n                     a user master file editor. (See UMFEDIT). A reserved\r\n                     NASTRAN physical file which must be set up by you when\r\n                     used.\r\n\r\nNVECTS        P      Number of eigenvectors found.\r\n=PAGE=\r\nO             P      Parameter value used by MATGPR to print O-set matrices.\r\n\r\nOBEF1         DBT    Element force output table (D-5).\r\n\r\nOBES1         DBT    Element stress output table (D-5).\r\n\r\nOBQG1         DBT    Forces of single point constraint output table (D-5).\r\n\r\nOCEIGS        DBT    Complex eigenvalue summary table (D-7, D-10).\r\n\r\nOCPHIP        DBT    Complex eigenvector output table (D-7, D-10).\r\n\r\nOCPHIPA       DBT    Complex eigenvector output table, aeroelastic.\r\n\r\nOEF1          DBT    Element force output table (D-1, D-2, D-4, D-5, D-6).\r\n\r\nOEF2          DBT    Element force output table - SORT2 (D-9, D-12).\r\n\r\nOEFB1         DBT    Element force output table (D-4).\r\n\r\nOEFC1         DBT    Element force output table - complex (D-7, D-8, D-10, D-\r\n                     11).\r\n\r\nOEFC2         DBT    Element force output table - complex - SORT2 (D-8, D-11).\r\n\r\nOEIGS         DBT    Real eigenvalue summary output table (D-3, D-5).\r\n\r\nOES1          DBT    Element stress output table (D-1, D-2, D-4, D-5, D-6).\r\n\r\nOES2          DBT    Element stress output table - SORT2 (D-9, D-12).\r\n\r\nOESB1         DBT    Element stress output table (D-4).\r\n\r\nOESC1         DBT    Element stress output table - complex (D-7, D-8, D-10, D-\r\n                     11).\r\n\r\nOESC2         DBT    Element stress output table - complex - SORT2 (D-8, D-11).\r\n\r\nOFP           FMS    Output File Processor.\r\n\r\nOFREQ         IC     Output Frequency set.\r\n\r\nOFREQUENCY    IC     Selects a set of frequencies to be used for output\r\n                     requests in frequency response problems (default is all\r\n                     frequencies) or flutter velocities.\r\n\r\nOGPST         DBT    Grid point singularity output table.\r\n\r\nOGPWG         DBT    Grid point weight generator output table.\r\n\r\nOLDBOUND      IS     Flag to identify rerunning problem with previously defined\r\n                     boundary set.\r\n\r\nOLDMODES      IS     Flag to identify rerunning problem with previously\r\n                     computed modal data.\r\n\r\nOld Problem   PH     See Problem Tape.\r\nTape\r\n\r\nOLOAD         IC     Request for output of external load vector.\r\n\r\nOLOAD         IS     Applied load output request.\r\n\r\nOMIT          IB     Omitted coordinate definition card.\r\n\r\nOMIT          P      Indicates no omitted coordinates.\r\n\r\nOMIT1         IB     Omitted coordinate definition card.\r\n\r\nOMITAX        IB     Omitted coordinate definition card for conical shell\r\n                     problems.\r\n\r\nONLES         DBT    Output table for nonlinear element stresses (D-6).\r\n\r\nOpen Core     PH     A contiguous block of working storage defined by a labeled\r\n                     common block, whose length is a variable determined by the\r\n                     NASTRAN executive routine CORSZ.\r\n\r\nOPG1          DBT    Static load output table (D-1, D-2, D-4, D-5, D-6).\r\n\r\nOPHID         DBT    Output table for complex eigenvectors - solution set (D-7).\r\n\r\nOPHIG         DBT    Eigenvector output table (D-3, D-5).\r\n\r\nOPHIH         DBT    Output table for complex eigenvectors - solution set (D-\r\n                     10).\r\n\r\nOPNL1         DBT    Output table for nonlinear loads - solution set, SORT1 (D-\r\n                     9, D-12).\r\n\r\nOPNL2         DBT    Output table for nonlinear loads - solution set, SORT2 (D-\r\n                     9, D-12).\r\n\r\nOPP1          DBT    Dynamic load output table (D-9, D-12).\r\n\r\nOPP1          DBT    Aerodynamic transient load output table, sort 1.\r\n\r\nOPP2          DBT    Dynamic load output table - SORT2 (D-9, D-12).\r\n\r\nOPPC1         DBT    Dynamic load output table - SORT1, complex (D-8, D-11).\r\n\r\nOPPC2         DBT    Dynamic load output table - SORT2, complex (D-8, D-11).\r\n\r\nOPT           PU     Controls the type of multipoint constraint output.\r\n\r\nOPTIONS       IS     Defines matrix types.\r\n\r\nOPTP          M      Old Problem Tape - a reserved NASTRAN physical file which\r\n                     must be set up by you when used.\r\n\r\nOQBG1         DBT    Forces of single-point constraint output table (D-4).\r\n\r\nOQG1          DBT    Single-point constraint force output table (D-1, D-2, D-4,\r\n                     D-5, D-6).\r\n\r\nOQP1          DBT    Single-point constraint force output table SORT1 (D-9, D-\r\n                     12).\r\n\r\nOQP2          DBT    Single-point constraint force output table SORT2 (D-9, D-\r\n                     12).\r\n\r\nOQPC1         DBT    Single-point constraint force output table - complex, SORT1\r\n                     (D-7, D-8, D-10, D-11).\r\n\r\nOQPC2         DBT    Single-point constraint force output table - complex, SORT2\r\n                     (D-7, D-8, D-10, D-11).\r\n\r\nOQPCA1        DBT    Complex constraint force output table, aeroelastic.\r\n\r\nOR            M      Parameter constant used in executive module PARAM.\r\n\r\nORIGIN        IC     Locates origin for structure plot.\r\n\r\nORTHOGRAPHIC  IC     Specifies orthographic projection for structure plot.\r\n\r\nOSCAR         PM     Operation sequence control array. Executive table residing\r\n                     on the Data Pool File which contains the sequence of\r\n                     operations to be executed for a problem solution. The OSCAR\r\n                     is an expansion of a DMAP sequence, either input by you\r\n                     or extracted from a rigid format, in internal format.\r\n\r\nOTIME         IC     Selects a set of times to be used for output requests in\r\n                     transient analysis problems (default is all times).\r\n\r\nOUBGV1        DBT    Displacement vector output table (D-4).\r\n\r\nOUDV1         DBT    Displacement vector output table - solution set, SORT1 (D-\r\n                     9).\r\n\r\nOUDV2         DBT    Displacement vector output table - solution set, SORT2 (D-\r\n                     9).\r\n\r\nOUDVC1        DBT    Displacement vector output table - solution set, SORT1,\r\n                     complex (D-8, D-11).\r\n\r\nOUDVC2        DBT    Displacement vector output table - solution set, SORT2,\r\n                     complex (D-8, D-11).\r\n\r\nOUGV1         DBT    Displacement output table (D-1, D-2, D-4, D-5, D-6).\r\n\r\nOUHV1         DBT    Displacement vector output table - solution set, SORT1 (D-\r\n                     12).\r\n\r\nOUHV2         DBT    Displacement vector output table - solution set, SORT2 (D-\r\n                     12).\r\n\r\nOUHVC1        DBT    Displacement vector output table - solution set, SORT1,\r\n                     complex (D-11).\r\n\r\nOUHVC2        DBT    Displacement vector output table - solution set, SORT2,\r\n                     complex (D-11).\r\n\r\nOUPV1         DBT    Displacement vector output table - SORT1 (D-9, D-12).\r\n\r\nOUPV2         DBT    Displacement vector output table - SORT2 (D-9, D-12).\r\n\r\nOUPVC1        DBT    Displacement vector output table - complex, SORT1 (D-8, D-\r\n                     11).\r\n\r\nOUPVC2        DBT    Displacement vector output table - complex, SORT2 (D-8, D-\r\n                     11).\r\n\r\nOUTPUT        FMX    Auxiliary output file processor.\r\n\r\nOUTPUT        IC     Marks beginning of printer output request packet -\r\n                     optional.\r\n\r\nOUTPUT        IS     Specifies optional output results.\r\n\r\nOutput Data   PM     A data block output from a module. May be output from one\r\nBlock                and only one module. Having been output, it may be used as\r\n                     an input data block as many times as necessary.\r\n\r\nOUTPUT1       FMU    Writes data blocks on GINO-written user tapes.\r\n\r\nOUTPUT2       FMU    Writes data blocks on FORTRAN-written user tapes.\r\n\r\nOUTPUT3       FMU    Punches matrices on DMI cards.\r\n\r\nOUTPUT4       FMX    Auxiliary output file processor.\r\n=PAGE=\r\nP             P      Parameter value used in MATGPR to print P-set matrices.\r\n\r\nP             PH     Flutter analysis method.\r\n\r\nPacked Format PH     A matrix is said to be in packed format if only the nonzero\r\n                     elements of the matrix are written.\r\n\r\nPAERO1        IB     Aerodynamic Panel Property.\r\n\r\nPAERO2        IB     Properties of aerodynamic bodies.\r\n\r\nPAERO3        IB     Defines Mach Box geometries.\r\n\r\nPAERO4        IB     Properties of strips (strip theory).\r\n\r\nPAERO5        IB     Properties of strips (piston theory).\r\n\r\nPAPER SIZE    IC     Selects paper size for structure plots using table\r\n                     plotters.\r\n\r\nPAPP          DBS    Appended load vectors.\r\n\r\nPARAM         FMU    Manipulates parameter values.\r\n\r\nPARAM         IB     Parameter definition card.\r\n\r\nParameter     PH     A FORTRAN variable communicated to a DMAP module by the\r\n                     NASTRAN Executive System through blank common. A\r\n                     parameter's position in the DMAP calling sequence to a\r\n                     module corresponds to the position of the parameter in\r\n                     blank common at module execution time.\r\n\r\nPARAML        FMU    Selects parameters from a user input matrix or table.\r\n\r\nPARAMR        FMU    Performs specified operations on real or complex\r\n                     parameters.\r\n\r\nPARTN         FMM    Matrix partitioning functional module.\r\n\r\nPARTVEC       FMX    User dummy module.\r\n\r\nPASSWORD      IS     SOF file protection.\r\n\r\nPBAR          IB     Bar property definition card.\r\n\r\nPBL           DBM    A scalar multiple of the PL load vector. Used only in the\r\n                     Differential Stiffness Rigid Format (D-4).\r\n\r\nPBS           DBM    A scalar multiple of the PL load vector. Used only in the\r\n                     Differential Stiffness Rigid Format (D-4).\r\n\r\nPCDB          DBT    Plot control data block (table for use with structure\r\n                     plotter functional module PLTSET).\r\n\r\nPCONEAX       IB     Conical shell element property definition card.\r\n\r\nPCPHIPA       DBT    Complex displacement plot file.\r\n\r\nPDAMP         IB     Scalar damper property definition card.\r\n\r\nPDF           DBM    Dynamic load matrix for frequency analysis.\r\n\r\nPDT           DBM    Linear dynamic load matrix for transient analysis.\r\n\r\nPDUMi         IB     Property definition card for dummy elements 1 through 9.\r\n\r\nPELAS         IB     Scalar elastic property definition card.\r\n\r\nPEN           IC     Selects pen size for structure plots using table plotters.\r\n\r\nPENSIZE       IC     Selects pen size for X-Y plots using table plotters.\r\n\r\nPERSPECTIVE   IC     Specifies perspective projection for structure plots.\r\n\r\nPFILE         P      Parameter used by PLOT module.\r\n\r\nPG            DBM    Incremental load vector used in Piecewise Linear Analysis\r\n                     (D-6).\r\n\r\nPG            DBM    Statics load vector generated by SSG1.\r\n\r\nPG1           DBM    Static load vector for Piecewise Linear Analysis (D-6).\r\n\r\nPGG           DBM    Appended static load vector (D-1, D-2).\r\n\r\nPGV1          DBM    Matrix of successive sums of incremental load vectors used\r\n                     only in Piecewise Linear Analysis Rigid Format (D-6).\r\n\r\nPHASE         IC     Requests magnitude and phase form of complex quantities.\r\n\r\nPhase 1       PH     An operation to create matrices and load vectors for\r\n                     substructuring analysis.\r\n\r\nPhase 2       PH     An operation to combine and reduce matrices and load\r\n                     vectors for substructuring analysis.\r\n\r\nPhase 3       PH     An operation to recover detailed data reduction for\r\n                     substructuring analysis.\r\n\r\nPHBDY         IB     Boundary element property definition card for heat transfer\r\n                     analysis.\r\n\r\nPHF           DBM    Total frequency response loads, modal.\r\n\r\nPHFI          DBM    Non-gust frequency response loads, modal.\r\n\r\nPHIA          DBM    [ ] - Real eigenvectors - solution set.\r\n                       a\r\n\r\nPHIAH         DBM    Eigenvectors, A-set.\r\n\r\nPHID          DBM    [ ]  - Complex eigenvectors - solution set, direct\r\n                       a     formulation.\r\n\r\nPHIDH         DBM    [  ] - Transformation matrix between modal and physical\r\n                       dh    coordinates.\r\n\r\nPHIG          DBM    [ ]  - Real eigenvectors.\r\n                       g\r\n\r\nPHIH          DBM    [ ]  - Complex eigenvectors - solution set, modal\r\n                       h     formulation.\r\n\r\nPHIHL         DBM    Appended complex mode shapes - h-set.\r\n\r\nPHIK          DBM    Eigenvectors, aerodynamic box points.\r\n\r\nPHIL          DBS    Left side eigenvector matrix from unsymmetric CREDUCE\r\n                     operation.\r\n\r\nPHIP          DBM    Eigenvectors, P-set.\r\n\r\nPHIPA         DBM    Eigenvectors, PA-set.\r\n\r\nPHIPS         DBM    Eigenvectors, PS-set.\r\n\r\nPHIS          DBS    Eigenvector matrix.\r\n\r\nPhysical      PH     Grid points and extra scalar points introduced for dynamic\r\nPoints               analysis.\r\n\r\nPIECEWISE     IA     Selects rigid format for piecewise linear analysis.\r\nLINEAR\r\n\r\nPivot Point   PH     The first word of each record of the GPCT and ECPT data\r\n                     blocks is called the pivot point.\r\n\r\nPJUMP         P      Used to skip deformed plots.\r\n\r\nPK            PH     Flutter analysis method.\r\n\r\nPKF           DBML   Forces on aerodynamic boxes, as a function of frequency.\r\n\r\nPL            DBM    {P } - Partition of load vector.\r\n                       l\r\n\r\nPLA           P      Used in printing rigid format error messages for Piecewise\r\n                     Linear Analysis (D-6).\r\n\r\nPLA1          FMS    Piecewise Linear Analysis - phase 1.\r\n\r\nPLA2          FMS    Piecewise Linear Analysis - phase 2.\r\n\r\nPLA3          FMS    Piecewise Linear Analysis - phase 3.\r\n\r\nPLA4          FMS    Piecewise Linear Analysis - phase 4.\r\n\r\nPLACOUNT      P      Loop counter in Piecewise Linear Analysis (D-6).\r\n\r\nPLALBL2A      L      Used in the Piecewise Linear Analysis Rigid Format only (D-\r\n                     6).\r\n\r\nPLALBL3       L      Used in the Piecewise Linear Analysis Rigid Format only (D-\r\n                     6).\r\n\r\nPLALBL4       L      Used in the Piecewise Linear Analysis Rigid Format only (D-\r\n                     6).\r\n\r\nPLCOEFFICIENT IC     Selects the coefficient set for Piecewise Linear Analysis\r\n                     problems.\r\n\r\nPLFACT        IB     Piecewise Linear Analysis factor definition card.\r\n\r\n                       i\r\nPLI           DBM    {P } - Partition of inertia relief load vector.\r\n                       l\r\n\r\nPLIMIT        IB     Property Optimization limits.\r\n\r\nPLOAD         IB     Pressure load definition (D-1, D-2, D-4, D-5, D-6).\r\n\r\nPLOAD2        IB     Element pressure loading for two-dimensional elements (D-1,\r\n                     D-2, D-4, D-5, D-6).\r\n\r\nPLOT          FMS    Structure plot generator.\r\n\r\nPLOT          IC     Execution card for structure plotter.\r\n\r\nPLOT          IS     Phase 2 undeformed plot request.\r\n\r\nPLOT$         M      Indicates restart with a structure plot request.\r\n\r\nPlot Tapes    PH     Magnetic tapes containing NASTRAN generated data to drive\r\n                     offline plotters. PLT1 is the name of the BCD plot tape and\r\n                     PLT2 is the name of the binary plot tape.\r\n\r\nPLOTEL        IB     Plot element definition card used to define convenient\r\n                     reference lines in structure plots.\r\n\r\nPLOTTER       IC     Used to select one of several available plotters for\r\n                     structure plotter.\r\n\r\nPLOTX1        DBT    Messages from plot module concerning action taken by the\r\n                     structure plotter in processing undeformed structure\r\n                     plots.\r\n\r\nPLOTX2        DBT    Messages from plot module concerning action taken by the\r\n                     structure plotter in processing deformed structure plots.\r\n\r\nPLOTX3        DBT    Deformed plot messages for aeroelastic.\r\n\r\nPLSETNO       P      Set number on a PLFACT bulk data card chosen by you in\r\n                     your case control deck. Used only in Piecewise Linear\r\n                     Analysis (D-6).\r\n\r\nPLT1          M      A reserved NASTRAN physical file which must be set up by\r\n                     you when used - see Plot Tapes.\r\n\r\nPLT2          M      A reserved NASTRAN physical file which must be set up by\r\n                     you when used - see Plot Tapes.\r\n\r\nPLTFLG        P      Parameter used by PLOT module.\r\n\r\nPLTMRG        FMSS   Substructure plot set data merge.\r\n\r\nPLTPAR        DBT    Plot control table.\r\n\r\nPLTPARA       DBT    Plot control table PLTPAR, with aeroelastic data.\r\n\r\nPLTS          DBS    Plot sets and other data required for Phase 2 plotting.\r\n\r\nPLTSET        FMS    Plot set definition processor.\r\n\r\nPLTSETA       DBT    Set definitions for aerodynamic plots.\r\n\r\nPLTSETX       DBT    Error messages for plot sets.\r\n\r\nPLTTRAN       FMS    Prepares data blocks for acoustic analysis plots.\r\n\r\nPLTTRAN       FMS    Transforms grid point definition tables for scalar points\r\n                     into a format for plotting.\r\n\r\nPMASS         IB     Scalar mass property definition card.\r\n\r\n                       n\r\nPNLD          DBM    {P } - Nonlinear loads in direct transient problem.\r\n                       d\r\n\r\n                       n\r\nPNLH          DBM    {P } - Nonlinear loads in modal transient problem.\r\n                       h\r\n\r\nPO            DBM    {P } - Partition of load vector.\r\n                       o\r\n\r\nPOAP          DBS    Appended load vectors on omitted points.\r\n\r\n                       i\r\nPOI           DBM    {P } - Partition of inertia relief load vector.\r\n                       o\r\n\r\nPOINT         IB     Eigenvalue analysis normalization option for eigenvectors -\r\n                     see EIGR, EIGC, EIGB cards.\r\n\r\nPOINTAX       IB     Axisymmetric Point.\r\n\r\nPOOL          M      Pool file used by file allocator.\r\n\r\nPOSITION      IS     Specifies initial position of input file.\r\n\r\nPOUT$         M      Indicates restart with a printer output request.\r\n\r\nPOVE          DBS    Load vectors on points omitted during matrix reduction.\r\n\r\nPPF           DBM    Dynamic loads for frequency response.\r\n\r\nPPHIG         DBM    Eigenvector components used to plot deformed shape. (D-3,\r\n                     D-5).\r\n\r\nPPT           DBM    Linear dynamic loads for transient analysis.\r\n\r\nPQDMEM        IB     Quadrilateral membrane element property definition card.\r\n\r\nPQDMEM1       IB     Isoparametric quadrilateral membrane element property\r\n                     definition card.\r\n\r\nPQDMEM2       IB     Quadrilateral membrane element property definition card.\r\n\r\nPQDPLT        IB     Quadrilateral bending element property definition card.\r\n\r\nPQUAD1        IB     General quadrilateral element property definition card.\r\n\r\nPQUAD2        IB     Homogeneous quadrilateral element property definition card.\r\n\r\nPREC          P      Precision of computer. CDC = 1; DEC VAX = 2; IBM = 2;\r\n                     UNIVAC = 2.\r\n\r\nPRECHK        EM     Predefined automated checkpoint.\r\n\r\nPreface       PH     Executive routines which are executed prior to the\r\n                     execution of the first module in a DMAP sequence. The\r\n                     Preface consists of the executive routines necessary to\r\n                     generate initial NASTRAN operational data and tables. The\r\n                     primary Preface routines are GNFIAT, XCSA, IFP1, XSORT,\r\n                     IFP, IFP3, and XGPI.\r\n\r\nPREFIX        IS     Prefix to rename equivalenced lower level substructures.\r\n\r\nPRESAX        IB     Defines static pressure loading for the conical shell\r\n                     element.\r\n\r\nPRESPT        IB     Defines a point in a hydroelastic model for output\r\n                     purposes.\r\n\r\nPRESSURE      IC     Request for output of pressure and displacement vector or\r\n                     eigenvector for a hydroelastic problem.\r\n\r\nPRINT         IA     Used to list all problem decks from UMF and Summary Table\r\n                     of Contents.\r\n\r\nPRINT         IS     Stores modal or solution data and prints data requested.\r\n\r\nPRINT         PU     Controls printing of flutter summary.\r\n\r\nProblem Tape  PH     A magnetic tape containing data necessary for NASTRAN\r\n                     problem restarts. A tape being generated is designated as\r\n                     the New Problem Tape (NPTP) and its content is largely\r\n                     controlled by the DMAP instruction CHKPNT. This same tape\r\n                     when used as input to a subsequent NASTRAN restart is\r\n                     designated as the Old Problem Tape (OPTP).\r\n\r\nPROD          IB     Rod property definition card.\r\n\r\nPROJECTION    IC     Separation of observer and projection plane for structure\r\nPLANE                plots.\r\nSEPARATION\r\n\r\nPRTMSG        FMS    Message generator.\r\n\r\nPRTPARM       FMU    Prints DMAP diagnostic messages and parameter values.\r\n\r\nPS            DBM    {P } - Partition of static load vector.\r\n                       s\r\n\r\nPSDF          DBM    Power Spectral Density Function table.\r\n\r\nPSDF          IC     Request for output of Power Spectral Density Function in\r\n                     Random Analysis (D-9, D-11).\r\n\r\nPSDL          DBT    Power Spectral Density List.\r\n\r\nPseudo        PH     Restarting (see Restart) a NASTRAN problem and redirecting\r\nModified             its solution but only affecting output data.\r\nRestart\r\n\r\nPSF           DBM    Partition of load vector for transient analysis.\r\n\r\nPSHEAR        IB     Shear panel property definition card.\r\n\r\nPST           DBM    Partition of linear load vector for transient analysis.\r\n\r\nPTITLE        IC     Structure plot frame title.\r\n\r\nPTORDRG       IB     Toroidal ring property definition card.\r\n\r\nPRTBSC        IB     Basic bending triangular element property definition card.\r\n\r\nPTRIA1        IB     General triangular element property definition card.\r\n\r\nPTRIA2        IB     Homogeneous triangular element property definition card.\r\n\r\nPTRIM6        IB     Linear strain triangular membrane property.\r\n\r\nPTRMEM        IB     Triangular membrane element property definition card.\r\n\r\nPTRPLT        IB     Triangular bending element property definition card.\r\n\r\nPTRPLT1       IB     Triangular plate property.\r\n\r\nPTRSHL        IB     Higher order triangular shell element property.\r\n\r\nPTUBE         IB     Tube property definition card.\r\n\r\nPTWIST        IB     Twist panel property definition card.\r\n\r\nPUBGV1        DBT    Displacement vector components used to plot deformed shape\r\n                     (D-4, D-5).\r\n\r\nPUGV          DBT    Displacement vector components used to plot deformed shape\r\n                     (D-1, D-2).\r\n\r\nPUGV1         DBT    Displacement components used to plot deformed shape (D-6).\r\n\r\nPUNCH         IA     Used to punch the problem deck from UMF or copy the problem\r\n                     deck from UMF onto NUMF and punch it.\r\n\r\nPUNCH         IC     Output medium request (PRINT or PUNCH).\r\n\r\nPUNPRT        IA     Used to punch and print the problem deck from UMF or copy\r\n                     the problem deck from UMF onto NUMF and punch and print it.\r\n\r\nPURGE         EM     DMAP statement which causes conditional purging of data\r\n                     blocks.\r\n\r\nPurge         PH     A data block is said to be purged when it is flagged in the\r\n                     FIAT so that it will not be allocated to a physical file\r\n                     and so that modules attempting to access it will be\r\n                     signaled.\r\n\r\nPUVPAT        DBT    Displacement vector used for plots, PA-set for aeroelastic.\r\n\r\nPVEC          DBS    Load vectors.\r\n\r\nPVISC         IB     Viscous element property definition card.\r\n\r\nPVT           PH     Parameter value table. The PVT contains BCD names and\r\n                     values of all parameters input by means of PARAM bulk data\r\n                     cards. It is generated by the preface module IFP and is\r\n                     written on the Problem Tape.\r\n\r\nP1            PU     INPUTT2 rewind option.\r\n\r\nP2            PU     INPUTT2 unit number.\r\n\r\nP3            PU     INPUTT2 tape id.\r\n=PAGE=\r\nQ             PU     Parameter which defines the dynamic pressure.\r\n\r\nQBDY1         IB     Defines uniform heat flux into HBDY elements.\r\n\r\nQBDY2         IB     Defines grid point heat flux into HBDY elements.\r\n\r\nQBG           DBM    Single point forces of constraint in the Differential\r\n                     Stiffness Rigid Format (D-4).\r\n\r\nQDMEM         IC     Requests structure plot for all QDMEM elements.\r\n\r\nQDMEM1        IC     Requests structure plot for all QDMEM1 elements.\r\n\r\nQDMEM2        IC     Requests structure plot for all QDMEM2 elements.\r\n\r\nQDPLT         IC     Requests structure plot for.all QDPLT elements.\r\n\r\nQG            DBM    Constraint forces for all grid points.\r\n\r\nQHBDY         IB     Defines thermal load for steady-state heat conduction.\r\n\r\nQHHL          DBML   Aerodynamic matrix list - h-set.\r\n\r\nQHJL          DBML   Aerodynamic matrix for gust calculations.\r\n\r\nQJHL          DBML   Aerodynamic transformation matrix between h and j sets.\r\n\r\nQKHL          DBML   Aerodynamic matrix for aerodynamic force data recovery.\r\n\r\nQP            DBM    Constraint forces for all physical points.\r\n\r\nQPA           DBM    Constraint forces, PA-set.\r\n\r\nQPAC          DBM    Constraint forces, complex, PA-set.\r\n\r\nQPC           DBM    Complex single point forces of constraint for all physical\r\n                     points.\r\n\r\nQPP2          DBT    Aerodynamic transient load output, sort 2.\r\n\r\nQR            DBM    {q } - Determinant support forces.\r\n                       r\r\n\r\nQS            DBM    {q } - Single-point constraint forces.\r\n                       s\r\n\r\nQUAD1         IC     Requests structure plot for all QUAD1 elements.\r\n\r\nQUAD2         IC     Requests structure plot for all QUAD2 elements.\r\n\r\nQVEC          DBS    Reaction force vectors.\r\n\r\nQVECT         IB     Defines thermal vector flux from distant source.\r\n\r\nQVOL          IB     Defines volume heat generation.\r\n=PAGE=\r\nR             P      Parameter value used by MATGPR to print R-set matrices.\r\n\r\nR1            IC     Request for X-Y plot of the first rotational component\r\n                     (UM-4.3).\r\n\r\nR1IP          IC     Request for X-Y plot of the first rotational component -\r\n                     imaginary and phase angle (UM-4.3).\r\n\r\nR1RM          IC     Request for X-Y plot of the first rotational component -\r\n                     real and magnitude (UM-4.3).\r\n\r\nR2            IC     Request for X-Y plot of the second rotational component\r\n                     (UM-4.3).\r\n\r\nR2IP          IC     Request for X-Y plot of the second rotational component -\r\n                     imaginary and phase angle (UM-4.3).\r\n\r\nR2RM          IC     Request for X-Y plot of the second rotational component -\r\n                     real and magnitude (UM-4.3).\r\n\r\nR3            IC     Request for X-Y plot of the third rotational component\r\n                     (UM-4.3).\r\n\r\nR3IP          IC     Request for X-Y plot of the third rotational component -\r\n                     imaginary and phase angle (UM-4.3).\r\n\r\nR3RM          IC     Request for X-Y plot of the third rotational component -\r\n                     real and magnitude (UM-4.3).\r\n\r\nRADLIN        P      Controls linearization of radiation effects in transient\r\n                     heat transfer analysis.\r\n\r\nRADLST        IB     List of radiation areas.\r\n\r\nRADMTX        IB     Radiation exchange coefficients.\r\n\r\nRANDOM        IC     Selects the RANDPS and RANDT cards to be used in random\r\n                     analysis.\r\n\r\nRANDOM        EMS    Random response solution generator.\r\n\r\nRANDPS        IB     Power spectral density specification.\r\n\r\nRANDT1        IB     Autocorrelation function time lag.\r\n\r\nRANDT2        IB     Autocorrelation function time lag.\r\n\r\nRANGE         IS     Identifies frequency range for real or complex retained\r\n                     modal coordinates.\r\n\r\nRBMG1         FMS    Rigid body matrix generator - part 1.\r\n\r\nRBMG2         FMS    Rigid body matrix generator - part 2.\r\n\r\nRBMG3         FMS    Rigid body matrix generator - part 3.\r\n\r\nRBMG4         FMS    Rigid body matrix generator - part 4.\r\n\r\nRCOVR         FMSS   Recover Phase 2 substructure results.\r\n\r\nRCOVR3        FMSS   Recover substructure results for Phase 3.\r\n\r\nREACT         P      Flag for rigid body mode calculations.\r\n\r\nREAD          FMS    Real Eigenvalue Analysis - Displacement.\r\n\r\nREAL          IC     Requests real and imaginary form of complex quantities.\r\n\r\nREAL          IA     Selects rigid format for normal mode analysis.\r\nEIGENVALUES\r\n\r\nRECOVER       IS     Phase 2 solution data recovery or Phase 1, 2 modal\r\n                     reduction request.\r\n\r\nREDUCE        FMSS   Reduction of substructure degrees of freedom.\r\n\r\nREDUCE        IS     Phase 2 reduction to retained degrees of freedom request.\r\n\r\nREEL          IA     Term appearing on the checkpoint dictionary cards\r\n                     indicating the physical reel on which a data block appears.\r\n\r\nReentry Point PH     The point in the DMAP sequence at which a problem\r\n                     terminated and hence the point at which it can be restarted\r\n                     (see Restart).\r\n\r\nREGION        IC     Specifies portion of frame to be used for structure plot.\r\n\r\nREIG          P      Parameter used in SDR2 to indicate Normal Mode Analysis (D-\r\n                     3).\r\n\r\nRELES         IB     Specifies grid point degrees of freedom to be disconnected\r\n                     - overrides CONCT and automatic connectivities using\r\n                     substructuring.\r\n\r\nREMOVE        IA     Used to copy problem decks from UMF onto NUMF up to pid\r\n                     and skip over problem pid.\r\n\r\nREPCASE       IC     Allows another output request for the previous subcase (D-\r\n                     1, D-2).\r\n\r\nREPEAT        P      Controls looping in Static Analysis (D-1, D-2).\r\n\r\nREPEATD       P      Controls looping in Static Analysis with Differential\r\n                     Stiffness (D-4).\r\n\r\nREPEATE       P      Controls looping in Complex Eigenvalue Analysis (D-7,  D-\r\n                     10).\r\n\r\nREPEATF       P      Controls looping in frequency Response Analysis (D-8,  D-\r\n                     11).\r\n\r\nREPEATT       P      Controls looping in Transient Response Analysis (D-9,  D-\r\n                     12).\r\n\r\nREPT          EM     DMAP statement to conditionally repeat a loop.\r\n\r\nRESPONSE      IC     Request for X-Y plot of any response outputs from transient\r\n                     or frequency response analysis (D-8, D-9, D-11, D-12).\r\n\r\nRESTART       IA     First control card of checkpoint dictionary. Contains\r\n                     identification of checkpoint tape.\r\n\r\nRestart       PH     Initiating a NASTRAN problem solution at a place other than\r\n                     its logical beginning by utilizing an Old Problem Tape\r\n                     created during a previous run.\r\n\r\nRESTORE       IB     Reloads the SOF from an external file.\r\n\r\nRFORCE        IB     Rotational force definition card.\r\n\r\nRFORCE$       M      Indicates restart with change in rotational force.\r\n\r\nRD            DBM    Multipoint constraint equations.\r\n\r\nRGRID         IB     Specifies grid point in the basic substructure to define\r\n                     reference point for inertia relief shapes. Defaults to\r\n                     origin of basic substructure coordinate system.\r\n\r\nRIGHT TICS    IC     Request for tic marks to be plotted on right hand edge of\r\n                     frame for X-Y plots.\r\n\r\nRigid Format  PH     A fixed prestored DMAP sequence and its associated restart\r\n                     tables which perform a specific problem solution.\r\n\r\nRigid Format  PH     A type of restart (see Restart) in which the problem is\r\nSwitch               changed from one Rigid Format to another.\r\n\r\nRINGAX        IB     Conical shell ring definition card.\r\n\r\nRINGFL        IB     Hydroelastic axisymmetric point definition card.\r\n\r\nRLOAD1        IB     Frequency response load set definition.\r\n\r\nRLOAD2        IB     Frequency response load set definition.\r\n\r\nRMG           FMH    Radiation matrix generator - generates [R  ].\r\n                                                              gg\r\n\r\nRNAME         IS     Specifies basic substructure to define reference point for\r\n                     inertia.\r\n\r\nROD           IC     Requests structure plot for all ROD elements.\r\n\r\nRP            DBM    Partitioning vector set D to A and E.\r\n\r\nRSAVE         IS     Save REDUCE decomposition product, or indicates the\r\n                     decomposition product of the interior point stiffness.\r\n\r\nRUBLV         DBM    Residual vector - Differential Stiffness Rigid Format (D-\r\n                     4).\r\n\r\nRULV          DBM    Residual vector for independent degrees of freedom.\r\n\r\nRUN           IS     Specifies run options.\r\n\r\nRUOV          DBM    Residual vector for omitted degrees of freedom.\r\n\r\nRXY           IC     Requests vector sum of X and Y deformation components for\r\n                     structure plot.\r\n\r\nRXYZ          IC     Requests vector sum of X, Y, and Z deformation components\r\n                     for structure plot.\r\n\r\nRXZ           IC     Requests vector sum of X and Z deformation components for\r\n                     structure plot.\r\n\r\nRYX           IC     Requests vector sum of Y and Z deformation components for\r\n                     structure plot.\r\n=PAGE=\r\nS             P      Parameter value used by MATGPR to print S-set matrices.\r\n\r\nSACCE         IC     Abbreviated form of SACCELERATION.\r\n\r\nSACCELERATION IC     Output request for solution set acceleration vector. (UM-\r\n                     2.3, 4.3)\r\n\r\nSAVE          EM     DMAP statement which causes current value of parameter to\r\n                     be saved.\r\n\r\nSAVE          IS     Stores modal or solution data on SOF.\r\n\r\nSAVE          M      Save data block for possible looping in DMAP sequence (see\r\n                     FILE).\r\n\r\nSAVEPLOT      IB     Requests plot data be saved in Phase 1.\r\n\r\nSC            IC     Selects SC 4020 plotter.\r\n\r\nSCALAR        FMU    Convert matrix element to parameter.\r\n\r\nScalar Point  PH     A point which is defined on an SPOINT, CELAS1, CELAS2,\r\n                     CELAS3, CELAS4, CMASS1, CMASS2, CMASS3, CMASS4, CDAMP1,\r\n                     CDAMP2, CDAMP3, or CDAMP4 bulk data card. A scalar point\r\n                     has no geometrical coordinates and defines only one degree\r\n                     of freedom of the model.\r\n\r\nSCALE         IC     Selects scale for structure plot.\r\n\r\nSCE1          FMS    Single-point Constraint Eliminator.\r\n\r\nSDAMP         IC     Modal structural damping table selection.\r\n\r\nSDAMP4        M      Indicates restart with change in modal damping.\r\n\r\nSDAMPING      IC     Selects table which defines damping as a function of\r\n                     frequency in modal formulation problems.\r\n\r\nSDISP         IC     Abbreviated form of SDISPLACEMENT.\r\n\r\nSDISPLACEMENT IC     Output request for solution set displacement vector.\r\n                     (UM-2.3, 4.3)\r\n\r\nSDR1          FMS    Stress Data Recovery - part 1.\r\n\r\nSDR2          FMS    Stress Data Recovery - part 2.\r\n\r\nSDR3          FMS    Stress Data Recovery - part 3.\r\n\r\nSDRHT         FMS    Heat flux data recovery.\r\n\r\nSEARCH        IS     Limits search for automatic connects.\r\n\r\nSECTAX        IB     Defines conical shell sector for data recovery.\r\n\r\nSEEMAT        FMU    Prints pictorial representation of matrix showing location\r\n                     of nonzero elements.\r\n\r\nSEM1          M      The NASTRAN Preface.\r\n\r\nSEQEP         IB     Extra point resequencing.\r\n\r\nSEQGP         IB     Grid or scalar point resequencing.\r\n\r\nSET           IC     Definition of a set of elements, grid and/or scalar and/or\r\n                     extra points, frequencies, or times to be used in selecting\r\n                     output.\r\n\r\nSET1          IB     Defines a set of structural grid points by a list.\r\n\r\nSET2          IB     Defines a set of structural grid points by aerodynamic\r\n                     macro elements.\r\n\r\nSETVAL        FMU    Parameter value initiator.\r\n\r\nSGEN          FMSS   Substructure table generator.\r\n\r\nSHEAR         IC     Requests structure plot for all shear panel elements.\r\n\r\nSIGMA         PU     Defines Stefan-Boltzmann constant in heat transfer\r\n                     analysis.\r\n\r\nSIL           DBT    Scalar Index List for all grid points and extra scalar\r\n                     points introduced for dynamic analysis.\r\n\r\nSILGA         DBT    Scalar Index List - Aerodynamic boxes only.\r\n\r\nSINCON        PU     Controls the automatic stiffness matrix singularity\r\n                     removal.\r\n\r\nSINE          IC     Conical shell request for sine set boundary conditions.\r\n\r\nSING          P      -1 if [K  ] is singular.\r\n                             oo\r\n\r\nSINGLE        P      No single-point constraints.\r\n\r\nSKIP BETWEEN  IC     Request to insert blank frames on SC 4020 plotter for X-Y\r\nFRAMES               plots.\r\n\r\nSKJ           DBM    Integration matrix.\r\n\r\nSKPMGG        P      Parameter used in statics to control execution of\r\n                     functional module SMA2.\r\n\r\nSKPPLT        L      Used to skip plot.\r\n\r\nSLBDY         IB     Defines list of points on interface between axisymmetric\r\n                     fluid and radial slots.\r\n\r\nSLOAD         IB     Scalar point load definition.\r\n\r\nSLT           DBT    Static Loads Table.\r\n\r\nSMA1          FMS    Structural Matrix Assembler - phase 1 - generates stiffness\r\n                                                                  4\r\n                     matrix [K  ] and structural damping matrix [K  ].\r\n                              gg                                  gg\r\n\r\nSMA2          FMS    Structural Matrix Assembler - phase 2 - generates mass\r\n                     matrix [M  ] and viscous damping matrix [B  ].\r\n                              gg                               gg\r\n\r\nSMA3          FMS    Structural Matrix Assembler - phase 3 - add general element\r\n                     contributions to the stiffness matrix [K  ].\r\n                                                             gg\r\n\r\nSMP1          FMS    Structural Matrix Partitioner - part 1.\r\n\r\nSMP2          FMS    Structural Matrix Partitioner - part 2.\r\n\r\nSMPYAD        FMM    Performs multiply-add matrix operation for up to five\r\n                     multiplications and one addition.\r\n\r\nSOF           IB     Assigns physical files for storage of the SOF.\r\n\r\nSOFI          FMSS   SOF into GINO matrix copier.\r\n\r\nSOFIN         IS     Copies substructure items from an external file to the SOF.\r\n\r\nSOFO          FMSS   SOF out from GINO matrix copier.\r\n\r\nSOFOUT        IS     Copies substructure items from the SOF to an external file.\r\n\r\nSOFPRINT      IS     Prints selected contents of the SOF.\r\n\r\nSOFUT         FMSS   SOF utility module.\r\n\r\nSOL           IA     Specifies which rigid format solution is to be used when\r\n                     APP is DISPLACEMENT.\r\n\r\nSOLN          DBS    Load factor data or eigenvalues used in a solution.\r\n\r\nSolution      PH     Points used in the formulation of the general K system.\r\nPoints\r\n\r\nSOLVE         FMM    Solves a set of linear algebraic equations.\r\n\r\nSOLVE         IB     Requests substructure solution.\r\n\r\nSORT          IS     Output sort order.\r\n\r\nSORT1         IC     Output is sorted by frequency or time and then by external\r\n                     ID.\r\n\r\nSORT2         IC     Output is sorted by external ID and then by frequency or\r\n                     time.\r\n\r\nSORT3         M      Output is sorted by individual item or component and then\r\n                     by frequency or time.\r\n\r\nSPC           IB     Single-point constraint and enforced deformation\r\n                     definition.\r\n\r\nSPC           IC     Selects set of single-point constraints for structural\r\n                     displacements or heat transfer boundary temperatures.\r\n\r\nSPC$          M      Indicates restart with change in single-point constraint\r\n                     set selection.\r\n\r\nSPC1          IB     Single-point constraint definition.\r\n\r\nSPCADD        IB     Single-point constraint set combination definition.\r\n\r\nSPCAX         IB     Conical shell single-point constraint definition.\r\n\r\nSPCF          IC     Abbreviated form of SPCFORCE.\r\n\r\nSPCF          IS     Reaction force output request.\r\n\r\nSPCFORCE      IC     Requests the single-point forces of constraint at a set of\r\n                     points or the thermal power transmitted to a selected set\r\n                     of points in heat transfer.\r\n\r\nSPCS          IB     Specifies single point constraints for substructuring.\r\n\r\nSPCS1         IB     Alternate specification of single point constraints for\r\n                     substructuring.\r\n\r\nSPCSD         IB     Specifies enforced displacements for single point\r\n                     constraints for substructuring.\r\n\r\nSpill         PH     Secondary storage devices are used because there is\r\n                     insufficient main storage to perform a matrix calculation\r\n                     or a data processing operation.\r\n\r\nSPLINE        DBT    Splining Data Table.\r\n\r\nSPLINE1       IB     Defines surface spline.\r\n\r\nSPLINE2       IB     Defines beam spline.\r\n\r\nSPLINE3       IB     User data to interpolate deflections at aerodynamic degrees\r\n                     of freedom.\r\n\r\nSPOINT        IB     Scalar point definition card.\r\n\r\nSSG1          FMS    Static Solution Generator - part 1.\r\n\r\nSSG2          FMS    Static Solution Generator - part 2.\r\n\r\nSSG3          FMS    Static Solution Generator - part 3.\r\n\r\nSSG4          FMS    Static Solution Generator - part 4.\r\n\r\nSSGHT         FMH    Solution generator for nonlinear heat transfer analysis.\r\n\r\nSTATIC        IC     Requests deformed structure plot for problem in Static\r\n                     Analysis.\r\n\r\nSTATIC        IA     Selects rigid format for static analysis using cyclic\r\nANALYSIS WITH        symmetry.\r\nCYCLIC SYMMETRY\r\n\r\nSTATIC HEAT   IA     Selects rigid format for linear static analysis using heat\r\nTRANSFER             transfer.\r\nANALYSIS\r\n\r\nSTATICS       IA     Selects statics rigid format for heat transfer or\r\n                     structural analysis.\r\n\r\nSTATICS       P      Parameter used in SDR2 to indicate Static Analysis.\r\n\r\nSTEADY STATE  IA     Selects rigid format for nonlinear static heat transfer\r\n                     analysis.\r\n\r\nSTEPS         IB     Frequency or time step output request for substructuring.\r\n\r\nSTEREOSCOPIC  IC     Requests stereoscopic projections for structure plot.\r\n\r\nSTRESS        IC     Requests the stresses in a set of structural elements or\r\n                     the velocity components in a fluid element in acoustic\r\n                     cavity analysis.\r\n\r\nStructural    PM     One of the finite elements used to represent a part of a\r\nElement              structure.\r\n\r\nSTST          NP     Defines the singularity tolerance in EMG.\r\n\r\nSUBCASE       IC     Subcase definition.\r\n\r\nSUBCASES      IB     Subcase output request.\r\n\r\nSUBCOM        IC     This subcase is a linear combination of previous subcases.\r\n\r\nSUBPH1        FMSS   Substructure, Phase 1.\r\n\r\nSUBSEQ        IC     Specifies coefficients for SUBCOM subcases.\r\n\r\nSUBSTRUCTURE  IB     Initiates the substructure control deck.\r\n\r\nSubstructure  PH     One of the data decks required to run automated multi-stage\r\nControl Deck         substructuring. The deck begins with the SUBSTRUCTURE card\r\n                     and terminates with the ENDSUBS card. Cards in this deck\r\n                     cause the necessary alters to the Rigid Format DMAP.\r\n\r\nSUBTITLE      IC     Output labeling data for printer output.\r\n\r\nSUPAX         IB     Fictitious support for conical shell problem.\r\n\r\nSUPORT        IB     Fictitious support definition card.\r\n\r\nSVECTOR       IC     Request for output of eigenvectors in the solution set (D-\r\n                     7, D-10) (UM-2.3, 4.3).\r\n\r\nSVELO         IC     Abbreviated form of SVELOCITY.\r\n\r\nSVELOCITY     IC     Requests velocity output for solution set. (UM-2.3, 4.3)\r\n\r\nSWITCH        FMU    Interchange two data block names.\r\n\r\nSYM           IC     Symmetry subcase delimiter card.\r\n\r\nSYMBOLS       IC     Requests symbols at grid points on structure plot.\r\n\r\nSYMCOM        IC     Assembly of symmetry subcase delimiter card.\r\n\r\nSYMSEQ        IC     Assembly value of symmetry combination card.\r\n\r\nSYMTRANSFORM  IB     Specifies symmetry transformation.\r\n=PAGE=\r\nT1            IC     Request for X-Y plot of the first translational component\r\n                     (UM-4.3).\r\n\r\nT1IP          IC     Request for X-Y plot of the first translational component -\r\n                     imaginary and phase angle (UM-4.3).\r\n\r\nT1RM          IC     Request for X-Y plot of the first translational component -\r\n                     real and magnitude (UM-4.3).\r\n\r\nT2            IC     Request for X-Y plot of the second translational component\r\n                     (UM-4.3).\r\n\r\nT2IP          IC     Request for X-Y plot of the second translational component\r\n                     - imaginary and phase angle (UM-4.3).\r\n\r\nT2RM          IC     Request for X-Y plot of the second translational component\r\n                     - real and magnitude (UM-4.3).\r\n\r\nT3            IC     Request for X-Y plot of the third translational component\r\n                     (UM-4.3).\r\n\r\nT3IP          IC     Request for X-Y plot of the third translational component -\r\n                     imaginary and phase angle (UM-4.3).\r\n\r\nT3RM          IC     Request for X-Y plot of the third translational component -\r\n                     real and magnitude (UM-4.3).\r\n\r\nTA1           FMS    Table Assembler.\r\n\r\nTABDMP1       IB     Tabular structural damping function for modal formulation\r\n                     (D-10, D-11, D-12).\r\n\r\nTable Data    PH     A data block which is in tabular form rather than matrix\r\nBlock                form.\r\n\r\nTABLED1       IB     Dynamic load tabular function (D-8, D-9, D-11, D-12).\r\n\r\nTABLED2       IB     Dynamic load tabular function (D-8, D-9, D-11, D-12).\r\n\r\nTABLED3       IB     Dynamic load tabular function (D-8, D-9, D-11, D-12).\r\n\r\nTABLED4       IB     Dynamic load tabular function (D-8, D-9, D-11, D-12).\r\n\r\nTABLEM1       IB     Material property tabular function.\r\n\r\nTABLEM2       IB     Material property tabular function.\r\n\r\nTABLEM3       IB     Material property tabular function.\r\n\r\nTABLEM4       IB     Material property tabular function.\r\n\r\nTABLES1       IB     Stress-dependent material tabular function for use in\r\n                     Piecewise Linear Analysis (D-6).\r\n\r\nTABPCH        FMU    Punches selected tables on DTI bulk data cards.\r\n\r\nTABPRT        FMU    Formats selected table data blocks for printing.\r\n\r\nTABPT         FMU    Table printer.\r\n\r\nTABRNDG       IB     Table of Power Spectral Density for certain gusts.\r\n\r\nTABRND1       IB     Tabular function for use in Random Analysis (D-8, D-11).\r\n\r\nTABRND2       IB     Tabular function for use in Random Analysis (D-8, D-11).\r\n\r\nTABRND3       IB     Tabular function for use in Random Analysis (D-8, D-11).\r\n\r\nTABRND4       IB     Tabular function for use in Random Analysis (D-8, D-11).\r\n\r\nTABS          P      Defines absolute reference temperature in heat transfer\r\n                     analysis.\r\n\r\nTALL EDGE     IC     Request for plotting all edge tic marks on upper half frame\r\nTICS                 for X-Y plots.\r\n\r\nTAPE          M      Write data block on physical tape (see FILE).\r\n\r\nTCURVE        IC     Curve title for X-Y plot.\r\n\r\nTEMP          IB     Grid temperature definition card.\r\n\r\nTEMPAX        IB     Temperature definition for conical shell problem.\r\n\r\nTEMPD         IB     Grid default temperature definition card.\r\n\r\nTEMPERATURE   IC     Selects thermal field for determining both equivalent\r\n                     static loads and material properties.\r\n\r\nTEMPLD$       M      Indicates restart with change in thermal set for static\r\n                     loading.\r\n\r\nTEMPMT$       M      Indicates restart with change in thermal set for material\r\n                     properties.\r\n\r\nTEMPMX$       M      Indicates restart with change in thermal field with\r\n                     thermally dependent material properties.\r\n\r\nTEMP(LOAD)    IC     Selects thermal field to be used for determining equivalent\r\n                     static loads.\r\n\r\nTEMP(MAT)     IC     Selects thermal field to be used for determining structural\r\n                     material properties or an estimate of the temperature\r\n                     distribution for heat transfer iterations.\r\n\r\nTEMPP1        IB     Plate element temperature definition card.\r\n\r\nTEMPP2        IB     Plate element temperature definition card.\r\n\r\nTEMPP3        IB     Plate element temperature definition card.\r\n\r\nTEMPRB        IB     One-dimensional element temperature definition.\r\n\r\nTF            IB     Dynamic transfer function definition.\r\n\r\nTF$           M      Indicates restart with change in transfer function set\r\n                     selection.\r\n\r\nTFL           IC     Transfer function set selection.\r\n\r\nTFPOOL        DBT    Transfer function pool.\r\n\r\nTHERMAL       IC     Request for output of temperature vector in thermal\r\n                     analysis (UM-2.3).\r\n\r\nTHROUGH          IC     Forms strings of values within set declarations.\r\n\r\nTIC           IB     Transient Initial Condition set definition card.\r\n\r\nTIME          IA     User time estimate for problem. This card is required in\r\n                     Executive Control Deck. Integer time value is in minutes.\r\n\r\nTIMETEST      FMU    Provides NASTRAN system timing data.\r\n\r\nTITLE         IC     Output labeling data for printer output.\r\n\r\nTLEFT TICS    IC     Request for tic marks to be plotted on left hand edge of\r\n                     top half frame for X-Y plot.\r\n\r\nTLOAD1        IB     Transient load set definition card.\r\n\r\nTLOAD2        IB     Transient load set definition card.\r\n\r\nTOC           IA     Used to list all problem decks (Summary Table of Contents)\r\n                     by UMF number from UMF.\r\n\r\nTOL           DBT    Time output list.\r\n\r\nTOL1          DBT    Reduced time output list, uses OTIME.\r\n\r\nTOLERANCE     IS     Limits distance between automatically connected grids.\r\n\r\nTRACKS        NP     Defines the format for the number of tracks required for\r\n                     plot data.\r\n\r\nTrailer       PH     A six word control block associated with a data block.\r\n\r\nTRANRESP      P      Parameter used in SDR2 to indicate Transient Response\r\n                     Analysis (D-9, D-12).\r\n\r\nTRANS         IB     Specifies coordinate systems for substructure and grid\r\n                     point transformation.\r\n\r\nTRANSFORM     IS     Defines transformations for named component substructures.\r\n\r\nTRANSIENT     IA     Selects rigid format for transient heat transfer analysis.\r\n\r\nTRANSIENT     IA     Selects rigid format for linear transient analysis using\r\nHEAT TRANSFER        heat transfer.\r\nANALYSIS\r\n\r\nTRBSC         IC     Requests structure plot for all basic bending triangle\r\n                     elements.\r\n\r\nTRD           FMS    Transient Response - Displacement.\r\n\r\nTRHT          FMH    Integrates dynamic equation for heat transfer analysis.\r\n\r\nTRIA1         IC     Requests structure plot for all TRIA1 elements.\r\n\r\nTRIA2         IC     Requests structure plot for all TRIA2 elements.\r\n\r\nTRIGHT TICS   IC     Request for tic marks to be plotted on right hand edge of\r\n                     top half frame for X-Y plots.\r\n\r\nTRL           DBT    Transient Response List.\r\n\r\nTRLG          FMH    Generates dynamic heat flux loads.\r\n\r\nTRMEM         IC     Requests structure plot for all triangular membrane\r\n                     elements.\r\n\r\nTRNSP         FMM    Transpose functional module.\r\n\r\nTRPLT         IC     Request structure plot for all TRPLT elements.\r\n\r\nTSTART        P      CPU time at start of flutter loop.\r\n\r\nTSTEP         IB     Transient time steps for integration and output.\r\n\r\nTSTEP         IC     Transient time step set selection.\r\n\r\nTSTEP$        M      Indicates restart with change in transient time step set\r\n                     selection.\r\n\r\nTUBE          IC     Requests structure plot for all TUBE elements.\r\n\r\nTWIST         IC     Requests structure plot for all TWIST elements.\r\n\r\nTYPE          IC     Indicates paper type for structure plots.\r\n=PAGE=\r\nUBGV          DBM    Displacement vector for all grid points (D-4).\r\n\r\n                       b                                  b\r\nUBLL          DBM    [U  ] - Upper triangular factor of [K  ].\r\n                       ll                                 ll\r\n\r\nUBLV          DBM    Displacement solution vector (D-4).\r\n\r\nUBOOV         DBM    Scalar multiple of UOOV in Differential Stiffness Rigid\r\n                     Format (D-4).\r\n\r\nUDET          IB     Selects unsymmetric decomposition option for determinant\r\n                     method of real eigenvalue analysis.\r\n\r\nUDVIT         DBM    Displacement, velocity, and acceleration solution vectors\r\n                     in a transient analysis problem - SORT1 (D-9).\r\n\r\nUDV2T         DBM    Displacement, velocity, and acceleration solution vectors\r\n                     in a transient analysis problem - SORT2 (D-9).\r\n\r\nUDVF          DBM    Displacement solution vector in a frequency response\r\n                     problem (D-8).\r\n\r\nUDVT          DBM    Displacement, velocity, and acceleration solution vectors\r\n                     in a transient analysis problem (D-9).\r\n\r\nUEVF          DBM    Displacement vector for extra points in a frequency\r\n                     response problem (D-11).\r\n\r\nUEVT          DBM    Displacement vector for extra points in a transient\r\n                     response problem (D-12).\r\n\r\nUGV           DBM    Displacement vector for all grid points (D-1, D-2, D-4, D-\r\n                     5).\r\n\r\nUGV1          DBM    Successive sums of incremental displacement vectors.\r\n                     Piecewise Linear Analysis Rigid Format only (D-6).\r\n\r\nUHVF          DBM    Modal frequency response solution vectors (D-11).\r\n\r\nUHVT          DBM    Modal transient response solution vectors (D-12).\r\n\r\nUHVT1         DBM    Modal amplitudes for aeroelastic transient.\r\n\r\nUIMPROVE      IS     Improved displacement request.\r\n\r\nUINV          IB     Selects unsymmetric decomposition option for inverse power\r\n                     method of eigenvalue analysis.\r\n\r\nULL           DBM    [U  ] - Upper triangular factor of [K  ].\r\n                       ll                                 ll\r\n\r\nULV           DBM    Displacement solution vector in static analyses (D-1, D-2,\r\n                     D-4, D-5).\r\n\r\nUMERGE        FMM    Functional module to merge column matrices based on U-set.\r\n\r\nUMF           IA     Used to copy UMF problem deck onto NUMF, list it and punch\r\n                     UMF card.\r\n\r\nUMF           M      User Master File, a reserved NASTRAN physical file which\r\n                     must be set up by you when used.\r\n\r\nUMFEDIT       IA     Requests User Master File operational mode of NASTRAN.\r\n\r\nUnmodified    PN     Restarting (see Restart) a problem without changing any\r\nRestart              data, other than output requests, of the previous run.\r\n\r\nUnpool        PH     Remove data block from Pool Tape and place on a file for\r\n                     use by a functional module.\r\n\r\nUNSORT        IC     Requests unsorted echo of Bu1k Data Deck (ECHO=UNSORT).\r\n\r\nUOO           DBM    [U  ] - Upper triangular factor of [K  ].\r\n                       oo                                 oo\r\n\r\nUOOV          DBM    Partition of displacement solution vector.\r\n\r\nUPARTN        FMM    Functional module to partition matrices based on U-set.\r\n\r\nUPPER TICS    IC     Request for tic marks to be plotted on upper edge of frame\r\n                     for X-Y plot.\r\n\r\nUPRT          DBS    Partitioning vector used in matrix reduction.\r\n\r\nUPV           DBM    Transient solution sectors for all physical points.\r\n\r\nUPVC          DBM    Frequency response solution vectors for all physical\r\n                     points.\r\n\r\nUSERMODES     IS     Flag to indicate modal data have been input on bulk data.\r\n\r\nUSET          DBT    Displacement set definitions. (PM-1.7.3).\r\n\r\nUSETA         DBT    Displacement set definitions table - Aerodynamics.\r\n\r\nUSETD         DBT    Displacement set definitions including extra scalar points.\r\n\r\nUVEC          DBS    Displacement vectors or eigenvectors.\r\n\r\nUVT1          DBM    Displacements for aeroelastic transient.\r\n=PAGE=\r\nV             DBM    Partitioning vector for set F to O and A.\r\n\r\nV             M      Used in parameter section of DMAP statement. Indicates that\r\n                     parameter is variable and may be changed by module. If\r\n                     changed value is to be used in subsequent DMAP instruction,\r\n                     it must be saved (see SAVE).\r\n\r\nVANTAGE POINT IC     Location of observer for structure plot.\r\n\r\nVDR           FMS    Vector Data Recovery.\r\n\r\nVDR           L      Used to skip to VDR module in flutter analysis.\r\n\r\nVEC           FMU    Creates partitioning vector based on USET.\r\n\r\nVECTOR        IC     Request for output of eigenvectors from real or complex\r\n                     eigenvalue analysis (D-3, D-5, D-7, D-10).\r\n\r\nVECTOR        IC     Requests displacements for a selected set of physical\r\n                     points.\r\n\r\nVELO          IC     Abbreviated form of VELOCITY.\r\n\r\nVELO          IS     Velocity output request.\r\n\r\nVELOCITY      IC     Output request statement for velocity vector. (UM-2.3,\r\n                     4.2).\r\n\r\nVFS           DBM    Partitioning vector for heat transfer analysis.\r\n\r\nVIEW          IC     Rotation of object for structure plot.\r\n\r\nVISC          IC     Request structure plot for all viscous damper element.\r\n\r\nVPS           M      See XVPS.\r\n\r\nVREF          PU     Velocity division factor.\r\n\r\n\r\n\r\n\r\nW3            PU     Pivotal frequency for uniform structure damping in the\r\n                     direct formulation of transient response problems (D-9).\r\n\r\nW4            PU     Pivotal frequency for element structural damping in the\r\n                     direct formulation of transient response problems (D-9).\r\n\r\nWTMASS        PU     Weight to mass conversion factor used in SMA2 and GPWG.\r\n                     Default value is 1.0.\r\n=PAGE=\r\nX             IC     Requests X vector for deformed structure plot.\r\n\r\nXAXIS         IC     Request for drawing of X-axis for X-Y plot.\r\n\r\nXBAXIS        IC     Request for drawing of X-axis on bottom half frame for X-Y\r\n                     plot.\r\n\r\nXBGRID LINES  IC     Request for drawing grid lines for X-axis on bottom half\r\n                     frame for X-Y plot.\r\n\r\nXCSA          EM     Executive Control Section Analysis. The preface module\r\n                     which processes the Executive Control Deck and prepares the\r\n                     control file on the New Problem Tape.\r\n\r\nXDIVISIONS    IC     Request for division marking on X-axis.\r\n\r\nXDMAP         EM     Controls the DMAP compiler options.\r\n\r\nXGPI          EM     Executive General Problem Initialization. The preface\r\n                     module whose principal function is to generate the OSCAR.\r\n                     If the problem is a restart, XGPI initializes data blocks\r\n                     and named common blocks for proper restart.\r\n\r\nXGRID LINES   IC     Request for grid lines to be drawn on X-axis for X-Y plots.\r\n\r\nXINTERCEPT    IC     Specifies intercept of Y-axis on X-axis.\r\n\r\nXLOG          IC     Request for logarithmic scales in X-direction.\r\n\r\nXMAX          IC     Do not plot points whose X value lies above this value.\r\n\r\nXMIN          IC     Do not plot points whose X value lies below this value.\r\n\r\nXPAPER        IC     Specifies length of paper in X-direction for table plotter.\r\n\r\nXQHHL         P      Appended QHHL data parameter.\r\n\r\nXSFA          EM     Executive Segment File Allocator - the administrative\r\n                     manager of data blocks for NASTRAN.\r\n\r\nXSORT         EM     Executive sort routine - the preface module which reads and\r\n                     sorts the Bulk Data Deck and writes the sorted Bulk Data\r\n                     Deck on the New Problem Tape.\r\n\r\nXTAXIS        IC     Request for drawing of X-axis on top half frame.\r\n\r\nXTGRID LINES  IC     Request for drawing of grid lines on top half frame.\r\n\r\nXTITLE        IC     X-axis title for X-Y plots.\r\n\r\nXVALUE PRINT  IC     Request to suppress labeling tic marks over the specified\r\nSKIP                 interval.\r\n\r\nXVPS          M      Variable Parameter Set Table. Executive table needed for\r\n                     restart. (PM-2.4)\r\n\r\nXY            IC     Requests X and Y vectors for deformed structure plot.\r\n\r\nXYCDB         DBT    SORT3 output requests (XYPLOTTER, XYPRINTER, Random\r\n                     Request).\r\n\r\nXYOUT         IC     Request to generate X-Y plots.\r\n\r\nXYOUT$        M      Indicates restart with an X-Y plot request.\r\n\r\nXYPEAK        IC     Request to print the maximum and minimum values of the\r\n                     specified response.\r\n\r\nXYPLTCE       DBT    XY plot input data block, complex flutter.\r\n\r\nXYPLOT        FMS    X-Y plot generator.\r\n\r\nXYPLOT        IC     Request to generate X-Y plots.\r\n\r\nXYPLTF        DBT    XYPLOT input data block. (D-8, D-11)\r\n\r\nXYPLTFA       DBT    XYPLOT input data block. (D-8, D-11]\r\n\r\nXYPLTR        DBT    XYPLOT input data block. (D-8, D-11]\r\n\r\nXYPLTT        DBT    XYPLOT input data block. (D-9, D-12]\r\n\r\nXYPLTTA       DBT    XYPLOT input data block. (D-9, D-12)\r\n\r\nXYPRINT       IC     Request to tabulate XY pairs on the printer.\r\n\r\nXYPRNPLT      FMX    Dummy output module.\r\n\r\nXYPTTA        DBT    XY plot input data block, aeroresponse.\r\n\r\nXYPUNCH       IC     Request to punch XY pairs.\r\n\r\nXYTRAN        FMS    XY output translator.\r\n\r\nXYZ           IC     Requests X, Y, and Z vectors for deformed structure plot.\r\n\r\nXZ            IC     Requests X and Z vectors for deformed structure plot.\r\n=PAGE=\r\nY             IC     Requests Y vector for deformed structure plot.\r\n\r\nY             M      Used in parameter section of DMAP statement. Indicates that\r\n                     parameter may be given an initial value with a PARAM bulk\r\n                     data card.\r\n\r\nYAXIS         IC     Request for drawing of Y-axis.\r\n\r\nYBDIVISIONS   IC     Request for division marking on Y-axis of lower half frame.\r\n\r\nYBGRID LINES  IC     Request for grid lines to be drawn on Y-axis of lower half\r\n                     frame.\r\n\r\nYBINTERCEPT   IC     Specifies intercept of X-axis on Y-axis on lower half\r\n                     frame.\r\n\r\nYBLOG         IC     Request for logarithmic scales in Y-direction on lower half\r\n                     frame.\r\n\r\nYBMAX         IC     Do not plot points whose Y value lies above this value for\r\n                     lower half frame.\r\n\r\nYBMIN         IC     Do not plot points whose Y value lies below this value for\r\n                     lower half frame.\r\n\r\nYBS           DBM    Scalar multiple of YS matrix. Used in Differential\r\n                     Stiffness Rigid Format only. (D-4).\r\n\r\nYBTITLE       IC     Y-axis title on lower half frame.\r\n\r\nYBVALUE PRINT IC     Request to suppress labeling tic marks over the specified\r\nSKIP                 interval.\r\n\r\nYDIVISIONS    IC     Request for division marking on Y-axis.\r\n\r\nYES           IA     Option used on CHKPNT card, indicates that checkpoint is\r\n                     desired.\r\n\r\nYGRID LINES   IC     Request for grid lines to be drawn on Y-axis.\r\n\r\nYINTERCEPT    IC     Specifies intercept of X-axis on Y-axis.\r\n\r\nYLOG          IC     Request for logarithmic scales in Y-direction.\r\n\r\nYMAX          IC     Do not plot points whose Y value lies above this value.\r\n\r\nYMIN          IC     Do not plot points whose Y value lies below this value.\r\n\r\nYPAPER        IC     Specifies length of paper in Y-direction for table plotter.\r\n\r\nYS            DBM    {Y } - Constrained displacement vector.\r\n                       s\r\n\r\nYTDIVISIONS   IC     Request for division marking on Y-axis for upper half\r\n                     frame.\r\n\r\nYTGRID LINES  IC     Request for grid lines to be drawn on Y-axis for upper half\r\n                     frame.\r\n\r\nYTINTERCEPT   IC     Specifies intercept of X-axis on Y-axis for upper half\r\n                     frame.\r\n\r\nYTITLE        IC     Y-axis title.\r\n\r\nYTLOG         IC     Request for logarithmic scales in Y-direction for upper\r\n                     half frame.\r\n\r\nYTMAX         IC     Do not plot points whose Y value lies above this value for\r\n                     upper half frame.\r\n\r\nYTMIN         IC     Do not plot points whose Y value lies below this value for\r\n                     upper half frame.\r\n\r\nYTITLE        IC     Y-axis title for upper half frame.\r\n\r\nYTVALUE PRINT IC     Request to suppress labeling tic marks over the specified\r\nSKIP                 interval for upper half frame.\r\n\r\nYVALUE PRINT  IC     Request to suppress labeling tic marks over the specified\r\nSKIP                 interval.\r\n\r\nYZ            IC     Requests Y and Z vectors for deformed structure plot.\r\n\r\n"
  },
  {
    "path": "um/DMAP.TXT",
    "content": "=PAGE=\r\n5.1  INTRODUCTION\r\n\r\n   In addition to using the rigid formats provided automatically by NASTRAN,\r\nyou may wish to execute a series of modules in a different manner than\r\nprovided by a rigid format. Or he may wish to perform a series of matrix\r\noperations which are not contained in any existing rigid format. If the\r\nmodifications to an existing rigid format are minor, the ALTER feature\r\ndescribed in Section 2 may be employed. Otherwise, a user-written Direct\r\nMatrix Abstraction Program (DMAP) should be used.\r\n\r\n   DMAP is the user-oriented language used by NASTRAN to solve problems. A\r\nrigid format is basically a collection of statements in this language. DMAP,\r\nlike English or FORTRAN, has many grammatical rules which must be followed to\r\nbe interpretable by the NASTRAN DMAP compiler. Section 5.2 provides you with\r\nthe rules of DMAP, which will allow him to understand the rigid format DMAP\r\nsequences, write ALTER packages, and construct his own DMAP sequences using\r\nthe many modules contained in the NASTRAN DMAP repertoire.\r\n\r\n   Section 5.3 is an index of matrix, utility, user, and executive modules\r\nwhich are contained in Sections 5.4 through 5.7 respectively.\r\n\r\n   Sections 5.4 through 5.7 describe individually the many nonstructurally\r\noriented modules contained in the NASTRAN library. Section 5.8 provides\r\nseveral examples of DMAP usage.\r\n\r\n   User-written modules must conform to the rules and usage conventions\r\ndescribed herein.\r\n\r\n   Section 5.8 illustrates the use of DMAP operations in both the standard\r\nmethod (as rigid formats are written) and in the improved method.\r\n\r\n   Section 5.9 describes the automatic ALTERs to a rigid format which result\r\nfrom each of the automated multi-stage substructuring commands invoked by you.\r\n\r\n   Section 5.10 contains descriptions and uses of functional modules which are\r\nof general utility to you but have not been permanently incorporated into the\r\nrigid formats.\r\n\r\n=PAGE=\r\n5.2  DMAP RULES\r\n\r\n   Grammatically, DMAP instructions consist of two types: Executive Operation\r\nInstructions and Functional Module Instructions. Grammatical rules for these\r\ntwo types of instructions will be discussed separately in following sections.\r\n\r\n   Functional modules are arbitrarily classified as structural modules, matrix\r\noperation modules, utility modules, or user-generated modules.\r\n\r\n   The DMAP sequence itself consists of a series of DMAP instructions or\r\nstatements, the first of which is BEGIN or XDMAP and the last of which is END.\r\nThe remaining statements consist of Executive Operation instructions and\r\nFunctional Module calls.\r\n\r\n5.2.1  DMAP Rules for Functional Module Instructions\r\n\r\n   The primary characteristic of the Functional Module DMAP instruction is its\r\nprescribed format. The general form of the Functional Module DMAP statement\r\nis:\r\n\r\n   MOD    I1,I2,...,Im/01,02,...,0n/a1,b1,p1/a2,b2,p2.../az,bz,pz  $\r\n\r\nwhere MOD is the DMAP Functional Module name,\r\n      Ii (i = 1,m) are the Input Data Block names,\r\n      0i (i = 1,n) are the Output Data Block names, and\r\n      ai,bi,pi (i = 1,z) are the Parameter Sections.\r\n\r\n   In the general form shown above, commas (,) are used to separate several\r\nlike items while slashes (/) are used to separate sections from one another.\r\nThe module name is separated from the rest of the instruction by a blank or a\r\ncomma (,). The dollar sign ($) is used to end the instruction and is not\r\nrequired unless the instruction ends in the delimiter /. A DMAP statement is\r\nrestricted to columns 1 through 72. Information beyond column 72 is ignored.\r\nIf the entire DMAP instruction does not fit on one card, the last delimiter\r\n(not followed by a $ sign) causes the next card to be read as a continuation.\r\nThus, one DMAP instruction may occupy several cards. Blanks may be used in\r\nconjunction with any of the above delimiters for ease of reading. If it is\r\ndesired to preserve the output alignment of the printed instructions, the\r\nmodule name is begun in column 1 and the rest of the instruction is begun in\r\ncolumn 10 when supplying alters to a Rigid Format.\r\n\r\n   A functional module communicates with other modules and the executive\r\nsystem entirely through its inputs, outputs, and parameters. The\r\ncharacteristics or attributes of each functional module are contained in the\r\nModule Properties List (MPL) described in Section 2.4 of the Programmer's\r\nManual and are reflected in the DMAP Module Descriptions that follow in\r\nSection 5.3 and in the Module Functional Descriptions contained in Chapter 4\r\nof the Programmer's Manual. The module name is a BCD value (which consists of\r\nan alphabetic character followed by up to seven additional alphanumeric\r\ncharacters) and must correspond to an entry in the MPL. A Data Block name may\r\nbe either a BCD value or null. The absence of a BCD value indicates that the\r\nData Block is not needed for a particular application.\r\n\r\n5.2.1.1  Functional Module DMAP Statements\r\n\r\n   Each Functional Module DMAP statement must conform to the MPL regarding:\r\n\r\n   1. Name spelling\r\n   2. Number of input data blocks\r\n   3. Number of output data blocks\r\n   4. Number of parameters\r\n   5. Type of each parameter\r\n\r\n   NOTE: See Sections 5.2.1.3 and 5.2.1.4 for allowable exceptions to these\r\nrules.\r\n\r\n5.2.1.2  Functional Module Names\r\n\r\n   The only Functional Module DMAP names allowed are those contained in the\r\nMPL. Therefore, if you want to add a module, you must either use one of the\r\nUser Module names provided (see Section 5.6) or add a name to the MPL. The\r\nProgrammer's Manual should be consulted when adding a new module to NASTRAN.\r\n\r\n5.2.1.3  Functional Module Input Data Blocks\r\n\r\n   In most cases an input data block should have been previously defined in a\r\nDMAP program before it is used. However, there may be instances in which a\r\nmodule can handle, or may even expect, a data block that is undefined at the\r\ntime the module is initially called. An input data block is previously defined\r\nif it appears as an output data block in a previous DMAP instruction, as\r\noutput from the Input File Processor, as any user-input (via Bulk Data Cards)\r\nDMI or DTI data block name, or exists on the Old Problem Tape in a restart\r\nproblem. Although the number of data blocks is prescribed, if any number of\r\nfinal data blocks are null, they may be omitted from the section. For example,\r\nthe module TABPT, which uses five input data blocks, may be defined by:\r\n\r\n   TABPT   GEOM1,,,, //  $\r\n\r\nor\r\n\r\n   TABPT   GEOM1 //  $\r\n\r\nA potentially fatal error message (see Section 5.2.1.7) will be issued at\r\ncompilation time to warn you that a discrepancy in the data block name list\r\nhas been detected. This is also true if a previously undefined data block is\r\nused as input. Also, see the \"error-level\" option on the XDMAP compiler option\r\ncard, which you may invoke to terminate execution in the event of such errors.\r\n\r\n5.2.1.4  Functional Module Output Data Blocks\r\n\r\n   In general, a data block name will appear as output only once. However,\r\nthere are cases in which an output data block may be of no subsequent use in a\r\nDMAP program. In such a case the name may be used again, but caution should be\r\nused when employing such techniques. Although the number of output data blocks\r\nis prescribed, the data block name list may be abbreviated in the manner of\r\nSection 5.2.1.3. Potentially fatal error messages will warn you if possible\r\nambiguities may occur from these usages.\r\n\r\n5.2.1.5  Functional Module Parameters\r\n\r\n   Parameters may serve many purposes in a DMAP program. They may pass data\r\nvalues into and out from a module, or they may be used as flags to control the\r\ncomputational flow within the module or the DMAP program. There are two\r\nallowable forms of the parameter section of the DMAP instruction. The first\r\nexplicitly states the attributes of the parameters, while the second is a\r\nbriefer simplified specification. The general form of the formal parameter\r\nsection is:\r\n\r\n   / ai,bi,pi /\r\n\r\nwhere the allowable parameter specifications are:\r\n\r\n   ai = V     Parameter value is variable and may be changed by the module\r\n              during execution.\r\n\r\n   ai = C     Parameter value is prescribed initially by you and is an\r\n              unalterable constant.\r\n\r\n   ai = S     Parameter is of type V, and will be saved automatically at\r\n              completion of module. (See description of the SAVE\r\n              instruction.)\r\n\r\n   bi = Y     Initial parameter value may be specified on a PARAM Bulk Data \r\n              card. \r\n\r\n   bi = N     Initial parameter value may not be specified on a PARAM Bulk\r\n              Data card.\r\n\r\n   pi = PNAME = v or pi = PNAME or pi = v  PNAME is a BCD name selected by you\r\n              to represent a given parameter.\r\n\r\n   The default values for ai and bi depend on the value given for pi, as\r\ndescribed below. The three forms available for pi require additional\r\nclarification. The symbol \"v\" represents an actual numeric value for the\r\nparameter and may be used only when ai = C and bi = N. The other forms will be\r\nclarified by the examples found at the end of this section. Each parameter has\r\nan initial value which is established when the DMAP sequence is compiled\r\nduring execution of the NASTRAN preface. The means by which initial values are\r\nestablished for all DMAP parameters will be explained by the symbolic examples\r\nthat follow. The value used at execution time may differ from the initial\r\nvalue if and only if the module changes the value, if ai = \"V\", and if the\r\nparameter name appears in a SAVE (see Section 5.7) instruction immediately\r\nfollowing the module.\r\n\r\n   The formal parameter specifications defined above can, in frequently\r\nencountered instances, be greatly simplified. Situations where these\r\nsimplifications may be used are:\r\n\r\n   1. / C,N,v /  can be written as  / v\r\n\r\n   The value \"v\" is written exactly as it would be in the formal specification\r\n   with the exception of BCD constant parameters, in which case the BCD string\r\n   is enclosed by asterisks, that is, / *STRING* /.\r\n\r\n   2. / V,N,PNAME /  can be written as  / PNAME /\r\n      / V,N,PNAME=v /  can be written as  / PNAME=v /\r\n\r\n   Again, in the case where the value \"v\" appears, it is written exactly as in\r\n   the case of the formal specification. In this case, BCD strings are not\r\n   delimited by asterisks.\r\n\r\n   3. / (default value) /  can be written as  //\r\n\r\n   If a particular parameter has a predefined default value specified in the\r\n   Module Properties List (MPL), and you want to choose this value, then it is\r\n   necessary only to code successive slashes. If a parameter does not have a\r\n   default value, an error message will be issued.\r\n\r\n   Six parameter types are available and the type of each parameter is given\r\nin the MPL and may not be changed. The types and examples of values as they\r\nwould be written in DMAP are given below:\r\n\r\n   PARAMETER TYPE                 VALUE EXAMPLES\r\n\r\n   Integer                        7        -2          0\r\n   Real                          -3.6       2.4+5      0.01-3\r\n   BCD                            VAR01     STRING3    B3R56\r\n   Double Precision               2.5D-3    1.354D7\r\n   Complex Single Precision       (1.0,-3.24)\r\n   Complex Double Precision       (1.23D-2,-3.67D2)\r\n\r\n   Many possible forms of the parameter section may be used. The following\r\nexamples will help to clarify the possibilities.\r\n\r\n//         This is equivalent to  / C,N,v /  where v is the MPL default value\r\n           which must exist.\r\n\r\n/ C,Y,v       Constant input parameter\r\n\r\n           Examples: / C,N,0 / C,N,BKL0 / C,N,(1.0,-1.0)\r\n                                   or\r\n                     / 0 / *BKL0* / (1.0,-1.0)\r\n\r\n           In the examples shown, both in formal and simplified form, the\r\n           values 0 (integer), BKL0 (BCD), and 1.0-i1.0 (complex single\r\n           precision) are defined.\r\n\r\n/ C,Y,PNAMEConstant input parameter; MPL default value is used unless a PARAM\r\n           Bulk Data card referencing PNAME is present. Error condition is\r\n           detected if either no PARAM card is present or no MPL default\r\n           value exists.\r\n\r\n/ C,Y,PNAME=v  Constant input parameter; the value v is used unless a PARAM \r\n           Bulk Data card referencing PNAME is present.\r\n\r\n/ V,Y,PNAME or V,Y,PNAME=v  Variable parameter; may be input, output, or both;\r\n           initial value is the first of\r\n\r\n              1. value from the most recently executed SAVE instruction, if\r\n              any\r\n\r\n              2. value from PARAM Bulk Data card referencing PNAME will be\r\n              used if present in Bulk Data Deck\r\n\r\n              3. v, if present in DMAP instruction\r\n\r\n              4. MPL default value, if any\r\n\r\n              5. 0\r\n\r\n           If a parameter is output from a functional module and if the\r\n           output value is to be carried forward, a SAVE instruction must\r\n           immediately follow the DMAP instruction in which the parameter is\r\n           generated.\r\n\r\n/ V,N,PNAME or / PNAME or / V,N,PNAME=v or /PNAME=v  Variable parameter; may\r\nbe input, output, or both; initial value is the first of\r\n\r\n              1. value from the most recently executed SAVE instruction, if\r\n              any\r\n\r\n              2. v, if present in DMAP instruction\r\n\r\n              3. MPL default value, if any\r\n\r\n              4. 0\r\n\r\n5.2.1.6  DMAP Compiler Options - The XDMAP Instruction (see Section 5.7)\r\n\r\n   You can elect several options when compiling and executing a DMAP program\r\nby including an XDMAP compiler option instruction in the program. Similarly,\r\nthe Rigid Formats may be altered by replacing the BEGIN statement with XDMAP\r\nto invoke the same options. The available options are:\r\n\r\nGO (default) or NOGO\r\n\r\nThe GO option compiles and executes the program, while NOGO terminates the job\r\nat the conclusion of compilation.\r\n\r\nLIST or NOLIST\r\n\r\nThe LIST option produces a DMAP program source listing. See the description of\r\nthe XDMAP card in Section 5.7 for the default values for this option.\r\n\r\nDECK or NODECK (default)\r\n\r\nThe DECK option produces a punched card deck of the program.\r\n\r\nOSCAR or NOOSCAR (default)\r\n\r\nIf the OSCAR option is selected, a complete listing of the Operation Sequence\r\nControl Array is produced.\r\n\r\nREF or NOREF (default)\r\n\r\nThe REF option produces a complete cross reference listing of variable\r\nparameters, data block names, and module calls for the DMAP program.\r\n\r\nERR=0 or 1 or 2 (default)\r\n\r\nThis option specifies the error level at which termination of the job will\r\noccur, 0 for WARNING, 1 for POTENTIALLY FATAL, and 2 for FATAL ERROR MESSAGE.\r\nSee Section 5.2.1.7 for further explanation.\r\n\r\nThe complete description of the XDMAP card may be found in Section 5.7,\r\ndealing with Executive Operation Modules. Note that an XDMAP card need not\r\nappear when all default values are elected, but may be replaced with a BEGIN\r\ninstruction.\r\n\r\n5.2.1.7  Extended Error Handling Facility\r\n\r\n   There are three levels of error messages generated during the compilation\r\nof a DMAP sequence. These levels are WARNING MESSAGE, POTENTIALLY FATAL ERROR\r\nMESSAGE, and FATAL ERROR MESSAGE. You have, through available compiler\r\noptions, the ability to specify the error level at which the job will be\r\nterminated. (See Section 5.2.1.6 for the manner of specification.) The class\r\nof POTENTIALLY FATAL ERROR MESSAGES is generated by certain compiler\r\nconveniences which, if not fully understood by you, could cause an erroneous\r\nor incorrect execution of the DMAP sequence. The default value for the error\r\nlevel is that of the FATAL ERROR MESSAGE.\r\n\r\n5.2.2  DMAP Rules for Executive Operation Instructions\r\n\r\n   Each executive operation statement has its own format which is generally\r\nopen-ended, meaning the number of inputs, outputs, etc. is not prescribed.\r\nExecutive operation instructions or statements are divided into general\r\ncategories as follows:\r\n\r\n   1. Declarative instructions FILE, BEGIN, LABEL. XDMAP, and PRECHK which aid\r\n      the DMAP compiler and the file allocator as well as provide user\r\n      convenience.\r\n\r\n   2. Instructions CHKPNT, EQUIV, PURGE, and SAVE which aid the NASTRAN\r\n      Executive System in allocating files, interfacing between functional\r\n      modules, and in restarting a problem.\r\n\r\n   3. Control instructions REPT, JUMP, COND, EXIT, and END which control the\r\n      order in which DMAP instructions are executed.\r\n\r\nThe rules associated with the executive operation instructions are distinct\r\nfor each instruction and are discussed individually in Section 5.7.\r\n\r\n5.2.3  Techniques and Examples of Executive Module Usage\r\n\r\n   Even though the DMAP program may be interpretable by the DMAP compiler this\r\ndoes not guarantee that the program will yield the desired results. Therefore,\r\nthis section is provided to acquaint you with techniques and examples used in\r\nwriting DMAP programs. In particular, the instructions REPT, FILE, EQUIV,\r\nPURGE, and CHKPNT will now be discussed in some detail. The DMAP modules\r\navailable are listed in Section 5.3.\r\n\r\n   The new DMAP user should read Sections 5.4 through 5.7 to obtain the\r\nnecessary knowledge of terminology before reading this section.\r\n\r\n   The data blocks and functional modules referenced in the following examples\r\nare fictitious and have no relationship to any real data blocks or functional\r\nmodules.\r\n\r\n   A data block is described as having a status of \"not generated\",\r\n\"generated\", or \"purged.\" A status of not generated means that the data block\r\nis available for generation by appearing as output in a functional module. A\r\nstatus of generated means that the data block contains data which is available\r\nfor input to a subsequent module. A status of purged means that the data block\r\ncannot be generated and any functional module attempting to use this data\r\nblock as input or output will be informed that the purged data block is not\r\navailable for use.\r\n\r\n5.2.3.1  The REPT and FILE Instructions (see Section 5.7)\r\n\r\n   The DMAP instructions bounded by the REPT instruction and the label\r\nreferenced by the REPT instruction are referred to as a loop. The location\r\nreferenced by the REPT is called the top of the loop. In many respects a DMAP\r\nloop is like a giant functional module since it requires inputs and generates\r\noutput data blocks which usually can be handled correctly by the file\r\nallocator (see Section 4.9 of the Programmer's Manual) without any special\r\naction by you. The one exception is a data block that is not referenced\r\noutside the loop (that is, an internal data block with respect to the loop).\r\nThe file allocator considers internal data blocks as scratch data blocks to be\r\nused for the present pass through the loop but not to be saved for input at\r\nthe top of the loop. To save an internal data block, declare the data block\r\nSAVE in the FILE instruction.\r\n\r\n   When the REPT instruction transfers control back to the top of the loop,\r\nthe status of all internal data blocks is changed to \"not generated\" unless\r\nthe internal data block is declared SAVE or APPEND in a FILE instruction. It\r\nshould also be noted that equivalences established between internal data\r\nblocks (not declared saved) and data blocks referenced outside the loop are\r\nnot carried over for the next time through the loop. The equivalence must be\r\nre-established each time through the loop. Data blocks generated by the Input\r\nFile Processor are considered referenced outside of all DMAP loops.\r\n\r\nExample Using REPT and FILE Instructions\r\n\r\n      \r\n       BEGIN     $\r\n       FILE      X=SAVE / Y=APPEND / Z=APPEND $\r\n       LABEL     L1 $\r\n       MOD1      B/W,Y $\r\n       COND      L3,PX $\r\nDMAP   MOD2      A/X/V,N,PX=0 $\r\nloop   SAVE      PX $\r\n       LABEL     L3 $\r\n       MOD3      W,X,Y/Z $\r\n       REPT      L1,1 $\r\n       MOD4      Z// $\r\n       END       $\r\n      \r\n\r\n   Assume that MOD2 sets PX < 0 when it is executed. Note that Z is declared\r\nAPPEND, whereas Y will be saved since it is an internal data block that is to\r\nbe appended. X is an internal data block that is to be saved since it will\r\nonly be generated the first time through the loop but is needed as input each\r\ntime the loop is repeated. W is an internal data block that is generated each\r\ntime through the loop; therefore, it is not saved.\r\n\r\n   The following table shows what happens when the above DMAP program is\r\nexecuted. Only modules being executed are shown in the table. Data blocks A\r\nand B are assumed to be generated by the Input File Processor, and hence are\r\nconsidered referenced outside of all DMAP loops.\r\n\r\nModule      Input status                   Output status and comments\r\nbeing       and comments\r\nexecuted\r\n\r\n  MOD1      B - assumed generated by       W, Y - generated\r\n            the input file processor\r\n\r\n  COND      PX is 0                        No transfer occurs since PX >= 0\r\n\r\n  MOD2      A - assumed generated by       X - generated\r\n            the input file processor       PX is set < 0\r\n\r\n  SAVE      PX < 0                         The value created above is saved for\r\n                                           subsequent use.\r\n\r\n  MOD3      W, X, Y are all generated      Z  - generated\r\n            at this point\r\n\r\n  REPT      Loop count is                  Transfer to L1 - set loop count to 1-\r\n            initially set to 1             1=0. Status of data blocks at top of\r\n                                           loop will be: A, B, Z - generated\r\n                                           (referenced outsIde loop) X, Y -\r\n                                           generated (internal data blocks\r\n                                           declared saved) W - not generated\r\n                                           (internal data block)\r\n\r\n  MOD1      B - generated                  W - generated\r\n                                           Y - generated (appended)\r\n\r\n  COND      PX is now < 0 due to           Transfer to L3 occurs\r\n            SAVE\r\n\r\n  MOD3      W, X, Y - generated            Z  - generated (appended)\r\n\r\n  REPT      Loop count is now 0            No transfer occurs.\r\n\r\n  MOD4      Z - generated                  Output to printer (assumed)\r\n\r\n  END                                      Normal termination of problem.\r\n\r\n5.2.3.2  The EQUIV Instruction (see Section 5.7)\r\n\r\n   There are no restrictions on the status of data blocks referenced in an\r\nEQUIV instruction. Consider the instruction EQUIV A,B1,...,BN/P $ when P < 0.\r\nData blocks B1,...,BN take on all the characteristics of data block A\r\nincluding the status of A. This means the status of some Bj can change from\r\npurged to generated or not generated.\r\n\r\n   The EQUIV instruction will unequivalence data blocks when P >= 0. In an\r\nunequivalence operation, the status of all secondary data blocks reverts to\r\nnot generated.\r\n\r\n   Suppose A, B, and C are all equivalenced and P >= 0. EQUIV A,B/P $ will\r\nbreak the equivalence between A and B but not between A and C.\r\n\r\n   Now consider the following situation. Data block B is to be generated by\r\nrepeatedly executing functional module MOD2. The input to MOD2 is the previous\r\noutput from MOD2. That is to say, each successive generation of B depends on\r\nthe previous B generated. The following example shows how the EQUIV\r\ninstruction is used to solve this problem. Assume parameter BREAK >= 0 and\r\nparameter LINK < 0.\r\n\r\nExample of EQUIV Instruction\r\n\r\n         BEGIN     $\r\n         MOD1      A/B  $\r\n        LABEL     L1  $\r\nDMAP    EQUIV     B,BB/BREAK  $\r\nloop    MOD2      B/BB  $\r\n        EQUIV     BB,B/LINK  $\r\n        REPT      L1,1  $\r\n         MOD3      BB//  $\r\n         END\r\n\r\n   The following table shows what happens when the above DMAP program is\r\nexecuted. Only modules being executed are shown in the table.\r\n\r\nModule      Input status                   Output status and comments\r\nbeing       and comments\r\nexecuted\r\n\r\n  MOD1      A - assumed generated by       B - generated\r\n            input processor\r\n\r\n  EQUIV     B will not be equivalenced     No action taken\r\n            to BB since BREAK >= 0\r\n\r\n  MOD2      B - generated                  BB  - generated\r\n\r\n  EQUIV     BB and B are not               B is equivalenced to BB. That is,\r\n            equivalenced.                  B assumes all of the characteristics\r\n            B - generated                  of BB. B and BB then both have the\r\n            BB - generated                 status of generated.\r\n            LINK < 0.\r\n\r\n  REPT      Loop count is                  Transfer to L1; set loop count to\r\n            initially 1                    1-1=0.\r\n\r\n  EQUIV     B and BB are generated         The equivalence is broken;\r\n            and equivalenced.              B - generated, BB - not generated\r\n            BREAK >= 0.\r\n\r\n  MOD2      B - generated                  BB - generated\r\n\r\n  EQUIV     BB and B are generated         B equivalenced to BB; B, BB\r\n            and not equivalenced.          - generated\r\n            LINK < 0.\r\n\r\n  REPT      Loop count is 0                No transfer occurs.\r\n\r\n  MOD3      BB - generated                 Output to printer (assumed)\r\n\r\n  END                                      Normal termination of problem.\r\n\r\n   Since equivalences are automatically broken between internal files (not\r\ndeclared saved) and files referenced outside the loop, the above DMAP program\r\ncould be written as follows and the same results achieved.\r\n\r\n         BEGIN     $\r\n         MOD1      A/B  $\r\n        LABEL     L1  $\r\nDMAP    MOD2      B/BB  $\r\nloop    EQUIV     BB,B/LINK  $\r\n        REPT      L1,1  $\r\n         MOD3      B//  $\r\n         END\r\n\r\nData block BB is now internal; therefore, the instruction EQUIV B,BB/BREAK $\r\nis not needed.\r\n\r\n5.2.3.3  The PURGE Instruction (see Section 5.7)\r\n\r\n   The status of a data block is changed to purged by explicitly or implicitly\r\npurging it. A data block is explicitly purged through the PURGE instruction,\r\nwhereas it is implicitly purged if it is not created by the functional module\r\nin which it appears as an output.\r\n\r\n   The primary purpose of the PURGE instruction is to prepurge data blocks.\r\nPrepurging is the explicit purging of a data block prior to its appearance as\r\noutput from a functional module. Prepurging data blocks allows the NASTRAN\r\nexecutive system to allocate available files more efficiently, which decreases\r\nproblem execution time. You should look for data blocks that can be prepurged\r\nand purge them as soon as it is recognized that they will not be generated.\r\n\r\n   Sometimes during the execution of a problem it is necessary to generate a\r\ndata block whose status is purged. This situation can occur both in DMAP\r\nlooping and in a modified restart situation. In order to generate a data block\r\nthat is purged it is first necessary to unpurge it (that is, change its status\r\nfrom purged to not generated). Unpurging is achieved by executing a PURGE\r\ninstruction which references the purged data block and whose purge parameter\r\nis positive.\r\n\r\n   The PURGE instruction thus has two functions, to unpurge as well as purge\r\ndata blocks, depending on the value of the purge parameter and the status of\r\nthe referenced data block. The following table shows what action is taken by\r\nthe PURGE instruction for all combinations of input.\r\n\r\n                             PURGE A/P  $\r\n\r\nStatus of data block   Value of P   Status of Data block\r\nA prior to PURGE                    A after PURGE\r\n\r\nNot generated          P >= 0       Not generated (that is, no action taken)\r\nNot generated          P < 0        Purged\r\n\r\nGenerated              P >= 0       Generated (that is, no action taken)\r\nGenerated              P < 0        Purged\r\n\r\nPurged                 P >= 0       Not generated (that is, unpurged)\r\nPurged                 P < 0        Purged (that is, no action taken)\r\n\r\n   You may wonder why you should not prepurge all data blocks and then unpurge\r\nthem when necessary in order to really assist the file allocator. The reason\r\nnot to do this is that there is a limited amount of space in the table where\r\nthe status of data blocks is kept. This table may overflow if too many data\r\nblocks are purged at one time. Therefore, only prepurge those data blocks that\r\ncan truly be prepurged.\r\n\r\nExample of Explicit and Implicit Purging and Prepurging\r\n\r\nBEGIN     $\r\nMOD1      IP/A/V,Y,PX/V,Y,PY/V,Y,PB  $\r\nSAVE      PX,PY,PB  $\r\nPURGE     X/PX / Y/PY  $\r\nMOD2      A/B,C,D/V,Y,PB/V,Y,PC  $\r\nSAVE      PC  $\r\nPURGE     C/PC  $\r\nMOD3      B,C,D/E  $\r\nMOD4      E/X,Y,Z  $\r\nMOD5      X,Y,Z//  $\r\nEND       $\r\n\r\nAssume that module MOD1 sets PX < 0, PY >= 0 and PB = 0. Assume that B is not\r\ngenerated by MOD2 if PB = 0. Assume that MOD2 sets PC < 0, but does not change\r\nPB.\r\n\r\n   The following table shows what happens when the above DMAP program is\r\nexecuted. Only modules being executed are shown in the table.\r\n\r\nModule      Input status                   Output status and comments\r\nbeing       and comments\r\nexecuted\r\n\r\nMOD1        IP - assumed generated         A - generated\r\n            by the input file              PX < 0, PY >= 0, PB = 0\r\n            processor\r\n\r\nSAVE        PX < 0, PY >= 0,               Parameter values are saved for use\r\n            PB = 0                         in subsequent modules.\r\n\r\nPURGE       X,Y - not generated            X - purged (that is, prepurged)\r\n            PX < 0, PY >= 0                Y - not generated\r\n\r\nMOD2        A - generated; PB = 0          B  - purged (that is, implicitly);\r\n                                           C, D - generated; PC  0.\r\n\r\nSAVE        PC < 0                         PB value not saved since MOD2 did\r\n                                           not reset it.\r\n\r\nPURGE       C - generated                  C - purged\r\n            PC < 0\r\n\r\nMOD3        B, C  - purged                 E - generated\r\n            D - generated\r\n\r\nMOD4        E - generated                  X - purged; Y - generated;\r\n                                           Z - generated\r\n\r\nMOD5        X - purged                     Output to printer (assumed)\r\n            Y, Z - generated\r\n\r\nEND                                        Normal termination of problem.\r\n\r\nExample of Unpurging\r\n\r\n         BEGIN    $\r\n         FILE     X=SAVE/Y=SAVE  $\r\n         FILE     Z=APPEND $\r\n         MOD1     IP/A  $\r\n        LABEL    L1  $\r\n        COND     L2,NPX  $\r\n        PURGE    X/NPX  $\r\n        MOD2     A/X,Y/V,Y,PX=0/V,N,NPX=0 $\r\nDMAP    SAVE     PX,NPX $\r\nloop    PURGE    X/PX  $\r\n        LABEL    L2  $\r\n        MOD3     X,Y/Z  $\r\n        REPT     L1,2  $\r\n         MOD4     Z// $\r\n         END      $\r\n\r\nAssume that MOD2 sets PX < 0 and NPX >= 0 the first time it is executed.\r\nAssume that MOD2 sets PX >= 0 and NPX < 0 the second time it is executed.\r\n\r\n   The following table shows what happens when the above DMAP program is\r\nexecuted. Only modules being executed are shown in the table.\r\n\r\nModule      Input status                   Output status and comments\r\nbeing       and comments\r\nexecuted\r\n\r\nMOD1        IP - assumed generated by      A - generated\r\n            input file processor.\r\n\r\nCOND        NPX = 0                        Jump not executed\r\n\r\nPURGE       X - not generated              X - not generated (that is, no action\r\n                                           taken)\r\n\r\nMOD2        A - generated                  X,  Y - generated; PX < 0, NPX >= 0\r\n\r\nSAVE        PX < 0, NPX >= 0\r\n\r\nPURGE       X  - generated; PX < 0         X  - purged\r\n\r\nMOD3        X - purged;                    Z - generated\r\n            Y - generated\r\n\r\nREPT        Loop count = 2                 Transfer to location L1;\r\n                                           loop count = 1\r\n\r\nCOND        NPX >= 0                       Jump not executed\r\n\r\nPURGE       X - purged; NPX >= 0           X - not generated (that is, unpurged)\r\n\r\nMOD2        A - generated                  X - generated; Y - generated (note\r\n                                           old data for Y is lost because Y not\r\n                                           Appended); PX >= 0, NPX <0\r\n\r\nSAVE        PX >= 0, NPX < 0\r\n\r\nPURGE       X - generated; PX >= 0         X - generated (that is, no action\r\ntaken)\r\n\r\nMOD3        X,Y - generated                Z - generated (note new data appended\r\n                                           to old because Z declared appended)\r\n\r\nREPT        Loop count = 1                 Transfer to location L1;\r\n                                           loop count = 0\r\n\r\nCOND        NPX < 0                        Transfer to location L2\r\n\r\nMOD3        X, Y - generated               Z - generated (that is, appended)\r\n\r\nREPT        Loop count = 0                 Fall through to next instruction\r\n\r\nMOD4        Z - generated                  Output to printer (assumed)\r\n\r\nEND                                        Normal termination of problem\r\n\r\n5.2.3.4  The CHKPNT Instruction (see Section 5.7)\r\n\r\n   The CHKPNT instruction provides you with a means for saving data blocks for\r\nsubsequent restart of your problem with a minimum amount of redundant\r\nprocessing. The following rules will assure you of the most efficient restart.\r\n\r\n   1. Checkpoint all output data blocks from every functional module.\r\n\r\n   2. Checkpoint all data blocks mentioned in a PURGE instruction.\r\n\r\n   3. Checkpoint all secondary data blocks in an EQUIV instruction. Never\r\n      checkpoint primary data blocks in an EQUIV instruction.\r\n\r\n   4. Checkpoint all data blocks mentioned above as soon as possible.\r\n\r\nExample of Checkpointing\r\n\r\nBEGIN   $\r\nMOD1    A/B,C/S,Y,P1/S,Y,P2 $\r\nCHKPNT  B,C $\r\nPURGE   X,Y/P1 / Z/P2 $\r\nCHKPNT  X,Y,Z $\r\nEQUIV   B,BB/P1 / C,CC,D/P2 $\r\nCHKPNT  BB,CC,D $\r\n :\r\n :\r\nEND     $\r\n\r\nIn the example above, the data blocks were checkpointed as soon as possible,\r\nwhich is the most straightforward way, but it required three calls to the\r\ncheckpoint module, which increases problem execution time. Since checkpointing\r\nusually requires a small fraction of the total execution time, the most\r\nstraightforward method is recommended to avoid trouble.\r\n\r\n   The rigid format DMAP sequences (see Volume II) do not employ any explicit\r\nCHKPNT instructions. Instead, for the sake of efficiency, each rigid format\r\nincludes a single PRECHK ALL instruction towards the beginning of the DMAP\r\nsequence. (See Section 5.7 for the description of the PRECHK DMAP\r\ninstruction.) In keeping with the four rules mentioned above, the PRECHK ALL\r\ninstruction immediately and automatically CHKPNTs all output data blocks from\r\neach functional module, all data blocks mentioned in each PURGE instruction,\r\nand all secondary data blocks in each EQUIV instruction. The only exceptions\r\nto this are the CASESS, CASEI, and CASECC data blocks appearing as output in\r\nsubstructure analyses.\r\n\r\n=PAGE=\r\n5.3  INDEX OF DMAP MODULE DESCRIPTIONS\r\n\r\n   Descriptions of all nonstructurally oriented modules are contained herein,\r\narranged alphabetically by category as indicated by the lists below.\r\nDescriptions for the structurally oriented modules are contained in Section 4\r\nof the Programmer's Manual. They are listed here in order to provide a\r\ncomplete list of all NASTRAN modules. Additional information regarding\r\nnonstructurally oriented modules is also given in Section 4 of the\r\nProgrammer's Manual. \r\n\r\n     Matrix Operation Modules (16)          Utility Modules (33)\r\n     (See Section 5.4)                      (See Section 5.5)\r\n\r\n     ADD            MPY3                    COPY           OUTPUT4\r\n     ADD5           PARTN                   DATABASE       OUTPUT5\r\n     DECOMP         SDCMPS                  GINOFILE       PARAM  \r\n     DIAGONAL       SMPYAD                  INPUT          PARAMD\r\n     FBS            SOLVE                   INPUTT1        PARAML\r\n     MATGEN         TRNSP                   INPUTT2        PARAMR\r\n     MERGE          UMERGE                  INPUTT3        PRTPARM\r\n     MPYAD          UPARTN                  INPUTT4        SCALAR \r\n                                            INPUTT5        SEEMAT \r\n                                            LAMX           SETVAL \r\n                                            MATGPR         SWITCH \r\n                                            MATPRN         TABPCH \r\n                                            MATPRT         TABPRT \r\n                                            NORM           TABPT  \r\n                                            OUTPUT1        TIMETEST\r\n                                            OUTPUT2        VEC\r\n                                            OUTPUT3\r\n\r\n     User Modules (11)                      Executive Operation Modules (16)\r\n     (See Section 5.6)                      (See Section 5.7)\r\n\r\n     DDR            MODA                    BEGIN          FILE\r\n     DUMMOD1        MODB                    CHKPNT         JUMP\r\n     DUMMOD2        MODC                    COMPOFF        LABEL\r\n     DUMMOD3        OUTPUT                  COMPON         PRECHK\r\n     DUMMOD4        XYPRNPLT                COND           PURGE\r\n     DUMMOD5                                END            REPT\r\n                                            EOUIV          SAVE\r\n                                            EXIT           XDMAP\r\n\r\n\r\n     Substructure DMAP ALTERs (22)          Supplementary Functional Modules (2)\r\n     (See Section 5.9)                      (See Section 5.10)\r\n\r\n     BRECOVER       PLOT                    EMA1           GPSPC\r\n     CHECK          RECOVER\r\n     COMBINE        REDUCE\r\n     CREDUCE        RENAME\r\n     DELETE         RESTORE\r\n     DESTROY        RUN\r\n     DUMP           SOFIN\r\n     EDIT           SOFOUT\r\n     EQUIV          SOFPRINT\r\n     MRECOVER       SOLVE\r\n     MREDUCE        SUBSTRUCTURE\r\n\r\n\r\n                 Structurally Oriented Functional Modules (122)\r\n                   (See Section 4 of the Programmer's Manual)\r\n\r\n     ADR                 EQMCK               MRED1              SDRHT\r\n     ALG                 EXIO                MRED2              SDR1\r\n     AMG                 FA1                 MTRXIN             SDR2\r\n     AMP                 FA2                 NRLSUM             SDR3\r\n     ANISOP              FLBMG               OFP                SGEN\r\n     APD                 FRLG                OPTPR1             SITEPLOT\r\n     APDB                FRRD                OPTPR2             SMA1\r\n     BMG                 FRRD2               PLA1               SMA2\r\n     CASE                FVRSTR1             PLA2               SMA3\r\n     CASEGEN             FVRSTR2             PLA3               SMP1\r\n     CEAD                GENCOS              PLA4               SMP2\r\n     CMRED2              GENPART             PLOT               SOFI\r\n     COMBUGV             GFSMA               PLTHBDY            SOFO\r\n     COMB1               GI                  PLTMRG             SOFUT\r\n     COMB2               GKAD                PLTSET             SSGHT\r\n     CURV                GKAM                PLTTRAN            SSG1\r\n     CYCT1               GPCYC               PROLATE            SSG2\r\n     CYCT2               GPFDR               PROMPT1            SSG3\r\n     DDAMAT              GPSP                PRTMSG             SSG4\r\n     DDAMPG              GPWG                RANDOM             SUBPH1\r\n     DDRMM               GP1                 RBMG1              TA1\r\n     DDR1                GP2                 RBMG2              TRAILER\r\n     DDR2                GP3                 R8MG3              TRD\r\n     DESVEL              GP4                 RBMG4              TRHT\r\n     DPD                 GUST                RCOVR              TRLG\r\n     DSCHK               IFT                 RCOVR3             VARIAN\r\n     DSMG1               LOADPP              READ               VDR\r\n     DSMG2               MAGBDY              REDUCE             XYPLOT\r\n     EMA                 MCE1                RMG                XYTRAN\r\n     EMFLD               MCE2                SCAN\r\n     EMG                 MODACC              SCE1\r\n\r\n\r\n   In the examples that accompany each description, the following notation is\r\nused: \r\n\r\n   1. Upper case letters and special symbols in the DMAP calling sequence must\r\n      be punched as shown except for data block names, parameter names, and\r\n      label names, which are symbolic. \r\n\r\n   2. Lower case letters represent constants whose permissible values are\r\n      indicated in the descriptive text. \r\n\r\n   Due to the many possible forms which may be used when writing parameters, a\r\nvariety of arbitrarily selected forms will be used in the examples. This does\r\nnot imply that the form used in any example is required or that it is the only\r\nacceptable form allowed. \r\n\r\n   The terms \"form\", \"type\", and \"precision\" are used in many functional\r\nmodule descriptions. By form is meant one of the following: \r\n\r\n   Form    Meaning\r\n\r\n   1       Square matrix\r\n   2       Rectangular matrix\r\n   6       Symmetric matrix\r\n\r\nBy type is meant one of the following:\r\n\r\n   Form    Meaning\r\n\r\n   1       Real, single precision\r\n   2       Real, double precision\r\n   3       Complex, single precision\r\n   4       Complex, double precision\r\n\r\nBy precision is meant one of the following:\r\n\r\n   Precision IndicatorMeaning\r\n\r\n        1        Single precision numbers\r\n        2        Double precision numbers\r\n\r\n=PAGE=\r\n5.4  MATRIX OPERATION MODULES\r\n\r\nModule                   Basic Operation                        Page\r\n\r\nADD           [X] = a[A] + b[B]                                5.4-2\r\n\r\nADD5          [X] = a[A] + b[B] + c[C] + d[D] + e[E]           5.4-4\r\n\r\nDECOMP        [A] => [L][U]                                    5.4-5\r\n\r\n\r\nDIAGONAL      Generate a diagonal matrix from a given matrix   5.4-6\r\n              (except rectangular and row vector)\r\n\r\n                                -1\r\nFBS           [X] = +/- ([L][U])   [B]                         5.4-7\r\n\r\nMATGEN        Generate certain kinds of matrices               5.4-?\r\n\r\n                                 \r\n                       A11  A12 \r\nMERGE         [A] <=                                5.4-8\r\n                       A21  A22 \r\n                                 \r\n                                                 T\r\nMPYAD         [X] = +/- [A][B] +/- [C] or +/- [A] [B] +/- C   5.4-10\r\n\r\n                       T                 T\r\nMPY3          [X] = [A] [B][A] + [C], [A] [B] + [C] or        5.4-12\r\n              [B][A] + [C]\r\n\r\n                                 \r\n                       A11  A12 \r\nPARTN         [A] =>                               5.4-13\r\n                       A21  A22 \r\n                                 \r\n\r\nSDCMPS        [A] => [L][U]                                   5.4-17\r\n\r\nSMPYAD        [X] = [A][B][C][D][E] +/- [F]                   5.4-20\r\n\r\n                           -1\r\nSOLVE         [X] = +/- [A]   [B]                             5.4-22\r\n\r\n                       T\r\nTRNSP         [X] = [A]                                       5.4-23\r\n                               \r\n                          PHIA \r\nUMERGE        {PHIF} <=                                 5.4-24\r\n                          PHIO \r\n                               \r\n\r\n                                   \r\n                         Kjj  Kjl \r\nUPARTN        [K  ] =                              5.4-26\r\n                ii       Klj  Kll \r\n                                   \r\n=PAGE=\r\nADD - Matrix Add\r\n\r\nPurpose\r\n\r\nTo compute [X] = a[A] + b[B] where a and b are scale factors.\r\n\r\nDMAP Calling Sequence\r\n\r\nADD   A,B / X / C,Y, ALPHA=(1.0,2.0)     / C,Y, BETA=(3.0,4.0)\r\n              / C,Y,DALPHA=(5.D+0,6.D-1) / C,Y,DBETA=(7.D+2,8.D-3)  $\r\n\r\nInput Data Blocks\r\n\r\nA       Any GINO matrix.\r\nB       Any GINO matrix.\r\n\r\nOutput Data Blocks\r\n\r\nX       Matrix.\r\n\r\nParameters\r\n\r\nALPHA   Input-complex-single precision. This is the scalar multiplier for\r\n        [A]. (See Remark 7 for default if DALPHA is purged.)\r\n\r\nBETA    Input-complex-single precision. This is the scalar multiplier for\r\n        [B]. (See Remark 7 for default if DBETA is purged.)\r\n\r\nDALPHA  Input-complex-double precision. This is the scalar multiplier for\r\n        [A]. (See Remark 7 for default if ALPHA is purged.)\r\n\r\nDBETA   Input-complex-double precision. This is the scalar multiplier for\r\n        [B]. (See Remark 7 for default if BETA is purged.)\r\n\r\nSubroutines\r\n\r\nDADD\r\n\r\nMethod\r\n\r\nThe parameters are checked. If [A] is not purged, the number of columns, rows,\r\nand form of [X] are set to those of [A]. Otherwise the [B] descriptors are\r\nused. The flags for the type of [X] (see Remark 2) and multiply-add operations\r\nare set before calling subroutine SADD, which performs the actual scalar\r\nmultiplication and matrix addition.\r\n\r\nRemarks\r\n\r\n1.Matrix [A] and/or matrix [B] may be purged, in which case the corresponding\r\nterm in the matrix sum will be assumed null. The input data blocks must be\r\nunique.\r\n\r\n2.Matrix [X] cannot be purged. The type of [X] is maximum of the types of\r\n[A], [B], a, b. The size and shape of [X] are the size and shape of [A] if\r\n[A] is present. Otherwise they are those of [B].\r\n\r\n3.The use of double precision parameters DALPHA and DBETA will force the\r\nmatrix multiply-and-add operation to be performed in double precision\r\nunconditionally. The single precision ALPHA and BETA may cause the\r\nmultiply-and-add operation to be performed in single precision or in double\r\nprecision depending on the matrix original precision types.\r\n\r\n4.Either the DALPHA-DBETA pair or the ALPHA-BETA pair is used. They cannot be\r\nmixed; that is, DALPHA-BETA pair is illegal; so is DALPHA-ALPHA.\r\n\r\n5.If Im(ALPHA or DALPHA) or Im(BETA or DBETA) is zero, the corresponding\r\nparameter will be considered real.\r\n\r\n6.Matrix [X] is put into complex form if any one of the [A], [B], ALPHA,\r\nBETA, DALPHA, or DBETA is complex.\r\n\r\n7.The defaults are ALPHA = (1.0,0.0) if DALPHA is purged, and BETA =\r\n(1.0,0.0) if DBETA is purged. ALPHA and DALPHA cannot both be specified;\r\nneither can BETA and DBETA.\r\n=PAGE=\r\nADD5 - Matrix Add\r\n\r\nPurpose\r\n\r\nTo compute [X] = a[A] + b[B] + c[C] + d[D] + e[E] where a, b, c, d, and e are\r\nscale factors.\r\n\r\nDMAP Calling Sequence\r\n\r\nADD5 A,B,C,D,E / X / C,Y,ALPHA=(1.0,2.0) / C,Y,BETA=(3.O,4.O) /\r\n                     C,Y,GAMMA=(5.0,6.0) / C,Y,DELTA=(7.0,8.0) /\r\n                     C,Y,EPSLN=(9.0,1.0) $\r\n\r\nInput Data Blocks\r\n\r\nA, B, C, D, and E must be distinct matrices.\r\n\r\nNOTE: Any of the matrices may be purged, in which case the corresponding term\r\nin the matrix sum will be assumed null. The input data blocks must be unique.\r\n\r\nOutput Data Blocks\r\n\r\nX       Matrix.\r\n\r\nThe type of [X] is maximum of the types of A, B, C, D, E, a, b, c, d, e. The\r\nsize of [X] is the size of the first nonpurged input.\r\n\r\nNOTE: [X] cannot be purged.\r\n\r\nParameters\r\n\r\nALPHA   Input-complex-single precision, default = (1.0, 0.0). This is a,\r\n        the scalar multiplier for [A].\r\n\r\nBETA    Input-complex-single precision, default = (1.0, 0.0). This is b,\r\n        the scalar multiplier for [B].\r\n\r\nGAMMA   Input-complex-single precision, default = (1.0, 0.0). This is c,\r\n        the scalar multiplier for [C].\r\n\r\nDELTA   Input-complex-single precision, default = (1.0, 0.0). This is d,\r\n        the scalar multiplier for [D].\r\n\r\nEPSLN   Input-complex-single precision, default = (1.0, 0.0). This is e,\r\n        the scalar multiplier for [E].\r\n\r\nNOTE: If Im(ALPHA), Im(BETA), Im(GAMMA), Im(DELTA), or Im(EPSLN) = 0.0, the\r\ncorresponding parameter will be considered real.\r\n=PAGE=\r\nDECOMP - Matrix Decomposition\r\n\r\nPurpose\r\n\r\nTo decompose a square matrix [A] into upper and lower triangular factors [U]\r\nand [L].\r\n\r\n[A]  =>  [L][U]\r\n\r\nDMAP Calling Sequence\r\n\r\nDECOMP   A / L,U / V,Y,KSYM / V,Y,CHOLSKY / V,N,MINDIAG / V,N,DET /\r\n             V,N,POWER / V,N,SING $\r\n\r\nInput Data Blocks\r\n\r\nA       A square matrix.\r\n\r\nOutput Data Blocks\r\n\r\nL       Nonstandard lower triangular factor of [A].\r\nU       Nonstandard upper triangular factor of [A].\r\n\r\nParameters\r\n\r\nKSYM    Input-Integer, default = 0. 1, use symmetric decomposition. 0, use\r\n        unsymmetric decomposition.\r\n\r\nCHOLSKY Input-Integer, default = 0. 1, use Cholesky decomposition - matrix\r\n        must be positive definite. 0, do not use Cholesky decomposition.\r\n\r\nMINDIAG Output-Real double precision, default = 0.0D0. The minimum\r\n        diagonal term of [U].\r\n\r\nDET     Output-complex single precision, default = 0.0D0. The scaled value\r\n        of the determinant of [A].\r\n\r\nPOWER   Output-Integer, default = 0. Integer POWER of 10 by which DET\r\n        should be multiplied to obtain the determinant of [A].\r\n\r\nSING    Output-Integer, default = 0. SING is set to -1 if [A] Is singular.\r\n\r\nRemarks\r\n\r\n1.Non-standard triangular factor matrix data blocks are used to improve the\r\nefficiency of the back substitution process in module FBS. The format of\r\nthese data blocks is given in Section 2 of the Programmer's Manual.\r\n\r\n2.The matrix manipulating utility modules should be cautiously employed when\r\ndealing with non-standard matrix data blocks.\r\n\r\n3.If the CHOLSKY option is selected, the resulting factor (which will be\r\nwritten as [U]) cannot be input to FBS.\r\n\r\n4.Variable parameters output from functional modules must be SAVEd if they\r\nare to be subsequently used. See the Executive Module SAVE description.\r\n=PAGE=\r\nDIAGONAL - Strip Diagonal From Matrix\r\n\r\nPurpose\r\n\r\nTo remove the real part of the diagonal from a matrix, raise each term to a\r\nspecified power, and output a column vector, a square symmetric matrix, or a\r\ndiagonal matrix.\r\n\r\nDMAP Calling Sequence\r\n\r\nDIAGONAL A/B/C,Y,OPT=COLUMN/V,Y,POWER=1. $\r\n\r\nInput Data Blocks\r\n\r\nA       Can be any square or diagonal matrix.\r\n\r\nOutput Data Blocks\r\n\r\nB       Either a real column vector, a symmetric matrix, or a diagonal\r\n        matrix containing the diagonal of A.\r\n\r\nParameters\r\n\r\nOPT     Input-BCD, default = COLUMN.\r\n\r\n        COLUMN     produces column vector output (labeled as a general\r\n                   rectangular matrix)\r\n        SQUARE     produces square matrix (labeled as a symmetric matrix)\r\n        DIAGONAL   produces diagonal matrix (labeled as a diagonal\r\n                   matrix)\r\n\r\nPOWER   Input-Real single precision, default = 1.0. Exponent to which the\r\n        real part of each diagonal element is raised.\r\n\r\nRemarks\r\n\r\n1.The module checks for special cases of POWER = 0.0, 0.5, 1.0, and 2.0.\r\n\r\n2.The precision of the output matrix matches the precision of the input\r\nmatrix.\r\n=PAGE=\r\nFBS - Matrix Forward-Backward Substitution\r\n\r\nPurpose\r\n\r\nTo solve the matrix equation [L][U][X] = +/- [B] where [L] and [U] are the\r\nlower and upper triangular factors of a matrix previously obtained via\r\nFunctional Module DECOMP.\r\n\r\nDMAP Calling Sequence\r\n\r\nFBS  L,U,B / X / V,Y,SYM / V,Y,SIGN / V,Y,PREC / V,Y,TYPE $\r\n\r\nInput Data Blocks\r\n\r\nL       Nonstandard lower triangular factor.\r\nU       Nonstandard upper triangular factor.\r\nB       Rectangular matrix.\r\n\r\nOutput Data Blocks\r\n\r\nX       Rectangular matrix having the same dimensions as [B].\r\n\r\nParameters\r\n\r\nSYM     Input-Integer-default = 0; 1 - matrix [L][U] is symmetric; -1\r\n        -matrix [L][U] is unsymmetric; 0 - reset to 1 or -1 depending upon\r\n        [U] being purged or not respectively.\r\n\r\n        Output-Integer - SYM used.\r\n\r\nSIGN    Input-Integer-default = 1; 1 - solve [L][U][X] = [B]; -1 - solve\r\n        [L][U][X] = [-B]\r\n\r\nPREC    Input-Integer-default = 0; 1 - use single precision arithmetic; 2\r\n        -use double precision arithmetic; 0 - logical choice based on\r\n        input and system precision flag.\r\n\r\n        Output-Integer - precision used.\r\n\r\nTYPE    Input-Integer-default = 0; 1 - output type of matrix [X] is real\r\n        single precision; 2 - output type of matrix [X] is real double\r\n        precision; 3 - output type of matrix [X] is complex single\r\n        precision; 4 - output type of matrix [X] is complex double\r\n        precision; 0 - logical choice based on input matrices.\r\n\r\n        Output-Integer - TYPE used.\r\n\r\nRemarks\r\n\r\n1.Non-standard triangular factor matrix data blocks are used to improve the\r\nefficiency of the back substitution process. The format of these data\r\nblocks is given in Section 2 of the Programmer's Manual.\r\n\r\n2.The matrix manipulating utility modules should be cautiously employed when\r\ndealing with non-standard matrix data blocks.\r\n=PAGE=\r\nMATGEN - Matrix Generator\r\n\r\nPurpose\r\n\r\nTo generate different kinds of matrices for later use in other matrix\r\noperation modules.\r\n\r\nDMAP Calling Sequence\r\n\r\nMATGEN  TABLE/MAT/P1/P2/P3/P4/P5/P6/P7/P8/P9/P10/P11 $\r\n\r\nInput Data Blocks\r\n\r\nTABLE   Optional tabular data for use in generating the matrix. (This data\r\n        may be assumed to be entered by DTI cards.) For P1 = 9, TABLE is\r\n        the EQEXIN table. For P1 = 11, TABLE is the USET table.\r\n\r\nOutput Data Blocks\r\n\r\nMAT     Standard matrix data block.\r\n\r\nParameters\r\n\r\nP1      Input-integer-no default. Option selection parameter as described\r\n        below.\r\n\r\nP2 - P11Input-integer-default = 0. Provide parametric data depending on\r\n        P1.\r\n\r\nUsage\r\n\r\nP1 = 1  Generate a real identity matrix.\r\n\r\n        P2 = Order of matrix.\r\n        P3 = Skew flag. If nonzero, generate a skew-diagonal matrix.\r\n        P4 = Precision (1 or 2). If zero, use machine precision.\r\n\r\nP1 = 2  Generate an identity matrix trailer.\r\n\r\n        P2 = Order of matrix.\r\n\r\n        Note: This option differs from P1 = 1 in that only the trailer is\r\n        generated (form = 8) and the matrix is not actually generated.\r\n        Only certain DMAP modules are prepared to accept this form (for\r\n        example, MPYAD, FBS, CEAD).\r\n\r\nP1 = 3  Generate a diagonal matrix from input file TABLE.\r\n\r\n        P2 = Type of data in TABLE.\r\n        P3 = 0, matrix is form 6, type P2; = 1, matrix is form 3, type P2.\r\n\r\nP1 = 4  Generate a pattern matrix.\r\n\r\n        P2 = Number of columns.\r\n        P3 = Number of rows.\r\n        P4 = Precision (1 or 2). If 0, use machine precision.\r\n        P5 = Number of terms per string. If 0, use 1.\r\n        P6 = Increment between strings. If 0, use 1.\r\n        P7 = Row number of first string in column 1. If 0, use 1.\r\n        P8 = Increment to first row of subsequent columns.\r\n        P9 = Number of columns before returning to P7.\r\n\r\n        Note: The nonzero values in each column will be the column\r\n        numbers.\r\n\r\n        Example: To generate a 10 x 10 diagonal matrix with the column\r\n        number in each diagonal position:\r\n\r\n           MATGEN  ,/DIAG/4/10/10/0/1/10/1/1/10 $\r\n\r\nP1 = 5  Generate a matrix of pseudo-random numbers. The numbers span the\r\n        range 0 to 1.0, with a normal distribution.\r\n\r\n        P2 = Number of columns.\r\n        P3 = Number of rows.\r\n        P4 = Precision (1 or 2). If 0, use machine precision.\r\n        P5 = Seed for random number generation. If P5 <= 0, the time of\r\n        day (seconds past midnight) will be used.\r\n\r\nP1 = 6  Generate a partitioning vector for use in PARTN or MERGE.\r\n\r\n        P2 = Number of rows.\r\n        P3, P5, P7, P9 = Number of rows with zero coefficients.\r\n        P4, P6, P8, P10 = Number of rows with unit coefficients.\r\n\r\n        If\r\n\r\n          10\r\n              Pi < P2\r\n          i=3\r\n\r\n        the remaining terms contain zeros.\r\n\r\n        If\r\n\r\n          10\r\n              Pi > P2\r\n          i=3\r\n\r\n        the terms are ignored after P2.\r\n\r\n        Example: To generate a vector of 5 unit terms followed by 7 zeros \r\n        followed by 2 unit terms: \r\n\r\n           MATGEN   ,/UPART/6/14/0/5/7/2 $\r\n\r\nP1 = 7  Generate a null matrix.\r\n\r\n        P2 = Number of rows.\r\n        P3 = Number of columns.\r\n        P4 = Form. If P4 = 0, the form will be 6 (symmetric) if P2 = P3, \r\n        otherwise form 2. \r\n        P5 = Type. If P5 = 0, the type will be the machine precision.\r\n\r\nP1 = 8  Not available.\r\n\r\nP1 = 9  Generate a transformation between external and internal sequence \r\n        matrices for g-set size matrices. \r\n\r\n        P2 = Output transpose flag. If 0, output non-transposed factor, UEXT = \r\n        MAT*UINT.  If 1, output transposed factor, UEXT = MAT*UINT. \r\n        P3 = Number of terms in g-set. The parameter LUSET contains this \r\n        number in most solution sequences. \r\n\r\n        Example 1: Transform a g-set size vector to external sequence:\r\n\r\n           ALTER XX $ AFTER SDR1. ALL SDR1 OUTPUTS ARE IN INTERNAL SEQUENCE.\r\n           MATGEN   EQEXIN/EXTINT/9/LUSET $\r\n           MPYAD    EXTINT,UGV/UGVEXT/1 $\r\n\r\n        Example 2: Transform an a-set size matrix to external sequence:\r\n\r\n           ALTER XX $ AFTER KAA GENERATED. ALL MATRICES IN INTERNAL SEQUENCE.\r\n           VEC      USET/VATOG/G/A/COMP $\r\n           MERGE    KAA,,,,VATOG,/KAGG/ $ EXPAND TO G-SIZE, INTERNAL SORT\r\n           MATGEN   EQEXIN/INTEXT/9/0/LUSET $\r\n           SMPYAD   INTEXT,KAGG,INTEXT,,/KAAGEXT/3////1////6 $\r\n           $ (KAAGEXT) = TRANSPOSE(INTEXT)*(KAAG)*(INTEXT)\r\n           $ ITS FORM IS 6 (SYMMETRIC)\r\n\r\nP1 = 10 Not used.\r\n\r\nP1 = 11 Not available.\r\n=PAGE=\r\nMERGE - Matrix Merge\r\n\r\nPurpose\r\n\r\nTo form the matrix [A] from its partitions:\r\n\r\n                 CP Ĵ\r\n                          \r\n                A11  A12  = 0\r\n    [A] <=   RP   \r\n                A21  A22  not equal 0\r\n                          \r\n                  = 0   not equal 0\r\n\r\nDMAP Calling Sequence\r\n\r\nMERGE A11,A21,A12,A22,CP,RP / A / V,Y,SYM / V,Y,TYPE / V,Y,FORM $\r\n\r\nInput Data Blocks\r\n\r\nA11     Matrix.\r\nA21     Matrix.\r\nA12     Matrix.\r\nA22     Matrix.\r\nCP      Column partitioning vector (see below) - Single precision column vector.\r\nRP      Row partitioning vector (see below) - Single precision column vector.\r\n\r\nNOTES\r\n\r\n1. Any or all of [A11], [A12], [A21], [A22] can be purged. When all are purged \r\nthis implies [A] = [0].\r\n2. {RP} and {CP} may not both be purged.\r\n3. See Remarks for meaning when either of {RP} or {CP} is purged.\r\n4. [A11], [A12], [A21], [A22] must be unique matrices. \r\n\r\nOutput Data Blocks\r\n\r\nA       Merged matrix from [A11], [A12], [A21], [A22].\r\n\r\nNOTE: [A] cannot be purged.\r\n\r\nParameters\r\n\r\nSYM     Input-Integer, default = -1. SYM < 0, {CP} is used for {RP}. SYM >= 0, \r\n        {CP} and {RP} are distinct. \r\n\r\nTYPE    Input-Integer, default = 0. Type of [A] - see Remark 4.\r\n\r\nFORM    Input-Integer, default = 0. Form of [A] - see Remark 3.\r\n\r\nRemarks\r\n\r\n1. MERGE is the inverse of PARTN in the sense that if [A11], [A12], [A21], \r\n[A22] were produced by PARTN using {RP}, {CP}, FORM, SYM, and TYPE from [A], \r\nMERGE will produce [A]. See PARTN for options on {RP}, {CP}, and SYM. \r\n\r\n2. All input data blocks must be distinct.\r\n\r\n3. When FORM = 0, a compatible matrix [A] results as shown in the following \r\ntable: \r\n\r\n                       Ŀ\r\n                                           FORM OF A22                   \r\n                       Ĵ\r\n                          Square          Rectangular     Symmetric    \r\nĴ\r\n        Square          Square          Rectangular     Rectangular  \r\n FORM Ĵ\r\n  OF    Rectangular     Rectangular     Rectangular     Rectangular  \r\n A11  Ĵ\r\n        Symmetric       Rectangular     Rectangular     Symmetric    \r\n\r\n\r\n4. If TYPE = 0, the type of the output matrix wilt be the maximum type of \r\n[A11], [A12], [A21], and [A22]. \r\n=PAGE=\r\nMPYAD - Matrix Multiply and Add\r\n\r\nPurpose\r\n\r\nMPYAD computes the multiplication of two matrices and, optionally, addition of \r\na third matrix to the product. By means of parameters, you may compute +/- \r\n[A][B] +/- [C] = [X], or +/- [A]T[B] +/- [C] = [X]. \r\n\r\nDMAP Calling Sequence\r\n\r\nMPYAD  A,B,C / X / V,N,T / V,N,SIGNAB / V,N,SIGNC / V,N,TYPEX $\r\n\r\nInput Data Blocks\r\n\r\nA       Left hand matrix in the matrix product [A][B].\r\nB       Right hand matrix in the matrix product [A][B].\r\nC       Matrix to be added to [A][B].\r\n\r\nNOTES\r\n\r\n1.If no matrix is to be added, [C] must be purged.\r\n2.[A], [B], [C] must be physically different data blocks.\r\n3.[A] and [B] must not be purged.\r\n4.[A], [B], and [C] must be conformable. This condition is checked by MPYAD.\r\n\r\nOutput Data Blocks\r\n\r\nX       Matrix resulting from the MPYAD operation.\r\n\r\nNOTE: [X] cannot be purged.\r\n\r\nParameters\r\n\r\nT       Input-Integer, no default; 1 - compute [A]T[B]; 0 - compute [A][B].\r\n\r\nSIGNAB  Input-Integer, default = 1; +1 - compute [A][B]; 0 - omit [A][B]; -1 - \r\n        compute -[A][B]. \r\n\r\nSIGNC   Input-Integer, default = 1; +1 - add [C]; 0 - omit [C]; -1 - subtract \r\n        [C]. \r\n\r\nTYPEX   Input-Integer, default = 0; 0 - logical choice based on input; 1 -\r\n        output type of matrix X is real single precision; 2 - output type of \r\n        matrix X is real double precision; 3 - output type of matrix X is \r\n        complex single precision; 4 - output type of matrix X is complex \r\n        double precision. \r\n\r\n        Output-Integer; TYPEX used.\r\n\r\nExamples\r\n\r\n1. [X] = [A][B]+[C]     ([X] see notes)\r\n   MPYAD  A,B,C / X / C,N,0 $\r\n\r\n            T\r\n2. [X] = [A] [B]-[C]    ([X] real single-precision)\r\n   MPYAD  A,B,C / X / C,N,1 / C,N,1 / C,N,-1 / C,N,1 $\r\n\r\n3. [X]  =  -[A][B]      ([X] see notes)\r\n   MPYAD  A,B, / X / C,N,0 / C,N,-1 $\r\n\r\nNOTES: The precision of [X] is determined from the input matrices in that if \r\nany one of these matrices is specified as double precision, then [X] will also \r\nbe double precision. If the precision for the input matrices is not specified, \r\nthe precision of the system flag will be used. \r\n=PAGE=\r\nMPY3 - Triple Matrix Multiply\r\n\r\nPurpose\r\n\r\nTo compute the matrix product [X]=[A]T[B][A]+[C], [X]=[A]T[B]+[C], or \r\n[X]=[B][A]+[C] for sparse A matrix and dense B matrix. \r\n\r\nDMAP Calling Sequence\r\n\r\nMPY3 A,B,C /X/ V,N,CODE / V,N,PREC $\r\n\r\nInput Data Blocks\r\n\r\nA       Matrix[A].\r\nB       Matrix[B].\r\nC       Matrix[C].\r\n\r\nNOTES\r\n\r\n1.If no matrix is to be added, [C] must be purged.\r\n2.[A], [B], and [C] must be physically different data blocks.\r\n3.[A] and [B] must not be purged.\r\n4.[A], [B], and [C] must be conformable.\r\n\r\nOutput Data Blocks\r\n\r\nX       Matrix resulting from the triple matrix multiplication.\r\n\r\nNOTE: [X] cannot be purged.\r\n\r\nParameters\r\n\r\nCODE    Input-Integer, default = 0. If CODE = 0, ATBA + C is performed. If \r\n        CODE = 1, ATB + C is performed via MPYAD. If CODE = 2, BA + C is \r\n        performed. \r\n\r\nPREC    Input-Integer, default = 0. If PREC = 0, output precision is the \r\n        logical choice based on input. If PREC = 1, output is in real single \r\n        precision. If PREC = 2, output is in real double precision. \r\n\r\nRemarks\r\n\r\n1. See Section 4.157 of the Programmer's Manual for a detailed description of \r\nthe MPY3 module. \r\n=PAGE=\r\nPARTN - Matrix Partition\r\n\r\nPurpose\r\n\r\nTo partition [A] into [A11], [A12], [A21], and [A22]:\r\n\r\n                  CP Ĵ\r\n                           \r\n                 A11  A12  = 0\r\n     [A] =>   RP   \r\n                 A21  A22  not equal 0\r\n                           \r\n                   = 0   not equal 0\r\n\r\nDMAP Calling Sequence\r\n\r\nPARTN A,CP,RP / A11,A21,A12,A22 / V,Y,SYM / V,Y,TYPE / V,Y,F11 /\r\n                V,Y,F21 / V,Y,F12 / V,Y,F22 $\r\n\r\nInput Data Blocks\r\n\r\nA       Matrix to be partitioned.\r\nCP      Column partitioning vector - single precision column vector.\r\nRP      Row partitioning vector - single precision column vector.\r\n\r\nOutput Data Blocks\r\n\r\nA11     Upper left partition of [A].\r\nA21     Lower left partition of [A].\r\nA12     Upper right partition of [A].\r\nA22     Lower right partItion of [A].\r\n\r\nNOTES\r\n\r\n1.Any or all output data blocks may be purged.\r\n2.For size of outputs see Method section below.\r\n\r\nParameters\r\n\r\nSYM     Input-Integer, default = -1. SYM chooses between a symmetric partition \r\n        and one unsymmetric partition. If SYM < 0, {CP} is used as {RP}. If \r\n        SYM >= 0, {CP} and {RP} are distinct. \r\n\r\nTYPE    Input-Integer, default = 0. Type of output matrices - see Remark 8.\r\n\r\nF11     Input-Integer, default = 0. Form of [A11]. See Remark 7.\r\n\r\nF21     Input-Integer, default = 0. Form of [A21]. See Remark 7.\r\n\r\nF12     Input-Integer, default = 0. Form of [A12]. See Remark 7.\r\n\r\nF22     Input-Integer, default = 0. Form of [A22]. See Remark 7.\r\n\r\nMethod\r\n\r\nLet NC = number of nonzero terms in {CP}.\r\nLet NR = number of nonzero terms In {RP}.\r\nLet NROWA = number of rows In [A].\r\nLet NCOLA = number of columns In [A].\r\n\r\nCASE 1 {CP} purged and SYM >= 0.                              \r\n[A11] is a (NROWA - NR) by NCOLA matrix.                   A11\r\n[A21] is a NR by NCOLA matrix.                      [A] -> ij\r\n[A12] is not written.                                      A21\r\n[A22] is not written.                                         \r\n\r\nCASE 2 {RP} purged and SYM >= 0.\r\n[A11] is a NROWA by (NCOLA - NC) matrix.\r\n[A21] is not written.                               [A] -> [A11 | A12]\r\n[A12] is a NROWA by NC matrix.\r\n[A22] is not written.\r\n\r\nCASE 3 SYM < 0 ({RP} must be purged)                                   \r\n[A11] is a (NROWA - NC) by (NCOLA - NC) matrix.              A11  A12 \r\n[A21] is a NC by (NCOLA - NC) matrix.               [A] ->    \r\n[A12] is a (NROWA - NC) by NC matrix.                        A21  A22 \r\n[A22] is a NC by NC matrix.                                            \r\n\r\nCASE 4 neither {CP} nor {RP} purged and SYM >=0                        \r\n[A11] is a (NROWA - NR) by (NCOLA - NC) matrix.              A11  A12 \r\n[A21] is a NR by (NCOLA - NC) matrix.               [A] ->    \r\n[A12] is a (NROWA - NR) by NC matrix.                        A21  A22 \r\n[A22] is a NR by NC matrix.                                            \r\n\r\nRemarks\r\n\r\n1.If [A] is purged, PARTN will cause all output data blocks to be purged.\r\n\r\n2.If {CP} is purged, [A] is partitioned as follows:\r\n\r\n          \r\n       A11\r\n[A] => ij\r\n       A21\r\n          \r\n\r\n3.If {RP} is purged and SYM >= 0, [A] is partitioned as follows:\r\n\r\n[A] => [A11 | A12]\r\n\r\n4.If {RP} is purged and SYM < 0, [A] is partitioned as follows:\r\n\r\n                   \r\n         A11  A12 \r\n[A] =>    \r\n         A21  A22 \r\n                   \r\n\r\nwhere {CP} is used as both the row and column partitioner.\r\n\r\n5.{RP} and {CP} cannot both be purged.\r\n\r\n6.\r\n                   \r\n         A11  A12 \r\n[A] =>    \r\n         A21  A22 \r\n                   \r\n\r\nLet [A] be a m by n order matrix. Let {CP} be a n order column vector \r\ncontaining q zero elements. Let {RP} be a m order column vector containing p \r\nzero element. \r\n\r\nPartition [A11] will consist of all elements Aij of [A] for which CPj = RPi = \r\n0 in the same order as they appear in [A]. \r\n\r\nPartition [A12] will consist of all elements Aij of [A] for which CPj not \r\nequal 0 and RPi = 0 in the same order as they appear in [A]. \r\n\r\nPartition [A21] will consist of all elements Aij or [A] for which CPj = 0 and \r\nRPi not equal 0 in the same order as they appear in [A]. \r\n\r\nPartition [A22] will consist of all elements Aij of [A] for which CPj not \r\nequal 0 and RPi not equal 0 in the same order as they appear in [A]. \r\n\r\n7. If the defaults for F11, F21, F12, or F22 are used, the corresponding \r\nmatrix will be output with a compatible form entered in the trailer. \r\n\r\n8. If TYPE = 0, the type of the output matrices will be the type of the input \r\nmatrix [A]. \r\n\r\nExamples\r\n\r\n1.Let [A], {CP} and {RP} be defined as follows:\r\n\r\n                                              \r\n                                         1.0                 \r\n         1.0  2.0  3.0  4.0              0.0              0.0\r\n  [A] =  5.0  6.0  7.0  8.0  ,  {CP} =   1.0   ,  {RP} =  0.0\r\n         9.0 10.0 11.0 12.0              1.0              1.0\r\n                                                             \r\n\r\nThen, the DMAP instruction\r\n\r\n  PARTN A,CP,RP / A11,A21,A12,A22 / C,N,1 $\r\n\r\nwill create the real double precision matrices\r\n\r\n                                                        \r\n          2.0                            1.0   3.0   4.0\r\n  [A11] = 6.0   ,  F11 = 2       [A12] = 5.0   7.0   8.0  ,  F12 = 2\r\n                                                        \r\n\r\n  [A21] = [10.0]  ,  F21 = 1       [A22] = [9.0  11.0  12.0]  ,  F22 = 2\r\n\r\n2.If, in Example 1, the DMAP instruction were written as\r\n\r\n  PARTN  A,CP, /  A11,A21,A12,A22 / C,N,1 $\r\n\r\nthe resulting matrices would be\r\n\r\n                                                         \r\n          2.0                             1.0   3.0   4.0\r\n  [A11] = 6.0                     [A12] = 5.0   7.0   8.0\r\n          10.0                            9.0  11.0  12.0\r\n                                                         \r\n  [A21] = purged                    [A22] = purged\r\n\r\n3.If, in Example 1, the DMAP instruction were written as\r\n\r\n  PARTN  A,,RP / A11,A21,A12,A22 / C,N,1 $\r\n\r\nthe resulting matrices would be\r\n\r\n                               \r\n             1.0  2.0  3.0  4.0\r\n    [A11] =  5.0  6.0  7.0  8.0     [A12] = purged\r\n                               \r\n\r\n    [A21] =  [9.0 10.0 11.0 12.0]     [A22] = purged\r\n=PAGE=\r\nSDCMPS - Symmetric Decomposition\r\n\r\nPurpose\r\n\r\nTo decompose a matrix [A] into upper and lower triangular factors [U] and [L].\r\n\r\n[A] => [L][U]\r\n\r\nBadly conditioned matrix columns for symmetric real matrices are identified in \r\nexternal identification numbers. Various user exit controls for error \r\nconditions are available. \r\n\r\nDMAP Calling Sequence\r\n\r\nSDCMPS USET,GPL,SIL,A / L,U / V,Y,SYM / V,Y,DIAGCK / V,Y,DIAGET /\r\n                        V,Y,PDEFCK / V,N,SING / V,Y,SET / V,Y,CHOLSKY /\r\n                        V,N,DET / V,N,MINDIA / V,N,POWER / V,Y,SUBNAM $\r\n\r\nInput Data Blocks\r\n\r\nUSET    Displacement Set Definition Table.\r\nGPL     Grid Point List.\r\nSIL     Scalar Index List.\r\nA       A real symmetric matrix (may not be purged).\r\n\r\nNOTE: Error conditions will be identified by column number if USET, GPL, or \r\nSIL are purged for non-substructuring problems. \r\n\r\nOutput Data Blocks\r\n\r\nL       Lower triangular factor of [A].\r\nU       Upper triangular factor of [A].\r\n\r\nParameters\r\n\r\nSYM     Input-Integer, default = 0. 1, use symmetric decomposition. -1, use \r\n        unsymmetric decomposition. 0, use decomposition based on input matrix \r\n        form. \r\n\r\nDIAGCK  Input-Integer, default = 0. Diagonal singularity or nonconservative \r\n        column exit flag. \r\n\r\n        = 0   nonfatal messages for es > Ts (see DIAGET and Remark 6 for \r\n              definitions). \r\n\r\n        > 0   a maximum of DIAGCK messages for es > Ts before aborting \r\n              decomposition prior to completion. \r\n\r\n        <  0  no check of es.\r\n\r\nDIAGET  Input-Integer, default = 20. Diagonal singularity error tolerance. \r\n        Used in conjunction with DIAGCK. A message is issued if the error, es \r\n        > Ts = 2-n, where n = DIAGET. \r\n\r\nPDEFCK  Input-Integer, default = 0. Positive definite exit flag.\r\n\r\n        = 0   nonfatal messages are issued for Dii < 0.0 and fatal messages \r\n              are issued for Dii = 0.0. \r\n\r\n        > 0   a maximum of PDEFCK fatal messages for all Dii <= 0.0 are issued \r\n              before aborting decomposition prior to completion \r\n\r\n        < 0   no check for Dii < 0.0. If Dii = 0.0, absolute value of PDEFCK \r\n              messages are issued before aborting decomposition prior to \r\n              completion. \r\n\r\nSING    Output-Integer, no default. SING is set to -1 if [A] is singular, 0 if \r\n        not positive definite, and 1 otherwise, in the given order. \r\n\r\nSET     Input-BCD, default = L. The displacement set to which [A] belongs.\r\n\r\nCHOLSKY Input-Integer, default = 0. Cholesky decomposition is used if the \r\n        value is 1 (matrix must be positive definite); Cholesky decomposition \r\n        is not used for values other than 1. \r\n\r\nDET     Output-Real single precision, default = 0.0. The scaled value of the \r\n        determinant of [A]. \r\n\r\nMINDIA  Output-double precision, default = 0.0D0. Minimum diagonal of [U].\r\n\r\nPOWER   Output-Integer, default = 0. Integer power of 10 by which DET should \r\n        be multiplied to obtain the determinant of [A]. \r\n\r\nSUBNAM  Input-BCD, default = NONE. Name of substructure being solved. Not \r\n        necessary unless this is a substructuring problem. \r\n\r\nRemarks\r\n\r\n1. Non-standard triangular factor matrix data blocks are used to improve the \r\nefficiency of the back substitution process in module FBS. The format of these \r\ndata blocks is given in Section 2 of the Programmer's Manual. \r\n\r\n2. If the CHOLSKY option is selected, the resulting factor (which will be \r\nwritten as [U]) cannot be input to FBS. \r\n\r\n3. Upon finding a zero diagonal (Dii) on the decomposed matrix, a value of 1.0 \r\nis substituted for the diagonal term if decomposition is to proceed. However, \r\nthe fatal error flag is always set in this case. \r\n\r\n4. All zero columns on the input matrix cause fatal messages and decomposition \r\nis not attempted. If a system error occurs, a null column might result during \r\ndecomposition, in which case the column is labeled as a \"Bad Column\" and the \r\ndecomposition is aborted. \r\n\r\n5. A nonpositive definite matrix (decomposed diagonal element less than zero) \r\ncauses the absolute value to be substituted only with the Cholesky option and \r\nif decomposition is to be continued. \r\n\r\n6. The diagonal singularity test is\r\n\r\n               1-p\r\n              2\r\n     e   = \r\n      s    |Dii/Aii|\r\n\r\nwhere p is the number of bits in the mantissa (machine dependent), Dii is the \r\nith diagonal term of the decomposed matrix, and Aii is the ith diagonal term \r\nof the input matrix, [A]. \r\n\r\n7. All matrix messages give the input and decomposed diagonal value except for \r\nsituations where the input matrix is in error (for example, the matrix is \r\nclassified as rectangular or has a null column). \r\n\r\n8. Nonconservative columns (identified by Dii > 1.001 * Aii) are identified. \r\n\r\n9. Variable parameters output from functional modules must be SAVEd if they \r\nare to be subsequently used. See Executive Module SAVE instruction. \r\n\r\n10. Setting MODCOM(1) to -1 on the NASTRAN card (see Section 2.1) allows the \r\ntime and core estimates to be made without actually doing the decomposition. \r\nAbsolute values greater than 1 replace the variable CLOSE documented in \r\nSection 3.5.14.4 of the Programmer's Manual. \r\n\r\nExamples\r\n\r\n1. To use the SDCMPS module in a static analysis (Rigid Format 1), modules \r\nSMP1 and RBMG2 must be removed. For this case, the required ALTERs are as \r\nfollows: \r\n\r\nALTER     n1 $ (where n1 = DMAP statement number of LABEL LBL4)\r\nPARAM     //*PREC*/MPREC $\r\nALTER     n2,n2 $ (where n2 = DMAP statement number of the SMP1 module)\r\nVEC       USET/V/*F*/*O*/*A* $\r\nPARTN     KFF,V,/KOO,,KOA,KAAB $\r\nSDCMPS    USET,GPL,SIL,KOO/LOO,/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/\r\n          C,Y,PDEFCK=0/S,N,SINGO/*O*/0/S,N,DETO/S,N;MINDIAO/\r\n          S,N,POWERO $\r\nCOND      LSING,SINGO $\r\nFBS       LOO,,KOA/GO/1/-1 $\r\nMPYAD     KOA,GO,KAAB/KAA/1/1/1/MPREC $\r\nALTER     n3,n3 $ (where n3 = DMAP statement number of the RBMG2 module)\r\nSDCMPS    USET,GPL,SIL,KL/LLL,/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/\r\n          C,Y,PDEFCK=0/S,N,SINGL/*L*/0/S,N,DETL/S,N,MINDIAL/\r\n          S,N,POWERL $\r\nCOND      LSING,SINGL $\r\nALTER     n4 $ (where n4 = DMAP statement number of COND FINIS, COUNT)\r\nLABEL     LSING $\r\nPRTPARM   //O/*SINGO* $\r\nPRTPARM   //0/*SINGL* $\r\nPRTPARM   //-1/*DMAP* $\r\nENDALTER  $\r\n\r\nThe input parameters SYM, DIAGCK, DIAGET, and PDEFCK may be changed from the \r\nvalues illustrated above either by using the form /C,N,i/ or by including a \r\nPARAM bulk data card with a different value. \r\n\r\n2. To use the SDCMPS module in a real eigenvalue analysis (Rigid Format 3), \r\nmodules SMP1 and RBMG2 must be removed. For this case, the required ALTERs are \r\nas follows: \r\n\r\nALTER     n1,n1 $ (where n1 = DMAP statement number of the SMP1 module)\r\nVEC       USET/V/*F*/*0*/*A* $\r\nPARTN     KFF,V,/KOO,,KOA,KAAB\r\nSDCMPS    USET,GPL,SIL,KOO/LOO,UOO/C,Y,SYM=0/C,Y,DIAGCK=0/C,Y,DIAGET=20/\r\n          C,Y,PDEFCK=0/S,N,SINGO/*O*/0/S,N,DETO/S,N,MINDIAO/\r\n          S,N,POWERO $\r\nCOND      LSING,SINGO $\r\nFBS       LOO,UOO,KOA/GO/1/-1 $\r\nMPYAD     KOA,GO,KAAB/KAA/1 $\r\nALTER     n2,n2 $ (where n2 = DMAP statement number of the RBMG2 module)\r\nSDCMPS    USET,GPL,SIL,KLL/LLL,/C,Y,SYM=0/C,Y,DIAGCK=O/C,Y,DIAGET=20/\r\n          C,Y,PDEFCK=0/S,N,SINGL/*L*/0/S,N,DETL/S,N,MINDIAL/\r\n          S,N,POWERL $\r\nCOND      LSING,SINGL $\r\nALTER     n3 $ (where n3 = DMAP statement number of LABEL P2)\r\nLABEL     LSING $\r\nPRTPARM   //0/*SINGO* $\r\nPRTPARM   //0/*SINGL* $\r\nPRTPARM   //-1/*DMAP* $\r\nENDALTER  $\r\n\r\nThe input parameters SYM, DIAGCK, DIAGET, and PDEFCK may be changed from the \r\nvalues illustrated above as indicated under Example 1. \r\n=PAGE=\r\nSMPYAD - Matrix Series Multiply and Add\r\n\r\nPurpose\r\n\r\nTo multiply a series of matrices together and, optionally, add another matrix \r\nto the product: \r\n\r\n    [X]  =  [A][B][C][D][E] +/- [F]\r\n\r\nDMAP Calling Sequence\r\n\r\nSMPYAD   A,B,C,D,E,F / X / C,N,n / V,N,SIGNX / V,N,SIGNF / V,N,PX / V,N,TA /\r\n         V,N,TB / V,N,TC / V,N,TD $\r\n\r\nInput Data Blocks\r\n\r\nA, B, C, D, E Up to 5 matrices to be multiplied together, from left to right.\r\nF             Matrix to be added to the above product.\r\n\r\nNOTES\r\n\r\n1.  If one of the five multiplication matrices is required in the product (see \r\n    parameter n below) and is purged, the entire calculation is skipped. \r\n2.  If the [F] matrix is purged, no matrix will be added to the product.\r\n3.  The input matrices must be conformable. This condition is checked by SMPYAD.\r\n\r\nOutput Data Blocks\r\n\r\nX             Resultant matrix (may not be pre-purged).\r\n\r\nParameters\r\n\r\nn             number of matrices involved in the product, counting from the \r\n              left (Input-Integer). \r\n\r\nSIGNX         sign of the product matrix (for example, [A][B][C][D][E]); 1 for \r\n              plus, -1 for minus (Input-Integer). \r\n\r\nSIGNF         sign of the matrix to be added to the product matrix (Input-\r\n              Integer); 1 for plus, -1 for minus \r\n\r\nPX            output precision of the final result (Input-Integer); 1 for \r\n              single-precision, 2 for double-precision, 0 logical choice based \r\n              on input matrices. \r\n\r\nTA, TB,TC, TD transpose indicators for the [A],[B],[C], and [D] matrices; (1 \r\n              if transposed matrix to be used in the product; 0 if \r\n              untransposed) (Input-Integer). \r\n\r\nNOTE\r\n\r\nAll the parameters except n have default values as follows:\r\n\r\n    SIGNX  =  1 (sign of product is plus)\r\n    SIGNF  =  1 (sign of added matrix is plus)\r\n    PX  =  0 (logical choice based on input matrices)\r\n    TA, TB, TC, TD  =  0 (use untransposed [A],[B],[C], and [D] matrices in \r\n    the product) (the number of transpose indicators required is one less than \r\n    the number of matrices in the product. The last matrix in the product \r\n    cannot be transposed.) \r\n\r\nMethod\r\n\r\nThe method is the same as for the MPYAD module with the following additional remarks:\r\n\r\n1.  None of the matrices may be diagonal.\r\n\r\n2.  Except for the final product, all intermediate matrix products are \r\n    generated in double-precision. \r\n\r\n3.  The matrices are post-multiplied together from right-to-left, that is, the \r\n    first product calculated is the product of matrix n-l and matrix n. \r\n\r\nExamples\r\n\r\n1.  To compute [X] = [A][B]T[C]-[F], use\r\n\r\n    SMPYAD  A,B,C,,,F / X / C,N,3 / C,N,1 / C,N,-1 / C,N,0 / C,N,0 / C,N,1 $\r\n\r\n2.  To compute [Z] = -[U]T[V]T[W]T[X]T[Y], use\r\n\r\n    SMPYAD  U,V,W,X,Y, / Z / C,N,5 / C,N,-1 / C,N,0 / C,M,0 / C,N,1 / C,N,1 /\r\n            C,N,1 / C,N,1 $\r\n=PAGE=\r\nSOLVE - Linear System Solver\r\n\r\nPurpose\r\n\r\nTo solve the Matrix Equation\r\n\r\n    [A][X]  =  +/- [B]\r\n\r\nDMAP Calling Sequence\r\n\r\nSOLVE   A,B / X / V,Y,SYM / V,Y,SIGN / V,Y,PREC / V,Y,TYPE  $\r\n\r\nInput Data Blocks\r\n\r\nA             Square real or complex matrix.\r\nB             Rectangular real or complex matrix (if purged, the identity \r\n              matrix is assumed). \r\n\r\nOutput Data Blocks\r\n\r\nX             A rectangular matrix.\r\n\r\nNOTE: A standard matrix trailer will be written, identifying [X] as a rectangular matrix with the same\r\ndimensions as [B] and the type specified.\r\n\r\nParameters\r\n\r\nSYM           Input-Integer, default = 0; -1 - use unsymmetric decomposition; \r\n              1 -use symmetric decomposition; 0 - logical choice based on \r\n              input matrices. \r\n\r\n              Output-Integer, SYM used.\r\n\r\nSIGN          Input-Integer, default = 1;1 - solve [A][X] = [B]; -1 - solve \r\n              [A][X] = -[B]. \r\n\r\nPREC          Input-Integer, default = 0; 0 - logical choice based on input; 1 \r\n              -use single precision arithmetic; 2 - use double precision \r\n              arithmetic. \r\n\r\n              Output-Integer, PREC used.\r\n\r\nTYPE          Input-Integer, default = 0; 0 - logical choice based on input; 1 \r\n              -output type of matrix [X] is real single precision; 2 - output \r\n              type of matrix [X] is real double precision; 3 - output type of \r\n              matrix [X] is complex single precision; 4 - output type of \r\n              matrix [X] is complex double precision \r\n\r\n              Output-Integer, TYPE used.\r\n\r\nMethod\r\n\r\nDepending on the SYM flag and the type of [A], one of subroutines SDCOMP, \r\nDECOMP, or CDECOMP is called to form [A] = [L][U]. One of FBS or GFBS is then \r\ncalled to solve [L][Y] = +/- [B] and [U][X] = [Y], as appropriate. \r\n=PAGE=\r\nTRNSP - Matrix Transpose\r\n\r\nPurpose\r\n\r\nTo form [A]T given [A].\r\n\r\nDMAP Calling Sequence\r\n\r\nTRNSP A/X $\r\n\r\nInput Data Blocks\r\n\r\nA             Any matrix data block.\r\n\r\nNOTE: If [A] is purged, TRNSP will cause [X] to be purged.\r\n\r\nOutput Data Blocks\r\n\r\nX             The matrix transpose of [A].\r\n\r\nNOTE: [X] cannot be purged.\r\n\r\nParameters\r\n\r\nNone.\r\n\r\nRemarks\r\n\r\n1.  Transposition of large full matrices is very expensive and should be \r\n    avoided if possible (see Section 2.1.4 of the Theoretical Manual). \r\n\r\n2.  TRNSP uses an algorithm which assumes that the matrix is dense. This \r\n    algorithm is extremely inefficient for sparse matrices. Sparse matrices \r\n    should be transposed by using MPYAD. \r\n=PAGE=\r\nUMERGE - Merge Two Matrices\r\n\r\nPurpose\r\n\r\nTo merge two column matrices (such as load vectors or displacement vectors) into a single matrix.\r\n\r\nDMAP Calling Sequence\r\n\r\nUMERGE  USET,PHIA,PHIO / PHIF / V,N,MAJOR=F / V,N,SUB0=A / V,N,SUB1=L $\r\n\r\nInput Data Blocks\r\n\r\nUSET          Displacement set definitions.\r\nPHIA, PHIO    Any matrices.\r\n\r\nNOTES\r\n\r\n1.  The set definitions may be USET (statics), USETD (dynamics), HUSET (heat \r\n    transfer), or USETA (aeroelastic). \r\n2.  USET, USETD, HUSET, or USETA may not be purged.\r\n3.  PHIA or PHIO may be purged, in which case their respective elements will \r\n    be zero. \r\n4.  PHIA, PHIO, and PHIF must be related by the following matrix equation:\r\n\r\n                          \r\n        PHIA              \r\n           ==>   PHIF \r\n        PHIO              \r\n                          \r\n\r\nOutput Data Blocks\r\n\r\nPHIF          Matrix.\r\n\r\nNOTE: PHIF cannot be purged.\r\n\r\nParameters\r\n\r\nMAJOR         BCD value from table below (Input, no default).\r\nSUB0          BCD value from table below (Input, no default).\r\nSUB1          BCD value from table below (Input, no default).\r\n\r\nNOTE: The set equation MAJOR = SUB0 + SUB1 should hold.\r\n\r\n           Parameter Value              USET Matrix\r\n\r\n                   M                       Um\r\n                   S               Us (union of SG and SB)\r\n                   O                       Uo\r\n                   R                       Ur\r\n                   G                       Ug\r\n                   N                       Un\r\n                   F                       Uf\r\n                   A                       Ua\r\n                   L                       Ul\r\n                   SG             Us (specified on Grid card)\r\n                   SB             Us (specified on SPC card)\r\n                   E                       Ue\r\n                   P                       Up\r\n                   NE             Une (union of N and E)\r\n                   FE             Ufe (union of F and E)\r\n                   D                       Ud\r\n                   PS                      Ups\r\n                   SA                      UsA\r\n                   K                       Uk\r\n                   PA                      UpA\r\n=PAGE=\r\nUPARTN - Partition a Matrix\r\n\r\nPurpose\r\n\r\nTo perform symmetric partitioning of matrices (particularly to allow you to \r\nsplit long running modules such as SMP1). \r\n\r\nDMAP Calling Sequence\r\n\r\nUPARTN  USET,KII / KJJ,KLJ,KJL,KLL / V,N,MAJOR=I / V,N,SUB0=J / V,N,SUB1=L $\r\n\r\nInput Data Blocks\r\n\r\nUSET          Displacement set definitions.\r\nKII           Any displacement matrix.\r\n\r\nNOTES\r\n\r\n1.  The set definitions may be USET (statics), USETD (dynamics), HUSET (heat \r\n    transfer), or USETA (aeroelastic). \r\n2.  USET may not be purged.\r\n3.  KII may be purged, in which case UPARTN will simply return, causing the \r\n    output matrices to be purged. \r\n\r\nOutput Data Blocks\r\n\r\nKJJ, KLJ, KJL, KII  Matrix partitions\r\n\r\nNOTES\r\n\r\n1.  Any or all output data block(s) may be purged.\r\n2.  UPARTN forms:\r\n\r\n                            \r\n                  Kjj  Kjl \r\n       [Kii] =>    \r\n                  Klj  Kll \r\n                            \r\n\r\nParameters\r\n\r\nMAJOR         BCD value from table below (Input, no default).\r\nSUB0          BCD value from table below (Input, no default).\r\nSUB1          BCD value from table below (Input, no default).\r\n\r\nNOTE: The set equation MAJOR = SUB0 + SUB1 should hold.\r\n\r\n           Parameter Value              USET Matrix\r\n\r\n                   M                       Um\r\n                   S               Us (union of SG and SB)\r\n                   O                       Uo\r\n                   R                       Ur\r\n                   G                       Ug\r\n                   N                       Un\r\n                   F                       Uf\r\n                   A                       Ua\r\n                   L                       Ul\r\n                   SG             Us (specified on Grid card)\r\n                   SB             Us (specified on SPC card)\r\n                   E                       Ue\r\n                   P                       Up\r\n                   NE             Une (union of N and E)\r\n                   FE             Ufe (union of F and E)\r\n                   D                       Ud\r\n                   PS                      Ups\r\n                   SA                      UsA\r\n                   K                       Uk\r\n                   PA                      UpA\r\n\r\nExample\r\n\r\nIn Rigid Format 2, module SMP1 performs the following calculations. SMP1 \r\npartitions the constrained stiffness and mass matrices \r\n\r\n               _         \r\n               Kaa  Kao \r\n    [Kff] =>    \r\n               Koa  Koo \r\n                         \r\n\r\nand\r\n\r\n               _         \r\n               Maa  Mao \r\n    [Mff] =>    \r\n               Moa  Moo \r\n                         \r\n\r\nsolves for transformation matrix\r\n\r\n                 -1\r\n    [Go] = -[Koo]  [Koa]\r\n\r\nand performs the matrix reductions\r\n\r\n             _           T\r\n    [Kaa] = [Kaa] + [Koa] [Go]\r\n\r\nand\r\n\r\n             _           T           T            T\r\n    [Maa] = [Maa] + [Moa] [Go] + [Go] [Moa] + [Go] [Moo][Go]\r\n\r\nStep 1 can be performed by two applications of UPARTN:\r\n\r\n    UPARTN USET,KFF / KAAB,KOA,,KOO / *F*/*A*/*O* $\r\n\r\n    UPARTN USET,MFF / MAAB,MOA,,MOO / *F*/*A*/*O* $\r\n\r\nStep 2 can be performed by SOLVE:\r\n\r\n    SOLVE KOO,KOA / GO / 1 / -1 $\r\n\r\nKAA and MAA can then be computed by a sequence of applications of the MPYAD \r\nmodule. \r\n\r\nThus, in the above manner, a long running module can be broken down into \r\nseveral smaller steps and the intermediate results can be checkpointed. \r\n\r\n=PAGE=\r\n5.5  UTILITY MODULES\r\n\r\nModule                      Basic Function                         Page\r\n\r\nCOPY      Generate a physical copy of a data block                5.5-3\r\n\r\nDATABASE  Save data on user tape                                  5.5-4\r\n\r\nGINOFILE  Copy scratch file data to GINO file                    5.5-13\r\n\r\nINPUT     Generate most of bulk data for selected academic       5.5-15\r\n          problems\r\n\r\nINPUTT1   Read data blocks from GINO-written user files          5.5-16\r\n\r\nINPUTT2   Read data blocks from FORTRAN-written user files       5.5-21\r\n\r\nINPUTT3   Read matrix data from special file                     5.5-24\r\n\r\nINPUTT4   Read user tape in special format                       5.5-25\r\n\r\nINPUTT5   Read data blocks from FORTRAN-written user files       5.5-27\r\n\r\nLAMX      Edit or generate data block LAMA                       5.5-30\r\n\r\nMATGPR    Displacement set matrix printer                        5.5-32\r\n\r\nMATPRN    Print matrices                                         5.5-34\r\n\r\nMATPRT    Print matrices associated only with geometric grid     5.5-35\r\n          points\r\n\r\nNORM      Generate normalized matrices, or normalized column vector\r\n\r\nOUTPUT1   Write data blocks via GINO onto user files             5.5-36\r\n\r\nOUTPUT2   Write data blocks via FORTRAN onto user files          5.5-41\r\n\r\nOUTPUT3   Punch matrices onto DMI cards                          5.5-44\r\n\r\nOUTPUT4   Write data block via FORTRAN onto user files,\r\n          in dense or sparse format, binary\r\n\r\nOUTPUT5   Write data blocks via FORTRAN onto user files          5.5-46\r\n\r\nPARAM     Manipulate parameter values                            5.5-53\r\n\r\nPARAMD    Perform specified arithmetic, logical, and conversion  \r\n          operations on double precision real or double \r\n          precision complex parameters \r\n\r\nPARAML    Select parameters from a user input matrix or table    5.5-58\r\n\r\nPARAMR    Similiar to PARAMD, except operation is on single \r\n          precision real or single precision complex parameters \r\n\r\nPRTPARM   Print parameter values and DMAP error messages         5.5-63\r\n\r\nSCALAR    Convert matrix element to parameter                    5.5-65\r\n\r\nSEEMAT    Generate matrix topology displays                      5.5-67\r\n\r\nSETVAL    Set parameter values                                   5.5-69\r\n\r\nSWITCH    Interchange two data block names                       5.5-70\r\n\r\nTABPCH    Punch NASTRAN tables on DTI cards                      5.5-71\r\n\r\nTABPRT    Print selected table data blocks using readable format 5.5-72\r\n\r\nTABPT     Print table data blocks                                5.5-74\r\n\r\nTIMETEST  Provide NASTRAN system timing data                     5.5-75\r\n\r\nVEC       Generate partitioning vector                           5.5-76\r\n\r\nUtility modules are an arbitrary sub-division of the Functional Modules and \r\nare used to output matrix and table data blocks and to manipulate parameters. \r\n\r\nThe data block names corresponding to the various matrix and table data blocks \r\nused in the Rigid Format DMAP sequences may be found in Volume II or in the \r\nNASTRAN mnemonic dictionary, Section 7. \r\n\r\n=PAGE=\r\nCOPY - Copy Data Block\r\n\r\nPurpose\r\n\r\nTo generate a physical copy of a data block.\r\n\r\nDMAP Calling Sequence\r\n\r\nCOPY  DB1 / DB2 / PARAM  $\r\n\r\nInput Data Blocks\r\n\r\nDB1        Any NASTRAN data block.\r\n\r\nOutput Data Blocks\r\n\r\nDB2        Any valid NASTRAN data block name.\r\n\r\nParameters\r\n\r\nPARAM   If PARAM <= 0, the copy will be performed - Input-Integer, default =\r\n        -1.\r\n\r\nMethod\r\n\r\nIf PARAM > 0, a return is made; otherwise a physical copy of the input data\r\nblock is generated. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. The input data block may not be purged.\r\n\r\n2. If PARAM <  0, the output data block will have the name of the input data\r\n   block in its header record. If PARAM = 0, the output data block will have\r\n   its own name in its header record.\r\n=PAGE=\r\nDATABASE - Save Data on User Tape\r\n\r\nPurpose\r\n\r\nTo save following data on user tape, formatted, or unformatted for user\r\nexternal use:\r\n\r\n   1. Grid points - external numbers, and their x,y,z coordinates in basic\r\n      rectangular coordinate system.\r\n\r\n   2. Connecting elements - element names, GPTABD element types, NASTRAN\r\n      symbols, property IDs (or material IDs if elements have no property\r\n      IDs), number of grid points, connecting grid (external) numbers.\r\n\r\n   3. Displacement vectors (including velocity, acceleration vectors, loads,\r\n      grid point forces, eigenvectors, element stresses, and element forces) -\r\n      real or complex data in basic rectangular coordinate system, or in\r\n      NASTRAN global coordinate system, in SORT1 or SORT2 data format,\r\n      single-case or subcases, displacement or mode shape data. In addition,\r\n      the grid point masses.\r\n\r\nDMAP Calling Sequence\r\n\r\nDATABASE  EQEXIN,BGPDT,GEOM2,CSTM,O1,O2,O3//C,N,OUTTP/C,N,FORMAT/C,N,BASIC  $\r\n\r\nInput Data Blocks\r\n\r\nEQEXIN     External-internal grid tables. Must be present.\r\n\r\nBGPDT   Basic Grid Point Definition Table. If purged, no grid point data sent\r\n        to OUTTP output tape. If BGPDT is purged, and OUGV is present,\r\n        displacement vector will not be converted to basic coordinates.\r\n\r\nGEOM2   Geometry 2 Data Block. If purged, no element connectivity data sent\r\n        to OUTTP.\r\n\r\nCSTM       Coordinate System Transformation Matrix Data Block. If purged,\r\n           displacement vectors remain in global coordinate system.\r\n\r\nO1,O2,O3   Any three output displacement (velocity, acceleration, load, grid\r\n           point force, eigenvector, element stress, and element force) data\r\n           blocks written for OFP module. If present, the displacement\r\n           vectors are processed and results sent out to user OUTTP tape.\r\n           (See Remark 2 for special input data block MGG.) Oi must be one of\r\n           the following files characterized by a 1, 2, 3, 7, 10, 11, 15, or\r\n           16 on the 2nd word, last 2 digits, of the first header record, and\r\n           an 8 or a 14 on the 10th word:\r\n\r\n           OUDV1,  OUDVC1, OUGV1,  OUHV1,  OUHVC1, OUPV1, OUPVC1,\r\n           OUDV2,  OUDVC2, OUGV2,  OUHV2,  OUHVC2, OUPV2, OUPVC2,\r\n           OUBGV1, OPHID,  OPHIG,  OPHIH,  OCPHIP,\r\n           OPG1,   OPP1,   OPPC1,  OQG1,   OQP1,   OQPC1, OQBG1,\r\n           OPG2,   OPP2,   OPPC2,  OQG2,   OQP2,   OQPC2, OBQG1,\r\n           OEF1,   OEFC1,  OES1,   OESC1,  OEFB1,  OBEF1, OEF2,\r\n           OEFC2,  OES2,   OESC2,  OESB1,  OBES1\r\n\r\n           If purged, no data are sent out to OUTTP.\r\n\r\nOutput Data Block\r\n\r\nNo GINO output data block.\r\n\r\nParameters\r\n\r\nOUTTP      User output tape. Must be one of the UT1, UT2, INPT, INP1, ...,\r\n           INP9 files; tape or disc file. (Default INP1, FORTRAN Unit 15)\r\n\r\nĿ\r\n FORTRAN LOGICAL                         \r\n  UNIT, OUTTP         USER FILE CODE     \r\nĴ\r\n      11              UT1  (CDC only)    \r\n      12              UT2  (CDC only)    \r\n      14              INPT (UNIVAC,VAX)  \r\n      15              INP1 (All          \r\n      16              INP2  machines     \r\n       :                :   except       \r\n      23              INP9  CDC)         \r\n      24              INPT (IBM only)    \r\n\r\n\r\nFORMAT     = 0, unformatted output to OUTTP tape (default).\r\n           = 1, formatted.\r\n\r\nBASIC      = 0, displacement vectors in NASTRAN's global coordinate system\r\n           (default).\r\n           = 1, displacement vectors in basic rectangular coordinate system.\r\n\r\nExample\r\n\r\nDATABASE   EQEXIN,BGPDT,GEOM2,,,, /C,N,15/C,N,+1    $\r\nDATABASE   EQEXIN,BGPDT,,CSTM,OUGV,,/C,N,16         $\r\n\r\nThe first example writes the grid points and element connectivity data out to\r\nINP1 tape, formatted. The second example writes the grid points and\r\ndisplacement vectors in NASTRAN global coordinates out to INP2 tape,\r\nunformatted.\r\n\r\nSubroutine\r\n\r\nDBASE   Subroutine for DATABASE Module.\r\n\r\nMethod\r\n\r\nThere are three independent sets of data to be copied out to user tape OUTTP:\r\ngrids data, connecting elements data, and displacement vectors (velocities,\r\naccelerations, eigenvectors, stresses, and forces). If BGPDT file is purged\r\n(that is, is not present), the grid point data set is not generated.\r\nSimilarly, if GEOM2 file is purged, the element connectivity data is not\r\ngenerated; and the same with the OUGV file and the displacement vectors. The\r\nexact contents in the output tape OUTTP depend therefore on the input file\r\nassignment.\r\n\r\nIn all cases, EQEXIN file is opened and the grid point external number vs. the\r\ninternal number table is read. If BGPDT file is present, the basic grid point\r\ndata is read, and each internal grid point number is converted to its external\r\nID number. The grid points x, y, z coordinates from BGPDT are already in the\r\nbasic rectangular coordinate system. The grid points data are then sorted by\r\ntheir external grid IDs before they are written out to OUTTP tape, under\r\nFORTRAN control. The following table gives the precise contents of each record\r\nin the OUTTP tape.\r\n\r\nFOR UNFORMATTED TAPE - GRID POINT DATA IN ONE LONG RECORD:\r\n\r\nĿ\r\n RECORD  WORD               CONTENT (UNFORMATTED)                       \r\nĴ\r\n    1     1-2   \"GRID PTS--------\", a 16-letter identification. (BCD*)  \r\n    2      1    No. of words (this first word not included) in this     \r\n                record. (Integer)                                       \r\n           2    External grid ID. (Sorted, integer)                     \r\n           3    0 (Not used; reserved for future use)                   \r\n         4,5,6  x,y,z coordinates in basic rect. coord. system.         \r\n                (single precision real)                                 \r\n           :    Repeat words 2 thru 6 as many times as there are grids  \r\n\r\n* Throughout, \"BCD\" = alphanumeric characters\r\n\r\n(Total number of grid points = (WORD 1 of record 2)/5)\r\n\r\nTo read the second record into array XYZ, one can use\r\n\r\n   READ (OUTTP) L,(XYZ(J),J=1,L)\r\n\r\nFOR FORMATTED TAPE - GRID POINT DATA IN MULTIPLE SHORT RECORDS:\r\n\r\nĿ\r\n RECORD   WORD               CONTENT                     FORMAT  \r\nĴ\r\n                                                                 \r\n    1      1,2     \"GRID PTS--------\" identification       4A4   \r\n    2       1      Total number of grid points              I8   \r\n    3       1      External grid ID (Sorted)                I8   \r\n            2      0 (Not used; reserved for future use)    I8   \r\n          3,4,5    x,y,z coordinates in basic rect.       3E12.6 \r\n                   coordinate system.                            \r\n    :      1-5     Repeat record 3 as many times as              \r\n                   there are grids                               \r\n\r\n\r\nIf GEOM2 file is present, the elements data will be generated next. An element\r\nidentification record is written out first.\r\n\r\nĿ\r\n RECORD  WORD     CONTENT (FORMATTED or UNFORMATTED)      FORMAT  \r\nĴ\r\n    1     1-2   \"ELEMENTS--------\", identification. BCD     4A4   \r\n\r\n\r\nThe element data in GEOM2 file will be written out to the OUTTP file almost in\r\nthe same way, and same order as the original data. A header record is written\r\nout for each type of element, then followed by the element data. The element\r\ndata will be written out in a long record if the OUTTP is unformatted, and in\r\nmultiple short records, one for each element, if OUTTP is formatted. Notice\r\nthat the element types are sorted according to the NASTRAN'S GPTABD data block\r\norder; and within each type, the elements are sorted by their element IDs.\r\n\r\nELEMENT HEADER RECORD FOR THE UNFORMATTED OUTPUT TAPE:\r\n\r\nĿ\r\n RECORD  WORD              CONTENT (UNFORMATTED)                   \r\nĴ\r\n    2    1-2    Element name. (BCD)                                \r\n          3     Element type number, according to GPTABD order.    \r\n                (Integer)                                          \r\n          4     Element symbol. (2 letters)                        \r\n          5     Number of grid points per element. (Integer)       \r\n          6     Total no. of elements of this current element type.\r\n                (Integer)                                          \r\n          7     No. of words in next record = WORD5 + 2 (Integer)  \r\n          8     No. of 132-column lines needed in next record if   \r\n                OUTTP is written with a format. (Integer)          \r\n\r\n\r\nELEMENT RECORDS; repeat as many times as there are elements not of the same\r\ntype (that is, a record for each element type):\r\n\r\nĿ\r\n RECORD  WORD               CONTENT (UNFORMATTED)                     \r\nĴ\r\n    3     1     Element ID. (Integer)                                 \r\n          2     Property ID. (Positive Integer); or                   \r\n                0 (Element has no property ID nor material ID); or    \r\n                Material ID. (Element has no property ID, but it has  \r\n                a material ID. (Negative Integer)                     \r\n          3     0 (Not used; reserved for future use, integer)        \r\n        4,5,... Element connecting (external) grid points. (Integers) \r\n          :     Repeat words 1,2,3,4... as many times as there are    \r\n                elements of this same type.                           \r\n                (See WORD 6 in header record)                         \r\n\r\n\r\nFOR FORMATTED TAPE\r\n\r\nELEMENT HEADER RECORD, IN 8-COLUMN FORMAT:\r\n\r\nĿ\r\n RECORD  COLUMNS             CONTENT                       FORMAT    \r\nĴ\r\n    2     1- 8    \"ELEMENT \"                               8 letters \r\n          9-16    Element name                                 2A4   \r\n         17-24    \"  TYPE =\"                               8 letters \r\n         25-28    Elem. type no. according to GPTABD            I4   \r\n         29,30    Blank                                         2X   \r\n         31-32    Element symbol                                A2   \r\n         33-40    \" GRIDS =\"                               8 letters \r\n         41-48    No. of grids per element                      I8   \r\n         49-56    \" TOTAL =\"                               8 letters \r\n         57-64    Total no. of elements of this elem. type      I8   \r\n         65-72    \" WDS/EL=\"                               8 letters \r\n         73-80    No. of words per element in next records      I8   \r\n         81-88    \" LINES =\"                               8 letters \r\n         89-96    No. of lines (records) needed on next         I8   \r\n                  record for this element type                       \r\n\r\n\r\nA printout of this header record may look like this: (the ---+++ line is for\r\nvideo aid; it is not part of the record)\r\n\r\n--------++++++++--------++++++++--------++++++++--------++++++++--\r\n\"ELEMENT CBAR      TYPE =  34  BR GRIDS =       2 TOTAL =      54 etc.\"\r\n\r\nELEMENT RECORDS (FORMATTED)\r\n\r\nThere should be (TOTAL X LINES) records in each element type:\r\n\r\nĿ\r\n RECORD  WORD                  CONTENT                           FORMAT \r\nĴ\r\n    3     1      Element ID.                                      I8    \r\n          2      Property ID. (Positive integer); or              I8    \r\n                 0 (Element has no property nor material ID); or        \r\n                 Material ID. (Element has no property ID,              \r\n                 but it has a material ID)                              \r\n          3      0 (Not used; reserved for future use)            I8    \r\n         4-16    First 13 external connecting grid points        13I8   \r\n    4            (IF NEEDED, and LINES in header record = 2)            \r\n         1-15    Next 15 Grid points                            8X,15I8 \r\n    5            (IF NEEDED, and LINES in header record = 3)            \r\n         1-15    More grid points                               8X,15I8 \r\n    :     :      Repeat element record 3 (and possible 4 and 5)         \r\n                 as many times as there are elements of the             \r\n                 same type.                                             \r\n\r\n\r\nRepeat the header record and the element records as many times as there are\r\ndifferent types of elements.\r\n\r\nThe end of element data records is signaled by an element ENDING record of the\r\nfollowing form, 8 words:\r\n\r\nWords 1 and 2 form the word \" -END-\",\r\nWord  4 holds the symbol \"--\",\r\nand all other words are zeros\r\n\r\nThe ENDING ELEMENT RECORD of the FORMATTED tape looks like this:\r\n\r\n--------++++++++--------++++++++--------++++++++--------++++++++---\r\n\"ELEMENT -END-     TYPE =   0  -- GRIDS =       0 TOTAL =       0 etc.\"\r\n\r\nIf the OUGV file is present, the displacement vectors will be processed and\r\nthe final results sent out to the OUTTP tape. (In this and the next few\r\nparagraphs, the word \"displacement\" implies also velocity, acceleration, load,\r\ngrid point force, eigenvector, element stresses, and element forces.) The\r\ninput OUGV file must be one of the GINO files described in the INPUT DATA\r\nBLOCKS section, which gives the displacements in the g-set or p-set, or the\r\nother data types. The output data are sorted by their external grid ID\r\nnumbers. The displacement records in OUTTP also begin with an identification\r\nrecord:\r\n\r\nĿ\r\n RECORD  WORD     CONTENT (FORMATTED OR UNFORMATTED)      FORMAT \r\nĴ\r\n    1     1-2   \"DISPLCNT--------\" identification*. BCD     4A4  \r\n                (* or \"VELOCITY--------\",                        \r\n                      \"ACCELERN--------\",                        \r\n                      \"LOADINGS--------\",                        \r\n                      \"G FORCES--------\",                        \r\n                      \"EIGENVCR--------\",                        \r\n                      \"E STRESS--------\",                        \r\n                      \"E FORCES--------\")                        \r\n\r\n\r\nThe original displacement data in NASTRAN are always in the global coordinate\r\nsystem. If the parameter BASIC is zero (default), the displacement vectors\r\nwill be passed over to OUTTP without changes. However, if the parameter is set\r\nto +1, the displacement vectors will be converted to the basic rectangular\r\ncoordinate system. In this latter case, the coordinate transformation matrices\r\nfrom CSTM will be brought into the computer, the grid point coordinate CID\r\nwill be identified, and proper coordinate transformation will be applied to\r\nthe displacements of each grid point. Again, the output OUTTP tape can be\r\nformatted or unformatted. In the unformatted tape, each grid point and its\r\ndisplacement values will form one logical record of 8 or 14 words (variable\r\nword length if element stresses or element forces). In the formatted tape, one\r\nlogical record (8 words) is used if the displacement data is real, and an\r\nadditional record (for data words 9 through 14) if the data is complex. In\r\neither case, a formatted record has 128-column of words. Similarly to the grid\r\nand element sets of data, a HEADER record is written out to OUTTP first before\r\nthe grid point displacement vectors.\r\n\r\nDISPLACEMENT HEADER RECORD FOR UNFORMATTED TAPE\r\n\r\nĿ\r\n RECORD   WORD            CONTENT (UNFORMATTED)            \r\nĴ\r\n    2     1      Subcase or mode number. (Integer)         \r\n          2      Zero or frequency. (Real)                 \r\n          3      Number of words per entry in next record. \r\n         4-5     Original data file name, 2 BCD words      \r\n         6-7     \" GLOBAL \" if BASIC=0, 2 BCD words        \r\n                 \"  BASIC \" if BASIC=1                     \r\n         8-13    CODE (See note below; 6 integers)         \r\n         14-45   Title,    32 BCD words                    \r\n         46-77   Subtitle, 32 BCD words                    \r\n         78-109  Label,    32 BCD words                    \r\n\r\n\r\nNOTE: Each code word holds 8 digits. Therefore there are 48 digits, from\r\nCODE(1) through CODE(6), and from left to right, they describe the data type\r\nof the next displacement record:\r\n\r\n   1 for integer\r\n   2 for real, and\r\n   3 for BCD\r\n\r\nThe first digit points to the first data word; 2nd, 3rd, 4th, etc. point to\r\n2nd, 3rd, 4th data words, etc.\r\n\r\nDISPLACEMENT RECORDS IN UNFORMATTED TAPE - IN ONE LONG RECORD:\r\n\r\nĿ\r\n RECORD  WORD            CONTENT (UNFORMATTED)                   \r\nĴ\r\n    3     1     No. of words (excluding this first word) in this \r\n                record. (Integer)                                \r\n          2     External grid point number. (Integer)            \r\n          3     Point type (1=grid pt.  2=scalar pt.             \r\n                            3=extra pt. 4=modal pt., integer)    \r\n         4-9    Displacements. (Real parts,                      \r\n                t1,t2,t3,r1,r2,r3, single precision real)        \r\n         10-15  (COMPLEX data only)                              \r\n                Displacements. (Imaginary parts,                 \r\n                t1,t2,t3,r1,r2,r3, single precision real)        \r\n          :     Repeat words 2 thru 9 (or 15) as many times as   \r\n                there are grid points in OUGV file               \r\n    :     :     Repeat record 3 as many times as there are       \r\n                subcases or frequencies                          \r\n\r\n\r\nDISPLACEMENT HEADER RECORD FOR FORMATTED TAPE\r\n\r\nĿ\r\n RECORD  WORD          CONTENT (FORMATTED)                 FORMAT   \r\nĴ\r\n    2     1-2   \" CASE = \" or \" MODE = \"                  8 letters \r\n            3   Subcase number                                I8    \r\n            4   Zero or frequency                         1PE12.5   \r\n          5-6   \" WORDS =\"                                8 letters \r\n            7   NWDS, number of words per entry in next       I8    \r\n                record (=8 for REAL data, or =14 COMPLEX,           \r\n                for all displacement records)                       \r\n          8-9   \" INPUT =\"                                8 letters \r\n         10-11  Original GINO file name                      2A4    \r\n         12-13  \" COORD =\"                                8 letters \r\n         14-15  \" BASIC  \" or \"GLOBAL  \"                     2A4    \r\n         16-17  \"  CODE =\"                                8 letters \r\n         18-22  Format code                                  5I8    \r\n                8 digits per word,  1 for INTEGER                   \r\n                                    2 for REAL                      \r\n                Ex.  13222200       3 for BCD                       \r\n                                    0 not applicable                \r\n           23   NA4, number of words per entry in next        I8    \r\n                record, in A4-word count                            \r\n    3    1-32   Title,    32 BCD words                      32A4    \r\n    4    33-64  Subtitle, 32 BCD words                      32A4    \r\n    5    65-96  Label,    32 BCD words                      32A4    \r\n\r\n\r\nDISPLACEMENT RECORDS IN FORMATTED TAPE - IN MULTIPLE SHORT RECORDS:\r\n\r\nĿ\r\n RECORD  WORD                  CONTENT                         FORMAT   \r\nĴ\r\n    6     1     External grid point number. (Integer)           I8      \r\n          2     Point type (1=grid pt.  2=scalar pt.            I8      \r\n                3=extra pt. 4=modal pt., integer)                       \r\n         3-8    Displacements. (Real parts,                   6E12.6    \r\n                t1,t2,t3,r1,r2,r3, single precision real)               \r\n    7           (COMPLEX DATA only)                                     \r\n         1-6    Displacements (Imaginary parts,              16X,6E12.6 \r\n                t1,t2,t3,r1,r2,r3, single precision real)               \r\n    :     :     Repeat record 6 (records 6 and 7 if complex             \r\n                data) as many times as there are grid points            \r\n\r\n\r\nAt the end of each subcase, if the output tape OUTTP is formatted, a ZERO\r\nrecord (two records if data is complex) is written out to OUTTP tape. This\r\nZERO record has the same format as a DISPLACEMENT record, and consists of 8 or\r\n14 zeros (first two are integers, minus zeros). This ZERO record is not needed\r\nin the unformatted OUTTP output tape.\r\n\r\nRepeat the HEADER record, the DISPLACEMENT records, and the ZERO record\r\n(formatted OUTTP tape only) as many times as there are subcases. At the end of\r\nthe last subcase, or end of the input file OUGV, an ENDING record is written\r\nout. It has the same form as the HEADER record:\r\n\r\nDISPLACEMENT ENDING RECORD\r\n\r\nĿ\r\n RECORD  WORD    CONTENT (UNFORMATTED)                               \r\nĴ\r\n  LAST     1     Zero. (Integer)                                     \r\n           2     Zero. (Real)                                        \r\n           3     Zero. (Integer)                                     \r\n         4-5     \" -END-\".  (BCD)                                    \r\n        6-101    96 Blank words. (BCD)                               \r\n\r\n\r\nĿ\r\n RECORD  WORD       CONTENT (FORMATTED)                  FORMAT     \r\nĴ\r\n  LAST   1-2    \" CASE = \" or \" MODE = \"                 8 letters  \r\n           3    Minus 0 (Integer)                          I8       \r\n           4    Zero                                    1PE12.5     \r\n         5-6    \" WORDS =\"                               8 letters  \r\n           7    Minus 0 (Integer)                          I8       \r\n         8-11   \" INPUT = -END-  \"                    16 letters    \r\n        12-17   Blanks                                     4A4      \r\n LAST+1  1-32   Blanks                                    32A4      \r\n LAST+2  1-32   BLANKS                                    32A4      \r\n LAST+3  1-32   Blanks                                    32A4      \r\n\r\n\r\nIf OUGV is an element stress or an element force file, the stress or force\r\ndata have variable length depending on the type of element. The stress or\r\nforce records written to the OUTTP tape are therefore different from those of\r\nthe displacement records.\r\n\r\nThe element stress or force record has the following forms:\r\n\r\nĿ\r\n RECORD  WORD             CONTENT (UNFORMATTED)                       \r\nĴ\r\n    3      1      Number of words, excluding this first word,         \r\n                  in this record. (Integer)                           \r\n        2-NWDS    Element ID, stress or force data                    \r\n                  (Variable data types are described in \"CODE\")       \r\n           :      Repeat (2-NWDS) words as many times as there        \r\n                  are elements.                                       \r\n    :      :      Repeat record 3 as many times as there are subcases.\r\n\r\n\r\nwhere NWDS is the number of computer words per entry, and CODE is the 6-word\r\nformat code, as described in header record.\r\n\r\nor\r\n\r\nĿ\r\n RECORD  WORD           CONTENT (FORMATTED)                     FORMAT\r\nĴ\r\n    6    1-NA4    Element ID, stress or force data               33A4 \r\n                  (The data types are described in                    \r\n                  \"CODE\"; all integers in 2A4, real                   \r\n                  numbers in 3A4, and BCD in A4)                      \r\n    :      :      (Maximum record length is 132 columns (33A4);       \r\n                  continuation into next record(s) if necessary)      \r\n    :      :      Repeat above record(s) as many times as there       \r\n                  are elements                                        \r\n\r\n\r\nwhere NA4 is the number of words per entry in A4-word count, and CODE is\r\n5-word format code.\r\n\r\nNotice that the DATABASE module does not copy out the external-internal grid\r\npoints table in EQEXIN file, nor the coordinate transformation matrices in\r\nCSTM. The coordinate systems originally associated with the external grid\r\npoints are never mentioned in the OUTTP tape.\r\n\r\nIf you must copy the EQEXIN and CSTM files (both are in table forms), OUTPUT5\r\ncan be used.\r\n\r\nDesign Requirement\r\n\r\nThe DATABASE module is mapped in NASTRAN Links 2, 4, and 14. This module is\r\naccessible only through a NASTRAN DMAP Alter. Minimum open core requirement =\r\n10 x (total number of grid points) words.\r\n\r\nThe formatted outputs are flagged only by the parameter FORMAT. The formatted\r\noutput records are designed not to exceed 132 columns in length and include\r\nprinter carriage control. In most cases, I8-formats are used for integers and\r\nE12.6 for real data (no double precision words used); and BCD words are in\r\nmultiples of 2A4. The entire OUTTP file can be printed, or it can be edited by\r\na system editor. The formatted OUTTP file, if written on magnetic tape by a\r\ncomputer, can be used in another computer of a different manufacturer. The\r\nunformatted OUTTP file is more efficient, and the integer and real data are\r\nmore accurate. The grid point data and data of each connecting element type\r\nare written out unformatted in long records; that requires large working space\r\nin the computer system. On the other hand, only short records are written to\r\nthe formatted OUTTP file, and the working space requirement is less critical.\r\n\r\nRemarks\r\n\r\n1. Conversion of element stresses or forces to the basic coordinates is not\r\n   allowed.\r\n\r\n2. The mass matrix, MGG, can be one of the Oi input data blocks due to its\r\n   special characteristics and application. The mass engineering data will be\r\n   arranged in their external grid point order.\r\n\r\n   The formatted and unformatted records of the mass data are arranged\r\n   similarly to the grid point data, except the words 4, 5, 6 (X, Y, Z\r\n   coordinates of the grid point) are replaced by mass-x, mass-y, mass-z,\r\n   moment of inertia-x, moment of inertia-y, moment of inertia-z, words 4\r\n   through 9.\r\n\r\nDiagnostic Messages\r\n\r\nMessage numbers 3001, 3002, and 3008 may be issued by DATABASE.\r\n=PAGE=\r\nGINOFILE - GINO File Creation\r\n\r\nPurpose\r\n\r\nTo capture data from a scratch file of a preceding DMAP module and copy the\r\ndata to a NASTRAN GINO file. Type of data can be table or matrix. (Not\r\navailable for CDC.)\r\n\r\nDMAP Calling Sequence\r\n\r\nGINOFILE  /FILE/C,N,P1/C,N,P2/C,N,P3   $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nFILE       Any GINO output file name.\r\n\r\nParameters\r\n\r\nP1         Any 300-series scratch file number (301,302,303,...), Integer.\r\n\r\nP2         Additional records to be skipped on P1 file before data transfer\r\n           from P1 to FILE, Integer. GINOFILE will automatically skip over\r\n           header record if a header record exists in P1, or it will not skip\r\n           if it does not exist. (Default P2 = 0.) Data transfer starts from\r\n           P2+1 record after header (or no header) record on scratch file.\r\n\r\nP3         Last record to be copied, or up to an EOF mark on P1 file. Total\r\n           number of records copied is (P3 - P2), Integer. (Default is to\r\n           copy to EOF mark.)\r\n\r\nSubroutine\r\n\r\nGINOFL     Subroutine in GINOFILE module.\r\n\r\nMethod\r\n\r\nAt the end of a NASTRAN executable module, all the input files, output files,\r\nand scratch files are closed. The input files are read only and they will\r\nremain untouched. The output files are saved, and their names are preserved.\r\n(The output file names are actually allocated before the beginning of the\r\nmodule execution). The scratch files are released without any mechanism of\r\nsaving them. However, the data of the scratch files are still in the system\r\ndisc space, and will remain there until they are over-written by another part\r\n(or another module) of the NASTRAN program. It is at this point that GINOFILE\r\nmodule accesses a scratch file of the preceding module and copies the data to\r\na GINO output file, without changing the scratch file data. Tables or matrices\r\nare copied the same way, as they exist in the original form on the scratch\r\nfile.\r\n\r\nA NASTRAN GINO file always has a header record and a 6 word trailer. However,\r\nthe header record and the trailer are not required for a scratch file, and\r\nthey may or may not exist. The GINOFILE module will first test the header\r\nrecord of the scratch file and skip over it, if it exists. A header record is\r\nalways generated by GINOFILE for the new GINO file. The beginning record and\r\nthe ending record where data are to be transferred are under user control.\r\nFinally, a trailer for the output file is generated and saved. An EOF record\r\nis written to the new GINO file at the completion of the module.\r\n\r\nDesign Requirement\r\n\r\nThe GINOFILE module is mapped in all NASTRAN Links, except LINK1. You can\r\nrequest this module through a regular NASTRAN DMAP Alter.\r\n\r\nYou must request this module immediately following the DMAP module where the\r\nscratch file was used. It is your responsibility to see that the Executive\r\nSegment File Allocator, XSFA, does not come in between the preceding DMAP\r\nmodule and this GINOFILE module. If XSFA does intervene before GINOFILE\r\nexecution, the FIAT/OSCAR table (see XSFA Module description in section 4.9)\r\nis rearranged, and the scratch files are no longer accessible.\r\n\r\nIf XSFA does intervene, you can provoke the XSFA operation and FIAT/OSCAR\r\ntable rearrangement before the execution of preceding DMAP module so that XSFA\r\nwill not come in between this preceding and GINOFILE modules. The technique\r\nhere can involve a DMAP alter to PURGE some obsolete files, TABPT to print\r\nsome files that have been generated some time ago, and currently are not on\r\nthe FIAT/OSCAR table, or any other DMAP module that would disturb the NASTRAN\r\nfiling system. You could turn on DIAG 2 and observe the flow of the GINO files\r\ncreated or allocated by XSFA/FIAT/OSCAR operation.\r\n\r\nIf the scratch file in the preceding DMAP module was used repeatedly such as\r\nbeing used in a loop, only the \"last-time-used\" set of data on the scratch\r\nfile can be copied out by GINOFILE.\r\n\r\nYou should turn on DIAG 8,15,-n (where n is the current LINK number) and see\r\nthat the scratch file, FORTRAN unit number, and associated trailers are being\r\nprocessed correctly.\r\n\r\nDiagnostic Messages\r\n\r\nMessage numbers 3001, 3002, and 3008 may be issued by GINOFILE.\r\n=PAGE=\r\nINPUT - Input Generator\r\n\r\nPurpose\r\n\r\nGenerates the majority of the bulk data cards for selected academic problems.\r\nUsed in many of the official NASTRAN Demonstration Problems.\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUT  I1,I2,I3,I4,I5 / 0l,02,03,04,05 / C,N,a / C,N,b / C,N,c $\r\n\r\nInput Data Blocks\r\n\r\nAppropriate preface outputs.\r\n\r\nOutput Data Blocks\r\n\r\nAppropriate for the problem being generated.\r\n\r\nParameters\r\n\r\nThe three parameters are used in conjunction with data read by INPUT from the\r\ninput stream to define the problem being generated.\r\n\r\nMethod\r\n\r\nSince INPUT is intimately related to bulk data card input, a detailed\r\ndescription of this module has been placed in Section 2.6.\r\n=PAGE=\r\nINPUTT1 - Read User Files\r\n\r\nPurpose\r\n\r\nRecovers up to five data blocks from a user file (on either tapes or mass\r\nstorage devices) and checks your file label where the expected format is that\r\ncreated by Utility Module OUTPUT1. Also used to position your file (including\r\nhandling of multiple reel tapes) prior to reading the data blocks. Multiple\r\ncalls are allowed. A message is written for each data block successfully\r\nrecovered and after each tape reel switch. (User tape reel switching is\r\navailable only on the IBM and UNIVAC versions.) (The companion module is\r\nOUTPUT1.)\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUTT1 / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4/ $\r\n\r\nInput Data Blocks\r\n\r\nInput data blocks are not used in this module call statement.\r\n\r\nOutput Data Blocks\r\n\r\nDBi        Data blocks which will be recovered from one of the NASTRAN\r\n           permanent files INPT, INP1, INP2 through INP9. Any or all of the\r\n           output data blocks may be purged. Only nonpurged data blocks will\r\n           be taken from the file. The data blocks will be taken sequentially\r\n           from the file starting from a position determined by the value of\r\n           the first parameter. Note that the output data block sequence\r\n           A,B,,, is equivalent to ,A,,B, or ,,,A,B.\r\n\r\nParameters\r\n\r\nParameters P1 and P2 are integer inputs. P3 and P4 are BCD.\r\n\r\n1. The meaning of the first parameter (P1) value is given in the table below.\r\n   (The default value is 0.)\r\n\r\nĿ\r\n  P1 Value                   Meaning                                 \r\nĴ\r\n     +n     Skip forward n data blocks before reading.               \r\n                                                                     \r\n      0     Data blocks are read starting at current position.       \r\n            Current position for first use of a file is at label     \r\n            (P3). Hence P3 counts as one data block.                 \r\n                                                                     \r\n     -1     Rewind before reading, position file past label (P3).    \r\n                                                                     \r\n     -2*    Mount new reel and position new reel past label (P3)     \r\n            before reading.                                          \r\n                                                                     \r\n     -3     Print data block names and then rewind before reading.   \r\n                                                                     \r\n     -4*    Current tape reel will have an end-of-file mark          \r\n            written on it, will be rewound and dismounted, and       \r\n            then a new tape reel will be mounted with ring out       \r\n            and rewound before reading the data blocks. This         \r\n            option should be used when a call to INPUTT1 is          \r\n            preceded by a call to OUTPUT1 using the same User Tape.  \r\n                                                                     \r\n     -5     Search user file for first version of data block         \r\n            (DBi) requested. If any (DBi) are not found, fatal       \r\n            termination occurs.                                      \r\n                                                                     \r\n     -6     Search user file for final version of data block         \r\n            (DBi) requested. If any (DBi) are not found, fatal       \r\n            termination occurs.                                      \r\n                                                                     \r\n     -7     Search user file for first version of data block         \r\n            (DBi) requested. If any (DBi) are not found, a           \r\n            warning message is written on the output file and the    \r\n            run continues.                                           \r\n                                                                     \r\n     -8     Search user file for final version of data block         \r\n            (DBi) requested. If any (DBi) are not found, a           \r\n            warning message is written on the output file and the    \r\n            run continues.                                           \r\n\r\n\r\n* Valid only for files that reside on physical tape. User tape reel switching is\r\navailable only on the IBM and UNIVAC versions.\r\n\r\n2. The second parameter (P2) for this module is your File Code shown in the\r\n   table below. (The default value is 0.)\r\n\r\nĿ\r\n  User File Code   GINO File Name  \r\nĴ\r\n         0               INPT      \r\n         1               INP1      \r\n         2               INP2      \r\n         3               INP3      \r\n         4               INP4      \r\n         5               INP5      \r\n         6               INP6      \r\n         7               INP7      \r\n         8               INP8      \r\n         9               INP9      \r\n\r\n\r\n3. The third parameter (P3) for this module is used as your File Label for\r\n   NASTRAN identification. The label (P3) is an alphanumeric variable of eight\r\n   characters or less (the first character must be alphabetic). The value of\r\n   P3 must match a corresponding value on your file. The comparison of P3 and\r\n   the value on your file is dependent on the value of P1 as shown in the\r\n   table below. (The default value for P3 is XXXXXXXX).\r\n\r\nĿ\r\n P1 Value    File Label Checked  \r\nĴ\r\n    +n               No          \r\n     0               No          \r\n    -1               Yes         \r\n    -2         Yes (On new reel) \r\n    -3        Yes (Warning Check)\r\n    -4         Yes (On new reel) \r\n    -5               Yes         \r\n    -6               Yes         \r\n    -7               Yes         \r\n    -8               Yes         \r\n\r\n\r\n4. If the fourth parameter, P4, is set to \"MSC\", the FORTRAN input tape is\r\n   assumed to be written in MSC/INPUTT1 compatible record formats. Default is\r\n   blank.\r\n\r\nExamples\r\n\r\n(Most examples use the default value for P2 and P3 which means the use of\r\npermanent NASTRAN file INPT and NASTRAN user file label of XXXXXXXX.)\r\n\r\n1. INPUTT1  / A,B,,, / $\r\n\r\nRead data blocks A and then B from user file INPT starting from wherever INPT\r\nis currently positioned. If this is the first module to manipulate INPT, the\r\nfile will automatically be initially positioned at the beginning of your file\r\nlabel. In this case, the first parameter of INPUTT1 must be set to either one\r\n(1) to skip past the label or minus one (-1) to rewind the file and position\r\nit at the beginning of the first data block (A).\r\n\r\n2. INPUTT1  / ,,,, / C,N,-1 / C,N,3 $\r\n\r\nRewind INP3 and check user tape label.\r\n\r\n3. INPUTT1  / A,,,, / C,N,-2 $\r\n\r\nMount a new reel of file (without write ring) for INPT and read data block A\r\nfrom the first file position. The label of the new reel of tape will be\r\nchecked.\r\n\r\n4. INPUTT1  / ,,,, / C,N,-2 $\r\n   INPUTT1  / A,,,, / C,N,0 $\r\n\r\nThis is equivalent to example 3.\r\n\r\n5. INPUTT1  / A,B,C,D,E / C,N,14 $\r\n\r\nStarting from the current position, skip forward 14 data blocks on INPT and\r\nread the next five data blocks into A, B, C, D, and E. Do not check your file\r\nlabel.\r\n\r\n6. INPUTT1  / ,,,, / C,N,-3 $\r\n   INPUTT1 / A,B,C,D,E / C,N,14 $\r\n\r\nA complete list of data block names will be provided including a warning check\r\nof your file label. Then, it will be the same as example 5 only if the current\r\nposition in that example is at the beginning of the first data block.\r\n\r\n7. INPUTT1  /  ,,,, / C,N,-2 $\r\n   INPUTT1  /  ,,,, / C,N,-3 $\r\n   INPUT    /  A,B,,, / C,N,14 $\r\n\r\nMount a new reel of tape for INPT and check the new reel's label. Print the\r\nnames of all data blocks on the new tape and give a warning check for tape\r\nlabel. Read the 15th and 16th data blocks into A and B. INPT will end up\r\npositioned at the beginning of the 17th data block if present.\r\n\r\nMore Difficult Examples Using Both INPUTT1 and OUTPUT1\r\n\r\nExample 1\r\n\r\na. Objectives:\r\n\r\n   1. Obtain printout of the names of all data blocks on INPT.\r\n\r\n   2. Skip past the first four data blocks, replace the next two with data\r\n      blocks A and B, and retain the next three data blocks.\r\n\r\n   3. Obtain printout of the names of all data blocks on INPT after 2 has been\r\n      done.\r\n\r\nb. DMAP Sequence:\r\n\r\nBEGIN $                                     (1)\r\nINPUTT1  / ,,,, / C,N,-3  $                 (2)\r\nINPUTT1  / ,,T1,T2,T3 / C,N,6 $             (3)\r\nINPUTT1  / ,,,, / C,N,-1  $                 (4)\r\nOUTPUT1  A,B,T1,T2,T3 // C,N,4   $          (5)\r\nOUTPUT1 , ,,,, // C,N,-3   $                (6)\r\nEND $                                       (7)\r\n\r\nc. Remarks:\r\n\r\n   1. DMAP sequence (2) accomplishes objective 1 and rewinds INPT.\r\n\r\n   2. DMAP sequence (3) recovers data blocks 7, 8, and 9. This is necessary\r\n      because they would be effectively destroyed by anything written in front\r\n      of them on INPT.\r\n\r\n   3. DMAP sequence (4) rewinds INPT.\r\n\r\n   4. DMAP sequence (5) accomplishes objective 2.\r\n\r\n   5. DMAP sequence (6) accomplishes objective 3 and leaves INPT positioned\r\n      after the ninth file, ready to receive additional data blocks.\r\n\r\n   6. Note that INPUTT1 is used whenever possible to avoid the possibility of\r\n      mistakenly writing on INPT prematurely.\r\n\r\nExample 2\r\n\r\na. Objectives:\r\n\r\n   1. Write data blocks A, B, and C on INPT.\r\n\r\n   2. Obtain printout of the names of all data blocks on INPT after step 1.\r\n\r\n   3. Make two copies of the file created in 1.\r\n\r\n   4. Add data blocks D and E to one of the files.\r\n\r\n   5. Obtain the names of all data blocks on INPT after 4.\r\n\r\nb. DMAP Sequence:\r\n\r\nBEGIN $                                     (1)\r\nOUTPUT1 A,B,C,, // C,N,-1 $                 (2)\r\nOUTPUT1 , ,,,, // C,N,-3 $                  (3)\r\nOUTPUT1 A,B,C,, // C,N,-2  $                (4)\r\nOUTPUT1 A,B,C,, // C,N,-2 $                 (5)\r\nOUTPUT1 D,E,,, // C,N,0 $                   (6)\r\nOUTPUT1 , ,,,, // C,N,-3 $                  (7)\r\nEND $                                       (8)\r\n\r\nc. Remarks:\r\n\r\n   1. DMAP Sequence (2) accomplishes objective 1.\r\n\r\n   2. DMAP Sequence (3) accomplishes objective 2. The statement INPUTT1 / ,,,,\r\n      / C,N,-3 $ will do the same thing and add a rewind.\r\n\r\n   3. Statements (4) and (5) accomplish objective 3.\r\n\r\n   4. Statement (6) accomplishes objective 4 where the third file tape is\r\n      used.\r\n\r\n   5. Statement (7) accomplishes objective 5. The statement INPUTT1 / ,,,, /\r\n      C,N,-3 $ will do the same thing and add a rewind.\r\n\r\n   6. On machines where tape reel switching is not implemented, the second\r\n      parameter can be used as follows:\r\n\r\n      BEGIN $\r\n      OUTPUT1 A,B,C,, // C,N,-1 $\r\n      OUTPUT1 , ,,,, // C,N,-3 $\r\n      OUTPUT1 A,B,C,, // C,N,-1 / C,N,1 $\r\n      OUTPUT1 A,B,C,, // C,N,-1 / C,N,2 $\r\n      OUTPUT1 D,E,,, // C,N,0 / C,N,2 $\r\n      OUTPUT1 , ,,,, // C,N,-3 / C,N,2 $\r\n      END $\r\n=PAGE=\r\nINPUTT2 - Read User-Written FORTRAN Files\r\n\r\nPurpose\r\n\r\nRecovers up to five data blocks from a FORTRAN-written user file (either on\r\ntape or mass storage). This file may be written either by a user-written\r\nFORTRAN program or by the companion module OUTPUT2. The Programmer's Manual\r\ndescribes the format of the file which must be written in order to be readable\r\nby INPUTT2.\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUTT2  / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 /V,N,P4 /\r\n           V,N,P5 / V,N,P6 $\r\n\r\nInput Data Blocks\r\n\r\nInput data blocks are not used in this module call statement.\r\n\r\nOutput Data Blocks\r\n\r\nDBi        Data blocks which will be recovered from one of the NASTRAN\r\n           FORTRAN tape files UT1, UT2, through UT5. Any or all of the output\r\n           data blocks may be purged. Only non-purged data blocks will be\r\n           taken from the file. The data blocks will be taken sequentially\r\n           from the file starting from a position determined by the value of\r\n           the first parameter. Note that the output data block sequence\r\n           A,B,,, is equivalent to ,A,,B, or ,,,A,B.\r\n\r\nParameters\r\n\r\nParameters P1, P2, P4, and P5 are integer inputs. P3 and P6 are BCD.\r\n\r\n1. The meaning of the first parameter (P1) value is given in the table below.\r\n   (The default value is 0.)\r\n\r\nĿ\r\n  P1 Value                   Meaning                                 \r\nĴ\r\n     +n     Skip forward n data blocks before reading.               \r\n                                                                     \r\n      0     Data blocks are read starting at the current             \r\n            position. The current position for the first use of a    \r\n            file is at the label (P3). Hence, P3 counts as one       \r\n            data block.                                              \r\n                                                                     \r\n     -1     Rewind before reading, position file past label (P3).    \r\n                                                                     \r\n     -3     Print data block names and then rewind before            \r\n            reading.                                                 \r\n                                                                     \r\n     -5     Search user file for first version of data block         \r\n            (DBi) requested. If any (DBi) are not found, fatal       \r\n            termination occurs.                                      \r\n                                                                     \r\n     -6     Search user file for final version of data block         \r\n            (DBi) requested. If any (DBi) are not found, fatal       \r\n            termination occurs.                                      \r\n                                                                     \r\n     -7     Search user file for first version of data block         \r\n            (DBi) requested. If any (DBi) are not found, a           \r\n            warning message is written on the output file and the    \r\n            run continues.                                           \r\n                                                                     \r\n     -8     Search user file for final version of data block         \r\n            (DBi) requested. If any (DBi) are not found, a           \r\n            warning message is written on the output file and the    \r\n            run continues.                                           \r\n\r\n\r\nImportant Note\r\n\r\nOn the UNIVAC and DEC VAX versions, the FORTRAN files used with the\r\nINPUTT2/OUTPUT2 modules are automatically rewound every time a link change\r\noccurs in the program. In general, a link change can be assumed to occur\r\nwhenever a DMAP statement other than an INPUTT2 statement follows an INPUTT2\r\nstatement; similarly, whenever a DMAP statement other than an OUTPUT2\r\nstatement follows an OUTPUT2 statement. For this reason, the following\r\ncautions should be noted on these versions when using the various values for\r\nthe parameter P1 in an INPUTT2 or OUTPUT2 DMAP statement.\r\n\r\nĿ\r\n                 Cautions for UNIVAC and DEC VAX versions              \r\nĴ\r\n  Parameter P1                    Remarks                             \r\nĴ\r\n    0 or +n        You must be certain that this INPUTT2              \r\n                   statement immediately follows another INPUTT2      \r\n                   statement; or that this OUTPUT2 statement          \r\n                   immediately follows another OUTPUT2 statement, to  \r\n                   avoid a link change that would cause the           \r\n                   rewinding of the FORTRAN file.                     \r\n                                                                      \r\n  -1 to -8         No cautions.                                       \r\n                                                                      \r\n      -9           You must be certain that this OUTPUT2              \r\n                   statement immediately follows another OUTPUT2      \r\n                   statement, to avoid a link change that would       \r\n                   cause the rewinding of the FORTRAN file.           \r\n\r\n\r\n2. The second parameter (P2) for this module is the FORTRAN unit number from\r\n   which the data blocks will be read. The allowable values for this parameter\r\n   are highly machine- and installation-dependent. Reference should be made to\r\n   Section 4 of the Programmer's Manual for a discussion of this subject.\r\n\r\n   For CDC machine (default is 11):\r\n\r\nĿ\r\n User File Code   FORTRAN File Name \r\nĴ\r\n        11               UT1        \r\n        12               UT2        \r\n\r\n\r\n   For all others (default is INPT):\r\n\r\nĿ\r\n User File Code   FORTRAN File Name \r\nĴ\r\n        14              INPT        \r\n        15              INP1        \r\n        16              INP2        \r\n        :                :          \r\n        23              INP9        \r\n\r\n\r\n   IBM/MVS only: INPT is user file code 24.\r\n\r\n3. The third parameter (P3) for this module is used as the FORTRAN User File\r\n   Label for NASTRAN identification. The label (P3) is an alphanumeric\r\n   variable of eight characters or less (the first character must be\r\n   alphabetic). The value of P3 must match a corresponding value on the\r\n   FORTRAN user file. The comparison of P3 and the value on your file is\r\n   dependent on the value of P1 as shown in the table below. (The default\r\n   value for P3 is XXXXXXXX.)\r\n\r\nĿ\r\n     P1 Value    File Label Checked \r\nĴ\r\n        +n               No         \r\n         0               No         \r\n        -1               Yes        \r\n        -3       Yes (Warning Check)\r\n        -5               Yes        \r\n        -6               Yes        \r\n        -7               Yes        \r\n        -8               Yes        \r\n\r\n\r\n4. The fourth parameter (P4) is not used. P4 is used only in the OUTPUT2\r\n   module to specify the maximum record size.\r\n\r\n5. If the fifth parameter (P5) is non-zero, the FORTRAN tape was written with\r\n   sparse matrix format by the OUTPUT2 module. Therefore, the P5 parameters\r\n   for INPUTT2 and OUTPUT2 should be set the same.\r\n\r\n   Default P5 is zero.\r\n\r\n6. If the sixth parameter (P6) is set to \"MSC\", INPUTT2 will process the\r\n   FORTRAN input tape as if it were generated previously from an MSC/OUTPUT2\r\n   run.\r\n\r\n   Default P6 is blank.\r\n\r\nExamples\r\n\r\nINPUTT2 is intended to have the same logical action as the GINO User File\r\nmodule INPUTT1 except for tape reel switching. It is therefore suggested that\r\nthe examples shown under module INPUTT1 be used for INPUTT2 as well, excepting\r\nthe ones involving tape reel switching.\r\n=PAGE=\r\nINPUTT3 - Auxiliary Input File Processor\r\n\r\nPurpose\r\n\r\nReads matrix data from a specially formatted file into specified GINO matrix\r\ndata blocks.\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUTT3   /01,02,03,04,05/ V,N,UNIT/ V,N,ERRFLG/ V,N,TEST $\r\n\r\nInput Data Blocks\r\n\r\nNo GINO data blocks. See parameter UNIT for FORTRAN input unit.\r\n\r\nOutput Data Blocks\r\n\r\n0i         GINO written matrix data blocks. Any or all of the output data\r\n           blocks may be purged.\r\n\r\nParameters\r\n\r\nUNIT       Input, FORTRAN input tape unit number; default is 11. Tape is\r\n           rewound before read if UNIT is negative.\r\n\r\nERRFLG     Input, error control:\r\n\r\n           = 1, job terminated if data block on tape not found.\r\n           = 0, no termination if data block not found.\r\n\r\nTEST       Input, file name check:\r\n\r\n           = 1, will search tape for DMAP 0i tape match.\r\n           = 0, no check of file names on tape and DMAP 0i names.\r\n\r\nRemarks\r\n\r\n1. Input tape unit must be written according to special format specification,\r\n   including header, end-of-data mark, and matrix data.\r\n=PAGE=\r\nINPUTT4 - Read User Tape\r\n\r\nPurpose\r\n\r\nReads user tape, as generated by OUTPUT4, MSC/NASTRAN/OUTPUTi, where i = 1, 2,\r\n3, or 4. Recovers up to five matrix data blocks from a user tape and checks\r\nyour tape label where the expected format is that created by utility modules\r\nOUTPUT1, OUTPUT2, or OUTPUT4 of the MSC/NASTRAN. (Your tape may reside either\r\non physical tape or on mass storage devices.) Also used to position your tape\r\nprior to reading the data blocks. Multiple calls to INPUTT4 are allowed. A\r\nmessage is written for each data block successfully recovered. User tape from\r\nOUTPUT1 and OUTPUT2 is binary. Tape from OUTPUT4 can be binary or ASCII.\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUTT4   / DB1,DB2,DB3,DB4,DB5 / V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nDBi              Data blocks which will be recovered from one of the NASTRAN\r\n                 permanent files INPT, INP1, INP2 through INP9 (UT1 or UT2\r\n                 for CDC machine). Any or all of the output data blocks may\r\n                 be purged. Only non-purged data blocks will be taken from\r\n                 the file. The data blocks will be taken sequentially from\r\n                 the file starting from a position determined by the value of\r\n                 the first parameter. Note that the output data block\r\n                 sequence A,B,,, is NOT equivalent to ,A,,B. A purged file on\r\n                 the output data block list will cause skipping of one data\r\n                 block on the input tape. (See Example 1.)\r\n\r\nParameters\r\n\r\nParameters P1, P2, and P4 are integer inputs. P3 is BCD.\r\n\r\nP1               Tape position control.\r\n                 See P1 of INPUTT1 module if P4 is -1.\r\n                 See P1 of INPUTT2 module if P4 is -2.\r\n                 If P4 is greater then -1, P1 takes on following\r\n                 meanings:\r\n                       P1 = -3, print data block names on tape, then\r\n                       rewind before reading.\r\n                       P1 = -2, rewind tape at end.\r\n                       P1 = -1, rewind tape before reading.\r\n                       P1 =  0, read tape starting from current tape\r\n                       position.\r\n                       P1 =  n, skip forward n records (plus tape\r\n                       header record if it exists) starting at current\r\n                       tape position.\r\n\r\nP2               FORTRAN input tape number. P2 is positive if tape was\r\n                 written in binary records, and is negative if in ASCII\r\n                 records.\r\n\r\nP3               Tape label. Default is \"XXXXXXXX\". P3 is used only\r\n                 when P4 = -1 or -2.\r\n\r\nP4               Tape module control, Integer.\r\n                 P4 = -1, tape was originally written by MSC/OUTPUT1\r\n                 module.\r\n                 P4 = -2, tape was originally written by MSC/OUTPUT2\r\n                 module.\r\n                 P4 = -4, tape was originally written by MSC/OUTPUT4\r\n                 module.\r\n                 P4 =  0, tape was written by OUTPUT4 module (default).\r\n                 P4 >= 1, see Remarks 6 and 7.\r\n\r\nParameters equivalence for COSMIC/INPUTT4 and MSC/INPUTT4/OUTPUT4:\r\n\r\n                 COSMIC/INPUTT4         MSC/INPUTT4/OUTPUT4\r\n                 --------------         -------------------\r\n                 P1                     NMAT (number of matrices on tape)\r\n                 P2                     P2\r\n                 P3                     P1\r\n                 P4                     BCDOPT\r\n\r\nMethods\r\n\r\nIf the input tape was created by MSC/OUTPUT1, INPUTT4 calls COSMIC/INPUTT1\r\nmodule to read the tape, with additional information that the tape was not\r\ncreated by COSMIC/OUTPUT1 module. Similarly, INPUTT4 module calls\r\nCOSMIC/INPUTT2 to process the MSC/OUTPUT2 tape.\r\n\r\nIf the input tape was created by COSMIC or MSC OUTPUT4 module, INPUTT4 module\r\ncalls a special subroutine, INPUT4, to read the tape, formatted (ASCII), or\r\nbinary (unformatted).\r\n\r\nExamples\r\n\r\n1.    Input tape INP1 (logical unit 15) contains 5 matrices, written by COSMIC\r\n      or MSC/OUTPUT4, binary format. We want to copy file 3 to A, and file 5\r\n      to B.\r\n\r\n      INPUTT4   /,,A,,B/-1/15   $ REWIND, READ & ECHO HEADER RECORDS\r\n\r\n2.    To copy the first 2 files of a formatted tape INP2 (unit 16), written by\r\n      COSMIC/OUTPUT4, formatted.\r\n\r\n      INPUTT4   /A,B,,,/-1/-16  $\r\n\r\n3.    Print the data block names on INP3 tape (Tape Code 3), rewind, and copy\r\n      files 2 and 3 of an INP3 tape written by MSC/OUTPUT1. Tape contains a\r\n      header record (record 0), and tape id \"MYFILE\".\r\n\r\n      INPUTT4   /,A,B,,/-3/3/*MYFILE*/-1  $\r\n\r\nRemarks\r\n\r\n1.    Companion OUTPUT4 module does not generate OUTPUT1 or OUTPUT2 type of\r\n      records.\r\n\r\n2.    GINO buffer sizes in COSMIC/NASTRAN and MSC/NASTRAN must be\r\n      synchronized. See NASTRAN BUFFSIZE option.\r\n\r\n3.    INPUTT4 module cannot accept mixed output files from MSC/OUTPUT1,\r\n      OUTPUT2 and OUTPUT4 on one input tape.\r\n\r\n4.    INPUTT4 module may not process ASCII records correctly from an\r\n      MSC/OUTPUT4 input tape, due to insufficient information in the MSC\r\n      User's Manual.\r\n\r\n5.    INPUTT4 module does not handle any table data block, including the six\r\n      special tables KELM, MELM, BELM, KDICT, MDICT, and BDICT, that are\r\n      handled specially in the OUTPUT4 module.\r\n\r\n6.    If the input tape is written in ASCII records (P2 < 0 and P4 > 0), the\r\n      following formats are used to read the tape:\r\n\r\n           If P4=1, integers are read in I13, and single precision real data\r\n           in 10E13.6, or integers are read in I16, and double precision real\r\n           data in 8D16.9. The selection of formats must agree with the P3\r\n           setting in OUTPUT4 module, or the precision of the matrix on input\r\n           tape.\r\n\r\n           If P4=2, integers are read in I16, and single precision real data\r\n           in 8E16.9. This option is available only for machines with long\r\n           word size, 60 bits or more per word.\r\n\r\n           The matrix header record is read in by (1X,4I13,5X,2A4).\r\n\r\n7.    See OUTPUT4 module for record construction.\r\n\r\n8.    The tape label P3 is not used in INPUTT4 and OUTPUT4.\r\n=PAGE=\r\nINPUTT5 - Read User-Written FORTRAN File\r\n\r\nPurpose\r\n\r\nRecovers up to five data blocks from a FORTRAN-written user file, formatted or\r\nunformatted. (The FORTRAN file may reside either on physical tape or on a mass\r\nstorage device.) This file may be written either by a user-written FORTRAN\r\nprogram or by the companion module OUTPUT5. The Programmers' Manual describes\r\nthe format of your tape which must be written in order to be readable by\r\nINPUTT5. The unformatted binary tape can only be read by a computer of the\r\nsame manufacturer as the one that created the tape. The formatted tape can be\r\ncreated and read by different computers (CDC, UNIVAC, IBM, and VAX). The data\r\nblocks to be recovered can be matrices, tables, or both.\r\n\r\nDMAP Calling Sequence\r\n\r\nINPUTT5  /DB1,DB2,DB3,DB4,DB5/C,N,P1/C,N,P2/C,N,P3/C,N,P4 $\r\n\r\nINPUTT5 is intended to have the same logical action as the FORTRAN User File\r\nmodule INPUTT2 and the GINO User File module INPUTT1 except for formatted\r\ntape. It is therefore suggested that the examples shown under modules INPUTT2\r\nand OUTPUT1 be used for OUTPUT5 as well, excepting the addition of the P4\r\nparameter.\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nDBi        Data blocks which will be recovered from one of the NASTRAN tape\r\n           files INP1, INP2 through INP9 (UT1, UT2 for CDC computer). Any or\r\n           all of the output data blocks may be purged. Only non-purged data\r\n           blocks will be taken from your tape. The data blocks will be taken\r\n           sequentially from the tape starting from a position determined by\r\n           the value of the first parameter. Note that any purged output file\r\n           will cause skipping of a corresponding file in your input tape.\r\n           The output data block sequence A,B,,, is not equivalent to ,A,,B,\r\n           or ,,,A,B.\r\n\r\nParameters\r\n\r\n1. The meanings of the first three parameter values (P1, P2, P3) are the same\r\n   as those described for INPUTT2 Module, except (1) values -5 through -8 for\r\n   P1 are not available, and a new P1=-9 to rewind input tape; and (2) your\r\n   file code and the FORTRAN file name are given below. (The default value for\r\n   P2 is 16, or 12 for a CDC computer.)\r\n\r\nĿ\r\n FORTRAN LOGICAL                          \r\n    UNIT, P2           USER FILE CODE     \r\nĴ\r\n       11              UT1 (CDC only)     \r\n       12              UT2 (CDC only)     \r\n       14              INPT (UNIVAC,VAX)  \r\n       15              INP1 (All          \r\n       16              INP2  machines     \r\n        :                :   except       \r\n       23              INP9  CDC)         \r\n       24              INPT (IBM only)    \r\n\r\n\r\n2. The fourth parameter (P4) for this module is used to specify whether your\r\n   tape was written with formats (P4=1 or 2), or binary tape (P4=0). Default\r\n   is P4=0.\r\n\r\n   On the formatted tape, the selection of formats for real data must be\r\n   consistent with the precision of the matrix data block coming from the\r\n   input tape. If P4=1, and the matrix is in single precision, format 10E13.6\r\n   is used.\r\n\r\n   If the matrix is in double precision and P4=1, 5D23.17 is selected. Format\r\n   I13 is used for integers in both cases.\r\n\r\n   For machines with long words only, 60 bits or more per word, the single\r\n   precision format can be switched to 5E23.17 for numeric accuracy by setting\r\n   P4 to 2.\r\n\r\n   A fatal error in reading the input tape may occur if P4 is set erroneously\r\n   with respect to the content of the tape.\r\n\r\nMethods\r\n\r\nSince INPUTT5 is intended to be a companion module to OUTPUT5, it is therefore\r\nsuggested that you should refer to the Methods and Remarks sections of the\r\nOUTPUT5 module for input tape structure.\r\n\r\nSubroutine INPTT5 is the main driver for the INPUTT5 module. Its primary\r\nfunction is to read matrix data blocks from your input tape. When a table data\r\nblock is encountered, INPTT5 calls subroutine TABLEV to process the data. Your\r\ninput tape always begins with a tape ID record which tells when the tape was\r\ngenerated, on what machine, tape identification, formatted or unformatted\r\ntape, and NASTRAN system buffer size. This tape ID record can be skipped, or\r\nread by the following FORTRAN code:\r\n\r\n       INTEGER TAPEID(2),MACHIN(2),DATE(3),BUFSIZ,P4X\r\n       READ (TAPE   ) TAPEID,MACHIN,DATE,BUFSIZ,P4X   or\r\n       READ (TAPE,10) TAPEID,MACHIN,DATE,BUFSIZ,P4X\r\n   10  FORMAT (2A4,2A4,3I8,I8,I8)\r\n\r\nUnformatted Tape\r\n\r\nThe rest of the unformatted tape can be read by the following FORTRAN code:\r\n\r\n   READ (TAPE) L,J,K,(ARRAY(I),I=J,K)\r\n\r\nwhere L is a control word:\r\n   L  = 0, ARRAY contains matrix (or table) header record\r\n      = +n, ARRAY contains data for the nth column of the matrix\r\n      = -1, ARRAY contains end of matrix record.\r\nThe ARRAY below J and above K are zeros.\r\n\r\nThe matrix header record and the table header record (L=0) differ only on the\r\n5th and 6th words of ARRAY. If both words are zeros, it is a table header, and\r\nthe entire table data can be read by:\r\n\r\n   READ (TAPE) L,(ARRAY(I),I=1,L)\r\n\r\nwhere ARRAY may contain integers, BCD words, and real single and double\r\nprecision numbers.\r\n\r\nTable data ends with a (1,0.0) record.\r\n\r\nFormatted Tape\r\n\r\nFor matrix data, the rest of the formatted tape can be read by:\r\n\r\n       READ (TAPE,20) L,J,K,(ARRAY(I),I=J,K)\r\n   20  FORMAT (3I8,/,(10E13.6))    (for single precision data), or\r\n   20  FORMAT (3I8,/,(5D26.17))    (for double precision data), or\r\n   20  FORMAT (3I8,/,(5E26.17))    (P4 = 2)\r\n\r\nwhere the control words L, J, and K are the same as in the unformatted case,\r\nand the data type, single or double precision, is determined already by the\r\n4th word of the matrix trailer embedded in the matrix header record. (See\r\nRemark 5 of OUTPUT5 module)\r\n\r\nFor table data, the rest of the formatted tape can be read by:\r\n\r\n       CHARACTER*5 ARRAY(500)\r\n       READ (TAPE,30) J,(ARRAY(I),I=1,J)\r\n   30  FORMAT (I10,24A5,/,(26A5))\r\n\r\nNotice the formatted record was written in the units of 5-byte character\r\nwords, and the first byte of each unit indicates what data type follows. The\r\nfollowing table summarizes the method to decode the character data in ARRAY.\r\n\r\nĿ\r\n              DATA TYPE                         \r\n FIRST BYTE   OF ARRAY    UNITS USED   FORMAT   \r\nĴ\r\n     \"/\"      BCD word         1         A4     \r\n     \"I\"      Integer          2         I9     \r\n     \"R\"      Real, s.p.       3        E14.7   \r\n     \"D\"      Real, d.p.       3        D14.7   \r\n     \"X\"      Filler           1         4X     \r\n\r\n\r\nTable data ends with a (1,\"0\") record.\r\n\r\nExamples\r\n\r\n$  COPY KJI AND KGG TO INP1 (UNIT 15), SEQUENTIAL FORMATTED TAPE\r\n   OUTPUT5 KJI,KGG,,,//-1/15/*MYTAPE*/1  $\r\n\r\n$  RECOVER THE 2 FILES FROM INP1 AND MAKE THEM NASTRAN GINO FILES\r\n   INPUTT5 /OKJI,OKGG,,,/-1/15/*MYTAPE*/1  $\r\n\r\nRemarks\r\n\r\n1. Since open core is used to receive data from user input tape, INPUTT5 can\r\n   handle all kinds and all sizes of data blocks.\r\n\r\n2. UNIVAC and VAX users should read the Important Note at the end of the\r\n   description of the INPUTT2 module.\r\n\r\n3. If you assemble your own matrix in INPUTT5 format, and use the INPUTT5\r\n   module to read it into NASTRAN, be sure that the density term (DENS) of the\r\n   matrix trailer is set to nonzero. Otherwise your matrix will be treated as\r\n   a table and everything goes haywire.\r\n\r\n4. Since INPUTT5 is a companion module of OUTPUT5, it is recommended that you\r\n   read the Methods and Remarks sections of the OUTPUT5 module.\r\n=PAGE=\r\nLAMX - LAMA Data Block Editor or Generator\r\n\r\nPurpose\r\n\r\nAllows modification of mode frequencies, which is useful in dynamics rigid\r\nformats. This can be used, for example, to test the effects of structural\r\nuncertainties. It does not require a new eigensolution.\r\n\r\nDMAP Calling Sequence\r\n\r\nLAMX   EDIT,LAMA/LAMB/C,Y,NLAM $\r\n\r\nInput Data Blocks\r\n\r\nEDIT       The editing instruction in the form of a DMI matrix.\r\nLAMA       An output of the READ module which contains frequencies and\r\n           generalized masses. If purged, the output is generated solely from\r\n           EDIT information.\r\n\r\nOutput Data Blocks\r\n\r\nLAMB       An edited version of LAMA, which is suitable for input to GKAM and\r\n           OFP modules, or a matrix from LAMA.\r\n\r\nParameters\r\n\r\nNLAM       Integer. The maximum number of modes in the output data block. If\r\n           NLAM = 0, the number of modes in LAMB is equal to that of LAMA. If\r\n           NLAM < 0, LAMB will be a matrix.\r\n\r\nMethod\r\n\r\nThe DMI matrix (named EDIT in the above calling sequence) has one column for\r\neach mode. Each column has, at most, three entries (rows). Let R1n, R2n, and\r\nR3n be the entries in the first through third rows of the nth column. The nth\r\ncolumn will edit the frequency fn and the generalized mass mn of the nth mode.\r\nThe rules defined below are such that a null column produces no change, while\r\neither a fixed frequency shift or a percentage change may be specified.\r\n\r\n1. If R3n < 0, delete the mode and decrease the mode number of higher modes.\r\n\r\n2. If R3n >= 0\r\n\r\n   Frequency = Rln + (1 + R2n)fn\r\n\r\n                      \r\n                       mn   , R3n = 0\r\n   Generalized mass =  R3n  , R3n > 0\r\n                      \r\n\r\nThe change for generalized mass is ignored unless data block MI is purged. The\r\nmodule will generate a LAMB data block if the second input is purged.\r\n\r\n   Frequency = R1n\r\n\r\n   Generalized mass = R3n\r\n\r\nThis second option is useful if modes are created external to NASTRAN and are\r\ninput into the program via USER modules or DMI Bulk Data cards.\r\n\r\nIf NLAM is less than zero, a matrix will be built on LAMB. EDIT is ignored,\r\nand columns will be built with eigenvalue, omega, frequency, generalized mass,\r\nand generalized stiffness until the generalized mass is zero. The number of\r\nrows should then match the number of eigenvectors requested.\r\n\r\nRemarks\r\n\r\n1. LAMA may be purged. If LAMA is purged, than a LAMB is created from the EDIT\r\n   information.\r\n\r\nExamples\r\n\r\n1. Assume that ten modes were found by READ and it is desired to do the\r\n   following:\r\n\r\n   1 - 3  Leave alone\r\n     4    Multiply frequency by .8\r\n     5    Leave alone\r\n     6    Delete\r\n     7    Replace frequency by 173.20\r\n     8    Delete\r\n\r\n   The ALTER would be:\r\n\r\n   ALTER    XX\r\n   LAMX     LLLL,LAMA/LAMB/C,N,7 $\r\n   EQUIV    LAMB, LAMA/ALWAYS\r\n\r\n   This ALTER must be placed after READ and before GKAM. The DMI Bulk Data\r\n   card would be:\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMI     LLLL   0      2      1      1             3      7           \r\nĴ\r\nDMI     LLLL   4      1      0.     -.2                              \r\nĴ\r\nDMI     LLLL   6      1      0.     0.     -1.                       \r\nĴ\r\nDMI     LLLL   7      1      173.20 -1.                              \r\n\r\n\r\n2. Create a LAMA with fi = 10., 20., 30., 40., and mi = 1., 1., 1., 2.\r\n\r\n   ALTER   XX\r\n   LAMX    EDIT,/LAMA $ DEFAULT PARAMETER IS ZERO.\r\n   OFP     LAMA,,,,,// $\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMI     EDIT   0      2      1      1             3      4           \r\nĴ\r\nDMI     EDIT   1      1      10.    0.     1.                        \r\nĴ\r\nDMI     EDIT   2      1      20.    0.     1.                        \r\nĴ\r\nDMI     EDIT   3      1      30.    0.     1.                        \r\nĴ\r\nDMI     EDIT   4      1      40.    0.     2.                        \r\n\r\n=PAGE=\r\nMATGPR - Structural Matrix Printer\r\n\r\nPurpose\r\n\r\nPrints matrices generated by a Solution Sequence. External grid\r\npoint/component identification of each nonzero element is printed.\r\n\r\nDMAP Calling Sequence\r\n\r\nA. For matrices whose degrees of freedom relate to grid or scalar points:\r\n\r\n   MATGPR  GPL,USET,SIL,M//C,N,c/C,N,r/V,N,PRNTOPT=ALL/V,N,TINY=1.E-6/V,N,F1 $\r\n\r\nB. For matrices whose degrees of freedom relate to grid, scalar, or extra\r\n   points:\r\n\r\n   MATGPR  GPLD,USETD,SILD,M//C,N,c/C,N,r/V,N,PRNTOPT=ALL/V,N,TINY=1.E-2/\r\n           V,N,F1 $\r\n\r\nInput Data Blocks\r\n\r\nGPL        Grid Point List\r\n\r\nGPLD       Grid Point List (Dynamics)\r\n\r\nUSET       u-set\r\n\r\nUSETD      u-set (Dynamics)\r\n\r\nSIL        Scalar Index List\r\n\r\nSILD       Scalar Index List (Dynamics)\r\n\r\nM          Any displacement approach matrix\r\n\r\nOutput Data Blocks\r\n\r\nNone\r\n\r\nParameters\r\n\r\nc          row size (number of columns); must be the appropriate BCD value\r\n           from the table in Section 1.4.10. Input, no default. \r\n\r\nr          column size (number of rows); must be the appropriate BCD value\r\n           from the table in Section 1.4.10. If not specified, it will be\r\n           assumed that r=c. Input, default = X, which implies r=c. \r\n\r\nPRNTOPT    Must be one of the following BCD values: \r\n\r\n           NULL  Only null columns will be printed and identified.\r\n\r\n           ALL   Standard MATGPR printout (default).\r\n\r\n           ALLP  Standard MATGPR printout (complex numbers are converted to\r\n                 magnitude/phase). \r\n\r\nTINY       Real-default = 0.0. If F1 = 0 and TINY > 0, printed output will be\r\n           provided only for those matrix terms, aij, that satisfy the\r\n           relation |aij| > TINY. If F1 = 0 and TINY < 0, printed output will\r\n           be provided only for those matrix terms, aij, that satisfy the\r\n           relation |aij| < |TINY|. If TINY = 1.E37, MATGPR will return. If\r\n           F1 is nonzero, see the following description of F1.\r\n\r\nF1         Real-default = 0.0. If F1 is not zero, then printed output will be\r\n           provided for only those matrix terms that satisfy aij > TINY or\r\n           aij < 0.0. \r\n\r\nRemarks\r\n\r\n1. When using the form specified in DMAP Calling Sequence A, this module may\r\n   not be scheduled until after GP4 since data blocks generated by GP4 are\r\n   required inputs. When using the form specified in DMAP Calling Sequence B,\r\n   this module may not be scheduled until after DPD since data blocks\r\n   generated by DPD are required inputs. \r\n\r\n2. If [M] is purged, no printing will be done.\r\n\r\n3. The nonzero terms of the matrix will be printed along with the external\r\n   grid point and component identification numbers corresponding to the row\r\n   and column position of each term. \r\n\r\nExamples\r\n\r\nDisplay terms of KGG:\r\n\r\n   MATGPR     GPL,USET,SIL,KGG//G $\r\n\r\nDisplay null columns of KLL:\r\n\r\n   MATGPR     GPL,USET,SIL,KLL//L/L/NULL $\r\n\r\nDisplay small terms on diagonal of LOO:\r\n\r\n   DIAGONAL   LOO/LOOD $\r\n   MATGPR     GPL,USET,SIL,LOOD//H/O//-1.E-2 $\r\n\r\nDisplay PHIA, H columns by A rows:\r\n\r\n   MATGPR     GPL,USET,SIL,PHIA//H/A $\r\n\r\nAlso good for any single column\r\n\r\nDisplay all terms of KGG outside the range of 0 through 107: \r\n\r\n   MATGPR     GPL,USET,SIL,KGG//G/G//1.E7/1.E1 $ \r\n=PAGE=\r\nMATPRN - General Matrix Printer\r\n\r\nPurpose\r\n\r\nTo print general matrix data blocks.\r\n\r\nDMAP Calling Sequence\r\n\r\nMATPRN   M1,M2,M3,M4,M5 // C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,P5  $\r\n\r\nInput Data Blocks\r\n\r\nMi         Matrix data blocks, any of which may be purged.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nP1 and P2 are print format controls.\r\n\r\nP1    = 0, matrices are printed in their original precision (default).\r\n      = 1, matrices are printed in single precision (for example, x.xxxE+xx).\r\n      = 2, matrices are printed in double precision (for example, -x.xxxD+xx).\r\n      = -1, only the diagonal elements of the matrix will be printed in their\r\n      original precision.\r\n\r\nP2    number of data values printed per line (132 column print line).\r\n      = 8 to 14 if matrices are printed in single precision (default is 10).\r\n      = 6 to 12 if matrices are printed in double precision (default is 9).\r\n\r\nP3, P4, and P5 are printout controls, to allow only a portion of the matrix to\r\nbe printed.\r\n\r\nP3    = m, matrix columns 1 through m will be printed.\r\n      = 0, all matrix columns will be printed (default).\r\n      = -m, see P4 = -n.\r\n\r\nP4    = n, last n matrix columns will be printed. Default = 0.\r\n      = -n, and P3 = -m, every other n matrix columns will be printed,\r\n      starting from column m.\r\n\r\nP5    = k, each printed column will not exceed k lines long and the remaining\r\n      data will be omitted. For example, 40 data values will be printed if\r\n      P2=10 and P5=4.\r\n\r\nOutput\r\n\r\nThe nonzero band of each column of each input matrix data block is unpacked\r\nand printed in single precision.\r\n\r\nRemarks\r\n\r\n1. Any or all input data blocks can be purged.\r\n\r\n2. If any data block is not matrix type, the TABPT routine will be called.\r\n\r\nExamples\r\n\r\n1. MATPRN   KGG,,,, // $\r\n\r\n2. MATPRN   KGG,PL,PG,BGG,UPV // $\r\n=PAGE=\r\nMATPRT - Matrix Printer\r\n\r\nPurpose\r\n\r\nTo print matrix data blocks associated with grid points only.\r\n\r\nDMAP Calling Sequence\r\n\r\nMATPRT   X // C,N,rc / C,N,y $\r\n\r\nInput Data Blocks\r\n\r\nX          Matrix data block to be printed. If [X] is purged, then nothing is\r\n           done.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nrc         indicates whether [X] is stored by rows (rc = 1) or by columns (rc\r\n           = 0) (Input-Integer, default value = 0).\r\n\r\ny          indicates whether [X] is to be printed even if not purged (y < 0,\r\n           do not print [X]; y >= 0, print [X] (Input-Integer, default value\r\n           = 0).\r\n\r\nMethod\r\n\r\nEach column (or row) of the matrix is broken into groups of 6 terms (3 terms\r\nif complex) per printed line. If all the terms in a group = 0, the line is not\r\nprinted. If the entire column (or row) = 0, it is not printed. If the entire\r\nmatrix = 0, it is not printed.\r\n\r\nRemarks\r\n\r\n1. MATPRT should not be used if scalar or extra points are present. For this\r\n   case, use MATPRN.\r\n\r\n2. Only one matrix data block is printed by this instruction. However, the\r\n   instruction may be repeated as many times as required.\r\n=PAGE=\r\nNORM - Normalize a Matrix\r\n\r\nPurpose\r\n\r\nTo normalize a matrix, each vector by its largest element. To compute the\r\nsquare root of the sum of the squares for each row of a matrix (SRSS).\r\n\r\nDMAP Calling Sequence\r\n\r\nNORM    PHIG/PHIG1/V,N,NCOL/V,N,NROW/V,N,XNORM/V,N,IOPT $\r\n\r\nInput Data Blocks\r\n\r\nPHIG       Any matrix (real or complex)\r\n\r\nOutput Data Blocks\r\n\r\nPHIG1      IOPT=1, copy of PHIG such that for any columnj||max(aij)|| for all\r\n           i = 1.0.\r\n           IOPT=2, contains a single column {ai} where\r\n\r\n                             NCOL         _\r\n               ai  =  SQRT (       (uij * uij) )\r\n                             j=1\r\n\r\n           where uij are the terms in the matrix PHIG and ij are the complex\r\n           conjugates.\r\n\r\nParameters\r\n\r\nNCOL       Integer-output-default = 0. Number of columns in PHIG.\r\n\r\nNROW       Integer-output-default = 0. Number of rows in PHIG.\r\n\r\nXNORM   Real-output-default = 0.0. Maximum (absolute value) normalizing value\r\n        over all columns.\r\n\r\nIOPT       Integer-input-default = 1. IOPT=1, normalize by largest element;\r\n           IOPT=2, compute SRSS.\r\n\r\nExamples\r\n\r\nNormalize PHIG so that the maximum deflection is 1.0 (or -1.0):\r\n\r\n   EQUIV    PHIG,PHIG1/NEVER $\r\n   NORM     PHIG/PHIG1/ $\r\n   CHKPNT   PHIG1 $\r\n   EQUIV    PHIG1,PHIG/ALWAYS $\r\n   CHKPNT   PHIG $\r\n=PAGE=\r\nOUTPUT1 - Create User Files\r\n\r\nPurpose\r\n\r\nWrites up to five data blocks and a user file label onto a user file (either\r\non tape or mass storage) for use at a later date. (See User Module INPUTT1 for\r\nrecovery procedures.) OUTPUT1 is also used to position your file (including\r\nhandling of multiple reel tapes--user tape reel switching is available only on\r\nIBM and UNIVAC versions) prior to writing the data blocks. Multiple calls are\r\nallowed. A message is written on the output file for each data block\r\nsuccessfully written and after each tape reel switch. You are cautioned to be\r\ncareful when positioning a user file with OUTPUT1 since you may inadvertently\r\ndestroy information through improper positioning. Even though no data blocks\r\nare written, an EOF will be written at the completion of each call, which has\r\nthe effect of destroying anything on the file forward of the current position.\r\n\r\nDMAP Calling Sequence\r\n\r\nOUTPUT1   DB1,DB2,DB3,DB4,DB5 // V,N,P1 / V,N,P2 / V,N,P3 $\r\n\r\nInput Data Blocks\r\n\r\nDBi        Any data block which you desire to be placed on one of the NASTRAN\r\n           permanent files INPT, INP1, INP2 thru INP9. Any or all of the\r\n           input data blocks may be purged. Only nonpurged data blocks will\r\n           be placed on the file.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\n1. The meaning of the first parameter (P1) value is given in the table below.\r\n   (The default value is O.)\r\n\r\nĿ\r\n  P1 Value                   Meaning                                 \r\nĴ\r\n     +n     Skip forward n data blocks before reading.               \r\n                                                                     \r\n      0     Data blocks are read starting at the current             \r\n            position. The current position for the first use of a    \r\n            file is at the label (P3). Hence, P3 counts as one       \r\n            data block.                                              \r\n                                                                     \r\n     -1     Rewind before writing. (This is dangerous!) An EOF is    \r\n            written at the end of each call to OUTPUT1.              \r\n                                                                     \r\n     -2     Valid only for files residing on physical tape.          \r\n            Mount new reel before writing. An EOF mark is written    \r\n            on the tape to be switched. Be careful when switching    \r\n            from a user tape being read by INPUTT1 to a tape to be   \r\n            written by OUTPUT1.                                      \r\n                                                                     \r\n     -3     Rewind files, print data block names, and then write     \r\n            after the last data block on the file.                   \r\n                                                                     \r\n     -4     Valid only for files residing on physical tape.          \r\n            Current tape reel will be rewound and dismounted and     \r\n            a new tape reel will be mounted with ring in and         \r\n            rewound before writing the data blocks. This option      \r\n            should be used when a call to OUTPUT1 is preceded        \r\n            by a call to INPUTT1 using the same User Tape.           \r\n\r\n\r\n2. The second parameter (P2) for this module is your File Code shown in the\r\n   table below. (The default value is 0.)\r\n\r\nĿ\r\n  User File Code   GINO File Name  \r\nĴ\r\n         0               INPT      \r\n         1               INP1      \r\n         2               INP2      \r\n         3               INP3      \r\n         4               INP4      \r\n         5               INP5      \r\n         6               INP6      \r\n         7               INP7      \r\n         8               INP8      \r\n         9               INP9      \r\n\r\n\r\n3. The third parameter (P3) for this module is used to define your File Label.\r\n   The label is used for NASTRAN identification. The label (P3) is an\r\n   alphanumeric variable of eight or less characters (the first character must\r\n   be alphabetic) which is written on your file. The writing of this label is\r\n   dependent on the value of P1 as follows (The default value for P3 is\r\n   XXXXXXXX).\r\n\r\nĿ\r\n P1 Value    File Label Written  \r\nĴ\r\n    +n               No          \r\n     0               No          \r\n    -1               Yes         \r\n    -2         Yes (On new reel) \r\n    -3         No (Warning Check)\r\n    -4         Yes (On new reel) \r\n\r\n\r\n   You may specify the third parameter as V, Y, name. You then must also\r\n   include a PARAM card in the bulk data deck to set a value for name.\r\n\r\nExamples\r\n\r\n1. OUTPUT1   A,B,,, // C,N,0 / C,N,0 $   or   OUTPUT1   A,B,,, // $\r\n\r\n   Write data blocks A and then B onto user file INPT starting wherever INPT\r\n   is currently positioned. If this is the first write operation on INPT, it\r\n   must be preceded by OUTPUT1 ,,,, // C,N,-1 $, which will automatically\r\n   label the file positioned at its beginning.\r\n\r\n2. OUTPUT1 , ,,,, // C,N,-1 / C,N,0 $\r\n\r\n   Rewind INPT, destroy any data blocks that were on INPT, and write default\r\n   value of P3 on file as a label.\r\n\r\n3. OUTPUT1   A,,,, // C,N,-2 / C,N,2 / C,N,USERTPA $\r\n\r\n   Mount a new reel of tape (with write ring) for INP2 and write USERTPA for\r\n   user tape label and then data block A as the first file.\r\n\r\n4. OUTPUT1 , ,,,, // C,N,-2 / C,N,2 / C,N,USERTPA $\r\n   OUTPUT1 A,,,, // C,N,0 / C,N,2 $\r\n\r\n   This is equivalent to example 3.\r\n\r\n5. OUTPUT1 A,B,C,D,E // C,N,14 $\r\n\r\n   Starting from the current position, skip forward 14 data blocks on INPT and\r\n   write A, B, C, D, and E as the next five data blocks. The skip positioning\r\n   feature cannot be used if the current position of INPT is forward of a just\r\n   previously written data block end-of-file or before the file is labeled.\r\n\r\n6. OUTPUT1 , ,,,, // C,N,-3 $                THIS IS AN\r\n   OUTPUT1 A,B,C,D,E // C,N,14 $             INCORRECT EXAMPLE.\r\n\r\n   This is an invalid sequence since the first call positions the tape at the\r\n   end of all data blocks on the tape. See example 7.\r\n\r\n7. INPUTT1 / ,,,, / C,N,-3 $\r\n   OUTPUT1 A,B,C,D,E // C,N,14 $\r\n\r\n   A complete list of data block names will be printed by INPUTT1, which will\r\n   then rewind the file. Then, OUTPUT1 will skip forward 14 data blocks and\r\n   write A, B, C, D, and E. Your file label is given a warning check by\r\n   INPUTT1.\r\n\r\n8. OUTPUT1 , ,,,, // C,N,-2 $                THIS IS AN\r\n   OUTPUT1 , ,,,, // C,N,-3 $                INCORRECT EXAMPLE.\r\n   OUTPUT1 , A,B,,, // C,N,14 $\r\n\r\n   This is an invalid sequence since the first call effectively destroys\r\n   whatever information is on the tape. See example 9.\r\n\r\n9. INPUTT1 / ,,,, / C,N,-2 $\r\n   INPUTT1 / ,,,, / C,N,-3 $\r\n   OUTPUT1 A,B,,, // C,N,14 $\r\n\r\n   Mount a new reel of tape previously default labeled for INPT (the operator\r\n   will have to be instructed to ignore the NORING message and put a ring in\r\n   the tape). Print the names of all data blocks on the tape and rewind the\r\n   tape. Skip 14 data blocks on the tape and write A and then B as the 15th\r\n   and 16th data blocks. Any information forward of this current position is\r\n   effectively destroyed. See example 10.\r\n\r\n10. INPUTT1 / ,,,, / C,N,-2 $\r\n    OUTPUT1 A,B,,, // C,N,-3 $\r\n\r\n   Mount a new reel of tape previously default labeled for INPT (the operator\r\n   will have to be instructed to ignore the NORING message and put a ring in\r\n   the tape). Print the names of all data blocks on the tape and write A and B\r\n   as new data blocks at the end of the tape. If INPT contained 14 data blocks\r\n   at the start of this sequence, it would be more efficient to do it this way\r\n   than by using the sequence of example 9, since a pass on the tape is\r\n   eliminated.\r\n\r\n11. INPUTT1 / ,,,, / C,N,-2 / C,N,0 / V,Y,BDSETLAB $\r\n    OUTPUT1 A,B,,, // C,N,-3 / C,N,0 / V,Y,BDSETLAB $\r\n\r\n   This is equivalent to example 10 except your tape label is set on a PARAM\r\n   card, which must be included in the BULK DATA deck (that is, PARAM BDSETLAB\r\n   USERTP12).\r\n\r\nDifficult Examples Using INPUTT1 and OUTPUT1\r\n\r\nExample 1\r\n\r\na. Objectives:\r\n\r\n1. Obtain printout of the names of all data blocks on INPT.\r\n\r\n2. Skip past the first four data blocks, replace the next two with data blocks\r\n   A and B, and retain the next three data blocks.\r\n\r\n3. Obtain printout of the names of all data blocks on INPT after (2) has been\r\n   done.\r\n\r\nb. DMAP Sequence:\r\n\r\n   BEGIN $                                     (1)\r\n   INPUTT1 / ,,,, / C,N,-3 $                   (2)\r\n   INPUTT1 / ,,T1,T2,T3 / C,N,6   $            (3)\r\n   INPUTT1 / ,,,, / C,N,-1 $                   (4)\r\n   INPUTT1 A,B,T1,T2,T3 // C,N,4 $             (5)\r\n   OUTPUT1 , ,,,, // C,N,-3 $                  (6)\r\n   END $\r\n\r\nc. Remarks\r\n\r\n1. DMAP sequence (2) accomplishes objective 1 and rewinds INPT.\r\n\r\n2. DMAP sequence (3) recovers data blocks 7, 8, and 9. This is necessary\r\n   because they would be effectively destroyed by anything written in front of\r\n   them on INPT.\r\n\r\n3. DMAP sequence (4) rewinds INPT.\r\n\r\n4. DMAP sequence (5) accomplishes objective 2.\r\n\r\n5. DMAP sequence (6) accomplishes objective 3 and leaves INPT positioned after\r\n   the ninth file, ready to receive additional data blocks.\r\n\r\n6. Note that INPUTT1 is used whenever possible to avoid the possibility of\r\n   mistakenly writing on INPT prematurely.\r\n\r\nExample 2\r\n\r\na. Objectives:\r\n\r\n1. Write data blocks A, B, and C on INPT.\r\n2. Obtain printout of the names of all data blocks on INPT after step (1).\r\n3. Make two copies of the file created in (1).\r\n4. Add data blocks D and E to one of the files.\r\n5. Obtain the names of all data blocks on INPT after (4).\r\n\r\nb. DMAP Sequence:\r\n\r\n   BEGIN $                                     (1)\r\n   OUTPUT1 A,B,C,, // C,N,-1   $               (2)\r\n   OUTPUT1 , ,,,, // C,N,-3 $                  (3)\r\n   OUTPUT1 A,B,C,, // C,N,-2   $               (4)\r\n   OUTPUT1 A,B,C,, // C,N,-2   $               (5)\r\n   OUTPUT1 D,E,,, // $                         (6)\r\n   OUTPUT1 , ,,,, // C,N,-3 $                  (7)\r\n   END $                                       (8)\r\n\r\nc. Remarks:\r\n\r\n1. DMAP sequence (2) accomplishes objective 1 since the file must initially\r\n   have P3 written on it when first used. The DMAP statement INPUTT1 A,B,C,,\r\n   // C,N,-1 $ will accomplish the same thing.\r\n\r\n2. DMAP sequence (3) accomplishes objective 2. The statement INPUTT1 / ,,,, /\r\n   C,N,-3 $ will do the same thing and add a rewind.\r\n\r\n3. Statements (4) and (5) accomplish objective 3.\r\n\r\n4. Statement (6) accomplishes objective 4 where the third file (tape) is used.\r\n\r\n5. Statement (7) accomplishes objective 5. The statement INPUTT1 / ,,,, /\r\n   C,N,-3 $ will do the same thing and add a rewind.\r\n\r\n6. On machines where tape reel switching is not implemented, the second\r\n   parameter can be used as follows:\r\n\r\n   BEGIN $\r\n   OUTPUT1 A,B,C,, // C,N,-1 $\r\n   OUTPUT1 , ,,,, // C,N,-3 $\r\n   OUTPUT1 A,B,C,, // C,N,-1 / C,N,1 $\r\n   OUTPUT1 A,B,C,, // C,N,-1 / C,N,2 $\r\n   OUTPUT1 D,E,,, // C,N,0 / C,N,2 $\r\n   OUTPUT1 , ,,,, // C,N,-3 / C,N,2 $\r\n   END $\r\n=PAGE=\r\nOUTPUT2 - Create User-Written FORTRAN Files\r\n\r\nPurpose\r\n\r\nWrites up to five data blocks and a user file label onto a FORTRAN-written\r\nuser file (either on tape or mass storage) for subsequent use at a later date.\r\nOUTPUT2 is also used to position your file prior to writing the data blocks.\r\nMultiple calls are allowed. A message is written on the output file for each\r\ndata block successfully written. You are cautioned to be careful when\r\npositioning a user file with OUTPUT2, since you may inadvertently destroy\r\ninformation through improper positioning. Even though no data blocks are\r\nwritten, an EOF will be written at the completion of each call, which has the\r\neffect of destroying anything on the tape forward of the current position.\r\n(The companion module is INPUTT2.)\r\n\r\nDMAP Calling Sequence\r\n\r\nOUTPUT2 DB1,DB2,DB3,DB4,DB5 // V,N,P1 / V,N,P2 / V,N,P3 / V,N,P4 /\r\n                               V,N,P5 / V,N,P6 $\r\n\r\nInput Data Blocks\r\n\r\nDBi        Any data block which you desire to be written on one of the\r\n           NASTRAN FORTRAN files INPT, INP1 through INP9. Any or all of the\r\n           input data blocks may be purged. Only nonpurged data blocks will\r\n           be placed on the file.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nP1, P2, P4, and P5 are integer inputs. P3 and P6 are BCD.\r\n\r\n1. The meaning of the first parameter (P1) value is given in the table below.\r\n   (The default value is 0.)\r\n\r\nĿ\r\n  P1 Value                   Meaning                                 \r\nĴ\r\n     +n     Skip forward n data blocks before writing.               \r\n                                                                     \r\n      0     Data blocks are written starting at the current          \r\n            position. The current position for the first use of a    \r\n            file is at the label (P3). Hence, P3 counts as one       \r\n            data block.                                              \r\n                                                                     \r\n     -1     Rewind before writing.                                   \r\n                                                                     \r\n     -3     Rewind files, print data block names, and then write     \r\n            after the last data block on the file.                   \r\n                                                                     \r\n     -9     Write a final EOF on the file.                           \r\n\r\n\r\n   Important Notes\r\n\r\n   a. It is a good practice for you to ensure that a sequence of OUTPUT2\r\n      statements always ends with a statement of the form\r\n\r\n      OUTPUT2, ,,,, // -9 $\r\n\r\n      thereby causing a final (or physical) EOF to be written on the FORTRAN\r\n      file. Otherwise, subsequent use of this file by OUTPUT2, INPUTT2, or an\r\n      external program may fail due to the absence of a physical EOF on the\r\n      file. Notice the presence of an extra comma after the module name.\r\n\r\n   b. On the UNIVAC and DEC VAX versions, the FORTRAN files used with the\r\n      INPUTT2/OUTPUT2 modules are automatically rewound every time a link\r\n      change occurs in the program. In general, a link change can be assumed\r\n      to occur whenever a DMAP statement other than an INPUTT2 statement\r\n      follows an INPUTT2 statement; similarly, whenever a DMAP statement other\r\n      than an OUTPUT2 statement follows an OUTPUT2 statement. For this reason,\r\n      the following cautions should be noted on these versions when using the\r\n      various values for the parameter P1 in an INPUTT2 or OUTPUT2 DMAP\r\n      statement.\r\n\r\nĿ\r\n                 Cautions for UNIVAC and DEC VAX versions              \r\nĴ\r\n  Parameter P1                    Remarks                             \r\nĴ\r\n    0 or +n        You must be certain that this INPUTT2              \r\n                   statement immediately follows another INPUTT2      \r\n                   statement; or that this OUTPUT2 statement          \r\n                   immediately follows another OUTPUT2 statement, to  \r\n                   avoid a link change that would cause the           \r\n                   rewinding of the FORTRAN file.                     \r\n                                                                      \r\n  -1 to -8         No cautions.                                       \r\n                                                                      \r\n      -9           You must be certain that this OUTPUT2              \r\n                   statement immediately follows another OUTPUT2      \r\n                   statement, to avoid a link change that would       \r\n                   cause the rewinding of the FORTRAN file.           \r\n\r\n\r\n2. The second parameter (P2) for this module is the FORTRAN unit number onto\r\n   which the data blocks will be written. The allowable values for this\r\n   parameter are highly machine- and installation-dependent. Reference should\r\n   be made to Section 4 of the Programmer's Manual for a discussion of this\r\n   subject.\r\n\r\n   For CDC machine (default is 11):\r\n\r\nĿ\r\n User File Code   FORTRAN File Name \r\nĴ\r\n        11               UT1        \r\n        12               UT2        \r\n\r\n\r\n   For all others (default is INPT):\r\n\r\nĿ\r\n User File Code   FORTRAN File Name \r\nĴ\r\n        14              INPT        \r\n        15              INP1        \r\n        16              INP2        \r\n        :                :          \r\n        23              INP9        \r\n\r\n\r\n   IBM/MVS only: INPT is user file code 24.\r\n\r\n3. The third parameter (P3) for this module is used to define the FORTRAN User\r\n   File Label. The label is used for NASTRAN identification. The label (P3) is\r\n   an alphanumeric variable of eight or less characters (the first character\r\n   must be alphabetic) which is written on your file. The writing of this\r\n   label is dependent on the value of P1 as follows: (The default value for P3\r\n   is XXXXXXXX.)\r\n\r\nĿ\r\n P1 Value    File Label Written  \r\nĴ\r\n    +n               No          \r\n     0               No          \r\n    -1               Yes         \r\n    -3         No (Warning Check)\r\n    -9               No          \r\n\r\n\r\n   If the label is written, eight additional records are placed at the\r\n   beginning of the FORTRAN file.\r\n\r\n   You may specify the third parameter as V,Y,name. You then must also include\r\n   a PARAM card in the bulk data deck to set a value for name.\r\n\r\n4. The fourth parameter (P4) controls the maximum FORTRAN record size.\r\n\r\n   P4 = 0 (default); record size is unlimited for all machines except IBM/MVS,\r\n   which is set to 1024 words.\r\n\r\n   P4 = -n; maximum FORTRAN record size is n times the system buffer. (If P6\r\n   is not blank, n is 2.)\r\n\r\n   P4 = +n; maximum FORTRAN record size is n words. If n is less than system\r\n   buffer, n is increased to system buffer size. If n is greater than system\r\n   open core, n is reduced to the size of open core.\r\n\r\n5. The fifth parameter (P5) is valid only for matrix DBi input.\r\n\r\n   P5 = 0; matrices are written out by columns. This is the normal way using\r\n   one keyword.\r\n\r\n   P5 = not 0; matrices are written out by columns in sparse matrix forms,\r\n   that is, from first non-zero row of a column to last non-zero row. The\r\n   keyword record contains two keys:\r\n\r\n      First key:\r\n        > 0, defines length of next data record\r\n        = 0, end-of-file\r\n        < 0, end-of-record; more records follow\r\n\r\n      Second key:\r\n        = 0, if DBi is a table data block, or P5 = 0\r\n        > 0, row-base for next record\r\n\r\n   For example, if keys = 10,200, the next record is 10 words long, for rows\r\n   200+1 through 200+10; that is, (ROW(key2+j),j=1,key1)\r\n\r\n6. If the sixth parameter (P6) is set to *MSC*, OUTPUT2 will generate OUTPUT2\r\n   records in MSC/OUTPUT2 compatible formats. The COSMIC/OUTPUT2 and\r\n   MSC/OUTPUT2 generate records slightly differently. The P5 parameter is not\r\n   available when P6 is specified.\r\n\r\n   Default P6 is blank.\r\n\r\nExamples\r\n\r\nOUTPUT2 is intended to have the same logical action as the GINO User File\r\nmodule OUTPUT1 except for tape reel switching. It is therefore suggested that\r\nthe examples shown under module OUTPUT1 be used for OUTPUT2 as well, excepting\r\nthe ones involving tape reel switching. All examples should be ended with a\r\ncall to OUTPUT2 with P1 = -9.\r\n\r\nRemarks\r\n\r\nThe primary objective of this module is to write files using simple FORTRAN so\r\nthat you can read NASTRAN generated data with your own program. Similarly,\r\nmatrices can be generated with externally written simple FORTRAN programs and\r\nthen read in by module INPUTT2.\r\n\r\nIn order to do this, the format of the information on these files must be\r\nadhered to. The basic idea is that a two word logical KEY record is written,\r\nwhich indicates what follows. A zero value in KEY1 indicates an end-of-file\r\ncondition. A negative value indicates the end of a record, where the absolute\r\nvalue is the record number. A positive value indicates that the next record\r\nconsists of that many words of data. KEY2 is used only with P5 not equal to\r\nzero, and was explained previously.\r\n\r\nThe correspondence between FORTRAN records and GINO-written NASTRAN files is\r\nshown in the following sample:\r\n\r\nĿ\r\n FORTRAN                                   NASTRAN     File        \r\n Record    Length    Contents               File      Record       \r\nĴ\r\n   1        1        KEY1 > 0, KEY2          1           1         \r\nĴ                           \r\n   2        KEY1    {Data}                                         \r\nĴ                           \r\n   3        1        KEY1 > 0, KEY2                                \r\nĴ                           \r\n   4        KEY1    {Data}                                         \r\nĴ                           \r\n   5        1        KEY1 < 0 (EOR),                               \r\n                     KEY2                                          \r\nĴ            Ĵ\r\n   6        1        KEY1 > 0, KEY2                      2         \r\nĴ                           \r\n   7        KEY1    {Data}                                         \r\nĴ                           \r\n   8        1        KEY1 < 0 (EOR),                               \r\n                     KEY2                                          \r\nĴ            Ĵ\r\n   9        1        KEY1 = 0 (EOF),                     EOF       \r\n                     KEY2                                          \r\nĴ\r\n  10        1        KEY1 > 0, KEY2          2           1         \r\nĴ                           \r\n  11        KEY1    {Data}                                         \r\nĴ                           \r\n  12        1        KEY1 < 0 (EOR),                               \r\n                     KEY2                                          \r\nĴ            Ĵ\r\n  13        1        KEY1 = 0 (EOF),                     EOF       \r\n                     KEY2                                          \r\nĴ\r\n  14        1        KEY1 = 0 (EOF=EOD),     3           EOF       \r\n                     KEY2                                          \r\n\r\n\r\n\r\nKEY2s are zeros except when parameter P5 is non-zero, and the next records are\r\ndata records (KEY1 > 0). When parameter P5 is zero, effectively only one key,\r\nKEY1, is used.\r\n\r\nKEY2s are not generated when parameter P6 is *MSC*.\r\n=PAGE=\r\nOUTPUT3 - Punch Matrix Data Blocks Onto Cards\r\n\r\nPurpose\r\n\r\nPunches up to five matrix data blocks onto DMI bulk data cards. These cards\r\nmay then read into NASTRAN as ordinary bulk data to reestablish the matrix\r\ndata block at a later date.\r\n\r\nDMAP Calling Sequence\r\n\r\nOUTPUT3  M1,M2,M3,M4,M5 // C,N,P1 / C,Y,N1=ABC / C,Y,N2=DEF / C,Y,N3=GHI\r\n                                    C,Y,N4=JKL / C,Y,N5=MNO $\r\n\r\nInput Data Blocks\r\n\r\nMi         Any matrix data block which you desire to be punched on DMI cards.\r\n           Any or all of the input data blocks may be purged. Only nonpurged\r\n           data blocks will be punched.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nThe first parameter (P1) controls the writing of the DMI card images on a\r\nFORTRAN unit as follows:\r\n\r\n   P1 < 0     write on FORTRAN unit |P1| as well as punch DMi cards\r\n   P1 >= 0 punch DMI cards only\r\n\r\nThe default value for P1 is 0.\r\n\r\nNi - The values of the five BCD parameters shown above are used to create a\r\nunique continuation field configuration on the DMI cards. Only the first three\r\ncharacters are used. These three characters must be unique for all matrices\r\nwhich will be input together during a subsequent run using cards generated by\r\nOUTPUT3. (Input-BCD, default values are N1 = no default, N2 = N3 = N4 = N5 =\r\nXXX).\r\n\r\nMethod\r\n\r\nThe nonzero elements of each matrix are punched on double-field DMI cards as\r\nshown in the example below. The name of the matrix is obtained from the header\r\nrecord of the data block. Field 10 contains the three character parameter\r\nvalue in columns 74-76 and an incremented integer card count in columns 77-80.\r\n\r\nExample\r\n\r\nLet the data block MAT contain the matrix\r\n\r\n                                                     \r\n                 1.0   0.0    6.0   0.0    0.0   0.0 \r\n                 0.0   0.0    7.0   0.0    0.0   0.0 \r\n   [MAT]  =      2.0   4.0    0.0   0.0    0.0   0.0 \r\n                 0.0   5.0    0.0   0.0    0.0   9.0 \r\n                 3.0   0.0    8.0   0.0    0.0   0.0 \r\n                                                     \r\n\r\nThe DMAP instruction OUTPUT3 MAT,,,, // C,N,0 / C,N,XYZ $ will then punch out\r\nthe DMI cards shown below.\r\n\r\n    1        2       3       4       5       6       7       8       9     10\r\nĿ\r\nDMI     MAT          0      2      1      2             5      6+XYZ0\r\n\r\nĿ\r\nDMI*    MAT                          1              1 1.000000E 00  *XYZ1\r\nĴ\r\n*XYZ   1              3 2.000000E 00                5 3.000000E 00  *XYZ2\r\n\r\nĿ\r\nDMI*    MAT                          2              3 4.000000E 00  *XYZ3\r\nĴ\r\n*XYZ   3 5.000000E 00                                               *XYZ4\r\n\r\nĿ\r\nDMI*    MAT                          3              1 6.000000E 00  *XYZ5\r\nĴ\r\n*XYZ   5 7.000000E 00                5 8.000000E 00                 *XYZ6\r\n\r\nĿ\r\nDMI*    MAT                          6              4 9.000000E 00  *XYZ7\r\n\r\n\r\nRemarks\r\n\r\n1. Only real single- or double-precision matrices may be output.\r\n\r\n2. All matrices are output on double-field cards in single-precision.\r\n\r\n3. The maximum number of cards that may be punched is 99,999. If matrices\r\n   larger than this are desired, use module OUTPUT2 and write a program to\r\n   process the resulting FORTRAN file.\r\n\r\n4. The auxiliary subroutine PHDMIA used by module OUTPUT3 can be used with\r\n   stand-alone FORTRAN programs. See Section 4 of the Programmer's Manual for\r\n   details.\r\n=PAGE=\r\nOUTPUT4 - Write a Matrix to a FORTRAN Readable File\r\n\r\nPurpose\r\n\r\nTo write a matrix to an ASCII or FORTRAN binary file so that user processing\r\ncan be done.\r\nOUTPUT4 can also handle six special tables: KELM, MELM, BELM, KDICT, MDICT,\r\nand BDICT.\r\n\r\nDMAP Calling Sequence\r\n\r\nOUTPUT4   M1,M2,M3,M4,M5 // V,N,P1 / V,Y,P2 / V,N,P3 $\r\n\r\nInput Data Blocks\r\n\r\nMi         Up to five matrix data blocks, including any of the six special\r\n           table data blocks.\r\n\r\nOutput Data Blocks\r\n\r\nNone (written to user tape; see Remarks for the format).\r\n\r\nParameters\r\n\r\nP1         Input-integer-default = 0. P1 controls the status of the unit\r\n           before OUTPUT4 starts to write any matrices as follows:\r\n\r\n           0     No action taken before write.\r\n           -1    Rewind tape before write.\r\n           -2    End file and rewind tape after write.\r\n           -3    Both\r\n\r\nP2         Input-integer-default = 14. The absolute value of IUNIT is the\r\n           FORTRAN unit number where the matrices will be written. If P2 is\r\n           negative, the sparse output option will be used.\r\n\r\nP3         If P3 = 1 the file is written in FORTRAN binary format (default).\r\n           If P3 = 2 or 3, the file is written in ASCII format; see Remarks\r\n           10 - 13.\r\n\r\nRemarks\r\n\r\n1. Each matrix will be written on unit P2 as follows:\r\n\r\n   Record No. Word Type  Meaning\r\n\r\n      1    1     I    Number of columns (NCOL)\r\n   (binary or 2    I     Number of rows (NR)\r\n   ASCII)     3    I     FORM (1-8, negative if P3 is not equal to 1)\r\n           4     I    TYPE (1-4)\r\n           5,6     B     DMAP name (2A4 format)\r\n      On ASCII output tape, record 1 is written in (1X,4I3,5X,2A4) format.\r\n\r\n   2,3,etc.   1    I     Column number.\r\n   (nonsparse,2    I     Row position of first nonzero term.\r\n   binary)    3    I     NW, number of words in the column (that is,   \r\n                                      number of elements times number of\r\n                         words per                  element).\r\n        4-NW+3   R/DP Floating point values, either real or double     \r\n                                   precision, depending on the type.\r\n\r\n           Words 1 - 4-NW+3 are repeated for each nonzero column.\r\n\r\n   2,3,etc.   1    I     Column number.\r\n   (sparse,   2    I     Zero.\r\n   binary)    3    I     Number of words (NW) in the column.\r\n        4-NW+3   R/DP Strings of nonzero terms as follows: [Length of string\r\n                      (L)/Row position of first term]=IS\r\n                      Floating point values either real or double precision,\r\n                      depending on type. If IS is the string header, L =\r\n                      IS/65536\r\n                      IROW = IS-(L*65536)\r\n\r\n   2       1     I    Column number (1X,I13 or 1X,I16).\r\n   (nonsparse,2    I     Row position of first nonzero term (I13 or I16).\r\n   ASCII)     3    I     NW, number of words in the column (I13 or I16).\r\n   3,etc.     11   R/DP  Floating point values either real or double\r\n                         precision, depending on the type (1X,10E13.6,\r\n                         1X,8D16.9, or 1X,8E16.9).\r\n\r\n   Record 3 is repeated as many times as necessary. Notice that each record\r\n   holds 11 values, and is 132 bytes in length, except the last record, which\r\n   may be shorter.\r\n\r\n   2       1     I    Column number (1X,I13 or 1X,I16).\r\n   (sparse,   2    I     Row position of first string element (a negative\r\n                         value, I13 or I16).\r\n   ASCII)     3    I     NW, number or words in string, adjusted for single\r\n                         precision or double precision word count (I13 or\r\n                         I16).\r\n   3,etc.     11   R/DP  Floating point values of string, either real or\r\n                         double precision, depending on the type\r\n                         (1X,10E13.6, 1X,8D16.9, or 1X,8E16.9)\r\n\r\n   Records 2, 3, etc. are repeated as many times as needed for the same matrix\r\n   column (therefore same column number). Notice each record 3 holds 10 or 8\r\n   values, and is less than 132 bytes in length, except the last record, which\r\n   may be shorter. Notice that records 1, 2, and 3 always begin with a space\r\n   (1X).\r\n\r\n   Repeat records 2 and 3 (etc.) for each nonzero column (therefore different\r\n   column number).\r\n\r\n2. A record with the last column number plus +1 and at least one value in the\r\n   next record will by written on unit P2.\r\n\r\n3. Number of words per type is as follows:\r\n\r\n   Type          NWORDS\r\n\r\n   1, Real S.P.       1\r\n   2, Readl D.P.   2\r\n   3, Complex S.P.    2\r\n   4, Complex D.P.    4\r\n\r\n4. OUTPUT4 does not handle table data blocks, except the six special tables\r\n   mentioned above.\r\n\r\n5. Choosing a correct unit is machine dependent and correct control cards must\r\n   be supplied. See other sections of this User's Manual for descriptions of\r\n   the control cards for each type of computer.\r\n\r\n6. If the non-sparse option is selected, zero terms will be explicitly present\r\n   after the first nonzero term in any column until the last nonzero term.\r\n\r\n7. Null columns will not be written to the output.\r\n\r\n8. An entire column must fit in memory.\r\n\r\n9. The FORTRAN binary file option is the preferred method when the file is to\r\n   be used on the same computer. The ASCII format allows use of the file on\r\n   another type of computer.\r\n\r\n10.   The output tape, ASCII (formatted) or binary (unformatted), can be read\r\n      by the INPUTT4 module. On ASCII tape, if P4 is 2, the formats for\r\n      integers and real data are selected automatically depending on the\r\n      precision of the incoming matrix data block. If the matrix is in single\r\n      precision, formats I13 and 10E13.6 are used. If the matrix is in double\r\n      precision, I16 and 8D16.9 are used.\r\n\r\n11.   If P3 =3, formats I16 and 8E16.9 are used for integers and single\r\n      precision real data to increase numeric accuracy. This option is\r\n      available only for machines with long word size, 60 bits or more per\r\n      word.\r\n\r\n12.   A fatal error in reading input tape may occur if P4 is selected\r\n      erroneously with respect to the content of the tape.\r\n\r\n13.   On the ASCII tape, and sparse matrix output, each string of non-zero\r\n      data is written as a FORTRAN record. A fatal error could occur for a\r\n      large matrix where the number of records exceeds system I/O limits.\r\n\r\n14.   When KDICT, MDICT, or BDICT input table is copied out to an ASCII output\r\n      tape (not to a binary tape), the damping constant, the only real number\r\n      on the table, is pre-multiplied by 10**8, and converted to an integer.\r\n      The whole table therefore is in pure integer form, and is written out by\r\n      a 10I13 format. In rigid format heat analyses, these six special tables,\r\n      prefixed by an \"L\", work also with OUTPUT4.\r\n=PAGE=\r\nOUTPUT5 - Create User-Written FORTRAN File\r\n\r\nPurpose\r\n\r\nWrites up to five NASTRAN GINO data blocks to a user FORTRAN file using a\r\nFORTRAN write, formatted or unformatted. (The FORTRAN file may reside either\r\non physical tape or on a mass storage device.) If the data block contains\r\nmatrix data, each matrix column is first unpacked, then written out to your\r\nfile in unpacked form. If the data block contains table data and formatted\r\nrecords are requested, a dynamic scheme is used to generate the appropriate\r\nformat for the FORTRAN write. Coded symbols are also included in the formatted\r\ntable data, so that they can be read back into the NASTRAN system by the\r\nINPUTT5 module, or by a user-written FORTRAN program. Mixed matrix and table\r\ndata blocks are allowed in one OUTPUT5 operation.\r\n\r\nThe unformatted (binary) user file is intended to be used later in the same\r\ncomputer, or a similar computer of the same manufacturer. The formatted file\r\ncan be generated in one computer system and used later in another, with\r\ncomplete freedom in operating systems and computer manufacturers. The\r\nformatted file can be viewed and edited by the use of the system editor. The\r\nrecords contain 132 characters (or less) per line.\r\n\r\nThe parameters in OUTPUT5 are modeled after OUTPUT2. They can be used to\r\ndirect which user output file (INP1, INP2, UT1 etc.) is to be used, to write\r\nformatted or unformatted records, to position the output file prior to\r\nwriting, and to place an End-Of-File mark at the end of the tape. Multiple\r\ncalls are allowed. You are cautioned to be careful when positioning your\r\noutput file with OUTPUT5, since you may inadvertently destroy information\r\nthrough improper positioning. Even though no data blocks are written, an EOF\r\nwill be written at the completion of each call, which has the effect of\r\ndestroying anything on the tape forward of the current position.\r\n\r\nDMAP Calling Sequence\r\n\r\nOUTPUT5  DB1,DB2,DB3,DB4,DB5//C,N,P1/C,N,P2/C,N,P3/C,N,P4/C,N,T1/C,N,T2/\r\n         C,N,T3/...C,N,T10 $\r\n\r\nOUTPUT5 is intended to have the same logical action as the FORTRAN User File\r\nmodule OUTPUT2 and the GINO User File module OUTPUT1, except for formatted\r\ntape. It is therefore suggested that the examples shown under modules OUTPUT2\r\nand OUTPUT1 be used for OUTPUT5 as well, excepting the addition of the P4\r\nparameter. All samples should be ended with a call to OUTPUT5 with P1=-9.\r\n\r\nInput Data Blocks\r\n\r\nDBi        Any data block which you desire to be written on one of the\r\n           NASTRAN FORTRAN user files INPT, INP1, INP2,..., INP9. Any or all\r\n           of the input data blocks may be purged. Only unpurged data blocks\r\n           will be placed on your file.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\n1. The meanings of the first three parameter values (P1, P2, P3) are the same\r\n   as those described for the OUTPUT2 module, except your file code and the\r\n   FORTRAN file name are given below. (The default value for P2 is 15, or 11\r\n   for a CDC machine.)\r\n\r\nĿ\r\n FORTRAN LOGICAL                          \r\n    UNIT, P2           USER FILE CODE     \r\nĴ\r\n       11              UT1 (CDC only)     \r\n       12              UT2 (CDC only)     \r\n       14              INPT (UNIVAC,VAX)  \r\n       15              INP1 (All          \r\n       16              INP2  machines     \r\n        :                :   except       \r\n       23              INP9  CDC)         \r\n       24              INPT (IBM only)    \r\n\r\n\r\n2. The fourth parameter (P4) for this module is used to specify whether your\r\n   output tape is to be written formatted (P4=1 or 2), or unformatted  (P4=0,\r\n   default). Unless the tape is to be used later by a different computer or a\r\n   different operating system, the unformatted tape should be used.\r\n\r\n   On the formatted tape, with P4=1, the selection of output formats for real\r\n   data is automatic, depending on the precision of the incoming matrix data\r\n   blocks. If the matrix in in single precision, format 10E13.6 is used. If\r\n   the matrix is in double precision, 5D23.17 is used. Format I13 is used for\r\n   integers in both cases.\r\n\r\n   For machines with long word only, 60 bits or more per word, the single\r\n   precision format can be switched to 5E23.17 for numeric accuracy by setting\r\n   P4 to 2.\r\n\r\n3. The 10 Ti parameters (T1, T2, T3,..., T10) are used only for table data\r\n   blocks. They are used only when a formatted output file is requested\r\n   (P4=1), and you want to override the automatic format generation of the\r\n   OUTPUT5 module. (Default - all Ti are zeros)\r\n\r\nThe following rules are used to create user-directed output format:\r\n\r\na. 9 digits must be specified on a Ti parameter. Zero fill if necessary.\r\n\r\nb. The digits are continued among the Ti parameters; therefore up to 90 digits\r\n   are allowed. The digits are arranged from left to right. First digit\r\n   specifies the format of the first data word. Second, third, fourth, etc.,\r\n   specify the second, third, fourth data words, etc. (See exception below\r\n   using digits 5 through 9)\r\n\r\nc. The values of digits and their meanings are:\r\n\r\n   0, format not specified; whatever format OUTPUT5 generated will be used,\r\n   1, specifies integer format,\r\n   2, specifies single precision real format,\r\n   3, specifies BCD format,\r\n   4, specifies double precision real format, and\r\n   5-9, specify multiple format of the same type indicated by next digit,\r\n   which must be 0 through 4. For example, 061352000 is same as\r\n   0111111322222000\r\n\r\nMethods\r\n\r\nThe methods used to transfer data from NASTRAN GINO data blocks to your output\r\ntape (or file) depend on whether\r\n\r\na. the data blocks are matrix or table,\r\nb. formatted or unformatted output tape is requested, and\r\nc. data contains single precision real numbers or double precision numbers, or\r\n   both. (Table data block only)\r\n\r\nThe methods used must also guarantee continuity of mixed matrix and table\r\ntypes of block data on your output tape. That is, the mixed data must be able\r\nto be read back into the NASTRAN system, or processed by a user's program, by\r\na common switching mechanism.\r\n\r\nOUTPUT5 treats any input data block as matrix if the 5th and the 6th words\r\n(maximum non-zero matrix column length and matrix density) are both non-zero.\r\nOtherwise, the data block is table. This method is, however, not perfect. Most\r\ntable data blocks generated by LINK1, such  as GEOM1, GEOM2, EPT, MPT, etc.\r\nmay have non-zero 5th and 6th trailer words.\r\n\r\nUNFORMATTED TAPE\r\n\r\nThe data transfer from a GINO file to an unformatted tape is comparatively\r\nsimple. The difference in processing matrix data and table data lies in a\r\nsingle key word of the length of each record.\r\n\r\nMATRIX - A matrix header record that includes the original GINO trailer is\r\nwritten to user tape first. Thus the total number of records (equal number of\r\ncolumns) and the length of each record (equal number of rows) are known. Each\r\ncolumn of the matrix is unpacked and copied out to your tape, except that the\r\nleading and trailing zeros are not copied out. The data is either single\r\nprecision or double precision real numbers. Each output record is also\r\npreceded by three control words. The following FORTRAN code can read one such\r\ncolumn array (the ICOL matrix column):\r\n\r\nREAD (TAPE) ICOL,JB,JE,(ARRAY(J),JB,JE)\r\n\r\nTABLE - A table header record, with the 5th and 6th trailer words set to\r\nzeros, is also written out to indicate the following records are of table\r\ntype. Records from the input GINO data block are read and transferred to user\r\ntape directly, except each output record is preceded by one additional word,\r\nwhich tells the total length of this current record. The following FORTRAN\r\ncode can be used to read one such record:\r\n\r\nREAD (TAPE) LENGTH,(ARRAY(J),J=1,LENGTH)\r\n\r\nFORMATTED TAPE\r\n\r\nMost of the attributes of unformatted tape apply equally well to the formatted\r\ntape, except tapes are written with FORTRAN formats.\r\n\r\nMATRIX - All integers are written in I8 format, BCD in A4 format, single\r\nprecision real numbers in E13.6 (or E26.17 if P4 = 2), and double precision\r\nnumbers in D26.17. Only the matrix header record can have all mixed data\r\ntypes; the matrix column records contain only real numbers. The following\r\nFORTRAN code reads the header record and/or a matrix column:\r\n\r\n    READ (TAPE,10) I,J,K,(A(L),L=J,K)\r\n10  FORMAT (3I8,/,(10E13.6 ))    (for single precision data), or\r\n10  FORMAT (3I8,/,( 5D26.17))    (for double precision data), or\r\n10  FORMAT (3I8,/,( 5E26.17))    (P4 = 2)\r\n\r\nTABLE - All integers are written in (\"I\",I9) format, BCD in (\"/\",A4) format,\r\nsingle precision real numbers in (\"R\",E14.7) format, and double precision\r\nnumbers in (\"D\",E14.7). Notice that 5 bytes are used for BCD, 10 bytes for\r\ninteger, and 15 bytes for real numbers, single or double precision. NASTRAN\r\ntable data blocks often contain integers, BCD, and single and double precision\r\nreal numbers in a mixed fashion. Each table record may have a different table\r\nlength. To write formatted NASTRAN tables and to read them back later present\r\na real challenge in FORTRAN programming. The OUTPUT5 module calls subroutine\r\nTABLE5 to process table data, and the INPUTT5 module calls subroutine TABLEV\r\nto read them back.\r\n\r\nTABLE5 generates dynamically a unit of format - (\"I\",I9), (\"/\",A4), etc. - to\r\nmatch each data type - integer, BCD, etc. When the synthesized format reaches\r\n130 characters (or bytes), a line of data is written out. A table therefore\r\nmay require multiple lines (each line physically is a record). In addition,\r\nthe first word of the first line contains the total length of this table. The\r\nfollowing FORTRAN code can be used to read back a table from your tape into\r\n5-character ARRAY:\r\n\r\n   CHARACTER*5 ARRAY(500)\r\n   READ (TAPE,20) LENGTH,(ARRAY(J),J=1,LENGTH)\r\n20 FORMAT (I10,24A5,/,(26A5))\r\n\r\nThe first byte of each 5-character ARRAY (which is I, /, R, or D) can be used\r\nto convert the 5-, 10-, or 15-character data back to BCD, integer, or real\r\nnumbers (single or double precision). For more details, see INPUTT5 module and\r\nINPTT5 FORTRAN source subroutine.\r\n\r\nTABLE5 calls subroutine NUMTYP to determine the data type, then issue the\r\ncorresponding format for output. NUMTYP, however, is not one hundred percent\r\nfoolproof. One in five or ten thousand times, NUMTYP may err in determining\r\nexactly the data type. Also, when TABLE5 passes a computer word to NUMTYP with\r\nno other information, NUMTYP cannot tell if it is part of a double precision\r\nword, or if it is a single precision word. (In this case, single precision\r\nword is assumed.) Finally, NUMTYP cannot distinguish between integer zero and\r\nreal number zero. (A period may be important in the output format). TABLE5\r\ntherefore may generate the wrong format due to NUMTYP's internal limitations.\r\n\r\nIn case that TABLE5 does produce erroneous format, you can override the\r\nautomatic format generation by the Ti parameters which supply OUTPUT5 the\r\nexact format to use, in a condensed, coded form. 90 (or more if 5, 6, 7, 8, or\r\n9 are used in the Ti specification) unit formats can be specified.\r\n\r\nThe following example illustrates the use of the Ti parameter.\r\n\r\nData on table:\r\n\r\n3  4  3.4  5.0E-3  TESTING  .6D+7  9  G  3.2  8  0.  0  4\r\n12 13  14  15  28  61   88  14   44 .7D+7\r\n\r\nTi specification:\r\n\r\nT1=112233413, T2=212516140  or\r\nT1=604000025, T2=060400000 (7th and 24th words are d.p.\r\n                            and 12th word is real)\r\nNOTE 2 BCD words in \"TESTING\",\r\n       all others are 1 computer word per data entry.\r\n       T2, the last Ti used here, must fill up with zeros to make up\r\n         a 9-digit word.\r\n\r\nWhen viewed with a system editor, the above example looks like this (first\r\nline):\r\n\r\n37I       3I       4R 5.0000000E-3/TEST/ING D 6.0000000D+07 etc.\r\n++---------+++++++++--------------++++++++++---------------\r\n     1st      2nd        3rd          4th          5th data etc.\r\n\r\nThe first 37 indicates there are 37 5-byte words in this record. the \"++----\"\r\nline and the \"1st,2nd...\" line are added here for video purposes.\r\n\r\nSince the formatted data line may not end exactly at 130 bytes, one or two\r\nfillers of the form \"X\" and four blanks may appear at the end of an output\r\nline.\r\n\r\nThe matrix data blocks are handled by the main routine OUTPT5. OUTPT5 calls\r\nTABLE5 only when the former encounters a table data block input.\r\n\r\nExamples\r\n\r\n$  Copy KJI, KGG, and CASECC to INP2 (unit 16), sequential formatted tape\r\n   OUTPUT5 KJI,KGG,CASECC,,//-1/16/*MYTAPE*/1  $\r\n\r\n$  Recover the files from INP2 (unit 16) and make them NASTRAN GINO files\r\n   INPUTT5 /OKJI,OKGG,OCASECC,,/-1/16/*MYTAPE*/1  $\r\n\r\nRemarks\r\n\r\n1. Formatted tape (P4 = 1 or 2) takes a longer time and more space to write\r\n   than the unformatted tape. Unless the tape is intended to be used later by\r\n   a different computer, unformatted tape should be selected (P4=0).\r\n\r\n2. The OUTPUT5 \"records\" are written to tape \"identically\" with both formatted\r\n   and unformatted FORTRAN write commands. The matrix header and the table\r\n   header can be read \"identically\" without prior knowledge of what type of\r\n   data, matrix or table, is coming up next.\r\n\r\n3. All matrix records are written to tape in a standard way, except the first\r\n   matrix header record.\r\n\r\n   All table records are written to tape in a standard way, including table\r\n   header record and the last ending record.\r\n\r\n4. The first tape header record is composed of 9 words as shown below:\r\n\r\nĿ\r\n RECORD  WORD         CONTENTS                  P4=0   P4=1 \r\nĴ\r\n   0     1,2   Tapeid (=P2)                    2*BCD   2A4  \r\n         3,4   Machine (CDC,UNIVAC,IBM,VAX)    2*BCD   2A4  \r\n         5-7   Date                            3*INT   3I8  \r\n           8   System BUFFER SIZE                INT    I8  \r\n           9   P4 used in creating tape (0,1)    INT    I8  \r\n\r\n\r\n5. This remark and the next one deal only with matrix data blocks.\r\n\r\n   Three types of data records follow the header record, or the EOF record of\r\n   a previous data block. They are:\r\n\r\n   a. Matrix header record\r\n   b. Matrix column data record\r\n   c. EOF record\r\n\r\n   These records are written to tape in a standard procedure. Three control\r\n   words are written out first, followed by the actual data. Binary FORTRAN\r\n   write is used in unformatted tape (P4=0), and each logical record holds a\r\n   complete set of data. The following FORTRAN statement is used to write the\r\n   entire data record:\r\n\r\n   WRITE (TAPE) I,J,K,(A(L),L=J,K)\r\n\r\n   For formatted tape, multiple logical records are actually written for each\r\n   complete set of data. The following FORTRAN statements are used to write\r\n   the entire data record:\r\n\r\n       WRITE (TAPE,30) I,J,K,(A(L),L=J,K)\r\n   30  FORMAT (3I8,/,(10E13.6))     (for single precision data), or\r\n   30  FORMAT (3I8,/,(5D26.17))     (for double precision data), or\r\n   30  FORMAT (3I8,/,(5E26.17))     (P4 = 2)\r\n\r\n   In the above WRITE statements, the value of I is used to indicate the type\r\n   of record just read.\r\n\r\nĿ\r\n VALUE OF I       TYPE OF RECORD          \r\nĴ\r\n     0            Matrix header record    \r\n    +n            Nth matrix column data  \r\n    -1            End-of-matrix           \r\n\r\n\r\n   The column data is written to tape from the first non-zero row position (J)\r\n   to the last non-zero row position (K). The following table describes the\r\n   contents of the data records written to tape by the OUTPUT5 module.\r\n\r\nĿ\r\n RECORD+ WORD         CONTENTS                   P4=0   P4=1   \r\nĴ\r\n   1           Matrix header record -                          \r\n          1    0                                  INT     I8   \r\n         2,3   1,1                              2*INT    2I8   \r\n          4    0.0                                F.P. E13.6 or\r\n                                                       D26.17  \r\n         5-10  Matrix trailer                   6*INT    6I8   \r\n               (Col,Row,Form,Type,Max,Density)                 \r\n         11,12 DMAP Name of DB1                 2*BCD    2A4   \r\n                                                               \r\n   2      1    1 (First matrix column)            INT     I8   \r\n          2    Row pos. of first non-zero elem.   INT     I8   \r\n          3    Row pos. of last  non-zero elem.   INT     I8   \r\n         4-W   First banded column data         6*INT    (**)  \r\n               (W=Word3-Word2)                                 \r\n                                                               \r\n   3      1    2 (Second matrix column)           INT     I8   \r\n          2    Row pos. of first non-zero elem.   INT     I8   \r\n          3    Row pos. of last  non-zero elem.   INT     I8   \r\n         4-W   Second banded column data        6*INT    (**)  \r\n                                                               \r\n   4      1    3 (Third matrix column)            INT     I8   \r\n          2    Row pos. of first non-zero elem.   INT     I8   \r\n          3    Row pos. of last  non-zero elem.   INT     I8   \r\n         4-W   Third banded column data         6*INT    (**)  \r\n                                                               \r\n   :      :        :                                           \r\n                                                               \r\n   L      1    L-1 (last matrix column)           INT     I8   \r\n          2    Row pos. of first non-zero elem.   INT     I8   \r\n          3    Row pos. of last  non-zero elem.   INT     I8   \r\n         4-W   Last banded column data          6*INT    (**)  \r\n                                                               \r\n  L+1     1    -1                                 INT     I8   \r\n         2,3   1,1                              2*INT    2I8   \r\n          4    0.0                                F.P. D26.17  \r\n\r\n   (Repeat records 1 through L+1 for next matrix data block.)\r\n    Where (**) is (10E13.6), (5D26.17), or (5E26.17 for long word machines).\r\n   (+ RECORD number does not correspond one to one to the actual\r\n     physical record number.)\r\n\r\n6. A record of (n,1,1,0.0) is written out for a null Nth column.\r\n\r\n7. This remark deals only with table data blocks. Three types of data record\r\n   follow the header record, or an EOF record of previous data block. They\r\n   are:\r\n\r\n   a. Table header record\r\n   b. Record(s) of a table (a table data block can have more than one table\r\n   record)\r\n   c. EOF record.\r\n\r\n   The table header record has a general structure as in the standard\r\n   procedure for the matrix records, except that the 5th and 6th words of the\r\n   matrix trailer section are zeros.\r\n\r\n   The table record was discussed in great detail in the METHOD section for\r\n   both formatted and unformatted output tape. A table record is created for\r\n   each table in the input data block, and no skipping forward or backward is\r\n   allowed on the input file.\r\n\r\n   If double precision data are encountered in a table record, the double\r\n   precision data will be truncated to single precision, but the format of\r\n   (\"D\",E14.7) will be used. (INPUTT5 will re-generate the data back to their\r\n   double precision status.)\r\n\r\n   An End-Of-File record in the form of \"-1 1 1 0.0D+0\" ends the table record\r\n   output.\r\n\r\n8. Since the formatted tape (P4 = 1 or 2) is intended to be used in different\r\n   computers, the OUTPUT5 module appends no system control word(s) to the\r\n   FORTRAN written formatted records. The output tape must be unlabeled, fixed\r\n   block size with record size of 132 characters, and ANSI unpacked character\r\n   data set. The specification of the tape is either internally specified\r\n   (UNIVAC) by a FORTRAN open statement, or uses system default tape\r\n   specification (IBM and VAX). The CDC user must specify the output tape\r\n   externally by the appropriate FILE, LABEL, or REQUEST cards:\r\n\r\n   For example:\r\n\r\n   LABEL,TAPE,NT,D=1200,CV=AS,F=S,LB=KU,PO=W.\r\n   FILE,TAPE,MRL=132,MBL=132,RT=F,BT=C.\r\n\r\n9. Since open core is used in data processing, the OUTPUT5 module is capable\r\n   of handling all kinds and all sizes of input data blocks.\r\n=PAGE=\r\nPARAM - Parameter Processor\r\n\r\nPurpose\r\n\r\nTo perform specified operations on integer DMAP parameters.\r\n\r\nDMAP Calling Sequence\r\n\r\nPARAM // C,N,op / V,N,OUT / V,N,IN1 / V,N,IN2 $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nop         a BCD operation code from the table below (Input, no default). op\r\n           is usually specified as a \"C,N\" parameter.\r\n\r\nOUT        the name of the parameter which is being generated by PARAM\r\n           (Output-Integer, default = 1).\r\n\r\nIN1        the name of a parameter whose value is used to compute OUT\r\n           according to the table below (Input-Integer, default = 1).\r\n\r\nIN2        the name of a parameter whose value is used to compute OUT\r\n           according to the table below (Input-Integer, default = 1).\r\n\r\nRemarks\r\n\r\n1. The tables below give the results for OUT as a function of op, IN1, and\r\n   IN2.\r\n\r\nĿ\r\n Param               Arithmetic Operations               \r\nĴ\r\n  op      ADD      SUB      MPY      DIV      NOT    \r\nĴ\r\n  OUT    IN1+IN2  IN1-IN2  IN1xIN2  IN1/IN2  -IN1    \r\n\r\n\r\n Ŀ\r\n  Param                Logical Operations               \r\n Ĵ\r\n   op         AND             OR            IMPL      \r\n Ĵ\r\n   IN1   <0 <0 >=0>=0<0 <0 >=0>=0<0 <0 >=0>=0\r\n Ĵ\r\n   IN2   <0 >=0<0 >=0<0 >=0<0 >=0<0 >=0<0 >=0\r\n Ĵ\r\n   OUT   -1 +1 +1 +1 -1 -1 -1 +1 -1 +1 -1 -1 \r\n \r\n\r\nĿ\r\n Param                 Arithmetic Relational Operations                 \r\nĴ\r\n  op       EQ        GE        GT        LE        LT        NE    \r\nĴ\r\nIN1-IN2<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0<0 =0 >0\r\nĴĴĴ\r\n  OUT  +1 -1 +1+1 -1 -1+1 +1 -1-1 -1 +1-1 +1 +1-1 +1 -1\r\n\r\n\r\nĿ\r\n Param                             Special Operations                     \r\nĴ\r\n  op                                      OUT                             \r\nĴ\r\n NOP      OUT (unchanged)                                                 \r\n                                                                          \r\n KLOCK    Current CPU time in integer seconds from the start of the job.  \r\n                                                                          \r\n TMTOGO   Remaining CPU time in integer seconds based on the TIME card.   \r\n                                                                          \r\n PREC     Returns the currently requested precision; single precision (1) \r\n          or double precision (2).                                        \r\n                                                                          \r\n DIAG     Turn on DIAGs IN1 through IN2.                                  \r\n            IN1 >= IN2 will turn on DIAG IN1                              \r\n            IN1 < IN2 will turn on DIAG IN1 through DIAG IN2              \r\n                                                                          \r\n DIAGOFF  Turn off DIAGs IN1 through IN2 as used for DIAG.                \r\n                                                                          \r\n SSST     Turns DIAG OUT on if OUT > 0.                                   \r\n          Turns DIAG |OUT| off if OUT <= 0.                               \r\n                                                                          \r\n SSSR     Saves DIAG IN1 in OUT if IN1 >= 0.                              \r\n          Restores DIAG |IN1| to OUT if IN1 < 0.                          \r\n                                                                          \r\n STSR     Saves SYSTEM(IN1) in OUT if IN1 >= 0.                           \r\n          Restores SYSTEM(IN1) to OUT if IN1 < 0.                         \r\n          (SYSTEM(IN1) is the IN1-th word in /SYSTEM/ common block.)      \r\n                                                                          \r\n SYSR     Saves SYSTEM(IN1) in OUT.                                       \r\n                                                                          \r\n SYST     Sets the value of both SYSTEM(IN1) and OUT to IN2.              \r\n\r\n\r\n2. PARAM does its own SAVE; therefore, a SAVE is not needed following the\r\n   module.\r\n\r\nExamples\r\n\r\n1. To change the sense of parameter NOXYZ (which may be useful for the COND or\r\n   EQUIV instructions):\r\n\r\n   PARAM // C,N,NOT / V,N,XYZ / V,N,NOXYZ $    or\r\n   PARAM // *NOT* / XYZ / NOXYZ $\r\n\r\n   Alternatively, XYZ could have been set in the following way:\r\n\r\n   PARAM // C,N,MPY / V,N,XYZ / V,N,NOXYZ / C,N,-1 $   or\r\n   PARAM // *MPY* / XYZ / NOXYZ / -1 $\r\n\r\n2. PARAM // C,N,IMPL / V,N,ABC / V,N,DEF / V,N,GHI $\r\n\r\n3. To set the value of parameter P1 to 5 and save it for subsequent use:\r\n\r\n   PARAM // C,N,NOP / V,N,P1=5 $    or\r\n   PARAM // *NOP* / P1=5 $\r\n\r\n4. To set parameter ABC to +1:\r\n\r\n   PARAM // C,N,EQ / V,N,ABC / C,N,2 / C,N,-3 $    or\r\n   PARAM // *EQ* / ABC / 2 / -3 $\r\n\r\n5. To change the maximum number of lines of printed output:\r\n\r\n   PARAM // C,N,SYST / Y,N,DUM / C,N,14 / C,N,150000 $    or\r\n   PARAM // *SYST* // 14 / 150000 $\r\n\r\n   The 14th word in /SYSTEM/ common block is MXLINS, whose default value is\r\n   20000, that is, SYSTEM(14) = 20000. The equivalent operations to the PARAM\r\n   examples shown above are to code SYSTEM(14) = 150000 or MXLINS = 150000 on\r\n   the NASTRAN card or to use the Case Control card MAXLINES = 150000.\r\n\r\n6. To turn on DIAGs 1 through 6:\r\n\r\n   PARAM // C,N,DIAG / C,N, / C,N,1 / C,N,6 $    or\r\n   PARAM // *DIAG* // 1 / 6 $\r\n\r\n   This can also be done with the Executive Control card DIAG 1,2,3,4,5,6.\r\n=PAGE=\r\nPARAMD - Parameter Processor, Double Precision\r\n\r\nPurpose\r\n\r\nTo perform specified arithmetic, logical, and conversion operations on double\r\nprecision real or double precision complex parameters.\r\n\r\nDMAP Calling Sequence\r\n\r\nPARAMD  // C,N,OP / V,N,OUTD / V,N,IND1 / V,N,IND2 / V,N,OUTC /\r\n                   V,N,INC1 / V,N,INC2 /  V,N,FLAG   $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nOP         Input-BCD operation code from the table below, no default.\r\n\r\nOUTD       Output-Double precision, default = 0.0D+0.\r\n\r\nIND1       Input-Double precision, default = 0.0D+0.\r\n\r\nIND2       Input-Double precision, default = 0.0D+0.\r\n\r\nOUTC       Output-Double precision-complex, default = (0.0D+0, 0.0D+0).\r\n\r\nINC1       Input-Double precision-complex, default = (0.0D+0, 0.0D+0).\r\n\r\nINC2       Input-Double precision-complex, default = (0.0D+0, 0.0D+0).\r\n\r\nFLAG       Output-Integer, default = 0 (see Remark 6).\r\n\r\nThe values of parameters are dependent upon OP as shown in the table described\r\nin PARAMR module. In addition, a new OP operation code is added:\r\n\r\nOP         OUTPUTS\r\n\r\nERR        If FLAG is set to 0 (or by default), NASTRAN system NOGO flag (the\r\n           3rd word of /SYSTEM/) is set to integer zero unconditionally. If\r\n           FLAG is set to non-zero by user, NASTRAN job will terminate if any\r\n           preceding PARAMD (or PARAMR) has non-fatal error(s).\r\n\r\nRemarks\r\n\r\n1. All parameters, except OP, must be \"V\" type. Default parameter values will\r\n   be used in case of error. Error in input parameter(s) would cause output\r\n   parameter(s) to pick up the original default value(s).\r\n\r\n2. All input errors are non-fatal, with error messages printed.\r\n\r\n3. PARAMD does its own SAVE; therefore, a SAVE is not needed following the \r\n   module. \r\n\r\n4. For OP = DIV or OP = DIVC, the output is zero if the denominator is zero,\r\n   and FLAG is set to +1.\r\n\r\n5. For OP = SIN, OP = COS or OP = TAN, the input must be expressed in radians.\r\n\r\n6. The default value of FLAG is zero as stated in the Programmer's Manual. All\r\n   NASTRAN releases prior to 1989 actually used a +1 instead of 0. The case\r\n   where FLAG = -1 was not affected.\r\n\r\n7. Remarks 1, 2, and 6 also apply to the PARAMR module. The new ERR operation\r\n   code is also available in PARAMR.\r\n\r\nExamples\r\n\r\nPARAMR  //*ERR*  $\r\nPARAMR  //*ADD*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $\r\nPARAMR  //*SUB*     /V,N,R1SP4  /V,N,R1    /V,N,SP4   $\r\nPARAMR  //*ABS*     /V,N,ABSR1  /V,N,R1               $\r\nPARAMR  //*SQRT*    /V,N,SQTR1  /V,N,ABSR1            $\r\nPARAMR  //*MPYC* ////V,N,CMPY   /V,N,SCPLX /V,N,CS1   $\r\nPARAMR  //*COMPLEX*//V,N,R1     /V,N,SP4   /V,N,OUTC  $\r\nPARAMR  //*LE*     //V,N,R1     /V,N,SP4////V,N,LEFLG $\r\nPARAMD  //*MPY*     /V,N,RDPDP  /V,N,RDPX  /V,N,RDPX  $\r\nPARAMD  //*DIV*     /V,N,DP4X   /V,N,DP4   /V,N,RDPX  $\r\nPARAMD  //*EXP*     /V,N,EXPX   /V,N,DP4   /V,N,RDP   $\r\nPARAMD  //*CONJ* ////V,N,CONJX  /V,N,CDP4             $\r\nPARAMD  //*EQ*     //V,N,EXPX   /V,N,DP4////V,N,EQFLG $\r\nPARAMD  //*DIVC* ////V,N,DIVCX  /C,Y,DCPLX4/V,N,CDP4  $\r\nPARAMD  //*ERR*  ////  //       /C,N,1                $\r\nPRTPARM // 0     $\r\n=PAGE=\r\nPARAML - Abstract Parameters From a List\r\n\r\nPurpose\r\n\r\nTo convert an element from a GINO matrix or table data block to a legitimate\r\nNASTRAN parameter, or parameters.\r\n\r\nDMAP Calling Sequence\r\n\r\nPARAML  DB // C,N,OP / V,N,P1 / V,N,P2 / V,N,RSP/ V,N,INT/ V,N,RDP/\r\n              V,N,BCD/ V,N,CSX/ V,N,CDX   $\r\n\r\nInput Data Blocks\r\n\r\nDB         Any GINO data block file (table or matrix, single precision or\r\n           double precision, real or complex).\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nOP         One of the following key words, BCD input, no default. \"MATRIX\",\r\n           \"NULL\", \"PRESENCE\", \"TRAILER\", \"TABLE1\", \"TABLE2\", or \"TABLE4\".\r\n\r\nP1,P2      Input-Integer, see Remark 4 below, default = 1,1.\r\n\r\nP2         Output-Integer (only in OP=TRAILER).\r\n\r\nRSP        Output-Real single precision, default = 0.0.\r\n\r\nINT        Output-Integer, default = 0.\r\n\r\nRDP        Output-Real double precision, default = 0.D+0.\r\n\r\nBCD        Output, two BCD words in 2A4 format, default = (VOID)\r\n\r\nCSX        Output, single precision complex number, default = (0.,0.).\r\n\r\nCDX        Output, double precision complex, default = (0.D+0,0.D+0).\r\n\r\nRemarks\r\n\r\n1. RSP, INT, RDP, BCD, CSX and CDX will be set by the module whenever they are\r\n   present and of the \"V\" type parameters. The parameters will be printed out\r\n   in their respective formats according to their precision types. Warning\r\n   message will be printed if type mismatch occurs or end-of-record is\r\n   encountered.\r\n\r\n2. After execution, the parameter value will be delivered to NASTRAN's\r\n   executive VPS table as a numerical value in the form specified by any one\r\n   or some of the parameters RSP, RDP, CSX, CDX, INT, or BCD (4 BCD characters\r\n   per word, the rest of the word blank filled).\r\n\r\n3. PARAML does its own SAVE; therefore, a SAVE is not needed following the\r\n   module. Invalid parameter due to type mismatch or EOR encountered, is not\r\n   saved and the default value remains.\r\n\r\n4. P1 and P2 control the location in the data block of the element to be\r\n   selected. The meaning of P1 and P2 depend on OP selection as explained in\r\n   Remarks 5 through 9.\r\n\r\n5. If OP = TABLEi (where i=1, 2, or 4), P1 is the record number and P2 is the\r\n   word position of the target element in DB. Word position is based on\r\n   computer word count (1 word per integer or single precision real, 2 words\r\n   per double precision real or single precision complex, and 4 words per\r\n   double precision complex). The table data from record P1 and word P2 (or\r\n   word P2 plus more) will be delivered to the VPS table as a numerical value\r\n   in the form specified.\r\n\r\n   If OP = TABLE1, one data word from P2 word position, record P1, will be\r\n   used to form the output parameter.\r\n\r\n   If OP = TABLE2, two data words from P2 and P2+1, record P1, will be used.\r\n\r\n   If OP = TABLE4, four words from P2, P2+1, P2+2, and P2+3, record P1, will\r\n   be used.\r\n\r\n   Since table data block DB can contain mixed types of data, you must know\r\n   ahead of time what the original data type is, and select TABLE1, TABLE2, or\r\n   TABLE4 accordingly.\r\n\r\n   For example, the data in P2, p2+1, P2+2, and P2+3 are a, b, c, d, and the\r\n   output parameter request is double precision complex CDX,\r\n\r\n   TABLE1 gives CDX = (a.D+0, 0.D+0)\r\n   TABLE2 gives CDX = (a.D+0, b.D+0)\r\n   TABLE4 gives CDX = (e.D+0, f.D+0)\r\n\r\n   where e is a double precision real number formed by the union of a and b,\r\n   and f, by the union of c and d.\r\n\r\n6. If OP = MATRIX, P1 is the row number and P2 is the column number of the\r\n   matrix in [DB] to be read. The matrix element of (ROW,COL) will be\r\n   delivered to VPS as a numerical value in the form specified by one or more\r\n   of the parameters RSP, RDP, CSX, or CDX. Requests for CSX or CDX from a\r\n   real matrix will assign the value of (ROW,COL) to the real part and zero to\r\n   the imaginary part. The requested output parameter(s) are set to zero(s)\r\n   and a warning message is issued if:\r\n\r\n   (1) P1 and/or P2 exceed the matrix order,\r\n   (2) requests for RSP and RDP from a complex matrix,\r\n   (3) requests for INT and BCD from [DB], and the invalid output parameter(s)\r\nare not saved.\r\n\r\n   (Notice that row first and column second is consistent with SCALAR module\r\n   parameter input, and also with common practice in matrix element\r\n   designation; (row,column)).\r\n\r\n7. If OP = NULL and if [DB] is a matrix, INT is set to -1 if the sixth word of\r\n   the matrix trailer, the matrix density, is zero.\r\n\r\n8. If OP = PRESENCE, INT will be -1 if input data block is purged.\r\n\r\n9. If OP = TRAILER, P2 is output as the value of ith word of the matrix\r\n   trailer where i is set by P1 in accordance with the following table.\r\n\r\nĿ\r\n P1              TERM OF MATRIX TRAILER                          \r\nĴ\r\n  1  Numbers of columns                                          \r\n  2  Number of rows                                              \r\n  3  Form of matrix                                              \r\n  4  Precision of matrix                                         \r\n  5  Maximum number of nonzero terms in any column of the matrix \r\n  6  Matrix density                                              \r\n\r\n\r\n10.   One or more of the output parameters can be requested simultaneously.\r\n\r\n11.   After execution, a user information message prints out the parameter\r\n      value in the format prescribed by you. The output parameters can also be\r\n      printed by the PRTPRM module which carries normally more digits. (PRTPRM\r\n      may actually print integer zero in a real number format, 0.0)\r\n\r\n12.   See SCALAR module for similar capability.\r\n\r\nExamples\r\n\r\nObtain the value in column 1, row 4 of a real matrix, and record 2 word 5 of a\r\ntable.\r\n\r\nPARAML  KGG //*MATRIX*/C,N,4/C,N,1     /V,N,STERM  $\r\nPARAML  KGG //*MATRIX*/C,N,4/C,N,1   ///V,N,DTERM  $\r\nPARAML  KGG //*MATRIX*/C,N,4/C,N,1 /////V,N,CSTERM $\r\nPARAML  KGG //*MATRIX*/C,N,4/C,N,1//////V,N,CDTERM $\r\nPARAML  KGG //*MATRIX*/C,N,4/C,N,1/V,N,TERM1//V,N,TERM2\r\n            //V,N,TERM3/V,N,TERM4 $\r\nPARAML  CASECC //*TABLE1*/C,N,2/C,N,2  //V,N,ATERM $\r\nPARAML  CASECC //*TABLE2*/C,N,2/C,N,5////V,N,BTERM $\r\n\r\nThe above output parameters yield the following results:\r\n\r\nSTERM ,TERM1 = KGG(4,1), in single precision,\r\nDTERM ,TERM2 = KGG(4,1), in double precision,\r\nCSTERM,TERM3 = KGG(4,1), in single precision complex expression,\r\nCDTERM,TERM4 = KGG(4,1), in double precision complex expression\r\nATERM  = 2nd word of the 2nd record of CASECC, integer, and\r\nBTERM  = 5th and 6th words of the 2nd record of CASECC, 2 BCD words.\r\n=PAGE=\r\nPARAMR - Parameter Processor, Real\r\n\r\nPurpose\r\n\r\nTo perform specified arithmetic, logical, and conversion operations on real or\r\ncomplex parameters.\r\n\r\nDMAP Calling Sequence\r\n\r\nPARAMR  // C,N,OP / V,N,OUTR / V,N,INR1 / V,N,INR2\r\n                    V,N,OUTC / V,N,INC1 / V,N,INC2\r\n                    V,N,FLAG $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nOP         Input-BCD operation code from the table below, no default.\r\n\r\nOUTR       Output-Real, default = 0.0.\r\n\r\nINR1       Input-Real, default = 0.0.\r\n\r\nINR2       Input-Real, default =  0.0.\r\n\r\nOUTC       Output-Complex, default = (0.0,0.0).\r\n\r\nINC1       Input-Complex, default = (0.0,0.0).\r\n\r\nINC2       Input-Complex, default = (0.0,0.0).\r\n\r\nFLAG       Output-Integer, default = 0.\r\n\r\nThe values of the parameters are dependent upon OP as shown in the following\r\ntable:\r\n\r\nOP           OUTPUTS\r\n\r\nADD       OUTR = INR1 + INR2\r\nSUB       OUTR = INR1 - INR2\r\nMPY       OUTR = INR1 * INR2\r\nDIV       OUTR = INR1 / INR2\r\nNOP       RETURN\r\nSQRT      OUTR = square root of INR1\r\nSIN       OUTR = SIN(INR1)\r\nCOS       OUTR = COS(INR1)\r\nABS       OUTR = | INR1 |\r\nEXP       OUTR =  exp (INR1)\r\nTAN       OUTR = TAN(INR1)\r\nNORM      OUTR = || OUTC ||\r\nPOWER     OUTR = INR1 ** INR2\r\nADDC      OUTC = INC1 + INC2\r\nSUBC      OUTC = INC1 - INC2\r\nMPYC      OUTC = INC1 * INC2\r\nDIVC      OUTC = INC1 / INC2\r\nCSQRT     OUTC = square root of INC1\r\nCOMPLEX   OUTC = (INRT,INR2)\r\nCONJ      OUTC = INC1\r\nREAL      INR1 = Re (OUTC)\r\n          INR2 = Im (OUTC)\r\nEQ        FLAG = -1 if INR1 = INR2\r\nGT        FLAG = -1 if INR1 > INR2\r\nLT        FLAG = -1 if INR1 < INR2\r\nLE        FLAG = -1 if INR1 <= INR2\r\nGE        FLAG = -1 if INR1 >= INR2\r\nNE        FLAG = -1 if INR1 not equal INR2\r\nLOG       OUTR = LOG   (INR1)\r\n                    10\r\nLN        OUTR = LOG  (INR1)\r\n                    e\r\nFIX       FLAG = FIX (OUTR)\r\nFLOAT     OUTR = FLOAT(FLAG)\r\n\r\nRemarks\r\n\r\n1. Any output parameter must be \"V\" type if the parameter is used by \"OP\" as\r\n   output.\r\n\r\n2. For OP = DIV or OP = DIVC, the output is zero if the denominator is zero.\r\n\r\n3. PARAMR does its own SAVE; therefore, a SAVE is not needed following the\r\n   module.\r\n\r\n4. For OP = SIN, OP = COS, or OP = TAN, the input must be expressed in\r\n   radians.\r\n=PAGE=\r\nPRTPARM - Parameter and DMAP Message Printer\r\n\r\nPurpose\r\n\r\nA. Prints parameter values.\r\nB. Prints DMAP messages.\r\n\r\nDMAP Calling Sequence\r\n\r\nPRTPARM // C,N,a / C,N,b / C,N,c $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\na          Integer value (no default value).\r\n\r\nb          BCD value (default value = XXXXXXXX).\r\n\r\nc          Integer value (default value = 0).\r\n\r\nMethod\r\n\r\nA. As a parameter printer, use a = 0. There are two options:\r\n\r\n   1. b = parameter name will cause the printout of the value of that\r\n      parameter.\r\n\r\n      Example: PRTPARM  // C,N,0 / C,N,LUSET $\r\n\r\n   2. b = XXXXXXXX will cause the printout of the values of all parameters in\r\n      the current variable parameter table. Since this is the default value,\r\n      it need not be specified.\r\n\r\n      Example: PRTPARM  // C,N,0 $\r\n\r\nB. As a DMAP message printer, use a not equal to 0. There are two options:\r\n\r\n   1. a > 0 causes the printout of the jth message of category b where j = |a|\r\n      and b is one of the values shown below. (The number of messages\r\n      available in each category is also given.)\r\n\r\n      Example: PRTPARM  // C,N,1 / C,N,DMAP $\r\n\r\n   2. a < 0 causes the same action as a 0 with the additional action of\r\n      program termination. Thus, PRTPARM may be used as a fatal message\r\n      printer.\r\n\r\n      Example: PRTPARM  // C,N,-2 / C,N,PLA $\r\n\r\nRemarks\r\n\r\n1. b is always a value.\r\n\r\n2. Meaningless values of a and b will result in diagnostic messages from\r\n   PRTPARM.\r\n\r\n3. Following is a table of b category values.\r\n\r\nĿ\r\n                                                                Number of \r\n           DISPLACEMENT Rigid Formats             Value of b    Messages  \r\nĴ\r\n 1   Static Analysis                               STATICS          5     \r\n 2   Static Analysis with Inertia Relief           INERTIA          6     \r\n 3   Normal Mode Analysis                          MODES            4     \r\n 4   Static Analysis with Differential Stiffness   DIFFSTIF         5     \r\n 5   Buckling Analysis                             BUCKLING         6     \r\n 6   Piecewise Linear Static Analysis              PLA              5     \r\n 7   Direct Complex Eigenvalue Analysis            DIRCEAD          3     \r\n 8   Direct Frequency and Random Response          DIRFRRD          4     \r\n 9   Direct Transient Response                     DIRTRD           3     \r\n10   Modal Complex Eigenvalue Analysis             MDLCEAD          5     \r\n11   Modal Frequency and Random Response           MDLFRRD          7     \r\n12   Modal Transient Response                      MDLTRD           6     \r\n13   Normal Modes Analysis with Differential       NMDSTIF          6     \r\n     Stiffness                                                            \r\n14   Static Analysis with Cyclic Symmetry          CYCSTAT          6     \r\n15   Normal Modes Analysis with Cyclic Symmetry    CYCMODES         6     \r\n16   Static Aerothermoelastic Design/Analysis      ASTAT            5     \r\n     of Axial-Flow Compressors                                            \r\nĴ\r\n             HEAT Rigid Formats                                           \r\nĴ\r\n 1   Static Heat Transfer                          HSTAT            4     \r\n 3   Nonlinear Static Heat Transfer                HNLIN            3     \r\n 9   Transient Heat Transfer                       HTRD             2     \r\nĴ\r\n             AERO Rigid Formats                                           \r\nĴ\r\n 9   Blade Cyclic Modal Flutter Analysis           BLADE            7     \r\n10   Modal Flutter Analysis                        FLUTTER          5     \r\n11   Modal Aeroelastic Response                    AERORESP         4     \r\nĴ\r\n     Direct Matrix Abstraction Program                                    \r\nĴ\r\n     DMAP                                          DMAP       See Remark 5\r\n\r\n\r\n4. For details on error messages for the ith Displacement Rigid Format, see\r\n   Section 3.(i+1). The Heat and Aero Rigid Formats follow these.\r\n\r\n5. The message number, a, may be any integer for DMAP messages.\r\n\r\n6. The third parameter is not used.\r\n=PAGE=\r\nSCALAR - Convert Matrix Element to Parameter\r\n\r\nPurpose\r\n\r\nTo extract a specified element from a matrix for use as a parameter.\r\n\r\nDMAP Calling Sequence\r\n\r\nSCALAR  DB // C,N,ROW/C,N,COL/V,N,RSP/V,N,RDP/V,N,CSX/V,N,CDX   $\r\n\r\nInput Data Blocks\r\n\r\nDB         May be any type of matrix (single precision or double precision,\r\n           real or complex).\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nROW        Row number of element to be extracted from [DB]. Input-Integer,\r\n           default = 1.\r\n\r\nCOL        Column identification of element. Input-Integer, default = 1.\r\n\r\nRSP        Output, value of element (ROW,COL) in single precision real,\r\n           default = 0.0.\r\n\r\nRDP        Output, value of element (ROW,COL) in double precision real,\r\n           default = 0.D+0.\r\n\r\nCSX        Output, value of element (ROW,COL) in single precision complex,\r\n           default = (0.,0.).\r\n\r\nCDX        Output, value of element (ROW,COL) in single precision complex,\r\n           default = (0.D+0,0.D+0).\r\n\r\nRemarks\r\n\r\n1. RSP, RDP, CSX, and CDX will be set by the module whenever they are present\r\n   and of the \"V\" type parameters. The parameters will be printed out in their\r\n   respective formats according to their precision types. Warning message will\r\n   be printed if type mismatch occurs or element specified is out of matrix\r\n   range.\r\n\r\n2. After execution, the parameter value will be delivered to NASTRAN's\r\n   executive VPS table as a numerical value in the form specified by any of\r\n   the parameters RSP, RDP, CSX, or CDX. The output parameters can also be\r\n   printed by the PRTPRM module, which carries normally more digits.\r\n\r\n3. SCALAR does its own SAVE; therefore, a SAVE is not needed following the\r\n   module. There is no save for any invalid parameter, and the default value\r\n   remains unchanged.\r\n\r\n4. If [DB] is purged, all parameter default values remain unchanged.\r\n\r\n5. All of the output parameters can be printed out by PRTPRM module.\r\n\r\n6. See PARAML for a similar capability.\r\n\r\nExamples\r\n\r\nObtain the value of the element in column 8 and row 2 of the matrix KLL.\r\n\r\nSCALAR  KLL//C,N,2/C,N,8  /V,N,S1  $\r\nSCALAR  KLL//C,N,2/C,N,8 //V,N,D1/V,N,S2/V,N,D2  $\r\n\r\nThe output parameters give the following results:\r\n\r\nS1 = KLL(2,8), in single precision real,\r\nD1 = KLL(2,8), in double precision real,\r\nS2 = KLL(2,8), in single precision complex expression, and\r\nD2 = KLL(2,8), in double precision complex expression.\r\n=PAGE=\r\nSEEMAT - Pictorial Matrix Output\r\n\r\nPurpose\r\n\r\nTo display nonzero elements of a matrix on printer or plotter output\r\npositioned pictorially by row and column within the outlines of the matrix.\r\n\r\nDMAP Calling Sequence\r\n\r\nSEEMAT  M1,M2,M3,M4,M5 // C,N,OPTION/V,N,PFILE/V,N,PACK/\r\n        C,N,MODEL/C,N,TYPING/C,N,PAPERX/C,N,PAPERY $\r\n\r\nInput Data Blocks\r\n\r\nM1,M2,M3,M4,M5  Matrix data blocks, any of which may be purged.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nOPTION     Input BCD value, default = PRINT. This parameter specifies the\r\n           output option. PRINT implies the use of the system output file.\r\n           PLOT implies the use of the NASTRAN General Purpose Plotter\r\n           (NASTPLT) (see Section 4.1). (Any value other than PLOT implies\r\n           PRINT.)\r\n\r\n           NOTE:  The following parameters are used only if OPTION = PLOT.\r\n\r\nPFILE      Input/Output-Integer, default = 0. PFILE represents the frame (or\r\n           sheet) number generated by the plotter. The value of this\r\n           parameter is incremented by one (1) for each frame (or sheet)\r\n           plotted by SEEMAT.\r\n\r\nPACK       Input-Integer, default = 100. Reserved for a future modification\r\n           that will allow the representation of a nonzero block of a matrix\r\n           with a single character.\r\n\r\nMODEL   Input-BCD value, default = M. This parameter specifies the plotter\r\n        type or model. Permissible values are M for microfilm plotters, T for\r\n        table plotters, and D for drum plotters. The default value of M\r\n        implies a microfilm plotter.\r\n\r\nTYPING     Input-Integer, default = 1. This parameter specifies the typing\r\n           capability of the plotter. A value of 1 specifies a plotter\r\n           without typing capability. (In this case, all characters in the\r\n           plot will be drawn.) A value of 0 specifies a plotter with typing\r\n           capability.\r\n\r\nPAPERX     Input-Real, default = 0.0. This parameter specifies the horizontal\r\n           size (or X-dimension) in inches of the plot frame. The use of the\r\n           default value of 0.0 actually causes the program to employ a\r\n           horizontal size of 11.0 inches for table plotters and 30.0 inches\r\n           for drum plotters. (PAPERX cannot be greater than 30.0 inches for\r\n           table plotters.) See Remark 5 regarding the frame size for\r\n           microfilm plotters.\r\n\r\nPAPERY     Input-Real, default = 0.0. This parameter specifies the vertical\r\n           size (or Y-dimension) in inches of the plot frame. The use of the\r\n           default value of 0.0 actually causes the program to employ a\r\n           vertical size of 8.5 inches for table plotters and 30.0 inches for\r\n           drum plotters. (PAPERY cannot be greater than 30.0 inches for\r\n           either table or drum plotters.) See Remark 5 regarding the frame\r\n           size for microfilm plotters.\r\n\r\nMethod\r\n\r\nThe matrix is partitioned into blocks which can be printed on a single sheet\r\nof output paper or frame on the plotter selected. Only blocks containing\r\nnonzero elements will be output. Row and column indices are indicated. \r\nYou are cautioned to make sure your line count limit is large enough. A\r\ndefault of 20,000 lines is provided by NASTRAN. This may be changed by the use\r\nof the MAXLINES card in the Case Control Deck (see Section 2.3). The transpose\r\nof the matrix is output.\r\n\r\nRemarks\r\n\r\n1. If a plotter is used, the file PLT2 (either on tape or mass storage) must\r\n   be made available to NASTRAN.\r\n\r\n2. If a plotter is used, the PFILE parameter updated by SEEMAT must be saved\r\n   either by using a SAVE instruction immediately after the SEEMAT instruction\r\n   or by using the automatic SAVE feature (/S,N,PFILE/) in the SEEMAT\r\n   instruction itself.\r\n\r\n3. The nonzero elements are indicated by asterisks (*), except for diagonal\r\n   elements of square matrices, which are indicated by the letter D, and\r\n   elements in the last row or column, which are indicated by dollar signs\r\n   ($).\r\n\r\n4. The default plotter model is specified by omitting the last five\r\n   parameters.\r\n\r\n5. The plot frame size for microfilm plotters is set at 10.23 inches x 10.23\r\n   inches and is not under user control.\r\n\r\nExamples\r\n\r\n1. Specify a table plotter with typing capability as follows:\r\n\r\n   SEEMAT    M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE//*T*/0 $\r\n\r\n2. Specify a drum plotter without typing capability as follows:\r\n\r\n   SEEMAT    M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE//*D* $\r\n\r\n3. Specify the default plotter (a microfilm plotter without typing capability)\r\n   as follows:\r\n\r\n   SEEMAT    M1,M2,M3,M4,M5 //*PLOT*/S,N,PFILE $\r\n\r\n4. Specify the printer rather than a plotter as follows:\r\n\r\n   SEEMAT    M1,M2,M3,M4,M5 // $\r\n\r\n5. For additional examples, see Section 5.8.8.\r\n=PAGE=\r\nSETVAL - Set Values\r\n\r\nPurpose\r\n\r\nSet integer DMAP parameter variable values equal to other integer DMAP\r\nparameter variables or integer DMAP parameter constants.\r\n\r\nDMAP Calling Sequence\r\n\r\nSETVAL  // V,N,X1 / V,N,A1 /\r\n           V,N,X2 / V,N,A2 /\r\n           V,N,X3 / V,H,A3 /\r\n           V,N,X4 / V,N,A4 /\r\n           V,N,X5 / V,N,A5 $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nX1, X2, X3, X4, X5  Output-Integers, variables (default values = -1, except\r\nfor X1, which has no default).\r\n\r\nA1, A2, A3, A4, A5  Input-Integers, variables or constants (default values =\r\n-1).\r\n\r\nMethod\r\n\r\nThis module sets X1 = A1, X2 = A2, X3 = A3, X4 = A4, and X5 = A5. Only two\r\nparameters need be specified in the calling sequence (X1 and A1).\r\n\r\nRemarks\r\n\r\n1. SETVAL does its own SAVE; therefore, a SAVE is not needed following the\r\n   module.\r\n\r\n2. See PARAM for an alternate method of defining parameter values.\r\n\r\n3. As an example, the statement\r\n\r\n   SETVAL //X1/A1/X2/3 $\r\n\r\n   is equivalent to the statements:\r\n\r\n   PARAM //*ADD*/X1/A1/0 $\r\n   PARAM //*NOP*/X2 = 3 $\r\n=PAGE=\r\nSWITCH - Interchange Data Block Names\r\n\r\nPurpose\r\n\r\nTo interchange two data block names.\r\n\r\nDMAP Calling Sequence\r\n\r\nSWITCH DB1,DB2 // PARAM $\r\n\r\nInput Data Blocks\r\n\r\nDB1        Any NASTRAN data block.\r\nDB2        Any NASTRAN data block.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nPARAM   If PARAM < 0, the switch will be performed - Input-Integer, default =\r\n        -1.\r\n\r\nMethod\r\n\r\nIf PARAM >= 0, a return is made; otherwise the names of the data blocks are\r\ninterchanged. All attributes of the data within the blocks remains constant;\r\nonly the names are changed.\r\n\r\nRemarks\r\n\r\n1. Neither input data block may be purged.\r\n\r\n2. This option is of use in iterative DMAP operations.\r\n=PAGE=\r\nTABPCH - Table Punch\r\n\r\nPurpose\r\n\r\nTo punch NASTRAN tables onto DTI cards in order to allow transfer of data from\r\none NASTRAN run to another, or to allow user postprocessing.\r\n\r\nDMAP Calling Sequence\r\n\r\nTABPCH TAB1,TAB2,TAB3,TAB4,TAB5 // C,N,A1 / C,N,A2 / C,N,A3 / C,N,A4 / C,N,A5 $\r\n\r\nInput Data Blocks\r\n\r\nTAB1, TAB2, TAB3, TAB4, TAB5  Any NASTRAN tables.\r\n\r\nOutput Data Blocks\r\n\r\nNone. All output is punched onto DTI cards.\r\n\r\nParameters\r\n\r\nA1, A2, A3, A4, A5  Input-BCD; defaults are AA, AB, AC, AD, AE.  These\r\nparameters are used to form the       first two characters (columns 74,\r\n                                      75) of the continuation field for\r\n                                      each table respectively.\r\n\r\nRemarks\r\n\r\n1. Any or all tables may be purged.\r\n\r\n2. Integer and BCD characters will be punched onto single-field cards. Real\r\n   numbers will be punched onto double-field cards. Their formats are I8, 2A4,\r\n   E16.9.\r\n\r\n3. Up to 99,999 cards may be punched per table.\r\n\r\n4. Twice the entire record must fit in open core.\r\n\r\n5. Tables with 1 word BCD values (ELSETS) cannot be punched correctly.\r\n\r\nExamples\r\n\r\nTABPCH EST,,,, // C,N,ES $ will punch the EST onto cards with a continuation\r\nmnemonic of +ESbbbbi (where i is the sequence number).\r\n=PAGE=\r\nTABPRT - Formatted Table Printer\r\n\r\nPurpose\r\n\r\nTo print selected table data blocks with format for ease of reading.\r\n\r\nDMAP Calling Sequence\r\n\r\nTABPRT     TDB // C,N,KEY / C,N,OPT1 / C,N,OPT2 $\r\n\r\nInput Data Blocks\r\n\r\nTDB        Table Data Block from list given under X.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nKEY        Alphanumeric value, no default. Identifies the format to be used\r\n           in printing the table. The allowable list is given under X.\r\n\r\nOPT1       Integer, default value = 0. If 0, no blank lines are written\r\n           between entries. If not equal to 0, one blank line will be written\r\n           between each pair of entries.\r\n\r\nOPT2       Integer, default value = 0. Not used at present.\r\n\r\nOutput\r\n\r\nThe contents of the table are formatted and written on the system output file.\r\n\r\nRemarks\r\n\r\n1. The module returns in the event of any difficulty.\r\n\r\n2. The TABPT module can be used to print the contents of any data block.\r\n\r\nExamples\r\n\r\n1. TABPRT   CSTM // C,N,CSTM $\r\n\r\n2. TABPRT   GPL // C,N,GPL / C,N,1 $\r\n\r\nMiscellaneous\r\n\r\nFollowing is a list of data blocks recognized by TABPRT. (Rigid Format name is\r\nused here. The actual DMAP name for the same or equivalent information is\r\nacceptable.)\r\n\r\n   Data Block           Key (Value)\r\n\r\n   BGPDT                BGPDT\r\n   CSTM                 CSTM\r\n   EQDYN                EQDYN\r\n   EQEXIN               EQEXIN\r\n   GPCT                 GPCT\r\n   GPDT                 GPDT\r\n   GPL                  GPL\r\n   GPLD                 GPLD\r\n   GPTT                 GPTT\r\n=PAGE=\r\nTABPT - Table Printer\r\n\r\nPurpose\r\n\r\nTo print table data blocks (may be used for matrix data blocks if desired).\r\n\r\nDMAP Calling Sequence\r\n\r\nTABPT   TAB1,TAB2,TAB3,TAB4,TAB5 // $\r\n\r\nInput Data Blocks\r\n\r\nTAB1, TAB2, TAB3, TAB4, TAB5  Any NASTRAN data block.\r\n\r\nNOTE: Any or all input data blocks can be purged.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nNone.\r\n\r\nRemarks\r\n\r\n1. Each input data block is treated as a table and its contents are printed on\r\n   the system output file via a prescribed format. Each word of the table is\r\n   identified by the module as to type (Real, BCD, Integer) and an appropriate\r\n   format is used.\r\n\r\n2. The trailer data items for the table are also printed.\r\n\r\n3. Purged input data blocks are not printed.\r\n\r\nExamples\r\n\r\nTABPT   GEOM1,,,, // $\r\n\r\nTABPT   GEOM1 ,GEOM2 ,GEOM3 ,GEOM4 ,GEOM5 // $\r\n=PAGE=\r\nTIMETEST - Timing Data for Unit Operations\r\n\r\nPurpose\r\n\r\nTo produce timing data for specific NASTRAN unit operations.\r\n\r\nDMAP Calling Sequence\r\n\r\nTIMETEST   /, / C,N,N / C,N,M / C,N,T / C,N,01 / C,N,02 $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nFILE1, FILE2  Reserved for future implementation\r\n\r\nParameters\r\n\r\nN          Outer loop index.\r\n\r\nM          Inner loop index.\r\n\r\nT          Data type to be processed.\r\n\r\n01         TIMTST routine to be processed.\r\n\r\n02         Powers-of-two table for TIMTST option selection.\r\n\r\nSee Section 4.140 of the NASTRAN Programmer's Manual for further description\r\nof the parameters.\r\n\r\nExamples\r\n\r\nTIMETEST   / , / C,N,100 / C,N,100 / C,N,1 / C,N,2 $\r\n\r\nTIMETEST   / , / C,N,10 / C,N,10 / C,N,3 / C,N,1 / C,N,127 $\r\n=PAGE=\r\nVEC - Create Partitioning Vector\r\n\r\nPurpose\r\n\r\nTo create a partitioning vector for matrices using USET that may be used by\r\nmatrix operation modules MERGE and PARTN. This allows you to split up long\r\nrunning modules such as SMP1.\r\n\r\nDMAP Calling Sequence\r\n\r\nA. For matrices generated in Rigid Formats 1-6 or prior to module GKAD (or\r\nGKAM) in Rigid Formats 7 - 12:\r\n\r\nVEC   USET / V / C,N,SET / C,N,SET0 / C,N,SET1 / V,N,ID $\r\n\r\nB. For matrices generated in Rigid Formats 7 - 12 after module GKAD (or GKAM):\r\n\r\nVEC   USETD / V / C,N,SET / C,N,SET0 / C,N,SET1 / V,N,ID $\r\n\r\nInput Data Blocks\r\n\r\nUSET       Displacement set definition (statics).\r\nUSETD      Displacement set definition (dynamics).\r\nHUSET      Displacement set definition (heat transfer).\r\nUSETA      Displacement set definition (aeroelastic).\r\n\r\nNOTE: The set definition input data block may not be missing and must fit into\r\nopen core.\r\n\r\nOutput Data Blocks\r\n\r\nV          Partitioning vector.\r\n\r\nNOTES\r\n\r\n1. If all elements are in SET0 or SET1 then V will be purged.\r\n2. V may not be purged prior to execution.\r\n\r\nParameters\r\n\r\nSET        Matrix set to be partitioned (Input-BCD, no default).\r\n\r\nSET0       Upper partition of SET (Input-BCD, no default).\r\n\r\nSET1       Lower partition of SET (Input-BCD, no default).\r\n\r\nID         Identification of bit position (see table below) (Input-Integer,\r\n           default = 0).\r\n\r\nNOTES\r\n\r\n1. Legal parameter values are given in the table below.\r\n2. See Section 1.4 for a description of set notation.\r\n\r\n   Parameter Value     USET Matrix                        Bit Position\r\n\r\n         M                  Um                                 32\r\n         S                  Us (union of SG and SB)            31\r\n         0                  Uo                                 30\r\n         R                  Ur                                 29\r\n         G                  Ug                                 28\r\n         N                  Un                                 27\r\n         F                  Uf                                 26\r\n         A                  Ua                                 25\r\n         L                  Ul                                 24\r\n         SG                 Us (specified on Grid card)        23\r\n         SB                 Us (specified on SPC card)         22\r\n         E                  Ue                                 21\r\n         P                  Up                                 20\r\n         NE                 Une (union of N and E)             19\r\n         FE                 Ufe (union of F and E)             18\r\n         D                  Ud                                 17\r\n         PS                 Ups                                16\r\n         SA                 UsA                                15\r\n         K                  Uk                                 14\r\n         PA                 UpA                                13\r\n\r\nRemarks\r\n\r\n1. Parameters SET0 and SET1 must be a subset of the SET matrix parameter. A\r\n   degree of freedom may not be in both subsets.\r\n\r\n2. If desired, one of SET0 or SET1, but not both, may be requested to be the\r\n   complement of the other one by giving it a value of COMP.\r\n\r\n3. If SET = BITID, the second and third parameters are ignored and the IDth\r\n   bit position in USET (or USETD) is used. In this case, SET is assumed equal\r\n   to G (or P) and SET0 will correspond to the zeros in the IDth position and\r\n   SET1 will correspond to the non-zeros in the IDth position.\r\n\r\nExamples\r\n\r\n1. To partition [Kff] into a- and o- set based matrices, use\r\n\r\n   VEC   USET / V / C,N,F / C,N,O / C,N,A $\r\n   PARTN KFF,V, / KOO,KAO,KOA,KAA $\r\n\r\n   Note that the same thing can be done in one step by\r\n\r\n   UPARTN USET,KFF / KOO,KAO,KOA,KAA / C,N,F / C,N,P / C,N,A $\r\n\r\n2. Example 1 could be accomplished by\r\n\r\n   VEC   USET / V / C,N,F / C,N,O / C,N,COMP $\r\n        or\r\n   VEC   USET / V / C,N,F / C,N,COMP / C,N,A $\r\n\r\n3. Example 1 could be accomplished by\r\n\r\n   VEC   USET / V / C,N,BITID / C,N,X / C,N,X / C,N,25 $\r\n\r\n=PAGE=\r\n5.6  USER MODULES\r\n\r\nModule                      Basic Function                         Page\r\n\r\nDDR            User Dummy Module                                  5.6-2\r\n\r\nDUMMOD1        Dummy Module 1                                     5.6-3\r\n\r\nDUMMOD2        Dummy Module 2                                     5.6-4\r\n\r\nDUMMOD3        Dummy Module 3                                     5.6-5\r\n\r\nDUMMOD4        Dummy Module 4                                     5.6-6\r\n\r\nDUMMOD5        Dummy Module 5                                     5.6-7\r\n\r\nMATGEN         User Dummy Module                                  5.6-9\r\n\r\nMODA           User Dummy Module                                 5.6-10\r\n\r\nMODB           User Dummy Module                                 5.6-11\r\n\r\nMODC           User Dummy Module                                 5.6-12\r\n\r\nOUTPUT         Auxiliary Output File Processor                   5.6-13\r\n\r\nXYPRNPLT       User Dummy Module                                 5.6-15\r\n\r\n   A number of modules have been placed in the NASTRAN system for which only\r\ndummy code exists. These modules are available to you to create your own data\r\nblocks by reading tapes or data cards, generate your own output on the\r\nprinter, punch, or plotter, or perform your own matrix computations. The\r\nappropriate MPL (Module Properties List) information is presented for each\r\nsuch user module in this section. All necessary interfaces with the Executive\r\nSystem have been completed for these user modules. The procedures for\r\nimplementing a user module are described in Section 6.12 of the Programmer's\r\nManual.\r\n=PAGE=\r\nDDR - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nDDR   A/X/C,N,ABC/C,N,DEF/C,N,GHI $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the constants in the calling sequence shown above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nDUMMOD1 - Dummy Module 1\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nDUMMOD1  I1,I2,I3,I4,I5,I6,I7,I8 /\r\n         O1,O2,O3,O4,O5,O6,O7,O8 /\r\n         C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 /\r\n         C,Y,P5=-1.0 / C,N,-1.0 /\r\n         C,Y,P7=ABCDEFGH /\r\n         C,Y,P8=-1.0D0 /\r\n         C,Y,P9=(-1 0,-1.0) /\r\n         C,Y,P10=(-l.0D0,-1.0D0) $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nDUMMOD2 - Dummy Module 2\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nDUMMOD2  I1,I2,I3,I4,I5,I6,I7,I8 /\r\n         O1,O2,O3,O4,O5,O6,O7,O8 /\r\n         C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 /\r\n         C,Y,P5=-1.0 / C,N,-1.0 /\r\n         C,Y,P7=ABCDEFGH /\r\n         C,Y,P8=-1.0D0 /\r\n         C,Y,P9=(-1 0,-1.0) /\r\n         C,Y,P10=(-1.0D0,-1.0D0) $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nDUMMOD3 - Dummy Module 3\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nDUMMOD3  I1,I2,I3,I4,I5,I6,I7,I8 /\r\n         O1,O2,O3,O4,O5,O6,O7,O8 /\r\n         C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 /\r\n         C,Y,P5=-1.0 / C,N,-1.0 /\r\n         C,Y,P7=ABCDEFGH /\r\n         C,Y,P8=-1.0D0 /\r\n         C,Y,P9=(-1 0,-1.0) /\r\n         C,Y,P10=(-1.0D0,-1.0D0) $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nDUMMOD4 - Dummy Module 4\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nDUMMOD4  I1,I2,I3,I4,I5,I6,I7,I8 /\r\n         O1,O2,O3,O4,O5,O6,O7,O8 /\r\n         C,N,-1 / V,Y,P2=-1 / V,N,P3=-1 / C,Y,P4=-1 /\r\n         C,Y,P5=-1.0 / C,N,-1.0 /\r\n         C,Y,P7=ABCDEFGH /\r\n         C,Y,P8=-1.0D0 /\r\n         C,Y,P9=(-1 0,-1.0) /\r\n         C,Y,P10=(-1.0D0,-1.0D0) $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nDUMMOD5 - Dummy Module 5\r\n\r\nPurpose\r\n\r\nConverts certain NASTRAN output tabular data blocks into NASTRAN matrix data\r\nblocks (GINO files) or to a magnetic tape of special matrix form (by column,\r\nunpacked, from first non-zero term to last non-zero term), similar to that\r\ngenerated by OUTPUT5. The data on the tape can be read into NASTRAN by the\r\nINPUTT5 module. DUMMOD5 handles only single precision data blocks.\r\n\r\nDMAP Calling Sequence\r\n\r\nDUMMOD5  T1,T2,T3,T4,T5 / 01,02,03,04,05 / C,N,P1 / C,N,P2 / C,N,P3 /\r\n         C,N,P4 / C,N,P5 / C,N,Q $\r\n\r\nInput Data Blocks\r\n\r\nTi         NASTRAN GINO single precision files, such as OEF1, OQG1, or\r\n           similar type of tabular data blocks, whose fixed length records\r\n           can be rearranged into the columns of a matrix. Any or all of the\r\n           input data blocks may be purged. Only non-purged data blocks will\r\n           be processed.\r\n\r\nOutput Data Blocks\r\n\r\nAll output data blocks are written in single precision. See Method below for\r\nmore details.\r\n\r\n0i         GINO written matrix data blocks. Any or all of the output data\r\n           blocks may be purged.\r\n\r\nINP1       Unit 15, FORTRAN written tape, unformatted.\r\n\r\nParameters\r\n\r\nPi         Each Pi parameter corresponds to each Ti-0i conversion process.\r\n           The tabular input data records in Ti are mapped into a Pi by 8\r\n           two-dimensional matrix space. See Method below for more details.\r\n\r\nQ          Print-punch control of the element/grid table gathered from the\r\n           input data blocks (Ti):\r\n\r\n           =  -1, no print and punch.\r\n           =  0, print only, no punch.\r\n           =  +1, both print and punch.\r\n           =  /2/, print contents of output tape INP1 after it is generated.\r\n\r\nMethod\r\n\r\nA record of the input data block (Ti) is read. The first word is saved in an\r\nelement/grid table. The next eight words are saved in the Pi by 8 matrix\r\nspace, row-wise. If the record has more than nine words, the rest of the\r\nrecord is discarded. Similarly, the rest of the records in Ti are read, and\r\nthe element/grid table and the Pi by 8 matrix space are filled. If the input\r\ndata block Ti has more than Pi records, all the records above Pi are skipped.\r\nIf the input data block has less than Pi records, the rest of the matrix space\r\nis zero filled. Finally, when all the records in Ti are read, the Pi by 8\r\nmatrix is written to output data block (0i) or tape (INP1), column-wise.\r\n\r\nIf an output data block (0i) exists, and its corresponding data block (Ti) is\r\nnot purged, the Pi by 8 matrix is then written out to the output data block by\r\nNASTRAN GINO in packed form. If an input data block (Ti) exists, and the\r\ncorresponding output data block (0i) is purged (not present), the Pi by 8\r\nmatrix is then written out to INP1 tape (unit 15), column-wise, unpacked, from\r\nfirst non-zero term to last non-zero term, in binary records. The content of\r\nINP1 tape is written similarly to those written by OUTPUT5, as shown below.\r\n\r\nĿ\r\n  RECORD     WORD     CONTENTS                                   TYPE    \r\nĴ\r\n      0               Tape header record                                 \r\n             1,2      \"xxxxxxxx\" (tape ID)                      2*BCD    \r\n             3,4      Machine type                              2*BCD    \r\n             5,7      Date                                      3*INT    \r\n               8      System buffer size                          INT    \r\n               9      0, binary tape                              INT    \r\n                                                                         \r\n      1               First matrix (01) header                           \r\n               1      0                                           INT    \r\n             2,3      1,1                                       2*INT    \r\n               4      0.0D0                                      D.P.    \r\n            5-10      6 words from matrix trailer               6*INT    \r\n                      (col,row,form,type,max,density                     \r\n                       where type=1 or 3)                                \r\n            11,12     Matrix DMAP name                          2*BCD    \r\n                                                                         \r\n      2        1      1 (first column ID)                         INT    \r\n               2      Location of first non-zero element          INT    \r\n               3      Location of last non-zero element           INT    \r\n             4-n      S.P. data                                  REAL    \r\n                                                                         \r\n      3        1      2 (second column ID)                               \r\n             2-n      Same as record 1                                   \r\n      :      1-n      Repeat for more columns                            \r\n                                                                         \r\n     (x        1      x (x-th column ID, a null column            INT    \r\n             2,3      1,1                                         INT    \r\n             4,5      0.0, 0.0                                   REAL    \r\n                                                                         \r\n      l      1-n      l-1, last column, same as record 1                 \r\n    l+1        1      -1 (element) or -2 (grid)                   INT    \r\n               2      1                                           INT    \r\n               3      Length of element/grid table, T             INT    \r\n           4-(T+4)    Table of element or grid IDs                INT    \r\n                                                                         \r\n    l+2               Second matrix (02) header                          \r\n      :        :      Repeat above 1 through l+1 for 02                  \r\n                                                                         \r\n      :        :      Repeat, up to 5 output data blocks                 \r\n                      per tape                                           \r\n\r\n\r\nRemarks\r\n\r\n1. This module is very limited in scope. It handles only some special types of\r\n   tabular input data blocks. This module is designed to be used for a\r\n   particular job or jobs.\r\n\r\n2. The heading records of the input data blocks are skipped automatically. The\r\n   rest of the records are read in and processed without further intervention.\r\n   If the output data block contains more than one type of data (such as OEF1\r\n   data file with multi-element type data), meaningless data may be included.\r\n   You must know ahead of time what type of data you are gathering for the\r\n   DUMMOD5 module operation. For this reason, you may find the use of SET in\r\n   the Case Control section to your advantage.\r\n\r\n3. The INP1 tape generated by DUMMOD5 can be read by the INPUTT5 module. Any\r\n   future changes in the tape format must also appear in the INPUTT5 and\r\n   OUTPUT5 modules.\r\n=PAGE=\r\nMATGEN - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nMATGEN   I01,I02,...,I20,I21 / O1,O2,O3 / V,N,Pl=0 /\r\n         V,N,P2=0 / ... / V,N,P22=0 $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nMODA - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nMODA   / W,X,Y,Z / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0.0 / C,N,0 /\r\n         C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0.0 / C,N,0 / C,N,0 $\r\n\r\nInput Data Blocks\r\n\r\nNone.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nMODB - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nMODB   / W,X,Y,Z / C,N,1.0 / C,N,1.0 / C,N,1.0 / C,N,1.0 / C,N,0 / C,N,0 /\r\n         C,N,0 / C,N,1.0 / C,N,0 / C,N,0 / C,N,0  $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nMODC - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nMODC   A,B // C,N,-l $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by author of module.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. The parameter\r\ntypes are indicated by the default values shown in the calling sequence above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to include a module of\r\ntheir own design in the system. The number of inputs and outputs, as well as\r\nthe number, type, and default values of the parameters, may be changed by\r\nchanging the Module Properties List (MPL) in subroutine XMPLDD (see Section 2\r\nof the Programmer's Manual).\r\n=PAGE=\r\nOUTPUT - Auxiliary Output File Processor\r\n\r\nPurpose\r\n\r\nA user-written module to generate printer, plotter, or punch output.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nOUTPUT   IN // C,Y,P=-l $\r\n\r\nInput Data Blocks\r\n\r\nIN         Contains any desired information which the module extracts and\r\n           writes on the system output file, punch, or either of the two\r\n           plotters. May be purged.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nParameters may be used as desired by the author of the module. Type is Integer\r\nwith MPL default value of -1 as shown above.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to process their own\r\noutput. The number of inputs as well as the number, type, and default values\r\nof parameters may be changed by changing the Module Properties List (MPL) in\r\nsubroutine XMPLDD (see Section 2 of the Programmer's Manual).\r\n=PAGE=\r\nXYPRNPLT - User Dummy Module\r\n\r\nPurpose\r\n\r\nCan be used for any desired purpose.\r\n\r\nDMAP Calling Sequence\r\n\r\n(See Remarks below.)\r\n\r\nXYPRNPLT   A // $\r\n\r\nInput Data Blocks\r\n\r\nAs desired by the author of module.\r\n\r\nOutput Data Blocks\r\n\r\nNone.\r\n\r\nParameters\r\n\r\nNone.\r\n\r\nRemarks\r\n\r\nThis module has been provided for those who may want to process their own\r\noutput. The number of inputs and outputs as well as the number, type, and\r\ndefault values of parameters may be changed by changing the Module Properties\r\nList (MPL) in subroutine XMPLDD (see Section 2 of the Programmer's Manual).\r\n\r\n=PAGE=\r\n5.7  EXECUTIVE OPERATION MODULES\r\n\r\nModule                     Basic Function                         Page\r\n\r\nBEGIN          Always first in DMAP; begin DMAP program          5.7-2\r\n\r\nCHKPNT         Write data blocks on checkpoint tape if           5.7-3\r\n               checkpointing\r\n\r\nCOMPOFF        Conditional DMAP compilation off                  5.7-4\r\n\r\nCOMPON         Conditional DMAP compilation on                   5.7-5\r\n\r\nCOND           Conditional forward jump                          5.7-6\r\n\r\nEND            Always last in DMAP; terminates DMAP execution    5.7-7\r\n\r\nEQUIV          Assign another name to a data block               5.7-8\r\n\r\nEXIT           Conditional DMAP termination                      5.7-9\r\n\r\nFILE           Defines special data block characteristics       5.7-10\r\n               to DMAP compiler\r\n\r\nJUMP           Unconditional forward jump                       5.7-11\r\n\r\nLABEL          Defines DMAP location                            5.7-12\r\n\r\nPRECHK         Predefined automated checkpoint                  5.7-13\r\n\r\nPURGE          Conditional data block elimination               5.7-14\r\n\r\nREPT           Repeat a series of DMAP instructions             5.7-15\r\n\r\nSAVE           Save value of output parameter                   5.7-16\r\n\r\nXDMAP          Controls the DMAP compiler options               5.7-17\r\n\r\n  All modules classified as Executive Operation Modules are individually\r\ndescribed in this section. Additional discussions concerning the interaction\r\nof the Executive Modules with themselves and with the NASTRAN Executive System\r\nare contained in Section 5.2.3.\r\n\r\n=PAGE=\r\nBEGIN - Begin DMAP Program\r\n\r\nPurpose\r\n\r\nBEGIN is a declarative DMAP instruction which may be used to denote the\r\nbeginning of a DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nBEGIN $\r\n\r\nRemarks\r\n\r\n1.BEGIN is a non-executable DMAP instruction which is used only by the DMAP\r\n  compiler for information purposes.\r\n\r\n2.Either a BEGIN card or an XDMAP card is required when selecting APP DMAP in\r\n  the Executive Control Deck. This is followed by DMAP instructions up to and\r\n  including the END card.\r\n\r\n3.The use of BEGIN implicitly elects all compiler defaults. (See XDMAP\r\n  instruction.)\r\n=PAGE=\r\nCHKPNT - Checkpoint\r\n\r\nPurpose\r\n\r\nCauses data blocks to be written on the New Problem Tape (NPTP) to enable the\r\nproblem to be restarted with a minimum of redundant processing.\r\n\r\nDMAP Calling Sequence\r\n\r\nCHKPNT D1,D2,...,DN $\r\n\r\nwhere D1,D2,...,DN (N >= 1) are data blocks to be copied onto the problem tape\r\nfor use in restarting problem.\r\n\r\nRules\r\n\r\n1.A data block to be checkpointed must have been referenced in a previous\r\n  PURGE, EQUIV, or functional module instruction.\r\n\r\n2.CHKPNT cannot be the first instruction of a DMAP loop.\r\n\r\n3.Data Blocks generated by the Input File Processor (including DMIs and DTIs)\r\n  should not be checkpointed since they are always regenerated on restart.\r\n\r\n4.Checkpointing only takes place when a New Problem Tape (NPTP) is set up and\r\n  the Executive Control Card CHKPNT YES appears in the Executive Control\r\n  Deck. Otherwise, the CHKPNT instructions are ignored.\r\n\r\n5.For each data block that is successfully checkpointed, a card of the\r\n  restart dictionary is punched which gives the critical data for the data\r\n  block as it exists on the Problem Tape.\r\n\r\n6.For data blocks that have been purged or equivalenced, an entry is made in\r\n  the restart dictionary to this effect. In these cases data blocks are not\r\n  written on the Problem Tape.\r\n\r\nRemarks\r\n\r\n1.See the PRECHK instruction for an automated CHKPNT capability.\r\n=PAGE=\r\nCOMPOFF - Conditional DMAP Compilation Off\r\n\r\nPurpose\r\n\r\nTo allow blocks of DMAP statements to be compiled or skipped depending upon\r\nthe value of a bulk data parameter. (The companion module is COMPON.)\r\n\r\nDMAP Calling Sequence\r\n\r\nCOMPOFF LBLNAME,PARNAME $\r\n         or\r\nCOMPOFF c,PARNAME $\r\n\r\nwhere:\r\n\r\n1.LBLNAME is the BCD name of a label which specifies the end of the DMAP\r\n  statement block,\r\n\r\n2.c is an integer constant which specifies the number of DMAP statements in\r\n  the block, and\r\n\r\n3.PARNAME is the name of a parameter that appears on a PARAM bulk data card.\r\n\r\nMethod\r\n\r\nThe block of DMAP statements specified by the label or count is skipped if the\r\nvalue of the parameter is < 0. The block of DMAP statements will be compiled\r\nif the value of the parameter is >= 0.\r\n\r\nExample\r\n\r\nCOMPOFF LBL,NAM1 $\r\nMODULE1 A/B/L $\r\nMODULE2 C/D/M $\r\nMODULE3 E/F/N $\r\nLABEL LBL $\r\n  :\r\n  :\r\nCOMPOFF 2,NAM2 $\r\nMODULE4 P/Q/I\r\nMODULE5 X/Y/J $\r\n  :\r\n  :\r\n\r\nIn the above example, modules MODULE1, MODULE2, and MODULE3 will not be\r\ncompiled if the value of parameter NAM1 is < 0 and modules MODULE4 and MODULE5\r\nwill not be compiled if the value of parameter NAM2 is < 0.\r\n\r\nRemarks\r\n\r\n1.If no PARAM bulk data card is provided to define the parameter, a value of\r\n  0 is assumed.\r\n\r\n2.If the form of COMPOFF specifying a label is used, the label may not be\r\n  referenced by any other DMAP instructions, including other COMPOFF or\r\n  COMPON instructions.\r\n\r\n3.Comment cards are not included in the statement count.\r\n\r\n4.COMPOFF and COMPON instructions may be nested up to five levels using the\r\n  same rules as for FORTRAN DO loops.\r\n=PAGE=\r\nCOMPON - Conditional DMAP Compilation On\r\n\r\nPurpose\r\n\r\nTo allow blocks of DMAP statements to be compiled or skipped depending upon\r\nthe value of a bulk data parameter. (The companion module is COMPOFF.)\r\n\r\nDMAP Calling Sequence\r\n\r\nCOMPON LBLNAME,PARNAME $\r\n         or\r\nCOMPON c,PARNAME $\r\n\r\nwhere:\r\n\r\n1.LBLNAME is the BCD name of a label which specifies the end of the DMAP\r\n  statement block,\r\n\r\n2.c is an integer constant which specifies the number of DMAP statements in\r\n  the block, and\r\n\r\n3.PARNAME is the name of a parameter that appears on a PARAM bulk data card.\r\n\r\nMethod\r\n\r\nThe block of DMAP statements specified by the label or count is skipped if the\r\nvalue of the parameter is >= 0. The block of DMAP statements will be compiled\r\nif the value of the parameter is < 0.\r\n\r\nExample\r\n\r\nCOMPON LBL,NAM1 $\r\nMODULE1 A/B/L $\r\nMODULE2 C/D/M $\r\nMODULE3 E/F/N $\r\nLABEL LBL $\r\n  :\r\n  :\r\nCOMPON 2,NAM2 $\r\nMODULE4 P/Q/I\r\nMODULE5 X/Y/J $\r\n  :\r\n  :\r\n\r\nIn the above example, modules MODULE1, MODULE2, and MODULE3 will not be\r\ncompiled if the value of parameter NAM1 is >= 0 and modules MODULE4 and\r\nMODULE5 will not be compiled if the value of parameter NAM2 is >= 0.\r\n\r\nRemarks\r\n\r\n1.If no PARAM bulk data card is provided to define the parameter, a value of\r\n  0 is assumed.\r\n\r\n2.If the form of COMPON specifying a label is used, the label may not be\r\n  referenced by any other DMAP instructions, including other COMPOFF or\r\n  COMPON instructions.\r\n\r\n3.Comment cards are not included in the statement count.\r\n\r\n4.COMPOFF and COMPON instructions may be nested up to five levels using the\r\n  same rules as for FORTRAN DO loops.\r\n=PAGE=\r\nCOND - Conditional Transfer\r\n\r\nPurpose\r\n\r\nTo alter the normal order of execution of DMAP modules by conditionally\r\ntransferring program control to a specified location in the DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nCOND n,V $\r\n\r\nwhere:\r\n\r\n1.n is a BCD label name specifying the location where control is to be\r\n  transferred. (See the LABEL Instruction.)\r\n\r\n2.V is a BCD name of a variable parameter whose value indicates whether or\r\n  not to execute the transfer. If V < 0 the transfer is executed.\r\n\r\nExample\r\n\r\nBEGIN $\r\n  :\r\n  :\r\nCOND L1,K $\r\nMODULE1   A/B/V,Y,P1 $\r\n  :\r\n  :\r\nLABEL   L1 $\r\nMODULEN   X/Y $\r\n  :\r\n  :\r\nEND $\r\n\r\nIf K >= 0, MODULE1 is executed. If K < 0 control is transferred to the label\r\nL1 and MODULEN is executed.\r\n\r\nRemarks\r\n\r\n1.Only forward transfers are allowed. See the REPT instruction for backward\r\n  transfers.\r\n=PAGE=\r\nEND - End DMAP Program\r\n\r\nPurpose\r\n\r\nDenotes the end of a DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nEND $\r\n\r\nRemarks\r\n\r\n1.The END instruction also acts as an implied EXIT instruction.\r\n\r\n2.The END card is required whenever APP DMAP is selected in the Executive\r\n  Control Deck.\r\n=PAGE=\r\nEQUIV - Data Block Name Equivalence\r\n\r\nPurpose\r\n\r\nTo attach one or more equivalent (alias) data block names to an existing data\r\nblock so that the data block can be referenced by several equivalent names.\r\n\r\nDMAP Calling Sequence\r\n\r\nEQUIV DBN1A,DBN2A,DBN3A / PARMA / DBN1B,DBN2B / PARMB $\r\n\r\nNOTE: The number of data block names (DBNij) prior to each parameter (PARMj)\r\nand the number of such groups in a particular calling sequence are variable.\r\n\r\nInput Data Blocks\r\n\r\nDBN1A,DBN2A, etc.  Any data block names appearing within the DMAP sequence. \r\n            The first data block name in each group (DBN1A and DBN1B in the\r\n            examples above) is known as the primary data block and the second,\r\n            etc. data block names become equivalent to the primary (depending\r\n            on the associated parameter value). These equivalenced data blocks\r\n            are known as secondary data blocks.\r\n\r\nOutput Data Blocks\r\n\r\nNone specified or permitted.\r\n\r\nParameters\r\n\r\nPARMA, etc. One required for each set of data block names.\r\n\r\nMethod\r\n\r\nThe data block names in each group are made equivalent if the value of the\r\nassociated parameter is < 0. If a number of data blocks are already\r\nequivalenced and the parameter value is >= 0, the equivalence is broken and\r\nthe data block names again become unique. If the data blocks are not\r\nequivalenced and the parameter value is >= 0, no action is taken.\r\n\r\nRemarks\r\n\r\n1. An EQUIV statement may appear at any time as long as the primary data block\r\n   name has been previously defined.\r\n\r\n2. If an equivalence is to be performed at all times, that is, the parameter\r\n   value is always negative, it is not necessary to specify a parameter name.\r\n   For example,\r\n\r\n   EQUIV DB1,DB2 // DB3,DB4 $\r\n=PAGE=\r\nEXIT - Terminate DMAP Program\r\n\r\nPurpose\r\n\r\nTo conditionally terminate the execution of the DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nEXIT  c $\r\n\r\nwhere c is an integer constant which specifies the number of times the\r\ninstruction is to be ignored before terminating the program. If c = 0 the\r\ncalling sequence may be shortened to EXIT.\r\n\r\nExample\r\n\r\n       BEGIN  $\r\n         :\r\n         :\r\n      LABEL L1 $\r\n      MODULE1 A/B/V,Y,P1 $\r\nDMAP    :\r\nloop    :\r\n      EXIT 3 $\r\n      REPT L1,3 $\r\n         :\r\n         :\r\n\r\n       END $\r\n\r\nRemarks\r\n\r\n1. The EXIT instruction will be executed the third time the loop is repeated\r\n   (that is, the instructions within the loop will be executed four times).\r\n\r\n2. EXIT may appear anywhere within the DMAP sequence.\r\n=PAGE=\r\nFILE - File Allocation Aid\r\n\r\nPurpose\r\n\r\nTo inform the File Allocator (see Section 4.9 of the Programmer's Manual) of\r\nany special characteristics of a data block.\r\n\r\nDMAP Calling Sequence\r\n\r\nFILE  A=a1,a2...aa / B=b1,b2...bb / ... / Z=z1,z2...zz $\r\n\r\nwhere:\r\n\r\nA,B...Z are the names of the data blocks possessing special characteristics.\r\n\r\na1...aa,b1...bb....z1...zz are the special characteristics from the list\r\nbelow.\r\n\r\nThe allowable special characteristics are:\r\n\r\nSAVE        Indicates data block is to be saved for possible looping in DMAP\r\n            program.\r\n\r\nAPPEND      Output data blocks which are generated within a DMAP loop are\r\n            rewritten during each pass through the loop, unless the data block\r\n            is declared APPEND in a FILE statement. The APPEND declaration\r\n            allows a module to add information to a data block on successive\r\n            passes through a DMAP loop.\r\n\r\nTAPE        Indicates that data block is to be written on a physical tape if a\r\n            physical tape is available.\r\n\r\nRemarks\r\n\r\n1. Data blocks created by the NASTRAN preface may not appear in FILE\r\n   declarations.\r\n\r\n2. Symbolic DMAP sequences which explain the use of the FILE instruction are\r\n   given in Section 5.2.3.1.\r\n\r\n3. FILE is a non-executable DMAP instruction which is used only by the DMAP\r\n   compiler for information purposes.\r\n\r\n4. A data block name may appear only once in all FILE statements; otherwise\r\n   the first appearance will determine all special characteristics applied to\r\n   the data block.\r\n=PAGE=\r\nJUMP - Unconditional Transfer\r\n\r\nPurpose\r\n\r\nTo alter the normal order of execution of DMAP modules by unconditionally\r\ntransferring program control to a specified location in the DMAP program. The\r\nnormal order of execution of DMAP modules is the order of occurrence of the\r\nmodules as DMAP instructions in the DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nJUMP n $\r\n\r\nwhere n is a BCD name appearing on a LABEL instruction which specifies where\r\ncontrol is to be transferred.\r\n\r\nRemarks\r\n\r\n1. Jumps must be forward in the DMAP sequence. See the REPT instruction for\r\n   backward jumps.\r\n=PAGE=\r\nLABEL - DMAP Location\r\n\r\nPurpose\r\n\r\nTo label a location in the DMAP program so that the location may be referenced\r\nby the DMAP instructions JUMP, COND, and REPT.\r\n\r\nDMAP Calling Sequence\r\n\r\nLABEL n $\r\n\r\nwhere n is a BCD name.\r\n\r\nRemarks\r\n\r\n1. The LABEL instruction is inserted just ahead of the DMAP instruction to be\r\n   executed when transfer of control is made to the label.\r\n\r\n2. LABEL is a non-executable DMAP instruction which is used only by the DMAP\r\n   compiler for information purposes.\r\n=PAGE=\r\nPRECHK - Predefined Automated Checkpoint\r\n\r\nPurpose\r\n\r\nTo allow you to specify a single, or limited number, of checkpoint\r\ndeclarations, thereby removing the need for a large number of individual\r\nCHKPNT instructions to appear in a DMAP program.\r\n\r\nDMAP Calling Sequence\r\n\r\nPRECHK namelist $\r\nPRECHK ALL $\r\nPRECHK ALL EXCEPT namelist $\r\n\r\nwhere namelist is a list of data block names separated by commas and not\r\nexceeding 50 data blocks per command.\r\n\r\nRemarks\r\n\r\n1. PRECHK is, in itself, a non-executable DMAP instruction which actuates the\r\n   automatic generation of explicit CHKPNT instructions during the DMAP\r\n   compilation.\r\n\r\n2. Any number of PRECHK declarations may appear in a DMAP program. Each time a\r\n   new statement is encountered the previous one is invalidated. The PRECHK\r\n   END $ option will negate the current PRECHK status.\r\n\r\n3. CHKPNT instructions may be used in conjunction with PRECHK declarations.\r\n   The CHKPNT instruction will override any PRECHK condition. For example, if\r\n   the PRECHK ALL EXCEPT option is in effect, a data block named in the\r\n   excepted list may still be explicitly CHKPNTed.\r\n\r\n4. PRECHK ALL immediately and automatically CHKPNTs all output data blocks\r\n   from each functional module, all data blocks mentioned in each PURGE\r\n   instruction, and all secondary data blocks in each EQUIV instruction. The\r\n   only exceptions to this are the CASESS, CASEI, and CASECC data blocks\r\n   appearing as output in substructure analyses.\r\n\r\n5. The rigid format DMAP sequences (see Volume II) do not employ any explicit\r\n   CHKPNT instructions. Instead, for the sake of efficiency, each rigid format\r\n   includes a single PRECHK ALL instruction towards the beginning of the DMAP\r\n   sequence.\r\n=PAGE=\r\nPURGE - Explicit Data Block Purge\r\n\r\nPurpose\r\n\r\nTo flag a data block so that it will not be assigned to a physical file.\r\n\r\nDMAP Calling Sequence\r\n\r\nPURGE DBN1A,DBN2A,DBN3A / PARMA / DBN1B,DBN2B / PARMB $\r\n\r\nNOTE: The number of data block names (DBNij) prior to each parameter (PARMj)\r\nand the number of groups of data block names and parameters in a particular\r\ncalling sequence is variable.\r\n\r\nInput Data Blocks\r\n\r\nDBN1A,DBN2A, etc.  Any data block names appearing within the DMAP sequence.\r\n\r\nOutput Data Blocks\r\n\r\nNone specified or permitted.\r\n\r\nParameters\r\n\r\nPARMA, etc. One required for each group of data block names.\r\n\r\nMethod\r\n\r\nThe data blocks in a group are purged if the value of the associated parameter\r\nis < 0. If a data block is already purged and the parameter value is >= 0, the\r\npurged data block is unpurged so that it may be subsequently reallocated. If\r\nthe data block is not purged and the parameter value is >= 0, no action is\r\ntaken.\r\n\r\nRemarks\r\n\r\n1. If a purge is to be made at all times, i.e., the parameter value is always\r\n   negative, it is not necessary to specify a parameter name. For example,\r\n\r\n   PURGE DB1,DB2,DB3,DB4 $\r\n=PAGE=\r\nREPT - Repeat\r\n\r\nPurpose\r\n\r\nTo repeat a group of DMAP instructions a specified number of times.\r\n\r\nDMAP Calling Sequence\r\n\r\nREPT n,c $ or REPT n,p $\r\n\r\nwhere:\r\n\r\n1. n is a BCD name appearing in a LABEL instruction which specifies the\r\n   location of the beginning of a group of DMAP instructions to be repeated.\r\n   (See LABEL instruction.)\r\n\r\n2. c is an integer constant hard coded into the DMAP program which specifies\r\n   the number of times to repeat the instructions.\r\n\r\n3. p is a variable parameter set by a previously executed module specifying\r\n   the number of times to repeat the instructions.\r\n\r\nExample\r\n\r\nBEGIN  $                                   BEGIN  $\r\n  :                                          :\r\n  :                                          :\r\nLABEL L1  $                                MODULE1 X/Y/V,Y,NLOOP  $\r\nMODULE1 A/B/V,Y,P1  $                      LABEL L1  $\r\n  :                                        MODULE1 A/B/V,Y,P1  $\r\n  :                           or             :\r\nMODULEN B/C/V,Y,P2  $                        :\r\nREPT L1,3  $                               MODULEN B/C/V,Y,P2  $\r\n  :                                        REPT L1,NLOOP  $\r\n  :                                          :\r\nEND $                                        :\r\n                                           END  $\r\n\r\nRemarks\r\n\r\n1. REPT is placed at the end of the group of instructions to be repeated.\r\n\r\n2. When a variable number of loops is to be performed as in the second example\r\n   above, the value of the variable at the first time the REPT instruction is\r\n   encountered will determine the number of loops. This number will not be\r\n   changed after the initial assignment.\r\n\r\n3. A COND (conditional jump) instruction may be used to exit from the loop if\r\n   desired.\r\n\r\n4. In the first example, the instructions MODULE1 to MODULEN will be repeated\r\n   three times (that is, executed four times).\r\n=PAGE=\r\nSAVE - Save Variable Parameter Values\r\n\r\nPurpose\r\n\r\nTo specify which variable parameter values are to be saved from the preceding\r\nfunctional module DMAP instruction for use by subsequent modules.\r\n\r\nDMAP Calling Sequence\r\n\r\nSAVE V1,V2,...,VN $\r\n\r\nwhere the V1,V2,...,VN (N > 0) are the BCD names of some or all of the\r\nvariable parameters which appear in the immediately preceding functional\r\nmodule DMAP instruction.\r\n\r\nRemarks\r\n\r\n1. A SAVE instruction must immediately follow the functional module\r\n   instruction wherein the parameters being saved are generated.\r\n\r\n2. See Section 5.2.1.5 for a description of the alternate method of saving\r\n   parameter values by means of the parameter specification statement.\r\n=PAGE=\r\nXDMAP - Execute DMAP Program\r\n\r\nPurpose\r\n\r\nTo control the DMAP compiler options.\r\n\r\nDMAP Calling Sequence\r\n\r\n                                                              \r\n       GO        ERR = 2      LIST        NODECK      NOOSCAR \r\nXDMAP  NOGO   ,  ERR = 1   ,  NOLIST   ,  DECK     ,  OSCAR     ,\r\n                 ERR = 0                                      \r\n                                                              \r\n                                  See Remark\r\n                                4 for\r\n       NOREF                    defaults\r\n       REF   \r\n             \r\n             \r\n\r\nwhere:\r\n\r\nGO          compile and execute program (default).\r\n\r\nNOGO        compile only and terminate job.\r\n\r\nERR         defines the error level at which suspension of execution will\r\n            occur:\r\n\r\n            0  Warning level\r\n            1  Potentially fatal error level\r\n            2  Fatal error level (default)\r\n\r\nLIST        a listing of the DMAP program will be printed (see Remark 4 for\r\n            default values).\r\n\r\nNOLIST      no listing (see Remark 4 for default values).\r\n\r\nDECK        a deck of the DMAP program will be punched.\r\n\r\nNODECK      a deck will not be punched (default).\r\n\r\nOSCAR       detailed listing of OSCAR (Operation Sequence Control Array), the\r\n            output of the DMAP compiler.\r\n\r\nNOOSCAR     no OSCAR listing (default).\r\n\r\nREF         a cross reference listing of the DMAP program will be printed.\r\n\r\nNOREF       no cross reference listing (default).\r\n\r\nRemarks\r\n\r\n1. The XDMAP card is optional and may be replaced by a BEGIN instruction.\r\n   However, one or the other must appear in an APP DMAP execution.\r\n\r\n2. The XDMAP instruction is non-executable and is used only to control the\r\n   above options by the DMAP compiler.\r\n\r\n3. If all defaults are chosen, this instruction need not appear and BEGIN may\r\n   be used instead.\r\n\r\n4. The DMAP compiler default is set to LIST for restart runs and for runs\r\n   using the DMAP approach (APP DMAP) and the substructure capability (APP\r\n   DISP,SUBS). The default is also set to LIST when the REF option on the\r\n   XDMAP card is specified. The default is set to NOLIST for all other cases.\r\n   (The NOLIST option can be used in the former cases to suppress the\r\n   automatic listing of the DMAP program.)\r\n\r\n5. Multiple XDMAP cards can be used in the DMAP to get subsets of the DMAP\r\n   program to be listed (using the LIST/NOLIST option) or punched (using the\r\n   DECK/NODECK option).\r\n\r\n6. The use of DIAGs in the Executive Control Deck (see Section 2.2) will\r\n   always override the corresponding DMAP compiler options whether or not they\r\n   are selected by means of an XDMAP card. Thus, the use of DIAG 4 will give\r\n   the OSCAR listing, DIAG 14 will give the DMAP program listing, DIAG 17 will\r\n   give a punched output of the DMAP program, and DIAG 25 will give the DMAP\r\n   program cross-reference listing, regardless of any other requests made by\r\n   the presence or absence of XDMAP cards. The DMAP compiler option summary,\r\n   printed before the DMAP source listing, reflects the DIAG selections, if\r\n   any.\r\n\r\n=PAGE=\r\n5.8  DMAP EXAMPLES\r\n\r\nIn order to facilitate the use of DMAP, several examples are provided in this\r\nsection. You are urged to study these examples both from the viewpoint of\r\nperforming a sequence of matrix operations and from that of a DMAP flow. In\r\naddition, some examples have been written to illustrate the improved DMAP\r\nsyntax. \r\n\r\n5.8.1  DMAP to Print Table and Matrix Data Blocks and Parameters\r\n\r\nObjective\r\n\r\n1. Print the contents of table data block A.\r\n\r\n2. Print matrix data blocks B, C, and D.\r\n\r\n3. Print values of parameters P1 and P2.\r\n\r\n4. Set parameter P3 equal to -7.\r\n\r\nBEGIN     $                              XDMAP     $\r\nTABPT     A,,,, // $                     TABPT     A // $\r\nMATPRN    B,C,D,, // $                   MATPRN    B,C,D // $\r\nPRTPARM   // C,N,0 / C,N,P1 $            PRTPARM   // 0 / *P1* $\r\nPRTPARM   // C,N,0 / C,N,P2 $            PRTPARM   // 0 / *P2* $\r\nPARAM     // C,N,NOP / V,N,P3=-7 $       PARAM     // *NOP* / P3=-7 $\r\nEND       $                              END       $\r\n\r\nRemarks\r\n\r\n1. To be a practical example, a restart situation is assumed. You are\r\n   cautioned to remember to reenter at DMAP instruction 2 by changing the last\r\n   reentry point in the restart dictionary. \r\n\r\n2. In the alternate form, the omission of trailing commas in the TABPT and\r\n   MATPRN instructions will generate POTENTIALLY FATAL ERROR messages alerting\r\n   you to possible errors in the data block name list. \r\n\r\n5.8.2  DMAP to Perform Matrix Operations\r\n\r\nLet the constrained matrix [Kll] and the load vector [Pl] be defined by means\r\nof DMI bulk data cards. The following DMAP sequence will perform the series of\r\nmatrix operations. \r\n\r\n                   -1\r\n     {u }  =  [K  ]  {P }\r\n       1        ll     l\r\n\r\n      {r}  =  [K  ]{u } - {P }\r\n                ll   1      l\r\n\r\n                   -1\r\n     {u}  =  [K  ]  {r}\r\n                ll\r\n\r\n     {u }  =  {u } + {u}\r\n       2        1\r\n\r\n           Print {u }\r\n                   2\r\n\r\nBEGIN   $                                       XDMAP   $\r\nSOLVE   KLL,PL/U1/C,N,1/C,N,1/C,N,1/C,N,1 $     SOLVE   KLL,PL/U1/1/1/1/1 $\r\nMPYAD   KLL,U1,PL/R/C,N,0/C,N,1/C,N,-1 $        MPYAD   KLL,U1,PL/R/0/1/-1 $\r\nSOLVE   KLL,R/DU/C,N,1 $                   or   SOLVE   KLL,R/DU/1 $\r\nADD     U1,DU/U2 $                              ADD     U1,DU/U2 $\r\nMATPRN  U2,,,, // $                             MATPRN  U2// $\r\nEND     $                                       END     $\r\n\r\nRemarks\r\n\r\n1. [Kll] is assumed symmetric.\r\n\r\n2. In the example above, KLL will be decomposed twice. A more efficient DMAP\r\n   sequence, which requires only a single decomposition for this problem, is\r\n   given below. \r\n\r\nBEGIN   $                                      XDMAP   $\r\nDECOMP  KLL/LLL,ULL $                          DECOMP  KLL/LLL,ULL $\r\nFBS     LLL,ULL,PL/U1/C,N,1/C,N,1/             FBS     LLL,ULL,PL/U1/1/1/1/1  $\r\n        C,N,1/C,N,1 $\r\nMPYAD   KLL,U1,PL/R/C,N,0/C,N,1/C,N,-1 $       MPYAD   KLL,U1,PL/R/0/1/-1 $\r\nFBS     LLL,ULL,R/DU $                    or   FBS     LLL,ULL,R/DU $\r\nADD     U1,DU/U2 $                             ADD     U1,DU/U2 $\r\nMATPRN  U2,,,, // $                            MATPRN  U2// $\r\nEND     $                                      END     $\r\n\r\n5.8.3  DMAP to Use the Structure Plotter to Generate Undeformed Plots of the \r\nStructural Model \r\n\r\nBEGIN     $\r\n\r\nGP1       GEOM1,GEOM2, / GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL / V,N,LUSET /\r\n          V,N,NOCSTM / V,N,NOGPDT $\r\nSAVE      LUSET $\r\nGP2       GEOM1,EQEXIN / ECT $\r\nPLTSET    PCDB,EQEXIN,ECT / PLTSETX,PLTPAR,GPSETS,ELSETS / V,N,NSIL /\r\n          V,N,NPSET $\r\nSAVE      NPSET,NSIL $\r\nPRTMSG    PLTSETX // $\r\nPARAM     // C,N,NOP / V,N,PLTFLG=1 $\r\nPARAM     // C,N,NOP / V,N,PFILE=0 $\r\nCOND      P1,NPSET $\r\nPLOT      PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,, / PLOTX1 /\r\n          V,N,NSIL / V,N,LUSET / V,N,NPSET / V,N,PLTFLG / V,N,PFILE $\r\nSAVE      NPSET,PLTFLG,PFILE $\r\nPRTMSG    PLOTX1 // $\r\nLABEL     P1 $\r\nPRTPARM   // C,N,0 $\r\nEND       $\r\n\r\nRemarks\r\n\r\n1. GEOM1, GEOM2, PCDB, and CASECC are generated by the Input File Processor.\r\n\r\n2. PRTPARM is used to print all current variable parameter values.\r\n\r\n3. This DMAP sequence contains several structurally oriented modules. This\r\n   sequence of DMAP instructions is essentially identical with the section of\r\n   each rigid format associated with the operation of the Structure Plot\r\n   Request Packet of the Case Control Deck (contained in data block PCDB). \r\n\r\n5.8.4  DMAP to Print Eigenvectors Associated with any of the Modal Formulation \r\nRigid Formats \r\n\r\nBEGIN     $\r\nOFP       LAMA,OEIGS,,,, // $\r\nSDR1      USET,,PHIA,,,GO,GM,,KFS,, / PHIG,,QG / C,N,1 / C,N,REIG $\r\nSDR2      CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QG,PHIG,EST, /\r\n          , OQG1,OPHIG,OES1,OEF1, / C,N,REIG $\r\nOFP       OPHIG,OQG1,OEF1,OES1,, // $\r\nEND       $\r\n\r\nRemarks\r\n\r\n1. A restart from a successfully executed modal formulation is assumed.\r\n\r\n2. This DMAP sequence contains several structurally oriented modules.\r\n\r\n5.8.5  DMAP Using a User-Written Module\r\n\r\nAs an example of how you might perform matrix operations of your own design,\r\nthe following DMAP is provided. Functional modules MODA, MODB, and MODC are\r\nassumed to be written by you and added to the NASTRAN system, replacing dummy\r\nmodules with the same names. A brief explanation of a problem for which this\r\nDMAP is applicable is given. \r\n\r\n 1   BEGIN    $\r\n 2   PARAM    // C,N,NOP / V,N,TRUE=-1 $\r\n 3   PARAM    // C,N,NOP / V,N,FALSE=+l $\r\n 4   MODA     / X,Y,DB,A / V,N,BETA=0.0 / V,N,SIGMA=1.0 / V,N,FW=0.0 /\r\n              V,N,SW=0.0 / V,N,ETAINF=5.0 / V,N,M=100 / C,N,0 /\r\n              C,N,0 / C,N,0 / V,N,ICONV=0 / V,N,ZCONV=1.0E-4 /\r\n              V,N,ITMAX=10 / C,N,0 $\r\n 5   SAVE     BETA,SIDMA,FW,SW,ETAINF,M,ICONV,ZCONV,ITMAX $\r\n 6   LABEL    TOP $\r\n 7   FILE     A=SAVE / DB=SAVE $\r\n 8   SOLVE    A,DB / DY / C,N,0 / C,N,1 / C,N,1 / C,N,1 $\r\n 9   EQUIV    X,XX / FALSE / Y,YY / FALSE $\r\n10   MODB     X,Y,DY / XX,YY,DBB,AA / V,N,BETA / V,N,SIGMA / V,N,FW /\r\n              V,N,SW / V,N,M / C,N,0 / V,N,ICONV / V,N,ZCONV / C,N,0 /\r\n              V,N,DONE=1 / V,N,DIVERGED=1 $\r\n11   SAVE     DONE,DIVERGED $\r\n12   COND     QUIT,DIVERGED $\r\n13   COND     OUT,DONE $\r\n14   EQUIV    XX,X / TRUE / YY,Y / TRUE / DBB,DB / TRUE / AA,A / TRUE $\r\n15   COND     QUIT,ITMAX $\r\n16   REPT     TOP,1000 $\r\n17   PRTPARM  // C,N,-1 / C,N,DMAP $\r\n18   EXIT     $\r\n19   LABEL    OUT $\r\n20   MODC     X,Y // $\r\n21   EXIT     $\r\n22   LABEL    QUIT $\r\n23   PRTPARM  // C,N,-2 / C,N,DMAP $\r\n24   EXIT     $\r\n25   END      $\r\n\r\nThe above DMAP sequence is designed to solve an iteration problem where {x} is\r\nthe set of independent variable values on which the discretized solution\r\n{y(x)} is defined. Let the discrete values of {y(x)} measured at {x} be called\r\n{y}. An iteration sequence \r\n\r\n        i+1       i         i      -1       i\r\n     {y}     = {y}  + [A({y} ,{x})]  {b({y} ,{x})}\r\n\r\nis to be performed where [A] and b are computable functions of {y} and {x}. A\r\nconvergence-divergence criterion is assumed known. It is also assumed that the\r\nindependent variable distribution {x} may be modified as the solution\r\nproceeds. A brief description of the significant DMAP instructions is given\r\nbelow: \r\n\r\n4  Initialization of all parameters and output data blocks. This module is\r\n   assumed to be written by you. \r\n\r\n7  Prevents file allocator from dropping A and DB.\r\n\r\n8  Compute {b} = [A]-1{b}\r\n\r\n9  Break equivalences.\r\n\r\n10 Iterate to obtain new {x}, {y}, {b}, [A]; test convergence and set\r\n   parameters DONE and DIVERGED. This module is assumed to be written by you. \r\n\r\n14 The new {x}, {y}, {b}, [A] are established as current by replacing the old\r\n   values. \r\n\r\n20 Prints out the converged solutions {x} and {y}. This module is assumed to\r\n   be written by you. \r\n\r\n5.8.6  DMAP ALTER Package for Using a User-Written Auxiliary Input File \r\nProcessor \r\n\r\nALTER       1\r\nINPUT       GEOM1,,,, / G1,,,G4, / C,N,3 $\r\nPARAM       // C,N,NOP / V,N,TRUE=-1 $\r\nEQUIV       G1,GEOM1 / TRUE / G4,GEOM4 / TRUE $\r\nCOND        LBLXXX,TRUE $\r\nTABPT       G1,G4,,, // $\r\nLABEL       LBLXXX $\r\nENDALTER\r\n\r\nRemarks\r\n\r\n1. This is an ALTER package that could be used by any Rigid Format.\r\n\r\n2. The last three instructions are needed to avoid violating the equivalence\r\n   rule that a primary data block name must be referenced in a subsequent\r\n   functional module. A way to avoid using these three instructions is to move\r\n   the PARAM ahead of INPUT, in which case the EQUIV immediately follows the\r\n   module in which the primary data blocks are output. In this case the ALTER\r\n   package becomes \r\n\r\n   ALTER       1\r\n   PARAM       // C,N,NOP / V,N,TRUE=-1 $\r\n   INPUT       GEOM1,,,, / G1,,,G4, / C,N,3 $\r\n   EQUIV       G1,GEOM1 / TRUE / G4,GEOM4 / TRUE $\r\n   ENDALTER\r\n\r\n3. It is assumed that a user-written module INPUT exists which reads data\r\n   block GEOM1 (created by the Input File Processor of the NASTRAN Preface)\r\n   and creates data blocks G1 and G4. It is then desired to use G1 and G4 in\r\n   place of GEOM1 and GEOM4, the data blocks normally created by the NASTRAN\r\n   Preface. \r\n\r\n4. ALTER is described in Section 2.1.\r\n\r\n5.8.7  DMAP to Perform Real Eigenvalue Analysis Using Direct Input Matrices\r\n\r\nBEGIN      $\r\nREAD       KTEST,MTEST,,,DYNAMICS,,CASECC / LAMA,PHIA,MI,OEIGS /\r\n           C,N,MODES / V,N,NE $\r\nOFP        LAMA,OEIGS,,,, // $\r\nMATPRN     PHIA,,,, // $\r\nEND        $\r\n\r\nRemarks\r\n\r\n1. The echo of a test problem bulk data deck for the preceding DMAP sequence\r\n   follows. \r\n\r\n   .  1  ..  2  ..  3  ..  4  ..  5  ..  6  ..  7  ..  8  ..  9  .. 10  .\r\n   DMI    KTEST  0      6      1      2             4      4\r\n   DMI    KTEST  1      1      200.0  -100.0\r\n   DMI    KTEST  2      1      -100.0 200.0  -100.0\r\n   DMI    KTEST  3      2      -100.0 200.0  -100.0\r\n   DMI    KTEST  4      3      -100.0 200.0\r\n   DMI    MTEST  0      6      1      2             4      4\r\n   DMI    MTEST  1      1      1.0\r\n   DMI    MTEST  2      2      1.0\r\n   DMI    MTEST  3      3      1.0\r\n   DMI    MTEST  4      4      1.0\r\n   EIGR   1      INV    .0     2.5    2      2                    +1\r\n   +1     MAX\r\n\r\n2. Data blocks DYNAMICS and CASECC are generated by the NASTRAN Preface (Input\r\n   File Processor) and contain the eigenvalue extraction data from the EIGR\r\n   card and the eigenvalue method selection data extracted from the METHOD\r\n   card in the Case Control Deck. \r\n\r\n3. Data blocks KTEST and MTEST are generated by the NASTRAN Preface (Input\r\n   File Processor) from the DMI bulk data cards. \r\n\r\n4. Data block MI is the modal mass matrix, which is not used in this DMAP\r\n   subsequent to READ, but which must appear as an output in READ. Parameter\r\n   NE is an output parameter whose value is the number of eigenvalues\r\n   extracted. If none are found NE will be set to -1. \r\n\r\nAn alternate DMAP to perform real eigenvalue analysis using Direct Input\r\nMatrices, where the degrees of freedom are associated with grid points, is\r\nshown below. \r\n\r\nBEGIN     $\r\nGP1       GEOM1,GEOM2, / GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL / V,N,LUSET /\r\n          C,N,0 / C,N,0 $\r\nSAVE      LUSET $\r\nGP4       CASECC,,EQEXIN,SIL,GPDT,BGPDT,CSTM / ,,USET, / V,N,LUSET /\r\n          C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 /\r\n          C,N,0 / C,N,0 / C,N,0 $\r\nDPD       DYNAMICS,GPL,SIL,USET / GPLD,SILD,USETD,,,,,,,EED,EQDYN /\r\n          V,N,LUSET / C,N,0 / C,N,0 / C,N,0 / C,N,0 / C,N,0 /\r\n          C,N,0 / C,N,0 / V,N,NOEED / C,N,0 / C,N,0 $\r\nSAVE      NOEED $\r\nCOND      E1,NOEED $\r\nREAD      KTEST,MTEST,,,EED,,CASECC / LAMA,PHIA,MI,OEIGS /\r\n          C,N,MODES / V,N,NEIGV $\r\nSAVE      NEIGV $\r\nOFP       LAMA,OEIGS,,,, // $\r\nCOND      FINIS,NEIGV $\r\nSDR1      USET,,PHIA,,,,,,,, / PHIG,, / C,N,1 / C,N,REIG $\r\nSDR1      CASECC,,,,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,,, / ,,OPHIG,,, / C,N,REIG $\r\nOFP       OPHIG,,,,, // $\r\nJUMP      FINIS $\r\nLABEL     E1 $\r\nPRTPARM   // C,N,-2 / C,N,MODES $\r\nLABEL     FINIS $\r\nEND       $\r\n\r\nRemarks\r\n\r\n1. The echo of a test problem bulk data deck for the preceding DMAP sequence\r\n   follows. \r\n\r\n   .  1  ..  2  ..  3  ..  4  ..  5  ..  6  ..  7  ..  8  ..  9  .. 10  .\r\n   DMI    KTEST  0      6      1      2             4      4\r\n   DMI    KTEST  1      1      200.0, -100.0\r\n   DMI    KTEST  2      1      -100.0 200.0  -100.0\r\n   DMI    KTEST  3      2      -100.0 200.0  -100.0\r\n   DMI    KTEST  4      3      -100.0 200.0\r\n   DMI    MTEST  0      6      1      2             4      4\r\n   DMI    MTEST  1      1      1.0\r\n   DMI    MTEST  2      2      1.0\r\n   DMI    MTEST  3      3      1.0\r\n   DMI    MTEST  4      4      1.0\r\n   EIGR   1      DET    .0     2.5    2      2                    +1\r\n   +1     MAX\r\n   SPOINT 1      THRU   4\r\n\r\n2. Data block EED is generated by DPD, which copies the EIGR or EIGB cards\r\n   from data block DYNAMICS. The actual card used is selected in case control\r\n   by METHOD = SID. \r\n\r\n3. Each degree-of-freedom defined by the DMI matrices must be associated with\r\n   some grid or scalar point in this version. In the example above, this is\r\n   done by defining four scalar points. \r\n\r\n4. The EIGR card selected in the Case Control Deck will be used as explained\r\n   in Remark 2. \r\n\r\n5. The use of module MTRXIN and DMIG bulk data cards will allow you to input\r\n   matrices via grid point identification numbers. \r\n\r\n5.8.8  DMAP to Print and Plot a Topological Picture of Two Matrices\r\n\r\n1.  BEGIN      $\r\n2.  SEEMAT     KGG,KLL,,, // $\r\n3.  SEEMAT     KGG,KLL,,, //*PLOT*/S,N,P=0 $\r\n4.  PRTPARM    // 0 /*P* $\r\n5.  PARAM      // *MPY* /P/0/1 $\r\n6.  SEEMAT     KGG,KLL,,, //*PL0T*/S,N,P//*D*/0 $\r\n7.  PRTPARM    //0/*P* $\r\n8.  END        $\r\n\r\nRemarks\r\n\r\n1. Instruction number 2 causes the picture to be generated on the printer.\r\n\r\n2. Instruction number 3 causes the picture to be generated on a microfilm\r\n   plotter without typing capability (the default). \r\n\r\n3. The parameter P is initialized to zero by instruction number 3. The form\r\n   S,N,P would also have accomplished the same thing, since the MPL default\r\n   value is zero. \r\n\r\n4. Instruction number 4 prints the current value of parameter P. Since P was\r\n   initially set to zero and instruction number 3 is the first instruction\r\n   executed which has P as an input, then P will have a zero value on input to\r\n   instruction number 3. P is incremented by one (1) for every frame generated\r\n   on the microfilm plotter. Since the value of the output parameter P was\r\n   automatically saved, the value printed by instruction number 4 will be the\r\n   number of frames generated by the execution of instruction number 3. \r\n\r\n5. Instruction number 5 causes the value of P to be reset to zero (0), the\r\n   product of zero (0) and one (1). Since PARAM is the only module which does\r\n   its own SAVE, the parameter P need not be saved explicitly. This\r\n   illustrates a commonly used technique for setting parameter values in DMAP\r\n   programs. \r\n\r\n6. Instructions 6 and 7 essentially repeat instructions 3 and 4 using a drum\r\n   plotter with typing capability in place of a microfilm plotter without\r\n   typing capability. \r\n\r\n7. The END instruction, which is required, also acts as an EXIT instruction.\r\n\r\n8. NASTRAN file PLT2 must be set up in order to execute this DMAP\r\n   successfully.\r\n\r\n9. Matrix data blocks KGG and KLL are assumed to exist on the POOL file. This\r\n   will be the case if either DMI input is used or if a restart is being made\r\n   from a run in which KGG and KLL were generated and checkpointed. \r\n\r\n5.8.9  DMAP to Compute the r-th Power of a Matrix [Q]\r\n\r\nBEGIN      $\r\nMATPRN     Q,,,, // $\r\nPARAM      // C,N,NOP / V,N,TRUE=-1 $\r\nPARAM      // C,N,SUB / V,N,RR / V,Y,R=-1 / C,N,2  $\r\nPARAM      // C,N,NOP / V,N,FALSE=+1 $\r\nADD        Q, / QQ $\r\nLABEL      DOIT $\r\nEQUIV      QQ,P / FALSE $\r\nMPYAD      Q,QQ, / P / C,N,0 $\r\nEQUIV      P,QQ / TRUE $\r\nPARAM      // C,N,SUB / V,N,RR / V,N,RR / C,N,1 $\r\nCOND       STOP,RR $\r\nREPT       DOIT,1000000 $\r\nLABEL      STOP $\r\nMATPRN     P,,,, // $\r\nEND        $\r\n\r\n  or\r\n\r\nBEGIN      $\r\nMATPRN     Q // $\r\nPARAM      // *SUB* / RR / V,Y,R=-1 / 2 $\r\nCOPY       Q / P $\r\nLABEL      TOP $\r\nMPYAD      Q,P / PP / 0 $\r\nSWITCH     P,PP // $\r\nREPT       TOP,RR $\r\nMATPRN     P // $\r\nEND        $\r\n\r\nRemarks\r\n\r\n1. The matrix [Q] is assumed input via DMI bulk data cards.\r\n\r\n2. The parameter R is assumed input on a PARAM bulk data card.\r\n\r\n3. [DELETED]\r\n     \r\n4. The improved DMAP to perform the same operation can be done with\r\n   substantially fewer commands. \r\n\r\n=PAGE=\r\n5.8.10  Usage of UPARTN, VEC, and PARTN\r\n\r\nIn Rigid Format No. 7, the functional modules SMP1 and SMP2 (the latter used\r\nthree times) together perform the following matrix operations: \r\n\r\n                _         \r\n                Kaa  Kao \r\n     [Kff] =>    \r\n                Koa  Koo \r\n                          \r\n\r\n                   -1\r\n     [Go]  = -[Koo]   [Koa]\r\n\r\n                _         \r\n                Maa  Mao \r\n     [Mff] =>    \r\n                Moa  Moo \r\n                          \r\n\r\n     [A]   = [Moo] [Go] + [Moa]\r\n\r\n                  T         _\r\n     [B]   = [Moa]  [Go] + [Maa]\r\n\r\n                 T\r\n     [Maa] = [Go]  [A] + [B]\r\n\r\n                _4    4  \r\n       4        Kaa  Kao \r\n     [Kff] =>    \r\n                 4    4  \r\n                Koa  Koo \r\n                          \r\n\r\n               4            4\r\n     [A]   = [Koo] [Go] + [Koa]\r\n\r\n               4  T         _4\r\n     [B]   = [Koa]  [Go] + [Kaa]\r\n\r\n       4         T\r\n     [Kaa] = [Go]  [A] + [B]\r\n\r\n                _         \r\n                Baa  Bao \r\n     [Bff] =>    \r\n                Boa  Boo \r\n                          \r\n\r\n     [A]   = [Boo] [Go] + [Boa]\r\n\r\n                  T         _\r\n     [B]   = [Boa]  [Go] + [Baa]\r\n\r\n                 T\r\n     [Baa] = [Go]  [A] + [B]\r\n\r\nThis is far too many time-consuming matrix operations to perform within single\r\nmodules when the a-set and o-set are large. (Remember, checkpoint only occurs\r\nafter the module has done all its work.) \r\n\r\nIn order to subdivide the matrix operations, the partitions of the matrices\r\n[Kff] etc. must be obtained. The following ALTER packet accomplishes this\r\nobjective by the use of the UPARTN nodule. \r\n\r\nSMP1 and SMP2 using UPARTN for Rigid Format No. 7\r\n\r\nALTER     n1,n2 $ (where n1 = DMAP statement number of the SMP1 module and n2 =\r\n          DMAP statement number of the third use of the SMP2 module)\r\n$\r\nUPARTN    USET,KFF / KOO, ,KOA,KAAB / *F*/*O*/*A* $\r\nSOLVE     KOO,KOA / GO / 1 / -1 $\r\nMPYAD     KOA,GO,KAAB / KAA / 1 $\r\n$\r\nUPARTN    USET,MFF / MOO, ,MOA,MAAB / *F*/*O*/*A* $\r\nMPYAD     MOO,GO,MOA / MAATEMP1 / O $\r\nMPYAD     MOA,GO,MAAB / MAATEMP2 / 1 $\r\nMPYAD     GO,MAATEMP1,MAATEMP2 / MAA / 1 $\r\n$\r\nUPARTN    USET,K4FF / K4OO, ,K4OA,K4AAB / *F*/*O*/*A* $\r\nMPYAD     K4OO,GO,K4OA / K4AATMP1 / 0 $\r\nMPYAD     K4OA,GO,K4AAB / K4AATMP2 / 1 $\r\nMPYAD     GO,K4AATMP1,K4AATMP2 / K4AA / 1 $\r\n$\r\nUPARTN    USET,BFF / BOO, ,BOA,BAAB / *F*/*O*/*A* $\r\nMPYAD     BOO,GO,BOA / BAATEMP1 / 0 $\r\nMPYAD     BOA,GO,BAAB / BAATEMP2 / 1 $\r\nMPYAD     GO,BAATEMP1,BAATEMP2 / BAA / 1 $\r\n$\r\nENDALTER  $\r\n\r\nThe matrix operations can be further subdivided by making the partitioning\r\ninformation contained in USET available to the PARTN module. The following\r\nALTER packet accomplishes this by the use of the VEC and PARTN modules. \r\n\r\nSMP1 and SMP2 using VEC and PARTN for Rigid Format No. 7\r\n\r\nALTER     n1,n2 $ (where n1 = DMAP statement number of the SMP1 module and n2 =\r\n          DMAP statement number of the third use of the SMP2 module)\r\n$\r\nVEC       USET / V / *F*/*O*/*A* $\r\n$\r\nPARTN     KFF,V / KOO, ,KOA,KAAB / $\r\nDECOMP    KOO / LOO,UOO / 1 / 0 / S,N,MIND / S,N,DET / S,N,NDET / S,N,SING $\r\nCOND      LSING,SING $\r\nFBS       LOO,UOO,KOA / GO / 1 / -1 $\r\nMPYAD     KOA,GO,KAAB / KAA / 1 $\r\n$\r\nPARTN     MFF,V, / MOO, ,MOA,MAAB $\r\nMPYAD     MOO,GO,MOA / MAATEMP1 / 0 $\r\nMPYAD     MOA,GO,MAAB / MAATEMP2 / 1 $\r\nMPYAD     GO,MAATEMP1,MAATEMP2 / MAA / 1 $\r\n$\r\nPARTN     K4FF,V, / K4OO, ,K4OA,K4AAB / $\r\nMPYAD     K4OO,GO,K4OA / K4AATMP1 / 0 $\r\nMPYAD     K4OA,GO,K4AAB / K4AATMP2 / 1 $\r\nMPYAD     GO,K4AATMP1,K4AATMP2 / K4AA / I $\r\n$\r\nPARTN     BFF,V, / BOO, ,BOA,BAAB $\r\nMPYAD     BOO,GO,BOA / BAATEMP1 / 0 $\r\nMPYAD     BOA,GO,BAAB / BAATEMP2 / 1 $\r\nMPYAD     GO,BAATEMP1,BAATEMP2 / BAA / 1 $\r\n$\r\nALTER     n3 $ ADD ERROR TRAP FOR SINGULAR KOO MATRIX IN R.F. 7\r\n          (n3 = DMAP statement number of JUMP FINIS)\r\n$\r\nLABEL     LSING $\r\nPRTPARM   // 0 / *SING* $\r\nPRTPARM   //  -1 / *DMAP* $\r\nEXIT      $\r\n$\r\nENDALTER $\r\n\r\n5.8.11  DMAP to Perform Matrix Operations Using Conditional Logic\r\n\r\nLet A, B, and C be matrices whose values are to be defined at execution time.\r\nLet  be a real constant whose value is to be defined at execution time. Let \r\nbe an integer constant whose value (defined at execution time) determines the\r\noperations to be performed to compute matrix X as follows: \r\n\r\n              \r\n               [A][B] + [C]     ,  < 0\r\n                           T\r\n   [X]    =    [[A] + [B]]     ,  = 0\r\n                  2   -1\r\n               [A] [C]          ,  > O\r\n              \r\n\r\nWrite a DMAP to accomplish the above, assuming A, B, and C will be defined by\r\nDMI bulk data cards and that  and  will be defined on PARAM bulk data cards.\r\nPrint the inputs and outputs using the DMAP Utility Functional Modules MATPRN\r\nand PRTPARM. Use the DMAP Utility Module SEEMAT to print a topology display of\r\n[A] and [X]. \r\n\r\nA solution to this problem is given below along with data for an actual\r\nexample.\r\n\r\nID A,B\r\nTIME 5\r\nAPP DMAP\r\nBEGIN $\r\nJUMP START $\r\nPARAM // C,N,NOP / V,N,TRUE=-1 $ SET TRUE TO -1 (=.TRUE.)\r\nLABEL START $\r\nMATPRN A,B,C,, // $\r\nCOND ONE,ALPHA $\r\nPARAM // C,N,NOT / V,N,CHOOSE / V,Y,ALPHA $\r\nCOND THREE,CHOOSE $\r\nJUMP TWO $\r\nLABEL ONE $                                                       ALPHA .LT. 0\r\nMPYAD A,B,C / X / C,N,0 $\r\nJUMP FINIS $\r\nLABEL TWO $                                                       ALPHA .EQ. 0\r\nADD A,B / Y / C,Y,BETA=(0.0,0.0) $\r\nTRNSP Y / X2 $\r\nEQUIV X2,X / TRUE $\r\nJUMP FINIS $\r\nLABEL THREE $                                                     ALPHA .GT. 0\r\nSOLVE C, / Z $\r\nMPYAD A,Z, / W / C,N,0 $\r\nMPYAD A,W, / X3 / C,N,0 $\r\nEQUIV X3,X / TRUE $\r\nLABEL FINIS $\r\nMATPRN X,,,, // $\r\nSEEMAT A,X,,, // C,N,PRINT $\r\nPRTPARM // C,N,0 $\r\nEND $\r\nCEND\r\nTITLE = TEST MPYAD\r\nBEGIN BULK\r\n\r\nDMI     A       0       6       1       2                2       2\r\nDMI     A       1       1       1.01\r\nDMI     A       2       2       1.01\r\nDMI     B       0       6       1       2                2       2\r\nDMI     B       1       1       1.01\r\nDMI     B       2       2       1.01\r\nDMI     C       0       6       1       2                2       2\r\nDMI     C       1       1       1.01\r\nDMI     C       2       2       1.01\r\nPARAM   ALPHA   -1\r\nPARAM   BETA    1.0      .0\r\nENDDATA\r\n=PAGE=\r\n5.9  AUTOMATIC SUBSTRUCTURE DMAP ALTERS\r\n\r\n  In the automated substructure process, your commands (described in Section\r\n2.7) are converted to the form of DMAP instructions via ALTER card\r\nequivalents. This section describes the resulting DMAP data for each command.\r\n\r\n  The raw DMAP data, stored in the program and modified according to your\r\ninput data, is listed by command type. The subcommand control cards are\r\nidentified by parentheses on the right side. For example, the (P only) for the\r\nSUBSTRUCTURE command item 12, implies that this DMAP instruction is included\r\nonly if the OPTION request includes P (loads).\r\n\r\n  The ALTER card images are not true DMAP instructions but are used to locate\r\npositions in the existing DMAP Rigid Format for replacement by or insertion of\r\nthe new DMAP instructions. The locations to be specified depend on the Rigid\r\nFormat selected by the SOL Executive Control Card and are listed in Volume II\r\nfor each Rigid Format. The relevant section of the Rigid Format for each ALTER\r\nis indicated by the note in parentheses. For instance, \"After GP4\" in Rigid\r\nFormat 1 (statics) implies \"ALTER nn\" (where nn is the DMAP instruction number\r\nof the GP4 module) for insertion of the corresponding DMAP instructions\r\nfollowing Rigid Format 1 DMAP instruction number nn. If an existing set of\r\nDMAP instructions is to be removed, the parenthetical note may indicate\r\n\"Remove DECOMP\", where DECOMP may be a set of NASTRAN modules related to the\r\nentire decomposition process.\r\n\r\n  The descriptions given below are highly dependent on your input commands\r\nand the Rigid Format selected. For an exact listing of all DMAP data generated\r\nfor the current set of substructure commands, the DIAG 23 Executive Control\r\nCard may be input. Adding DIAG 24 will produce a punched deck of the actual\r\nALTER cards generated. This feature allows you to modify these ALTERs and\r\nexecute under APP DMAP,SUBS.\r\n\r\n5.9.1  Index of Substructure DMAP ALTERs\r\n\r\nALTER               Basic Function                                Page\r\n\r\nBRECOVER            Convert Phase 2 results to solution vectors  5.9-2\r\nCOMBINE             Combine several substructures                5.9-3\r\nCREDUCE             Complex modal reduction of a substructure    5.9-4\r\nDELETE           \r\nDESTROY          \r\nEDIT               Internal utility commands                    5.9-5\r\nEQUIV            \r\nRENAME           \r\nSOFPRINT         \r\nMREDUCE             Real modal reduction of a substructure       5.9-6\r\nPLOT                Plot substructures                           5.9-7\r\nRECOVER, MRECOVER   Recover and output Phase 2 solution data or  5.9-8\r\n                    Phase 1, 2 modal reduction data\r\nREDUCE              Initiate matrix partitioning operations      5.9-9\r\nRUN                 Define the DRY parameter                    5.9-10\r\nSOFIN            \r\nSOFOUT           \r\nRESTORE            File operators                              5.9-11\r\nDUMP             \r\nCHECK            \r\nSOLVE               Provide data for execution of the solution phase5.9-12\r\nSUBSTRUCTURE        Initiate the automatic DMAP process         5.9-14\r\n=PAGE=\r\nDMAP for Command BRECOVER (Phase 3)\r\n\r\n  The BRECOVER command converts the results of a Phase 2 substructure\r\nanalysis to NASTRAN solution vectors for the detailed calculation of basic\r\nstructure (or an equivalent basic substructure) displacements, forces, loads,\r\nand stresses. The same structure model of the primary substructure defined in\r\nPhase 1 must be used in Phase 3. It is possible to perform the Phase 3\r\nexecution either as a restart of the Phase 1 run or as an independent run,\r\nwhich recalculates the necessary data blocks.\r\n\r\nRaw DMAP\r\n\r\n 1   ALTER     (Remove solution)\r\n 2   PARAM     //*NOP*/ALWAYS=-1 $\r\n 3   SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT/   \r\n 4             PG/LUSET/NSKIP $   (R.F. 9 only)                       (P or PA\r\n 5   SSG2      USET,GM,YS,KFS,GO,,PG/                                  only)\r\n               QR,PO,PS,PL $ (R.F. 1,2,3 or 9 only)                  \r\n 6   RCOVR3    ,PG,PS,PO,YS/UAS,QAS,PGS,PSS,POS,YSS,LAMA/SOLN/\r\n 7             *NAME*/NDUE $\r\n 8   EQUIV     PGS,PG/ALWAYS $                          \r\n 9   EQUIV     PSS,PS/ALWAYS $                          \r\n10   EQUIV     POS,PO/ALWAYS $                          \r\n11   EQUIV     YSS,YS/ALWAYS $  (R.F. 1 or 2 only)       (P or PA only)\r\n12   COND      LBSSTP,OMIT $                            \r\n13   FBS       LOO,,POS/UOOV/1/1/PREC/0 $               \r\n14   LABEL     LBSSTP $                                 \r\n15   OFP       LAMA,,,,,//CARDNO $  (R.F. 3 only)\r\n16   ALTER     (After SDRI)\r\n17   UMERGE    USET,QAS,/QGS/*G*/*A*/*O* $\r\n18   ADD       QG,QGS/QGT $\r\n19   EQUIV     QGT,QG/ALWAYS $\r\n20   EQUIV     CASECC,CASEXX/ALWAYS $   (R.F. 8 or 9 only)\r\n21   ALTER     (Remove repeat logic)   \r\n\r\nVariables\r\n\r\nYS,PO                Remove if not P or PA, or if not R.F. 1 or 2.\r\nPG,PS                Remove if not P or PA, or if not R.F. 1, 2, or 9.\r\n\r\n                     R.F. 1     2    3     8    9\r\nUAS                       ULV   ULV  PHIA  UDVF UDVT\r\nPGS                       PGS   PGS             PPT\r\nPSS                       PSS   PSS             PST\r\nLAMA                                 LAMA  PPF  TOL\r\nQG                        QG    QG   QG    QPC  QP\r\n\r\nPOS                  Remove if not P or PA. or if not R.F. 1, 2, or 3.\r\nSOLN                 Rigid Format solution number.\r\nNAME                 Name of basic Phase 1 substructure, corresponding to\r\n                     input data.\r\nNOUE                 Remove if not R.F. 8 or 9.\r\nSTP                  Step number.\r\nPREC                 Precision.\r\n=PAGE=\r\nDMAP for Command COMBINE\r\n\r\n  The COMBINE command initiates the process for combining several\r\nsubstructures defined on the SOF files. The COMB1 module reads the control\r\ndeck and the bulk data cards and builds the tables and transformation matrices\r\nfor the combination structure. The COMB2 module performs the matrix\r\ntransformations using the matrices stored on the SOF file or currently defined\r\nas NASTRAN data blocks. The resultant matrices are stored on the SOF file and\r\nretained as NASTRAN data blocks.\r\n\r\nRaw DMAP\r\n\r\n 1   COMB1     CASECC,GEOM4//STP/S,N,DRY/*PVEC* $\r\n 2   COND      LBSTP,DRY $\r\n 3   COMB2     ,KN0l,KN02,KN03,KN04,KN05,KN06,KN07/KNSC/S,N,DRY      \r\n 4             /*K*/*     */*NAME0001*/*NAME0002*/*NAME0003*/         (K only)\r\n 5             *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $         \r\n 6   SOFO      ,KNSC,,,,//S,N,DRY/*NAMEC   */*KMTX* $                \r\n 7   COMB2     ,MN01,MN02,MN03,MN04,MN05,MN06,MN07/MNSC/S,N,DRY/     \r\n 8             *M*/*     */*NAME000l*/*NAME0002*/*NAME0003*/          (M only)\r\n 9             *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $         \r\n10   SOFO      ,MNSC,,,,//S,N,DRY/*NAMEC   */*MMTX* $                \r\n11   COMB2     ,PN01,PN02,PN03,PN04,PN05,PN06,PN07/PNSC/S,N.DRY/     \r\n12             *P*/*PVEC*/*NAME0001*/*NAME0002*/*NAME0003*/           (P or PA\r\n13             *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $           only)\r\n14   SOFO      ,PNSC,,,,//S,N,DRY/*NAMEC   */*PVEC $                 \r\n15   COMB2     ,BN0l,BN02,BN03,BN04,BN05,BN06,BN07/BNSC/S,N,DRY/     \r\n16             *B*/*     */*NAME0001*/*NAME0002*/*NAME0003*/          (B only)\r\n17             *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $         \r\n18   SOFO      ,BNSC,,,,//S,N,DRY/*NAMEC   */*BMTX* $                \r\n19   COMB2     ,K4N01,K4N02,K4N03,K4N04,K4N05,K4N06,K4N07/K4NSC/     \r\n20             S,N,DRY/*K4*/*    */*NAME000l*/*NAME0002*/*NAME0003*/  (K4 only)\r\n21             *NAME0004*/*NAME0005*/*NAME0006*/*NAME0007* $         \r\n22   SOFO      ,K4NSC,,,,//S,N,DRY/*NAMEC   */*K4MX* $               \r\n23   LABEL     LBSTP $\r\n24   LODAPP    PNSC,//*NAMEC   */S,N,DRY $   (PA only)\r\n\r\nVariables\r\n\r\nSTP                     Step number.\r\nPVEC                    PVEC for P option, PAPP for PA option.\r\nN01,N02,...etc.               Internal numbers for structures to be combined.\r\nNSC                     Internal number of combined structure.\r\nNAME000l,NAME0002,...,etc. Names of pseudostructures to be combined.\r\nNAMEC                Name of combined structure.\r\n=PAGE=\r\nDMAP for Command CREDUCE\r\n\r\n   The CREDUCE command performs a complex modal synthesis reduction for a\r\ncomponent substructure. The resulting generalized coordinates for the reduced\r\nsubstructure will consist of selected boundary point displacements and\r\ngeneralized displacements of the eigenvectors. The MRED1 module produces dummy\r\nUSET and EED data blocks for the execution of the eigenvector extraction\r\nprocedure. The EQST data block is created for use by the CMRED2 module. The\r\nCMRED2 module performs the actual matrix reduction. Note that, because the\r\nnumber of modal degrees of freedom is a calculated value, the RUN = DRY option\r\nis not allowed for complex modal reduction.\r\n\r\nRaw DMAP\r\n\r\n 1   PARAM     //*NOP*/ALWAYS=-1 $\r\n 2   MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*NAMEA   */\r\n 3             S,N,DRY/STP/S,N,NOFIX/S,N,SKIPM/*COMPLEX* $\r\n 4   COND      LBM3STP,DRY $\r\n 5   SOFI      /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAMEA   */*KMTX*/*MNTX*/\r\n 6             *PVEC*/*BMTX*/*K4MX* $\r\n 7   COND      LBM2STP,SKIPM $                                  \r\n 8   EQUIV     KNOA,KFFX/NOFIX $     (K only)                   \r\n 9   EQUIV     MNOA,MFFX/NOFIX $     (M only)                   \r\n10   EQUIV     BNOA,BFFX/NOFIX $     (B only)                   \r\n11   EQUIV     K4NOA,K4FFX/NOFIX $   (K4 only)                  \r\n12   COND      LBM1STP,NOF1X $                                  \r\n13   SCE1      USETR,KNOA,MNOA,BNOA,K4NOA/KFFX,KFSX,KSSX,MFFX,  \r\n14             BFFX,K4FFX $                                      (Remove for\r\n15   LABEL     LBM1STP $                                          option PA)\r\n16   PARAMR    //*COMPLEX*//1,0/GPARAM  /G $                    \r\n17   ADD       KFFX,K4FFX/KDD/G/(0,0,1,0) $                     \r\n18   EQUIV     KDD,KFFX/ALWAYS $                                \r\n19   CEAD      KFFX,BFFX,MFFX,EEDR,/PHIDR,CLAMA,OCEIGS,PHIDL    \r\n20             /NEIGVS $                                        \r\n21   OFP       CLAMA,OCEIGS,,,,// $                             \r\n22   EQUIV     PHIDR,PHIFR/NOFIX $                              \r\n23   EQUIV     PHIDL,PHIFL/NOFIX $                              \r\n24   COND      LBM2STP,NOFIX $                                  \r\n25   UMERGE    USETR,PHIDR,/PHIFR/*N*/*F*/*S* $                 \r\n26   UMERGE    USETR,PHIDL,/PHIFL/*N*/*F*/*S* $                 \r\n27   LABEL     LBM2STP $\r\n28   CMRED2    CASECC,CLAMA,PHIFR,PHIFL,EQST,USETR,KNOA,MNOA,BNOA,K4NOA,PNOA/\r\n29             KNOB,MNOB,BNOB,K4NOB,PNOB,PONOB/STP/S,N,DRY/*PVEC* $\r\n30   LABEL     LBM3STP $\r\n31   LODAPP    PNOB,PONOB//*NAMEB___*/S,N,DRY $   (PA only)\r\n32   COND      FINIS,DRY $\r\n\r\nVariables\r\n\r\nSTP                     Step number.\r\nPVEC                    PVEC for option P, PAPP for option PA.\r\nNAMEA                Name of input substructure, A.\r\nNAMEB                Name of output substructure, B.\r\nNOA                     Internal number of substructure A.\r\nNOB                     Internal number of substructure B.\r\nKFFX,KFSX,KSSX          K only.\r\nMFFX                    M only.\r\nBFFX                    B only.\r\nK4FFX                   K4 only.\r\nCLAMA,PHIFR,PHIFL       Remove for option PA.\r\n=PAGE=\r\nDMAP for Utility Commands DELETE, DESTROY, EDIT, EQUIV, RENAME, SOFPRINT\r\n\r\n   Several internal operations of the SOF may be performed with the utility\r\ncommands which create various calls to the SOFUT module. Each of the commands\r\nand associated data are inserted as parameters.\r\n\r\nRaw DMAP\r\n\r\n1    SOFUT     //DRY/*NAME    */*OPER*/OPT/*NAME0002*/*PREF*/*ITM1*/*ITM2*/\r\n2              *ITM3*/*ITM4*/*ITM5* $\r\n\r\nVariables\r\n\r\nNAME                    Name of substructure.\r\nOPER                    Operation to be performed (first four characters of\r\n                        command, for example, EDIT).\r\nOPT                     Integer option code.\r\nNAME0002                Second substructure name for EQUIV and RENAME.\r\nPREF                    Prefix for EQUIV operation.\r\nITM1,ITM2, etc.         SOF data item names.\r\n\r\nThe following table describes the variables used for each command.\r\n\r\nĿ\r\n Command     NAME   OPER   OPT   NAME0002   PREF   ITM1, etc. \r\nĴ\r\n DELETE       X      X                                 X      \r\n                                                              \r\n DESTROY      X      X                                        \r\n                                                              \r\n EDIT         X      X      X                                 \r\n                                                              \r\n EQUIV        X      X              X        X                \r\n                                                              \r\n RENAME       X      X              X                         \r\n                                                              \r\n SOFPRINT     X      X      X                          X      \r\n\r\n=PAGE=\r\nDMAP for Command MREDUCE\r\n\r\n   The MREDUCE command performs a modal synthesis reduction for a component\r\nsubstructure. The resulting generalized coordinates for the reduced\r\nsubstructure will consist of selected boundary point displacements and\r\ngeneralized displacements of the modal coordinates. The MRED1 module produces\r\ndummy USET and EED data blocks for the execution of the mode extraction\r\nprocedure. The EQST and DMR data blocks are created for use by the MRED2\r\nmodule. The MRED2 module performs the actual matrix reduction. Note that,\r\nbecause the number of modal degrees of freedom is a calculated value, the RUN\r\n= DRY option is not allowed for modal reduction.\r\n\r\nRaw DMAP\r\n\r\n 1   MRED1     CASECC,GEOM4,DYNAMICS,CSTM/USETR,EEDR,EQST,DMR/*NAMEA   */\r\n 2             S,N,DRY/STP/S,N,NOFIX/S,N,SKIPM/*REAL* $\r\n 3   COND      LBM3STP,DRY $\r\n 4   SOFI      /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAMEA   */*KMTX*/*MMTX*/\r\n 5             *PVEC*/*BMTX*/*K4MX* $\r\n 6   COND      LBM2STP,SKIPM $                               \r\n 7   EQUIV     KNOA,KFFX/NOFIX $     (K only)                \r\n 8   EQUIV     MNOA,MFFX/NOFIX $     (M only)                \r\n 9   EQUIV     BN0A,BFFX/NOFIX $     (B only)                \r\n10   EQUIV     K4NOA,K4FFX/NOFIX $   (K4 only)               \r\n11   COND      LBM1STP,NOFIX $                               \r\n12   SCE1      USETR,KNOA,MNOA,BNOA,K4NOA/KFFX,KFSX,KSSX,      (Remove for\r\n13             MFFX,BFFX,K4FFX $                                PA)\r\n14   LABEL     LBM1STP $                                     \r\n15   READ      KFFX,MFFX,BFFX,K4FFX,EEDR,USETR,/LAMAR,PHIR,  \r\n16             MIR,OEIGR/*MODES*/NEIGVS $                    \r\n17   OFP       LAMAR,OEIGR,,,,// $                           \r\n18   EQUIV     PHIR,PHIS/NOFIX $                             \r\n19   COND      LBM2STP,NOFIX $                               \r\n20   UMERGE    USETR,PHIR,/PHIS/*N*/*F*/*S* $                \r\n21   LABEL     LBM2STP $\r\n22   MRED2     CASECC,LAMAR,PHIS,EQST,USETR,KNOA,MNOA,BNOA,K4NOA,PNOA,DMR,\r\n23             QSM/KNOB,MNOB,BNOB,K4NOB,PNOB,PONOB/STP/S,N,DRY/*PVEC* $\r\n24   LABEL     LBM3STP $\r\n25   LODAPP    PNOB,PONOB//*NAMEB   */S,N,DRY $   (PA only)\r\n26   COND      FINIS,DRY $\r\n\r\nVariables\r\n\r\nSTP                     Step number.\r\nPVEC                    PVEC for option P, PAPP for option PA.\r\nNAMEA                Name of input substructure, A.\r\nNAMEB                Name of output substructure, B.\r\nNOA                     Internal number of substructure A.\r\nNOB                     Internal number of substructure B.\r\nKFFX,KFSX,KSSX          K only.\r\nMFFX                    M only.\r\nBFFX                    B only.\r\nK4FFX                   K4 only.\r\nLAMAR,PHIS              Remove for option PA.\r\nQSM                     Remove for R.F. 9.\r\n=PAGE=\r\nDMAP for Substructure Plots: PLOT\r\n\r\n   Any level of substructure may be plotted as an undeformed shape using the\r\nexisting NASTRAN plot logic. The plot sets generated in Phase 1 are combined\r\nand transformed for that plotting.\r\n\r\nRaw DMAP\r\n\r\n1    PLTMRG    CASECC,PCDB/PLTSTP,GPSTP,ELSTP,BGSTP,CASSTP,EQSTP/*NAME   */\r\n2              S,N,NGP/S,N,LSIL/S,N,NPSET $\r\n3    SETVAL    //S,N,PLTFLG/1/S,N,PFIL/0 $\r\n4    PLOT      PLTSTP,GPSTP,ELSTP,CASSTP,BGSTP,EQSTP,,,,,/PMSTP/NGP/LSIL/\r\n5              S,N,NPSET/S,N,PLTFLG/S,N,PFIL $\r\n6    PRTMSG    PMSTP// $\r\n\r\nVariables\r\n\r\nNAME                    Name of substructure to be plotted.\r\nSTP                     Step number.\r\n=PAGE=\r\nDMAP for Commands RECOVER (Phase 2), MRECOVER (Phase 1, 2)\r\n\r\n   RECOVER performs the recovery and output of the Phase 2 solution data.\r\nMRECOVER performs the recovery and output subsequent to a Phase 1 or 2 MREDUCE\r\nor CREDUCE operation. The NASTRAN solution displacement vector (either\r\ndisplacement vectors or eigenvectors) is transformed and expanded to\r\ncorrespond to the degrees of freedom of the selected component substructures.\r\nEach pass through the DMAP loop corresponds to a requested structure to be\r\nprocessed. The RCOVR module selects the substructure to be processed with the\r\nloop counter, ILOOP.\r\n\r\nRaw DMAP\r\n\r\n1    FILE      U1=APPEND/U2=APPEND/U3=APPEND/U4=APPEND/U5=APPEND $\r\n2    PARAM     //*ADD*/ILOOP/0/0 $\r\n3    LABEL     LBSTP $\r\n4    RCOVR     CASESS,GEOM4,KGG,MGG,PGG,UGV,DIT,DLT,BGG,K4GG,PPF/OUGV1,\r\n5              OPG1,OQG1,U1,U2,U3,U4,U5/S,N,DRY/S,N,ILOOP/STP/*NAMEFSS */\r\n6              NSOL/NEIGV/S,N,LUI/S,N,U1N/S,N,U2N/S,N,U3N/S,N,U4N/S,N,U5N/\r\n7              S,N,NOSORT2/V,Y,UTHRESH/V,Y,PTHRESH/V,Y,QTHRESH $\r\n8    EQUIV     OUGV1 ,OUGV /NOSORT2/OQG1,OQG/NOSORT2 $\r\n9    EQUIV     OPG1,OPG/NOSORT2 $   (R.F. 1, 2, 8, or 9 only)\r\n1O   COND      NST2STP,NOSORT2 $\r\n11   SDR3      OUGV1 ,OPG1,OQG1,,,/OUGV ,OPG,OQG,,, $\r\n12   LABEL     NST2STP $\r\n13   OFP       OUGV ,OPG,OQG,,,//S.N,CARDNO $\r\n14   COND      LBBSTP,ILOOP $\r\n15   REPT      LBSTP,100 $\r\n16   LABEL     LBBSTP $\r\n17   SOFO      ,U1,U2,U3,U4,U5//-1/*xxxxxxxx* $\r\n\r\nVariables\r\n\r\nKGG                     K option only.\r\nMGG                     M option only.\r\nBGG                     B option only.\r\nK4GG                    K4 option only.\r\n\r\n                        R.F.     1       2        3        8        9\r\nGEOM4                         GEOM4 GEOM4LAMA     GEOM4 GEOM4\r\nPGG                              PGG     PGG               PPF      PPT\r\nUGV                              UGV     UGV      PHIG     UGV      UGV\r\nPPF                                                        PPF      TOL\r\nOUGV1                         OUGV1 OUGV1OPHIG1   OUGV1 OUGV1\r\nOUGV                             OUGV    OUGV     OPHIG    OUGV     OUGV\r\n\r\nSS                      SS or CC (if after SOLVE step).\r\nDIT, DLT                Remove if not R.F. 1, 2, or 3.\r\nOPG1, OPG               Remove if R.F. 3.\r\nNSOL                    Rigid Format solution number.\r\nNEIGV                   R.F. 3 only.\r\nNAMEFSS                 Name of solution structure.\r\n=PAGE=\r\nDMAP for Command REDUCE\r\n\r\n   The REDUCE command initiates the matrix partitioning operations to be\r\nperformed on the stiffness, mass, damping, and load vectors in order to\r\nproduce a set of matrices defined by a subset of the original degrees of\r\nfreedom. The REDUCE module generates the partitioning vector PV, a USET data\r\nblock US, and an identity matrix IN from the bulk data and the corresponding\r\nsubstructure tables stored on the SOF. The remainder of the DMAP sequence\r\ndirects the actual matrix operations.\r\n\r\nRaw DMAP\r\n\r\n 1   REDUCE    CASECC,GEOM4/PVNOA,USSTP,INSTP/STP/S,N,DRY/*PVEC* $\r\n 2   COND      LBRSTP,DRY $\r\n 3   SOFI      /KNOA,MNOA,PNOA,BNOA,K4NOA/S,N,DRY/*NAME000A*/*KMTX*/*MMTX*/\r\n 4             *PVEC*/*BMTX*/*K4MX* $\r\n 5   COND      LBRSTP,DRY $\r\n 6   SMP1      USSTP,KNOA,,,/GONOA,KNOB,KONOA,LONOA,,,,, $     \r\n 7   MERGE     GONOA,INSTP,,,,PVNOA/GNOA/1/TYP/2 $               (K only)\r\n 8   SOFO      ,GNOA,LONOA,,,//DRY/*NAME000A*/*HORG*/*LMTX* $  \r\n 9   SOFO      ,KNOB,,,,//DRY/*NAME000B*/*KMTX* $\r\n10   SOF1      /GNOA,,,,/S,N,DRY/*NAME000A*/*HORG* $   (all except K)\r\n11   MPY3      GNOA,MNOA,/MNOB/0/0 $                             (M only)\r\n12   SOFO      `MNOB,,,,//DRY/*NAME000B*/*MMTX* $              \r\n13   MPY3      GNOA,BNOA,/BNOB/0/0 $                             (B only)\r\n14   SOFO      ,BNOB,,,,//DRY/*NAME000B*/*BMTX* $              \r\n15   MPY3      GNOA,K4NOA,/K4NOB/0/0 $                           (K4 only)\r\n16   SOFO      ,K4NOB,,,,//DRY/*NAME000B*/*K4MX* $             \r\n17   PARTN     PNOA,,PVNOA/PONOA,,,/1/1/2 $                      (P or PA\r\n18   MPYAD     GNOA,PNOA,/PNOB/1/1/0/1 $                          only)\r\n19   SOFO      ,PONOA,,,,//DRY/*NAME000A*/*POVE* $             \r\n20   SOFO      ,PVNOA,,,,//DRY/*NAME000A*/*UPRT* $\r\n21   S9F9      ,PNOB,,,,//DRY/*NAME000B*/*PVEC* $   (P or PA only)\r\n22   LABEL     LBRSTP $\r\n23   LODAPP    PNOB,PONOA//*NAME000B*/S,N,DRY $      (PA only)\r\n\r\nVariables\r\n\r\nSTP                     Step number.\r\nNAME000A             Name of input structure, A.\r\nNAME000B             Name of output structure, B.\r\nNOA,NOB                 Internal numbers of substructures A and B.\r\nTYP                     Matrix precision flag (1 = single).\r\nPVEC                    PVEC for P option, PAPP for PA option.\r\nPOVE                    POVE for P option, POAP for PA option.\r\n=PAGE=\r\nDMAP for Command RUN\r\n\r\n   The RUN command defines the DRY parameter for use by the subsequent DMAP\r\ninstructions. If you specify RUN = DRY, a special set of DMAP instructions is\r\nplaced at the end of the entire command sequence.\r\n\r\nRaw DMAP\r\n\r\n PARAM         //*ADD*/DRY/I  /0$\r\n\r\nVariables\r\n\r\nI                       Integer code for RUN option (DRY = -1, GO = 0, STEP =\r\n                        1).\r\n\r\n                        If RUN = DRYGO, I is set to (DRY) initially and the\r\n                        following DMAP is inserted at the end of the complete\r\n                        ALTER stream:\r\n\r\n                        LABEL          LBSEND $\r\n                        PARAM          //*ADD*/DRY/DRY/1 $\r\n                        COND           FINIS,DRY $\r\n                        REPT           LBSBEG,1 $\r\n                        JUMP           FINIS $\r\n=PAGE=\r\nDMAP for External I/O Commands SOFIN, SOFOUT, RESTORE, DUMP, CHECK\r\n\r\n   Several operations may be performed on the NASTRAN user files and the SOF\r\nfile using the EXIO module. The various input parameters are set by the\r\nSubstructure Commands.\r\n\r\nRaw DMAP\r\n\r\nEXIO           //S,N,DRY/MACH/*DEVI*/*UNITNAME*/*FORM*/*MODE*/*POSI*/*ITEM*/\r\n               *NAME0001*/*NAME0002*/*NAME0003*/*NAME0004*/*NAME0005* $\r\n\r\nVariables\r\n\r\nMODE                    First four characters of command name (that is,\r\n                        \"SOFI\", \"REST\").\r\nDEVI                    Device used for I/O file (\"TAPE\" or \"DISK\").\r\nUNITNAME             Name of NASTRAN user file assigned to I/O file (that is,\r\n                     INPT, INP1, etc.).\r\nFORM                    Format of data (\"EXTE\" or \"INTE\").\r\nPOSI                    Position of file on device (\"REWI\", \"NORE\", or \"EOF\").\r\nITEM                    Name of SOF item or \"ALL\", \"MATR\", \"TABL\", or \"PHAS\".\r\nNAME0001, etc.          Names of substructures to be copied.\r\n\r\nThe following table describes the variables used for each command:\r\n\r\nĿ\r\n Command   MODE   DEVI   UNITNAME   FORM   POSI   ITEM   NAME000i \r\nĴ\r\n SOFlN      X       X        X        X      X      X       X     \r\n                                                                  \r\n SOFOUT     X       X        X        X      X      X       X     \r\n                                                                  \r\n RESTORE    X       X        X                                    \r\n                                                                  \r\n DUMP       X       X        X                                    \r\n                                                                  \r\n CHECK      X       X        X                                    \r\n\r\n=PAGE=\r\nDMAP for Command SOLVE\r\n\r\n   The SOLVE command provides the necessary data for execution of the solution\r\nphase of NASTRAN. Module SGEN replaces the NASTRAN GP1 module for the purpose\r\nof defining an equivalent pseudostructure from data blocks. The new data\r\nblocks GE3S and GE4S contain the load and constraint data in the form of\r\nconverted bulk data card images. The stiffness, mass, viscous damping, and\r\nstructural damping matrices are obtained from the SOF files and added to any\r\nuser matrix terms. The static and dynamic analysis rigid formats require\r\nseparate raw DMAP. Both sets of raw DMAP are shown below.\r\n\r\nRaw DMAP, Rigid Formats 1-3\r\n\r\n 1   ALTER     (Remove GP1)\r\n 2   PARAM     //*NOP*/ALWAYS=-1 $\r\n 3   SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQUEXIN,GPDT,\r\n 4             BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*NAMESOLS*/S,N,LUSET/\r\n 5             S,N,NOGPDT $\r\n 6   PURGE     CSTM $\r\n 7   EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS/\r\n 8             DYNS,DYNAMICS/ALWAYS $\r\n 9   COND      LBSTP,DRY $\r\n10   ALTER     (Remove PLOT)\r\n11   ALTER     (Remove NOSIMP COND)\r\n12   COND      LBSOL,NOSIMP $\r\n13   ALTER     (Remove Property Optimization EQUIV or NOMGG COND)\r\n14   COND      LBSOL,NOMGG $\r\n15   ALTER     (Remove SMA3)\r\n16   LABEL     LBSOL $\r\n17   SOFI      /KNOS,MNOS,,,/DRY/*NAMESOLS*/*KMTX*/*MMTX* $\r\n18   EQUIV     KNOS,KGG/NOSIMP $   (K only)\r\n19   EQUIV     MNOS,MGG/NOSIMP $   (M only)\r\n20   COND      LBSTP,NOSIMP $\r\n21   ADD       KGGX,KNOS/KGG $   (K only)\r\n22   ADD       MGG,MNOS/MGGX $   (M only)\r\n23   EQUIV     MGGX,MGG/ALWAYS $\r\n24   LABEL     LBSTP $\r\n25   CHKPNT    MGG $\r\n26   ALTER     (After GP4)\r\n27   COND      LBSEND,DRY $\r\n28   ALTER     (Remove SDR2 - PLOT)\r\n\r\nVariables\r\n\r\nNAMESOLS             Name of solution structure.\r\nNOS                     Internal number of solution structure.\r\nSTP                     Step number.\r\n\r\nRaw DMAP, Rigid Formats 8, 9\r\n\r\n 1   ALTER     (Remove GP1)\r\n 2   PARAM     //*NOP*/ALWAYS=-1 $\r\n 3   SGEN      CASECC,GEOM3,GEOM4,DYNAMICS/CASESS,CASEI,GPL,EQEXIN,GPDT,\r\n 4             BGPDT,SIL,GE3S,GE4S,DYNS/S,N,DRY/*NAMESOLS*/S,N,LUSET/\r\n 5             S,N,NOGPDT $\r\n 6   PURGE     CSTM $\r\n 7   EQUIV     GE3S,GEOM3/ALWAYS/GE4S,GEOM4/ALWAYS/CASEI,CASECC/ALWAYS\r\n 8             DYNS,DYNAMICS/ALWAYS $\r\n 9   COND      LBSTP,DRY $\r\n10   ALTER     (Remove PLOT)\r\n11   ALTER     (Remove NOSIMP PURGE and COND)\r\n12   ALTER     (Remove GPWG and SMA3)\r\n13   SOFI      /KNOS,MNOS,BNOS,K4NOS,/DRY/*NAMESOLS*/*KMTX*/*MMTX*/*BMTX*/\r\n14             *K4MX* $\r\n15   EQUIV     KNOS,KGG/NOKGGX $   \r\n16   COND      LB2K,NOKGGX $         (K only)\r\n17   ADD       KGGX,KNOS/KGG $     \r\n18   LABEL     LB2K $              \r\n19   EQUIV     MNOS,MGG/NOMGG $    \r\n20   COND      LB2M,NOMGG $        \r\n21   ADD       MGG,MNOS/MGGX $       (M only)\r\n22   EQUIV     MGGX,MGG/ALWAYS $   \r\n23   LABEL     LB2M $              \r\n24   EQUIV     BN0S,BGG/NOBGG $    \r\n25   COND      LB2B,NOBGG $        \r\n26   ADD       BGG,BNOS/BGGX $       (B only)\r\n27   EQUIV     BGGX,BGG/ALWAYS $   \r\n28   LABEL     LB2B $              \r\n29   EQUIV     K4NOS,K4GG/NOK4GG $ \r\n30   COND      LB2K4,NOK4GG $      \r\n31   ADD       K4GG,K4NOS/K4GGX $    (K4 only)\r\n32   EQUIV     K4GGX,K4GG/ALWAYS $ \r\n33   LABEL     LB2K4 $             \r\n34             LBSTP $\r\n35   CHKPNT    MGG,BGG,K4GG $\r\n36   ALTER     (Remove MDEMA, KDEK2 PARAM)\r\n37   PARAM     //*AND*/MDEMA/NQUE/NOM2PP $\r\n3B   PARAM     //*ADD*/KDEK2/1/0 $   (K only)\r\n39   PARAM     //*ADD*/NOMGG/1/0 $   (M only)\r\n40   PARAM     //*ADD*/NOBGG/1/0 $   (B only)\r\n41   PARAM     //*ADD*/NOK4GG/1/0 $  (K4 only)\r\n42   ALTER     (Remove NOSIMP, NOGPDT EQUIV)\r\n43   EQUIV     K2DD,KDD/KDEK2 $\r\n44   EQUIV     M2DD,MDD/NOMGG $\r\n45   EQUIV     B2DD,BDD/NOBGG $\r\n45   ALTER     (Remove SDR2 and PLOT)\r\n47   EQUIV     UPVF,UPVC/NOA $\r\n48   COND      LBL19,NOA $\r\n49   SDR1      USETD,,UDVF,,,GOD,GMD,,,,/UPVC,,/1/DYNAMICS $\r\n50   LABEL     LBL19 $\r\n51   CMKPNT    UPVC $\r\n52   EQUIV     UPVC,UGV/NOUE $\r\n53   COND      LBUE,NOUE $\r\n54   UPARTN    USET,UPVC/UGV,UEV,,/*P*/*G*/*E* $\r\n55   LABEL     LBUE $\r\n\r\nVariables\r\n\r\nNAMESOLS             Name of solution structure.\r\nNOS                     Internal number of solution structure.\r\nSTP                     Step number.\r\nUDVF                    UDVF for R.F. 8, UDVT for R.F. 9.\r\n=PAGE=\r\nDMAP for Command SUBSTRUCTURE\r\n\r\n   The SUBSTRUCTURE command is necessary to initiate the automatic DMAP\r\nprocess. In Phase 1, the SUBPH1 module is used to build the substructure\r\ntables on the SOF from the NASTRAN grid point tables and the SOFO module is\r\nused to copy the matrices onto the SOF. In Phase 2 and Phase 3, the initial\r\nvalue of the DRY parameter is set and the DMAP sequence is initiated.\r\n\r\nRaw DMAP\r\n\r\n                                    PHASE 1\r\n\r\n 1   ALTER     2,0\r\n 2   PARAM     //*NOP*/ALWAYS=-1 $\r\n 3   SGEN      CASECC,,,/CASESS,CASEI,,,,,,,,/S,N,DRY/*XXXXXXXX*/S,N,LUSET/\r\n 4             S,N,NOGPDT $\r\n 5   EQUIV     CASEI,CASECC/ALWAYS $\r\n 6   ALTER     (After GP4)\r\n 7   PARAM     //*ADD*/DRY-1 /0 $\r\n 8   LABEL     LBSBEG $\r\n 9   COND      LBLIS,DRY $   (R.F. 1, 2, 3, and 9 only)\r\n10   SSG1      SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT/    (R.F.\r\n11             PG/LUSET/NSKIP $                                       9 & P\r\n12   CHKPNT    PG $                                                   or PA\r\n13   ALTER     (Remove DECOMP)                                         only)\r\n14   SSG2      USET,GM,,KFS,GO,,PG/QR,PO,PS,PL $                      (R.F.\r\n15   CHKPNT    PO,PS,PL $                                             9 & P\r\n16   LABEL     LBLIS $   (R.F. 1, 2, 3, and 9 only)                    or PA\r\n17   ALTER     (Remove solution)                                       only)\r\n18   SUBPH1    CASECC,EQEXIN,USET,BGPDT,CSTM,GPSETS,ELSETS//S,N,DRY/\r\n19             *NAME    */PLOTID /*PVEC* $\r\n20   COND      LBSEND,DRY $\r\n21   EQUIV     PG,PL/NOSET $                                          R.F. 1,\r\n22   COND      LBL10,NOSET $                                          2, or 3\r\n23   SSG2      USET,GM,YS,KFS,GO,,PG/QR,PO,PS,PL  $                   & P or\r\n24   CHKPNT    PO,PS,PL $                                             PA only)\r\n25   LABEL     LBL10 R\r\n26   SOFO      ,KAA,MAA,PL,BAA,K4AA//S,N,DRY/*NAME*/*KMTX*/*MMTX*/PVEC*/\r\n27             *BMTX*/*K4MX* $\r\n28   LODAPP    PL,//*NAME   */S,N,DRY $    (R.F. 1, 2, 3, or 9 and PA only)\r\n29   EQUIV     CASESS,CASECC/ALWAYS $\r\n\r\n                                    PHASE 2\r\n\r\n 1   ALTER     2,0\r\n 2   PARAM     //*ADD*/DRY/I/0 $\r\n 3   LABEL     LBSBEG $\r\n\r\n                                    PHASE 3\r\n\r\n 1   ALTER     (Remove DECOMP or before dynamic solution)\r\n 2   PARAM     //*ADD*/DRY/I/0 $\r\n 3   LABEL     LBSBEG $\r\n\r\nVariables\r\n\r\nI                       Integer RUN option code (see RUN command).\r\nNAME                    Phase 1 substructure name.\r\nPLOTID                  Phase 1 Plot Set ID.\r\nKAA, MAA, PL, BAA, K4AA Data blocks dependent on OPTION.\r\nPVEC                    PVEC for option P, PAPP for option PA.\r\n\r\n=PAGE=\r\n5.10  SUPPLEMENTARY FUNCTIONAL MODULES\r\n\r\n   Module  Basic Function                                          Page\r\n\r\n   EMA1    Alternative Element Matrix Generator                  5.10-2\r\n\r\n   GPSPC   Automatically constrain potential stiffness\r\n           matrix singularities                                  5.10-3\r\n\r\n   These modules are fully described in Section 4 of the Programmer's Manual.\r\nHowever, since they are not incorporated in any of the Rigid Formats, they are\r\nincluded here for reference purposes. These modules must be ALTERed into Rigid\r\nFormats.\r\n=PAGE=\r\nEMA1 - Element Matrix Assembler\r\n\r\nPurpose\r\n\r\nThis module superimposes matrices corresponding to elements into a structural\r\nmatrix corresponding to all degrees of freedom at all grid points.\r\n\r\nDMAP Calling Sequence\r\n\r\n                                                \r\nEMA1   GPECT,  KDICT  ,  KELM  , SIL,ECT/  KGGX  ,\r\n               MDICT     MELM              MGG  \r\n                                                \r\n\r\n       GPST/C,N,NOK4/C,N,WTMASS   $\r\n\r\nInput Data Blocks\r\n\r\nGPECT      Grid Point Element Connection Table.\r\nKDICT, MDICT  Element Matrix Dictionaries.\r\nKELM, MELM Element Matrix Partitions.\r\nSIL        Scalar Index List.\r\nECT        Element Connection Table.\r\n\r\nOutput Data Blocks\r\n\r\nKGGX       Assembled Structural Matrix.\r\nMGG        Assembled Mass Matrix.\r\nGPST       Grid Point Singularity Table.\r\n\r\nNOTE: GPST may be purged.\r\n\r\nParameters\r\n\r\nNOK4       Input-Integer, default = -1. Flag which specifies whether damping\r\n           factor is to be used in assembling matrix (-1 ignores factor).\r\n\r\nWTMASS     Input-Real, default = 1.0. Constant by which all element matrix\r\n           terms are multiplied.\r\n\r\nExample\r\n\r\nTo replace the current module EMA with module EMA1 in DISP Static Analysis\r\n(DISP Rigid Format 1), the following ALTERs must be made:\r\n\r\nALTER n1,n1 $ STRUCTURAL MATRIX (where n1 = DMAP statement number of the EMA\r\n                                 module corresponding to the stiffness matrix)\r\nEMA1    GPECT,KDICT,KELM,SIL,ECT/KGGX,GPST $\r\nALTER  n2,n2 $ MASS MATRIX (where n2 = DMAP statement number of the EMA module\r\n                            corresponding to the mass matrix)\r\nEMA1    GPECT,MDICT,MELM,SIL,ECT/MGG,/-1/C,Y,WTMASS=1.0 $\r\nENDALTER $\r\n=PAGE=\r\nGPSPC - Constrain Stiffness Matrix Singularities\r\n\r\nPurpose\r\n\r\nThe GPST data block contains data on potential stiffness matrix singularities.\r\nThese singularities may have been removed through the application of single or\r\nmultipoint constraints. The GPSPC module checks each singularity against the\r\nlist of constraints, and if the singularity is not thereby removed, writes a\r\nwarning for you and on your option automatically constrains the singularity.\r\nThis module will not be used if GENELs are present.\r\n\r\nDMAP Calling Sequence\r\n\r\nGPSPC  GPL,GPST,USET,SIL / OGPST,USETC / V,N,NOGPST / V,Y,SINCON / V,N,SINGLE /\r\n       V,N,OMIT / V,N,REACT / V,N,NOSET / V,N,NOL / V,N,NOA $\r\n\r\nInput Data Blocks\r\n\r\nGPL        Grid Point List.\r\nGPST       Grid Point Singularity Table.\r\nUSET       Displacement Set Definitions Table.\r\nSIL        Scalar Index List.\r\n\r\nNOTE: No input data block can be purged.\r\n\r\nOutput Data Blocks\r\n\r\nOGPST      Tabular list of grid point singularities not removed by you. This\r\n           data block will be processed by the OFP (Output File Processor)\r\n           module.\r\nUSETC      Displacement Set Definition Table with singularities constrained.\r\n\r\nParameters\r\n\r\nNOGPST     Output-Integer, default = 1. If positive, OGPST was created.\r\n\r\nSINCON     Input and Output-Integer, default = -1. If SINCON is negative on\r\n           input, remaining singularities are automatically constrained. On\r\n           output, same negative value if singularities existed, zero\r\n           otherwise.\r\n\r\nSINGLE     Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\n\r\nOMIT       Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\n\r\nREACT      Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\n\r\nNOSET      Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\n\r\nNOL        Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\n\r\nNOA        Input and Output-Integer, no default. See description of GP4\r\n           parameters of the same name in Programmer's Manual Section 4.31.\r\n           Values are corrected only if singularities were constrained.  \r\nExamples\r\n\r\n1. To use the GPSPC module instead of the standard GPSP module in a static\r\n   analysis (DISP Rigid Format 1), module GPSP is replaced by module GPSPC and\r\n   the USET data block is replaced by the USETC data block. In this case, the\r\n   following ALTERs are required:\r\n\r\n   ALTER    n1,n2 $ (where n1 and n2 are the DMAP statement numbers of the PARAM\r\n            and PURGE statements following the GP4 module)\r\n   ALTER    n3,n3 $ (where n3 = DMAP statement number of the GPSP module)\r\n   GPSPC    GPL,GPST,USET,SIL/OGPST,USETC/S,N,NOGPST/S,Y,SINCON=-1/\r\n            S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NOSET/S,N,NOL/S,N,NOA $\r\n   EQUIV    USETC,USET/SINCON $\r\n   ALTER    n4 $ (where n4 = DMAP statement number of the OFP module immediately\r\n            following the GPSP module)\r\n   PARAM    //*ADD*/SING/V,Y,SINCON/1 $\r\n   COND     ERROR3,NOL $\r\n   COND     ERROR,SING $\r\n   ALTER    n5 $ (where n5 = DMAP statement number of LABEL LBL4)\r\n   PARAM    //*AND*/NOSR/SINGLE/REACT $\r\n   PURGE    KRR,KLR,QR,DM/REACT /GM/MPCF1 /GO,KOO,LOO,PO,UOOV,RUOV/OMIT\r\n            PS,KFS,KSS/SINGLE /QG/NOSR $\r\n   LABEL    ERROR $\r\n   PRTPARM  //0/*SINCON* $\r\n   ENDALTER $\r\n\r\n   The input parameter SINCON can be changed from the initial value\r\n   illustrated for the general case, either by using the form C,N,i or by\r\n   using a PARAM bulk data card with a different value. When SINCON = -1, the\r\n   strongest combination of possible singularities is automatically\r\n   constrained and noted in the GPST output.\r\n\r\n2. To use the GPSPC module instead of the standard GPSP module in a real\r\n   eigenvalue analysis (DISP Rigid Format 3), module GPSP is replaced by\r\n   module GPSPC and the USET data block is replaced by the USETC data block.\r\n   In this case, the following ALTERs are required:\r\n\r\n   ALTER    n1,n1 $ (where n1 = DMAP statement number of the PURGE module\r\n            following the GP4 module)\r\n   ALTER    n2,n2 $ (where n2 = DMAP statement number of the GPSP module)\r\n   GPSPC    GPL,GPST,USET,SIL/OGPST,USETC/S,N,NOGPST/S,Y,SINCON=-1/\r\n            S,N,SINGLE/S,N,OMIT/S,N,REACT/S,N,NOSET/S,N,NOL/S,N,NOA $\r\n   COND     ERROR3,NOL $\r\n   EQUIV    USETC,USET/SINCON $\r\n   ALTER    n3 $ (where n3 = DMAP statement number of LABEL LBL4)\r\n   PARAM    //*ADD*/SING/V,Y,SINCON/1 $\r\n   COND     ERROR,SING $\r\n   PURGE    KRR,KLR,DM,MLR,MR/REACT /GM/MPCF1 /GO/OMIT /KFS/SINGLE /\r\n            QG/NOSET $\r\n   LABEL    ERROR $\r\n   PRTPARM  //0/*SINCON* $\r\n   ENDALTER $\r\n\r\n   The input parameter SINCON can be changed from the initial value\r\n   illustrated for the general case, either by using the form C,N,i or by\r\n   using a PARAM bulk data card with a different value. When SINCON = -1, the\r\n   strongest combination of possible singularities is automatically\r\n   constrained and noted in the GPST output.\r\n\r\n"
  },
  {
    "path": "um/EXEC.TXT",
    "content": "=PAGE=\r\n2.0  GENERAL DESCRIPTION OF DATA DECK\r\n\r\n   The input deck begins with the required resident operating system control\r\ncards. The type and number of these cards will vary with the installation.\r\nInstructions for the preparation of these control cards should be obtained\r\nfrom the programming staff at each installation.\r\n\r\n   The operating system control cards reference the NASTRAN primary input\r\nfile. This is the file that is assigned to FORTRAN unit 5. The primary input\r\nfile may contain the complete NASTRAN Data Deck or it may contain parts of the\r\nNASTRAN Data Deck and include references to secondary input files that contain\r\nthe remainder of the NASTRAN Data Deck. Section 2.0.1 describes the setup of\r\nthe NASTRAN Data Deck and Section 2.0.2 describes the usage of secondary input\r\nfiles via the READFILE capability.\r\n\r\n2.0.1  NASTRAN Data Deck\r\n\r\n   The NASTRAN Data Deck is constructed in the following order (depending on\r\nthe particular job requirements):\r\n\r\n   1. The NASTRAN card (optional)\r\n\r\n   2. The Executive Control Deck (required)\r\n\r\n   3. The Substructure Control Deck (required only in substructure analyses)\r\n\r\n   4. The Case Control Deck (required)\r\n\r\n   5. The Bulk Data Deck (required)\r\n\r\n   6. The INPUT Module Data card(s) (required only if the INPUT module is\r\n      used)\r\n\r\n   The NASTRAN card is used to change the default values for certain\r\noperational parameters, such as the buffer size and the machine configuration.\r\nThe NASTRAN card is optional, but, if present, it must be the first card of\r\nthe NASTRAN Data Deck. It is described in detail in Section 2.1.\r\n\r\n   The Executive Control Deck begins with the NASTRAN ID card and ends with\r\nthe CEND card. It identifies the job and the type of solution to be performed.\r\nIt also declares the general conditions under which the job is to be executed,\r\nsuch as, maximum time allowed, type of system diagnostics desired, restart\r\nconditions, and whether or not the job is to be checkpointed. If the job is to\r\nbe executed with a rigid format, the number of the rigid format is declared\r\nalong with any alterations to the rigid format that may be desired. If Direct\r\nMatrix Abstraction is used, the complete DMAP sequence must appear in the\r\nExecutive Control Deck. The executive control cards and examples of their use\r\nare described in Section 2.2.\r\n\r\n   The Substructure Control Deck begins with the SUBSTRUCTURE card and\r\nterminates with the ENDSUBS card. It defines the general attributes of the\r\nAutomated Multi-stage Substructuring capability and establishes the control of\r\nthe Substructure Operating File (SOF). The command cards are described in\r\nSection 2.7.\r\n\r\n   When automated multi-stage substructuring is not included, then the Case\r\nControl Deck begins with the first card following CEND and ends with the BEGIN\r\nBULK card. It defines the subcase structure for the problem, makes selections\r\nfrom the Bulk Data Deck, and makes output requests for printing, punching and\r\nplotting. A general discussion of the functions of the Case Control Deck and a\r\ndetailed description of the cards used in this deck are given in Section 2.3.\r\nThe special requirements of the Case Control Deck for each rigid format are\r\ndiscussed in Section 3.\r\n\r\n   The Bulk Data Deck begins with the card following BEGIN BULK and ends with\r\nthe card preceding ENDDATA. It contains all of the details of the structural\r\nmodel and the conditions for the solution. A detailed description of all of\r\nthe bulk data cards is given in Section 2.4. The BEGIN BULK and ENDDATA cards\r\nmust be present even though no new bulk data is being introduced into the\r\nproblem or all of the bulk data is coming from an alternate source, such as\r\nUser's Master File or user generated input. The format of the BEGIN BULK card\r\nis free field. The ENDDATA card must begin in column 1 or 2. Generally\r\nspeaking, only one structural model can be defined in the Bulk Data Deck.\r\nHowever, some of the bulk data, such as cards associated with loading\r\nconditions, constraints, direct input matrices, transfer functions, and\r\nthermal fields may exist in multiple sets. All types of data that are\r\navailable in multiple sets are discussed in Section 2.3.1. Only sets selected\r\nin the Case Control Deck will be used in any particular solution.\r\n\r\n   If the INPUT module is employed, one or two additional data cards are\r\nrequired following the ENDDATA card. For specific cases, see Section 2.6.\r\n\r\n   Comment cards may be inserted in any of the parts of the NASTRAN Data Deck.\r\nThese cards are identified by a $ in column one. Columns 2-72 may contain any\r\ndesired text.\r\n\r\n2.0.2  Usage of Secondary Input Files Via the READFILE Capability\r\n\r\n   The READFILE capability allows you to logically read data from one or more\r\nexternal, secondary, card-image files by referencing these files from the\r\nNASTRAN primary input file. (The primary input file is the file that is\r\nassigned to FORTRAN unit 5 from which NASTRAN normally reads the input data.)\r\n\r\n2.0.2.1  Description of the Capability\r\n\r\n   The format of the READFILE card is as follows:\r\n\r\n      READFILE name\r\n\r\nwhere \"name\" refers to an external, secondary, card-image file.\r\n\r\n   When a READFILE card is encountered in the primary input file, NASTRAN\r\nreads all subsequent input data from the specified secondary file until an\r\nend-of-file condition or an ENDDATA card is encountered on that file,\r\nwhichever occurs earlier. If an end-of-file condition is encountered on the\r\nsecondary file before an ENDDATA card is detected, the program resumes reading\r\nof the input data from the primary input file and the process continues. If an\r\nENDDATA card is encountered on the secondary file before an end-of-file\r\ncondition is detected, obviously the program will not read any more input data\r\nfrom either the secondary file or the primary file, unless the INPUT module is\r\nbeing used, in which case the data required for the INPUT module will be read\r\nfrom the primary input file (see Item 5 in the following discussion).\r\n\r\n   The flexibilities of the READFILE cards are as follows:\r\n\r\n   1. The format of the READFILE card is free-field. The only restrictions are\r\n      that there should be at least one space between the word READFILE and\r\n      the \"name\" of the secondary file and that the card cannot extend beyond\r\n      one card image (80 columns).\r\n\r\n   2. Nested READFILE cards are allowed. That is, READFILE cards are permitted\r\n      in both the NASTRAN primary and secondary input files.\r\n\r\n   3. If input cards from the READFILE file are not to be echoed, you can add\r\n      the option NOPRINT after READFILE.\r\n\r\n   4. READFILE cards may be used anywhere in the Executive Control,\r\n      Substructure Control, Case Control and Bulk Data Decks. (The NASTRAN\r\n      card can also be specified in a secondary file.)\r\n\r\n   5. If the INPUT module is used, the data required for that module must\r\n      appear in the primary input file.\r\n\r\n   6. On the CDC and DEC VAX versions, \"name\" may be any valid file name (see\r\n      Examples 1 and 2 below). On the IBM version, \"name\" may be either a\r\n      sequential file name (see Example 3) or a member name of a PDS (see\r\n      Example 4). On the UNIVAC, \"name\" may be any file name (see Example 5)\r\n      or file.element name (see Example 6).\r\n\r\n2.0.2.2  Examples of READFILE Capability Usage\r\n\r\n   The following examples illustrate several ways in which the READFILE\r\ncapability can be used. These examples also illustrate the usage of this\r\ncapability on all four versions of NASTRAN.\r\n\r\nExample 1\r\n\r\n   This example illustrates the usage of the READFILE capability for reading\r\nin the restart dictionary in a checkpoint/restart run on the CDC version.\r\n(This example assumes that the output on the punch file in the checkpoint run\r\ncontains only the restart dictionary.)\r\n\r\n   /JOB\r\n    .\r\n    .\r\n    .\r\n   COPYBR,INPUT,INPUT1.\r\n   COPYBR,INPUT,INPUT2.\r\n   REWIND,INPUT1,INPUT2.\r\n   * RUN CHECKPOINT JOB\r\n   LINK1,INPUT1,OUTPUT,PUNCH1,UT1.\r\n   * MANIPULATE FILES\r\n   PACK,PUNCH1.\r\n   REWIND,PUNCH1.\r\n   RETURN,POOL.\r\n   RENAME,OPTP=NPTP.\r\n   * RUN RESTART JOB\r\n   LINK1,INPUT2,OUTPUT,PUNCH2,UT1.\r\n   /EOR\r\n   NASTRAN FILES=NPTP\r\n    .\r\n    . (Data for Checkpoint Job)\r\n    .\r\n   /EOR\r\n   NASTRAN FILES=OPTP\r\n    .\r\n   $ READ THE RESTART DICTIONARY\r\n   READFILE PUNCH1\r\n    .\r\n   CEND\r\n    .\r\n    . (Data for Restart Job)\r\n    .\r\n   /EOF\r\n\r\nExample 2\r\n\r\n   This example illustrates the use of multiple READFILE cards on the DEC VAX\r\nversion.\r\n\r\n   ID ....\r\n    .\r\n    .\r\n    .\r\n   BEGIN BULK\r\n   READFILE DDB1:[NASDIR]FUSELAGE.DT\r\n   READFILE DDB1:[NASDIR]WINGS.DT\r\n   READFILE,NOPRINT,DDB1:[NASDIR]TAIL.DT\r\n   ENDDATA\r\n\r\nThe directory and device names need not be specified if default values are to\r\nbe used.\r\n\r\nExample 3\r\n\r\n   In this example, the READFILE capability is used to access a sequential\r\nfile on the IBM version. The format for reading a sequential file is to\r\ninclude the DDname of the file on the READFILE card as shown below.\r\n\r\n   //  EXEC NASTRAN\r\n   //NS.CARDS DD    DSN=USER.JOB1EXEC.DATA,DISP=SHR\r\n   //NS.SYSIN DD    *\r\n   ID ....\r\n    .\r\n    .\r\n    .\r\n   READFILE CARDS\r\n   /*\r\n\r\nAn ENDDATA card is not used in the Bulk Data Deck here as it is assumed to be\r\nincluded in the data on the sequential file.\r\n\r\nExample 4\r\n\r\n   In this example, the READFILE capability is used to read a member of a PDS\r\non the IBM version. The format for reading a member of a PDS is to include the\r\nDDname of the PDS with the member name in parentheses immediately following it\r\nas shown below.\r\n\r\n   //  EXEC NASTRAN\r\n   //NS.CARDS DD    DSN=USER.PDS.DATA,DISP=SHR\r\n   //NS.SYSIN DD    *\r\n   ID ....\r\n    .\r\n    .\r\n    .\r\n   READFILE CARDS(JOB2EXEC)\r\n    .\r\n    .\r\n    .\r\n   /*\r\n\r\nThe member JOB2EXEC is read from the PDS USER.PDS.DATA.\r\n\r\nExample 5\r\n\r\n   In this example, a file name on the UNIVAC is referenced by a READFILE\r\ncard, and the input cards are not to be printed.\r\n\r\n   @ASG,A CARDS*UN1EXEC.\r\n   @XQT   *NASTRAN.L1NK1\r\n   ID ....\r\n   READFILE(NOPRINT)CARDS*UN1EXEC.\r\n    .\r\n    .\r\n    .\r\n\r\nThe file UN1EXEC with the qualifier CARDS will be read immediately after the\r\nID card.\r\n\r\nExample 6\r\n\r\n   In this example, a file.element name on the UNIVAC is referenced by a\r\nREADFILE card.\r\n\r\n   @ASG,A CARDS*UN2.\r\n   @XQT *NASTRAN.L1NK1\r\n   ID ....\r\n   READFILE CARDS*UN2.EXEC\r\n    .\r\n    .\r\n    .\r\n\r\nThe element EXEC of file UN2 with the qualifier CARDS is read immediately\r\nafter the ID card.\r\n=PAGE=\r\n2.1  THE NASTRAN CARD\r\n\r\n    Many of the important operational parameters used in NASTRAN, such as the\r\nbuffer size and the machine configuration, are contained in the /SYSTEM/\r\nCOMMON block. These and other operational parameters are initially assigned\r\nvalues by the program. However, the program does provide a means by which the\r\ndefault values initially set for some of these operational parameters can be\r\nredefined by you at execution time. The card that provides this capability is\r\ncalled the NASTRAN card.\r\n\r\n    The NASTRAN card is optional, but, if used, it must be the first card of\r\nthe NASTRAN data deck; that is, it must precede the Executive Control Deck.\r\nThe NASTRAN card is a free-field card (similar to the cards in the Executive\r\nand Case Control Decks). The format of the card is as follows:\r\n\r\n    NASTRAN keyword1 = value,  keyword2 = value, ...\r\n\r\nThe list of applicable and acceptable keywords is as follows:\r\n\r\n    1.  BANDIT - Changes the 77th word in /SYSTEM/. This parameter specifies\r\n\twhether the BANDIT operations in NASTRAN are to be performed or not. If\r\n\tBANDIT = 0 (the default), the BANDIT operations are performed if there\r\n\tare no input data errors. If BANDIT = -1, the BANDIT operations are\r\n\tskipped unconditionally.\r\n\r\n    2.  BANDTCRI - Manipulates the 77th word in /SYSTEM/. This parameter\r\n\tspecifies the criterion for evaluation in the BANDIT operations.\r\n\tAcceptable values and their meanings are shown below. (See Reference 1\r\n\tfor the definitions of the terms used here.)\r\n\r\n\tBANDTCRI value            Criterion for evaluation (characteristic of \r\n\t\t\t\t  matrix selected for reduction) \r\n\r\n\t   1 (default)            RMS (root mean square) wavefront\r\n\t   2                      Bandwidth\r\n\t   3                      Profile\r\n\t   4                      Maximum wavefront\r\n\r\n    3.  BANDTDEP - Manipulates the 77th word in /SYSTEM/. This parameter is\r\n\tmeaningful only when the BANDTMPC parameter is set to 1 or 2. It\r\n\tindicates whether the dependent grid points specified by multipoint\r\n\tconstraints (MPCs) and/or rigid elements are to be included (BANDTDEP =\r\n\t0, the default) or are to be excluded (BANDTDEP = 1) from consideration\r\n\tin the BANDIT computations.\r\n\r\n    4.  BANDTDIM - Manipulates the 77th word in /SYSTEM/. This parameter defines\r\n\tthe dimension (in number of words) of a scratch array used in the BANDIT\r\n\tcomputations with the GPS method. Any one of the integers 1 to 9 may be\r\n\tspecified, resulting in a dimension of words for the scratch array equal\r\n\tto m*10 percent of the total number of grid points used in the problem\r\n\t(where m = the value specified for this parameter). The default of m is\r\n\t1, or 150 words, whichever gives the larger number.\r\n\r\n    5.  BANDTMPC - Manipulates the 77th word in /SYSTEM/. This parameter\r\n\tindicates whether multipoint constraints (MPCs) and/or rigid elements\r\n\tare to be considered in the BANDIT computations. Acceptable values and\r\n\ttheir meanings are shown below.\r\n\r\n\tBANDTMPC value            Meaning\r\n\r\n\t   0 (default)            Do not consider MPCs or rigid elements in \r\n\t\t\t\t  the BANDIT computations. \r\n\r\n\t   1                      Consider only rigid elements in the BANDIT\r\n\t\t\t\t  computations.\r\n\r\n\t   2                      Consider both MPCs and rigid elements in the \r\n\t\t\t\t  BANDIT computations. \r\n\r\n\tAs noted in Reference 1, it should be emphasized here that only in rare\r\n\tcases would it make sense to let BANDIT process MPCs and rigid elements.\r\n\tThe main reasons for this are that the BANDIT computations do not\r\n\tconsider individual degrees of freedom and, in addition, cannot\r\n\tdistinguish one MPC set from another.\r\n\r\n    6.  BANDTMTH - Manipulates the 77th word in /SYSTEM/. This parameter\r\n\tspecifies the method to be used by the BANDIT operations for the\r\n\tresequencing of grid points. (See Reference 1 for details of these\r\n\tmethods.) Acceptable values and their meanings are shown below.\r\n\r\n\tBANDTMTH value            Method(s) to be used in the BANDIT operations\r\n\r\n\t   1                      Cuthill-McKee method\r\n\t   2                      Cuthill-McKee method and Gibbs-Poole-\r\n\t\t\t\t  Stockmeyer method \r\n\t   3 (default)            Gibbs-Poole-Stockmeyer method\r\n\r\n    7.  BANDTPCH - Manipulates the 77th word in /SYSTEM/. This parameter\r\n\tspecifies the punching of the SEQGP cards generated by the BANDIT\r\n\tprocedure. Acceptable values and their meanings are given below.\r\n\r\n\tBANDTPCH value            Meaning\r\n\r\n\t   0 (default)            Do not punch the SEQGP cards generated by \r\n\t\t\t\t  BANDIT and let the NASTRAN job continue \r\n\t\t\t\t  normally. \r\n\r\n\t   1                      Punch out the SEQGP cards generated by \r\n\t\t\t\t  BANDIT and terminate the NASTRAN job. \r\n\r\n    8.  BANDTRUN - Manipulates the 77th word in /SYSTEM/. This parameter\r\n\tspecifies the conditions under which the BANDIT operations in NASTRAN\r\n\tare to be performed. A value of 0 (the default) indicates that the\r\n\tBANDIT computations are to be performed if there are no input data\r\n\terrors and you have not already included one or more SEQGP cards in the\r\n\tBulk Data Deck. A value of 1 specifies that the BANDIT operations are to\r\n\tbe performed if there are no input data errors and new SEQGP cards are\r\n\tto be generated unconditionally to replace any old SEQGP cards that may\r\n\thave been initially included in your input.\r\n\r\n    9.  BUFFSIZE - Changes the first word in /SYSTEM/. This word defines the\r\n\tnumber of words in a GINO (general purpose input/output routines used in\r\n\tNASTRAN) buffer. The default values are as follows:\r\n\r\n\tMachine           GINO Buffer Size (words)\r\n\r\n\tCDC               1042\r\n\tIBM               1604\r\n\tUNIVAC            871\r\n\tDEC VAX           1408\r\n\r\n\tThe desired value at a particular installation may be different from the\r\n\tdefault value. In any event, related runs such as restarts must use the\r\n\tsame BUFFSIZE for all parts of the run.\r\n\r\n    10.    BULKDATA - Changes the 77th word in /SYSTEM/. This parameter\r\n\t   specifies whether NASTRAN is to run normally (BULKDATA = 0, the\r\n\t   default) or if NASTRAN is to terminate after the Preface (or Link 1)\r\n\t   operations (BULKDATA not equal to 0).\r\n\r\n\t   BULKDATA = -3 (a special option) indicates the NASTRAN 15 GINO timing\r\n\t   constants are to be calculated, printed, and the NASTRAN job\r\n\t   terminated.\r\n\r\n\t   Important note about the BANDIT, BANDTxxx, and BULKDATA Parameters\r\n\r\n\t   Note that the BANDIT parameter, the BANDTxxx parameters (as a group)\r\n\t   and the BULKDATA parameter all correspond to the same word (the 77th\r\n\t   word) in the /SYSTEM/ COMMON block. Hence, these parameters are\r\n\t   mutually exclusive. That is, you can specify either the BANDIT\r\n\t   parameter, any one or more of the BANDTxxx parameters, or the\r\n\t   BULKDATA parameter, but you cannot specify more than one of these\r\n\t   three parameters.\r\n\r\n    11.    CONFIG - This keyword is no longer applicable. The constants required\r\n\t   for use in the timing equations are now automatically computed in\r\n\t   every NASTRAN run.\r\n\r\n    12.    DRUM - Changes the 34th word in /SYSTEM/. This word defines the drum\r\n\t   allocation of dynamic assigns on the UNIVAC version. The default is\r\n\t   DRUM = 1. This causes dynamic assigns for all units not assigned by\r\n\t   you to be of the following form:\r\n\r\n\t   @ASG,T XX,F/2/POS/30.\r\n\r\n\t   This assign card allows a maximum of 1,920 tracks, or approximately\r\n\t   3,500,000 words for each file. The F refers to a mass storage device.\r\n\t   POS requests that 64 contiguous tracks be assigned at once. The value\r\n\t   30 causes the run to be terminated if more than 30 x 64 tracks of\r\n\t   data are written on any one file.\r\n\r\n\t   The drum allocation of dynamic assigns can be changed from POS\r\n\t   (positions) to TRK (tracks) by setting DRUM = 2. This results in\r\n\t   files being assigned in the following form:\r\n\r\n\t       @ASG,T XX,F//TRK/1360.\r\n\r\n\t   TRK requests that 64 sectors (28 words/sector) be assigned at one\r\n\t   time.\r\n\r\n    13.    FILES - Establishes the specified NASTRAN files as executive files.\r\n\t   The files that may be specified are POOL, NPTP, OPTP, NUMF, PLT1,\r\n\t   PLT2, INPT, INP1, INP2,...INP9. Multiple file names must be specified\r\n\t   by enclosing them in parentheses, such as FILES = (PLT1, NPTP). If an\r\n\t   executive file is assigned to tape rather than disk, then it need not\r\n\t   be specified with the FILES parameter. The FILES parameter, if used,\r\n\t   must be the last keyword on the NASTRAN card.\r\n\r\n    14.    HICORE - Changes the 31st word in /SYSTEM/. This word defines the\r\n\t   amount of core (in decimal words) available to you on the UNIVAC 1100\r\n\t   series machines. The default is 85K decimal words. The ability to\r\n\t   increase this value may be installation limited.\r\n\r\n    15.    LOGFL - Changes the 7th word in /SYSTEM/. Default is 95 (UNIVAC\r\n\t   only).\r\n\r\n    16.    MAXFILES - Changes the 29th word in /SYSTEM/. This word defines the\r\n\t   maximum number of files to be placed in COMMON /XFIAT/ by subroutine\r\n\t   GNFIAT. The default value is 35.\r\n\r\n    17.    MAXOPEN - Changes the 30th word in /SYSTEM/. This word defines the\r\n\t   maximum number of files that may be open at any one time in the\r\n\t   program. The default value is 16.\r\n\r\n    18.    MODCOM(I) - Changes the (56 + I)th word (1 <= I < 9) in /SYSTEM/.\r\n\t   Defines one of the words in a nine-word array. Only MODCOM(1) is\r\n\t   supported. If MODCOM(1) = 1, diagnostic statistics from subroutine\r\n\t   SDCOMP are printed. The default is MODCOM(1) = 0, resulting in no\r\n\t   diagnostic prints from SDCOMP.\r\n\r\n    19.    NLINES - Changes the 9th word in /SYSTEM/. This word defines the\r\n\t   number of data lines per printed page. The smallest acceptable value\r\n\t   is 10. The default value is 42 for the CDC version, 55 for the IBM\r\n\t   version, 55 for the DEC VAX version, and 55 for the UNIVAC version.\r\n\t   Alternatively, the number of data lines per printed page can also be\r\n\t   defined by means of the LINE card in the Case Control Deck (see\r\n\t   Section 2.3).\r\n\r\n    20.    PLOTOPT - Defines the action to be taken by NASTRAN in the case where\r\n\t   plots are requested and error(s) exists in the Bulk Data Deck. The\r\n\t   default is zero (PLOTOPT = 0) if the PLT2 file is not assigned in a\r\n\t   NASTRAN job and one (PLOTOPT = 1) if the PLT2 file has been assigned.\r\n\t   The plot options (0 through 5) are listed below:\r\n\r\n\t   PLOTOPT     BULK DATA     PLOT COMMANDS    NASTRAN ACTION\r\n\r\n\t       0       no error      no error         executes all links, no \r\n\t\t\t\t\t\t      plots \r\n\t\t       no error      error            stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\t\t       error         err or no err    stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\r\n\t       1       no error      no error         executes all links, and \r\n\t\t\t\t\t\t      plots \r\n\t\t       no error      error            stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\t\t       error         err or no err    stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\r\n\t       2       err/no err    no error         stops after undef. plots \r\n\t\t\t\t\t\t      in link2 \r\n\t\t       err/no err    error            stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\r\n\t       3       err/no err    err or no err    attempts to plot; stops \r\n\t\t\t\t\t\t      in link2 \r\n\r\n\t       4       no error      no error         executes all links, and \r\n\t\t\t\t\t\t      plots \r\n\t\t       no error      error            attempts to plot; stops \r\n\t\t\t\t\t\t      in link2 \r\n\t\t       error         no error         stops after undef. plots \r\n\t\t\t\t\t\t      in link2 \r\n\t\t       error         error            stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\r\n\t       5       no error      no error         executes all links, and \r\n\t\t\t\t\t\t      plots \r\n\t\t       no error      error            executes all links, but \r\n\t\t\t\t\t\t      no plots \r\n\t\t       error         no error         stops after undef. plots \r\n\t\t\t\t\t\t      in link2 \r\n\t\t       error         error            stops after link1 data \r\n\t\t\t\t\t\t      check \r\n\r\n    21.    STST - Changes the 70th word in /SYSTEM/. This word defines the\r\n\t   singularity tolerance for use in the EMA module. The default value is\r\n\t   0.01. The singularities remaining are written onto the GPST data\r\n\t   block output from the EMA module.\r\n\r\n    22.    SYSTEM(J) - Changes the Jth word (1 <= J <= 100) in /SYSTEM/. This is\r\n\t   the general form of defining any word in /SYSTEM/. For some values of\r\n\t   J, SYSTEM(J) has equivalent keywords. For instance, SYSTEM(1) and\r\n\t   BUFFSIZE are equivalent and SYSTEM(9) and NLINES are equivalent. The\r\n\t   contents of /SYSTEM/ are described fully in Section 2.4.1.8 of the\r\n\t   Programmer's Manual.\r\n\r\n    23.    TITLEOPT - Defines the option for obtaining the title page in the\r\n\t   NASTRAN output. The values of this keyword and their meaning are as\r\n\t   follows:\r\n\r\n\t   TITLEOPT       Meaning\r\n\r\n\t       <0         Print a short title page.\r\n\r\n\t       0          Do not print any title page.\r\n\r\n\t       1          Print one copy of the full title page.\r\n\r\n\t       2 (default) Print two copies of the full title page.\r\n\r\n\t       3          Print a one-line comment (which you can modify by \r\n\t\t\t  updating subroutine TTLPGE) followed by the short \r\n\t\t\t  title items on the same page. \r\n\r\n\t       4          Read another card immediately following the NASTRAN \r\n\t\t\t  card, print its contents on one line and follow it \r\n\t\t\t  by the short title items on the same page. \r\n\r\n\t       >4         Do not print any title page (same as TITLEOPT = 0).\r\n\r\n\t       -2         (UNIVAC only) Print a short title page and suppress \r\n\t\t\t  the alternate logfile assignment which is not \r\n\t\t\t  allowed in real-time environment. \r\n\r\n\t   As can be seen, when TITLEOPT = 4 is specified on the NASTRAN card,\r\n\t   you must supply another card immediately following the NASTRAN card\r\n\t   to be read by the program. You can therefore use this feature to\r\n\t   print one-line individual comments (along with the short title) for\r\n\t   individual runs.\r\n\r\nExamples\r\n\r\n    Following are some examples of the use of the NASTRAN card.\r\n\r\nExample 1\r\n\r\nNASTRAN BUFFSIZE = 900\r\n\r\nThe above card changes the 1st word of /SYSTEM/.\r\n\r\nExample 2\r\n\r\nNASTRAN NLINES = 40\r\n\r\nThe above card changes the 9th word of /SYSTEM/.\r\n\r\nExample 3\r\n\r\nNASTRAN TITLEOPT = -1, FILES = (PLT1, NPTP)\r\n\r\nThe above card requests a short title page and establishes the PLT1 and NPTP\r\nfiles as executive files.\r\n\r\nExample 4\r\n\r\nNASTRAN SYSTEM(14) = 30000, SYSTEM(79) = 16384\r\n\r\nThe above card changes the 14th and 79th words in /SYSTEM/. SYSTEM(14) = 30000\r\nchanges the maximum number of output lines from 20000 (default) to 30000. (See\r\nthe description of the MAXLINES card in Section 2.3.) SYSTEM(79) = 16384 turns\r\non DIAG 5 thereby requesting the tracing of GINO OPEN/CLOSE operations. (See\r\nthe description of the DIAG card in Section 2.2.)\r\n\r\nExample 5\r\n\r\nNASTRAN BANDTPCH = 1, BANDTRUN = 1\r\n\r\nThe above card requests the punching of the new SEQGP cards unconditionally\r\ngenerated by the BANDIT procedure and the subsequent termination of the\r\nNASTRAN job.\r\n\r\nExample 6\r\n\r\nNASTRAN BANDIT = -1\r\n\r\nThe above card requests the unconditional skipping of the BANDIT operations.\r\n\r\nExample 7\r\n\r\nNASTRAN SYSTEM(93) = 1\r\n\r\nThe above card requests that sweep aerodynamic effects are to be included In\r\nthe modal flutter analysis of an axial-flow turbomachine or an advanced\r\nturbopropeller. (See Section 1.20.)\r\n\r\nREFERENCE\r\n\r\n1.  Everstine, G. C., BANDIT User's Guide, COSMIC Program No. DOD-00033, May\r\n    1978.\r\n\r\n=PAGE=\r\n2.2  EXECUTIVE CONTROL DECK\r\n\r\n2.2.1  Control Selection\r\n\r\n   The format of the Executive Control cards is free field. The name of the\r\noperation (for example, CHKPNT) is separated from the operand by one or more\r\nblanks. The fields in the operand are separated by commas, and may be up to 8\r\nintegers or alphanumeric as indicated in the control card descriptions. The\r\nfirst character of an alphanumeric field must be alphabetic, followed by up to\r\n7 additional alphanumeric characters. Blank characters may be placed adjacent\r\nto separating commas if desired. The individual cards are described in Section\r\n2.3.3 and examples follow in Section 2.2.2.\r\n\r\n   The following Executive Control cards are mandatory:\r\n\r\n   1. APP - selects a Rigid Format approach or a user provided Direct Matrix\r\n      Abstraction Program (DMAP).\r\n\r\n   2. CEND - defines the end of the Executive Control deck.\r\n\r\n   3. ID - defines the beginning of the Executive Control deck.\r\n\r\n   4. TIME - defines the maximum time in minutes allotted to the execution of\r\n      the NASTRAN program.\r\n\r\n   The following Executive Control cards are required under certain\r\ncircumstances:\r\n\r\n   1. BEGIN$ - defines the beginning of user provided DMAP statements.\r\n\r\n   2. END$ - defines the end of user provided DMAP statements.\r\n\r\n   3. ENDALTER - defines the end of user provided changes to a Rigid Format.\r\n\r\n   4. RESTART - defines the beginning of a restart dictionary.\r\n\r\n   5. SOL - selects the solution number of a Rigid Format.\r\n\r\n   6. UMF - selects a data deck from a User Master File.\r\n\r\n   7. UMFEDIT - controls execution as a UMF editor.\r\n\r\n   The following Executive Control cards are optional:\r\n\r\n   1. ALTER - defines the Rigid Format statement(s) at which you make\r\n      alterations.\r\n\r\n   2. CHKPNT - requests the execution to be checkpointed.\r\n\r\n   3. DIAG - requests diagnostic output to be provided or operations to be\r\n      effected.\r\n\r\n   4. NUMF - requests a User Master File to be created.\r\n\r\n   5. $ - defines a non-executable comment.\r\n\r\n2.2.2  Executive Control Deck Examples\r\n\r\n1. Cold start, no checkpoint, rigid format, diagnostic output.\r\n\r\n   ID          MYNAME, BRIDGE23\r\n   APP         DISPLACEMENT\r\n   SOL         2,0\r\n   TIME        5\r\n   DIAG        1,2\r\n   CEND\r\n\r\n2. Cold start, checkpoint, rigid format.\r\n\r\n   ID          PERSONZZ, SPACECFT\r\n   CHKPNT      YES\r\n   APP         DISPLACEMENT\r\n   SOL         1,3\r\n   TIME        15\r\n   CEND\r\n\r\n3. Restart, no checkpoint, rigid format. The restart dictionary indicated by\r\nthe double line bracket is automatically punched on previous run in which the\r\nCHKPNT option was selected by you.\r\n\r\n     ID JOESHMOE, PROJECTX\r\n   \r\n    RESTART  PERSONZZ, SPACECFT, 05/13/67, 18936,\r\n         1, XVPS, FLAGS=0, REEL=l, FILE=6\r\n         2, REENTER AT DMAP SEQUENCE NUMBER 7\r\n         3, GPL, FLAGS=0, REEL=1, FILE=7\r\n                     .\r\n                     .\r\n                     .\r\n     $ END OF CHECKPOINT DICTIONARY\r\n   \r\n      APP         DISPLACEMENT\r\n      SOL         3,3\r\n      TIME        10\r\n      CEND\r\n\r\n4. Cold start, no checkpoint, DMAP. User-written DMAP program is indicated by\r\ndouble line brackets.\r\n\r\n     ID          IAM007, TRYIT\r\n     APP         DMAP\r\n     BEGIN $\r\n                            \r\n    DMAP statements go here \r\n                            \r\n     END $\r\n     TIME       8\r\n     CEND\r\n\r\n5. Restart, checkpoint, altered rigid format, diagnostic output.\r\n\r\n   ID BEAM, FIXED\r\n   RESTART BEAM, FREE, 05/09/68, 77400,\r\n\t1, XVPS, FLAGS=0, REEL=1, FILE=6\r\n\t2, REENTER AT DMAP SEQUENCE NUMBER 7\r\n\t3, GPL, FLAGS=0, REEL=1, FILE=7\r\n\t      .\r\n\t      .\r\n\t      .\r\n   $ END OF CHECKPOINT DICTIONARY\r\n   CHKPNT      YES\r\n   DIAG        2,4\r\n   APP         DISPLACEMENT\r\n   SOL         3,3\r\n   TIME        15\r\n   ALTER       20 $\r\n   MATPRN      KGGX,,,,// $\r\n   TABPT       GPST,,,,// $\r\n   ENDALTER\r\n   CEND\r\n\r\n2.2.3  Executive Control Card Descriptions\r\n\r\n   The format of the Executive Control cards is free-field. In presenting\r\ngeneral formats for each card embodying all options, the following conventions\r\nare used:\r\n\r\n1. Upper-case letters and parentheses must be punched as shown.\r\n\r\n2. Lower-case letters indicate that a substitution must be made.\r\n\r\n\t\t    \r\n3. Double brackets   indicate that a choice of contents is mandatory.\r\n\t\t    \r\n\t     \r\n4. Brackets   contain an option that may be omitted or included by you.\r\n\t     \r\n\r\n5. First listed options or values are the default values.\r\n\r\n6. Physical card consists of information punched in columns 1 through 72 of a\r\n   card. Most Executive Control cards are limited to a single physical\r\n   card.\r\n\r\n7. Logical card may have more than 72 columns with the use of continuation\r\n   cards. A continuation card is honored by ending the preceding card with\r\n   a comma.\r\n=PAGE=\r\nALTER - DMAP Sequence Alteration Request\r\n\r\nDescription\r\n\r\nRequests Direct Matrix Abstraction Program (DMAP) sequence of a Rigid Format\r\nto be changed by additions, deletions, or substitutions.\r\n\r\nFormat and Example(s)\r\n\r\n              \r\nALTER K1 [,K2] $\r\n              \r\n\r\nALTER 22 $\r\n\r\nALTER 5,5 $\r\n\r\nALTER 38,45 $\r\n\r\nALTER 25,19 $\r\n\r\nOption     Meaning\r\n\r\nK1 only    DMAP statement number (Integer > 0) after which DMAP instructions\r\n\t   following the ALTER card to be inserted.\r\n\r\nK1 and K2  DMAP statement numbers (Integer > 0) identifying a single DMAP\r\n\t   statement or a range of DMAP statements to be deleted and replaced  \r\n\t   by any DMAP instructions that may follow the ALTER card.  See remark\r\n\t   5.\r\n\r\nRemarks\r\n\r\n1. See the descriptions of the INSERT and DELETE cards for alternateways of \r\n   specifying DMAP sequence alteration requests.\r\n\r\n2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either \r\n   explicitly or implicitly, when a range is specified) must be referenced in \r\n   ascending order of their occurrence in the rigid format DMAP.\r\n\r\n3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP\r\n   sequences.\r\n\r\n4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled\r\n   restarts.\r\n\r\n5. If both K1 and K2 are specified and K1 is not equal to K2, a range of DMAP\r\n   statements is implied and either of them can be less than the other.  If \r\n   K1 = K2, a single DMAP statement is implied.\r\n=PAGE=\r\nAPP - Rigid Format or DMAP Declaration\r\n\r\nDescription\r\n\r\nSelects a Rigid Format approach or a user provided Direct Matrix Abstraction\r\nProgram (DMAP).\r\n\r\nFormat and Example(s)\r\n\r\n                         \r\n      DISPLACEMENT          (Default)\r\n      DISPLACEMENT, SUBS \r\nAPP   HEAT               \r\n      AERO               \r\n      DMAP               \r\n      DMAP, SUBS         \r\n                         \r\n\r\nAPP HEAT\r\n\r\nAPP DMAP\r\n\r\nOption     Meaning\r\n\r\nDISPLACEMENT  Indicates one of the Displacement Approach rigid formats.\r\n\r\nDISPLACEMENT, SUBS  Indicates automated multi-stage substructuring with one of\r\n\t   the Displacement Approach rigid formats.\r\n\r\nHEAT       Indicates one of the heat transfer approach rigid formats.\r\n\r\nAERO       Indicates one of the aeroelastic approach rigid formats.\r\n\r\nDMAP       Indicates Direct Matrix Abstraction Program (DMAP) approach.\r\n\r\nDMAP, SUBS Indicates Direct Matrix Abstraction Program (DMAP) approach which\r\n\t   includes automated multi-stage substructuring modules.\r\n\r\nRemarks\r\n\r\n1. Use of this card is recommended. Default is DISPLACEMENT.\r\n=PAGE=\r\nBEGIN - DMAP Sequence Initiation\r\n\r\nDescription\r\n\r\nDefines the beginning of a Direct Matrix Abstraction Program (DMAP) sequence.\r\n\r\nFormat and Example(s)\r\n\r\nBEGIN $\r\n\r\nBEGIN OPTIONAL NAME OF DMAP SEQUENCE $\r\n\r\nRemarks\r\n\r\n1. This card is required at the beginning of a DMAP sequence. It must be the\r\n   first card. The statement is included at the beginning of the DMAP sequence\r\n   defining a Rigid Format. You must provide the card as part of a user\r\n   supplied DMAP sequence when using the DMAP approach.\r\n\r\n2. This statement, like all DMAP statements, is terminated with the $\r\n   character delimiter.\r\n\r\n3. This statement is a non-executable instruction for the DMAP compiler. (See\r\n   Section 5.7 for an alternate module XDMAP.)\r\n\r\n4. For specific instructions related to DMAP usage, see Section 5.2.\r\n=PAGE=\r\nCEND - Executive Control Deck Terminator\r\n\r\nDescription\r\n\r\nDefines the end of the Executive Control Deck.\r\n\r\nFormat and Example(s)\r\n\r\nCEND\r\n\r\nRemarks\r\n\r\n1. This card is mandatory and must be last in the Executive Control Deck.\r\n=PAGE=\r\nCHKPNT - Checkpoint File Request\r\n\r\nDescription\r\n\r\nRequests data blocks to be written to a checkpoint file for a later restart.\r\n\r\nFormat and Example(s)\r\n\r\n            \r\n        NO  \r\nCHKPNT  YES \r\n            \r\n\r\nCHKPNT YES\r\n\r\nRemarks\r\n\r\n1. This card is optional but when it is used, the checkpoint file must be made\r\n   available by you via operating system control cards.\r\n\r\n2. The restart dictionary deck is automatically punched for use in a later\r\n   restart execution.\r\n=PAGE=\r\nDELETE - DMAP SEQUENCE ALTERATION REQUEST\r\n\r\nDescription\r\n\r\nRequests the Direct Matrix Abstraction Program (DMAP) sequence of a rigid \r\nformat to be changed by deletions or substitutions.\r\n\r\n\r\nFormat and Example(s)\r\n\r\nDELETE specmod  [ , specmod  ] $\r\n\t      1            2\r\n\r\n    where specmod  has the following general form:\r\n\t\t i\r\n\r\n\t    nommod  [ ( r  ) ] [ , n  ]\r\n\t\t  i      i          i\r\n\r\nDELETE SSG1 $\r\n\r\nDELETE EMA(2) $\r\n\r\nDELETE READ,1 $\r\n\r\nDELETE SDR2(2),-1 $\r\n\r\nDELETE SSG3,REPT $\r\n\r\nDELETE GP2,GP3,-1 $\r\n\r\nDELETE SMA3,1,TA1,-1 $\r\n\r\nDELETE REPT,2,REPT,3 $\r\n\r\n\r\nOption\r\n\r\nnommod          Nominal module (Alphanumeric value, no default). See Remark 5.\r\n      i\r\n\r\n.                                                                 th\r\nr               Occurrence flag (Integer > 0, default = 1).  The r\r\n i                                                                i\r\n\t\toccurrence of the nominal module in the rigid format DMAP\r\n\t\tsequence (counting from the beginning of the DMAP sequence)\r\n\t\tdefines the reference module.  See Remark 6.\r\n\r\nn               Offset flag (Integer, default = 0).  The DMAP module that is \r\n i\r\n\t\toffset from the reference module by n  DMAP statements in the\r\n.                                                    i\r\n\t\trigid format DMAP sequence defines the specified module.  See\r\n\t\tRemark 7.\r\n\r\nspecmod  only   Specified module defined as per the above scheme that is to be \r\n       1\r\n\t\tdeleted and replaced by any DMAP instructions that may follow\r\n\t\tthe DELETE card.\r\n\r\nspecmod  and    Range of specified modules defined as per the above scheme \r\n       1\r\nspecmod         that are to be deleted and replaced by any DMAP instructions \r\n       2\r\n\t\tthat may follow the DELETE card.  See Remark 8.\r\n\r\n\r\nRemarks\r\n\r\n1. See the description of the ALTER card for an alternate way of specifying \r\n   DMAP sequence deletions and substitutions.\r\n\r\n2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either \r\n   explicitly or implicitly, when a range is specified) must be referenced in \r\n   ascending order of their occurrence in the rigid format DMAP.\r\n\r\n3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP \r\n   sequences.\r\n\r\n4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled \r\n   in restarts.\r\n\r\n5. The nominal module nommod  must be a valid name of a DMAP module in the \r\n\t\t\t    i\r\n   rigid format DMAP sequence.\r\n\r\n6. The default value of 1 for the occurrence flag r  implies that the \r\n.                                                  i\r\n   reference module is the first occurrence of the nominal module in the rigid \r\n   format DMAP sequence.\r\n\r\n7. The value of the offset flag n  may be positive, negative or 0.  A positive \r\n\t\t\t\t i\r\n   value means that the specified module follows the reference module by n  \r\n.                                                                         i\r\n   DMAP statements in the rigid format DMAP sequence.  A negative value \r\n   indicates that the specified module precedes the reference module by n  \r\n.                                                                        i\r\n   DMAP statements in the DMAP sequence.  A value of 0 (the default) implies \r\n   that the reference module is the specified module.\r\n\r\n8. If both specmod  and specmod  are specified, it implies a range of DMAP \r\n\t\t  1            2\r\n   statements and either of them can precede the other in the rigid format \r\n   DMAP sequence.\r\n=PAGE=\r\nDIAG - Diagnostic Output and Operation Request\r\n\r\nDescription\r\n\r\nRequests additional information to be printed out or requests executive\r\noperations to be performed.\r\n\r\nFormat and Example(s)\r\n\r\n               \r\nDIAG  n  , - L \r\n               \r\n\r\nDIAG 14\r\n\r\nDIAG 8,11,13,-6,-11\r\n\r\nOption     Meaning\r\n\r\nn          Type of diagnostic requested (Integer > 0). Allowable values and\r\n\t   their meanings are given in the following table. See Remarks 1 and\r\n\t   2.\r\n\r\nL          Link number in which specified types of diagnostics are requested\r\n\t   (1 <= Integer <= 15). See Remarks 2 and 7.\r\n\r\n-L         See Remark 7 below.\r\n\r\n\t   n     Diagnostic\r\n\r\n\t   1     Dump memory when fatal message is generated.\r\n\r\n\t   2     Print File Allocation Table (FIAT) following each call to\r\n\t\t the File Allocator.\r\n\r\n\t   3     Print status of the Data Pool Dictionary (DPD) following\r\n\t\t each call to the Data Pool Housekeeper.\r\n\r\n\t   4     Print the Operation Sequence Control Array (OSCAR). See\r\n\t\t Remarks 3 and 7.\r\n\r\n\t   5     Print BEGIN time on-line for each functional module.\r\n\r\n\t   6     Print END time on-line for each functional module.\r\n\r\n\t   7     Print eigenvalue extraction diagnostics for real and complex\r\n\t\t determinant methods.\r\n\r\n\t   8     Print matrix and table data block trailers as they are\r\n\t\t generated.\r\n\r\n\t   9     Suppress echo of checkpoint dictionary. See Remark 7.\r\n\r\n\t   10    Use alternate nonlinear loading in TRD. Replace N(n+1) by\r\n\t\t 1/3 (N(n+1) + N(n) + N(n-1)). See Section 11.4 of the\r\n\t\t Theoretical Manual.\r\n\r\n\t   11    Print all active row and column possibilities for\r\n\t\t decomposition algorithms.\r\n\r\n\t   12    Print eigenvalue extraction diagnostics for complex inverse\r\n\t\t power or FEER methods.\r\n\r\n\t   13    Print open core length.\r\n\r\n\t   14*   Print the DMAP sequence that is compiled (NASTRAN SOURCE\r\n\t\t PROGRAM COMPILATION). See Remarks 3, 4, 5, and 7.\r\n\r\n\t   15    Trace GINO OPEN/CLOSE operations.\r\n\r\n\t   16    Trace real inverse power eigenvalue extraction operations or\r\n\t\t eigensolution diagnostics for FEER tridiagonalization.\r\n\r\n\t   17*   Punch the DMAP sequence that is compiled. See Remarks 3, 6,\r\n\t\t and 7.\r\n\r\n\t   18    Trace Heat Transfer iterations (APP HEAT) or print grid\r\n\t\t point ID conversions from SET2 card (APP AERO).\r\n\r\n\t   19    Print data for MPYAD method selection.\r\n\r\n\t   20    Generate debug printout (for NASTRAN programmers who include\r\n\t\t CALL BUG in their subroutines) or set job termination flag.\r\n\t\t See Remark 6.\r\n\r\n\t   21*   Print a list of degrees of freedom. For each degree of\r\n\t\t freedom, the displacement sets to which it belongs are\r\n\t\t identified. See Remark 6.\r\n\r\n\t   22*   Print the contents of various displacement sets. For each\r\n\t\t set, a list of degrees of freedom belonging to that set is\r\n\t\t given. See Remark 6.\r\n\r\n\t   23    Print the DMAP ALTERs generated during Automated Multi-stage\r\n\t\t Substructuring. See Remark 7.\r\n\r\n\t   24*   Punch the DMAP ALTERs generated during Automated Multi-stage\r\n\t\t Substructuring. See Remarks 6 and 7.\r\n\r\n\t   25*   Print a cross reference listing of the DMAP program that is\r\n\t\t compiled. See Remarks 3, 4, 6, and 7.\r\n\r\n\t   26    Do not limit eigensolutions to number requested on the EIGR\r\n\t\t bulk data card (for real inverse power and FEER methods\r\n\t\t only), and revert plot FIND default to APR 1984 version.\r\n\r\n\t   27    Dump the Input File Processor (IFP) table.\r\n\r\n\t   28*   Punch the FORTRAN code for the link specification table\r\n\t\t (subroutine XLNKDD). See Remarks 6, 7, and 8.\r\n\r\n\t   29    Process the link specification table update deck. See\r\n\t\t Remarks 7 and 8.\r\n\r\n\t   30*   Punch FORTRAN alters to the XSEMi decks (i set via DIAG\r\n\t\t 1-15). See Remarks 6, 7, and 8.\r\n\r\n\t   31    Print the link specification table and the module properties\r\n\t\t list data. See Remarks 7 and 8.\r\n\r\n\t   32    Print a list of degrees of freedom (including fluid point\r\n\t\t definitions). For each degree of freedom, the displacements\r\n\t\t sets to which it belongs are identified.\r\n\r\n\t   33    Print the contents of various displacement sets. For each\r\n\t\t set, a list of degrees of freedom (including fluid point\r\n\t\t definitions) belonging to that set is given.\r\n\r\n\t   34    Skip property ID, material ID, and coordinate ID cross\r\n\t\t reference checking in the Preface of Link 1.\r\n\r\n\t   35    Print machine hardware timing constants. (See NASTRAN\r\n\t\t BULKDATA = -3 option.)\r\n\r\n\t   36*   Print internal and SIL (Scalar Index List) numbers for grid\r\n\t\t and scalar points vs. their external numbers. See Remark 6.\r\n\r\n\t   37    Suppress eigenvalue lower roots message (for real inverse\r\n\t\t power and FEER methods only).\r\n\r\n\t   38    Print element processing information during element matrix\r\n\t\t generation phase.\r\n\r\n\t   39    Print trace of eigenvalues for the PK method in flutter\r\n\t\t analysis.\r\n\r\n\t   40    Turn on diagnostic when layer composite material is used in\r\n\t\t PCOMP or PCOMPi cards.\r\n\r\n\t   41    Reserved for future use.\r\n\r\n\t   42    Invoke NASTRAN former input card processors, XSORT and\r\n\t\t RCARD, to process bulk data cards. (Much slower processors.)\r\n\r\n\t   43    Use FEER method from previous 1994 Release.\r\n\r\n\t   44    Use Symmetric Decomposition from previous 1994 Release.\r\n\r\n\t   45    Request diagnostic information in LOG file for Symmetric\r\n\t\t Decomposition installed in 1995 Release.\r\n\r\n\t   46    Use Forward/Backward Substitution from previous 1994 Release.\r\n\r\n\t   47    Request diagnostic information in LOG file for Forward/\r\n\t\t Backward Substitution installed in 1995 Release.\r\n\r\n\t   48*   Print NASTRAN release news and the DIAG table. See Remark 6.\r\n\r\n\t   49    Use Matrix Multiply/Add methods from previous 1994 Release.\r\n\r\n\t   50    Eliminate the use of the Vector Facility (IBM MVS only)\r\n\r\nRemarks\r\n\r\n1. One or more diagnostics may be chosen from the above table.\r\n\r\n2. Multiple options may be selected by using multiple integers separated by\r\n   commas or by using multiple DIAG cards.\r\n\r\n3. See the description of the XDMAP card in Section 5.7 for alternate means of\r\n   controlling the DMAP compiler options.\r\n\r\n4. DIAG 14 is automatically turned on when DIAG 25 is requested.\r\n\r\n5. The DMAP compiler default is set to LIST for restart runs and for runs\r\n   using the DMAP approach (APP DMAP) or the substructure capability (APP\r\n   DISP,SUBS). The default is also set to LIST when the REF option on the\r\n   XDMAP card is specified. The default is set to NOLIST for all other cases.\r\n   (See the description of the XDMAP card in Section 5.7.) There is,\r\n   therefore, no need to use the DIAG 14 option in the former cases where LIST\r\n   is the default; instead, the NOLIST option on the XDMAP card can be used in\r\n   these cases to suppress the automatic listing of the compiled DMAP program.\r\n\r\n6. Use of any one or more of DIAGs 17, 21, 22, 24, 25, 28, 30, 36 and 48,\r\n   (marked by *) in conjunction with DIAG 20, will result in job termination.\r\n\r\n7. Use of DIAGs of the form\r\n\r\n   DIAG -L, n1, n2, n3\r\n\r\n   will cause the specified n1, n2, and n3 DIAGs to be turned on only in Link\r\n   L (L = 1, 2, ..., 15). (DIAGs 4, 9, 14, 17, 23-25, and 28-31 are valid and\r\n   meaningful only in the Preface (Link 1) and are not affected by this\r\n   usage.)\r\n\r\n   Thus, for example, the use of\r\n\r\n   DIAG 4, 8, 15, -2, -11\r\n\r\n   will cause DIAG 4 to be turned on normally (for use in Link 1), and DIAGs 8\r\n   and 15 to be turned on only in Links 2 and 11.\r\n\r\n   Similarly, the use of\r\n\r\n   DIAG -1, 2, 8, -6\r\n\r\n   will cause DIAGs 2 and 8 to be turned on only in Links 1 and 6.\r\n\r\n8. Refer to Section 6.11.3 of the Programmer's Manual for the description and\r\n   usage of DIAGs 28 through 31.\r\n=PAGE=\r\nEND - DMAP Sequence Terminator\r\n\r\nDescription\r\n\r\nDefines the end of a Direct Matrix Abstraction Program (DMAP) sequence.\r\n\r\nFormat and Example(s)\r\n\r\nEND$\r\n\r\nRemarks\r\n\r\n1. This card is required at the end of a DMAP sequence. It must be the last\r\n   card. The statement is included at the end of the DMAP sequence defining a\r\n   Rigid Format. You must provide the card as part of a user supplied DMAP\r\n   sequence when using the DMAP approach.\r\n\r\n2. This statement, like all DMAP statements, is terminated with the $\r\n   character delimiter.\r\n\r\n3. For specific instructions related to DMAP usage, see Section 5.2.\r\n\r\n4. The END $ statement cannot be altered into a Rigid Format at intermediate\r\n   steps. To schedule an early termination, use either the EXIT $ statement or\r\n   the JUMP, FINIS $ statement.\r\n=PAGE=\r\nENDALTER - Rigid Format DMAP Alter Terminator\r\n\r\nDescription\r\n\r\nDefines the end of a user supplied alter to a Rigid Format Direct Matrix\r\nAbstraction Program (DMAP) sequence.\r\n\r\nFormat and Example(s)\r\n\r\nENDALTER\r\n\r\nRemarks\r\n\r\n1. This card is required when an alter to a Rigid Format DMAP sequence is\r\n   supplied.\r\n\r\n2. The card is required only once but must be the last card for all alters.\r\n\r\n3. For specific instructions related to DMAP usage, see Section 5.2.\r\n=PAGE=\r\nID - Job Identification\r\n\r\nDescription\r\n\r\nProvides an alphanumeric identification of the job and establishes the\r\nbeginning of the Executive Control Deck.\r\n\r\nFormat and Example(s)\r\n\r\n         \r\nID  A1,A2\r\n         \r\n\r\nID   A1234567,B7654321\r\n\r\nOption     Meaning\r\n\r\nA1         Any alphanumeric field chosen by you for identification.\r\n\r\nA2         Any alphanumeric field chosen by you for identification.\r\n\r\nRemarks\r\n\r\n1. This card is mandatory and must be first in the Executive Control Deck.\r\n\r\n2. The ID used during a checkpoint is automatically written to the checkpoint\r\n   file and is placed on the restart card.\r\n\r\n3. The first character of each field must be alphabetic and may be followed by\r\n   up to seven alphanumeric characters.\r\n=PAGE=\r\nINSERT - DMAP SEQUENCE ALTERATION REQUEST\r\n\r\nDescription\r\n\r\nRequests the Direct Matrix Abstraction Program (DMAP) sequence of a rigid \r\nformat to be changed by additions.\r\n\r\n\r\nFormat and Example(s)\r\n\r\nINSERT specmod $\r\n\r\n\twhere specmod has the following general form:\r\n\r\n\t\tnommod [ ( r ) ] [ , n ]\r\n\r\nINSERT GP4 $\r\n\r\nINSERT EMA(2) $\r\n\r\nINSERT READ,1 $\r\n\r\nINSERT SDR2(2),-1 $\r\n\r\n\r\nOption\r\n\r\nnommod          Nominal module (Alphanumeric value, no default). See Remark 5.\r\n\r\n.                                                                 th\r\nr               Occurrence flag (Integer > 0, default = 1).  The r   \r\n\t\toccurrence of the nominal module in the rigid format DMAP\r\n\t\tsequence (counting from the beginning of the DMAP sequence)\r\n\t\tdefines the reference module.  See Remark 6.\r\n\r\nn               Offset flag (Integer, default = 0).  The DMAP module that is \r\n\t\toffset from the reference module by n DMAP statements in the\r\n\t\trigid format DMAP sequence defines the specified module.  See\r\n\t\tRemark 7.\r\n\r\nspecmod         Specified module defined as per the above scheme after which \r\n\t\tDMAP statements following the INSERT card are to be inserted.\r\n\r\n\r\nRemarks\r\n\r\n1. See the description of the ALTER card for an alternate way of specifying \r\n   DMAP sequence additions.\r\n\r\n2. The DMAP statements referenced on ALTER, INSERT and DELETE cards (either \r\n   explicitly or implicitly, when a range is specified) must be referenced in \r\n   ascending order of their occurrence in the rigid format DMAP.\r\n\r\n3. See Volume 2, Sections 2, 3 and 4 for the listings of all rigid format DMAP \r\n   sequences.\r\n\r\n4. See Volume 2, Section 1.1.5 for the manner in which DMAP alters are handled \r\n   in restarts.\r\n\r\n5. The nominal module nommod must be a valid name of a DMAP module in the \r\n   rigid format DMAP sequence.\r\n\r\n6. The default value of 1 for the occurrence flag r implies that the reference \r\n   module is the first occurrence of the nominal module in the rigid format \r\n   DMAP sequence.\r\n\r\n7. The value of the offset flag n may be positive, negative or 0.  A positive \r\n   value means that the specified module follows the reference module by n \r\n   DMAP statements in the rigid format DMAP sequence.  A negative value \r\n   indicates that the specified module precedes the reference module by n DMAP \r\n   statements in the DMAP sequence.  A value of 0 (the default) implies that \r\n   the reference module is the specified module.\r\n=PAGE=\r\nNUMF - New User Master File Declaration\r\n\r\nDescription\r\n\r\nDefines a bulk data deck to be placed on a User Master File.\r\n\r\nFormat and Example(s)\r\n\r\n             \r\nNUMF tid, pid\r\n             \r\n\r\nNUMF 20012,6\r\n\r\nNUMF 150,0\r\n\r\nOption     Meaning\r\n\r\ntid        User specified tape identification number assigned during the\r\n\t   creation of a User's Master File.\r\n\r\npid        User specified problem identification number assigned during the\r\n\t   creation of a User's Master File.\r\n\r\nRemarks\r\n\r\n1. This card is required when the UMF Editor is in the write mode.\r\n\r\n2. For specific instructions related to the UMF, see Section 2.5.\r\n\r\n3. A DIAG 42 card is needed for UMF operation.\r\n=PAGE=\r\nREADFILE - Directive to Read Input Cards\r\n\r\nDescription\r\n\r\nDefines a file that contains the input cards.\r\n\r\nFormat and Example(s)\r\n\r\n\t           Ŀ\r\n\t             \r\n\t   ,NOPRINT, \r\nREADFILE   ,NOPRINT    [ = ]  filename\r\n\t   (NOPRINT) \r\n\t           \r\n\r\nREADFILE  ABC\r\nREADFILE  NOPRINT  ABC\r\nREADFILE, NOPRINT  ABC\r\nREADFILE, NOPRINT, ABC\r\nREADFILE (NOPRINT) ABC\r\nREADFILE  = ABC\r\nREADFILE  NOPRINT  = ABC\r\nREADFILE, NOPRINT  = ABC\r\nREADFILE (NOPRINT) = ABC\r\n\r\nRemarks\r\n\r\n1. This card can be used in Executive, Case Control, and Bulk Data Decks.\r\n\r\n2. Input cards are saved in the file named filename.\r\n\r\n3. Comma, equal sign, and parentheses are not allowed in filename.\r\n\r\n4. NOPRINT allows reading in the input cards, such as the DMAP alters or\r\n   restart dictionary, without printing them out. The default is to print\r\n   them.\r\n\r\n5. Since this card can also be used in the Case Control Deck, an equal sign is\r\n   also allowed.\r\n\r\n6. Nested READFILE is allowed.\r\n\r\n7. See Sections 2.0.2.1 and 2.0.2.2 for more information.\r\n=PAGE=\r\nRESTART - Restart Dictionary Initiator\r\n\r\nDescription\r\n\r\nDefines the beginning of a restart dictionary deck when reading data blocks\r\nfrom the previously checkpointed file.\r\n\r\nFormat and Example(s)\r\n\r\n\t                  \r\nRESTART A1,A2,K1/K2/K3,K4,\r\n\t                  \r\n\r\nRESTART A1234567,B7654321,03/01/76,32400,\r\n\r\nOption     Meaning\r\n\r\nA1, A2     Fields taken from ID card of previously checkpointed problem.\r\n\r\nK1/K2/K3   Month/day/year that problem tape was generated.\r\n\r\nK4         Number of seconds after midnight at which XCSA begins execution.\r\n\r\nRemarks\r\n\r\n1. The complete restart dictionary consists of this card followed by one card\r\n   for each file checkpointed. The restart dictionary is automatically punched\r\n   when operating in the checkpoint mode. All subsequent cards are\r\n   continuations of this logical card. The entire dictionary deck is required\r\n   for a restart.\r\n\r\n2. Each continuation card begins with a sequence number. There are two types\r\n   of continuation cards which are required and one that is not.\r\n\r\n   Basic continuation card:\r\n\r\n   NO,DATABLOCK,FLAG=Y,REEL=Z,FILE=W\r\n\r\n   where:\r\n\r\n   NO is the sequence number of the card. The entire dictionary must be in\r\n   sequence by this number.\r\n\r\n   DATABLOCK is the name of the data block referenced by this card.\r\n\r\n   FLAG=Y defines the status of the data block where Y = 0 is the normal case\r\n   and Y = 4 implies this data block is equivalenced to another data block. In\r\n   this case (FLAG=4) the file number points to a previous data block which is\r\n   the 'actual' copy of the data.\r\n\r\n   REEL=Z specifies the reel number as the Problem Tape can be a multi-reel\r\n   tape. Z = 1 is the normal case.\r\n\r\n   FILE=W specifies the GINO (internal) file number of the data block on the\r\n   Problem Tape. A zero value indicates the data block is purged. For example:\r\n\r\n      1,GPL,FLAGS=0,REEL=1,FILE=7 says data block GPL occupies file 7 of reel\r\n      1.\r\n\r\n      2,KGG,FLAGS=4,REEL=1,FILE=20 says KGG is equivalenced to the data block\r\n      which occupies file 20. (Note that FLAGS=4 cards usually occur in at\r\n      least pairs as the equivalenced operation is at least binary).\r\n\r\n      3,USETD,FLAGS=0,REEL=1,FILE=0 implies USETD is purged.\r\n\r\n   Reentry point card:\r\n\r\n   NO,REENTER AT DMAP SEQUENCE NUMBER N\r\n\r\n   where:\r\n\r\n   NO is the sequence number of the card.\r\n\r\n   N is the sequence number associated with the DMAP instruction at which an\r\n   unmodified restart will resume execution. There may be (generally, there\r\n   are) several reentry cards in a restart dictionary, but only the last such\r\n   card is operative. (See Sections 2.1.3 and 2.1.4 in Volume II.)\r\n\r\n   End of dictionary card:\r\n\r\n   $ END OF CHECKPOINT DICTIONARY\r\n\r\n   This card is simply a comment card but is punched to signal the end of the\r\n   dictionary for your convenience. The program does not need such a card.\r\n   Terminations associated with non-NASTRAN failures (operator intervention,\r\n   maximum time, etc.) will not have a card punched.\r\n\r\n3. The previously checkpointed file must be made available by you via\r\n   operating system control cards.\r\n\r\n4. A restart card of the form\r\n\r\n   RESTART A1,A2, 0/0/0, 0\r\n\r\n   can be used to read and process the Old Problem Tape (OPTP) of any\r\n   previously checkpointed problem whose ID card fields match the A1,A2 fields\r\n   on this card.\r\n\r\n5. A restart using the checkpointed file and dictionary created on a previous\r\n   release of NASTRAN may not always be successful. First, the BUFFSIZE (the\r\n   number of words in a GINO buffer; see Section 2.1) used on the later\r\n   release may be different from that used on the earlier release. Second, any\r\n   changes that might have been made to the rigid formats may effectively\r\n   destroy the validity of the restart dictionary.\r\n\r\n6. See Sections 1.1.3, 1.1.4, and 1.1.5 in Volume II for a detailed discussion\r\n   of restarts.\r\n=PAGE=\r\nSOL - Solution Number Selection\r\n\r\nDescription\r\n\r\nSelects the solution number which defines the Rigid Format.\r\n\r\nFormat and Example(s)\r\n\r\n              \r\nSOL  K1  , 0  \r\n     A     K2 \r\n              ټ\r\n\r\nSOL 5\r\nSOL 1,6\r\nSOL 1,6,7,8,9\r\nSOL STEADY STATE\r\n\r\nOption     Meaning\r\n\r\nK1         Solution number of Rigid Format (see Remarks below and Volume II).\r\n\r\nK2         Subset numbers for solution K1, default value = 0.\r\n\r\nA          Name of Rigid Format (see Remarks below).\r\n\r\nRemarks\r\n\r\n1. When a Direct Matrix Abstraction Program (DMAP) is not used, the solution\r\n   is recommended and the subset associated with a solution is optional.\r\n   (Default is 1,0.)\r\n\r\n2. For Displacement Approach Rigid Formats, the integer value for K1 or the\r\n   alphabetic characters for A must be selected from the following table:\r\n\r\n   K1   A\r\n\r\n    1   STATICS (Default)\r\n    2   INERTIA RELIEF\r\n    3   MODES or NORMAL MODES or REAL EIGENVALUES\r\n    4   DIFFERENTIAL STIFFNESS\r\n    5   BUCKLING\r\n    6   PIECEWISE LINEAR\r\n    7   DIRECT COMPLEX EIGENVALUES\r\n    8   DIRECT FREQUENCY RESPONSE\r\n    9   DIRECT TRANSIENT RESPONSE\r\n   10   MODAL COMPLEX EIGENVALUES\r\n   11   MODAL FREQUENCY RESPONSE\r\n   12   MODAL TRANSIENT RESPONSE\r\n   13   NORMAL MODES ANALYSIS WITH DIFFERENTIAL STIFFNESS\r\n   14   STATICS CYCLIC SYMMETRY\r\n   15   MODES CYCLIC SYMMETRY\r\n   16   STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS\r\n   17   DYNAMIC DESIGN ANALYSIS METHOD\r\n   18   DIRECT FORCED VIBRATION ANALYSIS\r\n   19   MODAL FORCED VIBRATION ANALYSIS\r\n\r\n3. For Heat Approach Rigid Formats, the integer value for K1 or the alphabetic\r\n   characters for A must be selected from the following table:\r\n\r\n   K1   A\r\n\r\n    1   STATICS\r\n    3   STEADY STATE\r\n    9   TRANSIENT\r\n\r\n4. For Aero Approach Rigid Formats, the integer value for K1 or the alphabetic\r\n   characters for A must be selected from the following table:\r\n\r\n   K1   A\r\n\r\n    9   BLADE CYCLIC MODAL FLUTTER ANALYSIS\r\n   10   MODAL FLUTTER ANALYSIS\r\n   11   MODAL AEROELASTIC RESPONSE\r\n\r\n5. Subsets cause a reduction in the number of statements in a Rigid Format.\r\n   The use of a subset is optional. The integer value(s) may be selected from\r\n   the following table:\r\n\r\n   K2   Subset Numbers\r\n\r\n    1   Delete loop control.\r\n    2   Delete mode acceleration method of data recovery (modal transient and\r\n\tmodal frequency response).\r\n    3   Combine subsets 1 and 2.\r\n    4   Check all structural and aerodynamic data without execution of the\r\n\taeroelastic problem.\r\n    5   Check only the aerodynamic data without execution of the aeroelastic\r\n\tproblem.\r\n    6   Not used.\r\n    7   Delete structure plotting and X-Y plotting.\r\n    8   Delete Grid Point Weight Generator.\r\n    9   Delete fully stressed design (static analysis).\r\n\r\n   Multiple subsets may be selected by using multiple integers separated by\r\n   commas.\r\n=PAGE=\r\nTIME - Maximum Execution Time Declaration\r\n\r\nDescription\r\n\r\nEstablishes the maximum time in minutes allotted to the execution of the\r\nNASTRAN program.\r\n\r\nFormat and Example(s)\r\n\r\n        \r\nTIME  n \r\n        \r\n\r\nTIME 5\r\nTIME 60\r\n\r\nOption     Meaning\r\n\r\nn          Integer number of minutes for execution.\r\n\r\nRemarks\r\n\r\n1. Use of this card is recommended. (Default is 5.)\r\n\r\n2. The time allotted via this card should be less than the time allotted the\r\n   entire execution via operating system declaration.\r\n=PAGE=\r\nUMF - User Master File Selection\r\n\r\nDescription\r\n\r\nSelects a bulk data deck stored on a User Master File.\r\n\r\nFormat and Example(s)\r\n\r\n            \r\nUMF tid, pid\r\n            \r\n\r\nUMF 20012,6\r\nUMF 150,0\r\n\r\nOption     Meaning\r\n\r\ntid        Previously assigned tape identification number to access a Bulk\r\n\t   Data Deck when using a User's Master File.\r\n\r\npid        Previously assigned problem identification number to access a Bulk\r\n\t   Data Deck when using a User's Master File.\r\n\r\nRemarks\r\n\r\n1. This card is required when the UMF Editor is in the read mode.\r\n\r\n2. For specific instructions related to the UMF, see Section 2.5.\r\n\r\n3. You must include a DIAG 42 card when UMF operation is requested.\r\n=PAGE=\r\nUMFEDIT - User Master File Editor Selection\r\n\r\nDescription\r\n\r\nSelects the UMF Editor and limits execution to the Preface only.\r\n\r\nFormat and Example(s)\r\n\r\nUMFEDIT\r\n\r\nRemarks\r\n\r\n1. This card is required to use the UMF Editor in a read or write mode.\r\n\r\n2. Selection of the UMF Editor automatically limits execution to the Preface\r\n   only; that is, no computations may be performed when the Editor is used.\r\n\r\n3. For specific instructions related to the UMF, see Section 2.5.\r\n\r\n4. You must include a DIAG 42 card when UMF operation is requested.\r\n=PAGE=\r\n$ - Comment Indicator\r\n\r\nDescription\r\n\r\nDeclares the character string is a non-executable comment.\r\n\r\nFormat and Example(s)\r\n\r\n                  \r\n$  any BCD string \r\n                  \r\n\r\n$ COMMENTS MAY APPEAR IN ANY COLUMNS\r\n\r\n$ SPECIAL CHARACTERS MAY BE INCLUDED ( ) + . /\r\n\r\nRemarks\r\n\r\n1. The $ character is a delimiter which allows comments to be written on the\r\n   same physical card.\r\n"
  },
  {
    "path": "um/INTR.TXT",
    "content": "=PAGE=\r\n   The User's Manual is one of four manuals that constitute the documentation\r\nfor NASTRAN, the other three being the Theoretical Manual, the Programmer's\r\nManual, and the Demonstration Problem Manual. Although the User's Manual\r\ncontains all of the information that is directly associated with the solution\r\nof problems with NASTRAN, you will find it desirable to refer to the other\r\nmanuals for assistance in the solution of specific  problems.\r\n\r\n   The Theoretical Manual gives an excellent introduction to NASTRAN and\r\npresents developments of the analytical and numerical procedures that underlie\r\nthe program. The User's Manual is instructive and encyclopedic in nature, but\r\nis restricted to those items related to the use of NASTRAN that are generally\r\nindependent of the computing system being used. Computer-dependent topics and\r\ninformation that is required for the maintenance and modification of the\r\nprogram are treated in the Programmer's Manual. The Programmer's Manual also\r\nprovides a complete description of the program, including the mathematical\r\nequations implemented in the code. The Demonstration Problem Manual presents a\r\ndiscussion of the sample problems delivered with NASTRAN, thereby illustrating\r\nthe formulation of the different types of problems that can be solved with\r\nNASTRAN. \r\n\r\n   In addition to the four manuals described above, there is also a NASTRAN\r\nUser's Guide that serves as a handbook for users. It describes all of the\r\nNASTRAN features and options and illustrates them by examples. Other excellent\r\nsources for NASTRAN-related topics are the proceedings of the NASTRAN Users'\r\nColloquia (held normally every year) which provide a large body of information\r\nbased on user experiences with NASTRAN. \r\n\r\n   The User's Manual has recently been completely revised and updated. The\r\nmaterial on rigid formats that was in Volume II has moved to the rigid format\r\nsource files as comments or, in the case of general information, back into\r\nthis single volume User's Manual as Section 3.\r\n\r\n   NASTRAN uses the finite element approach to structural modeling, wherein\r\nthe distributed physical properties of a structure are represented by a finite\r\nnumber of structural elements which are interconnected at a finite number of\r\ngrid points, to which loads are applied and for which displacements are\r\ncalculated. The procedures for defining and loading a structural model are\r\ndescribed in Section 1. This section contains a functional reference for every\r\ncard that is used for structural modeling. \r\n\r\n   The NASTRAN Data Deck, including the details for each of the data cards, is\r\ndescribed in Section 2. This section also discusses the NASTRAN control cards\r\nthat are associated with the use of the program. \r\n\r\n   Section 3 contains a general description of rigid format procedures.\r\nSpecific instructions and information for the use of each rigid format are\r\ngiven in comments included in each source file.\r\n\r\n   The procedures for using the NASTRAN plotting capability are described in\r\nSection 4. Both deformed and undeformed plots of the structural model are\r\navailable. Response curves are also available for static, transient response,\r\nfrequency response, modal flutter,and modal aeroelastic response analyses. \r\n\r\n   NASTRAN contains problem solution sequences, called rigid formats. Each of\r\nthese rigid formats is associated with the solution of problems for a\r\nparticular type of static or dynamic analysis. In addition to the rigid format\r\nprocedures, you may choose to write your own Direct Matrix Abstraction Program\r\n(DMAP). This procedure permits you to execute a series of matrix operations of\r\nhis choice along with any utility modules or executive operations that he may\r\nneed. The rules governing the creation of DMAP programs are described in\r\nSection 5. \r\n\r\n   The NASTRAN diagnostic messages are documented and explained in Section 6.\r\nThe NASTRAN Dictionary, in Section 7, contains descriptions of mnemonics,\r\nacronyms, phrases, and other commonly used NASTRAN terms. \r\n\r\n   There is a limited number of sample problems included in the User's Manual.\r\nHowever, a more comprehensive set of demonstration problems, at least one for\r\neach of the rigid formats, is described in the NASTRAN Demonstration Problem\r\nManual. The data decks are available on tape for each of the computer systems\r\non which NASTRAN has been implemented. Samples of the printer output and of\r\nstructure plots and response plots can be obtained by executing these\r\ndemonstration problems. The printer output for these problems is also\r\navailable on microfiche. \r\n=PAGE=\r\n1. STRUCTURAL MODELING\r\n\r\n1.1 INTRODUCTION\r\n\r\n1.2 GRID POINTS\r\n\r\n   1.2.1 Grid Point Definition\r\n\r\n   1.2.2 Grid Point Sequencing\r\n\r\n       1.2.2.1 Manual Grid Point Resequencing\r\n\r\n       1.2.2.2 Automatic Grid Point Resequencing Using the BANDIT Procedure\r\n\r\n           1.2.2.2.1 BANDIT Options\r\n\r\n           1.2.2.2.2 Cases for Which BANDIT Computations are Skipped\r\n\r\n           1.2.2.2.3 BANDIT in Restarts\r\n\r\n   1.2.3 Grid Point Properties\r\n\r\n1.3 STRUCTURAL ELEMENTS\r\n\r\n   1.3.1 Element Definition\r\n\r\n   1.3.2 Beam Elements\r\n\r\n       1.3.2.1 Simple Beam or Bar Element\r\n\r\n       1.3.2.2 Curved Beam or Elbow Element\r\n\r\n   1.3.3 Rod Element\r\n\r\n   1.3.4 Shear Panels and Twist Panels\r\n\r\n   1.3.5 Plate and Membrane Elements\r\n\r\n   1.3.6 Axisymmetric Shell Elements\r\n\r\n       1.3.6.1 Conical Shell (CONEAX) Element\r\n\r\n       1.3.6.2 Toroidal Ring (TORDRG) Element\r\n\r\n   1.3.7 Axisymmetric Solid Elements\r\n\r\n       1.3.7.1 TRIARG and TRAPRG Elements\r\n\r\n       1.3.7.2 TRIAAX and TRAPAX Elements\r\n\r\n       1.3.7.3 Data Processing for the CONEAX, TRAPAX, and TRIAAX\r\n               Axisymmetric Elements\r\n\r\n   1.3.8 Scalar Elements\r\n\r\n   1.3.9 Mass\r\n\r\n       1.3.9.1 Lumped Mass\r\n\r\n       1.3.9.2 Coupled Mass\r\n\r\n       1.3.9.3 Mass Input\r\n\r\n       1.3.9.4 Output from the Grid Point Weight Generator\r\n\r\n       1.3.9.5 Bulk Data Cards for Mass\r\n\r\n   1.3.10 Solid Polyhedron Elements\r\n\r\n   1.3.11 Isoparametric Solid Hexahedron Elements\r\n\r\n   1.3.12 Shallow Shell Element\r\n\r\n1.4 CONSTRAINTS AND PARTITIONING\r\n\r\n   1.4.1 Single-Point Constraints\r\n\r\n   1.4.2 Multipoint Constraints and Rigid Elements\r\n\r\n       1.4.2.1 Multipoint Constraints\r\n\r\n       1.4.2.2 Rigid Elements\r\n\r\n   1.4.3 Free Body Supports\r\n\r\n   1.4.4 Partitioning\r\n\r\n   1.4.5 The Nested Vector Set Concept Used to Represent Components of\r\n         Displacement\r\n\r\n1.5 APPLIED LOADS\r\n\r\n   1.5.1 Static Loads\r\n\r\n   1.5.2 Frequency-Dependent Loads\r\n\r\n   1.5.3 Time-Dependent Loads\r\n\r\n1.6 DYNAMIC MATRICES\r\n\r\n   1.6.1 Direct Formulation\r\n\r\n   1.6.2 Modal Formulation\r\n\r\n1.7 HYDROELASTIC MODELING\r\n\r\n   1.7.1 Axisymmetric Hydroelastic Modeling\r\n\r\n       1.7.1.1 Solution of the NASTRAN Fluid Model\r\n\r\n       1.7.1.2 Hydroelastic Input Data\r\n\r\n       1.7.1.3 Rigid Formats\r\n\r\n       1.7.1.4 Hydroelastic Data Processing\r\n\r\n   1.7.2 Three-Dimensional Hydroelastic Modeling\r\n\r\n       1.7.2.1 Solution Approach\r\n\r\n       1.7.2.2 Executive Control Deck\r\n\r\n       1.7.2.3 Case Control Deck\r\n\r\n       1.7.2.4 Bulk Data Deck\r\n\r\n1.8 HEAT TRANSFER PROBLEMS\r\n\r\n   1.8.1 Introduction to NASTRAN Heat Transfer\r\n\r\n   1.8.2 Heat Transfer Elements\r\n\r\n   1.8.3 Constraints and Partitioning\r\n\r\n   1.8.4 Thermal Loads\r\n\r\n   1.8.5 Linear Static Analysis\r\n\r\n   1.8.6 Nonlinear Static Analysis\r\n\r\n   1.8.7 Transient Analysis\r\n\r\n   1.8.8 Compatibility with Structural Analysis\r\n\r\n1.9 ACOUSTIC CAVITY MODELING\r\n\r\n   1.9.1 Data Card Functions\r\n\r\n   1.9.2 Assumptions and Limitations\r\n\r\n1.10 SUBSTRUCTURING\r\n\r\n   1.10.1 Manual Single-Stage Substructuring\r\n\r\n       1.10.1.1 Basic Manual Substructure Analysis\r\n\r\n       1.10.1.2 Loads and Boundary Conditions\r\n\r\n       1.10.1.3 Normal Modes Analysis\r\n\r\n       1.10.1.4 Dynamic Analysis\r\n\r\n       1.10.1.5 DMAP Loops for Phase 2\r\n\r\n       1.10.1.6 Identical Substructures\r\n\r\n   1.10.2 Automated Multi-Stage Substructuring\r\n\r\n       1.10.2.1 Basic Concepts\r\n\r\n       1.10.2.2 Substructure Operations and Control Functions\r\n\r\n       1.10.2.3 Input Data Checking and Interpretation of Output\r\n\r\n       1.10.2.4 Substructure Operating File (SOF)\r\n\r\n       1.10.2.5 The Case Control Deck for Automated Substructure Analyses\r\n\r\n       1.10.2.6 User Aids for Automated Substructure Analyses\r\n\r\n1.11 AEROELASTIC MODELING\r\n\r\n   1.11.1 Introduction\r\n\r\n   1.11.2 Aerodynamic Modeling\r\n\r\n       1.11.2.1 Doublet-Lattice Panels\r\n\r\n       1.11.2.2 Slender and Interference Bodies\r\n\r\n       1.11.2.3 Mach Box Theory\r\n\r\n       1.11.2.4 Strip Theory\r\n\r\n       1.11.2.5 Piston Theory\r\n\r\n   1.11.3 The Interconnection Between Structure and Aerodynamic Models\r\n\r\n   1.11.4 Modal Flutter Analysis\r\n\r\n   1.11.5 Modal Aeroelastic Response Analysis\r\n\r\n1.12 CYCLIC SYMMETRY\r\n\r\n1.13 FULLY STRESSED DESIGN\r\n\r\n1.14 THE CONGRUENT FEATURE\r\n\r\n   1.14.1 Introduction\r\n\r\n   1.14.2 Congruent Feature Usage\r\n\r\n   1.14.3 Factors Affecting Congruent Feature Efficiency\r\n\r\n   1.14.4 Examples of Congruent Feature Usage\r\n\r\n1.15 MAGNETIC FIELD PROBLEMS\r\n\r\n   1.15.1 Introduction\r\n\r\n   1.15.2 Theory\r\n\r\n   1.15.3 Prolate Spheroidal Harmonic Expansion\r\n\r\n   1.15.4 Input Data for Magnetostatic Analysis\r\n\r\n       1.15.4.1 NASTRAN Card\r\n\r\n       1.15.4.2 Executive Control Deck\r\n\r\n       1.15.4.3 Case Control Deck\r\n\r\n       1.15.4.4 Bulk Data Deck\r\n\r\n       1.15.4.5 Data Cards with Different Meanings\r\n\r\n       1.15.4.6 Output\r\n\r\n1.16 DYNAMIC DESIGN-ANALYSIS\r\n\r\n   1.16.1 Introduction\r\n\r\n   1.16.2 Theory\r\n\r\n   1.16.3 DDAM Implementation in NASTRAN\r\n\r\n       1.16.3.1 GENCOS\r\n\r\n       1.16.3.2 DDAMAT\r\n\r\n       1.16.3.3 GENPART\r\n\r\n       1.16.3.4 DESVEL\r\n\r\n       1.16.3.5 DDAMPG\r\n\r\n       1.16.3.6 CASEGEN\r\n\r\n       1.16.3.7 NRLSUM\r\n\r\n       1.16.3.8 COMBUGV\r\n\r\n   1.16.4 Input Data for DDAM\r\n\r\n       1.16.4.1 Executive Control Deck\r\n\r\n       1.16.4.2 Case Control Deck\r\n\r\n       1.16.4.3 Bulk Data Deck\r\n\r\n1.17 PIEZOELECTRIC MODELING\r\n\r\n   1.17.1 Introduction\r\n\r\n   1.17.2 Theory\r\n\r\n   1.17.3 Input Data for Piezoelectric Modeling\r\n\r\n       1.17.3.1 NASTRAN Card\r\n\r\n       1.17.3.2 Bulk Data Deck\r\n\r\n   1.17.4 Notes on Piezoelectric Modeling\r\n\r\n1.18 FORCED VIBRATION ANALYSIS OF ROTATING CYCLIC STRUCTURES AND TURBOSYSTEMS\r\n\r\n   1.18.1 Introduction\r\n\r\n   1.18.2 Problem Formulation\r\n\r\n   1.18.3 Coordinate Systems\r\n\r\n   1.18.4 Structural Modeling of Rotating Cyclic Structures and Turbosystems\r\n\r\n   1.18.5 Direct Forced Vibration Analysis of Rotating Cyclic Structures\r\n\r\n       1.18.5.1 Modeling Features\r\n\r\n       1.18.5.2 Executive Control Deck\r\n\r\n       1.18.5.3 Case Control Deck\r\n\r\n           1.18.5.3.1 Subcase Definitions\r\n\r\n           1.18.5.3.2 Other Data Selection Items\r\n\r\n       1.18.5.4 Bulk Data Deck\r\n\r\n           1.18.5.4.1 Bulk Data Parameters\r\n\r\n           1.18.5.4.2 Usage of Certain Bulk Data Cards\r\n\r\n   1.18.6 Modal Forced Vibration Analysis of Aerodynamically Excited\r\n          Turbosystems\r\n\r\n       1.18.6.1 Modeling Features\r\n\r\n       1.18.6.2 Executive Control Deck\r\n\r\n       1.18.6.3 Case Control Deck\r\n\r\n           1.18.6.3.1 Subcase Definitions\r\n\r\n           1.18.6.3.2 Other Data Selection Items\r\n\r\n       1.18.6.4 Bulk Data Deck\r\n\r\n           1.18.6.4.1 Bulk Data Parameters\r\n\r\n           1.18.6.4.2 Usage of Certain Bulk Data Cards\r\n\r\n1.19 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS OF AXIAL-FLOW COMPRESSORS\r\n\r\n   1.19.1 Introduction\r\n\r\n   1.19.2 Description of the Capability\r\n\r\n       1.19.2.1 Problem Definition\r\n\r\n       1.19.2.2 Problem Formulation\r\n\r\n       1.19.2.3 NASTRAN Implementation\r\n\r\n   1.19.3 Aerodynamic Modeling\r\n\r\n   1.19.4 Aerodynamic Input Data\r\n\r\n       1.19.4.1 Aerodynamic DTI Data Setup\r\n\r\n           1.19.4.1.1 Initial Directives\r\n\r\n           1.19.4.1.2 Analytic Meanline Blade Section\r\n\r\n           1.19.4.1.3 Aerodynamic Section\r\n\r\n       1.19.4.2 Aerodynamic DTI Data Item Definitions\r\n\r\n           1.19.4.2.1 Initial Directives\r\n\r\n           1.19.4.2.2 Analytic Meanline Blade Section\r\n\r\n           1.19.4.2.3 Aerodynamic Section\r\n\r\n   1.19.5 Aerodynamic Output Data\r\n\r\n       1.19.5.1 Analytic Meanline Blade Section\r\n\r\n       1.19.5.2 Aerodynamic Section\r\n\r\n           1.19.5.2.1 Normal Output\r\n\r\n           1.19.5.2.2 Diagnostic Output\r\n\r\n           1.19.5.2.3 Aerodynamic Load and Temperature Output\r\n\r\n1.20 MODAL FLUTTER ANALYSIS OF AXIAL-FLOW TURBOMACHINES AND ADVANCED\r\n     TURBOPROPELLERS\r\n\r\n   1.20.1 Introduction\r\n\r\n   1.20.2 Problem Formulation\r\n\r\n   1.20.3 NASTRAN Implementation\r\n\r\n   1.20.4 Usage of the Capability\r\n\r\n2. NASTRAN DATA DECK\r\n\r\n2.0 GENERAL DESCRIPTION OF DATA DECK\r\n\r\n   2.0.1 NASTRAN Data Deck\r\n\r\n   2.0.2 Usage of Secondary Input Files via the READFILE Capability\r\n\r\n       2.0.2.1 Description of the Capability\r\n\r\n       2.0.2.2 Examples of READFILE Capability Usage\r\n\r\n2.1 THE NASTRAN CARD\r\n\r\n2.2 EXECUTIVE CONTROL DECK\r\n\r\n   2.2.1 Control Selection\r\n\r\n   2.2.2 Executive Control Deck Examples\r\n\r\n   2.2.3 Executive Control Card Descriptions\r\n\r\n2.3 CASE CONTROL DECK\r\n\r\n   2.3.1 Data Selection\r\n\r\n   2.3.2 Output Selection\r\n\r\n   2.3.3 Subcase Definition\r\n\r\n   2.3.4 Case Control Card Descriptions\r\n\r\n2.4 BULK DATA DECK\r\n\r\n   2.4.1 Format of Bulk Data Cards\r\n\r\n       2.4.1.1 Fixed-Field Input\r\n\r\n       2.4.1.2 Free-Field Input\r\n\r\n           2.4.1.2.1 Free-Field Input Examples\r\n\r\n   2.4.2 Bulk Data Card Descriptions\r\n\r\n2.5 USER'S MASTER FILE\r\n\r\n   2.5.1 Use of User's Master File\r\n\r\n   2.5.2 Using the User's Master File Editor\r\n\r\n   2.5.3 Rules for the User's Master File Editor\r\n\r\n   2.5.4 Examples of User's Master File Editor Usage\r\n\r\n2.6 USER GENERATED INPUT\r\n\r\n   2.6.1 Utility Module INPUT Usage\r\n\r\n       2.6.1.1 Laplace Circuit\r\n\r\n       2.6.1.2 Rectangular Frame Made from BARs or RODs\r\n\r\n       2.6.1.3 Rectangular Plate Made from QUAD1s\r\n\r\n       2.6.1.4 Rectangular Plate Made from TRIA1s\r\n\r\n       2.6.1.5 N-Segment String\r\n\r\n       2.6.1.6 N-Cell Bar\r\n\r\n       2.6.1.7 Full Matrix with Optional Unit Load\r\n\r\n       2.6.1.8 N-Spoked Wheel Made from BAR Elements\r\n\r\n2.7 SUBSTRUCTURE CONTROL DECK\r\n\r\n   2.7.1 Commands and Their Execution\r\n\r\n   2.7.2 Interface with NASTRAN DMAP\r\n\r\n   2.7.3 Substructure Control Card Descriptions\r\n\r\n3. RIGID FORMATS\r\n\r\n3.1 GENERAL DESCRIPTION OF RIGID FORMATS\r\n\r\n   3.1.1 Input File Processor\r\n\r\n   3.1.2 Functional Modules and Supporting DMAP Operations\r\n\r\n   3.1.3 Checkpoint/Restart Procedures\r\n\r\n   3.1.4 Types of Restarts\r\n\r\n       3.1.4.1 Unmodified Restart\r\n\r\n       3.1.4.2 Modified Restart\r\n\r\n       3.1.4.3 Modified Restart with Rigid Format Switch\r\n\r\n   3.1.5 Use of DMAP ALTERs in Restarts\r\n\r\n   3.1.6 Rigid Format Output\r\n\r\n   3.1.7 Rigid Format Data Base\r\n\r\n       3.1.7.1 Design of the Data Base\r\n\r\n       3.1.7.2 Implementation of the Data Base\r\n\r\n       3.1.7.3 Usage of the Data Base\r\n\r\n       3.1.7.4 Development of User Rigid Formats\r\n\r\n       3.1.7.5 Usage of User-Developed Rigid Formats\r\n\r\n4. PLOTTING\r\n\r\n4.1 PLOTTING IN NASTRAN\r\n\r\n   4.1.1 Plot Frame Size and Character Size\r\n\r\n4.2 STRUCTURE PLOTTING\r\n\r\n   4.2.1 Structure Plotter Projections and Coordinate System\r\n\r\n       4.2.1.1 Orthographic Projection\r\n\r\n       4.2.1.2 Perspective Projection\r\n\r\n       4.2.1.3 Stereoscopic Projection\r\n\r\n   4.2.2 Structure Plot Request Packet Data\r\n\r\n       4.2.2.1 Summary of Data Cards\r\n\r\n       4.2.2.2 Plot Titles\r\n\r\n       4.2.2.3 Data Card Specification Rules and Format\r\n\r\n       4.2.2.4 Data Card Descriptions\r\n\r\n   4.2.3 Error Messages\r\n\r\n4.3 X-Y OUTPUT\r\n\r\n   4.3.1 X-Y Plotter Terminology\r\n\r\n   4.3.2 X-Y Output Request Packet Data\r\n\r\n       4.3.2.1 Summary of Data Cards\r\n\r\n       4.3.2.2 Tic Marks in Plots\r\n\r\n       4.3.2.3 Plot Titles\r\n\r\n       4.3.2.4 Data Card Specification Rules and Format\r\n\r\n       4.3.2.5 Data Card Descriptions\r\n\r\n4.4 NASTRAN GENERAL PURPOSE PLOTTER (NASTPLT) FILE\r\n\r\n   4.4.1 Description of the NASTPLT File\r\n\r\n   4.4.2 Description of the Plot Commands on the NASTPLT File\r\n\r\n5. DIRECT MATRIX ABSTRACTION\r\n\r\n5.1 INTRODUCTION\r\n\r\n5.2 DMAP RULES\r\n\r\n   5.2.1 DMAP Rules for Functional Module Instructions\r\n\r\n       5.2.1.1 Functional Module DMAP Statements\r\n\r\n       5.2.1.2 Functional Module Names\r\n\r\n       5.2.1.3 Functional Module Input Data Blocks\r\n\r\n       5.2.1.4 Functional Module Output Data Blocks\r\n\r\n       5.2.1.5 Functional Module Parameters\r\n\r\n       5.2.1.6 DMAP Compiler Options - The XDMAP Instruction\r\n\r\n       5.2.1.7 Extended Error Handling Facility\r\n\r\n   5.2.2 DMAP Rules for Executive Operation Instructions\r\n\r\n   5.2.3 Techniques and Examples of Executive Module Usage\r\n\r\n       5.2.3.1 The REPT and FILE Instructions\r\n\r\n       5.2.3.2 The EQUIV Instruction\r\n\r\n       5.2.3.3 The PURGE Instruction\r\n\r\n       5.2.3.4 The CHKPNT Instruction\r\n\r\n5.3 INDEX OF DMAP MODULE DESCRIPTIONS\r\n\r\n5.4 DMAP MATRIX OPERATION MODULES\r\n\r\n5.5 DMAP UTILITY MODULES\r\n\r\n5.6 DMAP USER MODULES\r\n\r\n5.7 DMAP EXECUTIVE OPERATION MODULES\r\n\r\n5.8 DMAP EXAMPLES\r\n\r\n   5.8.1 DMAP to Print Table and Matrix Data Blocks and Parameters\r\n\r\n   5.8.2 DMAP to Perform Matrix Operations\r\n\r\n   5.8.3 DMAP to Use the Structure Plotter to Generate Undeformed Plots of the\r\n         Structural Model\r\n\r\n   5.8.4 DMAP to Print Eigenvectors Associated with any of the Modal\r\n         Formulation Rigid Formats\r\n\r\n   5.8.5 DMAP Using a User-Written Module\r\n\r\n   5.8.6 DMAP ALTER Package for Using a User-Written Auxiliary Input File\r\n         Processor\r\n\r\n   5.8.7 DMAP to Perform Real Eigenvalue Analysis Using Direct Input Matrices\r\n\r\n   5.8.8 DMAP to Print and Plot a Topological Picture of Two Matrices\r\n\r\n   5.8.9 DMAP to Compute the r-th Power of a Matrix [Q]\r\n\r\n   5.8.10 Usage of UPARTN, VEC, and PARTN\r\n\r\n   5.8.11 DMAP to Perform Matrix Operations Using Conditional Logic\r\n\r\n5.9 AUTOMATIC SUBSTRUCTURE DMAP ALTERS\r\n\r\n   5.9.1 Index of Substructure DMAP ALTERs\r\n\r\n5.10 SUPPLEMENTARY FUNCTIONAL MODULES\r\n\r\n6. DIAGNOSTIC MESSAGES\r\n\r\n6.1 NASTRAN MESSAGES\r\n\r\n6.2 PREFACE MESSAGES\r\n\r\n6.3 EXECUTIVE MODULE MESSAGES\r\n\r\n6.4 FUNCTIONAL MODULE MESSAGES (2001 THROUGH 3000)\r\n\r\n6.5 FUNCTIONAL MODULE MESSAGES (3001 THROUGH 4000)\r\n\r\n6.6 FUNCTIONAL MODULE MESSAGES (4001 THROUGH 5000)\r\n\r\n6.7 FUNCTIONAL MODULE MESSAGES (5001 THROUGH 6000)\r\n\r\n6.8 FUNCTIONAL MODULE MESSAGES (6001 THROUGH 7000)\r\n\r\n6.9 FUNCTIONAL MODULE MESSAGES (7001 THROUGH 8000)\r\n\r\n6.10 FUNCTIONAL MODULE MESSAGES (8001 THROUGH 9000)\r\n\r\n7. NASTRAN DICTIONARY\r\n\r\n7.1 NASTRAN DICTIONARY\r\n\r\n=PAGE=\r\n1.1  INTRODUCTION\r\n\r\n   NASTRAN embodies a lumped element approach, wherein the distributed \r\nphysical properties of a structure are represented by a model consisting of a \r\nfinite number of idealized substructures or elements that are interconnected \r\nat a finite number of grid points, to which loads are applied. All input and \r\noutput data pertain to the idealized structural model. The major components in \r\nthe definition and loading of a structural model are indicated in Figure 1.1-\r\n1. \r\n\r\n   As indicated in Figure 1.1-1, the grid point definition forms the basic \r\nframework for the structural model. All other parts of the structural model \r\nare referenced either directly or indirectly to the grid points. \r\n\r\n   Two general types of grid points are used in defining the structural model. \r\nThey are: \r\n\r\n   1. Geometric grid point - a point in three-dimensional space at which three \r\n      components of translation and three components of rotation are defined. \r\n      The coordinates of each grid point are specified by you. \r\n\r\n   2. Scalar point - a point in vector space at which one degree of freedom is \r\n      defined. Scalar points can be coupled to geometric grid points by means \r\n      of scalar elements and by constraint relationships. \r\n\r\n   The structural element is a convenient means for specifying many of the \r\nproperties of the structure, including material properties, mass distribution, \r\nand some types of applied loads. In static analysis by the displacement \r\nmethod, stiffness properties are input exclusively by means of structural \r\nelements. Mass properties (used in the generation of gravity and inertia \r\nloads) are input either as properties of structural elements or as properties \r\nof grid points. In dynamic analysis, mass, damping, and stiffness properties \r\nmay be input either as the properties of structural elements or as the \r\nproperties of grid points (direct input matrices). \r\n\r\n   Structural elements are defined on connection cards by referencing grid \r\npoints, as indicated on Figure 1.1-1. In a few cases, all of the information \r\nrequired to generate the structural matrices for the element is given on the \r\nconnection card. In most cases the connection card refers to a property card, \r\non which the cross-sectional properties of the element are given. The property \r\ncard in turn refers to a material card which gives the material properties. If \r\nsome of the material properties are stress dependent or temperature dependent, \r\na further reference is made to tables for this information. \r\n\r\n   Various kinds of constraints can be applied to the grid points. Single-\r\npoint constraints are used to specify boundary conditions, including enforced \r\ndisplacements of grid points. Multipoint constraints and rigid elements are \r\nused to specify linear relationships among selected degrees of freedom. \r\nOmitted points are used as a tool in matrix partitioning and for reducing the \r\nnumber of degrees of freedom used in dynamic analysis. Free-body supports are \r\nused to remove stress-free motions in static analysis and to evaluate the \r\nfree-body inertia properties of the structural model. \r\n\r\n   Static loads may be applied to the structural model by concentrated loads \r\nat grid points, pressure loads on surfaces, or indirectly, by means of the \r\nmass and thermal expansion properties of structural elements or enforced \r\ndeformations of one-dimensional structural elements. Due to the great variety \r\nof possible sources for dynamic loading, only general forms of loads are \r\nprovided for use in dynamic analysis. \r\n\r\n   The following sections describe the general procedures for defining \r\nstructural models. Detailed instructions for each of the bulk data cards and \r\ncase control cards are given in Section 2. Additional information on the case \r\ncontrol cards and use of parameters is given for each rigid format in Section \r\n3. \r\n=PAGE=\r\n\r\nĿ         Ŀ         Ŀ\r\n       SEQGP                       CORDi                                  \r\n    Grid Point                  Coordinate                  Grid Point    \r\n     Sequence       Ŀ         System          Ĵ     Properties    \r\n                               Definition                               \r\n                \r\n                                                    \r\nĿ        Ŀ        Ŀ\r\n    CONSTRAINTS         Ĵ      GRID                  Cxxx        \r\n    Single Point    Ĵ   Grid Point    Ĵ      Element      \r\n     Multipoint         Ĵ   Definition                  Definition    \r\n   Rigid Elements                                                        \r\n   Omitted Points                    \r\n     Free Body                                                   \r\n     Supports                                                    \r\n                                             \r\n                                                                   \r\nĿ        Ŀ         Ŀ\r\n      DPHASE                  STATIC LOADS                  Pxxx         \r\n      DELAY                   Concentrated                 Property      \r\n      DAREA                 Pressure                  Definition     \r\n                                  Gravity              \r\n            Centrifugal                      \r\n                                   Thermal                        \r\n                                 Deformation                      \r\n                                Displacement                      \r\n                                                 \r\nĿ                                     Ŀ\r\n    DYNAMIC LOADS                                              MATxx        \r\n    Time Dependent                                            Material      \r\n      Frequency                                              Definition     \r\n      Dependent                                          \r\n                                               \r\n                                                                    \r\nĿ                                     Ŀ\r\n                                                              TABLEMi       \r\n     TABLEDi                                                  TABLES1       \r\n                                                                            \r\n                                     \r\n\r\n\r\n\r\n                        Figure 1.1-1. Structural model\r\n\r\n=PAGE=\r\n1.2  GRID POINTS\r\n\r\n1.2.1  Grid Point Definition\r\n\r\n   Geometric grid points are defined on GRID bulk data cards by specifying\r\ntheir coordinates in either the basic or a local coordinate system. The\r\nimplicitly defined basic coordinate system is rectangular, except when using\r\naxisymmetric elements. Local coordinate systems may be rectangular,\r\ncylindrical, or spherical. Each local system must be related directly or\r\nindirectly to the basic coordinate system. The CORD1C, CORD1R, and CORD1S\r\ncards are used to define cylindrical, rectangular, and spherical local\r\ncoordinate systems, respectively, in terms of three geometric grid points\r\nwhich have been previously defined. The CORD2C, CORD2R, and CORD2S cards are\r\nused to define cylindrical, rectangular, and spherical local coordinate\r\nsystems, respectively, in terms of the coordinates of three points in a\r\npreviously defined coordinate system.\r\n\r\n   Six rectangular displacement components (3 translations and 3 rotations)\r\nare defined at each grid point. The local coordinate system used to define the\r\ndirections of motion may be different from the local coordinate system used to\r\nlocate the grid point. Both the location coordinate system and the\r\ndisplacement coordinate system are specified on the GRID card for each\r\ngeometric grid point. The orientation of displacement components depends on\r\nthe type of local coordinate system used to define the displacement\r\ncomponents. If the defining local system is rectangular, the displacement\r\nsystem is parallel to the local system and is independent of the grid point\r\nlocation as indicated in Figure 1.2-1a. If the local system is cylindrical,\r\nthe displacement components are in the radial, tangential, and axial\r\ndirections as indicated in Figure 1.2-1b. If the local system is spherical,\r\nthe displacement components are in the radial, meridional, and azimuthal\r\ndirections as indicated in Figure 1.2-1c. Each geometric grid point may have a\r\nunique displacement coordinate system associated with it. The collection of\r\nall displacement coordinate systems is known as the global coordinate system.\r\nAll matrices are formed and all displacements are output in the global\r\ncoordinate system. The symbols T1, T2, and T3 on the printed output indicate\r\ntranslations in the 1, 2, and 3-directions, respectively, for each grid point.\r\nThe symbols R1, R2, and R3 indicate rotations (in radians) about the three\r\naxes.\r\n\r\n   Provision is also made on the GRID card to apply single-point constraints\r\nto any of the displacement components. Any constraints specified on the GRID\r\ncard will be automatically used for all solutions. Constraints specified on\r\nthe GRID card are usually restricted to those degrees of freedom that will not\r\nbe elastically constrained and hence must be removed from the model in order\r\nto avoid singularities in the stiffness matrix.\r\n\r\n   The GRDSET card is provided to avoid the necessity of repeating the\r\nspecification of location coordinate systems, displacement coordinate systems,\r\nand single-point constraints, when all, or many, of the GRID cards have the\r\nsame entries for these items. When any of the three items are specified on the\r\nGRDSET card, the entries are used to replace blank fields on the GRID card for\r\nthese items. This feature is useful in the case of such problems as space\r\ntrusses where one wishes to remove all of the rotational degrees of freedom or\r\nin the case of plane structures where one wishes to remove all of the\r\nout-of-plane or all of the in-plane motions.\r\n\r\n   Scalar points are defined either on an SPOINT card or by reference on a\r\nconnection card for a scalar element. SPOINT cards are used primarily to\r\ndefine scalar points appearing in constraint equations, but to which no\r\nstructural elements are connected. A scalar point is implicitly defined if it\r\nis used as a connection point for any scalar element. Special scalar points,\r\ncalled \"extra points\", may be introduced for dynamic analyses. Extra points\r\nare used in connection with transfer functions and other forms of direct\r\nmatrix input used in dynamic analyses and are defined on EPOINT cards.\r\n\r\n   GRIDB is a variation of the GRID card that is used to define a point on a\r\nfluid-structure interface (see Section 1.7).\r\n\r\n1.2.2  Grid Point Sequencing\r\n\r\n   The external identification numbers used for grid points may be selected in\r\nany manner you desire. However, in order to reduce the number of active\r\ncolumns, and, hence, to substantially reduce computing times when using the\r\ndisplacement method, the internal sequencing of the grid points must not be\r\narbitrary. The best decomposition and equation solution times are obtained if\r\nthe grid points are sequenced in such a manner as to create matrices having\r\nsmall numbers of active columns (see Section 2.2 of the Theoretical Manual for\r\na discussion of active columns and the decomposition algorithm). The\r\ndecomposition time is proportional to the sum of the squares of the number of\r\nactive columns in each row of the triangular factor. The equation solution\r\ntime (forward/backward substitution) is proportional to the number of nonzero\r\nterms in the triangular factor.\r\n\r\n1.2.2.1  Manual Grid Point Resequencing\r\n\r\n   In order to allow arbitrary grid point numbers and still preserve sparsity\r\nin the triangular decomposition factor to the greatest extent possible,\r\nprovision is made for you to resequence the grid point numbers for internal\r\noperations. This feature also makes it possible to easily change the sequence\r\nif a poor initial choice is made. All output associated with grid points is\r\nidentified with the external grid point numbers. The SEQGP card is used to\r\nresequence geometric grid points and scalar points. The SEQEP card is used to\r\nsequence the extra points in with the previously sequenced grid points and\r\nscalar points.\r\n\r\n   In selecting the grid point sequencing, it is not important to find the\r\nbest sequence; rather it is usually quite satisfactory to find a good\r\nsequence, and to avoid bad sequences that create unreasonably large numbers of\r\nactive columns. For many problems a sequence which will result in a band\r\nmatrix is a reasonably good choice, but not necessarily the best. Also,\r\nsequences which result in small numbers of columns with nonzero terms are\r\nusually good but not necessarily the best. A sequence with a larger number of\r\nnonzero columns will frequently have a smaller number of nonzero operations in\r\nthe decomposition when significant passive regions exist within the active\r\ncolumns (see Section 2.2 of the Theoretical Manual).\r\n\r\n   Examples of proper grid point sequencing for one-dimensional systems are\r\nshown in Figure 1.2-2. For open loops, a consecutive numbering system should\r\nbe used as shown in Figure 1.2-2a. This sequencing will result in a narrow\r\nband matrix with no new nonzero terms created during the triangular\r\ndecomposition. Generally, there is an improvement in the accumulated round off\r\nerror if the grid points are sequenced from the flexible end to the stiff end.\r\n\r\n   For closed loops, the grid points may be sequenced either as shown in\r\nFigure 1.2-2b or as shown in Figure 1.2-2c. If the sequencing is as shown in\r\nFigure 1.2-2b, the semiband will be twice that of the model shown in Figure\r\n1.2-2a. The matrix will initially contain a number of zeroes within the band\r\nwhich will become nonzero as the decomposition proceeds. If the sequencing is\r\nas shown in Figure 1.2-2c, the band portion of the matrix will be the same as\r\nthat for Figure 1.2-2a. However, the connection between grid points 1 and 8\r\nwill create a number of active columns on the right hand side of the matrix.\r\nThe solution times will be the same for the sequence shown in Figure 1.2-2b or\r\n1.2-2c, because the number of active columns in each sequence is the same.\r\n\r\n   Examples of grid point sequencing for surfaces are shown in Figure 1.2-3.\r\nFor plain or curved surfaces with a pattern of grid points that tends to be\r\nrectangular, the sequencing shown in Figure 1.2-3a will result in a band\r\nmatrix having good solution times. The semiband will be proportional to the\r\nnumber of grid points along the short direction of the pattern. If the pattern\r\nof grid points shown in Figure 1.2-3a is made into a closed surface by\r\nconnecting grid points 1 and 17, 2 and 18, etc., a number of active columns\r\nequal to the semiband will be created. If the number of grid points in the\r\ncircumferential direction is greater than twice the number in the axial\r\ndirection, the sequencing indicated in Figure 1.2-3a is a good one. However,\r\nif the number of grid points in the circumferential direction is less than\r\ntwice the number in the axial direction, the use of consecutive numbering in\r\nthe circumferential direction is more efficient. An alternate sequencing for a\r\nclosed loop is shown in Figure 1.2-3b, where the semiband is proportional to\r\ntwice the number of grid points in a row. For cylindrical or similar closed\r\nsurfaces, the sequencing shown in Figure 1.2-3b has no advantage over that\r\nshown in Figure 1.2-3a, as the total number of active columns will be the same\r\nin either case.\r\n\r\n   With the exception of the central point, sequencing considerations for the\r\nradial pattern shown in Figure 1.2-3c are similar to those for the rectangular\r\npatterns shown in Figures 3a and 3b. The central point must be sequenced last\r\nin order to limit the number of active columns associated with this point to\r\nthe number of degrees of freedom at the central point. If the central point is\r\nsequenced first, the number of active columns associated with the central\r\npoint will be proportional to the number of radial lines. If there are more\r\ngrid points on a radial line than on a circumferential line, the consecutive\r\nnumbering should extend in the circumferential direction beginning with the\r\noutermost circumferential ring. In this case, the semiband is proportional to\r\nthe number of grid points on a circumferential line and there will be no\r\nactive columns on the right hand side of the matrix. If the grid points form a\r\nfull circular pattern, the closure will create a number of active columns\r\nproportional to the number of grid points on a radial line if the grid points\r\nare numbered as shown in Figure 1.2-3c. Proper sequencing for a full circular\r\npattern is similar to that discussed for the rectangular arrays shown in\r\nFigures 3a and 3b for closed surfaces.\r\n\r\n   Sequencing problems for actual structural models can frequently be handled\r\nby considering the model as consisting of several substructures. Each\r\nsubstructure is first numbered in the most efficient manner. The substructures\r\nare then connected so as to create the minimum number of active columns. The\r\ngrid points at the interface between two substructures are usually given\r\nnumbers near the end of the sequence for the first substructure and as near\r\nthe beginning of the sequence for the second substructure as is convenient.\r\n\r\n   Figure 1.2-4 shows a good sequence for the substructure approach. Grid\r\npoints 1 through 9 are associated with the first substructure, and grid points\r\n10 through 30 are associated with the second substructure. In the example,\r\neach of the substructures was sequenced for band matrices. However, other\r\nschemes could also be considered for sequencing the individual substructures.\r\nFigure 1.2-5 shows the nonzero terms in the triangular factor. The X's\r\nindicate terms which are nonzero in the original matrix. The zeros indicate\r\nnonzero terms created during the decomposition. The maximum number of active\r\ncolumns for any pivotal row is only five, and this occurs in only three rows\r\nnear the middle of the matrix for the second substructure. All other pivotal\r\nrows have four or less active columns.\r\n\r\n   Figure 1.2-6 indicates the grid point sequencing using substructuring\r\ntechniques for a square model, and Figure 1.2-7 shows the nonzero terms in the\r\ntriangular factor. If the square model were sequenced for a band matrix, the\r\nnumber of nonzero terms in the triangular factor would be 129, whereas Figure\r\n1.2-7 contains only 102 nonzero terms. The time for the forward/backward\r\nsubstitution operation is directly proportional to the number of nonzero terms\r\nin the triangular factor. Consequently, the time for the forward/backward\r\nsubstitution operation when the square array is ordered as shown in Figure\r\n1.2-7 is only about 80% of that when the array is ordered for a band matrix.\r\nThe number of multiplications for a decomposition when ordered for a band is\r\n294, whereas the number indicated in Figure 1.2-7 is only 177. This indicates\r\nthat the time for the decomposition when ordered as shown in Figure 1.2-6 is\r\nonly 60% of that when ordered for a band.\r\n\r\n   Although scalar points are defined only in vector space, the pattern of the\r\nconnections is used in a manner similar to that of geometric grid points for\r\nsequencing scalar points among themselves or with geometric grid points. Since\r\nscalar points introduced for dynamic analysis (extra points) are defined in\r\nconnection with direct input matrices, the sequencing of these points is\r\ndetermined by direct reference to the positions of the added terms in the\r\ndynamic matrices.\r\n\r\n1.2.2.2  Automatic Grid Point Resequencing Using the BANDIT Procedure\r\n\r\n   If you want reduced matrix reduction and equation solution times, you can\r\nmanually resequence your grid points by the use of SEQGP cards as per the\r\nguidelines outlined in the previous section. However, in order to relieve you\r\nof the burden of having to do so, an automatic resequencing capability has\r\nbeen provided in NASTRAN. This capability involves the use of the BANDIT\r\nprocedure in NASTRAN. (See Reference 1 for details of the BANDIT procedure and\r\nReference 2 for details of the manner in which it has been implemented in\r\nNASTRAN.)\r\n\r\n   The BANDIT procedure in automatically invoked in NASTRAN for all runs\r\n(except those indicated in Sections 1.2.2.2.2 and 1.2.2.2.3), unless\r\nspecifically suppressed by you. (See the description of the BANDIT options in\r\nthe next section.) The result of the BANDIT operations is a set of SEQGP cards\r\nthat are automatically generated by the program. These SEQGP cards are added\r\nto your input data (replacing any SEQGP cards already input, if so specified)\r\nfor subsequent processing by the program.\r\n\r\n1.2.2.2.1  BANDIT Options\r\n\r\n   The execution of the BANDIT operations in NASTRAN is controlled by several\r\nparameters. These parameters can be specified by means of the NASTRAN card and\r\nare fully described in Section 2.1. All of these parameters have default\r\nvalues selected so that you normally do not have to explicitly specify any of\r\nthem.\r\n\r\n   NASTRAN provides two methods to skip over the BANDIT operations. First, the\r\nNASTRAN BANDIT = -1 option can be used. The second method is to include one or\r\nmore SEQGP cards in the Bulk Data Deck. In this second method, BANDIT would\r\nterminate since you have already stated your choice of SEQGP resequencing\r\ncards. However, the NASTRAN BANDTRUN = 1 option can be used to force BANDIT to\r\ngenerate new SEQGP cards to replace the old SEQGP set already in the input\r\nBulk Data Deck. In all instances when BANDIT is executed, NASTRAN will issue a\r\npage of summary to keep you informed of the basic resequencing computations.\r\nYou may refer to Reference 1 for the definition of the technical terms used.\r\n\r\n   The BANDIT procedure automatically counts the number of grid points used in\r\na NASTRAN job and sets up the exact array dimensions needed for its internal\r\ncomputations. However, if your structural model uses more grid points in the\r\nconnecting elements than the total number of grid points as defined on the\r\nGRID cards, BANDIT will issue a fatal message and terminate the job. In the\r\ncase where non-active grid points (that is, grid points defined on the GRID\r\ncards but nowhere used in the model) do exist, BANDIT will add them to the end\r\nof the SEQGP cards, and their presence will not cause termination of a job.\r\n(If necessary, the NASTRAN HICORE parameter can be used on the UNIVAC version\r\nto increase the amount of open core available for the BANDIT operations.)\r\n\r\n   Multipoint constraints (MPCs) and rigid elements are included in the BANDIT\r\ncomputations only when the BANDTMPC = 1 (or 2) option is selected. (The use of\r\nthe dependent grid points of MPCs and/or rigid elements is controlled by the\r\nBANDTDEP option.) However, as noted in Reference 1, it should be emphasized\r\nhere that only in rare cases would it make sense to let BANDIT process MPCs\r\nand rigid elements. The main reasons for this are that BANDIT does not\r\nconsider individual degrees of freedom and, in addition, cannot distinguish\r\none MPC set from another.\r\n\r\n1.2.2.2.2  Cases for Which BANDIT Computations are Skipped\r\n\r\n   The BANDIT computations in NASTRAN are unconditionally skipped over if any\r\nof the following conditions exists:\r\n\r\n   1. There are errors in input data.\r\n\r\n   2. The Bulk Data Deck contains any of the following types of input:\r\n\r\n      a.Axisymmetric (CONEAX, TRAPAX, or TRIAAX) elements\r\n\r\n      b.Fluid (FLUID2, FLUID3, or FLUID4) elements\r\n\r\n      c.DMI (Direct Matrix Input) data\r\n\r\n   3. It is a substructure Phase 2 run.\r\n\r\n1.2.2.2.3  BANDIT in Restarts\r\n\r\n   At the beginning of a NASTRAN job, the Preface (or Link 1) modules read and\r\nprocess the Executive, Case Control, and Bulk Data decks. The SEQGP cards\r\ngenerated by BANDIT are added directly to the NASTRAN data base (specifically,\r\nthe GEOM1 file) at a later stage. Since these SEQGP cards are not part of the\r\noriginal Bulk Data Deck, they are not directly written on to the NPTP (New\r\nProblem Tape) in a checkpoint run and, therefore, are not available as such\r\nfor use on the OPTP (Old Problem Tape) in a restart.\r\n\r\n   In the light of the above comments, the following points about the use of\r\nBANDIT in NASTRAN restarts should be noted:\r\n\r\n   1. BANDIT is automatically skipped if the restart job has no input data\r\n      changes with respect to the checkpoint job. However, the previously\r\n      generated SEQGP cards, if any, are already absorbed into the NASTRAN\r\n      data base (data blocks such as EQEXIN, SIL, etc.). A message is printed\r\n      to inform you that the BANDIT computations are not performed. (BANDIT\r\n      can be executed if the restart job contains one or more of the\r\n      appropriate BANDIT options on the NASTRAN card, for example, NASTRAN\r\n      BANDMTH = 2.)\r\n\r\n   2. BANDIT is executed (except for the cases indicated in Section 1.2.2.2.2)\r\n      if the restart job has input data changes with respect to the checkpoint\r\n      job, unless specifically suppressed by you. (The BANDIT = -1 option on\r\n      the NASTRAN card can be used to stop BANDIT execution unconditionally.)\r\n\r\n1.2.3  Grid Point Properties\r\n\r\n   Some of the characteristics of the structural model are introduced as\r\nproperties of grid points, rather than as properties of structural elements.\r\nAny of the various forms of direct matrix input are considered as describing\r\nthe structural model in terms of properties of grid points.\r\n\r\n   Thermal fields are defined by specifying the temperatures at grid points.\r\nThe TEMP card is used to specify the temperature at grid points for use in\r\nconnection with thermal loading and temperature-dependent material properties.\r\nThe TEMPD card is used to specify a default temperature, in order to avoid a\r\nlarge number of duplicate entries on a TEMP card when the temperature is\r\nuniform over a large portion of the structure. The TEMPAX card is used for\r\nconical shell problems.\r\n\r\n   Mass properties may be input as properties of grid points by using the\r\nconcentrated mass element (see Section 5.5 of the Theoretical Manual). The\r\nCONM1 card is used to define a 6x6 matrix of mass coefficients at a geometric\r\ngrid point in any selected coordinate system. The CONM2 card is used to define\r\na concentrated mass at a geometric grid point in terms of its mass, the three\r\ncoordinates of its center of gravity, the three moments of inertia about its\r\ncenter of gravity, and its three products of inertia, referred to any selected\r\ncoordinate system.\r\n\r\n   In dynamic analysis, mass, damping and stiffness properties may be\r\nprovided, in part or entirely, as properties of grid points through the use of\r\ndirect input matrices. The DMIG card is used to define direct input matrices\r\nfor use in dynamic analysis. These matrices may be associated with components\r\nof geometric grid points, scalar points, or extra points introduced for\r\ndynamic analysis. The TF card is used to define transfer functions that are\r\ninternally converted to direct matrix input. The DMIAX card is an alternate\r\nform of direct matrix input that is used for hydroelastic problems (see\r\nSection 1.7).\r\n\r\nREFERENCES\r\n\r\n1. Everstine, G. C., \"BANDIT User's Guide\", COSMIC Program No. DOD-00033, May\r\n   1978.\r\n\r\n2. Chan, G. C., \"BANDIT in NASTRAN,\" Eleventh NASTRAN Users' Colloquium, NASA\r\n   Conference Publication, May 1983, San Francisco, California, pp. 1-5.\r\n=PAGE=\r\n                                     z\r\n                                          u3\r\n                                          \r\n                                           P\r\n                                   G2*     * u2\r\n                                         /\r\n(a) Rectangular                     /   / \r\n                                   /   /   Z\r\n                                  /   u1  \r\n                               G3*        \r\n                                  G1** y\r\n                                   /         /\r\n                                  /         /\r\n                                 /         / X\r\n                                 /         /\r\n                                /*\r\n                               /     Y\r\n                              x\r\n\r\n\r\n\r\n                                     z     u3 - z direction\r\n                                            u2 -  direction\r\n                                           /\r\n                                          /\r\n                                   G2*   p \\\r\n                                           \\\r\n(b) Cylindrical                     /       \\\r\n                                   /         u1 - r direction\r\n                                  /       Z\r\n                               G3*        \r\n                                  G1*y\r\n                                   / \\    \r\n                                  /  \\R  \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              *\r\n\r\n\r\n\r\n                                              u1 - p direction\r\n                                     z        /     .u3 -  direction\r\n                                            /   .\r\n                                           / .\r\n                                         P*\r\n                                   G2*    / \\\r\n                                    /  /   \\\r\n(c) Spherical                      /   /     u2 -  direction\r\n                                  /   /R  \r\n                               G3*   /    \r\n                                  G1*y\r\n                                   / \\    \r\n                                  /  \\   \r\n                                 /     \\  \r\n                                 /       \\ \r\n                                /         \\\r\n                               /\r\n                              x\r\n\r\n\r\n                 Figure 1.2-1. Displacement coordinate systems\r\n=PAGE=\r\n                            6\r\n                           /    5    4    3    2    1\r\n(a)                        /Ĵ\r\n                           /\r\n                           /\r\n\r\n\r\n\r\n                             3           1            2\r\n                             Ŀ\r\n                                                     \r\n                                                     \r\n                                                     \r\n(b)                         5                        4\r\n                                                     \r\n                                                     \r\n                                                     \r\n                             \r\n                             7           8            6\r\n\r\n\r\n\r\n                             8           1            2\r\n                             Ŀ\r\n                                                     \r\n                                                     \r\n                                                     \r\n(c)                         7                        3\r\n                                                     \r\n                                                     \r\n                                                     \r\n                             \r\n                             6           5            4\r\n\r\n\r\n        Figure 1.2-2. Grid point sequencing for one-dimensional systems\r\n=PAGE=\r\n                    4           8        12       16       20\r\n                      Ŀ\r\n                                                      \r\n                    3         7       11      15      19\r\n                      Ĵ\r\n(a)                                                   \r\n                    2         6       10      14      18\r\n                      Ĵ\r\n                                                      \r\n                                                      \r\n                      \r\n                    1           5        9        13       17\r\n\r\n\r\n\r\n                   20           12       4        8        16\r\n                      Ŀ\r\n                                                      \r\n                   19         11      3       7       15\r\n                      Ĵ\r\n(b)                                                   \r\n                   18         10      2       6       14\r\n                      Ĵ\r\n                                                      \r\n                                                      \r\n                      \r\n                   17           9        1        5        13\r\n\r\n\r\n\r\n                       12               9               6\r\n                       Ŀ\r\n                        \\  11          8         5   /\r\n                          \\Ŀ /  \r\n                           \\                        \r\n                             \\ 10     7    4  /     \r\n                               Ŀ/       \r\n(c)                             \\        /        \r\n                                  \\    /          \r\n                                    \\/            \r\n                       \r\n                      15    14   13     16    1    2    3\r\n\r\n\r\n               Figure 1.2-3. Grid point sequencing for surfaces\r\n=PAGE=\r\n                              Ŀ\r\n                              3       2       1\r\n                                              \r\n                              Ĵ\r\n                              6       5       4\r\n                                              \r\n                              Ĵ\r\n                              9       8       7\r\n                                              \r\n            Ŀ\r\n            28      25      22      19      16      13      10\r\n                                                            \r\n            Ĵ\r\n            29      26      23      20      17      14      11\r\n                                                            \r\n            \r\n             30       27       24       21       18       15       12\r\n\r\n\r\n             Figure 1.2-4. Grid point sequencing for substructures\r\n\r\n\r\n\r\n     X X   X\r\n       X X 0 X\r\n         X 0 0 X\r\n           X X 0 X\r\n             X X 0 X\r\n               X 0 0 X\r\n                 X X 0             X\r\n                   X X             0     X\r\n                     X             0     0     X\r\n                       X X   X\r\n                         X X 0 X\r\n                           X 0 0 X\r\n                             X X 0 X\r\n                               X X 0 X\r\n                                 X 0 0 X\r\n                                   X X 0 X     0\r\n                                     X X 0 X   0\r\n                                       X 0 0 X 0\r\n                                         X X 0 X\r\n                                           X X 0 X\r\n          (Symmetric)                        X 0 0 X\r\n                                               X X 0 X\r\n                                                 X X 0 X\r\n                                                   X 0 0 X\r\n                                                     X X 0 X\r\n                                                       X X 0 X\r\n                                                         X 0 0 X\r\n                                                           X X 0\r\n                                                             X X\r\n                                                               X\r\n\r\n\r\n             Figure 1.2-5. Matrix for substructure example\r\n=PAGE=\r\n                                      \r\n                                      \r\n                                      \r\n                    Ŀ\r\n                    13      14      23      10      9\r\n                                                    \r\n                    Ĵ\r\n                    15      16      24      12      11\r\n                                                    \r\n              \r\n                    17      18      25      22      21\r\n                                                    \r\n                    Ĵ\r\n                    3       4       20      8       7\r\n                                                    \r\n                    \r\n                     1        2       19       6        5\r\n                                      \r\n                                      \r\n\r\n\r\n             Figure 1.2-6. Grid point sequencing for square model\r\n\r\n\r\n          X X X\r\n            X 0 X                             X\r\n              X X                         X   0\r\n                X                         0 X 0 X\r\n                  X X X\r\n                    X 0 X                     X\r\n                      X X                     0   X\r\n                        X                     0 X 0 X\r\n                          X X X\r\n                            X 0 X                     X\r\n                              X X                 X   0\r\n                                X                 0 X 0 X\r\n                                  X X X\r\n                                    X 0 X             X\r\n                                      X X X           0\r\n                                        X 0 X         0 X\r\n               (Symmetric)                X X 0 0\r\n                                            X 0 0     0 0 X\r\n                                              X X 0 0 0 0 0\r\n                                                X 0 0 0 0 X\r\n                                                  X X 0 0 0\r\n                                                    X 0 0 X\r\n                                                      X X 0\r\n                                                        X X\r\n                                                          X\r\n\r\n\r\n\r\n             Figure 1.2-7. Matrix for square model example\r\n\r\n=PAGE=\r\n1.3  STRUCTURAL ELEMENTS\r\n\r\n1.3.1  Element Definition\r\n\r\n   Structural elements are defined on connection cards that identify the grid\r\npoints to which the elements are connected. The mnemonics for all such cards\r\nhave a prefix of the letter \"C\", followed by an indication of the type of\r\nelement, such as CBAR and CROD. The order of the grid point identification\r\ndefines the positive direction of the axis of a one-dimensional element and\r\nthe positive surface of a plate element. The connection cards include\r\nadditional orientation information when required. Except for the simplest\r\nelements, each connection card references a property definition card. If many\r\nelements have the same properties, this system of referencing eliminates a\r\nlarge number of duplicate entries.\r\n\r\n   The property definition cards define geometric properties such as\r\nthicknesses, cross-sectional areas, and moments of inertia. The mnemonics for\r\nall such cards have a prefix of the letter \"P\", followed by some, or all, of\r\nthe characters used on the associated connection card, such as PBAR and PROD.\r\nOther included items are the nonstructural mass and the location of points\r\nwhere stresses will be calculated. Except for the simplest elements, each\r\nproperty definition card will reference a material property card.\r\n\r\n   In some cases, the same finite element can be defined by using different\r\nbulk data cards. These alternate cards have been provided for your\r\nconvenience. In the case of a rod element, the normal definition is\r\naccomplished with a connection card (CROD) which references a property card\r\n(PROD). However, an alternate definition uses a CONROD card which combines\r\nconnection and property information on a single card. This is more convenient\r\nif a large number of rod elements all have different properties.\r\n\r\n   In the case of plate elements, a different property card is provided for\r\neach type of element, such as membrane or sandwich plates. Thus, each property\r\ncard contains only the information required for a single type of plate\r\nelement, and in most cases, a single card has sufficient space for all of the\r\nproperty information. In order to maintain uniformity in the relationship\r\nbetween connection cards and property cards, a number of connection card types\r\ncontain the same information, such as the connection cards for the various\r\ntypes of triangular elements. Also, the property cards for triangular and\r\nquadrilateral elements of the same type contain the same information.\r\n\r\n   The material property definition cards are used to define the properties\r\nfor each of the materials used in the structural model. The MAT1 card is used\r\nto define the properties for isotropic materials. The MAT1 card may be\r\nreferenced by any of the structural elements. The MATS1 card specifies table\r\nreferences for isotropic material properties that are stress dependent. The\r\nTABLES1 card defines a tabular stress-strain function for use in piecewise\r\nlinear analysis. The MATT1 card specifies table references for isotropic\r\nmaterial properties that are temperature dependent. The TABLEM1, TABLEM2,\r\nTABLEM3, and TABLEM4 cards define four different types of tabular functions\r\nfor use in generating temperature-dependent material properties.\r\n\r\n   The MAT2 card is used to define the properties for anisotropic materials.\r\nThe MAT2 card may only be referenced by triangular or quadrilateral membrane\r\nand bending elements. The MAT2 card specifies the relationship between the\r\ninplane stresses and strains. The material is assumed to be infinitely rigid\r\nin transverse shear. The angle between the material coordinate system and the\r\nelement coordinate system is specified on the connection cards. The MATT2 card\r\nspecifies table references for anisotropic material properties that are\r\ntemperature dependent. This card may reference any of the TABLEM1, TABLEM2,\r\nTABLEM3, or TABLEM4 cards.\r\n\r\n   The MAT3 card is used to define the properties for orthotropic materials\r\nused in the modeling of axisymmetric shells. This card may only be referenced\r\nby CTRIARG, CTRIAAX, CTRAPRG, CTRAPAX, and PTORDRG cards. The MATT3 card\r\nspecifies table references for use in generating temperature-dependent\r\nproperties for this type of material.\r\n\r\n   The GENEL card is used to define general elements whose properties are\r\ndefined in terms of deflection influence coefficients or stiffness matrices,\r\nand which can be connected between any number of grid points. One of the\r\nimportant uses of the general element is the representation of part of a\r\nstructure by means of experimentally measured data. No output data is prepared\r\nfor the general element. Detail information on the general element is given in\r\nSection 5.7 of the Theoretical Manual.\r\n\r\n   Dummy elements are provided in order to allow you to investigate new\r\nstructural elements with a minimum expenditure of time and money. A dummy\r\nelement is defined with a CDUMi (i = index of element type, 1 <= i <= 9) card\r\nand its properties are defined with the PDUMi card. The ADUMi card is used to\r\ndefine the items on the connection and property cards. Detailed instructions\r\nfor coding dummy element routines are given in Section 6.8.5 of the\r\nProgrammer's Manual.\r\n\r\n1.3.2  Beam Elements\r\n\r\n1.3.2.1  Simple Beam or Bar Element\r\n\r\n   The simple beam or bar element is defined with a CBAR card and its\r\nproperties (constant over the length) are defined with a PBAR card. The bar\r\nelement includes extension, torsion, bending in two perpendicular planes, and\r\nthe associated shears. The shear center is assumed to coincide with the\r\nelastic axis. Any five of the six forces at either end of the element may be\r\nset equal to zero by using the pin flags on the CBAR card. The integers 1 to 6\r\nrepresent the axial force, shearing force in Plane 1, shearing force in Plane\r\n2, axial torque, moment in Plane 2, and moment in Plane 1, respectively. The\r\nstructural and nonstructural mass of the bar are lumped at the ends of the\r\nelement, unless coupled mass is requested with a PARAM COUPMASS card (see\r\nPARAM bulk data card). Theoretical aspects of the bar element are treated in\r\nSection 5.2 of the Theoretical Manual.\r\n\r\n   The element coordinate system is shown in Figure 1.3-1a. End a is offset\r\nfrom grid point a an amount measured by vector wa and end b is offset from\r\ngrid point b an amount measured by vector wb. The vectors wa and wb are\r\nmeasured in the global coordinates of the connected grid point. The x-axis of\r\nthe element coordinate system is defined by a line connecting end a to end b\r\nof the bar element. The orientation of the bar element is described in terms\r\nof two reference planes. The reference planes are defined with the aid of\r\nvector v. This vector may be defined directly with three components in the\r\nglobal system at end a of the bar or by a line drawn from end a to a third\r\nreferenced grid point. The first reference plane (Plane 1) is defined by the\r\nx-axis and the vector v. The second reference plane (Plane 2) is defined by\r\nthe vector cross product (x x v) and the x-axis. The subscripts 1 and 2 refer\r\nto forces and geometric properties associated with bending in planes 1 and 2,\r\nrespectively. The reference planes are not necessarily principal planes. The\r\ncoincidence of the reference planes and the principal planes is indicated by a\r\nzero product of inertia (I12) on the PBAR card. If shearing deformations are\r\nincluded, the reference axes and the principal axes must coincide. When pin\r\nflags and offsets are used, the effect of the pin is to free the force at the\r\nend of the element x-axis of the beam, not at the grid point. The positive\r\ndirections for element forces are shown in Figure 1.3-1b. The following\r\nelement forces, either real or complex (depending on the rigid format), are\r\noutput on request:\r\n\r\n   -  Bending moments at both ends in the two reference planes.\r\n\r\n   -  Shears in the two reference planes.\r\n\r\n   -  Average axial force.\r\n\r\n   -  Torque about the bar axis.\r\n\r\n   The following real element stresses are output on request:\r\n\r\n   -  Average axial stress.\r\n\r\n   -  Extensional stress due to bending at four points on the cross-section at\r\n      both ends. (Optional; calculated only if you enter stress recovery\r\n      points on PBAR card.)\r\n\r\n   -  Maximum and minimum extensional stresses at both ends.\r\n\r\n   -  Margins of safety in tension and compression for the whole element.\r\n      (Optional; calculated only if you enter stress limits on MAT1 card.)\r\n\r\n   Tensile stresses are given a positive sign and compressive stresses a\r\nnegative sign. Only the average axial stress and the extensional stresses due\r\nto bending are available as complex stresses. The stress recovery coefficients\r\non the PBAR card are used to locate points on the cross-section for stress\r\nrecovery. The subscript 1 is associated with the distance of a stress recovery\r\npoint from plane 2. The subscript 2 is associated with the distance from plane\r\n1.\r\n\r\n   The use of the BAROR card avoids unnecessary repetition of input when a\r\nlarge number of bar elements either have the same property identification\r\nnumber or have their reference axes oriented in the same manner. This card is\r\nused to define default values on the CBAR card for the property identification\r\nnumber and the orientation vector for the reference axes. The default values\r\nare used only when the corresponding fields on the CBAR card are blank.\r\n\r\n1.3.2.2  Curved Beam or Elbow Element\r\n\r\n   The curved beam or elbow element is a three-dimensional element with\r\nextension, torsion, and bending capabilities and the associated shears. No\r\noffset of the elastic axis is allowed nor are pin releases permitted to\r\neliminate the connection between motions at the ends of the element and the\r\nadjacent grid points.\r\n\r\n   The elbow element was initially developed to facilitate the analysis of\r\npipe networks by using it as a curved pipe element. However, the input format\r\nis general enough to allow application to beams of general cross section. An\r\nimportant assumption in the development of the element is that the radius of\r\ncurvature is much larger than the cross section depth.\r\n\r\n   The element is defined with a CELBOW card and its properties (constant over\r\nthe length) are defined with a PELBOW card. There are six degrees of freedom\r\nat each end of the element: translations in the local x, y, z directions and\r\nrotations about the local x, y, z axes. The structural and nonstructural mass\r\nof the element are lumped at the ends of the element.\r\n\r\n   The specified properties of the elbow element are its area; its moments of\r\ninertia, I1 and I2 (the product of inertia is assumed to be zero); its\r\ntorsional constant, J; the radius of curvature; the angle between end-a and\r\nend-b; the factors K1 and K2 for computing transverse shear stiffness; the\r\nnonstructural mass per unit length, NSM; the stress intensification factor, C;\r\nand the flexibility correction factors, Kx, Ky, and Kz. The stress\r\nintensification factor C is applied to the bending stress only. The\r\nflexibility correction factors Kx, Ky, and Kz are generally greater than 1.0\r\nand are used as divisors to reduce the respective moments of inertia. These\r\nare discussed further towards the end of this section.\r\n\r\n   The material properties, obtained by reference to a materials properties\r\ntable, include the elastic moduli, E and G, density, rho, and the thermal\r\nexpansion coefficient, , determined at the average temperature of the\r\nelement.\r\n\r\n   The plane of the element is defined by two grid points, A and B, and a\r\nvector v from grid point A directed toward the center of curvature. Plane 1 of\r\nthe element cross section lies in this plane. Plane 2 is normal to Plane 1 and\r\ncontains the vector v. The area moments of inertia, I1 and I2, are defined as\r\nfor the BAR element. The cross product of inertia, I12, is neglected. This\r\nassumption requires that at least one axis of the element cross section be an\r\naxis of symmetry.\r\n\r\n   The following element forces are output on request:\r\n\r\n   -  Bending moments at both ends in the two reference planes\r\n\r\n   -  Transverse shear force at both ends in the two reference planes\r\n\r\n   -  Axial force at both ends\r\n\r\n   -  Torque at both ends\r\n\r\n   The following element stresses are output on request:\r\n\r\n   -  Average axial stress at both ends\r\n\r\n   -  Bending stresses at four points on the cross section at both ends. The\r\n      points are specified by you.\r\n\r\n   -  Maximum and minimum extensional stresses at both ends.\r\n\r\n   -  Margins of safety in tension and compression (Optional, output only if\r\n      you enter stress limits on MAT1 card)\r\n\r\nStress Intensification Factor and Flexibility Correction Factors\r\n\r\n   When a plane pipe network, consisting of both straight and curved sections,\r\nis analyzed by simple beam theory as an indeterminate system, the computed\r\nsupport reactions are greater than actually would be measured in an\r\nexperiment. The apparent decrease in stiffness in such a case is due to an\r\novalization of the pipe in the curved sections. The ovalization also yields a\r\nstress distribution different from that computed by simple beam theory.\r\n\r\n   When a curved beam or elbow element is used as a curved pipe element, there\r\nare two factors available that can be specified to account for the differences\r\nin its behavior compared to curved beams. These are the stress intensification\r\nfactor and the flexibility correction factors.\r\n\r\n   The maximum stress, max, in a curved pipe element is given by\r\n\r\n                  Mc\r\n      max  =  C \r\n                   I\r\n\r\nwhere C is a stress intensification factor,\r\n\r\n      M = bending moment,\r\n\r\n      c = fiber distance, and\r\n\r\n      I = plane (area) moment of inertia of the cross section.\r\n\r\n   In general, the factor C mentioned above may be regarded as a stress\r\ncorrection factor in curved beam analysis.\r\n\r\n   The effect of the ovalization of the pipe in curved sections is to reduce\r\nthe stiffness parameter EI (E:  modulus of elasticity) of the curved pipe to a\r\nfictitious value. Thus, for the elbow element,\r\n\r\n              EI1\r\n   (EI1)'  =     ,   (Ky > 1.0), and\r\n              Ky\r\n\r\n              EI2\r\n   (EI2)'  =     ,   (Kz > 1.0)\r\n              Kz\r\n\r\nwhere Ky and Kz are the stiffness correction factors corresponding to planes 1\r\nand 2, respectively. The stiffness correction factor, Kz, corresponds to the\r\ntorsional behavior and is generally taken to be 1.0.\r\n\r\n1.3.3  Rod Element\r\n\r\n   The rod element is defined with a CROD card and its properties with a PROD\r\ncard. The rod element includes extensional and torsional properties. The\r\nCONROD card is an alternate form that includes both the connection and\r\nproperty information on a single card. The tube element is a specialized form\r\nthat is assumed to have a circular cross-section. The tube element is defined\r\nwith a CTUBE card and its properties with a PTUBE card. The structural and\r\nnonstructural mass of the rod are lumped at the adjacent grid points unless\r\ncoupled mass is requested with the PARAM COUPMASS card (see PARAM bulk data\r\ncard). Theoretical aspects of the rod element are treated in Section 5.2 of\r\nthe Theoretical Manual.\r\n\r\n   The x-axis of the element coordinate system is defined by a line connecting\r\nend a to end b as shown in Figure 1.3-2. The axial force and torque are output\r\non request in either the real or complex form. The positive directions for\r\nthese forces are indicated in Figure 1.3-2. The following real element\r\nstresses are output on request:\r\n\r\n   -  Axial stress\r\n\r\n   -  Torsional stress\r\n\r\n   -  Margin of safety for axial stress\r\n\r\n   -  Margin of safety for torsional stress.\r\n\r\n   Positive directions are the same as those indicated in Figure 1.3-2 for\r\nelement forces. Only the axial stress and the torsional stress are available\r\nas complex stresses.\r\n\r\n   Another kind of rod element is the viscous damper, which has extensional\r\nand torsional viscous damping properties rather than stiffness properties. The\r\nviscous damper element is defined with a CVISC card and its properties with a\r\nPVISC card. This element is used in the direct formulation of dynamic\r\nmatrices.\r\n\r\n1.3.4 Shear Panels and Twist Panels\r\n\r\n   The shear panel is defined with a CSHEAR card and its properties with a\r\nPSHEAR card. A shear panel is a two-dimensional structural element that\r\nresists the action of tangential forces applied to its edges, but does not\r\nresist the action of normal forces. The structural and nonstructural mass of\r\nthe shear panel are lumped at the connected grid points. Details of the shear\r\npanel element are discussed in Section 5.3 of the Theoretical Manual.\r\n\r\n   The element coordinate system for a shear panel is shown in Figure 1.3-3a.\r\nThe integers 1, 2, 3, and 4 refer to the order of the connected grid points on\r\nthe CSHEAR card. The element forces are output on request in either the real\r\nor complex form. The positive directions for these forces are indicated in\r\nFigure 1.3-3b. These forces consist of the forces applied to the element at\r\nthe corners in the direction of the sides, kick forces at the corners in a\r\ndirection normal to the plane formed by the two adjacent edges, and \"shear\r\nflows\" (force per unit length) along the four edges. The shear stresses are\r\ncalculated at the corners in skewed coordinates parallel to the exterior\r\nedges. The average of the four corner stresses and the maximum stress are\r\noutput on request in either the real or complex form. A margin of safety is\r\nalso output when the stresses are real.\r\n\r\n   The twist panel performs the same function for bending action that the\r\nshear panel performs for membrane action. The twist panel is defined with a\r\nCTWIST card and its properties with a PTWIST card. In calculating the\r\nstiffness matrix, a twist panel is assumed to be solid. For built-up panels,\r\nthe thickness in the PTWIST card must be adjusted to give the correct moment\r\nof inertia of the cross-section. If mass calculations are being made, the\r\ndensity will also have to be adjusted on a MAT1 card. The element coordinate\r\nsystem and directions for positive forces are shown in Figure 1.3-4. Stress\r\nrecovery is similar to that for shear panels.\r\n\r\n1.3.5  Plate and Membrane Elements\r\n\r\n   NASTRAN includes two different shapes of plate and membrane elements\r\n(triangular and quadrilateral) and two different stress systems (inplane and\r\nbending) which are uncoupled. There are different forms of elements available\r\nthat are defined by connection cards as follows:\r\n\r\n1. Plate (Bending) Elements\r\n\r\na. CTRBSC - basic unit from which the bending properties of the other plate\r\n   elements are formed.\r\n\r\nb. CTRPLT - triangular element with zero inplane stiffness and finite bending\r\n   stiffness.\r\n\r\nc. CTRPLT1 - a higher order triangular element with zero inplane stiffness and\r\n   finite bending stiffness. Uses quintic polynomial representation for\r\n   transverse displacements and bilinear variation for temperature and\r\n   thickness.\r\n\r\nd. CQDPLT - quadrilateral element with zero inplane stiffness and finite\r\n   bending stiffness.\r\n\r\n2. Membrane (Inplane) Elements\r\n\r\na. CTRMEM - triangular element with finite inplane stiffness and zero bending\r\n   stiffness.\r\n\r\nb. CTRIM6 - triangular element with finite inplane stiffness and zero bending\r\n   stiffness. Uses quadratic polynomial representation for membrane\r\n   displacements and bilinear variation for temperature and thickness.\r\n\r\nc. CQDMEM - quadrilateral element consisting of four overlapping CTRMEM\r\n   elements.\r\n\r\nd. CQDMEM1 - an isoparametric quadrilateral membrane element.\r\n\r\ne. CQDMEM2 - a quadrilateral membrane element consisting of four non-\r\n   overlapping CTRMEM elements.\r\n\r\nf. CIS2D8 - a quadriparabolic isoparametric membrane element. May be reduced\r\n   to a triangular element under specified conditions.\r\n\r\n3. Plate and Membrane Elements\r\n\r\na. CTRIA1 - triangular element with both inplane and bending stiffness. It is\r\n   designed for sandwich plates which can have different materials referenced\r\n   for membrane, bending, and transverse shear properties.\r\n\r\nb. CTRIA2 - triangular element with both inplane and bending stiffness that\r\n   assumes a solid homogeneous cross-section.\r\n\r\nc. CQUAD1 - quadrilateral element with both inplane and bending stiffness. It\r\n   is designed for sandwich plates which can have different materials\r\n   referenced for membrane, bending, and transverse shear properties.\r\n\r\nd. CQUAD2 - quadrilateral element with both inplane and bending stiffness that\r\n   assumes a solid homogeneous cross-section.\r\n\r\n   Theoretical aspects of these elements are treated in Section 5.8 of the\r\nTheoretical Manual.\r\n\r\n   The properties for the above elements are defined on their associated\r\nPxxxxxx cards (PTRBSC, PTRPLT, etc.). All of the properties of the elements\r\nare assumed uniform over their surfaces, except for the CTRIM6 and CTRPLT1\r\nelements. Anisotropic material may be specified for all these elements.\r\nTransverse shear flexibility may be included for all bending elements on an\r\noptional basis, except for homogeneous elements (CTRIA2 and CQUAD2), where\r\nthis effect is automatically included. Structural mass is calculated only for\r\nelements that specify a membrane thickness and is based only on the membrane\r\nthickness. Nonstructural mass can be specified for all plate elements, except\r\nthe basic bending triangle. Only lumped mass procedures are used for membrane\r\nelements, except for the CIS2D8 element. Coupled mass procedures may be\r\nrequested for elements that include bending stiffness with the PARAM COUPMASS\r\ncard (see PARAM bulk data card). Differential stiffness matrices are generated\r\nfor the following elements: CTRMEM, CTRIA1, CTRIA2, CQDMEM, CQUAD1, CQUAD2.\r\nThe following elements may have nonlinear material characteristics in\r\nPiecewise Linear Analysis: CTRMEM, CTRIA1, CTRIA2, CQDMEM, CQUAD1, CQUAD2.\r\n\r\n   The element coordinate systems for the triangular and quadrilateral\r\nelements are shown in Figure 1.3-5. The integers 1, 2, 3, and 4 refer to the\r\norder of the connected grid points on the connection cards defining the\r\nelements. A similar connection scheme for elements with mid-side grid points\r\nwould be defined by six or eight integers on the connection card. The angle \r\nis the orientation angle for anisotropic materials.\r\n\r\n   Average values of element forces are calculated for all plate elements\r\n(except the CTRPLT1) having a finite bending stiffness. The element forces for\r\nthe CTRPLT1 are calculated at the corners and centroid of the element. The\r\npositive directions for plate element forces in the element coordinate system\r\nare shown in Figure 1.3-6a. The following element forces per unit of length,\r\neither real or complex, are output on request:\r\n\r\n   -  Bending moments on the x and y faces.\r\n\r\n   -  Twisting moment.\r\n\r\n   -  Shear forces on the x and y faces.\r\n\r\n   The CQDMEM2 is the only membrane element for which element forces are\r\ncalculated. The positive directions for these forces are shown in Figure 1.3-\r\n3b, and the force output has the same interpretation as the force output for\r\nthe shear panel discussed previously.\r\n\r\n   Average values of the membrane stresses are calculated for the triangular\r\nand quadrilateral membrane elements, with the exception of the CQDMEM1 and\r\nCTRIM6 elements. For the CQDMEM1 element, in which the stress field varies,\r\nthe stresses are evaluated at the intersection of diagonals (in a mean plane\r\nif the element is warped.) For the CTRIM6 element, the stresses are calculated\r\nat the corners and centroid of the element. The positive directions for the\r\nmembrane stresses are shown in Figure 1.3-6b. The stresses for the CQDMEM2\r\nelement are calculated in the material coordinate system. The material\r\ncoordinate system is defined by the material orientation angle on the CQDMEM2\r\ncard. The stresses for all other membrane elements are calculated in the\r\nelement coordinate system. For the CIS2D8 element, the stresses are computed\r\nat the Gaussian quadrature points and extrapolated to the grid points.\r\n\r\n   The following real membrane stresses are output on request:\r\n\r\n   -  Normal stresses in the x and y directions\r\n\r\n   -  Shear stress on the x face in the y direction\r\n\r\n   -  Angle between the x-axis and the major principal axis\r\n\r\n   -  Major and minor principal stresses\r\n\r\n   -  Maximum shear stress\r\n\r\n   Only the normal stresses and shearing stress are available in the complex\r\nform.\r\n\r\n   If an element has bending stiffness, the average stresses are calculated on\r\nthe two faces of the plate for homogeneous plates and at two specified points\r\non the cross-section for other plate elements. The distances to the specified\r\npoints are given on the property cards. The positive directions for these\r\nfiber distances are defined according to the right-hand sequence of the grid\r\npoints specified on the connection card. These distances are identified in the\r\noutput and must be nonzero in order to obtain nonzero stress output. The same\r\nstresses are calculated for each of the faces as are calculated for membrane\r\nelements.\r\n\r\n   In the case of composite plate elements (CTRIA1, CTRIA21, CQUAD1, and\r\nCQUAD2 only), the stresses mentioned above can also be requested in a material\r\ncoordinate system which is specified on a MAT1 or MAT2 card. In place of the\r\nfiber distances, the output in this case identifies the specified material\r\ncoordinate system as well as an output code. This latter code is set to 1 or 2\r\naccording as the material x-axis or the y-axis is chosen as the reference\r\naxis.\r\n\r\n   The element stresses in material coordinate system computed above (for\r\nCTRIA1, CTRIA2, CQUAD1, and CQUAD2 elements) can also be requested at the\r\nconnected grid points. These stresses (at grid points) are obtained by\r\ninterpolation. The output code in this case is set to (10*N + projection code)\r\nwhere N is the number of independent points used in the interpolation and the\r\nprojection code is an integer which is set to 1, 2, or 3 according as the\r\nmaterial x-axis, y-axis, or the z-axis is normal to projection.\r\n\r\n   In the case of composite plate elements (CTRIA1, CTRIA2, CQUAD1, and CQUAD2\r\nonly), strains and curvatures are also output on request. The options\r\navailable and the output formats are similar to those available in the case of\r\nstresses as described above.\r\n\r\n   The quadrilateral elements are intended for use when the surfaces are\r\nreasonably flat and the geometry is nearly rectangular. For these conditions,\r\nthe quadrilateral elements eliminate the modeling bias associated with the use\r\nof triangular elements, and quadrilaterals give more accurate results for the\r\nsame mesh size. If the surfaces are highly warped, curved, or swept,\r\ntriangular elements should be used. Under extreme conditions quadrilateral\r\nelements will give results that are considerably less accurate than triangular\r\nelements for the sane mesh size. Quadrilateral elements should be kept as\r\nnearly square as practicable, as the accuracy tends to deteriorate as the\r\naspect ratio of the quadrilateral increases. Triangular elements should be\r\nkept as nearly equilateral as practicable, because the accuracy tends to\r\ndeteriorate as the angles become obtuse and as the ratio of the longest to the\r\nshortest side increases.\r\n\r\n1.3.6  Axisymmetric Shell Elements\r\n\r\n   The properties of axisymmetric shells can be specified with either of two\r\nelements, the conical shell (CONEAX) or the toroidal ring (TORDRG). However,\r\nthese cannot be used together in the same model. Also available for thick\r\nshells of revolution are the axisymmetric solid elements (TRIARG, TRAPRG,\r\nTRIAAX, and TRAPAX) which are described in the next section. Thin shell\r\n(TRSHL) modeling is described in Section 1.3.12.\r\n\r\n1.3.6.1  Conical Shell (CONEAX) Element\r\n\r\n   The properties of the conical shell element are assumed to be symmetrical\r\nwith respect to the axis of the shell. However, the loads and deflections need\r\nnot be axisymmetric, as they are expanded in Fourier series with respect to\r\nthe aximuthal coordinate. Due to symmetry, the resulting load and deformation\r\nsystems for different harmonic orders are independent, a fact that results in\r\na large time saving when the use of the conical shell element is compared with\r\nan equivalent model constructed from plate elements. Theoretical aspects of\r\nthe conical shell element are treated in Section 5.9 of the Theoretical\r\nManual.\r\n\r\n   The conical shell element may be combined with TRIAAX and TRAPAX elements\r\nonly. The existence of a conical shell problem is defined by the AXIC card.\r\nThis card also indicates the number of harmonics desired in the problem\r\nformulation. Only a limited number of bulk data cards are allowed when using\r\nconical shell elements. The list of allowable cards is given on the AXIC card\r\ndescription in Section 2.4.2.\r\n\r\n   The geometry of a problem using the conical shell element is described with\r\nRINGAX cards instead of GRID cards. The RINGAX cards describe concentric\r\ncircles about the basic z-axis, with their locations given by radii and z-\r\ncoordinates as shown in Figure 1.3-7. The degrees of freedom defined by each\r\nRINGAX card are the Fourier coefficients of the motion with respect to angular\r\nposition around the circle. For example the radial motion, ur, at any angle,\r\n, is described by the equation:\r\n\r\n               N     n           N     n*\r\n   ur ()  =      ur  cos n +     ur   sin n                    (1)\r\n              n=0               n=0\r\n\r\nwhere urn and urn* are the Fourier coefficients of radial motion for the n-\r\nharmonic. For calculation purposes the series is limited to N harmonics as\r\ndefined by the AXIC card. The first sum in the above equation describes\r\nsymmetric motion with respect to the  = 0 plane. The second sum with the\r\n\"starred\" (*) superscripts describes the antisymmetric motion. Thus each\r\nRINGAX data card will produce six times (N+l) degrees of freedom for each\r\nseries.\r\n\r\n   The selection of symmetric or antisymmetric solutions is controlled by the\r\nAXISYM card in the Case Control Deck. For general loading conditions, a\r\ncombination of the symmetric and antisymmetric solutions must be made, using\r\nthe SYMCOM card in the Case Control Deck (Section 2.3 of User's Manual).\r\n\r\n   Since you are rarely interested in applying loads in terms of Fourier\r\nharmonics and interpreting your data by manually performing the above\r\nsummations, NASTRAN is provided with special cards which automatically perform\r\nthese operations. The POINTAX card is used like a GRID card to define physical\r\npoints on the structure for loading and output. Sections of the circle may be\r\ndefined by a SECTAX card, which defines a sector with two angles and a\r\nreferenced RINGAX card. The POINTAX and SECTAX cards define six degrees of\r\nfreedom each. The implied coordinate system for these points is a cylindrical\r\nsystem (r, , z) and their applied loads must be described in this coordinate\r\nsystem. Since the displacements of these points are dependent on the harmonic\r\nmotions, they nay not be constrained in any manner.\r\n\r\n   The conical shell element is connected to two RINGAX points with a CCONEAX\r\ncard. The properties of the conical shell element are described on the PCONEAX\r\ncard. The RINGAX points must be placed on the neutral surface of the element\r\nand the points for stress calculation must be given on the PCONEAX card\r\nrelative to the neutral surface. Up to fourteen angular positions around the\r\nelement may be specified for stress and force output. These values will be\r\ncalculated midway between the two connected rings.\r\n\r\n   The structure defined with RINGAX and CCONEAX cards must be constrained in\r\na special manner. All harmonics may be constrained for a particular degree of\r\nfreedom on a ring by using permanent single-point constraints on the RINGAX\r\ncards. Specified harmonics of each degree of freedom on a ring may be\r\nconstrained with a SPCAX card. This card is the same as the SPC card except\r\nthat a harmonic must be specified. The MPCAX, OMITAX, and SUPAX data cards\r\ncorrespond the MPC, OMIT, and SUPORT data except that harmonics must be\r\nspecified. SPCADD and MPCADD cards may be used to combine constraint sets in\r\nthe usual manner.\r\n\r\n   The stiffness matrix includes five degrees of freedom per grid circle per\r\nharmonic when transverse shear flexibility is included. Since the rotation\r\nabout the normal to the surface is not included, either the fourth or the\r\nsixth degree of freedom (depending upon the situation) must be constrained to\r\nzero when the angle between the meridional generators of two adjacent elements\r\nis zero. When the transverse shear flexibility is not included, only four\r\nindependent degrees of freedom are used, and the fourth and sixth degrees of\r\nfreedom must be constrained to zero for all rings. These constraints can be\r\nconveniently specified on the RINGAX card.\r\n\r\n   The conical shell structure may be loaded in various ways. Concentrated\r\nforces may be described by FORCE and MOMENT cards applied to POINTAX points.\r\nPressure loads may be input in the PRESAX data card which defines an area\r\nbounded by two rings and two angles. Temperature fields are described by a\r\npaired list of angles and temperatures around a ring as required by the TEMPAX\r\ncard. Direct loads on the harmonics of a RINGAX point are given by the FORCEAX\r\nand MOMAX card. Since the implied coordinate system is cylindrical, the loads\r\nare given in the r, , and z directions. The value of a harmonic load Fn is\r\nthe total load on the whole ring of radius r. If a sinusoidal load per unit\r\nlength of maximum value an is given, the value on the FORCEAX card must be\r\n\r\n   Fn  =  2 r an             n = 0 ,                               (2)\r\n\r\n   Fn  =   r  an             n > 0 .                               (3)\r\n\r\n   Displacements of rings and forces in conical shell elements can be\r\nrequested in two ways:\r\n\r\n   1. The harmonic coefficients of displacements on a ring or forces in a\r\n      conical element.\r\n\r\n   2. The displacements at specified points or the average value over a\r\n      specified sector of a ring. The forces in the element at specified\r\n      azimuths or average values over specified sectors of a conical element.\r\n\r\nHarmonic output is requested by ring number for displacements and conical\r\nshell element number for element forces. The number of harmonics that will be\r\noutput for any request is a constant for any single execution. This number is\r\ncontrolled by the HARMONICS card in the Case Control Deck (see Section 2.3).\r\n\r\n   The following element forces per unit of width are output either as\r\nharmonic coefficients or at specified locations on request:\r\n\r\n   -  Bending moments on the u and v faces\r\n\r\n   -  Twisting moments\r\n\r\n   -  Shearing forces on the u and v faces\r\n\r\n   The following element stresses are calculated at two specified points on\r\nthe cross-section of the element and output either as harmonic coefficients or\r\nat specified locations on request:\r\n\r\n   -  Normal stresses in u and v directions\r\n\r\n   -  Shearing stress on the u face in the v direction\r\n\r\n   -  Angle between the u-axis and the major principal axis\r\n\r\n   -  Major and minor principal stresses\r\n\r\n   -  Maximum shear stress\r\n\r\n   The manner in which the data cards for the CONEAX element (as well as for\r\nthe TRAPAX and TRIAAX elements) are processed is described in Section 1.3.7.3.\r\n\r\n1.3.6.2  Toroidal Ring (TORDRG) Element\r\n\r\n   The cylindrical coordinate system for the toroidal ring is implied by the\r\nuse of the toroidal element, and hence, no explicit definition is required.\r\nThe toroidal element may use orthotropic materials. The axes of orthotropy are\r\nassumed to coincide with the element coordinate axes.\r\n\r\n   Deformation behavior of the toroidal element is described by five degrees\r\nof freedom for each of the two grid rings which it connects. The degrees of\r\nfreedom in the implicit coordinate system are:\r\n      _\r\n   1. u - radial displacement\r\n\r\n   2. Not defined for toroidal element (must be constrained)\r\n      _\r\n   3. w  - axial displacement\r\n\r\n   4. w'  =  aw/ae  slope in e-direction\r\n\r\n   5. u'  =  au/ae  strain in e-direction\r\n\r\n   6. w'' =  a^2w/ae^2  curvature in ze-plane\r\n\r\n   The displacements u and w are in the basic coordinate system, and hence can\r\nbe expressed in other local coordinate systems if desired. However, the\r\nquantities u', w', and w'' are always in the element coordinate system.\r\n\r\n   The toroidal ring element connectivity is defined with a CTORDRG card and\r\nits properties with a PTORDRG card and, in the limit, this element becomes a\r\ncap element (see Section 5.10 of the Theoretical Manual). The integers 1 and 2\r\nrefer to the order of the connected grid points on the CTORDRG card. The grid\r\npoints must lie in the r-z plane of the basic coordinate system and they must\r\nlie to the right of the axis of symmetry. The angles 1 and 2 are the angles\r\nof curvature and are defined as the angle measured in degrees from the axis of\r\nsymmetry to a line which is perpendicular to the tangent to the surface at\r\ngrid points 1 and 2 respectively. For conic rings 1 = 2 and for cylindrical\r\nrings 1 = 2 = 90 degrees. Toroidal elements may be connected to form closed\r\nfigures in the r-z plane, but slope discontinuities are not permitted at\r\nconnection points.\r\n\r\n   The following forces, evaluated at each end of the toroidal element, are\r\noutput on request:\r\n\r\n   -  Radial force\r\n\r\n   -  Axial force\r\n\r\n   -  Meridional moment\r\n\r\n   -  A generalized force which corresponds to the w' degree of freedom.\r\n\r\n   -  A generalized force which corresponds to the w'' degree of freedom.\r\n\r\nThe first three forces are referenced to the global coordinate system and the\r\ntwo generalized forces are referenced to the element coordinate system. For a\r\ndefinition of the generalized forces see Section 5.10 of the Theoretical\r\nManual.\r\n\r\n   The following stresses, evaluated at both ends and the midspan of each\r\nelement, are output on request:\r\n\r\n   -  Tangential membrane stress (Force per unit length)\r\n\r\n   -  Circumferential membrane stress (Force per unit length)\r\n\r\n   -  Tangential bending stress (Moment per unit length)\r\n\r\n   -  Circumferential bending stress (Moment per unit length)\r\n\r\n   -  Shearing stress (Force per unit length)\r\n\r\n1.3.7  Axisymmetric Solid Elements\r\n\r\n   Two sets of elements are provided for representing thick axisymmetric shell\r\nand/or solid structures (see Section 5.11 of the Theoretical Manual). The\r\nfirst set, the triangular ring TRIARG and trapezoidal ring TRAPRG, is\r\nrestricted to axisymmetric applied loadings only. The second set is not\r\nrestricted to axisymmetric loadings and, like the conical shell element, their\r\ndisplacements and loads are represented by coefficients of a Fourier series\r\nabout the circumference. These elements, the TRIAAX and the TRAPAX, also\r\ndefine a triangular and a trapezoidal cross section respectively. The elements\r\nof one set may not be used together with elements of the other set nor with\r\nany other elements except the combination of TRIAAX and TRAPAX elements with\r\nthe conical shell element (CONEAX).\r\n\r\n1.3.7.1  TRIARG and TRAPRG Elements\r\n\r\n   The triangular and trapezoidal ring elements may be used for modeling\r\naxisymmetric thick-walled structures of arbitrary profile. In the limiting\r\ncase only the TRAPRG element may become a solid core element.\r\n\r\n   The coordinate systems for the triangular and trapezoidal ring elements are\r\nshown in Figures 1.3-10 and 1.3-11, respectively. The cylindrical system is\r\nimplied by the use of these ring elements. Hence, no explicit definition of\r\nthe basic cylindrical coordinate system is required. Cylindrical anisotropy is\r\noptional for the material properties in the ring elements. Orientation of the\r\northotropic axes in the (r,z) plane is specified by the angle . The\r\ndeformation behavior of the elements is described in terms of the translations\r\nin the r and z directions at each of the connected grid points. All other\r\ndegrees of freedom must be constrained.\r\n\r\n   The triangular ring element is defined with a CTRIARG card. No property\r\ncard is used for this element. The material property reference is given on the\r\nconnection card. The integers 1, 2, and 3 in Figure 1.3-10 refer to the order\r\nof the connected grid points on the CTRIARG card. This order must be counter-\r\nclockwise around the element. The grid points must lie in the r-z plane of the\r\nbasic cylindrical coordinate system, and they must lie to the right of the\r\naxis of symmetry.\r\n\r\n   The radial and axial forces at each connected grid point are output on\r\nrequest. The positive directions for these forces are shown in Figure 1.3-10.\r\nThese are apparent element forces and they include any equivalent thermal\r\nloads. The stresses at the centroid of an element are output on request. The\r\navailable quantities are the normal stresses in the radial, circumferential\r\nand axial directions, and the shear stress on the radial face in the axial\r\ndirection. Positive stresses are in the positive direction on the positive\r\nface.\r\n\r\n   The trapezoidal ring element is defined with a CTRAPRG card in a manner\r\nsimilar to that for a triangular element. This element is similar to the\r\ntriangular ring element. This element has the additional restriction that the\r\nelement numbering must begin at the lower left hand corner of the element.\r\nAlso, the parallel faces of the trapezoid must be perpendicular to the axis of\r\nsymmetry (see Figure 1.3-11). This element can be used in the limiting case\r\nwhere the r coordinates associated with grid points 1 and 4 are zero. In this\r\nspecial case the element is referred to as a core element.\r\n\r\n   The forces at the four connected grid points are provided on request in a\r\nmanner similar to that for a triangular element. In addition to providing the\r\nstresses at the four connected grid points of the trapezoid, similar stresses\r\nare provided at a point of average radius and average z-distance from the four\r\npoints.\r\n\r\n1.3.7.2  TRIAAX and TRAPAX Elements\r\n\r\n   The two solid of revolution elements which are provided for representing\r\nnonaxisymmetric loadings on axisymmetric structures with thick or solid cross\r\nsections are the TRIAAX and TRAPAX elements. These define a triangle and a\r\ntrapezoidal cross section of the structure. They are functionally similar to\r\nthe conical shell element (see Section 1.3.6) and physically similar to the\r\nTRAPRG and TRIARG axisymmetric ring elements described above (see Figures 1.3-\r\n10 and 1.3-11).\r\n\r\n   The elements are connected to RINGAX points which define displacement\r\ndegrees of freedom represented by coefficients of a Fourier series about the\r\ncircumference. Due to symmetry, the resulting load and deformation systems for\r\nthe different harmonic orders are uncoupled, resulting in large time savings\r\ncompared to a general three-dimensional model. Theoretical aspects of the\r\nsolid of revolution elements are treated in Section 5.11 of the Theoretical\r\nManual. Definitions of the Fourier series representation of the structural\r\ndisplacements and loads are given in Section 5.9 of the Theoretical Manual. As\r\nin the conical shell formulation, no other element types may be combined with\r\nthese elements.\r\n\r\n   The following special case control cards, used also with the conical shell\r\nproblem, are used with the solid of revolution elements:\r\n\r\nAXISYM - Defines whether the cosine series, sine series, or combination of\r\ndisplacements are to be calculated.\r\n\r\nHARMONICS - Limits the output to all harmonics up to and including the nth\r\nharmonic; default is 0.\r\n\r\n   The geometry of a problem using these elements is defined by the RINGAX\r\ncards. The harmonic limit in the Fourier expansion is defined by the required\r\nAXIC card. The RINGAX card does not allow a zero radius. However, a small\r\n\"hole\" may be defined around the axis of revolution. To avoid inaccuracies, a\r\nwarning is issued for each element whose inner radius is less than one-tenth\r\nits outer radius. Property cards PTRAPAX and PTRIAAX are used to identify the\r\nmaterial and the circumferential locations for stress output. The material\r\ntype is limited to MAT1 and MAT3 definitions. The following bulk data cards,\r\nalso used with the conical shell elements, are available with the solid of\r\nrevolution elements:\r\n\r\nAXIC - Defines limit of displacement Fourier series.\r\n\r\nSPCAX - Defines single point constraints and enforced displacements on\r\nspecified degrees of freedom.\r\n\r\nMPCAX - Defines multipoint constraints connecting specified degrees of\r\nfreedom.\r\n\r\nOMITAX - Defines degrees of freedom to be removed by structural partitioning.\r\n\r\nSUPAX - Defines free-body support points.\r\n\r\nPOINTAX - Defines circumferential location on a RINGAX station for applied\r\nloading and/or output.\r\n\r\nSECTAX - Defines a circumferential sector on a RINGAX station for distributed\r\napplied forces.\r\n\r\nFORCE - Defines a concentrated force at a POINTAX or load per length at a\r\nSECTAX location on the structure.\r\n\r\nFORCEAX - Defines a generalized force directly on a specified harmonic of a\r\nRINGAX station.\r\n\r\nPRESAX - Defines a pressure load.\r\n\r\nTEMPAX - Defines a temperature distribution at a RINGAX point for thermal\r\nloading and temperature-dependent matrices.\r\n\r\n   The implied coordinate system for the solid of revolution elements is a\r\ncylindrical coordinate system (r, , z). The rotational degrees of freedom\r\n(components 4, 5, and 6) must be constrained.\r\n\r\n   The output quantities for the RINGAX points are the displacement\r\ncoefficients for each harmonic. The output for the POINTAX degrees of freedom\r\nare the sum of the harmonics giving the physical displacements at the point,\r\nwhile the output for the SECTAX points are the average displacements over the\r\ncircumferential sector. These quantities are available only in SORT1 format.\r\n\r\n   The stress output for these elements is similar to that for the TRIARG and\r\nTRAPRG elements described above. However, since the stresses vary around the\r\ncircumference, each element output includes the Fourier coefficients of stress\r\nfor each harmonic, followed by the stresses at the angular locations specified\r\non the property card. Stresses are calculated at the centroid of the cross\r\nsection on the TRIAAX element. Stresses are calculated at the four corners as\r\nwell as at a fifth \"grid point\" on the TRAPAX element, which is located an\r\naverage radius and average length from the four corner points.\r\n\r\n1.3.7.3  Data Processing for the CONEAX, TRAPAX, and TRIAAX Axisymmetric Elements\r\n\r\n   The data cards submitted by you for the CONEAX, TRAPAX, and TRIAAX\r\naxisymmetric elements are processed by the NASTRAN Preface to produce\r\nequivalent grid point, element connection, constraint, and load data card\r\nimages. Each specified harmonic, n, of the Fourier series solution produces a\r\ncomplete set of these special data card images. In order to retain unique\r\ninternal identification numbers for each harmonic, your (or external)\r\nidentification numbers are encoded by the following algorithms.\r\n\r\nRINGAX Cards\r\n\r\nNASTRAN (or internal) grid ID = Your (or external) ring ID + 1,000,000 x n\r\n\r\n(n = 1, 2, 3, ..., N, where N = highest harmonic defined on the AXIC card)\r\n\r\nCONEAX, TRAPAX, and TRIAAX Connection Cards\r\n\r\nNASTRAN (or internal) element ID = Your (or external) element ID x 1,000 + n\r\n(n = 1, 2, 3, ..., N)\r\n\r\n   The exact manner in which the above data cards as well as other data cards\r\nfor these elements are processed by the NASTRAN Preface is fully described in\r\nSection 4.6.7 of the Programmer's Manual.\r\n\r\n   You should use the NASTRAN (or internal) identification numbers (and not\r\nyour or external identification numbers) in specifying the data for plotting\r\npurposes. (See, for instance, the description of the SET card in Section\r\n4.2.2.4.)\r\n\r\n1.3.8  Scalar Elements\r\n\r\n   Scalar elements are connected between pairs of degrees of freedom (at\r\neither scalar or geometric grid points) or between one degree of freedom and\r\nground. Scalar elements are available as springs, masses, and viscous dampers.\r\nScalar spring elements are useful for representing elastic properties that\r\ncannot be conveniently modeled with the usual metric structural elements.\r\nScalar masses are useful for the selective representation of inertia\r\nproperties, such as occurs when a concentrated mass is effectively isolated\r\nfor motion in one direction only. The scalar damper is used to provide viscous\r\ndamping between two selected degrees of freedom or between one degree of\r\nfreedom and ground. It is possible, using only scalar elements and\r\nconstraints, to construct a model for the linear behavior of any structure.\r\nHowever it is expected that these elements will be used only when the usual\r\nmetric elements are not satisfactory. Scalar elements are useful for modeling\r\npart of a structure with its vibration modes or when trying to consider\r\nelectrical or heat transfer properties as part of an overall structural\r\nanalysis. The reader is referred to Sections 5.5 and 5.6 of the Theoretical\r\nManual for further discussions on the use of scalar elements.\r\n\r\n   The most general definition of a scalar spring is given with a CELAS1 card.\r\nThe associated properties are given on the PELAS card. The properties include\r\nthe magnitude of the elastic spring, a damping coefficient, and a stress\r\ncoefficient to be used in stress recovery. The CELAS2 card defines a scalar\r\nspring without reference to a property card. The CELAS3 card defines a scalar\r\nspring that is connected only to scalar points and the properties are given on\r\na PELAS card. The CELAS4 card defines a scalar spring that is connected only\r\nto scalar points and without reference to a property card. No damping\r\ncoefficient or stress coefficient is available with the CELAS4 card.\r\n\r\n   Scalar elements may be connected to ground without the use of constraint\r\ncards. Grounded connections are indicated on the connection card by leaving\r\nthe appropriate scalar identification number blank. Since the values for\r\nscalar elements are not functions of material properties, no references to\r\nsuch cards are needed.\r\n\r\n   The CDAMP1, CDAMP2, CDAMP3, and CDAMP4 cards define scalar dampers in a\r\nmanner similar to the scalar spring definitions. The associated PDAMP card\r\ncontains only a value for the scalar damper.\r\n\r\n1.3.9  Mass\r\n\r\n   Inertia properties are specified directly as mass elements attached to grid\r\npoints and indirectly as the properties of matrix structural elements. In\r\naddition, dynamic analysis mass matrix coefficients may be specified that are\r\ndirectly referred to the global coordinate system. Some portions of the mass\r\nmatrix are generated automatically while other portions are not. Mass data may\r\nbe assembled according to two different kinds of relationships: lumped mass\r\nassumptions or coupled mass considerations. Additional information on\r\ntreatment of inertia properties is given in Section 5.5 of the Theoretical\r\nManual.\r\n\r\n1.3.9.1  Lumped Mass\r\n\r\n   The partitions of the lumped mass matrix are explained in Section 5.5.3 of\r\nthe Theoretical Manual, but to aid you the form is repeated here in Equation\r\n1.\r\n\r\n                                                    \r\n          Scalar  1st             m       N       \r\n                  Moment           ij      ij     \r\n   M =        =                 (1)\r\n          1st     2nd                T    I       \r\n          Moment  Moment          N        ij     \r\n                                    ij              \r\n\r\n   The only portion of the lumped mass matrix that is automatically generated\r\nis the scalar partition. This implies that no first moment and second moment\r\nterms for the lumped mass matrix are automatically generated. In this context,\r\nautomatic generation means the calculation of the mass from the structural\r\nelements that are connected to a given grid point, solely from the information\r\nprovided on the element connection and property card. All of the metric\r\nstructural elements (rods, bars, shear panels, twist panels, plates, and shell\r\nelements) may have uniformly distributed structural and nonstructural mass.\r\nStructural mass is calculated from material and geometric properties. The mass\r\nis assumed to be concentrated in the middle surface, or along the neutral axis\r\nin the case of rods and bars, so that rotary inertia effects, including the\r\ntorsional inertia of beams, are absent.\r\n\r\n   In the lumped mass method, the mass of an element is simply divided into\r\nequal portions and each portion is assigned to only one of the surrounding\r\ngrid points. Thus, for uniform rods and bars, one-half of the mass is placed\r\nat each end; for uniform triangles, one-third of the mass is placed at each\r\ncorner; quadrilaterals are treated as two pairs of overlapping triangles (see\r\nthe Theoretical Manual Sections 5.3 and 5.8). The lumped mass matrix is\r\nindependent of the elastic properties of elements. There are no other\r\nautomatic routines for providing mass terms for the lumped mass approach.\r\n\r\n1.3.9.2  Coupled Mass\r\n\r\n   In the coupled mass approach, properties of mass pertaining to a single\r\nstructural element include off-diagonal coefficients that couple action at\r\nadjacent grid points. For further amplification of the techniques used in the\r\ncoupled mass approach see Section 5.5.3 of the Theoretical Manual. To invoke\r\nthe automatic generation of the coupled mass matrix, the parameter COUPMASS is\r\nindicated on the PARAM card. If selected coupled mass properties are desired\r\nonly for certain element types, this is obtained by a second parameter call\r\nspecifying the element. For further details see the PARAM bulk data card. When\r\nusing COUPMASS, the nonzero terms are generated in off-diagonal positions of\r\nthe mass matrix corresponding generally to nonzero terms of the stiffness\r\nmatrix. This implies that a mass matrix generated by the coupled mass approach\r\nwill generally have a density and topology equivalent to that of the stiffness\r\nmatrix.\r\n\r\n   Off-diagonal mass terms may also be created during Guyan reduction when the\r\nOMIT or ASET bulk data cards are used to condense the stiffness and mass\r\nmatrices. Any mass associated with the omitted degrees of freedom will be\r\nredistributed to the remaining degrees of freedom forming a coupled mass\r\nmatrix. The use of multipoint constraints (MPC cards) with mass terms on the\r\ndependent degrees of freedom produces a similar effect. The mass on the\r\ndependent coordinate will be transformed to the connected independent\r\ncoordinates, thereby coupling them together. Mathematically, these operations\r\nand the element coupled mass formulations described above are closely related.\r\n\r\n1.3.9.3  Mass Input\r\n\r\n   In many cases it may be desired to add mass terms to the structure in\r\naddition to those generated by the structural elements. For instance, in a\r\nlumped mass formulation any additional masses involving rotational degrees of\r\nfreedom must be independently calculated and input manually via bulk data\r\ncards.\r\n\r\n   The concentrated mass elements CONM1 and CONM2 may be used to add mass\r\nterms directly to a single grid point. The CONM2 element is used to specify a\r\nrigid body with mass and inertia properties that is connected to a single grid\r\npoint (offsets are allowed). The CONM1 element has a more general input format\r\nto allow directional mass terms.\r\n\r\n   The notation on the CONM1 card is explicit; that is, subscripting of each\r\nterm spans the degree of freedom range from 1 through 6. On the CONM2 card,\r\ndouble subscripting is used only for the second moment partition. Therefore,\r\nthe correspondence for symbols between CONM1 entries and CONM2 entries for the\r\nsecond moment partition is as follows: I11, I21, I22, I31, I32, and I33 on the\r\nCONM2 card (defined in Theoretical Manual section 5.5.2.2 by the integrals of\r\nEquations 13, 14, and 15) correspond to M44, M54, M55, M64, M65, and M66 on\r\nCONM1 (M54 = -Ixy, M64 = -Ixz, M65 = -Iyz) with sign changes on the off-\r\ndiagonal terms as shown in Equation 10 of the referenced section. The program\r\nmultiplies each cross product of inertia term from CONM2 user data by (-1)\r\nbefore assembling this data into the mass matrix, to make it correspond to the\r\nrequirements of Equation 10.\r\n\r\n   An alternative to specifying mass information for the lumped mass method is\r\nto use the CMASSi and the PMASSi cards. This allows the option of treating\r\nmass as finite elements, one degree of freedom at a time. A particularly\r\nadvantageous feature of the CMASSi card is the ability to couple mass terms\r\nbetween grid points and/or scalar points. When dynamic rigid formats are used,\r\nthe direct matrix input (DMIG) may be used to supply grid point mass data.\r\nWhen mass information is entered via DMIG cards, it will remain dormant until\r\nactivated by a call from Case Control via the M2PP card.\r\n\r\n   When a DMAP sequence is used or a rigid format is ALTERed, another form is\r\navailable for presenting mass information via the DMI card. The DMI card is\r\nnot recognized as a legitimate source of bulk data for the rigid formats,\r\nunless an ALTER is used.\r\n\r\n   In all cases a combination of mass input can be used. For instance, the\r\ntranslational inertias can be generated automatically by the element routines,\r\nwhile the first and second moment properties can be provided through CONM2\r\ncards. Some elements can be used to provide coupled mass properties through\r\nthe COUPMASS parameter, while other contributions to the same grid points can\r\nbe made by direct matrix input through DMIG cards. The information from these\r\nseveral sources will be summed in the formation of the final mass matrix.\r\n\r\n1.3.9.4  Output from the Grid Point Weight Generator\r\n\r\n   The Grid Point Weight Generator (GPWG) module computes the rigid body mass\r\nproperties of an entire structure with respect to your specified point and\r\nwith respect to the center of mass.\r\n\r\n   Output from the module is requested by a PARAM card in the Bulk Data Deck\r\nwhich specifies from which grid point mass computations are to be referenced.\r\nOptionally, the absence of a specific grid point automatically causes the\r\norigin of the basic coordinate system to be utilized as a reference. The mass\r\nproperties are initially defined in the basic coordinate system. Subsequently,\r\nthe mass properties are transformed to principal mass axes and to principal\r\ninertia axes. The actual printout is composed of several elements. These are\r\n\r\n1. Title MO - RIGID BODY MASS MATRIX IN BASIC COORDINATE SYSTEM\r\n\r\n   This is the rigid body mass matrix of the entire structure in the basic\r\ncoordinate system with respect to a reference point chosen by the analyst.\r\n\r\n2. Title S - TRANSFORMATION MATRIX FOR SCALAR MASS PARTITION\r\n\r\n   S is the transformation from the basic coordinate system to the set of\r\nprincipal axes for the 3 x 3 scalar mass partition of the 6 x 6 mass matrix.\r\nThe principal axes for just the scalar partition are known as the principal\r\nmass axes.\r\n\r\n3. Title X-C.G. Y-C.G. Z-C.G.\r\n\r\n   It is possible in NASTRAN to assemble a structural model having different\r\nvalues of mass in each coordinate direction at a grid point. This can arise\r\nfor example assembling scalar mass components or from omitting some components\r\nby means of bar element pin flags. Consequently three distinct mass systems\r\nare assembled, one in each of the three directions of the principal mass axes\r\n(the S system). This third tabulation has five columns. The first column lists\r\nthe axis direction in the S coordinates. The second column lists the mass\r\nassociated with the appropriate axis direction. The final three columns list\r\nthe x, y, and z coordinate distances from the reference point to the center of\r\nmass for each of the three mass systems.\r\n\r\n4. Title I(S) - INERTIAS RELATIVE TO C.G.\r\n\r\n   This is the 3 x 3 mass moment of inertia partition with respect to the\r\ncenter of gravity referred to the principal mass axes (the S system). This is\r\nnot necessarily a diagonal matrix because the determination of the S system\r\ndoes not involve second moments. The values of inertias at the center of\r\ngravity are found from the values at the reference point by employing the\r\nparallel axes rule.\r\n\r\n5. Title I(Q) - PRINCIPAL INERTIAS\r\n\r\n   The principal moments of inertia at the center of gravity are displayed in\r\nmatrix form with reference to the Q system of axes. The Q system is obtained\r\nfrom an eigenvalue analysis of the I(S) matrix.\r\n\r\n6. Title Q - TRANSFORMATION MATRIX --I(Q) = QT*I(S)*Q\r\n\r\n   Q is the coordinate transformation between the S axes and the Q axes.\r\n\r\n1.3.9.5  Bulk Data Cards for Mass\r\n\r\n   A summary chart is given in Table 1.3-1 to help in the selection of the\r\nmethod of input for a given type of mass information. Descriptions of\r\nindividual cards for the entering of mass information into the bulk data are\r\nlisted here:\r\n\r\n1. Element data from the combined sources of C(-), P(-), and MATi cards will\r\nautomatically cause the translational mass (scalar) terms of the mass matrix\r\nto be generated, provided a density value and/or a nonstructural density\r\nfactor is entered.\r\n\r\n2. The MASSi cards define scalar masses. CMASSi cards define connections\r\nbetween a pair of degrees of freedom (at either scalar or geometric grid\r\npoints) or between one degree of freedom and ground. Thus, f1 = m(x1 - x2)\r\nwhere x2 may be absent. The CMASS1 cards (i = 1 through 4) are necessary\r\nwhenever scalar points are used. PMASSi cards define mass property magnitudes.\r\nOther applications include selective representations of inertia properties,\r\nsuch as occur in shell theory where in-plane inertia forces are often ignored.\r\n\r\n3. The CONM2 card defines the properties of a solid body: m, its mass, x1, x2,\r\nx3, the three coordinates of its center of gravity offset with respect to the\r\ngrid point, I11, I22, I33, its three moments of inertia, and I12, I13, I23,\r\nand its three products of inertia, all with respect to any (selected)\r\ncoordinate system. If a local cylindrical or a spherical coordinate system is\r\nchosen to define the mass properties, the offset distances of the mass c.g.\r\nfrom the grid point are measured along the axes (r, , z or p, , ) defined\r\nat the grid point in that local system. Also note, that the mass properties of\r\ninertia are computed relative to a set of axes at the mass c.g. which are\r\nparallel to those r, , z or p, ,  axes at that grid point. The CONM2\r\nelement routine uses the parallel axis theorem to transform inertias with\r\nrespect to the center of gravity to inertias with respect to the grid point.\r\nSection 5.5.2.1 of the Theoretical Manual describes how to treat the signs of\r\ncross products of inertia terms on CONM2 cards.\r\n\r\n4. The CONM1 card defines a 6 x 6 matrix of mass coefficients at a geometric\r\ngrid point in any selected coordinate system. Since the only restrictions are\r\nthat the matrix be real and symmetric, there are 21 possible independent\r\ncoefficients. The CONM1 card therefore permits somewhat more general inertia\r\nrelationships than those of a solid body which has only 10 independent inertia\r\nproperties. This should be remembered in applications requiring unique centers\r\nof gravity, such as in the calculation of centrifugal forces. See Section\r\n5.5.2.5 of the Theoretical Manual for a discussion of inertia properties\r\nresulting from CONM1 card input.\r\n\r\n5. The DMIG (or DMIGAX for axisymmetric structures) card accommodates matrix\r\nentries by grid point and component. This is a general card that can be used\r\nfor mass, stiffness, or damping matrices. It becomes particularized to mass\r\nwhen the name given to the matrix is called by an M2PP card in Case Control.\r\nData defined by this card will be recognized as admissible only when used with\r\ndynamic rigid formats 7 through 12.\r\n\r\n6. The DMI card is used to assign values according to row-column positions in\r\na matrix. This is a general card for any kind of matrix which becomes\r\nparticularized to mass when the name given to the matrix is called from a DMAP\r\nstatement. Data defined by this card will be recognized as admissible only\r\nwhen used in a DMAP sequence or in an ALTER to a rigid format.\r\n\r\n7. The COUPMASS entry on the PARAM card will activate the \"consistent\" mass\r\nmatrix algorithms in the element routines which generate mass coupling\r\nproperties between grid points. There are three options available to regulate\r\nwhether the coupling properties are generated for all or some types of\r\nelements (see PARAM bulk data card). A set of entries for a second PARAM card\r\nof the form CP(element name) is available for use in connection with COUPMASS\r\nfor selecting the element types for which coupling terms will be computed.\r\n\r\n8. The OMIT (or OMIT1, or OMITAX for axisymmetric structures, or ASET for\r\nobverse operations) card will cause the initially-generated mass matrix to be\r\ncondensed from the omitted degrees of freedom to the remaining degrees of\r\nfreedom. The condensing process generally produces a mass term in every matrix\r\nposition in which there is a nonzero stiffness term in the corresponding\r\nreduced stiffness matrix.\r\n\r\n9. The GRDPNT entry on the PARAM card will activate the Grid Point Weight\r\nGenerator (GPWG) module previously discussed. It will treat the mass\r\nproperties of the entire structure as though the structure were rigid and it\r\nwill determine the translational (scalar) mass properties, the first and\r\nsecond moment properties of the rigid body structure, and the center of\r\ngravity distances with respect to your specified reference grid points. It\r\nalso computes the 6 x 6 matrix of mass properties with respect to the center\r\nof mass and the orientation of the principal mass axes.\r\n=PAGE=\r\nTable 1.3-1. Bulk Data Card Choices for Mass Properties Versus Method of Mass \r\nRepresentation. \r\n\r\n\r\n                                 Representation Method\r\n              \r\n                         Lumped                    Coupled       Grid\r\n              Ĵ Point\r\n              Automatic        Manual        Automatic  Manual Weight\r\n                        Ĵ                   Generator\r\n                        All   R.F.s DMAP                     (Total\r\n                        R.F.s 7,8,9 or R.F                    Structure)\r\nMass Property                       ALTER                   \r\n\r\nTranslational Element   MASSiMASSi DMI    PARAM      DMIG   PARAM GRDPNT\r\nMass (Scalar) Routines  CONM1CONM1       COUPMASS + DMIGAX      \r\n              C (elem.)+CONM2CONM2       PARAM CP              \r\n              P (elem.)+    DMIG        (element)             \r\n              MATi          DIMGAX      OMIT                  \r\n              for struct               OMIT1                 \r\n              and non-                 OMITAX                \r\n              struct.                  ASET                  \r\n              contribs.                                     \r\nĴ                                    \r\nFirst Moment                                                \r\nĴ                                    \r\nSecond Moment*                                              \r\nĴ                \r\nAll Order                                                    \r\nMoments and                                                  \r\nOff-Diagonal                                                 \r\nProperties                                                   \r\nBetween                                                      \r\nGrid Points                                                  \r\n\r\n\r\n* No torsional moment of inertia is generated for BAR elements when COUPMASS\r\nand CPBAR are specified. Also, in the case of plate elements, no second moment\r\nproperties are computed with respect to the axis normal to the elements.\r\n\r\n1.3.10  Solid Polyhedron Elements\r\n\r\n   Three types of solid polyhedron elements are provided for the general solid\r\nstructures (see Section 1.3.7 for axisymmetric structures with axisymmetric\r\nloads). These elements (see Figure 1.3-12) are a tetrahedron, a wedge, and a\r\nhexahedron. The theory is given in Section 5.12 of the Theoretical Manual.\r\nThese elements can be used with all other NASTRAN elements, except the\r\naxisymmetric elements. Connections are made only to displacement degrees of\r\nfreedom at the grid points.\r\n\r\n   The elements are defined by CTETRA, CWEDGE, CHEXA1, and CHEXA2 connection\r\ncards. You should specify grid locations such that the quadrilateral faces are\r\nnearly planar. No special element coordinate system is required. The only\r\nproperties required are material properties; thus no PID card is referenced;\r\ndirect reference is made to a MID card. For thermal stress problems, the\r\ntemperature is assumed to be the average of the connected grid points.\r\nDifferential stiffness, buckling, and piecewise linear analyses have not been\r\nimplemented.\r\n\r\n   The output stresses are given in the basic coordinate system. In addition\r\nto the six normal and shear stresses, output also includes the pressure\r\n\r\n   po = - 1/3 (x + y + z)\r\n\r\nand the octahedral stress\r\n\r\n                      2            2            2       2       2       2 1/2\r\n   o  = 1/3[(x - y)  + (y - z)  + (z - x)  + 6yz  + 6zx  + 6xy )\r\n\r\nThe stresses in the tetrahedra are constant. The stresses in the wedge and the\r\nhexahedron are obtained as the weighted average of the stresses in the\r\nsubtetrahedra. The weighting factor for each tetrahedron is proportional to\r\nits volume.\r\n\r\n1.3.11  Isoparametric Solid Hexahedron Elements\r\n\r\n   Three types of isoparametric solid hexahedron elements are provided for\r\ngeneral solid structures. These elements (see Figure 1.3-13) are a linear, a\r\nquadratic, and a cubic isoparametrIc hexahedron. The theory is given in\r\nSection 5.13 of the Theoretical Manual. These elements can be used with all\r\nother NASTRAN elements, except the axisymmetric elements. Connections are made\r\nonly to the translational degrees of freedom at the grid points. The elements\r\nare defined by CIHEX1, CIHEX2, and CIHEX3 connection cards. All three of these\r\ncards reference the PIHEX property card. These elements may use anisotropic\r\nmaterials by reference to a MAT6 card on the PIHEX card.\r\n\r\n   The isoparametric solid hexahedron elements allow you to accurately define\r\na structure with fewer elements and grid points than might otherwise be\r\nnecessary with simple constant strain solid elements. The linear element\r\ngenerally gives best results for problems involving mostly shear deformations,\r\nand the higher order elements give good results for problems involving both\r\nshearing and bending deformations. Only a coupled mass matrix is generated to\r\nretain the inherent accuracy of the elements. Temperature, temperature-\r\ndependent material properties, displacements, and stresses may vary through\r\nthe volume of the elements. The values at interior points of the element are\r\ninterpolated using the isoparametric shape function. For best results, the\r\napplied grid point temperatures should not have more than a \"gentle\" quadratic\r\nvariation in each of the three dimensions of the element. If the element has\r\nnon-uniform applied temperatures, or if it is not a rectangular\r\nparallelopiped, three or more integration points should be specified on the\r\nPIHEX card. Severely distorted element shapes should be avoided.\r\n\r\n   Stiffness, mass, differential stiffness, structural damping, conductance,\r\nand capacitance matrices may be generated with these elements. Piecewise\r\nlinear analysis has not been implemented.\r\n\r\n   The output stresses are given in the basic coordinate system. The stresses\r\nare assumed to vary through the element. Therefore, stresses are computed at\r\nthe center and at each corner grid point of these elements. For the quadratic\r\nand cubic elements, they are also computed at the mid-point of each edge of\r\nthe element. In addition to the six normal and shear stresses, output also\r\nincludes the principal stresses (Sx, Sy, and Sz), the direction cosines of the\r\nprincipal planes, the mean stress\r\n\r\n   n = - 1/3 (x + y + z)\r\n\r\nand the octahedral shear stress\r\n\r\n                      2            2            2  1/2\r\n   o = {1/3[(Sx + n)  + (Sy + n)  + (Sz + n) ]}\r\n\r\n1.3.12  Shallow Shell Element\r\n\r\n   A higher order shallow triangular shell element (TRSHL) formulated from the\r\nTRIM6 and TRPLT1 elements is available. The inplane and bending properties are\r\ncoupled and the geometry of the element may be curved. If the element is flat\r\nand either the inplane or bending properties are negligible, the element\r\ndegenerates to the TRPLT1 or TRIM6 element, respectively.\r\n\r\n   The element has grid points at the vertices and at the midpoints of the\r\nsides of the triangle (see Figure 1.3-14). At each grid point, there are five\r\ndegrees of freedom in the element coordinate system: that is, the membrane\r\ndisplacements, u and v, parallel to the x and y axes, the transverse\r\ndisplacement, w, in the z-direction normal to the x-y plane (with positive\r\ndirection outward from the paper) and the rotations of the normal to the\r\nshell,  and , about the x-z and y-z planes (with positive directions\r\nfollowing from the right-hand rule). The element, thus, has 30 degrees of\r\nfreedom in the element coordinate system.\r\n\r\n   The membrane displacements, u and v, for the shell are expressed as\r\nquadratic polynomials and are the same as for the higher order membrane\r\ntriangular element, TRIM6. The displacement function for the normal\r\ndeflection, w, is taken as a quintic polynomial as in the higher order bending\r\ntriangular element, TRPLT1. The geometry of the shell surface is approximated\r\nby a quadratic polynomial in basic coordinates. Shallow shell theory is used\r\nto include the membrane-bending coupling effects. Thus, the element should be\r\nused only in cases where the shell is truly shallow. However, reasonably good\r\naccuracy is seen even when the elements are used to analyze shells that are\r\nonly marginally shallow. You are cautioned, however, to be careful while\r\ninterpreting results obtained when the shell analyzed is very deep. Due to the\r\nexcessive computation time associated with such calculations, the transverse\r\nshear flexibility is not taken into account in the element formulation.\r\nFurther discussion of this element is treated in Section 5.14 of the\r\nTheoretical Manual.\r\n\r\n   The connectivity of this element is described by a CTRSHL card and the\r\nproperties are defined by a PTRSHL card. The element may be used in the\r\nstatics, normal modes, and differential stiffness rigid formats. Loads may be\r\nmechanical or thermal.\r\n\r\n   Element forces per unit width are output for the following quantities:\r\n\r\n   -  Bending moments on the x and y faces\r\n\r\n   -  Twisting moment\r\n\r\n   -  Shear forces on the x and y faces\r\n\r\nThe element forces are calculated at the three corners and the centroid. The\r\nsign conventions for these forces are the same as previously discussed in\r\nSection 1.3.5.\r\n\r\n   Stresses are output for the following quantities:\r\n\r\n   -  Normal stresses in the x and y directions\r\n\r\n   -  Shear stress on the x face in the y direction\r\n\r\n   -  Angle between the x-axis and the major principal axis\r\n\r\n   -  Major and minor principal stresses (zero shear)\r\n\r\n   -  Maximum shear stress\r\n\r\nThe stresses will be calculated at the specified fiber distances from the\r\nelastic axis defined on the property card and are always calculated at the top\r\nand bottom fibers for the centroid of the element. The sign conventions for\r\nthe stresses are the same as previously discussed in Section 1.3.5.\r\n=PAGE=\r\n                               y  b(grid) x\r\n                               I2=Iyy  /\r\n                                    wb/b(end)\r\n                               Plane 1/\r\n                                V1/ /\r\n(a) Element coordinate           / /\r\n    system                      /  /\r\n                               /  /   /Plane 2\r\n                                 /   /\r\n                                /   /\r\n                         wa    /   /\r\n                        z\r\n                      a(grid)  a(end)     I1=Izz\r\n\r\n\r\n\r\n                            y                    v1\r\n                                                \r\n                                                \r\n                                                \r\n               M1a (inplane)Ŀ    M1b (inplane)\r\n            Fx Ŀ  x\r\n               T (CCW              Fx    T (CCW\r\n                 about x)  a     Plane 1     b                 about Tx)\r\n                         v1\r\n\r\n\r\n\r\n                            z                    v2\r\n(b) Element forces                              \r\n                                                \r\n                                                \r\n               M2a (inplane)Ŀ    M2b (inplane)\r\n               Ŀ  x\r\n                           \r\n                                 Plane 2\r\n                         v2\r\n\r\n\r\n        Figure 1.3-1. Bar element coordinate system and element forces\r\n=PAGE=\r\n                   P                        P\r\n                 <                    >\r\n               x\r\n               T     a                    b       T (clockwise about x)\r\n               (counterclockwise\r\n                about x)\r\n\r\n        Figure 1.3-2. Rod element coordinate system and element forces\r\n=PAGE=\r\n                              y\r\n                              \r\n                              \r\n                              4            3\r\n                              Ŀ\r\n  (a) Coordinate system                    \r\n                                           \r\n                                           \r\n                                           \r\n                              x\r\n                               1            2\r\n\r\n\r\n\r\n                            K4                 K3\r\n                               \\ F41              \\ F32\r\n                                \\      q3    \\\r\n                            F43F34\r\n                                 4                3\r\n                                                   \r\n  (b) Corner forces and                            \r\n      shear flows                                  q2\r\n                                                   \r\n                              q4                    \r\n                                                   \r\n                            K1                K2   \r\n                               \\                 \\ \r\n                                \\                 \\\r\n                            F12F21\r\n                                  1     q1      2\r\n                                 F14                F23\r\n\r\n\r\nFigure 1.3-3. Coordinate system and element forces for shear panel and CQDMEM2\r\nelements\r\n=PAGE=\r\n                              y         M13\r\n                                        \\\r\n                                         \\\r\n                              4           \\ 3\r\n                              Ŀ    M24\r\n                             /                /\r\n                            /                /\r\n                           /                /\r\n                       M24                 /\r\n                              x\r\n                             1 \\            2\r\n                                \\\r\n                                 \\\r\n                                    M13\r\n\r\n\r\n        Figure 1.3-4. Twist panel coordinate system and element forces\r\n=PAGE=\r\n                              y\r\n                              \r\n                             3\\\r\n                               \\\r\n                                \\\r\n                                 \\\r\n                                  \\\r\n                                   \\\r\n                                    \\\r\n                                     \\\r\n                                      \\\r\n                                 /     \\\r\n                                /       \\\r\n                               /        \\\r\n                              x\r\n                               1           2\r\n\r\n                                       (a)\r\n\r\n\r\n\r\n                              y\r\n                              \r\n                              \r\n                             4Ŀ3\r\n                                             \r\n                                             \r\n                                             \r\n                                 /           \r\n                                /            \r\n                               /            \r\n                              x\r\n                               1              2\r\n\r\n                                       (b)\r\n\r\n\r\n          Figure 1.3-5. Plate and membrane element coordinate systems\r\n=PAGE=\r\n                                            Vy\r\n                                            \r\n                                            \r\n  (a) Plate element forces                  My\r\n                                           /\r\n                                 y        /\r\n                                /       Mxy\r\n                        Mx     /\r\n                       /      Ŀ\r\n                      /      /                  /\r\n                     /      /                  / \r\n             MxyĿ   z  /                  / /        Vx\r\n                        /                  / /         \r\n                       /                  / /          \r\n                   Vx   Ŀ /           Mxy\r\n                                          /x      /\r\n                                   /\r\n                                                     Mx\r\n                               Mxy\r\n                              /\r\n                             /\r\n                            /\r\n                     MyĿ\r\n                           \r\n                           \r\n                          Vy\r\n\r\n\r\n\r\n                                        \r\n                                         y\r\n                                        \r\n                                        \r\n  (b) Membrane element stresses               xy\r\n                                    Ŀ\r\n                                             \r\n                                         \r\n                             x                    x\r\n                                          \r\n                                 xy \r\n\r\n                                     \r\n                                        \r\n                                        \r\n                                         y\r\n\r\n\r\n       Figure 1.3-6. Forces and stresses in plate and membrane elements\r\n=PAGE=\r\n                             z          uz - displacement coordinates\r\n                                       \r\n                                       z (rotation)\r\n                                 u        ur\r\n                                   \\      /\r\n                                  \\    /r (rotation)\r\n                             (rotat.)\\  /\r\n                                      \\/\r\n                                       /\r\n                                      /\r\n                                     /\r\n                                 RB /\r\n                                   /\r\n                                  /\r\n                                 /    /\r\n                                /    /\r\n                               /    /\r\n                              /    /\r\n                             /   / RA\r\n                             /\r\n                                /\r\n                               /\r\n                              /\r\n                             /\r\n                             \r\n\r\n               Figure 1.3-7. Geometry for conical shell element\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n             Figure 1.3-8. Toroidal ring element coordinate system\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n                  Figure 1.3-9. Stresses for toroidal element\r\n=PAGE=\r\n         z,w,Fz\r\n           \r\n           \r\n                                     3\r\n                                     /\\\r\n                                    /  \\\r\n                                   /    \\\r\n                                  /      \\   w2,Fz2\r\n                                 /        \\  \r\n                                /          \\ \r\n  Axis of                      /            \\\r\n  symmetry                     u2,Fr2\r\n                              1              2\r\n           \r\n           \r\n           \r\n           \r\n           \r\n               /\r\n              /\r\n             /\r\n            /\r\n           /  (Material orientation)\r\n           r,u,Fr\r\n\r\n           Figure 1.3-10. Triangular ring element coordinate system\r\n=PAGE=\r\n          z,w\r\n           \r\n           \r\n           \r\n                                  4    Z3=Z4      3\r\n                                   \r\n                                  /              /\r\n                                 /              /\r\n                                /              /\r\n                               /              /\r\n  Axis of                     /              /\r\n  symmetry                    \r\n                             1    Z1=Z2      2\r\n           \r\n           \r\n           \r\n           \r\n           \r\n               /\r\n              /\r\n             /\r\n            /\r\n           /  (Material orientation)\r\n           r,u\r\n\r\n           Figure 1.3-11. Trapezoidal ring element coordinate system\r\n=PAGE=\r\n                                         G4\r\n                                         *\r\n  (a) Tetrahedron                       /\\\r\n                                       /  \\\r\n                                      /    \\\r\n                                     /      \\\r\n                                  G1*        \\\r\n                                    \\ .       \\\r\n                                     \\  .      \\\r\n                                      \\   .     \\\r\n                                       \\     .   \\\r\n                                         **\r\n                                        G2          G3\r\n\r\n\r\n\r\n                                     G4_____G6\r\n                                      /\\   /\\\r\n  (b) Wedge and one of its           /  \\ /  \\\r\n      six decompositions            /    *G5  \\\r\n                                 G1*  ij  *G3\r\n                                    \\        /\r\n                                     \\      /\r\n                                      \\    /\r\n                                       \\  /\r\n                                         *\r\n                                         G2\r\n\r\n\r\n                                         G6\r\n                                         *\r\n                                        /\\\r\n                                       /  \\\r\n                                      /    \\\r\n                                     /      \\\r\n                                  G1*        \\\r\n                                    \\ .       \\\r\n                                     \\  .      \\\r\n                                      \\   .     \\\r\n                                       \\     .   \\\r\n                                         **\r\n                                        G2          G3\r\n\r\n\r\n\r\n                         G8                            G7\r\n  (c) Hexahedron         **\r\n                        /|                            /\r\n                       /                             / \r\n                      /  |                          /  \r\n                     /                          G6 /   |\r\n                  G5**    \r\n                        *G4_ _ _ _ _ _ _ _ _ _ _ _ _ *G3\r\n                        /                            /\r\n                    |                             |   /\r\n                      /                            /\r\n                                                  /\r\n                    /                            /\r\n                  G1**G2\r\n\r\n\r\n          Figure 1.3-12. Polyhedron elements and their subtetrahedra\r\n=PAGE=\r\n                         7                             6\r\n                         **\r\n  (a) Linear            /|                            /\r\n                       /                             / \r\n                      /  |                          /  \r\n                     /                           5 /   \r\n                   8**    \r\n                        *3 _ _ _ _ _ _ _ _ _ _ _ _ _ *2\r\n                        /                            /\r\n                                                    /\r\n                      /                            /\r\n                                                  /\r\n                    /                            /\r\n                   4**1\r\n\r\n\r\n\r\n                         17            16              15\r\n                         ***\r\n  (b) Quadratic         /                             /\r\n                       / |                         14* \r\n                    18*  *11                        /  \r\n                     /   |         20           13 /   *10\r\n                  19***    \r\n                        *5 _ _ _ _ _ _*_ _ _ _ _ _ _ *3\r\n                        /             4              /\r\n                  12*   *6                        *9  /\r\n                      /                            *2\r\n                     /                            /\r\n                    /                            /\r\n                    ***\r\n                    7             8               1\r\n\r\n\r\n\r\n                         27       26        25         24\r\n                         ****\r\n  (c) Cubic           28*|                            /\r\n                       / *19                       23* *18\r\n                    29*  |                          /  \r\n                     /   *15 31      32          22*   *14\r\n                  30****21  \r\n                        *7 _ _ *6_ _ _ _*5 _ _ _ _ _ *4\r\n                  20*    /                      17*    /\r\n                    |   *8                        |   *3\r\n                  16*  /                        13*  /\r\n                     *9                           *2\r\n                    /                            /\r\n                    ****1\r\n                    10       11        12\r\n\r\n\r\n            Figure 1.3-13. Isoparametric solid hexahedron elements\r\n=PAGE=\r\n                                   *G5\r\n                                  / \\\r\n                           ye    /   \\      .\r\n                           |    /     \\  .\r\n                           | G6*      .*G4\r\n                           |  /    .    \\\r\n                           | /  .    TH  \\\r\n                           |/.            \\\r\n                           *- - - -*- - - -* -------xe\r\n                           G1      G2      G3\r\n\r\nFigure 1.3-14. Triangular shallow shell element geometry and coordinate systems\r\n\r\n=PAGE=\r\n1.4  CONSTRAINTS AND PARTITIONING\r\n\r\n   Structural matrices are initially assembled in terms of all structural grid\r\npoints, which excludes only the extra scalar points introduced for dynamic\r\nanalysis. These matrices are generated with six degrees of freedom for each\r\ngeometric grid point and a single degree of freedom for each scalar point.\r\nVarious constraints are applied to these matrices in order to remove undesired\r\nsingularities, provide boundary conditions, define rigid elements, and provide\r\nother desired characteristics for the structural model.\r\n\r\n   There are two basic kinds of constraints. Single-point constraints are used\r\nto constrain a degree of freedom to zero or to a prescribed value; multipoint\r\nconstraints and rigid elements are used to constrain one or more degrees of\r\nfreedom to be equal to linear combinations of the values of other degrees of\r\nfreedom. The following types of bulk data cards are provided for the\r\ndefinition of constraints:\r\n\r\n   1. Single-point constraint cards\r\n\r\n   2. Multipoint constraint cards and rigid element connection cards\r\n\r\n   3. Cards to define reaction points on free bodies\r\n\r\n   4. Cards to define the omitted coordinates in matrix partitioning\r\n\r\nThe latter type does not produce constraint forces in static analysis.\r\n\r\n1.4.1  Single-Point Constraints\r\n\r\n   A single-point constraint applies a fixed value to a translational or\r\nrotational component at a geometric grid point or to a scalar point. One of\r\nthe most common uses of single-point constraints is to specify the boundary\r\nconditions of a structural model by fixing the appropriate degrees of freedom.\r\nMultiple sets of single-point constraints can be provided in the Bulk Data\r\nDeck, with selections made at execution time by using the subcase structure in\r\nthe Case Control Deck as explained in Section 2.3.3. This procedure is\r\nparticularly useful in the solution of problems having one or more planes of\r\nsymmetry.\r\n\r\n   The elements connected to a grid point may not provide resistance to motion\r\nin certain directions, causing the stiffness matrix to be singular.\r\nSingle-point constraints are used to remove these degrees of freedom from the\r\nstiffness matrix. A typical example is a planar structure composed of membrane\r\nand extensional elements. The translations normal to the plane and all three\r\nrotational degrees of freedom must be constrained since the corresponding\r\nstiffness matrix terms are all zero. If a grid point has a direction of zero\r\nstiffness, the single-point constraint need not be exactly in that direction,\r\nbut only needs to have a component in that direction. This allows the use of\r\nsingle-point constraints for the removal of such singularities regardless of\r\nthe orientation of the global coordinate system. Although the displacements\r\nwill depend on the direction of the constraint, the internal forces will be\r\nunaffected.\r\n\r\n   One of the tasks performed by the Structural Matrix Assembler (Section 4.27\r\nof the Programmer's Manual) is to examine the stiffness matrix for\r\nsingularities at the grid point level. An input NASTRAN card entry STST, to\r\ncontrol the tolerance, is available. Singularities remaining at this level,\r\nfollowing the application of the single-point constraints, are listed in the\r\nGrid Point Singularity Table (GPST). This table is automatically printed\r\nfollowing the comparison of the possible singularities tabulated by the\r\nStructural Matrix Assembler with the single-point constraints and the\r\ndependent coordinates of the multipoint constraint equations provided by you.\r\nThe GPST contains all possible combinations of single-point constraints, in\r\nthe global coordinate system, that can be used to remove the singularities.\r\nThese remaining singularities are treated only as warnings, because it cannot\r\nbe determined at the grid point level whether or not the singularities are\r\nremoved by other means, such as general elements or multipoint constraints in\r\nwhich these singularities are associated with independent coordinates. See the\r\nGPSPC module description in Section 5.10 for automatic removal of\r\nsingularities.\r\n\r\n   Single-point constraints are defined on SPC, SPC1, SPCADD, and SPCAX cards.\r\nThe SPC card is the most general way of specifying single-point constraints.\r\nThe SPC1 card is a less general card that is more convenient when a number of\r\ngrid points have the same components constrained to a zero displacement. The\r\nSPCADD card defines a union of single-point constraint sets specified with SPC\r\nor SPC1 cards. The SPCAX card is used only for specifying single-point\r\nconstraints in problems using conical shell elements.\r\n\r\n   Single-point constraints can also be defined on the GRID card. In this\r\ncase, however, the constraints are part of the model and modifications cannot\r\nbe made at the subcase level. Also, only zero displacements can be specified\r\non the GRID card.\r\n\r\n1.4.2  Multipoint Constraints and Rigid Elements\r\n\r\n   Multipoint constraints and rigid elements are used to constrain one or more\r\ndegrees of freedom to be equal to linear combinations of the values of other\r\ndegrees of freedom. In the former case, you must explicitly provide the\r\ncoefficients of the equations. In the latter case, you provides only the\r\nconnection data and the program internally generates the required\r\ncoefficients.\r\n\r\n1.4.2.1  Multipoint Constraints\r\n\r\n   Each multipoint constraint is described by a single equation that specifies\r\na linear relationship for two or more degrees of freedom. Multiple sets of\r\nmultipoint constraints can be provided in the Bulk Data Deck, with selections\r\nmade at execution time by using the subcase structure in the Case Control Deck\r\nas explained in Section 2.3.3. Multipoint constraints are discussed in\r\nSections 3.5.1 and 5.4 of the Theoretical Manual.\r\n\r\n   Multipoint constraints are defined on MPC, MPCADD, and MPCAX cards. The MPC\r\ncard is the basic card for defining multipoint constraints. The first\r\ncoordinate mentioned on the card is taken as the dependent degree of freedom,\r\ni .e., that degree of freedom that is removed from the equations of motion.\r\nDependent degrees of freedom may appear as independent terms in other\r\nequations of the set; however, they may appear as dependent terms in only a\r\nsingle equation. The MPCADD card defines a union of multipoint constraint sets\r\nspecified with MPC cards. The MPCAX card is used only for specifying\r\nmultipoint constraints in problems using conical shell elements. Some uses of\r\nmultipoint constraints are:\r\n\r\n   1. To enforce zero motion in directions other than those corresponding with\r\n      components of the global coordinate system. In this case, the multipoint\r\n      constraint will involve only the degrees of freedom at a single grid\r\n      point. The constraint equation relates the displacement in the direction\r\n      of zero motion to the displacement components in the global system at\r\n      the grid point.\r\n\r\n   2. To describe rigid elements and mechanisms such as levers, pulleys, and\r\n      gear trains. In this application, the degrees of freedom associated with\r\n      the rigid element that are in excess of those needed to describe rigid\r\n      body motion are eliminated with multipoint constraint equations.\r\n      Treatment of very stiff members as being rigid elements eliminates the\r\n      ill-conditioning associated with their treatment as ordinary elastic\r\n      elements.\r\n\r\n   3. To be used with scalar elements to generate nonstandard structural\r\n      elements and other special effects.\r\n\r\n   4. To describe parts of a structure by local vibration modes. This\r\n      application is treated in section 14.1 of the Theoretical Manual. The\r\n      general idea is that the matrix of local eigenvectors represents a set\r\n      of constraints relating physical coordinates to modal coordinates.\r\n\r\n   You provide the coefficients in the multipoint constraint equations defined\r\non MPC, MPCADD, and MPCAX cards.\r\n\r\n1.4.2.2  Rigid Elements\r\n\r\n   Rigid elements provide a convenient means of specifying very stiff\r\nconnections. You do not provide the required coefficients directly. The\r\nprogram internally generates them from the connection data. Rigid elements are\r\ndiscussed in Section 3.5.6 of the Theoretical Manual.\r\n\r\n   Rigid elements are defined on CRIGDR, CRIGD1, CRIGD2, and CRIGD3 cards. The\r\nCRIGDR card defines a pin-ended rod element that is rigid in\r\nextension-compression. The CRIGD1 card defines a rigid element connection in\r\nwhich all six degrees of freedom of each of the dependent grid points are\r\ncoupled to all six degrees of freedom of the reference grid point. The CRIGD2\r\ncard is more general and defines a connection in which selected degrees of\r\nfreedom of the dependent grid points are coupled to all six degrees of freedom\r\nof the reference grid point. The CRIGD3 card is the most general and defines a\r\nrigid element in which selected degrees of freedom of the dependent grid\r\npoints are coupled to six selected degrees of freedom at one or more (up to\r\nsix) reference grid points.\r\n\r\n   On all of the rigid element connection cards, you specify the degrees of\r\nfreedom that belong to the dependent set. This specification is implicit on\r\nthe CRIGD1 card and explicit on the others. It is important to note that a\r\ndependent degree of freedom appearing in a rigid element may not appear as\r\ndependent in any other rigid element or on a MPC card nor may it be\r\nconstrained in any other manner. Also, when using the CRIGD3 card, you must\r\nensure that the six selected degrees of freedom at the reference grid points\r\ntogether are capable of representing any general rigid body motion of the\r\nelement.\r\n\r\n   When using several rigid elements and multipoint constraints, you will\r\noften find it useful to turn on DIAGs 21 and 22 in the Executive Control Deck\r\nto obtain the GP4 definition of sets of degrees of freedom.\r\n\r\n1.4.3  Free Body Supports\r\n\r\n   In the following discussion, a free body is defined as a structure that is\r\ncapable of motion without internal stress; that is, it has one or more rigid\r\nbody degrees of freedom. The stiffness matrix for a free body is singular with\r\nthe defect equal to the number of stress-free, or rigid body, modes. A solid\r\nthree-dimensional body has up to six rigid body modes. Linkages and mechanisms\r\ncan have a greater number. No restriction is placed in the program on the\r\nnumber of stress-free modes, in order to permit the analysis of mechanisms.\r\n\r\n   Free-body supports are defined with a SUPORT card. In the case of problems\r\nusing conical shell elements, the SUPAX card is used. In either case, only a\r\nsingle set can be specified, and if such cards appear in the Bulk Data Deck,\r\nthey are automatically used in the solution. Free-body supports must be\r\ndefined in the global coordinate system.\r\n\r\n   In static analysis by the displacement method, the rigid body modes must be\r\nrestrained in order to remove the singularity of the stiffness matrix. The\r\nrequired constraints may be supplied with single-point constraints, multipoint\r\nconstraints, or free-body supports. If free-body supports are used, the rigid\r\nbody characteristics will be calculated and a check will be made on the\r\nsufficiency of the supports. Such a check is obtained by calculating the rigid\r\nbody error ratio as defined in the Rigid Body Matrix Generator operation in\r\nSection 3.2.2. This error ratio is automatically printed following the\r\nexecution of the Rigid Body Matrix Generator. The error ratio should be zero,\r\nbut may be nonzero for any of the following reasons:\r\n\r\n   1. Round-off error accumulation\r\n\r\n   2. Insufficient free-body supports have been provided\r\n\r\n   3. Redundant free-body supports have been provided\r\n\r\n   The redundancy of the supports may be caused by improper use of the\r\nfree-body supports themselves, or by the presence of single-point or\r\nmultipoint constraints that constrain the rigid body motions.\r\n\r\n   Static analysis with inertia relief is necessarily made on a model having\r\nat least one rigid body motion. Such rigid body motion must be constrained by\r\nthe use of free-body supports. These supported degrees of freedom define a\r\nreference system, and the elastic displacements are calculated relative to the\r\nmotion of the support points. The element stresses and forces will be\r\nindependent of any valid set of supports.\r\n\r\n   Rigid body vibration modes are calculated by a separate procedure provided\r\nthat a set of free-body supports is supplied by you. This is done to improve\r\nefficiency and, in some cases, reliability. The determinant method, for\r\nexample, has difficulty extracting zero frequency roots of high multiplicity,\r\nwhereas the alternate procedure of extracting rigid body modes is both\r\nefficient and reliable. If you do not specify free-body supports (or you\r\nspecify an insufficient number of them) the (remaining) rigid body modes will\r\nbe calculated by the method selected for the finite frequency modes, provided\r\nzero frequency is included in the range of interest. If you do not provide\r\nfree-body supports, and if zero frequency is not included in the range of\r\ninterest, the rigid body modes will not be calculated.\r\n\r\n   Free-body supports must be specified if the mode acceleration method of\r\nsolution improvement is used for dynamics problems having rigid body degrees\r\nof freedom (see Section 9.4 of the Theoretical Manual). This solution\r\nimprovement technique involves a static solution, and although the dynamic\r\nsolution can be made on a free-body, the static solution cannot be performed\r\nwithout removing the singularities in the stiffness matrix associated with the\r\nrigid body motions.\r\n\r\n1.4.4  Partitioning\r\n\r\n   A two-way partitioning scheme is provided as an optional feature for the\r\nNASTRAN model. The partitions are defined by listing the degrees of freedom\r\nfor one of the partitions on the OMIT card. These degrees of freedom are\r\nreferred to as the \"omitted set\". The remaining degrees of freedom are\r\nreferred to as the \"analysis set\". The OMIT1 card is easier to use if a large\r\nnumber of grid points have the same degrees of freedom in the omitted set. The\r\nASET or ASET1 cards can be used to place degrees of freedom in the analysis\r\nset with the remaining degrees of freedom being placed in the omitted set.\r\nThis is easier if the omitted set is large. In the case of problems using\r\nconical shell elements, the OMITAX card is used.\r\n\r\n   Partitioning can be used to improve the efficiency in the solution of\r\nordinary statics problems where the bandwidth of the unpartitioned stiffness\r\nmatrix is large enough to cause excessive use of secondary storage devices\r\nduring the triangular decomposition of the stiffness matrix. In this\r\napplication, the analysis set should be relatively small and should be\r\nselected so that the omitted set will consist of uncoupled partitions, each\r\nhaving a bandwidth of approximately the same size and smaller than the\r\noriginal matrix. The omitted set might be thought of as consisting of several\r\nsubstructures which are coupled to the analysis set.\r\n\r\n   Matrix partitioning also improves efficiency when solving a number of\r\nsimilar cases with stiffness changes in local regions of the structure. In\r\nthis application, the omitted set is relatively large, and should be selected\r\nso that the structural elements that will be changed are connected only to\r\npoints in the analysis set. The stiffness matrix for the omitted set is then\r\nunaffected by the structural changes, and only the smaller stiffness matrix\r\nfor the analysis set need be decomposed for each case. In order to avoid\r\nrepeating the decomposition of the stiffness matrix for the omitted set, the\r\nalter feature must be used to replace the functional module SMP1 with SMP2.\r\nThe alter feature is described in Section 2.2, and a similar use of SMP2\r\noccurs near the end of the DMAP sequence used in the rigid format for Static\r\nAnalysis with Differential Stiffness.\r\n\r\n   One of the more important applications of partitioning is the Guyan\r\nReduction, described in Section 3.5.4 of the Theoretical Manual. This\r\ntechnique is a means for reducing the number of degrees of freedom used in\r\ndynamic analysis with minimum loss of accuracy. Its basis is that many fewer\r\ngrid points are needed to describe the inertia of a structure than are needed\r\nto describe its elasticity with comparable accuracy. The error in the\r\napproximation is small provided that the set of displacements used for dynamic\r\nanalysis is judiciously chosen. Its members should be uniformly dispersed\r\nthroughout the structure and all large mass items should be connected to grid\r\npoints that are members of the analysis set.\r\n\r\n   You are cautioned to consider the fact that the matrix operations\r\nassociated with this partitioning procedure tend to create nonzero terms and\r\nto fill what were previously very sparse matrices. The partitioning option is\r\nmost effectively used if the members of the omitted set are either a very\r\nlarge fraction or a very small fraction of the total set. In most of the\r\napplications the omitted set is a large fraction of the total and the matrices\r\nused for analysis, while small, are usually full. If the analysis set is not a\r\nsmall fraction of the total, a solution using the larger, but sparser,\r\nmatrices, may well be more efficient. The partitioning option can also be used\r\nto make modest reductions in the order of the problem by placing a few\r\nscattered grid points in the omitted set. If the points in the omitted set are\r\nuncoupled, the sparseness in the matrices will be well preserved.\r\n\r\n1.4.5  The Nested Vector Set Concept Used to Represent Components of Displacement\r\n\r\n   In constructing the matrices used in the displacement approach, each row\r\nand/or column of a matrix is associated closely with a grid point, a scalar\r\npoint, or an extra point. Every grid point has 6 degrees of freedom associated\r\nwith it, and hence 6 rows and/or columns of the matrix. Scalar and extra\r\npoints only have one degree of freedom. At each point (grid, scalar, extra)\r\nthese degrees of freedom can be further classified into subsets, depending on\r\nthe constraints or handling required for particular degrees of freedom. (For\r\nexample, in a two-dimensional problem, all \"z\" degrees of freedom are\r\nconstrained and hence belong to the s (single-point constraint) set). Each\r\ndegree of freedom can be considered as a \"point\", and the entire model is the\r\ncollection of these one-dimensional points.\r\n\r\n   Nearly all of the matrix operations in displacement analysis are concerned\r\nwith partitioning, merging, and transforming matrix arrays from one subset of\r\ndisplacement components to another. All the components of displacement of a\r\ngiven type (such as all points constrained by single-point constraints) form a\r\nvector set that is distinguished by a subscript from other sets. A given\r\ncomponent of displacement can belong to several vector sets. The mutually\r\nexclusive vector sets, the sum of whose members are the set of all physical\r\ncomponents of displacements, are as follows:\r\n\r\n   um points eliminated by multipoint constraints and rigid elements,\r\n\r\n   us points eliminated by single-point constraints,\r\n\r\n   uo points omitted by structural matrix partitioning,\r\n\r\n   ur points to which determinate reactions are applied in static analysis,\r\n\r\n   ul the remaining structural points used in static analysis (points left\r\n      over),\r\n\r\n   ue extra degrees of freedom introduced in dynamic analysis to describe\r\n      control systems, etc.\r\n\r\n   The vector sets obtained by combining two or more of the above sets are (+\r\nsign indicates the union of two sets):\r\n\r\n   ua = ur + ul, the set used in real eigenvalue analysis,\r\n\r\n   ud = ua + ue, the set used in dynamic analysis by the direct method,\r\n\r\n   uf = ua + uo, unconstrained (free) structural points,\r\n\r\n   un = uf + us, all structural points not constrained by multipoint\r\n   constraints,\r\n\r\n   ug = un + um, all structural (grid) points including scalar points,\r\n\r\n   up = ug + ue, all physical points.\r\n\r\n   In dynamic analysis, additional vector sets are obtained by a modal\r\ntransformation derived from real eigenvalue analysis of the set ua. These are:\r\n\r\n   o rigid body (zero frequency) modal coordinates,\r\n\r\n   f finite frequency modal coordinates,\r\n\r\n   i = o + f, the set of all modal coordinates.\r\n\r\n   One vector set is defined that combines physical and modal coordinates.\r\nThat set is uh = i + ue, the set used in dynamic analysis by the modal\r\nmethod.\r\n\r\n   The nesting of vector sets is depicted by the following diagram:\r\n\r\n                                   Ŀ\r\n   um                                                              \r\n                                       \r\n   us                                                             \r\n                                          \r\n   uo                                                            \r\n                                       un   ug  up\r\n   ur                                           uf             \r\n                                     ua                        \r\n                    ud                                         \r\n   ul                                                          \r\n                                     \r\n   ue                                                             \r\n                                   \r\n   o                                uh\r\n                    i              \r\n   f                               \r\n                    \r\n\r\n   The data block USET (USETD in dynamics) is central to this set\r\nclassification. Each word of USET corresponds to a degree of freedom in the\r\nproblem. Each set is assigned a bit in the word. If a degree of freedom\r\nbelongs to a given set, the corresponding bit is on. Every degree of freedom\r\ncan then be classified by analysis of USET. The common block /BITPOS/ relates\r\nthe sets to bit numbers. A table indicating the various sets to which each\r\ndegree of freedom belongs may be obtained by setting DIAG 21 in the Executive\r\nControl Deck. This table provides a listing of each grid, scalar, and extra\r\npoint in the model and shows the assignment of each associated degree of\r\nfreedom (six or one) to the sets L, A, F, N, G, R, O, S, and M. The S-set is\r\nfurther divided into the SB and SG \"sub\" sets to indicate constraints applied\r\nby SPC cards or GRID cards, respectively. Tables that indicate the membership\r\nof A-set, O-set, S-set, and M-set may be obtained by setting DIAG 22 in the\r\nExecutive Control Deck. These tables summarize the degree of freedom\r\nassignments for sets M, S, O, and A. The S-set is further divided into the SPC\r\nand PERM SPC \"sub\" sets to indicate constraints applied by SPC cards or GRID\r\ncards, respectively.\r\n\r\n   In constructing the matrices used in the heat approach, you must constrain\r\nfive of the six degrees of freedom associated with each grid point. Since the\r\nonly unknown at a grid point is its temperature, there is only one degree of\r\nfreedom per grid point.\r\n\r\n   In constructing the matrices used in the aero approach, the aerodynamic\r\ndegrees of freedom (including extra points) are added after the structural\r\nmatrices have been determined. This introduces the following displacement\r\nsets:\r\n\r\n   uk   aerodynamic box and body degrees of freedom\r\n\r\n   usA  permanently constrained degrees of freedom associated with\r\n        aerodynamic grid points\r\n\r\n   ups     the union of up and usA\r\n\r\n   upA  the union of uk and ups\r\n\r\n   The nesting of the vector sets in the aero approach is indicated in the\r\nfollowing diagram:\r\n\r\n                          \r\n   uk                                            \r\n                               \r\n   usA                                          \r\n                                    upA\r\n                                     ups       \r\n                            up                 \r\n                                               \r\n                          \r\n\r\nThe upa set replaces the up set for output at grid, scalar, and extra points.\r\n=PAGE=\r\n1.5  APPLIED LOADS\r\n\r\n1.5.1  Static Loads\r\n\r\nIn NASTRAN, static loads are applied to geometric and scalar grid points in a\r\nvariety of ways, including:\r\n\r\n   1. Loads applied directly to grid points.\r\n\r\n   2. Pressure on surfaces.\r\n\r\n   3. Gravity loads (internally generated).\r\n\r\n   4. Centrifugal forces due to steady rotation.\r\n\r\n   5. Equivalent loads resulting from thermal expansion\r\n\r\n   6. Equivalent loads resulting from enforced deformations of structural\r\n   elements. \r\n\r\n   7. Equivalent loads resulting from enforced displacements of grid points.\r\n\r\nAdditional information on static loads is given in Section 3.6 of the\r\nTheoretical Manual. Any number of load sets can be defined in the Bulk Data\r\nDeck. However, only those sets selected in the Case Control Deck, as described\r\nin Section 2.3, will be used in the problem solution. The manner of selecting\r\neach type of load is specified on the associated bulk data card description in\r\nSection 2.4. \r\n\r\n   The FORCE card is used to define a static load applied to a geometric grid\r\npoint in terms of components defined by a local coordinate system. The\r\norientation of the load components depends on the type of local coordinate\r\nsystem used to define the load. The directions of the load components are the\r\nsame as those indicated on Figure 1.2-1 of Section 1.2 for displacement\r\ncomponents. The FORCE1 card is used if the direction is determined by a vector\r\nconnecting two grid points, and a FORCE2 card is used if the direction is\r\nspecified by the cross product of two such vectors. The MOMENT, MOMENT1, and\r\nMOMENT2 cards are used in a similar fashion to define the application of a\r\nconcentrated moment at a geometric grid point. The SLOAD card is used to\r\ndefine a load at a scalar point. In this case, only the magnitude is\r\nspecified, as only one component of motion exists at a scalar point. \r\n\r\n   The FORCEAX and MOMAX cards are used to define the loading of specified\r\nharmonics on rings of conical shell elements. FORCE and MOMENT cards may be\r\nused to apply concentrated loads or moments to conical shell elements,\r\nproviding that such points have been defined with a POINTAX card. \r\n\r\n   Pressure loads on triangular and quadrilateral elements are defined with a\r\nPLOAD2 card. The positive direction of the loading is determined by the order\r\nof the grid points on the element connection card, using the right hand rule.\r\nThe magnitude and direction of the load is automatically computed from the\r\nvalue of the pressure and the coordinates of the connected grid points. The\r\nload is applied to the connected grid points. The PLOAD card is used in a\r\nsimilar fashion to define the loading of any three or four grid points\r\nregardless of whether they are connected with two-dimensional elements. The\r\nPRESAX card is used to define a pressure loading on a conical shell element. \r\n\r\n   Pressure loads on the isoparametric solid elements are defined with the\r\nPLOAD3 card. The pressure is defined positive outward from the element. The\r\nmagnitude and direction of the equivalent grid point forces are automatically\r\ncomputed using the isoparametric shape functions of the element to which the\r\nload has been applied. \r\n\r\n   The GRAV card is used to specify a gravity load by providing the components\r\nof the gravity vector in any defined coordinate system. The gravity load is\r\nobtained from the gravity vector and the mass matrix assembled by the\r\nStructural Matrix Assembler (see Section 4.28 of the Programmer's Manual). The\r\ngravitational acceleration is not calculated at scalar points. You are\r\nrequired to introduce gravity loads at scalar points directly. \r\n\r\n   The RFORCE card is used to define a static loading condition due to a\r\ncentrifugal force field. A centrifugal force load is specified by the\r\ndesignation of a grid point that lies on the axis of rotation and by the\r\ncomponents of rotational velocity in any defined coordinate system. In the\r\ncalculation of the centrifugal force, the mass matrix is regarded as\r\npertaining to a set of distinct rigid bodies connected to grid points.\r\nDeviations from this viewpoint, such as the use of scalar points or the use of\r\nmass coupling between grid points, can result in errors. \r\n\r\n   Temperatures may be specified for selected elements. The temperatures for a\r\nROD, BAR, CONROD, or TUBE element are specified on the TEMPRB data card. This\r\ncard specifies the average temperature on both ends and, in the case of the\r\nBAR element, is used to define temperature gradients over the cross section.\r\nTemperatures for two dimensional plate and membrane elements are specified on\r\na TEMPP1, TEMPP2, or TEMPP3 data card. Your defined average temperature over\r\nthe volume is used to produce in-plane loads and stresses. Thermal gradients\r\nover the depth of the bending elements, or the resulting moments, may be used\r\nto produce bending loads and stresses. \r\n\r\n   If no thermal element data is given for an element, the temperatures of the\r\nconnected grid points given on the TEMP, TEMPD, or TEMPAX cards are simply\r\naveraged to produce an average temperature for the element. The thermal\r\nexpansion coefficients are defined on the material definition cards.\r\nRegardless of the type of thermal data, if the material coefficients for an\r\nelement are temperature-dependent by use of the MATTi card, they are always\r\ncalculated from the \"average\" temperature of the element. The mere presence of\r\na thermal field does not imply the application of a thermal load. A thermal\r\nload will not be applied unless you make a specific request in the Case\r\nControl Deck. \r\n\r\n   Enforced axial deformations can be applied to rod and bar elements. They\r\nare useful in the simulation of misfit and misalignment in engineering\r\nstructures. As in the case of thermal expansion, the equivalent loads are\r\ncalculated by separate subroutines for each type of structural element, and\r\nare applied to the connected grid points. The magnitude of the axial\r\ndeformation is specified on a DEFORM card. \r\n\r\n   Zero enforced displacements may be specified on GRID, SPC, or SPC1 cards.\r\nZero displacements which result in nonzero forces of constraint are usually\r\nspecified on SPC or SPC1 cards. If GRID cards are used, the constraints become\r\npart of the structural model and modifications cannot be made at the subcase\r\nlevel. \r\n\r\n   Nonzero enforced displacements may be specified on SPC or SPCD cards. The\r\nSPC card specifies both the component to be constrained and the magnitude of\r\nthe enforced displacement. The SPCD card specifies only the magnitude of the\r\nenforced displacement. When an SPCD card is used, the component to be\r\nconstrained must be specified on either an SPC or SPC1 card. The use of the\r\nSPCD card avoids the decomposition of the stiffness matrix when changes are\r\nonly made in the magnitudes of the enforced displacements. \r\n\r\n   The equivalent loads resulting from enforced displacements of grid points\r\nare calculated by the program and added to the other applied loads. The\r\nmagnitudes of the enforced displacements are specified on SPC cards (SPCAX in\r\nthe case of conical shell problems) in the global coordinate system. The\r\napplication of the load is automatic when you select the associated SPC set in\r\nthe Case Control Deck. \r\n\r\n   The LOAD card in the Bulk Data Deck defines a static loading condition that\r\nis a linear combination of load sets consisting of loads applied directly to\r\ngrid points, pressure loads, gravity loads, and centrifugal forces. This card\r\nmust be used if gravity loads are to be used in combination with loads applied\r\ndirectly to grid points, pressure loads, or centrifugal forces. The\r\napplication of the combined loading condition is requested in the Case Control\r\nDeck by selecting the set number of the LOAD combination. \r\n\r\n   It should be noted that the equivalent loads (thermal, enforced\r\ndeformation, and enforced displacement) must have unique set identification\r\nnumbers and be separately selected in the Case Control Deck. For any\r\nparticular solution, the total static load will be the sum of the applied\r\nloads (grid point loading, pressure loading, gravity loading, and centrifugal\r\nforces) and the equivalent loads. \r\n\r\n1.5.2  Frequency-Dependent Loads\r\n\r\n   A discussion of frequency response calculations is given in Section 12.1 of\r\nthe Theoretical Manual. The DLOAD card is used to define linear combinations\r\nof frequency-dependent loads that are defined on RLOAD1 or RLOAD2 cards. The\r\nRLOAD1 card defines a frequency-dependent load of the form \r\n\r\n                              i(-2f)\r\n   {P(f)}  = {A[C(f) + iD(f)]e         }                            (1)\r\n\r\nwhere A is defined on a DAREA card, C(f) and D(f) are defined on TABLEDi\r\ncards,  is defined on a DPHASE card and  is defined on a DELAY card. The\r\nRLOAD2 card defines a frequency-dependent load of the form \r\n\r\n                    i{(f)+-2f}\r\n   {P(f)}  = {AB(f)e              }                                 (2)\r\n\r\nwhere A is defined on a DAREA card, B(f) and (f) are defined on TABLEDi\r\ncards,  is defined on a DPHASE card, and  is defined on a DELAY card. The\r\ncoefficients on the DAREA, DELAY, and DPHASE cards may be different for each\r\nloaded degree of freedom. The loads are applied to the specified components in\r\nthe global coordinate system. \r\n\r\n   A discussion of random response calculations is given in Section 12.2 of\r\nthe Theoretical Manual. The RANDPS card defines load set power spectral\r\ndensity factors for use in random analysis of the form \r\n\r\n   Sjk(f)  =  (X + iY)G(f)                                          (3)\r\n\r\nwhere G(f) is defined on a TABRNDi card. The subscripts j and k define the\r\nsubcase numbers of the load definitions. If the applied loads are independent,\r\nonly the diagonal terms (j=k) need be defined. The RANDT1 card is used to\r\nspecify the time lag constants for use in the computation of the\r\nautocorrelation functions. \r\n\r\n1.5.3  Time-Dependent Loads\r\n\r\n   A discussion of transient response calculations is given in Section 11 of\r\nthe Theoretical Manual. The DLOAD card is used to define linear combinations\r\nof time-dependent loads that are defined on TLOAD1 and TLOAD2 cards  The\r\nTLOAD1 card defines a time-dependent load of the form \r\n\r\n   {P(t)}  =  {AF(t - )}                                           (4)\r\n\r\nwhere A is defined on a DAREA card,  is defined on a DELAY card, and F(t-)\r\nis defined on a TABLEDi card. The TLOAD2 card defines a time-dependent load of\r\nthe form \r\n\r\n                \r\n                 {0} ,. t~ < 0  or t~ > T2 - T1\r\n   {P(t)}   =        B  Ct~                                        (5)\r\n                 {At~  e   cos(2ft~+P)}, 0 <= t~ <= T2 - T1\r\n                \r\n\r\nwhere t~  =  t - T1  - , and A and  are defined as above. The coefficients\r\non the DAREA and DELAY cards may be different for each loaded degree of\r\nfreedom. The loads are applied to the specified components in the global\r\ncoordinate system. \r\n\r\n   Nonlinear effects are treated as an additional applied load vector, for\r\nwhich the components are functions of either displacements or velocities. This\r\nadditional load vector is added to the right side of the equations of motion\r\nand treated along with the applied load vector during numerical integration.\r\nIt is required that the points to which the nonlinear loads are applied and\r\nthe degrees of freedom on which they depend be members of the solution set,\r\ni.e., that they cannot be degrees of freedom eliminated by constraints. It is\r\nfurther required that if a modal formulation is used the points referenced by\r\nthe nonlinear loads be members of the set of extra scalar points introduced\r\nfor dynamic analysis. \r\n\r\n   At present, NASTRAN includes four different types of nonlinear elements.\r\nFor a discussion of nonlinear elements see Section 11.2 of the Theoretical\r\nManual. The NOLIN1 card defines a nonlinear load of the form \r\n\r\n   Pi(t)  =  SiT(xj)                                                (6)\r\n\r\nwhere Pi is the load applied to xi, Si is a scale factor, T(xj) is a tabulated\r\nfunction defined with a TABLEDi card, and xj is any permissible displacement\r\nor velocity component. The NOLIN2 card defines a nonlinear load of the form \r\n\r\n   Pi(t)  =  Si xj yk                                               (7)\r\n\r\nwhere xj and yk are any permissible pair of displacement or velocity\r\ncomponents. They may be the same. The NOLIN3 card defines a nonlinear load of\r\nthe form \r\n\r\n                      A\r\n               Si (xj)    , xj > 0\r\n   Pi(t)    =                                                      (8)\r\n               0          , xj <= 0\r\n              \r\n\r\nwhere A is an exponent. The NOLIN4 card defines a nonlinear load of the form\r\n\r\n                        A\r\n               -Si (-xj)  , xj < 0\r\n   Pi(t)    =                                                      (9)\r\n               0          , xj >= 0\r\n              \r\n\r\n   Nonlinear loads applied to a massless system without damping will not\r\nconverge to a steady solution. Use of DIAG 10 (Section 2.2.1) will cause the\r\nnonlinear term {Nn+1} to be replaced by 1/3 {Nn+1 + Nn + Nn-1} where Nn+1, Nn,\r\nand Nn-1 are the values of the nonlinear loads at time steps preceding the\r\nsolution time step. Section 11.4 of the Theoretical Manual discusses the\r\nintegration of coupled equations.\r\n=PAGE=\r\n1.6  DYNAMIC MATRICES\r\n\r\n   The dynamic matrices are defined as the stiffness, mass, and damping\r\nmatrices used in either the direct or modal formulation of dynamics problems.\r\nThe assembly of dynamics matrices is discussed in Section 9.3 of the\r\nTheoretical Manual. There are three general sources for the elements of the\r\ndynamic matrices.\r\n\r\n   1. Matrices generated by the structural matrix assembler.\r\n\r\n   2. Direct input matrices.\r\n\r\n   3. Modal matrices obtained from real eigenvalue analysis.\r\n\r\n   The structural matrix assembler generates stiffness terms from the\r\nfollowing sources:\r\n\r\n   1. Structural elements defined on connection cards, for example, CBAR and\r\n      CROD.\r\n\r\n   2. General elements defined on GENEL cards.\r\n\r\n   3. Scalar springs defined on CELASi cards.\r\n\r\n   The structural matrix assembler generates mass terms from the following\r\nsources:\r\n\r\n   1. A 6x6 matrix of mass coefficients at a grid point defined on a CONM1\r\n      card.\r\n\r\n   2. A concentrated mass element defined on a CONM2 card in terms of its mass\r\n      and moments of inertia about its center of gravity.\r\n\r\n   3. Structural mass for all elements, except plate elements without membrane\r\n      stiffness, using the mass density on the material definition card.\r\n\r\n   4. Nonstructural mass for all elements specifying a value on the property\r\n      card.\r\n\r\n   5. Scalar masses defined on CMASSi cards.\r\n\r\nA discussion of inertia properties, including the lumped mass method and the\r\ncoupled mass method, is given in Section 5.5 of the Theoretical Manual. The\r\nstructural matrix assembler will use the lumped mass method for bars, rods,\r\nand plates unless the PARAM card COUPMASS (see PARAM bulk data card) is used\r\nto request the coupled mass method.\r\n\r\n   The structural matrix assembler generates damping terms from the following\r\nsources:\r\n\r\n   1. Viscous rod elements defined on CVISC cards.\r\n\r\n   2. Scalar viscous dampers defined on CDAMPi cards.\r\n\r\n   3. Element structural damping by multiplying the stiffness matrix of an\r\n      individual structural element by a damping factor obtained from the\r\n      material properties (MATi) card for the element.\r\n\r\nIn addition, uniform structural damping is provided by multiplying the\r\nstiffness matrix generated in structural matrix assembler by a damping factor\r\nthat is specified by you on the PARAM card G (see PARAM bulk data card). This\r\nform of damping is not recommended for hydroelastic problems.\r\n\r\n   The direct input matrices are generated by transfer functions (TF cards) or\r\nthey are supplied directly by you (DMIG or DMIAX cards). The terms of the\r\ndirect input matrices may be associated either with grid points or with extra\r\npoints introduced for dynamic analysis.\r\n\r\n   The modal matrices are obtained from real eigenvalue analysis using the\r\nstiffness and mass matrices generated by the structural matrix assembler.\r\n\r\n1.6.1  Direct Formulation\r\n\r\n   In the direct method of dynamic problem formulation, the degrees of freedom\r\nare simply the displacements at grid points. The dynamic matrices are\r\nassembled from the direct input matrices and the stiffness, mass, and damping\r\nmatrices generated by the structural matrix assembler. The direct input\r\nmatrices are generated by transfer functions (TF cards) or they are supplied\r\ndirectly by you (DMIG or DMIAX cards).\r\n\r\n   For frequency response analysis and complex eigenvalue analysis the\r\ncomplete dynamic matrices are:\r\n\r\n   [Kdd]  =  (1 + ig)[Kdd1] + [Kdd2] + i[Kdd4]                      (1)\r\n\r\n   [Bdd]  =  [Bdd1] + [Bdd2]                                        (2)\r\n\r\n   [Mdd]  =  [Mdd1] + [Mdd2]                                        (3)\r\n\r\nwhere the subscripts dd indicate the solution set composed of the degrees of\r\nfreedom remaining after all constraints have been applied and the extra scalar\r\npoints introduced for dynamic analysis. The matrices K, B, and M are the\r\nstiffness, damping, and mass matrices respectively. The superscript 1\r\nindicates the matrices generated by the structural matrix assembler. The\r\nsuperscript 2 indicates the direct input matrices. The matrix [Kdd4] is a\r\nstructural damping matrix obtained by multiplying the stiffness matrix of an\r\nindividual structural element by a damping factor obtained from the material\r\nproperties (MATi) card for the element. The matrix [Kdd1] is multiplied by the\r\ndamping factor (g) to provide for uniform structural damping in cases where it\r\nis appropriate. The constant g is specified by you on a PARAM card (see PARAM\r\nbulk data card).\r\n\r\n   For transient response analysis the complete dynamic matrices are:\r\n\r\n   [Kdd]  =  [Kdd1] + [Kdd2]                                        (4)\r\n\r\n   [Bdd]  =  [Bdd1] + [Bdd2] + (g/3)[Kdd1] + (1/4)[Kdd4]          (5)\r\n\r\n   [Mdd]  =  [Mdd1] + [Mdd2]                                        (6)\r\n\r\nwhere 3 is the radian frequency at which the term (g/3)[Kdd1] produces the\r\nsame magnitude of damping as the term ig[Kdd1] in frequency response analysis,\r\nand 4 is the radian frequency at which the term (1/4)[Kdd4] produces the same\r\nmagnitude of damping as the term i[Kdd4] in frequency response analysis. The\r\nequivalent viscous damping is only an approximation to the structural damping\r\nas the viscous damping forces are larger at higher frequencies and smaller at\r\nlower frequencies. Therefore, the quantities 3 and 4 are frequently selected\r\nby you to be at the center of the frequency range of interest. A small value\r\nof g/3 is frequently useful to insure stability of higher modes in nonlinear\r\ntransient analysis. You specify the values of 3 and 4 on PARAM cards W3 and\r\nW4 (see PARAM bulk data card). If 3 and 4 are omitted, the corresponding\r\nterms are ignored.\r\n\r\n1.6.2  Modal Formulation\r\n\r\n   In the modal method of dynamic problem formulation, the vibration modes of\r\nthe structure in a selected frequency range are used as degrees of freedom,\r\nthereby reducing the number of degrees of freedom while maintaining accuracy\r\nin the selected frequency range. The frequency range is specified on PARAM\r\ncards by either selecting the number of lowest modes obtained from a real\r\neigenvalue analysis, or selecting all of the modes in a given frequency range\r\n(see PARAM bulk data card).\r\n\r\n   It is important to have both direct and modal methods of dynamic problem\r\nformulation, in order to maximize efficiency in different situations. The\r\nmodal method will usually be more efficient in problems where a small fraction\r\nof all of the modes are sufficient to produce the desired accuracy, provided\r\nthat the bandwidth of the direct stiffness matrix is large. The bandwidth may\r\nbe large due either to a compact structural arrangement or to dynamic coupling\r\neffects. The direct method will usually be more efficient for problems in\r\nwhich the bandwidth of the direct stiffness matrix is small and for problems\r\nwith dynamic coupling in which a large fraction of the vibration modes are\r\nrequired to produce the desired accuracy. For problems without dynamic\r\ncoupling, that is, for problems in which the matrices of the modal formulation\r\nare diagonal, the modal method will frequently be more efficient, even though\r\na large fraction of the modes are needed.\r\n\r\n   The complete dynamic matrices used in dynamic analysis by the modal method\r\ninclude the direct input mass, damping, and stiffness matrices [Mdd2], [Bdd2],\r\n[Kdd2], and the modal matrices [mi], [bi], and [ki] obtained from real\r\neigenvalue analysis. The matrix [mi] is the modal mass matrix with\r\noff-diagonal terms (which should be zero) omitted. The modal damping matrix\r\n[bi] and stiffness matrix [ki] are obtained from [mi] by:\r\n\r\n   [bi]  =  [2fi g(fi) mi]                                         (7)\r\n\r\n               2  2\r\n   [ki]  =  [4  fi  mi]                                            (8)\r\n\r\nwhere fi is the frequency of the ith normal mode and g(fi) is obtained by\r\ninterpolation of a table supplied by you to represent the variation of\r\nstructural damping with frequency. This table is defined with a TABDMP1 card.\r\nStructural damping will not be used in the modal formulation unless an\r\nSDAMPING card is used in the Case Control Deck to select a particular TABDMP1\r\ncard. The specification of damping properties for the modal method is somewhat\r\nless general than it is for the direct method, in that viscous dampers and\r\nnonuniform structural damping are not used.\r\n\r\n   The mode acceleration method of data recovery is optional when using the\r\nmodal formulation for transient response and frequency response problems; see\r\nSection 9.4 of the Theoretical Manual for details. In this procedure, the\r\ninertia and damping forces are computed from the modal solution. These forces\r\nare then added to the applied forces and the combination is used to obtain a\r\nmore accurate displacement vector for the structure by static analysis. This\r\nimproved displacement vector is used in the stress recovery operation. The\r\nmode acceleration method is selected with the PARAM card MODACC (see PARAM\r\nbulk data card).\r\n=PAGE=\r\n1.7  HYDROELASTIC MODELING\r\n\r\n   There are two methods of hydroelastic modeling available in NASTRAN. One is\r\nthe axisymmetric hydroelastic modeling capability and the other is the\r\nthree-dimensional hydroelastic modeling capability. These are described in\r\nSections 1.7.1 and 1.7.2, respectively.\r\n\r\n   The NASTRAN axisymmetric hydroelastic modeling capability is designed\r\nprimarily for the solution of problems involving small motion dynamic response\r\nof models with combined structure and fluid effects. The options include both\r\nrigid and flexible container boundaries, free surface effects, and\r\ncompressibility. The fluid is described by axisymmetric finite elements. The\r\nstructure is described by conventional nonaxisymmetric elements to form\r\nmatching boundaries with the fluid.\r\n\r\n   The NASTRAN three-dimensional hydroelastic modeling capability is designed\r\nfor the solution of problems involving interacting, arbitrarily-shaped\r\nstructures and fluids, including tilted free surfaces, and allows for more\r\nefficient methods of obtaining solutions for large-order problems. The fluid\r\nis modeled by three-dimensional solid elements with options for tetrahedron,\r\nwedge, and hexahedron shapes. The elements are connected to fluid grid points\r\nwhich define the pressure in the fluid at specified locations. The structure\r\nmay be modeled arbitrarily using conventional NASTRAN elements. The fluids are\r\nassumed to be incompressible, irrotational, and non-viscous.\r\n\r\n1.7.1  Axisymmetric Hydroelastic Modeling\r\n\r\n1.7.1.1  Solution of the NASTRAN Fluid Model\r\n\r\n   The NASTRAN axisymmetric hydroelastic option allows you to solve a wide\r\nvariety of fluid problems having structural interfaces, compressibility, and\r\ngravity effects. A complete derivation of the NASTRAN model and an explanation\r\nof the assumptions are given in Section 16.1 of the Theoretical Manual. The\r\ninput data and the solution logic have many similarities to a structural\r\nmodel. The standard normal modes analysis, transient analysis, complex\r\neigenvalue analysis, and frequency response solutions are available with minor\r\nrestrictions. The differences between a NASTRAN fluid model and an ordinary\r\nstructural problem are due to the physical properties of a fluid and are\r\nsummarized below:\r\n\r\n   1. The independent degrees of freedom for a fluid are the Fourier\r\n      coefficients of the pressure function (that is \"harmonic pressures\") in\r\n      an axisymmetric coordinate system. The independent degrees of freedom\r\n      for a structure are typically displacements and rotations at a physical\r\n      point in space.\r\n\r\n   2. Much like the structural model, the fluid data will produce \"stiffness\"\r\n      and mass matrices. Because they now relate pressures and flow instead of\r\n      displacements and forces, their physical meaning is quite different. You\r\n      may not apply loads, constraints, sequencing, or omitted coordinates\r\n      \"directly\" on the fluid points involved. Instead, you supply information\r\n      related to the boundaries and NASTRAN internally generates the correct\r\n      constraints, sequencing, and matrix terms. Indirect methods, however,\r\n      are available to you for using the internally generated points as normal\r\n      grid or scalar points. See Section 1.7.1.4 for the identification code.\r\n\r\n   3. When a physical structure is to be connected to the fluid, you supply a\r\n      list of fluid points and a related list of special structural grid\r\n      points. NASTRAN will produce unsymmetric matrix terms which define the\r\n      actual physical relations. A special provision is included in NASTRAN in\r\n      the event that the structure has planes of symmetry. You may, if you\r\n      wish, define only a section of the boundary and solve your problem with\r\n      symmetric or antisymmetric constraints. The fluid-structure interface\r\n      will take the missing sections of structural boundary into account.\r\n\r\n   4. Because of the special nature of the fluid problems, various user\r\n      convenience options are absent. The fluid elements and harmonic\r\n      pressures may not be included in the structural plots at present.\r\n      Plotting the harmonic pressures versus frequency or time may not be\r\n      \"directly\" requested. Because mass matrix terms are automatically\r\n      generated if compressibility or free surface effects are present, the\r\n      weight and center of gravity calculations with fluid elements present\r\n      may not be correct and should be avoided. Also, the inertia relief rigid\r\n      format uses the mass matrix to produce internal loads and if fluids are\r\n      included, these special fluid terms in the mass matrix may produce\r\n      erroneous results.\r\n\r\n   In spite of the numerous differences between a NASTRAN structural model and\r\na NASTRAN fluid model, the similarities allow you to formulate a model with a\r\nminimum of data preparation and obtain efficient solutions to large order\r\nproblems. The similarities of the fluid model to the NASTRAN structural model\r\nare as follows:\r\n\r\n   1. The fluid is described by points in space and finite element\r\n      connections. The locations of the axisymmetric fluid points are\r\n      described by rings (RINGFL) about a polar axis, much like the\r\n      axisymmetric conical shell. The rings are connected by elements\r\n      (CFLUIDi) which have the properties of density and bulk modulus of\r\n      compressibility. Each fluid ring produces, internally, a series of\r\n      NASTRAN scalar points, pn and pn* (that is \"harmonic pressures\"),\r\n      describing the pressure function, P(), in the following equation:\r\n\r\n                   N   n          N   n*\r\n      P() =  po +   p  cos n +   p   sin n    0< N <100\r\n                   n=1            n=1\r\n\r\n      where the set of harmonics 0, n, and n* are selected by you. If you want\r\n      the output of pressure at specific points on the circular ring, you may\r\n      specify them as \"pressure points\" (PRESPT) by giving a point number and\r\n      an angle on a specified fluid ring. The output data will have the values\r\n      of pressure at the angle, , given in the above equation. The output of\r\n      free surface displacements normal to the surface (FREEPT) are also\r\n      available at specified angles, . The Case Control card option \"AXISYM =\r\n      FLUID\" is necessary when any harmonic fluid degrees of freedom are\r\n      included.\r\n\r\n   2. The input data to NASTRAN may include all of the existing options except\r\n      the axisymmetric structural element data. All of the existing Case\r\n      Control options may be included with some additional fluid Case Control\r\n      requests. All of the structural element and constraint data may be used\r\n      (but not connected to RINGFL, PRESPT, or FREEPT fluid points). The\r\n      structure-fluid boundary is defined with the aid of special grid points\r\n      (GRIDB) which may be used for any purpose that a structural grid point\r\n      is presently used.\r\n\r\n   3. The output data options for the structural part of a hydroelastic model\r\n      are unchanged from the existing NASTRAN options. The output values for\r\n      the fluid will be produced in the same form as the displacement vectors,\r\n      but with format modifications for the harmonic data. Printed values for\r\n      the fluid may include both real and complex values. Pressures and free\r\n      surface displacements, and their velocities and accelerations, may be\r\n      printed with the same request (the Case Control request PRESSURE = SET\r\n      is equivalent to DISP = SET) as structural displacements, velocities,\r\n      and accelerations. Structural plots are restricted to GRID and GRIDB\r\n      points and any elements connected to them. X-Y plot and Random Analysis\r\n      capabilities are available for FREEPT and PRESPT points if they are\r\n      treated as scalar points. The RINGFL point identification numbers may\r\n      not be used in any plot request; instead the special internally\r\n      generated points used for harmonics may be requested in X-Y plots and\r\n      Random Analysis. See Section 1.7.1.4 for the identification number code.\r\n      No element stress or force data is produced for the fluid elements. As\r\n      in the axisymmetric conical shell problem, the Case Control request\r\n      HARMONICS = N is used to select up to the Nth harmonic for output.\r\n\r\n1.7.1.2  Hydroelastic Input Data\r\n\r\n   A number of special NASTRAN data cards are required for fluid analysis\r\nproblems. These cards are compatible with structural NASTRAN data. A brief\r\ndescription of the uses for each bulk data card follows.\r\n\r\nAXIF\r\n\r\n   This card controls the formulation of the axisymmetric fluid problem. It is\r\na required card if any of the subsequent fluid-related cards are present. The\r\ndata references a fluid-related coordinate system to define the axis of\r\nsymmetry. The gravity parameter is included on the card rather than on the\r\nGRAV card because the direction of gravity must be parallel to the axis of\r\nsymmetry. The values of density and bulk elastic modulus are conveniences in\r\nthe event that these properties are constant throughout the fluid. A list of\r\nharmonics and the request for the nonsymmetric (sine) coefficients are\r\nincluded on this card to allow you to select any of the harmonics without\r\nproducing extra matrix terms for the missing harmonics. A change in this list,\r\nhowever, will require a restart at the beginning of the problem.\r\n\r\nRINGFL\r\n\r\n   The geometry of the fluid model about the axis of symmetry is defined with\r\nthe aid of these data cards. The RINGFL data cards serve somewhat the same\r\nfunction for the fluid as the GRID cards serve in the structural model. In\r\nfact, each RINGFL card will produce, internally, a special grid point for each\r\nof the various harmonics selected on the AXIF data card. They may not,\r\nhowever, be connected directly to normal NASTRAN structural elements (see\r\nGRIDB and BDYLIST data cards). No constraints may be applied directly to\r\nRINGFL fluid points.\r\n\r\nCFLUIDi\r\n\r\n   The data on these cards are used to define a volume of fluid bounded by the\r\nreferenced RINGFL points. The volume is called an element and logically serves\r\nthe same purpose as a structural finite element. The physical properties\r\n(density and bulk modulus) of the fluid element may be defined on this card if\r\nthey are variables with respect to the geometry. If a property is not defined,\r\nthe default value on the AXIF card is assumed. Two connected circles (RINGFL)\r\nmust be used to define fluid elements adjacent to the axis of symmetry. A\r\nchoice of three or four points is available in the remainder of the fluid.\r\n\r\nGRIDB\r\n\r\n   This card provides an alternative to the GRID card for the definition of\r\nstructural grid points. It also identifies the structural grid point with a\r\nparticular RINGFL fluid point for hydroelastic problems. The particular\r\npurpose for this card is to force you to place structural boundary points in\r\nexactly the same locations as the fluid points on the boundary. The format of\r\nthe GRIDB card is identical to the format of the GRID card except that one\r\nadditional field is used to identify the RINGFL point. The GRDSET card,\r\nhowever, is not used for GRIDB data.\r\n\r\n   If you desire, you may use GRIDB cards without a fluid model. This is\r\nconvenient in case you want to solve your structural problem first and to add\r\nthe fluid effects later without converting GRID cards to GRIDB cards. The\r\nreferenced RINGFL point must still be included in a boundary list (BDYLIST),\r\nsee below, and the AXIF card must always be present when GRIDB cards are used.\r\n(The fluid effects are eliminated by specifying no harmonics.)\r\n\r\nFREEPT, PRESPT\r\n\r\n   These cards are used to define points on a free surface for surface\r\ndisplacement output and points in the fluid for pressure output. No\r\nconstraints may be applied to these points. Scalar elements and direct matrix\r\ndata may be connected to these points, but the physical meaning of the\r\nelements will be different from that in the structural case.\r\n\r\nFSLIST, BDYLIST\r\n\r\n   The purpose for these cards is to allow you to define the boundaries of the\r\nfluid with complete freedom of choice. The FSLIST card defines a list of fluid\r\npoints which lie on a free surface. The BDYLIST data is a list of fluid points\r\nto which structural GRIDB points are connected. Points on the boundary of the\r\nfluid for which BDYLIST or FSLIST data are not defined are assumed to be\r\nrigidly restrained from motion in a direction normal to the surface.\r\n\r\n   With both of these lists the sequence of the listed points determines the\r\nnature of the boundary. The following directions will aid you in producing a\r\nlist.\r\n\r\n   1. Draw the z axis upward and the r axis to the right. Plot the locations\r\n      of the fluid points on the right hand side of z.\r\n\r\n   2. If one imagines oneself traveling along the free surface or boundary\r\n      with the fluid on one's right side, the sequence of points encountered\r\n      is used for the list. If the surface or boundary touches the axis, the\r\n      word \"AXIS\" is placed in the list. \"AXIS\" may be used only for the first\r\n      and/or last point in the list.\r\n\r\n   3. The free surface must be consistent with static equilibrium. With no\r\n      gravity field, any free surface consistent with axial symmetry is\r\n      allowed. With gravity, the free surface must be a plane perpendicular to\r\n      the z axis of the fluid coordinate system.\r\n\r\n   4. Multiple free surface lists and boundary lists are allowed. A fluid\r\n      point may be included in any number of lists.\r\n\r\nFLSYM\r\n\r\n   This card allows you to optionally model a portion of the structure with\r\nplanes of symmetry containing the polar axis of the fluid. The first plane of\r\nsymmetry is assumed at  = 0.0 and the second plane of symmetry is assumed at\r\n = 360 degrees/M where M is an integer specified on the card. Also specified\r\nare the types of symmetry for each plane, symmetric (S) or antisymmetric (A).\r\n\r\n   You must also supply the relevant constraint data for the structure. The\r\nsolution is performed correctly only for those harmonic coefficients that are\r\ncompatible with the symmetry conditions as illustrated in the following\r\nexample for quarter symmetry, M = 4.\r\n\r\nĿ\r\n                              Plane 2          \r\n                    Ĵ\r\n Series    Plane 1     S                A     \r\nĴ\r\n Cosine       S       0,2,4,...     1,3,5,... \r\n                                              \r\n              A       none          none      \r\n                                              \r\n Sine         S       none          none      \r\n                                              \r\n (*)          A       1,3,5,...     2,4,6,... \r\n\r\n\r\nDMIAX\r\n\r\n   These cards are used for Direct Matrix Input for special purposes such as\r\nsurface friction effects. They are equivalent to the DMIG cards, the only\r\ndifference being the capability to specify the harmonic numbers for the\r\ndegrees of freedom. A matrix may be defined with either DMIG or DMIAX cards,\r\nbut not with both.\r\n\r\n1.7.1.3  Rigid Formats\r\n\r\n   The characteristics of the fluid analysis problems which cause restrictions\r\non the type of solution are:\r\n\r\n   1. The fluid-structure interface is mathematically described by a set of\r\n      unsymmetric matrices. Since the first six Rigid Formats are restricted\r\n      to the use of symmetric matrices, the fluid-structure boundary is\r\n      ignored. Thus, for any of these Rigid Formats, the program solves the\r\n      problem for a fluid in a rigid container with an optional free surface\r\n      and an uncoupled elastic structure with no fluid present.\r\n\r\n   2. No means are provided for the direct input of applied loads on the\r\n      fluid. The only direct means of exciting the fluid is through the\r\n      structure-fluid boundary. The fluid problem may be formulated in any\r\n      rigid format. However, only some will provide nontrivial solutions.\r\n\r\n   The suggested Rigid Formats for the axisymmetric fluid and the restrictions\r\non each are described below:\r\n\r\nRigid Format No. 3 - Normal Modes Analysis\r\n\r\n   The modes of a fluid in a rigid container may be extracted with a\r\nconventional solution request. Free surface effects with or without gravity\r\nmay be accounted for. Any structure data in the deck will be treated as a\r\ndisjoint problem. (The structure may also produce normal modes.) Normalization\r\nof the eigenvectors using the POINT option will cause a fatal error.\r\n\r\nRigid Format No. 7 - Direct Complex Eigenvalue Analysis\r\n\r\n   The coupled modes of the fluid and structure must be solved with this rigid\r\nformat. If no damping or direct input matrices are added, the resulting\r\ncomplex roots will be purely imaginary numbers, whose values are the natural\r\nfrequencies of the system. The mode shape of the combination may be normalized\r\nto the maximum quantity (harmonic pressure or structural displacement) or to a\r\nspecified structural point displacement.\r\n\r\nRigid Format No. 8 - Direct Frequency and Random Response\r\n\r\n   This solution may be used directly if the loads are applied only to the\r\nstructural points. The use of overall structural damping (parameter g) is not\r\nrecommended since the fluid matrices will be affected incorrectly. Output\r\nrestrictions are listed in Section 1.7.1.1.\r\n\r\nRigid Format No. 9 - Direct Transient Response\r\n\r\n   Transient analysis may be performed directly on the fluid-structure system\r\nif the following rules apply.\r\n\r\n   1. Applied loads and initial conditions are only given to the structural\r\n      points.\r\n\r\n   2. All quantities are measured relative to static equilibrium. The initial\r\n      values of the pressures are assumed to be at equilibrium.\r\n\r\n   3. Overall structural damping (parameters w3 and g) must not be used.\r\n\r\n   4. Output restrictions are listed in Section 1.7.1.1.\r\n\r\nRigid Formats 10, 11, and 12 - Modal Formulations\r\n\r\n   Although these rigid formats may be used in a fluid dynamics problem, their\r\npracticality is limited. The modal coordinates used to formulate the dynamic\r\nmatrices will be the normal modes of both the fluid and the structure solved\r\nas uncoupled systems. Even though the range of natural frequencies would be\r\ntypically very different for the fluid from that for the structure, NASTRAN\r\nwill select both sets of modes from a given fixed frequency range. The safest\r\nmethod with the present system is the extraction of all modes for both systems\r\nwith the Tridiagonalization Method. This procedure, however, results in a\r\ndynamic system with large full matrices. Direct formulation would be more\r\nefficient in that case. At present, the capability for fluid-structure\r\nboundary coupling is not provided with Rigid Formats 10, 11, and 12. However,\r\nthe capability may be provided by means of an ALTER using the same logic as in\r\nthe direct formulations.\r\n\r\n1.7.1.4  Hydroelastic Data Processing\r\n\r\n   The fluid related data cards submitted by you are processed by the NASTRAN\r\nPreface to produce equivalent grid point, scalar point, element connection,\r\nand constraint data card images. Each specified harmonic, N, of the Fourier\r\nseries solution produces a complete set of special grid and connection card\r\nimages. In order to retain unique internal identification numbers for each\r\nharmonic, your (or external) identification numbers are encoded by the\r\nalgorithm below:\r\n\r\n      RINGFL points:\r\n\r\n      NASTRAN (or internal) grid ID = User (or external) ring ID + 1,000,000 x\r\n      IN where\r\n\r\n        IN  =  N + 1    cosine series\r\n\r\n        IN  =  N + 1/2  sine series\r\n\r\n      CFLUIDi connection cards:\r\n\r\n      NASTRAN (or internal) element ID = User (or external) element ID x 1000\r\n      + IN where IN is defined above for each harmonic N.\r\n\r\n   For example, if you requested all harmonics from zero to two, including the\r\nsine(*) series, each RINGFL card will produce five special grid cards\r\ninternally. If your identification number (in field 2 of the RINGFL data card)\r\nwere 37, the internally generated grid points would have the following\r\nidentification numbers:\r\n\r\n      Harmonic       ID\r\n\r\n         0        1,000,037\r\n         1*       1,500,037\r\n         1        2,000,037\r\n         2*       2,500,037\r\n         2        3,000,037\r\n\r\nThese equivalent grid points are resequenced automatically by NASTRAN to be\r\nadjacent to the original RINGFL identification number. A RINGFL point may not\r\nbe resequenced by you.\r\n\r\n   The output from matrix printout, table printout, and error messages will\r\nhave the fluid points labeled in this form. If you wish, you may use these\r\nnumbers as scalar points for Random Analysis, X-Y plotting, or for any other\r\npurpose.\r\n\r\n   In addition to the multiple sets of points and connection cards, the\r\nNASTRAN Preface also may generate constraint sets. For example, if a free\r\nsurface (FSLIST) is specified in a zero-gravity field, the pressures are\r\nconstrained by NASTRAN to zero. For this case, the internally generated set of\r\nsingle point constraints are internally combined with any user defined\r\nstructural constraints and will always be automatically selected.\r\n\r\n   If pressures at points in the fluid (PRESPT) or gravity dependent normal\r\ndisplacements on the free surface (FREEPT) are requested, the program will\r\nconvert them to scalar points and create a set of multipoint constraints with\r\nthe scalar points as dependent variables. The constraint set will be\r\ninternally combined with any user defined sets and will be selected\r\nautomatically.\r\n\r\n   The PRESPT and FREEPT scalar points may be used as normal scalar points for\r\npurposes such as plotting versus frequency or time. Although the FREEPT values\r\nare displacements, scalar elements connected to them will have a different\r\nmeaning from that in the structural case.\r\n\r\n1.7.2  Three-Dimensional Hydroelastic Modeling\r\n\r\n1.7.2.1  Solution Approach\r\n\r\n   The three-dimensional hydroelasticity capability in NASTRAN allows for the\r\nsolution of problems involving interacting, arbitrarily-shaped structures and\r\nfluids. It is intended for the vibration analysis of fluid-filled tanks in an\r\nacceleration field where the fluid motions interact with the structure\r\ndisplacements. Both free surface sloshing modes and higher frequency coupled\r\nmodes may be obtained from the analysis.\r\n\r\n   The method used to formulate the fluid/structure equations is described in\r\nReference 1. The basis for defining the fluid is three-dimensional finite\r\nelements connected to fluid grid points defining the Eulerian pressure at a\r\npoint fixed in space. The use of a single degree-of-freedom pressure at each\r\npoint rather than three displacements allows a finer mesh of elements with a\r\nreasonable matrix order.\r\n\r\n   In the formulation of the fluid/structure system, the interior fluid\r\ndegrees of freedom are transformed and removed from the solution matrices. The\r\neigenvalues of the combination are extracted from small, fully dense,\r\nsymmetric mass and stiffness matrices, efficiently processed with the \"Givens\"\r\nmethod. The solution matrices are defined only by the free surface\r\ndisplacements and the reduced structure coordinates.\r\n\r\n   All NASTRAN modeling options are available for the definition of the\r\nstructure. All options for the Executive Control and Case Control data for\r\nnormal modes analysis are also available for the hydroelastic problems. In\r\naddition to the normal NASTRAN data, a hydroelastic problem requires the\r\naddition of a finite element fluid model, the specification of its boundaries,\r\nand the addition of special control data.\r\n\r\n   For three-dimensional hydroelastic analysis, the fluid is modeled with\r\nthree-dimensional finite elements having shapes defined by tetrahedra\r\n(CFTETRA), wedge (CFWEDGE), and hexagonal (CFHEX1 or CFHEX2) volumes. The\r\nfluid is assumed to be locally incompressible and non-viscous with small\r\nmotions relative to the overall free body displacements of the system. The\r\nfollowing options are provided for defining the fluid boundary conditions.\r\n\r\n   1. The default boundary is a rigid wall.\r\n\r\n   2. Pure free surfaces are defined with single point constraints.\r\n\r\n   3. Free surfaces with gravity effects are specified with CFFREE data cards.\r\n\r\n   4. Fluid/structure boundaries are defined by CFLSTR data cards.\r\n\r\nSeveral alternate paths are available for the execution of the problem and the\r\nformulation of the solution equations. These are:\r\n\r\n   1. Direct versus Modal Structure Formulation\r\n\r\n      In \"direct\" formulation, the solution matrices are defined by the\r\n      structure degrees of freedom (after constrained and omitted points are\r\n      removed) plus one degree of freedom for each free surface point defined\r\n      on CFFREE data. The alternate \"modal\" formulation calculates the modes\r\n      of the empty structure and uses the generalized displacements of these\r\n      modes with the free surface degrees of freedom in the solution matrix\r\n      formulation. Although the modal formulation requires the additional cost\r\n      of another eigenvalue extraction process, the combination system\r\n      matrices will be smaller. This method is recommended for problems where\r\n      several different fluid models are used with the same structure model.\r\n      The structure modes need only be calculated once. Different fluid models\r\n      may be analyzed using the NASTRAN restart procedure to recover the\r\n      structure mode data.\r\n\r\n   2. Compressibility Options\r\n\r\n      Two methods are provided for defining the compressible fluid effects.\r\n      The overall compressibility of the enclosed volume may be specified as a\r\n      parametric number which, in effect, provides a stiffness factor applied\r\n      to the total volume change. The alternate method produces zero volume\r\n      change by automatically constraining one degree of freedom in the\r\n      system. The latter method is not allowed in the \"modal\" formulation\r\n      option.\r\n\r\n   3. Differential Stiffness Effects (Ullage Pressure)\r\n\r\n      An option has been provided for including the effects of ullage pressure\r\n      on the structure stiffness. These additional stiffness terms are\r\n      calculated in a separate structure-only Rigid Format 4 analysis with\r\n      pressures defined by static loads. The differential stiffness is\r\n      transferred to the problem with the NASTRAN checkpoint/restart procedure\r\n      and is controlled by two parameters, DISTIF and DIFSCALE.\r\n\r\n      In the following sections, the actual NASTRAN input is described. The\r\n      section on the Executive Control Deck describes the overall system\r\n      control and the available parametric data. The section on the Case\r\n      Control Deck describes the control of optional input cases and output\r\n      requests. The Bulk Data Deck section describes the detailed formats for\r\n      each bulk data card.\r\n\r\n1.7.2.2  Executive Control Deck\r\n\r\n   The hydroelastic Executive Control Deck is similar to that for the standard\r\nnormal modes analysis, Rigid Format 3. When running the hydroelastic analyses,\r\nyou must insert one of the special DMAP ALTER packages into your Executive\r\nControl Deck. These ALTER packages are delivered with the NASTRAN system.\r\n\r\n   Two special DIAGs are provided for the hydroelastic analysis.\r\n\r\n   DIAG 32 Prints a list of degrees of freedom including fluid point\r\n           definitions. For each point, an indication is made identifying the\r\n           sets to which it belongs.\r\n\r\n   DIAG 33 Prints the contents of selected displacement sets. For each set, a\r\n           list of all degrees of freedom belonging to the set is given.\r\n\r\nThese two DIAGs produce output similar to that provided by DIAGs 21 and 22\r\nexcept that the following hydroelastic sets are included or modified:\r\n\r\n      Ux  =  Structure point\r\n\r\n      Uy  =  Fluid point\r\n\r\n      Ufr =  Free surface point\r\n\r\n      Uz  =  Ux + Ufr\r\n\r\n      Uab =  a bits (structure only)\r\n\r\n      Ui  =  Interior fluid points\r\n\r\n      Ua  =  Uab + Ufr\r\n\r\nHydroelastic DMAP ALTERs\r\n\r\n   Two sets of DMAP ALTERs to Rigid Format 3 are provided to perform the\r\nthree-dimensional hydroelastic analysis. The ALTERs obtain the hydroelastic\r\nsolution with either direct or modal formulation.\r\n\r\n   Several optional parameters may be specified by you for each type of\r\nformulation. These parameters are all described in Section 1.7.2.4 under the\r\ndescription of the hydroelastic Bulk Data Deck.\r\n\r\n1.7.2.3  Case Control Deck\r\n\r\n   The Case Control data for normal modes analysis, Rigid Format 3, is not\r\nmodified for direct hydroelastic solutions. For modal formulation, the data is\r\nsimilar except that two sets of subcases must be provided. The first set must\r\nselect an EIGR card (by means of the METHOD card) to define eigenvalue\r\nextraction for the structure-only model. Several subcases may be used to\r\ndefine output requests for different vectors with the MODES card. A second set\r\nof subcases is also needed to define eigenvalue extraction and output requests\r\nfor the combined fluid/structure model. If the NEWMODE or OLDSTR parameter is\r\nused with modal formulation, only the second set of subcases, used for the\r\ncomplete model, is required. Three sample Case Control Decks are shown below.\r\n\r\nDirect Formulation:\r\n\r\n   TITLE  =\r\n   SPC = 10\r\n   METHOD  = 50\r\n   DISP = ALL\r\n\r\nModal Formulation:\r\n\r\n   TITLE =\r\n   SPC = 10\r\n   SUBCASE 1\r\n      LABEL  =  MODES OF EMPTY STRUCTURE\r\n      METHOD   = 10\r\n      DISP =   NONE\r\n   SUBCASE 2\r\n      LABEL  =  MODES WITH FLUID INCLUDED\r\n      METHOD   = 20\r\n      DISP =   ALL\r\n\r\nModal Formulation with Selective Output Requests:\r\n\r\n   TITLE =\r\n   SPC = 10\r\n   SUBCASE 1\r\n      LABEL = STRUCTURE MODES 1 & 2\r\n      METHOD = 10\r\n      DISP = ALL\r\n      MODES = 2\r\n   SUBCASE 3\r\n      LABEL STRUCTURE MODES 3 & 4\r\n      DISP NONE\r\n   SUBCASE 5\r\n      LABEL = FLUID/STRUCTURE MODES 1-3\r\n      METHOD = 20\r\n      DISP = ALL\r\n      MODES = 3\r\n   SUBCASE 8\r\n      LABEL = FLUID/STRUCTURE MODE 4\r\n      DISP = NONE\r\n\r\nIn the third and last example above, the eigenvectors for only the first two\r\nstructure modes and the first three combined modes will be printed.\r\n\r\nHydroelastic Output Control\r\n\r\n   The structure printout and plotting Case Control requests are used to\r\ncontrol both the fluid and structure outputs. The following data is available:\r\n\r\n   1. Structure-related data such as displacements, forces, and stresses are\r\n      processed with normal NASTRAN control.\r\n\r\n   2. Fluid internal pressures are output by including their grid point\r\n      identification numbers in the DISP = output request. If the fluid point\r\n      is on a free surface defined by CFFREE data, the actual free surface\r\n      displacements will be printed.\r\n\r\n   3. Both structure and fluid elements may be plotted as undeformed shapes.\r\n      The interior fluid point degrees of freedom are actually pressures and\r\n      should not be plotted as deformed shapes.\r\n\r\n   4. The deformed shape of the free surface may be plotted using the \"SHAPE\"\r\n      or \"VECTOR\" plot options. It is recommended that PLOTEL elements be used\r\n      to define the free surface. If the fluid elements CFHEX1, CFHEX2, etc.,\r\n      are used in the requested plot set, all of their boundaries will be\r\n      plotted and will result in a confused plot.\r\n\r\n   5. The use of the MODES card to control output requests is described under\r\n      the Case Control Deck section.\r\n\r\n1.7.2.4  Bulk Data Deck\r\n\r\n   The bulk data cards that pertain specifically to three-dimensional\r\nhydroelastic modeling are CFFREE, CFHEXi (i = 1 or 2), CFLSTR, CFTETRA,\r\nCFWEDGE, and MATF. These are all described in Section 2.4 along with all other\r\nNASTRAN bulk data cards. These cards are used to define the fluid and\r\nfluid/structure interface. The tank walls and supporting structure are defined\r\nwith NASTRAN structural elements. The actual tank walls must be defined by\r\ntwo-dimensional membrane, panel, or plate elements.\r\n\r\n   In addition to the special cards mentioned above, the following NASTRAN\r\nbulk data cards are used for special hydroelastic purposes:\r\n\r\n   1. GRID cards are used to define the fluid points. Fluid points contain\r\n      only one degree of freedom and may not be connected to the structural\r\n      elements.\r\n\r\n   2. GRAV cards are used to define the magnitude and direction of the gravity\r\n      field. The set identification numbers are referenced by the fluid\r\n      boundary data cards.\r\n\r\n   3. SPC and SPC1 data cards may be used to define constraints on the fluid\r\n      grid points. These constraints are used to define regions of zero\r\n      pressure in the fluid, such as a free surface without gravity effects or\r\n      anti-symmetric boundary condition on a plane of symmetry. Only\r\n      degree-of-freedom number 1 may be specified for a fluid grid point.\r\n\r\n   In addition, as indicated in Section 1.7.2.2, several optional parameters\r\nmay be specified by you for both direct and modal formulations. These\r\nparameters are in addition to those already provided in Rigid Format 3 and are\r\nentered in the Bulk Data Deck using the PARAM card. The parameters are\r\ndescribed below. They are used to:\r\n\r\n   1. Control the optional computation paths,\r\n\r\n   2. Specify numerical factors to be used in the formulation, and\r\n\r\n   3. Allow blocks of DMAP statements to be turned \"off\" for restart from a\r\n      previous checkpoint run.\r\n\r\nDirect Formulation Parameters\r\n\r\n   1. COMPTYP (optional) default = -1\r\n\r\n      Controls the type of compressibility calculations performed. A negative\r\n      integer will cause finite compressibility as defined by the KCOMP\r\n      parameter. A positive integer will cause constraint equation to be\r\n      generated to provide pure incompressibility.\r\n\r\n   2. KCOMP (optional) default = 1.0\r\n\r\n      The real value of this parameter defines the overall compressibility of\r\n      the fluid volume. The definition is fluid bulk modulus divided by total\r\n      volume.\r\n\r\n   3. DIFSTIF (optional) default = 1\r\n\r\n      A negative integer value causes the differential stiffness matrix to be\r\n      included for ullage pressure effects. This matrix is available from the\r\n      checkpoint file of a Rigid Format 4 solution run of the structure model.\r\n\r\n   4. DIFSCALE (optional) default = 1.0\r\n\r\n      The differential stiffness matrix may be multiplied by the real value of\r\n      this parameter.\r\n\r\n   5. NEWMODE (optional) default = 1\r\n\r\n      A negative integer will cause all DMAP statements and ALTERs up to the\r\n      eigenvalue extraction to be skipped. This allows you to restart the\r\n      original solution to obtain different eigenvectors without changing the\r\n      DMAP ALTER deck.\r\n\r\n   6. OLDSTR (optional) default = 1\r\n\r\n      A negative value will cause most structure-related processing to be\r\n      skipped. This allows you to restart a previous solution, either hydro or\r\n      structure only, and change the fluid model without recomputing the\r\n      unchanged structure.\r\n\r\nModal Formulation Parameters\r\n\r\n   1. KCOMP (optional) default = 1.0\r\n\r\n      (same as direct formulation parameter)\r\n\r\n   2. DIFSTIF (optional) default = 1\r\n\r\n      (same as direct formulation parameter)\r\n\r\n   3. DIFSCALE (optional) default = 1.0\r\n\r\n      (same as direct formulation parameter)\r\n\r\n   4. NEWMODE (optional) default = 1\r\n\r\n      (same as direct formulation parameter)\r\n\r\n   5. OLDSTR (optional) default = 1\r\n\r\n      (same as direct formulation parameter)\r\n\r\n   6. LMODES (optional) default = 1\r\n\r\n      This integer value specifies the number of the lowest structure modes to\r\n      be used when formulating the hydroelastic matrices. A negative value\r\n      indicates all available modes are to be used.\r\n\r\nREFERENCE\r\n\r\n1. Final Report, NASTRAN Hydroelastic Modal Studies, Volume I, Introduction,\r\n   Theory and Results, (by Universal Analytics, Inc.), National Aeronautics\r\n   and Space Administration, NASA-CR-150393, May 1977.\r\n=PAGE=\r\n1.8  HEAT TRANSFER PROBLEMS\r\n\r\n1.8.1  Introduction to NASTRAN Heat Transfer\r\n\r\n   NASTRAN heat flow capability may be used either as a separate analysis to\r\ndetermine temperatures and fluxes, or to determine temperature inputs for\r\nstructural problems. Steady and transient problems can be solved, including\r\nheat conduction (with variable conductivity for static analysis), film heat\r\ntransfer, and nonlinear (fourth power law) radiation.\r\n\r\n   The heat flow problem is similar, in many ways, to structural analysis\r\n(Figure 1.8-1). The same grid points, coordinate systems, elements,\r\nconstraints, and sequencing can be used for both problems. There are several\r\ndifferences, such as the number of degrees of freedom per grid point, the\r\nmethods of specifying loads, boundary film heat conduction, and the nonlinear\r\nelements. For heat flow problems, the only unknown at a grid point is the\r\ntemperature (compare structural analysis with three translations and three\r\nrotations), and hence, there is one degree of freedom per grid point.\r\nAdditional grid or scalar points are introduced for fluid ambient temperatures\r\nin convective film heat transfer. If radiation effects are included or the\r\nconductivity of an element is temperature dependent, the problem becomes\r\nnonlinear (compare structural analysis with temperature dependent materials\r\nwhich only requires looking up material properties and computing thermal\r\nloads).\r\n\r\n   The heat conduction analysis of NASTRAN is compatible with structural\r\nanalysis. If the same finite elements are appropriate, then the same grid and\r\nconnection cards can be used for both problems. As in structural analysis, the\r\nchoice of a finite element model is left to the analyst. Temperature\r\ndistributions can be output in a format which can be input into structural\r\nproblems. Heat flow analysis uses many structural NASTRAN Bulk Data cards.\r\nThese include (where i means there is more than one type):  CBAR, CDAMPi,\r\nCELASi, CHEXAi, CIHEXi, CONROD, CORDii, CQDMEM, CQUADi, CROD, CTETRA, CTRAPRG,\r\nCTRIAi, CTRIARG, CTRMEM, CTUBE, CVISC, CWEDGE, DAREA, DELAY, DLOAD, DMI, DMIG,\r\nEPOINT, GRDSET, GRID, LOAD, MPC, MPCADD, NOLINi, OMITi, PARAM, Piii (for\r\nelements requiring properties), PLOTEL, SEQiP, SLOAD, SPCi, SPCADD, SPOINT,\r\nTABLEDi, TABLEMi, TEMPii, TF, TLOADi, and TSTEP.\r\n\r\n1.8.2  Heat Transfer Elements\r\n\r\n   The basic heat conduction elements are the same as NASTRAN structural\r\nelements. These elements are shown in the following table:\r\n\r\nĿ\r\n                     Heat Conduction Elements                         \r\nĴ\r\n Type                              Elements                          \r\nĴ\r\n Linear              BAR, ROD, CONROD, TUBE                          \r\n                                                                     \r\n Membrane            TRMEM, TRIA1, TRIA2, QDMEM, QUAD1, QUAD2        \r\n                                                                     \r\n Solid of Revolution TRIARG, TRAPRG                                  \r\n                                                                     \r\n Solid               TETRA, WEDGE, HEXA1, HEXA2, IHEX1, IHEX2, IHEX3 \r\n                                                                     \r\n Scalar              CELASi, CDMAPi                                  \r\n\r\n\r\nA connection card (Cxxx) and, if applicable, a property card (Pxxx) is defined\r\nfor each of these elements. Linear elements have a constant cross-sectional\r\narea. The offset on the BAR is treated as a perfect conductor (no temperature\r\ndrop). For the membrane elements, the heat conduction thickness is the\r\nmembrane thickness. The bending characteristics of the elements do not enter\r\ninto heat conduction problems. The solid of revolution element, TRAPRG, has\r\nbeen generalized to accept general quadrilateral rings (that is, the top and\r\nbottom need not be perpendicular to the z-axis for heat conduction). These\r\nheat conduction elements are composed of constant gradient lines, triangles,\r\nand tetrahedra. The quadrilaterals are composed of overlapping triangles, and\r\nthe wedges and hexahedra from subtetrahedra. Scalar spring elements are used\r\nfor transient analysis temperature constraints and scalar damping elements are\r\nused to add thermal mass. Gradients and fluxes may be output by requesting\r\nELFORCE.\r\n\r\n   Thermal material conductivities and heat capacities are given on MAT4\r\n(isotropic) and MAT5 (anisotropic) Bulk Data cards. Temperature dependent\r\nconductivities are given on MATT4 and MATT5 bulk data cards, which can only be\r\nused for nonlinear static analysis. The heat capacity per unit volume is\r\nspecified, which is the product of density and heat capacity per unit mass\r\n(pCp). Lumped conductivities and thermal capacitance may be defined by the\r\nCELASi and CDAMPi elements, respectively.\r\n\r\n   A special element (HBDY) defines an area for boundary conditions. There are\r\nfive basic types, called POINT, LINE, REV, AREA3, and AREA4. A sixth type,\r\nELCYL, is for use only with QVECT radiation. The HBDY is considered an\r\nelement, since it can add terms to the conduction and heat capacity matrices.\r\nThere is a CHBDY connection and PHBDY property card. When a film heat transfer\r\ncondition is desired, film conductivity and heat capacity per unit area are\r\nspecified on MAT4 data cards. The ambient temperature is specified with\r\nadditional points (GRID or SPOINT) listed on the CHBDY connection card. See\r\nFigure 1.8-2 for geometry.\r\n\r\n   Radiation heat exchange may be included between HBDY elements. A list of\r\nHBDY elements must be specified on a RADLST Bulk Data card. The emissivities\r\nare specified on the PHBDY cards. The Stefan-Boltzmann constant (SIGMA) and\r\nabsolute reference temperature (TABS) are specified on PARAM Bulk Data cards.\r\nRadiation exchange coefficients (default is zero) are specified on RADMTX Bulk\r\nData cards.\r\n\r\n   The several types of power input to the HBDY elements can be output by the\r\nELFORCE request.\r\n\r\n1.8.3  Constraints and Partitioning\r\n\r\n   Constraints are applied to provide boundary conditions, represent \"perfect\"\r\nconductors, and provide other desired characteristics for the heat transfer\r\nmodel.\r\n\r\n   Single point constraints are used to specify the temperature at a point.\r\nThe grid or scalar points are listed on SPC or SPC1 bulk data cards, not\r\nGRDSET or GRID cards. The component on the data card must be \"0\" or \"1\". This\r\ndeclares the degree of freedom to be in the us set. The method of specifying\r\ntemperature is dependent upon the problem type.\r\n\r\n   In linear statics analysis, the SPC or SPC1 card is used to constrain grid\r\npoints at a fixed temperature. In nonlinear statics analysis, the SPC or SPC1\r\ncard is used to designate the grid point ID which is to be constrained. The\r\nactual value of the temperature is indicated on a TEMP card, selected by\r\nTEMP(MATERIAL) in the Case Control deck. In transient analysis, the SPC or\r\nSPC1 card may be used to fix the temperature of a grid point only when the\r\ntemperature is zero. When the temperature is non-zero a large conductive\r\ncoupling to a \"ground\" at absolute temperature must be defined. From the\r\nstructural relationship F=Kx, the thermal analogy is made where K is the\r\nconductive coupling, F is an applied load, and x is the fixed temperature. In\r\nthis case, x is adjusted to the desired temperature by defining the spring\r\nconstant, K, of a CELASi element, which is connected to \"ground\", and a load,\r\nF, which is applied to the grid point in question. The numerical value of K\r\nshould be several orders of magnitude greater than the numerical value of the\r\nconductances prescribed for the rest of the model.\r\n\r\n   Multipoint constraints are linear relationships between temperatures at\r\nseveral grid points, and are specified on MPC cards. The first entry on an MPC\r\ncard will be in the um set. The type of constraint is limited if nonlinear\r\nelements are present. If a member of set um touches a non-linear (conduction\r\nor radiation) element, the constraint relationship is restricted to be an\r\n\"equivalence\". The term \"equivalence\" means that the value of the member of\r\nthe um set will be equal to one of the members of the un set (a point not\r\nmultipoint constrained). Those points not touching nonlinear elements are not\r\nso limited. You will be responsible to satisfy the equivalence requirement, by\r\nhaving only two entries on the MPC data card, with equal (but opposite in\r\nsign) coefficients.\r\n\r\n1.8.4  Thermal Loads\r\n\r\n   Thermal \"loads\" may be boundary heat fluxes or volume heat addition. As in\r\nthe case of structural analysis, the method of specifying loads is different\r\nfor static and transient analysis. The HBDY element is used for boundaries of\r\nconducting regions. Surface heat flux input can be specified for HBDY elements\r\nwith QBDY1 and QBDY2 data cards. These two cards are for constant and\r\n(spatially) variable flux, respectively. Flux can be specified without\r\nreference to an HBDY element with the QHBDY data card. Vector flux, such as\r\nsolar radiation, depends upon the angle between the flux and the element\r\nnormal, and is specified for HBDY elements with the QVECT data card. This\r\nrequires that the orientation of the HBDY element be defined. Volume heat\r\naddition into a conduction element is specified on a QVOL data card.\r\n\r\n   Static thermal loads are requested in Case Control with LOAD card. All of\r\nthe above load types plus SLOADs can be requested. Transient loads are\r\nrequested in Case Control with a DLOAD card, which selects TLOAD time\r\nfunctions. Transient thermal loads may use DAREA (as in structural transient),\r\nand/or the QBDY1, QBDY2, QHBDY, QVECT, QVOL, and SLOAD cards. The resultant\r\nthermal load will be the sum of all loads applied. This means the LOAD SIDs\r\nand DAREA SIDs must be the same when referenced on a TLOADi card.\r\n\r\n1.8.5  Linear Static Analysis\r\n\r\n   Linear static analysis uses APProach HEAT, SOLution 1. The rigid format is\r\nthe same as that used for static structural analysis. This implies that\r\nseveral loading conditions and constraint sets can be solved in one job, by\r\nusing subcases in the Case Control deck.\r\n\r\n1.8.6  Nonlinear Static Analysis\r\n\r\n   Nonlinear static analysis uses APProach HEAT, SOLution 3. This rigid format\r\nwill allow temperature dependent conductivities of the elements, nonlinear\r\nradiation exchange, and a limited use of multipoint constraints. There is no\r\nlooping for load and constraints. The solution is iterative. You can supply\r\nvalues on PARAM Bulk Data cards for:\r\n\r\n   MAXIT (integer) Maximum number of iterations (default 4).\r\n\r\n   EPSHT (real)     convergence parameter (default .001).\r\n\r\n   TABS (real)     Absolute reference temperature (default 0.0).\r\n\r\n   SIGMA (real)    Stefan-Boltzmann radiation constant (default 0.0).\r\n\r\n   IRES (integer)  Request residual vector output if positive (default -1).\r\n\r\n   You must supply an estimate of the temperature distribution vector {u1}.\r\nThis estimate is used to calculate the reference conductivity plus radiation\r\nmatrix needed for the iteration. {u1} is also used at all points in the us set\r\nto specify a boundary temperature. The values of {u1} are given on TEMP Bulk\r\nData cards, and they are selected by TEMP(MATERIAL) in Case Control.\r\n\r\n   Iteration may stop for the following reasons:\r\n\r\n   1. Normal convergency:  T < EPSHT, where T is the per unit error estimate\r\n      of the temperatures calculated.\r\n\r\n   2. Number of iterations > MAXIT.\r\n\r\n   3. Unstable: |1| < 1 and the number of iterations > 3, where 1 is a\r\n      stability estimator.\r\n\r\n   4. Insufficient time to perform another iteration and output data.\r\n\r\nThe precise definitions are given in the NASTRAN Theoretical Manual, Section\r\n8.4. Error estimates p, 1, and T for all iterations may be output with the\r\nExecutive Control card DIAG 18, where p is the ratio of the Euclidian norms\r\nof the residual (error) loads to the applied loads on the unconstrained\r\ndegrees of freedom.\r\n\r\n1.8.7  Transient Analysis\r\n\r\n   Transient analysis uses APProach HEAT, SOLution 9. This rigid format may\r\ninclude conduction, film heat transfer, nonlinear radiation, and NASTRAN\r\nnonlinear elements. Extra points are used as in structural transient analysis.\r\nAll points associated with nonlinear loads must be in the solution set. Loads\r\nmay be applied with TLOAD and DAREA cards as in structural analysis. Also, the\r\nthermal static load cards can be modified by a function of time for use in\r\ntransient analysis. If the static load data is used to define a transient\r\nload, the static load set identification is referenced on the TLOAD card in\r\nthe DAREA field. Loads are requested in Case Control with DLOAD. Initial\r\ntemperatures are specified on TEMP Bulk Data cards and are requested by IC.\r\nPrevious static or transient solutions can be easily used as initial\r\nconditions, since they can be punched in the correct format. An estimate of\r\nthe temperature {u1} is specified on TEMP Bulk Data cards for transient with\r\nradiation, and is requested by TEMP(MATERIAL). The parameters available are:\r\n\r\n   TABS (real)     Absolute reference temperature (default 0.0).\r\n\r\n   SIGMA (real)    Stefan-Boltzmann radiation constant (default 0.0).\r\n\r\n   BETA (real)     Forward difference integration factor (default .55).\r\n\r\n   RADLIN (Integer)Radiation is linearized if positive (default -1).\r\n\r\n   Time steps are specified on TSTEP data cards.\r\n\r\n1.8.8  Compatibility with Structural Analysis\r\n\r\n   Grid point temperatures for thermal stress analysis (static structural\r\nanalysis) are specified on TEMP Bulk Data cards. If punched output is\r\nrequested in a heat conduction analysis for Rigid Formats 1 and 3, the format\r\nof the punched card is exactly that of a double field TEMP* data card. Thus,\r\nif the heat conduction model is the same as the structural model, the same\r\ngrid, connection, and property cards can be used for both, and the temperature\r\ncards for the structural analysis are produced by the heat conduction\r\nanalysis. The output request in Case Control is THERMAL(PUNCH).\r\n=PAGE=\r\nĿ         Ŀ         Ŀ\r\n       SEQGP                       CORDi                                  \r\n    Grid Point                  Coordinate                  Grid Point    \r\n     Sequence       Ŀ         System          Ĵ     Properties    \r\n                               Definition                               \r\n                \r\n                                                    \r\nĿ        Ŀ        Ŀ\r\n    CONSTRAINTS         Ĵ      GRID                  Cxxx        \r\n    Single Point    Ĵ   Grid Point    Ĵ   Conduction &    \r\n     Multipoint         Ĵ   Definition               Boundary Element \r\n  (Omitted Points)                                         Definition    \r\n                                     \r\n                                                                 \r\n                                                                 \r\n                                             \r\n                                                                   \r\nĿ        Ŀ         Ŀ\r\n  CONSTANT FACTORS            STATIC THERMAL                Pxxx         \r\n     Load Scale                   LOADS                    Property      \r\n     Load Delay           Internal Heat               Definition     \r\n                                Generation             \r\n           Boundary Heat                     \r\n                                   Fluxes                         \r\n                              Directional Heat                    \r\n                                   Source                         \r\n                                                 \r\nĿ                                     Ŀ\r\n  DYNAMIC THERMAL                                              MATxx        \r\n       LOADS                                                  Material      \r\n   Time Dependent                                            Definition     \r\n   Thermal Loads                                         \r\n                                               \r\n                                                                    \r\nĿ                                     Ŀ\r\n     TABLEDi                                                  TABLEMi       \r\n   Table (Time)                                          Table (Temperature)\r\n                                                                            \r\n                                     \r\n\r\n\r\n                  Figure 1.8-1. Thermal model diagram\r\n=PAGE=\r\nType = POINT\r\n\r\n                                   \r\n                                   _   _  _         _\r\nThe unit normal vector is given by n = V/|V|, where V is given in the basic\r\nsystem at the referenced grid point (see CHBDY data card, fields 16-18).\r\n\r\nType = LINE\r\n\r\n                                   \r\n                                     _     _                      _\r\nThe unit normal lies in the plane of V and T, is perpendicular to T, and is\r\n         _    _    _ _    _    _ _\r\ngiven by n = (T x (VxT))/|T x (VxT)|.\r\n\r\nType = ELCYL\r\n\r\n                                   \r\n                                    _\r\nThe same logic is used to determine n as for type = LINE. The \"radius\" R  is in\r\n    _                                       _     _                     1\r\nthe n direction, and R  is perpendicular to n and T (see fields 7 and 8 of PHBDY\r\n                      2\r\ncard).\r\n\r\n\r\n  Figure 1.8-2. HBDY element orientation (for QVECT flux) (continued)\r\n\r\nType = REV\r\n\r\n                                   \r\n                                                       _    _    _   _    _\r\nThe unit normal lies in the x-z plane, and is given by n = (e  x T)/|e  x T|.\r\n_                                                            y        y\r\ne  is the unit vector in the y direction.\r\n y\r\n\r\nType = AREA3 or AREA4\r\n\r\n                                   \r\n                                   _    _     _     _     _\r\nThe unit normal vector is given by n = (T   x T  )/|T   x T  |, where x = 3 for\r\n                                         12    1x    12    1x\r\ntriangles and x = 4 for quadrilaterals.\r\n\r\n\r\n  Figure 1.8-2. HBDY element orientation (for QVECT flux) (concluded)\r\n\r\n=PAGE=\r\n1.9  ACOUSTIC CAVITY MODELING\r\n\r\n1.9.1  Data Card Functions\r\n\r\n   The NASTRAN structural analysis system is used as the basis for acoustic\r\ncavity analysis. Many of the structural analysis options, such as selecting\r\nboundary conditions, applying loading conditions, and selecting output data,\r\nare also available for acoustics.\r\n\r\n   The data cards specifically used for acoustic cavity analysis are described\r\nbelow. The card formats are exhibited in Section 2.4. Their purposes are\r\nanalogous to the use of structural data cards. A gridwork of points is\r\ndistributed over the longitudinal cross section of an acoustic cavity and\r\nfinite elements are connected between these points to define the enclosed\r\nvolume.\r\n\r\n   The points are defined by GRIDF data cards for the axisymmetric central\r\nfluid cavity and by GRIDS data cards for the radial slots. The GRIDF points\r\nare interconnected by finite elements via the CAXIF2, CAXIF3, and CAXIF4 data\r\ncards to define a cross sectional area of the body of rotation. The CAXIF2\r\nelement data card defines the area of the cross section between the axis and\r\ntwo points off the axis (the GRIDF points may not have a zero radius). The\r\nCAXIF3 and CAXIF4 data cards define triangular or quadrilateral cross sections\r\nand connect three or four GRIDF points respectively. The density and/or bulk\r\nmodulus at each location of the enclosed fluid may also be defined on these\r\ncards.\r\n\r\n   The GRIDS points in the slot region are interconnected by finite elements\r\nvia the CSLOT3 and CSLOT4 data cards. These define finite elements with\r\ntriangular and quadrilateral cross-sectional shapes respectively. The width of\r\nthe slot and the number of slots may be defined by default values on the\r\nAXSLOT data card. If the width of the slots is a variable, the value is\r\nspecified on the GRIDS cards at each point. The number of slots, the density,\r\nand/or the bulk modulus of the fluid may also be defined individually for each\r\nelement on the CSLOT3 and CSLOT4 cards.\r\n\r\n   The AXSLOT data card is used to define the overall parameters for the\r\nsystem. Some of these parameters are called the \"default\" values and may be\r\nselectively changed at particular cross sections of the structure. The values\r\ngiven on the AXSLOT card will be used if a corresponding value on the GRIDS,\r\nCAXIFi, or CSLOTi is left blank. The parameters p (density) and B (bulk\r\nmodulus) are properties of the fluid. If the value given for Bulk Modulus is\r\nzero the fluid is considered incompressible by the program. The parameters M\r\n(number of slots) and W (slot width) are properties of the geometry. The\r\nparameter M defines the number of equally spaced slots around the\r\ncircumference with the first slot located at  = 0 degrees. The parameter N\r\n(harmonic number) is selected by you to analyze a particular set of acoustic\r\nmodes. The pressure is assumed to have the following distribution\r\n\r\n   p(r,z,)  =  p(r,z) cos N\r\n\r\n   If N = 0 the breathing and longitudinal modes will result. If N = 1 the\r\npressure at  = 180 degrees will be the negative of the pressure at  = 0\r\ndegrees. If N = 2, the pressures at  = 90 degrees and   = 270 degrees will\r\nbe the negative of that at  = 0 degrees. Values of N larger than M/2 have no\r\nsignificance.\r\n\r\n   The interface between the central cavity and the slots is defined with the\r\nSLBDY data cards. The data for each card consists of the density of the fluid\r\nat the interface, the number of radial slots around the circumference, and a\r\nlist of GRIDS points that are listed in the sequence in which they occur as\r\nthe boundary is traversed. In order to ensure continuity between GRIDF and\r\nGRIDS points at the interface, the GRIDF points on the boundary between the\r\ncylindrical cavity and the slots are identified on the corresponding GRIDS\r\ndata cards rather than on GRIDF cards. Thus, the locations of the GRIDF points\r\nwill be exactly the same as the locations of the corresponding GRIDS points.\r\n\r\n   Various standard NASTRAN data cards may be used for special purposes in\r\nacoustic analysis. The SPC1 data card may be used to constrain the pressures\r\nto zero at specified points such as at a free boundary. The formats for these\r\ncards are included in Section 2.4. Dynamic load cards, direct input matrices,\r\nand scalar elements may be introduced to account for special effects. The\r\nreader is referred to Sections 1.4 and 1.5 for instruction in the use of these\r\ncards.\r\n\r\n1.9.2  Assumptions and Limitations\r\n\r\n   The accuracy of the acoustic model will be dependent on the selection of\r\nthe mesh of finite elements. The assumption for each element is that the\r\npressure field has a linear variation over the cross section and a sinusoidal\r\nvariation around the axis in the circumferential direction. In areas where the\r\npressure gradient changes are large, such as near a sharp corner, the points\r\nin the mesh should be placed closer together so that large changes in flow may\r\nbe defined accurately by the finite elements.\r\n\r\n   The shapes of the finite elements play an important part in the accuracy of\r\nthe results. It has been observed that long narrow elements produce\r\ndisproportionate errors. Cutting a large square into two rectangles will not\r\nimprove the results, whereas dividing the square into four smaller squares may\r\ndecrease the local error by as much as a factor of ten.\r\n\r\n   The slot portion of the cavity is limited to certain shapes because of\r\nbasic assumptions in the algorithms. The cross section of the cavity normal to\r\nthe axis must have a shape that is reasonably well defined by a central\r\ncircular cavity having equally spaced, narrow slots. Various shapes are shown\r\nin Figure 1.9-1 in the order of increasing expected error.\r\n\r\n   It is recommended that shapes such as the cloverleaf and square cross\r\nsection be analyzed with a full three dimensional technique. The assumption of\r\nnegligible pressure gradient in the circumferential direction within a slot is\r\nnot valid in these cases.\r\n\r\n   The harmonic orders of the solutions are also limited by the width of the\r\nslots. The harmonic number, N, should be no greater than the number of slots\r\ndivided by two. The response of the higher harmonics is approximated by the\r\nslot width correction terms discussed in the NASTRAN Theoretical Manual,\r\nSection 17.1.\r\n\r\n   The output data for the acoustic analysis consists of the values of\r\npressure in the displacement vector selected via the case control card\r\n\"PRESSURE = i\". The velocity vector components corresponding to each mode may\r\nbe optionally requested by the case control card \"STRESS = i\", where i is the\r\nset number indicating the element numbers to be used for output, or by the\r\nwords \"STRESS = ALL\". The \"SET =\" card lists the element or point numbers to\r\nbe output.\r\n\r\n   Plots of the finite element model and/or of the pressure field may be\r\nrequested with the NASTRAN plot request data cards. The central cavity cross\r\nsection will be positioned in the XY plane of the basic coordinate system of\r\nNASTRAN. The slot elements are offset from the XY plane by the width of the\r\nslot in the +Z direction. The radial direction corresponds to X and the axial\r\ndirection corresponds to the Y direction. Pressures will be plotted in the Z\r\ndirection for both the slot points and the central cavity points. The case\r\ncontrol data cards for plotting are documented in User's Manual. The PLOTEL\r\nelements are used for plotting the acoustic cavity shape. The plot request\r\ncard \"SET n INCLUDE PLOTEL\" must be used, where n is a set number.\r\n\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n               Figure 1.9-1. Modeling errors for various shapes\r\n\r\n=PAGE=\r\n1.10  SUBSTRUCTURING\r\n\r\n   Substructuring is an analytical technique used to facilitate the solution \r\nof structural problems by subdividing the structural models into smaller, more \r\nmanageable components. The most elementary component, or basic substructure, \r\nis modeled separately just as any finite element model would be. These basic \r\nsubstructures are combined to build more complex substructures which, in turn, \r\ncan be progressively combined with other substructures in stages to eventually \r\narrive at the final desired solution model. Once the solution model is \r\nanalyzed, the results at each stage of the combination process may be \r\nrecovered until, ultimately, the detailed solution data are recovered for each \r\nof the original basic substructures. In effect, substructuring is an extension \r\nof basic finite element theory itself, whereby the usual simple beam, plate, \r\nand solid elements are replaced by basic substructures which themselves may be \r\nviewed as components of even more complex substructures. \r\n\r\n   Substructure analysis is logically performed in at least three phases as \r\nfollows: \r\n\r\n   Phase 1     Analysis of each individual substructure by NASTRAN to produce \r\n               a description, in matrix terms, of its properties as seen at \r\n               the boundary degrees of freedom, ua. \r\n\r\n   Phase 2     Combination of the matrix properties from Phase 1 and the \r\n               inclusion, if desired, of additional terms to form a \r\n               \"pseudostructure,\" which is then analyzed by NASTRAN. \r\n\r\n   Phase 3     Completion of the analysis of individual substructures using \r\n               the {ua} vector produced in Phase 2. \r\n\r\n   To provide maximum program flexibility, both the manual and automated \r\napproaches to substructuring are available. The manual approach requires user-\r\ngenerated DMAP alters and can be used in all Rigid Formats except for \r\npiecewise linear analysis. The procedures for single-stage, manual \r\nsubstructuring are discussed and illustrated with a complete and fully \r\nannotated example of the input in Section 1.10.1. In Section 1.10.2, the \r\nautomated multi-stage substructuring capabilities available for Rigid Formats \r\n1, 2, 3, 8, and 9 are presented. \r\n\r\n   Unlike the manual substructuring procedures, the automated capabilities \r\nprovide for: \r\n\r\n   1.  Simple commands to control execution and data recovery at all stages of \r\n       analysis. \r\n\r\n   2.  Automatically generated DMAP alters.\r\n\r\n   3.  Automated procedures to control and maintain the extensive data files \r\n       required. \r\n\r\n   4.  Data storage on single direct access file (minimizes or eliminates \r\n       checkpoint/restart tapes). \r\n\r\n   5.  Data transfer among IBM, CDC, or UNIVAC computers at any stage in the \r\n       analysis. \r\n\r\n   6.  No restrictions on grid point and element numbering. \r\n\r\n   7.  Modeling only one of two or more identical substructure components. \r\n\r\n   It should be noted that cyclic symmetry is available as an alternate \r\nformulation for substructuring structures with rotational or dihedral \r\nsymmetry. This capability is described in Section 1.12. The more general \r\napproaches are described below, starting with the manual, single-stage \r\nsubstructuring, followed by the automated multi-stage substructuring \r\ncapabilities. \r\n\r\n1.10.1  Manual Single-Stage Substructuring\r\n\r\n   The theoretical basis for NASTRAN manual substructuring is given in Section \r\n4.3 of the Theoretical Manual. This technique may be used with any of the \r\nrigid formats, except Piecewise Linear Analysis. The following sections \r\npresent instructions, including DMAP ALTERs for use with two of the rigid \r\nformats, static analysis and normal modes analysis. \r\n\r\n   Manual substructure analysis, as here defined, is a procedure in which the \r\nstructural model is divided into separate parts which are then processed in \r\nseparate computer executions to the point where the data blocks required to \r\njoin each part to the whole are generated. The subsequent operations of \r\nmerging the data for the substructures and of obtaining solutions for the \r\ncombined problem are performed in one or more subsequent executions, after \r\nwhich detailed information for each substructure is obtained by additional \r\nseparate executions. \r\n\r\n   The NASTRAN Data Deck for each of the substructures is constructed in the \r\nsame manner as a NASTRAN analysis without substructuring. The following \r\nrestrictions must be considered when forming the NASTRAN Data Deck for each of \r\nthe substructures: \r\n\r\n   1.  All points on boundaries between substructures which are to be joined \r\n       must have their free (unconstrained) degrees of freedom placed in the \r\n       a-set. \r\n\r\n   2.  The sequence of internal grid point identification numbers along the \r\n       boundary between any two substructures must be in the same order. The \r\n       internal sequence is the external sequence modified by any SEQGP cards. \r\n       For example, if one substructure had boundary grid point internal \r\n       identification numbers of 3, 4, 9, 27, and 31, the adjoining \r\n       substructure could have a corresponding set of internal grid point \r\n       identification numbers of 7, 11, 21, 22, and 41, but not 7, 11, 22, 21, \r\n       and 41. This restriction is automatically satisfied if the same grid \r\n       point numbers, without SEQGP cards, are used on the boundaries for \r\n       connected substructures. \r\n\r\n   3.  The displacement coordinate system for each group of connected grid \r\n       points on the boundaries between substructures must be the same. \r\n\r\n   4.  Elements located on the boundary may be placed in either adjacent substructure.\r\n\r\n   5.  The loads applied to boundary points may be arbitrarily distributed \r\n       between the adjoining substructures. Care should be exercised not to \r\n       duplicate the loads by placing the entire load on each substructure. \r\n\r\n   6.  The constrained stiffness matrix, [Koo], for each substructure must be \r\n       non-singular. This requirement is automatically satisfied in most \r\n       cases, since usually there are enough degrees of freedom on the \r\n       boundary of the substructure to account for its rigid body motions. In \r\n       exceptional cases, such as when the substructure is a hinged appendage, \r\n       it may be necessary for you to assign additional degrees of freedom to \r\n       ua, rather than uo, via ASET cards. \r\n\r\n   Although the following discussion is limited to single-stage \r\nsubstructuring, there is no inherent restriction on the use of multi-stage \r\nsubstructures in NASTRAN. In multi-stage substructuring, some of the \r\nsubstructures are precombined in Phase 2 to form intermediate substructures. \r\nThe final combination in Phase 2 then consists of joining two or more \r\nintermediate substructures. This procedure will be useful if there are several \r\nsubstructures in the model, and changes are made in only one or a few \r\nsubstructures. In this case, the amount of effort and computer time required \r\nfor changes in the model can be substantially reduced if the unchanged \r\nsubstructures are initially combined into a single intermediate substructure. \r\n\r\n1.10.1.1  Basic Manual Substructure Analysis\r\n\r\n   Basic manual substructure analysis will be described with reference to the \r\nsimple beam structure shown in Figure 1.10-1. The beam is arbitrarily \r\nseparated into two substructures, referred to as substructure 1 and \r\nsubstructure 2, with a single boundary point being located at grid point 3. \r\nThe beam is supported at grid points 1 and 6. No loads are applied to \r\nsubstructure 1. A single load is applied to substructure 2 at grid point 4, \r\nand a single load is applied at the boundary to grid point 3. \r\n\r\n   The complete NASTRAN Data Decks for all three phases of a substructure \r\nanalysis for the beam shown in Figure 1.10-1 are presented in Tables 1.10-1, \r\n1.10-3, 1.10-5, 1.10-7, and 1.10-9. The integers in the left-hand column are \r\nused to relate the respective discussions in Tables 1.10-2, 1.10-4, 1.10-6, \r\n1.10-8, and 1.10-10 to the cards in the NASTRAN Data Decks. \r\n\r\n   It should be noted that no output has been requested in the Case Control \r\nDeck for substructure 1. If you want to have a plot of the undeformed \r\nstructure for checking the model, a Plot Package can be inserted in the Case \r\nControl Deck in the usual way, as described in Section 4.2. \r\n\r\n   The partitioning matrix gives the relationship between the internal indices \r\nassociated with the a-set matrices generated in Phase 1 and the external grid \r\npoint component definition given on the GRID cards that are input to Phase 1 \r\nas modified by any SEQGP cards. The same internal indices in Phase 1 for the \r\na-set are redefined in Phase 2 as the indices for the g-set. The word \r\n\"pseudostructure\" is associated with the g-size matrices used in Phase 2. \r\n\r\n   The partitioning matrix for the problem under consideration is given as \r\nfollows: \r\n\r\n                              PARTITIONING MATRIX\r\n\r\n                                           External Grid-Component\r\n\r\n   Internal Index                  Substructure 1         Substructure 2\r\n\r\n         1                              3-1                    3-1\r\n\r\n         2                              3-2                    3-2\r\n\r\n         3                              3-6                    3-6\r\n\r\nThe procedure for constructing a partitioning matrix is as follows:\r\n\r\n   1.  Select any one of the substructures and list the components of the a-\r\n       set in sequence by grid point and component number as modified by any \r\n       SEQGP cards (internal sequence). These are the nonzero entries in the \r\n       partitioning vector for the first substructure. \r\n\r\n   2.  Build the second column of the partitioning matrix by selecting any \r\n       connected substructure and entering the connected components in the \r\n       same row as the associated components in the first substructure. \r\n\r\n   3.  Enter all unconnected a-set components in unoccupied rows of the \r\n       partitioning matrix according to their internal sequence numbers. \r\n       Unconnected members of the a-set having internal sequence numbers in \r\n       the range of the connected components will create new intermediate rows \r\n       in the previously formed columns of the matrix. \r\n\r\n   4.  Build the remaining columns of the partitioning matrix, one for each \r\n       substructure, by following a similar procedure for all remaining \r\n       substructures. In each case, first enter all components that are \r\n       connected to the previously selected substructure or substructures, \r\n       followed by the remaining unconnected components in their internal \r\n       sequence. \r\n\r\n   5.  The rows of the partitioning matrix are associated with the sequence of \r\n       the internal indices for the scalar points in the pseudostructure. Any \r\n       sequential set of integers may be used to identify these scalar points \r\n       in Phase 2. \r\n\r\n   6.  The columns of the partitioning matrix (one vector for each \r\n       substructure) are input with Direct Matrix Input (DMI) cards. The input \r\n       matrix contains real 1's in all locations in the partitioning matrix \r\n       having grid point-component entries. See Section 2.4 for DMI card \r\n       format. \r\n\r\n   The DMI cards (121 and 122 in Table 1.10-1) in the sample problem give the \r\nname E1 to the partitioning vector for substructure 1. The first card defines \r\nthe partitioning vector as being rectangular and consisting of real single-\r\nprecision entries. The next-to-the-last entry on the first card indicates \r\nthere are three rows in the g-set matrices input to Phase 2. The second \r\ninteger 1 on the second card indicates that the first internal index is \r\nassociated with one of the components in substructure 1; in this case, grid \r\npoint 3, component 1. The three real 1.0's indicate the first three internal \r\nindices are associated with components in substructure 1; in this case, grid \r\npoint 3, components 1, 2, and 6. In this particular case, only the initial two \r\nsteps are required to construct the partitioning matrix, and the partitioning \r\nvector for substructure 2 will be identical to that for substructure 1. This \r\nresults from the fact that the single boundary point in this problem is a part \r\nof both substructures. \r\n\r\n   The partitioning vectors are not needed until Phase 2. They were \r\narbitrarily input to Phase 1 so they could be included on the User Tape, along \r\nwith the output matrices from Phase 1. \r\n\r\n   The NASTRAN Data Deck for substructure 2 is given in Table 1.10-3. For \r\nidentification purposes, the cards are arbitrarily numbered beginning with \r\n150. \r\n\r\n   The Phase 2 operations are concerned with merging the a-set matrices \r\ngenerated in Phase 1 which define the g-size pseudostructure in Phase 2. The \r\nNASTRAN Data Deck for Phase 2 is given in Table 1.10-5. The cards are \r\narbitrarily numbered beginning with 201. \r\n\r\n   Although the data deck shown in Table 1.10-5 is prepared for two \r\nsubstructures, it was constructed in such a manner that it could be easily \r\nextended to more than two substructures. If there are more than two \r\nsubstructures, cards similar to 216 to 222, 232, and 233 need to be added to \r\nthe NASTRAN data deck for each additional substructure. \r\n\r\n   The final part of a substructure analysis is to perform data recovery for \r\neach substructure of interest. These runs are made as a restart of the Phase 1 \r\nruns. Any of the normal rigid format output can be requested, including both \r\nundeformed and deformed structure plots. All of the output will be in terms of \r\nthe elements and grid points defined in the Phase 1 Bulk Data Decks. The \r\nNASTRAN Data Deck for the Phase 3 analysis of substructure 1 is given in Table \r\n1.10-7. \r\n\r\n   The NASTRAN data deck for the Phase 3 analysis of substructure 2 is given \r\nin Table 1.10-9. Comments are restricted to cards that are different from \r\nthose presented for the Phase 3 run of substructure 1. \r\n\r\n1.10.1.2  Loads and Boundary Conditions\r\n\r\n   The single load and the single boundary condition for the sample problem \r\ndefined in Section 1.10.1.1 were introduced in Phase 1. It is also possible to \r\nintroduce loads and boundary conditions in Phase 2. In this case, the loaded \r\nand/or constrained degrees of freedom must be included in the a-set for Phase \r\n1, so they will be a part of the pseudostructure in Phase 2. Loads are applied \r\nto the pseudostructure in Phase 2 with the SLOAD card. This limits the type of \r\nload that can be applied in Phase 2 to directly applied loads. Other loading \r\nconditions depending on element properties or connection data, such as thermal \r\nloads, gravity loads, and pressure loads, must be applied in Phase 1. Loads \r\nmay be introduced in both Phases 1 and 2, as the suggested DMAP sequence will \r\nadd contributions to the load vector from both phases. The lack of generality \r\nfor the application of loads in Phase 2 will often dictate that static loads \r\nbe applied in Phase 1. \r\n\r\n   The loads and boundary conditions for the sample problem can be applied in \r\nPhase 2 if the modifications shown in Tables 1.10-11 and 1.10-12 are made to \r\nthe NASTRAN Data Decks presented in Section 1.10.1.1. \r\n\r\n   The modified partitioning matrix with grid points 1, 3, 4, and 6 in the a-\r\nset is shown below. \r\n\r\n                              PARTITIONING MATRIX\r\n\r\n                                              External Grid-Component\r\n\r\n   Internal Index                     Substructure 1          Substructure 2\r\n\r\n          1                                 1-1\r\n\r\n          2                                 1-2\r\n\r\n          3                                 1-6\r\n\r\n          4                                 3-1                   3-1\r\n\r\n          5                                 3-2                   3-2\r\n\r\n          6                                 3-6                   3-6\r\n\r\n          7                                                       4-1\r\n\r\n          8                                                       4-2\r\n\r\n          9                                                       4-6\r\n\r\n         10                                                       6-1\r\n\r\n         11                                                       6-2\r\n\r\n         12                                                       6-6\r\n\r\n   The modified partitioning matrix contains twelve scalar points, with six in \r\nsubstructure 1, nine in substructure 2, and three common to both \r\nsubstructures. The loads are now located at scalar points 5 and 8, as \r\nindicated on card 246a. The single-point constraints are located at scalar \r\npoints 1, 2, and 11, as indicated on card 246b. The modified partitioning \r\nvector for substructure 1 indicates there are twelve degrees of freedom in the \r\npseudostructure, and that, beginning with the first scalar point, there are \r\nsix scalar points associated with substructure 1. The modified partitioning \r\nvector for substructure 2 indicates the first entry is associated with scalar \r\npoint 4, and that there are a total of nine scalar points associated with \r\nsubstructure 2. \r\n\r\n   If multiple loading conditions are used in the solution, the subcase \r\nstructure must be established in Phase 1. In order to perform the matrix \r\noperations in Phase 2, the same case control structure must be used for all \r\nsubstructures. This means that the same number of sub-cases must be defined \r\nfor each substructure, even though some of the subcases will not contain a \r\nload selection or any other entries. NASTRAN will generate a null column in \r\nthe load matrix for all subcases for which no load set is selected. If any \r\nloads are applied in Phase 2, the same subcase structure must be used in Phase \r\n2. In any event, the subcase structure established in Phase 1 must be used in \r\nPhase 3. The contents of each subcase in Phase 3 will relate to output \r\nselections, rather than load and boundary condition selections. \r\n\r\n   Consider adding two additional loading conditions to the sample problem in \r\nSection 1.10.1.1. If one additional loading condition were applied to \r\nsubstructure 1, identified as 202, and one additional loading to substructure \r\n2, identified as 203, the subcase structure established in Phase 1 would \r\nappear as follows: \r\n\r\n   Substructure 1                  Substructure 2\r\n\r\n      SPC = 101                       SPC = 201\r\n\r\n      SUBCASE 1                       SUBCASE 1\r\n\r\n                                         LOAD = 201\r\n\r\n      SUBCASE 2                       SUBCASE 2\r\n\r\n         LOAD = 202\r\n\r\n      SUBCASE 3                       SUBCASE 3\r\n\r\n                                         LOAD = 203\r\n\r\n   Load case 202 would have to be defined with some form of static loading in \r\nthe Bulk Data Deck for Phase 1 of substructure 1. In addition, load set 203 \r\nwould have to be defined with some form of static loading in the Bulk Data \r\nDeck for Phase 1 of substructure 2. \r\n\r\n   The DMAP sequence for the sample problem in Section 1.10.1.1 will not \r\nsupport multiple boundary conditions in Phase 1. If multiple boundary \r\nconditions are introduced in Phase 1, it is necessary to generate a separate \r\npartitioning vector for use in Phase 2 for each of the unique boundary \r\nconditions. In some sense, this results in the definition of a number of \r\nseparate problems equal to the number of unique boundary conditions. Although \r\na DMAP sequence could be developed to support multiple boundary conditions in \r\nPhase 1, it is not recommended that multiple boundary conditions be introduced \r\ninto Phase 1. \r\n\r\n   Multiple boundary conditions may be introduced in Phase 2 without any \r\ndifficulty. However, in order to handle the internal looping for each boundary \r\ncondition, it is more convenient if the loads are also introduced in Phase 2. \r\nAs indicated earlier, the introduction of loads in Phase 2 does limit the \r\nmanner in which the static loads can be defined. If the loads and boundary \r\nconditions are introduced in Phase 2, all of the case control options for \r\ncombining subcases, including symmetry combinations, may be used in the usual \r\nmanner. \r\n\r\n   It is possible to introduce the loads in Phase 1 and multiple boundary \r\nconditions in Phase 2. However, provision must be made to generate all loading \r\nconditions in Phase 1, which will automatically take place if one subcase is \r\ndefined for each loading condition and no boundary conditions are mentioned in \r\nthe Phase 1 Case Control Deck. It is then necessary in Phase 2 to partition \r\nout the proper columns of the loading matrix for each loop or boundary \r\ncondition in Phase 2. This requires that you construct the proper partitioning \r\nvector for each boundary condition. Also, appropriate modifications would have \r\nto be made to the suggested DMAP sequence for Phase 2. \r\n\r\n1.10.1.3  Normal Modes Analysis\r\n\r\n   Substructuring for normal modes analysis is performed in much the same way \r\nas that for static analysis. A NASTRAN Data Deck for use in Phase 1 of a \r\nNormal Modes Analysis (Rigid Format 3) is shown in Table 1.10-13. \r\n\r\n   Note that the OUTPUT1 module writes the mass matrix, as well as the \r\nstiffness matrix and partitioning vector, on User Tape 1. The Case Control \r\nDeck is similar to the Phase 1 deck for static analysis. It must include a \r\nconstraint selection if the boundary conditions are applied in Phase 1. The \r\nBulk Data Deck is also similar to that used in Phase 1 for static analysis. In \r\ngeneral, it includes all the cards associated with the definition of the model \r\nand the DMI cards for the definition of the partitioning vector. It will also \r\ninclude cards for the definition of the a-set and other constraint cards if \r\nthe boundary conditions are applied in Phase 1. As in static analysis, one \r\nsuch deck must be prepared for each substructure. \r\n\r\n   The NASTRAN Data Deck for Phase 2 of Normal Modes Analysis with two \r\nsubstructures is shown in Table 1.10-14. \r\n\r\n   The Phase 2 NASTRAN Data Deck for Normal Modes Analysis is similar to that \r\nused for Static Analysis. The following comments are related to differences in \r\nthe two decks: \r\n\r\n   1.  Since there are no loads associated with a normal modes analysis, the \r\n       module GP3 is not executed. \r\n\r\n   2.  The same operations are performed on the mass matrix as are performed \r\n       for the stiffness matrix. \r\n\r\n   3.  The data block LAMA (eigenvalue summary) is written as the first data \r\n       block on User Tape 3. This is followed by the appropriate partitions of \r\n       the eigenvectors for each of the substructures. \r\n\r\n   4.  The Case Control Deck must include a method selection for eigenvalue \r\n       extraction. \r\n\r\n   5.  The Bulk Data Deck is similar to that used in static analysis, except \r\n       that a null matrix must be defined for the mass matrix, instead of the \r\n       load matrix (since matrix assembly is not required), and an EIGR card \r\n       must be included. \r\n\r\n   The Phase 3 data deck for Normal Modes Analysis, given in Table 1.10-15, is \r\nsimilar to that used for Static Analysis. The first reference to module \r\nINPUTT1 is to read the data block LAMA, which is the first data block on User \r\nTape 3. The second reference to INPUTT1 is to read the proper partition of the \r\neigenvectors. The zero parameter at the end of the statement should be \r\nincremented one for each substructure in order to point to the proper \r\neigenvector partition. \r\n\r\n1.10.1.4  Dynamic Analysis\r\n\r\n   Manual substructuring may be used with any of the other dynamics rigid \r\nformats. The NASTRAN Data Decks will be similar to those used for Normal Modes \r\nAnalysis. All dynamic loads must be applied in Phase 2. If the SUPORT card is \r\nneeded to define free body motions for the structure as a whole, it must be \r\nincluded in Phase 2. \r\n\r\n   In dynamic analysis, the a-set will include, in addition to all points on \r\nthe boundary of the substructure, a number of points within each substructure \r\nsufficient to define the dynamic response. Since all active degrees of freedom \r\nalong interior boundaries must be included in ua, the a-set will contain more \r\ndegrees of freedom than are needed in dynamic analysis, with a large resulting \r\ninefficiency for a very small gain in accuracy. This is a serious \r\nconsideration because, due to the high density of Kaa, the time to perform \r\nmost of the significant matrix operations in Phase 2 increases nearly as the \r\ncube of the number of degrees of freedom in ua. The situation can be greatly \r\nimproved by a second stiffness reduction in Phase 2, in which ua is \r\npartitioned into a set, uc, that will be retained in dynamic analysis, and a \r\nset, ub, that will be eliminated. The ub set includes the excess degrees of \r\nfreedom on the interior boundaries. The second stiffness reduction in Phase 2 \r\nis defined by listing the members of the ub set that will be eliminated on \r\nOMIT cards. These omitted degrees of freedom must reference the scalar points \r\nassociated with the pseudostructure. \r\n\r\n   In Phase 3 for dynamics, each NASTRAN substructure is restarted with the \r\npartition of the Phase 2 solution vector, or eigenvector, for each \r\nsubstructure. All normal data reduction procedures may then be applied. In \r\ndynamic analysis, Phase 3 can be omitted if output requests are restricted to \r\nthe response quantities for the scalar points of the pseudostructure. In this \r\ncase, the output and partition modules can be omitted from the Phase 2 runs, \r\nas their only purpose is to serve as input for the Phase 3 runs. If output is \r\ndesired for dependent response quantities or element stresses and forces, a \r\nPhase 3 run must be made for each substructure of interest. \r\n\r\n1.10.1.5  DMAP Loops for Phase 2\r\n\r\n   The DMAP sequences for the substructure example in Section 1.10.1.1 use \r\nrepeated blocks of code for each substructure. Cards 209 through 215 are \r\nassociated with input for substructure 1. Cards 216 through 222 perform the \r\nsame operations for substructure 2. Likewise, cards 230 and 231 are associated \r\nwith output for substructure 1, and cards 232 and 233 are associated with \r\noutput for substructure 2. If a large number of substructures is used, it is \r\nmore convenient to use a DMAP loop, rather than repeating blocks of code. DMAP \r\nloops are constructed by placing a LABEL statement at the beginning of the \r\nloop and a REPT statement at the end of the loop. The number of times the REPT \r\nstatement must be executed is set by an integer constant. \r\n\r\n   The series of statements represented by cards 209 through 222 (in Table \r\n1.10-5) can be replaced with the following sequence of DMAP operations: \r\n\r\n   PARAM     // C,N,NOP / V,N,INP=1 $\r\n   LABEL     BLOCK1 $\r\n   INPUTT1   / E,KGGA,PGA,, / C,N,-3 / V,N,INP $\r\n   MERGE,    ,,,KGGA,E, / KGGTA $\r\n   ADD       KGG,KGGTA / KTA $\r\n   EQUIV     KTA,KGG / TRUE $\r\n   MERGE,    ,PGA,,,,E / PGTA / C,N,1 $\r\n   ADD       PGT,PGTA / PTA $\r\n   EQUIV     PTA,PGT / TRUE $\r\n   PARAM     // C,N,ADD / V,N,INP / V,N,INP / C,N,1 $\r\n   REPT      BLOCK1,1 $\r\n\r\n   The LABEL BLOCK1 is shown at the beginning of the loop, and the REPT \r\nstatement is shown at the end. The integer in the REPT statement is set to one \r\nless than the number of substructures, which in this case is one. The PARAM \r\nstatement preceding the REPT statement is used to increment the second \r\nparameter of INPUTT1 by one each time through the loop. This causes the \r\ninformation to be read from a different tape each time through the loop. This \r\nDMAP loop does not check the label before reading the information on the input \r\ntape. The fact that the same names are used for the matrices each time through \r\nthe loop does not cause any difficulty, as the matrices are located by their \r\nposition on the tape, rather than by name. \r\n\r\n   If a DMAP loop is used for the input sequence, consideration must be given \r\nto its effect on the output sequence. Since the partitioning vectors were not \r\nsaved on each pass through the DMAP loop for the input sequence, it is \r\nnecessary to recover this information for use in the output sequence. This \r\nmight be done by rerunning INPUTT1 to reread the partitioning vectors as \r\nneeded, or perhaps by inserting the DMI cards for the partitioning vectors in \r\nthe Bulk Data Deck for Phase 2. If Phase 3 runs are not required, no output \r\nsequence is necessary. \r\n\r\n1.10.1.6  Identical Substructures\r\n\r\n   In the case of identical substructures, the substructuring procedures can \r\nbe organized to take full advantage of the repetitive parts. The substructures \r\nonly have to appear identical in Phase 1. The loading conditions and boundary \r\nconditions used in Phase 2 may be quite different for the otherwise identical \r\nsubstructures. The Phase 1 substructures must have identical geometry, \r\nincluding the global coordinate systems used on the boundary grid points. \r\n\r\n   Only a single Phase 1 run is made for each group of identical \r\nsubstructures. Since the identical substructures will be coupled in different \r\nways during Phase 2, a different partitioning vector must be generated for \r\neach use of the identical substructures in Phase 2. These multiple \r\npartitioning vectors can be placed on the same output tape from Phase 1, which \r\nalso contains the single set of structural and loading matrices for the group \r\nof identical substructures. \r\n\r\n   You may choose to make one or more Phase 3 runs for the members of a group \r\nof identical substructures. If the loading conditions and boundary conditions \r\nare also identical for the group of identical substructures, a single Phase 3 \r\nrun will give all information of interest. However, if the boundary conditions \r\nand/or loading conditions are different for the various members of the group \r\nof identical substructures, it will probably be desirable to make a separate \r\nPhase 3 run for each of the substructures used in the complete structural \r\nmodel. \r\n\r\n   The use of identical substructures not only saves time in computer runs for \r\nPhase 1 and perhaps for Phase 3, but also substantially reduces the effort \r\nassociated with the preparation of the structural model in the Bulk Data Deck. \r\nIn some sense, substructuring procedures with identical substructures can be \r\nthought of as being a form of data generation. Although substructuring is \r\nusually used because of problem size, it may be desirable, in some cases, to \r\nuse substructuring because of the repetitive nature of the structure, and a \r\nconsequent saving in data generation effort. \r\n\r\n\r\n            Table 1.10-1. Data Deck for Phase 1 of Substructure 1.\r\n\r\n100  NASTRAN    FILES = (INPT,NPTP)\r\n101  ID         PHASE,ONE $ SUBSTRUCTURE 1\r\n102  TIME       2\r\n103  CHKPNT     YES\r\n104  APP        DISP\r\n105  SOL        1,9\r\n106  ALTER      n1 $ (where n1 = DMAP statement number of EQUIV KAA,KLL/REACT)\r\n107  JUMP       LBL7 $\r\n108  ALTER      n2 $ (where n2 = DMAP statement number of LABEL LBL10)\r\n109  FBS        LOO,UOO,PO/UOOV $\r\n110  CHKPNT     UOOV $\r\n111  OUTPUT1    E1,KLL,PL,,//C,N,-1/C,N,0/C,N,USERTP1 $\r\n112  ALTER      n3,n4 $ (where n3 = DMAP statement number of SSG3 module and\r\n                               n4 = DMAP statement number of REPT LOOPTOP,360)\r\n113  ENDALTER\r\n114  CEND\r\n115  TITLE = PHASE ONE - SUBSTRUCTURE 1\r\n116  SPC = 101\r\n117  BEGIN BULK\r\n\r\n     1       2       3       4       5       6       7       8       9       10\r\n\r\n118  ASET    3       126\r\n119  CBAR    1       10      1       2               1.0             1\r\n120  CBAR    2       10      2       3               1.0             1\r\n121  DMI     E1      0       2       1       1               3\r\n122  DMI     E1      1       1       1.0     1.0     1.0\r\n123  GRID    1                                               345\r\n124  GRID    2               240.                            345\r\n125  GRID    3               480.                            345\r\n126  MAT1    11      30.+6\r\n127  PBAR    10      11      60.     500.\r\n128  SPC     101     1       12\r\n129  ENDDATA\r\n\r\n=PAGE=\r\nTable 1.10-2. Comments for Phase 1, Substructure 1 Data Deck.\r\n\r\nCard\r\nNo.      Refer to Table 1.10-1 for input cards described below.\r\n\r\n 103     This run will be checkpointed, so that a restart can be made for Phase\r\n         3. You must allocate space for the checkpoint file, NPTP. (The\r\n         NPTP file is presumed to be copied to tape at the end of the job.)\r\n\r\n 105     Rigid Format 1, Static Analysis, will be used for this problem without\r\n         property optimization.\r\n\r\n 106     Insert the following statement after DMAP statement EQUIV\r\n         KAA,KLL/REACT.\r\n\r\n 107     Jump around the Rigid Body Matrix Generator modules. The solution for\r\n         {ua} will be performed in Phase 2.\r\n\r\n 108     Insert the following three statements after DMAP statement LABEL LBL10.\r\n\r\n 109     Use the module FBS to solve for {uoo} the displacement of the o-set\r\n         relative to the a-set points.\r\n\r\n 110     Write displacement vector UOOV on the New Problem Tape.\r\n\r\n 111     Use the module OUTPUT1 to write the DMI matrix given on cards 121 and\r\n         122, along with the stiffness matrix KLL, and the load vector PL on\r\n         User Tape 1 (USERTP1). You must allocate space for the User Tape\r\n         file, INPT. (The INPT file is presumed to be copied to tape at the end\r\n         of the job.) The details of the call for DMAP module OUTPUT1 and other\r\n         DMAP information are given in Section 5.\r\n\r\n 112     Delete the data recovery modules (SSG3 through REPT LOOPTOP,360).\r\n\r\n 116     Select single-point constraint set 101.\r\n\r\n 118     Defines grid point 3 as a boundary point between substructures.\r\n\r\n 119     Connection cards defining bar elements in substructure 1.\r\n 120\r\n\r\n 121     Direct Matrix Input cards that define the partitioning vector for use\r\n 122     in Phase 2. The entries on these cards are discussed below.\r\n\r\n 123\r\n 124     These cards define the grid points in substructure 1.\r\n 125\r\n\r\n 126     Defines the material for the elements in substructure 1.\r\n\r\n 127     Defines the properties of the elements in substructure 1.\r\n\r\n 128     Defines single-point constraint set 101. Components 1 and 2 are\r\n         constrained at grid point 1 in substructure 1.\r\n\r\n=PAGE=\r\nTable 1.10-3. Data Deck for Phase 1, Substructure 2.\r\n\r\n150a NASTRAN    FILES = (INPT,NPTP)\r\n150b ID         PHASE,ONE $ SUBSTRUCTURE 2\r\n151  TIME       2\r\n152  CHKPNT     YES\r\n153  APP        DISP\r\n154  SOL        1,9\r\n155  ALTER      n1 $ (where n1 = DMAP statement number of EQUIV KAA,KLL/REACT)\r\n156  JUMP       LBL7 $\r\n157  ALTER      n2 $ (where n2 = DMAP statement number of LABEL LBL10)\r\n158  FBS        LOO,UOO,PO/UOOV $\r\n159  CHKPNT     UOOV $\r\n160  OUTPUT1    E2,KLL,PL,,//C,N,-1/C,N,0/C,N,USERTP2 $\r\n161  ALTER      n3,n4 $ (where  n3 = DMAP statement number of SSG3 module and\r\n                                n4 = DMAP statement number of REPT LOOPTOP,360)\r\n162  ENDALTER\r\n163  CEND\r\n164  TITLE = PHASE ONE - SUBSTRUCTURE 2\r\n165  SPC = 201\r\n166  LOAD = 202\r\n167  BEGIN BULK\r\n\r\n     1       2       3       4       5       6       7       8       9       10\r\n\r\n168  ASET    3       126\r\n169  CBAR    3       10      3       4               1.0             1\r\n170  CBAR    4       10      4       5               1.0             1\r\n171  CBAR    5       10      5       6               1.0             1\r\n172  DMI     E2      0       2       1       1               3       1\r\n173  DMI     E2      1       1       1.0     1.0     1.0\r\n174  FORCE   202     3               1000.           -1.0\r\n175  FORCE   202     4               1000.           -1.0\r\n176  GRID    3               480.                            345\r\n177  GRID    4               720.                            345\r\n178  GRID    5               960.                            345\r\n179  GRID    6               1200.                           345\r\n180  MAT1    11      30.+6\r\n181  PBAR    10      11      60.     500.\r\n182  SPC     201     6       2\r\n183  ENDDATA\r\n=PAGE=\r\nTable 1.10-4. Comments for Phase 1, Substructure 2 Data Deck.\r\n\r\nCard\r\nNo.      Refer to Table 1.10-3 for input cards described below.\r\n\r\n 160     The partitioning vector for substructure 2 is written on User Tape 2\r\n         and is named E2. You must allocate space for User Tape file INPT.\r\n         (The INPT file is presumed to be copied to tape at the end of the job.)\r\n         It is possible to change the OUTPUT1 statement and write the results\r\n         for substructure 2 on the same tape as for substructure 1, if desired.\r\n\r\n 165     Selects single-point constraint set 201.\r\n\r\n 166     Selects load set 202.\r\n\r\n 172     Other than the name E2, the partitioning vector is identical to that\r\n 173     for substructure 1.\r\n\r\n 174     Defines the external loads in load set 202. The load applied to grid\r\n 175     point 3 has arbitrarily been placed in substructure 2.\r\n\r\n 182     Defines single-point constraint set 201 at grid point 6, component 2.\r\n=PAGE=\r\nTable 1.10-5. Data Deck for Phase 2\r\n\r\n200  NASTRAN    FILES = (INPT,INP1,1NP2)\r\n201  ID         PHASE,TWO\r\n202  TIME       2\r\n203  APP        DISP\r\n204  SOL        1,9\r\n205  ALTER      n0 $ (where n0 = DMAP statement number of the BEGIN statement)\r\n206  PARAM      //C,N,NOP/V,N,TRUE=-1 $\r\n207  ALTER      n1,n2 $ (where n1 = DMAP statement number of module GP2 and\r\n                               n2 = DMAP statement number of LABEL P1)\r\n208  ALTER      n3,n4 $ (where n3 = DMAP statement number of PARAM just before\r\n                                    TA1 and\r\n                               n4 = DMAP statement number of LABEL LBL11A)\r\n209  INPUTT1    /E01,KGG01,PG01,,/C,N,-1/C,N,1/C,N,USERTP1 $\r\n210  MERGE,     ,,,KGG01,E0l,/KGGT01 $\r\n211  ADD        KGG,KGGT01/KT01 $\r\n212  EQUIV      KT01,KGG/TRUE $\r\n213  MERGE,     ,PG0l,,,,E01/PGT01/C,N,1 $\r\n214  ADD        PGT,PGT01/PT01 $\r\n215  EQUIV      PT01,PGT/TRUE $\r\n216  INPUTT1    /E02,KGG02,PG02,,/C,N,-1/C,N,2/C,N,USERTP2 $\r\n217  MERGE,     ,,,KGG02,E02,/KGGT02 $\r\n218  ADD        KGG,KGGT02/KT02 $\r\n219  EQUIV      KT02,KGG/TRUE $\r\n220  MERGE,     ,PG02,,,,E02/PGT02/C,N,1 $\r\n221  ADD        PGT,PGT02/PT02 $\r\n222  EQUIV      PT02,PGT/TRUE $\r\n223  ALTER      n5,n6 $ (where n5 = DMAP statement number of COND LBL4,GENEL and\r\n                               n6 = DMAP statement number of LABEL LBL4)\r\n224  ALTER      n7,n7 $ (where n7 = DMAP statement number of module SSG1)\r\n225  SSG1       SLT,BGPDT,CSTM,SIL,,MPT,,EDT,,CASECC,DIT/PG/V,N,LUSET/V,N,NSKIP\r\n                $\r\n226  ADD        PGT,PG/PGX $\r\n227  EQUIV      PGX,PG/TRUE $\r\n228  ALTER      n8,n9 $ (where n8 = DMAP statement number of the first SDR2\r\n                                    module and\r\n                               n9 = DMAP statement number of OFP just before\r\n                                    XYTRAN)\r\n229  OUTPUT1,   ,,,,//C,N,-1/C,N,0/C,N,USERTP3 $\r\n230  PARTN      UGV,,E01/,ULV01,,/C,N,1 $\r\n231  OUTPUT1    ULV01,,,,//C,N,0/C,N,0/C,N,USERTP3 $\r\n232  PARTN      UGV,,E02/,ULV02,,/C,N,1 $\r\n233  OUTPUT1    ULV02,,,,//C,N,0/C,N,0/C,N,USERTP3 $\r\n234  SDR2       CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,PGG,QG,UGV,,/\r\n                OPG1,OQG1,OUGV1,,,/C,N,STATICS $\r\n235  OFP        OUGV1,OPG1,OQG1,,,//V,N,CARDNO $\r\n236  ALTER      n10,n11 $ (where n10 = DMAP statement number of COND\r\n                                       LBLOFP,COUNT and\r\n                                 n11 = DMAP statement number of OFP just before\r\n                                       LABEL DPLOT)\r\n237  ALTER      n12,n13 $ (where n12 = DMAP statement number of COND P2,JUMPPLOT\r\n                                       and\r\n                                 n13 = DMAP statement number of REPT\r\n                                       LOOPTOP,360)\r\n238  ALTER      n14,n15 $ (where n14 and n15 are the DMAP statement numbers of\r\n                                 LABEL ERROR2 and the PRTPARM module immediately\r\n                                 following it, respectively)\r\n     ALTER      n16,n17 $ (where n16 and n17 are the DMAP statement numbers of\r\n                                 LABEL ERROR4 and the PRTPARM module immediately\r\n                                 following it, respectively)\r\n239  ENDALTER\r\n240  CEND\r\n241  TITLE = PHASE TWO\r\n=PAGE=\r\nTable 1.10-5. Data Deck for Phase 2 (continued)\r\n\r\n242  BEGIN BULK\r\n     1       2       3       4       5       6       7       8       9       10\r\n\r\n243  DMI     KGG     0       6       1       2               3       3\r\n244  DMI     KGG     1       1       0.0\r\n245  DMI     PGT     0       2       1       2               3       1\r\n246  DMI     PGT     1       1       0.0\r\n247  SPOINT  1       THRU    3\r\n248  ENDDATA\r\n=PAGE=\r\nTable 1.10-6. Comments for Phase 2 Data Deck\r\n\r\nCard\r\nNo.      Refer to Table 1.10-5 for input cards described below.\r\n\r\n 204     Rigid Format 1, Static Analysis, will be used for this problem.\r\n\r\n 205     Insert the following statement after DMAP statement No. 1.\r\n\r\n 206     Define the parameter TRUE = -1.\r\n\r\n 207     Delete the DMAP statements associated with the preparation of the\r\n         Element Connection Table and structure plots (module GP2 through LABEL\r\n         P1).\r\n\r\n 208     Delete the DMAP statements associated with matrix assembly (PARAM just\r\n         before TA1 through LABEL LBL11A).\r\n\r\n 209     Insert the DMAP module INPUTT1 to read the partitioning vector, the\r\n         stiffness matrix, and the load vector from User Tape 1. These matrices\r\n         have been renamed E01, KGG01, and PG01, respectively. You must\r\n         arrange to have the tape mounted that was prepared at the end of Phase\r\n         1 run on substructure 1 copied to a file designated as INP1.\r\n\r\n 210     Insert the module MERGE to change the a-set size of the stiffness\r\n         matrix from Phase 1 to g-size for Phase 2, and designate the output as\r\n         KGGT01. In this particular case, no change will take place, since the\r\n         a-size from Phase 1 is the same as the g-size in Phase 2.\r\n\r\n 211     Insert the module ADD to add the null matrix KGG, defined in the Bulk\r\n         Data Deck, to KGGT01, and designate the output as KT01.\r\n\r\n 212     Insert the module EQUIV to equivalence KT01 to KGG.\r\n\r\n 213     Insert the module MERGE to change the a-size of the load vector from\r\n         Phase 1 to g-size for Phase 2, and designate the output as PGT01. In\r\n         this case, no change in size will take place.\r\n\r\n 214     Insert the module ADD to add the null matrix PGT, defined in the Bulk\r\n         Data Deck, to PGT01, and designate the output as PT01.\r\n\r\n 215     Insert the module EQUIV to equivalence PT01 to PGT.\r\n\r\n 216     Insert the module INPUTT1 to read the partitioning vector, the\r\n         stiffness matrix, and the load vector from User Tape 2. These matrices,\r\n         which were generated for substructure 2 in Phase 1, are redesignated as\r\n         E02, KGG02, and PG02, respectively. You must arrange to have the\r\n         tape mounted that was prepared at the end of the Phase 1 run for\r\n         substructure 2 copied to a file designated as INP2.\r\n\r\n 217     Insert the module MERGE to change the stiffness matrix for substructure\r\n         2 from a-size in Phase 1 to g-size in Phase 2 and designate the output\r\n         as KGGT02.\r\n\r\n 218     Insert the module ADD to add the stiffness matrix for substructure 2 to\r\n         the stiffness matrix for substructure 1, and designate the output as\r\n         KT02.\r\n\r\n 219     Insert module EQUIV to equivalence KT02 to KGG. The matrix KGG now\r\n         represents the stiffness matrix for the pseudostructure, and will be\r\n         used for input to Phase 2.\r\n\r\n 220     Insert the module MERGE to change the load vector from a-size in Phase\r\n         1 to g-size in Phase 2.\r\n\r\n 221     Insert the module ADD to add the loads applied to substructure 2 to the\r\n         load vector for substructure 1, and designate the output as PT02.\r\n=PAGE=\r\nTable 1.10-6. Comments for Phase 2 Data Deck (continued)\r\n\r\nCard\r\nNo.      Refer to Table 1.10-5 for input cards described below.\r\n\r\n 222     Insert the module EQUIV to equivalence PT02 to PGT.\r\n\r\n 223     Delete the DMAP statements associated with the Grid Point Singularity\r\n         Processor (COND LBL4,GENEL through LABEL LBL4).\r\n\r\n 224     Delete the SSG1 module.\r\n\r\n 225     Insert the module SSG1 with the calling sequence modified to remove\r\n         parts not associated with directly applied loads. Since, for this\r\n         particular problem, all loads were applied in Phase 1, there will be no\r\n         output from SSG1.\r\n\r\n 226     Insert the module ADD to combine the load vector from Phase 2 with the\r\n         load vectors generated in Phase 1, and designate the output as PGX.\r\n\r\n 227     Insert the module EQUIV to equivalence PGX to PG. The data block PG now\r\n         includes all loads from both Phase 1 and Phase 2, and will be used as\r\n         input to Phase 3.\r\n\r\n 228     Delete data recovery and OFP modules (the first SDR2 through the OFP\r\n         just before XYTRAN).\r\n\r\n 229     Insert the module OUTPUT1 to rewind User Tape 3 and place the label\r\n         USERTP3 on this file. You must arrange a third file allocated\r\n         which is designated as INPT. (It is presumed the INPT file will be\r\n         copied to a tape at the end of the job.)\r\n\r\n 230     Insert the module PARTN to separate that part of the solution vector\r\n         UGV associated with substructure 1, and designate the output as ULV01.\r\n\r\n 231     Insert the module OUTPUT1 to write the partition of the solution vector\r\n         associated with substructure 1 on User Tape 3.\r\n\r\n 232     Insert the module PARTN to separate that part of the solution vector\r\n         associated with substructure 2, and designate the output as ULV02.\r\n\r\n 233     Insert the module OUTPUT1 to write that part of the solution vector\r\n         associated with substructure 2 on User Tape 3. This will place the\r\n         solution vectors for both substructures on User Tape 3. (A second tape\r\n         could be used for the solution vector for substructure 2 by changing\r\n         the DMAP statement for OUTPUT1.)\r\n\r\n 234     Insert the module SDR2 with the calling sequence modified to remove\r\n         those parts associated with element output.\r\n\r\n 235     Insert the module OFP with the calling sequence modified to remove\r\n         those parts associated with element output.\r\n\r\n 236     Remove OFP and additional DMAP statements (COND LBLOFP,COUNT through\r\n         the OFP just before LABEL DPLOT).\r\n\r\n 237     Remove the DMAP statements associated with the preparation of the\r\n         deformed structure plots (COND P2,JUMPPLOT through REPT LOOPTOP,360).\r\n\r\n 238     Remove the statements associated with ERROR2 and ERROR4.\r\n\r\n 243     DMI cards used to define the null matrix KGG.\r\n 244\r\n\r\n 245     DMI cards used to define the null matrix PGT.\r\n 246\r\n\r\n 247     Definition of the three scalar points for the pseudostructure.\r\n=PAGE=\r\nTable 1.10-7. Data Deck for Phase 3, Substructure 1\r\n\r\n300  NASTRAN    FILES = (INPT,OPTP)\r\n301  ID         PHASE,THREE $ SUBSTRUCTURE 1\r\n302  TIME       2\r\n303  APP        DISP\r\n304  SOL        1,9\r\n305  ALTER      n1,n2 $ (where  n1 = DMAP statement number of module GP3 and\r\n                                n2 = DMAP statement number of LABEL LBL9)\r\n306  INPUTT1    /,,,,/C,N,-1/C,N,0/C,N,USERTP3 $\r\n307  INPUTT1    /ULV,,,,/C,N,0 $\r\n308  ALTER      n3,n4 $ (where n3 = DMAP statement number of COND LBL8,REPEAT\r\n                           and n4 = DMAP statement number of LABEL LBL8)\r\n309  ALTER      n5,n6 $ (where n5 = DMAP statement number of JUMP FINIS and\r\n                               n6 = DMAP statement number of LABEL FINIS)\r\n310  ENDALTER\r\n311    (Include Restart Dictionary from Phase 1)\r\n312  CEND\r\n313  TITLE = PHASE THREE - SUBSTRUCTURE 1\r\n314  DISP = ALL\r\n315  ELFORCE = ALL\r\n316  OLOAD = ALL\r\n317  SPCFORCE = ALL\r\n318  BEGIN BULK\r\n319     (No Bulk Data)\r\n320  ENDDATA\r\n\r\n=PAGE=\r\nTable 1.10-8. Comments for Phase 3, Substructure 1 Data Deck\r\n\r\nCard\r\nNo.      Refer to Table 1.10-7 for input cards described below.\r\n\r\n 304     Rigid Format 1, Static Analysis, will be used for this problem.\r\n\r\n 305     Delete all parts of the rigid format, except the data recovery modules\r\n         (GP3 through LABEL LBL9).\r\n\r\n 306     Insert module INPUTT1 to rewind and check the label on User Tape 3. The\r\n         user must arrange to have the tape mounted that was prepared at the end\r\n         of the Phase 2 run copied to a file designated as INPT.\r\n\r\n 307     Insert module INPUTT1 to read the solution vector for substructure 1\r\n         from User Tape 3. The solution vector is designated as ULV for input to\r\n         module SDR1.\r\n\r\n 308     Remove additional DMAP statements not associated with data recovery\r\n 309     operations (COND LBL8, REPEAT through LABEL LBL8, and JUMP FINIS\r\n         through LABEL FINIS).\r\n\r\n 311     Insert the Restart Dictionary punched during the Phase 1 run of\r\n         substructure 1. You must arrange to have the checkpoint tape from\r\n         the Phase 1 run for substructure 1 copied to a file OPTP for the\r\n         restart.\r\n\r\n 314     Request printed output for all displacements of substructure 1.\r\n\r\n 315     Request printed output of forces for all elements in substructure 1.\r\n\r\n 316     Request printed output of the load vector for substructure 1. In this\r\n         particular case, no output will result because no loads were applied to\r\n         substructure 1.\r\n\r\n 317     Request printed output for all nonzero single-point forces of\r\n         constraint on substructure 1.\r\n\r\n 318     Beginning of Bulk Data Deck.\r\n\r\n 319     No bulk data cards should be included in the Phase 3 run. However, the\r\n         BEGIN BULK and ENDDATA cards must be present.\r\n\r\n 320     End of NASTRAN Data Deck.\r\n\r\n=PAGE=\r\nTable 1.10-9. Data Deck for Phase 3, Substructure 2\r\n\r\n350a NASTRAN    FILES = (INPT,OPTP)\r\n350b ID         PHASE,THREE $ SUBSTRUCTURE 2\r\n351  TIME       2\r\n352  APP        DISP\r\n353  SOL        1,9\r\n354  ALTER      n1,n2 $ (where n1 = DMAP statement number of module GP3 and\r\n                               n2 = DMAP statement number of LABEL LBL9)\r\n355  INPUTT1    /,,,,/C,N,-1/C,N,0/C,N,USERTP3 $\r\n356  INPUTT1    /ULV,,,,/C,N,1 $\r\n357  ALTER      n3,n4 $ (where n3 = DMAP statement number of COND LBL8,REPEAT\r\n                           and n4  = DMAP statement number of LABEL LBL8)\r\n358  ALTER      n5,n6 $ (where n5  = DMAP statement number of JUMP FINIS and\r\n                               n6  = DMAP statement number of LABEL FINIS)\r\n359  ENDALTER\r\n360    (Include Restart Dictionary from Phase 1)\r\n361  CEND\r\n362  TITLE = PHASE THREE - SUBSTRUCTURE 2\r\n363  DISP = ALL\r\n364  ELFORCE = ALL\r\n365  BLOAD = ALL\r\n366  SPCFORCE = ALL\r\n367  BEGIN BULK\r\n368     (No Bulk Data)\r\n369  ENDDATA\r\n=PAGE=\r\nTable 1.10-10. Comments for Phase 3, Substructure 2 Data Deck\r\n\r\nCard\r\nNo.      Refer to Table 1.10-9 for input cards described below.\r\n\r\n 355     Insert module INPUTT1 to rewind User Tape 3. You must arrange to\r\n         have the tape mounted that was prepared at the end of the Phase 2 run\r\n         copied to a file, INPT, if it is not already available as a result of\r\n         the previous run on substructure 1.\r\n\r\n 356     Insert module INPUTT1 to skip over the solution vector for substructure\r\n         1 on User Tape 3, and read the solution vector for substructure 2.\r\n\r\n 365     The request for printed output of the load vectors will show nonzero\r\n         loads applied to grid points 3 and 4.\r\n=PAGE=\r\nTable 1.10-11. Instructions for Modified Phase 2 Data Deck\r\n\r\n 1. Remove card 116, SPC set selection for Phase 1 substructure 1, and request\r\n    SPC set 201 after card 241.\r\n\r\n 2. Replace card 118 as shown in Table 1.10-12 to redefine the a-set for\r\n    substructure 1.\r\n\r\n 3. Replace cards 121 and 122 with cards 121, 122, and 122a shown in Table \r\n    1.10-12 to redefine the partitioning vectors for substructure 1. \r\n\r\n 4. Card 128 is not required, SPC set definition for substructure 1 (see Item 1\r\n    above).\r\n\r\n 5. Remove cards 165 and 166, SPC and load set selection for Phase 1,\r\n    substructure 2 (see also item 1 above). Select LOAD set 202 and place after\r\n    card 241.\r\n\r\n 6. Replace card 168 as shown in Table 1.10-12 to redefine the a-set for\r\n    substructure 2.\r\n\r\n 7. Replace cards 172 and 173 with cards 172, 173, and 173a shown in Table \r\n    1.10-12 to redefine the partitioning vectors for substructure 2. \r\n\r\n 8. Cards 174, 175, and 182 are not required, load definition and SPC definition\r\n    for substructure 2 (see item 1 above).\r\n\r\n 9. Replace cards 243 and 245 as shown in Table 1.10-12 to conform to new size \r\n    for pseudostructure. \r\n\r\n10. Insert the cards 246a and 246b as shown in Table 1.10-12 in the Bulk Data \r\n    Deck for Phase 2 for definition of the loading condition and boundary \r\n    condition. \r\n\r\n11. Replace card 247 as shown in Table 1.10-12 to modify the definition of the\r\n    pseudostructure to contain 12 scalar points.\r\n=PAGE=\r\nTable 1.10-12. New Data for Modified Phase 2\r\n\r\n     1       2       3       4       5       6       7       8       9       10\r\n\r\n118  ASET1   126     1       3\r\n121  DMI     E1      0       2       1       1               12      1\r\n122  DMI     E1      1       1       1.0     1.0     1.0     1.0     1.0    +E11\r\n122a +E11    E1      1.0\r\n168  ASET1   126     3       4       5\r\n172  DMI     E2      0       2       1       1               12      1\r\n173  DMI     E2      1       4       1.0     1.0     1.0     1.0     1.0    +E21\r\n173a +E21    E2      1.0     1.0     1.0     1.0\r\n243  DMI     KGG     0       6       1       2               12      12\r\n245  DMI     PGT     0       2       1       2               12      1\r\n246a SLOAD   202     5       1000.   8       1000.\r\n246b SPC1    201             1       2       11\r\n247  SPOINT  1       THRU    12\r\n=PAGE=\r\nTable 1.10-13. Phase 1 Normal Modes Analysis Data Deck\r\n\r\nNASTRAN   FILES = (INPT,NPTP)\r\nID        PHASE,ONE $ NORMAL MODES\r\nTIME      2\r\nCHKPNT    YES\r\nAPP       DISP\r\nSOL       3,0\r\nALTER     n1,n2 $ (where n1 = DMAP statement number of COND LBL6,REACT and\r\n                         n2 = DMAP statement number of LABEL P2)\r\nOUTPUT1   E10,KAA,MAA,,//C,N,-1/C,N,0/C,N,USERTP1 $\r\nENDALTER\r\nCEND\r\n   (Case Control Deck)\r\nBEGIN BULK\r\n   (Bulk Data Deck)\r\nENDDATA\r\n=PAGE=\r\nTable 1.10-14. Phase 2 Normal Modes Analysis Data Deck\r\n\r\nNASTRAN   FILES = (INPT,INP1,INP2)\r\nID        PHASE,TWO $ NORMAL MODES\r\nTIME      2\r\nAPP       DISP\r\nSOL       3,0\r\nALTER     n0 $ (where n0 = DMAP statement number of the BEGIN statement)\r\nPARAM     //C,N,NOP/V,N,TRUE=-1 $\r\nALTER     n1,n2 $ (where n1 = DMAP statement number of module GP2 and\r\n                         n2 = DMAP statement number of module SMA3)\r\nINPUTT1   /E01,KGG01,MGG01,,/C,N,-1/C,N,1/C,N,USERTP1 $\r\nMERGE,    ,,,KGG01,E01,/KGGT01 $\r\nADD       KGG,KGGT01/KT01 $\r\nEQUIV     KT01,KGG/TRUE $\r\nMERGE,    ,,,MGG01,E01,/MGGT01 $\r\nADD       MGG,MGGT01/MT01 $\r\nEQUIV     MT01,MGG/TRUE $\r\nINPUTT1   /E02,KGG02,MGG02,,/C,N,-1/C,N,2/C,N,USERTP2 $\r\nMERGE,    ,,,KGG02,E02,/KGGT02 $\r\nADD       KGG,KGGT02/KT02 $\r\nEQUIV     KT02,KGG/TRUE $\r\nMERGE,    ,,,MGG02,E02,/MGGT02 $\r\nADD       MGG,MGGT02/MT02 $\r\nEQUIV     MT02,MGG/TRUE $\r\nALTER     n3,n4 $ (where n3 = DMAP statement number of COND LBL4,GENEL and\r\n                         n4 = DMAP statement number of LABEL LBL4)\r\nALTER     n5,n6 $ (where n5 = DMAP statement number of module SDR2 and\r\n                         n6 = DMAP statement number of LABEL P2)\r\nOUTPUT1   LAMA,,,,//C,N,-1/C,N,0/C,N,USERTP3 $\r\nPARTN     PHIG,,E01/,PHIA01,,/C,N,1 $\r\nOUTPUT1   PHIA01,,,,//C,N,0/C,N,0/C,N,USERTP3 $\r\nPARTN     PHIG,,E02/,PHIA02,,/C,N,1 $\r\nOUTPUT1   PHIA02,,,,//C,N,0/C,N,0/C,N,USERTP3 $\r\nSDR2      CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,QG,PHIG,,/\r\n          ,OQG1,OPHIG,,,/C,N,REIG $\r\nOFP       OPHIG,OQG1,,,,//V,N,CARDNO $\r\nALTER     n7,n8 $ (where n7 and n8 are the DMAP statement numbers of LABEL\r\n                   ERROR1 and the PRTPARM module immediately following it,\r\n                   respectively)\r\nENDALTER\r\nCEND\r\n  (Case Control Deck)\r\nBEGIN BULK\r\n  (Bulk Data Deck)\r\nENDDATA\r\n=PAGE=\r\nTable 1.10-15. Phase 3 Normal Modes Analysis Data Deck\r\n\r\nNASTRAN   FILES = (INPT,OPTP)\r\nID        PHASE,THREE $ NORMAL MODES\r\nTIME      2\r\nAPP       DISP\r\nSOL       3,0\r\nALTER     n1,n2 $ (where n1 = DMAP statement number of module GP3 and\r\n                         n2 = DMAP statement number of the OFP module just prior\r\n                         to the SDR1 module)\r\nINPUTT1   /LAMA,,,,/C,N,-1/C,N,0/C,N,USERTP3 $\r\nINPUTT1   /PHIA,,,,/C,N,0 $\r\nALTER     n3,n4 $ (where n3 = DMAP statement number of JUMP FINIS and\r\n                         n4 = DMAP statement number of LABEL FINIS)\r\nENDALTER\r\n   (Include Restart Dictionary from Phase 1)\r\nCEND\r\n   (Case Control Deck)\r\nBEGIN BULK\r\n   (No Bulk Data)\r\nENDDATA\r\n=PAGE=\r\n       Y\r\n                            P        P\r\n         1        2        3        4        5         6\r\n         ****** X\r\n        1       2       3       4       5 \r\n       /////                              /////\r\n                                                          \r\n                                                          \r\n                                                          \r\n         Ĵ\r\n                          5 @ 20 ft. = 100 ft.\r\n\r\n\r\n\r\n         Substructure 1                    Substructure 2\r\n\r\n                                     P        P\r\n          1        2        3       3        4        5         6\r\n         ***       ****\r\n        1       2               3       4       5 \r\n       /////                                      /////\r\n                                                             \r\n                                                             \r\n         Ĵ       Ĵ\r\n             240\"      240\"              240\"     240\"      240\"\r\n\r\n\r\n\r\n     2   Grid point numbers\r\n\r\n    Ŀ\r\n    3  Element numbers\r\n    \r\n\r\n                6\r\n     E = 30 x 10  psi\r\n\r\n               4\r\n     I = 500 in\r\n\r\n     P = 1000 lbs.\r\n\r\n\r\n                 Figure 1.10-1. Manual substructuring problem\r\n\r\n=PAGE=\r\n1.10.2  Automated Multi-Stage Substructuring\r\n\r\n   Large and complex structural analysis problems can be solved for static and \r\ndynamic response and/or normal mode shapes using the automated multi-stage \r\nsubstructuring features of NASTRAN. As with all substructuring approaches, you \r\nsubdivide the intended model into a set of smaller, more elementary partitions \r\ncalled basic substructures. The components of the whole structure can be \r\nmodeled independently, checked for accuracy, and then assembled automatically \r\nall at once or in stages to form a composite model representing the whole \r\nstructure for final solution. \r\n\r\n   In order to effectively employ this automated substructuring capability of \r\nNASTRAN for static and normal modes analyses, you should gain an overall \r\nunderstanding of the basic program design concepts, the data base on which it \r\noperates, and the control functions provided. These topics are discussed in \r\nthe sections which follow. Suggestions, recommendations, and cautions to be \r\nobserved when using automated substructuring are presented in Section \r\n1.10.2.6. \r\n\r\n   A detailed description of the substructuring control cards and a summary of \r\npertinent bulk data cards is provided in Section 2.7 of this manual. A \r\ndetailed description of each of these bulk data cards is included \r\nalphabetically along with all other bulk data cards in Section 2.4. The basic \r\ndesign concepts used in developing this automated substructuring capability \r\nare described below. The theory is presented in Section 4.6 of the Theoretical \r\nManual. \r\n\r\n1.10.2.1  Basic Concepts\r\n\r\n   Automated substructuring analysis is available for use with NASTRAN Rigid \r\nFormats 1, 2, 3, 8, and 9. This provides capability for static analysis, \r\nstatic analysis with inertial relief for unsupported structures, and normal \r\nmodes, frequency response, and transient response analyses. The capability \r\nallows an unlimited number of substructures to be combined and/or reduced in \r\nany sequence desired. Each substructure is represented by its mass, stiffness, \r\nand damping matrices. A reduction in size or condensation of these matrices is \r\naccomplished using the Guyan reduction technique or reduction to normal or \r\ncomplex modal coordinates. \r\n\r\n   Although the NASTRAN substructuring system may be used for small and \r\nmoderate size problems, several features are available to accommodate very \r\nlarge problems. The most important of these features is the automated data \r\nbase management system used to maintain the Substructure Operating File (SOF) \r\non which all pertinent matrix and substructural loading data and associated \r\ncontrol files are stored. This SOF carries all the information needed from run \r\nto run throughout a substructuring analysis. \r\n\r\n   Processing automated substructuring analyses is subdivided into three \r\nphases similar to those described earlier for manual substructuring. The usual \r\nanalysis proceeds as follows. First, several separate Phase 1 executions are \r\nperformed, one for each basic substructure. Second, one or more Phase 2 \r\nexecutions may be performed. In a Phase 2 run, any number of substructure \r\nreductions and/or combinations, resulting in higher level (meaning more \r\ncomplex) pseudostructures, may be performed. Phase 2 processing may be halted \r\nat any stage of model assembly and restarted in a subsequent Phase 2 \r\nexecution. The results at each step in the operation are stored on the SOF so \r\nas to be available for subsequent execution. The final steps of a Phase 2 \r\noperation would be the solution step for the highest level structure and the \r\ndata recovery steps with limited output capability (displacements, forces of \r\nconstraint, modal energies, and applied loads only) for any lower level \r\nsubstructure. Complete and detailed data recovery for the basic substructures \r\nmust be obtained by separate Phase 3 executions, one for each basic \r\nsubstructure. This level of data recovery may include any or all of the \r\nNASTRAN output normal for a non-substructure analysis. \r\n\r\n   Automated substructuring allows each basic substructure to be defined \r\nindependently. This concept is represented by three key features of the \r\nsystem. \r\n\r\n   1.  There are no restrictions as to duplication of grid point or element \r\n       identification numbers, load sets, individual coordinate systems, etc. \r\n       All data for a given substructure is associated with an assigned unique \r\n       name for that structure. The only data restriction is one of proper \r\n       modeling, that is, common boundaries require grid points to be located \r\n       at the same point in space for each connecting substructure. \r\n\r\n   2.  No substructure may appear as a component of another substructure more \r\n       than once; and no degrees of freedom within a substructure may be \r\n       connected (\"combined\") to other degrees of freedom in that same \r\n       substructure except by multipoint constraints imposed at the solution \r\n       step operation. \r\n\r\n   3.  All pertinent substructure data are stored on the SOF, an expandable \r\n       direct access file. This file may be selectively edited and/or dumped \r\n       to tape and transmitted to another user who may have need for the data. \r\n       Provision is made for automated tape conversion among CDC, IBM, UNIVAC, \r\n       and DEC VAX computers to facilitate such data transmittal between \r\n       different users. Use of this file is described in Section 1.10.2.4. \r\n\r\n   Control of the automated substructuring system is obtained through the use \r\nof linguistic commands, similar to those of Case Control. These commands are \r\nplaced in the Substructure Control Deck shown in Figure 1.10-2. This \r\nSubstructure Control Deck is situated between the Executive Control and Case \r\nControl Decks. \r\n\r\n   Each substructure control command is automatically translated into \r\nappropriate DMAP ALTER cards to augment the requested Rigid Format sequence. \r\nYou may also include your own DMAP ALTER commands, or may modify a previously \r\ndefined DMAP sequence. A description of how you may interface with this \r\nNASTRAN-generated substructuring DMAP is presented in Section 2.7.2. Listings \r\nof the DMAP ALTERs generated by each substructure command are presented in \r\nSection 5.9. Descriptions of the corresponding modules provided for \r\nsubstructuring are found in the NASTRAN Programmer's Manual. \r\n\r\n1.10.2.2  Substructure Operations and Control Functions\r\n\r\n   User control of the automated multi-stage substructuring system is obtained \r\nvia the Substructure Control Deck commands. The key terms used to describe \r\nthese commands and their functions are defined in Table 1.10-16. A summary of \r\nthe substructuring command options is presented in Table 1.10-17. Some of \r\nthese commands require specific bulk data cards which are listed for easy \r\nreference in Table 18. You should also refer to Section 2.7 for a complete \r\ndescription of the Substructure Control Deck commands and to Section 2.3 for \r\ndetailed descriptions of the corresponding bulk data cards. \r\n\r\n   The operation and control functions of automated substructuring analysis \r\nare best illustrated and explained using the \"tree\" structure presented in \r\nFigure 1.10-3. This figure defines the genealogy of all the component \r\nsubstructures used in building a final model. Basic substructures are created \r\nat the Phase 1 level. Substructures \"A,\" \"B,\" and \"E\" are shown in solid boxes \r\nindicating they were formed from actual data deck submittals and are \r\nphysically different models. The dotted boxes are called \"image\" substructures \r\nand are the result of an EQUIVALENCE operation rather than an actual Phase 1 \r\ndata deck submittal. The EQUIVALENCE operation defines a new substructure \r\nwhich is a duplicate of an existing substructure, and automatically creates \r\nall equivalent lower level component substructures. Thus, space is saved on \r\nthe data files by eliminating storage of redundant matrix data. A four-bladed \r\npropeller, for example, could be seen to consist of four identical components \r\nand, hence, only one need be explicitly modeled. The other three blades could \r\nbe defined solely by using the EQUIVALENCE command. \r\n\r\n   The image substructures exist in name only. Note in Figure 1.10-3 that the \r\nnames of the image structures are identical to the equivalent parent \r\nstructure, with the exception of a prefix character. The new names would be \r\ncreated automatically by NASTRAN with the use of the PREFIX subcommand to \r\nEQUIVALENCE. These new prefixed names would then be used to reference the \r\nappropriate component substructure as if it were created independently. \r\n\r\n   Note that the term \"lower level\" refers to the less complex of the \r\ncomponent substructures which are used to create a higher level, or more \r\ncomplex, substructure. \r\n\r\n   From the user point of view, all substructures shown in Figure 1.10-3, with \r\neither solid or dotted boxes, are separate and distinct substructures. They \r\nmay have different applied loads, boundary conditions, and responses. For \r\nexample, though only A, B, and E represent actual Phase 1 executions, Phase 3 \r\ndata recovery executions may be made for A, B, E, XA, XB, YA, YB, YXB, and YE, \r\neach of which generally would have different results. \r\n\r\n   The COMBINE command (see Table 1.10-17) with its numerous subcomnands, \r\noffers flexibility in the assembly of substructures into a higher level \r\nsubstructure. The COMBINE capability allows component substructures to be \r\ntranslated, rotated, and/or symmetrically transformed via mirror image \r\ntransformation for proper positioning in space. \r\n\r\n   For example, the right wing of an aircraft is first modeled and an \r\nEQUIVALENT operation is performed to define an identical duplicate wing. Then, \r\nin the COMBINE operation, a SYMTRANSFORM is applied so that the wing now \r\nappears as the actual left wing (a mirror image of the right wing), and a \r\nTRANSFORM Is applied to properly position it on the left side of the aircraft. \r\nCaution is advised in that the symmetry transformation (SYMTRAN) is always \r\napplied to the component in its own basic coordinate system before the usual \r\ntranslation and rotation (TRANS) for final positioning (see Section 4.6 of the \r\nTheoretical Manual). \r\n\r\n   The REDUCE command causes a Guyan reduction to be performed on an existing \r\nsubstructure. You specify which degrees of freedom are to be retained using \r\nthe BDYC and BDYS (or BDYS1) bulk data cards provided. The degrees of freedom \r\nretained are all called boundary degrees of freedom, although they all need \r\nnot ever appear on the boundary with another substructure. Obviously, all \r\ndegrees of freedom eventually needed for boundary connections must be \r\nretained, that is, they must not be reduced out. However, care must be taken \r\nto retain in this boundary set all the appropriate degrees of freedom needed \r\nto represent the dominant displacement patterns for accurate calculation of \r\neigenvalues and eigenvectors for normal modes analyses. \r\n\r\n   The MREDUCE and CREDUCE commands provide a modal synthesis capability to \r\nautomated multi-stage substructuring. With these commands you define boundary \r\ndegrees of freedom to identify degrees of freedom retained as physical \r\ncoordinates. The remaining degrees of freedom are replaced by a smaller set of \r\nnormal (MREDUCE) or complex (CREDUCE) generalized modal coordinates. MREDUCE \r\nmay be used when real symmetric mass and stiffness matrices are used to define \r\nthe model. CREDUCE provides a general modal reduction capability when damped \r\nmodes are desired or complex or unsymmetric matrices are present. \r\n\r\n   You may also define constraints for the structure to be applied only for \r\nthe purpose of calculating the modes. BDYC and BDYS (or BDYS1) bulk data cards \r\nare used to define these degrees of freedom and are requested by the \r\nsubcommand FIXED. \r\n\r\n   Note that for both the REDUCE and MREDUCE substructure commands, the \r\ndamping matrices, B and K4, and the load vectors, P, are transformed to the \r\nreduced set of coordinates. The reduced substructures may be processed with \r\nany of the other substructure operations. However, substructures  generated \r\nwith the complex modal reduction, CREDUCE, may not be processed with any \r\ncommands requiring real arithmetic, namely REDUCE, MREDUCE, or SOLVE with \r\nRigid Formats 1, 2, 3, or 9. \r\n\r\n   As many EQUIVALENCE, COMBINE, REDUCE, MREDUCE, or CREDUCE commands as \r\ndesired may be used in one or more Phase 1 or Phase 2 executions. However, \r\nonly one SOLVE command is allowed in any single Phase 2 execution, and the \r\nSOLVE command is not allowed in Phase 1 executions. As indicated in the \r\ndefinitions of Table 1.10-1, the SOLVE command requests a solution for \r\nstructural response to applied static loads (Rigid Formats 1 and 2), the \r\ncalculation of normal modes (Rigid Format 3), or structural response to \r\nfrequency dependent or time dependent loads (Rigid Formats 8 and 9) of the \r\nsubstructure named in the command. \r\n\r\n   The RECOVER command is used in Phase 2 to recover the solution data for \r\nsuccessively lower level substructures. Only the displacements, forces of \r\nconstraint, modal energies, and applied loads can be selectively output for \r\nany component substructure during these Phase 2 operations. The BRECOVER \r\ncommand is then used in a Phase 3 execution to obtain all the detail response \r\noutput normally provided by NASTRAN for each desired basic substructure. The \r\ncommand MRECOVER is used to recover mode shape data for modal reduced \r\nsubstructures. \r\n\r\n   Using the PLOT command, only undeformed plots may be requested in a Phase 2 \r\nexecution. Deformed plots can only be obtained from a Phase 3 execution. \r\n\r\n   You control each step in the analysis by specifying the appropriate \r\ncommands to be executed and the substructure names, such as A, B, YC, etc. \r\n(see Figure 1.10-3), of each substructure to be used in that step. \r\n\r\n   To reduce the potential for input error and to simplify the bookkeeping \r\ntasks, all specific references to loadings and grid points for connection, \r\nboundary sets, and constraints, etc. are made with respect to the basic \r\nsubstructure name only. For these reasons, no component substructure may be \r\nused more than once while building the solution structure. That is, every \r\ncomponent named in any substructure must be unique. If the same component \r\nsubstructure is to be used more than once, for example, identical components \r\nare to be used to create the full model, the EQUIVALENCE operation should be \r\nused as described earlier to assign unique names to all substructures \r\ncomprising that component. \r\n\r\n   Substructure names are allowed no more than eight alphanumeric characters. \r\nNotice in the EQUIVALENCE operation shown in Figure 1.10-3, the required \r\nsubcommand PREFIX generates an additional character which is placed ahead of \r\nthe existing name as a prefix to the parent substructure name. Care must be \r\ntaken with successive EQUIV operations to monitor the growth of image \r\nsubstructure names so as not to exceed the eight-character limit. If the limit \r\nis exceeded, the right-most character will be truncated. Therefore, it is \r\npossible to inadvertently create duplicate substructure names as more prefixes \r\nare added. It is recommended, therefore, that the entire tree structure for \r\nthe analysis be prepared ahead of time to help avoid these problems. This pre-\r\nplanning also will be an invaluable aid to the task of data preparation and \r\nproper sequencing of the individual steps in the analysis. \r\n\r\n1.10.2.3  Input Data Checking and Interpretation of Output\r\n\r\n   The automated substructuring system provides several methods for input data \r\nchecking, diagnostic output, and substructure-oriented data output. \r\n\r\n   A principal facility for input data checking is the RUN = DRY command. This \r\noption allows you to validate the command structure and data without actually \r\nperforming the more time-consuming matrix operations. Assuming the input is \r\nfound to be consistent, the run may be resubmitted with the RUN = GO option to \r\ncomplete the matrix processing. \r\n\r\n   Also available is a RUN = STEP option (the default option) which first \r\nchecks the data and then executes the matrix operations one step at a time. If \r\nerrors are detected in the data, the matrix operations are skipped and the \r\nremainder of the processing sequence is executed as a DRY run only. \r\n\r\n   You also are allowed to process only selected matrix data. If, for example, \r\nafter having assembled the solution structure, new loading conditions are to \r\nbe added or normal modes are desired but the mass matrix is not available, the \r\nnecessary sequence of matrix operations can be requested using the RUN = GO \r\noption to process the new load or mass matrix data only. The OPTIONS command, \r\ndescribed in Section 2.7, causes selective processing of mass (M), damping (B \r\nor K4), stiffness (K), or load (P) data only. The PA option (load append) is \r\nused when new Phase 1 load vectors are to be added to the set of existing load \r\nvectors. Note that when using the OPTIONS command, if existing substructure \r\ndata items are to be recreated (see Table 1.10-19), the old data must be \r\nremoved using the EDIT or DELETE commands as described in the next section. \r\nThis is necessary because only one item of a given type may be allowed on the \r\nSOF for any particular substructure. \r\n\r\n   All the relevant substructuring data generated by the program may be \r\ndisplayed with the OUTPUT command described in Section 2.7. The COMBINE, \r\nREDUCE, MREDUCE, and CREDUCE operations involve specification of grid point \r\nand degree of freedom data related to the basic substructures involved. The \r\nautomatically generated or manually specified connectivities are critical to \r\nthe COMBINE operation. Using these output options, the information can be \r\nobtained to explicitly verify all connectivities. The REDUCE, MREDUCE, and \r\nCREDUCE operations require you to specify the degrees of freedom to be \r\nretained. These also are identified by basic substructure grid point numbers. \r\nIf desired, these same output options can be used to obtain lists of all the \r\nretained degrees of freedom of the resulting pseudostructure to help verify \r\nthe resulting model. The following paragraphs describe examples of the \r\npossible output that can be requested. \r\n\r\n   The table shown below may be used to verify all substructure \r\nconnectivities. This, and the other examples of diagnostic output to be \r\ndescribed later, are reproductions of actual problem output requested under \r\nthe COMBINE command used to create a pseudostructure named WINDMILL from \r\ncomponent substructures RING and VANR. \r\n\r\n                   SUMMARY OF PSEUDOSTRUCTURE CONNECTIVITIES\r\n\r\n       INTERNAL    INTERNAL     DEGREES OF      RING        VANR\r\n       POINT NO.   DOF NO.      FREEDOM\r\n\r\n          34          67            12          RING 146\r\n          35          69            12          RING 147\r\n          36          71            12          RING 148\r\n          37          73            12          RING 103    VANE 1\r\n          38          75            12          RING 106    VANE 2\r\n          39          77            12          RING 109    VANE 3\r\n          40          79            12                      VANE 13\r\n          41          81            12                      VANE 14\r\n\r\n   The column heading \"INTERNAL POINT NO.\" references the equivalent of \r\ninternally generated \"grid points\" for the resulting pseudostructure. \r\n\"INTERNAL DOF NO.\" references the internally sequenced first degree of freedom \r\n(row or column number) in the matrices of WINDMILL for the designated internal \r\ngrid point. \"DEGREES OF FREEDOM\" references the component degrees of freedom \r\nin the global coordinate system of the assembled structure associated with the \r\ninternal grid point. In the example above, the following may be observed: \r\n\r\n   1.  Degrees of freedom 1 and 2 from grid point 109 of basic substructure \r\n       RING and grid point 3 of basic component VANE in substructure VANE are \r\n       connected and assigned to internal point 39 of pseudostructure \r\n       WINDMILL. \r\n\r\n   2.  Displacement components 1 and 2 at internal point 39 are the 77th and \r\n       78th degrees of freedom for the matrices of WINDMILL. \r\n\r\n   Note that only basic substructure names appear in association with grid \r\npoints. In this example, RING and VANR are the substructures referenced by the \r\nCOMBINE command. VANR exists as a higher level substructure with VANE as the \r\nbasic substructure. \r\n\r\n   Substructure items EQSS and BGSS, which are created by the COMBINE or \r\nREDUCE operations, are helpful in checking the results of these substructure \r\ncommands. They are stored along with the other items on the SOF (see Table \r\n1.10-19) and can be accessed at any time with the SOFPRINT command. The \r\ndisplay of these items, however, is normally requested by the OUTPUT \r\nsubcommand of either the COMBINE, REDUCE, MREDUCE, or CREDUCE commands at the \r\ntime of their execution. \r\n\r\n   The EQSS item provides data for each basic substructure relating external \r\nor basic substructure grid point numbers to pseudostructure internal grid \r\npoint numbers. In the example shown below, degrees of freedom 1 and 2 of grid \r\npoint 102 of basic substructure RING have been assigned to internal grid point \r\n2 of pseudostructure WINDMILL. \r\n\r\n       EQSS ITEM FOR SUBSTRUCTURE WINDMILL COMPONENT RING\r\n\r\n            GRID POINT       INTERNAL       COMPONENT\r\n                ID           POINT NO.         DOF\r\n\r\n               102               2             12\r\n               105               4             12\r\n               108               6             12\r\n               111               8             12\r\n               114              11             12\r\n               117              13             12\r\n               120              15             12\r\n               123              17             12\r\n               126              20             12\r\n               129              22             12\r\n               132              24             12\r\n               135              26             12\r\n               138              29             12\r\n               141              31             12\r\n               144              33             12\r\n               147              35             12\r\n\r\n   In addition to the above data for each basic substructure, the EQSS item \r\nalso contains summary data for the resultant pseudostructure. A sample is \r\nshown below. \r\n\r\n       EQSS ITEM - SCALAR INDEX LIST FOR SUBSTRUCTURE WINDMILL\r\n\r\n            INTERNAL         INTERNAL          COMPONENT\r\n            POINT ID          SIL ID              DOF\r\n\r\n                2                 3               12\r\n                5                 9               12\r\n                8                15               12\r\n               11                21               12\r\n               14                27               12\r\n               17                33               12\r\n               20                39               12\r\n               23                45               12\r\n               26                51               12\r\n               29                57               12\r\n               32                63               12\r\n               35                69               12\r\n\r\n   In the above table, the relationships of the internal grid point numbers to \r\nthe internal degree of freedom numbers (referenced as \"INTERNAL SIL ID\") and \r\nto the component degrees of freedom are defined for pseudostructure WINDMILL. \r\nThe internal degrees of freedom are referenced as a Scalar Index List (SIL) \r\nbecause all substructure problem degrees of freedom are converted to scalar \r\npoints for purposes of Phase 2 processing. If desired for special purposes, \r\ntherefore, these internal degrees of freedom may be referenced as scalar \r\npoints for use with any of the non-substructuring Bulk Data cards to be input \r\nto the SOLVE step operations in Phase 2. \r\n\r\n   The EQSS items and the summary of pseudostructure connectivities table are \r\nrelated. For example, by cross referencing each table it can be seen that \r\ninternal grid point 35 of substructure WINDMILL has degrees of freedom 1 and 2 \r\nassigned to it. These degrees of freedom numbers in the SIL list are 69 and \r\n70, respectively, and these degrees of freedom come from grid point 147 of \r\nbasic substructure RING. \r\n\r\n   Special treatment is required for the EQSS item for substructures which are \r\nmodal reduced. For example, if basic substructure A is reduced to MA using \r\nMREDUCE or CREDUCE, the EQSS for MA indicates that pseudostructure MA has two \r\ncomponent substructures, A and MA. The EQSS for component A contains the \r\nboundary point definitions. The EQSS for component MA contains definitions for \r\nthe newly created modal coordinates. Inertia relief coordinates are assigned \r\ngrid point ID's of 1 through 6 to MA, and flexible mode coordinates are \r\nassigned grid point ID's of 101 through 100+N, where N is the number of \r\nflexible modes used. Refer to Sections 4.6.2, 4.7.1, and 4.7.2 of the \r\nTheoretical Manual and Section 2.7 of this manual for definitions of the modal \r\ncoordinates. \r\n\r\n   The modal degrees of freedom of component substructure MA (both inertia \r\nrelief and flexible mode coordinates) may be referenced for application of \r\nconstraints in the SOLVE operation. They may also be referenced as boundary \r\ncoordinates in subsequent reduction operations. \r\n\r\n   COMBINE or reduction operations also create the BGSS item. A sample is \r\nshown below. The BGSS item contains internal grid point locations for the \r\nsubstructure model. In this example, the BGSS item displays all the internal \r\npoint numbers for the pseudostructure WINDMILL along with its corresponding \r\nlocation coordinates in that pseudostructure's basic system. The \"CSTM ID NO.\" \r\ncolumn indicates the existence (if any) of local coordinate systems associated \r\nwith those internal points. If the entry is \"0\", the displacement components \r\nwill be in that pseudostructure basic system. Otherwise, they will be in a \r\nlocal system which may be verified with the optional printout of the \r\ncoordinate system transformations (a 3x3 matrix of direction cosines) as \r\nstored in the \"CSTM\" item for that pseudostructure. \r\n\r\n                      BGSS ITEM FOR SUBSTRUCTURE WINDMILL\r\n\r\n       INTERNAL      CSTM ID           COORDINATES\r\n       POINT ID.        NO.            X1               X2           X3\r\n\r\n          1             0         -0.500000E+01    0.100000E+02    0.E+00\r\n          2             0         -0.500000E+01    0.150000E+02    0.E+00\r\n          3             0         0.E+00           0.100000E+02    0.E+00\r\n          4             0         0.E+00           0.150000E+02    0.E+00\r\n          5             0         0.500000E+01     0.100000E+02    0.E+00\r\n          6             0         0.500000E+01     0.150000E+02    0.E+00\r\n          7             0         0.750000E+01     0.750000E+01    0.E+00\r\n          8             0         0.100000E+02     0.100000E+02    0.E+00\r\n          9             0         0.125000E+02     0.125000E+02    0.E+00\r\n         10             0         0.100000E+02     0.500000E+01    0.E+00\r\n\r\n   Modal coordinates are indicated in the BGSS by a CSTM ID NO. of -1 and a \r\ncoordinate location of X1 = 0.0, X2 = 0.0, and X3 = 0.0. The CSTM ID NO. of -1 \r\nis the NASTRAN convention for a scalar point. Note that scalar points will \r\nnever be combined with any other points using the automatic COMBINE operation. \r\n\r\n   Another useful output item is the SUBSTRUCTURE OPERATING FILE TABLE OF \r\nCONTENTS (TOC), as shown in Figure 1.10-4. In this figure, the substructure \r\ntree has been added to the TOC output to help visualize the sample problem. \r\nThis output is obtained with the command SOFPRINT TOC. The TOC lists by name \r\nall substructures that reside on the SOF, lists the current items available \r\nfor each substructure, and provides a set of pointers which describe the \r\nhierarchy of substructure relationships. The SOF pointer scheme is described \r\nby defining the individual column headings shown in the TOC. \r\n\r\n   TYPE    Defines the substructure type:\r\n\r\n           B - basic substructure\r\n\r\n           C - combined substructure\r\n\r\n           R - Guyan reduced substructure\r\n\r\n           M - real modal reduced substructure\r\n\r\n           CM - complex modal reduced substructure\r\n\r\n           Any of the above types will have prefix \"I\" if it is an image \r\n           substructure resulting from an EQUIV operation. \r\n\r\n   SS      Points to a substructure which is secondary to the current \r\n           substructure. In the case where many secondary substructures have \r\n           been EQUIVed to a single primary substructure, the SS entries form \r\n           a chain starting with the primary substructure and ending with an \r\n           SS pointer of zero. \r\n\r\n   PS      Points to the substructure which is primary to the current \r\n           substructure. PS is non-zero for secondary substructures only. \r\n\r\n   LL      Points to a substructure at the next lower (simpler) level to the \r\n           current substructure. \r\n\r\n   CS      Points to a substructure which has been combined with the current \r\n           substructure. The CS entries form a circular chain. \r\n\r\n   HL      Points to the substructure at the next higher (complex) level to \r\n           the current substructure. \r\n\r\n   All normal NASTRAN output for each basic substructure, primary or image \r\nsubstructure, is available via a Phase 3 execution. Also, certain output may \r\nbe recovered in Phase 2 for any or all of the substructures in the solution \r\nstructure's tree. However, this output is limited to displacements, applied \r\nloads, and forces of single-point constraint. The output requested in Phase 2 \r\nis labeled by both the pseudostructure and its component basic substructure \r\nnames. \r\n\r\n   Some discussion of the forces of constraint, which may be requested as \r\noutput in both Phase 2 and Phase 3, is required. The Phase 3 calculations for \r\nforces of constraint are computed in the normal NASTRAN convention (refer to \r\nSection 3.7 of the Theoretical Manual). In a Phase 2 execution, however, the \r\nforces of constraint include additional terms. The equations used for the \r\ncalculations are shown below and are identified by rigid format application. \r\nIn these equations, {Q} are the forces of constraint, {P} are the applied \r\nloads, {u} is the displacement vector, [K] is the stiffness, [B] is the \r\ndamping, [M] is the mass, w2 are eigenvalues from a real modes analysis, and p \r\nare complex eigenvalues from a complex modal reduction. \r\n\r\n   Ŀ\r\n    Rigid Format         Equation for Forces of Constraint            \r\n   Ĵ\r\n                                                                      \r\n    1 and 2              {Q} = [K]{u}                          - {P}  \r\n                                                                      \r\n      3                  {Q} = [K]{u}            - [M][w2]{u}         \r\n                                                                      \r\n      3                  {Q} = [K]{u} + [B][p]{u} +  [M][p2]{u}       \r\n                                            .           ..            \r\n    8 and 9              Q   = [K]{u} + [B]{u}    + [M]{u}     - {P}  \r\n   \r\n\r\n   The force vectors {Q} contain all the terms due to\r\n\r\n   1. Inertia forces\r\n\r\n   2. Damping forces\r\n\r\n   3. Single-point constraints\r\n\r\n   4. Multipoint constraints\r\n\r\n   5. Forces transferred from other connected substructures\r\n\r\n   6. Residual forces due to computer round-off\r\n\r\n   The equations presented above for calculation of forces of constraint \r\nprovide especially useful information, that is, the forces of substructure \r\ninterconnection as shown below. \r\n\r\n                         -F1              F1\r\n       Ŀ                 Ŀ\r\n                                                          \r\n                                                    B     \r\n                       -F2             F2                 \r\n           A                  Ĵ\r\n                                                          \r\n                                                    C     \r\n                                                          \r\n                                      \r\n\r\n       Substructure A                              Substructure BC\r\n\r\n   Forces F1 and F2, recovered as forces of constraint for substructure A and \r\nfor pseudostructure BC, represent the forces of interconnectivity. Force F2 \r\nrepresents the sum of two component forces, one from each component \r\nsubstructure B and C, acting at their common grid point. The separate \r\ncontributions to F2 from each B and C may be determined by using the RECOVER \r\ncommand for the component substructures B and C individually, as shown below. \r\n\r\n                                                      Ŀ\r\n                                                                \r\n                Ŀ                              B     \r\n                                           F2B                \r\n                    B                      \r\n       F2                 \r\n       Ĵ   =                           +\r\n                                           F2C\r\n                    C                      Ŀ\r\n                                                              \r\n                                              C     \r\n                                                                \r\n                                                      \r\n\r\n1.10.2.4  Substructure Operating File (SOF)\r\n\r\n   The data required for each basic substructure and for all subsequent \r\ncombinatIons of substructures are stored on the Substructure Operating File \r\n(SOF). The SOF data are stored in direct access format on disk or drum during \r\na NASTRAN execution. These data may also be stored on tape between runs for \r\nbackup storage or for subsequent input to other computers. Schematic diagrams \r\nof data flow for each of the three phases of execution are given in Figure \r\n1.10-5. \r\n\r\n   The SOF file, which contains the data items listed in Table 1.10-19, is \r\nused to communicate all required data between phases of operation and between \r\nsteps of the Phase 2 operation. Thus, you are allowed to develop your analysis \r\nin separate steps without requiring the checkpoint/restart feature of NASTRAN. \r\nA Phase 1 run is required to build each basic substructure and place its data \r\non the SOF prior to any Phase 2 reduction or combination using that \r\nsubstructure. Using that data, component pseudostructures may be assembled in \r\nstages from these basic substructures and added later to other component \r\nsubstructures already on the SOF file. Also, the same SOF may be used to build \r\nthe data files for more than one solution structure at a time. \r\n\r\n   Once the final solution model is established, the solution may be obtained \r\nand results recovered for any level, component pseudo- or basic substructure. \r\nHowever, detail element stresses and element forces or support reactions \r\nspecified with the basic substructure can be recovered only in Phase 3. These \r\nPhase 3 results may be recovered either by using the original data deck or by \r\nrestarting from a checkpointed Phase 1 execution. \r\n\r\n   The SOF is structured as a single logical file used to store all data \r\nnecessary for a complete multi-stage substructuring analysis. However, the SOF \r\nmay actually reside on from one to ten physical files. These physical files \r\nwould be chained together to form the single logical file for use in the \r\nanalysis of larger problems. The figure below shows the basic arrangement of \r\nan SOF on disk or drum. \r\n\r\n       Ŀ                  Ŀ\r\n       Ĵ                  Ĵ\r\n        SOF(1)             SOF(2)     Ŀ\r\n       Ĵ                  Ĵ    \r\n                                                 \r\n       Ĵ                            \r\n        SOF(1)       Ŀ        Ĵ    \r\n       Ĵ             ij SOF(3)     \r\n                                   Ĵ\r\n                         \r\n\r\n\r\n   Each physical file comprising the SOF is a direct access file. These disk \r\nor drum files are not used by NASTRAN GINO operations. NASTRAN treats them as \r\nexternal user files. In a substructure analysis, NASTRAN stores data on the \r\nSOF which must be saved from run to run. Therefore, it is your responsibility \r\nto maintain the physical files comprising the SOF from one execution to the \r\nnext. For large disk files which may arise in some substructuring problems, it \r\nmay be advisable to store the SOF on tape for backup protection between \r\nexecutions. You should refer to the DUMP, RESTORE, SOFOUT, and SOFIN commands \r\nfor this capability, or may use operating system utilities. \r\n\r\n   The SOF declaration in the Substructure Control Deck is used to define the \r\nphysical files which make up the SOF. See Section 2.7 for a complete \r\ndescription of the SOF declaration. An SOF composed of only one physical file \r\nwhich already exists would be declared as follows: \r\n\r\n   SOF(1) = SOF1,200,OLD (CDC example)\r\n\r\nA new SOF composed of three physical files could be declared as follows on the \r\nfirst execution with this particular SOF logical file: \r\n\r\n   SOF(1) = SOF1,200,NEW\r\n   SOF(2) = SOF2,200\r\n   SOF(3) = SOF3,400\r\n\r\nThe parameter \"NEW\" is never used again on any subsequent execution with this \r\nSOF. If it were used, all data on that SOF logical file would be lost. For \r\nexample, to add a new physical file on a subsequent execution, simply add its \r\ndeclaration, that is, SOF(4) = SOF4,600. Again, do not declare this as a \"NEW\" \r\nfile or the whole logical SOF file will be re-initialized and all existing \r\ndata will be lost. (Refer to the SOF command in Section 2.7 for machine \r\ndependent restrictions.) \r\n\r\n   All data stored on the SOF is accessed via the substructure name. For each \r\nsubstructure, various types of SOF data may be stored. These types of data are \r\ncalled items and are accessed via their item names. Thus, the substructure \r\nname and item name are all that is required to access any block of data on the \r\nSOF. The items which can be stored for any substructure are described in Table \r\n1.10-19. The program automatically keeps track of the data, stores the data as \r\nit is created, and retrieves these data when required. Your only \r\nresponsibility is to maintain the file. It must be accessible by the system \r\nwhen needed. You must remove items generated from data containing input errors \r\nand/or if that data is no longer needed for subsequent analyses. Also, data \r\nmay be selectively stored on a backup tape for later retrieval, thus releasing \r\nneeded space for subsequent operations. \r\n\r\n1.10.2.5  The Case Control Deck for Automated Substructure Analyses\r\n\r\n   The Case Control Deck for substructuring analysis controls loading \r\nconditions, constraint set selection, output requests, and method of analysis \r\njust as in any non-substructuring analysis. However, in a substructuring \r\nanalysis, there are very important relationships among the Case Control Decks \r\nto be input for each of the three phases of substructuring. Compatibility \r\namong the substructuring phases must be maintained for load sets, constraint \r\nsets, and subcase definitions. \r\n\r\n   The following requirements must be satisfied by the Case Control Deck in \r\nPhase 1: \r\n\r\n   1.  Constraint set selection (MPC, SPC) must be above the subcase level. \r\n       That is, only one set of constraints is allowed in Phase 1 for all \r\n       loading conditions. \r\n\r\n   2.  One subcase must be defined for each loading condition which is to be \r\n       saved on the SOF. The loading condition may consist of any combination \r\n       of external static loads, thermal loads, element deformation loads, or \r\n       enforced displacements. Loading conditions which are not saved on the \r\n       SOF in Phase 1 cannot be used in any solution in Phase 2. \r\n\r\n   The Phase 2 Case Control Deck is exactly like the Case Control used in a \r\nnon-substructuring analysis. Only the TITLE and BEGIN BULK cards are needed \r\nexcept when plots are requested or when there is a SOLVE command in the \r\nSubstructure Control Deck. In this latter case, the subcase definitions, load \r\nand constraint set selections, etc. are used in the usual fashion to control \r\nthe solution process. \r\n\r\n   Output requests in Case Control are honored only if there is a PRINT \r\nsubcommand under the RECOVER command in the Substructure Control Deck. If a \r\nRECOVER command with a PRINT subcommand is used, the Case Control should be \r\nidentical (except for output requests) to that used to obtain the solution \r\nbeing printed. \r\n\r\n   The following requirements must be satisfied by the Case Control Deck in \r\nPhase 3: \r\n\r\n   1.  Constraint sets (MPC, SPC) must be identical to those used in Phase 1 \r\n       for this substructure. \r\n\r\n   2.  The subcase definition for load set IDs must be identical to those used \r\n       in Phase 1 for this substructure including those for appended loads, if \r\n       any. All load definitions must appear in the order generated. \r\n\r\n   3.  The subcase definition for the Phase 3 output requests for solution \r\n       vectors generated in Phase 2 must be merged with the above subcase \r\n       definition for load set IDs. Note that the OLOAD output requested in \r\n       Phase 3 will correspond to the load factors defined during Phase 2 \r\n       solution, not those defined by Phase 3 Case Control. \r\n\r\n   The number of Phase 3 subcases required is the maximum of those defined in \r\neither Phase 1 or Phase 2. All output requests will correspond to the Phase 2 \r\nsubcase sequence, starting with the first subcase defined in Phase 3. It is \r\nessential to assign the same thermal and element deformation loadings to the \r\nsame subcases in both Phase 1 and Phase 2 in order to provide the correct load \r\ncorrection data to the Phase 3 output processing of element forces and \r\nstresses. \r\n\r\n1.10.2.6  User Aids for Automated Substructure Analyses\r\n\r\n   The following suggestions, recommendations, and cautions should be \r\nconsidered when using automated multi-stage substructuring. The automated \r\nsubstructuring capability offers you flexibility in the performance of an \r\nanalysis. To take advantage of this capability, it is recommended that the new \r\nuser carefully review both the Theoretical and User's Manual sections on \r\nsubstructuring and execute the demonstration problems which are documented in \r\nthe Demonstration Problem Manual. \r\n\r\n   Simulation Analyses - You are advised to simulate large structural model \r\nanalyses with simplified models using the substructuring system. Using this \r\ntechnique, all deck structures, including operational commands and control of \r\nthe SOF, may be tested using small matrices at low cost. In addition, any \r\nspecial features such as user DMAP operations may be tested at this time. \r\n\r\n   Reduction - Generally, the most economical analyses may be performed using \r\nrelatively small basic substructures or by performing significant reductions \r\nin Phase 1 (using OMIT or ASET bulk data cards). When using Guyan reduction, \r\neither reduce most degrees of freedom (many more than half) or very few \r\ndegrees of freedom (many less than half) if possible. Note that the resulting \r\nmatrices are usually dense and, hence, may take up more space on the SOF than \r\nthe original matrices. \r\n\r\n   When using modal reduction use the FIXED set to help approximate the \r\nexpected solution mode shapes. Also, remember that when inertia relief shapes \r\nare requested, six shapes are created. However, if the problem is not fully \r\nthree dimensional, some of these shapes may be null, and the resulting \r\nsingularities must be accounted for in subsequent operations. Note that \r\nflexible mode shapes which introduce singularities, such as rigid body shapes \r\nat zero frequency, are automatically excluded from assignment to the reduced \r\nsubstructure. The rigid body shapes are not needed because the boundary \r\npoints, by definition, must provide the rigid body description of the \r\nstructure. \r\n\r\n   Load Append - In the event that additional new loading conditions are \r\nrequired, the LODAPP (Load Append) feature may be used. This feature, \r\ndescribed in Section 2.7, allows you to avoid performing redundant Phase 2 \r\ncomputations. \r\n\r\n   Singularities - Selective grid point degrees of freedom are often singular \r\nin stiffness (such as rotations about a vector normal to a plate) and may be \r\nconstrained in Phase 1. However, if these grid points are later transformed to \r\na new output coordinate system during a COMBINE operation, the singularity may \r\nbe re-introduced to the problem. NASTRAN substructuring transforms grid point \r\ndegrees of freedom in groups of three translations and three rotations. Thus, \r\nif one or more translational and/or rotational degrees of freedom exist for a \r\ngrid point and a general transformation (not 90, 180, or 270 degrees) is \r\napplied, 3 translational and/or rotational degrees of freedom will exist for \r\nthe resulting structure for that grid point. However, the stiffness matrix \r\nwill be singular, and this must be considered in subsequent operations. For \r\nexample, in future reduction operations some of these degrees of freedom must \r\nbe kept in the boundary set so that the interior point stiffness matrix is \r\nnon-singular. The extraneous singularities are finally removed at the SOLVE \r\noperation using SPCS or MPCS cards. \r\n\r\n   User Modes - You may define a substructure in terms of modal data obtained \r\nfrom another source, such as test data for example. To use this capability you \r\ncreate a Phase 1 job with an MREDUCE command as shown below. \r\n\r\n   SUBSTRUCTURE PHASE1\r\n   (SOF control cards)\r\n   NAME = name\r\n   MREDUCE name\r\n   NAME = r-name\r\n   USERMODES = j\r\n    :\r\n    :\r\n\r\nTwo options are allowed, j = 1 or 2. If j = 1, a structural model is defined \r\nas usual with bulk data cards. However, the modal data, that is, the \r\neigenvalue data and mode shape data, are defined by using direct input tables \r\nand matrices in the bulk data deck. Table LAMAR must be input using DTI cards \r\nusing the format specified for the LAMA data block described in the \r\nProgrammer's Manual. Only the modal mass and frequency (HZ) need be defined in \r\nLAMAR. The mode shapes must be input using DMI cards and the matrix name PHIS. \r\nThe PHIS matrix must be the NASTRAN F-set size, that is, the fixed degrees of \r\nfreedom must be described with null rows. \r\n\r\n   If j = 2, the model is completely defined with matrix data. As is done for \r\nj = 1, a LAMAR table and PHIS matrix must be input. In addition, a matrix \r\nnamed QSM, which contains the modal reaction forces for degrees of freedom \r\nfixed in mode extraction, is input using DMI cards. Matrix QSM has one row for \r\nevery degree of freedom (as does PHIS) and one column for every mode. Null row \r\nentries exist for degrees of freedom not fixed in mode extraction. Note that \r\nthe number of modes must exceed the number of degrees of freedom for this \r\noption (see Section 4.7.4 of the Theoretical Manual). For the j = 2 option, \r\nthe bulk data deck must include GRID cards to define the degrees of freedom \r\nrepresented by the rows of PHIS and QSM. In addition, a dummy element should \r\nbe included in the data deck so that NASTRAN parameter values are properly \r\nset. You may also input boundary mass and stiffness matrices. These data may \r\nbe defined using CONMi, CELASi, and GENEL cards, in which case dummy elements \r\nare not required, or may be input using DMI or DMIG cards. For the latter \r\ncase, you must insert the correct Executive Control Deck DMAP ALTERs to \r\nequivalence the input mass and stiffness data to MGG and KGG respectively. \r\n\r\n   Boundary set definitions are required using BDYC, BDYS, and BDYS1 cards for \r\nboth user mode options. Note that all degrees of freedom defined for the j = 2 \r\noptions must be specified as boundary degrees of freedom. \r\n\r\n   Old Modes and Old Boundaries - The OLDMODES and OLDBOUND subcommands to the \r\nMREDUCE command allow you to modify the new, modal coordinate substructure \r\nwithout performing all new calculations. \r\n\r\n   The OLDMODES subcommand requests that the mode shapes and frequencies \r\ncomputed in a previous MREDUCE be reused to define the modified structure. \r\nThis is possible because all modes computed are saved on the SOF even if they \r\nare not currently used to describe the substructure. You may request the \r\npreviously used set of modes or a new subset of the previously calculated \r\nmodes by your use of the NMAX or RANGE subcommands. Use of OLDMODES alone \r\n(without OLDBOUND) implies that a new boundary set is to be defined for the \r\nreduced substructure. Use of this subcommand requires the additional \r\nsubcommands BOUNDARY and NMAX or RANGE. \r\n\r\n   The OLDBOUND subcommand requests that the boundary set definition not \r\nchange for the modification to the substructure. For this case, a new set of \r\nmodal data will be computed. Use of this subcommand requires the additional \r\nsubcommands METHOD, NMAX or RANGE, and optionally FIXED, RNAME, and RGRID. \r\n\r\n   The use of both OLDMODES and OLDBOUND implies only a change in the number \r\nof modes used from the previously computed set of modes. The use of both \r\ncommands requires only a new NMAX or RANGE card as additional subcommands. \r\n\r\n   When using these subcommands you must EDIT conflicting data from the SOF. \r\nRefer to the descriptions of MREDUCE and CREDUCE in Section 2.7 for details. \r\nAlso note that both OLDMODES and OLDBOUND are subcommands for MREDUCE, but \r\nonly OLDMODES is allowed for CREDUCE. The equivalent operation of OLDBOUND for \r\nCREDUCE requires complete redefinition of the reduced substructure. \r\n\r\n   Solution Items - It should be remembered that due to the data base \r\nprotection features, at no time are there any SOF items destroyed by NASTRAN \r\nwithout a specific user command in the Substructure Control Deck. In addition, \r\nNASTRAN does not allow more than one substructure item (see Table 1.10-19) to \r\nexist for each substructure at any one time. As a result, some operations such \r\nas a repeated SOLVE might require you to manually edit out previously \r\ngenerated solution data items or any recovered solution data items before the \r\noperation could be repeated. That is, SOLN and UVEC items (the load factor or \r\neigenvalue data tables and displacement vectors respectively) created in an \r\nearlier SOLVE operation should be deleted if a new solution with new loads or \r\nfrequency range is desired for the same substructure. These same items must \r\nalso be edited out from each lower level substructure for which the new \r\nsolution data will be recovered. SOLN and UVEC items are also created by \r\nMRECOVER and must be deleted prior to a SOLVE and RECOVER for the same \r\nstructure. \r\n\r\n   By using the EQUIVALENCE operation to create an identical structure, a new \r\nsolution may be obtained for the same structure without deleting the older \r\nsolution data items, as required in the example above. \r\n\r\n   Structural Design Considerations - Substructures which may change due to \r\ndesign iterations should be combined with other structures as late in the \r\nsequence of COMBINE operations as possible. This will minimize the cost of \r\ncreating a new solution structure. Also, if the design iteration changes are \r\nminor and their impact on other substructures in the model can be neglected, \r\nthen RECOVER operations need be performed only from the lowest level of \r\nsubstructure affected by the changes. Frequently, these design changes can be \r\nevaluated using only the Phase 3 recovery calculations. Of course, care must \r\nbe taken to maintain compatibility with the degree of freedom list defining \r\nthe solution displacement vector. That is, the boundary grid points and \r\nconnections should not be changed. \r\n=PAGE=\r\nTable 1.10-16. Definitions of Substructure Terminology\r\n\r\nBasic Substructure      - A structure formulated from finite elements in Phase\r\n                          1.\r\n\r\nBoundary Set            - Set of degrees of freedom to be retained in a reduce\r\n                          operation.\r\n\r\nCombine Operation       - Merge two or more structures by connecting related\r\n                          degrees of freedom. The matrix elements for connected\r\n                          degrees of freedom are added to produce the combined\r\n                          structure matrices, and the substructure load vectors\r\n                          are processed and stored for subsequent combination\r\n                          at solution time.\r\n\r\nComponent Substructure  - Any basic or pseudostructure comprising a part of an\r\n                          assembled substructure.\r\n\r\nConnection Set          - Set of grid points and their component degrees of\r\n                          freedom to be connected in adjoining structures.\r\n\r\nEquivalence Operation   - The creation of a secondary substructure equivalent to\r\n                          a primary substructure. Also creates image\r\n                          substructures back to the basic substructure level.\r\n\r\nImage Substructure      - A substructure equivalent to an existing component\r\n                          substructure. May have different applied loads and/or\r\n                          solution vectors but has identical stiffness and mass\r\n                          matrices. Image substructures are automatically\r\n                          created as a result of an equivalence operation.\r\n\r\nPhase (1, 2, or 3)      - Basic steps required for multi-stage substructure\r\n                          processing with NASTRAN - creation, combination,\r\n                          reduction, solution and recovery, and detail data\r\n                          recovery.\r\n\r\nPrimary Substructure    - Any basic substructure or any substructure resulting\r\n                          from a combine or reduce operation.\r\n\r\nPseudostructure         - A combination of component substructures.\r\n\r\nReduce Operation        - Structural matrix and load vector Guyan or modal\r\n                          reduction process to obtain smaller matrices.\r\n\r\nSecondary Substructure  - A substructure created from an equivalence operation.\r\n\r\nSOF                     - Substructure Operating File. Contains all data\r\n                          necessary to define a structure at any stage,\r\n                          including solutions.\r\n\r\nSolution Structure      - The resulting substructure to be used in the solve\r\n                          operation.\r\n\r\nSolve Operation         - To obtain solutions using the present structural\r\n                          matrices and user-defined input data.\r\n=PAGE=\r\nTable 1.10-17. Summary of Substructure Commands\r\n\r\n                       # Mandatory Control Cards     * Required Subcommand\r\n\r\n                            Phase and Mode Control\r\n\r\n# SUBSTRUCTURE    - Defines execution phase (1, 2, or 3)\r\n\r\n    NAME*         - Specifies Phase 1 substructure name\r\n\r\n    SAVEPLOT      - Requests plot data be saved in Phase 1\r\n\r\n  OPTIONS         - Defines matrix options (K, B, K4, M, P, or PA)\r\n\r\n  RUN             - Limits mode of execution (DRY, GO, DRYGO, STEP)\r\n\r\n# ENDSUBS         - Terminates Substructure Control Deck\r\n\r\n                                 SOF Controls\r\n\r\n# SOF             - Assigns physical file for storage of the SOF\r\n\r\n# PASSWORD        - Protects and ensures access to correct file\r\n\r\n  SOFOUT or SOFIN - Copies SOF data to or from an external file\r\n\r\n    POSITION      - Specifies initial position of input file\r\n    NAMES         - Specifies substructure name used for input\r\n    ITEMS         - Specifies data items to be copied in or out\r\n\r\n  SOFPRINT        - Prints selected items from the SOF\r\n\r\n  DUMP            - Dumps entire SOF to a backup file\r\n\r\n  RESTORE         - Restores entire SOF from a previous DUMP operation\r\n\r\n  CHECK           - Checks contents of external file created by SOFOUT\r\n\r\n  DELETE          - Deletes out selected groups of items from the SOF\r\n\r\n  EDIT            - Edits out selected groups of items from the SOF\r\n\r\n  DESTROY         - Destroys all data for a named substructure and all\r\n                    the substructures of which it is a component\r\n\r\n                            Substructure Operations\r\n\r\n  COMBINE         - Combines sets of substructures\r\n\r\n    NAME*         - Names the resulting substructure\r\n    TOLERANCE*    - Limits distance between automatically connected grids\r\n    CONNECT       - Defines sets for manually connected grids and releases\r\n    OUTPUT        - Specifies optional output results\r\n    COMPONENT     - Identifies component substructure for special processing\r\n    TRANSFORM     - Defines transformations for named component substructures\r\n    SYMTRANSFORM  - Specifies symmetry transformation\r\n    SEARCH        - Limits search for automatic connects\r\n\r\n  EQUIV           - Creates a new equivalent substructure\r\n\r\n    PREFIX*       - Prefix to rename equivalenced lower level substructures\r\n\r\n  REDUCE          - Reduces substructure matrices\r\n\r\n    NAME*         - Names the resulting substructure\r\n    BOUNDARY*     - Defines set of retained degrees of freedom\r\n    RSAVE         - Indicates the decomposition product of the interior point\r\n                    stiffness matrix is to be saved on the SOF\r\n    OUTPUT        - Specifies optional output requests\r\n=PAGE=\r\nTable 1.10-17. Summary of Substructure Commands (continued)\r\n\r\n  MREDUCE         - Reduces substructure matrices using a normal modes\r\n                    transformation\r\n\r\n    NAME*         - Names the resulting substructure\r\n    BOUNDARY*     - Defines set of retained degrees of freedom\r\n    FIXED         - Defines set of constrained degrees of freedom for modes\r\n                    calculation\r\n    RNAME         - Specifies basic substructure to define reference point\r\n                    for inertia relief shapes\r\n    RGRID         - Specifies grid point in the basic substructure to define\r\n                    reference point for inertia relief shapes. Defaults to\r\n                    origin of basic substructure coordinate system.\r\n    METHOD        - Identifies EIGR Bulk Data card\r\n    RANGE         - Identifies frequency range for retained modal coordinates\r\n    NMAX          - Identifies number of lowest frequency modes for retained\r\n                    modal coordinates\r\n    OLDMODES      - Flag to identify rerunning problem with previously computed\r\n                    modal data.\r\n    OLDBOUND      - Flag to identify rerunning problem with previously defined\r\n                    boundary set\r\n    USERMODES     - Flag to indicate modal data have been input on bulk data.\r\n    OUTPUT        - Specifies optional output requests.\r\n    RSAVE         - Indicates the decomposition product of the interior point\r\n                    stiffness matrix is to be stored on the SOF.\r\n\r\n                            Substructure Operations\r\n\r\n  CREDUCE          - Reduces substructure matrices using a complex modes\r\n                     transformation.\r\n\r\n    NAME*          - Names the resulting substructure.\r\n    BOUNDARY*      - Defines set of retained degrees of freedom.\r\n    FIXED          - Defines set of constrained degrees of freedom for modes\r\n                     calculation.\r\n    METHOD         - Identifies EIGC Bulk Data card.\r\n    RANGE          - Identifies frequency range of imaginary part of the root\r\n                     for retained modal coordinates.\r\n    NMAX           - Identifies number of lowest frequency modes for retained\r\n                     modal coordinates.\r\n    OLDMODES       - Flag to identify rerunning problem with previously computed\r\n                     modal data.\r\n    GPARAM         - Specifies structural damping parameter.\r\n    OUTPUT         - Specifies optional output requests.\r\n    RSAVE          - Indicates the decomposition product of the interior point\r\n                     stiffness matrix Is to be stored on the SOF.\r\n\r\n  MRECOVER         - Recovers mode shape data from an MREDUCE or CREDUCE\r\n                     operation.\r\n\r\n    SAVE           - Stores modal data on SOF.\r\n    PRINT          - Stores modal data and prints data requested.\r\n\r\n  SOLVE            - Initiates substructure solution (statics, normal modes,\r\n                     frequency response, or transient response).\r\n\r\n  RECOVER          - Recovers Phase 2 solution data.\r\n\r\n    SAVE           - Stores solution data on SOF.\r\n    PRINT          - Stores solution and prints data requested.\r\n\r\n  BRECOVER         - Basic substructure data recovery, Phase 3.\r\n\r\n  PLOT             - Initiates substructure undeformed plots.\r\n=PAGE=\r\nTable 1.10-18. Substructure Bulk Data Card Summary\r\n\r\n     Bulk Data Used By Substructure Commands REDUCE, MREDUCE, and CREDUCE\r\n\r\n  BDYC      - Combination of substructure boundary sets of retained degrees of\r\n              freedom or fixed degrees of freedom for modes calculation.\r\n\r\n  BDYS      - Boundary set definition.\r\n\r\n  BDYS1     - Alternate boundary set definition.\r\n\r\n                Bulk Data Used By Substructure Command COMBINE\r\n\r\n  CONCT     - Specifies grid points and degrees of freedom for manually\r\n              specified connectivities - will be overridden by RELES data.\r\n\r\n  CONCT1    - Alternate specification of connectivities.\r\n\r\n  RELES     - Specifies grid point degrees of freedom to be disconnected -\r\n              overrides CONCT and automatic connectivities.\r\n\r\n  GTRAN     - Redefines the output coordinate system grid point displacement\r\n              sets.\r\n\r\n  TRANS     - Specifies coordinate systems for substructure and grid point\r\n              transformations.\r\n\r\n                 Bulk Data Used by Substructure Command SOLVE\r\n\r\n  LOADC     - Defines loading conditions for static analysis.\r\n\r\n  MPCS      - Specifies multipoint constraints.\r\n\r\n  SPCS      - Specifies single-point constraints.\r\n\r\n  SPCS1     - Alternate specification of single-point constraints.\r\n\r\n  SPCSD     - Specifies enforced displacements for single-point constraints.\r\n\r\n  DAREAS    - Specifies dynamic loadings.\r\n\r\n  DELAYS    - Specifies time delays for dynamic loads.\r\n\r\n  DPHASES   - Specifies phase lead terms for dynamic loads.\r\n\r\n  TICS      - Specifies transient initial conditions.\r\n\r\n=PAGE=\r\nTable 1.10-19. Substructure Item Descriptions\r\n\r\n EQSS     External grid point and internal point equivalence data.\r\n\r\n BGSS     Basic grid point coordinates.\r\n\r\n CSTM     Local coordinate system transformation matrices.\r\n\r\n LODS     Load set identification numbers.\r\n\r\n LOAP     Load set identification numbers for appended load vectors.\r\n\r\n PLTS     Plot sets and other data required for Phase 2 plotting.\r\n\r\n KMTX     Stiffness matrix.\r\n\r\n LMTX     Decomposition product of REDUCE operation.\r\n\r\n MMTX     Mass matrix.\r\n\r\n PAPP     Appended load vectors.\r\n\r\n PVEC     Load vectors.\r\n\r\n POAP     Appended load vectors on omitted points.\r\n\r\n POVE     Load vectors on points omitted during matrix reduction.\r\n\r\n UPRT     Partitioning vector used in matrix reduction.\r\n\r\n HORG     H or G transformation matrix.\r\n\r\n UVEC     Displacement vectors or eigenvectors.\r\n\r\n QVEC     Reaction force vectors.\r\n\r\n SOLN     Load factor data or eigenvalues used in a solution.\r\n\r\n LAMS     Eigenvalue data from modal reduce operation.\r\n\r\n PHIS     Eigenvector matrix.\r\n\r\n GIMS     G transformation matrix for interior points from a modal reduction.\r\n\r\n K4MX     Structural damping matrix.\r\n\r\n BMTX     Viscous damping matrix.\r\n\r\n PHIL     Left side eigenvector matrix from unsymmetric CREDUCE operation.\r\n\r\n HLFT     Left side H transformation matrix from unsymmetric CREDUCE operation.\r\n\r\n=PAGE=\r\n     Job Control Deck\r\n       :\r\n       :\r\n\r\n     NASTRAN              \r\n                          \r\n     ID                   \r\n                          \r\n     APP DISP,SUBS        \r\n                          \r\n     RESTART               Executive Control Deck\r\n       :                  \r\n       :                  \r\n     (optional)           \r\n                          \r\n     CEND                 \r\n\r\n     SUBSTRUCTURE         \r\n                          \r\n     SOF                  \r\n       :                   Substructure Control Deck\r\n       :                  \r\n                          \r\n     ENDSUBS              \r\n\r\n     TITLE =              \r\n       :                   Case Control Deck\r\n       :                  \r\n\r\n     BEGIN BULK           \r\n       :                  \r\n       :                   Bulk Data Deck\r\n                          \r\n     ENDDATA              \r\n\r\n\r\n\r\n                 Figure 1.10-2. Substructuring input data deck\r\n=PAGE=\r\n        Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ Ŀ\r\nPhase 1  A    B    xa   xb   E    ya   yb   yxa  yxb  ye \r\nPhase 2          \r\nCOMBINE                                 \r\n                EQUIV                                              \r\n          ĿĿ              Ŀ        Ŀ       \r\n           C   PREFIX  D                 yc          yd        \r\n           = X                                 \r\nCOMBINE               \r\n                                                            \r\n                        Ŀ                             Ŀ\r\n                         F                                yf        Phase 3\r\n                                                               \r\n                                                                         \r\nREDUCE                   ĿĿ          \r\n                         F      EQUIV PREFIX = Y          H            \r\n                                                               \r\nCOMBINE                                 \r\n                                                                          \r\n                                         Ŀ                            \r\n                                          I                              \r\n                                                                     \r\nSOLVE  RECOVER\r\n\r\n\r\nĿ\r\n A    Primary Substructures\r\n\r\nĿ\r\n xa   Image Substructures\r\n\r\n\r\n\r\n\r\n             Figure 1.10-3. Example of multi-stage substructuring\r\n=PAGE=\r\nSUBSTRUCTURE OPERATING FILE TABLE OF CONTENTS\r\n\r\n\r\n                               E B C L P K M P P U H U Q S P P L L G P L K B P H\r\n                               Q G S O L M M V O P O V V O A O O M I H A 4 M H L\r\n                               S S T D T T T E V R R E E L P A A T M I M M T I F\r\nSUBSTRUCTURE                   S S M S S X X C E T G C C N P P P X S S S X X L T\r\nNO.  NAME  TYPE SS PS LL CS HL--------------------------------------------------\r\n 1  VANE     B   5  0  0  3  6 2 2   2   2 2 2     2 2\r\n 2  RING     B   0  0  0  1  6 2 2   2   2 2 2     2 2\r\n 3  VANER    B   0  1  0  4  6 2 2   2   2 2 2     2\r\n 4  VANEB    B   3  1  0  5  6 2 2   2   2 2 2     2\r\n 5  VANEL    B   4  1  0  2  6 2 2   2   2 2 2     2\r\n 6  WINDMILL C   0  0  2  0  0 2 2   2 2 2 2 2       2 2\r\n\r\n SIZE OF ITEM IS GIVEN IN POWERS OF 10  (0 INDICATES DATA IS STORED IN PRIMARY)\r\n\r\n\r\n\r\n\r\n\r\n         Ŀ   Ŀ   Ŀ   Ŀ   Ŀ\r\n           RING       VANE      VANER      VANEB      VANEL  \r\n                     \r\n             \r\n                                       \r\n                                   Ŀ\r\n                                   WINDMILL\r\n                                   \r\n\r\n\r\n\r\n    Figure 1.10-4. Sample of substructure operating file table of contents\r\n=PAGE=\r\n                                 Ŀ    \r\n           NASTRAN Data Deck Ĵ          Ĵ Printout and Plots\r\n                                               \r\n                                   PHASE 1  \r\n                                               \r\n         OPTP from Prior Run Ĵ          Ĵ NPTP and SOF for Input to\r\n                                       Phase 2 Run on Other\r\n                                                    Computer\r\n                                       \r\n                                      SOF Substructure Operating File\r\n\r\n\r\n\r\n                                 Ŀ    \r\n           NASTRAN Data Deck Ĵ          Ĵ Printout and Plots\r\n                                               \r\n                                   PHASE 2  \r\n                                               \r\n  SOFs from Prior Phase 1 or Ĵ          Ĵ SOF for Input to Other\r\n   Phase 2 Runs on Other               Computer Phase 2 or Phase\r\n   Computers                                        3 Runs\r\n                                       \r\n                                      SOF Substructure Operating File\r\n\r\n\r\n\r\n\r\n                                 Ŀ\r\n           NASTRAN Data Deck Ĵ          \r\n                                           \r\n    SOF from Prior Phase 2 Ĵ PHASE 3  \r\n    Run on Other Computer                      \r\n           OPTP from Phase 1 Ĵ          Ĵ NPTP\r\n                                     \r\n                                         \r\n                                         \r\n                                        SOF Substructure Operating File\r\n                                     \r\n                                     Printout of\r\n                                     Final Results\r\n                                     and Plots\r\n\r\n\r\nNote: If all processing is performed on the same computer, SOF tape output is\r\n      not required. All communication may be carried out using the same SOF\r\n      disk/drum throughout.\r\n\r\n\r\n Figure 1.10-5. Data file organization for NASTRAN multi-stage substructuring\r\n\r\n=PAGE=\r\n1.11  AEROELASTIC MODELING\r\n\r\n1.11.1  Introduction\r\n\r\n   The NASTRAN aeroelastic capability is intended for the study of stability\r\nand response of aeroelastic systems. It is compatible with the general\r\nstructural capability, but it is not designed for use with other special\r\ncapabilities such as conical shell elements, hydroelastic option, and acoustic\r\ncavity analysis. The structural part of the problem will be modeled as\r\ndescribed in other sections of this manual. This section deals with the\r\naerodynamic data and the connection between structural and aerodynamic\r\nelements.\r\n\r\n   Section 1.11.2 deals with the aerodynamic data. The selection of a good\r\naerodynamic model will depend upon a knowledge of the theory (see Section 17.5\r\nof the Theoretical Manual). Several choices of aerodynamic theory are\r\navailable. All assume small amplitude sinusoidal motions. Transient\r\naerodynamic forces are obtained by Fourier methods.\r\n\r\n   Section 1.11.3 deals with the interconnection between aerodynamic and\r\nstructural degrees of freedom. The interpolation methods include both linear\r\nand surface splines. These methods are superior to high order polynomials\r\nsince they tend to give smooth interpolation. They are based upon the theory\r\nof uniform beams and plates of infinite extent (see Section 17.3 of the\r\nTheoretical Manual).\r\n\r\n   Section 1.11.4 describes modal flutter analysis by the three available\r\nmethods.\r\n\r\n   Section 1.11.5 gives instructions for modal aerodynamic response analysis.\r\nThis includes frequency response, transient response, and random analysis. The\r\nexcitation may consist of applied forces or gusts (Doublet-Lattice theory\r\nonly).\r\n\r\n1.11.2  Aerodynamic Modeling\r\n\r\n   Aerodynamic elements define the interaction between the structure and an\r\nairflow. Since the elements usually occur in regular arrays, the connection\r\ncards are designed to specify arrays. The grid points associated with the\r\nelements in an array are generated within the program. Spline methods are used\r\nto interpolate for aerodynamic grid point deflection in terms of structural\r\npoints.\r\n\r\n   For every aerodynamic problem, basic parameters are specified on the AERO\r\nbulk data card. A rectangular aerodynamic coordinate system must be\r\nidentified. The flow is in the positive x-direction in this system. The use of\r\nsymmetry (or antisymmetry) is recommended to analyze symmetric structures, to\r\nsimulate ground effects, or to simulate wind tunnel walls. Any consistent set\r\nof units can be used for the dimensional quantities.\r\n\r\n   The types of elements available are shown in Table 1.11-1. Every CAEROi\r\nelement must reference a PAERO1 data card, which is used for additional\r\nparameters. Lists of real numbers are sometimes required, which are given on\r\nAEFACT lists. These lists may include division points (for unequal box sizes)\r\nand parameter values.\r\n\r\n1.11.2.1  Doublet-Lattice Panels\r\n\r\n   The lifting surfaces are idealized as planes parallel to the flow. The\r\nconfiguration is divided into plane panels (macro-elements), each of constant\r\ndihedral. These panels are further subdivided into \"boxes\" (see Figure\r\n1.11-1), which are trapezoids with sides parallel to the airflow direction. If\r\nan airfoil lies in (or nearly in) the wake of another, then the spanwise\r\ndivisions should lie along the same streamline. The boxes should be arranged\r\nso that any fold or hinge lines lie along the box boundaries. The aspect ratio\r\nof the boxes should be roughly unity or less. The chord length of the boxes\r\nshould be less than 0.08 times the velocity divided by the greatest frequency\r\nof interest, but no less than four boxes per chord should be used. Boxes\r\nshould be concentrated near wing edges and hinge lines or any other place\r\nwhere downwash is discontinuous. A further discussion of the choice of models\r\nis found in Reference 1. Aerodynamic panels are assigned to groups. All panels\r\nwithin a group have aerodynamic interaction. The purpose of the groups is to\r\nreduce the time to compute aerodynamic matrices when it is known that\r\naerodynamic interference is unimportant, or to allow the analyst to\r\ninvestigate the effects of aerodynamic interference.\r\n\r\n   Each panel is described by a bulk data CAERO1 card. A property card PAERO1\r\nmay be used to identify associated interference bodies. It is recommended that\r\na body be identified if the panel is less than one body diameter from the\r\nbody. The box divisions along the span are determined either by specifying the\r\nnumber of equal boxes (NSPAN) or the identity (LSPAN) of an AEFACT data card\r\nwhich gives a list of division points in terms of a fraction of the span. A\r\nsimilar arrangement is used in the chord direction. The locations of the two\r\nleading edge points are specified in any coordinate system (CP) defined by you\r\n(including BASIC). The lengths of the sides are specified by you, and they are\r\nin the airstream direction, assuring that the panel is parallel to the flow.\r\nEvery panel must be assigned to some group (IGID). If all panels interact,\r\nthen select IGID = 1 for all panels.\r\n\r\n   There will be many degrees of freedom associated with each aerodynamic\r\npanel. There is an aerodynamic grid point associated with each box within a\r\ngiven panel. These points are located at the center of each box and are\r\nautomatically numbered and sequenced by the program. The lowest aerodynamic\r\ngrid point number for a given panel is assigned the same number specified for\r\nthe panel designation. The grid point numbers increase in increments of 1 (see\r\nCAERO1 data card figure) over all boxes in the panel. You must be aware of\r\nthese internally generated grid points and ensure that their numbers are\r\ndistinct from structural grid points. These aerodynamic points are used for\r\noutput including displacements, plotting, matrix prints, etc. The local\r\ndisplacement coordinate system has component T1 in the flow direction and\r\ncomponent T3 in the direction normal to the panel (the element coordinate\r\nsystem of CAERO1).\r\n\r\n1.11.2.2  Slender and Interference Bodies\r\n\r\n   The bodies are idealized as either \"slender\" or \"interference\" elements.\r\nThe major purpose of the slender body elements is to account for the forces\r\narising from the motion of the body, while the interference elements account\r\nfor the effects of the body upon the panels and other bodies. Bodies are\r\nfurther classified as to the type of motion allowed. In the aerodynamic\r\ncoordinate system, y and z are perpendicular to the flow. In general, bodies\r\nmay move in both the y- and z-directions. Frequently, a body (for example, a\r\nfuselage) lies on a plane of symmetry and only z (or y) motion is allowed.\r\nThus, any model may contain z-bodies, zy-bodies, and y-bodies. One or two\r\nplanes of symmetry or antisymmetry may be specified. Figure 1.11-2 shows an\r\nidealization with bodies and panels. This example case is the one used to\r\nillustrate the Doublet-Lattice program in Ref. 2. It has a body (on the\r\nmidplane), a wing, pylon, and nacelle.\r\n\r\n   The location of a body is specified on a CAERO2 data card. The location of\r\nthe nose and the length in the flow direction are given. The slender body\r\nelements and interference elements are distinct quantities and must be\r\nspecified separately. At least two slender body elements are required for\r\nevery aerodynamic body, while interference elements are optional. The geometry\r\nis given in terms of the element division points, and the width and height of\r\nthe assumed elliptical cross section. The locations of the division points may\r\nbe given in dimensionless units or, if the lengths are equal, only the number\r\nof elements need be specified. The semi-widths of the two types of elements\r\nmay be specified separately and are given in units of length. Usually the\r\nslender body semi-width is taken as zero at the nose and is a function of x,\r\nwhile the interference body semi-width is taken to be constant. The\r\nheight-to-width ratio must be constant for each body.\r\n\r\n   These body elements are primarily intended for use with Doublet-Lattice\r\npanels. The interference elements are only intended for use with panels, while\r\nslender body elements can stand alone. Grid points will be generated only for\r\nthe slender body elements. The first grid point will be assigned the ID of the\r\nbody and other grid points will be incremented by one. You must ensure that\r\nthe IDs of these generated grid points are distinct from all other grid points\r\nin the model.\r\n\r\n   There are some rules about bodies which have been imposed. All z-only\r\nbodies must have lower ID numbers than zy-bodies, which in turn must have\r\nlower ID numbers than y-only bodies. The total number of interference bodies\r\nassociated with a panel is limited to six. You should be cautious about the\r\nuse of associated interference bodies since they tend to increase computing\r\ntime significantly.\r\n\r\n1.11.2.3  Mach Box Theory\r\n\r\n   Mach box aerodynamics may be used to compute unsteady supersonic\r\naerodynamic forces for a flat, isolated wing at supersonic speeds. The surface\r\n(see Figure 1.11-3) may have a leading and/or trailing edge crank (change of\r\nangle). There may be one or two adjacent (to each other) trailing edge control\r\nsurfaces. The \"inboard\" edge (side 1-2 on the connection card) must be a plane\r\nof aerodynamic symmetry or antisymmetry.\r\n\r\n   The geometry of the planform is specified on the CAERO3 data card. Two\r\nleading edge corners (points 1 and 4 of Figure 1.11-3) are located by you,\r\nusing any NASTRAN coordinate system. These, along with the flow direction,\r\ndefine the plane of the wing. Up to ten additional points are permitted to\r\nspecify cranks and controls; these are dimensional quantities using a\r\ncoordinate system in the plane of the wing and with origin at point 1.\r\n\r\n   The aerodynamic grid points for interconnection are in the plane of the\r\nelement. You must specify a list of x,y pairs for the wing. These are located\r\nusing the coordinate system shown in Figure 1.11-3. There must be at least\r\nthree points. Additional lists of at least three points are needed for each\r\ncontrol surface which is used. The T3 component of these aerodynamic grid\r\npoints is normal to the plane of the element. Interpolation for deflections\r\nand slopes at Mach box locations is done by surface spline routines within the\r\nprogram. Thus the control point locations can be held fixed, even when the\r\nMach number is changed. These aerodynamic grid points will be numbered,\r\nstarting with the element ID, and must be distinct from all other grid points.\r\n\r\n   The following restrictions must be satisfied:\r\n\r\n   1. The leading edge and hinge line sweepback angles must be greater than or\r\n      equal to zero.\r\n\r\n   2. All control surface sides must be parallel to the flow, or else the aft\r\n      point of the control surface side must be inboard of the forward point.\r\n\r\n   3. If a leading edge crank is not present, then x5,y5 do not have to be\r\n      input.\r\n\r\n   4. If a trailing edge crank is not present, then x6,y6 do not have to be\r\n      input.\r\n\r\n   5. A trailing edge crank cannot be located on a control surface. It must be\r\n      located inboard, outboard, or exactly at the junction of the two control\r\n      surfaces.\r\n\r\n   6. Points 8, 10, and 12 are used with points 7, 9, and 11 respectively to\r\n      define the control surface edges. They must be distinct from points 7,\r\n      9, and 11, but they do not have to lie on the wing trailing edge. The\r\n      program will calculate new points 8, 10, and 12 for the wing trailing\r\n      edge. However, points 8, 10, or 12 must be located on the trailing edge\r\n      if the trailing edge crank is located at the left corner of control\r\n      surface one (1) or the right corner of control surface two (2) or\r\n      between the two control surfaces. For example, set x8 = x6 and y8 = y6\r\n      if the crank is at the left corner of control surface one.\r\n\r\n   7. When only one control surface is present, it must be control surface one\r\n      (1).\r\n\r\n   8. If control surface two (2) is not present, then x11,y11 and x12,y12 are\r\n      not required as input.\r\n\r\n   9. If no control surfaces are present, then xi,yi (i = 7 through 12) are\r\n      not required as input.\r\n\r\n   10.  No aerodynamic balance for the control surfaces has been included in\r\n        the Mach Box Theory.\r\n\r\n   11.  The number of chordwise boxes used as input (NBOX) to the program\r\n        should be carefully selected. Note that NBOX is the number of\r\n        chordwise divisions from the most forward point to the most aft point\r\n        on the lifting surface, as shown in Figure 1.11-4. If the maximum\r\n        number of allowable boxes (200 on the main surface, 125 on each\r\n        control surface) is exceeded, the program will reduce the number of\r\n        chordwise boxes one at a time until the number of boxes is under the\r\n        allowable limit. Expenditure of excessive computer time may occur\r\n        during this process.\r\n\r\n   12.  The edge 1-2 will be taken as a plane of symmetry unless SYMXZ=-l\r\n        (see AERO data card).\r\n\r\n1.11.2.4  Strip Theory\r\n\r\n   Modified strip theory can be used for unsteady aerodynamic forces on a high\r\naspect ratio lifting surface. Each strip may have two or three degrees of\r\nfreedom. Plunge and pitch are always used, and an aerodynamically balanced\r\ncontrol surface is optional. If a control surface is present, either a sealed\r\nor an open gap may be used.\r\n\r\n   The planform (which may have several strips in one macro-element) is\r\nspecified on a CAERO4 bulk data card. A sample planform is shown in Figure\r\n1.11-5. You supply the two leading edge corner locations and the edge chords\r\nas dimensional quantities. Edge chords are assumed parallel to the flow. All\r\nadditional geometry (box divisions, hinge locations, etc.) is given in\r\ndimensionless units. Several CAERO4 cards may be used if there are several\r\nsurfaces or cranks.\r\n\r\n   A grid point is assigned to each strip, and will be assigned an ID starting\r\nwith the macro-element ID and incrementing by one for each strip. The plunge\r\n(T3) and pitch (R2) degrees of freedom have the conventional definition. When\r\na control surface is present, the R3 degree of freedom has a nonstandard\r\ndefinition, which is the relative control rotation. When interconnecting with\r\nthe structure, the ordinary (surface or linear) splines can be used for T3 and\r\nR2, but a special method (see SPLINE3 data card) is used for the relative\r\ncontrol rotation.\r\n\r\n   The parameters such as lift curve slope or lag function may be varied to\r\naccount for tip effects (three-dimensional flow) and Mach number by AEFACT\r\ndata card selection from PAERO4. The AEFACT data card format used by strip\r\ntheory is shown in the remarks on the PAERO4 data card. You may request a\r\nPrandtl-Glauert (compressibility and sweep) correction to the value of the\r\ncurve slope. The lag function depends upon the local (that is, using the chord\r\nof the strip) reduced frequency. For incompressible flow, it is the\r\nTheordorsen function C(k). An approximate form for this function is given by\r\n\r\n                 b\r\n          N       n\r\n   C(k) =                                                 (1)\r\n         n=0  1-i  /k\r\n                   n\r\n\r\nwhere 0 = 0, may be selected for computing lags. The choice of parameters bn\r\nand n is left to you so that you may select values suitable for your\r\nrequirement. Reference 3 gives values for various Mach numbers and aspect\r\nratios.\r\n\r\n1.11.2.5  Piston Theory\r\n\r\n   Piston theory in NASTRAN is a form of strip theory. The aerodynamic forces\r\nare computed from third order piston theory, which is valid for high Mach\r\nnumbers m >> 1, or sufficiently high reduced frequency m2k2 >> 1. Although the\r\nlatter condition may be met in subsonic flow, the primary application of\r\npiston theory is in supersonic flow.\r\n\r\n   The coefficients of the point pressure function (relating local pressure to\r\nlocal downwash) may be modified to agree with the Van Dyke theory and to\r\naccount for sweepback effects. The resulting strip parameters will depend upon\r\nthe wing thickness distribution and spanwise variation of initial angle of\r\nattack, which must be supplied by you. The point pressure function is given by\r\nCp = -(4/m)[C1 + 2C2 mgx + 3C3m2 (gx2 + 02)] v, where\r\n\r\n   Ŀ\r\n    Coefficient       Van Dyke theory with Sweep              Piston Theory \r\n   Ĵ\r\n        _                 2    2 1/2                                        \r\n        C             m/(m  - s )                                1          \r\n         1                                                                  \r\n   Ĵ\r\n        _               4          2  2    2      2    2 2                  \r\n        C             [m (+1) - 4s (m  - s )]/4(m  - s )     (+1)/4       \r\n         2                                                                  \r\n   Ĵ\r\n        C             (+1)/12                                (+1)/12      \r\n         3                                                                  \r\n   \r\n\r\nand where\r\n\r\n   Cp local pressure coefficient (pressure rise divided by dynamic pressure)\r\n\r\n   9x derivative of airfoil semi-thickness in the flow direction\r\n\r\n   m  Mach number\r\n\r\n   s  sec^, secant of sweepback angle\r\n\r\n   v  unsteady dimensionless downwash\r\n\r\n   o initial angle of attack\r\n\r\n   y  ratio of specific heats = 1.4\r\n\r\n   Geometry specification and interconnection points follow the same rules as\r\nfor strip theory (see Section 1.11.2.4). The additional information about\r\nangle of attack and thickness is given on AEFACT data cards which are\r\nreferenced by the CAERO5 and PAERO5 data cards. The AEFACT data card format\r\nused by piston theory is shown in the remarks on the PAERO5 data card. If\r\nthickness integrals are input on AEFACT data cards, see the thickness integral\r\ndefinitions on the CAERO5 data card.\r\n\r\n1.11.3  The Interconnection Between Structure and Aerodynamic Models\r\n\r\n   The interpolation between the structural and aerodynamic degrees of freedom\r\nis based upon the theory of splines (Figure 1.11-6). High aspect ratio wings,\r\nbodies, or other beamlike structures should use linear splines. Low aspect\r\nratio wings, where the structural grid points are distributed over an area,\r\nshould use surface splines. Several splines can be used to interpolate to the\r\nboxes on a panel or elements on a body; however, each point can refer to only\r\none spline. Any box or body element not referenced by a spline will be \"fixed\"\r\nand have no motion. For any point, especially a control surface degree of\r\nfreedom, a linear relationship (like an MPC) may be specified.\r\n\r\n   For all types of splines, you must specify the structural degrees of\r\nfreedom and the aerodynamic points involved. The structural points, called the\r\ng-set, can be specified by a list or by specifying a volume in space and\r\ndetermining all the grid points in the volume. The degrees of freedom retained\r\nat the grid points include only the normal displacements for surface splines.\r\nFor linear splines, the normal displacement is always used and, by user\r\noption, torsional rotations or slopes may be included. The global\r\ntransformation at structural points is automatically applied for surface and\r\nlinear splines.\r\n\r\n   The SPLINE1 data card defines a surface spline. This can interpolate for\r\nany \"rectangular\" subarray of boxes on a panel. For example, one spline can be\r\nused for the inboard end of a panel and another for the outboard end. The\r\ninterpolated grid points (k-set) are specified by naming the lowest and\r\nhighest aerodynamic grid point numbers in the area to be splined. The two\r\nmethods for specifying the grid points use SET1 and SET2 data cards. A\r\nparameter DZ is used to allow some smoothing of the spline fit. If DZ = 0 (the\r\nusual value), the spline will pass through all deflected grid points. If DZ >\r\n0, then the spline (a plate) is attached to the grid deflections via springs,\r\nwhich produce a smoother interpolation that does not necessarily pass exactly\r\nthrough any of the points. The flexibility of the springs is proportional to\r\nDZ.\r\n\r\n   The SPLINE2 data card defines a linear spline. As can be seen from Figure\r\n1.11-6, this is really a generalization of a simple spline to allow for\r\ninterpolation over an area. It is similar to the method often used by\r\naeronautical engineers who assume that an airfoil chord is rigid. The portion\r\nof a panel to be interpolated and the set of structural points are determined\r\nin the same manner as with SPLINE1. A NASTRAN coordinate system must be\r\nsupplied to determine the axis of the spline. Since the spline has torsion as\r\nwell as bending flexibility, you may specify the ratio of flexibilities; the\r\ndefault value for this ratio is 1.0. The attachment flexibilities, Dz, Dx,\r\nand Dy, allow for smoothing, but usually all values are taken to be zero. An\r\nexception would occur if the structural model does not have slopes defined, in\r\nwhich case the flexibility DTHX must be infinite; the convention DTHX = -1.0\r\nis used in this case. When used with bodies, there is no torsion and the\r\nspline axis is along the body.\r\n\r\n   There are certain cases with splines where attachment flexibility is either\r\nrequired or should not be used. The following special cases should be noted.\r\n\r\n   1. Two or more grid points, when projected onto the plane of the element\r\n      (or the axis of a body) may have the same location. To avoid a singular\r\n      interpolation matrix, a positive attachment flexibility must be used.\r\n\r\n   2. With linear splines, three deflections with the same spline y-coordinate\r\n      would overdetermine the interpolated deflections since the perpendicular\r\n      arms are rigid. A positive DZ is needed to make the interpolation matrix\r\n      nonsingular.\r\n\r\n   3. With linear splines, two slopes (or twists) at the same y-coordinate\r\n      would lead to a singular interpolation matrix. Use DTHX > 0 (or DTHY >\r\n      0) to allow interpolation.\r\n\r\n   4. For some modeling techniques, that is, those which use only displacement\r\n      degrees of freedom, the rotations of the structural model are\r\n      constrained to zero to avoid matrix singularities. If a linear spline is\r\n      used, the rotational constraints should not be enforced to these zero\r\n      values. When used for panels, negative values of DTHX will disconnect\r\n      the slope, and negative values of DTHY will disconnect the twist. For\r\n      bodies, DTHY constrains the slopes, since there is no twist degree of\r\n      freedom for body interpolation. For a linear spline, if all of the\r\n      structural points lie on a straight line, the use of infinite (negative\r\n      DTHX or DTHY) rotational flexibility results in a kinematically unstable\r\n      idealization.\r\n\r\n   For linear splines used with wings, the parameter DTOR should be selected\r\nas a representative value of EI/GJ.\r\n\r\n1.11.4  Modal Flutter Analysis\r\n\r\n   The purpose of modal flutter analysis is to study the stability of an\r\naeroelastic system with a minimum number of degrees of freedom. A prerequisite\r\nto modal flutter analysis is the calculation of an aerodynamic matrix with a\r\ntransformation to modal coordinates. This operation is often very costly and\r\ncare should be taken to avoid unnecessary computations. One method is to\r\ncompute the modal aerodynamic matrix at a few Mach numbers and reduced\r\nfrequencies and interpolate to others. Matrix interpolation is an automatic\r\nfeature of the flutter rigid format. The MKAERO1 and MKAERO2 data cards allow\r\nthe selection of parameters for the aerodynamic matrix calculation on which\r\nthe interpolation is based.\r\n\r\n   The method of flutter analysis is specified on the FLUTTER bulk data card.\r\nThe FLUTTER card is selected in case control by an FMETHOD card. Three methods\r\nof flutter analysis are available; K, KE, and PK. These are shown in Table\r\n1.11-2.\r\n\r\n   The K-method allows looping through three sets of parameters: density ratio\r\n(p/pref; pref is given on an AERO data card); Mach number m; and reduced\r\nfrequency k. For example, if you specify two values of each, there will be\r\neight loops in the following order.\r\n\r\n      LOOP (CURVE)      DENS       MACH      REFREQ\r\n\r\n           1             1          1           1\r\n           2             2          I           1\r\n           3             1          1           2\r\n           4             2          1           2\r\n           5             1          2           1\r\n           6             2          2           1\r\n           7             1          2           2\r\n           8             2          2           2\r\n\r\nValues for the parameters are listed on FLFACT bulk data cards. Usually, one\r\nor two of the parameters will have only a single value. Caution: Do not set up\r\na large number of loops; it may take an excessive time to execute.\r\n\r\n   A parameter VREF may be used to scale the output velocity. This can be used\r\nto convert from consistent units (for example, in/sec) to any units you may\r\ndesire (for example, knots), determined from Vout = V/VREF. Another use of this\r\nparameter is to compute the flutter index, by choosing VREF =bw * sqrt(u).\r\n\r\n   If physical output (grid point deflections or element forces, plots, etc.)\r\nis desired rather than modal amplitudes, this data recovery can be made upon a\r\nuser selected subset of the cases. The selection is based upon the velocity;\r\nthe method is discussed in Section 3.20.4.\r\n\r\n   The KE-method is similar to the K method. By restricting the option, the\r\nKE-method is a more efficient K-method. The two major restrictions are that no\r\ndamping (B) matrix is allowed and no eigenvector recovery is made. This means\r\nthat the KE-method is not suitable for a control system, but it is a good\r\nmethod for producing a large number of points for the classical V-g curve. The\r\nKE-method also sorts the data for plotting. A plot request for one curve gives\r\nall of the reduced frequencies for a mode, while a similar request in the\r\nK-method gives all of the modes at one k value.\r\n\r\n   The PK-method treats the aerodynamic matrices as frequency dependent\r\nsprings and dampers. A frequency is estimated and the eigenvalues are found.\r\nFrom an eigenvalue, a new frequency is found. The convergence to a consistent\r\nroot is very rapid. The major advantage of the method is that the damping\r\nvalues obtained at subcritical flutter conditions appear to be more\r\nrepresentative of the physical damping. Another advantage occurs when the\r\nstability at a specified velocity is required, since many fewer eigenvalue\r\nanalyses are needed to find the behavior at one velocity.\r\n\r\n   The input data for the PK-method also allows looping, as in the K method.\r\nThe inner loop of your data is velocity, with Mach number and density on outer\r\nloops. Thus, the effects of varying any or all of the three parameters on one\r\nrun is possible.\r\n\r\n   Subsets of flutter analysis for checking data are listed under the\r\ndescription of the SOL card in Section 2.2.3.\r\n\r\n1.11.5  Modal Aeroelastic Response Analysis\r\n\r\n   The purpose of the modal aeroelastic response analysis is to study the\r\nbehavior of an aeroelastic system resulting from applied loads and gusts. One\r\nrigid format can solve frequency response, random response, and transient\r\nresponse problems. The capability includes control systems (using NASTRAN\r\nExtra Points and Transfer Functions), multiple loading conditions (with\r\nSUBCASES), and rigid body modes.\r\n\r\n   The input data deck is the same as for the flutter analysis, except for\r\nload requests and output selection. The point loads are applied with standard\r\nRLOAD (frequency response) or TLOAD (transient response) data cards. For gust\r\nfields, which are only implemented for the Doublet-Lattice/Body Aerodynamic\r\ntheory, the vertical stationary gust velocity can be specified with either\r\nRLOAD or TLOAD cards. In this manner, the response to either random or\r\ntime-dependent gusts may be obtained.\r\n\r\n   For random response analysis, the power spectral density of the load must\r\nbe supplied. For gusts, either the Von Karman or the Dryden formula can be\r\nselected. The output power spectral density is requested by the XYOUT Case\r\nControl cards. The r.m.s. value and No, the expected frequency, are\r\nautomatically printed when PSDF information is requested.\r\n\r\n   You must supply the basic flight conditions. The velocity is specified by\r\nthe AERO data card, while Mach number and dynamic pressure (q) are supplied on\r\nPARAM bulk data cards.\r\n\r\n   The damping must be modal damping. Ordinarily, a modal viscous damping is\r\nassumed, as in the NASTRAN modal dynamic rigid format. A parameter KDAMP = -1\r\ncan be used to substitute modal structural damping; the modal stiffness is\r\nmultiplied by [1+ig(w)].\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n   Figure 1.11-1. An aerodynamic doublet-lattice panel subdivided into boxes\r\n\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.11-2a. N5KA example with three panels (ten boxes), two bodies (nine\r\nslender body elements), and seven interference elements\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.11-2b. N5KA example with three panels (ten boxes), two bodies (nine\r\nslender body elements), and seven interference elements\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n                        Figure 1.11-3. Mach box surface\r\n=PAGE=\r\n                  GRAPHIC DISPLAY OF REGIONS ON MAIN SEMISPAN\r\n\r\nMACH NUMBER   1.300     BOX WIDTH     .052064         BOX LENGTH       .043248\r\n\r\n                   SS                                             S  MAIN\r\n                   SS.                                            1  CNTRL 1\r\n                   SSS.                                           2  CNTRL 2\r\n                   SSS..                                          .  DIAPHRAGM\r\n                   SSSS..                                         ;  WAKE\r\n                   SSSS..\r\n                   SSSSS...\r\n                   SSSSS....\r\n                   SSSSSS....\r\n                   SSSSSS.....\r\n                   SSSSSSS.....\r\n                   SSSSSSS......\r\n                   SSSSSSSS......\r\n                   SSSSSSSSS......\r\n                   SSSSSSSSSS......\r\n                   SSSSSSSSSSS......\r\n                   SSSSSSSSSSSS......\r\n                   SSSSSSSSSSSSS......\r\n                   SSSSSSSSSSSSSS......\r\n                   SSSSSSSSSSSSSS......\r\n                   SS1111122SSSSS.....\r\n                   SS111112222SSS....\r\n                   SS1111122222SS...\r\n                   SS1111122222SS..\r\n                             22SS.\r\n                                S\r\n\r\n                  (b) Surface as generated by program\r\n\r\n   Figure 1.11-4. Mach box surface showing Mach boxes and diaphragm\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n              Figure 1.11-5. Strip theory example lifting surface\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n              Figure 1.11-6. Splines and their coordinate systems\r\n=PAGE=\r\nTable 1.11-1. Aerodynamic Elements\r\n\r\n                Doublet    Lifting Body\r\n                Lattice    (Inter-      Mach Box    Strip       Piston\r\nType            Panel      ference)     Surface     Theory      Theory\r\n\r\nData Cards      CAERO1     CAERO2       CAERO3      CAERO4      CAERO5\r\n                PAERO1     PAERO2       PAERO3      PAERO4      PAERO5\r\n\r\nMach Number     Subsonic   Subsonic     Supersonic  All regimes Hypersonic\r\n\r\nSymmetry        2 planes   2 planes     1 plane     None        None\r\nOptions         y = 0      y = 0        required\r\n                z = 0      z = 0\r\n\r\n\r\nInteraction     Panels and bodies       Boxes on    None        None\r\n                in the same group       one surface\r\n\r\nComments                                One or two  Control     A strip theory,\r\n                                        control     surface     coefficients\r\n                                        surfaces    allowed.    from piston or\r\n                                                    User may    Van Dyke theory.\r\n                                                    vary        Control surface\r\n                                                    parameters.\r\n\r\nInterconnection Box        Slender body User        Strip       Strip\r\nto Structure    centers    element      specified   1/4-chord   1/4-chord\r\n                           centers      locations\r\n\r\nDisplacement    3,5        3,5 z-bodies 3           3,5 No      3,5 No control\r\nComponents Used            2,6 y-bodies             control     3,5,6 Control\r\nat Connection                                       3,5,6\r\nPoints                                              Control\r\n=PAGE=\r\nTable 1.11-2. Flutter Analysis Methods\r\n\r\n                 \"K\"                  \"KE\"                 \"PK\"\r\n\r\nStructural    K (complex)          K (complex)           K (real)\r\nMatrices      B (complex)                                B (real)\r\n              M (complex)          M (complex)           M (real)\r\n\r\nAerodynamic   M (complex)          M (complex)           K (real)\r\nMatrices                                                 B (real)\r\n\r\nUser Input    p-density            p-density             p-density\r\nLoops         m-Mach number        m-Mach number         m-Mach number\r\n              k-reduced frequency  k-reduced frequency   V-velocity\r\n\r\nOutput        V-g curve            V-g curve             V-g curve\r\n              Complex modes                              Complex modes\r\n              Displacements                              Displacements\r\n              Deformed plots                             Deformed plots\r\n\r\nMethod        Compute roots for    Compute roots for     For each p, m, V,\r\n              user input p, m, k.  user input p, m, k.   iterate on each root\r\n                                   Reorder output so a   to find consistent\r\n                                   \"curve\" refers to a   results. (Details\r\n                                   mode.                 in the Theoretical\r\n                                                         Manual.)\r\n\r\nEigenvalue    Several methods      Complex Upper*        Real Upper*\r\nMethod        available, selected  Hessenberg            Hessenberg\r\n              by user via CMETHOD\r\n              in case control.\r\n\r\n\r\n\r\n* No CMETHOD card is used.\r\n=PAGE=\r\nREFERENCES\r\n\r\n1. Giesing, J.P., T. P. Kalman, and W. P. Rodden, \"Subsonic Unsteady\r\n   Aerodynamics for General Configurations,\" Part II; Volume I, Application of\r\n   the Doublet-Lattice Method and the Method of Images to Lifting-Surface/Body\r\n   Interference; AFFDL-TR-71-5; April 1972.\r\n\r\n2. Giesing, J.P., T. P. Kalman, and W. P. Rodden, \"Subsonic Unsteady\r\n   Aerodynamics for General Configurations,\" Part II; Volume II, Computer\r\n   Program N5KA; AFFDL-TR-71-5, April 1972.\r\n\r\n3. Yates, E. C. and R. M. Bennett, \"Use of Aerodynamic Parameters from\r\n   Nonlinear Theory in Modified-Strip-Analysis Flutter Calculations for\r\n   Finite-Span Wings at Supersonic Speeds;\" NASA TN D-1824; July 1963.\r\n\r\n4. Bisplinghoff, R. L., H. Ashley, and R. L. Halfman, \"Aeroelasticity,\" pp.\r\n   682, 691; Addison-Wesley; 1955.\r\n\r\n\r\n=PAGE=\r\n1.12  CYCLIC SYMMETRY\r\n\r\n   Many structures, including pressure vessels, rotating machines, and\r\nantennae for space communications, are made up of virtually identical segments\r\nthat are symmetrically arranged with respect to an axis. There are two types\r\nof cyclic symmetry as shown in Figures 1.12-1 and 1.12-2: simple rotational\r\nsymmetry, in which the segments do not have planes of reflective symmetry and\r\nthe boundaries between segments may be general doubly-curved surfaces; and\r\ndihedral symmetry, in which each segment has a plane of reflective symmetry\r\nand the boundaries between segments are planar. The use of cyclic symmetry\r\nallows you to model only one of the identical substructures. There will also\r\nbe a large saving of computer time for most problems. The theoretical\r\ntreatment for cyclic symmetry is given in Section 4.5 of the Theoretical\r\nManual. \r\n\r\n   The total model consists of N identical segments which are numbered\r\nconsecutively from 1 to N. You supply a NASTRAN model for one segment, using\r\nregular elements and standard modeling techniques, except grid points are not\r\npermitted on the polar axis. All other segments and their coordinate systems\r\nare automatically rotated to equally spaced positions about the polar axis by\r\nthe program. The boundaries must be conformable, that is, the segments must\r\ncoincide. This is easiest to insure if a cylindrical or spherical coordinate\r\nsystem is used, but such is not required. The PARAM card, CTYPE, is used to\r\nspecify either rotational symmetry or dihedral symmetry; and the number of\r\nsegments, N, in the structural model is specified on the PARAM card, NSEGS. As\r\nindicated in Figure 1.12-2, dihedral symmetry provides solutions for each\r\nsegment and its reflected image. This requires application of both symmetric\r\nand antisymmetric boundary conditions. \r\n\r\n   In rotational symmetry the basic transformation equation between the\r\nstructure segments n = 1, 2, etc. and the harmonic indices k = 0, 1, 2, etc.\r\nis \r\n\r\n    n   _o   KMAX _kc              _kx\r\n   u  = u  +    [u   cos(n-1)ka + u   sin(n-1)ka]                  (1)\r\n             k=1\r\n\r\nwhere\r\n\r\n      n\r\n     u  is any displacement, load, stress, etc., on the nth segment (n = 1,\r\n     2...NSEGS),\r\n\r\n     _o  _kc  _ks\r\n     u , u  , u     are the corresponding cyclic coefficients used in the\r\n                    solution which define the entire structure,\r\n\r\n     k is the cyclic index (that is, KINDEX),\r\n\r\n     KMAX is the limit (KMAX <= N/2) of k. (If all values of k are used, the\r\n     transformation is exact),\r\n\r\n            2\r\n     a  =   is the circumferential angle for each segment.\r\n           NSEGS\r\n\r\nIn dihedral symmetry the repeated request may be divided into two half\r\nsegments divided by a plane of symmetry. The solution is obtained for\r\nsymmetric motions (S) and antisymmetric motions (A) of the right half segment\r\nmodeled by you. Thus, for each cyclic index, k, four coefficients are obtained\r\ndefining the variable, n, that is, ks; kc,S; ks,A; and kc,A. In the right\r\nhand segment the terms are added: \r\n               _     _       _\r\n   Right side: uks = uks,S + uks,A                                  (2)\r\n\r\nIn the left hand mirror image the antisymmetric solution is subtracted:\r\n              _     _       _\r\n   Left side: uks = uks,S - uks,A                                   (3)\r\n\r\nThe reason for using dihedral symmetry is to reduce the size of the model by\r\none half. However in static analysis, this procedure requires twice as many\r\nsolutions as in rotational cyclic symmetry. In normal modes analysis only the\r\nmodes for the symmetrical components ukc,S and uks,A are obtained. The modes\r\nfor the other two terms are identical and correspond to a one segment rotation\r\nof the structure. \r\n\r\n   The two boundaries are called sides 1 and 2. In the case of rotational\r\nsymmetry, side 2 of segment n is connected to side 1 of segment n+l, as shown\r\nin Figure 1.12-1. In the case of dihedral symmetry, side 1 is on the boundary\r\nof the segment and side 2 is on the plane of symmetry for the segment, as\r\nshown in Figure 1.12-2. In either case the grid point numbers on sides 1 and 2\r\nmust be specified on the bulk data card, CYJOIN. \r\n\r\n   As indicated in the Theoretical Manual Section 4.5, the cyclic symmetry\r\nanalysis uses a finite Fourier transformation. Hence, the use of cyclic\r\nsymmetry procedures does not introduce any additional approximations beyond\r\nthose normally associated with finite element analysis. In the case of static\r\nanalysis, a shortened approximate method may be used where the maximum value\r\nof the harmonic index is specified on the PARAM card, KMAX. The default\r\nprocedure is to include all harmonic indices. The use of a smaller number of\r\nharmonic indices is similar to truncating a Fourier series. The stiffness\r\nassociated with the higher harmonic indices tends to be large, so that these\r\ncomponents of displacements tend to be small. In the case of vibration\r\nanalysis, the solutions are performed separately for each harmonic index. The\r\nharmonic index for each solution is specified on the PARAM card, KINDEX. The\r\nstandard restart procedures can be used to calculate vibration modes for\r\nadditional harmonic indices. \r\n\r\n   No restrictions are placed on the use of the single point constraint, the\r\nmultipoint constraint, or the OMIT feature of NASTRAN, other than that the\r\nconstraints must be the same for each segment. Constraints between segments\r\nare automatically applied to the degrees of freedom at grid points specified\r\non CYJOIN bulk data cards which are not otherwise constrained. The SPCD bulk\r\ndata card may be used to vary the magnitude of enforced displacements for each\r\nof the segments. In the case of static analysis, the OMIT feature may be used\r\nto remove all degrees of freedom at internal grid points without any loss of\r\naccuracy. Since this reduction is applied to a single segment prior to the\r\nsymmetry transformations, it can greatly reduce the amount of subsequent\r\ncalculation. In the case of vibration analysis, the OMIT feature is used in\r\nthe usual way to reduce the size of the analysis set and involves the usual\r\napproximations. The SUPORT card for free bodies cannot be used with cyclic\r\nsymmetry. \r\n\r\n   Static loads are applied to the structural model in the usual way. A\r\nseparate subcase is defined for each segment (half segment for dihedral\r\nsymmetry) and loading condition. The subcases for static loading must be\r\nordered sequentially, according to the segment numbers. Multiple loading\r\nconditions for each segment must be in consecutive subcases. In the case of\r\nrotational symmetry, there will be a number of subcases equal to the number of\r\nsegments in the structural model for each loading condition. In the case of\r\ndihedral symmetry, there will be twice as many subcases as for rotational\r\nsymmetry because of the two symmetric components. If there is more than a\r\nsingle loading condition, the number of loading conditions must be specified\r\non the PARAM card, NLOAD. \r\n\r\n   An alternate procedure for specifying the static loads may be used if the\r\ntransform values of the forcing functions are known. In this case, the\r\ntransform values of the loads are specified directly on the usual loading\r\ncards. The PARAM card, CYCIO, must be included in the Bulk Data Deck to\r\nindicate that cyclic transform representation rather than physical segment\r\nrepresentation is being used for the static loads. If this option is used, the\r\nsubcases must be ordered according to the symmetrical components with the\r\ncosine cases preceding the sine cases for each symmetrical component. The\r\noutput quantities will also be prepared in terms of the symmetric components. \r\n\r\n   If the loading is specified in terms of the physical segments, the data\r\nreduction will also be done in terms of the physical variables. All of the\r\nnormal outputs, including structure plots, are available. No provision is made\r\nto recover physical segment data in vibration analysis. The available output\r\ndata does, however, include the symmetrical components of dependent\r\ndisplacements, internal forces, and stresses. \r\n\r\n   For purposes of minimizing matrix bandwidth, the equations of the solution\r\nset are normally sequenced with the cosine terms alternating with the sine\r\nterms. You may request an alternate sequence on the PARAM card, CYCSEQ, which\r\norders all cosine terms before all sine terms. The latter may improve\r\nefficiency when all of the interior points have been omitted.\r\n=PAGE=\r\n      1.You model one segment.\r\n\r\n      2.Each segment has its own coordinate system which rotates with\r\n        the segment.\r\n\r\n      3.Segment boundaries may be curved surfaces. The local\r\n        displacement coordinate systems must conform at the joining\r\n        points. You give a paired list of points on Side 1 and Side 2\r\n        which are to be joined.\r\n\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n                      Figure 1.12-1. Rotational symmetry\r\n=PAGE=\r\n      1.You model one-half segment (an R segment). The L half segments\r\n        are mirror images of the R half segments.\r\n\r\n      2.Each half segment has its own coordinate system which rotates\r\n        with the segment. The L half segments use left hand coordinate\r\n        systems.\r\n\r\n      3.Segment boundaries must be planar. Local displacement systems\r\n        axes, associated with inter-segment boundaries, must be in the\r\n        plane or normal to the plane. You list the points on Side 1 and\r\n        Side 2 which are to be joined.\r\n\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n                       Figure 1.12-2. Dihedral symmetry\r\n\r\n=PAGE=\r\n1.13  FULLY STRESSED DESIGN\r\n\r\n   The fully stressed design option is part of the static analysis rigid\r\nformat for structural analysis. Functional modules (OPTPR1 and OPTPR2) are\r\nprovided to automatically adjust the properties based on maximum stress\r\nlevels, and to control the number of design iterations based on user-supplied\r\nconvergence criteria. All elements using a common property are sized together,\r\nthat is, a plate with uniform thickness remains uniform. If you want to scale\r\nthe properties for each element separately, each element must have its own\r\nproperty card. After a sufficient number of iterations, the element properties\r\nwill be adjusted to the minimum values necessary to carry the prescribed\r\nloads. \r\n\r\n   The process begins by performing a static analysis for all loading\r\nconditions using the initial values for all element properties. A new\r\nproperty, P2, will be scaled such that \r\n\r\n                 \r\n   P  = P  []                                           (1)\r\n    2    1    + (1-)\r\n\r\nwhere P1 is the current property value and  is an iteration factor with a\r\ndefault value of unity. The scale factor, , is defined as follows: \r\n\r\n             \r\n    = Max ()                                                    (2)\r\n             \r\n              l\r\n\r\nwhere  is a stress value and l is a stress limit. The maximum value of  is\r\ntaken for all loading conditions. Values of  smaller than unity limit the\r\nproperty change in a single iteration, and thereby tend to improve the\r\nstability of the process. The maximum change in any property is limited by \r\n\r\n           P\r\n            2\r\n   K    <  < K                                                   (3)\r\n    min    P     max\r\n            i\r\n\r\nwhere Pi is the initial value of the property and Kmin and Kmax are\r\nuser-supplied limits. \r\n\r\n   Convergence is achieved by completing the specified number of iterations,\r\nby having all selected element properties reach the specified limits, or by\r\nsatisfying the following convergence criteria: \r\n\r\n   | -  |\r\n   |     l|\r\n     <                                                     (4)\r\n       \r\n       l\r\n\r\nwhere  is a user-supplied convergence limit.\r\n\r\n   The following actions are required by you in order to utilize the fully\r\nstressed design capability: \r\n\r\n   1. You must select stress output in the Case Control Deck for all elements\r\n      that will participate in the fully stressed design. \r\n\r\n   2. All required stress limits must be specified on the structural material\r\n      cards associated with element properties that will participate in the\r\n      fully stressed design. \r\n\r\n   3. The property optimization parameters must be specified on the bulk data\r\n      card POPT. This card contains user-specified values for the maximum\r\n      number of iterations, the convergence criteria (), the iteration factor\r\n      (), and output options to print and/or punch the calculated values of\r\n      the element properties. \r\n\r\n   4. The property optimization limits (Kmin and Kmax) must be specified on the\r\n      PLIMIT bulk data card if you want to limit the maximum and minimum\r\n      values of the element properties. \r\n\r\n   The detailed definitions of the scale factors for each of the element types\r\nare given in Table 1.13-1. The symbols t, c, and s represent the limiting\r\nstress values in tension, compression, and shear, given on the structural\r\nmaterial cards. All of the properties listed for each element are scaled in\r\nthe same way, that is, both the area and torsional constant for the ROD are\r\nmodified using the same scale factor. \r\n\r\n         Table 1.13-1. Scale Factors for Fully Stressed Design\r\n\r\nĿ\r\nElementStress Value Used         Scale Factor ()   Properties Changed    \r\nĴ\r\nROD    Axial Tension (1)        Max (1/t,2/c,  Area (A)              \r\nTUBE   Axial Compression (2)         /s)         Torsional Constant (J)\r\n       Torsion ()                                                        \r\nĴ\r\n                                                                         \r\nBAR    Fiber Stress End a (a1) Max (a1/t,b1/t,Area (A)              \r\n       Tension      End b (b1)      a2/c,b2/c)Torsional Constant (J)\r\n                                                   Moments of Inertia    \r\n                                                   (I1, I2, I12)         \r\nELBOW  Fiber Stress End a (a2)                    (I12 for BAR only)    \r\n       Compression  End b (b2)                                          \r\n                                                                         \r\nĴ\r\nTRMEM  Principal Tension (1)    Max (1/t,2/c,  Thickness (t)         \r\nQDMEM  Principal Compression (2)     m/s)        (Thicknesses t1, t2,  \r\nQDMEM1 Maximum Shear (m)                           t3 for TRIM6)         \r\nQDMEM2                                                                    \r\nIS2D8                                                                     \r\nTRIM6                                                                     \r\nĴ\r\nTRPLT  Same as Above             Same as Above      Moment of Inertia (I) \r\nQDPLT  (Fiber Distances z1 & z2)                                          \r\nTRBSC                                                                     \r\nĴ\r\nTRIA1  Same as Above             Same as Above      Moment of Inertia (I) \r\nQUAD1                                               Membrane Thickness    \r\n                                                     (t1)                 \r\nĴ\r\nTRIA2  Same as Above             Same as Above      Thickness (t)         \r\nQUAD2                                                                     \r\nĴ\r\nSHEAR  Maximum Shear (m)         m                Thickness (t)         \r\n                                                                      \r\n                                  s                                      \r\n\r\n=PAGE=\r\n1.14  THE CONGRUENT FEATURE\r\n\r\n1.14.1  Introduction\r\n\r\n   An important step in any NASTRAN problem is the generation of element\r\nmatrices (stiffness, mass, and damping matrices, as required) in the EMG\r\n(Element Matrix Generator) module. In many cases, this step can represent a\r\nsignificant portion of the total problem activity. Because of the differences\r\nin algorithms and procedures, the cost of generating the element matrices for\r\nan element depends on the element type, its configuration, and its properties.\r\nHowever, this cost is associated primarily with CPU activity and is not\r\nsignificantly affected by core size or I/O transfers (see Section 14.3.2 of\r\nthe User's Guide).\r\n\r\n   Normally, the element matrices are generated in the EMG module once for\r\neach element in the model. However, when two or more elements in the model\r\nhave the same element matrices, there is no reason why the same matrices\r\nshould be computed separately for each such identical element. By declaring\r\nsuch elements as congruent, it is possible to cause their element matrices to\r\nbe computed only once for all elements in the congruent set instead of their\r\nbeing computed repeatedly for each of the individual elements in the set. This\r\nresults, in general, in a saving of CPU time in the EMG module. In many cases,\r\njudicious formulation of the problem to facilitate the use of the congruent\r\nfeature can result in substantial savings in the computational effort. In some\r\nproblems, over 99 percent reductions in EMG module CPU times have been\r\nobtained.\r\n\r\n1.14.2  Congruent Feature Usage\r\n\r\n   The congruent feature is specified in NASTRAN by means of one or more\r\nCNGRNT cards in the Bulk Data Deck (see Section 2.4). Any number of such cards\r\nmay be employed.\r\n\r\n   The CNGRNT bulk data card is an open-ended card and requires the\r\nspecification of a primary element identification number and one or more\r\nsecondary element identification numbers. The terms primary and secondary as\r\nused with regard to congruent data are purely relative and have no real\r\nsignificance. Generally, the primary element is the lowest numbered element in\r\nthe congruent set, but this need not be so. The element matrices are actually\r\ncomputed in the EMG module only for the lowest numbered element in a congruent\r\nset (even though this element may not be the primary element). The element\r\nmatrices for the rest of the elements in the congruent set are then derived\r\nfrom these computed matrices.\r\n\r\n   When using CNGRNT cards, you should be aware of the following important\r\ncharacteristics of the congruent capability software design in NASTRAN.\r\n\r\nUser Responsibility for Congruency Specification\r\n\r\n   The elements declared as congruent must have characteristics (such as their\r\norientation and geometry) that cause their element matrices in the global\r\ncoordinate system to be truly identical. The program cannot test the validity\r\nof this structural specification. Therefore it is your responsibility to\r\nensure that element congruence specifications are valid. Improper congruence\r\nspecifications will result in an improper structure definition and will in\r\nturn lead to erroneous results. It should be emphasized that the proper use of\r\nthe congruent feature will not cause the answers to be any different from\r\nthose obtained without the use of the feature, but will only result in a\r\nsaving of CPU time in the EMG module.\r\n\r\nFlexibility in Specifying Congruencies\r\n\r\n   Clearly, congruency by its very definition can apply only to elements of\r\nthe same type. Thus, for instance, a bar element can be congruent only to\r\nanother bar element and not to a plate element. However, because of the\r\neffective manner in which the congruent feature has been incorporated into\r\nNASTRAN, elements of different types can be specified on the same logical\r\nCNGRNT card without in any way making the different element types congruent.\r\nThus, on the same logical CNGRNT card, several bar elements can be declared as\r\nbelonging to a congruent set and several plate elements can be specified as\r\nbelonging to a separate congruent set. However, you should ensure that such\r\nspecifications do not lead to erroneous declarations when elements of\r\ndifferent types have the same identification numbers.\r\n\r\nProvision of \"Phantom\" Element Identification Numbers\r\n\r\n   As a corollary to the above, it may be noted that the element\r\nidentification numbers (primary or secondary) specified on a CNGRNT card need\r\nnot all exist in a model. This greatly facilitates the use of the THRU option\r\non the card. However, you are cautioned that, if too many non-existent\r\nelements are specified in the CNGRNT data (as may be the case when the THRU\r\noption is used), the EMG module may not have enough core to process all the\r\nCNGRNT data. In that case, an appropriate message is issued and those elements\r\nwhose CNGRNT data cannot be processed will have their element matrices\r\ncomputed separately.\r\n\r\n1.14.3  Factors Affecting Congruent Feature Efficiency\r\n\r\n   As indicated earlier, the use of the congruent feature results in increased\r\ncomputational efficiency. The degree of efficiency obtained depends on the\r\nfollowing factors, some of which can be influenced by your input\r\nspecifications.\r\n\r\nNumber of Congruent Elements\r\n\r\n   Clearly, the larger the number of elements in a congruent set and the\r\nlarger the number of sets, the greater the savings in CPU time.\r\n\r\nType of Elements Specified as Congruent\r\n\r\n   Greater savings in CPU time are obtained for certain element types than for\r\nother element types. Thus, for instance, declaring two IHEX3 elements as\r\ncongruent will result in more savings than declaring two IHEX1 elements as\r\ncongruent.\r\n\r\nType of Analysis\r\n\r\n   For a specified congruent set, greater savings are obtained in dynamic\r\nanalysis than in static analysis since, in the former, mass and/or damping\r\nmatrices need to be computed, in addition to stiffness matrices.\r\n\r\nNumbering of Grid Points of the Congruent Elements\r\n\r\n   Processing is slightly more efficient if the relative order of the\r\nnumbering of the grid points of the congruent elements is the same. Thus, for\r\ninstance, two congruent quadrilateral plate elements are processed more\r\nefficiently if their grid points are numbered 1-7-4-6 and 12-23-16-20,\r\nrespectively, than if they were numbered 1-7-4-6 and 11-14-27-15,\r\nrespectively. In the former case, the grid point numbers of the two congruent\r\nelements increase or decrease in the same order as we go around the elements.\r\nIn the latter case, the grid point numbers of the two congruent elements\r\nincrease or decrease in different orders as we go around the elements.\r\n\r\n1.14.4  Examples of Congruent Feature Usage\r\n\r\n   The congruent feature is employed in fifteen (15) of the NASTRAN\r\ndemonstration problems. A comparison of the EMG module CPU times (on IBM\r\n5/360-95 computer) for these problems with and without the congruent feature\r\nis presented in Table 1.14-1. The savings resulting from the use of the\r\ncongruent capability are quite apparent from this table. The most dramatic\r\nsavings are obtained in NASTRAN Demonstration Problem Nos. 3-1-2 and 8-1-2, in\r\nwhich the EMG module CPU times are reduced by more than 99 percent.\r\n\r\nTable 1.14-1. Examples of Congruent Feature Usage in NASTRAN Demonstration Problems\r\n\r\n                    Congruent Element Data    Module CPU Times (sec)*\r\n                     \r\n                                      No. of   (a)        (b)         Saving in\r\n Ex.  Demo. Prob.  Element  No. of    CNGRNT  Using      Not Using    Module CPU\r\n No.  No.          Type     Elements  Sets    Congruent  Congruent    Time (%)**\r\n\r\n  1   D01-03-1A    QDMEM    216        1        0.8         8.3        90.4\r\n  2   D01-03-2A    QDMEM1   216        1        1.2        13.5        91.1\r\n  3   D01-03-3A    QDMEM2   216        1        1.5        11.1        86.5\r\n  4   D01-08-1A    HEXA1     40        1        0.1         3.5        97.1\r\n  5   D01-09-1A    HEXA2     40        1        0.3         7.4        95.9\r\n  6   D01-11-1A    QUAD1     50        1        0.2         7.7        97.4\r\n  7   D01-13-1A    IHEX1     40        5        2.8        16.9        83.4\r\n  8   D01-13-2A    IHEX2      2        1        2.7         4.5        40.0\r\n  9   D03-01-1A    QUAD1    200        1        0.4        15.4        97.4\r\n 10   D03-01-2A    QUAD1    800        1        0.8       130.5        99.4\r\n 11   D05-01-1A    TRIA1     80        4        0.7        11.7        94.0\r\n 12   D08-01-1A    QUAD1    100        1        0.4         5.8        93.1\r\n 13   D08-01-2A    QUAD1    400        1        0.4        49.1        99.2\r\n 14   D14-01-1A    QUAD2     10        5        1.7         2.3        26.1\r\n 15   D15-0101A    BAR       10        5        1.4         5.0        72.0\r\n                   QUAD2     20        5\r\n\r\n\r\n* All problems were run on the IBM S/360-95 computer.\r\n** ((b-a)/b)*100\r\n=PAGE=\r\n1.15  MAGNETIC FIELD PROBLEMS\r\n\r\n1.15.1  Introduction\r\n\r\nThe determination of the magnetic fields in and about ferromagnetic bodies\r\nis an important step in the design of many structures and components. In\r\ncommercial applications, knowledge of the fields in and near transformers and\r\nelectrical machinery is often desired because of their effect on performance.\r\nThis is discussed further in Reference 1.\r\n\r\n1.15.2  Theory\r\n\r\nThe governing equations of classical electromagnetic wave theory are\r\nMaxwell's equations:\r\n\r\nV * D = p                                                        (1)\r\n\r\nV * B = 0                                                        (2)\r\n\r\n           B\r\nV x E = -                                                    (3)\r\n           t\r\n\r\n             D\r\nV x H = J +                                                  (4)\r\n             t\r\n\r\nwhere\r\n\r\nD =  electric displacement vector\r\n\r\nB =  magnetic flux density vector\r\n\r\nE =  electric field intensity vector\r\n\r\nH =  magnetic field intensity vector\r\n\r\nJ =  current density vector\r\n\r\nP =  charge density\r\n\r\nt =  time\r\n\r\nAdditional relations are:\r\n\r\nD = E\r\n\r\nJ = E\r\n\r\nB = H\r\n\r\nwhere\r\n\r\n = permittivity\r\n\r\n = conductivity\r\n\r\n = magnetic permeability\r\n\r\nThe present work is concerned only with time-independent fields, thereby\r\ndecoupling Equations 1 through 4 into one pair of equations governing the\r\nelectrostatic field (Equations 1 and 3) and a second pair governing the\r\nmagnetostatic field (Equations 2 and 4). Interest here is in the latter pair\r\nand the appropriate constitutive equations:\r\n\r\nV * B = 0                                                        (5)\r\n\r\nV x H = J                                                        (6)\r\n\r\nwith B = H                                                      (7)\r\n\r\nNumerical techniques for solving Equations 5 through 7 include integral\r\nequations and differential equations. The present work uses the differential\r\nequation approach incorporated into NASTRAN.\r\n\r\nIn the theoretical aspects of the analysis,  is defined as the scalar\r\npotential of the magnetic field anomaly Hm, that is,\r\n\r\n     H  = V                                                     (8)\r\n      m\r\n\r\nwhere Hm is the modification, or anomaly, due to the presence of ferromagnetic\r\nmaterial, to a Biot-Savart field. It is  that is solved for by using the heat\r\ntransfer approach in NASTRAN.\r\n\r\nIn the anticipated applications of this method, accurate values of  will\r\nbe required in both the near field and far field. A major drawback of using\r\nthe finite element method for solving magnetostatic problems is that the\r\ninfinite domain surrounding the ferromagnetic material must be modeled (at\r\nleast, to the point at which  may be considered small). These accuracy and\r\nmodeling requirements mean that the finite element mesh must be very fine in\r\nall regions. In addition, the results near the finite element boundary may not\r\nbe as precise as desired because of the imposed  = 0 boundary condition.\r\n\r\nTwo methods which could avoid the need for modeling the vast majority of\r\nthe exterior domain are the use of infinite elements and the coupling of\r\nintegral and differential techniques. These methods are presently being\r\ninvestigated, but, meanwhile, a third method, harmonic expansions, is being\r\nused to avoid fine modeling to \"infinity\". In the present applications, all\r\nferromagnetic material and sources are enclosed by a suitably shaped surface,\r\nusually spherical or prolate spheroidal. Then NASTRAN is used to solve for the\r\npotentials at the grid points on the enclosing surface. Finally, Laplace's\r\nequation\r\n\r\n 2\r\nV  = 0                                                          (9)\r\n\r\nmay be solved, in the proper coordinates, using the potentials on the\r\nenclosing surface as an interior boundary condition.\r\n\r\n1.15.3  Prolate Spheroidal Harmonic Expansion\r\n\r\nMost applications require only prolate spheroidal coordinates. The solution\r\nof Laplace's equation in these coordinates is\r\n\r\n               n                                 m      (Qmn())\r\n(,,) =       [A   cos (m) + B   sin (m)] P  () [](10)\r\n           n=0 m=0   mn             mn            n      (Qmn(o))\r\n\r\nwhere\r\n\r\n       = reduced magnetic scalar potential\r\n\r\n,,   = prolate spheroidal coordinates\r\n\r\no      = coordinate of the interior prolate spheroidal surface\r\n\r\n m   m\r\nP  ,Q   = Legendre functions of the first and second kind, respectively\r\n n   n\r\n\r\n                          2            +1\r\nAmn  =  m        (n-m)!   cos        \r\nBmn     (2n+1)  |  sin (m)d | o(,)Pmn() d\r\n        4        (n+m)!              \r\n                          0             -1\r\n     \r\n      1, m = 0\r\nm =  2, m > 0\r\n     \r\n\r\no(,) = distribution of potential  on prolate spheroidal surface =o\r\n\r\nWith the use of this expansion, the finite element model can become coarser\r\nas the distance from the prolate spheroidal reference surface increases. In\r\naddition, the model need not extend \"too far\", since the concept requires an\r\naccurate potential distribution only on the reference surface, which is placed\r\nas close as possible to the ferromagnetic material. However, the\r\ndiscretization of the reference surface itself must be fine enough to allow\r\nfor an accurate representation of the integrals in the computation of the\r\ncoefficients Amn and Bmn.\r\n\r\n1.15.4  Input Data for Magnetostatic Analysis\r\n\r\nThis section provides user information needed to perform a magnetostatic\r\nanalysis with NASTRAN. This information is divided into six parts:  NASTRAN\r\nCard, Executive Control Deck, Case Control Deck, Bulk Data Deck, Data Cards\r\nwith Different Meanings, and Output.\r\n\r\n1.15.4.1  NASTRAN Card\r\n\r\nIn magnetostatic problems, functional module SSG1 (Static Solution\r\nGenerator - Phase 1) generates a data block, HCFLD, that contains the source\r\nmagnetic field at each grid point for each subcase resulting from specified\r\nfields on the SPCFLD bulk data card (see Section 1.15.4.4). Since HCFLD is not\r\nused in subsequent functional modules and is generated only for informational\r\npurposes, the costlier computation of grid point source magnetic fields due to\r\ncurrent coils and dipoles is left as an option to you. If these fields are to\r\nbe computed for HCFLD, the NASTRAN card must contain MODCOM (9) = 1.\r\n\r\n1.15.4.2  Executive Control Deck\r\n\r\nMagnetostatic analysis is performed by using the steady-state heat transfer\r\ncapability (Rigid Format 1, Approach HEAT) in NASTRAN. Therefore, the\r\nExecutive Control Deck must contain the following two cards:\r\n\r\n1. APP HEAT\r\n\r\n2. SOL 1\r\n\r\nIn addition, there are three functional modules that pertain specifically\r\nto magnetostatic analysis. but are not incorporated into the Rigid Format.\r\nThese are briefly described below:\r\n\r\n1. Module EMFLD computes the total field intensity and flux density of\r\n   user-selected finite elements. It reads the anomaly field information\r\n   (temperature gradients) which NASTRAN computes in element coordinate\r\n   systems, transforms it to the basic coordinate system, and adds the\r\n   results to the element centroidal source magnetic fields computed in\r\n   functional module SSG1.\r\n\r\n2. Module MAGBDY processes bulk data card PERMBDY (see Section 1.15.4.4)\r\n   and converts the grid points on the card to a form more readily usable\r\n   by functional module SSG1.\r\n\r\n3. Module PROLATE computes the prolate spheroidal harmonic coefficients to\r\n   be used by an interactive graphics program.\r\n\r\nIn order to execute the above modules and perform certain tasks related to the\r\ndata blocks output from functional module SSG1, the following ALTER statements\r\nto the Rigid Format are required:\r\n\r\nALTER n1 $ (where n1 = DMAP statement number of LABEL HLBL7, just before\r\n            SSG1 module)\r\nMAGBDY GEOM1, HEQEXIN/PER/V,N,IPG $\r\nALTER n2 $ (where n2 = DMAP statement number of SDR1 module)\r\nSDR1,     ,HCFLD,,,,,,,,,/,HCFLDG,/V,N,NSKIP/STATICS $\r\nSDR1,     ,HCCEN,,,,,,,,,/,HCCENG,/V,N,NSKIP/STATICS $\r\nSDR1,     ,REMFLD,,,,,,,,,/,REMFLG,/V,N,NSKIP/STATICS $\r\nALTER n3 $ (where n3 = DMAP statement number of SDR2 module)\r\nEMFLD     HOEF1,HEST,CASECC,HCFLDG,MPT,DIT,REMFLG,GEOM1,CSTM,HCCENG/\r\n          HOEH1/V,N,HLUSET $\r\nALTER  n4 $ (where n4 = DMAP statement number of OFP module, just after\r\n             SDR2 module)\r\nOFP       HOEH1,,,,,//S,N,CARDNO $\r\nPROLATE   GEOM1,HEQEXIN,BGPDT,CASECC,NSLT,HUGV,REMFLG,HEST,MPT,DIT/PROCOF $\r\nOUTPUT2   PROCOF,,,,//0/11 $\r\nTABPT     PROCOF,,,,// $\r\nENDALTER  $\r\n\r\nThe OUTPUT2 functional module writes prolate spheroidal coefficient\r\ninformation to FORTRAN-readable file UT1, which can be used as input to an\r\ninteractive graphics post-processor. The TABPT instruction prints that file\r\nfor user inspection.\r\n\r\n1.15.4.3  Case Control Deck\r\n\r\nThe FORCE (or ELFORCE) card is an optional request used to output the\r\nfinite element anomaly and total magnetic fields. The anomaly field is output\r\nin the element coordinate system, the total field intensity is output in the\r\nbasic coordinate system, and the total flux density is output in the\r\ncoordinate system given on the BFIELD bulk data card (see Section 1.15.4.4).\r\nThe basic coordinate system is the default.\r\n\r\nIn order to output the total magnetic field for an element, the source and\r\nanomaly magnetic fields must be computed for the element, usually at the\r\ncentroid. Since the number of elements in a magnetostatic analysis is usually\r\nlarge, care should be taken in requesting this output for a significant number\r\nof elements.\r\n\r\n    The AXISYMMETRIC (or AXISYM) card is used in conjunction with the PROLATE\r\nbulk data card (see Section 1.15.4.4) to indicate symmetric or antisymmetric\r\nboundary conditions (or lack thereof). Symmetry and antisymmetry conditions\r\nrefer to the source magnetic field (applied to a symmetric finite element\r\nmodel) and, therefore, to the anomaly potential with respect to the X-Y plane\r\nof the coordinate system which must be used when prolate spheroidal harmonic\r\ncoefficients are to be computed. The options for AXISYM are:\r\n\r\n    Option       Meaning\r\n\r\n    SYMM         Symmetry conditions, and the source magnetic field for this\r\n                 subcase, will be included in the prolate spheroidal harmonic\r\n                 expansion.\r\n\r\n    SYMMANOM     Symmetry conditions, and the source magnetic field for this\r\n                 subcase, will not be included in the prolate spheroidal\r\n                 harmonic expansion.\r\n\r\n    ANTI         Antisymmetric conditions, and the source magnetic field for\r\n                 this subcase, will be included in the prolate spheroidal\r\n                 harmonic expansion.\r\n\r\n    ANTIANOM     Antisymmetric conditions, and the source magnetic field for\r\n                 this subcase, will not be included in the prolate spheroidal\r\n                 harmonic expansion.\r\n\r\n    ANOM         Neither symmetry nor antisymmetry. Also, the source magnetic\r\n                 field for this subcase will not be included in the prolate\r\n                 spheroidal harmonic expansion.\r\n\r\n    No option    (Card does not appear.) Neither symmetry nor antisymmetry.\r\n                 Also, the source magnetic field for this subcase will be\r\n                 included in the prolate spheroidal harmonic expansion.\r\n\r\n    The specification of SYMM, SYMMANOM, ANTI, or ANTIANOM implies that the\r\nstructure is symmetric with respect to the X-Y plane of the required\r\ncoordinate system and that only one half, or 180 degrees, of the structure and\r\nsurrounding medium is modeled. If ANOM or no specification is made, then full\r\n360 degree modeling is assumed.\r\n\r\n    The use of ANOM, with or without SYMM and ANTI, means that only the anomaly\r\npotential and anomaly field will be available for that subcase from the\r\nprolate spheroidal harmonic expansion. Requiring only the anomaly results is\r\noften the situation when the Earth's magnetic field is the source field. When\r\na current coil is the source, the total potential and field are usually\r\nneeded, in which case ANOM would be omitted.\r\n\r\n1.15.4.4  Bulk Data Deck\r\n\r\n    There are eight bulk data cards that pertain specifically to magnetostatics\r\nanalysis. A brief description of each card follows.\r\n\r\n    1. The BFIELD card specifies a coordinate system identification number in\r\n       which the total flux density for selected elements will be output. (The\r\n       basic coordinate system is the default.) The anomaly field intensity is\r\n       output in the element coordinate system, the total field intensity in\r\n       the basic coordinate system, and the total flux density in the\r\n       coordinate system specified by BFIELD.\r\n\r\n    2. The CEMLOOP card defines a circular current coil. The orientation of the\r\n       coil is defined by specifying coordinates of the center of the coil and\r\n       coordinates of two points on its circumference. The magnetic field due\r\n       to the coil is computed from the Biot-Savart law using an elliptic\r\n       integral formulation.\r\n\r\n    3. The GEMLOOP card defines a general current coil in piecewise linear\r\n       segments by specifying the coordinates of the endpoints of the segments.\r\n       At most, 14 linear segments are allowed on one logical GEMLOOP card, but\r\n       the segments can be continued on another card.\r\n\r\n    4. The MDIPOLE card defines a magnetic dipole moment by specifying the\r\n       coordinates of the location of the dipole and the components of its\r\n       moment. The resulting magnetic field intensity is computed only at those\r\n       points whose distances from the dipole are within ranges defined on the\r\n       MDIPOLE card.\r\n\r\n    5. The PERMBDY card specifies points on boundaries of dissimilar magnetic\r\n       permeability. The purpose of this card is two-fold: to reduce computer\r\n       run time and to avoid numerical errors which may occur due to limited\r\n       orders of numerical integration, nonuniform modeling, use of CTETRA\r\n       elements, etc. Such numerical errors may occur as follows: the magnetic\r\n       equivalent loading at a point, resulting from a single finite element,\r\n       is given by the equation:\r\n\r\n                  T\r\n       f  = | (VN )   H dV                                                          (11)\r\n        i       i      c\r\n            V\r\n\r\n       It can be shown that, if a point is surrounded by elements of the same\r\n       magnetic permeability , then fi at the point must be 0. (The integral\r\n       of Equation 11 is obtained from an integration by parts of\r\n\r\n       \r\n       | N  (V*H )dV\r\n         i      c\r\n       V\r\n\r\n       which is zero in areas of uniform permeability.)  However, due to\r\n       various combinations of circumstances involving both numerical and\r\n       modeling techniques, fi may be nonzero in areas of uniform permeability,\r\n       and, in fact, may be significant compared with the loading at points\r\n       which are connected to elements of different permeabilities, thus\r\n       degrading the results. The presence of PERMBDY causes NASTRAN to compute\r\n       equivalent loads only at the grid points of the PERMBDY card. Therefore,\r\n       if this card is used, it must contain all appropriate points. In this\r\n       way, the presence of PERMBDY improves numerical accuracy as well as\r\n       computational efficiency.\r\n\r\n    6. The PROLATE card defines a prolate spheroidal surface in the finite\r\n       element model, which is used to compute coefficients of a prolate\r\n       spheroidal harmonic expansion of the anomaly or total scalar potential.\r\n\r\n       When the PROLATE card is used, NASTRAN assumes an orientation of the\r\n       generating ellipse of the prolate spheroidal surface with respect to the\r\n       basic coordinate system. Therefore, the center of the ellipse is assumed\r\n       to coincide with the origin of the basic coordinate system, the major\r\n       axis of the ellipse is assumed to coincide with the X-axis of the basic\r\n       coordinate system, and the minor axis is assumed to coincide with the\r\n       Y-axis of the basic coordinate system. In addition, the aximuthal\r\n       original of the component of the prolate spheroidal coordinate system is\r\n       the X-Y plane, with the direction of rotation following the right-hand\r\n       rule about the X-axis. This assumption does not preclude the definition\r\n       of other right-handed coordinate systems with which the locations of\r\n       grid points may be defined.\r\n\r\n    7. The REMFLUX card specifies remanent flux density for selected elements.\r\n       Since NASTRAN handles only linear materials, it cannot follow the\r\n       hysteresis loop of a magnetization curve. However, as long as the\r\n       section of interest of the magnetization curve is approximately linear,\r\n       REMFLUX may be used to specify nonzero remanence.\r\n\r\n    8. The SPCFLD card is used to specify components of source magnetic field\r\n       intensity at selected grid points. One use of this card is to specify\r\n       the Earth's magnetic fields.\r\n\r\n1.15.4.5  Data Cards with Different Meanings\r\n\r\n    In a standard NASTRAN steady-state heat transfer analysis, the basic\r\nunknown in the problem is the temperature at each grid point. In a\r\nmagnetostatic analysis, the basic unknown is the anomaly potential Vm.\r\nTherefore, any NASTRAN data card or output which refers to degrees-of-freedom\r\nrefers to the anomaly, or reduced, scalar potential. Some examples are bulk\r\ndata cards SPC and SPC1, Case Control card THERMAL (or DISPLACEMENT, which is\r\na carryover from structural analysis), and TEMPERATURE output.\r\n\r\n    Two other bulk data cards for which the meanings are different are material\r\ncards MAT4 and MAT5. In heat transfer, these cards contain thermal\r\nconductivity values. In magnetostatics, they specify magnetic permeability.\r\n\r\n1.15.4.6  Output\r\n\r\n    The output available from a magnetostatic analysis is similar to that from\r\na heat transfer analysis. The temperature output obtained from a DISPLACEMENT\r\nor THERMAL request must be interpreted as anomaly potential output. The load\r\nvector output obtained from the OLOAD request is the magnetic equivalent load.\r\nThe temperature gradient and flux output resulting from a FORCE or ELFORCE\r\nrequest should be interpreted as anomaly magnetic field intensity and anomaly\r\nflux density, respectively. These vectors are output in the element coordinate\r\nsystem. In addition, the FORCE or ELFORCE request also generates total finite\r\nelement magnetic field and induction output. The magnetic field intensity is\r\noutput in the basic coordinate system, and the magnetic flux density or\r\ninduction is output in a coordinate system specified on a BFIELD bulk data\r\ncard.\r\n\r\n    Finally, the file of prolate spheroidal harmonic coefficient information is\r\navailable for inspection. This file is contained in data block PROCOF. The\r\nTABPT statement needed to print PROCOF is given in Section 1.15.4.2.\r\n\r\nREFERENCE\r\n\r\n1.  Hurwitz, M. M., and Brooks, E. W., \"The Solution of Magnetostatic Field\r\n    Problems with NASTRAN,\" David W. Taylor Naval Ship Research and Development\r\n    Center, DTNSRDC-82/106, December 1982.\r\n=PAGE=\r\n1.16  DYNAMIC DESIGN-ANALYSIS\r\n\r\n1.16.1  Introduction\r\n\r\n   The Dynamic Design-Analysis Method (DDAM) is the standard procedure for\r\nshock design of equipment. Often, the equipment is first analyzed using\r\nNASTRAN. The data and results must then be converted into other forms for use\r\nin DDAM. Incorporating DDAM into NASTRAN has enabled the entire process to be\r\nperformed more efficiently. (The details of the implementation of DDAM into\r\nNASTRAN are described in Reference 1.)\r\n\r\n1.16.2  Theory\r\n\r\n   The steps of the DDAM procedure are described here very briefly. A more\r\ncomplete description is given in Reference 2.\r\n\r\n   Step 1. Compute natural frequencies and mode shapes. (Rigid Format 3,\r\nApproach DISP)\r\n\r\n   Step 2. Compute the participation factor for each mode:\r\n\r\n             M  X\r\n            i  i  ia\r\n      P  =                                               (1)\r\n       a          2\r\n             M  X \r\n            i  i  ia\r\n\r\nwhere Mi is the mass of the ith degree-of-freedom and Xia is the ith component\r\nof the ath mode shape.\r\n\r\n   It is assumed that only those terms of {Xa} that correspond to a particular\r\ndirection are used in Equation 1. That is, the ath mode may have three\r\nparticipation factors associated with it, one for each orthogonal direction.\r\n\r\n   The numerator of Equation 1 may be written as (considering all computed\r\nmodes):\r\n\r\n         T\r\n      []  [M] [V]                                                  (2)\r\n\r\nwhere\r\n\r\n   [] = matrix of eigenvectors (mode shapes), order n x m, with n = order of\r\n         the problem, m = number of modes computed;\r\n\r\n   [M] = mass matrix, order n x n; and\r\n\r\n   [V] = direction cosine matrix, order n x l with l = 1, 2, or 3, the number\r\n         of desired directions.\r\n\r\nTypically, [V] may consist of 1's and 0's which \"pick off\" desired directions.\r\nHowever, that form is not necessary and any consistent set of direction\r\ncosines may be used.\r\n\r\n   The denominator of Equation 1 may be written as (considering all computed\r\nmodes):\r\n\r\n         T\r\n      []  [M] []                                                  (3)\r\n\r\nwhich is the diagonal modal mass matrix. Therefore, Equation 1 may be written\r\nas:\r\n\r\n                          T        -1   T\r\n      [P ]    = [diag ([] [M][])]  [] [M][V]                     (4)\r\n        a mxl\r\n\r\n   Step 3. Compute the \"effective mass\" in each mode:\r\n\r\n      M  = P   M  X                                                (5)\r\n       a    a i  i  ia\r\n\r\n   Thus,\r\n\r\n                             T\r\n      [M ]    = [P ] x  [[[] [M][V]]                               (6)\r\n        a mxl     a\r\n\r\nwhere the x on the right side indicates the so-called matrix outer product, in\r\nwhich a term-by-term multiplication is performed. For example, if\r\n\r\n      [C] = [A] x [B]                                               (7)\r\n\r\nthen\r\n\r\n      c   = a   b                                                   (8)\r\n       ij    ij  ij\r\n\r\n   Step 4. Compute the \"effective weight\" [Wa] in each mode by multiplying [Ma]\r\nby g, the acceleration due to gravity.\r\n\r\n   Step 5. Compute the direction-dependent velocity spectrum design values [Va]\r\nfrom [Wa].\r\n\r\n   Step 6. Compute the effective static load at each mass, due to the ath mode,\r\nby\r\n\r\n      F   = M  X    P  V  w                                         (9)\r\n       ia    i  ia   a  a  a\r\n\r\nwhere wa is the ath natural radian frequency.\r\n\r\n   The matrix of loads is computed as follows: The matrix product [M][] is of\r\norder n x m and corresponds to the product Mi Xia of Equation 9. (Here, only\r\nterms of [M][] in the desired directions are used.) The ath column of [M][]\r\ncorresponds to the ath mode. Multiplying the ath column by wa and by PaVa for\r\nthe first desired direction gives a matrix of load vectors of order n x m. If\r\nPaVa's for other desired directions are used, then other n x m sets of loads\r\nare created and appended to the first set. A final load matrix [F], of order n\r\nx ml, is thus created, where l is the number of desired directions; that is,\r\nthere will be ml static load cases. (In practice, instead of the product Vawa\r\nin Equation 9, the term actually used is min (Vawa,Aag), where Aa is an\r\nacceleration spectrum design value in g's and g is the acceleration due to\r\ngravity.)\r\n\r\n   Step 7. Perform static analyses to compute direction-dependent maximum\r\nresponses, using the load cases from Step 6, and calculate element stresses.\r\n\r\n   The computation of the effective static load at each mass in Step 6 and the\r\nstatic analyses of Step 7 may be replaced as follows: For the ath mode {a},\r\nEquation 9 may be written as\r\n\r\n      {F }  =  [M] { } P  V  w                                    (10)\r\n        a            a   a  a  a\r\n\r\nSolving,\r\n\r\n      [K] {u }  =  {F }                                            (11)\r\n            a        a\r\n\r\nwhere [K] is the stiffness matrix and {ua} is the vector of grid point\r\ndisplacements, yields\r\n\r\n                  -1\r\n      {u }  =  [K]   [M] { } P  V  w                              (12)\r\n        a                  a   a  a  a\r\n\r\nHowever, from dynamics,\r\n\r\n          2\r\n      [-w  M+K] { }  = 0                                          (13)\r\n         a        a\r\n\r\nor\r\n\r\n         -1              1\r\n      [K]  [M] { }  =    { }                                  (14)\r\n                 a       2     a\r\n                        w\r\n                         a\r\n\r\nUsing Equation 14 in Equation 12 yields\r\n\r\n                     P  V\r\n                      a  a\r\n      {u }  =  { }                                          (15)\r\n        a        a    w\r\n                       a\r\n\r\n(As in Step 6, rather than Va/wa, min (Va/wa,Aag/wa) is used.)\r\n\r\nEquation 15 is used to compute the direction-dependent maximum response.\r\n\r\n   Step 8. For each of the 2 desired directions, compute the NRL (Naval\r\nResearch Laboratory) sums of stresses (see Reference 3) for each element as\r\nfollows:\r\n\r\n              |   |                    2\r\n      S   =   |S  | +  sqrt(     (S  ) )                          (16)\r\n       j      | jm|         b.NE.m  jb\r\n\r\nwhere Sjm = maximum stress at the jth point (taken over the modes under\r\nconsideration in one desired direction) and Sjb = stresses (other than the\r\nmaximum) at the jth point corresponding to the modes described for Sjm.\r\n\r\n1.16.3  DDAM Implementation in NASTRAN\r\n\r\n   Since DDAM requires the determination of natural frequencies and mode\r\nshapes, a NASTRAN/DDAM analysis involves the use of Rigid Format 3 (Approach\r\nDISP) with ALTERs. These ALTERs are required in order to compute the various\r\nquantities described in the previous section. Among these ALTERs are\r\ninstructions for NASTRAN to execute eight functional modules that pertain\r\nspecifically to DDAM. These modules are briefly described in the following\r\nsections.\r\n\r\n1.16.3.1  GENCOS\r\n\r\n   GENCOS generates the direction cosine matrix [V] in Equation 2. You may\r\nspecify a coordinate system which defines the shock directions. A PARAM bulk\r\ndata card giving the value of parameter SHOCK passes to GENCOS the coordinate\r\nsystem identification number of the shock system. If you do not include such a\r\ncard, the basic coordinate system will be used. (The value of parameter SHOCK\r\nshould, in most cases, correspond to the displacement coordinate system\r\nidentification number for the grid points in the problem. However, to allow\r\nfor possible exceptions, no check for this correspondence is made.) Parameter\r\nDIRECT must also be specified, defining the directions of the shock system\r\nwhich are to be considered. The options for DIRECT are 1, 2, 3, 12, 13, 23,\r\nand 123. For example, if DIRECT is 23, then the second and third directions of\r\nthe shock coordinate system will be used. If you do not define DIRECT, the\r\ndefault is 123, that is, all three directions will be considered.\r\n\r\n   The DMAP statement for GENCOS is\r\n\r\n   GENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/\r\n                  V,N,LUSET/V,N,NSCALE $\r\n\r\n1.16.3.2  DDAMAT\r\n\r\n   DDAMAT calculates a matrix outer product such as that in Equation 6, and\r\nmultiplies the result by parameter GG. For example, to compute effective\r\nweights, Steps 3 and 4 are performed, and GG = g = 386.4 is specified, if\r\nunits of pounds and inches are used.\r\n\r\n   The DMAP statement for DDAMAT is\r\n\r\n   DDAMAT   A,B/C/C,Y,GG $\r\n\r\nParameter GG must be given a value on a PARAM bulk data card or in the DMAP\r\nstatement itself.\r\n\r\n1.16.3.3  GENPART\r\n\r\n   It is assumed that, in the eigenvalue analysis, the lowest N modes were\r\ncomputed. If, in the static analyses (or equivalent static analyses), fewer\r\nmodes are to be used, say, the lowest M, where M < N, then the orders of a\r\nnumber of matrices must be truncated. GENPART generates the partitioning\r\nvectors required by functional module PARTN to partition the necessary\r\nmatrices.\r\n\r\n   The DMAP statement for GENPART is\r\n\r\n   GENPART   PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/V,N,NMODES $\r\n\r\nParameter LMODES is the integer value of the number of lowest modes to be used\r\nin the static analyses. The value of this parameter must be specified on a\r\nPARAM bulk data card, or else a fatal error will result.\r\n\r\n1.16.3.4  DESVEL\r\n\r\n   DESVEL computes design velocity and acceleration spectra. The assumed form\r\nfor velocity is\r\n\r\n                   V +W\r\n                    b\r\n      V  =  V  V                                             (17)\r\n             f  a  V +W\r\n                    c\r\n\r\nwhere\r\n\r\n      V       =  velocity computed from modified effective weight W\r\n\r\n      Vf      =  factor usually associated with a desired direction\r\n\r\n      Va,Vb,Vc=  factors usually associated with various ship types and\r\n                 parameters\r\n\r\n      W       =  effective weight/1000\r\n\r\nItems V and Va are in units of length/second, and Vb and Vc are in units of\r\neffective weight W.\r\n\r\n   Acceleration spectrum values may be expressed in one of two forms. The\r\nfirst form is the same as that for velocity\r\n\r\n                    A +W\r\n                     b\r\n      A = A  A  A                                           (18)\r\n           f  a  b  A +W\r\n                     c\r\n\r\nThe second form is\r\n\r\n                                         2\r\n      A = A  A  (A  + W)(A  + W)/(A  + W)                          (19)\r\n           f  a   b       c        d\r\n\r\nwhere A = acceleration is in g's for modified effective weight in. Af, Aa, Ab,\r\nAc, and Ad are factors defined similarly to factors Vf, Va, Vb, and Vc. If Ad =\r\n0, then the form of Equation 18 is used. In addition, values of Vw/g are\r\ncomputed and are output along with acceleration values A for comparison\r\npurposes. Also, a matrix of minimum values of Vw and Ag is output for use in\r\nEquation 9, that is,\r\n\r\n      A    = min (Vw,Ag)                                           (20)\r\n       min\r\n\r\nFinally, the matrix\r\n\r\n                1\r\n      A'     =   A                                              (21)\r\n         min     2   min\r\n                w\r\n\r\nis output for use in Equation 15. Note that the natural frequency must not be\r\nzero. However, this is not a restriction for DDAM since a fixed base is\r\nassumed.\r\n\r\n   The DMAP statement for DESVEL is:\r\n\r\n   DESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG = 386.4/\r\n            C,Y,VEL1/C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/\r\n            C,Y,VELC/C,Y,ACC1/C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/\r\n            C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $\r\n\r\nParameter GG is the acceleration due to gravity. A default value of 386.4 is\r\nsupplied. Any other value must be specified on a PARAM bulk data card.\r\nParameters VEL1, VEL2, and VEL3 correspond to the factor Vf in Equation 17, in\r\nthe first, second, and third desired directions, respectively. If fewer than\r\nthree directions are desired, then only VEL1, or VEL1 and VEL2, are specified.\r\nFor example, if only one direction is specified, say direction 3, than VEL1\r\ncorresponds to direction 3, the first (and only) desired direction. Parameters\r\nVELA, VELB, and VELC correspond to Va, Vb, and Vc, respectively, in Equation\r\n17. These velocity parameters, VEL1 through VELC, must appear on PARAM bulk\r\ndata cards, or else a fatal error will result. If VEL2 or VEL3 is not used,\r\nthen values of 0. must be specified.\r\n\r\n   Acceleration parameters ACC1 through ACCD are similar to VEL1 through VELC\r\nand refer to Equations 18 and 19.\r\n\r\n1.16.3.5  DDAMPG\r\n\r\n   DDAMPG creates the static load vectors of Equation 9 or the maximum\r\nresponses of Equation 15. For the former, the matrix [MP] = [M][] is input to\r\nDDAMPG and is operated on by a matrix\r\n\r\n      [PVW] = [P ] x [A   ]                                        (22)\r\n                a      min\r\n\r\nwhere [Pa] is the matrix of participation factors defined by Equation 4 and\r\n[Amin] is computed from Equation 20. The order of these matrices is m x l,\r\nwhere m is the number of modes to be used and l is the number of desired\r\ndirections. [PVW] is formed by functional module DDAMAT.\r\n\r\n   The columns of [PVW] correspond to desired directions. Within a column,\r\neach row term corresponds to a mode. The matrix [MP] is of order n x m, where\r\nn is the number of degrees-of-freedom in the problem. Each column of [MP]\r\ncorresponds to a mode, and in each column of [PVW], the ith row term of [PVW]\r\nmultiplies the ith column of [MP]. After all columns of [PVW] have been\r\nconsidered, the resulting static load matrix is of order n x (ml).\r\n\r\n   To compute the maximum response of Equation 15, the same operations just\r\ndescribed are performed, except that matrix [PHIG] = [] replaces [MP] and\r\n\r\n                  1\r\n      [PVOW]  =   [A   ]                                       (23)\r\n                   2    min\r\n                  w\r\n\r\nreplaces [PVW], where w = wa for the ath row of [Amin].\r\n\r\n   The DMAP statement for DDAMPG for static loads is\r\n\r\n   DDAMPG   MP,PVW/PG/V,N,NMODES/V,N,NDIR $\r\n\r\n   For maximum responses, the DMAP statement is\r\n\r\n   DDAMPG   PHIG,PVOW/UGV/V,N,NMODES/V,N,NDIR $\r\n\r\n1.16.3.6  CASEGEN\r\n\r\n   The static load and maximum response vectors created in DDAMPG are\r\nconsidered individual load cases by NASTRAN and must, therefore, be selected\r\nin the Case Control Deck. The number of cases then is ml. For example, the use\r\nof 30 modes and 3 directions gives a total of 90 cases. Rather than having you\r\ngenerate the SUBCASE cards, CASEGEN generates a new Case Control Data Table\r\nwhich includes the required cards.\r\n\r\n   The DMAP statement for CASEGEN is:\r\n\r\n   CASEGEN   CASECC/CASEDD/C,Y,LMODES/V,N,NDIR/V,N,NMODES $\r\n\r\n   Parameter LMODES has the same meaning here as in functional module GENPART\r\nand must appear on a PARAM bulk data card, or else a fatal error will result.\r\n\r\n1.16.3.7  NRLSUM\r\n\r\n   Functional module NRLSUM computes the NRL stresses and forces over the m\r\nmaximum responses for a given direction for each requested element. The NRL\r\nsum stress for a given component is\r\n\r\n             |    |               2\r\n      S  =   |S   | +  sqrt(  (S  ) )                             (24)\r\n             | max|         j    j\r\n                            .NE.max\r\n\r\nwhere Sj is the stress component for the jth mode and Smax is the maximum of\r\nthese stress components taken over all modes under consideration. The Case\r\nControl request for stresses and forces is made in the usual way, except that\r\nSORT2 format must be specified. The output device for the NRL sums (printer,\r\npunch, or both) will be the same as that for the standard stresses and forces.\r\nIf principal stresses are computed for an element, they will be computed on\r\nthe basis of the NRL sum of the normal stresses. For the BAR element, the\r\nelement axial stress in a mode will be added to each of the extensional\r\nstresses due to bending in that mode. The NRL sums will then be computed for\r\nthese new extensional stresses. The NRL sums corresponding to the printed\r\ncolumns headed by AXIAL STRESS, SA-MAX, SB-MAX, SA-MIN, and SB-MIN will be set\r\nto 0.\r\n\r\n   In seismic analyses, the square root of the sums of the squares (SQRSS) is\r\nused rather than the NRL sums of the stresses and forces. You may select the\r\nlatter method.\r\n\r\n   The DMAP statement for NRLSUM is\r\n\r\n   NRLSUM   OES2,OEF2/NRLSTR,NRLFOR/V,N,NMODES/V,N,NDIR/\r\n            C,Y,DIRECT = 123/C,Y,SQRSS = 0 $\r\n\r\nParameter DIRECT has the same meaning here as in functional module GENCOS.\r\nInteger parameter SQRSS indicates whether the summing process should use NRL\r\nsums or the SQRSS method. A value of 0 (the default) indicates NRL sums; a\r\nvalue of 1 indicates SQRSS.\r\n\r\n1.16.3.8  COMBUGV\r\n\r\n   COMBUGV combines the direction-dependent maximum response in a number of\r\nways. The method used is intended for DDAM analyses, but seismic analyses,\r\nwhich make use of similar theory, may also be run. In seismic analysis, unlike\r\nDDAM, the maximum responses in the three directions for each mode are combined\r\ninto one total response for the mode. This combination may be performed by\r\nsimply adding the absolute values of the maximum component responses for the\r\nmode, or by computing the square root of the sum of the squares (SQRSS) of the\r\ncomponent responses. In both cases, the result is a matrix in which each\r\ncolumn represents a total response due to a mode. These responses are then\r\ncombined by the SQRSS method over the modes to give a final response vector.\r\nFinally, the NRL sums of the displacements are also computed.\r\n\r\n   The DMAP statement for COMBUGV is\r\n\r\n   COMBUGV   UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/V,N,NMODES/V,N,NDIR $\r\n\r\nData block UGVADD is obtained by adding, for each mode, the absolute values of\r\nthe component responses for that mode. Data block UGVSQR is obtained by using\r\nthe SQRSS method, rather than by adding. Data blocks UGVADC and UGVSQC are\r\nobtained from UGVADD and UGVSQR, respectively, by combining the total modal\r\nresponses using the SQRSS method. Data block UGVNRL contains the NRL sums of\r\nthe displacements.\r\n\r\n1.16.4  Input Data for DDAM\r\n\r\n   A complete DDAM analysis with NASTRAN is performed in one normal modes\r\nanalysis run with a set of DMAP ALTERs. This section describes the input\r\ndetails for such a run.\r\n\r\n1.16.4.1  Executive Control Deck\r\n\r\n   In addition to standard Executive Control Deck cards, the Executive Control\r\nDeck for the normal modes analysis must include the proper Rigid Format\r\nselection, SOL 3,0 (Approach DISP) and the following DMAP ALTER package. (The\r\nnumbers to the left of each card are for explanatory purposes only and are not\r\nactually entered on the card.)\r\n\r\n 1. ALTER    n $ (where n = DMAP statement number of LABEL P2)\r\n 2. GENCOS   BGPDT,CSTM/DIRCOS/C,Y,SHOCK = 0/\r\n             C,Y,DIRECT = 123/LUSET/S,N,NSCALE $\r\n 3. DIAGONAL MI/MID/*SQUARE*/-1. $\r\n 4. MPYAD    MGG, PHIG,/MP/0 $\r\n 5. MPYAD    MP,DIRCOS,/PMD/1 $\r\n 6. MPYAD    MID,PMD,/PF/0 $\r\n 7. DDAMT    PF, PMD/EFFW/C,Y,GG = 386.4 $\r\n 8. LAMX,    ,LAMA/LAMB/-1 $\r\n 9. GENPART  PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $\r\n10. PARTN    LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $\r\n11. PARAM    //*GE*/TEST/C,Y,LMODES/NMODES $\r\n12. COND     DDAM, TEST $\r\n13. PARTN    PF,,RPPF/,PFR,,/1 $\r\n14. EQUIV    PFR,PF $\r\n15. PARTN    EFFW,,RPPF/,EFFWR,,/1 $\r\n16. EQUIV    EFFWR,EFFW $\r\n17. PARTN    MP,CPMP,/,,MPR,/1 $\r\n18. EQUIV    MPR,MP $\r\n19. PARTN    PHIG,CPMP,/,,PHIGR,/1 $\r\n20. EQUIV    PHIGR,PHIG $\r\n21. LABEL    DDAM $\r\n22. DESVEL   EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/\r\n             C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/\r\n             C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $\r\n23. DDAMAT   PF,MINAC/PVW/1. $\r\n24. DDAMAT   PF,MINOW2/PVOW/1. $\r\n25. DDAMPG   PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $\r\n26. DDAMPG   MP,PVW/PG/NMODES/NDIR $\r\n27. CASEGEN  CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $\r\n28. EQUIV    CASEDD,CASECC $\r\n29. SDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,/,OQG3\r\n             OUGV3,OES3,OEF3,/*STATICS*/S,N,NOSORT2 = -1/-1 $\r\n30. SDR3     OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $\r\n31. NRLSUM   OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT = 123/\r\n             C,Y,SQRSS = 0  $\r\n32. OFP      NRLSTR,NRLFOR,,,,//S,N,CARDNO $\r\n33. COMBUGV  UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $\r\n34. CASEGEN  CASECC/CASEEE/1/NDIR/NMODES $\r\n35. SDR2     CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,/\r\n             ,,OUGV5,,,/*STATICS*/S,N,NOSORT2/-1 $\r\n36. OFP      OUGV5,,,,,//S,N,CARDNO $\r\n37. ENDALTER $\r\n\r\n   The following notes are keyed to the cards with the corresponding numbers.\r\n\r\n2.    Computes direction cosine matrix [V] in Equation 2.\r\n3.    Creates a diagonal matrix, consisting of the diagonal of the modal mass\r\n      matrix, and inverts it. The new matrix is used in Equation 4.\r\n4.    Computes [M][] for later use.\r\n5.    Computes [][M][V] as described in Equation 2.\r\n6.    Computes matrix of participation factors [Pa] (Equation 4).\r\n7.    Computes effective masses and weights in Equation 6.\r\n8.    Creates a matrix of the information on the Real Eigenvalue Table for\r\n      later use in Equation 9.\r\n9.    Creates partitioning vectors which will be used to create a vector of\r\n      natural circular frequencies from a matrix of miscellaneous eigenvalue\r\n      results. Additionally, if the number of modes to be used in computing\r\n      maximum responses is less than the number computed in the normal modes\r\n      analysis, other partitioning vectors are created to reduce the orders of\r\n      a number of matrices.\r\n10.   Creates the vector of natural circular frequencies.\r\n11.   Compares the number of desired modes (LMODES) and the number of computed\r\n      modes (NMODES).\r\n12.   If LMODES >= NMODES, skips to 21.\r\n13-20.  Reduce orders of several matrices from NMODES to LMODES.\r\n22.   Computes shock spectrum design velocities and accelerations as given in\r\n      Equations 17 through 19. In addition, matrices corresponding to\r\n      Equations 20 and 21 are created for use in Equations 9 and 15,\r\n      respectively. If Equations 17 through 20 do not represent the desired\r\n      forms for velocities and accelerations, matrix MINAC or MINOW2 may be\r\n      directly specified on DMI bulk data cards and functional module DESVEL\r\n      may be deleted. MINAC and MINOW2 must be of order LMODES x L; LMODES is\r\n      explained in Section 1.16.3.3 above, and L is the number of desired\r\n      directions.\r\n23.   Creates the outer product of Equation 22.\r\n24.   Creates the matrix of Equation 23.\r\n25.   Computes the LMODES x L matrix of direction-dependent maximum responses.\r\n26.   Creates the LMODES x L static load matrix as in Equation 9.\r\n27.   Generates a new Case Control Data Table which includes the (LMODES x L)\r\n      subcases.\r\n29.   Computes stresses due to each maximum response.\r\n30.   Converts stresses in 29 from SORT1 to SORT2.\r\n31.   Computes the NRL sum or SQRSS stresses and forces for each requested\r\n      element.\r\n32.   Outputs the NRL sum or SQRSS stresses and forces to the printer and/or\r\n      punch, as requested in the Case Control Deck.\r\n33.   Computes various combinations of the component maximum responses.\r\n34-36.  Prepares and prints file of NRL sum displacements.\r\n\r\n1.16.4.2  Case Control Deck\r\n\r\n   Although the usual selections may be made, two requirements are imposed:\r\n\r\n   1. No subcases are to be specified.\r\n\r\n   2. Stress and force selections must request SORT2 format.\r\n\r\nThis last requirement will force all output selections; for example,\r\ndisplacements, applied loads, etc., to be in SORT2 format. Also, the NRL sum\r\n(or SQRSS) stresses and forces will be printed and/or punched, as requested in\r\nthe corresponding STRESS and FORCE requests.\r\n\r\n1.16.4.3  Bulk Data Deck\r\n\r\n   The values of a number of parameters special to DDAM must be specified. For\r\nthose parameters with no default values and for parameters for which the\r\ndefault values are to be overridden, PARAM bulk data cards will be required.\r\nThe parameters are as follows:\r\n\r\n   1. SHOCK - The non-negative integer value of this parameter is the\r\n      identification number of the coordinate system which defines the shock\r\n      direction. A non-zero value requires definition of the system on a\r\n      CORDij card. A zero value implies the basic coordinate system with shock\r\n      directions X, Y, and Z. The default value is zero. The value of SHOCK\r\n      should, in most cases, be the same as the displacement coordinate system\r\n      identification number for the grid points.\r\n\r\n   2. DIRECT - This parameter may have one of the following integer values: 1,\r\n      2, 3, 12, 13, 23, or 123. The default value is 123. The value of DIRECT\r\n      indicates which directions of coordinate system SHOCK are to be\r\n      considered. For example, if DIRECT = 123, then all three directions will\r\n      be used. If DIRECT = 13, only two directions will be used, the first and\r\n      the third.\r\n\r\n   3. GG - The real value of this parameter is the acceleration due to\r\n      gravity. The default value is 386.4.\r\n\r\n   4. LMODES - The integer value of this parameter is the number of lowest\r\n      modes to be used in the static analyses. This number may be less than\r\n      the number of modes computed in the normal modes analysis. No default\r\n      value is provided, so the value of this parameter must be given on a\r\n      PARAM bulk card or else a fatal message will result.\r\n\r\n   5. VEL1, VEL2, VEL3, VELA, VELB, VELC, ACC1, ACC2, ACC3, ACCA, ACCB, ACCC,\r\n      ACCD - The real values of these parameters control the computation of\r\n      the shock spectrum design values for velocity and acceleration. These\r\n      parameters are defined by Equations 17 through 19 and further explained\r\n      in Section 1.16.3.4. No default values for any of these parameters are\r\n      provided, so a PARAM bulk data card for each parameter must be included\r\n      in the Bulk Data Deck.\r\n\r\nREFERENCES\r\n\r\n1. Hurwitz, M. M., \"A Revision of the Dynamic Design-Analysis Method (DDAM) in\r\n   NASTRAN,\" David W. Taylor Naval Ship Research and Development Center,\r\n   DTNSRDC-82/107, December 1982.\r\n\r\n2. Belsheim, R. O. and O'Hara, G. J., \"Shock Design of Shipboard Equipment,\"\r\n   NAVSHIPS 250-423-30, May 1961.\r\n\r\n3. \"Shock Design Criteria for Surface Ships,\" Naval Sea Systems Command,\r\n   Report NAVSEA 0908-LP-000-3010, May 1976.\r\n=PAGE=\r\n1.17  PIEZOELECTRIC MODELING\r\n\r\n1.17.1  Introduction\r\n\r\n   The analysis of sonar transducers requires accounting for the effects of\r\ntheir piezoelectric materials. The theory for these materials couples\r\nstructural displacements to electric potentials. This theory has been\r\nincorporated into the finite element formulations of the TRAPAX and TRIAAX\r\nelements in NASTRAN. (See Reference 1 for details of the implementation.)\r\nThese elements, trapezoidal and triangular in cross-section respectively, are\r\nsolid, axisymmetric rings whose degrees-of-freedom are expanded into Fourier\r\nseries, thus allowing non-axisymmetric loads.\r\n\r\n1.17.2  Theory\r\n\r\n   The constitutive relations of a piezoelectric material may be written as\r\n\r\n                  E             \r\n      {}       [c ] [e]     {}\r\n           =                                                  (1)\r\n                   T     S      \r\n      {D}       [e]  - [ ]  {E}\r\n                                \r\n\r\nwhere\r\n\r\n                                                               T\r\n      {}  =  stress components =     ,  ,  ,  ,  ,   \r\n                                     rr  zz    rz  r  z \r\n\r\n                                                                    T\r\n      {D}  =  components of electric flux density =   D  ,D  ,D   \r\n                                                       rr  zz   \r\n\r\n      {}  =  mechanical strain components\r\n\r\n      {E}  =  electric field components\r\n\r\n        E\r\n      [c ] =  elastic stiffness tensor evaluated at constant electric field\r\n\r\n      [e]  =  piezoelectric tensor\r\n\r\n        S\r\n      [ ] =  dielectric tensor evaluated at constant mechanical strain\r\n\r\n   The displacement vector of a point within an element is taken to be\r\n\r\n                \r\n              u \r\n       _      v \r\n      {u}  =  w                                                   (2)\r\n               \r\n                \r\n\r\nwhere u, v, and w are the ring displacements in the radial, tangential, and\r\naxial directions, respectively, and  is the electric potential. The latter\r\ndegree-of-freedom is taken to be the fourth degree-of-freedom at each ring.\r\nEach of these quantities is expanded into a Fourier series with respect to the\r\nazimuth position . The Fourier series for the electric potential has the same\r\nform as the Fourier series for radial displacement u, as given in Section\r\n5.11.1 of the Theoretical Manual.\r\n\r\nThe \"stiffness\" matrix for the Nth harmonic is\r\n\r\n                                   E        \r\n                                 [c ]   [e] \r\n        (N)             (N) T                 (N)\r\n      [K   ]  =    | | [B   ]      T     S   [B   ] rdrdz        (3)\r\n                               [e]   -[ ]\r\n                    r z                     \r\n\r\nwhere [B(N)] is the matrix of \"strain\"-\"displacement\" coefficients for the Nth\r\nharmonic.\r\n\r\n   Equations 2 and 3 indicate that the matrix equation to be solved for static\r\nanalysis may be partitioned as follows:\r\n\r\n                                 \r\n      [K  ]  [K  ]  {}      {F}\r\n                     =                                   (4)\r\n      [K  ]  [K]    {}      {F}\r\n                            \r\n\r\nwhere\r\n\r\n                                        T\r\n      {}  =  u ,v ,w , ..., u ,v ,w  \r\n               1  1  1        n  n  n \r\n\r\n                            T\r\n      {d}  =   , ...,   \r\n               1        n \r\n\r\n      {F } =  vector of structural forces\r\n        \r\n\r\n      {F } =  vector of electrical charges\r\n        \r\n\r\nNote, however, that the program assumes that the electric potential i is the\r\nfourth degree-of-freedom of grid point i.\r\n\r\n   Both lumped and consistent mass matrices are available and are of standard\r\nstructural form; that is, the mass matrix does not couple the structural and\r\nelectrical unknowns. The structural damping matrix also is of standard\r\nstructural form. Both point charges and surface charges are also available.\r\n\r\n1.17.3  Input Data for Piezoelectric Modeling\r\n\r\n   Piezoelectric modeling requires some special input data. These include the\r\nspecification of a parameter on the NASTRAN card as well as the use of one or\r\nmore of four bulk data cards that pertain specifically to piezoelectric\r\nmodeling. In addition, some other bulk data cards are treated differently when\r\nused in piezoelectric modeling. The details are discussed in the following\r\nsections.\r\n\r\n1.17.3.1  NASTRAN Card\r\n\r\n   The NASTRAN card allows you to override various NASTRAN system parameters\r\nby defining specific words in the /SYSTEM/ COMMON block (see Section 2.1). The\r\n78th word of /SYSTEM/, that is, SYSTEM (78), has been set aside to indicate\r\nthe use of piezoelectric materials. The default value for SYSTEM(78) is zero,\r\nimplying that no piezoelectric materials are allowed. If SYSTEM(78) = 1,\r\npiezoelectric materials are allowed and coupling occurs between the structural\r\nand electric degrees-of-freedom. If SYSTEM(78) = 2, piezoelectric materials\r\nare allowed, but no coupling occurs and electrical effects are not taken into\r\naccount.\r\n\r\n   Setting SYSTEM(78) to its proper value is important for several reasons:\r\n\r\n   1. If SYSTEM(78) = 0, no piezoelectric materials are expected, and MATPZ1\r\n      and MATPZ2 cards (see Section 1.17.3.2) will not be searched.\r\n\r\n   2. If SYSTEM(78) does not equal 1, a negative ring identification number is\r\n      not allowed on the PRESAX card (see Section 1.17.3.2).\r\n\r\n   3. If SYSTEM(78) does not equal 1, NASTRAN will automatically constrain\r\n      degree-of-freedom 4 (the electric potential) at each ring for the zero\r\n      harmonic in the AXISYMMETRIC = COSINE case.\r\n\r\n   4. If SYSTEM(78) = 2, some time will be saved in generating the \"stiffness\"\r\n      matrix compared to the time for the SYSTEM(78) = 1 case.\r\n\r\n   5. If SYSTEM(78) does not equal 1, degrees-of-freedom 4, 5, and 6 must be\r\n      removed from the problem via SPCAX or RINGAX cards. If SYSTEM(78) = 1,\r\n      only degrees-of-freedom 5 and 6 must be removed.\r\n\r\n1.17.3.2  Bulk Data Deck\r\n\r\n   There are four bulk data cards that pertain specifically to piezoelectric\r\nmodeling. All these cards define piezoelectric material properties. These\r\nproperties are usually described by the following matrices:\r\n\r\n                                                  \r\n               SE11  SE12  SE13    0     0     0  \r\n        E      SE12  SE11  SE13    0     0     0  \r\n      [S ] =   SE13  SE13  SE33    0     0     0                  (5)\r\n                 0     0     0   SE44    0     0  \r\n                 0     0     0     0   SE44    0  \r\n                 0     0     0     0     0   SE66 \r\n                                                  \r\n\r\nwhere\r\n\r\n      SE66 = 2 ( SE11 - SE12 )\r\n\r\n                                                  \r\n                 0     0     0     0    d15    0  \r\n      [d]  =     0     0     0    d15    0     0                  (6)\r\n                d31   d31   d33    0     0     0  \r\n                                                  \r\n\r\n                                \r\n        S      S11    0     0  \r\n      [ ] =     0   S11    0                                    (7)\r\n                 0     0   S33 \r\n                                \r\n\r\n   The matrices in Equation 1 are computed as follows:\r\n\r\n        E        E -1\r\n      [c ]  =  [S ]                                                 (8)\r\n\r\n                    E\r\n      [e]   =  [d][c ]                                              (9)\r\n\r\nand [S] is given by Equation 7.\r\n\r\n   Two of the bulk data cards, MATPZ1 and MATPZ2, describe the piezoelectric\r\nmaterial properties in two different ways. MATPZ1 is used to specify the\r\nparameters in Equations 5 through 7. MATPZ2 is more general and allows you to\r\nenter the full matrices [cE], [e], and [S]. The only assumption concerning\r\nthese matrices is that [cE] and [S] are symmetric.\r\n\r\n   CAUTION: Piezoelectric electric material properties are usually specified\r\nwith respect to a standard set of material axes 1, 2, 3. For axisymmetric\r\nsolids, direction 1 coincides with the Z-axis and direction 2 coincides with\r\nthe -axis. Polarization direction 3 may vary in the R-Z plane and, for radial\r\npolarization, coincides with the R-axis. When a user specifies properties on a\r\nMATPZ1 card, the transformation from the 1, 2, 3 directions to the R, Z, \r\ndirections is performed by NASTRAN. However, such a transformation is not\r\nperformed by NASTRAN when the MATPZ2 card is used. Also, the ordering of the\r\ncomponents of the stress and strain vectors is somewhat different for\r\nconventional piezoelectric specifications and for NASTRAN. The difference is\r\nthat the ordering of the Z- and R-Z shears is interchanged. Once again,\r\nNASTRAN performs the transformation for MATPZ1, but not for MATPZ2.\r\n\r\n   The other two data cards, MTTPZ1 and MTTPZ2, allow the values on the MATPZ1\r\nand MATPZ2 cards to be temperature-dependent. (However, the TRAPAX and TRIAAX\r\nelements have not yet been modified to handle the combination of thermal loads\r\nand piezoelectric materials.)\r\n\r\n   Point and surface charges may be specified in piezoelectric modeling. These\r\ncharges are analogous to structural point loads and pressures, respectively,\r\nand are entered into {F} in Equation 4. Since the electric potential is\r\nassociated with degree-of-freedom 4, point charges may be applied to specific\r\nharmonics with MOMAX bulk data cards or may be specified by MOMENT, MOMENT1,\r\nor MOMENT2 cards applied to POINTAX points. In the latter case, the direction\r\nof the \"moment\" must be about the radial direction, that is, degree-of-freedom\r\n4. The MKS unit of the point charge is coulombs.\r\n\r\n   The PRESAX bulk data card is used to specify surface charges. However, in\r\norder to distinguish between surface charges and structural pressure loads\r\nwithin the same problem, the first-specified ring identification number on the\r\nPRESAX card (field 4) must be made negative if a surface charge is desired. A\r\nnegative ring identification number is, however, allowed only when the\r\nparameter SYSTEM(78) is set to 1 on the NASTRAN card.\r\n\r\n1.17.4  Notes on Piezoelectric Modeling\r\n\r\n   The following notes summarize the important points about piezoelectric\r\nmodeling and should prove helpful to you.\r\n\r\n   1. In order to use piezoelectric materials, SYSTEM(78) must be set to 1 or\r\n      2 on the NASTRAN card. (The default value is 0.) A value of 1 indicates\r\n      electrical-structural coupling and a value of 2 allows the use of\r\n      piezoelectric materials, but does not take into account any electrical\r\n      effects. The latter case requires that the degrees-of-freedom\r\n      corresponding to the electric potential be constrained.\r\n\r\n   2. The electric potential at each ring is considered to be\r\n      degree-of-freedom 4. Degrees-of-freedom 5 and 6 always have zero\r\n      stiffness and must be removed from the problem with SPCAX or RINGAX\r\n      cards. (Degree-of-freedom 4 must also be removed if SYSTEM(78) = 2.)\r\n      Electroded surfaces (surfaces of constant potential) may be specified\r\n      with MPCAX cards.\r\n\r\n   3. Only TRAPAX and TRIAAX elements may reference piezoelectric material\r\n      cards MATPZ1 and MATPZ2.\r\n\r\n   4. Standard material cards MAT1 and MAT3 are allowed in problems which also\r\n      contain piezoelectric materials.\r\n\r\n   5. The SE and d values on MATPZ1 cards will be multiplied by 10-12 by\r\n      NASTRAN. Also, the value of 0 is fixed in NASTRAN as 8.854 x 10-12\r\n      farad/meter.\r\n\r\n   6. As may be seen from Equation 3, the lower right-hand portion of the\r\n      stiffness matrix is negative-definite. This situation does not affect\r\n      NASTRAN execution except that grid point singularity warning messages\r\n      are issued for all unconstrained electric potentials.\r\n\r\n   7. To specify surface charge loads, the first ring identification number on\r\n      the PRESAX card (field 4) must be negative. This format change will\r\n      allow NASTRAN to distinguish between electrical charges and structural\r\n      pressures within a piezoelectric run. However, this change is allowed\r\n      only when SYSTEM(78) = 1.\r\n\r\n   8. Lumped mass and consistent mass are available for TRAPAX and TRIAAX\r\n      elements. The mass associated with the electric potential\r\n      degree-of-freedom is zero. Therefore, if a normal modes analysis by\r\n      GIVENS method is run, all unconstrained electric potentials must appear\r\n      on OMIT cards.\r\n\r\n   9. If a structural damping coefficient is specified on a MATPZ1 or MATPZ2\r\n      card in a dynamics problem, the terms of the resulting structural\r\n      damping matrix corresponding to electric potentials will be zero. The\r\n      uniform structural damping parameter G in direct frequency response\r\n      problems should not be used, since its use will result in structural\r\n      damping terms corresponding to the electric potentials.\r\n\r\n   10.  Earlier versions of NASTRAN could not handle stresses or forces,\r\n        whether real or complex, in axisymmetric (AXIC) dynamics problems.\r\n        However, NASTRAN can now handle all such cases for the TRAPAX and\r\n        TRIAAX finite elements.\r\n\r\n   11.  Material properties specified on MATPZ1 cards are transformed by\r\n        NASTRAN from the standard 1, 2, 3 material directions to the R, Z, \r\n        directions. Also, the transformation required due to a switch in the\r\n        order of the R-Z and Z- shears between conventional specifications\r\n        and NASTRAN is performed for MATPZ1 properties. However, material\r\n        properties on MATPZ2 cards are used by NASTRAN as they appear on the\r\n        card. Therefore, any required transformation must be performed by\r\n        you.\r\n\r\nREFERENCE\r\n\r\n1. Lipman, R. R., and Hurwitz, M. M., \"Piezoelectric Finite Elements for\r\n   NASTRAN,\" David W. Taylor Naval Ship Research and Development Center,\r\n   Report Number DTNSRDC-80/045, April 1980.\r\n=PAGE=\r\n1.18  FORCED VIBRATION ANALYSIS OF ROTATING CYCLIC STRUCTURES AND\r\nTURBOSYSTEMS\r\n\r\n1.18.1  Introduction\r\n\r\n   Forced vibration analysis of rotating cyclic structures and turbosystems\r\ncan be conducted using the capability described in this section. Two types of\r\nanalyses are possible, and they are both accomplished by means of extensive\r\nDMAP ALTERs that have been developed for use with the Displacement Approach\r\nRigid Format 8 (DISP APP R.F. 8) and are supplied with the program as two DMAP\r\nALTER packages. Special functional modules for computing Coriolis,\r\ncentripetal, and base acceleration terms, and bulk data parameters specific to\r\nthese analyses are some of the features of these two DMAP ALTER packages. It\r\nis to be noted here that the capability is valid for tuned cyclic structures,\r\nthat is, structures composed of cyclic sectors or segments that have identical\r\nmass, damping, stiffness, and constraint properties.\r\n\r\n   The first type of analysis is very general. It involves the direct forced\r\nvibration analysis of rotating cyclic structures and is accomplished by the\r\nuse of the COSDFVA DMAP ALTER package. It is described in Section 1.18.5. This\r\ncapability is based on the work described in References 1 and 2.\r\n\r\n   The second type of analysis is more specific. It involves the modal forced\r\nvibration analysis of aerodynamically excited turbosystems and is accomplished\r\nby the use of the COSMFVA DMAP ALTER package. It is described in Section\r\n1.18.6. This capability is based on the work described in References 3 and 4.\r\n\r\n1.18.2  Problem Formulation\r\n\r\n   The forced vibration response of a tuned rotating cyclic structure or an\r\naerodynamically excited turbosystem is collectively described by the following\r\nequations of motion:\r\n\r\n        n   ..n       n         n    .n\r\n      [M ] {u  } + [[B ] + 2 [B ]] {u }\r\n                                1\r\n\r\n                       n       n\r\n                      e       d      2   n     n      n    n\r\n                 + [[K  ] + [K  ] -   [M ]] {u } - [Q ] {u }\r\n                                         1\r\n\r\n                     n aero.     n non-aero.     n    ..\r\n                 = {P }      + {P }          - [M ] {R }            (1)\r\n                                                 2     o\r\n\r\n        n            n+1\r\n      {u }       = {u   }                                           (2)\r\n          side 2         side 1,\r\n\r\nfor n = 1, 2,..., N,\r\n\r\nwhere n is the cyclic sector number and N is the number of cyclic sectors (or\r\nblades) in the structure. The cyclic sector numbers and their sides referred\r\nto in Equation 2 above are illustrated in Figure 1.18-1. (See Section 1.12 for\r\na discussion of cyclic symmetry.)\r\n\r\n   In the above equations, {un} represents the vibratory displacements in the\r\nnth cyclic sector superposed on the steady-state deformed shape. The other\r\nterms in the equations have the following meanings. (The superscript n\r\nindicating the cyclic sector number has been left out for convenience. The\r\nspecific terms that are retained for the direct forced vibration analysis of\r\nrotating cyclic structures and for the modal forced vibration analysis of\r\naerodynamically excited turbosystems are indicated in Sections 1.18.5 and\r\n1.18.6, respectively.)\r\n\r\n      [M]            Mass matrix\r\n\r\n      [M ]           Centripetal acceleration coefficient matrix\r\n        1\r\n\r\n      [M ]           Base acceleration coefficient matrix\r\n        2\r\n\r\n      [B]            Viscous damping matrix\r\n\r\n      [B ]           Coriolis acceleration coefficient matrix\r\n        1\r\n\r\n        e\r\n      [K ]           Elastic stiffness matrix\r\n\r\n        d\r\n      [K ]           Differential stiffness matrix\r\n\r\n         aero\r\n      {P}            Aerodynamic load vector\r\n\r\n         non-aero\r\n      {P}            Non-aerodynamic load vector\r\n\r\n      [Q]            Aerodynamic matrix\r\n\r\n       ..\r\n      [R ]           Base acceleration vector\r\n        o\r\n\r\n                    Rotational velocity\r\n\r\n   The forced vibration response of the tuned cyclic structure can be grouped\r\nin terms of several uncoupled sets, with each set corresponding to a\r\npermissible circumferential harmonic index, k. Except for k = 0 and k = N/2 (N\r\neven), the cyclic response can be further separated into cosine and sine\r\ncomponents. For k = 0 and k = N/2, only cosine components are defined. (See\r\nSection 4.5 of the Theoretical Manual.)\r\n\r\n1.18.3  Coordinate Systems\r\n\r\n   In order to conveniently pose and solve the forced vibration problem of\r\ngeneral rotating cyclic structures as well as aerodynamically excited\r\nturbosystems, a number of coordinate systems are employed. These are described\r\nbelow. Figure 1.18-2 illustrates the use of these coordinate systems for a\r\nbladed disc and Figure 1.18-3 illustrates these for an advanced turbopropeller\r\nwith its axis of rotation at an angle with respect to the tunnel mean flow.\r\n=PAGE=\r\n      1.Vector  is the angular velocity of the XBYBZB (Basic) coordinate\r\n        system with respect to the XIYIZI (Inertial) coordinate system.\r\n\r\n      2.Sector n = 1 is always the modeled sector.\r\n\r\n      3.Sector numbers, and side numbers within a sector, increase in the\r\n        direction of |t|.\r\n\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n          Figure 1.18-1. Cyclic sector and side numbering convention\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.18-2. NASTRAN model of a 12-bladed disc showing the coordinate systems\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n Figure 1.18-3. Coordinate systems for an aerodynamically excited turbosystem\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.18-4. Turboprop axis inclination angle and tunnel coordinate system\r\norientation in uniform inflow case\r\n=PAGE=\r\n   The following coordinate systems are used for general rotating cyclic\r\nstructures as well as aerodynamically excited turbosystems.\r\n\r\nXIYIZI  Inertial coordinate system\r\n\r\n        In the case of general rotating cyclic structures, this coordinate\r\n        system is used to specify the base acceleration in terms of the\r\n        translational accelerations of the axis of rotation. In the case of\r\n        aerodynamically excited turbosystems, this coordinate system is used\r\n        to relate the quantities in the tunnel and the basic coordinate\r\n        systems (described later). The orientation of this coordinate system\r\n        is completely arbitrary except for the XI axis to be parallel to, and\r\n        in the direction of, the XB axis of the basic coordinate system\r\n        described next. The zero reference for time/phase measurements is\r\n        defined when the inertial and the basic coordinate systems are\r\n        parallel.\r\n\r\nXBYBZB  Basic coordinate system\r\n\r\n        This coordinate system is fixed to the rotating cyclic structure or\r\n        the turbosystem and has its XB axis coincident with the axis of\r\n        rotation, and directed aftward. The location of the origin is\r\n        arbitrary. The XBZB plane contains (approximately) the maximum\r\n        planform of the modeled cyclic sector (or blade). In the case of\r\n        aerodynamically excited turbosystems, the definition of this\r\n        coordinate system is consistent with the theoretical developments of\r\n        the two-dimensional cascade unsteady aerodynamics presently\r\n        incorporated in NASTRAN (Reference 3).\r\n\r\nXGYGZG  Grid point location and displacement coordinate systems\r\n\r\n        All of these coordinate systems are fixed to the rotating cyclic\r\n        structure or the turbosystem. Any number of such rectangular,\r\n        cylindrical, or spherical coordinate systems can be completely\r\n        arbitrarily defined to locate grid points of the NASTRAN model, as\r\n        well as to request output at these grid points. All of the XGYGZG\r\n        coordinate systems used for output requests collectively form the\r\n        NASTRAN global coordinates system.\r\n\r\n   The following coordinate systems are used specifically when modeling\r\naerodynamically excited turbosystems.\r\n\r\nXTYTZT  Tunnel coordinate system\r\n\r\n        This is defined to conveniently specify the velocity components of\r\n        the spatially non-uniform tunnel free stream. It can be suitably\r\n        oriented based on the available tunnel data.\r\n\r\n        In the special case of aerodynamic excitation in uniform inflow, the\r\n        tunnel coordinate system is oriented such that the XTZT plane is\r\n        parallel to the XIZI plane of the inertial coordinate system as shown\r\n        in Figure 1.18-4. The origin of the XTYTZT system is arbitrarily\r\n        located. The inclination angle of the turbosystem axis of rotation\r\n        with respect to the tunnel flow also lies in a plane parallel to XIZI\r\n        plane. The uniform flow is directed along the +XT axis.\r\n\r\nXSYSZS  (Blade) Shank-fixed coordinate system\r\n\r\n        The principal advantage of this shank-fixed coordinate system is in\r\n        modeling changes in the blade setting angles by a simple 3 x 3\r\n        transformation matrix relating to the basic coordinate system. ZS\r\n        coincides with the blade shank axis. The definition of the coordinate\r\n        system is otherwise arbitrary.\r\n\r\nxsyszs     Internally generated coordinate system on swept chord s\r\n\r\n        This coordinate system is internally generated in NASTRAN and is used\r\n        to define the flow and motion properties for the unsteady aerodynamic\r\n        theories on a given swept chord s. It is located at the blade leading\r\n        edge with the xs directed aftward along the chord s. ys is defined\r\n        normal to the blade local mean surface.\r\n\r\n1.18.4  Structural Modeling of Rotating Cyclic Structures and Turbosystems\r\n\r\n   In both types of analyses referred to above, you model only one\r\nrotationally cyclic sector (or segment) of the entire structure (or\r\nturbosystem) as shown in Figures 1.18-2 and 1.18-3. This modeled sector is\r\nconsidered the n = 1 sector. Each cyclic sector is defined with two sides\r\nwhich identify its boundaries with the two adjacent cyclic sectors (Figure\r\n1.18-1).\r\n\r\n   The side 2 degrees of freedom are related to those on side 1 via the\r\ncircumferential harmonic index. The modeling of rigid hub/disk conditions is\r\naccomplished by completely constraining all degrees of freedom on both sides\r\nof the cyclic sector to zero. Although the circumferential harmonic index is\r\nirrelevant in such situations, it should be selected as zero for computational\r\nefficiency.\r\n\r\n   The structural model is prepared using the general capabilities of NASTRAN\r\nfor modeling rotationally cyclic structures (see Section 1.12; see also\r\nSection 4.5 of the Theoretical Manual).\r\n\r\n1.18.5  Direct Forced Vibration Analysis of Rotating Cyclic Structures\r\n\r\n   This capability addresses the dynamic response of a cyclic structure\r\nrotating about its axis of symmetry at a constant angular velocity, and\r\nsubjected to sinusoidal or general periodic loads moving with the structure.\r\nIn addition, the axis of rotation itself is permitted translational\r\noscillations resulting in inertial loads. Coriolis and centripetal\r\nacceleration effects are also included.\r\n\r\n   Referring to Equation 1 in Section 1.18.2, all but the [Q]{u} and {P}aero\r\nterms are retained in the analysis.\r\n\r\n   Figure 1.18-5 presents a schematic flowchart of this capability.\r\n\r\n   The theoretical development of this capability is discussed in detail in\r\nReference 1. Complete details of the implementation of the capability in an\r\nearlier version of NASTRAN are given in Reference 2.\r\n\r\n1.18.5.1  Modeling Features\r\n\r\n   The rotating structure can be loaded with steady-state sinusoidal or\r\ngeneral periodic loads as follows:\r\n\r\n   1. Directly applied loads moving with the structure, and\r\n\r\n   2. Inertial loads due to the translational acceleration of the axis of\r\n      rotation (\"base\" acceleration).\r\n\r\n   Sinusoidal loads are specified as functions of frequency using RLOADi bulk\r\ndata cards. General periodic loads are specified as functions of time using\r\nTLOADi bulk data cards.\r\n\r\n   The following options are provided to specify the form of excitation.\r\n\r\n   Directly applied loads may be specified as:\r\n\r\n   - periodic functions of time on various segments (PARAM CYCIO = +1)\r\n\r\n   - periodic functions of time for various circumferential harmonic indices\r\n(PARAM CYCIO = -1)\r\n\r\n   - functions of frequency on various segments (PARAM CYCIO = +1)\r\n\r\n   - functions of frequency for various circumferential harmonic indices\r\n(PARAM CYCIO = -1)\r\n=PAGE=\r\n                                      ENTER\r\n                                        \r\n                       Ŀ\r\n                          Finite element model of one  \r\n                           cyclic sector, rotational   \r\n                           speed, constraints, loads   \r\n                       \r\n                                        \r\nĿ       Ŀ\r\n Differential            Generation of stiffness,    \r\n  Stiffness   Ĵ        mass and damping        \r\n   Matrix                        matrices            \r\n       \r\n                                        \r\n                       Ŀ\r\n                        Application of constraints and \r\n                        partitioning to stiffness, mass\r\n                             and damping matrices      \r\n                       \r\n                                        \r\n\r\n           Frequency dependent       Type of      General, periodic in time\r\n                   Applied Loads   Ŀ\r\n                                                          \r\nCircumferential                      Circumferential      \r\nHarmonic               Segment       Harmonic                    Segment\r\nDependent    Type of    Dependent     Dependent          Type of   Dependent\r\n     Input/Output Ŀ                Input/Output Ŀ\r\n                                                                   \r\n                                  Ŀ      Ŀ\r\n                                  Fourier decomp.        Fourier decomp.  \r\n                                  Phase 1 (time)         Phase 1 (time)   \r\n                                        \r\n                                                                   \r\n                   Ŀ                     Ŀ\r\n                   Fourier decomp.                       Fourier decomp.  \r\n                   Phase 2 (circum.)                     Phase 2 (circum.)\r\n                                        \r\n                                                                   \r\n                                                                   \r\n    \r\n                                       \r\n                                       \r\n                       Ŀ\r\n                        Application of constraints and \r\n                         partitioning to load matrices \r\n                       \r\n                                       \r\n                                       A\r\n\r\n\r\nFigure 1.18-5a. Overall flowchart for direct forced vibration analysis of\r\nrotating cyclic structures\r\n=PAGE=\r\n                                        A\r\n                                        \r\n                                        \r\n\r\n                                  Selection of\r\n           circumferential harmonic\r\n                                   index, k\r\n                                 k   <= k <= k\r\n                                  min         max\r\n                                       \r\n                                       \r\n               Ŀ\r\n                  Application of intersegment compatibility   \r\n                   constraints to stiffness, mass, damping    \r\n                              and load matrices               \r\n               \r\n                                       \r\n                                       \r\n               Ŀ\r\n                           Solution of independent            \r\n                           harmonic displacements             \r\n               \r\n                                       \r\n                                       \r\n                        No\r\n           Increment k by 1\r\n                                   k > k    ?\r\n                                        max\r\n\r\n                                         Yes\r\n                                        \r\n                Ŀ\r\n                   Recovery of segment-dependent independent   \r\n                 displacements (Inverse Phase 2, if necessary) \r\n                \r\n                                        \r\n                Ŀ\r\n                       Recover of dependent displacements      \r\n                \r\n                                        \r\n                Ŀ\r\n                      Output requests for displacements,       \r\n                         stresses, loads, plots, etc.          \r\n                \r\n                                        \r\n                                        \r\n                                       EXIT\r\n\r\n\r\nFigure 1.18-5b. Overall flowchart for direct forced vibration analysis of\r\nrotating cyclic structures\r\n=PAGE=\r\n   Base acceleration is specified as:\r\n\r\n   - function of frequency (PARAM CYCIO = -1 only)\r\n\r\n   The base acceleration refers to the translational acceleration of the axis\r\nof rotation and is specified in the inertial coordinate system (see Section\r\n1.18.3). You specify the X, Y, and Z components (magnitude and phase) of the\r\nbase acceleration vector as functions of frequency on TABLEDi bulk data cards.\r\nThe use of these tables is activated by the bulk data parameters BXTID,\r\nBXPTID, BYTID, BYPTID, BZTID, and BZPTID.\r\n\r\n   You are provided with two options to include damping by specifying the form\r\nof the Kdd, Bdd, and Mdd matrices in the functional module GKAD as per\r\nequations 16 through 21 in Section 9.3.3 of the Theoretical Manual. Bulk data\r\nparameters GKAD and LGKAD have been defined for this purpose.\r\n\r\n   Section 1.18.5.4 describes all of the bulk data parameters applicable to\r\nthis capability.\r\n\r\n1.18.5.2  Executive Control Deck\r\n\r\n   The salient points are noted as follows:\r\n\r\n   1. APP DISP and SOL 8 must be selected.\r\n\r\n   2. The DMAP ALTER package, COSDFVA (COSMIC-supplied Direct Forced Vibration\r\n      Analysis of rotating cyclic structures), must be included. The READFILE\r\n      capability of NASTRAN (see Section 2.0.2) can be utilized for this\r\n      purpose as follows:\r\n\r\n        READFILE COSDFVA\r\n\r\n1.18.5.3  Case Control Deck\r\n\r\n   The subcase definitions and the selection of other data items for the Case\r\nControl Deck are discussed below.\r\n1.18.5.3.1  Subcase Definitions\r\n\r\n   The bulk data parameters CYCIO (= +/- 1) and KMAX (>= 0, <= NSEGS/2 for\r\neven NSEGS, <= (NSEGS - 1)/2 for odd NSEGS, where NSEGS is the number of\r\ncyclic sectors or segments) determine the number, order and meaning of\r\nsubcases as follows:\r\n\r\n   CYCIO = +1\r\n\r\n   The number of subcases is equal to NSEGS, independent of KMAX.\r\n\r\n   SUBCASE 1 (SEGMENT NO. 1)\r\n   SUBCASE 2 (SEGMENT NO. 2)\r\n   SUBCASE NSEGS (SEGMENT NO. NSEGS)\r\n\r\n   CYCIO = -1\r\n\r\n   The number of subcases is equal to FKMAX, where\r\n\r\n   FKMAX = 1, if KMAX = 0\r\n         = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS - 1)/2, NSEGS odd,\r\n         = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS - 2)/2, NSEGS even, and\r\n         = NSEGS, if KMAX = NSEGS/2, NSEGS even.\r\n\r\n   SUBCASE 1 (\"k\" = 0)\r\n   SUBCASE 2 (\"k\" = 1c)\r\n   SUBCASE 3 (\"k\" = 1s)\r\n   SUBCASE 4 (\"k\" = 2c)\r\n   SUBCASE 5 (\"k\" = 2s)\r\n      :\r\n      :\r\n   SUBCASE FKMAX (\"k\" = KMAXs)\r\n\r\n   If NSEGS is even and KMAX = NSEGS/2, Subcase FKMAX will represent \"k\" =\r\nKMAXc, as KMAXs does not exist.\r\n\r\n   Directly applied loads on various segments (CYCIO = +1) or their\r\ncircumferential harmonic components (CYCIO = -1) are specified under the\r\nappropriate subcases. With RLOADi bulk data cards, null loads need not be\r\nspecified by you. With TLOADi bulk data cards, you are required to provide\r\ninformation to generate null loads where applicable.\r\n\r\n   Base acceleration is included only when CYCIO = -1. Based on the activating\r\nPARAMeters BXTID etc., the corresponding inertial loads are internally\r\ncalculated and assigned to \"k\" = 0, 1c, and 1s as applicable.\r\n\r\n1.18.5.3.2  Other Data Selection Items\r\n\r\n   1. The SPC and MPC request must appear above the subcase level and may not\r\n      be changed.\r\n\r\n   2. Either FREQUENCY or TSTEP must be selected and must be above the subcase\r\n      level.\r\n\r\n   3. If selected, FREQUENCY must be used to select one and only one FREQ,\r\n      FREQ1, or FREQ2 card from the Bulk Data Deck.\r\n\r\n   4. If selected, TSTEP must be used to select the time-steps to be used for\r\n      load definition via a TSTEP card in the Bulk Data Deck.\r\n\r\n   5. Direct input matrices are not allowed.\r\n\r\n   6. OFREQ must not be used.\r\n\r\n   7. DLOAD must be used to define a frequency-dependent or time-dependent\r\n      loading condition for each subcase. For frequency-dependent loads,\r\n      subcases without loads need not refer to a DLOAD card. For\r\n      time-dependent loads, subcases without loads must refer to a DLOAD card\r\n      that explicitly generates a null load.\r\n\r\n   8. If random response calculations are desired, RANDOM must be used to\r\n      select RANDPS and RANDTi cards from the Bulk Data Deck.\r\n\r\n   The following printed output, sorted by frequency (SORT1) or by point\r\nnumber or element number (SORT2), is available, either as real and imaginary\r\nparts or magnitude and phase angle (0 - 360 degree lead), for the list of\r\nfrequencies specified:\r\n\r\n   1. Displacements, velocities and accelerations for a list of PHYSICAL\r\n      points (grid points and extra scalar points introduced for dynamic\r\n      analysis) or SOLUTION points (points used in formulation of the general\r\n      K system).\r\n\r\n   2. Nonzero components of the applied load vector and single-point forces of\r\n      constraint for a list of PHYSICAL points.\r\n\r\n   3. Stresses and forces in selected elements (ALL available only for SORT1).\r\n\r\n   The following plotter output is available for frequency response\r\ncalculations:\r\n\r\n   1. Undeformed plot of the structural model.\r\n\r\n   2. X-Y plot of any component of displacement, velocity, or acceleration of\r\n      a PHYSICAL point or SOLUTION point.\r\n\r\n   3. X-Y plot of any component of the applied load vector or single-point\r\n      force of constraint.\r\n\r\n   4. X-Y plot of any stress or force component for an element.\r\n\r\n   The following plotter output is available for random response calculations:\r\n\r\n   1. X-Y plot of the power spectral density versus frequency for the response\r\n      of selected components for points or elements.\r\n\r\n   2. X-Y plot of the autocorrelation versus time lag for the response of\r\n      selected components for points or elements.\r\n\r\nThe data used for preparing X-Y plots may be punched or printed in tabular\r\nform (see Section 4.3). This is the only form of printed output that is\r\navailable for random response. Also, a printed summary is prepared for each\r\nX-Y plot which includes the maximum and minimum values of the plotted\r\nfunction.\r\n\r\n1.18.5.4  Bulk Data Deck\r\n\r\n   The bulk data parameters under user control are described in Section\r\n1.18.5.4.1. The usage of certain bulk data cards is discussed in Section\r\n1.18.5.4.2.\r\n\r\n   The bulk data parameters CYCSEQ, CTYPE, and NLOAD, normally under user\r\ncontrol when using the cyclic symmetry feature, are not to be specified by you\r\nin the present case as they either have fixed values assigned to them or are\r\ninternally computed. This is discussed below.\r\n\r\n   The integer value of CYCSEQ parameter specifies the procedure for\r\nsequencing the equations in the solution set. A value of +1 specifies that all\r\ncosine terms are to be sequenced before all sine terms, and a value of -1\r\nspecifies alternating cosine and sine terms. The value has been set to -1.\r\n\r\n   The alphanumeric (BCD) value of the CTYPE parameter specifies the type of\r\ncyclic symmetry (rotational or dihedral symmetry). The value has been set to\r\nROT to indicate rotational cyclic symmetry.\r\n\r\n   The integer value of NLOAD specifies the number of loading conditions. This\r\nvalue is internally computed.\r\n\r\n1.18.5.4.1  Bulk Data Parameters\r\n\r\n   The following bulk data parameters are used in the direct forced vibration\r\nanalysis of rotating cyclic structures:\r\n\r\n   1. BXTID, BYTID, BZTID, BXPTID, BYPTID, BZPTID - optional. The positive\r\n      integer values of these parameters define the set identification numbers\r\n      of TABLEDi bulk data cards which define the components of the base\r\n      acceleration vector. The tables referred to by BXTID, BYTID, and BZTID\r\n      define the magnitude of the vector, and the tables referred to by\r\n      BXPTID, BYPTID, and BZPTID define the phase (in degrees) of the vector.\r\n      The default values are -1, indicating that the respective terms are\r\n      ignored.\r\n\r\n   2. COUPMASS - CPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE,\r\n      CPQDPLT, CPTRPLT, CPTRBSC - not to be used. These parameters are not to\r\n      be specified by you, as only lumped mass matrices must be used.\r\n\r\n   3. CYCIO - required. The integer value of this parameter specifies the form\r\n      of the input and output data. A value of +1 is used to specify physical\r\n      segment representation, and a value of -1 for cyclic transform\r\n      representation. There is no default. A value must be input.\r\n\r\n   4. G - optional. The real value of this parameter is used as a uniform\r\n      structural damping coefficient in the formulation of dynamics problems.\r\n      Not recommended for use in hydroelastic problems (use GE on MAT1).\r\n\r\n   5. GKAD - optional. The BCD value of this parameter is used to tell the\r\n      GKAD module the desired form of the matrices KDD, BDD, and MDD. The BCD\r\n      value can be FREQRESP or TRANRESP. The default value is TRANRESP.\r\n\r\n      NOTE: Remember to define the parameters G, W3, and W4. See Section 9.3.3\r\n      (Direct Dynamic Matrix Assembly) of the Theoretical Manual for further\r\n      details.\r\n\r\n   6. GRDPNT - optional. A positive integer value of this parameter causes the\r\n      Grid Point Weight Generator to be executed and the resulting weight and\r\n      balance information to be printed. All fluid related masses are ignored.\r\n\r\n   7. KMAX - required. The integer value of this parameter specifies the\r\n      maximum value of the harmonic index, and is used in subcase definition.\r\n      There is no default for this parameter. A value must be input. The\r\n      maximum value that can be specified is NSEGS/2.\r\n\r\n   8. KMIN - optional. The integer value of this parameter specifies the\r\n      minimum value of the conic index to be used in the solution loop. KMIN\r\n      can equal KMAX. The default value is 0.\r\n\r\n   9. LGKAD - optional. The integer value of this parameter is used in\r\n      conjunction with parameter GKAD. If GKAD = FREQRESP, set LGKAD = 1; if\r\n      GKAD = TRANRESP, set LGKAD = -1. The default value is -1.\r\n\r\n   10.  LMAX - optional. The integer value of this parameter specifies the\r\n        maximum harmonic in the Fourier decomposition of periodic,\r\n        time-dependent loads. The default value is NTSTEPS/2, where NTSTEPS\r\n        equals N (from TSTEP bulk data card) plus 2.\r\n\r\n   11.  NOKPRT - optional. An integer value of +1 for this parameter causes\r\n        the current harmonic index, KINDEX, to be printed at the top of the\r\n        harmonic loop. The default value is +1.\r\n\r\n   12.  NSEGS - required. The integer value of this parameter is the number\r\n        of identical segments in the structural model. There is no default. A\r\n        value must be input.\r\n\r\n   13.  RPS - optional. The real value of this parameter defines the\r\n        rotational speed of the structure in revolutions per unit time. The\r\n        default value is 0.0.\r\n\r\n   14.  W3 - optional. The real value of this parameter is used as a pivotal\r\n        frequency for uniform structural damping if parameter GKAD =\r\n        TRANRESP. In this case, W3 is required if uniform structural damping\r\n        is desired. The default value is 0.0.\r\n\r\n   15.  W4 - optional. The real value of this parameter is used as a pivotal\r\n        frequency for element structural damping if parameter GKAD =\r\n        TRANRESP. In this case, W4 is required if structural damping is\r\n        desired for any of the structural elements. The default value is 0.0.\r\n\r\n   16.  WTMASS - optional. The terms of the structural mass matrix are\r\n        multiplied by the real value of this parameter when they are\r\n        generated in the EMA. Not recommended for use in hydroelastic\r\n        problems.\r\n\r\n1.18.5.4.2  Usage of Certain Bulk Data Cards\r\n\r\n   The following items relate to restrictions on certain bulk data cards:\r\n\r\n   1. SUPORT cards are not allowed.\r\n\r\n   2. EPOINT cards are not allowed.\r\n\r\n   3. SPOINT cards are not allowed.\r\n\r\n   4. CYJOIN cards are required.\r\n\r\n   5. If a TSTEP bulk data card is used, then it must not be continued, since\r\n      only one uniform time step interval must be specified. The skip factor\r\n      for output, NO, on this card must be 1.\r\n\r\n1.18.6  Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems\r\n\r\n   This capability is designed to perform modal forced vibration analysis of\r\nturbosystems subjected to aerodynamic excitation.\r\n\r\n   Single- and counter-rotating advanced turboprops with significantly swept\r\nblades (see Figure 1.18-3), and axial-flow compressors and turbines are\r\nexamples of turbosystems that can be analyzed using this capability.\r\n\r\n   Generally non-uniform steady inflow fields and uniform flow fields\r\narbitrarily inclined at small angles with respect to the axis of rotation of\r\nthe turbosystem are considered as the aerodynamic sources of excitation.\r\nSubsonic and supersonic relative inflows are recognized, with a provision for\r\nlinearly interpolating transonic aerodynamic loads.\r\n\r\n   Although the absolute inflow field does not change with time, the rotation\r\nof the turbosystem results in velocities with oscillatory components relative\r\nto the blades. Relative velocities with harmonic components at the rotational\r\nfrequency also exist in uniform flow fields when the turbosystem axis of\r\nrotation is misaligned with the absolute flow direction.\r\n\r\n   The capability has the following features:\r\n\r\n   1. Turbosystems with both rigid and flexible hubs/disks can be handled.\r\n\r\n   2. Differential stiffness effects due to centrifugal loads and any\r\n      (externally specified) steady state airloads are included.\r\n\r\n   3. Coriolis and centripetal acceleration (stiffness softening) effects are\r\n      taken into account.\r\n\r\n   4. Aerodynamic modeling is essentially dictated by the unsteady aerodynamic\r\n      theories used to determine the unsteady blade loading distribution. Due\r\n      to the use of two-dimensional cascade aerodynamic theories, the blade\r\n      aerodynamic model comprises a series of chordwise strips stacked\r\n      spanwise to cover the entire blade surface as shown in Figure 1.18-6.\r\n\r\n   5. Two-dimensional subsonic and supersonic cascade aerodynamic theories are\r\n      utilized for generating the reactionary airloads on turbosystem blades\r\n      due to oscillatory blade motions. Blade sweep effects are included in\r\n      both cases. Transonic airloads are linearly interpolated.\r\n\r\n   6. Externally specified aerodynamic loads can be applied to any degree of\r\n      freedom of the structural model. These degrees of freedom are not\r\n      restricted to those used in generating reactionary airloads mentioned\r\n      above.\r\n\r\nReferring to Equation 1 in Section 1.18.2, all but the [M2]{Ro} and {P}non-aero\r\nterms are retained in the analysis. Real cyclic modes of a user-selected\r\ncircumferential harmonic index are used to pose and solve the problem.\r\n\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.18-6. NASTRAN aerodynamic model of turboprop blade for 2-D cascade\r\ntheories\r\n=PAGE=\r\n   Figure 1.18-7 presents a schematic flowchart of this capability.\r\n\r\n   The theoretical development of this capability is discussed in detail in\r\nReference 3. Complete details of the implementation of the capability in an\r\nearlier version of NASTRAN are given in Reference 4.\r\n\r\n   The problem of determining the applied oscillatory airloads on the\r\nturbosystem blades has been addressed in a stand-alone development outside,\r\nand independent of, NASTRAN. However, this stand-alone program, called\r\nAIRLOADS, can also function as a pre-processor to NASTRAN analyses. It is\r\navailable from COSMIC and is discussed in detail in Reference 5.\r\n\r\n1.18.6.1  Modeling Features\r\n\r\n   The structural model is prepared using the general capabilities of NASTRAN\r\nfor modeling rotationally cyclic structures as indicated in Section 1.18.4.\r\n\r\n   The aerodynamic model for the generation of reactionary airloads comprises\r\na grid defined by the intersection of a series of chords and \"computing\r\nstations\" as shown in Figure 1.18-7. The chords are selected normal to any\r\nspanwise reference curve such as the blade leading edge. The choice of the\r\nnumber and location of the chords and the computing stations is dictated by\r\nthe expected variation of the relative flow properties across the blade span,\r\nand the complexity of the mode shapes exhibited by the turbosystem blade. Due\r\nto its resemblance to the structural model of the blade, and the adequacy of a\r\nrelatively coarse grid to describe the spanwise flow variations, the\r\naerodynamic model is generally chosen as a subset of the structural model as\r\nindicated in Figure 1.18-7.\r\n\r\n   The aerodynamic grid is specified on STREAML1 bulk data cards.\r\n=PAGE=\r\n                                    START\r\n                                      \r\n                                      \r\nĿ  Ŀ   Ŀ\r\n  Osc. airloads            Finite element model          Total stiffness  \r\n      from         Ĵ      of one cyclic sector,    Ĵ      matrix       \r\n  pre-processor,             RPM, constraints,           (elastic plus    \r\n    AIRLOADS          circumferential harmonic index      differential)   \r\n     \r\n                                      \r\n                       Ŀ\r\n                              Generation of mass,     \r\n                              damping, loads, and     \r\n                           stiffness (if necessary)   \r\n                                   matrices           \r\n                       \r\n                                      \r\n                       Ŀ\r\n                                Application of        \r\n                           constraints to stiffness,  \r\n                              mass, damping, and      \r\n                                loads matrices        \r\n                       \r\n                                      \r\n                       Ŀ\r\n                                Application of        \r\n                                 inter-segment        \r\n                                 compatibility        \r\n                                  constraints         \r\n                       \r\n                                      \r\n                       Ŀ\r\n                              Natural frequencies     \r\n                                      and             \r\n                                  mode shapes         \r\n                       \r\n                                      \r\n                       Ŀ\r\n                              Generalized motion      \r\n                                  aerodynamic         \r\n                                  matrix list         \r\n                       \r\n                                      \r\n                                      \r\n                                      X\r\n\r\nFigure 1.18-7a. Overall flowchart of modal forced vibration analysis \r\ncapability for aerodynamically excited turbosystems \r\n=PAGE=\r\n                                      X\r\n                                      \r\n                       Ŀ\r\n                                  Generalized         \r\n                            equations of motion for   \r\n                            aerodynamically forced    \r\n                                  vibrations          \r\n                       \r\n                                      \r\n                       Ŀ\r\n                                  Solution of         \r\n                                  independent         \r\n                                   harmonic           \r\n                               modal coordinates      \r\n                       \r\n                                      \r\n                       Ŀ\r\n                                  Independent         \r\n                                   harmonic           \r\n                                 displacements        \r\n                       \r\n                                      \r\n                       Ŀ\r\n                                  Recovery of         \r\n                                   dependent          \r\n                                   harmonic           \r\n                                 displacements        \r\n                       \r\n                                      \r\n                       Ŀ\r\n                              Output requests for     \r\n                                displacements,        \r\n                                   stresses,          \r\n                                  plots, etc.         \r\n                       \r\n                                      \r\n                                      \r\n                                     EXIT\r\n\r\nFigure 1.18-7b. Overall flowchart of modal forced vibration analysis \r\ncapability for aerodynamically excited turbosystems\r\n\r\n=PAGE=\r\n1.18.6.2  Executive Control Deck \r\n\r\n   The salient points are noted as follows:\r\n\r\n   1. The NASTRAN card is required immediately preceding the ID card in the\r\n      Executive Control Deck, and must contain, at least, the following\r\n      operational parameter:\r\n\r\n        NASTRAN SYSTEM (93) = 1\r\n\r\n      This invokes the sweep effects in subsonic and supersonic reactionary\r\n      aerodynamic routines, and is suggested for use even when sweep effects\r\n      are negligible. In all cases where STREAML2 bulk data cards are obtained\r\n      from the AIRLOADS program, this card is required.\r\n\r\n   2. APP DISP and SOL 8 must be selected.\r\n\r\n   3. The DMAP ALTER package, COSMFVA (COSMIC-supplied Modal Forced Vibration\r\n      Analysis of aerodynamically excited turbosystems), must be included. The\r\n      READFILE capability of NASTRAN (see Section 2.0.2) can be utilized for\r\n      this purpose as follows:\r\n\r\n        READFILE COSMFVA\r\n\r\n1.18.6.3  Case Control Deck\r\n\r\n   The subcase definitions and the selection of other data items for the Case\r\nControl Deck are discussed below.\r\n1.18.6.3.1  Subcase Definitions\r\n\r\n   The bulk data parameter KMAX (>= 0, <= NSEGS/2 for even NSEGS, <= (NSEGS\r\n-1)/2 for odd NSEGS, where NSEGS is the number of cyclic sectors or segments)\r\ndetermines the number, order, and meaning of subcases as follows:\r\n\r\n   The number of subcases is equal to FKMAX, where\r\n\r\n      FKMAX = 1, if  KMAX = O\r\n            = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS -1)/2, NSEGS odd,\r\n            = 1 + 2 * KMAX, if 0 < KMAX <= (NSEGS -2)/2, NSEGS even, and\r\n            = NSEGS,  if KMAX = NSEGS/2, NSEGS even.\r\n      SUBCASE 1 (\"k\" = 0)\r\n      SUBCASE 2 (\"k\" = 1c)\r\n      SUBCASE 3 (\"k\" = 1s)\r\n      SUBCASE 4 (\"k\" = 2c)\r\n      SUBCASE 5 (\"k\" = 2s)\r\n         :\r\n         :\r\n      SUBCASE FKMAX (\"k\" = KMAXs)\r\n\r\n   If NSEGS is even and KMAX = NSEGS/2, Subcase FKMAX will represent \"k\" =\r\nKMAXc, as KMAXs does not exist.\r\n\r\n   Circumferential harmonic components of directly applied loads are specified\r\nunder the appropriate subcases. With RLOADi bulk data cards, null loads need\r\nnot be specified by you.\r\n\r\n1.18.6.3.2  Other Data Selection Items\r\n\r\n   1. The SPC and MPC request must appear above the subcase level and may not\r\n      be changed.\r\n\r\n   2. METHOD must be used to select an EIGR bulk data card.\r\n\r\n   3. FREQUENCY must be selected and must be above the subcase level.\r\n\r\n   4. FREQUENCY must be used to select one and only one FREQ, FREQ1, or FREQ2\r\n      card from the Bulk Data Deck.\r\n\r\n   5. Direct input matrices are not allowed.\r\n\r\n   6. OFREQ must not be used.\r\n\r\n   7. DLOAD must be used to define a frequency-dependent loading condition for\r\n      each subcase. For frequency-dependent loads, subcases without loads need\r\n      not refer to a DLOAD card.\r\n\r\n   8. If random response calculations are desired, RANDOM must be used to\r\n      select RANDPS and RANDTi cards from the Bulk Data Deck.\r\n\r\n   The following printed output, sorted by frequency (SORT1) or by point\r\nnumber or element number (SORT2), is available, either as real and imaginary\r\nparts or magnitude and phase angle (0 - 360 degree lead), for the list of\r\nfrequencies specified:\r\n\r\n   1. Displacements, velocities, and accelerations for a list of PHYSICAL\r\n      points (grid points and extra scalar points introduced for dynamic\r\n      analysis) or SOLUTION points (points used in formulation of the general\r\n      K system).\r\n\r\n   2. Nonzero components of the applied load vector and single-point forces of\r\n      constraint for a list of PHYSICAL points.\r\n\r\n   3. Stresses and forces in selected elements (ALL available only for SORT1).\r\n\r\n   The following plotter output is available for frequency response\r\ncalculations:\r\n\r\n   1. Undeformed plot of the structural model.\r\n\r\n   2. X-Y plot of any component of displacement, velocity, or acceleration of\r\n      a PHYSICAL point or SOLUTION point.\r\n\r\n   3. X-Y plot of any component of the applied load vector or single-point\r\n      force of constraint.\r\n\r\n   4. X-Y plot of any stress or force component for an element.\r\n\r\n   The following plotter output is available for random response calculations:\r\n\r\n   1. X-Y plot of the power spectral density versus frequency for the response\r\n      of selected components for points or elements.\r\n\r\n   2. X-Y plot of the autocorrelation versus time lag for the response of\r\n      selected components for points or elements.\r\n\r\nThe data used for preparing X-Y plots may be punched or printed in tabular\r\nform (see Section 4.3). This is the only form of printed output that is\r\navailable for random response. Also, a printed summary is prepared for each\r\nX-Y plot which includes the maximum and minimum values of the plotted\r\nfunction.\r\n\r\n1.18.6.4  Bulk Data Deck\r\n\r\n   The bulk data parameters under user control are described in Section\r\n1.18.6.4.1. The usage of certain bulk data cards is discussed in Section\r\n1.18.6.4.2.\r\n\r\n   The bulk data parameters CYCSEQ, CTYPE, and NLOAD, normally under user\r\ncontrol when using the cyclic symmetry feature, are not to be specified by you\r\nin the present case as they either have fixed values assigned to them or are\r\ninternally computed. This is discussed below.\r\n\r\n   The integer value of CYCSEQ parameter specifies the procedure for\r\nsequencing the equations in the solution set. A value of +1 specifies that all\r\ncosine terms are to be sequenced before all sine terms, and a value of -1\r\nspecifies alternating cosine and sine terms. The value has been set to -1.\r\n\r\n   The alphanumeric (BCD) value of the CTYPE parameter specifies the type of\r\ncyclic symmetry (rotational or dihedral symmetry). The value has been set to\r\nROT to indicate rotational cyclic symmetry.\r\n\r\n   The integer value of NLOAD specifies the number of loading conditions. This\r\nvalue is internally computed.\r\n\r\n1.18.6.4.1  Bulk Data Parameters\r\n\r\n   The following bulk data parameters are used in the modal forced vibration\r\nanalysis of aerodynamically excited turbosystems:\r\n\r\n   1. BOV - required. The real value of this parameter equals the ratio of the\r\n      semichord to the velocity on the STREAML2 bulk data card for the\r\n      reference (PARAM IREF) streamline.\r\n\r\n   2. COUPMASS - CPBAR, CPROD, CPQUAD1, CPQUAD2, CPTRIA1, CPTRIA2, CPTUBE,\r\n      CPQDPLT, CPTRPLT, CPTRBSC - not to be used. These parameters are not to\r\n      be specified by you as only lumped mass matrices must be used.\r\n\r\n   3. CYCIO - required. The integer value of this parameter specifies the form\r\n      of the input and output data. A value of +1 is used to specify physical\r\n      segment representation, and a value of -1 for cyclic transform\r\n      representation. The value of CYCIO must be input as -1.\r\n\r\n   4. G - optional. The real value of this parameter is used as a uniform\r\n      structural damping coefficient in the formulation of dynamics problems.\r\n      Not recommended for use in hydroelastic problems (use GE on MAT1).\r\n\r\n   5. GKAD - optional. The BCD value of this parameter is used to tell the\r\n      GKAD module the desired form of the matrices KDD, BDD, and MDD. The BCD\r\n      value can be FREQRESP or TRANRESP. The default value is TRANRESP.\r\n\r\n      Note: Remember to define the parameters G, W3, and W4. See Section 9.3.3\r\n      (Direct Dynamic Matrix Assembly) of the Theoretical Manual for further\r\n      details.\r\n\r\n   6. GRDPNT - optional. A positive integer value of this parameter causes the\r\n      Grid Point Weight Generator to be executed and the resulting weight and\r\n      balance information to be printed. All fluid related masses are ignored.\r\n\r\n   7. IREF - optional. This defines the reference streamline number. IREF must\r\n      be equal to an SLN on a STREAML2 bulk data card. The default value of -1\r\n      represents the blade tip streamline. If IREF does not correspond to a\r\n      valid SLN, the default is taken.\r\n\r\n   8. KGGIN - optional. A positive integer value of this parameter indicates\r\n      that your stiffness matrix is to be read from an external file (GINO\r\n      file INPT) via the INPUTT1 module in the rigid format. The default value\r\n      is -1.\r\n\r\n   9. KINDEX - optional. The integer value of this parameter specifies the\r\n      circumferential harmonic index. See parameter BIN for usage. There is no\r\n      default.\r\n\r\n   10.  KMIN - optional. The integer value of this parameter specifies the\r\n        minimum value of the conic index to be used in the solution loop.\r\n\r\n      If KMIN (>= 0, default = 0) equals KMAX, the parameter KINDEX is\r\n      internally set to KMIN (or KMAX). Your value of KINDEX (if any) is then\r\n      ignored.\r\n\r\n      If KMIN differs from MAX, then KINDEX (KMIN <= KINDEX <= KMAX) must be\r\n      specified.\r\n\r\n   11.  KMAX - required. The integer value of this parameter specifies the\r\n        maximum value of the conic index, and is used in subcase definition.\r\n        There is no default for this parameter. A value must be input. The\r\n        maximum value that can be specified is NSEGS/2.\r\n\r\n   12.  LFREQ and HFREQ - required, unless parameter LMODES is used. The real\r\n        values of these parameters give the frequency range (LFREQ is the\r\n        lower limit, and HFREQ is the upper limit) of the modes to be used in\r\n        the modal formulation. To use this option, parameter LMODES must be\r\n        set to 0.\r\n\r\n   13.  LGKAD - optional. The integer value of this parameter is used in\r\n        conjunction with parameter GKAD. If GKAD = FREQRESP, set LGKAD = 1;\r\n        if GKAD = TRANRESP, set LGKAD = -1. The default value is -1.\r\n\r\n   14.  LMODES - used, unless set to 0. The integer value of this parameter\r\n        is the number of lowest modes to be used in the modal formulation.\r\n        The default is to use all modes.\r\n\r\n   15.  MAXMACH - optional. The real value of this parameter is the maximum\r\n        Mach number at and below which the subsonic unsteady cascade theory\r\n        is valid. The default value is 0.80.\r\n\r\n   16.  MINMACH - optional. The real value of this parameter is the minimum\r\n        Mach number at and above which the supersonic unsteady cascade theory\r\n        is valid. The default value is 1.01.\r\n\r\n   17.  NOKPRT - optional. An integer value of +1 for this parameter causes\r\n        the current harmonic index, KINDEX, to be printed at the top of the\r\n        harmonic loop. The default is +1.\r\n\r\n   18.  NSEGS - required. The integer value of this parameter is the number\r\n        of identical segments in the structural model. There is no default. A\r\n        value must be input.\r\n\r\n   19.  Q - required. The real value of this parameter specifies the inflow\r\n        dynamic pressure used on the density and velocity on the STREAML2\r\n        bulk data card for the reference (PARAM IREF) streamline.\r\n\r\n   20.  RPS - optional. The real value of this parameter defines the\r\n        rotational speed of the structure in revolutions per unit time. The\r\n        default value is 0.0.\r\n\r\n   21.  W3 - optional. The real value of this parameter is used as a pivotal\r\n        frequency for uniform structural damping if parameter GKAD =\r\n        TRANRESP. In this case, W3 is required if uniform structural damping\r\n        is desired. The default value is 0.0.\r\n\r\n   22.  W4 - optional. The real value of this parameter is used as a pivotal\r\n        frequency for element structural damping if parameter GKAD =\r\n        TRANRESP. In this case, W4 is required if structural damping is\r\n        desired for any of the structural elements. The default value is 0.0.\r\n\r\n   23.  WTMASS - optional. The terms of the structural mass matrix are\r\n        multiplied by the real value of this parameter when they are\r\n        generated in the EMA. Not recommended for use in hydroelastic\r\n        problems.\r\n\r\n1.18.6.4.2  Usage of Certain Bulk Data Cards\r\n\r\n   The following remarks relate to the usage of some of the bulk data cards:\r\n\r\n   1. SUPORT cards are not allowed.\r\n\r\n   2. EPOINT cards are not allowed.\r\n\r\n   3. SPOINT cards are not allowed.\r\n\r\n   4. CYJOIN cards are required. These cards are used to list the\r\n      corresponding grid points on sides 1 and 2 of the modeled cyclic sector.\r\n\r\n      In the case of rigid hub/disk conditions, the grid points listed on\r\n      these cards must be totally fixed. The bulk data parameters KMAX, KMIN,\r\n      and KINDEX must be identically zero.\r\n\r\n      In the case of flexible hub/disk conditions, the data on these cards\r\n      must reflect such boundary connections. Bulk data parameters KMAX, KMIN,\r\n      and KINDEX are truly active and meaningful. The displacement coordinate\r\n      systems for any pair of corresponding grid points must be\r\n      axisymmetrically compatible, that is, the coordinate system for a side 1\r\n      grid point must completely coincide with that for the corresponding grid\r\n      point on side 2, when the side 1 coordinate system is rotated as a rigid\r\n      body about the axis of rotation, and moved to side 2.\r\n\r\n   5. The variables on the AERO card represent the conditions for the entire\r\n      blade/turbosystem as a whole. The values of these variables on the\r\n      reference streamline are also assumed to represent those for the entire\r\n      blade/turbosystem.\r\n\r\n      The reference streamline is picked by you (PARAM IREF), and defaults to\r\n      the blade tip streamline otherwise.\r\n\r\n   6. The STREAML2 card defines the unsteady aerodynamic data for a given\r\n      streamline.\r\n\r\n   7. The reduced frequency on the MKAEROi cards is based on the semichord and\r\n      velocity on the STREAML2 bulk data card for the reference streamline.\r\n      Referring to the sketch below, a positive interblade phase angle implies\r\n      that blade 1 of the two-dimensional cascade leads the reference blade 0.\r\n\r\n                                         \r\n                                        .  Blade 1\r\n                              1     .    \r\n                                .        \r\n                           .             \r\n                      .                  \r\n                                         \r\n                                        .  Blade 0 (ref.)\r\n                              0     .    \r\n                                .        \r\n                           .             \r\n                      .                  \r\n                                         \r\n                                        .\r\n                                    .    \r\n                                .        \r\n                           .             \r\n                      .                 \r\n                                        \r\n                               \r\n                               \r\n=PAGE=\r\nREFERENCES\r\n\r\n1. Elchuri, V., and Smith, G. C. C., \"Finite Element Forced Vibration Analysis\r\n   of Rotating Cyclic Structures,\" NASA CR-165430, December 1981.\r\n\r\n2. Elchuri, V., Gallo, A. M., and Skalski, S. C., \"Forced Vibration Analysis\r\n   of Rotating Cyclic Structures in NASTRAN,\" NASA CR-165429, December 1981.\r\n\r\n3. Elchuri, V., \"Modal Forced Vibration Analysis of Aerodynamically Excited\r\n   Turbosystems,\" NASA CR 174966, July 1985.\r\n\r\n4. Elchuri, V., and Pamidi, P. R., \"NASTRAN Supplemental Documentation for\r\n   Modal Forced Vibration Analysis of Aerodynamically Excited Turbosystems,\"\r\n   NASA CR 174967, July 1985.\r\n\r\n5. Elchuri, V., and Pamidi, P. R., \"AIRLOADS: A Program for Oscillatory\r\n   Airloads on Blades of Turbosystems in Spatially Non-Uniform Inflow,\" NASA\r\n   CR 174968, July 1985.\r\n=PAGE=\r\n1.19  STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS OF AXIAL-FLOW COMPRESSORS\r\n\r\n1.19.1  Introduction\r\n\r\n   The non-linear interactive influences between the flexible structure of the\r\nrotor/stator of a single-stage, or each stage of a multi-stage, axial-flow\r\ncompressor and the steady state aerothermodynamics of the internal flow can be\r\nstudied in NASTRAN. A rigid format (DISP APP R.F. 16) has been developed for\r\nthe purpose and can be employed for the solution of design/analysis problems\r\nof axial-flow compressors. The capability is based on the work described in\r\nReferences 1, 2, and 3. It utilizes the three-dimensional aerothermodynamic\r\ntheory described in Reference 4, and is therefore valid for axial-flow\r\ncompressors. It is to be noted here that the capability assumes tuned cyclic\r\nstructures, that is, structures composed of cyclic sectors (or segments) that\r\nhave identical mass, stiffness, damping, and constraint properties.\r\n\r\n   A brief description of the capability is given in Section 1.19.2. The\r\nstructural part of the problem is modeled as usual in NASTRAN. Aerodynamic\r\nmodeling is discussed in Section 1.19.3. The preparation of the aerodynamic\r\ninput data is described in Section 1.19.4 and the interpretation of the\r\naerodynamic output data is discussed in Section 1.19.5.\r\n\r\n1.19.2  Description of the Capability\r\n\r\n1.19.2.1  Problem Definition\r\n\r\n   At any operating point under steady-state conditions, the rotors and\r\nstators of axial-flow compressors are subjected to aerodynamic pressure and\r\ntemperature loads. The rotors, in addition, also experience centrifugal loads.\r\nThese loads result in deformation of the elastic structure, which, in turn,\r\ninfluences the aerodynamic loads. These interactive loads and responses arise\r\nfundamentally from the elasticity of the structure, and determine the\r\nperformance of the \"flexible\" turbomachine. For a given flow rate and\r\nrotational speed, the elastic deformation implies a change in the operating\r\npoint pressure ratio.\r\n\r\n   The process of arriving at an \"as manufactured\" blade shape to produce a\r\ndesired (design point) pressure ratio (given the flow rate and rotational\r\nspeed) is herein termed the \"design\" problem of axial-flow compressors. The\r\nsubsequent process of analyzing the performance of \"as manufactured\" geometry\r\nat off-design operating conditions, including the effects of flexibility, is\r\ntermed the \"analysis\" problem of axial-flow compressors.\r\n\r\n1.19.2.2  Problem Formulation\r\n\r\n   The static aerothermoelastic behavior of each cyclic sector of the tuned\r\nrotor/stator of an axial-flow compressor is described by the equation:\r\n\r\n         e     d            aero       non-aero\r\n      [[K ]+ [K ]] {u} = {P}      + {P}                             (1)\r\n\r\n   In the above equation, the degrees of freedom, {u}, are the steady-state\r\ndisplacements expressed in body-fixed global coordinate systems. [Ke] and [Kd]\r\nare the elastic and differential stiffness matrices, respectively. {P}aero\r\nrepresents the steady-state aerodynamic pressure and thermal loads. These are\r\ncomputed using the three-dimensional aerodynamic theory of Reference 1.\r\nFinally, {P}non-aero represents all non-aerodynamic loads.\r\n\r\n   As all cyclic sectors of the tuned structure are assumed to respond\r\nidentically, only one rotationally cyclic sector is modeled and analyzed\r\n(Figure 1.19-1), with the intersector boundary conditions imposed via\r\nmultipoint constraints (MPCs).\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics. \r\n\r\nFigure 1.19-1. Bladed-disc aerodynamic grid and the basic coordinate system\r\n=PAGE=\r\n            Ŀ\r\n             Compressor Bladed-Disc Sector Geometry, Constraints, \r\n              Stiffness Matrix, Non-Aerodynamic Loads + Operating \r\n                Point (Flow Rate, Speed, Loss Parameters, Etc.)   \r\n            \r\n                                        \r\n                                        \r\n            Ŀ\r\n                  Aerodynamic Pressure and Temperature Loads,     \r\n                           A                                      \r\n                         {P } on Undeformed Blade, ALG            \r\n                           g                                      \r\n            \r\n                                        \r\n                                        \r\n            Ŀ\r\n              Total Loads {P } (Aerodynamic and Non-Aerodynamic)  \r\n                            g                                     \r\n            \r\n                                        \r\n                                        \r\n            Ŀ\r\n               Independent Displacements {u } (Linear Solution)   \r\n                                           l                      \r\n            \r\n                                        \r\n                                        \r\n            Ŀ\r\n                    Dependent Displacements, Stresses, Etc.       \r\n                               (Linear Solution)                  \r\n            \r\n                                        \r\n                                        \r\n                                        A\r\n\r\n\r\n Figure 1.19-2a. Simplified problem flow for static aerothermoelastic\r\ndesign/analysis rigid format for axial-flow compressors\r\n=PAGE=\r\n                                        A\r\n                                        \r\n                                        \r\n              Ŀ\r\n                                                      d         \r\n                      Differential Stiffness Matrix [K  ]       \r\n                                                      gg        \r\n              \r\nĴ\r\n                                       \r\n             Ŀ\r\n                                                 b             \r\n                        Total Stiffness Matrix [K  ]           \r\n                                                 ll            \r\n             \r\n                                       Ŀ\r\n                                                                             \r\n             Ŀ             \r\n                                                            A               \r\n               Aerodynamic Pressure and Temperature Loads {P }              \r\n                                                            g               \r\n                          \r\n                                                                             \r\n             Ŀ            \r\n             Total Loads {P  } (Aerodynamic and Non-Aerodynamic)            \r\n Outer                     g2                                         Inner \r\n Loop              Loop  \r\n                                                                             \r\n             Ŀ            \r\n                                                   b                        \r\n                       Independent Displacements {u }                       \r\n                                                   l                        \r\n                            (Non-Linear Solution)                           \r\n                         \r\n                                                                             \r\n             Ŀ            \r\n                   Dependent Displacements, Stresses, Etc.                  \r\n                            (Non-Linear Solution)                           \r\n                         \r\n                                                                             \r\n                                                                             \r\n                                                                              \r\n  Adjustment to             No    Convergence    No                      d    \r\n  d               Checks, DSCHK  No change in [K  ] \r\n   [K  ] necessary                                                        gg\r\n     gg                                  Yes\r\n              Ŀ\r\n                                    b                            \r\n               Final Displacement {u }, Deformed Blade Geometry,   Point b on\r\n                                    g                              the map\r\n                 Stress, Etc. + Operating Point Pressure Ratio   \r\n                           and other Flow Parameters             \r\n              \r\n                                        \r\n                                        \r\n                                      EXIT\r\n\r\n\r\n Figure 1.19-2b. Simplified problem flow for static aerothermoelastic\r\ndesign/analysis rigid format for axial-flow compressors\r\n=PAGE=\r\n1.19.2.3  NASTRAN Implementation\r\n\r\n   A rigid format (DISP APP R.F. 16) has been developed specifically for the\r\nsolution of \"design/analysis\" problems of axial-flow compressors. The rigid\r\nformat features functional modules and parameters specifically designed for\r\nthis capability. The rigid format was developed by modifying DISP APP R.F. 4\r\n(Static Analysis with Differential Stiffness) to include the interactive\r\neffects of aerodynamic loads along with the effects due to centrifugal loads.\r\nThe aerodynamic computer code of Reference 4, with minor changes, has been\r\nadapted in a functional module called ALG (Aerodynamic Load Generator).\r\nComplete details of the implementation in earlier versions of NASTRAN are\r\ngiven in References 1 and 3. A simplified flowchart of the rigid format is\r\nshown in Figure 1.19-2.\r\n\r\n   The value of the parameter SIGN (= +/-1.0) selects the analysis mode (SIGN\r\n= 1.0) or the design mode (SIGN = -1.0) of the rigid format. Deformation of\r\nthe structure as a result of the applied centrifugal and aerodynamic loads is\r\nused to revise the blade geometry each time through the differential stiffness\r\nloop of the rigid format. Because of the non-linear relationship between the\r\nblade geometry and the resulting operating point pressure ratio, provision is\r\nmade to control the fraction of the displacements used to redefine the blade\r\ngeometry. This is especially helpful in the solution of the \"design\" problem.\r\nThe fractions of the displacements used to redefine the blade geometry are\r\nspecified via the FXCOOR, FYCOOR, and FZCOOR parameters. The application of\r\nthe aerodynamic pressure and thermal loads is controlled respectively by the\r\nparameters APRESS and ATEMP. These parameters also enable the inclusion of the\r\ncentrifugal loads alone.\r\n\r\n   The functional module ALG is used in the rigid format before, within, and\r\nafter the differential stiffness loops (see Section 3.17) to generate the\r\naerodynamic loads. Printed output from this module during these three stages\r\ncan be controlled through the use of the parameters IPRTCI, IPRTCL, and\r\nIPRTCF, respectively. This enables observation of the variation in the\r\naerodynamic loads as a function of the blade geometry.\r\n\r\n   The capability also determines:\r\n\r\n   1. the steady-state response of the structure (displacements, stresses,\r\n      reactions, etc.), and\r\n\r\n   2. a differential stiffness matrix for use in subsequent modal, flutter,\r\n      and dynamic response analyses.\r\n\r\n   GRID, CTRIA2, and PTRIA2 bulk data cards for the final blade shape can be\r\npunched out using the parameter PGEOM. At the end of a \"design\" run, these\r\ncards define the \"as manufactured\" blade shape, which can subsequently be\r\n\"analyzed\" at selected operating points over the compressor map. In an\r\n\"analysis\" run at any operating point, the total stiffness (elastic and\r\ngeometric) of the bladed-disc structure can be saved via the parameter KTOUT\r\nfor use in subsequent modal, modal flutter, and subcritical roots analyses.\r\nSTREAML1 and STREAML2 bulk data cards specifying the aerodynamic grid and flow\r\ndata can be punched out using the parameter STREAML.\r\n\r\n1.19.3  Aerodynamic Modeling\r\n\r\n   The aerodynamic model is based on a grid generated by the intersection of a\r\nseries of streamlines and \"computing stations\" (similar to potential lines) as\r\nshown in Figure 1.19-1.\r\n\r\n   The aerodynamic loads are assumed significant only on the bladed portion of\r\na bladed disc and no other part of the structure need be modeled\r\naerodynamically. The data required to generate the aerodynamic model for the\r\nsteady state aeroelastic analyses are specified on DTI bulk data cards, and\r\nare described in Section 1.19.4.\r\n\r\n   The streamlines are defined by the intersection of the blade mean surface\r\nand a set of coaxial cylindrical (or conical) surfaces. The axis of the\r\ncylinders (cones) coincides with the axis of rotation of the turbomachine. The\r\n\"computing stations\" lie on the blade mean surface and divide it from the\r\nleading edge to the trailing edge. The choice of the number and location of\r\nthe streamlines and the \"computing stations\" is dictated by the expected\r\nvariation of the relative flow properties across the blade span, and the\r\ncomplexity of the deformation shape exhibited by this part of the structure.\r\nHowever, a minimum of three streamlines (including the blade root and the tip)\r\nand three \"computing stations\" (including the blade leading edge and the\r\ntrailing edge) must be specified.\r\n\r\n   The distribution of the aerodynamic parameters over the blade is, in\r\ngeneral, different from that of the structural parameters such as stress,\r\nstrain, etc. Accordingly, the aerodynamic model and the structural model of\r\nthe blade, in general, may differ. The difference permitted in the two models\r\nis similar to that shown in Figure 1.19-1, wherein the aerodynamic grid is\r\nshown to be a part of the structural grid.\r\n\r\n   The X-axis of the basic coordinate system (Figure 1.19-1) is chosen to\r\ncoincide with the axis of rotation and is oriented in the direction of the\r\nflow. The location of the origin is arbitrary. The XZ-plane lies parallel to\r\nthe \"mean\" meridional plane passing through the blade, with the Z-axis\r\ndirected towards the blade.\r\n\r\n1.19.4  Aerodynamic Input Data\r\n\r\n   The aerodynamic input data consists of a set of initial directives and the\r\nremaining data which comprises two sections: the analytic meanline blade\r\nsection and aerodynamic section. The data in these sections consists of a set\r\nof data items for each entry in each section. The data required for the\r\ninterfacing of the output from the analytic meanline blade section to the\r\naerodynamic section is included in the data items for the analytic meanline\r\nblade section. Because partial input to the aerodynamic section is generated\r\nby execution of the analytic meanline blade section, the input for the\r\naerodynamic section to be supplied directly by you varies.\r\n\r\n   The analytic meanline blade section must be directed by you to produce data\r\nfor the aerodynamic section for a particular computing station. This data is\r\ninternally generated on a scratch file called LOG5. The discussion below\r\nindicates the data that is taken from this LOG5 file and therefore is not\r\nsupplied directly by you.\r\n\r\n   The following data items must be input using the Direct Table Input (DTI)\r\nbulk data cards. A description of the DTI card is given in Section 2.4. The\r\ntable data block name must be ALGDB. The trailer value for T1 (see the\r\ndescription of the DTI bulk data card) must be the number of logical records\r\nin the DTI table, not counting the header record. This is the same as the\r\nmaximum value of IREC used in the table. The trailer values for T2 through T6\r\nare all zero. Each of the following input cards corresponds to one logical\r\nrecord of the DTI table. Trailing zeroes need not be input. Data types, that\r\nis, alphanumeric (BCD), real, and integer, must correspond to those specified\r\nfor each data item. Data item names that begin with the letters I, J, K, L, M,\r\nand N are to be input as integers, while all others are input as real numbers.\r\nTitles are input as alphanumeric (BCD) with the restriction that only\r\nalphabetic letters occupy the first character in each field of the DTI card.\r\nTitles may use up to nine DTI fields.\r\n\r\n1.19.4.1  Aerodynamic DTI Data Setup\r\n\r\n   In the following discussion, one line (which may be continued) corresponds\r\nto one logical record of a DTI card. The data items used here are defined in\r\nSection 1.19.4.2. For additional details, you may refer to Reference 4.\r\n\r\n1.19.4.1.1  Initial Directives\r\n\r\n   The following data items form the initial directives.\r\n\r\n      TITLE1\r\n      NANAL NAERO\r\n\r\n1.19.4.1.2  Analytic Meanline Blade Section\r\n\r\n   The following set of data items is input to the analytic meanline blade\r\nsection, and will occur NANAL times. The last record in this set is indicated\r\nwith an asterisk.\r\n\r\n          TITLE2\r\n\r\n          NLINES NSTNS NZ NSPEC NPOINT NBLADE ISTAK IPUNCH ISECN IFCORD IFPLOT\r\n(cont.)   IPRINT ISPLIT INAST IRLE IRTE NSIGN\r\n\r\n          ZINNER ZOUTER SCALE STACKX PLTSZE\r\n                                                                 \r\n          KPTS IFANGS                                             Occurs\r\n                                                                 \r\n          XSTA RSTA      - Occurs KPTS times                      NSTNS\r\n                                                                 \r\n          R BLAFOR       - Occurs NLINES times                    times\r\n                                                                 \r\n                                                                 \r\n          ZR B1 B2 PP QQ RLE                                      Occurs\r\n                                                                 \r\n          TC TE Z CORD DELX DELY                                  NSPEC\r\n                                                                 \r\n          S BS - Only if ISECN = 1  or 3                          times\r\n                                                                 \r\n                                                                 \r\n          NRAD NDPTS NDATR NSWITC NLE NTE                        \r\n                                                                 \r\n          XKSHPE SPEED                                           \r\n                                                                 \r\n          NOUT1 NOUT2 NOUT3 - Refers to leading edge station     \r\n                                                                 \r\n          NR NTERP NMACH NLOSS NL1        Occurs                 This group\r\n                                          for each               is used to\r\n(cont.)   NL2 NEVAL NCURVE NLITER NDEL    station                generate\r\n                                          within                 LOG5 data\r\n(cont.)   NOUT1 NOUT2 NOUT3 NBLADE        blade or               for the\r\n                                          at trailing            aerodynamic\r\n          R XLOSS  ]-Occurs NR times      edge                   section\r\n                                                                 \r\n          RTE                             Occurs                \r\n                                          NRAD                  \r\n          DM DVFRAC ]-Occurs NDPTS times  times                 \r\n                                                                 \r\n       *  RDTE DELTAD AC ]-Occurs NDATR times                    \r\n                                                                 \r\n\r\n1.19.4.1.3  Aerodynamic Section\r\n\r\n   The following set of data items is input to the aerodynamic section and the\r\nlast record in this set is indicated with a double asterisk.\r\n\r\n          TITLE3\r\n\r\n          CP GASR G EJ\r\n\r\n          NSTNS NSTRMS NMAX NFORCE NBL NCASE NSPLIT NSET1 NSET2 NREAD NPUNCH\r\n\r\n(cont.)   NPLOT NPAGE NTRANS NMIX NMANY NSTPLT NEQN NLE NTE NSIGN\r\n\r\n          NWHICH - Occurs NMANY times on the same card\r\n\r\n          G EJ SCLFAC TOLNCE VISK SHAPE\r\n\r\n          XSCALE PSCALE RLOW PLOW XMMAX RCONST\r\n\r\n          CONTR CONMX\r\n                                                     \r\n          FLOW SPDFAC                                \r\n                                                     \r\n          NSPEC                                       Occurs\r\n                                                      NSTNS\r\n          XSTN RSTN - Occurs NSPEC times              times\r\n                                                     \r\n                                                     \r\n          NDATA NTERP NDIMEN NMACH                    Inlet\r\n                                                      condition\r\n          DATAC DATA1 DATA2 DATA3  - Occurs           specification\r\n                                     NDATA times     \r\n                                                     \r\n                                                               \r\n(LOG5)    NDATA NTERP NDIMEN NMACH NWORK                       \r\n                                                               \r\n(cont.)   NLOSS NL1 NL2 NEVAL NCURVE NLITER                    \r\n                                                               \r\n(cont.)   NDEL NOUT1 NOUT2 NOUT3 NBLADE                        \r\n                                                                For stations\r\n(LOG5)    SPEED - If NDATA > 0                                  2 through\r\n                                                               NSTNS\r\n(LOG5)    DATAC DATA1 DATA2 DATA3 DATA4                       \r\n                                                 Occurs       \r\n(cont.)   DATA5                                  NDATA        \r\n                                                 times        \r\n(LOG5)    DATA6 DATA7 DATA8 DATA9                             \r\n                                                              \r\n          DELC DELTA - Occurs NDEL times                       \r\n                                                               \r\n          WBLOCK BBLOCK BDIST - Occurs NSTNS times\r\n                                                     \r\n          NDIFF                                       Occurs\r\n                                                      NSET1\r\n          DIFF FDHUB FDMID FDTIP - Occurs NDIFF       times\r\n                                   times             \r\n                                                     \r\n                                                     \r\n          NM NRAD                                    \r\n                                                     Occurs\r\n          TERAD                             Occurs   NSET2\r\n                                            NRAD     times\r\n          DM WFRAC - Occurs NM times        times   \r\n                                                    \r\n          DELF(1) DELF(2)....DELF(NSTRMS) - if NSPLIT = 1 (6 per card)\r\n                                            or NREAD = 1\r\n\r\n     **   R X XL II JJ - Occurs NSTRMS times for NSTNS stations if\r\n                         NREAD = 1\r\n\r\n1.19.4.2   Aerodynamic DTI Data Item Definitions\r\n\r\n   The aerodynamic input data may be specified in any self-consistent unit\r\nsystem and, additionally, a \"linear dimension scaling factor\" (SCLFAC) is\r\nincorporated into the input so that some commonly used but inconsistent unit\r\nsystems may be used. This is principally intended to allow the use of inches\r\nfor physical dimensions and yet retain feet for velocities. The basic\r\ndimensions used in the data are length (L), time (T), and force (F). Angles\r\nare expressed in degrees (A) and temperatures on an absolute temperature scale\r\n(D). Heat capacities (H) are also required. Some possible unit systems are\r\ngiven below, together with the corresponding value of SCLFAC.\r\n\r\n      L        T         F           D              H       SCLFAC\r\n\r\n      Feet     Seconds   Pounds      Deg. Rankine   BTU      1.0\r\n\r\n      Inches   Seconds   Pounds      Deg. Rankine   BTU     12.0\r\n\r\n      Meters   Seconds   Kilograms   Deg. Kelvin    CHU      1.0\r\n\r\n   The data items specified in Section 1.19.4.1 are defined below. Note that\r\nsome of the data names are used in more than one section; care should be taken\r\nto consult the correct section below for definitions.\r\n\r\n1.19.4.2.1  Initial Directives\r\n\r\n   TITLE1  This is a title card for the run.\r\n\r\n   NANALSet NANAL = 1\r\n\r\n   NAEROSet NAERO = 1\r\n\r\n1.19.4.2.2  Analytic Meanline Blade Section\r\n\r\n   For a more detailed discussion of the input to this section, see Reference\r\n1. For this section, the dimensioned input is either in degrees (A) or in\r\nlength (L).\r\n\r\nTITLE2  A title card for the analytic meanline blade section of the program.\r\n\r\nNLINES  The number of streamsurfaces which are defined, and on which blade\r\n        sections will be designed. Must satisfy 2 <= NLINES <= 21.\r\n\r\nNSTNS   The number of computing stations at which the streamsurface radii are\r\n        specified. Must satisfy 3 <= NSTNS <= 10.\r\n\r\nNZ      The number of constant-z planes on which manufacturing (Cartesian)\r\n        coordinates for the blade are required. Must satisfy 3 <= NZ <= 15.\r\n\r\nNSPEC   The number of radially disposed points at which the parameters of the\r\n        blade sections are specified. Must satisfy 1 <= NSPEC <= 21.\r\n\r\nNPOINT  The number of points that will be generated to specify the pressure\r\n        and suction surfaces of each blade section. Must satisfy 2 <= NPOINT\r\n        <= 80. Generally, no less than 30 should be used.\r\n\r\nNBLADE  The number of blades in the blade row.\r\n\r\nISTAK   If ISTAK = 0, the blade will be stacked at the leading edge.\r\n\r\n        If ISTAK = 1, the blade will be stacked at the trailing edge.\r\n\r\n        If ISTAK = 2, the blade will be stacked at, or offset from, the\r\n        section centroid.\r\n\r\nIPUNCH  Set IPUNCH  =  0\r\n\r\nISECN   If ISECN = 0, the blade will be constructed using the polynomial\r\n        camber line and the standard (that is, double-cubic) thickness\r\n        distribution.\r\n\r\n        If ISECN = 1, the exponential camber line and the standard thickness\r\n        distribution will be used.\r\n\r\n        If ISECN = 2, the circular arc camber line and the\r\n        double-circular-arc thickness distribution will be used.\r\n\r\n        If ISECN = 3, the multiple-circular-arc meanline and the standard\r\n        thickness distribution will be used.\r\n\r\nIFCORD  If IFCORD = 0, the meridional projection of the streamsurface blade\r\n        section chords are specified.\r\n\r\n        If IFCORD = 1, the streamsurface blade section chords are specified.\r\n\r\nIFPLOT  Set IFPLOT = 0\r\n\r\nIPRINT  The input data is always listed by the program. Details of the\r\n        streamsurface and manufacturing sections are printed as prescribed by\r\n        IPRINT.\r\n\r\n        If IPRINT = 0, details of the streamsurface and manufacturing\r\n        sections are printed.\r\n\r\n        If IPRINT = 1, details of streamsurface sections are printed.\r\n\r\n        If IPRINT = 2, details of manufacturing sections are printed.\r\n\r\n        If IPRINT = 3, details of neither streamsurface nor manufacturing\r\n        sections are printed. (The interface data for use with the\r\n        aerodynamic section of the program is still displayed.)\r\n\r\nISPLIT  Set ISPLIT = 0\r\n\r\nINAST   Set INAST = 0\r\n\r\nIRLE    The computing station number at the blade leading edge.\r\n\r\nIRTE    The computing station number at the blade trailing edge.\r\n\r\nNSIGN   Indicator used to sign blade pressure forces according to program\r\n        sign conventions. For compressor rotors, if the machine rotates\r\n        clockwise when viewed from the front, set NSIGN to 1; otherwise, set\r\n        NSIGN to -1. For compressor stators, the two values given for NSIGN\r\n        are reversed.\r\n\r\nZINNER, Extreme Z values between which the NZ manufacturing sections are\r\nZOUTER  equally spaced in the Z direction between ZINNER and ZOUTER.\r\n\r\nSCALE   Set SCALE = 0.0\r\n\r\nSTACKX  This is the axial coordinate of the stacking axis for the blade,\r\n        relative to the same origin as used for the station locations, XSTA.\r\n\r\nPLTSZE  Set PLTSZE = 0.0\r\n\r\nKPTS    The number of points provided to specify the shape of a computing\r\n        station.\r\n\r\n        If KPTS = 1, the computing station is upright and linear.\r\n\r\n        If KPTS = 2, the computing station is linear and either upright or\r\n        inclined.\r\n\r\n        If KPTS > 2, a spline curve is fit through the points provided to\r\n        specify the shape of the station.\r\n\r\nIFANGS  If IFANGS = 0, the calculations of the quantities required for\r\n        aerodynamic analysis will be omitted at a particular computing\r\n        station.\r\n\r\n        If IFANGS = 1, these calculations will be performed at that station.\r\n\r\nXSTA    An array of KPTS axial coordinates (relative to an arbitrary origin)\r\n        which, together with RSTA, specify the shape of a particular\r\n        computing station.\r\n\r\nRSTA    An array of KPTS radii which, together with XSTA, specify the shape\r\n        of a particular computing station.\r\n\r\nR       The stream surface radii at NLINES locations at each of the NSTNS\r\n        stations.\r\n\r\nBLAFOR  Set BLAFOR = 0.0\r\n\r\nZR      The variation of properties of the streamsurface blade section is\r\n        specified as a function of streamsurface number. The various\r\n        quantities are then interpolated (or extrapolated) at each\r\n        streamsurface. The streamsurfaces are numbered consecutively from the\r\n        innermost outward, starting with 1.0. ZR must increase monotonically,\r\n        there being NSPEC values in all.\r\n\r\nB1      The blade inlet angle.\r\n\r\nB2      The blade outlet angle.\r\n\r\nPP      If ISECN = 0, PP is the ratio of the second derivative of the camber\r\n        line at the leading edge to its maximum value. Must satisfy -2.0 < PP\r\n        < 1.0.\r\n\r\n        If ISECN = 1, PP is the ratio of the second derivative of the camber\r\n        line at the leading edge to its maximum value forward of the\r\n        inflection point. Must satisfy 0.0 < PP <= 1.0. If ISECN = 2 or 3, PP\r\n        is superfluous.\r\n\r\nQQ      If ISECN = 0, QQ is the ratio of the second derivative of the camber\r\n        line at the trailing edge to its maximum value. Must satisfy 0.0 <=\r\n        QQ <= 1.0.\r\n\r\n        If ISECN = 1, QQ is the ratio of the second derivative of the camber\r\n        line at the trailing edge to its maximum value rearward of the\r\n        inflection point. Must satisfy 0.0 < QQ <= 1.0.\r\n\r\n        If ISECN = 2 or 3, QQ is superfluous.\r\n\r\nRLE     The ratio of blade leading edge radius to chord.\r\n\r\nTC      The ratio of blade maximum thickness to chord.\r\n\r\nTE      The ratio of blade trailing edge half-thickness to chord.\r\n\r\n        If ISECN = 2, TE is superfluous.\r\n\r\nZ       The location of the blade maximum thickness, as a fraction of camber\r\n        line length from the leading edge.\r\n\r\n        If ISECN = 2, Z is superfluous.\r\n\r\nCORD    If IFCORD = 0, CORD is the meridional projection of the blade chord.\r\n\r\n        If IFCORD = 1, CORD is the blade chord.\r\n\r\nDELX,   The stacking axis passes through the streamsurface blade sections,\r\nDELY    offset from the centroids, leading or trailing edge by DELX and DELY\r\n        in the X and Y directions, respectively.\r\n\r\nS, BS   If ISECN = 1 or 3, S and BS are used to specify the locations of the\r\n        inflection point (as a fraction of the meridionally-projected chord\r\n        length) and the change in camber angle from the leading edge to the\r\n        inflection point. If the absolute value of the angle at the\r\n        inflection point is larger than the absolute value of B1, BS should\r\n        have the same sign as B1; otherwise, B1 and BS should be of opposite\r\n        signs.\r\n\r\nNRAD    The number of radii at which a distribution of the fraction of\r\n        trailing edge deviation is input. Must satisfy 1 <= NRAD <= 5.\r\n\r\nNDPTS   The number of points used to define each deviation curve. Must\r\n        satisfy 1 <= NDPTS <= 11.\r\n\r\nNDATR   The number of radii at which an additional deviation angle increment\r\n        and the point of maximum camber are specified. Must satisfy 1 <=\r\n        NDATR <= 21.\r\n\r\nNSWITC  If NSWITC = 1, the deviation correlation parameter \"m\" for the NACA\r\n        (A10) meanline is used.\r\n\r\n        If NSWITC = 2, the deviation correlation parameter \"m\" for\r\n        double-circular-arc blades is used.\r\n\r\nNLE     Station number at leading edge.\r\n\r\nNTE     Station number at trailing edge.\r\n\r\nXKSHPE  The blade shape correction factor in the deviation rule.\r\n\r\nSPEED   Speed of compressor rotation.\r\n\r\nNR      The number of radii where a \"loss\" is input.\r\n\r\nNTERP   See Section 1.19.4.2.3 for definitions.\r\nNMACH\r\nNLOSS\r\nNL1\r\nNL2\r\nNEVAL\r\nNCURVE\r\nNLITER\r\nNDEL\r\nNOUT1\r\nNOUT2\r\nNOUT3\r\nNBLADE\r\n\r\nR       Radius at which loss is specified.\r\n\r\nXLOSS   Loss description. The form is prescribed by NLSSS; see aerodynamic\r\n        section.\r\n\r\nRTE     Radius at blade trailing edge where the following deviation\r\n        fraction/chord curve applies.\r\n\r\n        If NRAD = 1, it has no significance. Must increase monotonically.\r\n\r\nDM      The location on the meridional chord where the deviation fraction is\r\n        given. Expressed as a fraction of the meridional chord from the\r\n        leading edge. Must increase monotonically.\r\n\r\nDVFRAC  Fraction of trailing-edge deviation that occurs at location DM.\r\n\r\nRDTE    Radius at trailing edge where additional deviation and point of\r\n        maximum camber are specified.\r\n\r\nDELTAD  Additional deviation angle added to that determined by deviation\r\n        rule. Input positive for conventionally positive deviation for both\r\n        rotors and stators.\r\n\r\nAC      Fraction of blade chord from leading edge where maximum camber\r\n        occurs.\r\n\r\n1.19.4.2.3  Aerodynamic Section\r\n\r\nTITLE3  A title card for the aerodynamic section of the program.\r\n\r\nCP      Specific heat at constant pressure. An input value of zero will be\r\n        reset to 0.24. Units: H/F/D.\r\n\r\nGASR    Gas constant. An input value of zero will be reset to 53.52. Units:\r\n        L/SCLFAC/D.\r\n\r\nG       Acceleration due to gravity. An input value of zero will be reset to\r\n        32.174. Units: L/SCLFAC/T/T.\r\n\r\nEJ      Joules equivalent. An input value of zero will be reset to 778.16.\r\n        Units: LF/SCLFAC/H.\r\n\r\nNSTNS   Number of computing stations. Must satisfy 3 <= NSTNS <= 30.\r\n\r\nNSTRMS  Number of streamlines. Must satisfy 3 <= NSTRMS <= 21. An input value\r\n        of zero will be reset to 11.\r\n\r\nNMAX    Maximum number of passes through the iterative streamline\r\n        determination procedure. An input value of zero will be reset to 40.\r\n\r\nNFORCE  The first NFORCE passes are performed with arbitrary numbers inserted\r\n        should any calculation produce impossible values. Thereafter,\r\n        execution will cease, the calculation having \"failed\". An input value\r\n        of zero will be reset to 10.\r\n\r\nNBL     If NBL = 0, the annulus wall boundary layer blockage allowance will\r\n        be held at the values prescribed by WBLOCK.\r\n\r\n        If NBL = 1, blockage due to annulus wall boundary layers will be\r\n        recalculated except at station 1. VISK and SHAPE are used in the\r\n        calculation.\r\n\r\nNCASE   Set NCASE = 1\r\n\r\nNSPLIT  If NSPLIT = 0, the flow distribution between the streamlines will be\r\n        determined by the program so that roughly uniform increments of\r\n        computing station will occur between the streamlines at station 1.\r\n\r\n        If NSPLIT = 1, the flow distribution between the streamlines is read\r\n        in (see DELF).\r\n\r\nNSET1   The blade loss coefficient re-evaluation option (specified by NEVAL)\r\n        requires loss parameter/diffusion factor data. NSET1 sets of data are\r\n        input, the set numbers being allocated according to the order in\r\n        which they are input. Up to 4 sets may be input (see NDIFF).\r\n\r\nNSET2   When NLOSS = 4, the loss coefficients at the station are determined\r\n        as a fraction of the value at the trailing edge. Then, NSET2 sets of\r\n        curves are input to define this fraction at a function of radius and\r\n        meridional chord. Up to 2 sets may be input (see NM).\r\n\r\nNREAD   If NREAD = 0, the initial streamline pattern estimate is generated by\r\n        the program.\r\n\r\n        If NREAD = 1, the initial streamline pattern estimate and also the\r\n        DELF values are read in. (See DELF, R, X, and XL.)\r\n\r\nNPUNCH  Set NPUNCH = 0\r\n\r\nNPLOT   Set NPLOT = 0\r\n\r\nNPAGE   The maximum number of lines printed per page. An input value of zero\r\n        will be reset to 60.\r\n\r\nNTRANS  If NTRANS = 0, no action is taken.\r\n\r\n        If NTRANS = 1, relative total pressure loss coefficients will be\r\n        modified to account for radial transfer of wakes. See Reference 1.\r\n\r\nNMIX    If NMIX = 0, no action is taken.\r\n\r\n        If NMIX = 1, entropy, angular momentum, and total enthalpy\r\n        distributions will be modified to account for turbulent mixing. See\r\n        Reference 1.\r\n\r\nNMANY   The number of computing stations for which blade descriptive data is\r\n        being generated by the analytic meanline blade section.\r\n\r\nNSTPLT  If NSTPLT = 0, no action is taken.\r\n\r\n        If NSTPLT = 1, a line-printer plot of the changes made to the\r\n        midstreamline \"l\" coordinate is made for each computing station. If\r\n        more than 59 passes through the iterative procedure have been made,\r\n        then the plots will show the changes for the last 59 passes. The\r\n        graph should decay approximately exponentially towards zero,\r\n        indicating that the streamline locations are stabilizing. Decaying\r\n        oscillations are equally acceptable, but growing oscillations show\r\n        the need for heavier damping in the streamline relocation\r\n        calculations, that is, a decrease in RCONST.\r\n\r\nNEQN    This item controls the selection of the form of momentum equation\r\n        that will be used to compute the meridional velocity distributions at\r\n        each computing station. There are two basic forms, and for each case,\r\n        one may select not to compute the terms relating to blade forces.\r\n        (See Reference 1.)\r\n\r\n        If NEQN = 0, the momentum equation involves the differential form of\r\n        the continuity equations and hence (1-Mm2 ) terms in the denominator.\r\n        Streamwise gradients of entropy and angular momentum (blade forces)\r\n        are computed within blades and at the blade edges (provided data that\r\n        describe the blades are given). Elsewhere, streamwise entropy\r\n        gradients only are included in a simpler form of the momentum\r\n        equation, except that at the first and last computing station, all\r\n        streamwise gradients are taken to be zero. This is generally the\r\n        preferred option when computing stations are located within the blade\r\n        rows.\r\n\r\n        If NEQN = 1, the momentum equation form is similar to that used when\r\n        NEQN = 0, but angular momentum gradients (blade force terms) are\r\n        nowhere computed. This generally is the preferred option when\r\n        computing stations are located at the blade edges only.\r\n\r\n        If NEQN = 2, the momentum equation includes an explicit dVm/dm term\r\n        instead of the (1-Mm2) denominator terms. All streamwise gradients\r\n        (including blade force terms) are computed as for the case when NEQN\r\n        = 0. When computing stations are located within the blade rows, the\r\n        results will generally be similar to those obtained with NEQN = 0,\r\n        and solutions may be found that cannot be computed with NEQN = 0 due\r\n        to high meridional Mach numbers.\r\n\r\n        If NEQN = 3, the momentum equation is similar to that used when NEQN\r\n        = 1, and no angular momentum gradients are computed. This may be used\r\n        when computing stations are located only at the blade edges and high\r\n        meridional Mach numbers preclude the use of NEQN = 1.\r\n\r\nNLE     See Section 1.19.4.2.2 for definitions.\r\nNTE\r\nNSIGN\r\n\r\nNWHICH  The numbers of each of the computing stations for which blade\r\n        descriptive data is being generated by the analytic meanline blade\r\n        section.\r\n\r\nSCLFAC  Linear dimension scale factor. (See Section 1.19.4.2.) An input value\r\n        of zero will be reset to 12.0.\r\n\r\nTOLNCE  Basic tolerance in iterative calculation scheme. An input value of\r\n        zero will be reset to 0.001. (See discussion of tolerance scheme in\r\n        Reference 1.)\r\n\r\nVISK    Kinematic viscosity of gas (for annulus wall boundary layer\r\n        calculations). An input value of zero will be reset to 0.00018.\r\n        Units: LL/SCLFAC/SCLFAC/T.\r\n\r\nSHAPE   Shape factor for annulus wall boundary layer calculations. An input\r\n        value of zero will be reset to 0.7.\r\n\r\nXSCALE  Set each equal to 0.0.\r\nPSCALE\r\nRLOW\r\nPLOW\r\n\r\nXMMAX   The square of the Mach number that appears in the equation for the\r\n        streamline relocation relaxation factor is limited to be not greater\r\n        than XMMAX. Thus, at computing stations where the appropriate Mach\r\n        number is high enough for the limit to be imposed, a decrease in\r\n        XMMAX corresponds to an increase in damping. If a value of zero is\r\n        input, it is reset to 0.6.\r\n\r\nRCONST  The constant in the equation for the streamline relocation relaxation\r\n        factor. The value of 8.0 that the analysis yields is often too high\r\n        for stability. If zero is input, it is reset to 6.0.\r\n\r\nCONTR   The constant in the blade wake radial transfer calculations.\r\n\r\nCONMX   The eddy viscosity for the turbulent mixing calculations. Units:\r\n        L2/SCLFAC2/T.\r\n\r\nFLOW    Compressor flow rate. Units: F/T.\r\n\r\nSPDFAC  The speed of rotation of each computing station is SPDFAC times\r\n        SPEED(I). The units for the product are revolutions/(60 x T).\r\n\r\nNSPEC   The number of points used to define a computing station. Must satisfy\r\n        2 <= NSPEC <= 21, and also the sum of NSPEC for all stations <= 150.\r\n        If 2 points are used, the station is a straight line. Otherwise, a\r\n        spline-curve is fitted through the given points.\r\n\r\nXSTN,   The axial and radial coordinates, respectively, of a point defining a\r\nRSTN    computing station. The first point must be on the hub and the last\r\n        point must be on the casing. Units: L.\r\n\r\nNDATA   Number of points defining conditions or blade geometry at a computing\r\n        station. Must satisfy 0 <= NDATA <= 21, and also the sum of NDATA for\r\n        all stations <= 100.\r\n\r\nNTERP   If NTERP = 0, and NDATA >= 3, interpolation of the data at the\r\n        station is by spline-fit.\r\n\r\n        If NTERP = 1 (or NDATA <= 2), interpolation is linear point-to-point.\r\n\r\nNDIMEN  If NDIMEN = 0, the data are input as a function of radius.\r\n\r\n        If NDIMEN = 1, the data are input as a function of radius normalized\r\n        with respect to tip radius.\r\n\r\n        If NDIMEN = 2, the data are input as a function of distance along the\r\n        computing station from the hub.\r\n\r\n        If NDIMEN = 3, the data are input as a function of distance along the\r\n        computing station normalized with respect to the total computing\r\n        station length.\r\n\r\nNMACH   If NMACH = 0, the subsonic solution to the continuity equation is\r\n        sought.\r\n\r\n        If NMACH = 1, the supersonic solution to the continuity equation is\r\n        sought. This should only be used at stations where the relative flow\r\n        angle is specified, that is, NWORK = 5, 6 or 7.\r\n\r\nDATAC   The coordinate on the computing station, defined according to NDIMEN,\r\n        where the following data items apply. Must increase monotonically.\r\n        For dimensional cases, units are L.\r\n\r\nDATA1   At Station 1 and if NWORK = 1, DATA1 is total pressure. Units: F/L/L.\r\n\r\n        If NWORK = 0 and the station is at a blade leading edge, by setting\r\n        NDATA not equal to 0, the blade leading edge may be described. Then\r\n        DATA1 is the blade angle measured in the cylindrical plane. Generally\r\n        negative for a rotor, positive for a stator. (Define the blade lean\r\n        angle (DATA3) also). Units: A.\r\n\r\n        If NWORK = 2, DATA1 is total enthalpy. Units: H/F.\r\n\r\n        If NWORK = 3, DATA1 is angular momentum (radius times absolute whirl\r\n        velocity). Units: LL/SCLFAC/T.\r\n\r\n        If NWORK = 4, DATA1 is absolute whirl velocity. Units: L/SCLFAC/T.\r\n\r\n        If NWORK = 5, DATA1 is blade angle measured in the streamsurface\r\n        plane. Generally negative for a rotor, positive for a stator. If zero\r\n        deviation is input, it becomes the relative flow angle. Units: A.\r\n\r\n        If NWORK = 6, DATA1 is the blade angle measured in the cylindrical\r\n        plane. Generally negative for a rotor, positive for a stator. If zero\r\n        deviation is input, it becomes, after correction for streamsurface\r\n        orientation and station lean angle, the relative flow angle. Units:\r\n        A.\r\n\r\n        If NWORK = 7, DATA1 is the reference relative outlet flow angle\r\n        measured in the streamsurface plane. Generally negative for a rotor,\r\n        positive for a stator. Units: A.\r\n\r\nDATA2   At Station 1, DATA2 is total temperature. Units: D.\r\n\r\n        If NLOSS = 1, DATA2 is the relative total pressure loss coefficient.\r\n        The relative total pressure loss is measured from the station that is\r\n        NL1 stations removed from the current station, NL1 being negative to\r\n        indicate an upstream station. The relative dynamic head is determined\r\n        NL2 stations removed from the current station, positive for a\r\n        downstream station, negative for an upstream station.\r\n\r\n        If NLOSS = 2, DATA2 is the isentropic efficiency of compression\r\n        relative to conditions NL1 stations removed, NL1 being negative to\r\n        indicate an upstream station.\r\n\r\n        If NLOSS = 3, DATA2 is the entropy rise relative to the value NL1\r\n        stations removed, NL1 being negative to indicate an upstream station.\r\n        Units: H/F/D.\r\n\r\n        If NLOSS = 4, DATA2 is not used, but a relative total pressure loss\r\n        coefficient is determined from the trailing edge value and curve set\r\n        number NCURVE of the NSET2 families of curves. NL1 and NL2 apply as\r\n        for NLOSS = 1.\r\n\r\n        If NLOSS = 7, DATA2 is the reference (minimum) relative total\r\n        pressure loss coefficient. NL1 and NL2 apply as for NLOSS = 1.\r\n\r\nDATA3   The blade lean angle measured from the projection of a radial line in\r\n        the plane of the computing station, positive when the innermost\r\n        portion of the blade precedes the outermost in the direction of rotor\r\n        rotation. Units: A.\r\n\r\nDATA4   The fraction of the periphery that is blocked by the presence of the\r\n        blades.\r\n\r\nDATA5   Cascade solidity. When a number of stations are used to describe the\r\n        flow through a blade, values are only required at the trailing edge.\r\n        (They are used in the loss coefficient re-estimation procedure, and\r\n        to evaluate diffusion factors for the output.)\r\n\r\nDATA6   If NWORK = 5 or 6, DATA6 is the deviation angle measured in the\r\n        streamsurface plane. Generally negative for a rotor, positive for a\r\n        stator. Units: A.\r\n\r\n        If NWORK = 7, DATA6 is reference relative inlet angle, to which the\r\n        minimum loss coefficient (DATA2) and the reference relative outlet\r\n        angle (DATA7) correspond. Measured in the streamsurface plane and\r\n        generally negative for a rotor, positive for a stator. Units: A.\r\n\r\nDATA7   If NWORK = 7, DATA7 is the rate of change of relative outlet angle\r\n        with relative inlet angle.\r\n\r\nDATA8   If NWORK = 7, DATA8 is the relative inlet angle larger than the\r\n        reference value at which the loss coefficient attains twice its\r\n        reference value. Measured in the streamsurface plane. Units: A.\r\n\r\nDATA9   If NWORK = 7, DATA9 is the relative inlet angle smaller than the\r\n        reference value at which the loss coefficient attains twice its\r\n        reference value. Measured in the streamsurface plane. Units: A.\r\n\r\nNWORK   If NWORK = 0, constant entropy, angular momentum, and total enthalpy\r\n        exist along streamlines from the previous station. (If NMIX = 1, the\r\n        distributions will be modified.)\r\n\r\n        If NWORK = 1, the total pressure distribution at the computing\r\n        station is specified. Used for rotors only.\r\n\r\n        If NWORK = 2, the total enthalpy distribution at the computing\r\n        station is specified. Used for rotors only.\r\n\r\n        If NWORK = 3, the absolute angular momentum distribution at the\r\n        computing station is specified.\r\n\r\n        If NWORK = 4, the absolute whirl velocity distribution at the\r\n        computing station is specified.\r\n\r\n        If NWORK = 5, the relative flow angle distribution at the station is\r\n        specified by giving blade angles and deviation angles, both measured\r\n        in the streamsurface plane.\r\n\r\n        If NWORK = 6, the relative flow angle distribution at the station is\r\n        specified by giving the blade angles measured in the cylindrical\r\n        plane, and the deviation angles measured in the streamsurface plane.\r\n\r\n        If NWORK = 7, the relative flow angle and relative total pressure\r\n        loss coefficient distributions are specified by means of an\r\n        off-design analysis procedure. \"Reference\", \"stalling\", and \"choking\"\r\n        relative inlet angles are specified. The minimum loss coefficient\r\n        varies parabolically with the relative inlet angle so that it is\r\n        twice the minimum value at the \"stalling\" or \"choking\" values. A\r\n        maximum value of 0.5 is imposed. \"Reference\" relative outlet angles\r\n        and the rate of change of outlet angle with inlet angle are\r\n        specified, and the relative outlet angle varies linearly from the\r\n        reference value with the relative inlet angle. NLOSS should be set to\r\n        zero.\r\n\r\nNLOSS   If NLOSS = 1, the relative total pressure loss coefficient\r\n        distribution is specified.\r\n\r\n        If NLOSS = 2, isentropic efficiency (for compression) distribution is\r\n        specified.\r\n\r\n        If NLOSS = 3, the entropy rise distribution is specified.\r\n\r\n        If NLOSS = 4, the total pressure loss coefficient distribution is\r\n        specified by use of curve-set NCURVE of the NSET2 families of curves\r\n        giving the fraction of final (trailing edge) loss coefficient.\r\n\r\nNL1     The station from which the loss (in whatever form NLOSS specifies) is\r\n        measured is NL1 stations removed from the station being evaluated.\r\n        NL1 is negative to indicate an upstream station.\r\n\r\nNL2     When a relative total pressure loss coefficient is used to specify\r\n        losses, the relative dynamic head is taken NL2 stations removed from\r\n        the station being evaluated. NL2 may be positive, zero, or negative;\r\n        a positive value indicates a downstream station, a negative value\r\n        indicates an upstream station.\r\n\r\nNEVAL   If NEVAL = 0, no action is taken.\r\n\r\n        If NEVAL > 0, curve-set number NEVAL of the NSET1 families of curves\r\n        giving diffusion loss parameter as a function of diffusion factor\r\n        will be used to re-estimate the relative total pressure loss\r\n        coefficient. NLOSS must be 1, and NL1 and NL2 must specify the\r\n        leading edge of the blade. See also NDEL.\r\n\r\n        If NEVAL < 0, curve-set number NEVAL is used as when NEVAL > 0,\r\n        except that the re-estimation is only made after the overall\r\n        computation is completed (with the input losses). The resulting loss\r\n        coefficients are displayed but not incorporated into the overall\r\n        calculation. See also NDEL.\r\n\r\nNCURVE  When NLOSS = 4, curve-set NCURVE of the NSET2 families of curves\r\n        specifying the fraction of trailing-edge pressure loss coefficient as\r\n        a function of meridional chord is used.\r\n\r\nNLITER  When NEVAL > 0, up to NLITER re-estimations of the loss coefficient\r\n        will be made at a given station during any one pass through the\r\n        overall iterative procedure. Less than NLITER re-estimations will be\r\n        made if the velocity profile is unchanged by re-estimating the loss\r\n        coefficients. (See discussion of tolerance scheme in Reference 4.)\r\n\r\nNDEL    When NEVAL = 0, set NDEL to 0. When NEVAL does not equal 0, and NDEL\r\n        > 0, a component of the re-estimated loss coefficient is a shock\r\n        loss. The relative inlet Mach number is expanded (or compressed)\r\n        through a Prandtl-Meyer expansion on the suction surface, and NDEL is\r\n        the number of points at which the Prandtl-Meyer angle is given. If\r\n        NDEL = 0, the shock loss is set at zero. Must satisfy 0 >= NDEL <=\r\n        21, and also the sum of NDEL for all stations <= 100.\r\n\r\nNOUT1   Set NOUT1 = 0\r\n\r\nNOUT2   Set NOUT2 = 0\r\n\r\nNOUT3   This data item controls the generation of NASTRAN-compatible\r\n        temperature and pressure difference output for use in subsequent\r\n        blade stress analyses. For details of the triangular mesh that is\r\n        used, see Section 1.19.5.1.\r\n\r\n        NOUT3 = XY, where\r\n\r\n           if X = 1, the station is at a blade leading edge.\r\n           if X = 2, the station is at a blade trailing edge.\r\n           if Y = 0, then both temperature and pressure data will be\r\n           generated.\r\n           if Y = 1, then only pressure data will be generated.\r\n           if Y = 2, then only temperature data will be generated.\r\n\r\n        If NOUT3 = 0, the station may be between blade rows, or within a\r\n        blade row for which output is required, depending upon the use of\r\n        NOUT3 not equal to 0 elsewhere. See also description of NBLADE below.\r\n\r\nNBLADE  This item is used in determining the pressure difference across the\r\n        blade. The number of blades is |NBLADE|. If NBLADE is positive,\r\n        \"three-point averaging\" is used to determine the pressure difference\r\n        across each blade element. If NBLADE is negative, \"four-point\r\n        averaging\" is used. (See Section 1.19.5.2.3.) If NBLADE is input as\r\n        zero, a value of +10 is used. At a leading edge, the value for the\r\n        following station is used; elsewhere the value at a station applies\r\n        to the interval upstream of the station. Thus, by varying the sign of\r\n        NBLADE, the averaging method used for the pressure forces may be\r\n        varied for different axial segments of a blade row.\r\n\r\nSPEED   The speed of rotation of the blade. At a blade leading edge, it\r\n        should be set to zero. The product SPDFAC times SPEED has units of\r\n        revolutions/(T x 60). This card is omitted if NDATA = 0.\r\n\r\nDELC    The coordinate at which Prandtl-Meyer expansion angles are given. It\r\n        defines the angle as a function of the dimensions of the leading edge\r\n        station, in the manner specified by NDIMEN for the current, that is,\r\n        trailing edge station. Must increase monotonically. For dimensional\r\n        cases, units are L.\r\n\r\nDELTA   The Prandtl-Meyer expansion angles. A positive value implies\r\n        expansion. If blade angles are given at the leading edge, the\r\n        incidence angles are added to the value specified by DELTA. Units: A.\r\n        (Blade angles are measured in the cylindrical plane.)\r\n\r\nWBLOCK  A blockage factor that is incorporated into the continuity equation\r\n        to account for annulus wall boundary layers. It is expressed as the\r\n        fraction of total area at the computing station that is blocked. If\r\n        NBL = 1, values (except at Station 1) are revised during computation,\r\n        involving data items VISK and SHAPE.\r\n\r\nBBLOCK, A blockage factor is incorporated into the continuity equation that\r\nBDIST   may be used to account for blade wakes or other effects. It varies\r\n        linearly with distance along the computing station. BBLOCK is the\r\n        value at mid-station (expressed as the fraction of the periphery\r\n        blocked), and BDIST is the ratio of the value on the hub to the\r\n        mid-value.\r\n\r\nNDIFF   When NSET1 > 0, there are NDIFF points defining loss diffusion\r\n        parameter as a function of diffusion factor. Must satisfy 1 <= NDIFF\r\n        <= 15.\r\n\r\nDIFF    The diffusion factor at which loss parameters are specified. Must\r\n        increase monotonically.\r\n\r\nFDHUB   Diffusion loss parameter at 10% of the radial blade height.\r\n\r\nFDMID   Diffusion loss parameter at 50% of the radial blade height.\r\n\r\nFDTIP   Diffusion loss parameter at 90% of the radial blade height.\r\n\r\nNM      When NSET2 > 0, there are NM points defining the fraction of trailing\r\n        edge loss coefficient as a function of meridional chord. Must satisfy\r\n        1 <= NM <= 11.\r\n\r\nNRAD    The number of radial locations where NM loss fraction/chord points\r\n        are given. Must satisfy 1 <= NRAD <= 5.\r\n\r\nTERAD   The fraction of radial blade height at the trailing edge where the\r\n        following loss fraction/chord curve applies. If NRAD = 1, it has no\r\n        significance.\r\n\r\nDM      The location on the meridional chord where the loss fraction is\r\n        given. Expressed as a fraction of meridional chord from the leading\r\n        edge. Must increase monotonically.\r\n\r\nWFRAC   Fraction of trailing edge loss coefficient that occurs at location\r\n        DM.\r\n\r\nDELF    The fraction of the total flow that is to occur between the hub and\r\n        each streamline. The hub and casing are included, so that the first\r\n        value must be 0.0, and the last (NSTRMS) value must be 1.0.\r\n\r\nR       Estimated streamline radius. (This data is input from hub to tip for\r\n        the first station, from hub to tip for the second station, and so\r\n        on.) Units: L.\r\n\r\nX       Estimated axial coordinate at intersection of streamline with\r\n        computing station. Units: L.\r\n\r\nXL      Estimated distance along computing station from hub to intersection\r\n        of streamline with computing station. Units: L.\r\n\r\nII, JJ  Station and streamline number. These are merely read in and printed\r\n        out to give a check on the order of the cards.\r\n\r\n1.19.5  Aerodynamic Output Data\r\n\r\n1.19.5.1  Analytic Meanline Blade Section\r\n\r\n   Printed output may be considered to consist of four sections: a printout of\r\nthe input data, details of the blade sections on each streamsurface, a listing\r\nof quantities required for aerodynamic analysis, and details of the\r\nmanufacturing sections determined on the constant-z planes. These are briefly\r\ndescribed below. In the explanation which follows, parenthetical statements\r\nare understood to refer to the particular case of the double-circular-arc\r\nblade (ISECN = 2).\r\n\r\n   The input data printout includes all quantities read in, and is\r\nself-explanatory.\r\n\r\n   Details of the streamsurface blade sections are printed if IPRINT = 0 or 1.\r\nListed first are the parameters defining the blade section. These are\r\ninterpolated at the streamsurface from the tables read in. Then follow details\r\nof the blade section in \"normalized\" form. The blade section geometry is given\r\nfor the section specified, except that the meridional projection of the chord\r\nis unity. For this section of the output, the coordinate origin is the blade\r\nleading edge. The following quantities are given: blade chord, stagger angle,\r\ncamber angle, section area, location of the centroid of the section, second\r\nmoments of area of the section about the centroid, orientation of the\r\nprincipal axes, and the principal second moments of area of the section about\r\nthe centroid. Then are listed the coordinates of the camber line, the camber\r\nline angle, the section thickness, and the coordinates of the blade surfaces.\r\nNPOINT values are given.\r\n\r\n   A line printer plot of the normalized section follows. The scales for the\r\nplot are arranged so that the section just fills the page; therefore the\r\nscales will generally differ from one plot to another. \"Dimensional\" details\r\nof the blade section are given next. The normalized data given previously is\r\nscaled to give a blade section as defined by IFCORD and CORD. For this section\r\nof the output, the coordinates are with respect to the blade stacking axis.\r\nThe following quantities are given: blade chord, radius and location of center\r\nof leading and trailing edges, section area, the second moments of area of the\r\nsection about the centroid, and the principal second moments of area of the\r\nsection about the centroid. The coordinates of NPOINT points on the blade\r\nsurfaces are then listed, followed by the coordinates of 31 points distributed\r\nat (roughly) six-degree intervals around the leading and trailing edges.\r\nFinally, the coordinates of the blade surfaces and points around the leading\r\nand trailing edges are shown in Cartesian form.\r\n\r\n   The quantities required for aerodynamic analysis are printed at all\r\ncomputing stations specified by the IFANGS parameter. The radius, blade\r\nsection angle, blade lean angle, blade blockage, and relative angular location\r\nof the camber line are printed at each streamsurface intersection with the\r\nparticular computing station. The blade section angle is measured in the\r\ncylindrical plane, and the blade lean angle is measured in the\r\nconstant-axial-coordinate plane.\r\n\r\n   Details of the manufacturing sections are printed if IPRINT = 0 or 2. At\r\neach value of z specified by ZINNER, ZOUTER, and NZ, section properties and\r\ncoordinates are given. The origin for the coordinates is the blade stacking\r\naxis. The following quantities are given: section area, the location of the\r\ncentroid of the section, the second moments of area of the section about the\r\ncentroid, the principal second moments of area of the section about the\r\ncentroid, the orientation of the principal axes, and the section torsional\r\nconstant. Then the coordinates of NPOINT points on the blade section surfaces\r\nare listed, followed by 31 points around the leading and trailing edges.\r\n\r\n   The additional input and output required for, and generated by, the\r\ninterface are also printed. (Apart from the input data printout, this is the\r\nonly printed output when IPRINT = 3.)\r\n\r\n   If the parameter PGEOM does not equal 1, then cards are punched that may be\r\nused as input for subsequent NASTRAN runs. For the purpose of stress analysis,\r\nthe blade is divided into a number of triangular elements, each defined by\r\nthree grid points. The intersections between computing stations and\r\nstreamsurfaces are used as the grid points, and the grid points and element\r\nnumbering scheme adopted is illustrated in Figure 1.19-3.\r\n\r\n                                   \r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n        Figure 1.19-3. Grid point and element numbering scheme.\r\n=PAGE=\r\n1.19.5.2  Aerodynamic Section\r\n\r\n1.19.5.2.1  Normal Output\r\n\r\n   The input data is first printed out in its entirety, and the results for\r\neach running point follow. The output is generally self-explanatory and\r\ndefinitions are given here for some derived quantities. Tabular output is\r\ngenerally not started on a page unless it can be completed on the same page,\r\naccording to the maximum number of lines permitted by the input variable\r\nNPAGE.\r\n\r\n   The results of each running point are given under a heading giving the\r\nrunning point number. Any diagnostics generated during the calculation will\r\nappear first under the heading. (Diagnostics are described in the following\r\nsection.) Then, a station-by-station printout follows for each station through\r\nto the last station, or to the station where the calculation failed, if this\r\noccurred. One or more diagnostics will indicate the reason for the failure, in\r\nthis event. Included in the meshpoint coordinate data is the distance along\r\nthe computing station from the hub to the interception of the streamline with\r\nthe station (L), and the station lean angle (GAMA). Where the radius of\r\ncurvature of a streamline is shown as zero, the streamline has no curvature.\r\nThe whirl angle is defined by\r\n\r\n               V\r\n                \r\n      tan  =                                                  (2)\r\n               V\r\n                m\r\n\r\n   For stations within a blade, or at a blade trailing edge, a relative total\r\npressure loss coefficient is shown. The loss of relative total pressure is\r\ncomputed from the station defined by the input variable NL1. If a loss\r\ncoefficient was used in the input for the station (NLOSS = 1 or 4, or NWORK =\r\n7), the input variable NL2 defines the station where the normalizing relative\r\ndynamic head is taken; otherwise, it is taken at the station defined by NL1.\r\nIf the cascade solidity is given as anything but zero, it is used in the\r\ndetermination of diffusion factors. The following definition is used:\r\n\r\n                V         V    V\r\n                 2r        1r  2r\r\n      D = 1 -    +                                  (3)\r\n                V         2 V\r\n                 1r           1r\r\n\r\n   Inlet conditions (subscript 1) are taken from the station defined by the\r\ninput variable NL1.\r\n\r\n   The last term in Equation 3 is multiplied by -1 if the blade speed is\r\ngreater than zero, or the blade speed is zero and the preceding rotating blade\r\nrow has negative rotation. This is necessary because relative whirl angles are\r\n(generally) negative for rotor blades and for stator blades that follow a\r\nrotor having \"negative\" wheel speed. Incidence and deviation angles are\r\ntreated in the same way, so that positive and negative values have their\r\nconventional significance for all blades.\r\n\r\n   If annulus wall boundary layer computations were made (NBL = 1), details\r\nare shown for each station. Then, an overall result is given, including a\r\nstatement of the number of passes that have been performed and whether the\r\ncalculation has converged, unconverged, or failed. When the calculation is\r\nunconverged, the number of mesh points where the meridional velocity component\r\nhas not remained constant to within the specified tolerance (TOLNCE) on the\r\nlast two passes is shown as IVFAIL. Similarly, the number of streamtubes,\r\ndefined by the hub and each streamline in turn, where the fraction of the flow\r\nis not within the same tolerance of the target value, is shown as IFFAIL. If\r\nthese numbers are small, say less than 10% of the maximum possible values, the\r\nresults may generally be used. Otherwise, the computation should be rerun,\r\neither for a greater number of passes, or with modified relaxation factor\r\nconstants. The default option relaxation constants will generally be\r\nsatisfactory but may need modification for some cases. If insufficient damping\r\nis specified by the constants, the streamlines generated will tend to\r\noscillate, and this may be detected by observing a relatively small radius of\r\ncurvature for the mid-passage streamline that also changes sign from one\r\nstation to the next. This may be corrected by rerunning the problem (from\r\nscratch) with a lower value input for RCONST, say, of 4.0 instead of 6.0. When\r\nthe damping is excessive, the velocities will tend to remain constant while\r\nthe streamlines will not adjust rapidly to the correct locations. This will be\r\nindicated by a small IVFAIL and a relatively large IFFAIL. For optimum program\r\nperformance, RCONST should be increased, and the streamline pattern generated\r\nthus far could be used as a starting point. The second constant XMMAX (the\r\nmaximum value of the square of Mach number used in the relaxation factor) is\r\nincorporated so that in high subsonic or supersonic cases the damping does not\r\ndecrease unacceptably. The default value of 0.6 may be too low for rapid\r\nprogram convergence in some such cases.\r\n\r\n   If the generation of blade pressure load data for subsequent use in NASTRAN\r\nis specified (by the input variable NOUT3), a self-explanatory printout is\r\nalso made. The blade element numbering scheme is the same as that incorporated\r\ninto both blading sections of the program, and illustrated in Figure 1.19-1.\r\n\r\n   If the loss coefficient re-estimation routine has been used for any\r\nbladerow(s) (NEVAL is not equal to 0), a printout summarizing the computations\r\nmade will follow. A heading indicating whether the re-estimation was\r\nincorporated into the overall iterative procedure or whether it was merely\r\nmade \"after the event\" is first printed. Then follows a self-explanatory\r\ntabulation of various quantities involved in the re-determination of the loss\r\ncoefficient on each streamline.\r\n\r\n1.19.5.2.2  Diagnostic Output\r\n\r\n   The various diagnostic messages that may be produced by the aerodynamic\r\nsection of the program are all shown. Where a computed value will appear, \"x\"\r\nis shown here.\r\n\r\n1. JOB STOPPED - TOO MUCH INPUT DATA.\r\n\r\nThe above message will occur if the sum of NSPEC or NDATA or NDEL for all\r\nstations is above the permitted limit. Execution ceases.\r\n\r\n2. STATIC ENTHALPY BELOW LIMIT AT xxx.xxxxxExxx.\r\n\r\nThe output routine (subroutine ALG11) calculates static enthalpy at each\r\nmeshpoint when computing the various output parameters, and this message will\r\noccur if a value below the limit (HMIN) occurs. The limiting value will be\r\nused, and the results printed become correspondingly arbitrary. HMIN is set in\r\nsubroutine ALGAR, and should be maintained at some positive value well below\r\nany value that will be validly encountered in calculation.\r\n\r\n3. PASSxxx STATIONxxx STREAMLINExxx PRANDTL-MEYER\r\n   FUNCTION NOT CONVERGED - USE INLET MACH NO.\r\n\r\nThe loss coefficient re-estimation procedure involves iteratively solving for\r\nthe Mach number in the Prandtl-Meyer function. If the calculation does not\r\nconverge in 20 attempts, the above message is printed, and, as indicated, the\r\nMach number following the expansion (or compression) is assumed to equal the\r\ninlet value. (The routine only prints output following the completion of all\r\ncomputations and printing of the station-by-station output data.)\r\n\r\n4. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx\r\n   MERIDIONAL VELOCITY UNCONVERGED VM = xx.xxxxxxExx\r\n   VM(OLD) = xx.xxxxxxExx.\r\n\r\nFor \"analysis\" cases, that is, at stations where relative flow angle is\r\nspecified, the calculation of meridional velocity proceeds iteratively at each\r\nmeshpoint from the mid-streamline to the case and then to the hub. The\r\nvariable IPMAX (set to 10 in subroutines ALG08 and ALG26) limits the maximum\r\nnumber of iterations that may be made at a streamline without the velocity\r\nbeing converged before the calculation proceeds to the next streamline. The\r\nabove message will occur if all iterations are used without achieving\r\nconvergence, and the pass number is greater than NFORCE. Convergence is here\r\ndefined as occurring when the velocity repeats to within TOLNCE/5.0, applied\r\nnondimensionally. No other program action occurs.\r\n\r\n5. PASSxxx STATIONxxx MOMENTUM AND/OR CONTINUITY\r\n   UNCONVERGED W/W SPEC = xx.xxxxx VM/VM (OLD) HUB xx.xxxxx\r\n   MID = xx.xxxxx TIP = xx.xxxxx.\r\n\r\nIf, following completion of all ITMAX iterations permitted for the flow rate\r\nor meridional velocity, the simultaneous solution of the momentum and\r\ncontinuity equations profile is unconverged, and the pass number is greater\r\nthan NFORCE, the above message occurs. Here converged means that the flow rate\r\nequals the specified value, and the meridional velocity repeats, to within\r\nTOLNCE/5.0, applied nondimensionally. If loss coefficient re-estimation is\r\nspecified (NEVAL > 0), an additional iteration is involved, and the tolerance\r\nis halved. No further program action occurs.\r\n\r\n6. PASSxxx STATIONxxx VM PROFILE NOT CONVERGED WITH LOSS RECALC\r\n   VM NEW/VM PREV HUB = xx.xxxxxx MID = xx.xxxxxx CASE = xx.xxxxxx.\r\n\r\nWhen loss re-estimation is specified (NEVAL > 0), up to NLITER solutions to\r\nthe momentum and continuity equations are completed, each with a revised loss\r\ncoefficient variation. If, when the pass number is greater than NFORCE, the\r\nvelocity profile is not converged after the NLITER cycles of calculation have\r\nbeen performed, the above message is issued. For convergence, the meridional\r\nvelocities must repeat to within TOLNCE/5.0, applied nondimensionally. No\r\nfurther program action occurs.\r\n\r\nA further check on the convergence of this procedure is to compare the loss\r\ncoefficients used on the final pass of calculation, and thus shown in the\r\nstation-by-station results, with those shown in the output from the loss\r\ncoefficient re-estimation routine, which are computed from the final\r\nvelocities, etc.\r\n\r\n7. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx STATIC ENTHALPY BELOW\r\n   LIMIT IN MOMENTUM EQUATION AT xxx.xxxxxExxx.\r\n\r\nThe static enthalpy is calculated (to find the static temperature) during\r\ncomputation of the \"design\" case momentum equation, that is, when whirl\r\nvelocity is specified. If a value lower than HMIN (see discussion of second\r\ndiagnostic message) is produced, the limiting value is inserted. If this\r\noccurs when IPASS > NFORCE, the above message is printed. If this occurs on\r\nthe final iteration, the calculation is deemed to have failed, calculation\r\nceases, and results are printed out through to this station.\r\n\r\n8. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx LOOPxxx\r\n   STATIC H IN MOMENTUM EQUN. BELOW LIMIT AT xxx.xxxxxExxx.\r\n\r\nThis corresponds to the previous message, but for the \"analysis\" case. For\r\nfailure, it must occur on the final iteration and loop.\r\n\r\n9. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx\r\n   MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx.xxxxxExx.\r\n\r\nWhen subroutine ALG08 is selected (NEQN = 0 or 1), the meridional Mach number\r\nis calculated during computation of the design momentum equation, and a\r\nmaximum value of 0.99 is permitted. If a higher value is calculated, the\r\nlimiting value is inserted. If this occurs when IPASS > NFORCE, the above\r\nmessage is printed. If this occurs on the final iteration, the calculation is\r\ndeemed to have failed, calculation ceases, and results are printed through to\r\nthis station.\r\n\r\n10. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx LOOPxxx\r\n    MERIDIONAL MACH NUMBER ABOVE LIMIT AT xxx.xxxxxExxx.\r\n\r\nThis corresponds to the previous message, but for the \"analysis\" case. For\r\nfailure, it must occur at the final iteration and loop.\r\n\r\n11. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx\r\n    MOMENTUM EQUATION EXPONENT ABOVE LIMIT AT xxx.xxxxxExxx.\r\n\r\nAn exponentiation is performed during the computation of the design case\r\nmomentum equation, and the maximum value of the exponent is limited to 88.0.\r\nIf this substitution is required when IPASS > NFORCE, the above message is\r\nprinted. If it occurs on the final iteration, the calculation is deemed to\r\nhave failed, calculation ceases, and results are printed through to this\r\nstation.\r\n\r\n12. PASSxxx STATIONxxx ITERATIONSxxx STREAMLINExxx\r\n    (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT xxx.xxxxxExxx.\r\n\r\nIf a meridional velocity, squared, of less than 1.0 is calculated during\r\ncomputation of the design case momentum equation, this limit is imposed. If\r\nthis occurs when IPASS > NFORCE, the above message is printed. If this occurs\r\non the final iteration, the calculation is deemed to have failed, calculation\r\nceases, and results are printed out through to this station.\r\n\r\n13. PASSxxx STATIONxxx ITERATIONxxx STREAMIINExxx LOOPxxx\r\n    (MERIDIONAL VELOCITY) SQUARED BELOW LIMIT AT xxx.xxxxxExxx.\r\n\r\nThis corresponds to the previous message, but for the \"analysis\" case. For\r\nfailure, it must occur on the last iteration and loop.\r\n\r\n14. PASSxxx STATIONxxx ITERATIONxxx STREAMTUBExxx\r\n    STATIC ENTHALPY BELOW LIMIT IN CONTINUITY EQUATION\r\n    AT xxx.xxxxxExxx.\r\n\r\nThe static enthalpy is calculated during computation of the continuity\r\nequation. If a value lower than HMIN (see discussion of second diagnostic\r\nmessage) is produced, the limiting value Is imposed. If this occurs when IPASS\r\n> NFORCE, the above message is printed. If this occurs on the final iteration,\r\nthe calculation is deemed to have failed, calculation ceases, and results are\r\nprinted out through to this station.\r\n\r\n15. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx\r\n    MERIDIONAL VELOCITY BELOW LIMIT IN CONTINUITY AT\r\n    xxx.xxxxxExxx.\r\n\r\nIf a meridional velocity of less than 1.0 is calculated when the velocity\r\nprofile is incremented by the amount estimated to be required to satisfy\r\ncontinuity, this limit is imposed. If this occurs when IPASS > NFORCE, the\r\nabove message is printed. If this occurs on the final iteration, the\r\ncalculation is deemed to have failed, calculation ceases, and results are\r\nprinted through to this station.\r\n\r\n16. PASSxxx STATIONxxx ITERATIONxxx OTHER CONTINUITY EQUATION\r\n    BRANCH REQUIRED\r\n\r\nIf, when IPASS > NFORCE, a velocity profile is produced that corresponds to a\r\nsubsonic solution to the continuity equation when a supersonic solution is\r\nrequired, or vice versa, the above message is printed. If this occurs on the\r\nfinal iteration, failure is deemed to have occurred, calculation ceases, and\r\nresults are printed out through to this station.\r\n\r\n17. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx\r\n    MERIDIONAL VELOCITY GREATER THAN TWICE MID VALUE\r\n\r\nDuring integration of the \"design\" momentum equations, no meridional velocity\r\nis permitted to be greater than twice the value on the mid-streamline. If this\r\noccurs when IPASS > NFORCE, the above message is printed. If this occurs on\r\nthe final iteration, the calculation is deemed to have failed, calculation\r\nceases, and results are printed through to this station. In the event that\r\nthis limit interferes with a valid velocity profile, the constants that appear\r\non some of the input data cards may have to be modified accordingly. Note that\r\nas the calculation is at this point working with the square of the meridional\r\nvelocity, the constant for a limit of, for instance, 2.0 times the\r\nmid-streamline value appears as 4.0.\r\n\r\n18. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx LOOPxxx\r\n    MERIDIONAL VELOCITY ABOVE LIMIT xxxxxExx LIMIT = xxxxxExx.\r\n\r\nDuring integration of the \"analysis\" momentum equations, no meridional\r\nvelocity is permitted to be greater than three times the value on the\r\nmid-streamline. If this occurs when IPASS > NFORCE, the above message is\r\nprinted. If this occurs on the final loop of the final iteration, the\r\ncalculation is deemed to have failed, calculation ceases, and results are\r\nprinted through to this station. In the event that the limit interferes with a\r\nvalid velocity profile, the constants that appear on some of the input data\r\ncards may have to be modified accordingly. Note that the program is working\r\nwith meridional velocity squared, so that a limit of, for instance, 3.0 times\r\nthe mid-streamline value appears as 9.0.\r\n\r\n19. PASSxxx STATIONxxx STREAMLINExxx LIMITING MERIDIONAL VELOCITY\r\n    SQUARED = xxxxxExx.\r\n\r\nIn subroutine ALG08 (NEQN = 0 or 1), a maximum permissible meridional velocity\r\n(equal to the speed of sound) is established for each streamline at the\r\nbeginning of each pass. The calculation yields the square of the velocity, and\r\nif a value of less than 1.0 is obtained, a value of 6250000.0 is superimposed\r\n(which corresponds to a meridional velocity of 2500.0). If this occurs when\r\nIPASS > NFORCE, the above message is printed, and the calculation is deemed to\r\nhave failed. Calculation ceases after the station computations are made, and\r\nresults are printed through to this station.\r\n\r\n20. PASSxxx STATIONxxx ITERATIONxxx STREAMLINExxx MERIDIONAL\r\n    VELOCITY ABOVE SOUND SPEED VM = xxxx.xx A = xxxx.xx.\r\n\r\nIn subroutine ALG08 (NEQN = 0 or 1), no meridional velocity is permitted to be\r\nlarger than the speed of sound. The above message will occur if this limit is\r\nviolated during integration of the \"design\" momentum when IPASS > NFORCE. If\r\nthe limit is violated at any point when IPASS > NFORCE and on the last\r\npermitted iteration (last permitted loop also in the case of the \"analysis\"\r\nmomentum equation), the calculation is deemed to have failed. Calculation\r\nceases, and the results are printed through to this station.\r\n\r\n21. MIXING CALCULATION FAILURE NO. n\r\n\r\nThe above message occurs when flow mixing calculations are specified, and the\r\ncomputation fails. The overall calculation is halted, and results are printed\r\nthrough to the station that is the upstream boundary for the mixing interval\r\nin which the failure occurred. The integer n takes on different values to\r\nindicate specific problems as follows.\r\n\r\n1  In solving for the static pressure distribution at the upstream boundary of\r\n   each mixing step, the average static enthalpy is determined in each\r\n   streamtube (defined by an adjacent pair of streamlines). This failure\r\n   indicates that a value less than HMIN was determined.\r\n\r\n2  Calculation of the static pressure distribution at the upstream boundary of\r\n   the mixing step is iterative. This failure indicates that the procedure did\r\n   not converge after 10 iterations.\r\n\r\n3  The static enthalpy on each streamline at the mixing step upstream boundary\r\n   is determined from the static pressure and entropy there. This failure\r\n   indicates that a value less than HMIN was determined.\r\n\r\n4  The axial velocity distribution at the mixing step upstream boundary is\r\n   determined from the total enthalpy, static enthalpy, and tangential\r\n   velocity distributions. This failure indicates that a value less than HMIN\r\n   was determined.\r\n\r\n5  In solving for the static pressure distribution at the downstream boundary\r\n   of each mixing step, the average static enthalpy is determined in each\r\n   streamtube (defined by an adjacent pair of streamlines). This failure\r\n   indicates that a value less than HMIN was determined.\r\n\r\n6  Calculation of the static pressure distribution at the downstream boundary\r\n   of the mixing step is iterative. This failure indicates that the procedure\r\n   did not converge after 10 iterations.\r\n\r\n7  The static enthalpy distribution at the mixing step downstream boundary is\r\n   found from the total enthalpy, axial velocity, and tangential velocity\r\n   distributions. This failure indicates that a value less than HMIN was\r\n   determined.\r\n\r\n8  In order to satisfy continuity, the static pressure level at the mixing\r\n   step downstream boundary is iteratively determined. This failure indicates\r\n   that after 15 attempts, the procedure was unconverged.\r\n\r\n1.19.5.2.3  Aerodynamic Load and Temperature Output\r\n\r\n   Four output options may result in cards being punched by the aerodynamic\r\nsection of the program. Use of the input item NOUT3 gives PLOAD2 and TEMP\r\ncards punched in a format compatible with NASTRAN input data. For the purposes\r\nof stress analysis, the blade is taken to be composed of a number of\r\ntriangular elements. Two such elements are formed by the quadrilateral defined\r\nby two adjacent streamlines and two adjacent computing stations. The way that\r\neach quadrilateral is divided into two triangles, and the element numbering\r\nscheme that is used, are illustrated in Figure 1.19-3. The pressure difference\r\nfor each element is given by an average of either three or four values at\r\nsurrounding meshpoints. The pressure difference at each meshpoint is computed\r\nfrom the equation\r\n\r\n                 2rp                        dS     Vm    d  (rV)\r\n      delta p =   { sin  cos  g J +  +         }(4)\r\n                  N                          dM     r     dm\r\n\r\nand as follows. At the blade leading edge, a forward difference is used to\r\ndetermine the meridional gradients. At the blade trailing edge, the pressure\r\ndifference is taken to be zero. At stations with the bladerow (following a\r\nleading edge), mean central differences are used to determine the meridional\r\ngradients. When the input item NBLADE is positive (or zero) for a particular\r\nblade axial segment, then three-point averaging is used. For instance, for\r\nelement number 1 in Figure 1.19-3, pressure differences at grid points 1, 6,\r\nand 7 would be used. If NBLADE is negative, four-point averaging is used. For\r\ninstance, for element number 1, pressure differences at grid points 1, 2, 6,\r\nand 7 would be used. The same average would also apply to element number 2.\r\nRelative total temperatures are output at the grid points on the blade. A\r\nTEMPD value is also output, using the average temperature at the blade root\r\nfor the grid points on the rest of the structure.\r\n\r\nREFERENCES\r\n\r\n1. Elchuri, V., Smith, G. C. C., Gallo, A. M., and Dale, B. J., \"NASTRAN Level\r\n   16 Theoretical, User's, Programmer's, and Demonstration Manuals Updates for\r\n   Aeroelastic Analysis of Bladed Discs,\" NASA CRs 159823-159826, March 1980.\r\n\r\n2. Smith, G. C. C., and Elchuri, V., \"Aeroelastic and Dynamic Finite Element\r\n   Analysis of a Bladed Shrouded Disk,\" NASA CR 159728, March 1980.\r\n\r\n3. Gallo, A. M., Elchuri, V. and Skalskl, S. C., \"Bladed-Shrouded-Disc\r\n   Aeroelastic Analyses: Computer Program Updates in NASTRAN Level 17.7,\" NASA\r\n   CR-165428, December 1981.\r\n\r\n4. Hearsey, R. M., \"A Revised Computer Program for Axial Compressor Design,\"\r\n   ARL-75-0001, Vols. I and II, Wright-Patterson AFB, January 1975.\r\n=PAGE=\r\n1.20  MODAL FLUTTER ANALYSIS OF AXIAL-FLOW TURBOMACHINES AND ADVANCED\r\nTURBOPROPELLERS\r\n\r\n1.20.1  Introduction\r\n\r\n   Unstalled flutter boundaries of axial-flow turbomachines (compressors and\r\nturbines) can be determined using the capability described in this section.\r\nThe aeroelastic stability of a given operating point of a given stage of the\r\nturbomachine is investigated in terms of modal families of several\r\ncircumferential harmonic indices considered one at a time. This capability is\r\nbased on the work described in References 1 through 3.\r\n\r\n   Unstalled flutter boundaries of multi-bladed advanced turbopropellers can\r\nalso be determined using this capability. Such propellers consist of thin\r\nblades of low aspect ratio and varying sweep. The analysis is similar to that\r\nfor axial-flow turbomachines, with the exception that the effects of blade\r\nsweep and its spanwise variation are taken into account in computing the\r\ngeneralized unsteady aerodynamic loads. This capability is based on the work\r\ndescribed in References 4 and 5.\r\n\r\n1.20.2  Problem Formulation\r\n\r\n   Impellers, propellers, fans, and bladed discs of turbomachines are some\r\nexamples of structures that exhibit rotational cyclic symmetry in their\r\ngeometric, material, and constraint properties. The modal flutter behavior of\r\nsuch tuned cyclic structures can be investigated by a modal formulation of the\r\nfollowing equations:\r\n\r\n        n   ..n      n   . n       en      dn     n      n    n\r\n      [M ] {u  } + [B ] {u  } + [[K  ] + [K  ]] {u } - [Q ] {u } = 0(1)\r\n\r\n        n            n+1\r\n      {u }       = {u   }                                           (2)\r\n          side 2         side 1\r\n\r\nfor n = 1, 2,..., N,\r\n\r\nwhere n is the cyclic sector number and N is the number of cyclic sectors in\r\nthe structure. (See Section 1.12 for a discussion of cyclic symmetry and the\r\nmeaning of sides 1 and 2 in reference to a cyclic sector.)\r\n\r\n   In the above equations, {un} represents the vibratory displacements in the\r\nnth cyclic sector superposed on the steady-state deformed shape. [Mn], [Bn],\r\n[Ken], and [Qn] are the mass, damping, elastic stiffness, differential\r\nstiffness, and aerodynamic matrices, respectively, referred to the nth cyclic\r\nsector.\r\n\r\n   The natural modes and frequencies of the tuned cyclic structure can be\r\ngrouped in terms of several uncoupled sets, with each set corresponding to a\r\npermissible circumferential harmonic index, k. Except for k = 0 and k = N/2 (N\r\neven), the cyclic modes can be further separated into cosine and sine\r\ncomponent modes. For k = 0 and k = N/2, only cosine modes are defined. (See\r\nSection 4.5 of the Theoretical Manual.) For tuned cyclic structures, the modal\r\nflutter problem can be posed in terms of either cosine or sine modes with\r\nidentical results (Reference 2). In the present capability, this selection of\r\nmode type is provided as a user option.\r\n\r\n1.20.3  NASTRAN Implementation\r\n\r\n   A rigid format (AERO APP R.F. 9) has been developed specifically for the\r\nmodal flutter analysis of axial-flow turbomachines and advanced\r\nturbopropellers. It features bulk data cards and parameters designed to meet\r\nthe specific needs of this flutter capability. A simplified flowchart of the\r\nrigid format is given in Figure 1.20-1. Complete details of the implementation\r\nin earlier versions of NASTRAN are given in References 1, 3, and 5.\r\n\r\n   The rigid format integrates the cyclic modal computations for a given\r\ncircumferential harmonic index with available flutter solution techniques in\r\nNASTRAN. The Mach number parameter used in wing flutter analysis is replaced\r\nby the interblade phase angle parameter for blade flutter analysis.\r\n\r\n   In a compressor, turbine, or advanced turbopropeller, an operating point is\r\ndefined in terms of flow properties such as density, velocity, Mach number,\r\nflow angle, etc., that vary across the blade span. Blade properties like the\r\nblade angles, stagger angle, chord, etc., also, in general, change from the\r\nblade root to the tip. The resulting spanwise variation in the local reduced\r\nfrequency and the relative Mach number is accounted for in estimating the\r\nchordwise generalized aerodynamic forces per unit span at each streamline.\r\nIntegration of these forces over the blade span yields the blade generalized\r\naerodynamic load matrix. In order to nondimensionalize this matrix, the flow\r\nand blade properties at a reference streamline are used.\r\n\r\n   The generalized aerodynamic loads matrix, [Q], is computed by\r\ntwo-dimensional cascade unsteady subsonic and supersonic aerodynamic theories\r\nof References 6 and 7, respectively, used in a strip theory manner from the\r\nblade root to the blade tip, as shown in Figures 1.20-2 and 1.20-3. These\r\ntheories have been incorporated into the AMG (Aerodynamic Matrix Generator)\r\nmodule in NASTRAN.\r\n\r\n   For advanced turbopropellers, the unsteady aerodynamic theory of Reference\r\n6 has been modified to include the effects of blade sweep and its radial\r\nvariability (Reference 4).\r\n\r\n1.20.4  Usage of the Capability\r\n\r\n   Due to rotational cyclic symmetry, only one cyclic sector need be modeled.\r\nThe structural model is prepared using the general capabilities of NASTRAN for\r\nmodeling rotationally cyclic structures (see Section 1.12). The basic\r\ncoordinate system is fixed to the rotor/stator or the rotating propeller so\r\nthat the X-axis coincides with the axis of rotation and is in the direction of\r\nair flow. The location of the origin is arbitrary.\r\n\r\n   The XZ plane is located so as to contain (approximately) the maximum\r\nprojected area of the blade being modeled. This orientation is consistent with\r\nthe internally generated chordline coordinate systems for the unsteady\r\naerodynamics.\r\n\r\n   The aerodynamic model is defined by STREAML1 bulk data cards and comprises\r\na grid defined by the intersection of a series of chords and \"computing\r\nstations\" (Figures 1.20-2 and 1.20-3). The chords are selected normal to any\r\nspanwise reference curve such as the blade leading edge. The choice of the\r\nnumber and location of the chords and the computing stations is dictated by\r\nthe expected variation of the relative flow properties across the blade span,\r\nand the complexity of the mode shapes exhibited by the blade. The reference\r\nstreamline number (see Section 1.20.3 above) is specified on the PARAM IREF\r\nbulk data card. Due to its resemblance to the structural model of the blade,\r\nand the adequacy of a relatively coarse grid to describe the spanwise flow\r\nvariations, the aerodynamic model is generally chosen as a subset of the\r\nstructural model, as shown in Figures 1.20-2 and 1.20-3.\r\n\r\n   STREAML2 bulk data cards are used to specify the parameters associated with\r\nboth swept and unswept blade aerodynamics at the blade streamlines. Figure\r\n1.20-4 defines some of these parameters in the case of a swept blade. In this\r\nfigure, A-B-, AB, and A+B+ represent three successive chords with the point\r\nA's on the leading edge. For the chord AB, at any operating condition, WA\r\nrepresents the absolute inflow velocity, while AU (=  x RA) is the blade\r\n(tangential) velocity. WA and AU uniquely define a plane in which the inflow\r\nproperties are defined.\r\n\r\n   In the plane WAU, VA = WA - AU represents the relative inflow velocity. CA\r\nrepresents the chordwise, cascade relative inflow velocity (field 2,\r\ncontinuation of the STREAML2 bulk data card, see Section 2.4). Mach number in\r\nfield 8 of the STREAML2 bulk data card is based on CA. Al is the line of\r\nintersection between the axial plane through point A and the plane WAU. Angle\r\nIAV defines the relative inflow angle 8 (shown positive).\r\n   The angle of sweep  is defined as the angle of inclination of the chord BA\r\nwith the plane WAU.  shown in Figure 1.20-2 is positive.\r\n\r\n   AD is the projection of AC (BA extended to C) in the plane WAU. Angle lAD\r\nrepresents the stagger angle , and is shown positive.\r\n=PAGE=\r\n                   Ŀ\r\n                       F. E. Model of one cyclic sector     \r\n                       of n-bladed turbomachine stage or    \r\n                    advanced turboprop, and given operating \r\n                     conditions to be examined for flutter  \r\n                   \r\n                                        \r\nOscillatory                                                      Steady State\r\nAerodynamic   Ŀ Centrifugal\r\nData                                                           Loads\r\n                                                Ŀ\r\n                                                                          d \r\nĿ                    Differential Stiffness, K  \r\nGeneralized Oscillatory                        \r\nAerodynamic Loads                                            \r\n                                                             \r\n    Q  (,k)                                  Ŀ\r\n     ii                     ijĴ  Natural Frequencies and   \r\n                                                         Modes,           \r\n* Subsonic Relative Inflow                     \r\n* Supersonic Relative Inflow                                 \r\n* Subsonic Relative Inflow                                   \r\n  with Blade Sweep                             Ŀ\r\n                     Generalized Mass, Damping \r\n                                                        and Stiffness       \r\n                                                \r\n                                                              \r\n                                                              \r\n                                                              \r\n                                                              \r\n                         Ŀ        \r\n                            Flutter Loop Parameters          \r\n                                  , k, p                    \r\n                                 \r\n                                                              \r\n                                                              \r\n              \r\n                                        \r\n                                        A\r\n\r\n\r\nFigure 1.20-1a. Overall flowchart of blade cyclic modal flutter analysis rigid\r\nformat for axial-flow turbomachines and advanced turbopropellers\r\n=PAGE=\r\n                                        A\r\n                                        \r\n                                        \r\n                       Ŀ\r\n    Ĵ            Select             \r\n                      \r\n                                       \r\n                      Ŀ\r\n         Ĵ            Select k            \r\n                     \r\n                                      \r\n                     Ŀ\r\n              Ĵ            Select p            \r\n                    \r\n                                     \r\n                    Ŀ\r\n                     Select or Interpolate Q  (,k) \r\n                                            ii      \r\n                    \r\n                                     \r\n                                     \r\n                    Ŀ\r\n                       Formulate Flutter Equations  \r\n                    \r\n                                     \r\n                    Ŀ   Ŀ\r\n                           Complex Eigenvalues      Ĵ V-g and V-f Plots\r\n                       \r\n                                     \r\n                             Yes\r\n               Other p?\r\n         \r\n                                       No\r\n                                      \r\n                              Yes\r\n          Other k?\r\n    \r\n                                        No\r\n                                       \r\n                               Yes\r\n     Other ?\r\n\r\n                                         No\r\n                                        \r\n                                        \r\n                                      STOP\r\n\r\n\r\nFigure 1.20-1b. Overall flowchart of blade cyclic modal flutter analysis rigid\r\nformat for axial-flow turbomachines and advanced turbopropellers\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n     Figure 1.20-2. Rotational cyclic sector of an axial-flow turbomachine\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.20-3. NASTRAN structural and aerodynamic models of an advanced\r\nturbopropeller for flutter analysis\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\nFigure 1.20-4. Definitions of some parameters for swept blade aerodynamics\r\n=PAGE=\r\n   A local coordinate system xyz is internally defined at the leading edge\r\npoint A of the chord AB such that x is directed along AB. y is defined normal\r\nto the \"mean\" surface containing the points A-, A, A+, B+, B, and B-. The unit\r\nvector along y, for the sense of  shown in Figure 1.20-2, is given by\r\n\r\n                 ___      __         __     ___\r\n      ^         (A B ) x (AB)       (AB) x (A B )\r\n      _    1  |   - +                        + -\r\n      j =  |  +  \r\n           2  |   ___      __         __     ___\r\n              ||J(A B ) x (AB)|     |(AB) x (A B )|\r\n                   - +                        + -\r\n\r\n   Modal translations along y and rotations about x are used in deriving the\r\ngeneralized airforce matrix. For the opposite sense of rotation, xyz is\r\ninternally defined to be left handed with y reversing direction. The shaded\r\narea about the chord AB represents the strip of integration associated with\r\nAB.\r\n\r\n   The interblade phase angles are specified by means of FLFACT, FLUTTER, and\r\nMKAEROi bulk data cards (see Section 2.4). Referring to the sketch below, a\r\npositive interblade phase angle implies that blade 1 of the two-dimensional\r\ncascade leads the reference blade 0.\r\n\r\n                                                 \r\n                                                .  Blade 1\r\n                                      1     .    \r\n                                        .        \r\n                                   .             \r\n                              .                  \r\n                                                 \r\n                                                .  Blade 0 (ref.)\r\n                                      0     .    \r\n                                        .        \r\n                                   .             \r\n                              .                  \r\n                                                 \r\n                                                .\r\n                                            .    \r\n                                        .        \r\n                                   .             \r\n                              .                 \r\n                                                \r\n                                       \r\n                                       \r\n\r\n   The cascade relative inflow Mach number varies along the blade span. Based\r\non this number at a given streamline, either the subsonic or the supersonic\r\ntheory is used. You specify the transonic Mach number range by means of the\r\nbulk data parameters MAXMACH and MINMACH. MAXMACH specifies the upper Mach\r\nnumber limit below which the subsonic theory is to be used; MINMACH specifies\r\nthe lower Mach number limit above which the supersonic theory is to be used.\r\nFor streamlines with relative Mach numbers between the limits MAXMACH and\r\nMINMACH, the aerodynamic matrix terms are obtained by linear interpolation\r\nfrom the adjacent streamline values. No transonic cascade theories have been\r\nincorporated.\r\n\r\n   It should be noted that for a given interblade phase angle and reference\r\nreduced frequency, chordwise generalized aerodynamic matrices corresponding to\r\nlocal spacing, stagger, and Mach number at the selected operating point will\r\nbe generated for each streamline on the blade. This is an expensive operation\r\nand should be carefully controlled to reduce the computational work. The\r\naerodynamic matrices are, therefore, computed at a few interblade phase angles\r\nand reduced frequencies, and interpolated for others. These parameters are\r\nselected on MKAERO1 and MKAERO2 bulk data cards. Matrix interpolation is an\r\nautomatic feature of the rigid format. Additional aerodynamic matrices may be\r\ngenerated and appended to the previous group on restart with new MKAEROi\r\ncards, provided the rest of the data used for the matrix calculation remain\r\nunaltered.\r\n\r\n   To save further computational time, the chordwise generalized aerodynamic\r\nmatrices are first computed for \"aerodynamic modes\". The aerodynamic matrices\r\nfor chordwise structural modes are then determined from bilinear\r\ntransformations along each streamline before the spanwise integration to\r\nobtain the complete blade generalized aerodynamic matrix. This permits a\r\nchange in the structural mode shapes of the same or a different harmonic\r\nnumber to be included in the flutter analysis without having to recompute the\r\nmodal aerodynamic matrices for aerodynamic modes. This can be achieved by\r\nappropriate DMAP ALTERs to the rigid format.\r\n\r\n   For non-zero harmonic numbers, the normal modes analysis using cyclic\r\nsymmetry results in both \"sine\" and \"cosine\" mode shapes (see Section 1.12).\r\nThe BCD value of the parameter MTYPE on a PARAM bulk data card selects the\r\ntype of mode shapes to be used in flutter calculations. It is immaterial which\r\nis selected.\r\n\r\n   The method of flutter analysis is specified on the FLUTTER bulk data card.\r\nThe parameters required for flutter analysis (density ratios, interblade phase\r\nangles, and reduced frequencies) are listed on FLFACT bulk data cards.\r\n\r\n   The parameter VREF may be used to scale the output velocity. This can be\r\nused to convert from consistent units (for example, in/sec) to any units you\r\nmay desire (for example, mph), determined from Vout = V/VREF.\r\n\r\n   If sweep aerodynamic effects are to be included, the NASTRAN card (see\r\nSection 2.1) must be used in the data deck to turn on the 93rd word of COMMON\r\n/SYSTEM/. This is accomplished as follows:\r\n\r\n   NASTRAN SYSTEM (93) = 1\r\n\r\n   In situations where you wish to consider the disc of a bladed disc, or the\r\nhub of a turbopropeller, to be relatively much stiffer than the blades, the\r\nblades can be regarded as structurally independent. In such cases, the\r\nfollowing modeling points should be noted:\r\n\r\n   1. CYJOIN bulk data cards are required merely for their presence in the\r\n      Bulk Data Deck.\r\n\r\n   2. PARAM KINDEX should be set zero to save computational time in real\r\n      eigenvalue extraction.\r\n\r\n   3. PARAM MTYPE must be set to COSlNE (the default) as KINDEX = 0.\r\n\r\nREFERENCES\r\n\r\n1. Elchuri, V., Smith, G. C. C., Gallo, A. M., and Dale, B. J., \"NASTRAN Level\r\n   16 Theoretical, User's, Programmer's, and Demonstration Manuals Updates for\r\n   Aeroelastic Analysis of Bladed Discs,\" NASA CRs 159823-159826, March 1980.\r\n\r\n2. Smith, G. C. C., and Elchuri, V., \"Aeroelastic and Dynamic Finite Element\r\n   Analysis of a Bladed Shrouded Disc,\" NASA CR 159728, March 1980.\r\n\r\n3. Gallo, A. M., Elchuri, V., and Skalski, S. C., \"Bladed-Shrouded-Disc\r\n   Aeroelastic Analyses: Computer Program Updates in NASTRAN Level 17.7,\" NASA\r\n   CR 165428, December 1981.\r\n\r\n4. Elchuri, V., and Smith, G. C. C., \"NASTRAN Flutter Analysis of Advanced\r\n   Turbopropellers,\" NASA CR 167926, April 1982.\r\n\r\n5. Elchuri, V., Gallo, A. M., and Skalski, S. C., \"NASTRAN Documentation for\r\n   Flutter Analysis of Advanced Turbopropellers,\" NASA CR 167927, April 1982.\r\n\r\n6. Rao, B. M., and Jones, W. P., \"Unsteady Airloads for a Cascade of Staggered\r\n   Blades In Subsonic Flow,\" 46th Propulsion Energetics Review Meeting,\r\n   Monterey, California, September 1975.\r\n\r\n7. Adamczyk, J. J., and Goldstein, M. E., \"Unsteady Flow in a Supersonic\r\n   Cascade with Subsonic Leading-Edge Locus,\" AlAA Journal, Vol. 16, No. 12,\r\n   December 1978, pp. 1248-1254.\r\n\u001a\r\n"
  },
  {
    "path": "um/MSSG.TXT",
    "content": "=PAGE=\r\n6.1  NASTRAN MESSAGES\r\n\r\n   There are three categories of diagnostic messages in NASTRAN. They are:\r\n\r\n   1. Rigid format error messages\r\n\r\n   2. Structure plotter error messages\r\n\r\n   3. NASTRAN system and user diagnostic messages\r\n\r\n   The rigid format error messages are fully described in Volume II under the\r\ndescription of the individual rigid formats. The structure plotter error\r\nmessages are described in Section 4.2.3. The NASTRAN system and user\r\ndiagnostic messages are detailed in this section.\r\n\r\n   The system and user diagnostic messages issued by NASTRAN are identified by\r\nnumbers. Message numbers have been assigned in groups as follows:\r\n\r\n      1  - 1000   Preface Messages\r\n\r\n   1001  - 2000   Executive Module Messages\r\n\r\n   2001  -        Functional Module Messages\r\n\r\nThese messages have the following format:\r\n\r\n                               \r\n         SYSTEM    FATAL       \r\n   ***             WARNING      MESSAGE id, text\r\n         USER      INFORMATION \r\n                               \r\n\r\nwhere \"id\" is a unique message identification number and \"text\" is the message\r\nas indicated in capital letters for each of the diagnostic messages. A series\r\nof asterisks in the text indicates information that will be filled in for a\r\nspecific use of the message, such as the number of a grid point or the name of\r\na bulk data card. Many of the messages are followed by additional explanatory\r\nmaterial, including suggestions for remedial action.\r\n\r\n   The system and user messages described in this section pertain only to\r\nthose messages generated by NASTRAN. Although these messages can appear at\r\nvarious places in the output stream, they should be easily identified by their\r\nformat. The various computer operating systems also produce diagnostic\r\nmessages that can appear at various places in the output stream. The format of\r\nthese messages will vary with the operating system. Reference should be made\r\nto the operating system manuals for interpretation of the messages that are\r\nnot generated by NASTRAN.\r\n\r\n   System messages refer to diagnostics that are associated with program\r\nerrors. In general, you cannot correct such. Refer to the Programmer's Manual\r\nand assistance secured from the programming staff. User messages refer to\r\nerrors that are usually associated with the preparation of the NASTRAN Data\r\nDeck. Corrective action is indicated in the message text or the explanatory\r\ninformation following the text. In some cases reference may have to be made to\r\nother sections of the User's Manual for proper card formats or for\r\nclarification of procedures.\r\n\r\n   Fatal messages cause the termination of the execution following the\r\nprinting of the message text. These messages will always appear at the end of\r\nthe NASTRAN output. Warning and information messages will appear at various\r\nplaces in the output stream. Such messages only convey warnings or\r\ninformation. Consequently, the execution continues in a normal manner\r\nfollowing the printing of the message text.\r\n\r\n   As an example, consider message number 2025, which will appear in the\r\nprinted output as follows:\r\n\r\n   *** USER FATAL MESSAGE 2025, UNDEFINED COORDINATE SYSTEM 102.\r\n\r\nThe three leading asterisks (***) are always present in the system and user\r\ndiagnostic messages. The word USER indicates that this is a user message\r\nrather than a system message. The word FATAL indicates that this is a fatal\r\nmessage rather than a warning or an information message. The number 2025 is\r\nthe identification number for this message. The text of the message follows\r\nthe comma (,). The number 102 replaces the asterisks (****) in the general\r\nmessage text, and indicates that 102 is the identification number of the\r\nundefined coordinate system.\r\n\r\n=PAGE=\r\n6.2  PREFACE MESSAGES\r\n\r\n  1 ***  USER WARNING MESSAGE 1, POSSIBLE ERROR IN DMAP INSTRUCTION ****,\r\n         INSTRUCTION NO. ****, ASSUMED FIRST INPUT FILE IS NULL.\r\n\r\n        You have specified N input data blocks when there should be N+1.\r\n\r\n  2 ***  USER WARNING MESSAGE 2, POSSIBLE ERROR IN DMAP INSTRUCTION ****,\r\n         INSTRUCTION NO. ****, PARAMETER NAMED ******** IS DUPLICATED.\r\n\r\n        No harm done. Parameter is saved just once.\r\n\r\n  3 ***  USER FATAL MESSAGE 3, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, FORMAT ERROR IN PARAMETER NO. ***\r\n\r\n        Double delimiter appears in parameter section of previous DMAP\r\n        instruction.\r\n\r\n  4 ***  SYSTEM FATAL MESSAGE 4, MPL PARAMETER ERROR, MODULE NAME = ********\r\n         PARAMETER NO. ***\r\n\r\n        MPL entry for module is incorrect. See subroutine XMPLDD.\r\n\r\n  5 ***  USER FATAL MESSAGE 5, PARAMETER INPUT DATA ERROR, ILLEGAL VALUE FOR\r\n         PARAMETER NAMED ********\r\n\r\n        The type of the parameter on a PARAM card is inconsistent with the\r\n        type of the parameter by the same name in the above DMAP instruction.\r\n\r\n  6 ***  USER FATAL MESSAGE 6, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, ILLEGAL TYPE FOR PARAMETER NO. ***\r\n\r\n        The type of the parameter in the DMAP instruction does not correspond\r\n        to type requested in DMD or MFD section of the Programmer's Manual.\r\n\r\n  7 ***  USER FATAL MESSAGE 7, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, PARAMETER NO. *** NEEDS PARAMETER NAME.\r\n\r\n        Parameter is not in correct format.\r\n\r\n  8 ***  USER FATAL MESSAGE 8, BULK DATA PARAM CARD ERROR. MUST NOT DEFINE\r\n         PARAMETER NAMED ********\r\n\r\n        The \"N\" in V,N,******** means that you cannot set the value of the\r\n        parameter with the name ******** on a PARAM card.\r\n\r\n  9 ***  USER FATAL MESSAGE 9, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, VALUE NEEDED FOR PARAMETER NO. ***\r\n\r\n        Constant needs value in DMAP instruction or on a PARAM card.\r\n\r\n 10 ***  USER POTENTIALLY FATAL MESSAGE 10, POSSIBLE ERROR IN DMAP INSTRUCTION\r\n         ****, INSTRUCTION NO. ****, DEFAULT OPTION FOR INPUT DATA BLOCKS. MAKE\r\n         SURE MISSING BLOCKS ARE NOT REQUIRED.\r\n\r\n 11 ***  USER POTENTIALLY FATAL MESSAGE 11, POSSIBLE ERROR IN DMAP INSTRUCTION\r\n         ****, INSTRUCTION NO. ****, DEFAULT OPTION FOR OUTPUT DATA BLOCKS. MAKE\r\n         SURE MISSING BLOCKS ARE NOT REQUIRED.\r\n\r\n 12 ***  USER FATAL MESSAGE 12, ERROR IN DMAP INSTRUCTION NO. ****, ILLEGAL\r\n         CHARACTER IN DMAP INSTRUCTION NAME.\r\n\r\n        Name must be 8 or fewer alpha-numeric characters, the first character\r\n        being alpha.\r\n\r\n 13 ***  USER FATAL MESSAGE 13, DMAP INSTRUCTION NOT IN MODULE LIBRARY.\r\n\r\n 14 ***  SYSTEM FATAL MESSAGE 14, ARRAY NAMED ******** OVERFLOWED [AT DMAP\r\n         INSTRUCTION NO. ****]\r\n\r\n        See XGPI module description in the MFD section of the Programmer's\r\n        Manual.\r\n\r\n 15 ***  USER FATAL MESSAGE 15, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, INCONSISTENT TYPE USED FOR PARAMETER NAMED ********\r\n\r\n        This parameter was used in a previous DMAP instruction which gave it\r\n        a different type. See Section 5.2.1.\r\n\r\n 16 ***  USER FATAL MESSAGE 16, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, ILLEGAL FORMAT.\r\n\r\n 17 ***  USER FATAL MESSAGE 17, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, UNIDENTIFIED NASTRAN CARD KEYWORD ********. ACCEPTABLE KEYWORDS\r\n         FOLLOW ---\r\n\r\n 18 ***  USER FATAL MESSAGE 18, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, TOO MANY PARAMETERS IN DMAP PARAMETER LIST.\r\n\r\n        Incorrect calling sequence for DMAP instruction.\r\n\r\n 19 ***  USER FATAL MESSAGE 19, LABEL NAMED ******** IS MULTIPLY DEFINED.\r\n\r\n        LABEL named appears in more than one place in the DMAP program.\r\n\r\n 20 ***  USER FATAL MESSAGE 20, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, ILLEGAL CHARACTERS IN PARAMETER NO. ***\r\n\r\n        Name must be 8 or fewer alpha-numeric characters, the first character\r\n        being alpha.\r\n\r\n 21 ***  USER FATAL MESSAGE 21, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, PARAMETER NAMED ******** IS NOT IN PRECEDING DMAP INSTRUCTION\r\n         PARAMETER LIST.\r\n\r\n        Parameters in a SAVE instruction must appear in the immediately\r\n        preceding DMAP instruction.\r\n\r\n 22 ***  USER POTENTIALLY FATAL MESSAGE 22, POSSIBLE ERROR IN DMAP INSTRUCTION\r\n         ****, INSTRUCTION NO. ****, DATA BLOCK NAMED ******** APPEARS AS INPUT\r\n         BEFORE BEING DEFINED\r\n\r\n        See Section 5.2.\r\n\r\n 23 ***  USER FATAL MESSAGE 23, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, DATA BLOCK NAMED ******** IS NOT REFERENCED IN SUBSEQUENT\r\n         FUNCTIONAL MODULE.\r\n\r\n        See Section 5.2. Error can be suppressed by adding the following:\r\n\r\n         PARAM   //*NOP*/TRUE=-1 $\r\n         COND    LABELXXX,TRUE $\r\n         TABPT   ********,,,,// $\r\n         LABEL   LABELXXX $\r\n\r\n 24 ***  SYSTEM FATAL MESSAGE 24, CANNOT FIND FILE NAMED ******** ON DATA POOL\r\n         TAPE.\r\n\r\n        The contents of /XDPL/ do not match the contents of the Pool Tape.\r\n\r\n 25 ***  USER FATAL MESSAGE 25, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, PARAMETER NAMED ******** NOT DEFINED.\r\n\r\n        Parameter is referenced in a functional module, but is nowhere\r\n        defined.\r\n\r\n 26 ***  USER FATAL MESSAGE 26, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, LABEL NAMED NOT DEFINED.\r\n\r\n        LABEL name does not appear in LABEL instruction.\r\n\r\n 27 ***  USER WARNING MESSAGE 27, LABEL NAMED ******** NOT REFERENCED.\r\n\r\n        LABEL name appears only in a LABEL instruction.\r\n\r\n 28 ***  SYSTEM FATAL MESSAGE 28, UNEXPECTED END OF TAPE ON NEW PROBLEM TAPE.\r\n\r\n        Either an EOT was truly encountered or file linkage has been\r\n        destroyed in /XFIST/, /XPFIST/, and/or /XXFIAT/. This message will\r\n        also appear when tape files on the NASTRAN Card have been declared\r\n        disk files but insufficient space has been allocated for this\r\n        purpose.\r\n\r\n 29 ***  SYSTEM FATAL MESSAGE 29, UNEXPECTED END OF TAPE ON OLD PROBLEM TAPE.\r\n\r\n        See Message 28.\r\n\r\n 30 ***  SYSTEM FATAL MESSAGE 30, UNEXPECTED END OF TAPE ON DATA POOL TAPE.\r\n\r\n        See Message 28.\r\n\r\n 31 ***  SYSTEM FATAL MESSAGE 31, CONTROL FILE ******** INCOMPLETE OR MISSING\r\n         ON NEW PROBLEM TAPE.\r\n\r\n        Data block XCSA is not in correct format or it is missing.\r\n\r\n 32 ***  USER FATAL MESSAGE 32, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, FILE NAMED ******** MUST BE DEFINED PRIOR TO THIS INSTRUCTION.\r\n\r\n        See Section 5.2.\r\n\r\n 33 ***  SYSTEM FATAL MESSAGE 33, NAME (********) IN NEW CONTROL FILE DICTIONARY\r\n         NOT VALID.\r\n\r\n        The first record of data block XCSA on Problem Tape contains a name\r\n        which is not recognized by XGPI module.\r\n\r\n 34 ***  SYSTEM FATAL MESSAGE 34, CANNOT TRANSLATE DMAP INSTRUCTION NO. ****\r\n\r\n        Refer to Section 5 of the User's Manual or Section 4 of the\r\n        Programmer's Manual for the correct format of the instruction.\r\n\r\n 35 ***  USER FATAL MESSAGE 35, INCORRECT OLD PROBLEM TAPE MOUNTED. ID OF TAPE\r\n         MOUNTED = ********,********,**/**/** REEL =***. ID OF TAPE DESIRED =\r\n         ********,********,**/**/** REEL =***.\r\n\r\n        Wrong reel mounted for multi-reel Problem Tape.\r\n\r\n 36 ***  SYSTEM FATAL MESSAGE 36, CANNOT FIND FILE NAMED ******** ON OLD PROBLEM\r\n         TAPE.\r\n\r\n        The header record of the file on Problem Tape does not match the file\r\n        name in restart dictionary.\r\n\r\n 37 ***  USER WARNING MESSAGE 37, POSSIBLE ERROR IN DMAP INSTRUCTION ****,\r\n         INSTRUCTION NO. ****, WARNING ONLY - MAY NOT BE ENOUGH FILES AVAILABLE\r\n         FOR MODULE REQUIREMENTS. FILES NEEDED = *** FILES AVAILABLE = ***.\r\n\r\n        Program will execute if enough data blocks referenced by the module\r\n        are purged. Purged data blocks are not assigned files.\r\n\r\n 38 ***  SYSTEM FATAL MESSAGE 38, NOT ENOUGH CORE FOR GPI TABLES.\r\n\r\n        Increase Region Size, Field Length, HICORE allocation, or the length\r\n        of the open core COMMON block, depending on the machine being used.\r\n\r\n 39 ***  SYSTEM FATAL MESSAGE 39, RIGID FORMAT DMAP SEQUENCE DOES NOT CORRESPOND\r\n         TO MED TABLE.\r\n\r\n        The MED Table must have the same number of entries as there are DMAP\r\n        instructions in the DMAP sequence.\r\n\r\n 40 ***  USER FATAL MESSAGE 40, ERROR IN ALTER DECK - CANNOT FIND END OF DMAP\r\n         INSTRUCTION.\r\n\r\n        Check the ALTER part of the Executive Control Deck.\r\n\r\n 41 ***  SYSTEM FATAL MESSAGE 41, TABLES INCORRECT FOR REGENERATING DATA BLOCK\r\n\r\n        File Name Table and MED Table used by routine XFLDEF are wrong.\r\n\r\n 42 ***  USER WARNING MESSAGE 42, POSSIBLE ERROR IN DMAP INSTRUCTION ****,\r\n         INSTRUCTION NO. ****, PARAMETER NAMED ******** ALREADY HAD VALUE\r\n         ASSIGNED PREVIOUSLY.\r\n\r\n        Parameter appears in a previous instruction which assigned it a\r\n        value. The previous value will be used.\r\n\r\n 43 ***  USER FATAL MESSAGE 43, INCORRECT FORMAT FOR NASTRAN CARD.\r\n\r\n 44 ***  USER FATAL MESSAGE 44, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, UNABLE TO FIND END DMAP INSTRUCTION.\r\n\r\n        You have ALTERed out the END instruction.\r\n\r\n 45 ***  USER POTENTIALLY FATAL MESSAGE 45, POSSIBLE ERROR IN DMAP INSTRUCTION\r\n         ****, INSTRUCTION NO. ****, DATA BLOCK NAMED ******** ALREADY APPEARED\r\n         AS OUTPUT.\r\n\r\n        See Section 5.2.\r\n\r\n 46 ***  USER FATAL MESSAGE 46, INCORRECT REENTRY POINT.\r\n\r\n        The last reentry card in the restart dictionary has a DMAP\r\n        instruction number greater than the instruction number on the END\r\n        card of the DMAP program.\r\n\r\n 47 ***  USER FATAL MESSAGE 47, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, THIS INSTRUCTION CANNOT BE FIRST INSTRUCTION OF LOOP.\r\n\r\n        CHKPNT DMAP instruction must not follow a LABEL instruction which is\r\n        located at the top of a loop.\r\n\r\n 48 ***  USER WARNING MESSAGE 48, POSSIBLE ERROR IN DMAP INSTRUCTION ****,\r\n         INSTRUCTION NO. ****, DATA BLOCK ******** IS ALWAYS REGENERATED,\r\n         THEREFORE IT WILL NOT BE CHECKPOINTED.\r\n\r\n        This data block is generated by the Input File Processor (IFP) and\r\n        must not be checkpointed to insure proper restart.\r\n\r\n 49 ***  SYSTEM FATAL MESSAGE 49, MPL TABLE (MODULE PROPERTIES LIST) IS\r\n         INCORRECT.\r\n\r\n        Error is in COMMON block /XGP12/.\r\n\r\n 51 ***  SYSTEM FATAL MESSAGE 51, NOT ENOUGH OPEN CORE FOR XGPIBS ROUTINE.\r\n\r\n        Additional core memory is required.\r\n\r\n 52 ***  SYSTEM FATAL MESSAGE 52, NAMED COMMON /XLINK/ IS TOO SMALL.\r\n\r\n        There must be one word in LINK table for every entry in MPL.\r\n\r\n 53 ***  USER FATAL MESSAGE 53, INCORRECT FORMAT IN ABOVE CARD.\r\n\r\n 54 ***  USER WARNING MESSAGE 54, PARAMETER NAMED **** NOT REFERENCED.\r\n (1)\r\n\r\n 54 ***  SYSTEM WARNING MESSAGE 54, THE NUMBER OF MODULES SPECIFIED IN THE LINK\r\n (2)     SPECIFICATION TABLE, **** EXCEEDS THE ALLOWABLE NUMBER SPECIFIED BY\r\n         SEMDBD, ****\r\n\r\n        The parameter LXLINK in COMMON /XLINK/ was exceeded when a new module\r\n        was added to the program.\r\n\r\n 55 ***  USER FATAL MESSAGE 55, PRECHK NAME LIST EXCEEDS MAXIMUM LIMIT (50).\r\n\r\n 56 ***  USER WARNING MESSAGE 56, ILLEGAL OPTION ON XDMAP CARD - IGNORED.\r\n\r\n 57 ***  USER FATAL MESSAGE 57, VARIABLE REPT PARAMETER MUST BE AN INTEGER.\r\n\r\n 58 ***  USER FATAL MESSAGE 58, VARIABLE REPT PARAMETER MUST BE DEFINED PRIOR TO\r\n         INSTRUCTION.\r\n\r\n 59 ***  USER WARNING MESSAGE 59, POOL FILE ERROR - DMAP CROSS-REF TERMINATED.\r\n\r\n 60 ***  USER POTENTIALLY FATAL MESSAGE 60, INSUFFICIENT OPEN CORE FOR DMAP\r\n         CROSS-REF - TERMINATED.\r\n\r\n 61 ***  USER FATAL MESSAGE 61, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, SAVE INSTRUCTION OUT OF SEQUENCE.\r\n\r\n 62 ***  USER FATAL MESSAGE 62, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, INCORRECT NUMBER OF INPUT DATA BLOCKS ENCOUNTERED.\r\n\r\n 63 ***  USER FATAL MESSAGE 63, ERROR IN DMAP INSTRUCTION ****, INSTRUCTION NO.\r\n         ****, INCORRECT NUMBER OF OUTPUT DATA BLOCKS ENCOUNTERED.\r\n\r\n 64 ***  USER WARNING MESSAGE 64, **** IS NOT DEFINED AS A NASTRAN FILE AND WILL\r\n         BE IGNORED.\r\n\r\n 65 ***  SYSTEM FATAL MESSAGE 65, POINTER ** = **** DOES NOT AGREE WITH LMPL =\r\n         ****\r\n\r\n        An error has been made in counting the number of MPL array entries\r\n        for a particular module or the LMPL value has not been updated.\r\n        Recheck any recent changes to the XMPLDD subroutine.\r\n\r\n 66 ***  SYSTEM FATAL MESSAGE 66, ILLEGAL PARAMETER TYPE CODE.\r\n\r\n        The parameter type code in an MPL table entry must be an integer\r\n        between 1 and 6. See Section 2.4.2.2 of the Programmer's Manual.\r\n\r\n 67 ***  SYSTEM FATAL MESSAGE 67, ERROR IN PARAMETER SEQUENCE.\r\n\r\n        A format error exists in an MPL table entry for a particular module.\r\n        See Section 2.4.2.2 of the Programmer's Manual.\r\n\r\n 68 ***  SYSTEM FATAL MESSAGE 68, ILLEGAL WORD COUNT.\r\n\r\n        The number of words in an MPL table entry for a particular module\r\n        must be a positive integer.\r\n\r\n201 ***  USER FATAL MESSAGE 201, REQUESTED BULK DATA DECK ********, NOT ON USER\r\n         MASTER FILE.\r\n\r\n        Requested UMF problem identification number not found on currently\r\n        mounted UMF tape.\r\n\r\n202 ***  SYSTEM FATAL MESSAGE 202, UMF COULD NOT BE OPENED.\r\n\r\n        User's Master File (UMF) not present (destroyed) in FIST.\r\n\r\n203 ***  SYSTEM FATAL MESSAGE 203, ILLEGAL EOR ON UMF.\r\n\r\n        User's Master File (UMF) contains no records in requested file.\r\n\r\n204 ***  USER FATAL MESSAGE 204, COLD START, NO BULK DATA.\r\n\r\n        No data cards were found after the BEGIN BULK card. A blank card will\r\n        satisfy this rule.\r\n\r\n205 ***  USER WARNING MESSAGE 205, COLD START, DELETE CARDS IGNORED.\r\n\r\n        Delete (/) cards were present within the Bulk Data Deck and were\r\n        ignored.\r\n\r\n206 ***  USER FATAL MESSAGE 206, PREVIOUS ******** CONTINUATION CARDS, THOUGH\r\n         VALID, CANNOT BE PROCESSED BECAUSE OF ERRORS ON OTHER RELATED\r\n         CONTINUATION CARDS.\r\n\r\n207 ***  USER INFORMATION MESSAGE 207, BULK DATA NOT SORTED, XSORT WILL REORDER\r\n         DECK.\r\n\r\n        The Bulk Data Deck was not in alpha-numeric sort. Sorting will be\r\n        performed. Sorting of a large deck can be time consuming.\r\n\r\n208 ***  USER FATAL MESSAGE 208, PREVIOUS CARD IS A DUPLICATE PARENT.\r\n\r\n        Two or more cards were found with columns 74-80 identical and a\r\n        continuation card is present with that mnemonic (columns 2-8).\r\n\r\n209 ***  USER FATAL MESSAGE 209, PREVIOUS ******** CONTINUATION MNEMONICS HAVE\r\n         NO PARENTS AND/OR ARE DUPLICATES.\r\n\r\n        This message results due to either or both of the following reasons:\r\n        (a) one or more cards with continuation mnemonics in columns 2\r\n        through 8 could not be matched with any other card continuation\r\n        mnemonic in columns 73 through 80 or (b) two or more cards with\r\n        continuation mnemonics in columns 2 through 8 were identical.\r\n\r\n210 ***  SYSTEM FATAL MESSAGE 210, SCRATCH COULD NOT BE OPENED.\r\n\r\n        One of the required scratch files was not present (destroyed) in\r\n        FIST.\r\n\r\n211 ***  SYSTEM FATAL MESSAGE 211, ILLEGAL EOR ON SCRATCH.\r\n\r\n        A required scratch file was formatted improperly.\r\n\r\n212 ***  SYSTEM FATAL MESSAGE 212, ILLEGAL EOF ON ITAPE4.\r\n\r\n        Scratch file containing continuations was mis-positioned.\r\n\r\n213 ***  SYSTEM FATAL MESSAGE 213, ILLEGAL EOF ON OPTP.\r\n\r\n        Old Problem Tape contained no bulk data (illegal format).\r\n\r\n214 ***  SYSTEM FATAL MESSAGE 214, OPTP COULD NOT BE OPENED.\r\n\r\n        Old Problem Tape (OPTP) not present (destroyed) in FIST.\r\n\r\n215 ***  SYSTEM FATAL MESSAGE 215, NPTP COULD NOT BE OPENED.\r\n\r\n        New Problem Tape (NPTP) not present (destroyed) in FIST.\r\n\r\n216 ***  SYSTEM FATAL MESSAGE 216, ILLEGAL INDEX.\r\n\r\n        FORTRAN computed GO TO has received an illogical value.\r\n\r\n217 ***  SYSTEM FATAL MESSAGE 217, ILLEGAL EOF ON ITAPE4.\r\n\r\n218 ***  USER FATAL MESSAGE 218, ILLEGAL VALUE OR FORMAT SPECIFIED IN PARM\r\n         FIELD.\r\n\r\n        The core statistics request or the number of bytes to free back to\r\n        the operating system has not been defined properly on the EXEC\r\n        statement card. (IBM only.)\r\n\r\n219 ***  USER FATAL MESSAGE 219, MISSING ENDDATA CARD.\r\n\r\n220 ***  USER FATAL MESSAGE 220, MISSING ENDDATA CARD.\r\n\r\n221 ***  USER FATAL MESSAGE 221, EXTRANEOUS DATA IN FIELD 1 OF BULK DATA DELETE\r\n         CARD.\r\n\r\n238 ***  USER INFORMATION MESSAGE 238, TURN DIAG 38 ON FOR ADDITIONAL ELEMENT\r\n         PROCESSING INFORMATION.\r\n\r\n        DIAG 38 gives a list of elements being processed. If the EMG module\r\n        stops due to element error, and DIAG 38 is on, the last element on\r\n        the list is the one that erred.\r\n\r\n248 ***  USER INFORMATION MESSAGE 248, TURN DIAG 48 ON FOR NASTRAN RELEASE NEWS,\r\n         DIAG DEFINITION, NEW DMAP MODULES, AND NEW BULKDATA CARDS INFORMATION.\r\n\r\n        If DIAG 48 is on, the diagnostic definition, the new DMAP modules and\r\n        new bulkdata cards that were not printed in the 1986 User's Manual,\r\n        and the NASTRAN release news for the last two years are printed on\r\n        your NASTRAN output listing, and NASTRAN computation continues.\r\n\r\n        If DIAGs 48 and 20 are both turned on, the same information as above,\r\n        plus an expanded NASTRAN release news since 1983 are printed. The\r\n        NASTRAN job then stops.\r\n\r\n300 ***  USER FATAL MESSAGE 300, DATA ERROR IN FIELD UNDERLINED.\r\n(1)\r\n\r\n        A data error as described in the text has been detected by utility\r\n        routine XRCARD or RCARD.\r\n\r\n300 ***  USER FATAL MESSAGE 300, INVALID DATA COLUMN 72.\r\n(2)\r\n\r\n        Error in format of exponent.\r\n\r\n300 ***  USER FATAL MESSAGE 300, INTEGER DATA OUT OF MACHINE RANGE.\r\n(3)\r\n\r\n        The limits are (2^31)-1 for IBM, (2^59)-1 for CDC, (2^35)-1 for\r\n        UNIVAC, and (2^31)-1 for VAX.\r\n\r\n300 ***  USER FATAL MESSAGE 300, INVALID CHARACTER FOLLOWING INTEGER IN COLUMN\r\n(4)      ***\r\n\r\n        Either an illegal delimiter was detected or a real number is missing\r\n        the decimal.\r\n\r\n300 ***  USER FATAL MESSAGE 300, DATA ERROR - UNANTICIPATED ChARACTER IN COLUMN\r\n(5)      ***\r\n\r\n        A +/- E or +/- D was expected based on other input data.\r\n\r\n300 ***  USER FATAL MESSAGE 300, DATA ERROR MISSING DELIMITER OR REAL POWER OUT\r\n(6)      OF MACHINE RANGE.\r\n\r\n        Either no delimiter was found or the power was exceeded. The limits\r\n        are E-78 to E+75 for IBM, E-38 to E+38 for UNIVAC, E-294 to E+322 for\r\n        CDC, and E-38 to E+38 for VAX.\r\n\r\n300 ***  USER FATAL MESSAGE 300, ROUTINE XRCARD FINDS OUTPUT BUFFER TOO SMALL TO\r\n(7)      PROCESS CARD COMPLETELY.\r\n\r\n301 ***  USER WARNING MESSAGE 301, BULK DATA CARD ******** CONTAINS INCONSISTENT\r\n         DATA. SORTED CARD COUNT = ******\r\n\r\n302 ***  USER WARNING MESSAGE 302, ONE OR MORE GRID CARDS HAVE DISPLACEMENT\r\n         COORDINATE SYSTEM ID OF -1.\r\n\r\n303 ***  SYSTEM FATAL MESSAGE 303, NO OPEN CORE FOR IFP.\r\n\r\n        Overlay structure must be redefined.\r\n\r\n304 ***  SYSTEM FATAL MESSAGE 304, IFP NOT READING NPTP. FILE BEING READ = ****\r\n\r\n        The Input File Processor subroutine IFP attempts to locate the bulk\r\n        data file on the NPTP by searching it forward. The first two words of\r\n        the file header records are examined for a match with the Hollerith\r\n        string BULKDATA. If the bulk data is not found by the fifth file, the\r\n        assumption is made that IFP is either not reading NPTP or that it has\r\n        been badly written. The header record of the fifth file is printed as\r\n        part of the message.\r\n\r\n305 ***  SYSTEM FATAL MESSAGE 305, GINO CANNOT OPEN FILE ******\r\n\r\n        Unexpected nonstandard return from OPEN.\r\n\r\n306 ***  SYSTEM FATAL MESSAGE 306, READ LOGIC RECORD ERROR.\r\n\r\n        Short record encountered. Bulk data card images occupy 20 words.\r\n\r\n307 ***  USER FATAL MESSAGE 307, ILLEGAL NAME FOR BULK DATA CARD ******.\r\n\r\n        See Section 2.4.\r\n\r\n308 ***  USER FATAL MESSAGE 308, CARD ******** NOT ALLOWED IN ******** APPROACH.\r\n\r\n        See Section 2.4.\r\n\r\n309 ***  USER WARNING MESSAGE 309, CARD ******** IMPROPER IN ******** APPROACH.\r\n\r\n        See Section 2.4.\r\n\r\n310 ***  USER FATAL MESSAGE 310, CARD ******** NOT ALLOWED IN SAME DECK AS AXIC\r\n         CARD.\r\n\r\n        See Section 2.4.\r\n\r\n311 ***  USER FATAL MESSAGE 311, NONUNIQUE FIELD 2 ON BULK DATA CARD ********.\r\n         SORTED CARD COUNT = ****.\r\n\r\n        The sorted bulk data card indicated must have a unique integer in\r\n        field 2.\r\n\r\n312 ***  USER FATAL MESSAGE 312, TOO MANY CONTINUATIONS FOR BULK DATA CARD\r\n         ********. SORTED CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n313 ***  USER FATAL MESSAGE 313, ILLEGAL NUMBER OF WORDS ON BULK DATA CARD\r\n         ********. SORTED CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n314 ***  SYSTEM FATAL MESSAGE 314, INVALID CALL FROM IFP. K = ****.\r\n\r\n        Code error, machine failure, or cell is being destroyed.\r\n\r\n315 ***  USER FATAL MESSAGE 315, FORMAT ERROR ON BULK DATA CARD ********. SORTED\r\n         CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n316 ***  USER FATAL MESSAGE 316, ILLEGAL DATA ON BULK DATA CARD ********. SORTED\r\n         CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n317 ***  USER FATAL MESSAGE 317, BAD DATA OR FORMAT OR NONUNIQUE NAME DTI ****\r\n         SORTED CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n318 ***  SYSTEM FATAL MESSAGE 318, NO ROOM IN /XDPL/ FOR DTI ****.\r\n\r\n        Overflow of the Data Pool Table. See Section 2 of the Programmer's\r\n        Manual.\r\n\r\n319 ***  SYSTEM FATAL MESSAGE 319, IFP READING EOF ON NPTP.\r\n\r\n        Unexpected EOF encountered while attempting to read a card image.\r\n\r\n320 ***  USER FATAL MESSAGE 320, IFP ERROR ****** LAST CARD PROCESSED IS ******.\r\n         SORTED CARD COUNT = ****.\r\n\r\n        Code error in IFP or XSORT.\r\n\r\n321 ***  USER FATAL MESSAGE 321, NONUNIQUE PARAM NAME *****.\r\n\r\n        The names of all parameters must be unique.\r\n\r\n322 ***  SYSTEM FATAL MESSAGE 322, ILLEGAL ENTRY TO IFS1P.\r\n\r\n        IFP code error detected in IFS1P, IFS2P, IFS3P, IFS4P, or IFS5P.\r\n\r\n324 ***  USER WARNING MESSAGE 324, BLANK CARD(S) IGNORED.\r\n\r\n        Blank bulk data cards are ignored by NASTRAN.\r\n\r\n325 ***  USER FATAL MESSAGE 325, BAD DATA OR FORMAT OR NONUNIQUE NAME. DMI\r\n         ****** SORTED CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n326 ***  SYSTEM FATAL MESSAGE 326, NO ROOM IN /XDPL/ FOR DMI ******.\r\n\r\n        Overflow of the Data Pool Table. See Section 2 of the Programmer's\r\n        Manual.\r\n\r\n327 ***  USER FATAL MESSAGE 327, BAD DATA OR FORMAT OR NONUNIQUE NAME. DMIG\r\n         ****** SORTED CARD COUNT = ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n329 ***  USER FATAL MESSAGE 329, ONLY ONE (1) AXIC CARD ALLOWED.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n330 ***  SYSTEM FATAL MESSAGE 330, NO ROOM IN CORE FOR PARAM CARDS.\r\n\r\n        Change overlay or increase core size.\r\n\r\n331 ***  USER FATAL MESSAGE 331, IMPROPER PARAM CARD ******, SORTED CARD COUNT =\r\n         ****.\r\n\r\n        See bulk data card description in Section 2.4.\r\n\r\n332 ***  USER FATAL MESSAGE 332, AXIC CARD REQUIRED.\r\n\r\n        The presence of any conical shell data cards requires the presence of\r\n        an AXIC card. See the AXIC bulk data card description in Section 2.4.\r\n\r\n333 ***  USER FATAL MESSAGE 333, UNABLE TO SORT ******** MULTI-ENTRY CARD DATA\r\n         IN SUBROUTINE IFP DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED =\r\n         ********** WORDS.\r\n\r\n        Either increase the core or manually sort multi-entry data cards\r\n        (CROD, PTRMEM, etc.).\r\n\r\n334 ***  USER INFORMATION MESSAGE 334, ******** MULTI-ENTRY CARD DATA ARE NOT\r\n         SORTED ON THEIR {ELEMENT/PROPERTY} IDS. SUBROUTINE IFP WILL SORT THE\r\n         DATA.\r\n\r\n335 ***  USER FATAL MESSAGE 335, NONUNIQUE {ELEMENT/PROPERTY} ID ********\r\n         ENCOUNTERED IN ******** MULTI-ENTRY CARD DATA.\r\n\r\n        Element and property identification numbers in multi-entry bulk data\r\n        cards (CROD, PTRMEM, etc.) must be unique integers.\r\n\r\n336 ***  USER FATAL MESSAGE 336, RFORCE DATA IN SET NO. ******** CONTAINS\r\n         ILLEGAL DIRECTION FOR AXISYMMETRIC PROBLEM.\r\n\r\n        Only the z component of the rotation direction vector can be defined.\r\n        See the RFORCE data card description for details.\r\n\r\n337 ***  USER FATAL MESSAGE 337, BOTH AXIC AND AXIF CARDS USED IN BULK DATA.\r\n\r\n        Axisymmetric structural problems and hydroelastic problems are\r\n        entirely different and AXIC and AXIF cards are mutually exclusive in\r\n        the Bulk Data Deck.\r\n\r\n338 ***  USER FATAL MESSAGE 338, AXISYMMETRIC CARD REQUIRED IN CASE CONTROL\r\n         DECK.\r\n\r\n        An AXIC or AXIF card was found in the Bulk Data Deck but the required\r\n        AXISYMMETRIC card was omitted from the Case Control Deck.\r\n\r\n339 ***  USER FATAL MESSAGE 339, ILLEGAL USE OF AXISYMMETRIC CARD IN CASE\r\n         CONTROL DECK.\r\n\r\n        An AXISYMMETRIC card was used in Case Control Deck but neither an\r\n        AXIC nor an AXIF card was present in the Bulk Data Deck.\r\n\r\n340 ***  USER FATAL MESSAGE 340, PARAM CARDS REQUIRED BY {DISP/AERO} RIGID\r\n         FORMAT **** NOT FOUND IN BULK DATA.\r\n\r\n        Refer to the description of the rigid formats in Volume II for the\r\n        PARAM card parameters required by the rigid format indicated.\r\n\r\n341 ***  USER FATAL MESSAGE 341, LMODES OR HFREQ/LFREQ PARAM REQUIRED BY\r\n         {DISP/AERO} RIGID FORMAT **** NOT IN BULK DATA OR TURNED OFF.\r\n\r\n        The modal frequency range or the number of modes required for a modal\r\n        analysis problem was incorrectly specified.\r\n\r\n342 ***  USER FATAL MESSAGE 342, LMODES PARAM FOUND IN BULK DATA WITH HFREQ OR\r\n         LFREQ.\r\n\r\n        Only one or the other of the two methods must be used to specify the\r\n        range of modes to be used in a modal analysis problem.\r\n\r\n343 ***  USER FATAL MESSAGE 343, NODJE PARAM SPECIFIED FOR AERO RIGID FORMAT\r\n         BUT P1, P2, OR P3 OMITTED.\r\n\r\n        A tape operation parameter required by the INPUTT2 module was\r\n        missing.\r\n\r\n344 ***  USER WARNING MESSAGE 344, P1, P2, OR P3 PARAM FOUND IN BULK DATA BUT\r\n         NODJE MISSING OR TURNED OFF.\r\n\r\n345 ***  USER FATAL MESSAGE 345, CTYPE OR NSEGS PARAM REQUIRED BY DISPLACEMENT\r\n         RIGID FORMAT **** MISSING OR INCORRECT.\r\n\r\n346 ***  USER FATAL MESSAGE 346, KINDEX PARAM REQUIRED BY DISPLACEMENT RIGID\r\n         FORMAT 15 MISSING OR TURNED OFF.\r\n\r\n        The harmonic index must be specified for problems involving normal\r\n        modes with cyclic symmetry.\r\n\r\n347 ***  USER FATAL MESSAGE 347, DYNAMIC PRESSURE (Q) PARAM REQUIRED BY AERO\r\n         RIGID FORMAT 11 NOT IN BULK DATA.\r\n\r\n348 ***  USER FATAL MESSAGE 348, FIRST CHARACTER ON CARD IS NUMERIC. INCORRECT\r\n         FORMAT OR INCORRECT CONTINUATION ON PREVIOUS CARD.\r\n\r\n        Check card above message or preceding one for format errors.\r\n\r\n349 ***  USER FATAL MESSAGE 349, PLOT COMMAND **** NOT RECOGNIZED. CHECK\r\n         SPELLING AND FORMAT ON THIS CARD AND CONTINUATION ON PREVIOUS ONE.\r\n\r\n350 ***  USER WARNING MESSAGE 350, ONLY NASTRAN GENERAL PURPOSE PLOTTER IS\r\n         SUPPORTED.\r\n\r\n        SC and CALCOMP plotters are no longer supported. Plotter will default\r\n        to NASTPLT for the run.\r\n\r\n351 ***  USER FATAL MESSAGE 351, KEYWORD **** NOT FOUND.\r\n(1)\r\n\r\n        A keyword required on the preceding plot command card was not\r\n        present.\r\n\r\n351 ***  USER FATAL MESSAGE 351, KEYWORD **** NOT RECOGNIZED.\r\n(2)\r\n\r\n        The indicated keyword on the preceding card was not recognized.\r\n\r\n352 ***  USER FATAL MESSAGE 352, COORDINATE AXES INCORRECTLY DEFINED.\r\n\r\n        The coordinate axes for the plot are incorrectly specified on the\r\n        preceding AXES or PLOT card.\r\n\r\n353 ***  USER FATAL MESSAGE 353, INCORRECT FORMAT.\r\n\r\n        The format of the preceding plot control card is incorrect. Refer to\r\n        Section 4.2 for the correct format.\r\n\r\n354 ***  USER WARNING MESSAGE 354, **** IDENTIFICATION NUMBER NOT DEFINED.\r\n\r\n        A required SET, ORIGIN, PEN, DENSITY, or SYMBOL identification number\r\n        was not specified. Default will be used.\r\n\r\n355 ***  USER FATAL MESSAGE 355, DATA TYPE IS INCORRECT.\r\n\r\n        The type of a parameter value was incorrectly specified on the\r\n        previous card.\r\n\r\n356 ***  USER FATAL MESSAGE 356, ONE OR MORE REQUIRED REAL VALUES MISSING.\r\n\r\n357 ***  USER WARNING MESSAGE 357, CAMERA OPTION NOT SPECIFIED.\r\n\r\n358 ***  USER FATAL MESSAGE 358, THRU MUST BE PRECEDED AND FOLLOWED BY INTEGER\r\n         VALUES.\r\n\r\n359 ***  USER FATAL MESSAGE 359, THRU RANGE OVERLAPS RANGE OF PREVIOUS THRU.\r\n\r\n360 ***  USER FATAL MESSAGE 360, ONLY DEFORMATION VALID WITH ****.\r\n\r\n        The keywords VELOCITY or ACCELERATION may not be used with keywords\r\n        STATIC, MODAL, or CMODAL.\r\n\r\n361 ***  USER FATAL MESSAGE 361, CCONEAX ID = ****. OUT OF 1 TO 9999 PERMISSIBLE\r\n         RANGE.\r\n\r\n362 ***  USER FATAL MESSAGE 362, MINIMUM PROBLEM REQUIRES **** CARD. NONE FOUND.\r\n(1)\r\n\r\n362 ***  USER FATAL MESSAGE 362, MINIMUM PROBLEM REQUIRES ****, **** OR ****\r\n(2)      CARD. NONE FOUND.\r\n\r\n363 ***  USER FATAL MESSAGE 363, RAN OUT OF OPEN CORE READING **** FILE IN ****\r\n         SUBROUTINE.\r\n\r\n        Increase Region Size, Field Length, HICORE allocation, or the length\r\n        of the open core COMMON block, depending on the machine being used.\r\n\r\n364 ***  USER FATAL MESSAGE 364, HARMONIC NUMBER **** ON **** CARD. OUT OF 0 TO\r\n         **** ALLOWABLE RANGE.\r\n\r\n365 ***  USER FATAL MESSAGE 365, RING ID **** ON **** CARD OUT OF 1 TO 999999\r\n         ALLOWABLE RANGE.\r\n\r\n366 ***  USER FATAL MESSAGE 366, SPCAX OR MPCAX CARD HAS SETID = 101 OR 102. 101\r\n         AND 102 ARE SYSTEM ID-S RESERVED FOR SINE AND COSINE SETS.\r\n\r\n367 ***  USER FATAL MESSAGE 367, COMPONENT SPECIFICATION **** ON **** CARD IS\r\n         INCORRECT.\r\n\r\n368 ***  USER FATAL MESSAGE 368, RINGAX CARD WITH RING ID = **** HAS A ZERO\r\n         RADIUS SPECIFIED.\r\n\r\n501 ***  SYSTEM FATAL MESSAGE 501, MED TABLE INCORRECT FOR THIS SOLUTION.\r\n\r\n        Input to subroutine XSBSET is incorrect. Look for format error in\r\n        array SS.\r\n\r\n502 ***  USER FATAL MESSAGE 502, ILLEGAL SUBSET NUMBER FOR THIS SOLUTION.\r\n\r\n        You specified an incorrect subset number on SOL control card.\r\n\r\n503 ***  USER FATAL MESSAGE 503, ILLEGAL SOLUTION NUMBER.\r\n\r\n        You specified an incorrect solution number on SOL control card.\r\n\r\n504 ***  USER FATAL MESSAGE 504, CANNOT CHANGE FROM SOLUTION *** TO SOLUTION\r\n         ***.\r\n\r\n505 ***  USER FATAL MESSAGE 505, CONTROL CARD **** IS ILLEGAL.\r\n\r\n        The card preceding Message 505 cannot be processed correctly.\r\n\r\n506 ***  USER FATAL MESSAGE 506, CONTROL CARD **** DUPLICATED.\r\n\r\n        The card preceding Message 506 cannot be input more than once.\r\n\r\n507 ***  USER FATAL MESSAGE 507, ILLEGAL SPECIFICATION OR FORMAT ON PRECEDING\r\n         CARD.\r\n\r\n508 ***  USER FATAL MESSAGE 508, PROBLEM TAPE MUST BE ON PHYSICAL TAPE FOR\r\n         CHECKPOINTING.\r\n\r\n        You requested checkpointing (that is, CHKPNT YES) but did not specify\r\n        NPTP with the FILES keyword on the NASTRAN card. Therefore, the\r\n        Problem Tape must be set up on tape drive.\r\n\r\n509 ***  USER FATAL MESSAGE 509, WRONG OLD PROBLEM TAPE MOUNTED. OLD PROBLEM\r\n         TAPE ID = ********,********,**/**/**, REEL NO. = ***.\r\n\r\n        The Old Problem Tape identification does not match the identification\r\n        on the RESTART card.\r\n\r\n510 ***  SYSTEM FATAL MESSAGE 510, CHECKPOINT DICTIONARY EXCEEDS CORE SIZE -\r\n         REMAINING RESTART CARDS IGNORED.\r\n\r\n        You have run out of open core. If approach is DMAP, try putting\r\n        restart deck before DMAP sequence. If this does not solve the\r\n        problem, or if approach is not DMAP, then you must decrease the size\r\n        of the restart deck.\r\n\r\n511 ***  SYSTEM FATAL MESSAGE 511, DMAP SEQUENCE EXCEEDS CORE SIZE - REMAINING\r\n         DMAP INSTRUCTIONS IGNORED.\r\n\r\n        You have run out of open core. Split the DMAP sequence somewhere\r\n        prior to where message 511 was printed out.\r\n\r\n512 ***  USER FATAL MESSAGE 512, OLD PROBLEM TAPE IS MISSING AND IS NEEDED FOR\r\n         RESTART.\r\n\r\n        The Problem Tape corresponding to identification on RESTART control\r\n        card must be set up on the unit assigned to the Old Problem Tape.\r\n\r\n513 ***  USER FATAL MESSAGE 513, ALTER SEQUENCE NUMBERS ARE OUT OF ORDER.\r\n\r\n514 ***  USER FATAL MESSAGE 514, ENDALTER CARD IS MISSING.\r\n\r\n        ALTER deck must end with the ENDALTER control card.\r\n\r\n515 ***  USER FATAL MESSAGE 515, END INSTRUCTION MISSING IN DMAP SEQUENCE.\r\n\r\n        DMAP sequence must end with the END control card.\r\n\r\n516 ***  USER FATAL MESSAGE 516, UMF TAPE MUST BE MOUNTED ON PHYSICAL TAPE\r\n         DRIVE.\r\n\r\n        The UMF tape must be set up on the unit assigned to it as UMF was not\r\n        specified with the FILES keyword on the NASTRAN card.\r\n\r\n517 ***  USER FATAL MESSAGE 517, WRONG UMF TAPE MOUNTED - TAPE ID = ****.\r\n\r\n        The tape identification number on the UMF tape does not match the\r\n        tape identification number on the UMF control card.\r\n\r\n518 ***  USER FATAL MESSAGE 518, CANNOT USE UMF TAPE FOR RESTART.\r\n\r\n519 ***  USER FATAL MESSAGE 519, ID CARD MUST PRECEDE ALL OTHER CONTROL CARDS.\r\n\r\n520 ***  USER FATAL MESSAGE 520, CONTROL CARD **** IS MISSING.\r\n\r\n521 ***  USER FATAL MESSAGE 521, SPECIFY A SOLUTION OR A DMAP SEQUENCE BUT NOT\r\n         BOTH.\r\n\r\n        You must select a DMAP sequence from the library either by using the\r\n        SOL control card or by supplying your own DMAP sequence. Do one or\r\n        the other, but not both.\r\n\r\n522 ***  USER FATAL MESSAGE 522, NEITHER A SOL CARD NOR A DMAP SEQUENCE WAS\r\n         INCLUDED.\r\n\r\n        See Message 521.\r\n\r\n523 ***  USER FATAL MESSAGE 523, ENDALTER CARD OUT OF ORDER.\r\n\r\n        The ENDALTER control card must be preceded by the ALTER deck.\r\n\r\n524 ***  SYSTEM FATAL MESSAGE 524, ALTERNATE RETURN TAKEN WHEN OPENING FILE\r\n         ****.\r\n\r\n        This occurs if the file name is not in the FIST or the end of tape\r\n        was reached while writing on the file. The file name should\r\n        correspond to one of the permanent entries in the FIST.\r\n\r\n525 ***  SYSTEM FATAL MESSAGE 525, ILLEGAL FORMAT ENCOUNTERED WHILE READING FILE\r\n         ****.\r\n\r\n        File is not in the correct format. Either the wrong tape was mounted\r\n        or it does not contain what you think it should.\r\n\r\n526 ***  USER FATAL MESSAGE 526, CHECKPOINT DICTIONARY OUT OF SEQUENCE -\r\n         REMAINING RESTART CARDS IGNORED.\r\n\r\n        The checkpoint dictionary which follows the RESTART control card must\r\n        be sequenced according to first number on each card.\r\n\r\n527 ***  USER FATAL MESSAGE 527, DUPLICATE SUBSET NUMBER *****.\r\n\r\n528 ***  USER WARNING MESSAGE 528, FACTOR FMID IN FLFACT SET **** DOES NOT LIE\r\n         BETWEEN F1 AND FNF. IT IS BEING RESET TO (F1 + FNF)/2.0.\r\n\r\n        The error may be either on a FLFACT card or on an AEFACT card.\r\n\r\n529 ***  USER FATAL MESSAGE 529, MISSING CEND CARD.\r\n\r\n601 ***  USER FATAL MESSAGE 601, THE KEYWORD ON THE ABOVE CARD IS ILLEGAL OR\r\n         MISSPELLED. SEE THE FOLLOWING LIST FOR LEGAL KEY WORDS.\r\n\r\n        Case Control expects each card to begin with a keyword (usually 4\r\n        characters in length). Your card does not. User Message 612 will list\r\n        the legal keywords along with a brief description of function. To\r\n        remove the error, consult Message 612 of NASTRAN Case Control card\r\n        descriptions, Section 2.3, and spell your request correctly.\r\n\r\n602 ***  USER WARNING MESSAGE 602, TWO OR MORE OF THE ABOVE CARD TYPES DETECTED\r\n         WHERE ONLY ONE IS LEGAL. THE LAST FOUND WILL BE USED.\r\n\r\n        Remove the card with the duplicate meaning. Note that some cards have\r\n        alternate forms.\r\n\r\n603 ***  USER FATAL MESSAGE 603, THE ABOVE CARD DOES NOT END PROPERLY. COMMENTS\r\n         SHOULD BE PRECEDED BY A DOLLAR SIGN.\r\n\r\n        Case Control cards of the form, name = value, should not contain more\r\n        than one value. Refer to Section 2.3 for a complete description of\r\n        the card or precede your comments with a dollar sign.\r\n\r\n604 ***  USER FATAL MESSAGE 604, THE ABOVE CARD HAS A NONINTEGER IN AN INTEGER\r\n         FIELD.\r\n\r\n        Consult Section 2.3 for legal values.\r\n\r\n605 ***  USER FATAL MESSAGE 605, A SYMSEQ OR SUBSEQ CARD APPEARS WITHOUT A\r\n         SYMCOM OR SUBCOM CARD.\r\n\r\n        SYMSEQ or SUBSEQ cards must appear in a subcase defined by a SYMCOM\r\n        or SUBCOM card. Check your Case Control Deck order and relabel your\r\n        combination subcase.\r\n\r\n606 ***  USER FATAL MESSAGE 606, A REQUEST FOR TEMPERATURE DEPENDENT MATERIALS\r\n         OCCURS AT THE SUBCASE LEVEL. ONLY ONE ALLOWED PER PROBLEM.\r\n\r\n        Only one temperature field for materials is allowed per NASTRAN run.\r\n        The last specified will be used for the entire run. If additional\r\n        ones are desired, a modified restart is in order.\r\n\r\n607 ***  USER FATAL MESSAGE 607, A REPCASE SUBCASE MUST BE PRECEDED BY A SUBCASE\r\n         OR SYM SUBCASE.\r\n\r\n        A REPCASE subcase is an attempt to re-output the previously computed\r\n        case; therefore it cannot be the first subcase.\r\n\r\n608 ***  USER FATAL MESSAGE 608, THE SET ID SPECIFIED ON THE ABOVE CARD MUST BE\r\n         DEFINED PRIOR TO THIS CARD.\r\n\r\n        Set identification numbers must be specified prior to their use.\r\n        Also, sets specified within a subcase die at the end of the subcase.\r\n        Redefine set (or define set) or move set out of subcase.\r\n\r\n609 ***  USER FATAL MESSAGE 609, SUBCASE DELIMITER CARDS MUST HAVE A UNIQUE\r\n         IDENTIFYING INTEGER.\r\n\r\n        Subcase type cards must have an identifying integer. These numbers\r\n        must be strictly increasing. Renumber your subcase cards. The use of\r\n        a non-blank delimiter (for example, \"=\") will also cause this message\r\n        to occur.\r\n\r\n610 ***  USER WARNING MESSAGE 610, NO SET ID SPECIFIED. ALL WILL BE ASSUMED.\r\n\r\n611 ***  USER FATAL MESSAGE 611, TEN CARDS HAVE ILLEGAL KEYWORDS. NASTRAN\r\n         ASSUMES BEGIN BULK CARD IS MISSING. IT WILL NOW PROCESS YOUR BULK DATA.\r\n\r\n        Only ten key words may be misspelled. A common source of this error\r\n        may be the omission of the OUTPUT(PLOT), OUTPUT(XYOUT), or\r\n        OUTPUT(XYPLOT) delimiter cards.\r\n\r\n612 ***  USER FATAL MESSAGE 612, --LIST OF LEGAL CASE CONTROL MNEMONICS.\r\n\r\n        This message is caused by Messages 601 or 611.\r\n\r\n613 ***  USER FATAL MESSAGE 613, THE ABOVE SET CONTAINS 'EXCEPT' WHICH IS NOT\r\n         PRECEDED BY 'THRU'.\r\n\r\n        Only identification numbers included in THRU statements may be\r\n        excepted. Simplify your SET request.\r\n\r\n614 ***  USER FATAL MESSAGE 614, THE ABOVE SET IS INCORRECTLY SPECIFIED. CHECK\r\n         FORMAT ON THIS OR PREVIOUS CARD.\r\n\r\n        The grammar of the SET list is incorrect or a continuation card is\r\n        missing.\r\n\r\n615 ***  USER FATAL MESSAGE 615, AN IMPROPER OR NO NAME GIVEN TO THE ABOVE SET.\r\n\r\n        SET lists must have integer names. This SET list does not have one.\r\n        SET 10 = is the correct format. Give the SET a correct integer name.\r\n\r\n616 ***  USER FATAL MESSAGE 616, ELEMENT IN THRU RANGE LIES IN RANGE OF PREVIOUS\r\n         THRU OR EXCEPT. MISSING ELEMENT OR INCORRECT USE OF THRU.\r\n\r\n        EXCEPT in SET list can only be followed by integers.  An integer\r\n        larger than THRU pair terminates THRU. Either list exceptions\r\n        explicitly, use two THRUs, or terminate first THRU.\r\n\r\n617 ***  USER FATAL MESSAGE 617, INCORRECT OR MISSING VALUE ON CASE CONTROL\r\n         CARD. CHECK FOR CORRECT CARD FORMAT.\r\n\r\n        Most integer values in Case Control must be positive. The above card\r\n        either has a negative integer or a BCD value in place of a positive\r\n        integer. Check the Case Control Deck documentation in Section 2.3 for\r\n        the proper card format.\r\n\r\n618 ***  USER FATAL MESSAGE 618, PLOTTER OUTPUT IS REQUESTED BUT THE PROPER PLOT\r\n         TAPE IS NOT A PHYSICAL TAPE.\r\n\r\n        Neither PLT1 or PLT2 is a physical tape. Remove the plot control\r\n        packet or set up the appropriate tape.\r\n\r\n619 ***  USER WARNING MESSAGE 619, SET MEMBER *** BELONGS TO *** THRU ***.\r\n\r\n        A set member is already included in a THRU. The individual member\r\n        will be absorbed in the THRU.\r\n\r\n620 ***  USER WARNING MESSAGE 620, SET MEMBER *** IS DUPLICATED IN SET LIST.\r\n\r\n        A set member is listed twice. The second reference will be deleted.\r\n\r\n621 ***  USER WARNING MESSAGE 621, INTERVAL *** THRU *** OVERLAPS INTERVAL ***\r\n         THRU ***. THE MAXIMUM INTERVAL WILL BE USED.\r\n\r\n622 ***  USER FATAL MESSAGE 622, REAL VALUES NOT ALLOWED IN A THRU SEQUENCE.\r\n\r\n623 ***  USER FATAL MESSAGE 623, UNEXPECTED END-OF-RECORD ON CASE CONTROL CARD.\r\n         CHECK FOR CORRECT CARD FORMAT.\r\n\r\n624 ***  USER FATAL MESSAGE 624, BEGIN BULK CARD NOT FOUND.\r\n\r\n625 ***  USER FATAL MESSAGE 625, TOO LARGE ID ON PRECEDING SUBCASE TYPE CARD.\r\n         ALL ID-S MUST BE LESS THAN 99,999,999.\r\n\r\n        Reduce the size of your subcase Identification number. Note also that\r\n        BCD subcase identification numbers are not legal.\r\n\r\n626 ***  USER FATAL MESSAGE 626, VALUES IN EXCEPT MUST BE SPECIFIED IN ASCENDING\r\n         ORDER.\r\n\r\n627 ***  USER FATAL MESSAGE 627, THE ABOVE SUBCASE HAS BOTH A STATIC LOAD AND A\r\n         REAL EIGENVALUE METHOD SELECTION -- REMOVE ONE.\r\n\r\n        Rigid Formats 5 and 13 require static load and METHOD selections in\r\n        the Case Control Deck. Both a load and a METHOD selection cannot take\r\n        place in the same subcase. See Sections 2.5.4 and 2.13.4 in Volume\r\n        II, respectively, for subcase requirements.\r\n\r\n628 ***  USER FATAL MESSAGE 628, THERMAL, DEFORMATION, AND EXTERNAL LOADS CANNOT\r\n         HAVE THE SAME SET IDENTIFICATION NUMBER.\r\n\r\n        Set IDs specified on the LOAD, TEMP(LOAD), and DEFORM Case Control\r\n        cards must be unique.\r\n\r\n629 ***  USER WARNING MESSAGE 629, ECHO CARD HAS REPEATED OR UNRECOGNIZABLE\r\n         SPECIFICATION DATA--REPEATED SPECIFICATIONS WILL BE IGNORED,\r\n         UNRECOGNIZABLE SPECIFICATIONS WILL BE TREATED AS SORT.\r\n\r\n630 ***  USER WARNING MESSAGE 630, ECHO CARD WITH -NONE- SPECIFICATION HAS\r\n         ADDITIONAL SPECIFICATIONS WHICH WILL BE IGNORED.\r\n\r\n631 ***  USER FATAL MESSAGE 631, PLOT AND/OR SET COMMAND CARD MISSING FROM\r\n         STRUCTURE PLOTTER OUTPUT PACKAGE.\r\n\r\n        At least one SET and one PLOT card must he included after an\r\n        OUTPUT(PLOT) card.\r\n\r\n632 ***  USER FATAL MESSAGE 632, XYPLOT COMMAND CARDS FOUND IN STRUCTURE PLOTTER\r\n         OUTPUT PACKAGE.\r\n\r\n        Plot command cards intended for an OUTPUT(XYPLOT) or OUTPUT(XYOUT)\r\n        package may not be used in an OUTPUT(PLOT) package. Check for missing\r\n        OUTPUT(XYPLOT) or OUTPUT(XYOUT) card.\r\n\r\n651 ***  SYSTEM FATAL MESSAGE 651, LOGIC ERROR IN SUBROUTINE IFP1B WHILE\r\n         PROCESSING SET DATA ON **** FILE.\r\n\r\n675 ***  USER FATAL MESSAGE 675, ABOVE CARD DOES NOT BEGIN WITH A NONNUMERIC\r\n         WORD.\r\n\r\n676 ***  USER FATAL MESSAGE 676, **** IS NOT RECOGNIZED AS AN XYPLOT COMMAND\r\n         CARD OR PARAMETER.\r\n\r\n677 ***  USER FATAL MESSAGE 677, ILLEGAL VALUE SPECIFIED.\r\n\r\n678 ***  USER FATAL MESSAGE 678, *** CONTRADICTS PREVIOUS DEFINITION.\r\n\r\n679 ***  USER FATAL MESSAGE 679, *** DELIMITER ILLEGALLY USED.\r\n\r\n680 ***  USER FATAL MESSAGE 680, **** ILLEGAL IN STATEMENT.\r\n\r\n681 ***  USER FATAL MESSAGE 681, **** IS ILLEGAL IN STATEMENT.\r\n\r\n682 ***  USER FATAL MESSAGE 682, **** IS ILLEGAL IN STATEMENT.\r\n\r\n683 ***  USER FATAL MESSAGE 683, TOO MANY SUBCASES. MAXIMUM = 200 ON ANY ONE XY-\r\n         OUTPUT COMMAND CARD.\r\n\r\n684 ***  USER FATAL MESSAGE 684, SUBCASE-ID IS LESS THAN 1 OR IS NOT IN\r\n         ASCENDING ORDER.\r\n\r\n685 ***  USER FATAL MESSAGE 685, **** = POINT OR ELEMENT ID IS ILLEGAL (LESS\r\n         THAN 1).\r\n\r\n686 ***  USER FATAL MESSAGE 686, NEGATIVE OR ZERO COMPONENTS ARE ILLEGAL.\r\n\r\n687 ***  USER FATAL MESSAGE 687, ALPHA-COMPONENTS ARE NOT PERMITTED FOR STRESS\r\n         OR FORCE XY-OUTPUT REQUESTS.\r\n\r\n        An XYPLOT command for stresses and forces cannot have alphabetic\r\n        characters in the item code. See the tables in Section 4.3.2.5 for\r\n        the proper format.\r\n\r\n688 ***  USER FATAL MESSAGE 688, **** COMPONENT NAME NOT RECOGNIZED.\r\n\r\n689 ***  USER FATAL MESSAGE 689, LAST CARD ENDED WITH A DELIMITER BUT NO\r\n         CONTINUATION CARD WAS PRESENT.\r\n\r\n690 ***  USER FATAL MESSAGE 690, TYPE OF CURVE WAS NOT SPECIFIED. (E.G.,\r\n         DISPLACEMENT, STRESS, ETC.)\r\n\r\n691 ***  USER FATAL MESSAGE 691, MORE THAN 2 OR UNEQUAL NUMBER OF COMPONENTS FOR\r\n         IDENTIFICATION NUMBERS WITHIN A SINGLE FRAME.\r\n\r\n692 ***  USER FATAL MESSAGE 692, XY-OUTPUT COMMAND IS INCOMPLETE.\r\n\r\n693 ***  USER FATAL MESSAGE 693, INSUFFICIENT CORE FOR SET TABLE. AT LEAST ****\r\n         MORE WORDS NEEDED.\r\n\r\n694 ***  USER FATAL MESSAGE 694, AUTO OR PSDF REQUESTS MAY NOT USE SPLIT FRAME,\r\n         THUS ONLY ONE COMPONENT PER ID IS PERMITTED.\r\n\r\n695 ***  USER FATAL MESSAGE 695, COMPONENT VALUE = **** IS ILLEGAL FOR AUTO OR\r\n         PSDF VECTOR REQUESTS.\r\n\r\n696 ***  USER FATAL MESSAGE 696, COMPONENT VALUE = ******** IS ILLEGAL FOR\r\n         VECTOR TYPE SPECIFIED.\r\n\r\n697 ***  USER FATAL MESSAGE 697, XYPLOT, XYPRINT, XYPUNCH, XYPEAK, OR XYPAPLOT\r\n(1)      CARD NOT FOUND IN XY PLOTTER OUTPUT PACKAGE.\r\n\r\n697 ***  USER WARNING MESSAGE 697, SET **** NOT DEFINED. FIRST SET DEFINED WILL\r\n(2)      BE USED.\r\n\r\n698 ***  USER FATAL MESSAGE 698, NO SETS DEFINED FOR PLOTS.\r\n\r\n699 ***  USER FATAL MESSAGE 699, **** ELEMENT IS INVALID.\r\n\r\n        An element type was incorrectly specified on a plot SET card. Refer\r\n        to subsection 4.2.2.4 for correct element type names.\r\n\r\n700 ***  USER FATAL MESSAGE 700, SET **** REQUESTED ON {FIND/PLOT} CARD HAS NOT\r\n         BEEN DEFINED.\r\n\r\n702 ***  USER FATAL MESSAGE 702, PLOT FILE **** DOES NOT EXIST.\r\n\r\n703 ***  USER FATAL MESSAGE 703, SET **** REQUESTED ON FIND CARD NOT IN GPSETS\r\n         FILE.\r\n\r\n969 ***  USER FATAL MESSAGE 969, COMPONENT VALUE = **** IS ILLEGAL FOR VECTOR\r\n         TYPE SPECIFIED.\r\n\r\n975 ***  USER WARNING MESSAGE 975, XYTRAN DOES NOT RECOGNIZE **** AND IS\r\n         IGNORING.\r\n\r\n976 ***  USER WARNING MESSAGE 976, OUTPUT DATA BLOCK **** IS PURGED. XYTRAN WILL\r\n         PROCESS ALL REQUESTS OTHER THAN PLOT.\r\n\r\n977 ***  USER WARNING MESSAGE 977, FOLLOWING NAMED DATA BLOCK IS NOT IN SORT2\r\n         FORMAT.\r\n\r\n978 ***  USER WARNING MESSAGE 978, XYTRAN MODULE FINDS DATA BLOCK (****) PURGED,\r\n         NULL, OR INADEQUATE, AND IS IGNORING XY-OUTPUT REQUEST FOR - **** -\r\n         CURVES.\r\n\r\n979 ***  USER WARNING MESSAGE 979, AN XY-OUTPUT REQUEST FOR POINT OR ELEMENT ID\r\n         **** - **** - CURVE IS BEING PASSED OVER. THE ID COULD NOT BE FOUND IN\r\n         DATA BLOCK ****.\r\n\r\n980 ***  USER WARNING MESSAGE 980, INSUFFICIENT CORE TO HANDLE ALL DATA FOR ALL\r\n         CURVES OF THIS FRAME ID = **** COMPONENT = **** DELETED FROM OUTPUT.\r\n\r\n981 ***  USER WARNING MESSAGE 981, COMPONENT = **** FOR ID = **** IS TOO LARGE.\r\n         THIS COMPONENTS CURVE NOT OUTPUT.\r\n\r\n982 ***  USER WARNING MESSAGE 982, FORMAT OF SDR3 INPUT DATA BLOCK **** DOES NOT\r\n         PERMIT SUCCESSFUL SORT2 PROCESSING.\r\n\r\n983 ***  USER WARNING MESSAGE 983, SDR3 HAS INSUFFICIENT CORE TO PERFORM SORT2\r\n         ON INPUT DATA BLOCK **** OR DATA BLOCK IS NOT IN CORRECT FORMAT.\r\n\r\n984 ***  USER WARNING MESSAGE 984, SDR3 FINDS OUTPUT DATA BLOCK **** PURGED.\r\n\r\n985 ***  USER WARNING MESSAGE 985, SDR3 FINDS SCRATCH **** PURGED.\r\n\r\n986 ***  USER WARNING MESSAGE 986, INSUFFICIENT CORE FOR SDR3.\r\n\r\n991 ***  USER WARNING MESSAGE 991, XYPLOT INPUT DATA FILE **** NOT FOUND. XYPLOT\r\n         ABANDONED.\r\n\r\n        The input data file probably has been purged and there were no plots\r\n        to be done.\r\n\r\n992 ***  USER WARNING MESSAGE 992, XYPLOT INPUT DATA FILE I.D. RECORDS TOO\r\n         SHORT. XYPLOT ABANDONED.\r\n\r\n        The input data file records have invalid word counts and further\r\n        plotting is not feasible.\r\n\r\n993 ***  USER WARNING MESSAGE 993, XYPLOT FOUND ODD NO. OF VALUES FOR DATA PAIRS\r\n         IN FRAME ****, CURVE NO. ****. LAST VALUE IGNORED.\r\n\r\n        May indicate a bad input file, but plotting continues.\r\n\r\n994 ***  USER WARNING MESSAGE 994, XYPLOT OUTPUT FILE NAME **** NOT FOUND.\r\n         XYPLOT ABANDONED.\r\n\r\n        The PLT2 file required for plotting has not been properly set up and\r\n        further plotting is useless.\r\n\r\n997 ***  USER WARNING MESSAGE 997, NO. ***. FRAME NO. **** INPUT DATA\r\n         INCOMPATIBLE. ASSUMPTIONS MAY PRODUCE INVALID PLOT.\r\n\r\n        NO. *** may take any value from 1 to 4 with the following meanings:\r\n\r\n        1. Specified X maximum equals X minimum. If this value is zero, then\r\n        X maximum is set to 5.0 and X minimum to -5.0, otherwise 5 times the\r\n        absolute value of X maximum is added to X maximum and subtracted from\r\n        X minimum.\r\n\r\n        2. Specified X maximum is smaller than X minimum. The values are\r\n        reversed.\r\n\r\n        3. Same meaning as number 1 except for Y maximum and Y minimum.\r\n\r\n        4. Same meaning as number 2 except for Y maximum and Y minimum.\r\n\r\n998 ***  SYSTEM WARNING MESSAGE 998, XYPLOT PLOTTER OR FRAME MAY NOT CHANGE FOR\r\n         LOWER FRAME. XYPLOT ABANDONED.\r\n\r\n        Camera option, size of paper, and plotter type must be the same for\r\n        upper and lower frames.\r\n\r\n=PAGE=\r\n6.3  EXECUTIVE MODULE MESSAGES\r\n\r\n1001  ***  SYSTEM FATAL MESSAGE 1001, OSCAR NOT FOUND IN DPL.\r\n\r\n          OSCAR file not present (destroyed) in Data Pool Dictionary.\r\n\r\n1002  ***  SYSTEM FATAL MESSAGE 1002, OSCAR CONTAINS NO MODULES.\r\n\r\n          XSFA found no modules on OSCAR needing file allocation.\r\n\r\n1003  ***  SYSTEM FATAL MESSAGE 1003, POOL COULD NOT BE OPENED.\r\n\r\n          Data Pool File (POOL) not present (destroyed) in FIST.\r\n\r\n1004  ***  SYSTEM FATAL MESSAGE 1004, ILLEGAL EOF ON POOL.\r\n\r\n          End-of-file encountered before OSCAR file reached on Data Pool.\r\n\r\n1011  ***  SYSTEM FATAL MESSAGE 1011, MD OR SOS TABLE OVERFLOW.\r\n\r\n          Module description or serial OSCAR table overflowed.\r\n\r\n1012  ***  SYSTEM FATAL MESSAGE 1012, POOL COULD NOT BE OPENED.\r\n\r\n          Data Pool File (POOL) not present (destroyed) in FIST.\r\n\r\n1013  ***  SYSTEM FATAL MESSAGE 1013, ILLEGAL EOR ON POOL.\r\n\r\n          OSCAR record has illegal format.\r\n\r\n1014  ***  SYSTEM FATAL MESSAGE 1014, POOL FILE MIS-POSITIONED.\r\n\r\n          OSCAR (POOL) file not at position passed in XSFA calling sequence.\r\n\r\n1021  ***  SYSTEM FATAL MESSAGE 1021, FIAT OVERFLOWED.\r\n\r\n          FIAT /XFIAT/ Table overflowed; reduce number of logical files. See\r\n          Section 2 of the Programmer's Manual.\r\n\r\n1031  ***  SYSTEM FATAL MESSAGE 1031, DPL OVERFLOW.\r\n\r\n          Data Pool Dictionary /XDPL/ overflowed; increase compiled size. See\r\n          Section 2 of the Programmer's Manual.\r\n\r\n1032  ***  SYSTEM FATAL MESSAGE 1032, POOL OR FILE BEING POOLED/UN-POOLED COULD\r\n           NOT BE OPENED.\r\n\r\n          Files not present (destroyed) in FIST.\r\n\r\n1033  ***  SYSTEM FATAL MESSAGE 1033, ILLEGAL EOF ON FILE BEING POOLED.\r\n\r\n          File being pooled has illegal format.\r\n\r\n1034  ***  SYSTEM FATAL MESSAGE 1034, ILLEGAL EOR ON FILE BEING POOLED.\r\n\r\n          File being pooled has illegal format (bad header).\r\n\r\n1035  ***  SYSTEM FATAL MESSAGE 1035, EQUIV INDICATED, NONE FOUND.\r\n\r\n          File (data block) equivalence not found as indicated by XSFA.\r\n\r\n1041  ***  SYSTEM FATAL MESSAGE 1041, OLD/NEW POOL COULD NOT BE OPENED.\r\n\r\n          Files not present (destroyed) in FIST.\r\n\r\n1051  ***  SYSTEM FATAL MESSAGE 1051, FIAT OVERFLOW.\r\n\r\n          FIAT /XFIAT/ overflowed; reduce number of logical files. See\r\n          Section 2 of the Programmer's Manual.\r\n\r\n1101  ***  USER FATAL MESSAGE 1101, COULD NOT OPEN FILE NAMED ********.\r\n\r\n          Data block has not been generated.\r\n\r\n1102  ***  SYSTEM FATAL MESSAGE 1102, COULD NOT OPEN FILE NAMED ********.\r\n\r\n          Problem Tape (NPTP) or Pool Table (POOL) File linkage is broken.\r\n          Look for error in /XFIST/, /XPFIST/, or /XXFIAT/.\r\n\r\n1103  ***  SYSTEM FATAL MESSAGE 1103, UNABLE TO POSITION DATA POOL FILE\r\n           CORRECTLY.\r\n\r\n          Contents of /XDPL/ do not correspond to contents of POOL file.\r\n\r\n1104  ***  SYSTEM FATAL MESSAGE 1104, FDICT TABLE IS INCORRECT.\r\n\r\n          Subroutine XCHK is not generating FDICT correctly.\r\n\r\n1105  ***  USER FATAL MESSAGE 1105, CANNOT FIND DATA BLOCK NAMED ******** HEADER\r\n           RECORD = ********.\r\n\r\n          Data block name or equivalenced data block name must match header\r\n          record.\r\n\r\n1106  ***  USER FATAL MESSAGE 1106, CHECKPOINT DICTIONARY OVERFLOWED THERE IS NO\r\n           MORE CORE AVAILABLE.\r\n\r\n          Restart problem from this point with dictionary available.\r\n\r\n1107  ***  SYSTEM FATAL MESSAGE 1101, CANNOT FIT DATA BLOCK NAMED ******** ON\r\n           TWO PROBLEM TAPE REELS.\r\n\r\n          Use full tape reels for Problem Tape.\r\n\r\n1108  ***  SYSTEM FATAL MESSAGE 1108, PURGE TABLE OVERFLOWED.\r\n\r\n          Reduce the number of data blocks being checkpointed at one time by\r\n          replacing a single CHKPNT instruction with two CHKPNT instructions.\r\n\r\n1109  ***  SYSTEM FATAL MESSAGE 1109, CANNOT FIND DATA BLOCK NAMED NXPTDC HEADER\r\n           RECORD = ********.\r\n\r\n          Problem Tape is not positioned correctly for reading NXPTDC.\r\n          Problem is in subroutine which previously wrote NXPTDC onto Problem\r\n          Tape. Suspect subroutine is XGPI, XCEI, or XCHK.\r\n\r\n1126  ***  SYSTEM FATAL MESSAGE 1126, ADDRESS OF BUFFER LESS THAN ADDRESS OF\r\n           /XNSTRN/.\r\n\r\n          Highly unlikely. Program bug or machine error.\r\n\r\n1127  ***  SYSTEM FATAL MESSAGE 1127, BUFFER ASSIGNED EXTENDS INTO MASTER INDEX\r\n           AREA.\r\n\r\n          Calling program bug in buffer allocation or first word of /SYSTEM/\r\n          has been altered.\r\n\r\n1128  ***  SYSTEM FATAL MESSAGE 1128, ON AN OPEN CALL WITHOUT REWIND, THE BLOCK\r\n           NUMBER READ DOES NOT MATCH EXPECTED VALUE.\r\n\r\n          Probably I/O Error.\r\n\r\n1129  ***  SYSTEM FATAL MESSAGE 1129, ON A CALL WRITE THE WORD COUNT IS\r\n           NEGATIVE.\r\n\r\n          Definite calling program error.\r\n\r\n1130  ***  SYSTEM FATAL MESSAGE 1130, ON A CALL READ THE CONTROL WORD AT WHICH\r\n           THE FILE IS POSITIONED IS NOT ACCEPTABLE.\r\n\r\n          Attempt to read string formatted record which is not allowed.\r\n\r\n1131  ***  SYSTEM FATAL MESSAGE 1131, LOGICAL RECORD TRAILER NOT RECOGNIZABLE AS\r\n           SUCH.\r\n\r\n          Probable GINO bug or hardware error.\r\n\r\n1132  ***  SYSTEM FATAL MESSAGE 1132, UNRECOGNIZABLE CONTROL WORD DURING\r\n           PROCESSING OF A BCKREC CALL.\r\n\r\n          Probable GINO bug or hardware error.\r\n\r\n1133  ***  SYSTEM FATAL MESSAGE 1133, AFTER A POSITIONING CALL TO IO6600, DURING\r\n           PROCESSING OF A BCKREC CALL THE BLOCK READ WAS NOT THE EXPECTED ONE.\r\n\r\n          Probable IO6600 bug or possible I/O error.\r\n\r\n1134  ***  SYSTEM FATAL MESSAGE 1134, CALL SKPFIL IN A FORWARD DIRECTION ON A\r\n           FILE NOT OPENED FOR OUTPUT IS NOT SUPPORTED.\r\n\r\n1135  ***  SYSTEM FATAL MESSAGE 1135, FILPOS WAS CALLED ON A FILE OPENED FOR\r\n           OUTPUT.\r\n\r\n1136  ***  SYSTEM FATAL MESSAGE 1136, ENDPUT WAS CALLED WITH BLOCK (8) = -1.\r\n\r\n          Most likely PUTSTR was not called first.\r\n\r\n1137  ***  SYSTEM FATAL MESSAGE 1137, MORE TERMS WRITTEN IN STRING THAN WERE\r\n           AVAILABLE TO WRITE.\r\n\r\n          Most likely subroutine logic error.\r\n\r\n1138  ***  SYSTEM FATAL MESSAGE 1138, CURRENT BUFFER POINTER EXCEEDS LAST DATA\r\n           WORD IN BLOCK.\r\n\r\n          Probably a bug in PUTSTR in the computation of the number of terms\r\n          available to write in a string.\r\n\r\n1139  ***  SYSTEM FATAL MESSAGE 1139, ON AN INITIAL CALL TO GETSTR, THE RECORD\r\n           IS NOT POSITIONED AT THE COLUMN HEADER.\r\n\r\n          Either the record is not a string formatted record, or the calling\r\n          routine has not made a proper sequence of GETSTR, ENDGET calls.\r\n\r\n1140  ***  SYSTEM FATAL MESSAGE 1140, STRING DEFINITION WORD NOT RECOGNIZABLE.\r\n\r\n          Probable cause is a failure to call ENDGET to complete processing\r\n          of the previous string.\r\n\r\n1141  ***  SYSTEM FATAL MESSAGE 1141, FIRST WORD OF A DOUBLE PRECISION STRING IS\r\n           NOT ON A DOUBLE PRECISION BOUNDARY.\r\n\r\n          This error is probably due to a bug in any of PUTSTR, OPEN, or\r\n          NASTIO, all of which have responsibility for ensuring proper\r\n          alignment.\r\n\r\n1142  ***  SYSTEM FATAL MESSAGE 1142, CURRENT BUFFER POINTER IS BEYOND RANGE OF\r\n           INFORMATION IN BUFFER.\r\n\r\n          Either an attempt to read beyond end-of-information or a GINO logic\r\n          bug.\r\n\r\n1143  ***  SYSTEM FATAL MESSAGE 1143, ON AN INITIAL CALL TO GETSTR, THE FILE IS\r\n           NOT POSITIONED AT AN ACCEPTABLE POINT.\r\n\r\n          File should be positioned at the beginning of record or at\r\n          end-of-file.\r\n\r\n1144  ***  SYSTEM FATAL MESSAGE 1144, END-OF-SEGMENT CONTROL WORD SHOULD HAVE\r\n           IMMEDIATELY PRECEDED CURRENT POSITION AND IT DID NOT.\r\n\r\n          GINO logic error.\r\n\r\n1145  ***  SYSTEM FATAL MESSAGE 1145, COLUMN TRAILER NOT FOUND.\r\n\r\n          Previous record to be read backwards is not a string formatted\r\n          record.\r\n\r\n1146  ***  SYSTEM FATAL MESSAGE 1146, PREVIOUS RECORD TO BE READ BACKWARDS WAS\r\n           NOT WRITTEN WITH STRING TRAILERS.\r\n\r\n1147  ***  SYSTEM FATAL MESSAGE 1147, STRING RECOGNITION WORD NOT RECOGNIZED.\r\n\r\n          A subroutine may not have called GETSTR to indicate completion of\r\n          processing of previous string or a bug in GETSTR logic.\r\n\r\n1148  ***  SYSTEM FATAL MESSAGE 1148, RECORD CONTROL WORD NOT IN EXPECTED\r\n           POSITION.\r\n\r\n          Logic error in GETSTR or PUTSTR when string was written.\r\n\r\n1149  ***  SYSTEM FATAL MESSAGE 1149, RECTYP WAS CALLED FOR A FILE OPENED FOR\r\n           OUTPUT.\r\n\r\n          Not allowed.\r\n\r\n1150  ***  SYSTEM FATAL MESSAGE 1150, RECTYP MUST BE CALLED WHEN THE FILE IS\r\n           POSITIONED AT THE BEGINNING OF A RECORD.\r\n\r\n1151  ***  SYSTEM FATAL MESSAGE 1151, ON A CALL TO OPEN THE BUFFER ASSIGNED\r\n           OVERLAPS A PREVIOUSLY ASSIGNED BUFFER.\r\n\r\n1152  ***  SYSTEM FATAL MESSAGE 1152, CALL TO OPEN FOR AN ALREADY OPEN FILE.\r\n\r\n1153  ***  SYSTEM FATAL MESSAGE 1153, FILE NOT OPEN.\r\n\r\n1154  ***  SYSTEM FATAL MESSAGE 1154, GINO REFERENCE NAME NOT IN FIST OR FILE\r\n           NOT OPEN.\r\n\r\n1155  ***  SYSTEM FATAL MESSAGE 1155, CALL TO GETSTR OCCURRED WHEN THE FILE WAS\r\n           POSITIONED AT END-OF-FILE.\r\n\r\n1156  ***  SYSTEM FATAL MESSAGE 1156, ATTEMPTED TO WRITE ON AN INPUT FILE.\r\n\r\n1157  ***  SYSTEM FATAL MESSAGE 1157, ATTEMPTED TO READ FROM AN OUTPUT FILE.\r\n\r\n1158  ***  SYSTEM FATAL MESSAGE 1158, A CALL TO BLDPK OR PACK IN WHICH EITHER\r\n           TYPIN OR TYPOUT IS OUT OF RANGE.\r\n\r\n1159  ***  SYSTEM FATAL MESSAGE 1159, ROW POSITIONS OF ELEMENTS FURNISHED TO\r\n           ZBLPKI OR BLDPKI ARE NOT IN MONOTONIC INCREASING SEQUENCE.\r\n\r\n1160  ***  SYSTEM FATAL MESSAGE 1160, ON A CALL TO BLDPKN, FILE NAME DOES NOT\r\n           MATCH PREVIOUS CALLS.\r\n\r\n          BLDPK was not called prior to a call to BLDPKN.\r\n\r\n1161  ***  SYSTEM FATAL MESSAGE 1161, A CALL TO INTPK OR UNPACK IN WHICH TYPOUT\r\n           IS OUT OF RANGE.\r\n\r\n1162  ***  SYSTEM FATAL MESSAGE 1162, ON AN ATTEMPT TO READ A SUBINDEX AT THE\r\n           TIME OF A CALL TO OPEN AN END-OF-FILE WAS ENCOUNTERED OR WRONG NUMBER\r\n           OF WORDS READ.\r\n\r\n          The file has never been written and IO6600 failed to detect it;\r\n          possible I/O error.\r\n\r\n1163  ***  SYSTEM FATAL MESSAGE 1163, A READ ATTEMPT WHEN THE CORRESPONDING\r\n           SUBINDEX IS ZERO.\r\n\r\n          Normally this indicates an attempt to read past the\r\n          end-of-information. However, if called from FILPOS, suspect is\r\n          subroutine error in saving and returning a correct file position.\r\n\r\n1164  ***  SYSTEM FATAL MESSAGE 1164, FOLLOWING A READ ATTEMPT ON AN INDEXED\r\n           FILE, EITHER AN END-OF-FILE WAS ENCOUNTERED OR THE NUMBER OF WORDS\r\n           READ WAS INCORRECT.\r\n\r\n          I/O error.\r\n\r\n1165  ***  SYSTEM FATAL MESSAGE 1165, ON AN ATTEMPT TO READ A SEQUENTIAL FILE,\r\n           AN END-OF-FILE OR AN END-OF-INFORMATION WAS ENCOUNTERED.\r\n\r\n1166  ***  SYSTEM FATAL MESSAGE 1166, ON AN ATTEMPT TO READ A SEQUENTIAL FILE, A\r\n           LONG RECORD WAS ENCOUNTERED.\r\n\r\n1167  ***  SYSTEM FATAL MESSAGE 1167, ON AN ATTEMPT TO READ A SEQUENTIAL FILE,\r\n           A SHORT RECORD WAS ENCOUNTERED.\r\n\r\n1168  ***  SYSTEM FATAL MESSAGE 1168, A CALL TO IO6600 WITH OPCODE=5 (FORWARD\r\n           SPACE) IS NOT SUPPORTED.\r\n\r\n1169  ***  SYSTEM FATAL MESSAGE 1169, ILLEGAL CALL TYPE, LOGIC ERROR IN IO6600.\r\n\r\n1170  ***  SYSTEM FATAL MESSAGE 1170, ILLEGAL CALL TO NASTIO, LOGIC ERROR IN\r\n           IO6600.\r\n\r\n1171  ***  SYSTEM FATAL MESSAGE 1171, ON A POSITION CALL, THE BLOCK NUMBER\r\n           REQUESTED IS NOT FOUND IN CORE WHEN IT IS EXPECTED THERE.\r\n\r\n          Either the caller has written in the area furnished to NASTIO or\r\n          there is a logic error in NASTIO.\r\n\r\n1172  ***  SYSTEM FATAL MESSAGE 1172, WHEN ATTEMPTING TO READ A NEW INDEX, THE\r\n           NUMBER OF WORDS RETURNED WAS INCORRECT.\r\n\r\n          Either an I/O error or logic error in NASTIO.\r\n\r\n1201  ***  SYSTEM FATAL MESSAGE 1201, FIAT OVERFLOW.\r\n\r\n          FIAT /XFIAT/ overflowed; reduce number of logical files. See\r\n          Section 2.4 of the Programmer's Manual.\r\n\r\n1202  ***  SYSTEM FATAL MESSAGE 1202, DPL OVERFLOW.\r\n\r\n          Data Pool Dictionary /XDPL/ overflowed; increase compiled size. See\r\n          Section 2.4 of the Programmer's Manual.\r\n\r\n1300  ***  SYSTEM FATAL MESSAGE 1300, END-OF-FILE WAS CALLED ON A FILE OPEN FOR\r\n           INPUT.\r\n\r\n1301  ***  SYSTEM FATAL MESSAGE 1301, END-OF-FILE ENCOUNTERED.\r\n\r\n          An error In the calling program caused an unexpected end-of-file.\r\n\r\n1302  ***  SYSTEM FATAL MESSAGE 1302, ZERO LENGTH RECORD SEGMENT ENCOUNTERED.\r\n\r\n          A zero length record segment occurred before the last record in a\r\n          block.\r\n\r\n1303  ***  SYSTEM FATAL MESSAGE 1303, ATTEMPT TO GET A STRING PRIOR TO\r\n           INFORMATION.\r\n\r\n          There is an error in the calling program.\r\n\r\n1304  ***  SYSTEM FATAL MESSAGE 1304, UNRECOGNIZED CONTROL WORD.\r\n\r\n          The calling program may have overwritten a buffer.\r\n\r\n1305  ***  SYSTEM FATAL MESSAGE 1305, BLOCK NUMBER CHECK FAILED.\r\n\r\n          In the process of making a data block core resident, the block\r\n          number did not have the expected value.\r\n\r\n1306  ***  SYSTEM FATAL MESSAGE 1306, BLOCK NUMBER IN BLOCK TO BE WRITTEN DOES\r\n           NOT MATCH NUMBER IN FILE CONTROL BLOCK.\r\n\r\n1307  ***  SYSTEM FATAL MESSAGE 1307, BLOCK NUMBER OF BLOCK TO BE WRITTEN IS NOT\r\n           IN CURRENT UNIT.\r\n\r\n          The block number was not in the current unit and not equal to the\r\n          block number in the preceding unit.\r\n\r\n1308  ***  SYSTEM FATAL MESSAGE 1308, ATTEMPT TO READ BEYOND DATA.\r\n\r\n1309  ***  SYSTEM FATAL MESSAGE 1309, CORE RESIDENT DATA BLOCK NUMBER DOES NOT\r\n           MATCH NUMBER IN FILE CONTROL BLOCK.\r\n\r\n1310  ***  SYSTEM FATAL MESSAGE 1310, POINTER TO NEXT CORE RESIDENT DATA BLOCK\r\n           IS ZERO.\r\n\r\n          Next block should be in core.\r\n\r\n1311  ***  SYSTEM FATAL MESSAGE 1311, BLOCK NUMBER TO BE READ IS NOT INCLUDED IN\r\n           CURRENT CHAIN OF UNITS.\r\n\r\n1312  ***  SYSTEM FATAL MESSAGE 1312, BLOCK NUMBER OF BLOCK READ FROM DISK DOES\r\n           NOT MATCH NUMBER IN FILE CONTROL BLOCK.\r\n\r\n1313  ***  SYSTEM FATAL MESSAGE 1313, POINTER TO CORE RESIDENT DATA BLOCK IS\r\n           POSITIONED PRIOR TO INFORMATION.\r\n\r\n1314  ***  SYSTEM FATAL MESSAGE 1314, ATTEMPT TO POSITION A FILE OPENED TO\r\n           WRITE.\r\n\r\n1315  ***  SYSTEM FATAL MESSAGE 1315, BLOCK NUMBER NOT FOUND.\r\n\r\n          Logic error in an attempt to position a core resident data block.\r\n\r\n1316  ***  SYSTEM FATAL MESSAGE 1316, NO DATA EVENT CONTROL BLOCK AVAILABLE.\r\n\r\n1317  ***  SYSTEM FATAL MESSAGE 1317, ERROR IN INTERNAL SUBROUTINE IN NASTIO.\r\n\r\n1318  ***  SYSTEM FATAL MESSAGE 1318, ATTEMPT TO READ BEYOND END-OF-DATA.\r\n\r\n1319  ***  SYSTEM FATAL MESSAGE 1319, DCB SYNCHRONOUS ERROR DETECTED.\r\n\r\n          Data control block improperly written.\r\n\r\n1320  ***  SYSTEM FATAL MESSAGE 1320, FIRST TERM IN ROW IS NOT A DIAGONAL TERM.\r\n\r\n1321  ***  SYSTEM FATAL MESSAGE 1321, FIRST TERM IN ROW IS NOT A DIAGONAL TERM.\r\n\r\n1322  ***  SYSTEM FATAL MESSAGE 1322, BAD STATUS RETURN ON A NTRAN READ CALL.\r\n\r\n          Possible I/O error.\r\n\r\n1323  ***  SYSTEM FATAL MESSAGE 1323, END-OF-DATA ENCOUNTERED.\r\n\r\n          The unit on which the end-of-data occurred is not a tape.\r\n\r\n1324  ***  SYSTEM FATAL MESSAGE 1324, INCORRECT WORD COUNT ON A NTRAN READ CALL.\r\n\r\n          Number of words read by NTRAN is incorrect.\r\n\r\n1325  ***  SYSTEM FATAL MESSAGE 1325, BAD STATUS RETURN ON A NTRAN WRITE CALL.\r\n\r\n          Possible I/O error.\r\n\r\n1326  ***  SYSTEM FATAL MESSAGE 1326, INCORRECT NUMBER OF WORDS PASSED BY NTRAN.\r\n\r\n1327  ***  SYSTEM FATAL MESSAGE 1327, ILLEGAL RETURN FROM FWDREC.\r\n\r\n1701  ***  SYSTEM WARNING MESSAGE 1701, AVAILABLE CORE EXCEEDED BY ******** LINE\r\n           IMAGE BLOCKS.\r\n\r\n1702  ***  SYSTEM INFORMATION MESSAGE 1702, UTILITY MODULE SEEMAT WILL ABANDON\r\n           PROCESSING DATA BLOCK ********.\r\n\r\n1704  ***  USER WARNING MESSAGE 1704, PLOT FILE - **** NOT SET UP.\r\n\r\n1705  ***  SYSTEM WARNING MESSAGE 1705, LOGIC ERROR AT STATEMENT ***** IN\r\n           SUBROUTINE SEEMAT.\r\n\r\n1706  ***  USER WARNING MESSAGE 1706, PRECEDING BULK DATA DECK HAS BEEN CANCELED\r\n           AND WILL NOT APPEAR ON USER MASTER FILE.\r\n\r\n          The preceding Bulk Data Deck contains errors which preclude its\r\n          inclusion on the User's Master File. Appropriate error message\r\n          should appear in the echo of the Bulk Data Deck. Any subsequent\r\n          Bulk Data Decks will be placed on the User's Master File if error-\r\n          free. \r\n\r\n1707  ***  USER FATAL MESSAGE 1707, ILLEGAL TID VALUE ON UMF CARD.\r\n\r\n          The TID value used on all UMF cards must be the same for any run\r\n          and must match the TID value on the UMF tape being input. See\r\n          Section 2.5 for details.\r\n\r\n1708  ***  SYSTEM FATAL MESSAGE 1708, UMFEDT - UNEXPECTED EOF FROM READ.\r\n\r\n          The occurrence of this message indicates a program failure in the\r\n          User's Master File Editor subroutine UMFEDT.\r\n\r\n1709  ***  SYSTEM FATAL MESSAGE 1709, UMFEDT - UNEXPECTED EOF FROM READ.\r\n\r\n          The occurrence of this message indicates a program failure in the\r\n          User's Master File Editor subroutine UMFEDT.\r\n\r\n1710  ***  SYSTEM FATAL MESSAGE 1710, UMFEDT UNABLE TO OPEN ONE OF THE PERMANENT\r\n           NASTRAN FILES UMF, NUMF, OR NPTP.\r\n\r\n1711  ***  USER FATAL MESSAGE 1711, NO TAPE SETUP FOR EITHER UMF OR NUMF. THE\r\n           USER MASTER FILE EDITOR REQUIRES AT LEAST ONE OF THESE TAPES TO BE\r\n           SET UP.\r\n\r\n          The tape(s) required must be appropriate to the requested action.\r\n          See Section 2.5 for details.\r\n\r\n1712  ***  USER WARNING MESSAGE 1712, REQUEST TO ADD DECK WITH PROBLEM\r\n           IDENTIFICATION NO. = **** CONFLICTS WITH IMPLIED REQUEST TO COPY THE\r\n           SAME PROBLEM FROM THE UMF. THE NEW DECK WILL BE USED.\r\n\r\n          This message will occur whenever a deck is added whose PID value is\r\n          the same as that of a problem already existing on the old User's\r\n          Master File.\r\n\r\n1713  ***  USER WARNING MESSAGE 1713, REMOVE REQUEST FOR PROBLEM **** IS OUT OF\r\n           SEQUENCE OR NOT ON UMF.\r\n\r\n          User's Master File Editor control cards must form an increasing\r\n          sequence. See Section 2.5 for details.\r\n\r\n1714  ***  USER WARNING MESSAGE 1714, LIST REQUEST FOR PROBLEM **** IS OUT OF\r\n           SEQUENCE OR NOT ON UMF.\r\n\r\n          User's Master File Editor control cards must form an increasing\r\n          sequence. See Section 2.5 for details.\r\n\r\n1715  ***  USER WARNING MESSAGE 1715, PUNCH REQUEST FOR PROBLEM **** IS OUT OF\r\n           SEQUENCE OR NOT ON UMF.\r\n\r\n          User's Master File Editor control cards must form an increasing\r\n          sequence. See Section 2.5 for details.\r\n\r\n1716  ***  USER FATAL MESSAGE 1716, PROBLEM WITH PID = **** IS NOT ON UMF OR\r\n           CARD IS OUT OF SEQUENCE.\r\n\r\n          User's Master File Editor control cards must form an increasing\r\n          sequence. See Section 2.5 for details.\r\n\r\n1717  ***  USER FATAL MESSAGE 1717, NUMF TAPE ID HAS ALREADY BEEN SPECIFIED.\r\n\r\n          The tape id value for the New User's Master File (NUMF) may only be\r\n          specified once. See Section 2.5 for details.\r\n\r\n1718  ***  USER FATAL MESSAGE 1718, NUMF TAPE ID MAY NOT BE RESPECIFIED.\r\n\r\n          The tape id value for the New User's Master File (NUMF) may only be\r\n          specified once. See Section 2.5 for details.\r\n\r\n1719  ***  USER WARNING MESSAGE 1719, PUNPRT REQUEST FOR PROBLEM **** IS OUT OF\r\n           SEQUENCE OR NOT ON UMF.\r\n\r\n          User's Master File Editor control cards must form an increasing\r\n          sequence. See Section 2.5 for details.\r\n\r\n1720  ***  SYSTEM FATAL MESSAGE 1720, UMFEDT UNABLE TO LOCATE BULK DATA ON NPTP.\r\n\r\n1721  ***  USER FATAL MESSAGE 1721, BAD USER MASTER FILE EDITOR DATA CARD.\r\n\r\n          See Section 2.5 for instructions for using the User's Master File\r\n          Editor.\r\n\r\n1722  ***  USER WARNING MESSAGE 1722, MISSING FINIS CARD. PROCESSING CONTINUING.\r\n\r\n1723  ***  Reserved for future implementation in the User's Master File\r\nEditor.\r\n\r\n1724  ***  Reserved for future implementation in the User's Master File\r\nEditor.\r\n\r\n1725  ***  Reserved for future implementation in the User's Master File\r\nEditor.\r\n\r\n1726  ***  Reserved for future implementation in the Preface.\r\n\r\n1727  ***  Reserved for future implementation in the Preface.\r\n\r\n1728  ***  Reserved for future implementation in the Preface.\r\n\r\n1729  ***  Reserved for future implementation in the Preface.\r\n\r\n1730  ***  Reserved for future implementation in the Preface.\r\n\r\n1731  ***  Reserved for future implementation in the Preface.\r\n\r\n1732  ***  Reserved for future implementation in the Preface.\r\n\r\n1733  ***  Reserved for future implementation in the Preface.\r\n\r\n1734  ***  Reserved for future implementation in the Preface.\r\n\r\n3735  ***  Reserved for future implementation in the Preface.\r\n\r\n1736  ***  Reserved for future implementation in the Preface.\r\n\r\n1737  ***  Reserved for future implementation in the Preface.\r\n\r\n1738  ***  USER FATAL MESSAGE 1738, UTILITY MODULE INPUT FIRST PARAMETER VALUE\r\n           *** OUT OF RANGE.\r\n\r\n          In the test problem generating version of utility module INPUT, the\r\n          first parameter value specifies the specific problem type as\r\n          follows:\r\n\r\n          1. Laplace circuit (an N x N array of scalar points connected by\r\n          scalar springs and optionally by scalar masses).\r\n          2. Rectangular frame made from BARS or RODS.\r\n          3. Rectangular plate made from QUAD1 elements.\r\n          4. Rectangular plate made from TRIA1 elements.\r\n          5. N-segment string modeled with scalar elements.\r\n          6. N-cell beam made from BAR elements.\r\n          7. N-order full matrix generator with optional load.\r\n          8. N-spoke wheel.\r\n\r\n1739  ***  SYSTEM FATAL MESSAGE 1739, UNABLE TO OPEN FILE\r\n\r\n          This message can occur if a required output file is purged in\r\n          utility module INPUT.\r\n\r\n1740  ***  SYSTEM FATAL MESSAGE 1740, EOF ENCOUNTERED.\r\n\r\n          An unexpected end-of-file has been encountered while reading an\r\n          input data block in utility module INPUT.\r\n\r\n1741  ***  SYSTEM FATAL MESSAGE 1741, EOR ENCOUNTERED.\r\n\r\n          An unexpected end-of-record indicator has been encountered while\r\n          reading an input data block in utility module INPUT.\r\n\r\n1742  ***  SYSTEM FATAL MESSAGE 1742, NO DATA PRESENT.\r\n\r\n          Utility module INPUT; input data block contains no data records.\r\n\r\n1743  ***  SYSTEM FATAL MESSAGE 1743, EOF FROM FWDREC.\r\n\r\n          Utility module INPUT encountered an end-of-file on an input data\r\n          block while attempting to read past the header record.\r\n\r\n1744  ***  USER FATAL MESSAGE 1744, DATA CARD(S) ******** GENERATED BY UTILITY\r\n           MODULE INPUT NOT ALLOWED IN BULK DATA.\r\n\r\n          Module is not capable of integrating same card type from two\r\n          sources.\r\n\r\n1745  ***  *************************\r\n\r\n          Message 1745 is reserved for utility module INPUT.\r\n\r\n=PAGE=\r\n6.4  FUNCTIONAL MODULE MESSAGES (2001 THROUGH 3000)\r\n\r\n2001  ***  USER FATAL MESSAGE 2001, SEQGP CARD REFERENCES UNDEFINED GRID POINT\r\n           ****.\r\n\r\n2002  ***  SYSTEM FATAL MESSAGE 2002, GRID POINT **** NOT IN EQEXIN.\r\n\r\n          This message indicates a program design error in GP1.\r\n\r\n2003  ***  USER FATAL MESSAGE 2003, COORDINATE SYSTEM **** REFERENCES UNDEFINED\r\n           GRID POINT ****.\r\n\r\n          Applies to CORD1j definitions.\r\n\r\n2004  ***  USER FATAL MESSAGE 2004, COORDINATE SYSTEM **** REFERENCES UNDEFINED\r\n           COORDINATE SYSTEM ****.\r\n\r\n          Applies to CORD2j definitions.\r\n\r\n2005  ***  SYSTEM FATAL MESSAGE 2005, INCONSISTENT COORDINATE SYSTEM DEFINITION.\r\n\r\n          At least one coordinate system is so defined that it cannot be\r\n          related to the basic coordinate system. See Section 4.21.7.4 of the\r\n          Programmer's Manual.\r\n\r\n2006  ***  USER FATAL MESSAGE 2006, INTERNAL GRID POINT **** REFERENCES\r\n           UNDEFINED COORDINATE SYSTEM\r\n\r\n          The grid point whose internal sequence number is printed above\r\n          references an undefined coordinate system in either field 3 or\r\n          field 7 of a GRID card.\r\n\r\n2007  ***  USER FATAL MESSAGE 2007, ELEMENT **** REFERENCES UNDEFINED GRID POINT\r\n           ****.\r\n\r\n2008  ***  USER FATAL MESSAGE 2008, LOAD SET **** REFERENCES UNDEFINED GRID\r\n           POINT ****.\r\n\r\n2009  ***  USER FATAL MESSAGE 2009, TEMP SET **** REFERENCES UNDEFINED GRID\r\n           POINT ****.\r\n\r\n2010  ***  USER FATAL MESSAGE 2010, ELEMENT **** REFERENCES UNDEFINED GRID POINT\r\n           ****.\r\n\r\n2011  ***  USER FATAL MESSAGE 2011, NO PROPERTY CARD FOR ELEMENT TYPE ****.\r\n\r\n2012  ***  USER FATAL MESSAGE 2012, GRID POINT **** SAME AS SCALAR POINT.\r\n\r\n          Identification numbers of grid and scalar points must be unique.\r\n\r\n2013  ***  USER WARNING MESSAGE 2013, NO STRUCTURAL ELEMENTS EXIST.\r\n\r\n          Model checked for structural elements.\r\n\r\n2014  ***  SYSTEM FATAL MESSAGE 2014, LOGIC ERROR IN ECPT CONSTRUCTION.\r\n\r\n          The spill logic in the construction of the skeleton (TA1B) has\r\n          failed. Problem should be referred to maintenance programming\r\n          staff. A temporary fix may be available if additional storage can\r\n          be provided to NASTRAN, for example, by increasing the region size\r\n          (IBM 360).\r\n\r\n2015  ***  USER WARNING MESSAGE 2015, EITHER NO ELEMENTS CONNECT INTERNAL GRID\r\n           POINT ******** OR IT IS CONNECTED TO A RIGID ELEMENT OR A GENERAL\r\n           ELEMENT.\r\n\r\n          The message is a warning only since the degrees of freedom\r\n          associated with the point may be removed by multipoint constraints\r\n          or in other ways. The internal identification number is formed by\r\n          assigning to each grid point and scalar point one of the integers\r\n          1, 2, --- according to its resequenced position. It may be\r\n          determined from data block EQEXIN via a DMAP TABPT instruction.\r\n\r\n2016  ***  USER INFORMATION MESSAGE 2016, GIVENS TIME ESTIMATE IS ********\r\n(1)        SECONDS. PROBLEM SIZE IS ********, SPILL WILL OCCUR FOR THIS CORE AT\r\n           A PROBLEM SIZE OF ********.\r\n\r\n2016  ***  USER FATAL MESSAGE 2016, NO MATERIAL PROPERTIES EXIST.\r\n(2)\r\n\r\n2017  ***  USER FATAL MESSAGE 2017, MATS1 CARD REFERENCES UNDEFINED MAT1 ****\r\n           CARD.\r\n\r\n          Check that all MATS1 cards reference MAT1 cards that exist in the\r\n          Bulk Data Deck.\r\n\r\n2018  ***  USER FATAL MESSAGE 2018, MATS2 CARD REFERENCES UNDEFINED MAT2 ****\r\n           CARD.\r\n\r\n          Check that all MATS2 cards reference MAT2 cards that exist in the\r\n          Bulk Data Deck.\r\n\r\n2019  ***  USER FATAL MESSAGE 2019, MATT1 CARD REFERENCES UNDEFINED MAT1 ****\r\n           CARD.\r\n\r\n          Check that all MATT1 cards reference MAT1 cards that exist in the\r\n          Bulk Data Deck.\r\n\r\n2020  ***  USER FATAL MESSAGE 2020, MATT2 CARD REFERENCES UNDEFINED MAT2 ****\r\n           CARD.\r\n\r\n          Check that all MATT2 cards reference MAT2 cards that exist in the\r\n          Bulk Data Deck.\r\n\r\n2021  ***  SYSTEM FATAL MESSAGE 2021, BAD GMMAT CALLING SEQUENCE.\r\n\r\n          The calling sequence of the subroutine which called either\r\n          subroutine GMMATD or GMMATS defined a nonconformable matrix\r\n          product. GMMATD and GMMATS examine the transpose flags in\r\n          combination with the orders of the matrices to make sure that a\r\n          conformable matrix product is defined by the input data. This test\r\n          clearly is made for purposes of calling routine checkout only. No\r\n          tests are made, nor can they be made, to ensure that the calling\r\n          routine has provided sufficient storage for arrays.\r\n\r\n2022  ***  SYSTEM FATAL MESSAGE 2022, SMA-B SCALAR POINT INSERTION LOGIC ERROR.\r\n\r\n          Probable error in creating the ECPT data block in module TA1. Use\r\n          the TABPT module to print ECPT.\r\n\r\n2023  ***  SYSTEM FATAL MESSAGE 2023, DETCK UNABLE TO FIND PIVOT POINT **** IN\r\n           GPCT.\r\n\r\n          Probable error in creating the ECPT data block in module TA1. Use\r\n          the TABPT module to print ECPT.\r\n\r\n2024  ***  USER FATAL MESSAGE 2024, OPERATION CODE ******** NOT DEFINED FOR\r\n           MODULE PARAM.\r\n\r\n          The use of V,N,SUB rather than C,N,SUB can cause this.\r\n\r\n2025  ***  USER FATAL MESSAGE 2025, UNDEFINED COORDINATE SYSTEM\r\n\r\n          The coordinate system identification number transmitted via ECPT(1)\r\n          could not be found in the CSTM array. Check coordinate system\r\n          numbers used on bulk data cards against those defined on CORD1C,\r\n          CORD1R, etc., bulk data cards to insure that there are no undefined\r\n          coordinate systems.\r\n\r\n2026  ***  USER FATAL MESSAGE 2026, ELEMENT **** GEOMETRY YIELDS UNREASONABLE\r\n           MATRIX.\r\n\r\n          Referenced element geometry and/or properties yields a numerical\r\n          result which causes an element stiffness or mass matrix to be\r\n          undefined. Possible causes include, but are not limited to, (1) the\r\n          length of a rod or bar is zero because the end points have the same\r\n          coordinates, (2) the sides of a triangle or quadrilateral are\r\n          collinear which leads to a zero cross product in defining an\r\n          element coordinate system, or (3) the bar orientation vector is\r\n          parallel to the bar axis. Check GRID bulk data cards defining\r\n          element end points for bad data.\r\n\r\n2027  ***  USER FATAL MESSAGE 2027, ELEMENT **** HAS INTERIOR ANGLE GREATER THAN\r\n           180 DEG. AT GRID POINT ****.\r\n\r\n          SHEAR or TWIST panel element with the referenced element number has\r\n          been defined with the four grid points out of the proper cyclical\r\n          order. See bulk data card definitions for CSHEAR and CTWIST cards.\r\n\r\n2028  ***  SYSTEM FATAL MESSAGE 2028, SMA3A ERROR NO. ****.\r\n\r\n          Internal logic error in subroutine SMA3A of module SMA3. Possible\r\n          error in generation of the GEI data block. Use the TABPT module to\r\n          print GEI.\r\n\r\n2029  ***  USER FATAL MESSAGE 2029, UNDEFINED TEMPERATURE SET ****.\r\n\r\n          The referenced temperature set had no default temperature defined.\r\n          Define a temperature or default temperature for each grid point in\r\n          the model.\r\n\r\n2030  ***  SYSTEM FATAL MESSAGE 2030, BAD GPTT.\r\n\r\n          The format of the GPTT data block is incorrect. Use the TABPT\r\n          module to print the GPTT data block.\r\n\r\n2031  ***  USER FATAL MESSAGE 2031, ELEMENT **** UNACCEPTABLE GEOMETRY.\r\n\r\n2032  ***  USER FATAL MESSAGE 2032, ELEMENT **** UNACCEPTABLE GEOMETRY.\r\n\r\n2033  ***  USER FATAL MESSAGE 2033, SINGULAR H-MATRIX FOR ELEMENT ****.\r\n\r\n2034  ***  SYSTEM FATAL MESSAGE 2034, ELEMENT **** SIL'S DO NOT MATCH PIVOT.\r\n\r\n          Possible error in generation of the ECPT data block. Use the TABPT\r\n          module to print ECPT.\r\n\r\n2035  ***  USER FATAL MESSAGE 2035, QUADRILATERAL **** INTERIOR ANGLE GREATER\r\n           THAN 180 DEG.\r\n\r\n2036  ***  USER FATAL MESSAGE 2036, SINGULAR MATRIX FOR ELEMENT ****.\r\n\r\n2037  ***  USER FATAL MESSAGE 2037, BAD ELEMENT **** GEOMETRY.\r\n\r\n2038  ***  SYSTEM FATAL MESSAGE 2038, SINGULAR MATRIX FOR ELEMENT ****.\r\n\r\n2039  ***  USER FATAL MESSAGE 2039, ZERO SLANT LENGTH FOR HARMONIC **** OF\r\n           CCONEAX ****.\r\n\r\n2040  ***  USER FATAL MESSAGE 2040, SINGULAR MATRIX FOR ELEMENT ****.\r\n\r\n2041  ***  USER FATAL MESSAGE 2041, A MATT1,MATT2,MATT3 OR MATS1 CARD REFERENCES\r\n           TABLE NUMBER **** WHICH IS NOT DEFINED ON A TABLEM1, TABLEM2,\r\n           TABLEM3, TABLEM4 OR TABLES1 CARD.\r\n\r\n          Ensure that all table identification numbers on MATT1, MATT2,\r\n          MATT3, or MATS1 cards reference tables which exist in the Bulk Data\r\n          Deck.\r\n\r\n2042  ***  USER FATAL MESSAGE 2042, MISSING MATERIAL TABLE **** FOR ELEMENT\r\n           ****.\r\n\r\n          The referenced material table identification number is missing.\r\n          Check to see that all element property bulk data cards (for\r\n          example, PBAR, PROD) reference material card identification numbers\r\n          for material property cards that exist in the Bulk Data Deck.\r\n\r\n2043  ***  USER WARNING MESSAGE 2043, OFP HAS INSUFFICIENT CORE FOR ONE GINO\r\n(1)        BUFFER **** OFP NOT EXECUTED.\r\n\r\n2043  ***  USER FATAL MESSAGE 2043, MISSING MATERIAL TABLE ********.\r\n(2)\r\n\r\n2044  ***  USER FATAL MESSAGE 2044, UNDEFINED TEMPERATURE SET ****.\r\n\r\n          The referenced temperature set was selected in the Case Control\r\n          Deck but not defined in the Bulk Data Deck.\r\n\r\n2045  ***  USER FATAL MESSAGE 2045, TEMPERATURE UNDEFINED AT GRID POINT WITH\r\n           INTERNAL INDEX ****.\r\n\r\n          Temperatures must be defined at all grid points in a selected\r\n          temperature set. The grid point whose internal index was printed\r\n          had no temperature defined and a default temperature was not\r\n          supplied for the selected temperature set.\r\n\r\n2046  ***  USER FATAL MESSAGE 2046, UNDEFINED ELEMENT DEFORMATION SET ****.\r\n\r\n2047  ***  USER FATAL MESSAGE 2047, UNDEFINED MULTIPOINT CONSTRAINT SET ****.\r\n\r\n          An MPC set selected in the Case Control Deck could not be found on\r\n          either an MPC or MPCADD card or a set referenced on a MPCADD card\r\n          could not be found on an MPC card.\r\n\r\n2048  ***  USER FATAL MESSAGE 2048, UNDEFINED GRID POINT **** IN MULTI-POINT\r\n           CONSTRAINT SET ****.\r\n\r\n2049  ***  USER FATAL MESSAGE 2049, UNDEFINED GRID POINT **** HAS AN OMITTED\r\n           COORDINATE.\r\n\r\n          An OMIT or OMIT1 card references a grid point which has not been\r\n          defined.\r\n\r\n2050  ***  USER FATAL MESSAGE 2050, UNDEFINED GRID POINT **** HAS A SUPPORT\r\n           COORDINATE.\r\n\r\n          A SUPORT card references a grid point which has not been defined.\r\n\r\n2051  ***  USER FATAL MESSAGE 2051, UNDEFINED GRID POINT **** IN SINGLE-POINT\r\n           CONSTRAINT SET ****.\r\n\r\n          An SPC1 card in the selected SPC set references a grid point which\r\n          has not been defined.\r\n\r\n2052  ***  USER FATAL MESSAGE 2052, UNDEFINED GRID POINT **** IN SINGLE-POINT\r\n           CONSTRAINT SET ****.\r\n\r\n          An SPC card in the selected SPC set references a grid point which\r\n          has not been defined.\r\n\r\n2053  ***  USER FATAL MESSAGE 2053, UNDEFINED SINGLE-POINT CONSTRAINT SET ****.\r\n\r\n          An SPC set selected in the Case Control Deck could not be found on\r\n          either an SPCADD, SPC, or SPC1 card, or a set referenced on an\r\n          SPCADD card could not be found on either an SPC or SPC1 card.\r\n\r\n2054  ***  USER FATAL MESSAGE 2054, SUPER ELEMENT **** REFERENCES UNDEFINED\r\n           SIMPLE ELEMENT ****.\r\n\r\n2055  ***  SYSTEM WARNING MESSAGE 2055.\r\n\r\n2056  ***  USER FATAL MESSAGE 2056, UNDEFINED SUPER ELEMENT **** PROPERTIES.\r\n\r\n2057  ***  USER FATAL MESSAGE 2057, IRRATIONAL SUPER ELEMENT **** TOPOLOGY.\r\n\r\n2058  ***  USER WARNING MESSAGE 2058, ELEMENT ******** CONTRIBUTES TO THE\r\n           DAMPING MATRIX WHICH IS PURGED. IT WILL BE IGNORED.\r\n\r\n2059  ***  USER FATAL MESSAGE 2059, UNDEFINED GRID POINT **** ON  SE--BFE FOR\r\n           SUPER ELEMENT ****.\r\n\r\n2060  ***  USER FATAL MESSAGE 2060, UNDEFINED GRID POINT **** ON QDSEP CARD FOR\r\n           SUPER ELEMENT ****.\r\n\r\n2061  ***  USER FATAL MESSAGE 2061, UNDEFINED GRID POINT **** ON GENERAL ELEMENT\r\n           ****.\r\n\r\n2062  ***  USER FATAL MESSAGE 2062, UNDEFINED SUPER ELEMENT PROPERTY **** FOR\r\n           SUPER ELEMENT ****.\r\n\r\n2063  ***  SYSTEM FATAL MESSAGE 2063, TA1C LOGIC ERROR. GENERAL ELEMENT DATA\r\n           COULD NOT BE FOUND IN THE ECT DATA BLOCK WHEN TRAILER LIST INDICATED\r\n           IT WAS PRESENT. REFER PROBLEM TO MAINTENANCE PROGRAMMING STAFF.\r\n\r\n2064  ***  USER FATAL MESSAGE 2064, UNDEFINED EXTRA POINT **** REFERENCED ON\r\n           SEQEP CARD.\r\n\r\n2065  ***  USER FATAL MESSAGE 2065, UNDEFINED GRID POINT **** ON DMIG CARD.\r\n\r\n2066  ***  USER FATAL MESSAGE 2066, UNDEFINED GRID POINT **** ON RLOAD- OR\r\n           TLOAD- CARD.\r\n\r\n2067  ***  USER FATAL MESSAGE 2067, UNDEFINED GRID POINT ******** IN NONLINEAR\r\n           (NOLINi) LOAD SET ********.\r\n\r\n2068  ***  USER FATAL MESSAGE 2068, UNDEFINED GRID POINT **** IN TRANSFER\r\n           FUNCTION SET ****.\r\n\r\n2069  ***  USER FATAL MESSAGE 2069, UNDEFINED GRID POINT **** IN TRANSIENT\r\n           INITIAL CONDITION SET ****.\r\n\r\n2070  ***  USER FATAL MESSAGE 2070, REQUESTED DMIG MATRIX **** IS UNDEFINED.\r\n\r\n2071  ***  USER FATAL MESSAGE 2071, DYNAMIC LOAD SET ******** REFERENCES\r\n           UNDEFINED ******** SET ********.\r\n\r\n          This message is issued when DAREA, DELAY, or DPHASE set IDs are\r\n          referenced on a TLOADi or RLOADi card but are not defined.\r\n\r\n2072  ***  SYSTEM WARNING MESSAGE 2072, CARD TYPE *** NOT FOUND ON DATA BLOCK.\r\n\r\n          This warning message is issued when the trailer bit for the card\r\n          type is set to 1 but the corresponding record is not on the data\r\n          block.\r\n\r\n2074  ***  USER FATAL MESSAGE 2074, UNDEFINED TRANSFER FUNCTION SET ****.\r\n\r\n2075  ***  USER FATAL MESSAGE 2075, IMPROPER KEYWORD ******** FOR APPROACH\r\n           PARAMETER IN DMAP INSTRUCTION.\r\n\r\n2076  ***  USER WARNING MESSAGE 2076, SDR2 OUTPUT DATA BLOCK NO. 1 IS PURGED.\r\n\r\n2077  ***  USER WARNING MESSAGE 2077, SDR2 OUTPUT DATA BLOCK NO. 2 IS PURGED.\r\n\r\n2078  ***  USER WARNING MESSAGE 2078, SDR2 OUTPUT DATA BLOCK NO. 3 IS PURGED.\r\n\r\n2079  ***  USER WARNING MESSAGE 2079, SDR2 FINDS THE -EDT-, -EST-, OR -GPTT-\r\n           PURGED OR INADEQUATE AND IS THUS NOT PROCESSING ANY REQUESTS FOR\r\n           STRESSES OR FORCES.\r\n\r\n2080  ***  USER WARNING MESSAGE 2080, SDR2 OUTPUT DATA BLOCK NO. 6 IS PURGED.\r\n\r\n2081  ***  USER FATAL MESSAGE 2081, DIFFERENTIAL STIFFNESS CAPABILITY NOT\r\n           DEFINED FOR ANY OF THE ELEMENT TYPES IN THE PROBLEM.\r\n\r\n          Differential stiffness is not defined for all structural elements.\r\n          Only the following elements are defined for differential stiffness\r\n          calculations: ROD, TUBE, SHEAR (but not TWIST) panels, triangular\r\n          and quadrilateral membranes (TRMEM, TRIA2, QDMEM, QUAD2), and BAR.\r\n          The combination two-dimensional elements, TRIA1 and QUAD1, are\r\n          defined only if their membrane thickness is nonzero. You have not\r\n          included any of these elements in his model and therefore a null\r\n          differential stiffness matrix was generated.\r\n\r\n2083  ***  USER FATAL MESSAGE 2083, NULL DISPLACEMENT VECTOR.\r\n\r\n          The displacement vector for the linear solution part of a static\r\n          analysis with differential stiffness problem, or the incremental\r\n          displacement vector in a piecewise linear analysis rigid format\r\n          problem, is the zero vector. Check loading conditions.\r\n\r\n2084  ***  SYSTEM FATAL MESSAGE 2084, DSMG2 LOGIC ERROR ****.\r\n\r\n          Incompatible input and output pairs in the DMAP calling sequence to\r\n          module DSMG2. See the module description for DSMG2 in the\r\n          Programmer's Manual.\r\n\r\n2085  ***  USER INFORMATION MESSAGE 2085, **** SPILL, NPVT ****.\r\n\r\n          During processing of the ECPT data block in module ****, so many\r\n          elements were attached to the referenced pivot point (NPVT) that\r\n          module spill logic was initiated.\r\n\r\n2086  ***  USER INFORMATION 2086, SMA2 SPILL, NPVT ****.\r\n\r\n          See explanation for Message 2085.\r\n\r\n2087  ***  SYSTEM FATAL MESSAGE 2087, ECPT CONTAINS BAD DATA.\r\n\r\n          Use the TABPT module to print the ECPT data block.\r\n\r\n2088  ***  USER FATAL MESSAGE 2088, DUPLICATE TABLE ID ****.\r\n\r\n          All tables must have unique numbers. Check for uniqueness.\r\n\r\n2089  ***  USER FATAL MESSAGE 2089, TABLE **** UNDEFINED.\r\n\r\n          The table number in the list of table numbers input to subroutine\r\n          PRETAB via argument 7 was not found after reading the DIT data\r\n          block. Check list of tables in the Bulk Data Deck.\r\n\r\n2090  ***  SYSTEM FATAL MESSAGE 2090, TABLE DICTIONARY ENTRY **** MISSING.\r\n\r\n          Logic error in subroutine PRETAB, or open core used by PRETAB has\r\n          been destroyed.\r\n\r\n2091  ***  SYSTEM FATAL MESSAGE 2091, PLA3, BAD ESTNL EL ID ****.\r\n\r\n          ESTNL data block is not in expected format. Use TABPT module to\r\n          print the ESTNL data block.\r\n\r\n2092  ***  SYSTEM WARNING MESSAGE 2092, SDR2 FINDS A SYMMETRY SEQUENCE LENGTH =\r\n           **** AND AN INSUFFICIENT NUMBER OF VECTORS AVAILABLE = **** WHILE\r\n           ATTEMPTING TO COMPUTE STRESSES AND FORCES. ALL FURTHER STRESS AND\r\n           FORCE COMPUTATION TERMINATED.\r\n\r\n2093  ***  USER FATAL MESSAGE 2093, NOLIN CARD FROM NOLIN SET **** REFERENCES\r\n           GRID POINT **** UD SET.\r\n\r\n2094  ***  USER WARNING MESSAGE 2094, SUBROUTINE TABFMT, KEYNAME ******** NOT IN\r\n           LIST OF AVAILABLE KEYNAMES. *** LIST OF RECOGNIZED KEYNAMES FOLLOWS.\r\n\r\n          The TABPRT module can only be used to print certain table data\r\n          blocks. For table data blocks not appearing in the list, use the\r\n          TABPT Module.\r\n\r\n2095  ***  USER WARNING MESSAGE 2095, SUBROUTINE TABFMT, PURGED INPUT.\r\n\r\n2096  ***  USER WARNING MESSAGE 2096, SUBROUTINE TABFMT, EOF ENCOUNTERED.\r\n\r\n2097  ***  USER WARNING MESSAGE 2097, SUBROUTINE TABFMT, EOR ENCOUNTERED.\r\n\r\n2098  ***  USER WARNING MESSAGE 2098, SUBROUTINE TABFMT, INSUFFICIENT CORE.\r\n\r\n2099  ***  USER WARNING MESSAGE 2099, SUBROUTINE TABFMT, KF ********.\r\n\r\n2100  ***  USER FATAL MESSAGE 2100, TEMPERATURE SPECIFIED AS ******** AND\r\n           ******** FOR GRID ********.\r\n\r\n          Conflicting data has been supplied to specify the temperatures at a\r\n          grid point.\r\n\r\n2101A ***  USER FATAL MESSAGE 2101A, GRID POINT **** COMPONENT *** ILLEGALLY\r\n           DEFINED IN SETS ****.\r\n\r\n          The above grid point and component has been defined in each of the\r\n          above dependent subsets. A point may belong to at most one\r\n          dependent subset.\r\n\r\n2101B ***  USER FATAL MESSAGE 21O1B, SCALAR POINT **** ILLEGALLY DEFINED IN SETS\r\n           ****.\r\n\r\n2102  ***  USER WARNING MESSAGE 2102, LEFT-HAND MATRIX ROW POSITION **** OUT OF\r\n           RANGE - IGNORED.\r\n\r\n          A term in the A matrix whose row position is larger than the stated\r\n          dimension was detected and ignored.\r\n\r\n2103  ***  SYSTEM FATAL MESSAGE 2103, SUBROUTINE MAT WAS CALLED WITH INFLAG=2,\r\n           THE SINE OF ANGLE X, MATERIAL ORIENTATION ANGLE, NONZERO, BUT\r\n           SIN(X)**2+COS(X)**2 DIFFERED FROM 1 IN ABSOLUTE VALUE BY MORE THAN\r\n           .0001.\r\n\r\n          A check is made in MAT to insure that ABS ( SIN ( THETA ) **2 + COS\r\n          ( THETA ) **2 - 1.0O ) .LE. .0001 when INFLAG = 2. The calling\r\n          routine did not set SINTH and COSTH cells in /MATIN/ properly.\r\n\r\n2104  ***  USER FATAL MESSAGE 2104, UNDEFINED COORDINATE SYSTEM ****.\r\n\r\n          See the explanation for Message 2025.\r\n\r\n2105  ***  USER FATAL MESSAGE 2105, PLOAD2 CARD FROM LOAD SET **** REFERENCES\r\n           MISSING OR NON-2-D ELEMENT ****.\r\n\r\n          PLOAD2 cards must reference two-dimensional elements.\r\n\r\n2106  ***  USER FATAL MESSAGE 2106, LOAD CARD DEFINES NONUNIQUE LOAD SET ****.\r\n\r\n2107  ***  USER FATAL MESSAGE 2107, EIG- CARD FROM SET **** REFERENCES DEPENDENT\r\n           COORDINATE OR GRID POINT ****.\r\n\r\n          When the point option is used on an EIGB, EIGC, or EIGR card, the\r\n          referenced point and component must be in the analysis set for use\r\n          in normalization.\r\n\r\n2109  ***  USER FATAL MESSAGE 2109, NO GRID, SCALAR OR EXTRA POINTS DEFINED.\r\n\r\n2110  ***  USER WARNING MESSAGE 2110, INSUFFICIENT CORE TO HOLD CONTENTS OF GINO\r\n           FILE *** FURTHER PROCESSING OF THIS DATA BLOCK IS ABANDONED.\r\n\r\n2111  ***  USER WARNING MESSAGE 2111, BAR **** COUPLED BENDING INERTIA SET TO\r\n           0.0 IN DIFFERENTIAL STIFFNESS.\r\n\r\n          The coupled bending inertia term on a PBAR card, if nonzero, is set\r\n          to zero in the differential stiffness routine for the BAR.\r\n\r\n2112  ***  SYSTEM FATAL MESSAGE 2112, UNDEFINED TABLE ****.\r\n\r\n          The referenced table number could not be found in core.\r\n\r\n2113  ***  USER FATAL MESSAGE 2113, MATERIAL ****, A NON-MAT1 TYPE, IS NOT\r\n           ALLOWED TO BE STRESS-DEPENDENT.\r\n\r\n          Only MAT1 material cards may be present in a piecewise linear\r\n          analysis problem.\r\n\r\n2114  ***  USER FATAL MESSAGE 2114, MATT3 CARD REFERENCES UNDEFINED MAT3 ****\r\n           CARD.\r\n\r\n          Check that all MATT3 cards reference MAT3 cards that exist in the\r\n          Bulk Data Deck. This can also happen if ID noted by **** could not\r\n          be found on MAT1 card (see Message 2042).\r\n\r\n2115  ***  USER FATAL MESSAGE 2115, TABLE **** (TYPE ****) ILLEGAL WITH STRESS-\r\n           DEPENDENT MATERIAL.\r\n\r\n          Only TABLES1 cards may be used to define stress-strain curves for\r\n          use in piecewise linear analysis.\r\n\r\n2116  ***  SYSTEM FATAL MESSAGE 2116, MATID **** TABLEID ****.\r\n\r\n          The referenced material table identification number could not be\r\n          found among the set of all MAT1 cards in core.\r\n\r\n2117  ***  USER FATAL MESSAGE 2117, TEMPERATURE DEPENDENT MATERIAL PROPERTIES\r\n           ARE NOT PERMISSIBLE IN A PIECEWISE LINEAR ANALYSIS PROBLEM.\r\n           TEMPERATURE SET = ****.\r\n\r\n          Redefine your problem without temperature dependent material\r\n          properties.\r\n\r\n2118  ***  USER INFORMATION MESSAGE 2118, SUBROUTINE GP4PRT, - DIAG 21 SET-DOF\r\n           VS. DISP SETS FOLLOWS.\r\n\r\n2119  ***  USER INFORMATION MESSAGE 2119, SUBROUTINE GP4PRT, - DIAG 22 SET-DISP\r\n           SETS VS. DOF FOLLOWS.\r\n\r\n2120  ***  USER FATAL MESSAGE 2120, MODULE VEC - BOTH SUBSET BITS ARE NON-ZERO.\r\n           I = ********.\r\n\r\n2121  ***  USER FATAL MESSAGE 2121, MODULE VEC - BOTH SUBSET BITS ARE ZERO. I =\r\n           ********.\r\n\r\n2122  ***  USER FATAL MESSAGE 2122, MODULE VEC - SET X BIT IS ZERO BUT SUBSET XO\r\n           BIT IS NOT. I = ********.\r\n\r\n2123  ***  USER FATAL MESSAGE 2123, MODULE VEC - SET X BIT IS ZERO BUT SUBSET X1\r\n           BIT IS NOT. I= ********.\r\n\r\n2124  ***  USER WARNING MESSAGE 2124, MODULE VEC - NR=0, OUTPUT WILL BE PURGED.\r\n\r\n2125  ***  USER WARNING MESSAGE 2125, MODULE VEC - NZ=0, OUTPUT WILL BE PURGED.\r\n\r\n2126  ***  USER FATAL MESSAGE 2126, UNDEFINED MATERIAL FOR ELEMENT ********.\r\n\r\n2127  ***  SYSTEM FATAL MESSAGE 2127, PLA2 INPUT DATA BLOCK NO. **** IS PURGED.\r\n\r\n          Data blocks DELTAUGV and DELTAPG cannot be purged. See module\r\n          description for PLA2 in Section 4 of the Programmer's Manual.\r\n\r\n2128  ***  SYSTEM FATAL MESSAGE 2128, PLA2 OUTPUT DATA BLOCK NO. **** IS PURGED.\r\n\r\n          Data blocks UGV1 and PGV1 cannot be purged. See module description\r\n          for PLA2 in Section 4 of the Programmer's Manual.\r\n\r\n2129  ***  SYSTEM FATAL MESSAGE 2129, PLA2, ZERO VECTOR ON APPENDED DATA BLOCK\r\n           NO. ****.\r\n\r\n          Zero displacement vector found on UGV1 data block output from PLA2.\r\n          Possible system failure.\r\n\r\n2130  ***  USER FATAL MESSAGE 2130, ZERO INCREMENTAL DISPLACEMENT VECTOR NOT\r\n           ADMISSIBLE AS INPUT TO MODULE PLA2.\r\n\r\n          See discussion of the Piecewise Linear Analysis rigid format (DISP\r\n          Rigid Format 6) in Volume II, Section 2.6.\r\n\r\n2131  ***  USER FATAL MESSAGE  2131, NON-SCALAR ELEMENT *** REFERENCES A SCALAR\r\n           POINT.\r\n\r\n          An element which must be attached to a geometric grid point has\r\n          been attached to a scalar point. No geometry data can be inferred.\r\n\r\n2132  ***  USER FATAL MESSAGE 2132, NON-ZERO SINGLE POINT CONSTRAINT VALUE\r\n           SPECIFIED BUT DATA BLOCK YS IS PURGED.\r\n\r\n          Many rigid formats do not support constrained displacements\r\n          (especially dynamic solutions). An attempt to specify a constrained\r\n          displacement in these cases results in this message.\r\n\r\n2133  ***  USER FATAL MESSAGE 2133, INITIAL CONDITION IN SET **** SPECIFIED FOR\r\n           POINT NOT IN ANALYSIS SET.\r\n\r\n          Initial conditions can only be specified for analysis set points.\r\n          Therefore the point/component mentioned on TIC cards must belong to\r\n          the D or H sets.\r\n\r\n2134  ***  USER FATAL MESSAGE 2134, LOAD SET *** DEFINED FOR BOTH GRAVITY AND\r\n           NON-GRAVITY LOADS.\r\n\r\n          The same load set identification number cannot appear on both a\r\n          GRAV card and another loading card such as FORCE or MOMENT. To\r\n          apply both a gravity load and a concentrated load simultaneously,\r\n          the LOAD card must be used in the Bulk Data Deck.\r\n\r\n2135  ***  USER FATAL MESSAGE 2135, DLOAD CARD *** HAS A DUPLICATE SET ID FOR\r\n           SET ID ***.\r\n\r\n          The Li set IDs on a DLOAD card are not unique. See the DLOAD card\r\n          description in Section 2.4.\r\n\r\n2136  ***  USER FATAL MESSAGE 2136, SET ID *** HAS BEEN DUPLICATED ON A DLOAD,\r\n           RLOAD1,2 OR TLOAD1,2 CARD.\r\n\r\n          All dynamic load set IDs must be unique.\r\n\r\n2137  ***  USER FATAL MESSAGE 2137, PROGRAM RESTRICTION FOR MODULE SSG1 - ONLY\r\n           360 LOAD SET ID-S ALLOWED. DATA CONTAINS **** LOAD SET ID-S.\r\n\r\n          Reduce the number of load set IDs.\r\n\r\n2138  ***  USER FATAL MESSAGE 2138, ELEMENT IDENTIFICATION NUMBER **** IS TOO\r\n           LARGE.\r\n\r\n          Element identification numbers (on connection cards) must be less\r\n          than 16,777,215.\r\n\r\n2139  ***  USER FATAL MESSAGE 2139, ELEMENT **** IN DEFORM SET **** IS\r\n           UNDEFINED.\r\n\r\n          A selected element deformation set includes an element twice,\r\n          includes a non-existent element, or includes a non-one-dimensional\r\n          element.\r\n\r\n2140  ***  USER FATAL MESSAGE 2140, GRID POINT OR SCALAR POINT ID *** IS TOO\r\n           LARGE.\r\n\r\n          Program restriction on the size of integer numbers. A card defining\r\n          a grid point or scalar point has a number larger than 2,000,000.\r\n\r\n2141  ***  USER FATAL MESSAGE 2141, MODULE VEC - EOF ENCOUNTERED WHILE READING\r\n           GINO FILE **** DATA BLOCK ********.\r\n\r\n2142  ***  USER FATAL MESSAGE 2142, INSUFFICIENT CORE FOR MODULE VEC. AVAILABLE\r\n           CORE = ******** WORDS. ADDITIONAL CORE NEEDED = ******** WORDS.\r\n\r\n2143  ***  USER FATAL MESSAGE 2143, MODULE VEC UNABLE TO IDENTIFY SET OR SUBSET\r\n           DESCRIPTOR ********.\r\n\r\n2145  ***  USER FATAL MESSAGE 2145, ******** FATAL MESSAGES HAVE BEEN GENERATED\r\n           IN SUBROUTINE VEC. ONLY THE FIRST **** HAVE BEEN PRINTED.\r\n\r\n2146  ***  USER FATAL MESSAGE 2146, BOTH OF THE SECOND AND THIRD VEC PARAMETERS\r\n           REQUEST COMPLEMENT.\r\n\r\n2147  ***  SYSTEM FATAL MESSAGE 2147, ILLEGAL ELEMENT TYPE = ********\r\n           ENCOUNTERED BY DSMG1 MODULE.\r\n\r\n2149  ***  SYSTEM FATAL MESSAGE 2149, SUBROUTINE ****. FIRST ELEMENT OF A COLUMN\r\n           OF LOWER TRIANGULAR MATRIX IS NOT THE DIAGONAL ELEMENT.\r\n\r\n2150  ***  USER FATAL MESSAGE 2150, ILLEGAL VALUE FOR FOURTH PARAMETER =\r\n           ********.\r\n\r\n2151  ***  USER WARNING MESSAGE 2151, -PLAARY- ARRAY IS SMALLER THAN MAXIMUM\r\n           NUMBER OF ELEMENT TYPES.\r\n\r\n2152  ***  USER FATAL MESSAGE 2152, GRID POINT ******** COMPONENT ** DUPLICATELY\r\n           DEFINED IN THE **** SET.\r\n\r\n2153  ***  USER FATAL MESSAGE 2153, SCALAR POINT ******** DUPLICATELY DEFINED IN\r\n           THE **** SET.\r\n\r\n2154  ***  USER WARNING MESSAGE 2154, ZERO AREA OR ILLEGAL CONNECTION FOR HBDY\r\n           ELEMENT NUMBER ********.\r\n\r\n2155  ***  USER WARNING MESSAGE 2155, MAT4 AND MAT5 MATERIAL DATA CARDS HAVE\r\n           SAME ID = ************** MAT4 DATA WILL BE SUPPLIED WHEN CALLED FOR\r\n           THIS ID.\r\n\r\n2156  ***  SYSTEM FATAL MESSAGE 2156, ILLEGAL INFLAG = ************** RECEIVED\r\n           BY HMAT.\r\n\r\n2157  ***  USER FATAL MESSAGE 2157, MATERIAL ID = ************** DOES NOT APPEAR\r\n           ON ANY MAT4 OR MAT5 MATERIAL DATA CARD.\r\n\r\n2158  ***  SYSTEM WARNING MESSAGE 2158, A TRAPRG ELEMENT = ************** DOES\r\n           NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4.\r\n\r\n2159  ***  USER FATAL MESSAGE 2159, TRIARG OR TRAPRG ELEMENT = **************\r\n           POSSESSES ILLEGAL GEOMETRY.\r\n\r\n2160  ***  USER FATAL MESSAGE 2160, BAD GEOMETRY ON ZERO COEFFICIENT FOR SLOT\r\n           ELEMENT NUMBER **************.\r\n\r\n2161  ***  SYSTEM WARNING MESSAGE 2161, PARTITION FILE, **** IS OF SIZE\r\n           ********** ROWS BY ********** COLS. PARTITIONING VECTORS INDICATE\r\n           THAT THIS PARTITION SHOULD BE OF SIZE ********** ROWS BY **********\r\n           COLUMNS FOR A SUCCESSFUL MERGE.\r\n\r\n2162  ***  SYSTEM WARNING MESSAGE 2162, THE FORM PARAMETER AS GIVEN TO THE MERGE\r\n           MODULE IS INCONSISTENT WITH THE SIZE OF THE MERGED MATRIX, HOWEVER IT\r\n           HAS BEEN USED. FORM = **********, SIZE = ********** ROWS BY\r\n           ********** COLUMNS.\r\n\r\n2163  ***  SYSTEM WARNING MESSAGE 2163, REQUESTED VALUE OF **** ******** ***\r\n           USED BY ********. LOGICAL CHOICE IS ********.\r\n\r\n2165  ***  USER FATAL MESSAGE 2165, ILLEGAL GEOMETRY OR ZERO COEFFICIENT FOR\r\n           SLOT ELEMENT NUMBER **************.\r\n\r\n2166  ***  SYSTEM WARNING MESSAGE 2166, MATRIX TO BE PARTITIONED IS OF SIZE\r\n           ********** ROWS BY ********** COLUMNS. ROW PARTITION SIZE IS\r\n           ********** COLUMN PARTITION SIZE IS ********** (INCOMPATIBLE).\r\n\r\n2168  ***  SYSTEM WARNING MESSAGE 2168, THE FORM PARAMETER AS GIVEN TO THE\r\n           PARTITIONING MODULE FOR SUB-PARTITION ******** IS INCONSISTENT WITH\r\n           ITS SIZE.  FORM =  **********, SIZE = ********** ROWS BY **********\r\n           COLUMNS.\r\n\r\n2170  ***  SYSTEM FATAL MESSAGE 2170, BOTH THE ROW AND COLUMN PARTITIONING\r\n           VECTORS ARE PURGED AND ONLY ONE MAY BE.\r\n\r\n2171  ***  SYSTEM WARNING MESSAGE 2171, SYM FLAG INDICATES TO THE PARTITION OR\r\n           MERGE MODULE THAT A SYMMETRIC MATRIX IS TO BE OUTPUT. THE\r\n           PARTITIONING VECTORS ******** HOWEVER DO NOT CONTAIN AN IDENTICAL\r\n           NUMBER OF ZEROS AND NON-ZEROS.\r\n\r\n2172  ***  SYSTEM WARNING MESSAGE 2172, ROW AND COLUMN PARTITIONING VECTORS DO\r\n           NOT HAVE IDENTICAL ORDERING OF ZERO AND NON-ZERO ELEMENTS, AND SYM\r\n           FLAG INDICATES THAT A SYMMETRIC PARTITION OR MERGE IS TO BE\r\n           PERFORMED.\r\n\r\n2173  ***  SYSTEM WARNING MESSAGE 2173, PARTITIONING VECTOR FILE **** CONTAINS\r\n           ********** COLUMNS. ONLY THE FIRST COLUMN IS BEING USED.\r\n\r\n2174  ***  SYSTEM WARNING MESSAGE 2174, PARTITIONING VECTOR ON FILE **** IS NOT\r\n           REAL-SINGLE OR REAL-DOUBLE PRECISION.\r\n\r\n2175  ***  SYSTEM FATAL MESSAGE 2175, THE RON POSITION OF AN ELEMENT OF A COLUMN\r\n           ON FILE **** IS GREATER THAN NUMBER OF ROWS SPECIFIED BY TRAILER.\r\n\r\n2176  ***  SYSTEM FATAL MESSAGE 2176, FILE **** EXISTS BUT IS EMPTY.\r\n\r\n2177  ***  USER INFORMATION MESSAGE 2177, SPILL WILL OCCUR IN UNSYMMETRIC\r\n           DECOMPOSITION. ADDITIONAL WORDS NEEDED TO STAY IN CORE.\r\n\r\n2178  ***  SYSTEM FATAL MESSAGE 2178, GINO REFERENCE NAMES, IMPROPER FOR\r\n           SUBROUTINE FILSWI.\r\n\r\n2179  ***  SYSTEM FATAL MESSAGE 2179, ERROR DETECTED IN FUNCTION FORFIL ****,\r\n           **** NOT IN FIST.\r\n\r\n2180  ***  USER WARNING MESSAGE 2180, SYMMETRIC DECOMPOSITION OF A MATRIX WHOSE\r\n           FORM IS SQUARE (BUT NOT SYMMETRIC) WILL BE ATTEMPTED.\r\n\r\n2182  ***  USER WARNING MESSAGE 2182, SUBROUTINE ******** IS DUMMY. ONLY ONE OF\r\n           THESE MESSAGES WILL APPEAR PER OVERLAY OF THIS DECK.\r\n\r\n2183  ***  USER WARNING MESSAGE 2183, SYMMETRIC DECOMPOSITION OF A MATRIX WHOSE\r\n           FORM IS SQUARE (BUT NOT SYMMETRIC) WILL BE ATTEMPTED.\r\n\r\n2184  ***  SYSTEM WARNING MESSAGE 2184, STRESS OR FORCE REQUESTS FOR ELEMENT\r\n           TYPE = ************** WILL NOT BE HONORED AS THIS ELEMENT IS NOT A\r\n           STRUCTURAL ELEMENT.\r\n\r\n          Stress and force requests for fluid, mass, damping, PLOTEL, and\r\n          heat boundary elements are automatically ignored.\r\n\r\n2187  ***  USER FATAL MESSAGE 2187, INSUFFICIENT WORKING CORE TO HOLD FORTRAN\r\n           LOGICAL RECORD. LENGTH OF WORKING CORE = **********. LENGTH OF\r\n           FORTRAN LOGICAL RECORD = **********.\r\n\r\n2190  ***  SYSTEM FATAL MESSAGE 2190, ILLEGAL VALUE FOR KEY =  **********.\r\n           EXPECTED VALUE = **********.\r\n\r\n2192  ***  USER FATAL MESSAGE 2192, UNDEFINED GRID POINT ******** IN RIGD*\r\n           ELEMENT ********.\r\n\r\n2193  ***  USER FATAL MESSAGE 2193, A REDUNDANT SET OF RIGID BODY MODES WAS\r\n           SPECIFIED FOR THE GENERAL ELEMENT.\r\n\r\n          Only a non-redundant list of rigid body modes is allowed to appear\r\n          in the ud set when the S matrix is to be internally calculated in\r\n          subroutine TA1CA.\r\n\r\n2194  ***  USER FATAL MESSAGE 2194, A MATRIX D IS SINGULAR IN SUBROUTINE TA1CA.\r\n\r\n          While attempting to calculate the [S] matrix for a general element\r\n          in TA1CA, it was discovered that the matrix Dd which relates {ub}\r\n          to {ud} was singular and could not be inverted.\r\n\r\n2195  ***  USER WARNING MESSAGE 2195, ILLEGAL VALUE FOR P4 = ******.\r\n\r\n2196  ***  USER WARNING MESSAGE 2196, DUMMY SUBROUTINE TIMTS3.\r\n                                      DUMMY SUBROUTINE TIMTS4.\r\n                                      DUMMY SUBROUTINE TIMTS5.\r\n\r\n2197  ***  SYSTEM FATAL MESSAGE 2197, ABORT CALLED DURING TIME TEST OF ********.\r\n\r\n2198  ***  SYSTEM FATAL MESSAGE 2198, INPUT DATA BLOCK, ******** HAS BEEN PURGED\r\n\r\n2199  ***  SYSTEM FATAL MESSAGE 2199, SUMMARY/ ONE OR MORE OF THE ABOVE FATAL\r\n           ERRORS WAS ENCOUNTERED IN SUBROUTINE **********.\r\n\r\n2200  ***  USER FATAL MESSAGE 2200, INCONSISTENT RIGID BODY SYSTEM.\r\n\r\n2201  ***  USER FATAL MESSAGE 2201, ELEMENT TYPE **** NO LONGER SUPPORTED BY\r\n           SMA1 MODULE. USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION.\r\n\r\n2202  ***  USER FATAL MESSAGE 2202, ELEMENT TYPE **** NO LONGER SUPPORTED BY\r\n           SMA2 MODULE. USE EMG AND EMA MODULES FOR ELEMENT MATRIX GENERATION.\r\n\r\n2203  ***  SYSTEM FATAL MESSAGE 2203, NULL COLUMN FOUND IN MI FILE DURING\r\n           ASSEMBLY OF **** MATRIX BY GKAM MODULE.\r\n\r\n2204  ***  SYSTEM FATAL MESSAGE 2204, UNPACK FOUND NULL COLUMN IN PHIA FILE IN\r\n           GKAM MODULE.\r\n\r\n2251  ***  USER WARNING MESSAGE 2251, PHYSICALLY UNREALISTIC VALUE FOR KU ON\r\n           MAT1 CARD ******** VALUE = *************.\r\n\r\n2252  ***  USER WARNING MESSAGE 2252, SINGULAR MATRIX OCCURRED WHILE PERFORMING\r\n           SURFACE SPLINE INTERPOLATION IN SUBROUTINE CURVIT. OUTPUT WILL NOT\r\n           APPEAR FOR THE ****-TH GRID ID WRT MATERIAL COORDINATE SYSTEM ID\r\n           ****.\r\n\r\n          Matrix developed by SSPLIN could not be inverted. Possibly all the\r\n          points lie on a straight line or not enough points are included.\r\n\r\n2257  ***  USER WARNING MESSAGE 2257, SET *** REFERENCED ON SPLINE CARD **** IS\r\n           EMPTY.\r\n\r\n          While processing the SET1 or SET2 card referenced on the SPLINE1\r\n          card, no included grid points were found. If SET1 was used, either\r\n          no points were included or they were all scalar points. If SET2 was\r\n          used, the volume of space referenced did not include any structural\r\n          grid points. This may occur if a tapered element is extended too\r\n          far. The spline is omitted from the problem and processing\r\n          continues.\r\n\r\n2258  ***  USER FATAL MESSAGE 2258, SET **** REFERENCED ON SPLINE CARD **** NOT\r\n           FOUND OR IT IS EMPTY.\r\n\r\n          The necessary SET1 or SET2 card was not found or was empty. Include\r\n          the proper set card or, if it is already included, make sure that\r\n          the set is not empty. (See description under User Warning Message\r\n          2257 shown above.)\r\n\r\n2259  ***  SYSTEM FATAL MESSAGE 2259, POINT ASSIGNED TO BOX **** FOR CAERO* ****\r\n           NOT IN EQAERO.\r\n\r\n          No internal k point could be found for external box. If box number\r\n          is okay, module APD is in error; if box number is bad, module GI is\r\n          in error.\r\n\r\n2260  ***  USER FATAL MESSAGE 2260, SINGULAR MATRIX DEVELOPED WHILE PROCESSING\r\n           SPLINE ****.\r\n\r\n          Matrix developed by SSPLIN or LSPLIN (depending on type of spline)\r\n          could not be inverted; possibly for the Surface Spline all points\r\n          lie on a straight line, or not enough points are included.\r\n\r\n2261  ***  USER FATAL MESSAGE 2261, PLANE OF LINEAR SPLINE **** PERPENDICULAR TO\r\n           PLANE OF AERO ELEMENT ****.\r\n\r\n          Y-axis of linear spline was perpendicular to connected element and\r\n          could not be projected onto element.\r\n\r\n2262  ***  USER FATAL MESSAGE 2262, SPLINE **** INCLUDES AERO BOX INCLUDED ON AN\r\n           EARLIER SPLINE.\r\n\r\n          Two splines are attached to the same box. Splines may be connected\r\n          to the same structural grid point but not to the same aerodynamic\r\n          grid point. This type of error checking will stop with one error,\r\n          so check this spline and subsequent splines (sorted) for overlaps\r\n          before resubmitting.\r\n\r\n2263  ***  USER FATAL MESSAGE 2263, SPLINE3 **** FOR CAERO* HAS ILLEGAL\r\n           COMPONENT.\r\n\r\n          Refer to the description of the SPLINE3 card in Section 2.4 for the\r\n          correct value for the component of motion to be interpolated.\r\n\r\n2264  ***  SYSTEM FATAL MESSAGE 2264, NUMBER OF ROWS COMPUTED (****) WAS GREATER\r\n           THAN SIZE REQUESTED FOR OUTPUT MATRIX (****).\r\n\r\n          Module ADD determines size of output matrices (j set size). Sum of\r\n          number of rows added by different method totals more than maximum\r\n          allowed.\r\n\r\n2265  ***  USER FATAL MESSAGE 2265, METHOD **** FOR AEROELASTIC MATRIX\r\n           GENERATION IS NOT IMPLEMENTED.\r\n\r\n          A non-implemented method for computing these matrices was input.\r\n\r\n2266  ***  USER FATAL MESSAGE 2266, ONE OR MORE OF THE FOLLOWING FLFACT SETS\r\n           WERE NOT FOUND **** ****.\r\n\r\n          One or more of the FLFACT IDs on the flutter data card could not be\r\n          found. Include all sets mentioned.\r\n\r\n2267  ***  USER FATAL MESSAGE 2267, INTERPOLATION METHOD **** UNKNOWN.\r\n\r\n          Matrix interpolation method on FLUTTER card is not implemented.\r\n\r\n2268  ***  USER FATAL MESSAGE 2268, FMETHOD SET **** NOT FOUND.\r\n\r\n          FLUTTER data card for FMETHOD = **** in Case Control could not be\r\n          found.\r\n\r\n2269  ***  USER FATAL MESSAGE 2269, FLUTTER METHOD **** NOT IMPLEMENTED.\r\n\r\n          Flutter analysis method on FLUTTER data card is not implemented.\r\n\r\n2269A ***  USER FATAL MESSAGE 2269A, FLUTTER METHOD **** NOT IMPLEMENTED WITH B\r\n           MATRIX.\r\n\r\n          The KE method cannot be requested when structural damping is\r\n          included.\r\n\r\n2270  ***  USER FATAL MESSAGE 2270, LINEAR INTERPOLATION WITHOUT ENOUGH\r\n           INDEPENDENT MACH NUMBERS EQUAL TO DEPENDENT MACH ****.\r\n\r\n          Linear interpolation is for points with the same Mach number, and\r\n          less than two were found from the QHHL list which matched the\r\n          requested Mach on an FLFACT list.\r\n\r\n2271  ***  USER FATAL MESSAGE 2271, INTERPOLATION MATRIX IS SINGULAR.\r\n\r\n          Possibly for the surface spline, all the Mach numbers were the\r\n          same, or for either method, not enough points were included.\r\n\r\n2272  ***  USER INFORMATION MESSAGE 2272, NO FLUTTER CALCULATIONS CAN BE MADE IN\r\n           MODULE ADR SINCE BOV = 0.0.\r\n\r\n2273  ***  USER FATAL MESSAGE 2273, CAERO2 ******** NOT INPUT IN Z, ZY, Z\r\n           SEQUENCE.\r\n\r\n          The EID for z-bodies, zy-bodies, and y-bodies must be ordered in an\r\n          increasing sequence following the EID of a panel on a CAERO1 card.\r\n\r\n2274  ***  USER FATAL MESSAGE 2274, ASSOCIATED BODY ******** WAS NOT FOUND WITH\r\n           CAERO2 GROUP ********.\r\n\r\n          Aerodynamic bodies must be assigned to an interference group.\r\n\r\n2275  ***  USER FATAL MESSAGE 2275, CAERO2 ******** HAS INCONSISTENT USE FOR THI\r\n           OR THN, OR LTH2 IS REQUIRED.\r\n\r\n          A conflict exists between the data on a CAERO2 card and a PAERO2\r\n          card.\r\n\r\n2276  ***  USER FATAL MESSAGE 2276, THI1 AND THN1 REQUIRED FOR CAERO2 ********.\r\n\r\n          Required data on a PAERO2 card not found for the referenced CAERO2\r\n          card.\r\n\r\n2277  ***  USER FATAL MESSAGE 2277, CAERO2 BODY ******** DOES NOT HAVE ENOUGH\r\n           SLENDER ELEMENTS.\r\n\r\n          At least two slender body elements are required.\r\n\r\n2278  ***  USER FATAL MESSAGE 2278, PLANFORM GEOMETRY FOR CAERO3 ID ******** IS\r\n           IN ERROR, CHECK SWEEP ANGLE FOR LEADING EDGE OR CONTROL SURFACE HINGE\r\n           LINE.\r\n\r\n2279  ***  SYSTEM INFORMATION MESSAGE 2279, **** ITERATIONS ON LOOP, **** FOUND,\r\n           **** ROOTS WANTED, **** THIS LOOP STOPPED.\r\n\r\n2288  ***  SYSTEM FATAL MESSAGE 2288, **** READ INCORRECT NUMBER WORDS (****\r\n           ****).\r\n\r\n          Subroutine **** read **** words on the **** card, which is\r\n          incorrect.\r\n\r\n2289  ***  USER FATAL MESSAGE 2289, **** INSUFFICIENT CORE (****). **** =\r\n           MATERIAL, **** = POINTERS, **** = ELEMENTS, **** = PROPERTIES.\r\n\r\n          Module OPTPR1 or OPTPR2 gives the open core available and the\r\n          pointers to the start of each contiguous section of core.\r\n\r\n2290  ***  USER FATAL MESSAGE 2290, THE FOLLOWING ILLEGAL ELEMENT TYPES FOUND ON\r\n           PLIMIT CARD.\r\n\r\n          This message is followed by a list of element types. Processing of\r\n          legal element types continues so as to discover other errors.\r\n\r\n2291  ***  USER FATAL MESSAGE 2291, PLIMIT RANGE INCORRECT FOR **** THRU ****\r\n           AND **** THRU ****.\r\n\r\n          Property identification numbers are repeated. The first pair is\r\n          rejected and processing of the remaining ranges continues in order\r\n          to discover other errors.\r\n\r\n2292  ***  USER FATAL MESSAGE 2292, INSUFFICIENT CORE FOR PLIMIT DATA, ELEMENT\r\n           ****, **** WORDS SKIPPED.\r\n\r\n          The element type **** being processed exceeded core by **** words.\r\n          Processing of other element types continues in order to discover\r\n          additional requirements.\r\n\r\n2293  ***  USER FATAL MESSAGE 2293, NO PID ENTRIES ON PLIMIT CARD (****).\r\n\r\n          A PLIMIT card of element type **** had no property entries.\r\n\r\n2294  ***  USER FATAL MESSAGE 2294, DUPLICATE **** THRU **** RANGE FOR ELEMENT\r\n           **** REJECTED PLIMIT. SCAN CONTINUED.\r\n\r\n          Property identification numbers are repeated for element type ****.\r\n\r\n2295  ***  USER FATAL MESSAGE 2295, NO ELEMENTS EXIST FOR OPTIMIZATION.\r\n\r\n          A non-null property card and its corresponding material stress\r\n          limit are needed. In subroutine OPT2A stress data is also required.\r\n\r\n2296  ***  USER FATAL MESSAGE 2296, INSUFFICIENT CORE **** (****), ELEMENT ****.\r\n\r\n          Subroutine **** has insufficient core when loading element type or\r\n          number ****. Elements are read into core by element type (see\r\n          /GPTA1/ sequence), then by sequential element number.\r\n\r\n2297  ***  SYSTEM FATAL MESSAGE 2297, INCORRECT LOGIC FOR ELEMENT TYPE ***,\r\n           ELEMENT ****, (****).\r\n\r\n          Subroutine (****) has sequential element search. Element type can\r\n          be found in /GPTA1/.\r\n\r\n2298  ***  USER FATAL MESSAGE 2298, INSUFFICIENT CORE **** (****), PROPERTY\r\n           ****.\r\n\r\n          Subroutine **** (core ****) had insufficient core when loading\r\n          property ****.\r\n\r\n2299  ***  SYSTEM FATAL MESSAGE 2299, INCORRECT LOGIC FOR ELEMENT TYPE ***,\r\n           PROPERTY **** (****).\r\n\r\n          Subroutine OPTP1B has sequential property search. A property card\r\n          had two entries per card and it was unsorted.\r\n\r\n2300  ***  SYSTEM FATAL MESSAGE 2300, **** UNABLE TO LOCATE PROPERTY **** ON EPT\r\n           OR IN CORE.\r\n\r\n2301  ***  SYSTEM FATAL MESSAGE 2301, OPTP1D FILE OPTIMIZATION PARAMETER\r\n           INCORRECT AS **** ****.\r\n\r\n          Check subroutines OPTPX and OPTP1D use of the scratch file. In\r\n          OPTPR2, the corresponding stress limit(s) is zero.\r\n\r\n2302  ***  USER FATAL MESSAGE 2302, SUBROUTINE **** HAS NO PROPERTY OR ELEMENT\r\n           DATA.\r\n\r\n2303  ***  USER INFORMATION MESSAGE 2303, OPTPR2 DETECTED ZERO ALPHA FOR\r\n           PROPERTY ****.\r\n\r\n          The stress in the element was zero. Only 100 messages per iteration\r\n          may occur.\r\n\r\n2304  ***  USER INFORMATION MESSAGE 2304, OPTP2B CONVERGENCE ACHIEVED, HIGHEST\r\n           VALUE IS ****.\r\n\r\n2305  ***  USER INFORMATION MESSAGE 2305, OPTPR2 DETECTED NEGATIVE ALPHA FOR\r\n           ELEMENT ****.\r\n\r\n          The element did not have stress data or appropriate material stress\r\n          limits. The element properties were not changed. Only 100 of these\r\n          messages will occur per print iteration.\r\n\r\n2314  ***  USER INFORMATION MESSAGE 2314, STATISTICS FOR SYMMETRIC\r\n           DECOMPOSITIONS OF DATA BLOCK, **** ****, FOLLOW / NUMBER OF UII .LT.\r\n           0 = ***** / MAXIMUM ABSOLUTE VALUE OF AII/UII = ***** / N1 THRU N6 =\r\n           ****** ****** ****** ****** ****** ****** / ROW NUMBERS OF 5 LARGEST\r\n           AII/UII = ****** ****** ****** ****** ******.\r\n\r\n          This message will appear if the NASTRAN card SYSTEM (57)=1 is\r\n          placed before the ID card. See Programmer's Manual Section 3.5.14\r\n          for a discussion of the statistics appearing in the message.\r\n\r\n2316  ***  USER INFORMATION MESSAGE 2316, INSUFFICIENT CORE, TO PREPARE\r\n           DECOMPOSITION STATISTICS.\r\n\r\n2317  ***  USER WARNING MESSAGE 2317, PARAM HAS STORED OUTSIDE DEFINED RANGE OF\r\n           COMMON BLOCK /SYSTEM/. INDEX VALUE = ********************.\r\n\r\n2318  ***  USER FATAL MESSAGE 2318, NO AERO CARD FOUND.\r\n\r\n          An AERO card is required to run APD.\r\n\r\n2319  ***  USER FATAL MESSAGE 2319, NO CAERO* CARDS FOUND.\r\n\r\n          At least one CAEROi card is required for APD.\r\n\r\n2320  ***  USER FATAL MESSAGE 2320, NO AEFACT CARDS FOUND.\r\n\r\n          An AEFACT has been referenced and none has been found in the input.\r\n\r\n2321  ***  USER FATAL MESSAGE 2321, NO FLUTTER CARDS FOUND.\r\n\r\n          Flutter analysis requires at least one FLUTTER card.\r\n\r\n2322  ***  USER FATAL MESSAGE 2322, NEITHER MKAERO1 OR MKAERO2 CARDS FOUND.\r\n\r\n          Either MKAERO1 or MKAERO2 cards are required.\r\n\r\n2323  ***  USER FATAL MESSAGE 2323, PAERO* CARD NO. ******** REFERENCED BY\r\n           CAERO* CARD NO. BUT DOES NOT EXIST.\r\n\r\n          CAEROi card points to missing PAEROi card.\r\n\r\n2324  ***  USER FATAL MESSAGE 2324, CAERO* ELEMENT NO. ******** REFERENCED ON A\r\n           SPLINE* CARD DOES NOT EXIST.\r\n\r\n          Either a SPLINE1, a SPLINE2, or a SPLINE3 card references a CAEROi\r\n          card which is missing.\r\n\r\n2325  ***  USER FATAL MESSAGE 2325, CAERO* ELEMENT NO. ******** REFERENCED ON A\r\n           SET2 CARD DOES NOT EXIST.\r\n\r\n          A SET2 card points to a CAEROi which was not included.\r\n\r\n2326  ***  USER FATAL MESSAGE 2326, CAERO* ELEMENT NO. ******** REFERENCES\r\n           AEFACT CARD NO. ******** WHICH DOES NOT EXIST.\r\n\r\n          The listed CAEROi card requires one AEFACT card for LSPAN.\r\n\r\n2327  ***  USER FATAL MESSAGE 2327, CAERO* ELEMENT NO. ******** REFERENCES\r\n           AEFACT CARD NO. ******** WHICH DOES NOT EXIST.\r\n\r\n          The listed CAEROi card requires one AEFACT card for LCHORD.\r\n\r\n2328  ***  USER FATAL MESSAGE 2328, SET* AND SPLINE* CARDS REQUIRED.\r\n\r\n          At least one SET1 or SET2 card and at least one SPLINE1, SPLINE2,\r\n          or SPLINE3 card required.\r\n\r\n2329  ***  USER FATAL MESSAGE 2329, DUPLICATE EXTERNAL ID NO. ********\r\n           GENERATED.\r\n\r\n          The external IDs assigned to each generated box must be unique.\r\n\r\n2330  ***  USER FATAL MESSAGE 2330, SET1 OR SPLINE3 CARD NO. ******** REFERENCES\r\n           EXTERNAL ID NO. ******** WHICH DOES NOT EXIST.\r\n\r\n          External grid point IDs referenced on a SET1 or SPLINE3 card do not\r\n          exist as structural grid points.\r\n\r\n2331  ***  USER FATAL MESSAGE 2331, BOX PICKED ON SPLINE CARD NO. ******** NOT\r\n           GENERATED BY CAERO CARD NO. ********.\r\n\r\n          SPLINE card ******** points to a box which was not generated by the\r\n          CAEROi card.\r\n\r\n2332  ***  USER WARNING MESSAGE 2332, INVALID INPUT DATA DETECTED IN DATA BLOCK,\r\n           ****, PROCESSING STOPPED FOR THIS DATA BLOCK.\r\n\r\n2333  ***  SYSTEM INFORMATION MESSAGE 2333, MODULE DDRMM TERMINATED WITH\r\n           VARIABLE IERROR = **********.\r\n\r\n2334  ***  SYSTEM WARNING MESSAGE 2334, ILLEGAL MAJOR OR MINOR OFP-ID\r\n           IDENTIFICATIONS = ********** ********** DETECTED IN DATA BLOCK, ****,\r\n           PROCESSING OF SAID DATA BLOCK DISCONTINUED.\r\n\r\n2335  ***  SYSTEM WARNING MESSAGE 2335, THE AMOUNT OF DATA IS NOT CONSISTENT FOR\r\n           EACH EIGENVALUE IN DATA BLOCK **** PROCESSING OF THIS DATA BLOCK\r\n           TERMINATED.\r\n\r\n2336  ***  SYSTEM WARNING MESSAGE 2336, A CHANGE IN WORD 2 OF THE OFP-ID RECORDS\r\n           OF DATA BLOCK **** HAS BEEN DETECTED. PROCESSING OF THIS DATA BLOCK\r\n           HAS BEEN TERMINATED.\r\n\r\n2337  ***  USER WARNING MESSAGE 2337, DATA BLOCK **** CAN NOT BE PROCESSED DUE\r\n           TO A CORE INSUFFICIENCY OF APPROXIMATELY ********** DECIMAL WORDS.\r\n\r\n2338  ***  USER WARNING MESSAGE 2338, DATA BLOCK **** MAY NOT BE FULLY COMPLETED\r\n           DUE TO A CORE INSUFFICIENCY OF APPROXIMATELY ********** DECIMAL\r\n           WORDS.\r\n\r\n2339  ***  SYSTEM WARNING MESSAGE 2339, A CHANGE IN WORD 2 OF THE OFP-ID RECORDS\r\n           OF DATA BLOCK **** HAS BEEN DETECTED. PROCESSING OF THIS DATA BLOCK\r\n           HAS BEEN TERMINATED.\r\n\r\n2340  ***  USER WARNING MESSAGE 2340, MODULE **** ****, HAS BEEN REQUESTED TO DO\r\n           UNSYMMETRIC DECOMPOSITION OF A SYMMETRIC MATRIX.\r\n\r\n2341  ***  USER WARNING MESSAGE 2341, MODULE **** **** HAS BEEN FURNISHED A\r\n           SQUARE MATRIX MARKED UNSYMMETRIC FOR SYMMETRIC DECOMPOSITION.\r\n\r\n2342  ***  USER WARNING MESSAGE 2342, UNRECOGNIZED APPROACH PARAMETER ********\r\n           IN GPFDR INSTRUCTION.\r\n\r\n          The solution approach parameter can only be STATICS, REIGEN, DS0,\r\n          DS1, FREQ, TRAN, BLK0, BLK1, CEIGEN, or PLA, corresponding to the\r\n          Rigid Format used.\r\n\r\n2343  ***  SYSTEM WARNING MESSAGE 2343, DATA BLOCK, *****, IS EITHER NOT\r\n           -EQEXIN- OR POSSIBLY INCORRECT.\r\n\r\n2344  ***  SYSTEM WARNING MESSAGE 2344, GPFDR FINDS ELEMENT = **** ****, HAS AN\r\n           ECT ENTRY LENGTH TOO LONG FOR A PROGRAM LOCAL ARRAY.\r\n\r\n2345  ***  SYSTEM WARNING MESSAGE 2345, GPFDR FINDS AND IS IGNORING UNDEFINED\r\n           ECT DATA WITH LOCATE NUMBERS = ******** ******** ********.\r\n\r\n2346  ***  SYSTEM WARNING MESSAGE 2346, GPFDR FINDS DATA FOR EL-TYPE =\r\n           **********, IN DATA BLOCK, ********** NOT TO BE IN AGREEMENT WITH\r\n           THAT WHICH IS EXPECTED.\r\n\r\n2347  ***  USER WARNING MESSAGE 2347, GPFDR FINDS TOO MANY ACTIVE CONNECTING\r\n           GRID POINTS FOR ELEMENT ID = **********.\r\n\r\n2348  ***  SYSTEM WARNING MESSAGE 2348, GPFDR DOES NOT UNDERSTAND THE MATRIX-\r\n           DICTIONARY ENTRY FOR ELEMENT ID = **********.\r\n\r\n2349  ***  SYSTEM WARNING MESSAGE 2349, GPFDR FINDS AN ELEMENT ENTRY CONNECTING\r\n           PIVOT SIL = ********** ON DATA BLOCK ***** TOO LARGE FOR A LOCAL\r\n           ARRAY. ENTRY IS BEING IGNORED.\r\n\r\n2350  ***  SYSTEM WARNING MESSAGE 2350, GPFDR CANNOT FIND PIVOT SIL =\r\n           **********, AMONG THE SILS OF ELEMENT ID = **********, AS READ FROM\r\n           DATA BLOCK, *****, ENTRY THUS IGNORED.\r\n\r\n2351  ***  USER INFORMATION MESSAGE 2351, A FORCE CONTRIBUTION DUE TO ELEMENT\r\n           TYPE = **** ****, ON POINT ID = **********, WILL NOT APPEAR IN THE\r\n           GRID-POINT-FORCE-BALANCE SUMMARY.\r\n\r\n2352  ***  SYSTEM WARNING MESSAGE 2352, GPFDR IS NOT ABLE TO FIND PIVOT SIL =\r\n           ********** AS READ FROM DATA BLOCK ***** IN TABLE OF SILS.\r\n\r\n2353  ***  USER WARNING MESSAGE 2353, INSUFFICIENT CORE TO HOLD ALL NON-ZERO\r\n           APP-LOAD AND F-OF-SPC OUTPUT LINE ENTRIES OF GRIDPOINT-FORCE-BALANCE\r\n           REQUESTS. SOME POINTS REQUESTED FOR OUTPUT WILL BE MISSING THEIR APP-\r\n           LOAD OR F-OF-SPC CONTRIBUTION IN THE PRINTED BALANCE.\r\n\r\n2354  ***  SYSTEM WARNING MESSAGE 2354, GPFDR MODULE IS UNABLE TO CONTINUE AND\r\n           HAS BEEN TERMINATED DUE TO ERROR MESSAGE PRINTED ABOVE OR BELOW THIS\r\n           MESSAGE. THIS ERROR OCCURRED IN GPFDR CODE WHERE THE VARIABLE -\r\n           NERROR- WAS SET = *****.\r\n\r\n2355  ***  USER FATAL MESSAGE 2355, GRID POINT COORDINATES OF ELEMENT **********\r\n           ARE IN ERROR. ONE OR MORE OF THE R-COORDINATES ARE ZERO OR NEGATIVE.\r\n\r\n2357  ***  USER WARNING MESSAGE 2357, ONE VECTOR (DEFAULT) WILL BE COMPUTED IN\r\n           THE COMPLEX REGION.\r\n\r\n          If more than one vector is desired from the Hessenburg method, make\r\n          a specific request on the EIGC card.\r\n\r\n2358  ***  USER WARNING MESSAGE 2358, SYMMETRIC SCRIPT-AF MATRIX (HREE) ASSUMED\r\n           IN RADMTX.\r\n\r\n2359  ***  USER WARNING MESSAGE 2359, COL *****, ROW ***** OF RADMTX IS\r\n           NEGATIVE.\r\n\r\n2360  ***  USER FATAL MESSAGE 2360, TOTAL VIEW FACTOR (FA/A), FOR ELEMENT\r\n           ******** IS **************** (ELEMENT AREA IS ****************).\r\n\r\n          Provides view factors and areas for all elements with a view factor\r\n          greater than 1.01. This message is also a WARNING for all elements\r\n          with a view factor between .99 and 1.01, provided the NASTRAN card\r\n          SYSTEM(58)=1 is included in the deck.\r\n\r\n2361  ***  USER INFORMATION MESSAGE 2361, **** ELEMENTS HAVE A TOTAL VIEW FACTOR\r\n           (FA/A) LESS THAN 0.99, ENERGY MAY BE LOST TO SPACE.\r\n\r\n          Provides the total number of elements with a view factor less than\r\n          .99.\r\n\r\n2362  ***  USER FATAL MESSAGE 2362, CHBDY CARDS WITH DUPLICATE IDS FOUND IN EST,\r\n           CHBDY ID NUMBER = **********.\r\n\r\n2363  ***  SYSTEM WARNING MESSAGE 2363, SSG2B FORCED MPYAD COMPATIBILITY OF\r\n           MATRIX ON ***** FROM (*****, *****) TO (*****, *****).\r\n\r\n          This message identifies a matrix and its initial size (row, column)\r\n          and its changed size (row, column) so that it is compatible with\r\n          MPYAD operations.\r\n\r\n2364  ***  USER FATAL MESSAGE 2364, GRID POINT COORDINATES OF ELEMENT ********\r\n           ARE IN ERROR. ONE OR MORE OF THE THETA-COORDINATES ARE NONZERO.\r\n\r\n2365  ***  USER WARNING MESSAGE 2365, INSUFFICIENT CORE FOR HESSENBURG METHOD.\r\n           SWITCHING TO INVERSE POWER.\r\n\r\n2366  ***  USER FATAL MESSAGE 2366, REGION IMPROPERLY DEFINED ON EIGC CARD.\r\n\r\n          If insufficient core has caused an automatic switch from Hessenburg\r\n          method to Inverse Power method, the EIGC card must have the\r\n          region(s) defined (they are ignored for the Hessenburg method).\r\n          Either increase core to use the Hessenburg method or define the\r\n          region(s) for Inverse Power.\r\n\r\n2367  ***  USER WARNING MESSAGE 2367, FREQUENCY F1 (FIELD 4) ON THE EIGR BULK\r\n           DATA CARD IS NEGATIVE. IT IS ASSUMED TO BE ZERO FOR CALCULATION\r\n           PURPOSES.\r\n\r\n2369  ***  USER WARNING MESSAGE 2369, WHEEL MUST HAVE FEWER THAN 256 SPOKES.\r\n           INPUT MODULE RESETTING TO 255.\r\n\r\n          See Section 2.6 for a discussion of INPUT module sample 8.\r\n\r\n2370  ***  USER WARNING MESSAGE 2370, MULTIPOINT CONSTRAINT FORCES NOT\r\n           CALCULATED IN ****** DUE TO MISSING INPUT FILE.\r\n\r\n2371  ***  USER WARNING MESSAGE 2371, EQUILIBRIUM FORCES NOT CALCULATED IN\r\n           ****** DUE TO MISSING INPUT FILE.\r\n\r\n2372  ***  USER WARNING MESSAGE 2372, ****** IS UNABLE TO CALCULATE RIGID BODY\r\n           TRANSFORMATION FOR SCALAR MODEL.\r\n\r\n2373  ***  USER WARNING MESSAGE 2373, ONLY SORT1-REAL SUPPORTED IN ********.\r\n\r\n2374  ***  USER WARNING MESSAGE 2374, INSUFFICIENT CORE TO PROCESS MORE THAN\r\n           **** VECTORS IN ****.\r\n\r\n          Output module EQMCK needs 6 words for loads, MPCs, and SPCs for\r\n          each subcase or eigenvalue plus 2 (statics) or 3 (eigenvalue)\r\n          buffers.\r\n\r\n2375  ***  SYSTEM WARNING MESSAGE 2375, MODULE ******** HAS BEEN REQUESTED TO\r\n           DECOMPOSE A RECTANGULAR MATRIX.\r\n\r\n          Symmetric decomposition will not accept rectangular matrix input.\r\n\r\n2376  ***  USER WARNING MESSAGE 2376, INSUFFICIENT CORE IN ****. HAS ****, NEEDS\r\n           ****.\r\n\r\n2377  ***  USER WARNING MESSAGE 2377A, MATRIX CONDITIONING ERRORS GIVEN WITH\r\n(A)        EXTERNAL ID.\r\n\r\n2377  ***  USER WARNING MESSAGE 2377B, MATRIX CONDITIONING ERRORS GIVEN WITH\r\n(B)        INTERNAL ID.\r\n\r\n          Symmetric decomposition diagnostics follow. Both the input and\r\n          decomposed diagonal are printed. Only available when module SDCMPS\r\n          is used.\r\n\r\n2378  ***  USER INFORMATION MESSAGE 2378, **** ESTIMATE OF CPU TIME FOR MT=****,\r\n           PASSIVE COL.=****, ACTIVE COL.=****, SPILL=****.\r\n\r\n          Seconds of CPU time for each of the above operations is given when\r\n          module SDCMPS is used.\r\n\r\n2379  ***  SYSTEM FATAL MESSAGE 2379, LOGIC ****** ERROR IN SDCMPS.\r\n\r\n2380  ***  USER WARNING MESSAGE 2380, MULTIPOINT CONSTRAINT FORCES NOT OUTPUT IN\r\n           ******, SEE QUEUED MESSAGES.\r\n\r\n          Other message(s) follow(s) indicating the reason(s) why a request\r\n          for MPCFORCE in the Case Control Deck is being ignored.\r\n\r\n2381  ***  SYSTEM FATAL MESSAGE 2381, LOGIC ERROR ****** IN SDCMPS. CONTENTS OF\r\n           /SDCOMX/ FOLLOW --\r\n\r\n2382  ***  USER WARNING MESSAGE 2382, ELEMENT MATRICES FOR ELEMENTS CONGRUENT TO\r\n           ELEMENT ID = ********** WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT\r\n           CORE AT THIS TIME TO HOLD CONGRUENCY MAPPING DATA. ADDITIONAL CORE\r\n           NEEDED = **** WORDS.\r\n\r\n2383  ***  SYSTEM WARNING MESSAGE 2383, UNABLE TO LOCATE CONGRUENCY MAPPING DATA\r\n           FOR ELEMENT ID = **********. ELEMENT MATRICES FOR THIS ELEMENT WILL,\r\n           THEREFORE, BE RE-COMPUTED.\r\n\r\n2384  ***  USER WARNING MESSAGE 2384, CONGRUENCY OF ELEMENT ID = ********** WILL\r\n           BE IGNORED AND ITS ELEMENT MATRICES WILL BE RE-COMPUTED AS THERE IS\r\n           INSUFFICIENT CORE AT THIS TIME TO PERFORM CONGRUENCY MAPPING\r\n           COMPUTATIONS. ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n2385  ***  USER WARNING MESSAGE 2385, DESIRED NUMBER OF EIGENVALUES EXCEED THE\r\n           EXISTING NUMBER, ALL EIGENSOLUTIONS WILL BE SOUGHT.\r\n\r\n          The desired number of eigenvalues specified on the EIGB card (NEP)\r\n          or the EIGR card (ND) exceeds the rank of the [Kdaa] or [Maa]\r\n          matrix.\r\n\r\n2386  ***  USER FATAL MESSAGE 2386, STIFFNESS MATRIX SINGULARITY CANNOT BE\r\n           REMOVED BY SHIFTING.\r\n\r\n          Check the specification of masses on CONM1, CONM2, CMASSi, material\r\n          definition, and element property cards to ensure that the\r\n          degrees-of-freedom in the analysis set are not all massless.\r\n\r\n2387  ***  USER WARNING MESSAGE 2387, PROBLEM SIZE REDUCED TO **** DUE TO\r\n           ORTHOGANILITY DRIFT OR NULL TRIAL VECTOR. ALL EXISTING MODES MAY HAVE\r\n           BEEN OBTAINED. USE DIAG 16 TO DETERMINE ERROR BOUNDS.\r\n\r\n          The Tridiagonal Reduction method cannot generate a reduced problem\r\n          size of the order prescribed in Section 10.6.2.3 of the Theoretical\r\n          Manual. However, the desired number of accurate eigenvalues\r\n          specified on the EIGB card (NEP) or the EIGR card (ND) may have\r\n          been obtained. A detailed list of the computed error bounds could\r\n          have been obtained by requesting DIAG 16 in the Executive Control\r\n          Deck.\r\n\r\n2388  ***  USER WARNING MESSAGE 2388, USER SPECIFIED RANGE NOT USED FOR FEER\r\n           BUCKLING, THE ROOTS OF LOWEST MAGNITUDE ARE OBTAINED.\r\n\r\n          The value of L1 specified on the EIGB card is ignored for buckling\r\n          analysis by the Tridiagonal Reduction (FEER) method.\r\n\r\n2389  ***  USER WARNING MESSAGE 2389, PROBLEM SIZE REDUCED. NO MORE TRIAL\r\n           VECTORS CAN BE OBTAINED.\r\n\r\n          The desired number of eigenvalues specified on the EIGB card (NEP)\r\n          or the EIGR card (ND) exceeds the number that can be calculated by\r\n          the Tridiagonal Reduction (FEER) method. Check whether the\r\n          requested number of eigenvalues exceeds the rank of the [Kdaa] or\r\n          [Maa] matrix, which equals the number of existing eigenvalues.\r\n\r\n2390  ***  USER WARNING MESSAGE 2390, **** FEWER ACCURATE EIGENSOLUTIONS THAN\r\n           THE **** REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR\r\n           BOUNDS.\r\n\r\n          The number of eigenvalues passing the eigenvalue relative-error\r\n          test is less than the number requested on the EIGB or EIGR card.\r\n          The maximum allowable error is specified in field 5 on the above\r\n          cards. A detailed list of the computed error bounds could have been\r\n          obtained by requesting DIAG 16 in the Executive Control Deck. A\r\n          checkpoint and restart should be employed to obtain additional\r\n          accurate eigensolutions.\r\n\r\n2391  ***  SYSTEM FATAL MESSAGE 2391, PROGRAM LOGIC ERROR IN FEER.\r\n\r\n          An unexpected EOF or word count has been encountered. This is\r\n          caused by a conflict between subroutine FCNTL and GINO.\r\n\r\n2392  ***  USER INFORMATION MESSAGE 2392, **** MORE ACCURATE EIGENSOLUTIONS THAN\r\n           THE **** REQUESTED HAVE BEEN FOUND. USE DIAG 16 TO DETERMINE ERROR\r\n           BOUNDS.\r\n\r\n          The number of eigenvalues passing the eigenvalue relative-error\r\n          test is greater than the number requested on the EIGB or EIGR card.\r\n          The maximum allowable error is specified in field 5 on the above\r\n          cards. A detailed list of the computed error bounds could have been\r\n          obtained by requesting DIAG 16 in the Executive Control Deck.\r\n\r\n2393  ***  USER WARNING MESSAGE 2393, THE REDUCED-SYSTEM EIGENVECTOR\r\n           CORRESPONDING TO EIGENVALUE **** DOES NOT MEET CONVERGENCE CRITERION.\r\n           ABSOLUTE RELATIVE ERROR BETWEEN SUCCESSIVE ITERATES IS ****.\r\n\r\n          The accuracy of the corresponding physical eigenvector is in doubt.\r\n          Refer to the Eigenvalue Summary Table for the largest error in the\r\n          generalized mass matrix.\r\n\r\n2396  ***  USER WARNING MESSAGE 2396, SDCOMP COMPUTED A ZERO ON THE DIAGONAL. A\r\n           VALUE OF 1.0E-10 WILL BE USED. THE ACCURACY OF THE DECOMPOSITION MAY\r\n           BE IN DOUBT.\r\n\r\n          The matrix being decomposed is singular or a diagonal element is\r\n          less than zero in the case of Cholesky decomposition.\r\n\r\n2397  ***  USER FATAL MESSAGE 2397, INVALID TO HAVE AN O-SET WITH A NULL A-SET.\r\n\r\n          There must be at least one degree of freedom in the A-SET even\r\n          though EPOINTS may be present.\r\n\r\n2398  ***  USER FATAL MESSAGE 2398, MPYAD REQUIRES SIGN OF A*B TO BE -1, 0 OR\r\n           +1.\r\n\r\n2399  ***  USER WARNING MESSAGE 2399, ONLY THE FIRST ***** EIGENSOLUTIONS\r\n           CLOSEST TO THE SHIFT POINT (F1 OR ZERO) PASS THE FEER ACCURACY TEST\r\n           FOR EIGENVECTORS.\r\n\r\n2401  ***  USER WARNING MESSAGE 2401, ******** MATRIX IS NULL. AN ARBITRARY\r\n           VALUE OF 1.0 IS THEREFORE ASSIGNED TO THE RIGID BODY ERROR RATIO\r\n           (EPSILON SUB E).\r\n\r\n2402  ***  USER FATAL MESSAGE 2402, NULL DIFFERENTIAL STIFFNESS MATRIX GENERATED\r\n           IN SUBROUTINE DS1A.\r\n\r\n2404  ***  USER FATAL MESSAGE 2404, GRID POINTS 1 AND 3 OF TRIM6 WITH ELEMENT ID\r\n           = ******** HAVE SAME COORDINATES.\r\n\r\n2405  ***  USER FATAL MESSAGE 2405, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A\r\n           STRAIGHT LINE. ELEMENT TRIM6 WITH ID = ********.\r\n\r\n2406  ***  USER FATAL MESSAGE 2406, GRID POINTS 1 AND 5 HAVE SAME COORDINATES.\r\n           ELEMENT TRIM6 WITH ID = ********.\r\n\r\n2407  ***  USER FATAL MESSAGE 2407, MATRIX RELATING GENERALIZED PARAMETERS AND\r\n           GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT\r\n           TRIM6 WITH ID = ********.\r\n\r\n2408  ***  USER FATAL MESSAGE 2408, GRID POINTS 1 AND 3 OF TRPLT1 WITH ELEMENT\r\n           ID = ******** HAVE SAME COORDINATES.\r\n\r\n2409  ***  USER FATAL MESSAGE 2409, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A\r\n           STRAIGHT LINE. ELEMENT TRPLT1 WITH ID = ********.\r\n\r\n2410  ***  USER FATAL MESSAGE 2410, GRID POINTS 1 AND 5 HAVE SAME COORDINATES.\r\n           ELEMENT TRPLT1 WITH ID = ********.\r\n\r\n2411  ***  USER FATAL MESSAGE 2411, MATRIX RELATING GENERALIZED PARAMETERS AND\r\n           GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT\r\n           TRPLT1 WITH ID = ********.\r\n\r\n2412  ***  USER FATAL MESSAGE 2412, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =\r\n           ******** HAS BEEN DETECTED BY SUBROUTINE TLODT1 WHILE TRYING TO\r\n           COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.\r\n\r\n          The thermal load vector generated by TEMPP2 data is not correctly\r\n          applied to a TRPLT1 element.\r\n\r\n2413  ***  USER FATAL MESSAGE 2413, GRID POINTS 1 AND 3 OF TRSHL WITH ELEMENT ID\r\n           = ******** HAVE SAME COORDINATES.\r\n\r\n2414  ***  USER FATAL MESSAGE 2414, GRID POINTS 1, 3, AND 5 APPEAR TO BE ON A\r\n           STRAIGHT LINE. ELEMENT TRSHL WITH ID = ********.\r\n\r\n2415  ***  USER FATAL MESSAGE 2415, GRID POINTS 1 AND 5 HAVE SAME COORDINATES.\r\n           ELEMENT TRSHL WITH ID = ********.\r\n\r\n2416  ***  USER FATAL MESSAGE 2416, MATRIX RELATING GENERALIZED PARAMETERS AND\r\n           GRID POINT DISPLACEMENTS IS SINGULAR. CHECK COORDINATES OF ELEMENT\r\n           TRSHL WITH ID = ********.\r\n\r\n2417  ***  USER FATAL MESSAGE 2417, A SINGULAR MATERIAL MATRIX FOR ELEMENT ID =\r\n           ******** HAS BEEN DETECTED BY SUBROUTINE TLODSL WHILE TRYING TO\r\n           COMPUTE THERMAL LOADS WITH TEMPP2 CARD DATA.\r\n\r\n          The thermal load vector generated by TEMPP2 data is not correctly\r\n          applied to TRSHL element.\r\n\r\n2418  ***  USER FATAL MESSAGE 2418, MATERIAL ID FOR MEMBRANE EFFECTS IS LESS\r\n           THAN OR EQUAL TO ZERO FOR TRSHL ELEMENT WITH ID = ********.\r\n\r\n2419  ***  SYSTEM FATAL MESSAGE 2419, PIVOT POINT IS NOT EQUAL TO TRSHL ELEMENT\r\n           GRID POINTS FOR ELEMENT ID = ********.\r\n\r\n          An error in the coordinate system transformation has occurred.\r\n          Temporary avoidance: remove coordinate system ID from field 7 of\r\n          the GRID (or GRDSET) card.\r\n\r\n2422  ***  USER WARNING MESSAGE 2422, VISC DATA NOT PROCESSED BY EMGPRO.\r\n\r\n          CVISC data cards are used only in the direct method of dynamic\r\n          problem formulations (DISP Rigid Formats 7, 8, and 9). A warning is\r\n          issued when these cards are encountered in the modal method of\r\n          dynamic problem formulations (DISP Rigid Formats 10, 11, and 12).\r\n\r\n2423  ***  USER FATAL MESSAGE 2423, DEPENDENT COMPONENT SPECIFIED MORE THAN ONCE\r\n           ON MPC CARDS AND/OR IN RIGID ELEMENTS. SIL VALUE = ********.\r\n\r\n          The use of DIAG 21 in the Executive Control Deck will show the SIL\r\n          (internal DOF) corresponding to the duplicated component.\r\n\r\n2424  ***  USER FATAL MESSAGE 2424, MACH BOX CONTROL POINTS IMPROPER. SINGULAR\r\n           MATRIX RESULTED.\r\n\r\n2425  ***  USER FATAL MESSAGE 2425, MACH BOX GENERATION OF BOXES FAILED.\r\n\r\n2426  ***  USER FATAL MESSAGE 2426, MACH NUMBER ********** WAS NOT FOUND ON\r\n           AEFACT CARD ********.\r\n\r\n2427  ***  USER FATAL MESSAGE 2427, SINGULAR MATRIX FOR INTERPOLATION IN\r\n           ********.\r\n\r\n2428  ***  USER FATAL MESSAGE 2428, MACH NUMBER ********** WAS NOT FOUND IN\r\n           PISTON THEORY ALPHA ARRAY.\r\n\r\n2429  ***  USER FATAL MESSAGE 2429, WRONG NUMBER OF WORDS OR CARD NOT FOUND FOR\r\n           CARD ID ******** ASSOCIATED WITH CAERO* ID ********.\r\n\r\n2430  ***  SYSTEM WARNING MESSAGE 2430, REQUESTED ******** PRECISION ******** BY\r\n           ********, ******** IS LOGICAL CHOICE.\r\n\r\n          This message is issued when single or double precision is\r\n          prescribed for a matrix utility module but could be better\r\n          prescribed based on the data.\r\n\r\n2431  ***  SYSTEM WARNING MESSAGE 2431, REQUESTED TYPE ******** BY ********.\r\n           TYPE ******** IS LOGICAL CHOICE.\r\n\r\n          This message is issued when real or complex output is prescribed\r\n          for a matrix utility module but should be prescribed as indicated.\r\n\r\n2432  ***  USER INFORMATION MESSAGE 2432, DIAG 19 MPYAD SUMMARY.\r\n\r\n          Information on next two lines is MPYAD matrix data summary listed\r\n          on system output file on CDC and UNIVAC or on log file (Unit 4) on\r\n          IBM and VAX.\r\n\r\n2433  ***  USER INFORMATION MESSAGE 2433, MPYAD METHOD ****, NBR PASSES = ****,\r\n           EST TIME = ****.\r\n\r\n          DIAG 19 MPYAD Method Summary listed on system output file on CDC\r\n          and UNIVAC or on log file (Unit 4) on IBM and VAX.\r\n\r\n2434  ***  USER INFORMATION MESSAGE 2434, MPYAD -- NULL MATRIX PRODUCT.\r\n\r\n          DIAG 19 MPYAD message.\r\n\r\n=PAGE=\r\n6.5  FUNCTIONAL MODULE MESSAGES (3001 THROUGH 4000)\r\n\r\n3001  ***  SYSTEM FATAL MESSAGE 3001, ATTEMPT TO OPEN DATA SET *** IN SUBROUTINE\r\n           WHICH WAS NOT DEFINED IN FIST.\r\n\r\n          Subroutine did not expect data block to be purged. Check data block\r\n          requirements for module. This message is also a WARNING when STRESS\r\n          output is requested in a heat transfer problem.\r\n\r\n3002  ***  SYSTEM FATAL MESSAGE 3002, EOF ENCOUNTERED WHILE READING DATA SET\r\n           ********(FILE ***) IN SUBROUTINE ******.\r\n\r\n          This message is issued when an end-of-file occurs while trying to\r\n          skip the header record. The data block is not in the proper format.\r\n\r\n3003  ***  SYSTEM FATAL MESSAGE 3003, ATTEMPT TO READ PAST THE END OF A LOGICAL\r\n           RECORD IN DATA SET ********(FILE ***) IN SUBROUTINE ********.\r\n\r\n          This message is issued when the file is positioned at the beginning\r\n          of a logical record and the record does not contain at least three\r\n          words. Data block is not in proper format.\r\n\r\n3004  ***  SYSTEM FATAL MESSAGE 3004, INCONSISTENT TYPE FLAGS ENCOUNTERED WHILE\r\n           PACKING DATA SET ****.\r\n\r\n3005  ***  USER FATAL MESSAGE 3005, ATTEMPT TO OPERATE ON SINGULAR MATRIX ****\r\n           IN SUBROUTINE ****.\r\n\r\n          A diagonal term does not exist for a column of (U). This is\r\n          normally detected in DECOMP, implying care was not taken in\r\n          processing singular matrices in the calling routine.\r\n\r\n3006  ***  SYSTEM FATAL MESSAGE 3006, BUFFER ASSIGNED WHEN OPENING DATA BLOCK\r\n           **** FILE (****) CONFLICTS WITH BUFFERS CURRENTLY OPEN.\r\n\r\n          Computation of buffer pointers or allocation of open core is in\r\n          error.\r\n\r\n3007  ***  SYSTEM FATAL MESSAGE 3007, ILLEGAL INPUT TO SUBROUTINE ****.\r\n\r\n          Subroutine **** has encountered data which it cannot process. This\r\n          error should not be caused by user input data. A system or\r\n          programming error is indicated. Go directly to the subroutine\r\n          listing or description to determine the exact cause of the problem.\r\n\r\n3008  ***  SYSTEM FATAL MESSAGE 3008, INSUFFICIENT CORE AVAILABLE FOR SUBROUTINE\r\n           ********. ADDITIONAL CORE REQUIRED = **** WORDS.\r\n\r\n          Insufficient open core was available to meet the needs of the\r\n          subroutine indicated. Increase Region Size, Field Length, HICORE\r\n          allocation, or the length of the open core COMMON block, depending\r\n          on the machine being used.\r\n\r\n3009  ***  SYSTEM FATAL MESSAGE 3009, DATA TRANSMISSION ERROR ON DATA SET\r\n           ******** (FILE ***)\r\n\r\n          A conflict exists between the SGINO subroutine for the UNIVAC 1108\r\n          and the resident NTRAN$. Either record SGINO or remove the PLOT\r\n          request from the NASTRAN job.\r\n\r\n3010  ***  SYSTEM FATAL MESSAGE 3010, ATTEMPT TO MANIPULATE DATA SET ********\r\n           (FILE ***) BEFORE OPENING FILE.\r\n\r\n          An operation other than OPEN or CLOSE is requested on a file which\r\n          is not defined in the FIST.\r\n\r\n3011  ***  SYSTEM FATAL MESSAGE 3011, ATTEMPT TO WRITE A TRAILER ON FILE ***\r\n           WHEN IT HAS BEEN PURGED.\r\n\r\n          The file did not exist in the FIST when WRTTRL was called.\r\n\r\n3012  ***  SYSTEM FATAL MESSAGE 3012, ATTEMPT TO OPEN DATA SET ******** (FILE\r\n           ***) WHICH HAS ALREADY BEEN OPENED.\r\n\r\n          GINO OPEN was called while the file was already open.\r\n\r\n3013  ***  SYSTEM FATAL MESSAGE 3013, ATTEMPT TO READ DATA SET ******** (FILE\r\n           ***) WHEN IT WAS OPENED FOR OUTPUT.\r\n\r\n          GINO was called to READ a data block opened for output.\r\n\r\n3014  ***  SYSTEM FATAL MESSAGE 3014, ATTEMPT TO WRITE DATA SET ******** (FILE\r\n           ***) WHEN IT WAS OPENED FOR INPUT.\r\n\r\n          GINO was called to WRITE a data block opened for input.\r\n\r\n3015  ***  SYSTEM FATAL MESSAGE 3015, ATTEMPT TO FWDREC ON DATA SET ********\r\n           (FILE ***) WHEN IT WAS OPENED FOR OUTPUT.\r\n\r\n          GINO was called to FWDREC a file opened for output.\r\n\r\n3016  ***  SYSTEM FATAL MESSAGE 3016, **** MATRIX IS NOT IN PROPER FORM IN\r\n           SUBROUTINE ****.\r\n\r\n          The input matrix is not in the proper form or type acceptable to\r\n          the subroutine. Check the trailer information on the matrix and the\r\n          subroutine description for the discrepancy.\r\n\r\n3017  ***  USER WARNING MESSAGE 3017, ONE OR MORE GRID POINT SINGULARITIES HAVE\r\n           NOT BEEN REMOVED BY SINGLE OR MULTI-POINT CONSTRAINTS.\r\n\r\n          Singularities or near singularities may exist at the grid point\r\n          level. The listed singularities should be examined for data errors.\r\n          The check performed here is neither necessary nor sufficient for a\r\n          singular matrix.\r\n\r\n3018  ***  SYSTEM FATAL MESSAGE 3018, MODULE ********, SEQUENCE NO. ***,\r\n           REQUIREMENTS EXCEED AVAILABLE FILES.\r\n\r\n          Segment File Allocator (SFA) did not have sufficient logical files\r\n          available to fulfill the request of the module. Cut module\r\n          requirements or increase the logical files within the computer\r\n          system. See Section 5 of the Programmer's Manual.\r\n\r\n3019  ***  USER FATAL MESSAGE 3019, MAXIMUM LINE COUNT EXCEEDED IN SUBROUTINE\r\n           **** LINE COUNT EQUALS ****.\r\n\r\n          The total number of lines written on the system output file has\r\n          exceeded the set limit (default value is 20,000). If you wish to\r\n          increase this value, include a card of the form \"MAXLINES=n\" in\r\n          your Case Control Deck.\r\n\r\n3020  ***  SYSTEM FATAL MESSAGE 3020, GNFIST OVERFLOWED FIST TABLE AT SEQUENCE\r\n           NO. *** DATA SET ********.\r\n\r\n          Generate FIST (GNFIST) routine overflowed FIST /XFIST/. Increase\r\n          compiled size. See Section 2 of the Programmer's Manual.\r\n\r\n3021  ***  SYSTEM FATAL MESSAGE 3021, FILE *** NOT DEFINED IN FIST.\r\n\r\n          An operation other than OPEN or CLOSE is requested on a file which\r\n          is not defined in the FIST.\r\n\r\n3022  ***  SYSTEM WARNING MESSAGE 3022, DATA SET ******** IS REQUIRED AS INPUT\r\n           AND IS NOT OUTPUT BY A PREVIOUS MODULE IN THE CURRENT DMAP ROUTE.\r\n\r\n          Segment File Allocator (SFA) detected that an input data block to a\r\n          future module has not been generated. If the future module requires\r\n          that this data block exist, the module may terminate with a fatal\r\n          error.\r\n\r\n          This message may occur (and most often does) when the Segment File\r\n          Allocator has removed from its tables (due to a need for more room)\r\n          previously purged data blocks. In this case no error or even a\r\n          warning is implied.\r\n\r\n3023  ***  USER INFORMATION MESSAGE 3023--PARAMETERS FOR SYMMETRIC DECOMPOSITION\r\n           OF DATA BLOCK ******** (N = *****) TIME ESTIMATE = ********.\r\n\r\n           C AVG = ******        S AVG = ******           PC MAX = ******\r\n           PC AVG = ******       ADDITIONAL CORE = ****** PC GROUPS = ******\r\n           SPILL GROUPS = ****** C MAX ******             PREFACE LOOPS = ******\r\n\r\n          N is the number of rows in the data block; TIME is the estimate (in\r\n          seconds) to perform the decomposition; C AVG is the average number\r\n          of active columns per pivot row; PC AVG is the average number of\r\n          passive columns at each active termination point; SPILL GROUPS is\r\n          the number of spill groups; S AVG is the average number of rows in\r\n          each spill group; ADDITIONAL CORE (positive) is the amount of core\r\n          required to avoid spill, (negative) is the amount of unused core; C\r\n          MAX is the maximum number of active columns in any one pivot row;\r\n          PC MAX is the maximum number of passive columns at any one active\r\n          column termination point; PC GROUPS is the number of active column\r\n          termination points; PREFACE LOOPS is the number of times the\r\n          preface of the decomposition subroutine is executed.\r\n\r\n3024  ***  USER INFORMATION MESSAGE 3024, THE BANDWIDTH OF MATRIX **** EXCEEDS\r\n           THE MAXIMUM BANDWIDTH. A MAXIMUM BANDWIDTH OF **** WILL BE USED.\r\n\r\n          This message indicates that a matrix has scattered terms way off\r\n          the diagonal (that is, a large bandwidth). Instead of searching all\r\n          combinations of B and C, the search is started at the maximum\r\n          bandwidth.\r\n\r\n3025  ***  SYSTEM FATAL MESSAGE 3025, ILLEGAL INDEX IN ACTIVE ROW OR COLUMN\r\n           CALCULATION IN ****.\r\n\r\n          Possible machine error. Rerun problem. If error persists, a code\r\n          error exists in the decomposition routine.\r\n\r\n3026  ***  SYSTEM FATAL MESSAGE 3026, MATRIX **** EXCEEDS MAXIMUM ALLOWABLE SIZE\r\n           FOR BANDWIDTH PLUS ACTIVE COLUMNS. BMAX = ****, CMAX = ****.\r\n\r\n          Sufficient space was not reserved for the generation of the B vs. C\r\n          vector. SDCOMP should be recompiled to increase BMAX and CMAX.\r\n\r\n3027  ***  USER INFORMATION MESSAGE 3027, **** DECOMPOSITION OF DATA BLOCK ****\r\n           (N = ****) TIME ESTIMATE IS ******** SECONDS.\r\n\r\n          Gives the estimated time required for a decomposition in seconds\r\n          and the type of matrix, that is, complex, real (double or single\r\n          precision), symmetric, or unsymmetric.\r\n\r\n3028  ***  USER INFORMATION MESSAGE 3028, B = ****, BBAR = ****, C =  ****, CBAR\r\n           = ***, R = ****.\r\n\r\n          Gives the upper bandwidth (B), lower bandwidth (BBAR), number of\r\n          active columns (C), and active rows (CBAR) used in the unsymmetric\r\n          decomposition.\r\n\r\n3029  ***  SYSTEM FATAL MESSAGE 3029, PHYSICAL END-OF-FILE ENCOUNTERED ON DATA\r\n           SET **** (FILE ****).\r\n\r\n          Since logical end-of-files are used by GINO, a physical end-of-file\r\n          indicates an attempt to read beyond valid data.\r\n\r\n3030  ***  USER WARNING MESSAGE 3030, OFP UNABLE TO PROCESS DATA BLOCK. A TABLE\r\n           OF THE DATA BLOCK FOLLOWS.\r\n\r\n3031  ***  Same as message 3032.\r\n\r\n3032  ***  USER FATAL MESSAGE 3032, UNABLE TO FIND SELECTED SET (****) IN TABLE\r\n           (****) IN SUBROUTINE (****).\r\n\r\n          A particular set used in the problem was not included in the data.\r\n          Good examples are loads, initial conditions, or frequency sets.\r\n          Include the required data or change the Case Control Deck to select\r\n          data already in problem. Set zero (0) has a special meaning. A set\r\n          selection was required, but none was made. For example, no METHOD\r\n          was selected for an eigenvalue extraction problem.\r\n\r\n          This message can also indicate that a LOAD card has referenced\r\n          another LOAD card, which is not permitted.\r\n\r\n3033  ***  USER FATAL MESSAGE 3033, SUBCASE ID **** IS REFERENCED ON ONE OR MORE\r\n           RANDPS CARDS BUT IS NOT A CURRENT SUBCASE ID.\r\n\r\n          The RANDPS set selected can only reference subcase identification\r\n          numbers included in the current loop. All subcases in which the\r\n          direct input matrices or transfer functions do not change are run\r\n          together. Either add a subcase with referenced identification\r\n          number, change your RANDPS cards, or change the identification\r\n          numbers on your current subcases.\r\n\r\n3034  ***  USER WARNING MESSAGE 3034, ORTHOGONALITY CHECK FAILED, LARGEST TERM =\r\n           **** EPSI = ****.\r\n\r\n          The off-diagonal terms of the modal mass matrix are larger than the\r\n          user input criteria on the EIGB or EIGR bulk data card. The\r\n          eigenvectors are not orthogonal to this extent. This non-\r\n          orthogonality is especially important if a modal formulation is\r\n          contemplated.\r\n\r\n3035  ***  USER INFORMATION MESSAGE 3035, FOR LOAD ** EPSILON SUB E=*****.\r\n\r\n          This is an informative message reflecting the accumulated round-off\r\n          error of the static solution.\r\n\r\n3036  ***  SYSTEM FATAL MESSAGE 3036, DATA SET ******** IS REQUIRED AS INPUT BUT\r\n           HAS NOT BEEN GENERATED OR PURGED.\r\n\r\n          The above mentioned data set is not accounted for on the OPTP\r\n          checkpoint dictionary. The message indicates a failure of the File\r\n          Name Restart Table. As an interim measure, you can use the ALTER\r\n          feature to execute the proper module to create the needed data set.\r\n\r\n3037  ***  SYSTEM FATAL MESSAGE 3037, JOB TERMINATED IN SUBROUTINE ****.\r\n\r\n          This message designates the subroutine in which the program\r\n          terminated. It should be preceded by a user message which explains\r\n          the cause of the termination. The module in which the program\r\n          terminated can be found by examining the online time messages.\r\n\r\n3038  ***  SYSTEM FATAL MESSAGE 3038, DATA SET *** DOES NOT HAVE MULTIREEL\r\n           CAPABILITY.\r\n\r\n          Computer hardware/software does not support multireel files.\r\n\r\n3039  ***  SYSTEM FATAL MESSAGE 3039, ENDSYS CANNOT FIND SAVE FILE.\r\n\r\n          File cannot be found to save and restore executive tables during\r\n          link switching.\r\n\r\n3040  ***  SYSTEM FATAL MESSAGE 3040, ATTEMPT TO WRITE DATA SET ******** (FILE\r\n           ***) WHEN IT IS AN INPUT FILE.\r\n\r\n          Input data blocks for a module (100 < NAME < 200) may be read only.\r\n\r\n3041  ***  USER WARNING MESSAGE 3041, EXTERNAL GRID POINT *** DOES NOT EXIST OR\r\n           IS NOT A GEOMETRIC GRID POINT. THE BASIC ORIGIN WILL BE USED.\r\n\r\n          The reference grid point specified on the PARAM GRDPNT card for\r\n          weight and balance calculations in GPWG cannot be used.\r\n\r\n3042  ***  USER WARNING MESSAGE 3042, INCONSISTENT SCALAR MASSES HAVE BEEN USED.\r\n           EPSILON/DELTA = *****.\r\n\r\n          GPWG has detected inconsistent scalar masses. Direct masses have\r\n          been used. Skew inertias will result. Examine your scalar masses\r\n          and CONM1 cards.\r\n\r\n3043  ***  USER FATAL MESSAGE 3043, UNCONNECTED EXTRA POINT (MODAL\r\n           COORDINATE=***) HAS BEEN DETECTED BY SUBROUTINE ****.\r\n\r\n          Extra points must be connected via Direct Matrix Input (or Transfer\r\n          Functions) in modal transient or frequency response.\r\n\r\n3044  ***  USER FATAL MESSAGE 3044, A POINT ON NONLINEAR LOAD SET **** NOLIN\r\n           **** IS NOT AN EXTRA POINT. ONLY EXTRA POINTS MAY HAVE NONLINEAR\r\n           LOADS IN A MODAL FORMULATION.\r\n\r\n          Modal transient analysis (DISP Rigid Format 12) will support\r\n          nonlinear loads only on extra points. Pick another nonlinear load\r\n          set.\r\n\r\n3045  ***  USER WARNING MESSAGE 3045, INSUFFICIENT TIME TO COMPLETE THE\r\n           REMAINING ** SOLUTION(S) IN MODULE ***.\r\n\r\n          The time specified on the NASTRAN TIME card has expired in the\r\n          named module. The module will be terminated. NASTRAN will continue\r\n          running until the time on the job card expires. Restart to obtain\r\n          print-out, complete solutions, or rerun problem.\r\n\r\n3046  ***  USER FATAL MESSAGE 3046, YOUR SELECTED LOADING CONDITION, INITIAL\r\n           CONDITION, AND NONLINEAR FORCES ARE NULL. A ZERO SOLUTION WILL\r\n           RESULT.\r\n\r\n          Transient solution must have one of the above nonzero.\r\n\r\n3047  ***  USER FATAL MESSAGE 3047, NO MODES WITHIN RANGE AND LMODES=0. A MODAL\r\n           FORMULATION CANNOT BE MADE.\r\n\r\n          The modes used for a modal formulation must be selected by a PARAM\r\n          card. Set LFREQ, HFREQ, or LMODES to request modes.\r\n\r\n3048  ***  SYSTEM FATAL MESSAGE 3048, BUFFER CONTROL WORD INCORRECT FOR GINO\r\n           **** OPERATION ON DATA BLOCK ****.\r\n\r\n          The buffer control word has been destroyed outside of GINO or an\r\n          attempt to READ a file opened to WRITE or similar error has\r\n          occurred.\r\n\r\n3049  ***  SYSTEM FATAL MESSAGE 3049, GINO UNABLE TO POSITION DATA BLOCK\r\n           CORRECTLY DURING OPERATION.\r\n\r\n          A block number read does not match the expected block number. The\r\n          file has been repositioned outside the GINO environment or a\r\n          machine or operating system error has occurred.\r\n\r\n3050  ***  USER FATAL MESSAGE 3050, INSUFFICIENT TIME REMAINING FOR\r\n           DECOMPOSITION, ****. TIME ESTIMATE IS **** SECONDS.\r\n\r\n          The time estimated for a decomposition exceeds the remaining time.\r\n          Increase the time estimate for the run.\r\n\r\n3051  ***  USER FATAL MESSAGE 3051, INITIAL CONDITION SET **** WAS SELECTED FOR\r\n           A MODAL TRANSIENT PROBLEM. INITIAL CONDITIONS ARE NOT ALLOWED IN SUCH\r\n           A PROBLEM.\r\n\r\n3052  ***  USER WARNING MESSAGE 3052, A RANDOM REQUEST FOR CURVE TYPE - **** -,\r\n           POINT - **** COMPONENT - **** -, SPECIFIES TOO LARGE A COMPONENT ID.\r\n           THE LAST COMPONENT WILL BE USED.\r\n\r\n3053  ***  USER WARNING MESSAGE 3053, THE ACCURACY OF EIGENVALUE **** IS IN\r\n           DOUBT. GIVENS-QR FAILED TO CONVERGE IN **** ITERATIONS.\r\n\r\n          Each eigenvalue is computed to the precision limits of each machine\r\n          consistent with the maximum number of iterations allowed. A\r\n          programming change would be required to increase the maximum\r\n          iteration parameter.\r\n\r\n3054  ***  USER WARNING MESSAGE 3054, THE ACCURACY OF EIGENVECTOR ****\r\n           CORRESPONDING TO THE EIGENVALUE **** IS IN DOUBT.\r\n\r\n          The eigenvector failed to converge in the allowable number of\r\n          iterations. Particular attention should be given to the\r\n          off-diagonal terms of the modal mass matrix (MI) to determine if\r\n          this vector is orthogonal to the remaining vectors. These terms\r\n          will be computed and checked if field 9 on the EIGR card contains a\r\n          nonzero value. The message is expected in the case of close or\r\n          multiple eigenvalues, even though the vectors are properly\r\n          computed.\r\n\r\n3055  ***  USER FATAL MESSAGE 3055, AN ATTEMPT TO MULTIPLY OR MULTIPLY AND ADD\r\n           NON-CONFORMABLE MATRICES TOGETHER WAS MADE IN SUBROUTINE ********.\r\n\r\n          The multiply/add subroutine requires conformable matrices. There\r\n          are two possible cases:\r\n\r\n          1. [X] = [A][B] + [C]\r\n\r\n          The number of columns of [A] must be equal to the number of rows of\r\n          [B] and the number of columns of [C] must be equal to the number of\r\n          columns of [B] and the number of rows of [C] must be equal to the\r\n          number of rows of [A].\r\n\r\n          2. [X] = [A]T[B] + [C]\r\n\r\n          The number of rows of [A] must be equal to the number of rows of\r\n          [B]; the number of columns of [C] must be equal to the number of\r\n          columns of [B] and the number of rows of [C] must be equal to the\r\n          number of columns of [A].\r\n\r\n3056  ***  USER FATAL MESSAGE 3056, NO MASS MATRIX IS PRESENT BUT MASS DATA IS\r\n           REQUIRED.\r\n\r\n          An operation with the mass matrix is required, such as a gravity\r\n          loading condition, but none was created. A typical cause is the\r\n          omission of RHO on the MAT1 card.\r\n\r\n3057  ***  USER FATAL MESSAGE 3057, MATRIX **** IS NOT POSITIVE DEFINITE.\r\n\r\n          A Cholesky decomposition was attempted on the above matrix, but a\r\n          diagonal term was negative or equal to zero, such that the\r\n          decomposition failed.\r\n\r\n3058  ***  USER WARNING MESSAGE 3058, EPSILON IS LARGER THAN **** FOR SUBCASE\r\n           ****.\r\n\r\n          The error residual (either l or )\r\n\r\n                    T\r\n                 {u}  {P}\r\n            =  -------------\r\n                    T\r\n                 {P}  {u}\r\n\r\n          is larger than would be expected for a well conditioned problem.\r\n          Near singularities may exist.\r\n\r\n3059  ***  USER FATAL MESSAGE 3059, SET IDENTIFIER **** DOES NOT EXIST. ERROR\r\n           DETECTED IN SUBROUTINE ****.\r\n\r\n          When describing displacement matrices, only those set identifiers\r\n          (such as M or G) listed under DMAP module MATGPR (see Section 5.5)\r\n          are legal set descriptors. Choose a set descriptor which is legal\r\n          (and describes the matrices to be operated on).\r\n\r\n3060  ***  USER FATAL MESSAGE 3060, READ MODULE FINDS THAT THE INPUT STIFFNESS\r\n           AND/OR MASS MATRIX IS NULL.\r\n\r\n3061  ***  USER INFORMATION MESSAGE 3061, THE MEASURE OF NON-PLANARITY IS ****\r\n           FOR ELEMENT NUMBER ********.\r\n\r\n          The measure of non-planarity for isoparametric quadrilateral\r\n          membrane elements is the distance from actual grid points to mean\r\n          plane divided by the average length of the diagonals. This message\r\n          is issued only when the absolute value of this measure is greater\r\n          than .01.\r\n\r\n3062  ***  SYSTEM FATAL MESSAGE 3062, HMAT MATERIAL ROUTINE CALLED IN A NON-\r\n           HEAT-TRANSFER PROBLEM.\r\n\r\n3063  ***  SYSTEM WARNING MESSAGE 3063, INPUT FORCES DATSDRHA BLOCK DOES NOT\r\n           HAVE CORRECT DATA.\r\n\r\n3064  ***  SYSTEM WARNING MESSAGE 3064, INCONSISTENT HBDY DATA RECORDS. ********\r\n           ********.\r\n\r\n3065  ***  SYSTEM WARNING MESSAGE 3065, THERE IS NO EST DATA FOR HBDY ELEMENT ID\r\n           = ********.\r\n\r\n3066  ***  USER WARNING MESSAGE 3066, THERE IS NO TLOAD1 OR TLOAD2 DATA FOR\r\n           LOAD-ID = ********.\r\n\r\n3067  ***  USER WARNING MESSAGE 3067, LOAD SET ID = ********** IS NOT PRESENT.\r\n\r\n3068  ***  SYSTEM WARNING MESSAGE 3068, UNRECOGNIZED CARD TYPE = **********\r\n           FOUND IN -SLT- DATA BLOCK.\r\n\r\n3069  ***  USER WARNING MESSAGE 3069, OUTPUT DATA BLOCK FOR FORCES IS PURGED.\r\n\r\n3070  ***  USER WARNING MESSAGE 3070, QGE IS REQUIRED BY THIS MODULE AND IS\r\n           PURGED. NO OUTPUT FILE HAS BEEN CREATED.\r\n\r\n3071  ***  SYSTEM WARNING MESSAGE 3071, EXTRA DATA IN RADLST RECORD OF MATPOOL\r\n           DATA BLOCK IGNORED.\r\n\r\n3072  ***  USER WARNING MESSAGE 3072, TOO MANY MATRIX VALUES INPUT VIA RADMTX\r\n           BULK DATA FOR COLUMN ********. EXTRA VALUES IGNORED AS MATRIX SIZE IS\r\n           DETERMINED TO BE OF SIZE ******** FROM RADLST COUNT OF ELEMENT ID-S.\r\n\r\n3073  ***  USER FATAL MESSAGE 3073, NO -HBDY- ELEMENT SUMMARY DATA IS PRESENT\r\n           FOR ELEMENT ID = ********, WHICH APPEARS ON A -RADLST- BULK DATA\r\n           CARD.\r\n\r\n3074  ***  USER FATAL MESSAGE 3074, COLUMN ******** OF THE Y MATRIX IS NULL.\r\n\r\n3075  ***  USER FATAL MESSAGE 3075, INTERMEDIATE MATRIX Y IS SINGULAR.\r\n\r\n3076  ***  SYSTEM FATAL MESSAGE 3076, GPTT DATA IS NOT IN SORT BY INTERNAL ID.\r\n\r\n3077  ***  USER FATAL MESSAGE 3077, THERE IS NO GRID POINT TEMPERATURE DATA OR\r\n           DEFAULT TEMPERATURE DATA FOR SIL POINT ******** AND POSSIBLY OTHER\r\n           POINTS.\r\n\r\n3078  ***  USER FATAL MESSAGE 3078, NO GPTT DATA IS PRESENT FOR TEMPERATURE SET\r\n           ********.\r\n\r\n3079  ***  USER FATAL MESSAGE 3079, THERE ARE NO -HBDY-ELEMENTS PRESENT.\r\n\r\n3080  ***  USER FATAL MESSAGE 3080, ERROR IN QVECT DATA, INTEGER VALUES\r\n           SPECIFIED FOR THERMAL FLUX VECTOR COMPONENTS IN A NON-TRANSIENT\r\n           ANALYSIS. ELEMENT ID = ****.\r\n\r\n3081  ***  SYSTEM FATAL MESSAGE 3081, INCONSISTENT USET DATA DETECTED.\r\n\r\n3082  ***  USER WARNING MESSAGE 3082, M = **********, N = **********.\r\n\r\n          More than one n-set degree-of-freedom is associated with an m-set\r\n          degree-of-freedom. The set relationship to be used is indicated in\r\n          the message.\r\n\r\n3083  ***  USER FATAL MESSAGE 3083, UM POSITION = **********, SIL = **********.\r\n\r\n          An m-set degree-of-freedom is not expressed in terms of an n-set\r\n          degree-of-freedom.\r\n\r\n3084  ***  USER FATAL MESSAGE 3084, THERE IS NO TEMPERATURE DATA FOR SIL NUMBER\r\n           **********.\r\n\r\n3085  ***  USER FATAL MESSAGE 3085, THE PF LOAD VECTOR IS EITHER PURGED OR NULL.\r\n\r\n3086  ***  USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON\r\n(1)        NUMBER 1 (NORMAL CONVERGENCE).\r\n\r\n3086  ***  USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON\r\n(2)        NUMBER 2 (MAXIMUM ITERATIONS).\r\n\r\n3086  ***  USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON\r\n(3)        NUMBER 3 (DIVERGING SOLUTION).\r\n\r\n3086  ***  USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON\r\n(4)        NUMBER 4 (INSUFFICIENT TIME).\r\n\r\n3086  ***  USER INFORMATION MESSAGE 3086, ENTERING SSGHT EXIT MODE BY REASON\r\n(5)        NUMBER 5 (MAXIMUM CONVERGENCE).\r\n\r\n          1. Normal convergence occurs when the solution meets the\r\n          convergence criteria defined by the parameter EPSHT.\r\n          2. Iterations are terminated when the number defined by the\r\n          parameter MAXIT is attained.\r\n          3. Iterations are terminated when the solution diverges.\r\n          4. Iterations are terminated when there is insufficient time to\r\n          complete the next loop.\r\n          5. Iterations are terminated when there is no change to the\r\n          solution vector but the parameter EPSHT criteria was not met.\r\n\r\n3087  ***  USER FATAL MESSAGE 3087, TEMPERATURE SET ********** IS NOT PRESENT IN\r\n           GPTT DATA BLOCK.\r\n\r\n3088  ***  USER FATAL MESSAGE 3088, ILLEGAL GEOMETRY FOR REVOLUTION ELEMENT\r\n           ****.\r\n\r\n3089  ***  USER FATAL MESSAGE 3089, ILLEGAL GEOMETRY FOR TRIANGLE ELEMENT ****.\r\n\r\n3090  ***  USER FATAL MESSAGE 3090, ILLEGAL GEOMETRY FOR QUAD ELEMENT ****.\r\n\r\n3091  ***  SYSTEM WARNING MESSAGE 3091, A TRAPRG ELEMENT = ************** DOES\r\n           NOT HAVE SIDE 1-2 PARALLEL TO SIDE 3-4.\r\n\r\n3092  ***  USER FATAL MESSAGE 3092, TRIARG OR TRAPRG ELEMENT = **************\r\n           POSSESSES ILLEGAL GEOMETRY.\r\n\r\n3093  ***  SYSTEM FATAL MESSAGE 3093, ELEMENT = ******** REASON = ******.\r\n\r\n          A thermal load (via QVOL card) cannot be computed because:\r\n\r\n          1. Fewer than 2 points have been referenced.\r\n          2. Unable to locate SIL value.\r\n          3. Unrecognizable form for element.\r\n          4. Illegal number of points for triangular or quadrilateral\r\n          membranes, plates, or rings.\r\n          5. Illegal number of points for solid hexahedra.\r\n\r\n          1 - 3 apply to rods; triangular or quadrilateral membranes, plates,\r\n          or rings; or solid hexahedra.\r\n\r\n3094  ***  SYSTEM FATAL MESSAGE 3094, SLT LOAD TYPE ********** IS NOT\r\n           RECOGNIZED.\r\n\r\n3095  ***  USER WARNING MESSAGE 3095, ELEMENT TYPE ********** WITH ID =\r\n           *********, AND APPEARING ON EITHER A QVECT, QBDY1, QBDY2, OR QVOL\r\n           LOAD CARD HAS THE SAME ID AS ELEMENT OF ANOTHER TYPE AND IS NOT BEING\r\n           USED FOR LOADING.\r\n\r\n3096  ***  USER FATAL MESSAGE 3096, ELEMENT ID = ********** AS REFERENCED ON A\r\n           QVOL, QBDY1, QBDY2, OR QVECT LOAD CARD COULD NOT BE FOUND AMONG\r\n           ACCEPTABLE ELEMENTS FOR THAT LOAD TYPE.\r\n\r\n3097  ***  USER FATAL MESSAGE 3097, COLUMN ****** IS SINGULAR. UNSYMMETRIC\r\n(1)        ******** DECOMP ABORTED.\r\n\r\n3097  ***  USER FATAL MESSAGE 3097, SYMMETRIC DECOMPOSITION OF DATA BLOCK\r\n(2)        ******** ABORTED BECAUSE THE FOLLOWING COLUMNS ARE SINGULAR --\r\n\r\n          When a matrix being read in is singular (null column or, for\r\n          symmetric decomposition, a zero diagonal), the internal column\r\n          number and type of decomposition is identified. The message does\r\n          not appear for special cases such as less than three columns or for\r\n          proportional rows.\r\n\r\n3098  ***  USER FATAL MESSAGE 3098, QDMEM2 ELEMENT STIFFNESS ROUTINE DETECTS\r\n           ILLEGAL GEOMETRY FOR ELEMENT ID = **********.\r\n\r\n3099  ***  USER FATAL MESSAGE 3099, ELEMENT STIFFNESS COMPUTATION FOR QDMEM2\r\n           ELEMENT ID = ********** IS IMPOSSIBLE DUE TO SINGULARITY IN\r\n           CONSTRAINT EQUATION.\r\n\r\n3100  ***  USER WARNING MESSAGE 3100, ELEMENT THERMAL LOAD COMPUTATION FOR\r\n           QDMEM2 ELEMENT ID = ********** FINDS ILLEGAL GEOMETRY THUS NO LOADS\r\n           OUTPUT FOR ELEMENT-ID NOTED.\r\n\r\n3101  ***  USER WARNING MESSAGE 3101, SINGULARITY OR BAD GEOMETRY FOR QDMEM2\r\n           ELEMENT ID = ********** STRESS OR FORCES WILL BE INCORRECT.\r\n\r\n3102  ***  SYSTEM FATAL MESSAGE 3102, LOGIC ERROR EMA- ****.\r\n(1)\r\n\r\n3102  ***  USER WARNING MESSAGE 3102, SUBROUTINE TRHT1C, UNSTABLE TEMP. VALUE OF\r\n(2)        ****************, COMPUTED FOR TIME STEP ***** AT POINT NUMBER ******\r\n           IN THE ANALYSIS STEP.\r\n\r\n3103  ***  USER WARNING MESSAGE 3103, EMGCOR OF EMG MODULE FINDS EITHER OF DATA\r\n(1)        BLOCKS **** OR **** ABSENT AND THUS ****, MATRIX WILL NOT BE FORMED.\r\n\r\n3103  ***  USER FATAL MESSAGE 3103, SUBROUTINE TRHT1C TERMINATING DUE TO ERROR\r\n(2)        COUNT FOR MESSAGE 3102.\r\n\r\n          This occurs for 10 errors detected in the temperature computation.\r\n\r\n3104  ***  SYSTEM WARNING MESSAGE 3104, EMGCOR FINDS SET (ASSUMED DATA BLOCK\r\n           *****) MISSING. EMG MODULE COMPUTATIONS LIMITED.\r\n\r\n3105  ***  SYSTEM FATAL MESSAGE 3105, EMGPRO FINDS ******** ELEMENTS (ELEMENT\r\n           TYPE ***) UNDEFINED IN EST DATA BLOCK AND/OR ELEMENT ROUTINE.\r\n\r\n3106  ***  SYSTEM FATAL MESSAGE 3106, EMGPRO FINDS THAT ELEMENT TYPE *** HAS EST\r\n           ENTRIES TOO LARGE TO HANDLE CURRENTLY.\r\n\r\n3107  ***  SYSTEM INFORMATION MESSAGE 3107, EMGOLD CALLED BY EMGPRO TO PROCESS\r\n           ******** ELEMENTS.\r\n\r\n3108  ***  SYSTEM FATAL MESSAGE 3108, EMGOUT RECEIVES ILLEGAL FILE TYPE =\r\n           ********.\r\n\r\n3109  ***  SYSTEM FATAL MESSAGE 3109, EMGOUT HAS BEEN SENT AN INVALID DICTIONARY\r\n           WORD-2 = ********** FROM ELEMENT ID = **********.\r\n\r\n3110  ***  SYSTEM FATAL MESSAGE 3110, EMGOUT HAS BEEN CALLED TO WRITE AN\r\n           INCORRECT NUMBER OF WORDS FOR ELEMENT ID = **********.\r\n\r\n3111  ***  SYSTEM FATAL MESSAGE 3111, INVALID NUMBER OF PARTITIONS WERE SENT\r\n           EMGOUT FOR ELEMENT ID = ********** WITH RESPECT TO DATA BLOCK TYPE =\r\n           ***.\r\n\r\n3112  ***  USER INFORMATION MESSAGE 3112, ELEMENTS CONGRUENT TO ELEMENT ID =\r\n           ********** WILL BE RE-COMPUTED AS THERE IS INSUFFICIENT CORE AT THIS\r\n           MOMENT TO HOLD DICTIONARY DATA. ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n3113  ***  SYSTEM INFORMATION MESSAGE 3113, EMGPRO PROCESSING ****** PRECISION\r\n           ELEMENTS (ELEMENT TYPE ***) STARTING WITH ID ********.\r\n\r\n3115  ***  USER FATAL MESSAGE 3115, EMGPRO FINDS ******** ELEMENTS (ELEMENT TYPE\r\n           ***) PRESENT IN A HEAT FORMULATION.\r\n\r\n          This includes CCONEAX, CTORDRG, CTRAPAX, CTRIAAX, CFLUIDi, CSLOTi,\r\n          CSHEAR, CTWIST, CTRBSC, CTRPLT, CQDPLT, CMASSi, CONMi, CAXIFi,\r\n          CAERO1, CTRIM6, CTRPLT1, and CTRSHL elements.\r\n\r\n3116  ***  SYSTEM FATAL MESSAGE 3116, ELEMENT ID ********** SENDS BAD SIL TO\r\n           ROUTINE EMG1B.\r\n\r\n3117  ***  USER WARNING MESSAGE 3117, DIFFERENTIAL STIFFNESS CAPABILITY NOT\r\n           DEFINED FOR ELEMENTS (ELEMENT TYPE ****).\r\n\r\n3118  ***  USER FATAL MESSAGE 3118, ROD ELEMENT NO. ********** HAS ILLEGAL\r\n           GEOMETRY OR CONNECTIONS.\r\n\r\n3119  ***  USER FATAL MESSAGE 3119, INSUFFICIENT CORE TO PROCESS ROD ELEMENTS.\r\n\r\n3120  ***  USER WARNING MESSAGE 3120, IMPROPER CONNECTION ON CELAS ELEMENT,\r\n           **********.\r\n\r\n3121  ***  SYSTEM WARNING MESSAGE 3121, EMGOLD HAS RECEIVED A CALL FOR ELEMENT\r\n           ID **** (ELEMENT TYPE ELEMENT IGNORED AS THIS ELEMENT TYPE IS NOT\r\n           HANDLED BY EMGOLD.\r\n\r\n3122  ***  SYSTEM FATAL MESSAGE 3122, EMGOUT HAS DETERMINED THAT THERE ARE ****\r\n           CONNECTING GRID POINTS FOR ELEMENT ID = ****. THIS IS GREATER THAN\r\n           THE MAXIMUM AS PER /GPTA1/ TABLE FOR THE TYPE OF THIS ELEMENT.\r\n           PROBABLE ERROR IN ELEMENT ROUTINE PROGRAM.\r\n\r\n3123  ***  USER FATAL MESSAGE 3123, PARAMETER NUMBER ***** NOT IN DMAP CALL.\r\n\r\n3124  ***  USER FATAL MESSAGE 3124, PARAMETER NUMBER ***** IS NOT A VARIABLE.\r\n\r\n3125  ***  SYSTEM FATAL MESSAGE 3125, INVALID TABLE NUMBER. **********, IS NO.\r\n           *****, OF *****, PASSED TO PRETABLE.\r\n\r\n3128  ***  SYSTEM WARNING MESSAGE 3128, **** **** AND **** **** ARE EQUIVALENT\r\n           LABELS. CONSULT BOTH FOR INTERCHANGEABLE XREF.\r\n\r\n3129  ***  USER FATAL MESSAGE 3129, SDR3 CAN ONLY PROCESS 30 ELEMENT TYPES,\r\n           PROBLEM HAS ***.\r\n\r\n          The total of 30 different element types includes the sum of the\r\n          different types of structural/scalar elements plus the different\r\n          types of user's DUMMY elements.\r\n\r\n3130  ***  SYSTEM FATAL MESSAGE 3130, LOGIC ERROR ****** OCCURRED IN SDCOMP.\r\n           CONTENTS OF /SDCOMX/ FOLLOW --\r\n\r\n          Numerous error conditions exist in subroutine SDCOMP. The current\r\n          value in the error message helps the programmer to locate the\r\n          specific area of the code where the error occurred. COMMON block\r\n          SDCOMX is dumped in case DIAG 1 was not on.\r\n\r\n3131  ***  USER FATAL MESSAGE 3131, INPUT STIFFNESS AND MASS MATRICES ARE NOT\r\n           COMPATIBLE.\r\n\r\n          The matrices must be of the same size in order to properly perform\r\n          matrix operations.\r\n\r\n3132  ***  SSGHT RECOVERING FROM SEVERE USER CONVERGENCE CRITERIA.\r\n\r\n          A nonlinear heat transfer solution cannot converge because the\r\n          value for EPSHT on a PARAM card is too small. Either change the\r\n          value to one which requires less accuracy or provide for a greater\r\n          number of iterations (MAXIT on another PARAM card) to allow the\r\n          solution to converge.\r\n\r\n3133  ***  USER FATAL MESSAGE 3133, LENGTH OF CRIGDR (RIGID ROD) ELEMENT\r\n           ******** IS ZERO.\r\n\r\n          The end grid points of the element cannot be coincident.\r\n\r\n3134  ***  USER FATAL MESSAGE 3134, CRIGDR (RIGID ROD) ELEMENT ******** IS NOT\r\n           PROPERLY DEFINED.\r\n\r\n          The direction defined by the dependent translational degree of\r\n          freedom cannot be perpendicular (or nearly perpendicular) to the\r\n          element.\r\n\r\n3135  ***  USER FATAL MESSAGE 3135, UNABLE TO PROCESS SEQGP DATA IN SUBROUTINE\r\n           GP1 DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED = **** WORDS.\r\n\r\n3136  ***  USER FATAL MESSAGE 3136, MULTIPLE REFERENCES TO GRID (OR SCALAR)\r\n           POINT ID NO. **** ON SEQGP CARDS.\r\n\r\n3137  ***  USER FATAL MESSAGE 3137, MULTIPLE REFERENCES TO SEQUENCE ID NO. ****\r\n           ON SEQGP CARDS.\r\n\r\n3138  ***  USER FATAL MESSAGE 3138, SEQUENCE ID NO. **** ON SEQGP CARDS IS THE\r\n           SAME AS A GRID (OR SCALAR) POINT ID NO. THAT HAS NOT BEEN\r\n           RESEQUENCED.\r\n\r\n3139  ***  USER FATAL MESSAGE 3139, UNABLE TO PROCESS SEQEP DATA IN SUBROUTINE\r\n           DPD1 DUE TO INSUFFICIENT CORE. ADDITIONAL CORE REQUIRED = **** WORDS.\r\n\r\n3140  ***  USER FATAL MESSAGE 3140, MULTIPLE REFERENCES TO EXTRA POINT ID NO.\r\n           **** ON SEQEP CARDS.\r\n\r\n3141  ***  USER FATAL MESSAGE 3141, MULTIPLE REFERENCES TO SEQUENCE ID NO. ****\r\n           ON SE0EP CARDS.\r\n\r\n3142  ***  USER FATAL MESSAGE 3142, SEQUENCE ID NO. **** ON SEQEP CARDS IS THE\r\n           SAME AS AN EXTRA POINT ID NO. THAT HAS NOT BEEN RESEQUENCED.\r\n\r\n3143  ***  USER INFORMATION MESSAGE 3143, THE EIGENVALUES AND EIGENVECTORS FOUND\r\n           ON THIS RESTART WILL BE APPENDED TO THE ******** EIGENVALUES AND\r\n           EIGENVECTORS PREVIOUSLY CHECKPOINTED.\r\n\r\n          This message is generated when the APPEND feature is being used in\r\n          the case of the Determinant, Inverse Power, and FEER methods of\r\n          real eigenvalue extraction. (See Section 3.4.7).\r\n\r\n3144  ***  USER WARNING MESSAGE 3144, EMGPRO FINDS ******** ELEMENTS (ELEMENT\r\n           TYPE ***) PRESENT IN A HEAT FORMULATION AND IS REPLACING THE SAME BY\r\n           ******** ELEMENTS (ELEMENT TYPE ***).\r\n\r\n          In a HEAT formulation, element types CQDMEM1 and CQDMEM2 are\r\n          automatically replaced by element type CQDMEM.\r\n\r\n3145  ***  USER FATAL MESSAGE 3145, COMPONENT 0 (OR BLANK) SPECIFIED FOR GRID\r\n           POINT ******** ON ******** CARDS.\r\n\r\n3146  ***  USER FATAL MESSAGE 3146, NON-ZERO COMPONENT SPECIFIED FOR SCALAR\r\n           POINT ******** ON ******** CARDS.\r\n\r\n3147  ***  USER FATAL MESSAGE 3147, ENFORCED DISPLACEMENT ON SPC CARDS SPECIFIED\r\n           MORE THAN ONCE FOR THE SAME COMPONENT. SIL VALUE = ********.\r\n\r\n          The use of DIAG 21 in the Executive Control Deck will show the SIL\r\n          (Internal DOF) corresponding to the duplicated component.\r\n\r\n3148  ***  USER FATAL MESSAGE 3148, CRIGD3 (GENERAL RIGID) ELEMENT ******** IS\r\n           NOT PROPERLY DEFINED.\r\n\r\n          The six reference degrees of freedom selected for the element must\r\n          together represent six independent components of motion.\r\n\r\n3149  ***  USER WARNING MESSAGE 3149, USER SPECIFIED NEIGHBORHOOD CENTERED AT\r\n           ORIGIN NOT ALLOWED, CENTER SHIFTED TO THE RIGHT .001.\r\n\r\n          Point of interest in the complex plane (ai, wai), closest to which\r\n          the eigenvalues will be computed, was input as (0.0, 0.0) on an\r\n          EIGC bulk data continuation card. The point automatically used is\r\n          (.001, 0.0).\r\n\r\n3150  ***  USER WARNING MESSAGE 3150, DESIRED NUMBER OF EIGENVALUES ********\r\n           INVALID. SET = 1.\r\n\r\n          Number of accurate roots desired, Ndl, was omitted, input as zero,\r\n          or negative on an EIGC bulk data continuation card. The number\r\n          automatically used is 1.\r\n\r\n3151  ***  USER WARNING MESSAGE 3151, DYNAMIC MATRIX IS SINGULAR (OCCURRENCE **)\r\n           IN NEIGHBORHOOD CENTERED AT ******** ********.\r\n\r\n          Point of interest in the complex plane (ai, wai), closest to which\r\n          the eigenvalues will be computed, was input too close to an\r\n          eigenvalue on an EIGC bulk data continuation card. The point is\r\n          automatically shifted by adding .02 to both the real and imaginary\r\n          parts. If the dynamic matrix is still singular, the next\r\n          neighborhood, if any, is searched.\r\n\r\n3152  ***  USER INFORMATION MESSAGE 3152, SUBROUTINE ALLMAT OUTPUT EIGENVALUE\r\n           **** IS NULL.\r\n\r\n          When an eigenvalue output from subroutine ALLMAT is exactly zero,\r\n          the formula for computing the associated theoretical error test\r\n          fails. The magnitude of the eigenvalue is considered to be 10^-10\r\n          for use in that formula.\r\n\r\n3153  ***  USER WARNING MESSAGE 3153, ATTEMPT TO NORMALIZE NULL VECTOR IN\r\n           SUBROUTINE CFEER4. NO ACTION TAKEN.\r\n\r\n          An eigenvector output from subroutine ALLMAT is a zero vector.\r\n\r\n3154  ***  USER WARNING MESSAGE 3154, SIZE OF REDUCED PROBLEM DECREMENTED ONCE\r\n           (NOW ****) DUE TO NULL ERROR ELEMENT.\r\n\r\n          If subroutine CFEER4 receives a reduced tridiagonal matrix having\r\n          error element dm+1 exactly (0,0), it is impossible to compute\r\n          meaningful theoretical error estimates for any of the eigenvalues.\r\n          The size of the reduced problem is reduced by one, so that dm\r\n          becomes the new error element.\r\n\r\n3155  ***  USER WARNING MESSAGE 3155, REDUCED PROBLEM HAS VANISHED. NO ROOTS\r\n           FOUND.\r\n\r\n          If decrementing the size of the reduced problem (see message 3154)\r\n          causes the size to become zero, the program continues to the next\r\n          neighborhood, if any.\r\n\r\n3156  ***  USER WARNING MESSAGE 3156, SIZE OF REDUCED PROBLEM RESTORED TO ****\r\n           BECAUSE NEXT ERROR ELEMENT WAS ALSO NULL. ERROR ELEMENT SET = ****\r\n           ****.\r\n\r\n          This message follows message 3154. If dm is also exactly zero (in\r\n          addition to dm+1 being exactly zero), then the original reduced\r\n          problem size is restored and dm+1 is set to (, 0), where  = E/100\r\n          and E is the error tolerance on acceptable eigenvalues input on the\r\n          EIGC bulk data card.\r\n\r\n3157  ***  USER WARNING MESSAGE 3157, FEER PROCESS MAY HAVE CALCULATED FEWER\r\n           ACCURATE MODES **** THAN REQUESTED IN THE NEIGHBORHOOD OF **** ****.\r\n\r\n          The desired number of eigenvalues specified in the EIGC bulk data\r\n          continuation card exceeds the additional number that can be\r\n          calculated by the Complex Tridiagonal Reduction (Complex FEER)\r\n          method in the current neighborhood.\r\n\r\n3158  ***  USER WARNING MESSAGE 3158, NO ADDITIONAL MODES CAN BE FOUND BY FEER\r\n           IN THE NEIGHBORHOOD OF **** ****.\r\n\r\n          An initial pseudo-random vector cannot be made orthogonal to the\r\n          existing set of orthogonal vectors (which come from Restart and\r\n          from all prior-neighborhood sets of eigensolutions).\r\n\r\n3159  ***  USER INFORMATION MESSAGE 3159, ALL SOLUTIONS HAVE BEEN FOUND.\r\n\r\n          The FEER method has solved the entire problem. Any additional\r\n          neighborhoods (as specified by the presence of EIGC bulk data\r\n          continuation cards) are ignored.\r\n\r\n3160  ***  USER INFORMATION MESSAGE 3160, MINIMUM OPEN CORE NOT USED BY FEER\r\n           ********** WORDS (************ K BYTES).\r\n\r\n          This message indicates the amount of open core, in both bytes and\r\n          words, not used by FEER.\r\n\r\n3161  ***  USER WARNING MESSAGE 3161, DESIRED NUMBER OF EIGENSOLUTIONS ***** FOR\r\n           NEIGHBORHOOD *** OF *** CENTERED AT ******** ******** EXCEEDS THE\r\n           EXISTING NUMBER *****, ALL EIGENSOLUTIONS WILL BE SOUGHT.\r\n\r\n          The desired number of eigenvalues specified on the EIGC bulk data\r\n          continuation card exceeds the size of the eigenmatrix, which is the\r\n          maximum possible number of existing eigenvalues.\r\n\r\n3162  ***  USER WARNING MESSAGE 3162, ATTEMPT TO NORMALIZE NULL VECTOR. NO\r\n           ACTION TAKEN.\r\n\r\n          The general vector normalization routine (CFNOR1 or CFNOR2) has a\r\n          zero vector input to it.\r\n\r\n3163  ***  USER WARNING MESSAGE 3163, ALL **** SOLUTIONS HAVE FAILED ACCURACY\r\n           TEST. NO ROOTS FOUND.\r\n\r\n          The number of eigensolutions passing the relative error test is\r\n          zero. The maximum allowable error for the relative error test is\r\n          specified in field 7 of the EIGC bulk data card. A detailed list of\r\n          the computed error bounds could have been obtained by requesting\r\n          DIAG 12 in the Executive Control Deck.\r\n\r\n3164  ***  USER INFORMATION MESSAGE 3164, ALL **** SOLUTIONS ARE ACCEPTABLE.\r\n\r\n          All the eigensolutions obtained in the reduced problem\r\n          corresponding to the point of interest pass the relative error\r\n          test. The maximum allowable error for the relative error test is\r\n          specified in field 7 of the EIGC bulk data card. A detailed list of\r\n          the computed error estimates could have been obtained by requesting\r\n          DIAG 12 in the Executive Control Deck.\r\n\r\n3165  ***  USER INFORMATION MESSAGE 3165, **** SOLUTIONS HAVE BEEN ACCEPTED AND\r\n           **** SOLUTIONS HAVE BEEN REJECTED.\r\n\r\n          In each neighborhood defined by a center, some eigensolutions\r\n          passed the relative error test and some did not.\r\n\r\n3166  ***  USER INFORMATION MESSAGE 3166, ***** MORE ACCURATE EIGENSOLUTIONS\r\n           THAN THE ***** REQUESTED HAVE BEEN FOUND FOR NEIGHBORHOOD *** OF ***\r\n           CENTERED AT ******** ********. USE DIAG 12 TO DETERMINE ERROR\r\n           ESTIMATES.\r\n\r\n          The number of eigensolutions passing the relative error test is\r\n          greater than the number requested on the corresponding EIGC bulk\r\n          data continuation card. The maximum allowable error for the\r\n          relative error test is specified in field 7 of the EIGC bulk data\r\n          card. A detailed list of the computed error estimates could have\r\n          been obtained by requesting DIAG 12 in the Executive Control Deck.\r\n\r\n3169  ***  USER WARNING MESSAGE 3169, PRIMARY ID ******** ON A CNGRNT CARD ALSO\r\n           USED AS A SECONDARY ID ON THE SAME CARD. SECONDARY ID IGNORED.\r\n\r\n3170  ***  USER FATAL MESSAGE 3170, PRIMARY ID ******** ON A CNGRNT CARD ALSO\r\n           USED AS A SECONDARY ID ON ANOTHER CNGRNT CARD.\r\n\r\n3171  ***  USER FATAL MESSAGE 3171, SECONDARY ID ******** SPECIFIED AS CONGRUENT\r\n           TO MORE THAN ONE PRIMARY ID.\r\n\r\n3172  ***  USER WARNING MESSAGE 3172, SECONDARY ID ******** REDUNDANTLY\r\n           SPECIFIED ON CNGRNT CARDS. REDUNDANCIES IGNORED.\r\n\r\n3173  ***  USER WARNING MESSAGE 3173, NO NON-ZERO MATERIAL COORDINATE SYSTEM IDS\r\n           ENCOUNTERED IN MODULE CURV. {STRESSES/STRAINS/CURVATURES} IN MATERIAL\r\n           COORDINATE SYSTEM NOT COMPUTED.\r\n\r\n          Stresses or strains/curvatures are computed in module CURV only if\r\n          non-zero material coordinate system ids are specified.\r\n\r\n3174  ***  SYSTEM FATAL MESSAGE 3174, SUBROUTINE CURV* HAS RETURNED WITH ERROR\r\n           CONDITION ***, LOCATION CODE = *** IN SUBROUTINE CURV* FILE NUMBER =\r\n           ***.\r\n\r\n          The information supplied by the message should enable a programmer\r\n          to investigate the cause of the error.\r\n\r\n3175  ***  USER FATAL MESSAGE 3175, TOTAL NUMBER OF DEGREES OF FREEDOM IN THE\r\n           PROBLEM (****) EXCEEDS 65535.\r\n\r\n3176  ***  USER FATAL MESSAGE 3176, BAR ELEMENT NO. **** HAS ILLEGAL GEOMETRY OR\r\n           CONNECTIONS.\r\n\r\n3178  ***  USER FATAL MESSAGE 3178, LOAD SET **** NOT FOUND. REQUIRED FOR\r\n           DEFINITION OF COMBINATION LOAD ****.\r\n\r\n3179  ***  USER FATAL MESSAGE 3179, DUPLICATE LOAD SET **** FOUND IN DEFINITION\r\n           OF COMBINATION LOAD ****.\r\n\r\n3180  ***  USER FATAL MESSAGE 3180, INDEPENDENT COMPONENT SPECIFIED MORE THAN\r\n           ONCE IN AN MPC RELATIONSHIP. SIL VALUE = ****.\r\n\r\n3181  ***  USER FATAL MESSAGE 3181, ATTEMPT TO PERFORM CHOLESKY DECOMPOSITION ON\r\n           A NEGATIVE DEFINITE MATRIX IN SUBROUTINE SDCOMP.\r\n\r\n3182  ***  USER WARNING MESSAGE 3182, INSUFFICIENT CORE TO PROCESS ALL CNGRNT\r\n           CARDS. ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n3199  ***  USER WARNING MESSAGE 3199, NON-FATAL MESSAGES MAY HAVE BEEN LOST BY\r\n           ATTEMPTING TO QUEUE MORE THAN ***** MESSAGES.\r\n\r\n3300  ***  SYSTEM WARNING MESSAGE 3300, INVALID PARAMETER **** **** SUPPLIED TO\r\n           MODULE DIAGONAL, COLUMN SUBSTITUTED.\r\n\r\n3301  ***  USER FATAL MESSAGE 3301, IHEX* ELEMENT NUMBER ******** INSUFFICIENT\r\n           CORE TO COMPUTE ELEMENT MATRIX.\r\n\r\n3302  ***  USER FATAL MESSAGE 3302, IHEX* ELEMENT NUMBER ******** ILLEGAL\r\n           GEOMETRY, text (see below).\r\n\r\n          The type of geometry error is identified in \"text\". The\r\n          possibilities are:\r\n\r\n          AR EXCEEDED, ALFA EXCEEDED, BETA EXCEEDED\r\n          Either correct the element or increase the allowable value on the\r\n          PIHEX card for this element.\r\n\r\n          REVERSED NUMBERING\r\n          The element was numbered in a clockwise fashion rather than\r\n          counter-clockwise as required. This would result in a left-handed\r\n          element coordinate system. Correct the numbering sequence on the\r\n          CIHEXi card for this element.\r\n\r\n          COORDINATES OF TWO POINTS ARE THE SAME\r\n          The coordinates of all of the connected points of the element must\r\n          be different.\r\n\r\n3303  ***  USER FATAL MESSAGE 3303, STRESSES REQUESTED FOR SET *** WHICH\r\n           CONTAINS NO VALID ELEMENT ID-S.\r\n\r\n          The set of elements for which stresses were requested in this\r\n          subcase contains only IDs for nonexistent elements.\r\n\r\n3304  ***  USER FATAL MESSAGE 3304, PLOAD3 CARD FROM LOAD SET ********\r\n           REFERENCES MISSING OR NON-ISOPARAMETRIC ELEMENT ********.\r\n\r\n3305  ***  USER FATAL MESSAGE 3305, PLOAD3 CARD FROM LOAD SET ******** HAS\r\n           INVALID GRID POINT NUMBERS FOR ELEMENT ********.\r\n\r\n          Either the element does not connect the specified grid points, or\r\n          the grid points do not identify the diagonal of a face of the\r\n          element.\r\n\r\n3306  ***  USER FATAL MESSAGE 3306, SINGULAR JACOBIAN MATRIX FOR ISOPARAMETRIC\r\n           ELEMENT NUMBER ********.\r\n\r\n          The element is severely warped or the outer surface of the element\r\n          is folded through itself. Check the connection card for this\r\n          element and the coordinates of the points it connects.\r\n\r\n4000  ***  USER WARNING MESSAGE 4000, ONE SIDE OF ELEMENT ******** CONNECTING\r\n           FOUR POINTS IS NOT APPROXIMATELY PLANAR.\r\n\r\n          Check CWEDGE and CHEXAi cards for order of grid point\r\n          identification numbers, or incorrect grid point identification\r\n          numbers.\r\n\r\n=PAGE=\r\n6.6  FUNCTIONAL MODULE MESSAGES (4001 THROUGH 5000)\r\n\r\n4001  ***  USER FATAL MESSAGE 4001, ELEMENT ******** DOES NOT HAVE CORRECT\r\n           GEOMETRY.\r\n\r\n4002  ***  USER FATAL MESSAGE 4002, MODULE SSG1 DETECTS BAD OR REVERSED GEOMETRY\r\n           FOR ELEMENT ID ********.\r\n\r\n          Check CWEDGE and CHEXAi cards for order of grid point\r\n          identification numbers or incorrect grid point identification\r\n          numbers. Subtetrahedra must have nonzero volume.\r\n\r\n4003  ***  USER FATAL MESSAGE 4003, AN ILLEGAL VALUE OF -NU- HAS BEEN SPECIFIED\r\n           UNDER MATERIAL ******** ID FOR ELEMENT ID ********.\r\n\r\n          Solid WEDGE and HEXAi elements must not have Poisson's ratio equal\r\n          to 0.5.\r\n\r\n4004  ***  USER FATAL MESSAGE 4004, MODULE SMA1 DETECTS BAD OR REVERSED GEOMETRY\r\n           FOR ELEMENT ID ********.\r\n\r\n          Check CWEDGE and CHEXAi cards for order of grid point\r\n          identification numbers, or incorrect grid point identification\r\n          numbers. Subtetrahedra must have nonzero volume.\r\n\r\n4005  ***  USER FATAL MESSAGE 4005, AN ILLEGAL VALUE OF  -NU- HAS BEEN SPECIFIED\r\n           UNDER MATERIAL ******** ID FOR ELEMENT ID ********.\r\n\r\n          Solid TETRA elements must not have Poisson's ratio equal to 0.5.\r\n\r\n4010  ***  USER FATAL MESSAGE 4010, TEMPP3 BULK DATA CARD WITH SETID = ********\r\n           AND ELEMENT ID = ******** DOES NOT HAVE ASCENDING VALUES SPECIFIED\r\n           FOR Z.\r\n\r\n4011  ***  USER FATAL MESSAGE 4011, ELEMENT TEMPERATURE SET ******** CONTAINS\r\n           MULTIPLE TEMPERATURE DATA SPECIFIED FOR ELEMENT ID ********.\r\n\r\n          Temperature for element is specified on more than one bulk data\r\n          card.\r\n\r\n4012  ***  USER FATAL MESSAGE 4012, THERE IS NO ELEMENT, GRID POINT, OR DEFAULT\r\n           TEMPERATURE DATA FOR TEMPERATURE SET ******** WITH RESPECT TO ELEMENT\r\n           ********.\r\n\r\n4013  ***  USER FATAL MESSAGE 4013, PROBLEM LIMITATION OF 66 TEMPERATURE SETS\r\n           HAS BEEN EXCEEDED.\r\n\r\n4014  ***  SYSTEM FATAL MESSAGE 4014, ROUTINE EDTL DETECTS BAD DATA ON\r\n           TEMPERATURE DATA BLOCK FOR SET ID = ********.\r\n\r\n          Data block GPTT should be investigated.\r\n\r\n4015  ***  SYSTEM WARNING MESSAGE 4015, ELEMENT THERMAL AND DEFORMATION LOADING\r\n           NOT COMPUTED FOR ILLEGAL ELEMENT TYPE ******** IN MODULE SSG1.\r\n\r\n          Only certain elements have algorithms for enforced deformation or\r\n          thermal loading. This element type will not produce a load. Check\r\n          DEFORM and TEMPP1, TEMPP2, TEMPP3, and TEMPRB bulk data cards.\r\n\r\n4016  ***  USER FATAL MESSAGE 4016, THERE IS NO TEMPERATURE DATA FOR ELEMENT\r\n           ******** IN SET ********.\r\n\r\n4017  ***  USER FATAL MESSAGE 4017, THERE IS NO TEMPERATURE DATA FOR ELEMENT\r\n           ******** IN SET ********.\r\n\r\n4018  ***  USER FATAL MESSAGE 4018, A SINGULAR MATERIAL MATRIX -D- FOR ELEMENT\r\n           ******** HAS BEEN DETECTED BY ROUTINE SSGKHI WHILE TRYING TO COMPUTE\r\n           THERMAL LOADS WITH TEMPP2 CARD DATA.\r\n\r\n          The element bending load to curvature relation is at fault and\r\n          cannot be inverted.\r\n\r\n4019  ***  SYSTEM FATAL MESSAGE 4019, SDR2E DETECTS INVALID TEMPERATURE DATA FOR\r\n           ********.\r\n\r\n          Data block GPTT should be investigated.\r\n\r\n4020  ***  SYSTEM FATAL MESSAGE 4020, TA1A HAS PICKED UP TEMPERATURE SET\r\n           ******** AND NOT THE REQUESTED SET ********.\r\n\r\n          The requested temperature set ID for temperature-dependent material\r\n          properties cannot be found in data block GPTT.\r\n\r\n4021  ***  SYSTEM FATAL MESSAGE 4021, TA1B HAS PICKED UP TEMPERATURE SET\r\n           ******** AND NOT THE REQUESTED SET ********.\r\n\r\n          The requested temperature set ID for temperature-dependent material\r\n          properties cannot be found in data block GPTT.\r\n\r\n4022  ***  USER FATAL MESSAGE 4022, TA1B FINDS NO ELEMENT, GRIDPOINT, OR DEFAULT\r\n           TEMPERATURE DATA FOR ELEMENT ID = ********.\r\n\r\n4023  ***  USER FATAL MESSAGE 4023, TA1A FINDS NO ELEMENT, GRIDPOINT, OR DEFAULT\r\n           TEMPERATURE DATA FOR ELEMENT ID = ********.\r\n\r\n4024  ***  USER FATAL MESSAGE 4024, NO CYJOIN CARDS WERE SUPPLIED.\r\n\r\n4025  ***  USER FATAL MESSAGE 4025, NO SIDE 1 DATA FOUND.\r\n\r\n4026  ***  USER FATAL MESSAGE 4026, TOO MANY SIDE 1 CARDS.\r\n\r\n4027  ***  USER FATAL MESSAGE 4027, NUMBER OF ENTRIES IN SIDE 1 NOT EQUAL TO\r\n           NUMBER IN SIDE 2.\r\n\r\n4028  ***  USER FATAL MESSAGE 4028, THE CODE FOR GRID POINT, ********** DOES NOT\r\n           MATCH THE CODE FOR GRID POINT **********.\r\n\r\n          A GRID point on SIDE 1 must be connected to a GRID point on SIDE 2\r\n          and a SCALAR point on SIDE 1 must be connected to a SCALAR point on\r\n          SIDE 2.\r\n\r\n4029  ***  USER FATAL MESSAGE 4029, GRID POINT, ********** APPEARS IN BOTH SIDE\r\n           LISTS.\r\n\r\n4030  ***  USER WARNING MESSAGE 4030, COMPONENT *** OF GRID POINTS, **********\r\n           AND ********** CANNOT BE CONNECTED.\r\n\r\n4031  ***  USER FATAL MESSAGE 4031, INSUFFICIENT CORE = **** TO READ DATA ON\r\n           AXIF CARD.\r\n\r\n4032  ***  USER WARNING MESSAGE 4032, NO COMPONENTS OF GRID POINTS, **********\r\n           AND ********** WERE CONNECTED.\r\n\r\n4033  ***  USER FATAL MESSAGE 4033, COORDINATE SYSTEM ID = **** AS SPECIFIED ON\r\n           AXIF CARD IS NOT PRESENT AMONG ANY OF CORD1C, CORD2C, OR CORD2S CARD\r\n           TYPES.\r\n\r\n          Cylindrical type assumed for continuing data check.\r\n\r\n4034  ***  USER FATAL MESSAGE 4034, INSUFFICIENT CORE TO HOLD GRIDB CARD IMAGES.\r\n           ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n4035  ***  USER FATAL MESSAGE 4035, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON\r\n           A BDYLIST CARD AND THERE IS NO DEFAULT FLUID DENSITY SPECIFIED ON THE\r\n           AXIF CARD.\r\n\r\n4036  ***  USER FATAL MESSAGE 4036, INSUFFICIENT CORE TO BUILD BOUNDARY LIST\r\n           TABLE.\r\n\r\n4037  ***  USER FATAL MESSAGE 4037, GRID POINT ********** IS LISTED MORE THAN\r\n           ONCE.\r\n\r\n4038  ***  USER FATAL MESSAGE 4038, RINGFL CARD HAS ID = **** WHICH HAS BEEN\r\n           USED.\r\n\r\n          An identification number of a RINGFL card is not unique.\r\n\r\n4039  ***  USER FATAL MESSAGE 4039, NO COORDINATE SYSTEM DEFINED FOR GRID POINT\r\n           **********.\r\n\r\n4040  ***  USER FATAL MESSAGE 4040, ID = **** APPEARS ON A BDYLIST CARD, BUT NO\r\n           RINGFL CARD IS PRESENT WITH THE SAME ID.\r\n\r\n4041  ***  USER FATAL MESSAGE 4041, ID = **** IS OUT OF PERMISSIBLE RANGE OF 1\r\n           TO 499999.\r\n\r\n          The identification number of a RINGFL card is too large to be\r\n          processed.\r\n\r\n4042  ***  USER FATAL MESSAGE 4042, COORDINATE SYSTEM IS CYLINDRICAL BUT RINGFL\r\n           CARD ID = **** HAS A NONZERO X2 VALUE.\r\n\r\n          The azimuthal angle of a RINGFL point must be zero.\r\n\r\n4043  ***  USER FATAL MESSAGE 4043, COORDINATE SYSTEM IS SPHERICAL BUT RINGFL\r\n           CARD ID = **** HAS A NONZERO X3 VALUE.\r\n\r\n          The azimuthal angle of a RINGFL point must be zero.\r\n\r\n4044  ***  USER FATAL MESSAGE 4044, RINGFL CARD ID = **** HAS SPECIFIED A ZERO\r\n           RADIAL LOCATION.\r\n\r\n4045  ***  USER FATAL MESSAGE 4045, THE BOUNDARY LIST ENTRY FOR ID = **** HAS A\r\n           ZERO CROSS-SECTIONAL LENGTH.\r\n\r\n          A hydroelastic boundary cannot be defined between two RINGFL points\r\n          having the same location. Check BDYLIST and RINGFL.\r\n\r\n4047  ***  USER FATAL MESSAGE 4047, INSUFFICIENT CORE TO HOLD RINGFL IMAGES.\r\n           ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n4048  ***  USER FATAL MESSAGE 4048, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON\r\n           A FSLIST CARD AND THERE IS NO DEFAULT FLUID DENSITY SPECIFIED ON THE\r\n           AXIF CARD.\r\n\r\n4049  ***  USER FATAL MESSAGE 4049, INSUFFICIENT CORE TO BUILD FREE SURFACE LIST\r\n           TABLE. ADDITIONAL CORE NEEDED = **** WORDS.\r\n\r\n4050  ***  USER FATAL MESSAGE 4050, FSLIST CARD HAS INSUFFICIENT IDF DATA, OR\r\n           FSLIST DATA MISSING.\r\n\r\n          A referenced RINGFL point does not exist or the FSLIST card is in\r\n          error. At least two points must be defined.\r\n\r\n4051  ***  USER FATAL MESSAGE 4051, AN MPC CARD HAS A SET ID SPECIFIED = 102.\r\n           SET 102 IS ILLEGAL WHEN FLUID DATA IS PRESENT.\r\n\r\n          This set identification number is reserved for internal use in\r\n          hydroelastic problems.\r\n\r\n4052  ***  USER FATAL MESSAGE 4052, IDF = **** ON A FREEPT CARD DOES NOT APPEAR\r\n           ON ANY FSLIST CARD.\r\n\r\n          A referenced RINFGL point must also appear on a FSLIST card.\r\n\r\n4053  ***  USER FATAL MESSAGE 4053, INSUFFICIENT CORE TO PERFORM OPERATIONS\r\n           REQUIRED AS A RESULT OF FREEPT OR PRESPT DATA CARDS. ADDITIONAL CORE\r\n           NEEDED = **** WORDS.\r\n\r\n4054  ***  USER WARNING MESSAGE 4054, STRESSES OR FORCES REQUESTED FOR SET(S)\r\n           WHICH CONTAIN NO VALID ELEMENTS.\r\n\r\n          Stress or force output requests are not valid for fluid elements.\r\n\r\n4055  ***  USER FATAL MESSAGE 4055, SET ID = 102 MAY NOT BE USED FOR SPC CARDS\r\n           WHEN USING THE HYDROELASTIC-FLUID ELEMENTS.\r\n\r\n          This set identification number is reserved for internal use in\r\n          hydroelastic problems.\r\n\r\n4056  ***  USER FATAL MESSAGE 4056, RECORD ID **** **** IS OUT OF SYNC ON DATA\r\n           BLOCK NUMBER **** AN IFP4 SYSTEM ERROR.\r\n\r\n          The record identification numbers are the values of LOCATE record\r\n          ID. The data block numbers are the GINO file numbers. Error implies\r\n          that IFP4 is possibly operating on the wrong data block. This\r\n          system error should not occur. Message comes from IFP4B.\r\n\r\n4057  ***  USER FATAL MESSAGE 4057, GRIDB CARD WITH ID = **** HAS A REFERENCE\r\n           IDF **** WHICH DOES NOT APPEAR IN A BOUNDARY LIST.\r\n\r\n4058  ***  USER FATAL MESSAGE 4058, THE FLUID DENSITY HAS NOT BEEN SPECIFIED ON\r\n           A CFLUID CARD WITH ID = *** AND THERE IS NO DEFAULT ON THE AXIF CARD.\r\n\r\n4059  ***  USER FATAL MESSAGE 4059, THE FLUID BULK MODULUS HAS NOT BEEN\r\n           SPECIFIED ON A CFLUID CARD WITH ID = **** AND THERE IS NO DEFAULT ON\r\n           THE AXIF CARD.\r\n\r\n4060  ***  SYSTEM FATAL MESSAGE 4060, COORDINATE SYSTEM = **** CANNOT BE FOUND\r\n           IN CSTM DATA.\r\n\r\n          Data blocks MATPOOL and/or CSTM have been changed illegally.\r\n\r\n4061  ***  SYSTEM FATAL MESSAGE 4061, CONNECTED FLUID POINT ID = **** IS MISSING\r\n           BGPDT DATA.\r\n\r\n          Data blocks MATPOOL and/or BGPDT have been changed illegally.\r\n\r\n4062  ***  USER FATAL MESSAGE 4062, DMIG BULK DATA CARD SPECIFIES DATA BLOCK\r\n           **** WHICH ALSO APPEARS ON A DMIAX CARD.\r\n\r\n          A direct input matrix may not be specified by both types of bulk\r\n          data cards.\r\n\r\n4063  ***  USER FATAL MESSAGE 4063, ILLEGAL VALUE **** FOR PARAMETER CTYPE.\r\n\r\n4064  ***  USER FATAL MESSAGE 4064, ILLEGAL VALUES ******** FOR PARAMETERS\r\n           NSEGS, KMAX.\r\n\r\n4065  ***  USER FATAL MESSAGE 4065, ILLEGAL VALUE ******** FOR PARAMETER NLOAD.\r\n\r\n4066  ***  USER FATAL MESSAGE 4066, SECOND OUTPUT DATA BLOCK MUST NOT BE PURGED.\r\n\r\n          The transformation matrix between physical and symmetric components\r\n          does not exist. Ensure that the Case Control subcases are specified\r\n          correctly and that the component loads are properly ordered.\r\n\r\n4067  ***  USER FATAL MESSAGE 4067, VIN HAS ******** COLS, GCYC HAS ********\r\n           ROWS.\r\n\r\n          Follows message 4064 or 4065 indicating illegal values for NSEGS,\r\n          KMAX, or NLOAD. VIN is the first input data block.\r\n\r\n4081  ***  USER FATAL MESSAGE 4081, AXSLOT DATA CARD IS NOT PRESENT OR IS\r\n           INCORRECT.\r\n\r\n          Acoustic analysis data is present and this data card is necessary.\r\n\r\n4082  ***  USER FATAL MESSAGE 4082, INSUFFICIENT CORE TO HOLD ALL GRIDS CARD\r\n           IMAGES.\r\n\r\n          Executive Module IFP5 must hold this data in core. Increase core\r\n          size or decrease amount of data.\r\n\r\n4083  ***  USER FATAL MESSAGE 4083, INSUFFICIENT CORE TO HOLD ALL GRIDF CARD\r\n           IMAGES.\r\n\r\n          Executive Module IFP5 must hold this data in core. Increase core\r\n          size or decrease amount of data.\r\n\r\n4084  ***  USER FATAL MESSAGE 4084, INSUFFICIENT CORE TO HOLD ALL GRIDF CARD\r\n           IMAGES BEING CREATED INTERNALLY DUE TO GRIDS CARDS SPECIFYING AN IDF.\r\n\r\n          Executive Module IFP5 is creating GRIDF cards from GRIDS cards.\r\n          Increase core size.\r\n\r\n4085  ***  USER FATAL MESSAGE 4085, INSUFFICIENT CORE TO CONSTRUCT ENTIRE\r\n           BOUNDARY TABLE FOR SLBDY DATA CARDS.\r\n\r\n          Executive Module IFP5 requires five words of core for each entry in\r\n          the SLBDY cards.\r\n\r\n4086  ***  USER FATAL MESSAGE 4086, CELAS2 DATA CARD HAS ID = *** WHICH IS\r\n           GREATER THAN 10000000, AND 10000000 IS THE LIMIT FOR CELAS2 ID WITH\r\n           ACOUSTIC ANALYSIS DATA CARDS PRESENT.\r\n\r\n          Executive Module IFP5 is generating CELAS2 images and a possible\r\n          conflict of ID numbers exists.\r\n\r\n4087  ***  USER FATAL MESSAGE 4087, SLBDY ID = *** DOES NOT APPEAR ON ANY GRIDS\r\n           DATA CARD.\r\n\r\n          The SLBDY data card has a point listed which does not exist in the\r\n          data.\r\n\r\n4088  ***  USER FATAL MESSAGE 4088, ONE OR MORE OF THE FOLLOWING ID-S NOT EQUAL\r\n           TO -1 HAVE INCORRECT OR NO GEOMETRY DATA. ID = ***, ID = ***, ID =\r\n           ***.\r\n\r\n          The listed GRIDS points may have a bad radius or a slot width\r\n          greater than geometrically possible.\r\n\r\n4089  ***  USER FATAL MESSAGE 4089, RHO AS SPECIFIED ON SLBDY OR AXSLOT DATA\r\n           CARD IS 0.0 FOR ID = ***.\r\n\r\n          A value of density is required to formulate the slot boundary\r\n          matrix tea.\r\n\r\n4090  ***  USER FATAL MESSAGE 4090, ONE OF THE FOLLOWING NON-ZERO IDENTIFICATION\r\n           NUMBERS APPEARS ON SOME COMBINATION GRID, GRIDS, OR GRIDF BULK DATA\r\n           CARDS. ID = ***, ID = ***, ID = ***.\r\n\r\n          All GRID, SPOINT, EPOINT, GRIDS, and GRIDF data cards should have\r\n          unique identification numbers.\r\n\r\n4091  ***  USER FATAL MESSAGE 4091, BAD GEOMETRY OR ZERO COEFFICIENT FOR SLOT\r\n           ELEMENT NUMBER ***.\r\n\r\n          The listed CSLOT3 or CSLOT4 element has its connected points\r\n          defining zero area or its density equal to zero.\r\n\r\n4100  ***  SYSTEM FATAL MESSAGE 4100, OUTPUT3 UNABLE TO OPEN DATA BLOCK\r\n           ********.\r\n\r\n4101  ***  SYSTEM FATAL MESSAGE 4101, OUTPUT3 UNABLE TO FIND NAME FOR DATA BLOCK\r\n           ********.\r\n\r\n4102  ***  SYSTEM FATAL MESSAGE 4102, OUTPUT3 EOF.\r\n\r\n4103  ***  USER INFORMATION MESSAGE 4103, OUTPUT3 HAS PUNCHED MATRIX DATA BLOCK\r\n           ******** ONTO DMI CARDS.\r\n\r\n4104  ***  USER FATAL MESSAGE 4104, ATTEMPT TO PUNCH MORE THAN 99999 DMI CARDS\r\n           FOR A SINGLE MATRIX.\r\n\r\n4105  ***  USER INFORMATION MESSAGE 4105, DATA BLOCK ******** RETRIEVED FROM\r\n           {USER/FORTRAN} TAPE **** NAME OF DATA BLOCK WHEN PLACED ON\r\n           {USER/FORTRAN} TAPE WAS ********.\r\n\r\n4106  ***  SYSTEM FATAL MESSAGE 4106, MODULE INPUTT1 - SHORT REC.\r\n\r\n4107  ***  SYSTEM FATAL MESSAGE 4107, SUBROUTINE INPTT1 UNABLE TO OPEN NASTRAN\r\n           FILE ****.\r\n\r\n4108  ***  SYSTEM FATAL MESSAGE 4108, SUBROUTINE {INPTT1/INPTT2} UNABLE TO OPEN\r\n           OUTPUT DATA BLOCK ****.\r\n\r\n4109  ***  USER FATAL MESSAGE 4109, TAPE **** CANNOT BE SWITCHED. FILE **** IS\r\n           NOT A TAPE.\r\n\r\n4111  ***  USER FATAL MESSAGE 4111, MODULE INPUTT1 IS UNABLE TO SKIP FORWARD\r\n           ********** DATA BLOCKS ON PERMANENT NASTRAN FILE **** NUMBER OF DATA\r\n           BLOCKS SKIPPED = *****.\r\n\r\n4112  ***  USER FATAL MESSAGE 4112, MODULE INPUTT1 - ILLEGAL VALUE FOR SECOND\r\n           PARAMETER = *******************.\r\n\r\n4113  ***  USER FATAL MESSAGE 4113, MODULE {INPUT1/INPUTT2} - ILLEGAL VALUE FOR\r\n           FIRST PARAMETER = *******************.\r\n\r\n4114  ***  USER INFORMATION MESSAGE 4114, DATA BLOCK ******** WRITTEN ON\r\n           {NASTRAN FILE/FORTRAN UNIT} ****, TRLR = ************.\r\n\r\n4115  ***  SYSTEM FATAL MESSAGE 4115, MODULE {OUTPUT1/OUTPUT2} - SHORT REC.\r\n\r\n4117  ***  SYSTEM FATAL MESSAGE 4117, SUBROUTINE OUTPT1 UNABLE TO OPEN NASTRAN\r\n           FILE ****.\r\n\r\n4118  ***  USER FATAL MESSAGE 4118, ***** MODULE OUTPUT1 IS UNABLE TO SKIP\r\n           FORWARD ********** DATA BLOCKS ON PERMANENT NASTRAN FILE ****. ****\r\n           NUMBER OF DATA BLOCKS SKIPPED = *****.\r\n\r\n4119  ***  USER FATAL MESSAGE 4119, MODULE OUTPUT1 - ILLEGAL VALUE FOR SECOND\r\n           PARAMETER = *******************.\r\n\r\n4120  ***  USER FATAL MESSAGE 4120, MODULE {OUTPUT1/OUTPUT2} - ILLEGAL VALUE FOR\r\n           FIRST PARAMETER = *******************.\r\n\r\n4121  ***  USER FATAL MESSAGE 4121, ONLY ONE (1) AXIF CARD ALLOWED IN BULK DATA.\r\n\r\n4122  ***  USER FATAL MESSAGE 4122, AXIF CARD REQUIRED.\r\n\r\n4123  ***  USER FATAL MESSAGE 4123, ONLY ONE (1) FLSYM CARD ALLOWED IN BULK\r\n           DATA.\r\n\r\n4124  ***  USER WARNING MESSAGE 4124, THE SPCADD OR MPCADD UNION CONSISTS OF A\r\n           SINGLE SET.\r\n\r\n4125  ***  USER FATAL MESSAGE 4125, MAXIMUM ALLOWABLE HARMONIC ID IS 99. DATA\r\n           CONTAINS MAXIMUM = ****.\r\n\r\n4126  ***  USER FATAL MESSAGE 4126, BAD DATA OR FORMAT OR NONUNIQUE NAME, DMIAX\r\n           ****.\r\n\r\n4127  ***  USER FATAL MESSAGE 4127, USER TAPE **** NOT SET UP.\r\n\r\n4128  ***  USER FATAL MESSAGE 4128, MODULE OUTPUT1 - END-OF-FILE ENCOUNTERED\r\n           WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****.\r\n\r\n4129  ***  USER FATAL MESSAGE 4129, MODULE OUTPUT1 - END-OF-RECORD ENCOUNTERED\r\n           WHILE ATTEMPTING TO READ TYPE ID CODE ON USER TAPE ****.\r\n\r\n4130  ***  USER FATAL MESSAGE 4130, MODULE {OUTPUT1/OUTPUT2} - ILLEGAL TAPE CODE\r\n           HEADER = *******************.\r\n\r\n4131  ***  USER WARNING MESSAGE 4131, {USER/FORTRAN} TAPE ID CODE  - ******** -\r\n           DOES NOT MATCH THIRD {OUTPUT1/OUTPUT2} DMAP PARAMETER - ********.\r\n\r\n4132  ***  USER FATAL MESSAGE 4132, MODULE INPUTT1 - END-OF-FILE ENCOUNTERED\r\n           WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****.\r\n\r\n4133  ***  USER FATAL MESSAGE 4133, MODULE INPUTT1 - END-OF-RECORD ENCOUNTERED\r\n           WHILE ATTEMPTING TO READ TAPE ID CODE ON USER TAPE ****.\r\n\r\n4134  ***  USER FATAL MESSAGE 4134, MODULE {INPUTT1/INPUTT2} ILLEGAL TAPE CODE\r\n           HEADER = *******************.\r\n\r\n4135  ***  USER WARNING MESSAGE 4135, USER TAPE ID CODE - ******** DOES NOT\r\n           MATCH THIRD {INPUTT1/INPUTT2} DMAP PARAMETER - ******** -.\r\n\r\n4136  ***  USER FATAL MESSAGE 4136, USER TAPE ID CODE - ******** - DOES NOT\r\n           MATCH THIRD {INPUTT1/INPUTT2} DMAP PARAMETER - ******** -.\r\n\r\n4137  ***  USER WARNING MESSAGE 4137, ALL OUTPUT DATA BLOCKS FOR\r\n           {INPUTT1/INPUTT2} ARE PURGED.\r\n\r\n4138  ***  USER WARNING MESSAGE 4138, DATA BLOCK ******** (DATA BLOCK COUNT =\r\n           ****) HAS PREVIOUSLY BEEN RETRIEVED FROM {USER/FORTRAN} TAPE **** AND\r\n           WILL BE IGNORED.\r\n\r\n4139  ***  USER INFORMATION MESSAGE 4139, DATA BLOCK ******** RETRIEVED FROM\r\n           {USER/FORTRAN} TAPE **** (DATA BLOCK COUNT = *****).\r\n\r\n4140  ***  USER WARNING MESSAGE 4140, SECONDARY VERSION OF DATA BLOCK HAS\r\n           REPLACED EARLIER ONE.\r\n\r\n4141  ***  USER WARNING MESSAGE 4141, ONE OR MORE DATA BLOCKS NOT FOUND ON\r\n           {USER/NASTRAN} TAPE.\r\n\r\n4142  ***  USER FATAL MESSAGE 4142, ONE OR MORE DATA BLOCKS NOT FOUND ON USER\r\n           TAPE.\r\n\r\n4143  ***  USER INFORMATION MESSAGE 4143, THIS IS AN UNMODIFIED RESTART.\r\n\r\n4144  ***  USER INFORMATION MESSAGE 4144, THIS IS A MODIFIED RESTART.\r\n\r\n4145  ***  USER INFORMATION MESSAGE 4145, THIS IS A MODIFIED RESTART INVOLVING\r\n           RIGID FORMAT SWITCH.\r\n\r\n4146  ***  SYSTEM FATAL MESSAGE 4146, LOGIC ERROR IN SUBROUTINE XGPI WHILE\r\n           PROCESSING DATA CHANGES FOR MODIFIED RESTART.\r\n\r\n4147  ***  USER INFORMATION MESSAGE 4147, NOTE THAT ADDITIONAL DMAP INSTRUCTIONS\r\n           (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING) NEED TO BE FLAGGED\r\n           FOR EXECUTION IN ORDER TO GENERATE CERTAIN REQUIRED DATA BLOCKS. SUCH\r\n           INSTRUCTIONS AND THE ASSOCIATED DATA BLOCKS ARE IDENTIFIED BELOW.\r\n\r\n4148  ***  USER INFORMATION MESSAGE 4148, NOTE THAT ADDITIONAL DMAP INSTRUCTIONS\r\n           (NOT INDICATED BY AN * IN THE DMAP SOURCE LISTING) NEED TO BE FLAGGED\r\n           FOR EXECUTION SINCE THIS UNMODIFIED RESTART INVOLVES DMAP LOOPING AND\r\n           THE REENTRY POINT IS WITHIN A DMAP LOOP. SUCH INSTRUCTIONS ARE\r\n           IDENTIFIED BELOW. THE EXECUTION WILL, HOWEVER, RESUME AT THE LAST\r\n           REENTRY POINT (DMAP INSTRUCTION NO. ****).\r\n\r\n4149  ***  USER FATAL MESSAGE 4149, ATTEMPT TO ADD MATRICES OF UNEQUAL ORDER IN\r\n           MODULE {ADD/ADD5}.\r\n\r\n5000  ***  USER FATAL MESSAGE 5000, NEG. OR ZERO RADIUS DETECTED FOR CFLUID2\r\n           ELEMENT. ELEMENT NO. ****.\r\n\r\n=PAGE=\r\n6.7  FUNCTIONAL MODULE MESSAGES (5001 THROUGH 6000)\r\n\r\n5001  ***  USER FATAL MESSAGE 5001, NEG. OR ZERO RADIUS DETECTED FOR CFLUID3 OR\r\n           CFLUID4 ELEMENT. ELEMENT NO. ****.\r\n\r\n5002  ***  USER FATAL MESSAGE 5002, INTERIOR ANGLE GREATER THAN OR EQUAL TO 180\r\n           DEGREES. CFLUID4 ELEMENT NO. ****.\r\n\r\n5003  ***  USER FATAL MESSAGE 5003, ZERO XZ VALUE ON RINGFL CARD WITH SPHERICAL\r\n           COORDINATES. FLUID POINT ID = ****.\r\n\r\n5004  ***  USER FATAL MESSAGE 5004, FLUID POINT ID ON CFLUIDI OR RINGFL CARD AT\r\n           99999.\r\n\r\n5011  ***  USER FATAL MESSAGE 5011, FIRST PARAMETER ***** NE TRAILER RECORD\r\n           PARAMETER *****.\r\n\r\n5012  ***  USER FATAL MESSAGE 5012, ENTRY ***** OF SIL TABLE INCOMPATIBLE WITH\r\n           NEXT ENTRY.\r\n\r\n=PAGE=\r\n6.8  FUNCTIONAL MODULE MESSAGES (6001 THROUGH 7000)\r\n\r\n6001  ***  USER FATAL MESSAGE 6001, SUBSTRUCTURE DATA IS REQUIRED WITH THIS\r\n           APPROACH.\r\n\r\n          The program expects a SUBSTRUCTURE card following the CEND card if\r\n          APP DISP, SUBS was used.\r\n\r\n6002  ***  USER WARNING MESSAGE 6002, INCORRECT PHASE DATA.\r\n\r\n          The second word on the substructure command should be PHASEi, i =\r\n          1, 2, 3. The default is 2.\r\n\r\n6003  ***  USER FATAL MESSAGE 6003, ILLEGAL COMMAND OR OPTION DEFINED ON\r\n           PREVIOUS CARD.\r\n\r\n          The program does not recognize the previous card. If any\r\n          \"subcommand\" cards follow this error, they may produce this message\r\n          until a legitimate command card is encountered.\r\n\r\n6004  ***  USER WARNING MESSAGE 6004, NO PREFIX DEFINED AFTER EQUIVALENCE\r\n           COMMAND.\r\n\r\n          A prefix must be defined to identify the equivalent lower level\r\n          basic substructures. To equivalence a basic substructure also\r\n          requires that the prefix be defined.\r\n\r\n6005  ***  USER FATAL MESSAGE 6005, ILLEGAL OR MISSING INPUT DATA GIVEN FOR\r\n           PREVIOUS COMMAND.\r\n\r\n          Either the basic command data is insufficient or mandatory\r\n          additional subcommands are missing.\r\n\r\n6006  ***  USER FATAL MESSAGE 6006, DMAP ALTERS INTERFERE WITH SUBSTRUCTURE\r\n           ALTERS.\r\n\r\n          DMAP instruction numbers on user ALTER data cards overlap or\r\n          conflict with sections automatically modified. Use DIAG 23 to print\r\n          DMAP ALTER package or see Sections 5 and 3. Note that card APP\r\n          DISPLACEMENT, SUBS, 1 suppresses automatic generation of DMAP\r\n          instructions.\r\n\r\n6007  ***  SYSTEM FATAL MESSAGE 6007, IMPROPER FILE SETUP FOR ****.\r\n\r\n          An external I/O operation has been defined but the file is missing\r\n          or the card is improper. Occurs due to previously listed errors or\r\n          from an illegal format in the NPTP or CASECC file.\r\n\r\n6008  ***  USER FATAL MESSAGE 6008, ILLEGAL INPUT ON THE PREVIOUS COMMAND.\r\n           MISSING FILE NAME FOR I/O OPERATION.\r\n\r\n          The EXIO commands, SOFIN, SOFOUT, DUMP, etc. require a file name.\r\n\r\n6009  ***  SYSTEM FATAL MESSAGE 6009, UNRECOVERABLE ERROR CONDITIONS IN\r\n           SUBROUTINE ASDMAP.\r\n\r\n          An unusual combination of previously listed errors or program\r\n          errors will cause this condition.\r\n\r\n6010  ***  SYSTEM FATAL MESSAGE 6010, ILLEGAL VARIABLE TO BE SET IN DMAP\r\n           STATEMENT, (N).\r\n\r\n          The system has encountered an illegal type of word to be inserted\r\n          in a DMAP sequence. For example, a floating point number is used\r\n          instead of an integer on an input card.\r\n\r\n6011  ***  USER FATAL MESSAGE 6011, MISSING PASSWORD OR SOF DATA.\r\n\r\n          The SOF and PASSWORD cards are mandatory. At least one SOF file,\r\n          SOF(1), must be defined.\r\n\r\n6012  ***  SYSTEM FATAL MESSAGE 6012, FILE=**** IS PURGED OR NULL AND IS\r\n           REQUIRED IN PHASE1 SUBSTRUCTURE ANALYSIS.\r\n\r\n          The error will occur due to user DMAP ALTERs or if no grid or\r\n          scalar points are defined.\r\n\r\n6013  ***  USER FATAL MESSAGE 6013, ILLEGAL TYPE OF POINT DEFINED FOR\r\n           SUBSTRUCTURE ANALYSIS. POINT NUMBER=********.\r\n\r\n          An illegal type of grid point (that is, aero or axisymmetric) has\r\n          been encountered.\r\n\r\n6014  ***  USER FATAL MESSAGE 6014, INSUFFICIENT CORE TO LOAD TABLES IN MODULE\r\n           SUBPH1, CORE = ********.\r\n\r\n          At least three words of core per grid point are required.\r\n\r\n6015  ***  USER FATAL MESSAGE 6015, TOO MANY CHARACTERS TO BE INSERTED IN A DMAP\r\n           LINE. N=****.\r\n\r\n          A BCD word has been defined with too many characters to fit the\r\n          space in the DMAP. (Usual limit = 8). Message could also occur if\r\n          any of the subroutines ASCMxx has an error.\r\n\r\n6016  ***  USER FATAL MESSAGE 6016, TOO MANY DIGITS TO BE INSERTED IN DMAP\r\n           VALUE=***.\r\n\r\n          An integer is limited to eight digits.\r\n\r\n6017  ***  USER FATAL MESSAGE 6017, MISSING ENDSUBS CARD.\r\n\r\n6022  ***  USER FATAL MESSAGE 6022, SUBSTRUCTURE ***, GRID POINT ***, COMPONENT\r\n           ***, REFERENCED ON CARD DOES NOT EXIST IN SOLUTION STRUCTURE ***.\r\n\r\n6023  ***  USER WARNING MESSAGE 6023, REQUESTED PLOT SET NO. *******************\r\n           HAS NOT BEEN DEFINED.\r\n\r\n          The requested set must be defined in the plot control deck in Case\r\n          Control.\r\n\r\n6101  ***  SYSTEM FATAL MESSAGE 6101, REQUESTED SOF ITEM DOES NOT EXIST. ITEM\r\n           ***, SUBSTRUCTURE ***.\r\n\r\n          Either the item has never been created or it only pseudo exists in\r\n          a prior dry run.\r\n\r\n6102  ***  SYSTEM FATAL MESSAGE 6102, REQUESTED SUBSTRUCTURE DOES NOT EXIST.\r\n           ITEM ***, SUBSTRUCTURE ***.\r\n\r\n          You have probably misspelled the substructure name or is using the\r\n          wrong SOF.\r\n\r\n6103  ***  SYSTEM FATAL MESSAGE 6103, REQUESTED SOF ITEM HAS INVALID NAME. ITEM\r\n           ***, SUBSTRUCTURE ***.\r\n\r\n          Item name is illegal. Occurs with user DMAP ALTERs only.\r\n\r\n6104  ***  SYSTEM FATAL MESSAGE 6104, ATTEMPT TO CREATE DUPLICATE SUBSTRUCTURE\r\n           NAME ***.\r\n\r\n6105  ***  USER FATAL MESSAGE 6105, ATTEMPT TO RE-USE SUBSTRUCTURE *** IN A\r\n           REDUCE OR COMBINE OPERATION. USE EQUIV SUBSTRUCTURE COMMAND.\r\n\r\n          A single substructure may be reduced or combined more than once\r\n          only after it is given a new name with the EQUIV substructure\r\n          command.\r\n\r\n6106  ***  SYSTEM FATAL MESSAGE 6106, UNEXPECTED END OF GROUP ENCOUNTERED WHILE\r\n           READING ITEM *** SUBSTRUCTURE ***.\r\n\r\n          Required data is missing or is of inconsistent length.\r\n\r\n6107  ***  SYSTEM FATAL MESSAGE 6107, UNEXPECTED END OF ITEM ENCOUNTERED WHILE\r\n           READING ITEM *** SUBSTRUCTURE ***.\r\n\r\n          One or more of the required number of data groups is missing.\r\n\r\n6108  ***  SYSTEM FATAL MESSAGE 6108, INSUFFICIENT SPACE ON SOF FOR ITEM ***,\r\n           SUBSTRUCTURE ***.\r\n\r\n6201  ***  SYSTEM INFORMATION MESSAGE 6201, *** FILES HAVE BEEN ALLOCATED TO\r\n           THE SOF WHERE\r\n           SIZE OF FILE 1   = *** BLOCKS\r\n             :\r\n             :\r\n           SIZE OF FILE *** = ***  BLOCKS\r\n           AND WHERE A BLOCK CONTAINS *** WORDS.\r\n\r\n6202  ***  USER FATAL MESSAGE 6202, THE REQUESTED NUMBER OF FILES IS NON-\r\n           POSITIVE.\r\n\r\n          SOF file declaration is missing or illegal.\r\n\r\n6204  ***  SYSTEM FATAL MESSAGE 6204, SUBROUTINE *** -. THE SUBROUTINE SOFOPN\r\n           SHOULD BE CALLED PRIOR TO ANY OF THE SOF UTILITY SUBROUTINES.\r\n\r\n6205  ***  USER FATAL MESSAGE 6205, SUBROUTINE *** - THE BUFFER SIZE HAS BEEN\r\n           MODIFIED.\r\n\r\n          The BUFFSIZE entry on the NASTRAN card input has been changed.\r\n\r\n6206  ***  USER FATAL MESSAGE 6206, SUBROUTINE *** - WRONG PASSWORD ON SOF FILE\r\n           ***.\r\n\r\n6207  ***  USER FATAL MESSAGE 6207, SUBROUTINE *** - THE SOF FILE *** IS OUT OF\r\n           SEQUENCE.\r\n\r\n          The SOF file declarations are in the wrong order.\r\n\r\n6208  ***  USER FATAL MESSAGE 6208, SUBROUTINE *** - THE SIZE OF THE SOF FILE\r\n           *** HAS BEEN MODIFIED.\r\n\r\n          Only the last SOF file may be increased. None may be decreased.\r\n\r\n6209  ***  USER FATAL MESSAGE 6209, SUBROUTINE *** - THE NEW SIZE OF FILE *** IS\r\n           TOO SMALL.\r\n\r\n6211  ***  USER WARNING MESSAGE 6211, MODULE *** - ITEM *** OF SUBSTRUCTURE ***\r\n           HAS ALREADY BEEN WRITTEN.\r\n\r\n          Program will not write over existing data.\r\n\r\n6212  ***  USER WARNING MESSAGE 6212, MODULE *** - THE SUBSTRUCTURE *** DOES NOT\r\n           EXIST.\r\n\r\n6213  ***  USER WARNING MESSAGE 6213, MODULE *** - *** IS AN ILLEGAL ITEM NAME.\r\n\r\n6215  ***  USER WARNING MESSAGE 6215, MODULE *** - ITEM *** OF SUBSTRUCTURE ***\r\n           PSEUDO-EXISTS ONLY.\r\n\r\n6216  ***  USER WARNING MESSAGE 6216, MODULE *** - ITEM *** OF SUBSTRUCTURE ***\r\n           DOES NOT EXIST.\r\n\r\n6217  ***  USER WARNING MESSAGE 6217, MODULE *** - *** IS AN ILLEGAL PARAMETER\r\n           NAME.\r\n\r\n6218  ***  USER WARNING MESSAGE 6218, MODULE *** - THE SUBSTRUCTURE *** CANNOT\r\n           BE DESTROYED BECAUSE IT IS AN IMAGE SUBSTRUCTURE.\r\n\r\n6219  ***  USER WARNING MESSAGE 6219, MODULE *** RUN EQUALS DRY OR STEP, AND,\r\n           SUBSTRUCTURE *** OR ONE OF THE NEW NAMES ALREADY EXISTS.\r\n\r\n6220  ***  USER WARNING MESSAGE 6220, MODULE *** - RUN EQUALS GO, AND,\r\n           SUBSTRUCTURE *** OR ONE OF THE NEW NAMES DOES NOT EXIST.\r\n\r\n6222  ***  SYSTEM FATAL MESSAGE 6222 - ATTEMPT TO CALL SOFOPN MORE THAN ONCE\r\n           WITHOUT CALLING SOFCLS.\r\n\r\n6223  ***  USER FATAL MESSAGE 6223, SUBROUTINE *** - THERE ARE NO MORE FREE\r\n           BLOCKS AVAILABLE ON THE SOF.\r\n\r\n6224  ***  SYSTEM FATAL MESSAGE 6224, SOF UTILITY SUBROUTINE ***.\r\n\r\n          Text follows the message to describe the error.\r\n\r\n6225  ***  SYSTEM FATAL MESSAGE 6225, BLOCK NUMBER *** OUT OF RANGE OF SOF\r\n           FILES.\r\n\r\n          This means the SOF file does not contain all the data expected.\r\n          Check previous jobs to verify where the intended SOF write\r\n          operation may have failed, or determine if more information was\r\n          expected.\r\n\r\n6226  ***  SYSTEM WARNING MESSAGE 6226, SUBROUTINE SOFIO - HIBLK PARAMETER FOR\r\n           SOFIO DID NOT CONFORM TO PHYSICAL FILE. PARAMETER VALUE HAS BEEN\r\n           CHANGED FROM *** TO ***.\r\n\r\n          This can be caused when the previous run using the SOF terminated\r\n          abnormally. (CDC only.)\r\n\r\n6227  ***  SYSTEM FATAL MESSAGE 6227, AN ATTEMPT HAS BEEN MADE TO OPERATE ON THE\r\n           MATRIX ITEM *** OF SUBSTRUCTURE *** USING SFETCH.\r\n\r\n6228  ***  USER INFORMATION MESSAGE 6228, SUBSTRUCTURE *** IS ALREADY EQUIVALENT\r\n           TO SUBSTRUCTURE ***. ONLY ITEMS NOT PREVIOUSLY EXISTING FOR *** HAVE\r\n           BEEN MADE EQUIVALENT.\r\n\r\n6229  ***  USER INFORMATION MESSAGE 6229, SUBSTRUCTURE *** HAS BEEN RENAMED TO\r\n           ***.\r\n\r\n6230  ***  USER WARNING MESSAGE 6230, SUBSTRUCTURE *** HAS NOT BEEN RENAMED\r\n           BECAUSE *** ALREADY EXISTS ON THE SOF.\r\n\r\n6231  ***  USER WARNING MESSAGE 6231, INSUFFICIENT CORE AVAILABLE OR ILLEGAL\r\n           ITEM FORMAT REQUIRES AN UNFORMATTED DUMP TO BE PERFORMED FOR ITEM ***\r\n           OF SUBSTRUCTURE ***.\r\n\r\n6232  ***  SYSTEM FATAL MESSAGE 6232, ERROR OCCURRED WHILE INITIALIZING SOF FILE\r\n           ***.\r\n\r\n          An error occurred while initializing an SOF file on the IBM\r\n          360/370. The nature of the error follows the message.\r\n\r\n6233  ***  USER WARNING MESSAGE 6233, THE ITEM STRUCTURE HAS BEEN CHANGED ON THE\r\n           SOF. NEW CAPABILITIES USING THESE ITEMS MAY NOT BE USED WITH THIS\r\n           SOF.\r\n\r\n6234  ***  USER FATAL MESSAGE 6234, THE NASTRAN BUFFER SIZE IS TOO SMALL FOR THE\r\n           SOF FILE. MINIMUM BUFFER SIZE IS ***.\r\n\r\n6235  ***  USER WARNING MESSAGE 6235, THE OLD SOF CONTAINS NO ITEM STRUCTURE\r\n           INFORMATION. THE LEVEL 16.0 ITEM STRUCTURE WILL BE USED.\r\n\r\n6236  ***  USER WARNING MESSAGE 6236, DURING THE CREATION OF A NEW IMAGE\r\n           SUBSTRUCTURE NAME, THE LAST CHARACTER OF SUBSTRUCTURE NAME *** WAS\r\n           TRUNCATED TO MAKE ROOM FOR THE PREFIX.\r\n\r\n6237  ***  SYSTEM WARNING MESSAGE 6237, THE SOFTOC ROUTINE CAN HANDLE ONLY ***\r\n           ITEMS. ADDITIONAL ITEMS WILL NOT BE SHOWN.\r\n\r\n6301  ***  SYSTEM FATAL MESSAGE 6301, DATA MISSING IN GO MODE FOR SUBSTRUCTURE\r\n           ***, ITEM ***.\r\n\r\n          You have deleted an item created in dry run mode or the item has\r\n          been lost lost due to errors.\r\n\r\n6302  ***  SYSTEM FATAL MESSAGE 6302, *** IS ILLEGAL MATRIX TYPE FOR MODULE\r\n           COMB2.\r\n\r\n6303  ***  SYSTEM FATAL MESSAGE 6303, HORG TRANSFORMATION MATRIX FOR\r\n           SUBSTRUCTURE *** CANNOT BE FOUND ON SOF.\r\n\r\n6304  ***  SYSTEM FATAL MESSAGE 6304, MODULE COMB2 INPUT MATRIX NUMBER *** FOR\r\n           SUBSTRUCTURE *** HAS INCOMPATIBLE DIMENSIONS.\r\n\r\n          Matrix dimensions conflict with those of its H or G transformation\r\n          matrix.\r\n\r\n6305  ***  SYSTEM WARNING MESSAGE 6305, RECORD NUMBER *** OF CASESS IS NOT A\r\n           RECOVER RECORD. IT IS A *** RECORD.\r\n\r\n          The step parameter for module RCOVR in incorrect. It should be the\r\n          CASESS record number of a recover record.\r\n\r\n6306  ***  USER WARNING MESSAGE 6306, ATTEMPT TO RECOVER DISPLACEMENTS FOR NON-\r\n           EXISTENT SUBSTRUCTURE ***.\r\n\r\n6307  ***  USER WARNING MESSAGE 6307, WHILE ATTEMPTING TO RECOVER DISPLACEMENTS\r\n           FOR SUBSTRUCTURE ***, THE DISPLACEMENTS FOR SUBSTRUCTURE *** WERE\r\n           FOUND TO EXIST IN DRY RUN FORM ONLY.\r\n\r\n          Before you can recover displacements of any substructure, you must\r\n          first perform an actual solution. See RUN substructure command.\r\n\r\n6308  ***  USER WARNING MESSAGE 6308, NO SOLUTION AVAILABLE FROM WHICH\r\n           DISPLACEMENTS FOR SUBSTRUCTURE *** CAN BE RECOVERED. HIGHEST LEVEL\r\n           SUBSTRUCTURE FOUND WAS ***.\r\n\r\n          Solve the highest level substructure found or combine it to an even\r\n          higher level and solve.\r\n\r\n6309  ***  SYSTEM FATAL MESSAGE 6309, INSUFFICIENT TIME REMAINING TO RECOVER\r\n           DISPLACEMENTS OF SUBSTRUCTURE *** FROM THOSE OF SUBSTRUCTURE ***.\r\n           (PROCESSING USER RECOVER REQUEST FOR SUBSTRUCTURE ***.)\r\n\r\n6310  ***  SYSTEM WARNING MESSAGE 6310, INSUFFICIENT SPACE ON SOF TO RECOVER\r\n           DISPLACEMENTS OF SUBSTRUCTURE *** FROM THOSE OF SUBSTRUCTURE ***\r\n           WHILE PROCESSING USER RECOVER REQUEST FOR SUBSTRUCTURE ***.\r\n\r\n          Use the SOF substructure command and increase the size of the SOF\r\n          and/or add more SOF units. Alternatively, use EDIT to remove\r\n          unwanted data.\r\n\r\n6311  ***  SYSTEM WARNING MESSAGE 6311, SDCOMP DECOMPOSITION FAILED ON KOO\r\n           MATRIX FOR SUBSTRUCTURE ***.\r\n\r\n          The KOO matrix has been changed from the original REDUCE run. The\r\n          local effects of non-boundary loads will be ignored.\r\n\r\n6312  ***  USER INFORMATION MESSAGE 6312, LEVEL *** DISPLACEMENTS FOR\r\n           SUBSTRUCTURE *** HAVE BEEN RECOVERED AND SAVED ON SOF.\r\n\r\n6313  ***  SYSTEM WARNING MESSAGE 6313, INSUFFICIENT CORE FOR RCOVR MODULE\r\n           WHILE TRYING TO PROCESS PRINTOUT DATA BLOCKS FOR SUBSTRUCTURE.\r\n\r\n6314  ***  SYSTEM WARNING MESSAGE 6314, OUTPUT REQUEST CANNOT BE HONORED. RCOVR\r\n           MODULE OUTPUT DATA BLOCK *** IS PURGED.\r\n\r\n          An illegal type of output for the solution rigid format has been\r\n          requested.\r\n\r\n6315  ***  USER WARNING MESSAGE 6315, RCOVR MODULE IS UNABLE TO FIND\r\n           SUBSTRUCTURE *** AMONG THOSE ON EQSS. LOAD SET *** FOR THAT\r\n           SUBSTRUCTURE WILL BE IGNORED IN CREATING THE SOLN ITEM FOR FINAL\r\n           SOLUTION STRUCTURE ***.\r\n\r\n          Illegal name used in PRINT or SAVE request.\r\n\r\n6316  ***  USER WARNING MESSAGE 6316, RCOVR MODULE IS UNABLE TO FIND LOAD SET\r\n           *** FOR SUBSTRUCTURE *** AMONG THOSE ON LODS. IT WILL BE IGNORED IN\r\n           CREATING THE SOLN ITEMS FOR FINAL SOLUTION STRUCTURE ***.\r\n\r\n          Case Control data was probably changed between SOLVE and the first\r\n          RECOVER steps. Message 6331 will define the error in SOLVE.\r\n\r\n6317  ***  SYSTEM WARNING MESSAGE 6317, RECOVER OF DISPLACEMENTS FOR\r\n           SUBSTRUCTURE *** ABORTED.\r\n\r\n6318  ***  SYSTEM WARNING MESSAGE 6318, OUTPUT REQUEST FOR REACTION FORCES\r\n           IGNORED.\r\n\r\n6319  ***  SYSTEM WARNING MESSAGE 6319, DISPLACEMENT MATRIX FOR SUBSTRUCTURE ***\r\n           MISSING. DISPLACEMENT OUTPUT REQUESTS CANNOT BE HONORED AND SPCFORCE\r\n           OUTPUT REQUESTS CANNOT BE HONORED UNLESS THE REACTIONS HAVE BEEN\r\n           PREVIOUSLY COMPUTED.\r\n\r\n6320  ***  SYSTEM WARNING MESSAGE 6320, LOADC DATA MISSING FOR SUBSTRUCTURE ***,\r\n           EXTERNAL STATIC LOAD SET ***.\r\n\r\n          No LOADC bulk data cards can be found on GEOM4 or GEOM4 is purged.\r\n\r\n6321  ***  USER INFORMATION MESSAGE 6321, SUBSTRUCTURE PHASE3 RECOVER FOR FINAL\r\n           SOLUTION STRUCTURE *** AND BASIC SUBSTRUCTURE ***.\r\n\r\n6322  ***  SYSTEM FATAL MESSAGE 6322, SOLN ITEM HAS INCORRECT RIGID FORMAT\r\n           NUMBER. PHASE2 RIGID FORMAT WAS *** AND PHASE3 IS ***.\r\n\r\n          The Rigid Format of Phase 3 must be the same as that used in Phase\r\n          2 to obtain the solution.\r\n\r\n6323  ***  USER WARNING MESSAGE 6323, NO EIGENVALUES FOR THIS SOLUTION.\r\n\r\n6324  ***  USER FATAL MESSAGE 6324, PHASE3 RECOVER ATTEMPTED FOR NON-BASIC\r\n           SUBSTRUCTURE ***.\r\n\r\n          Substructure Phase 3 can be executed only for basic substructures\r\n          or their equivalents.\r\n\r\n6325  ***  USER WARNING MESSAGE 6325, SUBSTRUCTURE PHASE1, BASIC SUBSTRUCTURE\r\n           *** ALREADY EXISTS ON SOF. ITEMS WHICH ALREADY EXIST WILL NOT BE\r\n           REGENERATED.\r\n\r\n          Use DESTROY or EDIT to remove items which are to be regenerated.\r\n\r\n6326  ***  USER WARNING MESSAGE 6326, SUBSTRUCTURE ***, ITEM *** ALREADY EXISTS\r\n           ON SOF.\r\n\r\n          Follows message 6325, above.\r\n\r\n6327  ***  USER INFORMATION MESSAGES 6327, SUBSTRUCTURE ***, SUBCASE *** IS\r\n           IDENTIFIED BY *** SET *** IN LODS ITEM. REFER TO THIS NUMBER ON LOADC\r\n           CARDS.\r\n\r\n6328  ***  SYSTEM FATAL MESSAGE 6328, MORE THAN 100 SUBCASES DEFINED. SGEN\r\n           PROGRAM LIMIT EXCEEDED.\r\n\r\n          To increase this limit to more than 100 subcases, change the\r\n          dimensions of local arrays LOAD, MPC, and SPC in subroutine SGEN\r\n          and change the IF test which causes termination.\r\n\r\n6329  ***  USER FATAL MESSAGE 6329, SUBSTRUCTURE ***, REFERENCES ON *** CARD, IS\r\n           NOT A COMPONENT BASIC SUBSTRUCTURE OF SOLUTION STRUCTURE ***.\r\n\r\n6330  ***  USER FATAL MESSAGE 6330, SOLUTION SUBSTRUCTURE *** -- *** AND CARDS\r\n           CANNOT BE USED TOGETHER. USE EITHER ONE, BUT NOT BOTH.\r\n\r\n6331  ***  USER FATAL MESSAGE 6331, SOLUTION SUBSTRUCTURE *** -- LOADC SET\r\n           REFERENCES UNDEFINED LOAD SET *** OF BASIC SUBSTRUCTURE ***.\r\n\r\n6332  ***  SYSTEM FATAL MESSAGE 6332, CANNOT FIND LOAD VECTOR NUMBER *** IN LOAD\r\n           MATRIX OF *** COLUMNS BY *** ROWS FOR SOLUTION STRUCTURE ***.\r\n\r\n          The wrong load matrix is being used.\r\n\r\n6333  ***  USER FATAL MESSAGE 6333, *** IS AN INVALID FORMAT PARAMETER FOR\r\n           MODULE EXIO.\r\n\r\n          An illegal value was given in the SOFIN, SOFOUT, DUMP, or RESTORE\r\n          command.\r\n\r\n6334  ***  USER WARNING MESSAGE 6334, EXIO DEVICE PARAMETER SPECIFIES TAPE, BUT\r\n           UNIT *** IS NOT A PHYSICAL TAPE.\r\n\r\n6335  ***  USER WARNING MESSAGE 6335, *** IS AN INVALID DEVICE FOR MODULE EXIO.\r\n\r\n6336  ***  USER INFORMATION MESSAGE 6336, EXIO FILE IDENTIFICATION. PASSWORD\r\n           ***. DATE ***. TIME ** ** **.\r\n\r\n          This message is caused when an I/O operation is requested. The date\r\n          (in the form mm/dd/yy) and the time (in the form hh-mm-ss) indicate\r\n          when the operation began.\r\n\r\n6337  ***  USER INFORMATION MESSAGE 6337, *** BLOCKS (*** SUPERBLOCKS) OF THE\r\n           SOF SUCCESSFULLY DUMPED TO EXTERNAL FILE ***.\r\n\r\n6338  ***  USER WARNING MESSAGE 6338, *** IS AN INVALID MODE PARAMETER FOR\r\n           MODULE EXIO.\r\n\r\n6339  ***  USER WARNING MESSAGE 6339, *** IS AN INVALID FILE POSITIONING\r\n           PARAMETER FOR MODULE EXIO.\r\n\r\n6340  ***  USER WARNING MESSAGE 6340, SUBSTRUCTURE *** ITEM *** PSEUDO-EXISTS\r\n           ONLY AND CANNOT BE COPIED OUT BY EXIO.\r\n\r\n6341  ***  USER INFORMATION MESSAGE 6341, SUBSTRUCTURE *** ITEM *** SUCCESSFULLY\r\n           COPIED FROM *** TO *** (***, ***).\r\n\r\n          The message follows message 6336 to indicate the substructure item\r\n          that was copied, the input file, and the output file. The\r\n          information in parentheses is the date and time in the same form as\r\n          described under message 6336.\r\n\r\n6342  ***  USER WARNING MESSAGE 6342, SOF RESTORE OPERATION FAILED. THE RESIDENT\r\n           SOF IS NOT EMPTY.\r\n\r\n          Use the NEW option on the SOF substructure command to create a\r\n          \"new\" SOF.\r\n\r\n6343  ***  SYSTEM WARNING MESSAGE 6343, *** IS NOT AN EXTERNAL SOF FILE.\r\n\r\n          Either (1) tape contained no data, (2) first record read was not an\r\n          ID or header record, (3) tape was incorrectly positioned, or (4)\r\n          GINO buffer size was changed.\r\n\r\n6344  ***  USER INFORMATION MESSAGE 6344, SOF RESTORE OF *** BLOCKS SUCCESSFULLY\r\n           COMPLETED.\r\n\r\n6345  ***  USER WARNING MESSAGE 6345, SUBSTRUCTURE *** ITEM *** IS DUPLICATED ON\r\n           EXTERNAL FILE ***. OLDER VERSION (***, ***) IS IGNORED.\r\n\r\n6346  ***  USER WARNING MESSAGE 6346, SUBSTRUCTURE *** ITEM *** NOT COPIED. IT\r\n           ALREADY EXISTS ON THE SOF.\r\n\r\n6347  ***  USER INFORMATION MESSAGE 6347, SUBSTRUCTURE *** ADDED TO THE SOF.\r\n\r\n           HIGHER LEVEL SUBSTRUCTURE ********\r\n\r\n           COMBINED SUBSTRUCTURE     ********\r\n\r\n           LOWER LEVEL SUBSTRUCTURE  ********\r\n\r\n6348  ***  USER WARNING MESSAGE 6348, SUBSTRUCTURE *** ITEM *** NOT FOUND ON\r\n           EXTERNAL FILE ***.\r\n\r\n6349  ***  USER INFORMATION MESSAGE 6349, CONTENTS OF EXTERNAL SOF FILE ***\r\n           FOLLOW.\r\n\r\n6350  ***  USER WARNING MESSAGE 6350, SOF APPEND OF FILE *** FAILED. \"text\"\r\n\r\n          The \"text\" explains why the append operation failed.\r\n\r\n6351  ***  USER WARNING MESSAGE 6351, DUPLICATE SUBSTRUCTURE NAME *** FOUND\r\n           DURING SOF APPEND OF FILE ***. THE SUBSTRUCTURE WITH THIS NAME ON THE\r\n           FILE BEING APPENDED WILL BE PREFIXED WITH \"Q\".\r\n\r\n6352  ***  USER INFORMATION MESSAGE 6352, EXTERNAL SOF FILE *** SUCCESSFULLY\r\n           APPENDED TO THE RESIDENT SOF.\r\n\r\n6353  ***  USER INFORMATION MESSAGE 6353, SUBSTRUCTURE *** ITEM *** HAS BEEN\r\n           SUCCESSFULLY COMPRESSED.\r\n\r\n6354  ***  USER INFORMATION MESSAGE 6354, THERE ARE *** FREE BLOCKS (*** WORDS)\r\n           ON THE RESIDENT SOF.\r\n\r\n6355  ***  SYSTEM INFORMATION MESSAGE 6355, EXIO TERMINATED WITH ERRORS. DRY RUN\r\n           MODE ENTERED.\r\n\r\n          The parameter DRY has been set to -2 to prevent matrix operations\r\n          from occurring down stream in this run.\r\n\r\n6356  ***  USER WARNING MESSAGE 6356, *** IS AN INVALID UNIT FOR MODULE EXIO,\r\n           EXTERNAL FORMAT.\r\n\r\n6357  ***  USER INFORMATION MESSAGE 6357, SUBSTRUCTURE *** ITEM *** SUCCESSFULLY\r\n           COPIED FROM *** TO ***.\r\n\r\n6358  ***  SYSTEM WARNING MESSAGE 6358, ILLEGAL RIGID FORMAT NUMBER *** IN SOLN\r\n           ITEM FOR SUBSTRUCTURE ***. THE ITEM WILL NOT BE COPIED.\r\n\r\n6359  ***  USER INFORMATION MESSAGE 6359, SUBSTRUCTURE *** WAS ORIGINALLY A\r\n           SECONDARY SUBSTRUCTURE. ON THIS SOF, IT IS A PRIMARY SUBSTRUCTURE.\r\n\r\n6360  ***  SYSTEM WARNING MESSAGE 6360, SOFOUT (EXTERNAL) ENCOUNTERED AN\r\n           UNSUPPORTED TABLE ITEM ***. THE ITEM WILL NOT BE COPIED.\r\n\r\n6361  ***  USER INFORMATION MESSAGE 6361, PHASE1 SUCCESSFULLY EXECUTED FOR\r\n           SUBSTRUCTURE ***.\r\n\r\n6362  ***  USER FATAL MESSAGE 6362, MPCS SET *** IS ILLEGAL. SUBSTRUCTURE ***\r\n           GRID POINT *** COMPONENT *** SIGNIFIES A NON-UNIQUE DEPENDENT DEGREE\r\n           OF FREEDOM.\r\n\r\n6363  ***  USER WARNING MESSAGE 6363, INCOMPLETE DATA FOR SUBSTRUCTURE *** ITEM\r\n           *** ON ***. THE ALL OUTPUT WILL BE PRODUCED.\r\n\r\n6365  ***  USER WARNING MESSAGE 6365, REQUESTED OUTPUT SET ID *** IS NOT\r\n           DECLARED IN CASE CONTROL, ALL OUTPUT WILL BE PRODUCED.\r\n\r\n          Add \"SET N = list\" to the Case Control Deck.\r\n\r\n6366  ***  USER WARNING MESSAGE 6366, THE RECOVER OUTPUT COMMAND SORT MUST\r\n           APPEAR BEFORE THE FIRST BASIC SUBCOMMAND. ANY OTHER SORT COMMANDS ARE\r\n           IGNORED.\r\n\r\n6367  ***  USER WARNING MESSAGE 6367, ILLEGAL FORMAT ON THE RECOVER OUTPUT\r\n           COMMAND ***, COMMAND IGNORED.\r\n\r\n6368  ***  USER WARNING MESSAGE 6368, THE SUBSTRUCTURE *** APPEARING ON A BASIC\r\n           COMMAND IS NOT A COMPONENT OF ***. ALL OUTPUT REQUESTS UNTIL THE NEXT\r\n           BASIC, PRINT, OR SAVE ARE IGNORED.\r\n\r\n6369  ***  USER FATAL MESSAGE 6369, SOLN ITEM HAS INCORRECT RIGID FORMAT NUMBER.\r\n           SOLUTION RIGID FORMAT WAS *** AND CURRENT NASTRAN EXECUTION RIGID\r\n           FORMAT IS ***.\r\n\r\n6370  ***  USER FATAL MESSAGE 6370, A SOLUTION ON SUBSTRUCTURE *** WAS ATTEMPTED\r\n           BUT PREVIOUS SOLUTION DATA EXISTED IN ITEM ***. THIS DATA MUST BE\r\n           DELETED BEFORE A NEW SOLUTION CAN BE PERFORMED.\r\n\r\n6371  ***  USER WARNING MESSAGE 6371, MODAL REDUCTION ENERGY CALCULATIONS FOR\r\n           SUBSTRUCTURE *** ABORTED.\r\n\r\n6501  ***  USER FATAL MESSAGE 6501, THE MANUAL COMBINE OPTION HAS BEEN\r\n           SPECIFIED, BUT NO CONNECTION SET WAS GIVEN.\r\n\r\n6505  ***  USER FATAL MESSAGE 6505, THE SYMMETRY OPTION *** CONTAINS AN INVALID\r\n           SYMBOL.\r\n\r\n          See the COMBINE substructure control description.\r\n\r\n6506  ***  USER FATAL MESSAGE 6506, THE COMPONENT SUBSTRUCTURE *** IS NOT ONE OF\r\n           THOSE ON THE COMBINE CARD.\r\n\r\n6507  ***  USER FATAL MESSAGE 6507, THE SUBSTRUCTURE *** DOES NOT EXIST ON THE\r\n           SOF.\r\n\r\n6508  ***  USER FATAL MESSAGE 6508, THE NAME SPECIFIED FOR THE RESULTANT\r\n           PSEUDOSTRUCTURE ALREADY EXISTS ON THE SOF.\r\n\r\n6510  ***  USER FATAL MESSAGE 6510, THE REQUESTED COMBINE OPERATION REQUIRES\r\n           SUBSTRUCTURE BULK DATA WHICH HAS NOT BEEN GIVEN.\r\n\r\n          A CONNECT request requires CONCT, CONCT1, or RELES data.\r\n\r\n6511  ***  USER FATAL MESSAGE 6511, THE REQUESTED TRANS SET ID *** HAS NOT BEEN\r\n           DEFINED BY BULK DATA.\r\n\r\n6512  ***  USER FATAL MESSAGE 6512, REDUNDANT CONNECTION SET ID-S HAVE BEEN\r\n           SPECIFIED.\r\n\r\n6513  ***  USER FATAL MESSAGE 6513, THE TRANS SET ID *** REQUESTED BY A GTRAN\r\n           BULK DATA CARD HAS NOT BEEN DEFINED.\r\n\r\n6514  ***  USER FATAL MESSAGE 6514, ERRORS HAVE BEEN FOUND IN THE MANUALLY\r\n           SPECIFIED CONNECTION ENTRIES. SUMMARY FOLLOWS.\r\n\r\n6515  ***  USER FATAL MESSAGE 6515, GRID POINT *** BASIC SUBSTRUCTURE *** DOES\r\n           NOT EXIST.\r\n\r\n6516  ***  USER INFORMATION MESSAGE 6516, ALL MANUAL CONNECTIONS SPECIFIED ARE\r\n           ALLOWABLE WITH RESPECT TO TOLER.\r\n\r\n6517  ***  USER FATAL MESSAGE 6517, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A\r\n           RELES BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF\r\n           CONTENTS.\r\n\r\n6518  ***  USER FATAL MESSAGE 6518, ONE OF THE COMPONENT SUBSTRUCTURES HAS BEEN\r\n           USED IN A PREVIOUS COMBINE OR REDUCE.\r\n\r\n          Each substructure may be used in only one COMBINE or REDUCE. The\r\n          previous COMBINE or REDUCE must be DESTROYed before it may be used\r\n          again. An alternative is to EQUIV the substructure in question to a\r\n          new substructure and then use the new substructure in the desired\r\n          COMBINE operation. See message 6105.\r\n\r\n6519  ***  USER FATAL MESSAGE 6519, REDUNDANT NAMES FOR RESULTANT\r\n           PSEUDOSTRUCTURE HAVE BEEN SPECIFIED.\r\n\r\n6520  ***  USER FATAL MESSAGE 6520, REDUNDANT VALUES FOR TOLER HAVE BEEN\r\n           SPECIFIED.\r\n\r\n6521  ***  USER INFORMATION MESSAGE 6521, MODULE COMB1 SUCCESSFULLY COMPLETED.\r\n\r\n6522  ***  USER FATAL MESSAGE 6522, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A\r\n           CONCT1 BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF\r\n           CONTENTS.\r\n\r\n6523  ***  USER FATAL MESSAGE 6523, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A\r\n           CONCT BULK DATA CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF\r\n           CONTENTS.\r\n\r\n6524  ***  USER FATAL MESSAGE 6524, NO. OF COLUMNS OF MATRIX E IN MYP3 IS\r\n           UNEQUAL TO NO. OF COLUMNS OF MATRIX B FOR A(T)B + E PROBLEM.\r\n\r\n          This is a system error if you are not using DMAP.\r\n\r\n6525  ***  USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR MYP3\r\n(1)        = ********** SECONDS.\r\n\r\n6525  ***  USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR\r\n(2)        MYPAD - (AT * B)* A + E = ********** SECONDS.\r\n\r\n6525  ***  USER INFORMATION MESSAGE 6525, TRIPLE MULTIPLY TIME ESTIMATE FOR\r\n           MPYAD -  AT * (B*A) + E = ********** SECONDS.\r\n\r\n6526  ***  USER INFORMATION MESSAGE 6526, THE CENTER MATRIX IS TOO LARGE FOR IN-\r\n           CORE PROCESSING. OUT-OF-CORE PROCESSING WILL BE PERFORMED.\r\n\r\n          Issued by the MPYS module.\r\n\r\n6528  ***  USER FATAL MESSAGE 6528, INCOMPATIBLE LOCAL COORDINATE SYSTEMS HAVE\r\n           BEEN FOUND. CONNECTION OF POINTS IS IMPOSSIBLE, SUMMARY FOLLOWS.\r\n\r\n6530  ***  USER FATAL MESSAGE 6530, THE BASIC SUBSTRUCTURE *** REFERRED TO BY A\r\n           GTRAN CARD CANNOT BE FOUND IN THE PROBLEM TABLE OF CONTENTS.\r\n\r\n6531  ***  USER FATAL MESSAGE 6531, NO CONNECTIONS HAVE BEEN FOUND DURING THE\r\n           AUTOMATIC CONNECTION PROCEDURE.\r\n\r\n6533  ***  USER FATAL MESSAGE 6533, OPTIONS PA HAS BEEN SPECIFIED BUT THE LOAP\r\n           ITEM ALREADY EXISTS FOR SUBSTRUCTURE ***.\r\n\r\n          You must delete old appended loads before running with new appended\r\n          loads.\r\n\r\n6534  ***  USER FATAL MESSAGE 6534, OPTIONS PA HAS BEEN SPECIFIED BUT THE\r\n           STRUCTURE *** DOES NOT EXIST. YOU CANNOT APPEND SOMETHING TO NOTHING.\r\n\r\n6535  ***  USER FATAL MESSAGE 6535, MODULE COMB1 TERMINATING DUE TO ABOVE\r\n           SUBSTRUCTURE CONTROL ERRORS.\r\n\r\n6536  ***  USER FATAL MESSAGE 6536, MODULE COMB1 TERMINATING DUE TO ABOVE\r\n           ERRORS IN BULK DATA.\r\n\r\n6537  ***  USER FATAL MESSAGE 6537, MODULE COMB1 TERMINATING DUE TO ABOVE\r\n           ERRORS.\r\n\r\n6551  ***  USER FATAL MESSAGE 6551, MATRIX B IN MPY3 IS NOT SQUARE FOR A(T)BA +\r\n           E PROBLEM.\r\n\r\n6552  ***  USER FATAL MESSAGE 6552, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL\r\n           TO NO. OF ROWS OF MATRIX B FOR A(T)B + E PROBLEM.\r\n\r\n6553  ***  USER FATAL MESSAGE 6553, NO. OF ROWS OF MATRIX A IN MPY3 IS UNEQUAL\r\n           TO NO. OF COLUMNS OF MATRIX B FOR A(T)BA + E PROBLEM.\r\n\r\n6554  ***  USER FATAL MESSAGE 6554, NO. COLUMNS OF MATRIX E IN MPY3 IS UNEQUAL\r\n           TO NO. OF COLUMNS OF MATRIX A FOR A(T)BA + E PROBLEM.\r\n\r\n6555  ***  USER FATAL MESSAGE 6555, MATRIX E IN MPY3 IS NOT SQUARE FOR A(T)BA +\r\n           E PROBLEM.\r\n\r\n6556  ***  USER FATAL MESSAGE 6556, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL\r\n           TO NO. OF ROWS OF MATRIX B FOR BA + E PROBLEM.\r\n\r\n6557  ***  USER FATAL MESSAGE 6557, UNEXPECTED NULL COLUMN OF A(T) ENCOUNTERED.\r\n\r\n          Issued by MPY3 module.\r\n\r\n6558  ***  USER FATAL MESSAGE 6558, INSUFFICIENT TIME REMAINING FOR MPY3\r\n           EXECUTION.\r\n\r\n6559  ***  USER FATAL MESSAGE 6559, NO. OF ROWS OF MATRIX E IN MPY3 IS UNEQUAL\r\n           TO NO. OF COLUMNS OF MATRIX A FOR A(T)B + E PROBLEM.\r\n\r\n6601  ***  USER FATAL MESSAGE 6601, REQUEST TO REDUCE PSEUDOSTRUCTURE ***\r\n           INVALID. DOES NOT EXIST ON THE SOF.\r\n\r\n6602  ***  USER FATAL MESSAGE 6602, THE NAME *** CANNOT BE USED FOR THE REDUCED\r\n           PSEUDOSTRUCTURE. IT ALREADY EXISTS ON THE SOF.\r\n\r\n6603  ***  USER FATAL MESSAGE 6603, A BOUNDARY SET MUST BE SPECIFIED FOR A\r\n           REDUCE OPERATION.\r\n\r\n6604  ***  USER WARNING MESSAGE 6604, A BOUNDARY SET HAS BEEN SPECIFIED FOR ***,\r\n           BUT IT IS NOT A COMPONENT OF THE PSEUDOSTRUCTURE BEING REDUCED. THE\r\n           BOUNDARY SET WILL BE IGNORED.\r\n\r\n6605  ***  USER WARNING MESSAGE 6605, A BOUNDARY SET HAS BEEN SPECIFIED FOR ***\r\n           BUT IT IS NOT A PHASE1 BASIC SUBSTRUCTURE. THE BOUNDARY SET WILL BE\r\n           IGNORED.\r\n\r\n6606  ***  USER FATAL MESSAGE 6606, BOUNDARY SET *** SPECIFIED IN CASE CONTROL\r\n           HAS HOT BEEN DEFINED BY BULK DATA.\r\n\r\n          No BDYC bulk data has been entered.\r\n\r\n6607  ***  USER FATAL MESSAGE 6607, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO\r\n           DEFINE BOUNDARY SET ***.\r\n\r\n6608  ***  USER FATAL MESSAGE 6608, THE REQUEST FOR BOUNDARY SET ***,\r\n           SUBSTRUCTURE *** WAS NOT DEFINED.\r\n\r\n6609  ***  USER INFORMATION MESSAGE 6609, NO BOUNDARY SET HAS BEEN SPECIFIED FOR\r\n           COMPONENT OF PSEUDOSTRUCTURE ***. ALL DEGREES OF FREEDOM WILL BE\r\n           REDUCED.\r\n\r\n6610  ***  USER WARNING MESSAGE 6610, DEGREES OF FREEDOM AT GRID POINT ***\r\n           COMPONENT SUBSTRUCTURE *** INCLUDED IN A BOUNDARY SET DO NOT EXIST.\r\n           REQUEST WILL BE IGNORED.\r\n\r\n6611  ***  USER FATAL MESSAGE 6611, GRID POINT *** SPECIFIED IN BOUNDARY SET ***\r\n           FOR SUBSTRUCTURE *** DOES NOT EXIST.\r\n\r\n6612  ***  USER FATAL MESSAGE 6612, THE REDUCE OPERATION REQUIRES SUBSTRUCTURE\r\n           BULK DATA WHICH HAS NOT BEEN GIVEN.\r\n\r\n6613  ***  USER FATAL MESSAGE 6613, FOR RUN=GO, THE REDUCED SUBSTRUCTURE ***\r\n           MUST ALREADY EXIST.\r\n\r\n6614  ***  USER FATAL MESSAGE 6614, ILLEGAL OR NON-EXISTENT STRUCTURE NAME USED\r\n           ABOVE.\r\n\r\n6615  ***  USER FATAL MESSAGE 6615, ILLEGAL BOUNDARY SET IDENTIFICATION NUMBER.\r\n\r\n6616  ***  USER INFORMATION MESSAGE 6616, MODULE REDUCE SUCCESSFULLY COMPLETED.\r\n\r\n6617  ***  USER FATAL MESSAGE 6617, OLDMODES SET AND REQUESTED SOF ITEM DOES NOT\r\n           EXIST. ITEM ***, SUBSTRUCTURE ***.\r\n\r\n6618  ***  USER FATAL MESSAGE 6618, OLDMODES NOT SET AND REQUESTED SOF ITEM MUST\r\n           BE DELETED. ITEM ***, SUBSTRUCTURE ***.\r\n\r\n6619  ***  USER FATAL MESSAGE 6619, OLDBOUND SET AND REQUESTED SOF ITEM DOES NOT\r\n           EXIST. ITEM ***, SUBSTRUCTURE ***.\r\n\r\n6620  ***  USER FATAL MESSAGE 6620, OLDBOUND NOT SET AND REQUESTED SOF ITEM\r\n           MUST BE DELETED, ITEM ***, SUBSTRUCTURE ***.\r\n\r\n6621  ***  USER FATAL MESSAGE 6621, FIXED SET *** SPECIFIED IN CASE CONTROL HAS\r\n           NOT BEEN DEFINED BY BULK DATA.\r\n\r\n6622  ***  USER WARNING MESSAGE 6622, A FIXED SET HAS BEEN SPECIFIED FOR ***,\r\n           BUT IT IS NOT A COMPONENT OF THE PSEUDOSTRUClURE BEING PROCESSED. THE\r\n           FIXED SET WILL BE IGNORED.\r\n\r\n6623  ***  USER FATAL MESSAGE 6623, SUBSTRUCTURE *** HAS DUPLICATE NAMES IN BDYC\r\n           DATA SET ***.\r\n\r\n6624  ***  USER FATAL MESSAGE 6624, GRID POINT *** SPECIFIED IN FIXED SET ***\r\n           FOR SUBSTRUCTURE *** DOES NOT EXIST.\r\n\r\n6625  ***  USER WARNING MESSAGE 6625, DEGREES OF FREEDOM AT GRID POINT ***\r\n           COMPONENT SUBSTRUCTURE *** INCLUDED IN A FIXED SET DO NOT EXIST.\r\n           REQUEST WILL BE IGNORED.\r\n\r\n6626  ***  USER FATAL MESSAGE 6626, NO BDYS OR BDYS1 BULK DATA HAS BEEN INPUT TO\r\n           DEFINE FIXED SET ***.\r\n\r\n6627  ***  USER FATAL MESSAGE 6627, NO EIG* DATA CARDS SPECIFIED FOR SET ID ***,\r\n           SUBSTRUCTURE ***.\r\n\r\n6628  ***  USER FATAL MESSAGE 6628, NO EIGC OR EIGR DATA CARDS SPECIFIED FOR SET\r\n           ID ***, SUBSTRUCTURE ***.\r\n\r\n6629  ***  USER FATAL MESSAGE 6629, NO EIGC DATA CARD SPECIFIED WITH EIGP DATA\r\n           CARD SET ID ***, SUBSTRUCTURE ***.\r\n\r\n6630  ***  USER INFORMATION MESSAGE 6630, FOR DRY OPTION IN MODAL REDUCE, INPUT\r\n           DATA WILL BE CHECKED BUT NO SOF TABLE ITEMS WILL BE CREATED.\r\n\r\n6631  ***  USER POTENTIALLY FATAL MESSAGE 6631, IN COMPLEX MODAL REDUCE, ONLY\r\n           ONE H TRANSFORMATION MATRIX IS PRESENT ON SOF FOR NONSYMMETRIC\r\n           REDUCTION.\r\n\r\n6632  ***  USER FATAL MESSAGE 6632, MODULE ***, NASTRAN MATRIX FILE FOR I/O OF\r\n           SOF ITEM ***, SUBSTRUCTURE ***, IS PURGED.\r\n\r\n6633  ***  USER FATAL MESSAGE 6633, FOR SUBSTRUCTURE *** TOTAL NUMBER OF MODAL\r\n           COORDINATES (***) IS LARGER THAN THE NUMBER OF INTERIOR DOF (***).\r\n\r\n6634  ***  USER FATAL MESSAGE 6634, IN MODULE MREDUCE WITH USER MODE=2, THE\r\n           CONSTRAINT FORCES MATRIX IS INCOMPATIBLE WITH THE NUMBER OF MODES\r\n           (***).\r\n\r\n6635  ***  USER WARNING MESSAGE 6635, CDCOMP DECOMPOSITION FAILED ON KII MATRIX\r\n           FOR SUBSTRUCTURE ***.\r\n\r\n6636  ***  USER INFORMATION MESSAGE 6636, NMAX AND RANGE SUBCOMMANDS ARE IGNORED\r\n           UNDER USERMODE = TYPE 2.\r\n\r\n6637  ***  USER FATAL MESSAGE 6637, OLDBOUND HAS BEEN SPECIFIED BUT THE BOUNDARY\r\n           POINTS FOR SUBSTRUCTURE *** HAVE BEEN CHANGED.\r\n\r\n          The boundary set data for the current problem is different from the\r\n          boundary set data which created the UPRT SOF item for this\r\n          substructure.\r\n\r\n6638  ***  USER FATAL MESSAGE 6638, IN MODULE MREDUCE WITH USER MODE=2, THE\r\n           CONSTRAINT FORCES MATRIX (QSM) CANNOT BE PURGED.\r\n\r\n6900  ***  USER INFORMATION MESSAGE 6900, LOADS HAVE BEEN SUCCESSFULLY APPENDED\r\n           FOR SUBSTRUCTURE ***.\r\n\r\n6901  ***  USER INFORMATION MESSAGE 6901, ADDITIONAL LOADS HAVE BEEN\r\n           SUCCESSFULLY MERGED FOR SUBSTRUCTURE ***.\r\n\r\n6951  ***  USER FATAL MESSAGE 6951, INSUFFICIENT CORE TO LOAD TABLES. IN MODULE\r\n           LODAPP, CORE = ***.\r\n\r\n          The total number of load sets times two must fit in core.\r\n\r\n6952  ***  USER FATAL MESSAGE 6952, REQUESTED SUBSTRUCTURE *** DOES NOT EXIST.\r\n\r\n6953  ***  SYSTEM FATAL MESSAGE 6953, A WRONG COMBINATION OF LOAD VECTORS EXISTS\r\n           FOR SUBSTRUCTURE ***.\r\n\r\n          All load set IDs must be unique for each basic substructure.\r\n\r\n6954  ***  SYSTEM FATAL MESSAGE 6954, THE **** ITEM EXISTS BUT HAS NO ASSOCIATED\r\n           PVEC ITEM FOR SUBSTRUCTURE ********.\r\n\r\n          A load set table exists, but the load vectors have been removed.\r\n\r\n6956  ***  USER FATAL MESSAGE 6956, INSUFFICIENT TIME REMAINING FOR MODULE\r\n           LODAPP, TIME LEFT = ********.\r\n\r\n=PAGE=\r\n6.9  FUNCTIONAL MODULE MESSAGES (7001 THROUGH 8000)\r\n\r\n7019  ***  USER INFORMATION MESSAGE 7019, MODULE DSCHK IS EXITING FOR REASON ***\r\n           ON ITERATION NUMBER ****** / PARAMETER VALUES ARE AS FOLLOWS DONE =\r\n           **********, SHIFT = **********, DSEPSI = **********.\r\n\r\n          See Sections 2.4.3 and 2.16.3 in Volume II for a discussion of DISP\r\n          Rigid Format 4 and DISP Rigid Format 16 output features.\r\n\r\n8000  ***  USER INFORMATION MESSAGE 8000, MODULE FLBMG TERMINATED DUE TO ABOVE\r\n           ERRORS.\r\n\r\n=PAGE=\r\n6.10  FUNCTIONAL MODULE MESSAGES (8001 THROUGH 9000)\r\n\r\n8001  ***  USER FATAL MESSAGE 8001, THERE MUST BE A FLUID/STRUCTURE BOUNDARY IN\r\n           HYDROELASTIC ANALYSIS.\r\n\r\n8002  ***  USER FATAL MESSAGE 8002, ELEMENT ID ******** ON A CFLSTR CARD DOES\r\n           NOT REFERENCE A VALID 2D STRUCTURAL ELEMENT.\r\n\r\n8003  ***  USER FATAL MESSAGE 8003, ELEMENT ID ******** ON A CFLSTR CARD DOES\r\n           NOT REFERENCE A VALID FLUID ELEMENT.\r\n\r\n8004  ***  USER FATAL MESSAGE 8004, ELEMENT ID ******** ON A CFFREE CARD DOES\r\n           NOT REFERENCE A VALID FLUID ELEMENT.\r\n\r\n8005  ***  USER FATAL MESSAGE 8005, BAD GEOMETRY DEFINED FOR STRUCTURAL ELEMENT\r\n           ********.\r\n\r\n8006  ***  USER FATAL MESSAGE 8006, BAD GEOMETRY DEFINED FOR FACE ******** OF\r\n           FLUID ELEMENT ********.\r\n\r\n8007  ***  USER FATAL MESSAGE 8007, NO FACE ON FLUID ELEMENT ******** IS WITHIN\r\n           30 DEGREES OF STRUCTURAL ELEMENT ********.\r\n\r\n8008  ***  USER FATAL MESSAGE 8008, THE DISTANCE BETWEEN FLUID ELEMENT ********\r\n           AND STRUCTURAL ELEMENT ******** IS GREATER THAN THE ALLOWED\r\n           TOLERANCE.\r\n\r\n8009  ***  USER FATAL MESSAGE 8009, FACE ******** SPECIFIED FOR FLUID ELEMENT\r\n           ******** IS AN ILLEGAL VALUE.\r\n\r\n8010  ***  SYSTEM FATAL MESSAGE 8010, LOGIC ERROR IN SUBROUTINE FLBEMA - CODE\r\n           ***.\r\n\r\n8011  ***  USER WARNING MESSAGE 8011, INSUFFICIENT CORE TO HOLD CONTENTS OF\r\n           EQEXIN DATA BLOCK. HYDROELASTIC USET PRINTOUT TERMINATED.\r\n\r\n8012  ***  USER FATAL MESSAGE 8012, FLUID ELEMENT ******** ON A CFFREE CARD\r\n           REFERENCES UNDEFINED GRAVITY ID ********.\r\n\r\n8013  ***  USER FATAL MESSAGE 8013, FLUID ELEMENT ******** ON A CFLSTR CARD\r\n           REFERENCES UNDEFINED GRAVITY ID ********.\r\n\r\n8014  ***  USER WARNING MESSAGE 8014, FlUID ELEMENT ******** AND STRUCTURE\r\n           ELEMENT ******** ARE DISJOINT. CHECK CFLSTR CARDS.\r\n\r\n8015  ***  USER WARNING MESSAGE 8015, THE PURELY INCOMPRESSIBLE METHOD IS\r\n           AVAILABLE ONLY WITH THE DIRECT FORMULATION.\r\n\r\n"
  },
  {
    "path": "um/PLOT.TXT",
    "content": "=PAGE=\r\n4.1  PLOTTING IN NASTRAN\r\n\r\n   NASTRAN provides the capability for generating the following kinds of\r\nplots: \r\n\r\n   1. Undeformed geometric projections of the structural model.\r\n\r\n   2. Static deformations of the structural model by either displaying the\r\n      deformed shape (alone or superimposed on the undeformed shape), or\r\n      displaying the displacement vectors at the grid points (superimposed on\r\n      either the deformed or undeformed shape). \r\n\r\n   3. Modal deformations (sometimes called mode shapes or eigenvectors)\r\n      resulting from real eigenvalue analysis by the same options stated in 2\r\n      above. Complex modes of flutter analysis may be plotted for any user\r\n      chosen phase lag. \r\n\r\n   4. Deformations of the structural model for transient response or frequency\r\n      response by displaying either vectors or the deformed shape for\r\n      specified times or frequencies. \r\n\r\n   5. X-Y graphs of responses (displacements, velocities, accelerations,\r\n      element forces and element stresses) versus time (transient response),\r\n      versus frequency (frequency response) or versus subcase (static\r\n      analysis). \r\n\r\n   6. Y-f and Y-g graphs of flutter analysis.\r\n\r\n   7. Topological displays of matrices.\r\n\r\n   8. Contour plots of stresses and displacements (in a limited fashion). To\r\n      avoid crowded output, an outline of the model may be optionally\r\n      requested. \r\n\r\n   Structure plots (items 1-4 and 8) are discussed in Section 4.2. X-Y plots\r\n(items 5 and 6) are discussed in Section 4.3. Matrix plots (item 7) are\r\ngenerated by Utility Module SEEMAT, described in Section 5.5, and must be\r\naccomplished by ALTERing this module into a rigid format DMAP sequence or by\r\nusing the DMAP approach. Requests for structure plots or X-Y plots are\r\naccomplished in the Case Control Deck by submitting a structure plot request\r\npacket or an X-Y output request packet. The discussion of these packets\r\nconstitutes most of the remainder of this section. The optional PLOTID card is\r\nconsidered to be a part of the plot packets, although it must precede any\r\nOUTPUT(PLOT), OUTPUT(XYOUT), or OUTPUT(XYPLOT) cards (see the PLOTID card in\r\nSection 2.3). \r\n\r\n   In order to create plots, you must set up a physical plot tape or mass\r\nstorage area. There are two plot files, PLT1 and PLT2. It is only necessary to\r\nspecify file PLT2. File PLT1 is reserved for future use. The system control\r\ncards needed to specify the PLT2 plot file are generally installation\r\ndependent and are described in Section 5 of the Programmer's Manual. \r\n\r\n   The NASTRAN plotting software is completely independent of any particular\r\nplotting hardware. This protects the NASTRAN software from being impacted by\r\nchanges, additions, or deletions made to plotting hardware. Instead, the plot\r\nfile produced by NASTRAN (the actual NASTRAN plot output may reside either on\r\nphysical tape or on a mass storage device) is meant for a hypothetical plotter\r\ntermed the NASTRAN General Purpose Plotter (NASTPLT) and is not suitable for\r\nuse directly by any particular plotter. In order to use this NASTPLT file to\r\nobtain plots on any particular plotter, your installation must have available\r\nan external translator program to interpret this plot file and create plots on\r\nthe plotter. A detailed description of the NASTPLT file is given in Section\r\n4.4. The interested reader may also refer to Section 6.10 of the Programmer's\r\nManual, dealing with the plotting software in NASTRAN. \r\n\r\n   The type or model of the plotting hardware on which you will create your\r\nplots is indicated to the NASTRAN plotting software on the PLOTTER card in\r\nboth structure plotting and X-Y plotting (see descriptions in Sections 4.2.2.4\r\nand 4.3.2.5, respectively). You may specify either a microfilm, table, or drum\r\nplotter. For each of these plotter types, you may also indicate whether the\r\nplotter has typing capability or not. In the latter case, all characters will\r\nbe drawn. The default is a microfilm plotter without typing capability. \r\n\r\n   The operation of the Structure Plotter is of sufficient theoretical content\r\nto warrant inclusion in the Theoretical Manual. Section 13 of the Theoretical\r\nManual provides a discussion of the basic theory and gives some examples of\r\nplotter output. \r\n\r\n   The availability of NASTRAN plotting capability is a function of the\r\nparticular rigid format as shown in Table 4.1-1. \r\n\r\n4.1.1  Plot Frame Size and Character Size\r\n\r\n   The frame size of the NASTPLT plots produced by NASTRAN depends upon the\r\nmodel specified on the PLOTTER card. The default plot frame sizes for all the\r\nthree plotter models are given in the following table. \r\n\r\n                Default Plot Frame Size for the NASTPLT Plotters\r\n\r\n        Plotter Model           Default Width             Default Height\r\n                                  (inches)                   (inches)\r\n\r\n          Microfilm                10.23                      10.23\r\n\r\n          Table                    11.00                       8.50\r\n\r\n          Drum                     30.00                      30.00\r\n\r\n   The plot frame size for microfilm plotters is set at the above default size\r\nand is not under user control. The frame size for the table and drum plotters\r\ncan be specified by you within limits, by means of the PAPER SIZE card in\r\nstructure plotting (see Section 4.2.2.4) and the XPAPER and YPAPER cards in\r\nX-Y plotting (see Section 4.3.2.5). \r\n\r\n   As mentioned earlier, the NASTRAN plotting software will draw characters\r\nwhen you have indicated that the plotter has no typing capability. By default,\r\neach character produced by the NASTPLT plots is assigned a space of 0.08\"\r\nwidth by 0.16\" height and within this space the character is derived from a\r\n0.06\" square. The size of the characters cannot be reduced below the default\r\nsize by you in the NASTRAN environment. However, you can magnify the\r\ncharacters by the use of the CSCALE card in both structure plotting and X-Y\r\nplotting (see description in Sections 4.2.2.4 and 4.3.2.5). Note, however,\r\nthat the integer factor used on the CSCALE card implies that the characters\r\ncan be magnified only in discrete steps. Also note that this factor is used to\r\nmultiply both the width and the height of the NASTPLT characters. Thus, a\r\ncharacter produced with a CSCALE value of 2 will take up an area that is four\r\ntimes the area taken up by the default size character. \r\n\r\n   If you want to control the size of the characters relative to the plot, you\r\ncan do so by controlling the plot frame size for a given character size. Thus,\r\nfor a given CSCALE value, the size of the characters relative to the plot can\r\nbe increased by decreasing the plot frame size and decreased by increasing the\r\nplot frame size. \r\n\r\n   If you want to scale up or down the size of both the plots and the\r\ncharacters produced by NASTRAN, you can do so by means of the translator\r\nprogram employed to create the plots. However, in this case, the size is\r\ncontrolled outside the NASTRAN environment. \r\n\r\n=PAGE=\r\nTable 4.1-1. Plotting Availability In the NASTRAN Rigid Formats\r\n\r\n                                                            Matrix\r\n           Rigid        Structure Plotting        Curve     Topology\r\n           Format      Undeformed   Deformed      Plotting  Plotting\r\n\r\n          1  (DISP)         x          x             x          *\r\n\r\n          2  (DISP)         x          x                        *\r\n\r\n          3  (DISP)         x          x                        *\r\n\r\n          4  (DISP)         x          x                        *\r\n\r\n          5  (DISP)         x          x                        *\r\n\r\n          6  (DISP)         x          x                        *\r\n\r\n          7  (DISP)         x                                   *\r\n\r\n          8  (DISP)         x          x             x          *\r\n\r\n          9  (DISP)         x          x             x          *\r\n\r\n         10  (DISP)         x                                   *\r\n\r\n         11  (DISP)         x          x             x          *\r\n\r\n         12  (DISP)         x          x             x          *\r\n\r\n         13  (DISP)         x          x                        *\r\n\r\n         14  (DISP)         x          x                        *\r\n\r\n         15  (DISP)         x          x                        *\r\n\r\n         16  (DISP)         x          x                        *\r\n\r\n          1  (HEAT)         x          x                        *\r\n\r\n          3  (HEAT)         x          x                        *\r\n\r\n          9  (HEAT)         x          x             x          *\r\n\r\n          9  (AERO)         x          x             x          *\r\n\r\n         10  (AERO)         x          x             x          *\r\n\r\n         11  (AERO)         x          x             x          *\r\n\r\n\r\n\r\n* Matrix topology plotting is not automatically available in any rigid format.\r\nUtility module SEEMAT must be ALTERed into a rigid format DMAP sequence in\r\norder to use this feature (see Section 5.5). \r\n\r\n=PAGE=\r\n4.2  STRUCTURE PLOTTING\r\n\r\n     In order to assist you both in the preparation of the analytical model and\r\nin the interpretation of output, the structure plotter provides the following\r\ncapabilities for undeformed structures: \r\n\r\n     1.   Place a symbol at the grid point locations (optional).\r\n\r\n     2.   Identify grid points by placing the grid point identification number \r\n          to the right of the grid point locations (optional). \r\n\r\n     3.   Identify elements by placing the element identification number and\r\n          element label at the center of each element (optional).\r\n\r\n     4.   Identify element properties by placing the element property \r\n          identification number near the element identification number and \r\n          element symbol (optional). \r\n\r\n     5.   Connect the grid points in an optional manner using structural \r\n          elements or PLOTEL elements. \r\n\r\n     6.   Reflect the symmetric portion of the structural elements about a\r\n          designated axis (optional).\r\n\r\nThe following capabilities are provided for deformed structures:\r\n\r\n     1.   Place a symbol at the deflected grid point location (optional).\r\n\r\n     2.   Identify the deflected grid points by placing the grid point \r\n          identification number to the right of the deflected grid point \r\n          locations (optional). \r\n\r\n     3.   Identify elements by placing the element identification number and\r\n          element label at the center of each element (optional).\r\n\r\n     4.   Identify element properties by placing the element property \r\n          identification number near the element identification number and \r\n          element symbol (optional). \r\n\r\n     5.   Connect the deflected grid points in an optional manner using \r\n          structural elements or PLOTEL elements. \r\n\r\n     6.   Draw lines originating at the undeflected or deflected grid point \r\n          location, drawn to user-specified scale, representing the X, Y, Z \r\n          components or resultant summations of any of the grid point \r\n          deflection, velocity, or acceleration vectors. \r\n\r\n     7.   Draw different portions of the structure in different parts of a \r\n          frame, with different scales, labels, and symbols. \r\n\r\n     8.   Reflect the symmetric portion of the structural elements (which are \r\n          symmetrically or antisymmetrically loaded) about a designated axis \r\n          (optional). \r\n\r\n     9.   Superimpose the deflected shape over the undeflected shape (optional). \r\n\r\n     10.  Draw the outline of the structural elements which lie on the\r\n          boundaries (optional).\r\n\r\n     11.  Map the deflection or stress contours of two dimensional elements in\r\n          a limited fashion (optional).\r\n\r\nA request for structure plotting is made in the Case Control Deck by means of\r\na plot request packet which includes all cards from an OUTPUT(PLOT) card to\r\neither a BEGIN BULK or OUTPUT(XYOUT) [or OUTPUT(XYPLOT)] card. It should be\r\nnoted that only elements can be plotted. (See the description of the SET card\r\nin Section 4.2.2.4.) Grid points that are not associated with elements cannot\r\nbe plotted. Grid points may be connected with PLOTEL elements for plotting\r\npurposes.\r\n\r\n4.2.1  Structure Plotter Projections and Coordinate System\r\n\r\n     Structure plots can be obtained in any one of three projections, namely,\r\northographic, perspective, or stereoscopic projections. (Stereoscopic plots\r\nare normally made only on microfilm plotters since a stereoscopic viewer or\r\nprojector must be used to obtain the stereoscopic effect.) These projections\r\nas they relate to structure plotting and the plotter coordinate system\r\nemployed are described in the following sections. A theoretical treatment of\r\nthe projections is given in Section 13 of the Theoretical Manual.\r\n\r\n4.2.1.1  Orthographic Projection\r\n\r\n     The structural model is assumed to be defined in the basic coordinate\r\nsystem, denoted as the X, Y, Z coordinate system. The plotter (or observer's)\r\ncoordinate system is defined as the R, S, T coordinate system. The direction\r\nof view is in the negative R-direction and the projection plane is always in,\r\nor parallel to, the S-T plane (see Figure 4.2-1).\r\n\r\n     The origins of the X, Y, Z and R, S, T coordinate systems are taken to be\r\ncoincidental. The alignment of the X, Y, Z coordinate system with respect to\r\nthe R, S, T coordinate system is prescribed by the AXES card (see\r\ndescription). The default alignment is for the X, Y, and Z axes to align with\r\nthe R, S and T axes, respectively. The orientation of the X, Y, Z coordinate\r\nsystem with respect to the R, S, T coordinate system is defined by the three\r\nangles , , and . These angles are prescribed by the VIEW card (see\r\ndescription). (As can be seen, for the default alignment, the two coordinate\r\nsystems are coincident for  =  =  = 0.)\r\n\r\n     The order in which the rotations , , and  are specified is critically\r\nimportant to determine the final orientation of the X, Y, Z system with\r\nrespect to the R, S, T system. This order or sequence has been arbitrarily\r\nchosen as , the rotation about the T-axis, followed by , the rotation about\r\nthe S-axis, followed by , the rotation about the R-axis. Normally,  is not\r\nused since it does not affect the appearance of the S-T projection, but only\r\nits orientation on the S-T plane.\r\n=PAGE=\r\n                       T\r\n                       \r\n                       \r\n                       \r\n                       \r\n                       \r\n                       \r\n                       S\r\n                      /      /\r\n                     /      /  Direction of View\r\n                    /      /   (Always in negative R direction.\r\n                   /      /     Projection plane is always in,\r\n                 R       /      or parallel to, the S-T plane.)\r\n\r\n\r\n                    Figure 4.2-1. Plotter coordinate system\r\n=PAGE=\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n           Figure 4.2-2. Plotter coordinate system model orientation\r\n=PAGE=\r\n4.2.1.2  Perspective Projection\r\n\r\n     In addition to the three angular relationships (, , ) required for the\r\northographic projection, the perspective projection requires knowledge of the\r\nvantage point in the R, S, T system (that is, the three coordinates of the\r\nobserver) and the location of the projection plane (plotter surface). The\r\nvantage point (coordinates Ro, So, To) is either selected by you or\r\nautomatically by the program and is taken to lie in the positive R-half space.\r\nThe projection plane is chosen to lie between the observer and the S-T plane.\r\nThis is illustrated in Figure 4.2-3.\r\n\r\n4.2.1.3  Stereoscopic Projection\r\n\r\n     The stereoscopic effect is obtained through the differences in images\r\nreceived by the left and right eyes. Each is a perspective image, but with a\r\ndifferent vantage point. The two vantage points are separated by a distance\r\ntermed the ocular separation. You may supply this value, but the use of the\r\ndefault value of 70 mm (2.756 inches) is recommended since it is the nominal\r\nocular separation standard used in commercially available stereoscopic cameras\r\nand viewers. When using this projection, the program produces two plots for\r\nviewing with a stereoscopic viewer.\r\n\r\n4.2.2  Structure Plot Request Packet Data\r\n\r\n4.2.2.1  Summary of Data Cards\r\n\r\n     The only structure plot data cards that are always required are the SET and\r\nPLOT cards. The FIND card is recommended for general use. All other cards are\r\nrelated to the definition of various parameters and are strictly optional.\r\n\r\n     The parameter cards specify how the structure will be plotted, that is,\r\ntype of projection, view angles, scales, etc. All the multiple choice\r\nparameters are defaulted to a preselected choice if not specified. If a\r\nparameter is defined more than once, the value or choice last stated (or\r\ncomputed) will be used. Each parameter requiring a numerical value that is not\r\nspecified by you can either be established internally in the program by means\r\nof the FIND card or can assume default values. The FIND card requests that the\r\nprogram select a SCALE, ORIGIN, and/or VANTAGE POINT based on user-specified\r\nparameters so as to allow the construction of a plot in a user-specified\r\nregion of the paper or film. All the parameters used in the generation of the\r\nvarious plots will be printed out as part of the output, whether they are\r\ndirectly specified, defaulted, or established using the FIND card.\r\n\r\n     Initialization of parameters to default values occurs only once. These\r\nvalues remain until altered by a direct input. The only exceptions are the\r\nview angles, scale factors, vantage point parameters, and origins. Whenever\r\nthe plotter or the method of projection is changed, the view angles are reset\r\nto the default values, unless they are re-specified by you. In addition, the\r\nscale factors, vantage point parameters, and origin must be redefined by you.\r\n\r\n     The structure plot data cards are generally sequence independent, but it is\r\nimportant to note that the dependencies on which a FIND card or a PLOT card is\r\nbased must precede these cards. Thus, for example, a SET card defining the\r\nelements and grid points to be plotted may be defined anywhere in the\r\nsubmittal, but it must appear prior to a FIND card or a PLOT card that\r\nreferences that SET. Also, if a PLOTTER card is used, it is recommended that\r\nit be the very first card in the structure plot request data after the\r\nOUTPUT(PLOT) card in the Case Control Deck.\r\n\r\n     A summary of the data cards is given in Table 4.2-1.\r\n=PAGE=\r\n              \r\n              T                                                S\r\n                       Ŀ\r\n                        Structural  \r\n                        Model       \r\n                       \r\n              T'        \\           /      Projection Plane     S'\r\n            \\    /            \r\n                         \\       /\r\n                  d        \\     /\r\n                   o        \\   /\r\n                            \\ /\r\n                   Vantage Point\r\n                               (R , S , T )\r\n                                 o   o   o\r\n              \r\n               R\r\n\r\n\r\n                 Figure 4.2-3. Perspective projection geometry\r\n=PAGE=\r\nTable 4.2-1. Summary of Structure Plot Data Cards\r\n\r\n                                 REQUIRED CARDS\r\n\r\n                              Name          Purpose\r\n\r\n                              PLOT      Plot generation\r\n                              SET       Set definition\r\n\r\n                                 OPTIONAL CARDS\r\n\r\nName            Purpose                            Remarks\r\n\r\nAXES            XYZ axes alignment specification\r\n\r\nCAMERA          Camera specification               Used only for\r\n                                                   microfilm plotters\r\n\r\nCONTOUR         Contour plot definition            Used only if contour plots\r\n                                                   are requested\r\nCSCALE          Character scale specification\r\n\r\nFIND            Automatic computation of plot      Use of this card is\r\n                parameters                         recommended\r\n\r\nMAXIMUM         Maximum displacement               Used only if deformed plots\r\nDEFORMATION     specification                      are requested\r\n\r\nOCULAR          Ocular separation definition       Used only for stereoscopic\r\nSEPARATION                                         projection\r\n\r\nORIGIN          Paper origin definition            Required if not on FIND card\r\n\r\nPAPER SIZE      Plot frame size specification      Used only for table\r\n                                                   and drum plotters\r\n\r\nPEN             Pen specification                  Used only for table\r\n                                                   and drum plotters\r\n\r\nPLOTTER         Plotter model specification\r\n\r\nPROJECTION      Projection specification\r\n\r\nPROJECTION      Projection plane definition        Required for perspective and\r\nPLANE                                              and stereoscopic projections\r\nSEPARATION                                         if VANTAGE POINT is not on\r\n                                                   FIND card\r\nPTITLE          Plot title definition\r\n\r\nSCALE           Plotted object scale definition    Required if not on FIND card\r\n\r\nVANTAGE POINT   Vantage point definition           Required for perspective and\r\n                                                   stereoscopic projections if\r\n                                                   not on FIND card\r\nVIEW            XYZ axes orientation\r\n                specification\r\n=PAGE=\r\n4.2.2.2  Plot Titles\r\n\r\n     Up to four lines of title information will be printed in the lower\r\nleft-hand corner of each plot. The text for the top three lines is taken from\r\nthe TITLE, SUBTITLE, and LABEL cards in the Case Control Deck. (See Sections\r\n2.3.2 and 2.3.4 for a description of the TITLE, SUBTITLE, and LABEL cards.)\r\nThe text for the bottom line may be of two forms depending on the type of plot\r\nrequested. One form contains the word UNDEFORMED SHAPE. The other form\r\ncontains the type of plot (statics, nodal, etc), subcase number, load set or\r\nmode number, frequency or eigenvalue or time, and (for complex quantities)\r\nphase lag or magnitude. This information is taken from the PLOT card in the\r\nplot request packet.\r\n\r\n     Each plot frame, or group of frames, resulting from a single PLOT command\r\nmay also have a line of information to the right of the SUBTITLE text. This is\r\ntaken from the PTITLE card in the plot request packet.\r\n\r\n     The sequence number for each plot is printed in the upper corners of each\r\nframe. The sequence number is determined by the relative position of each PLOT\r\nexecution card in the plot package. The date and (for deformed plots) the\r\nmaximum deformation are also printed at the top of each frame.\r\n\r\n4.2.2.3  Data Card Specification Rules and Format\r\n\r\n     The format of the structure plot data cards is free-field. The following\r\nrules apply to their specification:\r\n\r\n     1.   Only data in columns 1 through 72 is processed. Any information\r\n          specified in columns 73 through 80 is ignored.\r\n\r\n     2.   If the last character on a card is a comma (not necessarily in \r\n          column 72), the next card is a continuation of this physical card. \r\n          Any number of continuation cards may be specified, and together they \r\n          form a logical card. \r\n\r\n     3.   The mnemonics or values can be placed anywhere on the card, but must \r\n          be separated by delimiters. \r\n\r\n     4.   The following delimiters are used:\r\n\r\n          a.            blank\r\n\r\n          b. ,          comma\r\n\r\n          c. (          left parenthesis\r\n\r\n          d. )          right parenthesis\r\n\r\n          e. =     equal sign\r\n\r\n          All of these delimiters can be used as needed to aid the legibility of\r\n          the data.\r\n\r\n     In the data card descriptions presented in Section 4.2.2.4, the following\r\nnotations are used to describe the card format:\r\n\r\n     1. Upper-case letters and parentheses must be punched as shown.\r\n\r\n     2. Lower-case letters indicate that a substitution must be made.\r\n\r\n                         \r\n     3. Double brackets   indicate that a choice of contents is mandatory.\r\n                         \r\n\r\n                  \r\n     4. Brackets   contain an option that may be omitted or included by the\r\n        user.     \r\n\r\n     5. First listed options or values are the default values.\r\n\r\n     6. Physical card consists of information punched in columns 1 through 72 \r\n        of a card. \r\n\r\n     7. Logical card may have more than 72 columns with the use of continuation\r\n        cards.\r\n\r\n4.2.2.4  Data Card Descriptions\r\n\r\n     All of the structure plot data cards are discussed on the following pages.\r\nThe descriptions are arranged in alphabetical order by card names. The general\r\nform for each card is shown. The description of the card contents follows. An\r\nexample of each card usage is given immediately below the general form except\r\nfor the PLOT and SET cards, where the examples follow the descriptions of the\r\ncards.\r\n=PAGE=\r\nAXES - XYZ Axes Alignment Specification\r\n\r\nDescription\r\n\r\nDefines the alignment of the XYZ axes (the basic coordinate system of the\r\nobject) in terms of the RST axes (the observer's coordinate system). See\r\nFigure 4.2-1.\r\n\r\nFormat and Example\r\n\r\n                                               \r\nAXES    X   ,   Y   ,   Z       SYMMETRIC      \r\n        r       s       t       ANTISYMMETRIC  \r\n                                               \r\n\r\nAXES    MX, Y, MZ\r\n\r\nOption             Meaning\r\n\r\nr                  The axis that is aligned with the R-axis (BCD). See Remark 2.\r\n\r\ns                  The axis that is aligned with the S-axis (BCD). See Remark 2.\r\n\r\nt                  The axis that is aligned with the T-axis (BCD). See Remark 2.\r\n\r\nSYMMETRIC          Obtain an undeformed or deformed plot of the symmetric \r\n                   portion of an object. See Remarks 3 and 4. \r\n\r\nANTISYMMETRIC      Plot the deformations antisymmetrically with respect to the \r\n                   specified plane or planes. See Remarks 3 and 4.\r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   Each of the options r, s, and t may have any one of the six BCD values X,\r\n     Y, Z, MX, MY, or MZ (\"M\" denotes the negative directions of the axes) so\r\n     that together they represent three mutually perpendicular axes, defining a\r\n     right-handed coordinate system.\r\n\r\n3.   By properly selecting the options r, s, and t on the AXES card, any desired\r\n     orientation can be obtained by the VIEW card (see description) by\r\n     specifying rotations that are all less than 90.0 degrees.\r\n\r\n4.   The SYMMETRIC option by itself does not in any way affect the plot output.\r\n     It can be specified to indicate (for informational purposes only) that the\r\n     alignment defined by the AXES card represents the symmetric reflection of\r\n     the structure, but the actual plot of the symmetric portion can be obtained\r\n     only by suitably specifying the alignment of the XYZ axes on the AXES card.\r\n     See Remark 6.\r\n\r\n5.   The ANTISYMMETRIC option causes the signs of the deformations to be\r\n     reversed before they are plotted. If you want this antisymmetrically\r\n     deformed plot to appear in the reflected position with respect to one or\r\n     more planes of symmetry, you should appropriately specify the alignment of\r\n     the XYZ axes on the AXES card. See Remark 7.\r\n\r\n6.   An undeformed or deformed plot of the symmetric portion of an object can be\r\n     obtained by reversing the sign of the axis that is normal to the plane of\r\n     symmetry. In the case of multiple planes of symmetry, the signs of all\r\n     associated planes should be reversed.\r\n\r\n7.   The ANTISYMMETRIC option is useful when a symmetric structure is loaded in\r\n     an unsymmetric manner. In this case, you can specify the ANTISYMMETRIC\r\n     option and also suitably define the alignment of the XYZ axes on the AXES\r\n     card so as to cause the deformations to be plotted antisymmetrically with\r\n     respect to one or more planes of symmetry.\r\n\r\n8.   Since the AXES card applies to all parts (SETs) of a single frame,\r\n     symmetric and antisymmetric combinations cannot be made with this card. The\r\n     SYMMETRY and ANTISYMMETRY options on the PLOT card (see description) can be\r\n     employed for that purpose.\r\n=PAGE=\r\nCAMERA - Camera Specification\r\n\r\nDescription\r\n\r\nProvides camera specifications for microfilm plotters.\r\n\r\nFormat and Example\r\n\r\n                                              \r\n          PAPER                          1    \r\nCAMERA    FILM       ,  BLANK FRAMES          \r\n          BOTH                           n    \r\n                                              \r\n\r\n\r\nCAMERA FILM, 2\r\n\r\nOption             Meaning\r\n\r\nFILM               35 mm or 16 mm film (positive or negative images).\r\n\r\nPAPER              Positive prints.\r\n\r\nBOTH               Positive prints and 35 mm or 16 mm film.\r\n\r\nn                  Number of blanks to be inserted between plots (Integer > \r\n                   0). (Applicable only to plots generated on film, that is, \r\n                   only if FILM or BOTH is selected. \r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n=PAGE=\r\nCONTOUR - Contour Plot Definition\r\n\r\nDescription\r\n\r\nSpecifies the type of contour plot and the contour values to be plotted.\r\n\r\nFormat and Example\r\n                                                                       \r\n                                                               \r\n        stress                    EVEN 10              COLOR n \r\nCONTOUR strain       , LAYER n  , EVEN n             ,         \r\n        displacement              LIST c1,c2,...,cn    FILL n  \r\n                                                               \r\n                                                                       \r\n                              \r\n                          \r\n            Z1     COMMON \r\n         ,  Z2   ,        \r\n            MAX    LOCAL  \r\n            MID           \r\n                            \r\n                  \r\n\r\nCONTOUR MAJPRIN, EVEN 20, LOCAL\r\n\r\nCONTOUR NRM1,LAYER 3, EVEN 15\r\n\r\nCONTOUR STRAIN, EVEN 20\r\n\r\nOption             Meaning\r\n\r\nstress             Type of stress contour plot to be generated, any one of the\r\n                   following nine BCD values (see following table for applicable\r\n                   elements):\r\n\r\n                   MAJPRIN             Major principal stress (default)\r\n                   MINPRIN             Minor principal stress\r\n                   MAXSHEAR            Maximum shear stress\r\n\r\n                   XNORMAL             X, Y, Z components of the normal stress\r\n                   YNORMAL\r\n                   ZNORMAL\r\n\r\n                   XYSHEAR             XY, XZ, YZ components of the shear stress\r\n                   XZSHEAR\r\n                   YZSHEAR\r\n\r\n                   (Stresses in layer composite QUAD4.)\r\n\r\n                   NRM1                Normal-1\r\n                   NRM2                Normal-2\r\n                   SH12                Shear-12\r\n                   SH1Z                Shear-1Z\r\n                   SH2Z                Shear-2Z\r\n\r\nstrain             STRAIN, strain energy for all elements.\r\n\r\ndisplacement  Type of displacement contour plot to be generated, any one of \r\n                   the following four BCD values (no default):\r\n\r\n                   XDISPLAC   X, Y, Z components of the displacement vector (use\r\n                   YDISPLAC   XDISPLAC for plotting of temperatures in heat \r\n                   ZDISPLAC   rigid formats) \r\n\r\n                   MAGNITUD   Magnitude of the displacement vector\r\n\r\nLAYER n            Composite layer to be plotted (used with QUAD4 only).\r\n\r\nEVEN n             Contour plots will be generated for n (0 < Integer < 50) \r\n                   equally spaced contour values over the current range of \r\n                   values. \r\n\r\n                   The first contour value will be the minimum and the nth \r\n                   contour value will be the maximum of the values for the \r\n                   current range of values. The current range of values is \r\n                   taken over all subcases. \r\n\r\nLIST c1,c2,...,cn  Contour plots will be generated for the contour values ci \r\n                   (Real) specified in the list.\r\n\r\nZ1                 Stresses at fiber distance 1 are to be used for the contour\r\n                   plotting. (See following table for applicable elements.)\r\n\r\nZ2                 Stresses at fiber distance 2 are to be used for the contour\r\n                   plotting. (See following table for applicable elements.)\r\n\r\nMAX                The maximum of the fiber distance 1 and fiber distance 2 \r\n                   stresses are to  be used for the contour plotting. (See \r\n                   following table for applicable elements.) \r\n\r\nMID                The average of the fiber distance 1 and fiber distance 2 \r\n                   stresses are to be used for the contour plotting. (See \r\n                   following table for applicable elements.) \r\n\r\nCOMMON             Transform the normal stresses and shear stresses from the \r\n                   local (or element) coordinate systems (in which they are \r\n                   originally calculated) to a common (specifically, to the \r\n                   basic) coordinate system for contour plotting. \r\n\r\nCOLOR n, FILL n    Contour plots will be generated with color contour lines, \r\n                   with the color variation depending on the number of pens\r\n                   available.\r\n\r\nLOCAL              Leave the stresses in the local (or element) coordinate \r\n                   systems for contour plotting. Note that the normal Z stress \r\n                   and the shear XZ and shear YZ stresses are assumed to be \r\n                   zero in the local or element coordinate systems. \r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   The CONTOUR option must be specified on the PLOT card (see description) in\r\n     order to obtain contour plots.\r\n\r\n3.   The stress contour option is available only for certain element types. The\r\n     applicable element types and the allowable options are shown in the\r\n     following table.\r\n\r\n    Applicable Element Types and Allowable Options for Stress Contour Plots\r\n\r\n     Ŀ\r\n        ELEMENT       STRESS        STRESS             COORDINATE     \r\n         NAME         OPTION       LOCATION              SYSTEM       \r\n     Ĵ\r\n                                                                      \r\n         TRIA1         MAJPRIN    Z1, Z2, or MAX      LOCAL           \r\n         QUAD1         MINPRIN                        LOCAL           \r\n         QUAD4         MAXSHEAR                       LOCAL           \r\n         TRPLT         XNORMAL                        COMMON or LOCAL \r\n         QDPLT         YNORMAL                        COMMON or LOCAL \r\n                       ZNORMAL                        COMMON          \r\n                       XYSHEAR                        COMMON or LOCAL \r\n                       XZSHEAR                        COMMON          \r\n                       YZSHEAR                        COMMON          \r\n                                                                      \r\n         TRIA2         MAJPRIN        MID             LOCAL           \r\n         QUAD2         MINPRIN                        LOCAL           \r\n         TRBSC         MAXSHEAR                       LOCAL           \r\n                       XNORMAL                        COMMON or LOCAL \r\n                       YNORMAL                        COMMON or LOCAL \r\n                       ZNORMAL                        COMMON          \r\n                       XYSHEAR                        COMMON or LOCAL \r\n                       XZSHEAR                        COMMON          \r\n                       YZSHEAR                        COMMON          \r\n                                                                      \r\n         TREM          MAJPRIN        Z1              LOCAL           \r\n         QDMEM         MINPRIN                        LOCAL           \r\n         QDMEM1        MAXSHEAR                       LOCAL           \r\n         QDMEM2        XNORMAL                        COMMON or LOCAL \r\n                       YNORMAL                        COMMON or LOCAL \r\n                       ZNORMAL                        COMMON          \r\n                       XYSHEAR                        COMMON or LOCAL \r\n                       XZSHEAR                        COMMON          \r\n                       YZSHEAR                        COMMON          \r\n                                                                      \r\n         SHEAR         MAXSHEAR       Z1              LOCAL           \r\n     \r\n\r\n4.   The displacement contour option is applicable to all two-dimensional\r\n     elements plotted by the structure plotter.\r\n\r\n5.   The contour lines are labeled with integers indicating the contour value.\r\n     The integers are listed with their associated contour values under MESSAGES\r\n     FROM THE PLOT MODULE in the printed output.\r\n=PAGE=\r\nCSCALE - Character Scale Specification\r\n\r\nDescription\r\n\r\nSpecifies the scale to be used for alphanumeric characters in a structure\r\nplot.\r\n\r\nFormat and Example\r\n\r\n            \r\n          1 \r\nCSCALE    n \r\n            \r\n\r\nCSCALE    2\r\n\r\n\r\nOption             Meaning\r\n\r\nn                  Factor by which the normal (or default) size of alphanumeric\r\n                   characters is multiplied (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   See Section 4.1.1 for an important discussion of plot frame size and\r\n     character size.\r\n=PAGE=\r\nFIND - Automatic Computation of Plot Parameters\r\n\r\nDescription\r\n\r\nComputes any of the parameters SCALE, ORIGIN i, and VANTAGE POINT indicated by\r\nyou.\r\n\r\nFormat and Example\r\n\r\nFIND [SCALE f] [,ORIGIN i] [,VANTAGE POINT] [,SET j]\r\n\r\n                                          \r\n                 0.0    0.0    1.0    1.0 \r\n      ,REGION    le  ,  be  ,  re  ,  te  \r\n                                          \r\n\r\n\r\nFIND SCALE, ORIGIN 100, VANTAGE POINT, SET 5, REGION 0.3, 0.1, 0.9, 0.8\r\n\r\nOption             Meaning\r\n\r\nf                  Ratio by which the scale is multiplied after it is calculated\r\n                   (Real). See Remark 6.\r\n\r\ni                  Origin identification number (Integer > 0).\r\n\r\nj                  Set identification number (Integer > 0).\r\n\r\nle                 Fractional distance of left edge of plot region from the \r\n                   lower left corner of the image area (Real). \r\n\r\nbe                 Fractional distance of bottom edge of plot region from the \r\n                   lower left corner of the image area (Real). \r\n\r\nre                 Fractional distance of right edge of plot region from the \r\n                   lower left corner of the image area (Real). \r\n\r\nte                 Fractional distance of top edge of plot region from the \r\n                   lower left corner of the image area (Real). \r\n\r\nRemarks\r\n\r\n1.   This card is optional, but is recommended for general use.\r\n\r\n2.   Multiple FIND cards are permitted for use with different plots. Each FIND\r\n     card must be one logical card.\r\n\r\n3.   This card computes any of the indicated parameters SCALE, ORIGIN i, and\r\n     VANTAGE POINT based on:\r\n\r\n     -    The plotter requested on the PLOTTER card.\r\n\r\n     -    The type of projection requested on the PROJECTION card.\r\n\r\n     -    SET j and REGION le, be, re, te requested on the FIND card.\r\n\r\n     -    The orientation requested on the AXES and/or VIEW card(s).\r\n\r\n     -    The deformation scaling requested on the MAXIMUM DEFORMATION card.\r\n\r\n     -    The paper size requested on the PAPER SIZE card (for table and drum\r\n          plotters).\r\n\r\n     The dependencies on which a FIND card is based must precede the FIND card.\r\n\r\n4.   Any one, two, or all three of the parameters may be computed by the program\r\n     by using this card, provided that the parameters not requested have already\r\n     been defined. If no SET is specified on this card, the first SET defined is\r\n     used by default. If no options are specified, a SCALE and VANTAGE POINT are\r\n     selected and ORIGIN 1 is located, using the first defined SET, so that the\r\n     plotted object is located within the image area. The plot region is defined\r\n     as some fraction of the image area (image area = 0.0, 0.0, 1.0, 1.0. and\r\n     first quadrant = 0.5, 0.5, 1.0, 1.0). The image area is located inside the\r\n     margins on the paper.\r\n\r\n5.   If a parameter is defined more than once, the value or choice last stated\r\n     (or computed) will be used. Because of this, it is recommended that the\r\n     FIND card be inserted immediately before the PLOT command to which its\r\n     values apply to ensure that previous values of the parameters are\r\n     overridden.\r\n\r\n6.   The scale used in plotting (see the description of the SCALE card for the\r\n     definition) is f x s, where f is the value specified on the FIND card (a\r\n     default value of 1.0 is used if f is not specified) and s is the scale\r\n     factor initially computed at the instance of the FIND card.\r\n=PAGE=\r\nMAXIMUM DEFORMATION - Maximum Displacement Specification\r\n\r\nDescription\r\n\r\nSpecifies the scale of the maximum displacement component in units of the\r\nstructure.\r\n\r\nFormat and Example\r\n\r\nMAXIMUM DEFORMATION  dmax\r\n\r\nMAXIMUM DEFORMATION   5.0\r\n\r\nOption             Meaning\r\n\r\ndmax               Length to which the maximum displacement component is \r\n                   scaled in each subcase (Real). The value should be \r\n                   specified in units of the structure, not inches of paper. \r\n                   See Remark 3. \r\n\r\nRemarks\r\n\r\n1.   This card is optional and is applicable only to plots of deformed\r\n     structures. It's use is recommended in such cases. This is because the\r\n     actual deformations are usually too small to be distinguishable from the\r\n     undeformed structure if they are plotted to true scale. If this card is not\r\n     used, a default value of 5% of the maximum (that is, 0.05 max (Smax - Smin,\r\n     Tmax - Tmin)) is assumed for dmax.\r\n\r\n2.   If the FIND card parameters are to be based on the deformed structure, the\r\n     FIND card must be preceded by the MAXIMUM DEFORMATION card.\r\n\r\n3.   If the MAXIMUM DEFORMATION parameter d on the PLOT card (see description)\r\n     is not specified, the maximum displacement component in each subcase will\r\n     be scaled to a value equal to dmax specified on the MAXIMUM DEFORMATION\r\n     card. But if the MAXIMUM DEFORMATION parameter d on the PLOT card is\r\n     specified, the maximum displacement component for all subcases will be\r\n     scaled to a value equal to dmax/d. Thus, in the latter case, each subcase\r\n     will have a different maximum displacement component.\r\n=PAGE=\r\nOCULAR SEPARATION - Ocular Separation Definition\r\n\r\nDescription\r\n\r\nDefines the S-direction separation of the two vantage points used in\r\nstereoscopic projection.\r\n\r\nFormat and Example\r\n                           \r\n                     2.756 \r\nOCULAR SEPARATION    os    \r\n                           \r\n\r\nOCULAR SEPARATION       2.5\r\n\r\n\r\nOption             Meaning\r\n\r\nos                 S-direction separation (in inches) of the two vantage \r\n                   points used in stereoscopic projection (Real). (See the \r\n                   discussion in Section 4.2.1.3). \r\n\r\nRemarks\r\n\r\n1.   This card is optional. It is applicable only for stereoscopic projection.\r\n\r\n2.   It is recommended that the default value of 2.756 inches be used. This is\r\n     the separation used in standard stereoscopic cameras and viewers (70 mm).\r\n=PAGE=\r\nORIGIN - Paper Origin Definition\r\n\r\nDescription\r\n\r\nDefines the paper origin (lower left hand corner] by specifying its\r\ndisplacements from the RST origin.\r\n\r\nFormat and Example\r\n\r\nORIGIN i, u, v [,u']\r\n\r\nORIGIN 10, 2.0, 3.0\r\n\r\nOption             Meaning\r\n\r\ni                  Origin identification number (Integer > 0).\r\n\r\nu                  Displacement, parallel to the S-axis, of the paper origin \r\n                   from the RST origin (for stereoscopic projection, \r\n                   displacement, parallel to the S-axis, of the paper origin \r\n                   for the left eye from the RST origin) (Real). \r\n\r\nv                  Displacement, parallel to the T-axis, of the paper origin \r\n                   from the RST origin (Real). \r\n\r\nu'                 Displacement, parallel to the T-axis, of the paper origin \r\n                   for the right eye from the RST origin (stereoscopic \r\n                   projection only) (Real). \r\n\r\nRemarks\r\n\r\n1.   This card is optional, but is not recommended for general use. See the\r\n     description of the FIND card in order to have the origin located\r\n     automatically so as to place the plotted object in the center of the image\r\n     area.\r\n\r\n2.   The displacements specified are in inches and are not subject to the\r\n     scaling of the plotted object.\r\n\r\n3.   In the transformations performed for any of the three projections, the\r\n     origins of the object (XYZ) and the observer (RST) are assumed to be\r\n     coincident.\r\n\r\n4.   Ten (10) origins are permitted to be active at any one time. However, any\r\n     one can be redefined at any time. An eleventh origin is also provided if\r\n     more than 10 origins are erroneously defined (that is, only the last of\r\n     these surplus origins will be retained). CAUTION: When a new projection or\r\n     plotter is called for, all previously defined origins are deleted.\r\n=PAGE=\r\nPAPER SIZE - Plot Frame Size Specification\r\n\r\nDescription\r\n\r\nSpecifies the plot frame size for table and drum plotters. (For microfilm\r\nplotters, the plot frame size is set at 10.23 inches x 10.23 inches and is not\r\nunder user control.)\r\n\r\nFormat and Example\r\n\r\n                                                \r\nPAPER SIZE    a   X    b   ,   TYPE     VELLUM  \r\n                  BY                    value   \r\n                                                \r\n\r\nPAPER SIZE 15.0 X 12.0\r\n\r\nOption             Meaning\r\n\r\na                  Width (parallel to the S-axis) of plot frame in inches \r\n                   (Real > 0.0). Must not exceed 30.0 for table plotters. \r\n\r\nb                  Height (parallel to the T-axis) of plot frame in inches \r\n                   (0.0 < b <= 30.0). \r\n\r\nvalue              Any BCD value desired by user for identification purposes.\r\n\r\nRemarks\r\n\r\n1.   This card is optional. If it is not used, the following default values are\r\n     assumed:\r\n\r\n          Plotter                      Default values (inches)\r\n          Model                        a             b\r\n\r\n          Table                        11.0          8.5\r\n\r\n          Drum                         30.0          30.0\r\n\r\n2.   See Section 4.1.1 for an important discussion of plot frame size and\r\n     character size.\r\n=PAGE=\r\nPEN - Pen Specification\r\n\r\nDescription\r\n\r\nSpecifies the parameters of the pen for use in table and drum plotters.\r\n\r\nFormat and Example\r\n\r\n                                            \r\nPEN     1   , SIZE   1     , COLOR   BLACK  \r\n        i            j               name   \r\n                                            \r\n\r\nPEN 4, SIZE 2, COLOR RED\r\n\r\nOption             Meaning\r\n\r\ni                  Pen designation number (8 >= Integer > 0).\r\n\r\nj                  Pen size number (Integer >= 0).\r\n\r\nname               Color desired (BCD).\r\n\r\nRemarks\r\n\r\n1.   This card is optional. It is applicable only for table and drum plotters.\r\n\r\n2.   Pen designations vary on different plotters and the actual number of pens\r\n     available will depend on the plotter hardware configuration at an\r\n     installation. Therefore, the designation numbers used here should be\r\n     regarded only as pointers to the true identification of the pens.\r\n\r\n3.   This card generates a message on the printed output which may be used for\r\n     the purpose of informing the plotter operator as to what size and which\r\n     color pen point to mount in the various pen holders.\r\n\r\n4.   This card does not control the pen used in generating the plot (see the PEN\r\n     option on the PLOT card).\r\n=PAGE=\r\nPLOT - Plot Generation\r\n\r\nDescription\r\n\r\nSpecifies all plot parameters so as to cause plots to be generated for the\r\nselected plotter.\r\n\r\nFormat\r\n\r\n                   \r\n        STATIC                      \r\n        MODAL         DEFORMATION   \r\nPLOT    CMODAL        VELOCITY       [CONTOUR] [i1, i2 THRU i3, etc.]\r\n        FREQUENCY     ACCELERATION  \r\n        TRANSIENT                   \r\n                   \r\n                                               \r\n        RANGE f1,f2               PHASE LAG   \r\n        RANGE lambda1,lambda2                  ,[MAXIMUM DEFORMATION d],\r\n        TIME t1,t2                MAGNITUDE    \r\n                                               \r\n                                                           \r\n                            SYMMETRY             PEN       \r\n      [SET j1][ORIGIN k1]                   w              \r\n                            ANTISYMMETRY         DENSITY   \r\n                                                           \r\n                                                                \r\n                                                   GRID POINTS  \r\n                       p [SYMBOLS m[,n]]   LABEL   ELEMENTS      ,\r\n                                                   BOTH         \r\n                                                   EPID         \r\n                                                                \r\n                                         \r\n                         SHAPE           \r\n                         VECTOR v        \r\n                         SHAPE,VECTOR v  \r\n                         OUTLINE          , [NOFIND] , [OFFSET n]\r\n                         HIDDEN          \r\n                         SHRINK s        \r\n                         FILL            \r\n                                         \r\n\r\n      [SET j2][ORIGIN k2] ... etc.\r\n\r\nOption             Meaning\r\n\r\n1. STATIC          Plot static deformations in Rigid Formats 1, 2, 4, 5, 6, \r\n                   and 14; Heat Rigid Formats 1 and 3; Aero Rigid Format 11. \r\n\r\nMODAL              Plot mode shapes in Rigid Formats 3, 5, 13, and 15.\r\n\r\nCMODAL             Plot mode shapes in Aero Rigid Format 10.\r\n\r\nFREQUENCY          Plot frequency deformations in Rigid Formats 8 and 11 and \r\n                   Aero Rigid Format 11. \r\n\r\nTRANSIENT          Plot transient deformations in Rigid Formats 9 and 12; Heat \r\n                   Rigid Format 9; Aero Rigid Format 11. \r\n\r\n2. DEFORMATION     Nonzero integers(i) following refer to subcases that are to \r\n                   be plotted. Default is all subcases. See SHAPE and VECTOR \r\n                   for use of \"O\" command. \r\n\r\nVELOCITY           Nonzero integers(i) following refer to subcases that are to \r\n                   be plotted. Default is all subcases. \r\n\r\nACCELERATION       Nonzero integers(i) following refer to subcases that are to \r\n                   be plotted. Default is all subcases. \r\n\r\n3. CONTOUR         Refers to stress or displacement contour lines and values. \r\n                   If deformed plots are requested, then the contours will be \r\n                   drawn on the deformed shape. If an underlay is requested \r\n                   (via \"O\" in the subcase string), the contours will be drawn \r\n                   on the undeformed shape. \r\n\r\n4. i1, i2,...      Nonzero integers specifying the subcases that are to be \r\n                   plotted. Default is all subcases. See SHAPE and VECTOR for \r\n                   use of \"O\" (underlay) command. \r\n\r\n5. RANGE           Refers to range of eigenvalues (lambda1 - lambda2; real) \r\n                   (Rigid Format 5) or frequencies (f1- f2; real) (Rigid \r\n                   Formats 3, 8, 10, 11, 13, and 15), using requested \r\n                   subcases, for which plots will be prepared. \r\n\r\nTIME               Refers to time interval (t1 - t2; real), using requested \r\n                   subcases and output time steps, for which plots will be \r\n                   prepared (Rigid Formats 9 and 12). \r\n\r\n6. PHASE LAG       Real number, , in degrees (default is 0.0). The plotted \r\n                   value is uR cos  - uI sin , where uR and uI are the real \r\n                   and imaginary parts of the response quantity (Rigid Formats \r\n                   8 and 11). \r\n\r\nMAGNITUDE          Plotted value is square root of (uR2 + uI2).\r\n\r\n7. MAXIMUM DEFORMATION  Real number d. The value dmax/d (where dmax is the\r\n                   value specified on the MAXIMUM DEFORMATION card; see \r\n                   description) is used as the maximum displacement component \r\n                   in scaling the displacements for all subcases. Each subcase \r\n                   is scaled separately to the value dmax according to its own \r\n                   maximum if this item is absent. \r\n\r\n8. SET             Integer following (j) identifies a set which defines the \r\n                   portion of the structure to be plotted. Default is first \r\n                   set defined. \r\n\r\n9. ORIGIN          Integer following (k) identifies the origin to be used for \r\n                   the plot. Default is first origin defined. \r\n\r\n10. SYMMETRY w     Prepare an undeformed or deformed plot of the symmetric \r\n                   portion of the object which is defined by SET j. This \r\n                   symmetric portion will be located in the space adjacent to \r\n                   the region originally defined by ORIGIN k, and will appear \r\n                   as a reflection about the plane whose normal is oriented \r\n                   parallel to the coordinate direction w. \r\n\r\nANTISYMMETRY w     Prepare a deformed plot of the symmetric portion of the \r\n                   antisymmetrically loaded object which is defined by SET j. \r\n                   This symmetric portion will be located in the space \r\n                   adjacent to the region originally defined by ORIGIN k, and \r\n                   will appear as a reflection of the antisymmetrically \r\n                   deformed structure about the plane whose normal is oriented \r\n                   parallel to the coordinate direction w. \r\n\r\n                   The symbol w may specify the basic coordinates X, Y, or Z \r\n                   or any combination thereof. This option allows the plotting \r\n                   of symmetric and/or antisymmetric combinations, provided \r\n                   that an origin is selected for the portion of the structure \r\n                   defined by the bulk data that allows sufficient room for \r\n                   the complete plot. This does not permit the combination of \r\n                   symmetric and antisymmetric subcases, as each plot must \r\n                   represent a single subcase. In the case of a double \r\n                   reflection, the figure will appear as one reflected about \r\n                   the plane whose normal is parallel to the first of the \r\n                   coordinates w, followed by a reflection about the plane \r\n                   whose normal is oriented parallel to the second of the \r\n                   coordinates w. This capability is primarily used in the \r\n                   plotting of structures that are loaded in a symmetric or an \r\n                   antisymmetric manner. The plane of symmetry must be one of \r\n                   the basic coordinate planes. \r\n\r\n                   In order to get both unreflected and reflected portions of \r\n                   a symmetric structure plotted on the same frame, the PLOT \r\n                   command must have two parts. The first part must contain \r\n                   instructions to plot a segment with a specified origin \r\n                   (biased to one side), but without the SYMMETRY or \r\n                   ANTISYMMETRY option; the second part following must contain \r\n                   instructions to plot the same segment with the same origin, \r\n                   but now with an appropriate choice of the SYMMETRY or \r\n                   ANTISYMMETRY option. See Example 6. \r\n\r\n11. PEN            Integer following (p) controls the internal NASTRAN pen \r\n                   number that is used to generate the plot on table and drum \r\n                   plotters. \r\n\r\nDENSITY            Integer following (p) specifies line density for microfilm\r\n                   plotters. A line density of d is d times heavier than a line\r\n                   density of 1.\r\n\r\n12. SYMBOLS m[,n]  Each of the grid points associated with the specified set \r\n                   will have symbol m overprinted with symbol n printed at its \r\n                   location. If n is not specified, only symbol m will be \r\n                   printed. Grid points excluded from the set will not have a \r\n                   symbol. Grid points in an undeformed underlay will be \r\n                   identified with symbol 2. \r\n\r\n                   The following table gives the correspondence between the \r\n                   values of m and n and the symbols used in plotting. \r\n\r\n                        m or n      SYMBOL\r\n\r\n                          0        no symbol\r\n                          1            X\r\n                          2            *\r\n                          3            +\r\n                          4            -\r\n                          5        filled bullet\r\n                          6        open circle\r\n                          7        open square\r\n                          8        open diamond\r\n                          9        open triangle\r\n\r\n13. LABEL GRID POINTS  All the grid points associated with the specified set \r\n                   have their identification number printed to the right of the\r\n                   undeflected or deflected location (undeflected location for\r\n                   superimposed plots).\r\n\r\nLABEL ELEMENTS     All the elements included in the specified set are \r\n                   identified by the element identification number and type at \r\n                   the center of each element (undeflected location for \r\n                   superimposed plots). \r\n\r\nLABEL BOTH         Label both the grid points and elements.\r\n\r\n                   Labels for element types are given in the following table:\r\n\r\n                   Element Type     Plot Label     Element Type    Plot Label\r\n\r\n                      AERO1         AE               QUAD2         Q2\r\n                      AXIF2         A2               ROD           RD\r\n                      AXIF3         A3               SHEAR         SH\r\n                      AXIF4         A4               SLOT3         S3\r\n                      BAR           BR               SLOT4         S4\r\n                      CONE          CN               TETRA         TE\r\n                      CONROD        CR               TORDRG        TR\r\n                      DUMi          Di(i=1-9)        TRAPAX        T4\r\n                      HBDY          HB               TRAPRG        TA\r\n                      HEXA1         H1               TRBSC         TB\r\n                      HEXA2         H2               TRIAAX        T3\r\n                      FLUID2        F2               TRIARG        TI\r\n                      FLUID3        F3               TRIA1         T1\r\n                      FLUID4        F4               TRIA2         T2\r\n                      IHEX1         XL               TRIM6         T6\r\n                      IHEX2         XQ               TRMEM         TM\r\n                      IHEX3         XC               TRPLT         TP\r\n                      PLOTEL        PL               TRPLT1        P6\r\n                      QDMEM         QM               TRSHL         SL\r\n                      QDMEM1        M1               TUBE          TU\r\n                      QDMEM2        M2               TWIST         TW\r\n                      QDPLT         QP               VISC          VS\r\n                      QUAD1         Q1               WEDGE         WG\r\n\r\nLABEL EPID         All the elements included in the specified set are \r\n                   identified by the element property identification number \r\n                   (in addition to the element identification number and type) \r\n                   at the center of each element type (undeflected location \r\n                   for superimposed plots). Note that LABEL EPID causes \r\n                   element and property labels to be printed, but LABEL \r\n                   ELEMENT results only in element labels. \r\n\r\n14. SHAPE          All the elements included in the specified set are shown by \r\n                   connecting the associated grid points in a pre-determined \r\n                   manner. \r\n\r\n                   Both deformed and undeformed shapes may be specified. All \r\n                   of the deformed shapes relating to the subcases listed may \r\n                   be underlaid on each of their plots by including \"O\" with \r\n                   the subcase string on the PLOT card. The undeformed plot \r\n                   will be drawn using PEN 1 or DENSITY 1 and symbol 2 (if \r\n                   SYMBOLS is specified). \r\n\r\n15. VECTOR v       A line will be plotted at the grid points of the set, \r\n                   representing in length and direction the deformation of the \r\n                   point. \r\n\r\n                   Vectors representing the total deformation or its principal \r\n                   components may be plotted by insertion of the proper \r\n                   letter(s) for variable v. Possible vector combinations are: \r\n\r\n                   X or Y or Z requesting individual components\r\n\r\n                   XY or XZ or YZ requesting two specified components\r\n\r\n                   XYZ requesting all three components\r\n\r\n                   RXY or RXZ or RYZ requesting vector sum of two components\r\n\r\n                   R requesting total vector deformation\r\n\r\n                   N used with any of the above combinations to request no \r\n                   underlay shape be drawn. \r\n\r\n                   All plots requesting the VECTOR option shall have an \r\n                   underlay generated of the undeformed shape using the same \r\n                   sets, PEN 1 or DENSITY 1, and symbol 2 (if SYMBOLS is \r\n                   specified). If SHAPE and VECTOR are specified, the underlay \r\n                   will depend on whether \"O\" is used with DEFORMATION. It \r\n                   will be the deformed shape when not used and will be both \r\n                   deformed and undeformed shapes when it is used. The part of \r\n                   the vector at the grid point will be the tail when the \r\n                   underlay is undeformed and the head when it is deformed. If \r\n                   the \"N\" parameter is used with VECTOR, no shape will be \r\n                   drawn but other options such as SYMBOLS will still be \r\n                   valid. \r\n\r\n16. OUTLINE        Connecting lines between grid points that lie on the \r\n                   boundary of the structural model will be plotted. The \r\n                   outline will reflect the deformed shape unless \"O\" is \r\n                   included in the subcase string. The OUTLINE option will be \r\n                   ignored if the CONTOUR option is not also requested. \r\n\r\n17. HIDDEN         Provides a hidden image plot of the elements in the plot \r\n                   set. The HIDDEN option will be ignored if the CONTOUR \r\n                   option is also requested. The LABEL option should not be \r\n                   used with the HIDDEN option. \r\n\r\n18. SHRINK s       The real value (s) is the factor used to shrink or reduce \r\n                   elements within connecting grid points. The value s is \r\n                   limited to 0.1 to 1.0 with a default value of 0.75. \r\n\r\n19. FILL           Provides the color filling of elements using the color \r\n                   specified by PEN. \r\n\r\n20. NOFIND         Disables the automatic FIND for this plot. That is, the SET \r\n                   defined for the present plot will be drawn using the SCALE, \r\n                   VANTAGE POINT, and ORIGIN from the previous PLOT command. \r\n\r\n21. OFFSET n       If OFFSET is not requested or n = 0, elements with offsets \r\n                   (CBAR, CQUAD4, and CTRIA3) will be plotted from and to the \r\n                   offsets (not from and to the grid point locations). Since \r\n                   the offsets are usually very small as compared to the bar \r\n                   lengths or the plate edges, the actual directions of the \r\n                   offsets are arbitrarily set (normally 90 degrees from bar \r\n                   or edge). If OFFSET n is requested and n > 0, only those \r\n                   elements which have offsets are plotted, the actual offset \r\n                   directions are computed, and the magnitudes of the offsets \r\n                   are amplified n times. Offset plot is available only in the \r\n                   undeformed plot. If n < 0, all elements will be plotted \r\n                   without the offsets, from and to the grid point locations. \r\n                   (Default n = 0.) \r\n\r\nRemarks\r\n\r\n1.   The plot card is required to generate plots. Each logical card will cause\r\n     one picture to be generated for each subcase, mode, or time step requested,\r\n     using the current parameter values.\r\n\r\n2.   If only the word PLOT appears on the card, a picture of the undeformed\r\n     structure will be prepared using the first defined set and the first\r\n     defined origin.\r\n\r\n3.   If no FIND card is given after the previous PLOT card, the specified set on\r\n     the PLOT card is used to perform an automatic FIND operation.\r\n\r\nExamples\r\n\r\nFollowing are some examples illustrating the use of the PLOT card:\r\n\r\n1. PLOT\r\n\r\nUndeformed SHAPE using first defined SET, first defined ORIGIN, and PEN 1 (or\r\nDENSITY 1).\r\n\r\n2. PLOT SET 3 ORIGIN 4 PEN 2 SHAPE SYMBOLS 3 LABEL\r\n\r\nUndeformed SHAPE using SET 3, ORIGIN 4, PEN 2 (or DENSITY 2) with each grid\r\npoint of the set having a + placed at its location, and its identification\r\nnumber printed adjacent to it.\r\n\r\n3. PLOT MODAL DEFORMATION 5 SHAPE\r\n\r\nModal deformations as defined in subcase 5 using first defined SET, first\r\ndefined ORIGIN, and PEN 1 (or DENSITY 1). Subcases must have previously been\r\ndefined in the Case Control Deck via the use of MODES cards, otherwise all\r\nmodes will be in an assumed subcase 1.\r\n\r\n4. PLOT STATIC DEFORMATION 0, 3 THRU 5, 8 PEN 4, SHAPE\r\n\r\nStatic deformations as defined in subcases 3, 4, 5, and 8, deformed SHAPE;\r\ndrawn with PEN 4, using first defined SET and ORIGIN, underlaid with\r\nundeformed SHAPE drawn with PEN 1. This command will cause four plots to be\r\ngenerated.\r\n\r\n5. PLOT STATIC DEFORMATION 0 THRU 5,\r\n   SET 2 ORIGIN 3 PEN 3 SHAPE,\r\n   SET 2 ORIGIN 4 PEN 4 VECTORS XYZ SYMBOLS 6,\r\n   SET 35 SHAPE\r\n\r\nDeformations as defined in subcases 1, 2, 3, 4, and 5, undeformed underlay\r\nwith PEN 1, consisting of SET 2 at ORIGIN 3, SET 2 at ORIGIN 4 (with an *\r\nplaced at each grid point location), and SET 35 at ORIGIN 4. Deflected data as\r\nfollows: SHAPE using SET 2 at ORIGIN 3 (PEN 3) and SET 35 at ORIGIN 4 (PEN 4);\r\n3 VECTORS (X, Y, and Z) drawn at each grid point of SET 2 at ORIGIN 4 (PEN 4)\r\n(less any excluded grid points), with open circle placed at the end of each\r\nvector.\r\n\r\n6. PLOT STATIC DEFORMATIONS 0, 3, 4,\r\n   SET 1 ORIGIN 2 DENSITY 3 SHAPE,\r\n   SET 1 SYMMETRY Z SHAPE,\r\n   SET 2 ORIGIN 3 SHAPE,\r\n   SET 2 SYMMETRY Z SHAPE\r\n\r\nStatic deformations as defined in subcases 3 and 4, both halves of a problem\r\nsolved by symmetry using the X-Y principal plane as the plane of symmetry. SET\r\n1 at ORIGIN 2 and SET 2 at ORIGIN 3, with the deformed shape plotted using\r\nDENSITY 3 and the undeformed structure plotted using DENSITY 1. The\r\ndeformations of the \"opposite\" half will be plotted to correspond to symmetric\r\nloading. This command will cause two plots to be generated.\r\n\r\n7. PLOT TRANSIENT DEFORMATION 1, TIME 0.1, 0.2, MAXIMUM DEFORMATION 2.0, SET 1,\r\n   ORIGIN 1, PEN 2, SYMBOLS 2, VECTOR R\r\n\r\nTransient deformations as defined in subcase 1 for time = 0.1 to time = 0.2,\r\nusing SET 1 at ORIGIN 1. The undeformed shape using PEN or DENSITY 1 with an *\r\nat each grid point location will be drawn as an underlay for the resultant\r\ndeformation vectors using PEN or DENSITY 2 with an * typed at the end of each\r\nvector drawn. In addition, a plotted value of dmax/2.0 (where dmax is the value\r\nspecified on the MAXIMUM DEFORMATION card) will be used for the single maximum\r\ndeformation occurring on any of the plots produced. All other deformations on\r\nall other plots will be scaled relative to this single maximum deformation.\r\nThis command will cause a plot to be generated for each output time step which\r\nlies between 0.1 and 0.2.\r\n\r\n8. PLOT CMODAL DEFORMATION PHASE LAG 90., SET 1 VECTOR R\r\n\r\nThe imaginary part of the complex mode shape will be plotted for SET 1.\r\n\r\n9. PLOT CONTOUR 2\r\n   PLOT CONTOUR 2 OUTLINE\r\n   CONTOUR MINPRIN\r\n   PLOT STATIC DEFORMATION CONTOUR 1 OUTLINE\r\n\r\nThe first PLOT card will cause Major Principal Stress contours to be plotted\r\non the undeformed shape of the complete model and the second PLOT card will\r\ncause the outline of the model to be plotted due to the defaults associated\r\nwith the CONTOUR card. Contour stress plots of the Minor Principal Stress will\r\nbe plotted on the outline of the deformed shape by the third PLOT card.\r\n\r\n10. PLOT SET 10 SHRINK .85\r\n\r\nThe undeformed shape of the elements defined by SET 10 will be drawn, with\r\nelement sizes reduced to 85 percent of the scaled size. Grid locations will be\r\nautomatically scaled to fill the image area.\r\n\r\n11. SET 10 = ALL\r\n    SET 20 = 100 THRU 200\r\n    FIND SCALE ORIGIN 1 SET 10\r\n    PLOT SET 10\r\n    PLOT SET 20 NOFIND\r\n    PLOT SET 20\r\n\r\nThere will be three frames of the undeformed structure plotted. The first will\r\ndisplay the entire structure, scaled to fill the image area. The second frame\r\nwill display elements 100 through 200, using the scale for the previous plot.\r\nThe third frame will display elements 100 through 200, scaled to fill the\r\nimage area.\r\n\r\n12. PLOT SET 10 PEN 6 FILL\r\n\r\nThe undeformed shape of the elements defined by SET 10 will be filled by the\r\ncolor defined by PEN 6.\r\n=PAGE=\r\nPLOTTER - Plotter Model Specification\r\n\r\nDescription\r\n\r\nSpecifies the model and the typing capability of the plotter to be used for\r\nplotting.\r\n\r\nFormat and Example\r\n\r\n                                                       \r\nPLOTTER NASTPLT    , [MODEL]   M   ,   1   [DENSITY n] \r\n                               T       0               \r\n                                D         \r\n                                  \r\n\r\nPLOTTER NASTPLT, T, 0\r\n\r\n\r\nOption             Meaning\r\n\r\nM                  Microfilm plotter.\r\n\r\nT                  Table plotter.\r\n\r\nD                  Drum plotter.\r\n\r\n0                  Plotter has typing capability.\r\n\r\n1                  Plotter has no typing capability. In this case, all \r\n                   characters will be drawn. \r\n\r\nn                  Density of the plot tape in bits per inch (Integer > 0).\r\n\r\nRemarks\r\n\r\n1.   This card is optional. If it is used, it is recommended that it be the very\r\n     first card after the OUTPUT(PLOT) card in the structure plot request\r\n     packet.\r\n\r\n2.   The tape density information is used only in the printout and does not\r\n     control the density of the generated plot tape. To control the tape\r\n     density, you must use the customary means of communication established at a\r\n     given installation between you and the computer operators.\r\n=PAGE=\r\nPROJECTION - Projection Specification\r\n\r\nDescription\r\n\r\nSpecifies the type of projection to be used in the plotting.\r\n\r\nFormat and Example\r\n\r\n              \r\n ORTHOGRAPHIC \r\n PERSPECTIVE     PROJECTION\r\n STEREOSCOPIC \r\n              \r\n\r\nPERSPECTIVE PROJECTION\r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   See Section 4.2.1 for a discussion of the various projections. See also\r\n     Section 13 of the Theoretical Manual.\r\n=PAGE=\r\nPROJECTION PLANE SEPARATION - Projection Plane Definition\r\n\r\nDescription\r\n\r\nSpecifies the R-direction separation of the observer and the projection plane\r\nin perspective and stereoscopic projections.\r\n\r\nFormat and Example\r\n\r\nPROJECTION PLANE SEPARATION   do\r\n\r\nPROJECTION PLANE SEPARATION   5.0\r\n\r\nOption             Meaning\r\n\r\ndo                 R-direction separation of the observer and the projection \r\n                   plane (Real). \r\n\r\nRemarks\r\n\r\n1.   This card is optional. It is applicable only for perspective and\r\n     stereoscopic projections. See Figure 4.2-3 and the discussion in Section\r\n     4.2.1.\r\n\r\n2.   This card is not recommended for general use. It may be omitted if VANTAGE\r\n     POINT is included on the FIND card (see description).\r\n\r\n3.   See Section 13 of the Theoretical Manual for a theoretical discussion of\r\n     the projection plane separation.\r\n=PAGE=\r\nPTITLE - Plot Title Definition\r\n\r\nDescription\r\n\r\nDefines the plot title for a series of plots.\r\n\r\nFormat and Example\r\n\r\n                     \r\nPTITLE    blanks     \r\n          BCD string \r\n                     \r\n\r\nPTITLE  VIBRATION ANALYSIS OF A PLATE\r\n\r\nOption             Meaning\r\n\r\nBCD string         May be up to 64 characters.\r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   A plot title card remains in effect until a new plot title is defined. To\r\n     eliminate a previous plot title, a new plot title card which contains only\r\n     blanks must be defined.\r\n\r\n3.   A plot title card must precede the PLOT card to which it pertains. If a\r\n     PLOT card generates several plot frames, the preceding plot title card will\r\n     apply to all the frames.\r\n=PAGE=\r\nSCALE - Plotted Object Scale Definition\r\n\r\nDescription\r\n\r\nDefines the scale of the plotted object with respect to the real object.\r\n\r\nFormat and Example\r\n\r\nSCALE   a [,b]\r\n\r\nSCALE   0.5, 0.75\r\n\r\nOption             Meaning\r\n\r\na                  Ratio of the plotted object in inches to the real object \r\n                   (for orthographic or perspective projections) or a smaller \r\n                   model (for stereoscopic projection; see below) in the units \r\n                   of the structural model; that is, one inch of paper equals \r\n                   one unit of the structure (Real). \r\n\r\nb                  Ratio by which the real object is first reduced to a \r\n                   smaller model before applying the scale factor a described \r\n                   above (Real). Used only in stereoscopic projections to \r\n                   enhance the stereoscopic effect. \r\n\r\nRemarks\r\n\r\n1.   This card is optional, but is not recommended for general use. See the\r\n     description of the FIND card in order to have the scale determined\r\n     automatically.\r\n\r\n2.   For stereoscopic projections, the ratio of the plotted object to the real\r\n     object is given by the product a x b.\r\n=PAGE=\r\nSET - Set Definition\r\n\r\nDescription\r\n\r\nSpecifies sets of elements, corresponding to portions of the structure, which\r\nmay be referenced by FIND and PLOT cards.\r\n\r\nFormat\r\n\r\nSET i [INCLUDE] [ELEMENTS] j1, j2, j3 THRU j4, j5, etc.\r\n                             \r\n       INCLUDE   ELEMENTS    \r\n       EXCLUDE   GRID POINTS   k1, k2, k3 THRU k4, k5, etc.\r\n       EXCEPT                \r\n                             \r\n\r\nOption             Meaning\r\n\r\ni                  Set identification number (Integer > 0).\r\n\r\nj                  Element identification numbers (Integers > 0) or element \r\n                   types (BCD values). \r\n\r\nk                  Element identification numbers or grid point identification \r\n                   numbers (Integers > 0) or element types (BCD values). \r\n\r\nRemarks\r\n\r\n1.   This card is required. However, when plotting in the substructure\r\n     environment in Phase 2 (via the substructure PLOT command, see Section\r\n     2.7.3), the set definition specified by this card is ignored.\r\n\r\n2.   Multiple SET cards can be used to define multiple sets of elements, but\r\n     redefinition of previously defined SETs is not permitted. Also, each SET\r\n     must be one logical card and each SET identification number must be unique.\r\n\r\n3.   ALL may be used to select all permissible element types. The following are\r\n     the permissible element types:\r\n\r\n     AERO1, AXIF2, AXIF3, AXIF4, BAR, CONEAX, CONROD, DUMi (i = 1-9), HBDY,\r\n     HEXA1, HEXA2, FLUID2, FLUID3, FLUID4, IHEX1, IHEX2, IHEX3, PLOTEL, QDMEM,\r\n     QDMEM1, QDMEM2, QDPLT, QUAD1, QUAD2, ROD, SHEAR, SLOT3, SLOT4, TETRA,\r\n     TORDRG, TRAPAX, TRAPRG, TRBSC, TRIAAX, TRIARG, TRIA1, TRIA2, TRIM6, TRMEM,\r\n     TRPLT, TRPLT1, TRSHL, TUBE, TWIST, VISC, WEDGE.\r\n\r\n4.   INCLUDE may be used at any time for element information. When used with\r\n     grid points, INCLUDE can be used only to restore previously EXCLUDEd grid\r\n     points. It cannot be used to include grid points in the original set of\r\n     grid points.\r\n\r\n5.   EXCLUDE can be used to delete elements or element types. All grid points\r\n     that are associated with deleted elements are also deleted. EXCLUDE can be\r\n     used to delete deformation vectors from grid points enumerated after an\r\n     EXCLUDE command.\r\n\r\n6.   EXCEPT is a modifier to an INCLUDE or an EXCLUDE statement.\r\n\r\n7.   THRU is used to indicate all of the integers in a sequence of\r\n     identification numbers, starting with the integer preceding THRU and ending\r\n     with the integer following THRU. The integers in the range of the THRU\r\n     statement need not be consecutive; for example, the sequence 2, 4, 7, 9 may\r\n     be specified as 2 THRU 9.\r\n\r\n8.   Each set of elements defines by implication a set of grid points connected\r\n     by those elements. The set may be modified by deleting some of its grid\r\n     points. The elements are used for creating the plot itself and element\r\n     labeling, and the grid points are used for labeling, symbol printing, and\r\n     drawing deformation vectors.\r\n\r\n9.   It should be noted that only elements can be plotted. Grid points not\r\n     associated with elements cannot be plotted. Grid points may be connected\r\n     with PLOTEL elements for plotting purposes.\r\n\r\n10.  When using axisymmetric (CONEAX, TRAPAX, or TRIAAX) or fluid (FLUID2,\r\n     FLUID3, or FLUID4) elements, the element and grid point identification\r\n     numbers specified on the SET card must refer to the NASTRAN (or\r\n     internal) identification numbers rather than to your (or external)\r\n     identification numbers. The relationships between these two sets of\r\n     identification numbers are given in Section 1.3.7.3 for the axisymmetric\r\n     elements and in Section 1.7.1.4 for the fluid elements.\r\n\r\nExamples\r\n\r\nThe sets of identification numbers can be assembled by use of the word ALL, or\r\nby individually listing the integers in any order, such as 1065, 32, 46, 47,\r\n7020, or by listing sequences using THRU, EXCLUDE, and EXCEPT, such as 100\r\nTHRU 1000 EXCEPT 182 EXCLUDE 877 THRU 911. Following are some examples of SET\r\ncards:\r\n\r\n1. SET 1 INCLUDE 1, 5, 10 THRU 15 EXCEPT 12\r\n\r\nSet will consist of elements 1, 5, 10, 11, 13, 14 and 15.\r\n\r\n2. SET 25 = ROD, CONROD, EXCEPT 21\r\n\r\nSet will consist of all ROD and CONROD elements except element 21.\r\n\r\n3. SET 10 SHEAR EXCLUDE GRID POINTS 20, 30 THRU 60, EXCEPT 35, 36 INCLUDE\r\n   ELEMENTS 70 THRU 80\r\n\r\nThis set will include all SHEAR elements plus elements 70 through 80, and the\r\nassociated grid point set will contain all grid points connected by these\r\nelements. Grid points 20, 30 through 34, and 37 through 60 will appear on all\r\nplots with their symbols and labels; however, no deformation vectors will\r\nappear at these grid points when VECTOR is commanded.\r\n\r\n4. SET (15) = (15 THRU 100) EXCEPT (21 THRU 25)\r\n\r\nThis set will include all elements from 15 to 20 and from 26 to 100.\r\n\r\n5. SET 2 = ALL EXCEPT BAR\r\n\r\nThis set will include all elements except BARs.\r\n\r\nNOTE: The equal signs, commas, and parentheses above are delimiters and are\r\nnot required because blanks also serve as delimiters.\r\n=PAGE=\r\nVANTAGE POINT - Vantage Point Definition\r\n\r\nDescription\r\n\r\nDefines the location of the observer with respect to the structural model by\r\ndefining the vantage point(s) used in perspective and stereoscopic\r\nprojections.\r\n\r\nFormat and Example\r\n\r\nVANTAGE POINT ro, so, to [,sor]\r\n\r\nVANTAGE POINT 2.0, 5.0, 0.0\r\n\r\nOption             Meaning\r\n\r\nro                 R-coordinate of the observer (Real).\r\n\r\nso                 S-coordinate of the observer in perspective projection or the\r\n                   S-coordinate of the left eye of the observer in stereoscopic\r\n                   projection (Real).\r\n\r\nto                 T-coordinate of the observer (Real).\r\n\r\nsor                S-coordinate of the right eye of the observer in stereoscopic\r\n                   projection (not needed in perspective projection) (Real).\r\n\r\nRemarks\r\n\r\n1.   This card is optional. It is applicable only for perspective and\r\n     stereoscopic projections. See Figure 4.2-3 and the discussion in Section\r\n     4.2.1.\r\n\r\n2.   This card is not recommended for general use. See the description of the\r\n     FIND card in order to have the VANTAGE POINT(s) determined automatically.\r\n\r\n3.   See Section 13 of the Theoretical Manual for a theoretical description of\r\n     the vantage point.\r\n=PAGE=\r\nVIEW - XYZ Axes Orientation Specification\r\n\r\nDescription\r\n\r\nDefines the orientation of the XYZ axes (the basic coordinate system of the\r\nobject) with respect to the RST axes (the observer's coordinate system). See\r\nFigure 4.2-1.\r\n\r\nFormat and Example\r\n\r\n                                           \r\nVIEW    34.27   ,   23.17 or 0.0   ,   0.0 \r\n                                        \r\n                                           \r\n\r\nVIEW 45.0, 30.0, 0.0\r\n\r\nOption             Meaning\r\n\r\n                  Angle of turn (degrees) (Real). See Figure 4.2-1.\r\n\r\n                  Angle of tilt (degrees) (Real). See Figure 4.2-1.\r\n\r\n                  Angle of orientation (degrees) (Real). See Figure 4.2-1.\r\n\r\nRemarks\r\n\r\n1.   This card is optional.\r\n\r\n2.   The default value for  is 23.17 degrees for orthographic and perspective\r\n     projections and 0.0 degrees for stereoscopic projections.\r\n\r\n3.   The order in which , , and  are specified is critically important as\r\n     illustrated in Figure 4.2-3. See also Section 13.1.1 of the Theoretical\r\n     Manual.\r\n\r\n4.   By proper use of the AXES card (see description), any desired orientation\r\n     can be obtained by the VIEW card by specifying rotations that are all less\r\n     than 90.0 degrees.\r\n=PAGE=\r\n4.2.3 Error Messages\r\n\r\nThe structure plotting software in NASTRAN contains messages related to plot\r\nrequests that are not in the same format as the other diagnostic messages\r\ndescribed in Section 6. These messages are warnings and notify you that the\r\nerroneous plot requests are being ignored. Only legitimate plot requests, if\r\nany, will be honored.\r\n\r\nThe messages and their meanings are as follows:\r\n\r\n1. NO PLOTTABLE STRUCTURAL ELEMENTS EXIST IN SET ********.\r\n\r\nThis message is issued when a SET contains elements that are not permitted as\r\ndescribed in Section 4.2.2.4. If a SET has some elements that are plottable\r\nand some that are not, the message is not issued and the resulting plot\r\ncontains only the plottable elements.\r\n\r\n2. ALL REFERENCES TO SET ******** WILL DEFAULT TO FIRST SET DEFINED.\r\n\r\nThis message is issued when a SET referenced on a PLOT card either does not\r\nexist or has been eliminated previously due to another error.\r\n\r\n3. REFERENCE TO SET ******** ON FIND CARD WILL DEFAULT TO FIRST DEFINED SET.\r\n\r\nThis message is issued when a SET referenced on a FIND card either does not\r\nexist or has been eliminated previously due to another error.\r\n\r\n4. MAXIMUM DEFORMATION CARD NEEDED - 5 PER CENT OF MAXIMUM DIMENSION USED.\r\n\r\nThis message is issued when the MAXIMUM DEFORMATION card is not positioned\r\nproperly in the plot request package or has not been defined.\r\n\r\n5. AN UNRECOGNIZABLE OPTION (********) WAS DETECTED ON A -PLOT- CARD.\r\n\r\nThis message is issued when illegal, out of sequence, or misspelled options\r\nappear on a PLOT card. The plot will be prepared, if possible, from the\r\nremaining information.\r\n\r\n6. A NON-EXISTENT ORIGIN (********) HAS BEEN SPECIFIED ON A -PLOT- CARD.\r\n\r\nThis message is issued when an ORIGIN has not been defined or has been\r\npreviously eliminated by another error.\r\n\r\n7. A NON-EXISTENT SET (********) HAS BEEN SPECIFIED ON A -PLOT- CARD.\r\n\r\nThis message is issued when a SET has not been defined or has been previously\r\neliminated by another error.\r\n\r\n8. THE -****- PLOT FILE HAS NOT BEEN SET UP...PLOT CARD IGNORED\r\n\r\nThis message is issued when the plot file has not been assigned to tape or\r\ndisk. No plots are possible.\r\n\r\n9. INSUFFICIENT CORE FOR SET (********). CORE AVAILABLE = ********, NEEDED =\r\n********.\r\n\r\nThis message is issued when insufficient core is available to process the SET\r\ndefined. Either increase the core or reduce the size of the SET to subSETs.\r\n\r\n10. *** A PLOT NOT ATTEMPTED DUE TO INPUT OR FILE ***\r\n\r\nThis message is issued when a PLOT command contradicts Case Control. For\r\nexample, requesting plots for a SUBCASE, EIGENVALUE, LOAD, TIME, or FREQUENCY\r\nthat does not exist would be contradictory. No plots are possible.\r\n\r\n11. *** INCOMPLETE PLOT DUE TO INPUT OR FILE ***.\r\n\r\nThis message is issued for the same reasons as in the preceding message,\r\nexcept some plotting is possible because not all plot requests are\r\ncontradictory.\r\n\r\n12. NO STRESS CALCULATION FOUND FOR ELEMENT NUMBER ******** ELEMENT IGNORED.\r\n\r\nThis message is issued when a STRESS contour plot is requested but STRESS\r\ncomputations were not requested in Case Control.\r\n\r\n13. MORE THAN 50 CONTOURS SPECIFIED *** REJECTED.\r\n\r\nThis message is issued for all contour plot requests beginning with the\r\nfifty-first request.\r\n\r\n14. AN ATTEMPT HAS BEEN MADE TO DEFINE MORE THAN *** DISTINCT ORIGINS.\r\n\r\n15. AN UNRECOGNIZABLE PLOT PARAMETER HAS BEEN DETECTED - IGNORED.\r\n\r\n=PAGE=\r\n4.3  X-Y PLOTTER OUTPUT\r\n\r\n   In rigid formats used for transient response, frequency response (including\r\nrandom response), modal flutter analysis and modal aeroelastic response, the\r\namount of output data generated is voluminous. In order to aid you in\r\nassimilating this vast amount of data, the X-Y output processing modules\r\nXYTRAN and XYPLOT have been provided. The primary purpose of these modules is\r\nto generate plotted graphs of y(x) where x is frequency, time, or velocity and\r\ny is any response quantity you select for observation. These modules also\r\nprovide for the plotting of any response quantity you select versus subcase in\r\nstatic analysis (Rigid Format 1). You are not required to specify any\r\nparametric data for the X-Y plotter; however, you may do so if you wish in\r\norder to obtain desired scales, regions of observation, etc.\r\n\r\n   In addition to (or in place of) the plots, X-Y tabular output may be\r\nprinted or punched, and summary data (for example, maximum and minimum values\r\nand locations of these values) may be obtained for any X-Y output. There is\r\nalso provision to generate X-Y plots within the printed output.\r\n\r\n   The X-Y output described above you can obtain via the X-Y output request\r\npacket of the Case Control Deck. This packet includes all cards between\r\nOUTPUT(XYPLOT) or (XYOUT) and either BEGIN BULK or OUTPUT(PLOT). The remainder\r\nof this section describes the X-Y output request data cards and the rules for\r\nwriting them. Examples are provided to illustrate the use of this feature.\r\n\r\n4.3.1  X-Y Plotter Terminology\r\n\r\n   A single set of plotted X-Y pairs is known as a \"curve\". Curves are the\r\nentities that you request to be plotted. The surface (paper, microfilm frame,\r\netc.) on which one or more curves is plotted is known as a \"frame\". Curves may\r\nbe plotted on a whole frame, an upper half frame, or a lower half frame. You\r\nmay choose grid lines, tic marks, axes, axis labeling, and other graphic\r\ncontrol items. The program will select defaults for parameters that you do not\r\nselect.\r\n\r\n4.3.2  X-Y Output Request Packet Data\r\n\r\n4.3.2.1  Summary of Data Cards\r\n\r\n   Only two cards are required for an X-Y output request. These are:\r\n\r\n   1. X-Y output request packet identifier - OUTPUT(XYPLOT) or OUTPUT(XYOUT).\r\n\r\n   2. At least one command operation card.\r\n\r\nThe terms OUTPUT(XYPLOT) and OUTPUT(XYOUT) are interchangeable and either form\r\nmay be used for any of the X-Y output requests. A plotter selection card is\r\nrequired only if plots are desired and the plotter is other than the default\r\nplotter (microfilm plotter without typing capability). The command operation\r\ncards are used to request the various forms of X-Y output. For the sake of\r\nconvenience and completeness, all command operation cards are described\r\ntogether under the description of the XYPLOT data card in Section 4.3.2.5.\r\n\r\n   If only the required cards are used, the graphic control items will all\r\nassume default values. Curves using all default parameters have the following\r\ngeneral characteristics:\r\n\r\n   1. Tic marks are drawn on all edges of the frame. Five spaces are provided\r\n      on each edge of the frame.\r\n\r\n   2. All tic marks are labeled with their values.\r\n\r\n   3. Linear scales are used.\r\n\r\n   4. Scales are selected such that all points fall within the frame.\r\n\r\n   5. The plotted points are connected with straight lines.\r\n\r\n   6. The plotted points are not identified with symbols.\r\n\r\nThe above characteristics may be modified by inserting any of the parameter\r\ndefinition cards, described in Section 4.3.2.5, ahead of the command operation\r\ncard or cards. The use of a parameter definition card sets the value of that\r\nparameter for all following command operation cards unless the CLEAR card is\r\ninserted. (Because of its impact, you should be very careful in the use of the\r\nCLEAR card. See its description for details.) If grid lines are requested,\r\nthey will be drawn at the locations of all tic marks that result from defaults\r\nor your request. You cannont select the locations of tic marks (or grid lines)\r\nfor logarithmic scales. Default values for logarithmic spacing are selected by\r\nthe program. The default values for the number of tic marks (or grid lines)\r\nper cycle depend on the number of logarithmic cycles required for the range of\r\nthe plotted values.\r\n\r\n   A summary of the data cards is given in Table 4.3-1.\r\n\r\n4.3.2.2  Tic Marks in Plots\r\n\r\n   Tic marks on any edge can be selected by the use of the appropriate \"TICS\"\r\nparameter cards (UPPER TICS, LOWER TICS, LEFT TICS, RIGHT TICS, TLEFT TICS,\r\nTRIGHT TICS, BLEFT TICS and BRIGHT TICS). Thus, on any edge, you can select\r\nany one of the following options:\r\n\r\n   1. Tic marks to be drawn without values\r\n\r\n   2. No tic marks or values to be drawn\r\n\r\n   3. Tic marks to be drawn with values\r\n\r\n   However, it is very important to note that the results yielded by the use\r\nof the above mentioned \"TICS\" cards may be altered when they are used in\r\nconjunction with ALL EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS cards.\r\nNoting that the tic values input may only be -1, 0, or 1, the net result of\r\nthe use of various \"TICS\" cards may be determined by the following procedure:\r\n\r\n      Add the tic integer value of the edge in question to its associated ALL\r\n      EDGE TICS, TALL EDGE TICS, or BALL EDGE TICS integer value. Let the\r\n      resulting value be termed \"ticsum\". Then we have the following:\r\n\r\n      If ticsum < 0,  tic marks will be drawn without values.\r\n      If ticsum = 0,  no tic marks or values will be drawn.\r\n      If ticsum > 0,  tic marks will be drawn with values.\r\n\r\n   You should therefore be careful in your use of the ALL EDGE TICS, TALL EDGE\r\nTICS, or BALL EDGE TICS cards. Thus, the use of only the ALL EDGE TICS = -1\r\ncard will result in no tic marks or values being drawn since the default\r\nvalues for individual edge tic cards are all +1.\r\n=PAGE=\r\nTable 4.3-1. Summary of X-Y Output Data Cards\r\n\r\n                          Cards Pertaining to All Plots\r\n\r\n                                   1   CAMERA\r\n                                   2   CLEAR\r\n                                   3   COLOR\r\n                                   4   CSCALE\r\n                                   5   CURVELINESYMBOL\r\n                                   6   DENSITY\r\n                                   7   LOWER TICS\r\n                                   8   PENSIZE\r\n                                   9   PLOTTER\r\n                                  10   SKIP\r\n                                  11   TCURVE\r\n                                  12   UPPER TICS\r\n                                  13   XDIVISIONS\r\n                                  14   XINTERCEPT\r\n                                  15   XLOG\r\n                                  16   XMAX\r\n                                  17   XMIN\r\n                                  18   XPAPER\r\n                                  19   XTITLE\r\n                                  20   XVALUE PRINT SKIP\r\n                                  21   XAXIS\r\n                                  22   YPAPER\r\n\r\n                     Cards Pertaining to Various Frame Plots\r\n\r\nWhole Frame Only         Upper Half Frame Only           Lower Half Frame Only\r\n\r\n 1 ALL EDGE TICS         TALL EDGE TICS                  BALL EDGE TICS\r\n 2 LEFT TICS             TLEFT TICS                      BLEFT TICS\r\n 3 RIGHT TICS            TRIGHT TICS                     BRIGHT TICS\r\n 4 XAXIS                 XTAXIS                          XBAXIS\r\n 5 XGRID LINES           XTGRID LINES                    XBGRID LINES\r\n 6 YDIVISIONS            YTDIVISIONS                     YBDIVISIONS\r\n 7 YGRID LINES           YTGRID LINES                    YBGRID LINES\r\n 8 YINTERCEPT            YTINTERCEPT                     YBINTERCEPT\r\n 9 YLOG                  YTLOG                           YBLOG\r\n10 YMAX                  YTMAX                           YBMAX\r\n11 YMIN                  YTMIN                           YBMIN\r\n12 YTITLE                YTTITLE                         YBTITLE\r\n13 YVALUE PRINT SKIP     YTVALUE PRINT SKIP              YBVALUE PRINT SKIP\r\n\r\n                             Command Operation Cards\r\n\r\n                                  1   XYPAPLOT\r\n                                  2   XYPEAK\r\n                                  3   XYPLOT\r\n                                  4   XYPRINT\r\n                                  5   XYPUNCH\r\n=PAGE=\r\n4.3.2.3  Plot Titles\r\n\r\n   Each frame, or group of frames, resulting from a single XYPLOT command will\r\ninclude the information from the TITLE, SUBTITLE, and LABEL cards in the Case\r\nControl Deck, the frame sequence number, and the date as described in Section\r\n4.2.2.2. Other titling information relative to axes and curves is discussed in\r\nSection 4.3.2.5 under the descriptions of the individual X-Y output data\r\ncards.\r\n\r\n4.3.2.4  Data Card Specification Rules and Format\r\n\r\n   The format of the X-Y output data cards is free-field. The rules governing\r\ntheir specifications and the notations used to describe their format are the\r\nsame as those described in Section 4.2.2.3 for structure plot data cards.\r\nThere is, however, an important addition to the manner in which an X-Y output\r\ncommand operation card can be continued: if continuation cards are needed in\r\nthe case of the command operation cards, the previous card must be terminated\r\neither by a slash (/) or by a comma.\r\n\r\n4.3.2.5  Data Card Descriptions\r\n\r\n   All of the X-Y output data cards are described on the following pages. The\r\ndescriptions are arranged in alphabetical order by the card names. The general\r\nform for each card is shown. The description of the card contents then\r\nfollows. An example of each card usage is given immediately below general\r\nform, except in the case of the XYPLOT card, where the examples follow the\r\ndescription of the card.\r\n=PAGE=\r\nALL EDGE TICS - All Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on all edges of whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                       \r\n                     1 \r\nALL EDGE TICS  =     0 \r\n                    -1 \r\n                       \r\n\r\nALL EDGE TICS  =      0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on all edges. See Remark 2 below.\r\n\r\n0          Do not draw either tic marks or values on any edge. See Remark 2\r\n           below.\r\n\r\n1          Draw tic marks with values on all edges. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. When this card is used, the effects of other TICS cards may be altered. See\r\n   Section 4.3.2.2 for details.\r\n=PAGE=\r\nBALL EDGE TICS - All Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on all edges of lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                      \r\n                    1 \r\nBALL EDGE TICS =    0 \r\n                   -1 \r\n                      \r\n\r\nBALL EDGE TICS  =     0\r\n\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on all edges. See Remark 2 below.\r\n\r\n0          Do not draw either tic marks or values on any edge. See Remark 2\r\n           below.\r\n\r\n1          Draw tic marks with values on all edges. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. When this card is used, the effects of other TICS cards may be altered. See\r\n   Section 4.3.2.2 for details.\r\n=PAGE=\r\nBLEFT TICS - Left Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the left edge of lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                1 \r\nBLEFT TICS =    0 \r\n               -1 \r\n                  \r\n\r\nBLEFT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the left edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the left edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the left edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. The above meanings for the options may be altered when the BALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nBRIGHT TICS - Right Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the right edge of lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                   \r\n                 1 \r\nBRIGHT TICS =    0 \r\n                -1 \r\n                   \r\n\r\nBRIGHT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the right edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the right edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the right edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. The above meanings for the options may be altered when the BALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nCAMERA - Camera Specification\r\n\r\nDescription\r\n\r\nSpecifies the camera for microfilm plotters.\r\n\r\nFormat and Example\r\n\r\n                       \r\n            BOTH or 3  \r\nCAMERA  =   FILM or 1  \r\n            PAPER or 2 \r\n                       \r\n\r\nCAMERA  =    2\r\n\r\nOption     Meaning\r\n\r\nFILM or 1  35 mm or 16 mm film (positive or negative images).\r\n\r\nPAPER or 2 Positive prints.\r\n\r\nBOTH or 3  Positive prints and 35 mm or 16 mm film.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nCLEAR - Parameter Default Value Restoration\r\n\r\nDescription\r\n\r\nCauses all parameter values except those defined by the PLOTTER card and the\r\ntitles defined by XTITLE, YTITLE, YTTITLE, YBTITLE, and TCURVE to revert to\r\ntheir default values.\r\n\r\nFormat\r\n\r\nCLEAR\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. You must be very careful in the use of this card because of its impact on\r\n   all parameters except those mentioned in the description above.\r\n=PAGE=\r\nCOLOR - Color Curve Specification\r\n\r\nDescription\r\n\r\nSpecifies the beginning color of the pen, and the last pen color for plots\r\nwith multiple curves in different colors on table and drum plotters.\r\n\r\nFormat and Example\r\n\r\nCOLOR = b,n\r\n\r\nCOLOR = 1,6\r\n\r\nOption     Meaning\r\n\r\nb          Beginning color to be used for the first curve (Integer > 0).\r\n\r\nn          Last pen color (Integer, n > b).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame,and lower half frame).\r\n\r\n2. This card is useful for plotting multiple curves in different colors on the\r\n   same frame.\r\n\r\n3. The first curve will be plotted using pen color b, the next curve using pen\r\n   color (b + 1), and so on, until pen color n is reached. If there are more\r\n   curves to be plotted, this process is repeated by starting again with pen\r\n   color b.\r\n\r\n4. The limit of n is dictated by the number of colors available to you via the\r\n   site dependent plotting package.\r\n=PAGE=\r\nCSCALE - Character Scale Specification\r\n\r\nDescription\r\n\r\nSpecifies the scale to be used for alphanumeric characters in an X-Y plot.\r\n\r\nFormat and Example\r\n\r\n             \r\n           1 \r\nCSCALE =   n \r\n             \r\n\r\nCSCALE  =   2\r\n\r\nOption     Meaning\r\n\r\nn          Factor by which the normal (or default) size of alphanumeric\r\n           characters is multiplied (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. See Section 4.1.1 for an important discussion on plot frame size and\r\n   character size.\r\n=PAGE=\r\nCURVELINESYMBOL - Curve Line and Symbol Selection\r\n\r\nDescription\r\n\r\nSpecifies whether the points on a curve should be connected by lines,\r\nidentified by symbols, or both.\r\n\r\nFormat and Example\r\n\r\nCURVELINESYMBOL = n\r\n\r\nCURVELINESYMBOL = 1\r\n\r\nOption     Meaning\r\n\r\nn          Integer value (-9 <= n >= 9) with the following meanings:\r\n\r\n           -9 <= n < 0   Points on a curve to be identified by symbols as\r\n                         per the table below. See also Remark 2.\r\n\r\n           n = 0         Points on a curve to be connected by lines.\r\n                         (default)\r\n\r\n           0 < n <= 9    Points on a curve to be connected by lines as well\r\n                         as identified by symbols as per the table below.\r\n                         See also Remark 2.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. If n not equal 0, the first curve on a frame will be identified by the\r\n   symbol corresponding to n. Subsequent curves on the same frame will cause n\r\n   to be incremented (if n > 0) or decremented (if n < 0) by one for each\r\n   curve and thus cycle through the available symbols.\r\n\r\n3. The following table gives the correspondence between the values of n and\r\n   the symbols used for identifying the points on a curve.\r\n\r\n             m or n      SYMBOL\r\n\r\n               0        no symbol\r\n               1            X\r\n               2            *\r\n               3            +\r\n               4            -\r\n               5        filled bullet\r\n               6        open circle\r\n               7        open square\r\n               8        open diamond\r\n               9        open triangle\r\n=PAGE=\r\nDENSITY - Line Density\r\n\r\nDescription\r\n\r\nSpecifies line density for microfilm plotters.\r\n\r\nFormat and Example\r\n\r\n               \r\n             1 \r\nDENSITY  =   d \r\n               \r\n\r\nDENSITY  =    3\r\n\r\nOption     Meaning\r\n\r\nd          Line density (Integer > 0). A line density of d is d times heavier\r\n           than a line density of 1.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nLEFT TICS - Left Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the left edge of whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                 \r\n               1 \r\nLEFT TICS =    0 \r\n              -1 \r\n                 \r\n\r\nLEFT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the left edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the left edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the left edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. The above meanings for the options may be altered when the ALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nLOWER TICS - Lower Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the lower edge of a frame.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                1 \r\nLOWER TICS =    0 \r\n               -1 \r\n                  \r\n\r\nLOWER TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the lower edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the lower edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the lower edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   lower half frame, and bottom half frame).\r\n\r\n2. The above meanings for the options may be altered when the ALL EDGE TICS,\r\n   TALL EDGE TICS, or BALL EDGE TICS cards are used. See Section 4.3.2.2 for\r\n   details.\r\n=PAGE=\r\nPENSIZE - Pen Specification\r\n\r\nDescription\r\n\r\nSpecifies the size of the pen to be used for plotting on table and drum\r\nplotters.\r\n\r\nFormat and Example\r\n\r\n              \r\n            1 \r\nPENSIZE =   n \r\n              \r\n\r\nPENSIZE  =   2\r\n\r\nOption     Meaning\r\n\r\nn          Size of the pen to be used for plotting on table and drum plotters\r\n           (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nPLOTTER - Plotter Model Specification\r\n\r\nDescription\r\n\r\nSpecifies the model and the typing capability of the plotter to be used for\r\nplotting.\r\n\r\nFormat and Example\r\n                                          \r\n                                M       1 \r\nPLOTTER = NASTPLT  ,  [MODEL]   T   ,     \r\n                                D       0 \r\n                                          \r\n\r\nPLOTTER = NASTPLT , T , 0\r\n\r\nOption     Meaning\r\n\r\nM          Microfilm plotter.\r\n\r\nT          Table plotter.\r\n\r\nD          Drum plotter.\r\n\r\n0          Plotter has typing capability.\r\n\r\n1          Plotter has no typing capability. In this case, all characters\r\n           will be drawn.\r\n\r\nRemarks\r\n\r\n1. This card is optional. If it is used, it is recommended that it be the very\r\n   first card after the OUTPUT(XYOUT) or OUTPUT(XYPLOT) card in the X-Y output\r\n   request packet.\r\n\r\n2. This card pertains to all types of plots (whole frame, upper half frame,\r\n   and lower half frame).\r\n=PAGE=\r\nRIGHT TICS - Right Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the right edge of whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                1 \r\nRIGHT TICS =    0 \r\n               -1 \r\n                  \r\n\r\nRIGHT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the right edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the right edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the right edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. The above meanings for the options may be altered when the ALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nSKIP - Blank Frame Insertion Specification\r\n\r\nDescription\r\n\r\nSpecifies the number of blank frames to be inserted between requested frames\r\nfor microfilm plotters.\r\n\r\nFormat and Example\r\n\r\n            \r\n          1 \r\nSKIP  =   n \r\n            \r\n\r\nSKIP  =     2\r\n\r\nOption     Meaning\r\n\r\nn          Number of blank frames to be inserted (Integer > 0).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nTALL EDGE TICS - All Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on all edges of upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                      \r\n                    1 \r\nTALL EDGE TICS =    0 \r\n                   -1 \r\n                      \r\n\r\nTALL EDGE TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on all edges. See Remark 2 below.\r\n\r\n0          Do not draw either tic marks or values on any edge. See Remark 2\r\n           below.\r\n\r\n1          Draw tic marks with values on all edges. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. When this card is used, the effects of other TICS cards may be altered. See\r\n   Section 4.3.2.2 for details.\r\n=PAGE=\r\nTCURVE - Curve Title\r\n\r\nDescription\r\n\r\nSpecifies the title for a curve.\r\n\r\nFormat and Example\r\n\r\nTCURVE  =   title\r\n\r\nTCURVE  =  TRANSIENT RESPONSE\r\n\r\nOption     Meaning\r\n\r\ntitle      Any BCD string to be used as the title for a curve.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. The data for this card must be specified on only one physical card.\r\n=PAGE=\r\nTLEFT TICS - Left Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the left edge of upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                1 \r\nTLEFT TICS =    0 \r\n               -1 \r\n                  \r\n\r\nTLEFT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the left edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the left edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the left edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. The above meanings for the options may be altered when the TALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nTRIGHT TICS - Right Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the right edge of upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                   \r\n                 1 \r\nTRIGHT TICS =    0 \r\n                -1 \r\n                   \r\n\r\nTRIGHT TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the right edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the right edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the right edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. The above meanings for the options may be altered when the TALL EDGE TICS\r\n   card is also used. See Section 4.3.2.2 for details.\r\n=PAGE=\r\nUPPER TICS - Upper Edge Tic Request\r\n\r\nDescription\r\n\r\nRequests use of tic marks on the upper edge of a frame.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                1 \r\nUPPER TICS =    0 \r\n               -1 \r\n                  \r\n\r\nUPPER TICS  =     0\r\n\r\nOption     Meaning\r\n\r\n-1         Draw tic marks without values on the upper edge. See Remark 2\r\n           below.\r\n\r\n0          Do not draw either tic marks or values on the upper edge. See\r\n           Remark 2 below.\r\n\r\n1          Draw tic marks with values on the upper edge. See Remark 2 below.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\nupper half frame, and bottom half frame).\r\n\r\n2. The above meanings for the options may be altered when the ALL EDGE TICS,\r\n   TALL EDGE TICS, or BALL EDGE TICS cards are used. See Section 4.3.2.2 for\r\n   details.\r\n=PAGE=\r\nXAXIS - X-Axis Plot Request\r\n\r\nDescription\r\n\r\nRequests plotting of X-axis on whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                 \r\nXAXIS   =    NO  \r\n             YES \r\n                 \r\n\r\nXAXIS   =   YES\r\n\r\nOption     Meaning\r\n\r\nYES        Plot X-axis.\r\n\r\nNO         Do not plot X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nXBAXIS - X-Axis Plot Request\r\n\r\nDescription\r\n\r\nRequests plotting of X-axis on lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\nXBAXIS   =    NO  \r\n              YES \r\n                  \r\n\r\nXBAXIS   =   YES\r\n\r\nOption     Meaning\r\n\r\nYES        Plot X-axis.\r\n\r\nNO         Do not plot X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n=PAGE=\r\nXBGRID LINES - X-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the X-axis on lower half frame\r\nplots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\nXBGRID   =    NO  \r\n              YES \r\n                  \r\n\r\nXBGRID   =   YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the X-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n=PAGE=\r\nXDIVISIONS - X-Direction Spacing\r\n\r\nDescription\r\n\r\nSpecifies the spacing to be used along the X-direction for non-log scales.\r\n\r\nFormat and Example\r\n\r\n                   \r\nXDIVISIONS   =   5 \r\n                 n \r\n                   \r\n\r\nXDIVISIONS  =     4\r\n\r\nOption     Meaning\r\n\r\nn          Number of uniform spaces to be used along the X-direction for\r\n           whichever of the following are called for: XAXIS, UPPER TICS,\r\n           LOWER TICS (Integer > 0). Applicable only to non-log scales.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nXGRID LINES - X-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the X-axis on whole frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\n                       \r\nXGRID LINES   =    NO  \r\n                   YES \r\n                       \r\n\r\nXGRID LINES   =     YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the X-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nXINTERCEPT - Y-Axis Position\r\n\r\nDescription\r\n\r\nSpecifies the location on the X-axis where the Y-axis will be drawn.\r\n\r\nFormat and Example\r\n\r\n                      \r\nXINTERCEPT   =    0.0 \r\n                  xc  \r\n                      \r\n\r\nXINTERCEPT   =     1.0\r\n\r\nOption     Meaning\r\n\r\nxc         Y-axis will have its x-coordinate = xc (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It applies to all types of plots (whole frame, upper\r\n   half frame, and lower half frame).\r\n=PAGE=\r\nXLOG - Logarithmic X-Coordinate Request\r\n\r\nDescription\r\n\r\nRequests logarithmic scale for X-coordinates.\r\n\r\nFormat and Example\r\n\r\n                \r\nXLOG   =    NO  \r\n            YES \r\n                \r\n\r\nXLOG   =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Use logarithmic scale for X-coordinates.\r\n\r\nNO         Use linear scale for X-coordinates.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. The default values for tic divisions on log plots are as follows, but range\r\n   over whole cycles:\r\n\r\n   Number of Cycles      Intermediate Values\r\n\r\n   1, 2                  2., 3., 4., 5., 6., 7., 8., 9.\r\n   3                     2., 3., 5., 7., 9.\r\n   4                     2., 4., 6., 8.\r\n   5                     2., 5., 8.\r\n   6, 7                  3., 6.\r\n   8, 9, 10              3.\r\n=PAGE=\r\nXMAX - Upper Limit of Abscissa\r\n\r\nDescription\r\n\r\nSpecifies the upper limit of the abscissa of a curve.\r\n\r\nFormat and Example\r\n\r\nXMAX   =   x\r\n\r\nXMAX   =   10.0\r\n\r\nOption     Meaning\r\n\r\nx          Upper limit of the abscissa (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nXMIN - Lower Limit of Abscissa\r\n\r\nDescription\r\n\r\nSpecifies the lower limit of the abscissa of a curve.\r\n\r\nFormat and Example\r\n\r\nXMIN   =   x\r\n\r\nXMIN   =   1.0\r\n\r\nOption     Meaning\r\n\r\nx          Lower limit of the abscissa (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nXPAPER - Plot Frame X-Dimension\r\n\r\nDescription\r\n\r\nSpecifies the X-dimension of the plot frame (x by y) for table and drum\r\nplotters. (For microfilm plotters, the plot frame size is set at 10.23 inches\r\nx 10.23 inches and is not under your control.)\r\n\r\nFormat and Example\r\n\r\nXPAPER   =   x\r\n\r\nXPAPER   =   15.0\r\n\r\nOption     Meaning\r\n\r\nx          X-dimension of the plot frame in inches (Real >  0.0). Must not\r\n           exceed 30.0 for table plotters.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, or lower half frame).\r\n\r\n2. If this card is not used, the following default values are used:\r\n\r\n   Plotter Model Default Value for x (inches)\r\n\r\n   Table      11.0\r\n\r\n   Drum       30.0\r\n\r\n3. See Section 4.1.1 for an important discussion of plot frame size and\r\n   character size.\r\n=PAGE=\r\nXTAXIS - X-Axis Plot Request\r\n\r\nDescription\r\n\r\nRequests plotting of X-axis on upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\nXTAXIS   =    NO  \r\n              YES \r\n                  \r\n\r\nXTAXIS   =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Plot X-axis.\r\n\r\nNO         Do not plot X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n=PAGE=\r\nXTGRID LINES - X-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the X-axis on upper half frame\r\nplots only.\r\n\r\nFormat and Example\r\n\r\n                       \r\nXTGRID LINES  =    NO  \r\n                   YES \r\n                       \r\n\r\nXTGRID LINES  =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the X-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n=PAGE=\r\nXTITLE - X-Axis Title\r\n\r\nDescription\r\n\r\nSpecifies the title for the X-axis.\r\n\r\nFormat and Example\r\n\r\nXTITLE   =   title\r\n\r\nXTITLE   =   TIME (SEC.)\r\n\r\nOption     Meaning\r\n\r\ntitle      Any BCD string to be used as the title for the X-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. The data for this card must be specified on only one physical card.\r\n=PAGE=\r\nXVALUE PRINT SKIP - X-Tic Skip Specification\r\n\r\nDescription\r\n\r\nSpecifies the number of tic marks to be skipped between labeled tic marks on\r\nthe X-axis.\r\n\r\nFormat and Example\r\n\r\n                          \r\nXVALUE PRINT SKIP   =   0 \r\n                        n \r\n                          \r\n\r\nXVALUE PRINT SKIP   =    1\r\n\r\nOption     Meaning\r\n\r\nn          Number of tic marks to be skipped between labeled tic marks on the\r\n           X-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the\r\n           X-axis will be labeled.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nXYPAPLOT - X-Y Paper Plot Command\r\n\r\nDescription\r\n\r\nCauses generation of X-Y plots within the printed output.\r\n\r\nNOTE: For the sake of convenience and completeness, this card and all other\r\nX-Y command operations are described together under the description of the\r\nXYPLOT command operation card. Please refer to that card for details.\r\n=PAGE=\r\nXYPEAK - X-Y Summary Command\r\n\r\nDescription\r\n\r\nCauses generation of printed summary page for each curve.\r\n\r\nNOTE: For the sake of convenience and completeness, this card and all other\r\nX-Y command operations are described together under the description of the\r\nXYPLOT command operation card. Please refer to that card for details.\r\n=PAGE=\r\nXYPLOT - X-Y Plot Command\r\n\r\nDescription\r\n\r\nCauses generation of X-Y plots for the selected plotter.\r\n\r\nNOTE: For the sake of convenience and completeness, the XYPLOT card is\r\ndescribed below in conjunction with all of the other X-Y command operation\r\ncards (XYPRINT, XYPUNCH, XYPEAK, and XYPAPLOT cards).\r\n\r\nFormat\r\n\r\nOperation      Curve Type     Plot Type     Subcase          Curve\r\n1 or more      1 only                       List             Request(s)\r\n(required)     (required)                                    (required)\r\n\r\nXYPLOT         ACCE           RESPONSE      i1, i2, i3,      \"frames\"\r\nXYPRINT        DISP           AUTO          i4 THRU i5,\r\nXYPUNCH        ELFORCE        PSDF          i6, etc.\r\nXYPEAK         ELSTRESS                     Default is\r\nXYPAPLOT       FORCE                        all subcases.\r\n               LOAD\r\n               NONLINEAR\r\n               OLOAD\r\n               SACCE\r\n               SDISP\r\n               SPCF\r\n               STRESS\r\n               SVELO\r\n               VECTOR\r\n               VELO\r\n               VG\r\n\r\nOption     Meaning\r\n\r\nOperation\r\n\r\nXYPLOT     Generate one or more frames of X-Y plots on the selected plotter\r\n           using the current parameter specifications.\r\n\r\nXYPRINT    Generate tabular printer output for the X-Y pairs. See also Remark\r\n           2.\r\n\r\nXYPUNCH    Generate punched card output for the X-Y pairs. Each card contains\r\n           the following information:\r\n\r\n           1. X-Y pair sequence number\r\n           2. X-value\r\n           3. Y-value\r\n           4. Card sequence number\r\n\r\nXYPEAK     Output is limited to the printed summary page for each curve. This\r\n           summary page contains the maximum and minimum values of y for the\r\n           range of x.\r\n\r\nXYPAPLOT   Generate X-Y plots within the printed output. This is a capability\r\n           to provide minimum output for the purpose of observing general\r\n           curve behavior. Many of the detailed specifications described\r\n           elsewhere in this section are not supported. This feature is\r\n           limited to producing Cartesian plots with titles, overall scales,\r\n           and data point locations. When the paper is rotated 90 degrees for\r\n           viewing the paper plots, the X-axis moves horizontally along the\r\n           page and the Y-axis moves vertically along the page. Symbol \"*\"\r\n           identifies the points associated with the first curve of a frame,\r\n           then for successive curves on the same frame, the points are\r\n           designated by the symbols \"0\", \"A\", \"B\", \"C\", \"D\", \"E\", \"F\", \"G\",\r\n           and \"H\".\r\n\r\nCurve Type\r\n\r\nACCE       Acceleration in the physical set.\r\n\r\nDISP       Displacement in the physical set.\r\n\r\nELFORCE    Element force.\r\n\r\nELSTRESS   Element stress.\r\n\r\nFORCE      Element force (same as ELFORCE).\r\n\r\nLOAD       Load.\r\n\r\nNONLINEAR  Nonlinear load.\r\n\r\nOLOAD      Load (same as LOAD).\r\n\r\nSACCE      Acceleration in the solution set.\r\n\r\nSDISP      Displacement in the solution set.\r\n\r\nSPCF       Single-point force of constraint.\r\n\r\nSTRESS     Element stress (same as ELSTRESS).\r\n\r\nSVELO      Velocity in the solution set.\r\n\r\nVECTOR     Displacement in the physical set (same as DISP).\r\n\r\nVELO       Velocity in the physical set.\r\n\r\nVG         Flutter analysis curves.\r\n\r\n           Solution set requests are more efficient, as the time-consuming\r\n           recovery of the dependent displacements can be avoided. However,\r\n           if there is a request for ELSTRESS (or STRESS) or ELFORCE (or\r\n           FORCE), the recovery of dependent displacements cannot be avoided.\r\n\r\nPlot Type\r\n\r\nRESPONSE   Generate output for static analysis, frequency response or\r\n           transient response. This is the default value.\r\n\r\nAUTO       Generate output for the autocorrelation function.\r\n\r\nPSDF       Generate output for the power spectral density function.\r\n\r\nSubcase List\r\n\r\ni1, i2, i3, i4, i5, i6, etc. Generate output for the subcase numbers that are \r\n           listed. The subcase list must be in ascending order. The default\r\n           is all subcases for which solutions were obtained.\r\n\r\nCurve Request(s)\r\n\r\n\"frames\"   The word \"frames\" represents a series of curve identifiers of the\r\n           following general form:\r\n\r\n           /a1(b1,c1),a2(b2,c2),etc./d1(e1,f1),d2(e2,f2),etc./etc.\r\n\r\n           The information following each slash (/) specifies curves that are\r\n           to be drawn on the same frame. For all plots except the VG plot,\r\n           the symbol a1 identifies the grid point or element number\r\n           associated with the first curve on the first frame. The symbol a2\r\n           identifies the grid point or element number associated with the\r\n           second curve on the first frame. The symbols d1 and d2 identify\r\n           similar items for curves on the second frame, etc. For any\r\n           particular frame, the symbols must be assigned in ascending order\r\n           by grid point or element identification number and item code. For\r\n           VG plots, the symbols a1, a2, etc., refer to the loop count of the\r\n           flutter analysis.\r\n\r\n           The symbols b1 and b2 are codes for the components to be plotted\r\n           on the upper half of the first frame, and c1 and c2 are codes for\r\n           the components to be plotted on the lower half of the first frame.\r\n           If any of the symbols b1, c1, b2, or c2 are missing, the\r\n           corresponding curve is not generated. If the comma (,) and c1 are\r\n           absent along with the comma (,) and c2, full frame plots will be\r\n           prepared on the first frame for the components represented by b1\r\n           and b2. For any single frame, curve identifiers must be all of the\r\n           whole frame type or all of the half frame type; that is, the comma\r\n           (,) following b1 and b2 must be present for all entries or absent\r\n           for all entries in a single frame. The symbols e1, f1, e2, and f2\r\n           serve a similar purpose for the second frame, etc.  If\r\n           continuation cards are needed, the previous card must be\r\n           terminated either with a slash (/) or a comma (,) as indicated in\r\n           Section 4.3.2.4.\r\n\r\n           For VG plots, the component codes (b1, b2, etc. and c1, c2, etc.)\r\n           may have the values F (for frequency) or G (for damping). For all\r\n           other plots, the manner in which the component code is implemented\r\n           is dependent upon whether the plot type is (a) RESPONSE or (b)\r\n           AUTO or PSDF. This is described below.\r\n\r\n           Component Codes for Plot Type RESPONSE\r\n\r\n           For geometric grid points, the component code is one of the\r\n           mnemonics T1, T2, T3, R1, R2, R3, T1RM, T2RM, T3RM, R1RM, R2RM,\r\n           R3RM, T1IP, T2IP, T3IP, R1IP, R2IP, or R3IP, where Ti stands for\r\n           the ith translational component, Ri stands for the ith rotational\r\n           component, and RM means real or magnitude and IP means imaginary\r\n           or phase. For scalar or extra points, use T1, T1RM, or T1IP. (See\r\n           Remark 2 below for the interpretation of component codes for\r\n           geometric grid, scalar, and extra points in the printed X-Y\r\n           output.) For elements, use a positive integer from the following\r\n           tables for element stress component codes (Table 4.3-2) or element\r\n           force component codes (Table 4.3-3). (See Section 1.3 for the\r\n           interpretation of the symbols used in Tables 2 and 3 for element\r\n           stress and force components.)\r\n\r\n           Component Codes for Plot Type AUTO or PSDF\r\n\r\n           For geometric grid points, the component code is one of the\r\n           mnemonics T1, T2, T3, R1, R2, or R3; for scalar or extra points\r\n           use T1. The symbols T1, T2, T3, R1, R2, and R3 are defined as\r\n           above. (See Remark 2 below for the interpretation of component\r\n           codes for geometric grid, scalar, and extra points in the printed\r\n           XY output.) For elements, use a positive integer from the\r\n           following tables, noting that if a component has a real and an\r\n           imaginary part, the selection of either part will result in the\r\n           use of both the parts. Real numbers in the output will be treated\r\n           as if they are complex numbers with zero imaginary parts. Split\r\n           frames cannot be used for AUTO or PSDF plots.\r\nRemarks\r\n\r\n1. At least one command operation card (XYPLOT, XYPRINT, XYPUNCH, XYPEAK or\r\n   XYPAPLOT) must appear in an X-Y output packet request.\r\n\r\n2. In the printed X-Y output, the component codes shown for the geometric\r\n   grid, scalar, or extra points are not the same as the mnemonics input on\r\n   the command operation cards. Instead, the component codes are identified by\r\n   integers as indicated by the following table.\r\n\r\n   Component Code Identification for Geometric Grid,\r\n   Scalar and Extra Points in Printed X-Y Output\r\n\r\n   Component code specified on    Component code shown in the\r\n   the command operation card     printed X-Y Output\r\n\r\n      T1 or T1RM                          1\r\n      T2 or T2RM                          2\r\n      T3 or T3RM                          3\r\n      R1 or R1RM                          4\r\n      R2 or R2RM                          5\r\n      R3 or R3RM                          6\r\n        T1IP                              7\r\n        T2IP                              8\r\n        T3IP                              9\r\n        T4IP                             10\r\n        T5IP                             11\r\n        T6IP                             12\r\n\r\nExamples\r\n\r\nFollowing are some examples illustrating the use of X-Y output command\r\noperation cards. The BEGIN BULK or OUTPUT(PLOT) card is shown as a reminder to\r\nyou to place your X-Y output request packet properly in your Case Control\r\nDeck, that is, at the end of the Case Control Deck or just ahead of any\r\nstructure plot requests. You must ensure that file PLT2 is set up for plotting\r\nuse via system control cards to use a tape or mass storage area.\r\n\r\nExample 1\r\n\r\nOUTPUT(XYPLOT)\r\nXYPLOT SDISP / 16(T1)\r\nBEGIN BULK\r\n\r\nCauses a single whole frame to be plotted for the T1 displacement component of\r\nsolution set point 16 using the default parameter values. If 16(T1) is not in\r\nthe solution set, a warning message will be printed and no plot will be made.\r\nSince there is no PLOTTER card, the plot will be generated, by default, for a\r\nmicrofilm plotter without typing capability.\r\n\r\nExample 2\r\n\r\nOUTPUT(XYOUT)\r\nPLOTTER = NASTPLT D, 1\r\nXYPLOT, XYPRINT VELO RESPONSE 1,5 / 3(R1, ), 5( ,R1)\r\n\r\nCauses a single frame (consisting of an upper half frame and a lower half\r\nframe) to be plotted using the default parameter values. The velocity of the\r\nfirst rotational component of grid point 3 will be plotted on the upper half\r\nframe and that of grid point 5 will be plotted on the lower half frame for\r\nsubcases 1 and 5. Tabular printer output will also be generated for both\r\ncurves. The plots will be generated for a drum plotter without typing\r\ncapability. Scales will be selected such that the frame will fit on 30 x\r\n30-inch paper.\r\n\r\nExample 3\r\n\r\nOUTPUT(XYPLOT)\r\nPLOTTER = NASTPLT T, 0\r\nYDIVISIONS = 20\r\nXDIVISIONS = 10\r\nXGRID LINES = YES\r\nYGRID LINES = YES\r\nXYPLOT DISP 2,5 /10(T1),10(T3)\r\n\r\nCauses two whole frame plots to be generated, one for subcase 2 and one for\r\nsubcase 5. Each plot contains the T1 and T3 displacement components for grid\r\npoint 10. The default parameters will be modified to include grid lines in\r\nboth the X- and Y-directions with 10 spaces in the X-direction and 20 spaces\r\nin the Y-direction. The plot will be generated for a table plotter with typing\r\ncapability.\r\n\r\nExample 4\r\n\r\nOUTPUT(XYPLOT)\r\nPLOTTER = NASTPLT T, 1\r\nXAXIS = YES\r\nYAXIS = YES\r\nXPAPER = 17.0\r\nYPAPER = 22.0\r\nXYPLOT STRESS 3/ 15(2)/ 21(6)\r\n\r\nCauses two whole frame plots to be generated using the results from subcase 3.\r\nThe first plot is the response of the axial stress for rod (ROD) element\r\nnumber 15. The second plot is the response of the major principal stress for\r\ntriangular membrane (TRMEM) element number 21. The default parameters will be\r\nmodified to include the X-axis and Y-axis drawn through the origin. Each plot\r\nwill be scaled to fit on 17 x 22 inch paper. The plots will be generated for a\r\ntable plotter without typing capability.\r\n\r\nExample 5\r\n\r\nOUTPUT(XYPLOT)\r\nPLOTTER = NASTPLT D,0\r\nCURVELINESYMBOL = -1\r\nXYPLOT VG / 1(G,F), 2(G,F), 3(G,F), 4(G,F)\r\n\r\nA split frame plot will be made; the upper half is V-g and the lower half is\r\nV-f. Data from the first four loops will be plotted. Distinct symbols will be\r\nused for data from each loop, and no lines will be drawn between points (since\r\nthe flutter analyst must sometimes exercise judgement about which points\r\nshould be connected). The plots will be generated for a drum plotter with\r\ntyping capability.\r\n=PAGE=\r\nTable 4.3-2. Element Stress Component Codes\r\nfor Use on X-Y Output Command Operation Cards\r\n\r\n            (All components are stresses unless otherwise denoted)\r\n\r\n         Real Element Stresses           Complex Element Stresses   Real-Mag.\r\nElement  Comp.                           Comp.                      or\r\nName     Code  Component                 Code  Component            Imag.-Phase\r\n\r\nAX1F2    2     Radial-axis               2     Radial-axis                RM\r\n         3     Axial-axis                3     Axial-axis                 RM\r\n         4     Tangential-edge           4     Tangential-edge            RM\r\n         5     Circumferential-edge      5     Circumferential-edge       RM\r\n                                         6     Radial-axis                IP\r\n                                         7     Axial-axis                 IP\r\n                                         8     Tangential-edge            IP\r\n                                         9     Circumferential-edge       IP\r\n\r\nAX1F3    2     Radial-centroid           2     Radial-centroid            RM\r\n         3     Circumferential-centroid  3     Circumferential-centroid   RM\r\n         4     Axial-centroid            4     Axial-centroid             RM\r\n         5     Tangential-edge 1         5     Tangential-edge 1          RM\r\n         6     Circumferential-edge 1    6     Circumferential-edge 1     RM\r\n         7     Tangential-edge 2         7     Tangential-edge 2          RM\r\n         8     Circumferential-edge 2    8     Circumferential-edge 2     RM\r\n         9     Tangential-edge 3         9     Tangential-edge 3          RM\r\n        10     Circumferential-edge 3    10    Circumferential-edge 3     RM\r\n                                         11    Radial-centroid            IP\r\n                                         12    Circumferential-centroid   IP\r\n                                         13    Axial-centroid             IP\r\n                                         14    Tangential-edge 1          IP\r\n                                         15    Circumferential-edge 1     IP\r\n                                         16    Tangential-edge 2          IP\r\n                                         17    Circumferential-edge 2     IP\r\n                                         18    Tangential-edge 3          IP\r\n                                         19    Circumferential-edge 3     IP\r\n\r\nAXIF4    2     Radial-centroid           2     Radial-centroid            RM\r\n         3     Circumferential-centroid  3     Circumferential-centroid   RM\r\n         4     Axial-centroid            4     Axial-centroid             RM\r\n         5     Tangential-edge 1         5     Tangential-edge 1          RM\r\n         6     Circumferential-edge 1    6     Circumferential-edge 1     RM\r\n         7     Tangential-edge 2         7     Tangential-edge 2          RM\r\n         8     Circumferential-edge 2    8     Circumferential-edge 2     RM\r\n         9     Tangential-edge 3         9     Tangential-edge 3          RM\r\n        10     Circumferential-edge 3    10    Circumferential-edge 3     RM\r\n        11     Tangential-edge 4         11    Tangential-edge 4          RM\r\n        12     Circumferential-edge 4    12    Circumferential-edge 4     RM\r\n                                         13    Radial-centroid            IP\r\n                                         14    Circumferential-centroid   IP\r\n                                         15    Axial-centroid             IP\r\n                                         16    Tangential-edge 1          IP\r\n                                         17    Circumferential-edge 1     IP\r\n                                         18    Tangential-edge 2          IP\r\n                                         19    Circumferential-edge 2     IP\r\n                                         20    Tangential-edge 3          IP\r\n                                         21    Circumferential-edge 3     IP\r\n                                         22    Tangential-edge 4          IP\r\n                                         23    Circumferential-edge 4     IP\r\nBAR      2     SA1 *                     2     SA1 *                      RM\r\n         3     SA2 *                     3     SA2 *                      RM\r\n         4     SA3 *                     4     SA3 *                      RM\r\n         5     SA4 *                     5     SA4 *                      RM\r\n         6     Axial                     6     Axial                      RM\r\n         7     SA-maximum                7     SA1 *                      IP\r\n         8     SA-minimum                8     SA2 *                      IP\r\n         9     Safety Margin in Tension  9     SA3 *                      IP\r\n        10     SB1 *                    10     SA4 *                      IP\r\n        11     SB2 *                    11     Axial                      IP\r\n        12     SB3 *                    12     SB1 *                      RM\r\n        13     SB4 *                    13     SB2 *                      RM\r\n        14     SB-maximum               14     SB3 *                      RM\r\n        15     SB-minimum               15     SB4 *                      RM\r\n        16     Safety Margin in Comp.   16     SB1 *                      IP\r\n                                        17     SB2 *                      IP\r\n                                        18     SB3 *                      IP\r\n                                        19     SB4 *                      IP\r\n\r\nCONEAX         Z1 = Fiber Distance 1\r\n         4     Normal-u         at 1\r\n         5     Normal-v         at 1\r\n         6     Shear-uv         at 1\r\n         7     -Shear Angle    at 1\r\n         8     Major-Principal  at 1\r\n         9     Minor-Principal  at 1\r\n        10     Maximum Shear    at 1\r\n               Z2 = Fiber Distance 2\r\n        12     Normal-u         at 2\r\n        13     Normal-v         at 2\r\n        14     Shear-uv         at 2\r\n        15     -Shear Angle    at 2\r\n        16     Major-Principal  at 2\r\n        17     Minor-Principal  at 2\r\n        18     Maximum Shear    at 2\r\n\r\nCONROD         Same as ROD                      Same as ROD\r\n\r\nELAS1    2     Stress                    2      Stress                    RM\r\n                                         3      Stress                    IP\r\n\r\nELAS2    2     Stress                    2      Stress                    RM\r\n                                         3      Stress                    IP\r\n\r\nELAS3    2     Stress                    2      Stress                    RM\r\n                                         3      Stress                    IP\r\n\r\nHEXA1          Same as TETRA                   Same as TETRA\r\n\r\nHEXA2          Same as TETRA                   Same as TETRA\r\n\r\nIHEX1*   2     External grid point ID    2     External grid point ID\r\n         3     Normal-x                  3     Normal-x                   RM\r\n         4     Shear-xy                  4     Normal-y                   RM\r\n         5     First principal           5     Normal-z                   RM\r\n         6     First principal x cosine  6     Shear-xy                   RM\r\n         7     Second principal x cosine 7     Shear-yz                   RM\r\n         8     Third principal x cosine  8     Shear-zx                   RM\r\n         9     Mean stress               9     Normal-x                   IP\r\n        10     Octahedral shear stress  10     Normal -y                  IP\r\n        11     Normal-y                 11     Normal-z                   IP\r\n        12     Shear-yz                 12     Shear-xy                   IP\r\n        13     Second principal         13     Shear-yz                   IP\r\n        14     First principal y cosine 14     Shear-zx                   IP\r\n        15     Second principal y cosine\r\n        16     Third principal y cosine\r\n        17     Normal-z\r\n        18     Shear-zx\r\n        19     Third principal\r\n        20     First principal z cosine\r\n        21     Second principal z cosine\r\n        22     Third principal z cosine\r\n\r\nIHEX2*         Same as IHEX1                   Same as IHEX1\r\n\r\nIHEX3*   2     First external grid       2     First external grid\r\n               point ID                        point ID\r\n         3     Normal-x                  3     Normal-x                   RM\r\n         4     Shear-xy                  4     Normal-y                   RM\r\n         5     First principal           5     Normal-z                   RM\r\n         6     First principal x cosine  6     Shear-xy                   RM\r\n         7     Second principal x cosine 7     Shear-yz                   RM\r\n         8     Third principal x cosine  8     Shear-zx                   RM\r\n         9     Mean Stress               9     Second external grid\r\n                                               point ID\r\n        10     Octahedral shear stress  10     Normal-x                   IP\r\n        11     Second external grid     11     Normal-y                   IP\r\n               point ID\r\n        12     Normal-y                 12     Normal-z                   IP\r\n        13     Shear-yz                 13     Shear-xy                   IP\r\n        14     Second principal         14     Shear-yz                   IP\r\n        15     First principal y cosine 15     Shear-zx                   IP\r\n        16     Second principal y cosine\r\n        17     Third principal y cosine\r\n        18     Normal-z\r\n        19     Shear-zx\r\n        20     Third principal\r\n        21     First principal z cosine\r\n        22     Second principal z cosine\r\n        23     Third principal z cosine\r\n\r\nQDMEM          Same as TRMEM                   Same as TRMEM\r\n\r\nQDMEM1         Same as TRMEM                   Same as TRMEM\r\n\r\nQDMEM2         Same as TRMEM                   Same as TRMEM\r\n\r\nQDPLT          Same as TRIA1                   Same as TRIA1\r\n\r\nQUAD1          Same as TRIA1                   Same as TRIA1\r\n\r\nQUAD2          Same as TRIA1                   Same as TRIA1\r\n\r\nROD      2     Axial Stress              2     Axial Stress               RM\r\n         3     Axial Safety Margin       3     Axial Stress               IP\r\n         4     Torsional Stress          4     Torsional Stress           RM\r\n         5     Torsional Safety Margin   5     Torsional Stress           IP\r\n\r\nSHEAR    2     Maximum Shear             2     Maximum Shear              RM\r\n         3     Average Shear             3     Maximum Shear              IP\r\n         4     Safety Margin             4     Average Shear              RM\r\n                                         5     Average Shear              IP\r\n\r\nSLOT3    2     Radial-centroid            2    Radial-centroid            RM\r\n         3     Axial-centroid             3    Axial-centroid             RM\r\n         4     Tangential-edge 1          4    Tangential-edge 1          RM\r\n         5     Tangential-edge 2          5    Tangential-edge 2          RM\r\n         6     Tangential-edge 3          6    Tangential-edge 3          RM\r\n                                          7    Radial-centroid            IP\r\n                                          8    Axial-centroid             IP\r\n                                          9    Tangential-edge 1          IP\r\n                                         10    Tangential-edge 2          IP\r\n                                         11    Tangential-edge 3          IP\r\n\r\nSLOT4    2     Radial-centroid            2    Radial-centroid            RM\r\n         3     Axial-centroid             3    Axial-centroid             RM\r\n         4     Tangential-edge 1          4    Tangential-edge 1          RM\r\n         5     Tangential-edge 2          5    Tangential-edge 2          RM\r\n         6     Tangential-edge 3          6    Tangential-edge 3          RM\r\n         7     Tangential-edge 4          7    Tangential-edge 4          RM\r\n                                          8    Radial-centroid            IP\r\n                                          9    Axial-centroid             IP\r\n                                         10    Tangential-edge 1          IP\r\n                                         11    Tangential-edge 2          IP\r\n                                         12    Tangential-edge 3          IP\r\n                                         13    Tangential-edge 4          IP\r\n\r\nTETRA    2     Normal (x)                 2    Normal (x)                 RM\r\n         3     Normal (y)                 3    Normal (y)                 RM\r\n         4     Normal (z)                 4    Normal (z)                 RM\r\n         5     Shear (yz)                 5    Shear (yz)                 RM\r\n         6     Shear (xy)                 6    Shear (xy)                 RM\r\n         7     Shear (xz)                 7    Shear (xz)                 RM\r\n         8     Octahedral                 8    Normal (x)                 IP\r\n         9     Pressure                   9    Normal (y)                 IP\r\n                                         10    Normal (z)                 IP\r\n                                         11    Shear (yz)                 IP\r\n                                         12    Shear (xy)                 IP\r\n                                         13    Shear (xz)                 IP\r\n\r\nTORDRG   2     Mem.-Tangen.    at 1\r\n         3     Mem.-Circum.    at 1\r\n         4     Flex.-Tangen.   at 1\r\n         5     Flex.-Circum.   at 1\r\n         6     Shear-Force     at 1\r\n         7     Mem.-Tangen.    at 2\r\n         8     Mem.-Circum.    at 2\r\n         9     Flex.-Tangen.   at 2\r\n        1O     Flex.-Circum.   at 2\r\n        11     Shear-Force     at 2\r\n        12     Mem.-Tangen.    at 3\r\n        13     Mem.-Circum.    at 3\r\n        14     Flex.-Tangen.   at 3\r\n        15     Flex.-Circum.   at 3\r\n        16     Shear-Force     at 3\r\n\r\nTRAPAX   2     Harmonic or Point Angle\r\n         3     Radial (R)\r\n         4     Axial (Z)\r\n         5     Circum. (Theta-T)\r\n         6     Shear (ZR)\r\n         7     Shear (RT)\r\n         8     Shear (ZT)\r\n\r\nTRAPRG   2     Radial (x)       at 1\r\n         3     Circum. (Theta)  at 1\r\n         4     Axial (z)        at 1\r\n         5     Shear (zx)       at 1\r\n         6     Radial (x)       at 2\r\n         7     Circum. (Theta)  at 2\r\n         8     Axial (z)        at 2\r\n         9     Shear (zx)       at 2\r\n        10     Radial (x)       at 3\r\n        11     Circum. (Theta)  at 3\r\n        12     Axial (z)        at 3\r\n        13     Shear (zx)       at 3\r\n        14     Radial (x)       at 4\r\n        15     Circum. (Theta)  at 4\r\n        16     Axial (z)        at 4\r\n        17     Shear (zx)       at 4\r\n        18     Radial (x)       at 5\r\n        19     Circum. (Theta)  at 5\r\n        20     Axial (z)        at 5\r\n        21     Shear (zx)       at 5\r\n\r\nTRBSC          Same as TRIA1                   Same as TRIA1\r\n\r\nTRIA1          Z1 = Fiber Distance  1          Z1 = Fiber Distance   1\r\n         3     Normal-x         at Z1     3    Normal-x         at   1    RM\r\n         4     Normal-y         at Z1     4    Normal-x         at   1    IP\r\n         5     Shear-xy         at Zl     5    Normal-y         at   1    RM\r\n         6     -Shear Angle    at Z1     6    Normal-y         at   1    IP\r\n         7     Major-Principal  at Z1     7    Shear-xy         at   1    RM\r\n         8     Minor-Principal  at Z1     8    Shear-xy         at   1    IP\r\n         9     Maximum Shear    at Z1          Z2 = Fiber Distance   2\r\n               Z2 = Fiber Distance  2    10    Normal-x         at   2    RM\r\n        11     Normal-x         at Z2    11    Normal-x         at   2    IP\r\n        12     Normal-y         at Z2    12    Normal-y         at   2    RM\r\n        13     Shear-xy         at Z2    13    Normal-y         at   2    IP\r\n        14     -Shear Angle    at Z2    14    Shear-xy         at 2 x    RM\r\n        15     Major-Principal  at Z2    15    Shear-xy         at   2    IP\r\n        16     Minor-Principal  at Z2\r\n        17     Maximum-Shear    at Z2\r\n\r\nTRIA2          Same as TRIA1                   Same as TRIA1\r\n\r\nTRIAAX   2     Harmonic or Point Angle\r\n         3     Radial (R)\r\n         4     Axial (Z)\r\n         5     Circum. (Theta-T)\r\n         6     Shear (ZR)\r\n         7     Shear (RT)\r\n         8     Shear (ZT)\r\n\r\nTRIARG   2     Radial (x)\r\n         3     Circum. (Theta)\r\n         4     Axial (z)\r\n         5     Shear (zx)\r\n\r\nTRMEM    2     Normal-x                   2    Normal-x                   RM\r\n         3     Normal-y                   3    Normal-x                   IP\r\n         4     Shear-xy                   4    Normal-y                   RM\r\n         5     -Shear Angle              5    Normal-y                   IP\r\n         6     Major-Principal            6    Shear-xy                   RM\r\n         7     Minor-Principal            7    Shear-xy                   IP\r\n         8     Maximum Shear\r\n\r\nTRPLT          Same as TRIA1                   Same as TRIA1\r\n\r\nTUBE           Same as ROD                     Same as ROD\r\n\r\nTWIST    2     Maximum                    2    Maximum                    RM\r\n         3     Average                    3    Maximum                    IP\r\n         4     Safety Margin              4    Average                    RM\r\n                                          5    Average                    IP\r\n\r\nWEDGE          Same as TETRA                   Same as TETRA\r\n\r\nNotes\r\n\r\n1. If output is magnitude/phase, the magnitude replaces the real part and the\r\n   phase replaces the imaginary part.\r\n\r\n2. The symbols SA1, SA2, SA3, SA4 and SB1, SB2, SB3, SB4 stand for stresses on\r\n   end A and end B at locations C, D, E and F, respectively, as defined on the\r\n   first continuation card of the PBAR bulk data card.\r\n=PAGE=\r\nTable 4.3-3. Element Force Component Codes for Use on X-Y Output Command \r\nOperation Cards \r\n\r\n(All components are element forces (or moments) unless otherwise denoted)\r\n\r\n         Real Element Forces             Complex Element Forces     Real-Mag.\r\nElement  Comp.                           Comp.                      or\r\nName     Code  Component                 Code  Component            Imag.-Phase\r\n\r\nBAR      2     Bend-Moment  A1            2    Bend-Moment   A1           RM\r\n         3     Bend-Moment  A2            3    Bend-Moment   A2           RM\r\n         4     Bend-Moment  B1            4    Bend-Moment   B1           RM\r\n         5     Bend-Moment  B2            5    Bend-Moment   B2           RM\r\n         6     Shear-1                    6    Shear-1                    RM\r\n         7     Shear-2                    7    Shear-1                    RM\r\n         8     Axial Force                8    Axial Force                RM\r\n         9     Torque                     9    Torque                     RM\r\n                                         10    Bend-Moment   A1           IP\r\n                                         11    Bend-Moment   A2           IP\r\n                                         12    Bend-Moment   B1           IP\r\n                                         13    Bend-Moment   B2           IP\r\n                                         14    Shear-1                    IP\r\n                                         15    Shear-2                    IP\r\n                                         16    Axial Force                IP\r\n                                         17    Torque                     IP\r\n\r\nCONROD         Same as ROD                     Same as ROD\r\n\r\nELAS1    2     Force                      2    Force                      RM\r\n                                          3    Force                      IP\r\n\r\nELAS2    2     Force                      2    Force                      RM\r\n                                          3    Force                      IP\r\n\r\nELAS3    2     Force                      2    Force                      RM\r\n                                          3    Force                      IP\r\n\r\nELAS4    2     Force                      2    Force                      RM\r\n                                          3    Force                      IP\r\n\r\nQDMEM2   2     Force       4  to 1\r\n         3     Force       2  to 1\r\n         4     Force       1  to 2\r\n         5     Force       3  to 2\r\n         6     Force       2  to 3\r\n         7     Force       4  to 3\r\n         8     Force       3  to 4\r\n         9     Force       1  to 4\r\n        10     Kick Force  on  1\r\n        11     Shear-12\r\n        12     Kick Force  on  2\r\n        13     Shear-23\r\n        14     Kick Force  on  3\r\n        15     Shear-34\r\n        16     Kick Force  on  4\r\n        17     Shear-41\r\n\r\nQDPLT          Same as TRIA1                   Same as TRIA1\r\n\r\nQUAD1          Same as TRIA1                   Same as TRIA1\r\n\r\nQUAD2          Same as TRIA1                   Same as TRIA1\r\n\r\nROD      2     Axial Force                2    Axial Force                RM\r\n         3     Torque                     3    Axial Force                IP\r\n                                          4    Torque                     RM\r\n                                          5    Torque                     IP\r\n\r\nSHEAR    2     Force Pts. 1, 3            2    Force Pts. 1,  3           RM\r\n         3     Force Pts. 2, 4            3    Force Pts. 1,  3           IP\r\n                                          4    Force Pts. 2,  4           RM\r\n                                          5    Force Pts. 2,  4           IP\r\n\r\nTRAPAX   2     Harmonic or Point  Angle\r\n         3     Radial (R)         at 1\r\n         4     Circum. (Theta-T)  at 1\r\n         5     Axial (Z)          at 1\r\n         6     Radial (R)         at 2\r\n         7     Circum. (Theta-T)  at 2\r\n         8     Axial (Z)          at 2\r\n         9     Radial (R)         at 3\r\n        10     Circum. (Theta-T)  at 3\r\n        11     Axial (Z)          at 3\r\n        12     Radial (R)         at 4\r\n        13     Circum. (Theta-T)  at 4\r\n        14     Axial (Z)          at 4\r\n\r\nTRBSC          Same as TRIA1                   Same as TRIA1\r\n\r\nTRIAAX   2     Harmonic or Point  Angle\r\n         3     Radial (R)         at 1\r\n         4     Circum. (Theta-T)  at 1\r\n         5     Axial (Z)          at I\r\n         6     Radial (R)         at 2\r\n         7     Circum. (Theta-T)  at 2\r\n         8     Axial (Z)          at 2\r\n         9     Radial (R)         at 3\r\n        10     Circum. (Theta-T)  at 3\r\n        11     Axial (Z)          at 3\r\n\r\nTRIA1    2     Bend-Moment-x              2    Bend-Moment-x              RM\r\n         3     Bend-Moment-y              3    Bend-Moment-y              RM\r\n         4     Twist-Moment               4    Twist-Moment               RM\r\n         5     Shear-x                    5    Shear-x                    RM\r\n         6     Shear-y                    6    Shear-y                    RM\r\n                                          7    Bend-Moment-x              IP\r\n                                          8    Bend-Moment-y              IP\r\n                                          9    Twist-Moment               IP\r\n                                         10    Shear-x                    IP\r\n                                         11    Shear-y                    IP\r\n\r\nTRIA2          Same as TRIA1                   Same as TRIA1\r\n\r\nTRPLT          Same as TRIA1                   Same as TRIA1\r\n\r\nTUBE           Same as ROD                     Same as ROD\r\n\r\nTWIST    2     Moment Pts. 1, 3           2    Moment Pts. 1,  3          RM\r\n         3     Moment Pts. 2, 4           3    Moment Pts. 1,  3          IP\r\n                                          4    Moment Pts. 2,  4          RM\r\n                                          5    Moment Pts. 2,  4          IP\r\n=PAGE=\r\nXYPRINT - X-Y Print Output Command\r\n\r\nDescription\r\n\r\nCauses generation of tabular printer output for the X-Y pairs.\r\n\r\nNOTE: For the sake of convenience and completeness, this card and all other\r\nX-Y command operation cards are described together under the description of\r\nthe XYPLOT command operation card. Please refer to that card for details.\r\n=PAGE=\r\nXYPUNCH - X-Y Punch Output Command\r\n\r\nDescription\r\n\r\nCauses generation of punched card output for the X-Y pairs.\r\n\r\nNOTE: For the sake of convenience and completeness, this card and all other\r\nX-Y command operation cards are described together under the description of\r\nthe XYPLOT command operation card. Please refer to that card for details.\r\n=PAGE=\r\nYAXIS - Y-Axis Plot Request\r\n\r\nDescription\r\n\r\nRequests plotting of Y-axis.\r\n\r\nFormat and Example\r\n\r\n               \r\n           NO  \r\nYAXIS      YES \r\n               \r\n\r\nYAXIS       YES\r\n\r\nOption     Meaning\r\n\r\nYES        Plot Y-axis.\r\n\r\nNO         Do not plot Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n=PAGE=\r\nYBDIVISIONS - Y-Direction Spacing\r\n\r\nDescription\r\n\r\nSpecifies the spacing to be used along the Y-direction for non-log scales on\r\nlower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                   \r\n                5  \r\nYBDIVISIONS =   n  \r\n                   \r\n\r\nYBDIVISIONS =    4\r\n\r\nOption     Meaning\r\n\r\nn          Number of uniform spaces to be used along the Y-direction for\r\n           whichever of the following are called for: BLEFT TICS, BRIGHT\r\n           TICS, YAXIS (Integer > 0). Applicable only to non-log scales.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n=PAGE=\r\nYBGRID LINES - Y-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the Y-axis on lower half frame\r\nplots only.\r\n\r\nFormat and Example\r\n\r\n                     \r\n                 NO  \r\nYBGRID LINES =   YES \r\n                     \r\n\r\nYBGRID LINES = YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the Y-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n=PAGE=\r\nYBINTERCEPT - X-Axis Position\r\n\r\nDescription\r\n\r\nSpecifies the location on the Y-axis where the X-axis will be drawn on lower\r\nhalf frame plots only.\r\n\r\nFormat and Example\r\n\r\n                     \r\n                 0.0 \r\nYBINTERCEPT  =   yc  \r\n                     \r\n\r\nYBINTERCEPT  =     1.0\r\n\r\nOption     Meaning\r\n\r\nyc         X-axis will have its y-coordinate =  yc (Real)\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n=PAGE=\r\nYBLOG - Logarithmic Y-Coordinate Request\r\n\r\nDescription\r\n\r\nRequests logarithmic scale for Y-coordinates on lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n              \r\n          NO  \r\nYBLOG =   YES \r\n              \r\n\r\nYBLOG = YES\r\n\r\nOption     Meaning\r\n\r\nYES        Use logarithmic scale for Y-coordinates.\r\n\r\nNO         Use linear scale for Y-coordinates.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. See Remark 2 under the description of the XLOG card for default values for\r\n   tic divisions on log plots.\r\n=PAGE=\r\nYBMAX - Upper Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the upper limit of the ordinate of a curve on lower half frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYBMAX  =  y\r\n\r\nYBMAX  =  8.0\r\n\r\nOption     Meaning\r\n\r\ny          Upper limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYBMIN - Lower Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the lower limit of the ordinate of a curve on lower half frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYBMIN  =  y\r\n\r\nYBMIN  =  2.0\r\n\r\nOption     Meaning\r\n\r\ny          Lower limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYBTITLE - Y-Axis Title\r\n\r\nDescription\r\n\r\nSpecifies the title for the Y-axis on lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\nYBTITLE  =  title\r\n\r\nYBTITLE  =  RESPONSE OF POINT 1\r\n\r\nOption     Meaning\r\n\r\ntitle      Any BCD string to be used as the title for the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half frame plots.\r\n\r\n2. The data for this card must be specified on only one physical card.\r\n=PAGE=\r\nYBVALUE PRINT SKIP - Y-Tic Skip Specification\r\n\r\nDescription\r\n\r\nSpecifies the number of tic marks to be skipped between labeled tic marks on\r\nthe Y-axis on lower half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                          \r\n                        0 \r\nYBVALUE PRINT SKIP  =   n \r\n                          \r\n\r\nYBVALUE PRINT SKIP  =    1\r\n\r\nOption     Meaning\r\n\r\nn          Number of tic marks to be skipped between labeled tic marks on the\r\n           Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the\r\n           Y-axis will be labeled.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to lower half plots.\r\n=PAGE=\r\nYDIVISIONS - Y-Direction Spacing\r\n\r\nDescription\r\n\r\nSpecifies the spacing to be used along the Y-direction for non-log scales on\r\nwhole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                  \r\n                0 \r\nYDIVISIONS  =   n \r\n                  \r\n\r\nYDIVISIONS  =    1\r\n\r\nOption     Meaning\r\n\r\nn          Number of uniform spaces to be used along the Y-direction for\r\n           whichever of the following are called for: LEFT TICS, RIGHT TICS,\r\n           YAXIS (Integer > 0). Applicable only to non-log scales.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nYGRID LINES - Y-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the Y-axis on whole frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\n                     \r\n                 NO  \r\nYGRID LINES  =   YES \r\n                     \r\n\r\nYGRID LINES  =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the Y-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nYINTERCEPT - X-Axis Position\r\n\r\nDescription\r\n\r\nSpecifies the location on the Y-axis where the X-axis will be drawn on whole\r\nframe plots only.\r\n\r\nFormat and Example\r\n\r\n                      \r\n                  0.0 \r\nYINTERCEPT   =    yc  \r\n                      \r\n\r\nYINTERCEPT   =     1.0\r\n\r\nOption     Meaning\r\n\r\nyc         X-axis will have its y-coordinate = yc (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nYLOG - Logarithmic Y-Coordinate Request\r\n\r\nDescription\r\n\r\nRequests logarithmic scale for Y-coordinates on whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n              \r\nYLOG  =   NO  \r\n          YES \r\n              \r\n\r\nYLOG  =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Use logarithmic scale for Y-coordinates.\r\n\r\nNO         Use linear scale for Y-coordinates.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. See Remark 2 under the description of the XLOG card for default values for\r\n   tic divisions on log plots.\r\n=PAGE=\r\nYMAX - Upper Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the upper limit of the ordinate of a curve on whole frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYMAX  =  y\r\n\r\nYMAX  =  8.0\r\n\r\nOption     Meaning\r\n\r\nxy         Upper limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYMIN - Lower Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the lower limit of the ordinate of a curve on whole frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYMIN  =  y\r\n\r\nYMIN  =  2.0\r\n\r\nOption     Meaning\r\n\r\ny          Lower limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYPAPER - Plot Frame Y-Dimension\r\n\r\nDescription\r\n\r\nSpecifies the Y-dimension of the plot frame (x by y) for table and drum\r\nplotters. (For microfilm plotters, the plot frame size is set at 10.23 inches\r\nx 10.23 inches and is not under your control.)\r\n\r\nFormat and Example\r\n\r\nYPAPER = y\r\n\r\nYPAPER = 12.0\r\n\r\nOption     Meaning\r\n\r\ny          Y-dimension of the plot frame in inches (0.0 < y <= 30.0).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains to all types of plots (whole frame,\r\n   upper half frame, and lower half frame).\r\n\r\n2. If this card is not used, the following default values are used:\r\n\r\n   Plotter model Default value for y (inches)\r\n\r\n   Table      8.5\r\n\r\n   Drum       30.0\r\n\r\n3. See Section 4.1.1 for an important discussion on plot frame size and\r\n   character size.\r\n=PAGE=\r\nYTDIVISIONS - Y-Direction Spacing\r\n\r\nDescription\r\n\r\nSpecifies the spacing to be used along the Y-direction for non-log scales on\r\nupper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                   \r\n                 5 \r\nYTDIVISIONS  =   n \r\n                   \r\n\r\nYTDIVISIONS  =    4\r\n\r\nOption     Meaning\r\n\r\nn          Number of uniform spaces to be used along the Y-direction for\r\n           whichever of the following are called for: TLEFT TICS, TRIGHT\r\n           TICS, YAXIS (Integer > 0). Applicable only to non-log scales.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n=PAGE=\r\nYTGRID LINES - Y-Grid Lines Request\r\n\r\nDescription\r\n\r\nRequests the drawing of grid lines parallel to the Y-axis on upper half frame\r\nplots only.\r\n\r\nFormat and Example\r\n\r\n                      \r\n                  NO  \r\nYTGRID LINES  =   YES \r\n                      \r\n\r\nYTGRID LINES  =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Draw grid lines parallel to the Y-axis at locations requested for\r\n           tic marks.\r\n\r\nNO         Do not draw grid lines parallel to the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n=PAGE=\r\nYTINTERCEPT - X-Axis Position\r\n\r\nDescription\r\n\r\nSpecifies the location on the Y-axis where the X-axis will be drawn on upper\r\nhalf frame plots only.\r\n\r\nFormat and Example\r\n\r\n                       \r\n                   0.0 \r\nYTINTERCEPT   =    yc  \r\n                       \r\n\r\nYTINTERCEPT   =    1.0\r\n\r\nOption     Meaning\r\n\r\nyc         X-axis will have its y-coordinate = yc (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n=PAGE=\r\nYTITLE - Y-Axis Title\r\n\r\nDescription\r\n\r\nSpecifies the title for the Y-axis on whole frame plots only.\r\n\r\nFormat and Example\r\n\r\nYTITLE = title\r\n\r\nYTITLE = RESPONSE OF POINT 1\r\n\r\nOption     Meaning\r\n\r\ntitle      Any BCD string to be used as the title for the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n=PAGE=\r\nYTLOG - Logarithmic Y-Coordinate Request\r\n\r\nDescription\r\n\r\nRequests logarithmic scale for Y-coordinates on upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n               \r\n           NO  \r\nYTLOG  =   YES \r\n               \r\n\r\nYTLOG  =    YES\r\n\r\nOption     Meaning\r\n\r\nYES        Use logarithmic scale for Y-coordinates.\r\n\r\nNO         Use linear scale for Y-coordinates.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. See Remark 2 under the description of the XLOG card for default values for\r\n   tic divisions on log plots.\r\n=PAGE=\r\nYTMAX - Upper Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the upper limit of the ordinate of a curve on upper half frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYTMAX = y\r\n\r\nYTMAX = 8.0\r\n\r\nOption     Meaning\r\n\r\ny          Upper limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYTMIN - Lower Limit of Ordinate\r\n\r\nDescription\r\n\r\nSpecifies the lower limit of the ordinate of a curve on upper half frame plots\r\nonly.\r\n\r\nFormat and Example\r\n\r\nYTMIN = y\r\n\r\nYTMIN = 2.0\r\n\r\nOption     Meaning\r\n\r\ny          Lower limit of the ordinate (Real).\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. If this card is not used, the default value is chosen so as to accommodate\r\n   all points.\r\n=PAGE=\r\nYTTITLE - Y-Axis Title\r\n\r\nDescription\r\n\r\nSpecifies the title for the Y-axis on upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\nYTTITLE = title\r\n\r\nYTTITLE = RESPONSE OF POINT 1\r\n\r\nOption     Meaning\r\n\r\ntitle      Any BCD string to be used as the title for the Y-axis.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half frame plots.\r\n\r\n2. The data for this card must be specified on only one physical card.\r\n=PAGE=\r\nYTVALUE PRINT SKIP - Y-Tic Skip Specification\r\n\r\nDescription\r\n\r\nSpecifies the number of tic marks to be skipped between labeled tic marks on\r\nthe Y-axis on upper half frame plots only.\r\n\r\nFormat and Example\r\n\r\n                        \r\n                      0 \r\nYTVALUE PRINT SKIP =  n \r\n                        \r\n\r\nYTVALUE PRINT SKIP =   1\r\n\r\nOption     Meaning\r\n\r\nn          Number of tic marks to be skipped between labeled tic marks on the\r\n           Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the\r\n           Y-axis will be labeled.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to upper half plots.\r\n=PAGE=\r\nYVALUE PRINT SKIP - Y-Tic Skip Specification\r\n\r\nDescription\r\n\r\nSpecifies the number of tic marks to be skipped between labeled tic marks on\r\nthe Y-axis on whole frame plots only.\r\n\r\nFormat and Example\r\n\r\n                       \r\n                     0 \r\nYVALUE PRINT SKIP =  n \r\n                       \r\n\r\nYVALUE PRINT SKIP =   1\r\n\r\nOption     Meaning\r\n\r\nn          Number of tic marks to be skipped between labeled tic marks on the\r\n           Y-axis (Integer >= 0). Thus, every (n + 1)th tic mark on the\r\n           Y-axis will be labeled.\r\n\r\nRemarks\r\n\r\n1. This card is optional. It pertains only to whole frame plots.\r\n\r\n=PAGE=\r\n4.4  NASTRAN GENERAL PURPOSE PLOTTER (NASTPLT) FILE\r\n\r\n   As indicated in Section 4.1, the NASTRAN plotting software is completely\r\nindependent of any particular plotting hardware. This protects the NASTRAN\r\nsoftware from being impacted by changes, additions, or deletions made to any\r\nparticular plotting hardware. Instead, the plot file produced by NASTRAN\r\n(which may reside either on physical tape or on a mass storage device) is\r\nmeant for a hypothetical plotter termed the NASTRAN General Purpose Plotter\r\n(NASTPLT) and is not suitable for use directly by any particular plotter. In\r\norder to use this NASTPLT file to obtain plots on any particular plotter, your\r\ninstallation must have available an external translator program to interpret\r\nthis plot file and create plots on the plotter. Thus, in order to obtain plots\r\nusing NASTRAN, two programs must be run: first, NASTRAN itself, to generate\r\nthe NASTPLT file; and then the external translator program, to interpret this\r\nplot file.\r\n\r\n   The purpose of this section is to explain the characteristics and\r\nconstruction of the NASTPLT file, so that you or a programmer will be able to\r\nwrite a program to translate this plot file for your plotter. Understanding\r\nthe overall logic used by the NASTRAN plotter software package in producing a\r\nplot file will simplify the task of writing this translator program. It is\r\ntherefore recommended that you or the programmer familiarize yourself not only\r\nwith this section, but also with Section 6.10 of the Programmer's Manual,\r\ndealing with the plotting software in NASTRAN.\r\n\r\n   The NASTPLT file is composed of a simple set of elementary plot operations,\r\nwhich can be easily deciphered by a FORTRAN program on any digital computer.\r\nAs each operation is deciphered, the translator program should direct the\r\nreceiving plotter to appropriate action. This would normally be done by using\r\nthe installation software to interface between the translator program and the\r\nreceiving plotter. If appropriate external translator programs are written, it\r\nis thus possible to obtain NASTRAN plots on any plotter.\r\n\r\n4.4.1  Description of the NASTPLT File\r\n\r\n   The NASTPLT file is a fixed-length-record file. An end-of-file mark follows\r\nthe last plot only. Each record of the file is composed of 3000 n-bit bytes\r\n(or characters), each byte (or character) containing an unsigned integer. The\r\nvalue of n (the number of bits per byte) depends on the machine type. On the\r\nCDC and UNIVAC versions, n is equal to 6; on the IBM and DEC VAX versions, n\r\nis equal to 8. Thus, each record of 3000 unsigned integers consists of 300\r\nwords on the CDC (where the word length is 60 bits), 500 words on the UNIVAC\r\n(word length: 36 bits) and 750 words on the IBM and DEC VAX (word length: 32\r\nbits).\r\n\r\n   Each record of the NASTPLT file is composed of 100 plot commands, each\r\ncommand being composed of 30 bytes or unsigned integers (3 words on the CDC, 5\r\nwords on the UNIVAC, and 15 half-words on the IBM and DEC VAX). Not all plot\r\ncommands will have useful information in all 30 bytes. Some commands use only\r\ntwo of the 30 bytes, while others use 22. The general format of each command\r\nis as follows:\r\n\r\n   PCR R R R R S S S S S T T T T T U U U U U 000000-\r\n      4 3 2 1 0 4 3 2 1 0 4 3 2 1 0 4 3 2 1 0\r\n   00\r\n\r\nwhere:\r\n\r\n   P  = plot command\r\n   C  = control index\r\n   Ri = decimal digit of an integer called R\r\n   Si = decimal digit of an integer called S\r\n   Ti = decimal digit of an integer called T\r\n   Ui = decimal digit of an integer called U\r\n   0 = zero\r\n\r\n   The plot command is an n-bit integer, any one of seven (7) possible plot\r\ncommands, as follows:\r\n\r\n   0 = no operation\r\n   1 = start new plot\r\n   2 = select camera\r\n   3 = skip to a new frame\r\n   4 = type a character (may also = 14)\r\n   5 = draw a line (may also = 15)\r\n   6 = draw an axis (may also = 16)\r\n\r\nThe control index is also an n-bit integer. It may be a pen number (or a color\r\nfill option), a line density, a camera number, or a pointer into a list of\r\ncharacters and symbols. The four integer values (R, S, T, U) specified in a\r\ncommand must be reconstructed by the external translator program. Each integer\r\nvalue is represented in the command as follows:\r\n\r\n   d d d d d\r\n    4 3 2 1 0\r\n\r\nwhere the original integer value is given by:\r\n\r\n       4         3         2        1         0\r\n   d 10   +  d 10   +  d 10  +  d 10   +  d 10\r\n    4         3         2        1         0\r\n\r\nThe significance of each of the four integer values (R, S, T, U) may vary from\r\none plot command to another. This is discussed in the next section.\r\n\r\n4.4.2  Description of the Plot Commands on the NASTPLT File\r\n\r\n   The seven possible plot commands on the NASTPLT file are described here.\r\n\r\n   The no-operation (0) command is simply a padding for plot records which may\r\notherwise have been less than 300 bytes long. All 30 bytes of this command\r\nwill be zero.\r\n\r\n   The start-new-plot (1) command will always be the first command introducing\r\neach new plot. The first integer (R) is the plot number. The second and third\r\nintegers (S and T) are the maximum x and y values specified in any other\r\ncommand for this plot. The minimum x and y values are always zero and are\r\ntherefore not specified in the start-new-plot command. If necessary, the\r\ntranslator program can use these maximum x and y values to scale subsequent\r\ninteger values so that the plot will not exceed the limits of the plotting\r\nsurface. The plot number is included because some plotters require the plot\r\nnumber as part of the first command for each new plot. In addition, if the\r\nreceiving plotter is a table plotter, the translator program should issue a\r\ncommand to the plotter which will stop it so that the plotter operator can\r\nchange the paper. If the plotter is a drum plotter, the translator program\r\nmust skip a sufficient amount of paper to ensure that the previous plot will\r\nnot be over-plotted. And if the receiving plotter is a microfilm plotter,\r\nnothing else need be done.\r\n\r\n   The select-camera (2) command uses only the control index (C). The\r\nremaining 28 bytes are always zeros. This command is meaningful only on a\r\nmicrofilm plotter having both film and hardcopy output. The control index is\r\nthe camera or output medium request number: 1 = film only, 2 = hardcopy\r\n(paper) only, and 3 = both. Upon receiving this command, the translator\r\nprogram should issue a command to the receiving plotter selecting the\r\nrequested camera or output medium, then this command should be ignored.\r\n\r\n   The skip-to-a-new-frame (3) command also uses only the control index. The\r\nremaining 28 bytes are always zeros. This command is meaningful only on a\r\nmicrofilm plotter. The control index is the camera or output medium request\r\nnumber: 1 = film only, 2 = hardcopy (paper) only, and 3 = both. The\r\nappropriate camera will have already been selected in a previous select-camera\r\ncommand. The only reason the camera number is included in this command is that\r\nsome microfilm plotters require the camera or output medium to be specified in\r\nboth select-camera and skip-frame commands. Upon receiving this command, the\r\ntranslator program should issue a command to the receiving plotter to skip to\r\na new frame. If the receiving plotter is not a microfilm plotter, then this\r\ncommand should be ignored. Note: At least one skip-to-a-new-frame command will\r\nappear after each start-new-plot command and before the next start-new-plot\r\ncommand.\r\n\r\n   The type-character (4), draw-line (5), and draw-axis (6) commands will\r\nalways occur in sets, that is, a set of type-character commands, a set of\r\ndraw-line commands, a set of draw-axis commands. There may be more than one\r\nset of each type of command, but, within a set, the commands will all be of\r\nthe same type. This is done because on some plotters it is very inefficient to\r\nfrequently change modes (for example, typing mode, line drawing mode) of\r\noperation. The plot command of the first command in a set will always = 10 +\r\nthe basic plot command value, that is, type-character = 14; draw-line = 15;\r\nand draw-axis = 16. In all subsequent plot commands in the set, the plot\r\ncommand value will always equal the basic plot command value.\r\n\r\n   For a type-character command, the control index is a pointer into a\r\nspecific list of characters and special symbols. The list of characters and\r\nsymbols to which the pointer applies is given in Table 4.4-1. The first two\r\ninteger values (R and S) in the plot command represent the x and y coordinates\r\nof the point on the plotting surface at which the center of the character or\r\nsymbol should be typed. The next integer value (T) represents the character\r\nscale value (see the description of the CSCALE card in Section 4.2.2.4) to be\r\nused in the plotting. The remaining 13 bytes of the command are always zeros.\r\nUpon receipt of a type-character command, the translator program should issue\r\na command to the receiving plotter to type the requested character or special\r\nsymbol (using the CSCALE value, if possible and appropriate) at the specified\r\npoint. Of course, there is no guarantee that all the possible characters and\r\nspecial symbols can be typed by the receiving plotter. If any character or\r\nspecial symbol cannot be typed by the receiving plotter, the translator\r\nprogram will then have to make a substitution or not type the character at\r\nall.\r\n\r\n   For a draw-line command, the control index is either a pen number or a\r\ncolor fill option (for table and drum plotters) or a line density (for\r\nmicrofilm plotters). If the receiving plotter is a microfilm plotter, it is\r\nrecommended that the translator program simply draw the line as many times as\r\nis indicated by the line density value, rather than using any special density\r\nsettings available on the plotter hardware.\r\n\r\n   For table and drum plotters, the control index of the draw-line command\r\ndenotes a pen number if the index has values between 1 and 31, both inclusive\r\n(that is, 1 <=  control index <= 31). Control index values above 31 (up to 61)\r\nand a value of 0 represent the color fill option of closed polygons. The color\r\nfilling of an n-sided closed polygon consists of a series of n draw-line\r\ncommands, each in turn corresponding to one side of the polygon. All but the\r\nlast of the draw-line commands in the series have the same control index\r\nvalue, m (31 < m <= 61). The last draw-line command in the series has a\r\ncontrol index value of 0, indicating the last side of the closed polygon. The\r\ncolor with which the polygon is to be filled is given by pen number (m - 31).\r\n\r\n   The first two integer values (R and S) of the draw-line command represent\r\nthe x and y coordinates of the starting point of the line. The next two\r\ninteger values (T and U) represent the x and y coordinates of the ending point\r\nof the line. The last 8 bytes of the command are always zeros. Upon receipt of\r\nthis command, the translator program should issue a command to the receiving\r\nplotter to draw the line. NOTE: Some plotters require that a line be broken\r\ninto a series of short lines. If this is the case on the receiving plotter,\r\nthe translator program will have to accomplish this task unless the\r\ninstallation software makes provision for this automatically.\r\n\r\n   The draw-axis command is identical to the draw-line command, except that\r\nthere is no color fill option as it is not meaningful in this case. The only\r\nother difference is in the orientation of the drawn line. The line drawn by a\r\ndraw-axis command will always be either horizontal or vertical. For most\r\nplotters, the translator program will handle this command just like a\r\ndraw-line command. However, some plotters, which would ordinarily require that\r\nlines be broken into a series of short lines, may have a special command\r\navailable to draw a horizontal or vertical line of any length. Only for these\r\nfew plotters will this command have any special significance in the translator\r\nprogram. If such is the situation, the translator program, upon receipt of\r\nthis command, should issue a command to the receiving plotter to draw the\r\naxis. Otherwise, the translator program should simply issue a command to the\r\nreceiving plotter to draw a line representing the axis.\r\n=PAGE=\r\nTable 4.4-1. Characters and symbols indicated by the pointer\r\nin the type-character plot command\r\n\r\nPointer Value  Character/Symbol     Pointer Value   Character/Symbol\r\n\r\n       1               0                 27               Q\r\n       2               1                 28               R\r\n       3               2                 29               S\r\n       4               3                 30               T\r\n       5               4                 31               U\r\n       6               5                 32               V\r\n       7               6                 33               W\r\n       8               7                 34               X\r\n       9               8                 35               Y\r\n      10               9                 36               2\r\n      11               A                 37               (\r\n      12               B                 38               )\r\n      13               C                 39               +\r\n      14               D                 40               -\r\n      15               E                 41               *\r\n      16               F                 42               /\r\n      17               G                 43               =\r\n      18               H                 44               .\r\n      19               I                 45               ,\r\n      20               J                 46               $\r\n      21               K                 47               |\r\n      22               L                 48         filled bullet\r\n      23               M                 49         open circle\r\n      24               N                 50         open square\r\n      25               O                 51         open diamond\r\n      26               P                 52         open triangle\r\n\r\n"
  },
  {
    "path": "um/RFMT.TXT",
    "content": "=PAGE=\r\nAERO10\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    AERO 10 - MODAL FLUTTER ANALYSIS - APR. 1993 $ \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nFILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/   \r\n         CLAMAL=APPEND/OVG=APPEND/QHHL=APPEND/SKJ=APPEND/QHJL=APPEND/   \r\n         QKHL=APPEND/ $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 127,138\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 15, 19, 21, 23, 24, 58, 59\r\n****FILE 101,112,119,137,140\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/MINUS1=-1 $ \r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no grid points are \r\n$$$$ defined.\r\nCOND     ERROR5,NOGPDT $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****SBST   5\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****SBST   5\r\n****CARD   1-  6, 13, 16, 24\r\n****FILE  97\r\n****RFMT 199-201,204-217\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****SBST   5\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE  97\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR1,NOSIMP $\r\n****SBST   5\r\n****CARD   1,  2,  4-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/NOMGG /1/0 $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ \r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/   \r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 140\r\n****RFMT 199-201,204-217\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$                                                   y\r\n$$$$ SMA3 forms the general element stiffness matrix [K  ].\r\n$$$$                                                   gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 199-201,204-217\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 102\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ GP4 generates flags defining members of various displacement sets\r\n$$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                                     g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/0/REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 22- 24\r\n****FILE 101\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 22- 24\r\n****FILE 101\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    GM/MPCF1/DM,MR/REACT $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 103,109,110\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****SBST   4\r\n****CARD   1,  9, 24\r\n****FILE 103\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL2 $ \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL3 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no omitted coordinates\r\n$$$$               ff       aa        ff       aa\r\n$$$$ exist.\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    GO/OMIT $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24\r\n****FILE 142\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*PREC*/PREC $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 142\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_      |\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |   |   |\r\n$$$$           |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T              T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ][G ]+ [G ][M  ]\r\n$$$$     aa      aa      oa   o      o   oo   o     o   oa\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL5 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123,142\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL6 if there are no free-body supports.\r\nCOND     LBL6,REACT $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ RBMG1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KLL/LLL/ $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 108\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 109\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 110\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL6 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and \r\n$$$$ Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $  \r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****SBST   4\r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  9- 11, 13, 14, 24, 56\r\n****FILE 115\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 199-201,204-217\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ].\r\n$$$$                                            pp     pp         pp\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****SBST   5\r\n****CARD   1, 40, 56, 57\r\n****FILE 114\r\n****RFMT 199-201,204-217\r\n$$$$               2        2      2        2          2        2\r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd\r\n$$$$ constraints are applied.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $\r\n****SBST   4\r\n****CARD   1,  9- 11, 40, 56, 57\r\n****FILE 139\r\n****RFMT 199-201,204-217\r\n$$$$                                                     2      2             \r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and      \r\n$$$$                                                     pp     pp            \r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ], and forms [G  ] and [G  ].\r\n$$$$   pp             dd     dd         dd               md        od\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/  \r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/  \r\n         -1/-1/   -1/-1 $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 14, 24, 40, 56, 57\r\n****FILE 115,139\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ GKAM selects eigenvectors to form [phi  ] and assembles stiffness, mass,\r\n$$$$                                       dh\r\n$$$$ and damping matrices in modal coordinates:\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |k  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [K  ] =  |---+---| + [phi  ][K  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |m  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [M  ] =  |---+---| + [phi  ][M  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |b  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [B  ] =  |---+---| + [phi  ][B  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$ where\r\n$$$$\r\n$$$$   KDAMP = -1 (default)             KDAMP = 1\r\n$$$$     m  = modal masses                m  = modal masses\r\n$$$$      i                                i\r\n$$$$     b  = m  2 pi f  g(f )            b  = 0\r\n$$$$      i    i       i    i              i\r\n$$$$                 2                                        2  2\r\n$$$$     k  = m  4 pi  f                  k  = (1+ig(f )) 4 pi  f  m\r\n$$$$      i    i        i                  i          i          i  i\r\n$$$$\r\nGKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,\r\n         PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/   \r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 55- 59, 62\r\n****FILE 116\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ APD processes the aerodynamic data cards from EDT. It adds the k points \r\n$$$$ and the SA points to USETD, making USETA. EQAERO, ECTA, BGPA, CSTMA, \r\n$$$$ GPLA, and SILA are updated to reflect the new elements. AERO and ACPT \r\n$$$$ reflect the aerodynamic parameters. SILGA is a special SIL for plotting.\r\nAPD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n         USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/   \r\n         S,N,LUSETA/S,N,BOV $   \r\n****CARD   1,  2,  4,  5,  9- 12, 16, 24, 29, 32, 34- 37, 56\r\n****FILE 124\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/1 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to lable SKPPLT if no plot output is requested.\r\nCOND     SKPPLT,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/0/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/  \r\n         S,N,JUMPPLOT $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETA // $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label SKPPLT if no undeformed aerodynamic or structural plot \r\n$$$$ elements are requested.\r\nCOND     SKPPLT,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ PLOT generates all requested undeformed aerodynamic and structural \r\n$$$$ element plots.\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,    ,,,,,,/PLOTX2/  \r\n         NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed \r\n$$$$ aerodynamic and structural plot element generated.\r\nPRTMSG   PLOTX2 // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    SKPPLT $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 118,125\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD  58, 60\r\n****FILE 121\r\n****RFMT 199-201,204-217\r\n$$$$                                    T\r\n$$$$ GI forms a transformation matrix [G  ] which interpolates between\r\n$$$$                                    ka\r\n$$$$ aerodynamic (k) and structural (a) degrees of freedom.\r\nGI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/LUSET $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24, 32, 35, 37\r\n****FILE 126\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1/ $  \r\n****SBST   6\r\n****CARD  24, 29, 35, 37\r\n****FILE 127\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ AMG forms the aerodynamic matrix list [A  ], the area matrix [S  ], and\r\n$$$$                                         jj                     kj\r\n$$$$                             1         2\r\n$$$$ the downwash coefficients [D  ] and [D  ].\r\n$$$$                             jk        jk\r\n$$$$\r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****SBST   6\r\n****CARD  24, 29, 34, 35, 37\r\n****FILE 127\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label NODJE if there are no user-supplied downwash coefficients.\r\nCOND     NODJE,    NODJE $  \r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ INPUTT2 provides the user-supplied downwash factors due to extra points\r\n$$$$    1      2\r\n$$$$ ([D  ], [D  ]). PARAM NODJE must be set to enter these matrices. The\r\n$$$$    je     je\r\n$$$$ downwash w  onbox j due to the motion of an extra point, u , is given by\r\n$$$$           j                                               e\r\n$$$$             1       2\r\n$$$$   {w  | = [D   + ikD  ]{u }\r\n$$$$      j      je      je   e\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ \r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 35, 37, 54, 56, 58, 59, 62\r\n****FILE 138\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ AMP computes the aerodynamic matrix list related to the modal coordinates \r\n$$$$ as follows\r\n$$$$ \r\n$$$$              +           +\r\n$$$$              |phi  |phi  |\r\n$$$$              |   ai|   ae|                   T  T        \r\n$$$$   [phi  ] =  |-----+-----|         [G  ] = [G  ]  [phi  ]\r\n$$$$       dh     |phi  |phi  |           ki      ka       ai \r\n$$$$              |   ei|   ee|\r\n$$$$              +           +\r\n$$$$\r\n$$$$     1        1     1                 1       1  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$     2        2     2                 2       2  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$ For each (m,k) pair:\r\n$$$$\r\n$$$$             1         2\r\n$$$$   [D  ] = [D  ] + ik[D  ]\r\n$$$$     jh      jh        jh\r\n$$$$\r\n$$$$ For each group:\r\n$$$$\r\n$$$$             T  -1\r\n$$$$   [Q  ] = [A  ]      [D  ]\r\n$$$$     jh      jj group   jh group\r\n$$$$\r\n$$$$   [Q  ] = [S  ][Q  ]\r\n$$$$     kh      kj   jh\r\n$$$$\r\n$$$$                T\r\n$$$$   [Q  ] = [G  ] [Q  ]\r\n$$$$     ih      ki    kh\r\n$$$$\r\n$$$$             +     +\r\n$$$$             | Q   |\r\n$$$$             |  ih |\r\n$$$$   [Q  ] <=  | ----|\r\n$$$$     hh      | Q   |\r\n$$$$             |  eh |\r\n$$$$             +     +\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,  \r\n         QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 54, 56, 58, 59\r\n****CARD  62\r\n****FILE 138\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ PARAM initializes the flutter loop counter (FLOOP) to zero.\r\nPARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Beginning of loop for flutter.\r\nLABEL    LOOPTOP $  \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-217\r\n$$$$                                                  x\r\n$$$$ FA1 computes the total aerodynamic mass matrix [M  ], the total \r\n$$$$                                                  hh\r\n$$$$                                x\r\n$$$$ aerodynamic stiffness matrix [K  ], and the total aerodynamic damping\r\n$$$$                                hh\r\n$$$$          x\r\n$$$$ matrix [B  ], as well as a looping table FSAVE. For the K method\r\n$$$$          hh\r\n$$$$ \r\n$$$$    x      2  2           ) Q\r\n$$$$   M   = (k /b )M   + (p/2   hh\r\n$$$$    hh           hh\r\n$$$$ \r\n$$$$    x\r\n$$$$   K   = K\r\n$$$$    hh    hh\r\n$$$$ \r\n$$$$    x\r\n$$$$   B   = 0\r\n$$$$    hh\r\n$$$$\r\nFA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/\r\n         S,N,FLOOP/S,N,TSTART/S,N,NOCEAD $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 129\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Set up equivalences for the KE and PK methods.\r\nEQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/KXHH,PHIHL/NOCEAD/BXHH, \r\n         CLAMAL/NOCEAD/CASECC,CASEYY/NOCEAD $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117,130\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label VDR for the KE and PK methods.\r\nCOND     VDR,NOCEAD $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation\r\n$$$$\r\n$$$$     x  2    x      x\r\n$$$$   [M  p  + B  p + K  ]{phi } = 0\r\n$$$$     hh      hh     hh     h\r\n$$$$\r\n$$$$ and normalizes eigenvectors to unit magnitude of the largest component.\r\nCEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBLZAP if no complex eigenvalues were found.\r\nCOND     LBLZAP,EIGVS $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    VDR $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points \r\n$$$$ introduced for dynamic analysis and modal coordinates.\r\nVDR      CASECC,EQDYN ,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/  \r\n         123/S,N,NOH/S,N,NOP/FMODE $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL16 if there is no output request for the extra points \r\n$$$$ introduced for dynamic analysis or modal coordinates.\r\nCOND     LBL16,NOH $\r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ OFP formats the table of eigenvectors for extra points introduced for \r\n$$$$ dynamic analysis and modal coordinates prepared by VDR and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OPHIH,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD  21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL16 $\r\n****SBST   4\r\n****CARD  18, 21\r\n****FILE 119\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ FA2 appends eigenvectors to PHIHL, eigenvalues to CLAMAL, Case Control to \r\n$$$$ CASEYY, and V-g plot data to OVG.\r\nFA2      PHIH,CLAMA,FSAVE/    PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/   \r\n         C,Y,VREF=1.0/C,Y,PRINT=YES $   \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 130\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label CONTINUE if there is insufficient time for another flutter \r\n$$$$ loop.\r\nCOND     CONTINUE,TSTART $  \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    LBLZAP $   \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 117\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Go to label CONTINUE if the flutter loop is complete.\r\nCOND     CONTINUE,FLOOP $   \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Go to label LOOPTOP for additional aerodynamic configuration triplet \r\n$$$$ values.\r\nREPT     LOOPTOP,100 $  \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if the number of flutter \r\n$$$$ loops exceeds 100.\r\nJUMP     ERROR3 $   \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    CONTINUE $ \r\n****SBST   3,  4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $ \r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label NOXYOUT if there are no X-Y plot requests.\r\nCOND     NOXYOUT,NOXYCDB $  \r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO/\r\n         S,N,NOXYPL $   \r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label NOXYOUT if no plots are possible as requested.\r\nCOND     NOXYOUT,NOXYPL $   \r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ XYPLOT prepares the requested V-g plots.\r\nXYPLOT   XYPLTCE// $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    NOXYOUT $  \r\n****SBST   4\r\n****CARD  20\r\n****FILE 120\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 20, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if there are no output requests \r\n$$$$ involving dependent degrees of freedom or forces and stresses.\r\nCOND     FINIS,PJUMP $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 18- 21, 24- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ MODACC selects a list of eigenvalues and eigenvectors whose imaginary \r\n$$$$ parts (velocity in input units) are close to a user input list.\r\nMODACC   CASEYY,CLAMAL,PHIHL,,,/CLAMAL1,CPHIH1,CASEZZ,,/*CEIGN* $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 131\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ ADR builds a matrix of aerodynamic forces for each aerodynamic point and \r\n$$$$ prints requested aerodynamic forces for selected elements.\r\nADR      CPHIH1,CASEZZ,QKHL,CLAMAL1,SPLINE,SILA,USETA/PKF/BOV/  \r\n         C,Y,MACH = 0.0/*FLUTTER* $ \r\n****SBST   4\r\n****CARD  21, 25\r\n****FILE 121\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ DDR1 transforms the complex eigenvectors from modal to physical \r\n$$$$ coordinates\r\n$$$$ \r\n$$$$       c\r\n$$$$   {phi } = {phi  }{phi }\r\n$$$$       d        dh     h\r\n$$$$\r\nDDR1     CPHIH1,PHIDH/CPHID $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34, 36- 40, 55- 62\r\n****FILE 122\r\n****RFMT 199-201,204-217\r\n$$$$                 c         c\r\n$$$$ Equivalence {phi } to {phi } if no constraints are applied.\r\n$$$$                 d         p\r\n$$$$\r\nEQUIV    CPHID ,CPHIP/NOA $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nPURGE    QPC/NOA $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBL14 if no constraints are applied.\r\nCOND     LBL14,NOA $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$      c      d     c                  d        c      c\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi  + phi }\r\n$$$$      o      o     d               phi         f      e\r\n$$$$                                      o\r\n$$$$       c      c\r\n$$$$    phi  + phi\r\n$$$$       f      e        c      c       c      d     c      c\r\n$$$$   {-----------} = {phi  + phi }  {phi } = [G ]{phi  + phi } \r\n$$$$          c            n      e       m      m     n      e\r\n$$$$       phi      \r\n$$$$          s\r\n$$$$ \r\n$$$$       c      c   \r\n$$$$    phi  + phi    \r\n$$$$       f      e        c\r\n$$$$   {-----------} = {phi }\r\n$$$$          c            p\r\n$$$$       phi        \r\n$$$$          m\r\n$$$$                                                         T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$   0       c\r\n$$$$ {---} = {Q }.\r\n$$$$   q       p\r\n$$$$    s\r\n$$$$\r\nSDR1     USETD,,CPHID ,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1 /*DYNAMICS* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBL14 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 144\r\n****RFMT 199-201,204-217\r\n$$$$                 c         c\r\n$$$$ Equivalence {phi } to {phi } if there are no extra points introduced for\r\n$$$$                 d         a\r\n$$$$ dynamic analysis.\r\nEQUIV    CPHID ,CPHIA/NOUE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 122\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ Go to label LBLNOE if there are no extra points.\r\nCOND     LBLNOE,NOUE $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ VEC generates a d-size partitioning vector (RP) for the a and e sets\r\n$$$$\r\n$$$$   {u } -> {u } + {u }\r\n$$$$     d       s      e\r\n$$$$\r\nVEC      USETA/RP/*D*/*A*/*E* $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$                                 c\r\n$$$$ PARTN performs partition of {phi } using RP\r\n$$$$                                 d\r\n$$$$                 c\r\n$$$$              phi\r\n$$$$       c         a\r\n$$$$   {phi } => {----}\r\n$$$$       d         c\r\n$$$$              phi\r\n$$$$                 e\r\n$$$$\r\nPARTN    CPHID ,,RP/CPHIA,,,/1/3 $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 122,132\r\n****RFMT 199-201,204-217\r\n$$$$\r\nLABEL    LBLNOE $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 132\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ MPYAD recovers the displacements at the aerodynamic points (k)\r\n$$$$ \r\n$$$$       c      T  T    c\r\n$$$$   {phi } = [G  ] {phi }\r\n$$$$       k      ka      a\r\n$$$$\r\nMPYAD    GTKA,CPHIA,/CPHIK/1/1/0/PREC $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 133\r\n****RFMT 199-201,204-217\r\n$$$$                              c\r\n$$$$ UMERGE is used to expand {phi } to the ps set.\r\n$$$$                              p\r\n$$$$\r\nUMERGE   USETA,CPHIP,/CPHIPS/*PS*/*P*/*SA* $\r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 134\r\n****RFMT 199-201,204-217\r\n$$$$                   c\r\n$$$$ UMERGE places {phi } in its proper place in the displacement vector\r\n$$$$                   k\r\n$$$$\r\n$$$$                  c\r\n$$$$               phi\r\n$$$$       c          ps\r\n$$$$   {phi  } <= {-----}\r\n$$$$       pa         c\r\n$$$$               phi\r\n$$$$                  k\r\n$$$$\r\nUMERGE   USETA,CPHIPS,CPHIK/CPHIPA/*PA*/*PS*/*K* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 136\r\n****RFMT 199-201,204-217\r\n$$$$                            c\r\n$$$$ UMERGE is used to expand {Q } to the pa set.\r\n$$$$                            p\r\n$$$$\r\nUMERGE   USETA,QPC,/QPAC/*PA*/*P*/*K* $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE 136\r\n****RFMT 199-201,204-217\r\n$$$$\r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares \r\n$$$$ eigenvectors (OCPHIPA) and single-point forces of constraint (OQPAC1) for \r\n$$$$ output and PCPHIPA for deformed plotting.\r\nSDR2     CASEZZ,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,CLAMAL1,QPAC,CPHIPA,   \r\n         EST,,,/,OQPAC1,OCPHIPA,OESC1,OEFC1,PCPHIPA,,/*CEIGN* $ \r\n****SBST   4\r\n****CARD   4, 18, 19, 24\r\n****FILE 137\r\n$$$$\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OCPHIPA,OQPAC1,OESC1,OEFC1,,//S,N,CARDNO $ \r\n****SBST   4\r\n****CARD  19\r\n****FILE 137\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if no deformed aerodynamic or \r\n$$$$ structural element plots are requested.\r\nCOND     FINIS,JUMPPLOT $   \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\n$$$$ PLOT prepares all deformed aerodynamic and structural element plots.\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASEZZ,BGPA,EQAERO,SILGA,,PCPHIPA,,,,  \r\n         /PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/S,N,  \r\n         PFILE $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each deformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 145\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*FLUTTER* $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18, 21, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*FLUTTER* $   \r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*FLUTTER* $   \r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*FLUTTER* $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*FLUTTER* $   \r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****FILE 121,122,131-134,136,137,144,145\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     AXSLOT \r\n  1    GRDSET   GRID     GRIDB  \r\n  1    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT  \r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8    ADUM9    BAROR  \r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CBARAO   CCONEAX \r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8  \r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2  \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2  \r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTRBSC   CTRAPAX\r\n  2    CTRIAAX  CTRIARG  CTORDRG  CTRAPRG  CTRIA1   CTRIA2  \r\n  2    CTRIM6   CTRMEM   CTRPLT   CTUBE    CTWIST   CWEDGE  \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4   \r\n  3    PDUM5    PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PDUM6    PDUM7    PDUM8    PDUM9    PELBOW   PHEX     PIS2D8 \r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2  \r\n  3    PROD     PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1  \r\n  3    PTRIA2   PTRIM6   PTRIAAX  PTRMEM   PTRPLT   PTUBE    PTWIST \r\n  4    GENEL\r\n  5    CONM1    CONM2   \r\n  6    PELAS    PMASS   \r\n  8    MAT1     MAT2     MAT3     MAT9     MATT1    MATT2    MATT3  \r\n  8    MAT8     TABLEM1  TABLEM2  TABLEM3  TABLEM4   \r\n  8    TEMPMT$  TEMPMX$ \r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE   \r\n  9    MPC      MPCADD   MPC$     MPCAX \r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1   \r\n 11    OMIT     OMIT1    OMITAX \r\n 11    SUPAX    SUPORT  \r\n 13    TEMP     TEMPAX   TEMPD  \r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    COUPMASS CPBAR    CPDPLT \r\n 14    CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    P1       P2       P3 \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    ASETOUT  \r\n 23    AUTOSPC  \r\n 24    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S  \r\n 25    MACH \r\n 26    NODJE\r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5   \r\n 32    SET1     SET2\r\n 32    SPLINE1  SPLINE2  SPLINE3\r\n 34    MKAERO1  MKAERO2 \r\n 35    AEFACT   \r\n 36    FLFACT   FLUTTER \r\n 37    AERO \r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5   \r\n 38    FMETHOD$ \r\n 39    PRINT    VREF  \r\n 40    TF   \r\n 54    GUSTAERO \r\n 55    SDAMP$   \r\n 55    TABDMP1  \r\n 56    EPOINT   SEQEP   \r\n 57    K2PP$    M2PP$    B2PP$    TF$   \r\n 57    DMIG \r\n 58    EIGR \r\n 59    METHOD$  \r\n 60    EIGC     EIGP\r\n 61    CMETHOD$ \r\n 62    HFREQ    LFREQ    LMODES   KDAMP \r\n$$$$\r\n$*FILE BITS \r\n 94    GPL      EQEXIN   GPDT     CSTM     BGPDT    SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    RG       USET     ASET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    GPLD     SILD     USETD    TFPOOL   EED      EQDYN   \r\n112    LAMA     PHIA     MI       OEIGS \r\n114    K2PP     M2PP     B2PP   \r\n115    GMD      GOD \r\n116    MHH      BHH      KHH      PHIDH \r\n117    PHIH     CLAMA    OCEIGS \r\n118    PLOTX2   \r\n119    OPHIH\r\n120    XYPLTCE  \r\n121    PKF  \r\n122    CPHID\r\n123    MAA  \r\n124    EQAERO   ECTA     BGPA     SILA     USETA    SPLINE   AERO   \r\n124    ACPT     FLIST    CSTMA    GPLA     SILGA\r\n125    PLTSETA  PLTPARA  GPSETSA  ELSETSA   \r\n126    GTKA \r\n127    AJJL     D1JK     D2JK     SKJ   \r\n128    D1JE     D2JE\r\n129    FSAVE    KXHH     BXHH     MXHH  \r\n130    PHIHL    CLAMAL   CASEYY   OVG   \r\n131    CLAMAL1  CPHIH1   CASEZZ \r\n132    RP   \r\n133    CPHIK\r\n134    CPHIPS   \r\n136    CPHIPA   \r\n137    OQPAC1   OCPHIPA  OESC1    OEFC1    PCPHIPA  \r\n138    QHHL     QKHL     QHJL   \r\n139    K2DD     M2DD     B2DD   \r\n140    OGPWG\r\n142    KOO      LOO      KAA\r\n144    CPHIP    QPC \r\n145    PLOTX3   \r\n147    KELM     KDICT    MELM     MDICT \r\n$*  \r\n=PAGE=\r\nAERO11\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    AERO 11 - MODAL AEROELASTIC RESPONSE - APR. 1993 $ \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\nFILE     AJJL=APPEND/QHHL=APPEND/QKHL=APPEND/QHJL=APPEND/SKJ=APPEND $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 127,138\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 14, 19- 21, 24, 25, 58, 59\r\n****FILE 101,112,135,143,154\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/MINUS1=-1 $ \r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no grid points are \r\n$$$$ defined.\r\nCOND     ERROR1,NOGPDT $\r\n****CARD   1, 24\r\n****FILE  94\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n****RFMT 204-217\r\n$$$$\r\nPARAML   PCDB//*PRES*/V,Y,NODJE=-1///JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18, 26\r\n****FILE 122,125\r\n****RFMT 204-217\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $ \r\n****SBST   4\r\n****CARD  20, 22\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GP3 generates Grid Point Temperature Table (element temperature).\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****SBST   5\r\n****CARD   1,  2, 13\r\n****FILE  96\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****SBST   5\r\n****CARD   1-  6, 13, 16, 24\r\n****FILE  97\r\n****RFMT 204-217\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****SBST   5\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE  97\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR3,NOSIMP $\r\n****SBST   5\r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/NOMGG /1/0 $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ \r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/   \r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****SBST   4\r\n****CARD   1-  3,  6,  8, 13, 24\r\n****FILE  98\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****SBST   4\r\n****CARD   1-  3,  5,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   4,  8\r\n****CARD   1-  3,  5,  8, 13- 15, 24\r\n****FILE 154\r\n****RFMT 204-217\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$                                                   y\r\n$$$$ SMA3 forms the general element stiffness matrix [K  ].\r\n$$$$                                                   gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL11 $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 100\r\n****RFMT 204-217\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8, 13, 24\r\n****FILE 102\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GP4 generates flags defining members of various displacement sets\r\n$$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                                     g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 13, 23- 25\r\n****FILE 101\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 23- 25\r\n****FILE 101\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    GM/MPCF1/DM,MR/REACT $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 103,109,110\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****SBST   4\r\n****CARD   1,  9, 24\r\n****FILE 103\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 104\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL2 $ \r\n****SBST   4\r\n****CARD   1-  6,  8,  9, 13, 14, 24\r\n****FILE 103,104\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL3 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 10, 13, 14, 24\r\n****FILE 105\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no omitted coordinates\r\n$$$$               ff       aa        ff       aa\r\n$$$$ exist.\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,123\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    GO/OMIT $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24\r\n****FILE 106\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,113,123\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*PREC*/PREC $\r\n****SBST   4\r\n****FILE 106,140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_      |\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |   |   |\r\n$$$$           |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T              T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ][G ]+ [G ][M  ]\r\n$$$$     aa      aa      oa   o      o   oo   o     o   oa\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 123\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL5 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 13, 14, 24\r\n****FILE 106,113,123\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KLL/LLL/ $ \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 108\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 13, 24\r\n****FILE 109\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 110\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    LBL6 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 107-110\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and \r\n$$$$ Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,TRL,\r\n         EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/NODLT/S,N,NOPSDL/ \r\n         NOFRL/NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****SBST   4\r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  9- 11, 13, 14, 24, 56\r\n****FILE 115\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{phi } = 0\r\n$$$$     aa           aa     a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a matrix [phi  ] such that\r\n$$$$                                                     ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 204-217\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ].\r\n$$$$                                            pp     pp         pp\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****SBST   5\r\n****CARD   1, 40, 56, 57\r\n****FILE 114\r\n****RFMT 204-217\r\n$$$$               2        2      2        2          2        2\r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd\r\n$$$$ constraints are applied.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA $\r\n****SBST   4\r\n****CARD   1,  9- 11, 40, 56, 57\r\n****FILE 139\r\n****RFMT 204-217\r\n$$$$                                                     2      2             \r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and      \r\n$$$$                                                     pp     pp            \r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ], and forms [G  ] and [G  ].\r\n$$$$   pp             dd     dd         dd               md        od\r\n$$$$\r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/  \r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/  \r\n         -1/-1/-1/-1 $  \r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 14, 24, 40, 56, 57\r\n****FILE 115,139\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GKAM selects eigenvectors to form [phi  ] and assembles stiffness, mass,\r\n$$$$                                       dh\r\n$$$$ and damping matrices in modal coordinates:\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |k  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [K  ] =  |---+---| + [phi  ][K  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |m  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [M  ] =  |---+---| + [phi  ][M  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |b  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [B  ] =  |---+---| + [phi  ][B  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$ where\r\n$$$$\r\n$$$$   KDAMP = -1 (default)             KDAMP = 1\r\n$$$$     m  = modal masses                m  = modal masses\r\n$$$$      i                                i\r\n$$$$     b  = m  2 pi f  g(f )            b  = 0\r\n$$$$      i    i       i    i              i\r\n$$$$                 2                                        2  2\r\n$$$$     k  = m  4 pi  f                  k  = (1+ig(f )) 4 pi  f  m\r\n$$$$      i    i        i                  i          i          i  i\r\n$$$$\r\nGKAM     USETD,PHIA,,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,\r\n         PHIDH/NOUE/C,Y,LMODES=0/C,Y,LFREQ=0./C,Y,HFREQ=-1.0/   \r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y,KDAMP $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 55- 59, 62\r\n****FILE 116\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ APD processes the aerodynamic data cards from EDT. It adds the k points \r\n$$$$ and the SA points to USETD, making USETA. EQAERO, ECTA, BGPA, CSTMA, \r\n$$$$ GPLA, and SILA are updated to reflect the new elements. AERO and ACPT \r\n$$$$ reflect the aerodynamic parameters. SILGA is a special SIL for plotting.\r\nAPD      EDT,EQDYN,ECT,BGPDT,SILD,USETD,CSTM,GPLD/EQAERO,ECTA,BGPA,SILA,\r\n         USETA,SPLINE,AERO,ACPT,FLIST,CSTMA,GPLA,SILGA/S,N,NK/S,N,NJ/   \r\n         S,N,LUSETA/S,N,BOV $   \r\n****CARD   1,  2,  4,  5,  9- 12, 16, 24, 29, 32, 34, 35, 37, 56\r\n****FILE 124\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/1 $\r\n****SBST   7\r\n****CARD  18, 20\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    PLTSETA,PLTPARA,GPSETSA,ELSETSA/JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label SKPPLT if no plot output is requested.\r\nCOND     SKPPLT,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/0/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQAERO,ECTA,/PLTSETA,PLTPARA,GPSETSA,ELSETSA/S,N,NSIL1/\r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETA // $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label SKPPLT if no undeformed aerodynamic or structural element \r\n$$$$ plots are requested.\r\nCOND     SKPPLT,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ PLOT generates all requested undeformed aerodynamic and structural \r\n$$$$ element plots.\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO, ,,,,,,/PLOTX2/ \r\n         NSIL1/LUSETA/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed \r\n$$$$ aerodynamic and structural plot element generated.\r\nPRTMSG   PLOTX2 // $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 150\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    SKPPLT $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5,  9- 12, 16, 18, 24, 32, 35, 37, 56\r\n****FILE 125,150\r\n****RFMT 204-217\r\n$$$$                                    T\r\n$$$$ GI forms a transformation matrix [G  ] which interpolates between\r\n$$$$                                    ka\r\n$$$$ aerodynamic (k) and structural (a) degrees of freedom.\r\nGI       SPLINE,USET ,CSTMA,BGPA,SIL , ,GM,GO/GTKA/NK/  \r\n         LUSET $\r\n****SBST   4\r\n****CARD   1-  4,  6,  8- 11, 13, 24, 32, 35, 37\r\n****FILE 126\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1/ $  \r\n****SBST   6\r\n****CARD  24, 29, 35, 37\r\n****FILE 137\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ AMG forms the aerodynamic matrix list [A  ], the area matrix [S  ], and\r\n$$$$                                         jj                     kj\r\n$$$$                             1         2\r\n$$$$ the downwash coefficients [D  ] and [D  ].\r\n$$$$                             jk        jk\r\n$$$$\r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****SBST   6\r\n****CARD  24, 29, 34, 35, 37\r\n****FILE 127\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label NODJE if there are no user-supplied downwash coefficients.\r\nCOND     NODJE,NODJE $  \r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ INPUTT2 provides the user-supplied downwash factors due to extra points\r\n$$$$    1      2\r\n$$$$ ([D  ], [D  ]). PARAM NODJE must be set to enter these matrices. The\r\n$$$$    je     je\r\n$$$$ downwash w  onbox j due to the motion of an extra point, u , is given by\r\n$$$$           j                                               e\r\n$$$$             1       2\r\n$$$$   {w  | = [D   + ikD  ]{u }\r\n$$$$      j      je      je   e\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,P1=0/C,Y,P2=11/C,Y,P3=XXXXXXXX $ \r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    NODJE $\r\n****SBST   4\r\n****CARD  17, 26, 37, 56\r\n****FILE 128\r\n****RFMT 204-217\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 35, 37, 48, 56, 58, 59, 62\r\n****FILE 138\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ AMP computes the aerodynamic matrix list related to the modal coordinates \r\n$$$$ as follows\r\n$$$$ \r\n$$$$              +           +\r\n$$$$              |phi  |phi  |\r\n$$$$              |   ai|   ae|                   T  T        \r\n$$$$   [phi  ] =  |-----+-----|         [G  ] = [G  ]  [phi  ]\r\n$$$$       dh     |phi  |phi  |           ki      ka       ai \r\n$$$$              |   ei|   ee|\r\n$$$$              +           +\r\n$$$$\r\n$$$$     1        1     1                 1       1  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$     2        2     2                 2       2  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$ For each (m,k) pair:\r\n$$$$\r\n$$$$             1         2\r\n$$$$   [D  ] = [D  ] + ik[D  ]\r\n$$$$     jh      jh        jh\r\n$$$$\r\n$$$$ For each group:\r\n$$$$\r\n$$$$             T  -1\r\n$$$$   [Q  ] = [A  ]      [D  ]\r\n$$$$     jh      jj group   jh group\r\n$$$$\r\n$$$$   [Q  ] = [S  ][Q  ]\r\n$$$$     kh      kj   jh\r\n$$$$\r\n$$$$                T\r\n$$$$   [Q  ] = [G  ] [Q  ]\r\n$$$$     ih      ki    kh\r\n$$$$\r\n$$$$             +     +\r\n$$$$             | Q   |\r\n$$$$             |  ih |\r\n$$$$   [Q  ] <=  | ----|\r\n$$$$     hh      | Q   |\r\n$$$$             |  eh |\r\n$$$$             +     +\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,QKHL,  \r\n         QHJL/NOUE/S,N,XQHHL/V,Y,GUSTAERO=-1 $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 17, 24, 26, 29, 32, 34, 35, 37, 48, 56, 58, 59\r\n****CARD  62\r\n****FILE 138\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ FRLG forms the dynamic load vector {P } from the frequency response data\r\n$$$$                                      h\r\n$$$$ or transient data using a Fourier Transform.\r\nFRLG     CASECC,USETD,DLT,FRL,GMD,GOD,DIT,PHIDH/PPF,PSF,PDF,FOL,PHF1/   \r\n         *MODAL*/S,N,FREQY/S,N,APP $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 139\r\n****RFMT 194,197,204-217\r\n$$$$\r\nPARAM    //*NOT*/NOFRY/FREQY $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 129\r\n****RFMT 204-217\r\n$$$$\r\nPURGE    PPF/NOFRY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 40, 51, 52, 55, 56, 58, 59, 61, 62\r\n****FILE 129\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ GUST forms the loading due to gusts and adds to the direct loads.\r\nGUST     CASECC,DLT,FRL,DIT,QHJL,,,ACPT,CSTMA,PHF1/PHF/ \r\n         S,N,NOGUST/BOV/C,Y,MACH/C,Y,Q $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 130\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Equivalence {PHF1} to {PHF} if there are no gust loads.\r\nEQUIV    PHF1,PHF/NOGUST $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 130\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ FRRD2 solves for the modal displacements using\r\n$$$$\r\n$$$$             2\r\n$$$$   [-M  omega  + iB  omega + K + qQ  (k)]U  = P (omega)\r\n$$$$      hh           hh              hh     h    h\r\n$$$$\r\nFRRD2    KHH,BHH,MHH,QHHL,PHF,FOL/UHVF/BOV/C,Y,Q/C,Y,MACH $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 131\r\n****RFMT 194,197,204-217\r\n$$$$\r\n$$$$ Equivalence {UHVF} to {UHVT} and FOL to TOL if it is a frequency response \r\n$$$$ formulation.\r\nEQUIV    UHVF,UHVT/FREQY/FOL,TOL/FREQY $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26, 28, 29, 32, 34, 37, 40, 49, 51, 52, 55\r\n****CARD  56, 58, 59, 61, 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\n$$$$ Go to label IFTSKP if it is a frequency response formulation.\r\nCOND     IFTSKP,FREQY $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\n$$$$ IFT performs Inverse Fourier Transform of the displacements for transient \r\n$$$$ formulation.\r\nIFT      UHVF,CASECC,TRL,FOL/UHVT,TOL/C,Y,IFTM=0 $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\nLABEL    IFTSKP $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 132\r\n****RFMT 195,198,204-217\r\n$$$$\r\n$$$$ MODACC uses the data from OFREQ or OTIME data cards to select solutions \r\n$$$$ for data recovery.\r\nMODACC   CASECC,TOL,UHVT,,,/TOL1,UHVT1,,,/APP $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55, 56\r\n****CARD  58- 62\r\n****FILE 133\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ ADR produces aerodynamic load output (PKF) for selected points in \r\n$$$$ frequency response only.\r\nADR      UHVT1,CASECC,QKHL,TOL1,SPLINE,SILA,USETA/PKF/BOV/  \r\n         C,Y,MACH/APP $ \r\n****SBST   4\r\n****CARD  21\r\n****FILE 134\r\n$$$$\r\n$$$$ VDR prepares solution set displacements (OUHV1), sorted by frequency or \r\n$$$$ time, for output. The solution set includes mode amplitudes and extra \r\n$$$$ points.\r\nVDR      CASECC,EQDYN,USETD,UHVT1,TOL1,XYCDB,/OUHV1,/APP/*MODAL*/   \r\n         0/S,N,NOH/S,N,NOP/FMODE $  \r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135\r\n$$$$\r\n$$$$ Go to label NOH if the request is for output sorted by frequency or time \r\n$$$$ step.\r\nCOND     NOH,  NOH $\r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135,136\r\n$$$$\r\n$$$$ SDR3 prepares requested output sorted by solution set points.\r\nSDR3     OUHV1,,,,,/OUHV2,,,,, $\r\n****SBST   4\r\n****CARD  21, 22\r\n****FILE 135\r\n$$$$\r\n$$$$ OFP formats the table prepared by SDR3 for output sorted by solution set \r\n$$$$ point and places it on the system output file for printing.\r\nOFP      OUHV2,,,,,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD  21\r\n****FILE 135\r\n$$$$\r\n$$$$ Go to label NOH if no X-Y plots are requested.\r\nCOND     NOH,NOXYCDB $  \r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\n$$$$ XYTRAN prepares the input for X-Y plotting of solution set points versus \r\n$$$$ time or frequency.\r\nXYTRAN   XYCDB,OUHV2,,,,/XYPTTA/APP/*HSET*/S,N,PFILE/S,N,CARDNO/\r\n         S,N,NOXYPL $   \r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\n$$$$ Go to label NOH if no plots are possible as requested.\r\nCOND     NOH,NOXYPL $   \r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\n$$$$ XYPLOT prepares the requested X-Y plots of solution set points versus \r\n$$$$ time or frequency.\r\nXYPLOT   XYPTTA  $  \r\n****SBST   4\r\n****CARD  22\r\n****FILE 136\r\n$$$$\r\nLABEL    NOH $  \r\n****SBST   4\r\n****CARD  22\r\n****FILE 135,136\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 137,140-147\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label FINIS if no output for physical points is requested.\r\nCOND     FINIS,PJUMP $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 18- 20, 24, 26- 29, 32, 34, 37, 40, 49- 52\r\n****CARD  54- 62\r\n****FILE 137,140-147\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ SDR2 recovers physical displacements (PHIP) and forces of constraint (QP) \r\n$$$$ for the real eigenvectors associated with the modes.\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIP,,QP/1/*DYNAMICS* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 137\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Equivalence {phi  } to {phi  } if there are no extra points introduced \r\n$$$$                 dh         ah\r\n$$$$ for dynamic analysis.\r\nEQUIV    PHIDH,PHIAH/NOUE $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ Go to label NOUE1 if no extra points are present.\r\nCOND     NOUE1,NOUE $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ VEC generates a d-size partitioning vector (EVEC) for the a and e sets\r\n$$$$\r\n$$$$   {u } -> {u } + {u }\r\n$$$$     d       a      e\r\n$$$$\r\nVEC      USETD/EVEC/*D*/*A*/*E* $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ PARTN performs partition of {phi  } using EVEC\r\n$$$$                                 dh\r\n$$$$ \r\n$$$$               phi\r\n$$$$                  ah\r\n$$$$   {phi  } => {-----}\r\n$$$$       dh        0\r\n$$$$\r\nPARTN    PHIDH,,EVEC/PHIAH,,,/1 $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\nLABEL    NOUE1 $\r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ MPYAD recovers the displacements at the aerodynamic points (k)\r\n$$$$ \r\n$$$$              T  T\r\n$$$$   {phi } = [G  ] {phi  }\r\n$$$$       k      ka      ah\r\n$$$$\r\nMPYAD    GTKA,PHIAH,/PHIK/1/1/0/PREC $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 30, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ UMERGE is used to expand {Q } to the ps set.\r\n$$$$                            p\r\n$$$$\r\nUMERGE   USETA,PHIP,/PHIPS/*PS*/*P*/*SA* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ UMERGE places {phi } in its proper place in the displacement vector\r\n$$$$                   k\r\n$$$$\r\n$$$$               phi\r\n$$$$                  ps\r\n$$$$   {phi  } <= {-----}\r\n$$$$       pa      phi \r\n$$$$                  k\r\n$$$$\r\nUMERGE   USETA,PHIPS,PHIK/PHIPA/*PA*/*PS*/*K* $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n****RFMT 204-217\r\n$$$$\r\n$$$$ UMERGE is used to expand {Q } to the pa set.\r\n$$$$                            p\r\n$$$$\r\nUMERGE   USETA,QP,/QPA/*PA*/*P*/*PS* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 26- 29, 32, 34, 37, 40, 49- 52, 55- 62\r\n****FILE 140\r\n$$$$\r\n$$$$ SDR2 calculates element forces (MEF1) and stresses (MES1) and prepares \r\n$$$$ eigenvectors (MPHIPA1) and single-point forces of constraint (MQP1) for \r\n$$$$ output sorted by frequency or time.\r\nSDR2     CASECC,CSTMA,MPT,DIT,EQAERO,SILA,,,BGPA,LAMA,QPA,PHIPA,\r\n         EST,XYCDB,,/,MQP1,MPHIPA1,MES1,MEF1,,,/*MMREIG* $  \r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141\r\n$$$$\r\n$$$$ Go to label NOPF if it is not a frequency response formulation.\r\nCOND     NOPF,NOFRY $   \r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141,142\r\n$$$$\r\n$$$$ SDR2 prepares load vectors for output (OPP1) sorted by frequency.\r\nSDR2     CASECC,,,,EQDYN,,,,,PPF,,,,XYCDB,,/OPP1,,,,,,,/*FREQ* $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141\r\n$$$$\r\n$$$$ SDR3 prepares requested load output sorted by point number.\r\nSDR3     OPP1,,,,,/QPP2,,,,,/ $ \r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 142\r\n$$$$\r\nLABEL    NOPF $ \r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 141,142\r\n$$$$\r\n$$$$ SDR3 prepares requested modal quantities output sorted by point number.\r\nSDR3     MPHIPA1,MES1,MEF1,MQP1,,/MPHIPA2,MES2,MEF2,MQP2,, $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 147\r\n$$$$\r\n$$$$ DDRMM prepares a subset of the element forces (OEF2) and stresses (OES2), \r\n$$$$ displacement vectors (OUPV2), and single-point forces of constraint \r\n$$$$ (OQP2) for output sorted by point number or element number.\r\nDDRMM    CASECC,UHVT1,TOL1,MPHIPA2,MQP2,MES2,MEF2,XYCDB,EST,MPT,DIT/\r\n         OUPV2,OQP2,OES2,OEF2, $\r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 143\r\n$$$$\r\n$$$$ OFP formats the requested physical output prepared by DDRMM and places it \r\n$$$$ on the system output file for printing.\r\nOFP      OUPV2,,OES2,OEF2,OQP2,//S,N,CARDNO $   \r\n****SBST   4\r\n****CARD  19, 20\r\n****FILE 143\r\n$$$$\r\n$$$$ SCAN examines the element stresses and forces calculated by DDRMM and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES2,OEF2/OESF2/C,N,*RF* $  \r\n****CARD 19 \r\n****FILE 143\r\n$$$$\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF2,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 143\r\n$$$$\r\n$$$$ Go to label P2 if no deformed aerodynamic or structural element plots are \r\n$$$$ requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\n$$$$ MPYAD generates vectors for use by the SDR2 module.\r\nMPYAD    PHIPA,UHVT1,/UVT1/0 $  \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 148\r\n$$$$\r\n$$$$ SDR2 prepares vectors for deformed plotting.\r\nSDR2     CASECC,CSTMA,,,EQAERO,,,,BGPA,TOL,,UVT1,,,,/,,,,,PUVPAT,,/APP $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\n$$$$ PLOT prepares all requested deformed aerodynamic and structural element \r\n$$$$ plots.\r\nPLOT     PLTPARA,GPSETSA,ELSETSA,CASECC,BGPA,EQAERO,SILGA,,PUVPAT,,,,/  \r\n         PLOTX3/NSIL1/LUSETA/JUMPPLOT/PLTFLG/PFILE $\r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each deformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   4,  7\r\n****CARD  18\r\n****FILE 144\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if no X-Y plots are requested.\r\nCOND     FINIS,NOXYCDB $\r\n****SBST   4\r\n****CARD  20\r\n****FILE 145,146\r\n$$$$\r\n$$$$ XYTRAN prepares the input for physical point X-Y plots.\r\nXYTRAN   XYCDB,,OQP2,OUPV2,OES2,OEF2/XYPLTT/APP/*PSET*/ \r\n         S,N,PFILE/S,N,CARDNO/S,N,NOXYPL $  \r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\n$$$$ Go to label NOXYPLTT if no plots are possible as requested.\r\nCOND     NOXYPLTT,NOXYPL $  \r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, \r\n$$$$ stresses, loads, and single-point forces of constraint versus frequency \r\n$$$$ or time.\r\nXYPLOT   XYPLTT $   \r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\nLABEL    NOXYPLTT $ \r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if it is a transient response \r\n$$$$ formulation.\r\nCOND     FINIS,NOFRY $  \r\n****SBST   4\r\n****CARD  20\r\n****FILE 145\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if no power spectral density \r\n$$$$ functions or autocorrelation functions are requested.\r\nCOND     FINIS,NOPSDL $ \r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ RANDOM calculates power spectral density functions (PSDF) and \r\n$$$$ autocorrelation functions (AUTO) using the previously calculated \r\n$$$$ frequency response.\r\nRANDOM   XYCDB,DIT,PSDL,OUPV2,,OQP2,OES2,OEF2,CASECC/PSDF,AUTO/ \r\n         S,N,NORN $ \r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if no X-Y plots of RANDOM \r\n$$$$ calculations are requested.\r\nCOND     FINIS,NORN $   \r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output.\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ \r\n         S,N,CARDNO/S,N,NOXYPL $\r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if no plots are possible as \r\n$$$$ requested.\r\nCOND     FINIS,NOXYPL $ \r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and \r\n$$$$ power spectral density functions.\r\nXYPLOT   XYPLTR $   \r\n****SBST   4\r\n****CARD  20, 54\r\n****FILE 146\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 146\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*AERORESP* $  \r\n****CARD   1,  9- 12, 40, 50, 52, 53, 56, 58\r\n****FILE 111\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*AERORESP* $  \r\n****CARD   1-  3,  5,  6,  8, 13, 14, 24\r\n****FILE 113\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*AERORESP* $  \r\n****SBST   4\r\n****CARD   1-  6,  8- 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*AERORESP* $  \r\n****CARD   1,  2,  4-  6, 16, 24\r\n****FILE  97\r\n****RFMT 187-204,207-217\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 137,140-147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****FILE 137,140-147\r\n****RFMT 187-204,207-217\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 26, 29, 32, 34- 40, 49- 62\r\n****RFMT 187-204,207-217\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF\r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  1    GRDSET   GRID     GRIDB  \r\n  1    POINTAX  RINGAX   RINGFL   SECTAX\r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8    ADUM9    BAROR  \r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CBEAM    CCONEAX  CDUM1  \r\n  2    CDUM2\r\n  2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9  \r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2  \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8\r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2  \r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTORDRG  CTRAPRG\r\n  2    CTRAPAX  CTRIAAX  CTRIA1   CTRIA2   CTRIARG  CTRIM6   CTRMEM \r\n  2    CTRBSC   CTRPLT   CTUBE    CTWIST   CWEDGE   \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8 \r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2  \r\n  3    PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1   \r\n  3    PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT   PTUBE    PTWIST\r\n  3    PSHELL   PCOMP    PCOMP1   PCOMP2 \r\n  4    GENEL\r\n  5    CONM1    CONM2   \r\n  6    PELAS\r\n  7    PMASS\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4   \r\n  8    MAT1     MAT2     MAT3     MAT9     MATT1    MATT2    MATT3  \r\n  8    MAT8     TEMPMT$  TEMPMX$ \r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE   \r\n  9    MPC      MPCADD   MPC$     MPCAX \r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1   \r\n 11    OMIT     OMIT1    OMITAX \r\n 11    SUPAX    SUPORT  \r\n 13    TEMP     TEMPAX   TEMPD  \r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 14    COUPMASS CPBAR   \r\n 14    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT\r\n 14    CPTRBSC  CPTUBE  \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    P1       P2       P3 \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    AXYOUT$  \r\n 23    ASETOUT  \r\n 24    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S  \r\n 25    AUTOSPC  \r\n 26    NODJE\r\n 27    IFTM \r\n 28    MACH     Q   \r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5   \r\n 32    SET1     SET2\r\n 32    SPLINE1  SPLINE2  SPLINE3\r\n 34    MKAERO1  MKAERO2 \r\n 35    AEFACT   \r\n 37    AERO \r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5   \r\n 40    TF   \r\n 48    GUSTAERO \r\n 49    GUST     GUST$   \r\n 50    TSTEP\r\n 51    TABLED1  TABLED2  TABLED3  TABLED4   \r\n 52    DAREA    DELAY    DLOAD    DPHASE\r\n 52    FREQ     FREQ1    FREQ2  \r\n 52    RLOAD1   RLOAD2  \r\n 52    TLOAD1   TLOAD2  \r\n 53    RANDPS   RANDT1  \r\n 54    RANDOM$  \r\n 54    TABRND1  TABRNDG \r\n 55    SDAMP$   \r\n 55    TABDMP1  \r\n 56    EPOINT   SEQEP   \r\n 57    K2PP$    M2PP$    B2PP$    TF$   \r\n 57    DMIG \r\n 58    EIGR \r\n 59    METHOD$  \r\n 60    TSTEP$   \r\n 61    DLOAD$   FREQ$   \r\n 62    HFREQ    LFREQ    LMODES   KDAMP \r\n$$$$\r\n$*FILE BITS \r\n 94    GPL      EQEXIN   GPDT     CSTM     BGPDT    SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    RG       USET     ASET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KAA      KOO      LOO   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    GPLD     SILD     USETD    TFPOOL   EED      EQDYN    DLT\r\n111    PSDL     FRL      TRL\r\n112    LAMA     PHIA     MI       OEIGS \r\n113    KELM     KDICT    MELM     MDICT \r\n114    K2PP     M2PP     B2PP   \r\n115    GMD      GOD      K2DD     M2DD     B2DD \r\n116    MHH      BHH      KHH      PHIDH \r\n123    MAA  \r\n124    EQAERO   ECTA     BGPA     SILA     USETA    SPLINE   AERO   \r\n124    ACPT     FLIST    CSTMA    GPLA     SILGA\r\n125    PLTSETA  PLTPARA  GPSETSA  ELSETSA   \r\n126    GTKA \r\n127    AJJL     D1JK     D2JK     SKJ   \r\n128    D1JE     D2JE\r\n129    FOL      PDF      PHF1     PSF      PPF  \r\n130    PHF  \r\n131    UHVF \r\n132    UHVT     TOL \r\n133    TOL1     UHVT1   \r\n134    PKF  \r\n135    OUHV1    OUHV2   \r\n136    XYPTTA   \r\n137    PHIP     QP  \r\n138    QHHL     QKHL     QHJL   \r\n139    K2DD     M2DD     B2DD   \r\n140    PHIAH    PHIK     PHIPA    PHIPS \r\n141    MQP1     MPHIPA1  MES1     MEF1     OPP1 \r\n142    QPP2 \r\n143    OUPV2    OQP2     OES2     OEF2     OESF2\r\n144    PLOTX3   \r\n145    XYPLTT   \r\n146    PSDF     AUTO\r\n147    QPP2 \r\n148    UVT1 \r\n150    PLOTX2   \r\n154    OGPWG\r\n$*  \r\n=PAGE=\r\nAERO9\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    AERO 09 - BLADE CYCLIC MODAL FLUTTER ANALYSIS - APR. 1993 $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nFILE     PHIHL=APPEND/AJJL=APPEND/FSAVE=APPEND/CASEYY=APPEND/CLAMAL=\r\n         APPEND/OVG=APPEND/QHHL=APPEND $\r\n****CARD   1- 14, 19, 21- 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1- 15, 19- 21, 24, 41, 43, 58, 59\r\n****FILE 146\r\n$$$$\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no grid points are \r\n$$$$ defined.\r\nCOND     ERROR5,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 40, 55- 62\r\n****FILE  97\r\n$$$$\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR5,NOSIMP $\r\n****CARD   1-  7, 13, 14\r\n****FILE  97\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8, 13\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*NOP*/V,Y,KGGIN=-1 $ \r\n****CARD  43\r\n$$$$\r\n$$$$ Go to label JMPKGGIN if no stiffness matrix is supplied by the user on an \r\n$$$$ external file.\r\nCOND     JMPKGGIN,KGGIN $   \r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\n$$$$ Set parameter NOKGGX = -1 so that the stiffness matrix will not be \r\n$$$$ generated by EMG.\r\nPARAM    //*ADD*/NOKGGX/-1/0 $  \r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\n$$$$ INPUTT1 reads the user-supplied stiffness matrix [KTOTAL] from an \r\n$$$$ external file (GINO file INPT).\r\nINPUTT1  /KTOTAL,,,,/C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $   \r\n****CARD  43\r\n****FILE 109\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [KTOTAL].\r\n$$$$               gg\r\n$$$$\r\nEQUIV    KTOTAL,KGGX $  \r\n****CARD  43\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGGIN $ \r\n****CARD  43\r\n****FILE  98,109\r\n$$$$\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ \r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/   \r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5-  8, 13, 14, 24, 43\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8, 13, 43\r\n****FILE  98\r\n****RFMT 187,190-192\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$ \r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  7,  8, 13, 14, 24\r\n****FILE 122\r\n****RFMT 187,190-192\r\n$$$$\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDT,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n$$$$\r\nLABEL    LGPWG $\r\n****CARD   1-  3,  5,  7,  8, 13- 15, 24\r\n****FILE 107\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$ \r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8, 13, 43\r\n****FILE 102\r\n$$$$\r\n$$$$ GP4 generates flags defining members of various displacement sets\r\n$$$$ (USET), and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                                     g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/0/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1,  4,  6,  8, 13, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1,  4,  6,  8, 13, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $   \r\n****CARD   1, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if free-body supports \r\n$$$$ are present.\r\nCOND     ERROR6,REACDATA $  \r\n****CARD   1, 20- 22, 43\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $  \r\n****CARD   1, 20- 22, 43\r\n****FILE 103,105,113,115,120\r\n$$$$\r\n$$$$ GPCYC prepares segment boundary table.\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1,  9- 11, 41\r\n****FILE 140\r\n$$$$\r\n$$$$ Go to label ERROR7 and print Error Message No. 7 if the CYJOIN data is \r\n$$$$ inconsistent.\r\nCOND     ERROR7,NOGO $  \r\n****CARD   1,  9- 11, 41\r\n****FILE 140\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  9, 14, 24, 43\r\n****FILE 104\r\n$$$$\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 103,104\r\n$$$$\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9, 13, 43\r\n****FILE 103\r\n$$$$\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  9, 13, 14, 24, 43\r\n****FILE 103,104\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point \r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1- 10, 13, 14, 24, 43\r\n****FILE 105\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no omitted coordinates\r\n$$$$               ff       aa        ff       aa\r\n$$$$ exist.\r\nEQUIV    KFF,KAA/OMIT/MFF,MAA/OMIT $\r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,123\r\n$$$$\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,113,123\r\n$$$$\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11, 13, 43\r\n****FILE 106,113\r\n$$$$\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_      |\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |   |   |\r\n$$$$           |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T              T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ][G ]+ [G ][M  ]\r\n$$$$     aa      aa      oa   o      o   oo   o     o   oa\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1- 11, 13, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1- 11, 13, 14, 24, 43\r\n****FILE 106,113,123\r\n$$$$\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), and tables relating the internal and external\r\n$$$$ grid point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL) and \r\n$$$$ Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $ \r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n$$$$\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 40, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-204,207-209\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  7,  9- 12, 14, 22- 24, 56, 58\r\n****FILE 115\r\n$$$$\r\n$$$$ CYCT2 transforms matrices from symmetric components to solution set.\r\nCYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,\r\n         KINDEX=-1/V,Y,CYCSEQ=-1/1/S,N,NOGO $   \r\n****CARD   1- 11, 41, 43\r\n****FILE 141\r\n$$$$\r\n$$$$ Go to label ERROR7 and print Error Message No. 7 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR7,NOGO $  \r\n****CARD   1- 11, 41, 43\r\n****FILE 141\r\n$$$$\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{phi } = 0\r\n$$$$     kk           kk     k\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,  ,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n****FILE 142\r\n$$$$\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) and \r\n$$$$ the eigenvalues (LAMK) prepared by READ and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OEIGS,LAMK,,,,//S,N,CARDNO $   \r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n$$$$\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1- 14, 24, 41, 43, 58, 59\r\n****FILE 142\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ CYCT2 finds symmetric components of eigenvectors from solution set \r\n$$$$ eigenvectors.\r\nCYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,   \r\n         KINDEX/V,Y,CYCSEQ/1/S,N,NOGO $ \r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 112\r\n$$$$\r\n$$$$ Go to label ERROR7 and print Error Message No. 7 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR7,NOGO $  \r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 112\r\n$$$$\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$                                      a\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi }\r\n$$$$      o      o     a               phi         f\r\n$$$$                                      o\r\n$$$$\r\n$$$$    phi       \r\n$$$$       f\r\n$$$$   {----} = {phi }                  {phi } = [G ]{phi }\r\n$$$$    phi         n                       m      m     n\r\n$$$$       s        \r\n$$$$\r\n$$$$    phi          \r\n$$$$       n         \r\n$$$$   {----} = {phi }\r\n$$$$    phi         g \r\n$$$$       m         \r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,/1/*REIG* $\r\n****CARD   1- 11, 24, 41, 43, 58, 59\r\n****FILE 143\r\n$$$$\r\n$$$$ SDR2 prepares the eigenvectors (OPHIG) for output and PPHIG for deformed \r\n$$$$ plotting.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,,PHIG,EST,,,/  \r\n         ,,OPHIG,,,PPHIG,,/*REIG* $ \r\n****CARD  18, 19\r\n****FILE 108\r\n$$$$\r\n$$$$ OFP formats the table prepared by SDR2 and places it on the system output \r\n$$$$ file for printing.\r\nOFP      OPHIG,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\nPURGE    PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 110\r\n$$$$\r\n$$$$ Go to label PZZ if there are no structure plot requests.\r\nCOND     PZZ,JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETZ,PLTPARZ,GPSETSZ,ELSETSZ/   \r\n         S,N,NSILZ/S,N,JUMPZ=-1 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 110\r\n$$$$\r\n$$$$ PRTMSG prints messages associated with the structure plotter.\r\nPRTMSG   PLTSETZ// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\n$$$$ Go to label PZZ if no deformed (modal) structure plots are requested.\r\nCOND     PZZ,JUMPZ $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\n$$$$ PLOT generates all requested deformed (modal) structure plots.\r\nPLOT     PLTPARZ,GPSETSZ,ELSETSZ,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,,,,/\r\n         PLOTZ/NSILZ/LUSET/JUMPZ/PLTFLGZ=-1/S,N,PFILEZ=0 $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each deformed (modal) \r\n$$$$ structure plot generated.\r\nPRTMSG   PLOTZ// $  \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    PZZ $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 110,121\r\n$$$$\r\n$$$$ APDR processes the aerodynamic data cards from EDT. AERO and ACPT reflect \r\n$$$$ the aerodynamic parameters. PVECT is a partitioning vector and GTKA is a \r\n$$$$ transformation matrix between aerodynamic (K) and structural (a) degrees \r\n$$$$ of freedom.\r\nAPDB     EDT,USET,BGPDT,CSTM,EQEXIN,GM,GO/AERO,ACPT,FLIST,GTKA,PVECT/   \r\n         S,N,NK/S,N,NJ/V,Y,MINMACH/V,Y,MAXMACH/V,Y,IREF/V,Y,MTYPE/  \r\n         NEIGV/V,Y,KINDEX    $  \r\n$$$$\r\n****CARD   1,  2,  9- 12, 34- 37, 41- 43\r\n****FILE 124,126,144\r\n$$$$\r\n$$$$ PARTN partitions the eigenvector into all sine or all cosine components.\r\nPARTN    PHIA,PVECT,/PHIAX,,,/1 $   \r\n****CARD   1,  2,  9- 12, 41, 43, 58, 59\r\n****FILE 145\r\n$$$$\r\n$$$$ SMPYAD calculates the modal mass matrix\r\n$$$$\r\n$$$$             x T           x\r\n$$$$   [M] = [phi ]  [M  ] [phi ]\r\n$$$$             a     aa      a\r\n$$$$\r\nSMPYAD   PHIAX,MAA,PHIAX,,,/MI/3/1/1/0/1 $  \r\n****CARD   1,  2,  9- 12, 41, 43, 58, 59\r\n****FILE 136\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ].\r\n$$$$                                            pp     pp         pp\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****CARD   1, 22, 23, 40, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1,  2,  4, 22, 23, 40, 56, 57\r\n****FILE 114,139\r\n$$$$               2        2      2        2          2        2   \r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd  \r\n$$$$ constraints are applied.\r\nEQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $  \r\n****CARD   1,  2,  4,  9, 11, 22, 23, 40, 56, 57\r\n****FILE 114,139\r\n$$$$                                                     2      2\r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and\r\n$$$$                                                     pp     pp\r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ], and forms [G  ] and [G  ].\r\n$$$$   pp             dd     dd         dd               md        od\r\n$$$$ \r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,M2DD,B2DD/  \r\n         *CMPLEV*/*DISP*/*MODAL*/0.0/0.0/0.0/NOK2PP/\r\n         NOM2PP/NOB2PP/MPCF1/SINGLE/OMIT/NOUE/  \r\n         -1/-1/-1/-1 $  \r\n****CARD   1-  4,  6,  8- 11, 13, 14, 22, 23, 40- 43, 56, 57\r\n****FILE 115,139\r\n$$$$\r\n$$$$ GKAM selects eigenvectors to form [phi  ] and assembles stiffness, mass,\r\n$$$$                                       dh\r\n$$$$ and damping matrices in modal coordinates:\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |k  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [K  ] =  |---+---| + [phi  ][K  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |m  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [M  ] =  |---+---| + [phi  ][M  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$            +       +\r\n$$$$            |b  |   |\r\n$$$$            | i | 0 |       T    2\r\n$$$$   [B  ] =  |---+---| + [phi  ][B  ][phi  ]\r\n$$$$     hh     | 0 | 0 |       dh   dd     dh\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$\r\n$$$$ where\r\n$$$$\r\n$$$$   KDAMP = -1 (default)             KDAMP = 1\r\n$$$$     m  = modal masses                m  = modal masses\r\n$$$$      i                                i\r\n$$$$     b  = m  2 pi f  g(f )            b  = 0\r\n$$$$      i    i       i    i              i\r\n$$$$                 2                                        2  2\r\n$$$$     k  = m  4 pi  f                  k  = (1+ig(f )) 4 pi  f  m\r\n$$$$      i    i        i                  i          i          i  i\r\n$$$$\r\nGKAM     USETD,PHIAX,MI,LAMK,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH, \r\n         PHIDH/NOUE/C,Y,LMODES=999999/C,Y,LFREQ=0.0/C,Y,HFREQ=0.0/  \r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE/C,Y, \r\n         KDAMP=-1 $ \r\n****CARD   1- 14, 22- 24, 40- 43, 55- 59, 62\r\n****FILE 116\r\n****RFMT 187,196-198\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\n$$$$ Go to label P2 if no plot output is requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,134\r\n$$$$\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQDYN,ECT,/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL1/S,N, \r\n         JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX//$ \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\n$$$$ Go to label P2 if no undeformed aerodynamic or structural element plots \r\n$$$$ are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\n$$$$ PLOT generates all requested undeformed aerodynamic and structural \r\n$$$$ element plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQDYN,,,,,,,/PLOTX1/NSIL1/   \r\n         LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed \r\n$$$$ aerodynamic and structural element plot generated.\r\nPRTMSG   PLOTX1//$  \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,134\r\n$$$$\r\nPARAM    //*ADD*/DESTRY/0/1 $   \r\n****CARD   1, 29, 35, 37\r\n****FILE 127\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ AMG forms the aerodynamic matrix list [A  ], the area matrix [S  ], and\r\n$$$$                                         jj                     kj\r\n$$$$                             1         2\r\n$$$$ the downwash coefficients [D  ] and [D  ].\r\n$$$$                             jk        jk\r\n$$$$ \r\nAMG      AERO,ACPT/AJJL,SKJ,D1JK,D2JK/NK/NJ/S,N,DESTRY $\r\n****CARD   1, 29, 34, 35, 37, 42, 43\r\n****FILE 127\r\n$$$$\r\nPURGE    D1JE,D2JE/NODJE $  \r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\n$$$$ Go to label NODJE if there are no user-supplied downwash coefficients.\r\nCOND     NODJE,NODJE $  \r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\n$$$$ INPUTT2 provides the user-supplied downwash factors due to extra points\r\n$$$$    1      2\r\n$$$$ ([D  ], [D  ]). PARAM NODJE must be set to enter these matrices. The\r\n$$$$    je     je\r\n$$$$ downwash w  onbox j due to the motion of an extra point, u , is given by\r\n$$$$           j                                               e\r\n$$$$             1       2\r\n$$$$   {w  | = [D   + ikD  ]{u }\r\n$$$$      j      je      je   e\r\n$$$$\r\nINPUTT2  /D1JE,D2JE,,,/C,Y,POSITION=-1/C,Y,UNITNUM=11/C,Y,USRLABEL= \r\n         TAPEID $   \r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nLABEL    NODJE $\r\n****CARD  26, 37\r\n****FILE 128\r\n$$$$\r\nPARAM    //*ADD*/XQHHL/1/0 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62\r\n****FILE 138\r\n$$$$\r\n$$$$ AMP computes the aerodynamic matrix list related to the modal coordinates \r\n$$$$ as follows\r\n$$$$ \r\n$$$$              +           +\r\n$$$$              |phi  |phi  |\r\n$$$$              |   ai|   ae|                   T  T        \r\n$$$$   [phi  ] =  |-----+-----|         [G  ] = [G  ]  [phi  ]\r\n$$$$       dh     |phi  |phi  |           ki      ka       ai \r\n$$$$              |   ei|   ee|\r\n$$$$              +           +\r\n$$$$\r\n$$$$     1        1     1                 1       1  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$     2        2     2                 2       2  T\r\n$$$$   [D  ] <= [D   | D  ]             [D  ] = [D  ] [G  ]\r\n$$$$     jh       jf    je                ji      jk    ki\r\n$$$$\r\n$$$$ For each (m,k) pair:\r\n$$$$\r\n$$$$             1         2\r\n$$$$   [D  ] = [D  ] + ik[D  ]\r\n$$$$     jh      jh        jh\r\n$$$$\r\n$$$$ For each group:\r\n$$$$\r\n$$$$             T  -1\r\n$$$$   [Q  ] = [A  ]      [D  ]\r\n$$$$     jh      jj group   jh group\r\n$$$$\r\n$$$$   [Q  ] = [S  ][Q  ]\r\n$$$$     kh      kj   jh\r\n$$$$\r\n$$$$                T\r\n$$$$   [Q  ] = [G  ] [Q  ]\r\n$$$$     ih      ki    kh\r\n$$$$\r\n$$$$             +     +\r\n$$$$             | Q   |\r\n$$$$             |  ih |\r\n$$$$   [Q  ] <=  | ----|\r\n$$$$     hh      | Q   |\r\n$$$$             |  eh |\r\n$$$$             +     +\r\n$$$$\r\nAMP      AJJL,SKJ,D1JK,D2JK,GTKA,PHIDH,D1JE,D2JE,USETD,AERO/QHHL,,/ \r\n         NOUE/S,N,XQHHL $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34, 35, 37, 41- 43, 56, 58, 59, 62\r\n****FILE 138\r\n$$$$\r\nPARAM    //*MPY*/NOP/1/1 $  \r\n****CARD  21\r\n$$$$\r\nPARAM    //*MPY*/NOH/0/1 $  \r\n****CARD  21\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ PARAM initializes the flutter loop counter (FLOOP) to zero.\r\nPARAM    //*MPY*/FLOOP/V,Y,NODJE=-1/0 $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Beginning of loop for flutter.\r\nLABEL    LOOPTOP $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 40, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$                                                  x\r\n$$$$ FA1 computes the total aerodynamic mass matrix [M  ], the total \r\n$$$$                                                  hh\r\n$$$$                                x\r\n$$$$ aerodynamic stiffness matrix [K  ], and the total aerodynamic damping\r\n$$$$                                hh\r\n$$$$          x\r\n$$$$ matrix [B  ], as well as a looping table FSAVE. For the K method\r\n$$$$          hh\r\n$$$$ \r\n$$$$    x      2  2           ) Q\r\n$$$$   M   = (k /b )M   + (p/2   hh\r\n$$$$    hh           hh\r\n$$$$ \r\n$$$$    x\r\n$$$$   K   = K\r\n$$$$    hh    hh\r\n$$$$ \r\n$$$$    x\r\n$$$$   B   = 0\r\n$$$$    hh\r\n$$$$ \r\nFA1      KHH,BHH,MHH,QHHL,CASECC,FLIST/FSAVE,KXHH,BXHH,MXHH/S,N,FLOOP/  \r\n         S,N,TSTART/S,N,NOCEAD $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 129\r\n$$$$\r\n$$$$ Set up the equivalences for the KE and PK methods.\r\nEQUIV    KXHH,PHIH/NOCEAD/BXHH,CLAMA/NOCEAD/\r\n         KXHH,PHIHL/NOCEAD/BXHH,CLAMAL/NOCEAD/  \r\n         CASECC,CASEYY/NOCEAD $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117,130\r\n$$$$\r\n$$$$ Go to label VDR for the KE and PK methods.\r\nCOND     VDR,NOCEAD $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117,119,130\r\n$$$$\r\n$$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation\r\n$$$$\r\n$$$$     x  2    x      x\r\n$$$$   [M  p  + B  p + K  ]{phi } = 0\r\n$$$$     hh      hh     hh     h\r\n$$$$\r\n$$$$ and normalizes eigenvectors to unit magnitude of the largest component.\r\nCEAD     KXHH,BXHH,MXHH,EED,CASECC/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117\r\n$$$$\r\n$$$$ Go to label LBLZAP if no complex eigenvalues were found.\r\nCOND     LBLZAP,EIGVS $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 119,130\r\n$$$$\r\nLABEL    VDR $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 117\r\n$$$$\r\n$$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points \r\n$$$$ introduced for dynamic analysis and modal coordinates.\r\nVDR      CASECC,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/   \r\n         123/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\n$$$$ Go to label LBL16 if there is no output request for the extra points \r\n$$$$ introduced for dynamic analysis or modal coordinates.\r\nCOND     LBL16,NOH $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\n$$$$ OFP formats the table of eigenvectors for extra points introduced for \r\n$$$$ dynamic analysis and modal coordinates prepared by VDR and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OPHIH,,,,,//S,N,CARDNO $   \r\n****CARD  21\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  21\r\n****FILE 119\r\n$$$$\r\n$$$$ FA2 appends eigenvectors to PHIHL, eigenvalues to CLAMAL, Case Control to \r\n$$$$ CASEYY, and V-g plot data to OVG.\r\nFA2      PHIH,CLAMA,FSAVE/PHIHL,CLAMAL,CASEYY,OVG/S,N,TSTART/C,Y,VREF=  \r\n         1.0/C,Y,PRINT=YESB $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 130\r\n$$$$\r\n$$$$ Go to label CONTINUE if there is insufficient time for another flutter \r\n$$$$ loop.\r\nCOND     CONTINUE,TSTART $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 130\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    LBLZAP $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 119,130\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Go to label CONTINUE if the flutter loop is complete.\r\nCOND     CONTINUE,FLOOP $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 129\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Go to label LOOPTOP for additional aerodynamic configuration triplet \r\n$$$$ values.\r\nREPT     LOOPTOP,100  $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if the number of flutter \r\n$$$$ loops exceeds 100.\r\nJUMP     ERROR3 $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    CONTINUE $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPARAML   XYCDB//*PRES*////NOXYCDB $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\n$$$$ Go to label NOXYOUT if there are no X-Y plot requests.\r\nCOND     NOXYOUT,NOXYCDB $  \r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OVG,,,,/XYPLTCE/*VG*/*PSET*/S,N,PFILE/S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, \r\n$$$$ accelerations, forces, stresses, loads, and single-point forces of \r\n$$$$ constraint versus time.\r\nXYPLOT   XYPLTCE//$ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nLABEL    NOXYOUT $  \r\n****SBST   7\r\n****CARD  20\r\n****FILE 146\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP=-1/JUMPPLOT $\r\n****CARD   1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if there are no output requests \r\n$$$$ involving dependent degrees of freedom or forces and stresses.\r\nCOND     FINIS,PJUMP $  \r\n****CARD   1- 13, 21, 24, 26, 29, 32, 34- 43, 55- 62\r\n$$$$\r\n$$$$ MODACC selects a list of eigenvalues and eigenvectors whose imaginary \r\n$$$$ parts (velocity in input units) are close to a user input list.\r\nMODACC   CASEYY,CLAMAL,PHIHL,CASECC,,/CLAMAL1,CPHIH1,CASEZZ,,/  \r\n         *CEIGN* $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 131,133\r\n$$$$\r\n$$$$ DDR1 transforms the complex eigenvectors from modal to physical \r\n$$$$ coordinates\r\n$$$$ \r\n$$$$       c\r\n$$$$   {phi } = {phi  }{phi }\r\n$$$$       d        dh     h\r\n$$$$ \r\nDDR1     CPHIH1,PHIDH/CPHID $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34, 36- 43, 55- 62\r\n****FILE 118\r\n$$$$                 c         c\r\n$$$$ Equivalence {phi } to {phi } if no constraints are applied.\r\n$$$$                 d         p\r\n$$$$\r\nEQUIV    CPHID,CPHIP/NOA $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\n$$$$ Go to label LBL14 if no constraints are applied.\r\nCOND     LBL14,NOA $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$      c      d     c                  d        c      c\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi  + phi }\r\n$$$$      o      o     d               phi         f      e\r\n$$$$                                      o\r\n$$$$       c      c\r\n$$$$    phi  + phi\r\n$$$$       f      e        c      c       c      d     c      c\r\n$$$$   {-----------} = {phi  + phi }  {phi } = [G ]{phi  + phi } \r\n$$$$          c            n      e       m      m     n      e\r\n$$$$       phi      \r\n$$$$          s\r\n$$$$ \r\n$$$$       c      c   \r\n$$$$    phi  + phi    \r\n$$$$       f      e      c\r\n$$$$   {-----------} = {Q }\r\n$$$$          c          p\r\n$$$$       phi        \r\n$$$$          m\r\n$$$$                                                         T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$  0      c\r\n$$$$ --- = {Q }.\r\n$$$$  q      p\r\n$$$$   s\r\n$$$$\r\nSDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 120\r\n$$$$                 c         c\r\n$$$$ Equivalence {phi } to {phi } if there are no extra points introduced for\r\n$$$$                 d         a\r\n$$$$ dynamic analysis.\r\nEQUIV    CPHID,CPHIA/NOUE $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132\r\n$$$$\r\n$$$$ Go to label LBLNOE if there are no extra points.\r\nCOND     LBLNOE,NOUE $  \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132,135\r\n$$$$\r\n$$$$ VEC generates a d-size partitioning vector (RP) for the a and e sets\r\n$$$$\r\n$$$$   {u } -> {u } + {u }\r\n$$$$     d       s      e\r\n$$$$\r\nVEC      USETD/RP/*D*/*A*/*E* $ \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 135\r\n$$$$                                 c\r\n$$$$ PARTN performs partition of {phi } using RP\r\n$$$$                                 d\r\n$$$$                 c\r\n$$$$              phi\r\n$$$$       c         a\r\n$$$$   {phi } => {----}\r\n$$$$       d         c\r\n$$$$              phi\r\n$$$$                 e\r\n$$$$\r\nPARTN    CPHID,,RP/CPHIA,,,/1/3 $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132\r\n$$$$\r\nLABEL    LBLNOE $   \r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 132,135\r\n$$$$\r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares \r\n$$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for \r\n$$$$ output and PCPHIP for deformed plotting.\r\nSDR2     CASEZZ,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDT,CLAMAL1,QPC,CPHIP,  \r\n         EST,,,/,OQPC1,OCPHIP,OESC1,OEFC1,PCPHIP,,/*CEIGN* $\r\n****CARD   1- 13, 24, 26, 29, 32, 34- 43, 55- 62\r\n****FILE 137\r\n$$$$\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OCPHIP,OQPC1,OESC1,OEFC1,,//S,N,CARDNO $   \r\n****CARD  19\r\n$$$$\r\n$$$$ Go to label P3 if no deformed aerodynamic or structural element plots are \r\n$$$$ requested.\r\nCOND     P3,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\n$$$$ PLOT prepares all deformed aerodynamic and structural element plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEZZ,BGPDT,EQDYN,SILD,,PCPHIP,,,,/  \r\n         PLOTX3/NSIL1/LUSET/JUMPPLOT/PLTFLG/PFILE $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each deformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX3//$  \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P3 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 147\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    ERROR7 $   \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 7 and terminate execution.\r\nPRTPARM  //-7/*BLADEMDS* $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1- 16, 18- 24, 26, 29, 32, 34- 43, 55- 62\r\n****RFMT 187-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  1    ADUM8    ADUM9    AXIC     AXIF     AXSLOT   \r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CMASS1   CMASS2   CMASS3   CMASS4\r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S  \r\n  1    GRDSET   GRID     GRIDB  \r\n  1    POINTAX  RINGAX   RINGFL \r\n  1    SECTAX   SEQGP    SPOINT \r\n  2    BAROR\r\n  2    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX  CDUM1   \r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8  \r\n  2    CDUM9    CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2  \r\n  2    CIHEX1   CIHEX2   CIHEX3 \r\n  2    CNGRNT   CONROD   CQUAD4   CTRIA3\r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2  \r\n  2    CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA   CTRBSC   CTRAPAX\r\n  2    CTRIAAX  CTRIARG  CTORDRG  CTRAPRG  CTRIA1   CTRIA2   CTRIM6 \r\n  2    CTRMEM   CTRPLT   CTUBE    CTWIST   CWEDGE   \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6    PDUM7    PDUM8    PDUM9 \r\n  3    PIHEX    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2 \r\n  3    PROD     PSHEAR   PTORDRG  PTRAPAX  PTRBSC   PTRIA1  \r\n  3    PTRIA2   PTRIM6   PTRIAAX  PTRMEM   PTRPLT   PTUBE    PTWIST\r\n  3    PSHELL   PCOMP    PCOMP1   PCOMP2 \r\n  4    GENEL\r\n  5    CONM1    CONM2   \r\n  6    PELAS\r\n  7    PMASS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8   \r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4   \r\n  8    TEMPMT$  TEMPMX$ \r\n  9    AXISYM   \r\n  9    CRIGD1   CRIGD2   CRIGD3   CRIGDR\r\n  9    CRROD    CRBAR    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE   \r\n  9    MPC      MPCADD   MPC$     MPCAX \r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1   \r\n 11    OMIT     OMIT1    OMITAX \r\n 12    SUPAX    SUPORT  \r\n 13    TEMP     TEMPAX   TEMPD  \r\n 13    TEMPP1   TEMPP2   TEMPP3   TEMPRB\r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 24    COUPMASS CPBAR    CPDPLT   CPTRBSC   \r\n 24    CPQUAD1  CPQUAD2  CPROD    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE \r\n 24    WTMASS   \r\n 26    NODJE\r\n 29    PAERO1   PAERO2   PAERO3   PAERO4   PAERO5   \r\n 32    SET1     SET2     SPLINE1  SPLINE2  SPLINE3  \r\n 34    MKAERO1  MKAERO2 \r\n 35    AEFACT   \r\n 36    FLFACT   FLUTTER \r\n 37    AERO \r\n 37    CAERO1   CAERO2   CAERO3   CAERO4   CAERO5   \r\n 38    FMETHOD$ \r\n 39    VREF \r\n 40    TF   \r\n 41    CTYPE    CYCSEQ   CYJOIN \r\n 41    KINDEX   NSEGS   \r\n 42    IREF \r\n 42    MAXMACH  MINMACH  MTYPE  \r\n 42    STREAML  STREAML1 STREAML2   \r\n 43    KGGIN\r\n 55    SDAMP$   \r\n 55    TABDMP1  \r\n 56    EPOINT   \r\n 56    SEQEP\r\n 57    B2PP$\r\n 57    DMIG \r\n 57    K2PP$\r\n 57    M2PP$\r\n 57    TF$  \r\n 58    EIGR \r\n 59    METHOD$  \r\n 60    EIGC     EIGP\r\n 61    CMETHOD$ \r\n 62    HFREQ\r\n 62    LFREQ    LMODES  \r\n 62    KDAMP\r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    KAA  \r\n107    OGPWG\r\n108    OPHIG    PPHIG   \r\n109    KTOTAL   \r\n110    ELSETZ   GPSETZ   PLTPARZ  PLTSETZ   \r\n111    EED      EQDYN    GPLD     SILD     TFPOOL   USETD   \r\n112    LAMA     PHIA\r\n113    GO       KOO      LOO\r\n114    B2PP     K2PP     M2PP   \r\n115    GMD      GOD \r\n116    PHIDH    MHH      KHH      BHH   \r\n117    CLAMA    OCEIGS   PHIH   \r\n118    CPHID\r\n119    OPHIH\r\n120    CPHIP    QPC \r\n121    PLOTZ\r\n122    KDICT    KELM     MDICT    MELM  \r\n123    MAA  \r\n124    ACPT     AERO     FLIST  \r\n125    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n126    GTKA \r\n127    AJJL     D1JK     D2JK     SKJ   \r\n128    D1JE     D2JE\r\n129    BXHH \r\n129    FSAVE    KXHH     MXHH   \r\n130    CASEYY   CLAMAL   OVG      PHIHL \r\n131    CLAMAL1  CPHIH1  \r\n132    CPHIA\r\n133    CASEZZ   \r\n134    PLOTX1   \r\n135    RP   \r\n136    MI   \r\n137    OCPHIP   OEFC1    OESC1    OQPC1   PCPHIP\r\n138    QHHL \r\n139    B2DD     K2DD     M2DD   \r\n140    CYCD \r\n141    KKK      MKK \r\n142    LAMK     OEIGS    PHIK   \r\n143    PHIG \r\n144    PVECT\r\n145    PHIAX\r\n146    XYPLTCE  \r\n147    PLOTX3   \r\n$*  \r\n=PAGE=\r\nDISP0\r\n\r\nAPR.93    <== THE YEAR OF THIS DATE MUST MATCH THE NASTRAN RELEASE YEAR\r\n$$$$$$$$  THIS BEGINS THE 1ST PART OF THE RIGID FORMAT  \r\nBEGIN     DISP0 - DUMMY RIGID FORMAT TO ILLUSTRATE HOW TO WRITE A NEW R.F $\r\n          REFERENCE: \"THE DESIGN AND USAGE OF THE NEW DATA MANAGEMENT FEATURES\r\n                      IN NASTRAN\" BY P. R. PAMIDI AND W. K. BROWN, PP.11-25,\r\n                      12TH NASTRAN USERS' COLLOQUIUM, MAY 1984 (NASA C.P. 2328)\r\n          UPDATE SUBROUTINES XRGDFM AND XCSA, AND RELINK LINK1 TO INCLUDE NEW\r\n                 SOLUTION NUMBER AND ITS ANALYSIS HEADING.\r\n          NOTE:  IN THIS WRITE-UP, RIGID FORMAT CARDS ARE IN UPPER CASE LETTERS,\r\n                 AND COMMENTS ARE IN LOWER CASE, OR AFTER <==, OR <<<\r\n          WRITTEN BY G.CHAN/UNISYS 7/1990. (PLEASE INFORM ME IF ERROR IS FOUND)\r\n$$$$      SYMBOL OF 4 OR MORE $ IS A COMMENT LINE. BLANK LINE IS NOT ALLOWED.\r\nMODULE1   I1,,/O1//*P1* <== SEE NASTRAN USER'S MANUAL FOR DMAP RULES \r\n                        <   DMAP NAME BEGINS ON COLUMN 1 (VALID UP TO COL. 72)\r\n                        <<< NEXT 7 CARDS BEGIN WITH '****'. THEY CAN BE SKIPPED\r\n                        <   IF RESTART AND/OR SUBSTRUCTURE ARE NOT INVOLVED.\r\n****CARD  1-20,30,40    <== RESTART INPUT DATA CHANGE INFORMATION\r\n****FILE  100-103,110   <== RESTART DATA  FILE CHANGE INFORMATION\r\n                        <   THE ABOVE CHANGE INFORMATION IS USED SUBSEQUENTLY\r\n                        <   TO DETERMINE THE DMAP STATEMENTS TO BE FLAGGED FOR\r\n                        <   EXECUTION IN MODIFIED RESTART.\r\n****SBST  1,2,9         <== DMAP SEQUENCE SUBSET CONTROL (1 THRU 9).\r\n                        <   THIS DMAP IS DELETED IF USER SPECIFIED A SUBSET NO.\r\n                        <   ON SOL CARD THAT MATCHES THE NO. ON THIS SBST LINE. \r\n****RFMT  188,200-204   <== RESTART RIGID FORMAT SWITCH:\r\n                        <   187-204 FOR APPROACH DISP, 207-209 FOR APP HEAT,\r\n                        <   AND 214-215 FOR APPROACH AERO.\r\n                        <   THIS DMAP IS FLAGGED FOR EXECUTION IN A MODIFIED \r\n                        <   RESTART IF THE PREVIOUS CHECKPOINT RUN HAD A R.F.\r\n                        <   NO. LISTED ON THIS RFMT LINE.\r\n****PHS1  I1            <== PHSI IS SUBSTRUCTURE PHASE NUMBER CONTROL (I=1,2,3).\r\n****PHS2  DB5           <   MUST BE FOLLOWED BY IN, DN, DBN, OR DEN FLAGS, WHERE\r\n****PHS3  D7            <   N=1 FOR PHASE 1, 5 OR 8 PHASE 2, 1 OR 7 PHASE 3\r\n                        <   (REFERING TO ASCM01, 05, 07 OR 08 SUBROUTINES).\r\n                        <   'I' IN 'IN' INDICATES INSERT AFTER THIS DMAP.\r\n                        <   'D' IN 'DN' INDICATES DELETION OR REPLACEMENT BY A\r\n                        <   DMAP ALTER. 'DBN' AND 'DEN' ARE BEGIN AND END OF\r\n                        <   DELETION/REPLACEMENT BY GROUP OF CONTIGUOUS D.ALTER\r\n                        <   (CURRENTLY SUBSTRUCTURE IN APP DISP1,2,3,8,9 ONLY)\r\n$$$$      IMPORTANT. A COMMENT LINE IS NEEDED BEFORE A NEW DMAP LINE.\r\nMODULES2  I2/O2/*P2* $  <== '$' ON DMAP LINE IS OPTIONAL\r\n****CARD  1-40,45\r\n****FILE  101,111\r\n$$$$ *    '*' ON A 4-DOLLAR COMMENT LINE IS COSMETIC\r\n           :\r\n           :\r\n$$$$ \r\nEND\r\n****CARD   ...\r\n****RFMT   ...\r\n$$$$\r\n$$$$   THIS COMMENT IS NEEDED BEFORE THE 2ND PART OF THE RIGID FORMAT BY $*CARD\r\n$*CARD BITS      <== CARD NAME TALBE, 1 THRU 93, FOR MODIFIED RESTART ONLY\r\n$$$$\r\n1         AXIC    AXIF    CELAS1   CELAS2   <== FREE FIELD, ALPHA-NUMERIC,\r\n2         ADUM1   CDUM1   ETC               <   UP TO 8 CHARACTER CARD NAMES\r\n:         SPC\r\n           :\r\n          SPC$   <== ITEM FOLLOWED BY $ INDICATES CASE CONTROL RELATED CARD NAME\r\n           :\r\n93         :\r\n$$$$   THIS COMMENT IS NEEDED BEFORE THE 3RD PART OF THE RIGID FORMAT BY $*FILE\r\n$*FILE BITS      <== FILE NAME TABLE, 94 THRU 186, FOR MODIFIED RESTART ONLY\r\n$$$$\r\n94        SLT     GPTT   <== FREE FIELD, ALPHA-NUMERIC, UP TO 8 CHARACTER GINO\r\n95        KGGX    GPST   <   FILE NAMES\r\n          ETC\r\n           :\r\n186        :\r\n$*        THIS VERY LAST LINE IS NEEDED.       \r\n=PAGE=\r\nDISP1\r\n\r\nAPR.93  \r\n$$$$$$$$\r\n$$$$ NOTE: The DMAP sequence for static analysis involves use of parameters \r\n$$$$ INTERACT and SYS21. These parameters are of relevance only when the \r\n$$$$ primary purpose of the user is to make interactive restart runs. (The two \r\n$$$$ parameters are then specified via the PARAM card in the bulk data deck.) \r\n$$$$ However, these two parameters are not required for normal non-interactive \r\n$$$$ batch runs. Consequently, the rigid format DMAP listing shown here was \r\n$$$$ generated by not specifying those parameters (via the PARAM bulk data \r\n$$$$ card). As a result, the COMPOFF and COMPON instructions using those  \r\n$$$$ parameters assume a value of 0 for these parameters (see Volume I, \r\n$$$$ Section 5.7). \r\nBEGIN    DISP 01 - STATIC ANALYSIS - APR. 1993 $   \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nFILE     OPTP2=SAVE/EST1=SAVE $ \r\n****SBST   9\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nFILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ \r\n****SBST   1,  3\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nSETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $ \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5- 10, 14, 15, 18, 19, 22- 24, 28, 61\r\n****FILE 101,114,119,121-125,127\r\n****PHS1   I1   \r\n$$$$\r\n$$$$ COMPOFF causes the DMAP compiler to compile the next instruction as the \r\n$$$$ parameter INTERACT is 0. (See NOTE above.)\r\nCOMPOFF  1,INTERACT $   \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ COMPON causes the DMAP compiler to skip the compilation of the next \r\n$$$$ instruction as the parameter INTERACT is 0. (See NOTE above.) \r\nCOMPON   1,INTERACT $   \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRECHK   BGPDT,EQEXIN,SIL,SIP,ECT,GPECT,\r\n         OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1,   \r\n         OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY,   \r\n         OES1L,OEF1L,ONRGY1 $   \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\n$$$$ COMPOFF causes the DMAP compiler to compile all of the following \r\n$$$$ instructions through LABEL LBLINT02 as the parameter SYS21 is 0. (See \r\n$$$$ NOTE above.)\r\nCOMPOFF  LBLINT02,SYS21 $    \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D5   \r\n$$$$\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 129\r\n$$$$\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,120\r\n****PHS2   DB5  \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,120\r\n$$$$\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,120\r\n****PHS2   DE5  \r\n$$$$\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n****CARD   1,  2, 15, 61\r\n****FILE  96, 99\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $ \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****PHS2   DB5  \r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been \r\n$$$$ defined.\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****PHS2   DE5  \r\n****RFMT 188-204,207-209\r\n$$$$\r\nPURGE    KGGX/NOSIMP $  \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$\r\n$$$$ OPTPR1 performs phase one property optimization and initialization check.\r\nOPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ \r\n****SBST   9\r\n****CARD   1-  6,  8, 13\r\n****FILE 117\r\n$$$$\r\n$$$$ Beginning of loop for property optimization.\r\nLABEL    LOOPTOP $  \r\n****SBST   9\r\n****CARD   1-  6\r\n****FILE 117\r\n$$$$\r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 13- 16, 24, 61\r\n****FILE  98, 99,116,121\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nEQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ \r\n****SBST   9\r\n****CARD   1-  6, 13, 16\r\n****FILE 118\r\n****PHS2   D5   \r\n$$$$\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    MGG/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$ \r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR2,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 13- 16, 24, 61\r\n****FILE  98, 99,116,121\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$ \r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2   DB5  \r\n$$$$\r\n$$$$ Go to label LBL11A if no general elements exist.\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$ \r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE5  \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23, 31, 59\r\n****FILE 101\r\n$$$$\r\n$$$$ Beginning of loop for multiple constraint sets.\r\nLABEL    LBL11 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\n$$$$ GP4 generates flags defining members of various displacement sets \r\n$$$$ (USET), forms multipoint constraint equations [R ] {u } = 0, and forms \r\n$$$$                                                 g    g\r\n$$$$ enforced displacement vector {Y }.\r\n$$$$                                s\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20, 22, 23, 28, 31, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23, 28\r\n****FILE 101\r\n$$$$\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n****PHS1   I1   \r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n         KFS,KSS/SINGLE/QG/NOSR $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105-107,109,111,113\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\n$$$$ Go to label LBL2 if the MPC set for the current pass is unchanged from \r\n$$$$ that of the previous pass.\r\nCOND     LBL2,MPCF2 $   \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\n$$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and\r\n$$$$                                                   g      m  n\r\n$$$$ solves for multipoint constraint transformation matrix [G ] =\r\n$$$$       -1                                                 m\r\n$$$$ - [R ]   [R ].\r\n$$$$     m      n\r\n$$$$ \r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$ \r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\n$$$$ SCE1 partitions out single-point constraints.\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$ \r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$ \r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                                -1\r\n$$$$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$$$$                                    o        oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ]{G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$ \r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$$$$               aa       ll\r\n$$$$ \r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n****PHS1   DB1  \r\n****PHS3   DB1  \r\n$$$$\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ll| lr|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     aa    |K  |K  |\r\n$$$$           | rl| rr|\r\n$$$$           +       +\r\n$$$$ \r\nRBMG1    USET,KAA,/KLL,KLR,KRR,,, $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$ \r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$\r\n$$$$ Go to label LBL7 if no free-body supports exist.\r\nCOND     LBL7,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$ \r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL7 $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n****PHS1   DE1  \r\n****PHS3   DE1  \r\n$$$$\r\n$$$$ SSG1 generates static load vectors {P }.\r\n$$$$                                      g\r\n$$$$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/NSKIP/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 59- 62\r\n****FILE 110\r\n$$$$\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$ \r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n****PHS1   DB1  \r\n$$$$\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n****PHS3   DB7  \r\n$$$$\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            a            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       a      a      o   o\r\n$$$$            o\r\n$$$$ \r\n$$$$           P\r\n$$$$            l\r\n$$$$   {P } = {--}\r\n$$$$     a     P\r\n$$$$            r\r\n$$$$                                                                T\r\n$$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }.\r\n$$$$                                                 r       r          l\r\n$$$$ \r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$ \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T\r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T\r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T\r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$ \r\nSSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         NSKIP/S,N,EPSI $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 188-204,207-209\r\n****PHS3   DE7  \r\n$$$$\r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$    u\r\n$$$$     l                                  o\r\n$$$$   {--} = {u }  ,   {u } = [G ]{u ] + {u }  ,\r\n$$$$    u       a         o      o   a      o\r\n$$$$     r\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      fs   f      ss   s\r\n$$$$ \r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/  \r\n         *STATICS* $\r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 113\r\n****RFMT 188-204,207-209\r\n****PHS3   I7     \r\n$$$$\r\n$$$$ Go to label LBL8 if all constraint sets have been processed.\r\nCOND     LBL8,REPEAT $  \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Go to label LBL11 if additional sets of constraints need to be processed.\r\nREPT     LBL11,360 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if the number of \r\n$$$$ constraint sets exceeds 360.\r\nJUMP     ERROR1 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/TEST/REPEAT $  \r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if multiple boundary \r\n$$$$ conditions are attempted with an improper subset.\r\nCOND     ERROR5,TEST $  \r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBL8 $ \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ GPFDR calculates the grid point force balance (OGPFB1) and element strain \r\n$$$$ energy (ONRGY1) for requested sets.\r\nGPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 119\r\n****PHS2   DB5  \r\n$$$$\r\nPURGE    KDICT,KELM/REPEAT $\r\n****CARD   1-  3,  6,  8, 18, 19\r\n****FILE 116\r\n$$$$\r\n$$$$ OFP formats the tables prepared by GPFDR and places them on the system \r\n$$$$ output file for printing.\r\nOFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $\r\n****CARD  18, 19\r\n****FILE 119\r\n$$$$\r\n$$$$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$$$$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\n$$$$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$$$$ multipoint constraint force balance (OQM1) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/   \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $   \r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\n$$$$ OFP formats the table prepared by EQMCK and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\nLABEL    NOMPCF $   \r\n****CARD   7\r\n****FILE 127\r\n$$$$\r\n$$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and \r\n$$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single-\r\n$$$$ point forces of constraint (OQG1) for output and translation components \r\n$$$$ of the displacement vectors (PUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, \r\n         XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,\r\n         OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\n$$$$ Go to label LBLSTRS if element stresses in material coordinate system and \r\n$$$$ stresses at the connected grid points are not to be calculated.\r\nCOND     LBLSTRS,STRESS $   \r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\n$$$$ CURV calculates element stresses in material coordinate system (OES1M) \r\n$$$$ and stresses at the connected grid points (OES1G).\r\nCURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/  \r\n         V,Y,NINTPTS $  \r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLSTRS $  \r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\nPURGE    OES1M/STRESS $ \r\n****CARD  18, 19\r\n****FILE 122\r\n$$$$\r\n$$$$ Go to label LBLSTRN if element strains/curvatures are not to be \r\n$$$$ calculated.\r\nCOND     LBLSTRN,STRNFLG $  \r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\n$$$$ SDR2 calculates element strains/curvatures (OES1A).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/\r\n         ,,,OES1A,,,,/*STATICS*//1 $\r\n****CARD  18, 19\r\n****FILE 123\r\n$$$$\r\n$$$$ Go to label LBLSTRN if element strains/curvatures in material coordinate \r\n$$$$ system and strains/curvatures at the connected grid points are not to be \r\n$$$$ calculated.\r\nCOND     LBLSTRN,STRAIN $   \r\n****CARD  18, 19\r\n****FILE 124\r\n$$$$\r\n$$$$ CURV calculates element strains/curvatures in material coordinate system \r\n$$$$ (OES1AM) and strains/curvatures at the connected grid points (OES1AG).\r\nCURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/   \r\n         V,Y,NINTPTS $  \r\n****CARD  18, 19\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLSTRN $  \r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\nPURGE    OES1A/STRNFLG $\r\n****CARD  18, 19\r\n****FILE 123,124\r\n$$$$\r\n$$$$ Go to label LBL17 if there are no requests for output sorted by grid \r\n$$$$ point number or element number.\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  18, 19, 29\r\n****FILE 125,126\r\n$$$$\r\n$$$$ SDR3 prepares requested output sorted by grid point number or element \r\n$$$$ number.\r\nSDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nPARAM    //*SUB*/PRTSORT2/NOSORT2/1 $   \r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\n$$$$ Go to label LBLSORT1 if printed output sorted by grid point number or \r\n$$$$ element number is not required.\r\nCOND     LBLSORT1,PRTSORT2 $\r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\n$$$$ OFP formats the tables prepared by SDR3 for output sorted by grid point \r\n$$$$ number or element number and places them on the system output file for \r\n$$$$ printing.\r\nOFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $   \r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR3 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES2,OEF2/OESF2/*RF* $  \r\n****CARD 19 \r\n****FILE 125\r\n$$$$\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF2,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 125\r\n$$$$\r\n$$$$ Go to label LBLXYPLT.\r\nJUMP     LBLXYPLT $ \r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\nLABEL    LBLSORT1 $ \r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\n$$$$ OFP formats the tables prepared by SDR2 for output sorted by subcase \r\n$$$$ number and places them on the system output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $  \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 114\r\n$$$$\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nLABEL    LBLXYPLT $ \r\n****CARD  18, 19\r\n****FILE 125\r\n$$$$\r\n$$$$ OFP formats the tables prepared by CURV and SDR2 for output sorted by \r\n$$$$ subcase number and places them on the system output file for printing.\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,  \r\n         PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, \r\n$$$$ stresses, loads, and single-point forces of constraint vs. subcase.\r\nXYPLOT   XYPLTT// $ \r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\n$$$$ Go to label DPLOT.\r\nJUMP     DPLOT $\r\n****SBST   7\r\n****CARD  29\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  18, 19, 29\r\n****FILE 125,126\r\n$$$$\r\nPURGE    OUGV2/NOSORT2 $\r\n****CARD  18, 19\r\n****FILE 125,126\r\n$$$$\r\n$$$$ Go to label LBLOFP if there is no phase two property optimization.\r\nCOND     LBLOFP,COUNT $ \r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\n$$$$ OPTPR2 performs phase two property optimization.\r\nOPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,  \r\n         CARDNO $   \r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\n$$$$ Equivalence EST2 to EST and OPTP2 to OPTP1.\r\nEQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $   \r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE  97,117\r\n$$$$\r\n$$$$ Go to label LOOPEND if no additional output is to be printed for this \r\n$$$$ loop.\r\nCOND     LOOPEND,PRINT $\r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118,128\r\n$$$$\r\nLABEL    LBLOFP $   \r\n****SBST   9\r\n****CARD  18, 19\r\n****FILE 118\r\n$$$$\r\n$$$$ OFP formats the tables prepared by SDR2 for output sorted by subcase \r\n$$$$ number and places them on the system output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1X/*RF* $ \r\n****CARD 19 \r\n****FILE 114\r\n$$$$\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1X,,,,,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\n$$$$ OFP formats the tables prepared by CURV and SDR2 for output sorted by \r\n$$$$ sucbcase number and places them on the system output file for printing.\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ \r\n****CARD  19\r\n****FILE 122-124\r\n$$$$\r\nLABEL    DPLOT $\r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 126\r\n$$$$\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 128\r\n$$$$\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18, 29\r\n****FILE 128\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nLABEL    LOOPEND $  \r\n****SBST   9\r\n****CARD  18, 22, 23\r\n****FILE 128\r\n****PHS1   DE1  \r\n****PHS2   DE5  \r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit if property optimization is \r\n$$$$ complete.\r\nCOND     FINIS,COUNT $  \r\n****SBST   9\r\n****CARD  18, 22, 23\r\n$$$$\r\n$$$$ Go to label LOOPTOP if additional loops for property optimization are \r\n$$$$ needed.\r\nREPT     LOOPTOP,360 $  \r\n****SBST   9\r\n****CARD  18, 22, 23\r\n$$$$\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 20, 22- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*STATICS* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*STATICS* $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 121\r\n****RFMT 188-204,207-209\r\n$$$$ \r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*STATICS* $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 188-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*STATICS* $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*STATICS* $   \r\n****CARD  22, 23\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\nLABEL    LBLINT02 $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\n$$$$ COMPON causes the DMAP compiler to skip the compilation of all of the \r\n$$$$ following instructions through label LBLINT01 as the parameter SYS21 is 0 \r\n$$$$ (see NOTE at the beginning).\r\nCOMPON   LBLINT01,SYS21 $   \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*SYST*//86/1 $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSETVAL   //V,N,PFILE/0 $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    AGAIN $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPROMPT1  //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/\r\n         S,N,SCAN1/S,N,SCAN2 $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     LBLINT1,PEXIT $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPARAM    //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPARAM    //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     STEPPLOT,NOPLOTZ $ \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPLTSET   PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/\r\n         S,N,JUMPPLOT $ \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRTMSG   PLTSETR $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     LBLINT2,PLOT2 $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSETVAL   //S,N,PLTFG1/1 $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/\r\n         PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPRTMSG   PLOTX3 $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSITEPLOT   $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nJUMP     LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    LBLINT2 $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSETVAL   //S,N,PLTFG2/-1 $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,\r\n         OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPRTMSG   PLOTX4// $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSITEPLOT  $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nJUMP     LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    STEPPLOT $ \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPARAM    //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPARAM    //*NOT*/V,N,NOSCANZ/V,N,SCANZ $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     STEPSCAN,NOSCANZ $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    OESF1I,OESF2I/NOSCANZ $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     LBLINT3,SCAN2 $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSCAN     CASECC,OES1,OEF1/OESF1I/*OL1* $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nOFP      OESF1I,,,,,//S,N,CARDNO $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    OESF1I $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nJUMP     LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    LBLINT3 $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSCAN     CASECC,OES2,OEF2/OESF2I/*OL2* $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nOFP      OESF2I,,,,,//S,N,CARDNO $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    OESF2I $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nJUMP     LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    STEPSCAN $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPARAM    //*NOT*/V,N,NOXYPT/V,N,XYPLOT $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nCOND     LBLINTEX,NOXYPT $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    XYPLTI/NOXYPT $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/ \r\n         *PSET*/S,N,PFILE/S,N,CARDNO $  \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nXYPLOT   XYPLTI// $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nSITEPLOT   $\r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nPURGE    XYPLTI $   \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nJUMP     LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nLABEL    LBLINTEX $ \r\n****CARD   1-20,22-24,28,31,59-62   \r\n$$$$\r\nREPT     AGAIN,400 $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nPRTPARM  //1/*STATICS* $\r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nLABEL    LBLINT1 $  \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nLABEL    LBLINT01 $ \r\n****CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$$$$\r\nEND      $  \r\n****CARD   1- 24, 28, 29, 31, 59- 62\r\n****RFMT 188-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CHBDY    CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CONROD   CQDMEM   CQDMEM1  CQDMEM2\r\n  2    CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA   CTORDRG\r\n  2    CTRAPAX  CQUAD4   CTRIA3\r\n  2    CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG  CTRIM6 \r\n  2    CTRMEM   \r\n  2    CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE  \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PHBDY    PIHEX    PQDMEM   PQDMEM1\r\n  3    PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR   PTORDRG\r\n  3    PTRAPAX  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT \r\n  3    PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MAT8\r\n  8    MATT4    MATT5    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$\r\n  8    TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    OPT      GRDEQ   \r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    STRESS   \r\n 26    STRAIN   \r\n 27    NINTPTS  \r\n 28    AUTOSPC  \r\n 29    XYOUT$   \r\n 31    NOLOOP$  \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    RG       USET     YS       ASET     OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    KLL      KLR      KRR\r\n108    LLL  \r\n109    DM   \r\n110    PG   \r\n111    PL       PO       PS       QR\r\n112    RULV     RUOV     ULV      UOOV  \r\n113    PGG      QG       UGV\r\n114    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n114    OEF1L    OES1L    OESF1    OESF1X\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n116    KDICT    KELM     MDICT    MELM  \r\n117    OPTP1\r\n118    OPTP2    EST1\r\n119    OGPFB1   ONRGY1  \r\n120    PLOTX1   \r\n121    OGPWG\r\n122    OES1M    OES1G   \r\n123    OES1A\r\n124    OES1AM   OES1AG  \r\n125    OUGV2    OPG2     OQG2     OEF2     OES2     OESF2\r\n126    XYPLTT   \r\n127    OQM1 \r\n128    PLOTX2   \r\n129    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP10\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 10 - MODAL COMPLEX EIGENVALUE ANALYSIS - APR. 1993 $  \r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 12, 14, 15, 19- 24, 56- 62\r\n****FILE 101,112,117,118,121,126\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 127\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR5,NOSIMP $\r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8, 24\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 126\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST   \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 17, 20\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 20\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS/SINGLE/QPC/NOSR/KLR,KRR,MLR,MRR,  \r\n         DM,MR/REACT $  \r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,115,120\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Equivalence {K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [M  ] to [M  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 123\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,123\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T                   \r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]         \r\n$$$$     aa      aa      oa   o      o   ao      o   oo   o          \r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,123\r\n$$$$ Go to label LBL6 if there are no free-body supports.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), and \r\n$$$$ Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/   \r\n         NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 111\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 111\r\n****RFMT 187-195,197-204,207-209\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 59\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 117-121\r\n$$$$\r\nPARAM    //*MPY*/REPEATE/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 22, 23, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Beginning of loop for additional sets of direct input matrices.\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18, 19, 21- 23, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPURGE    PHIH,CLAMA,OPHIH,CPHID,CPHIP,QPC,OQPC1,OCPHIP,OESC1,OEFC1, \r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $  \r\n****CARD  22, 23\r\n****FILE 117-121\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 14, 16, 19, 21- 23, 25, 56- 62\r\n****FILE 113\r\n****RFMT 187-195,197-204,207-209\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ] for the\r\n$$$$                                            pp     pp         pp\r\n$$$$ current loop.\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$               2        2      2        2          2        2\r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd\r\n$$$$ constraints are applied.\r\nEQUIV    M2PP,M2DD/NOSET/B2PP,B2DD/NOSET/K2PP,K2DD/NOSET $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$                                                     2      2             \r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and      \r\n$$$$                                                     pp     pp            \r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ].\r\n$$$$   pp             dd     dd         dd\r\n$$$$ \r\nGKAD     USETD,GM,GO,,,,,K2PP,M2PP,B2PP/,,,GMD,GOD,K2DD,\r\n         M2DD,B2DD/*CMPLEV*/*DISP*/*MODAL*/0.0/ \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/  \r\n         -1/-1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 56, 57\r\n****FILE 115\r\n$$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates \r\n$$$$ for use in Complex Eigenvalue Analysis:\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [K  ] = [k] + [phi  ][K  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [M  ] = [m] + [phi  ][M  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [B  ] = [b] + [phi  ][B  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$ where\r\n$$$$ \r\n$$$$   m  = modal masses\r\n$$$$    i\r\n$$$$ \r\n$$$$   b  = m  2 pi f  g(f )\r\n$$$$    i    i       i    i\r\n$$$$ \r\n$$$$               2  2\r\n$$$$   k  = m  4 pi  f\r\n$$$$    i    i        i\r\n$$$$ \r\n$$$$ Direct input matrices may be complex.\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 59, 62\r\n****FILE 116\r\n$$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation\r\n$$$$\r\n$$$$        2\r\n$$$$   [M  p  + B  p + K  ] {u } = 0\r\n$$$$     hh      hh     hh    h\r\n$$$$\r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit magnitude of a selected component.\r\n$$$$   2. Unit magnitude of the largest component.\r\nCEAD     KHH,BHH,MHH,EED,CASEXX/PHIH,CLAMA,OCEIGS,/S,N,EIGVS $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OCEIGS) \r\n$$$$ prepared by CEAD and places it on the system output file for printing.\r\nOFP      OCEIGS,,,,,//S,N,CARDNO $  \r\n****CARD  56- 62\r\n****FILE 117\r\n$$$$ Go to label LBL17 if no complexe eigenvalues were found.\r\nCOND     LBL17,EIGVS $  \r\n****CARD   1-  6,  8- 12, 14, 19, 21- 24, 56- 62\r\n****FILE 117,118\r\n$$$$ OFP formats the complex eigenvalues (CLAMA) prepared by CEAD and places \r\n$$$$ them on the system output file for printing.\r\nOFP      CLAMA,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24\r\n****FILE 117\r\n$$$$ VDR prepares eigenvectors (OPHIH) for output, using only the extra points \r\n$$$$ introduced for dynamic analysis and modal coordinates.\r\nVDR      CASEXX,EQDYN,USETD,PHIH,CLAMA,,/OPHIH,/*CEIGEN*/*MODAL*/   \r\n         NOSORT2/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  19, 21\r\n****FILE 118\r\n$$$$ Go to label LBL16 if there is no output request for the extra points \r\n$$$$ introduced for dynamic analysis or modal coordinates.\r\nCOND     LBL16,NOH $\r\n****CARD  21\r\n****FILE 118\r\n$$$$ OFP formats the table of eigenvectors for extra points introduced for \r\n$$$$ dynamic analysis and modal coordinates prepared by VDR and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OPHIH,,,,,//S,N,CARDNO $   \r\n****CARD  21\r\n****FILE 118\r\n$$$$ Go to label LBL16 if there is no output request involving dependent \r\n$$$$ degrees of freedom\r\nLABEL    LBL16 $\r\n****CARD  21\r\n****FILE 117,118\r\n$$$$ Go to label LBL17 if there is no output request involving dependent \r\n$$$$ degrees of freedom or forces and stresses.\r\nCOND     LBL17,NOP $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 119\r\n$$$$ DDR1 transforms the complex eigenvectors from modal to physical \r\n$$$$ coordinates\r\n$$$$\r\n$$$$   [phi ] = [phi  ][phi ]\r\n$$$$       d        dh     h\r\n$$$$ \r\nDDR1     PHIH,PHIDH/CPHID $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 119\r\n$$$$ Equivalence [phi ] to [phi ] if no constraints are applied.\r\n$$$$                 d         p\r\n$$$$\r\nEQUIV    CPHID,CPHIP/NOA $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Go to label LBLNOA if no constraints are applied.\r\nCOND     LBLNOA,NOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                     phi\r\n$$$$             phi                        d\r\n$$$$  {phi } = [G   ]{phi }             {----} = {phi  + phi }\r\n$$$$      o      o       d               phi         f      e\r\n$$$$                                        o\r\n$$$$\r\n$$$$    phi +phi      \r\n$$$$       f    e                                  d\r\n$$$$   {---------} = {phi +phi }        {phi } = [G ]{phi  + phi }\r\n$$$$      phi            n    e             m      m     n      e\r\n$$$$         s        \r\n$$$$\r\n$$$$    phi +phi                \r\n$$$$       n    e               \r\n$$$$   {---------} = {phi }\r\n$$$$      phi            p \r\n$$$$         m                  \r\n$$$$                                                         T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USETD,,CPHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    LBLNOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 120\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares \r\n$$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for \r\n$$$$ output.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/  \r\n         ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIGEN* $\r\n****CARD  19\r\n****FILE 121\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 12, 14, 19, 21- 24, 56- 62\r\n$$$$ Go to label FINIS and make normal exit if no additional sets of direct \r\n$$$$ input matrices need to be processed.\r\nCOND     FINIS,REPEATE $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Go to label LBL13 if additional sets of direct input matrices need to be \r\n$$$$ processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*MDLCEAD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 101\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*MDLCEAD* $   \r\n****CARD   1,  9- 12, 56, 58, 60\r\n****FILE 101\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*MDLCEAD* $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*MDLCEAD* $   \r\n****CARD   1-  6,  8- 12, 14, 24, 58, 59\r\n****FILE 112\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-195,197-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*MDLCEAD* $   \r\n****CARD   1,  2,  5,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 25, 56- 62\r\n****RFMT 187-195,197-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    ASETOUT  \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    AUTOSPC  \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPDPLT   CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 56    EPOINT   SEQEP    TF \r\n 57    DMIG     DMIAX    B2PP$    K2PP$    M2PP$    TF$ \r\n 58    EIGR \r\n 59    METHOD$  \r\n 60    EIGC     EIGP\r\n 61    CMETHOD$ \r\n 62    LFREQ    LMODES   HFREQ    SDAMP$   TABDMP1  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    EED      EQDYN    GPLD     SILD     TFPOOL   USETD   \r\n112    LAMA     MI       PHIA     OEIGS \r\n113    CASEXX   \r\n114    B2PP     K2PP     M2PP   \r\n115    GMD      GOD      B2DD     K2DD     M2DD \r\n116    BHH      KHH      MHH      PHIDH \r\n117    CLAMA    OCEIGS   PHIH   \r\n118    OPHIH\r\n119    CPHID\r\n120    CPHIP    QPC \r\n121    OCPHIP   OEFC1    OESC1    OQPC1 \r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n123    MAA  \r\n124    KDICT    KELM     MDICT    MELM  \r\n125    PLOTX1   \r\n126    OGPWG\r\n127    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP11\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 11 - MODAL FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1993 $ \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE/LAMA=APPEND/PHIA=APPEND $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 12, 14, 15, 19, 21, 24, 29, 59, 60\r\n****FILE 101,112,118,119,122,123,136\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 141\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126,135\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126,135\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 135\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 126,135\r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR7 and print Error Message No. 7 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR7,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8, 24\r\n****FILE 128\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 128\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 128\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 128\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF/SINGLE/QPC/NOSR/KLR,KRR,MLR,  \r\n         MRR,DM,MR/REACT/MDD/MODACC $   \r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,115,117,121\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Equivalence {K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [M  ] to [M  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 127\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,127\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T                   \r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]         \r\n$$$$     aa      aa      oa   o      o   ao      o   oo   o          \r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 127\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,127\r\n$$$$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$$$$               aa       ll\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL8.\r\nJUMP     LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL7 if there is no request for mode acceleration data \r\n$$$$ recovery.\r\nCOND     LBL7,MODACC $  \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nLABEL    LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$ Go to label LBL7 if no free-body supports exist.\r\nCOND     LBL7,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 14, 24\r\n****FILE 109\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL7 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamic \r\n$$$$ Loads Table (DLT), Power Spectral Density List (PSDL), Frequency Response \r\n$$$$ List (FRL), and Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,   \r\n         EED,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/ \r\n         S,N,NOFRL/NONLFT/NOTRL/S,N,NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    UEVF/NOUE $\r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 120\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56, 57, 59, 60\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 114,115,122,123,125,130-134,137,138,140\r\n$$$$\r\nPARAM    //*MPY*/REPEATF/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Beginning of loop for additional sets of direct input matrices.\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 23, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    OUHVC1,OUHVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,K2PP,M2PP,\r\n         B2PP,K2DD,M2DD,B2DD,OPPCA,IQP1,IPHIP1,IES1,IEF1,OPPCB,IQP2,\r\n         IPHIP2,IES2,IEF2,ZQPC2,ZUPVC2,ZESC2,ZEFC2,ZQPC1,ZUPVC1,ZESC1,  \r\n         ZEFC1/NEVER $  \r\n****CARD  19- 23, 27\r\n****FILE 114,115,118,119,122,123,125,130-134,137,138,140\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 53- 62\r\n****FILE 113\r\n****RFMT 187-196,198-204,207-209\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ] for the\r\n$$$$                                            pp     pp         pp\r\n$$$$ current loop.\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 114\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$               2        2      2        2          2        2\r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd\r\n$$$$ \r\n$$$$ constraints are applied, and [M  ] to [M  ] if there are no direct input\r\n$$$$                                aa       dd\r\n$$$$ mass matrices and no extra points introduced for dynamic analysis.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 115\r\n$$$$                                                     2      2             \r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and      \r\n$$$$                                                     pp     pp            \r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ].\r\n$$$$   pp             dd     dd         dd\r\n$$$$\r\nGKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*MODAL*/0.0/  \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/  \r\n         1/V,Y,MODACC = -1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 53, 56, 57, 60\r\n****FILE 115\r\n$$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates \r\n$$$$ for use in Frequency Response:\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [K  ] = [k] + [phi  ][K  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [M  ] = [m] + [phi  ][M  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [B  ] = [b] + [phi  ][B  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$ where\r\n$$$$ \r\n$$$$   m  = modal masses\r\n$$$$    i\r\n$$$$ \r\n$$$$   b  = m  2 pi f  g(f )\r\n$$$$    i    i       i    i\r\n$$$$ \r\n$$$$               2  2\r\n$$$$   k  = m  4 pi  f\r\n$$$$    i    i        i\r\n$$$$ \r\n$$$$ Direct input matrices may be complex.\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASEXX/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 116\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if there is no Frequency \r\n$$$$ Response List.\r\nCOND     ERROR5,NOFRL $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if there is no Dynamic \r\n$$$$ Loads Table.\r\nCOND     ERROR6,NODLT $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ FRRD forms the dynamic load vectors {P } and solves for displacements\r\n$$$$                                       h\r\n$$$$ using the following equation:\r\n$$$$\r\n$$$$             2\r\n$$$$   [-M  omega + iB  omega + K  ] {u } = {P }\r\n$$$$      hh          hh         hh    h      h\r\n$$$$\r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KHH,BHH,MHH,PHIDH,DIT/UHVF,PSF,   \r\n         PDF,PPF/*DISP*/*MODAL*/LUSETD/MPCF1/SINGLE/\r\n         OMIT/NONCUP/S,N,FRQSET $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               p       d\r\n$$$$\r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$ VDR prepares displacements (OUHVC1), sorted by frequency, for output \r\n$$$$ using only the extra points introduced for dynamic analysis and modal \r\n$$$$ coordinates (solution points).\r\nVDR      CASEXX,EQDYN,USETD,UHVF,PPF,XYCDB,/OUHVC1,/*FREQRESP*/ \r\n         *MODAL*/S,N,NOSORT2/S,N,NOH/S,N,NOP/FMODE $\r\n****CARD  19- 21, 27\r\n****FILE 118\r\n$$$$ Go to label LBL16 if there is no output request for solution points.\r\nCOND     LBL16,NOH $\r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$ Go to label LBL16A if there is no output request for solution points \r\n$$$$ sorted by extra point or mode number.\r\nCOND     LBL16A,NOSORT2 $   \r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$ SDR3 sorts the solution point displacements by extra point or mode \r\n$$$$ number.\r\nSDR3     OUHVC1,,,,,/OUHVC2,,,,, $  \r\n****CARD  21, 27\r\n****FILE 119\r\n$$$$ OFP formats the requested solution point displacements prepared by SDR3 \r\n$$$$ and places them on the system output file for printing.\r\nOFP      OUHVC2,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 119\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the solution point \r\n$$$$ displacement vs. frequency.\r\nXYTRAN   XYCDB,OUHVC2,,,,/XYPLTFA/*FREQ*/*HSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 137\r\n$$$$ XYPLOT prepares the requested X-Y plots of the solution point \r\n$$$$ displacements vs. frequency.\r\nXYPLOT   XYPLTFA // $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 137\r\n$$$$ Go to label LBL16.\r\nJUMP     LBL16 $\r\n****CARD  21, 27\r\n****FILE 137\r\n$$$$\r\nLABEL    LBL16A $   \r\n****CARD  21, 27\r\n****FILE 118,119,137\r\n$$$$ OFP formats the requested solution point displacements prepared by VDR \r\n$$$$ and places them on the system output file for printing.\r\nOFP      OUHVC1,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 118\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 21, 27\r\n****FILE 118,119,137\r\n$$$$ Go to label LBL14 if there is no output request involving dependent \r\n$$$$ degrees of freedom or forces and stresses.\r\nCOND     LBL14,NOP $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 120-125,129-134,138-140\r\n$$$$\r\nPARAM    //*NOT*/NOMOD/V,Y,MODACC $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n$$$$ Go to label LBDDRM if the mode acceleration technique is not requested.\r\nCOND     LBDDRM,MODACC $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 53, 56- 62\r\n****FILE 120-124\r\n$$$$ DDR1 transforms the solution vector of displacements from modal to \r\n$$$$ physical coordinates\r\n$$$$\r\n$$$$   [u ] = [phi  ]{u }\r\n$$$$     d        dh   h\r\n$$$$\r\nDDR1     UHVF,PHIDH/UDV1F $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 124\r\n$$$$ DDR2 calculates an improved displacement vector using the mode \r\n$$$$ acceleration technique.\r\nDDR2     USETD,UDV1F,PDF,K2DD,B2DD,MDD,PPF,LLL,DM/UDV2F,UEVF,PAF/   \r\n         *FREQRESP*/NOUE/REACT/FRQSET $ \r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 120\r\n$$$$ Equivalence {u } to the improved displacement vector. (Flag NOMOD is \r\n$$$$               d\r\n$$$$ negative since the mode acceleration technique is requested.)\r\nEQUIV    UDV2F,UDV1F/NOMOD $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 124\r\n$$$$ Equivalence {u } to {u } if no constraints are applied.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    UDV1F,UPVC/NOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Go to label LBLNOA if no constraints are applied.\r\nCOND     LBLNOA,NOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ SDR1 recovers dependent components of displacements\r\n$$$$ \r\n$$$$                                 u\r\n$$$$           d                      d\r\n$$$$  {u } = [G ]{u }               {----} = {u  + u  }\r\n$$$$    o      o   d                 u         f     e\r\n$$$$                                   o\r\n$$$$\r\n$$$$    u + u      \r\n$$$$     f   e                              d\r\n$$$$   {-------} = {u + u }        {u } = [G ]{u  + u }\r\n$$$$      u          n   e           m      m   f    e\r\n$$$$       s        \r\n$$$$\r\n$$$$    u + u                \r\n$$$$     n   e               \r\n$$$$   {---------} = {u }\r\n$$$$       u           p \r\n$$$$        m                  \r\n$$$$                                                                 T\r\n$$$$ and recovers single-point forces of constraint {q } = -{P } + [K  ]{u }.\r\n$$$$                                                  s       s      fs   f\r\n$$$$\r\nSDR1     USETD,,UDV1F,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    LBLNOA $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 121\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and \r\n$$$$ prepares load vectors (OPPC1), displacement, velocity, and acceleration\r\n$$$$ vectors (OUPVC1), and single-point forces of constraint (OQPC1) for output \r\n$$$$ and translation components of the displacement vector (PUGV), sorted by \r\n$$$$ frequency. \r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,   \r\n         XYCDB,PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUGV,,/*FREQ*/   \r\n         S,N,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$ Go to label LBL18 if there are no requests for output sorted by point \r\n$$$$ number or element number.\r\nCOND     LBL18,NOSORT2 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 122,123,125,129-134,138-140\r\n$$$$ SDR3 prepares the requested output sorted by point number or element \r\n$$$$ number.\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,  \r\n         OEFC2, $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$ Go to label P2A.\r\nJUMP     P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBDDRM $   \r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 53, 56- 62\r\n****FILE 120-124\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$             d                        n\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi  + phi }\r\n$$$$      o      o     n               phi         f      e\r\n$$$$                                      o\r\n$$$$\r\n$$$$    phi +phi      \r\n$$$$       f    e                                  d\r\n$$$$   {---------} = {phi +phi }        {phi } = [G ]{phi  + phi }\r\n$$$$      phi            n    e             m      m     n      e\r\n$$$$         s        \r\n$$$$\r\n$$$$    phi +phi                \r\n$$$$       n    e               \r\n$$$$   {---------} = {phi  + u } = {phi }\r\n$$$$      phi            g    e        p\r\n$$$$         m                  \r\n$$$$                                                         T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 53, 56- 62\r\n****FILE 129\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ SDR2 calculates element forces (IEF1) and stresses (IES1) and prepares \r\n$$$$ eigenvectors (IPHIP1) and single-point forces of constraint (IQP1) for \r\n$$$$ output sorted by frequency.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/  \r\n         ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG*/S,N,NOSORT2 $   \r\n****CARD  19, 20\r\n****FILE 130\r\n$$$$ SDR2 prepares load vectors for output (OPPCA) sorted by frequency.\r\nSDR2     CASEXX,CSTM,MPT,,EQDYN,SILD,,,,PPF,,,EST,XYCDB,PPF,/OPPCA, \r\n         ,,,,,,/*FREQ* $\r\n****CARD  19, 20\r\n****FILE 131\r\n$$$$ Equivalence OPPCA to OPPC1. (Flag MODACC is negative since the \r\n$$$$ mode acceleration technique is not requested.)\r\nEQUIV    OPPCA,OPPC1/MODACC $   \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$ Go to label LBLSORT if there are no requests for output sorted by point \r\n$$$$ number or element number.\r\nCOND     LBLSORT,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 123,132,133\r\n$$$$ SDR3 prepares the requested output sorted by point number or element \r\n$$$$ number.\r\nSDR3     IQP1,IPHIP1,IES1,IEF1,OPPCA,/IQP2,IPHIP2,IES2,IEF2,OPPCB, $\r\n****CARD  19, 20\r\n****FILE 132\r\n$$$$ Equivalence OPPCB to OPPC2. (Flag MODACC is negative since the \r\n$$$$ mode acceleration technique is not requested.)\r\nEQUIV    OPPCB,OPPC2/MODACC $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$ DDRMM prepares a subset of the element forces (ZEFC2) and stresses \r\n$$$$ (ZESC2), and displacement vectors (ZUPVC2) and single-point forces of \r\n$$$$ constraint (ZQPC2) for output sorted by point number or element number.\r\nDDRMM    CASEXX,UHVF,PPF,IPHIP2,IQP2,IES2,IEF2,XYCDB,EST,MPT,DIT/   \r\n         ZUPVC2,ZQPC2,ZESC2,ZEFC2,  $   \r\n****CARD  19, 20\r\n****FILE 133\r\n$$$$ Equivalence ZUPVC2 to OUPVC2, ZQPC2 to OQPC2, ZESC2 to OESC2, and ZEFC2 \r\n$$$$ to OEFC2. (Flag MODACC is negative since the mode acceleration technique \r\n$$$$ is not requested.) \r\nEQUIV    ZUPVC2,OUPVC2/MODACC/ZQPC2,OQPC2/MODACC/ZESC2,OESC2/MODACC/\r\n         ZEFC2,OEFC2/MODACC $   \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$ Go to label P2A.\r\nJUMP     P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBLSORT $  \r\n****CARD  19, 20\r\n****FILE 123,132,133\r\n$$$$ DDRMM prepares a subset of the element forces (ZEFC2) and stresses \r\n$$$$ (ZESC2), and displacement vectors (ZUPVC2) and single-point forces of \r\n$$$$ constraint (ZQPC2) for output sorted by frequency.\r\nDDRMM    CASEXX,UHVF,PPF,IPHIP1,IQP1,IES1,IEF1,,EST,MPT,DIT/\r\n         ZUPVC1,ZQPC1,ZESC1,ZEFC1, $\r\n****CARD  19, 20\r\n****FILE 134\r\n$$$$ Equivalence ZUPVC1 to OUPVC1, ZQPC1 to OQPC1, ZESC1 to OESC1, and ZEFC1 \r\n$$$$ to OEFC1. (Flag MODACC is negative since the mode acceleration technique \r\n$$$$ is not requested.) \r\nEQUIV    ZUPVC1,OUPVC1/MODACC/ZQPC1,OQPC1/MODACC/ZESC1,OESC1/MODACC/\r\n         ZEFC1,OEFC1/MODACC $   \r\n****CARD  19, 20\r\n****FILE 122\r\n$$$$ Go to label LBL18.\r\nJUMP     LBL18 $\r\n****CARD  19, 20\r\n****FILE 134\r\n$$$$\r\nLABEL    P2A $  \r\n****CARD  19, 20\r\n****FILE 123\r\n$$$$ OFP formats the requested output prepared by SDR3 (with mode \r\n$$$$ acceleration) or DDRMM (no mode acceleration) and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 123\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 138\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, \r\n$$$$ stresses, loads, and single-point forces of constraint vs. frequency.\r\nXYPLOT   XYPLTF// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 138\r\n$$$$ Go to label LBL21 if no deformed structure plots are requested.\r\nCOND     LBL21,JUMPPLOT $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/\r\n         PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $  \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$\r\nLABEL    LBL21 $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 139\r\n$$$$ Go to label LBL14 if no power spectral density functions or \r\n$$$$ autocorrelation functions are requested.\r\nCOND     LBL14,NOPSDL $ \r\n****CARD  20, 26, 54, 55\r\n****FILE 125\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ RANDOM calculates the power spectral density functions (PSDF) and \r\n$$$$ autocorrelation functions (AUTO) using the previously calculated \r\n$$$$ frequency response.\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $ \r\n****CARD  26, 54, 55\r\n****FILE 125\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Go to label LBL14 if no X-Y plots of RANDOM calculations are requested.\r\nCOND     LBL14,NORD $   \r\n****CARD  26, 54, 55\r\n****FILE 140\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output.\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 140\r\n$$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and \r\n$$$$ power spectral density functions.\r\nXYPLOT   XYPLTR// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 140\r\n$$$$ Go to label LBL14.\r\nJUMP     LBL14 $\r\n****CARD  20\r\n****FILE 140\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 122,123,125,129-134,138-140\r\n$$$$ OFP formats the frequency response output requests prepared by SDR2 (with \r\n$$$$ mode acceleration) or DDRMM (no mode acceleration) and places them on the \r\n$$$$ system output file for printing.\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 14, 19, 20, 22- 24, 26, 53- 62\r\n****FILE 120-125,129-134,138-140\r\n$$$$ Go to label FINIS and make normal exit if no additional sets of direct \r\n$$$$ input matrices need to be processed.\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Go to label LBL13 if additional sets of direct input matrices need to be \r\n$$$$ processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*MDLFRRD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*MDLFRRD* $   \r\n****CARD   1,  9- 12, 55, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*MDLFRRD* $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 128\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*MDLFRRD* $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 111\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    ERROR7 $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-196,198-204,207-209\r\n$$$$ Print Error Message No. 7 and terminate execution.\r\nPRTPARM  //-7/*MDLFRRD* $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18- 29, 53- 62\r\n****RFMT 187-196,198-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    RANDOM$  \r\n 27    AXYOUT$  \r\n 28    ASETOUT  \r\n 29    AUTOSPC  \r\n 53    MODACC   \r\n 54    TABRND1  TABRND2  TABRND3  TABRND4   \r\n 55    RANDPS   RANDT1   RANDT2 \r\n 56    EPOINT   SEQEP    TF \r\n 57    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$ \r\n 58    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2  \r\n 58    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4 \r\n 59    EIGR \r\n 60    METHOD$  \r\n 61    DECOMOPT DLOAD$   FREQ$  \r\n 62    HFREQ    LFREQ    LMODES   TABDMP1  SDAMP$   \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    DLT      EED      EQDYN    FRL      GPLD     PSDL     SILD   \r\n111    TFPOOL   USETD   \r\n112    LAMA     MI       OEIGS    PHIA  \r\n113    CASEXX   \r\n114    B2PP     K2PP     M2PP   \r\n115    B2DD     GMD      GOD      K2DD     M2DD     MDD \r\n116    BHH      KHH      MHH      PHIDH \r\n117    PDF      PPF      PSF      UHVF  \r\n118    OUHVC1   \r\n119    OUHVC2   \r\n120    PAF      UDV2F    UEVF   \r\n121    QPC      UPVC\r\n122    OEFC1    OESC1    OPPC1    OQPC1    OUPVC1   \r\n123    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2   \r\n124    UDV1F\r\n125    AUTO     PSDF\r\n126    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n127    MAA  \r\n128    KDICT    KELM     MDICT    MELM  \r\n129    PHIPH    QPH \r\n130    IEF1     IES1     IPHIP1   IQP1  \r\n131    OPPCA\r\n132    IEF2     IES2     IPHIP2   OPPCB    IQP2 \r\n133    ZEFC2    ZESC2    ZQPC2    ZUPVC2\r\n134    ZEFC1    ZESC1    ZQPC1    ZUPVC1\r\n135    PLOTX1   \r\n136    OGPWG\r\n137    XYPLTFA  \r\n138    XYPLTF   \r\n139    PLOTX2   \r\n140    XYPLTR   \r\n141    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP12\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 12 - MODAL TRANSIENT RESPONSE ANALYSIS - APR. 1993 $  \r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****SBST   6\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND/UHVT=APPEND/TOL=APPEND $   \r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 12, 14, 15, 19, 21, 24, 28, 59, 60\r\n****FILE 101,112,119,123,134\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 138\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125,133\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125,133\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 133\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125,133\r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $   \r\n****CARD   1,  2, 13, 61\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 127\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGGX if no stiffness matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 127\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 127\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 127\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 134\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST   \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 26, 28\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 28\r\n****FILE 101\r\n$$$$\r\nPARAM    //*AND*/NOSR/REACT/SINGLE $\r\n****CARD   1,  9- 12\r\n****FILE 121\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST/SINGLE/QP/NOSR/KLR,KRR,MLR,MR,\r\n         MRR,DM/REACT $ \r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,114,117,121\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [M  ] to [M  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 126\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,126\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T                   \r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]         \r\n$$$$     aa      aa      oa   o      o   ao      o   oo   o          \r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,126\r\n$$$$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$$$$               aa       ll\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL8.\r\nJUMP     LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ Go to label LBL7 if there is no request for mode acceleration data \r\n$$$$ recovery.\r\nCOND     LBL7,MODACC $  \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$\r\nLABEL    LBL8 $ \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 107\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$ Go to label LBL7 if no free-body supports exist.\r\nCOND     LBL7,REACT $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL7 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 108-110\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamic \r\n$$$$ Loads Table (DLT), Nonlinear Function Table (NLFT), and Transient \r\n$$$$ Response List (TRL).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,   \r\n         EED ,EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/\r\n         NOFRL/S,N,NONLFT/S,N,NOTRL/S,N,NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 111\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 111\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    UEVT/NOUE/PNLH/NONLFT $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 120,128\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 57, 59, 60\r\n****FILE 114\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 112\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/S,N,  \r\n         NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n$$$$                                            2      2          2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ].\r\n$$$$                                            pp     pp         pp\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2PP,M2PP,B2PP/LUSETD/S,N,\r\n         NOK2PP/S,N,NOM2PP/S,N,NOB2PP $ \r\n****CARD   1, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$               2        2      2        2          2        2\r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd\r\n$$$$ \r\n$$$$ constraints are applied, and [M  ] to [M  ] if there are no direct input\r\n$$$$                                aa       dd\r\n$$$$ mass matrices and no extra points introduced for dynamic analysis.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA $  \r\n****CARD   1-  6,  8- 11, 22, 23, 56, 57\r\n****FILE 113\r\n$$$$                                                     2      2             \r\n$$$$ GKAD applies constraints to direct input matrices [K  ], [M  ], and      \r\n$$$$                                                     pp     pp            \r\n$$$$   2              2      2          2\r\n$$$$ [B  ], forming [K  ], [M  ], and [B  ].\r\n$$$$   pp             dd     dd         dd\r\n$$$$\r\nGKAD     USETD,GM,GO,,,MAA,,K2PP,M2PP,B2PP/,,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*MODAL*/0.0/  \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/-1/-1/  \r\n         1/V,Y,MODACC = -1 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 55- 57, 60\r\n****FILE 114\r\n$$$$ GKAM assembles stiffness, mass, and damping matrices in modal coordinates \r\n$$$$ for use in Transient Response:\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [K  ] = [k] + [phi  ][K  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [M  ] = [m] + [phi  ][M  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$                     T    2\r\n$$$$   [B  ] = [b] + [phi  ][B  ][phi  ]\r\n$$$$     hh              dh   dd     dh\r\n$$$$ \r\n$$$$ where\r\n$$$$ \r\n$$$$   m  = modal masses\r\n$$$$    i\r\n$$$$ \r\n$$$$   b  = m  2 pi f  g(f )\r\n$$$$    i    i       i    i\r\n$$$$ \r\n$$$$               2  2\r\n$$$$   k  = m  4 pi  f\r\n$$$$    i    i        i\r\n$$$$ \r\n$$$$ All matrices are real.\r\nGKAM     USETD,PHIA,MI,LAMA,DIT,M2DD,B2DD,K2DD,CASECC/MHH,BHH,KHH,PHIDH/\r\n         NOUE/C,Y,LMODES=0/C,Y,LFREQ=0.0/C,Y,HFREQ=-1.0/\r\n         NOM2PP/NOB2PP/NOK2PP/S,N,NONCUP/S,N,FMODE $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 115\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if there is no Transient \r\n$$$$ Response List.\r\nCOND     ERROR5,NOTRL $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****FILE 117\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  22, 23\r\n****FILE 118,119,122,123,128,130-132\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 24, 27, 55- 62\r\n****FILE 116\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Beginning of loop for additional dynamic load sets.\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 24, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    PNLH,OUHV1,OPNL1,OUHV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1,OEF1,\r\n         OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT,OPPA,IQP1,IPHIP1,IES1, \r\n         IEF1,OPPB,IQP2,IPHIP2,IES2,IEF2,ZQP2,ZUPV2,ZES2,ZEF2/NEVER $   \r\n****CARD  19- 23, 27\r\n****FILE 118,119,122,123,128,130-132,135-137,139\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 25, 27, 55- 62\r\n****FILE 116\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NCOL/0/1 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 12, 14, 24, 56, 57, 59, 60\r\n****FILE 117\r\n$$$$                                                 t     t         t\r\n$$$$ TRLG generates matrices of loads versus time. {P }, {P }, and {P } are\r\n$$$$                                                 p     s         d\r\n$$$$ generated with one column per output time step. {P } and {P } are \r\n$$$$                                                   d        h\r\n$$$$ generated with one column per solution time step, and the Transient \r\n$$$$ Output List (TOL) is a list of output time steps.\r\nTRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,PHIDH, \r\n         EST,MGG,/PPT,PST,PDT,PD,PH,TOL/S,N,NOSET/NCOL $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$               t       t\r\n$$$$ Equivalence {P } to {P } if the d and p sets are the same.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    PPT,PDT/NOSET $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 117\r\n$$$$                                              nl\r\n$$$$ TRD forms the linear, {P }, and nonlinear, {P  }, dynamic load vectors\r\n$$$$                         d                    d\r\n$$$$ and integrates the equations of motion over specified time periods to\r\n$$$$ solve for the displacements, velocities, and accelerations, using the \r\n$$$$ following equation:\r\n$$$$\r\n$$$$        2                             nl\r\n$$$$   [M  p + B  p + K  ]{u } = {P } + {P  }\r\n$$$$     hh     hh     hh   h      h      h\r\n$$$$\r\nTRD      CASEXX,TRL,NLFT,DIT,KHH,BHH,MHH,PH/UHVT,PNLH/*MODAL*/  \r\n         NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $  \r\n****CARD   1-  6,  8- 12, 14, 17, 22- 24, 56- 62\r\n****FILE 128\r\n$$$$ VDR prepares displacements, velocities, and accelerations, sorted by time \r\n$$$$ step, for output using only the extra points introduced for dynamic \r\n$$$$ analysis and modal coordinates (solution points).\r\nVDR      CASEXX,EQDYN,USETD,UHVT,TOL,XYCDB,PNLH/OUHV1,OPNL1/\r\n         *TRANRESP*/*MODAL*/0/S,N,NOH/S,N,NOP/FMODE $   \r\n****CARD  19- 21, 27\r\n****FILE 118\r\n$$$$ Go to label LBL16 if there is no output request for the solution points.\r\nCOND     LBL16,NOH $\r\n****CARD  21, 27\r\n****FILE 119,135\r\n$$$$ SDR3 sorts the solution point displacements, velocities, accelerations, \r\n$$$$ and nonlinear load vectors by extra point or mode number.\r\nSDR3     OUHV1,OPNL1,,,,/OUHV2,OPNL2,,,, $  \r\n****CARD  21, 27\r\n****FILE 119\r\n$$$$ OFP formats the requested solution point displacements, velocities, \r\n$$$$ accelerations, and nonlinear load vectors prepared by SDR3 and places \r\n$$$$ them on the system output file for printing.\r\nOFP      OUHV2,OPNL2,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 119\r\n$$$$ XYTRAN prepares the input for X-Y plotting of the solution point \r\n$$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. \r\n$$$$ time.\r\nXYTRAN   XYCDB,OUHV2,OPNL2,,,/XYPLTTA/*TRAN*/*HSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$ XYPLOT prepares the requested X-Y plots of the solution point \r\n$$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. \r\n$$$$ time.\r\nXYPLOT   XYPLTTA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  21, 27\r\n****FILE 119,135\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$ Go to label LBL15 if there is no output request involving dependent \r\n$$$$ degrees of freedom, forces and stresses, or deformed structure plots.\r\nCOND     LBL15,PJUMP $  \r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124,129-132,136,137,139\r\n$$$$\r\nPARAM    //*NOT*/NOMOD/V,Y,MODACC $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 124\r\n$$$$\r\nPARAM    //*AND*/MPJUMP/V,Y,MODACC/JUMPPLOT $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$ Go to label LBDDRM if the mode acceleration technique is not requested \r\n$$$$ and if there are no requests for deformed structure plots.\r\nCOND     LBDDRM,MPJUMP $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$ DDR1 transforms the solution vector of displacements from modal to \r\n$$$$ physical coordinates\r\n$$$$\r\n$$$$   [u ] = [phi  ]{u }\r\n$$$$     d        dh   h\r\n$$$$\r\nDDR1     UHVT,PHIDH/UDV1T $ \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56- 62\r\n****FILE 124\r\n$$$$ Go to label LBLMOD if the mode acceleration technique is not requested.\r\nCOND     LBLMOD,MODACC $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$ DDR2 calculates an improved displacement vector using the mode \r\n$$$$ acceleration technique.\r\nDDR2     USETD,UDV1T,PDT,K2DD,B2DD,MDD,,LLL,DM/UDV2T,UEVT,PAF/  \r\n         *TRANRESP*/NOUE/REACT/0 $  \r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$ Equivalence {u } to the improved displacement vector. (Flag NOMOD is \r\n$$$$               d\r\n$$$$ negative since the mode acceleration technique is requested.)\r\nEQUIV    UDV2T,UDV1T/NOMOD $\r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMOD $   \r\n****SBST   2,  3\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 120\r\n$$$$ Equivalence {u } to {u } if no constraints are applied.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    UDV1T,UPV/NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n$$$$ Go to label LBL14 if no constraints are applied.\r\nCOND     LBL14,NOA $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ SDR1 recovers dependent components of displacements\r\n$$$$ \r\n$$$$                                 u\r\n$$$$           d                      d\r\n$$$$  {u } = [G ]{u }               {----} = {u  + u  }\r\n$$$$    o      o   d                 u         f     e\r\n$$$$                                   o\r\n$$$$\r\n$$$$    u + u      \r\n$$$$     f   e                              d\r\n$$$$   {-------} = {u + u }        {u } = [G ]{u  + u }\r\n$$$$      u          n   e           m      m   f    e\r\n$$$$       s        \r\n$$$$\r\n$$$$    u + u                \r\n$$$$     n   e               \r\n$$$$   {---------} = {u }\r\n$$$$       u           p \r\n$$$$        m                  \r\n$$$$                                                                 T\r\n$$$$ and recovers single-point forces of constraint {q } = -{P } + [K  ]{u }.\r\n$$$$                                                  s       s      fs   f\r\n$$$$\r\nSDR1     USETD,,UDV1T,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 121\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and \r\n$$$$ prepares load vectors (OPP1), displacement, velocity, and acceleration\r\n$$$$ vectors (OUPV1), and single-point forces of constraint (OQP1) for output \r\n$$$$ and translation components of the displacement vector (PUGV), sorted by \r\n$$$$ time step.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n         PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ \r\n****CARD  18- 20\r\n****FILE 122\r\n$$$$ SDR3 prepares requested output sorted by point number or element number.\r\nSDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/OPP2,OQP2,OUPV2,OES2,OEF2, $\r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$ Go to label P2A.\r\nJUMP     P2A $  \r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nLABEL    LBDDRM $   \r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$             d                        h\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi  + phi }\r\n$$$$      o      o     n               phi         f      e\r\n$$$$                                      o\r\n$$$$\r\n$$$$    phi +phi      \r\n$$$$       f    e                                  d\r\n$$$$   {---------} = {phi +phi }        {phi } = [G ]{phi  + phi }\r\n$$$$      phi            n    e             m      m     n      e\r\n$$$$         s        \r\n$$$$\r\n$$$$    phi +phi                \r\n$$$$       n    e               \r\n$$$$   {---------} = {phi  + u } = {phi }\r\n$$$$      phi            g    e        p\r\n$$$$         m                  \r\n$$$$                                                            T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USETD,,PHIDH,,,GOD,GMD,,KFS,,/PHIPH,,QPH/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 55- 62\r\n****FILE 129\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ SDR2 calculates element forces (IEF1) and stresses (IES1) and prepares \r\n$$$$ eigenvectors (IPHIP1) and single-point forces of constraint (IQP1) for \r\n$$$$ output sorted by time step.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,LAMA,QPH,PHIPH,EST,XYCDB,,/  \r\n         ,IQP1,IPHIP1,IES1,IEF1,,,/*MMREIG* $   \r\n****CARD  18- 20\r\n****FILE 130\r\n$$$$ SDR2 prepares load vectors for output (OPPCA) sorted by time step.\r\nSDR2     CASEXX,,,,EQDYN,SILD,,,,TOL,,,,XYCDB,PPT,/OPPA,,,,,,,/ \r\n         *TRANRESP* $   \r\n****CARD  18- 20\r\n****FILE 139\r\n$$$$ SDR3 prepares the requested output sorted by point number or element \r\n$$$$ number.\r\nSDR3     OPPA,IQP1,IPHIP1,IES1,IEF1,/OPPB,IQP2,IPHIP2,IES2,IEF2, $  \r\n****CARD  18- 20\r\n****FILE 131\r\n$$$$ Equivalence OPPB to OPP2. (Flag MODACC is negative since the \r\n$$$$ mode acceleration technique is not requested.)\r\nEQUIV    OPPB,OPP2/MODACC $ \r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$ DDRMM prepares a subset of the element forces (ZEF2) and stresses (ZES2), \r\n$$$$ and displacement vectors (ZUPV2) and single-point forces of constraint \r\n$$$$ (ZQP2) for output sorted by point number or element number.\r\nDDRMM    CASEXX,UHVT,TOL,IPHIP2,IQP2,IES2,IEF2,,EST,MPT,DIT/\r\n         ZUPV2,ZQP2,ZES2,ZEF2, $\r\n****CARD  18- 20\r\n****FILE 132\r\n$$$$ Equivalence ZUPV2 to OUPV2, ZQP2 to OQP2, ZES2 to OES2, and ZEF2 \r\n$$$$ to OEF2. (Flag MODACC is negative since the mode acceleration technique \r\n$$$$ is not requested.) \r\nEQUIV    ZUPV2,OUPV2/MODACC/ZQP2,OQP2/MODACC/ZEF2,OEF2/MODACC/ZES2,OES2/\r\n         MODACC $   \r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$\r\nLABEL    P2A $  \r\n****CARD  18- 20\r\n****FILE 123\r\n$$$$ OFP formats the requested output prepared by SDR3 (with mode \r\n$$$$ acceleration) or DDRMM (no mode acceleration) and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OUPV2,OPP2,OQP2,OEF2,OES2,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 123\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR3 or DDRMM \r\n$$$$ and generates scanned output that meets the specifications set by the \r\n$$$$ user.\r\nSCAN     CASECC,OES2,OEF2/OESF2/*RF* $  \r\n****CARD 19 \r\n****FILE 123\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF2,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 123\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,,,,/PLOTX2/ \r\n         NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 136\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/  \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 137\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, \r\n$$$$ accelerations, forces, stresses, loads, and single-point forces of \r\n$$$$ constraint vs. time.\r\nXYPLOT   XYPLTT// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 137\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD   1-  6,  8- 12, 14, 18- 20, 22- 24, 55- 62\r\n****FILE 120-124,129-132,136,137,139\r\n$$$$ Go to label FINIS and make normal exit if no additional dynamic load sets \r\n$$$$ need to be processed.\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Go to label LBL13 if additional dynamic load sets need to be processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*MDLTRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 101\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*MDLTRD* $\r\n****CARD   1,  9- 12, 56, 58, 59\r\n****FILE 101\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*MDLTRD* $\r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 127\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*MDLTRD* $\r\n****CARD   1-  6,  8- 12, 14, 24, 59, 60\r\n****FILE 112\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*MDLTRD* $\r\n****CARD   1-  6,  8- 12, 14, 22- 24, 56, 57, 59, 60, 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-197,199-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*MDLTRD* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 28, 55- 62\r\n****RFMT 187-197,199-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCADD   MPCAX    MPC$   \r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    ISTART   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    ASETOUT  \r\n 27    AXYOUT$  \r\n 28    AUTOSPC  \r\n 55    MODACC   \r\n 56    EPOINT   SEQEP    TF \r\n 57    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$ \r\n 58    DAREA    DELAY    DLOAD    FORCE    FORCE1   FORCE2   GRAV   \r\n 58    MOMENT   \r\n 58    MOMENT1  MOMENT2  NOLIN1   NOLIN2   NOLIN3   NOLIN4   NOLIN6 \r\n 58    PLOAD    PLOAD4\r\n 58    PLOAD1   PLOAD2   SLOAD    TABLED1  TABLED2  TABLED3  TABLED4\r\n 58    TLOAD1   TLOAD2   TSTEP  \r\n 59    EIGR \r\n 60    METHOD$  \r\n 61    DLOAD$   NLFORCE  TSTEP$ \r\n 62    HFREQ    LFREQ    LMODES   TABDMP1  SDAMP$   \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    DLT      EED      EQDYN    GPLD     NLFT     SILD     TFPOOL \r\n111    TRL      USETD   \r\n112    LAMA     MI       OEIGS    PHIA  \r\n113    B2PP     K2PP     M2PP   \r\n114    B2DD     GMD      GOD      K2DD     M2DD     MDD \r\n115    BHH      KHH      MHH      PHIDH \r\n116    CASEXX   \r\n117    PD       PDT      PH       PPT      PST      TOL \r\n118    OPNL1    OUHV1   \r\n119    OPNL2    OUHV2   \r\n120    PAF      UDV2T    UEVT   \r\n121    QP       UPV \r\n122    OEF1     OES1     OPP1     OQP1     OUPV1    PUGV\r\n123    OEF2     OES2     OPP2     OQP2     OUPV2    OESF2\r\n124    UDV1T\r\n125    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n126    MAA  \r\n127    KDICT    KELM     MDICT    MELM  \r\n128    PNLH     UHVT\r\n129    PHIPH    QPH \r\n130    IEF1     IES1     IPHIP1   IQP1  \r\n131    IEF2     IES2     IPHIP2   IQP2     OPPB \r\n132    ZEF2     ZES2     ZQP2     ZUPV2 \r\n133    PLOTX1   \r\n134    OGPWG\r\n135    XYPLTTA  \r\n136    PLOTX2   \r\n137    XYPLTT   \r\n138    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP13\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 13 - NORMAL MODES WITH DIFFERENTIAL STIFFNESS - APR. 1993 $ \r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $  \r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 11, 14- 16, 19, 21, 23, 24, 57- 62\r\n****FILE 101,112,118,120,130,132\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 135\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 121,131\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,131\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 131\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,131\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $   \r\n****CARD   1,  2, 13, 57, 60\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 21- 24, 57- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module. \r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 24, 57\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR5,NOMGG $ \r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 123\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 123\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 132\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced\r\n$$$$                                         g    g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 11, 22, 23, 59\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 23\r\n****FILE 101\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR6,NOL $   \r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-198,200,201-204,207-209\r\n$$$$ Go to label LBL4D if there are no support cards.\r\nCOND     LBL4D,REACT $  \r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$ Go to label ERROR2 and print Error Message No. 2.\r\nJUMP     ERROR2 $   \r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 11\r\n****RFMT 187-189,193-198\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1, 10, 11\r\n****FILE 111\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS/SINGLE/   \r\n         QG/NOSR $  \r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,109-111\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$\r\nRBMG2    KAA/LLL $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$ SSG1 generates static load vectors {P }.\r\n$$$$                                      g\r\n$$$$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/1/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 57- 60\r\n****FILE 108\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$\r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           P\r\n$$$$            a                    T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 57- 60\r\n****FILE 109\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         1/S,N,EPSI $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 110\r\n****RFMT 188\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 11, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ SDR1 recovers dependent displacements for current loop\r\n$$$$ \r\n$$$$                       o\r\n$$$$   {u } = [G ]{u ] + {u }  ,\r\n$$$$     o      o   l      o\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } +[K  ]{Y }\r\n$$$$     s       s      fs   f     ss   s\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/\r\n         *BKL0* $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 111\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1)\r\n$$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), \r\n$$$$ and single-point forces of constraint (OQG1) for output and translation \r\n$$$$ components of the displacement vector (PUGV1) for the static solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, \r\n         ,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *BKL0*////COMPS $  \r\n****CARD  19\r\n****FILE 112\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/C,N,*RF* $  \r\n****FILE 112\r\n****CARD 19 \r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****FILE 112\r\n****CARD  19\r\n$$$$ Go to label P2 if no static solution deformed structure plots are \r\n$$$$ requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$ PLOT generates all requested static solution deformed structure and \r\n$$$$ contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,   \r\n         GPECT,OES1,OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ static solution deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 133\r\n$$$$ TA1 generates element tables for use in differential stiffness matrix \r\n$$$$ assembly.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/  \r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 10, 57- 60\r\n****FILE 113\r\n$$$$                                                 d\r\n$$$$ DSMG1 generates differential stiffness matrix [K  ].\r\n$$$$                                                 gg\r\n$$$$ \r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/   \r\n         S,N,DSCOSET $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 113\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KDGG,KDNN/MPCF2 / MGG,MNN/MPCF2 $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 104,114\r\n$$$$ Go to label LBL2D if no multipoint constraints exist.\r\nCOND     LBL2D,MPCF2 $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$ MCE2 partitions differential stiffness matrix\r\n$$$$ \r\n$$$$           +_d   d +\r\n$$$$           |K  |K  |\r\n$$$$     d     | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           + mn| mm+\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$     d      _d       T   d       d           T   d\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KDGG,MGG,,/KDNN,MNN,, $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point \r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KDNN,KDFF/SINGLE / MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 105,115\r\n$$$$ Go to label LBL3D if no single-point constraints exist.\r\nCOND     LBL3D,SINGLE $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           + d   d +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$     d     | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    | d | d |                  nn    |M  |M  |\r\n$$$$           |K  |K  |                        | sf| ss|\r\n$$$$           + sf| ss+                        +       +\r\n$$$$\r\nSCE1     USET,KDNN,MNN,,/KDFF,KDFS,KDSS,MFF,, $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no omitted coordinates\r\n$$$$               ff       aa        ff       aa\r\n$$$$ exist.\r\nEQUIV    KDFF,KDAA/OMIT / MFF,MAA/OMIT $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$ Go to label LBL5D if no omitted coordinates exist.\r\nCOND     LBL5D,OMIT $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$ SMP2 partitions constrained differential stiffness matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     d      _d       d\r\n$$$$   [K  ] = [K  ] + [K  ][G ]\r\n$$$$     aa      aa      oa   o\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T                   \r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]         \r\n$$$$     aa      aa      oa   o      o   ao      o   oo   o          \r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116,122\r\n$$$$\r\nPARAM    //*ADD*/DSCOSET/-1/0 $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 125\r\n$$$$                       b             b             b         o       ob\r\n$$$$ Equivalence {P } to {P }, {P } to {P }, {Y } to {Y }, and {u } to {u  }\r\n$$$$               l       l     s       s     s       s         o       o\r\n$$$$ if a scale factor is not specified on a DSFACT card.\r\n$$$$\r\nEQUIV    PL,PBL/DSCOSET/PS,PBS/DSCOSET/YS,YBS/DSCOSET/UOOV,UBOOV/   \r\n         DSCOSET $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/NDSKIP/0/0 $   \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 125,126\r\n$$$$ DSMG2 adds partitions of stiffness matrix to similar partitions of \r\n$$$$ differential stiffness matrix\r\n$$$$\r\n$$$$     b                   d\r\n$$$$   [K  ] = [K  ] + beta[K  ]\r\n$$$$     ll      aa          aa\r\n$$$$\r\n$$$$     b                   d\r\n$$$$   [K  ] = [K  ] + beta[K  ]\r\n$$$$     fs      fs          fs\r\n$$$$\r\n$$$$     b                   d\r\n$$$$   [K  ] = [K  ] + beta[K  ]\r\n$$$$     ss      ss          ss\r\n$$$$\r\n$$$$ and multiplies partitions of load vectors and displacement vectors by the \r\n$$$$ value of the differential stiffness scale factor (beta)\r\n$$$$\r\n$$$$     b                                b\r\n$$$$   {P } = beta{P }                  {P } = beta{P }\r\n$$$$     l          l                     s          s\r\n$$$$\r\n$$$$     b                                bo          o\r\n$$$$   {Y } = beta{Y }                  {u  } = beta{u }\r\n$$$$     s          s                     o           o\r\n$$$$\r\nDSMG2    MPT,KAA,KDAA,KFS,KDFS,KSS,KDSS,PL,PS,YS,UOOV/KBLL,KBFS,KBSS,   \r\n         PBL,PBS,YBS,UBOOV/S,N,NDSKIP/S,N,REPEATD/DSCOSET $ \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 125,126\r\n$$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic \r\n$$$$ stiffness matrix\r\n$$$$ \r\n$$$$     b       b    b\r\n$$$$   [K  ] = [L  ][U  ]\r\n$$$$     ll      ll   ll\r\n$$$$ \r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $  \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 127\r\n$$$$ PRTPARM prints the scaled value of the determinant of the combined \r\n$$$$ differential stiffness matrix and elastic stiffness matrix.\r\nPRTPARM  //0/*DET* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the \r\n$$$$ combined differential stiffness matrix and the elastic stiffness matrix.\r\nPRTPARM  //0/*POWER* $  \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$ SSG3 solves for displacements of independent coordinates for the value of \r\n$$$$ the differential stiffness scale factor (beta)\r\n$$$$ \r\n$$$$     b      b  -1  b\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ and calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ current differential stiffness load vector\r\n$$$$                \r\n$$$$          b      b      b    b\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                b T       b\r\n$$$$              {u } {deltaP }\r\n$$$$          b     l         l\r\n$$$$   epsilon  = --------------\r\n$$$$          l       b T  b\r\n$$$$                {P } {u }\r\n$$$$                  l    l\r\n$$$$ \r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/  \r\n         S,N,EPSI $ \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 128\r\n$$$$ Go to label LBL9D if the residual vector for current differential \r\n$$$$ stiffness load factor if not to be printed.\r\nCOND     LBL9D,IRES $   \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$ MATGPR prints the residual vector for current differential stiffness load \r\n$$$$ factor.\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $  \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n$$$$ SDR1 recovers dependent components of displacements\r\n$$$$ \r\n$$$$                                      b\r\n$$$$                                     u\r\n$$$$    b          b      ob              l        b\r\n$$$$  {u } = [G ]{u } + {u  }           {----} = {u }\r\n$$$$    o      o   l      o               b        f\r\n$$$$                                     u\r\n$$$$                                      o\r\n$$$$ \r\n$$$$     b\r\n$$$$    u       \r\n$$$$     f       b                        b          b\r\n$$$$   {---} = {u }                     {u } = [G ]{u }\r\n$$$$     b       n                        m      m   n\r\n$$$$    Y\r\n$$$$     s\r\n$$$$\r\n$$$$     b\r\n$$$$    u                 \r\n$$$$     n      b        \r\n$$$$   {--} = {u }\r\n$$$$     b      g \r\n$$$$    u                  \r\n$$$$     m\r\n$$$$\r\n$$$$ and recovers single-point forces of constraint for the current \r\n$$$$ differential stiffness scale factor\r\n$$$$\r\n$$$$     b       b      b    b      b    b\r\n$$$$   {q } = -{p } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      sf   f      ff   s\r\n$$$$\r\nSDR1     USET,,UBLV,UBOOV,YBS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/NDSKIP/\r\n         *DS1* $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 129\r\n$$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares \r\n$$$$ displacement vectors (OUBGV1) and single-point forces of constraint \r\n$$$$ (OQBG1) for output and translation components of the displacement vector \r\n$$$$ (PUBGV1) for the differential stiffness solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,   \r\n         ,,PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/   \r\n         *DS1*////COMPS $   \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OQBG1,OUBGV1,OESB1,OEFB1,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 130\r\n$$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block.\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ \r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR3,NOEED $ \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$     b\r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     ll           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KBLL,MAA,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/ \r\n         S,N,NEIGV/3 $  \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$                                      a\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi }\r\n$$$$      o      o     a               phi         f\r\n$$$$                                      o\r\n$$$$\r\n$$$$    phi       \r\n$$$$       f\r\n$$$$   {----} = {phi }                  {phi } = [G ]{phi }\r\n$$$$    phi         n                       m      m     n\r\n$$$$       s        \r\n$$$$\r\n$$$$    phi          \r\n$$$$       n         \r\n$$$$   {----} = {phi }\r\n$$$$    phi         g \r\n$$$$       m         \r\n$$$$                                                            T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KDFS,,/PHIG,,BQG/1/*REIG* $\r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 119\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ CASE copies the record corresponding to the third subcase from CASECC \r\n$$$$ into CASEXX.\r\nCASE     CASECC,/CASEXX/*TRANRESP*/KEPEAT=3/LOOP $  \r\n****CARD   1-  6,  8- 11, 13, 14, 16, 18, 19, 21, 24, 57- 62\r\n****FILE 120\r\n$$$$ SDR2 calculates element forces (OBEF1) and stresses (OBES1) and prepares \r\n$$$$ eigenvectors (OPHIG) and single-point forces of constraint (OBQG1) for \r\n$$$$ output and translation components of the eigenvectors (PPHIG) for the \r\n$$$$ normal mode solution.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,,\r\n         PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/   \r\n         *REIG*////COMPS $  \r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OBEF1L,OBES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$ Go to label P3 if no real eigenvalue solution deformed structure plots \r\n$$$$ are requested.\r\nCOND     P3,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$ PLOT generates all requested real eigenvalue solution deformed structure \r\n$$$$ and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, \r\n         OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/   \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$\r\nLABEL    P3 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*NMDS* $  \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1, 11\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*NMDS* $  \r\n****CARD   1, 11\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*NMDS* $  \r\n****CARD   1-  6,  8- 11, 21, 57- 60\r\n****FILE 117\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*NMDS* $  \r\n****CARD   1-  6,  8- 11, 21, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 133\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*NMDS* $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 24, 57\r\n****FILE 133\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 111\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*NMDS* $  \r\n****CARD   1,  9- 11, 22, 23, 59\r\n****FILE 111\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 11, 13- 16, 18, 19, 24, 57- 62\r\n****RFMT 187-189,191-198,200,201-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    FREEPT   GRDSET   GRID     GRIDB    POINTAX  PRESPT   RINGAX \r\n  1    RINGFL   SECTAX   SEQGP    SPOINT\r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3  \r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8 \r\n  2    CONROD   \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD   \r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1 \r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL \r\n  2    CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 21    DSFACT   DSCO$   \r\n 22    ASETOUT  \r\n 23    AUTOSPC  \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 57    GRAV     RFORCE  \r\n 58    TEMPLD$  \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    EIGR \r\n 62    METHOD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      KSS      MFF   \r\n106    GO       KAA      KOO      LOO   \r\n107    LLL  \r\n108    PG   \r\n109    PL       PO       PS \r\n110    RULV     RUOV     ULV      UOOV  \r\n111    PGG      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n112    OEF1L    OES1L    OESF1\r\n113    KDGG \r\n114    KDNN \r\n115    KDFF     KDFS     KDSS   \r\n116    KDAA \r\n117    EED      EQDYN    GPLD     SILD     USETD\r\n118    LAMA     MI       OEIGS    PHIA  \r\n119    BQG      PHIG\r\n120    OBEF1    OBES1    OBQG1    OPHIG    PPHIG\r\n120    OBEF1L   OBES1L  \r\n121    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n122    MAA  \r\n123    KDICT    KELM     MDICT    MELM  \r\n125    PBL      PBS      UBOOV    YBS   \r\n126    KBLL     KBFS     KBSS   \r\n127    LBLL \r\n128    UBLV     RUBLV   \r\n129    UBGV     QBG \r\n130    OQBG1    OUBGV1   OESB1    OEFB1    PUBGV1   \r\n130    OEFB1L   OESB1L  \r\n131    PLOTX1   \r\n132    OGPWG\r\n133    PLOTX2   \r\n134    PLOTX3   \r\n135    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP14\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 14 - STATIC ANALYSIS WITH CYCLIC SYMMETRY - APR. 1993 $   \r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nFILE     KKK=SAVE/PK=SAVE $ \r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nFILE     UXV=APPEND $   \r\n****CARD   1- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 18, 19, 21, 24\r\n****FILE 101,114,122,123\r\n$$$$\r\nPARAM    //*NOP*/V,Y,CYCIO=1 $  \r\n****CARD   1-  6,  8- 14, 59- 62\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 125\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,121\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,121\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,121\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n****CARD   1,  2, 13, 15, 60, 61\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,  \r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 28, 59- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $ \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been \r\n$$$$ defined. \r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,116,122\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module. \r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 116\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if no weight and balance \r\n$$$$ information is requested.\r\nCOND     ERROR2,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 122\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,116,122\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11A if no general elements exist.\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced\r\n$$$$                                         g    g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 11, 20, 21, 59\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $   \r\n****CARD   1, 11, 59\r\n****FILE 101\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if free-body supports \r\n$$$$ are present.\r\nCOND     ERROR6,REACDATA $  \r\n****CARD   1, 11, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,111-113\r\n$$$$ GPCYC prepares segment boundary table (CYCD).\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1-  4,  6,  8- 12, 22, 59\r\n****FILE 107\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if CYJOIN data is \r\n$$$$ inconsistent.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  4,  6,  8- 12, 22, 59\r\n****FILE 107\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SSG1 generates static load vectors {P }.\r\n$$$$                                      g\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/NSKIP/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 110\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$\r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$ Go to label LBL9 if no constraints are applied.\r\nCOND     LBL9,NOSET $   \r\n****CARD   1-  3,  5,  6,  8- 11, 17, 59- 62\r\n****FILE 111,112\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            a            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\n$$$$           P  \r\n$$$$            l \r\n$$$$   {P } = {--}\r\n$$$$     a     P  \r\n$$$$            r \r\n$$$$ \r\n$$$$                                                                T\r\n$$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }.\r\n$$$$                                                 r       r          l\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$ Go to label LBL9 if no omitted coordinates exist.\r\nCOND     LBL9,OMIT $\r\n****CARD   1-  3,  5,  6,  8- 11, 59- 62\r\n****FILE 112\r\n$$$$ SSG3 solves for displacements of omitted coordinates (these are not \r\n$$$$ transformed)\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LOO,KOO,PO,,,/UOOV,,RUOV,/-1/V,Y,IRES=-1 $ \r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 11, 17, 59- 62\r\n****FILE 111,112\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Equivalence {P } to {P } if symmetric components of loads have been \r\n$$$$               l       x\r\n$$$$ input.\r\nEQUIV    PL,PX/CYCIO $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 108\r\n$$$$ Go to label LBL10 if symmetric components of loads have been input.\r\nCOND     LBL10,CYCIO $  \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$ CYCT1 transforms loads on analysis points to symmetric components by the \r\n$$$$ equation\r\n$$$$\r\n$$$$   {P } = [G]{P }\r\n$$$$     x         l\r\n$$$$\r\nCYCT1    PL/PX,GCYCF/V,Y,CTYPE/*FORE*/V,Y,NSEGS=-1/S,Y,KMAX=-1/V,Y, \r\n         NLOAD=1/S,N,NOGO $ \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 108\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT1 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 108\r\n$$$$\r\nPARAM    //*ADD*/KINDEX/0/0 $   \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$ Beginning of loop for cyclic index (KINDEX) values.\r\nLABEL    LBL11 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$ CYCT2 transforms matrices and loads from symmetric components to solution \r\n$$$$ set by the equations\r\n$$$$\r\n$$$$             T               T\r\n$$$$   [K  ] = [G ][K  ][G ] + [G ][K  ][G ]\r\n$$$$     kk      1   aa   s      2   aa   2\r\n$$$$\r\n$$$$ where G  = G  (cosine) and G  = G  (sine) for rotational symmetry,\r\n$$$$        1    c               2    s\r\n$$$$\r\n$$$$ and G  = G  (Symmetric) and G  = G  (Antisymmetric) for dihedral \r\n$$$$      1    S                  2    A\r\n$$$$ \r\n$$$$ symmetry,\r\n$$$$\r\n$$$$            T          T\r\n$$$$   {P } = [G ]{P } + [G ]{P } for rotational symmetry,\r\n$$$$     k      c   c      s   s\r\n$$$$\r\n$$$$     1      T           T\r\n$$$$   {P } = [G ]{P  } + [G ]{P  }, and\r\n$$$$     k      S   cS      A   sA\r\n$$$$\r\n$$$$     2      T           T\r\n$$$$   {P } = [G ]{P  } + [G ]{P  } for dihedral symmetry.\r\n$$$$     k      A   cA      S   sS\r\n$$$$\r\nCYCT2    CYCD,KAA,,PX,,/KKK,,PK,,/*FORE*/V,Y,NSEGS/KINDEX/V,Y,  \r\n         CYCSEQ=-1/V,Y,NLOAD/S,N,NOGO $ \r\n****CARD   1-  6,  8- 12, 23, 25, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 109\r\n$$$$ RBMG2 decomposes constrained stiffness matrix for solution set\r\n$$$$ \r\n$$$$   [K  ] = [L  ][U  ]\r\n$$$$     kk      kk   kk\r\n$$$$\r\nRBMG2    KKK/LKK $  \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 117\r\n$$$$ SSG3 solves for displacements of solution set coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     k      kk     k\r\n$$$$ \r\n$$$$ and calculates residual vector (RUKV) and residual vector error ratio for \r\n$$$$ solution set coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          k      k      kk   k\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                k        k\r\n$$$$   epsilon  = -------------\r\n$$$$          k       T \r\n$$$$                {P }{u }\r\n$$$$                  k   k\r\n$$$$ \r\nSSG3     LKK,KKK,PK,,,/UKV,,RUKV,/-1/V,Y,IRES $ \r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n****FILE 118\r\n$$$$ CYCT2 finds symmetric components of displacement from solution set data \r\n$$$$ and appends to output for each KINDEX.\r\nCYCT2    CYCD,,,UKV,RUKV,/,,UXV,RUXV,/*BACK*/V,Y,NSEGS/KINDEX/  \r\n         V,Y,CYCSEQ/V,Y,NLOAD/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 23, 25, 27, 28, 59- 62\r\n****FILE 119\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****FILE 119\r\n$$$$ Go to label LBL14 if residual vectors are not to be printed.\r\nCOND     LBL14,IRES $   \r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$ MATGPR prints the residual vector for solution set coordinates (RUXV).\r\nMATGPR   GPL,USET,SIL,RUXV//*A* $   \r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$\r\nLABEL    LBL14 $\r\n****CARD   1-  6,  8- 12, 17, 27, 28, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/KINDEX/KINDEX/1 $  \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nPARAM    //*SUB*/DONE/V,Y,KMAX/KINDEX $ \r\n****CARD   1-  6,  8- 12, 23, 27, 28, 59- 62\r\n$$$$ Go to label LBL15 if all cyclic index (KINDEX) values are complete.\r\nCOND     LBL15,DONE $   \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$ Go to label LBL11 if additional cyclic index values are needed.\r\nREPT     LBL11,360 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if number of loops \r\n$$$$ exceeds 360.\r\nJUMP     ERROR1 $   \r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n$$$$ Equivalence {u } to {u } if output of symmetric components was requested.\r\n$$$$               x       l\r\n$$$$\r\nEQUIV    UXV,ULV/CYCIO $\r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 120\r\n$$$$ Go to label LBL16 if output of symmetric components was requested.\r\nCOND     LBL16,CYCIO $  \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$ CYCT1 transforms displacements from symmetric components to physical \r\n$$$$ components.\r\nCYCT1    UXV/ULV,GCYCB/V,Y,CTYPE/*BACK*/V,Y,NSEGS/V,Y,KMAX/V,Y,NLOAD/   \r\n         S,N,NOGO $ \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT1 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 120\r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$                       o\r\n$$$$   {u } = [G ]{u ] + {u }  ,\r\n$$$$     o      o   a      o\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } +[K  ]{Y }\r\n$$$$     s       s      fs   f     ss   s\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/NSKIP/\r\n         *STATICS* $\r\n****CARD   1-  6,  8- 12, 59- 62\r\n****FILE 113\r\n$$$$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$$$$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n****CARD   7\r\n****FILE 123\r\n$$$$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$$$$ multipoint constraint force balance (OQM1) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/   \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $   \r\n****CARD   7\r\n****FILE 123\r\n$$$$ OFP formats the table prepared by EQMCK and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 123\r\n$$$$\r\nLABEL    NOMPCF $   \r\n****CARD   7\r\n****FILE 123\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1)\r\n$$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), \r\n$$$$ and single-point forces of constraint (OQG1) for output and translation \r\n$$$$ components of the displacement vector (PUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ \r\n         *STATICS*////COMPS $   \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 114\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 124\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*CYCSTATICS* $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 12, 27, 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*CYCSTATICS* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 116\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*CYCSTATICS* $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*CYCSTATICS* $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1-  6,  8- 12, 22, 23, 27, 28, 59- 62\r\n****FILE 108,109,117,119\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*CYCSTATICS* $\r\n****CARD   1-  6,  8- 12, 22, 23, 27, 28, 59- 62\r\n****FILE 108,109,117,119\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*CYCSTATICS* $\r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1- 11, 13- 28, 59- 62\r\n****RFMT 187-199,201-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEGGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHBDY  \r\n  2    CHEXA1   \r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM \r\n  2    CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR \r\n  2    CTETRA   CQUAD4   CTRIA3\r\n  2    CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX\r\n  2    CTRIARG  \r\n  2    CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST \r\n  2    CWEDGE   \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PHBDY    PIHEX    PIS2D8 \r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD   \r\n  3    PSHEAR   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTORDRG  PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6 \r\n  3    PTRMEM   PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST  \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 12    CYJOIN   \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    CTYPE\r\n 23    NSEGS    KMAX     NLOAD  \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    CYCSEQ   \r\n 26    OPT      GRDEQ   \r\n 27    LOOP$\r\n 28    LOOP1$   \r\n 59    DEFORM   DEFORM$  LOAD$    RFORCE$  SPCD \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   QBDY1  \r\n 60    QBDY2    QHBDY    QVECT    QVOL     SLOAD\r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    CYCD \r\n108    GCYCF    PX  \r\n109    KKK      PK  \r\n110    PG   \r\n111    PL       PO       PS       QR\r\n112    RUOV     UOOV\r\n113    PGG      QG       UGV\r\n114    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n114    OEF1L    OES1L    OESF1\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n116    KDICT    KELM     MDICT    MELM  \r\n117    LKK  \r\n118    RUKV     UKV \r\n119    RUXV     UXV \r\n120    ULV      GCYCB   \r\n121    PLOTX1   \r\n122    OGPWG\r\n123    OQM1 \r\n124    PLOTX2   \r\n125    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP15\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 15 NORMAL MODES ANALYSIS WITH CYCLIC SYMMETRY - APR 1993 $\r\n****CARD   1- 15, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 15, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1- 12, 14, 15, 18, 19, 21, 24, 61, 62\r\n****FILE 101,109,114,120,121\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 115\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 116,119\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1//$  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 15, 18- 24, 61, 62\r\n****FILE  97\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module. \r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ \r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/   \r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 24\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced\r\n$$$$                                         g    g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 11, 20, 21\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n$$$$\r\nPARAM    //*NOT*/REACDATA/REACT $   \r\n****CARD   1, 11\r\n****FILE 101\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if free-body supports \r\n$$$$ are present.\r\nCOND     ERROR4,REACDATA $  \r\n****CARD   1, 11\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO/OMIT/KFS,QG/SINGLE $   \r\n****CARD   1,  9- 11\r\n****FILE 103,105,106,113\r\n$$$$ GPCYC prepares segment boundary table (CYCD).\r\nGPCYC    GEOM4,EQEXIN,USET/CYCD/V,Y,CTYPE/S,N,NOGO $\r\n****CARD   1,  9- 12, 22\r\n****FILE 107\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if CYJOIN data is \r\n$$$$ inconsistent.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1,  9- 12, 22\r\n****FILE 107\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ]\r\n$$$$               gg       nn        gg       nn\r\n$$$$ if no multipoint constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ]\r\n$$$$               nn       ff        nn       ff\r\n$$$$ if no single-point constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3  $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [M  ] to [M  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$                                                         \r\n$$$$ and performs matrix reduction                           \r\n$$$$                                                         \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]\r\n$$$$     aa      aa      oa   o      o   oa      o   oo   o\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block.\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ \r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ CYCT2 transforms matrices from symmetric components to solution \r\n$$$$ set by the equations\r\n$$$$\r\n$$$$             T               T\r\n$$$$   [K  ] = [G ][K  ][G ] + [G ][K  ][G ]\r\n$$$$     kk      1   aa   1      2   aa   2\r\n$$$$\r\n$$$$             T               T\r\n$$$$   [M  ] = [G ][M  ][G ] + [G ][M  ][G ]\r\n$$$$     kk      1   aa   1      2   aa   2\r\n$$$$\r\n$$$$ where G  = G  (cosine) and G  = G  (sine) for rotational symmetry,\r\n$$$$        1    c               2    s\r\n$$$$\r\n$$$$ and G  = G  (Symmetric) and G  = G  (Antisymmetric) for dihedral \r\n$$$$      1    S                  2    A\r\n$$$$ \r\n$$$$ symmetry.\r\nCYCT2    CYCD,KAA,MAA,,,/KKK,MKK,,,/*FORE*/V,Y,NSEGS=-1/V,Y,KINDEX=-1/  \r\n         V,Y,CYCSEQ=-1/1/S,N,NOGO $ \r\n****CARD   1-  6,  8- 12, 23, 61\r\n****FILE 108\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 23, 61\r\n****FILE 108\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     kk           kk   k\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   kk     k\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KKK,MKK,,,EED,,CASECC/LAMK,PHIK,MI,OEIGS/*MODES*/S,N,NEIGV $   \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$ Go to label FINIS and make normal exit if no eigenvalues were found.\r\nCOND     FINIS,NEIGV $  \r\n****CARD   1- 12, 14, 18, 19, 23, 24, 61, 62\r\n****FILE 112-114,121,122\r\n$$$$ OFP formats the eigenvalues (LAMK) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMK,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 109\r\n$$$$ CYCT2 finds symmetric components of eigenvectors from solution set \r\n$$$$ eigenvectors.\r\nCYCT2    CYCD,,,,PHIK,LAMK/,,,PHIA,LAMA/*BACK*/V,Y,NSEGS/V,Y,KINDEX/\r\n         V,Y,CYCSEQ/1/S,N,NOGO $\r\n****CARD   1-  6,  8- 12, 14, 23, 24, 61, 62\r\n****FILE 112\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if a CYCT2 error was \r\n$$$$ found.\r\nCOND     ERROR5,NOGO $  \r\n****CARD   1-  6,  8- 12, 14, 23, 24, 61, 62\r\n****FILE 112\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                   phi\r\n$$$$                                      a\r\n$$$$  {phi } = [G ]{phi }             {----} = {phi }\r\n$$$$      o      o     a               phi         f\r\n$$$$                                      o\r\n$$$$\r\n$$$$    phi       \r\n$$$$       f\r\n$$$$   {----} = {phi }                  {phi } = [G ]{phi }\r\n$$$$    phi         n                       m      m     n\r\n$$$$       s        \r\n$$$$\r\n$$$$    phi          \r\n$$$$       n         \r\n$$$$   {----} = {phi }\r\n$$$$    phi         g \r\n$$$$       m         \r\n$$$$                                                            T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $  \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 113\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$$$$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n****CARD   7\r\n****FILE 121\r\n$$$$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$$$$ multipoint constraint force balance (OQM1) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $  \r\n****CARD   7\r\n****FILE 121\r\n$$$$ OFP formats the table prepared by EQMCK and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 121\r\n$$$$\r\nLABEL    NOMPCF $   \r\n****CARD   7\r\n****FILE 121\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares \r\n$$$$ eigenvectors (OPHIG) and single-point forces of constraint (OQG1) for \r\n$$$$ output and translation components of the eigenvectors (PPHIG). \r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, \r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ \r\n         *REIG*////COMPS $  \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 114\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 14, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*CYCMODES* $  \r\n****CARD   1-  3,  5,  8, 24\r\n****FILE 118\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*CYCMODES* $  \r\n****CARD   1,  9- 11, 61\r\n****FILE 111\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*CYCMODES* $  \r\n****CARD   1,  9- 11, 20, 21\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1,  9- 11\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*CYCMODES* $  \r\n****CARD   1,  9- 11\r\n****FILE 101\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 61, 62\r\n****FILE 107,108,112\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*CYCMODES* $  \r\n****CARD   1-  6,  8- 12, 14, 22- 24, 61, 62\r\n****FILE 107,108,112\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n****RFMT 187-200,202-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*CYCMODES* $  \r\n****CARD   1,  2,  4-  6,  8, 16, 24\r\n****FILE  97\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1- 14, 16, 18- 24, 61, 62\r\n****RFMT 187-200,202-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     AXSLOT   CELAS1   CELAS2   CELAS3   CELAS4 \r\n  1    CMASS1   \r\n  1    CMASS2   CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C \r\n  1    CORD2R   \r\n  1    CORD2S   FREEPT   GRDSET   GRID     GRIDB    GRIDF    GRIDS  \r\n  1    POINTAX  \r\n  1    PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SLBDY    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8  \r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2   CIHEX1 \r\n  2    CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1  CQDMEM2\r\n  2    CQDPLT   CQUAD4   CTRIA3\r\n  2    CQUAD1   CQUAD2   CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA \r\n  2    CTORDRG  \r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS \r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 12    CYJOIN   \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    CTYPE\r\n 23    NSEGS    KINDEX   CYCSEQ \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    OPT      GRDEQ   \r\n 61    EIGR \r\n 62    METHOD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    CYCD \r\n108    KKK      MKK \r\n109    LAMK     PHIK     MI       OEIGS \r\n111    EED      EQDYN    GPLD     SILD     USETD\r\n112    LAMA     PHIA\r\n113    PHIG     QG  \r\n114    OEF1     OES1     OPHIG    OQG1     PPHIG\r\n114    OEF1L    OES1L    OESF1\r\n115    BGPDP    SIP \r\n116    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n117    MAA  \r\n118    KDICT    KELM     MDICT    MELM  \r\n119    PLOTX1   \r\n120    OGPWG\r\n121    OQM1 \r\n122    PLOTX2   \r\n$*  \r\n=PAGE=\r\nDISP16\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 16 STATIC AEROTHERMOELASTIC DESIGN/ANALYSIS - APR. 1993 $ \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1- 11, 14, 15, 19, 22, 23, 24, 26, 59- 62\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/S,N, \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if there is no Grid \r\n$$$$ Point Definition Table.\r\nCOND     ERROR3,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 157\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PARAMR sets CSIGN=(SIGN, 0.0), where SIGN = +1.0 for analysis type run \r\n$$$$ and SIGN = -1.0 for design type run.\r\nPARAMR   //*COMPLEX*//V,Y,SIGN/0.0/CSIGN $  \r\n****CARD  26\r\n****FILE 117\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/S,N, \r\n         JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 135\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,,,,,/PLOTX1/ \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 135\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,135\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n****CARD   1,  2, 13, 15, 60, 61\r\n****FILE  96, 99\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $   \r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  7, 13\r\n****FILE  97\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1-  8, 13\r\n****FILE  97, 99\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  4,  6\r\n****FILE  98\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module. \r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y, \r\n         CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,\r\n         CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/   \r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  8\r\n****FILE 123\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  5,  7,  8, 14, 24\r\n****FILE  99\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR4,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n$$$$\r\nLABEL    LBL1 $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  7,  8, 14, 15, 24\r\n****FILE 136\r\n****FILE  97, 99\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 11\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced\r\n$$$$                                         g    g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1,  4,  6,  8- 11, 59\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1,  4,  6,  8- 11, 59\r\n****FILE 101\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR5,NOL $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$ Go to label LBL4D if no free-body supports are supplied.\r\nCOND     LBL4D,REACT $  \r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2.\r\nJUMP     ERROR2 $   \r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG/SINGLE/\r\n         PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $   \r\n****CARD   1,  9- 11, 59\r\n****FILE 103,105,106,109-111,115,139,140,147\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF2 $   \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$ \r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted constraints exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 aa      ll   ll\r\n$$$$\r\nRBMG2    KAA/LLL $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$                                                      NA\r\n$$$$ SSG1 generates non-aerodynamic static load vectors {P  }.\r\n$$$$                                                      g\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PGNA,,,,/LUSET/1/COMPS $   \r\n****CARD   1-  3,  5-  8, 13, 59- 62\r\n****FILE 132\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $   \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 124\r\n$$$$ Go to label NOAL if no aerodynamic loads exist.\r\nCOND     NOAL,ALOAD $   \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 124\r\n$$$$ ALG generates aerodynamic load data.\r\nALG      CASECC,,EQEXIN,,ALGDB,,/CASECCA1,GEOM3A1/S,Y,APRESS/S,Y,   \r\n         ATEMP/-1/-1/V,Y,IPRTCI/S,N,IFAIL $ \r\n****CARD   1-  3,  5-  8, 13, 26, 27, 59- 62\r\n****FILE 124\r\n$$$$\r\nCOND     FINIS,IFAIL $  \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $   \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$\r\nCOND     NOAL,ALOAD $   \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$\r\nGP3      GEOM3A1,EQEXIN,GEOM2/SLTA1,GPTTA1/NOGRAV $ \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 125\r\n$$$$                                          A\r\n$$$$ SSG1 generates aerodynamic load vector {P }.\r\n$$$$                                          g\r\n$$$$ \r\nSSG1     SLTA1,BGPDT,CSTM,SIL,EST,MPT,GPTTA1,EDT,MGG,CASECCA1,DIT,  \r\n         PCOMPS/PGA1,,,,/LUSET/1/COMPS $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 126\r\n$$$$       NA        A\r\n$$$$ Add {P  } and {P } to form total load vector {P }.\r\n$$$$       g         g                              g\r\n$$$$\r\nADD      PGNA,PGA1/PG/(1.0,0.0)/(1.0,0.0) $ \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    NOAL $ \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$                       NA\r\n$$$$ Equivalence {P } to {P  } if no aerodynamic loads exist.\r\n$$$$               g       g\r\n$$$$\r\nEQUIV    PGNA,PG/ALOAD $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$\r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$            \r\n$$$$           P\r\n$$$$            a                    T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $  \r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5- 11, 13, 26, 59- 62\r\n****FILE 109\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      aa     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      aa   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         1/S,N,EPSI $   \r\n****CARD   1- 11, 13, 26, 59- 62\r\n****FILE 110\r\n****RFMT 188\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1- 11, 13, 17, 26, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$                       o\r\n$$$$   {u } = [G ]{u ] + {u }  ,\r\n$$$$     o      o   l      o\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } +[K  ]{Y }\r\n$$$$     s       s      fs   f     ss   s\r\n$$$$\r\nSDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $   \r\n****CARD   1- 11, 13, 26, 59- 62\r\n****FILE 111\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1)\r\n$$$$ and prepares load vectors (OPG1), displacement vectors (OUGV1), \r\n$$$$ and single-point forces of constraint (OQG1) for output and translation \r\n$$$$ components of the displacement vector (PUGV1) for the static solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, \r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ \r\n         *DS0*////COMPS $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ \r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ Go to label P2 if no deformed static solution structure plots are \r\n$$$$ requesed.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$ PLOT generates all requested static solution deformed structure and \r\n$$$$ contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ static solution deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 137\r\n$$$$ TA1 generates element tables for use in differential stiffness matrix \r\n$$$$ assembly.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/  \r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 138\r\n$$$$                                                 d\r\n$$$$ DSMG1 generates differential stiffness matrix [K  ].\r\n$$$$                                                 gg\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/   \r\n         DSCOSET$   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 113\r\n$$$$ Go to label NOAL0 if no aerodynamic loads exist.\r\nCOND     NOAL0,ALOAD $  \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$               NA\r\n$$$$ Equivalence {P  } to {P } to remove aerodynamic loads from total load\r\n$$$$               g        g\r\n$$$$ vector before entering the differential stiffness loop. New aerodynamic \r\n$$$$ loads will be generated in the loop.\r\nEQUIV    PGNA,PG $  \r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nLABEL    NOAL0 $\r\n****CARD   1-  3,  5-  8, 13, 26, 59- 62\r\n****FILE 108\r\n$$$$\r\nPARAM    //*ADD*/SHIFT/-1/0 $   \r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER=1 $  \r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAMR   //*ADD*/DSEPSI/0.0/0.0 $   \r\n****CARD   1- 11, 26, 59- 62\r\n$$$$\r\nPARAML   YS//*NULL*////NOYS $   \r\n****CARD   1- 11, 26, 59- 62\r\n$$$$ Beginning of outer (stiffness adjustment) loop for differential stiffness \r\n$$$$ iteration.\r\nLABEL    OUTLPTOP $ \r\n****CARD   1- 11, 26, 59- 62\r\n$$$$ Equivalence {P } to {P  } if no enforced displacements are specified.\r\n$$$$               g       g1\r\n$$$$\r\nEQUIV    PG,PG1/NOYS $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nPARAM    //*KLOCK*/TO $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF2 $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$ Go to label LBL2D if no multipoint constraints exist.\r\nCOND     LBL2D,MPCF2 $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$ MCE2 partitions differential stiffness matrix\r\n$$$$ \r\n$$$$           +_d   d +\r\n$$$$           |K  |K  |\r\n$$$$     d     | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           + mn| mm+\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$     d      _d       T   d       d           T   d\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$ Go to label LBL3D if no single-point constraints exist.\r\nCOND     LBL3D,SINGLE $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           + d   d +\r\n$$$$           |K  |K  |\r\n$$$$     d     | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           + sf| ss+\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 115\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$ Go to label LBL5D if no omitted coordinates exist.\r\nCOND     LBL5D,OMIT $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$ SMP2 partitions constrained differential stiffness matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     d      _d       d             T  d         T  d\r\n$$$$   [K  ] = [K  ] + [K  ][G ] + [G ] [K  ] + [G ] [K  ][G ]\r\n$$$$     aa      aa      oa   o      o    oa      o    oo   o\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 116\r\n$$$$                 d             b\r\n$$$$ ADD [K  ] and [K  ] to form [K  ].\r\n$$$$       aa        aa            ll\r\n$$$$\r\nADD      KAA,KDAA/KBLL/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 117\r\n$$$$                 phi            beta\r\n$$$$ ADD [K  ] and [K   ] to form [K    ].\r\n$$$$       fs        fs             fs\r\n$$$$\r\nADD      KFS,KDFS/KBFS/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 139\r\n$$$$                 d             b\r\n$$$$ ADD [K  ] and [K  ] to form [K  ].\r\n$$$$       ss        ss            ss\r\n$$$$\r\nADD      KSS,KDSS/KBSS/(1.0,0.0)/CSIGN $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 140\r\n$$$$ Go to label PGOK if no enforced displacements are specified.\r\nCOND     PGOK,NOYS $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111,141-145\r\n$$$$                    b\r\n$$$$ MPYAD multiplies [K  ] and {Y } to form {P  }.\r\n$$$$                    ss        s            ss\r\n$$$$\r\nMPYAD    KBSS,YS,/PSS/0 $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 141\r\n$$$$                    b\r\n$$$$ MPYAD multiplies [K  ] and {Y } to form {P  }.\r\n$$$$                    fs        s            fs\r\n$$$$\r\nMPYAD    KBFS,YS,/PFS/0 $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 142\r\n$$$$ UMERGE combines {P  } and {P  } to form {P }.\r\n$$$$                   fs        ss            n\r\n$$$$\r\nUMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 143\r\n$$$$                       x\r\n$$$$ Equivalence {P } to {P } if no multipoint constraints exist.\r\n$$$$               n       g\r\n$$$$\r\nEQUIV    PN,PGX/MPCF2 $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$ Go to label LBL6D if no multipoint constraints exist.\r\nCOND     LBL6D,MPCF2 $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$                               x\r\n$$$$ UMERGE expands {P } to form {P }.\r\n$$$$                  n            g\r\n$$$$\r\nUMERGE   USET,PN,/PGX/*G*/*N*/*M* $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$\r\nLABEL    LBL6D $\r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 144\r\n$$$$        x\r\n$$$$ ADD -{P } and {P } to form {P  }.\r\n$$$$        g        g            gg\r\n$$$$\r\nADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $  \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 145\r\n$$$$ Equivalence {P  } to {P  }.\r\n$$$$               gg       g1\r\n$$$$\r\nEQUIV    PGG,PG1/ALWAYS $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    PGOK $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 111,141-145\r\n$$$$ ADD {P  } and nothing to create {P  }.\r\n$$$$       g1                          go\r\n$$$$\r\nADD      PG1,/PG0/(1.0,0.0) $   \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 146\r\n$$$$                A\r\n$$$$ Copy {u } to {u } to initialize aerodynamic displacements.\r\n$$$$        g       g\r\n$$$$\r\nCOPY     UGV/AUGV $ \r\n****CARD   1- 11, 26, 59- 62\r\n****FILE 133\r\n$$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic \r\n$$$$ stiffness matrix\r\n$$$$                                                                  \r\n$$$$     b       b    b                                               \r\n$$$$   [K  ] = [L  ][U  ]\r\n$$$$     ll      ll   ll  \r\n$$$$ \r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$ PRTPARM prints the scaled value of the determinant of the combined \r\n$$$$ differential stiffness matrix and elastic stiffness matrix.\r\nPRTPARM  //0/*DET* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the \r\n$$$$ combined differential stiffness matrix and elastic stiffness matrix.\r\nPRTPARM  //0/*POWER* $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 118\r\n$$$$ Beginning of inner (load correction) loop for differential stiffness \r\n$$$$ iteration.\r\nLABEL    INLPTOP $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*KLOCK*/TI $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ Go to label NOAL1 if no aerodynamic loads exist.\r\nCOND     NOAL1,ALOAD $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 127-130\r\n$$$$ ALG generates aerodynamic load data.\r\nALG      CASECC,EDT,EQEXIN,AUGV,ALGDB,CSTM,BGPDT/CASECCA,GEOM3A/S,Y,\r\n         APRESS/S,Y,ATEMP/-1/-1/V,Y,IPRTCL/S,N,IFAIL/V,Y,SIGN/V,\r\n         Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $\r\n****CARD   1- 11, 22, 23, 26, 27, 59- 62\r\n****FILE 127\r\n$$$$ Go to label DONE if ALG fails to converge while generating aerodynamic \r\n$$$$ load data.\r\nCOND     DONE,IFAIL $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*MPY*/V,Y,IPRTCL/0 $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*AND*/ALOAD/V,Y,APRESS/V,Y,ATEMP $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nCOND     NOAL1,ALOAD $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 128-130\r\n$$$$\r\nGP3      GEOM3A,EQEXIN,GEOM2/SLTA,GPTTA/NOASL/NOGRAV/NOATL $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 128\r\n$$$$                                          A\r\n$$$$ SSG1 generates aerodynamic load vector {P }.\r\n$$$$                                          g\r\n$$$$\r\nSSG1     SLTA,BGPDT,CSTM,SIL,EST,MPT,GPTTA,EDT,MGG,CASECCA,DIT,PCOMPS/  \r\n         PGA,,,,/LUSET/1/COMPS $ $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 129\r\n$$$$                A\r\n$$$$ ADD {P  } to {P } to form total load vector {P  }.\r\n$$$$       g1       g                              g2\r\n$$$$\r\nADD      PG1,PGA/PG2/(1.0,0.0)/(1.0,0.0) $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$\r\nLABEL    NOAL1 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 127-130\r\n$$$$\r\nEQUIV    PG1,PG2/ALOAD $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$            _b\r\n$$$$            P\r\n$$$$             n      b     _b      T   b\r\n$$$$   {P  } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g1      b      n      n      m   m\r\n$$$$            P \r\n$$$$             m\r\n$$$$ \r\n$$$$           _b\r\n$$$$           P\r\n$$$$     b      f            _b      d\r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n      b      f      f      fs   s\r\n$$$$           P \r\n$$$$            s\r\n$$$$ \r\n$$$$           _b\r\n$$$$           P\r\n$$$$     b      a             b      T   b\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f      b      l      a      o   o\r\n$$$$           P \r\n$$$$            o\r\n$$$$\r\nSSG2     USET,GM,YS,KDFS,GO,,PG2/,PBO,PBS,PBL $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 147\r\n$$$$ SSG3 solves for displacements of independent coordinates for current \r\n$$$$ differential stiffness load vector\r\n$$$$ \r\n$$$$     b      b  -1  b\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ and calculates residual vector (RBULV) and residual vector error ratio for \r\n$$$$ differential stiffness load vector\r\n$$$$ \r\n$$$$          b      b      b    b\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                b T       b\r\n$$$$              {u } {deltaP }\r\n$$$$          b     l         l\r\n$$$$   epsilon  = --------------\r\n$$$$          l       b T  b\r\n$$$$                {P } {u }\r\n$$$$                  l    l\r\n$$$$\r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,  \r\n         EPSI $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 119\r\n$$$$ Go to label LBL9D if the residual vector for current differential \r\n$$$$ stiffness solution is not to be printed.\r\nCOND     LBL9D,IRES $   \r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n$$$$ MATGPR prints the residual vector for current differential stiffness \r\n$$$$ solution.\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $  \r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1- 11, 17, 22, 23, 26, 59- 62\r\n****FILE 130\r\n$$$$ SDR1 recovers dependent displacements for the current differential \r\n$$$$ stiffness solution\r\n$$$$ \r\n$$$$                                      b\r\n$$$$                                     u\r\n$$$$    b          b      ob              l\r\n$$$$  {u } = [G ]{u } + {u  }           {----} = {u }\r\n$$$$    o      o   l      o               b        f\r\n$$$$                                     u\r\n$$$$                                      o\r\n$$$$ \r\n$$$$     b\r\n$$$$    u       \r\n$$$$     f       b                        b          b\r\n$$$$   {---} = {u }                     {u } = [G ]{u }\r\n$$$$     b       n                        m      m   n\r\n$$$$    Y\r\n$$$$     s\r\n$$$$\r\n$$$$     b\r\n$$$$    u                 \r\n$$$$     n      b        \r\n$$$$   {--} = {u }\r\n$$$$     b      g \r\n$$$$    u                  \r\n$$$$     m\r\n$$$$\r\n$$$$ and recovers single-point forces of constraint for the current \r\n$$$$ differential stiffness solution\r\n$$$$\r\n$$$$     b       b      b    b      b    b\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      sf   f      ff   s\r\n$$$$ \r\nSDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 148\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Go to label NOAL2 if no aerodynamic loads exist.\r\nCOND     NOAL2,ALOAD $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$               B        A\r\n$$$$ Equivalence {u } and {u }.\r\n$$$$               g        g\r\n$$$$\r\n$$$$\r\nEQUIV    UBGV,AUGV $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$\r\nLABEL    NOAL2 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 133\r\n$$$$        b                     d\r\n$$$$ ADD -{U } and {U } to form {U }.\r\n$$$$        g        g            g\r\n$$$$\r\nADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 149\r\n$$$$                                                     d\r\n$$$$ DSMG1 generates differential stiffness matrix [delta  ].\r\n$$$$                                                     gg\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/V,N, \r\n         DSCOSET $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 150\r\n$$$$ MPYAD forms the load vector for inner loop iteration\r\n$$$$\r\n$$$$                    d     b\r\n$$$$   {P   } = [delta K  ] {U } + {P  }.\r\n$$$$     g              gg    g      go\r\n$$$$      I1\r\n$$$$ \r\nMPYAD    DKDGG,UBGV,PG0/PGI1/0 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 151\r\n$$$$                  A\r\n$$$$ ADD {P   } and {P } to form {P   }.\r\n$$$$       g          g            g\r\n$$$$        I1                      I2\r\n$$$$ \r\nADD      PGI1,PGA/PGI2/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 134\r\n$$$$ DSCHK performs differential stiffness convergence checks.\r\nDSCHK    PG2,PGI2,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/   \r\n         TO/TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ Go to label DONE if differential stiffness iteration is complete.\r\nCOND     DONE,DONE $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ Go to label SHIFT if additional differential stiffness matrix changes are \r\n$$$$ necessary for further iteration.\r\nCOND     SHIFT,SHIFT $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ Break the previous equivalence of {P } and {P  }.\r\n$$$$                                     g        g1\r\n$$$$\r\nEQUIV    PG,PG1/NEVER $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111\r\n$$$$ Equivalence {P   } to {P  }.\r\n$$$$               g         g1\r\n$$$$                I1\r\n$$$$\r\nEQUIV    PGI1,PG1/ALWAYS $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111\r\n$$$$ Break the previous equivalence of {P  } to {P   }.\r\n$$$$                                     g1       g\r\n$$$$                                               I1\r\n$$$$\r\nEQUIV    PG1,PGI1/NEVER $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 151\r\n$$$$ Go to label INLPTOP for an additional inner loop differential stiffness \r\n$$$$ iteration.\r\nREPT     INLPTOP,1000 $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ TABPT table prints vectors {P   }, {P  }, and {P }.\r\n$$$$                              g       g1         g\r\n$$$$                               I1\r\n$$$$\r\nTABPT    PGI1,PG1,PG,,// $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    SHIFT $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$              d         d             d\r\n$$$$ ADD -[delta K  ] and [K  ] to form [K   ].\r\n$$$$              gg        gg            gg1\r\n$$$$ \r\nADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 152\r\n$$$$               b                d         d\r\n$$$$ Equivalence {U } to {U } and [K   ] to [K  ].\r\n$$$$               g       g        gg1       gg\r\n$$$$\r\nEQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 111,113\r\n$$$$                                     d        d                  b\r\n$$$$ Break the previous equivalence of [K  ] to [K   ] and {U } to {U }.\r\n$$$$                                     gg       gg1        g       g\r\n$$$$\r\nEQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 120,152\r\n$$$$ Go to label OUTLPTOP for an additional outer loop differential stiffness \r\n$$$$ iteration.\r\nREPT     OUTLPTOP,1000 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$                      d       d\r\n$$$$ TABPT table prints [K   ], [K  ], and {u }.\r\n$$$$                      gg1     gg         g\r\n$$$$\r\nTABPT    KDGG1,KDGG,UGV,,// $   \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nLABEL    DONE $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$\r\nPARAM    //*NOP*/V,Y,KTOUT=-1 $ \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$ Go to label JMPKTOUT if the total stiffness matrix [KTOTAL] is not to be \r\n$$$$ saved on an external file.\r\nCOND     JMPKTOUT,KTOUT $   \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$                 d\r\n$$$$ ADD [K  ] and [K  ] to form [KTOTAL].\r\n$$$$       gg        gg\r\n$$$$\r\nADD      KGG,KDGG/KTOTAL/(1.0,0.0)/CSIGN $  \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$ OUTPUT1 outputs [KTOTAL] to an external file.\r\nOUTPUT1  KTOTAL,,,,//C,Y,LOCATION=-1/C,Y,INPTUNIT=0 $   \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$ OUTPUT1 prints the names of the data blocks on the external file.\r\nOUTPUT1, ,,,,//-3/0 $   \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n$$$$\r\nLABEL    JMPKTOUT $ \r\n****CARD   1- 11, 22, 23, 26, 28, 59- 62\r\n****FILE 153\r\n$$$$ ALG generates final aerodynamic results and generates GRID and STREAML2 \r\n$$$$ bulk data cards on the system punch file, if requested.\r\nALG      CASECC,EDT,EQEXIN,UBGV,ALGDB,CSTM,BGPDT/CASECCB,GEOM3B/\r\n         -1/-1/V,Y,STREAML/V,Y,PGEOM/V,Y,IPRTCF/S,N,IFAIL/V,Y,SIGN/ \r\n         V,Y,ZORIGN/V,Y,FXCOOR/V,Y,FYCOOR/V,Y,FZCOOR $  \r\n****CARD   1- 11, 22, 23, 26, 27, 59- 62\r\n****FILE 131\r\n$$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares \r\n$$$$ displacement vectors (OUBGV1), and single-point forces of constraint \r\n$$$$ (OQBG1) for output and translation components of the displacement vector \r\n$$$$ (PUBGV1) for the differential stiffness  solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, \r\n         PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ \r\n         *DS1*////COMPS $   \r\n****CARD  18, 19\r\n****FILE 121\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$ SDR1 recovers dependent displacements after differential stiffness loop \r\n$$$$ for grid point force balance.\r\nSDR1     USET,PG2,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/AUBGV,APGG,AQBG/\r\n         1/*DS1* $  \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 154\r\n$$$$ GPFDR calculates for requested sets the grid point force balance and \r\n$$$$ element strain energy for output.\r\nGPFDR    CASECC,AUBGV,KELM,KDICT,ECT,EQEXIN,GPECT,APGG,AQBG/ONRGY1, \r\n         OGPFB1/*STATICS* $ \r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 155\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n****FILE 123\r\n$$$$ OFP formats the tables prepared by GPFDR and places them on the system \r\n$$$$ output file for printing.\r\nOFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $\r\n****CARD   1- 11, 22, 23, 26, 59- 62\r\n$$$$ Go to label P3 if no differential stiffness solution deformed plots are \r\n$$$$ requested.\r\nCOND     P3,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$ PLOT generates all requested differential stiffness solution deformed \r\n$$$$ structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,\r\n         OESB1,OESB1L,ONRGY1/PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFLG/ \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ differential stiffness solution deformed plot generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   7\r\n****CARD  18\r\n$$$$\r\nLABEL    P3 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 156\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*ASTA* $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*ASTA* $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*ASTA* $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   8\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*ASTA* $  \r\n****SBST   8\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*ASTA* $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1- 19, 22- 24, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    FREEPT   GRDSET   GRID     GRIDB    POINTAX  PRESPT   RINGAX \r\n  1    RINGFL   \r\n  1    SECTAX   SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CFLUID2  CFLUID3\r\n  2    CFLUID4  \r\n  2    CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CONROD   CQDMEM \r\n  2    CQDMEM1  \r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX\r\n  2    CTRIARG  CQUAD4   CTRIA3\r\n  2    CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST \r\n  2    CWEDGE   \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PIHEX    PQDMEM   PQDMEM1  PQDMEM2\r\n  3    PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR   PTORDRG  PTRAPAX\r\n  3    PTRBSC   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT   PTRPLT1\r\n  3    PTRSHL   PTUBE    PTWIST \r\n  4    GENEL\r\n  5    CONM1    CONM2   \r\n  6    PELAS\r\n  7    PMASS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   \r\n 12    SUPAX    SUPORT  \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 26    APRESS   \r\n 26    ATEMP\r\n 26    DTI  \r\n 26    FXCOOR   FYCOOR   FZCOOR \r\n 26    PGEOM\r\n 26    SIGN     STREAML  STREAML1   \r\n 26    ZORIGN   \r\n 27    KTOUT\r\n 59    DEFORM   DEFORM$  LOAD$    SPCD     RFORCE$  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    LLL  \r\n108    PG   \r\n109    PL       PO       PS \r\n110    RULV     RUOV     ULV      UOOV  \r\n111    PG1      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n112    OEF1L    OES1L\r\n113    KDGG \r\n114    KDNN \r\n115    KDFF     KDFS     KDSS   \r\n116    KDAA \r\n117    KBLL \r\n118    LBLL \r\n119    UBLV     RUBLV   \r\n120    QBG      UBGV\r\n121    OEFB1    OESB1    OQBG1    OUBGV1   PUBGV1   \r\n121    OEFB1L   OESB1L  \r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n123    KDICT    KELM     MDICT    MELM  \r\n124    CASECCA1 GEOM3A1 \r\n125    SLTA1    GPTTA1  \r\n126    PGA1 \r\n127    CASECCA  GEOM3A  \r\n128    SLTA     GPTTA   \r\n129    PGA  \r\n130    PG2  \r\n131    CASECCB  GEOM3B  \r\n132    PGNA \r\n133    AUGV \r\n134    PGI2 \r\n135    PLOTX1   \r\n136    OGPWG\r\n137    PLOTX2   \r\n138    ECPT     GPCT\r\n139    KBFS \r\n140    KBSS \r\n141    PSS  \r\n142    PFS  \r\n143    PN   \r\n144    PGX  \r\n145    PGG  \r\n146    PG0  \r\n147    PBO      PBS      PBL\r\n148    UBGV     QBG \r\n149    DUGV \r\n150    DKDGG\r\n151    PGI1 \r\n152    KDGG1\r\n153    KTOTAL   \r\n154    AUBGV    APGG     AQBG   \r\n155    ONRGY1   OGPFB1  \r\n156    PLOTX3   \r\n157    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP17\r\n\r\nAPR.93  \r\n$\r\n$ NOTE: The DMAP sequence for static analysis involves use of parameters \r\n$ INTERACT and SYS21. These parameters are of relevance only when the \r\n$ primary purpose of the user is to make interactive restart runs. (The two \r\n$ parameters are then specified via the PARAM card in the bulk data deck.) \r\n$ However, these two parameters are not required for normal non-interactive \r\n$ batch runs. Consequently, the rigid format DMAP listing shown here was \r\n$ generated by not specifying those parameters (via the PARAM bulk data \r\n$ card). As a result, the COMPOFF and COMPON instructions using those  \r\n$ parameters assume a value of 0 for these parameters (see Volume I, \r\n$ Section 5.7). \r\nBEGIN    DISP 01 - STATIC ANALYSIS - APR. 1993 $   \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nFILE     OPTP2=SAVE/EST1=SAVE $ \r\n*     SBST   9\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nFILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE $ \r\n*     SBST   1,  3\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nSETVAL   //V,Y,INTERACT/0/V,Y,SYS21/0 $ \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n*     CARD   1-  3,  5- 10, 14, 15, 18, 19, 22- 24, 28, 61\r\n*     FILE 101,114,119,121-125,127\r\n*     PHS1   I1   \r\n$ COMPOFF causes the DMAP compiler to compile the next instruction as the \r\n$ parameter INTERACT is 0. (See NOTE above.)\r\nCOMPOFF  1,INTERACT $   \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPRECHK   ALL $  \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$ COMPON causes the DMAP compiler to skip the compilation of the next \r\n$ instruction as the parameter INTERACT is 0. (See NOTE above.) \r\nCOMPON   1,INTERACT $   \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPRECHK   BGPDT,EQEXIN,SIL,SIP,ECT,GPECT,\r\n         OUGV1,OES1,OEF1,OPG1,OQG1,PUGV1,   \r\n         OUGV2,OES2,OEF2,OPG2,OQG2,DUMMY,   \r\n         OES1L,OEF1L,ONRGY1 $   \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$ COMPOFF causes the DMAP compiler to compile all of the following \r\n$ instructions through LABEL LBLINT02 as the parameter SYS21 is 0. (See \r\n$ NOTE above.)\r\nCOMPOFF  LBLINT02,SYS21 $    \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$ point locations, and tables relating the internal and external grid point \r\n$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/ALWAYS=-1 $ \r\n*     CARD   1\r\n*     FILE  94\r\n*     PHS2   D5   \r\n$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n*     CARD   1\r\n*     FILE 129\r\n$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n*     CARD   1,  2,  4,  5, 16\r\n*     FILE  95\r\n$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n*     SBST   7\r\n*     CARD  18\r\n*     FILE 115,120\r\n*     PHS2   DB5  \r\n$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n*     SBST   7\r\n*     CARD  18\r\n*     FILE 115\r\n$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 115,120\r\n$ PLTSET transforms user input into a form used to drive the structure \r\n$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 115\r\n$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 115\r\n$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 120\r\n$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 120\r\n$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 120\r\n$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/\r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 120\r\n$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$ generated.\r\nPRTMSG   PLOTX1// $ \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 120\r\n$\r\nLABEL    P1 $   \r\n*     SBST   7\r\n*     CARD   1,  2,  4,  5, 16, 18\r\n*     FILE 115,120\r\n*     PHS2   DE5  \r\n$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV/NEVER=1 $   \r\n*     CARD   1,  2, 13, 60, 61\r\n*     FILE  96\r\n$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n*     CARD   1,  2, 15, 61\r\n*     FILE  96, 99\r\n*     RFMT 188-204,207-209\r\n$ TA1 generates element tables for use in matrix assembly and stress \r\n$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n*     CARD   1-  6, 13, 16\r\n*     FILE  97\r\n$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n*     FILE  97\r\n$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $ \r\n*     CARD   1,  2,  4-  6, 16\r\n*     FILE  97\r\n*     PHS2   DB5  \r\n*     RFMT 188-204,207-209\r\n$ Go to label ERROR4 and print Error Message No. 4 if no elements have been \r\n$ defined.\r\nCOND     ERROR4,NOELMT $\r\n*     CARD   1,  2,  4-  6, 16\r\n*     FILE  97\r\n*     PHS2   DE5  \r\n*     RFMT 188-204,207-209\r\n$\r\nPURGE    KGGX/NOSIMP $  \r\n*     CARD   1,  2,  4-  6, 16\r\n*     FILE  98\r\n$ OPTPR1 performs phase one property optimization and initialization check.\r\nOPTPR1   MPT,EPT,ECT,DIT,EST/OPTP1/S,N,PRINT/S,N,TSTART/S,N,COUNT $ \r\n*     SBST   9\r\n*     CARD   1-  6,  8, 13\r\n*     FILE 117\r\n$ Beginning of loop for property optimization.\r\nLABEL    LOOPTOP $  \r\n*     SBST   9\r\n*     CARD   1-  6\r\n*     FILE 117\r\n$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n*     CARD   1-  3,  5,  6,  8, 13- 16, 24, 61\r\n*     FILE  98, 99,116,121\r\n$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n*     CARD   1-  3,  6,  8\r\n*     FILE  98\r\n$\r\nEQUIV    OPTP1,OPTP2/NEVER/EST,EST1/NEVER $ \r\n*     SBST   9\r\n*     CARD   1-  6, 13, 16\r\n*     FILE 118\r\n*     PHS2   D5   \r\n$ EMG generates structural element stiffness and mass matrix tables and \r\n$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n*     CARD   1-  3,  5,  6,  8, 13, 15, 24, 61\r\n*     FILE 116\r\n$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n*     CARD   1-  3,  6,  8\r\n*     FILE  98\r\n$                                  x\r\n$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$                                  gg\r\n$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n*     CARD   1-  3,  6,  8\r\n*     FILE  98\r\n$\r\nLABEL    JMPKGG $   \r\n*     CARD   1-  3,  6,  8\r\n*     FILE  98\r\n$\r\nPURGE    MGG/NOMGG $\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE  99\r\n$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE  99\r\n$ EMA assembles mass matrix [M  ].\r\n$                             gg\r\n$ \r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE  99\r\n$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 116\r\n$\r\nLABEL    JMPMGG $   \r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE  99\r\n$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n$ Go to label ERROR2 and print Error Message No. 2 if no mass matrix \r\n$ exists.\r\nCOND     ERROR2,NOMGG $ \r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n$ OFP formats the weight and balance information prepared by GPWG and \r\n$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n$\r\nLABEL    LBL1 $ \r\n*     CARD   1-  3,  5,  8, 13- 16, 24, 61\r\n*     FILE  98, 99,116,121\r\n$               x\r\n$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$               gg       gg\r\n$ \r\nEQUIV    KGGX,KGG/NOGENL $  \r\n*     CARD   1-  4,  6,  8\r\n*     FILE 100\r\n*     PHS2   DB5  \r\n$ Go to label LBL11A if no general elements exist.\r\nCOND     LBL11A,NOGENL $\r\n*     CARD   1-  4,  6,  8\r\n*     FILE 100\r\n$                                 x\r\n$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$                                 gg                               gg\r\n$ \r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n*     CARD   1-  4,  6,  8\r\n*     FILE 100\r\n$\r\nLABEL    LBL11A $   \r\n*     CARD   1-  4,  6,  8\r\n*     FILE 100\r\n$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n*     CARD   1-  4,  6,  8\r\n*     FILE 102\r\n*     PHS2   DE5  \r\n$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n*     CARD   1,  9- 12, 22, 23, 31, 59\r\n*     FILE 101\r\n$ Beginning of loop for multiple constraint sets.\r\nLABEL    LBL11 $\r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     FILE 101\r\n$ GP4 generates flags defining members of various displacement sets \r\n$ (USET), forms multipoint constraint equations [R ] {u } = 0, and forms \r\n$                                                 g    g\r\n$ enforced displacement vector {Y }.\r\n$                                s\r\n$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n*     CARD   1-  4,  6,  8- 12, 20, 22, 23, 28, 31, 59\r\n*     FILE 101\r\n$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n*     CARD   1-  4,  6,  8- 12, 22, 23, 28\r\n*     FILE 101\r\n$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n*     CARD   1,  9- 12, 22, 23, 59\r\n*     FILE 101\r\n*     RFMT 188-204,207-209\r\n*     PHS1   I1   \r\n$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n*     CARD   1,  9- 12, 22, 23, 59\r\n*     FILE 101\r\n$\r\nPURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n         KFS,KSS/SINGLE/QG/NOSR $   \r\n*     CARD   1,  9- 12, 22, 23, 59\r\n*     FILE 103,105-107,109,111,113\r\n$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$               gg       nn\r\nEQUIV    KGG,KNN/MPCF1 $\r\n*     CARD   1-  4,  6,  8,  9, 22, 23\r\n*     FILE 104\r\n$ Go to label LBL2 if the MPC set for the current pass is unchanged from \r\n$ that of the previous pass.\r\nCOND     LBL2,MPCF2 $   \r\n*     CARD   1-  4,  6,  8,  9, 22, 23\r\n*     FILE 103,104\r\n$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and\r\n$                                                   g      m  n\r\n$ solves for multipoint constraint transformation matrix [G ] =\r\n$       -1                                                 m\r\n$ - [R ]   [R ].\r\n$     m      n\r\n$ \r\nMCE1     USET,RG/GM $   \r\n*     CARD   1,  9, 22, 23\r\n*     FILE 103\r\n$ MCE2 partitions stiffness matrix\r\n$ \r\n$           +_      +\r\n$           |K  |K  |\r\n$           | nn| nm|\r\n$   [K  ] = |---+---|\r\n$     gg    |K  |K  |\r\n$           | mn| mm|\r\n$           +       +\r\n$           \r\n$ and performs the matrix reduction\r\n$ \r\n$            _        T           T           T\r\n$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$     nn      nm      m   mn      mn   m      m   mm   m\r\n$ \r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n*     CARD   1-  4,  6,  8,  9, 22, 23\r\n*     FILE 104\r\n$\r\nLABEL    LBL2 $ \r\n*     CARD   1-  4,  6,  8,  9, 22, 23\r\n*     FILE 103,104\r\n$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$               nn       ff\r\n$ \r\nEQUIV    KNN,KFF/SINGLE $   \r\n*     CARD   1-  4,  6,  8- 10, 22, 23\r\n*     FILE 105\r\n$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n*     CARD   1-  4,  6,  8- 10, 22, 23\r\n*     FILE 105\r\n$ SCE1 partitions out single-point constraints.\r\n$ \r\n$           +       +\r\n$           |K  |K  |\r\n$           | ff| fs|\r\n$   [K  ] = |---+---|\r\n$     nn    |K  |K  |\r\n$           | sf| ss|\r\n$           +       +\r\n$ \r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n*     CARD   1-  4,  6,  8- 10, 22, 23\r\n*     FILE 105\r\n$\r\nLABEL    LBL3 $ \r\n*     CARD   1-  4,  6,  8- 10, 22, 23\r\n*     FILE 105\r\n$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$               ff       aa\r\n$ \r\nEQUIV    KFF,KAA/OMIT $ \r\n*     CARD   1-  4,  6,  8- 11, 22, 23\r\n*     FILE 106\r\n$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n*     CARD   1-  4,  6,  8- 11, 22, 23\r\n*     FILE 106\r\n$ SMP1 partitions constrained stiffness matrix\r\n$\r\n$           +_      +\r\n$           |K  |K  |\r\n$           | aa| ao|\r\n$   [K  ] = |---+---|\r\n$     ff    |K  |K  |\r\n$           | oa| oo|\r\n$           +       +\r\n$           \r\n$                                                -1\r\n$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$                                    o        oo     oa\r\n$ \r\n$                                        _        T\r\n$ and performs matrix reduction [K  ] = [K  ] + [K  ]{G ].\r\n$                                 aa      aa      oa   o\r\n$ \r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n*     CARD   1-  4,  6,  8- 11, 22, 23\r\n*     FILE 106\r\n$\r\nLABEL    LBL5 $ \r\n*     CARD   1-  4,  6,  8- 11, 22, 23\r\n*     FILE 106\r\n$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$               aa       ll\r\n$ \r\nEQUIV    KAA,KLL/REACT $\r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 107\r\n*     PHS1   DB1  \r\n*     PHS3   DB1  \r\n$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 107\r\n$ RBMG1 partitions out free-body supports\r\n$ \r\n$           +       +\r\n$           |K  |K  |\r\n$           | ll| lr|\r\n$   [K  ] = |---+---|\r\n$     aa    |K  |K  |\r\n$           | rl| rr|\r\n$           +       +\r\n$ \r\nRBMG1    USET,KAA,/KLL,KLR,KRR,,, $ \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 107\r\n$\r\nLABEL    LBL6 $ \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 107\r\n$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$                                                 ll      ll   ll\r\n$ \r\nRBMG2    KLL/LLL $  \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 108\r\n$ Go to label LBL7 if no free-body supports exist.\r\nCOND     LBL7,REACT $   \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 109\r\n$ RBMG3 forms rigid body transformation matrix\r\n$ \r\n$               -1\r\n$   [D] = -[K  ]  [K  ]\r\n$            ll     lr\r\n$ \r\n$ calculates rigid body check matrix\r\n$\r\n$                   T\r\n$   [X] = [K  ] + [K  ][D]\r\n$           rr      lr\r\n$ \r\n$ and calculates rigid body error ratio\r\n$ \r\n$ \r\n$               ||X||\r\n$   epsilon = ---------\r\n$              ||K  ||\r\n$                 rr\r\n$ \r\nRBMG3    LLL,KLR,KRR/DM $   \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 109\r\n$\r\nLABEL    LBL7 $ \r\n*     CARD   1-  4,  6,  8- 12, 22, 23\r\n*     FILE 109\r\n*     PHS1   DE1  \r\n*     PHS3   DE1  \r\n$ SSG1 generates static load vectors {P }.\r\n$                                      g\r\n$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/NSKIP/COMPS $ \r\n*     CARD   1-  3,  5,  6,  8, 13, 22, 23, 59- 62\r\n*     FILE 110\r\n$ Equivalence {P } to {P } if no constraints are applied.\r\n$               g       l\r\n$ \r\nEQUIV    PG,PL/NOSET $  \r\n*     CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n*     FILE 111\r\n*     PHS1   DB1  \r\n$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n*     CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n*     FILE 111\r\n*     PHS3   DB7  \r\n$ SSG2 applies constraints to static load vectors\r\n$ \r\n$           _\r\n$           P\r\n$            n            _       T\r\n$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$     g     P       n      n      m   m\r\n$            m\r\n$ \r\n$           _\r\n$           P\r\n$            f            _      \r\n$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$     n     P       f      f      fs   s\r\n$            s\r\n$ \r\n$           _\r\n$           P\r\n$            a            _       T\r\n$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$     f     P       a      a      o   o\r\n$            o\r\n$ \r\n$           P\r\n$            l\r\n$   {P } = {--}\r\n$     a     P\r\n$            r\r\n$                                                                T\r\n$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }.\r\n$                                                 r       r          l\r\n$ \r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $  \r\n*     CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n*     FILE 111\r\n$\r\nLABEL    LBL10 $\r\n*     CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n*     FILE 111\r\n$ SSG3 solves for displacements of independent coordinates\r\n$ \r\n$               -1\r\n$   {u } = [K  ]  {P }\r\n$     l      ll     l\r\n$ \r\n$ solves for displacements of omitted coordinates\r\n$ \r\n$     o         -1\r\n$   {u } = [K  ]  {P }\r\n$     o      oo     o\r\n$ \r\n$ calculates residual vector (RULV) and residual vector error ratio for \r\n$ independent coordinates\r\n$ \r\n$   {deltaP } = {P } - [K  ]{u }\r\n$          l      l      ll   l\r\n$ \r\n$                T\r\n$              {u }{deltaP }\r\n$                l        l\r\n$   epsilon  = -------------\r\n$          l       T\r\n$                {P }{u }\r\n$                  l   l\r\n$ \r\n$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$ omitted coordinates\r\n$                             o\r\n$   {deltaP } = {P } - [K  ]{u }\r\n$          o      o      oo   o\r\n$ \r\n$                T\r\n$              {u }{deltaP }\r\n$                o        o\r\n$   epsilon  = -------------\r\n$          o       T   o\r\n$                {P }{u }\r\n$                  o   o\r\n$ \r\nSSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         NSKIP/S,N,EPSI $   \r\n*     CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n*     FILE 112\r\n*     RFMT 188\r\n$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n*     CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n*     RFMT 188-204,207-209\r\n$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n*     CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n*     RFMT 188-204,207-209\r\n$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n*     CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    LBL9 $ \r\n*     CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n*     RFMT 188-204,207-209\r\n*     PHS3   DE7  \r\n$ SDR1 recovers dependent displacements\r\n$ \r\n$    u\r\n$     l                                  o\r\n$   {--} = {u }  ,   {u } = [G ]{u ] + {u }  ,\r\n$    u       a         o      o   a      o\r\n$     r\r\n$ \r\n$    u                u            \r\n$     a                f           \r\n$   {--} = {u }  ,   {--} = {u }  ,\r\n$    u       f        Y       n    \r\n$     o                s           \r\n$                                  \r\n$                        u         \r\n$                         n        \r\n$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$    m      m   n        u       g \r\n$                         m        \r\n$ \r\n$ and recovers single-point forces of constraint\r\n$ \r\n$                    T\r\n$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$     s       s      fs   f      ss   s\r\n$ \r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/  \r\n         *STATICS* $\r\n*     CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n*     FILE 113\r\n*     RFMT 188-204,207-209\r\n*     PHS3   I7     \r\n$ Go to label LBL8 if all constraint sets have been processed.\r\nCOND     LBL8,REPEAT $  \r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ Go to label LBL11 if additional sets of constraints need to be processed.\r\nREPT     LBL11,360 $\r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ Go to label ERROR1 and print Error Message No. 1 if the number of \r\n$ constraint sets exceeds 360.\r\nJUMP     ERROR1 $   \r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$\r\nPARAM    //*NOT*/TEST/REPEAT $  \r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ Go to label ERROR5 and print Error Message No. 5 if multiple boundary \r\n$ conditions are attempted with an improper subset.\r\nCOND     ERROR5,TEST $  \r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    LBL8 $ \r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ GPFDR calculates the grid point force balance (OGPFB1) and element strain \r\n$ energy (ONRGY1) for requested sets.\r\nGPFDR    CASECC,UGV,KELM,KDICT,ECT,EQEXIN,GPECT,PGG,QG/ONRGY1,OGPFB1/   \r\n         *STATICS* $\r\n*     CARD  18, 19\r\n*     FILE 119\r\n*     PHS2   DB5  \r\n$\r\nPURGE    KDICT,KELM/REPEAT $\r\n*     CARD   1-  3,  6,  8, 18, 19\r\n*     FILE 116\r\n$ OFP formats the tables prepared by GPFDR and places them on the system \r\n$ output file for printing.\r\nOFP      ONRGY1,OGPFB1,,,,//S,N,CARDNO $\r\n*     CARD  18, 19\r\n*     FILE 119\r\n$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n*     CARD   7\r\n*     FILE 127\r\n$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$ multipoint constraint force balance (OQM1) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/   \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $   \r\n*     CARD   7\r\n*     FILE 127\r\n$ OFP formats the table prepared by EQMCK and places it on the system \r\n$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n*     CARD   7\r\n*     FILE 127\r\n$\r\nLABEL    NOMPCF $   \r\n*     CARD   7\r\n*     FILE 127\r\n$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and \r\n$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single-\r\n$ point forces of constraint (OQG1) for output and translation components \r\n$ of the displacement vectors (PUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST, \r\n         XYCDB,PGG,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,\r\n         OEF1L/*STATICS*/S,N,NOSORT2/-1/S,N,STRNFLG/COMPS $ \r\n*     CARD  18, 19\r\n*     FILE 114\r\n$ Go to label LBLSTRS if element stresses in material coordinate system and \r\n$ stresses at the connected grid points are not to be calculated.\r\nCOND     LBLSTRS,STRESS $   \r\n*     CARD  18, 19\r\n*     FILE 122\r\n$ CURV calculates element stresses in material coordinate system (OES1M) \r\n$ and stresses at the connected grid points (OES1G).\r\nCURV     OES1,MPT,CSTM,EST,SIL,GPL/OES1M,OES1G/V,Y,STRESS/  \r\n         V,Y,NINTPTS $  \r\n*     CARD  18, 19\r\n*     FILE 122\r\n$\r\nLABEL    LBLSTRS $  \r\n*     CARD  18, 19\r\n*     FILE 122\r\n$\r\nPURGE    OES1M/STRESS $ \r\n*     CARD  18, 19\r\n*     FILE 122\r\n$ Go to label LBLSTRN if element strains/curvatures are not to be \r\n$ calculated.\r\nCOND     LBLSTRN,STRNFLG $  \r\n*     CARD  18, 19\r\n*     FILE 123,124\r\n$ SDR2 calculates element strains/curvatures (OES1A).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDT,,,UGV,EST,,,/\r\n         ,,,OES1A,,,,/*STATICS*//1 $\r\n*     CARD  18, 19\r\n*     FILE 123\r\n$ Go to label LBLSTRN if element strains/curvatures in material coordinate \r\n$ system and strains/curvatures at the connected grid points are not to be \r\n$ calculated.\r\nCOND     LBLSTRN,STRAIN $   \r\n*     CARD  18, 19\r\n*     FILE 124\r\n$ CURV calculates element strains/curvatures in material coordinate system \r\n$ (OES1AM) and strains/curvatures at the connected grid points (OES1AG).\r\nCURV     OES1A,MPT,CSTM,EST,SIL,GPL/OES1AM,OES1AG/V,Y,STRAIN/   \r\n         V,Y,NINTPTS $  \r\n*     CARD  18, 19\r\n*     FILE 124\r\n$\r\nLABEL    LBLSTRN $  \r\n*     CARD  18, 19\r\n*     FILE 123,124\r\n$\r\nPURGE    OES1A/STRNFLG $\r\n*     CARD  18, 19\r\n*     FILE 123,124\r\n$ Go to label LBL17 if there are no requests for output sorted by grid \r\n$ point number or element number.\r\nCOND     LBL17,NOSORT2 $\r\n*     CARD  18, 19, 29\r\n*     FILE 125,126\r\n$ SDR3 prepares requested output sorted by grid point number or element \r\n$ number.\r\nSDR3     OUGV1,OPG1,OQG1,OEF1,OES1,/OUGV2,OPG2,OQG2,OEF2,OES2, $\r\n*     CARD  18, 19\r\n*     FILE 125\r\n$\r\nPARAM    //*SUB*/PRTSORT2/NOSORT2/1 $   \r\n*     CARD  18, 19\r\n*     FILE 125\r\n$ Go to label LBLSORT1 if printed output sorted by grid point number or \r\n$ element number is not required.\r\nCOND     LBLSORT1,PRTSORT2 $\r\n*     CARD  18, 19\r\n*     FILE 125\r\n$ OFP formats the tables prepared by SDR3 for output sorted by grid point \r\n$ number or element number and places them on the system output file for \r\n$ printing.\r\nOFP      OUGV2,OPG2,OQG2,OEF2,OES2,//S,N,CARDNO $   \r\n*     CARD  18, 19\r\n*     FILE 125\r\n$ SCAN examines the element stresses and forces calculated by SDR3 and \r\n$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES2,OEF2/OESF2/*RF* $  \r\n*     CARD 19 \r\n*     FILE 125\r\n$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$ the system output file for printing.\r\nOFP      OESF2,,,,,//S,N,CARDNO $   \r\n*     CARD  19\r\n*     FILE 125\r\n$ Go to label LBLXYPLT.\r\nJUMP     LBLXYPLT $ \r\n*     CARD  18, 19\r\n*     FILE 125\r\n$\r\nLABEL    LBLSORT1 $ \r\n*     CARD  18, 19\r\n*     FILE 125\r\n$ OFP formats the tables prepared by SDR2 for output sorted by subcase \r\n$ number and places them on the system output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n*     CARD  18, 19\r\n*     FILE 114\r\n$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $  \r\n*     CARD  18, 19\r\n*     FILE 114\r\n$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n*     CARD 19 \r\n*     FILE 114\r\n$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n*     CARD  19\r\n*     FILE 114\r\n$\r\nLABEL    LBLXYPLT $ \r\n*     CARD  18, 19\r\n*     FILE 125\r\n$ OFP formats the tables prepared by CURV and SDR2 for output sorted by \r\n$ subcase number and places them on the system output file for printing.\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ \r\n*     CARD  18, 19\r\n*     FILE 114\r\n$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/S,N,  \r\n         PFILE/S,N,CARDNO $ \r\n*     SBST   7\r\n*     CARD  29\r\n*     FILE 126\r\n$ XYPLOT prepares the requested X-Y plots of displacements, forces, \r\n$ stresses, loads, and single-point forces of constraint vs. subcase.\r\nXYPLOT   XYPLTT// $ \r\n*     SBST   7\r\n*     CARD  29\r\n*     FILE 126\r\n$ Go to label DPLOT.\r\nJUMP     DPLOT $\r\n*     SBST   7\r\n*     CARD  29\r\n*     FILE 126\r\n$\r\nLABEL    LBL17 $\r\n*     CARD  18, 19, 29\r\n*     FILE 125,126\r\n$\r\nPURGE    OUGV2/NOSORT2 $\r\n*     CARD  18, 19\r\n*     FILE 125,126\r\n$ Go to label LBLOFP if there is no phase two property optimization.\r\nCOND     LBLOFP,COUNT $ \r\n*     SBST   9\r\n*     CARD  18, 19\r\n*     FILE 118\r\n$ OPTPR2 performs phase two property optimization.\r\nOPTPR2   OPTP1,OES1,EST/OPTP2,EST1/S,N,PRINT/TSTART/S,N,COUNT/S,N,  \r\n         CARDNO $   \r\n*     SBST   9\r\n*     CARD  18, 19\r\n*     FILE 118\r\n$ Equivalence EST2 to EST and OPTP2 to OPTP1.\r\nEQUIV    EST1,EST/ALWAYS/OPTP2,OPTP1/ALWAYS $   \r\n*     SBST   9\r\n*     CARD  18, 19\r\n*     FILE  97,117\r\n$ Go to label LOOPEND if no additional output is to be printed for this \r\n$ loop.\r\nCOND     LOOPEND,PRINT $\r\n*     SBST   9\r\n*     CARD  18, 19\r\n*     FILE 118,128\r\n$\r\nLABEL    LBLOFP $   \r\n*     SBST   9\r\n*     CARD  18, 19\r\n*     FILE 118\r\n$ OFP formats the tables prepared by SDR2 for output sorted by subcase \r\n$ number and places them on the system output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n*     CARD  19\r\n*     FILE 114\r\n$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $  \r\n*     CARD  19\r\n*     FILE 114\r\n$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1X/*RF* $ \r\n*     CARD 19 \r\n*     FILE 114\r\n$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$ the system output file for printing.\r\nOFP      OESF1X,,,,,//S,N,CARDNO $  \r\n*     CARD  19\r\n*     FILE 114\r\n$ OFP formats the tables prepared by CURV and SDR2 for output sorted by \r\n$ sucbcase number and places them on the system output file for printing.\r\nOFP      OES1M,OES1G,OES1A,OES1AM,OES1AG,//S,N,CARDNO $ \r\n*     CARD  19\r\n*     FILE 122-124\r\n$\r\nLABEL    DPLOT $\r\n*     SBST   7\r\n*     CARD  18, 29\r\n*     FILE 126\r\n$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n*     SBST   7\r\n*     CARD  18\r\n*     FILE 128\r\n$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,ONRGY1/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $ \r\n*     SBST   7\r\n*     CARD  18, 29\r\n*     FILE 128\r\n$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n*     SBST   7\r\n*     CARD  18, 29\r\n*     FILE 128\r\n$\r\nLABEL    P2 $   \r\n*     SBST   7\r\n*     CARD  18\r\n*     FILE 128\r\n$\r\nLABEL    LOOPEND $  \r\n*     SBST   9\r\n*     CARD  18, 22, 23\r\n*     FILE 128\r\n*     PHS1   DE1  \r\n*     PHS2   DE5  \r\n$ Go to label FINIS and make normal exit if property optimization is \r\n$ complete.\r\nCOND     FINIS,COUNT $  \r\n*     SBST   9\r\n*     CARD  18, 22, 23\r\n$ Go to label LOOPTOP if additional loops for property optimization are \r\n$ needed.\r\nREPT     LOOPTOP,360 $  \r\n*     SBST   9\r\n*     CARD  18, 22, 23\r\n$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n*     CARD   1- 20, 22- 24, 28, 29, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    ERROR1 $   \r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*STATICS* $   \r\n*     SBST   1,  3\r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    ERROR2 $   \r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n*     RFMT 188-204,207-209\r\n$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*STATICS* $   \r\n*     SBST   8\r\n*     CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n*     FILE 121\r\n*     RFMT 188-204,207-209\r\n$ \r\nLABEL    ERROR3 $   \r\n*     CARD   1,  9- 12, 22, 23, 59\r\n*     FILE 101\r\n*     RFMT 188-204,207-209\r\n$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*STATICS* $   \r\n*     CARD   1,  9- 12, 22, 23, 59\r\n*     FILE 101\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    ERROR4 $   \r\n*     CARD   1,  2,  4-  6, 16\r\n*     FILE  97\r\n*     RFMT 188-204,207-209\r\n$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*STATICS* $   \r\n*     CARD   1,  2,  4-  6, 16\r\n*     FILE  97\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    ERROR5 $   \r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*STATICS* $   \r\n*     CARD  22, 23\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    FINIS $\r\n*     CARD   1- 24, 28, 29, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nPURGE    DUMMY/ALWAYS $ \r\n*     CARD   1- 24, 28, 29, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\nLABEL    LBLINT02 $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$ COMPON causes the DMAP compiler to skip the compilation of all of the \r\n$ following instructions through label LBLINT01 as the parameter SYS21 is 0 \r\n$ (see NOTE at the beginning).\r\nCOMPON   LBLINT01,SYS21 $   \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPARAM    //*SYST*//86/1 $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSETVAL   //V,N,PFILE/0 $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    AGAIN $\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPROMPT1  //S,N,PEXIT/S,N,PLOT1/S,N,PLOT2/S,N,XYPLOT/\r\n         S,N,SCAN1/S,N,SCAN2 $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     LBLINT1,PEXIT $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPARAM    //*OR*/V,N,PLOTZ/V,N,PLOT1/V,N,PLOT2 $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPARAM    //*NOT*/V,N,NOPLOTZ/V,N,PLOTZ $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     STEPPLOT,NOPLOTZ $ \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR/NOPLOTZ $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPLTSET   PCDB,EQEXIN,ECT,/PLTSETR,PLTPARR,GPSETR,ELSETR/S,N,NSIL/\r\n         S,N,JUMPPLOT $ \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPRTMSG   PLTSETR $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     LBLINT2,PLOT2 $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSETVAL   //S,N,PLTFG1/1 $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/\r\n         PLOTX3/NSIL/LUSET/JUMPPLOT/PLTFG1/S,N,PFILE $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPRTMSG   PLOTX3 $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSITEPLOT   $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nJUMP     LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    LBLINT2 $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSETVAL   //S,N,PLTFG2/-1 $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPLOT     PLTPARR,GPSETR,ELSETR,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,\r\n         OES1,OES1L,ONRGY1/PLOTX4/NSIL/LUSEP/JUMPPLOT/PLTFG2/S,N,PFILE $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPRTMSG   PLOTX4// $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSITEPLOT  $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    PLTSETR,PLTPARR,GPSETR,ELSETR $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nJUMP     LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    STEPPLOT $ \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPARAM    //*OR*/V,N,SCANZ/V,N,SCAN1/V,N,SCAN2 $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPARAM    //*NOT*/V,N,NOSCANZ/V,N,SCANZ $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     STEPSCAN,NOSCANZ $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    OESF1I,OESF2I/NOSCANZ $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     LBLINT3,SCAN2 $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSCAN     CASECC,OES1,OEF1/OESF1I/*OL1* $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nOFP      OESF1I,,,,,//S,N,CARDNO $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    OESF1I $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nJUMP     LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    LBLINT3 $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSCAN     CASECC,OES2,OEF2/OESF2I/*OL2* $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nOFP      OESF2I,,,,,//S,N,CARDNO $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    OESF2I $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nJUMP     LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    STEPSCAN $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPARAM    //*NOT*/V,N,NOXYPT/V,N,XYPLOT $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nCOND     LBLINTEX,NOXYPT $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    XYPLTI/NOXYPT $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nXYTRAN   XYCDB,OPG2,OQG2,OUGV2,OES2,OEF2/XYPLTI/*TRAN*/ \r\n         *PSET*/S,N,PFILE/S,N,CARDNO $  \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nXYPLOT   XYPLTI// $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nSITEPLOT   $\r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nPURGE    XYPLTI $   \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nJUMP     LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nLABEL    LBLINTEX $ \r\n*     CARD   1-20,22-24,28,31,59-62   \r\n$\r\nREPT     AGAIN,400 $\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nPRTPARM  //1/*STATICS* $\r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nLABEL    LBLINT1 $  \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nLABEL    LBLINT01 $ \r\n*     CARD   1- 20, 22- 24, 28, 31, 59- 62\r\n$\r\nEND      $  \r\n*     CARD   1- 24, 28, 29, 31, 59- 62\r\n*     RFMT 188-204,207-209\r\n$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CHBDY    CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CONROD   CQDMEM   CQDMEM1  CQDMEM2\r\n  2    CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA   CTORDRG\r\n  2    CTRAPAX  CQUAD4   CTRIA3\r\n  2    CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG  CTRIM6 \r\n  2    CTRMEM   \r\n  2    CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE  \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PHBDY    PIHEX    PQDMEM   PQDMEM1\r\n  3    PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR   PTORDRG\r\n  3    PTRAPAX  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM   PTRPLT \r\n  3    PTRPLT1  PTRSHL   PTUBE    PTWIST\r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MAT8\r\n  8    MATT4    MATT5    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$\r\n  8    TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    OPT      GRDEQ   \r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    STRESS   \r\n 26    STRAIN   \r\n 27    NINTPTS  \r\n 28    AUTOSPC  \r\n 29    XYOUT$   \r\n 31    NOLOOP$  \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    RG       USET     YS       ASET     OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    KLL      KLR      KRR\r\n108    LLL  \r\n109    DM   \r\n110    PG   \r\n111    PL       PO       PS       QR\r\n112    RULV     RUOV     ULV      UOOV  \r\n113    PGG      QG       UGV\r\n114    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n114    OEF1L    OES1L    OESF1    OESF1X\r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n116    KDICT    KELM     MDICT    MELM  \r\n117    OPTP1\r\n118    OPTP2    EST1\r\n119    OGPFB1   ONRGY1  \r\n120    PLOTX1   \r\n121    OGPWG\r\n122    OES1M    OES1G   \r\n123    OES1A\r\n124    OES1AM   OES1AG  \r\n125    OUGV2    OPG2     OQG2     OEF2     OES2     OESF2\r\n126    XYPLTT   \r\n127    OQM1 \r\n128    PLOTX2   \r\n129    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP18\r\n\r\nDISP18 RIGID FORMAT IS NOT AVAILABLE\r\n\r\n=PAGE=\r\nDISP19\r\n\r\nDISP19 RIGID FORMAT IS NOT AVAILABLE\r\n\r\n=PAGE=\r\nDISP20\r\n\r\nDISP20 RIGID FORMAT IS NOT AVAILABLE\r\n\r\n=PAGE=\r\nDISP2\r\n\r\nAPR.93  \r\n$$$$$$$$\r\nBEGIN    DISP 02 - STATIC ANALYSIS WITH INERTIA RELIEF - APR. 1993 $\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nFILE     QG=APPEND/PGG=APPEND/UGV=APPEND/GM=SAVE/KNN=SAVE/MNN=SAVE  $   \r\n****SBST   1,  3\r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5- 10, 14, 15, 19, 21- 24, 61\r\n****FILE 101,116,120,121\r\n****PHS1   I1   \r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D5   \r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 123\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 117,119\r\n****PHS2   DB5  \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 117\r\n$$$$ Go to label P2 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117,119\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 117,119\r\n****PHS2   DE5  \r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1- 24, 59- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR6,NOSIMP $\r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****PHS2   D5   \r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n****PHS2   D5   \r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 120\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$ \r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2   DB5  \r\n$$$$ Go to label LBL11A if no general elements exist.\r\nCOND     LBL11A,NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements fo [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$ \r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11A $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE5  \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$ Beginning of loop for multiple constraint sets.\r\nLABEL    LBL11 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 100\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ]{u } = 0, and forms enforced \r\n$$$$                                         g   g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20- 23, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21- 23\r\n****FILE 101\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no free-body supports \r\n$$$$ exist.\r\nCOND     ERROR4,REACT $ \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n****PHS1   D1   \r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,MOO,MOA,PO,UOOV,RUOV/OMIT/KSS,KFS,PS/  \r\n         SINGLE $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105,106,112,114\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$ Go to label LBL2 if the MPC set for the current pass is unchanged from \r\n$$$$ that of the previous pass.\r\nCOND     LBL2,MPCF2 $   \r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and solves\r\n$$$$                                                   g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$ \r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$           \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point\r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\nSCE1     USET,KNN,MNN,,/KFF,KFS,KSS,MFF,, $ \r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no omitted coordinates\r\n$$$$               ff       aa        ff       aa\r\n$$$$ exist.\r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT $   \r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness and mass matrices\r\n$$$$\r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | aa| ao|                        | aa| ao|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     ff    |K  |K  |                  ff    |M  |M  |\r\n$$$$           | oa| oo|                        | oa| oo|\r\n$$$$           +       +                        +       +\r\n$$$$           \r\n$$$$                                                -1\r\n$$$$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$$$$                                    o        oo     oa\r\n$$$$ \r\n$$$$                                         _        T\r\n$$$$ and performs matrix reductions [K  ] = [K  ] + [K  ][G ]\r\n$$$$                                  aa      aa      oa   o\r\n$$$$              _        T           T           T\r\n$$$$ and [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]\r\n$$$$       aa      aa      oa   o      o   oa      o   oo   o\r\n$$$$ \r\nSMP1     USET,KFF,MFF,,/GO,KAA,KOO,LOO,MAA,MOO,MOA,, $  \r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 22, 23\r\n****FILE 107\r\n****PHS1   DB1  \r\n****PHS3   DB1  \r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$ \r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$ \r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$ \r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 22, 23\r\n****FILE 110\r\n****PHS1   DE1  \r\n****PHS3   DE1  \r\n$$$$ SSG1 generates static load vectors [P }.\r\n$$$$                                      g\r\n$$$$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/NSKIP/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            a            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       a      a      o   o\r\n$$$$            o\r\n$$$$ \r\n$$$$           P\r\n$$$$            l\r\n$$$$   {P } = {--}\r\n$$$$     a     P\r\n$$$$            r\r\n$$$$                                                                T\r\n$$$$ and calculates determinate forces of reaction {q } = -{P } - [D ]{P }.\r\n$$$$                                                 r       r          l\r\n$$$$ \r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 112\r\n****PHS1   DB1  \r\n****PHS3   DB7  \r\n$$$$ SSG4 calculates inertia loads and combines them with static loads\r\n$$$$ \r\n$$$$     i                                  -1\r\n$$$$   {P } = {P } + ([M  ][D] + [M  ]) [m ]  {q }\r\n$$$$     l      l       ll         lr     r     r\r\n$$$$ \r\n$$$$     i                          T              -1\r\n$$$$   {P } = {P } + ([M  ][G ] + [M  ]) [D/I] [m ]  {q }\r\n$$$$     o      o       oo   o      ao           r     r\r\n$$$$ \r\nSSG4     PL,QR,PO,MR,MLR,DM,MLL,MOO,MOA,GO,USET/PLI,POI/OMIT $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 59- 62\r\n****FILE 113\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  i\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  i\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$ \r\n$$$$          i      i\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        i\r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       i T\r\n$$$$                {P } {u }\r\n$$$$                  l    l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$          i      i           o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        i\r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       i T  o\r\n$$$$                {P } {u }\r\n$$$$                  o    o\r\n$$$$\r\nSSG3     LLL,KLL,PLI,LOO,KOO,POI/ULV,UOOV,RULV,RUOV/OMIT/V,Y,   \r\n         IRES=-1/NSKIP/S,N,EPSI $   \r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 114\r\n****RFMT 187\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 59- 62\r\n****RFMT 187,189-204,207-209\r\n****PHS3   DE7  \r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$    u\r\n$$$$     l                                  o\r\n$$$$   {--} = {u }  ,   {u } = [G ]{u ] + {u }  ,\r\n$$$$    u       a         o      o   a      o\r\n$$$$     r\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      fs   f      ss   s\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/UGV,PGG,QG/NSKIP/  \r\n         *STATICS* $\r\n****CARD   1-  6,  8- 13, 22, 23, 59- 62\r\n****FILE 115\r\n****RFMT 187,189-204,207-209\r\n****PHS3   I7   \r\n$$$$ Go to label LBL8 if all constraint sets have been processed.\r\nCOND     LBL8,REPEAT $  \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Go to label LBL11 if additional sets of constraints need to be processed.\r\nREPT     LBL11,360 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if the number of \r\n$$$$ constraint sets exceeds 360.\r\nJUMP     ERROR2 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPARAM    //*NOT*/TEST/REPEAT $  \r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if multiple boundary \r\n$$$$ conditions are attempted with an improper subset.\r\nCOND     ERROR5,TEST $  \r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    LBL8 $ \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$$$$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n****PHS2   DB5  \r\n$$$$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$$$$ multipoint constraint force balance (OQMI) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,UGV,PGG,QG,CSTM/   \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/NSKIP $   \r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$ OFP formats the table prepared by EQMCK and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    NOMPCF $   \r\n****CARD   7\r\n****FILE 121\r\n****RFMT 187,189-204,207-209\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares \r\n$$$$ load vectors (OPG1), displacement vectors (OUGV1), and single-point \r\n$$$$ forces of constraint (OQG1) for output and translation components of the \r\n$$$$ displacement vector (PUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ \r\n         *STATICS*////COMPS $   \r\n****CARD  18, 19\r\n****FILE 116\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 116\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 116\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 116\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 116\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1- 24, 59- 62\r\n****FILE 122\r\n****RFMT 187,189-204,207-209\r\n****PHS1   DE1  \r\n$$$$ \r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*INERTIA* $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 118\r\n****RFMT 187,189-204,207-209\r\n****PHS2   DE5  \r\n$$$$ \r\nLABEL    ERROR2 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*INERTIA* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ \r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*INERTIA* $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$ \r\nLABEL    ERROR4 $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*INERTIA* $   \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187,189-204,207-209\r\n$$$$ \r\nLABEL    ERROR5 $   \r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*INERTIA* $   \r\n****CARD  22, 23\r\n****RFMT 187,189-204,207-209\r\n$$$$ \r\nLABEL    ERROR6 $   \r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****RFMT 187,189-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*INERTIA* $   \r\n****CARD   1-  6, 16\r\n****FILE  97\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1- 24, 59- 62\r\n****FILE 122\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1- 24, 59- 62\r\n****RFMT 187,189-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  7    AOUT$\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    OPT      GRDEQ   \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    GPECT    EST      GEI      MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      KSS      MFF   \r\n106    GO       KAA      KOO      LOO      MAA      MOA      MOO\r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    PG   \r\n112    PL       PO       PS       QR\r\n113    PLI      POI \r\n114    RULV     RUOV     ULV      UOOV  \r\n115    PGG      QG       UGV\r\n116    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n116    OEF1L    OES1L    OESF1\r\n117    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n118    KDICT    MDICT    MELM  \r\n119    PLOTX1   \r\n120    OGPWG\r\n121    OQM1 \r\n122    PLOTX2   \r\n123    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP3\r\n\r\nAPR.93  \r\n$$$$$$$$\r\nBEGIN    DISP 03 - NORMAL MODES ANALYSIS - APR. 1993 $  \r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $  \r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 12, 14, 15, 17, 19, 21, 22, 24, 61, 62\r\n****FILE 112,122,124,130,131\r\n****PHS1  I1\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2  D5\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 115\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 116,119\r\n****PHS2  DB5   \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 116\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1//$  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 119\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 116,119\r\n****PHS2  DE5   \r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 22, 24, 61, 62\r\n****FILE  97\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR4,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 14, 16, 24\r\n****FILE  97\r\n****PHS2  D5\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/\r\n         C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/\r\n         C,Y,CPTRPLT/C,Y,CPTRBSC/C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 118\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no mass matrix is to \r\n$$$$ be assembled.\r\nCOND     ERROR1,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2 D5 \r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$ \r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 118\r\n$$$$ Go to label LGPWG if no weight and balance information is requested.\r\nCOND     LGPWG,GRDPNT $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$\r\nLABEL    LGPWG $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 120\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$ \r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n****PHS2  DB5     \r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2  DE5   \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ]{u } = 0.\r\n$$$$                                             g   g\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20, 21\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****PHS1  I1\r\n$$$$\r\nPURGE    KRR,KLR,DM,MLR,MR/REACT/GM/MPCF1/GO/OMIT/KFS/SINGLE/QG/NOSET $ \r\n****CARD   1,  9- 12\r\n****FILE 103,105-107,109,110,113\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no multipoint \r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1 $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and solves\r\n$$$$                                                   g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$ \r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness and mass matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$           \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\nMCE2     USET,GM,KGG,MGG,,/KNN,MNN,, $  \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [M  ] to [M  ] if no single-point \r\n$$$$               nn       ff        nn       ff\r\n$$$$ constraints exist.\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,,/KFF,KFS,,MFF,, $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ \r\nLABEL    LBL3  $\r\n****CARD   1-  6,  8- 10, 14, 24\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$ \r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [M  ] to [M  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                                -1\r\n$$$$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$$$$                                    o        oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ]{G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$ \r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [G ][M  ] + [G ][M  ][G ]\r\n$$$$     aa      aa      oa   o      o   oa      o   oo   o\r\n$$$$ \r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 117\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 106,117\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n****PHS1  DB1   \r\n****PHS3  DB1   \r\n****FILE 109\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ll| lr|                        | ll| lr|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     aa    |K  |K  |                  aa    |M  |M  |\r\n$$$$           | rl| rr|                        | rl| rr|\r\n$$$$           +       +                        +       +\r\n$$$$\r\nRBMG1    USET,KAA,MAA/KLL,KLR,KRR,MLL,MLR,MRR $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 ll      ll   ll\r\n$$$$ \r\nRBMG2    KLL/LLL $  \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 108\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12\r\n****FILE 109\r\n$$$$ RBMG4 forms rigid body mass matrix\r\n$$$$ \r\n$$$$                    T          T           T\r\n$$$$   [m ] = [M  ] + [M  ][D] + [D ][M  ] + [D ][M  ][D]\r\n$$$$     r      rr      lr             lr          ll\r\n$$$$\r\nRBMG4    DM,MLL,MLR,MRR/MR $\r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 110\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  6,  8- 12, 14, 24\r\n****FILE 107-110\r\n****PHS1  DE1   \r\n****PHS3  DE1   \r\n$$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block.\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ \r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****PHS1  DB1   \r\n****PHS3  DB7   \r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR2,NOEED $ \r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 14, 24\r\n****FILE 112\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$   [K   - lambda M  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ calculates rigid body modes by finding a square matrix [phi  ] such that\r\n$$$$                                                            ro\r\n$$$$              T\r\n$$$$   [m ] = [phi  ][m ][phi  ]\r\n$$$$     o        ro   r     ro\r\n$$$$ \r\n$$$$ is diagonal and normalized, computes rigid body eigenvectors\r\n$$$$ \r\n$$$$             +       +\r\n$$$$             |Dphi   |\r\n$$$$             |    ro |\r\n$$$$   [phi  ] = |-------|\r\n$$$$       ao    |phi    |\r\n$$$$             |   ro  |\r\n$$$$             +       +\r\n$$$$ \r\n$$$$ calculates modal mass matrix\r\n$$$$ \r\n$$$$             T\r\n$$$$   [m] = [phi ][M  ][phi ]\r\n$$$$             a   aa     a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$   3. Unit value of the generalized mass.\r\nREAD     KAA,MAA,MR,DM,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/*MODES*/  \r\n         S,N,NEIGV $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$ OFP formats the summary of eigenvalue extraction information (OEIGS) \r\n$$$$ prepared by READ and places it on the system output file for printing.\r\nOFP      OEIGS,,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n$$$$ Go to label FINIS and make normal exit if no eigenvalues were found.\r\nCOND     FINIS,NEIGV $  \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112-114,121,122\r\n$$$$ OFP formats the eigenvalues (LAMA) prepared by READ and places them on \r\n$$$$ the system output file for printing.\r\nOFP      LAMA,,,,,//S,N,CARDNO $\r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 112\r\n****PHS3  DE7   \r\n$$$$ SDR1 recovers dependent components of the eigenvectors\r\n$$$$ \r\n$$$$                                     phi\r\n$$$$                                        a\r\n$$$$  {phi } = [G ]{phi }               {----} = {phi }\r\n$$$$      o      o     a                 phi         f\r\n$$$$                                        o\r\n$$$$\r\n$$$$    phi           \r\n$$$$       f          \r\n$$$$   {----} = {phi }                  {phi } = [G ]{phi }\r\n$$$$    phi         n                       m      m     n\r\n$$$$       s          \r\n$$$$\r\n$$$$    phi           \r\n$$$$       n          \r\n$$$$   {----} = {phi }\r\n$$$$    phi         g \r\n$$$$       m          \r\n$$$$ \r\n$$$$                                                            T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,QG/1/*REIG* $  \r\n****CARD   1-  6,  8- 12, 14, 24, 61, 62\r\n****FILE 113\r\n****RFMT 187,188,190-204,207-209\r\n****PHS3  I7\r\n$$$$ Go to label NOMPCF if no multipoint constraint force balance is \r\n$$$$ requested.\r\nCOND     NOMPCF,GRDEQ $ \r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2  DB5   \r\n$$$$ EQMCK calculates the force and moment equilibrium check and prepares the \r\n$$$$ multipoint constraint force balance (OQM1) for output.\r\nEQMCK    CASECC,EQEXIN,GPL,BGPDT,SIL,USET,KGG,GM,PHIG,LAMA,QG,CSTM/ \r\n         OQM1/V,Y,OPT=0/V,Y,GRDEQ/-1 $  \r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ OFP formats the table prepared by EQMCK and places it on the system \r\n$$$$ output file for printing.\r\nOFP      OQM1,,,,,//S,N,CARDNO $\r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    NOMPCF $   \r\n****CARD  17\r\n****FILE 121\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and prepares \r\n$$$$ eigenvectors (OPHIG) and single-point forces of constraint (OQG1) for \r\n$$$$ output and translation components of the eigenvectors (PPHIG).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,QG,PHIG,EST,,, \r\n         PCOMPS/,OQG1,OPHIG,OES1,OEF1,PPHIG,OES1L,OEF1L/ \r\n         *REIG*////COMPS $  \r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OPHIG,OQG1,OEF1,OES1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19\r\n****FILE 114\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ computes element strains\r\nGPFDR    CASECC,PHIG,KELM,KDICT,ECT,EQEXIN,GPECT,LAMA,/ONRGY1,/*REIG* $\r\n****CARD  19\r\n****FILE 114\r\n$$$$ putout strains\r\nOFP      ONRGY1,,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$ since KDICT and KELM files are no longer needed, purge them\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 118\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 122\r\n****RFMT 187,188,190-204,207-209\r\n****PHS1  DE1   \r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*MODES* $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,188,190-204,207-209\r\n****PHS2  DE5   \r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*MODES* $ \r\n****CARD   1,  9- 12, 61\r\n****FILE 111\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*MODES* $ \r\n****CARD   1,  9- 12\r\n****FILE 101\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187,188,190-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*MODES* $ \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121,122\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****FILE 112-114,121,122\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 22, 24, 61, 62\r\n****RFMT 187,188,190-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     AXSLOT   CELAS1   CELAS2   CELAS3   CELAS4 \r\n  1    CMASS1   \r\n  1    CMASS2   CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C \r\n  1    CORD2R   \r\n  1    CORD2S   FREEPT   GRDSET   GRID     GRIDB    GRIDF    GRIDS  \r\n  1    POINTAX  \r\n  1    PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SLBDY    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CAXIF2   CAXIF3   CAXIF4   CBAR     CCONEAX\r\n  2    CDUM1\r\n  2    CDUM2    CDUM3    CDUM4    CDUM5    CDUM6    CDUM7    CDUM8  \r\n  2    CDUM9\r\n  2    CELBOW   CFLUID2  CFLUID3  CFLUID4  CHEXA1   CHEXA2   CIHEX1 \r\n  2    CIHEX2   \r\n  2    CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1  CQDMEM2  CQDPLT \r\n  2    CQUAD1   CQUAD2   CROD     CSHEAR   CSLOT3   CSLOT4   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    AOUT$\r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    OPT      GRDEQ   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 61    EIGR \r\n 62    METHOD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    YS       RG       USET     ASET     OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN      MNN \r\n105    KFF      KFS      MFF\r\n106    GO       KOO      LOO      KAA   \r\n107    KLL      KLR      KRR      MLL      MLR      MRR \r\n108    LLL  \r\n109    DM   \r\n110    MR   \r\n111    EED      EQDYN    GPLD     SILD     USETD\r\n112    LAMA     MI       OEIGS    PHIA  \r\n113    PHIG     QG  \r\n114    OEF1     OES1     OPHIG    OQG1     PPHIG\r\n114    OEF1L    OES1L    OESF1\r\n115    BGPDP    SIP \r\n116    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n117    MAA  \r\n118    KDICT    KELM     MDICT    MELM  \r\n119    PLOTX1   \r\n120    OGPWG\r\n121    OQM1 \r\n122    PLOTX2   \r\n$*  \r\n=PAGE=\r\nDISP4\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 04 - DIFFERENTIAL STIFFNESS ANALYSIS - APR. 1993 $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21, 24, 61\r\n****FILE 101,112,121,126\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if there is no Grid \r\n$$$$ Point Definition Table.\r\nCOND     ERROR3,NOGPDT $\r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 140\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,125\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 125\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,125\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n****CARD   1,  2, 15, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if there are no \r\n$$$$ structural elements.\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 123\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  6,  8, 13, 15, 24, 61\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  6,  8, 14, 24, 61\r\n****FILE  98, 99\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  4,  6,  8\r\n****CARD 123\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  4,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$ \r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  5,  8, 14, 24, 61\r\n****CARD 123\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  5,  8, 14, 24, 61\r\n****FILE  99\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR4,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$ GPWG prints weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$\r\nLABEL    LBL1 $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 126\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if no general elements exist.\r\n$$$$               gg       gg\r\n$$$$ \r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if no general elements exist.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$ CASE copies the first record of CASECC to CASEXX.\r\nCASE     CASECC,/CASEXX/*TRANRESP*/0/NOLOOP $   \r\n****CARD   1,  9- 11\r\n****FILE 124\r\n$$$$ GP4 generates flags defining memeber of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ]{u } = 0, and forms \r\n$$$$                                         g   g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$ \r\nGP4      CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR5,NOL $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$ Go to label LBL4D if no free-body supports are supplied.\r\nCOND     LBL4D,REACT $  \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2.\r\nJUMP     ERROR2 $   \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,QG,   \r\n         YBS,PBS,KBFS,KBSS,KDFS,KDSS/SINGLE $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 103,105,106,109-111,115,117\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$ \r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equations [R ] = [R |R ] and\r\n$$$$                                                   g      m  n\r\n$$$$ solves for multipoint constraint transformation matrix [G ] =\r\n$$$$       -1                                                 m\r\n$$$$ - [R ]   [R ].\r\n$$$$     m      n\r\n$$$$ \r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$ \r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints.\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$ \r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                                -1\r\n$$$$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$$$$                                    o        oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ]{G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 aa      ll   ll\r\n$$$$ \r\nRBMG2    KAA/LLL $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$ SSG1 generates static load vectors [P }.\r\n$$$$                                      g\r\n$$$$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASEXX,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/1/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 13, 59- 62\r\n****FILE 108\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$ \r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           P\r\n$$$$            a                    T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 59- 62\r\n****FILE 109\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         1/S,N,EPSI $   \r\n****CARD   1-  6,  8- 11, 13, 59- 62\r\n****FILE 110\r\n****RFMT 188\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 11, 13, 17, 59- 62\r\n****RFMT 188,189,192-204,207-209\r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$    u\r\n$$$$     l                                  o\r\n$$$$   {--} = {u }  ,   {u } = [G ]{u ] + {u }  ,\r\n$$$$    u       a         o      o   a      o\r\n$$$$     r\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      fs   f      ss   s\r\n$$$$\r\nSDR1     USET,,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PG1,QG/1/*DS0* $   \r\n****CARD   1-  6,  8- 11, 13, 59- 62\r\n****FILE 111\r\n$$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and \r\n$$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single-\r\n$$$$ point forces of constraint (OQG1) for output and translation components \r\n$$$$ of the displacement vectors (PUGV1) for the static solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PG, \r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ \r\n         *DS0*////COMPS $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 112\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ Go to label P2 if no deformed static solution structure plots are \r\n$$$$ requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$ PLOT generates all requested static solution deformed structure and \r\n$$$$ contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed static solution plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 127\r\n$$$$ TA1 generates element tables for use in differential stiffness matrix \r\n$$$$ assembly.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,,CSTM,/X1,X2,X3,ECPT,GPCT,,,/LUSET/  \r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 128\r\n$$$$                                                 d\r\n$$$$ DSMG1 generates differential stiffness matrix [K  ].\r\n$$$$                                                 gg\r\n$$$$ \r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/   \r\n         DSCOSET $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 113\r\n$$$$\r\nPARAM    //*ADD*/SHIFT/-1/0 $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAM    //*ADD*/COUNT/ALWAYS=-1/NEVER= 1 $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAMR   //*ADD*/DSEPSI/0.0/0.0 $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$\r\nPARAML   YS//*NULL*////NOYS $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$ Beginning of outer (stiffness adjustment) loop for differential stiffness \r\n$$$$ iteration.\r\nLABEL    OUTLPTOP $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n$$$$ Equivalence {P } to {P  } if no enforced displacements are specified.\r\n$$$$               g       g1\r\n$$$$ \r\nEQUIV    PG,PG1/NOYS $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nPARAM    //*KLOCK*/TO $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF1 $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$ Go to label LBL2D if no multipoint constraints exist.\r\nCOND     LBL2D,MPCF1 $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    | d   d |\r\n$$$$           |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$      \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$     d      _d       T   d       d           T   d\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$ \r\nEQUIV    KDNN,KDFF/SINGLE $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$ Go to label LBL3D if no single-point constraints exist.\r\nCOND     LBL3D,SINGLE $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           | d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    | d   d |\r\n$$$$           |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,KDSS,,, $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 115\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$ Go to label LBL5D if no omitted coordinates exist.\r\nCOND     LBL5D,OMIT $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$ SMP2 partitions constrained differential stiffness matrix\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           | oa  oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     d      _d       d  T           T  d         T  d\r\n$$$$   [K  ] = [K  ] + [K  ] [G ] + [G ] [K  ] + [G ] [K  ][G ]\r\n$$$$     aa      aa      oa    o      o    oa      o    oo   o\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 116\r\n$$$$                 d             b\r\n$$$$ ADD [K  ] and [K  ] to form [K  ].\r\n$$$$       aa        aa            ll\r\n$$$$ \r\nADD      KAA,KDAA/KBLL/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$                 d             b\r\n$$$$ ADD [K  ] and [K  ] to form [K  ].\r\n$$$$       fs        fs            fs\r\n$$$$\r\nADD      KFS,KDFS/KBFS/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$                 d             b\r\n$$$$ ADD [K  ] and [K  ] to form [K  ].\r\n$$$$       ss        ss            ss\r\n$$$$\r\nADD      KSS,KDSS/KBSS/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 117\r\n$$$$ Go to label PGOK if no enforced displacements are specified.\r\nCOND     PGOK,NOYS $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129-133\r\n$$$$                   b\r\n$$$$ MPYAD multiples [K  ] and {Y } to form {P  }.\r\n$$$$                   ss        s            ss\r\n$$$$\r\nMPYAD    KBSS,YS,/PSS/0/1/1/1 $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129\r\n$$$$                   b\r\n$$$$ MPYAD multiples [K  ] and {Y } to form {P  }.\r\n$$$$                   fs        s            fs\r\n$$$$\r\nMPYAD    KBFS,YS,/PFS/0/1/1/1 $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 130\r\n$$$$                   b\r\n$$$$ UMERGE combines [K  ] and {P  } to form {P }.\r\n$$$$                   fs        ss            n\r\n$$$$\r\nUMERGE   USET,PFS,PSS/PN/*N*/*F*/*S* $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 131\r\n$$$$                       x\r\n$$$$ Equivalence {P } to {P } if no multipoint constraints exist.\r\n$$$$               n       g\r\n$$$$ \r\nEQUIV    PN,PGX/MPCF1 $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$ Go to label LBL6D if no multipoint constraints exist.\r\nCOND     LBL6D,MPCF1 $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$                               x\r\n$$$$ UMERGE expands {P } to form {P }.\r\n$$$$                  n            g\r\n$$$$\r\nUMERGE   USET,PN,/PGX/*G*/*N*/*M* $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$\r\nLABEL    LBL6D $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 132\r\n$$$$        x\r\n$$$$ ADD -{P } and {P } to form {P  }.\r\n$$$$        g        g            gg\r\n$$$$ \r\nADD      PGX,PG/PGG/(-1.0,0.0)/(1.0,0.0) $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 133\r\n$$$$\r\n$$$$ Equivalence {P  } to {P  }.\r\n$$$$               gg       g1\r\n$$$$\r\nEQUIV    PGG,PG1/ALWAYS $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    PGOK $ \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 129-133\r\n$$$$\r\n$$$$ ADD {P  } and nothing to create {P  }.\r\n$$$$       g1                          g0\r\n$$$$\r\nADD      PG1,/PG0/(1.0,0.0) $   \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 134\r\n$$$$ RBMG2 decomposes the combined differential stiffness matrix and elastic \r\n$$$$ stiffness matrix\r\n$$$$\r\n$$$$     b       b    b\r\n$$$$   {K  ] = [L  ][U  ]\r\n$$$$     ll      ll   ll\r\n$$$$\r\nRBMG2    KBLL/LBLL/S,N,POWER/S,N,DET $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$ PRTPARM prints the scaled value of the determinant of the combined \r\n$$$$ differential stiffness matrix and elastic stiffness matrix.\r\nPRTPARM  //0/*DET* $\r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$ PRTPARM prints the scale factor (power of ten) of the determinant of the \r\n$$$$ combined differential stiffness matrix and elastic stiffness matrix.\r\nPRTPARM  //0/*POWER* $  \r\n****CARD   1-  6,  8- 11, 59- 62\r\n****FILE 118\r\n$$$$ Beginning of inner (load correction) loop for differential stiffness \r\n$$$$ iteration.\r\nLABEL    INLPTOP $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 118\r\n$$$$\r\nPARAM    //*KLOCK*/TI $ \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$            _b\r\n$$$$            p\r\n$$$$             n      b     _b      T   b\r\n$$$$   {P  } = {--} , {p } = {p } + [G ]{p }\r\n$$$$     g1      b      n      n      m   m\r\n$$$$            p \r\n$$$$             m\r\n$$$$ \r\n$$$$           _b\r\n$$$$           p\r\n$$$$     b      f            _b      d\r\n$$$$   {p } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n      b      f      f      fs   s\r\n$$$$           p \r\n$$$$            s\r\n$$$$ \r\n$$$$           _b\r\n$$$$           p\r\n$$$$     b      a      b      b      T   b\r\n$$$$   {p } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f      b      l      a      o   o\r\n$$$$\r\nSSG2     USET,GM,YS,KDFS,GO,,PG1/,PBO,PBS,PBL $ \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 117\r\n$$$$ SSG3 solves for displacements of independent coordinates for current \r\n$$$$ differential stiffness load vector\r\n$$$$ \r\n$$$$     b      b  -1  b\r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ and calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ current differential stiffness load vector\r\n$$$$ \r\n$$$$          b      b      b    b\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                b T       b\r\n$$$$              {u } {deltaP }\r\n$$$$          b     l         l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       b T  b\r\n$$$$                {P } {u }\r\n$$$$                  l    l\r\n$$$$ \r\nSSG3     LBLL,KBLL,PBL,,,/UBLV,,RUBLV,/-1/V,Y,IRES/NDSKIP/S,N,  \r\n         EPSI $ \r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n****FILE 119\r\n$$$$ Go to lable LBL9D if the residual vector for current differential \r\n$$$$ stiffness solution is not to be printed.\r\nCOND     LBL9D,IRES $   \r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$ MATGPR prints the residual vector for current differential stiffness \r\n$$$$ solution.\r\nMATGPR   GPL,USET,SIL,RUBLV//*L* $  \r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$\r\nLABEL    LBL9D $\r\n****CARD   1-  6,  8- 11, 17, 22, 23, 59- 62\r\n$$$$ SDR1 recovers dependent displacements for the current differential \r\n$$$$ stiffness solution\r\n$$$$ \r\n$$$$                                 b\r\n$$$$                                u         \r\n$$$$    b          b      ob         l        \r\n$$$$  {u } = [G ]{u ] + {u  }  ,   {--} = {u }\r\n$$$$    o      o   l      o          b      f \r\n$$$$                                u         \r\n$$$$                                 m\r\n$$$$ \r\n$$$$     b\r\n$$$$    u\r\n$$$$     f      b         b          b\r\n$$$$   {--} = {u }  ,   {u } = [G ]{u }\r\n$$$$     b      n         m      m   n\r\n$$$$    Y \r\n$$$$     s\r\n$$$$ \r\n$$$$     b        \r\n$$$$    u         \r\n$$$$     n      b \r\n$$$$   {--} = {u }\r\n$$$$     b      g \r\n$$$$    u                             \r\n$$$$     m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint for the current \r\n$$$$ differential stiffness solution\r\n$$$$ \r\n$$$$     b       b      b    b      b    b\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      sf   f      ff   s\r\n$$$$\r\nSDR1     USET,,UBLV,,YS,GO,GM,PBS,KBFS,KBSS,/UBGV,,QBG/1/*DS1* $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 120\r\n****RFMT 187-189,191-204,207-209\r\n$$$$         b                     d\r\n$$$$ ADD - {U } and {U } to form {U }.\r\n$$$$         g        g            g\r\n$$$$\r\nADD      UBGV,UGV/DUGV/(-1.0,0.0)/(1.0,0.0) $   \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 135\r\n$$$$                                                       d\r\n$$$$ DSMG1 generates differential stiffness matrix [delta K  ].\r\n$$$$                                                       gg\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,DUGV,CSTM,MPT,ECPT,GPCT,DIT/DKDGG/ \r\n         DSCOSET $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 136\r\n$$$$ MPYAD forms the load vector for inner loop iteration\r\n$$$$\r\n$$$$                    d    b\r\n$$$$   {P   } = [delta K  ]{U } + {P  }\r\n$$$$     g              gg   g      go\r\n$$$$      I1\r\n$$$$\r\nMPYAD    DKDGG,UBGV,PG0/PGI1/0/1/1/0 $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 137\r\n$$$$ DSCHK performs differential stiffness convergence checks.\r\nDSCHK    PG1,PGI1,UBGV//C,Y,EPSIO=1.E-5/S,N,DSEPSI/C,Y,NT=10/TO/\r\n         TI/S,N,DONE/S,N,SHIFT/S,N,COUNT/C,Y,BETAD=4 $  \r\n****CARD   1-  6,  8- 11, 22, 23, 25, 59- 62\r\n$$$$ Go to label DONE if differential stiffness iteration is complete.\r\nCOND     DONE,DONE $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$ Go to label SHIFT if additional differential stiffness matrix changes are \r\n$$$$ necessary for further iteration.\r\nCOND     SHIFT,SHIFT $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$ Break the previous equivalence of {P } to {P  } and {P  } to {P   }\r\n$$$$                                     g       g1        g1       g\r\n$$$$                                                                 I1\r\n$$$$ and establish equivalence of {P   } to {P  }.\r\n$$$$                                g         g1\r\n$$$$                                 I1\r\n$$$$\r\nEQUIV    PG,PG1/NEVER/PGI1,PG1/ALWAYS/PG1,PGI1/NEVER $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 111,137\r\n$$$$ Go to label INLPTOP for an additional inner loop stiffness iteration.\r\nREPT     INLPTOP,1000 $ \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$ TABPT table prints vectors {P   }, {P  }, and {P }.\r\n$$$$                              g       g1         g\r\n$$$$                               I1\r\n$$$$ \r\nTABPT    PGI1,PG1,PG,,// $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nLABEL    SHIFT $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$              d         d             d\r\n$$$$ ADD -[delta K  ] and [K  ] to form [K   ].\r\n$$$$              gg        gg            gg1\r\n$$$$\r\nADD      DKDGG,KDGG/KDGG1/(-1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 138\r\n$$$$               b                d         d\r\n$$$$ Equivalence {U } to {U } and [K   ] to [K  ]>\r\n$$$$               g       g        gg1       gg\r\n$$$$\r\nEQUIV    UBGV,UGV/ALWAYS/KDGG1,KDGG/ALWAYS $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 111,113\r\n$$$$                                     d        d                  b\r\n$$$$ Break the previous equivalence of [K  ] to [K   ] and {U } to {U }.\r\n$$$$                                     gg       gg1        g       g\r\n$$$$\r\nEQUIV    KDGG,KDGG1/NEVER/UGV,UBGV/NEVER $  \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n****FILE 120,138\r\n$$$$ Go to label OUTLPTOP for an additional outer loop differential stiffness \r\n$$$$ iteration.\r\nREPT     OUTLPTOP,1000 $\r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$                      d       d\r\n$$$$ TABPT table prints [K   ], [K  ], and {U }.\r\n$$$$                      gg1     gg         g\r\n$$$$ \r\nTABPT    KDGG1,KDGG,UGV,,// $   \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$\r\nLABEL    DONE $ \r\n****CARD   1-  6,  8- 11, 22, 23, 59- 62\r\n$$$$ SDR2 calculates element forces (OEFB1) and stresses (OESB1) and prepares \r\n$$$$ displacement vectors (OUBGV1) and single-point forces of constraint \r\n$$$$ (OQBG1) for output and translation components of the vector (PUBGV1) for \r\n$$$$ the differential stiffness solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QBG,UBGV,EST,,, \r\n         PCOMPS/,OQBG1,OUBGV1,OESB1,OEFB1,PUBGV1,OESB1L,OEFB1L/ \r\n         *DS1*////COMPS $   \r\n****CARD  18, 19\r\n****FILE 121\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUBGV1,OQBG1,OEFB1,OESB1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 121\r\n$$$$\r\nOFP      OEFB1L,OESB1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 121\r\n$$$$ Go to label P3 if no differential stiffness solution deformed plots are \r\n$$$$ requested.\r\nCOND     P3,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$ PLOT generates all requested differential stiffness solution deformed \r\n$$$$ structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUBGV1,,GPECT,\r\n         OESB1,OESB1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,   \r\n         PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ differential stiffness solution deformed plot generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$\r\nLABEL    P3 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 139\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE 139\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*DIFFSTIF* $  \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*DIFFSTIF* $  \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*DIFFSTIF* $  \r\n****CARD   1\r\n****FILE  94\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*DIFFSTIF* $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*DIFFSTIF* $  \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 25, 59- 62\r\n****FILE 139\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 25, 59- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    EPSIO    NT       BETAD  \r\n 59    DEFORM   DEFORM$  LOAD$    RFORCE$  SPCD \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    LLL  \r\n108    PG   \r\n109    PL       PO       PS \r\n110    RULV     RUOV     ULV      UOOV  \r\n111    PG1      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n112    OEF1L    OES1L    OESF1\r\n113    KDGG \r\n114    KDNN \r\n115    KDFF     KDFS     KDSS   \r\n116    KDAA \r\n117    KBLL     YBS      KBFS     KBSS     PBL      PBS      PBO\r\n118    LBLL \r\n119    UBLV     RUBLV   \r\n120    QBG      UBGV\r\n121    OEFB1    OESB1    OQBG1    OUBGV1   PUBGV1   \r\n121    OEFB1L   OESB1L  \r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n123    KDICT    KELM     MDICT    MELM  \r\n124    CASEXX   \r\n125    PLOTX1   \r\n126    OGPWG\r\n127    PLOTX2   \r\n128    X1       X2       X3       ECPT     GPCT \r\n129    PSS  \r\n130    PFS  \r\n131    PN   \r\n132    PGX  \r\n133    PGG  \r\n134    PGO  \r\n135    DUGV \r\n136    DKDGG\r\n137    PGI1 \r\n138    KDGG1\r\n139    PLOTX3   \r\n140    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP5\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 05 - BUCKLING ANALYSIS - APR. 1993 $  \r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nFILE     LAMA=APPEND/PHIA=APPEND $  \r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 11, 14, 15, 19, 21, 24, 57- 62\r\n****FILE 101,112,118,120,125\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and table relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 129\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 122,124\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 122\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,124\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122,124\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $   \r\n****CARD   1,  2, 13, 57, 60\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/NOMGG/NOGRAV/V,Y,GRDPNT=-1 $   \r\n****CARD   1,  2, 15, 57\r\n****FILE 123\r\n****RFMT 187-190,192-204,207-209\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/S,N,GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE  97\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no structural \r\n$$$$ elements have been defined.\r\nCOND     ERROR1,NOSIMP $\r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-190,192-204,207-209\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$ EMG generates structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/   \r\n         C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/ \r\n         C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 15, 24, 57\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 57\r\n****FILE  98, 99\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE  99\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$ Go to label ERROR5 and print Error Message No. 5 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR5,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 14, 15, 57\r\n****FILE 125\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ]{u } = 0, and forms enforced\r\n$$$$                                         g   g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 101\r\n$$$$ Go to label ERROR6 and print Error Message No. 6 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR6,NOL $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-190,192-204,207-209\r\n$$$$ Go to label LBL4D if there are no free-body supports.\r\nCOND     LBL4D,REACT $  \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2.\r\nJUMP     ERROR2 $   \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nLABEL    LBL4D $\r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,193-204,207-209\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,KFS,KSS,KDFS/SINGLE/  \r\n         QG/NOSR $  \r\n****CARD   1,  9- 12, 59\r\n****FILE 103,105,106,109-111,115\r\n$$$$ Equivalence [K  ] to [K  ] if there are not multipoint constraints.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label LBL2 if there are no multipoint constraints.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$ \r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints.\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                                -1\r\n$$$$ solves for transformation matrix [G ] = -[[K  ]  [K  ]\r\n$$$$                                    o        oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ]{G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ RBMG2 decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                 aa      ll   ll\r\n$$$$\r\nRBMG2    KAA/LLL $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 107\r\n$$$$ SSG1 generates static load vectors {P }.\r\n$$$$                                      g\r\n$$$$ \r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT,PCOMPS/ \r\n         PG,,,,/LUSET/1/COMPS $ \r\n****CARD   1-  3,  5,  6,  8, 13, 57- 60\r\n****FILE 108\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$\r\nEQUIV    PG,PL/NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           P\r\n$$$$            a                    T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,,PG/,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL10 $\r\n****CARD   1-  3,  5,  6,  8- 11, 13, 57- 60\r\n****FILE 109\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LLL,KAA,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         1/S,N,EPSI $   \r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****FILE 110\r\n****RFMT 188\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES $\r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$\r\nLABEL    LBL9 $ \r\n****CARD   1-  6,  8- 11, 13, 17, 57- 60\r\n****RFMT 188,189,192-198\r\n$$$$ SDR1 recovers dependent displacements\r\n$$$$ \r\n$$$$   \r\n$$$$                       o\r\n$$$$   {u } = [G ]{u ] + {u }  ,\r\n$$$$     o      o   l      o\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } + [K  ]{Y }\r\n$$$$     s       s      fs   f      ss   s\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,/UGV,PGG,QG/1/\r\n         *BKL0* $   \r\n****CARD   1-  6,  8- 11, 13, 57- 60\r\n****FILE 111\r\n$$$$ SDR2 calculates the element forces (OEF1) and stresses (OES1) and \r\n$$$$ prepares load vectors (OPG1), displacement vectors (OUGV1), and single-\r\n$$$$ point forces of constraint (OQG1) for output and translation components \r\n$$$$ of the displacement vectors (PUGV1) for the static solution.\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG,UGV,EST,,PGG,\r\n         PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/ \r\n         *BKL0*////COMPS $  \r\n****CARD  19\r\n****FILE 112\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 112\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 112\r\n$$$$ Go to label P2 if no static solution deformed structure plots are \r\n$$$$ requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ PLOT generates all requested static solution deformed structure and \r\n$$$$ contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,GPECT,OES1,\r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ static solution deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ TA1 generates element tables for use in differential stiffness matrix \r\n$$$$ assembly.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,,/X1,X2,X3,ECPT,GPCT,,,/LUSET/  \r\n         NOSIMP/0/NOGENL/GENEL $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 127\r\n$$$$                                                 d\r\n$$$$ DSMG1 generates differential stiffness matrix [K  ].\r\n$$$$                                                 gg\r\n$$$$\r\nDSMG1    CASECC,GPTT,SIL,EDT,UGV,CSTM,MPT,ECPT,GPCT,DIT/KDGG/   \r\n         DSCOSET $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 113\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KDGG,KDNN/MPCF1 $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$ Go to label LBL2D if no multipoint constraints exist.\r\nCOND     LBL2D,MPCF1 $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    | d   d |\r\n$$$$           |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$      \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$     d      _d       T   d       d           T   d\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KDGG,,,/KDNN,,, $  \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL2D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 114\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KDNN,KDFF/SINGLE $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$ Go to label LBL3D if no single-point constraints exist.\r\nCOND     LBL3D,SINGLE $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           | d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    | d   d |\r\n$$$$           |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KDNN,,,/KDFF,KDFS,,,, $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL3D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 115\r\n$$$$               d        d\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KDFF,KDAA/OMIT $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$ Go to label LBL5D if no omitted coordinates exist.\r\nCOND     LBL5D,OMIT $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$ SMP2 partitions constrained differential stiffness matrix\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |_d   d |\r\n$$$$           |K  |K  |\r\n$$$$     d     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | d | d |\r\n$$$$           |K  |K  |\r\n$$$$           | oa  oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     d      _d       d  T           T  d         T  d\r\n$$$$   [K  ] = [K  ] + [K  ] [G ] + [G ] [K  ] + [G ] [K  ][G ]\r\n$$$$     aa      aa      oa    o      o    oa      o    oo   o\r\n$$$$\r\nSMP2     USET,GO,KDFF/KDAA $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$\r\nLABEL    LBL5D $\r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 116\r\n$$$$        d                           dm\r\n$$$$ ADD -[K  ] and nothing to create [K  ].\r\n$$$$        aa                          aa\r\n$$$$\r\nADD      KDAA,/KDAAM/(-1.0,0.0)/(0.0,0.0) $ \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 121\r\n$$$$ DPD extracts Eigenvalue Extraction Data from Dynamics data block.\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/ \r\n         LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED//NOUE $ \r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR3,NOEED $ \r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NEIGV/1/-1 $   \r\n****CARD   1-  6,  8- 11, 57- 60\r\n****FILE 118\r\n$$$$ READ extracts real eigenvalues and eigenvectors from the equation\r\n$$$$ \r\n$$$$                  dm\r\n$$$$   [K   + lambda K  ]{u } = 0\r\n$$$$     aa           aa   a\r\n$$$$ \r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit value of a selected component.\r\n$$$$   2. Unit value of the largest component.\r\n$$$$\r\nREAD     KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,,OEIGS/*BUCKLING*/   \r\n         S,N,NEIGV/2 $  \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n$$$$ OFP formats the eigenvalues (LAMA) and summary of eigenvalue extraction \r\n$$$$ information (OEIGS) prepared by READ and places them on the system output \r\n$$$$ file for printing.\r\nOFP      OEIGS,LAMA,,,,//S,N,CARDNO $   \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no eigenvalues were \r\n$$$$ found.\r\nCOND     ERROR4,NEIGV $ \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 119\r\n$$$$ SDR1 recovers dependent components of the eigenvectors\r\n$$$$ \r\n$$$$                                     phi\r\n$$$$                                        a\r\n$$$$  {phi } = [G ]{phi }               {----} = {phi }\r\n$$$$      o      o     a                 phi         f\r\n$$$$                                        o\r\n$$$$\r\n$$$$    phi           \r\n$$$$       f          \r\n$$$$   {----} = {phi }                  {phi } = [G ]{phi }\r\n$$$$    phi         n                       m      m     n\r\n$$$$       s          \r\n$$$$\r\n$$$$    phi           \r\n$$$$       n          \r\n$$$$   {----} = {phi }\r\n$$$$    phi         g \r\n$$$$       m          \r\n$$$$ \r\n$$$$                                                         T\r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/1/*BKL1* $ \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 119\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ SDR2 calculates the element forces (OBEF1) and stresses (OBES1) and \r\n$$$$ prepares eigenvectors (OPHIG) and single-point forces of constraint\r\n$$$$ (OBQG1) for output and translation components of the displacement\r\n$$$$ vectors (PPHIG) for the static solution.\r\n$$$$\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDP,LAMA,BQG,PHIG,EST,,,\r\n         PCOMPS/,OBQG1,OPHIG,OBES1,OBEF1,PPHIG,OBES1L,OBEF1L/   \r\n         *BKL1*////COMPS $  \r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OBEF1L,OBES1L,,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 120\r\n$$$$ Go to label P3 if no buckling solution deformed structure plots are \r\n$$$$ requested.\r\nCOND     P3,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$ PLOT generates all requested buckling solution deformed structure and \r\n$$$$ contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,,PPHIG,GPECT, \r\n         OBES1,OBES1L,/PLOTX3/NSIL/LUSEP/JUMPPLOT/PLTFLG/   \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ buckling solution deformed plot generated.\r\nPRTMSG   PLOTX3// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$\r\nLABEL    P3 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 128\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE 128\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*BUCKLING* $  \r\n****CARD   1,  2,  4-  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*BUCKLING* $  \r\n****CARD   1, 12\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*BUCKLING* $  \r\n****CARD   1-  6,  8- 11, 57- 61\r\n****FILE 117\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*BUCKLING* $  \r\n****CARD   1-  6,  8- 11, 57- 62\r\n****FILE 118\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR5 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*BUCKLING* $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 57\r\n****FILE 125\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    ERROR6 $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$ Print Error Message No. 6 and terminate execution.\r\nPRTPARM  //-6/*BUCKLING* $  \r\n****CARD   1,  9- 12, 59\r\n****FILE 101\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****FILE 128\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 21, 24, 57- 62\r\n****RFMT 187-189,191-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 57    GRAV     RFORCE  \r\n 58    TEMPLD$  \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    EIGB \r\n 62    METHOD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    KNN  \r\n105    KFF      KFS      KSS\r\n106    GO       KAA      KOO      LOO   \r\n107    LLL  \r\n108    PG   \r\n109    PL       PO       PS \r\n110    RULV     RUOV     ULV      UOOV  \r\n111    PGG      QG       UGV\r\n112    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n112    OEF1L    OES1L    OESF1\r\n113    KDGG \r\n114    KDNN \r\n115    KDFF     KDFS     KDSS   \r\n116    KDAA \r\n117    EED      EQDYN    GPLD     SILD     USETD\r\n118    LAMA     OEIGS    PHIA   \r\n119    BQG      PHIG\r\n120    OBEF1    OBES1    OBQG1    OPHIG    PPHIG\r\n120    OBEF1L   OBES1L  \r\n121    KDAAM\r\n122    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n123    KDICT    KELM     MDICT    MELM  \r\n124    PLOTX1   \r\n125    OGPWG\r\n126    PLOTX2   \r\n127    X1       X2       X3       ECPT     GPCT \r\n128    PLOTX3   \r\n129    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP6\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 06 - PIECEWISE LINEAR STATIC ANALYSIS - APR. 1993 $   \r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nFILE     QG1=APPEND/UGV1=APPEND/KGGSUM=SAVE/PGV1=APPEND $   \r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21- 24, 61\r\n****FILE 102,117,120,124\r\n$$$$ GPI generates coordinate system transformation matrices, tables of grid \r\n$$$$ locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 126\r\n$$$$ GP2 generates the Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 121,122\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 121\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,122\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 122\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 121,122\r\n$$$$ GP3 generates Static Loads Table and Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/S,N,NOGRAV $   \r\n****CARD   1,  2, 13, 60, 61\r\n****FILE  96\r\n$$$$\r\nPARAM    //*AND*/SKPMGG/NOGRAV/V,Y,GRDPNT $ \r\n****CARD   1,  2, 15, 61\r\n****FILE 123\r\n****RFMT 187-191,193-198\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,ECPT,GPCT,\r\n         MPTX,PCOMPS,EPTX/LUSET/S,N,NOSIMP/2/S,N,NOGENL/GENEL/S,N,COMPS\r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $ \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been \r\n$$$$ defined.\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPURGE    KGGX/NOSIMP $  \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99,123,124\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$ EMG generates the structural element stiffness and mass matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,,,/S,N,NOKGGX/   \r\n         S,N,NOMGG////C,Y,COUPMASS/C,Y,CPBAR/C,Y,CPROD/ \r\n         C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/C,Y,CPTRIA2/C,Y,CPTUBE/\r\n         C,Y,CPQDPLT/C,Y,CTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 123\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 15, 24, 61\r\n****FILE  98, 99\r\n$$$$ Go to label JMPKGG if no stiffness matrix is to be assembled.\r\nCOND     JMPKGG,NOKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPMGG if no mass matrix is to be assembled.\r\nCOND     JMPMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPMGG $   \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  99\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR3,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/V,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE  98, 99,123,124\r\n$$$$                                       x             xl\r\n$$$$ PLA1 extracts the linear terms form [K  ] to give [K  ], extracts the\r\n$$$$                                       gg            gg\r\n$$$$ \r\n$$$$ nonlinear entries from the Element Connection and Properties Table to \r\n$$$$ give ECPTNL, and separates the linear and nonlinear entries in the \r\n$$$$ Element Summary Table to give ESTL and ESTNL.\r\nPLA1     CSTM,MPT,ECPT,GPCT,DIT,CASECC,EST/KGGXL,ECPTNL,ESTL,ESTNL/S,N, \r\n         KGGLPG/S,N,NPLALIM/S,N,ECPTNLPG/S,N,PLSETNO/S,N,NONLSTR/S,N,   \r\n         PLFACT $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no elements have a \r\n$$$$ stress-dependent modulus of elasticity.\r\nCOND     ERROR1,ECPTNLPG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPURGE    ONLES,ESTNL1/NONLSTR $ \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPARAM    //*ADD*/ALWAYS/-1/0 $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n$$$$               x                  xl       l\r\n$$$$ Equivalence [K  ] to [K  ] and [K  ] to [K  ] if there are no general\r\n$$$$               gg       gg        gg       gg\r\n$$$$ elements.\r\nEQUIV    KGGX,KGG/NOGENL/KGGXL,KGGL/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$                                 xl\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness of linear\r\n$$$$                                 gg\r\n$$$$            l\r\n$$$$ elements [K  ].\r\n$$$$            gg\r\n$$$$ \r\nSMA3     GEI,KGGXL/KGGL/LUSET/NOGENL/KGGLPG $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 101\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 104\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 59\r\n****FILE 102\r\n$$$$ GP4 generates flags defining members of various displacement set (USET)\r\n$$$$ and forms multipoint constraint equation [R ] {u } = 0.\r\n$$$$                                            g    g\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,USET,   \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 20, 21, 59\r\n****FILE 102\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 21\r\n****FILE 102\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 59\r\n****FILE 102\r\n$$$$\r\nPURGE    KRR,KLR,QR,DM/REACT/GM/MPCF1/GO,KOO,LOO,PO,UOOV,RUOV/OMIT/PS,  \r\n         KFS,KSS/SINGLE/QG/NOSR $   \r\n****CARD   1,  9- 12, 59\r\n****FILE 105,107-109,111,113-115\r\n$$$$                                           l\r\n$$$$ SSG1 generates total static load vector {P }.\r\n$$$$                                           g\r\n$$$$\r\nSSG1     SLT,BGPDT,CSTM,SIL,EST,MPT,,,MGG,CASECC,DIT,PCOMPS/PG1,,,,/\r\n         LUSET/1/COMPS $\r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 103\r\n$$$$               l\r\n$$$$ Equivalence {P } t {P } if no constraints are applied.\r\n$$$$               g      l\r\n$$$$\r\nEQUIV    PG1,PL/NOSET $ \r\n****CARD   1-  3,  5,  6,  8, 59- 62\r\n****FILE 103\r\n$$$$\r\nPARAM    //*ADD*/PLACOUNT/1/0 $ \r\n****CARD  22, 23\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 105,106\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9, 22, 23\r\n****FILE 105\r\n$$$$ Beginning of loop for additional load increments.\r\nLABEL    LOOPBGN $  \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n$$$$\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$ MCE2 partitions stiffness matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs the matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,,,/KNN,,, $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 105,106\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE $   \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$ SCE1 partitions out single-point constraints.\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     USET,KNN,,,/KFF,KFS,KSS,,, $   \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 107\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 108\r\n$$$$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$$$$               aa       ll\r\n$$$$\r\nEQUIV    KAA,KLL/REACT $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ Go to label LBL6 if no free-body supports exist.\r\nCOND     LBL6,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ll| lr|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     aa    |K  |K  |\r\n$$$$           | rl| rr|\r\n$$$$           +       +\r\n$$$$\r\nRBMG1    USET,KAA,/KLL,KLR,KRR,,, $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    LBL6 $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ DECOMP decomposes constrained stiffness matrix [K  ] = [L  ][U  ].\r\n$$$$                                                  ll      ll   ll\r\n$$$$ \r\nDECOMP   KLL/LLL,/1/0/MINDIAGK/DETKLLXX/IDETKLLX/   \r\n         S,N,SINGKLLX $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 110\r\n$$$$ Go to label PLALBL4 and print Error Message No. 5 if stiffness matrix\r\n$$$$ [K  ] is singular (i.e., local plasticity).\r\n$$$$   ll\r\n$$$$ \r\nCOND     PLALBL4,SINGKLLX $ \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****FILE 110\r\n$$$$ Go to label LBL7 if no free-body supports exist.\r\nCOND     LBL7,REACT $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$              T\r\n$$$$   [X] = [K  ]  + [K  ][D]\r\n$$$$           rr       lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    LLL,KLR,KRR/DM $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$\r\nLABEL    LBL7 $ \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 111\r\n$$$$                                    1\r\n$$$$ ADD multiplies total load vector {P ]} by factor PLFACT and adds it to\r\n$$$$                                    g\r\n$$$$ nothing to obtain applied load vector {P } for current loop.\r\n$$$$                                         g\r\n$$$$\r\nADD      PG1,/PG/PLFACT $   \r\n****CARD   1-  3,  5,  6,  8, 13, 22, 23, 58- 62\r\n****FILE 112\r\n****RFMT 187,188,190,191\r\n$$$$ Go to label LBL10 if no constraints are applied.\r\nCOND     LBL10,NOSET  $ \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$ SSG2 applies constraints to static load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           P\r\n$$$$            a                    T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       l      a      o   o\r\n$$$$            o\r\n$$$$\r\n$$$$           P  \r\n$$$$            l \r\n$$$$   {P } = {--}\r\n$$$$     a     P  \r\n$$$$            r \r\n$$$$\r\n$$$$ and calculates incremental determinate forces of reaction for current \r\n$$$$ loop\r\n$$$$\r\n$$$$                    T\r\n$$$$   {q } = -{P } - [D ]{P }\r\n$$$$     r       r          l\r\n$$$$\r\nSSG2     USET,GM,YS,KFS,GO,DM,PG/QR,PO,PS,PL $  \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$\r\nLABEL    LBL10  $   \r\n****CARD   1-  3,  5,  6,  8- 13, 22, 23, 58- 62\r\n****FILE 113\r\n****RFMT 187,188,190,191\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (RULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (RUOV) and residual vector error ratio for\r\n$$$$ omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     LLL,KLL,PL,LOO,KOO,PO/ULV,UOOV,RULV,RUOV/OMIT/V,Y,IRES=-1/ \r\n         PLACOUNT/S,N,EPSI $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****FILE 114\r\n****RFMT 187,188,190,191\r\n$$$$ Go to label LBL9 if residual vectors are not to be printed.\r\nCOND     LBL9,IRES   $  \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$ MATGPR prints the residual vector for independent coordinates (RULV).\r\nMATGPR   GPL,USET,SIL,RULV//*L* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (RUOV).\r\nMATGPR   GPL,USET,SIL,RUOV//*O* $   \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    LBL9  $\r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$ SDR1 recovers dependent displacements for current loop\r\n$$$$ \r\n$$$$    u\r\n$$$$     l                                  o\r\n$$$$   {--} = {u }  ,   {u } = [G ]{u ] + {u }  ,\r\n$$$$    u       a         o      o   a      o\r\n$$$$     r\r\n$$$$ \r\n$$$$    u                u            \r\n$$$$     a                f           \r\n$$$$   {--} = {u }  ,   {--} = {u }  ,\r\n$$$$    u       f        Y       n    \r\n$$$$     o                s           \r\n$$$$                                  \r\n$$$$                        u         \r\n$$$$                         n        \r\n$$$$  {u } = [G ]{u ]  ,   {--} = {u }\r\n$$$$    m      m   n        u       g \r\n$$$$                         m        \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint for current loop\r\n$$$$ \r\n$$$$                          T\r\n$$$$   {delta q } = -{P } + [K  ]{u }\r\n$$$$           s       s      fs   f\r\n$$$$\r\nSDR1     USET,PG,ULV,UOOV,YS,GO,GM,PS,KFS,KSS,QR/DELTAUGV,DELTAPG,  \r\n         DELTAQG/1/*STATICS* $  \r\n****CARD   1-  6,  8- 13, 22, 23, 58- 62\r\n****FILE 115\r\n****RFMT 187-191,193-198\r\n$$$$ PLA2 adds the incremental displacement vector (DELTAUGV) and the \r\n$$$$ incremental single-point forces of constraint vector (DELTAQG) for the \r\n$$$$ current loop to the accumulated sum of these vectors (DELTAPG).\r\n$$$$ \r\n$$$$   {u    } = {delta u  } + {u  }\r\n$$$$     g               g       g\r\n$$$$      i+1             i       i\r\n$$$$ \r\n$$$$   {q    } = {delta q  } + {q  }\r\n$$$$     g               g       g\r\n$$$$      i+1             i       i\r\n$$$$ \r\nPLA2     DELTAUGV,DELTAPG,DELTAQG/UGV1,PGV1,QG1/S,N,PLACOUNT $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 116\r\n$$$$ Allocate separate files for ESTNL and ESTNL1 and for ECPTNL and ECPTNL1.\r\nEQUIV    ESTNL,ESTNL1/NEVER/ECPTNL,ECPTNL1/NEVER $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 117\r\n$$$$ Go to label PLALBL2A if no stress output is requested for nonlinear \r\n$$$$ elements.\r\nCOND     PLALBL2A,NONLSTR $ \r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$ PLA3 calculates incremental stresses in nonlinear elements (ONLES) for \r\n$$$$ which an output request has been made and updates the accumulated \r\n$$$$ stresses (ESTNL1) in these elements.\r\nPLA3     CSTM,MPT,DIT,DELTAUGV,ESTNL,CASECC/ONLES,ESTNL1/PLACOUNT/  \r\n         PLSETNO $  \r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$ OFP formats the accumulated stresses in nonlinear elements prepared by \r\n$$$$ PLA3 and places them on the system output file for printing.\r\nOFP      ONLES,,,,,//S,N,CARDNO $   \r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nLABEL    PLALBL2A $ \r\n****CARD  22, 23\r\n****FILE 117\r\n$$$$\r\nPARAM    //*SUB*/DIFF/NPLALIM/PLACOUNT $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118\r\n$$$$ Go to label PLALBL5 if all loading increments have been completed.\r\nCOND     PLALBL5,DIFF $ \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118,119\r\n$$$$                                                          nl\r\n$$$$ PLA4 generates stiffness matrix for nonlinear elements [K  ] and updates\r\n$$$$                                                          gg\r\n$$$$ stress information.\r\nPLA4     CSTM,MPT,ECPTNL,GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/S,N,PLACOUNT/  \r\n         S,N,PLSETNO/S,N,PLFACT $   \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118\r\n$$$$               nl\r\n$$$$ Equivalence [K  ] to [K  ] if all elements are nonlinear.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGNL,KGGSUM/KGGLPG $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$ Go to label PLALBL3 if all elements are nonlinear.\r\nCOND     PLALBL3,KGGLPG $   \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$ ADD stiffness matrix for nonlinear elements (KGGNL) to stiffness matrix\r\n$$$$ for linear elements (KGGL)\r\n$$$$\r\n$$$$     nl      l       sum\r\n$$$$   [K  ] + [K  ] = [K   ]\r\n$$$$     gg      gg      gg\r\n$$$$\r\nADD      KGGNL,KGGL/KGGSUM/(1.0,0.0)/(1.0,0.0) $\r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\nLABEL    PLALBL3 $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 119\r\n$$$$\r\n$$$$ Equivalence existing element tables to updated tables and equivalence\r\n$$$$   sum\r\n$$$$ [K   ] to [K  ] for next pass through loop.\r\n$$$$   gg        gg\r\n$$$$\r\nEQUIV    ESTNL1,ESTNL/ALWAYS/ECPTNL1,ECPTNL/ALWAYS/KGGSUM,KGG/ALWAYS $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 100,101\r\n$$$$ Go to label LOOPBGN if additional load increments need to be processed.\r\nREPT     LOOPBGN,360 $  \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if the number of load \r\n$$$$ increments exceeds 360.\r\nJUMP     ERROR2 $   \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n$$$$\r\nLABEL    PLALBL4 $  \r\n****CARD   1-  6,  8- 13, 17, 22, 23, 58- 62\r\n$$$$ Print Error Message No. 5 and terminate execution.\r\nPRTPARM  //-5/*PLA* $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n$$$$\r\nLABEL     PLALBL5 $ \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****FILE 118,119\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses for linear elements \r\n$$$$ (OES1) and prepares load vectors (OPG1), displacement vectors (OUGV1), \r\n$$$$ and single-point forces of constraint (OQG1) for output and translation \r\n$$$$ components of the displacement vector (PUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,SIL,GPTT,EDT,BGPDP,,QG1,UGV1,ESTL,, \r\n         PGV1,PCOMPS/OPG1,OQG1,OUGV1,OES1,OEF1,PUGV1,OES1L,OEF1L/\r\n         *PLA*////COMPS $   \r\n****CARD  18, 19\r\n****FILE 120\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OUGV1,OPG1,OQG1,OEF1,OES1,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 120\r\n$$$$\r\nOFP      OEF1L,OES1L,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 120\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR2 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES1,OEF1/OESF1/*RF* $  \r\n****CARD 19 \r\n****FILE 120\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF1,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 120\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$ PLOT generates all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIP,PUGV1,,ECPT,OES1, \r\n         OES1L,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 125\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE 125\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n****RFMT 187-191,193-198\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*PLA* $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 100\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*PLA* $   \r\n****CARD   1-  6,  8- 12, 22, 23, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n****RFMT 187-191,193-198\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*PLA* $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24, 61\r\n****FILE 124\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*PLA* $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-191,193-198\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 24, 58- 62\r\n****FILE 125\r\n****RFMT 187-191,193-198\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 24, 58- 62\r\n****RFMT 187-191,193-198\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CELAS1   CELAS2   CELAS3   CELAS4   CMASS1 \r\n  1    CMASS2   \r\n  1    CMASS3   CMASS4   CORD1C   CORD1R   CORD1S   CORD2C   CORD2R \r\n  1    CORD2S   \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CHEXA1 \r\n  2    CHEXA2   \r\n  2    CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM   CQDMEM1\r\n  2    CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD     CSHEAR   CTETRA \r\n  2    CTORDRG  CQUAD4   CTRIA3\r\n  2    CTRAPAX  CTRAPRG  CTRBSC   CTRIA1   CTRIA2   CTRIAAX  CTRIARG\r\n  2    CTRIM6   \r\n  2    CTRMEM   CTRPLT   CTRPLT1  CTRSHL   CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS  \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATS1    MATS2    MATT1    MATT2  \r\n  8    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TABLES1  TABLES2  TABLES3\r\n  8    TABLES4  TEMPMT$  TEMPMX$\r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    ASETOUT  \r\n 21    AUTOSPC  \r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 58    PLCO$    PLFACT  \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   SLOAD  \r\n 61    GRAV     RFORCE  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    ECPT     GPECT    EST      GEI      GPCT \r\n 97    MPTX     PCOMPS   EPTX   \r\n 98    KGGX \r\n 99    MGG  \r\n100    KGGXL    ECPTNL   ESTL     ESTNL \r\n101    KGG      KGGL\r\n102    ASET     RG       USET     YS       OGPST\r\n103    PG1  \r\n104    GPST \r\n105    GM   \r\n106    KNN  \r\n107    KFF      KFS      KSS\r\n108    GO       KAA      KOO      LOO   \r\n109    KLL      KLR      KRR\r\n110    LLL  \r\n111    DM   \r\n112    PG   \r\n113    PL       PO       PS       QR\r\n114    RULV     RUOV     ULV      UOOV  \r\n115    DELTAPG  DELTAQG  DELTAUGV   \r\n116    UGV1     PGV1     QG1\r\n117    ONLES    ESTNL1  \r\n118    KGGNL    ECPTNL1 \r\n119    KGGSUM   \r\n120    OEF1     OES1     OPG1     OQG1     OUGV1    PUGV1   \r\n120    OEF1L    OES1L    OESF1\r\n121    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n122    PLOTX1   \r\n123    KELM     KDICT    MELM     MDICT \r\n124    OGPWG\r\n125    PLOTX2   \r\n126    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP7\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 07 - DIRECT COMPLEX EIGENVALUE ANALYSIS - APR. 1993 $ \r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nFILE     GOD=SAVE/GMD=SAVE $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 11, 14, 19- 24, 52, 56- 62\r\n****FILE 101,111,112,114,128\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 131\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,EST,ECT,PLTSETX,PLTPAR,GPSETS, \r\n         ELSETS/NOGPDT $\r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,120-123\r\n$$$$ Go to label LBL5 if there is only Direct Matrix Input.\r\nCOND     LBL5,NOGPDT $  \r\n****CARD   1-  6,  8- 11, 13- 18, 20, 24, 58, 59\r\n****FILE  95-106,120-128\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/JUMPPLOT/PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/\r\n         S,N,COMPS $ \r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,   \r\n         KGGX/NOSIMP $  \r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59\r\n****FILE  98, 99,104,105,121,122,124-126,128\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $ \r\n****CARD   1-  3,  8\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/S,N, \r\n         NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/   \r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/   \r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled.\r\nCOND     LBLKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label LBLMGG if no mass matrix is to be assembled.\r\nCOND     LBLMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/MINUS1 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled.\r\nCOND     LBLBGG,NOBGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles viscous damping matrix [B  ].\r\n$$$$                                        gg\r\n$$$$ \r\nEMA      GPECT,BDICT,BELM/BGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/MINUS1 $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $   \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled.\r\nCOND     LBLK4GG,NOK4GG $   \r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$                                           4\r\n$$$$ EMA assembles structural damping matrix [K  ].\r\n$$$$                                           gg\r\n$$$$ \r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/MINUS1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR3,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT/C,Y,WTMASS $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5, 13- 15, 24, 58, 59\r\n****FILE  98, 99,104,105,121,122,124-126,128\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$ \r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 17, 20\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 20\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,QPC/SINGLE $  \r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,113\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               gg       nn     gg       nn     gg       nn\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$   gg       nn\r\n$$$$ \r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness, mass, and damping matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$           +_      +                        +_4   4 +\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | nn| nm|                  4     | nn| nm|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     gg    |B  |B  |                  gg    | 4 | 4 |\r\n$$$$           | mn| mm|                        |K  |K  |\r\n$$$$           +       +                        | mn| mm|\r\n$$$$                                            +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [B  ] = [B  ] + [G ][B  ] + [B  ][G ] + [G ][B  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$     4      _4       T   4       4  T         T   4\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ] [G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn    m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               nn       ff     nn       ff     nn       ff\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$   nn       ff\r\n$$$$ \r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\n$$$$                                            +       +\r\n$$$$           +       +                        | 4   4 |\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | ff| fs|                  4     | ff| fs|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     nn    |B  |B  |                  nn    | 4 | 4 |\r\n$$$$           | sf| ss|                        |K  |K  |\r\n$$$$           +       +                        | sf| ss|\r\n$$$$                                            +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               ff       aa     ff       aa     ff       aa\r\n$$$$      4      4\r\n$$$$ [K  ]  to [K  ] if no omitted coordinates exist.\r\n$$$$   ff        aa\r\n$$$$ \r\nEQUIV    KFF,KAA/OMIT/ MFF,MAA/OMIT/BFF,BAA/OMIT/K4FF,K4AA/OMIT $   \r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBLM if no mass matrix exists.\r\nCOND     LBLM,NOMGG $   \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _                         T      T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [M  G ]   + [G ][M  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ Go to label LBLB if no viscous damping matrix exists.\r\nCOND     LBLB,NOBGG $   \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ SMP2 partitions constrained viscous damping matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |B  |B  |\r\n$$$$           | aa| ao|\r\n$$$$   [B  ] = |---+---|\r\n$$$$     ff    |B  |B  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _                         T      T\r\n$$$$   [B  ] = [B  ] + [B  ][G ] + [B  G ]   + [G ][B  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $  \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $ \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ Go to label LBL5 if no structural damping matrix exists.\r\nCOND     LBL5,NOK4GG $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$ SMP2 partitions constrained structural damping matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_4   4 |\r\n$$$$           |K  |K  |\r\n$$$$     4     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | 4 | 4 |\r\n$$$$           |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     4       4       4           4    T      T   4\r\n$$$$   [K  ] = [K  ] + [K  ][G ] + [K  G ]   + [G ][K  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 11, 13- 18, 20, 23- 28, 30, 58, 59\r\n****FILE  95-106,120-128\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), and \r\n$$$$ Eigenvalue Extraction Data (EED).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,,,,,,EED,EQDYN/   \r\n         LUSET/S,N,LUSETD/NOTFL/NODLT/NOPSDL/NOFRL/ \r\n         NONLFT/NOTRL/S,N,NOEED/123/S,N,NOUE $  \r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if there is no \r\n$$$$ Eigenvalue Extraction Data.\r\nCOND     ERROR1,NOEED $ \r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56, 58- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n$$$$\r\nPARAM    //*MPY*/REPEATE/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 19, 21- 23, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ BMG generates DMIG card images describing the interconnection of the \r\n$$$$ fluid and the structure.\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $ \r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$ Go to label LBL13 if no fluid structure interface is defined.\r\nCOND     LBL13,NOFL $   \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ MTRXIN generates fluid boundary matrices [A    ] and [K    ]. The matrix\r\n$$$$                                            b,fl        b,fl\r\n$$$$ [K    ] is generated only for a nonzero gravity in the fluid.\r\n$$$$   b,fl\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/   \r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ Beginning of loop for additional sets of direct input matrices.\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18, 19, 21- 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPURGE    PHID,CLAMA,OPHID,OQPC1,OCPHIP,OESC1,OEFC1,CPHIP,QPC,   \r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $  \r\n****CARD  19, 21- 23\r\n****FILE 109-114,129,130\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,/CASEXX/*CEIGN*/S,N,REPEATE/S,N,NOLOOP $\r\n****CARD   1-  6,  8- 16, 19, 21- 23, 25, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-192,194-204,207-209\r\n$$$$                                            2d     2d         2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ] for the\r\n$$$$                                            pp     pp         pp\r\n$$$$ current loop.\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,  \r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$               2        2d\r\n$$$$ Equivalence [K  ] to [K  ] if no fluid-structure interface is defined\r\n$$$$               pp       pp\r\n$$$$                   2        2d\r\n$$$$ and equivalence [M  ] to [M  ] if there is no [A    ].\r\n$$$$                   pp       pp                   b,fl\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$ Go to label LBLFL2 if no fluid-structure interface is defined.\r\nCOND     LBLFL2,NOFL $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$                         2d\r\n$$$$ ADD5 adds [K    ] and [K  ] and subtracts [A    ] from them to form\r\n$$$$             b,fl        pp                  b,fl\r\n$$$$   2\r\n$$$$ [K  ].\r\n$$$$   pp\r\n$$$$ \r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$ Go to label LBLFL2 if there is no [A    ].\r\n$$$$                                     b,fl \r\n$$$$ \r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$                                    T\r\n$$$$ Transpose [A    ] to obtain [A    ] .\r\n$$$$             b,fl              b,fl\r\n$$$$\r\nTRNSP    ABFL/ABFLT $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$                              2                  T     2d\r\n$$$$ ADD assembles input matrix [M  ] = MFACT [A    ]  + [M  ].\r\n$$$$                              pp            b,fl       pp\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$               2        2      2        2          2        2   \r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd  \r\n$$$$ constraints are applied, [M  ] to [M  ] if there are no direct input\r\n$$$$                            aa       dd\r\n$$$$ mass matrices and no extra points, and [B  ] to [B  ] if there are no\r\n$$$$                                          aa       dd\r\n$$$$ direct input damping matrices and no extra points.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ \r\n          MAA,MDD/MDEMA/BAA,BDD/BDEBA $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$ Go to label LBL18 if only extra points are defined.\r\nCOND     LBL18,NOGPDT $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct \r\n$$$$ Complex Eigenvalue Analysis.\r\n$$$$\r\n$$$$                     1       2        4\r\n$$$$   [K  ] = (1 + ig)[K  ] + [K  ] + i[K  ]\r\n$$$$     dd              dd      dd       dd\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [M  ] = [M  ] + [M  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [B  ] = [B  ] + [B  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$ Direct input matrices may be complex.\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*CMPLEV*/*DISP*/*DIRECT*/C,Y,G=0.0/ \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/   \r\n         KDEK2/-1 $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$               2\r\n$$$$ Equivalence [K  ] to [K  ] if all stiffness is Direct Matrix Input,\r\n$$$$               dd       dd\r\n$$$$   2\r\n$$$$ [M  ] to [M  ] if all mass is Direct Matrix Input, and\r\n$$$$   dd       dd\r\n$$$$   2\r\n$$$$ [B  ] to [B  ] if all damping is Direct Matrix Input.\r\n$$$$   dd       dd\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$ CEAD extracts complex eigenvalues and eigenvectors from the equation\r\n$$$$\r\n$$$$        2\r\n$$$$   [M  p  + B  p + K  ] {u } = 0\r\n$$$$     dd      dd     dd    d\r\n$$$$\r\n$$$$ and normalizes eigenvectors according to one of the following user \r\n$$$$ requests:\r\n$$$$   1. Unit magnitude of a selected component.\r\n$$$$   2. Unit magnitude of the largest component.\r\nCEAD     KDD,BDD,MDD,EED,CASEXX/PHID,CLAMA,OCEIGS,/S,N,EIGVS $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$ OFP formats the summary of complex eigenvalues (CLAMA) and summary of \r\n$$$$ eigenvalue extraction information (OCEIGS) prepared by CEAD and places \r\n$$$$ them on the system output file for printing.\r\nOFP      OCEIGS,CLAMA,,,,//S,N,CARDNO $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$ Go to label LBL16 if no eigenvalues were found.\r\nCOND     LBL16,EIGVS $  \r\n****CARD   1-  6,  8- 11, 14, 19, 21- 24, 52, 56- 62\r\n****FILE 112-114\r\n$$$$ VDR prepares eigenvectors for output, using only the independent degrees \r\n$$$$ of freedom.\r\nVDR      CASEXX,EQDYN,USETD,PHID,CLAMA,,/OPHID,/*CEIGN*/*DIRECT*/   \r\n         0/S,N,NOD/S,N,NOP/0 $  \r\n****CARD  19, 21\r\n****FILE 112\r\n$$$$ Go to label LBL15 if there is no output request for independent degrees \r\n$$$$ of freedom.\r\nCOND     LBL15,NOD $\r\n****CARD  21\r\n****FILE 112\r\n$$$$ OFP formats the eigenvectors for independent degrees of freedom prepared \r\n$$$$ by VDR and places them on the system output file for printing.\r\nOFP      OPHID,,,,,//S,N,CARDNO $   \r\n****CARD  21\r\n****FILE 112\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21\r\n****FILE 112\r\n$$$$ Go to label LBL16 if there is no output request involving dependent \r\n$$$$ degrees of freedom or forces and stresses.\r\nCOND     LBL16,NOP $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Equivalence {phi } to {phi } if no constraints are applied.\r\n$$$$                 d         p\r\n$$$$\r\nEQUIV    PHID,CPHIP/NOA $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Go to label LBL17 if no constraints are applied.\r\nCOND     LBL17,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                     phi\r\n$$$$             d                          d\r\n$$$$  {phi } = [G ]{phi }               {----} = {phi  + phi }\r\n$$$$      o      o     d                 phi         f      e\r\n$$$$                                        o\r\n$$$$\r\n$$$$    phi +phi      \r\n$$$$       f    e                                  d\r\n$$$$   {---------} = {phi +phi }        {phi } = [G ]{phi  + phi }\r\n$$$$      phi            n    e             m      m     n      e\r\n$$$$         s        \r\n$$$$\r\n$$$$    phi +phi                \r\n$$$$       n    e               \r\n$$$$   {---------} = {phi }\r\n$$$$      phi            p \r\n$$$$         m                  \r\n$$$$ \r\n$$$$ and recovers single-point forces of constraint {q } = [K  ] {phi }.\r\n$$$$                                                  s      fs      f\r\n$$$$\r\nSDR1     USETD,, PHID,,,GOD,GMD,,KFS,,/CPHIP,,QPC/1/*DYNAMICS* $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 113\r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and prepares \r\n$$$$ eigenvectors (OCPHIP) and single-point forces of constraint (OQPC1) for \r\n$$$$ output.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,,CLAMA,QPC,CPHIP,EST,,,/  \r\n         ,OQPC1,OCPHIP,OESC1,OEFC1,,,/*CEIG* $  \r\n****CARD  19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      OCPHIP,OQPC1,OEFC1,OESC1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 11, 14, 19, 21- 24, 52, 56- 62\r\n****FILE 112-114\r\n$$$$ Go to label FINIS if no additional sets of direct input matrices need to \r\n$$$$ be processed.\r\nCOND     FINIS,REPEATE $\r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Go to label LBL13 if additional sets of direct input matrices need to be \r\n$$$$ processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*DIRCEAD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 24, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*DIRCEAD* $   \r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-192,194-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*DIRCEAD* $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18- 24, 52, 56- 62\r\n****RFMT 187-192,194-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1 \r\n  1    CELAS2   \r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C \r\n  1    CORD1R   \r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID   \r\n  1    GRIDB\r\n  1    POINTAX  PREPT    RINGAX   RINGFL   SECTAX   SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3  \r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8 \r\n  2    CONROD   \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD   \r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1 \r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL \r\n  2    CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2 \r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    PMASS    FSLIST\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    ASETOUT  \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    AUTOSPC  \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 52    BDYLIST  FLSYM   \r\n 56    G\r\n 57    EPOINT   SEQEP    TF \r\n 58    CVISC\r\n 59    PDAMP    PVISC   \r\n 60    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$ \r\n 61    EIGC     EIGP\r\n 62    CMETHOD$ \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    BNN      K4NN     KNN      MNN   \r\n105    BFF      K4FF     KFF      KFS      MFF  \r\n106    GO       KOO      LOO      KAA   \r\n107    EED      EQDYN    GPLD     SILD     TFPOOL   USETD   \r\n108    CASEXX   \r\n109    B2PP     K2DPP    M2DPP  \r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD   \r\n110    MDD  \r\n111    CLAMA    OCEIGS   PHID   \r\n112    OPHID\r\n113    CPHIP    QPC \r\n114    OCPHIP   OEFC1    OESC1    OQPC1 \r\n118    BDPOOL   \r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n121    MAA  \r\n122    BAA  \r\n123    K4AA \r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG  \r\n126    K4GG \r\n127    PLOTX1   \r\n128    OGPWG\r\n129    K2PP \r\n130    M2PP \r\n131    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP8\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 08 - DIRECT FREQUENCY/RANDOM RESPONSE ANALYSIS-APR. 1993 $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nFILE     KGGX=TAPE/KGG=TAPE/GOD=SAVE/GMD=SAVE/MDD=SAVE/BDD=SAVE $   \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  6,  8- 10, 14, 15, 19, 21, 24, 29\r\n****FILE 101,113,115,116,128\r\n****PHS1   I1   \r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2   D8   \r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 135\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,KFS,PSF,QPC,EST,ECT,PLTSETX,PLTPAR,\r\n         GPSETS,ELSETS/NOGPDT $ \r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$ Go to label LBL5 if there is only Direct Matrix Input.\r\nCOND     LBL5,NOGPDT $  \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,127\r\n****PHS2   DB8  \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1//$  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 127\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,127\r\n****PHS2   DE8  \r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL/S,N,COMPS $   \r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 54- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,   \r\n         KGGX/NOSIMP $  \r\n****CARD   1,  2,  4-  6, 16, 58, 59\r\n****FILE  98, 99,104-106,121-123,125\r\n****PHS2   DB8  \r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n****PHS2   DE8  \r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $ \r\n****CARD   1-  3,  8\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ \r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/   \r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/   \r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled.\r\nCOND     LBLKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label LBLMGG if no mass matrix is to be assembled.\r\nCOND     LBLMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled.\r\nCOND     LBLBGG,NOBGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles viscous damping matrix [B  ].\r\n$$$$                                        gg\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $   \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled.\r\nCOND     LBLK4GG,NOK4GG $   \r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$                                           4\r\n$$$$ EMA assembles structural damping matrix [K  ].\r\n$$$$                                           gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n****PHS2   DB8  \r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR4,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n$$$$\r\nLABEL    LBL1 $ \r\n****CARD   1-  3,  5,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,128\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2   DE8  \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 28, 29\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 29\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PSF,QPC/SINGLE $  \r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n****PHS1   I1   \r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               gg       nn     gg       nn     gg       nn\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$   gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness, mass, and damping matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$           +_      +                        +_4   4 +\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | nn| nm|                  4     | nn| nm|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     gg    |B  |B  |                  gg    | 4 | 4 |\r\n$$$$           | mn| mm|                        |K  |K  |\r\n$$$$           +       +                        | mn| mm|\r\n$$$$                                            +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [B  ] = [B  ] + [G ][B  ] + [B  ][G ] + [G ][B  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$     4      _4       T   4       4  T         T   4\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ] [G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn    m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN $\r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               nn       ff     nn       ff     nn       ff\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$   nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\n$$$$                                            +       +\r\n$$$$           +       +                        | 4   4 |\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | ff| fs|                  4     | ff| fs|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     nn    |B  |B  |                  nn    | 4 | 4 |\r\n$$$$           | sf| ss|                        |K  |K  |\r\n$$$$           +       +                        | sf| ss|\r\n$$$$                                            +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,,MFF,BFF,K4FF $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               ff       aa     ff       aa     ff       aa\r\n$$$$      4      4\r\n$$$$ [K  ]  to [K  ] if no omitted coordinates exist.\r\n$$$$   ff        aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $ \r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $   \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBLM if no mass matrix exists.\r\nCOND     LBLM,NOMGG $   \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _                         T      T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [M  G ]   + [G ][M  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ Go to label LBLB if no viscous damping matrix exists.\r\nCOND     LBLB,NOBGG $   \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ SMP2 partitions constrained viscous damping matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |B  |B  |\r\n$$$$           | aa| ao|\r\n$$$$   [B  ] = |---+---|\r\n$$$$     ff    |B  |B  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _                         T      T\r\n$$$$   [B  ] = [B  ] + [B  ][G ] + [B  G ]   + [G ][B  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $  \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $ \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ Go to label LBL5 if no structural damping matrix exists.\r\nCOND     LBL5,NOK4GG $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$ SMP2 partitions constrained structural damping matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_4   4 |\r\n$$$$           |K  |K  |\r\n$$$$     4     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | 4 | 4 |\r\n$$$$           |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     4       4       4           4    T      T   4\r\n$$$$   [K  ] = [K  ] + [K  ][G ] + [K  G ]   + [G ][K  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 28, 29, 58, 59, 61\r\n****FILE  95-106,120-128\r\n****PHS3   I1   \r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamics \r\n$$$$ Load Table (DLT), Power Spectral Density List (PSDL), and Frequency \r\n$$$$ Response List (FRL).\r\n$$$$\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,PSDL,FRL,,,,  \r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/S,N,NOPSDL/S,N, \r\n         NOFRL/NONLFT/NOTRL/NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 11, 55, 57, 61\r\n****FILE 107\r\n****PHS1   DB1  \r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  19, 21- 23\r\n****PHS3   DB7  \r\n$$$$\r\nPARAM    //*MPY*/REPEATF/-1/1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ BMG generates DMIG card images describing the interconnection of the \r\n$$$$ fluid and the structure.\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $ \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ Go to label LBL13 if no fluid structure interface is defined.\r\nCOND     LBL13,NOFL $   \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ MTRXIN generates fluid boundary matrices [A    ] and [K    ]. The matrix\r\n$$$$                                            b,fl        b,fl\r\n$$$$ [K    ] is generated only for a nonzero gravity in the fluid.\r\n$$$$   b,fl\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/   \r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ Beginning of loop for additional sets of direct input matrices.\r\nLABEL    LBL13 $\r\n****CARD   1-  6,  8- 16, 18- 23, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    OUDVC1,OUDVC2,XYPLTFA,OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,OPPC2,\r\n         OQPC2,OUPVC2,OESC2,OEFC2,XYPLTF,PSDF,AUTO,XYPLTR,  \r\n         K2PP,M2PP,B2PP,K2DD,M2DD,B2DD/NEVER $  \r\n****CARD  19- 23, 27\r\n****FILE 109,110,115-117,129-133\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,PSDL/CASEXX/*FREQ*/S,N,REPEATF/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 23, 25, 27, 52, 54- 62\r\n****FILE 108\r\n****RFMT 187-193,195-204,207-209\r\n$$$$                                            2d     2d         2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ] for the\r\n$$$$                                            pp     pp         pp\r\n$$$$ current loop.\r\nMTRXIN   CASEXX,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,  \r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 109\r\n$$$$               2        2d\r\n$$$$ Equivalence [K  ] to [K  ] if no fluid-structure interface is defined\r\n$$$$               pp       pp\r\n$$$$                   2        2d\r\n$$$$ and equivalence [M  ] to [M  ] if there is no [A    ].\r\n$$$$                   pp       pp                   b,fl\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$ Go to label LBLFL2 if no fluid-structure interface is defined.\r\nCOND     LBLFL2,NOFL $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$                         2d\r\n$$$$ ADD5 adds [K    ] and [K  ] and subtracts [A    ] from them to form\r\n$$$$             b,fl        pp                  b,fl\r\n$$$$   2\r\n$$$$ [K  ].\r\n$$$$   pp\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129\r\n$$$$ Go to label LBLFL2 if there is no [A    ].\r\n$$$$                                     b,fl \r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$                                    T\r\n$$$$ Transpose [A    ] to obtain [A    ] .\r\n$$$$             b,fl              b,fl\r\n$$$$\r\nTRNSP    ABFL/ABFLT $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$                              2                  T     2d\r\n$$$$ ADD assembles input matrix [M  ] = MFACT [A    ]  + [M  ].\r\n$$$$                              pp            b,fl       pp\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nLABEL    LBLFL2 $   \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 129,130\r\n$$$$\r\nPARAM    //*AND*/BDEBA/NOUE/NOB2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $  \r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n****PHS2   DB8  \r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 22, 23, 52, 57, 60\r\n****FILE 130\r\n****PHS2   DE8  \r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$               2        2      2        2          2        2   \r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd  \r\n$$$$ constraints are applied, [M  ] to [M  ] if there are no direct input\r\n$$$$                            aa       dd\r\n$$$$ mass matrices and no extra points, and [B  ] to [B  ] if there are no\r\n$$$$                                          aa       dd\r\n$$$$ direct input damping matrices and no extra points.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/ \r\n         MAA,MDD/MDEMA/BAA,BDD/BDEBA $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n$$$$ Go to label LBL18 if only extra points are defined.\r\nCOND     LBL18,NOGPDT $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct \r\n$$$$ Frequency Response.\r\n$$$$\r\n$$$$                     1       2        4\r\n$$$$   [K  ] = (1 + ig)[K  ] + [K  ] + i[K  ]\r\n$$$$     dd              dd      dd       dd\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [M  ] = [M  ] + [M  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [B  ] = [B  ] + [B  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$ Direct input matrices may be complex.\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*FREQRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/   \r\n         0.0/0.0/NOK2PP/NOM2PP/NOB2PP/  \r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/   \r\n         KDEK2/-1 $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 195\r\n$$$$               2\r\n$$$$ Equivalence [K  ] to [K  ] if all stiffness is Direct Matrix Input,\r\n$$$$               dd       dd\r\n$$$$   2\r\n$$$$ [M  ] to [M  ] if all mass is Direct Matrix Input, and\r\n$$$$   dd       dd\r\n$$$$   2\r\n$$$$ [B  ] to [B  ] if all damping is Direct Matrix Input.\r\n$$$$   dd       dd\r\n$$$$\r\nEQUIV    B2DD,BDD/NOBGG/ M2DD,MDD/NOSIMP/ K2DD,KDD/KDEK2 $  \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 60\r\n****FILE 110\r\n****PHS2   D8   \r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if there is no Frequency \r\n$$$$ Response List.\r\nCOND     ERROR1,NOFRL $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if there is no Dynamics \r\n$$$$ Load Table.\r\nCOND     ERROR2,NODLT $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****RFMT 187-193,195-204,207-209\r\n****PHS1   DE1  \r\n$$$$ FRRD forms the dynamic load vectors {P } and solves for the displacements\r\n$$$$                                       d\r\n$$$$ using the following equation:\r\n$$$$ \r\n$$$$             2\r\n$$$$   [-M  omega  + iB  omega + K  ] {u } = {P }\r\n$$$$      dd           dd         dd    d      d\r\n$$$$ \r\nFRRD     CASEXX,USETD,DLT,FRL,GMD,GOD,KDD,BDD,MDD,,DIT/UDVF,PSF,PDF,PPF/\r\n         *DISP*/*DIRECT*/LUSETD/MPCF1/SINGLE/OMIT/  \r\n         NONCUP/FRQSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****PHS1   DB1  \r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               p       d\r\n$$$$ \r\nEQUIV    PPF,PDF/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$ VDR prepares solution set displacements, sorted by frequency, for output.\r\nVDR      CASEXX,EQDYN,USETD,UDVF,PPF,XYCDB,/OUDVC1,/*FREQRESP*/ \r\n         *DIRECT*/S,N,NOSORT2/S,N,NOD/S,N,NOP/0 $   \r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$ Go to label LBL15 if there is no output request for the solution set.\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$ Go to label LBL15A if there is no output request for solution set \r\n$$$$ displacements sorted by point number.\r\nCOND     LBL15A,NOSORT2 $   \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$ SDR3 sorts the solution set displacements by point number.\r\nSDR3     OUDVC1,,,,,/OUDVC2,,,,, $  \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$ OFP formats the requested solution set displacements, sorted by point \r\n$$$$ number, prepared by SDR3 and places them on the system output file for \r\n$$$$ printing.\r\nOFP      OUDVC2,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 113\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the solution set \r\n$$$$ displacements vs. frequency.\r\nXYTRAN   XYCDB,OUDVC2,,,,/XYPLTFA/*FREQ*/*DSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$ XYPLOT prepares the requested X-Y plots of the solution set vs. \r\n$$$$ frequency.\r\nXYPLOT   XYPLTFA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 131\r\n$$$$ Go to label LBL15.\r\nJUMP     LBL15 $\r\n****CARD  21, 27\r\n****FILE 131\r\n$$$$\r\nLABEL    LBL15A $   \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$ OFP formats the requested solution set displacements, sorted by \r\n$$$$ frequency, prepared by VDR and places them on the system output file for \r\n$$$$ printing.\r\nOFP      OUDVC1,,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 113\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,131\r\n$$$$ Go to label LBL20 if there is no output request involving dependent \r\n$$$$ degrees of freedom or forces and stresses.\r\nCOND     LBL20,NOP $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 114-117,132,133\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Equivalence {u } to {u } if no constraints are applied.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    UDVF,UPVC/NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS2   DB8  \r\n$$$$ Go to label LBL19 if no constraints are applied.\r\nCOND     LBL19,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   DE7  \r\n$$$$ SDR1 recovers dependent components of eigenvectors\r\n$$$$ \r\n$$$$                                 u\r\n$$$$           d                      d\r\n$$$$  {u } = [G ]{u }               {----} = {u  + u }\r\n$$$$    o      o   d                 u         f     e\r\n$$$$                                   o\r\n$$$$\r\n$$$$    u + u      \r\n$$$$     f   e                              d\r\n$$$$   {-------} = {u + u }        {u } = [G ]{u  + u }\r\n$$$$      u          n   e           m      m   f    e\r\n$$$$       s        \r\n$$$$\r\n$$$$    u + u                \r\n$$$$     n   e               \r\n$$$$   {---------} = {u }\r\n$$$$       u           p \r\n$$$$        m                  \r\n$$$$                                                                 T\r\n$$$$ and recovers single-point forces of constraint {q } = -{P } + [K  ]{u }.\r\n$$$$                                                  s       s      fs   f\r\n$$$$\r\nSDR1     USETD,,UDVF,,,GOD,GMD,PSF,KFS,,/UPVC,,QPC/1/*DYNAMICS* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    LBL19 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   I7   \r\n$$$$ SDR2 calculates element forces (OEFC1) and stresses (OESC1) and \r\n$$$$ prepares load vectors (OPPC1), displacement vectors (OUPVC1), and single-\r\n$$$$ point forces of constraint (OQPC1) for output and translation components \r\n$$$$ of the displacement vector (PUGVC1), sorted by frequency.\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,PPF,QPC,UPVC,EST,XYCDB, \r\n         PPF,/OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,PUPVC1,,/*FREQRESP*/   \r\n         S,N,NOSORT2 $  \r\n****CARD  19, 20\r\n****FILE 115\r\n$$$$ Go to label LBL17 if there are no output requests sorted by point number \r\n$$$$ or element number.\r\nCOND     LBL17,NOSORT2 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$ SDR3 prepares requested output sorted by point number or element number.\r\nSDR3     OPPC1,OQPC1,OUPVC1,OESC1,OEFC1,/OPPC2,OQPC2,OUPVC2,OESC2,  \r\n         OEFC2, $   \r\n****CARD  19, 20\r\n****FILE 116\r\n$$$$ OFP formats the tables prepared by SDR3 sorted by point number or element \r\n$$$$ number, and places them on the system output file for printing.\r\nOFP      OPPC2,OQPC2,OUPVC2,OEFC2,OESC2,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 116\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPPC2,OQPC2,OUPVC2,OESC2,OEFC2/XYPLTF/*FREQ*/*PSET*/ \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, forces, \r\n$$$$ stresses, loads, and single-point forces of constraint vs. frequency.\r\nXYPLOT   XYPLTF// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 132\r\n$$$$ Go to label LBL16 if there is no Power Spectral Density List.\r\nCOND     LBL16,NOPSDL $ \r\n****SBST   7\r\n****CARD  20, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ RANDOM calculates power spectral density functions (PSDF) and \r\n$$$$ autocorrelation functions (AUTO) using the previously calculated \r\n$$$$ frequency response.\r\nRANDOM   XYCDB,DIT,PSDL,OUPVC2,OPPC2,OQPC2,OESC2,OEFC2,CASEXX/PSDF,AUTO/\r\n         S,N,NORD $ \r\n****SBST   7\r\n****CARD  26, 54, 55\r\n****FILE 117\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Go to label LBL16 if no RANDOM calculations are requested.\r\nCOND     LBL16,NORD $   \r\n****SBST   7\r\n****CARD  20, 26, 54, 55\r\n****FILE 133\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the RANDOM output.\r\nXYTRAN   XYCDB,PSDF,AUTO,,,/XYPLTR/*RAND*/*PSET*/S,N,PFILE/ \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$ XYPLOT prepares the requested X-Y plots of autocorrelation functions and \r\n$$$$ power spectral density functions.\r\nXYPLOT   XYPLTR// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$ Go to label LBL16.\r\nJUMP     LBL16 $\r\n****CARD  20\r\n****FILE 133\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 115-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOSORT2 $ \r\n****CARD  19, 20, 26, 54, 55\r\n****FILE 132\r\n$$$$ OFP formats the frequency response output requests prepared by SDR2, \r\n$$$$ sorted by frequency, and places them on the system output file for \r\n$$$$ printing.\r\nOFP      OUPVC1,OPPC1,OQPC1,OEFC1,OESC1,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 115\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD  20, 54, 55\r\n****FILE 114-117,132,133\r\n$$$$\r\nPURGE    PSDF/NOPSDL $  \r\n****CARD  20, 54, 55\r\n****FILE 132\r\n$$$$ Go to label LBL20 if no deformed structure plots are requested.\r\nCOND     LBL20,JUMPPLOT $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$ PLOT prepares all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUPVC1,  \r\n         GPECT,OESC1,,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/   \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 134\r\n****PHS2   DE8  \r\n$$$$\r\nLABEL    LBL20 $\r\n****SBST   7\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 26, 52, 54- 62\r\n****FILE 134\r\n$$$$ Go to label FINIS if no additional sets of direct input matrices need to \r\n$$$$ be processed.\r\nCOND     FINIS,REPEATF $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n****PHS3   DB7  \r\n$$$$ Go to label LBL13 if additional sets of direct input matrices need to be \r\n$$$$ processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*DIRFRRD* $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n****PHS1   DE1  \r\n****PHS3   DE7  \r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*DIRFRRD* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*DIRFRRD* $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 101\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*DIRFRRD* $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 128\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18- 29, 52, 56- 62\r\n****RFMT 187-193,195-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1 \r\n  1    CELAS2   \r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C \r\n  1    CORD1R   \r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID   \r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3  \r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8 \r\n  2    CONROD   \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD   \r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1 \r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL \r\n  2    CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    RANDOM$  \r\n 27    AXYOUT$  \r\n 28    ASETOUT  \r\n 29    AUTOSPC  \r\n 52    BDYLIST  FLSYM   \r\n 55    RANDPS   RANDT1   RANDT2 \r\n 54    TABRND1  TABRND2  TABRND3  TABRND4   \r\n 56    G\r\n 57    EPOINT   SEQEP    TF \r\n 58    CVISC\r\n 59    PDAMP    PVISC   \r\n 60    B2PP$    DMIAX    DMIG     K2PP$    M2PP$    TF$ \r\n 61    DAREA    DELAY    DLOAD    DPHASE   FREQ     FREQ1    FREQ2  \r\n 61    RLOAD1   RLOAD2   TABLED1  TABLED2  TABLED3  TABLED4 \r\n 62    DECOMOPT DLOAD$   FREQ$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    BNN      K4NN     KNN      MNN   \r\n105    BFF      K4FF     KFF      KFS      MFF  \r\n106    GO       KOO      LOO      KAA   \r\n107    DLT      EQDYN    FRL      GPLD     PSDL     SILD     TFPOOL \r\n107    USETD\r\n108    CASEXX   \r\n109    B2PP     K2DPP    M2DPP  \r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD   \r\n110    MDD  \r\n111    PDF      PPF      PSF      UDVF  \r\n112    OUDVC1   \r\n113    OUDVC2   \r\n114    QPC      UPVC\r\n115    OEFC1    PUPVC1   OESC1    OPPC1    OQPC1    OUPVC1  \r\n116    OEFC2    OESC2    OPPC2    OQPC2    OUPVC2   \r\n117    AUTO     PSDF\r\n118    BDPOOL   \r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n121    MAA  \r\n122    BAA  \r\n123    K4AA \r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG  \r\n126    K4GG \r\n127    PLOTX1   \r\n128    OGPWG\r\n129    K2PP \r\n130    M2PP \r\n131    XYPLTFA  \r\n132    XYPLTF   \r\n133    XYPLTR   \r\n134    PLOTX2   \r\n135    BGPDP    SIP \r\n$*  \r\n=PAGE=\r\nDISP9\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    DISP 09 - DIRECT TRANSIENT RESPONSE ANALYSIS - APR. 1993 $ \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nFILE     UDVT=APPEND/TOL=APPEND $   \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  5,  6,  8- 10, 14, 15, 19, 21, 24, 28\r\n****FILE 101,113,116,129\r\n****PHS1  I1\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL/S,N,LUSET/ \r\n         S,N,NOGPDT/ALWAYS=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n****PHS2  D8\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP $  \r\n****CARD   1\r\n****FILE 134\r\n$$$$\r\nPURGE    USET,GM,GO,KAA,BAA,MAA,K4AA,PST,KFS,QP,EST,ECT,PLTSETX,PLTPAR, \r\n         GPSETS,ELSETS/NOGPDT $ \r\n****CARD   1\r\n****FILE  95, 97,101,103,105,106,111,114,120,122,123\r\n$$$$ Go to label LBL5 if there is only Direct Matrix Input.\r\nCOND     LBL5,NOGPDT $  \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61\r\n****FILE  95-106,120-126,128,129\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $ \r\n****CARD   1,  2,  4,  5, 16, 58\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,128\r\n****PHS2  DB8   \r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$ Go to label P1 if there are no structure plot requests.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,128\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,NSIL/ \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$ Go to label P1 if no undeformed structure plots are requested.\r\nCOND     P1,JUMPPLOT $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$ PLOT generates all requested undeformed structure plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,ECT,,,,/PLOTX1/  \r\n         NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$ PRTMSG prints plotter data and engineering data for each undeformed plot \r\n$$$$ generated.\r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 128\r\n$$$$\r\nLABEL    P1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18, 58\r\n****FILE 120,128\r\n****PHS2  DE8   \r\n$$$$ GP3 generates Grid Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/SLT,GPTT/NOGRAV $   \r\n****CARD   1,  2, 13, 61\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly and stress \r\n$$$$ recovery.\r\nTA1      ECT,EPT,BGPDT,SIL,GPTT,CSTM,MPT,EQEXIN/EST,GEI,GPECT,,,MPTX,\r\n         PCOMPS,EPTX/LUSET/S,N,NOSIMP=-1/1/S,N,NOGENL=-1/GENEL/\r\n         S,N,COMPS \r\n****CARD   1-  6, 13, 16, 58, 59\r\n****FILE  97\r\n$$$$\r\nEQUIV    MPTX,MPT/COMPS/EPTX,EPT/COMPS $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****FILE  97\r\n$$$$\r\nPURGE    K4GG,MGG,BGG,  \r\n         K4NN,K4FF,K4AA,MNN,MFF,MAA,BNN,BFF,BAA,KGGX/NOSIMP $   \r\n****CARD   1,  2,  4-  6, 58, 59\r\n****FILE  98, 99,104,105,121,122,125,126\r\n****PHS2  DB8   \r\n$$$$ Go to label LBL1 if there are no structural elements.\r\nCOND     LBL1,NOSIMP $  \r\n****CARD   1-  3,  5,  6,  8, 13- 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,129\r\n****PHS2  DE8   \r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPARAM    //*ADD*/NOMGG/1/0 $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOBGG=-1/1/0 $ \r\n****CARD   1-  3,  8\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPARAM    //*ADD*/NOK4GG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$ EMG generates structural element stiffness, mass and damping matrix \r\n$$$$ tables, and dictionaries for later assembly by the EMA module.\r\nEMG      EST,CSTM,MPT,DIT,GEOM2,/KELM,KDICT,MELM,MDICT,BELM,BDICT,/ \r\n         S,N,NOKGGX/S,N,NOMGG/S,N,NOBGG/S,N,NOK4GG//C,Y,COUPMASS/   \r\n         C,Y,CPBAR/C,Y,CPROD/C,Y,CPQUAD1/C,Y,CPQUAD2/C,Y,CPTRIA1/   \r\n         C,Y,CPTRIA2/C,Y,CPTUBE/C,Y,CPQDPLT/C,Y,CPTRPLT/C,Y,CPTRBSC/\r\n         C,Y,VOLUME/C,Y,SURFACE $   \r\n****CARD   1-  3,  5,  6,  8, 13, 24, 61\r\n****FILE 124\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    KGGX/NOKGGX/MGG/NOMGG $\r\n****CARD   1-  3,  5,  6,  8, 14, 24\r\n****FILE  98, 99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLKGGX if no stiffness matrix is to be assembled.\r\nCOND     LBLKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                  x\r\n$$$$ EMA assembles stiffness matrix [K  ] and Grid Point Singularity Table.\r\n$$$$                                  gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/KGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    LBLKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label LBLMGG if no mass matrix is to be assembled.\r\nCOND     LBLMGG,NOMGG $ \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles mass matrix [M  ].\r\n$$$$                             gg\r\n$$$$\r\nEMA      GPECT,MDICT,MELM/MGG/-1/C,Y,WTMASS=1.0 $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    MDICT,MELM/ALWAYS $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLMGG $   \r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE  99\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLBGG if no viscous damping matrix is to be assembled.\r\nCOND     LBLBGG,NOBGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ EMA assembles viscous damping matrix [B  ].\r\n$$$$                                        gg\r\n$$$$\r\nEMA      GPECT,BDICT,BELM/BGG $ \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$\r\nPURGE    BDICT,BELM/ALWAYS $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 124\r\n$$$$\r\nLABEL    LBLBGG $   \r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 125\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBLK4GG if no structural damping matrix is to be assembled.\r\nCOND     LBLK4GG,NOK4GG $   \r\n****CARD   1-  3,  8\r\n****FILE 126\r\n$$$$                                           4\r\n$$$$ EMA assembles structural damping matrix [K  ].\r\n$$$$                                           gg\r\n$$$$\r\nEMA      GPECT,KDICT,KELM/K4GG/NOK4GG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nLABEL    LBLK4GG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 126\r\n$$$$\r\nPURGE    KDICT,KELM/ALWAYS $\r\n****CARD   1-  3,  6,  8\r\n****FILE 124\r\n$$$$\r\nPURGE    MNN,MFF,MAA/NOMGG $\r\n****CARD   1-  3,  5,  8, 14, 24\r\n****FILE 104,105,121\r\n****RFMT 187,190-192\r\n****PHS2  DB8   \r\n$$$$\r\nPURGE    BNN,BFF,BAA/NOBGG $\r\n****CARD   1-  3,  8, 58, 59\r\n****FILE 104,105,122\r\n****RFMT 187,190-192\r\n$$$$ Go to label LBL1 if no weight and balance information is requested.\r\nCOND     LBL1,GRDPNT $  \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no mass matrix \r\n$$$$ exists.\r\nCOND     ERROR3,NOMGG $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$ GPWG generates weight and balance information.\r\nGPWG     BGPDP,CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y,WTMASS $ \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$ OFP formats the weight and balance information prepared by GPWG and \r\n$$$$ places it on the system output file for printing.\r\nOFP      OGPWG,,,,,//S,N,CARDNO $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n$$$$\r\nLABEL    LBL1  $\r\n****CARD   1-  3,  5, 14, 15, 24, 58, 59, 61\r\n****FILE  98, 99,124-126,129\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there are no general elements.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    KGGX,KGG/NOGENL $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$ Go to label LBL11 if there are no general elements.\r\nCOND     LBL11,NOGENL $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$                                 x\r\n$$$$ SMA3 adds general elements to [K  ] to obtain stiffness matrix [K  ].\r\n$$$$                                 gg                               gg\r\n$$$$\r\nSMA3     GEI,KGGX/KGG/LUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    LBL11 $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  KGG,SIL/GPST $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n****PHS2  DE8   \r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET) \r\n$$$$ and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                             g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,USET, \r\n         ASET,OGPST/LUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/  \r\n         S,N,REACT/S,N,NSKIP/S,N,REPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/  \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 26, 28\r\n****FILE 101\r\n$$$$ OFP formats the table of potential grid point similarities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 10, 28\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/GO,GOD/OMIT/KFS,PST,QP/SINGLE $   \r\n****CARD   1,  9- 12\r\n****FILE 103,105,106,110,111,114\r\n****PHS1  I1\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               gg       nn     gg       nn     gg       nn\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$   gg       nn\r\n$$$$\r\nEQUIV    KGG,KNN/MPCF1/MGG,MNN/MPCF1/ BGG,BNN/MPCF1/K4GG,K4NN/MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 104\r\n$$$$ Go to label LBL2 if no multipoint constraints exist.\r\nCOND     LBL2,MPCF1 $   \r\n****CARD   1-  6,  8,  9, 14, 24\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     USET,RG/GM $   \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions stiffness, mass, and damping matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |M  |M  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$           +_      +                        +_4   4 +\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | nn| nm|                  4     | nn| nm|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     gg    |B  |B  |                  gg    | 4 | 4 |\r\n$$$$           | mn| mm|                        |K  |K  |\r\n$$$$           +       +                        | mn| mm|\r\n$$$$                                            +       +\r\n$$$$ \r\n$$$$ and performs the matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [M  ] = [M  ] + [G ][M  ] + [M  ][G ] + [G ][M  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [B  ] = [B  ] + [G ][B  ] + [B  ][G ] + [G ][B  ][G ]\r\n$$$$     nn      nm      m   mn      mn   m      m   mm   m\r\n$$$$ \r\n$$$$     4      _4       T   4       4  T         T   4\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ] [G ] + [G ][K  ][G ]\r\n$$$$     nn      nm      m   mn      mn    m      m   mm   m\r\n$$$$\r\nMCE2     USET,GM,KGG,MGG,BGG,K4GG/KNN,MNN,BNN,K4NN  $   \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    LBL2 $ \r\n****CARD   1-  6,  8,  9, 14, 24, 58, 59\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               nn       ff     nn       ff     nn       ff\r\n$$$$   4        4\r\n$$$$ [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$   nn       ff\r\n$$$$\r\nEQUIV    KNN,KFF/SINGLE/MNN,MFF/SINGLE/BNN,BFF/SINGLE/K4NN,K4FF/SINGLE $\r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Go to label LBL3 if no single-point constraints exist.\r\nCOND     LBL3,SINGLE $  \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +                        +       +\r\n$$$$           |K  |K  |                        |M  |M  |\r\n$$$$           | ff| fs|                        | ff| fs|\r\n$$$$   [K  ] = |---+---|                [M  ] = |---+---|\r\n$$$$     nn    |K  |K  |                  nn    |M  |M  |\r\n$$$$           | sf| ss|                        | sf| ss|\r\n$$$$           +       +                        +       +\r\n$$$$\r\n$$$$                                            +       +\r\n$$$$           +       +                        | 4   4 |\r\n$$$$           |B  |B  |                        |K  |K  |\r\n$$$$           | ff| fs|                  4     | ff| fs|\r\n$$$$   [B  ] = |---+---|                [K  ] = |---+---|\r\n$$$$     nn    |B  |B  |                  nn    | 4 | 4 |\r\n$$$$           | sf| ss|                        |K  |K  |\r\n$$$$           +       +                        | sf| ss|\r\n$$$$                                            +       +\r\n$$$$\r\nSCE1     USET,KNN,MNN,BNN,K4NN/KFF,KFS,   ,MFF,BFF,K4FF $   \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    LBL3 $ \r\n****CARD   1-  6,  8- 10, 14, 24, 58, 59\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ], [M  ] to [M  ], [B  ] to [B  ], and\r\n$$$$               ff       aa     ff       aa     ff       aa\r\n$$$$      4      4\r\n$$$$ [K  ]  to [K  ] if no omitted coordinates exist.\r\n$$$$   ff        aa\r\n$$$$\r\nEQUIV    KFF,KAA/OMIT $ \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$\r\nEQUIV    MFF,MAA/OMIT $ \r\n****CARD   1-  5,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nEQUIV    BFF,BAA/OMIT $ \r\n****CARD   1-  4,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nEQUIV    K4FF,K4AA/OMIT $   \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$ Go to label LBL5 if no omitted coordinates exist.\r\nCOND     LBL5,OMIT $\r\n****CARD   1-  6,  8- 11, 14, 24, 58, 59\r\n****FILE 106,121-123\r\n$$$$ SMP1 partitions constrained stiffness matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                 1\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     USET,KFF,,,/GO,KAA,KOO,LOO,,,,, $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 106\r\n$$$$ Go to label LBLM if no mass matrix exists.\r\nCOND     LBLM,NOMGG $   \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ SMP2 partitions constrained mass matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |M  |M  |\r\n$$$$           | aa| ao|\r\n$$$$   [M  ] = |---+---|\r\n$$$$     ff    |M  |M  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     1                                T      T\r\n$$$$   [M  ] = [M  ] + [M  ][G ] + [M  G ]   + [G ][M  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,MFF/MAA $  \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$\r\nLABEL    LBLM $ \r\n****CARD   1-  6,  8- 11, 14, 24\r\n****FILE 121\r\n$$$$ Go to label LBLB if no viscous damping matrix exists.\r\nCOND     LBLB,NOBGG $   \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ SMP2 partitions constrained viscous damping matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |B  |B  |\r\n$$$$           | aa| ao|\r\n$$$$   [B  ] = |---+---|\r\n$$$$     ff    |B  |B  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     1                                T      T\r\n$$$$   [B  ] = [B  ] + [B  ][G ] + [B  G ]   + [G ][B  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,BFF/BAA $  \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    LBLB $ \r\n****CARD   1-  4,  6,  8- 11, 58, 59\r\n****FILE 122\r\n$$$$ Go to label LBL5 if no structural damping matrix exists.\r\nCOND     LBL5,NOK4GG $  \r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$ SMP2 partitions constrained structural damping matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           | 4   4 |\r\n$$$$           |K  |K  |\r\n$$$$     4     | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    | 4 | 4 |\r\n$$$$           |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$     4       4       4           4    T      T   4\r\n$$$$   [K  ] = [K  ] + [K  ][G ] + [K  G ]   + [G ][K  ][G ]\r\n$$$$     aa      aa      oa   o      ao o        o   oo   o\r\n$$$$\r\nSMP2     USET,GO,K4FF/K4AA $\r\n****CARD   1-  4,  6,  8- 11\r\n****FILE 123\r\n$$$$\r\nLABEL    LBL5 $ \r\n****CARD   1-  6,  8- 12, 14- 16, 18, 24, 26, 28, 58, 59, 61\r\n****FILE  95-106,120-126,128,129\r\n****PHS3  I1\r\n$$$$ DPD generates flags defining members of various displacement sets used in \r\n$$$$ dynamic analysis (USETD), tables relating the internal and external grid \r\n$$$$ point numbers (GPLD), including extra points introduced for dynamic \r\n$$$$ analysis (SILD), and prepares Transfer Function Pool (TFPOOL), Dynamics \r\n$$$$ Load Table (DLT), Nonlinear Function Table (NLFT), and Transient Response\r\n$$$$ List (TRL).\r\nDPD      DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,TFPOOL,DLT,,,NLFT,TRL,,  \r\n         EQDYN/LUSET/S,N,LUSETD/NOTFL/S,N,NODLT/NOPSDL/ \r\n         NOFRL/S,N,NONLFT/S,N,NOTRL/NOEED//S,N,NOUE $   \r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n****PHS1  DB1   \r\n$$$$ Go to label ERROR1 if no potential grid point singularities exist.\r\nCOND     ERROR1,NOTRL $ \r\n****CARD   1,  9- 11, 57, 61\r\n****FILE 107\r\n$$$$\r\nPURGE    PNLD/NONLFT$   \r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if there are no extra points\r\n$$$$               o       o        m       m\r\n$$$$ introduced for dynamic analysis.\r\nEQUIV    GO,GOD/NOUE/GM,GMD/NOUE  $ \r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n$$$$ BMG generates DMIG card images describing the interconnection of the \r\n$$$$ fluid and the structure.\r\nBMG      MATPOOL,BGPDT,EQEXIN,CSTM/BDPOOL/S,N,NOKBFL/S,N,NOABFL/\r\n         S,N,MFACT $\r\n****CARD   1, 52\r\n****FILE 118\r\n****PHS3  DB7   \r\n$$$$\r\nPARAM    //*AND*/NOFL/NOABFL/NOKBFL $   \r\n****CARD   1, 52, 57, 60\r\n****FILE 109,119\r\n$$$$\r\nPURGE    KBFL/NOKBFL/ ABFL/NOABFL $ \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ Go to label LBL13 if no fluid structure interface is defined.\r\nCOND     LBLFL3,NOFL $  \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$ MTRXIN generates fluid boundary matrices [A    ] and [K    ]. The matrix\r\n$$$$                                            b,fl        b,fl\r\n$$$$ [K    ] is generated only for a nonzero gravity in the fluid.\r\n$$$$   b,fl\r\n$$$$\r\nMTRXIN,  ,BDPOOL,EQDYN,,/ABFL,KBFL,/LUSETD/S,N,NOABFL/S,N,NOKBFL/   \r\n         0 $\r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$\r\nLABEL    LBLFL3 $   \r\n****CARD   1, 52\r\n****FILE 119\r\n$$$$                                            2d     2d         2\r\n$$$$ MTRXIN selects the direct input matrices [K  ], [M  ], and [B  ].\r\n$$$$                                            pp     pp         pp\r\n$$$$ \r\nMTRXIN   CASECC,MATPOOL,EQDYN,,TFPOOL/K2DPP,M2DPP,B2PP/LUSETD/S,N,  \r\n         NOK2DPP/S,N,NOM2DPP/S,N,NOB2PP $   \r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOM2PP/NOABFL/NOM2DPP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/NOK2PP/NOFL  /NOK2DPP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 109\r\n$$$$               2        2d\r\n$$$$ Equivalence [K  ] to [K  ] if no fluid structure interface is defined\r\n$$$$               pp       pp\r\n$$$$                   2        2d\r\n$$$$ and equivalence [M  ] to [M  ] if there is no [A    ].\r\n$$$$                   pp       pp                   b,fl\r\n$$$$\r\nEQUIV    K2DPP,K2PP/NOFL/M2DPP,M2PP/NOABFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$ Go to label LBLFL2 if no fluid structure interface is defined.\r\nCOND     LBLFL2,NOFL $  \r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$                         2d\r\n$$$$ ADD5 adds [K    ] and [K  ] and subtracts [A    ] from them to form\r\n$$$$             b,fl        pp                  b,fl\r\n$$$$   2\r\n$$$$ [K  ].\r\n$$$$   pp\r\n$$$$\r\nADD5     ABFL,KBFL,K2DPP,,/K2PP/(-1.0,0.0) $\r\n****CARD   1, 52, 57, 60\r\n****FILE 130\r\n$$$$ Go to label LBLFL2 if there is no [A    ].\r\n$$$$                                     b,fl \r\n$$$$\r\nCOND     LBLFL2,NOABFL $\r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$                                    T\r\n$$$$ Transpose [A    ] to obtain [A    ] .\r\n$$$$             b,fl              b,fl\r\n$$$$\r\nTRNSP    ABFL/ABFLT $   \r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$                              2                  T     2d\r\n$$$$ ADD assembles input matrix [M  ] = MFACT [A    ]  + [M  ].\r\n$$$$                              pp            b,fl       pp\r\n$$$$\r\nADD      ABFLT,M2DPP/M2PP/MFACT/(1.0,0.0) $ \r\n****CARD   1, 52, 57, 60\r\n****FILE 131\r\n$$$$\r\nLABEL    LBLFL2 $   \r\n****CARD   1, 52, 57, 60\r\n****FILE 130,131\r\n$$$$\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*AND*/MDEMA/NOUE/NOM2PP $\r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n****PHS2   DB8  \r\n$$$$\r\nPARAM    //*AND*/KDEK2/NOGENL/NOSIMP $  \r\n****CARD   1, 52, 57, 60\r\n****FILE 110\r\n****PHS2  DE8   \r\n$$$$\r\nPURGE    K2DD/NOK2PP/M2DD/NOM2PP/B2DD/NOB2PP $  \r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n$$$$               2        2      2        2          2        2   \r\n$$$$ Equivalence [M  ] to [M  ], [B  ] to [B  ], and [K  ] to [K  ] if no\r\n$$$$               pp       dd     pp       dd         pp       dd  \r\n$$$$ constraints are applied, [M  ] to [M  ] if there are no direct input\r\n$$$$                            aa       dd\r\n$$$$ mass matrices and no extra points, and [K  ] to [K  ] if there are no\r\n$$$$                                          aa       dd\r\n$$$$ direct input stiffness matrices and no extra points.\r\nEQUIV    M2PP,M2DD/NOA/B2PP,B2DD/NOA/K2PP,K2DD/NOA/MAA,MDD/MDEMA/   \r\n         KAA,KDD/KDEKA $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n$$$$ Go to label LBL16 if only extra points are defined.\r\nCOND     LBL16,NOGPDT $ \r\n****CARD   1-  6,  8- 11, 14, 24, 52, 57- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$ GKAD assembles stiffness, mass, and damping matrices for use in Direct \r\n$$$$ Frequency Response.\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [K  ] = [K  ] + [K  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$             1       2\r\n$$$$   [M  ] = [M  ] + [M  ]\r\n$$$$     dd      dd      dd\r\n$$$$\r\n$$$$             1       2       g      1       1      4\r\n$$$$   [B  ] = [B  ] + [B  ] + ------ [K  ] + ------ [K  ]\r\n$$$$     dd      dd      dd    omega    dd    omega    dd\r\n$$$$                                3              4\r\n$$$$ \r\n$$$$ where\r\n$$$$ \r\n$$$$   +      +\r\n$$$$   |K  |  |\r\n$$$$   | aa| 0|       1\r\n$$$$   |---+--| ==> [K  ]\r\n$$$$   |0  | 0|       dd\r\n$$$$   +      +\r\n$$$$ \r\n$$$$   +      +\r\n$$$$   |M  |  |\r\n$$$$   | aa| 0|       1\r\n$$$$   |---+--| ==> [M  ]\r\n$$$$   |0  | 0|       dd\r\n$$$$   +      +\r\n$$$$ \r\n$$$$   +      +\r\n$$$$   |B  |  |\r\n$$$$   | aa| 0|       1\r\n$$$$   |---+--| ==> [B  ]\r\n$$$$   |0  | 0|       dd\r\n$$$$   +      +\r\n$$$$ \r\n$$$$   + 4    +\r\n$$$$   |K  |  |\r\n$$$$   | aa| 0|       4\r\n$$$$   |---+--| ==> [K  ]\r\n$$$$   |0  | 0|       dd\r\n$$$$   +      +\r\n$$$$ \r\n$$$$ All matrices are real.\r\nGKAD     USETD,GM,GO,KAA,BAA,MAA,K4AA,K2PP,M2PP,B2PP/KDD,BDD,MDD,GMD,   \r\n         GOD,K2DD,M2DD,B2DD/*TRANRESP*/*DISP*/*DIRECT*/C,Y,G=0.0/   \r\n         C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/NOM2PP/NOB2PP/\r\n         MPCF1/SINGLE/OMIT/NOUE/NOK4GG/NOBGG/   \r\n         KDEK2/-1 $ \r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$\r\nLABEL    LBL16 $\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****RFMT 193,194\r\n$$$$               2\r\n$$$$ Equivalence [K  ] to [K  ] if all stiffness is Direct Matrix Input,\r\n$$$$               dd       dd\r\n$$$$   2\r\n$$$$ [M  ] to [M  ] if all mass is Direct Matrix Input, and\r\n$$$$   dd       dd\r\n$$$$   2\r\n$$$$ [B  ] to [B  ] if all damping is Direct Matrix Input.\r\n$$$$   dd       dd\r\n$$$$\r\nEQUIV    M2DD,MDD/NOSIMP/B2DD,BDD/NOGPDT/K2DD,KDD/KDEK2 $   \r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 110\r\n****PHS2  D8\r\n$$$$\r\nPARAM    //*ADD*/NEVER/1/0 $\r\n****CARD  14, 22- 24\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $ \r\n****CARD   1-  6,  8- 14, 16, 19- 24, 27, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Beginning of loop for additional dynamic load sets.\r\nLABEL    LBL13 $\r\n****SBST   1,  3\r\n****CARD   1-  6,  8- 16, 18- 25, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPURGE    PNLD,OUDV1,OPNL1,OUDV2,OPNL2,XYPLTTA,OPP1,OQP1,OUPV1,OES1, \r\n         OEF1,OPP2,OQP2,OUPV2,OES2,OEF2,PLOTX2,XYPLTT/NEVER $   \r\n****CARD  14, 19- 24, 27\r\n****FILE 112,113,115,116,127,132,133,135\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ \r\n****CARD   1-  6,  8- 14, 16, 19- 25, 27, 52, 56- 62\r\n****FILE 108\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPARAM    //*MPY*/NCOL/0/1 $ \r\n****SBST   4\r\n****CARD   1-  6,  8- 11, 14, 24, 52, 56- 60\r\n****FILE 111\r\n$$$$                                                 t     t         t\r\n$$$$ TRLG generates matrices of loads versus time. {P }, {P }, and {P } are\r\n$$$$                                                 p     s         d\r\n$$$$ generated with one column per output time step. {P } is generated with\r\n$$$$                                                   d\r\n$$$$ one column per solution time step, and the Transient Output List (TOL) is\r\n$$$$ a list of output time steps.\r\nTRLG     CASEXX,USETD,DLT,SLT,BGPDT,SIL,CSTM,TRL,DIT,GMD,GOD,,EST,MGG,  \r\n         MPT/PPT,PST,PDT,PD,,TOL/S,N,NOSET/NCOL $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n$$$$               t       t\r\n$$$$ Equivalence {P } to {P } if the d and p sets are the same.\r\n$$$$               p       d\r\n$$$$\r\nEQUIV    PPT,PDT/NOSET $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 111\r\n****PHS1  DE1   \r\n$$$$                                              nl\r\n$$$$ TRD forms the linear, {P }, and nonlinear, {P  }, dynamic load vectors\r\n$$$$                         d                    d\r\n$$$$ and integrates the equations of motion (using the standard or alternate \r\n$$$$ starting procedure) over specified time periods to solve for the \r\n$$$$ displacements, velocities, and accelerations, using the following \r\n$$$$ equation:\r\n$$$$\r\n$$$$        2                               nl\r\n$$$$   {M  p  + B  p + K  ] {u } = {P } + {P  }\r\n$$$$     dd      dd     dd    d      d      d\r\n$$$$\r\n$$$$\r\nTRD      CASEXX,TRL,NLFT,DIT,KDD,BDD,MDD,PD/UDVT,PNLD/*DIRECT*/ \r\n         NOUE/NONCUP/S,N,NCOL/C,Y,ISTART $  \r\n****CARD   1-  6,  8- 11, 14, 17, 22- 24, 52, 56- 62\r\n****FILE 127\r\n****PHS1   DB1  \r\n$$$$ VDR prepares displacements, velocities, and accelerations, sorted by time \r\n$$$$ step, for output using only the solution set degrees of freedom.\r\nVDR      CASEXX,EQDYN,USETD,UDVT,TOL,XYCDB,PNLD/OUDV1,OPNL1/\r\n         *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $  \r\n****CARD  19- 21, 27\r\n****FILE 112\r\n$$$$ Go to label LBL15 if there is no output request for the solution set.\r\nCOND     LBL15,NOD $\r\n****CARD  21, 27\r\n****FILE 113,135\r\n$$$$ SDR3 prepares the requested output of the solution set displacements, \r\n$$$$ velocities, accelerations, and nonlinear load vectors sorted by point \r\n$$$$ number or element number.\r\nSDR3     OUDV1,OPNL1,,,,/OUDV2,OPNL2,,,, $  \r\n****CARD  21, 27\r\n****FILE 113\r\n$$$$ OFP formats the tables prepared by SDR3 sorted by point number or element \r\n$$$$ number, and places them on the system output file for printing.\r\nOFP      OUDV2,OPNL2,,,,//S,N,CARDNO $  \r\n****CARD  21\r\n****FILE 113\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the solution set \r\n$$$$ quantities.\r\nXYTRAN   XYCDB,OUDV2,OPNL2,,,/XYPLTTA/*TRAN*/*DSET*/S,N,PFILE/  \r\n         S,N,CARDNO $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$ XYPLOT prepares the requested X-Y plots of the solution set \r\n$$$$ displacements, velocities, accelerations, and nonlinear load vectors vs. \r\n$$$$ time.\r\nXYPLOT   XYPLTTA// $\r\n****SBST   7\r\n****CARD  27\r\n****FILE 135\r\n$$$$\r\nLABEL    LBL15 $\r\n****CARD  21, 27\r\n****FILE 113,135\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $   \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Go to label LBL18 if no further output is requested.\r\nCOND     LBL18,PJUMP $  \r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 52, 56- 62\r\n****FILE 114-116,132,133\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Equivalence {u } to {u } if no constraints are applied.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    UDVT,UPV/NOA $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS2   DB8  \r\n$$$$ Go to label LBL17 if no constraints are applied.\r\nCOND     LBL17,NOA $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  DE7   \r\n$$$$ SDR1 recovers dependent components of displacements\r\n$$$$ \r\n$$$$                                 u\r\n$$$$           d                      d\r\n$$$$  {u } = [G ]{u }               {----} = {u  + u  }\r\n$$$$    o      o   d                 u         f     e\r\n$$$$                                   o\r\n$$$$\r\n$$$$    u + u      \r\n$$$$     f   e                              d\r\n$$$$   {-------} = {u + u }        {u } = [G ]{u  + u }\r\n$$$$      u          n   e           m      m   f    e\r\n$$$$       s        \r\n$$$$\r\n$$$$    u + u                \r\n$$$$     n   e               \r\n$$$$   {---------} = {u }\r\n$$$$       u           p \r\n$$$$        m                  \r\n$$$$                                                                 T\r\n$$$$ and recovers single-point forces of constraint {q } = -{P } + [K  ]{u }.\r\n$$$$                                                  s       s      fs   f\r\n$$$$\r\nSDR1     USETD,,UDVT,,,GOD,GMD,PST,KFS,,/UPV,,QP/1/*DYNAMICS* $ \r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    LBL17 $\r\n****CARD   1-  6,  8- 11, 14, 22- 24, 52, 56- 62\r\n****FILE 114\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  I7\r\n$$$$ SDR2 calculates element forces (OEF1) and stresses (OES1) and \r\n$$$$ prepares load vectors (OPP1), displacement, velocity, and acceleration\r\n$$$$ vectors (OUPV1), and single-point forces of constraint (OQP1) for output \r\n$$$$ and translation components of the displacement vector (PUGV1), sorted by \r\n$$$$ time step. \r\nSDR2     CASEXX,CSTM,MPT,DIT,EQDYN,SILD,,,BGPDP,TOL,QP,UPV,EST,XYCDB,   \r\n         PPT,/OPP1,OQP1,OUPV1,OES1,OEF1,PUGV,,/*TRANRESP* $ \r\n****CARD  18- 20\r\n****FILE 115\r\n$$$$ SDR3 prepares requested output sorted by point number or element number.\r\nSDR3     OPP1,OQP1,OUPV1,OES1,OEF1,/\r\n         OPP2,OQP2,OUPV2,OES2,OEF2, $   \r\n****CARD  18- 20\r\n****FILE 116\r\n$$$$ OFP formats the tables prepared by SDR3 for output sorted by point number \r\n$$$$ or element number and places them on the system output file for printing.\r\nOFP      OPP2,OQP2,OUPV2,OEF2,OES2,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 116\r\n$$$$ SCAN examines the element stresses and forces calculated by SDR3 and \r\n$$$$ generates scanned output that meets the specifications set by the user.\r\nSCAN     CASECC,OES2,OEF2/OESF2/*RF* $  \r\n****CARD 19 \r\n****FILE 116\r\n$$$$ OFP formats the scanned output table prepared by SCAN and places it on \r\n$$$$ the system output file for printing.\r\nOFP      OESF2,,,,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 116\r\n$$$$ Go to label P2 if no deformed structure plots are requested.\r\nCOND     P2,JUMPPLOT $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$ PLOT prepares all requested deformed structure and contour plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,SIP,,PUGV,GPECT,OES1, \r\n         ,/PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ deformed plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$\r\nLABEL    P2 $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 132\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,OPP2,OQP2,OUPV2,OES2,OEF2/XYPLTT/*TRAN*/*PSET*/  \r\n         S,N,PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n$$$$ XYPLOT prepares the requested X-Y plots of displacements, velocities, \r\n$$$$ accelerations, forces, stresses, loads, and single-point forces of \r\n$$$$ constraint versus time.\r\nXYPLOT   XYPLTT// $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 133\r\n****PHS2   DE8  \r\n$$$$\r\nLABEL    LBL18 $\r\n****CARD   1-  6,  8- 11, 14, 18- 20, 22- 24, 52, 56- 62\r\n****FILE 114-116,132,133\r\n$$$$ Go to label FINIS if no additional dynamic load sets need to be \r\n$$$$ processed.\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n****PHS3  DB7   \r\n$$$$ Go to label LBL13 if additional dynamic load sets need to be processed.\r\nREPT     LBL13,100 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*DIRTRD* $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-194,196-204,207-209\r\n****PHS1  DE1   \r\n****PHS3  DE7   \r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*DIRTRD* $\r\n****CARD   1,  9- 11, 57, 61\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n****RFMT 187-194,196-204,207-209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*DIRTRD* $\r\n****SBST   8\r\n****CARD   1-  3,  5,  8, 14, 15, 24\r\n****FILE 129\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nLABEL    FINIS  $   \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nPURGE    DUMMY/ALWAYS $ \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 28, 52, 56- 62\r\n****RFMT 187-194,196-204,207-209\r\n$$$$\r\n$*CARD BITS \r\n  1    AXIC     AXIF     CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1 \r\n  1    CELAS2   \r\n  1    CELAS3   CELAS4   CMASS1   CMASS2   CMASS3   CMASS4   CORD1C \r\n  1    CORD1R   \r\n  1    CORD1S   CORD2C   CORD2R   CORD2S   FREEPT   GRDSET   GRID   \r\n  1    GRIDB\r\n  1    POINTAX  PRESPT   RINGAX   RINGFL   SECTAX   SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CCONEAX  CDUM1    CDUM2    CDUM3  \r\n  2    CDUM4\r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFLUID2\r\n  2    CFLUID3  \r\n  2    CFLUID4  CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8 \r\n  2    CONROD   \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQDPLT   CQUAD1   CQUAD2   CROD   \r\n  2    CSHEAR   CTETRA   CTORDRG  CTRAPAX  CTRAPRG  CTRBSC   CTRIA1 \r\n  2    CTRIA2   CQUAD4   CTRIA3\r\n  2    CTRIAAX  CTRIARG  CTRIM6   CTRMEM   CTRPLT   CTRPLT1  CTRSHL \r\n  2    CTUBE    CTWIST   CWEDGE \r\n  3    PBAR     PCONEAX  PDUM1    PDUM2    PDUM3    PDUM4    PDUM5  \r\n  3    PDUM6\r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PIHEX    PIS2D8   PQDMEM \r\n  3    PQDMEM1  PQDMEM2  PQDPLT   PQUAD1   PQUAD2   PROD     PSHEAR \r\n  3    PTORDRG  PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRAPAX  PTRBSC   PTRIA1   PTRIA2   PTRIAAX  PTRIM6   PTRMEM \r\n  3    PTRPLT   PTRPLT1  PTRSHL   PTUBE    PTWIST   \r\n  4    GENEL\r\n  5    CONM1    CONM2    FSLIST   PMASS \r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MATT1    MATT2    MATT3    MAT8\r\n  8    TABLEM1  TABLEM2  TABLEM3  TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  CRIGD1   CRIGD2   CRIGD3   CRIGDR   CRROD    CRBAR  \r\n  9    CRTRPLT  CRBE1    CRBE2    CRBE3    CRSPLINE MPC      MPCADD \r\n  9    MPCAX    MPC$\r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    WTMASS   \r\n 15    GRDPNT   \r\n 16    PLOTEL   \r\n 17    ISTART   \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 24    COUPMASS CPBAR    CPQDPLT  CPQUAD1  CPQUAD2  CPROD    CPTRBSC\r\n 24    CPTRIA1  CPTRIA2  CPTRPLT  CPTUBE\r\n 25    NOLOOP$  \r\n 26    ASETOUT  \r\n 27    AXYOUT$  \r\n 28    AUTOSPC  \r\n 52    BDYLIST  FLSYM   \r\n 56    G        W3       W4 \r\n 57    EPOINT   SEQEP    TF \r\n 58    CVISC\r\n 59    PDAMP    PVISC   \r\n 60    DMIAX    DMIG     B2PP$    K2PP$    M2PP$    TF$ \r\n 61    DAREA    DELAY    DLOAD    FORCE    FORCE1   FORCE2   GRAV   \r\n 61    MOMENT   \r\n 61    MOMENT1  MOMENT2  NOLIN1   NOLIN2   NOLIN3   NOLIN4   NOLIN6 \r\n 61    PLOAD    PLOAD4\r\n 61    PLOAD1   PLOAD2   SLOAD    TABLED1  TABLED2  TABLED3  TABLED4\r\n 61    TIC      TLOAD1   TLOAD2   TSTEP \r\n 62    DLOAD$   IC$      NLFORCE  TSTEP$\r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      SIL \r\n 95    ECT  \r\n 96    GPTT     SLT \r\n 97    EST      GEI      GPECT    MPTX     PCOMPS   EPTX\r\n 98    KGGX \r\n 99    MGG  \r\n100    KGG  \r\n101    ASET     RG       USET     OGPST \r\n102    GPST \r\n103    GM   \r\n104    BNN      K4NN     KNN      MNN   \r\n105    BFF      K4FF     KFF      KFS      MFF  \r\n106    GO       KOO      LOO      KAA   \r\n107    DLT      EQDYN    GPLD     NLFT     SILD     TFPOOL   TRL\r\n107    USETD\r\n108    CASEXX   \r\n109    B2PP     K2DPP    M2DPP  \r\n110    B2DD     BDD      GMD      GOD      K2DD     KDD      M2DD   \r\n110    MDD  \r\n111    PD       PDT      PPT      PST      TOL  \r\n112    OUDV1    OPNL1   \r\n113    OUDV2    OPNL2   \r\n114    QP       UPV \r\n115    OEF1     OES1     OPP1     OQP1     OUPV1    PUGV\r\n116    OEF2     OES2     OPP2     OQP2     OUPV2    OESF2\r\n118    BDPOOL   \r\n119    ABFL     KBFL\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n121    MAA  \r\n122    BAA  \r\n123    K4AA \r\n124    BDICT    BELM     KDICT    KELM     MDICT    MELM\r\n125    BGG  \r\n126    K4GG \r\n127    PNLD     UDVT\r\n128    PLOTX1   \r\n129    OGPWG\r\n130    K2PP \r\n131    M2PP \r\n132    PLOTX2   \r\n133    XYPLTT   \r\n134    BGPDP    SIP \r\n135    XYPLTTA  \r\n$*  \r\n=PAGE=\r\nHEAT1\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    HEAT 01 - STATIC HEAT TRANSFER ANALYSIS - APR. 1993 $  \r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nFILE     HQG=APPEND/HPGG=APPEND/HUGV=APPEND/HGM=SAVE/HKNN=SAVE $\r\n****SBST   1,  3\r\n****CARD   1- 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  6,  8- 10, 15, 19, 22, 23\r\n****FILE 101,114\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/  \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $  \r\n****CARD   1\r\n****FILE 119\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2,  4, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,117\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$ Go to label HP1 if there are no structure plot requests.\r\nCOND     HP1,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115,117\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/   \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$ Go to label HP1 if no boundary and structure (heat conduction) element \r\n$$$$ plots are requested.\r\nCOND     HP1,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$ PLOT generates all requested boundary and heat conduction element plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/\r\n         HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$ PRTMSG prints plotter data and engineering data for each plot generated. \r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 117\r\n$$$$\r\nLABEL    HP1 $  \r\n****SBST   7\r\n****CARD   1,  2,  4, 16, 18\r\n****FILE 115,117\r\n$$$$ GP3 generates applied Static (Thermal) Loads Table (HSLT) and Grid Point \r\n$$$$ Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ \r\n****CARD   1,  2, 13, 60\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly, load generation, \r\n$$$$ and data recovery.\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,HGEI,HGPECT,,,,,/   \r\n         HLUSET/S,N,NOSIMP/1/S,N,NOGENL/GENEL $ \r\n****CARD   1-  6, 13, 16\r\n****FILE  97\r\n$$$$\r\nPARAM    //*AND*/NOELMT/NOGENL/NOSIMP $ \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n$$$$ Go to label ERROR4 and print Error Message No. 4 if no elements have been \r\n$$$$ defined.\r\nCOND     ERROR4,NOELMT $\r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPURGE    HKGGX/NOSIMP $ \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  98\r\n$$$$ Go to label HLBL1 if there are no heat conduction elements.\r\nCOND     HLBL1,NOSIMP $ \r\n****CARD   1-  3,  6,  8\r\n****FILE  98,116\r\n$$$$\r\nPARAM    //*ADD*/HNOKGG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$ EMG generates heat conduction matrix tables and dictionaries for later \r\n$$$$ assembly by the EMA module. \r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nPURGE    HKGGX/HNOKGG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label HLBL1 if no heat conduction matrix is to be assembled.\r\nCOND     HLBL1,HNOKGG $ \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                        x\r\n$$$$ EMA assembles heat conduction matrix [K  ] and Grid Point Singularity\r\n$$$$                                        gg\r\n$$$$ Table.\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 116\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98,116\r\n$$$$\r\nEQUIV    HKGGX,HKGG/NOGENL $\r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nCOND     HLBL11A,NOGENL $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nSMA3     HGEI,HKGGX/HKGG/HLUSET/NOGENL/NOSIMP $ \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nLABEL    HLBL11A $  \r\n****CARD   1-  4,  6,  8\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $   \r\n****CARD   1-  4,  6,  8\r\n****FILE 102\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1,  9- 12, 22, 23\r\n****FILE 101\r\n$$$$ Beginning of loop for additional constraint sets.\r\nLABEL    HLBL11 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets (USET), \r\n$$$$ forms multipoint constraint equations [R ] {u } = 0, and forms enforced\r\n$$$$                                         g    g\r\n$$$$ displacement vector {Y }.\r\n$$$$                       s\r\n$$$$ \r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,YS,HUSET, \r\n         HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/S,N,HREPEAT/S,N,NOSET/S,N,NOL/S,N,NOA/ \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  4,  6,  8- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  4,  6,  8- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR3,NOL $   \r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*AND*/NOSR/SINGLE/REACT $\r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 101\r\n$$$$\r\nPURGE    HKRR,HKLR,HQR,HDM/REACT/GM/MPCF1/HGO,HKOO,HLOO,HPO,HUOOV,  \r\n         HRUOV/OMIT/HPS,HKFS,HKSS/SINGLE/HQG/NOSR $ \r\n****CARD   1,  9- 12, 22, 23, 59\r\n****FILE 103,105-107,109,111-113\r\n$$$$ Equivalence [K  ] to [K  ] if no multipoint constraints exist.\r\n$$$$               gg       nn\r\n$$$$\r\nEQUIV    HKGG,HKNN/MPCF1 $  \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$ Go to label HLBL2 if no multipoint constraints exist.\r\nCOND     HLBL2,MPCF1 $  \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     HUSET,RG/GM $  \r\n****CARD   1,  9, 22, 23\r\n****FILE 103\r\n$$$$ MCE2 partitions heat conduction matrix\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | nn| nm|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     gg    |K  |K  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,,,/HKNN,,, $ \r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL2 $\r\n****CARD   1-  4,  6,  8,  9, 22, 23\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] if no single-point constraints exist.\r\n$$$$               nn       ff\r\n$$$$\r\nEQUIV    HKNN,HKFF/SINGLE $ \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ Go to label HLBL3 if no single-point constraints exist.\r\nCOND     HLBL3,SINGLE $ \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ SCE1 partitions out single-point constraints\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$\r\nSCE1     HUSET,HKNN,,,/HKFF,HKFS,HKSS,,, $  \r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  4,  6,  8- 10, 22, 23\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    HKFF,HKAA/OMIT $   \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ Go to label HLBL5 if no omitted coordinates exist.\r\nCOND     HLBL5,OMIT $   \r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ SMP1 partitions constrained heat conduction matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _        T\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$\r\nLABEL    HLBL5 $\r\n****CARD   1-  4,  6,  8- 11, 22, 23\r\n****FILE 106\r\n$$$$ Equivalence [K  ] to [K  ] if no free-body supports exist.\r\n$$$$               aa       ll\r\n$$$$\r\nEQUIV    HKAA,HKLL/REACT $  \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$ Go to label HLBL6 if no free-body supports exist.\r\nCOND     HLBL6,REACT $  \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$ RBMG1 partitions out free-body supports\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ll| lr|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     aa    |K  |K  |\r\n$$$$           | rl| rr|\r\n$$$$           +       +\r\n$$$$\r\nRBMG1    HUSET,HKAA,/HKLL,HKLR,HKRR,,, $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$\r\nLABEL    HLBL6 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 107\r\n$$$$ RBMG2 decomposes constrained heat conduction matrix [K  ] = [L  ][U  ].\r\n$$$$                                                       ll      ll   ll\r\n$$$$\r\nRBMG2    HKLL/HLLL $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 108\r\n$$$$ Go to label HLBL7 if no free-body supports exist.\r\nCOND     HLBL7,REACT $  \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ RBMG3 forms rigid body transformation matrix\r\n$$$$ \r\n$$$$               -1\r\n$$$$   [D] = -[K  ]  [K  ]\r\n$$$$            ll     lr\r\n$$$$ \r\n$$$$ calculates rigid body check matrix\r\n$$$$\r\n$$$$                   T\r\n$$$$   [X] = [K  ] + [K  ][D]\r\n$$$$           rr      lr\r\n$$$$ \r\n$$$$ and calculates rigid body error ratio\r\n$$$$ \r\n$$$$ \r\n$$$$               ||X||\r\n$$$$   epsilon = ---------\r\n$$$$              ||K  ||\r\n$$$$                 rr\r\n$$$$\r\nRBMG3    HLLL,HKLR,HKRR/HDM $   \r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$\r\nLABEL    HLBL7 $\r\n****CARD   1-  4,  6,  8- 12, 22, 23\r\n****FILE 109\r\n$$$$ SSG1 generates static thermal load vectors {P }.\r\n$$$$                                              g\r\n$$$$ \r\nSSG1     HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASECC,DIT,/   \r\n         HPG,,,,SCR/HLUSET/NSKIP $  \r\n****CARD   1-  3,  6,  8, 22, 23, 59- 62\r\n****FILE 110\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       l\r\n$$$$\r\nEQUIV    HPG,HPL/NOSET $\r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$ Go to label HLBL10 if no constraints are applied.\r\nCOND     HLBL10,NOSET $ \r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$ SSG2 applies constraints to static thermal load vectors\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     g     P       n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f            _      \r\n$$$$   {P } = {--} , {P } = {P } - [K  ]{Y }\r\n$$$$     n     P       f      f      fs   s\r\n$$$$            s\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            a            _       T\r\n$$$$   {P } = {--} , {P } = {P } + [G ]{P }\r\n$$$$     f     P       a      a      o   o\r\n$$$$            o\r\n$$$$\r\n$$$$           P  \r\n$$$$            l \r\n$$$$   {P } = {--}\r\n$$$$     a     P  \r\n$$$$            r \r\n$$$$ \r\n$$$$                                                            T\r\n$$$$ and calculates determinate thermal powers {q } = -{P } - [D ]{P }.\r\n$$$$                                             r       r          l\r\n$$$$ \r\nSSG2     HUSET,GM,YS,HKFS,HGO,HDM,HPG/HQR,HPO,HPS,HPL $ \r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$\r\nLABEL    HLBL10 $   \r\n****CARD   1-  3,  6,  8- 12, 22, 23, 59- 62\r\n****FILE 111\r\n$$$$ SSG3 solves for displacements of independent coordinates\r\n$$$$ \r\n$$$$               -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     l      ll     l\r\n$$$$ \r\n$$$$ solves for displacements of omitted coordinates\r\n$$$$ \r\n$$$$     o         -1  \r\n$$$$   {u } = [K  ]  {P }\r\n$$$$     o      oo     o\r\n$$$$ \r\n$$$$ calculates residual vector (HRULV) and residual vector error ratio for \r\n$$$$ independent coordinates\r\n$$$$                \r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          l      l      ll   l\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                l        l\r\n$$$$   epsilon  = -------------\r\n$$$$          l       T \r\n$$$$                {P }{u }\r\n$$$$                  l   l\r\n$$$$ \r\n$$$$ and calculates residual vector (HRUOV) and residual vector error ratio\r\n$$$$ for omitted coordinates\r\n$$$$ \r\n$$$$                             o\r\n$$$$   {deltaP } = {P } - [K  ]{u }\r\n$$$$          o      o      oo   o\r\n$$$$ \r\n$$$$                T        \r\n$$$$              {u }{deltaP }\r\n$$$$                o        o\r\n$$$$   epsilon  = -------------\r\n$$$$          o       T   o\r\n$$$$                {P }{u }\r\n$$$$                  o   o\r\n$$$$\r\nSSG3     HLLL,HKLL,HPL,HLOO,HKOO,HPO/HULV,HUOOV,HRULV,HRUOV/OMIT/   \r\n         V,Y,IRES=-1/NSKIP/S,N,EPSI $   \r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****FILE 112\r\n****RFMT 188\r\n$$$$ Go to lable HLBL9 if residual vectors are not to be printed.\r\nCOND     HLBL9,IRES $   \r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$ MATGPR prints the residual vector for independent coordinates (HRULV).\r\nMATGPR   GPL,HUSET,HSIL,HRULV//*L* $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$ MATGPR prints the residual vector for omitted coordinates (HRUOV).\r\nMATGPR   GPL,HUSET,HSIL,HRUOV//*O* $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    HLBL9 $\r\n****CARD   1-  6,  8- 12, 17, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$ SDR1 recovers dependent temperatures\r\n$$$$ \r\n$$$$    u            \r\n$$$$     l                                                  o\r\n$$$$   {--} = {u }  ,                   {u } = [G ]{u ] + {u }  ,\r\n$$$$    u       a                         o      o   a      o\r\n$$$$     r           \r\n$$$$ \r\n$$$$    u                                u            \r\n$$$$     a                                f           \r\n$$$$   {--} = {u }  ,                   {--} = {u }  ,\r\n$$$$    u       f                        Y       n    \r\n$$$$     o                                s           \r\n$$$$                                  \r\n$$$$                                     u         \r\n$$$$                                      n        \r\n$$$$  {u } = [G ]{u ]  ,                {--} = {u }\r\n$$$$    m      m   n                     u       g \r\n$$$$                                      m        \r\n$$$$ \r\n$$$$ and recovers single-point powers of sustained thermal constraint\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u } +[K  ]{Y }\r\n$$$$     s       s      fs   f     ss   s\r\n$$$$\r\nSDR1     HUSET,HPG,HULV,HUOOV,YS,HGO,GM,HPS,HKFS,HKSS,HQR/HUGV,HPGG,\r\n         HQG/NSKIP/*HSTATICS* $ \r\n****CARD   1-  6,  8- 12, 22, 23, 59- 62\r\n****FILE 113\r\n****RFMT 187-204,208,209\r\n$$$$ Go to label HLBL8 if all constraint sets have been processed.\r\nCOND     HLBL8,HREPEAT $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ Go to label HLBL11 if additional sets of constraints need to be \r\n$$$$ processed.\r\nREPT     HLBL11,100 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if the number of \r\n$$$$ constraint sets exceeds 100.\r\nJUMP     ERROR1 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPARAM    //*NOT*/HTEST/HREPEAT $\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if multiple boundary \r\n$$$$ conditions are attempted with an improper subset.\r\nCOND     ERROR2,HTEST $ \r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    HLBL8 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ SDR2 calculates conduction and boundary element heat flows and gradients \r\n$$$$ (HOEF1) and prepares thermal load vectors (HOPG1), temperature vectors \r\n$$$$ (HOUGV1), and single-point powers of constraint (HOQG1) for output and \r\n$$$$ components of the temperature vector (HPUGV1).\r\nSDR2     CASECC,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, \r\n         HEST,,HPGG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/   \r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      HOUGV1,HOPG1,HOQG1,HOEF1,,//S,N,CARDNO $   \r\n****CARD  19\r\n****FILE 114\r\n$$$$ Go to label HP2 if no temperature profile plots are requested.\r\nCOND     HP2,JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$ PLOT generates all requested temperature profile and thermal contour \r\n$$$$ plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIP,HPUGV1,HOES1,   \r\n         HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ temperature profile and thermal contour plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$\r\nLABEL    HP2 $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 118\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*HSTA* $  \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*HSTA* $  \r\n****CARD  22, 23\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*HSTA* $  \r\n****CARD   1,  9- 12, 14, 15, 22, 23, 59\r\n****FILE 101\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    ERROR4 $   \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$ Print Error Message No. 4 and terminate execution.\r\nPRTPARM  //-4/*HSTA* $  \r\n****CARD   1,  2,  4-  6, 16\r\n****FILE  97\r\n****RFMT 187-204,208,209\r\n$$$$\r\nLABEL    FINIS $\r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  6,  8- 16, 18, 19, 22, 23, 59- 62\r\n****RFMT 187-204,208,209\r\n$$$$\r\n$*CARD BITS \r\n  1    CELAS1   CELAS2   CELAS3   CELAS4\r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S  \r\n  1    GRDSET   GRID     GRIDB    POINTAX  RINGAX   RINGFL   SECTAX \r\n  1    SEQGP    SPOINT  \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4  \r\n  2    CDUM5    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE \r\n  2    CHBDY\r\n  2    CHEXA1   CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD \r\n  2    CQDMEM   CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CQUAD4   CROD\r\n  2    CTETRA   CTRAPRG  CTRIA1   CTRIA2   CTRIA3\r\n  2    CTRIARG  CTRMEM   CTUBE  \r\n  2    CWEDGE   \r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6  \r\n  3    PDUM7    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX  \r\n  3    PIS2D8   PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD   \r\n  3    PTRIA1   PTRIA2   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  3    PTRMEM   PTUBE   \r\n  4    GENEL\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    AXISYM$  MPC      MPCADD   MPCAX    MPC$ \r\n 10    SPC      SPC1     SPCADD   SPCAX    SPC$ \r\n 11    ASET     ASET1    OMIT     OMIT1    OMITAX   SUPAX    SUPORT \r\n 13    TEMP     TEMPAX   TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB \r\n 14    ASETOUT  \r\n 15    AUTOSPC  \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 59    DEFORM   DEFORM$  LOAD$    SPCD  \r\n 60    FORCE    FORCE1   FORCE2   FORCEAX  LOAD     MOMAX    MOMENT \r\n 60    MOMENT1  PLOAD4\r\n 60    MOMENT2  PLOAD    PLOAD1   PLOAD2   PLOAD3   PRESAX   QBDY1  \r\n 60    QBDY2    QHBDY    QVECT    QVOL     SLOAD\r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT  \r\n 96    GPTT     HSLT\r\n 97    HGPECT   HEST     HGEI   \r\n 98    HKGGX\r\n100    HKGG \r\n101    HASET    RG       HUSET    YS       OGPST\r\n102    GPST \r\n103    GM   \r\n104    HKNN \r\n105    HKFF     HKSS     HKFS   \r\n106    HGO      HKAA     HKOO     HLOO  \r\n107    HKLL     HKLR     HKRR   \r\n108    HLLL \r\n109    HDM  \r\n110    HPG      SCR \r\n111    HPL      HPO      HPS      HQR   \r\n112    HRULV    HRUOV    HULV     HUOOV \r\n113    HPGG     HQG      HUGV   \r\n114    HOEF1    HOPG1    HOQG1    HOUGV1   HPUGV1   HOES1   \r\n115    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n116    HKDICT   HKELM   \r\n117    PLOTX1   \r\n118    PLOTX2   \r\n119    BGPDP    HSIP\r\n$*  \r\n=PAGE=\r\nHEAT3\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    HEAT 03 - NONLINEAR STATIC HEAT TRANSFER ANALYSIS - APR. 1993 $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  6,  8- 10, 15, 19\r\n****FILE 101,114,117\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/  \r\n         NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $  \r\n****CARD   1\r\n****FILE 113\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 115,118\r\n$$$$\r\nPURGE    HPLTSETX,HPLTPAR,HGPSETS,HELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 115\r\n$$$$ Go to label HP1 if there are no structure plot requests.\r\nCOND     HP1,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,118\r\n$$$$ PLTHBDY modifies the data in the ECT, HSIL, HEQEXIN, and BGPDT tables to \r\n$$$$ permit the plotting of HBDY (thermal boundary) elements.\r\nPLTHBDY  GEOM2,ECT,EPT,HSIL,EQEXIN,BGPDT/PECT,PSIL,PEQEXIN,PBGPDT/ \r\n         S,N,NHBDY/V,Y,MESH=NO $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$ Equivalence PECT to ECT, PSIL to HSIL, PEQEXIN to HEQEXIN, and PBGPDT to \r\n$$$$ BGPDT if there are no HBDY elements.\r\nEQUIV    ECT,PECT/NHBDY/HSIL,PSIL/NHBDY/EQEXIN,PEQEXIN/NHBDY/  \r\n         BGPDT,PBGPDT/NHBDY $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,PEQEXIN,PECT,/HPLTSETX,HPLTPAR,HGPSETS,HELSETS/S,N,HNSIL/  \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   HPLTSETX// $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$ Go to label HP1 if no boundary and structure (heat conduction) element \r\n$$$$ plots are requested.\r\nCOND     HP1,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$ PLOT generates all requested boundary and heat conduction element plots.\r\nPLOT     HPLTPAR,HGPSETS,HELSETS,CASECC,PBGPDT,PEQEXIN,PSIL,,,,,,/  \r\n         PLOTX1/HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$ PRTMSG prints plotter data and engineering data for each plot generated. \r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 118\r\n$$$$\r\nLABEL    HP1 $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 115,118\r\n$$$$ GP3 generates applied Static (Heat Flux) Loads Table (HSLT) and Grid\r\n$$$$ Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/NOGRAV $ \r\n****CARD   1,  2, 13, 60\r\n****FILE  96\r\n$$$$\r\nSETVAL   //S,N,REPEATH/-1 $ \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$\r\nLABEL    LOOPTOP $  \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it to CASEXX.\r\nCASE     CASECC,/CASEXX/*TRANRESP*/S,N,REPEATH/S,N,NOLOOP $ \r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$ PARAML extracts the 8th word in the data record of CASEXX (representing \r\n$$$$ the thermal material set ID) and stores its value in the parameter \r\n$$$$ TEMPMATE.\r\nPARAML   CASEXX//*TABLE1*/1/8//TEMPMATE $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$ PARAM stores the value of the parameter TEMPMATE in the 10th word of \r\n$$$$ COMMON /SYSTEM/.\r\nPARAM    //*STSR*/TEMPMATE/-10 $\r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****FILE 101\r\n$$$$ TA1 generates element tables for use in matrix assembly, load generation, \r\n$$$$ and heat flux data recovery.\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/   \r\n         HLUSET/S,N,NOSIMP/1/NOGENL/GENEL $ \r\n****CARD   1-  3,  6, 13, 16\r\n****FILE  97\r\n$$$$ Go to label ERROR2 and print Error Message No. 2 if no elements have been \r\n$$$$ defined.\r\nCOND     ERROR2,NOSIMP $\r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPARAM    //*ADD*/HNOKGG/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ EMG generates heat conduction matrix tables and dictionaries for later \r\n$$$$ assembly by the EMA module. \r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,,,/S,N,HNOKGG $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKGG/HNOKGG $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$ Go to label JMPKGGX if no heat conduction matrix is to be assembled.\r\nCOND     JMPKGGX,HNOKGG $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$                                        x\r\n$$$$ EMA assembles heat conduction matrix [K  ] and Grid Point Singularity\r\n$$$$                                        gg\r\n$$$$ Table.\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  99\r\n$$$$ RMG generates the radiation matrix, [R  ], and adds the estimated linear\r\n$$$$                                       gg\r\n$$$$ component of radiation to the heat conduction matrix. The element \r\n$$$$ radiation flux matrix, [Q  ], is also generated for use in recovery data\r\n$$$$                          ge\r\n$$$$ for the HBDY elements.\r\nRMG      HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ \r\n         S,N,HNLR/HLUSET $  \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there is no linear component of radiation.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    HKGGX,HKGG/HNLR $  \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $   \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 102\r\n$$$$\r\nPURGE    HQGE,HRGG/HNLR $   \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nPARAM    //*MPY*/NSKIP/0/0 $\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n$$$$ GP4 generates flags defining members of various displacement sets\r\n$$$$ (HUSET), and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                                      g    g\r\n$$$$\r\nGP4      CASEXX,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET,   \r\n         HASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/\r\n         S,N,REACT/S,N,NSKIP/REPEATG/S,N,NOSET/S,N,NOL/S,N,NOA/ \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  3,  6,  8- 10, 14, 15, 55, 59\r\n****FILE 101\r\n$$$$\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  3,  6,  8- 10, 14, 15, 55, 59\r\n****FILE 101\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if no independent \r\n$$$$ degrees of freedom are defined.\r\nCOND     ERROR1,NOL $   \r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPURGE    GM/MPCF1/HPS,HKFS,HKSS,HKSF,HRSN,HQG/SINGLE $  \r\n****CARD   1,  9, 10, 59\r\n****FILE 103,105,107,111,112\r\n$$$$ Equivalence [K  ] to [K  ] and [R  ] to [R  ] if no multipoint\r\n$$$$               gg       nn        gg       nn\r\n$$$$ constraints exist.\r\nEQUIV    HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1 $  \r\n****CARD   1-  3,  6,  8,  9, 13\r\n****FILE 100,104\r\n$$$$ Go to label HLBL1 if no multipoint constraints exist.\r\nCOND     HLBL1,MPCF1 $  \r\n****CARD   1-  3,  6,  8,  9, 13\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     HUSET,RG/GM $  \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions heat conduction and radiation matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |R  |R  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [R  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |R  |R  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$ and performs matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [R  ] = [R  ] + [G ][R  ] + [R  ][G ] + [G ][R  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,HRGG,,/HKNN,HRNN,, $ \r\n****CARD   1-  3,  6,  8,  9, 55\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8,  9, 55\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ] and [R  ] to [R  ] if no single-point\r\n$$$$               nn       ff        nn       fn\r\n$$$$ constraints exist.\r\nEQUIV    HKNN,HKFF/SINGLE/HRNN,HRFN/SINGLE $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107\r\n$$$$ Go to label HLBL2 if no single-point constraints exist.\r\nCOND     HLBL2,SINGLE $ \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107,116\r\n$$$$ VEC generates a partitioning vector {u } -> {u } + {u }.\r\n$$$$                                       n       g      s\r\n$$$$\r\nVEC      HUSET/VFS/*N*/*F*/*S* $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 116\r\n$$$$ PARTN partitions the heat conduction matrix\r\n$$$$ \r\n$$$$           +       +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | fs| ss|\r\n$$$$           +       +\r\n$$$$ \r\nPARTN    HKNN,VFS,/HKFF,HKSF,HKFS,HKSS $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105\r\n$$$$ PARTN partitions the radiation matrix\r\n$$$$\r\n$$$$           +     +\r\n$$$$           | R   |\r\n$$$$           |  fn |\r\n$$$$   [R  ] = | --- |\r\n$$$$     nn    | R   |\r\n$$$$           |  sn |\r\n$$$$           +     +\r\n$$$$\r\nPARTN    HRNN,,VFS/HRFN,HRSN,,/1 $  \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 107\r\n$$$$\r\nLABEL    HLBL2 $\r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 105,107,116\r\n$$$$ DECOMP decomposes the potentially unsymmetric matrix [K  ] into upper\r\n$$$$                                                        ff\r\n$$$$ and lower triangular factors [U  ] and [L  ].\r\n$$$$                                ll        ll\r\n$$$$\r\nDECOMP   HKFF/HLLL,HULL/0/0/MDIAG/DET/PWR/S,N,KSING $   \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n$$$$ Go to label ERROR3 and print Error Message No. 3 if the matrix is \r\n$$$$ singular.\r\nCOND     ERROR3,KSING $ \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n$$$$ SSG1 generates the input heat flux vector {P }.\r\n$$$$                                             g\r\n$$$$\r\nSSG1     HSLT,BGPDT,CSTM,HSIL,HEST,MPT,GPTT,EDT,,CASEXX,DIT,/   \r\n         HPG,,,,SCR/HLUSET/NSKIP $  \r\n****CARD   1-  3,  6,  8, 13, 55, 59, 60, 62\r\n****FILE 110\r\n$$$$ Equivalence {P } to {P } if no constraints are applied.\r\n$$$$               g       f\r\n$$$$\r\nEQUIV    HPG,HPF/NOSET $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$ Go to label HLBL3 if no constraints of any kind exist.\r\nCOND     HLBL3,NOSET $  \r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$ SSG2 reduces the heat flux vector\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            n                               _       T\r\n$$$$   {P } = {--} ,                    {P } = {P } + [G ]{P } ,\r\n$$$$     g     P                          n      n      m   m\r\n$$$$            m\r\n$$$$ \r\n$$$$           _\r\n$$$$           P\r\n$$$$            f\r\n$$$$   {P } = {--}\r\n$$$$     n     P\r\n$$$$            s\r\n$$$$ \r\nSSG2     HUSET,GM,,HKFS,,,HPG/,,HPS,HPF  $  \r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  3,  6,  8- 10, 13, 55, 59, 60, 62\r\n****FILE 111\r\n$$$$ SSGHT solves the nonlinear heat transfer problem by an iteration \r\n$$$$ technique which is limited by parameters EPSHT and MAXIT. The output data\r\n$$$$ are {u ], the solution temperature vector; {q ], the heat flux due to\r\n$$$$       g                                      g\r\n$$$$ single-point constraints; and {deltaP }, the matrix of residual heat\r\n$$$$                                      l\r\n$$$$ fluxes at each iteration step.\r\nSSGHT    HUSET,HSIL,GPTT,GM,HEST,MPT,DIT,HPF,HPS,HKFF,HKFS,HKSF,\r\n         HKSS,HRFN,HRSN,HLLL,HULL/HUGV,HQG,HRULV/HNNLK=1/HNLR/  \r\n         C,Y,EPSHT=.001/C,Y,TABS=0.0/C,Y,MAXIT=4/V,Y,IRES/  \r\n         MPCF1/SINGLE $ \r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n****FILE 112\r\n$$$$ Go to label HLBL4 if residual vectors are not to be printed.\r\nCOND     HLBL4,IRES $   \r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n$$$$ MATGPR prints the residual vectors for independent coordinates (HRULV).\r\nMATGPR   GPL,HUSET,HSIL,HRULV//*F* $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n$$$$\r\nLABEL    HLBL4 $\r\n****CARD   1-  3,  6,  8- 11, 13, 17, 54, 55, 59, 60, 62\r\n****FILE 114\r\n$$$$ SDR2 calculates the heat flux due to conduction and convection in the \r\n$$$$ elements (HOEF1) and prepares the temperature vector (HOUGV1), the load \r\n$$$$ vector (HOPG1), and the power of constraint (HOQG1) for output and \r\n$$$$ components of the temperature vector (HPUGV1).\r\nSDR2     CASEXX,CSTM,MPT,DIT,EQEXIN,HSIL,GPTT,EDT,BGPDP,,HQG,HUGV, \r\n         HEST,,HPG,/HOPG1,HOQG1,HOUGV1,HOES1,HOEF1,HPUGV1,,/\r\n         *STATICS* $\r\n****CARD  18, 19\r\n****FILE 114\r\n$$$$ OFP formats the tables prepared by SDR2 and places them on the system \r\n$$$$ output file for printing.\r\nOFP      HOUGV1,HOPG1,HOQG1,,,//S,N,CARDNO $\r\n****CARD  19\r\n****FILE 114\r\n$$$$ SDRHT processes the HBDY elements to produce heat flux into the elements \r\n$$$$ (HOEF1X) due to convection, radiation, and applied flux.\r\nSDRHT    HSIL,HUSET,HUGV,HOEF1,HSLT,HEST,DIT,HQGE,,/HOEF1X/C,Y,TABS/\r\n         HNLR $ \r\n****CARD  18, 19\r\n****FILE 117\r\n$$$$ OFP formats the element flux table prepared by SDRHT and places it on the \r\n$$$$ system output file for printing.\r\nOFP      HOEF1X,,,,,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 117\r\n$$$$ Go to label HP2 if no temperature profile plots are requested.\r\nCOND     HP2,JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT/PSMES,DPLTPAR,DGPSETS,DELSETS/S,N,DSIL/DJ $   \r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$ PLOT generates all requested temperature profile and thermal contour \r\n$$$$ plots.\r\nPLOT     DPLTPAR,DGPSETS,DELSETS,CASEXX,BGPDT,EQEXIN,HSIP,HPUGV1,, \r\n         HGPECT,HOES1,,/PLOTX2/DSIL/HLUSEP/JUMPPLOT/PLTFLG/S,N,PFILE $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ temperature profile and thermal plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$\r\nLABEL    HP2 $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 119\r\n$$$$ Go to label FINIS and make normal exit if all constraint sets have been \r\n$$$$ processed.\r\nCOND     FINIS,REPEATH $\r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$ Go to label LOOPTOP if additional constraint sets need to be processed.\r\nREPT     LOOPTOP,100 $  \r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*HNLI* $  \r\n****CARD   1,  9, 10, 14, 15, 59\r\n****FILE 101\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR2 $   \r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*HNLI* $  \r\n****CARD   1,  2,  6,  8, 16\r\n****FILE  97\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    ERROR3 $   \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n****RFMT 187-204,207,209\r\n$$$$ Print Error Message No. 3 and terminate execution.\r\nPRTPARM  //-3/*HNLI* $  \r\n****CARD   1-  3,  6,  8- 10, 55\r\n****FILE 108\r\n****RFMT 187-204,207,209\r\n$$$$\r\nLABEL    FINIS$ \r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n****RFMT 187-204,207,209\r\n$$$$\r\nEND      $  \r\n****CARD   1-  3,  6,  8- 11, 13, 15- 19, 54, 55, 59, 60, 62\r\n$$$$\r\n$*CARD BITS \r\n  1    CELAS1   CELAS2   CELAS3   CELAS4   CORD1C   CORD1R   CORD1S \r\n  1    CORD2C   CORD2R   CORD2S   GRDSET   GRID     SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4  \r\n  2    CDUM5\r\n  2    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE   CHBDY  \r\n  2    CHEXA1   \r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM \r\n  2    CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CROD     CTETRA   CTRAPRG\r\n  2    CTRIA1   CTRIA2   CTRIARG  CTRMRM   CQUAD4   CTRIA3\r\n  2    CTUBE    CWEDGE  \r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6  \r\n  3    PDUM7\r\n  3    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX    PIS2D8 \r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD     PTUBE\r\n  3    PTRIA1   PTRIA2   PTRMEM   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    MPC      MPCADD   MPC$   \r\n 10    SPC      SPC1     SPCADD   SPC$  \r\n 11    IRES \r\n 13    TEMP     TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB  \r\n 14    ASETOUT  \r\n 15    AUTOSPC  \r\n 16    PLOTEL   \r\n 17    IRES \r\n 18    PLOT$\r\n 19    POUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 54    EPSHT    MAXIT   \r\n 55    RADMTX   RADLST   SIGMA    TABS  \r\n 59    LOAD$    SPCD\r\n 60    LOAD     QBDY1    QBDY2    QHBDY    QVECT    QVOL     SLOAD  \r\n 62    TEMPLD$  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT  \r\n 96    GPTT     HSLT\r\n 97    HEST     HGEI     HGPECT \r\n 98    HKDICT   HKELM   \r\n 99    HKGGX\r\n100    HRGG     HKGG     HQGE   \r\n101    HASET    RG       HUSET    OGPST \r\n102    GPST \r\n103    GM   \r\n104    HKNN     HRNN\r\n105    HKFF     HKFS     HKSF     HKSS  \r\n107    HRFN     HRSN\r\n108    HLLL     HULL\r\n110    HPG  \r\n111    HPF      HPS \r\n112    HRULV    HQG      HUGV   \r\n113    BGPDP    HSIP\r\n114    HOES1    HOEF1    HOPG1    HOQG1    HOUGV1   HPUGV1  \r\n115    HELSETS  HGPSETS  HPLTPAR  HPLTSETX  \r\n116    VFS  \r\n117    HOEF1X   \r\n118    PLOTX1   \r\n119    PLOTX2   \r\n$*  \r\n=PAGE=\r\nHEAT9\r\n\r\nAPR.93\r\n$$$$$$$$\r\nBEGIN    HEAT 09 - TRANSIENT HEAT TRANSFER ANALYSIS - APR. 1993 $   \r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPRECHK   ALL $  \r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPARAM    //*MPY*/CARDNO/0/0 $   \r\n****CARD   1-  3,  6,  8- 10, 13, 15, 19, 21, 55- 57, 59- 62\r\n****FILE 101,113,116\r\n$$$$ GP1 generates coordinate system transformation matrices, tables of grid \r\n$$$$ point locations, and tables relating the internal and external grid point \r\n$$$$ numbers.\r\nGP1      GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM,BGPDT,HSIL/S,N,HLUSET/  \r\n         S,N,NOGPDT/MINUS1=-1 $ \r\n****CARD   1\r\n****FILE  94\r\n$$$$ PLTTRAN modifies special scalar grid points in the BGPDT and SIL tables.\r\nPLTTRAN  BGPDT,HSIL/BGPDP,HSIP/HLUSET/S,N,HLUSEP $  \r\n****CARD   1\r\n****FILE 118\r\n$$$$\r\nPURGE    HUSET,GM,HGO,HKAA,HBAA,HPSO,HKFS,HQP,HEST/NOGPDT $ \r\n****CARD   1\r\n****FILE  97,101,103,105,106,114,117,122\r\n$$$$ Go to label HLBL5 if there is no Grid Point Definition Table.\r\nCOND     HLBL5,NOGPDT $ \r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE  95-106,120-124\r\n$$$$ GP2 generates Element Connection Table with internal indices.\r\nGP2      GEOM2,EQEXIN/ECT $\r\n****CARD   1,  2, 16\r\n****FILE  95\r\n$$$$\r\nPARAML   PCDB//*PRES*////JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 120,124\r\n$$$$\r\nPURGE    PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 120\r\n$$$$ Go to label HP1 if there are no structure plot requests.\r\nCOND     HP1,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120,124\r\n$$$$ PLTSET transforms user input into a form used to drive the structure \r\n$$$$ plotter.\r\nPLTSET   PCDB,EQEXIN,ECT,EPT/PLTSETX,PLTPAR,GPSETS,ELSETS/S,N,HNSIL/   \r\n         S,N,JUMPPLOT $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$ PRTMSG prints error messages associated with the structure plotter.\r\nPRTMSG   PLTSETX// $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120\r\n$$$$\r\nPARAM    //*MPY*/PLTFLG/1/1 $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nPARAM    //*MPY*/PFILE/0/0 $\r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ Go to label HP1 if no boundary and structure (heat conduction) element \r\n$$$$ plots are requested.\r\nCOND     HP1,JUMPPLOT$  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ PLOT generates all requested boundary and heat conduction element plots.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,HSIL,,ECT,,,,/PLOTX1/\r\n         HNSIL/HLUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE $   \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$ PRTMSG prints plotter data and engineering data for each plot generated. \r\nPRTMSG   PLOTX1// $ \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 124\r\n$$$$\r\nLABEL    HP1 $  \r\n****SBST   7\r\n****CARD   1,  2,  4,  5, 16, 18\r\n****FILE 120,124\r\n$$$$ GP3 generates applied Static (Heat Flux) Loads Table (HSLT) and Grid\r\n$$$$ Point Temperature Table.\r\nGP3      GEOM3,EQEXIN,GEOM2/HSLT,GPTT/1 $  \r\n****CARD   1,  2, 13\r\n****FILE  96\r\n$$$$ TA1 generates element tables for use in matrix assembly, load generation, \r\n$$$$ and heat flux data recovery.\r\nTA1      ECT,EPT,BGPDT,HSIL,GPTT,CSTM,,EQEXIN/HEST,,HGPECT,,,,,/   \r\n         HLUSET/S,N,NOSIMP=-1/1/123/123 $   \r\n****CARD   1-  3,  6, 13, 16, 59\r\n****FILE  97\r\n$$$$\r\nPURGE    HKGG,HBGG/NOSIMP $ \r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$ Go to label HLBL1 if no heat conduction or boundary elements exist.\r\nCOND     HLBL1,NOSIMP $ \r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$\r\nPARAM    //*ADD*/NOKGGX/1/0 $   \r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nPARAM    //*ADD*/NOBGG/1/0 $\r\n****CARD   1-  3,  8, 59\r\n****FILE 123\r\n$$$$ EMG generates element heat conduction and capacitance matrix tables and \r\n$$$$ dictionaries for later assembly by the EMA module. \r\nEMG      HEST,CSTM,MPT,DIT,GEOM2,/HKELM,HKDICT,,,HBELM,HBDICT,/S,N, \r\n         NOKGGX//S,N,NOBGG $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE 123\r\n$$$$\r\nPURGE    HKGGX/NOKGGX $ \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPKGGX if no heat conduction matrix is to be assembled.\r\nCOND     JMPKGGX,NOKGGX $   \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$                                        x\r\n$$$$ EMA assembles heat conduction matrix [K  ] and Grid Point Singularity\r\n$$$$                                        gg\r\n$$$$ Table.\r\nEMA      HGPECT,HKDICT,HKELM/HKGGX $\r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$\r\nPURGE    HKDICT,HKELM/MINUS1 $  \r\n****CARD   1-  3,  6,  8\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPKGGX $  \r\n****CARD   1-  3,  6,  8\r\n****FILE  98\r\n$$$$ Go to label JMPHBGG if no heat capacitance matrix is to be assembled.\r\nCOND     JMPHBGG,NOBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$ EMA assembles heat capacitance matrix [B  ].\r\n$$$$                                         gg\r\n$$$$\r\nEMA      HGPECT,HBDICT,HBELM/HBGG $ \r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$\r\nPURGE    HBDICT,HBELM/MINUS1 $  \r\n****CARD   1-  3,  8, 59\r\n****FILE 123\r\n$$$$\r\nLABEL    JMPHBGG $  \r\n****CARD   1-  3,  8, 59\r\n****FILE  99\r\n$$$$\r\nPURGE    HBNN,HBFF,HBAA,HBGG/NOBGG $\r\n****CARD   1-  3,  8, 59\r\n****FILE  99,104,105,122\r\n$$$$\r\nLABEL    HLBL1 $\r\n****CARD   1-  3,  6,  8, 59\r\n****FILE  98, 99,123\r\n$$$$ RMG generates the radiation matrix, [R  ], and adds the estimated linear\r\n$$$$                                       gg\r\n$$$$ component of radiation to the heat conduction matrix. The element \r\n$$$$ radiation flux matrix, [Q  ], is also generated for use in data recovery.\r\n$$$$                          ge\r\n$$$$\r\nRMG      HEST,MATPOOL,GPTT,HKGGX/HRGG,HQGE,HKGG/C,Y,TABS/C,Y,SIGMA=0.0/ \r\n         S,N,HNLR/HLUSET $  \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$               x\r\n$$$$ Equivalence [K  ] to [K  ] if there is no linear component of radiation.\r\n$$$$               gg       gg\r\n$$$$\r\nEQUIV    HKGGX,HKGG/HNLR $  \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100\r\n$$$$\r\nGPSTGEN  HKGG,HSIL/GPST $   \r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 102\r\n$$$$\r\nPURGE    HRGG,HRNN,HRFF,HRAA,HRDD/HNLR $\r\n****CARD   1-  3,  6,  8, 55\r\n****FILE 100,104,105,110,121\r\n$$$$ GP4 generates flags defining members of various displacement sets\r\n$$$$ (HUSET), and forms multipoint constraint equations [R ] {u } = 0.\r\n$$$$                                                      g    g\r\n$$$$\r\nGP4      CASECC,GEOM4,EQEXIN,GPDT,BGPDT,CSTM,GPST/RG,,HUSET,   \r\n         ASET,OGPST/HLUSET/S,N,MPCF1/S,N,MPCF2/S,N,SINGLE/S,N,OMIT/ \r\n         S,N,REACT/0/123/S,N,NOSET/S,N,NOL/S,N,NOA/ \r\n         C,Y,ASETOUT/C,Y,AUTOSPC $  \r\n****CARD   1-  3,  6,  8- 11, 14, 15, 55\r\n****FILE 101\r\n$$$$ OFP formats a table of potential grid point singularities prepared by \r\n$$$$ GPSP and places it on the system output file for printing.\r\nOFP      OGPST,,,,,//S,N,CARDNO $   \r\n****CARD   1-  3,  6,  8- 11, 14, 15, 55\r\n****FILE 101\r\n$$$$\r\nPURGE    GM,GMD/MPCF1/HGO,HGOD/OMIT/HKFS,HPSO,HQP/SINGLE $  \r\n****CARD   1,  9- 11\r\n****FILE 103,105,106,110,114,117\r\n$$$$ Equivalence [K  ] to [K  ], [R  ] to [R  ], and [B  ] to [B  ]\r\n$$$$               gg       nn     gg       nn         gg       nn\r\n$$$$ if no multipoint constraints exist.\r\nEQUIV    HKGG,HKNN/MPCF1/HRGG,HRNN/MPCF1/HBGG,HBNN/MPCF1 $  \r\n****CARD   1-  3,  6,  8,  9\r\n****FILE 104\r\n$$$$ Go to label HLBL3 if no multipoint constraints exist.\r\nCOND     HLBL3,MPCF1 $  \r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 103,104\r\n$$$$ MCE1 partitions multipoint constraint equation [R ] = [R |R ] and solves\r\n$$$$                                                  g      m  n\r\n$$$$                                                             -1\r\n$$$$ for multipoint constraint transformation matrix [G ] = -[R ]  [R ].\r\n$$$$                                                   m       m     n\r\n$$$$\r\nMCE1     HUSET,RG/GM $  \r\n****CARD   1,  9\r\n****FILE 103\r\n$$$$ MCE2 partitions heat conduction and radiation matrices\r\n$$$$ \r\n$$$$           +_      +                        +_      +\r\n$$$$           |K  |K  |                        |R  |R  |\r\n$$$$           | nn| nm|                        | nn| nm|\r\n$$$$   [K  ] = |---+---|                [R  ] = |---+---|\r\n$$$$     gg    |K  |K  |                  gg    |R  |R  |\r\n$$$$           | mn| mm|                        | mn| mm|\r\n$$$$           +       +                        +       +\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |B  |B  |\r\n$$$$           | nn| nm|\r\n$$$$   [B  ] = |---+---|\r\n$$$$     gg    |B  |B  |\r\n$$$$           | mn| mm|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reductions\r\n$$$$ \r\n$$$$            _        T           T           T\r\n$$$$   [K  ] = [K  ] + [G ][K  ] + [K  ][G ] + [G ][K  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [R  ] = [R  ] + [G ][R  ] + [R  ][G ] + [G ][R  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [B  ] = [B  ] + [G ][B  ] + [B  ][G ] + [G ][B  ][G ]\r\n$$$$     nn      nn      m   mn      mn   m      m   mm   m\r\n$$$$\r\nMCE2     HUSET,GM,HKGG,HRGG,HBGG,/HKNN,HRNN,HBNN, $ \r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 104\r\n$$$$\r\nLABEL    HLBL3 $\r\n****CARD   1-  3,  6,  8,  9, 55, 59\r\n****FILE 103,104\r\n$$$$ Equivalence [K  ] to [K  ], [B  ] to [B  ], and [R  ] to [R  ]\r\n$$$$               nn       ff     nn       ff         nn       fn\r\n$$$$ if no single-point constraints exist.\r\nEQUIV    HKNN,HKFF/SINGLE/HRNN,HRFF/SINGLE/HBNN,HBFF/SINGLE $   \r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$ Go to label HLBL4 if no single-point constraints exist.\r\nCOND     HLBL4,SINGLE $ \r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$ SCE1 partitions the matrices as follows:\r\n$$$$ \r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | ff| fs|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     nn    |K  |K  |\r\n$$$$           | sf| ss|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ [R  ] and [B  ] are partitioned in the same manner, except that only the\r\n$$$$   nn        nn\r\n$$$$ ff partitions are saved.\r\nSCE1     HUSET,HKNN,HRNN,HBNN,/HKFF,HKFS,,HRFF,HBFF, $  \r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$\r\nLABEL    HLBL4 $\r\n****CARD   1-  3,  6,  8- 10, 55, 59\r\n****FILE 105\r\n$$$$ Equivalence [K  ] to [K  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    HKFF,HKAA/OMIT $   \r\n****CARD   1-  3,  6,  8- 11\r\n****FILE 106\r\n$$$$ Equivalence [R  ] to [R  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    HRFF,HRAA/OMIT $   \r\n****CARD   1-  3,  8,  9, 55\r\n****FILE 121\r\n$$$$ Equivalence [B  ] to [B  ] if no omitted coordinates exist.\r\n$$$$               ff       aa\r\n$$$$\r\nEQUIV    HBFF,HBAA/OMIT $   \r\n****CARD   1-  3,  8,  9, 59\r\n****FILE 122\r\n$$$$ Go to label HLBL5 if no omitted coordinates exist.\r\nCOND     HLBL5,OMIT $   \r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE 106,121,122\r\n$$$$ SMP1 partitions heat conduction matrix\r\n$$$$\r\n$$$$           +_      +\r\n$$$$           |K  |K  |\r\n$$$$           | aa| ao|\r\n$$$$   [K  ] = |---+---|\r\n$$$$     ff    |K  |K  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$           \r\n$$$$                                               -1\r\n$$$$ solves for transformation matrix [G ] = -[K  ]  [K  ]\r\n$$$$                                    o       oo     oa\r\n$$$$ \r\n$$$$                                        _\r\n$$$$ and performs matrix reduction [K  ] = [K  ] + [K  ][G ].\r\n$$$$                                 aa      aa      oa   o\r\n$$$$\r\nSMP1     HUSET,HKFF,,,/HGO,HKAA,HKOO,HLOO,,,,, $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 106\r\n$$$$ Go to label HLBLR if no radiation matrix exists.\r\nCOND     HLBLR,HNLR $   \r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$ SMP2 partitions constrained radiation matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_      |\r\n$$$$           |R  |R  |\r\n$$$$           | aa| ao|\r\n$$$$   [R  ] = |---+---|\r\n$$$$     ff    |   |   |\r\n$$$$           |R  |R  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [R  ] = [R  ] + [R  ][G ] + [G ][R  ] + [G ][R  ][G ]\r\n$$$$     aa      aa      oa   o      o   oa      o   oo   o\r\n$$$$\r\nSMP2     HUSET,HGO,HRFF/HRAA $  \r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$\r\nLABEL    HLBLR $\r\n****CARD   1-  3,  6,  8- 11, 55\r\n****FILE 121\r\n$$$$ Go to label HLBL5 if no heat capacitance matrix exists.\r\nCOND     HLBL5,NOBGG $  \r\n****CARD   1-  3,  6,  8- 11, 59\r\n****FILE 122\r\n$$$$ SMP2 partitions reduced heat capacitance matrix\r\n$$$$\r\n$$$$           +       +\r\n$$$$           |_      |\r\n$$$$           |B  |B  |\r\n$$$$           | aa| ao|\r\n$$$$   [B  ] = |---+---|\r\n$$$$     ff    |   |   |\r\n$$$$           |B  |B  |\r\n$$$$           | oa| oo|\r\n$$$$           +       +\r\n$$$$ \r\n$$$$ and performs matrix reduction\r\n$$$$\r\n$$$$            _        T           T           T\r\n$$$$   [B  ] = [B  ] + [B  ][G ] + [G ][B  ] + [G ][B  ][G ]\r\n$$$$     aa      aa      oa   o      o   oa      o   oo   o\r\n$$$$\r\nSMP2     HUSET,HGO,HBFF/HBAA $  \r\n****CARD   1-  3,  6,  8- 11, 59\r\n****FILE 122\r\n$$$$\r\nLABEL    HLBL5 $\r\n****CARD   1-  3,  6,  8- 11, 55, 59\r\n****FILE  95-106,120-124\r\n$$$$ DPD generates the table defining the displacement sets each degree of \r\n$$$$ freedom belongs to (HUSETD), including extra points. It prepares the \r\n$$$$ Transfer Function Pool, the Dynamics Load Table, the Nonlinear Function \r\n$$$$ Table, and the Transient Response List.\r\nDPD      DYNAMICS,GPL,HSIL,HUSET/GPLD,HSILD,HUSETD,TFPOOL,HDLT,,,   \r\n         HNLFT,HTRL,,HEQDYN/HLUSET/S,N,HLUSETD/123 /S,N,NODLT/  \r\n         123/123/S,N,NONLFT/S,N,NOTRL/123//S,N,NOUE $   \r\n****CARD   1,  9- 11, 57, 60- 62\r\n****FILE 107\r\n$$$$ Go to label ERROR1 and print Error Message No. 1 if there is no Transient \r\n$$$$ Response List.\r\nCOND     ERROR1,NOTRL $ \r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$                       d                d\r\n$$$$ Equivalence [G ] to [G ] and [G ] to [G ] if no extra points were \r\n$$$$               o       o        m       m\r\n$$$$ defined.\r\nEQUIV    HGO,HGOD/NOUE/GM,GMD/NOUE $\r\n****CARD   1, 57, 61\r\n****FILE 110\r\n$$$$\r\nPURGE    HPPO,HPSO,HPDO,HPDT/NODLT $\r\n****CARD   1, 57, 61\r\n****FILE 107\r\n$$$$                                            2         2\r\n$$$$ MTRXIN selects the direct input matrices [K  ] and [B  ].\r\n$$$$                                            pp        pp\r\n$$$$\r\nMTRXIN   CASECC,MATPOOL,HEQDYN,,TFPOOL/HK2PP,,HB2PP/HLUSETD/\r\n         S,N,NOK2PP/123/S,N,NOB2PP $\r\n****CARD   1, 57, 60\r\n****FILE 109\r\n$$$$\r\nPARAM    //*AND*/KDEKA/NOUE/NOK2PP $\r\n****CARD   1, 57, 60\r\n****FILE 109\r\n$$$$\r\nPURGE    HK2DD/NOK2PP/HB2DD/NOB2PP $\r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$                        1\r\n$$$$ Equivalence [K  ] to [K  ] if there are no direct input stiffness\r\n$$$$               aa       dd\r\n$$$$                                          2                  2\r\n$$$$ matrices and no extra points; [b  ] to [B  ] and [K  ] to [K  ] if only\r\n$$$$                                 pp       dd        pp       dd\r\n$$$$ extra points are used; and [R  ] to [R  ] if no extra points are used.\r\n$$$$                              aa       dd\r\n$$$$\r\nEQUIV    HKAA,HKDD/KDEKA/HB2PP,HB2DD/NOA/HK2PP,HK2DD/NOA/HRAA,HRDD/ \r\n         NOUE $ \r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$ Go to label HLBL6 if there is no Grid Point Definition Table.\r\nCOND     HLBL6,NOGPDT $ \r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$ GKAD expands the matrices to include extra points and assembles heat \r\n$$$$ conduction, capacitance, and radiation matrices for use in the transient \r\n$$$$ analysis:\r\n$$$$ \r\n$$$$            +       +\r\n$$$$            |K  |   |\r\n$$$$     1      | aa| 0 |\r\n$$$$   [K  ] =  |---+---|\r\n$$$$     dd     | 0 | 0 |\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$ \r\n$$$$            +       +\r\n$$$$            |B  |   |\r\n$$$$     1      | aa| 0 |\r\n$$$$   [B  ] =  |---+---|\r\n$$$$     dd     | 0 | 0 |\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$ \r\n$$$$            +       +\r\n$$$$            |R  |   |\r\n$$$$            | aa| 0 |\r\n$$$$   [R  ] =  |---+---|\r\n$$$$     dd     | 0 | 0 |\r\n$$$$            |   |   |\r\n$$$$            +       +\r\n$$$$ \r\n$$$$ and\r\n$$$$ \r\n$$$$             1       2\r\n$$$$   [K  ] = [K  ] + [K  ]\r\n$$$$     dd      dd      dd\r\n$$$$ \r\n$$$$             1       2\r\n$$$$   [B  ] = [B  ] + [B  ]\r\n$$$$     dd      dd      dd\r\n$$$$ \r\n$$$$ Nonzero values of the parameters W4, G, and W3 (see the PARAM bulk data \r\n$$$$ card) are not recommended for use in heat transfer analysis and therefore\r\n$$$$ do not appear in the above equations.\r\nGKAD     HUSETD,GM,HGO,HKAA,HBAA,HRAA,,HK2PP,,HB2PP/HKDD,HBDD,  \r\n         HRDD,GMD,HGOD,HK2DD,,HB2DD/*TRANRESP*/*DISP*/  \r\n         *DIRECT*/C,Y,G=0.0/C,Y,W3=0.0/C,Y,W4=0.0/NOK2PP/-1/\r\n         NOB2PP/MPCF1/SINGLE/OMIT/NOUE/ \r\n         -1/NOBGG/NOSIMP/-1 $   \r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nLABEL    HLBL6 $\r\n****CARD   1-  3,  6,  8- 11, 17, 57, 59, 60\r\n****FILE 110\r\n$$$$               2                  2\r\n$$$$ Equivalence [K  ] to [K  ] and [B  ] to [B  ] if no matrices were\r\n$$$$               dd       dd        dd       dd\r\n$$$$ generated from the element heat conduction and capacitance assemblers.\r\nEQUIV    HK2DD,HKDD/NOSIMP/HB2DD,HBDD/NOGPDT $  \r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$\r\nPARAM    //*MPY*/REPEATT/1/-1 $ \r\n****CARD   1-  3,  6,  8- 11, 57, 59, 60\r\n****FILE 110\r\n$$$$ Beginning of loop for additional dynamic load sets.\r\nLABEL    HLBL10 $   \r\n****SBST   1,  3\r\n****RFMT 187-204,207,208\r\n$$$$ CASE extracts the appropriate record from CASECC corresponding to the \r\n$$$$ current loop and copies it into CASEXX.\r\nCASE     CASECC,/CASEXX/*TRAN*/S,N,REPEATT/S,N,NOLOOP $ \r\n****CARD   1-  3,  6,  8- 11, 13, 16, 19, 21- 23, 25, 55- 57, 59- 62\r\n****FILE 108\r\n$$$$                                                           o     o\r\n$$$$ TRLG generates matrices of heat flux loads versus time. {P }, {P }, and\r\n$$$$                                                           p     s\r\n$$$$   o                                                        t\r\n$$$$ {P } are generated with one column per output time step. {P } is \r\n$$$$   d                                                        d\r\n$$$$ generated with one column per solution time step, and the Transient\r\n$$$$ Output List is a list of output time steps.\r\nTRLG     CASEXX,HUSETD,HDLT,HSLT,BGPDT,HSIL,CSTM,HTRL,DIT,GMD,HGOD,,\r\n         HEST,,/HPPO,HPSO,HPDO,HPDT,,HTOL/S,N,NOSET $   \r\n****CARD   1-  3,  6,  8- 11, 55, 57, 61\r\n****FILE 117\r\n$$$$               o       o\r\n$$$$ Equivalence {P } to {P } if the d and p sets are the same.\r\n$$$$               p       d\r\n$$$$\r\nEQUIV    HPPO,HPDO/NOSET $  \r\n****CARD   1-  3,  6,  8- 11, 55, 57, 61\r\n****FILE 117\r\n$$$$ TRHT integrates the equation of motion:\r\n$$$$\r\n$$$$         .\r\n$$$$   [B  ]{u} + [K  ]{u} = {P } + {N }\r\n$$$$     dd         dd         d      d\r\n$$$$\r\n$$$$ where\r\n$$$$\r\n$$$$   {u} is a vector of the temperatures at any time\r\n$$$$    .\r\n$$$$   {u} is the time derivative of {u} (\"velocity\")\r\n$$$$\r\n$$$$   {P } is the applied heat flux at any time step\r\n$$$$     d\r\n$$$$\r\n$$$$   {N } is the total nonlinear heat flux from radiation and/or NOLINi\r\n$$$$     d  data, extrapolated from the previous solution vector\r\n$$$$\r\n$$$$                              t\r\n$$$$ The output consists of the [u ] matrix containing temperature vectors\r\n$$$$                              d\r\n$$$$ and temperature \"velocity\" vectors for the output time steps.\r\nTRHT     CASEXX,HUSETD,HNLFT,DIT,GPTT,HKDD,HBDD,HRDD,HPDT,HTRL/ \r\n         HUDVT,HPNLD/C,Y,BETA=.55/C,Y,TABS=0.0/HNLR/C,Y,RADLIN=-1/  \r\n         C,Y,SIGMA=0.0 $\r\n****CARD   1-  3,  6,  8- 11, 13, 55- 57, 59- 62\r\n****FILE 111\r\n$$$$ VDR prepares the solution set temperatures, temperature \"velocities\", and \r\n$$$$ nonlinear loads, sorted by time step, for output.\r\nVDR      CASEXX,HEQDYN,HUSETD,HUDVT,HTOL,XYCDB,HPNLD/HOUDV1,HOPNL1/ \r\n         *TRANRESP*/*DIRECT*/0/S,N,NOD/S,N,NOP/0 $  \r\n****CARD  13, 19- 21, 27, 55- 57, 59- 62\r\n****FILE 112\r\n$$$$ Go to label HLBL7 if there is no output request for the solution set.\r\nCOND     HLBL7,NOD $\r\n****CARD  13, 21, 27, 55- 57, 59- 62\r\n****FILE 113,128\r\n$$$$ SDR3 prepares the requested output of the solution set temperatures, \r\n$$$$ temperature \"velocities\", and nonlinear loads sorted by point number or \r\n$$$$ element number.\r\nSDR3     HOUDV1,HOPNL1,,,,/HOUDV2,HOPNL2,,,, $  \r\n****CARD  13, 21, 27, 55- 57, 59- 62\r\n****FILE 113\r\n$$$$ OFP formats the tables prepared by SDR3 for output sorted by point number \r\n$$$$ or element number and places them on the system output file for printing.\r\nOFP      HOUDV2,HOPNL2,,,,//S,N,CARDNO $\r\n****CARD  13, 21, 55- 57, 59- 62\r\n****FILE 113\r\n$$$$ XYTRAN prepares the input for requested X-Y plots of the solution set \r\n$$$$ quantities.\r\nXYTRAN   XYCDB,HOUDV2,HOPNL2,,,/HXYPLTTA/*TRAN*/*DSET*/S,N,HPFILE/  \r\n         S,N,HCARDNO $  \r\n****SBST   7\r\n****CARD  27\r\n****FILE 128\r\n$$$$ XYPLOT prepares the requested X-Y plots of the solution set temperatures, \r\n$$$$ \"velocities\", and nonlinear loads versus time.\r\nXYPLOT   HXYPLTTA// $   \r\n****SBST   7\r\n****CARD  27\r\n****FILE 128\r\n$$$$\r\nLABEL    HLBL7 $\r\n****CARD  21, 27\r\n****FILE 113,128\r\n$$$$\r\nPARAM    //*AND*/PJUMP/NOP/JUMPPLOT $   \r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$ Go to label HLBL9 if no further output is requested.\r\nCOND     HLBL9,PJUMP $  \r\n****CARD   1-  3,  6,  8- 11, 18- 20, 22, 23, 55- 57, 59- 62\r\n****FILE 114-116,125-127\r\n****RFMT 187-204,207,208\r\n$$$$ Equivalence {u } to {u } if no structure points were input.\r\n$$$$               d       p\r\n$$$$\r\nEQUIV    HUDVT,HUPV/NOA $   \r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$ Go to label HLBL8 if no structure points were input.\r\nCOND     HLBL8,NOA $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$ SDR1 recovers dependent temperatures\r\n$$$$ \r\n$$$$    u            \r\n$$$$     d                                       d\r\n$$$$   {--} = {u }  ,                   {u } = [G ]{u } ,\r\n$$$$    u       f                         o      o   d\r\n$$$$     o           \r\n$$$$ \r\n$$$$    u +u\r\n$$$$     f  e\r\n$$$$   {-----} = {u }  ,\r\n$$$$      u        n\r\n$$$$       s\r\n$$$$                                  \r\n$$$$                                     u +u         \r\n$$$$           d                          n  e          \r\n$$$$  {u } = [G ]{u +u } ,              {-----} = {u }  \r\n$$$$    m      m   f  e                    u        p   \r\n$$$$                                        m           \r\n$$$$                                                    \r\n$$$$ The module also recovers the heat flux into the points having single-\r\n$$$$ point constraints:\r\n$$$$ \r\n$$$$                    T\r\n$$$$   {q } = -{P } + [K  ]{u }\r\n$$$$     s       s      fs   f\r\n$$$$\r\nSDR1     HUSETD,,HUDVT,,,HGOD,GMD,HPSO,HKFS,,/HUPV,,HQP/1/  \r\n         *DYNAMICS* $   \r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    HLBL8 $\r\n****CARD   1-  3,  6,  8- 11, 22, 23, 57, 59- 62\r\n****FILE 114\r\n****RFMT 187-204,207,208\r\n$$$$ SDR2 calculates requested heat flux transfer in the elements and prepares \r\n$$$$ temperatures, \"velocities\", and heat flux loads for output sorted by time \r\n$$$$ step.\r\nSDR2     CASEXX,CSTM,MPT,DIT,HEQDYN,HSILD,,,BGPDP,HTOL,HQP,HUPV,HEST,   \r\n         XYCDB,HPPO,/HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,HPUGV,,/\r\n         *TRANRESP* $   \r\n****CARD  18- 20\r\n****FILE 115\r\n$$$$ SDRHT modifies the HOEF1 data block by combining the heat flow data from \r\n$$$$ different sources for the HBDY elements and writes the results on the \r\n$$$$ HOEF1X output data block.\r\nSDRHT    HSILD,HUSETD,HUPV,HOEF1,HSLT,HEST,DIT,HQGE,HDLT,/HOEF1X/C,Y,   \r\n         TABS/HNLR $\r\n****CARD  18- 20\r\n****FILE 125\r\n$$$$ Equivalence HOEF1 data block to HOEF1X data block.\r\nEQUIV    HOEF1X,HOEF1/MINUS1 $  \r\n****CARD  18- 20\r\n****FILE 125\r\n$$$$ SDR3 prepares requested output sorted by point number or element number.\r\nSDR3     HOPP1,HOQP1,HOUPV1,HOES1,HOEF1,/HOPP2,HOQP2,HOUPV2,HOES2,  \r\n         HOEF2, $   \r\n****CARD  18- 20\r\n****FILE 116\r\n$$$$ OFP formats the tables prepared by SDR3 for output and places them on the \r\n$$$$ system output file for printing.\r\nOFP      HOPP2,HOQP2,HOUPV2,HOEF2,HOES2,//S,N,CARDNO $  \r\n****CARD  19\r\n****FILE 116\r\n$$$$ Go to label HP2 if no temperature profile plots are requested.\r\nCOND     HP2,JUMPPLOT $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ PLOT generates all requested temperature profile plots and thermal \r\n$$$$ contours for specified times.\r\nPLOT     PLTPAR,GPSETS,ELSETS,CASEXX,BGPDT,EQEXIN,HSIP,,HPUGV, \r\n         HGPECT,,,/PLOTX2/HNSIL/HLUSEP/JUMPPLOT/PLTFLG/ \r\n         S,N,PFILE $\r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ PRTMSG prints plotter data, engineering data, and contour data for each \r\n$$$$ temperature profile and thermal contour plot generated.\r\nPRTMSG   PLOTX2// $ \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$\r\nLABEL    HP2 $  \r\n****SBST   7\r\n****CARD  18\r\n****FILE 126\r\n$$$$ XYTRAN prepares the input for requested X-Y plots.\r\nXYTRAN   XYCDB,HOPP2,HOQP2,HOUPV2,HOES2,HOEF2/HXYPLTT/*TRAN*/*PSET*/S,N,\r\n         PFILE/S,N,CARDNO $ \r\n****SBST   7\r\n****CARD  20\r\n****FILE 127\r\n$$$$ XYPLOT prepares the requested X-Y plots of temperatures, \"velocities\", \r\n$$$$ element flux, and applied heat loads versus time.\r\nXYPLOT   HXYPLTT// $\r\n****SBST   7\r\n****CARD  20\r\n****FILE 127\r\n$$$$\r\nLABEL    HLBL9 $\r\n****CARD  20\r\n****FILE 114-116,125-127\r\n$$$$ Go to label FINIS and make normal exit if no additional dynamic load sets \r\n$$$$ need to be processed.\r\nCOND     FINIS,REPEATT $\r\n****SBST   1,  3\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$ Go to label HLBL10 if additional dynamic load sets need to be processed.\r\nREPT     HLBL10,100 $   \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,207,208\r\n$$$$ Print Error Message No. 2 and terminate execution.\r\nPRTPARM  //-2/*HTRD* $  \r\n****SBST   1,  3\r\n****CARD  22, 23\r\n****RFMT 187-204,207,208\r\n$$$$ Go to label FINIS and make normal exit.\r\nJUMP     FINIS $\r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    ERROR1 $   \r\n****CARD   1, 57, 61\r\n****FILE  97\r\n****RFMT 187-204,207,208\r\n$$$$ Print Error Message No. 1 and terminate execution.\r\nPRTPARM  //-1/*HTRD* $  \r\n****CARD   1, 57, 61\r\n****FILE  97\r\n****RFMT 187-204,207,208\r\n$$$$\r\nLABEL    FINIS$ \r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nPURGE    DUMMY/MINUS1 $ \r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\nEND      $  \r\n****CARD   1-  3,  6,  8- 23, 25, 55- 57, 59- 62\r\n****RFMT 187-204,207,208\r\n$$$$\r\n$*CARD BITS \r\n  1    CDAMP1   CDAMP2   CDAMP3   CDAMP4   CELAS1   CELAS2   CELAS3 \r\n  1    CELAS4   \r\n  1    CORD1C   CORD1R   CORD1S   CORD2C   CORD2R   CORD2S   GRDSET \r\n  1    GRID     SEQGP    SPOINT \r\n  2    ADUM1    ADUM2    ADUM3    ADUM4    ADUM5    ADUM6    ADUM7  \r\n  2    ADUM8\r\n  2    ADUM9    BAROR    CBAR     CDUM1    CDUM2    CDUM3    CDUM4  \r\n  2    CDUM5\r\n  2    CDUM6    CDUM7    CDUM8    CDUM9    CELBOW   CFTUBE   CHBDY  \r\n  2    CHEXA1   \r\n  2    CHEXA2   CIHEX1   CIHEX2   CIHEX3   CIS2D8   CONROD   CQDMEM \r\n  2    CQDMEM1  CQDMEM2  CQUAD1   CQUAD2   CROD     CTETRA   CTRAPRG\r\n  2    CTRIA1   CTRIA2   CTRIARG  CTRMEM   CQUAD4   CTRIA3\r\n  2    CTUBE    CWEDGE  \r\n  3    PBAR     PDUM1    PDUM2    PDUM3    PDUM4    PDUM5    PDUM6  \r\n  3    PDUM7\r\n  3    PDUM8    PDUM9    PELBOW   PFTUBE   PHBDY    PIHEX    PIS2D8 \r\n  3    PQDMEM   PQDMEM1  PQDMEM2  PQUAD1   PQUAD2   PROD     PTUBE\r\n  3    PTRIA1   PTRIA2   PTRMEM   PSHELL   PCOMP    PCOMP1   PCOMP2\r\n  6    PELAS\r\n  8    MAT1     MAT2     MAT3     MAT4     MAT5     MATT1    MATT2  \r\n  8    MATT3    MATT4    MATT5    MAT8     TABLEM1  TABLEM2  TABLEM3\r\n  8    TABLEM4  TEMPMT$  TEMPMX$  \r\n  9    MPC      MPCADD   MPC$   \r\n 10    SPC      SPC1     SPCADD   SPC$  \r\n 11    ASET     ASET1    OMIT     OMIT1    SUPAX    SUPORT  \r\n 13    TEMP     TEMPD    TEMPP1   TEMPP2   TEMPP3   TEMPRB  \r\n 14    ASETOUT  \r\n 15    AUTOSPC  \r\n 16    PLOTEL   \r\n 17    G        W3       W4 \r\n 18    PLOT$\r\n 19    POUT$\r\n 20    XYOUT$   \r\n 21    AOUT$\r\n 22    LOOP$\r\n 23    LOOP1$   \r\n 25    NOLOOP$  \r\n 27    AXYOUT$  \r\n 55    RADMTX   RADLST   SIGMA    TABS     TREF \r\n 56    QBDY1    QBDY2    QVECT    QHBDY    QVOL     LOAD     SLOAD  \r\n 57    EPOINT   SEQEP    TF \r\n 59    PDAMP\r\n 60    DMIG     B2PP$    K2PP$    TF$   \r\n 61    DAREA    DELAY    DLOAD    DLOAD$   TABLED1  TABLED2  TABLED3\r\n 61    TABLED4  TSTEP$   TLOAD1   TLOAD2   TSTEP\r\n 62    BETA     IC$      NLFORCE  NOLIN1   NOLIN2   NOLIN3   NOLIN4 \r\n 62    NOLIN5   NOLIN6   RADLIN   NFTUBE   TIC  \r\n$$$$\r\n$*FILE BITS \r\n 94    BGPDT    CSTM     EQEXIN   GPDT     GPL      HSIL\r\n 95    ECT  \r\n 96    GPTT     HSLT\r\n 97    HEST     HGPECT  \r\n 98    HKGGX\r\n 99    HBGG \r\n100    HKGG     HRGG     HQGE   \r\n101    RG       ASET     HUSET    OGPST \r\n102    GPST \r\n103    GM   \r\n104    HBNN     HKNN     HRNN   \r\n105    HBFF     HKFF     HKFS     HRFF  \r\n106    HGO      HKOO     HLOO     HKAA  \r\n107    HDLT     HEQDYN   GPLD     HNLFT    HSILD    TFPOOL   HTRL   \r\n107    HUSETD   \r\n108    CASEXX   \r\n109    HB2PP    HK2PP   \r\n110    HB2DD    HM2DD    HBDD     GMD      HGOD     HK2DD    HKDD   \r\n110    HRDD \r\n111    HPNLD    HUDVT   \r\n112    HOUDV1   HOPNL1  \r\n113    HOUDV2   HOPNL2  \r\n114    HQP      HUPV\r\n115    HOES1    HOEF1    HOPP1    HOQP1    HOUPV1   HPUGV   \r\n116    HOES2    HOEF2    HOPP2    HOQP2    HOUPV2   \r\n117    HPDO     HPDT     HPPO     HPSO     HTOL \r\n118    BGPDP    HSIP\r\n120    ELSETS   GPSETS   PLTPAR   PLTSETX   \r\n121    HRAA \r\n122    HBAA \r\n123    HKDICT   HKELM    HBDICT   HBELM \r\n124    PLOTX1   \r\n125    HOEF1X   \r\n126    PLOTX2   \r\n127    HXYPLTT  \r\n128    HXYPLTTA \r\n$*  \r\n"
  },
  {
    "path": "um/SUBS.TXT",
    "content": "=PAGE=\r\n2.7  SUBSTRUCTURE CONTROL DECK\r\n\r\n   The Substructure Control Deck options provide to you commands needed to\r\ncontrol the execution of NASTRAN for automated multi-stage substructure\r\nanalyses. These commands are input on cards with the same format conventions\r\nas are used for the normal NASTRAN Case Control Deck.\r\n\r\n   Initiation of a substructure analysis is achieved via the Executive Control\r\nDeck command (see Section 2.2):\r\n\r\n   APP DISPLACEMENT,SUBS\r\n\r\nThis command directs NASTRAN to automatically generate the required sequence\r\nof DMAP ALTERs to the specified Rigid Format necessary to perform the\r\noperations requested in the Substructure Control Deck. Following the\r\nSubstructure Control Deck in the NASTRAN input data stream comes the standard\r\nCase Control Deck which specifies the loading conditions, omit sets, method of\r\neigenvalue extraction, element sets for plotting, plot control, output\r\nrequests, etc.\r\n\r\n   The Substructure Control Deck commands are summarized in Table 2.7-1 where\r\nthey are listed under one of three categories according to whether they:\r\n\r\n   1. Specify the phase and mode of execution\r\n\r\n   2. Specify the substructuring matrix operations\r\n\r\n   3. Define and control the substructure operating file (SOF)\r\n\r\nSeveral commands have associated with them a set of subcommands used to\r\nspecify additional control information appropriate to the processing requested\r\nby the primary command. These subcommands are defined together with the\r\nalphabetically sorted descriptions of their primary commands in Section 2.7.3.\r\nExamples utilizing these commands are presented in Section 1.\r\n\r\n   The sections that follow discuss the interaction between the substructure\r\ncommands and the standard case control commands, the translation of\r\nsubstructure commands into DMAP ALTER sequences, and the format conventions to\r\nbe used. The bulk data cards provided for substructure analyses are included\r\nwith the standard bulk data descriptions in Section 2.3 and they are\r\nsummarized for convenient reference in Table 2.7-2.\r\n=PAGE=\r\nTable 2.7-1. Summary of Substructure Commands\r\n\r\n # Mandatory Control Cards  * Required Subcommand\r\n\r\nA. Phase and Mode Control\r\n\r\n    #SUBSTRUCTURE      Defines execution phase (1, 2, or 3) (Required)\r\n        NAME*          Specifies Phase 1 substructure name\r\n        SAVEPLOT       Requests plot data be saved in Phase 1\r\n    OPTIONS            Defines matrix options (K, B, K4, M, P, or PA)\r\n    RUN                Limits mode of execution (DRY, GO, DRYGO, STEP)\r\n    #ENDSUBS           Terminates Substructure Control Deck (Required)\r\n\r\nB. SOF Controls\r\n\r\n    #SOF               Assigns physical files for storage of the SOF (Required)\r\n    #PASSWORD          Protects and ensures access to correct file\r\n    SOFOUT or SOFIN    Copies SOF data to or from an external file\r\n        POSITION       Specifies initial position of input file\r\n        NAMES          Specifies substructure name used for input\r\n        ITEMS          Specifies data items to be copied in or out\r\n    SOFPRINT           Prints selected items from the SOF\r\n    DUMP               Dumps entire SOF to a backup file\r\n    RESTORE            Restores entire SOF from a previous DUMP operation\r\n    CHECK              Checks contents of external file created by SOFOUT\r\n    DELETE             Edits out selected groups of items from the SOF\r\n    EDIT               Edits out selected groups of items from the SOF\r\n    DESTROY            Destroys all data for a named substructure and all the\r\n                       substructures of which it is a component\r\n\r\nC. Substructure Operations\r\n\r\n    COMBINE            Combines sets of substructures\r\n        NAME*          Names the resulting substructure\r\n        TOLERANCE*     Limits distance between automatically connected grids\r\n        CONNECT        Defines sets for manually connected grids and releases\r\n        OUTPUT         Specifies optional output results\r\n        COMPONENT      Identifies component substructure for special processing\r\n        TRANSFORM      Defines transformations for named component\r\n                       substructures\r\n        SYMTRANSFORM   Specifies symmetry transformation\r\n        SEARCH         Limits search for automatic connects\r\n    EQUIV              Creates a new equivalent substructure\r\n        PREFIX*        Prefix to rename equivalenced lower level substructures\r\n    REDUCE             Reduces substructure matrices\r\n        NAME*          Names the resulting substructure\r\n        BOUNDARY*      Defines set of retained degrees of freedom\r\n        OUTPUT         Specifies optional output requests\r\n        RSAVE          Save REDUCE decomposition product\r\n    MREDUCE            Reduces substructure matrices\r\n        NAME*          Names the resulting substructure\r\n        BOUNDARY*      Defines set of retained degrees of freedom\r\n        FIXED          Defines set of constrained degrees of freedom for modes\r\n                       calculation\r\n        RNAME          Specifies basic substructure to define reference point\r\n                       for inertia relief shapes\r\n        RGRID          Specifies grid point in the basic substructure to define\r\n                       reference point for inertia relief shapes. Defaults to\r\n                       origin of basic substructure coordinate system\r\n        METHOD         Identifies EIGR Bulk Data card\r\n        RANGE          Identifies frequency range for retained modal\r\n                       coordinates\r\n        NMAX           Identifies number of lowest frequency modes for retained\r\n                       modal coordinates\r\n        OLDMODES       Flag to identify re-running problem with previously\r\n                       computed modal data\r\n        OLDBOUND       Flag to identify re-running problem with previously\r\n                       defined boundary set\r\n        USERMODES      Flag to indicate modal data have been input on bulk data\r\n        OUTPUT         Specifies optional output requests\r\n=PAGE=\r\nTable 2.7-1. Summary of Substructure Commands (continued)\r\n\r\n        RSAVE          Indicates the decomposition product of the interior\r\n                       point stiffness matrix is to be stored on the SOF\r\n    CREDUCE            Reduces substructure matrices using a complex modes\r\n                       transformation\r\n        NAME*          Names the resulting substructure\r\n        BOUNDARY*      Defines set of retained degrees of freedom\r\n        FIXED          Defines set of constrained degrees of freedom for modes\r\n                       calculation\r\n        METHOD         Identifies EIGC Bulk Data card\r\n        RANGE          Identifies frequency range of imaginary part of the root\r\n                       for retained modal coordinates\r\n        NMAX           Identifies number of lowest frequency modes for retained\r\n                       modal coordinates\r\n        OLDMODES       Flag to identify re-running problem with previously\r\n                       computed modal data\r\n        RSAVE          Indicates the decomposition product of the interior\r\n                       point stiffness matrix is to be stored on the SOF\r\n    MRECOVER           Recovers mode shape data from an MREDUCE or CREDUCE\r\n                       operation\r\n        SAVE           Stores modal data on SOF\r\n        PRINT          Stores modal data and prints data requested\r\n    SOLVE              Initiates substructure solution (statics, normal modes,\r\n                       frequency response or transient analysis)\r\n    RECOVER            Recovers Phase 2 solution data\r\n        SAVE           Stores solution data on SOF\r\n        PRINT          Stores solution and prints data requested\r\n             DISP      Displacement output request\r\n             SPCF      Reaction force output request\r\n             OLOAD     Applied load output request\r\n             VELO      Velocity output requests\r\n             ACCE      Acceleration output requests\r\n             BASIC     Basic substructure for output requests\r\n             SORT      Output sort order\r\n             SUBCASES  Subcase output request\r\n             MODES     Modes output request\r\n             RANGE     Mode range output request\r\n             ENERGY    Modal energies output requests\r\n             UIMPROVE  Improved displacement request\r\n             STEPS     Frequency or time step output request\r\n    BRECOVER           Basic Substructure data recovery, Phase 3\r\n    PLOT               Initiates substructure undeformed plots\r\n=PAGE=\r\nTable 2.7-2. Substructure Bulk Data Card Summary.\r\n\r\nA. Bulk Data Used for Processing Substructure Commands REDUCE, MREDUCE, and\r\n   CREDUCE\r\n\r\n   BDYC      Combination of substructure boundary sets of retained degrees of\r\n             freedom or fixed degrees of freedom for modes calculation\r\n   BDYS      Boundary set definition\r\n   BDYS1     Alternate boundary set definition\r\n\r\nB. Bulk Data Used for Processing Substructure Command COMBINE\r\n\r\n   CONCT     Specifies grid points and degrees of freedom for manually\r\n             specified connectivities - will be overridden by RELES data\r\n   CONCT1    Alternate specification of connectivities\r\n   RELES     Specifies grid point degrees of freedom to be disconnected -\r\n             overrides CONCT and automatic connectivities\r\n   GTRAN     Redefines the output coordinate system grid point displacement\r\n             sets\r\n   TRANS     Specifies coordinate systems for substructure and grid point\r\n             transformations\r\n\r\nC. Bulk Data used for Processing Substructure Command SOLVE\r\n\r\n   LOADC     Defines loading conditions for static analysis\r\n   MPCS      Specifies multipoint constraints\r\n   SPCS      Specifies single point constraints\r\n   SPCS1     Alternate specification of single point constraints\r\n   SPCSD     Specifies enforced displacements for single point constraints\r\n   DAREAS    Defines dynamic load scale factors\r\n   DELAYS    Defines dynamic load time delays\r\n   DPHASES   Defines dynamic load Phase leads\r\n   TICS      Defines transient initial conditions\r\n\r\n\r\n2.7.1  Commands and Their Execution\r\n\r\n   The sequence of operations is controlled by the order in which NASTRAN\r\nencounters the sub-structure commands. A few special data cards are required\r\nin any Substructure Command Deck. These are:\r\n\r\n                          \r\n                    PHASE1\r\n     SUBSTRUCTURE   PHASE2   The first card of the Substructure Command Deck\r\n                    PHASE3   and it follows the CEND card of the Executive\r\n                             Control Deck.\r\n\r\n              \r\n     SOF        Required to define the substructure operating file to be\r\n     PASSWORD   used for this execution.\r\n              \r\n\r\n     ENDSUBS     Signals the end of the Substructure Command Deck.\r\n\r\n   The first step of any substructuring analysis is to define the basic\r\nsubstructures to be used. These are prepared by executing one Phase 1 run for\r\neach substructure. Checkpoints may be taken for each Phase 1 execution to save\r\nthe files to be used during the Phase 3 data recovery runs. Alternatively, you\r\nmay resubmit your entire original data deck for a Phase 3 run, thereby\r\navoiding a proliferation of checkpoint tapes. During a Phase 2 execution, a\r\nlong list of instructions may be specified. This list may be split up and run\r\nin several separate smaller steps. No checkpointing is required during a Phase\r\n2 run in that all pertinent substructure data will be retained on the\r\nsubstructure operating file (SOF).\r\n\r\n   The Case Control Deck submitted following the ENDSUBS card will be used to\r\ndirect the processing appropriate to the particular phase being executed.\r\nDuring a Phase 1 run, the Case Control will be used to define the loading\r\nconditions, single and multipoint constraints (only one set may be used per\r\nbasic substructure), omits, and desired plot sets. During a Phase 2 run, the\r\nCase Control will be used to specify the loads and constraint data for the\r\nSOLVE operation, outputting of results, or any plot requests. Finally, for a\r\nPhase 3 execution, the Case Control Deck is used to define the detail output\r\nand plot requests for each basic substructure.\r\n\r\n   Normal substructuring analyses will require many steps to be executed under\r\nPhase 2 processing. They may all be submitted for processing at once, or they\r\nmay be divided into several shorter sequences and executed separately. If\r\nthere is an abnormal termination, several steps may have been successfully\r\nexecuted. To recover requires simply removing those completed steps from the\r\nSubstructure Control Deck and re-submitting the remaining commands. The SOF\r\nwill act as the checkpoint/restart file independently of the normal NASTRAN\r\ncheckpointing procedures.\r\n\r\n   If the solution structure is large, a NASTRAN checkpoint would be\r\nrecommended to save intermediate results during the SOLVE operation. If this\r\nis done, however, care must be exercised on restart to insure correct re-entry\r\ninto the DMAP sequence. This may be accomplished by removing all substructure\r\ncontrol commands preceding the SOLVE, modifying the Case Control Deck and Bulk\r\nData Deck to change set identifiers only if any new loads or constraint sets\r\nare to be specified, and re-submitting the job. If no changes are to be made\r\nwhich would affect the SOLVE operations, a regular restart can be executed\r\nwithout changing the original Case Control and Bulk Data Decks.\r\n\r\n   You may wish to add to or modify the DMAP sequence generated automatically\r\nfrom the Substructure Control Deck commands. This user interaction with the\r\nDMAP operations is explained in the following section.\r\n\r\n2.7.2  Interface with NASTRAN DMAP\r\n\r\n   Each substructure command card produces a set of DMAP ALTER cards which are\r\nautomatically inserted into the Rigid Format called for execution on the SOL\r\ncard of the Execution Control Deck (Section 2.2). These automatically\r\ngenerated ALTERs require no user interfacing unless you wish to exercise the\r\nfollowing options:\r\n\r\n   1. You may insert ALTER cards in the Executive Control Deck. However, they\r\n      may not overlap any DMAP cards affected by the substructure ALTERs. The\r\n      DMAP card numbers, modified for each Rigid Format, are given in Sections\r\n      2.1, 2.2, 2.3, 2.8, and 2.9 of Volume II.\r\n\r\n   2. You may suppress the DMAP generated by the substructure deck and run\r\n      with either ALTER cards or with approach DMAP. To suppress the automatic\r\n      DMAP, the following forms of the executive control card APP are\r\n      provided.\r\n\r\n        APP DISP,SUBS,1 (Retains execution of the substructuring preface\r\n        operations)\r\n\r\n      or\r\n\r\n        APP DMAP (Standard NASTRAN is executed)\r\n\r\n   3. For user information and convenience, the substructure ALTER packages\r\n      may be printed and/or punched on cards. The executive control card, DIAG\r\n      23, will produce the printout. DIAG 24 will produce the punched deck.\r\n      The punched deck may then be altered by you and resubmitted as described\r\n      in (2) above. However, the order of the associated substructure command\r\n      deck must not be changed, to insure proper sequencing of the requested\r\n      operations.\r\n\r\n2.7.3  Substructure Control Card Descriptions\r\n\r\n   The format of the substructure control cards is free-field. Blanks are used\r\nto separate the control words. Either a blank or an equal sign (=) can be used\r\nin an assignment statement. Comment cards, signalled by a dollar sign ($) in\r\ncard column 1, can be inserted anywhere in the Substructure Control Deck and\r\nmay contain any alphanumeric characters you desire. Only the first four\r\ncharacters of each control word need be used so long as that option is\r\nuniquely identified. A summary of Substructure Control cards is given in Table\r\n2.7-1.\r\n\r\nIn presenting general formats for each card embodying all options, the\r\nfollowing conventions are used:\r\n\r\n   1. Upper-case letters and parentheses must be punched as shown.\r\n\r\n   2. Lower-case letters indicate that a substitution must be made.\r\n\r\n                       \r\n   3. Double brackets   indicate that a choice of contents is mandatory.\r\n                       \r\n                \r\n   4. Brackets   contain an option that may be omitted or included by you.\r\n                \r\n\r\n   5. First listed options or values are the default values.\r\n\r\n   6. Physical card consists of information punched in columns 1 through 72 of a\r\n   card. All Substructure Control cards are limited to a single physical card.\r\n\r\n   The Case Control Deck, which follows the ENDSUBS card of the Substructure\r\nControl Deck, is described in Section 2.3.\r\n=PAGE=\r\nBRECOVER - Basic Substructure Data Recovery\r\n\r\nPurpose\r\n\r\nThis operation is performed in Phase 3 to recover detailed output data for a\r\nbasic substructure used in Phase 1.\r\n\r\nRequest Format\r\n\r\nBRECOVER name\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nname       Name of structure defined in Phase 1 or structure equivalenced to\r\n           the Phase 1 structure.\r\n\r\nRemarks\r\n\r\n1. Use of the RECOVER command in Phase 3 has the same effect as BRECOVER. That\r\n   is, RECOVER is an alias for BRECOVER in Phase 3.\r\n\r\n2. Phase 3 may be a RESTART of the original Phase 1 run or it may be executed\r\n   from the original input data.\r\n=PAGE=\r\nCHECK - Check Contents of External File\r\n\r\nPurpose\r\n\r\nTo list all substructure items on an external file which was generated with\r\nSOFOUT.\r\n\r\nRequest Format\r\n\r\n                       \r\n                  TAPE \r\nCHECK filename ,  DISK \r\n                       \r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nfilename   Name of the external file. One of the following: INPT, INP1,...,\r\n           INP9.\r\n\r\nTAPE       File resides on tape.\r\n\r\nDISK       File resides on a direct access device.\r\n\r\nRemarks\r\n\r\n1. The substructure name, item name, and the date and time the item was\r\n   written are listed for each item on the file.\r\n=PAGE=\r\nCOMBINE - Combine Sets of Substructures\r\n\r\nPurpose\r\n\r\nThis command will perform the operations to combine the matrices and load up\r\nto seven substructures into matrices and loads representing a new\r\npseudostructure. Each component structure may be translated, rotated, and\r\nreflected before it is connected. You may manually select the points to be\r\nconnected or direct the program to connect them automatically.\r\n\r\nRequest Format\r\n\r\n                      \r\n           AUTO     X \r\nCOMBINE (  MAN   ,  Y  ) name1, name2, etc.\r\n                    Z \r\n                        \r\n\r\nSubcommands\r\n\r\nNAME       new name (required)\r\nTOLERANCE   (required)\r\nCONNECT    n\r\nOUTPUT     m1, m2,...\r\n\r\nEach individual component substructure may have the following added commands:\r\n\r\n                                    \r\nCOMPONENT    = name                 \r\nTRANSFORM    = m                    \r\n                                  \r\n                  X               \r\n                  Y                repeat\r\n                  Z                for each\r\nSYMTRANSFORM =   XY                component\r\n                 XZ               \r\n                 YZ               \r\n                 XYZ              \r\n                                  \r\nSEARCH       = namej, namek, etc.   \r\n                                    \r\n\r\nDefinitions\r\n\r\nAUTO/MAN   Defines method of connecting points. If AUTO is chosen, the\r\n           physical location of grid points is used to automatically\r\n           determine connections. If MAN is chosen, all connections must be\r\n           manually defined on CONCT or CONCT1 bulk data cards.\r\n\r\nX, Y, 2    Are used on COMBINE card for searching geometry data for AUTO\r\n           connections. Denotes preferred search direction for processing\r\n           efficiency. See Remark 1.\r\n\r\nname1, name2, etc. Unique names of substructures to be combined. Limits are \r\n           from one to seven component structures. See Remarks 5 and 6.\r\n\r\nnew name   Defines name of combination structure (required).\r\n\r\n          Defines limit of distance between points which will be\r\n           automatically connected (real > 0).\r\n\r\nn          Defines set number of manual connections and releases specified on\r\n           bulk data cards, CONCT, CONCT1, and RELES.\r\n\r\nname       On COMPONENT card defines the substructure (name1, etc.) to which\r\n           the subsequent data is applied.\r\n\r\nm          Set identification number of TRANS and GTRAN bulk data cards which\r\n           define the orientation of the substructure and/or selected grid\r\n           points relative to new basic coordinates. See Remarks 2 and 3.\r\n\r\nX,Y,...XY,...XYZ  Defines axis (or set of axes) normal to the plane(s) of\r\n           symmetry in the new basic coordinate system. The displacement and\r\n           location coordinates in these directions will be reversed in sign.\r\n           See Remarks 2 and 3.\r\n\r\nnamej      Limits the automatic connection process such that only connections\r\n           between component \"name\" and these structures are produced.\r\n           Multiple search commands may appear for any one component. See\r\n           Remark 4.\r\n\r\nm1, m2, etc.  Optional output requests. See Remark 7.\r\n\r\nRemarks\r\n\r\n1. The automatic connections are produced by first sorting the grid point\r\n   coordinates in the specified coordinate direction and then searching within\r\n   limited groups of coordinates. If the boundary of a substructure to be\r\n   connected is aligned primarily along one of the coordinate axes, this axis\r\n   should be used as the preferred search direction. If the boundary is\r\n   parallel with, say, the yz plane and all boundary coordinates have a\r\n   constant x value, then the search should be specified along either the y or\r\n   the z axis.\r\n\r\n2. The transformation (TRANS) data defines the orientation of the component\r\n   substructure (old basic) in terms of the new basic coordinate system. All\r\n   grid points originally defined in the old basic system will be transformed\r\n   to the new basic system. Points defined in local coordinate systems will\r\n   not be transformed unless otherwise specified on a GTRAN card, and their\r\n   directions will rotate with the substructure.\r\n\r\n3. The SYMTRANSFORM (or SYMT) request is primarily used to produce symmetric\r\n   reflections of a structure. This is usually preceded by an EQUIV command to\r\n   produce a new, unique substructure name. Note that the results for the new\r\n   reflected substructure may reference a left-handed coordinate system\r\n   wherever local coordinate systems are retained during the transformation.\r\n   However, those coordinates which are originally in the old basic or are\r\n   newly specified via a GTRAN card are automatically transformed to a\r\n   right-handed coordinate system of the combined structure during the\r\n   combination process. Note that the symmetric reflection occurs first using\r\n   the component's own basic coordinate system before the translational and\r\n   rotational transformation called for by TRANS.\r\n\r\n4. If any search option is present, then all connections between substructures\r\n   must be specified explicitly with SEARCH commands. Only those combinations\r\n   specified will be searched for possible connects. Symmetric connects need\r\n   not be declared (that is, COMPONENT A SEARCH B implies COMPONENT B SEARCH\r\n   A). You are warned that care must be taken to assure all proper connections\r\n   of substructures should any SEARCH commands be utilized.\r\n\r\n5. The program automatically processes matrix data for the COMBINE operation\r\n   in the most economical order, that is, the matrices with fewest terms are\r\n   processed first.\r\n\r\n6. The bandwidth of the resultant matrices may be controlled by selection of\r\n   substructures, their boundaries, and the order in which the substructures\r\n   are listed in the COMBINE command. The degrees of freedom in the resultant\r\n   matrices are located as defined in the sample problem below:\r\n\r\n      COMBINE  A,  B,  C,  D\r\n\r\n      A    interior     ABC  boundary\r\n      AB   boundary     C    interior\r\n      B    interior     AD   boundary\r\n      AC   boundary     BD   boundary\r\n      BC   boundary     Etc.\r\n\r\n7. The following output requests are available for the COMBINE operation (*\r\n   marks recommended output options):\r\n\r\n   CODE OUTPUT\r\n\r\n     2* SOF table of contents\r\n     3     CONCT1 bulk data summary\r\n     4     CONCT bulk data summary\r\n     6     GTRAN bulk data summary\r\n     7* TRANS bulk data summary\r\n     9     RELES bulk data summary\r\n    11     Summary of automatically-generated connections (in terms of\r\n           internal point numbers)\r\n    12* Complete connectivity map of final combined pseudostructure defining\r\n        each internal point in terms of the grid point ID and component\r\n        substructure it represents\r\n    13     The EQSS item\r\n    14     The BGSS item\r\n    15     The CSTM item\r\n    16     The PLTS item\r\n    17     The LODS item\r\n\r\n      For requests 13-17, output printed is formatted SOF data for the newly\r\n      created pseudostructure (see Section 1.10.2 for definitions).\r\n\r\nExamples\r\n\r\n1. COMBINE PANEL SPAR\r\n\r\n   TOLE = .0001\r\n   NAME = SECTA\r\n\r\n2. COMBINE (AUTO,Z) TANK1, TANK2, BULKHD\r\n\r\n   NAME = TANKS\r\n   TOLE = .01\r\n   COMPONENT TANK1\r\n   TRAN = 4\r\n   SEARCH = BULKHD\r\n   COMPONENT TANK2\r\n   SEARCH = BULKHD\r\n\r\n3. COMBINE (MAN) LWING, RWING\r\n\r\n   TOLE = 1.0\r\n   NAME = WING\r\n   COMPONENT LWING\r\n   SYMT = Y\r\n=PAGE=\r\nCREDUCE - Reduces Substructure Matrices Using Complex Modes\r\n\r\nPurpose\r\n\r\nThis command performs a complex modal synthesis reduction on a specified\r\ncomponent substructure. The resulting substructure will be defined by boundary\r\npoint displacements and modal displacements as degrees of freedom. The\r\noperation is allowed in both Phase 1 and Phase 2 jobs and may be performed at\r\nany level of the substructure process.\r\n\r\nRequest Format\r\n\r\nCREDUCE name\r\n\r\nSubcommands\r\n\r\nNAME       new name (required)\r\n\r\nBOUNDARYb (required)\r\n\r\nFIXED      f\r\n\r\nMETHOD     k\r\n\r\nRANGE   f1, f2\r\n\r\nNMAX       N\r\n\r\nOUTPUT     m1, m2\r\n\r\nOLDMODESm\r\n\r\nGPARAM     g\r\n\r\nRSAVE   (See Remark 4)\r\n\r\nDefinitions\r\n\r\nname       Name of substructure to be reduced\r\n\r\nnew name   Name of resulting substructure\r\n\r\nb          Set identification number of BDYC bulk data cards which define\r\n           sets of boundary degrees of freedom (Integer > 0). See Remark 1.\r\n\r\nf          Optionally identifies BDYC data defining degrees of freedom\r\n           temporarily fixed during mode extraction (Integer >= 0,  default =\r\n           0)\r\n\r\nk          Identifies EIGC bulk data card for control of the eigenvalue\r\n           extraction (Integer > 0)\r\n\r\nf1, f2     Optional frequency range (Hz) for the imaginary part of the root\r\n           defining eigenvectors to be used in the mode synthesis formulation\r\n           (Real, default = ALL)\r\n\r\nN          Optional number of lowest modes, measured by magnitude of\r\n           eigenvalue, within frequency range to be used in mode synthesis\r\n           formulation (Integer, default = ALL)\r\n\r\nm1, m2     Optional output requests. See Remark 2.\r\n\r\nm          Flag for re-running problem with old eigenvectors (YES or NO). See\r\n           Remark 3.\r\n\r\ng          Structure damping parameter (real)\r\n\r\nRemarks\r\n\r\n1. All references to the grid points and components not defined in the\r\n   \"boundary set\" will be reduced out of the new substructure. Any subsequent\r\n   reference to these omitted degrees of freedom in COMBINE, CREDUCE, or SOLVE\r\n   operations generates an error condition.\r\n\r\n2. The following output requests are available for the CREDUCE operation (*\r\n   marks recommended output options):\r\n\r\n   CODE OUTPUT\r\n\r\n     1* Current problem summary\r\n\r\n     2     Boundary set summary\r\n\r\n     3     Summary of grid point ID numbers in each boundary set\r\n\r\n     4     The EQSS item for the structure being reduced\r\n\r\n     5* The EQSS item\r\n\r\n     6* The BGSS item\r\n\r\n     7     The CSTM item\r\n\r\n     8     The PLTS item\r\n\r\n     9* The LODS\r\n\r\n    10* Modal dof set summary\r\n\r\n    11     Fixed set summary\r\n\r\n    12     Summary of grid point ID numbers in each fixed set\r\n\r\n      Requests 5-8 write formatted SOF items for the new reduced\r\npseudostructure.\r\n\r\n3. The OLDMODES option instructs the program to use the existing modal data\r\n   but create new boundary matrices for a new boundary set. To exercise the\r\n   OLDMODES option, you must use the following sequence of commands to\r\n   eliminate previously calculated boundary point data:\r\n\r\n   EDIT(32) new name (previous modal reduction name)\r\n   DELETE name, GIMS, LMTX, HLFT, HORG, UPRT\r\n   DELETE name, POVE, POAP\r\n   CREDUCE name\r\n     :\r\n     :\r\n\r\n4. If the RSAVE card is included, the decomposition product of the interior\r\n   point stiffness matrix (LMTX item) is saved on the SOF file. This matrix\r\n   will be used in the data recovery for the omitted points. If it is not\r\n   saved, it will be regenerated when needed.\r\n=PAGE=\r\nDELETE - Delete Items from SOF\r\n\r\nPurpose\r\n\r\nTo delete individual substructure items from the SOF.\r\n\r\nRequest Format\r\n\r\nDELETE name, item1, item2, item3, item4, item5\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nname       Substructure name\r\n\r\nitem1, item2,...  Item names (HORG, KMTR, LODS, SOLN, etc.)\r\n\r\nRemarks\r\n\r\n1. DELETE may be used to remove from one to five items of any single\r\n   substructure.\r\n\r\n2. For primary substructures, items of related secondary substructures are\r\n   removed only if the latter point to the same data (KMTX, MMTX, etc.).\r\n\r\n3. For secondary and image substructures, no action is taken on items of\r\n   related substructures, that is, items of equivalenced substructures or\r\n   higher or lower level substructures.\r\n\r\n4. See the EDIT and DESTROY commands for other means of removing substructure\r\n   data.\r\n=PAGE=\r\nDESTROY - Removes All Data Referencing a Component Substructure\r\n\r\nPurpose\r\n\r\nTo remove data for a substructure and all substructures of which it is a\r\ncomponent from the SOF. In addition to the substructure being DESTROYed\r\n(\"name\"), data for substructures which satisfy one or more of the following\r\nconditions are also removed from the SOF:\r\n\r\n   1. All substructures of which \"name\" is a component\r\n\r\n   2. All secondary (or equivalenced) substructures for which \"name\" is the\r\n      primary substructure\r\n\r\n   3. All image substructures which are components of a substructure that is\r\n      destroyed\r\n\r\nRequest Format\r\n\r\nDESTROY name\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nname       Name of substructure\r\n\r\nRemarks\r\n\r\n1. No action is taken if \"name\" is an image substructure.\r\n\r\n2. See related commands EDIT and DELETE for additional means of removing\r\n   substructure data.\r\n=PAGE=\r\nDUMP - Copy SOF to External File\r\n\r\nPurpose\r\n\r\nTo copy the entire SOF to an external file.\r\n\r\nRequest Format\r\n\r\n                       \r\n                  TAPE \r\nDUMP filename  ,  DISK \r\n                       \r\n\r\nSubcommands\r\n\r\nNone\r\n\r\nDefinitions\r\n\r\nfilename   Name of the external file. Any one of the following:  INPT,\r\n           INP1,..., INP9.\r\n\r\nTAPE       File resides on tape.\r\n\r\nDISK       File resides on a direct access device.\r\n\r\nRemarks\r\n\r\n1. DUMP may be used to create a backup copy of the SOF.\r\n\r\n2. All system information on the SOF is saved.\r\n\r\n3. The RESTORE command will reload a DUMPed SOF.\r\n\r\n4. DUMP/RESTORE may not be used to change the size of the SOF.\r\n\r\n5. It is more efficient to use operating system utility programs, if\r\n   available, to create back-up copies of the SOF.\r\n=PAGE=\r\nEDIT - Selectively Removes Data from SOF File\r\n\r\nPurpose\r\n\r\nTo permanently remove selected substructure data from the SOF.\r\n\r\nRequest Format\r\n\r\nEDIT (opt) name\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nname       Name of substructure.\r\n\r\nopt        Integer value reflecting combinations of requests. The sum of the\r\n           following integers defines the combination of data items to be\r\n           removed from the SOF.\r\n\r\n           OPT   ITEMS REMOVED\r\n\r\n            1    Stiffness matrix (KMTX)\r\n            2    Mass matrix (MMTX)\r\n            4    Load data (LODS, LOAP, PVEC, PAPP)\r\n            8    Solution data (UVEC, QVEC, SOLN)\r\n           16    Transformation matrices defining next level (HORG, UPRT,\r\n                 POVE, POAP, LMTX, GIMS, HLFT)\r\n           32    All items for the substructure\r\n           64    Appended loads data (LOAP, PAPP, POAP)\r\n           128   Damping matrices (K4MX, BMTX)\r\n           256   Modal reduction data (LAMS, PHIS, PHIL)\r\n           512   Total transforms only (HORG, HLFT)\r\n\r\nRemarks\r\n\r\n1. You are cautioned on the removal of the transformation matrix data. These\r\n   matrices are required for the recovery of the solution results.\r\n\r\n2. For primary substructures, items of related secondary substructures are\r\n   removed only if they point to the same data (KMTX, MMTX, etc.).\r\n\r\n3. For secondary and image substructures, no action is taken on items of\r\n   related substructures, that is, items of equivalenced or higher or lower\r\n   level substructures.\r\n\r\n4. If the EDIT feature is to be employed, you should consider also using\r\n   SOFOUT to ensure the existence of backup data if there is an error.\r\n\r\n5. See DELETE and DESTROY for other means of removing substructure data.\r\n=PAGE=\r\nENDSUBS - Defines the End of the Substructure Control Deck.\r\n\r\nPurpose\r\n\r\nThis command terminates the processing of automated substructuring controls\r\nand directives.\r\n\r\nRequest Format\r\n\r\nENDSUBS\r\n\r\nSubcommands\r\n\r\nNone.\r\n=PAGE=\r\nEQUIV - Create a New Equivalent Substructure\r\n\r\nPurpose\r\n\r\nTo assign an alias to an existing substructure and thereby create a new\r\nequivalent substructure. The new secondary substructure may be referenced\r\nindependently of the original primary substructure in subsequent substructure\r\ncommands. However, the data actually used in substructuring operations is that\r\nof the primary substructure.\r\n\r\nRequest Format\r\n\r\nEQUIV name1, name2\r\n\r\nSubcommands\r\n\r\nPREFIX = p (required)\r\n\r\nDefinitions\r\n\r\np          Single BCD character.\r\n\r\nname1      Existing primary substructure name.\r\n\r\nname2      New equivalent substructure name.\r\n\r\nRemarks\r\n\r\n1. A substructure created by this command is referred to as a secondary\r\n   substructure.\r\n\r\n2. All substructures which were used to produce the primary substructure will\r\n   produce equivalent image substructures. The new image substructure names\r\n   will have the prefix p.\r\n\r\n3. A DESTROY operation on the primary substructure data will also destroy the\r\n   secondary substructure data and all image substructures.\r\n\r\n4. An EDIT or DELETE operation on the primary substructure will not remove\r\n   data of the secondary substructure and vice versa.\r\n=PAGE=\r\nMRECOVER - Eigenvector Recovery for Modal Synthesis Operations\r\n\r\nPurpose\r\n\r\nThis command recovers modal displacements and boundary forces for\r\nsubstructures reduced to modal coordinates. The results are saved on the SOF\r\nfile and they may be printed upon your request. This command may be input\r\nafter the MREDUCE or CREDUCE commands or at a later time as desired.\r\n\r\nRequest Format\r\n\r\nMRECOVER s-name\r\n\r\nSubcommands\r\n\r\n(see Remark 12)\r\n\r\nSAVE          cname1\r\n\r\nPRINT         cname2\r\n                 \r\n             NONE\r\nDISP          n  \r\n             ALL \r\n                 \r\n                 \r\n             NONE\r\nSPCF          n            (see Remark 4)\r\n             ALL \r\n                 \r\nBASIC         b-name\r\n                 \r\n             NONE\r\nENERGY        n            (see Remark 10)\r\n             ALL \r\n                 \r\n                         \r\n             MODES       \r\nSORT         SUBSTRUCTURE  (see Remark 6)\r\n                         \r\n                 \r\n             ALL \r\nMODES         n            (see Remark 7)\r\n             NONE\r\n                 \r\nRANGE         fl, f2         (see Remark 7)\r\n\r\nUIMPROVE                     (see Remark 9)\r\n\r\nDefinitions\r\n\r\ns-name     Name of the substructure that was reduced in a prior MREDUCE or\r\n           CREDUCE command for which the solution results are to be\r\n           recovered.\r\n\r\ncname1     Name of the component substructure for which the results are to be\r\n           recovered and saved on the SOF. May be the same as \"s-name\". See\r\n           Remarks 1, 2, and 3.\r\n\r\ncname2     Name of the component substructure for which the results are to be\r\n           recovered and printed on the SOF. May be the same as \"s-name\". See\r\n           Remarks 1, 2, 3, 8, and 11.\r\n\r\nb-name     Name of the component basic substructure for which the subsequent\r\n           output requests are to apply.\r\n\r\nALL        Output for all points will be produced. See Remark 8.\r\n\r\nNONE       No output is to be produced.\r\n\r\nn          Set identification number of a SET card appearing in Case Control.\r\n           Only output for those points whose identification numbers appear\r\n           on this SET card will be produced. See Remark 5.\r\n\r\nf1, f2     Range of frequencies for which output will be produced. If only f1\r\n           is present, the range is assumed to be 0 - f1. See Remark 7.\r\n\r\nOutput Requests\r\n\r\nPrinted output produced by the MRECOVER PRINT command can be controlled by\r\nrequests present in either Case Control or the MRECOVER command in the\r\nSubstructure Control Deck. If no output requests are present, the PRINT\r\ncommand is equivalent to SAVE and no output will be printed.\r\n\r\nThe output options described above may appear after any PRINT command. These\r\noutput requests will then override any Case Control requests. The output\r\nrequests for any PRINT command can also be specified for any or all basic\r\ncomponent substructures of the results being recovered. These requests will\r\nthen override any requests in Case Control or after the PRINT command.\r\n\r\nExample of output control:\r\n\r\n  MRECOVER SOLSTRCT\r\n     PRINT ABDC\r\n          SORT = SUBSTRUCTURE  \r\n          DISP = ALL             basic defaults for ABDC output\r\n          BASIC   A            \r\n              DISP = 5           override requests for BASIC A\r\n          BASIC   C            \r\n              SPCF = 20          override requests for BASIC C\r\n     SAVE ABC\r\n\r\nRemarks\r\n\r\n1. SAVE will save the solution for substructure \"name\" on the SOF. PRINT will\r\n   save and print the solution.\r\n\r\n2. If the solution data already exists on the SOF, the existing data can be\r\n   printed without costs of regeneration with the PRINT command.\r\n\r\n3. For efficiency, you should order multiple SAVE and/or PRINT commands so as\r\n   to trace one branch at a time starting from your solution structure.\r\n\r\n4. Reaction forces are computed for a substructure only if (1) the\r\n   substructure is named on a PRINT subcommand and (2) an output request for\r\n   SPCFORCE or modal energies exists in the Case Control or the RECOVER\r\n   command.\r\n\r\n5. All set definitions should appear in Case Control to ensure their\r\n   availability to the MRECOVER module.\r\n\r\n6. The SORT output option should only appear after a PRINT command. Any SORT\r\n   commands appearing after a BASIC command will be ignored.\r\n\r\n   SORT = MODES (the default) will cause all output requests for each mode to\r\n   appear together. SORT = SUBSTRUCTURE will cause all output requests for\r\n   each basic substructure to appear together.\r\n\r\n7. If both a MODES request and a RANGE request appear for dynamic analysis,\r\n   both requests must be satisfied for any output to be produced.\r\n\r\n8. The media, print or punch, where output is produced is controlled through\r\n   Case Control requests. If no Case Control requests are present, the default\r\n   of print is used.\r\n\r\n9. If the UIMPROVE request is present for a substructure that was input to a\r\n   REDUCE, MREDUCE, or CREDUCE, an improved displacement vector will be\r\n   generated. This vector will contain the effects of inertia and damping\r\n   forces.\r\n\r\n10.   The ENERGY request will cause the calculation of modal energies on all\r\n      included and excluded modal dof for a modal reduced substructure. This\r\n      request should appear for the substructure that was input to the modal\r\n      reduce operation so that required data needed for the excluded mode\r\n      calculations exists. This request requires that the UVEC item exist for\r\n      the next higher level structure.\r\n\r\n11.   You can specify print thresholds for all printout. If the absolute value\r\n      is less than the threshold, the value will be set to zero. The following\r\n      thresholds can be input on PARAM bulk data cards.\r\n\r\n   UTHRESH displacement, velocity, and acceleration threshold\r\n   PTHRESH load threshold\r\n   QTHRESH reaction force threshold\r\n\r\n12.   Since the subcommands of the MRECOVER command are all associated with a\r\n      component structure, multiple use of these subcommands is permitted.\r\n=PAGE=\r\nMREDUCE - Reduces Substructure Matrices Using Real, Normal Modes\r\n\r\nPurpose\r\n\r\nThis command performs a modal synthesis reduction on a specified component\r\nsubstructure. The resulting substructure will be defined by boundary\r\ncoordinate displacements and modal coordinate displacements as degrees of\r\nfreedom. The operation is allowed in both Phase 1 and Phase 2 jobs and may be\r\nperformed at any level of the substructure process.\r\n\r\nRequest Format\r\n\r\nMREDUCE name\r\n\r\nSubcommands\r\n\r\nNAME       new name (required)\r\n\r\nBOUNDARYb (required)\r\n\r\nFIXED      f\r\n\r\nMETHOD     k\r\n\r\nRANGE   f1, f2\r\n\r\nNMAX       N\r\n\r\nRGRID      i (see Remark 12)\r\n\r\nRNAME   c-name\r\n\r\nRSAVE   (see Remark 7)\r\n\r\nOLDMODESm\r\n\r\nOLDBOUNDn\r\n\r\nUSERMODES  j\r\n\r\nOUTPUT     m1, m2\r\n\r\nDefinitions\r\n\r\nname       Name of substructure to be reduced\r\n\r\nnew name   Name of resulting substructure. See Remarks 2 and 3.\r\n\r\nb          Set identification number of BDYC Bulk Data cards which define\r\n           sets of boundary degrees of freedom (Integer). See Remark 1.\r\n\r\nf          Optionally identifies BDYC data defining degrees of freedom\r\n           temporarily fixed during mode extraction (Integer, default = 0).\r\n\r\nk          Identifies EIR,R Bulk Data card for control of the mode extraction\r\n           (Integer > 0).\r\n\r\ni          Grid point number for defining origin of free body motion. Used\r\n           with RNAME to define substructure component containing grid point\r\n           i (Integer >= 0, default = 0). (See Remark 12.)\r\n\r\nc-name     Name of basic substructure which contains grid point i. If RGRID =\r\n           0 or is missing, the origin of the overall basic coordinate system\r\n           is used to define the six rigid body motions. These motions define\r\n           the inertia relief deflection shapes which are used as generalized\r\n           coordinates in addition to the modal coordinates.\r\n\r\nm          Flag for re-running problem with old mode shapes (YES or NO). See\r\n           Remarks 5, 8, and 10.\r\n\r\nn          Flag for re-running problem with old boundaries for different\r\n           eigenvalue method (YES or NO). See Remarks 5, 9, and 10.\r\n\r\nf1, f2     Optional frequency range (in cycles per unit time) defining modes\r\n           to be used in the mode synthesis formulation (Real, default =\r\n           ALL).\r\n\r\nN          Optional number of lowest modes within elastic frequency range to\r\n           be used in mode synthesis formulation (Integer, default = ALL).\r\n           Rigid body modes are automatically included, in addition to the\r\n           selected number of NMAX of elastic modes.\r\n\r\nj          Option used in Phase 1 when METHOD data is missing and user-input\r\n           modes are used directly. See Remark 6.\r\n\r\nm1, m2     Optional output requests. See Remark 4.\r\n\r\nRemarks\r\n\r\n1. All references to the grid points and components not defined in the\r\n   \"boundary set\" will be reduced out of the new substructure. Any subsequent\r\n   reference to these omitted degrees of freedom in COMBINE, MREDUCE, REDUCE,\r\n   or SOLVE operations generates an error condition.\r\n\r\n2. The resulting substructure will be defined in terms of the following\r\n   degrees of freedom:\r\n\r\n   ub boundary grid point displacements.\r\n\r\n   j modal displacements relative to static deflection shapes induced by\r\n      boundary inertia.\r\n\r\n   o inertia relief generalized coordinates defined by inertia relief\r\n      deflection shapes occurring from boundary point rigid body accelerations\r\n      (zero frequency modes).\r\n\r\n   Note that a new substructure will be automatically created to define\r\n   coordinates o and j. The name will be the same as given by NAME and the\r\n   point identification numbers are 1-6 for o and 101, 102,... for j.\r\n\r\n3. The same transformations applied to the stiffness matrix will be applied to\r\n   the loads, mass, and damping matrices for the new substructure. See the\r\n   NASTRAN Theoretical Manual for a discussion of this effect.\r\n\r\n4. The following output requests are available for the MREDUCE operation (*\r\n   marks recommended options):\r\n\r\n   CODE OUTPUT\r\n\r\n     1* Current problem summary\r\n\r\n     2     Boundary set summary\r\n\r\n     3     Summary of grid point ID numbers in each boundary set\r\n\r\n     4     The EQSS item for the structure being reduced\r\n\r\n     5* The EQSS item\r\n\r\n     6* The BGSS item\r\n\r\n     7     The CSTM item\r\n\r\n     8     The PLTS item\r\n\r\n     9* The LODS item\r\n\r\n    10* Modal dof set summary (see Remark 11)\r\n\r\n    11     Fixed set summary\r\n\r\n    12     Summary of grid point ID numbers in each fixed set\r\n\r\n      Requests 5-9 write formatted SOF items for the new reduced\r\n      pseudostructure.\r\n\r\n5. The options OLDMODES and OLDBOUND allow you to re-run the reduction and:\r\n\r\n   a. Change the boundary without recalculating modes.\r\n\r\n   b. Change the modes without the boundary condensation calculations.\r\n\r\n   c. Select a different mode range from the existing vectors and avoid\r\n      recalculating modes and boundary matrices.\r\n\r\n6. You must provide the actual mode data in Phase 1 when USERMODES = j is\r\n   given. Two options are provided:\r\n\r\n   a. If j = 1, the structure must be entirely defined by a finite element\r\n      model and the eigenvectors for the NASTRAN ua set provided in data block\r\n      PHIS input using DMI cards.\r\n\r\n   b. If j = 2, the entire structure need not be defined. You provide\r\n      eigenvectors and forces of constraint only at the selected boundary\r\n      points as well as eigenvalues and modal masses. Residual stiffness and\r\n      mass matrices may also be provided to define properties at the boundary\r\n      points. Use DMI and DTI cards for these data.\r\n\r\n7. If the RSAVE card is included, the decomposition product of the interior\r\n   point stiffness matrix (LMTX item) is saved on the SOF file. This matrix\r\n   will be used in the data recovery for the omitted points. If it is not\r\n   saved it will be regenerated when needed.\r\n\r\n8. Exercising the OLDMODES option, you must use the following sequence of\r\n   commands:\r\n\r\n   EDIT(32)new name (previous modal reduction name)\r\n   EDIT(16)name\r\n   MREDUCE name\r\n   NAME =  new name\r\n\r\n9. Exercising the OLDBOUND option, you must use the following sequence of\r\n   commands:\r\n\r\n   EDIT(32)new name (previous modal reduction name)\r\n   EDIT(768)  name\r\n   MREDUCE name\r\n   NAME =  new name\r\n\r\n10.   Exercising both the OLDMODES and OLDBOUND options concurrently you must\r\n      use the following sequence of commands:\r\n\r\n   EDIT(32)new name (previous modal reduction name)\r\n   EDIT(512)  name\r\n   MREDUCE name\r\n   NAME =  new name\r\n\r\n11.   You are strongly urged to select code 10 for your output request. The\r\n      modal dof set summary gives a good breakdown between the assignments of\r\n      rigid body modes and elastic modes. The MREDUCE module sometimes\r\n      overrides your specification of NMAX. This occurs when the nature of the\r\n      mode is such that the 2-3 term of Hgh (as defined by Equation 27 on page\r\n      4.7-7 of the Thereotical Manual) is zero; that is, when i - Gibb\r\n      approximately equals zero. When this occurs NASTRAN automatically\r\n      deletes the ineffective mode from the solution set. Any such omission\r\n      can be verified from the printout triggered by code 10.\r\n\r\n12.   Note on RGRID: Your choice of one grid point or another for inertia\r\n      relief modes does not in any way determine the net reaction forces, but\r\n      operates solely as a convenience as to choice of reference origin.\r\n=PAGE=\r\nOPTIONS - Defines Matrix Types\r\n\r\nPurpose\r\n\r\nThis allows you to selectively control the type of matrices being processed.\r\n\r\nRequest Format\r\n\r\nOPTIONS m1,m2,m3\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nm1,m2,m3   Any combination of the characters K, M, B, K4, and either P or PA,\r\n           where:\r\n\r\n           K  =  Stiffness Matrices\r\n           M  =  Mass Matrices\r\n           P  =  Load Matrices\r\n           PA =  Appended Load Vectors\r\n           B  =  Viscous Damping Matrices\r\n           K4 =  Structure Damping Matrices\r\n\r\nRemarks\r\n\r\n1. The default depends on the NASTRAN rigid format:\r\n\r\n   RIGID FORMAT    DEFAULT\r\n\r\n   1 - Statics        K,P\r\n   2 - Inertia Relief    K,M,P\r\n   3 - Normal Modes   K,M\r\n   8 - Frequency ResponseK,M,P,B,K4\r\n   9 - Transient ResponseK,M,P,B,K4\r\n\r\n2. In a Phase 1 execution, Rigid Formats 1 and 3 will provide only two of the\r\n   matrices, as shown above. In Rigid Format 1, the mass matrix is not\r\n   generated. In Rigid Format 3, the loads matrix is not generated. An error\r\n   condition will result unless you add the required DMAP alters to provide\r\n   the requested data.\r\n\r\n3. Stiffness, mass, load, or damping matrices must exist if the corresponding\r\n   K, M, P, PA, B, or K4 option is requested in the subsequent Phase 2 run.\r\n\r\n4. Matrices or loads may be modified by re-running the substructure sequence\r\n   for only the desired type. However, the old data must be deleted first with\r\n   the EDIT or DELETE command. See Section 1.10.2 for the actual item names.\r\n\r\n5. The append load option, PA, is used when additional load sets are required\r\n   for solution, and it is not desired to regenerate existing loads. To\r\n   generate these new load vectors, re-execute all required Phase 1 runs with\r\n   the new load sets and OPTION = PA. Then, repeat the Phase 2 operations with\r\n   OPTION = PA. At each step, the new vectors are appended to the existing\r\n   loads so that all load vectors will be available in the SOLVE stage.\r\n\r\n6. Each OPTION command overrides the preceding command to control subsequent\r\n   steps of the substructure process.\r\n\r\n7. When executing the SOLVE command, the option selected must provide the\r\n   matrices required for the rigid format being executed.\r\n=PAGE=\r\nPASSWORD - Substructure Operating File Declaration\r\n\r\nPurpose\r\n\r\nThis declaration is required in the substructure command deck. The password is\r\nwritten on the SOF file and is used to protect the file and ensure that the\r\ncorrect file is assigned for the current run.\r\n\r\nRequest Format\r\n\r\nPASSWORD password\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\npassword   BCD password for the SOF (8 characters maximum).\r\n=PAGE=\r\nPLOT - Substructure Plot Command\r\n\r\nPurpose\r\n\r\nThis command is used to plot the undeformed shape of a substructure which may\r\nbe composed of several component substructures. This command initiates the\r\nexecution of a plot at any stage of the substructure process. The actual plot\r\ncommands -- origin data, etc.-- must be included in the normal case control\r\ndata.\r\n\r\nRequest Format\r\n\r\nPLOT name\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nname       Name of component substructure to be plotted.\r\n\r\nRemarks\r\n\r\n1. This PLOT command can be used in any of the three phases. However, it is\r\n   suggested that it be used only in Phase 2. In the case of Phase 1 and Phase\r\n   3 runs, any desired plots can be obtained in the usual manner by\r\n   appropriate requests in the structure plotter output request packet in the\r\n   Case Control Deck.\r\n\r\n2. The set of elements to be plotted in Phase 2 consists of all the elements\r\n   and grid points saved in Phase 1 for each basic substructure comprising the\r\n   substructures named in the PLOT command. The set definition given in the\r\n   structure plotter output request packet in the Case control Deck in Phase 2\r\n   is ignored. (Only one plot set from each basic substructure is saved in\r\n   Phase 1.)\r\n\r\n3. The structure plotter output request packet, while part of the standard\r\n   Case Control Deck, is treated separately in Sections 4.1 and 4.2.\r\n=PAGE=\r\nRECOVER - Phase 2 Solution Data Recovery\r\n\r\nPurpose\r\n\r\nThis command recovers displacements and boundary forces on specified\r\nsubstructures in the Phase 2 execution. The results are saved on the SOF file\r\nand they may be printed upon your request. This command should be input after\r\nthe SOLVE command to store the solution results on the SOF file.\r\n\r\nRequest Format\r\n\r\nRECOVER s-name\r\n\r\nSubcommands\r\n\r\nSAVE          cname1\r\n\r\nPRINT         cname2\r\n                 \r\n             NONE\r\nDISP          n  \r\n             ALL \r\n                 \r\n                 \r\n             NONE\r\nSPCF          n            (see Remark 4)\r\n             ALL \r\n                 \r\n                 \r\n             NONE\r\nOLOAD         n            (see Remark 11)\r\n             ALL \r\n                 \r\nBASIC         b-name\r\n                 \r\n             NONE\r\nENERGY        n            (see Remark 10)\r\n             ALL \r\n                 \r\n\r\nfor static analysis only:\r\n\r\n                         \r\n             SUBCASE     \r\nSORT         SUBSTRUCTURE  (see Remark 6)\r\n                         \r\n                 \r\n             ALL \r\nSUBCASES      n  \r\n             NONE\r\n                 \r\n\r\nfor normal modes analysis only:\r\n\r\n                         \r\n             MODES       \r\nSORT         SUBSTRUCTURE  (see Remark 6)\r\n                         \r\n                 \r\n             ALL \r\nMODES         n            (see Remark 7)\r\n             NONE\r\n                 \r\nRANGE         f1, f2         (see Remark 7)\r\n\r\nfor dynamic analysis only:\r\n\r\n                         \r\n             FREQ        \r\nSORT         TIME          (see Remark 6)\r\n             SUBSTRUCTURE\r\n                         \r\n                 \r\n             ALL \r\nSTEPS         n  \r\n             NONE\r\n                 \r\nRANGE         fl, f2         (see Remark 7)\r\n\r\nUIMPROVE                      (see Remark 9)\r\n\r\nDefinitions\r\n\r\ns-name     Name of the substructure named in a prior SOLVE command for which\r\n           the solution results are to be recovered.\r\n\r\ncname1     Name of the component substructure for which the results are to be\r\n           recovered and saved on the SOF. May be the same as \"s-name\". See\r\n           Remarks 1, 2, and 3.\r\n\r\ncname2     Name of the component substructure for which the results are to be\r\n           recovered and printed on the SOF. May be the same as \"s-name\". See\r\n           Remarks 1, 2, 3, 8, and 12.\r\n\r\nb-name     Name of the component basic substructure for which the subsequent\r\n           output requests are to apply.\r\n\r\nALL        Output for all points will be produced. See Remark 8.\r\n\r\nNONE       No output is to be produced.\r\n\r\nn          Set identification number of a SET card appearing in Case Control.\r\n           Only output for those points, subcases, modes, frequencies, or\r\n           time steps whose identification numbers appear on this SET card\r\n           will be produced. See Remark 5.\r\n\r\nf1, f2     Range of frequencies for which output will be produced. If only f1\r\n           is present, the range is assumed to be 0 - f1. See Remark 7.\r\n\r\nOutput Requests\r\n\r\nPrinted output produced by the RECOVER PRINT command can be controlled by\r\nrequests present in either Case Control or the RECOVER command in the\r\nSubstructure Control Deck. If no output requests are present, the PRINT\r\ncommand is equivalent to SAVE and no output will be printed.\r\n\r\nThe RECOVER output options described above may appear after any PRINT command.\r\nThese output requests will then override any Case Control requests. The output\r\nrequests for any PRINT command can also be specified for any or all basic\r\ncomponent substructures of the results being recovered. These requests will\r\nthen override any requests in Case Control or after the PRINT command.\r\n\r\nExample of output control:\r\n\r\n     RECOVER SOLSTRCT\r\n         PRINT   ABDC\r\n             SORT = SUBSTRUCTURE  \r\n             DISP = ALL             basic defaults for ABDC output\r\n             OLOAD = 10           \r\n             BASIC   A            \r\n                 DISP = 5           override requests for BASIC A\r\n             BASIC   C            \r\n                 OLOAD = NONE       override requests for BASIC C\r\n                 SUBCASES = 20    \r\n         SAVE   ABC\r\n\r\nRemarks\r\n\r\n1. SAVE will save the solution for substructure \"name\" on the SOF. PRINT will\r\n   save and print the solution.\r\n\r\n2. If the solution data already exists on the SOF, the existing data can be\r\n   printed without costs of regeneration with the PRINT command.\r\n\r\n3. For efficiency, you should issue multiple SAVE and/or PRINT commands so as\r\n   to trace one branch at a time starting from your solution structure.\r\n\r\n4. Reaction forces are computed for a substructure only if (1) the\r\n   substructure is named on a PRINT subcommand and (2) an output request for\r\n   SPCFORCE or modal energies exists in the Case Control or the RECOVER\r\n   command.\r\n\r\n5. All set definitions should appear in Case Control to ensure their\r\n   availability to the RECOVER module.\r\n\r\n6. The SORT output option should only appear after a PRINT command. Any SORT\r\n   commands appearing after a BASIC command will be ignored.\r\n\r\n   For static analysis, SORT = SUBCASE (the default) will cause all output\r\n   requests for each subcase to appear together. For normal modes analysis,\r\n   SORT = MODES (the default) will cause all output requests for each mode to\r\n   appear together. For dynamic analysis, SORT = FREQ (the default for\r\n   frequency response) or SORT = TIME (the default for transient response)\r\n   will cause all output requests for each frequency or time step, as the case\r\n   may be, to appear together. In all these analyses, SORT = SUBSTRUCTURE will\r\n   cause all output requests for each basic substructure to appear together.\r\n\r\n7. If both a MODES (or STEPS) request and a RANGE request appear for dynamic\r\n   analysis, both requests must be satisfied for any output to be produced.\r\n\r\n8. The medium, print or punch, where output is produced is controlled through\r\n   Case Control requests. If no Case Control requests are present, the default\r\n   of print is used.\r\n\r\n9. If the UIMPROVE request is present for a substructure that was input to a\r\n   REDUCE, MREDUCE, or CREDUCE, an improved displacement vector will be\r\n   generated. This vector will contain the effects of inertia and damping\r\n   forces.\r\n\r\n10.   The ENERGY request will cause the calculation of modal energies on all\r\n      included and excluded modal dof for a modal reduced substructure. This\r\n      request should appear for the substructure that was input to the modal\r\n      reduce operation so that required data needed for the excluded mode\r\n      calculations exists. This request requires that the UVEC item exists for\r\n      the next highest level structure.\r\n\r\n11.   For dynamic analysis, the printed loads output will include dynamic\r\n      loads only for the solution substructure in the same run where the\r\n      solution was obtained. For any lower level substructures or on any run\r\n      after the solution, only static loads will be printed.\r\n\r\n12.   You can specify print thresholds for all printout. If the absolute value\r\n      is less than the threshold, the value will be set to zero. The following\r\n      thresholds can be input on PARAM bulk data cards.\r\n\r\n   UTHRESH displacement, velocity, and acceleration\r\n   PTHRESH load threshold\r\n   QTHRESH reaction force threshold\r\n=PAGE=\r\nREDUCE - Phase 2 Reduction to Retained Degrees of Freedom\r\n\r\nPurpose\r\n\r\nThis command performs a Guyan matrix reduction process for a specified\r\ncomponent substructure, otherwise known as matrix condensation. It produces\r\nthe same result as obtained by the specification of NASTRAN OMIT  or ASET\r\ndata. The purpose is to reduce the size of the matrices. In static analysis\r\nonly points on the boundary need be retained. In dynamics, the boundary points\r\nand selected interior points are retained.\r\n\r\nRequest Format\r\n\r\nREDUCE name\r\n\r\nSubcommands\r\n\r\nNAME       new name (required)\r\n\r\nBOUNDARYb (required)\r\n\r\nOUTPUT     m1, m2,...\r\n\r\nRSAVE   (See Remark 4)\r\n\r\nDefinitions\r\n\r\nname       Name of substructure to be reduced.\r\n\r\nnew name   Name of resulting substructure.\r\n\r\nb          Set identification number of BDYC bulk data cards which define\r\n           sets of retained degrees of freedom for the resulting\r\n           reduced substructure matrices. See Remarks 1 and 2.\r\n\r\nm1, m2, etc.  Optional output requests. See Remark 3.\r\n\r\nRemarks\r\n\r\n1. All references to the grid points and components not defined in the\r\n   \"boundary set\" will be reduced out of the new substructure. Any subsequent\r\n   reference to these omitted degrees of freedom in COMBINE, REDUCE, or SOLVE\r\n   operations generates an error condition.\r\n\r\n2. The same transformations will be applied to the reduced mass matrix for the\r\n   new substructure. See the NASTRAN Theoretical Manual for a discussion of\r\n   this effect.\r\n\r\n3. The following output requests are available for the REDUCE operation (*\r\n   marks recommended output options):\r\n\r\n   CODE OUTPUT\r\n\r\n   1*   Current problem summary\r\n   2    Boundary set summary\r\n   3    Summary of grid point ID numbers in each boundary set\r\n   4    The EQSS item for the structure being reduced\r\n   5*   The EQSS item\r\n   6*   The BGSS item\r\n   7    The CSTM item\r\n   8    The PLTS item\r\n   9*   The LODS item\r\n\r\n      Requests 5-9 write formatted SOF items for the new reduced\r\npseudostructure.\r\n\r\n4. If the RSAVE card is included, the decomposition product of the interior\r\n   point stiffness matrix (LMTX item) is saved on the SOF file. This matrix\r\n   will be used in the data recovery for the omitted points. If it is not\r\n   saved, it will be regenerated when needed.\r\n=PAGE=\r\nRESTORE - Reload SOF\r\n\r\nPurpose\r\n\r\nTo reload the SOF from an external file created with the DUMP command.\r\n\r\nRequest Format\r\n\r\n                          \r\n                     TAPE \r\nRESTORE filename  ,  DISK \r\n                          \r\n\r\nSubcommands\r\n\r\nNone\r\n\r\nDefinitions\r\n\r\nfilename   Name of the external file. Any one of the following: INPT,\r\n           INP1,..., INP9.\r\n\r\nTAPE       File resides on tape.\r\n\r\nDISK       File resides on a direct access device.\r\n\r\nRemarks\r\n\r\n1. The external file must have been created with the DUMP command.\r\n\r\n2. The SOF must be declared as NEW on the SOF command.\r\n\r\n3. RESTORE must be the very first substructure command following the SOF and\r\n   PASSWORD declarations.\r\n\r\n4. The SOF size declarations for the RESTORE command must be exactly the same\r\n   as for the SOF which was DUMPed. The DUMP/RESTORE commands cannot be used\r\n   to increase the size of the SOF.\r\n=PAGE=\r\nRUN - Specifies Run Options\r\n\r\nPurpose\r\n\r\nThis command is used to limit the substructure execution for the purpose of\r\nchecking the validity of the input data. It allows for the processing of input\r\ndata separately from the actual execution of the matrix operations.\r\n\r\nRequest Format\r\n\r\n            \r\n      STEP  \r\n      DRY   \r\nRUN   GO    \r\n      DRYGO \r\n            \r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nSTEP       Will cause the execution of both DRY and GO operations one step at\r\n           a time.\r\n\r\nDRY        Limits the execution to table and transformation matrix\r\n           generation. Matrix operations are skipped.\r\n\r\nGO         Limits the execution to matrix generation only. This mode must\r\n           have been preceded by a successful RUN=DRY or RUN=STEP execution.\r\n\r\nDRYGO      Will cause execution of a complete dry run for the entire job,\r\n           followed by a RUN=GO execution if no fatal errors were detected.\r\n\r\nRemarks\r\n\r\n1. The DRY, GO, and STEP options may be changed at any step in the input\r\n   substructure command sequence. If the DRYGO option is used, the RUN card\r\n   must appear only once at the beginning.\r\n\r\n2. If a fatal error occurs during the first pass of the DRYGO option, the\r\n   program exits at the completion of all DRY operations.\r\n\r\n3. The RUN = DRY option is handled differently for MREDUCE and CREDUCE because\r\n   the matrix operations must be performed in order to generate the table and\r\n   transformation matrix data. Input data only will be checked and no\r\n   subsequent commands will be executed.\r\n\r\n4. The RUN = GO and OPTIONS = K combination is illegal for any of the reduce\r\n   operations, REDUCE, MREDUCE, or CREDUCE.\r\n=PAGE=\r\nSOF - Assigns Physical Files for Storage of the SOF\r\n\r\nPurpose\r\n\r\nThis declaration defines the names and sizes of the physical NASTRAN files you\r\nassign for storage of the SOF file. At least one of these declarations must be\r\npresent in each substructure command deck. As many SOF declarations are\r\nrequired in the substructure command deck on each run as there are physical\r\nfiles assigned for the storage of the SOF file.\r\n\r\nRequest Format\r\n\r\nSOF(no.) = filename, filesize,   OLD\r\n                                 NEW\r\n\r\nDefinitions\r\n\r\nno.        Integer index of SOF file (1, 2, etc.) in ascending order of files\r\n           required for storage of the SOF. The maximum index is 10. See\r\n           Remarks 1, 2, and 3.\r\n\r\nfilename   User name for an SOF physical file. See Remarks 2, 3, and 7.\r\n\r\nfilesize   Size of allocated file space in kilowords, default = 100. See\r\n           Remarks 1 and 4.\r\n\r\nOLD        SOF data is assumed to already exist on the file.\r\n\r\nNEW        The SOF is new. In this case, the SOF will be initialized. See\r\n           Remark 5.\r\n\r\nRemarks\r\n\r\n1. If more space is required for storage of the SOF file, additional physical\r\n   files may be declared. Alternatively, the file size parameter on a\r\n   previously declared file may be increased, but only on the last physical\r\n   file if more than one is used (on IBM the size of an existing file may not\r\n   be increased).\r\n\r\n2. Once an SOF declaration is made, the index of the SOF file must always be\r\n   associated with the same file name. File names may not be changed from run\r\n   to run.\r\n\r\n3. The file name of each physical SOF file must be unique.\r\n\r\n4. The declared size of the SOF may be reduced by the amount of contiguous\r\n   free space at the end of the logical SOF file. This may be accomplished by\r\n   removing the physical file declaration for those unused files which have\r\n   the highest sequence numbers. An attempt to eliminate a portion of the SOF\r\n   which contains valid data will result in a fatal error.\r\n\r\n5. If the NEW parameter is present on any one of the SOF declarations, the\r\n   entire logical SOF is considered new. Therefore, if an additional physical\r\n   file is added to an existing SOF, the NEW parameter should not be included\r\n   on any declarations.\r\n\r\n6. You should insure that the correct SOF file is assigned for the current\r\n   run. See the PASSWORD description.\r\n\r\n7. The following conventions should be used for the file name declarations on\r\n   each of the NASTRAN computers:\r\n\r\n   CDC/CYBER\r\n\r\n   Must be a 4-character alphanumeric name with no special characters or\r\n   blanks allowed. The file name used on the SOF declaration must correspond\r\n   to ones used on the system REQUEST or ATTACH card. Note that after a\r\n   NASTRAN execution, the SOF files should be catalogued or extended.\r\n\r\n   Examples\r\n\r\n   1. Create a new SOF file with a filename of SOF1 and catalogue it.\r\n\r\n      REQUEST(SOF1,*PF)\r\n      NASTRAN.\r\n      CATALOG(SOF1,username)\r\n      789\r\n       :\r\n       :\r\n      NASTRAN data cards including the SOF declaration\r\n      SOF(1)=SOF1,1000,NEW\r\n       :\r\n       :\r\n      6789\r\n\r\n   2. Use of an existing SOF file with a filename of ABCD.\r\n\r\n      ATTACH(ABCD,username)\r\n      NASTRAN.\r\n      EXTEND(ABCD)\r\n      789\r\n       :\r\n       :\r\n      NASTRAN data cards including the SOF declaration\r\n      SOF(1)=ABCD,1000\r\n       :\r\n       :\r\n      6789\r\n\r\n   UNIVAC 1108/1110\r\n\r\n   The filename used on the SOF declaration must specify one of the NASTRAN\r\n   user files INPT, INP1,..., INP9.\r\n\r\n   Examples\r\n\r\n   1. Create a new SOF file named INPT.\r\n\r\n      @ASG.U INPT.,F///1000\r\n      @HDG,N\r\n      @XQT *NASTRAN.LINK1\r\n       .\r\n      NASTRAN FILES=INPT\r\n       .\r\n      NASTRAN data cards including the SOF declaration\r\n      SOF(1)=INPT,400,NEW\r\n       :\r\n       :\r\n      @FIN\r\n\r\n   2. Use of an existing SOF file with a filename of INP7.\r\n\r\n      @ASG,AX INP7.\r\n      @HDG,N\r\n      @XQT *NASTRAN.LINK1\r\n       .\r\n      NASTRAN FILES=INP7\r\n       .\r\n      NASTRAN data cards including the SOF declaration\r\n      SOF(1)=INP7,250\r\n       :\r\n       :\r\n      @FIN\r\n\r\n   IBM 360/370\r\n\r\n   The file name used on the SOF declaration must specify a FORTRAN unit by\r\n   using the form FTxx from the table of allowable file names shown below\r\n   which correspond to the direct access devices that are supported under the\r\n   SOF implementation. The allocation of space for the direct access FORTRAN\r\n   data sets can be made in terms of blocks, tracks, or cylinder. If the\r\n   allocation is in blocks, the block size in the space allocation corresponds\r\n   to (BUFFSIZE-4)*4 bytes where BUFFSIZE is the GINO buffer size found in\r\n   SYSTEM(1).\r\n\r\n   In order to use the SOF on IBM computers, it is necessary to specify the\r\n   PARM on the EXEC PGM=NASTRAN card. This PARM sets the amount of core (in\r\n   bytes) NASTRAN releases to the operating system for system use and FORTRAN\r\n   buffers. The following formula should be used to determine the value for\r\n   the PARM:\r\n\r\n   PARM =  (4096 + m*((BUFFSIZE-4) + 64))*4 single buffering, BUFNO=1\r\n           (4096 + m*(2*(BUFFSIZE-4) + 96))*4 double buffering, BUFNO=2\r\n\r\n   where m = number of physical datasets comprising the SOF.\r\n\r\n   Examples\r\n\r\n   1. Create a new SOF data set with a filename of FT11.\r\n\r\n      //NSGO EXEC NASTRAN,PARM.NS='CORE=(,60K)'\r\n      //NS.FT11F001 DD DSN = User Name, UNIT=2314, VOL=SER=User No.,\r\n      //   DISP=(NEW,KEEP), SPACE=TRK,(1000)), DCB=BUFNO=1\r\n      //NS.SYSIN DD *\r\n      NASTRAN BUFFSIZE=1826\r\n       :\r\n       :\r\n      NASTRAN data cards including the SOF declaration\r\n      SOF(1)=FT11,,NEW\r\n       :\r\n       :\r\n      /*\r\n\r\n      Remarks\r\n\r\n      1.The SOF parameters - filename, filesize, and (OLD/NEW) - are\r\n        positional parameters. The filesize parameter is not required for IBM\r\n        360/370 computers, but its position must be noted if NEW is coded for\r\n        the SOF file.\r\n\r\n      2.The dataset disposition must be DISP=(NEW,KEEP) when the SOF dataset\r\n        is created. However, an existing SOF dataset may be reinitialized by\r\n        coding NEW on the SOF declaration in the  NASTRAN data deck. In this\r\n        case, the disposition on the DD card must be coded DISP=OLD.\r\n\r\n   2. Use of an existing SOF dataset with a filename of FT23.\r\n\r\n      //NS EXEC NASTRAN,PARM.NS='CORE=(,72K)'\r\n      //NS.FT23F00l DD DSN = User Name, UNIT=3330, VOL=SER=User No.,\r\n      // DCB=BUFNO=1, DISP=OLD\r\n      //NS.SYSIN DD *\r\n      NASTRAN BUFFSIZE=3260\r\n      SOF (1)=FT23\r\n       :\r\n       :\r\n      /*\r\n\r\n   SOF File      FORTRAN Unit           SOF File     FORTRAN Unit\r\n    Name            DDName                Name          DDName\r\n\r\n    FT02            FT02F001              FT16         FT16F001\r\n    FT03            FT03F001              FT17         FT17F001\r\n    FT08            FT08F001              FT18         FT18F001\r\n    FT09            FT09F001              FT19         FT19F001\r\n    FT10            FT10F00l              FT20         FT20F001\r\n    FT11            FT11F001              FT21         FT21F001\r\n    FT12            FT12F001              FT22         FT22F001\r\n    FT15            FT15F001              FT23         FT23F001\r\n\r\n   Note: A maximum of 10 SOF file names is allowed in any NASTRAN substructuring\r\n   run.\r\n\r\n   DEC VAX\r\n\r\n   The filename used on the SOF declaration must be of the form FTxx thereby\r\n   implying the use of the FORTRAN logical unit FOR0xx for the SOF. Any of the\r\n   FORTRAN logical units FOR014 through FOR023 may be used for the SOF,\r\n   provided they are not otherwise assigned.\r\n\r\n   Examples\r\n\r\n   1. Create a new SOF with the file name TEST.SOF\r\n\r\n      $ CREATE TEST1.COM\r\n            $ASSIGN TEST.SOF FOR022\r\n            $@NASTRAN TEST1.DT\r\n            $EXIT\r\n\r\n      $ SUBMIT/QUEUE=NASTRAN TEST1.COM\r\n\r\n        The file NASTRAN.COM contains the command procedure for executing\r\n        NASTRAN and the file TEST1.DT contains the NASTRAN data including the\r\n        SOF declaration--SOF(1) = FT22,1000,NEW\r\n   2. Use an existing SOF with the file name TEST.SOF\r\n\r\n      $ CREATE TEST2.COM\r\n            $ASSIGN TEST.SOF FOR022\r\n            $@NASTRAN TEST2.DT\r\n            $EXIT\r\n\r\n      $ SUBMIT/QUEUE=NASTRAN TEST2.COM\r\n\r\n      The file NASTRAN.COM contains the command procedure for executing\r\n      NASTRAN and the file TEST2.DT contains the NASTRAN data including the\r\n      SOF declaration--SOF(1) = FT22,1000\r\n=PAGE=\r\nSOFIN - Copy Items from File to SOF\r\n\r\nPurpose\r\n\r\nTo copy substructure items from an external file to the SOF.\r\n\r\nRequest Format\r\n\r\n                                            \r\nSOFIN  (  INTERNAL  )   filename  ,   TAPE  \r\n          EXTERNAL                    DISK  \r\n                                            \r\n\r\nSubcommands\r\n\r\n                      \r\nPOSITION =   NOREWIND \r\n             REWIND   \r\n                      \r\n                               \r\nNAMES    =   WHOLESOF          \r\n             substructure name \r\n                               \r\n                       \r\n             ALL       \r\n             MATRICES  \r\nITEMS    =   PHASE3    \r\n             TABLES    \r\n             item name \r\n                       \r\n\r\nDefinitions\r\n\r\nEXTERNAL   File was written on a different computer type.\r\n\r\nINTERNAL   File was written with GINO on the same computer type.\r\n\r\nfilename   Name of the external file. If the file is in INTERNAL format,\r\n           filename must specify INPT, INP1,...,INP9. If the file is in\r\n           EXTERNAL format, filename must specify a FORTRAN unit by using the\r\n           form FORT1, FORT2,...,FORT32.\r\n\r\nDISK       File is located on a direct access device.\r\n\r\nTAPE       File is located on a tape.\r\n\r\nPOSITION   Specifies initial file position.\r\n\r\n           REWIND:    file is rewound\r\n           NOREWIND:  input begins at the current position\r\n\r\nNAMES      Identifies a substructure for which data will be read. If\r\n           NAMES=WHOLESOF is coded, and no other NAMES subcommands appear for\r\n           the current SOFIN command, all substructure items found on the\r\n           external file from the point specified by the POSITION subcommand\r\n           to the end-of-file are copied to the SOF.\r\n\r\nITEMS      Identifies the data items which are to be copied to the SOF for\r\n           each substructure specified by the NAMES subcommands.\r\n\r\n           ALL: all items\r\n           MATRICES: all matrix items\r\n           PHASE3: the UVEC, QVEC, and SOLN items\r\n           TABLES: all table items\r\n           item name: name of an individual item\r\n\r\nRemarks\r\n\r\n1. Filename is required. The other SOFIN operands are optional.\r\n\r\n2. All subcommands are optional.\r\n\r\n3. The NAMES subcommand may appear up to five times for each SOFIN command.\r\n\r\n4. If a substructure name of an item which is to be copied to the SOF does not\r\n   exist on the SOF, it is added to the SOF. MDI pointers for higher level,\r\n   combined substructures, and lower level substructures arc restored.\r\n\r\n5. For the EXTERNAL form of this command all the items on the file are read in\r\n   and added to the SOF. The POSITION subcommand should be specified as REWIND\r\n   and user specifications for all other subcommands are ignored.\r\n\r\n6. SOFOUT is the companion substructure command.\r\n\r\n7. When an internal-formatted file is located on tape and extends over\r\n   multiple reels, care should be taken when using the SOFIN command. The\r\n   commands should be ordered so that all the desired data is retrieved on a\r\n   single pass through the tape. The following suggestions are helpful:\r\n\r\n   a. Order the SOFIN command to obtain data in the order they exist on the\r\n      tape. If this order is not known, the CHECK command will list the\r\n      contents of the tape.\r\n\r\n   b. The first SOFIN command should specify POSITION = REWIND and all\r\n      subsequent commands should use POSITION = NOREWIND.\r\n\r\n   c. The individual items should be requested by name. The ALL, MATRICES,\r\n      TABLES, or PHASE3 specification should not be used for the ITEMS\r\n      subcommand unless all the appropriate items are on the tape. If some are\r\n      not present, the tape will be searched to the end of the last reel and\r\n      subsequent commands will not be executable because they will attempt to\r\n      rewind back to the first tape.\r\n\r\n8. On IBM computers and for the EXTERNAL form of this command, the following\r\n   DD card should be used:\r\n\r\n   //NS.FTxxF001 DD DSN=username,UNIT=2400-1,DISP=(,KEEP),\r\n   //    LABEL=(,NL),DCB=(RECFM=FB,LRECL=132,BLKSIZE=3960,\r\n   //    TRTCH=T,DEN=2)\r\n\r\n9. Only one item may appear as an ITEMS subcommand per NAMES subcommand.\r\n   Selective items may be referenced by repeating the NAMES subcommand.\r\n=PAGE=\r\nSOFOUT - Copy Items from SOF to File\r\n\r\nPurpose\r\n\r\nTo copy substructure items from the SOF to an external file.\r\n\r\nRequest Format\r\n\r\n                                             \r\nSOFOUT  (  INTERNAL  )   filename  ,   TAPE  \r\n           EXTERNAL                    DISK  \r\n                                             \r\n\r\nSubcommands\r\n\r\n                      \r\nPOSITION =   NOREWIND \r\n             REWIND   \r\n             EOF      \r\n                      \r\n                               \r\nNAMES    =   WHOLESOF          \r\n             substructure name \r\n                               \r\n                       \r\n             ALL       \r\n             MATRICES  \r\nITEMS    =   PHASE3    \r\n             TABLES    \r\n             item name \r\n                       \r\n\r\nDefinitions\r\n\r\nEXTERNAL   File will be written so that it may be read on a different\r\n           computer type.\r\n\r\nINTERNAL   File will be written with GINO.\r\n\r\nfilename   Name of the external file. If the file is in INTERNAL format,\r\n           filename must specify INPT, INP1,...,INP9. If the file is in\r\n           EXTERNAL format, filename must specify a FORTRAN unit by using the\r\n           form FORT1, FORT2,...,FORT32.\r\n\r\nDISK       File is located on a direct access device.\r\n\r\nTAPE       File is located on a tape.\r\n\r\nPOSITION   Specifies initial file position. (See Remark 6.)\r\n\r\n           REWIND:    file is rewound\r\n           NOREWIND:  output begins at the current position\r\n           EOF:       file is positioned to the point immediately preceding\r\n                      the end-of-file mark\r\n\r\nNAMES      Identifies a substructure for which data will be read. If\r\n           NAMES=WHOLESOF is coded, and no other NAMES subcommands appear for\r\n           the current SOFOUT command, all substructure items found on the\r\n           SOF are copied to the external file.\r\n\r\nITEMS      Identifies the data items which are to be copied to the external\r\n           file for each substructure specified by the NAMES subcommands.\r\n\r\n           ALL: all items\r\n           MATRICES: all matrix items\r\n           PHASE3: the UVEC, QVEC, and SOLN items\r\n           TABLES: all table items\r\n           item name: name of an individual item\r\n\r\nRemarks\r\n\r\n1. Filename is required. The other SOFOUT operands are optional.\r\n\r\n2. All subcommands are optional.\r\n\r\n3. The NAMES subcommand may appear up to five times for each SOFOUT command.\r\n\r\n4. PLTS items of pseudostructures reference the PLTS items of the component\r\n   basic substructures. Therefore, in order to save all data necessary to plot\r\n   a pseudostructure, the PLTS items of its component basic substructures must\r\n   be saved as well as the PLTS item of the pseudostructure.\r\n\r\n5. For the external form of this command, POSITION = NOREWIND has the effect\r\n   of positioning the file to the end-of-file.\r\n\r\n6. POSITION = REWIND should be coded for the first write to a new file.\r\n\r\n7. SOFIN is the companion substructure command.\r\n\r\n8. On IBM computers and for the EXTERNAL form of this command, the following\r\n   DD card should be used:\r\n\r\n   //NS.FTxxF001 DD DSN=username,UNIT=2400-1,DISP=(,KEEP),\r\n   //    LABEL=(,NL),DCB=(RECFM=FB,LRECL=132,BLKSIZE=3960,\r\n   //    TRTCH=T,DEN=2)\r\n\r\n9. Only one item may appear as an ITEMS subcommand per NAMES subcommand.\r\n   Selective items may be referenced by repeating the NAMES subcommand.\r\n=PAGE=\r\nSOFPRINT - Requests SOF File Verification\r\n\r\nPurpose\r\n\r\nTo print selected contents of the SOF file for data checking purposes.\r\n\r\nRequest Format\r\n\r\nSOFPRINT (opt) name, item1, item2, etc.\r\n\r\nSubcommands\r\n\r\nNone.\r\n\r\nDefinitions\r\n\r\nopt        Integer, control option, default = 0.\r\n\r\n           opt =  1: prints data items only\r\n           opt =  0: prints table of contents\r\n           opt = -1: prints both\r\n\r\nname       Name of substructure for which data is to be printed.\r\n\r\nitem1, item2  SOF item name, used only when opt not equal 0, limit = 5. (See \r\n           Table 1.10-19 in Section 1.10.2 for the list of item names.)\r\n\r\nRemarks\r\n\r\n1. If only the table of contents is desired (opt = 0) this command may be\r\n   coded:\r\n\r\n   SOFPRINT TOC\r\n\r\n   On the page heading for the table of contents, the labels are defined as\r\n   follows:\r\n\r\n   SS   Secondary substructure number (successor)\r\n   PS   Primary substructure number (predecessor)\r\n   LL   Lower level substructure number\r\n   CS   Combined substructure number\r\n   HL   Higher level substructure number\r\n   TYPE Substructure type\r\n        B     basic substructure\r\n        C     combined substructure\r\n        R     Guyan reduced substructure\r\n        M     real modal reduced substructure\r\n        CM complex modal reduced substructure\r\n\r\n   Any of the above types will have a prefix \"I\" if it is an image\r\n   substructure resulting from an EQUIV operation.\r\n=PAGE=\r\nSOLVE - Substructure Solution\r\n\r\nPurpose\r\n\r\nThis command initiates the substructure solution phase. The tables and\r\nmatrices for the pseudostructure are converted to their equivalent NASTRAN\r\ndata blocks. The substructure grid points referenced on bulk data cards SPCS.\r\nMPCS, etc., are converted to pseudostructure scalar point identification\r\nnumbers. The NASTRAN execution then proceeds as though a normal structure were\r\nbeing processed.\r\n\r\nRequest Format\r\n\r\nSOLVE name\r\n\r\nSubcommands\r\n\r\nNone. (Case Control and bulk data decks control the operations.)\r\n\r\nDefinitions\r\n\r\nname       Name of pseudostructure to be analyzed with NASTRAN.\r\n\r\nRemarks\r\n\r\n1. The allowable NASTRAN Rigid Formats are 1, 2, 3, 8, and 9.\r\n\r\n2. Before requesting a SOLVE, you should check to be sure that all necessary\r\n   matrices are available on the SOF file. For instance, loads and stiffness\r\n   matrices are necessary in statics analysis. Mass and stiffness matrices are\r\n   necessary in eigenvalue analysis, etc.\r\n\r\n3. If the OPTIONS command has been used, an additional OPTIONS command may be\r\n   necessary to ensure that the matrices required are available for the SOLVE\r\n   operation.\r\n\r\n4. Static load combinations of the original Phase 1 load vectors may be\r\n   defined by the bulk data card LOADC. Loads of this type may be used in\r\n   Rigid Format 9 (Direct Transient Analysis) in lieu of DAREA dynamic load\r\n   data.\r\n\r\n5. The SOLVE name command should always be followed by RECOVER name to assure\r\n   the solution data are saved on the SOF.\r\n\r\n6. The SOLVE command may only be used in Phase 2 executions.\r\n=PAGE=\r\nSUBSTRUCTURE - Initiates the Substructure Control Data Deck\r\n\r\nPurpose\r\n\r\nThis command initiates the processing for automated substructuring and defines\r\nthe phase of the analysis. It must be the first card in the Substructure\r\nControl Deck.\r\n\r\nRequest Format\r\n\r\n                      \r\n               PHASE1 \r\nSUBSTRUCTURE   PHASE2 \r\n               PHASE3 \r\n                      \r\n\r\nSubcommands\r\n\r\nNAME       name (required and valid only in PHASE1)\r\n\r\nSAVEPLOTn (used only in PHASE1)\r\n\r\nDefinitions\r\n\r\nname       The name assigned to the basic substructure which is being created\r\n           in PHASE1.\r\n\r\nn          The plot set identification used to define the set of elements and\r\n           grid points to be saved in PHASE1 for subsequent plotting in\r\n           PHASE2. Only one set may be defined for any basic substructure.\r\n\r\nRemarks\r\n\r\n1. The mode command RUN = STEP is assumed initially if the explicit command is\r\n   not given immediately following the SUBSTRUCTURE command.\r\n\r\n2. No further substructure commands are required for PHASE1.\r\n\r\n3. Additional substructure commands are required for PHASE2.\r\n\r\n4. For PHASE3 operations, RECOVER and BRECOVER are equivalent commands and one\r\n   of them must be present.\r\n\r\n5. Imbedded blanks within the individual elements of this card are not\r\n   allowed. An unrecognizable command causes the program to automatically\r\n   assume a PHASE2 solution.\r\n\u001a\r\n"
  },
  {
    "path": "um/UMFL.TXT",
    "content": "=PAGE=\r\n2.5  USER'S MASTER FILE\r\n\r\n   As a means of aiding you in handling the large (several boxes of cards)\r\nBulk Data Decks which are typical of NASTRAN problems, the User's Master File\r\nis provided for storage of many Bulk Data Decks on a single tape. In the\r\ncontext of this section, a \"tape\" is synonymous with either a physical tape or\r\na disk file. (See Section 2.1 for the use of the FILES parameter on the\r\nNASTRAN card.) \r\n\r\n   There are many advantages to using a Master File. The User's Master File\r\nprovides a convenient common source of data. Errors due to card handling are\r\nsharply reduced since a several-box input deck is reduced to a few cards.\r\nFinally, the convenience to you in submitting jobs should be emphasized. \r\n\r\n2.5.1  Use of User's Master File\r\n\r\n   Functionally, the User's Master File exhibits all of the properties of an\r\nOld Problem Tape (OPTP) which would result if a job were terminated after the\r\nNASTRAN preface; only the control cards used are different. Thus the User's\r\nMaster File (UMF) becomes an alternate source of bulk data input to NASTRAN\r\nwhich may be modified in exactly the same way as bulk data is changed during a\r\nmodified restart. Since the UMF is used as an alternate OPTP functionally,\r\nonly one or the other may appear in a run. The UMF, then, is used only for an\r\ninitial run and may not be used in conjunction with a restart. The checkpoint\r\nfeature may be used with a UMF run, however, and the resulting New Problem\r\nTape (NPTP) may be used as an OPTP in a subsequent restart. \r\n\r\n   In describing the use of the User's Master File, the UMF control cards will\r\nbe contrasted with their OPTP counterparts. In place of the setup card for the\r\nOPTP tape (see Section 5 of the Programmer's Manual for a discussion of these\r\nmachine and installation dependent NASTRAN driver control cards), use a setup\r\ncard for the selected UMF tape. In place of the restart dictionary in the\r\nExecutive Control Deck, use the card \r\n\r\n      UMF  k1, k2\r\n\r\ndescribed in Section 2.2.1, which selects Bulk Data Deck k2 from UMF tape k1\r\nto use in the current execution. \r\n\r\n2.5.2  Using the User's Master File Editor\r\n\r\n   To assist you in creating and maintaining User's Master Files, an auxiliary\r\nNASTRAN preface module, the User's Master File Editor, is provided. The\r\nfunctions performed by the Editor are: \r\n\r\n   1. Create a New User's Master File (NUMF) from Bulk Data Decks supplied by\r\n      you. \r\n\r\n   2. List and/or punch Bulk Data Decks from an already existing UMF.\r\n\r\n   3. Edit Bulk Data Decks (which may be modified) from an old UMF onto a\r\n      NUMF. \r\n\r\n   Bulk Data Decks must be acceptable to the NASTRAN preface (XSORT and IFP)\r\nto be accepted by the Editor. \r\n\r\n   The executive control card that causes NASTRAN to execute as the User's\r\nMaster File Editor is UMFEDIT. When in the Editor mode, NASTRAN executes only\r\nthe preface. A separate run is required to use a User's Master File generated\r\nby the Editor. Preface module UMFEDT, which is where the User's Master File\r\nEditor actions occur, reads data cards from the System Input Stream which are\r\nused to control Editor activity. Some of these data cards precede the Bulk\r\nData Deck being processed, while others follow. The remainder of this section\r\nwill be devoted to describing these cards and the action caused by them.\r\nSection 2.5.3 gives some rules to be followed when making up data cards for\r\nthe Editor. Several examples will then be given in Section 2.5.4 to illustrate\r\nthe functions performed by the User's Master File Editor. \r\n\r\n   Table 2.5-1 shows the Editor data cards and describes the action taken for\r\neach one. Three classes are described, depending on the tapes used. The cards\r\nare free-field format, as are the executive control cards and case control\r\ncards previously described. The symbolic quantities tid and pid are each up to\r\n8 arbitrarily selected integers chosen by you when you create the User's\r\nMaster File. Table 2.5-2 shows a summary of Editor control cards. \r\n\r\n   When a New User's Master File (NUMF) is created, the User's Master File\r\nEditor (UMFEDIT) punches the Executive Control cards that are needed to read\r\nthe decks from the newly created master file. The UMFEDIT automatically\r\npunches one UMF Executive Control card for each Bulk Data Deck that is written\r\non the NUMHF and lists it in a table of contents. \r\n\r\n2.5.3  Rules for the User's Master File Editor\r\n\r\n1. The tape identification number, tid, and the problem identification number,\r\n   pid, are positive integers selected by you. The only exception to this is\r\n   that pid may be zero if the UMF card is being used only to specify a value\r\n   for tid or to indicate a new deck rather than an alter set. \r\n\r\n2. The tape identification number, tid, must be the same for all decks on a\r\n   single UMF. \r\n\r\n3. Only one pass is made while either reading the UMF or writing the NUMF.\r\n   Sequential processing requests are thereby required. This means that the\r\n   problem identification numbers must form an increasing sequence\r\n   corresponding to the order of the decks. \r\n\r\n4. A corollary to 2 is that a deck to be inserted between two decks on an\r\n   existing UMF must be given a problem identification number whose value lies\r\n   between the values of the problem identification numbers for the two UMF\r\n   decks. Thus, an initial numbering sequence such as 10, 20, 30, ... is\r\n   recommended. \r\n\r\n5. Host NASTRAN users develop the habit of \"storing\" data cards not needed for\r\n   a given run behind the ENDDATA card, where they are normally ignored. This\r\n   must not be done when using the Editor, since it reads data from this\r\n   position. Data cards following the FINIS card are ignored, however. \r\n\r\n2.5.4  Examples of User's Master File Editor Usage\r\n\r\n   Several examples of User's Master File Editor usage are given in this\r\nsection. You are well-advised to study these examples both from the standpoint\r\nof understanding the functioning of the Editor and from the standpoint of\r\nlearning how to use this NASTRAN feature. A symbolic representation of the\r\ncontents of the UMF and/or NUMF used in each example is given along with an\r\nexplanation of specific items of interest. These examples illustrate all of\r\nthe capability of the User's Master File Editor. \r\n\r\n=PAGE=\r\nExample 1. Create a User's Master File\r\n\r\nID  A,B\r\nTIME 1\r\nAPP DMAP\r\nBEGIN\r\nEND\r\nUMFEDIT\r\nCEND\r\nTITLE =  USER'S MASTER FILE CONTAINS\r\nLABEL =  PROBLEMS 50, 60, ..., 80\r\nECHO =  BOTH\r\nMAXLINES=50000\r\nBEGIN BULK \r\n  :        \r\n  :          1st Bulk Data Deck\r\nENDDATA    \r\nNUMF  21026, 50\r\nBEGIN BULK \r\n  :        \r\n  :          2nd Bulk Data Deck\r\nENDDATA    \r\nNUMF  21026, 60\r\n  :\r\n  :\r\nBEGIN BULK \r\n  :        \r\n  :          Last Bulk Data Deck\r\nENDDATA    \r\nNUMF  21026, 80\r\nFINIS\r\n\r\nNotes:\r\n\r\n1. A tape must be set up for NASTRAN file NUMF.\r\n\r\n2. A tape must not be set up for NASTRAN file UMF.\r\n\r\n3. The DMAP sequence will not be used but must appear in the Executive Control\r\n   Deck. \r\n\r\n4. ECHO = BOTH is recommended since the unsorted Bulk Data Deck is available\r\n   only during the run used to create the User's Master File. The sorted echo\r\n   is needed in order to make alterations to the bulk data when using the\r\n   User's Master File in a NASTRAN run. \r\n\r\n5. Note that the tape identification number, tid, is the same on all of the\r\n   NUMF cards. \r\n\r\n6. Note that the problem identification numbers, pid, are increasing according\r\n   to the data deck order. \r\n\r\n=PAGE=\r\nExample 2. List and/or punch selected decks from a User's Master File\r\n\r\nID A,B\r\nTIME 1\r\nAPP DMAP\r\nBEGIN\r\nEND\r\nUMF 21026, 0\r\nUMFEDIT\r\nCEND\r\nECHO=NONE\r\nBEGIN BULK\r\n  (blank card)\r\nENDDATA\r\nLIST 20\r\nPUNCH 50\r\nPUNPRT 60\r\nFINIS\r\n\r\nNotes:\r\n\r\n1. A tape containing the proper User's Master File must be set up on NASTRAN\r\n   file UMF. \r\n\r\n2. A tape must not be set up for NASTRAN file NUMF.\r\n\r\n3. The DMAP sequence will not be used but must appear in the Executive Control\r\n   Deck. \r\n\r\n4. The dummy Bulk Data Deck consisting of a single blank card will not be used\r\n   but must appear. \r\n\r\n5. ECHO = NONE is recommended to suppress printout of the dummy Bulk Data\r\n   Deck. This has no effect on the User's Master File Editor. \r\n\r\n6. The zero value of pid on the UMF card is required since only tid is being\r\n   used in this application. \r\n\r\n7. The LIST, PUNCH, and PUNPRT cards must be sequenced such that the pid\r\n   values form an increasing sequence. \r\n\r\n8. The above requests will cause a sorted Bulk Data Deck echo to be made for\r\n   decks 20 and 60; decks 50 and 60 will be punched. Example 3. Copy a User's\r\n   Master File while listing and/or punching selected decks. \r\n=PAGE=\r\nExample 3. Copy a User's Master File While Listing and/or Punching Selected \r\nDecks \r\n\r\nID A,B\r\nTIME 5\r\nAPP DMAP\r\nBEGIN\r\nEND\r\nUMF 100, 0\r\nUMFEDIT\r\nCEND\r\nECHO=NONE\r\nBEGIN BULK\r\n  (blank card)\r\nENDDATA\r\nNUMF 200,0\r\nLIST 30\r\nLIST 50\r\nPUNCH 70\r\nFINIS\r\n\r\nNotes:\r\n\r\n1. A tape containing the User's Master File to be copied must be set up on\r\n   NASTRAN file UMF. \r\n\r\n2. A tape must be set up on NASTRAN file NUMF.\r\n\r\n3. The DMAP sequence is not used but must appear in the Executive Control\r\n   Deck.\r\n\r\n4. The dummy Bulk Data Deck consisting of a single blank card will not be used\r\n   but must appear. \r\n\r\n5. ECHO = NONE is recommended to suppress printout of the dummy Bulk Data\r\n   Deck. This has no effect on the User's Master File Editor. \r\n\r\n6. The zero value of pid on the UMF card is required since only tid is being\r\n   used in this application. \r\n\r\n7. The zero value of pid on the NUMF card is not used. This card is used to\r\n   specify tid for the NUMF. If the NUMF card were absent, the same tid would\r\n   be put on the NUMF as existed on the UMF. \r\n\r\n8. The LIST, PUNCH, and PUNPRT cards must be sequenced such that the pid\r\n   values form an increasing sequence. \r\n\r\n9. The above requests will cause a sorted Bulk Data Deck echo to be made for\r\n   decks 20, 30, and 50; decks 20 and 70 will be punched. \r\n\r\n10.   All of the decks contained on the UMF will be copied onto the NUMF tape.\r\n      The tape identification number will be different as explained in Note 7.\r\n      \r\n\r\n=PAGE=\r\nExample 4. Edit a User's Master File\r\n\r\nID A,B\r\nTIME 5\r\nAPP DMAP\r\nBEGIN\r\nEND\r\nUMF  21026, 20\r\nUMFEDIT\r\nCEND\r\nTITLE = MODIFICATION OF\r\nSUBTITLE = DECKS 20 AND 50\r\nECHO = BOTH\r\nBEGIN BULK\r\n  (alter cards for Deck 20)\r\nENDDATA\r\nNUMF  333, 20\r\nREMOVE 40\r\nUMF  21026, 50\r\nBEGIN BULK\r\n  (alter cards for Deck 50)\r\nENDDATA\r\nNUMF  333, 55\r\nREMOVE 60\r\nUMF  21026, 0\r\nBEGIN BULK\r\n  (Deck 65)\r\nENDDATA\r\nNUMF 333, 65\r\nLIST 80\r\nFINIS\r\n\r\nNotes:\r\n\r\n1. A tape containing the User's Master File to be edited must be set up on\r\n   NASTRAN file UMF. \r\n\r\n2. A tape must be set up on NASTRAN file NUMF.\r\n\r\n3. The DMAP sequence is not used but must appear in the Executive Control\r\n   Deck.\r\n\r\n4. ECHO = BOTH is recommended since the alter cards are available only during\r\n   the run used to perform the edit. The sorted echo is needed for those decks\r\n   being altered in order to make further alterations to the bulk data when\r\n   using the newly created User's Master File in a NASTRAN run. Decks not\r\n   being altered will not be echoed as a result of the ECHO = BOTH card. Such\r\n   decks may be echoed as they are copied as shown in the example for Deck 80.\r\n   \r\n\r\n5. The pid values must form an increasing sequence.\r\n\r\n6. The requests in the above example will cause listings to be generated for\r\n   deck 80; no decks will be punched.\r\n\r\n7. Decks 30, 70, 80, and 90 will be copied onto the NUMF with no changes.\r\n\r\n8. Decks 10, 40, and 60 will be removed (i.e., not copied onto the NUMF).\r\n\r\n9. Decks 20 and 50 will be modified. In addition the problem identification\r\n   number of Deck 50 will be changed to 55. \r\n\r\n10.   Deck 65 will be added.\r\n\r\n11.   Deck 10 is removed because it appears prior to the first call to the\r\n      Editor. This may be avoided by using a pid of zero and a dummy Bulk Data\r\n      Deck as shown in Example 3. \r\n=PAGE=\r\nTable 2.5-1. User's Master File Editor Control Card Actions.\r\n\r\nI.  UMF Only is Present\r\n    A.  FINIS\r\n        1. Terminate run.\r\n    B.  BEGIN BULK        (Not Allowed)\r\n    C.  REMOVE pid        (Not Allowed)\r\n    D.  LIST pid\r\n        1. Skip UMF forward to pid and list the Bulk Data Deck on the printer.\r\n    E.  PUNCH pid\r\n        1. Skip UMF forward to pid and punch the Bulk Data Deck on the punch.\r\n    F.  UMF tid, pid      (Not Allowed)\r\n    G.  NUMF tid, pid     (Not Allowed)\r\n    H.  PUNPRT pid\r\n        1. Skip UMF forward to pid and then list and punch the Bulk Data Deck.\r\n    I.  PRINT tid\r\n        1. List all Bulk Data Decks and Summary Table of Contents.\r\n    J.  TOC tid\r\n        1. List all Bulk Data Decks Summary Table of Contents.\r\n\r\nII. NUMF Only is Present\r\n    A.  FINIS\r\n        1. Write end-of-file on NUMF.\r\n        2. Terminate run.\r\n    B.  BEGIN BULK\r\n        1. Process the next Bulk Data Deck.\r\n    C.  REMOVE pid        (Not Allowed)\r\n    D.  LIST pid          (Not Allowed)\r\n    E.  PUNCH pid         (Not Allowed)\r\n    F.  UMF tid, pid      (Not allowed)\r\n    G.  NUMF tid, pid\r\n        1. If first entry to Editor, write tape identification file on NUMF.\r\n        2. Add preceding Bulk Data to NUMF and automatically punch and list\r\n           the UMF card for use with UMF.\r\n    H.  PUNPRT pid        (Not Allowed)\r\n    I.  TOC tid           (Not Allowed)\r\n    J.  PRINT tid         (Not Allowed)\r\n\r\nIII. Both UMF and NUMF are Present\r\n     A.  FINIS\r\n         1. Copy any remaining Bulk Data Decks from UMF to NUMF.\r\n         2. Write end-of-file on NUMF.\r\n         3. Terminate run.\r\n     B.  BEGIN BULK\r\n         1. Process the next Bulk Data Deck, which may be a new deck or a\r\n            modified deck from the UMF.\r\n     C.  REMOVE pid\r\n         1. Copy UMF onto NUMF up to indicated deck.\r\n         2. Skip indicated deck on UMF.\r\n     D.  LIST pid\r\n         1. Copy UMF onto NUMF through indicated deck.\r\n         2. List indicated Bulk Data Deck on printer.\r\n     E.  PUNCH pid\r\n         1. Copy UMF onto NUMF through indicated deck.\r\n         2. Punch indicated Bulk Data Deck on printer.\r\n     F.  UMF tid, pid\r\n         1. Copy UMF onto NUMF up to indicated deck. (Must be immediately\r\n            followed by BEGIN BULK card.)\r\n     G.  NUMF tid, pid\r\n         1. If first entry to Editor, write tape identification file on NUMF.\r\n         2. Copy UMF onto NUMF up to deck with identification greater than pid.\r\n         3. Add preceding Bulk Data Deck to NUMF and automatically punch and\r\n            list the UMF card for use with UMF.\r\n      H. PUNPRT pid\r\n         1. Copy UMF onto NUMF through indicated deck.\r\n         2. List indicated Bulk Data Deck on printer.\r\n         3. Punch indicated Bulk Data Deck on punch.\r\n      I. TOC tid           (Not Allowed)\r\n      J. PRINT tid         (Not Allowed)\r\n=PAGE=\r\nTable 2.5-2. Summary of User's Master File Editor Control Cards.\r\n\r\nLIST pid   List the problem deck from UMF or copy the problem deck from UMF\r\n           onto NUMF and list it.\r\n\r\nNUMF tid, pid Add problem deck to NUMF, list it, and punch UMF card.\r\n\r\nPRINT tid  List all problem decks from UMF and Summary Table of Contents.\r\n\r\nPUNCH pid  Punch the problem deck from UMF or copy the problem deck from\r\n           UMF onto NUMF and punch it.\r\n\r\nPUNPRT pid Punch and print the problem deck from UMF or copy the problem deck\r\n           from UMF onto NUMF and punch and print it.\r\n\r\nREMOVE pid Copy problem decks from UMF onto NUMF up to pid and skip over\r\n           problem pid.\r\n\r\nTOC tid    List all problem decks (Summary Table of Contents) by UMF number\r\n           from UMF.\r\n\r\nUMF tid, pid  Copy UMF problem deck onto NUMF, list it, and punch UMF card.\r\n\r\n=PAGE=\r\n2.6  USER GENERATED INPUT\r\n\r\n   You may want to take a problem previously run on another program and run it\r\nusing NASTRAN. In many instances, this provides you with the quickest means of\r\nfamiliarizing yourself with NASTRAN since you are running a problem which you\r\nunderstand intimately. Also, you may want to extend your analysis of some\r\npreviously analyzed problem into regions which previous programs would not\r\nallow. In either event, you are faced with the problem of input data\r\nconversion. \r\n\r\n   The simplest way to convert structural model data is to write a small\r\nFORTRAN (or other language) program to read in the data cards composing the\r\ninput data deck for the previous program and punch a new NASTRAN Bulk Data\r\nDeck. Usually, the information is in a one to one correspondence, and this\r\nprocedure is quite straight forward, requiring only a minimal knowledge of\r\nprogramming. While a large deck of cards may result, by using the User's\r\nMaster File feature described in Section 2.5, the amount of large deck\r\nhandling may be minimized. \r\n\r\n2.6.1  Utility Module INPUT Usage\r\n\r\n   NASTRAN has implemented one data generating utility module within its\r\nexisting structure for specific cases. General characteristics of the INPUT\r\nmodule are as follows: \r\n\r\n   1. INPUT allows you to generate the majority of the bulk data cards for a\r\n      number of selected test problems without having to actually input the\r\n      physical cards into the Bulk Data Deck. \r\n\r\n   2. The test problems for which partial data are generated by INPUT are:\r\n\r\n      a. N x N Laplace Network from scalar elements\r\n      b. W x L Rectangular Frame from BAR elements or ROD elements\r\n      c. W x L Rectangular Array of QUAD1 elements\r\n      d. W x L Rectangular Array of TRIA1 elements\r\n      e. N-segment string from scalar elements\r\n      f. N-cell beam made from BAR elements\r\n      g. N-scalar point full matrix with optional unit loading\r\n      h. N-spoke wheel\r\n\r\n      These problem types are described separately in the following sections.\r\n\r\n   3. To use INPUT, variations of the following alter deck must be used:\r\n\r\n      ALTER 1\r\n      PARAM //C,N,NOP/V,N,TRUE=-1 $\r\n      INPUT, ,,,,/G1,G2,----,G5/C,N,a/C,N,b/C,N,b $\r\n      EQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE----/ G5,GEOM5/TRUE $\r\n      ENDALTER\r\n\r\n      The specific data blocks that need to be included depend on the\r\n      particular problem as do the parameter values. Examples for each problem\r\n      type will be given. \r\n\r\n   4. Data cards are read by INPUT from the System Input File using FORTRAN\r\n      I/O, each card containing up to 10 eight column fields. Remember to\r\n      right justify this data. The required data are described in each problem\r\n      type description. \r\n\r\n   5. The INPUT data card(s) follow the ENDDATA card. Do not \"store\" other\r\n      data that is not intended to be used by the INPUT module. \r\n\r\n   6. Several sample problems were run as part of checkout. The inputs for\r\n      these runs are available as examples of INPUT usage. \r\n\r\n   7. Restart tables are not effective with respect to \"cards\" generated by\r\n      INPUT since the preface is unaware of their existence. \r\n\r\n   8. The INPUT data generator feature is restrictive. It can only be used in\r\n      the circumstances illustrated. You may employ the INPUT module as\r\n      described but merging of user data with INPUT data is not supported. As\r\n      an example, single point constraints may be defined either in the bulk\r\n      data deck or in the INPUT module data deck but not both places in an\r\n      attempt to combine them. Thus if SPC cards are defined in the bulk data\r\n      deck, then the G4 data block will not be generated and GEOM4 must not be\r\n      equivalenced to G4. \r\n\r\n2.6.1.1  Laplace Circuit (a=1; b=1, 2, or 3; c is not used)\r\n\r\n   INPUT generates CELAS4, SPOINT, SPC (for b=1), and CMASS4 (for b=2,3) cards\r\nfor the circuit shown. \r\n\r\n\r\n                                     Edge c\r\n                        Ŀ\r\n                                                            2\r\n                                                   (N+1)  - 1\r\n                                                   \r\n                                                   \r\n                                                            \r\n                    \r\n                                                            \r\n                                                            \r\n                                                            \r\n                                                            \r\n                    \r\n                  3N+4                                      \r\n                                                            \r\n        Edge b                                               Edge d\r\n                                                            \r\n                    \r\n                  2N+3                                      \r\n                                                            \r\n                                                            \r\n                                                            \r\n                    \r\n                  N+2     N+3                               \r\n                                                   \r\n                                                   \r\n                           2       3       4       \r\n\r\n                        \r\n                                     Edge a\r\n\r\n\r\nThe scalar point id's are 1 through (N+1)2 except for 1, N+1, N(N+1)+1, and\r\n(N+1)2. For b = 2 or 3, all edge points are replaced with ground. The scalar\r\nelements generated are shown below for each value of b for a typical cell.\r\nElements between edge points are not generated. \r\n\r\n=PAGE=\r\n                  i+N+1                              i+N+1\r\n                   *                                  *\r\n                       6                                 6\r\n                 k  i+10                            k  i+10\r\n                                                     \r\n                     i                        fm       i\r\n                   * *                 Ĵ * *\r\n                  i   k   i+1                      6  i  k   i+1\r\n                                             i+2x10\r\n\r\n                   (b = 1)                          (b = 2)\r\n\r\n                                  -fm\r\n                            Ĵ Ŀ\r\n                                     6            -1/2 fm\r\n                       Ĵ   i+4x10    *Ĵ Ŀ\r\n                                 k       i+N+1         6    \r\n                                     i+6x10     \r\n                                    6                         \r\n                                i+10                          \r\n                                                              \r\n                                                              \r\n                                 -fm                          \r\n                           Ĵ Ŀ                    \r\n                fm                  6                       \r\n             Ĵ *Ĵ   i+3x10    *\r\n                    6  i         i           i+1\r\n              i+2x10        \r\n                                  k\r\n                       \r\n                                -1/2 fm\r\n                       Ĵ *\r\n                                       6         i+N+2\r\n                                 i+5x10\r\n\r\n                                 (b = 3)\r\n\r\na. Data Card\r\n\r\n     1    N    (I8)      N2 = no. of cells\r\n\r\n     2    k    (E8.0)    Spring stiffness\r\n\r\n     3    U    (E8.0)    Enforced displacement along edge  b  (b = 1)\r\n\r\n     3    m    (E8.0)    Mass  (b = 2,3)\r\n\r\n     4    f    (E8.0)    Coupling fraction (b = 3 only)\r\n\r\nb. Options\r\n\r\n   b = 1, statics. Use statics (Rigid Format D-1) to solve V2u = 0 with\r\n          boundary conditions u = 0 along  a ,  c  and  d , u = U along  b.\r\n          G2 and G4 are both used. No masses are generated.\r\n\r\n   b = 2, no mass coupling. Use real eigenvalue analysis (Rigid Format D-3)\r\n          to obtain the eigenvalues of a square membrane (V2u = a2u/at2\r\n          where the theoretical solutions for N->  are given by\r\n\r\n                           2    2 1/2\r\n             f    =  1/N {i  + j }   ;   i,j  =  1,2,---\r\n                   ij\r\n\r\n          U is ignored. Only G2 is used. Diagonal masses only are\r\n          generated.\r\n\r\n   b = 3, mass coupling. Same as where the diagonal masses are m. The\r\n          horizontal and vertical masses are -fm; the cross diagonal masses\r\n          are 1/2 fm.\r\n\r\nc. Notes\r\n\r\n   (1) For b = 1, SPR = 1000+N must be selected in Case Control Deck.\r\n=PAGE=\r\nID INPUT,CASE1\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/,G2,,G4,/C,N,1/C,N,1 $\r\nEQUIV G2,GEOM2/TRUE  /  G4,GEOM4/TRUE $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=LAPLACE CIRCUIT\r\nLABEL=STATICS\r\nSPC=1005\r\nOUTPUT\r\nDISP=ALL\r\nBEGIN BULK\r\n\r\n{blank card}\r\nENDDATA\r\n\r\n\r\n                                       u=0\r\n                        Ŀ\r\n\r\n                           32      33      34      35\r\n                                                   \r\n                                                   \r\n                  25      26      27      28      29     30 \r\n                    \r\n                                                            \r\n                                                            \r\n                                                            \r\n                  19      20      21      22      23     24 \r\n                    \r\n                                                            \r\n                                                            \r\n           u=10                                              u=0\r\n                  13      14      15      16      17     18 \r\n                    \r\n                                                            \r\n                                                            \r\n                                                            \r\n                  7       8       9       10      11     12 \r\n                    \r\n                                                            \r\n                                                   \r\n                                                   \r\n                           2       3       4       5\r\n\r\n                        \r\n                                       u=0\r\n\r\n\r\n                          Lines indicate scalar springs\r\n=PAGE=\r\n2.6.1.2  Rectangular Frame Made from BARs or RODs (a=2; b=1, 2, 3, or 4; c=0, 1, \r\n2, or 3) \r\n\r\n   INPUT generates GRID, CBAR, or CROD and SEQGP cards for the rectangular\r\nframe shown. \r\n\r\n                   y\r\n                                                          (W+1)(L+1)\r\n                   Ŀ\r\n                                                           \r\n                                                           \r\n                                                           \r\n                                                           \r\n                   Ĵ\r\n                                                           \r\n                                                           \r\n                                                           \r\n                                                           \r\n            Ĵ\r\n              W+2      W+3                                \r\n                                                          \r\n delta y                                                  \r\n                                                          \r\n             x\r\n                   1        2        3        4                W+1\r\n                           \r\n                           \r\n                   Ĵ      i+W+1    i+W+2    6    i+W+1\r\n                     delta x         \\    /(2i)+2x10       \\\r\n                                    6  \\ /              6    \\               6\r\n                                i+10     \\   (2i-1)+2x10       \\  (2i-1)+2x10\r\n                                       /   \\                     \\\r\n       i+W+1                          /  i   \\                 i   \\\r\n                                                \r\n             6                      i        i+1           i        i+1\r\n         i+10\r\n                                      (c = 1)                (c = 2)\r\n             i                        (rods)                 (rods)\r\n         \r\n         i        i+1\r\n\r\n            (c = 0)\r\n            (bars)\r\n                               i+W+1                     i+W+1\r\n                                                          \\                6\r\n                                6                        6  \\   (2i-1)+2x10\r\n                            i+10                     i+10     \\\r\n                                                                \\\r\n                                     i                        i   \\\r\n                                                \r\n                                 i        i+1              i        i+1\r\n\r\n                            cells other than on   (c = 3)  cells on left\r\n                            left edge or bottom   (rods)   edge or bottom\r\n=PAGE=\r\na. Data Card\r\n\r\n   1    W    (I8)      No. cells in x-direction\r\n\r\n   2    L    (I8)      No. cells in y-direction\r\n\r\n   3    dx   (E8.0)    Length of cell in x-direction\r\n\r\n   4    dy   (E8.0)    Length of cell in y-direction\r\n\r\n   5    P    (I8)      Permanent single-point constraints\r\n\r\nb. Options (SEQGP cards)\r\n\r\n   b = 1, Regular Banding (no SEQGP cards generated)\r\n\r\n   b = 2, Double Banding\r\n\r\n   b = 3, Active Columns\r\n\r\n   b = 4, Reverse Double Banding\r\n\r\n   c = 0, Bars\r\n\r\n   c = 1, Rods with both diagonals\r\n\r\n   c = 2, Rods with UL - LR diagonals\r\n\r\n   c = 3, Rods - statically determinate\r\n\r\nc. Notes\r\n\r\n   (1) A PBAR card with PID of 101 must be supplied as part of the Bulk\r\n   Data for c = 0; for c not equal 0 this is a PROD card.\r\n\r\n   (2) If b = 1, SEQGP cards may be included in the Bulk Data.\r\n=PAGE=\r\nID INPUT, CASE2\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/G1,G2,,,/C,N,2/C,N,1 $\r\nEQUIV G1 ,GEOM1 /TRUE  /  G2 ,GEOM2/TRUE  $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=RECTANGULAR FRAME FROM BARS\r\nLABEL=REGULAR BANDING\r\nSPC=1\r\nLOAD=1\r\nOUTPUT\r\nSET 101 = 1,4,17,20\r\nDISP=101\r\nBEGIN BULK\r\nFORCE         1      20       0     1.0     1.0   0.0    0.0\r\nMAT1          7     1.0     1.0\r\nPBAR        101       7     1.0     2.0     4.0   8.0\r\nSPC           1       1    1234     0.0      4     23    0.0\r\nENDDATA\r\n       3      4     1.0     2.0     345\r\n\r\n\r\n\r\n                                             19\r\n                        Ŀ\r\n                      17      18      19      20\r\n                                                \r\n                                                \r\n                                                \r\n                        Ĵ\r\n                      13      14      15      16\r\n                                                \r\n                                                \r\n                           9      10      11    \r\n                        Ĵ\r\n                       9      10      11      12\r\n                                                \r\n                 1000005                        \r\n                           5       6       7    \r\n                        Ĵ\r\n                       5       6       7       8\r\n                                                \r\n                 1000001 1000002 1000005 1000004\r\n                           1       2       3    \r\n                        \r\n                       1        2        3        4\r\n=PAGE=\r\n2.6.1.3  Rectangular Plate Made from QUAD1s (a=3; b=1, 2, 3, or 4; c is not \r\nused) \r\n\r\n   INPUT generates GRID, CQUAD1, SEQGP, OMIT (if requested), and SPC (if\r\nrequested) cards for the rectangular grid work shown. \r\n\r\n\r\n                                        c\r\n                  Ŀ\r\n\r\n                  y                                      (L+1)(W+1)\r\n                 Ŀ   \r\n                                                            \r\n                                                            \r\n                                                            \r\n                                                            \r\n                 Ĵ   \r\n                                                           \r\n                                                           \r\n           b                      delta y                    d\r\n                                                           \r\n                 Ĵ   \r\n                    /                                       \r\n                 * /             delta x                   \r\n                  /                                         \r\n                 /                                         \r\n                 x \r\n                  1        2        3                         W+1\r\n\r\n                  \r\n                                         a\r\n\r\n                   * Represents sweep angle in degrees\r\n\r\n\r\n                             i+W+1             i+W+2\r\n                               Ŀ\r\n                                                \r\n                                                \r\n                                                \r\n                                                \r\n                                       i        \r\n                                                \r\n                                                \r\n                                                \r\n                                                \r\n                               \r\n                               i                i+1\r\n\r\n=PAGE=\r\na. Data Deck (2 cards required)\r\n\r\n   First Card\r\n\r\n   1    W      (I8)        No. cells in x-direction\r\n\r\n   2    L      (I8)        No. cells in y-direction\r\n\r\n   3    dx     (E8.0)      Length of cell in x-direction\r\n\r\n   4    dy     (E8.0)      Length of cell in y-direction\r\n\r\n   5    IP     (I8)        Permanent Constraints\r\n\r\n   6    ^      (E8.0)      Sweep angle in degrees\r\n\r\n   7          (E8.0)      Material orientation angle in degrees\r\n\r\n   Second Card\r\n\r\n   1    IY0    (I8)        SPC's on y = 0\r\n\r\n   2    IX0    (I8)        SPC's on x = 0\r\n\r\n   3    IYL    (I8)        SPC's on y = L x dy\r\n\r\n   4    IXW    (I8)        SPC's on x = W x dx\r\n\r\n   5    IOX    (I8)        OMIT's in x-direction\r\n\r\n   6    IOY    (I8)        OMIT's in y-direction\r\n\r\nb. Options (SEQGP cards)\r\n\r\n   b = 1, Regular banding (no SEQGP cards generated)\r\n\r\n   b = 2, Double banding\r\n\r\n   b = 3, Active banding\r\n\r\n   b = 4, Reverse double banding\r\n\r\nc. Notes\r\n\r\n   (1) If IP, IYO, IXO, IYL, IXW, IOX, and IOY are all zero, data block G4\r\n       will be purged.\r\n\r\n   (2) A PQUAD1 card with PID = 101 must be included in the Bulk Data.\r\n\r\n   (3) IF SPCs are generated the set ID will be 1000NX + NY.\r\n\r\n   (4) If b = 1, SEQGP cards may be included in the Bulk Data.\r\n=PAGE=\r\n  ID INPUT, CASE3\r\n  TIME 30\r\n  APP DISP\r\n  SOL 1,3\r\n  ALTER 1\r\n  PARAM //C,N,NOP/V,N,TRUE=-1 $\r\n  INPUT, ,,,,/G1,G2,,G4,/C,N,3/C,N,1 $\r\n  EQUIV G1,GEOM1/TRUE  /  G2,GEOM2/TRUE  /  G4,GEOM4/TRUE  $\r\n  ENDALTER\r\n  CEND\r\n  ECHO=BOTH\r\n  TITLE=TEST OF UTILITY MODULE INPUT\r\n  SUBTITLE=RECTANGULAR PLATE MADE FROM CQUAD1'S\r\n  LABEL=STATICS           SIMPLE SUPPORTS         REGULAR BAND\r\nSPC=5005\r\n LOAD=1\r\n OUTPUT\r\n DISP=ALL\r\n BEGIN BULK\r\n FORCE   1         1        0         1.0      0.0     0.0 1.0\r\n MAT1    7         1.0      1.0\r\n PQUAD1  101       7        1.0       7        2.0     7   4.0\r\n ENDDATA\r\n        5       5      10.0     10.0      126      0.0\r\n      246     156     12356    12346        0        0\r\n                                        \r\n                                              NO OMITS\r\n                          Ŀ\r\n                      Ŀ                           \r\n                 Ŀ    \r\n                Ŀ   \r\n                                                      36   \r\n                                                           \r\n                                                   29      \r\n                                                           \r\n                Ĵ   \r\n                                                           \r\n                                                           \r\n                                                           \r\n                                                           \r\n                Ĵ   \r\n                                                           \r\n                                                         \r\n          Ĵ                                            \r\n                                                          \r\n                 Ĵ \r\n                                                          \r\n                                                          \r\n                    7                                     \r\n                                                          \r\n                 Ĵ \r\n               7        8       9      10      11      12 \r\n                                                          \r\n                    1        2      3       4       5     \r\n                                                          \r\n                  \r\n                 1        2        3        4        5        6\r\n                  \r\n                                        \r\n       \r\n\r\n SPC SET ID IS GIVEN BY 1000 * W + L\r\n=PAGE=\r\n2.6.1.4  Rectangular Plate Made from TRIA1s (a=4; b=1, 2, 3, or 4; c is not \r\nused) \r\n\r\n   INPUT generates GRID, CTRIA1, SEQGP, and SPC (if requested) cards for the\r\nrectangular grid work shown. \r\n\r\n                                    c\r\n                           Ŀ\r\n\r\n                           y            (L+1)(W+1)\r\n                          Ŀ     \r\n                                               \r\n                                               \r\n                                               \r\n                                               \r\n                          Ĵ     \r\n                                               \r\n                                               \r\n                    b                           d\r\n                                               \r\n                          Ĵ     \r\n                                               \r\n                          *  /                 \r\n                            /                  \r\n                           /                  \r\n                           x \r\n                           1        2       W+1\r\n\r\n                           \r\n                                    a\r\n\r\n                            * Represents sweep angle in degrees\r\n\r\n\r\n\r\n               i+W+1     i+W+2                  i+W+1     i+W+2\r\n                 Ŀ                       Ŀ\r\n                  2i    /                       \\   2i  \r\n                      /                           \\     \r\n                    /                               \\   \r\n                  / 2i-1                         2i-1 \\ \r\n                                        \r\n                 i       i+1                      i       i+1\r\n\r\n                   (c = 1)                          (c = 2)\r\n\r\n=PAGE=\r\na. Data Deck (2 cards required)\r\n\r\n   First Card\r\n\r\n   1   W       (I8)       No. cells in x-direction\r\n\r\n   2   L       (I8)       No. cells in y-direction\r\n\r\n   3   dx      (E8.0)     Length of cell in x-direction\r\n\r\n   4   dy      (E8.0)     Length of cell in y-direction\r\n\r\n   5   IP      (E8.0)     Permanent constraints\r\n\r\n   6   ^       (E8.0)     Sweep angle in degrees\r\n\r\n   7          (E8.0)     Material orientation angle in degrees\r\n\r\n   Second Card\r\n\r\n   1   IY0     (I8)       SPC's on y = 0\r\n\r\n   2   IX0     (I8)       SPC's on x = 0\r\n\r\n   3   IYL     (I8)       SPC's on y = L x dy\r\n\r\n   4   IXW     (I8)       SPC's on x = W x dx\r\n\r\nb. Options (SEQGP cards)\r\n\r\n   b = 1, Regular banding (no SEQGP cards generated)\r\n\r\n   b = 2, Double banding\r\n\r\n   b = 3, Active banding\r\n\r\n   b = 4, Reverse double banding\r\n\r\nc. Notes\r\n\r\n   (1) If IP, IY0, IX0, IYL and IXW are all zero, G4 will be purged.\r\n\r\n   (2) A PTRIA1 card with PID=101 must be included in the Bulk Data.\r\n\r\n   (3) If SPCs are generated the set ID will be 1000NX + NY.\r\n\r\n   (4) If b=1, SEQGP cards may be included in the Bulk Data.\r\n=PAGE=\r\nID INPUT, CASE 4\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/G1,G2,,G4,/C,N,4/C,N,1/C,N,1 $\r\nEQUIV G1 ,GEOM1 /TRUE / G2,GEOM2/TRUE  /  G4,GEOM4/TRUE  $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=RECTANGULAR PLATE MADE FROM CTRIA1'S\r\nLABEL=OPTION 1                WITH CLAMPED SUPPORTS\r\nSPC=3005\r\nLOAD=1\r\nOUTPUT\r\nDISP=ALL\r\nBEGIN BULK\r\nFORCE   1      1       0       1.0      0.0    0.0     1.0\r\nMAT1    7      1.0     1.0\r\nPTRIA1  101    7       1.0     7        2.0    7       4.0\r\nENDDATA\r\n        3     5     2.0     1.0     126     0.0\r\n      246   156  412356  512346\r\n                         Ŀ\r\n                                                          \r\n                  Ŀ                   \r\n                          Ŀ     \r\n                         Ŀ    \r\n                               /       /       /     \r\n                             /       /       / 24    \r\n                           /       /       /         \r\n                         /       /       /           \r\n                         Ĵ    \r\n                               /       /       /     \r\n                             /       /       /       \r\n                           /       /       /         \r\n                         /       /       /           \r\n                         Ĵ    \r\n                               /       /       /     \r\n            Ĵ        /       /       /    \r\n                            /       /       /      \r\n                          /       /       /        \r\n                          Ĵ \r\n                         9      /       /       /  \r\n                           10 / 10 12 / 11    / 12 \r\n                            / 9     /11     /      \r\n                          /       /       /        \r\n                          Ĵ \r\n                         5      /6      /7      /8 \r\n                            2 /     4 /     6 /    \r\n                            /  1    / 3     / 5    \r\n                          /       /       /        \r\n                           \r\n                          1        2        3        4\r\n       \r\n                           \r\n                                        \r\n       \r\n=PAGE=\r\n2.6.1.5  N-Segment String (a=5; b and c are not used)\r\n\r\n   INPUT generates CELAS4, CMASS4, and CDAMP4 cards for an N-segment string\r\ngrounded at both ends. \r\n\r\n\r\n                                                    \r\n                                           \r\n                                                       (see below)\r\n                                           \r\n                    1      2      3      4             N\r\n                      \r\n                    k1  2   k1  3   k1  4   k1      k1  N   k1\r\n\r\n\r\n\r\n\r\n\r\n                         Ŀ\r\n                                          6          \r\n                                    m i+10           \r\n                            Ĵ Ŀ   \r\n                                            6      \r\n                                   k2 i+3x10       \r\n                       i\r\n                                                   \r\n                                                \r\n                            Ĵ    \r\n                                         6        \r\n                                    b i+2x10         \r\n                         \r\n=PAGE=\r\na. Data Card\r\n\r\n   1      N     (I8)       No. of segments\r\n\r\n   2      k1    (E8.0)     Spring value\r\n\r\n   3      k2    (E8.0)     Spring value (if zero, none of these elements\r\n                           are generated)\r\n\r\n   4      m     (E8.0)     Mass value (if zero, none of these elements are\r\n                           generated)\r\n\r\n   $      b     (E8.0)     Damper values (if zero, none of these elements\r\n                           are generated)\r\n\r\nb. Notes\r\n\r\n   (1) If any of k2, m, or b are zero, those elements will not be\r\n       generated.\r\n=PAGE=\r\nID INPUT, CASE 5\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/,G2,,,/C,N,5 $\r\nEQUIV G2,GEOM2/TRUE $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=N-SEGMENT STRING\r\nLABEL=STATICS\r\nLOAD=1\r\nOUTPUT\r\nDISP=ALL\r\nBEGIN BULK\r\nSLOAD         1        3    1.0       6     1.0\r\nENDDATA\r\n       7     1.0    0.0     0.0    0.0\r\n\r\n\r\n\r\n                                                                           /\r\n   /                                                                     /\r\n   /    1         2         3         4         5         6         7    /\r\n   /*W*W*W*W*W*W*W*/\r\n   /         2         3         4         5         6         7         /\r\n   /                                                                     /\r\n   /\r\n=PAGE=\r\n2.6.1.6  N-Ce11 Bar (a=6; b and c are not used)\r\n\r\n   INPUT generates GRID and CBAR cards for an N-cell bar. OMIT cards will also\r\nbe created if requested. \r\n\r\n         1      2      3                      N\r\n              ¿\r\n              \r\n     1      2      3      4               N      N+1\r\n\r\n\r\na. Data deck\r\n\r\n   First Card\r\n\r\n   1   N      (I8)        No. of cells\r\n\r\n   2   L      (E8.0)      Length of bar\r\n\r\n   3   IP     (I8)        Permanent constraints\r\n\r\n   4   IFLG   (I8)        Orientation vector flag\r\n\r\n   5   IGO    (I8)        GO (used only if IFLG = 2)\r\n\r\n   6   M      (I8)        No. of right-most grid points to be connected to\r\n                          GP2 via bars with PID = 102\r\n\r\n   7   IOX    (I8)        OMIT card count\r\n\r\n   Second Card (Read only if IFLG = 1)\r\n\r\n   1   X1     (E8.0)      Orientation vector X1 component\r\n\r\n   2   X2     (E8.0)      Orientation vector X2 component\r\n\r\n   3   X3     (E8.0)      Orientation vector X3 component\r\n\r\nb. Notes\r\n\r\n   (1) A PBAR card with PID = 101 is required. If M not equal 0, a PBAR\r\n       card with PID = 102 is required.\r\n\r\n   (2) IFLG = 2 option is not allowed for this case.\r\n\r\n   (3) Do not include G4 in alter packet unless IOX is greater than 0.\r\n=PAGE=\r\nID INPUT, CASE 6\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/G1,G2,,,/C,N,6 $\r\nEQUIV G1,GEOM1/TRUE  /  G2,GEOM2/TRUE  $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=N-CELL BAR\r\nLABEL=STATICS\r\nSPC=1\r\nLOAD=1\r\nOUTPUT\r\nSET 101=11\r\nDISP=101\r\nBEGIN BULK\r\nFORCE          1      11       0    1.0      0.0     1.0     1.0\r\nMAT1           7     1.0     1.0\r\nPBAR         101       7     1.0    2.0      4.0     8.0\r\nSPC            1       1  123456    0.0\r\nPARAM  GRDPNT  6\r\nENDDATA\r\n      10   100.0       0       1      0        0       0\r\n     0.0     0.0     1.0\r\n\r\n\r\n\r\n         1      2      3      4      5      6      7     8       9     10\r\n     ¿\r\n     \r\n     1      2      3      4      5      6      7      8      9      10     11\r\n=PAGE=\r\n2.6.1.7  Full Matrix with Optional Unit Load (a=7; b and c are not used)\r\n\r\n   INPUT generates N scalar points, all of which are interconnected giving\r\nN(N+1)/2 elements. On option, SLOAD cards are generated for each CELAS4 scalar\r\npoint. \r\n\r\na. Data Card\r\n\r\n   1   N       (I8)        Order of problem\r\n\r\n   2   NSLOAD  (I8)        Uniform load flag (= 0, will not generate SLOAD\r\n                           cards; not equal 0, will generate SLOAD cards).\r\n\r\nb. Notes\r\n\r\n   (1) GP1 is altered as shown in the example in order to run efficiently.\r\n\r\n   (2) If SLOAD cards are generated the load set ID is N.\r\n=PAGE=\r\nID INPUT, CASE 7\r\nTIME 30\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT, ,,,,/,G2,G3,,G5/C,N,7 $\r\nEQUIV G2,GEOM2/TRUE  /  G3,GEOM3/TRUE  $\r\nALTER 4,4\r\nGP1 GEOM1,G5/GPL,EQEXIH,GPDT,CSTM,BGPDT,SIL/V,N,LUSET/C,N,0/V,N,NOGPDT $\r\nENDALTER\r\nCEND\r\nECHO=BOTH\r\nTITLE=TEST OF UTILITY MODULE INPUT\r\nSUBTITLE=FULL MATRIX WITH OPTIONAL UNIT LOAD\r\nLABEL=ORDER = 10\r\nLOAD=10\r\nOUTPUT\r\nDISP=ALL\r\nSPCF=ALL\r\nOLOAD=ALL\r\nELFO=ALL\r\nBEGIN BULK\r\n\r\n{blank card}\r\n\r\nENDDATA\r\n      10    1\r\n=PAGE=\r\n2.6.1.8  N-Spoked Wheel Made from BAR Elements (a=8; b and c are not used)\r\n\r\n   INPUT generates N+1 GRID points, all of which are connected to the last\r\npoint, and N CBAR cards. The CBAR cards represent connections around the\r\ncircumference and spokes in the wheel as shown in Figure 2.6-1. \r\n\r\n               This figure is not included in the machine readable\r\n               documentation because of complex graphics.\r\n\r\n              Figure 2.6-1. N-spoked wheel made from BAR elements\r\n\r\na. Data deck\r\n\r\n   First Card\r\n\r\n   1    N      (I8)       No. of spokes\r\n\r\n   2    XL     (E8.0)     Radius of wheel\r\n\r\n   3    IP     (I8)       Permanent constraints on rim\r\n\r\n   4    IFLG   (I8)       Orientation vector flag\r\n\r\n   5    IGO    (I8)       GO (used only if IFLG = 2)\r\n\r\n   6    ICEN   (I8)       Permanent constraints at center\r\n\r\n   Second Card\r\n\r\n   1    X1     (E8.0)     Orientation vector X1 component\r\n\r\n   2    X2     (E8.0)     Orientation vector X2 component\r\n\r\n   3    X3     (E8.0)     Orientation vector X3 component\r\n\r\nb. Notes\r\n\r\n   (1) A PBAR card with PID = 101 is required.\r\n\r\n   (2) The option, IFLG = 2, is not allowed for this case.\r\n\r\n   (3) A coordinate system with CID = 2 is required. All points, except the\r\n       center, will reference this system.\r\n\r\n   (4) The number of spokes, N, cannot exceed 255.\r\n=PAGE=\r\nID INPUT, CASE 8\r\nTIME 10\r\nAPP DISP\r\nSOL 1,3\r\nALTER 1\r\nPARAM //C,N,NOP/V,N,TRUE=-1 $\r\nINPUT GEOM1,GEOM2,,,/G1,G2,,,/C,N,8 $\r\nEQUIV G1,GEOM1/TRUE / G2,GEOM2/TRUE $\r\nENDALTER\r\nCEND\r\nTITLE = TEST OF UTILITY MODULE INPUT\r\nSUBTITLE = N-SPOKED WHEEL\r\nLABEL = STATICS\r\nLOAD = 20\r\nOUTPUT\r\nDISP = ALL\r\nBEGIN BULK\r\nCORD2C  2       0       0.0    0.0      0.0       1.0      0.0      0.0    +CYL\r\n+CYL    0.0     0.0     1.0\r\nFORCE   20      1       0      1.0      1.0      0.0      0.0\r\nMAT1    7       1.0            0.3\r\nPBAR    101     7       1.0    100.0    100.0\r\nENDDATA\r\n      8      10.0    12456       1        0    123456\r\n     0.0      0.0      1.0\r\n\u001a\r\n"
  },
  {
    "path": "um/nasthelp.f",
    "content": "      PROGRAM NASTHELP\r\nC\r\nCDC   PROGRAM NASTHELP (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT,\r\nCDC  1                  TAPE2,TAPE3,TAPE4)\r\nC\r\nC     THIS PROGRAM PROVIDES ON-LINE SCREEN HELP FOR NASTRAN USER'S\r\nC     MANUAL INFORMATION. THE COMPLETE MANUAL IS STORED IN THE\r\nC     FOLLOWING ASCII TEXT FILES, WHICH ARE ALSO ACCESSIBLE TO ANY\r\nC     SYSTEM EDITOR:\r\nC\r\nC          MANUAL SECTION                                FILE NAME\r\nC          -------------------                           ---------\r\nC       1. EXECUTIVE CONTROL                             EXEC.TXT\r\nC       2. CASE CONTROL                                  CASE.TXT\r\nC       3. INPUT BULK DATA                               BULK.TXT\r\nC       4. PLOTTING                                      PLOT.TXT\r\nC       5. DMAP                                          DMAP.TXT\r\nC       6. SUBSTRUCTURE                                  SUBS.TXT\r\nC       7. ERROR MESSAGES                                MSSG.TXT\r\nC       8. NASTRAN DICTIONARY                            DICT.TXT\r\nC       9. INTRODUCTION & GENERAL INFORMATION            INTR.TXT\r\nC      10. USER'S MASTER FILE AND USER GENERATED INPUT   UMFL.TXT\r\nC      11. RIGID FORMATS                                 RFMT.TXT\r\nC\r\nC\r\nC     IN ADDITION,\r\nC     IF FILE SELECTION IS FOLLOWED BY ',C', THIS PROGRAM WILL ONLY\r\nC     CHECK THE INPUT FILE FOR OUT-OF-ORDER ITEMS, DUPLICATE ITEMS,\r\nC     AND HEADER 12 CHARACTERS (EXEC, CASE, BULK, PLOT, DMAP AND\r\nC     SUBS.TXT FILES ONLY)\r\nC\r\nC     IF FILE SELECTION IS FOLLOWED BY ',P', THIS PROGRAM WILL PRINT\r\nC     THE ENTIRE CONTENTS OF THE FILE WITH PROPER CARRIAGE CONTROL AND\r\nC     PAGING\r\nC\r\nC     DESIGN REQUIREMENTS FOR MANUAL TEXT FILES\r\nC     (1) A POUND SIGN (#) ON COLUMN 1, MUST PRECEED EACH ITEM\r\nC     (2) '=PAGE=' IN FIRST 6 COLUMNS OF A LINE IS A PAGE MARK\r\nC     (3) EACH ITEM MUST BEGIN WITH ONE OF THE FOLLOWING WORDS, 12 CHAR.\r\nC         EACH               111111\r\nC                 ..123456789012345..(COLUMN)\r\nC                   Executive Co\r\nC                   Case Control\r\nC                   Input Data C\r\nC                   Structure Pl\r\nC                   X-Y Output D\r\nC                   Name:\r\nC                   Substructure Co (special\r\nC                   Substructure Mo  15\r\nC                   Substructure Op  chars.)\r\nC         (REVISED 4/93, DUE TO CHANGES IN THE .TXT FILES, HEADER WORDS\r\nC         IN (3) ARE NO LONGER USED)\r\nC     (4) SEARCH BY KEY NASTRAN WORD AFTER EACH HEADER WORDS IN (3)\r\nC     (5) KEY NASTRAN WORDS MUST BE IN ALPHA-NUMERIC SORT\r\nC     (6) USE ',C' OPTION IN FILE SELECTION FOR DATA CARDS CHECK\r\nC\r\nC     SOME OF THE ABOVE COMMENTS MAY NO LONGER BE TRUE (1993)\r\nC\r\nC     FORTRAN FILE ASSIGNMENTS -\r\nC\r\nC                  FORTRAN\r\nC     FILE NAME    UNIT NO.   STATUS            FILE CONTENTS\r\nC     -----------  -------   ---------  --------------------------------\r\nC     SYS$INPUT        5      INPUT     KEYBOARD INPUT\r\nC     SYS$OUTPUT       6      OUTPUT    TERMINAL OUTPUT\r\nC     COV.TAB          4      INPUT     CONTAINS MACHINE DEPENDENT ASCII\r\nC                           (OPTIONAL)  SPECIAL SYMBOL CONVERSION TABLE\r\nC     NASTRAN MANUAL   3      INPUT     EXEC,CASE,BULK,PLOT,SUBS,DMAP,\r\nC        .TXT FILES                     MSSG,DICT,INTR UMFL and RFMT.TXT\r\nC     USER GIVEN       2      OUTPUT    OUTPUT PRINT FILE\r\nC      FILE NAME            (OPTIONAL)\r\nC\r\nC     PROGRAM FLAGS USED:\r\nC     FL    = 1  THRU 11, FOR 11 DIFFERENT MANUAL.TXT FILES\r\nC     SEC   = 1, MEANS SEARCH BY SECTION ALLOWED, ZERO OTHERWISE\r\nC     HD12  = 0, NO HEADER LINE ON TEXT. OTHEREWISE,\r\nC                HD12(FL) IS THE APPROPIATE HEADER LINE FOR FILE FL\r\nC     BASE  = N, SKIP N WORDS ON HEADER LINE WHEN SEARCHING KEY WORD\r\nC           = 0, SET TO ZERO DUE TO CHANGES IN 1993 USER'S MANUAL\r\nC     MIDPT = AN INTEGER OF A CHARACTER SYMBOL INDICATING THE MID POINT\r\nC                ON TEXT FILE\r\nC     MDPT  = M, NO. OF LINES TO SKIP TO MID POINT OF TEXT FILE\r\nC           = 0, MEANS NO SKIPPING\r\nC     J4    =    2ND ALTERNATE BASE FOR PLOT.TXT\r\nC     J5,J6 =    2ND AND 3RD ALTERNATE BASE FOR SUBS.TXT\r\nC\r\nC     WRITTEN BY GORDON CHAN/UNISYS       3/1992\r\nC     REVISED FOR NEW .TXT FILES FORMAT   4/1993\r\nC     General cleanup and comments \r\nC     added by Reg Mitchell, GSFC         8/1994\r\nC     Last modification                   9/9/94\r\nC\r\n      IMPLICIT INTEGER (A-Z)\r\n      LOGICAL      CHECK,PRINT,FIRST,ETY,POPEN,DEBUG\r\n      INTEGER      IVAL(256),NUMSUB(256),NVAL(256,10),BASE(11)\r\n      CHARACTER*1  KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL,KM,KN,KO,KP,KQ,\r\n     1             KR,KS,KT,KU,KV,KW,KX,KY,KZ,BNK1,LB1,UP1,LT1,MNS,PLUS,\r\n     2             CMA,DOT,NUM,QM, LLa,LLz,\r\n     3             LC,IC,JC,JX1,YES,NO, A1(80),A11,K1(8)\r\n      CHARACTER*4  A4,KEY4,KEY42,BNK4,NEW4,WAS4,APPR,APP,SOLU,SOL,\r\n     1             STP4,STP4L,EXIT4,EXIT4L,QUIT4,QUIT4L,NXTP,NXTS,NXTB,\r\n     2             FILE,FILEX(11)\r\n      CHARACTER    PAG3*3,PAG6*6,KEY6*6,KEY8*8,FNAME*8,MACH*16,DATE9*9,\r\n     1             A3*3,A6*6,A12*12,OU12*42,A48*48,B48*48,A79*79,A80*80,\r\n     2             K44*44,KA44*44,HD6*6,HD12(6)*12,DBGO*8,DBGF*8,TCTF*35\r\n      CHARACTER    DEV_DIR*7\r\n      COMMON /KHR/ KA,KB,KC,KD,KE,KF,KG,KH,KI,KJ,KK,KL,KM,KN,KO,KP,KQ,\r\n     1             KR,KS,KT,KU,KV,KW,KX,KY,KZ,BNK1,LB1,UP1,LT1,MNS,PLUS,\r\n     2             CMA,DOT,NUM(10)\r\n      EQUIVALENCE  (KA44,KA),(YES,KY),(NO,KN),(PAG3,PAG6),(FILE,FNAME),\r\n     1             (A1(1),A11,A4,A3,A6,A12,A48,A79,A80,JX1),(A1(3),JC),\r\n     2             (K1(1),KEY4,KEY6,KEY8),(KEY42,K1(5)),(A1(2),IC)\r\n      DATA         IN,OUT,TB,OU / 5, 6, 4, 2  /, NLP,ETY / 21, .TRUE. /,\r\nC    1             BASE  / 23, 24, 17, 25, 6, 21, 0, 0, 0, 0, 0       /,\r\n     1             BASE  /  0,  0,  0,  0, 0,  0, 0, 0, 0, 0, 0       /,\r\n     2             J4,J5,J6, T1,       T2,    T3 , LLa, LLz, NEW4     /\r\n     3             21,26,41, 16777216, 65536, 256, 'a', 'z', '|   '   /,\r\n     4             K44 /'ABCDEFGHIJKLMNOPQRSTUVWXYZ #^<-+,.1234567890'/,\r\n     5             BNK4,STP4,PAG6,B48  / '   ', 'STOP','=PAGE=', ' '  /,\r\n     6             NXTP,NXTS,NXTB,QM   / 'P  ', 'S   ','B   ', '?'    /,\r\n     7             APPR,APP, SOLU,SOL  / 'APPR','APP ','SOLU','SOL '  /,\r\n     8             FILEX / 'EXEC','CASE','BULK','PLOT','DMAP','SUBS'  ,\r\n     9             'MSSG','DICT','INTR','UMFL','RFMT'/,FNAME/'XXXX.TXT'\r\n     O/,           MACH / '  UNIX VERSION  '  /,  DATE9 / 'AUG. 1994' /,\r\n     1             FIRST,CHECK,PRINT,DEBUG    / .TRUE.,  3*.FALSE.    /,\r\n     2             LU,IVFF / 3, 12 /,     HD6 / 'Name: '/,   HD12     /\r\n     3             'Executive Co', 'Case Control', 'Input Data C'     ,\r\n     4             'Structure Pl',  'X-Y Output D', 'Substructure'    /,\r\n     5             TCTF / ' or terminate current text file(^):'       /,\r\n     6             DBGO,DBGF / 'DEBUG ON', 'DEBUG OF'/,STP4L /'stop'/,\r\n     7             EXIT4,EXIT4L / 'EXIT','exit' /,\r\n     8             QUIT4,QUIT4L / 'QUIT','quit' /\r\n      DATA DEV_DIR/'DEV_DIR'/        \r\nC\r\n      COMPLF(I) = NOT(I)\r\nC\r\n      KA44   = K44\r\n      NUM1   = ICHAR(NUM(1))\r\n      NUM9   = ICHAR(NUM(9))\r\n      La     = ICHAR(LLa)\r\n      Lz     = ICHAR(LLz)\r\n      BA     = ICHAR(KA )\r\n      Aa     = BA - La\r\n      NUMCOV = 0\r\n      POPEN  = .FALSE.\r\nC\r\nC     OPEN THE SPECIAL CHARACTER CONVERSION FILE (UNIT 2).\r\nC\r\n      OPEN (UNIT=TB,FILE='COV.TAB',ACCESS='SEQUENTIAL',FORM='FORMATTED',\r\n     1      STATUS='OLD',ERR=130)\r\nC\r\nC     COV.TAB FILE BEGINS WITH A HEADER RECORD, THEN FOLLOWED BY RECORDS\r\nC     OF 3 INTEGER WORDS, IN 3I4 FORMAT, WHICH ARE:\r\nC     INCOMING SYMBOL, NO. OF BYTE, AND OUTGOING CORRESPONDING SYMBOL\r\nC\r\nC        1   1 124\r\nC        2   1 124\r\nC        :   :  :\r\nC      256   1 124\r\nC\r\n      READ (TB,100,END=130)\r\n      DO 120 I = 1,256\r\n      READ (TB,100,END=130) IVAL(I),N,(NVAL(I,J),J=1,N)\r\n      IF (N .GT. 10) WRITE (OUT,110) I,N\r\n  100 FORMAT (12I4)\r\n  110 FORMAT (' *** Error in COV.TAB    I,N =',2I5)\r\n      NUMSUB(I) = N\r\n  120 CONTINUE\r\n      I = 257\r\n      CLOSE (UNIT=TB)\r\nC     SPECIAL CHARACTER TABLE HAS BEEN READ\r\n  130 NUMCOV = I - 1\r\nC\r\nC     PRINT PROGRAM HEADER\r\nC\r\n      WRITE  (OUT,140)\r\n  140 FORMAT (/////////)\r\n      WRITE  (OUT,150) MACH,DATE9\r\n  150 FORMAT (34X,4H****, /32X,1H*,6X,1H*, /31X,1H*,8X,1H*, /31X,\r\n     1        18H*  N A S T H E L P, /31X,1H*,8X,1H*, /32X,1H*,6X,1H*,\r\n     2        /34X,4H****, ///15X,A16,10X,17HSYSTEM RELEASE - ,A9)\r\n      WRITE  (OUT,160)\r\n  160 FORMAT (//,' Is your screen capable of MORE THAN 80 columns? ',\r\n     1       '(Y or N (default))')\r\n      READ   (IN,170) LC\r\n  170 FORMAT (3A1)\r\n      ETY = .FALSE.\r\n      IF (LC .EQ. BNK1) GO TO 180\r\n      IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa)\r\n      IF (LC .EQ. YES) ETY = .TRUE.\r\n  180 WRITE  (OUT,190) NLP\r\n  190 FORMAT (//,' Enter LINES PER PAGE (default is',I3,') ')\r\n      READ   (IN,200,ERR=180) J\r\n  200 FORMAT (I2)\r\n      IF (J .GT. 1) NLP = J\r\n      NLP4 = NLP - 4\r\n      WRITE  (OUT,210)\r\n  210 FORMAT (/,' A text line marked by | in column 1 indicates that ',\r\n     1        'this line contains updated', /,' material since the ',\r\n     2        'June 1986 NASTRAN Users'' Manual')\r\n      IF (ETY) WRITE (OUT,215)\r\n  215 FORMAT (/,' If your screen loses character in column 80, it is ',\r\n     1        'because your terminal lacks',/,' 80-column capability.')\r\n      WRITE  (OUT,220)\r\n  220 FORMAT (//,' NASTHELP accepts both UPPER and lower case input')\r\nC    1         /,' The terms STOP and QUIT are interchangable')\r\nC     READY TO BEGIN READING A MANUAL\r\n      GO TO 240\r\nC     CLOSE CURRENT MANUAL IF STILL OPEN\r\n  230 CLOSE (UNIT=LU)\r\nC\r\nC     PROCESS REQUEST FOR USER MANUAL SELECTION\r\nC\r\n  240 WRITE  (OUT,250)\r\n  250 FORMAT (/,' Enter letter for desired part of NASTRAN',\r\n     O        ' User''s Manual',//,\r\n     1 '  Introduction(I)     Don''t know(?)',/,\r\n     2 '  Executive(E)        Case control(C)     Bulkdata(B)',/,\r\n     3 '  DMAP(D)             Rigid Formats(R)    Plotting(P)',/,\r\n     4 '  Messages(M)         Substructures(S)    UMF/UGI(U)',/,\r\n     5 '  Dictionary(T)       Stop/quit(STOP)')\r\n      READ (IN,170) LC,IC,JC\r\nC     CONVERT TO UPPER CASE IF NECESSARY\r\n      IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa)\r\n      IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa)\r\n      IF (ICHAR(JC).GE.La .AND. ICHAR(JC).LE.Lz) JC = CHAR(ICHAR(JC)+Aa)\r\nC     CHECK FOR A COMMA IN SECOND POSITION\r\n      IF (IC .NE. CMA) GO TO 260\r\n      IF (JC .EQ.  KC) CHECK = .TRUE.\r\n      IF (JC .EQ.  KP) PRINT = .TRUE.\r\n  260 IF (LC.EQ.KS .AND. JC.EQ.KO) GO TO 2210\r\n      FIRST = .TRUE.\r\n      LAST  = -1\r\n      SEC   =  1\r\n      MDPT  =  0\r\n      MQ    =  0\r\n      IF (LC .EQ. KE) GO TO 310\r\n      IF (LC .EQ. KC) GO TO 320\r\n      IF (LC .EQ. KB) GO TO 330\r\n      IF (LC .EQ. KP) GO TO 340\r\n      IF (LC .EQ. KD) GO TO 350\r\n      IF (LC .EQ. KS) GO TO 360\r\n      IF (LC .EQ. KM) GO TO 370\r\n      IF (LC .EQ. KT) GO TO 380\r\n      IF (LC .EQ. KI) GO TO 390\r\n      IF (LC .EQ. KU) GO TO 400\r\n      IF (LC .EQ. KR) GO TO 405\r\n      IF (LC .EQ. QM) GO TO 280\r\n      WRITE  (OUT,270)\r\n  270 FORMAT (/,' *** SELECTION error')\r\n      GO TO 240\r\nC\r\n  280 MQ = 1\r\n      GO TO 310\r\nC\r\nC     GET NEW MANUAL REQUEST\r\n  300 CLOSE (UNIT=LU)\r\n      GO TO 240\r\nC\r\nC     SET FL TO THE REQUESTED NASTRAN MANUAL (EXEC=1, CASE=2, ETC.)\r\nC     DEFINE MID-POINT IN FILE FOR SKIPPING, AND SET HEADER SEARCH\r\nC     MIDPT IS THE FIRST LETTER OF KEY WORDS,\r\nC     MDPT  IS NO. OF RECORDS TO BE SKIPPED.\r\nC\r\nC     USE ANY SYSTEM EDITOR TO LOCATE THE MID-POINT OF FILE\r\nC\r\n  310 FL   = 1\r\n      GO TO  410\r\n  320 FL   = 2\r\n      GO TO  410\r\n  330 FL   = 3\r\n      MIDPT= ICHAR(KN)\r\n      MDPT = 10741\r\n      GO TO  410\r\n  340 FL   = 4\r\n      GO TO  410\r\n  350 FL   = 5\r\n      GO TO  410\r\n  360 FL   = 6\r\n      GO TO  410\r\n  370 FL   = 7\r\n      SEC  = 0\r\n      MIDPT= ICHAR(NUM(3))\r\n      MDPT = 3550\r\n      GO TO  410\r\n  380 FL   = 8\r\n      SEC  = 0\r\n      GO TO  410\r\n  390 FL   = 9\r\n      IF (NLP-4 .EQ. NLP4) NLP = NLP - 1\r\n      GO TO  410\r\n  400 FL   = 10\r\n      GO TO  410\r\n  405 FL   = 11\r\n      GO TO  410\r\nC\r\nC     OPEN THE REQUESTED NASTRAN MANUAL FILE\r\nC\r\n  410 FILE = FILEX(FL)\r\n      WAS1 = COMPLF(0)\r\n      WAS2 = WAS1\r\n      OPEN (UNIT=LU,FILE=FNAME,ACCESS='SEQUENTIAL',FORM='FORMATTED',\r\n     1      STATUS='OLD',ERR=412)\r\n      GO TO 415\r\n  412 WRITE  (OUT,413) FNAME\r\n  413 FORMAT (//1X,A8,' file DOES NOT EXIST')\r\n      IF (JC .NE. KU) GO TO 240\r\n      GO TO 2210\r\nC\r\n  415 CONTINUE\r\n      IF (CHECK) GO TO 1700\r\n      IF (PRINT) GO TO 2000\r\n      SOUNT = 0\r\nC     SEARCH KEY WORD OR NUMBER AS APPROPRIATE, BASED ON MANUAL FLAG.\r\nC     1=EXEC,2=CASE,3=BULK,4=PLOT,5=DMAP,6=SUBS,7=MSSG,8=DICT,\r\nC     9=INTR,10=UMFL,11=RFMT\r\n  420 GO TO (650,650,650,650,650,650,430,540,610,610,650), FL\r\nC\r\nC     MESSAGE SEARCH IN FILE MSSG.TXT\r\nC\r\n  430 WRITE  (OUT,440) TCTF\r\n  440 FORMAT (/,' Enter MESSAGE NUMBER (up to 4 digits) or STOP,',A35)\r\n      READ   (IN,450) A4\r\n  450 FORMAT (A4)\r\n      IF (A11 .EQ. UP1) GO TO 300\r\n      IF (A4 .EQ. STP4) GO TO 2200\r\n      IF (A4 .EQ. STP4L) GO TO 2200\r\n      IF (A4 .EQ. EXIT4) GO TO 2200\r\n      IF (A4 .EQ. EXIT4L) GO TO 2200\r\n      IF (A4 .EQ. QUIT4) GO TO 2200\r\n      IF (A4 .EQ. QUIT4L) GO TO 2200\r\n      REWIND LU\r\n      COUNT = 0\r\n      J = 0\r\n  460 IF (A1(3) .NE. BNK1) GO TO 470\r\n      J = J + 1\r\n      IF (J .GT. 2) GO TO 430\r\n      A1(3) = A1(2)\r\n      A1(2) = A1(1)\r\n      A11   = BNK1\r\n      GO TO 460\r\n  470 IF (A1(4) .EQ. BNK1) GO TO 490\r\n      IF (MDPT.EQ.0 .OR. ICHAR(A11).LT.MIDPT) GO TO 490\r\n      DO 480 I = 1,MDPT\r\n      READ (LU,450,END=500)\r\n  480 CONTINUE\r\n      COUNT = MDPT\r\n  490 READ (LU,450,END=500) KEY4\r\n      COUNT = COUNT + 1\r\n      IF (KEY4.EQ.BNK4 .OR. KEY4.EQ.NEW4 .OR. KEY4.NE.A4) GO TO 490\r\n      BACKSPACE LU\r\n      KOUNT = 2\r\n      GO TO 1200\r\n  500 WRITE  (OUT,510)\r\n  510 FORMAT (' *** No Such MESSAGE NO. ***',/)\r\n      GO TO 430\r\nC\r\nC     DICTIONARY SEARCH IN FILE DICT.TXT\r\nC\r\n  540 WRITE  (OUT,550) TCTF\r\n  550 FORMAT (/,' Enter DICTIONARY word or STOP,',A35)\r\n      READ   (IN,560) A6\r\n  560 FORMAT (A6)\r\n      IF (A11 .EQ. UP1) GO TO 300\r\n      DO 570 J = 1,6\r\n      IF (ICHAR(A1(J)).GE.La .AND. ICHAR(A1(J)).LE.Lz)\r\n     1    A1(J) = CHAR(ICHAR(A1(J))+Aa)\r\n  570 CONTINUE\r\n      IF (A4 .EQ. STP4) GO TO 300\r\n      IF (A4 .EQ. QUIT4) GO TO 300\r\n      IF (A4 .EQ. STP4L) GO TO 300\r\n      IF (A4 .EQ. QUIT4L) GO TO 300\r\n      REWIND LU\r\n  580 READ (LU,560,END=590) KEY6\r\n      IF (KEY4.EQ.BNK4 .OR. KEY4.EQ.NEW4 .OR. KEY6.NE.A6) GO TO 580\r\n      BACKSPACE LU\r\n      KOUNT = 1\r\n      GO TO 1200\r\n  590 WRITE  (OUT,600)\r\n  600 FORMAT (' *** No such term in NASTRAN Dictionary')\r\n      GO TO 540\r\nC\r\nC     INTRODUCTION OR USER-MASTER-FILE SEARCH OF FILES INTR OR UMFL.TXT\r\nC\r\nC     SEARCH BY SECTION, SUBSECTION, AND PAGE ONLY\r\nC     SECTION AND SUBSECTION MUST BE PRECEEDED BY A BLANK LINE\r\nC\r\n  610 WRITE  (OUT,620) TCTF\r\n  620 FORMAT (/,' Enter section(S), sub-section(B), page(P), ',\r\n     1        'or stop(STOP),', /,A35)\r\n      GO TO 670\r\nC\r\n  630 PASS = PASS + 1\r\n      IF (PASS .GE. 2) WRITE (OUT,640) FNAME\r\n  640 FORMAT (17X,'No such WORD in ',A8,' file')\r\n      REWIND LU\r\n      COUNT = 0\r\n      IF (PASS .EQ. 1) GO TO 700\r\nC\r\nC     GENERAL SEARCH FOR FILE TYPES = EXEC, CASE, BULK, PLOT, DMAP,\r\nC     SUBS OR RFMT.TXT\r\nC     KEY WORD or SECTION SEARCH\r\nC\r\n  650 WRITE  (OUT,660) TCTF\r\n  660 FORMAT (/,' Enter NASTRAN KEY WORD, STOP, next page(P),',\r\n     1 ' next section(S),',/,' next sub-section(B), ',A35)\r\n  670 READ   (IN,680) KEY8\r\n  680 FORMAT (A8)\r\n      PASS = 0\r\n      LAST = COUNT\r\n      IF (K1(1) .EQ. UP1) GO TO 230\r\nC     NOT A ^ CHARACTER, CONVERT TO UPPER CASE AND PROCESS\r\n      DO 690 ILOOP = 1,8\r\n      IF (ICHAR(K1(ILOOP)).GE.La .AND. ICHAR(K1(ILOOP)).LE.Lz)\r\n     1    K1(ILOOP) = CHAR(ICHAR(K1(ILOOP))+Aa)\r\n  690 CONTINUE\r\n      IF (KEY4 .EQ. STP4) GO TO 1600\r\n      IF (KEY4 .EQ. QUIT4) GO TO 1600\r\n      IF (KEY4 .EQ. BNK4) GO TO 650\r\n      IF (KEY4 .EQ. NXTP) GO TO 980\r\n      IF (KEY4 .EQ. NXTS) GO TO 750\r\n      IF (KEY4 .EQ. NXTB) GO TO 730\r\n      IF (KEY8 .EQ. DBGO) DEBUG = .TRUE.\r\n      IF (KEY8 .EQ. DBGF) DEBUG = .FALSE.\r\n      IF (KEY8.EQ.DBGO .OR. KEY8.EQ.DBGF) GO TO 650\r\n      IF (FL.EQ.9 .OR. FL.EQ.10) GO TO 610\r\n  700 JDX = 9\r\n      IF (SEC .EQ. 1) GO TO 900\r\n      IF (K1(1).NE.KS .AND. K1(1).NE.KB) GO TO 900\r\nC\r\n  710 WRITE  (OUT,720) FNAME\r\n  720 FORMAT (/,' *** Search by SECTION is not practical on this ',A8,\r\n     1        ' file')\r\n      GO TO 650\r\nC\r\n  730 KEY4 = NXTB\r\n      IF (SOUNT .GT. 0) GO TO 755\r\n      WRITE  (OUT,740)\r\n  740 FORMAT (/,' *** SUBSECTION is requested without first request of',\r\n     1       ' SECTION ***')\r\n      GO TO 650\r\n  750 KEY4  = NXTS\r\n      SOUNT = 0\r\n      IF (COUNT .LE. 1) GO TO 1200\r\n  755 A4   = STP4\r\n  760 WAS4 = A4\r\n      READ (LU,770,END=880) A12\r\n  770 FORMAT (A12)\r\n      COUNT = COUNT + 1\r\n      IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620\r\n      IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 760\r\n      IF (WAS4 .NE. BNK4) GO TO 760\r\n      I = ICHAR(A11)\r\n      IF (A11 .EQ. BNK1) I = ICHAR(A1(2))\r\n      IF (I.LT.NUM1 .OR. I.GT.NUM9) GO TO 760\r\n      NDOT = 0\r\n      DO 780 I = 2,11\r\n      IF (A1(I) .NE. DOT) GO TO 780\r\n      IF (A1(I+1).NE.BNK1 .AND. A1(I+1).NE.DOT) NDOT = NDOT + 1\r\n  780 CONTINUE\r\n      IF (NDOT-1) 760,790,810\r\n  790 IF (KEY4 .EQ. NXTB) GO TO 820\r\n      SOUNT = COUNT - 1\r\n  800 COUNT = COUNT - 1\r\n      BACKSPACE LU\r\n      GO TO 1200\r\n  810 IF (KEY4 .EQ. NXTS) GO TO 760\r\n      GO TO 800\r\n  820 WRITE  (OUT,830) TCTF\r\n  830 FORMAT (/,' *** End of SECTION ***', /,' return to Key(K), ',\r\n     1       'return to beginning of section(R), next section(N)',\r\n     2        /,' stop(STOP),',A35)\r\n      READ (IN,170) IC\r\n      IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa)\r\n      IF (IC .EQ. UP1) GO TO 230\r\n      IF (IC .EQ. KS ) GO TO 2200\r\n      IF (IC .EQ. KK ) GO TO 650\r\n      IF (IC .EQ. KN ) GO TO 860\r\n      IF (IC .NE. KR ) GO TO 820\r\n      IF (SOUNT .LE. 1) GO TO 870\r\n      J = COUNT - SOUNT + 2\r\n  840 DO 850 I = 1,J\r\n      BACKSPACE LU\r\n  850 COUNT = COUNT - 1\r\n      IF (COUNT .LT. 0) COUNT = 0\r\n      KEY4 = NXTS\r\n      GO TO 1200\r\n  860 J = 1\r\n      GO TO 840\r\n  870 REWIND LU\r\n      KEY4 = NXTS\r\n      GO TO 1200\r\n  880 WRITE  (OUT,890)\r\n  890 FORMAT (' *** End of File ***')\r\n      REWIND LU\r\n      SOUNT = 0\r\n      GO TO 650\r\nC\r\nC     KEY WORD SEARCH - FIRST SEARCH HEADING THEN KEY WORD\r\nC\r\n  900 JDX = JDX - 1\r\n      IF (K1(JDX) .EQ. BNK1) GO TO 900\r\n      IF (JDX .LE. 0) GO TO 630\r\n      IF (FL  .NE. 1) GO TO 910\r\nC\r\nC     SOME KEY WORDS IN EXECUTIVE CONTROL SECTION MAY BE ABBREVIATED.\r\nC     4 BYTES ARE USED FOR ALL EXECUTIVE CONTROL KEY WORDS\r\nC\r\n      IF (JDX .GT. 4) JDX = 4\r\n      IF (KEY4 .EQ. APPR) KEY4 = APP\r\n      IF (KEY4 .EQ. SOLU) KEY4 = SOL\r\nC\r\nC     IF KEY IS LESS THAN 4 LETTERS, ADD A BLANK AT THE END SO THAT\r\nC     'SOF' IS NOT 'SOFIN', 'SOFOUT', etc.\r\nC\r\n  910 IF (JDX .GE. 4) GO TO 920\r\n      JDX = JDX + 1\r\n      K1(JDX) = BNK1\r\nC\r\nC     T1  = 2**8,  T2 = 2**16,  T3 = 2**24\r\nC     IS0 = FIRST CHARACTER OF THE 8-BYTE KEY WORD IN NUMERIC VALUE\r\nC     IS1 = FIRST  HALF OF THE 8-BYTE KEY WORD IN NUMERIC VALUE\r\nC     IS2 = SECOND HALF OF THE 8-BYTE KEY WORD IN NUMERIC VALUE\r\nC\r\nC     THAT IS, WE WILL USE NUMERIC VALUE FOR KEY WORD SEARCH\r\nC\r\n  920 IS0 = ICHAR(K1(1))\r\n      IS1 = IS0*T1 + ICHAR(K1(2))*T2 + ICHAR(K1(3))*T3 + ICHAR(K1(4))\r\n      IS2 = ICHAR(K1(5))*T1 + ICHAR(K1(6))*T2 + ICHAR(K1(7))*T3 +\r\n     1      ICHAR(K1(8))\r\nC\r\nC     COMPARE PRESENT KEY WORD AND PREVIOUS KEY AND DETERMINE WE NEED\r\nC     TO REWIND FILE OR NOT\r\nC\r\nC     IF TEXT FILE IS NOT PRESORTED, WE NEED TO REWIND FILE ON EACH NEW\r\nC     KEY WORD.  (USER'S MANUAL IS SORTED)\r\nC\r\n      IF (IS1-WAS1) 940,930,980\r\n  930 IF (IS2-WAS2) 940,950,980\r\n  940 REWIND LU\r\n      COUNT = 0\r\n      GO TO 980\r\n  950 WRITE (OUT,960)\r\n  960 FORMAT (' Same KEY WORD as before. Continue? (Y,N) ')\r\n      READ (IN,170) IC\r\n      IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa)\r\n      IF (IC .EQ. NO) GO TO 650\r\n      REWIND LU\r\n      COUNT = 0\r\nC\r\nC     IF KEY WORD IS BEYOND MID-POINT, SKIP HALF OF THE RECORDS IN FILE\r\nC\r\n      IF (MDPT.EQ.0 .OR. ICHAR(K1(1)).LT.MIDPT) GO TO 980\r\n      L = MDPT - COUNT + 1\r\n      DO 970 J = 1,L\r\n      READ (LU,170)\r\n  970 CONTINUE\r\n      COUNT = COUNT + L\r\nC\r\nC     IVFF IS PAGE MARK.  PAG6 IS '=PAGE='\r\nC     LOOK FOR PAGE MARK OR '=PA' FIRST\r\nC\r\n  980 READ (LU,170,END=630) JX1,IC,JC\r\n      COUNT = COUNT + 1\r\n      IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620\r\n      IVJX1 = ICHAR(JX1)\r\n      IF (JX1.NE.LB1 .AND. IVJX1.NE.IVFF .AND. A3.NE.PAG3) GO TO 980\r\n      IF (DEBUG) WRITE (OUT,990) JX1,IC,JC\r\n  990 FORMAT (40X,'@980 Just read- ',8A1)\r\n      IF (KEY4.EQ.NXTP .AND. A3.EQ.PAG3) GO TO 1240\r\n      J = 0\r\n 1000 READ (LU,1250,END=1450) A80\r\n      IF (DEBUG) WRITE (OUT,1005) (A1(I),I=1,8)\r\n 1005 FORMAT (36X,'@1005 Just read- ',8A1)\r\n      COUNT = COUNT + 1\r\n      IF (PASS.EQ.2 .AND. COUNT.EQ.LAST) GO TO 1620\r\n      J = J + 1\r\n      IF (J .GE. 7) GO TO 980\r\n      IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 1000\r\n      IF (ICHAR(A11) .EQ. IVFF) GO TO 1000\r\nC\r\nC     KEY WORD HEADING SEARCH\r\nC\r\nC     ******************************************************\r\nC     *   HEADER WORDS WERE REMOVED IN 1993 USER'S MANUAL  *\r\n          J = 0\r\n          IF (J .EQ. 0) GO TO 1120\r\nC     ******************************************************\r\nC\r\n      GO TO (1010,1010,1010,1010,1030,1010,1100,1100,1100,1100,1050), FL\r\n 1010 IF (DEBUG) WRITE (OUT,1020) A12,HD12(FL)\r\n 1020 FORMAT (50X,A12,'==> ',A12)\r\n      IF (A12 .EQ. HD12(FL)) GO TO 1050\r\n      IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1040\r\n      GO TO 1000\r\n 1030 IF (A6 .NE. HD6) GO TO 1000\r\n      GO TO 1050\r\nC\r\n 1040 J = J4\r\n      GO TO 1060\r\n 1050 J = BASE(FL)\r\n 1060 IF (FL .NE. 6) GO TO 1070\r\n      IF (A1(14) .EQ.  KM) J = J5\r\n      IF (A1(14) .EQ.  KO) J = J6\r\n 1070 IF (A1(J) .NE. BNK1) J = J - 1\r\n      IF (DEBUG) WRITE (OUT,1080) J\r\n 1080 FORMAT (45X,'@1080  BASE J =',I3)\r\n 1090 IF (A1(J+1) .NE. BNK1) GO TO 1120\r\n      J = J + 1\r\n      GO TO 1090\r\nC\r\n 1100 WRITE  (OUT,1110) FL\r\n 1110 FORMAT (/,' *** SHOULD NOT BE HERE.  FL =',I3)\r\n      GO TO 240\r\nC\r\nC     KEY WORD SEARCH\r\nC\r\n 1120 IF (DEBUG) WRITE (OUT,1130) (A1(J+I),I=1,JDX),LT1,LT1,\r\n     1                            (K1(I),I=1,JDX)\r\n 1130 FORMAT (30X,'@1130 - ',18A1)\r\n      DO 1140 I = 1,JDX\r\n      IF (A1(J+I) .NE. K1(I)) GO TO 980\r\n 1140 CONTINUE\r\nC\r\nC     KEY WORD FOUND ON FILE\r\nC\r\n      WAS1  = IS1\r\n      WAS2  = IS2\r\n      KOUNT = 6\r\n      IF (FIRST) KOUNT = 8\r\n      WRITE  (OUT,1150)\r\n 1150 FORMAT (//)\r\n      IF (     ETY) WRITE (OUT,1290) A80\r\n      IF (.NOT.ETY) WRITE (OUT,1300) A79\r\nC\r\nC     RECORD FOUND.  READ AND PRINT ON SCREEN\r\nC     ALLOW UP TO 4 BLANK LINES PRINTED ON SCREEN\r\nC\r\n 1200 JOUNT = COUNT - 4\r\n      BLINE = 0\r\n      IF (NUMCOV .EQ. 0) GO TO 1240\r\n      DO 1210 J = 1,80\r\n      DO 1210 I = 1,NUMCOV\r\n      IF (ICHAR(A1(J)) .EQ. IVAL(I)) A1(J) = CHAR(NVAL(I,1))\r\n 1210 CONTINUE\r\n      GO TO 1240\r\nC\r\n 1220 WRITE  (OUT,1230)\r\n 1230 FORMAT (///)\r\n      KOUNT = KOUNT + 3\r\nC\r\n 1240 READ (LU,1250,END=1450) A80\r\n 1250 FORMAT (A80)\r\n      COUNT = COUNT + 1\r\n      IF (ICHAR(A11).EQ.IVFF .OR. A6.EQ.PAG6) GO TO 1220\r\n      IF (A48 .NE. B48) GO TO 1260\r\n      IF (BLINE .GT. 4) GO TO 1240\r\n      BLINE = BLINE + 1\r\n      WRITE (OUT,170) A11\r\n      GO TO 1310\r\n 1260 BLINE = 0\r\n      IF (NUMCOV .EQ. 0) GO TO 1280\r\n      DO 1270 J = 1,80\r\n      DO 1270 I = 1,NUMCOV\r\n      IF (ICHAR(A1(J)) .EQ. IVAL(I)) A1(J) = CHAR(NVAL(I,1))\r\n 1270 CONTINUE\r\n 1280 IF (A11  .EQ.  LB1) GO TO 1470\r\n      IF (     ETY) WRITE (OUT,1290) A80\r\n      IF (.NOT.ETY) WRITE (OUT,1300) A79\r\n 1290 FORMAT (1X,A80)\r\n 1300 FORMAT (1X,A79)\r\n 1310 KOUNT = KOUNT + 1\r\n      IF (MOD(KOUNT,NLP) .NE. 0) GO TO 1240\r\n      GO TO (1320,1320,1320,1320,1320,1320,420,420,1320,1320,1320), FL\r\n 1320 IF (.NOT.FIRST) GO TO 1350\r\n      FIRST = .FALSE.\r\n      WRITE (OUT,1332) NLP4\r\n 1332 FORMAT(' (Y,N,STOP,1,2,...,',I2,',-n,P,S,B,^,PRINT,HELP or <CR>)')\r\n      GO TO 1350\r\n 1330 WRITE (OUT,1340) NLP4,NLP,NLP4\r\n 1340 FORMAT (' (Y,N,STOP,1,2,...,',I2,',-n,P,S,B,^,PRINT,HELP or <CR>)'\r\n     C        /11X,'Y or <CR> = yes more',\r\n     O        /11X,'N         = no more on this item',\r\n     1        /11X,'STOP      = terminate NASTHELP',\r\n     2        /11X,'1,2,...,n = keep bottom n lines on next page. (',I2,\r\n     3                          ' max)',\r\n     4        /11X,'-n        = back up n+',I2,' lines',\r\n     5        /11X,'P,S,B     = go to next page, next section, or next',\r\n     6                          ' sub-section',\r\n     7        /11X,'^         = terminate current text file',\r\n     8        /11X,'PRINT     = print text, up to last line on screen',\r\n     9        /11X,'HELP      = echo options of MORE', /,' ...more? ')\r\n      GO TO 1370\r\n 1350 WRITE  (OUT,1360)\r\n 1360 FORMAT (' ...more? ')\r\n 1370 READ (IN,170) IC,JC,LC\r\n      IF (IC .EQ. UP1) GO TO 230\r\n      IF (ICHAR(LC).GE.La .AND. ICHAR(LC).LE.Lz) LC = CHAR(ICHAR(LC)+Aa)\r\n      IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa)\r\n      IF (ICHAR(JC).GE.La .AND. ICHAR(JC).LE.Lz) JC = CHAR(ICHAR(JC)+Aa)\r\n      IF (IC .EQ. KH) GO TO 1330\r\n      IF (IC .EQ. NO) GO TO 420\r\nC     Check for STop, EXit ot QUit\r\n      IF (IC.EQ.KS .AND. JC.EQ.KT) GO TO 1600\r\n      IF (IC.EQ.KE .AND. JC.EQ.KX) GO TO 1600\r\n      IF (IC.EQ.KQ .AND. JC.EQ.KU) GO TO 1600\r\nC     Check for PRint request.\r\n      IF (IC.EQ.KP .AND. JC.EQ.KR) GO TO 2000\r\n      IF (SEC.EQ.0 .AND. (IC.EQ.KS .OR. IC.EQ.KB)) GO TO 710\r\n      IF (IC .EQ. KS) GO TO 750\r\n      IF (IC .EQ. KB) GO TO 1380\r\n      IF (IC .NE. KP) GO TO 1390\r\n      KEY4 = NXTP\r\n      GO TO 980\r\n 1380 IF (SOUNT .GT. 0) GO TO 730\r\n      WRITE (OUT,740)\r\n      GO TO 1350\r\n 1390 KOUNT = 0\r\n      IF (IC.EQ.BNK1 .OR. IC.EQ.YES) GO TO 1240\r\n      I =  0\r\n      J = -1\r\n      L = -1\r\n      DO 1400 K = 1,10\r\n      IF (IC .EQ. NUM(K)) I = MOD(K,10)\r\n      IF (JC .EQ. NUM(K)) J = MOD(K,10)\r\n      IF (LC .EQ. NUM(K)) L = MOD(K,10)\r\n 1400 CONTINUE\r\n      IF (J+L .EQ. -2) IJL = I\r\n      IF (L.EQ.-1 .AND. J.NE.-1) IJL = I*10  + J\r\n      IF (L.NE.-1 .AND. J.NE.-1) IJL = I*100 + J*10 + L\r\n      IF (IC .EQ. MNS) GO TO 1410\r\n      IJL   = MIN0(NLP4,IJL)\r\n      KOUNT = IJL + 1\r\n      GO TO 1240\r\n 1410 IJL   = IJL + NLP\r\n      DO 1420 L = 1,IJL\r\n      BACKSPACE LU\r\n 1420 CONTINUE\r\n      COUNT = COUNT - IJL\r\n      KOUNT = 0\r\n      IF (COUNT .LT. 0) COUNT = 0\r\n      GO TO 1240\r\nC\r\n 1450 IF (LC .EQ. KU) GO TO 1610\r\n      WRITE  (OUT,1460)\r\n 1460 FORMAT (/,' ...EOF. <CR> to continue')\r\n      GO TO 1500\r\nC\r\n 1470 WRITE  (OUT,1480)\r\n 1480 FORMAT (/,' ...End of Description')\r\n 1500 IF (KOUNT .LT. NLP4) GO TO 650\r\n      READ (IN,170) IC\r\n      IF (ICHAR(IC).GE.La .AND. ICHAR(IC).LE.Lz) IC = CHAR(ICHAR(IC)+Aa)\r\n      IF (IC .NE. KS) GO TO 650\r\nC\r\n 1600 IF (MQ .EQ. 0) GO TO 2200\r\n 1610 CLOSE (LU)\r\n      KOUNT = 0\r\n      GO TO (320,330,1620), FL\r\n 1620 WRITE  (OUT,1630)\r\n 1630 FORMAT (/,'*** No such KEY WORD in EXEC, CASE and BULK.TXT files')\r\n      GO TO 240\r\nC\r\nC     CHECK INPUT TEXT FORMATS FOR\r\nC     EXEC, CASE, BULK, PLOT, DMAP SUBS and RFMT.TXT FILES\r\nC\r\n 1700 IF (FL.LE.6 .OR. FL.EQ.11) GO TO 1720\r\n      WRITE  (OUT,1710) FILEX(FL)\r\n 1710 FORMAT (//,' *** Data CHECK OPTION not valid for ',A4,'.TXT file')\r\n      GO TO 240\r\n 1720 READ (LU,1730,END=2200) A48\r\n 1730 FORMAT (A48)\r\n      IF (A12 .EQ. HD12(FL)) GO TO 1760\r\n      IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1760\r\n      IF (A11 .NE. LB1) GO TO 1720\r\n 1740 READ (LU,1730,END=2200) A48\r\n      IF (A4.EQ.BNK4 .OR. A4.EQ.NEW4) GO TO 1740\r\n      IF (A12 .EQ. HD12(FL)) GO TO 1790\r\n      IF (FL.EQ.4 .AND. A12.EQ.HD12(5)) GO TO 1780\r\n      WRITE  (OUT,1750) A48\r\n 1750 FORMAT (1X,A48,' <== HEADER 12 CHAR. ERROR')\r\n      GO TO 1720\r\n 1760 WRITE  (OUT,1770) A48\r\n 1770 FORMAT (1X,A48,' <== NO PRECEEDING # SYMBOL')\r\n      GO TO 1720\r\nC\r\n 1780 J = J4\r\n      GO TO 1800\r\n 1790 J = BASE(FL)\r\n 1800 IF (FL .NE. 6) GO TO 1810\r\n      IF (A1(14) .EQ. KM) J = J5\r\n      IF (A1(14) .EQ. KO) J = J6\r\n 1810 IF (A1(J  ) .NE. BNK1) J = J - 1\r\n 1820 IF (A1(J+1) .NE. BNK1) GO TO 1830\r\n      J = J + 1\r\n      GO TO 1820\r\n 1830 IS1 = ICHAR(A1(J+1))*T1 + ICHAR(A1(J+2))*T2 + ICHAR(A1(J+3))*T3 +\r\n     1      ICHAR(A1(J+4))\r\n      IS2 = ICHAR(A1(J+5))*T1 + ICHAR(A1(J+6))*T2 + ICHAR(A1(J+7))*T3 +\r\n     1      ICHAR(A1(J+8))\r\n      IF (IS1-WAS1) 1850,1840,1890\r\n 1840 IF (IS2-WAS2) 1850,1870,1890\r\n 1850 WRITE  (OUT,1860) A48\r\n 1860 FORMAT (1X,A48,' <== OUT OF ORDER')\r\n      GO TO  1910\r\n 1870 WRITE  (OUT,1880) A48\r\n 1880 FORMAT (1X,A48,' <== DUPLICATE')\r\n      GO TO  1720\r\n 1890 WRITE  (OUT,1900) A48\r\n 1900 FORMAT (1X,A48)\r\n 1910 WAS1 = IS1\r\n      WAS2 = IS2\r\n      GO TO 1720\r\nC\r\nC     PROCESS REQUEST TO PRINT MANUAL DATA FOUND\r\nC\r\n 2000 IF (POPEN) GO TO 2040\r\n      WRITE  (OUT,2010)\r\n 2010 FORMAT (/,1H-,' Enter OUTPUT FILE Name (assume default dir): ')\r\n      READ   (IN,770) A12\r\n      IF (A4.NE.BNK4 .AND. A4.NE.STP4 .AND. A4.NE.STP4L) GO TO 2030\r\n      IF (A4.NE.EXIT4 .AND. A4.NE.EXIT4L) GO TO 2030\r\n      IF (A4.NE.QUIT4 .AND. A4.NE.QUIT4L) GO TO 2030  \r\n      WRITE  (OUT,2020)\r\n 2020 FORMAT (/,' Output PRINT Aborted')\r\n      GO TO 2200\r\n 2030 OU12 = A12\r\n      IF (POPEN) GO TO 2040\r\n      OPEN (UNIT=OU,FILE=OU12,STATUS='NEW',ACCESS='SEQUENTIAL',ERR=2140,\r\n     1      FORM='FORMATTED')\r\n      POPEN = .TRUE.\r\n      GO TO 2060\r\n 2040 WRITE  (OU,2050)\r\n 2050 FORMAT (1H1)\r\n 2060 J = COUNT - JOUNT\r\n      IF (J .LE. 0) GO TO 2120\r\n      DO 2070 I = 1,J\r\n      BACKSPACE LU\r\n 2070 CONTINUE\r\n      DO 2100 I = 1,J\r\n      READ (LU,1250,END=2120) A80\r\n      IF (A11 .EQ.  LB1) GO TO 2100\r\n      IF (A6  .EQ. PAG6) GO TO 2090\r\n      WRITE  (OU,2080) A80\r\n 2080 FORMAT (1X,A80)\r\n      GO TO 2100\r\n 2090 WRITE  (OU,2050)\r\n 2100 CONTINUE\r\nC\r\n 2120 WRITE  (OUT,2130) J\r\n 2130 FORMAT (/,I9,' lines printed')\r\n      GO TO 420\r\nC\r\n 2140 WRITE  (OUT,413) OU12\r\n      GO TO 2000\r\nC\r\nC     END OF JOB PROCESSING\r\nC\r\n 2200 CLOSE  (LU)\r\n      KOUNT = 0\r\n 2210 WRITE  (OUT,2220)\r\n 2220 FORMAT (//,'  *** NASTHELP is done.  Have a good run! ***',// )\r\n      IF (.NOT.POPEN) GO TO 2240\r\n      CLOSE  (OU)\r\n      WRITE  (OUT,2230) OU12\r\n 2230 FORMAT (/,'  *** Don''t forget the print file in ',A42)\r\n      POPEN = .FALSE.\r\n 2240 CONTINUE\r\n      END\r\n"
  },
  {
    "path": "utility/ff.f",
    "content": "      PROGRAM FF\r\nC\r\nCDC   PROGRAM FF (TAPE3)\r\nC\r\nC     LAST MAJOR REVISIONS -  OCT 27, 1989\r\nC                             JUN 25, 1991, FOR UNIX\r\nC\r\nC     A NASTRAN STAND-ALONE PROGRAM TO GENERATE NASTRAN FIX-FIELD INPUT\r\nC     DECK FROM THIS FREE-FIELD INPUT PROGRAM.\r\nC\r\nC     *** THIS PROGRAM MUST BE COMPILED USING THE FOLLOWING COMPILERS\r\nC         IBM VS FORTRAN, UNIVAC ASCII FORTRAN, CDC FORTRAN 5 (ANSI 77),\r\nC         VAX FORTRAN IV-PLUS, AND IBM PC FORTRAN 3.0 OR RMC PROFESSION-\r\nC         AL FORTRAN\r\nC\r\nC     *** VAX ONLY - THE OPEN AND CLOSE FUNCTIONS IN FF AND FFREAD MAY\r\nC                    REQUIRE THE USE OF THE VAX ACCEPTABLE KEYWORDS.\r\nC     (PRESENTLY, THE NON-VAX KEYWORDS ARE ACCEPTABLE BY ALL MACHINES)\r\nC\r\nC\r\nC     WRITTEN BY G.CHAN/UNISYS,  APRIL 1985\r\nC\r\nC     SEE FFREAD SUBROUTINE FOR MORE DETAIL OF FREE-FIELD INPUT.\r\nC\r\nC     FILES ASSIGMENT\r\nC           5 - CARD READER, OR CRT TERMINAL\r\nC           6 - PRINTER, OR CRT TERMINAL\r\nC           7 - PUNCH (IBM,CDC,VAX)\r\nC           1 - PUNCH (UNIVAC ONLY)\r\nC           2 - EQUATES TO USER FILE (ASSIGNED AUTOMATICALLY BY PROGRAM)\r\nC           3 - A SCRATCH FILE TO HOLD THE USER ACTUAL INPUT CARDS\r\nC           4 - USED ONLY IF READFILE IS USED TO READ AN OLD FILE\r\nC\r\nC     LINK THIS MAIN PROGRAM WITH THE FOLLOWING ROUTINES -\r\nC     (THE EXECUTABLE IS CALLED LINKFF)\r\nC\r\nC           FF,FFHELP,FFREAD,UPCASE\r\nC           INT2A8,A82INT,NA12IF,NA12A8,DUMMY\r\nC\r\nC     *** CDC ONLY - PROCEDURE TO LINK FF INTERACTIVELY\r\nC           UPDATE,Q,P=EJPL,C=FF,L=0,N=0.\r\nC           ? *C FF\r\nC           ? <C/R>\r\nC           REWIND,FF.\r\nC           FTN5,STATIC,ARG=0,I=FF,L=0,B=FFLGO,LO=R/A/M/S.\r\nC           ATTACH,NASTLIB/PN=DISC#.\r\nC           LIBRARY,NASTLIB,FTN5LIB,BAMLIB.\r\nC           REWIND,*.\r\nC           LDSET,LIB=NASTLIB,PRESET=ZERO.\r\nC           LDR>? LOAD,FFLGO.\r\nC           LDR>? NOGO,LINKFF.\r\nC\r\nC     *** VAX ONLY - TO LINK FF USING NASTRAN LIBRARY\r\nC           LINK/EXE=LINKFF.EXE NASTRAN.LIB/LIBRARY/INCLUDE=FF\r\nC\r\nC     *** UNIVAC ONLY - TO LINK FF WITH RELOCATABLES IN OBJ FILE\r\nC           @PREP    OBJ.\r\nC           @MAP,IS  TPF$.MAP,NASTRAN.LINKFF\r\nC           LIB      OBJ.\r\nC           IN       FF\r\nC           END\r\nC\r\nC     *** IBM ONLY - LINKAGE EDITOR INPUT CARDS\r\nC           INCLUDE LIB(FF,FFHELP,FFREAD,UPCASE)\r\nC           INCLUDE LIB(INT2A8,A82INT,NA12IF,NA12A8)\r\nC           INCLUDE PRIVLIB(IQZDDN,QQDCBF,QQGETF)\r\nC           ENTRY   FF\r\nC           NAME    LINKFF(R)\r\nC\r\nC           (NOTE - PRIVLIB IS LOCALLY SUPPLIED\r\nC                   SEE THE DESCRIPTIONS OF IZZDDN,QQDCBF,QQGETF BELOW)\r\nC\r\nC     *** UNIX ONLY - TO LINK @LINKFF\r\nC           cd\r\nC           f77 ./mis/ff.f ./lib/nastlib.a -o @LINKFF\r\nC\r\n      LOGICAL         STAR,     PCT,      NOTYET,   PUNCH,    UPFLAG\r\n      INTEGER         SCREEN,   PROM,     FFFLAG,   FACSF,    NC(7),\r\n     1                IBM,      UNIVAC,   CDC,      VAX,      PC,\r\n     2                UNIX\r\n      CHARACTER*1     FN(1),    BK1,      N1,       Y1,       X1,\r\n     1                S1,       W1,       A1,       H1,       CARD1(5),\r\n     2                FX,       MARKQ,    QMARK,    TMP,      RPRN,\r\n     3                SPL(8),   DOT,      D1,       T1\r\n      CHARACTER*2     CARD2,    REPL\r\n      CHARACTER*3     NEW,      OLD,      ODNW\r\n      CHARACTER*4     CARD(20), SAVE(20), BEGN,     HELP,     STOP,\r\n     1                LIST,     BLANK,    END1,     END2,     END3,\r\n     2                CANC1,    CANC2,    ALTER,    CARD4,    FN4,\r\n     3                BBK(2),   KSMB(9)\r\n      CHARACTER*6     FN6,      BEGN6,    HELP6,    STOP6,    CARD6,\r\n     1                MTYPE(7), CNTLWD(3)\r\n      CHARACTER*8     FNAME(4), MYFILE,   BLNK8,    SITE,     CNTRL,\r\n     1                USE(2),   SYM(4),   TAPEO3,   TPF,      FOROO3,\r\n     2                DORK,     KEEP,     SPILL\r\n      CHARACTER*11    F\r\n      CHARACTER*32    FN32\r\n      COMMON /SYSTEM/ IBUF,     NOUT,     NOGO,     IN,       ISYS(15)\r\n      COMMON /MACHIN/ MACH\r\n      COMMON /XXREAD/ INFLAG,   INSAVE,   LOOP4,    IBMCDC\r\n      COMMON /XECHOX/ FFFLAG,   IECHO(3), ISORT(5)\r\n      COMMON /XREADX/ SCREEN,   LOOP,     KOUNT,    PROM,     NOTYET,\r\n     1                STAR,     PCT,      ICONT(36)\r\n      COMMON /QMARKQ/ MARKQ,    TMP(16),  SPILL,    SAVE\r\n      COMMON /UPCASX/ UPFLAG,   UPID(3)\r\n      EQUIVALENCE     (FN(1),FN4,FN6,FN32,FNAME(1)),(XXI,LLI),\r\n     1                (CARD(1),CARD6,CARD1(1),CARD2,CARD4),\r\n     2                (SPL(1),SPILL)\r\n      DATA            BEGN,     HELP,     STOP,     BLANK,    BK1    /\r\n     1                'BEGI',   'HELP',   'STOP',   '    ',   ' '    /\r\n      DATA            BEGN6,    HELP6,    STOP6,    BLNK8,    KEEP   /\r\n     1                'BEGIN ', 'HELP  ', 'STOP  ', '    ',   'KEEP' /\r\n      DATA            END1,     END2,     END3,     N1,       ALTER  /\r\n     1                'ENDD',   'END ',   'ENDA',   'N',      'LTER' /\r\n      DATA            CANC1,    CANC2,    DORK,     LLI,      LLJ    /\r\n     1                'CANC',   'EL  ',   'DELETE', 4H  I ,   4H  J  /\r\n      DATA            CNTRL,    MYFILE,   NEW,      OLD,      Y1     /\r\n     1                'CENTRAL','MIFYLE', 'NEW',    'OLD',    'Y'    /\r\n      DATA            NC/ 12,   7,   28,  7,   28,  0,  28           /\r\n      DATA            UNIVAC,   IBM, CDC, VAX, PC,      UNIX         /\r\n     1                3,        2,   4,   5,   1,       7            /\r\n      DATA            MTYPE                                          /\r\n     1                'IBM PC', '  IBM',  'UNIVAC', '  CDC',  '  VAX',\r\n     2                ' ***  ', '  UNIX'                             /\r\n      DATA            TAPEO3,   TPF,      FOROO3,   F                /\r\n     1                'TAPE3.', 'FF$$.',  'FT03.',  'FF       FF'    /\r\n      DATA            S1,       A1,       BBK,                LIST   /\r\n     1                'S',      'A',      '(BLA', 'NK) ',     'LIST' /\r\n      DATA            W1,       H1,       FX,       RPRN,     ICNTL  /\r\n     1                'O',      'H',      'X',      ')',      0      /\r\n      DATA            DOT,      D1,       T1                         /\r\n     1                '.',      'D',      'T'                        /\r\n      DATA            CNTLWD,                       NCNTL,    REPL   /\r\n     1                'CANCEL', 'PROMPT', 'LIST  ', 3,        'R:'   /\r\n      DATA            KSMB  /   '+C0N',   '+C1N',   '+C2N',   '+C3N' ,\r\n     1                '+C4N',   '+C5N',   '+C6N',   '+C7N',   '+C8N' /\r\n      DATA      USE / '@USE 3.,', 'FF$$ .  '/       PUNCH /   .FALSE./\r\n      DATA      SYM / '@SYM    ', 'PUNCH$,,', '****', ' . '          /\r\n      DATA            QMARK / '?' /\r\nC     QMARK  IS QUESTION MARK -  0/12 PUNCH FOR 26 CODE\r\nC                               0/7/8 PUNCH FOR 29 CODE\r\nC\r\n      J = LLJ - LLI\r\n      MACH = IBM\r\n      IF (J .EQ.   256) MACH = PC\r\n      IF (J .EQ.   512) MACH = UNIVAC\r\n      IF (J .GT. 65535) MACH = VAX\r\n      IF (J .GT. 2**30) MACH = CDC\r\n      IF (MACH.EQ.VAX .AND. (XXI.GT.1.60E-19 .OR. XXI.LT.1.8E-19))\r\n     1    MACH = UNIX\r\n      IF (MACH.EQ.VAX .AND. (XXI.GT.3.40E-20 .OR. XXI.LT.3.39E-20))\r\n     1    MACH = PC\r\nC\r\n      LU      = 2\r\n      LOUT    = 3\r\n      IN      = 5\r\n      NOUT    = 6\r\n      IPUN    = 7\r\n      SCREEN  = 6\r\n      IF (MACH .EQ. VAX) SCREEN = 5\r\n      LOOP    =-1\r\n      KOUNT   = 0\r\n      KONTN   = 10000000\r\n      IKI     = 1\r\n      PROM    =+1\r\n      STAR    =.FALSE.\r\n      PCT     =.FALSE.\r\n      NOTYET  =.FALSE.\r\n      MARKQ   = QMARK\r\n      IECHO(2)=-2\r\n      INSAVE  = IN\r\n      INFLAG  = 0\r\n      FFFLAG  = 0\r\n      UPFLAG  =.FALSE.\r\n      ISYS(15)= 0\r\n      J       = NC(MACH)\r\n      CARD4   = BLANK\r\n      CARD6   = STOP6\r\n      FN4     = STOP\r\n      FN6     = STOP6\r\n      LOOP4   = LOOP - 4\r\n      DO 5 I = 1,20\r\n 5    SAVE(I) = BLANK\r\n      IBMCDC = UNIVAC + VAX + PC\r\n      IF (MACH.EQ.IBM .OR. MACH.EQ.CDC) IBMCDC = 0\r\nC\r\nC     IF MACHINE IS CDC, OPEN INPUT, OUTPUT, AND PUNCH FILES\r\nC\r\n      IF (MACH .NE. CDC) GO TO 20\r\n      OPEN (UNIT=IN  ,FILE='INPUT' ,STATUS='UNKNOWN')\r\n      OPEN (UNIT=NOUT,FILE='OUTPUT',STATUS='UNKNOWN')\r\n      OPEN (UNIT=IPUN,FILE='PUNCH' ,STATUS='UNKNOWN')\r\n      OPEN (UNIT=LOUT,FILE='TAPE3' ,STATUS='UNKNOWN',ERR=15)\r\n      GO TO 20\r\nC\r\n 15   STOP 'SCRATCH FILE ERROR, UNIT 3'\r\nC\r\n 20   WRITE  (NOUT,25) (F,I=1,7),MTYPE(MACH),(F,I=1,4)\r\n 25   FORMAT (/////15X,A11, /14X,A11, 3(/13X,A11), /8X,2(3X,'FFFFFF'),\r\n     1       2(/13X,A11),7X,A6,' VERSION / APRIL 93', /13X,A11,\r\n     2       /12X,A11,10X,'COSMIC, (706) 542-3265', /11X,A11,11X,\r\n     3       'UNIVERSITY OF  GEORGIA', /10X,A11,12X,'ATHENS, GEORGIA',\r\n     4       '  30602')\r\n 30   WRITE  (NOUT,35) J\r\n 35   FORMAT (//,' *** ENTER A BLANK, ''HELP'', OR A FILE NAME (UP TO'\r\n     1,       I3,' CHARACTERS)', /5X,'IF OUTPUT IS TO BE SAVED')\r\n      READ (IN,40,ERR=330,END=330) FNAME\r\n 40   FORMAT (4A8)\r\n      IF (FNAME(1) .EQ. MYFILE) CALL FFHELP (*30,*600,4)\r\n      IF (FNAME(1) .EQ. BLNK8) FNAME(1) = MYFILE\r\n      IF (FN(J+1).NE.BK1 .OR. FN(J+2).NE.BK1 .OR. FN(J+3).NE.BK1)\r\n     1   GO TO 330\r\n      IF (FNAME(2) .NE. BLNK8) GO TO 50\r\n      CALL UPCASE (FNAME,J)\r\n      IF (FN6 .EQ. BEGN6) GO TO 330\r\n      IF (FN6 .EQ. STOP6) GO TO 600\r\n      IF (FN6 .EQ. HELP6) CALL FFHELP (*30,*600,1)\r\n 50   ODNW = OLD\r\n      IF (MACH .NE. VAX) GO TO 60\r\n      DO 52 I = 2,J\r\n      IF (FN(I) .EQ. DOT) GO TO 60\r\n      IF (FN(I) .EQ. BK1) GO TO 55\r\n 52   CONTINUE\r\n      I = J + 1\r\n 55   FN(I  ) = DOT\r\n      FN(I+1) = D1\r\n      FN(I+2) = A1\r\n      FN(I+3) = T1\r\n 60   IF (MACH .NE. IBM) GO TO 65\r\nC\r\nC     IBM ONLY, WE CALL SYSTEM ROUTINES\r\nC         IQZDDN TO DETERMINE WHETHER FILES EXIST OR NOT\r\nC         QQDCBF TO DYNAMICALLY BUILD AN ATTRIBUTE LIST BY DDNAME\r\nC         QQGETF TO DYNAMICALLY ALLOCATE FILES IN TSO OR BATCH\r\nC\r\n      I = IQZDDN(FNAME(1))\r\n      ODNW = OLD\r\n      IF (I .EQ. 0) ODNW = NEW\r\n      IF (ODNW .EQ. NEW) CALL QQDCBF (FNAME(1),0,'F  ',80,80,DA)\r\n      CALL QQGETF (LU,FNAME(1),IERR)\r\n      IF (IERR .NE. 0) GO TO 130\r\nC\r\n 65   IF (IBMCDC.EQ.0) OPEN (UNIT=LU,FILE=FNAME(1),STATUS=ODNW,ERR=130)\r\n      IF (IBMCDC.NE.0) OPEN (UNIT=LU,FILE=FN32    ,STATUS=ODNW,ERR=130)\r\n      IF (ODNW .EQ. NEW) GO TO 140\r\n 70   WRITE  (NOUT,80)\r\n 80   FORMAT (/,' FILE ALREADY EXISTS, ENTER ''STOP'', ''OVERWRITE'',',\r\n     1        ' OR ''APPEND'' -')\r\n      IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN\r\n      READ (IN,90,END=70) X1\r\n 90   FORMAT (A1)\r\n      CALL UPCASE (X1,1)\r\n      IF (X1 .EQ. S1) GO TO 480\r\n      IF (X1 .EQ. W1) GO TO 140\r\n      IF (X1 .NE. A1) GO TO 70\r\n      SAVE(2) = BBK(1)\r\n      SAVE(3) = BBK(2)\r\n 110  READ (LU,180,END=115) SAVE\r\n      IF (SAVE(1).EQ.BEGN .AND. SAVE(4).EQ.BLANK) FFFLAG = 1234\r\n      IF (SAVE(19) .EQ. KSMB(IKI)) IKI = IKI + 1\r\n      GO TO 110\r\n 115  BACKSPACE LU\r\n      IF (FFFLAG .EQ. 1234) WRITE (NOUT,120)\r\n 120  FORMAT (/,' IF EXISTING FILE CONTAINS FREE-FIELD INPUT CARDS, ',\r\n     1        ' THIS PROGRAM WILL NOT', /5X,'EXPAND THEM TO FIXED-',\r\n     2        ' FIELD FORMATS',/)\r\n      WRITE (NOUT,255) SAVE\r\n      IF (FFFLAG.EQ.1234 .AND. INFLAG.EQ.0) CALL FFHELP (*125,*125,5)\r\n 125  CARD(1) = SAVE(1)\r\n      CARD(2) = SAVE(2)\r\n      GO TO 140\r\n 130  IF (ODNW .EQ. NEW) GO TO 310\r\n      ODNW = NEW\r\n      GO TO 60\r\n 140  IF (MACH .EQ. UNIVAC) J = FACSF(USE)\r\n      IF (FNAME(1) .EQ. MYFILE) FNAME(1) = BLNK8\r\n      IF (FNAME(1) .EQ.  BLNK8) WRITE (NOUT,150)\r\n 150  FORMAT (/5X,'*** OUTPUT NOT SAVED ***',//)\r\n      WRITE  (NOUT,160)\r\n 160  FORMAT (//,' *** NASTRAN FREE-FIELD INPUT PROGRAM ***',\r\n     1 /5X,'(THERE WILL BE NO INPUT ECHO UNTIL ''BEGIN BULK'' IS TYPED',\r\n     2 /5X,' TO TERMINATE JOB:  ENTER ''ENDDATA'' OR ''STOP'')',\r\n     3 //5X,'PLEASE BEGIN -',/)\r\n 170  CALL FFREAD (*320,CARD)\r\n      IF (CARD4.EQ.CANC1 .AND. CARD(2).EQ.CANC2) GO TO 230\r\n      IF (CARD4.EQ. LIST .AND. CARD(2).EQ.BLANK) GO TO 230\r\n      IF (CARD2.EQ. REPL .AND. CARD(4).EQ.BLANK) GO TO 350\r\n      IF (CARD4.EQ. STOP .AND. CARD(2).EQ.BLANK) GO TO 400\r\n      IF (CARD4.EQ.BLANK .AND. CARD(2).EQ.BLANK) GO TO 370\r\n      IF (CARD4.EQ. HELP .AND. CARD(2).EQ.BLANK)\r\n     1   CALL FFHELP (*280,*400,2)\r\n      IF (LU .EQ. 2) WRITE (LU,180) CARD\r\n 180  FORMAT (20A4)\r\n      IF (FFFLAG.NE.1234 .AND. INFLAG.EQ.4) WRITE (NOUT,190) CARD\r\n 190  FORMAT (1X,20A4)\r\n      IF (CARD4.EQ.BEGN .AND. CARD(5).EQ.BLANK) GO TO 340\r\n      IF (CARD4.NE.END1 .AND. CARD4.NE.END2 .AND. CARD4.NE.END3)\r\n     1   GO TO 170\r\n      IF (CARD(2).EQ.BLANK .OR. CARD(2).EQ.ALTER) GO TO 170\r\n      GO TO 410\r\n 230  IF (LU .NE. 2) GO TO 290\r\n      J = 1\r\n      IF (CARD(5).EQ.CANC1 .AND. ICONT(1).GT.0) J = ICONT(1) + 1\r\n      IF (CARD(5).EQ. LIST .AND. ICONT(1).GT.0) J = ICONT(1)\r\n      DO 240 I = 1,J\r\n 240  BACKSPACE LU\r\n      ICONT(1) = 0\r\n      IF (CARD(5) .EQ. LIST) GO TO 260\r\n      READ (LU,180) SAVE\r\n      J = J - 1\r\n      WRITE  (NOUT,250) J\r\n 250  FORMAT (1X,I4,' PREVIOUSLY GENERATED CARDS CANCELLED ***')\r\n      IF (J .GT. 0) WRITE (NOUT,255) SAVE\r\n 255  FORMAT (/,' *** LAST CARD WAS:', /1X,20A4)\r\n      GO TO 280\r\n 260  WRITE  (NOUT,265) J\r\n 265  FORMAT (//,' *** PREVIOUS',I4,' CARDS WERE (COLS. 1-79) -',/)\r\n      DO 270 I = 1,J\r\n      READ (LU,180,END=285) SAVE\r\n 270  WRITE  (NOUT,275) SAVE\r\n 275  FORMAT (1X,20A4)\r\n 280  CARD(1) = SAVE(1)\r\n      CARD(2) = SAVE(2)\r\n      GO TO 170\r\n 285  BACKSPACE LU\r\n      SAVE(1) = CARD(1)\r\n      SAVE(2) = CARD(2)\r\n      GO TO 170\r\n 290  WRITE  (NOUT,300) CARD4,CARD(2)\r\n 300  FORMAT (' *** ',A4,A3,'OPTION NOT ACTIVE.  NO SAVE FILE ',\r\n     1        'REQUESTED')\r\n      GO TO 170\r\n 310  WRITE  (NOUT,315) FNAME\r\n 315  FORMAT (' *** CAN NOT ASSIGN FILE - ',4A8)\r\n      GO TO 20\r\n 320  WRITE  (NOUT,325)\r\n 325  FORMAT (' *INPUT ERROR/FF*')\r\n      GO TO 170\r\n 330  WRITE  (NOUT,335)\r\n 335  FORMAT (' *NOT A VALID FILE NAME*')\r\n      IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN\r\n      GO TO 20\r\n 340  FFFLAG = 1234\r\n      IF (INFLAG .EQ. 0) CALL FFHELP (*170,*170,5)\r\n      GO TO 170\r\nC\r\nC ... EDIT PREVIOUS LINE BY R:n)xxx\r\nC\r\n 350  I = 3\r\n      IF (CARD1(5) .EQ. RPRN) I = 4\r\n      READ (CARD1(I),355,ERR=170) II\r\n 355  FORMAT (I1)\r\n      IF (II .EQ. 0) II = 10\r\n      I = I + 2\r\n      DO 360 J = 1,8\r\n      SPL(J) = CARD1(I)\r\n 360  I = I + 1\r\n      SAVE(II) = SPILL\r\n      DO 365 I = 1,10\r\n 365  CARD(I) = SAVE(I)\r\n      BACKSPACE LU\r\n      WRITE (LU,  180) SAVE\r\n      WRITE (NOUT,190) SAVE\r\n      GO TO 170\r\nC\r\nC ... FIRST 2 FIELDS ARE BLANK, OTHER FIELDS NOT, TREAT IT AS A\r\nC     CONTINUATION CARD IF PREVIOUS CARD HAS A BLANK CONTINUATION FIELD\r\nC\r\n 370  IF (LU .NE. 2) GO TO 385\r\n      DO 375 J = 3,18\r\n      IF (CARD(J) .NE. BLANK) GO TO 380\r\n 375  CONTINUE\r\n      GO TO 170\r\n 380  BACKSPACE LU\r\n      READ (LU,180) SAVE\r\n      IF (SAVE(19) .EQ. BLANK) GO TO 390\r\n      WRITE  (NOUT,382)\r\n 382  FORMAT (/,' BAD INPUT - FIRST FIELD BLANK. TRY AGAIN')\r\n      WRITE  (NOUT,383)\r\n 383  FORMAT (13X,'NOT ALLOW. PREVIOUS CARD HAS CONTINUATION FIELD ',\r\n     1        'DEFINED')\r\n      GO TO 170\r\n 385  WRITE  (NOUT,382)\r\n      WRITE  (NOUT,387)\r\n 387  FORMAT (13X,'NOT ALLOW WITHOUT SAVE FILE')\r\n      GO TO 170\r\n 390  KONTN = KONTN + 1\r\n      IF (MOD(KONTN,10000) .EQ. 0) IKI = IKI + 1\r\n      CALL INT2K8 (*385,KONTN,SAVE(19))\r\n      SAVE(19) = KSMB(IKI)\r\n      CARD(1 ) = KSMB(IKI)\r\n      CARD(2 ) = SAVE(20)\r\n      WRITE  (NOUT,395)\r\n 395  FORMAT (' ...PREVIOUS CARDS REPLACED BY:')\r\n      WRITE (NOUT,190) SAVE\r\n      WRITE (NOUT,190) CARD\r\n      BACKSPACE LU\r\n      WRITE (LU,180) SAVE\r\n      WRITE (LU,180) CARD\r\n      GO TO 170\r\nC\r\n 400  BACKSPACE LOUT\r\n 410  ENDFILE LOUT\r\n      IF (LU .NE. 6) ENDFILE LU\r\n      PUNCH =.FALSE.\r\n      SITE  = BLNK8\r\n 420  WRITE  (NOUT,430) QMARK\r\n 430  FORMAT (/,' *** DO YOU WANT TO PUNCH OUT THE NASTRAN DECK',A1,\r\n     1       ' (Y,N,X,HELP) ')\r\n      IF (MACH.EQ.CDC .AND. IN.EQ.5) REWIND IN\r\n      READ (IN,90,END=420) X1\r\n      CALL UPCASE (X1,1)\r\n      IF (X1 .EQ. H1) CALL FFHELP (*420,*480,3)\r\n      IF (X1 .EQ. N1) GO TO 500\r\n      IF (X1.NE.Y1 .AND. X1.NE.FX) GO TO 420\r\n      PUNCH =.TRUE.\r\n      LX = LOUT\r\n      IF (X1 .EQ. FX) LX = LU\r\n      IF (MACH .NE. UNIVAC) GO TO 460\r\n      IPUN = 1\r\n      WRITE  (NOUT,440)\r\n 440  FORMAT (/,' *** ENTER SITE-ID, OR ''CENTRAL'', WHERE CARDS ARE',\r\n     1       ' TO BE PUNCHED ')\r\n 450  READ (IN,40,ERR=450,END=450) SITE\r\n      IF (SITE .EQ. BLNK8) GO TO 490\r\n      CALL UPCASE (SITE,8)\r\n      IF (SITE .EQ. CNTRL) GO TO 460\r\nC\r\nC     SEND PUNCH DECK TO SITE AS REQUESTED BY THE USER - UNIVAC ONLY\r\nC-UNV FACSF IS UNIVAC SYSTEM FUNCTION\r\nC\r\n      SYM(3) = SITE\r\n      J = FACSF(SYM)\r\n 460  REWIND LX\r\n 470  READ (LX,180,END=500) CARD\r\n      DO 475 J = 2,NCNTL\r\n      IF (CARD6 .NE. CNTLWD(J)) GO TO 475\r\n      IF (CARD(4) .EQ. BLANK) GO TO 470\r\n 475  CONTINUE\r\n      IF ((CARD6.EQ.HELP6 .OR. CARD6.EQ.STOP6) .AND. CARD(3).EQ.BLANK)\r\n     1   GO TO 470\r\n      IF (CARD6.EQ.CNTLWD(1) .AND. CARD(4).EQ.BLANK) ICNTL = ICNTL + 1\r\n      WRITE (IPUN,180) CARD\r\n      GO TO 470\r\nC\r\n 480  FNAME(1) = BLNK8\r\n 490  PUNCH    =.FALSE.\r\n 500  WRITE  (NOUT,510)\r\n 510  FORMAT (//10X,'ADIEU MY FRIEND.  IT IS A PLEASURE TO SERVE YOU')\r\n      IF (FNAME(1) .NE. BLNK8) WRITE (NOUT,520) FNAME\r\n 520  FORMAT (10X,'DON''T FORGET - YOUR NASTRAN DECK IS IN FILE -',\r\n     1    /25X,4A8, /10X,'WHICH IS ACCESSIBLE BY THE SYSTEM EDITOR')\r\n      IF (.NOT.PUNCH) GO TO 550\r\n      WRITE  (NOUT,530)\r\n 530  FORMAT (/10X,'AND DON''T FORGET TO PICK UP YOUR PUNCHED CARDS')\r\n      IF (SITE .NE. BLNK8) WRITE (NOUT,535) SITE\r\n      IF (SITE.EQ.BLNK8 .AND. MACH.NE.VAX) WRITE (NOUT,540)\r\n      IF (SITE.EQ.BLNK8 .AND. MACH.EQ.VAX) WRITE (NOUT,545)\r\n 535  FORMAT (10X,'WHEN YOU SIGN OFF',22X,'SITE-ID: ',A8)\r\n 540  FORMAT (10X,'AT THE CENTRAL-SITE')\r\n 545  FORMAT (10X,'IN FORTRAN FILE FOR007.DAT')\r\n 550  IF (FNAME(1) .EQ. BLNK8) GO TO 570\r\n      IF (MACH .EQ. UNIVAC) FOROO3 = TPF\r\n      IF (MACH .EQ.    CDC) FOROO3 = TAPEO3\r\n      WRITE  (NOUT,555)\r\n 555  FORMAT (//10X,'A COPY OF YOUR ACTUAL INPUT CARDS WAS SAVED IN')\r\n      IF (MACH .NE. VAX) WRITE (NOUT,560) FOROO3\r\n      IF (MACH .EQ. VAX) WRITE (NOUT,565)\r\n 560  FORMAT (1H+,56X,'FORTRAN FILE - ',A8)\r\n 565  FORMAT (10X,'FORTRAN FILE FOR003.DAT')\r\n 570  IF (ICNTL .NE. 0) WRITE (NOUT,575)\r\n 575  FORMAT (/4X,'*** WARNING - CANCELLED CARDS IN PUNCHED DECK NEED ',\r\n     1       'TO BE REMOVED', /19X,'OR MODIFIED BEFORE USE')\r\n      IF (FNAME(1) .NE. BLNK8) DORK = KEEP\r\n      CLOSE (UNIT=LU  ,STATUS=DORK)\r\n      CLOSE (UNIT=LOUT,STATUS=DORK)\r\n      IF (DORK.EQ.KEEP .OR. (PUNCH .AND. MACH.EQ.VAX)) WRITE (NOUT,585)\r\n 585  FORMAT (/4X,'*** DON''T FORGET TO DELETE YOUR FILES GENERATED BY',\r\n     1       ' THIS RUN ***')\r\n      WRITE  (NOUT,590)\r\n 590  FORMAT (/26X,'*** JOB DONE ***',/)\r\n 600  CONTINUE\r\n      END\r\n"
  },
  {
    "path": "utility/nastplot.f",
    "content": "      PROGRAM NASTPLOT        \r\nC        \r\nCDC   PROGRAM NASPLOT (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT,           \r\nCDC                    TAPE13,TAPE14,TAPE15,TAPE16,TAPE17)              \r\nC        \r\nC     A STAND-ALONE TRANSLATOR PROGRAM (NASTPLOT or NASPLOT) TO        \r\nC     INTERPRET THE NASTRAN GENERAL PURPOSE PLOTTER FILE (OR TAPE)      \r\nC        \r\nC     THIS ROUTINE SHOULD NOT BE COMPILED AND INCLUDED IN NASTRAN       \r\nC     LIBRARY        \r\nC     THIS NASTPLOT PACKAGE INCLUDES THE FOLLOWING SUBROUTINES/AND      \r\nC     ENTRY POINTS        \r\nC        \r\nC          GETCMD, DRWAXS/ENDAXS, DRWKHR/ENDCHR, DRWLIN/ENDLIN,        \r\nC          TXNPEN, TXINIT/TXFINS, TXPLOT, PSINIT/PSFINS/PSTRKE,        \r\nC          PSLINE, PSCHAR/PSENDC        \r\nC     IF TEKTRONIX PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES ARE    \r\nC     AVAILABLE IN THE COMPUTER SYSTEM. THE NEXT SUBROUTINES ARE USED   \r\nC          NASTEK, PFRAME \r\nC     (ACTIVATE NASTEK AND PFRAME BY REPLACE C+ BY 2 BLANKS IN FIRST 2\r\nC     COLUMNS OF TEXT BELOW)        \r\nC        \r\nC     IF PLOT-10 AND ADVANCED GRAPHING II ARE NOT AVAILABLE, THE LINES  \r\nC     BETWEEN LABELS 250 AND 260 SHOULD BE COMMENTED OUT OR DELETED.    \r\nC        \r\nC     INPUT FILE: NASTRAN PLT1 OR PLT2 FILE        \r\nC     PLOTTER   : TEKTRONIX OR POSTSCRIPT FILE(S)        \r\nC        \r\nC     ***************************************************************   \r\nC     *   DO NOT COMPILE THIS PROGRAM NOR INSERT ALL RELOCATABLES   *   \r\nC     *   INTO NASTRAN LIBRARY                                      *   \r\nC     *   (HOWEVER. IT DOES NO HARM)                                *   \r\nC     ***************************************************************   \r\nC        \r\nC     THE PLOTTING SECTION OF THIS PROGRAM IS PLOTTER DEPENDENT.        \r\nC     CURRENTLY TEKTRONIX PLOTTER OR POSTSCRIPT PRINTER ARE USED.       \r\nC     ALL SUPPORTING ROUTINES WITH PREFIX 'TX' ARE TEKTRONIX ASSOCIATED \r\nC     AND THOSE WITH PREFIX 'PS' ARE POSTSCRIPT ASSOCIATED. THE 'PS'    \r\nC     ROUTINES USE ONLY STANDARD FORTRAN COMMANDS.        \r\nC        \r\nC     SUBROUTINE GETCMD IS USED ONLY WHEN MACHINE THAT GENERATED THE    \r\nC     PLOT FILE AND THE MACHINE THAT IS NOW READING THE PLOT FILE HAVE  \r\nC     DIFFERENT NUMBER OF BITS PER COMPUTER WORD.        \r\nC     CURRENTLY GETCMD IS NOT WORKING.        \r\nC        \r\nC     A PC VERSION (MS-DOS/BASIC WITH GRAHPIC) IS ALSO AVAILABLE WHICH  \r\nC     USES ONLY PLT1 FILE. NO SPECIAL HARDWARE OR SOFTWARE ARE NEEDED.  \r\nC        \r\nC     WRITTEN BY G.CHAN/UNISYS, 3/1991        \r\nC        \r\nC        \r\nC     THE '$' ON A FORMAT LINE IS VAX SPECIAL. IT SHOULD BE DELETED IN  \r\nC     ALL NON-VAX MACHINES.        \r\nC        \r\nC     VAX ONLY: SEE THE OPEN STATEMENT AFTER STA. 600 FOR STANDARD OUT- \r\nC     PUT LIST FILE.        \r\nC        \r\nC     CDC ONLY: DELETE THE 'EOF' ON-LINE FUNCTION,        \r\nC               RE-ACTIVATE THE ON-LINE 'ISHFT' FUNCTION BELOW, AND     \r\nC               SET 'AA' AND 'BB' TO REAL, NOT D.P.        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      LOGICAL      CHRSET,LINSET,AXSSET,VAX,IBM,TEK,PSC,NOTYET,FOUND,   \r\n     1             ADOT,LUX,DEBUG        \r\n      INTEGER      Z(3000),W(30)        \r\n      REAL         XFACT,YFACT,XSIZE,YSIZE,SX,SY,SCALE,CSCAL        \r\n      REAL*8       AA,BB        \r\nCCDC  REAL         AA,BB        \r\n      CHARACTER*1  TEMP,ESC,NUMB1(10),CHR1(5),BLNK1,STP1,NXT1,NA1(32),  \r\n     1             KD,KP,KL,KT,K1,K2,KB,KI,KU,KC,KV,KX,KY,KP1,KL1,KT1,  \r\n     2             K12,KN1,KS1,KH,STR,AL1,KA1,KR1,KNUM(2),KNUM1,BELL,   \r\n     3             KQ1,DorS,A1Z(26)        \r\n      CHARACTER*4  NAM4,BLNK4,STOP4,CHR4        \r\n      CHARACTER*32 NAM32,MACH32,MACH33        \r\n      CHARACTER    CLEAR*2,KNUM2*2,MACH3*3,XX3*3,NUMB10*10,DATE13*13,   \r\n     1             FMT500*8,A2Z*26        \r\n      COMMON       CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,    \r\n     1             XLO,YLO,PENCHG,PENCNT,OLDPEN,PENNO(99)        \r\n      COMMON /IO/  IN,NOUT        \r\n      COMMON /EC/  ESC,CLEAR        \r\n      COMMON /QQ/  BI,BO,WRD,BYT,DUM(22)        \r\n      COMMON /PS/  LU,SCALE,JOUNT,NBUFF,ONCE,CSCAL,CHRPOS        \r\n      EQUIVALENCE  (NUMB1(1),NUMB10), (BLNK4,BLNK1), (CHR1(1),CHR4),    \r\n     1             (NAM4,NAM32,NA1(1)), (MACH3,MACH32), (Z(1),W(1)),    \r\n     2             (KNUM(1),KNUM1,KNUM2), (A1Z(1),A2Z)        \r\n      DATA         CHRSET,LINSET,AXSSET,TEK,PSC  / 5*.FALSE.     /,     \r\n     1             NOLINE,SELECT,PLOTID,DEBUG / 2*0, -1, .TRUE.  /,     \r\n     2             XSIZE,YSIZE,YES,NO,KQ1 / 1.2, 1., 1HY,1HN, 'q'/,     \r\n     3             STR,BLNK4,NUMB10 / '*', '    ',  '1234567890' /,     \r\n     4             AA,BB,FMT500     / 1.D-21, 1.D-25, '(3000A1)' /,     \r\n     5             STP1,NXT1,DATE13 / 'S', 'N', 'OCT. 27, 1990'  /,     \r\n     6             KD,KP,KL,KT,KB   / '.', 'P', 'L', 'T', ' '    /,     \r\n     7             KH,KP1,KL1,KT1,K1/ 'H', 'p', 'l', 't', '1'    /,     \r\n     8             KI,KU,KC,KV,KX   / 'I', 'U', 'C', 'V', 'X'    /,     \r\n     9             KY,K2,XX3,AL1,KA1/ 'Y', '2', 'UNX','A','a'    /,     \r\n     O             KN1,KS1,SYY,SNN  / 'n', 's', 1Hy, 1Hn         /,     \r\n     1             T4,T3,T2,T1,KR1  / 10000,  1000, 100, 10, 'R' /,     \r\n     2             MACH32   / 'VAX/TEKTRONIX COMPUTER GRAPHIC  ' /,     \r\n     3             MACH33   / 'VAX/POSTSCRIPT COMPUTER GRAPHIC ' /,     \r\n     4             STOP4,A2Z/ 'STOP','ABCDEFGHIJKLMNOPQRSTUVWXYZ'/,     \r\n     5             DorS     / '.'                                /,     \r\n     6             MASK     / '000000FF'X                        /      \r\nC    6             MASK     / X'000000FF', Z000000FF,  63,  511        \r\nC                               UNIX     ,   IBM    , CDC, UNIVAC       \r\nC        \r\nC     SUMMARY OF PROGRAM'S VARIABLES:        \r\nC        \r\nC       VAX = .TURE. IF CURRENT MACHINE IS A  VAX, .FALSE. OTHERWISE    \r\nC       IBM = .TURE. IF CURRENT MACHINE IS AN IBM, .FALSE. OTHERWISE    \r\nC       TEK = .TRUE., TEKTRONIX SCREEN PLOT        \r\nC       PSC = .TURE., POSTSCRIPT FILES GENERATION        \r\nC      MASK = A MASK USED TO PICK UP THE LAST CHARACTER OF A WORD       \r\nC             (MACHINE DEPENDENT)        \r\nC       NBS = NO OF BITS TO BE SHIFTED        \r\nC           = 24 = 3*8, FOR IBM, VAX        \r\nC           = 54 = 9*6, FOR CDC        \r\nC           = 27 = 3*9, FOR UNIVAC        \r\nC       K12 = 1 OR 2 FOR 'PLT1' OR 'PLT2' FILE        \r\nC       PID = 0, IF PLOT FILE DOES NOT HAVE A PLOT-ID FRAME,        \r\nC           = 1, OTHERWISE        \r\nC       ALL = 'Y', STACK ALL PLOTS INTO ONE POSTSCRIPT FILE        \r\nC           = 'N', OTHERWISE.   (= 0, UNDEFINED STATUS)        \r\nC        BI = NO. OF BITS PER WORD OF CURRENT COMPUTER RUNNING NASTPLOT \r\nC        BO = NO. OF BITS PER WORD OF THE COMPUTER WHICH GENERATED THE  \r\nC             PLT1 OR PLT2 TILE        \r\nC       FIL = INPUT  FILE UNIT FOR PLT1 OR PLT2    (FRMTTD, SQUNTL)     \r\nC       LU  = OUTPUT FILE UNIT FOR POSTSCRIPT FILE (FRMTTD, SQUNTL)     \r\nC      LUX  = IF .TRUE. AND ALL = 'N', LU UNIT NUMBER INCREASES BY 1    \r\nC             EACH TIME A NEW POSTSCRIPT FILE IS GENERATED        \r\nC       IN  = SYSTEM INPUT  FILE, UNIT 5        \r\nC      NOUT = SYSTEM OUTPUT FILE, UNIT 6        \r\nC    LUOPEN = 0, NO LU FILE OPENED.  = 1, LU FILE ALREADY OPENED        \r\nC    NOLINE = 1, ADD \"%!\" LINE AT THE BEGINNING OF A POSTSCRIPT FILE    \r\nC           = 0, NO SUCH LINE ADDED        \r\nC    CHRPOS = 0, TYPING CHARACTERS ON POSTCRIPT FILE WILL BE STRUNG     \r\nC             TOGETHER FOR ONE OUTPUT COMMAND        \r\nC           = 1, (VIA POSTSCRIPT HELP ONLY) EACH TYPING CHARACTER IS    \r\nC             SENT OUT AS A POSTSCRIPT COMMAND        \r\nC       RL  = RECORD LENGTH IN WORDS        \r\nC       NW  = NO. OF WORDS PER PLOT COMMNAD        \r\nC       JID = WORD LOCATION OF PLOT ID NUMBER IN RECORD        \r\nC       DOT = LOCATION OF '.' IN THE INPUT FILE NAME        \r\nC      DorS = '.' OR '/', ON FILE NAME        \r\nC      ADOT = FLAG FOR THE ORIGINAL FILE NAME THAT HAS A DOT, OR NO DOT \r\nC      NREC = NO. OF PHYSICAL RECORDS READ FROM INPUT FILE FIL        \r\nC       NRC = ECHO CONTROL = NO. RECORDS/ECHO        \r\nC     JOUNT = NO. OF POSTSCRIPT OUTPUT LINES ACCUMULATED AFTER 'stroke' \r\nC     NBUFF = POSTCRIPT BUFFER SIZE (BETWEEN 'stroke')        \r\nC       KK  = A COUNTER - NO. OF RECORDS READ ON THE PLOT TAPE        \r\nC    NOTYET = .TRUE. WHEN 1ST NEW PLOT COMMAND HAS NOT FULLY PROCESSED  \r\nC       PNO = SEQUENTIAL PLOT FRAME NUMBER ON PLOT TAPE        \r\nC     FOUND = .TURE. WHEN A NEW PLOT FOUND ON PLOT TAPE (CMND=1)        \r\nC    SELECT = PLOT ID NO. USER SELECTED FOR PLOTTING        \r\nC    LASTSL = PLOT ID NO. LAST SELECTED BY USER        \r\nC     NPLOT = NO. OF PLOTS ACCUMULATED IN THE POSTSCRIPT FILE        \r\nC    PLOTID = CURRENT PLOT ID NO. FOUND ON PLOT TAPE        \r\nC     (NOTE - PLOT ID ON PLOT TAPE IS NOT RELIABLE. THE TAPE MAY HAVE   \r\nC             MISSING PLOT ID, AND IT COULD HAVE TWO PLOT ID 1)        \r\nC        \r\n      EOF(J) = 0*J        \r\nC     ISHFT(W,I) = SHIFT(W,-I)        \r\nC        \r\nC     INITIALIZE MACHINE DEPENDENT CONSTANTS:        \r\nC        \r\nCCDC  BI    = 6        \r\nCUNV  BI    = 9        \r\n      BI    = 8        \r\n      NBS   = 24        \r\n      ADOT  = .TRUE.        \r\n      LUX   = .FALSE.        \r\n      VAX   = .TRUE.        \r\n      IBM   = .FALSE.        \r\nC        \r\nC     GENERAL INITIALIZATION:        \r\nC        \r\n      IF (AA*AA .GT. BB*BB) VAX = .FALSE.        \r\n      IF (BI .EQ. 6) NBS = 54        \r\n      IF (BI .EQ. 9) NBS = 27        \r\n      IF (BI .NE. 8) ADOT = .FALSE.        \r\n      IF (.NOT. VAX) MACH3 = XX3        \r\nC        \r\n      IN    = 5        \r\n      NOUT  = 6        \r\n      FIL   = 13        \r\n      LU    = 14        \r\n      NBUFF = 500        \r\n      WRD   = 1        \r\n      BYT   = 4        \r\n      SCALE = 0.54        \r\n      CSCAL = 13.0        \r\n      NPLOT = 0        \r\n      ALL   = 0        \r\n      HELP  = 0        \r\n      CHRPOS= 0        \r\n      PSALL = 0        \r\n      LUOPEN= 0        \r\n      ESC   = CHAR(27)        \r\n      CLEAR = ESC//CHAR(12)        \r\n      BELL  = CHAR(7)        \r\n      GO TO 20        \r\nC        \r\nC     SELECT TEKTRONIX PLOT OR POSTCRIPT FILE        \r\nC        \r\n   10 CDC = EOF(IN)        \r\n   20 WRITE  (NOUT,25)        \r\n   25 FORMAT (//,' ENTER PLOTTER SELECTION, TEKTRONIX OR POSTSCRIPT? ', \r\n     1       '(T,P,q,S,HELP) ',$)        \r\n      READ   (IN,30,END=10) TEMP        \r\n   30 FORMAT (A1)        \r\n      IF (TEMP .EQ. KH) GO TO 60        \r\n      IF (TEMP.EQ.KS1 .OR. TEMP.EQ.STP1) GO TO 1050        \r\n      IF (TEMP.NE.KT .AND. TEMP.NE.KT1 .AND. TEMP.NE.KP .AND.        \r\n     1    TEMP.NE.KQ1) GO TO 20        \r\n      IF (TEMP.EQ.KT .OR. TEMP.EQ.KT1) TEK = .TRUE.        \r\n      IF (TEMP.EQ.KP .OR. TEMP.EQ.KQ1) PSC = .TRUE.        \r\n      IF (TEMP .EQ. KQ1) NOLINE = 1        \r\n      IF (TEK) DEBUG = .FALSE.        \r\n      IF (PSC) MACH32 = MACH33        \r\n      IF (.NOT.PSC .OR. HELP.EQ.0) GO TO 80        \r\n      HELP = 0        \r\n      WRITE  (NOUT,40)        \r\n   40 FORMAT (//,' ADDITIONAL HELP MESSAGES (POSTSCRIPT ONLY) -', //1X, \r\n     1        'OVERALL PLOT SIZE IS CONTROLLED BY PLOT SCALE, AND CHAR',\r\n     2        'ACTER SIZE CAN BE CHANGED', /4X,'BY CHARACTER SCALE, ',  \r\n     3        'ONLY IF ORIGINAL PLOT INCLUDES TYPING CAPABILITY', /,    \r\n     4        ' PostScript EFFICIENY IS GREATLY IMPROVED IF TYPING',    \r\n     5        ' CAPABILITY IS INCLUDED IN THE', /4X,        \r\n     6        'ORIGINAL PLOT. (see NASTRAN PLOTTER card)', //,        \r\n     7        ' FOUR CHARACTER TYPING SYMBOLS HAVE BEEN CHANGED', /,    \r\n     8        '    CHARACTER      NASTRAN         POSTCSRIPT   ', /,    \r\n     9        '      CODE         ORIGINAL        EQUIVALENCE  ', /,    \r\n     O        '    ---------    -------------    --------------', /,    \r\n     1        '     49 (6)      SMALL CIRCLE     BIG SOLID DOT ', /,    \r\n     2        '     50 (7)      SMALL SQUARE     SQUARE-CIRCLE ', /,    \r\n     3        '     51 (8)      SMALL DIAMOND    DAGGER        ', /,    \r\n     4        '     52 (9)      SMALL TRIANGLE   DOUBLE-DAGGER ', //,   \r\n     5        ' IF CHARACTERS ARE POSITIONED BADLY, ENTER * ON NEXT',   \r\n     6        ' COMMAND', //,        \r\n     7        ' YOU MAY ENTER ''ALL'' FOR THE PLOT NO. TO BE PLOTTED')  \r\n      IF (VAX) WRITE (NOUT,45)        \r\n   45 FORMAT (/,' WHEN FINISH, SEND PostScript FILE(S) OUT TO PRINTER', \r\n     1        ' WITHOUT HEADER PAGE using', /4X,'PRINT/NOFLAG option')  \r\n      WRITE  (NOUT,50)        \r\n   50 FORMAT (/,' HIT C/R TO CONTINUE ',$)        \r\n      READ (IN,30,END=55) TEMP        \r\n      IF (TEMP .EQ. STR) CHRPOS = 1        \r\n      GO TO 80        \r\n   55 CDC = EOF(IN)        \r\n      GO TO 80        \r\nC        \r\nC     HELP MESSAGES        \r\nC        \r\n   60 HELP = 1        \r\n      WRITE  (NOUT,70)        \r\n   70 FORMAT (/,' ENTER \"S\" TO STOP',        \r\n     1        /,' ENTER \"T\" FOR TEKTRONIX SCREEN PLOTTER',        \r\n     2        /,' ENTER \"P\" or \"q\" TO GENERATE POSTCRIPT FILE(S)',      \r\n     3        /,'    IF \"P\", POSTCRIPT FILE(S) BEGINS WITH A \"%!\" LINE',\r\n     4        /,'    IF \"q\", NO \"%!\" LINE ADDED',        \r\n     5        /,'    (THIS \"%!\" LINE IS NEEDED IN SOME UNIX MACHINES, ',\r\n     6        'AND OTHERS DON''T)', //1X,        \r\n     7        'INPUT FILE NAME MUST BE fname.PLT1 or fname.PLT2',       \r\n     8        /,' PLOT FRAME NUMBER IS USED TO SPECIFIED WHICH PLOT TO',\r\n     9        ' BE PLOTTED.',  /,' IF FRAME NO. IS NOT PRESENT ON ',    \r\n     O        'ORIGINAL TAPE, SEQUENTIAL FRAME COUNT IS USED')        \r\n      GO TO 20        \r\nC        \r\nC     GET PLOT FILE FILENAME AND OPEN PLOT FILE        \r\nC        \r\n   80 WRITE  (NOUT,90) MACH32,DATE13        \r\n   90 FORMAT (//////33X,4H****, /31X,1H*,6X,1H*, /30X,1H*,8X,1H*,       \r\n     1       /30X,'*   N A S T P L O T',        \r\n     2       /30X,1H*,8X,1H*, /31X,1H*,6X,1H*, /33X,4H****,        \r\n     3       ///7X,A32,'   SYSTEM RELEASE - ',A13,        \r\n     4       //7X,'WRITTEN BY UNISYS/',17X,'FOR COSMIC', /11X,        \r\n     5       'NASTRAN MAINTENANCE GROUP',6X,'UNIVERSITY OF GEORGIA',    \r\n     6       /11X,'HUNTSVILLE, ALABAMA',12X,'ATHENS, GEORGIA 30602',    \r\n     7       /42X,'PHONE (708) 542-3265', ////7X,        \r\n     8       '*** AT THE END OF EACH PLOT, HIT C/R TO CONTINUE ***',    \r\n     9       /18X,3H===,15X,3H===)        \r\n  100 CDC = EOF(IN)        \r\n      WRITE  (NOUT,110) DorS        \r\n  110 FORMAT (//,' ENTER NAME OF PLOT FILE (e.g. TEST',A1,'PLT1): ',$)  \r\n      READ   (IN,115,END=100) NAM32        \r\n  115 FORMAT (A32)        \r\n      IF (NAM4.EQ.BLNK4 .OR. NAM4.EQ.STOP4) GO TO 1000        \r\nC        \r\nC     CHECK PLT1 OR PLT2 TAPE        \r\nC        \r\n      I = 33        \r\n  120 I = I - 1        \r\n      IF (I .LE. 0) GO TO 1000        \r\n      IF (NA1(I) .EQ. KB) GO TO 120        \r\n      IF ((NA1(I ).EQ.K1 .OR. NA1(I).EQ.K2) .AND. NA1(I-4).EQ.DorS .AND.\r\n     1   (NA1(I-1).EQ.KT .OR. NA1(I-1).EQ.KT1) .AND.        \r\n     2   (NA1(I-2).EQ.KL .OR. NA1(I-2).EQ.KL1) .AND.        \r\n     3   (NA1(I-3).EQ.KP .OR. NA1(I-3).EQ.KP1)) GO TO 140        \r\nC        \r\nC     IMPROPER INPUT FILE NAME        \r\nC        \r\n      WRITE  (NOUT,130) DorS,DorS,(NA1(J),J=1,I)        \r\n  130 FORMAT (/,' FILE ERROR - This program uses only FNAME',A1,'PLT1 ',\r\n     1        'or FNAME',A1,'PLT2 file', 5X,33A1)        \r\n      IF (.NOT.ADOT) WRITE (NOUT,135) DorS,DorS        \r\n  135 FORMAT (' ADD ',A1,'PLT1 or ',A1,'PLT2 TO THE FILE NAME CORRES',  \r\n     1        'PONDING TO YOUR ORIGINAL', /1X,'NASTRAN PLOT FILE SPEC') \r\n      IF (IBM) WRITE (NOUT,137)        \r\n  137 FORMAT (' USE A SLASH IF FILE IS A DATA SET NAME, OR NO SLASH IF',\r\n     1        ' IT IS A DDNAME')        \r\n      GO TO 100        \r\nC        \r\nC     INITIALIZE PARAMETERS FOR PLT1 OR PLT2 OF RECORDS:        \r\nC     REMOVE '.PLTi' IF ORIGINAL FILE NAME CONTAINS NO FILE EXTENSION   \r\nC        \r\n  140 DOT = I - 4        \r\n      IF (ADOT) GO TO 150        \r\n      DO 145 J = DOT,I        \r\n  145 NA1(J) = KB        \r\n  150 K12 = K1        \r\n      IF (NA1(I) .EQ. K2) K12 = K2        \r\n      RL  = 30        \r\n      NW  = 6        \r\n      NRC = 500        \r\n      JID = 3        \r\n      IF (K12 .EQ. K1) GO TO 160        \r\n      RL  = 3000        \r\n      NW  = 30        \r\n      NRC = 30        \r\n      JID = 6        \r\n      IF (.NOT.VAX) JID = 3        \r\nC     THE ABOVE LINE MAY REQUIRE VERIFICAION ????        \r\nC        \r\nC     OPEN INPUT PLT1 OR PLT2 FILE        \r\nC        \r\nC     PLT1: RECORD LENGTH IS IN 130  BYTES (30 DATA WORDS)        \r\nC           FILE WAS CREATED SEQUENTIAL, FORMATTED, CARRIAGE CONTROL    \r\nC     PLT2: RECORD LENGTH IS IN 3000 BYTES        \r\nC           FILE WAS CREATED SEQUENTIAL, FORMATTED, NO CARRIAGE CONTROL,\r\nC           AND 3000 BYTE LONG RECORDSIZE        \r\nC        \r\n  160 OPEN (UNIT=FIL,FILE=NAM32,ERR=850,STATUS='OLD',FORM='FORMATTED',  \r\n     1      ACCESS='SEQUENTIAL',\r\n     2                          RECL=RL)        \r\n      IF (K12 .EQ. K1) GO TO 200        \r\nC        \r\nC     IF PLT2 IS USED, INQUIRE WHAT MACHINE THE TAPE WAS GENERATED      \r\nC        \r\n  170 CDC = EOF(IN)        \r\n      WRITE  (NOUT,180) K12        \r\n  180 FORMAT (/,' FROM WHAT MACHINE WAS THIS PLT',A1,' FILE GENERATED?',\r\n     1        /,' (Ibm,Univac,Cdc,Vax,uniX,craY): ',$)        \r\n      READ (IN,30,END=170) TEMP        \r\n      IF (TEMP.NE.KI .AND. TEMP.NE.KU .AND. TEMP.NE.KC .AND.        \r\n     1    TEMP.NE.KV .AND. TEMP.NE.KX .AND. TEMP.NE.KY) GO TO 170       \r\n      BO = 8        \r\n      IF (TEMP .EQ. KU) BO = 9        \r\n      IF (TEMP .EQ. KC) BO = 6        \r\nC     IF (BO .EQ. BI) GO TO 200        \r\n      IF (BO .EQ.  8) GO TO 200        \r\n      WRITE  (NOUT,190)        \r\n  190 FORMAT (//,' *** THIS NASTPLOT VERSION CAN NOT PROCESS PLOT TAPE',\r\n     1       ' GENERATED FROM A', /5X,'UNIVAC OR CDC MACHINE')        \r\n      GO TO 1000        \r\nC        \r\nC     CHECK PROSCRIPT PLOTTER SCALE AND        \r\nC     INQUIRE SINGLE OR MULTIPLE POSTSCRIPT OUTPUT FILES        \r\nC        \r\n  200 IF (TEK) GO TO 250        \r\n      IF (.NOT.PSC) GO TO 280        \r\n      WRITE  (NOUT,210) SCALE,CSCAL        \r\n  210 FORMAT (/,' CURRENT PLOT SCALE AND CHARACTER SCALE ARE',2F6.2,    \r\n     1        1H;, /,' ENTER NEW SCALES (2F6.2) or C/R ',$)        \r\n      READ   (IN,220,ERR=230) SX,SY        \r\n  220 FORMAT (2F6.2)        \r\n      IF (SX .GT. 0.01) SCALE = SX        \r\n      IF (SY .GT. 0.01) CSCAL = SY        \r\nC        \r\n  230 CDC = EOF(IN)        \r\n      WRITE  (NOUT,240) K12        \r\n  240 FORMAT (/,' IF PLT',A1,' HAS MULTIPLE PLOTS, STACK ALL PLOTS IN', \r\n     1        ' ONE POSTSCRIPT FILE? (Y,N) ',$)        \r\n      READ (IN,30,END=230) ALL        \r\n      IF (ALL .EQ. SYY) ALL = YES        \r\n      IF (ALL .EQ. SNN) ALL = NO        \r\n      IF (ALL .EQ. YES) GO TO 280        \r\n      IF (ALL .NE.  NO) GO TO 230        \r\n      GO TO 280        \r\nC        \r\nC     IF MACHINE IS VAX, EQUIPPED WITH TEKTRONIX PLOT-10 TSC AND        \r\nC     ADVANCED GRAPHING II PACKAGES, CALL NASTEK TO DO THE JOB        \r\nC        \r\n  250 CONTINUE        \r\nC     IF (.NOT.VAX) GO TO 260        \r\n      WRITE  (NOUT,255)        \r\n  255 FORMAT (/,' PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES ON YOUR'\r\n     1,       ' VAX SYSTEM? (Y/N) ',$)        \r\n      READ (IN,30) J        \r\n      IF (J .NE. YES) GO TO 260        \r\n      I = 5        \r\n      J = 30        \r\n      IF (K12 .EQ. K1) GO TO 257        \r\n      I = 100        \r\n      J = 3000        \r\n  257 CONTINUE\r\nC+    CALL NASTEK (*1050,FIL,I,Z,J)        \r\n      CLOSE (UNIT=FIL)        \r\n      GO TO 1000        \r\nC        \r\nC     CHECK TEKTRONIX HORIZ. AND VERTICAL AXES        \r\nC        \r\n  260 WRITE  (NOUT,265) XSIZE,YSIZE        \r\n  265 FORMAT (/,' CURRENT FRAME SIZE IS:  X-AXIS=',F6.2,' Y-AXIS=',F6.2,\r\n     1        /,' ENTER NEW SIZES (2F6.2) or C/R: ',$)        \r\n      READ   (IN,220,ERR=275) SX,SY        \r\n      IF (SX .GT. 0.01) XSIZE = SX        \r\n      IF (SY .GT. 0.01) YSIZE = SY        \r\n      IF (YSIZE .LE. 32.0) GO TO 280        \r\n      WRITE  (NOUT,270)        \r\n  270 FORMAT (' MAXIMUM LENGTH FOR Y-AXIS IS 32.0 INCHES')        \r\n      GO TO 250        \r\n  275 CDC = EOF(IN)        \r\nC        \r\nC     LOOK FOR PLOT ID-FRAME IN Z(n). IF IT IS FOUND, REPLACE THE PLOT  \r\nC     NUMBER IN Z(JID) BY ZERO.  n IS 19 FOR PLT1 AND n IS 90 FOR PLT2. \r\nC     SET PID FLAG TO 1 IF PLOT ID-FRAME DOES EXIST. OTHERWISE ZERO     \r\nC     (PLOT ID-FRAME IS THE PLOT WITH MANY HORIZONTAL LINES, AND USER   \r\nC     ID AT MID PAGE)        \r\nC        \r\n  280 REWIND FIL        \r\n      PLOTID = -1        \r\n      LASTSL = -1        \r\n      PNO = 0        \r\n      KK  = 1        \r\n      IF (K12 .EQ. K2) GO TO 290        \r\n      READ (FIL,460,END=900) W        \r\n      IF (W(19)-16) 300,320,300        \r\nC        \r\n  290 READ (FIL,FMT500,END=900) Z        \r\nC        \r\nC       NEXT DO LOOP LOCATES '16' ON PLT2 FILE        \r\nC       (IT WAS FOUND ON THE 90TH WORD)        \r\nC        \r\nC       DO 295 I = 1,99        \r\nC       L = IAND(Z(I),MASK)        \r\nC       WRITE  (NOUT,292) I,L        \r\nC 292   FORMAT ('  WORD',I3,' = ',I7)        \r\nC 295   CONTINUE        \r\nC        \r\n      IF (IAND(Z(90),MASK) .EQ. 16) GO TO 320        \r\n  300 WRITE  (NOUT,310) K12        \r\n  310 FORMAT (/,' THERE IS NO PLOT ID FRAME (PLOT NO. 0) ON USER''S ',  \r\n     1       'PLT',A1,' FILE',/)        \r\n      PID = 0        \r\n      GO TO 350        \r\n  320 PID = 1        \r\n      Z(JID) = 0        \r\nC        \r\nC     ON THE PLOT FILE AS GENERATED BY NASTRAN, BOTH PLOT ID-FRAME AND  \r\nC     THE FIRST STRUCTURE PLOT ARE PLOT NUMBER 1.  TREAT THE PLOT ID-   \r\nC     FRAME AS PLOT NUMBER 0 THROUGHOUT THIS NASTPLOT PROGRAM        \r\nC        \r\n      WRITE  (NOUT,330) K12        \r\n  330 FORMAT (/,' THERE IS A PLOT ID FRAME (PLOT NUMBER 0) ON USER''S ',\r\n     1        'PLT',A1,' FILE')        \r\n      GO TO 350        \r\nC        \r\n  340 WRITE (NOUT,310)        \r\nC        \r\nC     INQUIRE WHICH PLOT TO BE PLOTTED (SELECT)        \r\nC     (ALLOW 5-DIGIT PLOT NO, CAN BE LEFT OR RIGHT AJUSTED)        \r\nC        \r\n  350 WRITE  (NOUT,360)        \r\n  360 FORMAT (//,' ENTER PLOT NUMBER TO BE PLOTTED, ''NEXT'' or ',      \r\n     1        '''STOP'' ',$)        \r\n      READ   (IN,370,END=350) CHR1        \r\n  370 FORMAT (5A1)        \r\n      IF (CHR4 .EQ. BLNK4) GO TO 350        \r\n      SELECT = -99        \r\n      IF (PSC .AND. (CHR1(1).EQ.AL1 .OR. CHR1(1).EQ.KA1)) PSALL = 1     \r\n      IF (PSALL.NE.0 .OR. CHR1(1).EQ.NXT1 .OR. CHR1(1).EQ.KN1) GO TO 510\r\n      IF (CHR1(1).EQ.STP1 .OR. CHR1(1).EQ.KS1) GO TO 1010        \r\n      SELECT = 0        \r\n      TEN = 1        \r\n      K   = 5        \r\n      DO 410 J = 1,5        \r\n      IF (CHR1(K) .EQ. BLNK1) GO TO 410        \r\n      DO 380 I = 1,10        \r\n      IF (CHR1(K) .EQ. NUMB1(I)) GO TO 400        \r\n  380 CONTINUE        \r\n      WRITE  (NOUT,390)        \r\n  390 FORMAT (/5X,'...INPUT ERROR')        \r\n      GO TO 350        \r\n  400 IF (I .EQ. 10) I = 0        \r\n      SELECT = SELECT + I*TEN        \r\n      TEN = TEN*10        \r\n  410 K   = K - 1        \r\n      FOUND = .FALSE.        \r\n      IF (SELECT     .LT. 0) GO TO 900        \r\n      IF (SELECT+PID .EQ. 0) GO TO 340        \r\n      IF (LASTSL    .EQ. -2) GO TO 510        \r\n      IF (SELECT - LASTSL) 950,420,510        \r\n  420 CDC = EOF(IN)        \r\n      WRITE  (NOUT,430) LASTSL        \r\n  430 FORMAT (' LAST PLOT WAS PLOT NO.',I3,'.   ARE YOU SURE? (Y,N) ',$)\r\n      READ (IN,30,END=420) J        \r\n      IF (J.EQ.YES .OR. J.EQ.SYY) GO TO 950        \r\n      IF (J.NE.NO .AND. J.NE.SNN) GO TO 420        \r\n      GO TO 350        \r\nC        \r\nC     SEARCH PLOT TAPE FOR PLOT SELECTED        \r\nC     UP TO 2 DIGITS ONLY FOR PLOT ID        \r\nC        \r\n  440 IF (K12 .EQ. K2) GO TO 490        \r\n  450 READ   (FIL,460,END=900) W        \r\n  460 FORMAT (5(2I3,4I5))        \r\n      KK = KK + 1        \r\n      IF (DEBUG .AND. MOD(KK,NRC) .EQ. 0) WRITE (NOUT,470) KK        \r\n  470 FORMAT (10X,'...SEARCHING',I6,' RECORDS')        \r\n  480 FORMAT (10X,'...WORKING  ',I6,' RECORDS PROCESSED')        \r\n      IF (W(1) .NE. 1) GO TO 450        \r\n      GO TO 510        \r\n  490 READ   (FIL,FMT500,END=900) Z        \r\nC 500 FORMAT (3000A1)        \r\n      KK = KK + 1        \r\n      IF (DEBUG .AND. MOD(KK,NRC) .EQ. 0) WRITE (NOUT,470) KK        \r\n      IF (.NOT.VAX .AND. ISHFT(Z(1),NBS).NE.1) GO TO 490        \r\n      IF (     VAX .AND. IAND(Z(4),MASK).NE.1) GO TO 490        \r\nC        \r\nC     WRITE  (NOUT,505) JID,(Z(J),J=1,9)        \r\nC 505 FORMAT (' JID =',I3,',  FIRST 9 BYTES OF NEW-PLOT RECORD = ',     \r\nC    1        /12X,9I7)        \r\nC        \r\n      IF (.NOT.VAX) PLOTID = ISHFT(Z(JID-1),NBS)*10 + ISHFT(Z(JID),NBS) \r\n      IF (     VAX) PLOTID = IAND(Z(JID+1),MASK)*10 + IAND(Z(JID),MASK) \r\nC        \r\nC     SELECT WAS SET TO -99 IF USER WANTS THE NEXT PLOT, OR        \r\nC     USER REQUEST ALL PLOTS ON POSTSCRIPT        \r\nC        \r\n  510 IF (K12.NE.K2 .OR. LASTSL.EQ.-2) PLOTID = Z(JID)        \r\nC     IF (DEBUG) WRITE (NOUT,545) PLOTID        \r\n      IF (SELECT .EQ. -99) SELECT = PLOTID        \r\n      IF (LASTSL .EQ. -2 ) LASTSL = -1        \r\n      IF (PLOTID.GE.0 .OR. PSALL.NE.0) IF (PLOTID-SELECT) 440,540,520   \r\n      IF (PNO+PID .EQ. SELECT) GO TO 540        \r\n      PNO = PNO + 1        \r\n      GO TO 440        \r\nC        \r\nC     INPUT TAPE MAY NOT SPECIFY PLOT NO.        \r\nC        \r\n  520 CDC = EOF(IN)        \r\n      WRITE  (NOUT,530) PLOTID,SELECT        \r\n  530 FORMAT (/,' PLOT NO.',I4,' JUST FOUND. INPUT TAPE MAY NOT USE ',  \r\n     1       'OR SPECIFY PLOT NO.',I4,        \r\n     2        /,' CONTINUE SEARCHING or REWIND TAPE? (Y,N,R) ',$)       \r\n      READ (IN,30,END=520) TEMP        \r\n      IF (TEMP .EQ. KR1) GO TO 950        \r\n      IF (TEMP .EQ. KY ) GO TO 440        \r\n      GO TO 350        \r\nC        \r\nC     MATCHING PLOT NUMBER JUST FOUND.        \r\nC     SET N1 FOR THE 900 LOOP, THAT POINTS TO THE 2ND PLOT COMMAND      \r\nC        \r\n  540 FOUND  = .TRUE.        \r\n      PLOTID = SELECT        \r\n      IF (PLOTID .EQ. -1) PLOTID = 0        \r\n      IF (DEBUG) WRITE (NOUT,545) PLOTID        \r\n  545 FORMAT (13X,'PLOT NO =',I5,'  FOUND')        \r\n      NOTYET = .TRUE.        \r\n      NREC   = KK        \r\n      N1     = 7        \r\n      IF (K12 .EQ. K2) N1 = 1        \r\n      IF (PSC) GO TO 550        \r\nC        \r\nC     INITIALIZE TEKRONIX:        \r\nC        \r\n      CALL TXINIT        \r\n      XHI    = 0        \r\n      YHI    = 0        \r\n      PENCHG = 0        \r\n      PENCNT = 0        \r\n      OLDPEN = 0        \r\n      GO TO 620        \r\nC        \r\nC     INITIALIZE POSTCRIPT:        \r\nC        \r\n  550 NPLOT  = NPLOT + 1        \r\n      JOUNT  = 0        \r\n      ONCE   =-1        \r\n      IF (ADOT) GO TO 560        \r\n      IF (ALL .EQ. YES) IF (LUOPEN) 590,555,590        \r\n  555 NA1(DOT) = A1Z(NPLOT)        \r\n      GO TO 585        \r\n  560 KNUM1  = KB        \r\n      KNUM(2)= KB        \r\n      IF (ALL .EQ. YES) IF (LUOPEN) 590,580,590        \r\n      IF (NPLOT .LT. 10) WRITE (KNUM1,565) NPLOT        \r\n      IF (NPLOT .GE. 10) WRITE (KNUM2,570) NPLOT        \r\n  565 FORMAT (I1)        \r\n  570 FORMAT (I2)        \r\n  580 NA1(DOT+2) = KNUM1        \r\n      NA1(DOT+3) = KNUM(2)        \r\n      NA1(DOT+4) = KB        \r\n  585 OPEN (UNIT=LU,FILE=NAM32,FORM='FORMATTED',STATUS='NEW',ERR=870    \r\nC    1     )        \r\n     1     ,CARRIAGECONTROL='LIST')   ! RECOMMANDED FOR VAX TO GENERATE \r\nC                                     ! STANDARD LIST FILE        \r\n      LUOPEN = 1        \r\n  590 CALL PSINIT (NOLINE)        \r\n      IF (ALL .EQ. YES) NOLINE = 1        \r\n      GO TO 620        \r\nC        \r\n  600 NREC = NREC + 1        \r\n      IF (PSC .AND. DEBUG .AND. MOD(NREC,NRC).EQ.0)        \r\n     1    WRITE (NOUT,480) NREC        \r\nC        \r\nC     READ NEXT RECORD        \r\nC        \r\n      IF (K12 .EQ. K2) GO TO 610        \r\n      READ (FIL,460,END=900) W        \r\n      GO TO 620        \r\n  610 READ (FIL,FMT500,END=900) Z        \r\nC        \r\nC     INTERCHANGE BYTE ORDER IF MACHINE IS VAX        \r\nC        \r\n  620 KK = KK + 1        \r\n      IF (K12.EQ.K1 .OR. .NOT.VAX) GO TO 640        \r\n      DO 630 I = 1,RL,4        \r\n      J      = Z(I  )        \r\n      Z(I  ) = Z(I+3)        \r\n      Z(I+3) = J        \r\n      J      = Z(I+1)        \r\n      Z(I+1) = Z(I+2)        \r\n      Z(I+2) = J        \r\n  630 CONTINUE        \r\nC        \r\nC     PROCESS ONE PHYSICAL PLOT RECORD        \r\nC        \r\n  640 DO 800 N = N1,RL,NW        \r\nC        \r\nC     GET NEXT COMMAND,        \r\nC        \r\n      IF (K12 .EQ. K2) GO TO 650        \r\nC        \r\nC     PLT1 FILE: TOTAL OF 5 PLOT COMMANDS/RECORD        \r\nC        \r\n      CMND  = W(N)        \r\n      IF (CMND .EQ. 0) GO TO 810        \r\n      CNTRL = W(N+1)        \r\n      R = W(N+2)        \r\n      S = W(N+3)        \r\n      T = W(N+4)        \r\n      U = W(N+5)        \r\n      GO TO 680        \r\nC        \r\nC     PLT2 FILE:  TOTAL OF 100 PLOT COMMANDS/RECORD        \r\nC     EACH PLOT COMMAND IS 30 BYTE LONG, AND DATA IN FIRST 22 BYTES     \r\nC        \r\n  650 IF (BI .EQ. BO) GO TO 660        \r\n      CALL GETCMD (Z)        \r\n      GO TO 680        \r\nC        \r\n  660 N22  = N + 21        \r\n      DO 670 J = N,N22        \r\n      IF (     VAX) Z(J) = IAND(Z(J), MASK)        \r\n      IF (.NOT.VAX) Z(J) = ISHFT(Z(J),-NBS)        \r\n  670 CONTINUE        \r\n      CMND  = Z(N)        \r\n      IF (CMND .EQ. 0) GO TO 810        \r\n      CNTRL = Z(N+1)        \r\n      R = Z(N+ 2)*T4 + Z(N+ 3)*T3 + Z(N+ 4)*T2 + Z(N+ 5)*T1 + Z(N+ 6)   \r\n      S = Z(N+ 7)*T4 + Z(N+ 8)*T3 + Z(N+ 9)*T2 + Z(N+10)*T1 + Z(N+11)   \r\n      T = Z(N+12)*T4 + Z(N+13)*T3 + Z(N+14)*T2 + Z(N+15)*T1 + Z(N+16)   \r\n      U = Z(N+17)*T4 + Z(N+18)*T3 + Z(N+19)*T2 + Z(N+20)*T1 + Z(N+21)   \r\n      IF (.NOT.NOTYET) GO TO 680        \r\n      NOTYET =.FALSE.        \r\n      XMAX = S        \r\n      YMAX = T        \r\n      XFACT= XSIZE/XMAX        \r\n      YFACT= YSIZE/YMAX        \r\n      XLO  = XMAX        \r\n      YLO  = YMAX        \r\n      GO TO 800        \r\nC        \r\nC     CMND =  0, NON-OPERATION. A PADDING COMMANDS OF ALL ZEROS        \r\nC          =  1, START-NEW-PLOT. R IS THE PLOT NUMBER        \r\nC          =  2, SELECT-CAMERA. CNTRL=1 FILM ONLY, =2 HARDCOPY, =3 BOTH \r\nC          =  3, SKIP-TO-A-NEW-FRAME. CNTRL=1,2,3 SAME AS CMND=2        \r\nC                AT LEAST ONE CMND=3 COMMAND AFTER A CMND=1 COMMAND AND \r\nC                BEFORE NEXT CMND=1        \r\nC          =  4, TYPE-CHARACTER        \r\nC          =  5, DRAW-LINE        \r\nC          =  6, DRAW-AXIS        \r\nC          = 14, 15, 16, SAME AS 4, 5, 6        \r\nC                THESE COMMANDS INDICATE FIRST OF A SERIES OF 4, 5, OR  \r\nC                6 COMMNADS THAT FOLLOW        \r\nC     CMND = 2,3 ARE FOR MICROFILM PLOTTER ONLY. THEY ARE NOT USED      \r\nC                IN THIS NASPLT PROGRAM        \r\nC        \r\nC     CNTRL= A PEN NO., OR A LINE DENSITY, OR A CAMERA NO, OR A POINTER \r\nC            INTO A LIST OF CHARACTERS AND SYMBOL (TABLE 1 OF THE       \r\nC            USER'S MANUAL, P.4.4-5)        \r\nC        \r\nC     R,S,T,U = DATA VALUES        \r\nC        \r\nC        \r\nC        \r\nC     NOTE, CMND=1 (START-NEW-PLOT) ALWAYS LOCATES ON THE FIRST COMMAND \r\nC     OF A PLOT RECORD        \r\nC     IGNORE CMND =2 OR 3, WHICH ARE FOR MICROFILM PLOTTER ONLY        \r\nC        \r\n  680 IF (CMND .NE. 1) GO TO 720        \r\n      IF (N    .NE. 1) WRITE (NOUT,685) BELL,BELL,BELL,N,CNTRL        \r\n  685 FORMAT (1X,3A1,/,'0*** LOGIC ERROR. NEW PLOT FOUND AT MIDDLE OF ',\r\n     1        'RECORD', /5X,'N =',I5,',  PLOT NO.',I5)        \r\nC        \r\nC     END OF PREVIOUS PLOT        \r\nC        \r\n      WRITE  (NOUT,690) BELL        \r\n  690 FORMAT (1X,A1)        \r\n      IF (TEK) GO TO 710        \r\n      CALL PSTRKE        \r\n      CALL PSFINS        \r\n      IF (ALL .EQ. YES) GO TO 695        \r\n      CLOSE (UNIT=LU)        \r\n      IF (LUX) LU = LU + 1        \r\n      LUOPEN = 0        \r\n  695 WRITE  (NOUT,700) PLOTID,K12        \r\n  700 FORMAT (/,' A PLOT WAS GENERATED FROM PLOT NO.',I3,' OF THE PLT', \r\n     1        A1,' FILE',/)        \r\n      IF (K12  .EQ. K2) BACKSPACE FIL        \r\n      LASTSL = SELECT        \r\n      SELECT = R        \r\n      PLOTID = R        \r\n      IF (PSALL) 540,350,540        \r\nC        \r\n  710 READ (IN,30,END=715) J        \r\n  715 CDC = EOF(IN)        \r\n      CALL TXFINS        \r\n      GO TO 350        \r\nC        \r\n  720 IF (CMND .LE. 3) GO TO 800        \r\nC        \r\nC     CHECK FOR NEW CHARACTER, LINE, OR AXIS SET        \r\nC        \r\n      IF (CMND.LT.14 .OR. CMND.GT.16) GO TO 730        \r\n      IF (CMND .EQ. 14) CHRSET = .TRUE.        \r\n      IF (CMND .EQ. 15) LINSET = .TRUE.        \r\n      IF (CMND .EQ. 16) AXSSET = .TRUE.        \r\n      CMNDX = CMND        \r\n      CMND  = CMND - 10        \r\nC        \r\nC     CHECK FOR END OF CHARACTER, LINE, OR AXIS SET        \r\nC        \r\n  730 IF (.NOT.PSC) GO TO 740        \r\n      IF (CHRSET .AND. CMND.NE.4) CALL PSENDC (CHRSET,CMNDX)        \r\n      IF (CMND .NE. 4) GO TO 750        \r\n      CALL PSCHAR (CHRSET,CMNDX)        \r\n      GO TO 800        \r\n  740 IF (CHRSET .AND. CMND.NE.4) CALL ENDKHR (CHRSET)        \r\n      IF (LINSET .AND. CMND.NE.5) CALL ENDLIN (LINSET)        \r\n      IF (AXSSET .AND. CMND.NE.6) CALL ENDAXS (AXSSET)        \r\nC        \r\n  750 IF (CMND-5) 760,770,790        \r\nC         CMND  =  4   5   6        \r\nC           or    14  15  16        \r\nC        \r\n  760 IF (TEK) CALL DRWKHR (CHRSET)        \r\n      GO TO 800        \r\n  770 IF (PSC) GO TO 780        \r\n      CALL DRWLIN (LINSET)        \r\n      GO TO 800        \r\n  780 CALL PSLINE        \r\n      GO TO 800        \r\n  790 IF (PSC) GO TO 780        \r\n      CALL DRWAXS (AXSSET)        \r\n  800 CONTINUE        \r\nC        \r\nC     LOOP BACK FOR MORE PLOT RECORDS FROM PLOT FILE        \r\nC     SESET N1 FOR THE 900 LOOP, THAT POINTS TO THE 1ST PLOT COMMAND    \r\nC        \r\n  810 N1 = 1        \r\n      GO TO 600        \r\nC        \r\nC     PLOT FILE NOT FOUND. TRY AGAIN        \r\nC        \r\n  850 WRITE  (NOUT,860) NAM32        \r\n  860 FORMAT (/,' *** NO SUCH INPUT FILE ',A32)        \r\n      IF (IBM) WRITE (NOUT,137)        \r\n      GO TO 100        \r\nC        \r\n  870 WRITE  (NOUT,880) NAM32        \r\n  880 FORMAT (//,' *** CAN NOT OPEN OUTPUT FILE - ',A32,        \r\n     1        /5X,'JOB ABORTED')        \r\n      CLOSE (UNIT=FIL)        \r\n      GO TO 1050        \r\nC        \r\nC     EOF ENCOUNTERED        \r\nC        \r\n  900 WRITE (NOUT,690) BELL        \r\n      IF (PLOTID.EQ.-1 .OR. .NOT.FOUND) GO TO 920        \r\n      IF (PSC) GO TO 910        \r\n      READ (IN,30,END=905) J        \r\n  905 CDC = EOF(IN)        \r\n      CALL TXFINS        \r\n      GO TO 920        \r\n  910 J = 0        \r\n      IF (CHRSET) CALL PSENDC (CHRSET,J)        \r\n      CALL PSTRKE        \r\n      CALL PSFINS        \r\n      IF (ALL .EQ. YES) GO TO 915        \r\n      CLOSE (UNIT=LU)        \r\n      IF (LUX) LU = LU + 1        \r\n      LUOPEN = 0        \r\n  915 IF (NPLOT .GT. 0) WRITE (NOUT,700) PLOTID,K12        \r\n  920 IF (.NOT.FOUND) WRITE (NOUT,930) SELECT        \r\n  930 FORMAT (/,' PLOT NO.',I4,' DOES NOT EXIST')        \r\n  940 WRITE  (NOUT,945) PLOTID,K12        \r\n  945 FORMAT (/,' EOF ENCOUNTERED. THERE ARE ONLY',I3,' PLOTS ON ',     \r\n     1       'USER''S PLT',A1,' FILE', /,        \r\n     2       ' START ALL OVER PLOTTING AGAIN? (Y,N) ',$)        \r\n      READ (IN,30,END=940) J        \r\n      IF (J.EQ.NO   .OR. J.EQ.SNN) GO TO 1010        \r\n      IF (J.NE.YES .AND. J.NE.SYY) GO TO  920        \r\n      SELECT = -1        \r\nC        \r\nC     START ALL OVER AGAIN        \r\nC        \r\n  950 REWIND FIL        \r\n      KK    = 0        \r\n      PSALL = 0        \r\n      PNO   = 0        \r\n      PLOTID=-1        \r\n      LASTSL=-2        \r\n      IF (K12 .EQ. K1) READ (FIL,   460,END=1010) W        \r\n      IF (K12 .EQ. K2) READ (FIL,FMT500,END=1010) Z        \r\n      IF (PID .EQ.  0) GO TO 960        \r\n      Z(JID) = 0        \r\n      GO TO 970        \r\n  960 IF (K12 .EQ. K1) GO TO 970        \r\n      IF (.NOT.VAX) Z(JID) = ISHFT(Z(JID-1),NBS)*10 + ISHFT(Z(JID),NBS) \r\n      IF (     VAX) Z(JID) = IAND(Z(JID+1),MASK)*10 + IAND(Z(JID),MASK) \r\n  970 IF (SELECT) 350,510,510        \r\nC        \r\nC     JOB DONE. TIDY UP ALL LOOSE ENDS        \r\nC        \r\n 1000 WRITE (NOUT,1020)        \r\n      GO TO 1050        \r\n 1010 CLOSE (UNIT=FIL)        \r\n      IF (ALL.EQ.YES .AND. LUOPEN.EQ.1) CLOSE (UNIT=LU)        \r\n      WRITE  (NOUT,1020)        \r\n 1020 FORMAT (//5X,'*** JOB DONE ***')        \r\n      IF (.NOT.PSC .OR. NPLOT.LE.0) GO TO 1050        \r\n      KC = KB        \r\n      IF (NPLOT .GT. 1) KC = STP1        \r\n      IF (ALL .EQ. YES) GO TO 1030        \r\n      NA1(DOT+3) = KB        \r\n      IF (NPLOT .LE. 1) GO TO 1030        \r\n      NA1(DOT+2) = STR        \r\n      KB = STP1        \r\n 1030 WRITE  (NOUT,1040) NPLOT,KC,KB,NAM32        \r\n 1040 FORMAT (//4X,I2,' PLOT FILE',A1,' GENERATED. SEND THE FOLLOWING ',\r\n     1       'PostScript FILE',A1, /5X,'TO PRINTER - ',A32)        \r\nC        \r\n 1050 CONTINUE        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE GETCMD (Z)        \r\nC        \r\nC     THIS SUBROUTINE GET THE PLOT COMMAND        \r\nC        \r\nC     THIS SUBROUTINE IS NEEDED ONLY WHEN THE MACHINE READING THE PLT2  \r\nC     TAPE AND THE MACHINE WHO WROTE THE PLT2 TAPE, HAVE DIFFERENT      \r\nC     NUMBER OF BITS PER BYTE, NBPB        \r\nC     E.G.  NBPB IS 6 FOR CDC, 8 FOR VAX AND IBM, AND 9 FOR UNIVAC      \r\nC        \r\nC     BI = NBPB ON WRITING COMPUTER        \r\nC     BO = NBPB ON READING COMPUTER        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      INTEGER     Z(1),Q(1)        \r\n      COMMON /QQ/ BI,BO,WRD,BYT,PC,CI,R4,R3,R2,R1,R0,S4,S3,S2,S1,S0,    \r\n     1            T4,T3,T2,T1,T0,U4,U3,U2,U1,U0        \r\n      COMMON      CMND,CTRL,R,S,T,U        \r\n      EQUIVALENCE (Q(1),PC)        \r\n      DATA   MAX/ 3000 /        \r\nC        \r\n      IF (BI .EQ. BO) STOP ' NO NEED TO CALL GETCMD'        \r\n      IF (BI .NE. BO) STOP ' PRESENTLY, GETCMD DOES NOT WORK'        \r\nC        \r\nC     GET 30-BYTE COMMAND INTO 30 INTEGERS        \r\nC     THE FOLLOWING LOGIC IS FACTITIOUS        \r\nC        \r\n      IF (BI.EQ.8 .AND. BO.EQ.6) GO TO 1110        \r\nC        \r\nC     NBPC OF 6 INTO NBPC OF 8        \r\nC        \r\n      DO 1100 I = 1,30        \r\n      Q(I) = Z(WRD)        \r\n      IF (BYT .EQ.   0) WRD = WRD + 1        \r\n      IF (BYT .EQ.   0) BYT = 6        \r\n      IF (WRD .GT. MAX) WRD = 1        \r\n 1100 BYT = BYT - 1        \r\n      GO TO 1130        \r\nC        \r\nC     NBPC OF 8 INTO NBPC OF 6        \r\nC        \r\n 1110 DO 1120 I = 1,30        \r\n      Q(I) = Z(WRD)        \r\n      IF (BYT .EQ.   0) WRD = WRD + 1        \r\n      IF (BYT .EQ.   0) BYT = 8        \r\n      IF (WRD .GT. MAX) WRD = 1        \r\n 1120 BYT = BYT - 1        \r\nC        \r\n 1130 CMND = PC        \r\n      CTRL = CI        \r\n      R    = R4*10000 + R3*1000 + R2*100 + R1*10 + R0        \r\n      S    = S4*10000 + S3*1000 + S2*100 + S1*10 + S0        \r\n      T    = T4*10000 + T3*1000 + T2*100 + T1*10 + T0        \r\n      U    = U4*10000 + U3*1000 + U2*100 + U1*10 + U0        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE DRWAXS (AXSSET)        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      REAL     XFACT,YFACT,X,Y        \r\n      LOGICAL  AXSSET,P16        \r\n      COMMON   CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO,\r\n     1         PENCHG,PENCNT,OLDPEN,PENNO(99)        \r\n      DATA     AXSCNT,P16 / 0, .TRUE. /        \r\nC        \r\nC     CHECK FOR INITIAL COMMAND = 16        \r\nC        \r\n      IF (AXSSET) GO TO 1150        \r\n      AXSSET = .TRUE.        \r\n      P16    = .FALSE.        \r\nC        \r\nC     CHECK COORDINATES AGAINST MAX & MIN ENCOUNTERED SO FAR        \r\nC        \r\n 1150 XHI = MAX(R,T,XHI)        \r\n      YHI = MAX(S,U,YHI)        \r\n      XLO = MIN(R,T,XLO)        \r\n      YLO = MIN(S,U,YLO)        \r\nC        \r\nC     CHECK FOR A PEN CHANGE AND/OR NEW PEN ID        \r\nC        \r\n      IF (CNTRL .EQ. OLDPEN) GO TO 1180        \r\n      CALL TXNPEN (CNTRL)        \r\n      PENCHG = PENCHG + 1        \r\n      IF (PENCNT .GE. 99) GO TO 1170        \r\n      PENCNT = PENCNT + 1        \r\n      PENNO(PENCNT) = CNTRL        \r\n      IF (PENCNT .LE. 1) GO TO 1170        \r\n      DO 1160 N = 2,PENCNT        \r\n      IF (PENNO(PENCNT) .NE. PENNO(N-1)) GO TO 1160        \r\n      PENCNT = PENCNT -1        \r\n      GO TO 1170        \r\n 1160 CONTINUE        \r\n 1170 OLDPEN = CNTRL        \r\n 1180 AXSCNT = AXSCNT + 1        \r\nC        \r\nC     MOVE PLOTTER PEN TO BEGINNING OF AXIS        \r\nC        \r\n      X = XFACT*FLOAT(R)        \r\n      Y = YFACT*FLOAT(S)        \r\n      CALL TXPLOT (X,Y,3)        \r\nC        \r\nC     DRAW AXIS ON PLOTTING SURFACE        \r\nC        \r\n      X = XFACT*FLOAT(T)        \r\n      Y = YFACT*FLOAT(U)        \r\n      CALL TXPLOT (X,Y,2)        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY ENDAXS (AXSSET)        \r\nC     =====================        \r\nC        \r\nC     REINITILIZE COMMANDS        \r\nC        \r\n      P16    = .TRUE.        \r\n      AXSCNT =  0        \r\n      AXSSET = .FALSE.        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE DRWKHR (CHRSET)        \r\nC        \r\n      IMPLICIT  INTEGER (A-Z)        \r\n      LOGICAL   CHRSET        \r\n      REAL      XFACT,YFACT,X,Y,ANGLE,HITE        \r\n      CHARACTER CHR94*52,CHRSAV*57,BLNK1,QUES1        \r\n      DIMENSION CHRCOD(53)        \r\n      COMMON    CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO\r\n      DATA      LINE,SAVCNT,CHRCNT,UNKCNT / 1, 0, 0, 0/        \r\n      DATA      CHRSAV,BLNK1,QUES1    / ' ', ' ', '?' /        \r\n      DATA      CHR94 /        \r\n     1          '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ()+-*/=.,$\" O[<^'/ \r\n      DATA      CHRCOD /32,33,34,35,36,37,38,39,40,41,        \r\n     1                  49,50,51,52,53,54,55,56,57,58,59,60,61,        \r\n     2                  62,63,64,65,66,67,68,69,70,71,72,73,74,        \r\n     3                  24,25,27,29,26,31,45,30,28,20,23,        \r\n     4                  16, 1, 0, 5, 2,47/        \r\nC        \r\nC     CHECK FOR INITIAL COMMAND = 14        \r\nC        \r\n      IF (CHRSET) GO TO 1200        \r\n      CHRSET = .TRUE.        \r\n      LINE   = LINE + 1        \r\nC        \r\nC     UPDATE COUNTER & POINTER        \r\nC        \r\n 1200 SAVCNT = SAVCNT + 1        \r\n      CHRCNT = CHRCNT + 1        \r\nC        \r\nC     STORE CHARACTER IN STRING CHRSAV        \r\nC        \r\n      IF (CNTRL.LE.52 .AND. CNTRL.GT.0) GO TO 1210        \r\n      CHRSAV(SAVCNT:SAVCNT) = QUES1        \r\n      CODE   = CHRCOD(53)        \r\n      UNKCNT = UNKCNT + 1        \r\n      GO TO 1220        \r\nC        \r\n 1210 CHRSAV(SAVCNT:SAVCNT) = CHR94(CNTRL:CNTRL)        \r\n      CODE = CHRCOD(CNTRL)        \r\nC        \r\nC     IF CHRSAV STRING IS FULL, PRINT IT        \r\nC        \r\n 1220 IF (SAVCNT .NE. 57) GO TO 1230        \r\n      CHRSAV = BLNK1        \r\n      SAVCNT = 0        \r\n      LINE   = LINE + 1        \r\nC        \r\nC     COMPARE (X,Y) WITH MAX & MIN ENCOUNTERED SO FAR        \r\nC        \r\n 1230 XHI = MAX(XHI,R)        \r\n      YHI = MAX(YHI,S)        \r\n      XLO = MIN(XLO,R)        \r\n      YLO = MIN(YLO,S)        \r\nC        \r\nC     DRAW CHARACTER ON PLOTTER        \r\nC        \r\n      X     = XFACT*FLOAT(R)        \r\n      Y     = YFACT*FLOAT(S)        \r\n      HITE  = 0.08*XFACT*100.0        \r\n      ANGLE = 0.0        \r\nC        \r\nC     BRING IN NASTRAN SYMBOL ROUTINE IF IT IS NEEDED        \r\nC        \r\nC     CALL SYMBOL (X,Y,HITE,CODE,ANGLE,-1)        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY ENDKHR (CHRSET)        \r\nC     =====================        \r\nC        \r\nC     PRINT OUT CONTENTS OF CHRSAV & COUNTERS        \r\nC     REINITIALIZE        \r\nC        \r\n      LINE   = 1        \r\n      CHRSAV = BLNK1        \r\n      CHRSET = .FALSE.        \r\n      SAVCNT = 0        \r\n      CHRCNT = 0        \r\n      UNKCNT = 0        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE DRWLIN (LINSET)        \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      REAL     XFACT,YFACT,X,Y,OLDX,OLDY        \r\n      LOGICAL  LINSET,P15,LINPRV        \r\n      COMMON   CMND,CNTRL,R,S,T,U,XFACT,YFACT,XMAX,YMAX,XHI,YHI,XLO,YLO,\r\n     1         PENCHG,PENCNT,OLDPEN,PENNO(99)        \r\n      DATA     LINCNT,P15,LINPRV / 0,.TRUE.,.FALSE. /        \r\nC        \r\nC     CHECK FOR INITIAL COMMAND = 15        \r\nC        \r\n      IF (LINSET) GO TO 1250        \r\n      LINSET = .TRUE.        \r\n      P15    = .FALSE.        \r\nC        \r\nC     CHECK COORDINATES AGAINST MAX & MIN ENCOUNTERED SO FAR        \r\nC        \r\n 1250 XHI  = MAX(R,T,XHI)        \r\n      YHI  = MAX(S,U,YHI)        \r\n      XLO  = MIN(R,T,XLO)        \r\n      YLO  = MIN(S,U,YLO)        \r\n      FILL = 0        \r\nC        \r\nC     CHECK FOR A PEN CHANGE AND/OR NEW PEN ID        \r\nC        \r\n      IF (CNTRL .EQ. OLDPEN) GO TO 1280        \r\n      IF (CNTRL .GT.     31) FILL = 1        \r\n      IF (CNTRL.EQ.0 .AND. OLDPEN .GT.31) IFILL = 1        \r\n      CALL TXNPEN (CNTRL)        \r\n      PENCHG = PENCHG + 1        \r\n      IF (PENCNT .GE. 99) GO TO 1270        \r\n      PENCNT = PENCNT + 1        \r\n      PENNO(PENCNT) = CNTRL        \r\n      IF (PENCNT .LE. 1) GO TO 1270        \r\n      DO 1260 N = 2,PENCNT        \r\n      IF (PENNO(PENCNT) .NE. PENNO(N-1)) GO TO 1260        \r\n      PENCNT = PENCNT - 1        \r\n      GO TO 1270        \r\n 1260 CONTINUE        \r\n 1270 OLDPEN = CNTRL        \r\n 1280 LINCNT = LINCNT + 1        \r\n      X = XFACT*FLOAT(R)        \r\n      Y = YFACT*FLOAT(S)        \r\n      I = 3        \r\n      IF (FILL .EQ. 1) I = -3        \r\nC        \r\nC     IF FILL = 1 THEN START TO FILL ELEMENT        \r\nC        \r\n      IF (.NOT.LINPRV .OR. X.NE.OLDX .OR. Y.NE.OLDY) CALL TXPLOT (X,Y,I)\r\nC        \r\nC     DRAW LINE ON PLOTTER SURFACE        \r\nC        \r\n      X = XFACT*FLOAT(T)        \r\n      Y = YFACT*FLOAT(U)        \r\nC        \r\nC     IF CNTRL = 0 CLOSE ELEMENT AND FILL        \r\nC        \r\n      J = 2        \r\n      IF (CNTRL.EQ.0 .AND. IFILL.EQ.1) J = -2        \r\n      IF (J .EQ. -2) IFILL = 0        \r\n      CALL TXPLOT (X,Y,J)        \r\nC        \r\nC     REMEMBER POSITION FOR NEXT SUCCESSIVE DRAWLINE COMMAND        \r\nC        \r\n      OLDX   = X        \r\n      OLDY   = Y        \r\n      LINPRV = .TRUE.        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY ENDLIN (LINSET)        \r\nC     =====================        \r\nC        \r\nC     CHECK FOR INITIAL COMMAND=15, AND PRINT \"DRAW LINES\" SUMMARY      \r\nC     REINITIALIZE        \r\nC        \r\n      P15    = .TRUE.        \r\n      LINCNT =  0        \r\n      LINSET = .FALSE.        \r\n      LINPRV = .FALSE.        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE TXNPEN (CNTRL)        \r\nC        \r\nC     TEKTRONIX PEN AND COLOR CONTROL        \r\nC        \r\n      INTEGER     CNTRL        \r\n      CHARACTER   ESC*1,CLEAR*2,LINCLR*4        \r\n      COMMON /IO/ IN,NOUT        \r\n      COMMON /EC/ ESC,CLEAR        \r\nC        \r\nC     CHANGE COLOR BY PEN NUMBER.        \r\nC        \r\n      IF (CNTRL .GT. 15) GO TO 1460        \r\n      GO TO (1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,        \r\n     1       1410,1420,1430,1440,1450), CNTRL        \r\n 1310 LINCLR = ESC//'ML1'        \r\n      GO TO 1620        \r\n 1320 LINCLR = ESC//'ML2'        \r\n      GO TO 1620        \r\n 1330 LINCLR = ESC//'ML3'        \r\n      GO TO 1620        \r\n 1340 LINCLR = ESC//'ML4'        \r\n      GO TO 1620        \r\n 1350 LINCLR = ESC//'ML5'        \r\n      GO TO 1620        \r\n 1360 LINCLR = ESC//'ML6'        \r\n      GO TO 1620        \r\n 1370 LINCLR = ESC//'ML7'        \r\n      GO TO 1620        \r\n 1380 LINCLR = ESC//'ML8'        \r\n      GO TO 1620        \r\n 1390 LINCLR = ESC//'ML9'        \r\n      GO TO 1620        \r\n 1400 LINCLR = ESC//'ML:'        \r\n      GO TO 1620        \r\n 1410 LINCLR = ESC//'ML;'        \r\n      GO TO 1620        \r\n 1420 LINCLR = ESC//'ML<'        \r\n      GO TO 1620        \r\n 1430 LINCLR = ESC//'ML='        \r\n      GO TO 1620        \r\n 1440 LINCLR = ESC//'ML>'        \r\n      GO TO 1620        \r\n 1450 LINCLR = ESC//'ML?'        \r\n      GO TO 1620        \r\nC        \r\n 1460 IF (CNTRL .LT. 32) RETURN        \r\n      J = CNTRL - 31        \r\n      GO TO (1470,1480,1490,1500,1510,1520,1530,1540,1550,1560,        \r\n     1       1570,1580,1590,1600,1610), J        \r\n 1470 LINCLR = ESC//'MP!'        \r\n      GO TO 1620        \r\n 1480 LINCLR = ESC//'MP\"'        \r\n      GO TO 1620        \r\n 1490 LINCLR = ESC//'MP#'        \r\n      GO TO 1620        \r\n 1500 LINCLR = ESC//'MP$'        \r\n      GO TO 1620        \r\n 1510 LINCLR = ESC//'MP%'        \r\n      GO TO 1620        \r\n 1520 LINCLR = ESC//'MP&'        \r\n      GO TO 1620        \r\n 1530 LINCLR = ESC//'MP'//CHAR(39)        \r\n      GO TO 1620        \r\n 1540 LINCLR = ESC//'MP('        \r\n      GO TO 1620        \r\n 1550 LINCLR = ESC//'MP)'        \r\n      GO TO 1620        \r\n 1560 LINCLR = ESC//'MP*'        \r\n      GO TO 1620        \r\n 1570 LINCLR = ESC//'MP+'        \r\n      GO TO 1620        \r\n 1580 LINCLR = ESC//'MP,'        \r\n      GO TO 1620        \r\n 1590 LINCLR = ESC//'MP-'        \r\n      GO TO 1620        \r\n 1600 LINCLR = ESC//'MP.'        \r\n      GO TO 1620        \r\n 1610 LINCLR = ESC//'MP/'        \r\n 1620 WRITE  (NOUT,1630) LINCLR        \r\n 1630 FORMAT (1X,A4)        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE TXINIT        \r\nC        \r\nC     THIS ROUTINE INITIALIZES THE TEKTRONIX GRAPHIC MODE AND CLEARS    \r\nC     THE PREVIOUS PLOT OFF THE SCREEN.        \r\nC        \r\n      CHARACTER   ESC*1,CLEAR*2,INDEX(15)*12        \r\n      CHARACTER*4 TMODE,EMODE,LINCLR        \r\n      COMMON /IO/ IN,NOUT        \r\n      COMMON /EC/ ESC,CLEAR        \r\nC        \r\n      LINCLR = ESC//'ML1'        \r\n      TMODE  = ESC//'%!0'        \r\nC        \r\nC     SET THE COLOR REGISTERS. FROM RED TO BLUE.        \r\nC        \r\n      INDEX( 1) = ESC//'TG1410F40'        \r\n      INDEX( 2) = ESC//'TG142G8B8F4'        \r\n      INDEX( 3) = ESC//'TG143H<B8F4'        \r\n      INDEX( 4) = ESC//'TG144I6C2F4'        \r\n      INDEX( 5) = ESC//'TG145J:B8F4'        \r\n      INDEX( 6) = ESC//'TG146K4C<F4'        \r\n      INDEX( 7) = ESC//'TG147K4D6E0'        \r\n      INDEX( 8) = ESC//'TG148L8B8F4'        \r\n      INDEX( 9) = ESC//'TG149O0C2F4'        \r\n      INDEX(10) = ESC//'TG14:P>B8F4'        \r\n      INDEX(11) = ESC//'TG14;Q8C2F4'        \r\n      INDEX(12) = ESC//'TG14<R7B8F4'        \r\n      INDEX(13) = ESC//'TG14=S;B8F4'        \r\n      INDEX(14) = ESC//'TG14>U1C2F4'        \r\n      INDEX(15) = ESC//'TG14?0C2F4'        \r\nC        \r\n      WRITE  (NOUT,1700) TMODE,CLEAR        \r\n 1700 FORMAT (1X,A4,A2)        \r\n      WRITE  (NOUT,1710) (INDEX(I),I=1,15)        \r\n 1710 FORMAT (1X,A12)        \r\n      WRITE  (NOUT,1700) LINCLR        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY TXFINS        \r\nC     ============        \r\nC        \r\nC     THIS ROUTINE INITIALIZES THE EDIT MODE AND CLEARS THE PREVIOUS    \r\nC     PLOT OFF THE TEKTRONIC SCREEN.        \r\nC        \r\n      LINCLR = ESC//'ML1'        \r\n      EMODE  = ESC//'%!2'        \r\n      WRITE  (NOUT,1720) CLEAR,LINCLR,EMODE        \r\n 1720 FORMAT (1X,A2,A4,A4)        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE TXPLOT (X,Y,N)        \r\nC        \r\nC     THIS SUBROUTINE CHANGES COORDINATES INTO TEXTRONIX COORDINATES    \r\nC        \r\n      INTEGER     N,NUMBER(2),CON(12,2),ADE(5),TWO(12)        \r\n      REAL        X,Y        \r\n      CHARACTER   ESC*1,CLEAR*2,PANEND*3,ASC*5        \r\n      CHARACTER*8 PSTART,PEND,PANST        \r\n      COMMON /IO/ IN,NOUT        \r\n      COMMON /EC/ ESC,CLEAR        \r\n      DATA   TWO/ 1,2,4,8,16,32,64,128,256,512,1024,2048 /        \r\nC        \r\n      IX = NINT(X*3071.0)        \r\n      IY = NINT(Y*3071.0)        \r\nC        \r\n      NUMBER(1) = IX        \r\n      NUMBER(2) = IY        \r\nC        \r\nC     CONVERTS TWO INTEGER VALUES INTO TEKTRONIX TYPE ADE (ASCII TO     \r\nC     DECIMAL EQUIVALENT) CHARACTERS        \r\nC        \r\n      DO 1820 K = 1,2        \r\n      IDIGIT = 0        \r\nC        \r\n      I = 12        \r\n      DO 1810 J = 1,12        \r\n      IF (TWO(I)-NUMBER(K) .GT. 0) GO TO 1800        \r\n      IDIGIT = 1        \r\n      NUMBER(K) = NUMBER(K) - TWO(I)        \r\n 1800 CON(I,K) = IDIGIT        \r\n      IDIGIT = 0        \r\n 1810 I = I - 1        \r\n 1820 CONTINUE        \r\nC        \r\n      ADE(1) = 32        \r\n      ADE(2) = 96        \r\n      ADE(3) = 96        \r\n      ADE(4) = 32        \r\n      ADE(5) = 64        \r\nC        \r\n      I = 12        \r\n      DO 1830 J = 8,12        \r\n      IF (CON(I,1) .EQ. 1) ADE(4) = ADE(4) + TWO(I-7)        \r\n 1830 I = I - 1        \r\n      ASC(4:4) = CHAR(ADE(4))        \r\nC        \r\n      I = 7        \r\n      DO 1840 J = 3,7        \r\n      IF (CON(I,1) .EQ. 1) ADE(5) = ADE(5) + TWO(I-2)        \r\n 1840 I = I - 1        \r\n      ASC(5:5) = CHAR(ADE(5))        \r\nC        \r\n      I = 2        \r\n      DO 1850 J = 1,2        \r\n      IF (CON(I,1) .EQ. 1) ADE(2) = ADE(2) + TWO(I)        \r\n 1850 I = I - 1        \r\nC        \r\nC     IS THERE A LINE MISSING HERE? SOMETHING SUCH AS        \r\nC     ASC(?:?) = CHAR(ADE(2))???   G.C  9/90        \r\nC        \r\n      I = 12        \r\n      DO 1860 J = 8,12        \r\n      IF (CON(I,2) .EQ. 1) ADE(1) = ADE(1) + TWO(I-7)        \r\n 1860 I = I - 1        \r\n      ASC(1:1) = CHAR(ADE(1))        \r\nC        \r\n      I = 7        \r\n      DO 1870 J = 3,7        \r\n      IF (CON(I,2) .EQ. 1) ADE(3) = ADE(3) + TWO(I-2)        \r\n 1870 I = I - 1        \r\n      ASC(3:3) = CHAR(ADE(3))        \r\nC        \r\n      I = 2        \r\n      DO 1880 J = 1,2        \r\n      IF (CON(I,2) .EQ. 1) ADE(2) = ADE(2) + TWO(I)        \r\n 1880 I = I - 1        \r\n      ASC(2:2) = CHAR(ADE(2))        \r\nC        \r\nC     END OF CONVERSION        \r\nC        \r\n      PSTART = ESC//'LF'//ASC        \r\n      PEND   = ESC//'LG'//ASC        \r\n      PANST  = ESC//'LP'//ASC        \r\n      PANEND = ESC//'LE'        \r\nC        \r\n      IF (N .EQ.  3) WRITE (NOUT,1890) PSTART        \r\n      IF (IABS(N) .EQ. 2) WRITE (NOUT,1890) PEND        \r\n      IF (N .EQ. -3) WRITE (NOUT,1890) PANST        \r\n      IF (N .EQ. -2) WRITE (NOUT,1900) PANEND        \r\n 1890 FORMAT (1X,A8)        \r\n 1900 FORMAT (1X,A3)        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE PSINIT (NOLINE)        \r\nC        \r\nC     POSTSCRIPT NEW PLOT ROUTINE        \r\nC        \r\nC     ON A 8 X 11 (HORIZ X VERT) PAGE, THE ORIGIN IS AT THE LOWER LEFT  \r\nC     CONNER. NOW TO CENTER THE PLOT HORIZONTALLY ALONG THE 11 IN. EDGE,\r\nC     MOVE THE ORIGIN 589 UNITS TO THE RIGHT, 116 UNITS UP, AND ROTATE  \r\nC     THE PAPER BY 90 DEGREE.        \r\nC        \r\n      COMMON /PS/ LU,DUMMY(6)        \r\nC        \r\n      IF (NOLINE .EQ. 0) WRITE (LU,1950)        \r\n      WRITE  (LU,1960)        \r\n 1950 FORMAT ('%!')        \r\n 1960 FORMAT ('589 116 translate', /,'90 rotate')        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY PSFINS        \r\nC     ============        \r\nC        \r\nC     CLOSE ROUTINE        \r\nC        \r\n      WRITE  (LU,1970)        \r\n 1970 FORMAT ('showpage')        \r\n      RETURN        \r\nC        \r\nC        \r\n      ENTRY PSTRKE        \r\nC     ============        \r\nC        \r\nC     STROKE ROUTINE        \r\nC        \r\n      WRITE  (LU,1980)        \r\n 1980 FORMAT ('stroke')        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE PSLINE        \r\nC        \r\nC     POSTSCRIPT LINE ROUTINE        \r\nC        \r\n      INTEGER     R,S,T,U        \r\n      REAL        SCALE        \r\n      CHARACTER*7 MT,LT        \r\n      COMMON      CMND,CTRL,R,S,T,U        \r\n      COMMON /PS/ LU,SCALE,JOUNT,NBUFF,DUMMY(3)        \r\n      DATA    MT, LT /' moveto', ' lineto' /        \r\nC        \r\n      R = R*SCALE        \r\n      S = S*SCALE        \r\n      T = T*SCALE        \r\n      U = U*SCALE        \r\n      WRITE  (LU,2000) R,S,MT, T,U,LT        \r\n 2000 FORMAT (2I5,A7, /,2I5,A7)        \r\n      JOUNT = JOUNT + 1        \r\n      IF (JOUNT .LE. NBUFF) RETURN        \r\n      CALL PSTRKE        \r\n      JOUNT = 0        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\n      SUBROUTINE PSCHAR (CHRSET,CMNDX)        \r\nC        \r\nC     PUT CHARACTERS INTO ONE STRING IF APPLICABLE. UP TO 70 CHARACTERS.\r\nC        \r\nC     IF CMNDS=4 AT 2120 IS REMOVED, NO CHARACTER STRING WILL BE FORMED,\r\nC     AND EACH CHARACTER WILL BE POSITIONED AND TYPED INDIVIDUALLY      \r\nC        \r\n      IMPLICIT INTEGER (A-Z)        \r\n      LOGICAL     CHRSET        \r\n      REAL        SCALE,CSCAL        \r\n      CHARACTER   CHR94*48,BSS0*2        \r\n      CHARACTER*1 SAVE(76),SHOW(6),BS,S0,S2,S3,S5,S6,S7,BS0(2)        \r\n      COMMON      CMND,CNTRL,R,S,T        \r\n      COMMON /PS/ LU,SCALE,JOUNT,NBUFF,ONCE,CSCAL,CHRPOS        \r\n      EQUIVALENCE (BS0(1),BSS0,BS),(BS0(2),S0)        \r\n      DATA        SHOW  / ')',' ','s','h','o','w' /        \r\n      DATA        BSS0,S2,S3,S5,S6,S7 / '\\0','2','3','5','6','7'/       \r\n      DATA        CHR94 /        \r\n     1           '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ()+-*/=.,$\" ' /   \r\nC                 000000000111111111122222222223333333333444444444      \r\nC                          0         0         0         0       8      \r\nC                 49-52 = SPECIAL CHARACTERS        \r\nC                 FROM NASTRAN USER NANUAL P. 4.4-5        \r\nC        \r\n      IF (ONCE .NE. -1) GO TO 2110        \r\n      ONCE = 0        \r\n      WRITE  (LU,2100) CSCAL        \r\n 2100 FORMAT ('/Courier-Bold findfont',F5.1,' scalefont setfont')       \r\nC        \r\nC     CORRECTION FOR CHARACTER X-Y POSITION.        \r\nC     FROM CHARACTER CENTER TO CHARACTER LOWER LEFT CORNER        \r\nC        \r\n      DELY = 8*T/2 + 1        \r\n      DELX = DELY*2/3 + 1        \r\n      GO TO 2120        \r\nC        \r\n 2110 IF (CMNDX .EQ. 14) GO TO 2200        \r\n      IF (ONCE  .GT.  0) GO TO 2140        \r\n 2120 IF (CHRPOS .EQ. 0) CMNDX = 4        \r\n      R  = (R-DELX)*SCALE        \r\n      S  = (S-DELY)*SCALE        \r\n      WRITE  (LU,2130) R,S        \r\n 2130 FORMAT (2I5,' moveto')        \r\n      JOUNT = JOUNT + 1        \r\n      COUNT = 0        \r\n      ONCE  = 1        \r\nC        \r\n 2140 COUNT = COUNT + 1        \r\n      SAVE(COUNT) = SHOW(2)        \r\n      IF (CNTRL.GE.49 .AND. CNTRL.LE.52) GO TO 2150        \r\n      IF (COUNT.LE.70 .AND. CNTRL.GE.1 .AND. CNTRL.LE.48)        \r\n     1    SAVE(COUNT) = CHR94(CNTRL:CNTRL)        \r\n      GO TO 2170        \r\nC        \r\nC     SPECIAL SYMBOLS (USER'S MANUAL P. 4.4-5)        \r\nC                 NASTRAN         POSTCSRIPT        \r\nC     CNTRL       ORIGINAL        EQUIVALENCE        \r\nC     -----     -------------    --------------        \r\nC       49      SMALL CIRCLE     BIG SOLID DOT        \r\nC       50      SMALL SQUARE     SQUATE-CIRCLE        \r\nC       51      SMALL DIAMOND    DAGGER        \r\nC       52      SMALL TRIANGLE   DOUBLE-DAGGER        \r\nC        \r\nC     SINCE THESE SYMBOLS MAY BE PART OF A TEXT, TO ACTUALLY DRAW THESE \r\nC     NASTRAN ORIGINAL SYMBOLS IS NOT RECOMMENDED        \r\nC        \r\n 2150 IF (COUNT+3 .GT. 70) GO TO 2170        \r\n      SAVE(COUNT  ) = BS        \r\n      SAVE(COUNT+1) = S2        \r\n      SAVE(COUNT+2) = S6        \r\n      COUNT = COUNT + 3        \r\n      IF (CNTRL .NE. 50) GO TO 2160        \r\n      SAVE(COUNT-1) = S5        \r\n      SAVE(COUNT  ) = S0        \r\n      GO TO 2170        \r\n 2160 IF (CNTRL .EQ. 49) SAVE(COUNT) = S7        \r\n      IF (CNTRL .EQ. 51) SAVE(COUNT) = S2        \r\n      IF (CNTRL .EQ. 52) SAVE(COUNT) = S3        \r\n 2170 RETURN        \r\nC        \r\nC        \r\n      ENTRY PSENDC (CHRSET,CMNDX)        \r\nC     ===========================        \r\nC        \r\n 2200 IF (COUNT-1) 2270,2210,2230        \r\n 2210 WRITE  (LU,2220) SAVE(1)        \r\n 2220 FORMAT (1H(,A1,6H) show)        \r\n      GO TO 2260        \r\n 2230 DO 2240 J = 1,6        \r\n 2240 SAVE(COUNT+J) = SHOW(J)        \r\n      COUNT = COUNT + 6        \r\n      WRITE  (LU,2250) (SAVE(J),J=1,COUNT)        \r\n 2250 FORMAT (1H(,76A1)        \r\n 2260 COUNT = 0        \r\n      ONCE  = 0        \r\n      JOUNT = JOUNT + 1        \r\n      IF (JOUNT .LE. NBUFF) GO TO 2270        \r\n      CALL PSTRKE        \r\n      JOUNT = 0        \r\n 2270 IF (CMNDX.EQ.14 .AND. CMND.EQ.4) GO TO 2120        \r\n      CHRSET = .FALSE.        \r\n      RETURN        \r\n      END        \r\nC        \r\nC     ================================================================= \r\nC        \r\nC+    SUBROUTINE NASTEK (*,FIL,NR,IBUFF,NBUFF)        \r\nC        \r\nC     NASTEK - INTERACTIVE DISPLAY OF NASTRAN-GENERATED PLOTS - NOV83   \r\nC                                                       REVISED APR86   \r\nC        \r\nC     NASTEK PLOTS NASTRAN-GENERATED PLT1 OR PLT2 FILES ON TEKTRONIX    \r\nC     4010 AND 4050 SERIES TERMINALS, AND RUNS ON VAX-11 COMPUTERS.     \r\nC        \r\nC     THE USER CAN        \r\nC           - PLOT ALL FRAMES SEQUENTIALLY W/AUTOMATIC HARDCOPY OR PLOT \r\nC             ANY FRAME HE CHOOSES        \r\nC           - SET A SCALE FACTOR TO SHRINK OR ENLARGE THE PLOTS        \r\nC           - DRAW WITH SOLID, DASHED, OR DOTTED LINES IF THE PEN       \r\nC             PARAMETER WAS USED IN NASTRAN        \r\nC        \r\nC     INPUT - THE NASTRAN-GENERATED PLT1 OR PLT2 FILE.        \r\nC           - FIVE USER-DEFINED VALUES WHICH ARE INPUT BY THE USER      \r\nC             IN RESPONSE TO QUESTIONS ASKED BY NASTEK.        \r\nC        \r\nC     NASTEK IS WRITTEN IN VAX FORTRAN 77 WITH SUBROUTINES FROM THE     \r\nC     TEKTRONIX PLOT-10 TCS AND ADVANCED GRAPHING II PACKAGES.        \r\nC        \r\nC     VARIABLES        \r\nC     CHANGE - CHANGING PLOT OPTION?        \r\nC     CHAR   - CHARACTER ARRAY        \r\nC     CI     - NASTRAN CONTROL INDEX        \r\nC     CSIZE  - CHARACTER SIZE FOR QUESTIONS, NOTES, ETC        \r\nC     CURFR  - COUNTER FOR CURRENT FRAME NUMBER IN PLT1 OR PLT2 FILE    \r\nC     FR     - USER FRAME NUMBER TO BE PLOTTED        \r\nC     IB     - INDEX FOR IBUFF        \r\nC     IBUFF  - USED TO READ IN AND UNPACK PLT1 OR PLT2 FILE        \r\nC     NBUFF  - LENGTH OF IBUFF ARRAY, EITHER 30 OR 3000        \r\nC     LEN2X  - HALF THE WIDTH  OF FRAME IN SCREEN COORDINATES        \r\nC     LEN2Y  - HALF THE HEIGHT OF FRAME IN SCREEN COORDINATES        \r\nC     MAXFR  - MAXIMUM NUMBER OF FRAMES IN PLT1 OR PLT2 FILE        \r\nC     MINX,MINY,MAXX,MAXY,MMINX,MMINY,MMAXX,MMAXY - SCREEN COORDINATES  \r\nC     NUM    - STRING OF ASCII NUMBERS USED TO OUTPUT A NUMBER        \r\nC     OLDT,OLDU - LAST POSITION DRAWN TO        \r\nC     PC     - NASTRAN PLOT COMMAND  0 - NO OPERATION        \r\nC                                    1 - START NEW PLOT        \r\nC                                  2,3 - NOT USED IN NASTEK        \r\nC                                    4 - PRINT A CHARACTER        \r\nC                                  5,6 - DRAW A LINE        \r\nC     PLOTID - HAS PLOTID FRAME BEEN PLOTTED        \r\nC     PLOTOP - PLOT OPTION, 1 CHOOSING, 2 AUTOMATIC        \r\nC     FIL    - NASTRAN-GENERATED PLOT FILE, PLT1 OR PLT2        \r\nC     NR     - NO. OF PLOT COMMANDS PER FILE RECORD        \r\nC            = 5 FOR PLT1, AND 100 FOR PLT2 FILE        \r\nC     R,S,T,U,RSTU - NASTRAN COORDINATES        \r\nC     RMIN,SMIN,RMAX,SMAX - NASTRAN COORDINATES        \r\nC     SCALE  - SCALE FACTOR > 0        \r\nC     SEARCH - SEARCHING FOR A FRAME?        \r\nC     SIZE   - CHARACTER SIZE ON PLOTS        \r\nC     SYM    - SYMBOL SIZES IN NASTRAN COORDINATES        \r\nC     TERMT  - TERMINAL TYPE        \r\nC     XCEN,YCEN - CENTER OF FRAME IN SCREEN COORDINATES        \r\nC     XCS,YCS   - 1/2 WIDTH AND HEIGHT FOR CHARACTER IN NASTRAN        \r\nC              COORDINATES USED TO MOVE THE CHARACTERS DOWN AND TO THE  \r\nC              LEFT SO THAT THEY ARE CENTERED WRT THE NASTRAN COORDINATE\r\nC              GIVING THEIR LOCATION        \r\nC     XFAC,YFAC - SCALE FACTORS FOR CHARACTER SIZE DEPENDING ON USER    \r\nC              SCALE FACTOR        \r\nC        \r\nC     WRITTEN BY: ROBERT LIPMAN        \r\nC                 DAVID TAYLOR NAVAL SHIP RESEARCH AND DEVELOPMENT      \r\nC                 CENTER, NUMERICAL STRUCTURAL MECHANICS BRANCH        \r\nC                 CODE 1844        \r\nC                 BETHESDA, MARYLAND  20084-5000        \r\nC                 (202)-227-1922        \r\nC        \r\nC     MODIFIED BY G.CHAN/UNISYS IN AREAS WHERE PLOT COMMANDS ARE READ   \r\nC     OFF PLT1 OR PLT2 FILE, IN DECODING THE COMMANDS, AND IN REPLACING \r\nC     THE IF-THEN-ELSE-ENDIF STUFFS BY THE OLD STYLE SIMPLE 'IF' FORTRAN\r\nC     THE FANZY IF-THEN-ELSE-ENDIF STUFFS ARE EASY ONLY TO THE ORIGINAL \r\nC     DEVELOPER, AND IS VERY HARD FOR ANOTHER READER TO FOLLOW. UPDATING\r\nC     THE PROGRAM BECOMES VERY DIFFICULT.  3/93        \r\nC \r\nC+    LOGICAL        SEARCH,CHANGE,PLOTID        \r\nC+    INTEGER        IBUFF(NBUFF),PC,CI,PLOTOP,FR,CURFR,PLTX,PLT1,PLT2, \r\nC+   1               FIL,XCEN,YCEN,CSIZE,TERMT        \r\nC+    REAL           RSTU(4),CHAR(48)        \r\nC+    COMMON /FRAME/ MMINX,MMINY,MMAXY,MMAXX,RSTU,SCALE,CURFR,        \r\nC+   1               XCEN,YCEN,RMIN,RMAX,SMIN,SMAX,TERMT,XCS,YCS,       \r\nC+   2               SYM1,SYM2,SYM3,SYM7,CSIZE        \r\nC+    EQUIVALENCE    (RSTU(1),R),(RSTU(2),S),(RSTU(3),T),(RSTU(4),U),   \r\nC+   1               (NO,CHAR(24))        \r\nC+    DATA    CHAR /        \r\nC+   1               1H0, 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9,  \r\nC+   2               1HA, 1HB, 1HC, 1HD, 1HE, 1HF, 1HG, 1HH, 1HI, 1HJ,  \r\nC+   3               1HK, 1HL, 1HM, 1HN, 1HO, 1HP, 1HQ, 1HR, 1HS, 1HT,  \r\nC+   4               1HU, 1HV, 1HW, 1HX, 1HY, 1HZ, 1H(, 1H), 1H+, 1H-,  \r\nC+   5               1H*, 1H/, 1H=, 1H., 1H,, 1H$, 1H', 1H   /        \r\nC+    DATA    NOUT , IN / 6,5/,  PLT1,PLT2,NN / 4HPLT1, 4HPLT2, 1Hn  /  \r\nC        \r\nC+    PLTX = PLT1        \r\nC+    IF (NR .EQ. 100) PLTX = PLT2        \r\nC+    NCOM = NBUFF/NR        \r\nC        \r\nC     INITIALIZE THE TERMINAL        \r\nC        \r\nC+ 10 WRITE  (NOUT,20)        \r\nC+ 20 FORMAT (/,' ENTER THE TERMINAL BAUD RATE? ',$)        \r\nC+    READ (IN,30,ERR=10) IBAUD        \r\nC+ 30 FORMAT (I5)        \r\nC+    IF (IBAUD.NE.300  .AND. IBAUD.NE.1200 .AND. IBAUD.NE.4800 .AND.   \r\nC+   1    IBAUD.NE.9600 .AND. IBAUD.NE.109200) GO TO 10        \r\nC+    CALL INITT (IBAUD/10)        \r\nC+    CALL TERM  (3,4096)        \r\nC        \r\nC     INITIALIZE SOME VARIABLES        \r\nC        \r\nC+    CHANGE =.FALSE.        \r\nC+    OLDT   = 1.E30        \r\nC+    OLDU   = 1.E30        \r\nC        \r\nC     SET MAXIMUM SIZE OF FRAME IN SCREEN COORDINATES        \r\nC     3014/3900 = 8.5/11        \r\nC        \r\nC+    MMINX = 0        \r\nC+    MMINY = 0        \r\nC+    MMAXX = 3900        \r\nC+    MMAXY = 3014        \r\nC+    XCEN  = (MMAXX + MMINX)/2        \r\nC+    YCEN  = (MMAXY + MMINY)/2        \r\nC        \r\nC     START OUTPUT        \r\nC        \r\nC+    CALL CHRSIZ (4)        \r\nC+    TERMT = 0        \r\nC+ 40 CALL NEWPAG        \r\nC+    IF (TERMT .NE. 0) CALL CHRSIZ (CSIZE)        \r\nC+    CALL ANMODE        \r\nC        \r\nC     PRINT SOME NOTES        \r\nC        \r\nC+    IF (TERMT .NE. 0) GO TO 80        \r\nC        \r\nC     INSERT NOTES HERE        \r\nC        \r\nC     GET TERMINAL TYPE FROM USER        \r\nC        \r\nC+ 50 WRITE  (NOUT,60)        \r\nC+ 60 FORMAT (/,' ENTER THE TEKTRONIX TERMINAL TYPE', /,        \r\nC+   1           ' 1 - 4014, 4015, 4054', /,        \r\nC+   2           ' 2 - 4016', /,        \r\nC+   3           ' 3 - 4010, 4012, 4013, 4051, 4052', /,' ? ',$)        \r\nC+    READ (IN,70,ERR=50) TERMT        \r\nC+ 70 FORMAT (I1)        \r\nC+    IF (TERMT.EQ.0 .OR. TERMT.GE.4) GO TO 50        \r\nC+    IF (TERMT .EQ. 1) CSIZE = 4        \r\nC+    IF (TERMT .EQ. 2) CSIZE = 3        \r\nC+    IF (TERMT .EQ. 3) CSIZE = 1        \r\nC+    IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE)        \r\nC        \r\nC+ 80 REWIND FIL        \r\nC+    IB     = NBUFF        \r\nC+    CURFR  =-1        \r\nC+    MAXFR  = 100000        \r\nC+    PLOTID = .FALSE.        \r\nC+    SEARCH = .TRUE.        \r\nC+    FR     = 0        \r\nC        \r\nC     GET PLOTTING OPTION FROM USER        \r\nC        \r\nC+ 90 WRITE  (NOUT,100)        \r\nC+100 FORMAT (/,' ENTER A PLOTTING OPTION', /,        \r\nC+   1          ' 1 - PLOT ANY FRAME OF YOUR CHOICE', /,        \r\nC+   2          ' 2 - PLOT AUTOMATICALLY, ALL FRAMES SEQUENTIALLY WITH',\r\nC+   3          ' HARDCOPY', /,' ? ',$)        \r\nC+    READ (IN,70,ERR=90) PLOTOP        \r\nC+    IF (PLOTOP.NE.1 .AND. PLOTOP.NE.2) GO TO 90        \r\nC        \r\nC     PRINT NOTES        \r\nC        \r\nC+    IF (PLOTOP .EQ. 1) WRITE (NOUT,110)        \r\nC+110 FORMAT (/,' NOTE - WHEN ASKED ''PLOT FRAME NUMBER ?'' ENTER',     \r\nC+   1        /9X,'ANY FRAME NUMBER TO PLOT THAT FRAME OR',        \r\nC+   2        /9X,' 0 TO PLOT THE NEXT FRAME, OR',        \r\nC+   3        /8X,'-1 TO RESTART NASTEK, OR',        \r\nC+   4        /8X,'-2 TO END NASTPLOT')        \r\nC+    IF (PLOTOP .EQ. 2) WRITE (NOUT,120)        \r\nC+120 FORMAT (/' NOTE - AFTER ALL FRAMES ARE PLOTTED THE PROGRAM',      \r\nC+   1        /8X,'WILL ASK ''RESTART NASTPLOT (Y/N) ?''')        \r\nC        \r\nC     GET SCALE FACTOR FROM USER        \r\nC        \r\nC+130 WRITE  (NOUT,140)        \r\nC+140 FORMAT (/' ENTER A SCALE FACTOR (SCALE>0)',        \r\nC+   1        /' =1 NORMAL',        \r\nC+   2        /' >1 ENLARGE ALL FRAMES',        \r\nC+   3        /' <1 SHRINK ALL FRAMES',/,' ? ',$)        \r\nC+    READ (IN,150,ERR=130) SCALE        \r\nC+150 FORMAT (F7.3)        \r\nC+    IF (SCALE.LT.0.01 .OR. SCALE.GT.999.) GO TO 130        \r\nC        \r\nC     BRANCH DEPENDING ON IF RESTARTED AND PLOT OPTION        \r\nC        \r\nC+    IF (.NOT.CHANGE) GO TO 160        \r\nC+    CHANGE = .FALSE.        \r\nC+    IF (PLOTOP .EQ. 1) GO TO 340        \r\nC        \r\nC     READ PLT1 OR PLT2 FILE AND UNPACK ONE RECORD WITH NR COMMNADS     \r\nC        \r\nC+160 IF (IB .LE. NBUFF) GO TO 280        \r\nC+    IB = 1 - NCOM        \r\nC+    READ (FIL,170,END=180,ERR=260) IBUFF        \r\nC+170 FORMAT (3000A1)        \r\nC+    GO TO 280        \r\nC        \r\nC     EOF FOUND ON PLOT FILE, REWIND IT IF NOT EMPTY        \r\nC        \r\nC+180 IF (MAXFR .EQ. 100000) MAXFR = CURFR        \r\nC+    IF (MAXFR .NE. -1) GO TO 200        \r\nC+    WRITE  (NOUT,190) PLTX        \r\nC+190 FORMAT (/,' *ERROR*  THIS IS NOT A ',A4,' FILE, TRY AGAIN')       \r\nC+    RETURN 1        \r\nC        \r\nC+200 REWIND FIL        \r\nC+    CURFR = -1        \r\nC+    IB    = NBUFF        \r\nC        \r\nC     EOF ON PLOT FILE, PLOTOP=1 AND SEARCHING THEN FRAME NOT FOUND,    \r\nC     TRY AGAIN        \r\nC        \r\nC+    IF (PLOTOP .EQ. 2) GO TO 220        \r\nC+    IF (.NOT.SEARCH) GO TO 340        \r\nC+    SEARCH = .FALSE.        \r\nC+    WRITE  (NOUT,210) MAXFR        \r\nC+210 FORMAT (25X,'MAXIMUM FRAME NUMBER IS',I4,', TRY AGAIN')        \r\nC+    GO TO 340        \r\nC        \r\nC     EOF ON PLOT FILE, PLOTOP=2, OPTION TO RESTART NASTPLOT        \r\nC        \r\nC+220 CALL BELL        \r\nC+    CALL HDCOPY        \r\nC+    CALL MOVABS (0,3120)        \r\nC+    IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE)        \r\nC+    CALL ANMODE        \r\nC+230 WRITE  (NOUT,240)        \r\nC+240 FORMAT (' RESTART NASTPLOT (Y/N) ? ',$)        \r\nC+    READ   (IN,250,ERR=230) NY        \r\nC+250 FORMAT (A1)        \r\nC+    IF (NY.EQ.NO .OR. NY.EQ.NN) GO TO 500        \r\nC+    GO TO 40        \r\nC        \r\nC     ERROR WHILE READING PLT1 OR PLT2 FILE        \r\nC        \r\nC+260 WRITE  (NOUT,270) PLTX        \r\nC+270 FORMAT (/' *ERROR*  READING ',A4,'  FILE')        \r\nC+    GO TO 500        \r\nC        \r\nC     GET A PLOT COMMAND AND DECIDE IF ITS OK        \r\nC        \r\nC+280 IB = IB + NCOM        \r\nC+    PC = IBUFF(IB)        \r\nC+    IF (PC.LE.0 .OR. PC.GE.17 .OR. (PC.NE.1.AND.SEARCH)) GO TO 160    \r\nC        \r\nC     GET CONTROL INDEX, RSTU        \r\nC        \r\nC+    CI = IBUFF(IB+1)        \r\nC+    IF (PLTX .EQ. PLT1) GO TO 310        \r\nC+    J1 = 3        \r\nC+    DO 300 I = 1,4        \r\nC+    J2 = J1 + 4        \r\nC+    RSTU(I) = 0.0        \r\nC+    DO 290 J = J1,J2        \r\nC+    RSTU(I) = RSTU(I)*10. + IBUFF(J+IB)        \r\nC+290 CONTINUE        \r\nC+300 J1 = J1 + 5        \r\nC+    GO TO 320        \r\nC        \r\nC+310 R = IBUFF(IB+2)        \r\nC+    S = IBUFF(IB+3)        \r\nC+    T = IBUFF(IB+4)        \r\nC+    U = IBUFF(IB+5)        \r\nC        \r\nC     BRANCH ON A PLOT COMMAND        \r\nC        \r\nC+320 GO TO (330,160,160,430,490,490,160,160,160,160,        \r\nC+   1       160,160,160,430,490,490,500), PC        \r\nC        \r\nC     START OF A NEW PLOT IN PLOT FILE        \r\nC        \r\nC+330 CURFR = CURFR + 1        \r\nC        \r\nC     IF SEARCHING FOR A FRAME, HAVE WE FOUND IT?        \r\nC        \r\nC+    IF (.NOT.SEARCH) GO TO 340        \r\nC        \r\nC     FRAME HAS BEEN FOUND, START PLOTTING, PLOTID FRAME IS PLOTTED ONCE\r\nC     IF FRAME NOT FOUND, GO TO 40        \r\nC        \r\nC+    IF (CURFR .NE. FR) GO TO 160        \r\nC+    SEARCH = .FALSE.        \r\nC+    IF (CURFR .NE. 0) GO TO 420        \r\nC+    IF (PLOTID) GO TO 340        \r\nC+    PLOTID =.TRUE.        \r\nC+    GO TO 420        \r\nC        \r\nC     NOT SEARCHING FOR A FRAME, PREVIOUS PLOT IS FINISHED        \r\nC     PLOTOP=1, GET FRAME NUMBER FROM USER        \r\nC        \r\nC+340 IF (PLOTOP .EQ. 2) GO TO 410        \r\nC+    CALL BELL        \r\nC+    CALL MOVABS (0,3120)        \r\nC+    IF (TERMT .LE. 2) CALL CHRSIZ (CSIZE)        \r\nC+350 CALL ANMODE        \r\nC+    WRITE  (NOUT,360)        \r\nC+360 FORMAT (' PLOT FRAME NUMBER ? ',$)        \r\nC+    READ (IN,370,ERR=350) FR        \r\nC+370 FORMAT (I2)        \r\nC+    IF (FR.EQ.0 .AND. CURFR.EQ.-1) FR = 1        \r\nC+    IF (.NOT.(FR.LT.-2 .OR. FR.GT.MAXFR)) GO TO 390        \r\nC+    WRITE  (NOUT,380)        \r\nC+380 FORMAT (' TRY AGAIN')        \r\nC+    CALL BELL        \r\nC+    GO TO 350        \r\nC        \r\nC     BRANCH DEPENDING ON NEW FRAME NUMBER        \r\nC     -1 - RESTART NASTEK        \r\nC     -2 - END NASTEK        \r\nC      0 OR CURRENT FRAME NUMBER - PLOT THAT FRAME        \r\nC     ELSE SEARCH FOR THE FRAME        \r\nC        \r\nC+390 IF (FR .EQ.  0) FR = CURFR        \r\nC+    IF (FR .NE. -1) GO TO 400        \r\nC+    CHANGE = .TRUE.        \r\nC+    GO TO 40        \r\nC+400 IF (FR .EQ. -2) GO TO 500        \r\nC+    IF (FR .EQ. CURFR) GO TO 420        \r\nC+    SEARCH =.TRUE.        \r\nC+    IF (FR .GE. CURFR) GO TO 160        \r\nC+    CURFR = -1        \r\nC+    REWIND FIL        \r\nC+    IB = 1 - NCOM        \r\nC+    GO TO 160        \r\nC        \r\nC     PLOTOP = 2, MAKE HARDCOPY        \r\nC        \r\nC+410 CALL BELL        \r\nC+    CALL HDCOPY        \r\nC        \r\nC     START PLOTTING A FRAME BY DRAWING A BOX        \r\nC        \r\nC+420 CONTINUE\r\nC+    CALL PFRAME        \r\nC+    GO TO 160        \r\nC        \r\nC     PRINT A CHARACTER OR SYMBOL BASED ON THE CONTROL INDEX,        \r\nC     DON'T PRINT IT IF IT IS OUTSIDE THE BOX        \r\nC        \r\nC+430 IF (CI.LT.1 .OR. CI.GT.48) GO TO 440        \r\nC+    R = R - XCS        \r\nC+    S = S - YCS        \r\nC+    IF (R.LT.RMIN .OR. R.GT.RMAX .OR. S.LT.SMIN .OR. S.GT.SMAX)       \r\nC+   1    GO TO 160        \r\nC+    CALL MOVEA (R,S)        \r\nC+    CALL A1OUT (1,CHAR(CI))        \r\nC+440 IF (CI .GT. 52) GO TO 160        \r\nC+    IF (R.LT.RMIN .OR. R.GT.RMAX .OR. S.LT.SMIN .OR. S.GT.SMAX)       \r\nC+   1    GO TO 160        \r\nC+    CALL MOVEA (R,S)        \r\nC+    IF (CI-50) 450,460,470        \r\nC        \r\nC     CIRCLE SYMBOL        \r\nC        \r\nC+450 CALL MOVER (-SYM1,   0.)        \r\nC+    CALL DRAWR ( SYM3, SYM7)        \r\nC+    CALL DRAWR ( SYM7, SYM3)        \r\nC+    CALL DRAWR ( SYM7,-SYM3)        \r\nC+    CALL DRAWR ( SYM3,-SYM7)        \r\nC+    CALL DRAWR (-SYM3,-SYM7)        \r\nC+    CALL DRAWR (-SYM7,-SYM3)        \r\nC+    CALL DRAWR (-SYM7, SYM3)        \r\nC+    CALL DRAWR (-SYM3, SYM7)        \r\nC+    GO TO 160        \r\nC        \r\nC     SQUARE SYMBOL        \r\nC        \r\nC+460 CALL MOVER (-SYM1, SYM1)        \r\nC+    CALL DRAWR ( SYM2,   0.)        \r\nC+    CALL DRAWR (   0.,-SYM2)        \r\nC+    CALL DRAWR (-SYM2,   0.)        \r\nC+    CALL DRAWR (   0., SYM2)        \r\nC+    GO TO 160        \r\nC        \r\nC     DIAMOND SYMBOL        \r\nC        \r\nC+470 IF (CI .EQ. 52) GO TO 480        \r\nC+    CALL MOVER (   0., SYM1)        \r\nC+    CALL DRAWR ( SYM1,-SYM1)        \r\nC+    CALL DRAWR (-SYM1,-SYM1)        \r\nC+    CALL DRAWR (-SYM1, SYM1)        \r\nC+    CALL DRAWR ( SYM1, SYM1)        \r\nC+    GO TO 160        \r\nC        \r\nC     TRIANGLE SYMBOL        \r\nC        \r\nC+480 CALL MOVER (   0., SYM1)        \r\nC+    CALL DRAWR ( SYM1,-SYM2)        \r\nC+    CALL DRAWR (-SYM2,   0.)        \r\nC+    CALL DRAWR ( SYM1, SYM2)        \r\nC+    GO TO 160        \r\nC        \r\nC     DRAW LINE DEPENDING ON CONTROL INDEX, NO MOVE IF OLD END IS NEW   \r\nC     START        \r\nC     CI = 1, SOLID,      PEN 1        \r\nC        = 2, DOTTED,     PEN 2        \r\nC        = 3, DASH-DOT,   PEN 3        \r\nC        = 4, SHORT-DASH, PEN 4        \r\nC        = 5, LONG-DASH,  PEN 5        \r\nC        \r\nC+490 IF (CI.LT.1 .OR. CI.GT.5) CI = 1        \r\nC+    IF (OLDT.NE.R .OR. OLDU.NE.S) CALL MOVEA (R,S)        \r\nC+    CALL DASHA (T,U,CI-1)        \r\nC+    OLDT = T        \r\nC+    OLDU = U        \r\nC+    GO TO 160        \r\nC        \r\nC     JOB DONE        \r\nC        \r\nC+500 RETURN        \r\nC+    END        \r\nC        \r\nC     ================================================================= \r\nC        \r\nC+     SUBROUTINE PFRAME        \r\nC        \r\nC     THIS ROUTINE IS CALLED ONLY BY NASTEK        \r\nC        \r\nC     GIVEN THE NASTRAN SIZE OF THE FRAME (S,T), FIT A FRAME ON THE     \r\nC     TEKTRONIX SCREEN AND DRAW A BOX AROUND IT        \r\nC        \r\nC+    INTEGER        CURFR,XCEN,YCEN,NUM(4),SIZE,TERMT        \r\nC+    REAL           RSTU(4),XFAC(4),YFAC(4)        \r\nC+    COMMON /FRAME/ MMINX,MMINY,MMAXY,MMAXX,RSTU,SCALE,CURFR,        \r\nC+   1               XCEN,YCEN,RMIN,RMAX,SMIN,SMAX,TERMT,XCS,YCS,       \r\nC+   2               SYM1,SYM2,SYM3,SYM7,CSIZE        \r\nC+    EQUIVALENCE    (RSTU(1),R),(RSTU(2),S),(RSTU(3),T),(RSTU(4),U)    \r\nC+    DATA    XFAC / 1.9 ,1.64,1.1 ,1./        \r\nC+    DATA    YFAC / 1.94,1.68,1.12,1./        \r\nC        \r\nC     (1) FIND SIZE OF STANDARD BOX        \r\nC        \r\nC+    MINX = MMINX        \r\nC+    MINY = MMINY        \r\nC+    MAXY = MMAXY        \r\nC+    IF (T .NE. 0.) GO TO 10        \r\nC+    WRITE (NOUT,15) S,T        \r\nC+    GO TO 120        \r\nC+ 10 MAXX = MINX + MAXY*(S/T)        \r\nC+    IF (MAXX .LE. MMAXX) GO TO 30        \r\nC+    MAXX = MMAXX        \r\nC+    IF (S .NE. 0.) GO TO 20        \r\nC+    WRITE  (NOUT,15) S,T        \r\nC+ 15 FORMAT (/,' *ERROR*  EITHER S=0 OR T=0',2(1P,E9.2))        \r\nC+    GO TO 120        \r\nC+ 20 MAXY  = MAXX*(T/S)        \r\nC+ 30 LEN2X = (MAXX-MINX)/2        \r\nC+    LEN2Y = (MAXY-MINY)/2        \r\nC        \r\nC     (2) SCALE AND CENTER THE BOX        \r\nC        \r\nC+    IF (SCALE.GT.1. .AND. CURFR.NE.0) GO TO 40        \r\nC+    TEMP = 1.        \r\nC+    IF (CURFR .NE. 0) TEMP = SCALE        \r\nC+    MINX = XCEN - LEN2X*TEMP        \r\nC+    MAXX = XCEN + LEN2X*TEMP        \r\nC+    MINY = YCEN - LEN2Y*TEMP        \r\nC+    MAXY = YCEN + LEN2Y*TEMP        \r\nC+    RMIN = 0.        \r\nC+    RMAX = S        \r\nC+    SMIN = 0.        \r\nC+    SMAX = T        \r\nC+    GO TO 50        \r\nC+ 40 IF (SCALE .LE. 1.) GO TO 50        \r\nC+    MINX = XCEN - LEN2X        \r\nC+    MAXX = XCEN + LEN2X        \r\nC+    MINY = YCEN - LEN2Y        \r\nC+    MAXY = YCEN + LEN2Y        \r\nC+    RMIN = S*(1.-1./SCALE)/2.        \r\nC+    RMAX = S*(1.+1./SCALE)/2.        \r\nC+    SMIN = T*(1.-1./SCALE)/2.        \r\nC+    SMAX = T*(1.+1./SCALE)/2.        \r\nC        \r\nC     (3) DRAW A BOX AROUND THE FRAME, AND SET SCREEN AND VIRTUAL WINDOW\r\nC        \r\nC+ 50 CALL ANMODE        \r\nC+    CALL NEWPAG        \r\nC+    IF (.NOT.(MAXX.LE.MINX .OR. MAXY.LE.MINY .OR. RMAX.LE.RMIN .OR.   \r\nC+   1    SMAX.LE.SMIN)) GO TO 60        \r\nC+    CALL ANMODE        \r\nC+    WRITE  (NOUT,55) MINX,MAXX,MINY,MAXY,RMIN,RMAX,SMIN,SMAX        \r\nC+ 55 FORMAT (/,' *ERROR*  SOME OF THE MINS>=MAXS',/4I9,/4(1P,E9.3))    \r\nC+ 60 IF (MAXX .NE. MINX) GO TO 70        \r\nC+    CALL ANMODE        \r\nC+    WRITE  (NOUT,65) MAXX,MINX        \r\nC+ 65 FORMAT (/,' *ERROR*  MAXX=MINX',2I6)        \r\nC+    GO TO 120        \r\nC+ 70 CALL DWINDO (RMIN,RMAX,SMIN,SMAX)        \r\nC+    CALL TWINDO (MINX,MAXX,MINY,MAXY)        \r\nC+    CALL MOVABS (MINX,MINY)        \r\nC+    CALL DRWABS (MINX,MAXY)        \r\nC+    CALL DRWABS (MAXX,MAXY)        \r\nC+    CALL DRWABS (MAXX,MINY)        \r\nC+    CALL DRWABS (MINX,MINY)        \r\nC        \r\nC     (4) PRINT THE FRAME NUMBER AND SCALE IN THE LOWER RIGHT CORNER    \r\nC        \r\nC     CSIZE = 1,2,3,4        \r\nC        \r\nC+    IY = 75        \r\nC+    IF (TERMT .GT. 2) GO TO 80        \r\nC+    CALL CHRSIZ (CSIZE)        \r\nC+    IY = 40        \r\nC        \r\nC+ 80 FCURFR = CURFR        \r\nC+    CALL IFORM  (FCURFR,4,NUM,32)        \r\nC+    CALL MOVABS (MAXX+15,MINY+IY)        \r\nC+    CALL ANSTR  (4,NUM)        \r\nC        \r\nC+    ND = 0        \r\nC+    IF (SCALE .LT. 10.0) ND = 2        \r\nC+    IF (SCALE .LT. 100.) ND = 1        \r\nC+    CALL FFORM  (SCALE,4,ND,NUM,32)        \r\nC+    CALL MOVABS (MAXX+15,MINY)        \r\nC+    CALL ANSTR  (4,NUM)        \r\nC        \r\nC     (5) FIND CHARACTER SIZE IN NASTRAN COORDINATES        \r\nC        \r\nC     THE NASTRAN COORDINATES FROM THE PLOT FILE ARE THE LOCATIONS      \r\nC     OF THE CENTER OF A CHARACTER. HALF THE WIDTH AND HEIGHT        \r\nC     (XCS,YCS) OF THE SIZE OF A CHARACTER MUST BE SUBTRACTED FROM      \r\nC     THE NASTRAN COORDINATES TO PRINT THEM IN THE PROPER LOCATION.     \r\nC        \r\nC+    XCS = 7.7*(RMAX-RMIN)/(MAXX-MINX)        \r\nC+    YCS = 1.8*XCS        \r\nC        \r\nC     SET SYMBOL SIZE        \r\nC        \r\nC+    SYM1 = YCS*SCALE        \r\nC+    SYM2 = 2.0*YCS*SCALE        \r\nC+    SYM3 = 0.3*YCS*SCALE        \r\nC+    SYM7 = 0.7*YCS*SCALE        \r\nC        \r\nC     SET AND SCALE CHARACTER SIZE        \r\nC        \r\nC+    SIZE = 1        \r\nC+    IF (TERMT .GT. 2) GO TO 90        \r\nC+    IF (SCALE.LT.1.1 .OR. CURFR.EQ.0) SIZE = 4        \r\nC+    IF (SCALE .LT. 1.7)  SIZE = 3        \r\nC+    IF (SCALE .LT. 1.8)  SIZE = 2        \r\nC+    IF (TERMT.EQ.2 .AND. SIZE.EQ.4) SIZE = 3        \r\nC+    CALL CHRSIZ (SIZE)        \r\nC+ 90 XCS = XCS*XFAC(SIZE)        \r\nC+    YCS = YCS*YFAC(SIZE)        \r\nC+    IF (CURFR .NE. 0) GO TO 100        \r\nC+    XCS = -XCS        \r\nC+    YCS = -YCS        \r\nC        \r\nC+100 RETURN        \r\nC        \r\nC     ERROR        \r\nC        \r\nC+120 STOP 'ERROR IN PFRAME/NASTEK/NASTPLOT'        \r\nC+    END        \r\n"
  }
]